[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',
2050: l_error_index NUMBER := 1;
2051: l_replace_text VARCHAR2(1) := 'N';
2052: l_batch_process_id NUMBER := 1;
2053: l_context VARCHAR2(50) := NULL;
2054: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
2055: l_tot_rows_processed NUMBER := 0;
2056: l_tot_rows_failed NUMBER := 0;
2057: l_tot_rows_warned NUMBER := 0;
2058: l_part_rows_processed NUMBER := 0;
2096: CLOSE cur_org_csr;
2097: */
2098: -- MOAC
2099: IF G_CURRENT_ORG_ID IS NULL THEN
2100: Okc_Api.Set_Message(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
2101: RAISE FND_API.G_EXC_ERROR;
2102: END IF;
2103:
2104:
2141: IF (p_fetchsize > G_FETCHSIZE_LIMIT) THEN
2142: x_return_status := G_RET_STS_ERROR;
2143: l_return_status := G_RET_STS_ERROR;
2144:
2145: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2146: p_msg_name => 'OKC_ART_IMP_LIM_FETCHSIZE');
2147:
2148: build_error_array(
2149: p_msg_data => x_msg_data,
2306: -- To find duplicate title in the batch after RTRIM is performed Bug 3487759
2307: IF i>1 THEN
2308: x := i-1;
2309: IF RTRIM(inf_article_title_tbl(i)) = RTRIM(inf_article_title_tbl(x)) THEN
2310: Okc_Api.Set_Message(G_APP_NAME, 'OKC_ART_DUP_TITLE_ORG');
2311: l_return_status := G_RET_STS_ERROR;
2312: RAISE FND_API.G_EXC_ERROR;
2313: END IF;
2314: END IF;
2341:
2342: inf_article_id_tbl(i) := NULL;
2343: IF nvl(inf_article_status_tbl(i), '*') not in
2344: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2345: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2346: p_msg_name => 'OKC_ART_IMP_INV_STS_NEWA',
2347: p_token1 => 'STATUS1',
2348: p_token1_value => 'DRAFT',
2349: p_token2 => 'STATUS2',
2366:
2367: ELSIF inf_action_tbl(i) = 'U' THEN
2368:
2369: IF inf_article_id_tbl(i) is NULL THEN
2370: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2371: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2372: p_token1 => 'ARTICLE_TITLE',
2373: p_token1_value => inf_article_title_tbl(i));
2374: l_return_status := G_RET_STS_ERROR;
2383: l_row_notfound := get_max_article_version_csr%NOTFOUND;
2384: CLOSE get_max_article_version_csr;
2385:
2386: IF nvl(l_article_status,'*') not in ('DRAFT', 'REJECTED') THEN
2387: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2388: p_msg_name => 'OKC_ART_IMP_INV_CUR_STS_UPD');
2389: l_return_status := G_RET_STS_ERROR;
2390: RAISE FND_API.G_EXC_ERROR ;
2391: END IF;
2397: inf_article_version_id_tbl(i) := l_article_version_id;
2398:
2399: IF nvl(inf_article_status_tbl(i), '*') not in
2400: ('DRAFT','REJECTED','APPROVED','PENDING_APPROVAL') THEN
2401: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2402: p_msg_name => 'OKC_ART_IMP_INV_STS_UPD',
2403: p_token1 => 'STATUS1',
2404: p_token1_value => 'DRAFT',
2405: p_token2 => 'STATUS2',
2434: ELSIF inf_action_tbl(i) = 'V' THEN
2435:
2436: inf_article_version_id_tbl(i) := NULL;
2437: IF inf_article_id_tbl(i) is NULL THEN
2438: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2439: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2440: p_token1 => 'ARTICLE_TITLE',
2441: p_token1_value => inf_article_title_tbl(i));
2442: l_return_status := G_RET_STS_ERROR;
2444: END IF;
2445:
2446: IF nvl(inf_article_status_tbl(i), '*') not in
2447: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2448: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2449: p_msg_name => 'OKC_ART_IMP_INV_STS_NEWA',
2450: p_token1 => 'STATUS1',
2451: p_token1_value => 'DRAFT',
2452: p_token2 => 'STATUS2',
2483: l_tmp_article_status := 'DRAFT';
2484: ELSIF inf_action_tbl(i) = 'D' THEN
2485:
2486: IF inf_article_id_tbl(i) is NULL THEN
2487: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2488: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2489: p_token1 => 'ARTICLE_TITLE',
2490: p_token1_value => inf_article_title_tbl(i));
2491: l_return_status := G_RET_STS_ERROR;
2492: RAISE FND_API.G_EXC_ERROR ;
2493: END IF;
2494:
2495: IF inf_end_date_tbl(i) IS NULL THEN
2496: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2497: p_msg_name => 'OKC_ART_NULL_END_DATE');
2498: l_return_status := G_RET_STS_ERROR;
2499: RAISE FND_API.G_EXC_ERROR;
2500: END IF;
2507: l_row_notfound := get_max_article_version_csr%NOTFOUND;
2508: CLOSE get_max_article_version_csr;
2509:
2510: IF l_row_notfound THEN
2511: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2512: p_msg_name => 'OKC_ART_ARTICLE_NOT_FOUND',
2513: p_token1 => 'ARTICLE_TITLE',
2514: p_token1_value => inf_article_title_tbl(i));
2515:
2519:
2520: IF l_start_date IS NOT NULL
2521: THEN
2522: IF l_start_date > inf_end_date_tbl(i) THEN
2523: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2524: p_msg_name => 'OKC_INVALID_END_DATE');
2525: l_return_status := G_RET_STS_ERROR;
2526: RAISE FND_API.G_EXC_ERROR;
2527: END IF;
2534: inf_article_version_id_tbl(i) := l_article_version_id;
2535:
2536: ELSE
2537:
2538: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2539: p_msg_name => 'OKC_ART_INV_IMP_ACTION');
2540: l_return_status := G_RET_STS_ERROR;
2541: RAISE FND_API.G_EXC_ERROR ;
2542: END IF;
2550: -- Do not import article if status or org_id or global_flag is not provided
2551: IF inf_article_status_tbl(i) IS NULL OR
2552: inf_org_id_tbl(i) IS NULL OR
2553: inf_global_yn_tbl(i) IS NULL THEN
2554: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2555: p_msg_name => 'OKC_ART_ATTRS_NOT_PROVIDED');
2556: l_return_status := G_RET_STS_ERROR;
2557: END IF;
2558:
2565: END IF;
2566:
2567: -- Do not import article if orig_system_reference_code begins with 'OKCMIG'
2568: IF instr(nvl(inf_art_reference_code_tbl(i), '*'), 'OKCMIG') = 1 THEN
2569: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2570: p_msg_name => 'OKC_ART_IMP_RES_SYS_REF_CODE');
2571: l_return_status := G_RET_STS_ERROR;
2572: END IF;
2573:
2571: l_return_status := G_RET_STS_ERROR;
2572: END IF;
2573:
2574: IF instr(nvl(inf_ver_reference_code_tbl(i), '*'), 'OKCMIG') = 1 THEN
2575: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2576: p_msg_name => 'OKC_ART_IMP_RES_SYS_REF_CODE');
2577: l_return_status := G_RET_STS_ERROR;
2578: END IF;
2579:
2593:
2594: --Bug 3680486: no provision for sell intent clause
2595: IF nvl(inf_article_intent_tbl(i), '*') = 'S'
2596: AND nvl(inf_provision_yn_tbl(i), '*') = 'Y' THEN
2597: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2598: p_msg_name => 'OKC_ART_INVALID_PROVISIONYN');
2599: l_return_status := G_RET_STS_ERROR;
2600: END IF;
2601:
2715: l_row_notfound := validate_article_type_csr%NOTFOUND;
2716: CLOSE validate_article_type_csr;
2717:
2718: IF l_row_notfound THEN
2719: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2720: p_msg_name => 'OKC_ART_INVALID_ARTICLE_TYPE',
2721: p_token1 => 'ARTICLE_TITLE',
2722: p_token1_value => inf_article_title_tbl(i));
2723: l_return_status := G_RET_STS_ERROR;
2845: OPEN l_var_name_csr (l_variable_code_tbl(k),
2846: inf_article_language_tbl(i));
2847: FETCH l_var_name_csr INTO l_variable_name;
2848: CLOSE l_var_name_csr;
2849: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2850: p_msg_name => 'OKC_ART_INV_VALUESET',
2851: p_token1 => 'VARIABLE_NAME',
2852: p_token1_value => l_variable_name,
2853: p_token2 => 'ARTICLE_TITLE',
3051:
3052: EXCEPTION
3053: WHEN FND_API.G_EXC_ERROR THEN
3054: IF (l_debug = 'Y') THEN
3055: okc_debug.log('300: In Articles_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
3056: END IF;
3057: --l_return_status := G_RET_STS_ERROR ;
3058: build_error_array(
3059: p_msg_data => x_msg_data,
3071: -- Continue to next row
3072:
3073: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3074: IF (l_debug = 'Y') THEN
3075: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3076: END IF;
3077:
3078: --
3079: -- Freeing temporary clobs
3160: END IF;
3161: l_return_status := G_RET_STS_UNEXP_ERROR ;
3162: x_return_status := G_RET_STS_UNEXP_ERROR ;
3163:
3164: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3165: p_msg_name => G_UNEXPECTED_ERROR,
3166: p_token1 => G_SQLCODE_TOKEN,
3167: p_token1_value => sqlcode,
3168: p_token2 => G_SQLERRM_TOKEN,
3209: -------------------------
3210: EXCEPTION
3211: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3212: IF (l_debug = 'Y') THEN
3213: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
3214: END IF;
3215: --
3216: -- Freeing temporary clobs
3217: --
3845: -- Exception for bulk DML block
3846: EXCEPTION
3847: WHEN OTHERS THEN
3848: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
3849: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3850: p_msg_name => G_UNEXPECTED_ERROR,
3851: p_token1 => G_SQLCODE_TOKEN,
3852: p_token1_value => sqlcode,
3853: p_token2 => G_SQLERRM_TOKEN,
3851: p_token1 => G_SQLCODE_TOKEN,
3852: p_token1_value => sqlcode,
3853: p_token2 => G_SQLERRM_TOKEN,
3854: p_token2_value => sqlerrm);
3855: Okc_API.Set_Message(p_app_name => G_APP_NAME,
3856: p_msg_name => 'OKC_ART_FETCH_FAILED',
3857: p_token1 => 'CONTEXT',
3858: p_token1_value => l_context);
3859:
3925: WHEN OTHERS THEN
3926: IF (l_debug = 'Y') THEN
3927: okc_debug.log('500: Leaving Article_Import because of EXCEPTION: '||sqlerrm, 2);
3928: END IF;
3929: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3930: p_msg_name => G_UNEXPECTED_ERROR,
3931: p_token1 => G_SQLCODE_TOKEN,
3932: p_token1_value => sqlcode,
3933: p_token2 => G_SQLERRM_TOKEN,
3931: p_token1 => G_SQLCODE_TOKEN,
3932: p_token1_value => sqlcode,
3933: p_token2 => G_SQLERRM_TOKEN,
3934: p_token2_value => sqlerrm);
3935: Okc_API.Set_Message(p_app_name => G_APP_NAME,
3936: p_msg_name => 'OKC_ART_INT_UPDATE_FAILED');
3937: build_error_array(
3938: p_msg_data => null,
3939: p_context => l_context,
4089: WHEN OTHERS THEN
4090: IF (l_debug = 'Y') THEN
4091: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION in workflow: '||sqlerrm, 2);
4092: END IF;
4093: Okc_API.Set_Message(p_app_name => G_APP_NAME,
4094: p_msg_name => 'OKC_ART_IMP_WF_FAILED');
4095:
4096: build_error_array(
4097: p_msg_data => null,
4151: EXCEPTION
4152:
4153: WHEN FND_API.G_EXC_ERROR THEN
4154: IF (l_debug = 'Y') THEN
4155: okc_debug.log('300: Leaving Articles_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
4156: END IF;
4157: --Insert Errors into Error table if there is any
4158: insert_error_array(
4159: x_return_status => x_return_status,
4164: x_return_status := G_RET_STS_ERROR ;
4165:
4166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4167: IF (l_debug = 'Y') THEN
4168: okc_debug.log('400: Leaving Articles_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
4169: END IF;
4170:
4171: --Insert Errors into Error table if there is any
4172:
4493: l_return_status VARCHAR2(1);
4494: l_error_index NUMBER := 1;
4495: l_batch_process_id NUMBER := 1;
4496: l_context VARCHAR2(50) := NULL;
4497: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
4498: l_tot_rows_processed NUMBER := 0;
4499: l_tot_rows_failed NUMBER := 0;
4500: l_tot_rows_warned NUMBER := 0;
4501: l_part_rows_processed NUMBER := 0;
4730: x := i-1;
4731: IF ((RTRIM(vinf_variable_code_tbl(i)) = RTRIM(vinf_variable_code_tbl(x)))
4732: --THEN
4733: AND (vinf_language_tbl(i)) = (vinf_language_tbl(x))) THEN
4734: Okc_Api.Set_Message(G_APP_NAME,
4735: 'OKC_VAR_DUP_TITLE_ORG',
4736: 'VAR_CODE',
4737: vinf_variable_code_tbl(i),
4738: 'LANG',
4760:
4761: ELSIF vinf_action_tbl(i) in ('U','D') THEN
4762:
4763: IF vinf_existing_code_tbl(i) is NULL THEN
4764: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4765: p_msg_name => 'OKC_VAR_CODE_NOT_FOUND',
4766: p_token1 => 'VARIABLE_CODE',
4767: p_token1_value => vinf_variable_code_tbl(i));
4768: l_return_status := G_RET_STS_ERROR;
4770: END IF;
4771:
4772: ELSE
4773:
4774: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4775: p_msg_name => 'OKC_VAR_INV_IMP_ACTION');
4776: l_return_status := G_RET_STS_ERROR;
4777: RAISE FND_API.G_EXC_ERROR ;
4778: END IF;
4792: vinf_batch_number_tbl(i));
4793: FETCH valset_exists_csr into l_vs_id;
4794: CLOSE valset_exists_csr;
4795: IF l_vs_id is null THEN
4796: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4797: p_msg_name => 'OKC_ART_VAL_SET_NOT_FOUND');
4798: l_return_status := G_RET_STS_ERROR;
4799: ELSE
4800: -- Reset Local Variables
4801: l_vs_id := NULL;
4802:
4803: END IF;
4804: ELSE
4805: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4806: p_msg_name => 'OKC_ART_VAL_SET_NOT_FOUND');
4807: l_return_status := G_RET_STS_ERROR;
4808: END IF;
4809:
4817:
4818:
4819: -- Checking Date Published Validation
4820: IF vinf_existing_dpublished_tbl(i) >= vinf_date_published_tbl(i) THEN
4821: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4822: p_msg_name => 'OKC_INVALID_DATE_PUBLISHED');
4823: l_return_status := G_RET_STS_ERROR;
4824: END IF;
4825:
4824: END IF;
4825:
4826: -- Checking Variable Flags
4827: IF nvl(vinf_disabled_yn_tbl(i), '*') not in ('Y','N') THEN
4828: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4829: p_msg_name => 'OKC_INVALID_DISABLED_FLAG');
4830: l_return_status := G_RET_STS_ERROR;
4831: END IF;
4832:
4830: l_return_status := G_RET_STS_ERROR;
4831: END IF;
4832:
4833: IF nvl(vinf_external_yn_tbl(i), '*') not in ('Y','N') THEN
4834: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4835: p_msg_name => 'OKC_INVALID_EXTERNAL_FLAG');
4836: l_return_status := G_RET_STS_ERROR;
4837: END IF;
4838:
4836: l_return_status := G_RET_STS_ERROR;
4837: END IF;
4838:
4839: IF nvl(vinf_contract_expert_yn_tbl(i), '*') not in ('Y','N') THEN
4840: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4841: p_msg_name => 'OKC_INVALID_CONTRACT_EXPERT_FLAG');
4842: l_return_status := G_RET_STS_ERROR;
4843: END IF;
4844:
4842: l_return_status := G_RET_STS_ERROR;
4843: END IF;
4844:
4845: IF nvl(vinf_variable_intent_tbl(i), '*') not in ('B','S') THEN
4846: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4847: p_msg_name => 'OKC_INVALID_INTENT_FLAG');
4848: l_return_status := G_RET_STS_ERROR;
4849: END IF;
4850:
4848: l_return_status := G_RET_STS_ERROR;
4849: END IF;
4850:
4851: IF nvl(vinf_variable_type_tbl(i), '*') <> 'U' THEN
4852: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4853: p_msg_name => 'OKC_INVALID_VARIABLE_TYPE');
4854: l_return_status := G_RET_STS_ERROR;
4855: END IF;
4856:
4856:
4857: -- Checking Variable Type and Value set id
4858: IF nvl(vinf_variable_type_tbl(i), '*') = 'U' THEN
4859: IF vinf_value_set_name_tbl(i) is null THEN
4860: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4861: p_msg_name => 'OKC_VS_NOT_DEFINED');
4862: l_return_status := G_RET_STS_ERROR;
4863: END IF;
4864: END IF;
4864: END IF;
4865:
4866:
4867: IF nvl(vinf_contract_expert_yn_tbl(i), '*') not in ('Y','N') THEN
4868: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4869: p_msg_name => 'OKC_INVALID_CONTRACT_EXPERT_FLAG');
4870: l_return_status := G_RET_STS_ERROR;
4871: END IF;
4872:
4875: IF ((vinf_xprt_value_set_name_tbl(i) is not null OR
4876: vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4877: vinf_variable_type_tbl(i) <> 'S')
4878: THEN
4879: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4880: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4881: l_return_status := G_RET_STS_ERROR;
4882: END IF;
4883:
4884: IF ((vinf_xprt_value_set_name_tbl(i) is not null OR
4885: vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4886: vinf_variable_type_tbl(i) <> 'S')
4887: THEN
4888: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4889: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4890: l_return_status := G_RET_STS_ERROR;
4891: END IF;
4892:
4893: IF ((vinf_variable_datatype_tbl(i) = 'D') AND
4894: ((vinf_contract_expert_yn_tbl(i) = 'Y' ) OR
4895: (vinf_xprt_value_set_name_tbl(i) <> 'S')))
4896: THEN
4897: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4898: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4899: l_return_status := G_RET_STS_ERROR;
4900: END IF;
4901:
4902: IF ((vinf_variable_datatype_tbl(i) = 'V') AND
4903: (vinf_contract_expert_yn_tbl(i) = 'Y' ) AND
4904: (vinf_xprt_value_set_name_tbl(i) is null) )
4905: THEN
4906: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4907: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4908: l_return_status := G_RET_STS_ERROR;
4909: END IF;
4910:
4910:
4911: IF ((vinf_contract_expert_yn_tbl(i) = 'N') AND
4912: (vinf_xprt_value_set_name_tbl(i) is not null) )
4913: THEN
4914: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4915: p_msg_name => 'OKC_ART_VAR_INV_XPRT_DATA');
4916: l_return_status := G_RET_STS_ERROR;
4917: END IF;
4918: -- Check for Valid External Flag
4918: -- Check for Valid External Flag
4919: IF ((vinf_variable_intent_tbl(i) = 'S') AND
4920: (vinf_external_yn_tbl(i) = 'Y') )
4921: THEN
4922: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4923: p_msg_name => 'OKC_ART_VAR_INVALID_EXTERNALYN',
4924: p_token1 => 'VAR_NAME',
4925: p_token1_value => vinf_variable_name_tbl(i));
4926: l_return_status := G_RET_STS_ERROR;
4931: FETCH check_lang_csr into l_language;
4932: CLOSE check_lang_csr;
4933: --IF check_lang_csr%NOTFOUND THEN
4934: IF l_language <> '1' THEN
4935: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4936: p_msg_name => 'OKC_LANG_NOT_INSTALLED',
4937: p_token1 => 'LANGUAGE',
4938: p_token1_value => vinf_language_tbl(i));
4939: l_return_status := G_RET_STS_ERROR;
4949: vinf_variable_intent_tbl(i));
4950: FETCH get_var_unq_csr into l_dummy_unq;
4951: CLOSE get_var_unq_csr;
4952: IF l_dummy_unq = '1' THEN
4953: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4954: p_msg_name => 'OKC_ART_VAR_NAME_NOT_UNIQUE');
4955: l_return_status := G_RET_STS_ERROR;
4956: END IF;
4957:
4959: OPEN get_var_info_csr(vinf_variable_code_tbl(i));
4960: FETCH get_var_info_csr into l_dummy;
4961: CLOSE get_var_info_csr;
4962: IF l_dummy = '1' THEN
4963: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
4964: p_msg_name => 'OKC_ART_VAR_CODE_NOT_UNIQUE');
4965: l_return_status := G_RET_STS_ERROR;
4966: END IF;
4967:
5015:
5016: EXCEPTION
5017: WHEN FND_API.G_EXC_ERROR THEN
5018: IF (l_debug = 'Y') THEN
5019: okc_debug.log('300: In Variables_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
5020: END IF;
5021: --l_return_status := G_RET_STS_ERROR ;
5022: build_error_array(
5023: p_msg_data => x_msg_data,
5035: -- Continue to next row
5036:
5037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5038: IF (l_debug = 'Y') THEN
5039: okc_debug.log('400: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5040: END IF;
5041:
5042: IF l_var_interface_csr%ISOPEN THEN
5043: CLOSE l_var_interface_csr;
5073:
5074: l_return_status := G_RET_STS_UNEXP_ERROR ;
5075: x_return_status := G_RET_STS_UNEXP_ERROR ;
5076:
5077: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5078: p_msg_name => G_UNEXPECTED_ERROR,
5079: p_token1 => G_SQLCODE_TOKEN,
5080: p_token1_value => sqlcode,
5081: p_token2 => G_SQLERRM_TOKEN,
5121: -------------------------
5122: EXCEPTION
5123: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5124: IF (l_debug = 'Y') THEN
5125: okc_debug.log('400: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5126: END IF;
5127:
5128: IF l_var_interface_csr%ISOPEN THEN
5129: CLOSE l_var_interface_csr;
5460: -- Exception for bulk DML block
5461: EXCEPTION
5462: WHEN OTHERS THEN
5463: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
5464: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5465: p_msg_name => G_UNEXPECTED_ERROR,
5466: p_token1 => G_SQLCODE_TOKEN,
5467: p_token1_value => sqlcode,
5468: p_token2 => G_SQLERRM_TOKEN,
5466: p_token1 => G_SQLCODE_TOKEN,
5467: p_token1_value => sqlcode,
5468: p_token2 => G_SQLERRM_TOKEN,
5469: p_token2_value => sqlerrm);
5470: Okc_API.Set_Message(p_app_name => G_APP_NAME,
5471: p_msg_name => 'OKC_ART_FETCH_FAILED',
5472: p_token1 => 'CONTEXT',
5473: p_token1_value => l_context);
5474:
5539: WHEN OTHERS THEN
5540: IF (l_debug = 'Y') THEN
5541: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||sqlerrm, 2);
5542: END IF;
5543: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
5544: p_msg_name => G_UNEXPECTED_ERROR,
5545: p_token1 => G_SQLCODE_TOKEN,
5546: p_token1_value => sqlcode,
5547: p_token2 => G_SQLERRM_TOKEN,
5545: p_token1 => G_SQLCODE_TOKEN,
5546: p_token1_value => sqlcode,
5547: p_token2 => G_SQLERRM_TOKEN,
5548: p_token2_value => sqlerrm);
5549: Okc_API.Set_Message(p_app_name => G_APP_NAME,
5550: p_msg_name => 'OKC_VAR_INT_UPDATE_FAILED');
5551: build_error_array(
5552: p_msg_data => null,
5553: p_context => l_context,
5775: EXCEPTION
5776:
5777: WHEN FND_API.G_EXC_ERROR THEN
5778: IF (l_debug = 'Y') THEN
5779: okc_debug.log('3000: Leaving Variables_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
5780: END IF;
5781: --Insert Errors into Error table if there is any
5782: insert_error_array(
5783: x_return_status => x_return_status,
5787: x_return_status := G_RET_STS_ERROR ;
5788:
5789: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5790: IF (l_debug = 'Y') THEN
5791: okc_debug.log('4000: Leaving Variables_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
5792: END IF;
5793: --Insert Errors into Error table if there is any
5794:
5795: insert_error_array(
5957: l_return_status VARCHAR2(1);
5958: l_error_index NUMBER := 1;
5959: l_batch_process_id NUMBER := 1;
5960: l_context VARCHAR2(50) := NULL;
5961: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
5962: l_tot_rows_processed NUMBER := 0;
5963: l_tot_rows_failed NUMBER := 0;
5964: l_tot_rows_warned NUMBER := 0;
5965: l_part_rows_processed NUMBER := 0;
6026: */
6027:
6028: -- MOAC
6029: IF G_CURRENT_ORG_ID IS NULL THEN
6030: OKC_API.SET_MESSAGE(G_APP_NAME,'OKC_ART_NULL_ORG_ID');
6031: RAISE FND_API.G_EXC_ERROR ;
6032: END IF;
6033:
6034: IF FND_GLOBAL.CONC_PROGRAM_ID = -1 THEN
6143: x := i-1;
6144: IF (RTRIM(rinf_source_article_title_tbl(i)) = RTRIM(rinf_source_article_title_tbl(x))) AND
6145: (RTRIM(rinf_target_article_title_tbl(i)) = RTRIM(rinf_target_article_title_tbl(x)))
6146: THEN
6147: Okc_Api.Set_Message(G_APP_NAME,
6148: 'OKC_REL_DUP_TITLE_ORG',
6149: 'CLAUSE1',
6150: rinf_source_article_title_tbl(i),
6151: 'CLAUSE2',
6175: rinf_batch_number_tbl(i));
6176: FETCH clause_exists_csr into l_clause;
6177: CLOSE clause_exists_csr;
6178: IF l_clause is null THEN
6179: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6180: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6181: p_token1 => 'ARTICLE_TITLE',
6182: p_token1_value => rinf_source_article_title_tbl(i));
6183: l_return_status := G_RET_STS_ERROR;
6186: -- Reset Local Variables
6187: l_clause := NULL;
6188: END IF;
6189: ELSE
6190: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6191: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6192: p_token1 => 'ARTICLE_TITLE',
6193: p_token1_value => rinf_source_article_title_tbl(i));
6194: l_return_status := G_RET_STS_ERROR;
6203: rinf_batch_number_tbl(i));
6204: FETCH clause_exists_csr into l_clause;
6205: CLOSE clause_exists_csr;
6206: IF l_clause is null THEN
6207: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6208: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6209: p_token1 => 'ARTICLE_TITLE',
6210: p_token1_value => rinf_target_article_title_tbl(i));
6211: l_return_status := G_RET_STS_ERROR;
6214: -- Reset Local Variables
6215: l_clause := NULL;
6216: END IF;
6217: ELSE
6218: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6219: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6220: p_token1 => 'ARTICLE_TITLE',
6221: p_token1_value => rinf_target_article_title_tbl(i));
6222: l_return_status := G_RET_STS_ERROR;
6226:
6227:
6228:
6229: /* IF rinf_source_article_id_tbl(i) is NULL THEN
6230: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6231: p_msg_name => 'OKC_SOURCE_ART_NOT_FOUND',
6232: p_token1 => 'ARTICLE_TITLE',
6233: p_token1_value => rinf_source_article_title_tbl(i));
6234: l_return_status := G_RET_STS_ERROR;
6235: RAISE FND_API.G_EXC_ERROR ;
6236: END IF;
6237:
6238: IF rinf_target_article_id_tbl(i) is NULL THEN
6239: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6240: p_msg_name => 'OKC_TARGET_ART_NOT_FOUND',
6241: p_token1 => 'ARTICLE_TITLE',
6242: p_token1_value => rinf_target_article_title_tbl(i));
6243: l_return_status := G_RET_STS_ERROR;
6253: rinf_relationship_type_tbl(i));
6254: FETCH l_rel_exist_csr into l_dummy;
6255: CLOSE l_rel_exist_csr;
6256: IF l_dummy <> '1' THEN
6257: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6258: p_msg_name => 'OKC_ART_REL_NOT_EXIST',
6259: p_token1 => 'ARTICLE1',
6260: p_token1_value => rinf_source_article_title_tbl(i),
6261: p_token2 => 'ARTICLE2',
6268:
6269: END IF;
6270: ELSE
6271:
6272: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6273: p_msg_name => 'OKC_REL_INV_IMP_ACTION');
6274: l_return_status := G_RET_STS_ERROR;
6275: RAISE FND_API.G_EXC_ERROR ;
6276: END IF;
6284:
6285: -- Check Source Article and Target Article should not be same
6286:
6287: IF rinf_target_article_id_tbl(i) = rinf_source_article_id_tbl(i) THEN
6288: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6289: p_msg_name => 'OKC_IMP_SAME_ART_RELTNSHP',
6290: p_token1 => 'ARTICLE1',
6291: p_token1_value => rinf_source_article_title_tbl(i));
6292: l_return_status := G_RET_STS_ERROR;
6296: OPEN l_org_valid_csr(rinf_org_id_tbl(i));
6297: FETCH l_org_valid_csr into l_dummy1;
6298: CLOSE l_org_valid_csr;
6299: IF l_dummy1 <> '1' THEN
6300: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6301: p_msg_name => 'OKC_ART_ORG_INVALID');
6302: l_return_status := G_RET_STS_ERROR;
6303: END IF;
6304:
6310: rinf_relationship_type_tbl(i));
6311: FETCH l_rel_exist_csr into l_dummy;
6312: CLOSE l_rel_exist_csr;
6313: IF l_dummy = '1' THEN
6314: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6315: p_msg_name => 'OKC_ART_REL_EXIST',
6316: p_token1 => 'ARTICLE1',
6317: p_token1_value => rinf_source_article_title_tbl(i),
6318: p_token2 => 'ARTICLE2',
6324:
6325: -- Checking Relationship types
6326: /*
6327: IF nvl(rinf_relationship_type_tbl(i), '*') not in ('ALTERNATE','INCOMPATIBLE') THEN
6328: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6329: p_msg_name => 'OKC_INVALID_RELTYPE');
6330: l_return_status := G_RET_STS_ERROR;
6331: END IF;
6332: */
6332: */
6333: IF rinf_relationship_type_tbl(i) IS NOT NULL THEN
6334: l_tmp_return_status := okc_util.check_lookup_code('OKC_ARTICLE_RELATIONSHIP_TYPE',rinf_relationship_type_tbl(i));
6335: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
6336: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'RELATIONSHIP_TYPE');
6337: l_return_status := G_RET_STS_ERROR;
6338: END IF;
6339: END IF;
6340:
6339: END IF;
6340:
6341: -- Soruce Article and Target Article should have same intent
6342: IF rinf_target_intent_tbl(i) <> rinf_source_intent_tbl(i) THEN
6343: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6344: p_msg_name => 'OKC_ART_NOT_SAME_INTENT',
6345: p_token1 => 'ARTICLE1',
6346: p_token1_value => rinf_source_article_title_tbl(i),
6347: p_token2 => 'ARTICLE2',
6357: LOOP
6358: l_target_provision := target.provision_yn;
6359: END LOOP;
6360: IF l_source_provision <> l_target_provision THEN
6361: okc_Api.Set_Message(p_app_name => G_APP_NAME,
6362: p_msg_name => 'OKC_ART_IMP_PROVISION_RELATION',
6363: p_token1 => 'ARTICLE1',
6364: p_token1_value => rinf_source_article_title_tbl(i),
6365: p_token2 => 'ARTICLE2',
6414:
6415: EXCEPTION
6416: WHEN FND_API.G_EXC_ERROR THEN
6417: IF (l_debug = 'Y') THEN
6418: okc_debug.log('300: In Relationships_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
6419: END IF;
6420: --l_return_status := G_RET_STS_ERROR ;
6421: build_error_array(
6422: p_msg_data => x_msg_data,
6434: -- Continue to next row
6435:
6436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6437: IF (l_debug = 'Y') THEN
6438: okc_debug.log('400: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6439: END IF;
6440:
6441: IF l_rel_interface_csr%ISOPEN THEN
6442: CLOSE l_rel_interface_csr;
6472:
6473: l_return_status := G_RET_STS_UNEXP_ERROR ;
6474: x_return_status := G_RET_STS_UNEXP_ERROR ;
6475:
6476: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6477: p_msg_name => G_UNEXPECTED_ERROR,
6478: p_token1 => G_SQLCODE_TOKEN,
6479: p_token1_value => sqlcode,
6480: p_token2 => G_SQLERRM_TOKEN,
6520: -------------------------
6521: EXCEPTION
6522: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6523: IF (l_debug = 'Y') THEN
6524: okc_debug.log('400: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6525: END IF;
6526:
6527: IF l_rel_interface_csr%ISOPEN THEN
6528: CLOSE l_rel_interface_csr;
6677: -- Exception for bulk DML block
6678: EXCEPTION
6679: WHEN OTHERS THEN
6680: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
6681: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6682: p_msg_name => G_UNEXPECTED_ERROR,
6683: p_token1 => G_SQLCODE_TOKEN,
6684: p_token1_value => sqlcode,
6685: p_token2 => G_SQLERRM_TOKEN,
6683: p_token1 => G_SQLCODE_TOKEN,
6684: p_token1_value => sqlcode,
6685: p_token2 => G_SQLERRM_TOKEN,
6686: p_token2_value => sqlerrm);
6687: Okc_API.Set_Message(p_app_name => G_APP_NAME,
6688: p_msg_name => 'OKC_ART_FETCH_FAILED',
6689: p_token1 => 'CONTEXT',
6690: p_token1_value => l_context);
6691:
6756: WHEN OTHERS THEN
6757: IF (l_debug = 'Y') THEN
6758: okc_debug.log('500: Leaving Relationships_Import because of EXCEPTION: '||sqlerrm, 2);
6759: END IF;
6760: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6761: p_msg_name => G_UNEXPECTED_ERROR,
6762: p_token1 => G_SQLCODE_TOKEN,
6763: p_token1_value => sqlcode,
6764: p_token2 => G_SQLERRM_TOKEN,
6762: p_token1 => G_SQLCODE_TOKEN,
6763: p_token1_value => sqlcode,
6764: p_token2 => G_SQLERRM_TOKEN,
6765: p_token2_value => sqlerrm);
6766: Okc_API.Set_Message(p_app_name => G_APP_NAME,
6767: p_msg_name => 'OKC_REL_INT_UPDATE_FAILED');
6768: build_error_array(
6769: p_msg_data => null,
6770: p_context => l_context,
6888: -- Commented for new XML Based Import - Moved to new_wrap_up in conc_import_articles
6889: --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');
6890: /*
6891: FND_MSG_PUB.initialize;
6892: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6893: p_msg_name => 'OKC_ART_IMP_ERR');
6894:
6895: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
6896:
6906: EXCEPTION
6907:
6908: WHEN FND_API.G_EXC_ERROR THEN
6909: IF (l_debug = 'Y') THEN
6910: okc_debug.log('3000: Leaving Relationships_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
6911: END IF;
6912: --Insert Errors into Error table if there is any
6913: insert_error_array(
6914: x_return_status => x_return_status,
6918: x_return_status := G_RET_STS_ERROR ;
6919:
6920: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6921: IF (l_debug = 'Y') THEN
6922: okc_debug.log('4000: Leaving Relationships_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
6923: END IF;
6924: --Insert Errors into Error table if there is any
6925:
6926: insert_error_array(
7048: l_return_status VARCHAR2(1);
7049: l_error_index NUMBER := 1;
7050: l_batch_process_id NUMBER := 1;
7051: l_context VARCHAR2(50) := NULL;
7052: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
7053: l_tot_rows_processed NUMBER := 0;
7054: l_tot_rows_failed NUMBER := 0;
7055: l_tot_rows_warned NUMBER := 0;
7056: l_part_rows_processed NUMBER := 0;
7221: IF i>1 THEN
7222: x := i-1;
7223: IF RTRIM(vsinf_flex_value_set_name_tbl(i)) = RTRIM(vsinf_flex_value_set_name_tbl(x))
7224: THEN
7225: Okc_Api.Set_Message(G_APP_NAME, 'OKC_VALSET_DUP_TITLE','VALUESET',vsinf_flex_value_set_name_tbl(i));
7226: l_return_status := G_RET_STS_ERROR;
7227: RAISE FND_API.G_EXC_ERROR;
7228: END IF;
7229: END IF;
7257: END IF;
7258:
7259: ELSE
7260:
7261: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7262: p_msg_name => 'OKC_VALSET_INV_IMP_ACTION');
7263: l_return_status := G_RET_STS_ERROR;
7264: RAISE FND_API.G_EXC_ERROR ;
7265: END IF;
7271: -----------------------------------------------------------
7272: -- Check if value set already exists in the System
7273:
7274: IF Fnd_Flex_Val_Api.Valueset_Exists(vsinf_flex_value_set_name_tbl(i)) THEN
7275: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7276: p_msg_name => 'OKC_IMP_VALSET_EXIST',
7277: p_token1 => 'VALUESET',
7278: p_token1_value => vsinf_flex_value_set_name_tbl(i)
7279: );
7289: -- For Standard Date , Default Max size is 11
7290: -- For Standard DateTime , Default Max size is 12
7291:
7292: IF nvl(vsinf_format_type_tbl(i),'*') not in ('N','C','X','Y') THEN
7293: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7294: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7295: l_return_status := G_RET_STS_ERROR;
7296: END IF;
7297:
7297:
7298: -- Check if Max Value and Min Value is passed then it is as per Format Type
7299: IF vsinf_minimum_value_tbl(i) IS NOT NULL THEN
7300: IF NOT is_value_valid(vsinf_format_type_tbl(i),vsinf_minimum_value_tbl(i)) THEN
7301: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7302: p_msg_name => 'OKC_INVALID_MINIMUM_VALUE');
7303: l_return_status := G_RET_STS_ERROR;
7304:
7305: END IF;
7306: END IF;
7307:
7308: IF vsinf_maximum_value_tbl(i) IS NOT NULL THEN
7309: IF NOT is_value_valid(vsinf_format_type_tbl(i),vsinf_maximum_value_tbl(i)) THEN
7310: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7311: p_msg_name => 'OKC_INVALID_MAXIMUM_VALUE');
7312: l_return_status := G_RET_STS_ERROR;
7313: END IF;
7314: END IF;
7318: THEN
7319: IF vsinf_format_type_tbl(i) = 'N' THEN
7320: IF to_number(vsinf_minimum_value_tbl(i)) >=
7321: to_number(vsinf_maximum_value_tbl(i)) THEN
7322: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7323: p_msg_name => 'OKC_INVALID_RANGE');
7324: l_return_status := G_RET_STS_ERROR;
7325: END IF;
7326: ELSIF vsinf_format_type_tbl(i) = 'C' THEN
7324: l_return_status := G_RET_STS_ERROR;
7325: END IF;
7326: ELSIF vsinf_format_type_tbl(i) = 'C' THEN
7327: IF vsinf_minimum_value_tbl(i) >= vsinf_maximum_value_tbl(i) THEN
7328: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7329: p_msg_name => 'OKC_INVALID_RANGE');
7330: l_return_status := G_RET_STS_ERROR;
7331: END IF;
7332: ELSIF vsinf_format_type_tbl(i) in ('X','Y') THEN
7331: END IF;
7332: ELSIF vsinf_format_type_tbl(i) in ('X','Y') THEN
7333: IF to_date(vsinf_minimum_value_tbl(i),'YYYY/MM/DD HH24:MI:SS') >=
7334: to_date(vsinf_maximum_value_tbl(i),'YYYY/MM/DD HH24:MI:SS') THEN
7335: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7336: p_msg_name => 'OKC_INVALID_RANGE');
7337: l_return_status := G_RET_STS_ERROR;
7338: END IF;
7339:
7341: END IF;
7342:
7343: -- Check if uppercase_only_flag is set properly
7344: IF vsinf_uppercase_only_flag_tbl(i) not in ('Y','N') THEN
7345: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7346: p_msg_name => 'OKC_INVALID_UPPERCASE_FLAG');
7347: l_return_status := G_RET_STS_ERROR;
7348: END IF;
7349:
7348: END IF;
7349:
7350: -- Check if number_only_flag is set properly
7351: IF vsinf_number_only_flag_tbl(i) not in ('Y','N') THEN
7352: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7353: p_msg_name => 'OKC_INVALID_NUMBERONLY_FLAG');
7354: l_return_status := G_RET_STS_ERROR;
7355: END IF;
7356:
7356:
7357: -- Check if format_type and number_only_flag is set properly
7358: IF vsinf_format_type_tbl(i) = 'N' AND
7359: vsinf_number_only_flag_tbl(i) = 'N' THEN
7360: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7361: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7362: l_return_status := G_RET_STS_ERROR;
7363: END IF;
7364:
7364:
7365: -- Check if format_type and uppercase_only_flag is set properly
7366: IF vsinf_format_type_tbl(i) = 'N' AND
7367: vsinf_uppercase_only_flag_tbl(i) = 'Y' THEN
7368: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7369: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7370: l_return_status := G_RET_STS_ERROR;
7371: END IF;
7372:
7373: -- Check if format_type and number_only_flag is set properly
7374: IF vsinf_format_type_tbl(i) = 'C' AND
7375: (vsinf_uppercase_only_flag_tbl(i) = 'Y' AND
7376: vsinf_number_only_flag_tbl(i) = 'Y') THEN
7377: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7378: p_msg_name => 'OKC_INVALID_FORMATTYPE');
7379: l_return_status := G_RET_STS_ERROR;
7380: END IF;
7381:
7381:
7382: -- Check if format_type and maximum_size is set properly
7383: IF vsinf_format_type_tbl(i) = 'C' AND
7384: vsinf_maximum_size_tbl(i) > 999 THEN
7385: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7386: p_msg_name => 'OKC_INVALID_MAXIMUMSIZE');
7387: l_return_status := G_RET_STS_ERROR;
7388: END IF;
7389:
7389:
7390: -- Check if format_type and maximum_size is set properly
7391: IF vsinf_format_type_tbl(i) = 'N' AND
7392: vsinf_maximum_size_tbl(i) > 38 THEN
7393: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7394: p_msg_name => 'OKC_INVALID_MAXIMUMSIZE');
7395: l_return_status := G_RET_STS_ERROR;
7396: END IF;
7397:
7401: END IF;
7402: /*
7403: -- Check if alphanumeric_allowed_flag is set properly
7404: IF nvl(vsinf_alphanumeric_allowed_flag_tbl(i), '*') not in ('Y','N') THEN
7405: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7406: p_msg_name => 'OKC_INVALID_ALPHANUMERIC_FLAG');
7407: l_return_status := G_RET_STS_ERROR;
7408: END IF;
7409: */
7408: END IF;
7409: */
7410: -- Check if Validation Type is 'Independent' or 'None'
7411: IF nvl(vsinf_validation_type_tbl(i), '*') not in ('I','N') THEN
7412: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7413: p_msg_name => 'OKC_INVALID_VALIDATION_TYPE');
7414: l_return_status := G_RET_STS_ERROR;
7415: END IF;
7416:
7460:
7461: EXCEPTION
7462: WHEN FND_API.G_EXC_ERROR THEN
7463: IF (l_debug = 'Y') THEN
7464: okc_debug.log('300: In Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
7465: END IF;
7466: --l_return_status := G_RET_STS_ERROR ;
7467: build_error_array(
7468: p_msg_data => x_msg_data,
7480: -- Continue to next row
7481:
7482: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7483: IF (l_debug = 'Y') THEN
7484: okc_debug.log('400: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7485: END IF;
7486:
7487: IF l_valset_interface_csr%ISOPEN THEN
7488: CLOSE l_valset_interface_csr;
7518:
7519: l_return_status := G_RET_STS_UNEXP_ERROR ;
7520: x_return_status := G_RET_STS_UNEXP_ERROR ;
7521:
7522: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7523: p_msg_name => G_UNEXPECTED_ERROR,
7524: p_token1 => G_SQLCODE_TOKEN,
7525: p_token1_value => sqlcode,
7526: p_token2 => G_SQLERRM_TOKEN,
7566: -------------------------
7567: EXCEPTION
7568: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7569: IF (l_debug = 'Y') THEN
7570: okc_debug.log('400: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7571: END IF;
7572:
7573: IF l_valset_interface_csr%ISOPEN THEN
7574: CLOSE l_valset_interface_csr;
7676: -- Exception for bulk DML block
7677: EXCEPTION
7678: WHEN OTHERS THEN
7679: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
7680: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7681: p_msg_name => G_UNEXPECTED_ERROR,
7682: p_token1 => G_SQLCODE_TOKEN,
7683: p_token1_value => sqlcode,
7684: p_token2 => G_SQLERRM_TOKEN,
7682: p_token1 => G_SQLCODE_TOKEN,
7683: p_token1_value => sqlcode,
7684: p_token2 => G_SQLERRM_TOKEN,
7685: p_token2_value => sqlerrm);
7686: Okc_API.Set_Message(p_app_name => G_APP_NAME,
7687: p_msg_name => 'OKC_ART_FETCH_FAILED',
7688: p_token1 => 'CONTEXT',
7689: p_token1_value => l_context);
7690:
7756: IF (l_debug = 'Y') THEN
7757: okc_debug.log('500: Leaving Fnd_flex_value_sets_Import because of EXCEPTION: '||sqlerrm, 2);
7758: END IF;
7759:
7760: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
7761: p_msg_name => G_UNEXPECTED_ERROR,
7762: p_token1 => G_SQLCODE_TOKEN,
7763: p_token1_value => sqlcode,
7764: p_token2 => G_SQLERRM_TOKEN,
7762: p_token1 => G_SQLCODE_TOKEN,
7763: p_token1_value => sqlcode,
7764: p_token2 => G_SQLERRM_TOKEN,
7765: p_token2_value => sqlerrm);
7766: Okc_API.Set_Message(p_app_name => G_APP_NAME,
7767: p_msg_name => 'OKC_VALSET_INT_UPDATE_FAILED');
7768:
7769: build_error_array(
7770: p_msg_data => null,
7894: EXCEPTION
7895:
7896: WHEN FND_API.G_EXC_ERROR THEN
7897: IF (l_debug = 'Y') THEN
7898: okc_debug.log('3000: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
7899: END IF;
7900: --Insert Errors into Error table if there is any
7901: insert_error_array(
7902: x_return_status => x_return_status,
7906: x_return_status := G_RET_STS_ERROR ;
7907:
7908: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7909: IF (l_debug = 'Y') THEN
7910: okc_debug.log('4000: Leaving Fnd_flex_value_sets_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
7911: END IF;
7912: --Insert Errors into Error table if there is any
7913:
7914: insert_error_array(
8116: l_return_status VARCHAR2(1);
8117: l_error_index NUMBER := 1;
8118: l_batch_process_id NUMBER := 1;
8119: l_context VARCHAR2(50) := NULL;
8120: l_init_msg_list VARCHAR2(200) := okc_api.g_true;
8121: l_tot_rows_processed NUMBER := 0;
8122: l_tot_rows_failed NUMBER := 0;
8123: l_tot_rows_warned NUMBER := 0;
8124: l_part_rows_processed NUMBER := 0;
8322: x := i-1;
8323: IF RTRIM(vinf_flex_value_set_name_tbl(i)) = RTRIM(vinf_flex_value_set_name_tbl(x)) AND
8324: RTRIM(vinf_flex_value_tbl(i)) = RTRIM(vinf_flex_value_tbl(x))
8325: THEN
8326: Okc_Api.Set_Message(G_APP_NAME,
8327: 'OKC_VALSET_VAL_DUP_TITLE',
8328: 'VALUE',
8329: vinf_flex_value_tbl(i),
8330: 'VALSET',
8344: IF vinf_action_tbl(i) = 'N' THEN
8345: -- Check if value set already exists in the System
8346: IF NOT Fnd_Flex_Val_Api.Valueset_Exists(vinf_flex_value_set_name_tbl(i)) THEN
8347: IF p_validate_only = 'N' THEN
8348: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8349: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8350: p_token1 => 'VALUE',
8351: p_token1_value => vinf_flex_value_tbl(i),
8352: p_token2 => 'VALSET',
8355: l_return_status := G_RET_STS_ERROR;
8356: RAISE FND_API.G_EXC_ERROR;
8357: ELSE
8358: IF vinf_validation_type_tbl(i) IS NULL AND vinf_format_type_tbl(i) IS NULL THEN
8359: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8360: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8361: p_token1 => 'VALUE',
8362: p_token1_value => vinf_flex_value_tbl(i),
8363: p_token2 => 'VALSET',
8392: p_max_value => vinf_maximum_value_tbl(i));
8393:
8394: ELSIF vinf_action_tbl(i) = 'D' THEN
8395: IF vinf_end_date_active_tbl(i) IS NULL THEN
8396: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8397: p_msg_name => 'OKC_NULL_END_DATE');
8398: l_return_status := G_RET_STS_ERROR;
8399: RAISE FND_API.G_EXC_ERROR;
8400: END IF;
8406: l_flex_value,
8407: l_start_date,
8408: l_end_date;
8409: IF l_val_exist_csr%NOTFOUND THEN
8410: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8411: p_msg_name => 'OKC_INVALID_VS_VALUE',
8412: p_token1=> 'VALUE',
8413: p_token1_value => vinf_flex_value_tbl(i),
8414: p_token2=> 'VALSET',
8420:
8421: IF l_start_date IS NOT NULL
8422: THEN
8423: IF l_start_date > vinf_end_date_active_tbl(i) THEN
8424: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8425: p_msg_name => 'OKC_INVALID_END_DATE');
8426: l_return_status := G_RET_STS_ERROR;
8427: RAISE FND_API.G_EXC_ERROR;
8428: END IF;
8431:
8432: CLOSE l_val_exist_csr;
8433: ELSE
8434:
8435: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8436: p_msg_name => 'OKC_VAL_INV_IMP_ACTION');
8437: l_return_status := G_RET_STS_ERROR;
8438: RAISE FND_API.G_EXC_ERROR ;
8439: END IF;
8447: /*
8448: -- Check if value set already exists in the System
8449: IF NOT Fnd_Flex_Val_Api.Valueset_Exists(vinf_flex_value_set_name_tbl(i)) THEN
8450: IF p_validate_only = 'N' THEN
8451: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8452: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8453: p_token1 => 'VALUE',
8454: p_token1_value => vinf_flex_value_tbl(i),
8455: p_token2 => 'VALSET',
8457: );
8458: l_return_status := G_RET_STS_ERROR;
8459: ELSE
8460: IF vinf_validation_type_tbl(i) IS NULL AND vinf_format_type_tbl(i) IS NULL THEN
8461: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8462: p_msg_name => 'OKC_VALSET_NOT_EXISTS',
8463: p_token1 => 'VALUE',
8464: p_token1_value => vinf_flex_value_tbl(i),
8465: p_token2 => 'VALSET',
8473:
8474:
8475: -- Check if Validation Type for value set is 'I' otherwise values cannot be created
8476: IF (vinf_validation_type_tbl(i) <> 'I') THEN
8477: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8478: p_msg_name => 'OKC_VAL_VALSET_NOT_VALID',
8479: p_token1 => 'VALUE',
8480: p_token1_value => vinf_flex_value_tbl(i),
8481: p_token2 => 'VALSET',
8500: p_min_value => vinf_minimum_value_tbl(i),
8501: p_max_value => vinf_maximum_value_tbl(i),
8502: x_storage_value => l_storage_value,
8503: x_display_value => l_display_value)) THEN
8504: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8505: p_msg_name => 'OKC_VAL_NOT_VALID');
8506: l_return_status := G_RET_STS_ERROR;
8507: END IF;
8508:
8506: l_return_status := G_RET_STS_ERROR;
8507: END IF;
8508:
8509: IF nvl(vinf_enabled_flag_tbl(i),'*') not in ('N','Y') THEN
8510: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8511: p_msg_name => 'OKC_INVALID_ENABLED_FLAG');
8512: l_return_status := G_RET_STS_ERROR;
8513:
8514: END IF;
8516: IF vinf_start_date_active_tbl(i) IS NOT NULL
8517: AND vinf_end_date_active_tbl(i) IS NOT NULL
8518: THEN
8519: IF vinf_start_date_active_tbl(i) > vinf_end_date_active_tbl(i) THEN
8520: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8521: p_msg_name => 'OKC_INVALID_END_DATE');
8522: l_return_status := G_RET_STS_ERROR;
8523: END IF;
8524: END IF;
8570:
8571: EXCEPTION
8572: WHEN FND_API.G_EXC_ERROR THEN
8573: IF (l_debug = 'Y') THEN
8574: okc_debug.log('300: In Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
8575: END IF;
8576: IF l_val_exist_csr%ISOPEN THEN
8577: CLOSE l_val_exist_csr;
8578: END IF;
8593: -- Continue to next row
8594:
8595: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8596: IF (l_debug = 'Y') THEN
8597: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8598: END IF;
8599:
8600: IF l_val_exist_csr%ISOPEN THEN
8601: CLOSE l_val_exist_csr;
8637:
8638: l_return_status := G_RET_STS_UNEXP_ERROR ;
8639: x_return_status := G_RET_STS_UNEXP_ERROR ;
8640:
8641: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8642: p_msg_name => G_UNEXPECTED_ERROR,
8643: p_token1 => G_SQLCODE_TOKEN,
8644: p_token1_value => sqlcode,
8645: p_token2 => G_SQLERRM_TOKEN,
8684: -------------------------
8685: EXCEPTION
8686: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8687: IF (l_debug = 'Y') THEN
8688: okc_debug.log('400: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
8689: END IF;
8690: IF l_val_exist_csr%ISOPEN THEN
8691: CLOSE l_val_exist_csr;
8692: END IF;
8811: -- Exception for bulk DML block
8812: EXCEPTION
8813: WHEN OTHERS THEN
8814: l_bulk_failed := 'Y'; -- indicating that bulk operation has failed
8815: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8816: p_msg_name => G_UNEXPECTED_ERROR,
8817: p_token1 => G_SQLCODE_TOKEN,
8818: p_token1_value => sqlcode,
8819: p_token2 => G_SQLERRM_TOKEN,
8817: p_token1 => G_SQLCODE_TOKEN,
8818: p_token1_value => sqlcode,
8819: p_token2 => G_SQLERRM_TOKEN,
8820: p_token2_value => sqlerrm);
8821: Okc_API.Set_Message(p_app_name => G_APP_NAME,
8822: p_msg_name => 'OKC_ART_FETCH_FAILED',
8823: p_token1 => 'CONTEXT',
8824: p_token1_value => l_context);
8825:
8891: IF (l_debug = 'Y') THEN
8892: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||sqlerrm, 2);
8893: END IF;
8894:
8895: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
8896: p_msg_name => G_UNEXPECTED_ERROR,
8897: p_token1 => G_SQLCODE_TOKEN,
8898: p_token1_value => sqlcode,
8899: p_token2 => G_SQLERRM_TOKEN,
8897: p_token1 => G_SQLCODE_TOKEN,
8898: p_token1_value => sqlcode,
8899: p_token2 => G_SQLERRM_TOKEN,
8900: p_token2_value => sqlerrm);
8901: Okc_API.Set_Message(p_app_name => G_APP_NAME,
8902: p_msg_name => 'OKC_VAL_INT_UPDATE_FAILED');
8903: build_error_array(
8904: p_msg_data => null,
8905: p_context => l_context,
9040: EXCEPTION
9041:
9042: WHEN FND_API.G_EXC_ERROR THEN
9043: IF (l_debug = 'Y') THEN
9044: okc_debug.log('3000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_ERROR Exception', 2);
9045: END IF;
9046: --Insert Errors into Error table if there is any
9047: insert_error_array(
9048: x_return_status => x_return_status,
9052: x_return_status := G_RET_STS_ERROR ;
9053:
9054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9055: IF (l_debug = 'Y') THEN
9056: okc_debug.log('4000: Leaving Fnd_flex_values_Import: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
9057: END IF;
9058: --Insert Errors into Error table if there is any
9059:
9060: insert_error_array(