73: x_return_status := FND_API.g_ret_sts_success;
74: -- End standard API initialization
75:
76: IF (g_fnd_debug = 'Y') THEN
77: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
79: '.invoked', 'Source: ' || NVL(p_source,'null') ||
80: ', Action: ' || NVL(p_action,'null') ||
81: ', Type: ' || NVL(p_doc_type,'null') ||
74: -- End standard API initialization
75:
76: IF (g_fnd_debug = 'Y') THEN
77: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
78: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
79: '.invoked', 'Source: ' || NVL(p_source,'null') ||
80: ', Action: ' || NVL(p_action,'null') ||
81: ', Type: ' || NVL(p_doc_type,'null') ||
82: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
87: IF (p_action NOT IN ('CANCEL')) THEN
88: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
89: FND_MESSAGE.set_token('ACTION',p_action);
90: IF (g_fnd_debug = 'Y') THEN
91: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
92: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
93: '.invalid_action', FALSE);
94: END IF;
95: END IF;
88: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
89: FND_MESSAGE.set_token('ACTION',p_action);
90: IF (g_fnd_debug = 'Y') THEN
91: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
92: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
93: '.invalid_action', FALSE);
94: END IF;
95: END IF;
96: FND_MSG_PUB.add;
162: x_return_status := FND_API.g_ret_sts_unexp_error;
163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
165: IF (g_fnd_debug = 'Y') THEN
166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
167: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
168: l_api_name || '.others_exception', 'Exception');
169: END IF;
170: END IF;
163: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
165: IF (g_fnd_debug = 'Y') THEN
166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
167: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
168: l_api_name || '.others_exception', 'Exception');
169: END IF;
170: END IF;
171: END IF;
215: BEGIN
216: x_return_status := FND_API.g_ret_sts_success;
217:
218: IF (g_fnd_debug = 'Y') THEN
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
220: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
221: '.invoked', 'Action: ' || NVL(p_action,'null') ||
222: ', Type: ' || NVL(p_doc_type,'null') ||
223: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
216: x_return_status := FND_API.g_ret_sts_success;
217:
218: IF (g_fnd_debug = 'Y') THEN
219: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
220: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
221: '.invoked', 'Action: ' || NVL(p_action,'null') ||
222: ', Type: ' || NVL(p_doc_type,'null') ||
223: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
224: END IF;
228: IF (p_action NOT IN ('CANCEL')) THEN
229: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
230: FND_MESSAGE.set_token('ACTION',p_action);
231: IF (g_fnd_debug = 'Y') THEN
232: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
233: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
234: '.invalid_action', FALSE);
235: END IF;
236: END IF;
229: FND_MESSAGE.set_name('PO','PO_CONTROL_INVALID_ACTION');
230: FND_MESSAGE.set_token('ACTION',p_action);
231: IF (g_fnd_debug = 'Y') THEN
232: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
233: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
234: '.invalid_action', FALSE);
235: END IF;
236: END IF;
237: FND_MSG_PUB.add;
290: x_return_status := FND_API.g_ret_sts_unexp_error;
291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
292: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
293: IF (g_fnd_debug = 'Y') THEN
294: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
295: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
296: l_api_name || '.others_exception', 'Exception');
297: END IF;
298: END IF;
291: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
292: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
293: IF (g_fnd_debug = 'Y') THEN
294: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
295: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
296: l_api_name || '.others_exception', 'Exception');
297: END IF;
298: END IF;
299: END IF;
359: l_agent_id := -1;
360: END IF;
361:
362: IF (g_fnd_debug = 'Y') THEN
363: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
364: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
365: '.invoked', 'Action: ' || NVL(p_action,'null') ||
366: ', Type: ' || NVL(p_doc_type,'null') ||
367: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
360: END IF;
361:
362: IF (g_fnd_debug = 'Y') THEN
363: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
364: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
365: '.invoked', 'Action: ' || NVL(p_action,'null') ||
366: ', Type: ' || NVL(p_doc_type,'null') ||
367: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
368: ', agent ID: ' || NVL(TO_CHAR(l_agent_id),'null'));
399: x_return_status := FND_API.g_ret_sts_unexp_error;
400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
401: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
402: IF (g_fnd_debug = 'Y') THEN
403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
404: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
405: l_api_name || '.others_exception', 'Exception');
406: END IF;
407: END IF;
400: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
401: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
402: IF (g_fnd_debug = 'Y') THEN
403: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
404: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
405: l_api_name || '.others_exception', 'Exception');
406: END IF;
407: END IF;
408: END IF;
460: x_return_status := FND_API.g_ret_sts_success;
461: -- End standard API initialization
462:
463: IF (g_fnd_debug = 'Y') THEN
464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
465: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
466: '.invoked', 'Action: ' || NVL(p_action,'null') ||
467: ', Type: ' || NVL(p_doc_type,'null') ||
468: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
461: -- End standard API initialization
462:
463: IF (g_fnd_debug = 'Y') THEN
464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
465: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
466: '.invoked', 'Action: ' || NVL(p_action,'null') ||
467: ', Type: ' || NVL(p_doc_type,'null') ||
468: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
469: END IF;
499: x_return_status := FND_API.g_ret_sts_unexp_error;
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: IF (g_fnd_debug = 'Y') THEN
503: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
504: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
505: l_api_name || '.others_exception', 'Exception');
506: END IF;
507: END IF;
500: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
501: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
502: IF (g_fnd_debug = 'Y') THEN
503: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
504: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
505: l_api_name || '.others_exception', 'Exception');
506: END IF;
507: END IF;
508: END IF;
544: BEGIN
545: x_return_status := FND_API.g_ret_sts_success;
546:
547: IF (g_fnd_debug = 'Y') THEN
548: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
549: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
550: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
551: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
552: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
545: x_return_status := FND_API.g_ret_sts_success;
546:
547: IF (g_fnd_debug = 'Y') THEN
548: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
549: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
550: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
551: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
552: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null') ||
553: ', Num: ' || NVL(p_doc_num,'null'));
557: -- Must have a document ID or document num
558: IF (p_doc_id IS NULL) AND (p_doc_num IS NULL) THEN
559: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
560: IF (g_fnd_debug = 'Y') THEN
561: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
562: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
563: || '.invalid_doc_ids', FALSE);
564: END IF;
565: END IF;
558: IF (p_doc_id IS NULL) AND (p_doc_num IS NULL) THEN
559: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
560: IF (g_fnd_debug = 'Y') THEN
561: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
562: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
563: || '.invalid_doc_ids', FALSE);
564: END IF;
565: END IF;
566: FND_MSG_PUB.add;
596: WHERE poh.po_header_id = p_doc_id;
597: END IF;
598:
599: IF (g_fnd_debug = 'Y') THEN
600: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
601: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
602: '.validated_header', 'ID: ' || NVL(TO_CHAR(x_doc_id),'null'));
603: END IF;
604: END IF;
597: END IF;
598:
599: IF (g_fnd_debug = 'Y') THEN
600: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
601: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
602: '.validated_header', 'ID: ' || NVL(TO_CHAR(x_doc_id),'null'));
603: END IF;
604: END IF;
605:
619: pol.po_header_id = x_doc_id;
620: END IF; --
621:
622: IF (g_fnd_debug = 'Y') THEN
623: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
624: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
625: l_api_name || '.validated_line', 'ID: ' ||
626: NVL(TO_CHAR(x_doc_line_id),'null'));
627: END IF;
620: END IF; --
621:
622: IF (g_fnd_debug = 'Y') THEN
623: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
624: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
625: l_api_name || '.validated_line', 'ID: ' ||
626: NVL(TO_CHAR(x_doc_line_id),'null'));
627: END IF;
628: END IF;
648: poll.po_header_id = x_doc_id;
649: END IF; --
650:
651: IF (g_fnd_debug = 'Y') THEN
652: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
653: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
654: l_api_name || '.validated_shipment', 'ID: ' ||
655: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
656: END IF;
649: END IF; --
650:
651: IF (g_fnd_debug = 'Y') THEN
652: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
653: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
654: l_api_name || '.validated_shipment', 'ID: ' ||
655: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
656: END IF;
657: END IF;
658:
659: ELSE
660: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
661: IF (g_fnd_debug = 'Y') THEN
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
663: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
664: l_api_name || '.pa_has_ship_ids', FALSE);
665: END IF;
666: END IF;
659: ELSE
660: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
661: IF (g_fnd_debug = 'Y') THEN
662: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
663: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
664: l_api_name || '.pa_has_ship_ids', FALSE);
665: END IF;
666: END IF;
667: FND_MSG_PUB.add;
676: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
677: x_return_status := FND_API.g_ret_sts_error;
678: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
679: IF (g_fnd_debug = 'Y') THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
681: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
682: '.invalid_doc_ids', FALSE);
683: END IF;
684: END IF;
677: x_return_status := FND_API.g_ret_sts_error;
678: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
679: IF (g_fnd_debug = 'Y') THEN
680: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
681: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
682: '.invalid_doc_ids', FALSE);
683: END IF;
684: END IF;
685: FND_MSG_PUB.add;
689: x_return_status := FND_API.g_ret_sts_unexp_error;
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
691: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
692: IF (g_fnd_debug = 'Y') THEN
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
694: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
695: l_api_name || '.others_exception', 'Exception');
696: END IF;
697: END IF;
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
691: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
692: IF (g_fnd_debug = 'Y') THEN
693: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
694: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
695: l_api_name || '.others_exception', 'Exception');
696: END IF;
697: END IF;
698: END IF;
735: BEGIN
736: x_return_status := FND_API.g_ret_sts_success;
737:
738: IF (g_fnd_debug = 'Y') THEN
739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
740: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
741: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
742: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
743: ', ID: ' || NVL(TO_CHAR(p_release_id),'null') ||
736: x_return_status := FND_API.g_ret_sts_success;
737:
738: IF (g_fnd_debug = 'Y') THEN
739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
740: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
741: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
742: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
743: ', ID: ' || NVL(TO_CHAR(p_release_id),'null') ||
744: ', Num: ' || NVL(TO_CHAR(p_release_num),'null'));
749: IF (p_release_id IS NULL) AND (p_doc_id IS NULL) AND (p_doc_num IS NULL)
750: THEN
751: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
752: IF (g_fnd_debug = 'Y') THEN
753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
754: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
755: || '.invalid_doc_ids', FALSE);
756: END IF;
757: END IF;
750: THEN
751: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
752: IF (g_fnd_debug = 'Y') THEN
753: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
754: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
755: || '.invalid_doc_ids', FALSE);
756: END IF;
757: END IF;
758: FND_MSG_PUB.add;
812: WHERE por.po_release_id = x_doc_id;
813: END IF; --
814:
815: IF (g_fnd_debug = 'Y') THEN
816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
817: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
818: '.validated_rel_header', 'ID: ' ||
819: NVL(TO_CHAR(x_doc_id),'null'));
820: END IF;
813: END IF; --
814:
815: IF (g_fnd_debug = 'Y') THEN
816: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
817: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix || l_api_name ||
818: '.validated_rel_header', 'ID: ' ||
819: NVL(TO_CHAR(x_doc_id),'null'));
820: END IF;
821: END IF;
844: poll.po_release_id = x_doc_id;
845: END IF; --
846:
847: IF (g_fnd_debug = 'Y') THEN
848: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
849: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
850: l_api_name || '.validated_rel_shipment', 'ID: ' ||
851: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
852: END IF;
845: END IF; --
846:
847: IF (g_fnd_debug = 'Y') THEN
848: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
849: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
850: l_api_name || '.validated_rel_shipment', 'ID: ' ||
851: NVL(TO_CHAR(x_doc_line_loc_id),'null'));
852: END IF;
853: END IF;
858: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
859: x_return_status := FND_API.g_ret_sts_error;
860: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
861: IF (g_fnd_debug = 'Y') THEN
862: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
863: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
864: '.invalid_doc_ids', FALSE);
865: END IF;
866: END IF;
859: x_return_status := FND_API.g_ret_sts_error;
860: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
861: IF (g_fnd_debug = 'Y') THEN
862: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
863: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
864: '.invalid_doc_ids', FALSE);
865: END IF;
866: END IF;
867: FND_MSG_PUB.add;
871: x_return_status := FND_API.g_ret_sts_unexp_error;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
873: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
874: IF (g_fnd_debug = 'Y') THEN
875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
876: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
877: l_api_name || '.others_exception', 'Exception');
878: END IF;
879: END IF;
872: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
873: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
874: IF (g_fnd_debug = 'Y') THEN
875: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
876: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
877: l_api_name || '.others_exception', 'Exception');
878: END IF;
879: END IF;
880: END IF;
936: x_return_status := FND_API.g_ret_sts_success;
937: -- End standard API initialization
938:
939: IF (g_fnd_debug = 'Y') THEN
940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
942: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
943: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
944: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
937: -- End standard API initialization
938:
939: IF (g_fnd_debug = 'Y') THEN
940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
941: FND_LOG.string(FND_LOG.LEVEL_PROCEDURE, g_module_prefix || l_api_name ||
942: '.invoked', 'Type: ' || NVL(p_doc_type,'null') ||
943: ', Subtype: ' || NVL(p_doc_subtype,'null') ||
944: ', ID: ' || NVL(TO_CHAR(p_doc_id),'null'));
945: END IF;
956: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_TYPE_SUBTYPE');
957: FND_MESSAGE.set_token('TYPE',p_doc_type);
958: FND_MESSAGE.set_token('SUBTYPE',p_doc_subtype);
959: IF (g_fnd_debug = 'Y') THEN
960: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
961: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
962: '.invalid_doc_type', FALSE);
963: END IF;
964: END IF;
957: FND_MESSAGE.set_token('TYPE',p_doc_type);
958: FND_MESSAGE.set_token('SUBTYPE',p_doc_subtype);
959: IF (g_fnd_debug = 'Y') THEN
960: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
961: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
962: '.invalid_doc_type', FALSE);
963: END IF;
964: END IF;
965: FND_MSG_PUB.add;
971: IF (p_release_id IS NOT NULL) OR (p_release_num IS NOT NULL) THEN
972: -- Should not pass in release info for POs and PAs
973: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
974: IF (g_fnd_debug = 'Y') THEN
975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
976: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
977: '.po_pa_has_release_info', FALSE);
978: END IF;
979: END IF;
972: -- Should not pass in release info for POs and PAs
973: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
974: IF (g_fnd_debug = 'Y') THEN
975: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
976: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
977: '.po_pa_has_release_info', FALSE);
978: END IF;
979: END IF;
980: FND_MSG_PUB.add;
999: IF (p_doc_line_id IS NOT NULL) OR (p_doc_line_num IS NOT NULL) THEN
1000: -- Releases don't have lines
1001: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1002: IF (g_fnd_debug = 'Y') THEN
1003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1004: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1005: '.release_has_line_ids', FALSE);
1006: END IF;
1007: END IF;
1000: -- Releases don't have lines
1001: FND_MESSAGE.set_name('PO','PO_INVALID_DOC_IDS');
1002: IF (g_fnd_debug = 'Y') THEN
1003: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR) THEN
1004: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name ||
1005: '.release_has_line_ids', FALSE);
1006: END IF;
1007: END IF;
1008: FND_MSG_PUB.add;
1034: x_return_status := FND_API.g_ret_sts_unexp_error;
1035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1036: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1037: IF (g_fnd_debug = 'Y') THEN
1038: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1039: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1040: l_api_name || '.others_exception', 'Exception');
1041: END IF;
1042: END IF;
1035: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1036: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1037: IF (g_fnd_debug = 'Y') THEN
1038: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1039: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1040: l_api_name || '.others_exception', 'Exception');
1041: END IF;
1042: END IF;
1043: END IF;