[Home] [Help]
1: PACKAGE BODY PO_REQAPPROVAL_INIT1 AS
2: /* $Header: POXWPA1B.pls 120.56.12010000.7 2009/01/20 05:50:56 lgoyal ship $ */
3:
4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
17: | FILENAME
18: | POXWPA1B.pls
19: |
20: | DESCRIPTION
21: | PL/SQL body for package: PO_REQAPPROVAL_INIT1
22: |
23: | NOTES Ben Chihaoui Created 6/15/97
24: | MODIFIED (MM/DD/YY)
25: | davidng 06/04/2002 Fix for bug 2401183. Used the Workflow Utility
24: | MODIFIED (MM/DD/YY)
25: | davidng 06/04/2002 Fix for bug 2401183. Used the Workflow Utility
26: | Package wrapper function and procedure to get
27: | and set attributes REL_NUM and REL_NUM_DASH
28: | in procedure PO_REQAPPROVAL_INIT1.Initialise_Error
29: *=======================================================================*/
30: --
31:
32: TYPE g_refcur IS REF CURSOR;
227:
228: EXCEPTION
229: WHEN OTHERS THEN
230: x_name_list := null;
231: l_progress := 'PO_REQAPPROVAL_INIT1.get_diff_in_user_list : Failed to get the list of users';
232: po_message_s.sql_error('In Exception of get_diff_in_user_list ()', l_progress, sqlcode);
233: END;
234: /*******************************************************************
235: < Added this function as part of Bug #: 2810150 >
327:
328: EXCEPTION
329: WHEN OTHERS THEN
330: l_role_name := null;
331: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_role_for_users: Failed to get the list of users';
332: po_message_s.sql_error('In Exception of get_wf_role_for_users()', l_progress, sqlcode);
333: END get_wf_role_for_users;
334:
335: /**
457:
458: EXCEPTION
459: WHEN OTHERS THEN
460: x_new_list := ' null ';
461: l_progress := 'PO_REQAPPROVAL_INIT1.get_user_list_with_resp: Failed to get the list of users';
462: po_message_s.sql_error('In Exception of get_user_list_with_resp()', l_progress, sqlcode);
463: end get_user_list_with_resp;
464:
465: -------------------------------------------------------------------------------
668:
669:
670: /* DBMS_OUTPUT.enable(10000); */
671:
672: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: at beginning of Start_WF_Process';
673: IF (g_po_wf_debug = 'Y') THEN
674: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
675: END IF;
676:
736: where item_type = l_itemtype
737: and item_key = l_itemkey;
738: exception
739: when others then
740: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: check process existance';
741: po_message_s.sql_error('In Exception of Start_WF_Process()', x_progress, sqlcode);
742: raise;
743: end;
744:
749: AND
750: ((DocumentTypeCode='RELEASE' and DocumentSubtype='BLANKET')
751: OR (DocumentTypeCode='PO' and DocumentSubtype='STANDARD'))) THEN
752:
753: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Updating the xml_flag: ' || p_xml_flag;
754: IF (g_po_wf_debug = 'Y') THEN
755: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
756: END IF;
757:
1346:
1347: /* Get the multi-org context and store it in item attribute ORG_ID. This will be
1348: ** By all other activities.
1349: */
1350: PO_REQAPPROVAL_INIT1.get_multiorg_context (DocumentTypeCode, DocumentID, x_orgid);
1351:
1352: IF x_orgid is NOT NULL THEN
1353:
1354: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1569: ELSIF DocumentTypeCode = 'RELEASE' THEN
1570: PO_CHORD_WF6.Set_Wf_Release_Tol(l_itemtype, l_itemkey , DocumentSubtype);
1571: END IF;
1572:
1573: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to FND_PROFILE';
1574: IF (g_po_wf_debug = 'Y') THEN
1575: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1576: END IF;
1577:
1654:
1655: --
1656:
1657:
1658: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to wf_engine.StartProcess()' ||
1659: ' parameter DefaultApprovalPathID= ' || to_char(DefaultApprovalPathID);
1660: IF (g_po_wf_debug = 'Y') THEN
1661: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1662: END IF;
1669:
1670: EXCEPTION
1671: WHEN OTHERS THEN
1672:
1673: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: In Exception handler';
1674: IF (g_po_wf_debug = 'Y') THEN
1675: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1676: END IF;
1677:
1747: l_external_url varchar2(500);
1748:
1749: BEGIN
1750:
1751: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 01';
1752: IF (g_po_wf_debug = 'Y') THEN
1753: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1754: END IF;
1755:
1767: ** Setting application context
1768: */
1769:
1770: --Context Setting Revamp
1771: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
1772:
1773: -- Set the multi-org context
1774:
1775: x_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
1823: ** be used as the FORWARD-FROM in the notifications.
1824: ** Initially the preparer is also considered as the approver, so
1825: ** set the approver_username also.
1826: */
1827: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, x_username,
1828: x_user_display_name);
1829:
1830: -- Bug 711141 fix (setting process owner here)
1831:
1908: aname => 'FORWARD_FROM_ID');
1909:
1910: IF (l_forward_from_id <> l_preparer_id) THEN
1911:
1912: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_from_id, x_ff_username,
1913: x_ff_user_display_name);
1914:
1915: wf_engine.SetItemAttrText ( itemtype => itemType,
1916: itemkey => itemkey,
1952: ** as that of preparer using the var x_username and
1953: ** x_user_display_name
1954: */
1955: /* Get the forward-to display name */
1956: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_to_id, x_ft_username,
1957: x_ft_user_display_name);
1958:
1959: /* Set the forward-to display name */
1960: wf_engine.SetItemAttrText ( itemtype => itemType,
2044: p_mode => 'viewOnly');
2045:
2046: /* Bug 7307832
2047: Added Debug Messages */
2048: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url viewOnly' || 'l_view_po_url ::'|| l_view_po_url;
2049: IF (g_po_wf_debug = 'Y') THEN
2050: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2051: END IF;
2052:
2057: p_doc_subtype => l_doc_subtype,
2058: p_mode => 'update');
2059: /* Bug 7307832
2060: Added WF Debug Messages */
2061: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url update' || 'l_edit_po_url ::'|| l_edit_po_url;
2062: IF (g_po_wf_debug = 'Y') THEN
2063: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2064: END IF;
2065:
2401: --
2402: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2403: --
2404:
2405: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 03'||
2406: 'Open Form Command= ' || l_open_form;
2407: IF (g_po_wf_debug = 'Y') THEN
2408: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2409: END IF;
2410:
2411: EXCEPTION
2412:
2413: WHEN OTHERS THEN
2414: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2415: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2416: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2417: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2418: raise;
2411: EXCEPTION
2412:
2413: WHEN OTHERS THEN
2414: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2415: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2416: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2417: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2418: raise;
2419:
2412:
2413: WHEN OTHERS THEN
2414: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2415: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2416: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2417: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2418: raise;
2419:
2420: END Set_Startup_Values;
2413: WHEN OTHERS THEN
2414: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2415: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2416: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2417: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2418: raise;
2419:
2420: END Set_Startup_Values;
2421:
2438: l_preparer_user_name varchar2(100);
2439:
2440: BEGIN
2441:
2442: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 01';
2443: IF (g_po_wf_debug = 'Y') THEN
2444: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2445: END IF;
2446:
2458: ** Setting application context
2459: */
2460:
2461: --Context Setting Revamp
2462: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2463:
2464:
2465: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
2466: itemkey => itemkey,
2481:
2482: --
2483: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2484: --
2485: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 02';
2486: IF (g_po_wf_debug = 'Y') THEN
2487: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2488: END IF;
2489:
2490:
2491: EXCEPTION
2492:
2493: WHEN OTHERS THEN
2494: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2495: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2496: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2497: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2498: raise;
2491: EXCEPTION
2492:
2493: WHEN OTHERS THEN
2494: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2495: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2496: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2497: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2498: raise;
2499:
2492:
2493: WHEN OTHERS THEN
2494: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2495: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2496: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2497: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2498: raise;
2499:
2500: END Get_Req_Attributes;
2493: WHEN OTHERS THEN
2494: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2495: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2496: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2497: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2498: raise;
2499:
2500: END Get_Req_Attributes;
2501:
2521: l_preparer_user_name varchar2(100);
2522:
2523: BEGIN
2524:
2525: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2526: --
2527: if (funcmode <> wf_engine.eng_run) then
2528:
2529: resultout := wf_engine.eng_null;
2596: --
2597: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2598: --
2599:
2600: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2601: IF (g_po_wf_debug = 'Y') THEN
2602: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2603: END IF;
2604:
2604:
2605:
2606: EXCEPTION
2607: WHEN OTHERS THEN
2608: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2609: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2610: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2611: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2612: raise;
2605:
2606: EXCEPTION
2607: WHEN OTHERS THEN
2608: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2609: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2610: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2611: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2612: raise;
2613:
2606: EXCEPTION
2607: WHEN OTHERS THEN
2608: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2609: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2610: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2611: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2612: raise;
2613:
2614: END set_doc_stat_preapproved;
2607: WHEN OTHERS THEN
2608: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2609: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2610: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2611: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2612: raise;
2613:
2614: END set_doc_stat_preapproved;
2615:
2635: l_preparer_user_name varchar2(100);
2636:
2637: BEGIN
2638:
2639: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 01';
2640: IF (g_po_wf_debug = 'Y') THEN
2641: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2642: END IF;
2643:
2697:
2698: --
2699: -- Release functional lock, if needed
2700:
2701: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02 unlock document';
2702: IF (g_po_wf_debug = 'Y') THEN
2703: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2704: END IF;
2705:
2728: --
2729: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2730: --
2731:
2732: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2733: IF (g_po_wf_debug = 'Y') THEN
2734: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2735: END IF;
2736:
2736:
2737:
2738: EXCEPTION
2739: WHEN OTHERS THEN
2740: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2741: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2742: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2743: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2744: raise;
2737:
2738: EXCEPTION
2739: WHEN OTHERS THEN
2740: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2741: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2742: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2743: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2744: raise;
2745:
2738: EXCEPTION
2739: WHEN OTHERS THEN
2740: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2741: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2742: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2743: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2744: raise;
2745:
2746: END set_doc_stat_inprocess;
2739: WHEN OTHERS THEN
2740: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2741: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2742: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2743: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2744: raise;
2745:
2746: END set_doc_stat_inprocess;
2747:
2766: l_preparer_user_name varchar2(100);
2767:
2768: BEGIN
2769:
2770: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 01';
2771: IF (g_po_wf_debug = 'Y') THEN
2772: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2773: END IF;
2774:
2852: avalue => l_orig_auth_stat);
2853:
2854: END IF;
2855:
2856: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 02' ||
2857: ' Auth_status= ' || l_auth_stat || ', Orig_auth_stat= ' || l_orig_auth_stat;
2858: IF (g_po_wf_debug = 'Y') THEN
2859: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2860: END IF;
2863: -- Bug 3845048: Added the code to update the action history with 'no action'
2864: -- so that the action history code is completed properly when the document
2865: -- is returned to the submitter, in case of no approver found or time out
2866:
2867: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 03' || 'Update Action History'
2868: || 'Action Code = No Action';
2869: IF (g_po_wf_debug = 'Y') THEN
2870: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2871: END IF;
2882: --
2883:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2886: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2887: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2888: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2889: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2890: raise;
2883:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2886: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2887: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2888: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2889: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2890: raise;
2891:
2884: EXCEPTION
2885: WHEN OTHERS THEN
2886: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2887: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2888: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2889: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2890: raise;
2891:
2892: END set_doc_to_originalstat;
2885: WHEN OTHERS THEN
2886: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2887: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2888: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2889: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2890: raise;
2891:
2892: END set_doc_to_originalstat;
2893:
2910: l_preparer_user_name varchar2(100);
2911:
2912: BEGIN
2913:
2914: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 01';
2915: IF (g_po_wf_debug = 'Y') THEN
2916: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2917: END IF;
2918:
2963: --
2964: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2965: --
2966:
2967: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 02';
2968: IF (g_po_wf_debug = 'Y') THEN
2969: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2970: END IF;
2971:
2970: END IF;
2971:
2972: EXCEPTION
2973: WHEN OTHERS THEN
2974: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2975: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2976: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2977: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2978: raise;
2971:
2972: EXCEPTION
2973: WHEN OTHERS THEN
2974: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2975: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2976: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2977: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2978: raise;
2979:
2972: EXCEPTION
2973: WHEN OTHERS THEN
2974: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2975: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2976: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2977: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2978: raise;
2979:
2980: END Register_doc_submitted;
2973: WHEN OTHERS THEN
2974: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2975: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2976: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2977: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2978: raise;
2979:
2980: END Register_doc_submitted;
2981:
3000: l_preparer_user_name varchar2(100);
3001:
3002: BEGIN
3003:
3004: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 01';
3005: IF (g_po_wf_debug = 'Y') THEN
3006: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3007: END IF;
3008:
3047: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3048:
3049: END IF;
3050:
3051: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3052:
3053: --
3054: resultout := wf_engine.eng_completed || ':' || x_CanOwnerApproveFlag ;
3055: --
3055: --
3056:
3057: END IF;
3058:
3059: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 02';
3060: IF (g_po_wf_debug = 'Y') THEN
3061: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3062: END IF;
3063:
3062: END IF;
3063:
3064: EXCEPTION
3065: WHEN OTHERS THEN
3066: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3067: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3068: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
3069: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
3070: raise;
3063:
3064: EXCEPTION
3065: WHEN OTHERS THEN
3066: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3067: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3068: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
3069: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
3070: raise;
3071:
3064: EXCEPTION
3065: WHEN OTHERS THEN
3066: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3067: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3068: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
3069: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
3070: raise;
3071:
3072: END can_owner_approve;
3065: WHEN OTHERS THEN
3066: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3067: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3068: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
3069: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
3070: raise;
3071:
3072: END can_owner_approve;
3073:
3091: l_preparer_user_name varchar2(100);
3092:
3093: BEGIN
3094:
3095: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 01';
3096: IF (g_po_wf_debug = 'Y') THEN
3097: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3098: END IF;
3099:
3111: ** Setting application context
3112: */
3113:
3114: --Context Setting Revamp
3115: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
3116:
3117: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype,
3118: itemkey => itemkey,
3119: aname => 'DOCUMENT_TYPE');
3174: --
3175:
3176: END IF;
3177:
3178: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 02' ||
3179: ' Authorization_status= ' || l_auth_stat ;
3180: IF (g_po_wf_debug = 'Y') THEN
3181: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3182: END IF;
3183:
3184:
3185: EXCEPTION
3186: WHEN OTHERS THEN
3187: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3188: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3189: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
3190: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
3191: raise;
3184:
3185: EXCEPTION
3186: WHEN OTHERS THEN
3187: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3188: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3189: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
3190: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
3191: raise;
3192:
3185: EXCEPTION
3186: WHEN OTHERS THEN
3187: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3188: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3189: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
3190: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
3191: raise;
3192:
3193: END Is_doc_preapproved;
3186: WHEN OTHERS THEN
3187: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3188: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3189: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
3190: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
3191: raise;
3192:
3193: END Is_doc_preapproved;
3194:
3224: l_path_id number;
3225:
3226: BEGIN
3227:
3228: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 01';
3229: IF (g_po_wf_debug = 'Y') THEN
3230: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3231: END IF;
3232:
3297: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3298: itemkey => itemkey,
3299: aname => 'APPROVAL_PATH_ID');
3300:
3301: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type,
3302: l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id);
3303:
3304:
3305: --
3306: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
3307: --
3308:
3309:
3310: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
3311: IF (g_po_wf_debug = 'Y') THEN
3312: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3313: END IF;
3314:
3313: END IF;
3314:
3315: EXCEPTION
3316: WHEN OTHERS THEN
3317: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3318: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3319: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
3320: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
3321: raise;
3314:
3315: EXCEPTION
3316: WHEN OTHERS THEN
3317: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3318: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3319: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
3320: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
3321: raise;
3322:
3315: EXCEPTION
3316: WHEN OTHERS THEN
3317: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3318: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3319: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
3320: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
3321: raise;
3322:
3323: END Ins_actionhist_submit;
3316: WHEN OTHERS THEN
3317: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3318: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3319: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
3320: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
3321: raise;
3322:
3323: END Ins_actionhist_submit;
3324:
3415: --
3416: resultout := wf_engine.eng_completed || ':' || 'VALID_ACTION' ;
3417: --
3418:
3419: x_progress := 'PO_REQAPPROVAL_INIT1.Set_End_Valid_Action: RESULT=VALID_ACTION';
3420: IF (g_po_wf_debug = 'Y') THEN
3421: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3422: END IF;
3423:
3551:
3552: --
3553: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3554: --
3555: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 01';
3556: IF (g_po_wf_debug = 'Y') THEN
3557: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3558: END IF;
3559:
3560: ELSE
3561: --
3562: resultout := wf_engine.eng_completed || ':' || 'N' ;
3563: --
3564: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 02';
3565: IF (g_po_wf_debug = 'Y') THEN
3566: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3567: END IF;
3568:
3569: END IF;
3570:
3571: EXCEPTION
3572: WHEN OTHERS THEN
3573: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3574: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3575: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3576: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3577: raise;
3570:
3571: EXCEPTION
3572: WHEN OTHERS THEN
3573: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3574: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3575: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3576: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3577: raise;
3578:
3571: EXCEPTION
3572: WHEN OTHERS THEN
3573: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3574: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3575: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3576: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3577: raise;
3578:
3579: END Encumb_on_doc_unreserved;
3572: WHEN OTHERS THEN
3573: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3574: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3575: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3576: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3577: raise;
3578:
3579: END Encumb_on_doc_unreserved;
3580:
3613:
3614: select nvl(fsp.reserve_at_completion_flag,'N') into l_reserve_at_compl
3615: from financials_system_parameters fsp;
3616:
3617: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3618:
3619: IF ((l_reserve_at_compl = 'N' ) OR (x_CanOwnerApproveFlag = 'N')) THEN
3620:
3621: --
3620:
3621: --
3622: resultout := wf_engine.eng_completed || ':' || 'N' ;
3623: --
3624: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 01';
3625: IF (g_po_wf_debug = 'Y') THEN
3626: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3627: END IF;
3628:
3629: ELSE
3630: --
3631: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3632: --
3633: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 02';
3634: IF (g_po_wf_debug = 'Y') THEN
3635: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3636: END IF;
3637:
3638: END IF;
3639:
3640: EXCEPTION
3641: WHEN OTHERS THEN
3642: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3643: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3644: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3645: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3646: raise;
3639:
3640: EXCEPTION
3641: WHEN OTHERS THEN
3642: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3643: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3644: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3645: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3646: raise;
3647:
3640: EXCEPTION
3641: WHEN OTHERS THEN
3642: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3643: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3644: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3645: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3646: raise;
3647:
3648: END RESERVE_AT_COMPLETION_CHECK;
3641: WHEN OTHERS THEN
3642: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3643: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3644: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3645: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3646: raise;
3647:
3648: END RESERVE_AT_COMPLETION_CHECK;
3649:
3689: where po_release_id= p_header_id;
3690:
3691: BEGIN
3692:
3693: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 01';
3694: IF (g_po_wf_debug = 'Y') THEN
3695: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3696: END IF;
3697:
3729: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
3730: itemkey => itemkey,
3731: aname => 'DOCUMENT_ID');
3732:
3733: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3734:
3735: IF l_orgid is NOT NULL THEN
3736: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3737: wf_engine.SetItemAttrNumber (itemtype => itemtype ,
3790: END IF;
3791:
3792: resultout := wf_engine.eng_completed ;
3793:
3794: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 02.';
3795: IF (g_po_wf_debug = 'Y') THEN
3796: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3797: END IF;
3798:
3797: END IF;
3798:
3799: EXCEPTION
3800: WHEN OTHERS THEN
3801: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3802: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3803: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3804: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3805: raise;
3798:
3799: EXCEPTION
3800: WHEN OTHERS THEN
3801: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3802: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3803: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3804: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3805: raise;
3806:
3799: EXCEPTION
3800: WHEN OTHERS THEN
3801: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3802: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3803: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3804: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3805: raise;
3806:
3807: END Remove_reminder_notif;
3800: WHEN OTHERS THEN
3801: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3802: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3803: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3804: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3805: raise;
3806:
3807: END Remove_reminder_notif;
3808:
3819: l_doc_string varchar2(200);
3820: l_preparer_user_name varchar2(100);
3821:
3822: BEGIN
3823: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 01';
3824: IF (g_po_wf_debug = 'Y') THEN
3825: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3826: END IF;
3827:
3846:
3847: --
3848: resultout := wf_engine.eng_completed || ':' || l_print_doc ;
3849: --
3850: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 02. Result= ' || l_print_doc;
3851: IF (g_po_wf_debug = 'Y') THEN
3852: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3853: END IF;
3854:
3853: END IF;
3854:
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3858: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3859: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3861: raise;
3854:
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3858: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3859: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3861: raise;
3862:
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3858: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3859: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3861: raise;
3862:
3863: END Print_Doc_Yes_No;
3856: WHEN OTHERS THEN
3857: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3858: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3859: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3860: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3861: raise;
3862:
3863: END Print_Doc_Yes_No;
3864:
3878: l_doc_string varchar2(200);
3879: l_preparer_user_name varchar2(100);
3880:
3881: BEGIN
3882: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 01';
3883: IF (g_po_wf_debug = 'Y') THEN
3884: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3885: END IF;
3886:
3905:
3906: --
3907: resultout := wf_engine.eng_completed || ':' || l_fax_doc ;
3908: --
3909: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 02. Result= ' || l_fax_doc;
3910: IF (g_po_wf_debug = 'Y') THEN
3911: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3912: END IF;
3913:
3912: END IF;
3913:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3916: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3917: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3918: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3919: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3920: raise;
3913:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3916: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3917: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3918: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3919: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3920: raise;
3921:
3914: EXCEPTION
3915: WHEN OTHERS THEN
3916: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3917: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3918: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3919: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3920: raise;
3921:
3922: END Fax_Doc_Yes_No;
3915: WHEN OTHERS THEN
3916: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3917: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3918: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3919: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3920: raise;
3921:
3922: END Fax_Doc_Yes_No;
3923:
3940: l_user_id number;
3941: l_appl_id number;
3942:
3943: BEGIN
3944: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 01';
3945: IF (g_po_wf_debug = 'Y') THEN
3946: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3947: END IF;
3948:
3980: l_resp_id is not null and
3981: l_appl_id is not null )then
3982:
3983: -- Bug 4290541,replaced apps init call with set doc mgr contxt
3984: PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
3985:
3986: IF l_orgid is NOT NULL THEN
3987: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3988: END IF;
4017: END IF;
4018:
4019: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
4020:
4021: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 02. Result= ' || l_create_sr_asl;
4022: IF (g_po_wf_debug = 'Y') THEN
4023: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4024: END IF;
4025:
4053: l_doc_string varchar2(200);
4054: l_preparer_user_name varchar2(100);
4055:
4056: BEGIN
4057: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 01';
4058: IF (g_po_wf_debug = 'Y') THEN
4059: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4060: END IF;
4061:
4081: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype,
4082: itemkey => itemkey,
4083: aname => 'DOCUMENT_SUBTYPE');
4084:
4085: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
4086:
4087:
4088: if (l_notifier is not null) then
4089: l_send_notif := 'Y';
4099: end if;
4100:
4101: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4102:
4103: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 02. Result= ' || l_send_notif;
4104: IF (g_po_wf_debug = 'Y') THEN
4105: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4106: END IF;
4107:
4106: END IF;
4107:
4108: EXCEPTION
4109: WHEN OTHERS THEN
4110: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4111: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4112: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
4113: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
4114: raise;
4107:
4108: EXCEPTION
4109: WHEN OTHERS THEN
4110: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4111: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4112: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
4113: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
4114: raise;
4115:
4108: EXCEPTION
4109: WHEN OTHERS THEN
4110: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4111: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4112: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
4113: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
4114: raise;
4115:
4116: END Send_WS_Notif_Yes_No;
4109: WHEN OTHERS THEN
4110: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4111: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4112: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
4113: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
4114: raise;
4115:
4116: END Send_WS_Notif_Yes_No;
4117:
4141: -- BINDING FPJ
4142: l_acceptance_flag PO_HEADERS_ALL.acceptance_required_flag%TYPE;
4143:
4144: BEGIN
4145: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 01';
4146: IF (g_po_wf_debug = 'Y') THEN
4147: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4148: END IF;
4149:
4179: FROM po_headers_all
4180: WHERE po_header_Id = l_document_id;
4181:
4182: IF l_acceptance_flag = 'S' THEN
4183: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'Y', l_notifier, l_notifier_resp);
4184: ELSE
4185: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
4186: END IF;
4187: ELSE
4181:
4182: IF l_acceptance_flag = 'S' THEN
4183: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'Y', l_notifier, l_notifier_resp);
4184: ELSE
4185: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
4186: END IF;
4187: ELSE
4188: -- BINDING FPJ END
4189: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
4185: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
4186: END IF;
4187: ELSE
4188: -- BINDING FPJ END
4189: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
4190: END IF;
4191:
4192:
4193: if (l_notifier is not null) then
4210:
4211: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4212:
4213:
4214: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
4215: IF (g_po_wf_debug = 'Y') THEN
4216: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4217: END IF;
4218:
4217: END IF;
4218:
4219: EXCEPTION
4220: WHEN OTHERS THEN
4221: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4222: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4223: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
4224: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No');
4225: raise;
4218:
4219: EXCEPTION
4220: WHEN OTHERS THEN
4221: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4222: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4223: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
4224: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No');
4225: raise;
4226:
4219: EXCEPTION
4220: WHEN OTHERS THEN
4221: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4222: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4223: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
4224: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No');
4225: raise;
4226:
4227: END Send_WS_FYI_Notif_Yes_No;
4220: WHEN OTHERS THEN
4221: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4222: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4223: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
4224: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No');
4225: raise;
4226:
4227: END Send_WS_FYI_Notif_Yes_No;
4228:
4249: l_doc_string varchar2(200);
4250: l_preparer_user_name varchar2(100);
4251:
4252: BEGIN
4253: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 01';
4254: IF (g_po_wf_debug = 'Y') THEN
4255: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4256: END IF;
4257:
4291:
4292:
4293: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
4294:
4295: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 02. Result= ' || l_send_notif;
4296: IF (g_po_wf_debug = 'Y') THEN
4297: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4298: END IF;
4299:
4298: END IF;
4299:
4300: EXCEPTION
4301: WHEN OTHERS THEN
4302: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4303: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4304: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
4305: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No');
4306: raise;
4299:
4300: EXCEPTION
4301: WHEN OTHERS THEN
4302: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4303: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4304: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
4305: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No');
4306: raise;
4307:
4300: EXCEPTION
4301: WHEN OTHERS THEN
4302: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4303: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4304: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
4305: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No');
4306: raise;
4307:
4308: END Send_WS_ACK_Notif_Yes_No;
4301: WHEN OTHERS THEN
4302: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4303: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4304: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
4305: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No');
4306: raise;
4307:
4308: END Send_WS_ACK_Notif_Yes_No;
4309:
4558: end if;
4559: END IF;
4560: EXCEPTION
4561: WHEN OTHERS THEN
4562: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier failed at:',l_step);
4563: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier',l_role_name||sqlerrm);
4564: --raise_application_error(-20001,'l_role_name ='||l_role_name ||' and l_step='||l_step ||' and l_list='||l_namelist_for_sql, true);
4565: end locate_notifier;
4566:
4559: END IF;
4560: EXCEPTION
4561: WHEN OTHERS THEN
4562: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier failed at:',l_step);
4563: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier',l_role_name||sqlerrm);
4564: --raise_application_error(-20001,'l_role_name ='||l_role_name ||' and l_step='||l_step ||' and l_list='||l_namelist_for_sql, true);
4565: end locate_notifier;
4566:
4567: -- DKC 02/06/01
4600: l_when_to_archive varchar2(80);
4601: l_archive_result varchar2(2);
4602:
4603: BEGIN
4604: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 01';
4605: IF (g_po_wf_debug = 'Y') THEN
4606: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4607: END IF;
4608:
4786:
4787:
4788: resultout := wf_engine.eng_completed || ':' || l_email_doc ;
4789:
4790: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 02. Result= ' || l_email_doc;
4791: IF (g_po_wf_debug = 'Y') THEN
4792: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4793: END IF;
4794:
4795: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4796:
4797: EXCEPTION
4798: WHEN OTHERS THEN
4799: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4800: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4801: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4802: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4803: raise;
4796:
4797: EXCEPTION
4798: WHEN OTHERS THEN
4799: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4800: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4801: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4802: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4803: raise;
4804:
4797: EXCEPTION
4798: WHEN OTHERS THEN
4799: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4800: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4801: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4802: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4803: raise;
4804:
4805: END Email_Doc_Yes_No;
4798: WHEN OTHERS THEN
4799: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4800: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4801: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4802: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4803: raise;
4804:
4805: END Email_Doc_Yes_No;
4806:
4831: l_doc_string varchar2(200);
4832: l_preparer_user_name varchar2(100);
4833:
4834: BEGIN
4835: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 01';
4836: IF (g_po_wf_debug = 'Y') THEN
4837: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4838: END IF;
4839:
4856: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4857:
4858: END IF;
4859:
4860: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 02';
4861:
4862: PrintDocument(itemtype,itemkey);
4863: --
4864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4862: PrintDocument(itemtype,itemkey);
4863: --
4864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4865: --
4866: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4867:
4868: EXCEPTION
4869: WHEN OTHERS THEN
4870: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4866: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4867:
4868: EXCEPTION
4869: WHEN OTHERS THEN
4870: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4871: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4872: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4873: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4874: raise;
4867:
4868: EXCEPTION
4869: WHEN OTHERS THEN
4870: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4871: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4872: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4873: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4874: raise;
4875:
4868: EXCEPTION
4869: WHEN OTHERS THEN
4870: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4871: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4872: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4873: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4874: raise;
4875:
4876: END Print_Document;
4869: WHEN OTHERS THEN
4870: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4871: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4872: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4873: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4874: raise;
4875:
4876: END Print_Document;
4877:
4892: l_doc_string varchar2(200);
4893: l_preparer_user_name varchar2(100);
4894:
4895: BEGIN
4896: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 01';
4897: IF (g_po_wf_debug = 'Y') THEN
4898: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4899: END IF;
4900:
4917: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4918:
4919: END IF;
4920:
4921: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 02';
4922:
4923: FaxDocument(itemtype,itemkey);
4924: --
4925: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4923: FaxDocument(itemtype,itemkey);
4924: --
4925: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4926: --
4927: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4928:
4929: EXCEPTION
4930: WHEN OTHERS THEN
4931: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4927: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4928:
4929: EXCEPTION
4930: WHEN OTHERS THEN
4931: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4932: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4933: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4934: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4935: raise;
4928:
4929: EXCEPTION
4930: WHEN OTHERS THEN
4931: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4932: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4933: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4934: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4935: raise;
4936:
4929: EXCEPTION
4930: WHEN OTHERS THEN
4931: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4932: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4933: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4934: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4935: raise;
4936:
4937: END Fax_Document;
4930: WHEN OTHERS THEN
4931: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4932: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4933: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4934: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4935: raise;
4936:
4937: END Fax_Document;
4938:
4966: l_doc_string varchar2(200);
4967: l_preparer_user_name varchar2(100);
4968:
4969: BEGIN
4970: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 01';
4971: IF (g_po_wf_debug = 'Y') THEN
4972: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4973: END IF;
4974:
4985: /* Bug# 2377333
4986: ** Setting application context
4987: */
4988: --Context Setting Revamp
4989: --PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey);
4990:
4991: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype,
4992: itemkey => itemkey,
4993: aname => 'ORG_ID');
5040: resultout := wf_engine.eng_completed || ':' || 'N';
5041: x_resultout := 'N';
5042: END IF;
5043:
5044: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 02. Result=' || x_resultout;
5045: IF (g_po_wf_debug = 'Y') THEN
5046: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress );
5047: END IF;
5048:
5048:
5049: EXCEPTION
5050:
5051: WHEN OTHERS THEN
5052: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5053: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5054: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
5055: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
5056: raise;
5049: EXCEPTION
5050:
5051: WHEN OTHERS THEN
5052: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5053: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5054: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
5055: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
5056: raise;
5057:
5050:
5051: WHEN OTHERS THEN
5052: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5053: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5054: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
5055: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
5056: raise;
5057:
5058:
5051: WHEN OTHERS THEN
5052: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5053: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5054: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
5055: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
5056: raise;
5057:
5058:
5059: END Is_document_Approved;
5078:
5079: BEGIN
5080:
5081:
5082: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: 01';
5083: IF (g_po_wf_debug = 'Y') THEN
5084: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5085: END IF;
5086:
5109: ELSE
5110: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5111: END IF;
5112:
5113: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' ||
5114: 'Create PO Mode= ' || l_create_po_mode;
5115: IF (g_po_wf_debug = 'Y') THEN
5116: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5117: END IF;
5119:
5120: EXCEPTION
5121:
5122: WHEN OTHERS THEN
5123: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5124: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5125: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
5126: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
5127: raise;
5120: EXCEPTION
5121:
5122: WHEN OTHERS THEN
5123: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5124: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5125: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
5126: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
5127: raise;
5128:
5121:
5122: WHEN OTHERS THEN
5123: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5124: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5125: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
5126: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
5127: raise;
5128:
5129: END Get_Create_PO_Mode;
5122: WHEN OTHERS THEN
5123: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5124: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5125: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
5126: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
5127: raise;
5128:
5129: END Get_Create_PO_Mode;
5130:
5150: BEGIN
5151:
5152: /* get the profile PO_WORKFLOW_APPROVAL_MODE and return the value */
5153:
5154: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: 01';
5155: IF (g_po_wf_debug = 'Y') THEN
5156: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5157: END IF;
5158:
5179: ELSE
5180: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
5181: END IF;
5182:
5183: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' ||
5184: 'Approval Mode= ' || l_approval_mode;
5185: IF (g_po_wf_debug = 'Y') THEN
5186: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5187: END IF;
5189:
5190: EXCEPTION
5191:
5192: WHEN OTHERS THEN
5193: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5194: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5195: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
5196: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
5197: raise;
5190: EXCEPTION
5191:
5192: WHEN OTHERS THEN
5193: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5194: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5195: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
5196: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
5197: raise;
5198:
5191:
5192: WHEN OTHERS THEN
5193: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5194: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5195: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
5196: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
5197: raise;
5198:
5199: END Get_Workflow_Approval_Mode;
5192: WHEN OTHERS THEN
5193: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
5194: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
5195: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
5196: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
5197: raise;
5198:
5199: END Get_Workflow_Approval_Mode;
5200:
5237: counter NUMBER:=0;
5238: BEGIN
5239:
5240:
5241: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 01';
5242: IF (g_po_wf_debug = 'Y') THEN
5243: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5244: END IF;
5245:
5247: open GetRecHdr_csr(p_requisition_header_id);
5248: FETCH GetRecHdr_csr into ReqHdr_rec;
5249: close GetRecHdr_csr;
5250:
5251: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 02';
5252: IF (g_po_wf_debug = 'Y') THEN
5253: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5254: END IF;
5255:
5254: END IF;
5255:
5256: SetReqHdrAttributes(itemtype, itemkey);
5257:
5258: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 03';
5259: IF (g_po_wf_debug = 'Y') THEN
5260: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5261: END IF;
5262:
5261: END IF;
5262:
5263: EXCEPTION
5264: WHEN OTHERS THEN
5265: wf_core.context('PO_REQAPPROVAL_INIT1','GetReqAttributes',x_progress);
5266: raise;
5267:
5268: end GetReqAttributes;
5269: --
5558: AND NVL(rl.modified_by_agent_flag, 'N') = 'N';
5559:
5560: BEGIN
5561:
5562: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 01';
5563: IF (g_po_wf_debug = 'Y') THEN
5564: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5565: END IF;
5566:
5603: avalue => ReqHdr_rec.emergency_po_num);
5604: --
5605:
5606: -- Bug#3147435
5607: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 02 Start of Hdr Att for JRAD';
5608: IF (g_po_wf_debug = 'Y') THEN
5609: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5610: END IF;
5611:
5625: avalue => ReqHdr_rec.contractor_status);
5626: --
5627:
5628: -- Bug#3147435
5629: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 03 End of Hdr Att for JRAD';
5630: IF (g_po_wf_debug = 'Y') THEN
5631: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5632: END IF;
5633:
5631: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
5632: END IF;
5633:
5634: /* Bug 1100247 Amitabh*/
5635: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username,
5636: x_user_display_name);
5637:
5638: wf_engine.SetItemAttrText ( itemtype => itemType,
5639: itemkey => itemkey,
5833: end if;
5834:
5835: EXCEPTION
5836: WHEN OTHERS THEN
5837: wf_core.context('PO_REQAPPROVAL_INIT1','SetReqHdrAttributes',x_progress);
5838: raise;
5839:
5840:
5841: end SetReqHdrAttributes;
5923: commit;
5924:
5925: EXCEPTION
5926: WHEN OTHERS THEN
5927: wf_core.context('PO_REQAPPROVAL_INIT1','SetReqAuthStat',x_progress);
5928: raise;
5929:
5930: END SetReqAuthStat;
5931:
5976: commit;
5977:
5978: EXCEPTION
5979: WHEN OTHERS THEN
5980: wf_core.context('PO_REQAPPROVAL_INIT1','SetPOAuthStat',x_progress);
5981: raise;
5982:
5983: END SetPOAuthStat;
5984:
6029: commit;
6030:
6031: EXCEPTION
6032: WHEN OTHERS THEN
6033: wf_core.context('PO_REQAPPROVAL_INIT1','SetRelAuthStat',x_progress);
6034: raise;
6035:
6036: END SetRelAuthStat;
6037: --
6055: commit;
6056:
6057: EXCEPTION
6058: WHEN OTHERS THEN
6059: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtReqItemtype',x_progress);
6060: raise;
6061:
6062: END UpdtReqItemtype;
6063:
6083: commit;
6084:
6085: EXCEPTION
6086: WHEN OTHERS THEN
6087: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtPOItemtype',x_progress);
6088: raise;
6089:
6090: END UpdtPOItemtype;
6091:
6112: commit;
6113:
6114: EXCEPTION
6115: WHEN OTHERS THEN
6116: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtRelItemtype',x_progress);
6117: raise;
6118:
6119: END UpdtRelItemtype;
6120:
6149: close C1;
6150:
6151: EXCEPTION
6152: WHEN OTHERS THEN
6153: wf_core.context('PO_REQAPPROVAL_INIT1','GetCanOwnerApprove',x_progress);
6154: raise;
6155:
6156: END GetCanOwnerApprove;
6157: --
6208:
6209:
6210: EXCEPTION
6211: WHEN OTHERS THEN
6212: wf_core.context('PO_REQAPPROVAL_INIT1','get_multiorg_context',x_progress);
6213: raise;
6214:
6215: END get_multiorg_context;
6216:
6249: close c_empid;
6250:
6251: EXCEPTION
6252: WHEN OTHERS THEN
6253: wf_core.context('PO_REQAPPROVAL_INIT1','get_employee_id',p_username);
6254: raise;
6255:
6256:
6257: END get_employee_id;
6273: x_user_display_name);
6274:
6275: EXCEPTION
6276: WHEN OTHERS THEN
6277: wf_core.context('PO_REQAPPROVAL_INIT1','get_user_name',to_char(p_employee_id));
6278: raise;
6279:
6280: END get_user_name;
6281:
6506: commit;
6507: EXCEPTION
6508:
6509: WHEN OTHERS THEN
6510: wf_core.context('PO_REQAPPROVAL_INIT1','InsertActionHistSubmit',x_progress);
6511: raise;
6512:
6513: END InsertActionHistSubmit;
6514:
6601: ROLLBACK;
6602: RETURN(l_unreserved_flag);
6603:
6604: WHEN OTHERS THEN
6605: wf_core.context('PO_REQAPPROVAL_INIT1','EncumbOn_DocUnreserved',
6606: l_progress);
6607:
6608: ROLLBACK;
6609: RAISE;
6637: /*Bug 6692126 end */
6638:
6639: BEGIN
6640:
6641: x_progress := 'PO_REQAPPROVAL_INIT1.PrintDocument: 01';
6642: IF (g_po_wf_debug = 'Y') THEN
6643: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
6644: END IF;
6645:
6788: itemkey => itemkey,
6789: aname => 'CONCURRENT_REQUEST_ID',
6790: avalue => l_request_id);
6791:
6792: x_progress := 'PO_REQAPPROVAL_INIT1.PrintDocument: 02. request_id= ' || to_char(l_request_id);
6793: IF (g_po_wf_debug = 'Y') THEN
6794: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
6795: END IF;
6796:
6796:
6797: EXCEPTION
6798:
6799: WHEN OTHERS THEN
6800: wf_core.context('PO_REQAPPROVAL_INIT1','PrintDocument',x_progress);
6801: raise;
6802:
6803: END PrintDocument;
6804:
6830: x_progress varchar2(200);
6831:
6832: BEGIN
6833:
6834: x_progress := 'PO_REQAPPROVAL_INIT1.FaxDocument: 01';
6835: IF (g_po_wf_debug = 'Y') THEN
6836: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
6837: END IF;
6838:
6943: itemkey => itemkey,
6944: aname => 'CONCURRENT_REQUEST_ID',
6945: avalue => l_request_id);
6946:
6947: x_progress := 'PO_REQAPPROVAL_INIT1.FaxDocument: 02. request_id= ' || to_char(l_request_id);
6948: IF (g_po_wf_debug = 'Y') THEN
6949: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
6950: END IF;
6951:
6951:
6952: EXCEPTION
6953:
6954: WHEN OTHERS THEN
6955: wf_core.context('PO_REQAPPROVAL_INIT1','FaxDocument',x_progress);
6956: raise;
6957:
6958: END FaxDocument;
6959:
7004:
7005: EXCEPTION
7006:
7007: WHEN OTHERS THEN
7008: wf_core.context('PO_REQAPPROVAL_INIT1','Print_Requisition',x_progress);
7009: raise;
7010: END;
7011:
7012: FUNCTION Print_PO(p_doc_num varchar2, p_qty_precision varchar,
7113:
7114: EXCEPTION
7115:
7116: WHEN OTHERS THEN
7117: wf_core.context('PO_REQAPPROVAL_INIT1','Print_PO',x_progress);
7118: raise;
7119:
7120: END Print_PO;
7121:
7232:
7233: EXCEPTION
7234:
7235: WHEN OTHERS THEN
7236: wf_core.context('PO_REQAPPROVAL_INIT1','Fax_PO',x_progress);
7237: raise;
7238:
7239: END Fax_PO;
7240:
7348:
7349: EXCEPTION
7350:
7351: WHEN OTHERS THEN
7352: wf_core.context('PO_REQAPPROVAL_INIT1','Print_Release',x_progress);
7353: raise;
7354:
7355: END Print_Release;
7356:
7467:
7468: EXCEPTION
7469:
7470: WHEN OTHERS THEN
7471: wf_core.context('PO_REQAPPROVAL_INIT1','Fax_Release',x_progress);
7472: raise;
7473:
7474: END Fax_Release;
7475:
7526: END IF; -- run mode
7527:
7528: EXCEPTION
7529: WHEN OTHERS THEN
7530: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7531: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7532: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
7533: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
7534: RAISE;
7527:
7528: EXCEPTION
7529: WHEN OTHERS THEN
7530: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7531: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7532: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
7533: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
7534: RAISE;
7535:
7528: EXCEPTION
7529: WHEN OTHERS THEN
7530: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7531: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7532: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
7533: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
7534: RAISE;
7535:
7536: END is_apps_source_POR;
7529: WHEN OTHERS THEN
7530: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7531: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7532: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
7533: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
7534: RAISE;
7535:
7536: END is_apps_source_POR;
7537:
7596: END IF; -- run mode
7597:
7598: EXCEPTION
7599: WHEN OTHERS THEN
7600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7602: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
7603: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
7604: RAISE;
7597:
7598: EXCEPTION
7599: WHEN OTHERS THEN
7600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7602: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
7603: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
7604: RAISE;
7605:
7598: EXCEPTION
7599: WHEN OTHERS THEN
7600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7602: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
7603: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
7604: RAISE;
7605:
7606: END is_contractor_status_pending;
7599: WHEN OTHERS THEN
7600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7602: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
7603: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
7604: RAISE;
7605:
7606: END is_contractor_status_pending;
7607:
7629: l_doc_string varchar2(200);
7630: l_preparer_user_name varchar2(100);
7631:
7632: BEGIN
7633: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 01';
7634: IF (g_po_wf_debug = 'Y') THEN
7635: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
7636: END IF;
7637:
7654: */
7655: if (approver_id is null OR
7656: preparer_id = approver_id OR x_username is null) then
7657: resultout := wf_engine.eng_completed || ':' || 'Y';
7658: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
7659: else
7660: resultout := wf_engine.eng_completed || ':' || 'N';
7661: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
7662: end if;
7657: resultout := wf_engine.eng_completed || ':' || 'Y';
7658: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
7659: else
7660: resultout := wf_engine.eng_completed || ':' || 'N';
7661: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
7662: end if;
7663:
7664: EXCEPTION
7665: WHEN OTHERS THEN
7662: end if;
7663:
7664: EXCEPTION
7665: WHEN OTHERS THEN
7666: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7667: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7668: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
7669: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
7670: raise;
7663:
7664: EXCEPTION
7665: WHEN OTHERS THEN
7666: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7667: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7668: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
7669: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
7670: raise;
7671:
7664: EXCEPTION
7665: WHEN OTHERS THEN
7666: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7667: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7668: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
7669: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
7670: raise;
7671:
7672: end Is_Submitter_Last_Approver;
7665: WHEN OTHERS THEN
7666: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7667: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7668: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
7669: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
7670: raise;
7671:
7672: end Is_Submitter_Last_Approver;
7673:
7764: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype,
7765: itemkey => itemkey,
7766: aname => 'PREPARER_ID');
7767:
7768: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
7769:
7770: return(l_name);
7771:
7772: END;
7796: BEGIN
7797:
7798: -- To be used only for PO and Req Approval wf
7799:
7800: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 10';
7801: IF (g_po_wf_debug = 'Y') THEN
7802: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7803: END IF;
7804:
7801: IF (g_po_wf_debug = 'Y') THEN
7802: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7803: END IF;
7804:
7805: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 20'
7806: ||' username: '|| username
7807: ||' doc: '|| doc
7808: ||' location: '|| loc
7809: ||' error msg: '|| msg;
7840: select to_char(PO_WF_ITEMKEY_S.NEXTVAL) into l_seq from sys.dual;
7841: Err_ItemKey := to_char(l_document_id) || '-' || l_seq;
7842:
7843:
7844: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 50'
7845: ||' Parent Itemtype: '|| ItemType
7846: ||' Parent Itemkey: '|| ItemKey
7847: ||' Error Itemtype: '|| Err_ItemType
7848: ||' Error Itemkey: '|| Err_ItemKey;
7853: wf_engine.CreateProcess( ItemType => Err_ItemType,
7854: ItemKey => Err_ItemKey,
7855: process => 'PLSQL_ERROR_NOTIF');
7856:
7857: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7858: IF (g_po_wf_debug = 'Y') THEN
7859: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7860: END IF;
7861:
7880: itemkey => Err_ItemKey,
7881: aname => 'PREPARER_USER_NAME' ,
7882: avalue => username);
7883: --
7884: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 100';
7885: IF (g_po_wf_debug = 'Y') THEN
7886: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7887: END IF;
7888:
7889:
7890: wf_engine.StartProcess(itemtype => Err_ItemType,
7891: itemkey => Err_ItemKey);
7892:
7893: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7894: IF (g_po_wf_debug = 'Y') THEN
7895: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7896: END IF;
7897:
7900: end if;
7901:
7902: EXCEPTION
7903: WHEN OTHERS THEN
7904: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: '|| sqlerrm;
7905: IF (g_po_wf_debug = 'Y') THEN
7906: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7907: END IF;
7908: RAISE;
7995: l_doc_string varchar2(200);
7996: l_preparer_user_name varchar2(100);
7997:
7998: BEGIN
7999: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 01';
8000: IF (g_po_wf_debug = 'Y') THEN
8001: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
8002: END IF;
8003:
8024:
8025: --
8026: resultout := wf_engine.eng_completed || ':' || l_prof_value ;
8027: --
8028: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 02. Result= ' || l_prof_value;
8029: IF (g_po_wf_debug = 'Y') THEN
8030: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
8031: END IF;
8032:
8031: END IF;
8032:
8033: EXCEPTION
8034: WHEN OTHERS THEN
8035: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8036: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8037: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' ,
8038: itemtype, itemkey, x_progress);
8039: resultout:='COMPLETE:'||'N';
8032:
8033: EXCEPTION
8034: WHEN OTHERS THEN
8035: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8036: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8037: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' ,
8038: itemtype, itemkey, x_progress);
8039: resultout:='COMPLETE:'||'N';
8040:
8033: EXCEPTION
8034: WHEN OTHERS THEN
8035: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
8036: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
8037: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' ,
8038: itemtype, itemkey, x_progress);
8039: resultout:='COMPLETE:'||'N';
8040:
8041: END;
8159: l_preparer_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => l_item_type,
8160: itemkey => l_item_key,
8161: aname => 'PREPARER_ID');
8162:
8163: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
8164:
8165: /* Bug# 2655410: kagarwal
8166: ** Desc: We will get the document type display value from
8167: ** po document types. Hence we need to get the doc type and subtype
8403:
8404:
8405: exception
8406: WHEN OTHERS THEN
8407: wf_core.context('PO_REQAPPROVAL_INIT1','acceptance_required',x_progress);
8408: raise;
8409: end;
8410:
8411: --
8569: Insert_Acc_Rejection_Row(itemtype, itemkey, actid, 'Y');
8570:
8571: EXCEPTION
8572: WHEN OTHERS THEN
8573: wf_core.context('PO_REQAPPROVAL_INIT1','Register_acceptance',x_progress);
8574: raise;
8575: end;
8576:
8577: --
8770: end if;
8771:
8772: EXCEPTION
8773: WHEN OTHERS THEN
8774: wf_core.context('PO_REQAPPROVAL_INIT1','Register_rejection',x_progress);
8775: raise;
8776: end;
8777:
8778:
8969: X_Responsibility_Id := fnd_global.resp_id;
8970: X_Application_Id := fnd_global.resp_appl_id;
8971:
8972:
8973: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.X_USER_ID= '
8974: || to_char(x_user_id)
8975: || 'X_ APPLICATION_ID= ' || to_char(x_application_id)
8976: || 'X_RESPONSIBILITY_ID= ' || to_char(x_responsibility_id);
8977: IF (g_po_wf_debug = 'Y') THEN
9002: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype,
9003: itemkey => itemkey,
9004: aname => 'RESPONSIBILITY_ID');
9005:
9006: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= '
9007: || to_char(l_user_id)
9008: || ' L_APPLICATION_ID= ' || to_char(l_application_id)
9009: || 'L_RESPONSIBILITY_ID= ' || to_char(l_responsibility_id);
9010: IF (g_po_wf_debug = 'Y') THEN
9088: l_appl_id number;
9089:
9090: BEGIN
9091:
9092: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 01';
9093: IF (g_po_wf_debug = 'Y') THEN
9094: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9095: END IF;
9096:
9128: l_resp_id is not null and
9129: l_appl_id is not null )then
9130:
9131: -- Bug 4125251,replaced apps init call with set doc mgr context call
9132: PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
9133:
9134: IF l_orgid is NOT NULL THEN
9135: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
9136: END IF;
9161: END IF;
9162:
9163: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
9164:
9165: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 02. Result= ' || l_massupdate_releases;
9166: IF (g_po_wf_debug = 'Y') THEN
9167: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9168: END IF;
9169:
9187: l_communicate_update varchar2(30); -- Bug 3574895. Length same as that on the form field PO_APPROVE.COMMUNICATE_UPDATES
9188: l_category_struct_id mtl_category_sets_b.structure_id%type; -- Bug 3592705
9189: begin
9190:
9191: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 01';
9192:
9193: /* Bug# 2846210
9194: ** Desc: Setting application context as this wf api will be executed
9195: ** after the background engine is run.
9213: FROM mtl_default_sets_view
9214: WHERE functional_area_id = 2 ;
9215: Exception
9216: when others then
9217: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: Could not find Category Structure Id';
9218: IF (g_po_wf_debug = 'Y') THEN
9219: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9220: END IF;
9221: raise;
9258: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9259: EXCEPTION
9260: WHEN OTHERS THEN
9261: l_update_releases := 'N';
9262: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'||
9263: ' Result= ' || l_update_releases;
9264: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9265: IF (g_po_wf_debug = 'Y') THEN
9266: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9278: l_document_type PO_DOCUMENT_TYPES_ALL.DOCUMENT_TYPE_CODE%TYPE;
9279: l_document_subtype PO_DOCUMENT_TYPES_ALL.DOCUMENT_SUBTYPE%TYPE;
9280:
9281: BEGIN
9282: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 01';
9283:
9284: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
9285: itemkey => itemkey,
9286: aname => 'CO_R_RETRO_CHANGE');
9313: END IF; /*IF (l_supplier_comm IS NULL)*/
9314:
9315: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
9316:
9317: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 02. Result= ' || l_supplier_comm;
9318: IF (g_po_wf_debug = 'Y') THEN
9319: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9320: END IF;
9321:
9387: l_reset_retro_update BOOLEAN := FALSE;
9388:
9389: BEGIN
9390:
9391: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 01';
9392: IF (g_po_wf_debug = 'Y') THEN
9393: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9394: END IF;
9395:
9412: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
9413: itemkey => itemkey,
9414: aname => 'CO_R_RETRO_CHANGE');
9415:
9416: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 02. ' ||
9417: 'l_document_id = ' || l_document_id ||
9418: 'l_document_type = ' || l_document_type ||
9419: 'l_retro_change = ' || l_retro_change ;
9420:
9437: l_retro_change := PO_RETROACTIVE_PRICING_PVT.Is_Retro_Update(
9438: p_document_id => l_document_id,
9439: p_document_type => l_document_type);
9440:
9441: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 03' ||
9442: 'l_retro_change = ' || l_retro_change ;
9443: IF (g_po_wf_debug = 'Y') THEN
9444: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9445: END IF;
9449:
9450: IF (l_retro_change = 'Y') THEN
9451: l_retroactive_update := PO_RETROACTIVE_PRICING_PVT.Get_Retro_Mode;
9452:
9453: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 04' ||
9454: 'l_retroactive_update = ' || l_retroactive_update;
9455: IF (g_po_wf_debug = 'Y') THEN
9456: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9457: END IF;
9464: END IF; /*IF (l_retroactive_update = 'NEVER')*/
9465:
9466: END IF; /*IF (l_retro_change = 'Y')*/
9467:
9468: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 05' ||
9469: 'l_retroactive_update = ' || l_retroactive_update ||
9470: 'l_retro_change = ' || l_retro_change ;
9471: IF (g_po_wf_debug = 'Y') THEN
9472: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9479: aname => 'CO_R_RETRO_CHANGE',
9480: avalue => l_retro_change);
9481:
9482: IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES') THEN
9483: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 06. Calling ' ||
9484: 'PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release';
9485: IF (g_po_wf_debug = 'Y') THEN
9486: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9487: END IF;
9497: IF (l_return_status <> 'S') THEN
9498: l_update_releases := 'N';
9499: END IF;
9500:
9501: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 07. Result= ' ||
9502: l_update_releases;
9503: IF (g_po_wf_debug = 'Y') THEN
9504: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9505: END IF;
9506:
9507: END IF; /*IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES')*/
9508:
9509: IF (l_reset_retro_update) THEN
9510: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 08. Reset_Retro_Update';
9511: IF (g_po_wf_debug = 'Y') THEN
9512: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9513: END IF;
9514:
9521:
9522: EXCEPTION
9523: WHEN OTHERS THEN
9524: l_update_releases := 'N';
9525: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'||
9526: ' Result= ' || l_update_releases;
9527: resultout := wf_engine.eng_completed || ':' || l_update_releases;
9528: IF (g_po_wf_debug = 'Y') THEN
9529: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
9729: l_progress := '200';
9730:
9731: EXCEPTION
9732: WHEN OTHERS THEN
9733: wf_core.context('PO_REQAPPROVAL_INIT1','should_notify_cat_admin',l_progress||' DocumentId='||to_char(l_doc_id));
9734: raise;
9735:
9736: END should_notify_cat_admin;
9737:
9778: l_user_name FND_USER.USER_NAME%type;
9779: l_lock_owner_role PO_HEADERS_ALL.lock_owner_role%type;
9780: l_lock_owner_user_id PO_HEADERS_ALL.lock_owner_user_id%type;
9781: BEGIN
9782: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 100' ||
9783: 'Document Id='|| to_char(p_doc_id) ||
9784: 'Document Type='|| p_doc_type;
9785: IF (g_po_wf_debug = 'Y') THEN
9786: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9785: IF (g_po_wf_debug = 'Y') THEN
9786: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9787: END IF;
9788:
9789: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 110';
9790: -- Proceed only if this is an agreement
9791: IF (g_po_wf_debug = 'Y') THEN
9792: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9793: END IF;
9798: into l_lock_owner_user_id, l_lock_owner_role
9799: from po_headers_all
9800: where po_header_id = p_doc_id;
9801:
9802: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 140' ||
9803: 'l_lock_owner_user_id ='|| to_char(l_lock_owner_user_id) ||
9804: 'l_lock_owner_role Type='|| l_lock_owner_role;
9805:
9806: IF (g_po_wf_debug = 'Y') THEN
9807: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9808: END IF;
9809:
9810: IF l_lock_owner_role = 'CAT ADMIN' THEN
9811: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 150';
9812:
9813: -- The performer attribute holds the user name, get the user name
9814: -- associated with the user id
9815: select user_name into l_user_name
9815: select user_name into l_user_name
9816: from fnd_user
9817: where user_id = l_lock_owner_user_id;
9818:
9819: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 155' ||
9820: 'UserName='|| l_user_name;
9821: IF (g_po_wf_debug = 'Y') THEN
9822: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9823: END IF;
9821: IF (g_po_wf_debug = 'Y') THEN
9822: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
9823: END IF;
9824:
9825: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
9826: -- Set the item attribute tied to the performer of the
9827: -- approval notification
9828: wf_engine.SetItemAttrText ( itemtype => p_item_type ,
9829: itemkey => p_item_key ,
9828: wf_engine.SetItemAttrText ( itemtype => p_item_type ,
9829: itemkey => p_item_key ,
9830: aname => 'CATALOG_ADMIN_USER_NAME',
9831: avalue => l_user_name);
9832: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 170';
9833: END IF; -- End of check for "CAT ADMIN"
9834: END IF; -- End of Check for "PA" (Agreement check)
9835: l_progress := '200';
9836:
9835: l_progress := '200';
9836:
9837: EXCEPTION
9838: WHEN OTHERS THEN
9839: wf_core.context('PO_REQAPPROVAL_INIT1','set_catalog_admin_user_name',l_progress||' DocumentId='||to_char(p_doc_id));
9840: raise;
9841:
9842: END set_catalog_admin_user_name;
9843:
9960: p_func_mode in varchar2,
9961: x_result_out out NOCOPY varchar2) is
9962: l_progress VARCHAR2(300);
9963: begin
9964: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
9965: IF (g_po_wf_debug = 'Y') THEN
9966: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
9967: END IF;
9968:
10001:
10002: l_progress VARCHAR2(300);
10003: begin
10004:
10005: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
10006: IF (g_po_wf_debug = 'Y') THEN
10007: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
10008: END IF;
10009:
10115: p_func_mode in varchar2,
10116: x_result_out out NOCOPY varchar2) is
10117: l_progress VARCHAR2(300);
10118: begin
10119: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
10120: IF (g_po_wf_debug = 'Y') THEN
10121: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
10122: END IF;
10123:
10156:
10157: l_progress VARCHAR2(300);
10158: begin
10159:
10160: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
10161: IF (g_po_wf_debug = 'Y') THEN
10162: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
10163: END IF;
10164:
10180: RAISE;
10181: end set_is_supplier_context_n;
10182: --
10183:
10184: end PO_REQAPPROVAL_INIT1;