[Home] [Help]
761: l_draft_type PO_DRAFTS.DRAFT_TYPE%TYPE;
762: BEGIN
763: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: at beginning of Start_WF_Process';
764: IF (g_po_wf_debug = 'Y') THEN
765: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
766: END IF;
767: --
768: -- Start Process :
769: -- - If a process is passed then it will be run
831: IF ((p_xml_flag IS NOT NULL) AND ((DocumentTypeCode='RELEASE' AND DocumentSubtype='BLANKET') OR (DocumentTypeCode='PO' AND DocumentSubtype='STANDARD'))) THEN
832: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Updating the xml_flag: ' || p_xml_flag;
833: IF (g_po_wf_debug = 'Y') THEN
834: /* DEBUG */
835: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
836: END IF;
837: IF (p_xml_flag = 'Y') THEN
838: IF (DocumentTypeCode = 'RELEASE') THEN
839: UPDATE po_releases_all
872: END IF;
873:
874: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: draft Type : ' || l_draft_type;
875: IF (g_po_wf_debug = 'Y') THEN
876: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
877: END IF;
878:
879: -- Made changes for PO AME commercial project.
880: IF l_draft_type IS NULL THEN --l_is_mod = 'N' THEN
996: instead of NULL in case of CANCEL, will use the same in the workflow
997: to skip the PO_APPROVED notification ,when wf is called from cancel.
998: */
999: x_progress := 'start wf process called interface source code:'||ActionOriginatedFrom;
1000: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1001: IF (ActionOriginatedFrom = 'CANCEL') THEN
1002: -- If approval workflow is being called from a Cancel action, then
1003: -- do not insert into action history.
1004: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => l_itemtype , itemkey => l_itemkey , aname => 'INSERT_ACTION_HIST_FLAG' , avalue => 'N' );
1020: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => l_itemtype , itemkey => l_itemkey , aname => 'INITIATOR' , avalue => p_Initiator );
1021: END IF;
1022: --
1023: x_progress := 'Document_ID:'||DocumentID||'Document_Type :'|| DocumentTypeCode||'Document_Subtype :'||DocumentSubtype||'AmeTransactionType: '||l_ame_transaction_type;
1024: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1025: PO_WF_UTIL_PKG.SetItemAttrNumber ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_ID', avalue => DocumentID);
1026: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_TYPE', avalue => DocumentTypeCode);
1027: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'DOCUMENT_SUBTYPE', avalue => DocumentSubtype);
1028: --
1042: IF (DocumentTypeCode = 'PO' OR DocumentTypeCode = 'PA') AND l_ame_transaction_type is not NULL THEN
1043: x_progress := 'PO_REQAPPROVAL_INIT1.setting notifictaion regions ' ;
1044:
1045: IF (g_po_wf_debug = 'Y') THEN
1046: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1047: END IF;
1048:
1049: po_wf_util_pkg.setitemattrtext ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'NOTIFICATION_REGION', avalue => 'JSP:/OA_HTML/OA.jsp?OAFunc=PO_APPRV_NOTIF&poHeaderId=' || DocumentID);
1050: po_wf_util_pkg.setitemattrtext ( itemtype => l_itemtype, itemkey => l_itemkey, aname => '#HISTORY', avalue => 'JSP:/OA_HTML/OA.jsp?OAFunc=PO_APPRV_NTF_ACTION_DETAILS&poHeaderId=' || DocumentID || '&showActions=Y');
1116: END IF;
1117: END IF; -- DocumentTypeCode IN ('PO', 'PA') if condition
1118: --END of code changes as part of bug 15989068 fix
1119:
1120: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,'l_modification_number: '||l_modification_number);
1121: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'MODIFICATION_NUMBER', avalue => l_modification_number);
1122: /*Document Numbering End*/
1123: /* Bug6708182 FPDS-NG ER. */
1124: /* Bug 6708182 Start */
1572: PO_CHORD_WF6.Set_Wf_Release_Tol(l_itemtype, l_itemkey , DocumentSubtype);
1573: END IF;
1574: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to FND_PROFILE';
1575: IF (g_po_wf_debug = 'Y') THEN
1576: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1577: END IF;
1578: /* Get the USER_ID and the RESPONSIBLITY_ID for the current forms session.
1579: ** This will be used in later calls to APPS_INITIALIZE(), before calling
1580: ** the Document Manager.
1638: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'BYPASS_CHECKS_FLAG', avalue => p_bypass_checks_flag);
1639:
1640: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to wf_engine.StartProcess()' || ' parameter DefaultApprovalPathID= ' || TO_CHAR(DefaultApprovalPathID);
1641: IF (g_po_wf_debug = 'Y') THEN
1642: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1643: END IF;
1644: --
1645: wf_engine.StartProcess( itemtype => l_itemtype, itemkey => l_itemkey );
1646: END IF;
1648: WHEN OTHERS THEN
1649: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: In Exception handler';
1650: IF (g_po_wf_debug = 'Y') THEN
1651: /* DEBUG */
1652: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1653: END IF;
1654: po_message_s.sql_error('In Exception of Start_WF_Process()', x_progress, SQLCODE);
1655: RAISE;
1656: END Start_WF_Process;
1726:
1727: BEGIN
1728: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 01';
1729: IF (g_po_wf_debug = 'Y') THEN
1730: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1731: END IF;
1732: -- Do nothing in cancel or timeout mode
1733: --
1734: IF (funcmode <> wf_engine.eng_run) THEN
1900: l_view_po_url := get_po_url(p_po_header_id => l_document_id, p_doc_subtype => l_doc_subtype, p_mode => 'viewOnly');
1901: END IF;
1902: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url viewOnly' || 'l_view_po_url ::'|| l_view_po_url;
1903: IF (g_po_wf_debug = 'Y') THEN
1904: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1905: END IF;
1906: IF NVL(l_can_modify_flag,'N') = 'Y' THEN
1907: /*Bug 7125551, edit document link should not be available if approver can modify is
1908: unchecked for the document type.*/
1913: l_edit_po_url := get_po_url(p_po_header_id => l_document_id, p_doc_subtype => l_doc_subtype, p_mode => 'update');
1914: END IF;
1915: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url update' || 'l_edit_po_url ::'|| l_edit_po_url;
1916: IF (g_po_wf_debug = 'Y') THEN
1917: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1918: END IF;
1919: ELSE
1920: l_edit_po_url := NULL;
1921: END IF;
2105: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2106: --
2107: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 03'|| 'Open Form Command= ' || l_open_form;
2108: IF (g_po_wf_debug = 'Y') THEN
2109: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2110: END IF;
2111: EXCEPTION
2112: WHEN OTHERS THEN
2113: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2137: BEGIN
2138: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 01';
2139: IF (g_po_wf_debug = 'Y') THEN
2140: /* DEBUG */
2141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2142: END IF;
2143: -- Do nothing in cancel or timeout mode
2144: --
2145: IF (funcmode <> wf_engine.eng_run) THEN
2162: --
2163: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 02';
2164: IF (g_po_wf_debug = 'Y') THEN
2165: /* DEBUG */
2166: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2167: END IF;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2238: --
2239: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2240: IF (g_po_wf_debug = 'Y') THEN
2241: /* DEBUG */
2242: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2243: END IF;
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2304: --
2305: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 02';
2306: IF (g_po_wf_debug = 'Y') THEN
2307: /* DEBUG */
2308: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2309: END IF;
2310: EXCEPTION
2311: WHEN OTHERS THEN
2312: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2339: BEGIN
2340: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 01';
2341: IF (g_po_wf_debug = 'Y') THEN
2342: /* DEBUG */
2343: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2344: END IF;
2345: -- Do nothing in cancel or timeout mode
2346: --
2347: IF (funcmode <> wf_engine.eng_run) THEN
2382: -- Adding the new parameter Draft Id
2383: SetPOAuthStat(l_document_id, itemtype, itemkey, l_note, 'IN PROCESS', l_draft_id);
2384: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02 unlock document';
2385: IF (g_po_wf_debug = 'Y') THEN
2386: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2387: END IF;
2388: IF l_draft_id = -1 THEN
2389: -- Mod Project
2390: -- Unlock document deletes the draft records , that is needed only for
2402: --
2403: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2404: IF (g_po_wf_debug = 'Y') THEN
2405: /* DEBUG */
2406: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2407: END IF;
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2437: BEGIN
2438: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 01';
2439: IF (g_po_wf_debug = 'Y') THEN
2440: /* DEBUG */
2441: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2442: END IF;
2443: -- Do nothing in cancel or timeout mode
2444: --
2445: IF (funcmode <> wf_engine.eng_run) THEN
2467: x_progress := x_progress || l_doc_id || '- DOCUMENT_ID';
2468: x_progress := x_progress || l_draft_id || '- DRAFT_ID';
2469: IF (g_po_wf_debug = 'Y') THEN
2470: /* DEBUG */
2471: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2472: END IF;
2473: /* If the doc is APPROVED then don't reset the status. We should
2474: ** not run into this case. But this is to prevent any problems
2475: */
2511: END IF;
2512: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 02' || ' Auth_status= ' || l_auth_stat || ', Orig_auth_stat= ' || l_orig_auth_stat;
2513: IF (g_po_wf_debug = 'Y') THEN
2514: /* DEBUG */
2515: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2516: END IF;
2517: -- Bug 3845048: Added the code to update the action history with 'no action'
2518: -- so that the action history code is completed properly when the document
2519: -- is returned to the submitter, in case of no approver found or time out
2519: -- is returned to the submitter, in case of no approver found or time out
2520: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 03' || 'Update Action History' || 'Action Code = No Action';
2521: IF (g_po_wf_debug = 'Y') THEN
2522: /* DEBUG */
2523: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2524: END IF;
2525: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2526: EXCEPTION
2527: WHEN OTHERS THEN
2553: BEGIN
2554: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 01';
2555: IF (g_po_wf_debug = 'Y') THEN
2556: /* DEBUG */
2557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2558: END IF;
2559: -- Do nothing in cancel or timeout mode
2560: --
2561: IF (funcmode <> wf_engine.eng_run) THEN
2581: --
2582: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 02';
2583: IF (g_po_wf_debug = 'Y') THEN
2584: /* DEBUG */
2585: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2586: END IF;
2587: EXCEPTION
2588: WHEN OTHERS THEN
2589: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2615: BEGIN
2616: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 01';
2617: IF (g_po_wf_debug = 'Y') THEN
2618: /* DEBUG */
2619: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2620: END IF;
2621: -- Do nothing in cancel or timeout mode
2622: --
2623: IF (funcmode <> wf_engine.eng_run) THEN
2648: END IF;
2649: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 02';
2650: IF (g_po_wf_debug = 'Y') THEN
2651: /* DEBUG */
2652: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2653: END IF;
2654: EXCEPTION
2655: WHEN OTHERS THEN
2656: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2718: BEGIN
2719: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 01';
2720: IF (g_po_wf_debug = 'Y') THEN
2721: /* DEBUG */
2722: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2723: END IF;
2724: -- Do nothing in cancel or timeout mode
2725: --
2726: IF (funcmode <> wf_engine.eng_run) THEN
2771: END IF;
2772: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 02' || ' Authorization_status= ' || l_auth_stat ;
2773: IF (g_po_wf_debug = 'Y') THEN
2774: /* DEBUG */
2775: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2776: END IF;
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2814: BEGIN
2815: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 01';
2816: IF (g_po_wf_debug = 'Y') THEN
2817: /* DEBUG */
2818: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2819: END IF;
2820: -- Do nothing in cancel or timeout mode
2821: --
2822: IF (funcmode <> wf_engine.eng_run) THEN
2865: --
2866: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
2867: IF (g_po_wf_debug = 'Y') THEN
2868: /* DEBUG */
2869: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2870: END IF;
2871: EXCEPTION
2872: WHEN OTHERS THEN
2873: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2963: --
2964: x_progress := 'PO_REQAPPROVAL_INIT1.Set_End_Valid_Action: RESULT=VALID_ACTION';
2965: IF (g_po_wf_debug = 'Y') THEN
2966: /* DEBUG */
2967: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2968: END IF;
2969: END Set_End_Valid_Action;
2970: --
2971: -- Set_End_Invalid_Action
3065: --
3066: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 01';
3067: IF (g_po_wf_debug = 'Y') THEN
3068: /* DEBUG */
3069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3070: END IF;
3071: ELSE
3072: --
3073: resultout := wf_engine.eng_completed || ':' || 'N' ;
3074: --
3075: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 02';
3076: IF (g_po_wf_debug = 'Y') THEN
3077: /* DEBUG */
3078: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3079: END IF;
3080: END IF;
3081: EXCEPTION
3082: WHEN OTHERS THEN
3137: END IF;
3138: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit.l_document_id=' || l_document_id || ', l_is_clm_doc=' || l_is_clm_doc ;
3139: IF (g_po_wf_debug = 'Y') THEN
3140: /* DEBUG */
3141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3142: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'l_reserve_at_compl=' || l_reserve_at_compl );
3143: END IF;
3144: /* <
3145: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3138: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit.l_document_id=' || l_document_id || ', l_is_clm_doc=' || l_is_clm_doc ;
3139: IF (g_po_wf_debug = 'Y') THEN
3140: /* DEBUG */
3141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3142: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'l_reserve_at_compl=' || l_reserve_at_compl );
3143: END IF;
3144: /* <
3145: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3146: /*Bug 8520350 - Removing the check on OWNER_CAN_APPROVE.Since the two are not interdependent */
3150: --
3151: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 01';
3152: IF (g_po_wf_debug = 'Y') THEN
3153: /* DEBUG */
3154: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3155: END IF;
3156: ELSE
3157: --
3158: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3159: --
3160: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 02';
3161: IF (g_po_wf_debug = 'Y') THEN
3162: /* DEBUG */
3163: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3164: END IF;
3165: END IF;
3166: EXCEPTION
3167: WHEN OTHERS THEN
3220: BEGIN
3221: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 01';
3222: IF (g_po_wf_debug = 'Y') THEN
3223: /* DEBUG */
3224: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3225: END IF;
3226: -- Do nothing in cancel or timeout mode
3227: --
3228: IF (funcmode <> wf_engine.eng_run) THEN
3292: resultout := wf_engine.eng_completed ;
3293: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 02.';
3294: IF (g_po_wf_debug = 'Y') THEN
3295: /* DEBUG */
3296: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3297: END IF;
3298: EXCEPTION
3299: WHEN OTHERS THEN
3300: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3319: BEGIN
3320: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 01';
3321: IF (g_po_wf_debug = 'Y') THEN
3322: /* DEBUG */
3323: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3324: END IF;
3325: -- Do nothing in cancel or timeout mode
3326: --
3327: IF (funcmode <> wf_engine.eng_run) THEN
3338: --
3339: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 02. Result= ' || l_print_doc;
3340: IF (g_po_wf_debug = 'Y') THEN
3341: /* DEBUG */
3342: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3343: END IF;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3366: BEGIN
3367: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 01';
3368: IF (g_po_wf_debug = 'Y') THEN
3369: /* DEBUG */
3370: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3371: END IF;
3372: -- Do nothing in cancel or timeout mode
3373: --
3374: IF (funcmode <> wf_engine.eng_run) THEN
3385: --
3386: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 02. Result= ' || l_fax_doc;
3387: IF (g_po_wf_debug = 'Y') THEN
3388: /* DEBUG */
3389: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3390: END IF;
3391: EXCEPTION
3392: WHEN OTHERS THEN
3393: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3418: BEGIN
3419: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 01';
3420: IF (g_po_wf_debug = 'Y') THEN
3421: /* DEBUG */
3422: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3423: END IF;
3424: -- Do nothing in cancel or timeout mode
3425: IF (funcmode <> wf_engine.eng_run) THEN
3426: resultout := wf_engine.eng_null;
3463: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
3464: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 02. Result= ' || l_create_sr_asl;
3465: IF (g_po_wf_debug = 'Y') THEN
3466: /* DEBUG */
3467: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3468: END IF;
3469: EXCEPTION
3470: WHEN OTHERS THEN
3471: l_create_sr_asl := 'N';
3492: BEGIN
3493: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 01';
3494: IF (g_po_wf_debug = 'Y') THEN
3495: /* DEBUG */
3496: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3497: END IF;
3498: -- Do nothing in cancel or timeout mode
3499: --
3500: IF (funcmode <> wf_engine.eng_run) THEN
3516: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3517: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 02. Result= ' || l_send_notif;
3518: IF (g_po_wf_debug = 'Y') THEN
3519: /* DEBUG */
3520: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3521: END IF;
3522: EXCEPTION
3523: WHEN OTHERS THEN
3524: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3553: BEGIN
3554: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 01';
3555: IF (g_po_wf_debug = 'Y') THEN
3556: /* DEBUG */
3557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3558: END IF;
3559: -- Do nothing in cancel or timeout mode
3560: --
3561: IF (funcmode <> wf_engine.eng_run) THEN
3592: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3593: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
3594: IF (g_po_wf_debug = 'Y') THEN
3595: /* DEBUG */
3596: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3597: END IF;
3598: EXCEPTION
3599: WHEN OTHERS THEN
3600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3626: BEGIN
3627: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 01';
3628: IF (g_po_wf_debug = 'Y') THEN
3629: /* DEBUG */
3630: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3631: END IF;
3632: -- Do nothing in cancel or timeout mode
3633: --
3634: IF (funcmode <> wf_engine.eng_run) THEN
3649: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3650: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 02. Result= ' || l_send_notif;
3651: IF (g_po_wf_debug = 'Y') THEN
3652: /* DEBUG */
3653: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3654: END IF;
3655: EXCEPTION
3656: WHEN OTHERS THEN
3657: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3907: BEGIN
3908: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 01';
3909: IF (g_po_wf_debug = 'Y') THEN
3910: /* DEBUG */
3911: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3912: END IF;
3913: -- Do nothing in cancel or timeout mode
3914: --
3915: IF (funcmode <> wf_engine.eng_run) THEN
4081: resultout := wf_engine.eng_completed || ':' || l_email_doc ;
4082: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 02. Result= ' || l_email_doc;
4083: IF (g_po_wf_debug = 'Y') THEN
4084: /* DEBUG */
4085: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4086: END IF;
4087: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4088: EXCEPTION
4089: WHEN OTHERS THEN
4113: BEGIN
4114: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 01';
4115: IF (g_po_wf_debug = 'Y') THEN
4116: /* DEBUG */
4117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4118: END IF;
4119: -- Do nothing in cancel or timeout mode
4120: --
4121: IF (funcmode <> wf_engine.eng_run) THEN
4158: BEGIN
4159: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 01';
4160: IF (g_po_wf_debug = 'Y') THEN
4161: /* DEBUG */
4162: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4163: END IF;
4164: -- Do nothing in cancel or timeout mode
4165: --
4166: IF (funcmode <> wf_engine.eng_run) THEN
4213: BEGIN
4214: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 01';
4215: IF (g_po_wf_debug = 'Y') THEN
4216: /* DEBUG */
4217: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4218: END IF;
4219: -- Do nothing in cancel or timeout mode
4220: --
4221: IF (funcmode <> wf_engine.eng_run) THEN
4261: END IF;
4262: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 02. Result=' || x_resultout;
4263: IF (g_po_wf_debug = 'Y') THEN
4264: /* DEBUG */
4265: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress );
4266: END IF;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4293: BEGIN
4294: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: 01';
4295: IF (g_po_wf_debug = 'Y') THEN
4296: /* DEBUG */
4297: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4298: END IF;
4299: -- Do nothing in cancel or timeout mode
4300: --
4301: IF (funcmode <> wf_engine.eng_run) THEN
4315: END IF;
4316: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' || 'Create PO Mode= ' || l_create_po_mode;
4317: IF (g_po_wf_debug = 'Y') THEN
4318: /* DEBUG */
4319: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4320: END IF;
4321: EXCEPTION
4322: WHEN OTHERS THEN
4323: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4349: /* get the profile PO_WORKFLOW_APPROVAL_MODE and return the value */
4350: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: 01';
4351: IF (g_po_wf_debug = 'Y') THEN
4352: /* DEBUG */
4353: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4354: END IF;
4355: -- Do nothing in cancel or timeout mode
4356: --
4357: IF (funcmode <> wf_engine.eng_run) THEN
4371: END IF;
4372: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' || 'Approval Mode= ' || l_approval_mode;
4373: IF (g_po_wf_debug = 'Y') THEN
4374: /* DEBUG */
4375: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4376: END IF;
4377: EXCEPTION
4378: WHEN OTHERS THEN
4379: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4419: BEGIN
4420: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 01';
4421: IF (g_po_wf_debug = 'Y') THEN
4422: /* DEBUG */
4423: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4424: END IF;
4425: /* Fetch the Req Header, then set the attributes. */
4426: OPEN GetRecHdr_csr(p_requisition_header_id);
4427: FETCH GetRecHdr_csr INTO ReqHdr_rec;
4429: CLOSE GetRecHdr_csr;
4430: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 02';
4431: IF (g_po_wf_debug = 'Y') THEN
4432: /* DEBUG */
4433: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4434: END IF;
4435: SetReqHdrAttributes(itemtype, itemkey);
4436: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 03';
4437: IF (g_po_wf_debug = 'Y') THEN
4435: SetReqHdrAttributes(itemtype, itemkey);
4436: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 03';
4437: IF (g_po_wf_debug = 'Y') THEN
4438: /* DEBUG */
4439: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4440: END IF;
4441: EXCEPTION
4442: WHEN OTHERS THEN
4443: wf_core.context('PO_REQAPPROVAL_INIT1','GetReqAttributes',x_progress);
4512:
4513: l_progress := 'getReqAmountInfo:' || l_rate_type;
4514: IF (g_po_wf_debug = 'Y') THEN
4515: /* DEBUG */
4516: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4517: END IF;
4518: l_approver_user_name := PO_WF_UTIL_PKG.GetItemAttrText(itemtype=>itemtype, itemkey=>itemkey, aname=>'APPROVER_USER_NAME');
4519: IF (l_approver_user_name IS NOT NULL) THEN
4520: SELECT user_id
4524:
4525: l_progress := 'getReqAmountInfo:' || l_user_id;
4526: IF (g_po_wf_debug = 'Y') THEN
4527: /* DEBUG */
4528: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4529: END IF;
4530: l_approval_currency := FND_PROFILE.VALUE_SPECIFIC('ICX_PREFERRED_CURRENCY', l_user_id);
4531: END IF;
4532: IF (l_approval_currency = p_function_currency OR l_approver_user_name IS NULL OR l_rate_type IS NULL OR l_approval_currency IS NULL) THEN
4537: END IF;
4538: l_progress := 'getReqAmountInfo:' || l_approval_currency;
4539: IF (g_po_wf_debug = 'Y') THEN
4540: /* DEBUG */
4541: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4542: END IF;
4543: gl_currency_api.get_closest_triangulation_rate(
4544: x_from_currency => p_function_currency, x_to_currency => l_approval_currency,
4545: x_conversion_date => sysdate, x_conversion_type => l_rate_type, x_max_roll_days => 5,
4546: x_denominator => l_denominator_rate, x_numerator => l_numerator_rate, x_rate => l_rate);
4547: l_progress := 'getReqAmountInfo:' || substrb(TO_CHAR(l_rate), 1, 30);
4548: IF (g_po_wf_debug = 'Y') THEN
4549: /* DEBUG */
4550: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4551: END IF;
4552: /* setting amount for notification subject */
4553: l_amount_approval_currency := (p_total_amount/l_denominator_rate) * l_numerator_rate;
4554: l_amount_disp := TO_CHAR(l_amount_approval_currency, FND_CURRENCY.GET_FORMAT_MASK(l_approval_currency,g_currency_format_mask));
4558: l_amount_disp := TO_CHAR(l_amount_approval_currency, FND_CURRENCY.GET_FORMAT_MASK(l_approval_currency,g_currency_format_mask));
4559: l_progress := 'getReqAmountInfo:' || l_amount_disp;
4560: IF (g_po_wf_debug = 'Y') THEN
4561: /* DEBUG */
4562: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4563: END IF;
4564: x_amount_for_header := p_req_amount_disp || ' ' || p_function_currency;
4565: x_amount_for_header := x_amount_for_header || ' (' || l_amount_disp || ' ' || l_approval_currency || ')';
4566: l_amount_approval_currency := (p_tax_amount/l_denominator_rate) * l_numerator_rate;
4571: WHEN gl_currency_api.no_rate THEN
4572: l_progress := 'getReqAmountInfo: no rate';
4573: IF (g_po_wf_debug = 'Y') THEN
4574: /* DEBUG */
4575: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4576: END IF;
4577: x_amount_for_subject := p_req_amount_disp || ' ' || p_function_currency;
4578: l_no_rate_msg := fnd_message.get_string('PO', 'PO_WF_NOTIF_NO_RATE');
4579: l_no_rate_msg := REPLACE (l_no_rate_msg, 'CURRENCY', l_approval_currency);
4584: WHEN OTHERS THEN
4585: l_progress := 'getReqAmountInfo:' || substrb(SQLERRM, 1,200);
4586: IF (g_po_wf_debug = 'Y') THEN
4587: /* DEBUG */
4588: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
4589: END IF;
4590: x_amount_for_subject := p_req_amount_disp || ' ' || p_function_currency;
4591: x_amount_for_header := p_req_amount_disp || ' ' || p_function_currency;
4592: x_amount_for_tax := p_tax_amount_disp || ' ' || p_function_currency;
4715: BEGIN
4716: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 01';
4717: IF (g_po_wf_debug = 'Y') THEN
4718: /* DEBUG */
4719: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4720: END IF;
4721: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_NUMBER', avalue => ReqHdr_rec.segment1);
4722: --
4723: wf_engine.SetItemAttrNumber ( itemtype => itemType, itemkey => itemkey, aname => 'DOCUMENT_ID', avalue => ReqHdr_rec.requisition_header_id);
4735: -- Bug#3147435
4736: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 02 Start of Hdr Att for JRAD';
4737: IF (g_po_wf_debug = 'Y') THEN
4738: /* DEBUG */
4739: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4740: END IF;
4741: -- Bug#3147435
4742: --Set the CONTRACTOR_REQUISITION_FLAG
4743: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CONTRACTOR_REQUISITION_FLAG', avalue => ReqHdr_rec.contractor_requisition_flag);
4749: -- Bug#3147435
4750: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 03 End of Hdr Att for JRAD';
4751: IF (g_po_wf_debug = 'Y') THEN
4752: /* DEBUG */
4753: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4754: END IF;
4755: /* Bug 1100247 Amitabh*/
4756: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username, x_user_display_name);
4757: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_USER_NAME' , avalue => x_username);
4883: /* end bug 2480327 notification UI enhancement */
4884: x_progress := 'SetReqHdrAttributes (end): : ' || l_auth_stat || l_currency_code || l_req_amount_disp;
4885: IF (g_po_wf_debug = 'Y') THEN
4886: /* DEBUG */
4887: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4888: END IF;
4889: IF (ReqHdr_rec.NOTE_TO_AUTHORIZER IS NOT NULL) THEN
4890: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'JUSTIFICATION', avalue => ReqHdr_rec.NOTE_TO_AUTHORIZER);
4891: END IF;
5766: g_po_wf_debug = 'Y'
5767: )
5768: THEN
5769: /* DEBUG */
5770: PO_WF_DEBUG_PKG.insert_debug
5771: (
5772: itemtype,itemkey,x_progress
5773: )
5774: ;
5880: (
5881: g_po_wf_debug = 'Y'
5882: )
5883: THEN
5884: PO_WF_DEBUG_PKG.insert_debug
5885: (
5886: itemtype,itemkey,x_progress
5887: )
5888: ;
5909: (
5910: g_po_wf_debug = 'Y'
5911: )
5912: THEN
5913: PO_WF_DEBUG_PKG.insert_debug
5914: (
5915: itemtype,itemkey,x_progress
5916: )
5917: ;
5924: (
5925: g_po_wf_debug = 'Y'
5926: )
5927: THEN
5928: PO_WF_DEBUG_PKG.insert_debug
5929: (
5930: itemtype,itemkey,x_progress
5931: )
5932: ;
5978: g_po_wf_debug = 'Y'
5979: )
5980: THEN
5981: /* DEBUG */
5982: PO_WF_DEBUG_PKG.insert_debug
5983: (
5984: itemtype,itemkey,x_progress
5985: )
5986: ;
6062: g_po_wf_debug = 'Y'
6063: )
6064: THEN
6065: /* DEBUG */
6066: PO_WF_DEBUG_PKG.insert_debug
6067: (
6068: itemtype,itemkey,x_progress
6069: )
6070: ;
6218: g_po_wf_debug = 'Y'
6219: )
6220: THEN
6221: /* DEBUG */
6222: PO_WF_DEBUG_PKG.insert_debug
6223: (
6224: itemtype,itemkey,x_progress
6225: )
6226: ;
6862: BEGIN
6863: l_progress :='001-'||funcmode;
6864: IF (g_po_wf_debug = 'Y') THEN
6865: /* DEBUG */
6866: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
6867: END IF;
6868: IF (funcmode ='RUN') THEN
6869: l_contractor_status := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CONTRACTOR_STATUS');
6870: l_progress :='002-'||l_contractor_status;
6869: l_contractor_status := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CONTRACTOR_STATUS');
6870: l_progress :='002-'||l_contractor_status;
6871: IF (g_po_wf_debug = 'Y') THEN
6872: /* DEBUG */
6873: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
6874: END IF;
6875: IF (l_contractor_status = 'PENDING') THEN
6876: --Bug#3268971
6877: --Setting the item attribute value to Y, which will be used in
6881: resultout :='COMPLETE:'||'Y';
6882: l_progress :='003-'||resultout;
6883: IF (g_po_wf_debug = 'Y') THEN
6884: /* DEBUG */
6885: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
6886: END IF;
6887: RETURN;
6888: ELSE
6889: resultout :='COMPLETE:'||'N';
6889: resultout :='COMPLETE:'||'N';
6890: l_progress :='004-'||resultout;
6891: IF (g_po_wf_debug = 'Y') THEN
6892: /* DEBUG */
6893: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
6894: END IF;
6895: RETURN;
6896: END IF;
6897: END IF; -- run mode
6928: BEGIN
6929: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 01';
6930: IF (g_po_wf_debug = 'Y') THEN
6931: /* DEBUG */
6932: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
6933: END IF;
6934: preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
6935: approver_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_ID');
6936: x_username := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME');
7065: -- To be used only for PO and Req Approval wf
7066: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 10';
7067: IF (g_po_wf_debug = 'Y') THEN
7068: /* DEBUG */
7069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7070: END IF;
7071: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 20' ||' username: '|| username ||' doc: '|| doc ||' location: '|| loc ||' error msg: '|| msg;
7072: IF (g_po_wf_debug = 'Y') THEN
7073: /* DEBUG */
7070: END IF;
7071: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 20' ||' username: '|| username ||' doc: '|| doc ||' location: '|| loc ||' error msg: '|| msg;
7072: IF (g_po_wf_debug = 'Y') THEN
7073: /* DEBUG */
7074: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7075: END IF;
7076: IF username IS NOT NULL AND doc IS NOT NULL THEN
7077: /* l_nid := wf_notification.Send(username,
7078: itemtype,
7093: Err_ItemKey := TO_CHAR(l_document_id) || '-' || l_seq;
7094: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 50' ||' Parent Itemtype: '|| ItemType ||' Parent Itemkey: '|| ItemKey ||' Error Itemtype: '|| Err_ItemType ||' Error Itemkey: '|| Err_ItemKey;
7095: IF (g_po_wf_debug = 'Y') THEN
7096: /* DEBUG */
7097: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7098: END IF;
7099: wf_engine.CreateProcess( ItemType => Err_ItemType, ItemKey => Err_ItemKey, process => 'PLSQL_ERROR_NOTIF');
7100: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7101: IF (g_po_wf_debug = 'Y') THEN
7099: wf_engine.CreateProcess( ItemType => Err_ItemType, ItemKey => Err_ItemKey, process => 'PLSQL_ERROR_NOTIF');
7100: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7101: IF (g_po_wf_debug = 'Y') THEN
7102: /* DEBUG */
7103: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7104: END IF;
7105: -- Set the attributes
7106: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_DOC', avalue => doc);
7107: --
7113: --
7114: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 100';
7115: IF (g_po_wf_debug = 'Y') THEN
7116: /* DEBUG */
7117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7118: END IF;
7119: wf_engine.StartProcess(itemtype => Err_ItemType, itemkey => Err_ItemKey);
7120: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7121: IF (g_po_wf_debug = 'Y') THEN
7119: wf_engine.StartProcess(itemtype => Err_ItemType, itemkey => Err_ItemKey);
7120: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7121: IF (g_po_wf_debug = 'Y') THEN
7122: /* DEBUG */
7123: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7124: END IF;
7125: COMMIT;
7126: END IF;
7127: EXCEPTION
7128: WHEN OTHERS THEN
7129: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: '|| sqlerrm;
7130: IF (g_po_wf_debug = 'Y') THEN
7131: /* DEBUG */
7132: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7133: END IF;
7134: RAISE;
7135: END send_error_notif;
7136: -- This procedure will close all the notification of all the
7171: IF (funcmode ='RUN') THEN
7172: l_progress := 'Is_Document_Manager_Error_1_2: 001';
7173: IF (g_po_wf_debug = 'Y') THEN
7174: /* DEBUG */
7175: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7176: END IF;
7177: l_error_number := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOC_MGR_ERROR_NUM');
7178: l_progress := 'Is_Document_Manager_Error_1_2: 002 - '|| TO_CHAR(l_error_number);
7179: IF (g_po_wf_debug = 'Y') THEN
7177: l_error_number := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'DOC_MGR_ERROR_NUM');
7178: l_progress := 'Is_Document_Manager_Error_1_2: 002 - '|| TO_CHAR(l_error_number);
7179: IF (g_po_wf_debug = 'Y') THEN
7180: /* DEBUG */
7181: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7182: END IF;
7183: IF (l_error_number = 1 OR l_error_number = 2) THEN
7184: resultout :='COMPLETE:'||'Y';
7185: RETURN;
7210: BEGIN
7211: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 01';
7212: IF (g_po_wf_debug = 'Y') THEN
7213: /* DEBUG */
7214: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7215: END IF;
7216: -- Do nothing in cancel or timeout mode
7217: --
7218: IF (funcmode <> wf_engine.eng_run) THEN
7231: --
7232: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 02. Result= ' || l_prof_value;
7233: IF (g_po_wf_debug = 'Y') THEN
7234: /* DEBUG */
7235: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7236: END IF;
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7258: IF (funcmode ='RUN') THEN
7259: l_progress := 'CHECK_ERROR_COUNT: 001';
7260: IF (g_po_wf_debug = 'Y') THEN
7261: /* DEBUG */
7262: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7263: END IF;
7264: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7265: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7266: l_count := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RETRY_COUNT');
7324: IF (funcmode ='RUN') THEN
7325: l_progress := 'Initialise_Error: 001';
7326: IF (g_po_wf_debug = 'Y') THEN
7327: /* DEBUG */
7328: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7329: END IF;
7330: l_item_type :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_TYPE');
7331: l_item_key :=wf_engine.GetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'ERROR_ITEM_KEY');
7332: /* Bug# 2708702 kagarwal
7909: X_Application_Id := fnd_global.resp_appl_id;
7910: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.X_USER_ID= ' || TO_CHAR(x_user_id) || 'X_ APPLICATION_ID= ' || TO_CHAR(x_application_id) || 'X_RESPONSIBILITY_ID= ' || TO_CHAR(x_responsibility_id);
7911: IF (g_po_wf_debug = 'Y') THEN
7912: /* DEBUG */
7913: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7914: END IF;
7915: IF (X_User_Id = -1) THEN
7916: X_User_Id := NULL;
7917: END IF;
7928: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
7929: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= ' || TO_CHAR(l_user_id) || ' L_APPLICATION_ID= ' || TO_CHAR(l_application_id) || 'L_RESPONSIBILITY_ID= ' || TO_CHAR(l_responsibility_id);
7930: IF (g_po_wf_debug = 'Y') THEN
7931: /* DEBUG */
7932: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7933: END IF;
7934: -- bug 3543578
7935: -- Returning a Req from AutoCreate was nulling out the FND context.
7936: -- No particular context is required for sending the notification in
7990: BEGIN
7991: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 01';
7992: IF (g_po_wf_debug = 'Y') THEN
7993: /* DEBUG */
7994: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7995: END IF;
7996: -- Do nothing in cancel or timeout mode
7997: IF (funcmode <> wf_engine.eng_run) THEN
7998: resultout := wf_engine.eng_null;
8031: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
8032: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 02. Result= ' || l_massupdate_releases;
8033: IF (g_po_wf_debug = 'Y') THEN
8034: /* DEBUG */
8035: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8036: END IF;
8037: EXCEPTION
8038: WHEN OTHERS THEN
8039: l_massupdate_releases := 'N';
8079: EXCEPTION
8080: WHEN OTHERS THEN
8081: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: Could not find Category Structure Id';
8082: IF (g_po_wf_debug = 'Y') THEN
8083: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8084: END IF;
8085: raise;
8086: END;
8087: --
8103: l_update_releases := 'N';
8104: END IF;
8105: l_progress := ': 02. Result= ' || l_update_releases;
8106: IF (g_po_wf_debug = 'Y') THEN
8107: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8108: END IF;
8109: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8110: EXCEPTION
8111: WHEN OTHERS THEN
8112: l_update_releases := 'N';
8113: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'|| ' Result= ' || l_update_releases;
8114: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8115: IF (g_po_wf_debug = 'Y') THEN
8116: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8117: END IF;
8118: END MassUpdate_Releases_Workflow;
8119: PROCEDURE Send_Supplier_Comm_Yes_No
8120: (
8151: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
8152: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 02. Result= ' || l_supplier_comm;
8153: IF (g_po_wf_debug = 'Y') THEN
8154: /* DEBUG */
8155: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8156: END IF;
8157: EXCEPTION
8158: WHEN OTHERS THEN
8159: l_supplier_comm := 'Y';
8212: l_reset_retro_update BOOLEAN := FALSE;
8213: BEGIN
8214: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 01';
8215: IF (g_po_wf_debug = 'Y') THEN
8216: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8217: END IF;
8218: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8219: /* Bug# 2846210
8220: ** Desc: Setting application context as this wf api will be executed
8225: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
8226: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE');
8227: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 02. ' || 'l_document_id = ' || l_document_id || 'l_document_type = ' || l_document_type || 'l_retro_change = ' || l_retro_change ;
8228: IF (g_po_wf_debug = 'Y') THEN
8229: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8230: END IF;
8231: -- Only handle retroactive invoice change for PO or Release
8232: IF (l_document_type NOT IN ('PO', 'RELEASE')) THEN
8233: RETURN;
8240: IF (l_retro_change IS NULL OR l_retro_change = 'N') THEN
8241: l_retro_change := PO_RETROACTIVE_PRICING_PVT.Is_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8242: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 03' || 'l_retro_change = ' || l_retro_change ;
8243: IF (g_po_wf_debug = 'Y') THEN
8244: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8245: END IF;
8246: END IF;
8247: /*IF (l_retro_change IS NULL OR l_retro_change = 'N')*/
8248: IF (l_retro_change = 'Y') THEN
8248: IF (l_retro_change = 'Y') THEN
8249: l_retroactive_update := PO_RETROACTIVE_PRICING_PVT.Get_Retro_Mode;
8250: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 04' || 'l_retroactive_update = ' || l_retroactive_update;
8251: IF (g_po_wf_debug = 'Y') THEN
8252: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8253: END IF;
8254: -- Need to reset retroactive_date afterwards
8255: l_reset_retro_update := TRUE;
8256: IF (l_retroactive_update = 'NEVER') THEN
8260: END IF;
8261: /*IF (l_retro_change = 'Y')*/
8262: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 05' || 'l_retroactive_update = ' || l_retroactive_update || 'l_retro_change = ' || l_retro_change ;
8263: IF (g_po_wf_debug = 'Y') THEN
8264: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8265: END IF;
8266: -- Set 'CO_R_RETRO_CHANGE' attribute so that later Workflow process can
8267: -- use this attribute safely
8268: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE', avalue => l_retro_change);
8268: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE', avalue => l_retro_change);
8269: IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES') THEN
8270: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 06. Calling ' || 'PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release';
8271: IF (g_po_wf_debug = 'Y') THEN
8272: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8273: END IF;
8274: PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release ( p_api_version => 1.0, p_document_id => l_document_id, p_document_type => l_document_type , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
8275: IF (l_return_status <> 'S') THEN
8276: l_update_releases := 'N';
8276: l_update_releases := 'N';
8277: END IF;
8278: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 07. Result= ' || l_update_releases;
8279: IF (g_po_wf_debug = 'Y') THEN
8280: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8281: END IF;
8282: END IF;
8283: /*IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES')*/
8284: IF (l_reset_retro_update) THEN
8283: /*IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES')*/
8284: IF (l_reset_retro_update) THEN
8285: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 08. Reset_Retro_Update';
8286: IF (g_po_wf_debug = 'Y') THEN
8287: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8288: END IF;
8289: PO_RETROACTIVE_PRICING_PVT.Reset_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8290: END IF;
8291: /*IF (l_reset_retro_update)*/
8295: l_update_releases := 'N';
8296: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'|| ' Result= ' || l_update_releases;
8297: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8298: IF (g_po_wf_debug = 'Y') THEN
8299: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8300: END IF;
8301: END Retro_Invoice_Release_WF;
8302: --
8303: -------------------------------------------------------------------------------
8460: l_cat_admin_user_name FND_USER.USER_NAME%type;
8461: BEGIN
8462: l_progress := '100';
8463: IF (g_po_wf_debug = 'Y') THEN
8464: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8465: END IF;
8466: l_progress := '110';
8467: -- Get the Catalog Admin User Name
8468: l_cat_admin_user_name := wf_engine.GetItemAttrText ( itemtype => p_item_type, itemkey => p_item_key, aname => 'CATALOG_ADMIN_USER_NAME');
8467: -- Get the Catalog Admin User Name
8468: l_cat_admin_user_name := wf_engine.GetItemAttrText ( itemtype => p_item_type, itemkey => p_item_key, aname => 'CATALOG_ADMIN_USER_NAME');
8469: l_progress := '130';
8470: IF (g_po_wf_debug = 'Y') THEN
8471: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,'Item Attribute value for CATALOG_ADMIN_USER_NAME='|| l_cat_admin_user_name);
8472: END IF;
8473: IF l_cat_admin_user_name IS NOT NULL THEN
8474: l_progress := '150';
8475: x_result_out := wf_engine.eng_completed || ':' || 'Y' ;
8530: l_lock_owner_user_id PO_HEADERS_ALL.lock_owner_user_id%type;
8531: BEGIN
8532: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 100' || 'Document Id='|| TO_CHAR(p_doc_id) || 'Document Type='|| p_doc_type;
8533: IF (g_po_wf_debug = 'Y') THEN
8534: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8535: END IF;
8536: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 110';
8537: -- Proceed only if this is an agreement
8538: IF (g_po_wf_debug = 'Y') THEN
8535: END IF;
8536: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 110';
8537: -- Proceed only if this is an agreement
8538: IF (g_po_wf_debug = 'Y') THEN
8539: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8540: END IF;
8541: IF p_doc_type = 'PA' THEN
8542: -- Get the locking user role and user id information
8543: SELECT lock_owner_user_id,
8548: WHERE po_header_id = p_doc_id;
8549:
8550: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 140' || 'l_lock_owner_user_id ='|| TO_CHAR(l_lock_owner_user_id) || 'l_lock_owner_role Type='|| l_lock_owner_role;
8551: IF (g_po_wf_debug = 'Y') THEN
8552: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8553: END IF;
8554: IF l_lock_owner_role = 'CAT ADMIN' THEN
8555: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 150';
8556: -- The performer attribute holds the user name, get the user name
8561: WHERE user_id = l_lock_owner_user_id;
8562:
8563: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 155' || 'UserName='|| l_user_name;
8564: IF (g_po_wf_debug = 'Y') THEN
8565: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8566: END IF;
8567: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
8568: -- Set the item attribute tied to the performer of the
8569: -- approval notification
8734: l_progress VARCHAR2(300);
8735: begin
8736: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
8737: IF (g_po_wf_debug = 'Y') THEN
8738: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8739: END IF;
8740: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type,
8741: itemkey => p_item_key,
8742: aname => 'IS_SUPPLIER_CONTEXT',
8741: itemkey => p_item_key,
8742: aname => 'IS_SUPPLIER_CONTEXT',
8743: avalue => 'Y');
8744: IF (g_po_wf_debug = 'Y') THEN
8745: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'End');
8746: END IF;
8747: EXCEPTION
8748: WHEN OTHERS THEN
8749: IF (g_po_wf_debug = 'Y') THEN
8746: END IF;
8747: EXCEPTION
8748: WHEN OTHERS THEN
8749: IF (g_po_wf_debug = 'Y') THEN
8750: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Unexpected error');
8751: END IF;
8752: RAISE;
8753: end set_is_supplier_context_y; */
8754: /**
8769: l_progress VARCHAR2(300);
8770: begin
8771: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
8772: IF (g_po_wf_debug = 'Y') THEN
8773: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8774: END IF;
8775: -- Set the IS_SUPPLIER_CONTEXT value to 'N'
8776: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type,
8777: itemkey => p_item_key,
8777: itemkey => p_item_key,
8778: aname => 'IS_SUPPLIER_CONTEXT',
8779: avalue => 'N');
8780: IF (g_po_wf_debug = 'Y') THEN
8781: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'End');
8782: END IF;
8783: EXCEPTION
8784: WHEN OTHERS THEN
8785: IF (g_po_wf_debug = 'Y') THEN
8782: END IF;
8783: EXCEPTION
8784: WHEN OTHERS THEN
8785: IF (g_po_wf_debug = 'Y') THEN
8786: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Unexpected error');
8787: END IF;
8788: RAISE;
8789: end set_is_supplier_context_n; */
8790: --
8868: l_progress VARCHAR2(300);
8869: BEGIN
8870: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
8871: IF (g_po_wf_debug = 'Y') THEN
8872: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8873: END IF;
8874: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type, itemkey => p_item_key, aname => 'IS_SUPPLIER_CONTEXT', avalue => 'Y');
8875: IF (g_po_wf_debug = 'Y') THEN
8876: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'End');
8872: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8873: END IF;
8874: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type, itemkey => p_item_key, aname => 'IS_SUPPLIER_CONTEXT', avalue => 'Y');
8875: IF (g_po_wf_debug = 'Y') THEN
8876: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'End');
8877: END IF;
8878: EXCEPTION
8879: WHEN OTHERS THEN
8880: IF (g_po_wf_debug = 'Y') THEN
8877: END IF;
8878: EXCEPTION
8879: WHEN OTHERS THEN
8880: IF (g_po_wf_debug = 'Y') THEN
8881: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Unexpected error');
8882: END IF;
8883: RAISE;
8884: END set_is_supplier_context_y;
8885: /**
8903: l_progress VARCHAR2(300);
8904: BEGIN
8905: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
8906: IF (g_po_wf_debug = 'Y') THEN
8907: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8908: END IF;
8909: -- Set the IS_SUPPLIER_CONTEXT value to 'N'
8910: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type, itemkey => p_item_key, aname => 'IS_SUPPLIER_CONTEXT', avalue => 'N');
8911: IF (g_po_wf_debug = 'Y') THEN
8908: END IF;
8909: -- Set the IS_SUPPLIER_CONTEXT value to 'N'
8910: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type, itemkey => p_item_key, aname => 'IS_SUPPLIER_CONTEXT', avalue => 'N');
8911: IF (g_po_wf_debug = 'Y') THEN
8912: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'End');
8913: END IF;
8914: EXCEPTION
8915: WHEN OTHERS THEN
8916: IF (g_po_wf_debug = 'Y') THEN
8913: END IF;
8914: EXCEPTION
8915: WHEN OTHERS THEN
8916: IF (g_po_wf_debug = 'Y') THEN
8917: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Unexpected error');
8918: END IF;
8919: RAISE;
8920: END set_is_supplier_context_n;
8921: PROCEDURE get_wf_attrs_from_docstyle
9042:
9043: EXCEPTION
9044: WHEN OTHERS THEN
9045: IF (g_po_wf_debug = 'Y') THEN
9046: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress || 'Unexpected error');
9047: END IF;
9048: RAISE;
9049:
9050: END check_rev_num_supplier_notif;
9093:
9094: EXCEPTION
9095: WHEN OTHERS THEN
9096: IF (g_po_wf_debug = 'Y') THEN
9097: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress || 'Unexpected error');
9098: END IF;
9099: RAISE;
9100:
9101: END update_supplier_com_rev_num;