[Home] [Help]
1: PACKAGE BODY po_reqapproval_init1 AS
2: /* $Header: POXWPA1B.pls 120.141.12020000.8 2013/03/31 10:32:55 vpeddi ship $ */
3: -- Read the profile option that enables/disables the debug log
4: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
5: -- Read the profile option that determines whether the promise date will be defaulted with need-by date or not
13: | FILENAME
14: | POXWPA1B.pls
15: |
16: | DESCRIPTION
17: | PL/SQL body for package: PO_REQAPPROVAL_INIT1
18: |
19: | NOTES Ben Chihaoui Created 6/15/97
20: | MODIFIED (MM/DD/YY)
21: | davidng 06/04/2002 Fix for bug 2401183. Used the Workflow Utility
20: | MODIFIED (MM/DD/YY)
21: | davidng 06/04/2002 Fix for bug 2401183. Used the Workflow Utility
22: | Package wrapper function and procedure to get
23: | and set attributes REL_NUM and REL_NUM_DASH
24: | in procedure PO_REQAPPROVAL_INIT1.Initialise_Error
25: *=======================================================================*/
26: --
27: TYPE g_refcur
28: IS
300: x_users_count := l_count;
301: EXCEPTION
302: WHEN OTHERS THEN
303: x_name_list := NULL;
304: l_progress := 'PO_REQAPPROVAL_INIT1.get_diff_in_user_list : Failed to get the list of users';
305: po_message_s.sql_error('In Exception of get_diff_in_user_list ()', l_progress, SQLCODE);
306: END;
307: /*******************************************************************
308: < Added this function as part of Bug #: 2810150 >
396: RETURN l_role_name;
397: EXCEPTION
398: WHEN OTHERS THEN
399: l_role_name := NULL;
400: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_role_for_users: Failed to get the list of users';
401: po_message_s.sql_error('In Exception of get_wf_role_for_users()', l_progress, SQLCODE);
402: END get_wf_role_for_users;
403: /**
404: < Added this function as part of Bug #: 2810150 >
530: x_count := l_count;
531: EXCEPTION
532: WHEN OTHERS THEN
533: x_new_list := ' null ';
534: l_progress := 'PO_REQAPPROVAL_INIT1.get_user_list_with_resp: Failed to get the list of users';
535: po_message_s.sql_error('In Exception of get_user_list_with_resp()', l_progress, SQLCODE);
536: END get_user_list_with_resp;
537: -------------------------------------------------------------------------------
538: --Start of Comments
759: l_org_id NUMBER; -- CLM Controls Project
760: -- PAR Project : Approval
761: l_draft_type PO_DRAFTS.DRAFT_TYPE%TYPE;
762: BEGIN
763: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: at beginning of Start_WF_Process';
764: IF (g_po_wf_debug = 'Y') THEN
765: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
766: END IF;
767: --
820: WHERE item_type = l_itemtype
821: AND item_key = l_itemkey;
822: EXCEPTION
823: WHEN OTHERS THEN
824: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: check process existance';
825: po_message_s.sql_error('In Exception of Start_WF_Process()', x_progress, SQLCODE);
826: raise;
827: END;
828: -- Bug 5218538 START
828: -- Bug 5218538 START
829: -- Update the XML/EDI flags in the database based on p_xml_flag.
830: -- Do this before the commit, to avoid deadlock situations.
831: IF ((p_xml_flag IS NOT NULL) AND ((DocumentTypeCode='RELEASE' AND DocumentSubtype='BLANKET') OR (DocumentTypeCode='PO' AND DocumentSubtype='STANDARD'))) THEN
832: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Updating the xml_flag: ' || p_xml_flag;
833: IF (g_po_wf_debug = 'Y') THEN
834: /* DEBUG */
835: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
836: END IF;
870: ELSE
871: l_draft_type := NULL;
872: END IF;
873:
874: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: draft Type : ' || l_draft_type;
875: IF (g_po_wf_debug = 'Y') THEN
876: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
877: END IF;
878:
1039: --
1040: /* PO AME Approval Changes : Setting workflow attributes ame_transaction_id and ame_transaction_type. */
1041: -- Start :
1042: IF (DocumentTypeCode = 'PO' OR DocumentTypeCode = 'PA') AND l_ame_transaction_type is not NULL THEN
1043: x_progress := 'PO_REQAPPROVAL_INIT1.setting notifictaion regions ' ;
1044:
1045: IF (g_po_wf_debug = 'Y') THEN
1046: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1047: END IF;
1412: -- end if; --Mod Project
1413: /* Get the multi-org context and store it in item attribute ORG_ID. This will be
1414: ** By all other activities.
1415: */
1416: PO_REQAPPROVAL_INIT1.get_multiorg_context (DocumentTypeCode, DocumentID, x_orgid);
1417: IF x_orgid IS NOT NULL THEN
1418: PO_MOAC_UTILS_PVT.set_org_context(x_orgid) ; --
1419: /* Set the Org_id item attribute. We will use it to get the context for every activity */
1420: PO_WF_UTIL_PKG.SetItemAttrNumber ( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'ORG_ID', avalue => x_orgid);
1570: PO_CHORD_WF6.Set_Wf_Agreement_Tol(l_itemtype, l_itemkey , DocumentSubtype);
1571: ELSIF DocumentTypeCode = 'RELEASE' THEN
1572: PO_CHORD_WF6.Set_Wf_Release_Tol(l_itemtype, l_itemkey , DocumentSubtype);
1573: END IF;
1574: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to FND_PROFILE';
1575: IF (g_po_wf_debug = 'Y') THEN
1576: PO_WF_DEBUG_PKG.insert_debug(l_itemtype,l_itemkey,x_progress);
1577: END IF;
1578: /* Get the USER_ID and the RESPONSIBLITY_ID for the current forms session.
1636:
1637: /*Bug 11727653: BYPASSING MULTIPLE SUBMISSION CHECKS IN WORKFLOW. Setting the BYPASS_CHECKS_FLAG*/
1638: PO_WF_UTIL_PKG.SetItemAttrText( itemtype => l_itemtype, itemkey => l_itemkey, aname => 'BYPASS_CHECKS_FLAG', avalue => p_bypass_checks_flag);
1639:
1640: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: Before call to wf_engine.StartProcess()' || ' parameter DefaultApprovalPathID= ' || TO_CHAR(DefaultApprovalPathID);
1641: IF (g_po_wf_debug = 'Y') THEN
1642: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1643: END IF;
1644: --
1645: wf_engine.StartProcess( itemtype => l_itemtype, itemkey => l_itemkey );
1646: END IF;
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: x_progress := 'PO_REQAPPROVAL_INIT1.Start_WF_Process: In Exception handler';
1650: IF (g_po_wf_debug = 'Y') THEN
1651: /* DEBUG */
1652: PO_WF_DEBUG_PKG.insert_debug(itemtype,l_itemkey,x_progress);
1653: END IF;
1724: is_clm_enabled VARCHAR2(1);
1725: l_review_msg varchar2(200); -- PO AME Project
1726:
1727: BEGIN
1728: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 01';
1729: IF (g_po_wf_debug = 'Y') THEN
1730: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1731: END IF;
1732: -- Do nothing in cancel or timeout mode
1769: ** be used as the FORWARD-FROM in the notifications.
1770: ** Initially the preparer is also considered as the approver, so
1771: ** set the approver_username also.
1772: */
1773: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, x_username, x_user_display_name);
1774: -- Bug 711141 fix (setting process owner here)
1775: wf_engine.SetItemOwner (itemtype => itemtype, itemkey => itemkey,
1776: /* { Bug 2148872: owner => 'PER:' || l_preparer_id);
1777: wf_engine.SetItemOwner needs 'owner' parameter to be passed as
1806: ** correctly.
1807: */
1808: l_forward_from_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'FORWARD_FROM_ID');
1809: IF (l_forward_from_id <> l_preparer_id) THEN
1810: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_from_id, x_ff_username, x_ff_user_display_name);
1811: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME' , avalue => x_ff_username);
1812: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'FORWARD_FROM_DISP_NAME' , avalue => x_ff_user_display_name);
1813: ELSE
1814: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'FORWARD_FROM_USER_NAME' , avalue => x_username);
1825: ** as that of preparer using the var x_username and
1826: ** x_user_display_name
1827: */
1828: /* Get the forward-to display name */
1829: PO_REQAPPROVAL_INIT1.get_user_name(l_forward_to_id, x_ft_username, x_ft_user_display_name);
1830: /* Set the forward-to display name */
1831: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'FORWARD_TO_USERNAME' , avalue => x_ft_username);
1832: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'FORWARD_TO_DISPLAY_NAME' , avalue => x_ft_user_display_name);
1833: END IF;
1898: l_view_po_url := get_mod_url(p_po_header_id => l_document_id, p_draft_id => l_draft_id, p_doc_subtype => l_doc_subtype, p_mode => 'viewOnly');
1899: ELSE
1900: l_view_po_url := get_po_url(p_po_header_id => l_document_id, p_doc_subtype => l_doc_subtype, p_mode => 'viewOnly');
1901: END IF;
1902: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url viewOnly' || 'l_view_po_url ::'|| l_view_po_url;
1903: IF (g_po_wf_debug = 'Y') THEN
1904: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1905: END IF;
1906: IF NVL(l_can_modify_flag,'N') = 'Y' THEN
1911: l_edit_po_url := get_mod_url(p_po_header_id => l_document_id,p_draft_id => l_draft_id, p_doc_subtype => l_doc_subtype, p_mode => 'update');
1912: ELSE
1913: l_edit_po_url := get_po_url(p_po_header_id => l_document_id, p_doc_subtype => l_doc_subtype, p_mode => 'update');
1914: END IF;
1915: x_progress := 'PO_REQAPPROVAL_INIT1.get_po_url update' || 'l_edit_po_url ::'|| l_edit_po_url;
1916: IF (g_po_wf_debug = 'Y') THEN
1917: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
1918: END IF;
1919: ELSE
2103: /* PO AME Project :End */
2104:
2105: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2106: --
2107: x_progress := 'PO_REQAPPROVAL_INIT1.Set_Startup_Values: 03'|| 'Open Form Command= ' || l_open_form;
2108: IF (g_po_wf_debug = 'Y') THEN
2109: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2110: END IF;
2111: EXCEPTION
2109: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2110: END IF;
2111: EXCEPTION
2112: WHEN OTHERS THEN
2113: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2114: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2115: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2116: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2117: raise;
2110: END IF;
2111: EXCEPTION
2112: WHEN OTHERS THEN
2113: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2114: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2115: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2116: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2117: raise;
2118: END Set_Startup_Values;
2111: EXCEPTION
2112: WHEN OTHERS THEN
2113: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2114: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2115: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2116: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2117: raise;
2118: END Set_Startup_Values;
2119: --
2112: WHEN OTHERS THEN
2113: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2114: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2115: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Startup_Values',x_progress);
2116: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_STARTUP_VALUES');
2117: raise;
2118: END Set_Startup_Values;
2119: --
2120: -- Get_Req_Attributes
2134: x_progress VARCHAR2(100);
2135: l_doc_string VARCHAR2(200);
2136: l_preparer_user_name VARCHAR2(100);
2137: BEGIN
2138: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 01';
2139: IF (g_po_wf_debug = 'Y') THEN
2140: /* DEBUG */
2141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2142: END IF;
2149: /* Bug# 2377333
2150: ** Setting application context
2151: */
2152: --Context Setting Revamp
2153: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2154: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2155: IF l_orgid IS NOT NULL THEN
2156: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2157: END IF;
2159: GetReqAttributes(l_requisition_header_id,itemtype,itemkey);
2160: --
2161: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2162: --
2163: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Req_Attributes: 02';
2164: IF (g_po_wf_debug = 'Y') THEN
2165: /* DEBUG */
2166: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2167: END IF;
2166: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2167: END IF;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2171: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2172: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2173: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2174: raise;
2167: END IF;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2171: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2172: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2173: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2174: raise;
2175: END Get_Req_Attributes;
2168: EXCEPTION
2169: WHEN OTHERS THEN
2170: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2171: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2172: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2173: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2174: raise;
2175: END Get_Req_Attributes;
2176: -- set_doc_stat_preapproved
2169: WHEN OTHERS THEN
2170: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2171: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2172: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Req_Attributes',x_progress);
2173: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_REQ_ATTRIBUTES');
2174: raise;
2175: END Get_Req_Attributes;
2176: -- set_doc_stat_preapproved
2177: -- Added for WR4
2195: l_doc_string VARCHAR2(200);
2196: l_preparer_user_name VARCHAR2(100);
2197: l_draft_id NUMBER := -1; --Mod Project
2198: BEGIN
2199: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2200: --
2201: IF (funcmode <> wf_engine.eng_run) THEN
2202: resultout := wf_engine.eng_null;
2203: RETURN;
2235: END IF;
2236: --
2237: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2238: --
2239: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2240: IF (g_po_wf_debug = 'Y') THEN
2241: /* DEBUG */
2242: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2243: END IF;
2242: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2243: END IF;
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2247: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2248: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2249: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2250: raise;
2243: END IF;
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2247: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2248: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2249: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2250: raise;
2251: END set_doc_stat_preapproved;
2244: EXCEPTION
2245: WHEN OTHERS THEN
2246: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2247: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2248: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2249: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2250: raise;
2251: END set_doc_stat_preapproved;
2252: /* New procedure for set status preapproved added to call from workflow POAPPAME*/
2245: WHEN OTHERS THEN
2246: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2247: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2248: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2249: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2250: raise;
2251: END set_doc_stat_preapproved;
2252: /* New procedure for set status preapproved added to call from workflow POAPPAME*/
2253: PROCEDURE set_doc_stat_preapproved1
2270: l_doc_string VARCHAR2(200);
2271: l_preparer_user_name VARCHAR2(100);
2272: l_draft_id NUMBER := -1; --Mod Project
2273: BEGIN
2274: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 01';
2275: --
2276: IF (funcmode <> wf_engine.eng_run) THEN
2277: resultout := wf_engine.eng_null;
2278: RETURN;
2301: END IF;
2302: --
2303: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2304: --
2305: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_preapproved: 02';
2306: IF (g_po_wf_debug = 'Y') THEN
2307: /* DEBUG */
2308: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2309: END IF;
2308: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2309: END IF;
2310: EXCEPTION
2311: WHEN OTHERS THEN
2312: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2313: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2314: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2315: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2316: raise;
2309: END IF;
2310: EXCEPTION
2311: WHEN OTHERS THEN
2312: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2313: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2314: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2315: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2316: raise;
2317: END set_doc_stat_preapproved1;
2310: EXCEPTION
2311: WHEN OTHERS THEN
2312: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2313: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2314: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2315: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2316: raise;
2317: END set_doc_stat_preapproved1;
2318: -- set_doc_stat_inprocess
2311: WHEN OTHERS THEN
2312: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2313: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2314: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_preapproved',x_progress);
2315: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_PREAPPROVED');
2316: raise;
2317: END set_doc_stat_preapproved1;
2318: -- set_doc_stat_inprocess
2319: -- Set the Doc status to In process and update the Doc Header table with the Itemtype
2336: l_doc_string VARCHAR2(200);
2337: l_preparer_user_name VARCHAR2(100);
2338: l_draft_id NUMBER := -1; --Mod Project
2339: BEGIN
2340: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 01';
2341: IF (g_po_wf_debug = 'Y') THEN
2342: /* DEBUG */
2343: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2344: END IF;
2380: END IF;
2381: -- CLM Aprvl
2382: -- Adding the new parameter Draft Id
2383: SetPOAuthStat(l_document_id, itemtype, itemkey, l_note, 'IN PROCESS', l_draft_id);
2384: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02 unlock document';
2385: IF (g_po_wf_debug = 'Y') THEN
2386: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2387: END IF;
2388: IF l_draft_id = -1 THEN
2399: END IF;
2400: --
2401: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2402: --
2403: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_stat_inprocess: 02';
2404: IF (g_po_wf_debug = 'Y') THEN
2405: /* DEBUG */
2406: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2407: END IF;
2406: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2407: END IF;
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2411: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2412: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2413: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2414: raise;
2407: END IF;
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2411: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2412: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2413: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2414: raise;
2415: END set_doc_stat_inprocess;
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2411: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2412: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2413: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2414: raise;
2415: END set_doc_stat_inprocess;
2416: --
2409: WHEN OTHERS THEN
2410: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2411: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2412: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2413: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2414: raise;
2415: END set_doc_stat_inprocess;
2416: --
2417: PROCEDURE set_doc_to_originalstat
2434: l_doc_string VARCHAR2(200);
2435: l_preparer_user_name VARCHAR2(100);
2436: l_draft_id NUMBER :=-1; --Mod Project
2437: BEGIN
2438: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 01';
2439: IF (g_po_wf_debug = 'Y') THEN
2440: /* DEBUG */
2441: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2442: END IF;
2459: l_draft_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,itemkey => itemkey,aname => 'DRAFT_ID');
2460: IF l_draft_id IS NULL THEN
2461: l_draft_id := -1;
2462: END IF;
2463: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: parameters ';
2464: x_progress := x_progress || l_orig_auth_stat || '- ORIG_AUTH_STATUS';
2465: x_progress := x_progress || l_doc_type || '- DOCUMENT_TYPE';
2466: x_progress := x_progress || l_doc_subtype || '- DOCUMENT_SUBTYPE';
2467: x_progress := x_progress || l_doc_id || '- DOCUMENT_ID';
2508: END IF;
2509: IF l_auth_stat <> 'APPROVED' THEN
2510: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'AUTHORIZATION_STATUS', avalue => l_orig_auth_stat);
2511: END IF;
2512: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 02' || ' Auth_status= ' || l_auth_stat || ', Orig_auth_stat= ' || l_orig_auth_stat;
2513: IF (g_po_wf_debug = 'Y') THEN
2514: /* DEBUG */
2515: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2516: END IF;
2516: END IF;
2517: -- Bug 3845048: Added the code to update the action history with 'no action'
2518: -- so that the action history code is completed properly when the document
2519: -- is returned to the submitter, in case of no approver found or time out
2520: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_to_originalstat: 03' || 'Update Action History' || 'Action Code = No Action';
2521: IF (g_po_wf_debug = 'Y') THEN
2522: /* DEBUG */
2523: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2524: END IF;
2524: END IF;
2525: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2529: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2530: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2531: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2532: raise;
2525: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2529: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2530: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2531: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2532: raise;
2533: END set_doc_to_originalstat;
2526: EXCEPTION
2527: WHEN OTHERS THEN
2528: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2529: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2530: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2531: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2532: raise;
2533: END set_doc_to_originalstat;
2534: -- Register_doc_submitted
2527: WHEN OTHERS THEN
2528: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2529: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2530: wf_core.context('PO_REQAPPROVAL_INIT1','set_doc_stat_inprocess',x_progress);
2531: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.SET_DOC_STAT_INPROCESS');
2532: raise;
2533: END set_doc_to_originalstat;
2534: -- Register_doc_submitted
2535: --
2550: x_progress VARCHAR2(100);
2551: l_doc_string VARCHAR2(200);
2552: l_preparer_user_name VARCHAR2(100);
2553: BEGIN
2554: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 01';
2555: IF (g_po_wf_debug = 'Y') THEN
2556: /* DEBUG */
2557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2558: END IF;
2578: END IF;
2579: --
2580: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED';
2581: --
2582: x_progress := 'PO_REQAPPROVAL_INIT1.Register_doc_submitted: 02';
2583: IF (g_po_wf_debug = 'Y') THEN
2584: /* DEBUG */
2585: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2586: END IF;
2585: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2586: END IF;
2587: EXCEPTION
2588: WHEN OTHERS THEN
2589: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2590: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2591: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2592: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2593: raise;
2586: END IF;
2587: EXCEPTION
2588: WHEN OTHERS THEN
2589: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2590: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2591: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2592: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2593: raise;
2594: END Register_doc_submitted;
2587: EXCEPTION
2588: WHEN OTHERS THEN
2589: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2590: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2591: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2592: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2593: raise;
2594: END Register_doc_submitted;
2595: --
2588: WHEN OTHERS THEN
2589: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2590: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2591: wf_core.context('PO_REQAPPROVAL_INIT1','Register_doc_submitted',x_progress);
2592: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REGISTER_DOC_SUBMITTED');
2593: raise;
2594: END Register_doc_submitted;
2595: --
2596: -- can_owner_approve
2612: x_progress VARCHAR2(100);
2613: l_doc_string VARCHAR2(200);
2614: l_preparer_user_name VARCHAR2(100);
2615: BEGIN
2616: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 01';
2617: IF (g_po_wf_debug = 'Y') THEN
2618: /* DEBUG */
2619: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2620: END IF;
2640: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2641: IF l_orgid IS NOT NULL THEN
2642: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2643: END IF;
2644: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
2645: --
2646: resultout := wf_engine.eng_completed || ':' || x_CanOwnerApproveFlag ;
2647: --
2648: END IF;
2645: --
2646: resultout := wf_engine.eng_completed || ':' || x_CanOwnerApproveFlag ;
2647: --
2648: END IF;
2649: x_progress := 'PO_REQAPPROVAL_INIT1.can_owner_approve: 02';
2650: IF (g_po_wf_debug = 'Y') THEN
2651: /* DEBUG */
2652: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2653: END IF;
2652: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2653: END IF;
2654: EXCEPTION
2655: WHEN OTHERS THEN
2656: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2657: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2658: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
2659: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
2660: raise;
2653: END IF;
2654: EXCEPTION
2655: WHEN OTHERS THEN
2656: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2657: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2658: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
2659: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
2660: raise;
2661: END can_owner_approve;
2654: EXCEPTION
2655: WHEN OTHERS THEN
2656: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2657: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2658: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
2659: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
2660: raise;
2661: END can_owner_approve;
2662:
2655: WHEN OTHERS THEN
2656: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2657: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2658: wf_core.context('PO_REQAPPROVAL_INIT1','can_owner_approve',x_progress);
2659: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.CAN_OWNER_APPROVE');
2660: raise;
2661: END can_owner_approve;
2662:
2663: -- Bug 10013322
2715: x_progress VARCHAR2(200);
2716: l_doc_string VARCHAR2(200);
2717: l_preparer_user_name VARCHAR2(100);
2718: BEGIN
2719: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 01';
2720: IF (g_po_wf_debug = 'Y') THEN
2721: /* DEBUG */
2722: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2723: END IF;
2730: /* Bug# 2353153
2731: ** Setting application context
2732: */
2733: --Context Setting Revamp
2734: /* PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
2735: l_doc_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
2736: l_doc_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
2737: -- Bug 762194: Need to set multi-org context.
2738: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
2768: -- we will exit the workflow with an INVALID ACTION status.
2769: resultout := wf_engine.eng_completed || ':' || 'INVALID_AUTH_STATUS' ;
2770: --
2771: END IF;
2772: x_progress := 'PO_REQAPPROVAL_INIT1.Is_doc_preapproved: 02' || ' Authorization_status= ' || l_auth_stat ;
2773: IF (g_po_wf_debug = 'Y') THEN
2774: /* DEBUG */
2775: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2776: END IF;
2775: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2776: END IF;
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2780: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2781: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
2782: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
2783: raise;
2776: END IF;
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2780: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2781: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
2782: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
2783: raise;
2784: END Is_doc_preapproved;
2777: EXCEPTION
2778: WHEN OTHERS THEN
2779: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2780: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2781: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
2782: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
2783: raise;
2784: END Is_doc_preapproved;
2785: --
2778: WHEN OTHERS THEN
2779: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2780: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2781: wf_core.context('PO_REQAPPROVAL_INIT1','Is_doc_preapproved',x_progress);
2782: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOC_PREAPPROVED');
2783: raise;
2784: END Is_doc_preapproved;
2785: --
2786: --
2811: l_preparer_user_name VARCHAR2(100);
2812: l_path_id NUMBER;
2813: l_draft_id NUMBER := -1; --Mod Project
2814: BEGIN
2815: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 01';
2816: IF (g_po_wf_debug = 'Y') THEN
2817: /* DEBUG */
2818: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2819: END IF;
2858: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
2859: END IF;
2860: l_path_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'APPROVAL_PATH_ID');
2861: -- Mod Project; added draft_id to the next proc.
2862: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type, l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id, l_draft_id);
2863: --
2864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
2865: --
2866: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
2862: PO_REQAPPROVAL_INIT1.InsertActionHistSubmit(itemtype,itemkey,l_doc_id, l_doc_type, l_doc_subtype, l_employee_id, 'SUBMIT', l_note, l_path_id, l_draft_id);
2863: --
2864: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
2865: --
2866: x_progress := 'PO_REQAPPROVAL_INIT1.Ins_actionhist_submit: 02';
2867: IF (g_po_wf_debug = 'Y') THEN
2868: /* DEBUG */
2869: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2870: END IF;
2869: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2870: END IF;
2871: EXCEPTION
2872: WHEN OTHERS THEN
2873: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2874: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2875: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
2876: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
2877: raise;
2870: END IF;
2871: EXCEPTION
2872: WHEN OTHERS THEN
2873: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2874: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2875: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
2876: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
2877: raise;
2878: END Ins_actionhist_submit;
2871: EXCEPTION
2872: WHEN OTHERS THEN
2873: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2874: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2875: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
2876: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
2877: raise;
2878: END Ins_actionhist_submit;
2879: --
2872: WHEN OTHERS THEN
2873: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
2874: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
2875: wf_core.context('PO_REQAPPROVAL_INIT1','Ins_actionhist_submit',x_progress);
2876: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.INS_ACTIONHIST_SUBMIT');
2877: raise;
2878: END Ins_actionhist_submit;
2879: --
2880: -- Set_End_VerifyDoc_Passed
2960: BEGIN
2961: --
2962: resultout := wf_engine.eng_completed || ':' || 'VALID_ACTION' ;
2963: --
2964: x_progress := 'PO_REQAPPROVAL_INIT1.Set_End_Valid_Action: RESULT=VALID_ACTION';
2965: IF (g_po_wf_debug = 'Y') THEN
2966: /* DEBUG */
2967: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
2968: END IF;
3062: IF ( EncumbOn_DocUnreserved( p_doc_type => l_document_type, p_doc_subtype => l_document_subtype, p_doc_id => l_document_id) = 'Y' ) THEN
3063: --
3064: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3065: --
3066: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 01';
3067: IF (g_po_wf_debug = 'Y') THEN
3068: /* DEBUG */
3069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3070: END IF;
3071: ELSE
3072: --
3073: resultout := wf_engine.eng_completed || ':' || 'N' ;
3074: --
3075: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved: 02';
3076: IF (g_po_wf_debug = 'Y') THEN
3077: /* DEBUG */
3078: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3079: END IF;
3079: END IF;
3080: END IF;
3081: EXCEPTION
3082: WHEN OTHERS THEN
3083: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3084: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3085: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3086: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3087: raise;
3080: END IF;
3081: EXCEPTION
3082: WHEN OTHERS THEN
3083: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3084: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3085: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3086: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3087: raise;
3088: END Encumb_on_doc_unreserved;
3081: EXCEPTION
3082: WHEN OTHERS THEN
3083: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3084: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3085: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3086: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3087: raise;
3088: END Encumb_on_doc_unreserved;
3089: --
3082: WHEN OTHERS THEN
3083: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3084: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3085: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3086: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.ENCUMB_ON_DOC_UNRESERVED');
3087: raise;
3088: END Encumb_on_doc_unreserved;
3089: --
3090: --
3134: l_is_clm_doc := po_partial_funding_pkg.Is_clm_document(p_Doc_type => l_document_type, p_Doc_Level_Id => l_document_id) ;
3135: IF l_is_clm_doc = 'Y' THEN
3136: l_reserve_at_compl := 'N' ;
3137: END IF;
3138: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit.l_document_id=' || l_document_id || ', l_is_clm_doc=' || l_is_clm_doc ;
3139: IF (g_po_wf_debug = 'Y') THEN
3140: /* DEBUG */
3141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3142: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'l_reserve_at_compl=' || l_reserve_at_compl );
3141: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3142: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'l_reserve_at_compl=' || l_reserve_at_compl );
3143: END IF;
3144: /* <
3145: PO_REQAPPROVAL_INIT1.GetCanOwnerApprove(itemtype, itemkey, x_CanOwnerApproveFlag);
3146: /*Bug 8520350 - Removing the check on OWNER_CAN_APPROVE.Since the two are not interdependent */
3147: IF ((l_reserve_at_compl = 'N' )) THEN
3148: --
3149: resultout := wf_engine.eng_completed || ':' || 'N' ;
3147: IF ((l_reserve_at_compl = 'N' )) THEN
3148: --
3149: resultout := wf_engine.eng_completed || ':' || 'N' ;
3150: --
3151: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 01';
3152: IF (g_po_wf_debug = 'Y') THEN
3153: /* DEBUG */
3154: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3155: END IF;
3156: ELSE
3157: --
3158: resultout := wf_engine.eng_completed || ':' || 'Y' ;
3159: --
3160: x_progress := 'PO_REQAPPROVAL_INIT1.Encumb_on_doc_commit: 02';
3161: IF (g_po_wf_debug = 'Y') THEN
3162: /* DEBUG */
3163: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3164: END IF;
3164: END IF;
3165: END IF;
3166: EXCEPTION
3167: WHEN OTHERS THEN
3168: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3169: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3170: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3171: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3172: raise;
3165: END IF;
3166: EXCEPTION
3167: WHEN OTHERS THEN
3168: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3169: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3170: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3171: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3172: raise;
3173: END RESERVE_AT_COMPLETION_CHECK;
3166: EXCEPTION
3167: WHEN OTHERS THEN
3168: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3169: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3170: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3171: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3172: raise;
3173: END RESERVE_AT_COMPLETION_CHECK;
3174: -- Remove_reminder_notif
3167: WHEN OTHERS THEN
3168: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3169: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3170: wf_core.context('PO_REQAPPROVAL_INIT1.Encumb_on_doc_unreserved',x_progress);
3171: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.RESERVE_AT_COMPLETION_CHECK');
3172: raise;
3173: END RESERVE_AT_COMPLETION_CHECK;
3174: -- Remove_reminder_notif
3175: -- IN
3217: CURSOR rel_cursor(p_header_id NUMBER)
3218: IS
3219: SELECT wf_item_key FROM po_releases WHERE po_release_id= p_header_id;
3220: BEGIN
3221: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 01';
3222: IF (g_po_wf_debug = 'Y') THEN
3223: /* DEBUG */
3224: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3225: END IF;
3244: */
3245: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3246: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3247: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3248: PO_REQAPPROVAL_INIT1.get_multiorg_context(l_document_type,l_document_id,l_orgid);
3249: IF l_orgid IS NOT NULL THEN
3250: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3251: wf_engine.SetItemAttrNumber (itemtype => itemtype , itemkey => itemkey , aname => 'ORG_ID' , avalue => l_orgid );
3252: END IF;
3289: IF l_wf_item_key IS NOT NULL THEN
3290: Close_Old_Notif(itemtype, l_wf_item_key);
3291: END IF;
3292: resultout := wf_engine.eng_completed ;
3293: x_progress := 'PO_REQAPPROVAL_INIT1.Remove_reminder_notif: 02.';
3294: IF (g_po_wf_debug = 'Y') THEN
3295: /* DEBUG */
3296: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3297: END IF;
3296: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3297: END IF;
3298: EXCEPTION
3299: WHEN OTHERS THEN
3300: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3301: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3302: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3303: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3304: raise;
3297: END IF;
3298: EXCEPTION
3299: WHEN OTHERS THEN
3300: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3301: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3302: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3303: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3304: raise;
3305: END Remove_reminder_notif;
3298: EXCEPTION
3299: WHEN OTHERS THEN
3300: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3301: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3302: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3303: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3304: raise;
3305: END Remove_reminder_notif;
3306: PROCEDURE Print_Doc_Yes_No
3299: WHEN OTHERS THEN
3300: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3301: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3302: wf_core.context('PO_REQAPPROVAL_INIT1.Remove_reminder_notif',x_progress);
3303: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.REMOVE_REMINDER_NOTIF');
3304: raise;
3305: END Remove_reminder_notif;
3306: PROCEDURE Print_Doc_Yes_No
3307: (
3316: x_progress VARCHAR2(300);
3317: l_doc_string VARCHAR2(200);
3318: l_preparer_user_name VARCHAR2(100);
3319: BEGIN
3320: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 01';
3321: IF (g_po_wf_debug = 'Y') THEN
3322: /* DEBUG */
3323: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3324: END IF;
3335: END IF;
3336: --
3337: resultout := wf_engine.eng_completed || ':' || l_print_doc ;
3338: --
3339: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No: 02. Result= ' || l_print_doc;
3340: IF (g_po_wf_debug = 'Y') THEN
3341: /* DEBUG */
3342: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3343: END IF;
3342: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3343: END IF;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3347: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3348: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3349: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3350: raise;
3343: END IF;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3347: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3348: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3349: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3350: raise;
3351: END Print_Doc_Yes_No;
3344: EXCEPTION
3345: WHEN OTHERS THEN
3346: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3347: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3348: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3349: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3350: raise;
3351: END Print_Doc_Yes_No;
3352: -- DKC 10/10/99
3345: WHEN OTHERS THEN
3346: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3347: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3348: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Doc_Yes_No',x_progress);
3349: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOC_YES_NO');
3350: raise;
3351: END Print_Doc_Yes_No;
3352: -- DKC 10/10/99
3353: PROCEDURE Fax_Doc_Yes_No
3363: x_progress VARCHAR2(300);
3364: l_doc_string VARCHAR2(200);
3365: l_preparer_user_name VARCHAR2(100);
3366: BEGIN
3367: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 01';
3368: IF (g_po_wf_debug = 'Y') THEN
3369: /* DEBUG */
3370: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3371: END IF;
3382: END IF;
3383: --
3384: resultout := wf_engine.eng_completed || ':' || l_fax_doc ;
3385: --
3386: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No: 02. Result= ' || l_fax_doc;
3387: IF (g_po_wf_debug = 'Y') THEN
3388: /* DEBUG */
3389: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3390: END IF;
3389: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3390: END IF;
3391: EXCEPTION
3392: WHEN OTHERS THEN
3393: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3394: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3395: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3396: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3397: raise;
3390: END IF;
3391: EXCEPTION
3392: WHEN OTHERS THEN
3393: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3394: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3395: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3396: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3397: raise;
3398: END Fax_Doc_Yes_No;
3391: EXCEPTION
3392: WHEN OTHERS THEN
3393: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3394: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3395: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3396: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3397: raise;
3398: END Fax_Doc_Yes_No;
3399: --SR-ASL FPH --
3392: WHEN OTHERS THEN
3393: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3394: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3395: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Doc_Yes_No',x_progress);
3396: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3397: raise;
3398: END Fax_Doc_Yes_No;
3399: --SR-ASL FPH --
3400: PROCEDURE Create_SR_ASL_Yes_No
3415: l_resp_id NUMBER;
3416: l_user_id NUMBER;
3417: l_appl_id NUMBER;
3418: BEGIN
3419: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 01';
3420: IF (g_po_wf_debug = 'Y') THEN
3421: /* DEBUG */
3422: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3423: END IF;
3437: /* if (l_user_id is not null and
3438: l_resp_id is not null and
3439: l_appl_id is not null )then
3440: -- Bug 4290541,replaced apps init call with set doc mgr contxt
3441: PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
3442: IF l_orgid IS NOT NULL THEN
3443: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
3444: END IF;
3445: -- end if;
3460: l_create_sr_asl := 'N';
3461: END IF;
3462: END IF;
3463: resultout := wf_engine.eng_completed || ':' || l_create_sr_asl;
3464: x_progress := 'PO_REQAPPROVAL_INIT1.Create_SR_ASL_Yes_No: 02. Result= ' || l_create_sr_asl;
3465: IF (g_po_wf_debug = 'Y') THEN
3466: /* DEBUG */
3467: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3468: END IF;
3489: l_notifier VARCHAR2(100);
3490: l_doc_string VARCHAR2(200);
3491: l_preparer_user_name VARCHAR2(100);
3492: BEGIN
3493: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 01';
3494: IF (g_po_wf_debug = 'Y') THEN
3495: /* DEBUG */
3496: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3497: END IF;
3503: END IF;
3504: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
3505: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
3506: l_document_subtype := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
3507: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, l_notifier);
3508: IF (l_notifier IS NOT NULL) THEN
3509: l_send_notif := 'Y';
3510: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3511: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
3513: ELSE
3514: l_send_notif := 'N';
3515: END IF;
3516: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3517: x_progress := 'PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No: 02. Result= ' || l_send_notif;
3518: IF (g_po_wf_debug = 'Y') THEN
3519: /* DEBUG */
3520: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3521: END IF;
3520: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3521: END IF;
3522: EXCEPTION
3523: WHEN OTHERS THEN
3524: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3525: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3526: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
3527: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3528: raise;
3521: END IF;
3522: EXCEPTION
3523: WHEN OTHERS THEN
3524: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3525: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3526: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
3527: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3528: raise;
3529: END Send_WS_Notif_Yes_No;
3522: EXCEPTION
3523: WHEN OTHERS THEN
3524: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3525: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3526: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
3527: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3528: raise;
3529: END Send_WS_Notif_Yes_No;
3530: /*
3523: WHEN OTHERS THEN
3524: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3525: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3526: wf_core.context('PO_REQAPPROVAL_INIT1.Send_Notification_Yes_No',x_progress);
3527: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOC_YES_NO');
3528: raise;
3529: END Send_WS_Notif_Yes_No;
3530: /*
3531: < Added this procedure as part of Bug #: 2810150 >
3550: l_preparer_user_name VARCHAR2(100);
3551: -- BINDING FPJ
3552: l_acceptance_flag PO_HEADERS_ALL.acceptance_required_flag%TYPE;
3553: BEGIN
3554: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 01';
3555: IF (g_po_wf_debug = 'Y') THEN
3556: /* DEBUG */
3557: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3558: END IF;
3571: INTO l_acceptance_flag
3572: FROM po_headers_all
3573: WHERE po_header_Id = l_document_id;
3574: IF l_acceptance_flag = 'S' THEN
3575: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'Y', l_notifier, l_notifier_resp);
3576: ELSE
3577: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
3578: END IF;
3579: ELSE
3573: WHERE po_header_Id = l_document_id;
3574: IF l_acceptance_flag = 'S' THEN
3575: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'Y', l_notifier, l_notifier_resp);
3576: ELSE
3577: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
3578: END IF;
3579: ELSE
3580: -- BINDING FPJ END
3581: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
3577: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
3578: END IF;
3579: ELSE
3580: -- BINDING FPJ END
3581: PO_REQAPPROVAL_INIT1.locate_notifier(l_document_id, l_document_type, 'N', l_notifier, l_notifier_resp);
3582: END IF;
3583: IF (l_notifier IS NOT NULL) THEN
3584: l_send_notif := 'Y';
3585: --Bug#2843760: Call ARCHIVE_PO whenever notification is sent to supplier
3589: l_send_notif := 'N';
3590: END IF;
3591: wf_engine.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'PO_WF_ACK_NOTIF_PERFORMER', avalue => l_notifier_resp);
3592: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3593: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No: 02. Result= ' || l_send_notif;
3594: IF (g_po_wf_debug = 'Y') THEN
3595: /* DEBUG */
3596: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3597: END IF;
3596: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3597: END IF;
3598: EXCEPTION
3599: WHEN OTHERS THEN
3600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3602: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
3603: 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');
3604: raise;
3597: END IF;
3598: EXCEPTION
3599: WHEN OTHERS THEN
3600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3602: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
3603: 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');
3604: raise;
3605: END Send_WS_FYI_Notif_Yes_No;
3598: EXCEPTION
3599: WHEN OTHERS THEN
3600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3602: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
3603: 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');
3604: raise;
3605: END Send_WS_FYI_Notif_Yes_No;
3606: /*
3599: WHEN OTHERS THEN
3600: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3601: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3602: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_FYI_Notif_Yes_No',x_progress);
3603: 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');
3604: raise;
3605: END Send_WS_FYI_Notif_Yes_No;
3606: /*
3607: < Added this procedure as part of Bug #: 2810150 >
3623: l_notifier VARCHAR2(100);
3624: l_doc_string VARCHAR2(200);
3625: l_preparer_user_name VARCHAR2(100);
3626: BEGIN
3627: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 01';
3628: IF (g_po_wf_debug = 'Y') THEN
3629: /* DEBUG */
3630: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3631: END IF;
3646: ELSE
3647: l_send_notif := 'N';
3648: END IF;
3649: resultout := wf_engine.eng_completed || ':' || l_send_notif ;
3650: x_progress := 'PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No: 02. Result= ' || l_send_notif;
3651: IF (g_po_wf_debug = 'Y') THEN
3652: /* DEBUG */
3653: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3654: END IF;
3653: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3654: END IF;
3655: EXCEPTION
3656: WHEN OTHERS THEN
3657: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3658: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3659: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
3660: 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');
3661: raise;
3654: END IF;
3655: EXCEPTION
3656: WHEN OTHERS THEN
3657: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3658: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3659: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
3660: 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');
3661: raise;
3662: END Send_WS_ACK_Notif_Yes_No;
3655: EXCEPTION
3656: WHEN OTHERS THEN
3657: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3658: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3659: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
3660: 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');
3661: raise;
3662: END Send_WS_ACK_Notif_Yes_No;
3663: /*
3656: WHEN OTHERS THEN
3657: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
3658: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
3659: wf_core.context('PO_REQAPPROVAL_INIT1.Send_WS_ACK_Notif_Yes_No',x_progress);
3660: 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');
3661: raise;
3662: END Send_WS_ACK_Notif_Yes_No;
3663: /*
3664: For the given document_id ( ie. po_header_id ), this procedure
3852: END IF;
3853: END IF;
3854: EXCEPTION
3855: WHEN OTHERS THEN
3856: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier failed at:',l_step);
3857: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier',l_role_name||sqlerrm);
3858: --raise_application_error(-20001,'l_role_name ='||l_role_name ||' and l_step='||l_step ||' and l_list='||l_namelist_for_sql, true);
3859: END locate_notifier;
3860: -- DKC 02/06/01
3853: END IF;
3854: EXCEPTION
3855: WHEN OTHERS THEN
3856: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier failed at:',l_step);
3857: wf_core.context('PO_REQAPPROVAL_INIT1.locate_notifier',l_role_name||sqlerrm);
3858: --raise_application_error(-20001,'l_role_name ='||l_role_name ||' and l_step='||l_step ||' and l_list='||l_namelist_for_sql, true);
3859: END locate_notifier;
3860: -- DKC 02/06/01
3861: PROCEDURE Email_Doc_Yes_No
3904: --ER 5688144: retrieve vendor name for display name of email address
3905: l_vendor_name po_vendors.vendor_name%TYPE;
3906: --ER 5688144: End
3907: BEGIN
3908: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 01';
3909: IF (g_po_wf_debug = 'Y') THEN
3910: /* DEBUG */
3911: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
3912: END IF;
4078: --Bug#2843760: Moved portion of code which does the PO archiving to internal procedure ARCHIVE_PO
4079: ARCHIVE_PO(l_document_id, l_document_type, l_document_subtype);
4080: END IF;
4081: resultout := wf_engine.eng_completed || ':' || l_email_doc ;
4082: x_progress := 'PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No: 02. Result= ' || l_email_doc;
4083: IF (g_po_wf_debug = 'Y') THEN
4084: /* DEBUG */
4085: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4086: END IF;
4086: END IF;
4087: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4088: EXCEPTION
4089: WHEN OTHERS THEN
4090: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4091: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4092: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4093: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4094: raise;
4087: -- resultout := wf_engine.eng_completed || ':' || 'Y' ;
4088: EXCEPTION
4089: WHEN OTHERS THEN
4090: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4091: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4092: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4093: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4094: raise;
4095: END Email_Doc_Yes_No;
4088: EXCEPTION
4089: WHEN OTHERS THEN
4090: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4091: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4092: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4093: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4094: raise;
4095: END Email_Doc_Yes_No;
4096: -- Print_Document
4089: WHEN OTHERS THEN
4090: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4091: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4092: wf_core.context('PO_REQAPPROVAL_INIT1.Email_Doc_Yes_No',x_progress||':'||sqlerrm);
4093: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.EMAIL_DOC_YES_NO');
4094: raise;
4095: END Email_Doc_Yes_No;
4096: -- Print_Document
4097: -- Resultout
4110: x_progress VARCHAR2(300);
4111: l_doc_string VARCHAR2(200);
4112: l_preparer_user_name VARCHAR2(100);
4113: BEGIN
4114: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 01';
4115: IF (g_po_wf_debug = 'Y') THEN
4116: /* DEBUG */
4117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4118: END IF;
4125: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4126: IF l_orgid IS NOT NULL THEN
4127: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4128: END IF;
4129: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 02';
4130: PrintDocument(itemtype,itemkey);
4131: --
4132: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4133: --
4130: PrintDocument(itemtype,itemkey);
4131: --
4132: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4133: --
4134: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4135: EXCEPTION
4136: WHEN OTHERS THEN
4137: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4138: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4133: --
4134: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4135: EXCEPTION
4136: WHEN OTHERS THEN
4137: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4138: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4139: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4140: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4141: raise;
4134: x_progress := 'PO_REQAPPROVAL_INIT1.Print_Document: 03';
4135: EXCEPTION
4136: WHEN OTHERS THEN
4137: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4138: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4139: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4140: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4141: raise;
4142: END Print_Document;
4135: EXCEPTION
4136: WHEN OTHERS THEN
4137: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4138: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4139: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4140: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4141: raise;
4142: END Print_Document;
4143: -- Procedure called by wf.
4136: WHEN OTHERS THEN
4137: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4138: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4139: wf_core.context('PO_REQAPPROVAL_INIT1.Print_Document',x_progress);
4140: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.PRINT_DOCUMENT');
4141: raise;
4142: END Print_Document;
4143: -- Procedure called by wf.
4144: -- DKC 10/10/99
4155: x_progress VARCHAR2(300);
4156: l_doc_string VARCHAR2(200);
4157: l_preparer_user_name VARCHAR2(100);
4158: BEGIN
4159: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 01';
4160: IF (g_po_wf_debug = 'Y') THEN
4161: /* DEBUG */
4162: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4163: END IF;
4170: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4171: IF l_orgid IS NOT NULL THEN
4172: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4173: END IF;
4174: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 02';
4175: FaxDocument(itemtype,itemkey);
4176: --
4177: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4178: --
4175: FaxDocument(itemtype,itemkey);
4176: --
4177: resultout := wf_engine.eng_completed || ':' || 'ACTIVITY_PERFORMED' ;
4178: --
4179: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4180: EXCEPTION
4181: WHEN OTHERS THEN
4182: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4183: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4178: --
4179: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4180: EXCEPTION
4181: WHEN OTHERS THEN
4182: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4183: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4184: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4185: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4186: raise;
4179: x_progress := 'PO_REQAPPROVAL_INIT1.Fax_Document: 03';
4180: EXCEPTION
4181: WHEN OTHERS THEN
4182: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4183: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4184: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4185: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4186: raise;
4187: END Fax_Document;
4180: EXCEPTION
4181: WHEN OTHERS THEN
4182: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4183: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4184: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4185: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4186: raise;
4187: END Fax_Document;
4188: -- Is_document_Approved
4181: WHEN OTHERS THEN
4182: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4183: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4184: wf_core.context('PO_REQAPPROVAL_INIT1.Fax_Document',x_progress);
4185: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.FAX_DOCUMENT');
4186: raise;
4187: END Fax_Document;
4188: -- Is_document_Approved
4189: -- IN
4210: x_progress VARCHAR2(300);
4211: l_doc_string VARCHAR2(200);
4212: l_preparer_user_name VARCHAR2(100);
4213: BEGIN
4214: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 01';
4215: IF (g_po_wf_debug = 'Y') THEN
4216: /* DEBUG */
4217: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4218: END IF;
4225: /* Bug# 2377333
4226: ** Setting application context
4227: */
4228: --Context Setting Revamp
4229: --PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey);
4230: l_orgid := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'ORG_ID');
4231: IF l_orgid IS NOT NULL THEN
4232: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
4233: END IF;
4258: ELSE
4259: resultout := wf_engine.eng_completed || ':' || 'N';
4260: x_resultout := 'N';
4261: END IF;
4262: x_progress := 'PO_REQAPPROVAL_INIT1.Is_document_Approved: 02. Result=' || x_resultout;
4263: IF (g_po_wf_debug = 'Y') THEN
4264: /* DEBUG */
4265: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress );
4266: END IF;
4265: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress );
4266: END IF;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4270: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4271: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
4272: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
4273: raise;
4266: END IF;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4270: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4271: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
4272: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
4273: raise;
4274: END Is_document_Approved;
4267: EXCEPTION
4268: WHEN OTHERS THEN
4269: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4270: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4271: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
4272: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
4273: raise;
4274: END Is_document_Approved;
4275: -- Get_Create_PO_Mode
4268: WHEN OTHERS THEN
4269: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4270: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4271: wf_core.context('PO_REQAPPROVAL_INIT1','Is_document_Approved',x_progress);
4272: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_DOCUMENT_APPROVED');
4273: raise;
4274: END Is_document_Approved;
4275: -- Get_Create_PO_Mode
4276: -- IN
4290: x_progress VARCHAR2(300);
4291: l_doc_string VARCHAR2(200);
4292: l_preparer_user_name VARCHAR2(100);
4293: BEGIN
4294: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: 01';
4295: IF (g_po_wf_debug = 'Y') THEN
4296: /* DEBUG */
4297: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4298: END IF;
4312: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4313: ELSE
4314: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4315: END IF;
4316: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Create_PO_Mode: ' || 'Create PO Mode= ' || l_create_po_mode;
4317: IF (g_po_wf_debug = 'Y') THEN
4318: /* DEBUG */
4319: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4320: END IF;
4319: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4320: END IF;
4321: EXCEPTION
4322: WHEN OTHERS THEN
4323: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4324: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4325: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
4326: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
4327: raise;
4320: END IF;
4321: EXCEPTION
4322: WHEN OTHERS THEN
4323: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4324: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4325: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
4326: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
4327: raise;
4328: END Get_Create_PO_Mode;
4321: EXCEPTION
4322: WHEN OTHERS THEN
4323: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4324: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4325: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
4326: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
4327: raise;
4328: END Get_Create_PO_Mode;
4329: -- Get_Workflow_Approval_Mode
4322: WHEN OTHERS THEN
4323: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4324: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4325: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Create_PO_Mode',x_progress);
4326: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_CREATE_PO_MODE');
4327: raise;
4328: END Get_Create_PO_Mode;
4329: -- Get_Workflow_Approval_Mode
4330: -- IN
4346: l_doc_string VARCHAR2(200);
4347: l_preparer_user_name VARCHAR2(100);
4348: BEGIN
4349: /* get the profile PO_WORKFLOW_APPROVAL_MODE and return the value */
4350: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: 01';
4351: IF (g_po_wf_debug = 'Y') THEN
4352: /* DEBUG */
4353: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4354: END IF;
4368: resultout := wf_engine.eng_completed || ':' || 'BACKGROUND';
4369: ELSE
4370: resultout := wf_engine.eng_completed || ':' || 'ONLINE';
4371: END IF;
4372: x_progress := 'PO_REQAPPROVAL_INIT1.Get_Workflow_Approval_Mode: ' || 'Approval Mode= ' || l_approval_mode;
4373: IF (g_po_wf_debug = 'Y') THEN
4374: /* DEBUG */
4375: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4376: END IF;
4375: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4376: END IF;
4377: EXCEPTION
4378: WHEN OTHERS THEN
4379: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4380: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4381: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
4382: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
4383: raise;
4376: END IF;
4377: EXCEPTION
4378: WHEN OTHERS THEN
4379: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4380: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4381: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
4382: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
4383: raise;
4384: END Get_Workflow_Approval_Mode;
4377: EXCEPTION
4378: WHEN OTHERS THEN
4379: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4380: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4381: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
4382: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
4383: raise;
4384: END Get_Workflow_Approval_Mode;
4385: -- Dummy
4378: WHEN OTHERS THEN
4379: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
4380: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
4381: wf_core.context('PO_REQAPPROVAL_INIT1','Get_Workflow_Approval_Mode',x_progress);
4382: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.GET_WORKFLOW_APPROVAL_MODE');
4383: raise;
4384: END Get_Workflow_Approval_Mode;
4385: -- Dummy
4386: -- IN
4416: l_line_num VARCHAR2(80);
4417: x_progress VARCHAR2(100) := '000';
4418: counter NUMBER :=0;
4419: BEGIN
4420: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 01';
4421: IF (g_po_wf_debug = 'Y') THEN
4422: /* DEBUG */
4423: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4424: END IF;
4426: OPEN GetRecHdr_csr(p_requisition_header_id);
4427: FETCH GetRecHdr_csr INTO ReqHdr_rec;
4428:
4429: CLOSE GetRecHdr_csr;
4430: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 02';
4431: IF (g_po_wf_debug = 'Y') THEN
4432: /* DEBUG */
4433: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4434: END IF;
4432: /* DEBUG */
4433: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4434: END IF;
4435: SetReqHdrAttributes(itemtype, itemkey);
4436: x_progress := 'PO_REQAPPROVAL_INIT1.GetReqAttributes: 03';
4437: IF (g_po_wf_debug = 'Y') THEN
4438: /* DEBUG */
4439: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4440: END IF;
4439: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4440: END IF;
4441: EXCEPTION
4442: WHEN OTHERS THEN
4443: wf_core.context('PO_REQAPPROVAL_INIT1','GetReqAttributes',x_progress);
4444: raise;
4445: END GetReqAttributes;
4446: --
4447: --------------------------------------------------------------------------------
4712: WHERE requisition_header_id = p_doc_id
4713: AND NVL(cancel_flag,'N') = 'N';
4714:
4715: BEGIN
4716: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 01';
4717: IF (g_po_wf_debug = 'Y') THEN
4718: /* DEBUG */
4719: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4720: END IF;
4732: --
4733: wf_engine.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'EMERGENCY_PO_NUMBER', avalue => ReqHdr_rec.emergency_po_num);
4734: --
4735: -- Bug#3147435
4736: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 02 Start of Hdr Att for JRAD';
4737: IF (g_po_wf_debug = 'Y') THEN
4738: /* DEBUG */
4739: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4740: END IF;
4746: --Set the CONTRACTOR_STATUS
4747: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CONTRACTOR_STATUS', avalue => ReqHdr_rec.contractor_status);
4748: --
4749: -- Bug#3147435
4750: x_progress := 'PO_REQAPPROVAL_INIT1.SetReqHdrAttributes: 03 End of Hdr Att for JRAD';
4751: IF (g_po_wf_debug = 'Y') THEN
4752: /* DEBUG */
4753: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4754: END IF;
4752: /* DEBUG */
4753: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
4754: END IF;
4755: /* Bug 1100247 Amitabh*/
4756: PO_REQAPPROVAL_INIT1.get_user_name(ReqHdr_rec.preparer_id, x_username, x_user_display_name);
4757: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_USER_NAME' , avalue => x_username);
4758: wf_engine.SetItemAttrText ( itemtype => itemType, itemkey => itemkey, aname => 'PREPARER_DISPLAY_NAME' , avalue => x_user_display_name);
4759: /* Get the translated values for the DOC_TYPE, DOC_SUBTYPE, AUTH_STATUS and
4760: ** CLOSED_CODE. These will be displayed in the notifications.
4890: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'JUSTIFICATION', avalue => ReqHdr_rec.NOTE_TO_AUTHORIZER);
4891: END IF;
4892: EXCEPTION
4893: WHEN OTHERS THEN
4894: wf_core.context('PO_REQAPPROVAL_INIT1','SetReqHdrAttributes',x_progress);
4895: raise;
4896: END SetReqHdrAttributes;
4897:
4898: /* added as part of bug 10399957 - deadlock issue during updating comm_rev_num value */
4927:
4928: EXCEPTION
4929: WHEN OTHERS THEN
4930: ROLLBACK TO save_rev_num;
4931: wf_core.context('PO_REQAPPROVAL_INIT1','Set_Comm_Rev_Num',x_progress);
4932: raise;
4933:
4934: End Set_Comm_Rev_Num;
4935: --
5008: END IF;
5009: COMMIT;
5010: EXCEPTION
5011: WHEN OTHERS THEN
5012: wf_core.context('PO_REQAPPROVAL_INIT1','SetReqAuthStat',x_progress);
5013: raise;
5014: END SetReqAuthStat;
5015: --
5016: PROCEDURE SetPOAuthStat
5079: END IF;
5080: COMMIT;
5081: EXCEPTION
5082: WHEN OTHERS THEN
5083: wf_core.context('PO_REQAPPROVAL_INIT1','SetPOAuthStat',x_progress);
5084: raise;
5085: END SetPOAuthStat;
5086: --
5087: PROCEDURE SetRelAuthStat
5125: END IF;
5126: COMMIT;
5127: EXCEPTION
5128: WHEN OTHERS THEN
5129: wf_core.context('PO_REQAPPROVAL_INIT1','SetRelAuthStat',x_progress);
5130: raise;
5131: END SetRelAuthStat;
5132: --
5133: --
5150: WHERE requisition_header_id = p_doc_id;
5151: COMMIT;
5152: EXCEPTION
5153: WHEN OTHERS THEN
5154: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtReqItemtype',x_progress);
5155: raise;
5156: END UpdtReqItemtype;
5157: --
5158: PROCEDURE UpdtPOItemtype
5175: WHERE po_header_id = p_doc_id;
5176: COMMIT;
5177: EXCEPTION
5178: WHEN OTHERS THEN
5179: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtPOItemtype',x_progress);
5180: raise;
5181: END UpdtPOItemtype;
5182: --
5183: PROCEDURE UpdtRelItemtype
5200: WHERE po_release_id = p_doc_id;
5201: COMMIT;
5202: EXCEPTION
5203: WHEN OTHERS THEN
5204: wf_core.context('PO_REQAPPROVAL_INIT1','UpdtRelItemtype',x_progress);
5205: raise;
5206: END UpdtRelItemtype;
5207: --
5208: PROCEDURE GetCanOwnerApprove
5230:
5231: CLOSE C1;
5232: EXCEPTION
5233: WHEN OTHERS THEN
5234: wf_core.context('PO_REQAPPROVAL_INIT1','GetCanOwnerApprove',x_progress);
5235: raise;
5236: END GetCanOwnerApprove;
5237: --
5238: /*****************************************************************************
5277: CLOSE get_release_orgid;
5278: END IF;
5279: EXCEPTION
5280: WHEN OTHERS THEN
5281: wf_core.context('PO_REQAPPROVAL_INIT1','get_multiorg_context',x_progress);
5282: raise;
5283: END get_multiorg_context;
5284: --
5285: PROCEDURE get_employee_id
5311: END IF;
5312: CLOSE c_empid;
5313: EXCEPTION
5314: WHEN OTHERS THEN
5315: wf_core.context('PO_REQAPPROVAL_INIT1','get_employee_id',p_username);
5316: raise;
5317: END get_employee_id;
5318: --
5319: PROCEDURE get_user_name
5327: p_orig_system:= 'PER';
5328: WF_DIRECTORY.GetUserName(p_orig_system, p_employee_id, x_username, x_user_display_name);
5329: EXCEPTION
5330: WHEN OTHERS THEN
5331: wf_core.context('PO_REQAPPROVAL_INIT1','get_user_name',TO_CHAR(p_employee_id));
5332: raise;
5333: END get_user_name;
5334: --
5335: PROCEDURE InsertActionHistSubmit
5616: EXCEPTION
5617: WHEN OTHERS THEN
5618: wf_core.context
5619: (
5620: 'PO_REQAPPROVAL_INIT1','InsertActionHistSubmit',x_progress
5621: )
5622: ;
5623: raise;
5624: END InsertActionHistSubmit;
5694: ;
5695: WHEN OTHERS THEN
5696: wf_core.context
5697: (
5698: 'PO_REQAPPROVAL_INIT1','EncumbOn_DocUnreserved', l_progress
5699: )
5700: ;
5701: ROLLBACK;
5702: RAISE;
5759: l_document_subtype po_headers.type_lookup_code%TYPE;
5760: /*Bug 6692126 end */
5761: l_draft_id NUMBER; -- CLM Mod
5762: BEGIN
5763: x_progress := 'PO_REQAPPROVAL_INIT1.PrintDocument: 01';
5764: IF
5765: (
5766: g_po_wf_debug = 'Y'
5767: )
5967: (
5968: itemtype => itemtype, itemkey => itemkey, aname => 'CONCURRENT_REQUEST_ID', avalue => l_request_id
5969: )
5970: ;
5971: x_progress := 'PO_REQAPPROVAL_INIT1.PrintDocument: 02. request_id= ' || TO_CHAR
5972: (
5973: l_request_id
5974: )
5975: ;
5988: EXCEPTION
5989: WHEN OTHERS THEN
5990: wf_core.context
5991: (
5992: 'PO_REQAPPROVAL_INIT1','PrintDocument',x_progress
5993: )
5994: ;
5995: raise;
5996: END PrintDocument;
6055: 200
6056: )
6057: ;
6058: BEGIN
6059: x_progress := 'PO_REQAPPROVAL_INIT1.FaxDocument: 01';
6060: IF
6061: (
6062: g_po_wf_debug = 'Y'
6063: )
6207: (
6208: itemtype => itemtype, itemkey => itemkey, aname => 'CONCURRENT_REQUEST_ID', avalue => l_request_id
6209: )
6210: ;
6211: x_progress := 'PO_REQAPPROVAL_INIT1.FaxDocument: 02. request_id= ' || TO_CHAR
6212: (
6213: l_request_id
6214: )
6215: ;
6228: EXCEPTION
6229: WHEN OTHERS THEN
6230: wf_core.context
6231: (
6232: 'PO_REQAPPROVAL_INIT1','FaxDocument',x_progress
6233: )
6234: ;
6235: raise;
6236: END FaxDocument;
6276: EXCEPTION
6277: WHEN OTHERS THEN
6278: wf_core.context
6279: (
6280: 'PO_REQAPPROVAL_INIT1','Print_Requisition',x_progress
6281: )
6282: ;
6283: raise;
6284: END;
6395: EXCEPTION
6396: WHEN OTHERS THEN
6397: wf_core.context
6398: (
6399: 'PO_REQAPPROVAL_INIT1','Print_PO',x_progress
6400: )
6401: ;
6402: raise;
6403: END Print_PO;
6523: EXCEPTION
6524: WHEN OTHERS THEN
6525: wf_core.context
6526: (
6527: 'PO_REQAPPROVAL_INIT1','Fax_PO',x_progress
6528: )
6529: ;
6530: raise;
6531: END Fax_PO;
6642: EXCEPTION
6643: WHEN OTHERS THEN
6644: wf_core.context
6645: (
6646: 'PO_REQAPPROVAL_INIT1','Print_Release',x_progress
6647: )
6648: ;
6649: raise;
6650: END Print_Release;
6768: EXCEPTION
6769: WHEN OTHERS THEN
6770: wf_core.context
6771: (
6772: 'PO_REQAPPROVAL_INIT1','Fax_Release',x_progress
6773: )
6774: ;
6775: raise;
6776: END Fax_Release;
6837: END IF;
6838: END IF; -- run mode
6839: EXCEPTION
6840: WHEN OTHERS THEN
6841: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6842: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6843: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
6844: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
6845: RAISE;
6838: END IF; -- run mode
6839: EXCEPTION
6840: WHEN OTHERS THEN
6841: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6842: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6843: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
6844: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
6845: RAISE;
6846: END is_apps_source_POR;
6839: EXCEPTION
6840: WHEN OTHERS THEN
6841: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6842: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6843: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
6844: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
6845: RAISE;
6846: END is_apps_source_POR;
6847: -- Bug#3147435
6840: WHEN OTHERS THEN
6841: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6842: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6843: wf_core.context('PO_REQAPPROVAL_INIT1','is_apps_source_POR',l_progress);
6844: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_APPS_SOURCE_POR');
6845: RAISE;
6846: END is_apps_source_POR;
6847: -- Bug#3147435
6848: -- Is contractor status PENDING?
6896: END IF;
6897: END IF; -- run mode
6898: EXCEPTION
6899: WHEN OTHERS THEN
6900: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6901: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6902: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
6903: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
6904: RAISE;
6897: END IF; -- run mode
6898: EXCEPTION
6899: WHEN OTHERS THEN
6900: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6901: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6902: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
6903: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
6904: RAISE;
6905: END is_contractor_status_pending;
6898: EXCEPTION
6899: WHEN OTHERS THEN
6900: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6901: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6902: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
6903: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
6904: RAISE;
6905: END is_contractor_status_pending;
6906: -- Bug 823167 kbenjami
6899: WHEN OTHERS THEN
6900: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6901: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6902: wf_core.context('PO_REQAPPROVAL_INIT1','is_contractor_status_pending',l_progress);
6903: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.is_contractor_status_pending');
6904: RAISE;
6905: END is_contractor_status_pending;
6906: -- Bug 823167 kbenjami
6907: --
6925: x_progress VARCHAR2(300);
6926: l_doc_string VARCHAR2(200);
6927: l_preparer_user_name VARCHAR2(100);
6928: BEGIN
6929: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 01';
6930: IF (g_po_wf_debug = 'Y') THEN
6931: /* DEBUG */
6932: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,x_progress);
6933: END IF;
6940: So this also should be excluded.
6941: */
6942: IF (approver_id IS NULL OR preparer_id = approver_id OR x_username IS NULL) THEN
6943: resultout := wf_engine.eng_completed || ':' || 'Y';
6944: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
6945: ELSE
6946: resultout := wf_engine.eng_completed || ':' || 'N';
6947: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
6948: END IF;
6943: resultout := wf_engine.eng_completed || ':' || 'Y';
6944: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = Yes';
6945: ELSE
6946: resultout := wf_engine.eng_completed || ':' || 'N';
6947: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
6948: END IF;
6949: EXCEPTION
6950: WHEN OTHERS THEN
6951: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6947: x_progress := 'PO_REQAPPROVAL_INIT1.Is_Submitter_Last_Approver: 02. Result = No';
6948: END IF;
6949: EXCEPTION
6950: WHEN OTHERS THEN
6951: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6952: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6953: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
6954: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
6955: raise;
6948: END IF;
6949: EXCEPTION
6950: WHEN OTHERS THEN
6951: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6952: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6953: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
6954: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
6955: raise;
6956: END Is_Submitter_Last_Approver;
6949: EXCEPTION
6950: WHEN OTHERS THEN
6951: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6952: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6953: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
6954: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
6955: raise;
6956: END Is_Submitter_Last_Approver;
6957: --
6950: WHEN OTHERS THEN
6951: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
6952: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
6953: wf_core.context('PO_REQAPPROVAL_INIT1','Is_Submitter_Last_Approver',x_progress);
6954: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_INIT1.IS_SUBMITTER_LAST_APPROVER');
6955: raise;
6956: END Is_Submitter_Last_Approver;
6957: --
6958: FUNCTION get_error_doc
7036: l_preparer_id NUMBER;
7037: l_disp VARCHAR2(240);
7038: BEGIN
7039: l_preparer_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'PREPARER_ID');
7040: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
7041: RETURN(l_name);
7042: END;
7043: PROCEDURE send_error_notif
7044: (
7062: l_document_id NUMBER;
7063: x_progress VARCHAR2(1000);
7064: BEGIN
7065: -- To be used only for PO and Req Approval wf
7066: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 10';
7067: IF (g_po_wf_debug = 'Y') THEN
7068: /* DEBUG */
7069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7070: END IF;
7067: IF (g_po_wf_debug = 'Y') THEN
7068: /* DEBUG */
7069: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7070: END IF;
7071: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 20' ||' username: '|| username ||' doc: '|| doc ||' location: '|| loc ||' error msg: '|| msg;
7072: IF (g_po_wf_debug = 'Y') THEN
7073: /* DEBUG */
7074: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7075: END IF;
7090: END IF;
7091: SELECT TO_CHAR(PO_WF_ITEMKEY_S.NEXTVAL) INTO l_seq FROM sys.dual;
7092:
7093: Err_ItemKey := TO_CHAR(l_document_id) || '-' || l_seq;
7094: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 50' ||' Parent Itemtype: '|| ItemType ||' Parent Itemkey: '|| ItemKey ||' Error Itemtype: '|| Err_ItemType ||' Error Itemkey: '|| Err_ItemKey;
7095: IF (g_po_wf_debug = 'Y') THEN
7096: /* DEBUG */
7097: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7098: END IF;
7096: /* DEBUG */
7097: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7098: END IF;
7099: wf_engine.CreateProcess( ItemType => Err_ItemType, ItemKey => Err_ItemKey, process => 'PLSQL_ERROR_NOTIF');
7100: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 70';
7101: IF (g_po_wf_debug = 'Y') THEN
7102: /* DEBUG */
7103: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7104: END IF;
7110: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PLSQL_ERROR_MSG', avalue => msg);
7111: --
7112: wf_engine.SetItemAttrText ( itemtype => Err_ItemType, itemkey => Err_ItemKey, aname => 'PREPARER_USER_NAME' , avalue => username);
7113: --
7114: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 100';
7115: IF (g_po_wf_debug = 'Y') THEN
7116: /* DEBUG */
7117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7118: END IF;
7116: /* DEBUG */
7117: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7118: END IF;
7119: wf_engine.StartProcess(itemtype => Err_ItemType, itemkey => Err_ItemKey);
7120: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: 900';
7121: IF (g_po_wf_debug = 'Y') THEN
7122: /* DEBUG */
7123: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7124: END IF;
7125: COMMIT;
7126: END IF;
7127: EXCEPTION
7128: WHEN OTHERS THEN
7129: x_progress := 'PO_REQAPPROVAL_INIT1.send_error_notif: '|| sqlerrm;
7130: IF (g_po_wf_debug = 'Y') THEN
7131: /* DEBUG */
7132: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7133: END IF;
7207: l_prof_value VARCHAR2(2);
7208: l_doc_string VARCHAR2(200);
7209: l_preparer_user_name VARCHAR2(100);
7210: BEGIN
7211: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 01';
7212: IF (g_po_wf_debug = 'Y') THEN
7213: /* DEBUG */
7214: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7215: END IF;
7228: END IF;
7229: --
7230: resultout := wf_engine.eng_completed || ':' || l_prof_value ;
7231: --
7232: x_progress := 'PO_REQAPPROVAL_INIT1.profile_value_check: 02. Result= ' || l_prof_value;
7233: IF (g_po_wf_debug = 'Y') THEN
7234: /* DEBUG */
7235: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7236: END IF;
7235: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7236: END IF;
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7240: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7241: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' , itemtype, itemkey, x_progress);
7242: resultout:='COMPLETE:'||'N';
7243: END;
7236: END IF;
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7240: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7241: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' , itemtype, itemkey, x_progress);
7242: resultout:='COMPLETE:'||'N';
7243: END;
7244: PROCEDURE Check_Error_Count
7237: EXCEPTION
7238: WHEN OTHERS THEN
7239: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
7240: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
7241: WF_CORE.context('PO_REQAPPROVAL_INIT1', 'PROFILE_VALUE_CHECK' , itemtype, itemkey, x_progress);
7242: resultout:='COMPLETE:'||'N';
7243: END;
7244: PROCEDURE Check_Error_Count
7245: (
7333: ** Fix Details: Make all the Set and Get calls for parent item type to use the PO wrapper
7334: ** PO_WF_UTIL_PKG so that the missing attribute errors are ignored.
7335: */
7336: l_preparer_id := PO_WF_UTIL_PKG.GetItemAttrNumber ( itemtype => l_item_type, itemkey => l_item_key, aname => 'PREPARER_ID');
7337: PO_REQAPPROVAL_INIT1.get_user_name(l_preparer_id, l_name, l_disp);
7338: /* Bug# 2655410: kagarwal
7339: ** Desc: We will get the document type display value from
7340: ** po document types. Hence we need to get the doc type and subtype
7341: ** from the parent wf and then set the doc type display in the
7472: END IF;
7473: /*** (Bug 5501659) ***/
7474: EXCEPTION
7475: WHEN OTHERS THEN
7476: wf_core.context('PO_REQAPPROVAL_INIT1','acceptance_required',x_progress);
7477: raise;
7478: END;
7479: --
7480: PROCEDURE Register_acceptance
7606: -- insert acceptance record.
7607: Insert_Acc_Rejection_Row(itemtype, itemkey, actid, 'Y');
7608: EXCEPTION
7609: WHEN OTHERS THEN
7610: wf_core.context('PO_REQAPPROVAL_INIT1','Register_acceptance',x_progress);
7611: raise;
7612: END;
7613: --
7614: PROCEDURE Register_rejection
7743: PO_WF_UTIL_PKG.SetItemAttrText ( itemtype => itemtype, itemkey => itemkey, aname => 'BUYER_USER_NAME', avalue => l_role_name);
7744: END IF;
7745: EXCEPTION
7746: WHEN OTHERS THEN
7747: wf_core.context('PO_REQAPPROVAL_INIT1','Register_rejection',x_progress);
7748: raise;
7749: END;
7750: PROCEDURE Insert_Acc_Rejection_Row
7751: (
7906: -- Context Setting Revamp
7907: X_User_Id := fnd_global.user_id;
7908: X_Responsibility_Id := fnd_global.resp_id;
7909: X_Application_Id := fnd_global.resp_appl_id;
7910: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.X_USER_ID= ' || TO_CHAR(x_user_id) || 'X_ APPLICATION_ID= ' || TO_CHAR(x_application_id) || 'X_RESPONSIBILITY_ID= ' || TO_CHAR(x_responsibility_id);
7911: IF (g_po_wf_debug = 'Y') THEN
7912: /* DEBUG */
7913: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7914: END IF;
7925: --
7926: l_application_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'APPLICATION_ID');
7927: --
7928: l_responsibility_id := wf_engine.GetItemAttrNumber ( itemtype => itemtype, itemkey => itemkey, aname => 'RESPONSIBILITY_ID');
7929: x_progress := 'PO_REQAPPROVAL_INIT1.set_doc_mgr_context.L_USER_ID= ' || TO_CHAR(l_user_id) || ' L_APPLICATION_ID= ' || TO_CHAR(l_application_id) || 'L_RESPONSIBILITY_ID= ' || TO_CHAR(l_responsibility_id);
7930: IF (g_po_wf_debug = 'Y') THEN
7931: /* DEBUG */
7932: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
7933: END IF;
7987: l_resp_id NUMBER;
7988: l_user_id NUMBER;
7989: l_appl_id NUMBER;
7990: BEGIN
7991: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 01';
7992: IF (g_po_wf_debug = 'Y') THEN
7993: /* DEBUG */
7994: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
7995: END IF;
8009: /* if (l_user_id is not null and
8010: l_resp_id is not null and
8011: l_appl_id is not null )then
8012: -- Bug 4125251,replaced apps init call with set doc mgr context call
8013: PO_REQAPPROVAL_INIT1.Set_doc_mgr_context(itemtype, itemkey); */
8014: IF l_orgid IS NOT NULL THEN
8015: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
8016: END IF;
8017: -- end if;
8028: l_massupdate_releases := 'N';
8029: END IF;
8030: END IF;
8031: resultout := wf_engine.eng_completed || ':' || l_massupdate_releases;
8032: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Yes_No: 02. Result= ' || l_massupdate_releases;
8033: IF (g_po_wf_debug = 'Y') THEN
8034: /* DEBUG */
8035: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8036: END IF;
8055: l_return_status VARCHAR2(1) ;
8056: l_communicate_update VARCHAR2(30); -- Bug 3574895. Length same as that on the form field PO_APPROVE.COMMUNICATE_UPDATES
8057: l_category_struct_id mtl_category_sets_b.structure_id%type; -- Bug 3592705
8058: BEGIN
8059: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 01';
8060: /* Bug# 2846210
8061: ** Desc: Setting application context as this wf api will be executed
8062: ** after the background engine is run.
8063: */
8077: FROM mtl_default_sets_view
8078: WHERE functional_area_id = 2 ;
8079: EXCEPTION
8080: WHEN OTHERS THEN
8081: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: Could not find Category Structure Id';
8082: IF (g_po_wf_debug = 'Y') THEN
8083: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8084: END IF;
8085: raise;
8109: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8110: EXCEPTION
8111: WHEN OTHERS THEN
8112: l_update_releases := 'N';
8113: l_progress := 'PO_REQAPPROVAL_INIT1.MassUpdate_Releases_Workflow: 03.'|| ' Result= ' || l_update_releases;
8114: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8115: IF (g_po_wf_debug = 'Y') THEN
8116: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8117: END IF;
8129: l_progress VARCHAR2(300);
8130: l_document_type PO_DOCUMENT_TYPES_ALL.DOCUMENT_TYPE_CODE%TYPE;
8131: l_document_subtype PO_DOCUMENT_TYPES_ALL.DOCUMENT_SUBTYPE%TYPE;
8132: BEGIN
8133: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 01';
8134: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE');
8135: -- Bug 3694128 : get the document type and subtype
8136: l_document_type := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
8137: l_document_subtype := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_SUBTYPE');
8148: l_supplier_comm := 'N';
8149: END IF;
8150: /*IF (l_supplier_comm IS NULL)*/
8151: resultout := wf_engine.eng_completed || ':' || l_supplier_comm;
8152: l_progress := 'PO_REQAPPROVAL_INIT1.Send_Supplier_Comm_Yes_No: 02. Result= ' || l_supplier_comm;
8153: IF (g_po_wf_debug = 'Y') THEN
8154: /* DEBUG */
8155: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8156: END IF;
8210: l_msg_data VARCHAR2(2000);
8211: l_retroactive_update VARCHAR2(30) := 'NEVER';
8212: l_reset_retro_update BOOLEAN := FALSE;
8213: BEGIN
8214: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 01';
8215: IF (g_po_wf_debug = 'Y') THEN
8216: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8217: END IF;
8218: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8223: Set_doc_mgr_context(itemtype, itemkey);
8224: l_document_id := wf_engine.GetItemAttrNumber (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_ID');
8225: l_document_type := wf_engine.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'DOCUMENT_TYPE');
8226: l_retro_change := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE');
8227: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 02. ' || 'l_document_id = ' || l_document_id || 'l_document_type = ' || l_document_type || 'l_retro_change = ' || l_retro_change ;
8228: IF (g_po_wf_debug = 'Y') THEN
8229: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8230: END IF;
8231: -- Only handle retroactive invoice change for PO or Release
8238: -- In this case, d_globals.retroactive_change_flag is lost.
8239: -- Always trust l_retro_change='Y'
8240: IF (l_retro_change IS NULL OR l_retro_change = 'N') THEN
8241: l_retro_change := PO_RETROACTIVE_PRICING_PVT.Is_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8242: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 03' || 'l_retro_change = ' || l_retro_change ;
8243: IF (g_po_wf_debug = 'Y') THEN
8244: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8245: END IF;
8246: END IF;
8246: END IF;
8247: /*IF (l_retro_change IS NULL OR l_retro_change = 'N')*/
8248: IF (l_retro_change = 'Y') THEN
8249: l_retroactive_update := PO_RETROACTIVE_PRICING_PVT.Get_Retro_Mode;
8250: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 04' || 'l_retroactive_update = ' || l_retroactive_update;
8251: IF (g_po_wf_debug = 'Y') THEN
8252: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8253: END IF;
8254: -- Need to reset retroactive_date afterwards
8258: END IF;
8259: /*IF (l_retroactive_update = 'NEVER')*/
8260: END IF;
8261: /*IF (l_retro_change = 'Y')*/
8262: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 05' || 'l_retroactive_update = ' || l_retroactive_update || 'l_retro_change = ' || l_retro_change ;
8263: IF (g_po_wf_debug = 'Y') THEN
8264: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8265: END IF;
8266: -- Set 'CO_R_RETRO_CHANGE' attribute so that later Workflow process can
8266: -- Set 'CO_R_RETRO_CHANGE' attribute so that later Workflow process can
8267: -- use this attribute safely
8268: PO_WF_UTIL_PKG.SetItemAttrText (itemtype => itemtype, itemkey => itemkey, aname => 'CO_R_RETRO_CHANGE', avalue => l_retro_change);
8269: IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES') THEN
8270: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 06. Calling ' || 'PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release';
8271: IF (g_po_wf_debug = 'Y') THEN
8272: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8273: END IF;
8274: PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release ( p_api_version => 1.0, p_document_id => l_document_id, p_document_type => l_document_type , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
8274: PO_RETROACTIVE_PRICING_PVT.Retro_Invoice_Release ( p_api_version => 1.0, p_document_id => l_document_id, p_document_type => l_document_type , x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
8275: IF (l_return_status <> 'S') THEN
8276: l_update_releases := 'N';
8277: END IF;
8278: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 07. Result= ' || l_update_releases;
8279: IF (g_po_wf_debug = 'Y') THEN
8280: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8281: END IF;
8282: END IF;
8281: END IF;
8282: END IF;
8283: /*IF (l_retro_change = 'Y' AND l_retroactive_update = 'ALL_RELEASES')*/
8284: IF (l_reset_retro_update) THEN
8285: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 08. Reset_Retro_Update';
8286: IF (g_po_wf_debug = 'Y') THEN
8287: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8288: END IF;
8289: PO_RETROACTIVE_PRICING_PVT.Reset_Retro_Update( p_document_id => l_document_id, p_document_type => l_document_type);
8292: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8293: EXCEPTION
8294: WHEN OTHERS THEN
8295: l_update_releases := 'N';
8296: l_progress := 'PO_REQAPPROVAL_INIT1.Retro_Invoice_Release_WF: 09.'|| ' Result= ' || l_update_releases;
8297: resultout := wf_engine.eng_completed || ':' || l_update_releases;
8298: IF (g_po_wf_debug = 'Y') THEN
8299: PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,l_progress);
8300: END IF;
8479: END IF;
8480: l_progress := '200';
8481: EXCEPTION
8482: WHEN OTHERS THEN
8483: wf_core.context('PO_REQAPPROVAL_INIT1','should_notify_cat_admin',l_progress||' DocumentId='||TO_CHAR(l_doc_id));
8484: raise;
8485: END should_notify_cat_admin;
8486: -------------------------------------------------------------------------------
8487: --Start of Comments : R12 Online authoring Notifications
8528: l_user_name FND_USER.USER_NAME%type;
8529: l_lock_owner_role PO_HEADERS_ALL.lock_owner_role%type;
8530: l_lock_owner_user_id PO_HEADERS_ALL.lock_owner_user_id%type;
8531: BEGIN
8532: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 100' || 'Document Id='|| TO_CHAR(p_doc_id) || 'Document Type='|| p_doc_type;
8533: IF (g_po_wf_debug = 'Y') THEN
8534: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8535: END IF;
8536: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 110';
8532: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 100' || 'Document Id='|| TO_CHAR(p_doc_id) || 'Document Type='|| p_doc_type;
8533: IF (g_po_wf_debug = 'Y') THEN
8534: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8535: END IF;
8536: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 110';
8537: -- Proceed only if this is an agreement
8538: IF (g_po_wf_debug = 'Y') THEN
8539: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8540: END IF;
8546: l_lock_owner_role
8547: FROM po_headers_all
8548: WHERE po_header_id = p_doc_id;
8549:
8550: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 140' || 'l_lock_owner_user_id ='|| TO_CHAR(l_lock_owner_user_id) || 'l_lock_owner_role Type='|| l_lock_owner_role;
8551: IF (g_po_wf_debug = 'Y') THEN
8552: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8553: END IF;
8554: IF l_lock_owner_role = 'CAT ADMIN' THEN
8551: IF (g_po_wf_debug = 'Y') THEN
8552: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8553: END IF;
8554: IF l_lock_owner_role = 'CAT ADMIN' THEN
8555: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 150';
8556: -- The performer attribute holds the user name, get the user name
8557: -- associated with the user id
8558: SELECT user_name
8559: INTO l_user_name
8559: INTO l_user_name
8560: FROM fnd_user
8561: WHERE user_id = l_lock_owner_user_id;
8562:
8563: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 155' || 'UserName='|| l_user_name;
8564: IF (g_po_wf_debug = 'Y') THEN
8565: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8566: END IF;
8567: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
8563: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 155' || 'UserName='|| l_user_name;
8564: IF (g_po_wf_debug = 'Y') THEN
8565: PO_WF_DEBUG_PKG.insert_debug(p_item_type,p_item_key,l_progress);
8566: END IF;
8567: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
8568: -- Set the item attribute tied to the performer of the
8569: -- approval notification
8570: wf_engine.SetItemAttrText ( itemtype => p_item_type , itemkey => p_item_key , aname => 'CATALOG_ADMIN_USER_NAME', avalue => l_user_name);
8571: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 170';
8567: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 160';
8568: -- Set the item attribute tied to the performer of the
8569: -- approval notification
8570: wf_engine.SetItemAttrText ( itemtype => p_item_type , itemkey => p_item_key , aname => 'CATALOG_ADMIN_USER_NAME', avalue => l_user_name);
8571: l_progress := 'PO_REQAPPROVAL_INIT1.set_catalog_admin_user_name: 170';
8572: END IF; -- End of check for "CAT ADMIN"
8573: END IF; -- End of Check for "PA" (Agreement check)
8574: l_progress := '200';
8575: EXCEPTION
8573: END IF; -- End of Check for "PA" (Agreement check)
8574: l_progress := '200';
8575: EXCEPTION
8576: WHEN OTHERS THEN
8577: wf_core.context('PO_REQAPPROVAL_INIT1','set_catalog_admin_user_name',l_progress||' DocumentId='||TO_CHAR(p_doc_id));
8578: raise;
8579: END set_catalog_admin_user_name;
8580: -------------------------------------------------------------------------------
8581: --Start of Comments : HTML Orders R12
8732: p_func_mode in varchar2,
8733: x_result_out out NOCOPY varchar2) is
8734: l_progress VARCHAR2(300);
8735: begin
8736: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
8737: IF (g_po_wf_debug = 'Y') THEN
8738: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8739: END IF;
8740: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type,
8767: p_func_mode in varchar2,
8768: x_result_out out NOCOPY varchar2) is
8769: l_progress VARCHAR2(300);
8770: begin
8771: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
8772: IF (g_po_wf_debug = 'Y') THEN
8773: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8774: END IF;
8775: -- Set the IS_SUPPLIER_CONTEXT value to 'N'
8866: x_result_out OUT NOCOPY VARCHAR2)
8867: IS
8868: l_progress VARCHAR2(300);
8869: BEGIN
8870: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_y: ';
8871: IF (g_po_wf_debug = 'Y') THEN
8872: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8873: END IF;
8874: PO_WF_UTIL_PKG.SetItemAttrText(itemtype => p_item_type, itemkey => p_item_key, aname => 'IS_SUPPLIER_CONTEXT', avalue => 'Y');
8901: x_result_out OUT NOCOPY VARCHAR2)
8902: IS
8903: l_progress VARCHAR2(300);
8904: BEGIN
8905: l_progress := 'PO_REQAPPROVAL_INIT1.set_is_supplier_context_n: ';
8906: IF (g_po_wf_debug = 'Y') THEN
8907: PO_WF_DEBUG_PKG.insert_debug(p_item_type, p_item_key, l_progress || 'Begin');
8908: END IF;
8909: -- Set the IS_SUPPLIER_CONTEXT value to 'N'
8928: IS
8929: l_draft_type PO_DRAFTS.DRAFT_TYPE%TYPE;
8930: l_progress VARCHAR2(1000);
8931: BEGIN
8932: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_attrs_from_docstyle DocumentId ' || DocumentId || ' and DraftId ' || DraftId;
8933:
8934: IF DraftId <> -1 THEN
8935: SELECT draft_type
8936: INTO l_draft_type
8940: ELSE
8941: l_draft_type := NULL;
8942: END IF;
8943:
8944: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_attrs_from_docstyle l_draft_type' || l_draft_type;
8945:
8946: SELECT ds.wf_approval_itemtype,
8947: ds.wf_approval_process,
8948: DECODE(l_draft_type,
8959: AND phm.style_id = ds.style_id
8960: AND ds.wf_approval_itemtype IS NOT NULL
8961: AND ds.wf_approval_process IS NOT NULL;
8962:
8963: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_attrs_from_docstyle l_itemtype ' || l_itemtype ||
8964: ' l_workflow_process ' || l_workflow_process || ' l_ame_transaction_type ' || l_ame_transaction_type;
8965:
8966: EXCEPTION
8967: WHEN OTHERS THEN
8973: ELSIF l_draft_type = 'PAR' THEN
8974: l_ame_transaction_type := 'PURCHASE_PAR';
8975: END IF;
8976: END IF;
8977: l_progress := 'PO_REQAPPROVAL_INIT1.get_wf_attrs_from_docstyle in exception l_itemtype ' || l_itemtype ||
8978: ' l_workflow_process ' || l_workflow_process || ' l_ame_transaction_type ' || l_ame_transaction_type;
8979: END;
8980: --
8981: -- This procedure is used to set the modupdated_aftercdgenerated to 'Y', if the
9013: END IF;
9014: COMMIT;
9015: EXCEPTION
9016: WHEN OTHERS THEN
9017: wf_core.context('PO_REQAPPROVAL_INIT1','SetModUpdateAfterCDGenFlag',x_progress);
9018: raise;
9019: END SetModUpdateAfterCDGenFlag;
9020:
9021: -- code added for bug 8291565 FP
9035: l_revision_num_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
9036: itemkey => itemkey,
9037: aname => 'HAS_REVISION_NUM_INCREMENTED');
9038:
9039: l_progress := 'PO_REQAPPROVAL_INIT1.check_rev_num_supplier_notif: HAS_REVISION_NUM_INCREMENTED = '||l_revision_num_flag;
9040:
9041: resultout := wf_engine.eng_completed || ':' || l_revision_num_flag ;
9042:
9043: EXCEPTION
9088: WHERE po_release_id = l_po_header_id;
9089:
9090: END IF;
9091:
9092: l_progress := 'PO_REQAPPROVAL_INIT1.update_supplier_com_rev_num: Current PO Rev Number = '||l_po_revision_num_curr;
9093:
9094: EXCEPTION
9095: WHEN OTHERS THEN
9096: IF (g_po_wf_debug = 'Y') THEN
9103: -- end of code added for bug 8291565
9104: -- to avoid sending repetitive FYI notifications to supplier users for the same revision number of a Purchase Order.
9105: --
9106:
9107: END PO_REQAPPROVAL_INIT1;