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';
202: x_last_update_date => l_last_update_date
203: );
204: --- If any errors happen abort API
205: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210:
204: --- If any errors happen abort API
205: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210:
211: --- Reversing G_MISS/NULL values logic
212:
234: END IF;
235:
236: RETURN G_RET_STS_SUCCESS ;
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: /*IF (l_debug = 'Y') THEN
240: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
241: END IF;*/
242:
236: RETURN G_RET_STS_SUCCESS ;
237: EXCEPTION
238: WHEN FND_API.G_EXC_ERROR THEN
239: /*IF (l_debug = 'Y') THEN
240: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
241: END IF;*/
242:
243: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
244: FND_LOG.STRING(G_EXCP_LEVEL,
241: END IF;*/
242:
243: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
244: FND_LOG.STRING(G_EXCP_LEVEL,
245: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
246: END IF;
247: RETURN G_RET_STS_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
246: END IF;
247: RETURN G_RET_STS_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: /*IF (l_debug = 'Y') THEN
251: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
252: END IF;*/
253:
247: RETURN G_RET_STS_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: /*IF (l_debug = 'Y') THEN
251: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
252: END IF;*/
253:
254: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
255: FND_LOG.STRING(G_EXCP_LEVEL,
252: END IF;*/
253:
254: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
255: FND_LOG.STRING(G_EXCP_LEVEL,
256: G_PKG_NAME, '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
257: END IF;
258: RETURN G_RET_STS_UNEXP_ERROR;
259:
260: WHEN OTHERS THEN
279: ----------------------------------------------
280: -- Validate_Attributes for: OKC_NUMBER_SCHEME_DTLS --
281: ----------------------------------------------
282: FUNCTION Validate_Attributes (
283: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
284:
285: p_num_scheme_id IN NUMBER,
286: p_num_sequence_code IN VARCHAR2,
287: p_sequence_level IN NUMBER,
558: ------------------------------------------
559: -- Validate_Record for:OKC_NUMBER_SCHEME_DTLS --
560: ------------------------------------------
561: FUNCTION Validate_Record (
562: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
563:
564: p_num_scheme_id IN NUMBER,
565: p_num_sequence_code IN VARCHAR2,
566: p_sequence_level IN NUMBER,
654: ---------------------------------------
655: -- validate_row for:OKC_NUMBER_SCHEME_DTLS --
656: ---------------------------------------
657: PROCEDURE validate_row(
658: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
659:
660: x_return_status OUT NOCOPY VARCHAR2,
661:
662: p_num_scheme_id IN NUMBER,
700: x_object_version_number => l_object_version_number,
701: x_end_character => l_end_character
702: );
703: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
705: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
706: RAISE FND_API.G_EXC_ERROR;
707: END IF;
708:
702: );
703: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
705: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
706: RAISE FND_API.G_EXC_ERROR;
707: END IF;
708:
709: -- Validate all non-missing attributes (Item Level Validation)
710: x_return_status := Validate_Record(
725: G_PKG_NAME, '3200: Leaving validate_row' );
726: END IF;
727:
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: /*IF (l_debug = 'Y') THEN
731: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
732: END IF;*/
733:
727:
728: EXCEPTION
729: WHEN FND_API.G_EXC_ERROR THEN
730: /*IF (l_debug = 'Y') THEN
731: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
732: END IF;*/
733:
734: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
735: FND_LOG.STRING(G_EXCP_LEVEL,
732: END IF;*/
733:
734: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
735: FND_LOG.STRING(G_EXCP_LEVEL,
736: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
737: END IF;
738: x_return_status := G_RET_STS_ERROR;
739:
740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
736: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
737: END IF;
738: x_return_status := G_RET_STS_ERROR;
739:
740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
741: /*IF (l_debug = 'Y') THEN
742: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
743: END IF;*/
744:
738: x_return_status := G_RET_STS_ERROR;
739:
740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
741: /*IF (l_debug = 'Y') THEN
742: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
743: END IF;*/
744:
745: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
746: FND_LOG.STRING(G_EXCP_LEVEL,
743: END IF;*/
744:
745: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
746: FND_LOG.STRING(G_EXCP_LEVEL,
747: G_PKG_NAME, '3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
748: END IF;
749: x_return_status := G_RET_STS_UNEXP_ERROR;
750:
751: WHEN OTHERS THEN
862: -------------------------------------
863: -- Insert_Row for:OKC_NUMBER_SCHEME_DTLS --
864: -------------------------------------
865: PROCEDURE Insert_Row(
866: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
867: x_return_status OUT NOCOPY VARCHAR2,
868:
869: p_num_scheme_id IN NUMBER,
870: p_num_sequence_code IN VARCHAR2,
923: p_end_character => p_end_character
924: );
925: --- If any errors happen abort API
926: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931:
925: --- If any errors happen abort API
926: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
928: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
929: RAISE FND_API.G_EXC_ERROR;
930: END IF;
931:
932: --------------------------------------------
933: -- Call the internal Insert_Row for each child record
954: p_last_update_login => l_last_update_login,
955: p_last_update_date => l_last_update_date
956: );
957: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
959: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962:
956: );
957: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
959: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962:
963:
964:
971: G_PKG_NAME, '4500: Leaving Insert_Row' );
972: END IF;
973:
974: EXCEPTION
975: WHEN FND_API.G_EXC_ERROR THEN
976: /*IF (l_debug = 'Y') THEN
977: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
978: END IF;*/
979:
973:
974: EXCEPTION
975: WHEN FND_API.G_EXC_ERROR THEN
976: /*IF (l_debug = 'Y') THEN
977: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
978: END IF;*/
979:
980: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
981: FND_LOG.STRING(G_EXCP_LEVEL,
978: END IF;*/
979:
980: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
981: FND_LOG.STRING(G_EXCP_LEVEL,
982: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
983: END IF;
984: x_return_status := G_RET_STS_ERROR;
985:
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
982: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
983: END IF;
984: x_return_status := G_RET_STS_ERROR;
985:
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
987: /*IF (l_debug = 'Y') THEN
988: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
989: END IF;*/
990:
984: x_return_status := G_RET_STS_ERROR;
985:
986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
987: /*IF (l_debug = 'Y') THEN
988: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
989: END IF;*/
990:
991: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
992: FND_LOG.STRING(G_EXCP_LEVEL,
989: END IF;*/
990:
991: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
992: FND_LOG.STRING(G_EXCP_LEVEL,
993: G_PKG_NAME, '4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
994: END IF;
995: x_return_status := G_RET_STS_UNEXP_ERROR;
996:
997: WHEN OTHERS THEN
1174: p_sequence_level => p_sequence_level,
1175: p_object_version_number => p_object_version_number
1176: );
1177: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1176: );
1177: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1179: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1180: RAISE FND_API.G_EXC_ERROR;
1181: END IF;
1182:
1183:
1184:
1191: G_PKG_NAME, '6000: Leaving Lock_Row' );
1192: END IF;
1193:
1194: EXCEPTION
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: /*IF (l_debug = 'Y') THEN
1197: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1198: END IF;*/
1199:
1193:
1194: EXCEPTION
1195: WHEN FND_API.G_EXC_ERROR THEN
1196: /*IF (l_debug = 'Y') THEN
1197: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1198: END IF;*/
1199:
1200: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1201: FND_LOG.STRING(G_EXCP_LEVEL,
1198: END IF;*/
1199:
1200: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1201: FND_LOG.STRING(G_EXCP_LEVEL,
1202: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1203: END IF;
1204: x_return_status := G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1202: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1203: END IF;
1204: x_return_status := G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: /*IF (l_debug = 'Y') THEN
1208: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1209: END IF;*/
1210:
1204: x_return_status := G_RET_STS_ERROR;
1205:
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: /*IF (l_debug = 'Y') THEN
1208: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1209: END IF;*/
1210:
1211: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1212: FND_LOG.STRING(G_EXCP_LEVEL,
1209: END IF;*/
1210:
1211: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1212: FND_LOG.STRING(G_EXCP_LEVEL,
1213: G_PKG_NAME, '6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1214: END IF;
1215: x_return_status := G_RET_STS_UNEXP_ERROR;
1216:
1217: WHEN OTHERS THEN
1307: -------------------------------------
1308: -- Update_Row for:OKC_NUMBER_SCHEME_DTLS --
1309: -------------------------------------
1310: PROCEDURE Update_Row(
1311: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1312:
1313: x_return_status OUT NOCOPY VARCHAR2,
1314:
1315: p_num_scheme_id IN NUMBER,
1349: p_sequence_level => p_sequence_level,
1350: p_object_version_number => p_object_version_number
1351: );
1352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1351: );
1352: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1355: RAISE FND_API.G_EXC_ERROR;
1356: END IF;
1357:
1358:
1359: /*IF (l_debug = 'Y') THEN
1376: x_object_version_number => l_object_version_number,
1377: x_end_character => l_end_character
1378: );
1379: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1381: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1382: RAISE FND_API.G_EXC_ERROR;
1383: END IF;
1384:
1378: );
1379: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1381: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1382: RAISE FND_API.G_EXC_ERROR;
1383: END IF;
1384:
1385: /*IF (l_debug = 'Y') THEN
1386: Okc_Debug.Log('7400: Record Validation', 2);
1401: p_end_character => l_end_character
1402: );
1403: --- If any errors happen abort API
1404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1407: RAISE FND_API.G_EXC_ERROR;
1408: END IF;
1409:
1403: --- If any errors happen abort API
1404: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1405: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1406: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1407: RAISE FND_API.G_EXC_ERROR;
1408: END IF;
1409:
1410: /*IF (l_debug = 'Y') THEN
1411: Okc_Debug.Log('7500: Filling WHO columns', 2);
1449: p_last_update_login => l_last_update_login,
1450: p_last_update_date => l_last_update_date
1451: );
1452: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1455: RAISE FND_API.G_EXC_ERROR;
1456: END IF;
1457:
1451: );
1452: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1454: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1455: RAISE FND_API.G_EXC_ERROR;
1456: END IF;
1457:
1458:
1459: /*IF (l_debug = 'Y') THEN
1465: G_PKG_NAME, '7800: Leaving Update_Row');
1466: END IF;
1467:
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: /*IF (l_debug = 'Y') THEN
1471: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1472: END IF;*/
1473:
1467:
1468: EXCEPTION
1469: WHEN FND_API.G_EXC_ERROR THEN
1470: /*IF (l_debug = 'Y') THEN
1471: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1472: END IF;*/
1473:
1474: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1475: FND_LOG.STRING(G_EXCP_LEVEL,
1472: END IF;*/
1473:
1474: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1475: FND_LOG.STRING(G_EXCP_LEVEL,
1476: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1477: END IF;
1478: x_return_status := G_RET_STS_ERROR;
1479:
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1476: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1477: END IF;
1478: x_return_status := G_RET_STS_ERROR;
1479:
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: /*IF (l_debug = 'Y') THEN
1482: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1483: END IF;*/
1484:
1478: x_return_status := G_RET_STS_ERROR;
1479:
1480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1481: /*IF (l_debug = 'Y') THEN
1482: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1483: END IF;*/
1484:
1485: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1486: FND_LOG.STRING(G_EXCP_LEVEL,
1483: END IF;*/
1484:
1485: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1486: FND_LOG.STRING(G_EXCP_LEVEL,
1487: G_PKG_NAME, '8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1488: END IF;
1489: x_return_status := G_RET_STS_UNEXP_ERROR;
1490:
1491: WHEN OTHERS THEN
1597: p_sequence_level => p_sequence_level,
1598: p_object_version_number => p_object_version_number
1599: );
1600: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1599: );
1600: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1602: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1603: RAISE FND_API.G_EXC_ERROR;
1604: END IF;
1605:
1606:
1607: /*IF (l_debug = 'Y') THEN
1613: G_PKG_NAME, '9100: Removing _B row' );
1614: END IF;
1615: x_return_status := Delete_Row( p_num_scheme_id => p_num_scheme_id,p_num_sequence_code => p_num_sequence_code,p_sequence_level => p_sequence_level );
1616: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1615: x_return_status := Delete_Row( p_num_scheme_id => p_num_scheme_id,p_num_sequence_code => p_num_sequence_code,p_sequence_level => p_sequence_level );
1616: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1617: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1618: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1619: RAISE FND_API.G_EXC_ERROR;
1620: END IF;
1621:
1622: /*IF (l_debug = 'Y') THEN
1623: Okc_Debug.Log('9300: Leaving Delete_Row', 2);
1628: G_PKG_NAME, '9300: Leaving Delete_Row' );
1629: END IF;
1630:
1631: EXCEPTION
1632: WHEN FND_API.G_EXC_ERROR THEN
1633: /*IF (l_debug = 'Y') THEN
1634: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1635: END IF;*/
1636:
1630:
1631: EXCEPTION
1632: WHEN FND_API.G_EXC_ERROR THEN
1633: /*IF (l_debug = 'Y') THEN
1634: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
1635: END IF;*/
1636:
1637: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1638: FND_LOG.STRING(G_EXCP_LEVEL,
1635: END IF;*/
1636:
1637: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1638: FND_LOG.STRING(G_EXCP_LEVEL,
1639: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
1640: END IF;
1641: x_return_status := G_RET_STS_ERROR;
1642:
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1639: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
1640: END IF;
1641: x_return_status := G_RET_STS_ERROR;
1642:
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: /*IF (l_debug = 'Y') THEN
1645: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1646: END IF;*/
1647:
1641: x_return_status := G_RET_STS_ERROR;
1642:
1643: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1644: /*IF (l_debug = 'Y') THEN
1645: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1646: END IF;*/
1647:
1648: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1649: FND_LOG.STRING(G_EXCP_LEVEL,
1646: END IF;*/
1647:
1648: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1649: FND_LOG.STRING(G_EXCP_LEVEL,
1650: G_PKG_NAME, '9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1651: END IF;
1652: x_return_status := G_RET_STS_UNEXP_ERROR;
1653:
1654: WHEN OTHERS THEN
1735: END IF;
1736: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
1737: x_return_status := G_RET_STS_ERROR ;
1738:
1739: WHEN FND_API.G_EXC_ERROR THEN
1740: /*IF (l_debug = 'Y') THEN
1741: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
1742: END IF;*/
1743:
1737: x_return_status := G_RET_STS_ERROR ;
1738:
1739: WHEN FND_API.G_EXC_ERROR THEN
1740: /*IF (l_debug = 'Y') THEN
1741: Okc_Debug.Log('11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception', 2);
1742: END IF;*/
1743:
1744: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1745: FND_LOG.STRING(G_EXCP_LEVEL,
1742: END IF;*/
1743:
1744: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1745: FND_LOG.STRING(G_EXCP_LEVEL,
1746: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
1747: END IF;
1748: x_return_status := G_RET_STS_ERROR;
1749:
1750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1746: G_PKG_NAME, '11100: Leaving Delete_Set:FND_API.G_EXC_ERROR Exception' );
1747: END IF;
1748: x_return_status := G_RET_STS_ERROR;
1749:
1750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1751: /*IF (l_debug = 'Y') THEN
1752: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1753: END IF;*/
1754:
1748: x_return_status := G_RET_STS_ERROR;
1749:
1750: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1751: /*IF (l_debug = 'Y') THEN
1752: Okc_Debug.Log('11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1753: END IF;*/
1754:
1755: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1756: FND_LOG.STRING(G_EXCP_LEVEL,
1753: END IF;*/
1754:
1755: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1756: FND_LOG.STRING(G_EXCP_LEVEL,
1757: G_PKG_NAME, '11200: Leaving Delete_Set:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1758: END IF;
1759: x_return_status := G_RET_STS_UNEXP_ERROR;
1760:
1761: WHEN OTHERS THEN