1: PACKAGE BODY PO_REQAPPROVAL_LAUNCH AS
2: /* $Header: POXWPA5B.pls 120.7.12020000.2 2013/02/10 12:36:39 vegajula ship $ */
3:
4: -- Read the profile option that enables/disables the debug log
5: g_po_wf_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('PO_SET_DEBUG_WORKFLOW_ON'),'N');
9: | FILENAME
10: | xxx.sql
11: |
12: | DESCRIPTION
13: | PL/SQL body for package: PO_REQAPPROVAL_LAUNCH
14: |
15: | NOTES Ben Chihaoui Created 6/15/97
16: | MODIFIED (MM/DD/YY)
17: *=======================================================================*/
42: l_preparer_user_name varchar2(100);
43:
44: BEGIN
45:
46: -- x_progress := 'PO_REQAPPROVAL_LAUNCH.Launch_CreatePO_WF: 01';
47: -- /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
48:
49:
50: -- Do nothing in cancel or timeout mode
67: EXCEPTION
68: WHEN OTHERS THEN
69: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
70: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
71: WF_CORE.context('PO_REQAPPROVAL_LAUNCH' , 'Launch_CreatePO_WF', itemtype, itemkey,x_progress);
72: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_LAUNCH.LAUNCH_CREATEPO_WF');
73: raise;
74:
75: END Launch_CreatePO_WF;
68: WHEN OTHERS THEN
69: l_doc_string := PO_REQAPPROVAL_INIT1.get_error_doc(itemType, itemkey);
70: l_preparer_user_name := PO_REQAPPROVAL_INIT1.get_preparer_user_name(itemType, itemkey);
71: WF_CORE.context('PO_REQAPPROVAL_LAUNCH' , 'Launch_CreatePO_WF', itemtype, itemkey,x_progress);
72: PO_REQAPPROVAL_INIT1.send_error_notif(itemType, itemkey, l_preparer_user_name, l_doc_string, sqlerrm, 'PO_REQAPPROVAL_LAUNCH.LAUNCH_CREATEPO_WF');
73: raise;
74:
75: END Launch_CreatePO_WF;
76:
88: x_progress varchar2(100);
89:
90: BEGIN
91:
92: x_progress := 'PO_REQAPPROVAL_LAUNCH.LaunchCreatePOWF:01';
93: IF (g_po_wf_debug = 'Y') THEN
94: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
95: END IF;
96:
125:
126: EXCEPTION
127:
128: WHEN OTHERS THEN
129: wf_core.context('PO_REQAPPROVAL_LAUNCH','LaunchCreatePOWF',
130: x_progress);
131: raise;
132:
133:
215: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
216: end if;
217:
218:
219: x_progress := 'PO_REQAPPROVAL_LAUNCH.CreateWFInstance:01';
220: IF (g_po_wf_debug = 'Y') THEN
221: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
222: END IF;
223:
240: l_ItemKey := to_char(p_requisition_header_id) || '-' || l_dummy;
241:
242:
243:
244: x_progress := 'PO_REQAPPROVAL_LAUNCH.CreateWFInstance:02 ItemType=' ||
245: l_ItemType || ' ItemKey=' || l_ItemKey;
246: IF (g_po_wf_debug = 'Y') THEN
247: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
248: END IF;
276:
277: EXCEPTION
278:
279: WHEN OTHERS THEN
280: wf_core.context('PO_REQAPPROVAL_LAUNCH','CreateWFInstance',
281: x_progress);
282: raise;
283:
284:
551: itemkey => p_itemkey,
552: x_progress => 'Exception in Selector');
553: END IF;
554:
555: WF_CORE.context('PO_REQAPPROVAL_LAUNCH',
556: 'POREQ_SELECTOR',
557: p_itemtype,
558: p_itemkey,
559: p_actid,
561: RAISE;
562:
563: END POREQ_SELECTOR;
564:
565: end PO_REQAPPROVAL_LAUNCH;