5:
6: ---------------------------------------------------------------------------
7: -- GLOBAL MESSAGE CONSTANTS
8: ---------------------------------------------------------------------------
9: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
6: ---------------------------------------------------------------------------
7: -- GLOBAL MESSAGE CONSTANTS
8: ---------------------------------------------------------------------------
9: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
7: -- GLOBAL MESSAGE CONSTANTS
8: ---------------------------------------------------------------------------
9: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
8: ---------------------------------------------------------------------------
9: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
9: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
10: G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
11: G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
19: ---------------------------------------------------------------------------
12: G_RECORD_CHANGED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_CHANGED;
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
19: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
13: G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
19: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
21: ---------------------------------------------------------------------------
14: G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
15: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
16: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
17: G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
19: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
21: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
18: G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
19: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
21: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
23: G_VALID_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_VALID_VALUE_VALID_LEVEL;
24: G_LOOKUP_CODE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_LOOKUP_CODE_VALID_LEVEL;
25: G_FOREIGN_KEY_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_FOREIGN_KEY_VALID_LEVEL;
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
19: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
21: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
23: G_VALID_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_VALID_VALUE_VALID_LEVEL;
24: G_LOOKUP_CODE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_LOOKUP_CODE_VALID_LEVEL;
25: G_FOREIGN_KEY_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_FOREIGN_KEY_VALID_LEVEL;
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
27: ---------------------------------------------------------------------------
20: -- VALIDATION LEVELS
21: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
23: G_VALID_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_VALID_VALUE_VALID_LEVEL;
24: G_LOOKUP_CODE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_LOOKUP_CODE_VALID_LEVEL;
25: G_FOREIGN_KEY_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_FOREIGN_KEY_VALID_LEVEL;
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
27: ---------------------------------------------------------------------------
28: -- GLOBAL VARIABLES
21: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
23: G_VALID_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_VALID_VALUE_VALID_LEVEL;
24: G_LOOKUP_CODE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_LOOKUP_CODE_VALID_LEVEL;
25: G_FOREIGN_KEY_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_FOREIGN_KEY_VALID_LEVEL;
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
27: ---------------------------------------------------------------------------
28: -- GLOBAL VARIABLES
29: ---------------------------------------------------------------------------
22: G_REQUIRED_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_REQUIRED_VALUE_VALID_LEVEL;
23: G_VALID_VALUE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_VALID_VALUE_VALID_LEVEL;
24: G_LOOKUP_CODE_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_LOOKUP_CODE_VALID_LEVEL;
25: G_FOREIGN_KEY_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_FOREIGN_KEY_VALID_LEVEL;
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
27: ---------------------------------------------------------------------------
28: -- GLOBAL VARIABLES
29: ---------------------------------------------------------------------------
30: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_K_ART_VARIABLES_PVT';
27: ---------------------------------------------------------------------------
28: -- GLOBAL VARIABLES
29: ---------------------------------------------------------------------------
30: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_K_ART_VARIABLES_PVT';
31: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
32:
33: ------------------------------------------------------------------------------
34: -- GLOBAL CONSTANTS
35: ------------------------------------------------------------------------------
144: FND_LOG.STRING(G_PROC_LEVEL,
145: G_PKG_NAME, '600: Leaving get_rec because of EXCEPTION: '||sqlerrm );
146: END IF;
147:
148: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
149: p_msg_name => G_UNEXPECTED_ERROR,
150: p_token1 => G_SQLCODE_TOKEN,
151: p_token1_value => sqlcode,
152: p_token2 => G_SQLERRM_TOKEN,
307: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
308: FND_LOG.STRING(G_PROC_LEVEL,
309: G_PKG_NAME, '1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm );
310: END IF;
311: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
312: p_msg_name => G_UNEXPECTED_ERROR,
313: p_token1 => G_SQLCODE_TOKEN,
314: p_token1_value => sqlcode,
315: p_token2 => G_SQLERRM_TOKEN,
387: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
388: FND_LOG.STRING(G_PROC_LEVEL,
389: G_PKG_NAME, '1500: - attribute CAT_ID is invalid' );
390: END IF;
391: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CAT_ID');
392: l_return_status := G_RET_STS_ERROR;
393: END IF;
394:
395: /*IF (l_debug = 'Y') THEN
408: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
409: FND_LOG.STRING(G_PROC_LEVEL,
410: G_PKG_NAME, '1500: - attribute VARIABLE_CODE is invalid' );
411: END IF;
412: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'VARIABLE_CODE');
413: l_return_status := G_RET_STS_ERROR;
414: END IF;
415:
416: /*IF (l_debug = 'Y') THEN
429: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
430: FND_LOG.STRING(G_PROC_LEVEL,
431: G_PKG_NAME, '1500: - attribute VARIABLE_TYPE is invalid' );
432: END IF;
433: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'VARIABLE_TYPE');
434: l_return_status := G_RET_STS_ERROR;
435: END IF;
436:
437: /*IF (l_debug = 'Y') THEN
450: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
451: FND_LOG.STRING(G_PROC_LEVEL,
452: G_PKG_NAME, '1500: - attribute EXTERNAL_YN is invalid' );
453: END IF;
454: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'EXTERNAL_YN');
455: l_return_status := G_RET_STS_ERROR;
456: END IF;
457:
458: END IF;
484: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
485: FND_LOG.STRING(G_PROC_LEVEL,
486: G_PKG_NAME, '1800: - attribute EXTERNAL_YN is invalid' );
487: END IF;
488: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'EXTERNAL_YN');
489: l_return_status := G_RET_STS_ERROR;
490: END IF;
491:
492:
508: FND_LOG.STRING(G_PROC_LEVEL,
509: G_PKG_NAME, '1800: - attribute OVERRIDE_GLOBAL_YN is invalid' );
510: END IF;
511:
512: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'OVERRIDE_GLOBAL_YN');
513: l_return_status := G_RET_STS_ERROR;
514: END IF;
515: END IF;
516:
557: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
558: FND_LOG.STRING(G_PROC_LEVEL,
559: G_PKG_NAME, '2300: - attribute CAT_ID is invalid' );
560: END IF;
561: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CAT_ID');
562: l_return_status := G_RET_STS_ERROR;
563: END IF;
564: END IF;
565: /*
574: -- IF (l_dummy_var = '?') THEN
575: -- IF (l_debug = 'Y') THEN
576: -- Okc_Debug.Log('2300: - attribute VARIABLE_VALUE_ID is invalid', 2);
577: -- END IF;
578: -- Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'VARIABLE_VALUE_ID');
579: -- l_return_status := G_RET_STS_ERROR;
580: -- END IF;
581: -- END IF;
582: */
601: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
602: FND_LOG.STRING(G_PROC_LEVEL,
603: G_PKG_NAME, '2300: - attribute ATTRIBUTE_VALUE_SET_ID is invalid' );
604: END IF;
605: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ATTRIBUTE_VALUE_SET_ID');
606: l_return_status := G_RET_STS_ERROR;
607: END IF;
608: END IF;
609:
628: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
629: FND_LOG.STRING(G_PROC_LEVEL,
630: G_PKG_NAME, '2300: - attribute VARIABLE_CODE is invalid' );
631: END IF;
632: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'VARIABLE_CODE');
633: l_return_status := G_RET_STS_ERROR;
634: END IF;
635: END IF;
636: END IF;
652: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
653: FND_LOG.STRING(G_EXCP_LEVEL,
654: G_PKG_NAME, '2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm );
655: END IF;
656: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
657: p_msg_name => G_UNEXPECTED_ERROR,
658: p_token1 => G_SQLCODE_TOKEN,
659: p_token1_value => sqlcode,
660: p_token2 => G_SQLERRM_TOKEN,
775: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
776: FND_LOG.STRING(G_EXCP_LEVEL,
777: G_PKG_NAME, '3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm );
778: END IF;
779: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
780: p_msg_name => G_UNEXPECTED_ERROR,
781: p_token1 => G_SQLCODE_TOKEN,
782: p_token1_value => sqlcode,
783: p_token2 => G_SQLERRM_TOKEN,
907: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
908: FND_LOG.STRING(G_EXCP_LEVEL,
909: G_PKG_NAME, '3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm );
910: END IF;
911: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
912: p_msg_name => G_UNEXPECTED_ERROR,
913: p_token1 => G_SQLCODE_TOKEN,
914: p_token1_value => sqlcode,
915: p_token2 => G_SQLERRM_TOKEN,
1005: FND_LOG.STRING(G_EXCP_LEVEL,
1006: G_PKG_NAME, '3800: Leaving Insert_Row:OTHERS Exception' );
1007: END IF;
1008:
1009: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1010: p_msg_name => G_UNEXPECTED_ERROR,
1011: p_token1 => G_SQLCODE_TOKEN,
1012: p_token1_value => sqlcode,
1013: p_token2 => G_SQLERRM_TOKEN,
1160: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1161: FND_LOG.STRING(G_EXCP_LEVEL,
1162: G_PKG_NAME, '4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm );
1163: END IF;
1164: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1165: p_msg_name => G_UNEXPECTED_ERROR,
1166: p_token1 => G_SQLCODE_TOKEN,
1167: p_token1_value => sqlcode,
1168: p_token2 => G_SQLERRM_TOKEN,
1232:
1233: IF (lock_csr%ISOPEN) THEN
1234: CLOSE lock_csr;
1235: END IF;
1236: Okc_Api.Set_Message(G_FND_APP,G_UNABLE_TO_RESERVE_REC);
1237: RETURN( G_RET_STS_ERROR );
1238: END;
1239:
1240: IF ( l_row_notfound ) THEN
1245: l_row_notfound := lchk_csr%NOTFOUND;
1246: CLOSE lchk_csr;
1247:
1248: IF (l_row_notfound) THEN
1249: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
1250: ELSIF l_object_version_number > p_object_version_number THEN
1251: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1252: ELSIF l_object_version_number = -1 THEN
1253: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1247:
1248: IF (l_row_notfound) THEN
1249: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
1250: ELSIF l_object_version_number > p_object_version_number THEN
1251: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1252: ELSIF l_object_version_number = -1 THEN
1253: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1254: ELSE -- it can be the only above condition. It can happen after restore version
1255: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1249: Okc_Api.Set_Message(G_FND_APP,G_RECORD_DELETED);
1250: ELSIF l_object_version_number > p_object_version_number THEN
1251: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1252: ELSIF l_object_version_number = -1 THEN
1253: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1254: ELSE -- it can be the only above condition. It can happen after restore version
1255: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1256: END IF;
1257: ELSE
1251: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1252: ELSIF l_object_version_number = -1 THEN
1253: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
1254: ELSE -- it can be the only above condition. It can happen after restore version
1255: Okc_Api.Set_Message(G_FND_APP,G_RECORD_CHANGED);
1256: END IF;
1257: ELSE
1258: l_return_status := G_RET_STS_SUCCESS;
1259: END IF;
1287: FND_LOG.STRING(G_EXCP_LEVEL,
1288: G_PKG_NAME, '5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm );
1289: END IF;
1290:
1291: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1292: p_msg_name => G_UNEXPECTED_ERROR,
1293: p_token1 => G_SQLCODE_TOKEN,
1294: p_token1_value => sqlcode,
1295: p_token2 => G_SQLERRM_TOKEN,
1378: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1379: FND_LOG.STRING(G_EXCP_LEVEL,
1380: G_PKG_NAME, '6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm );
1381: END IF;
1382: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1383: p_msg_name => G_UNEXPECTED_ERROR,
1384: p_token1 => G_SQLCODE_TOKEN,
1385: p_token1_value => sqlcode,
1386: p_token2 => G_SQLERRM_TOKEN,
1458: FND_LOG.STRING(G_EXCP_LEVEL,
1459: G_PKG_NAME, '6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm );
1460: END IF;
1461:
1462: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1463: p_msg_name => G_UNEXPECTED_ERROR,
1464: p_token1 => G_SQLCODE_TOKEN,
1465: p_token1_value => sqlcode,
1466: p_token2 => G_SQLERRM_TOKEN,
1686: FND_LOG.STRING(G_EXCP_LEVEL,
1687: G_PKG_NAME, '8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm );
1688: END IF;
1689:
1690: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1691: p_msg_name => G_UNEXPECTED_ERROR,
1692: p_token1 => G_SQLCODE_TOKEN,
1693: p_token1_value => sqlcode,
1694: p_token2 => G_SQLERRM_TOKEN,
1743: FND_LOG.STRING(G_EXCP_LEVEL,
1744: G_PKG_NAME, '8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm );
1745: END IF;
1746:
1747: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1748: p_msg_name => G_UNEXPECTED_ERROR,
1749: p_token1 => G_SQLCODE_TOKEN,
1750: p_token1_value => sqlcode,
1751: p_token2 => G_SQLERRM_TOKEN,
1846: IF ( G_EXCP_LEVEL >= G_DBG_LEVEL ) THEN
1847: FND_LOG.STRING(G_EXCP_LEVEL,
1848: G_PKG_NAME, '9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm );
1849: END IF;
1850: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1851: p_msg_name => G_UNEXPECTED_ERROR,
1852: p_token1 => G_SQLCODE_TOKEN,
1853: p_token1_value => sqlcode,
1854: p_token2 => G_SQLERRM_TOKEN,
1910:
1911: IF (lock_csr%ISOPEN) THEN
1912: CLOSE lock_csr;
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
1957:
1958: IF (lock_csr%ISOPEN) THEN
1959: CLOSE lock_csr;
1960: END IF;
1961: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1962: p_msg_name => G_UNEXPECTED_ERROR,
1963: p_token1 => G_SQLCODE_TOKEN,
1964: p_token1_value => sqlcode,
1965: p_token2 => G_SQLERRM_TOKEN,
2023:
2024: IF (lock_csr%ISOPEN) THEN
2025: 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
2069:
2070: IF (lock_csr%ISOPEN) THEN
2071: CLOSE lock_csr;
2072: END IF;
2073: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2074: p_msg_name => G_UNEXPECTED_ERROR,
2075: p_token1 => G_SQLCODE_TOKEN,
2076: p_token1_value => sqlcode,
2077: p_token2 => G_SQLERRM_TOKEN,
2140:
2141: IF (lock_csr%ISOPEN) THEN
2142: 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
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
2172:
2173: IF (lock_csr%ISOPEN) THEN
2174: CLOSE lock_csr;
2175: END IF;
2176: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2177: x_return_status := G_RET_STS_UNEXP_ERROR;
2178:
2179: WHEN OTHERS THEN
2180: /*IF (l_debug = 'Y') THEN
2188:
2189: IF (lock_csr%ISOPEN) THEN
2190: CLOSE lock_csr;
2191: END IF;
2192: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2193: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2194: p_msg_name => G_UNEXPECTED_ERROR,
2195: p_token1 => G_SQLCODE_TOKEN,
2196: p_token1_value => sqlcode,
2189: IF (lock_csr%ISOPEN) THEN
2190: CLOSE lock_csr;
2191: END IF;
2192: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2193: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2194: p_msg_name => G_UNEXPECTED_ERROR,
2195: p_token1 => G_SQLCODE_TOKEN,
2196: p_token1_value => sqlcode,
2197: p_token2 => G_SQLERRM_TOKEN,
2283: FND_LOG.STRING(G_EXCP_LEVEL,
2284: G_PKG_NAME, '10100: Leaving create_version because of EXCEPTION: '||sqlerrm );
2285: END IF;
2286:
2287: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2288: p_msg_name => G_UNEXPECTED_ERROR,
2289: p_token1 => G_SQLCODE_TOKEN,
2290: p_token1_value => sqlcode,
2291: p_token2 => G_SQLERRM_TOKEN,
2380: FND_LOG.STRING(G_EXCP_LEVEL,
2381: G_PKG_NAME, '10600: Leaving restore_version because of EXCEPTION: '||sqlerrm );
2382: END IF;
2383:
2384: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2385: p_msg_name => G_UNEXPECTED_ERROR,
2386: p_token1 => G_SQLCODE_TOKEN,
2387: p_token1_value => sqlcode,
2388: p_token2 => G_SQLERRM_TOKEN,
2440: FND_LOG.STRING(G_EXCP_LEVEL,
2441: G_PKG_NAME, '7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm );
2442: END IF;
2443:
2444: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2445: p_msg_name => G_UNEXPECTED_ERROR,
2446: p_token1 => G_SQLCODE_TOKEN,
2447: p_token1_value => sqlcode,
2448: p_token2 => G_SQLERRM_TOKEN,