93: x_return_status := FND_API.g_ret_sts_success;
94: -- End standard API initialization
95:
96: IF (g_fnd_debug = 'Y') THEN
97: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
98: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
99: '.invoked, Original', 'Source: ' || NVL(p_source,'null') ||
100: ', Action: ' || NVL(p_action,'null') ||
101: ', Type: ' || NVL(p_doc_type,'null') ||
94: -- End standard API initialization
95:
96: IF (g_fnd_debug = 'Y') THEN
97: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
98: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
99: '.invoked, Original', 'Source: ' || NVL(p_source,'null') ||
100: ', Action: ' || NVL(p_action,'null') ||
101: ', Type: ' || NVL(p_doc_type,'null') ||
102: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
107: IF (p_action NOT IN ('CANCEL')) THEN
108: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
109: FND_MESSAGE.set_token('ACTION',p_action);
110: IF (g_fnd_debug = 'Y') THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
112: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
113: '.invalid_action', FALSE);
114: END IF;
115: END IF;
108: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
109: FND_MESSAGE.set_token('ACTION',p_action);
110: IF (g_fnd_debug = 'Y') THEN
111: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
112: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
113: '.invalid_action', FALSE);
114: END IF;
115: END IF;
116: FND_MSG_PUB.add;
169: x_communication_method_value := null;
170: end if;
171:
172: IF (g_fnd_debug = 'Y') THEN
173: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
174: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
175: 'PO_VENDOR_SITES_GRP.Get_Transmission_Defaults.invoked, Original', 'x_email_flag: ' || NVL(x_email_flag,'null') ||
176: ', x_fax_flag: ' || NVL(x_fax_flag,'null') ||
177: ', x_communication_method_value: ' || NVL(x_communication_method_value,'null') ||
170: end if;
171:
172: IF (g_fnd_debug = 'Y') THEN
173: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
174: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
175: 'PO_VENDOR_SITES_GRP.Get_Transmission_Defaults.invoked, Original', 'x_email_flag: ' || NVL(x_email_flag,'null') ||
176: ', x_fax_flag: ' || NVL(x_fax_flag,'null') ||
177: ', x_communication_method_value: ' || NVL(x_communication_method_value,'null') ||
178: ', x_default_method: ' || NVL(TO_CHAR(x_default_method),'null'));
233: x_return_status := FND_API.g_ret_sts_unexp_error;
234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
235: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
236: IF (g_fnd_debug = 'Y') THEN
237: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
238: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
239: l_api_name || '.others_exception', 'Exception');
240: END IF;
241: END IF;
234: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
235: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
236: IF (g_fnd_debug = 'Y') THEN
237: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
238: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
239: l_api_name || '.others_exception', 'Exception');
240: END IF;
241: END IF;
242: END IF;
315: x_return_status := FND_API.g_ret_sts_success;
316: -- End standard API initialization
317:
318: IF (g_fnd_debug = 'Y') THEN
319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
321: '.invoked, Overloaded', 'Source: ' || NVL(p_source,'null') ||
322: ', Action: ' || NVL(p_action,'null') ||
323: ', Type: ' || NVL(p_doc_type,'null') ||
316: -- End standard API initialization
317:
318: IF (g_fnd_debug = 'Y') THEN
319: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
320: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
321: '.invoked, Overloaded', 'Source: ' || NVL(p_source,'null') ||
322: ', Action: ' || NVL(p_action,'null') ||
323: ', Type: ' || NVL(p_doc_type,'null') ||
324: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
331: IF (p_action NOT IN ('CANCEL')) THEN
332: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
333: FND_MESSAGE.set_token('ACTION',p_action);
334: IF (g_fnd_debug = 'Y') THEN
335: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
336: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
337: '.invalid_action', FALSE);
338: END IF;
339: END IF;
332: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
333: FND_MESSAGE.set_token('ACTION',p_action);
334: IF (g_fnd_debug = 'Y') THEN
335: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
336: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
337: '.invalid_action', FALSE);
338: END IF;
339: END IF;
340: FND_MSG_PUB.add;
425: --Bug 8792423 added exception
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: l_old_auth_status:=null;
429: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
431: 'API control_document exception', 'Authorization Status not found for '||p_doc_type);
432: END IF;
433: END;
426: EXCEPTION
427: WHEN NO_DATA_FOUND THEN
428: l_old_auth_status:=null;
429: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
430: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
431: 'API control_document exception', 'Authorization Status not found for '||p_doc_type);
432: END IF;
433: END;
434:
503: l_communication_method_value := null;
504: end if;
505:
506: IF (g_fnd_debug = 'Y') THEN
507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
508: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
509: 'PO_VENDOR_SITES_GRP.Get_Transmission_Defaults.invoked, Original', 'x_email_flag: ' || NVL(x_email_flag,'null') ||
510: ', x_fax_flag: ' || NVL(x_fax_flag,'null') ||
511: ', l_communication_method_value: ' || NVL(l_communication_method_value,'null') ||
504: end if;
505:
506: IF (g_fnd_debug = 'Y') THEN
507: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
508: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE,
509: 'PO_VENDOR_SITES_GRP.Get_Transmission_Defaults.invoked, Original', 'x_email_flag: ' || NVL(x_email_flag,'null') ||
510: ', x_fax_flag: ' || NVL(x_fax_flag,'null') ||
511: ', l_communication_method_value: ' || NVL(l_communication_method_value,'null') ||
512: ', x_default_method: ' || NVL(TO_CHAR(x_default_method),'null'));
560:
561:
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
565: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix , 'There is a problem '||'SQLCODE '|| SQLCODE
566: || 'SQLERRM '||SQLERRM);
567: END IF;
568:
561:
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
565: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix , 'There is a problem '||'SQLCODE '|| SQLCODE
566: || 'SQLERRM '||SQLERRM);
567: END IF;
568:
569: END control_document;
612: BEGIN
613: x_return_status := FND_API.g_ret_sts_success;
614:
615: IF (g_fnd_debug = 'Y') THEN
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
617: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
618: '.invoked', 'Action: ' || NVL(p_action,'null') ||
619: ', Type: ' || NVL(p_doc_type,'null') ||
620: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
613: x_return_status := FND_API.g_ret_sts_success;
614:
615: IF (g_fnd_debug = 'Y') THEN
616: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
617: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
618: '.invoked', 'Action: ' || NVL(p_action,'null') ||
619: ', Type: ' || NVL(p_doc_type,'null') ||
620: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
621: END IF;
625: IF (p_action NOT IN ('CANCEL')) THEN
626: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
627: FND_MESSAGE.set_token('ACTION',p_action);
628: IF (g_fnd_debug = 'Y') THEN
629: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
630: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
631: '.invalid_action', FALSE);
632: END IF;
633: END IF;
626: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
627: FND_MESSAGE.set_token('ACTION',p_action);
628: IF (g_fnd_debug = 'Y') THEN
629: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
630: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
631: '.invalid_action', FALSE);
632: END IF;
633: END IF;
634: FND_MSG_PUB.add;
687: x_return_status := FND_API.g_ret_sts_unexp_error;
688: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
689: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
690: IF (g_fnd_debug = 'Y') THEN
691: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
692: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
693: l_api_name || '.others_exception', 'Exception');
694: END IF;
695: END IF;
688: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
689: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
690: IF (g_fnd_debug = 'Y') THEN
691: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
692: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
693: l_api_name || '.others_exception', 'Exception');
694: END IF;
695: END IF;
696: END IF;
756: l_agent_id := -1;
757: END IF;
758:
759: IF (g_fnd_debug = 'Y') THEN
760: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
761: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
762: '.invoked', 'Action: ' || NVL(p_action,'null') ||
763: ', Type: ' || NVL(p_doc_type,'null') ||
764: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
757: END IF;
758:
759: IF (g_fnd_debug = 'Y') THEN
760: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
761: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
762: '.invoked', 'Action: ' || NVL(p_action,'null') ||
763: ', Type: ' || NVL(p_doc_type,'null') ||
764: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
765: ', agent ID: ' || NVL(TO_CHAR(l_agent_id),'null'));
796: x_return_status := FND_API.g_ret_sts_unexp_error;
797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
798: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
799: IF (g_fnd_debug = 'Y') THEN
800: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
801: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
802: l_api_name || '.others_exception', 'Exception');
803: END IF;
804: END IF;
797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
798: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
799: IF (g_fnd_debug = 'Y') THEN
800: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
801: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
802: l_api_name || '.others_exception', 'Exception');
803: END IF;
804: END IF;
805: END IF;
857: x_return_status := FND_API.g_ret_sts_success;
858: -- End standard API initialization
859:
860: IF (g_fnd_debug = 'Y') THEN
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
862: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
863: '.invoked', 'Action: ' || NVL(p_action,'null') ||
864: ', Type: ' || NVL(p_doc_type,'null') ||
865: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
858: -- End standard API initialization
859:
860: IF (g_fnd_debug = 'Y') THEN
861: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
862: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
863: '.invoked', 'Action: ' || NVL(p_action,'null') ||
864: ', Type: ' || NVL(p_doc_type,'null') ||
865: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
866: END IF;
896: x_return_status := FND_API.g_ret_sts_unexp_error;
897: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
898: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
899: IF (g_fnd_debug = 'Y') THEN
900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
901: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
902: l_api_name || '.others_exception', 'Exception');
903: END IF;
904: END IF;
897: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
898: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
899: IF (g_fnd_debug = 'Y') THEN
900: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
901: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
902: l_api_name || '.others_exception', 'Exception');
903: END IF;
904: END IF;
905: END IF;
941: BEGIN
942: x_return_status := FND_API.g_ret_sts_success;
943:
944: IF (g_fnd_debug = 'Y') THEN
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
947: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
948: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
949: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
942: x_return_status := FND_API.g_ret_sts_success;
943:
944: IF (g_fnd_debug = 'Y') THEN
945: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
946: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
947: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
948: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
949: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
950: ', Num: ' || NVL(p_doc_num,'null'));
954: -- Must have a document ID or document num
955: IF (p_doc_id IS NULL) AND (p_doc_num IS NULL) THEN
956: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
957: IF (g_fnd_debug = 'Y') THEN
958: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
959: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
960: || '.invalid_doc_ids', FALSE);
961: END IF;
962: END IF;
955: IF (p_doc_id IS NULL) AND (p_doc_num IS NULL) THEN
956: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
957: IF (g_fnd_debug = 'Y') THEN
958: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
959: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
960: || '.invalid_doc_ids', FALSE);
961: END IF;
962: END IF;
963: FND_MSG_PUB.add;
993: WHERE poh.po_header_id = p_doc_id;
994: END IF;
995:
996: IF (g_fnd_debug = 'Y') THEN
997: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
998: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
999: '.validated_header', 'ID: ' || NVL(TO_CHAR(x_doc_id),'null'));
1000: END IF;
1001: END IF;
994: END IF;
995:
996: IF (g_fnd_debug = 'Y') THEN
997: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
998: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
999: '.validated_header', 'ID: ' || NVL(TO_CHAR(x_doc_id),'null'));
1000: END IF;
1001: END IF;
1002:
1016: pol.po_header_id = x_doc_id;
1017: END IF; --
1018:
1019: IF (g_fnd_debug = 'Y') THEN
1020: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1021: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1022: l_api_name || '.validated_line', 'ID: ' ||
1023: NVL(TO_CHAR(x_doc_line_id),'null'));
1024: END IF;
1017: END IF; --
1018:
1019: IF (g_fnd_debug = 'Y') THEN
1020: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1021: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1022: l_api_name || '.validated_line', 'ID: ' ||
1023: NVL(TO_CHAR(x_doc_line_id),'null'));
1024: END IF;
1025: END IF;
1045: poll.po_header_id = x_doc_id;
1046: END IF; --
1047:
1048: IF (g_fnd_debug = 'Y') THEN
1049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1050: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1051: l_api_name || '.validated_shipment', 'ID: ' ||
1052: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
1053: END IF;
1046: END IF; --
1047:
1048: IF (g_fnd_debug = 'Y') THEN
1049: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1050: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1051: l_api_name || '.validated_shipment', 'ID: ' ||
1052: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
1053: END IF;
1054: END IF;
1055:
1056: ELSE
1057: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1058: IF (g_fnd_debug = 'Y') THEN
1059: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1060: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
1061: l_api_name || '.pa_has_ship_ids', FALSE);
1062: END IF;
1063: END IF;
1056: ELSE
1057: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1058: IF (g_fnd_debug = 'Y') THEN
1059: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1060: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
1061: l_api_name || '.pa_has_ship_ids', FALSE);
1062: END IF;
1063: END IF;
1064: FND_MSG_PUB.add;
1073: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
1074: x_return_status := FND_API.g_ret_sts_error;
1075: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1076: IF (g_fnd_debug = 'Y') THEN
1077: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1078: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1079: '.invalid_doc_ids', FALSE);
1080: END IF;
1081: END IF;
1074: x_return_status := FND_API.g_ret_sts_error;
1075: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1076: IF (g_fnd_debug = 'Y') THEN
1077: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1078: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1079: '.invalid_doc_ids', FALSE);
1080: END IF;
1081: END IF;
1082: FND_MSG_PUB.add;
1086: x_return_status := FND_API.g_ret_sts_unexp_error;
1087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1088: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1089: IF (g_fnd_debug = 'Y') THEN
1090: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1091: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1092: l_api_name || '.others_exception', 'Exception');
1093: END IF;
1094: END IF;
1087: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1088: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1089: IF (g_fnd_debug = 'Y') THEN
1090: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1091: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1092: l_api_name || '.others_exception', 'Exception');
1093: END IF;
1094: END IF;
1095: END IF;
1132: BEGIN
1133: x_return_status := FND_API.g_ret_sts_success;
1134:
1135: IF (g_fnd_debug = 'Y') THEN
1136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1138: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
1139: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
1140: ', ID: ' || NVL(TO_CHAR(p_release_id),'null') ||
1133: x_return_status := FND_API.g_ret_sts_success;
1134:
1135: IF (g_fnd_debug = 'Y') THEN
1136: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1137: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1138: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
1139: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
1140: ', ID: ' || NVL(TO_CHAR(p_release_id),'null') ||
1141: ', Num: ' || NVL(TO_CHAR(p_release_num),'null'));
1146: IF (p_release_id IS NULL) AND (p_doc_id IS NULL) AND (p_doc_num IS NULL)
1147: THEN
1148: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1149: IF (g_fnd_debug = 'Y') THEN
1150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1151: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
1152: || '.invalid_doc_ids', FALSE);
1153: END IF;
1154: END IF;
1147: THEN
1148: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1149: IF (g_fnd_debug = 'Y') THEN
1150: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1151: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
1152: || '.invalid_doc_ids', FALSE);
1153: END IF;
1154: END IF;
1155: FND_MSG_PUB.add;
1209: WHERE por.po_release_id = x_doc_id;
1210: END IF; --
1211:
1212: IF (g_fnd_debug = 'Y') THEN
1213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
1215: '.validated_rel_header', 'ID: ' ||
1216: NVL(TO_CHAR(x_doc_id),'null'));
1217: END IF;
1210: END IF; --
1211:
1212: IF (g_fnd_debug = 'Y') THEN
1213: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1214: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
1215: '.validated_rel_header', 'ID: ' ||
1216: NVL(TO_CHAR(x_doc_id),'null'));
1217: END IF;
1218: END IF;
1241: poll.po_release_id = x_doc_id;
1242: END IF; --
1243:
1244: IF (g_fnd_debug = 'Y') THEN
1245: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1246: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1247: l_api_name || '.validated_rel_shipment', 'ID: ' ||
1248: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
1249: END IF;
1242: END IF; --
1243:
1244: IF (g_fnd_debug = 'Y') THEN
1245: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
1246: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
1247: l_api_name || '.validated_rel_shipment', 'ID: ' ||
1248: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
1249: END IF;
1250: END IF;
1255: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
1256: x_return_status := FND_API.g_ret_sts_error;
1257: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1258: IF (g_fnd_debug = 'Y') THEN
1259: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1260: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1261: '.invalid_doc_ids', FALSE);
1262: END IF;
1263: END IF;
1256: x_return_status := FND_API.g_ret_sts_error;
1257: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1258: IF (g_fnd_debug = 'Y') THEN
1259: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1260: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1261: '.invalid_doc_ids', FALSE);
1262: END IF;
1263: END IF;
1264: FND_MSG_PUB.add;
1268: x_return_status := FND_API.g_ret_sts_unexp_error;
1269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1270: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1271: IF (g_fnd_debug = 'Y') THEN
1272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1273: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1274: l_api_name || '.others_exception', 'Exception');
1275: END IF;
1276: END IF;
1269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1270: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1271: IF (g_fnd_debug = 'Y') THEN
1272: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1273: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1274: l_api_name || '.others_exception', 'Exception');
1275: END IF;
1276: END IF;
1277: END IF;
1333: x_return_status := FND_API.g_ret_sts_success;
1334: -- End standard API initialization
1335:
1336: IF (g_fnd_debug = 'Y') THEN
1337: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1339: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
1340: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
1341: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
1334: -- End standard API initialization
1335:
1336: IF (g_fnd_debug = 'Y') THEN
1337: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1338: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
1339: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
1340: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
1341: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
1342: END IF;
1353: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_TYPE_SUBTYPE');
1354: FND_MESSAGE.set_token('TYPE',p_doc_type);
1355: FND_MESSAGE.set_token('SUBTYPE',p_doc_subtype);
1356: IF (g_fnd_debug = 'Y') THEN
1357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1358: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1359: '.invalid_doc_type', FALSE);
1360: END IF;
1361: END IF;
1354: FND_MESSAGE.set_token('TYPE',p_doc_type);
1355: FND_MESSAGE.set_token('SUBTYPE',p_doc_subtype);
1356: IF (g_fnd_debug = 'Y') THEN
1357: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1358: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1359: '.invalid_doc_type', FALSE);
1360: END IF;
1361: END IF;
1362: FND_MSG_PUB.add;
1368: IF (p_release_id IS NOT NULL) OR (p_release_num IS NOT NULL) THEN
1369: -- Should not pass in release info for POs and PAs
1370: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1371: IF (g_fnd_debug = 'Y') THEN
1372: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1373: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1374: '.po_pa_has_release_info', FALSE);
1375: END IF;
1376: END IF;
1369: -- Should not pass in release info for POs and PAs
1370: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1371: IF (g_fnd_debug = 'Y') THEN
1372: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1373: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1374: '.po_pa_has_release_info', FALSE);
1375: END IF;
1376: END IF;
1377: FND_MSG_PUB.add;
1396: IF (p_doc_line_id IS NOT NULL) OR (p_doc_line_num IS NOT NULL) THEN
1397: -- Releases don't have lines
1398: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1399: IF (g_fnd_debug = 'Y') THEN
1400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1401: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1402: '.release_has_line_ids', FALSE);
1403: END IF;
1404: END IF;
1397: -- Releases don't have lines
1398: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1399: IF (g_fnd_debug = 'Y') THEN
1400: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1401: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1402: '.release_has_line_ids', FALSE);
1403: END IF;
1404: END IF;
1405: FND_MSG_PUB.add;
1431: x_return_status := FND_API.g_ret_sts_unexp_error;
1432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1434: IF (g_fnd_debug = 'Y') THEN
1435: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1436: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1437: l_api_name || '.others_exception', 'Exception');
1438: END IF;
1439: END IF;
1432: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1433: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1434: IF (g_fnd_debug = 'Y') THEN
1435: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1436: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1437: l_api_name || '.others_exception', 'Exception');
1438: END IF;
1439: END IF;
1440: END IF;