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:
244:
245: ELSE
246:
247: d_progress := 20;
248: IF (PO_LOG.d_stmt) THEN
249: PO_LOG.stmt(d_module, d_progress, 'Not locking the document.');
250: END IF;
251:
252: END IF; -- IF p_action_ctl_rec.lock_document
245: ELSE
246:
247: d_progress := 20;
248: IF (PO_LOG.d_stmt) THEN
249: PO_LOG.stmt(d_module, d_progress, 'Not locking the document.');
250: END IF;
251:
252: END IF; -- IF p_action_ctl_rec.lock_document
253:
358: END IF;
359:
360: d_progress := 120;
361:
362: IF (PO_LOG.d_stmt) THEN
363: PO_LOG.stmt(d_module, d_progress, 'action call complete');
364: END IF;
365:
366:
359:
360: d_progress := 120;
361:
362: IF (PO_LOG.d_stmt) THEN
363: PO_LOG.stmt(d_module, d_progress, 'action call complete');
364: END IF;
365:
366:
367: -- Handle inbound logistics for SPOs and Blanket Releases
413: error_msg_append(d_module, d_progress, l_msg_data);
414: END IF;
415: error_msg_append(d_module, d_progress, d_log_msg);
416: get_error_message(p_action_ctl_rec.error_msg);
417: IF (PO_LOG.d_exc) THEN
418: PO_LOG.exc(d_module, d_progress, d_log_msg);
419: END IF;
420: ROLLBACK TO DA_DO_ACTION_SP;
421: ELSIF (l_ret_sts = 'E') THEN
414: END IF;
415: error_msg_append(d_module, d_progress, d_log_msg);
416: get_error_message(p_action_ctl_rec.error_msg);
417: IF (PO_LOG.d_exc) THEN
418: PO_LOG.exc(d_module, d_progress, d_log_msg);
419: END IF;
420: ROLLBACK TO DA_DO_ACTION_SP;
421: ELSIF (l_ret_sts = 'E') THEN
422: IF (PO_LOG.d_stmt) THEN
418: PO_LOG.exc(d_module, d_progress, d_log_msg);
419: END IF;
420: ROLLBACK TO DA_DO_ACTION_SP;
421: ELSIF (l_ret_sts = 'E') THEN
422: IF (PO_LOG.d_stmt) THEN
423: PO_LOG.stmt(d_module, d_progress, d_log_msg);
424: END IF;
425: END IF;
426: END;
419: END IF;
420: ROLLBACK TO DA_DO_ACTION_SP;
421: ELSIF (l_ret_sts = 'E') THEN
422: IF (PO_LOG.d_stmt) THEN
423: PO_LOG.stmt(d_module, d_progress, d_log_msg);
424: END IF;
425: END IF;
426: END;
427:
439: --
440:
441: p_action_ctl_rec.return_status := l_ret_sts;
442:
443: IF (PO_LOG.d_proc) THEN
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
440:
441: p_action_ctl_rec.return_status := l_ret_sts;
442:
443: IF (PO_LOG.d_proc) THEN
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
448: PO_LOG.proc_end(d_module);
441: p_action_ctl_rec.return_status := l_ret_sts;
442:
443: IF (PO_LOG.d_proc) THEN
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
448: PO_LOG.proc_end(d_module);
449: END IF;
442:
443: IF (PO_LOG.d_proc) THEN
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
448: PO_LOG.proc_end(d_module);
449: END IF;
450:
443: IF (PO_LOG.d_proc) THEN
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
448: PO_LOG.proc_end(d_module);
449: END IF;
450:
451:
444: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
445: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
446: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
447: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
448: PO_LOG.proc_end(d_module);
449: END IF;
450:
451:
452: RETURN;
456: p_action_ctl_rec.return_status := 'U';
457:
458: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
459: get_error_message(p_action_ctl_rec.error_msg);
460: IF (PO_LOG.d_exc) THEN
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
457:
458: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
459: get_error_message(p_action_ctl_rec.error_msg);
460: IF (PO_LOG.d_exc) THEN
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
465: PO_LOG.proc_end(d_module);
458: error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
459: get_error_message(p_action_ctl_rec.error_msg);
460: IF (PO_LOG.d_exc) THEN
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
465: PO_LOG.proc_end(d_module);
466: END IF;
459: get_error_message(p_action_ctl_rec.error_msg);
460: IF (PO_LOG.d_exc) THEN
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
465: PO_LOG.proc_end(d_module);
466: END IF;
467:
460: IF (PO_LOG.d_exc) THEN
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
465: PO_LOG.proc_end(d_module);
466: END IF;
467:
468: ROLLBACK TO DA_DO_ACTION_SP;
461: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
462: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
463: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.functional_error', p_action_ctl_rec.functional_error);
464: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.error_msg', p_action_ctl_rec.error_msg);
465: PO_LOG.proc_end(d_module);
466: END IF;
467:
468: ROLLBACK TO DA_DO_ACTION_SP;
469:
1455:
1456: BEGIN
1457:
1458: d_progress := 0;
1459: IF (PO_LOG.d_proc) THEN
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1456: BEGIN
1457:
1458: d_progress := 0;
1459: IF (PO_LOG.d_proc) THEN
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1457:
1458: d_progress := 0;
1459: IF (PO_LOG.d_proc) THEN
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1465: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1458: d_progress := 0;
1459: IF (PO_LOG.d_proc) THEN
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1465: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1466: END IF;
1459: IF (PO_LOG.d_proc) THEN
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1465: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1466: END IF;
1467:
1460: PO_LOG.proc_begin(d_module);
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1465: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1466: END IF;
1467:
1468: d_progress := 10;
1461: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1462: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1463: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1464: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1465: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1466: END IF;
1467:
1468: d_progress := 10;
1469:
1485: d_progress := 16;
1486: l_hr_xbg_profile := NVL(hr_general.get_xbg_profile, 'N');
1487:
1488: d_progress := 20;
1489: IF (PO_LOG.d_stmt) THEN
1490: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1491: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1492: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1493: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1486: l_hr_xbg_profile := NVL(hr_general.get_xbg_profile, 'N');
1487:
1488: d_progress := 20;
1489: IF (PO_LOG.d_stmt) THEN
1490: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1491: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1492: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1493: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1494: END IF;
1487:
1488: d_progress := 20;
1489: IF (PO_LOG.d_stmt) THEN
1490: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1491: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1492: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1493: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1494: END IF;
1495:
1488: d_progress := 20;
1489: IF (PO_LOG.d_stmt) THEN
1490: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1491: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1492: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1493: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1494: END IF;
1495:
1496: BEGIN
1489: IF (PO_LOG.d_stmt) THEN
1490: PO_LOG.stmt(d_module, d_progress, 'l_forwarding_mode', l_forwarding_mode);
1491: PO_LOG.stmt(d_module, d_progress, 'l_using_positions', l_using_positions);
1492: PO_LOG.stmt(d_module, d_progress, 'l_bus_group_id', l_bus_group_id);
1493: PO_LOG.stmt(d_module, d_progress, 'l_hr_xbg_profile', l_hr_xbg_profile);
1494: END IF;
1495:
1496: BEGIN
1497:
1511: FETCH direct_pos INTO l_fwd_to_id;
1512: EXIT WHEN (direct_pos%NOTFOUND IS NULL) OR (direct_pos%NOTFOUND);
1513:
1514: d_progress := 60;
1515: IF (PO_LOG.d_stmt) THEN
1516: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1517: END IF;
1518:
1519: verify_authority(
1512: EXIT WHEN (direct_pos%NOTFOUND IS NULL) OR (direct_pos%NOTFOUND);
1513:
1514: d_progress := 60;
1515: IF (PO_LOG.d_stmt) THEN
1516: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1517: END IF;
1518:
1519: verify_authority(
1520: p_document_id => p_document_id
1554: FETCH direct_assign INTO l_fwd_to_id;
1555: EXIT WHEN (direct_assign%NOTFOUND IS NULL) OR (direct_assign%NOTFOUND);
1556:
1557: d_progress := 110;
1558: IF (PO_LOG.d_stmt) THEN
1559: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1560: END IF;
1561:
1562: verify_authority(
1555: EXIT WHEN (direct_assign%NOTFOUND IS NULL) OR (direct_assign%NOTFOUND);
1556:
1557: d_progress := 110;
1558: IF (PO_LOG.d_stmt) THEN
1559: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1560: END IF;
1561:
1562: verify_authority(
1563: p_document_id => p_document_id
1597: FETCH direct_assign_xbg INTO l_fwd_to_id;
1598: EXIT WHEN (direct_assign_xbg%NOTFOUND IS NULL) OR (direct_assign_xbg%NOTFOUND);
1599:
1600: d_progress := 160;
1601: IF (PO_LOG.d_stmt) THEN
1602: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1603: END IF;
1604:
1605: verify_authority(
1598: EXIT WHEN (direct_assign_xbg%NOTFOUND IS NULL) OR (direct_assign_xbg%NOTFOUND);
1599:
1600: d_progress := 160;
1601: IF (PO_LOG.d_stmt) THEN
1602: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1603: END IF;
1604:
1605: verify_authority(
1606: p_document_id => p_document_id
1631: END LOOP;
1632:
1633: END IF; -- l_using_positions = 'Y'
1634:
1635: IF (PO_LOG.d_stmt) THEN
1636: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1637: END IF;
1638:
1639: ELSIF (l_forwarding_mode = 'HIERARCHY')
1632:
1633: END IF; -- l_using_positions = 'Y'
1634:
1635: IF (PO_LOG.d_stmt) THEN
1636: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1637: END IF;
1638:
1639: ELSIF (l_forwarding_mode = 'HIERARCHY')
1640: THEN
1671: d_progress := 230;
1672:
1673: END IF; -- l_using_positions = 'Y'
1674:
1675: IF (PO_LOG.d_stmt) THEN
1676: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1677: END IF;
1678:
1679: ELSE
1672:
1673: END IF; -- l_using_positions = 'Y'
1674:
1675: IF (PO_LOG.d_stmt) THEN
1676: PO_LOG.stmt(d_module, d_progress, 'l_fwd_to_id', l_fwd_to_id);
1677: END IF;
1678:
1679: ELSE
1680:
1685: END IF; -- l_forwarding_mode = ...
1686:
1687: EXCEPTION
1688: WHEN PO_CORE_S.g_early_return_exc THEN
1689: IF (PO_LOG.d_exc) THEN
1690: PO_LOG.exc(d_module, d_progress, d_msg);
1691: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1692: END IF;
1693: END;
1686:
1687: EXCEPTION
1688: WHEN PO_CORE_S.g_early_return_exc THEN
1689: IF (PO_LOG.d_exc) THEN
1690: PO_LOG.exc(d_module, d_progress, d_msg);
1691: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1692: END IF;
1693: END;
1694:
1687: EXCEPTION
1688: WHEN PO_CORE_S.g_early_return_exc THEN
1689: IF (PO_LOG.d_exc) THEN
1690: PO_LOG.exc(d_module, d_progress, d_msg);
1691: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1692: END IF;
1693: END;
1694:
1695: IF direct_pos%ISOPEN THEN
1710:
1711: x_return_status := l_ret_sts;
1712: x_forward_to_id := l_fwd_to_id;
1713:
1714: IF (PO_LOG.d_proc) THEN
1715: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1716: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1717: PO_LOG.proc_end(d_module);
1718: END IF;
1711: x_return_status := l_ret_sts;
1712: x_forward_to_id := l_fwd_to_id;
1713:
1714: IF (PO_LOG.d_proc) THEN
1715: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1716: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1717: PO_LOG.proc_end(d_module);
1718: END IF;
1719:
1712: x_forward_to_id := l_fwd_to_id;
1713:
1714: IF (PO_LOG.d_proc) THEN
1715: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1716: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1717: PO_LOG.proc_end(d_module);
1718: END IF;
1719:
1720: EXCEPTION
1713:
1714: IF (PO_LOG.d_proc) THEN
1715: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1716: PO_LOG.proc_end(d_module, 'x_forward_to_id', x_forward_to_id);
1717: PO_LOG.proc_end(d_module);
1718: END IF;
1719:
1720: EXCEPTION
1721: WHEN OTHERS THEN
1737: END IF;
1738:
1739: x_return_status := 'U';
1740:
1741: IF (PO_LOG.d_exc) THEN
1742: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1743: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1744: PO_LOG.proc_end(d_module);
1745: END IF;
1738:
1739: x_return_status := 'U';
1740:
1741: IF (PO_LOG.d_exc) THEN
1742: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1743: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1744: PO_LOG.proc_end(d_module);
1745: END IF;
1746:
1739: x_return_status := 'U';
1740:
1741: IF (PO_LOG.d_exc) THEN
1742: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1743: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1744: PO_LOG.proc_end(d_module);
1745: END IF;
1746:
1747: RETURN;
1740:
1741: IF (PO_LOG.d_exc) THEN
1742: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1743: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1744: PO_LOG.proc_end(d_module);
1745: END IF;
1746:
1747: RETURN;
1748: END find_forward_to_id;