[Home] [Help]
7:
8: ---------------------------------------------------------------------------
9: -- GLOBAL MESSAGE CONSTANTS
10: ---------------------------------------------------------------------------
11: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
14: ---------------------------------------------------------------------------
15: -- GLOBAL VARIABLES
8: ---------------------------------------------------------------------------
9: -- GLOBAL MESSAGE CONSTANTS
10: ---------------------------------------------------------------------------
11: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
14: ---------------------------------------------------------------------------
15: -- GLOBAL VARIABLES
16: ---------------------------------------------------------------------------
9: -- GLOBAL MESSAGE CONSTANTS
10: ---------------------------------------------------------------------------
11: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
12: G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
13: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
14: ---------------------------------------------------------------------------
15: -- GLOBAL VARIABLES
16: ---------------------------------------------------------------------------
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_ARTICLES_IMPORT_GRP';
14: ---------------------------------------------------------------------------
15: -- GLOBAL VARIABLES
16: ---------------------------------------------------------------------------
17: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_ARTICLES_IMPORT_GRP';
18: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
19:
20: ------------------------------------------------------------------------------
21: -- GLOBAL CONSTANTS
22: ------------------------------------------------------------------------------
164: FND_MSG_PUB.initialize;
165:
166:
167: FOR get_info_rec in get_info_csr LOOP
168: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
169: p_msg_name => 'OKC_ART_IMP_OUT1',
170: p_token1 => 'ENTITY',
171: p_token1_value => get_info_rec.entity_meaning,
172: p_token2 => 'TOTAL_ROWS',
255: IF p_entity = 'VARIABLE' THEN
256: FOR get_var_info_rec in get_var_info_csr LOOP
257: IF cur_inf_id < 1 THEN
258: FND_MSG_PUB.initialize;
259: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
260: p_msg_name => 'OKC_ART_IMP_HDR_VAR');
261: cur_inf_id := cur_inf_id + 1;
262: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
263: FND_MSG_PUB.initialize;
262: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
263: FND_MSG_PUB.initialize;
264: END IF;
265:
266: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
267: p_msg_name => 'OKC_ART_IMP_OUT_VAR',
268: p_token1 => 'INTERFACE_ID',
269: p_token1_value => get_var_info_rec.interface_id,
270: p_token2 => 'VAR_NAME',
278: ELSIF p_entity = 'VALUESET' THEN
279: FOR get_vs_info_rec in get_vs_info_csr LOOP
280: IF cur_inf_id < 1 THEN
281: FND_MSG_PUB.initialize;
282: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
283: p_msg_name => 'OKC_ART_IMP_HDR_VS');
284: cur_inf_id := cur_inf_id + 1;
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
286: FND_MSG_PUB.initialize;
285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
286: FND_MSG_PUB.initialize;
287: END IF;
288:
289: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
290: p_msg_name => 'OKC_ART_IMP_OUT_VS',
291: p_token1 => 'INTERFACE_ID',
292: p_token1_value => get_vs_info_rec.interface_id,
293: p_token2 => 'VS_NAME',
301: ELSIF p_entity = 'RELATIONSHIP' THEN
302: FOR get_rel_info_rec in get_rel_info_csr LOOP
303: IF cur_inf_id < 1 THEN
304: FND_MSG_PUB.initialize;
305: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
306: p_msg_name => 'OKC_ART_IMP_HDR_REL');
307: cur_inf_id := cur_inf_id + 1;
308: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
309: FND_MSG_PUB.initialize;
308: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
309: FND_MSG_PUB.initialize;
310: END IF;
311:
312: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
313: p_msg_name => 'OKC_ART_IMP_OUT_REL',
314: p_token1 => 'INTERFACE_ID',
315: p_token1_value => get_rel_info_rec.interface_id,
316: p_token2 => 'ARTICLE_TITLE1',
330: ELSIF p_entity = 'VALUE' THEN
331: FOR get_val_info_rec in get_val_info_csr LOOP
332: IF cur_inf_id < 1 THEN
333: FND_MSG_PUB.initialize;
334: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
335: p_msg_name => 'OKC_ART_IMP_HDR_VAL');
336: cur_inf_id := cur_inf_id + 1;
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
338: FND_MSG_PUB.initialize;
337: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
338: FND_MSG_PUB.initialize;
339: END IF;
340:
341: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
342: p_msg_name => 'OKC_ART_IMP_OUT_VAL',
343: p_token1 => 'INTERFACE_ID',
344: p_token1_value => get_val_info_rec.interface_id,
345: p_token2 => 'VAL',
357: FOR get_art_info_rec in get_art_info_csr LOOP
358:
359: IF cur_inf_id < 1 THEN
360: FND_MSG_PUB.initialize;
361: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
362: p_msg_name => 'OKC_ART_IMP_HDR_CLAUSE');
363: cur_inf_id := cur_inf_id + 1;
364: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
365: FND_MSG_PUB.initialize;
365: FND_MSG_PUB.initialize;
366:
367: END IF;
368:
369: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
370: p_msg_name => 'OKC_ART_IMP_OUT_CLAUSE',
371: p_token1 => 'INTERFACE_ID',
372: p_token1_value => get_art_info_rec.interface_id,
373: p_token2 => 'ARTICLE_TITLE',
388: WHEN OTHERS THEN
389: IF (l_debug = 'Y') THEN
390: okc_debug.log('500: Leaving post_wrap_up because of EXCEPTION: '||sqlerrm, 2);
391: END IF;
392: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
393: p_msg_name => G_UNEXPECTED_ERROR,
394: p_token1 => G_SQLCODE_TOKEN,
395: p_token1_value => sqlcode,
396: p_token2 => G_SQLERRM_TOKEN,
478: CLOSE import_src_csr;
479:
480: IF l_import_src_meaning is not null THEN
481: FOR get_info_rec in get_info_csr LOOP
482: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
483: p_msg_name => 'OKC_ART_IMP_HDR',
484: p_token1 => 'BATCH_NUMBER',
485: p_token1_value => p_batch_number,
486: p_token2 => 'DATE',
498: );
499: END LOOP;
500: ELSE
501: FOR get_old_info_rec in get_old_info_csr LOOP
502: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
503: p_msg_name => 'OKC_ART_IMP_HDR1',
504: p_token1 => 'BATCH_NUMBER',
505: p_token1_value => p_batch_number,
506: p_token2 => 'DATE',
580: CLOSE cur_org_csr;
581: */
582:
583: IF G_CURRENT_ORG_ID IS NULL THEN
584: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
585: RAISE FND_API.G_EXC_ERROR;
586: END IF;
587:
588: l_start_date := nvl(fnd_date.canonical_to_date(p_start_date),
593: IF ( p_end_date is NULL
594: AND p_start_date is NULL
595: AND p_process_status is NULL
596: AND p_batch_number is NULL) THEN
597: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
598: p_msg_name => 'OKC_ART_WARN_PUR_ALL_DELETED');
599: DELETE FROM OKC_ART_INT_ERRORS
600: WHERE batch_process_id in
601: ( SELECT batch_process_id
721: p_fetchsize IN NUMBER
722: ) IS
723: l_api_name CONSTANT VARCHAR2(30) := 'conc_import_articles';
724: l_api_version CONSTANT VARCHAR2(30) := 1.0;
725: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
726: l_msg_count NUMBER;
727: l_msg_data VARCHAR2(1000);
728: l_init_msg_list VARCHAR2(3) := 'F';
729: l_user_id NUMBER;
792: G_CURRENT_ORG_ID := rec.org_id;
793:
794:
795: --IF G_CURRENT_ORG_ID IS NULL THEN
796: -- Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_NULL_ORG_ID');
797: -- RAISE FND_API.G_EXC_ERROR;
798: --END IF;
799: ------------------------------------------------------------------------
800: -- Create a batch process id and an initial row for process statistics
911: p_validate_only => p_validate_only,
912: p_fetchsize => p_fetchsize );
913:
914:
915: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
916: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
918: RAISE OKC_API.G_EXCEPTION_ERROR;
919: END IF;
912: p_fetchsize => p_fetchsize );
913:
914:
915: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
916: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
918: RAISE OKC_API.G_EXCEPTION_ERROR;
919: END IF;
920:
913:
914:
915: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
916: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
918: RAISE OKC_API.G_EXCEPTION_ERROR;
919: END IF;
920:
921: IF (l_debug = 'Y') THEN
914:
915: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
916: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
917: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
918: RAISE OKC_API.G_EXCEPTION_ERROR;
919: END IF;
920:
921: IF (l_debug = 'Y') THEN
922: okc_debug.Log('1000: Leaving conc_import_articles',2);
924: END IF;
925: x_return_status := G_RET_STS_SUCCESS;
926:
927: EXCEPTION
928: WHEN OKC_API.G_EXCEPTION_ERROR THEN
929: x_return_status := G_RET_STS_ERROR;
930: IF FND_MSG_PUB.Count_Msg > 0 Then
931: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
932: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
937: IF (l_debug = 'Y') THEN
938: okc_debug.Log('3000: Leaving conc_import_articles',2);
939: okc_debug.Reset_Indentation;
940: END IF;
941: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
942: x_return_status := G_RET_STS_UNEXP_ERROR;
943: IF FND_MSG_PUB.Count_Msg > 0 Then
944: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
945: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
974: p_validate_only => p_validate_only,
975: p_fetchsize => p_fetchsize );
976:
977:
978: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
975: p_fetchsize => p_fetchsize );
976:
977:
978: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983:
976:
977:
978: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983:
984: IF (l_debug = 'Y') THEN
977:
978: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
979: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
980: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
981: RAISE OKC_API.G_EXCEPTION_ERROR;
982: END IF;
983:
984: IF (l_debug = 'Y') THEN
985: okc_debug.Log('1000: Leaving conc_import_articles',2);
987: END IF;
988: x_return_status := G_RET_STS_SUCCESS;
989:
990: EXCEPTION
991: WHEN OKC_API.G_EXCEPTION_ERROR THEN
992: x_return_status := G_RET_STS_ERROR;
993: IF FND_MSG_PUB.Count_Msg > 0 Then
994: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
995: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1000: IF (l_debug = 'Y') THEN
1001: okc_debug.Log('3000: Leaving conc_import_articles',2);
1002: okc_debug.Reset_Indentation;
1003: END IF;
1004: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1005: x_return_status := G_RET_STS_UNEXP_ERROR;
1006: IF FND_MSG_PUB.Count_Msg > 0 Then
1007: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1008: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1037: p_validate_only => p_validate_only,
1038: p_fetchsize => p_fetchsize );
1039:
1040:
1041: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1038: p_fetchsize => p_fetchsize );
1039:
1040:
1041: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1039:
1040:
1041: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1047: IF (l_debug = 'Y') THEN
1040:
1041: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1042: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1043: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1044: RAISE OKC_API.G_EXCEPTION_ERROR;
1045: END IF;
1046:
1047: IF (l_debug = 'Y') THEN
1048: okc_debug.Log('1000: Leaving conc_import_articles',2);
1050: END IF;
1051: x_return_status := G_RET_STS_SUCCESS;
1052:
1053: EXCEPTION
1054: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1055: x_return_status := G_RET_STS_ERROR;
1056: IF FND_MSG_PUB.Count_Msg > 0 Then
1057: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1058: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1063: IF (l_debug = 'Y') THEN
1064: okc_debug.Log('3000: Leaving conc_import_articles',2);
1065: okc_debug.Reset_Indentation;
1066: END IF;
1067: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1068: x_return_status := G_RET_STS_UNEXP_ERROR;
1069: IF FND_MSG_PUB.Count_Msg > 0 Then
1070: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1071: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1112: l_tot_art_rows_warned := l_tot_art_rows_warned + l_part_art_rows_warned;
1113:
1114:
1115:
1116: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1113:
1114:
1115:
1116: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121:
1114:
1115:
1116: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121:
1122: IF (l_debug = 'Y') THEN
1115:
1116: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1117: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1118: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1119: RAISE OKC_API.G_EXCEPTION_ERROR;
1120: END IF;
1121:
1122: IF (l_debug = 'Y') THEN
1123: okc_debug.Log('1000: Leaving conc_import_articles',2);
1125: END IF;
1126: x_return_status := G_RET_STS_SUCCESS;
1127:
1128: EXCEPTION
1129: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1130: x_return_status := G_RET_STS_ERROR;
1131: IF FND_MSG_PUB.Count_Msg > 0 Then
1132: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1133: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1138: IF (l_debug = 'Y') THEN
1139: okc_debug.Log('3000: Leaving conc_import_articles',2);
1140: okc_debug.Reset_Indentation;
1141: END IF;
1142: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1143: x_return_status := G_RET_STS_UNEXP_ERROR;
1144: IF FND_MSG_PUB.Count_Msg > 0 Then
1145: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1146: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1185: l_tot_rel_rows_failed := l_tot_rel_rows_failed + l_part_rel_rows_failed;
1186: l_tot_rel_rows_warned := l_tot_rel_rows_warned + l_part_rel_rows_warned;
1187:
1188:
1189: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1192: RAISE OKC_API.G_EXCEPTION_ERROR;
1193: END IF;
1186: l_tot_rel_rows_warned := l_tot_rel_rows_warned + l_part_rel_rows_warned;
1187:
1188:
1189: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1192: RAISE OKC_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1187:
1188:
1189: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1192: RAISE OKC_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1195: IF (l_debug = 'Y') THEN
1188:
1189: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR THEN
1190: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = OKC_API.G_RET_STS_ERROR THEN
1192: RAISE OKC_API.G_EXCEPTION_ERROR;
1193: END IF;
1194:
1195: IF (l_debug = 'Y') THEN
1196: okc_debug.Log('1000: Leaving conc_import_articles',2);
1198: END IF;
1199: x_return_status := G_RET_STS_SUCCESS;
1200:
1201: EXCEPTION
1202: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1203: x_return_status := G_RET_STS_ERROR;
1204: IF FND_MSG_PUB.Count_Msg > 0 Then
1205: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1206: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1211: IF (l_debug = 'Y') THEN
1212: okc_debug.Log('3000: Leaving conc_import_articles',2);
1213: okc_debug.Reset_Indentation;
1214: END IF;
1215: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1216: x_return_status := G_RET_STS_UNEXP_ERROR;
1217: IF FND_MSG_PUB.Count_Msg > 0 Then
1218: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1219: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1244: pre_wrap_up(p_validate_only,p_batch_number,p_batch_procs_id);
1245: l_wrap_up := 'N';
1246: END IF;
1247: FND_MSG_PUB.initialize;
1248: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1249: p_msg_name => 'OKC_ART_NOT_VALID_ORG',
1250: p_token1 => 'ORG_NAME',
1251: p_token1_value => rec.org_name);
1252: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1300: new_wrap_up(p_batch_number,'Variable',l_batch_process_id);
1301: new_wrap_up(p_batch_number,'Valueset',l_batch_process_id);
1302: new_wrap_up(p_batch_number,'Value',l_batch_process_id);
1303: FND_MSG_PUB.initialize;
1304: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1305: p_msg_name => 'OKC_ART_IMP_ERR');
1306:
1307: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1308:
1313: post_wrap_up(p_batch_number,'VALUESET',l_batch_process_id);
1314: post_wrap_up(p_batch_number,'VALUE',l_batch_process_id);
1315:
1316: FND_MSG_PUB.initialize;
1317: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1318: p_msg_name => 'OKC_ART_IMP_OUT_EOR');
1319:
1320: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1321:
1365: IF (l_debug = 'Y') THEN
1366: Okc_Debug.Log('300: Leaving get_seq_id because of EXCEPTION: '||sqlerrm, 2);
1367: END IF;
1368:
1369: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1370: p_msg_name => G_UNEXPECTED_ERROR,
1371: p_token1 => G_SQLCODE_TOKEN,
1372: p_token1_value => sqlcode,
1373: p_token2 => G_SQLERRM_TOKEN,
1482:
1483: IF cur_inf_id <> err_interface_id_tbl(i_err) THEN
1484: cur_inf_id := err_interface_id_tbl(i_err);
1485: FND_MSG_PUB.initialize;
1486: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1487: p_msg_name => 'OKC_ART_IMP_LOG_HEADER',
1488: p_token1 => 'ENTITY',
1489: p_token1_value => err_entity_tbl(i_err),
1490: p_token2 => 'ARTICLE_TITLE',
1513: WHEN OTHERS THEN
1514: IF (l_debug = 'Y') THEN
1515: okc_debug.log('500: Leaving insert_error_array because of EXCEPTION: '||sqlerrm, 2);
1516: END IF;
1517: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1518: p_msg_name => G_UNEXPECTED_ERROR,
1519: p_token1 => G_SQLCODE_TOKEN,
1520: p_token1_value => sqlcode,
1521: p_token2 => G_SQLERRM_TOKEN,
1541: p_error_type IN VARCHAR2,
1542: p_entity IN VARCHAR2
1543: ) IS
1544: l_error_index NUMBER := 1;
1545: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1546: l_msg_count NUMBER;
1547: l_msg_data VARCHAR2(1000);
1548: BEGIN
1549: IF FND_MSG_PUB.Count_Msg >= 1 Then
1604: --
1605: IF cur_inf_id <> err_interface_id_tbl(i_err) THEN
1606: cur_inf_id := err_interface_id_tbl(i_err);
1607: FND_MSG_PUB.initialize;
1608: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1609: p_msg_name => 'OKC_ART_IMP_LOG_HEADER',
1610: p_token1 => 'ENTITY',
1611: p_token1_value => err_entity_tbl(i_err),
1612: p_token2 => 'ARTICLE_TITLE',
1693: -- MOAC
1694: G_CURRENT_ORG_ID := mo_global.get_current_org_id();
1695:
1696: IF G_CURRENT_ORG_ID IS NULL THEN
1697: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
1698: RAISE FND_API.G_EXC_ERROR;
1699: END IF;
1700:
1701: OPEN org_name_csr (G_CURRENT_ORG_ID);
1702: FETCH org_name_csr INTO l_org_name;
1703: CLOSE org_name_csr;
1704:
1705: /* commented for XML Based clause Import
1706: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1707: p_msg_name => 'OKC_ART_IMP_OUTPUT',
1708: p_token1 => 'ENTITY',
1709: p_token1_value => p_entity,
1710: p_token2 => 'BATCH_NUMBER',
1723: p_token8_value => l_org_name,
1724: p_token9 => 'VALIDATE_ONLY',
1725: p_token9_value => l_validate_meaning);
1726: */
1727: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1728: p_msg_name => 'OKC_ART_IMP_OUT1',
1729: p_token1 => 'ENTITY',
1730: p_token1_value => l_entity_meaning,
1731: p_token2 => 'TOTAL_ROWS',
2064: l_error_index NUMBER := 1;
2065: l_replace_text VARCHAR2(1) := 'N';
2066: l_batch_process_id NUMBER := 1;
2067: l_context VARCHAR2(50) := NULL;
2068: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
2069: l_tot_rows_processed NUMBER := 0;
2070: l_tot_rows_failed NUMBER := 0;
2071: l_tot_rows_warned NUMBER := 0;
2072: l_part_rows_processed NUMBER := 0;
2110: CLOSE cur_org_csr;
2111: */
2112: -- MOAC
2113: IF G_CURRENT_ORG_ID IS NULL THEN
2114: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
2115: RAISE FND_API.G_EXC_ERROR;
2116: END IF;
2117:
2118:
2155: IF (p_fetchsize > G_FETCHSIZE_LIMIT) THEN
2156: x_return_status := G_RET_STS_ERROR;
2157: l_return_status := G_RET_STS_ERROR;
2158:
2159: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2160: p_msg_name => 'OKC_ART_IMP_LIM_FETCHSIZE');
2161:
2162: build_error_array(
2163: p_msg_data => x_msg_data,
2322: -- To find duplicate title in the batch after RTRIM is performed Bug 3487759
2323: IF i>1 THEN
2324: x := i-1;
2325: IF RTRIM(inf_article_title_tbl(i)) = RTRIM(inf_article_title_tbl(x)) THEN
2326: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DUP_TITLE_ORG');
2327: l_return_status := G_RET_STS_ERROR;
2328: RAISE FND_API.G_EXC_ERROR;
2329: END IF;
2330: END IF;
2351: inf_action_tbl(i) := 'V';
2352: END IF; -- For Bug# 6891498
2353: --Clause Editing start
2354: IF nvl(l_edited_in_word,'N') = 'Y' AND inf_edited_in_word_tbl(i) = 'N' THEN
2355: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2356: p_msg_name => 'OKC_ART_IMP_INV_EDT_WORD_UPD');
2357: l_return_status := G_RET_STS_ERROR;
2358: RAISE FND_API.G_EXC_ERROR ;
2359: END IF;
2365:
2366: inf_article_id_tbl(i) := NULL;
2367: IF nvl(inf_article_status_tbl(i), '*') not in
2368: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2369: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2370: p_msg_name => 'OKC_ART_IMP_INV_STS_NEWA',
2371: p_token1 => 'STATUS1',
2372: p_token1_value => 'DRAFT',
2373: p_token2 => 'STATUS2',
2390:
2391: ELSIF inf_action_tbl(i) = 'U' THEN
2392:
2393: IF inf_article_id_tbl(i) is NULL THEN
2394: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2395: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2396: p_token1 => 'ARTICLE_TITLE',
2397: p_token1_value => inf_article_title_tbl(i));
2398: l_return_status := G_RET_STS_ERROR;
2408: l_row_notfound := get_max_article_version_csr%NOTFOUND;
2409: CLOSE get_max_article_version_csr;
2410:
2411: IF nvl(l_article_status,'*') not in ('DRAFT', 'REJECTED') THEN
2412: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2413: p_msg_name => 'OKC_ART_IMP_INV_CUR_STS_UPD');
2414: l_return_status := G_RET_STS_ERROR;
2415: RAISE FND_API.G_EXC_ERROR ;
2416: END IF;
2415: RAISE FND_API.G_EXC_ERROR ;
2416: END IF;
2417: --Clause Editing start
2418: IF nvl(l_edited_in_word,'N') = 'Y' AND inf_edited_in_word_tbl(i) = 'N' THEN
2419: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2420: p_msg_name => 'OKC_ART_IMP_INV_EDT_WORD_NV');
2421: l_return_status := G_RET_STS_ERROR;
2422: RAISE FND_API.G_EXC_ERROR ;
2423: END IF;
2430: inf_article_version_id_tbl(i) := l_article_version_id;
2431:
2432: IF nvl(inf_article_status_tbl(i), '*') not in
2433: ('DRAFT','REJECTED','APPROVED','PENDING_APPROVAL') THEN
2434: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2435: p_msg_name => 'OKC_ART_IMP_INV_STS_UPD',
2436: p_token1 => 'STATUS1',
2437: p_token1_value => 'DRAFT',
2438: p_token2 => 'STATUS2',
2467: ELSIF inf_action_tbl(i) = 'V' THEN
2468:
2469: inf_article_version_id_tbl(i) := NULL;
2470: IF inf_article_id_tbl(i) is NULL THEN
2471: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2472: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2473: p_token1 => 'ARTICLE_TITLE',
2474: p_token1_value => inf_article_title_tbl(i));
2475: l_return_status := G_RET_STS_ERROR;
2477: END IF;
2478:
2479: IF nvl(inf_article_status_tbl(i), '*') not in
2480: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2481: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2482: p_msg_name => 'OKC_ART_IMP_INV_STS_NEWA',
2483: p_token1 => 'STATUS1',
2484: p_token1_value => 'DRAFT',
2485: p_token2 => 'STATUS2',
2507: l_row_notfound := get_max_article_version_csr%NOTFOUND;
2508: CLOSE get_max_article_version_csr;
2509: --Clause Editing
2510: IF nvl(l_edited_in_word,'N') = 'Y' AND inf_edited_in_word_tbl(i) = 'N' THEN
2511: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2512: p_msg_name => 'OKC_ART_IMP_INV_EDT_WORD_NV');
2513: l_return_status := G_RET_STS_ERROR;
2514: RAISE FND_API.G_EXC_ERROR ;
2515: END IF;
2524: l_tmp_article_status := 'DRAFT';
2525: ELSIF inf_action_tbl(i) = 'D' THEN
2526:
2527: IF inf_article_id_tbl(i) is NULL THEN
2528: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2529: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2530: p_token1 => 'ARTICLE_TITLE',
2531: p_token1_value => inf_article_title_tbl(i));
2532: l_return_status := G_RET_STS_ERROR;
2533: RAISE FND_API.G_EXC_ERROR ;
2534: END IF;
2535:
2536: IF inf_end_date_tbl(i) IS NULL THEN
2537: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2538: p_msg_name => 'OKC_ART_NULL_END_DATE');
2539: l_return_status := G_RET_STS_ERROR;
2540: RAISE FND_API.G_EXC_ERROR;
2541: END IF;
2549: l_row_notfound := get_max_article_version_csr%NOTFOUND;
2550: CLOSE get_max_article_version_csr;
2551:
2552: IF l_row_notfound THEN
2553: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2554: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2555: p_token1 => 'ARTICLE_TITLE',
2556: p_token1_value => inf_article_title_tbl(i));
2557:
2561:
2562: IF l_start_date IS NOT NULL
2563: THEN
2564: IF l_start_date > inf_end_date_tbl(i) THEN
2565: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2566: p_msg_name => 'OKC_INVALID_END_DATE');
2567: l_return_status := G_RET_STS_ERROR;
2568: RAISE FND_API.G_EXC_ERROR;
2569: END IF;
2576: inf_article_version_id_tbl(i) := l_article_version_id;
2577:
2578: ELSE
2579:
2580: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2581: p_msg_name => 'OKC_ART_INV_IMP_ACTION');
2582: l_return_status := G_RET_STS_ERROR;
2583: RAISE FND_API.G_EXC_ERROR ;
2584: END IF;
2592: -- Do not import article if status or org_id or global_flag is not provided
2593: IF inf_article_status_tbl(i) IS NULL OR
2594: inf_org_id_tbl(i) IS NULL OR
2595: inf_global_yn_tbl(i) IS NULL THEN
2596: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2597: p_msg_name => 'OKC_ART_ATTRS_NOT_PROVIDED');
2598: l_return_status := G_RET_STS_ERROR;
2599: END IF;
2600:
2607: END IF;
2608:
2609: -- Do not import article if orig_system_reference_code begins with 'OKCMIG'
2610: IF instr(nvl(inf_art_reference_code_tbl(i), '*'), 'OKCMIG') = 1 THEN
2611: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2612: p_msg_name => 'OKC_ART_IMP_RES_SYS_REF_CODE');
2613: l_return_status := G_RET_STS_ERROR;
2614: END IF;
2615:
2613: l_return_status := G_RET_STS_ERROR;
2614: END IF;
2615:
2616: IF instr(nvl(inf_ver_reference_code_tbl(i), '*'), 'OKCMIG') = 1 THEN
2617: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2618: p_msg_name => 'OKC_ART_IMP_RES_SYS_REF_CODE');
2619: l_return_status := G_RET_STS_ERROR;
2620: END IF;
2621:
2635:
2636: --Bug 3680486: no provision for sell intent clause
2637: IF nvl(inf_article_intent_tbl(i), '*') = 'S'
2638: AND nvl(inf_provision_yn_tbl(i), '*') = 'Y' THEN
2639: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2640: p_msg_name => 'OKC_ART_INVALID_PROVISIONYN');
2641: l_return_status := G_RET_STS_ERROR;
2642: END IF;
2643:
2762: l_row_notfound := validate_article_type_csr%NOTFOUND;
2763: CLOSE validate_article_type_csr;
2764:
2765: IF l_row_notfound THEN
2766: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2767: p_msg_name => 'OKC_ART_INVALID_ARTICLE_TYPE',
2768: p_token1 => 'ARTICLE_TITLE',
2769: p_token1_value => inf_article_title_tbl(i));
2770: l_return_status := G_RET_STS_ERROR;
2896: OPEN l_var_name_csr (l_variable_code_tbl(k),
2897: inf_article_language_tbl(i));
2898: FETCH l_var_name_csr INTO l_variable_name;
2899: CLOSE l_var_name_csr;
2900: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2901: p_msg_name => 'OKC_ART_INV_VALUESET',
2902: p_token1 => 'VARIABLE_NAME',
2903: p_token1_value => l_variable_name,
2904: p_token2 => 'ARTICLE_TITLE',
3102:
3103: EXCEPTION
3104: WHEN FND_API.G_EXC_ERROR THEN
3105: IF (l_debug = 'Y') THEN
3106: okc_debug.log('300: In Articles_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3107: END IF;
3108: --l_return_status := G_RET_STS_ERROR ;
3109: build_error_array(
3110: p_msg_data => x_msg_data,
3122: -- Continue to next row
3123:
3124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3125: IF (l_debug = 'Y') THEN
3126: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3127: END IF;
3128:
3129: --
3130: -- Freeing temporary clobs
3211: END IF;
3212: l_return_status := G_RET_STS_UNEXP_ERROR ;
3213: x_return_status := G_RET_STS_UNEXP_ERROR ;
3214:
3215: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3216: p_msg_name => G_UNEXPECTED_ERROR,
3217: p_token1 => G_SQLCODE_TOKEN,
3218: p_token1_value => sqlcode,
3219: p_token2 => G_SQLERRM_TOKEN,
3260: -------------------------
3261: EXCEPTION
3262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3263: IF (l_debug = 'Y') THEN
3264: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3265: END IF;
3266: --
3267: -- Freeing temporary clobs
3268: --
3908: -- Exception for bulk DML block
3909: EXCEPTION
3910: WHEN OTHERS THEN
3911: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
3912: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3913: p_msg_name => G_UNEXPECTED_ERROR,
3914: p_token1 => G_SQLCODE_TOKEN,
3915: p_token1_value => sqlcode,
3916: p_token2 => G_SQLERRM_TOKEN,
3914: p_token1 => G_SQLCODE_TOKEN,
3915: p_token1_value => sqlcode,
3916: p_token2 => G_SQLERRM_TOKEN,
3917: p_token2_value => sqlerrm);
3918: Okc_API.Set_Message(p_app_name => G_APP_NAME,
3919: p_msg_name => 'OKC_ART_FETCH_FAILED',
3920: p_token1 => 'CONTEXT',
3921: p_token1_value => l_context);
3922:
3988: WHEN OTHERS THEN
3989: IF (l_debug = 'Y') THEN
3990: okc_debug.log('500: Leaving Article_Import because of EXCEPTION: '||sqlerrm, 2);
3991: END IF;
3992: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3993: p_msg_name => G_UNEXPECTED_ERROR,
3994: p_token1 => G_SQLCODE_TOKEN,
3995: p_token1_value => sqlcode,
3996: p_token2 => G_SQLERRM_TOKEN,
3994: p_token1 => G_SQLCODE_TOKEN,
3995: p_token1_value => sqlcode,
3996: p_token2 => G_SQLERRM_TOKEN,
3997: p_token2_value => sqlerrm);
3998: Okc_API.Set_Message(p_app_name => G_APP_NAME,
3999: p_msg_name => 'OKC_ART_INT_UPDATE_FAILED');
4000: build_error_array(
4001: p_msg_data => null,
4002: p_context => l_context,
4155: WHEN OTHERS THEN
4156: IF (l_debug = 'Y') THEN
4157: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION in workflow: '||sqlerrm, 2);
4158: END IF;
4159: Okc_API.Set_Message(p_app_name => G_APP_NAME,
4160: p_msg_name => 'OKC_ART_IMP_WF_FAILED');
4161:
4162: build_error_array(
4163: p_msg_data => null,
4217: EXCEPTION
4218:
4219: WHEN FND_API.G_EXC_ERROR THEN
4220: IF (l_debug = 'Y') THEN
4221: okc_debug.log('300: Leaving Articles_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4222: END IF;
4223: --Insert Errors into Error table if there is any
4224: insert_error_array(
4225: x_return_status => x_return_status,
4230: x_return_status := G_RET_STS_ERROR ;
4231:
4232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4233: IF (l_debug = 'Y') THEN
4234: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4235: END IF;
4236:
4237: --Insert Errors into Error table if there is any
4238:
4559: l_return_status VARCHAR2(1);
4560: l_error_index NUMBER := 1;
4561: l_batch_process_id NUMBER := 1;
4562: l_context VARCHAR2(50) := NULL;
4563: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
4564: l_tot_rows_processed NUMBER := 0;
4565: l_tot_rows_failed NUMBER := 0;
4566: l_tot_rows_warned NUMBER := 0;
4567: l_part_rows_processed NUMBER := 0;
4796: x := i-1;
4797: IF ((RTRIM(vinf_variable_code_tbl(i)) = RTRIM(vinf_variable_code_tbl(x)))
4798: --THEN
4799: AND (vinf_language_tbl(i)) = (vinf_language_tbl(x))) THEN
4800: Okc_Api.Set_Message(G_APP_NAME,
4801: 'OKC_VAR_DUP_TITLE_ORG',
4802: 'VAR_CODE',
4803: vinf_variable_code_tbl(i),
4804: 'LANG',
4826:
4827: ELSIF vinf_action_tbl(i) in ('U','D') THEN
4828:
4829: IF vinf_existing_code_tbl(i) is NULL THEN
4830: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4831: p_msg_name => 'OKC_VAR_CODE_NOT_FOUND',
4832: p_token1 => 'VARIABLE_CODE',
4833: p_token1_value => vinf_variable_code_tbl(i));
4834: l_return_status := G_RET_STS_ERROR;
4836: END IF;
4837:
4838: ELSE
4839:
4840: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4841: p_msg_name => 'OKC_VAR_INV_IMP_ACTION');
4842: l_return_status := G_RET_STS_ERROR;
4843: RAISE FND_API.G_EXC_ERROR ;
4844: END IF;
4858: vinf_batch_number_tbl(i));
4859: FETCH valset_exists_csr into l_vs_id;
4860: CLOSE valset_exists_csr;
4861: IF l_vs_id is null THEN
4862: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4863: p_msg_name => 'OKC_ART_VAL_SET_NOT_FOUND');
4864: l_return_status := G_RET_STS_ERROR;
4865: ELSE
4866: -- Reset Local Variables
4867: l_vs_id := NULL;
4868:
4869: END IF;
4870: ELSE
4871: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4872: p_msg_name => 'OKC_ART_VAL_SET_NOT_FOUND');
4873: l_return_status := G_RET_STS_ERROR;
4874: END IF;
4875:
4883:
4884:
4885: -- Checking Date Published Validation
4886: IF vinf_existing_dpublished_tbl(i) >= vinf_date_published_tbl(i) THEN
4887: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4888: p_msg_name => 'OKC_INVALID_DATE_PUBLISHED');
4889: l_return_status := G_RET_STS_ERROR;
4890: END IF;
4891:
4890: END IF;
4891:
4892: -- Checking Variable Flags
4893: IF nvl(vinf_disabled_yn_tbl(i), '*') not in ('Y','N') THEN
4894: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4895: p_msg_name => 'OKC_INVALID_DISABLED_FLAG');
4896: l_return_status := G_RET_STS_ERROR;
4897: END IF;
4898:
4896: l_return_status := G_RET_STS_ERROR;
4897: END IF;
4898:
4899: IF nvl(vinf_external_yn_tbl(i), '*') not in ('Y','N') THEN
4900: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4901: p_msg_name => 'OKC_INVALID_EXTERNAL_FLAG');
4902: l_return_status := G_RET_STS_ERROR;
4903: END IF;
4904:
4902: l_return_status := G_RET_STS_ERROR;
4903: END IF;
4904:
4905: IF nvl(vinf_contract_expert_yn_tbl(i), '*') not in ('Y','N') THEN
4906: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4907: p_msg_name => 'OKC_INVALID_CONTRACT_EXPERT_FLAG');
4908: l_return_status := G_RET_STS_ERROR;
4909: END IF;
4910:
4908: l_return_status := G_RET_STS_ERROR;
4909: END IF;
4910:
4911: IF nvl(vinf_variable_intent_tbl(i), '*') not in ('B','S') THEN
4912: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4913: p_msg_name => 'OKC_INVALID_INTENT_FLAG');
4914: l_return_status := G_RET_STS_ERROR;
4915: END IF;
4916:
4914: l_return_status := G_RET_STS_ERROR;
4915: END IF;
4916:
4917: IF nvl(vinf_variable_type_tbl(i), '*') <> 'U' THEN
4918: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4919: p_msg_name => 'OKC_INVALID_VARIABLE_TYPE');
4920: l_return_status := G_RET_STS_ERROR;
4921: END IF;
4922:
4922:
4923: -- Checking Variable Type and Value set id
4924: IF nvl(vinf_variable_type_tbl(i), '*') = 'U' THEN
4925: IF vinf_value_set_name_tbl(i) is null THEN
4926: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4927: p_msg_name => 'OKC_VS_NOT_DEFINED');
4928: l_return_status := G_RET_STS_ERROR;
4929: END IF;
4930: END IF;
4930: END IF;
4931:
4932:
4933: IF nvl(vinf_contract_expert_yn_tbl(i), '*') not in ('Y','N') THEN
4934: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4935: p_msg_name => 'OKC_INVALID_CONTRACT_EXPERT_FLAG');
4936: l_return_status := G_RET_STS_ERROR;
4937: END IF;
4938:
4941: IF ((vinf_xprt_value_set_name_tbl(i) is not null OR
4942: vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4943: vinf_variable_type_tbl(i) <> 'S')
4944: THEN
4945: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4946: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4947: l_return_status := G_RET_STS_ERROR;
4948: END IF;
4949:
4950: IF ((vinf_xprt_value_set_name_tbl(i) is not null OR
4951: vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4952: vinf_variable_type_tbl(i) <> 'S')
4953: THEN
4954: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4955: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4956: l_return_status := G_RET_STS_ERROR;
4957: END IF;
4958:
4959: IF ((vinf_variable_datatype_tbl(i) = 'D') AND
4960: ((vinf_contract_expert_yn_tbl(i) = 'Y' ) OR
4961: (vinf_xprt_value_set_name_tbl(i) <> 'S')))
4962: THEN
4963: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4964: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4965: l_return_status := G_RET_STS_ERROR;
4966: END IF;
4967:
4968: IF ((vinf_variable_datatype_tbl(i) = 'V') AND
4969: (vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4970: (vinf_xprt_value_set_name_tbl(i) is null) )
4971: THEN
4972: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4973: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4974: l_return_status := G_RET_STS_ERROR;
4975: END IF;
4976:
4976:
4977: IF ((vinf_contract_expert_yn_tbl(i) = 'N') AND
4978: (vinf_xprt_value_set_name_tbl(i) is not null) )
4979: THEN
4980: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4981: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4982: l_return_status := G_RET_STS_ERROR;
4983: END IF;
4984: -- Check for Valid External Flag
4984: -- Check for Valid External Flag
4985: IF ((vinf_variable_intent_tbl(i) = 'S') AND
4986: (vinf_external_yn_tbl(i) = 'Y') )
4987: THEN
4988: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4989: p_msg_name => 'OKC_ART_VAR_INVALID_EXTERNALYN',
4990: p_token1 => 'VAR_NAME',
4991: p_token1_value => vinf_variable_name_tbl(i));
4992: l_return_status := G_RET_STS_ERROR;
4997: FETCH check_lang_csr into l_language;
4998: CLOSE check_lang_csr;
4999: --IF check_lang_csr%NOTFOUND THEN
5000: IF l_language <> '1' THEN
5001: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5002: p_msg_name => 'OKC_LANG_NOT_INSTALLED',
5003: p_token1 => 'LANGUAGE',
5004: p_token1_value => vinf_language_tbl(i));
5005: l_return_status := G_RET_STS_ERROR;
5015: vinf_variable_intent_tbl(i));
5016: FETCH get_var_unq_csr into l_dummy_unq;
5017: CLOSE get_var_unq_csr;
5018: IF l_dummy_unq = '1' THEN
5019: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5020: p_msg_name => 'OKC_ART_VAR_NAME_NOT_UNIQUE');
5021: l_return_status := G_RET_STS_ERROR;
5022: END IF;
5023:
5025: OPEN get_var_info_csr(vinf_variable_code_tbl(i));
5026: FETCH get_var_info_csr into l_dummy;
5027: CLOSE get_var_info_csr;
5028: IF l_dummy = '1' THEN
5029: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5030: p_msg_name => 'OKC_ART_VAR_CODE_NOT_UNIQUE');
5031: l_return_status := G_RET_STS_ERROR;
5032: END IF;
5033:
5081:
5082: EXCEPTION
5083: WHEN FND_API.G_EXC_ERROR THEN
5084: IF (l_debug = 'Y') THEN
5085: okc_debug.log('300: In Variables_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
5086: END IF;
5087: --l_return_status := G_RET_STS_ERROR ;
5088: build_error_array(
5089: p_msg_data => x_msg_data,
5101: -- Continue to next row
5102:
5103: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5104: IF (l_debug = 'Y') THEN
5105: okc_debug.log('400: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5106: END IF;
5107:
5108: IF l_var_interface_csr%ISOPEN THEN
5109: CLOSE l_var_interface_csr;
5139:
5140: l_return_status := G_RET_STS_UNEXP_ERROR ;
5141: x_return_status := G_RET_STS_UNEXP_ERROR ;
5142:
5143: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5144: p_msg_name => G_UNEXPECTED_ERROR,
5145: p_token1 => G_SQLCODE_TOKEN,
5146: p_token1_value => sqlcode,
5147: p_token2 => G_SQLERRM_TOKEN,
5187: -------------------------
5188: EXCEPTION
5189: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5190: IF (l_debug = 'Y') THEN
5191: okc_debug.log('400: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5192: END IF;
5193:
5194: IF l_var_interface_csr%ISOPEN THEN
5195: CLOSE l_var_interface_csr;
5528: -- Exception for bulk DML block
5529: EXCEPTION
5530: WHEN OTHERS THEN
5531: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
5532: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5533: p_msg_name => G_UNEXPECTED_ERROR,
5534: p_token1 => G_SQLCODE_TOKEN,
5535: p_token1_value => sqlcode,
5536: p_token2 => G_SQLERRM_TOKEN,
5534: p_token1 => G_SQLCODE_TOKEN,
5535: p_token1_value => sqlcode,
5536: p_token2 => G_SQLERRM_TOKEN,
5537: p_token2_value => sqlerrm);
5538: Okc_API.Set_Message(p_app_name => G_APP_NAME,
5539: p_msg_name => 'OKC_ART_FETCH_FAILED',
5540: p_token1 => 'CONTEXT',
5541: p_token1_value => l_context);
5542:
5607: WHEN OTHERS THEN
5608: IF (l_debug = 'Y') THEN
5609: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||sqlerrm, 2);
5610: END IF;
5611: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5612: p_msg_name => G_UNEXPECTED_ERROR,
5613: p_token1 => G_SQLCODE_TOKEN,
5614: p_token1_value => sqlcode,
5615: p_token2 => G_SQLERRM_TOKEN,
5613: p_token1 => G_SQLCODE_TOKEN,
5614: p_token1_value => sqlcode,
5615: p_token2 => G_SQLERRM_TOKEN,
5616: p_token2_value => sqlerrm);
5617: Okc_API.Set_Message(p_app_name => G_APP_NAME,
5618: p_msg_name => 'OKC_VAR_INT_UPDATE_FAILED');
5619: build_error_array(
5620: p_msg_data => null,
5621: p_context => l_context,
5843: EXCEPTION
5844:
5845: WHEN FND_API.G_EXC_ERROR THEN
5846: IF (l_debug = 'Y') THEN
5847: okc_debug.log('3000: Leaving Variables_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
5848: END IF;
5849: --Insert Errors into Error table if there is any
5850: insert_error_array(
5851: x_return_status => x_return_status,
5855: x_return_status := G_RET_STS_ERROR ;
5856:
5857: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5858: IF (l_debug = 'Y') THEN
5859: okc_debug.log('4000: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5860: END IF;
5861: --Insert Errors into Error table if there is any
5862:
5863: insert_error_array(
6025: l_return_status VARCHAR2(1);
6026: l_error_index NUMBER := 1;
6027: l_batch_process_id NUMBER := 1;
6028: l_context VARCHAR2(50) := NULL;
6029: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
6030: l_tot_rows_processed NUMBER := 0;
6031: l_tot_rows_failed NUMBER := 0;
6032: l_tot_rows_warned NUMBER := 0;
6033: l_part_rows_processed NUMBER := 0;
6094: */
6095:
6096: -- MOAC
6097: IF G_CURRENT_ORG_ID IS NULL THEN
6098: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
6099: RAISE FND_API.G_EXC_ERROR ;
6100: END IF;
6101:
6102: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6211: x := i-1;
6212: IF (RTRIM(rinf_source_article_title_tbl(i)) = RTRIM(rinf_source_article_title_tbl(x))) AND
6213: (RTRIM(rinf_target_article_title_tbl(i)) = RTRIM(rinf_target_article_title_tbl(x)))
6214: THEN
6215: Okc_Api.Set_Message(G_APP_NAME,
6216: 'OKC_REL_DUP_TITLE_ORG',
6217: 'CLAUSE1',
6218: rinf_source_article_title_tbl(i),
6219: 'CLAUSE2',
6243: rinf_batch_number_tbl(i));
6244: FETCH clause_exists_csr into l_clause;
6245: CLOSE clause_exists_csr;
6246: IF l_clause is null THEN
6247: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6248: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6249: p_token1 => 'ARTICLE_TITLE',
6250: p_token1_value => rinf_source_article_title_tbl(i));
6251: l_return_status := G_RET_STS_ERROR;
6254: -- Reset Local Variables
6255: l_clause := NULL;
6256: END IF;
6257: ELSE
6258: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6259: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6260: p_token1 => 'ARTICLE_TITLE',
6261: p_token1_value => rinf_source_article_title_tbl(i));
6262: l_return_status := G_RET_STS_ERROR;
6271: rinf_batch_number_tbl(i));
6272: FETCH clause_exists_csr into l_clause;
6273: CLOSE clause_exists_csr;
6274: IF l_clause is null THEN
6275: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6276: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6277: p_token1 => 'ARTICLE_TITLE',
6278: p_token1_value => rinf_target_article_title_tbl(i));
6279: l_return_status := G_RET_STS_ERROR;
6282: -- Reset Local Variables
6283: l_clause := NULL;
6284: END IF;
6285: ELSE
6286: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6287: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6288: p_token1 => 'ARTICLE_TITLE',
6289: p_token1_value => rinf_target_article_title_tbl(i));
6290: l_return_status := G_RET_STS_ERROR;
6294:
6295:
6296:
6297: /* IF rinf_source_article_id_tbl(i) is NULL THEN
6298: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6299: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6300: p_token1 => 'ARTICLE_TITLE',
6301: p_token1_value => rinf_source_article_title_tbl(i));
6302: l_return_status := G_RET_STS_ERROR;
6303: RAISE FND_API.G_EXC_ERROR ;
6304: END IF;
6305:
6306: IF rinf_target_article_id_tbl(i) is NULL THEN
6307: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6308: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6309: p_token1 => 'ARTICLE_TITLE',
6310: p_token1_value => rinf_target_article_title_tbl(i));
6311: l_return_status := G_RET_STS_ERROR;
6321: rinf_relationship_type_tbl(i));
6322: FETCH l_rel_exist_csr into l_dummy;
6323: CLOSE l_rel_exist_csr;
6324: IF l_dummy <> '1' THEN
6325: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6326: p_msg_name => 'OKC_ART_REL_NOT_EXIST',
6327: p_token1 => 'ARTICLE1',
6328: p_token1_value => rinf_source_article_title_tbl(i),
6329: p_token2 => 'ARTICLE2',
6336:
6337: END IF;
6338: ELSE
6339:
6340: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6341: p_msg_name => 'OKC_REL_INV_IMP_ACTION');
6342: l_return_status := G_RET_STS_ERROR;
6343: RAISE FND_API.G_EXC_ERROR ;
6344: END IF;
6352:
6353: -- Check Source Article and Target Article should not be same
6354:
6355: IF rinf_target_article_id_tbl(i) = rinf_source_article_id_tbl(i) THEN
6356: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6357: p_msg_name => 'OKC_IMP_SAME_ART_RELTNSHP',
6358: p_token1 => 'ARTICLE1',
6359: p_token1_value => rinf_source_article_title_tbl(i));
6360: l_return_status := G_RET_STS_ERROR;
6364: OPEN l_org_valid_csr(rinf_org_id_tbl(i));
6365: FETCH l_org_valid_csr into l_dummy1;
6366: CLOSE l_org_valid_csr;
6367: IF l_dummy1 <> '1' THEN
6368: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6369: p_msg_name => 'OKC_ART_ORG_INVALID');
6370: l_return_status := G_RET_STS_ERROR;
6371: END IF;
6372:
6378: rinf_relationship_type_tbl(i));
6379: FETCH l_rel_exist_csr into l_dummy;
6380: CLOSE l_rel_exist_csr;
6381: IF l_dummy = '1' THEN
6382: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6383: p_msg_name => 'OKC_ART_REL_EXIST',
6384: p_token1 => 'ARTICLE1',
6385: p_token1_value => rinf_source_article_title_tbl(i),
6386: p_token2 => 'ARTICLE2',
6392:
6393: -- Checking Relationship types
6394: /*
6395: IF nvl(rinf_relationship_type_tbl(i), '*') not in ('ALTERNATE','INCOMPATIBLE') THEN
6396: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6397: p_msg_name => 'OKC_INVALID_RELTYPE');
6398: l_return_status := G_RET_STS_ERROR;
6399: END IF;
6400: */
6400: */
6401: IF rinf_relationship_type_tbl(i) IS NOT NULL THEN
6402: l_tmp_return_status := okc_util.check_lookup_code('OKC_ARTICLE_RELATIONSHIP_TYPE',rinf_relationship_type_tbl(i));
6403: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
6404: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RELATIONSHIP_TYPE');
6405: l_return_status := G_RET_STS_ERROR;
6406: END IF;
6407: END IF;
6408:
6407: END IF;
6408:
6409: -- Soruce Article and Target Article should have same intent
6410: IF rinf_target_intent_tbl(i) <> rinf_source_intent_tbl(i) THEN
6411: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6412: p_msg_name => 'OKC_ART_NOT_SAME_INTENT',
6413: p_token1 => 'ARTICLE1',
6414: p_token1_value => rinf_source_article_title_tbl(i),
6415: p_token2 => 'ARTICLE2',
6425: LOOP
6426: l_target_provision := target.provision_yn;
6427: END LOOP;
6428: IF l_source_provision <> l_target_provision THEN
6429: okc_Api.Set_Message(p_app_name => G_APP_NAME,
6430: p_msg_name => 'OKC_ART_IMP_PROVISION_RELATION',
6431: p_token1 => 'ARTICLE1',
6432: p_token1_value => rinf_source_article_title_tbl(i),
6433: p_token2 => 'ARTICLE2',
6482:
6483: EXCEPTION
6484: WHEN FND_API.G_EXC_ERROR THEN
6485: IF (l_debug = 'Y') THEN
6486: okc_debug.log('300: In Relationships_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
6487: END IF;
6488: --l_return_status := G_RET_STS_ERROR ;
6489: build_error_array(
6490: p_msg_data => x_msg_data,
6502: -- Continue to next row
6503:
6504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6505: IF (l_debug = 'Y') THEN
6506: okc_debug.log('400: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6507: END IF;
6508:
6509: IF l_rel_interface_csr%ISOPEN THEN
6510: CLOSE l_rel_interface_csr;
6540:
6541: l_return_status := G_RET_STS_UNEXP_ERROR ;
6542: x_return_status := G_RET_STS_UNEXP_ERROR ;
6543:
6544: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6545: p_msg_name => G_UNEXPECTED_ERROR,
6546: p_token1 => G_SQLCODE_TOKEN,
6547: p_token1_value => sqlcode,
6548: p_token2 => G_SQLERRM_TOKEN,
6588: -------------------------
6589: EXCEPTION
6590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6591: IF (l_debug = 'Y') THEN
6592: okc_debug.log('400: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6593: END IF;
6594:
6595: IF l_rel_interface_csr%ISOPEN THEN
6596: CLOSE l_rel_interface_csr;
6745: -- Exception for bulk DML block
6746: EXCEPTION
6747: WHEN OTHERS THEN
6748: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
6749: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6750: p_msg_name => G_UNEXPECTED_ERROR,
6751: p_token1 => G_SQLCODE_TOKEN,
6752: p_token1_value => sqlcode,
6753: p_token2 => G_SQLERRM_TOKEN,
6751: p_token1 => G_SQLCODE_TOKEN,
6752: p_token1_value => sqlcode,
6753: p_token2 => G_SQLERRM_TOKEN,
6754: p_token2_value => sqlerrm);
6755: Okc_API.Set_Message(p_app_name => G_APP_NAME,
6756: p_msg_name => 'OKC_ART_FETCH_FAILED',
6757: p_token1 => 'CONTEXT',
6758: p_token1_value => l_context);
6759:
6824: WHEN OTHERS THEN
6825: IF (l_debug = 'Y') THEN
6826: okc_debug.log('500: Leaving Relationships_Import because of EXCEPTION: '||sqlerrm, 2);
6827: END IF;
6828: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6829: p_msg_name => G_UNEXPECTED_ERROR,
6830: p_token1 => G_SQLCODE_TOKEN,
6831: p_token1_value => sqlcode,
6832: p_token2 => G_SQLERRM_TOKEN,
6830: p_token1 => G_SQLCODE_TOKEN,
6831: p_token1_value => sqlcode,
6832: p_token2 => G_SQLERRM_TOKEN,
6833: p_token2_value => sqlerrm);
6834: Okc_API.Set_Message(p_app_name => G_APP_NAME,
6835: p_msg_name => 'OKC_REL_INT_UPDATE_FAILED');
6836: build_error_array(
6837: p_msg_data => null,
6838: p_context => l_context,
6956: -- Commented for new XML Based Import - Moved to new_wrap_up in conc_import_articles
6957: --wrap_up(p_validate_only,p_batch_number,l_tot_rows_processed,l_tot_rows_failed,l_tot_rows_warned,l_batch_process_id,'RELATIONSHIP');
6958: /*
6959: FND_MSG_PUB.initialize;
6960: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6961: p_msg_name => 'OKC_ART_IMP_ERR');
6962:
6963: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
6964:
6974: EXCEPTION
6975:
6976: WHEN FND_API.G_EXC_ERROR THEN
6977: IF (l_debug = 'Y') THEN
6978: okc_debug.log('3000: Leaving Relationships_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
6979: END IF;
6980: --Insert Errors into Error table if there is any
6981: insert_error_array(
6982: x_return_status => x_return_status,
6986: x_return_status := G_RET_STS_ERROR ;
6987:
6988: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6989: IF (l_debug = 'Y') THEN
6990: okc_debug.log('4000: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6991: END IF;
6992: --Insert Errors into Error table if there is any
6993:
6994: insert_error_array(
7116: l_return_status VARCHAR2(1);
7117: l_error_index NUMBER := 1;
7118: l_batch_process_id NUMBER := 1;
7119: l_context VARCHAR2(50) := NULL;
7120: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
7121: l_tot_rows_processed NUMBER := 0;
7122: l_tot_rows_failed NUMBER := 0;
7123: l_tot_rows_warned NUMBER := 0;
7124: l_part_rows_processed NUMBER := 0;
7289: IF i>1 THEN
7290: x := i-1;
7291: IF RTRIM(vsinf_flex_value_set_name_tbl(i)) = RTRIM(vsinf_flex_value_set_name_tbl(x))
7292: THEN
7293: Okc_Api.Set_Message(G_APP_NAME, 'OKC_VALSET_DUP_TITLE','VALUESET',vsinf_flex_value_set_name_tbl(i));
7294: l_return_status := G_RET_STS_ERROR;
7295: RAISE FND_API.G_EXC_ERROR;
7296: END IF;
7297: END IF;
7325: END IF;
7326:
7327: ELSE
7328:
7329: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7330: p_msg_name => 'OKC_VALSET_INV_IMP_ACTION');
7331: l_return_status := G_RET_STS_ERROR;
7332: RAISE FND_API.G_EXC_ERROR ;
7333: END IF;
7339: -----------------------------------------------------------
7340: -- Check if value set already exists in the System
7341:
7342: IF Fnd_Flex_Val_Api.Valueset_Exists(vsinf_flex_value_set_name_tbl(i)) THEN
7343: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7344: p_msg_name => 'OKC_IMP_VALSET_EXIST',
7345: p_token1 => 'VALUESET',
7346: p_token1_value => vsinf_flex_value_set_name_tbl(i)
7347: );
7357: -- For Standard Date , Default Max size is 11
7358: -- For Standard DateTime , Default Max size is 12
7359:
7360: IF nvl(vsinf_format_type_tbl(i),'*') not in ('N','C','X','Y') THEN
7361: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7362: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7363: l_return_status := G_RET_STS_ERROR;
7364: END IF;
7365:
7365:
7366: -- Check if Max Value and Min Value is passed then it is as per Format Type
7367: IF vsinf_minimum_value_tbl(i) IS NOT NULL THEN
7368: IF NOT is_value_valid(vsinf_format_type_tbl(i),vsinf_minimum_value_tbl(i)) THEN
7369: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7370: p_msg_name => 'OKC_INVALID_MINIMUM_VALUE');
7371: l_return_status := G_RET_STS_ERROR;
7372:
7373: END IF;
7374: END IF;
7375:
7376: IF vsinf_maximum_value_tbl(i) IS NOT NULL THEN
7377: IF NOT is_value_valid(vsinf_format_type_tbl(i),vsinf_maximum_value_tbl(i)) THEN
7378: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7379: p_msg_name => 'OKC_INVALID_MAXIMUM_VALUE');
7380: l_return_status := G_RET_STS_ERROR;
7381: END IF;
7382: END IF;
7386: THEN
7387: IF vsinf_format_type_tbl(i) = 'N' THEN
7388: IF to_number(vsinf_minimum_value_tbl(i)) >=
7389: to_number(vsinf_maximum_value_tbl(i)) THEN
7390: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7391: p_msg_name => 'OKC_INVALID_RANGE');
7392: l_return_status := G_RET_STS_ERROR;
7393: END IF;
7394: ELSIF vsinf_format_type_tbl(i) = 'C' THEN
7392: l_return_status := G_RET_STS_ERROR;
7393: END IF;
7394: ELSIF vsinf_format_type_tbl(i) = 'C' THEN
7395: IF vsinf_minimum_value_tbl(i) >= vsinf_maximum_value_tbl(i) THEN
7396: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7397: p_msg_name => 'OKC_INVALID_RANGE');
7398: l_return_status := G_RET_STS_ERROR;
7399: END IF;
7400: ELSIF vsinf_format_type_tbl(i) in ('X','Y') THEN
7399: END IF;
7400: ELSIF vsinf_format_type_tbl(i) in ('X','Y') THEN
7401: IF to_date(vsinf_minimum_value_tbl(i),'YYYY/MM/DD HH24:MI:SS') >=
7402: to_date(vsinf_maximum_value_tbl(i),'YYYY/MM/DD HH24:MI:SS') THEN
7403: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7404: p_msg_name => 'OKC_INVALID_RANGE');
7405: l_return_status := G_RET_STS_ERROR;
7406: END IF;
7407:
7409: END IF;
7410:
7411: -- Check if uppercase_only_flag is set properly
7412: IF vsinf_uppercase_only_flag_tbl(i) not in ('Y','N') THEN
7413: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7414: p_msg_name => 'OKC_INVALID_UPPERCASE_FLAG');
7415: l_return_status := G_RET_STS_ERROR;
7416: END IF;
7417:
7416: END IF;
7417:
7418: -- Check if number_only_flag is set properly
7419: IF vsinf_number_only_flag_tbl(i) not in ('Y','N') THEN
7420: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7421: p_msg_name => 'OKC_INVALID_NUMBERONLY_FLAG');
7422: l_return_status := G_RET_STS_ERROR;
7423: END IF;
7424:
7424:
7425: -- Check if format_type and number_only_flag is set properly
7426: IF vsinf_format_type_tbl(i) = 'N' AND
7427: vsinf_number_only_flag_tbl(i) = 'N' THEN
7428: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7429: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7430: l_return_status := G_RET_STS_ERROR;
7431: END IF;
7432:
7432:
7433: -- Check if format_type and uppercase_only_flag is set properly
7434: IF vsinf_format_type_tbl(i) = 'N' AND
7435: vsinf_uppercase_only_flag_tbl(i) = 'Y' THEN
7436: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7437: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7438: l_return_status := G_RET_STS_ERROR;
7439: END IF;
7440:
7441: -- Check if format_type and number_only_flag is set properly
7442: IF vsinf_format_type_tbl(i) = 'C' AND
7443: (vsinf_uppercase_only_flag_tbl(i) = 'Y' AND
7444: vsinf_number_only_flag_tbl(i) = 'Y') THEN
7445: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7446: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7447: l_return_status := G_RET_STS_ERROR;
7448: END IF;
7449:
7449:
7450: -- Check if format_type and maximum_size is set properly
7451: IF vsinf_format_type_tbl(i) = 'C' AND
7452: vsinf_maximum_size_tbl(i) > 999 THEN
7453: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7454: p_msg_name => 'OKC_INVALID_MAXIMUMSIZE');
7455: l_return_status := G_RET_STS_ERROR;
7456: END IF;
7457:
7457:
7458: -- Check if format_type and maximum_size is set properly
7459: IF vsinf_format_type_tbl(i) = 'N' AND
7460: vsinf_maximum_size_tbl(i) > 38 THEN
7461: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7462: p_msg_name => 'OKC_INVALID_MAXIMUMSIZE');
7463: l_return_status := G_RET_STS_ERROR;
7464: END IF;
7465:
7469: END IF;
7470: /*
7471: -- Check if alphanumeric_allowed_flag is set properly
7472: IF nvl(vsinf_alphanumeric_allowed_flag_tbl(i), '*') not in ('Y','N') THEN
7473: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7474: p_msg_name => 'OKC_INVALID_ALPHANUMERIC_FLAG');
7475: l_return_status := G_RET_STS_ERROR;
7476: END IF;
7477: */
7476: END IF;
7477: */
7478: -- Check if Validation Type is 'Independent' or 'None'
7479: IF nvl(vsinf_validation_type_tbl(i), '*') not in ('I','N') THEN
7480: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7481: p_msg_name => 'OKC_INVALID_VALIDATION_TYPE');
7482: l_return_status := G_RET_STS_ERROR;
7483: END IF;
7484:
7528:
7529: EXCEPTION
7530: WHEN FND_API.G_EXC_ERROR THEN
7531: IF (l_debug = 'Y') THEN
7532: okc_debug.log('300: In Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
7533: END IF;
7534: --l_return_status := G_RET_STS_ERROR ;
7535: build_error_array(
7536: p_msg_data => x_msg_data,
7548: -- Continue to next row
7549:
7550: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7551: IF (l_debug = 'Y') THEN
7552: okc_debug.log('400: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7553: END IF;
7554:
7555: IF l_valset_interface_csr%ISOPEN THEN
7556: CLOSE l_valset_interface_csr;
7586:
7587: l_return_status := G_RET_STS_UNEXP_ERROR ;
7588: x_return_status := G_RET_STS_UNEXP_ERROR ;
7589:
7590: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7591: p_msg_name => G_UNEXPECTED_ERROR,
7592: p_token1 => G_SQLCODE_TOKEN,
7593: p_token1_value => sqlcode,
7594: p_token2 => G_SQLERRM_TOKEN,
7634: -------------------------
7635: EXCEPTION
7636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7637: IF (l_debug = 'Y') THEN
7638: okc_debug.log('400: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7639: END IF;
7640:
7641: IF l_valset_interface_csr%ISOPEN THEN
7642: CLOSE l_valset_interface_csr;
7744: -- Exception for bulk DML block
7745: EXCEPTION
7746: WHEN OTHERS THEN
7747: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
7748: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7749: p_msg_name => G_UNEXPECTED_ERROR,
7750: p_token1 => G_SQLCODE_TOKEN,
7751: p_token1_value => sqlcode,
7752: p_token2 => G_SQLERRM_TOKEN,
7750: p_token1 => G_SQLCODE_TOKEN,
7751: p_token1_value => sqlcode,
7752: p_token2 => G_SQLERRM_TOKEN,
7753: p_token2_value => sqlerrm);
7754: Okc_API.Set_Message(p_app_name => G_APP_NAME,
7755: p_msg_name => 'OKC_ART_FETCH_FAILED',
7756: p_token1 => 'CONTEXT',
7757: p_token1_value => l_context);
7758:
7824: IF (l_debug = 'Y') THEN
7825: okc_debug.log('500: Leaving Fnd_flex_value_sets_Import because of EXCEPTION: '||sqlerrm, 2);
7826: END IF;
7827:
7828: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7829: p_msg_name => G_UNEXPECTED_ERROR,
7830: p_token1 => G_SQLCODE_TOKEN,
7831: p_token1_value => sqlcode,
7832: p_token2 => G_SQLERRM_TOKEN,
7830: p_token1 => G_SQLCODE_TOKEN,
7831: p_token1_value => sqlcode,
7832: p_token2 => G_SQLERRM_TOKEN,
7833: p_token2_value => sqlerrm);
7834: Okc_API.Set_Message(p_app_name => G_APP_NAME,
7835: p_msg_name => 'OKC_VALSET_INT_UPDATE_FAILED');
7836:
7837: build_error_array(
7838: p_msg_data => null,
7962: EXCEPTION
7963:
7964: WHEN FND_API.G_EXC_ERROR THEN
7965: IF (l_debug = 'Y') THEN
7966: okc_debug.log('3000: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
7967: END IF;
7968: --Insert Errors into Error table if there is any
7969: insert_error_array(
7970: x_return_status => x_return_status,
7974: x_return_status := G_RET_STS_ERROR ;
7975:
7976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7977: IF (l_debug = 'Y') THEN
7978: okc_debug.log('4000: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7979: END IF;
7980: --Insert Errors into Error table if there is any
7981:
7982: insert_error_array(
8184: l_return_status VARCHAR2(1);
8185: l_error_index NUMBER := 1;
8186: l_batch_process_id NUMBER := 1;
8187: l_context VARCHAR2(50) := NULL;
8188: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
8189: l_tot_rows_processed NUMBER := 0;
8190: l_tot_rows_failed NUMBER := 0;
8191: l_tot_rows_warned NUMBER := 0;
8192: l_part_rows_processed NUMBER := 0;
8390: x := i-1;
8391: IF RTRIM(vinf_flex_value_set_name_tbl(i)) = RTRIM(vinf_flex_value_set_name_tbl(x)) AND
8392: RTRIM(vinf_flex_value_tbl(i)) = RTRIM(vinf_flex_value_tbl(x))
8393: THEN
8394: Okc_Api.Set_Message(G_APP_NAME,
8395: 'OKC_VALSET_VAL_DUP_TITLE',
8396: 'VALUE',
8397: vinf_flex_value_tbl(i),
8398: 'VALSET',
8412: IF vinf_action_tbl(i) = 'N' THEN
8413: -- Check if value set already exists in the System
8414: IF NOT Fnd_Flex_Val_Api.Valueset_Exists(vinf_flex_value_set_name_tbl(i)) THEN
8415: IF p_validate_only = 'N' THEN
8416: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8417: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8418: p_token1 => 'VALUE',
8419: p_token1_value => vinf_flex_value_tbl(i),
8420: p_token2 => 'VALSET',
8423: l_return_status := G_RET_STS_ERROR;
8424: RAISE FND_API.G_EXC_ERROR;
8425: ELSE
8426: IF vinf_validation_type_tbl(i) IS NULL AND vinf_format_type_tbl(i) IS NULL THEN
8427: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8428: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8429: p_token1 => 'VALUE',
8430: p_token1_value => vinf_flex_value_tbl(i),
8431: p_token2 => 'VALSET',
8460: p_max_value => vinf_maximum_value_tbl(i));
8461:
8462: ELSIF vinf_action_tbl(i) = 'D' THEN
8463: IF vinf_end_date_active_tbl(i) IS NULL THEN
8464: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8465: p_msg_name => 'OKC_NULL_END_DATE');
8466: l_return_status := G_RET_STS_ERROR;
8467: RAISE FND_API.G_EXC_ERROR;
8468: END IF;
8474: l_flex_value,
8475: l_start_date,
8476: l_end_date;
8477: IF l_val_exist_csr%NOTFOUND THEN
8478: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8479: p_msg_name => 'OKC_INVALID_VS_VALUE',
8480: p_token1=> 'VALUE',
8481: p_token1_value => vinf_flex_value_tbl(i),
8482: p_token2=> 'VALSET',
8488:
8489: IF l_start_date IS NOT NULL
8490: THEN
8491: IF l_start_date > vinf_end_date_active_tbl(i) THEN
8492: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8493: p_msg_name => 'OKC_INVALID_END_DATE');
8494: l_return_status := G_RET_STS_ERROR;
8495: RAISE FND_API.G_EXC_ERROR;
8496: END IF;
8499:
8500: CLOSE l_val_exist_csr;
8501: ELSE
8502:
8503: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8504: p_msg_name => 'OKC_VAL_INV_IMP_ACTION');
8505: l_return_status := G_RET_STS_ERROR;
8506: RAISE FND_API.G_EXC_ERROR ;
8507: END IF;
8515: /*
8516: -- Check if value set already exists in the System
8517: IF NOT Fnd_Flex_Val_Api.Valueset_Exists(vinf_flex_value_set_name_tbl(i)) THEN
8518: IF p_validate_only = 'N' THEN
8519: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8520: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8521: p_token1 => 'VALUE',
8522: p_token1_value => vinf_flex_value_tbl(i),
8523: p_token2 => 'VALSET',
8525: );
8526: l_return_status := G_RET_STS_ERROR;
8527: ELSE
8528: IF vinf_validation_type_tbl(i) IS NULL AND vinf_format_type_tbl(i) IS NULL THEN
8529: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8530: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8531: p_token1 => 'VALUE',
8532: p_token1_value => vinf_flex_value_tbl(i),
8533: p_token2 => 'VALSET',
8541:
8542:
8543: -- Check if Validation Type for value set is 'I' otherwise values cannot be created
8544: IF (vinf_validation_type_tbl(i) <> 'I') THEN
8545: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8546: p_msg_name => 'OKC_VAL_VALSET_NOT_VALID',
8547: p_token1 => 'VALUE',
8548: p_token1_value => vinf_flex_value_tbl(i),
8549: p_token2 => 'VALSET',
8568: p_min_value => vinf_minimum_value_tbl(i),
8569: p_max_value => vinf_maximum_value_tbl(i),
8570: x_storage_value => l_storage_value,
8571: x_display_value => l_display_value)) THEN
8572: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8573: p_msg_name => 'OKC_VAL_NOT_VALID');
8574: l_return_status := G_RET_STS_ERROR;
8575: END IF;
8576:
8574: l_return_status := G_RET_STS_ERROR;
8575: END IF;
8576:
8577: IF nvl(vinf_enabled_flag_tbl(i),'*') not in ('N','Y') THEN
8578: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8579: p_msg_name => 'OKC_INVALID_ENABLED_FLAG');
8580: l_return_status := G_RET_STS_ERROR;
8581:
8582: END IF;
8584: IF vinf_start_date_active_tbl(i) IS NOT NULL
8585: AND vinf_end_date_active_tbl(i) IS NOT NULL
8586: THEN
8587: IF vinf_start_date_active_tbl(i) > vinf_end_date_active_tbl(i) THEN
8588: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8589: p_msg_name => 'OKC_INVALID_END_DATE');
8590: l_return_status := G_RET_STS_ERROR;
8591: END IF;
8592: END IF;
8638:
8639: EXCEPTION
8640: WHEN FND_API.G_EXC_ERROR THEN
8641: IF (l_debug = 'Y') THEN
8642: okc_debug.log('300: In Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
8643: END IF;
8644: IF l_val_exist_csr%ISOPEN THEN
8645: CLOSE l_val_exist_csr;
8646: END IF;
8661: -- Continue to next row
8662:
8663: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8664: IF (l_debug = 'Y') THEN
8665: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8666: END IF;
8667:
8668: IF l_val_exist_csr%ISOPEN THEN
8669: CLOSE l_val_exist_csr;
8705:
8706: l_return_status := G_RET_STS_UNEXP_ERROR ;
8707: x_return_status := G_RET_STS_UNEXP_ERROR ;
8708:
8709: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8710: p_msg_name => G_UNEXPECTED_ERROR,
8711: p_token1 => G_SQLCODE_TOKEN,
8712: p_token1_value => sqlcode,
8713: p_token2 => G_SQLERRM_TOKEN,
8752: -------------------------
8753: EXCEPTION
8754: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8755: IF (l_debug = 'Y') THEN
8756: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8757: END IF;
8758: IF l_val_exist_csr%ISOPEN THEN
8759: CLOSE l_val_exist_csr;
8760: END IF;
8879: -- Exception for bulk DML block
8880: EXCEPTION
8881: WHEN OTHERS THEN
8882: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
8883: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8884: p_msg_name => G_UNEXPECTED_ERROR,
8885: p_token1 => G_SQLCODE_TOKEN,
8886: p_token1_value => sqlcode,
8887: p_token2 => G_SQLERRM_TOKEN,
8885: p_token1 => G_SQLCODE_TOKEN,
8886: p_token1_value => sqlcode,
8887: p_token2 => G_SQLERRM_TOKEN,
8888: p_token2_value => sqlerrm);
8889: Okc_API.Set_Message(p_app_name => G_APP_NAME,
8890: p_msg_name => 'OKC_ART_FETCH_FAILED',
8891: p_token1 => 'CONTEXT',
8892: p_token1_value => l_context);
8893:
8959: IF (l_debug = 'Y') THEN
8960: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8961: END IF;
8962:
8963: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8964: p_msg_name => G_UNEXPECTED_ERROR,
8965: p_token1 => G_SQLCODE_TOKEN,
8966: p_token1_value => sqlcode,
8967: p_token2 => G_SQLERRM_TOKEN,
8965: p_token1 => G_SQLCODE_TOKEN,
8966: p_token1_value => sqlcode,
8967: p_token2 => G_SQLERRM_TOKEN,
8968: p_token2_value => sqlerrm);
8969: Okc_API.Set_Message(p_app_name => G_APP_NAME,
8970: p_msg_name => 'OKC_VAL_INT_UPDATE_FAILED');
8971: build_error_array(
8972: p_msg_data => null,
8973: p_context => l_context,
9108: EXCEPTION
9109:
9110: WHEN FND_API.G_EXC_ERROR THEN
9111: IF (l_debug = 'Y') THEN
9112: okc_debug.log('3000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
9113: END IF;
9114: --Insert Errors into Error table if there is any
9115: insert_error_array(
9116: x_return_status => x_return_status,
9120: x_return_status := G_RET_STS_ERROR ;
9121:
9122: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9123: IF (l_debug = 'Y') THEN
9124: okc_debug.log('4000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
9125: END IF;
9126: --Insert Errors into Error table if there is any
9127:
9128: insert_error_array(