32:
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
35: ------------------------------------------------------------------------------
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
36: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
37: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
38: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
39: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
40: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
41:
42: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
43: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
44: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
45:
46: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
47: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
48: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
218: x_last_update_date => l_last_update_date
219: );
220: --- If any errors happen abort API
221: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226:
220: --- If any errors happen abort API
221: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
223: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
224: RAISE FND_API.G_EXC_ERROR;
225: END IF;
226:
227: --- Reversing G_MISS/NULL values logic
228:
276: END IF;
277:
278: RETURN G_RET_STS_SUCCESS ;
279: EXCEPTION
280: WHEN FND_API.G_EXC_ERROR THEN
281: /*IF (l_debug = 'Y') THEN
282: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
283: END IF;*/
284:
278: RETURN G_RET_STS_SUCCESS ;
279: EXCEPTION
280: WHEN FND_API.G_EXC_ERROR THEN
281: /*IF (l_debug = 'Y') THEN
282: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
283: END IF;*/
284:
285: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
286: FND_LOG.STRING(G_PROC_LEVEL,
283: END IF;*/
284:
285: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
286: FND_LOG.STRING(G_PROC_LEVEL,
287: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
288: END IF;
289: RETURN G_RET_STS_ERROR;
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
287: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
288: END IF;
289: RETURN G_RET_STS_ERROR;
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292: /*IF (l_debug = 'Y') THEN
293: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
294: END IF;*/
295:
289: RETURN G_RET_STS_ERROR;
290:
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292: /*IF (l_debug = 'Y') THEN
293: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
294: END IF;*/
295:
296: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
297: FND_LOG.STRING(G_PROC_LEVEL,
294: END IF;*/
295:
296: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
297: FND_LOG.STRING(G_PROC_LEVEL,
298: G_PKG_NAME, '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
299: END IF;
300: RETURN G_RET_STS_UNEXP_ERROR;
301:
302: WHEN OTHERS THEN
321: ----------------------------------------------
322: -- Validate_Attributes for: OKC_K_ART_VARIABLES --
323: ----------------------------------------------
324: FUNCTION Validate_Attributes (
325: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
326:
327: p_cat_id IN NUMBER,
328: p_variable_code IN VARCHAR2,
329: p_variable_type IN VARCHAR2,
686: ------------------------------------------
687: -- Validate_Record for:OKC_K_ART_VARIABLES --
688: ------------------------------------------
689: FUNCTION Validate_Record (
690: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
691:
692: p_cat_id IN NUMBER,
693: p_variable_code IN VARCHAR2,
694: p_variable_type IN VARCHAR2,
848: x_attribute_value_set_id => l_attribute_value_set_id,
849: x_override_global_yn => l_override_global_yn
850: );
851: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856:
850: );
851: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
854: RAISE FND_API.G_EXC_ERROR;
855: END IF;
856:
857: -- Validate all non-missing attributes (Item Level Validation)
858: x_return_status := Validate_Record(
876: G_PKG_NAME, '3200: Leaving validate_row' );
877: END IF;
878:
879: EXCEPTION
880: WHEN FND_API.G_EXC_ERROR THEN
881: /*IF (l_debug = 'Y') THEN
882: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
883: END IF;*/
884:
878:
879: EXCEPTION
880: WHEN FND_API.G_EXC_ERROR THEN
881: /*IF (l_debug = 'Y') THEN
882: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
883: END IF;*/
884:
885: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
886: FND_LOG.STRING(G_EXCP_LEVEL,
883: END IF;*/
884:
885: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
886: FND_LOG.STRING(G_EXCP_LEVEL,
887: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
888: END IF;
889: x_return_status := G_RET_STS_ERROR;
890:
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
887: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
888: END IF;
889: x_return_status := G_RET_STS_ERROR;
890:
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: /*IF (l_debug = 'Y') THEN
893: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
894: END IF;*/
895:
889: x_return_status := G_RET_STS_ERROR;
890:
891: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
892: /*IF (l_debug = 'Y') THEN
893: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
894: END IF;*/
895:
896: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
897: FND_LOG.STRING(G_EXCP_LEVEL,
894: END IF;*/
895:
896: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
897: FND_LOG.STRING(G_EXCP_LEVEL,
898: G_PKG_NAME, '3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
899: END IF;
900: x_return_status := G_RET_STS_UNEXP_ERROR;
901:
902: WHEN OTHERS THEN
1078: p_override_global_yn => p_override_global_yn
1079: );
1080: --- If any errors happen abort API
1081: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086:
1080: --- If any errors happen abort API
1081: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1082: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1083: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1084: RAISE FND_API.G_EXC_ERROR;
1085: END IF;
1086:
1087: --------------------------------------------
1088: -- Call the internal Insert_Row for each child record
1112: p_last_update_login => l_last_update_login,
1113: p_last_update_date => l_last_update_date
1114: );
1115: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120:
1114: );
1115: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1117: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR;
1119: END IF;
1120:
1121:
1122:
1129: G_PKG_NAME, '4500: Leaving Insert_Row' );
1130: END IF;
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: /*IF (l_debug = 'Y') THEN
1135: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1136: END IF;*/
1137:
1131:
1132: EXCEPTION
1133: WHEN FND_API.G_EXC_ERROR THEN
1134: /*IF (l_debug = 'Y') THEN
1135: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1136: END IF;*/
1137:
1138: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1139: FND_LOG.STRING(G_EXCP_LEVEL,
1136: END IF;*/
1137:
1138: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1139: FND_LOG.STRING(G_EXCP_LEVEL,
1140: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
1141: END IF;
1142: x_return_status := G_RET_STS_ERROR;
1143:
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1140: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
1141: END IF;
1142: x_return_status := G_RET_STS_ERROR;
1143:
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1145: /*IF (l_debug = 'Y') THEN
1146: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1147: END IF;*/
1148:
1142: x_return_status := G_RET_STS_ERROR;
1143:
1144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1145: /*IF (l_debug = 'Y') THEN
1146: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1147: END IF;*/
1148:
1149: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1150: FND_LOG.STRING(G_EXCP_LEVEL,
1147: END IF;*/
1148:
1149: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1150: FND_LOG.STRING(G_EXCP_LEVEL,
1151: G_PKG_NAME, '4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1152: END IF;
1153: x_return_status := G_RET_STS_UNEXP_ERROR;
1154:
1155: WHEN OTHERS THEN
1330: p_variable_code => p_variable_code,
1331: p_object_version_number => p_object_version_number
1332: );
1333: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1336: RAISE FND_API.G_EXC_ERROR;
1337: END IF;
1338:
1332: );
1333: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1336: RAISE FND_API.G_EXC_ERROR;
1337: END IF;
1338:
1339:
1340:
1347: G_PKG_NAME, '6000: Leaving Lock_Row' );
1348: END IF;
1349:
1350: EXCEPTION
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: /*IF (l_debug = 'Y') THEN
1353: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1354: END IF;*/
1355:
1349:
1350: EXCEPTION
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: /*IF (l_debug = 'Y') THEN
1353: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1354: END IF;*/
1355:
1356: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1357: FND_LOG.STRING(G_EXCP_LEVEL,
1354: END IF;*/
1355:
1356: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1357: FND_LOG.STRING(G_EXCP_LEVEL,
1358: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1359: END IF;
1360: x_return_status := G_RET_STS_ERROR;
1361:
1362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1358: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1359: END IF;
1360: x_return_status := G_RET_STS_ERROR;
1361:
1362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1363: /*IF (l_debug = 'Y') THEN
1364: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1365: END IF;*/
1366:
1360: x_return_status := G_RET_STS_ERROR;
1361:
1362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1363: /*IF (l_debug = 'Y') THEN
1364: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1365: END IF;*/
1366:
1367: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1368: FND_LOG.STRING(G_EXCP_LEVEL,
1365: END IF;*/
1366:
1367: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1368: FND_LOG.STRING(G_EXCP_LEVEL,
1369: G_PKG_NAME, '6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1370: END IF;
1371: x_return_status := G_RET_STS_UNEXP_ERROR;
1372:
1373: WHEN OTHERS THEN
1522: p_variable_code => p_variable_code,
1523: p_object_version_number => p_object_version_number
1524: );
1525: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1524: );
1525: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1526: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1527: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1528: RAISE FND_API.G_EXC_ERROR;
1529: END IF;
1530:
1531: /*IF (l_debug = 'Y') THEN
1532: Okc_Debug.Log('7300: Setting attributes', 2);
1555: x_attribute_value_set_id => l_attribute_value_set_id,
1556: x_override_global_yn => l_override_global_yn
1557: );
1558: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563:
1557: );
1558: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1560: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1561: RAISE FND_API.G_EXC_ERROR;
1562: END IF;
1563:
1564: /*IF (l_debug = 'Y') THEN
1565: Okc_Debug.Log('7400: Record Validation', 2);
1583: p_override_global_yn => l_override_global_yn
1584: );
1585: --- If any errors happen abort API
1586: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF;
1591:
1585: --- If any errors happen abort API
1586: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1587: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1588: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1589: RAISE FND_API.G_EXC_ERROR;
1590: END IF;
1591:
1592: /*IF (l_debug = 'Y') THEN
1593: Okc_Debug.Log('7500: Filling WHO columns', 2);
1636: p_last_update_login => l_last_update_login,
1637: p_last_update_date => l_last_update_date
1638: );
1639: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1641: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1638: );
1639: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1641: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1642: RAISE FND_API.G_EXC_ERROR;
1643: END IF;
1644:
1645:
1646: /*IF (l_debug = 'Y') THEN
1652: G_PKG_NAME, '7800: Leaving Update_Row' );
1653: END IF;
1654:
1655: EXCEPTION
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: /*IF (l_debug = 'Y') THEN
1658: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1659: END IF;*/
1660:
1654:
1655: EXCEPTION
1656: WHEN FND_API.G_EXC_ERROR THEN
1657: /*IF (l_debug = 'Y') THEN
1658: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1659: END IF;*/
1660:
1661: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1662: FND_LOG.STRING(G_EXCP_LEVEL,
1659: END IF;*/
1660:
1661: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1662: FND_LOG.STRING(G_EXCP_LEVEL,
1663: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1664: END IF;
1665:
1666: x_return_status := G_RET_STS_ERROR;
1667:
1664: END IF;
1665:
1666: x_return_status := G_RET_STS_ERROR;
1667:
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: /*IF (l_debug = 'Y') THEN
1670: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1671: END IF;*/
1672:
1666: x_return_status := G_RET_STS_ERROR;
1667:
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: /*IF (l_debug = 'Y') THEN
1670: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1671: END IF;*/
1672:
1673: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1674: FND_LOG.STRING(G_EXCP_LEVEL,
1671: END IF;*/
1672:
1673: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1674: FND_LOG.STRING(G_EXCP_LEVEL,
1675: G_PKG_NAME, '8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1676: END IF;
1677:
1678: x_return_status := G_RET_STS_UNEXP_ERROR;
1679:
1784: p_variable_code => p_variable_code,
1785: p_object_version_number => p_object_version_number
1786: );
1787: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1790: RAISE FND_API.G_EXC_ERROR;
1791: END IF;
1792:
1786: );
1787: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1790: RAISE FND_API.G_EXC_ERROR;
1791: END IF;
1792:
1793: /*IF (l_debug = 'Y') THEN
1794: Okc_Debug.Log('9100: Removing _B row', 2);
1799: G_PKG_NAME, '9100: Removing _B row' );
1800: END IF;
1801: x_return_status := Delete_Row( p_cat_id => p_cat_id,p_variable_code => p_variable_code );
1802: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: END IF;
1807:
1801: x_return_status := Delete_Row( p_cat_id => p_cat_id,p_variable_code => p_variable_code );
1802: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1805: RAISE FND_API.G_EXC_ERROR;
1806: END IF;
1807:
1808:
1809: /*IF (l_debug = 'Y') THEN
1815: G_PKG_NAME, '9300: Leaving Delete_Row' );
1816: END IF;
1817:
1818: EXCEPTION
1819: WHEN FND_API.G_EXC_ERROR THEN
1820: /*IF (l_debug = 'Y') THEN
1821: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1822: END IF;*/
1823:
1817:
1818: EXCEPTION
1819: WHEN FND_API.G_EXC_ERROR THEN
1820: /*IF (l_debug = 'Y') THEN
1821: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1822: END IF;*/
1823:
1824: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1825: FND_LOG.STRING(G_EXCP_LEVEL,
1822: END IF;*/
1823:
1824: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1825: FND_LOG.STRING(G_EXCP_LEVEL,
1826: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
1827: END IF;
1828: x_return_status := G_RET_STS_ERROR;
1829:
1830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1826: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
1827: END IF;
1828: x_return_status := G_RET_STS_ERROR;
1829:
1830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1831: /*IF (l_debug = 'Y') THEN
1832: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1833: END IF;*/
1834:
1828: x_return_status := G_RET_STS_ERROR;
1829:
1830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1831: /*IF (l_debug = 'Y') THEN
1832: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1833: END IF;*/
1834:
1835: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1836: FND_LOG.STRING(G_EXCP_LEVEL,
1833: END IF;*/
1834:
1835: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1836: FND_LOG.STRING(G_EXCP_LEVEL,
1837: G_PKG_NAME, '9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1838: END IF;
1839: x_return_status := G_RET_STS_UNEXP_ERROR;
1840:
1841: WHEN OTHERS THEN
1913: END IF;
1914: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
1915: x_return_status := G_RET_STS_ERROR ;
1916:
1917: WHEN FND_API.G_EXC_ERROR THEN
1918: /*IF (l_debug = 'Y') THEN
1919: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
1920: END IF;*/
1921:
1915: x_return_status := G_RET_STS_ERROR ;
1916:
1917: WHEN FND_API.G_EXC_ERROR THEN
1918: /*IF (l_debug = 'Y') THEN
1919: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
1920: END IF;*/
1921:
1922: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1923: FND_LOG.STRING(G_EXCP_LEVEL,
1920: END IF;*/
1921:
1922: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1923: FND_LOG.STRING(G_EXCP_LEVEL,
1924: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
1925: END IF;
1926:
1927: IF (lock_csr%ISOPEN) THEN
1928: CLOSE lock_csr;
1929: END IF;
1930:
1931: x_return_status := G_RET_STS_ERROR;
1932:
1933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1934: /*IF (l_debug = 'Y') THEN
1935: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1936: END IF;*/
1937:
1931: x_return_status := G_RET_STS_ERROR;
1932:
1933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1934: /*IF (l_debug = 'Y') THEN
1935: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1936: END IF;*/
1937:
1938: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1939: FND_LOG.STRING(G_EXCP_LEVEL,
1936: END IF;*/
1937:
1938: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1939: FND_LOG.STRING(G_EXCP_LEVEL,
1940: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1941: END IF;
1942:
1943: IF (lock_csr%ISOPEN) THEN
1944: CLOSE lock_csr;
2026: END IF;
2027: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2028: x_return_status := G_RET_STS_ERROR ;
2029:
2030: WHEN FND_API.G_EXC_ERROR THEN
2031: /*IF (l_debug = 'Y') THEN
2032: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2033: END IF;*/
2034:
2028: x_return_status := G_RET_STS_ERROR ;
2029:
2030: WHEN FND_API.G_EXC_ERROR THEN
2031: /*IF (l_debug = 'Y') THEN
2032: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2033: END IF;*/
2034:
2035: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2036: FND_LOG.STRING(G_EXCP_LEVEL,
2033: END IF;*/
2034:
2035: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2036: FND_LOG.STRING(G_EXCP_LEVEL,
2037: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
2038: END IF;
2039:
2040: IF (lock_csr%ISOPEN) THEN
2041: CLOSE lock_csr;
2041: CLOSE lock_csr;
2042: END IF;
2043: x_return_status := G_RET_STS_ERROR;
2044:
2045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2046: /*IF (l_debug = 'Y') THEN
2047: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2048: END IF;*/
2049:
2043: x_return_status := G_RET_STS_ERROR;
2044:
2045: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2046: /*IF (l_debug = 'Y') THEN
2047: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2048: END IF;*/
2049:
2050: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2051: FND_LOG.STRING(G_EXCP_LEVEL,
2048: END IF;*/
2049:
2050: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2051: FND_LOG.STRING(G_EXCP_LEVEL,
2052: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
2053: END IF;
2054:
2055: IF (lock_csr%ISOPEN) THEN
2056: CLOSE lock_csr;
2143: END IF;
2144: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2145:
2146: x_return_status := G_RET_STS_ERROR ;
2147: WHEN FND_API.G_EXC_ERROR THEN
2148: /*IF (l_debug = 'Y') THEN
2149: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2150: END IF;*/
2151:
2145:
2146: x_return_status := G_RET_STS_ERROR ;
2147: WHEN FND_API.G_EXC_ERROR THEN
2148: /*IF (l_debug = 'Y') THEN
2149: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
2150: END IF;*/
2151:
2152: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2153: FND_LOG.STRING(G_EXCP_LEVEL,
2150: END IF;*/
2151:
2152: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2153: FND_LOG.STRING(G_EXCP_LEVEL,
2154: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
2155: END IF;
2156:
2157: IF (lock_csr%ISOPEN) THEN
2158: CLOSE lock_csr;
2159: END IF;
2160: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2161: x_return_status := G_RET_STS_ERROR;
2162:
2163: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2164: /*IF (l_debug = 'Y') THEN
2165: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2166: END IF;*/
2167:
2161: x_return_status := G_RET_STS_ERROR;
2162:
2163: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2164: /*IF (l_debug = 'Y') THEN
2165: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2166: END IF;*/
2167:
2168: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2169: FND_LOG.STRING(G_EXCP_LEVEL,
2166: END IF;*/
2167:
2168: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2169: FND_LOG.STRING(G_EXCP_LEVEL,
2170: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
2171: END IF;
2172:
2173: IF (lock_csr%ISOPEN) THEN
2174: CLOSE lock_csr;