[Home] [Help]
1: PACKAGE BODY PO_WF_PO_ACCRUAL_ACC AS
2: /* $Header: POXWPAAB.pls 120.3 2005/09/14 05:05:58 pchintal noship $ */
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');
8: | FILENAME
9: | POXWPAAB.pls
10: |
11: | DESCRIPTION
12: | PL/SQL body for package: PO_WF_PO_ACCRUAL_ACC
13: |
14: | NOTES
15: | MODIFIED IMRAN ALI (09/08/97) - Created
16: *=====================================================================*/
28: x_progress varchar2(100);
29: x_destination_type varchar2(25);
30: begin
31:
32: x_progress := 'PO_WF_PO_ACCRUAL_ACC.destination_type: 01';
33: IF (g_po_wf_debug = 'Y') THEN
34: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
35: END IF;
36:
58: return;
59:
60: EXCEPTION
61: WHEN OTHERS THEN
62: wf_core.context('PO_WF_PO_ACCRUAL_ACC','destination_type',x_progress);
63: raise;
64: end destination_type;
65:
66: -- * ****************************************************************************** *
92: dummy VARCHAR2(40);
93: ret BOOLEAN;
94: begin
95:
96: x_progress := 'PO_WF_PO_ACCRUAL_ACC.AA_from_org : 01';
97: IF (g_po_wf_debug = 'Y') THEN
98: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
99: END IF;
100:
180: return;
181:
182: EXCEPTION
183: WHEN OTHERS THEN
184: wf_core.context('PO_WF_PO_ACCRUAL_ACC','AA_from_org',x_progress);
185: raise;
186: end AA_from_org;
187:
188: -- * ****************************************************************************** *
210: ret BOOLEAN;
211:
212: begin
213:
214: x_progress := 'PO_WF_PO_ACCRUAL_ACC.AA_for_expense_item: 01';
215: IF (g_po_wf_debug = 'Y') THEN
216: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
217: END IF;
218:
287: RETURN;
288:
289: EXCEPTION
290: WHEN OTHERS THEN
291: wf_core.context('PO_WF_PO_ACCRUAL_ACC','AA_for_expense_item',x_progress);
292: raise;
293:
294: end AA_for_expense_item;
295:
365: aname => 'PURCHASING_OU_ID');
366:
367: IF (g_po_wf_debug = 'Y') THEN
368: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
369: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account ' ||
370: 'l_purchasing_ou_id='||l_purchasing_ou_id);
371: END IF;
372:
373: --SQL WHAT: Get the Accrual Account for associated with an OU
398: l_progress := '040';
399:
400: IF (g_po_wf_debug = 'Y') THEN
401: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
402: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account result='||result);
403: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
404: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account l_account_id='||
405: l_account_id);
406: END IF;
400: IF (g_po_wf_debug = 'Y') THEN
401: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
402: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account result='||result);
403: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
404: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account l_account_id='||
405: l_account_id);
406: END IF;
407: EXCEPTION
408: WHEN OTHERS THEN
407: EXCEPTION
408: WHEN OTHERS THEN
409: IF (g_po_wf_debug = 'Y') THEN
410: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
411: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account EXCEPTION at '||
412: l_progress);
413: END IF;
414: WF_CORE.context('PO_WF_PO_ACCRUAL_ACC', 'get_SPS_accrual_account',
415: l_progress);
410: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey,
411: 'PO_WF_PO_ACCRUAL_ACC.get_SPS_accrual_account EXCEPTION at '||
412: l_progress);
413: END IF;
414: WF_CORE.context('PO_WF_PO_ACCRUAL_ACC', 'get_SPS_accrual_account',
415: l_progress);
416: RAISE;
417: END get_SPS_accrual_account;
418:
417: END get_SPS_accrual_account;
418:
419: --< Shared Proc FPJ End >
420:
421: end PO_WF_PO_ACCRUAL_ACC;