[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,
311: x_last_amended_by,
312: x_last_amendment_date,
313: x_mandatory_rwa;
314: IF OKC_K_ARTICLES_B_pk_csr%NOTFOUND THEN
315: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
316: 'ENTITYNAME','OKC_K_ARTICLES_B',
317: 'PKEY',p_id,
318: 'OVN',p_major_version
319: );
374: x_last_amendment_date,
375: x_mandatory_rwa;
376:
377: IF OKC_K_ARTICLES_BH_pk_csr%NOTFOUND THEN
378: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
379: 'ENTITYNAME','OKC_K_ARTICLES_BH',
380: 'PKEY',p_id,
381: 'OVN',p_major_version
382: );
397: Okc_Debug.Log('600: Leaving get_rec because of NO_DATA_FOUND EXCEPTION.', 2);
398: END IF;
399:
400: -- moved upper where an exception is raised
401: -- Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
402: -- 'ENTITYNAME','OKC_K_ARTICLES_BH',
403: -- 'PKEY',p_id,
404: -- 'OVN',p_major_version
405: -- );
419: IF (l_debug = 'Y') THEN
420: Okc_Debug.Log('600: Leaving get_rec because of EXCEPTION: '||sqlerrm, 2);
421: END IF;
422:
423: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
424: p_msg_name => G_UNEXPECTED_ERROR,
425: p_token1 => G_SQLCODE_TOKEN,
426: p_token1_value => sqlcode,
427: p_token2 => G_SQLERRM_TOKEN,
581: x_mandatory_rwa => x_mandatory_rwa
582: );
583: --- If any errors happen abort API
584: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_ERROR;
588: END IF;
589:
583: --- If any errors happen abort API
584: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
586: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
587: RAISE OKC_API.G_EXCEPTION_ERROR;
588: END IF;
589:
590: --- Reversing G_MISS/NULL values logic
591:
926: IF ( p_id IS NULL) THEN
927: IF (l_debug = 'Y') THEN
928: Okc_Debug.Log('1000: - attribute ID is invalid', 2);
929: END IF;
930: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ID');
931: l_return_status := G_RET_STS_ERROR;
932: END IF;
933:
934: IF (l_debug = 'Y') THEN
937: IF ( p_document_type IS NULL) THEN
938: IF (l_debug = 'Y') THEN
939: Okc_Debug.Log('1500: - attribute DOCUMENT_TYPE is invalid', 2);
940: END IF;
941: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DOCUMENT_TYPE');
942: l_return_status := G_RET_STS_ERROR;
943: END IF;
944:
945: IF (l_debug = 'Y') THEN
948: IF ( p_document_id IS NULL) THEN
949: IF (l_debug = 'Y') THEN
950: Okc_Debug.Log('1500: - attribute DOCUMENT_ID is invalid', 2);
951: END IF;
952: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DOCUMENT_ID');
953: l_return_status := G_RET_STS_ERROR;
954: END IF;
955:
956: IF (l_debug = 'Y') THEN
959: IF ( p_scn_id IS NULL) THEN
960: IF (l_debug = 'Y') THEN
961: Okc_Debug.Log('1500: - attribute SCN_ID is invalid', 2);
962: END IF;
963: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'SCN_ID');
964: l_return_status := G_RET_STS_ERROR;
965: END IF;
966:
967: IF (l_debug = 'Y') THEN
970: IF ( p_display_sequence IS NULL) THEN
971: IF (l_debug = 'Y') THEN
972: Okc_Debug.Log('1500: - attribute DISPLAY_SEQUENCE is invalid', 2);
973: END IF;
974: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DISPLAY_SEQUENCE');
975: l_return_status := G_RET_STS_ERROR;
976: END IF;
977:
978: IF (l_debug = 'Y') THEN
981: IF ( p_sav_sae_id IS NULL) THEN
982: IF (l_debug = 'Y') THEN
983: Okc_Debug.Log('1500: - attribute SAV_SAE_ID is invalid', 2);
984: END IF;
985: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'SAV_SAE_ID');
986: l_return_status := G_RET_STS_ERROR;
987: END IF;
988: END IF;
989:
1000: IF ( p_mandatory_yn NOT IN ('Y','N') AND p_mandatory_yn IS NOT NULL) THEN
1001: IF (l_debug = 'Y') THEN
1002: Okc_Debug.Log('1300: - attribute MANDATORY_YN is invalid', 2);
1003: END IF;
1004: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'MANDATORY_YN');
1005: l_return_status := G_RET_STS_ERROR;
1006: END IF;
1007:
1008: IF (l_debug = 'Y') THEN
1012: IF ( p_print_text_yn NOT IN ('Y','N') AND p_print_text_yn IS NOT NULL) THEN
1013: IF (l_debug = 'Y') THEN
1014: Okc_Debug.Log('1300: - attribute PRINT_TEXT_YN is invalid', 2);
1015: END IF;
1016: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'PRINT_TEXT_YN');
1017: l_return_status := G_RET_STS_ERROR;
1018: END IF;
1019:
1020: IF (l_debug = 'Y') THEN
1023: IF ( p_change_nonstd_yn NOT IN ('Y','N') AND p_change_nonstd_yn IS NOT NULL) THEN
1024: IF (l_debug = 'Y') THEN
1025: Okc_Debug.Log('1300: - attribute CHANGE_NONSTD_YN is invalid', 2);
1026: END IF;
1027: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CHANGE_NONSTD_YN');
1028: l_return_status := G_RET_STS_ERROR;
1029: END IF;
1030:
1031: END IF;
1042:
1043: l_return_status := Okc_Util.Check_Lookup_Code('OKC_AMEND_OPN_CODE',p_amendment_operation_code);
1044:
1045: IF (l_return_status <> G_RET_STS_SUCCESS) THEN
1046: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'AMENDMENT_OPERATION_CODE');
1047: l_return_status := G_RET_STS_ERROR;
1048: END IF;
1049:
1050: IF p_summary_amend_operation_code is not null THEN
1054:
1055: l_return_status := Okc_Util.Check_Lookup_Code('OKC_AMEND_OPN_CODE',p_summary_amend_operation_code);
1056:
1057: IF (l_return_status <> G_RET_STS_SUCCESS) THEN
1058: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'SUMMARY_AMEND_OPERATION_CODE');
1059: l_return_status := G_RET_STS_ERROR;
1060: END IF;
1061: END IF;
1062:
1067: OPEN l_validate_amend_mode_csr;
1068: FETCH l_validate_amend_mode_csr INTO l_dummy_var;
1069: CLOSE l_validate_amend_mode_csr;
1070: IF l_dummy_var <> '?' THEN
1071: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_AMEND_INVALID');
1072: l_return_status := G_RET_STS_ERROR;
1073: END IF;
1074:
1075: END IF;
1091: IF (l_dummy_var = '?') THEN
1092: IF (l_debug = 'Y') THEN
1093: Okc_Debug.Log('2300: - attribute DOCUMENT_TYPE is invalid', 2);
1094: END IF;
1095: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DOCUMENT_TYPE');
1096: l_return_status := G_RET_STS_ERROR;
1097: END IF;
1098: END IF;
1099:
1108: IF (l_dummy_var = '?') THEN
1109: IF (l_debug = 'Y') THEN
1110: Okc_Debug.Log('1800: - attribute SAV_SAE_ID is invalid', 2);
1111: END IF;
1112: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SAV_SAE_ID');
1113: l_return_status := G_RET_STS_ERROR;
1114: END IF;
1115: END IF;
1116:
1126: IF (l_dummy_var = '?') THEN
1127: IF (l_debug = 'Y') THEN
1128: Okc_Debug.Log('1800: - attribute SCN_ID is invalid', 2);
1129: END IF;
1130: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'SCN_ID');
1131: l_return_status := G_RET_STS_ERROR;
1132: END IF;
1133: END IF;
1134:
1143: IF (l_dummy_var = '?') THEN
1144: IF (l_debug = 'Y') THEN
1145: Okc_Debug.Log('1800: - attribute ARTICLE_VERSION_ID is invalid', 2);
1146: END IF;
1147: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ARTICLE_VERSION_ID');
1148: l_return_status := G_RET_STS_ERROR;
1149: END IF;
1150: END IF;
1151:
1160:
1161: EXCEPTION
1162: WHEN OTHERS THEN
1163: Okc_Debug.Log('2000: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm, 2);
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,
1327:
1328: IF (l_debug = 'Y') THEN
1329: Okc_Debug.Log('1500: - Wrong Combination of Article_version_id and sav_sae_id', 2);
1330: END IF;
1331: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'ARTICLE_VERSION_ID');
1332: l_return_status := G_RET_STS_ERROR;
1333: END IF;
1334: END IF;
1335: END IF;
1349: IF l_validate_article_csr%ISOPEN THEN
1350: CLOSE l_validate_article_csr;
1351: END IF;
1352:
1353: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1354: p_msg_name => G_UNEXPECTED_ERROR,
1355: p_token1 => G_SQLCODE_TOKEN,
1356: p_token1_value => sqlcode,
1357: p_token2 => G_SQLERRM_TOKEN,
1544: p_mandatory_rwa => p_mandatory_rwa,
1545: x_mandatory_rwa => l_mandatory_rwa
1546: );
1547: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1549: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1550: RAISE OKC_API.G_EXCEPTION_ERROR;
1551: END IF;
1552:
1546: );
1547: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1548: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1549: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1550: RAISE OKC_API.G_EXCEPTION_ERROR;
1551: END IF;
1552:
1553: -- Validate all non-missing attributes (Item Level Validation)
1554: x_return_status := Validate_Record(
1597: Okc_Debug.Log('2700: Leaving validate_row', 2);
1598: END IF;
1599:
1600: EXCEPTION
1601: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1602:
1603: IF (l_debug = 'Y') THEN
1604: Okc_Debug.Log('2800: Leaving Validate_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1605: END IF;
1600: EXCEPTION
1601: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1602:
1603: IF (l_debug = 'Y') THEN
1604: Okc_Debug.Log('2800: Leaving Validate_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
1605: END IF;
1606:
1607: x_return_status := G_RET_STS_ERROR;
1608:
1605: END IF;
1606:
1607: x_return_status := G_RET_STS_ERROR;
1608:
1609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1610:
1611: IF (l_debug = 'Y') THEN
1612: Okc_Debug.Log('2900: Leaving Validate_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1613: END IF;
1608:
1609: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1610:
1611: IF (l_debug = 'Y') THEN
1612: Okc_Debug.Log('2900: Leaving Validate_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1613: END IF;
1614:
1615: x_return_status := G_RET_STS_UNEXP_ERROR;
1616: WHEN OTHERS THEN
1618: IF (l_debug = 'Y') THEN
1619: Okc_Debug.Log('3000: Leaving Validate_Row because of EXCEPTION: '||sqlerrm, 2);
1620: END IF;
1621:
1622: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1623: p_msg_name => G_UNEXPECTED_ERROR,
1624: p_token1 => G_SQLCODE_TOKEN,
1625: p_token1_value => sqlcode,
1626: p_token2 => G_SQLERRM_TOKEN,
1819: IF (l_debug = 'Y') THEN
1820: Okc_Debug.Log('3300: Leaving Insert_Row:OTHERS Exception', 2);
1821: END IF;
1822:
1823: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1824: p_msg_name => G_UNEXPECTED_ERROR,
1825: p_token1 => G_SQLCODE_TOKEN,
1826: p_token1_value => sqlcode,
1827: p_token2 => G_SQLERRM_TOKEN,
1905: x_id => x_id
1906: );
1907: --- If any errors happen abort API
1908: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1909: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1910: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1911: RAISE OKC_API.G_EXCEPTION_ERROR;
1912: END IF;
1913: ELSE
1907: --- If any errors happen abort API
1908: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1909: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1910: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1911: RAISE OKC_API.G_EXCEPTION_ERROR;
1912: END IF;
1913: ELSE
1914: x_id := p_id;
1915: END IF;
1968: p_mandatory_rwa => p_mandatory_rwa
1969: );
1970: --- If any errors happen abort API
1971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_ERROR;
1975: END IF;
1976:
1970: --- If any errors happen abort API
1971: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1972: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1973: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1974: RAISE OKC_API.G_EXCEPTION_ERROR;
1975: END IF;
1976:
1977: --------------------------------------------
1978: -- Call the internal Insert_Row for each child record
2026: p_last_amendment_date => l_last_amendment_date,
2027: p_mandatory_rwa => p_mandatory_rwa
2028: );
2029: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2034:
2028: );
2029: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2030: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2031: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2032: RAISE OKC_API.G_EXCEPTION_ERROR;
2033: END IF;
2034:
2035: IF (l_debug = 'Y') THEN
2036: Okc_Debug.Log('3500: Leaving Insert_Row', 2);
2036: Okc_Debug.Log('3500: Leaving Insert_Row', 2);
2037: END IF;
2038:
2039: EXCEPTION
2040: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2041:
2042: IF (l_debug = 'Y') THEN
2043: Okc_Debug.Log('3600: Leaving Insert_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2044: END IF;
2039: EXCEPTION
2040: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2041:
2042: IF (l_debug = 'Y') THEN
2043: Okc_Debug.Log('3600: Leaving Insert_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2044: END IF;
2045:
2046: x_return_status := G_RET_STS_ERROR;
2047:
2044: END IF;
2045:
2046: x_return_status := G_RET_STS_ERROR;
2047:
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049:
2050: IF (l_debug = 'Y') THEN
2051: Okc_Debug.Log('3700: Leaving Insert_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2052: END IF;
2047:
2048: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2049:
2050: IF (l_debug = 'Y') THEN
2051: Okc_Debug.Log('3700: Leaving Insert_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2052: END IF;
2053:
2054: x_return_status := G_RET_STS_UNEXP_ERROR;
2055: WHEN OTHERS THEN
2057: IF (l_debug = 'Y') THEN
2058: Okc_Debug.Log('3800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm, 2);
2059: END IF;
2060:
2061: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2062: p_msg_name => G_UNEXPECTED_ERROR,
2063: p_token1 => G_SQLCODE_TOKEN,
2064: p_token1_value => sqlcode,
2065: p_token2 => G_SQLERRM_TOKEN,
2119:
2120: IF (lock_csr%ISOPEN) THEN
2121: CLOSE lock_csr;
2122: END IF;
2123: Okc_Api.Set_Message(G_FND_APP,G_UNABLE_TO_RESERVE_REC);
2124: RETURN( G_RET_STS_ERROR );
2125: END;
2126:
2127: IF ( l_row_notfound ) THEN
2132: l_row_notfound := lchk_csr%NOTFOUND;
2133: CLOSE lchk_csr;
2134:
2135: IF (l_row_notfound) THEN
2136: Okc_Api.Set_Message(G_APP_NAME,G_LOCK_RECORD_DELETED,
2137: 'ENTITYNAME','OKC_K_ARTICLES_B',
2138: 'PKEY',p_id,
2139: 'OVN',p_object_version_number
2140: );
2138: 'PKEY',p_id,
2139: 'OVN',p_object_version_number
2140: );
2141: ELSIF l_object_version_number > p_object_version_number THEN
2142: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2143: ELSIF l_object_version_number = -1 THEN
2144: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2145: ELSE -- it can be the only above condition. It can happen after restore version
2146: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2140: );
2141: ELSIF l_object_version_number > p_object_version_number THEN
2142: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2143: ELSIF l_object_version_number = -1 THEN
2144: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2145: ELSE -- it can be the only above condition. It can happen after restore version
2146: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2147: END IF;
2148: ELSE
2142: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2143: ELSIF l_object_version_number = -1 THEN
2144: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
2145: ELSE -- it can be the only above condition. It can happen after restore version
2146: Okc_Api.Set_Message(G_APP_NAME,G_RECORD_CHANGED);
2147: END IF;
2148: ELSE
2149: l_return_status := G_RET_STS_SUCCESS;
2150: END IF;
2168: IF (l_debug = 'Y') THEN
2169: Okc_Debug.Log('4200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2170: END IF;
2171:
2172: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2173: p_msg_name => G_UNEXPECTED_ERROR,
2174: p_token1 => G_SQLCODE_TOKEN,
2175: p_token1_value => sqlcode,
2176: p_token2 => G_SQLERRM_TOKEN,
2199: p_id => p_id,
2200: p_object_version_number => p_object_version_number
2201: );
2202: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207:
2201: );
2202: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2203: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2204: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2205: RAISE OKC_API.G_EXCEPTION_ERROR;
2206: END IF;
2207:
2208: IF (l_debug = 'Y') THEN
2209: Okc_Debug.Log('4400: Leaving Lock_Row', 2);
2209: Okc_Debug.Log('4400: Leaving Lock_Row', 2);
2210: END IF;
2211:
2212: EXCEPTION
2213: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2214:
2215: IF (l_debug = 'Y') THEN
2216: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2217: END IF;
2212: EXCEPTION
2213: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2214:
2215: IF (l_debug = 'Y') THEN
2216: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2217: END IF;
2218:
2219: x_return_status := G_RET_STS_ERROR;
2220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2216: Okc_Debug.Log('4500: Leaving Lock_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2217: END IF;
2218:
2219: x_return_status := G_RET_STS_ERROR;
2220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2221:
2222: IF (l_debug = 'Y') THEN
2223: Okc_Debug.Log('4600: Leaving Lock_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2224: END IF;
2219: x_return_status := G_RET_STS_ERROR;
2220: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2221:
2222: IF (l_debug = 'Y') THEN
2223: Okc_Debug.Log('4600: Leaving Lock_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2224: END IF;
2225:
2226: x_return_status := G_RET_STS_UNEXP_ERROR;
2227: WHEN OTHERS THEN
2229: IF (l_debug = 'Y') THEN
2230: Okc_Debug.Log('4700: Leaving Lock_Row because of EXCEPTION: '||sqlerrm, 2);
2231: END IF;
2232:
2233: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2234: p_msg_name => G_UNEXPECTED_ERROR,
2235: p_token1 => G_SQLCODE_TOKEN,
2236: p_token1_value => sqlcode,
2237: p_token2 => G_SQLERRM_TOKEN,
2366: IF (l_debug = 'Y') THEN
2367: Okc_Debug.Log('5000: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
2368: END IF;
2369:
2370: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2371: p_msg_name => G_UNEXPECTED_ERROR,
2372: p_token1 => G_SQLCODE_TOKEN,
2373: p_token1_value => sqlcode,
2374: p_token2 => G_SQLERRM_TOKEN,
2484: p_id => p_id,
2485: p_object_version_number => p_object_version_number
2486: );
2487: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492:
2486: );
2487: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2488: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2489: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2490: RAISE OKC_API.G_EXCEPTION_ERROR;
2491: END IF;
2492:
2493: IF (l_debug = 'Y') THEN
2494: Okc_Debug.Log('5300: Setting attributes', 2);
2578: x_mandatory_rwa => l_mandatory_rwa
2579: );
2580:
2581: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2583: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2584: RAISE OKC_API.G_EXCEPTION_ERROR;
2585: END IF;
2586:
2580:
2581: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2582: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2583: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2584: RAISE OKC_API.G_EXCEPTION_ERROR;
2585: END IF;
2586:
2587: IF (l_debug = 'Y') THEN
2588: Okc_Debug.Log('5400: Record Validation', 2);
2631: p_mandatory_rwa => l_mandatory_rwa
2632: );
2633: --- If any errors happen abort API
2634: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2637: RAISE OKC_API.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2633: --- If any errors happen abort API
2634: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2635: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2636: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2637: RAISE OKC_API.G_EXCEPTION_ERROR;
2638: END IF;
2639:
2640: IF (l_debug = 'Y') THEN
2641: Okc_Debug.Log('5500: Filling WHO columns', 2);
2706: p_last_amended_by => l_last_amended_by,
2707: p_last_amendment_date => l_last_amendment_date
2708: );
2709: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2708: );
2709: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2710: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2711: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2712: RAISE OKC_API.G_EXCEPTION_ERROR;
2713: END IF;
2714:
2715: IF (l_debug = 'Y') THEN
2716: Okc_Debug.Log('5700: Leaving Update_Row', 2);
2716: Okc_Debug.Log('5700: Leaving Update_Row', 2);
2717: END IF;
2718:
2719: EXCEPTION
2720: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2721:
2722: IF (l_debug = 'Y') THEN
2723: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2724: END IF;
2719: EXCEPTION
2720: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2721:
2722: IF (l_debug = 'Y') THEN
2723: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2724: END IF;
2725:
2726: x_return_status := G_RET_STS_ERROR;
2727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2723: Okc_Debug.Log('5800: Leaving Update_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2724: END IF;
2725:
2726: x_return_status := G_RET_STS_ERROR;
2727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2728:
2729: IF (l_debug = 'Y') THEN
2730: Okc_Debug.Log('5900: Leaving Update_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2731: END IF;
2726: x_return_status := G_RET_STS_ERROR;
2727: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2728:
2729: IF (l_debug = 'Y') THEN
2730: Okc_Debug.Log('5900: Leaving Update_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2731: END IF;
2732:
2733: x_return_status := G_RET_STS_UNEXP_ERROR;
2734: WHEN OTHERS THEN
2736: IF (l_debug = 'Y') THEN
2737: Okc_Debug.Log('6000: Leaving Update_Row because of EXCEPTION: '||sqlerrm, 2);
2738: END IF;
2739:
2740: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2741: p_msg_name => G_UNEXPECTED_ERROR,
2742: p_token1 => G_SQLCODE_TOKEN,
2743: p_token1_value => sqlcode,
2744: p_token2 => G_SQLERRM_TOKEN,
2778: IF (l_debug = 'Y') THEN
2779: Okc_Debug.Log('6300: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
2780: END IF;
2781:
2782: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2783: p_msg_name => G_UNEXPECTED_ERROR,
2784: p_token1 => G_SQLCODE_TOKEN,
2785: p_token1_value => sqlcode,
2786: p_token2 => G_SQLERRM_TOKEN,
2838: p_id => p_id,
2839: p_object_version_number => p_object_version_number
2840: );
2841: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2844: RAISE OKC_API.G_EXCEPTION_ERROR;
2845: END IF;
2846:
2840: );
2841: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2842: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2843: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2844: RAISE OKC_API.G_EXCEPTION_ERROR;
2845: END IF;
2846:
2847: x_return_status := Delete_Row( p_id => p_id );
2848: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2845: END IF;
2846:
2847: x_return_status := Delete_Row( p_id => p_id );
2848: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2851: RAISE OKC_API.G_EXCEPTION_ERROR;
2852: END IF;
2853:
2847: x_return_status := Delete_Row( p_id => p_id );
2848: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2849: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2850: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2851: RAISE OKC_API.G_EXCEPTION_ERROR;
2852: END IF;
2853:
2854: IF l_standard_yn = 'N' THEN
2855: OPEN l_non_std_exists_csr(l_article_version_id);
2870: END IF;
2871: CLOSE l_non_std_exists_csr;
2872:
2873: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2876: RAISE OKC_API.G_EXCEPTION_ERROR;
2877: END IF;
2878:
2872:
2873: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2874: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
2875: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2876: RAISE OKC_API.G_EXCEPTION_ERROR;
2877: END IF;
2878:
2879: END IF;
2880:
2882: Okc_Debug.Log('6500: Leaving Delete_Row', 2);
2883: END IF;
2884:
2885: EXCEPTION
2886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2887:
2888: IF (l_debug = 'Y') THEN
2889: Okc_Debug.Log('6600: Leaving Delete_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2890: END IF;
2885: EXCEPTION
2886: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2887:
2888: IF (l_debug = 'Y') THEN
2889: Okc_Debug.Log('6600: Leaving Delete_Row:OKC_API.G_EXCEPTION_ERROR Exception', 2);
2890: END IF;
2891:
2892: x_return_status := G_RET_STS_ERROR;
2893:
2890: END IF;
2891:
2892: x_return_status := G_RET_STS_ERROR;
2893:
2894: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2895:
2896: IF (l_debug = 'Y') THEN
2897: Okc_Debug.Log('6700: Leaving Delete_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2898: END IF;
2893:
2894: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2895:
2896: IF (l_debug = 'Y') THEN
2897: Okc_Debug.Log('6700: Leaving Delete_Row:OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
2898: END IF;
2899:
2900: x_return_status := G_RET_STS_UNEXP_ERROR;
2901:
2904: IF (l_debug = 'Y') THEN
2905: Okc_Debug.Log('6800: Leaving Delete_Row because of EXCEPTION: '||sqlerrm, 2);
2906: END IF;
2907:
2908: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2909: p_msg_name => G_UNEXPECTED_ERROR,
2910: p_token1 => G_SQLCODE_TOKEN,
2911: p_token1_value => sqlcode,
2912: p_token2 => G_SQLERRM_TOKEN,
2949:
2950: IF (lock_csr%ISOPEN) THEN
2951: CLOSE lock_csr;
2952: END IF;
2953: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2954: x_return_status := G_RET_STS_ERROR ;
2955:
2956: WHEN FND_API.G_EXC_ERROR THEN
2957: IF (l_debug = 'Y') THEN
2980:
2981: IF (lock_csr%ISOPEN) THEN
2982: CLOSE lock_csr;
2983: END IF;
2984: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2985: p_msg_name => G_UNEXPECTED_ERROR,
2986: p_token1 => G_SQLCODE_TOKEN,
2987: p_token1_value => sqlcode,
2988: p_token2 => G_SQLERRM_TOKEN,
3040:
3041: IF (lock_csr%ISOPEN) THEN
3042: CLOSE lock_csr;
3043: END IF;
3044: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
3045: x_return_status := G_RET_STS_ERROR ;
3046:
3047: WHEN FND_API.G_EXC_ERROR THEN
3048: IF (l_debug = 'Y') THEN
3071:
3072: IF (lock_csr%ISOPEN) THEN
3073: CLOSE lock_csr;
3074: END IF;
3075: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3076: p_msg_name => G_UNEXPECTED_ERROR,
3077: p_token1 => G_SQLCODE_TOKEN,
3078: p_token1_value => sqlcode,
3079: p_token2 => G_SQLERRM_TOKEN,
3318: IF (non_std_csr%ISOPEN) THEN
3319: CLOSE non_std_csr;
3320: END IF;
3321:
3322: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3323: p_msg_name => G_UNEXPECTED_ERROR,
3324: p_token1 => G_SQLCODE_TOKEN,
3325: p_token1_value => sqlcode,
3326: p_token2 => G_SQLERRM_TOKEN,
3475: IF (l_debug = 'Y') THEN
3476: Okc_Debug.Log('7400: Leaving restore_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,
3523: IF (l_debug = 'Y') THEN
3524: Okc_Debug.Log('7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm, 2);
3525: END IF;
3526:
3527: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3528: p_msg_name => G_UNEXPECTED_ERROR,
3529: p_token1 => G_SQLCODE_TOKEN,
3530: p_token1_value => sqlcode,
3531: p_token2 => G_SQLERRM_TOKEN,