849: ) IS
850:
851: l_status_pending_event VARCHAR2(240);
852: l_event_name VARCHAR2(240);
853: l_parameter_list wf_parameter_list_t;
854: l_event_key VARCHAR2(200);
855: l_wf_event_seq NUMBER;
856: l_return_status VARCHAR2(1);
857: l_err_text VARCHAR2(2000);
868: SELECT EAM_SAFETYWORKFLOW_EVENT_S.NEXTVAL
869: INTO l_wf_event_seq
870: FROM DUAL;
871:
872: l_parameter_list := wf_parameter_list_t();
873: l_event_name := l_status_pending_event;
874:
875: l_event_key := TO_CHAR(l_wf_event_seq);
876: INSERT INTO EAM_SAFETY_WORKFLOWS