26: := PO_DEBUG.is_debug_unexp_on
27: ;
28:
29:
30: D_PACKAGE_BASE CONSTANT VARCHAR2(100) := PO_LOG.get_package_base(g_pkg_name);
31: -----------------------------------------------------------------------------
32: -- Declare private package types.
33: -----------------------------------------------------------------------------
34:
7006:
7007: BEGIN
7008:
7009: d_progress := 0;
7010: IF (PO_LOG.d_proc) THEN
7011: PO_LOG.proc_begin(d_module);
7012: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
7013: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
7014: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
7007: BEGIN
7008:
7009: d_progress := 0;
7010: IF (PO_LOG.d_proc) THEN
7011: PO_LOG.proc_begin(d_module);
7012: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
7013: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
7014: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
7015: END IF;
7008:
7009: d_progress := 0;
7010: IF (PO_LOG.d_proc) THEN
7011: PO_LOG.proc_begin(d_module);
7012: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
7013: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
7014: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
7015: END IF;
7016:
7009: d_progress := 0;
7010: IF (PO_LOG.d_proc) THEN
7011: PO_LOG.proc_begin(d_module);
7012: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
7013: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
7014: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
7015: END IF;
7016:
7017: BEGIN
7010: IF (PO_LOG.d_proc) THEN
7011: PO_LOG.proc_begin(d_module);
7012: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
7013: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
7014: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
7015: END IF;
7016:
7017: BEGIN
7018:
7049: AND poah.action_code IS NULL;
7050:
7051: EXCEPTION
7052: WHEN no_data_found THEN
7053: IF (PO_LOG.d_stmt) THEN
7054: PO_LOG.stmt(d_module, d_progress, 'No data found');
7055: END IF;
7056: END;
7057:
7050:
7051: EXCEPTION
7052: WHEN no_data_found THEN
7053: IF (PO_LOG.d_stmt) THEN
7054: PO_LOG.stmt(d_module, d_progress, 'No data found');
7055: END IF;
7056: END;
7057:
7058: ELSIF (p_document_type IN ('PO', 'PA'))
7115: AND poah.action_code IS NULL;
7116:
7117: EXCEPTION
7118: WHEN no_data_found THEN
7119: IF (PO_LOG.d_stmt) THEN
7120: PO_LOG.stmt(d_module, d_progress, 'No data found');
7121: END IF;
7122: END;
7123:
7116:
7117: EXCEPTION
7118: WHEN no_data_found THEN
7119: IF (PO_LOG.d_stmt) THEN
7120: PO_LOG.stmt(d_module, d_progress, 'No data found');
7121: END IF;
7122: END;
7123:
7124: ELSIF (p_document_type = 'RELEASE')
7181: AND poah.action_code IS NULL;
7182:
7183: EXCEPTION
7184: WHEN no_data_found THEN
7185: IF (PO_LOG.d_stmt) THEN
7186: PO_LOG.stmt(d_module, d_progress, 'No data found');
7187: END IF;
7188: END;
7189:
7182:
7183: EXCEPTION
7184: WHEN no_data_found THEN
7185: IF (PO_LOG.d_stmt) THEN
7186: PO_LOG.stmt(d_module, d_progress, 'No data found');
7187: END IF;
7188: END;
7189:
7190: ELSE
7194: RAISE g_early_return_exc;
7195:
7196: END IF;
7197:
7198: IF (PO_LOG.d_stmt) THEN
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7195:
7196: END IF;
7197:
7198: IF (PO_LOG.d_stmt) THEN
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7196: END IF;
7197:
7198: IF (PO_LOG.d_stmt) THEN
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7197:
7198: IF (PO_LOG.d_stmt) THEN
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7198: IF (PO_LOG.d_stmt) THEN
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7199: PO_LOG.stmt(d_module, d_progress, 'l_status_code', l_status_code);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7200: PO_LOG.stmt(d_module, d_progress, 'l_cancel_status', l_cancel_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7201: PO_LOG.stmt(d_module, d_progress, 'l_closed_status', l_closed_status);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7209: PO_LOG.stmt(d_module, d_progress, 'l_offline_flag', l_offline_flag);
7202: PO_LOG.stmt(d_module, d_progress, 'l_frozen_status', l_frozen_status);
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7209: PO_LOG.stmt(d_module, d_progress, 'l_offline_flag', l_offline_flag);
7210: END IF;
7203: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7209: PO_LOG.stmt(d_module, d_progress, 'l_offline_flag', l_offline_flag);
7210: END IF;
7211:
7204: PO_LOG.stmt(d_module, d_progress, 'l_cancel_flag', l_cancel_flag);
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7209: PO_LOG.stmt(d_module, d_progress, 'l_offline_flag', l_offline_flag);
7210: END IF;
7211:
7212: d_progress := 100;
7205: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
7206: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
7207: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
7208: PO_LOG.stmt(d_module, d_progress, 'l_offline_status', l_offline_status);
7209: PO_LOG.stmt(d_module, d_progress, 'l_offline_flag', l_offline_flag);
7210: END IF;
7211:
7212: d_progress := 100;
7213:
7241: );
7242:
7243: d_progress := 140;
7244:
7245: IF (PO_LOG.d_stmt) THEN
7246: PO_LOG.stmt(d_module, d_progress, 'l_display_reserved', l_display_reserved);
7247: PO_LOG.stmt(d_module, d_progress, 'l_reserved_status', l_reserved_status);
7248: PO_LOG.stmt(d_module, d_progress, 'l_reserved_flag', l_reserved_flag);
7249: END IF;
7242:
7243: d_progress := 140;
7244:
7245: IF (PO_LOG.d_stmt) THEN
7246: PO_LOG.stmt(d_module, d_progress, 'l_display_reserved', l_display_reserved);
7247: PO_LOG.stmt(d_module, d_progress, 'l_reserved_status', l_reserved_status);
7248: PO_LOG.stmt(d_module, d_progress, 'l_reserved_flag', l_reserved_flag);
7249: END IF;
7250:
7243: d_progress := 140;
7244:
7245: IF (PO_LOG.d_stmt) THEN
7246: PO_LOG.stmt(d_module, d_progress, 'l_display_reserved', l_display_reserved);
7247: PO_LOG.stmt(d_module, d_progress, 'l_reserved_status', l_reserved_status);
7248: PO_LOG.stmt(d_module, d_progress, 'l_reserved_flag', l_reserved_flag);
7249: END IF;
7250:
7251: x_document_status := l_status_code;
7244:
7245: IF (PO_LOG.d_stmt) THEN
7246: PO_LOG.stmt(d_module, d_progress, 'l_display_reserved', l_display_reserved);
7247: PO_LOG.stmt(d_module, d_progress, 'l_reserved_status', l_reserved_status);
7248: PO_LOG.stmt(d_module, d_progress, 'l_reserved_flag', l_reserved_flag);
7249: END IF;
7250:
7251: x_document_status := l_status_code;
7252:
7278:
7279: EXCEPTION
7280: WHEN g_early_return_exc THEN
7281: l_ret_sts := 'U';
7282: IF (PO_LOG.d_exc) THEN
7283: PO_LOG.exc(d_module, d_progress, d_msg);
7284: END IF;
7285: END;
7286:
7279: EXCEPTION
7280: WHEN g_early_return_exc THEN
7281: l_ret_sts := 'U';
7282: IF (PO_LOG.d_exc) THEN
7283: PO_LOG.exc(d_module, d_progress, d_msg);
7284: END IF;
7285: END;
7286:
7287: x_return_status := l_ret_sts;
7285: END;
7286:
7287: x_return_status := l_ret_sts;
7288:
7289: IF (PO_LOG.d_proc) THEN
7290: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7291: PO_LOG.proc_end(d_module, 'p_document_status', x_document_status);
7292: PO_LOG.proc_end(d_module);
7293: END IF;
7286:
7287: x_return_status := l_ret_sts;
7288:
7289: IF (PO_LOG.d_proc) THEN
7290: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7291: PO_LOG.proc_end(d_module, 'p_document_status', x_document_status);
7292: PO_LOG.proc_end(d_module);
7293: END IF;
7294:
7287: x_return_status := l_ret_sts;
7288:
7289: IF (PO_LOG.d_proc) THEN
7290: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7291: PO_LOG.proc_end(d_module, 'p_document_status', x_document_status);
7292: PO_LOG.proc_end(d_module);
7293: END IF;
7294:
7295: RETURN;
7288:
7289: IF (PO_LOG.d_proc) THEN
7290: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7291: PO_LOG.proc_end(d_module, 'p_document_status', x_document_status);
7292: PO_LOG.proc_end(d_module);
7293: END IF;
7294:
7295: RETURN;
7296:
7296:
7297: EXCEPTION
7298: WHEN others THEN
7299: x_return_status := 'U';
7300: IF (PO_LOG.d_exc) THEN
7301: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7302: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7303: PO_LOG.proc_end(d_module);
7304: END IF;
7297: EXCEPTION
7298: WHEN others THEN
7299: x_return_status := 'U';
7300: IF (PO_LOG.d_exc) THEN
7301: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7302: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7303: PO_LOG.proc_end(d_module);
7304: END IF;
7305:
7298: WHEN others THEN
7299: x_return_status := 'U';
7300: IF (PO_LOG.d_exc) THEN
7301: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7302: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7303: PO_LOG.proc_end(d_module);
7304: END IF;
7305:
7306: RETURN;
7299: x_return_status := 'U';
7300: IF (PO_LOG.d_exc) THEN
7301: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7302: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7303: PO_LOG.proc_end(d_module);
7304: END IF;
7305:
7306: RETURN;
7307:
7408:
7409: BEGIN
7410:
7411: d_progress := 0;
7412: IF (PO_LOG.d_proc) THEN
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7409: BEGIN
7410:
7411: d_progress := 0;
7412: IF (PO_LOG.d_proc) THEN
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7410:
7411: d_progress := 0;
7412: IF (PO_LOG.d_proc) THEN
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7411: d_progress := 0;
7412: IF (PO_LOG.d_proc) THEN
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7412: IF (PO_LOG.d_proc) THEN
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7420: PO_LOG.proc_begin(d_module, 'p_uom', p_uom);
7413: PO_LOG.proc_begin(d_module);
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7420: PO_LOG.proc_begin(d_module, 'p_uom', p_uom);
7421: END IF;
7414: PO_LOG.proc_begin(d_module, 'p_src_doc_header_id', p_src_doc_header_id);
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7420: PO_LOG.proc_begin(d_module, 'p_uom', p_uom);
7421: END IF;
7422:
7415: PO_LOG.proc_begin(d_module, 'p_src_doc_line_num', p_src_doc_line_num);
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7420: PO_LOG.proc_begin(d_module, 'p_uom', p_uom);
7421: END IF;
7422:
7423: d_progress := 5;
7416: PO_LOG.proc_begin(d_module, 'p_deliver_to_loc_id', p_deliver_to_loc_id);
7417: PO_LOG.proc_begin(d_module, 'p_required_currency', p_required_currency);
7418: PO_LOG.proc_begin(d_module, 'p_required_rate_type', p_required_rate_type);
7419: PO_LOG.proc_begin(d_module, 'p_quantity', p_quantity);
7420: PO_LOG.proc_begin(d_module, 'p_uom', p_uom);
7421: END IF;
7422:
7423: d_progress := 5;
7424:
7423: d_progress := 5;
7424:
7425: l_quantity := NVL(p_quantity, -1);
7426:
7427: IF (PO_LOG.d_stmt) THEN
7428: PO_LOG.stmt(d_module, d_progress, 'l_quanity', l_quantity);
7429: END IF;
7430:
7431: d_progress := 10;
7424:
7425: l_quantity := NVL(p_quantity, -1);
7426:
7427: IF (PO_LOG.d_stmt) THEN
7428: PO_LOG.stmt(d_module, d_progress, 'l_quanity', l_quantity);
7429: END IF;
7430:
7431: d_progress := 10;
7432:
7444: d_progress := 17;
7445: l_ship_to_loc_id := NULL;
7446: END;
7447:
7448: IF (PO_LOG.d_stmt) THEN
7449: PO_LOG.stmt(d_module, d_progress, 'l_ship_to_loc_id', l_ship_to_loc_id);
7450: END IF;
7451:
7452: d_progress := 20;
7445: l_ship_to_loc_id := NULL;
7446: END;
7447:
7448: IF (PO_LOG.d_stmt) THEN
7449: PO_LOG.stmt(d_module, d_progress, 'l_ship_to_loc_id', l_ship_to_loc_id);
7450: END IF;
7451:
7452: d_progress := 20;
7453:
7474: l_do_non_loc_cursor := FALSE;
7475: END IF;
7476:
7477: d_progress := 30;
7478: IF (PO_LOG.d_stmt) THEN
7479: PO_LOG.stmt(d_module, d_progress, 'l_do_non_loc_cursor', l_do_non_loc_cursor);
7480: END IF;
7481:
7482: IF loc_unit_price_cur%ISOPEN THEN
7475: END IF;
7476:
7477: d_progress := 30;
7478: IF (PO_LOG.d_stmt) THEN
7479: PO_LOG.stmt(d_module, d_progress, 'l_do_non_loc_cursor', l_do_non_loc_cursor);
7480: END IF;
7481:
7482: IF loc_unit_price_cur%ISOPEN THEN
7483: CLOSE loc_unit_price_cur;
7523:
7524: d_progress := 50;
7525:
7526: x_return_status := l_ret_sts;
7527: IF (PO_LOG.d_proc) THEN
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7524: d_progress := 50;
7525:
7526: x_return_status := l_ret_sts;
7527: IF (PO_LOG.d_proc) THEN
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7525:
7526: x_return_status := l_ret_sts;
7527: IF (PO_LOG.d_proc) THEN
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7526: x_return_status := l_ret_sts;
7527: IF (PO_LOG.d_proc) THEN
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7527: IF (PO_LOG.d_proc) THEN
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7528: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7529: PO_LOG.proc_end(d_module, 'x_return_uom', x_return_uom);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7537: PO_LOG.proc_end(d_module);
7530: PO_LOG.proc_end(d_module, 'x_base_price', x_base_price);
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7537: PO_LOG.proc_end(d_module);
7538: END IF;
7531: PO_LOG.proc_end(d_module, 'x_currency_price', x_currency_price);
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7537: PO_LOG.proc_end(d_module);
7538: END IF;
7539:
7532: PO_LOG.proc_end(d_module, 'x_discount', x_discount);
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7537: PO_LOG.proc_end(d_module);
7538: END IF;
7539:
7540: EXCEPTION
7533: PO_LOG.proc_end(d_module, 'x_currency_code', x_currency_code);
7534: PO_LOG.proc_end(d_module, 'x_rate_type', x_rate_type);
7535: PO_LOG.proc_end(d_module, 'x_rate_date', x_rate_date);
7536: PO_LOG.proc_end(d_module, 'x_rate', x_rate);
7537: PO_LOG.proc_end(d_module);
7538: END IF;
7539:
7540: EXCEPTION
7541: WHEN OTHERS THEN
7549: END IF;
7550:
7551: x_return_status := 'U';
7552:
7553: IF (PO_LOG.d_exc) THEN
7554: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7555: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7556: PO_LOG.proc_end(d_module);
7557: END IF;
7550:
7551: x_return_status := 'U';
7552:
7553: IF (PO_LOG.d_exc) THEN
7554: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7555: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7556: PO_LOG.proc_end(d_module);
7557: END IF;
7558:
7551: x_return_status := 'U';
7552:
7553: IF (PO_LOG.d_exc) THEN
7554: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7555: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7556: PO_LOG.proc_end(d_module);
7557: END IF;
7558:
7559: RETURN;
7552:
7553: IF (PO_LOG.d_exc) THEN
7554: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
7555: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
7556: PO_LOG.proc_end(d_module);
7557: END IF;
7558:
7559: RETURN;
7560: END get_default_price;
7766: FUNCTION get_default_legal_entity_id(p_org_id IN NUMBER) RETURN NUMBER
7767: IS
7768: l_legal_entity_id NUMBER;
7769: l_module_name CONSTANT VARCHAR2(100) := 'GET_DEFAULT_LEGAL_ENTITY_ID';
7770: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
7771: g_log_head, l_module_name);
7772: d_progress NUMBER;
7773: BEGIN
7774: IF (PO_LOG.d_proc) THEN
7770: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(
7771: g_log_head, l_module_name);
7772: d_progress NUMBER;
7773: BEGIN
7774: IF (PO_LOG.d_proc) THEN
7775: PO_LOG.proc_begin(d_module_base);
7776: PO_LOG.proc_begin(d_module_base, 'p_org_id', p_org_id);
7777: END IF;
7778:
7771: g_log_head, l_module_name);
7772: d_progress NUMBER;
7773: BEGIN
7774: IF (PO_LOG.d_proc) THEN
7775: PO_LOG.proc_begin(d_module_base);
7776: PO_LOG.proc_begin(d_module_base, 'p_org_id', p_org_id);
7777: END IF;
7778:
7779: d_progress := 0;
7772: d_progress NUMBER;
7773: BEGIN
7774: IF (PO_LOG.d_proc) THEN
7775: PO_LOG.proc_begin(d_module_base);
7776: PO_LOG.proc_begin(d_module_base, 'p_org_id', p_org_id);
7777: END IF;
7778:
7779: d_progress := 0;
7780: l_legal_entity_id := XLE_UTILITIES_GRP.Get_DefaultLegalContext_OU(p_org_id);
7779: d_progress := 0;
7780: l_legal_entity_id := XLE_UTILITIES_GRP.Get_DefaultLegalContext_OU(p_org_id);
7781:
7782: d_progress := 10;
7783: IF (PO_LOG.d_proc) THEN
7784: PO_LOG.proc_end(d_module_base);
7785: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7786: END IF;
7787:
7780: l_legal_entity_id := XLE_UTILITIES_GRP.Get_DefaultLegalContext_OU(p_org_id);
7781:
7782: d_progress := 10;
7783: IF (PO_LOG.d_proc) THEN
7784: PO_LOG.proc_end(d_module_base);
7785: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7786: END IF;
7787:
7788: d_progress := 20;
7781:
7782: d_progress := 10;
7783: IF (PO_LOG.d_proc) THEN
7784: PO_LOG.proc_end(d_module_base);
7785: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7786: END IF;
7787:
7788: d_progress := 20;
7789: return l_legal_entity_id;
7788: d_progress := 20;
7789: return l_legal_entity_id;
7790: EXCEPTION
7791: WHEN OTHERS THEN
7792: IF (PO_LOG.d_exc) THEN
7793: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
7794: PO_LOG.proc_end(d_module_base);
7795: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7796: END IF;
7789: return l_legal_entity_id;
7790: EXCEPTION
7791: WHEN OTHERS THEN
7792: IF (PO_LOG.d_exc) THEN
7793: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
7794: PO_LOG.proc_end(d_module_base);
7795: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7796: END IF;
7797:
7790: EXCEPTION
7791: WHEN OTHERS THEN
7792: IF (PO_LOG.d_exc) THEN
7793: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
7794: PO_LOG.proc_end(d_module_base);
7795: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7796: END IF;
7797:
7798: RAISE;
7791: WHEN OTHERS THEN
7792: IF (PO_LOG.d_exc) THEN
7793: PO_LOG.exc(d_module_base, d_progress, SQLCODE || SQLERRM);
7794: PO_LOG.proc_end(d_module_base);
7795: PO_LOG.proc_end(d_module_base, 'l_legal_entity_id', l_legal_entity_id);
7796: END IF;
7797:
7798: RAISE;
7799: END get_default_legal_entity_id;
7830: --Lowest date supported by database as we need to handle null dates
7831: min_date PO_HEADERS_ALL.last_update_date%type := to_date('01/01/-4712','DD/MM/SYYYY');
7832:
7833: l_module_name CONSTANT VARCHAR2(100) := 'GET_LAST_UPDATE_DATE_FOR_DOC';
7834: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(g_log_head, l_module_name);
7835: d_pos NUMBER := 0;
7836:
7837: BEGIN
7838: IF (PO_LOG.d_proc) THEN
7834: d_module_base CONSTANT VARCHAR2(100) := PO_LOG.get_subprogram_base(g_log_head, l_module_name);
7835: d_pos NUMBER := 0;
7836:
7837: BEGIN
7838: IF (PO_LOG.d_proc) THEN
7839: PO_LOG.proc_begin(d_module_base); PO_LOG.proc_begin(d_module_base, 'p_doc_header_id', p_doc_header_id);
7840: END IF;
7841: d_pos := 10;
7842: select nvl(max(last_update_date), min_date) into header_last_update_date from po_headers_all where po_header_id = p_doc_header_id;
7835: d_pos NUMBER := 0;
7836:
7837: BEGIN
7838: IF (PO_LOG.d_proc) THEN
7839: PO_LOG.proc_begin(d_module_base); PO_LOG.proc_begin(d_module_base, 'p_doc_header_id', p_doc_header_id);
7840: END IF;
7841: d_pos := 10;
7842: select nvl(max(last_update_date), min_date) into header_last_update_date from po_headers_all where po_header_id = p_doc_header_id;
7843: d_pos := 20;
7851: ,line_last_update_date
7852: ,line_loc_last_update_date
7853: ,dist_last_update_date);
7854:
7855: IF (PO_LOG.d_stmt) THEN
7856: PO_LOG.stmt(d_module_base, d_pos, 'doc_last_update_date', doc_last_update_date);
7857: END IF;
7858: d_pos := 60;
7859: IF (PO_LOG.d_proc) THEN
7852: ,line_loc_last_update_date
7853: ,dist_last_update_date);
7854:
7855: IF (PO_LOG.d_stmt) THEN
7856: PO_LOG.stmt(d_module_base, d_pos, 'doc_last_update_date', doc_last_update_date);
7857: END IF;
7858: d_pos := 60;
7859: IF (PO_LOG.d_proc) THEN
7860: PO_LOG.proc_end(d_module_base);
7855: IF (PO_LOG.d_stmt) THEN
7856: PO_LOG.stmt(d_module_base, d_pos, 'doc_last_update_date', doc_last_update_date);
7857: END IF;
7858: d_pos := 60;
7859: IF (PO_LOG.d_proc) THEN
7860: PO_LOG.proc_end(d_module_base);
7861: END IF;
7862: return(doc_last_update_date);
7863: EXCEPTION
7856: PO_LOG.stmt(d_module_base, d_pos, 'doc_last_update_date', doc_last_update_date);
7857: END IF;
7858: d_pos := 60;
7859: IF (PO_LOG.d_proc) THEN
7860: PO_LOG.proc_end(d_module_base);
7861: END IF;
7862: return(doc_last_update_date);
7863: EXCEPTION
7864: WHEN OTHERS THEN
7862: return(doc_last_update_date);
7863: EXCEPTION
7864: WHEN OTHERS THEN
7865: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_module_name|| ':'||d_pos);
7866: IF (PO_LOG.d_exc) THEN
7867: PO_LOG.exc(d_module_base, d_pos, SQLCODE || SQLERRM);
7868: END IF;
7869: RAISE;
7870: END;
7863: EXCEPTION
7864: WHEN OTHERS THEN
7865: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_module_name|| ':'||d_pos);
7866: IF (PO_LOG.d_exc) THEN
7867: PO_LOG.exc(d_module_base, d_pos, SQLCODE || SQLERRM);
7868: END IF;
7869: RAISE;
7870: END;
7871: --