68:
69: BEGIN
70:
71: d_progress := 0;
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
69: BEGIN
70:
71: d_progress := 0;
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
70:
71: d_progress := 0;
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
71: d_progress := 0;
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
79: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.employee_id', p_action_ctl_rec.employee_id);
72: IF (PO_LOG.d_proc) THEN
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
79: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.employee_id', p_action_ctl_rec.employee_id);
80: END IF;
73: PO_LOG.proc_begin(d_module);
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
79: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.employee_id', p_action_ctl_rec.employee_id);
80: END IF;
81:
74: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
79: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.employee_id', p_action_ctl_rec.employee_id);
80: END IF;
81:
82: d_progress := 10;
75: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
76: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
77: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
78: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.new_document_status', p_action_ctl_rec.new_document_status);
79: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.employee_id', p_action_ctl_rec.employee_id);
80: END IF;
81:
82: d_progress := 10;
83:
82: d_progress := 10;
83:
84: BEGIN
85:
86: IF (PO_LOG.d_stmt) THEN
87: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
88: END IF;
89:
90: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
83:
84: BEGIN
85:
86: IF (PO_LOG.d_stmt) THEN
87: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
88: END IF;
89:
90: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
91: p_document_id => p_action_ctl_rec.document_id
133: RAISE PO_CORE_S.g_early_return_exc;
134: END IF;
135:
136: d_progress := 50;
137: IF (PO_LOG.d_stmt) THEN
138: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
139: END IF;
140:
141: l_bool_ret_sts :=
134: END IF;
135:
136: d_progress := 50;
137: IF (PO_LOG.d_stmt) THEN
138: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
139: END IF;
140:
141: l_bool_ret_sts :=
142: PO_SUPPLY.po_req_supply(
205:
206: EXCEPTION
207: WHEN PO_CORE_S.g_early_return_exc THEN
208: p_action_ctl_rec.return_status := 'U';
209: IF (PO_LOG.d_exc) THEN
210: PO_LOG.exc(d_module, d_progress, l_err_msg);
211: END IF;
212: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
213:
206: EXCEPTION
207: WHEN PO_CORE_S.g_early_return_exc THEN
208: p_action_ctl_rec.return_status := 'U';
209: IF (PO_LOG.d_exc) THEN
210: PO_LOG.exc(d_module, d_progress, l_err_msg);
211: END IF;
212: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
213:
214: END;
212: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
213:
214: END;
215:
216: IF (PO_LOG.d_proc) THEN
217: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
218: PO_LOG.proc_end(d_module);
219: END IF;
220:
213:
214: END;
215:
216: IF (PO_LOG.d_proc) THEN
217: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
218: PO_LOG.proc_end(d_module);
219: END IF;
220:
221: RETURN;
214: END;
215:
216: IF (PO_LOG.d_proc) THEN
217: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
218: PO_LOG.proc_end(d_module);
219: END IF;
220:
221: RETURN;
222:
224: WHEN OTHERS THEN
225: p_action_ctl_rec.return_status := 'U';
226:
227: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
228: IF (PO_LOG.d_exc) THEN
229: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
230: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
231: PO_LOG.proc_end(d_module);
232: END IF;
225: p_action_ctl_rec.return_status := 'U';
226:
227: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
228: IF (PO_LOG.d_exc) THEN
229: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
230: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
231: PO_LOG.proc_end(d_module);
232: END IF;
233:
226:
227: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
228: IF (PO_LOG.d_exc) THEN
229: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
230: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
231: PO_LOG.proc_end(d_module);
232: END IF;
233:
234: RETURN;
227: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
228: IF (PO_LOG.d_exc) THEN
229: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
230: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
231: PO_LOG.proc_end(d_module);
232: END IF;
233:
234: RETURN;
235:
290:
291: BEGIN
292:
293: d_progress := 0;
294: IF (PO_LOG.d_proc) THEN
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
291: BEGIN
292:
293: d_progress := 0;
294: IF (PO_LOG.d_proc) THEN
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
292:
293: d_progress := 0;
294: IF (PO_LOG.d_proc) THEN
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
293: d_progress := 0;
294: IF (PO_LOG.d_proc) THEN
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
294: IF (PO_LOG.d_proc) THEN
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
302: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
295: PO_LOG.proc_begin(d_module);
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
302: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
303: END IF;
296: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
302: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
303: END IF;
304:
297: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
302: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
303: END IF;
304:
305: d_progress := 10;
298: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
299: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
300: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
301: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
302: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
303: END IF;
304:
305: d_progress := 10;
306:
355: END IF;
356:
357: d_progress := 70;
358:
359: IF (PO_LOG.d_stmt) THEN
360: PO_LOG.stmt(d_module, d_progress, 'l_preparer_id', l_preparer_id);
361: END IF;
362:
363:
356:
357: d_progress := 70;
358:
359: IF (PO_LOG.d_stmt) THEN
360: PO_LOG.stmt(d_module, d_progress, 'l_preparer_id', l_preparer_id);
361: END IF;
362:
363:
364: IF ( PO_CORE_S.is_encumbrance_on(
386: WHERE po_header_id = p_action_ctl_rec.document_id;
387:
388: END IF;
389:
390: IF (PO_LOG.d_stmt) THEN
391: PO_LOG.stmt(d_module, d_progress, 'l_enc_flag', l_enc_flag);
392: END IF;
393:
394:
387:
388: END IF;
389:
390: IF (PO_LOG.d_stmt) THEN
391: PO_LOG.stmt(d_module, d_progress, 'l_enc_flag', l_enc_flag);
392: END IF;
393:
394:
395: IF ((l_enc_flag = 'Y') AND (p_action_ctl_rec.document_type <> 'CONTRACT'))
423: END IF;
424:
425: d_progress := 120;
426:
427: IF (PO_LOG.d_stmt) THEN
428: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
429: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
430: END IF;
431:
424:
425: d_progress := 120;
426:
427: IF (PO_LOG.d_stmt) THEN
428: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
429: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
430: END IF;
431:
432: p_action_ctl_rec.online_report_id := l_enc_report_id;
425: d_progress := 120;
426:
427: IF (PO_LOG.d_stmt) THEN
428: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
429: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
430: END IF;
431:
432: p_action_ctl_rec.online_report_id := l_enc_report_id;
433:
477: END IF; -- if l_enc_flag = 'Y' ...
478:
479: d_progress := 170;
480:
481: IF (PO_LOG.d_stmt) THEN
482: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
483: END IF;
484:
485: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
478:
479: d_progress := 170;
480:
481: IF (PO_LOG.d_stmt) THEN
482: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
483: END IF;
484:
485: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
486: p_document_id => p_action_ctl_rec.document_id
528: RAISE PO_CORE_S.g_early_return_exc;
529: END IF;
530:
531: d_progress := 200;
532: IF (PO_LOG.d_stmt) THEN
533: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
534: END IF;
535:
536: l_bool_ret_sts :=
529: END IF;
530:
531: d_progress := 200;
532: IF (PO_LOG.d_stmt) THEN
533: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
534: END IF;
535:
536: l_bool_ret_sts :=
537: PO_SUPPLY.po_req_supply(
559: EXCEPTION
560: WHEN PO_CORE_S.g_early_return_exc THEN
561: IF (p_action_ctl_rec.return_status = 'U')
562: THEN
563: IF (PO_LOG.d_exc) THEN
564: PO_LOG.exc(d_module, d_progress, l_err_msg);
565: END IF;
566: END IF;
567:
560: WHEN PO_CORE_S.g_early_return_exc THEN
561: IF (p_action_ctl_rec.return_status = 'U')
562: THEN
563: IF (PO_LOG.d_exc) THEN
564: PO_LOG.exc(d_module, d_progress, l_err_msg);
565: END IF;
566: END IF;
567:
568: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
568: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
569:
570: END;
571:
572: IF (PO_LOG.d_proc) THEN
573: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
574: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
575: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
576: PO_LOG.proc_end(d_module);
569:
570: END;
571:
572: IF (PO_LOG.d_proc) THEN
573: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
574: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
575: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
576: PO_LOG.proc_end(d_module);
577: END IF;
570: END;
571:
572: IF (PO_LOG.d_proc) THEN
573: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
574: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
575: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
576: PO_LOG.proc_end(d_module);
577: END IF;
578:
571:
572: IF (PO_LOG.d_proc) THEN
573: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
574: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
575: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
576: PO_LOG.proc_end(d_module);
577: END IF;
578:
579: RETURN;
572: IF (PO_LOG.d_proc) THEN
573: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
574: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
575: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
576: PO_LOG.proc_end(d_module);
577: END IF;
578:
579: RETURN;
580:
582: WHEN OTHERS THEN
583: p_action_ctl_rec.return_status := 'U';
584:
585: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
586: IF (PO_LOG.d_exc) THEN
587: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
588: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
589: PO_LOG.proc_end(d_module);
590: END IF;
583: p_action_ctl_rec.return_status := 'U';
584:
585: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
586: IF (PO_LOG.d_exc) THEN
587: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
588: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
589: PO_LOG.proc_end(d_module);
590: END IF;
591:
584:
585: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
586: IF (PO_LOG.d_exc) THEN
587: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
588: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
589: PO_LOG.proc_end(d_module);
590: END IF;
591:
592: RETURN;
585: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
586: IF (PO_LOG.d_exc) THEN
587: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
588: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
589: PO_LOG.proc_end(d_module);
590: END IF;
591:
592: RETURN;
593:
635:
636: BEGIN
637:
638: d_progress := 0;
639: IF (PO_LOG.d_proc) THEN
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
636: BEGIN
637:
638: d_progress := 0;
639: IF (PO_LOG.d_proc) THEN
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
637:
638: d_progress := 0;
639: IF (PO_LOG.d_proc) THEN
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
645: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
638: d_progress := 0;
639: IF (PO_LOG.d_proc) THEN
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
645: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
646: END IF;
639: IF (PO_LOG.d_proc) THEN
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
645: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
646: END IF;
647:
640: PO_LOG.proc_begin(d_module);
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
645: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
646: END IF;
647:
648: d_progress := 10;
641: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
642: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
643: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
644: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
645: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.forward_to_id', p_action_ctl_rec.forward_to_id);
646: END IF;
647:
648: d_progress := 10;
649:
648: d_progress := 10;
649:
650: BEGIN
651:
652: IF (PO_LOG.d_stmt) THEN
653: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
654: END IF;
655:
656: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
649:
650: BEGIN
651:
652: IF (PO_LOG.d_stmt) THEN
653: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
654: END IF;
655:
656: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
657: p_document_id => p_action_ctl_rec.document_id
680: l_ret_sts := 'S';
681:
682: EXCEPTION
683: WHEN PO_CORE_S.g_early_return_exc THEN
684: IF (PO_LOG.d_exc) THEN
685: PO_LOG.exc(d_module, d_progress, l_err_msg);
686: END IF;
687: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
688:
681:
682: EXCEPTION
683: WHEN PO_CORE_S.g_early_return_exc THEN
684: IF (PO_LOG.d_exc) THEN
685: PO_LOG.exc(d_module, d_progress, l_err_msg);
686: END IF;
687: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
688:
689: END;
688:
689: END;
690:
691: p_action_ctl_rec.return_status := l_ret_sts;
692: IF (PO_LOG.d_proc) THEN
693: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
694: PO_LOG.proc_end(d_module);
695: END IF;
696:
689: END;
690:
691: p_action_ctl_rec.return_status := l_ret_sts;
692: IF (PO_LOG.d_proc) THEN
693: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
694: PO_LOG.proc_end(d_module);
695: END IF;
696:
697: RETURN;
690:
691: p_action_ctl_rec.return_status := l_ret_sts;
692: IF (PO_LOG.d_proc) THEN
693: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
694: PO_LOG.proc_end(d_module);
695: END IF;
696:
697: RETURN;
698:
700: WHEN OTHERS THEN
701: p_action_ctl_rec.return_status := 'U';
702:
703: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
704: IF (PO_LOG.d_exc) THEN
705: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
706: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
707: PO_LOG.proc_end(d_module);
708: END IF;
701: p_action_ctl_rec.return_status := 'U';
702:
703: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
704: IF (PO_LOG.d_exc) THEN
705: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
706: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
707: PO_LOG.proc_end(d_module);
708: END IF;
709:
702:
703: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
704: IF (PO_LOG.d_exc) THEN
705: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
706: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
707: PO_LOG.proc_end(d_module);
708: END IF;
709:
710: RETURN;
703: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
704: IF (PO_LOG.d_exc) THEN
705: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
706: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
707: PO_LOG.proc_end(d_module);
708: END IF;
709:
710: RETURN;
711:
766:
767: BEGIN
768:
769: d_progress := 0;
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
767: BEGIN
768:
769: d_progress := 0;
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
768:
769: d_progress := 0;
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
769: d_progress := 0;
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
777: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
770: IF (PO_LOG.d_proc) THEN
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
777: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
778: END IF;
771: PO_LOG.proc_begin(d_module);
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
777: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
778: END IF;
779:
772: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
777: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
778: END IF;
779:
780: d_progress := 10;
773: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
774: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
775: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
776: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.note', p_action_ctl_rec.note);
777: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.approval_path_id', p_action_ctl_rec.approval_path_id);
778: END IF;
779:
780: d_progress := 10;
781:
833: , p_org_id => NULL
834: );
835:
836: d_progress := 60;
837: IF (PO_LOG.d_stmt) THEN
838: PO_LOG.stmt(d_module, d_progress, 'l_req_enc_on', l_req_enc_on);
839: END IF;
840:
841: IF (l_req_enc_on)
834: );
835:
836: d_progress := 60;
837: IF (PO_LOG.d_stmt) THEN
838: PO_LOG.stmt(d_module, d_progress, 'l_req_enc_on', l_req_enc_on);
839: END IF;
840:
841: IF (l_req_enc_on)
842: THEN
868: END IF;
869:
870: d_progress := 90;
871:
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
874: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
875: END IF;
876:
869:
870: d_progress := 90;
871:
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
874: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
875: END IF;
876:
877: p_action_ctl_rec.online_report_id := l_enc_report_id;
870: d_progress := 90;
871:
872: IF (PO_LOG.d_stmt) THEN
873: PO_LOG.stmt(d_module, d_progress, 'l_enc_ret_code', l_enc_ret_code);
874: PO_LOG.stmt(d_module, d_progress, 'l_enc_report_id', l_enc_report_id);
875: END IF;
876:
877: p_action_ctl_rec.online_report_id := l_enc_report_id;
878:
941: END IF;
942:
943: d_progress := 170;
944:
945: IF (PO_LOG.d_stmt) THEN
946: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
947: END IF;
948:
949: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
942:
943: d_progress := 170;
944:
945: IF (PO_LOG.d_stmt) THEN
946: PO_LOG.stmt(d_module, d_progress, 'Calling change_doc_auth_state');
947: END IF;
948:
949: PO_DOCUMENT_ACTION_UTIL.change_doc_auth_state(
950: p_document_id => p_action_ctl_rec.document_id
989: RAISE PO_CORE_S.g_early_return_exc;
990: END IF;
991:
992: d_progress := 200;
993: IF (PO_LOG.d_stmt) THEN
994: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
995: END IF;
996:
997: l_bool_ret_sts :=
990: END IF;
991:
992: d_progress := 200;
993: IF (PO_LOG.d_stmt) THEN
994: PO_LOG.stmt(d_module, d_progress, 'l_supply_action', l_supply_action);
995: END IF;
996:
997: l_bool_ret_sts :=
998: PO_SUPPLY.po_req_supply(
1019:
1020: EXCEPTION
1021: WHEN PO_CORE_S.g_early_return_exc THEN
1022: IF (l_ret_sts = 'U') THEN
1023: IF (PO_LOG.d_exc) THEN
1024: PO_LOG.exc(d_module, d_progress, l_err_msg);
1025: END IF;
1026: END IF;
1027:
1020: EXCEPTION
1021: WHEN PO_CORE_S.g_early_return_exc THEN
1022: IF (l_ret_sts = 'U') THEN
1023: IF (PO_LOG.d_exc) THEN
1024: PO_LOG.exc(d_module, d_progress, l_err_msg);
1025: END IF;
1026: END IF;
1027:
1028: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1028: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1029: END;
1030:
1031: p_action_ctl_rec.return_status := l_ret_sts;
1032: IF (PO_LOG.d_proc) THEN
1033: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1034: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
1035: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
1036: PO_LOG.proc_end(d_module);
1029: END;
1030:
1031: p_action_ctl_rec.return_status := l_ret_sts;
1032: IF (PO_LOG.d_proc) THEN
1033: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1034: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
1035: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
1036: PO_LOG.proc_end(d_module);
1037: END IF;
1030:
1031: p_action_ctl_rec.return_status := l_ret_sts;
1032: IF (PO_LOG.d_proc) THEN
1033: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1034: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
1035: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
1036: PO_LOG.proc_end(d_module);
1037: END IF;
1038:
1031: p_action_ctl_rec.return_status := l_ret_sts;
1032: IF (PO_LOG.d_proc) THEN
1033: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1034: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
1035: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
1036: PO_LOG.proc_end(d_module);
1037: END IF;
1038:
1039: RETURN;
1032: IF (PO_LOG.d_proc) THEN
1033: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1034: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
1035: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.online_report_id', p_action_ctl_rec.online_report_id);
1036: PO_LOG.proc_end(d_module);
1037: END IF;
1038:
1039: RETURN;
1040:
1042: WHEN OTHERS THEN
1043: p_action_ctl_rec.return_status := 'U';
1044:
1045: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1046: IF (PO_LOG.d_exc) THEN
1047: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1048: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1049: PO_LOG.proc_end(d_module);
1050: END IF;
1043: p_action_ctl_rec.return_status := 'U';
1044:
1045: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1046: IF (PO_LOG.d_exc) THEN
1047: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1048: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1049: PO_LOG.proc_end(d_module);
1050: END IF;
1051:
1044:
1045: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1046: IF (PO_LOG.d_exc) THEN
1047: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1048: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1049: PO_LOG.proc_end(d_module);
1050: END IF;
1051:
1052: RETURN;
1045: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1046: IF (PO_LOG.d_exc) THEN
1047: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1048: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
1049: PO_LOG.proc_end(d_module);
1050: END IF;
1051:
1052: RETURN;
1053:
1102:
1103: BEGIN
1104:
1105: d_progress := 0;
1106: IF (PO_LOG.d_proc) THEN
1107: PO_LOG.proc_begin(d_module);
1108: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1109: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1110: END IF;
1103: BEGIN
1104:
1105: d_progress := 0;
1106: IF (PO_LOG.d_proc) THEN
1107: PO_LOG.proc_begin(d_module);
1108: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1109: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1110: END IF;
1111:
1104:
1105: d_progress := 0;
1106: IF (PO_LOG.d_proc) THEN
1107: PO_LOG.proc_begin(d_module);
1108: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1109: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1110: END IF;
1111:
1112: IF (p_action IN (PO_DOCUMENT_ACTION_PVT.g_doc_action_APPROVE,
1105: d_progress := 0;
1106: IF (PO_LOG.d_proc) THEN
1107: PO_LOG.proc_begin(d_module);
1108: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1109: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_subtype);
1110: END IF;
1111:
1112: IF (p_action IN (PO_DOCUMENT_ACTION_PVT.g_doc_action_APPROVE,
1113: PO_DOCUMENT_ACTION_PVT.g_doc_action_REJECT))
1154:
1155: x_supply_action := l_supply_action;
1156: x_return_status := 'S';
1157:
1158: IF (PO_LOG.d_proc) THEN
1159: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1160: PO_LOG.proc_end(d_module, 'x_supply_action', x_supply_action);
1161: PO_LOG.proc_end(d_module);
1162: END IF;
1155: x_supply_action := l_supply_action;
1156: x_return_status := 'S';
1157:
1158: IF (PO_LOG.d_proc) THEN
1159: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1160: PO_LOG.proc_end(d_module, 'x_supply_action', x_supply_action);
1161: PO_LOG.proc_end(d_module);
1162: END IF;
1163:
1156: x_return_status := 'S';
1157:
1158: IF (PO_LOG.d_proc) THEN
1159: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1160: PO_LOG.proc_end(d_module, 'x_supply_action', x_supply_action);
1161: PO_LOG.proc_end(d_module);
1162: END IF;
1163:
1164: EXCEPTION
1157:
1158: IF (PO_LOG.d_proc) THEN
1159: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1160: PO_LOG.proc_end(d_module, 'x_supply_action', x_supply_action);
1161: PO_LOG.proc_end(d_module);
1162: END IF;
1163:
1164: EXCEPTION
1165: WHEN OTHERS THEN
1164: EXCEPTION
1165: WHEN OTHERS THEN
1166: x_return_status := 'U';
1167: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1168: IF (PO_LOG.d_exc) THEN
1169: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1170: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1171: PO_LOG.proc_end(d_module);
1172: END IF;
1165: WHEN OTHERS THEN
1166: x_return_status := 'U';
1167: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1168: IF (PO_LOG.d_exc) THEN
1169: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1170: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1171: PO_LOG.proc_end(d_module);
1172: END IF;
1173:
1166: x_return_status := 'U';
1167: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1168: IF (PO_LOG.d_exc) THEN
1169: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1170: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1171: PO_LOG.proc_end(d_module);
1172: END IF;
1173:
1174: RETURN;
1167: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1168: IF (PO_LOG.d_exc) THEN
1169: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1170: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1171: PO_LOG.proc_end(d_module);
1172: END IF;
1173:
1174: RETURN;
1175: END get_supply_action_name;