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';
267: x_last_update_date => l_last_update_date
268: );
269: --- If any errors happen abort API
270: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
269: --- If any errors happen abort API
270: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
272: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
275:
276: --- Reversing G_MISS/NULL values logic
277:
304: END IF;
305:
306: RETURN G_RET_STS_SUCCESS ;
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: /*IF (l_debug = 'Y') THEN
310: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
311: END IF;*/
312:
306: RETURN G_RET_STS_SUCCESS ;
307: EXCEPTION
308: WHEN FND_API.G_EXC_ERROR THEN
309: /*IF (l_debug = 'Y') THEN
310: Okc_Debug.Log('900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception', 2);
311: END IF;*/
312:
313: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
314: FND_LOG.STRING(G_EXCP_LEVEL,
311: END IF;*/
312:
313: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
314: FND_LOG.STRING(G_EXCP_LEVEL,
315: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
316: END IF;
317: RETURN G_RET_STS_ERROR;
318:
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
315: G_PKG_NAME, '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception' );
316: END IF;
317: RETURN G_RET_STS_ERROR;
318:
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: /*IF (l_debug = 'Y') THEN
321: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
322: END IF;*/
323:
317: RETURN G_RET_STS_ERROR;
318:
319: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
320: /*IF (l_debug = 'Y') THEN
321: Okc_Debug.Log('1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
322: END IF;*/
323:
324: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
325: FND_LOG.STRING(G_EXCP_LEVEL,
322: END IF;*/
323:
324: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
325: FND_LOG.STRING(G_EXCP_LEVEL,
326: G_PKG_NAME, '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
327: END IF;
328: RETURN G_RET_STS_UNEXP_ERROR;
329:
330: WHEN OTHERS THEN
349: ----------------------------------------------
350: -- Validate_Attributes for: OKC_NUMBER_SCHEMES_V --
351: ----------------------------------------------
352: FUNCTION Validate_Attributes (
353: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
354:
355: p_num_scheme_id IN NUMBER,
356: p_number_article_yn IN VARCHAR2,
357: p_scheme_name IN VARCHAR2,
541: ------------------------------------------
542: -- Validate_Record for:OKC_NUMBER_SCHEMES_V --
543: ------------------------------------------
544: FUNCTION Validate_Record (
545: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
546:
547: p_num_scheme_id IN NUMBER,
548: p_number_article_yn IN VARCHAR2,
549: p_scheme_name IN VARCHAR2,
636: ---------------------------------------
637: -- validate_row for:OKC_NUMBER_SCHEMES_V --
638: ---------------------------------------
639: PROCEDURE validate_row(
640: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
641:
642: x_return_status OUT NOCOPY VARCHAR2,
643:
644: p_num_scheme_id IN NUMBER,
679: x_scheme_name => l_scheme_name,
680: x_num_scheme_preview => l_num_scheme_preview
681: );
682: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
681: );
682: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687:
688: -- Validate all non-missing attributes (Item Level Validation)
689: x_return_status := Validate_Record(
703: G_PKG_NAME, '3200: Leaving validate_row' );
704: END IF;
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: /*IF (l_debug = 'Y') THEN
709: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
710: END IF;*/
711:
705:
706: EXCEPTION
707: WHEN FND_API.G_EXC_ERROR THEN
708: /*IF (l_debug = 'Y') THEN
709: Okc_Debug.Log('3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception', 2);
710: END IF;*/
711:
712: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
713: FND_LOG.STRING(G_EXCP_LEVEL,
710: END IF;*/
711:
712: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
713: FND_LOG.STRING(G_EXCP_LEVEL,
714: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
715: END IF;
716: x_return_status := G_RET_STS_ERROR;
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
714: G_PKG_NAME, '3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception' );
715: END IF;
716: x_return_status := G_RET_STS_ERROR;
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: /*IF (l_debug = 'Y') THEN
720: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
721: END IF;*/
722:
716: x_return_status := G_RET_STS_ERROR;
717:
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: /*IF (l_debug = 'Y') THEN
720: Okc_Debug.Log('3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
721: END IF;*/
722:
723: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
724: FND_LOG.STRING(G_EXCP_LEVEL,
721: END IF;*/
722:
723: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
724: FND_LOG.STRING(G_EXCP_LEVEL,
725: G_PKG_NAME, '3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
726: END IF;
727: x_return_status := G_RET_STS_UNEXP_ERROR;
728:
729: WHEN OTHERS THEN
922: -------------------------------------
923: -- Insert_Row for:OKC_NUMBER_SCHEMES_V --
924: -------------------------------------
925: PROCEDURE Insert_Row(
926: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
927: x_return_status OUT NOCOPY VARCHAR2,
928:
929: p_num_scheme_id IN NUMBER,
930: p_number_article_yn IN VARCHAR2,
962: x_num_scheme_id => x_num_scheme_id
963: );
964: --- If any errors happen abort API
965: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: ELSE
964: --- If any errors happen abort API
965: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
967: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: ELSE
971: x_num_scheme_id := p_num_scheme_id;
972: END IF;
988: p_num_scheme_preview => p_num_scheme_preview
989: );
990: --- If any errors happen abort API
991: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
993: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996:
990: --- If any errors happen abort API
991: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
993: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
994: RAISE FND_API.G_EXC_ERROR;
995: END IF;
996:
997: --------------------------------------------
998: -- Call the internal Insert_Row for each child record
1017: p_last_update_login => l_last_update_login,
1018: p_last_update_date => l_last_update_date
1019: );
1020: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1022: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1019: );
1020: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1021: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1022: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1023: RAISE FND_API.G_EXC_ERROR;
1024: END IF;
1025:
1026:
1027: --------------------------------------------
1046: p_last_update_login => l_last_update_login,
1047: p_last_update_date => l_last_update_date
1048: );
1049: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1048: );
1049: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1052: RAISE FND_API.G_EXC_ERROR;
1053: END IF;
1054:
1055:
1056: /*IF (l_debug = 'Y') THEN
1062: G_PKG_NAME, '4500: Leaving Insert_Row' );
1063: END IF;
1064:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: /*IF (l_debug = 'Y') THEN
1068: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1069: END IF;*/
1070:
1064:
1065: EXCEPTION
1066: WHEN FND_API.G_EXC_ERROR THEN
1067: /*IF (l_debug = 'Y') THEN
1068: Okc_Debug.Log('4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception', 2);
1069: END IF;*/
1070:
1071: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1072: FND_LOG.STRING(G_EXCP_LEVEL,
1069: END IF;*/
1070:
1071: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1072: FND_LOG.STRING(G_EXCP_LEVEL,
1073: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
1074: END IF;
1075: x_return_status := G_RET_STS_ERROR;
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1073: G_PKG_NAME, '4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception' );
1074: END IF;
1075: x_return_status := G_RET_STS_ERROR;
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: /*IF (l_debug = 'Y') THEN
1079: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1080: END IF;*/
1081:
1075: x_return_status := G_RET_STS_ERROR;
1076:
1077: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1078: /*IF (l_debug = 'Y') THEN
1079: Okc_Debug.Log('4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1080: END IF;*/
1081:
1082: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1083: FND_LOG.STRING(G_EXCP_LEVEL,
1080: END IF;*/
1081:
1082: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1083: FND_LOG.STRING(G_EXCP_LEVEL,
1084: G_PKG_NAME, '4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1085: END IF;
1086: x_return_status := G_RET_STS_UNEXP_ERROR;
1087:
1088: WHEN OTHERS THEN
1362: p_num_scheme_id => p_num_scheme_id,
1363: p_object_version_number => p_object_version_number
1364: );
1365: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370:
1364: );
1365: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1368: RAISE FND_API.G_EXC_ERROR;
1369: END IF;
1370:
1371:
1372: --------------------------------------------
1384: x_return_status := Lock_Row(
1385: p_num_scheme_id => p_num_scheme_id
1386: );
1387: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: END IF;
1392:
1386: );
1387: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1389: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1390: RAISE FND_API.G_EXC_ERROR;
1391: END IF;
1392:
1393:
1394: /*IF (l_debug = 'Y') THEN
1400: G_PKG_NAME, '6000: Leaving Lock_Row' );
1401: END IF;
1402:
1403: EXCEPTION
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: /*IF (l_debug = 'Y') THEN
1406: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1407: END IF;*/
1408:
1402:
1403: EXCEPTION
1404: WHEN FND_API.G_EXC_ERROR THEN
1405: /*IF (l_debug = 'Y') THEN
1406: Okc_Debug.Log('6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception', 2);
1407: END IF;*/
1408:
1409: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1410: FND_LOG.STRING(G_EXCP_LEVEL,
1407: END IF;*/
1408:
1409: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1410: FND_LOG.STRING(G_EXCP_LEVEL,
1411: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1412: END IF;
1413: x_return_status := G_RET_STS_ERROR;
1414:
1415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1411: G_PKG_NAME, '6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception' );
1412: END IF;
1413: x_return_status := G_RET_STS_ERROR;
1414:
1415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1416: /*IF (l_debug = 'Y') THEN
1417: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1418: END IF;*/
1419:
1413: x_return_status := G_RET_STS_ERROR;
1414:
1415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1416: /*IF (l_debug = 'Y') THEN
1417: Okc_Debug.Log('6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1418: END IF;*/
1419:
1420: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1421: FND_LOG.STRING(G_EXCP_LEVEL,
1418: END IF;*/
1419:
1420: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1421: FND_LOG.STRING(G_EXCP_LEVEL,
1422: G_PKG_NAME, '6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1423: END IF;
1424: x_return_status := G_RET_STS_UNEXP_ERROR;
1425:
1426: WHEN OTHERS THEN
1580: -------------------------------------
1581: -- Update_Row for:OKC_NUMBER_SCHEMES_V --
1582: -------------------------------------
1583: PROCEDURE Update_Row(
1584: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1585:
1586: x_return_status OUT NOCOPY VARCHAR2,
1587:
1588: p_num_scheme_id IN NUMBER,
1620: p_num_scheme_id => p_num_scheme_id,
1621: p_object_version_number => p_object_version_number
1622: );
1623: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1626: RAISE FND_API.G_EXC_ERROR;
1627: END IF;
1628:
1622: );
1623: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1626: RAISE FND_API.G_EXC_ERROR;
1627: END IF;
1628:
1629: /*IF (l_debug = 'Y') THEN
1630: Okc_Debug.Log('7200: Locking _TL row', 2);
1638: x_return_status := Lock_row(
1639: p_num_scheme_id => p_num_scheme_id
1640: );
1641: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646:
1640: );
1641: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1643: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1644: RAISE FND_API.G_EXC_ERROR;
1645: END IF;
1646:
1647:
1648: /*IF (l_debug = 'Y') THEN
1665: x_scheme_name => l_scheme_name,
1666: x_num_scheme_preview => l_num_scheme_preview
1667: );
1668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1671: RAISE FND_API.G_EXC_ERROR;
1672: END IF;
1673:
1667: );
1668: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1670: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1671: RAISE FND_API.G_EXC_ERROR;
1672: END IF;
1673:
1674: /*IF (l_debug = 'Y') THEN
1675: Okc_Debug.Log('7400: Record Validation', 2);
1689: p_num_scheme_preview => l_num_scheme_preview
1690: );
1691: --- If any errors happen abort API
1692: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1694: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1695: RAISE FND_API.G_EXC_ERROR;
1696: END IF;
1697:
1691: --- If any errors happen abort API
1692: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1694: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1695: RAISE FND_API.G_EXC_ERROR;
1696: END IF;
1697:
1698: /*IF (l_debug = 'Y') THEN
1699: Okc_Debug.Log('7500: Filling WHO columns', 2);
1735: p_last_update_login => l_last_update_login,
1736: p_last_update_date => l_last_update_date
1737: );
1738: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: END IF;
1743:
1737: );
1738: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1741: RAISE FND_API.G_EXC_ERROR;
1742: END IF;
1743:
1744:
1745: /*IF (l_debug = 'Y') THEN
1759: p_last_update_login => l_last_update_login,
1760: p_last_update_date => l_last_update_date
1761: );
1762: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1764: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: END IF;
1767:
1761: );
1762: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1763: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1764: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1765: RAISE FND_API.G_EXC_ERROR;
1766: END IF;
1767:
1768: /*IF (l_debug = 'Y') THEN
1769: Okc_Debug.Log('7800: Leaving Update_Row', 2);
1774: G_PKG_NAME, '7800: Leaving Update_Row' );
1775: END IF;
1776:
1777: EXCEPTION
1778: WHEN FND_API.G_EXC_ERROR THEN
1779: /*IF (l_debug = 'Y') THEN
1780: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1781: END IF;*/
1782:
1776:
1777: EXCEPTION
1778: WHEN FND_API.G_EXC_ERROR THEN
1779: /*IF (l_debug = 'Y') THEN
1780: Okc_Debug.Log('7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception', 2);
1781: END IF;*/
1782:
1783: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1784: FND_LOG.STRING(G_EXCP_LEVEL,
1781: END IF;*/
1782:
1783: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1784: FND_LOG.STRING(G_EXCP_LEVEL,
1785: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1786: END IF;
1787: x_return_status := G_RET_STS_ERROR;
1788:
1789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1785: G_PKG_NAME, '7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception' );
1786: END IF;
1787: x_return_status := G_RET_STS_ERROR;
1788:
1789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1790: /*IF (l_debug = 'Y') THEN
1791: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1792: END IF;*/
1793:
1787: x_return_status := G_RET_STS_ERROR;
1788:
1789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1790: /*IF (l_debug = 'Y') THEN
1791: Okc_Debug.Log('8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
1792: END IF;*/
1793:
1794: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1795: FND_LOG.STRING(G_EXCP_LEVEL,
1792: END IF;*/
1793:
1794: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1795: FND_LOG.STRING(G_EXCP_LEVEL,
1796: G_PKG_NAME, '8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
1797: END IF;
1798: x_return_status := G_RET_STS_UNEXP_ERROR;
1799:
1800: WHEN OTHERS THEN
1957: p_num_scheme_id => p_num_scheme_id,
1958: p_object_version_number => p_object_version_number
1959: );
1960: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: END IF;
1965:
1959: );
1960: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1961: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1962: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1963: RAISE FND_API.G_EXC_ERROR;
1964: END IF;
1965:
1966: /*IF (l_debug = 'Y') THEN
1967: Okc_Debug.Log('9000: Locking _TL row', 2);
1975: x_return_status := Lock_row(
1976: p_num_scheme_id => p_num_scheme_id
1977: );
1978: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1977: );
1978: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1980: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1981: RAISE FND_API.G_EXC_ERROR;
1982: END IF;
1983:
1984:
1985: /*IF (l_debug = 'Y') THEN
1992: END IF;
1993:
1994: x_return_status := Delete_Row( p_num_scheme_id => p_num_scheme_id );
1995: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1998: RAISE FND_API.G_EXC_ERROR;
1999: END IF;
2000:
1994: x_return_status := Delete_Row( p_num_scheme_id => p_num_scheme_id );
1995: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1997: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1998: RAISE FND_API.G_EXC_ERROR;
1999: END IF;
2000:
2001:
2002: /*IF (l_debug = 'Y') THEN
2008: G_PKG_NAME, '9200: Removing _TL row' );
2009: END IF;
2010: x_return_status := Delete_Row_T( p_num_scheme_id => p_num_scheme_id );
2011: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2013: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: END IF;
2016:
2010: x_return_status := Delete_Row_T( p_num_scheme_id => p_num_scheme_id );
2011: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2012: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2013: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2014: RAISE FND_API.G_EXC_ERROR;
2015: END IF;
2016:
2017:
2018: /*IF (l_debug = 'Y') THEN
2024: G_PKG_NAME, '9300: Leaving Delete_Row' );
2025: END IF;
2026:
2027: EXCEPTION
2028: WHEN FND_API.G_EXC_ERROR THEN
2029: /*IF (l_debug = 'Y') THEN
2030: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
2031: END IF;*/
2032:
2026:
2027: EXCEPTION
2028: WHEN FND_API.G_EXC_ERROR THEN
2029: /*IF (l_debug = 'Y') THEN
2030: Okc_Debug.Log('9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception', 2);
2031: END IF;*/
2032:
2033: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2034: FND_LOG.STRING(G_EXCP_LEVEL,
2031: END IF;*/
2032:
2033: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2034: FND_LOG.STRING(G_EXCP_LEVEL,
2035: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
2036: END IF;
2037: x_return_status := G_RET_STS_ERROR;
2038:
2039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2035: G_PKG_NAME, '9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception' );
2036: END IF;
2037: x_return_status := G_RET_STS_ERROR;
2038:
2039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2040: /*IF (l_debug = 'Y') THEN
2041: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2042: END IF;*/
2043:
2037: x_return_status := G_RET_STS_ERROR;
2038:
2039: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2040: /*IF (l_debug = 'Y') THEN
2041: Okc_Debug.Log('9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception', 2);
2042: END IF;*/
2043:
2044: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2045: FND_LOG.STRING(G_EXCP_LEVEL,
2042: END IF;*/
2043:
2044: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
2045: FND_LOG.STRING(G_EXCP_LEVEL,
2046: G_PKG_NAME, '9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception' );
2047: END IF;
2048: x_return_status := G_RET_STS_UNEXP_ERROR;
2049:
2050: WHEN OTHERS THEN