11:
12:
13: -- Debugging
14:
15: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
16: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
17:
18:
19: -- Exception handling
12:
13: -- Debugging
14:
15: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
16: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
17:
18:
19: -- Exception handling
20:
176:
177: BEGIN
178:
179: IF g_debug_stmt THEN
180: PO_DEBUG.debug_begin(l_log_head);
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
177: BEGIN
178:
179: IF g_debug_stmt THEN
180: PO_DEBUG.debug_begin(l_log_head);
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
178:
179: IF g_debug_stmt THEN
180: PO_DEBUG.debug_begin(l_log_head);
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
179: IF g_debug_stmt THEN
180: PO_DEBUG.debug_begin(l_log_head);
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
187: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id);
180: PO_DEBUG.debug_begin(l_log_head);
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
187: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id);
188: END IF;
181: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
187: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id);
188: END IF;
189:
182: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
187: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id);
188: END IF;
189:
190: l_progress := '010';
183: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
184: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
185: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
186: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
187: PO_DEBUG.debug_var(l_log_head,l_progress,'p_draft_id',p_draft_id);
188: END IF;
189:
190: l_progress := '010';
191:
201: IF Nvl(p_draft_id,-1) <> -1 Then
202:
203: l_progress := '030';
204: IF g_debug_stmt THEN
205: PO_DEBUG.debug_stmt(l_log_head,l_progress,
206: 'Calling Populate_Enc_Gt_With_Draft for Modification');
207: END IF;
208:
209: -- Encumbrance is Not Supported for BPAs in CLM
213: End If;
214:
215: l_progress := '040';
216: IF g_debug_stmt THEN
217: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
218: End If;
219:
220: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
221: l_use_enc_gt_flag := g_parameter_YES;
259:
260: l_progress := '900';
261:
262: IF g_debug_stmt THEN
263: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
264: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
267: PO_DEBUG.debug_end(l_log_head);
260: l_progress := '900';
261:
262: IF g_debug_stmt THEN
263: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
264: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
267: PO_DEBUG.debug_end(l_log_head);
268: END IF;
261:
262: IF g_debug_stmt THEN
263: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
264: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
267: PO_DEBUG.debug_end(l_log_head);
268: END IF;
269:
262: IF g_debug_stmt THEN
263: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
264: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
267: PO_DEBUG.debug_end(l_log_head);
268: END IF;
269:
270: EXCEPTION
263: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
264: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
267: PO_DEBUG.debug_end(l_log_head);
268: END IF;
269:
270: EXCEPTION
271: WHEN OTHERS THEN
270: EXCEPTION
271: WHEN OTHERS THEN
272: -- bug 3454804 - robust exception handling
273: BEGIN
274: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
275:
276: -- Do all of the common exception handling.
277: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
278:
275:
276: -- Do all of the common exception handling.
277: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
278:
279: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
280:
281: IF g_debug_stmt THEN
282: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
283: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
278:
279: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
280:
281: IF g_debug_stmt THEN
282: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
283: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
284: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
285: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
286: END IF;
279: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
280:
281: IF g_debug_stmt THEN
282: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
283: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
284: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
285: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
286: END IF;
287:
280:
281: IF g_debug_stmt THEN
282: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
283: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
284: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
285: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
286: END IF;
287:
288: -- Rollback as per API standards.
281: IF g_debug_stmt THEN
282: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
283: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
284: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
285: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
286: END IF;
287:
288: -- Rollback as per API standards.
289: ROLLBACK TO CHECK_RESERVE_SP;
287:
288: -- Rollback as per API standards.
289: ROLLBACK TO CHECK_RESERVE_SP;
290:
291: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
292:
293: EXCEPTION
294: WHEN OTHERS THEN
295: NULL;
365:
366: BEGIN
367:
368: IF g_debug_stmt THEN
369: PO_DEBUG.debug_begin(l_log_head);
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
366: BEGIN
367:
368: IF g_debug_stmt THEN
369: PO_DEBUG.debug_begin(l_log_head);
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
374: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
367:
368: IF g_debug_stmt THEN
369: PO_DEBUG.debug_begin(l_log_head);
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
374: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
375: END IF;
368: IF g_debug_stmt THEN
369: PO_DEBUG.debug_begin(l_log_head);
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
374: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
375: END IF;
376:
369: PO_DEBUG.debug_begin(l_log_head);
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
374: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
375: END IF;
376:
377: l_progress := '010';
370: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
371: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
372: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
373: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
374: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
375: END IF;
376:
377: l_progress := '010';
378:
414:
415: l_progress := '900';
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
421: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
422: PO_DEBUG.debug_end(l_log_head);
415: l_progress := '900';
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
421: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
422: PO_DEBUG.debug_end(l_log_head);
423: END IF;
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
421: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
422: PO_DEBUG.debug_end(l_log_head);
423: END IF;
424:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
421: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
422: PO_DEBUG.debug_end(l_log_head);
423: END IF;
424:
425: EXCEPTION
418: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
421: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
422: PO_DEBUG.debug_end(l_log_head);
423: END IF;
424:
425: EXCEPTION
426: WHEN OTHERS THEN
425: EXCEPTION
426: WHEN OTHERS THEN
427: -- bug 3454804 - robust exception handling
428: BEGIN
429: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
430:
431: -- Do all of the common exception handling.
432: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
433:
430:
431: -- Do all of the common exception handling.
432: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
433:
434: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
435:
436: IF g_debug_stmt THEN
437: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
438: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
433:
434: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
435:
436: IF g_debug_stmt THEN
437: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
438: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
439: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
440: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
441: END IF;
434: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
435:
436: IF g_debug_stmt THEN
437: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
438: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
439: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
440: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
441: END IF;
442:
435:
436: IF g_debug_stmt THEN
437: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
438: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
439: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
440: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
441: END IF;
442:
443: -- Rollback as per API standards.
436: IF g_debug_stmt THEN
437: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
438: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
439: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
440: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
441: END IF;
442:
443: -- Rollback as per API standards.
444: ROLLBACK TO CHECK_ADJUST_SP;
442:
443: -- Rollback as per API standards.
444: ROLLBACK TO CHECK_ADJUST_SP;
445:
446: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
447:
448: EXCEPTION
449: WHEN OTHERS THEN
450: NULL;
539:
540: BEGIN
541:
542: IF g_debug_stmt THEN
543: PO_DEBUG.debug_begin(l_log_head);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
540: BEGIN
541:
542: IF g_debug_stmt THEN
543: PO_DEBUG.debug_begin(l_log_head);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
541:
542: IF g_debug_stmt THEN
543: PO_DEBUG.debug_begin(l_log_head);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
542: IF g_debug_stmt THEN
543: PO_DEBUG.debug_begin(l_log_head);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
543: PO_DEBUG.debug_begin(l_log_head);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
544: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
545: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
553: END IF;
546: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
553: END IF;
554:
547: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
553: END IF;
554:
555: l_progress := '010';
548: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
549: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',p_prevent_partial_flag);
550: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
551: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
552: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
553: END IF;
554:
555: l_progress := '010';
556:
592:
593: l_progress := '900';
594:
595: IF g_debug_stmt THEN
596: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
597: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
598: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
599: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
600: PO_DEBUG.debug_end(l_log_head);
593: l_progress := '900';
594:
595: IF g_debug_stmt THEN
596: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
597: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
598: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
599: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
600: PO_DEBUG.debug_end(l_log_head);
601: END IF;
594:
595: IF g_debug_stmt THEN
596: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
597: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
598: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
599: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
600: PO_DEBUG.debug_end(l_log_head);
601: END IF;
602:
595: IF g_debug_stmt THEN
596: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
597: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
598: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
599: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
600: PO_DEBUG.debug_end(l_log_head);
601: END IF;
602:
603: EXCEPTION
596: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
597: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
598: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
599: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
600: PO_DEBUG.debug_end(l_log_head);
601: END IF;
602:
603: EXCEPTION
604: WHEN OTHERS THEN
603: EXCEPTION
604: WHEN OTHERS THEN
605: -- bug 3454804 - robust exception handling
606: BEGIN
607: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
608:
609: -- Do all of the common exception handling.
610: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
611:
608:
609: -- Do all of the common exception handling.
610: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
611:
612: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
613:
614: IF g_debug_stmt THEN
615: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
611:
612: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
613:
614: IF g_debug_stmt THEN
615: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
619: END IF;
612: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
613:
614: IF g_debug_stmt THEN
615: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
619: END IF;
620:
613:
614: IF g_debug_stmt THEN
615: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
619: END IF;
620:
621: -- Rollback as per API standards.
614: IF g_debug_stmt THEN
615: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
616: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
617: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
618: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
619: END IF;
620:
621: -- Rollback as per API standards.
622: ROLLBACK TO DO_RESERVE_SP;
620:
621: -- Rollback as per API standards.
622: ROLLBACK TO DO_RESERVE_SP;
623:
624: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
625:
626: EXCEPTION
627: WHEN OTHERS THEN
628: NULL;
719:
720: BEGIN
721:
722: IF g_debug_stmt THEN
723: PO_DEBUG.debug_begin(l_log_head);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
720: BEGIN
721:
722: IF g_debug_stmt THEN
723: PO_DEBUG.debug_begin(l_log_head);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
721:
722: IF g_debug_stmt THEN
723: PO_DEBUG.debug_begin(l_log_head);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
722: IF g_debug_stmt THEN
723: PO_DEBUG.debug_begin(l_log_head);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
723: PO_DEBUG.debug_begin(l_log_head);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
724: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
725: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
733: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
726: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
733: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
734: END IF;
727: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
733: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
734: END IF;
735:
728: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
733: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
734: END IF;
735:
736: l_progress := '010';
729: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
730: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
731: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
732: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
733: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
734: END IF;
735:
736: l_progress := '010';
737:
773:
774: l_progress := '900';
775:
776: IF g_debug_stmt THEN
777: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
778: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
779: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
780: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
781: PO_DEBUG.debug_end(l_log_head);
774: l_progress := '900';
775:
776: IF g_debug_stmt THEN
777: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
778: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
779: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
780: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
781: PO_DEBUG.debug_end(l_log_head);
782: END IF;
775:
776: IF g_debug_stmt THEN
777: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
778: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
779: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
780: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
781: PO_DEBUG.debug_end(l_log_head);
782: END IF;
783:
776: IF g_debug_stmt THEN
777: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
778: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
779: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
780: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
781: PO_DEBUG.debug_end(l_log_head);
782: END IF;
783:
784: EXCEPTION
777: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
778: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
779: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
780: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
781: PO_DEBUG.debug_end(l_log_head);
782: END IF;
783:
784: EXCEPTION
785: WHEN OTHERS THEN
784: EXCEPTION
785: WHEN OTHERS THEN
786: -- bug 3454804 - robust exception handling
787: BEGIN
788: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
789:
790: -- Do all of the common exception handling.
791: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
792:
789:
790: -- Do all of the common exception handling.
791: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
792:
793: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
794:
795: IF g_debug_stmt THEN
796: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
797: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
792:
793: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
794:
795: IF g_debug_stmt THEN
796: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
797: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
798: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
799: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
800: END IF;
793: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
794:
795: IF g_debug_stmt THEN
796: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
797: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
798: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
799: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
800: END IF;
801:
794:
795: IF g_debug_stmt THEN
796: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
797: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
798: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
799: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
800: END IF;
801:
802: -- Rollback as per API standards.
795: IF g_debug_stmt THEN
796: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
797: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
798: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
799: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
800: END IF;
801:
802: -- Rollback as per API standards.
803: ROLLBACK TO DO_UNRESERVE_SP;
801:
802: -- Rollback as per API standards.
803: ROLLBACK TO DO_UNRESERVE_SP;
804:
805: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
806:
807: EXCEPTION
808: WHEN OTHERS THEN
809: NULL;
887:
888: BEGIN
889:
890: IF g_debug_stmt THEN
891: PO_DEBUG.debug_begin(l_log_head);
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
888: BEGIN
889:
890: IF g_debug_stmt THEN
891: PO_DEBUG.debug_begin(l_log_head);
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
889:
890: IF g_debug_stmt THEN
891: PO_DEBUG.debug_begin(l_log_head);
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
890: IF g_debug_stmt THEN
891: PO_DEBUG.debug_begin(l_log_head);
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
891: PO_DEBUG.debug_begin(l_log_head);
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
899: END IF;
892: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
899: END IF;
900:
893: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
899: END IF;
900:
901: l_progress := '010';
894: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
895: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
896: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
897: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
898: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
899: END IF;
900:
901: l_progress := '010';
902:
938:
939: l_progress := '900';
940:
941: IF g_debug_stmt THEN
942: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
943: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
944: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
945: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
946: PO_DEBUG.debug_end(l_log_head);
939: l_progress := '900';
940:
941: IF g_debug_stmt THEN
942: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
943: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
944: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
945: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
946: PO_DEBUG.debug_end(l_log_head);
947: END IF;
940:
941: IF g_debug_stmt THEN
942: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
943: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
944: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
945: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
946: PO_DEBUG.debug_end(l_log_head);
947: END IF;
948:
941: IF g_debug_stmt THEN
942: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
943: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
944: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
945: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
946: PO_DEBUG.debug_end(l_log_head);
947: END IF;
948:
949: EXCEPTION
942: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
943: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
944: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
945: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
946: PO_DEBUG.debug_end(l_log_head);
947: END IF;
948:
949: EXCEPTION
950: WHEN OTHERS THEN
949: EXCEPTION
950: WHEN OTHERS THEN
951: -- bug 3454804 - robust exception handling
952: BEGIN
953: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
954:
955: -- Do all of the common exception handling.
956: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
957:
954:
955: -- Do all of the common exception handling.
956: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
957:
958: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
959:
960: IF g_debug_stmt THEN
961: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
962: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
957:
958: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
959:
960: IF g_debug_stmt THEN
961: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
962: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
964: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
965: END IF;
958: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
959:
960: IF g_debug_stmt THEN
961: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
962: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
964: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
965: END IF;
966:
959:
960: IF g_debug_stmt THEN
961: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
962: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
964: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
965: END IF;
966:
967: -- Rollback as per API standards.
960: IF g_debug_stmt THEN
961: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
962: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
964: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
965: END IF;
966:
967: -- Rollback as per API standards.
968: ROLLBACK TO DO_RETURN_SP;
966:
967: -- Rollback as per API standards.
968: ROLLBACK TO DO_RETURN_SP;
969:
970: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
971:
972: EXCEPTION
973: WHEN OTHERS THEN
974: NULL;
1057:
1058: BEGIN
1059:
1060: IF g_debug_stmt THEN
1061: PO_DEBUG.debug_begin(l_log_head);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1058: BEGIN
1059:
1060: IF g_debug_stmt THEN
1061: PO_DEBUG.debug_begin(l_log_head);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1059:
1060: IF g_debug_stmt THEN
1061: PO_DEBUG.debug_begin(l_log_head);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1060: IF g_debug_stmt THEN
1061: PO_DEBUG.debug_begin(l_log_head);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1061: PO_DEBUG.debug_begin(l_log_head);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1069: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1062: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1069: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1070: END IF;
1063: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1069: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1070: END IF;
1071:
1064: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1069: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1070: END IF;
1071:
1072: l_progress := '010';
1065: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1066: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1067: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1068: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1069: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1070: END IF;
1071:
1072: l_progress := '010';
1073:
1109:
1110: l_progress := '900';
1111:
1112: IF g_debug_stmt THEN
1113: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1114: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1115: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1116: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1117: PO_DEBUG.debug_end(l_log_head);
1110: l_progress := '900';
1111:
1112: IF g_debug_stmt THEN
1113: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1114: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1115: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1116: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1117: PO_DEBUG.debug_end(l_log_head);
1118: END IF;
1111:
1112: IF g_debug_stmt THEN
1113: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1114: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1115: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1116: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1117: PO_DEBUG.debug_end(l_log_head);
1118: END IF;
1119:
1112: IF g_debug_stmt THEN
1113: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1114: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1115: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1116: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1117: PO_DEBUG.debug_end(l_log_head);
1118: END IF;
1119:
1120: EXCEPTION
1113: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1114: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1115: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1116: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1117: PO_DEBUG.debug_end(l_log_head);
1118: END IF;
1119:
1120: EXCEPTION
1121: WHEN OTHERS THEN
1120: EXCEPTION
1121: WHEN OTHERS THEN
1122: -- bug 3454804 - robust exception handling
1123: BEGIN
1124: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
1125:
1126: -- Do all of the common exception handling.
1127: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1128:
1125:
1126: -- Do all of the common exception handling.
1127: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1128:
1129: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1130:
1131: IF g_debug_stmt THEN
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1128:
1129: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1130:
1131: IF g_debug_stmt THEN
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1134: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1135: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1136: END IF;
1129: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1130:
1131: IF g_debug_stmt THEN
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1134: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1135: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1136: END IF;
1137:
1130:
1131: IF g_debug_stmt THEN
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1134: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1135: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1136: END IF;
1137:
1138: -- Rollback as per API standards.
1131: IF g_debug_stmt THEN
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1134: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1135: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1136: END IF;
1137:
1138: -- Rollback as per API standards.
1139: ROLLBACK TO DO_REJECT_SP;
1137:
1138: -- Rollback as per API standards.
1139: ROLLBACK TO DO_REJECT_SP;
1140:
1141: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1142:
1143: EXCEPTION
1144: WHEN OTHERS THEN
1145: NULL;
1231:
1232: BEGIN
1233:
1234: IF g_debug_stmt THEN
1235: PO_DEBUG.debug_begin(l_log_head);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1232: BEGIN
1233:
1234: IF g_debug_stmt THEN
1235: PO_DEBUG.debug_begin(l_log_head);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1233:
1234: IF g_debug_stmt THEN
1235: PO_DEBUG.debug_begin(l_log_head);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1234: IF g_debug_stmt THEN
1235: PO_DEBUG.debug_begin(l_log_head);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1235: PO_DEBUG.debug_begin(l_log_head);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1243: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1236: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1243: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1244: END IF;
1237: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1243: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1244: END IF;
1245:
1238: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1243: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1244: END IF;
1245:
1246: l_progress := '010';
1239: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1240: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1241: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1242: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1243: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1244: END IF;
1245:
1246: l_progress := '010';
1247:
1283:
1284: l_progress := '900';
1285:
1286: IF g_debug_stmt THEN
1287: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1288: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1289: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1290: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1291: PO_DEBUG.debug_end(l_log_head);
1284: l_progress := '900';
1285:
1286: IF g_debug_stmt THEN
1287: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1288: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1289: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1290: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1291: PO_DEBUG.debug_end(l_log_head);
1292: END IF;
1285:
1286: IF g_debug_stmt THEN
1287: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1288: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1289: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1290: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1291: PO_DEBUG.debug_end(l_log_head);
1292: END IF;
1293:
1286: IF g_debug_stmt THEN
1287: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1288: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1289: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1290: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1291: PO_DEBUG.debug_end(l_log_head);
1292: END IF;
1293:
1294: EXCEPTION
1287: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1288: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1289: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1290: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1291: PO_DEBUG.debug_end(l_log_head);
1292: END IF;
1293:
1294: EXCEPTION
1295: WHEN OTHERS THEN
1294: EXCEPTION
1295: WHEN OTHERS THEN
1296: -- bug 3454804 - robust exception handling
1297: BEGIN
1298: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
1299:
1300: -- Do all of the common exception handling.
1301: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1302:
1299:
1300: -- Do all of the common exception handling.
1301: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1302:
1303: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1304:
1305: IF g_debug_stmt THEN
1306: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1307: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1302:
1303: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1304:
1305: IF g_debug_stmt THEN
1306: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1307: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1308: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1309: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1310: END IF;
1303: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1304:
1305: IF g_debug_stmt THEN
1306: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1307: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1308: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1309: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1310: END IF;
1311:
1304:
1305: IF g_debug_stmt THEN
1306: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1307: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1308: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1309: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1310: END IF;
1311:
1312: -- Rollback as per API standards.
1305: IF g_debug_stmt THEN
1306: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1307: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1308: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1309: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1310: END IF;
1311:
1312: -- Rollback as per API standards.
1313: ROLLBACK TO DO_CANCEL_SP;
1311:
1312: -- Rollback as per API standards.
1313: ROLLBACK TO DO_CANCEL_SP;
1314:
1315: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1316:
1317: EXCEPTION
1318: WHEN OTHERS THEN
1319: NULL;
1400:
1401: BEGIN
1402:
1403: IF g_debug_stmt THEN
1404: PO_DEBUG.debug_begin(l_log_head);
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1401: BEGIN
1402:
1403: IF g_debug_stmt THEN
1404: PO_DEBUG.debug_begin(l_log_head);
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1402:
1403: IF g_debug_stmt THEN
1404: PO_DEBUG.debug_begin(l_log_head);
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1403: IF g_debug_stmt THEN
1404: PO_DEBUG.debug_begin(l_log_head);
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1411: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
1404: PO_DEBUG.debug_begin(l_log_head);
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1411: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
1412: END IF;
1405: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1411: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
1412: END IF;
1413:
1406: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1411: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
1412: END IF;
1413:
1414: l_progress := '010';
1407: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1408: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1409: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',p_validate_document);
1410: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1411: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
1412: END IF;
1413:
1414: l_progress := '010';
1415:
1451:
1452: l_progress := '900';
1453:
1454: IF g_debug_stmt THEN
1455: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1456: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1457: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1458: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1459: PO_DEBUG.debug_end(l_log_head);
1452: l_progress := '900';
1453:
1454: IF g_debug_stmt THEN
1455: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1456: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1457: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1458: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1459: PO_DEBUG.debug_end(l_log_head);
1460: END IF;
1453:
1454: IF g_debug_stmt THEN
1455: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1456: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1457: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1458: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1459: PO_DEBUG.debug_end(l_log_head);
1460: END IF;
1461:
1454: IF g_debug_stmt THEN
1455: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1456: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1457: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1458: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1459: PO_DEBUG.debug_end(l_log_head);
1460: END IF;
1461:
1462: EXCEPTION
1455: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1456: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1457: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1458: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1459: PO_DEBUG.debug_end(l_log_head);
1460: END IF;
1461:
1462: EXCEPTION
1463: WHEN OTHERS THEN
1462: EXCEPTION
1463: WHEN OTHERS THEN
1464: -- bug 3454804 - robust exception handling
1465: BEGIN
1466: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
1467:
1468: -- Do all of the common exception handling.
1469: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1470:
1467:
1468: -- Do all of the common exception handling.
1469: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1470:
1471: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1472:
1473: IF g_debug_stmt THEN
1474: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1470:
1471: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1472:
1473: IF g_debug_stmt THEN
1474: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1478: END IF;
1471: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1472:
1473: IF g_debug_stmt THEN
1474: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1478: END IF;
1479:
1472:
1473: IF g_debug_stmt THEN
1474: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1478: END IF;
1479:
1480: -- Rollback as per API standards.
1473: IF g_debug_stmt THEN
1474: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1475: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1476: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1477: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1478: END IF;
1479:
1480: -- Rollback as per API standards.
1481: ROLLBACK TO DO_ADJUST_SP;
1479:
1480: -- Rollback as per API standards.
1481: ROLLBACK TO DO_ADJUST_SP;
1482:
1483: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1484:
1485: EXCEPTION
1486: WHEN OTHERS THEN
1487: NULL;
1568: l_force_mode VARCHAR2(1);
1569: BEGIN
1570:
1571: IF g_debug_stmt THEN
1572: PO_DEBUG.debug_begin(l_log_head);
1573: PO_DEBUG.debug_var(l_log_head,l_progress,'p_before_dist_ids_tbl', p_before_dist_ids_tbl);
1574: PO_DEBUG.debug_var(l_log_head,l_progress,'p_after_dist_ids_tbl', p_after_dist_ids_tbl);
1575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1569: BEGIN
1570:
1571: IF g_debug_stmt THEN
1572: PO_DEBUG.debug_begin(l_log_head);
1573: PO_DEBUG.debug_var(l_log_head,l_progress,'p_before_dist_ids_tbl', p_before_dist_ids_tbl);
1574: PO_DEBUG.debug_var(l_log_head,l_progress,'p_after_dist_ids_tbl', p_after_dist_ids_tbl);
1575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1577: END IF;
1570:
1571: IF g_debug_stmt THEN
1572: PO_DEBUG.debug_begin(l_log_head);
1573: PO_DEBUG.debug_var(l_log_head,l_progress,'p_before_dist_ids_tbl', p_before_dist_ids_tbl);
1574: PO_DEBUG.debug_var(l_log_head,l_progress,'p_after_dist_ids_tbl', p_after_dist_ids_tbl);
1575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1577: END IF;
1578:
1571: IF g_debug_stmt THEN
1572: PO_DEBUG.debug_begin(l_log_head);
1573: PO_DEBUG.debug_var(l_log_head,l_progress,'p_before_dist_ids_tbl', p_before_dist_ids_tbl);
1574: PO_DEBUG.debug_var(l_log_head,l_progress,'p_after_dist_ids_tbl', p_after_dist_ids_tbl);
1575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1577: END IF;
1578:
1579: l_progress := '010';
1572: PO_DEBUG.debug_begin(l_log_head);
1573: PO_DEBUG.debug_var(l_log_head,l_progress,'p_before_dist_ids_tbl', p_before_dist_ids_tbl);
1574: PO_DEBUG.debug_var(l_log_head,l_progress,'p_after_dist_ids_tbl', p_after_dist_ids_tbl);
1575: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1576: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1577: END IF;
1578:
1579: l_progress := '010';
1580:
1584: x_online_report_id := NULL;
1585:
1586: l_progress := '100';
1587: IF g_debug_stmt THEN
1588: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1589: 'Populate po_encumbrance_gt with before distribution ids');
1590: END IF;
1591:
1592: -- Fill the GTT with the data from the doc tables.
1608: END IF;
1609:
1610: l_progress := '210';
1611: IF g_debug_stmt THEN
1612: PO_DEBUG.debug_stmt(l_log_head,l_progress,
1613: 'Populate po_encumbrance_gt with after distribution ids');
1614: END IF;
1615:
1616: -- Fill the GTT with the data from the doc tables.
1632: END IF;
1633:
1634: l_progress := '310';
1635: IF g_debug_stmt THEN
1636: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Call do_action');
1637: END IF;
1638: --
1639: --We should be calling Req Split with force mode
1640: --for all non-federal cases. This is to ensure that
1680:
1681: l_progress := '900';
1682:
1683: IF g_debug_stmt THEN
1684: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1687: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1688: PO_DEBUG.debug_end(l_log_head);
1681: l_progress := '900';
1682:
1683: IF g_debug_stmt THEN
1684: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1687: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1688: PO_DEBUG.debug_end(l_log_head);
1689: END IF;
1682:
1683: IF g_debug_stmt THEN
1684: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1687: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1688: PO_DEBUG.debug_end(l_log_head);
1689: END IF;
1690:
1683: IF g_debug_stmt THEN
1684: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1687: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1688: PO_DEBUG.debug_end(l_log_head);
1689: END IF;
1690:
1691: EXCEPTION
1684: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1685: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1687: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1688: PO_DEBUG.debug_end(l_log_head);
1689: END IF;
1690:
1691: EXCEPTION
1692: WHEN OTHERS THEN
1691: EXCEPTION
1692: WHEN OTHERS THEN
1693: -- bug 3454804 - robust exception handling
1694: BEGIN
1695: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
1696:
1697: -- Do all of the common exception handling.
1698: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1699:
1696:
1697: -- Do all of the common exception handling.
1698: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1699:
1700: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1701:
1702: IF g_debug_stmt THEN
1703: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1699:
1700: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1701:
1702: IF g_debug_stmt THEN
1703: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1705: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1706: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1707: END IF;
1700: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1701:
1702: IF g_debug_stmt THEN
1703: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1705: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1706: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1707: END IF;
1708:
1701:
1702: IF g_debug_stmt THEN
1703: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1705: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1706: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1707: END IF;
1708:
1709: -- Rollback as per API standards.
1702: IF g_debug_stmt THEN
1703: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1704: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1705: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1706: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1707: END IF;
1708:
1709: -- Rollback as per API standards.
1710: ROLLBACK TO DO_REQ_SPLIT_SP;
1708:
1709: -- Rollback as per API standards.
1710: ROLLBACK TO DO_REQ_SPLIT_SP;
1711:
1712: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1713:
1714: EXCEPTION
1715: WHEN OTHERS THEN
1716: NULL;
1799:
1800: BEGIN
1801:
1802: IF g_debug_stmt THEN
1803: PO_DEBUG.debug_begin(l_log_head);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1800: BEGIN
1801:
1802: IF g_debug_stmt THEN
1803: PO_DEBUG.debug_begin(l_log_head);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1801:
1802: IF g_debug_stmt THEN
1803: PO_DEBUG.debug_begin(l_log_head);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1802: IF g_debug_stmt THEN
1803: PO_DEBUG.debug_begin(l_log_head);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1803: PO_DEBUG.debug_begin(l_log_head);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1804: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1812: END IF;
1805: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1812: END IF;
1813:
1806: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1812: END IF;
1813:
1814: l_progress := '010';
1807: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1808: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1809: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1810: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1811: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1812: END IF;
1813:
1814: l_progress := '010';
1815:
1857:
1858: l_progress := '900';
1859:
1860: IF g_debug_stmt THEN
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1862: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1865: PO_DEBUG.debug_end(l_log_head);
1858: l_progress := '900';
1859:
1860: IF g_debug_stmt THEN
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1862: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1865: PO_DEBUG.debug_end(l_log_head);
1866: END IF;
1859:
1860: IF g_debug_stmt THEN
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1862: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1865: PO_DEBUG.debug_end(l_log_head);
1866: END IF;
1867:
1860: IF g_debug_stmt THEN
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1862: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1865: PO_DEBUG.debug_end(l_log_head);
1866: END IF;
1867:
1868: EXCEPTION
1861: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1862: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1863: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1864: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1865: PO_DEBUG.debug_end(l_log_head);
1866: END IF;
1867:
1868: EXCEPTION
1869: WHEN OTHERS THEN
1868: EXCEPTION
1869: WHEN OTHERS THEN
1870: -- bug 3454804 - robust exception handling
1871: BEGIN
1872: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
1873:
1874: -- Do all of the common exception handling.
1875: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1876:
1873:
1874: -- Do all of the common exception handling.
1875: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
1876:
1877: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1878:
1879: IF g_debug_stmt THEN
1880: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1881: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1876:
1877: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1878:
1879: IF g_debug_stmt THEN
1880: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1881: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1882: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1884: END IF;
1877: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
1878:
1879: IF g_debug_stmt THEN
1880: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1881: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1882: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1884: END IF;
1885:
1878:
1879: IF g_debug_stmt THEN
1880: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1881: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1882: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1884: END IF;
1885:
1886: -- Rollback as per API standards.
1879: IF g_debug_stmt THEN
1880: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
1881: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1882: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
1884: END IF;
1885:
1886: -- Rollback as per API standards.
1887: ROLLBACK TO DO_FINAL_CLOSE_SP;
1885:
1886: -- Rollback as per API standards.
1887: ROLLBACK TO DO_FINAL_CLOSE_SP;
1888:
1889: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1890:
1891: EXCEPTION
1892: WHEN OTHERS THEN
1893: NULL;
1979:
1980: BEGIN
1981:
1982: IF g_debug_stmt THEN
1983: PO_DEBUG.debug_begin(l_log_head);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1980: BEGIN
1981:
1982: IF g_debug_stmt THEN
1983: PO_DEBUG.debug_begin(l_log_head);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1981:
1982: IF g_debug_stmt THEN
1983: PO_DEBUG.debug_begin(l_log_head);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1982: IF g_debug_stmt THEN
1983: PO_DEBUG.debug_begin(l_log_head);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1983: PO_DEBUG.debug_begin(l_log_head);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1984: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1992: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1985: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1992: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1993: END IF;
1986: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1992: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1993: END IF;
1994:
1987: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1992: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1993: END IF;
1994:
1995: l_progress := '010';
1988: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',p_use_enc_gt_flag);
1989: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
1990: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
1991: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
1992: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id',p_invoice_id);
1993: END IF;
1994:
1995: l_progress := '010';
1996:
2039:
2040: l_progress := '900';
2041:
2042: IF g_debug_stmt THEN
2043: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2044: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2045: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2047: PO_DEBUG.debug_end(l_log_head);
2040: l_progress := '900';
2041:
2042: IF g_debug_stmt THEN
2043: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2044: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2045: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2047: PO_DEBUG.debug_end(l_log_head);
2048: END IF;
2041:
2042: IF g_debug_stmt THEN
2043: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2044: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2045: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2047: PO_DEBUG.debug_end(l_log_head);
2048: END IF;
2049:
2042: IF g_debug_stmt THEN
2043: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2044: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2045: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2047: PO_DEBUG.debug_end(l_log_head);
2048: END IF;
2049:
2050: EXCEPTION
2043: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2044: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2045: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2046: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2047: PO_DEBUG.debug_end(l_log_head);
2048: END IF;
2049:
2050: EXCEPTION
2051: WHEN OTHERS THEN
2050: EXCEPTION
2051: WHEN OTHERS THEN
2052: -- bug 3454804 - robust exception handling
2053: BEGIN
2054: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2055:
2056: -- Do all of the common exception handling.
2057: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2058:
2055:
2056: -- Do all of the common exception handling.
2057: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2058:
2059: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2060:
2061: IF g_debug_stmt THEN
2062: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2063: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2058:
2059: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2060:
2061: IF g_debug_stmt THEN
2062: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2063: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2064: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2065: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2066: END IF;
2059: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2060:
2061: IF g_debug_stmt THEN
2062: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2063: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2064: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2065: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2066: END IF;
2067:
2060:
2061: IF g_debug_stmt THEN
2062: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2063: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2064: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2065: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2066: END IF;
2067:
2068: -- Rollback as per API standards.
2061: IF g_debug_stmt THEN
2062: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2063: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2064: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2065: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2066: END IF;
2067:
2068: -- Rollback as per API standards.
2069: ROLLBACK TO UNDO_FINAL_CLOSE_SP;
2067:
2068: -- Rollback as per API standards.
2069: ROLLBACK TO UNDO_FINAL_CLOSE_SP;
2070:
2071: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2072:
2073: EXCEPTION
2074: WHEN OTHERS THEN
2075: NULL;
2150:
2151: BEGIN
2152:
2153: IF g_debug_stmt THEN
2154: PO_DEBUG.debug_begin(l_log_head);
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2151: BEGIN
2152:
2153: IF g_debug_stmt THEN
2154: PO_DEBUG.debug_begin(l_log_head);
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2152:
2153: IF g_debug_stmt THEN
2154: PO_DEBUG.debug_begin(l_log_head);
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2160: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2153: IF g_debug_stmt THEN
2154: PO_DEBUG.debug_begin(l_log_head);
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2160: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2161: END IF;
2154: PO_DEBUG.debug_begin(l_log_head);
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2160: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2161: END IF;
2162:
2155: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2160: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2161: END IF;
2162:
2163: l_progress := '010';
2156: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2157: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2158: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2159: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2160: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2161: END IF;
2162:
2163: l_progress := '010';
2164:
2200:
2201: l_progress := '900';
2202:
2203: IF g_debug_stmt THEN
2204: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2205: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2206: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2207: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2208: PO_DEBUG.debug_end(l_log_head);
2201: l_progress := '900';
2202:
2203: IF g_debug_stmt THEN
2204: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2205: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2206: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2207: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2208: PO_DEBUG.debug_end(l_log_head);
2209: END IF;
2202:
2203: IF g_debug_stmt THEN
2204: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2205: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2206: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2207: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2208: PO_DEBUG.debug_end(l_log_head);
2209: END IF;
2210:
2203: IF g_debug_stmt THEN
2204: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2205: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2206: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2207: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2208: PO_DEBUG.debug_end(l_log_head);
2209: END IF;
2210:
2211: EXCEPTION
2204: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2205: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2206: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2207: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2208: PO_DEBUG.debug_end(l_log_head);
2209: END IF;
2210:
2211: EXCEPTION
2212: WHEN OTHERS THEN
2211: EXCEPTION
2212: WHEN OTHERS THEN
2213: -- bug 3454804 - robust exception handling
2214: BEGIN
2215: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2216:
2217: -- Do all of the common exception handling.
2218: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2219:
2216:
2217: -- Do all of the common exception handling.
2218: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2219:
2220: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2221:
2222: IF g_debug_stmt THEN
2223: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2224: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2219:
2220: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2221:
2222: IF g_debug_stmt THEN
2223: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2224: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2225: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2226: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2227: END IF;
2220: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2221:
2222: IF g_debug_stmt THEN
2223: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2224: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2225: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2226: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2227: END IF;
2228:
2221:
2222: IF g_debug_stmt THEN
2223: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2224: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2225: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2226: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2227: END IF;
2228:
2229: -- Rollback as per API standards.
2222: IF g_debug_stmt THEN
2223: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2224: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2225: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2226: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2227: END IF;
2228:
2229: -- Rollback as per API standards.
2230: ROLLBACK TO DO_CBC_YEAREND_RESERVE_SP;
2228:
2229: -- Rollback as per API standards.
2230: ROLLBACK TO DO_CBC_YEAREND_RESERVE_SP;
2231:
2232: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2233:
2234: EXCEPTION
2235: WHEN OTHERS THEN
2236: NULL;
2318:
2319: BEGIN
2320:
2321: IF g_debug_stmt THEN
2322: PO_DEBUG.debug_begin(l_log_head);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2319: BEGIN
2320:
2321: IF g_debug_stmt THEN
2322: PO_DEBUG.debug_begin(l_log_head);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2320:
2321: IF g_debug_stmt THEN
2322: PO_DEBUG.debug_begin(l_log_head);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2321: IF g_debug_stmt THEN
2322: PO_DEBUG.debug_begin(l_log_head);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2322: PO_DEBUG.debug_begin(l_log_head);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2330: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2323: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2330: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2331: END IF;
2324: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2330: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2331: END IF;
2332:
2325: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2330: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2331: END IF;
2332:
2333: l_progress := '010';
2326: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
2327: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',p_override_funds);
2328: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date',p_use_gl_date);
2329: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',p_override_date);
2330: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
2331: END IF;
2332:
2333: l_progress := '010';
2334:
2370:
2371: l_progress := '900';
2372:
2373: IF g_debug_stmt THEN
2374: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2375: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2377: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2378: PO_DEBUG.debug_end(l_log_head);
2371: l_progress := '900';
2372:
2373: IF g_debug_stmt THEN
2374: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2375: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2377: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2378: PO_DEBUG.debug_end(l_log_head);
2379: END IF;
2372:
2373: IF g_debug_stmt THEN
2374: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2375: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2377: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2378: PO_DEBUG.debug_end(l_log_head);
2379: END IF;
2380:
2373: IF g_debug_stmt THEN
2374: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2375: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2377: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2378: PO_DEBUG.debug_end(l_log_head);
2379: END IF;
2380:
2381: EXCEPTION
2374: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2375: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2376: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2377: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2378: PO_DEBUG.debug_end(l_log_head);
2379: END IF;
2380:
2381: EXCEPTION
2382: WHEN OTHERS THEN
2381: EXCEPTION
2382: WHEN OTHERS THEN
2383: -- bug 3454804 - robust exception handling
2384: BEGIN
2385: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2386:
2387: -- Do all of the common exception handling.
2388: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2389:
2386:
2387: -- Do all of the common exception handling.
2388: handle_exception(l_api_name,l_progress,x_return_status,x_po_return_code);
2389:
2390: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2391:
2392: IF g_debug_stmt THEN
2393: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2389:
2390: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2391:
2392: IF g_debug_stmt THEN
2393: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2397: END IF;
2390: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2391:
2392: IF g_debug_stmt THEN
2393: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2397: END IF;
2398:
2391:
2392: IF g_debug_stmt THEN
2393: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2397: END IF;
2398:
2399: -- Rollback as per API standards.
2392: IF g_debug_stmt THEN
2393: PO_DEBUG.debug_var(l_log_head,l_progress,'l_packet_id',l_packet_id);
2394: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2395: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2396: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',x_online_report_id);
2397: END IF;
2398:
2399: -- Rollback as per API standards.
2400: ROLLBACK TO DO_CBC_YEAREND_UNRESERVE_SP;
2398:
2399: -- Rollback as per API standards.
2400: ROLLBACK TO DO_CBC_YEAREND_UNRESERVE_SP;
2401:
2402: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2403:
2404: EXCEPTION
2405: WHEN OTHERS THEN
2406: NULL;
2508:
2509: BEGIN
2510:
2511: IF g_debug_stmt THEN
2512: PO_DEBUG.debug_begin(l_log_head);
2513: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_id',
2514: p_distribution_id);
2515: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id', p_invoice_id);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2509: BEGIN
2510:
2511: IF g_debug_stmt THEN
2512: PO_DEBUG.debug_begin(l_log_head);
2513: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_id',
2514: p_distribution_id);
2515: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id', p_invoice_id);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2517: p_encumbrance_amt);
2511: IF g_debug_stmt THEN
2512: PO_DEBUG.debug_begin(l_log_head);
2513: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_id',
2514: p_distribution_id);
2515: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id', p_invoice_id);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2517: p_encumbrance_amt);
2518: PO_DEBUG.debug_var(l_log_head,l_progress,'p_qty_cancelled',
2519: p_qty_cancelled);
2512: PO_DEBUG.debug_begin(l_log_head);
2513: PO_DEBUG.debug_var(l_log_head,l_progress,'p_distribution_id',
2514: p_distribution_id);
2515: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id', p_invoice_id);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2517: p_encumbrance_amt);
2518: PO_DEBUG.debug_var(l_log_head,l_progress,'p_qty_cancelled',
2519: p_qty_cancelled);
2520: PO_DEBUG.debug_var(l_log_head,l_progress,'p_budget_account_id',
2514: p_distribution_id);
2515: PO_DEBUG.debug_var(l_log_head,l_progress,'p_invoice_id', p_invoice_id);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2517: p_encumbrance_amt);
2518: PO_DEBUG.debug_var(l_log_head,l_progress,'p_qty_cancelled',
2519: p_qty_cancelled);
2520: PO_DEBUG.debug_var(l_log_head,l_progress,'p_budget_account_id',
2521: p_budget_account_id);
2522: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_date', p_gl_date);
2516: PO_DEBUG.debug_var(l_log_head,l_progress,'p_encumbrance_amt',
2517: p_encumbrance_amt);
2518: PO_DEBUG.debug_var(l_log_head,l_progress,'p_qty_cancelled',
2519: p_qty_cancelled);
2520: PO_DEBUG.debug_var(l_log_head,l_progress,'p_budget_account_id',
2521: p_budget_account_id);
2522: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_date', p_gl_date);
2523: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_name',
2524: p_period_name);
2518: PO_DEBUG.debug_var(l_log_head,l_progress,'p_qty_cancelled',
2519: p_qty_cancelled);
2520: PO_DEBUG.debug_var(l_log_head,l_progress,'p_budget_account_id',
2521: p_budget_account_id);
2522: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_date', p_gl_date);
2523: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_name',
2524: p_period_name);
2525: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_year',
2526: p_period_year);
2519: p_qty_cancelled);
2520: PO_DEBUG.debug_var(l_log_head,l_progress,'p_budget_account_id',
2521: p_budget_account_id);
2522: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_date', p_gl_date);
2523: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_name',
2524: p_period_name);
2525: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_year',
2526: p_period_year);
2527: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_num',
2521: p_budget_account_id);
2522: PO_DEBUG.debug_var(l_log_head,l_progress,'p_gl_date', p_gl_date);
2523: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_name',
2524: p_period_name);
2525: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_year',
2526: p_period_year);
2527: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_num',
2528: p_period_num);
2529: PO_DEBUG.debug_var(l_log_head,l_progress,'p_quarter_num',
2523: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_name',
2524: p_period_name);
2525: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_year',
2526: p_period_year);
2527: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_num',
2528: p_period_num);
2529: PO_DEBUG.debug_var(l_log_head,l_progress,'p_quarter_num',
2530: p_quarter_num);
2531: -- Bug 3480949: log p_tax_line_flag
2525: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_year',
2526: p_period_year);
2527: PO_DEBUG.debug_var(l_log_head,l_progress,'p_period_num',
2528: p_period_num);
2529: PO_DEBUG.debug_var(l_log_head,l_progress,'p_quarter_num',
2530: p_quarter_num);
2531: -- Bug 3480949: log p_tax_line_flag
2532: PO_DEBUG.debug_var(l_log_head,l_progress,'p_tax_line_flag',
2533: p_tax_line_flag);
2528: p_period_num);
2529: PO_DEBUG.debug_var(l_log_head,l_progress,'p_quarter_num',
2530: p_quarter_num);
2531: -- Bug 3480949: log p_tax_line_flag
2532: PO_DEBUG.debug_var(l_log_head,l_progress,'p_tax_line_flag',
2533: p_tax_line_flag);
2534: END IF;
2535:
2536: l_progress := '001';
2621: END IF;
2622:
2623: l_progress := '060';
2624: IF g_debug_stmt THEN
2625: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Action type: ' || l_action);
2626: END IF;
2627:
2628:
2629: -- Get the distribution_type
2642: );
2643:
2644: l_progress := '080';
2645: IF g_debug_stmt THEN
2646: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Document type: ' || l_doc_type ||
2647: ', Document subtype: ' || l_doc_subtype);
2648: END IF;
2649:
2650: do_action(x_return_status => x_return_status,
2682:
2683: l_progress := '100';
2684:
2685: IF g_debug_stmt THEN
2686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',
2687: x_packet_id);
2688: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',
2689: l_online_report_id);
2690: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',
2684:
2685: IF g_debug_stmt THEN
2686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',
2687: x_packet_id);
2688: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',
2689: l_online_report_id);
2690: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',
2691: l_po_return_code);
2692: PO_DEBUG.debug_end(l_log_head);
2686: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',
2687: x_packet_id);
2688: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',
2689: l_online_report_id);
2690: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',
2691: l_po_return_code);
2692: PO_DEBUG.debug_end(l_log_head);
2693: END IF;
2694:
2688: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',
2689: l_online_report_id);
2690: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',
2691: l_po_return_code);
2692: PO_DEBUG.debug_end(l_log_head);
2693: END IF;
2694:
2695:
2696: EXCEPTION
2696: EXCEPTION
2697: WHEN OTHERS THEN
2698: -- bug 3454804 - robust exception handling
2699: BEGIN
2700: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2701:
2702: -- Do all of the common exception handling.
2703: handle_exception(l_api_name,l_progress,x_return_status,l_po_return_code);
2704:
2701:
2702: -- Do all of the common exception handling.
2703: handle_exception(l_api_name,l_progress,x_return_status,l_po_return_code);
2704:
2705: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2706:
2707: IF g_debug_stmt THEN
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2704:
2705: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2706:
2707: IF g_debug_stmt THEN
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',l_po_return_code);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2712: END IF;
2705: PO_DEBUG.debug_unexp(l_log_head,l_progress,'handle_exception done');
2706:
2707: IF g_debug_stmt THEN
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',l_po_return_code);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2712: END IF;
2713:
2706:
2707: IF g_debug_stmt THEN
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',l_po_return_code);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2712: END IF;
2713:
2714: -- Rollback as per API standards.
2707: IF g_debug_stmt THEN
2708: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2709: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2710: PO_DEBUG.debug_var(l_log_head,l_progress,'l_po_return_code',l_po_return_code);
2711: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2712: END IF;
2713:
2714: -- Rollback as per API standards.
2715: ROLLBACK TO REINSTATE_PO_ENCUMBRANCE_SP;
2713:
2714: -- Rollback as per API standards.
2715: ROLLBACK TO REINSTATE_PO_ENCUMBRANCE_SP;
2716:
2717: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2718:
2719: EXCEPTION
2720: WHEN OTHERS THEN
2721: NULL;
2773:
2774: BEGIN
2775:
2776: IF g_debug_stmt THEN
2777: PO_DEBUG.debug_begin(l_log_head);
2778: PO_DEBUG.debug_var(l_log_head,l_progress,'p_agreement_id_tbl',p_agreement_id_tbl);
2779: END IF;
2780:
2781: l_progress := '001';
2774: BEGIN
2775:
2776: IF g_debug_stmt THEN
2777: PO_DEBUG.debug_begin(l_log_head);
2778: PO_DEBUG.debug_var(l_log_head,l_progress,'p_agreement_id_tbl',p_agreement_id_tbl);
2779: END IF;
2780:
2781: l_progress := '001';
2782:
2789:
2790: l_progress := '010';
2791:
2792: IF g_debug_stmt THEN
2793: PO_DEBUG.debug_var(l_log_head,l_progress,'l_procedure_id',l_procedure_id);
2794: END IF;
2795:
2796: --SQL What: Populate the global temp table with the po_header_ids from the
2797: -- input table (and note the ordering)
2819:
2820: l_progress := '020';
2821:
2822: IF g_debug_stmt THEN
2823: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2824: 'Bulk Insertion into Session Table success');
2825: END IF;
2826:
2827: --SQL What: Check whether the input PAs are/can be encumbered in the current OU.
2841:
2842: l_progress := '030';
2843:
2844: IF g_debug_stmt THEN
2845: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2846: 'Encumbrance information updated successfully');
2847:
2848: SELECT rowid BULK COLLECT INTO PO_DEBUG.g_rowid_tbl
2849: FROM PO_SESSION_GT WHERE key = l_procedure_id
2844: IF g_debug_stmt THEN
2845: PO_DEBUG.debug_stmt(l_log_head,l_progress,
2846: 'Encumbrance information updated successfully');
2847:
2848: SELECT rowid BULK COLLECT INTO PO_DEBUG.g_rowid_tbl
2849: FROM PO_SESSION_GT WHERE key = l_procedure_id
2850: ;
2851:
2852: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_SESSION_GT'
2848: SELECT rowid BULK COLLECT INTO PO_DEBUG.g_rowid_tbl
2849: FROM PO_SESSION_GT WHERE key = l_procedure_id
2850: ;
2851:
2852: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_SESSION_GT'
2853: , PO_DEBUG.g_rowid_tbl
2854: , po_tbl_varchar30('key','num1','char1','num2')
2855: );
2856:
2849: FROM PO_SESSION_GT WHERE key = l_procedure_id
2850: ;
2851:
2852: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_SESSION_GT'
2853: , PO_DEBUG.g_rowid_tbl
2854: , po_tbl_varchar30('key','num1','char1','num2')
2855: );
2856:
2857: END IF;
2879:
2880: l_progress := '900';
2881:
2882: IF g_debug_stmt THEN
2883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2884: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2885: PO_DEBUG.debug_end(l_log_head);
2886: END IF;
2887:
2880: l_progress := '900';
2881:
2882: IF g_debug_stmt THEN
2883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2884: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2885: PO_DEBUG.debug_end(l_log_head);
2886: END IF;
2887:
2888: EXCEPTION
2881:
2882: IF g_debug_stmt THEN
2883: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2884: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2885: PO_DEBUG.debug_end(l_log_head);
2886: END IF;
2887:
2888: EXCEPTION
2889: WHEN OTHERS THEN
2887:
2888: EXCEPTION
2889: WHEN OTHERS THEN
2890: BEGIN
2891: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: IF g_debug_stmt THEN
2894: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2895: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2890: BEGIN
2891: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: IF g_debug_stmt THEN
2894: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2895: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2896: END IF;
2897: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
2898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2891: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
2892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2893: IF g_debug_stmt THEN
2894: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2895: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2896: END IF;
2897: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
2898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2899: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
2897: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
2898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2899: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
2900: END IF;
2901: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2902: EXCEPTION
2903: WHEN OTHERS THEN
2904: NULL;
2905: END;
2998:
2999: EXCEPTION
3000: WHEN OTHERS THEN
3001: BEGIN
3002: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
3003: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3004: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
3005: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3006: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3004: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
3005: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3006: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
3007: END IF;
3008: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3009: EXCEPTION
3010: WHEN OTHERS THEN
3011: NULL;
3012: END;
3193: --PAR Project Changes End.
3194: BEGIN
3195:
3196: IF g_debug_stmt THEN
3197: PO_DEBUG.debug_begin(l_log_head);
3198: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action', p_action);
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3194: BEGIN
3195:
3196: IF g_debug_stmt THEN
3197: PO_DEBUG.debug_begin(l_log_head);
3198: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action', p_action);
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3195:
3196: IF g_debug_stmt THEN
3197: PO_DEBUG.debug_begin(l_log_head);
3198: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action', p_action);
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3197: PO_DEBUG.debug_begin(l_log_head);
3198: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action', p_action);
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3198: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action', p_action);
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3199: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag',
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3200: p_check_only_flag);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3201: PO_DEBUG.debug_var(l_log_head,l_progress,'p_cbc_flag', p_cbc_flag);
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3202: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
3203: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3210: p_override_funds);
3204: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3210: p_override_funds);
3211: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',
3212: p_prevent_partial_flag);
3205: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id', p_doc_level_id);
3206: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_enc_gt_flag',
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3210: p_override_funds);
3211: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',
3212: p_prevent_partial_flag);
3213: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date', p_use_gl_date);
3207: p_use_enc_gt_flag);
3208: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id', p_employee_id);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3210: p_override_funds);
3211: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',
3212: p_prevent_partial_flag);
3213: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date', p_use_gl_date);
3214: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',
3215: p_override_date);
3209: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_funds',
3210: p_override_funds);
3211: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',
3212: p_prevent_partial_flag);
3213: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date', p_use_gl_date);
3214: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',
3215: p_override_date);
3216: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',
3217: p_validate_document);
3210: p_override_funds);
3211: PO_DEBUG.debug_var(l_log_head,l_progress,'p_prevent_partial_flag',
3212: p_prevent_partial_flag);
3213: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date', p_use_gl_date);
3214: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',
3215: p_override_date);
3216: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',
3217: p_validate_document);
3218: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_force_mode',
3212: p_prevent_partial_flag);
3213: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_gl_date', p_use_gl_date);
3214: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',
3215: p_override_date);
3216: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',
3217: p_validate_document);
3218: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_force_mode',
3219: p_use_force_mode);
3220: END IF;
3214: PO_DEBUG.debug_var(l_log_head,l_progress,'p_override_date',
3215: p_override_date);
3216: PO_DEBUG.debug_var(l_log_head,l_progress,'p_validate_document',
3217: p_validate_document);
3218: PO_DEBUG.debug_var(l_log_head,l_progress,'p_use_force_mode',
3219: p_use_force_mode);
3220: END IF;
3221:
3222: x_po_return_code := NULL;
3246: ;
3247:
3248: l_progress := '020';
3249: IF g_debug_stmt THEN
3250: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Retrieved financial set-up');
3251: END IF;
3252:
3253: --
3254: --Determine other Encumbrance-related settings
3464: END IF;
3465:
3466: l_progress := '030';
3467: IF g_debug_stmt THEN
3468: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Finished variable set-up');
3469: END IF;
3470:
3471:
3472: --
3539: END IF;
3540:
3541: l_progress := '046';
3542: IF g_debug_stmt THEN
3543: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3544: END IF;
3545:
3546: -- Bug 5035240 Begin : Moved this code to check after PO_ENCUMBRANCE_GT is populated
3547: IF p_action = g_action_RESERVE THEN
3582: p_Event_Name => 'JAI_EXISTENCE_OF_TABLES' ) = TRUE )
3583: AND l_currency_code_func = 'INR' THEN /*l_currency_code_func has the functional currency code.*/
3584:
3585: IF g_debug_stmt THEN
3586: PO_DEBUG.debug_stmt(l_log_head,l_progress,'JAI is used');
3587: END IF;
3588:
3589: --initialize the counter to zero. This counter would be used as index for the distribution PL/SQL table.
3590:
3602: IF l_Distribution_Id_Tbl.COUNT > 0 and l_distribution_type_tbl.count > 0 THEN
3603:
3604: l_progress := '052';
3605: IF g_debug_stmt THEN
3606: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Execute the JAI API to fetch the non-recoverable taxes');
3607: END IF;
3608:
3609: jai_encum_prc.fetch_nr_tax(l_Distribution_Type_Tbl,l_Distribution_Id_Tbl,p_action,p_doc_type,l_NonRecoverable_Tax_Tbl,l_Return_Status);
3610:
3612:
3613: IF l_Return_Status = 'S' THEN
3614:
3615: IF g_debug_stmt THEN
3616: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Update po_encumbrance_gt with the JAI non-recoverable tax');
3617: END IF;
3618:
3619: --Use forall to bulk update the nonrecoverable tax in the encumbrance table
3620: FORALL indx IN 1..l_nonrecoverable_tax_tbl.COUNT
3649: END IF;
3650:
3651: l_progress := '054';
3652: IF g_debug_stmt THEN
3653: PO_DEBUG.debug_stmt(l_log_head,l_progress,'JAI Processing - Finished');
3654: END IF;
3655:
3656: END IF;
3657:
3659:
3660: l_progress := '055';
3661:
3662: IF g_debug_stmt THEN
3663: PO_DEBUG.debug_var(l_log_head,l_progress,'l_partial_flag ',l_partial_flag);
3664: END IF;
3665:
3666: BEGIN
3667: PO_ENCUMBRANCE_PREPROCESSING.derive_packet_values(
3689:
3690: l_progress := '060';
3691:
3692: IF g_debug_stmt THEN
3693: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3694: END IF;
3695:
3696: IF (l_period_exception_flag = 'Y') OR
3697: (l_uom_conversion_exc_flag = 'Y') --
3779: , p_gl_return_code => l_gl_return_code
3780: );
3781:
3782: IF g_debug_stmt THEN
3783: PO_DEBUG.debug_table(l_log_head,l_progress,'PO_ENCUMBRANCE_GT',PO_DEBUG.g_all_rows,NULL,'PO');
3784: END IF;
3785:
3786:
3787: -- Bug 11665915 Custom hook to validate funds in an external financial system
3786:
3787: -- Bug 11665915 Custom hook to validate funds in an external financial system
3788: BEGIN
3789: IF g_debug_stmt THEN
3790: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL Return Code before Custom Funds API is : '||l_gl_return_code);
3791: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Packet ID : '||l_packet_id);
3792: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Check Only Flag as : '||p_check_only_flag);
3793: END IF;
3794:
3787: -- Bug 11665915 Custom hook to validate funds in an external financial system
3788: BEGIN
3789: IF g_debug_stmt THEN
3790: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL Return Code before Custom Funds API is : '||l_gl_return_code);
3791: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Packet ID : '||l_packet_id);
3792: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Check Only Flag as : '||p_check_only_flag);
3793: END IF;
3794:
3795: PO_CUSTOM_FUNDS_PKG.do_action(
3788: BEGIN
3789: IF g_debug_stmt THEN
3790: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL Return Code before Custom Funds API is : '||l_gl_return_code);
3791: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Packet ID : '||l_packet_id);
3792: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Calling Custom Funds API with Check Only Flag as : '||p_check_only_flag);
3793: END IF;
3794:
3795: PO_CUSTOM_FUNDS_PKG.do_action(
3796: p_packet_id => l_packet_id,
3797: p_check_only_flag => p_check_only_flag,
3798: x_gl_return_code => l_ext_gl_return_code);
3799:
3800: IF g_debug_stmt THEN
3801: PO_DEBUG.debug_stmt(l_log_head,l_progress,'External GL Return Code After Custom Funds API is : '||l_ext_gl_return_code);
3802: END IF;
3803:
3804: l_gl_return_code := nvl(l_ext_gl_return_code, l_gl_return_code);
3805: IF g_debug_stmt THEN
3802: END IF;
3803:
3804: l_gl_return_code := nvl(l_ext_gl_return_code, l_gl_return_code);
3805: IF g_debug_stmt THEN
3806: PO_DEBUG.debug_stmt(l_log_head,l_progress,'GL Return Code After Custom Funds API is : '||l_gl_return_code);
3807: END IF;
3808: Exception
3809: When Others Then
3810: l_progress := '078';
3957: FND_MSG_PUB.add;
3958:
3959:
3960: IF g_debug_stmt THEN
3961: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3962: x_online_report_id);
3963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3964: x_po_return_code);
3965: PO_DEBUG.debug_end(l_log_head);
3959:
3960: IF g_debug_stmt THEN
3961: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3962: x_online_report_id);
3963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3964: x_po_return_code);
3965: PO_DEBUG.debug_end(l_log_head);
3966: END IF;
3967:
3961: PO_DEBUG.debug_var(l_log_head,l_progress,'x_online_report_id',
3962: x_online_report_id);
3963: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',
3964: x_po_return_code);
3965: PO_DEBUG.debug_end(l_log_head);
3966: END IF;
3967:
3968: /*BEGIN : Bug 13077585 :Reverting the fix of delete unprocessesed events
3969: to fix the issue of view results screen. The earlier fix has an impact on
3978: OR
3979: (l_gl_return_code = 'F')
3980: ) THEN
3981: IF g_debug_stmt THEN
3982: PO_DEBUG.debug_var(l_log_head,l_progress,'Call made to', 'delete_unnecessary_events');
3983: END IF;
3984: PO_ENCUMBRANCE_POSTPROCESSING.delete_unnecessary_events(l_old_pkt_id, l_action);
3985: END IF;
3986: /*12405805
3993: -- Highest level of exception handling happens here.
3994: -- do_action never intentionally raises exceptions.
3995:
3996: IF g_debug_unexp THEN
3997: PO_DEBUG.debug_exc(l_log_head,l_progress);
3998: END IF;
3999:
4000: --
4001: -- Set the return statuses.
4175:
4176: l_report_successes := nvl(p_report_successes, g_parameter_YES);
4177:
4178: IF g_debug_stmt THEN
4179: PO_DEBUG.debug_begin(l_log_head);
4180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',
4181: p_online_report_id);
4182: PO_DEBUG.debug_var(l_log_head,l_progress,'l_report_successes',
4183: l_report_successes);
4176: l_report_successes := nvl(p_report_successes, g_parameter_YES);
4177:
4178: IF g_debug_stmt THEN
4179: PO_DEBUG.debug_begin(l_log_head);
4180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',
4181: p_online_report_id);
4182: PO_DEBUG.debug_var(l_log_head,l_progress,'l_report_successes',
4183: l_report_successes);
4184: END IF;
4178: IF g_debug_stmt THEN
4179: PO_DEBUG.debug_begin(l_log_head);
4180: PO_DEBUG.debug_var(l_log_head,l_progress,'p_online_report_id',
4181: p_online_report_id);
4182: PO_DEBUG.debug_var(l_log_head,l_progress,'l_report_successes',
4183: l_report_successes);
4184: END IF;
4185:
4186: l_progress := '010';
4224: l_progress := '020';
4225: x_return_status := FND_API.g_ret_sts_success;
4226:
4227: IF g_debug_stmt THEN
4228: PO_DEBUG.debug_end(l_log_head);
4229: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',
4230: x_return_status);
4231: END IF;
4232:
4225: x_return_status := FND_API.g_ret_sts_success;
4226:
4227: IF g_debug_stmt THEN
4228: PO_DEBUG.debug_end(l_log_head);
4229: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',
4230: x_return_status);
4231: END IF;
4232:
4233: EXCEPTION
4232:
4233: EXCEPTION
4234: WHEN OTHERS THEN
4235: BEGIN
4236: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4237: --unexpected error from this procedure
4238: x_return_status := FND_API.g_ret_sts_unexp_error;
4239: --add message to the stack and log a debug msg if necessary
4240: po_message_s.sql_error(g_pkg_name, l_api_name, l_progress, SQLCODE, SQLERRM);
4238: x_return_status := FND_API.g_ret_sts_unexp_error;
4239: --add message to the stack and log a debug msg if necessary
4240: po_message_s.sql_error(g_pkg_name, l_api_name, l_progress, SQLCODE, SQLERRM);
4241: fnd_msg_pub.add;
4242: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4243: EXCEPTION
4244: WHEN OTHERS THEN
4245: NULL;
4246: END;
4306:
4307: BEGIN
4308:
4309: IF g_debug_stmt THEN
4310: PO_DEBUG.debug_begin(l_log_head);
4311: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4312: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4313: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4314: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4307: BEGIN
4308:
4309: IF g_debug_stmt THEN
4310: PO_DEBUG.debug_begin(l_log_head);
4311: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4312: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4313: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4314: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4315: END IF;
4308:
4309: IF g_debug_stmt THEN
4310: PO_DEBUG.debug_begin(l_log_head);
4311: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4312: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4313: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4314: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4315: END IF;
4316:
4309: IF g_debug_stmt THEN
4310: PO_DEBUG.debug_begin(l_log_head);
4311: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4312: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4313: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4314: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4315: END IF;
4316:
4317: l_progress := '010';
4310: PO_DEBUG.debug_begin(l_log_head);
4311: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4312: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4313: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4314: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4315: END IF;
4316:
4317: l_progress := '010';
4318:
4335:
4336: l_progress := '900';
4337:
4338: IF g_debug_stmt THEN
4339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_reservable_flag',x_reservable_flag);
4341: PO_DEBUG.debug_end(l_log_head);
4342: END IF;
4343:
4336: l_progress := '900';
4337:
4338: IF g_debug_stmt THEN
4339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_reservable_flag',x_reservable_flag);
4341: PO_DEBUG.debug_end(l_log_head);
4342: END IF;
4343:
4344: EXCEPTION
4337:
4338: IF g_debug_stmt THEN
4339: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4340: PO_DEBUG.debug_var(l_log_head,l_progress,'x_reservable_flag',x_reservable_flag);
4341: PO_DEBUG.debug_end(l_log_head);
4342: END IF;
4343:
4344: EXCEPTION
4345: WHEN OTHERS THEN
4343:
4344: EXCEPTION
4345: WHEN OTHERS THEN
4346: BEGIN
4347: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4349: ROLLBACK TO IS_RESERVABLE_SP;
4350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4351: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4349: ROLLBACK TO IS_RESERVABLE_SP;
4350: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4351: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4352: END IF;
4353: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4354: EXCEPTION
4355: WHEN OTHERS THEN
4356: NULL;
4357: END;
4417:
4418: BEGIN
4419:
4420: IF g_debug_stmt THEN
4421: PO_DEBUG.debug_begin(l_log_head);
4422: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4423: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4424: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4425: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4418: BEGIN
4419:
4420: IF g_debug_stmt THEN
4421: PO_DEBUG.debug_begin(l_log_head);
4422: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4423: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4424: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4425: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4426: END IF;
4419:
4420: IF g_debug_stmt THEN
4421: PO_DEBUG.debug_begin(l_log_head);
4422: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4423: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4424: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4425: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4426: END IF;
4427:
4420: IF g_debug_stmt THEN
4421: PO_DEBUG.debug_begin(l_log_head);
4422: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4423: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4424: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4425: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4426: END IF;
4427:
4428: l_progress := '010';
4421: PO_DEBUG.debug_begin(l_log_head);
4422: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type',p_doc_type);
4423: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype',p_doc_subtype);
4424: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level',p_doc_level);
4425: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id',p_doc_level_id);
4426: END IF;
4427:
4428: l_progress := '010';
4429:
4446:
4447: l_progress := '900';
4448:
4449: IF g_debug_stmt THEN
4450: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4451: PO_DEBUG.debug_var(l_log_head,l_progress,'x_unreservable_flag',x_unreservable_flag);
4452: PO_DEBUG.debug_end(l_log_head);
4453: END IF;
4454:
4447: l_progress := '900';
4448:
4449: IF g_debug_stmt THEN
4450: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4451: PO_DEBUG.debug_var(l_log_head,l_progress,'x_unreservable_flag',x_unreservable_flag);
4452: PO_DEBUG.debug_end(l_log_head);
4453: END IF;
4454:
4455: EXCEPTION
4448:
4449: IF g_debug_stmt THEN
4450: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4451: PO_DEBUG.debug_var(l_log_head,l_progress,'x_unreservable_flag',x_unreservable_flag);
4452: PO_DEBUG.debug_end(l_log_head);
4453: END IF;
4454:
4455: EXCEPTION
4456: WHEN OTHERS THEN
4454:
4455: EXCEPTION
4456: WHEN OTHERS THEN
4457: BEGIN
4458: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4460: ROLLBACK TO IS_UNRESERVABLE_SP;
4461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4462: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4460: ROLLBACK TO IS_UNRESERVABLE_SP;
4461: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4462: FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name);
4463: END IF;
4464: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4465: EXCEPTION
4466: WHEN OTHERS THEN
4467: NULL;
4468: END;
4557: SAVEPOINT populate_encumbrance_gt_PVT;
4558: x_return_status := FND_API.G_RET_STS_SUCCESS;
4559:
4560: IF g_debug_stmt THEN
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4558: x_return_status := FND_API.G_RET_STS_SUCCESS;
4559:
4560: IF g_debug_stmt THEN
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4566: ,p_adjustment_status_tbl);
4559:
4560: IF g_debug_stmt THEN
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4566: ,p_adjustment_status_tbl);
4567: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag', p_check_only_flag);
4560: IF g_debug_stmt THEN
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4566: ,p_adjustment_status_tbl);
4567: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag', p_check_only_flag);
4568: END IF;
4561: PO_DEBUG.debug_begin(l_log_head);
4562: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4566: ,p_adjustment_status_tbl);
4567: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag', p_check_only_flag);
4568: END IF;
4569:
4563: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
4564: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
4565: PO_DEBUG.debug_var(l_log_head,l_progress,'p_adjustment_status_tbl'
4566: ,p_adjustment_status_tbl);
4567: PO_DEBUG.debug_var(l_log_head,l_progress,'p_check_only_flag', p_check_only_flag);
4568: END IF;
4569:
4570: l_progress := '010';
4571:
4606:
4607: ELSE
4608: l_progress := '060';
4609: IF g_debug_stmt THEN
4610: PO_DEBUG.debug_stmt(l_log_head,l_progress,'check only');
4611: END IF;
4612: END IF;
4613:
4614: l_progress := '070';
4639: IF (p_doc_type = g_doc_type_REQUISITION) THEN
4640:
4641: l_progress := '200';
4642: IF g_debug_stmt THEN
4643: PO_DEBUG.debug_stmt(l_log_head,l_progress,'requisition');
4644: END IF;
4645:
4646: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4647: INSERT INTO PO_ENCUMBRANCE_GT
4753: ELSE -- doc is not a req, so it lives in the PO (and Release) tables.
4754:
4755: l_progress := '250';
4756: IF g_debug_stmt THEN
4757: PO_DEBUG.debug_stmt(l_log_head,l_progress,'not requisition');
4758: END IF;
4759:
4760: FORALL i IN 1 .. p_adjustment_status_tbl.COUNT
4761: INSERT INTO PO_ENCUMBRANCE_GT
4908:
4909: /* <
4910: IF p_doc_type = g_doc_type_PO THEN
4911: IF g_debug_stmt THEN
4912: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updating the CLM Doc Flag for Standard PO Distributions.');
4913: END IF;
4914: UPDATE po_encumbrance_gt DISTS
4915: SET DISTS.CLM_DOC_FLAG = PO_PARTIAL_FUNDING_PKG.is_clm_document(g_doc_type_PO, DISTS.HEADER_ID)
4916: WHERE DISTS.distribution_type = 'STANDARD';
4916: WHERE DISTS.distribution_type = 'STANDARD';
4917:
4918: l_progress := '270';
4919: IF g_debug_stmt THEN
4920: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Updated the CLM Doc Flag for Standard PO Distributions.');
4921: END IF;
4922: END IF;
4923: /* <
4924: END IF; -- p_doc_type
4925:
4926: l_progress := '900';
4927:
4928: IF g_debug_stmt THEN
4929: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4930: PO_DEBUG.debug_end(l_log_head);
4931: END IF;
4932:
4933: EXCEPTION
4926: l_progress := '900';
4927:
4928: IF g_debug_stmt THEN
4929: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
4930: PO_DEBUG.debug_end(l_log_head);
4931: END IF;
4932:
4933: EXCEPTION
4934: WHEN OTHERS THEN
4932:
4933: EXCEPTION
4934: WHEN OTHERS THEN
4935: BEGIN
4936: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4938: ROLLBACK TO populate_encumbrance_gt_PVT;
4939: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4940: EXCEPTION
4935: BEGIN
4936: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
4937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4938: ROLLBACK TO populate_encumbrance_gt_PVT;
4939: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
4940: EXCEPTION
4941: WHEN OTHERS THEN
4942: NULL;
4943: END;
5018:
5019: l_progress := '010';
5020:
5021: IF g_debug_stmt THEN
5022: PO_DEBUG.debug_begin(l_log_head);
5023: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
5024: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
5025: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
5026: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
5019: l_progress := '010';
5020:
5021: IF g_debug_stmt THEN
5022: PO_DEBUG.debug_begin(l_log_head);
5023: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
5024: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
5025: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
5026: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
5027: END IF;
5020:
5021: IF g_debug_stmt THEN
5022: PO_DEBUG.debug_begin(l_log_head);
5023: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
5024: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
5025: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
5026: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
5027: END IF;
5028:
5021: IF g_debug_stmt THEN
5022: PO_DEBUG.debug_begin(l_log_head);
5023: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
5024: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
5025: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
5026: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
5027: END IF;
5028:
5029: l_progress := '020';
5022: PO_DEBUG.debug_begin(l_log_head);
5023: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type', p_doc_type);
5024: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype', p_doc_subtype);
5025: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level', p_doc_level);
5026: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_level_id_tbl', p_doc_level_id_tbl);
5027: END IF;
5028:
5029: l_progress := '020';
5030:
5072:
5073: l_progress := '900';
5074:
5075: IF g_debug_stmt THEN
5076: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5077: PO_DEBUG.debug_end(l_log_head);
5078: END IF;
5079:
5080: EXCEPTION
5073: l_progress := '900';
5074:
5075: IF g_debug_stmt THEN
5076: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5077: PO_DEBUG.debug_end(l_log_head);
5078: END IF;
5079:
5080: EXCEPTION
5081: WHEN OTHERS THEN
5079:
5080: EXCEPTION
5081: WHEN OTHERS THEN
5082: BEGIN
5083: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS Start');
5084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5085: ROLLBACK TO POPULATE_ENC_GT_ACTION_IDS_PVT;
5086: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5087: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
5085: ROLLBACK TO POPULATE_ENC_GT_ACTION_IDS_PVT;
5086: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
5087: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
5088: END IF;
5089: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
5090: EXCEPTION
5091: WHEN OTHERS THEN
5092: NULL;
5093: END;
5145:
5146: l_progress := '010';
5147:
5148: IF g_debug_stmt THEN
5149: PO_DEBUG.debug_begin(l_log_head);
5150: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_name',p_api_name);
5151: PO_DEBUG.debug_var(l_log_head,l_progress,'p_progress',p_progress);
5152: END IF;
5153:
5146: l_progress := '010';
5147:
5148: IF g_debug_stmt THEN
5149: PO_DEBUG.debug_begin(l_log_head);
5150: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_name',p_api_name);
5151: PO_DEBUG.debug_var(l_log_head,l_progress,'p_progress',p_progress);
5152: END IF;
5153:
5154:
5147:
5148: IF g_debug_stmt THEN
5149: PO_DEBUG.debug_begin(l_log_head);
5150: PO_DEBUG.debug_var(l_log_head,l_progress,'p_api_name',p_api_name);
5151: PO_DEBUG.debug_var(l_log_head,l_progress,'p_progress',p_progress);
5152: END IF;
5153:
5154:
5155: -- 1. Set the API return statuses to indicate a failure.
5159:
5160: l_progress := '100';
5161:
5162: IF g_debug_stmt THEN
5163: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5164: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5165: END IF;
5166:
5167:
5160: l_progress := '100';
5161:
5162: IF g_debug_stmt THEN
5163: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5164: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5165: END IF;
5166:
5167:
5168: -- 2. Log the SQL error and add it to the API msg list.
5206:
5207: l_progress := '900';
5208:
5209: IF g_debug_stmt THEN
5210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5211: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5212: PO_DEBUG.debug_end(l_log_head);
5213: END IF;
5214:
5207: l_progress := '900';
5208:
5209: IF g_debug_stmt THEN
5210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5211: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5212: PO_DEBUG.debug_end(l_log_head);
5213: END IF;
5214:
5215: EXCEPTION
5208:
5209: IF g_debug_stmt THEN
5210: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5211: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5212: PO_DEBUG.debug_end(l_log_head);
5213: END IF;
5214:
5215: EXCEPTION
5216: WHEN OTHERS THEN
5214:
5215: EXCEPTION
5216: WHEN OTHERS THEN
5217: IF g_debug_unexp THEN
5218: PO_DEBUG.debug_exc(l_log_head,l_progress);
5219: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5220: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5221: END IF;
5222:
5215: EXCEPTION
5216: WHEN OTHERS THEN
5217: IF g_debug_unexp THEN
5218: PO_DEBUG.debug_exc(l_log_head,l_progress);
5219: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5220: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5221: END IF;
5222:
5223: END handle_exception;
5216: WHEN OTHERS THEN
5217: IF g_debug_unexp THEN
5218: PO_DEBUG.debug_exc(l_log_head,l_progress);
5219: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5220: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
5221: END IF;
5222:
5223: END handle_exception;
5224:
5284: END IF;
5285:
5286: EXCEPTION
5287: WHEN OTHERS THEN
5288: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
5289: p_proc_name => l_api_name);
5290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5291: END POPULATE_BC_REPORT_EVENTS;
5292:
5411: --
5412:
5413: EXCEPTION
5414: WHEN OTHERS THEN
5415: PO_DEBUG.handle_unexp_error ( p_pkg_name => g_pkg_name,
5416: p_proc_name => l_api_name,
5417: p_progress => l_progress );
5418: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5419: END POPULATE_AND_CREATE_BC_REPORT;
5538: SAVEPOINT Populate_Enc_Gt_Draft;
5539: x_return_status := FND_API.G_RET_STS_SUCCESS;
5540:
5541: IF g_debug_stmt THEN
5542: po_debug.Debug_begin(l_log_head);
5543: po_debug.Debug_var(l_log_head,l_progress,'p_Draft_Id',p_draft_id);
5544: END IF;
5545:
5546: l_progress := '010';
5539: x_return_status := FND_API.G_RET_STS_SUCCESS;
5540:
5541: IF g_debug_stmt THEN
5542: po_debug.Debug_begin(l_log_head);
5543: po_debug.Debug_var(l_log_head,l_progress,'p_Draft_Id',p_draft_id);
5544: END IF;
5545:
5546: l_progress := '010';
5547: -- Get the distribution ids, based on the Draft iD
5563: L_dist_id_tbl(i));
5564:
5565: l_progress := '040';
5566: IF g_debug_stmt THEN
5567: PO_DEBUG.debug_stmt(l_log_head,l_progress,'Inserting Data into PO Encumbrance Gt for Draft');
5568: END IF;
5569:
5570: INSERT INTO po_encumbrance_gt
5571: (adjustment_status,
5704: AND poll.draft_id = p_draft_id;
5705:
5706: l_progress := '900';
5707: IF g_debug_stmt THEN
5708: po_debug.Debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5709: po_debug.Debug_end(l_log_head);
5710: END IF;
5711:
5712: EXCEPTION
5705:
5706: l_progress := '900';
5707: IF g_debug_stmt THEN
5708: po_debug.Debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
5709: po_debug.Debug_end(l_log_head);
5710: END IF;
5711:
5712: EXCEPTION
5713: WHEN OTHERS THEN
5711:
5712: EXCEPTION
5713: WHEN OTHERS THEN
5714: BEGIN
5715: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS Start');
5716: x_return_status := fnd_api.g_ret_sts_unexp_error;
5717: ROLLBACK TO Populate_Enc_Gt_Draft;
5718:
5719: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS End');
5715: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS Start');
5716: x_return_status := fnd_api.g_ret_sts_unexp_error;
5717: ROLLBACK TO Populate_Enc_Gt_Draft;
5718:
5719: po_debug.Debug_unexp(l_log_head,l_progress,'OTHERS End');
5720: EXCEPTION
5721: WHEN OTHERS THEN
5722: NULL;
5723: END;