[Home] [Help]
1: PACKAGE BODY PO_ReqChangeRequestWF_PVT AS
2: /* $Header: POXVRCWB.pls 120.65.12010000.11 2009/01/29 08:40:59 pilamuru ship $ */
3:
4:
5: -- Read the profile option that enables/disables the debug log
22: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
23: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
24: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
25: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
26: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'po.plsql.PO_REQCHANGEREQUESTWF_PVT';
27:
28: /*************************************************************************
29: * Private Procedure: StartPOChangeWF
30: *
272: x_new_amount OUT NOCOPY VARCHAR2 );
273:
274: /*********************************************************************************************
275: * Private Procedure: UpdatePODocHeaderTables
276: * Effects: This procedure gets invoked from PO_ReqChangeRequestWF_PVT.New_PO_Change_Exists
277: *
278: * When there is a change request,updating of the table po_header_all/po_release_all
279: * based on the status of the change requests can also be done by an autonomous block
280: * which there by can create a deadlock.Hence included the updating of tables in
556: i number;
557: l_save_failure exception;
558: l_error_message varchar2(240);
559: l_error_message1 varchar2(2000);
560: x_progress varchar2(100):='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:000';
561: begin
562:
563:
564: -- get the status of the doc, validation api will be called
574: from po_releases_all
575: where po_release_id=p_po_release_id;
576: end if;
577:
578: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:001';
579:
580: -- if the doc is in approved status, call validation
581: -- api. if the validation check fails, we won't save
582: -- the po change requests, and also reject the parent
593: p_po_change_requests => p_po_change_requests,
594: x_online_report_id => l_online_report_id,
595: x_pos_errors => l_pos_errors,
596: x_doc_check_error_msg => l_doc_check_rec_type);
597: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:002'
598: ||l_return_status;
599:
600: if(l_return_status <> 'S' ) then
601: -- error, so reject the change request
611: end loop;
612: end if;
613: l_error_message:=substr(l_error_message||l_msg_data||':', 1, 240);
614:
615: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:003';
616: l_record_count:=p_po_change_requests.count();
617: FOR i in 1..l_record_count LOOP
618: update po_change_requests
619: set request_status='REJECTED',
625: validation_error=l_error_message
626: where change_request_id=
627: p_po_change_requests(i).parent_change_request_id;
628: end loop;
629: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:004';
630: else
631: -- save the request, check for auto approval
632: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:005';
633:
628: end loop;
629: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:004';
630: else
631: -- save the request, check for auto approval
632: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:005';
633:
634: PO_CHG_REQUEST_PVT.save_request(
635: p_api_version =>1.0,
636: p_Init_Msg_List =>FND_API.G_FALSE,
645: raise l_save_failure;
646: end if;
647:
648: CheckPOAutoApproval(l_change_request_group_id);
649: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:006';
650: end if;
651: elsif(l_doc_status='REJECTED') then
652: -- reject the change immediately
653: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:007';
649: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:006';
650: end if;
651: elsif(l_doc_status='REJECTED') then
652: -- reject the change immediately
653: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:007';
654: l_record_count:=p_po_change_requests.count();
655: FOR i in 1..l_record_count LOOP
656: update po_change_requests
657: set request_status='REJECTED',
660: response_reason=fnd_message.get_string('PO', 'PO_RCO_PO_REJECTED')
661: where change_request_id=
662: p_po_change_requests(i).parent_change_request_id;
663: end loop;
664: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:008';
665: else
666: -- save the request. no auto approval at this time
667: -- it will be done when the PO is back to approved status
668: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:009';
664: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:008';
665: else
666: -- save the request. no auto approval at this time
667: -- it will be done when the PO is back to approved status
668: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:009';
669: PO_CHG_REQUEST_PVT.save_request(
670: p_api_version =>1.0,
671: p_Init_Msg_List =>FND_API.G_FALSE,
672: x_return_status =>l_return_status,
677: x_request_group_id =>l_change_request_group_id);
678: if(l_return_status <>'S') then
679: raise l_save_failure;
680: end if;
681: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:010';
682: end if;
683: exception
684: when l_save_failure then
685: l_record_count:=p_po_change_requests.count();
692: where change_request_id=
693: p_po_change_requests(i).parent_change_request_id;
694: end loop;
695: when others then
696: wf_core.context('PO_ReqChangeRequestWF_PVT',
697: 'ValidateAndSaveRequest',x_progress||sqlerrm);
698: raise;
699: end ValidateAndSaveRequest;
700:
756: where requisition_line_id=p_req_line_id;
757: x_progress :='002';
758: exception
759: when others then
760: wf_core.context('PO_ReqChangeRequestWF_PVT',
761: 'UpdateReqDistribution',x_progress||sqlerrm);
762: raise;
763: end UpdateReqDistribution;
764:
829: where requisition_line_id=p_req_line_id;
830: x_progress :='005-';
831: EXCEPTION
832: WHEN OTHERS THEN
833: wf_core.context('PO_ReqChangeRequestWF_PVT','UpdateReqLine',x_progress||sqlerrm);
834: raise;
835:
836: end UpdateReqLine;
837:
1564: -- commit;
1565:
1566: exception
1567: when others then
1568: wf_core.context('PO_ReqChangeRequestWF_PVT','ValidateChgAgainstNewPO',x_progress||sqlerrm);
1569: raise;
1570: end ValidateChgAgainstNewPO;
1571:
1572:
2094: x_progress:='ACCEPTANCE:001';
2095: --Set savepoint for rolling back in case the movechangetopo ends with
2096: --error
2097:
2098: SAVEPOINT PO_REQCHANGEREQUESTWF_PVT_SP;
2099:
2100: begin
2101: if (p_supplier_change = 'Y') then
2102: open sco_change_request;
2396:
2397: exception
2398: --In case of error, continue workflow
2399: when FND_API.g_exc_error then
2400: rollback to PO_REQCHANGEREQUESTWF_PVT_SP;
2401:
2402: update PO_CHANGE_REQUESTS
2403: set request_status='REJECTED',
2404: change_active_flag='N',
2424: and action_type='MODIFICATION';
2425: --comment raise and continue workflow
2426: --raise;
2427: when others then
2428: rollback to PO_REQCHANGEREQUESTWF_PVT_SP ;
2429: raise;
2430: end;
2431:
2432: end if;
2434: commit;
2435:
2436: EXCEPTION
2437: WHEN OTHERS THEN
2438: wf_core.context('PO_ReqChangeRequestWF_PVT','ProcessBuyerAction',x_progress||sqlerrm);
2439: raise;
2440:
2441: END ProcessBuyerAction;
2442:
2538:
2539: --Set savepoint for rolling back in case the movechangetopo ends with
2540: --error
2541:
2542: SAVEPOINT PO_REQCHANGEREQUESTWF_PVT_SP;
2543:
2544: begin
2545: open sco_change_request;
2546: loop
2771: exception
2772: --In case of error, rollback
2773:
2774: when FND_API.g_exc_error then
2775: rollback to PO_REQCHANGEREQUESTWF_PVT_SP;
2776:
2777: update PO_CHANGE_REQUESTS
2778: set request_status='REJECTED',
2779: change_active_flag='N',
2795: and action_type='MODIFICATION';
2796: raise;
2797:
2798: when others then
2799: rollback to PO_REQCHANGEREQUESTWF_PVT_SP ;
2800: raise;
2801:
2802: end;
2803:
2804: commit;
2805:
2806: EXCEPTION
2807: WHEN OTHERS THEN
2808: wf_core.context('PO_ReqChangeRequestWF_PVT','ProcessSCOAcceptance',x_progress||sqlerrm);
2809: raise;
2810:
2811: END ProcessSCOAcceptance;
2812: /*************************************************************************
2845: commit;
2846:
2847: EXCEPTION
2848: WHEN OTHERS THEN
2849: wf_core.context('PO_ReqChangeRequestWF_PVT','SetPoRequestStatus',sqlerrm);
2850: raise;
2851:
2852: END SetPoRequestStatus;
2853:
3475: commit;
3476:
3477: EXCEPTION
3478: WHEN OTHERS THEN
3479: wf_core.context('PO_ReqChangeRequestWF_PVT','ConvertIntoPOChange',x_progress);
3480: raise;
3481:
3482: END ConvertIntoPOChange;
3483:
3578: commit;
3579:
3580: EXCEPTION
3581: WHEN OTHERS THEN
3582: wf_core.context('PO_ReqChangeRequestWF_PVT','SetReqRequestStatus',x_progress);
3583: raise;
3584:
3585: END SetReqRequestStatus;
3586:
3628: commit;
3629:
3630: EXCEPTION
3631: WHEN OTHERS THEN
3632: wf_core.context('PO_ReqChangeRequestWF_PVT','SetReqChangeFlag',x_progress);
3633: raise;
3634:
3635: END SetReqChangeFlag;
3636:
3872: */
3873: commit;
3874: EXCEPTION
3875: WHEN OTHERS THEN
3876: wf_core.context('PO_ReqChangeRequestWF_PVT',
3877: 'InsertActionHist'||sqlerrm,x_progress);
3878: raise;
3879:
3880: END InsertActionHist;
4061: StartPOChangeWF(p_change_request_group_id, item_key, 'INFORM_BUYER_PO_CHANGE', l_forward_from_username, l_user_id, l_responsibility_id, l_application_id);
4062: x_progress :='StartInformBuyerWF:002';
4063: EXCEPTION
4064: WHEN OTHERS THEN
4065: wf_core.context('PO_ReqChangeRequestWF_PVT','StartInformBuyerWF',x_progress);
4066:
4067: raise;
4068:
4069: end StartInformBuyerWF;
4227: x_progress :='StartConvertProcess:008';
4228: commit;
4229: EXCEPTION
4230: WHEN OTHERS THEN
4231: wf_core.context('PO_ReqChangeRequestWF_PVT','StartConvertProcess',x_progress);
4232:
4233: raise;
4234: end StartConvertProcess;
4235:
4684: message => l_procedure_name||'-'|| x_progress|| ' ' || sqlerrm);
4685: END IF;
4686: END IF;
4687:
4688: wf_core.context('PO_ReqChangeRequestWF_PVT','StartPOChangeWF',x_progress||sqlerrm);
4689: raise;
4690: end StartPOChangeWF;
4691:
4692:
4695: pragma AUTONOMOUS_TRANSACTION;
4696: x_progress varchar2(100);
4697:
4698: BEGIN
4699: x_progress := 'PO_ReqChangeRequestWF_PVT.UpdatePODocHeaderTables';
4700:
4701: if(p_document_type = 'PO') then
4702: update po_headers_all
4703: set change_requested_by = null,
4716: commit;
4717:
4718: EXCEPTION
4719: WHEN OTHERS THEN
4720: wf_core.context('PO_ReqChangeRequestWF_PVT','UpdatePODocHeaderTables',x_progress|| sqlerrm);
4721: raise;
4722: END UpdatePODocHeaderTables;
4723:
4724:
4751: and initiator='REQUESTER'
4752: and request_status='NEW';
4753: BEGIN
4754:
4755: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Req_Chg_Attributes';
4756:
4757:
4758: -- Do nothing in cancel or timeout mode
4759: if (funcmode <> wf_engine.eng_run) then
4808: avalue =>
4809: 'plsql:PO_ReqChangeRequestNotif_PVT.get_new_req_amount/'||itemtype||':'||itemkey);
4810:
4811: */
4812: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Req_Chg_Attributes: 02';
4813: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
4814:
4815: EXCEPTION
4816: WHEN OTHERS THEN
4815: EXCEPTION
4816: WHEN OTHERS THEN
4817: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4818: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4819: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Req_Chg_Attributes',x_progress);
4820: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Get_Req_Chg_Attributes');
4821: raise;
4822:
4823:
4816: WHEN OTHERS THEN
4817: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4818: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4819: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Req_Chg_Attributes',x_progress);
4820: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Get_Req_Chg_Attributes');
4821: raise;
4822:
4823:
4824: end Get_Req_Chg_Attributes;
4849: l_preparer_user_name wf_roles.name%type;
4850:
4851: BEGIN
4852:
4853: x_progress := 'PO_ReqChangeRequestWF_PVT.Update_Req_Change_Flag: 01';
4854:
4855: -- Do nothing in cancel or timeout mode
4856: --
4857: if (funcmode <> wf_engine.eng_run) then
4896: WHEN OTHERS THEN
4897: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4898: l_preparer_user_name := PO_REQAPPROVAL_INIT1.
4899: get_preparer_user_name(itemType, itemkey);
4900: wf_core.context('PO_ReqChangeRequestWF_PVT',
4901: 'Update_Req_Change_Flag',x_progress);
4902: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
4903: l_preparer_user_name, l_doc_string,
4904: sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Req_Change_Flag');
4900: wf_core.context('PO_ReqChangeRequestWF_PVT',
4901: 'Update_Req_Change_Flag',x_progress);
4902: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
4903: l_preparer_user_name, l_doc_string,
4904: sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Req_Change_Flag');
4905: raise;
4906:
4907: END Update_Req_Change_Flag;
4908:
4942:
4943:
4944: BEGIN
4945:
4946: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 01';
4947:
4948: -- Do nothing in cancel or timeout mode
4949: if (funcmode <> wf_engine.eng_run) then
4950: resultout := wf_engine.eng_null;
4955: itemtype => itemtype,
4956: itemkey => itemkey,
4957: aname => 'CHANGE_REQUEST_GROUP_ID');
4958:
4959: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 02';
4960: open change_request;
4961: fetch change_request into l_employee_id;
4962: close change_request;
4963:
4960: open change_request;
4961: fetch change_request into l_employee_id;
4962: close change_request;
4963:
4964: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 03';
4965: l_doc_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
4966: itemkey => itemkey,
4967: aname => 'DOCUMENT_ID');
4968:
4973: l_doc_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
4974: itemkey => itemkey,
4975: aname => 'DOCUMENT_SUBTYPE');
4976:
4977: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 04';
4978: -- Set the multi-org context
4979: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
4980: itemkey => itemkey,
4981: aname => 'ORG_ID');
4988: itemkey => itemkey,
4989: aname => 'NOTE');
4990:
4991:
4992: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 05';
4993: if(l_employee_id is null) then
4994: if(l_doc_type='PO') then
4995: select agent_id
4996: into l_employee_id
5008: where po_release_id=l_doc_id;
5009: end if;
5010: end if;
5011:
5012: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 06';
5013: InsertActionHist(itemtype,itemkey,l_doc_id, l_doc_type,
5014: l_doc_subtype, l_employee_id,
5015: 'SUBMIT CHANGE', l_note, null);
5016:
5015: 'SUBMIT CHANGE', l_note, null);
5016:
5017: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
5018:
5019: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit: 07';
5020:
5021: EXCEPTION
5022: WHEN OTHERS THEN
5023: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5022: WHEN OTHERS THEN
5023: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5024: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
5025: itemType, itemkey);
5026: wf_core.context('PO_ReqChangeRequestWF_PVT',
5027: 'Insert_into_History_CHGsubmit',x_progress||sqlerrm);
5028: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
5029: l_preparer_user_name, l_doc_string, sqlerrm,
5030: 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit');
5026: wf_core.context('PO_ReqChangeRequestWF_PVT',
5027: 'Insert_into_History_CHGsubmit',x_progress||sqlerrm);
5028: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
5029: l_preparer_user_name, l_doc_string, sqlerrm,
5030: 'PO_ReqChangeRequestWF_PVT.Insert_into_History_CHGsubmit');
5031: raise;
5032:
5033: END Insert_into_History_CHGsubmit;
5034:
5066: and request_status = 'NEW';
5067:
5068: BEGIN
5069:
5070: x_progress := 'PO_ReqChangeRequestWF_PVT.Req_Change_Needs_Approval: 01';
5071:
5072: -- Do nothing in cancel or timeout mode
5073: if (funcmode <> wf_engine.eng_run) then
5074: resultout := wf_engine.eng_null;
5091: || nvl(l_approval_flag, 'Y');
5092: end if;
5093: close approval_flag;
5094:
5095: x_progress := 'PO_ReqChangeRequestWF_PVT.Req_Change_Needs_Approval: 02';
5096:
5097:
5098: EXCEPTION
5099: WHEN OTHERS THEN
5132: l_preparer_user_name varchar2(100);
5133:
5134: BEGIN
5135:
5136: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Mgr_Pre_App: 01';
5137:
5138:
5139: -- Do nothing in cancel or timeout mode
5140: if (funcmode <> wf_engine.eng_run) then
5153: --
5154: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
5155: --
5156:
5157: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Mgr_Pre_App: 02';
5158:
5159:
5160: EXCEPTION
5161: WHEN OTHERS THEN
5195: l_preparer_user_name varchar2(100);
5196:
5197: BEGIN
5198:
5199: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Mgr_App: 01';
5200:
5201:
5202: -- Do nothing in cancel or timeout mode
5203: if (funcmode <> wf_engine.eng_run) then
5213: SetReqRequestStatus(l_change_request_group_id, 'N', 'MGR_APP', null, null);
5214:
5215: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
5216:
5217: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Mgr_App: 02';
5218:
5219: EXCEPTION
5220: WHEN OTHERS THEN
5221: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5253: l_preparer_user_name varchar2(100);
5254:
5255: BEGIN
5256:
5257: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Rejected: 01';
5258:
5259:
5260: -- Do nothing in cancel or timeout mode
5261: --
5276: --
5277: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
5278: --
5279:
5280: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Change_Rejected: 02';
5281:
5282:
5283: EXCEPTION
5284: WHEN OTHERS THEN
5321: and request_status='MGR_PRE_APP';
5322:
5323: BEGIN
5324:
5325: x_progress := 'PO_ReqChangeRequestWF_PVT.Is_Chg_Mgr_Pre_App';
5326:
5327:
5328: -- Do nothing in cancel or timeout mode
5329: if (funcmode <> wf_engine.eng_run) then
5358: resultout := wf_engine.eng_completed || ':' || 'N' ;
5359: else
5360: resultout := wf_engine.eng_completed || ':' || 'Y' ;
5361: end if;
5362: x_progress := 'PO_ReqChangeRequestWF_PVT.Is_Chg_Mgr_Pre_App: 02';
5363:
5364: EXCEPTION
5365: WHEN OTHERS THEN
5366: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5364: EXCEPTION
5365: WHEN OTHERS THEN
5366: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5367: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5368: wf_core.context('PO_ReqChangeRequestWF_PVT','Is_Chg_Mgr_Pre_App',x_progress);
5369: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Is_Chg_Mgr_Pre_App');
5370: raise;
5371:
5372:
5365: WHEN OTHERS THEN
5366: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5367: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5368: wf_core.context('PO_ReqChangeRequestWF_PVT','Is_Chg_Mgr_Pre_App',x_progress);
5369: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Is_Chg_Mgr_Pre_App');
5370: raise;
5371:
5372:
5373: end Is_Chg_Mgr_Pre_App;
5397: avalue => 0);
5398: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
5399:
5400: exception when others then
5401: wf_core.context('PO_ReqChangeRequestWF_PVT','Reset_Reminder_Counter',x_progress);
5402: raise;
5403: END Reset_Reminder_Counter;
5404:
5405:
5460: end if;
5461: end if;
5462:
5463: exception when others then
5464: wf_core.context('PO_ReqChangeRequestWF_PVT','Reminder_Need_To_Be_Sent',x_progress);
5465: raise;
5466: END Reminder_Need_To_Be_Sent;
5467:
5468:
5494: l_preparer_user_name varchar2(100);
5495:
5496: BEGIN
5497:
5498: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_From_PO_Cancel';
5499:
5500: -- Do nothing in cancel or timeout mode
5501: if (funcmode <> wf_engine.eng_run) then
5502:
5513: resultout := wf_engine.eng_completed || ':' || 'Y';
5514: else
5515: resultout := wf_engine.eng_completed || ':' || 'N';
5516: end if;
5517: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_From_PO_Cancel: 02';
5518:
5519: EXCEPTION
5520: WHEN OTHERS THEN
5521: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5519: EXCEPTION
5520: WHEN OTHERS THEN
5521: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5522: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5523: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_From_PO_Cancel',x_progress);
5524: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_From_PO_Cancel');
5525: raise;
5526:
5527:
5520: WHEN OTHERS THEN
5521: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5522: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5523: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_From_PO_Cancel',x_progress);
5524: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_From_PO_Cancel');
5525: raise;
5526:
5527:
5528: end Start_From_PO_Cancel;
5558: where change_request_group_id=l_change_request_group_id
5559: and request_status='MGR_APP';
5560: BEGIN
5561:
5562: x_progress := 'PO_ReqChangeRequestWF_PVT.Change_Request_Mgr_Approved';
5563:
5564:
5565: -- Do nothing in cancel or timeout mode
5566: if (funcmode <> wf_engine.eng_run) then
5593: resultout := wf_engine.eng_completed || ':' || 'Y';
5594: else
5595: resultout := wf_engine.eng_completed || ':' || 'N';
5596: end if;
5597: x_progress := 'PO_ReqChangeRequestWF_PVT.Change_Request_Mgr_Approved: 02';
5598:
5599: EXCEPTION
5600: WHEN OTHERS THEN
5601: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5599: EXCEPTION
5600: WHEN OTHERS THEN
5601: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5602: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5603: wf_core.context('PO_ReqChangeRequestWF_PVT','Change_Request_Mgr_Approved',x_progress);
5604: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Change_Request_Mgr_Approved');
5605: raise;
5606:
5607:
5600: WHEN OTHERS THEN
5601: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5602: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5603: wf_core.context('PO_ReqChangeRequestWF_PVT','Change_Request_Mgr_Approved',x_progress);
5604: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Change_Request_Mgr_Approved');
5605: raise;
5606:
5607:
5608: end Change_Request_Mgr_Approved;
5863: EXCEPTION
5864: WHEN OTHERS THEN
5865: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5866: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5867: wf_core.context('PO_ReqChangeRequestWF_PVT','Update_Action_History_App_Rej',l_progress,sqlerrm);
5868: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Action_History_App_Rej');
5869: RAISE;
5870:
5871: END Update_Action_History_App_Rej;
5864: WHEN OTHERS THEN
5865: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5866: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5867: wf_core.context('PO_ReqChangeRequestWF_PVT','Update_Action_History_App_Rej',l_progress,sqlerrm);
5868: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Action_History_App_Rej');
5869: RAISE;
5870:
5871: END Update_Action_History_App_Rej;
5872:
5959: EXCEPTION
5960: WHEN OTHERS THEN
5961: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5962: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5963: wf_core.context('PO_ReqChangeRequestWF_PVT','Update_Action_History_Return',l_progress,sqlerrm);
5964: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Action_History_Return');
5965: RAISE;
5966:
5967: END Update_Action_History_Return;
5960: WHEN OTHERS THEN
5961: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5962: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5963: wf_core.context('PO_ReqChangeRequestWF_PVT','Update_Action_History_Return',l_progress,sqlerrm);
5964: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Update_Action_History_Return');
5965: RAISE;
5966:
5967: END Update_Action_History_Return;
5968:
6041:
6042:
6043: BEGIN
6044:
6045: x_progress := 'PO_ReqChangeRequestWF_PVT.Kickoff_POChange_WF: 01';
6046:
6047:
6048: -- Do nothing in cancel or timeout mode
6049: --
6082: --
6083: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
6084: --
6085:
6086: x_progress := 'PO_ReqChangeRequestWF_PVT.Kickoff_POChange_WF: 02';
6087:
6088:
6089: EXCEPTION
6090: WHEN OTHERS THEN
6089: EXCEPTION
6090: WHEN OTHERS THEN
6091: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6092: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6093: wf_core.context('PO_ReqChangeRequestWF_PVT','Kickoff_POChange_WF',x_progress);
6094: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Kickoff_POChange_WF');
6095: raise;
6096:
6097: END Kickoff_POChange_WF;
6090: WHEN OTHERS THEN
6091: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6092: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6093: wf_core.context('PO_ReqChangeRequestWF_PVT','Kickoff_POChange_WF',x_progress);
6094: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Kickoff_POChange_WF');
6095: raise;
6096:
6097: END Kickoff_POChange_WF;
6098:
6121:
6122:
6123: BEGIN
6124:
6125: x_progress := 'PO_ReqChangeRequestWF_PVT.Reset_Change_Flag: 01';
6126:
6127:
6128: -- Do nothing in cancel or timeout mode
6129: --
6165: EXCEPTION
6166: WHEN OTHERS THEN
6167: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6168: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6169: wf_core.context('PO_ReqChangeRequestWF_PVT','Reset_Change_Flag',x_progress);
6170: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Reset_Change_Flag');
6171: raise;
6172:
6173: END Reset_Change_Flag;
6166: WHEN OTHERS THEN
6167: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6168: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6169: wf_core.context('PO_ReqChangeRequestWF_PVT','Reset_Change_Flag',x_progress);
6170: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Reset_Change_Flag');
6171: raise;
6172:
6173: END Reset_Change_Flag;
6174:
6220:
6221: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
6222:
6223: exception when others then
6224: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Change_Total_Attr',x_progress);
6225: raise;
6226: END Get_Change_Total_Attr;
6227:
6228: procedure setNewTotal(itemtype in varchar2, itemkey in varchar2) is
6369: avalue => l_amount_for_subject);
6370: x_progress :='004';
6371: exception
6372: when others then
6373: wf_core.context('PO_ReqChangeRequestWF_PVT','setNewTotal',x_progress||sqlerrm);
6374: raise;
6375:
6376: end setNewTotal;
6377:
6403: l_preparer_user_name varchar2(100);
6404:
6405: BEGIN
6406:
6407: x_progress := 'PO_ReqChangeRequestWF_PVT.Is_Doc_Approved: 01';
6408:
6409: -- Do nothing in cancel or timeout mode
6410: if (funcmode <> wf_engine.eng_run) then
6411: resultout := wf_engine.eng_null;
6458: else
6459: resultout := wf_engine.eng_completed || ':' || 'N' ;
6460: end if;
6461:
6462: x_progress := 'PO_ReqChangeRequestWF_PVT.Is_Doc_Approved: 02';
6463:
6464: EXCEPTION
6465: WHEN OTHERS THEN
6466: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6465: WHEN OTHERS THEN
6466: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6467: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6468: itemType, itemkey);
6469: wf_core.context('PO_ReqChangeRequestWF_PVT','Is_Doc_Approved',
6470: x_progress);
6471: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6472: l_preparer_user_name, l_doc_string, sqlerrm,
6473: 'PO_ReqChangeRequestWF_PVT.Is_Doc_Approved');
6469: wf_core.context('PO_ReqChangeRequestWF_PVT','Is_Doc_Approved',
6470: x_progress);
6471: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6472: l_preparer_user_name, l_doc_string, sqlerrm,
6473: 'PO_ReqChangeRequestWF_PVT.Is_Doc_Approved');
6474: raise;
6475:
6476:
6477: end Is_Doc_Approved;
6502: l_preparer_user_name varchar2(100);
6503:
6504: BEGIN
6505:
6506: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Doc_In_Process01';
6507:
6508: if (funcmode <> wf_engine.eng_run) then
6509: resultout := wf_engine.eng_null;
6510: return;
6535: SetRelAuthStat(l_doc_id);
6536: end if;
6537: --
6538:
6539: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Doc_In_Process: 02';
6540:
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6542: WHEN OTHERS THEN
6543: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6544: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6545: itemType, itemkey);
6546: wf_core.context('PO_ReqChangeRequestWF_PVT',
6547: 'Set_Doc_In_Process',x_progress);
6548: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6549: l_preparer_user_name, l_doc_string, sqlerrm,
6550: 'PO_ReqChangeRequestWF_PVT.Set_Doc_In_Process');
6546: wf_core.context('PO_ReqChangeRequestWF_PVT',
6547: 'Set_Doc_In_Process',x_progress);
6548: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6549: l_preparer_user_name, l_doc_string, sqlerrm,
6550: 'PO_ReqChangeRequestWF_PVT.Set_Doc_In_Process');
6551: raise;
6552:
6553: end Set_Doc_In_Process;
6554:
6582: l_preparer_user_name varchar2(100);
6583:
6584: BEGIN
6585:
6586: x_progress := 'PO_ReqChangeRequestWF_PVT.Compare_Revision';
6587:
6588: -- Do nothing in cancel or timeout mode
6589: if (funcmode <> wf_engine.eng_run) then
6590:
6630: resultout := wf_engine.eng_completed || ':' || 'N' ;
6631: else
6632: resultout := wf_engine.eng_completed || ':' || 'Y' ;
6633: end if;
6634: x_progress := 'PO_ReqChangeRequestWF_PVT.Compare_Revision: 02';
6635:
6636: EXCEPTION
6637: WHEN OTHERS THEN
6638: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6637: WHEN OTHERS THEN
6638: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6639: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6640: itemType, itemkey);
6641: wf_core.context('PO_ReqChangeRequestWF_PVT',
6642: 'Compare_Revision',x_progress||sqlerrm);
6643: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6644: l_preparer_user_name, l_doc_string, sqlerrm,
6645: 'PO_ReqChangeRequestWF_PVT.Compare_Revision');
6641: wf_core.context('PO_ReqChangeRequestWF_PVT',
6642: 'Compare_Revision',x_progress||sqlerrm);
6643: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6644: l_preparer_user_name, l_doc_string, sqlerrm,
6645: 'PO_ReqChangeRequestWF_PVT.Compare_Revision');
6646: raise;
6647: end Compare_Revision;
6648:
6649:
6679:
6680:
6681: BEGIN
6682:
6683: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Rejection';
6684:
6685: -- Do nothing in cancel or timeout mode
6686: if (funcmode <> wf_engine.eng_run) then
6687: resultout := wf_engine.eng_null;
6704: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
6705: END IF;
6706: SetPoRequestStatus(l_change_request_group_id, 'REJECTED', l_response_reason);
6707:
6708: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Rejection: 02';
6709:
6710: EXCEPTION
6711: WHEN OTHERS THEN
6712: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6711: WHEN OTHERS THEN
6712: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6713: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6714: itemType, itemkey);
6715: wf_core.context('PO_ReqChangeRequestWF_PVT',
6716: 'Record_Buyer_Rejection',x_progress);
6717: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6718: l_preparer_user_name, l_doc_string, sqlerrm,
6719: 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Rejection');
6715: wf_core.context('PO_ReqChangeRequestWF_PVT',
6716: 'Record_Buyer_Rejection',x_progress);
6717: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6718: l_preparer_user_name, l_doc_string, sqlerrm,
6719: 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Rejection');
6720: raise;
6721:
6722: end Record_Buyer_Rejection;
6723:
6752: l_response_reason varchar2(2000);
6753:
6754: BEGIN
6755:
6756: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Acceptance';
6757:
6758: -- Do nothing in cancel or timeout mode
6759: if (funcmode <> wf_engine.eng_run) then
6760: resultout := wf_engine.eng_null;
6778: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
6779: END IF;
6780: SetPoRequestStatus(l_change_request_group_id, 'BUYER_APP', l_response_reason);
6781:
6782: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Acceptance: 02';
6783:
6784: EXCEPTION
6785: WHEN OTHERS THEN
6786: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6785: WHEN OTHERS THEN
6786: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6787: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6788: itemType, itemkey);
6789: wf_core.context('PO_ReqChangeRequestWF_PVT',
6790: 'Record_Buyer_Acceptance',x_progress);
6791: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6792: l_preparer_user_name, l_doc_string, sqlerrm,
6793: 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Acceptance');
6789: wf_core.context('PO_ReqChangeRequestWF_PVT',
6790: 'Record_Buyer_Acceptance',x_progress);
6791: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6792: l_preparer_user_name, l_doc_string, sqlerrm,
6793: 'PO_ReqChangeRequestWF_PVT.Record_Buyer_Acceptance');
6794: raise;
6795:
6796: end Record_Buyer_Acceptance;
6797:
6825: l_preparer_user_name varchar2(100);
6826:
6827: BEGIN
6828:
6829: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Process_Buy_Response_WF';
6830:
6831: if (funcmode <> wf_engine.eng_run) then
6832: resultout := wf_engine.eng_null;
6833: return;
6847: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
6848: END IF;
6849: Start_ProcessBuyerResponseWF(l_change_request_group_id);
6850:
6851: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Process_Buy_Response_WF: 02';
6852:
6853: EXCEPTION
6854: WHEN OTHERS THEN
6855: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6854: WHEN OTHERS THEN
6855: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6856: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6857: itemType, itemkey);
6858: wf_core.context('PO_ReqChangeRequestWF_PVT',
6859: 'Start_Process_Buy_Response_WF',x_progress);
6860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6861: l_preparer_user_name, l_doc_string, sqlerrm,
6862: 'PO_ReqChangeRequestWF_PVT.Inssert_into_History_CHGsubmit');
6858: wf_core.context('PO_ReqChangeRequestWF_PVT',
6859: 'Start_Process_Buy_Response_WF',x_progress);
6860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6861: l_preparer_user_name, l_doc_string, sqlerrm,
6862: 'PO_ReqChangeRequestWF_PVT.Inssert_into_History_CHGsubmit');
6863: raise;
6864:
6865: end Start_Process_Buy_Response_WF;
6866:
6905:
6906:
6907: BEGIN
6908:
6909: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_Buyer_Action_History: 01';
6910:
6911: -- Do nothing in cancel or timeout mode
6912: --
6913: if (funcmode <> wf_engine.eng_run) then
6982: l_doc_subtype, l_employee_id, l_action, l_note, null);
6983:
6984: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
6985:
6986: x_progress := 'PO_ReqChangeRequestWF_PVT.Insert_Buyer_Action_History: 02';
6987:
6988: EXCEPTION
6989: WHEN OTHERS THEN
6990: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6989: WHEN OTHERS THEN
6990: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6991: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
6992: itemType, itemkey);
6993: wf_core.context('PO_ReqChangeRequestWF_PVT',
6994: 'Insert_Buyer_Action_History',x_progress);
6995: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6996: l_preparer_user_name, l_doc_string, sqlerrm,
6997: 'PO_ReqChangeRequestWF_PVT.Insert_Buyer_Action_History');
6993: wf_core.context('PO_ReqChangeRequestWF_PVT',
6994: 'Insert_Buyer_Action_History',x_progress);
6995: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
6996: l_preparer_user_name, l_doc_string, sqlerrm,
6997: 'PO_ReqChangeRequestWF_PVT.Insert_Buyer_Action_History');
6998: raise;
6999:
7000: END Insert_Buyer_Action_History;
7001:
7031: l_preparer_user_name varchar2(100);
7032:
7033: BEGIN
7034:
7035: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Buyer_Rejection';
7036:
7037: -- Do nothing in cancel or timeout mode
7038: if (funcmode <> wf_engine.eng_run) then
7039: resultout := wf_engine.eng_null;
7057:
7058: END IF;
7059: ProcessBuyerAction(l_change_request_group_id, 'REJECTION');
7060:
7061: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Buyer_Rejection: 02';
7062:
7063: EXCEPTION
7064: WHEN OTHERS THEN
7065: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7064: WHEN OTHERS THEN
7065: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7066: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
7067: itemType, itemkey);
7068: wf_core.context('PO_ReqChangeRequestWF_PVT',
7069: 'Process_Buyer_Rejection',x_progress);
7070: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
7071: l_preparer_user_name, l_doc_string, sqlerrm,
7072: 'PO_ReqChangeRequestWF_PVT.Process_Buyer_Rejection');
7068: wf_core.context('PO_ReqChangeRequestWF_PVT',
7069: 'Process_Buyer_Rejection',x_progress);
7070: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
7071: l_preparer_user_name, l_doc_string, sqlerrm,
7072: 'PO_ReqChangeRequestWF_PVT.Process_Buyer_Rejection');
7073: raise;
7074:
7075:
7076: end Process_Buyer_Rejection;
7108: l_preparer_user_name varchar2(100);
7109:
7110: BEGIN
7111:
7112: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Cancel_Acceptance';
7113:
7114: -- Do nothing in cancel or timeout mode
7115: if (funcmode <> wf_engine.eng_run) then
7116: resultout := wf_engine.eng_null;
7149: END IF;
7150:
7151: ProcessBuyerAction(l_change_request_group_id, 'CANCELLATION');
7152:
7153: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Cancel_Acceptance: 02';
7154:
7155: EXCEPTION
7156: WHEN OTHERS THEN
7157: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7155: EXCEPTION
7156: WHEN OTHERS THEN
7157: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7158: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7159: wf_core.context('PO_ReqChangeRequestWF_PVT','Process_Cancel_Acceptance',x_progress);
7160: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Process_Cancel_Acceptance');
7161: raise;
7162:
7163:
7156: WHEN OTHERS THEN
7157: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7158: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7159: wf_core.context('PO_ReqChangeRequestWF_PVT','Process_Cancel_Acceptance',x_progress);
7160: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Process_Cancel_Acceptance');
7161: raise;
7162:
7163:
7164: end Process_Cancel_Acceptance;
7196: and request_status='BUYER_APP';
7197:
7198: BEGIN
7199:
7200: x_progress := 'PO_ReqChangeRequestWF_PVT.Change_Acceptance_Exists';
7201:
7202: -- Do nothing in cancel or timeout mode
7203: if (funcmode <> wf_engine.eng_run) then
7204: resultout := wf_engine.eng_null;
7227: resultout := wf_engine.eng_completed || ':' || 'N' ;
7228: else
7229: resultout := wf_engine.eng_completed || ':' || 'Y' ;
7230: end if;
7231: x_progress := 'PO_ReqChangeRequestWF_PVT.Change_Acceptance_Exists: 02';
7232:
7233: EXCEPTION
7234: WHEN OTHERS THEN
7235: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7233: EXCEPTION
7234: WHEN OTHERS THEN
7235: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7236: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7237: wf_core.context('PO_ReqChangeRequestWF_PVT','Change_Acceptance_Exists',x_progress);
7238: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Change_Acceptance_Exists');
7239: raise;
7240:
7241:
7234: WHEN OTHERS THEN
7235: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7236: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7237: wf_core.context('PO_ReqChangeRequestWF_PVT','Change_Acceptance_Exists',x_progress);
7238: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Change_Acceptance_Exists');
7239: raise;
7240:
7241:
7242: end Change_Acceptance_Exists;
7272: l_preparer_user_name varchar2(100);
7273:
7274: BEGIN
7275:
7276: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Change_Acceptance';
7277:
7278:
7279: -- Do nothing in cancel or timeout mode
7280: if (funcmode <> wf_engine.eng_run) then
7300:
7301: END IF;
7302: ProcessBuyerAction(l_change_request_group_id, 'ACCEPTANCE');
7303:
7304: x_progress := 'PO_ReqChangeRequestWF_PVT.Process_Change_Acceptance: 02';
7305:
7306: EXCEPTION
7307: WHEN OTHERS THEN
7308: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7306: EXCEPTION
7307: WHEN OTHERS THEN
7308: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7309: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7310: wf_core.context('PO_ReqChangeRequestWF_PVT','Process_Change_Acceptance',x_progress);
7311: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Process_Change_Acceptance');
7312: raise;
7313:
7314:
7307: WHEN OTHERS THEN
7308: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7309: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7310: wf_core.context('PO_ReqChangeRequestWF_PVT','Process_Change_Acceptance',x_progress);
7311: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Process_Change_Acceptance');
7312: raise;
7313:
7314:
7315: end Process_Change_Acceptance;
7339: commit;
7340: end if;
7341: exception
7342: when others then
7343: wf_core.context('PO_ReqChangeRequestWF_PVT','KickOffPOApproval',sqlerrm);
7344: raise;
7345: end;
7346:
7347:
7392: where change_request_group_id=l_change_request_group_id
7393: and request_status='REJECTED';
7394:
7395: BEGIN
7396: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF';
7397:
7398:
7399: -- Do nothing in cancel or timeout mode
7400: if (funcmode <> wf_engine.eng_run) then
7419: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
7420:
7421: END IF;
7422:
7423: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:01';
7424: open document_id;
7425: fetch document_id into l_header_id, l_release_id;
7426: close document_id;
7427: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:02';
7423: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:01';
7424: open document_id;
7425: fetch document_id into l_header_id, l_release_id;
7426: close document_id;
7427: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:02';
7428:
7429: --In case the change request is automatically
7430: --rejected, there will be no change reqeust in BUY_APP. So,
7431: --the document_id cursor will not fetch records. So, call
7439: --po_sup_chg_request_wf_grp.KickOffPOApproval(1, l_return_status, l_header_id, l_release_id, l_return_msg);
7440: --PO_ChangeOrderWF_GRP.KickOffPOApproval(1, l_return_status, l_header_id, l_release_id, l_return_msg);
7441:
7442: if(l_return_status<>FND_API.G_RET_STS_SUCCESS) then
7443: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:-'||l_return_status||'-'||to_char(l_header_id)||'-'||to_char(l_release_id)||'-'||l_return_msg;
7444: raise l_exception;
7445: else
7446: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF: 03';
7447: end if;
7442: if(l_return_status<>FND_API.G_RET_STS_SUCCESS) then
7443: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:-'||l_return_status||'-'||to_char(l_header_id)||'-'||to_char(l_release_id)||'-'||l_return_msg;
7444: raise l_exception;
7445: else
7446: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF: 03';
7447: end if;
7448:
7449: l_header_id := null;
7450: l_release_id := null;
7450: l_release_id := null;
7451:
7452: --Now set the authorization status of PO corresponding
7453: --to automatically rejected change request as 'APPROVED'
7454: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:04';
7455: open document_id_rejected;
7456: fetch document_id_rejected into l_header_id, l_release_id;
7457: close document_id_rejected;
7458: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:05';
7454: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:04';
7455: open document_id_rejected;
7456: fetch document_id_rejected into l_header_id, l_release_id;
7457: close document_id_rejected;
7458: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:05';
7459:
7460: IF(l_release_id is not null) THEN
7461: UPDATE po_releases_all
7462: SET authorization_status='APPROVED'
7466: SET authorization_status='APPROVED'
7467: WHERE po_header_id = l_header_id;
7468: END IF;
7469:
7470: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:06';
7471:
7472: EXCEPTION
7473: WHEN OTHERS THEN
7474: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7472: EXCEPTION
7473: WHEN OTHERS THEN
7474: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7475: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7476: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_Poapprv_WF',x_progress||sqlerrm);
7477: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF');
7478: raise;
7479:
7480:
7473: WHEN OTHERS THEN
7474: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7475: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7476: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_Poapprv_WF',x_progress||sqlerrm);
7477: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF');
7478: raise;
7479:
7480:
7481: end Start_Poapprv_WF;
7521: and pcr3.request_status not in ('ACCEPTED', 'REJECTED');
7522:
7523: BEGIN
7524:
7525: x_progress := 'PO_ReqChangeRequestWF_PVT.Req_Change_Responded';
7526:
7527: -- Do nothing in cancel or timeout mode
7528: if (funcmode <> wf_engine.eng_run) then
7529: resultout := wf_engine.eng_null;
7554: else
7555: resultout := wf_engine.eng_completed || ':' || 'N' ;
7556: end if;
7557:
7558: x_progress := 'PO_ReqChangeRequestWF_PVT.Req_Change_Responded: 02';
7559:
7560: EXCEPTION
7561: WHEN OTHERS THEN
7562: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7560: EXCEPTION
7561: WHEN OTHERS THEN
7562: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7563: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7564: wf_core.context('PO_ReqChangeRequestWF_PVT','Req_Change_Responded',x_progress);
7565: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Req_Change_Responded');
7566: raise;
7567:
7568:
7561: WHEN OTHERS THEN
7562: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7563: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7564: wf_core.context('PO_ReqChangeRequestWF_PVT','Req_Change_Responded',x_progress);
7565: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Req_Change_Responded');
7566: raise;
7567:
7568:
7569: end Req_Change_Responded;
7593: l_preparer_user_name varchar2(100);
7594:
7595: BEGIN
7596:
7597: x_progress := 'PO_ReqChangeRequestWF_PVT.Reset_Req_Change_Flag: 01';
7598:
7599:
7600: -- Do nothing in cancel or timeout mode
7601: --
7641: EXCEPTION
7642: WHEN OTHERS THEN
7643: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7644: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7645: wf_core.context('PO_ReqChangeRequestWF_PVT','Reset_Req_Change_Flag',x_progress);
7646: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Reset_Req_Change_Flag');
7647: raise;
7648:
7649: END Reset_Req_Change_Flag;
7642: WHEN OTHERS THEN
7643: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7644: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7645: wf_core.context('PO_ReqChangeRequestWF_PVT','Reset_Req_Change_Flag',x_progress);
7646: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Reset_Req_Change_Flag');
7647: raise;
7648:
7649: END Reset_Req_Change_Flag;
7650:
7697: l_total_amount number;
7698:
7699: BEGIN
7700:
7701: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 01';
7702:
7703: -- Do nothing in cancel or timeout mode
7704: if (funcmode <> wf_engine.eng_run) then
7705: resultout := wf_engine.eng_null;
7714: IF l_orgid is NOT NULL THEN
7715: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
7716: END IF;
7717:
7718: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 02';
7719:
7720: l_req_change_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber
7721: (itemtype => itemtype,
7722: itemkey => itemkey,
7721: (itemtype => itemtype,
7722: itemkey => itemkey,
7723: aname => 'REQ_CHANGE_GROUP_ID');
7724:
7725: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 03';
7726:
7727: SELECT wf_item_type, wf_item_key
7728: INTO l_req_item_type, l_req_item_key
7729: FROM po_change_requests
7744: when others then
7745: l_rco_wf_available:= 'N';
7746: END;
7747:
7748: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 02';
7749:
7750: -- If POREQCHA wf is available, we can get attributes from that wf.
7751: if ( l_rco_wf_available = 'Y') then
7752:
7749:
7750: -- If POREQCHA wf is available, we can get attributes from that wf.
7751: if ( l_rco_wf_available = 'Y') then
7752:
7753: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 04:' || l_req_item_type || '-' || l_req_item_key;
7754:
7755: l_total_amount_dsp:= PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>l_req_item_type,
7756: itemkey=>l_req_item_key,
7757: aname =>'TOTAL_AMOUNT_DSP');
7755: l_total_amount_dsp:= PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>l_req_item_type,
7756: itemkey=>l_req_item_key,
7757: aname =>'TOTAL_AMOUNT_DSP');
7758:
7759: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 05:';
7760:
7761: l_functional_currency:= PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>l_req_item_type,
7762: itemkey=>l_req_item_key,
7763: aname =>'FUNCTIONAL_CURRENCY');
7761: l_functional_currency:= PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>l_req_item_type,
7762: itemkey=>l_req_item_key,
7763: aname =>'FUNCTIONAL_CURRENCY');
7764:
7765: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 06:';
7766:
7767: l_document_id := PO_WF_UTIL_PKG.GetItemAttrNumber
7768: (itemtype => l_req_item_type,
7769: itemkey => l_req_item_key,
7905: itemkey => itemkey,
7906: aname => 'REQ_HEADER_ID',
7907: avalue => l_document_id);
7908:
7909: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 05';
7910:
7911: select NVL(CONTRACTOR_REQUISITION_FLAG, 'N'), NOTE_TO_AUTHORIZER
7912: into l_contractor_req_flag,l_note
7913: from po_requisition_headers_all
7918:
7919: t_varname(2) := 'JUSTIFICATION';
7920: t_varval(2) := l_note ;
7921:
7922: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 06';
7923:
7924: SELECT gsb.currency_code
7925: INTO l_functional_currency
7926: FROM financials_system_params_all fsp,
7930:
7931: t_varname(3) := 'FUNCTIONAL_CURRENCY' ;
7932: t_varval(3) := l_functional_currency ;
7933:
7934: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 07';
7935:
7936: -- get new req amount and req amount disp (at this moment, req has already been updated)
7937: SELECT nvl(SUM(nvl(decode(matching_basis, 'AMOUNT', amount, quantity * unit_price), 0)), 0)
7938: into l_req_amount
7982: t_varval(6) := l_functional_currency ;
7983:
7984: Wf_Engine.SetItemAttrTextArray(itemtype, itemkey,t_varname,t_varval);
7985:
7986: x_progress := 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency: 08';
7987:
7988: end if;
7989: --
7990: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
7996: EXCEPTION
7997: WHEN OTHERS THEN
7998: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7999: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8000: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Total_Amount_Currency',x_progress);
8001: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency');
8002: raise;
8003:
8004: END Get_Total_Amount_Currency;
7997: WHEN OTHERS THEN
7998: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7999: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8000: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Total_Amount_Currency',x_progress);
8001: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Get_Total_Amount_Currency');
8002: raise;
8003:
8004: END Get_Total_Amount_Currency;
8005:
8040: and pcr1.request_status not in ('ACCEPTED', 'REJECTED');
8041:
8042: BEGIN
8043:
8044: x_progress := 'PO_ReqChangeRequestWF_PVT.Req_Change_Responded';
8045:
8046:
8047: -- Do nothing in cancel or timeout mode
8048: if (funcmode <> wf_engine.eng_run) then
8091: else
8092: resultout := wf_engine.eng_completed || ':' || 'N' ;
8093: end if;
8094:
8095: x_progress := 'PO_ReqChangeRequestWF_PVT.REQ_PO_CHANGE_RESPONDED: 02';
8096:
8097: EXCEPTION
8098: WHEN OTHERS THEN
8099: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8097: EXCEPTION
8098: WHEN OTHERS THEN
8099: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8100: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8101: wf_core.context('PO_ReqChangeRequestWF_PVT','REQ_PO_CHANGE_RESPONDED',x_progress);
8102: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.REQ_PO_CHANGE_RESPONDED');
8103: raise;
8104:
8105:
8098: WHEN OTHERS THEN
8099: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8100: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8101: wf_core.context('PO_ReqChangeRequestWF_PVT','REQ_PO_CHANGE_RESPONDED',x_progress);
8102: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.REQ_PO_CHANGE_RESPONDED');
8103: raise;
8104:
8105:
8106: end REQ_PO_CHANGE_RESPONDED;
8221: 'plsqlclob:PO_ReqChangeRequestNotif_PVT.get_req_chg_response_notif/'||
8222: to_char(l_parent_group_id));
8223:
8224: exception when others then
8225: wf_core.context('PO_ReqChangeRequestWF_PVT','Get_Change_Attribute',x_progress);
8226: raise;
8227: END Get_Change_Attribute;
8228:
8229:
8262: and request_status='PENDING';
8263:
8264: BEGIN
8265:
8266: x_progress := 'PO_ReqChangeRequestWF_PVT.New_PO_Change_Exists';
8267:
8268: -- Do nothing in cancel or timeout mode
8269: if (funcmode <> wf_engine.eng_run) then
8270: resultout := wf_engine.eng_null;
8306: else
8307: resultout := wf_engine.eng_completed || ':' || 'Y' ;
8308: end if;
8309:
8310: x_progress := 'PO_ReqChangeRequestWF_PVT.New_PO_Change_Exists: 02';
8311:
8312: EXCEPTION
8313: WHEN OTHERS THEN
8314: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8312: EXCEPTION
8313: WHEN OTHERS THEN
8314: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8315: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8316: wf_core.context('PO_ReqChangeRequestWF_PVT','New_PO_Change_Exists',x_progress);
8317: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.New_PO_Change_Exists');
8318: raise;
8319:
8320:
8313: WHEN OTHERS THEN
8314: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8315: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8316: wf_core.context('PO_ReqChangeRequestWF_PVT','New_PO_Change_Exists',x_progress);
8317: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.New_PO_Change_Exists');
8318: raise;
8319:
8320:
8321: end New_PO_Change_Exists;
8344: l_preparer_user_name varchar2(100);
8345:
8346: BEGIN
8347:
8348: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_PO_Approval';
8349:
8350:
8351: -- Do nothing in cancel or timeout mode
8352: if (funcmode <> wf_engine.eng_run) then
8372:
8373: END IF;
8374: SetPoRequestStatus(l_change_request_group_id, 'ACCEPTED');
8375:
8376: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_PO_Approval: 02';
8377:
8378: EXCEPTION
8379: WHEN OTHERS THEN
8380: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8378: EXCEPTION
8379: WHEN OTHERS THEN
8380: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8381: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8382: wf_core.context('PO_ReqChangeRequestWF_PVT','Record_PO_Approval',x_progress);
8383: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Record_PO_Approval');
8384: raise;
8385:
8386:
8379: WHEN OTHERS THEN
8380: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8381: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8382: wf_core.context('PO_ReqChangeRequestWF_PVT','Record_PO_Approval',x_progress);
8383: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Record_PO_Approval');
8384: raise;
8385:
8386:
8387: end Record_PO_Approval;
8410: l_preparer_user_name varchar2(100);
8411:
8412: BEGIN
8413:
8414: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_PO_Rejection';
8415:
8416:
8417: -- Do nothing in cancel or timeout mode
8418: if (funcmode <> wf_engine.eng_run) then
8438:
8439: END IF;
8440: SetPoRequestStatus(l_change_request_group_id, 'REJECTED');
8441:
8442: x_progress := 'PO_ReqChangeRequestWF_PVT.Record_PO_Rejection: 02';
8443:
8444: EXCEPTION
8445: WHEN OTHERS THEN
8446: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8444: EXCEPTION
8445: WHEN OTHERS THEN
8446: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8447: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8448: wf_core.context('PO_ReqChangeRequestWF_PVT','Record_PO_Rejection',x_progress);
8449: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Record_PO_Rejection');
8450: raise;
8451:
8452:
8445: WHEN OTHERS THEN
8446: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8447: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8448: wf_core.context('PO_ReqChangeRequestWF_PVT','Record_PO_Rejection',x_progress);
8449: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Record_PO_Rejection');
8450: raise;
8451:
8452:
8453: end Record_PO_Rejection;
8479: l_preparer_user_name varchar2(100);
8480:
8481: BEGIN
8482:
8483: x_progress := 'PO_ReqChangeRequestWF_PVT.Validate_Chg_Against_New_PO';
8484:
8485:
8486: -- Do nothing in cancel or timeout mode
8487: if (funcmode <> wf_engine.eng_run) then
8507:
8508: END IF;
8509: ValidateChgAgainstNewPO(l_change_request_group_id);
8510:
8511: x_progress := 'PO_ReqChangeRequestWF_PVT.Validate_Chg_Against_New_PO: 02';
8512:
8513: EXCEPTION
8514: WHEN OTHERS THEN
8515: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8513: EXCEPTION
8514: WHEN OTHERS THEN
8515: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8516: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8517: wf_core.context('PO_ReqChangeRequestWF_PVT','Validate_Chg_Against_New_PO',x_progress);
8518: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Validate_Chg_Against_New_PO'); raise;
8519:
8520:
8521: end Validate_Chg_Against_New_PO;
8514: WHEN OTHERS THEN
8515: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8516: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8517: wf_core.context('PO_ReqChangeRequestWF_PVT','Validate_Chg_Against_New_PO',x_progress);
8518: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Validate_Chg_Against_New_PO'); raise;
8519:
8520:
8521: end Validate_Chg_Against_New_PO;
8522:
8580: resultout := 'N';
8581: end if;
8582:
8583: exception when no_data_found then
8584: wf_core.context('PO_ReqChangeRequestWF_PVT','Any_Requester_Change','010');
8585: raise;
8586: when others then
8587: wf_core.context('PO_ReqChangeRequestWF_PVT','Any_Requester_Change',x_progress);
8588: raise;
8583: exception when no_data_found then
8584: wf_core.context('PO_ReqChangeRequestWF_PVT','Any_Requester_Change','010');
8585: raise;
8586: when others then
8587: wf_core.context('PO_ReqChangeRequestWF_PVT','Any_Requester_Change',x_progress);
8588: raise;
8589: END Any_Requester_Change;
8590:
8591: /*************************************************************************
8629: avalue => l_item_key );
8630:
8631:
8632: exception when others then
8633: wf_core.context('PO_ReqChangeRequestWF_PVT','set_data_sup_chn_evt',x_progress);
8634: raise;
8635: END Set_Data_Req_Chn_Evt;
8636:
8637:
9287: WHEN no_data_found THEN
9288: resultout := 'N';
9289:
9290: WHEN others THEN
9291: wf_core.context('PO_ReqChangeRequestWF_PVT','Any_Cancellation_Change',x_progress);
9292: raise;
9293: END Any_Cancellation_Change;
9294:
9295: /*************************************************************************
9539: x_new_total := l_new_total;
9540:
9541: EXCEPTION
9542: WHEN OTHERS THEN
9543: wf_core.context('PO_ReqChangeRequestWF_PVT','CalculateRcoTotal',x_progress||sqlerrm);
9544: raise;
9545:
9546:
9547: END CalculateRcoTotal;
9575: l_doc_string varchar2(200);
9576: l_preparer_user_name varchar2(100);
9577:
9578: BEGIN
9579: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr: 01';
9580:
9581: -- Do nothing in cancel or timeout mode
9582: if (funcmode <> wf_engine.eng_run) then
9583: resultout := wf_engine.eng_null;
9607: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
9608:
9609: END IF;
9610:
9611: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr: 02';
9612:
9613: IF l_doc_type IN ('PO','PA') THEN
9614:
9615: select creation_date, currency_code
9626: and pr.po_header_id = ph.po_header_id;
9627:
9628: END IF;
9629:
9630: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr: 03';
9631:
9632: -- get the order total (old/new)
9633: -- used by the approval notification
9634: CalculateRcoTotal( p_change_request_group_id => l_change_request_group_id,
9636: p_po_currency => l_po_currency,
9637: x_old_total =>l_old_total ,
9638: x_new_total =>l_new_total);
9639:
9640: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr: 04';
9641:
9642: -- set the order totals and the order date.
9643: -- These are used by approval notification
9644: PO_WF_UTIL_PKG.SetItemAttrDate ( itemtype => itemtype,
9660: FND_CURRENCY.GET_FORMAT_MASK(l_po_currency,
9661: g_currency_format_mask))
9662: || ' ' ||l_po_currency );
9663:
9664: x_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr: 05';
9665:
9666: EXCEPTION
9667: WHEN OTHERS THEN
9668: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
9667: WHEN OTHERS THEN
9668: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
9669: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(
9670: itemType, itemkey);
9671: wf_core.context('PO_ReqChangeRequestWF_PVT','Set_Buyer_Approval_Notfn_Attr',
9672: x_progress);
9673: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
9674: l_preparer_user_name, l_doc_string, sqlerrm,
9675: 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr');
9671: wf_core.context('PO_ReqChangeRequestWF_PVT','Set_Buyer_Approval_Notfn_Attr',
9672: x_progress);
9673: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey,
9674: l_preparer_user_name, l_doc_string, sqlerrm,
9675: 'PO_ReqChangeRequestWF_PVT.Set_Buyer_Approval_Notfn_Attr');
9676: raise;
9677:
9678: END Set_Buyer_Approval_Notfn_Attr;
9679:
9747:
9748: SetReqChangeFlag(l_change_request_group_id, l_req_document_id, itemtype, itemkey, 'N');
9749:
9750: EXCEPTION when others THEN
9751: wf_core.context('PO_ReqChangeRequestWF_PVT','Reject_Supplier_Change',x_progress);
9752: raise;
9753: END Reject_Supplier_Change;
9754:
9755: /*************************************************************************
9805:
9806: SetReqChangeFlag(l_change_request_group_id, l_document_id, itemtype, itemkey, 'N');
9807:
9808: EXCEPTION when others THEN
9809: wf_core.context('PO_ReqChangeRequestWF_PVT','Accept_Supplier_Change',x_progress);
9810: raise;
9811: END Accept_Supplier_Change;
9812:
9813: /*************************************************************************
9833: l_doc_string VARCHAR2(200);
9834: l_preparer_user_name varchar2(100);
9835: BEGIN
9836:
9837: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 01';
9838:
9839:
9840: -- Do nothing in cancel or timeout mode
9841: --
9845: return;
9846:
9847: end if;
9848:
9849: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 02';
9850:
9851: -- Set the multi-org context
9852: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
9853: itemkey => itemkey,
9852: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
9853: itemkey => itemkey,
9854: aname => 'ORG_ID');
9855:
9856: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 03';
9857:
9858: IF l_orgid is NOT NULL THEN
9859:
9860: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
9860: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
9861:
9862: END IF;
9863:
9864: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 04';
9865:
9866: l_po_chg_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
9867: itemtype => itemtype,
9868: itemkey => itemkey,
9867: itemtype => itemtype,
9868: itemkey => itemkey,
9869: aname => 'PO_CHANGE_REQUEST_GROUP_ID');
9870:
9871: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 05';
9872:
9873: StartInformBuyerWF(l_po_chg_request_group_id);
9874:
9875: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 06';
9871: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 05';
9872:
9873: StartInformBuyerWF(l_po_chg_request_group_id);
9874:
9875: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF: 06';
9876:
9877: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
9878:
9879: EXCEPTION
9879: EXCEPTION
9880: WHEN OTHERS THEN
9881: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
9882: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
9883: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_POChange_WF',x_progress);
9884: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF');
9885: raise;
9886:
9887: END Start_POChange_WF;
9880: WHEN OTHERS THEN
9881: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
9882: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
9883: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_POChange_WF',x_progress);
9884: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_ReqChangeRequestWF_PVT.Start_POChange_WF');
9885: raise;
9886:
9887: END Start_POChange_WF;
9888:
10006:
10007: resultout := wf_engine.eng_completed || ':' || l_result;
10008:
10009: EXCEPTION when others THEN
10010: wf_core.context('PO_ReqChangeRequestWF_PVT','Is_Tolerance_Check_Needed',l_progress);
10011: raise;
10012: END Is_Tolerance_Check_Needed;
10013:
10014: /*************************************************************************
10040: return;
10041:
10042: end if;
10043:
10044: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Po_To_Process: 01';
10045:
10046: l_po_chg_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
10047: itemtype => itemtype,
10048: itemkey => itemkey,
10047: itemtype => itemtype,
10048: itemkey => itemkey,
10049: aname => 'PO_CHANGE_REQUEST_GROUP_ID');
10050:
10051: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Po_To_Process: 02';
10052:
10053: l_change_request_grp_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
10054: itemtype => itemtype,
10055: itemkey => itemkey,
10054: itemtype => itemtype,
10055: itemkey => itemkey,
10056: aname => 'CHANGE_REQUEST_GROUP_ID');
10057:
10058: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Po_To_Process: 03';
10059:
10060: SELECT MIN(po_change.change_request_group_id)
10061: INTO l_next_po_grp_id
10062: FROM
10067: req_change.change_request_group_id = l_change_request_grp_id AND
10068: po_change.change_request_group_id > l_po_chg_request_group_id
10069: ORDER BY po_change.change_request_group_id;
10070:
10071: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Po_To_Process: 04';
10072:
10073: -- when next po change request group id is found
10074: IF (l_next_po_grp_id IS NOT NULL) THEN
10075:
10103:
10104: resultout := wf_engine.eng_completed || ':' || l_result;
10105:
10106: EXCEPTION when others THEN
10107: wf_core.context('PO_ReqChangeRequestWF_PVT','More_Po_To_Process',l_progress);
10108: raise;
10109: END More_Po_To_Process;
10110:
10111: /*************************************************************************
10147: return;
10148:
10149: end if;
10150:
10151: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 01';
10152:
10153: l_po_change_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber(
10154: itemtype => itemtype,
10155: itemkey => itemkey,
10154: itemtype => itemtype,
10155: itemkey => itemkey,
10156: aname => 'PO_CHANGE_REQUEST_GROUP_ID');
10157:
10158: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 02';
10159:
10160: SELECT document_type, decode(document_type, 'RELEASE', po_release_id, document_header_id), document_num
10161: INTO l_document_type, l_document_id, l_document_number
10162: FROM po_change_requests
10168: ELSE
10169: l_document_subtype:='STANDARD';
10170: END IF;
10171:
10172: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 03';
10173:
10174: IF l_document_type = 'PO' THEN
10175:
10176: SELECT agent_id, creation_date
10186: WHERE PO_RELEASE_ID = l_document_id;
10187:
10188: END IF;
10189:
10190: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 04';
10191:
10192: -- get Buyer's name
10193: PO_REQAPPROVAL_INIT1.get_user_name(l_buyer_id, l_buyer_name, l_buyer_display_name);
10194:
10209: itemkey => itemkey,
10210: aname => 'PO_DOCUMENT_NUMBER',
10211: avalue => l_document_number );
10212:
10213: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 05';
10214:
10215: -- update PO action history as accepted by buyer
10216: InsertActionHist(itemtype, itemkey, l_document_id, l_document_type,
10217: l_document_subtype, l_buyer_id, 'ACCEPT', '', null);
10215: -- update PO action history as accepted by buyer
10216: InsertActionHist(itemtype, itemkey, l_document_id, l_document_type,
10217: l_document_subtype, l_buyer_id, 'ACCEPT', '', null);
10218:
10219: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 06';
10220:
10221: -- set PO records status to 'BUYER_APP' with no reason
10222: SetPoRequestStatus(l_po_change_request_group_id, 'BUYER_APP', '');
10223:
10220:
10221: -- set PO records status to 'BUYER_APP' with no reason
10222: SetPoRequestStatus(l_po_change_request_group_id, 'BUYER_APP', '');
10223:
10224: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 07';
10225:
10226: -- handle cancellations
10227: ProcessBuyerAction(l_po_change_request_group_id, 'CANCELLATION');
10228:
10225:
10226: -- handle cancellations
10227: ProcessBuyerAction(l_po_change_request_group_id, 'CANCELLATION');
10228:
10229: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 08';
10230:
10231: -- check if there is any modifications. Request_Status column will
10232: -- be ACCEPTED here for cancellations. Since ProcessBuyerAction
10233: -- call in the previous line set cancellation rows to 'ACCEPTED'
10243: WHEN NO_DATA_FOUND THEN
10244: l_change_exists := FALSE;
10245: END;
10246:
10247: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 09';
10248:
10249: IF (l_change_exists) THEN
10250:
10251: -- update requisition, PO and kick PO approval wf
10250:
10251: -- update requisition, PO and kick PO approval wf
10252: ProcessBuyerAction(l_po_change_request_group_id, 'ACCEPTANCE');
10253:
10254: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 10';
10255:
10256: -- kick off PO approval
10257: KickOffPOApproval(l_po_header_id, l_po_release_id, l_return_status, l_return_msg);
10258:
10256: -- kick off PO approval
10257: KickOffPOApproval(l_po_header_id, l_po_release_id, l_return_status, l_return_msg);
10258:
10259: IF (l_return_status<>FND_API.G_RET_STS_SUCCESS) THEN
10260: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11-'||l_return_status||'-'||to_char(l_po_header_id)||'-'||to_char(l_po_release_id)||'-'||l_return_msg;
10261: raise l_exception;
10262: else
10263: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11';
10264: end if;
10259: IF (l_return_status<>FND_API.G_RET_STS_SUCCESS) THEN
10260: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11-'||l_return_status||'-'||to_char(l_po_header_id)||'-'||to_char(l_po_release_id)||'-'||l_return_msg;
10261: raise l_exception;
10262: else
10263: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11';
10264: end if;
10265: END IF;
10266:
10267: EXCEPTION when others THEN
10264: end if;
10265: END IF;
10266:
10267: EXCEPTION when others THEN
10268: wf_core.context('PO_ReqChangeRequestWF_PVT','Accept_Po_Changes',l_progress);
10269: raise;
10270: END Accept_Po_Changes;
10271:
10272: /*************************************************************************
10292: l_orgid number;
10293:
10294: BEGIN
10295:
10296: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 01';
10297:
10298: -- Do nothing in cancel or timeout mode
10299: if (funcmode <> wf_engine.eng_run) then
10300: resultout := wf_engine.eng_null;
10300: resultout := wf_engine.eng_null;
10301: return;
10302: end if;
10303:
10304: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 02';
10305:
10306: l_po_doc_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
10307: itemkey => itemkey,
10308: aname => 'CURRENT_PO_HEADER_ID');
10310: l_po_doc_type := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
10311: itemkey => itemkey,
10312: aname => 'PO_DOCUMENT_TYPE');
10313:
10314: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 03';
10315:
10316: -- get po/release currency
10317: IF l_po_doc_type IN ('PO','PA') THEN
10318:
10330: and pr.po_header_id = ph.po_header_id;
10331:
10332: END IF;
10333:
10334: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 04';
10335:
10336: l_po_chg_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
10337: itemtype => itemtype,
10338: itemkey => itemkey,
10337: itemtype => itemtype,
10338: itemkey => itemkey,
10339: aname => 'PO_CHANGE_REQUEST_GROUP_ID');
10340:
10341: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 05';
10342:
10343: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
10344: itemkey => itemkey,
10345: aname => 'ORG_ID');
10351: p_po_currency => l_po_currency,
10352: x_old_total =>l_old_total ,
10353: x_new_total =>l_new_total);
10354:
10355: l_progress := 'PO_ReqChangeRequestWF_PVT.Set_Buyer_FYI_Notif_Attributes: 06';
10356:
10357: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemtype,
10358: itemkey => itemkey,
10359: aname => 'OLD_PO_TOTAL',
10366: avalue =>
10367: to_char(l_new_total, FND_CURRENCY.GET_FORMAT_MASK(l_po_currency, 30)) || ' ' || l_po_currency);
10368:
10369: EXCEPTION when others THEN
10370: wf_core.context('PO_ReqChangeRequestWF_PVT','Set_Buyer_FYI_Notif_Attributes',l_progress);
10371: raise;
10372: END Set_Buyer_FYI_Notif_Attributes;
10373:
10374: /*************************************************************************
10920: return;
10921:
10922: END IF;
10923:
10924: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Req_To_Process: 01';
10925:
10926: l_req_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
10927: itemtype => itemtype,
10928: itemkey => itemkey,
10927: itemtype => itemtype,
10928: itemkey => itemkey,
10929: aname => 'REQ_CHANGE_GROUP_ID');
10930:
10931: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Req_To_Process: 02';
10932:
10933: l_po_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
10934: itemtype => itemtype,
10935: itemkey => itemkey,
10934: itemtype => itemtype,
10935: itemkey => itemkey,
10936: aname => 'CHANGE_REQUEST_GROUP_ID');
10937:
10938: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Req_To_Process: 03';
10939:
10940: SELECT MIN(req_change.change_request_group_id)
10941: INTO l_next_req_grp_id
10942: FROM
10946: po_change.change_request_group_id = l_po_request_group_id AND
10947: po_change.parent_change_request_id = req_change.change_request_id AND
10948: req_change.change_request_group_id > l_req_request_group_id;
10949:
10950: l_progress := 'PO_ReqChangeRequestWF_PVT.More_Req_To_Process: 04';
10951:
10952: -- when next po change request group id is found
10953: IF (l_next_req_grp_id IS NOT NULL) THEN
10954:
10976:
10977: resultout := wf_engine.eng_completed || ':' || l_result;
10978:
10979: EXCEPTION when others THEN
10980: wf_core.context('PO_ReqChangeRequestWF_PVT','More_Req_To_Process',l_progress);
10981: raise;
10982: END More_Req_To_Process;
10983:
10984: /*************************************************************************
10999: l_po_change_request_group_id NUMBER;
11000: l_progress VARCHAR2(100);
11001: BEGIN
11002:
11003: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_Notify_Requester_Process : 01';
11004:
11005: IF (funcmode <> wf_engine.eng_run) THEN
11006: resultout := wf_engine.eng_null;
11007: return;
11011: l_orgid := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
11012: itemkey => itemkey,
11013: aname => 'ORG_ID');
11014:
11015: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_Notify_Requester_Process: 02';
11016:
11017: IF l_orgid is NOT NULL THEN
11018: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
11019: END IF;
11017: IF l_orgid is NOT NULL THEN
11018: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
11019: END IF;
11020:
11021: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_Notify_Requester_Process: 03';
11022:
11023: l_po_change_request_group_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
11024: itemtype => itemtype,
11025: itemkey => itemkey,
11026: aname => 'PO_CHANGE_REQUEST_GROUP_ID');
11027:
11028: Start_NotifyRequesterProcess(l_po_change_request_group_id, itemtype, itemkey);
11029:
11030: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_Notify_Requester_Process: 04';
11031:
11032: EXCEPTION when others THEN
11033: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_Notify_Requester_Process',l_progress || 'SQL ERROR:' || sqlerrm);
11034: RAISE;
11029:
11030: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_Notify_Requester_Process: 04';
11031:
11032: EXCEPTION when others THEN
11033: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_Notify_Requester_Process',l_progress || 'SQL ERROR:' || sqlerrm);
11034: RAISE;
11035: END Start_Notify_Requester_Process;
11036:
11037: /*************************************************************************
11057: l_responsibility_id NUMBER;
11058:
11059: BEGIN
11060:
11061: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_NotifyRequesterProcess: 01' || ' P_PO_CHANGE_REQUEST_GROUP_ID:' || p_po_change_request_group_id;
11062:
11063: SELECT po_requester_change_wf_s.nextval INTO l_count FROM dual;
11064:
11065: l_item_key:='NOTIFREQ_'||to_char(p_po_change_request_group_id)||'_'||to_char(l_count);
11063: SELECT po_requester_change_wf_s.nextval INTO l_count FROM dual;
11064:
11065: l_item_key:='NOTIFREQ_'||to_char(p_po_change_request_group_id)||'_'||to_char(l_count);
11066:
11067: l_progress := 'PO_ReqChangeRequestWF_PVT.Start_NotifyRequesterProcess: 02' || ' ITEM KEY:' || l_item_key;
11068:
11069: l_forward_from_username:= PO_WF_UTIL_PKG.GetItemAttrText(
11070: itemtype=>p_req_item_type,
11071: itemkey=>p_req_item_key,
11087:
11088: StartPOChangeWF(p_po_change_request_group_id, l_item_key, 'NOTIFY_REQUESTER_PROCESS', l_forward_from_username, l_user_id, l_responsibility_id, l_application_id);
11089:
11090: EXCEPTION when others THEN
11091: wf_core.context('PO_ReqChangeRequestWF_PVT','Start_NotifyRequesterProcess',l_progress || 'SQL ERROR:' || sqlerrm);
11092: RAISE;
11093: END Start_NotifyRequesterProcess;
11094:
11095:
11366:
11367: EXCEPTION
11368: WHEN OTHERS THEN
11369:
11370: wf_core.context('PO_ReqChangeRequestWF_PVT',
11371: 'get_po_line_amount',l_progress||'-'||sqlerrm);
11372:
11373: raise;
11374:
11703: EXCEPTION
11704: WHEN OTHERS THEN
11705: l_doc_string := po_reqapproval_init1.get_error_doc(itemtype, itemkey);
11706: l_preparer_user_name := po_reqapproval_init1.get_preparer_user_name(itemtype, itemkey);
11707: wf_core.context('PO_ReqChangeRequestWF_PVT', 'Convert_Into_sO_Change', x_progress);
11708: po_reqapproval_init1.send_error_notif(itemtype, itemkey, l_preparer_user_name, l_doc_string, SQLERRM, 'PO_ReqChangeRequestWF_PVT.Convert_Into_sO_Change'||l_return_status||l_return_msg);
11709: RAISE;
11710:
11711: END convert_into_so_change;
11704: WHEN OTHERS THEN
11705: l_doc_string := po_reqapproval_init1.get_error_doc(itemtype, itemkey);
11706: l_preparer_user_name := po_reqapproval_init1.get_preparer_user_name(itemtype, itemkey);
11707: wf_core.context('PO_ReqChangeRequestWF_PVT', 'Convert_Into_sO_Change', x_progress);
11708: po_reqapproval_init1.send_error_notif(itemtype, itemkey, l_preparer_user_name, l_doc_string, SQLERRM, 'PO_ReqChangeRequestWF_PVT.Convert_Into_sO_Change'||l_return_status||l_return_msg);
11709: RAISE;
11710:
11711: END convert_into_so_change;
11712:
11774: --calling the OM API for hold if called from reqschedule program
11775:
11776: IF (p_mode = 'REQ_RESCHEDULE' ) THEN
11777: /* -- This proc gets called as
11778: PO_ReqChangeRequestWF_PVT.ConvertIntoSOChange(
11779: p_chn_request_group_id => null,
11780: p_document_header_id => null,
11781: p_document_line_id => l_document_line_id,
11782: p_document_num => null,
12002: IF l_orgid is NOT NULL THEN
12003: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
12004: END IF;
12005:
12006: wf_core.context('PO_ReqChangeRequestWF_PVT', 'ConvertIntoSOChange '||l_return_status, l_progress);
12007: ROLLBACK TO convertintosochange_SP;
12008: RAISE;
12009: END ConvertIntoSOChange;
12010:
12489:
12490:
12491: BEGIN
12492: --INTERNAL_CHANGE_REQUEST_ID
12493: x_progress := 'PO_ReqChangeRequestWF_PVT.SEND_INTERNAL_NOTIF: 01';
12494:
12495: -- Do nothing in cancel or timeout mode
12496: IF (funcmode <> wf_engine.eng_run) THEN
12497: resultout := wf_engine.eng_null;
12632: l_doc_string VARCHAR2(200);
12633: l_preparer_user_name VARCHAR2(100);
12634: BEGIN
12635: --INTERNAL_CHANGE_REQUEST_ID
12636: x_progress := 'PO_ReqChangeRequestWF_PVT.NEXT_INTERNAL_NOTIF: 01';
12637:
12638: -- Do nothing in cancel or timeout mode
12639: IF (funcmode <> wf_engine.eng_run) THEN
12640: resultout := wf_engine.eng_null;
12689: RAISE;
12690:
12691: END NEXT_INTERNAL_NOTIF;
12692:
12693: end PO_ReqChangeRequestWF_PVT;