82:
83: BEGIN
84:
85: d_progress := 0;
86: IF (PO_LOG.d_proc) THEN
87: PO_LOG.proc_begin(d_module);
88: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
89: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type); --Bug#4962625
90: END IF;
83: BEGIN
84:
85: d_progress := 0;
86: IF (PO_LOG.d_proc) THEN
87: PO_LOG.proc_begin(d_module);
88: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
89: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type); --Bug#4962625
90: END IF;
91:
84:
85: d_progress := 0;
86: IF (PO_LOG.d_proc) THEN
87: PO_LOG.proc_begin(d_module);
88: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
89: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type); --Bug#4962625
90: END IF;
91:
92: SAVEPOINT DA_DO_ACTION_SP;
85: d_progress := 0;
86: IF (PO_LOG.d_proc) THEN
87: PO_LOG.proc_begin(d_module);
88: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
89: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type); --Bug#4962625
90: END IF;
91:
92: SAVEPOINT DA_DO_ACTION_SP;
93:
149: --function because org context is not set in java
150: l_old_org_id := PO_MOAC_UTILS_PVT.get_current_org_id;
151:
152: d_progress := 13;
153: IF (PO_LOG.d_stmt) THEN
154: PO_LOG.stmt(d_module, d_progress, 'l_old_org_id', l_old_org_id);
155: PO_LOG.stmt(d_module, d_progress, 'l_doc_org_id', l_doc_org_id);
156: PO_LOG.stmt(d_module, d_progress, 'Setting org context.');
157: END IF;
150: l_old_org_id := PO_MOAC_UTILS_PVT.get_current_org_id;
151:
152: d_progress := 13;
153: IF (PO_LOG.d_stmt) THEN
154: PO_LOG.stmt(d_module, d_progress, 'l_old_org_id', l_old_org_id);
155: PO_LOG.stmt(d_module, d_progress, 'l_doc_org_id', l_doc_org_id);
156: PO_LOG.stmt(d_module, d_progress, 'Setting org context.');
157: END IF;
158:
151:
152: d_progress := 13;
153: IF (PO_LOG.d_stmt) THEN
154: PO_LOG.stmt(d_module, d_progress, 'l_old_org_id', l_old_org_id);
155: PO_LOG.stmt(d_module, d_progress, 'l_doc_org_id', l_doc_org_id);
156: PO_LOG.stmt(d_module, d_progress, 'Setting org context.');
157: END IF;
158:
159: po_moac_utils_pvt.set_org_context(l_doc_org_id); --
152: d_progress := 13;
153: IF (PO_LOG.d_stmt) THEN
154: PO_LOG.stmt(d_module, d_progress, 'l_old_org_id', l_old_org_id);
155: PO_LOG.stmt(d_module, d_progress, 'l_doc_org_id', l_doc_org_id);
156: PO_LOG.stmt(d_module, d_progress, 'Setting org context.');
157: END IF;
158:
159: po_moac_utils_pvt.set_org_context(l_doc_org_id); --
160:
165: THEN
166:
167: d_progress := 15;
168:
169: IF (PO_LOG.d_stmt) THEN
170: PO_LOG.stmt(d_module, d_progress, 'Locking the document.');
171: END IF;
172:
173: l_doc_id_tbl := po_tbl_number(p_action_ctl_rec.document_id);
166:
167: d_progress := 15;
168:
169: IF (PO_LOG.d_stmt) THEN
170: PO_LOG.stmt(d_module, d_progress, 'Locking the document.');
171: END IF;
172:
173: l_doc_id_tbl := po_tbl_number(p_action_ctl_rec.document_id);
174:
239:
240: ELSE
241:
242: d_progress := 20;
243: IF (PO_LOG.d_stmt) THEN
244: PO_LOG.stmt(d_module, d_progress, 'Not locking the document.');
245: END IF;
246:
247: END IF; -- IF p_action_ctl_rec.lock_document
240: ELSE
241:
242: d_progress := 20;
243: IF (PO_LOG.d_stmt) THEN
244: PO_LOG.stmt(d_module, d_progress, 'Not locking the document.');
245: END IF;
246:
247: END IF; -- IF p_action_ctl_rec.lock_document
248:
353: END IF;
354:
355: d_progress := 120;
356:
357: IF (PO_LOG.d_stmt) THEN
358: PO_LOG.stmt(d_module, d_progress, 'action call complete');
359: END IF;
360:
361:
354:
355: d_progress := 120;
356:
357: IF (PO_LOG.d_stmt) THEN
358: PO_LOG.stmt(d_module, d_progress, 'action call complete');
359: END IF;
360:
361:
362: -- Handle inbound logistics for SPOs and Blanket Releases
408: error_msg_append(d_module, d_progress, l_msg_data);
409: END IF;
410: error_msg_append(d_module, d_progress, d_log_msg);
411: get_error_message(p_action_ctl_rec.error_msg);
412: IF (PO_LOG.d_exc) THEN
413: PO_LOG.exc(d_module, d_progress, d_log_msg);
414: END IF;
415: ROLLBACK TO DA_DO_ACTION_SP;
416: ELSIF (l_ret_sts = 'E') THEN
409: END IF;
410: error_msg_append(d_module, d_progress, d_log_msg);
411: get_error_message(p_action_ctl_rec.error_msg);
412: IF (PO_LOG.d_exc) THEN
413: PO_LOG.exc(d_module, d_progress, d_log_msg);
414: END IF;
415: ROLLBACK TO DA_DO_ACTION_SP;
416: ELSIF (l_ret_sts = 'E') THEN
417: IF (PO_LOG.d_stmt) THEN
413: PO_LOG.exc(d_module, d_progress, d_log_msg);
414: END IF;
415: ROLLBACK TO DA_DO_ACTION_SP;
416: ELSIF (l_ret_sts = 'E') THEN
417: IF (PO_LOG.d_stmt) THEN
418: PO_LOG.stmt(d_module, d_progress, d_log_msg);
419: END IF;
420: END IF;
421: END;
414: END IF;
415: ROLLBACK TO DA_DO_ACTION_SP;
416: ELSIF (l_ret_sts = 'E') THEN
417: IF (PO_LOG.d_stmt) THEN
418: PO_LOG.stmt(d_module, d_progress, d_log_msg);
419: END IF;
420: END IF;
421: END;
422:
434: --
435:
436: p_action_ctl_rec.return_status := l_ret_sts;
437:
438: IF (PO_LOG.d_proc) THEN
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
435:
436: p_action_ctl_rec.return_status := l_ret_sts;
437:
438: IF (PO_LOG.d_proc) THEN
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
443: PO_LOG.proc_end(d_module);
436: p_action_ctl_rec.return_status := l_ret_sts;
437:
438: IF (PO_LOG.d_proc) THEN
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
443: PO_LOG.proc_end(d_module);
444: END IF;
437:
438: IF (PO_LOG.d_proc) THEN
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
443: PO_LOG.proc_end(d_module);
444: END IF;
445:
438: IF (PO_LOG.d_proc) THEN
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
443: PO_LOG.proc_end(d_module);
444: END IF;
445:
446:
439: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
441: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
442: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
443: PO_LOG.proc_end(d_module);
444: END IF;
445:
446:
447: RETURN;
451: p_action_ctl_rec.return_status := 'U';
452:
453: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
454: get_error_message(p_action_ctl_rec.error_msg);
455: IF (PO_LOG.d_exc) THEN
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
452:
453: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
454: get_error_message(p_action_ctl_rec.error_msg);
455: IF (PO_LOG.d_exc) THEN
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
460: PO_LOG.proc_end(d_module);
453: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
454: get_error_message(p_action_ctl_rec.error_msg);
455: IF (PO_LOG.d_exc) THEN
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
460: PO_LOG.proc_end(d_module);
461: END IF;
454: get_error_message(p_action_ctl_rec.error_msg);
455: IF (PO_LOG.d_exc) THEN
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
460: PO_LOG.proc_end(d_module);
461: END IF;
462:
455: IF (PO_LOG.d_exc) THEN
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
460: PO_LOG.proc_end(d_module);
461: END IF;
462:
463: ROLLBACK TO DA_DO_ACTION_SP;
456: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
457: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
458: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
459: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
460: PO_LOG.proc_end(d_module);
461: END IF;
462:
463: ROLLBACK TO DA_DO_ACTION_SP;
464:
1446:
1447: BEGIN
1448:
1449: d_progress := 0;
1450: IF (PO_LOG.d_proc) THEN
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1447: BEGIN
1448:
1449: d_progress := 0;
1450: IF (PO_LOG.d_proc) THEN
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1448:
1449: d_progress := 0;
1450: IF (PO_LOG.d_proc) THEN
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1456: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1449: d_progress := 0;
1450: IF (PO_LOG.d_proc) THEN
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1456: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1457: END IF;
1450: IF (PO_LOG.d_proc) THEN
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1456: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1457: END IF;
1458:
1451: PO_LOG.proc_begin(d_module);
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1456: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1457: END IF;
1458:
1459: d_progress := 10;
1452: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1453: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1454: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1455: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1456: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1457: END IF;
1458:
1459: d_progress := 10;
1460:
1476: d_progress := 16;
1477: l_hr_xbg_profile := NVL(hr_general.get_xbg_profile, 'N');
1478:
1479: d_progress := 20;
1480: IF (PO_LOG.d_stmt) THEN
1481: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1482: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1483: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1484: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1477: l_hr_xbg_profile := NVL(hr_general.get_xbg_profile, 'N');
1478:
1479: d_progress := 20;
1480: IF (PO_LOG.d_stmt) THEN
1481: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1482: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1483: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1484: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1485: END IF;
1478:
1479: d_progress := 20;
1480: IF (PO_LOG.d_stmt) THEN
1481: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1482: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1483: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1484: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1485: END IF;
1486:
1479: d_progress := 20;
1480: IF (PO_LOG.d_stmt) THEN
1481: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1482: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1483: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1484: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1485: END IF;
1486:
1487: BEGIN
1480: IF (PO_LOG.d_stmt) THEN
1481: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1482: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1483: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1484: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1485: END IF;
1486:
1487: BEGIN
1488:
1502: FETCH direct_pos INTO l_fwd_to_id;
1503: EXIT WHEN (direct_pos%NOTFOUND IS NULL) OR (direct_pos%NOTFOUND);
1504:
1505: d_progress := 60;
1506: IF (PO_LOG.d_stmt) THEN
1507: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1508: END IF;
1509:
1510: verify_authority(
1503: EXIT WHEN (direct_pos%NOTFOUND IS NULL) OR (direct_pos%NOTFOUND);
1504:
1505: d_progress := 60;
1506: IF (PO_LOG.d_stmt) THEN
1507: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1508: END IF;
1509:
1510: verify_authority(
1511: p_document_id => p_document_id
1545: FETCH direct_assign INTO l_fwd_to_id;
1546: EXIT WHEN (direct_assign%NOTFOUND IS NULL) OR (direct_assign%NOTFOUND);
1547:
1548: d_progress := 110;
1549: IF (PO_LOG.d_stmt) THEN
1550: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1551: END IF;
1552:
1553: verify_authority(
1546: EXIT WHEN (direct_assign%NOTFOUND IS NULL) OR (direct_assign%NOTFOUND);
1547:
1548: d_progress := 110;
1549: IF (PO_LOG.d_stmt) THEN
1550: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1551: END IF;
1552:
1553: verify_authority(
1554: p_document_id => p_document_id
1588: FETCH direct_assign_xbg INTO l_fwd_to_id;
1589: EXIT WHEN (direct_assign_xbg%NOTFOUND IS NULL) OR (direct_assign_xbg%NOTFOUND);
1590:
1591: d_progress := 160;
1592: IF (PO_LOG.d_stmt) THEN
1593: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1594: END IF;
1595:
1596: verify_authority(
1589: EXIT WHEN (direct_assign_xbg%NOTFOUND IS NULL) OR (direct_assign_xbg%NOTFOUND);
1590:
1591: d_progress := 160;
1592: IF (PO_LOG.d_stmt) THEN
1593: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1594: END IF;
1595:
1596: verify_authority(
1597: p_document_id => p_document_id
1622: END LOOP;
1623:
1624: END IF; -- l_using_positions = 'Y'
1625:
1626: IF (PO_LOG.d_stmt) THEN
1627: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1628: END IF;
1629:
1630: ELSIF (l_forwarding_mode = 'HIERARCHY')
1623:
1624: END IF; -- l_using_positions = 'Y'
1625:
1626: IF (PO_LOG.d_stmt) THEN
1627: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1628: END IF;
1629:
1630: ELSIF (l_forwarding_mode = 'HIERARCHY')
1631: THEN
1662: d_progress := 230;
1663:
1664: END IF; -- l_using_positions = 'Y'
1665:
1666: IF (PO_LOG.d_stmt) THEN
1667: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1668: END IF;
1669:
1670: ELSE
1663:
1664: END IF; -- l_using_positions = 'Y'
1665:
1666: IF (PO_LOG.d_stmt) THEN
1667: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1668: END IF;
1669:
1670: ELSE
1671:
1676: END IF; -- l_forwarding_mode = ...
1677:
1678: EXCEPTION
1679: WHEN PO_CORE_S.g_early_return_exc THEN
1680: IF (PO_LOG.d_exc) THEN
1681: PO_LOG.exc(d_module, d_progress, d_msg);
1682: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1683: END IF;
1684: END;
1677:
1678: EXCEPTION
1679: WHEN PO_CORE_S.g_early_return_exc THEN
1680: IF (PO_LOG.d_exc) THEN
1681: PO_LOG.exc(d_module, d_progress, d_msg);
1682: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1683: END IF;
1684: END;
1685:
1678: EXCEPTION
1679: WHEN PO_CORE_S.g_early_return_exc THEN
1680: IF (PO_LOG.d_exc) THEN
1681: PO_LOG.exc(d_module, d_progress, d_msg);
1682: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1683: END IF;
1684: END;
1685:
1686: IF direct_pos%ISOPEN THEN
1701:
1702: x_return_status := l_ret_sts;
1703: x_forward_to_id := l_fwd_to_id;
1704:
1705: IF (PO_LOG.d_proc) THEN
1706: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1707: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1708: PO_LOG.proc_end(d_module);
1709: END IF;
1702: x_return_status := l_ret_sts;
1703: x_forward_to_id := l_fwd_to_id;
1704:
1705: IF (PO_LOG.d_proc) THEN
1706: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1707: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1708: PO_LOG.proc_end(d_module);
1709: END IF;
1710:
1703: x_forward_to_id := l_fwd_to_id;
1704:
1705: IF (PO_LOG.d_proc) THEN
1706: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1707: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1708: PO_LOG.proc_end(d_module);
1709: END IF;
1710:
1711: EXCEPTION
1704:
1705: IF (PO_LOG.d_proc) THEN
1706: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1707: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1708: PO_LOG.proc_end(d_module);
1709: END IF;
1710:
1711: EXCEPTION
1712: WHEN OTHERS THEN
1728: END IF;
1729:
1730: x_return_status := 'U';
1731:
1732: IF (PO_LOG.d_exc) THEN
1733: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1734: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1735: PO_LOG.proc_end(d_module);
1736: END IF;
1729:
1730: x_return_status := 'U';
1731:
1732: IF (PO_LOG.d_exc) THEN
1733: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1734: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1735: PO_LOG.proc_end(d_module);
1736: END IF;
1737:
1730: x_return_status := 'U';
1731:
1732: IF (PO_LOG.d_exc) THEN
1733: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1734: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1735: PO_LOG.proc_end(d_module);
1736: END IF;
1737:
1738: RETURN;
1731:
1732: IF (PO_LOG.d_exc) THEN
1733: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1734: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1735: PO_LOG.proc_end(d_module);
1736: END IF;
1737:
1738: RETURN;
1739: END find_forward_to_id;