1: PACKAGE BODY PO_WF_REQ_FLEXBUILDER_UPGRADE AS
2: /* $Header: POXWRFUB.pls 115.9 2002/11/22 22:04:52 sbull 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');
8: | FILENAME
9: | POXWRFUB.pls
10: |
11: | DESCRIPTION
12: | PL/SQL spec for package: PO_WF_REQ_FLEXBUILDER_UPGRADE
13: |
14: | NOTES
15: | MODIFIED IMRAN ALI (09/11/97) - Created
16: | Imran (08/11/98) - Rewrote some initialization code
53: x_destination_type varchar2(25);
54:
55: BEGIN
56:
57: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.charge_account: 01';
58: IF (g_po_wf_debug = 'Y') THEN
59: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
60: END IF;
61:
77: 'CHARGE',
78: FB_FLEX_SEG,
79: FB_ERROR_MSG );
80:
81: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.charge_account: 02';
82: IF (g_po_wf_debug = 'Y') THEN
83: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
84: END IF;
85:
115: end if;
116:
117: EXCEPTION
118: WHEN OTHERS THEN
119: wf_core.context('PO_WF_REQ_FLEXBUILDER_UPGRADE','charge_account',x_progress);
120: raise;
121:
122: END charge_account;
123:
138: FB_FLEX_SEG varchar2(2000);
139: FB_ERROR_MSG varchar2(2000);
140: BEGIN
141:
142: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.budget_account: 01';
143: IF (g_po_wf_debug = 'Y') THEN
144: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
145: END IF;
146:
162: 'BUDGET',
163: FB_FLEX_SEG,
164: FB_ERROR_MSG );
165:
166: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.budget_account: 02';
167: IF (g_po_wf_debug = 'Y') THEN
168: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
169: END IF;
170:
191: end if;
192:
193: EXCEPTION
194: WHEN OTHERS THEN
195: wf_core.context('PO_WF_REQ_FLEXBUILDER_UPGRADE','budget_account',x_progress);
196: raise;
197:
198: END budget_account;
199:
214: FB_FLEX_SEG varchar2(2000);
215: FB_ERROR_MSG varchar2(2000);
216: BEGIN
217:
218: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.variance_account: 01';
219: IF (g_po_wf_debug = 'Y') THEN
220: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
221: END IF;
222:
238: 'VARIANCE',
239: FB_FLEX_SEG,
240: FB_ERROR_MSG );
241:
242: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.variance_account: 02';
243: IF (g_po_wf_debug = 'Y') THEN
244: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
245: END IF;
246:
267: end if;
268:
269: EXCEPTION
270: WHEN OTHERS THEN
271: wf_core.context('PO_WF_REQ_FLEXBUILDER_UPGRADE','variance_account',x_progress);
272: raise;
273:
274: END variance_account;
275:
290: FB_FLEX_SEG varchar2(2000);
291: FB_ERROR_MSG varchar2(2000);
292: BEGIN
293:
294: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.accrual_account: 01';
295: IF (g_po_wf_debug = 'Y') THEN
296: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
297: END IF;
298:
314: 'ACCRUAL',
315: FB_FLEX_SEG,
316: FB_ERROR_MSG );
317:
318: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.accrual_account: 02';
319: IF (g_po_wf_debug = 'Y') THEN
320: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
321: END IF;
322:
343: end if;
344:
345: EXCEPTION
346: WHEN OTHERS THEN
347: wf_core.context('PO_WF_REQ_FLEXBUILDER_UPGRADE','accrual_account',x_progress);
348: raise;
349:
350: END accrual_account;
351:
451: budget_account_id NUMBER;
452: accrual_account_id NUMBER;
453: begin
454:
455: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.req_build_charge_account: 1';
456: IF (g_po_wf_debug = 'Y') THEN
457: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
458: END IF;
459:
908: FB_FLEX_SEG => fb_flex_seg,
909: FB_ERROR_MSG => fb_error_msg );
910:
911: END IF;
912: x_progress := 'PO_WF_REQ_FLEXBUILDER_UPGRADE.req_build_account : 2';
913: IF (g_po_wf_debug = 'Y') THEN
914: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,x_progress);
915: END IF;
916:
917: return x_result_flag;
918:
919: exception
920: when others then
921: wf_core.context('PO_WF_REQ_FLEXBUILDER_UPGRADE','req_build_account',x_progress);
922: IF (g_po_wf_debug = 'Y') THEN
923: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype,itemkey,'EXCEPTION raised in req_build_account procedure');
924: END IF;
925: raise;
961:
962: end;
963:
964:
965: end PO_WF_REQ_FLEXBUILDER_UPGRADE;