[Home] [Help]
81: FND_LOG.message(FND_LOG.level_error, g_module_prefix || l_api_name
82: || '.invalid_doc_type', FALSE);
83: END IF;
84: END IF;
85: FND_MSG_PUB.add;
86: RAISE FND_API.g_exc_error;
87: END IF; --
88:
89: EXCEPTION
91: --Handling deadlock with proper error message
92: WHEN RESOURCE_BUSY THEN
93: x_return_status := FND_API.g_ret_sts_error;
94: FND_MESSAGE.set_name('PO','PO_ALL_CANNOT_RESERVE_RECORD');
95: FND_MSG_PUB.add;
96: --
97: WHEN NO_DATA_FOUND OR TOO_MANY_ROWS THEN
98: x_return_status := FND_API.g_ret_sts_error;
99: FND_MESSAGE.set_name('PO','PO_CONTROL_LOCK_FAILED');
102: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
103: '.lock_failed', FALSE);
104: END IF;
105: END IF;
106: FND_MSG_PUB.add;
107: WHEN FND_API.g_exc_error THEN
108: x_return_status := FND_API.g_ret_sts_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
109: WHEN FND_API.g_exc_unexpected_error THEN
110: x_return_status := FND_API.g_ret_sts_unexp_error;
111: WHEN OTHERS THEN
112: x_return_status := FND_API.g_ret_sts_unexp_error;
113: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
114: IF (g_debug_unexp) THEN
115: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
116: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
117: l_api_name || '.others_exception', 'Exception');
124: ---------------------------------------------------------------------------
125: --Start of Comments
126: --Name: control_document
127: --Pre-reqs:
128: -- FND_MSG_PUB has been initialized if p_init_msg_list is false.
129: --Modifies:
130: -- All columns related to the control action, and WHO columns.
131: -- PO_ONLINE_REPORT_TEXT.
132: -- FND_MSG_PUB.
128: -- FND_MSG_PUB has been initialized if p_init_msg_list is false.
129: --Modifies:
130: -- All columns related to the control action, and WHO columns.
131: -- PO_ONLINE_REPORT_TEXT.
132: -- FND_MSG_PUB.
133: --Locks:
134: -- Document at header level, and at entity level(s) specified.
135: --Function:
136: -- Performs the control action p_action on the specified document. Currently,
140: -- p_doc_line_loc_id are not NULL. Executes at line level if only p_doc_id
141: -- and p_doc_line_id are not NULL. Executes at header level if only p_doc_id
142: -- is not NULL. The document will be printed if it is a PO, PA, or RELEASE,
143: -- and the p_print_flag is 'Y'. All changes will be committed upon success if
144: -- p_commit is FND_API.G_TRUE. Appends to FND_MSG_PUB message list on error
145: --Parameters:
146: --IN:
147: --p_api_version
148: --p_init_msg_list
249: BEGIN
250: -- Start standard API initialization
251: SAVEPOINT control_document_PVT;
252: IF FND_API.to_boolean(p_init_msg_list) THEN
253: FND_MSG_PUB.initialize;
254: END IF;
255: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
256: l_api_name, g_pkg_name)
257: THEN
304: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
305: '.security_check_failed', FALSE);
306: END IF;
307: END IF;
308: FND_MSG_PUB.add;
309: RAISE FND_API.g_exc_error;
310: END IF;
311:
312: -- Validate that this control action is allowable
802: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
803: '.invalid_action', FALSE);
804: END IF;
805: END IF;
806: FND_MSG_PUB.add;
807: RAISE FND_API.g_exc_error;
808:
809: END IF; --
810:
849: FND_LOG.message(FND_LOG.level_event, g_module_prefix || l_api_name ||
850: '.print_request', FALSE);
851: END IF;
852: END IF;
853: FND_MSG_PUB.add;
854:
855: END IF; --
856: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
857: FND_LOG.string(FND_LOG.LEVEL_STATEMENT, g_module_prefix ||
894: x_return_status := FND_API.g_ret_sts_unexp_error;
895: WHEN OTHERS THEN
896: ROLLBACK TO control_document_PVT;
897: x_return_status := FND_API.g_ret_sts_unexp_error;
898: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
899: IF (g_debug_unexp) 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');
938:
939: BEGIN
940: -- Start standard API initialization
941: IF FND_API.to_boolean(p_init_msg_list) THEN
942: FND_MSG_PUB.initialize;
943: END IF;
944: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
945: l_api_name, g_pkg_name)
946: THEN
1009: WHEN FND_API.g_exc_unexpected_error THEN
1010: x_return_status := FND_API.g_ret_sts_unexp_error;
1011: WHEN OTHERS THEN
1012: x_return_status := FND_API.g_ret_sts_unexp_error;
1013: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1014: IF (g_debug_unexp) THEN
1015: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1016: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1017: l_api_name || '.others_exception', 'Exception');
1052:
1053: BEGIN
1054: -- Start standard API initialization
1055: IF FND_API.to_boolean(p_init_msg_list) THEN
1056: FND_MSG_PUB.initialize;
1057: END IF;
1058: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1059: l_api_name, g_pkg_name)
1060: THEN
1118: x_return_status := FND_API.g_ret_sts_unexp_error;
1119: x_action_date := TRUNC(SYSDATE);
1120: WHEN OTHERS THEN
1121: x_return_status := FND_API.g_ret_sts_unexp_error;
1122: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1123: IF (g_debug_unexp) THEN
1124: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1125: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1126: l_api_name || '.others_exception', 'Exception');
1164:
1165: BEGIN
1166: -- Start standard API initialization
1167: IF FND_API.to_boolean(p_init_msg_list) THEN
1168: FND_MSG_PUB.initialize;
1169: END IF;
1170: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
1171: l_api_name, g_pkg_name)
1172: THEN
1208: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
1209: l_api_name || '.gl_period', FALSE);
1210: END IF;
1211: END IF;
1212: FND_MSG_PUB.add;
1213: RAISE FND_API.g_exc_error;
1214: END IF; -- if not in_open_gl_period ...
1215:
1216: END IF; -- if p_doc_type ...
1262: WHEN FND_API.g_exc_unexpected_error THEN
1263: x_return_status := FND_API.g_ret_sts_unexp_error;
1264: WHEN OTHERS THEN
1265: x_return_status := FND_API.g_ret_sts_unexp_error;
1266: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1267: IF (g_debug_unexp) THEN
1268: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1269: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1270: l_api_name || '.others_exception', 'Exception');
1278: --Name: get_header_actions
1279: --Pre-reqs:
1280: -- None.
1281: --Modifies:
1282: -- FND_MSG_PUB
1283: --Locks:
1284: -- None.
1285: --Function:
1286: -- Retrieves all allowable control actions that p_agent_id can perform on the
1482: x_return_status := FND_API.g_ret_sts_unexp_error;
1483: IF l_get_actions_csr%ISOPEN THEN
1484: CLOSE l_get_actions_csr;
1485: END IF;
1486: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1487: IF (g_debug_unexp) THEN
1488: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1489: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1490: l_api_name || '.others_exception', 'Exception');
1499: --Name: get_line_actions
1500: --Pre-reqs:
1501: -- None.
1502: --Modifies:
1503: -- FND_MSG_PUB
1504: --Locks:
1505: -- None.
1506: --Function:
1507: -- Retrieves all allowable control actions that p_agent_id can perform on the
1680: x_return_status := FND_API.g_ret_sts_unexp_error;
1681: IF l_get_actions_csr%ISOPEN THEN
1682: CLOSE l_get_actions_csr;
1683: END IF;
1684: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1685: IF (g_debug_unexp) THEN
1686: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1687: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1688: l_api_name || '.others_exception', 'Exception');
1697: --Name: get_shipment_actions
1698: --Pre-reqs:
1699: -- None.
1700: --Modifies:
1701: -- FND_MSG_PUB
1702: --Locks:
1703: -- None.
1704: --Function:
1705: -- Retrieves all allowable control actions that p_agent_id can perform on the
1890: x_return_status := FND_API.g_ret_sts_unexp_error;
1891: IF l_get_actions_csr%ISOPEN THEN
1892: CLOSE l_get_actions_csr;
1893: END IF;
1894: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
1895: IF (g_debug_unexp) THEN
1896: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1897: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
1898: l_api_name || '.others_exception', 'Exception');
1907: --Name: get_rel_header_actions
1908: --Pre-reqs:
1909: -- None.
1910: --Modifies:
1911: -- FND_MSG_PUB
1912: --Locks:
1913: -- None.
1914: --Function:
1915: -- Retrieves all allowable control actions that p_agent_id can perform on the
2089: x_return_status := FND_API.g_ret_sts_unexp_error;
2090: IF l_get_actions_csr%ISOPEN THEN
2091: CLOSE l_get_actions_csr;
2092: END IF;
2093: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2094: IF (g_debug_unexp) THEN
2095: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2096: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2097: l_api_name || '.others_exception', 'Exception');
2106: --Name: get_rel_header_actions
2107: --Pre-reqs:
2108: -- None.
2109: --Modifies:
2110: -- FND_MSG_PUB
2111: --Locks:
2112: -- None.
2113: --Function:
2114: -- Retrieves all allowable control actions that p_agent_id can perform on the
2258: x_return_status := FND_API.g_ret_sts_unexp_error;
2259: IF l_get_actions_csr%ISOPEN THEN
2260: CLOSE l_get_actions_csr;
2261: END IF;
2262: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2263: IF (g_debug_unexp) THEN
2264: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2265: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2266: l_api_name || '.others_exception', 'Exception');
2321:
2322: BEGIN
2323: -- Start standard API initialization
2324: IF FND_API.to_boolean(p_init_msg_list) THEN
2325: FND_MSG_PUB.initialize;
2326: END IF;
2327: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2328: l_api_name, g_pkg_name)
2329: THEN
2360:
2361: -- If the current entity: Header/Line/Shipent changed, return error
2362: IF l_current_entity_changed = 'Y' THEN
2363: FND_MESSAGE.set_name('PO','PO_CHANGED_CANT_CANCEL');
2364: FND_MSG_PUB.add;
2365: RAISE FND_API.g_exc_error;
2366: END IF;
2367: --
2368:
2405: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
2406: l_api_name || '.invalid_doc_ids', FALSE);
2407: END IF;
2408: END IF;
2409: FND_MSG_PUB.add;
2410: RAISE FND_API.g_exc_error;
2411: END IF; --
2412:
2413: ELSIF (p_doc_type IN ('PO','PA')) THEN
2465: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
2466: l_api_name || '.invalid_doc_ids', FALSE);
2467: END IF;
2468: END IF;
2469: FND_MSG_PUB.add;
2470: RAISE FND_API.g_exc_error;
2471: END IF; --
2472:
2473: ELSE
2479: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2480: '.invalid_doc_type', FALSE);
2481: END IF;
2482: END IF;
2483: FND_MSG_PUB.add;
2484: RAISE FND_API.g_exc_error;
2485: END IF; --
2486:
2487: -- Check if the get action procedure had an error
2493: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2494: '.get_action_failed', FALSE);
2495: END IF;
2496: END IF;
2497: FND_MSG_PUB.add;
2498: RAISE FND_API.g_exc_error;
2499: ELSIF (x_return_status = FND_API.g_ret_sts_unexp_error) THEN
2500: RAISE FND_API.g_exc_unexpected_error;
2501: END IF;
2519: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2520: '.status_failed', FALSE);
2521: END IF;
2522: END IF;
2523: FND_MSG_PUB.add;
2524: RAISE FND_API.g_exc_error;
2525: END IF;
2526:
2527: --
2554: END IF;
2555:
2556: IF (l_timecard_exists) THEN
2557: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
2558: FND_MSG_PUB.add;
2559: RAISE FND_API.g_exc_error;
2560: END IF;
2561:
2562: END IF; -- p_doc_type = 'PO'
2568: WHEN FND_API.g_exc_unexpected_error THEN
2569: x_return_status := FND_API.g_ret_sts_unexp_error;
2570: WHEN OTHERS THEN
2571: x_return_status := FND_API.g_ret_sts_unexp_error;
2572: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2573: IF (g_debug_unexp) THEN
2574: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2575: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2576: l_api_name || '.others_exception', 'Exception');
2641:
2642: BEGIN
2643: -- Start standard API initialization
2644: IF FND_API.to_boolean(p_init_msg_list) THEN
2645: FND_MSG_PUB.initialize;
2646: END IF;
2647: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2648: l_api_name, g_pkg_name)
2649: THEN
2669: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2670: '.invalid_doc_ids', FALSE);
2671: END IF;
2672: END IF;
2673: FND_MSG_PUB.add;
2674: RAISE FND_API.g_exc_error;
2675: END IF;
2676: CLOSE l_po_wf_csr;
2677:
2742: END IF;
2743: IF l_unapproved_releases_csr%ISOPEN THEN
2744: CLOSE l_unapproved_releases_csr;
2745: END IF;
2746: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2747: IF (g_debug_unexp) THEN
2748: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2749: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2750: l_api_name || '.others_exception', 'Exception');
2784:
2785: BEGIN
2786: -- Start standard API initialization
2787: IF FND_API.to_boolean(p_init_msg_list) THEN
2788: FND_MSG_PUB.initialize;
2789: END IF;
2790: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
2791: l_api_name, g_pkg_name)
2792: THEN
2812: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2813: '.invalid_doc_ids', FALSE);
2814: END IF;
2815: END IF;
2816: FND_MSG_PUB.add;
2817: RAISE FND_API.g_exc_error;
2818: END IF;
2819: CLOSE l_rel_wf_csr;
2820:
2841: x_return_status := FND_API.g_ret_sts_unexp_error;
2842: IF l_rel_wf_csr%ISOPEN THEN
2843: CLOSE l_rel_wf_csr;
2844: END IF;
2845: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2846: IF (g_debug_unexp) THEN
2847: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2848: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2849: l_api_name || '.others_exception', 'Exception');
2936: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
2937: '.request_failed', FALSE);
2938: END IF;
2939: END IF;
2940: FND_MSG_PUB.add;
2941: RAISE FND_API.g_exc_error;
2942: END IF;
2943:
2944: EXCEPTION
2947: WHEN FND_API.g_exc_unexpected_error THEN
2948: x_return_status := FND_API.g_ret_sts_unexp_error;
2949: WHEN OTHERS THEN
2950: x_return_status := FND_API.g_ret_sts_unexp_error;
2951: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2952: IF (g_debug_unexp) THEN
2953: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
2954: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
2955: l_api_name || '.others_exception', 'Exception');
3045: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3046: '.request_failed', FALSE);
3047: END IF;
3048: END IF;
3049: FND_MSG_PUB.add;
3050: RAISE FND_API.g_exc_error;
3051: END IF;
3052:
3053: EXCEPTION
3056: WHEN FND_API.g_exc_unexpected_error THEN
3057: x_return_status := FND_API.g_ret_sts_unexp_error;
3058: WHEN OTHERS THEN
3059: x_return_status := FND_API.g_ret_sts_unexp_error;
3060: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3061: IF (g_debug_unexp) THEN
3062: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3063: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3064: l_api_name || '.others_exception', 'Exception');
3149: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3150: '.request_failed', FALSE);
3151: END IF;
3152: END IF;
3153: FND_MSG_PUB.add;
3154: RAISE FND_API.g_exc_error;
3155: END IF;
3156:
3157: EXCEPTION
3160: WHEN FND_API.g_exc_unexpected_error THEN
3161: x_return_status := FND_API.g_ret_sts_unexp_error;
3162: WHEN OTHERS THEN
3163: x_return_status := FND_API.g_ret_sts_unexp_error;
3164: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3165: IF (g_debug_unexp) THEN
3166: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3167: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3168: l_api_name || '.others_exception', 'Exception');
3200:
3201: BEGIN
3202: -- Start standard API initialization
3203: IF FND_API.to_boolean(p_init_msg_list) THEN
3204: FND_MSG_PUB.initialize;
3205: END IF;
3206: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3207: l_api_name, g_pkg_name)
3208: THEN
3260: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3261: '.invalid_doc_type', FALSE);
3262: END IF;
3263: END IF;
3264: FND_MSG_PUB.add;
3265: RAISE FND_API.g_exc_error;
3266: END IF;
3267:
3268: EXCEPTION
3271: WHEN FND_API.g_exc_unexpected_error THEN
3272: x_return_status := FND_API.g_ret_sts_unexp_error;
3273: WHEN OTHERS THEN
3274: x_return_status := FND_API.g_ret_sts_unexp_error;
3275: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3276: IF (g_debug_unexp) THEN
3277: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3278: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3279: l_api_name || '.others_exception', 'Exception');
3314: BEGIN
3315: -- Start standard API initialization
3316: SAVEPOINT update_note_to_vendor_PVT;
3317: IF FND_API.to_boolean(p_init_msg_list) THEN
3318: FND_MSG_PUB.initialize;
3319: END IF;
3320: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3321: l_api_name, g_pkg_name)
3322: THEN
3351: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3352: '.invalid_document', FALSE);
3353: END IF;
3354: END IF;
3355: FND_MSG_PUB.add;
3356: RAISE FND_API.g_exc_error;
3357: END IF;
3358: --
3359:
3383: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3384: '.invalid_document', FALSE);
3385: END IF;
3386: END IF;
3387: FND_MSG_PUB.add;
3388: RAISE FND_API.g_exc_error;
3389: END IF;
3390: --
3391:
3415: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3416: '.invalid_document', FALSE);
3417: END IF;
3418: END IF;
3419: FND_MSG_PUB.add;
3420: RAISE FND_API.g_exc_error;
3421: END IF;
3422: --
3423:
3439: FND_LOG.message(FND_LOG.level_error, g_module_prefix||l_api_name||
3440: '.invalid_doc_type', FALSE);
3441: END IF;
3442: END IF;
3443: FND_MSG_PUB.add;
3444: RAISE FND_API.g_exc_error;
3445:
3446: END IF; --
3447:
3458: x_return_status := FND_API.g_ret_sts_unexp_error;
3459: WHEN OTHERS THEN
3460: ROLLBACK TO update_note_to_vendor_PVT;
3461: x_return_status := FND_API.g_ret_sts_unexp_error;
3462: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3463: IF (g_debug_unexp) THEN
3464: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3465: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3466: l_api_name || '.others_exception', 'Exception');
3499:
3500: BEGIN
3501: -- Start standard API initialization
3502: IF FND_API.to_boolean(p_init_msg_list) THEN
3503: FND_MSG_PUB.initialize;
3504: END IF;
3505: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3506: l_api_name, g_pkg_name)
3507: THEN
3547: x_return_status := FND_API.g_ret_sts_unexp_error;
3548: RETURN FALSE;
3549: WHEN OTHERS THEN
3550: x_return_status := FND_API.g_ret_sts_unexp_error;
3551: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3552: IF (g_debug_unexp) THEN
3553: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3554: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3555: l_api_name || '.others_exception', 'Exception');
3608:
3609: BEGIN
3610: -- Start standard API initialization
3611: IF FND_API.to_boolean(p_init_msg_list) THEN
3612: FND_MSG_PUB.initialize;
3613: END IF;
3614: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3615: l_api_name, g_pkg_name)
3616: THEN
3663: END IF;
3664: IF l_has_rel_ship_csr%ISOPEN THEN
3665: CLOSE l_has_rel_ship_csr;
3666: END IF;
3667: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3668: IF (g_debug_unexp) THEN
3669: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3670: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3671: l_api_name || '.others_exception', 'Exception');
3704:
3705: BEGIN
3706: -- Start standard API initialization
3707: IF FND_API.to_boolean(p_init_msg_list) THEN
3708: FND_MSG_PUB.initialize;
3709: END IF;
3710: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3711: l_api_name, g_pkg_name)
3712: THEN
3745: x_return_status := FND_API.g_ret_sts_unexp_error;
3746: RETURN FALSE;
3747: WHEN OTHERS THEN
3748: x_return_status := FND_API.g_ret_sts_unexp_error;
3749: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3750: IF (g_debug_unexp) THEN
3751: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3752: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3753: l_api_name || '.others_exception', 'Exception');
3803:
3804: BEGIN
3805: -- Start standard API initialization
3806: IF FND_API.to_boolean(p_init_msg_list) THEN
3807: FND_MSG_PUB.initialize;
3808: END IF;
3809: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3810: l_api_name, g_pkg_name)
3811: THEN
3843: x_return_status := FND_API.g_ret_sts_unexp_error;
3844: IF l_gl_period_csr%ISOPEN THEN
3845: CLOSE l_gl_period_csr;
3846: END IF;
3847: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3848: IF (g_debug_unexp) THEN
3849: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3850: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3851: l_api_name || '.others_exception', 'Exception');
3886:
3887: BEGIN
3888: -- Start standard API initialization
3889: IF FND_API.to_boolean(p_init_msg_list) THEN
3890: FND_MSG_PUB.initialize;
3891: END IF;
3892: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
3893: l_api_name, g_pkg_name)
3894: THEN
3918: FND_LOG.message(FND_LOG.level_error, g_module_prefix ||
3919: l_api_name || '.msg', FALSE);
3920: END IF;
3921: END IF;
3922: FND_MSG_PUB.add;
3923: END LOOP; --
3924:
3925: EXIT WHEN l_get_online_report_csr%NOTFOUND;
3926: END LOOP;
3934: WHEN FND_API.g_exc_unexpected_error THEN
3935: x_return_status := FND_API.g_ret_sts_unexp_error;
3936: WHEN OTHERS THEN
3937: x_return_status := FND_API.g_ret_sts_unexp_error;
3938: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
3939: IF (g_debug_unexp) THEN
3940: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
3941: FND_LOG.string(FND_LOG.level_unexpected, g_module_prefix ||
3942: l_api_name || '.others_exception', 'Exception');
3949: --Name: Val_Cancel_FinalClose_Action
3950: --Pre-reqs:
3951: -- None.
3952: --Modifies:
3953: -- FND_MSG_PUB.
3954: --Locks:
3955: -- None.
3956: --Function:
3957: -- This procedure would be responsible for validating the control action
4031: end if;
4032: d_pos := 40;
4033: if nvl(l_current_entity_changed, 'N') = 'Y' then
4034: FND_MESSAGE.set_name('PO','PO_CHANGED_CANT_CANCEL');
4035: FND_MSG_PUB.add;
4036: IF PO_LOG.d_exc THEN
4037: PO_LOG.exc(d_module,d_pos,'Current record does not match with record in Archive');
4038: END IF;
4039: RAISE FND_API.G_EXC_ERROR;
4070: END IF;
4071: d_pos := 80;
4072: IF (l_timecard_exists) THEN
4073: FND_MESSAGE.set_name('PO','PO_CONTROL_OTL_INVALID_ACTION');
4074: FND_MSG_PUB.add;
4075: IF PO_LOG.d_exc THEN
4076: PO_LOG.exc(d_module,d_pos,'Document with timecard cannot be Cancelled or Finally Closed');
4077: END IF;
4078: RAISE FND_API.G_EXC_ERROR;
4086: WHEN FND_API.g_exc_error THEN
4087: x_return_status := FND_API.g_ret_sts_error;
4088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4089: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4090: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
4091: IF PO_LOG.d_exc THEN
4092: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4093: END IF;
4094: WHEN OTHERS THEN
4092: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4093: END IF;
4094: WHEN OTHERS THEN
4095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4096: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4097: IF PO_LOG.d_exc THEN
4098: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4099: END IF;
4100: END Val_Cancel_FinalClose_Action;
4494: IF (l_return_code = 'STATE_FAILED') THEN
4495: d_pos := 210;
4496: -- The document state was not valid for this control action
4497: FND_MESSAGE.set_name('PO','PO_APP_APP_FAILED');
4498: FND_MSG_PUB.add;
4499: RAISE FND_API.g_exc_error;
4500: ELSIF (l_return_code = 'SUBMISSION_FAILED') THEN
4501: d_pos := 220;
4502: -- Submission check failed for final close action
4503: IF l_online_report_id IS NULL THEN
4504: FND_MESSAGE.set_name('PO','PO_CONTROL_USER_EXIT_FAILED');
4505: FND_MESSAGE.set_token('USER_EXIT', l_control_action_disp_name);
4506: FND_MESSAGE.set_token('RETURN_CODE',NVL(l_return_code, fnd_message.get_string('PO','PO_ERROR')));
4507: FND_MSG_PUB.add;
4508: ELSE
4509: d_pos := 230;
4510: --Add all the messages to the message list
4511: PO_Document_Control_PVT.add_online_report_msgs(
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555: x_return_status := FND_API.g_ret_sts_unexp_error;
4556: IF PO_LOG.d_exc THEN
4557: PO_LOG.exc(d_module,d_pos,'Unexpected Error in ' || d_module);
4558: IF FND_MSG_PUB.count_msg = 0 THEN
4559: FND_MESSAGE.set_name('PO','PO_DOC_CONTROL_ACTION_FAILED');
4560: FND_MESSAGE.set_token('CONTROL_ACTION_NAME', l_control_action_disp_name);
4561: FND_MESSAGE.set_token('ERROR_TEXT',l_exc_msg);
4562: FND_MSG_PUB.add;
4558: IF FND_MSG_PUB.count_msg = 0 THEN
4559: FND_MESSAGE.set_name('PO','PO_DOC_CONTROL_ACTION_FAILED');
4560: FND_MESSAGE.set_token('CONTROL_ACTION_NAME', l_control_action_disp_name);
4561: FND_MESSAGE.set_token('ERROR_TEXT',l_exc_msg);
4562: FND_MSG_PUB.add;
4563: END IF;
4564: END IF;
4565: WHEN OTHERS THEN
4566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4563: END IF;
4564: END IF;
4565: WHEN OTHERS THEN
4566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4567: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4568: IF PO_LOG.d_exc THEN
4569: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4570: END IF;
4571: END do_control_action;
4801: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4802: x_return_status := FND_API.g_ret_sts_error;
4803: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4804: --Copy the messages on the list to the out parameter
4805: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
4806: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4807: x_error_msg_tbl.extend;
4808: x_error_msg_tbl(i) := FND_MESSAGE.get;
4809: END LOOP;
4802: x_return_status := FND_API.g_ret_sts_error;
4803: x_error_msg_tbl := PO_TBL_VARCHAR2000();
4804: --Copy the messages on the list to the out parameter
4805: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
4806: FND_MESSAGE.set_encoded(encoded_message => FND_MSG_PUB.get(p_msg_index => i));
4807: x_error_msg_tbl.extend;
4808: x_error_msg_tbl(i) := FND_MESSAGE.get;
4809: END LOOP;
4810: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4815: END IF;
4816: WHEN OTHERS THEN
4817: ROLLBACK TO SAVEPOINT PROCESS_DOC_CONTROL_ACTION;
4818: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4819: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4820: IF PO_LOG.d_exc THEN
4821: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4822: END IF;
4823: END process_doc_control_action;
4937:
4938: return (l_has_labor_expense_req);
4939: EXCEPTION
4940: WHEN OTHERS THEN
4941: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
4942: IF PO_LOG.d_exc THEN
4943: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
4944: END IF;
4945: RAISE;
5076: PO_LOG.stmt(d_module,d_pos,'Early exit from ' || d_module);
5077: END IF;
5078: WHEN OTHERS THEN
5079: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5080: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
5081: IF PO_LOG.d_exc THEN
5082: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
5083: END IF;
5084: END get_cancel_req_chkbox_attr;
5345: END IF;
5346: EXCEPTION
5347: WHEN OTHERS THEN
5348: x_return_status := FND_API.g_ret_sts_unexp_error;
5349: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name||':'||d_pos);
5350: IF PO_LOG.d_exc THEN
5351: PO_LOG.exc(d_module,d_pos,'Unhandled Exception in' || d_module);
5352: END IF;
5353: END get_valid_control_actions;