62: BEGIN
63: -- Start standard API initialization
64: SAVEPOINT control_document_GRP;
65: IF FND_API.to_boolean(p_init_msg_list) THEN
66: FND_MSG_PUB.initialize;
67: END IF;
68: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
69: l_api_name, g_pkg_name)
70: 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;
97: RAISE FND_API.g_exc_error;
98: END IF;
99:
100: val_doc_params(p_api_version => 1.0,
159: x_return_status := FND_API.g_ret_sts_unexp_error;
160: WHEN OTHERS THEN
161: ROLLBACK TO control_document_GRP;
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 ||
160: WHEN OTHERS THEN
161: ROLLBACK TO control_document_GRP;
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');
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;
238: RAISE FND_API.g_exc_error;
239: END IF;
240:
241: val_doc_params(p_api_version => 1.0,
287: WHEN FND_API.g_exc_unexpected_error THEN
288: x_return_status := FND_API.g_ret_sts_unexp_error;
289: WHEN OTHERS THEN
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 ||
288: x_return_status := FND_API.g_ret_sts_unexp_error;
289: WHEN OTHERS THEN
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');
343:
344: BEGIN
345: -- Start standard API initialization
346: IF FND_API.to_boolean(p_init_msg_list) THEN
347: FND_MSG_PUB.initialize;
348: END IF;
349: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
350: l_api_name, g_pkg_name)
351: THEN
396: WHEN FND_API.g_exc_unexpected_error THEN
397: x_return_status := FND_API.g_ret_sts_unexp_error;
398: WHEN OTHERS THEN
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 ||
397: x_return_status := FND_API.g_ret_sts_unexp_error;
398: WHEN OTHERS THEN
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');
449:
450: BEGIN
451: -- Start standard API initialization
452: IF FND_API.to_boolean(p_init_msg_list) THEN
453: FND_MSG_PUB.initialize;
454: END IF;
455: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
456: l_api_name, g_pkg_name)
457: THEN
496: WHEN FND_API.g_exc_unexpected_error THEN
497: x_return_status := FND_API.g_ret_sts_unexp_error;
498: WHEN OTHERS THEN
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 ||
497: x_return_status := FND_API.g_ret_sts_unexp_error;
498: WHEN OTHERS THEN
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');
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;
567: RAISE FND_API.g_exc_error;
568: END IF; --
569:
570: -- initialize outputs
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;
668: RAISE FND_API.g_exc_error;
669: END IF; --
670:
671: END IF; --
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;
686: WHEN FND_API.g_exc_error THEN
687: x_return_status := FND_API.g_ret_sts_error;
688: WHEN OTHERS THEN
689: x_return_status := FND_API.g_ret_sts_unexp_error;
686: WHEN FND_API.g_exc_error THEN
687: x_return_status := FND_API.g_ret_sts_error;
688: WHEN OTHERS THEN
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 ||
687: x_return_status := FND_API.g_ret_sts_error;
688: WHEN OTHERS THEN
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');
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;
759: RAISE FND_API.g_exc_error;
760: END IF; --
761:
762: -- initialize output
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;
868: WHEN FND_API.g_exc_error THEN
869: x_return_status := FND_API.g_ret_sts_error;
870: WHEN OTHERS THEN
871: x_return_status := FND_API.g_ret_sts_unexp_error;
868: WHEN FND_API.g_exc_error THEN
869: x_return_status := FND_API.g_ret_sts_error;
870: WHEN OTHERS THEN
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 ||
869: x_return_status := FND_API.g_ret_sts_error;
870: WHEN OTHERS THEN
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');
925:
926: BEGIN
927: -- Start standard API initialization
928: IF FND_API.to_boolean(p_init_msg_list) THEN
929: FND_MSG_PUB.initialize;
930: END IF;
931: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
932: l_api_name, g_pkg_name)
933: 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;
966: RAISE FND_API.g_exc_error;
967: END IF;
968:
969: IF (p_doc_type IN ('PO','PA')) 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;
981: RAISE FND_API.g_exc_error;
982: END IF; --
983:
984: val_po_params(p_doc_type => p_doc_type,
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;
1009: RAISE FND_API.g_exc_error;
1010: END IF; --
1011:
1012: val_rel_params(p_doc_type => p_doc_type,
1031: WHEN FND_API.g_exc_unexpected_error THEN
1032: x_return_status := FND_API.g_ret_sts_unexp_error;
1033: WHEN OTHERS THEN
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 ||
1032: x_return_status := FND_API.g_ret_sts_unexp_error;
1033: WHEN OTHERS THEN
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');