风险评价程序通常由企业或组织内部的相关部门或小组来制定。具体制定者可能包括：
评价组织及职责
评价小组成员可能由董事长、生产部长、设备管理人员、生产技术人员以及各部门负责人组成，负责制度的制定、监督执行情况，并定期进行更新。
主管部门
安全环保部负责公司危害辨识、风险评价和风险控制策划，组织并监督检查各相关部门、单位的具体实施。
具体执行
各单位负责对所辖范围内所有直接作业、操作岗位、关键装置与重点部位进行风险评价，并按照相关制度和流程执行。
综合以上信息，风险评价程序通常由企业内部的专门小组或部门负责制定，并需要各个相关部门的配合和参与。这样可以确保风险评价的全面性和有效性，同时也有利于后续的风险控制措施的实施。