[Home] [Help]
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: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_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: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
20: ---------------------------------------------------------------------------
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: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
20: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
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: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
20: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
22: ---------------------------------------------------------------------------
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: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
20: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
22: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
19: G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
20: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
22: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
24: G_VALID_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_VALID_VALUE_VALID_LVL;
25: G_LOOKUP_CODE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_LOOKUP_CODE_VALID_LVL;
26: G_FOREIGN_KEY_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_FOREIGN_KEY_VALID_LVL;
27: G_RECORD_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_RECORD_VALID_LVL;
20: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
22: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
24: G_VALID_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_VALID_VALUE_VALID_LVL;
25: G_LOOKUP_CODE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_LOOKUP_CODE_VALID_LVL;
26: G_FOREIGN_KEY_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_FOREIGN_KEY_VALID_LVL;
27: G_RECORD_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_RECORD_VALID_LVL;
28: ---------------------------------------------------------------------------
21: -- VALIDATION LEVELS
22: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
24: G_VALID_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_VALID_VALUE_VALID_LVL;
25: G_LOOKUP_CODE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_LOOKUP_CODE_VALID_LVL;
26: G_FOREIGN_KEY_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_FOREIGN_KEY_VALID_LVL;
27: G_RECORD_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_RECORD_VALID_LVL;
28: ---------------------------------------------------------------------------
29: -- GLOBAL VARIABLES
22: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
24: G_VALID_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_VALID_VALUE_VALID_LVL;
25: G_LOOKUP_CODE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_LOOKUP_CODE_VALID_LVL;
26: G_FOREIGN_KEY_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_FOREIGN_KEY_VALID_LVL;
27: G_RECORD_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_RECORD_VALID_LVL;
28: ---------------------------------------------------------------------------
29: -- GLOBAL VARIABLES
30: ---------------------------------------------------------------------------
23: G_REQUIRED_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_REQUIRED_VALUE_VALID_LVL;
24: G_VALID_VALUE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_VALID_VALUE_VALID_LVL;
25: G_LOOKUP_CODE_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_LOOKUP_CODE_VALID_LVL;
26: G_FOREIGN_KEY_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_FOREIGN_KEY_VALID_LVL;
27: G_RECORD_VALID_LVL CONSTANT NUMBER := 0; --OKC_API.G_RECORD_VALID_LVL;
28: ---------------------------------------------------------------------------
29: -- GLOBAL VARIABLES
30: ---------------------------------------------------------------------------
31: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_K_ARTICLES_PVT';
28: ---------------------------------------------------------------------------
29: -- GLOBAL VARIABLES
30: ---------------------------------------------------------------------------
31: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_K_ARTICLES_PVT';
32: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
33:
34: ------------------------------------------------------------------------------
35: -- GLOBAL CONSTANTS
36: ------------------------------------------------------------------------------
86: IF (l_debug = 'Y') THEN
87: Okc_Debug.Log('300: Leaving get_seq_id because of EXCEPTION: '||sqlerrm, 2);
88: END IF;
89:
90: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
91: p_msg_name => G_UNEXPECTED_ERROR,
92: p_token1 => G_SQLCODE_TOKEN,
93: p_token1_value => sqlcode,
94: p_token2 => G_SQLERRM_TOKEN,
308: x_last_update_date,
309: x_last_amended_by,
310: x_last_amendment_date;
311: IF OKC_K_ARTICLES_B_pk_csr%NOTFOUND THEN
312: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
313: 'ENTITYNAME','OKC_K_ARTICLES_B',
314: 'PKEY',p_id,
315: 'OVN',p_major_version
316: );
369: x_last_update_date,
370: x_last_amended_by,
371: x_last_amendment_date;
372: IF OKC_K_ARTICLES_BH_pk_csr%NOTFOUND THEN
373: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
374: 'ENTITYNAME','OKC_K_ARTICLES_BH',
375: 'PKEY',p_id,
376: 'OVN',p_major_version
377: );
392: Okc_Debug.Log('600: Leaving get_rec because of NO_DATA_FOUND EXCEPTION.', 2);
393: END IF;
394:
395: -- moved upper where an exception is raised
396: -- Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
397: -- 'ENTITYNAME','OKC_K_ARTICLES_BH',
398: -- 'PKEY',p_id,
399: -- 'OVN',p_major_version
400: -- );
414: IF (l_debug = 'Y') THEN
415: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
416: END IF;
417:
418: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
419: p_msg_name => G_UNEXPECTED_ERROR,
420: p_token1 => G_SQLCODE_TOKEN,
421: p_token1_value => sqlcode,
422: p_token2 => G_SQLERRM_TOKEN,
573: x_last_amendment_date => x_last_amendment_date
574: );
575: --- If any errors happen abort API
576: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_ERROR;
580: END IF;
581:
575: --- If any errors happen abort API
576: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
577: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
578: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
579: RAISE OKC_API.G_EXCEPTION_ERROR;
580: END IF;
581:
582: --- Reversing G_MISS/NULL values logic
583:
912: IF ( p_id IS NULL) THEN
913: IF (l_debug = 'Y') THEN
914: Okc_Debug.Log('1000: - attribute ID is invalid', 2);
915: END IF;
916: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ID');
917: l_return_status := G_RET_STS_ERROR;
918: END IF;
919:
920: IF (l_debug = 'Y') THEN
923: IF ( p_document_type IS NULL) THEN
924: IF (l_debug = 'Y') THEN
925: Okc_Debug.Log('1500: - attribute DOCUMENT_TYPE is invalid', 2);
926: END IF;
927: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DOCUMENT_TYPE');
928: l_return_status := G_RET_STS_ERROR;
929: END IF;
930:
931: IF (l_debug = 'Y') THEN
934: IF ( p_document_id IS NULL) THEN
935: IF (l_debug = 'Y') THEN
936: Okc_Debug.Log('1500: - attribute DOCUMENT_ID is invalid', 2);
937: END IF;
938: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DOCUMENT_ID');
939: l_return_status := G_RET_STS_ERROR;
940: END IF;
941:
942: IF (l_debug = 'Y') THEN
945: IF ( p_scn_id IS NULL) THEN
946: IF (l_debug = 'Y') THEN
947: Okc_Debug.Log('1500: - attribute SCN_ID is invalid', 2);
948: END IF;
949: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'SCN_ID');
950: l_return_status := G_RET_STS_ERROR;
951: END IF;
952:
953: IF (l_debug = 'Y') THEN
956: IF ( p_display_sequence IS NULL) THEN
957: IF (l_debug = 'Y') THEN
958: Okc_Debug.Log('1500: - attribute DISPLAY_SEQUENCE is invalid', 2);
959: END IF;
960: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DISPLAY_SEQUENCE');
961: l_return_status := G_RET_STS_ERROR;
962: END IF;
963:
964: IF (l_debug = 'Y') THEN
967: IF ( p_sav_sae_id IS NULL) THEN
968: IF (l_debug = 'Y') THEN
969: Okc_Debug.Log('1500: - attribute SAV_SAE_ID is invalid', 2);
970: END IF;
971: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'SAV_SAE_ID');
972: l_return_status := G_RET_STS_ERROR;
973: END IF;
974: END IF;
975:
986: IF ( p_mandatory_yn NOT IN ('Y','N') AND p_mandatory_yn IS NOT NULL) THEN
987: IF (l_debug = 'Y') THEN
988: Okc_Debug.Log('1300: - attribute MANDATORY_YN is invalid', 2);
989: END IF;
990: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'MANDATORY_YN');
991: l_return_status := G_RET_STS_ERROR;
992: END IF;
993:
994: IF (l_debug = 'Y') THEN
998: IF ( p_print_text_yn NOT IN ('Y','N') AND p_print_text_yn IS NOT NULL) THEN
999: IF (l_debug = 'Y') THEN
1000: Okc_Debug.Log('1300: - attribute PRINT_TEXT_YN is invalid', 2);
1001: END IF;
1002: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'PRINT_TEXT_YN');
1003: l_return_status := G_RET_STS_ERROR;
1004: END IF;
1005:
1006: IF (l_debug = 'Y') THEN
1009: IF ( p_change_nonstd_yn NOT IN ('Y','N') AND p_change_nonstd_yn IS NOT NULL) THEN
1010: IF (l_debug = 'Y') THEN
1011: Okc_Debug.Log('1300: - attribute CHANGE_NONSTD_YN is invalid', 2);
1012: END IF;
1013: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CHANGE_NONSTD_YN');
1014: l_return_status := G_RET_STS_ERROR;
1015: END IF;
1016:
1017: END IF;
1028:
1029: l_return_status := Okc_Util.Check_Lookup_Code('OKC_AMEND_OPN_CODE',p_amendment_operation_code);
1030:
1031: IF (l_return_status <> G_RET_STS_SUCCESS) THEN
1032: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'AMENDMENT_OPERATION_CODE');
1033: l_return_status := G_RET_STS_ERROR;
1034: END IF;
1035:
1036: IF p_summary_amend_operation_code is not null THEN
1040:
1041: l_return_status := Okc_Util.Check_Lookup_Code('OKC_AMEND_OPN_CODE',p_summary_amend_operation_code);
1042:
1043: IF (l_return_status <> G_RET_STS_SUCCESS) THEN
1044: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SUMMARY_AMEND_OPERATION_CODE');
1045: l_return_status := G_RET_STS_ERROR;
1046: END IF;
1047: END IF;
1048:
1053: OPEN l_validate_amend_mode_csr;
1054: FETCH l_validate_amend_mode_csr INTO l_dummy_var;
1055: CLOSE l_validate_amend_mode_csr;
1056: IF l_dummy_var <> '?' THEN
1057: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_AMEND_INVALID');
1058: l_return_status := G_RET_STS_ERROR;
1059: END IF;
1060:
1061: END IF;
1077: IF (l_dummy_var = '?') THEN
1078: IF (l_debug = 'Y') THEN
1079: Okc_Debug.Log('2300: - attribute DOCUMENT_TYPE is invalid', 2);
1080: END IF;
1081: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DOCUMENT_TYPE');
1082: l_return_status := G_RET_STS_ERROR;
1083: END IF;
1084: END IF;
1085:
1094: IF (l_dummy_var = '?') THEN
1095: IF (l_debug = 'Y') THEN
1096: Okc_Debug.Log('1800: - attribute SAV_SAE_ID is invalid', 2);
1097: END IF;
1098: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1099: l_return_status := G_RET_STS_ERROR;
1100: END IF;
1101: END IF;
1102:
1112: IF (l_dummy_var = '?') THEN
1113: IF (l_debug = 'Y') THEN
1114: Okc_Debug.Log('1800: - attribute SCN_ID is invalid', 2);
1115: END IF;
1116: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SCN_ID');
1117: l_return_status := G_RET_STS_ERROR;
1118: END IF;
1119: END IF;
1120:
1129: IF (l_dummy_var = '?') THEN
1130: IF (l_debug = 'Y') THEN
1131: Okc_Debug.Log('1800: - attribute ARTICLE_VERSION_ID is invalid', 2);
1132: END IF;
1133: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_VERSION_ID');
1134: l_return_status := G_RET_STS_ERROR;
1135: END IF;
1136: END IF;
1137:
1146:
1147: EXCEPTION
1148: WHEN OTHERS THEN
1149: Okc_Debug.Log('2000: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
1150: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1151: p_msg_name => G_UNEXPECTED_ERROR,
1152: p_token1 => G_SQLCODE_TOKEN,
1153: p_token1_value => sqlcode,
1154: p_token2 => G_SQLERRM_TOKEN,
1312:
1313: IF (l_debug = 'Y') THEN
1314: Okc_Debug.Log('1500: - Wrong Combination of Article_version_id and sav_sae_id', 2);
1315: END IF;
1316: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_VERSION_ID');
1317: l_return_status := G_RET_STS_ERROR;
1318: END IF;
1319: END IF;
1320: END IF;
1334: IF l_validate_article_csr%ISOPEN THEN
1335: CLOSE l_validate_article_csr;
1336: END IF;
1337:
1338: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1339: p_msg_name => G_UNEXPECTED_ERROR,
1340: p_token1 => G_SQLCODE_TOKEN,
1341: p_token1_value => sqlcode,
1342: p_token2 => G_SQLERRM_TOKEN,
1525: x_last_amended_by => l_last_amended_by,
1526: x_last_amendment_date => l_last_amendment_date
1527: );
1528: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1527: );
1528: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1531: RAISE OKC_API.G_EXCEPTION_ERROR;
1532: END IF;
1533:
1534: -- Validate all non-missing attributes (Item Level Validation)
1535: x_return_status := Validate_Record(
1577: Okc_Debug.Log('2700: Leaving validate_row', 2);
1578: END IF;
1579:
1580: EXCEPTION
1581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1582:
1583: IF (l_debug = 'Y') THEN
1584: Okc_Debug.Log('2800: Leaving Validate_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1585: END IF;
1580: EXCEPTION
1581: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1582:
1583: IF (l_debug = 'Y') THEN
1584: Okc_Debug.Log('2800: Leaving Validate_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1585: END IF;
1586:
1587: x_return_status := G_RET_STS_ERROR;
1588:
1585: END IF;
1586:
1587: x_return_status := G_RET_STS_ERROR;
1588:
1589: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1590:
1591: IF (l_debug = 'Y') THEN
1592: Okc_Debug.Log('2900: Leaving Validate_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1593: END IF;
1588:
1589: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1590:
1591: IF (l_debug = 'Y') THEN
1592: Okc_Debug.Log('2900: Leaving Validate_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1593: END IF;
1594:
1595: x_return_status := G_RET_STS_UNEXP_ERROR;
1596: WHEN OTHERS THEN
1598: IF (l_debug = 'Y') THEN
1599: Okc_Debug.Log('3000: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
1600: END IF;
1601:
1602: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1603: p_msg_name => G_UNEXPECTED_ERROR,
1604: p_token1 => G_SQLCODE_TOKEN,
1605: p_token1_value => sqlcode,
1606: p_token2 => G_SQLERRM_TOKEN,
1797: IF (l_debug = 'Y') THEN
1798: Okc_Debug.Log('3300: Leaving Insert_Row:OTHERS Exception', 2);
1799: END IF;
1800:
1801: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1802: p_msg_name => G_UNEXPECTED_ERROR,
1803: p_token1 => G_SQLCODE_TOKEN,
1804: p_token1_value => sqlcode,
1805: p_token2 => G_SQLERRM_TOKEN,
1881: x_id => x_id
1882: );
1883: --- If any errors happen abort API
1884: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1886: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1887: RAISE OKC_API.G_EXCEPTION_ERROR;
1888: END IF;
1889: ELSE
1883: --- If any errors happen abort API
1884: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1885: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1886: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1887: RAISE OKC_API.G_EXCEPTION_ERROR;
1888: END IF;
1889: ELSE
1890: x_id := p_id;
1891: END IF;
1943: p_ref_article_version_id => p_ref_article_version_id
1944: );
1945: --- If any errors happen abort API
1946: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1951:
1945: --- If any errors happen abort API
1946: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1948: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1949: RAISE OKC_API.G_EXCEPTION_ERROR;
1950: END IF;
1951:
1952: --------------------------------------------
1953: -- Call the internal Insert_Row for each child record
2000: p_last_amended_by => l_last_amended_by,
2001: p_last_amendment_date => l_last_amendment_date
2002: );
2003: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2005: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_ERROR;
2007: END IF;
2008:
2002: );
2003: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2004: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2005: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2006: RAISE OKC_API.G_EXCEPTION_ERROR;
2007: END IF;
2008:
2009: IF (l_debug = 'Y') THEN
2010: Okc_Debug.Log('3500: Leaving Insert_Row', 2);
2010: Okc_Debug.Log('3500: Leaving Insert_Row', 2);
2011: END IF;
2012:
2013: EXCEPTION
2014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2015:
2016: IF (l_debug = 'Y') THEN
2017: Okc_Debug.Log('3600: Leaving Insert_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2018: END IF;
2013: EXCEPTION
2014: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2015:
2016: IF (l_debug = 'Y') THEN
2017: Okc_Debug.Log('3600: Leaving Insert_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2018: END IF;
2019:
2020: x_return_status := G_RET_STS_ERROR;
2021:
2018: END IF;
2019:
2020: x_return_status := G_RET_STS_ERROR;
2021:
2022: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2023:
2024: IF (l_debug = 'Y') THEN
2025: Okc_Debug.Log('3700: Leaving Insert_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2026: END IF;
2021:
2022: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2023:
2024: IF (l_debug = 'Y') THEN
2025: Okc_Debug.Log('3700: Leaving Insert_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2026: END IF;
2027:
2028: x_return_status := G_RET_STS_UNEXP_ERROR;
2029: WHEN OTHERS THEN
2031: IF (l_debug = 'Y') THEN
2032: Okc_Debug.Log('3800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
2033: END IF;
2034:
2035: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2036: p_msg_name => G_UNEXPECTED_ERROR,
2037: p_token1 => G_SQLCODE_TOKEN,
2038: p_token1_value => sqlcode,
2039: p_token2 => G_SQLERRM_TOKEN,
2093:
2094: IF (lock_csr%ISOPEN) THEN
2095: CLOSE lock_csr;
2096: END IF;
2097: Okc_Api.Set_Message(G_FND_APP,G_UNABLE_TO_RESERVE_REC);
2098: RETURN( G_RET_STS_ERROR );
2099: END;
2100:
2101: IF ( l_row_notfound ) THEN
2106: l_row_notfound := lchk_csr%NOTFOUND;
2107: CLOSE lchk_csr;
2108:
2109: IF (l_row_notfound) THEN
2110: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
2111: 'ENTITYNAME','OKC_K_ARTICLES_B',
2112: 'PKEY',p_id,
2113: 'OVN',p_object_version_number
2114: );
2112: 'PKEY',p_id,
2113: 'OVN',p_object_version_number
2114: );
2115: ELSIF l_object_version_number > p_object_version_number THEN
2116: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2117: ELSIF l_object_version_number = -1 THEN
2118: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2119: ELSE -- it can be the only above condition. It can happen after restore version
2120: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2114: );
2115: ELSIF l_object_version_number > p_object_version_number THEN
2116: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2117: ELSIF l_object_version_number = -1 THEN
2118: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2119: ELSE -- it can be the only above condition. It can happen after restore version
2120: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2121: END IF;
2122: ELSE
2116: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2117: ELSIF l_object_version_number = -1 THEN
2118: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2119: ELSE -- it can be the only above condition. It can happen after restore version
2120: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2121: END IF;
2122: ELSE
2123: l_return_status := G_RET_STS_SUCCESS;
2124: END IF;
2142: IF (l_debug = 'Y') THEN
2143: Okc_Debug.Log('4200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2144: END IF;
2145:
2146: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2147: p_msg_name => G_UNEXPECTED_ERROR,
2148: p_token1 => G_SQLCODE_TOKEN,
2149: p_token1_value => sqlcode,
2150: p_token2 => G_SQLERRM_TOKEN,
2173: p_id => p_id,
2174: p_object_version_number => p_object_version_number
2175: );
2176: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2175: );
2176: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2177: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2178: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2179: RAISE OKC_API.G_EXCEPTION_ERROR;
2180: END IF;
2181:
2182: IF (l_debug = 'Y') THEN
2183: Okc_Debug.Log('4400: Leaving Lock_Row', 2);
2183: Okc_Debug.Log('4400: Leaving Lock_Row', 2);
2184: END IF;
2185:
2186: EXCEPTION
2187: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2188:
2189: IF (l_debug = 'Y') THEN
2190: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2191: END IF;
2186: EXCEPTION
2187: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2188:
2189: IF (l_debug = 'Y') THEN
2190: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2191: END IF;
2192:
2193: x_return_status := G_RET_STS_ERROR;
2194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2190: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2191: END IF;
2192:
2193: x_return_status := G_RET_STS_ERROR;
2194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195:
2196: IF (l_debug = 'Y') THEN
2197: Okc_Debug.Log('4600: Leaving Lock_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2198: END IF;
2193: x_return_status := G_RET_STS_ERROR;
2194: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195:
2196: IF (l_debug = 'Y') THEN
2197: Okc_Debug.Log('4600: Leaving Lock_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2198: END IF;
2199:
2200: x_return_status := G_RET_STS_UNEXP_ERROR;
2201: WHEN OTHERS THEN
2203: IF (l_debug = 'Y') THEN
2204: Okc_Debug.Log('4700: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2205: END IF;
2206:
2207: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2208: p_msg_name => G_UNEXPECTED_ERROR,
2209: p_token1 => G_SQLCODE_TOKEN,
2210: p_token1_value => sqlcode,
2211: p_token2 => G_SQLERRM_TOKEN,
2338: IF (l_debug = 'Y') THEN
2339: Okc_Debug.Log('5000: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
2340: END IF;
2341:
2342: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2343: p_msg_name => G_UNEXPECTED_ERROR,
2344: p_token1 => G_SQLCODE_TOKEN,
2345: p_token1_value => sqlcode,
2346: p_token2 => G_SQLERRM_TOKEN,
2454: p_id => p_id,
2455: p_object_version_number => p_object_version_number
2456: );
2457: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2460: RAISE OKC_API.G_EXCEPTION_ERROR;
2461: END IF;
2462:
2456: );
2457: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2458: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2459: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2460: RAISE OKC_API.G_EXCEPTION_ERROR;
2461: END IF;
2462:
2463: IF (l_debug = 'Y') THEN
2464: Okc_Debug.Log('5300: Setting attributes', 2);
2546: x_last_amendment_date => l_last_amendment_date
2547: );
2548:
2549: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554:
2548:
2549: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2550: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2551: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2552: RAISE OKC_API.G_EXCEPTION_ERROR;
2553: END IF;
2554:
2555: IF (l_debug = 'Y') THEN
2556: Okc_Debug.Log('5400: Record Validation', 2);
2598: p_ref_article_version_id => l_ref_article_version_id
2599: );
2600: --- If any errors happen abort API
2601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2604: RAISE OKC_API.G_EXCEPTION_ERROR;
2605: END IF;
2606:
2600: --- If any errors happen abort API
2601: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2603: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2604: RAISE OKC_API.G_EXCEPTION_ERROR;
2605: END IF;
2606:
2607: IF (l_debug = 'Y') THEN
2608: Okc_Debug.Log('5500: Filling WHO columns', 2);
2672: p_last_amended_by => l_last_amended_by,
2673: p_last_amendment_date => l_last_amendment_date
2674: );
2675: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2674: );
2675: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2676: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2677: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2678: RAISE OKC_API.G_EXCEPTION_ERROR;
2679: END IF;
2680:
2681: IF (l_debug = 'Y') THEN
2682: Okc_Debug.Log('5700: Leaving Update_Row', 2);
2682: Okc_Debug.Log('5700: Leaving Update_Row', 2);
2683: END IF;
2684:
2685: EXCEPTION
2686: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2687:
2688: IF (l_debug = 'Y') THEN
2689: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2690: END IF;
2685: EXCEPTION
2686: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2687:
2688: IF (l_debug = 'Y') THEN
2689: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2690: END IF;
2691:
2692: x_return_status := G_RET_STS_ERROR;
2693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2689: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2690: END IF;
2691:
2692: x_return_status := G_RET_STS_ERROR;
2693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2694:
2695: IF (l_debug = 'Y') THEN
2696: Okc_Debug.Log('5900: Leaving Update_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2697: END IF;
2692: x_return_status := G_RET_STS_ERROR;
2693: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2694:
2695: IF (l_debug = 'Y') THEN
2696: Okc_Debug.Log('5900: Leaving Update_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2697: END IF;
2698:
2699: x_return_status := G_RET_STS_UNEXP_ERROR;
2700: WHEN OTHERS THEN
2702: IF (l_debug = 'Y') THEN
2703: Okc_Debug.Log('6000: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
2704: END IF;
2705:
2706: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2707: p_msg_name => G_UNEXPECTED_ERROR,
2708: p_token1 => G_SQLCODE_TOKEN,
2709: p_token1_value => sqlcode,
2710: p_token2 => G_SQLERRM_TOKEN,
2744: IF (l_debug = 'Y') THEN
2745: Okc_Debug.Log('6300: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
2746: END IF;
2747:
2748: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2749: p_msg_name => G_UNEXPECTED_ERROR,
2750: p_token1 => G_SQLCODE_TOKEN,
2751: p_token1_value => sqlcode,
2752: p_token2 => G_SQLERRM_TOKEN,
2804: p_id => p_id,
2805: p_object_version_number => p_object_version_number
2806: );
2807: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2812:
2806: );
2807: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2808: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2809: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2810: RAISE OKC_API.G_EXCEPTION_ERROR;
2811: END IF;
2812:
2813: x_return_status := Delete_Row( p_id => p_id );
2814: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2811: END IF;
2812:
2813: x_return_status := Delete_Row( p_id => p_id );
2814: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_ERROR;
2818: END IF;
2819:
2813: x_return_status := Delete_Row( p_id => p_id );
2814: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2815: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2817: RAISE OKC_API.G_EXCEPTION_ERROR;
2818: END IF;
2819:
2820: IF l_standard_yn = 'N' THEN
2821: OPEN l_non_std_exists_csr(l_article_version_id);
2836: END IF;
2837: CLOSE l_non_std_exists_csr;
2838:
2839: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2841: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2842: RAISE OKC_API.G_EXCEPTION_ERROR;
2843: END IF;
2844:
2838:
2839: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2840: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2841: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2842: RAISE OKC_API.G_EXCEPTION_ERROR;
2843: END IF;
2844:
2845: END IF;
2846:
2848: Okc_Debug.Log('6500: Leaving Delete_Row', 2);
2849: END IF;
2850:
2851: EXCEPTION
2852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2853:
2854: IF (l_debug = 'Y') THEN
2855: Okc_Debug.Log('6600: Leaving Delete_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2856: END IF;
2851: EXCEPTION
2852: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2853:
2854: IF (l_debug = 'Y') THEN
2855: Okc_Debug.Log('6600: Leaving Delete_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2856: END IF;
2857:
2858: x_return_status := G_RET_STS_ERROR;
2859:
2856: END IF;
2857:
2858: x_return_status := G_RET_STS_ERROR;
2859:
2860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861:
2862: IF (l_debug = 'Y') THEN
2863: Okc_Debug.Log('6700: Leaving Delete_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2864: END IF;
2859:
2860: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2861:
2862: IF (l_debug = 'Y') THEN
2863: Okc_Debug.Log('6700: Leaving Delete_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2864: END IF;
2865:
2866: x_return_status := G_RET_STS_UNEXP_ERROR;
2867:
2870: IF (l_debug = 'Y') THEN
2871: Okc_Debug.Log('6800: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
2872: END IF;
2873:
2874: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2875: p_msg_name => G_UNEXPECTED_ERROR,
2876: p_token1 => G_SQLCODE_TOKEN,
2877: p_token1_value => sqlcode,
2878: p_token2 => G_SQLERRM_TOKEN,
2915:
2916: IF (lock_csr%ISOPEN) THEN
2917: CLOSE lock_csr;
2918: END IF;
2919: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2920: x_return_status := G_RET_STS_ERROR ;
2921:
2922: WHEN FND_API.G_EXC_ERROR THEN
2923: IF (l_debug = 'Y') THEN
2946:
2947: IF (lock_csr%ISOPEN) THEN
2948: CLOSE lock_csr;
2949: END IF;
2950: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2951: p_msg_name => G_UNEXPECTED_ERROR,
2952: p_token1 => G_SQLCODE_TOKEN,
2953: p_token1_value => sqlcode,
2954: p_token2 => G_SQLERRM_TOKEN,
2996:
2997: IF (lock_csr%ISOPEN) THEN
2998: CLOSE lock_csr;
2999: END IF;
3000: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
3001: x_return_status := G_RET_STS_ERROR ;
3002:
3003: WHEN FND_API.G_EXC_ERROR THEN
3004: IF (l_debug = 'Y') THEN
3027:
3028: IF (lock_csr%ISOPEN) THEN
3029: CLOSE lock_csr;
3030: END IF;
3031: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3032: p_msg_name => G_UNEXPECTED_ERROR,
3033: p_token1 => G_SQLCODE_TOKEN,
3034: p_token1_value => sqlcode,
3035: p_token2 => G_SQLERRM_TOKEN,
3272: IF (non_std_csr%ISOPEN) THEN
3273: CLOSE non_std_csr;
3274: END IF;
3275:
3276: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3277: p_msg_name => G_UNEXPECTED_ERROR,
3278: p_token1 => G_SQLCODE_TOKEN,
3279: p_token1_value => sqlcode,
3280: p_token2 => G_SQLERRM_TOKEN,
3427: IF (l_debug = 'Y') THEN
3428: Okc_Debug.Log('7400: Leaving restore_version because of EXCEPTION: '||sqlerrm, 2);
3429: END IF;
3430:
3431: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3432: p_msg_name => G_UNEXPECTED_ERROR,
3433: p_token1 => G_SQLCODE_TOKEN,
3434: p_token1_value => sqlcode,
3435: p_token2 => G_SQLERRM_TOKEN,
3475: IF (l_debug = 'Y') THEN
3476: Okc_Debug.Log('7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm, 2);
3477: END IF;
3478:
3479: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3480: p_msg_name => G_UNEXPECTED_ERROR,
3481: p_token1 => G_SQLCODE_TOKEN,
3482: p_token1_value => sqlcode,
3483: p_token2 => G_SQLERRM_TOKEN,