2: /* $Header: PO_CONTROL_ACTION_VALIDATIONS.plb 120.1.12020000.3 2013/04/10 09:09:16 jozhong noship $ */
3:
4:
5: -- The module base for this package.
6: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL));
7: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL));
8: g_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('PO_CONTROL_ACTION_VALIDATIONS');
9:
10:
3:
4:
5: -- The module base for this package.
6: g_debug_stmt CONSTANT BOOLEAN := (PO_DEBUG.is_debug_stmt_on And (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL));
7: g_debug_unexp CONSTANT BOOLEAN := (PO_DEBUG.is_debug_unexp_on AND (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL));
8: g_pkg_name CONSTANT varchar2(50) := PO_LOG.get_package_base('PO_CONTROL_ACTION_VALIDATIONS');
9:
10:
11: --------------------------------------------------------------
231: x_return_status := FND_API.G_RET_STS_ERROR;
232:
233: WHEN OTHERS THEN
234: IF (G_DEBUG_UNEXP) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
236: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
237: || l_progress || ' SQL CODE IS '||sqlcode);
238: END IF;
239:
394: x_return_status := FND_API.G_RET_STS_ERROR;
395:
396: WHEN OTHERS THEN
397: IF (G_DEBUG_UNEXP) THEN
398: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
399: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
400: || l_progress || ' SQL CODE IS '||sqlcode);
401: END IF;
402:
595: x_return_status := FND_API.G_RET_STS_ERROR;
596:
597: WHEN OTHERS THEN
598: IF (G_DEBUG_UNEXP) THEN
599: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
600: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
601: || l_progress || ' SQL CODE IS '||sqlcode);
602: END IF;
603:
756: x_return_status := FND_API.G_RET_STS_ERROR;
757:
758: WHEN OTHERS THEN
759: IF (G_DEBUG_UNEXP) THEN
760: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
761: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
762: || l_progress || ' SQL CODE IS '||sqlcode);
763: END IF;
764:
944: x_return_status := FND_API.G_RET_STS_ERROR;
945:
946: WHEN OTHERS THEN
947: IF (G_DEBUG_UNEXP) THEN
948: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
949: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
950: || l_progress || ' SQL CODE IS '||sqlcode);
951: END IF;
952:
1112: x_return_status := FND_API.G_RET_STS_ERROR;
1113:
1114: WHEN OTHERS THEN
1115: IF (G_DEBUG_UNEXP) THEN
1116: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1117: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
1118: || l_progress || ' SQL CODE IS '||sqlcode);
1119: END IF;
1120:
1282: x_return_status := FND_API.G_RET_STS_ERROR;
1283:
1284: WHEN OTHERS THEN
1285: IF (G_DEBUG_UNEXP) THEN
1286: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1287: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
1288: || l_progress || ' SQL CODE IS '||sqlcode);
1289: END IF;
1290:
1462: x_return_status := FND_API.G_RET_STS_ERROR;
1463:
1464: WHEN OTHERS THEN
1465: IF (G_DEBUG_UNEXP) THEN
1466: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1467: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
1468: || l_progress || ' SQL CODE IS '||sqlcode);
1469: END IF;
1470:
1670: x_return_status := FND_API.G_RET_STS_ERROR;
1671:
1672: WHEN OTHERS THEN
1673: IF (G_DEBUG_UNEXP) THEN
1674: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1675: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
1676: || l_progress || ' SQL CODE IS '||sqlcode);
1677: END IF;
1678:
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866:
1867: WHEN OTHERS THEN
1868: IF (G_DEBUG_UNEXP) THEN
1869: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1870: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
1871: || l_progress || ' SQL CODE IS '||sqlcode);
1872: END IF;
1873:
2060: x_return_status := FND_API.G_RET_STS_ERROR;
2061:
2062: WHEN OTHERS THEN
2063: IF (G_DEBUG_UNEXP) THEN
2064: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2065: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2066: || l_progress || ' SQL CODE IS '||sqlcode);
2067: END IF;
2068:
2242: x_return_status := FND_API.G_RET_STS_ERROR;
2243:
2244: WHEN OTHERS THEN
2245: IF (G_DEBUG_UNEXP) THEN
2246: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2247: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2248: || l_progress || ' SQL CODE IS '||sqlcode);
2249: END IF;
2250:
2400: x_return_status := FND_API.G_RET_STS_ERROR;
2401:
2402: WHEN OTHERS THEN
2403: IF (G_DEBUG_UNEXP) THEN
2404: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2405: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2406: || l_progress || ' SQL CODE IS '||sqlcode);
2407: END IF;
2408:
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2560:
2561: WHEN OTHERS THEN
2562: IF (G_DEBUG_UNEXP) THEN
2563: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2564: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2565: || l_progress || ' SQL CODE IS '||sqlcode);
2566: END IF;
2567:
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729:
2730: WHEN OTHERS THEN
2731: IF (G_DEBUG_UNEXP) THEN
2732: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2733: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2734: || l_progress || ' SQL CODE IS '||sqlcode);
2735: END IF;
2736:
2895: x_return_status := FND_API.G_RET_STS_ERROR;
2896:
2897: WHEN OTHERS THEN
2898: IF (G_DEBUG_UNEXP) THEN
2899: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2900: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
2901: || l_progress || ' SQL CODE IS '||sqlcode);
2902: END IF;
2903:
3051: x_return_status := FND_API.G_RET_STS_ERROR;
3052:
3053: WHEN OTHERS THEN
3054: IF (G_DEBUG_UNEXP) THEN
3055: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3056: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
3057: || l_progress || ' SQL CODE IS '||sqlcode);
3058: END IF;
3059:
3273: x_return_status := FND_API.G_RET_STS_ERROR;
3274:
3275: WHEN OTHERS THEN
3276: IF (G_DEBUG_UNEXP) THEN
3277: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3278: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
3279: || l_progress || ' SQL CODE IS '||sqlcode);
3280: END IF;
3281:
3419: x_return_status := FND_API.G_RET_STS_ERROR;
3420:
3421: WHEN OTHERS THEN
3422: IF (G_DEBUG_UNEXP) THEN
3423: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3424: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
3425: || l_progress || ' SQL CODE IS '||sqlcode);
3426: END IF;
3427:
3504: x_return_status := FND_API.G_RET_STS_ERROR;
3505:
3506: WHEN OTHERS THEN
3507: IF (G_DEBUG_UNEXP) THEN
3508: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3509: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
3510: || l_progress || ' SQL CODE IS '||sqlcode);
3511: END IF;
3512:
4112: x_return_status := FND_API.G_RET_STS_ERROR;
4113:
4114: WHEN OTHERS THEN
4115: IF (G_DEBUG_UNEXP) THEN
4116: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4117: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
4118: || l_progress || ' SQL CODE IS '||sqlcode);
4119: END IF;
4120:
4264: x_return_status := FND_API.G_RET_STS_ERROR;
4265:
4266: WHEN OTHERS THEN
4267: IF (G_DEBUG_UNEXP) THEN
4268: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4269: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
4270: || l_progress || ' SQL CODE IS '||sqlcode);
4271: END IF;
4272:
4567: x_return_status := FND_API.G_RET_STS_ERROR;
4568:
4569: WHEN OTHERS THEN
4570: IF (G_DEBUG_UNEXP) THEN
4571: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4572: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
4573: || l_progress || ' SQL CODE IS '||sqlcode);
4574: END IF;
4575:
4876: x_return_status := FND_API.G_RET_STS_ERROR;
4877:
4878: WHEN OTHERS THEN
4879: IF (G_DEBUG_UNEXP) THEN
4880: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
4881: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
4882: || l_progress || ' SQL CODE IS '||sqlcode);
4883: END IF;
4884:
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: FND_MSG_PUB.add_exc_msg(g_pkg_name, d_api_name||':'||l_progress||':'||SQLCODE||':'||SQLERRM);
5230: WHEN OTHERS THEN
5231: IF (G_DEBUG_UNEXP) THEN
5232: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5233: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
5234: || l_progress || ' SQL CODE IS '||sqlcode);
5235: END IF;
5236:
5527: x_return_status := FND_API.G_RET_STS_ERROR;
5528:
5529: WHEN OTHERS THEN
5530: IF (G_DEBUG_UNEXP) THEN
5531: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5532: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
5533: || l_progress || ' SQL CODE IS '||sqlcode);
5534: END IF;
5535:
5723: WHEN OTHERS THEN
5724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5725:
5726: IF (G_DEBUG_UNEXP) THEN
5727: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
5728: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
5729: || l_progress || ' SQL CODE IS '||sqlcode);
5730: END IF;
5731:
6180: x_return_status := FND_API.G_RET_STS_ERROR;
6181:
6182: WHEN OTHERS THEN
6183: IF (G_DEBUG_UNEXP) THEN
6184: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6185: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
6186: || l_progress || ' SQL CODE IS '||sqlcode);
6187: END IF;
6188:
6479: x_return_status := FND_API.G_RET_STS_ERROR;
6480:
6481: WHEN OTHERS THEN
6482: IF (G_DEBUG_UNEXP) THEN
6483: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6484: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
6485: || l_progress || ' SQL CODE IS '||sqlcode);
6486: END IF;
6487:
6637: x_return_status := FND_API.G_RET_STS_ERROR;
6638:
6639: WHEN OTHERS THEN
6640: IF (G_DEBUG_UNEXP) THEN
6641: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6642: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
6643: || l_progress || ' SQL CODE IS '||sqlcode);
6644: END IF;
6645:
6969: x_msg_data := FND_MSG_PUB.GET(P_MSG_INDEX => FND_MSG_PUB.G_LAST,
6970: P_ENCODED => 'F');
6971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6972: IF (G_DEBUG_UNEXP) THEN
6973: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6974: d_module || '.UNEXPECTED_EXCEPTION', 'EXCEPTION: LOCATION IS '
6975: || l_progress || ' SQL CODE IS '||sqlcode);
6976: END IF;
6977:
6981: P_ENCODED => 'F');
6982: x_return_status := FND_API.G_RET_STS_ERROR;
6983:
6984: IF (G_DEBUG_UNEXP) THEN
6985: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6986: d_module || '.ERROR', 'ERROR: LOCATION IS '
6987: || l_progress || ' SQL CODE IS '||sqlcode);
6988: END IF;
6989:
6988: END IF;
6989:
6990: WHEN OTHERS THEN
6991: IF (G_DEBUG_UNEXP) THEN
6992: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
6993: d_module || '.OTHERS_EXCEPTION', 'EXCEPTION: LOCATION IS '
6994: || l_progress || ' SQL CODE IS '||sqlcode);
6995: END IF;
6996: