411: AND (l_old_work_permit_header_rec.status_type <>l_work_permit_header_rec.status_type)
412: )
413: ) THEN
414:
415: IF(WF_EVENT.TEST(l_status_pending_event) <> 'NONE') THEN
416:
417: IF EAM_PROCESS_WO_PVT.Get_Debug = 'Y' THEN EAM_ERROR_MESSAGE_PVT.Write_Debug ('Calling Wkflow required check API...') ; END IF;
418:
419:
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);
858: l_msg_count NUMBER;
859: BEGIN
862: l_status_pending_event := 'oracle.apps.eam.permit.status.change.pending';
863:
864:
865: --if status change needs approval
866: IF( p_approval_required AND (WF_EVENT.TEST(l_status_pending_event) <> 'NONE')) THEN
867:
868: SELECT EAM_SAFETYWORKFLOW_EVENT_S.NEXTVAL
869: INTO l_wf_event_seq
870: FROM DUAL;
865: --if status change needs approval
866: IF( p_approval_required AND (WF_EVENT.TEST(l_status_pending_event) <> 'NONE')) THEN
867:
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;
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
877: (OBJECT_ID,TRANSACTION_ID,WORKFLOW_TYPE,LAST_UPDATE_DATE,LAST_UPDATED_BY,
878: CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN)
879: VALUES
876: INSERT INTO EAM_SAFETY_WORKFLOWS
877: (OBJECT_ID,TRANSACTION_ID,WORKFLOW_TYPE,LAST_UPDATE_DATE,LAST_UPDATED_BY,
878: CREATION_DATE,CREATED_BY,LAST_UPDATE_LOGIN)
879: VALUES
880: (p_eam_wp_rec.permit_id,l_wf_event_seq,3,SYSDATE,FND_GLOBAL.user_id,
881: SYSDATE,FND_GLOBAL.user_id,FND_GLOBAL.login_id
882: );
883:
884:
883:
884:
885: WF_CORE.CONTEXT('Enterprise Asset Management...','Work Permit Released change event','Building parameter list');
886: -- Add Parameters
887: Wf_Event.AddParameterToList(p_name =>'PERMIT_ID',
888: p_value => TO_CHAR(p_eam_wp_rec.permit_id),
889: p_parameterlist => l_parameter_list);
890: Wf_Event.AddParameterToList(p_name =>'PERMIT_NAME',
891: p_value =>p_eam_wp_rec.permit_name,
886: -- Add Parameters
887: Wf_Event.AddParameterToList(p_name =>'PERMIT_ID',
888: p_value => TO_CHAR(p_eam_wp_rec.permit_id),
889: p_parameterlist => l_parameter_list);
890: Wf_Event.AddParameterToList(p_name =>'PERMIT_NAME',
891: p_value =>p_eam_wp_rec.permit_name,
892: p_parameterlist => l_parameter_list);
893: Wf_Event.AddParameterToList(p_name =>'ORGANIZATION_ID',
894: p_value => TO_CHAR(p_eam_wp_rec.organization_id),
889: p_parameterlist => l_parameter_list);
890: Wf_Event.AddParameterToList(p_name =>'PERMIT_NAME',
891: p_value =>p_eam_wp_rec.permit_name,
892: p_parameterlist => l_parameter_list);
893: Wf_Event.AddParameterToList(p_name =>'ORGANIZATION_ID',
894: p_value => TO_CHAR(p_eam_wp_rec.organization_id),
895: p_parameterlist => l_parameter_list);
896: Wf_Event.AddParameterToList(p_name =>'NEW_PERMIT_STATUS',
897: p_value => TO_CHAR(p_eam_wp_rec.user_defined_status_id),
892: p_parameterlist => l_parameter_list);
893: Wf_Event.AddParameterToList(p_name =>'ORGANIZATION_ID',
894: p_value => TO_CHAR(p_eam_wp_rec.organization_id),
895: p_parameterlist => l_parameter_list);
896: Wf_Event.AddParameterToList(p_name =>'NEW_PERMIT_STATUS',
897: p_value => TO_CHAR(p_eam_wp_rec.user_defined_status_id),
898: p_parameterlist => l_parameter_list);
899: Wf_Event.AddParameterToList(p_name =>'OLD_SYSTEM_STATUS',
900: p_value => TO_CHAR(p_eam_wp_rec.STATUS_TYPE),
895: p_parameterlist => l_parameter_list);
896: Wf_Event.AddParameterToList(p_name =>'NEW_PERMIT_STATUS',
897: p_value => TO_CHAR(p_eam_wp_rec.user_defined_status_id),
898: p_parameterlist => l_parameter_list);
899: Wf_Event.AddParameterToList(p_name =>'OLD_SYSTEM_STATUS',
900: p_value => TO_CHAR(p_eam_wp_rec.STATUS_TYPE),
901: p_parameterlist => l_parameter_list);
902: Wf_Event.AddParameterToList(p_name =>'OLD_PERMIT_STATUS',
903: p_value => TO_CHAR(p_old_eam_wp_rec.user_defined_status_id),
898: p_parameterlist => l_parameter_list);
899: Wf_Event.AddParameterToList(p_name =>'OLD_SYSTEM_STATUS',
900: p_value => TO_CHAR(p_eam_wp_rec.STATUS_TYPE),
901: p_parameterlist => l_parameter_list);
902: Wf_Event.AddParameterToList(p_name =>'OLD_PERMIT_STATUS',
903: p_value => TO_CHAR(p_old_eam_wp_rec.user_defined_status_id),
904: p_parameterlist => l_parameter_list);
905: Wf_Event.AddParameterToList(p_name =>'NEW_SYSTEM_STATUS',
906: p_value => TO_CHAR(p_new_system_status),
901: p_parameterlist => l_parameter_list);
902: Wf_Event.AddParameterToList(p_name =>'OLD_PERMIT_STATUS',
903: p_value => TO_CHAR(p_old_eam_wp_rec.user_defined_status_id),
904: p_parameterlist => l_parameter_list);
905: Wf_Event.AddParameterToList(p_name =>'NEW_SYSTEM_STATUS',
906: p_value => TO_CHAR(p_new_system_status),
907: p_parameterlist => l_parameter_list);
908: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_TYPE',
909: p_value => TO_CHAR(3),
904: p_parameterlist => l_parameter_list);
905: Wf_Event.AddParameterToList(p_name =>'NEW_SYSTEM_STATUS',
906: p_value => TO_CHAR(p_new_system_status),
907: p_parameterlist => l_parameter_list);
908: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_TYPE',
909: p_value => TO_CHAR(3),
910: p_parameterlist => l_parameter_list);
911: Wf_Event.AddParameterToList(p_name =>'REQUESTOR',
912: p_value =>FND_GLOBAL.USER_NAME ,
907: p_parameterlist => l_parameter_list);
908: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_TYPE',
909: p_value => TO_CHAR(3),
910: p_parameterlist => l_parameter_list);
911: Wf_Event.AddParameterToList(p_name =>'REQUESTOR',
912: p_value =>FND_GLOBAL.USER_NAME ,
913: p_parameterlist => l_parameter_list);
914: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_NAME',
915: p_value => p_workflow_name,
910: p_parameterlist => l_parameter_list);
911: Wf_Event.AddParameterToList(p_name =>'REQUESTOR',
912: p_value =>FND_GLOBAL.USER_NAME ,
913: p_parameterlist => l_parameter_list);
914: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_NAME',
915: p_value => p_workflow_name,
916: p_parameterlist => l_parameter_list);
917: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_PROCESS',
918: p_value => p_workflow_process,
913: p_parameterlist => l_parameter_list);
914: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_NAME',
915: p_value => p_workflow_name,
916: p_parameterlist => l_parameter_list);
917: Wf_Event.AddParameterToList(p_name =>'WORKFLOW_PROCESS',
918: p_value => p_workflow_process,
919: p_parameterlist => l_parameter_list);
920: Wf_Core.Context('Enterprise Asset Management...','Work Permit Released Event','Raising event');
921:
918: p_value => p_workflow_process,
919: p_parameterlist => l_parameter_list);
920: Wf_Core.Context('Enterprise Asset Management...','Work Permit Released Event','Raising event');
921:
922: Wf_Event.Raise( p_event_name => l_event_name,
923: p_event_key => l_event_key,
924: p_parameters => l_parameter_list);
925: l_parameter_list.DELETE;
926: WF_CORE.CONTEXT('Enterprise Asset Management...','Work Permit Released Event','After raising event');