[Home] [Help]
19:
20: ------------------------------------------------------------------------------
21: -- GLOBAL CONSTANTS
22: ------------------------------------------------------------------------------
23: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
24: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
20: ------------------------------------------------------------------------------
21: -- GLOBAL CONSTANTS
22: ------------------------------------------------------------------------------
23: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
24: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
21: -- GLOBAL CONSTANTS
22: ------------------------------------------------------------------------------
23: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
24: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
22: ------------------------------------------------------------------------------
23: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
24: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
30: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
23: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
24: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
25: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
26: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
27: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
28:
29: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
30: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
31: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
176: p_token4 => 'TOTAL_FAILED',
177: p_token4_value => get_info_rec.total_rows_failed);
178:
179: END LOOP;
180: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
181:
182: FND_MSG_PUB.initialize;
183: commit;
184: END new_wrap_up;
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;
264: END IF;
265:
266: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
270: p_token2 => 'VAR_NAME',
271: p_token2_value => get_var_info_rec.variable_name,
272: p_token3 => 'ERR_MSG',
273: p_token3_value => get_var_info_rec.error_description);
274: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
275: FND_MSG_PUB.initialize;
276:
277: END LOOP;
278: ELSIF p_entity = 'VALUESET' 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;
287: END IF;
288:
289: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
293: p_token2 => 'VS_NAME',
294: p_token2_value => get_vs_info_rec.flex_value_set_name,
295: p_token3 => 'ERR_MSG',
296: p_token3_value => get_vs_info_rec.error_description);
297: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
298: FND_MSG_PUB.initialize;
299:
300: END LOOP;
301: ELSIF p_entity = 'RELATIONSHIP' 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;
310: END IF;
311:
312: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
322: p_token5 => 'OPER_UNIT',
323: p_token5_value => get_rel_info_rec.org_name,
324: p_token6 => 'ERR_MSG',
325: p_token6_value => get_rel_info_rec.error_description);
326: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
327: FND_MSG_PUB.initialize;
328:
329: END LOOP;
330: ELSIF p_entity = 'VALUE' 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;
339: END IF;
340:
341: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
347: p_token3 => 'VS_NAME',
348: p_token3_value => get_val_info_rec.flex_value_set_name,
349: p_token4 => 'ERR_MSG',
350: p_token4_value => get_val_info_rec.error_description);
351: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
352: FND_MSG_PUB.initialize;
353:
354: END LOOP;
355: ELSIF p_entity = 'CLAUSE' 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;
366:
367: END IF;
368:
378: p_token4_value => get_art_info_rec.org_name,
379: p_token5 => 'ERR_MSG',
380: p_token5_value => get_art_info_rec.error_description);
381:
382: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
383: FND_MSG_PUB.initialize;
384: END LOOP;
385: END IF;
386:
512: );
513: END LOOP;
514:
515: END IF;
516: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
517:
518: FND_MSG_PUB.initialize;
519: commit;
520: END pre_wrap_up;
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),
589: to_date('01-01-0001', 'DD-MM-YYYY'));
681: okc_debug.Reset_Indentation;
682: END IF;
683:
684: EXCEPTION
685: WHEN FND_API.G_EXC_ERROR THEN
686: retcode := 2;
687: errbuf := substr(sqlerrm,1,200);
688: IF FND_MSG_PUB.Count_Msg > 0 Then
689: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
686: retcode := 2;
687: errbuf := substr(sqlerrm,1,200);
688: IF FND_MSG_PUB.Count_Msg > 0 Then
689: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
690: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
691: END LOOP;
692: END IF;
693: FND_MSG_PUB.initialize;
694:
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
801: -------------------------------------------------------------------------
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 ));
933: END LOOP;
934: END IF;
935: FND_MSG_PUB.initialize;
936:
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 ));
946: END LOOP;
947: END IF;
948: FND_MSG_PUB.initialize;
949: IF (l_debug = 'Y') THEN
954: WHEN OTHERS THEN
955: x_return_status := G_RET_STS_UNEXP_ERROR;
956: IF FND_MSG_PUB.Count_Msg > 0 Then
957: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
958: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
959: END LOOP;
960: END IF;
961: FND_MSG_PUB.initialize;
962: IF (l_debug = 'Y') THEN
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 ));
996: END LOOP;
997: END IF;
998: FND_MSG_PUB.initialize;
999:
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 ));
1009: END LOOP;
1010: END IF;
1011: FND_MSG_PUB.initialize;
1012: IF (l_debug = 'Y') THEN
1017: WHEN OTHERS THEN
1018: x_return_status := G_RET_STS_UNEXP_ERROR;
1019: IF FND_MSG_PUB.Count_Msg > 0 Then
1020: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1021: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1022: END LOOP;
1023: END IF;
1024: FND_MSG_PUB.initialize;
1025: IF (l_debug = 'Y') THEN
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 ));
1059: END LOOP;
1060: END IF;
1061: FND_MSG_PUB.initialize;
1062:
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 ));
1072: END LOOP;
1073: END IF;
1074: FND_MSG_PUB.initialize;
1075: IF (l_debug = 'Y') THEN
1080: WHEN OTHERS THEN
1081: x_return_status := G_RET_STS_UNEXP_ERROR;
1082: IF FND_MSG_PUB.Count_Msg > 0 Then
1083: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1084: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1085: END LOOP;
1086: END IF;
1087: FND_MSG_PUB.initialize;
1088: IF (l_debug = 'Y') THEN
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 ));
1134: END LOOP;
1135: END IF;
1136: FND_MSG_PUB.initialize;
1137:
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 ));
1147: END LOOP;
1148: END IF;
1149: FND_MSG_PUB.initialize;
1150: IF (l_debug = 'Y') THEN
1155: WHEN OTHERS THEN
1156: x_return_status := G_RET_STS_UNEXP_ERROR;
1157: IF FND_MSG_PUB.Count_Msg > 0 Then
1158: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1159: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1160: END LOOP;
1161: END IF;
1162: FND_MSG_PUB.initialize;
1163: IF (l_debug = 'Y') THEN
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 ));
1207: END LOOP;
1208: END IF;
1209: FND_MSG_PUB.initialize;
1210:
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 ));
1220: END LOOP;
1221: END IF;
1222: FND_MSG_PUB.initialize;
1223: IF (l_debug = 'Y') THEN
1228: WHEN OTHERS THEN
1229: x_return_status := G_RET_STS_UNEXP_ERROR;
1230: IF FND_MSG_PUB.Count_Msg > 0 Then
1231: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1232: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1233: END LOOP;
1234: END IF;
1235: FND_MSG_PUB.initialize;
1236: IF (l_debug = 'Y') THEN
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));
1253:
1254: FND_MSG_PUB.initialize;
1255: commit;
1256:
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:
1309: FND_MSG_PUB.initialize;
1310: post_wrap_up(p_batch_number,'CLAUSE',l_batch_process_id);
1311: post_wrap_up(p_batch_number,'RELATIONSHIP',l_batch_process_id);
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:
1322: FND_MSG_PUB.initialize;
1323: END conc_import_articles;
1324:
1490: p_token2 => 'ARTICLE_TITLE',
1491: p_token2_value => err_article_title_tbl(i_err),
1492: p_token3 => 'INTERFACE_ID',
1493: p_token3_value => err_interface_id_tbl(i_err));
1494: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1495: FND_MSG_PUB.initialize;
1496: END IF;
1497: FND_FILE.PUT_LINE(FND_FILE.LOG, err_error_description_tbl(i_err));
1498: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
1554: err_error_number_tbl(l_error_index) := l_error_index ;
1555: err_object_version_number_tbl(l_error_index) := 1.0 ;
1556: err_error_type_tbl(l_error_index) := p_error_type ;
1557: err_entity_tbl(l_error_index) := p_entity ;
1558: --err_error_description_tbl(l_error_index) := p_context ||':'|| FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE );
1559: err_error_description_tbl(l_error_index) := FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE );
1560: l_error_index := l_error_index + 1;
1561: END LOOP;
1562: ELSE IF p_msg_data is not NULL Then
1555: err_object_version_number_tbl(l_error_index) := 1.0 ;
1556: err_error_type_tbl(l_error_index) := p_error_type ;
1557: err_entity_tbl(l_error_index) := p_entity ;
1558: --err_error_description_tbl(l_error_index) := p_context ||':'|| FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE );
1559: err_error_description_tbl(l_error_index) := FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE );
1560: l_error_index := l_error_index + 1;
1561: END LOOP;
1562: ELSE IF p_msg_data is not NULL Then
1563: err_batch_process_id_tbl(l_error_index) := p_batch_process_id;
1610: p_token1 => 'ENTITY',
1611: p_token1_value => err_entity_tbl(i_err),
1612: p_token2 => 'ARTICLE_TITLE',
1613: p_token2_value => err_article_title_tbl(i_err));
1614: FND_FILE.PUT_LINE(FND_FILE.LOG, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1615: END IF;
1616:
1617: FND_FILE.PUT_LINE(FND_FILE.LOG, err_error_description_tbl(i_err));
1618: FND_FILE.PUT_LINE(FND_FILE.LOG, '');
1621: END IF;
1622:
1623: IF FND_MSG_PUB.Count_Msg > 1 Then
1624: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1625: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
1626: END LOOP;
1627: ELSE
1628: FND_FILE.PUT_LINE(FND_FILE.LOG,p_msg_data);
1629: END IF;
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;
1734: p_token3_value => l_tot_rows_processed-l_tot_rows_failed,
1735: p_token4 => 'TOTAL_FAILED',
1736: p_token4_value => l_tot_rows_failed);
1737:
1738: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, FND_MSG_PUB.Get(1,p_encoded=>FND_API.G_FALSE));
1739:
1740: FND_MSG_PUB.initialize;
1741: commit;
1742: END wrap_up;
2094:
2095: -- Standard Start of API savepoint
2096: FND_MSG_PUB.initialize;
2097: -- Initialize API return status to success
2098: x_return_status := FND_API.G_RET_STS_SUCCESS;
2099: l_return_status := G_RET_STS_SUCCESS;
2100: -- Cache user_id, login_id and org_id
2101: l_user_id := Fnd_Global.user_id;
2102: l_login_id := Fnd_Global.login_id;
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:
2119: IF G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID THEN
2168: p_error_type => l_return_status,
2169: p_entity => 'CLAUSE'
2170: );
2171:
2172: RAISE FND_API.G_EXC_ERROR ;
2173: END IF;
2174:
2175: ------------------------------------------------------------------------
2176: -- Global TempClob Array Initialization
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;
2331: -- Logic to decide what to do in case of Action='S'
2332: -- If there is no existing article in system then it is 'N' otherwise 'V'
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;
2360: --Clause Editing end
2361: END IF;
2362: END IF;
2374: p_token2_value => 'APPROVED',
2375: p_token3 => 'STATUS3',
2376: p_token3_value => 'PENDING_APPROVAL');
2377: l_return_status := G_RET_STS_ERROR;
2378: RAISE FND_API.G_EXC_ERROR ;
2379: END IF;
2380:
2381: --TRIM trailing space because article title in library table has been trimmed
2382: --for successful comparison, this should be trimmed
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;
2399: RAISE FND_API.G_EXC_ERROR ;
2400: END IF;
2401:
2402: OPEN get_max_article_version_csr (inf_article_id_tbl(i));
2403: FETCH get_max_article_version_csr INTO l_article_version_id,
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;
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,
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;
2424: --Clause Editing end
2425: -- this status may be null for update row
2426: -- inf_article_status_tbl(i) := l_article_status;
2441: p_token3_value => 'APPROVED',
2442: p_token4 => 'STATUS4',
2443: p_token4_value => 'PENDING_APPROVAL');
2444: l_return_status := G_RET_STS_ERROR;
2445: RAISE FND_API.G_EXC_ERROR ;
2446: END IF;
2447:
2448: --if interface article status is DRAFT and REJECTED then keep
2449: --the one in the library table. We don't want user to be able to change them
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;
2476: RAISE FND_API.G_EXC_ERROR ;
2477: END IF;
2478:
2479: IF nvl(inf_article_status_tbl(i), '*') not in
2480: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2486: p_token2_value => 'APPROVED',
2487: p_token3 => 'STATUS3',
2488: p_token3_value => 'PENDING_APPROVAL');
2489: l_return_status := G_RET_STS_ERROR;
2490: RAISE FND_API.G_EXC_ERROR;
2491: END IF;
2492:
2493:
2494: -- User entered attribute in article level (intent, language)may not be
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;
2516: --Clause Editing
2517: -- Set article version number
2518: inf_article_version_number_tbl(i) := l_article_version_number +1;
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,
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;
2542:
2543: OPEN get_max_article_version_csr (inf_article_id_tbl(i));
2544: FETCH get_max_article_version_csr INTO l_article_version_id,
2555: p_token1 => 'ARTICLE_TITLE',
2556: p_token1_value => inf_article_title_tbl(i));
2557:
2558: l_return_status := G_RET_STS_ERROR;
2559: RAISE FND_API.G_EXC_ERROR;
2560: ELSE
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;
2570: END IF;
2571: END IF;
2572:
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;
2585:
2586: -----------------------------------------------------------
2587: -- Common validation or attribute settting
2644: -- Validate attrs of the interface row
2645: IF inf_action_tbl(i) = 'N' THEN
2646: api_return_status :=
2647: OKC_ARTICLES_ALL_PVT.VALIDATE_RECORD(
2648: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2649: p_import_action => inf_action_tbl(i),
2650: p_article_id => inf_article_id_tbl(i),
2651: p_article_title => inf_article_title_tbl(i),
2652: p_org_id => G_CURRENT_ORG_ID,
2679: -- If error is Unexpected then raise exception
2680: -- Otherwise, keep going
2681: --
2682: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2684: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2685: l_return_status := G_RET_STS_ERROR;
2686: END IF;
2687: api_return_status :=
2685: l_return_status := G_RET_STS_ERROR;
2686: END IF;
2687: api_return_status :=
2688: OKC_ARTICLE_VERSIONS_PVT.validate_record(
2689: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2690: p_import_action => inf_action_tbl(i),
2691: x_earlier_adoption_type => l_earlier_adoption_type,
2692: x_earlier_version_id => l_earlier_version_id,
2693: x_earlier_version_number => l_earlier_version_number,
2746: --p_variable_code => inf_variable_code_tbl(i)
2747: );
2748:
2749: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2751: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2752: l_return_status := G_RET_STS_ERROR;
2753: END IF;
2754:
2774: -- nvl for nullable column to avoid getting database value
2775: -- in the validate API
2776: api_return_status :=
2777: OKC_ARTICLE_VERSIONS_PVT.validate_record(
2778: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2779: p_import_action => inf_action_tbl(i),
2780: x_earlier_adoption_type => l_earlier_adoption_type,
2781: x_earlier_version_id => l_earlier_version_id,
2782: x_earlier_version_number => l_earlier_version_number,
2842: -- Otherwise, keep going
2843: --
2844: --
2845: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2847: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2848: l_return_status := G_RET_STS_ERROR;
2849: END IF;
2850:
2911: END IF;
2912: END IF;
2913:
2914: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2916: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2917: RAISE FND_API.G_EXC_ERROR ;
2918: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2919: RAISE FND_API.G_EXC_ERROR ;
2913:
2914: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2916: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2917: RAISE FND_API.G_EXC_ERROR ;
2918: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2919: RAISE FND_API.G_EXC_ERROR ;
2920: END IF;
2921:
2915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2916: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2917: RAISE FND_API.G_EXC_ERROR ;
2918: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2919: RAISE FND_API.G_EXC_ERROR ;
2920: END IF;
2921:
2922: ------------------------------------------------------------------------
2923: -- Now that we have validated and data is clean we can fetch sequences and ids
2943: IF api_return_status = G_RET_STS_SUCCESS Then
2944: inf_article_number_tbl(i) := l_article_number;
2945: ELSIF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2946: l_return_status := api_return_status;
2947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2948: ELSE
2949: l_return_status := api_return_status; -- whatever error, it will overwrite it
2950: END IF;
2951: END IF;
2953: -- Get article id.
2954: api_return_status := Get_Seq_Id (p_object_type => 'ART',
2955: x_object_id => inf_article_id_tbl(i));
2956: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2958: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2959: l_return_status := api_return_status;
2960: RAISE FND_API.G_EXC_ERROR ;
2961: END IF;
2956: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2957: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2958: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2959: l_return_status := api_return_status;
2960: RAISE FND_API.G_EXC_ERROR ;
2961: END IF;
2962:
2963: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2964: x_object_id => inf_article_version_id_tbl(i));
2962:
2963: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2964: x_object_id => inf_article_version_id_tbl(i));
2965: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2967: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2968: l_return_status := api_return_status;
2969: RAISE FND_API.G_EXC_ERROR ;
2970: END IF;
2965: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2967: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2968: l_return_status := api_return_status;
2969: RAISE FND_API.G_EXC_ERROR ;
2970: END IF;
2971:
2972: -- Create variable association for the new article - 1st version.
2973: IF l_variable_code_tbl.COUNT > 0 THEN
2993:
2994: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2995: x_object_id => inf_article_version_id_tbl(i));
2996: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2998: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2999: l_return_status := api_return_status;
3000: RAISE FND_API.G_EXC_ERROR ;
3001: END IF;
2996: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2998: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2999: l_return_status := api_return_status;
3000: RAISE FND_API.G_EXC_ERROR ;
3001: END IF;
3002:
3003: -- Create variable association for the new version.
3004: IF l_variable_code_tbl.COUNT > 0 THEN
3027: x_variables_to_insert_tbl => l_variables_to_insert_tbl,
3028: x_variables_to_delete_tbl => l_variables_to_delete_tbl,
3029: x_return_status => api_return_status);
3030: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3032: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
3033: RAISE FND_API.G_EXC_ERROR ;
3034: END IF;
3035:
3029: x_return_status => api_return_status);
3030: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
3031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3032: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
3033: RAISE FND_API.G_EXC_ERROR ;
3034: END IF;
3035:
3036: -- New Variables
3037: IF l_variables_to_insert_tbl.COUNT > 0 THEN
3086: l_part_rows_failed := l_part_rows_failed+1;
3087: inf_process_status_tbl(i) := G_RET_STS_ERROR;
3088: END IF;
3089: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3088: END IF;
3089: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3095: -------------------------
3096: -------------------------
3100: -------------------------
3101: -------------------------
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 ;
3120: --l_tot_rows_failed := l_tot_rows_failed+1;
3121: l_part_rows_failed := l_part_rows_failed+1;
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:
3248: -- prepare rows for DML if validate_only is 'N'
3249: -------------------------------------------------------------------------
3250: -- In order to propagate Unexpected error raise it if it is 'U'
3251: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3253: END IF;
3254:
3255: -------------------------
3256: -------------------------
3258: -- Handles unexpected errors as last step
3259: -------------------------
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: --
3415: WHEN OTHERS THEN
3416: IF (l_debug = 'Y') THEN
3417: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3418: END IF;
3419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3420: END;
3421:
3422: --
3423: -- End of Insert into OKC_ARTICLES_ALL
3554: WHEN OTHERS THEN
3555: IF (l_debug = 'Y') THEN
3556: okc_debug.log('500: Leaving Article Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3557: END IF;
3558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3559: END;
3560:
3561: --
3562: -- End of Insert into OKC_ARTICLE_VERSIONS
3609: WHEN OTHERS THEN
3610: IF (l_debug = 'Y') THEN
3611: okc_debug.log('500: Leaving Article Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3612: END IF;
3613: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3614: END;
3615:
3616: artv_article_version_id_tbl.DELETE;
3617: artv_variable_code_tbl.DELETE;
3645: WHEN OTHERS THEN
3646: IF (l_debug = 'Y') THEN
3647: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3648: END IF;
3649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3650: END;
3651: --
3652: -- End of Insert into OKC_ARTICLE_VERSIONS
3653: --
3675: WHEN OTHERS THEN
3676: IF (l_debug = 'Y') THEN
3677: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3678: END IF;
3679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3680: END;
3681: ---
3682: ---
3683: ---
3703: WHEN OTHERS THEN
3704: IF (l_debug = 'Y') THEN
3705: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3706: END IF;
3707: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3708: END;
3709:
3710: ---
3711: ---
3820: WHEN OTHERS THEN
3821: IF (l_debug = 'Y') THEN
3822: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3823: END IF;
3824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3825: END;
3826: --
3827: -- End of Update OKC_ARTICLE_VERSIONS
3828: --
3870: p_entity => 'CLAUSE'
3871: );
3872: inf_process_status_tbl(i):= G_RET_STS_ERROR;
3873: -- Unexpected Error occurred rollback
3874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3875: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
3876: -- Set return status as 'E' and move on to next record
3877: -- l_return_status := G_RET_STS_ERROR;
3878: build_error_array(
3884: p_error_type => G_RET_STS_ERROR,
3885: p_entity => 'CLAUSE'
3886: );
3887: inf_process_status_tbl(i):= G_RET_STS_ERROR;
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890: END IF;
3891: END LOOP;
3892:
3895: WHEN OTHERS THEN
3896: IF (l_debug = 'Y') THEN
3897: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3898: END IF;
3899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3900: END;
3901: END IF; ---- If CURRENT_ORG_ID = GLOBAL_ORG_ID
3902:
3903: --
4011: --##count:rollback the count
4012: l_part_rows_failed := l_part_rows_processed;
4013: l_part_rows_warned := 0;
4014:
4015: --RAISE FND_API.G_EXC_ERROR ;
4016: END;
4017: --
4018: -- End of Update OKC_ART_INTERFACE_ALL
4019: --
4170: );
4171:
4172: l_return_status := G_RET_STS_UNEXP_ERROR ;
4173: x_return_status := G_RET_STS_UNEXP_ERROR ;
4174: --RAISE FND_API.G_EXC_ERROR ;
4175: END;
4176: /*********
4177: --Update Batch Process Table as a last step
4178: UPDATE OKC_ART_INT_BATPROCS_ALL
4215: --x_return_status := l_return_status; this may cause to erase error x_return_status
4216:
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
4228: );
4229: commit;
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:
4642:
4643: -- Standard Start of API savepoint
4644: FND_MSG_PUB.initialize;
4645: -- Initialize API return status to success
4646: x_return_status := FND_API.G_RET_STS_SUCCESS;
4647: l_return_status := G_RET_STS_SUCCESS;
4648: -- Cache user_id, login_id and org_id
4649: l_user_id := Fnd_Global.user_id;
4650: l_login_id := Fnd_Global.login_id;
4803: vinf_variable_code_tbl(i),
4804: 'LANG',
4805: vinf_language_tbl(i));
4806: l_return_status := G_RET_STS_ERROR;
4807: RAISE FND_API.G_EXC_ERROR;
4808: END IF;
4809: END IF;
4810: -- Logic to decide what to do in case of Action='S'
4811: -- If there is no existing variable in system then it is 'N' otherwise 'U'
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;
4835: RAISE FND_API.G_EXC_ERROR ;
4836: END IF;
4837:
4838: ELSE
4839:
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;
4845:
4846: -----------------------------------------------------------
4847: -- Common validation or attribute settting
5064: l_part_rows_failed := l_part_rows_failed+1;
5065: vinf_process_status_tbl(i) := G_RET_STS_ERROR;
5066: END IF;
5067: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5070: RAISE FND_API.G_EXC_ERROR;
5071: END IF;
5072:
5066: END IF;
5067: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5068: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5069: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5070: RAISE FND_API.G_EXC_ERROR;
5071: END IF;
5072:
5073: -------------------------
5074: -------------------------
5079: -------------------------
5080:
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 ;
5099: --l_tot_rows_failed := l_tot_rows_failed+1;
5100: l_part_rows_failed := l_part_rows_failed+1;
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:
5175: -- validation,
5176: -------------------------------------------------------------------------
5177: -- In order to propagate Unexpected error raise it if it is 'U'
5178: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5179: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5180: END IF;
5181:
5182: -------------------------
5183: -------------------------
5185: -- Handles unexpected errors as last step
5186: -------------------------
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:
5337: WHEN OTHERS THEN
5338: IF (l_debug = 'Y') THEN
5339: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5340: END IF;
5341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5342: END;
5343:
5344: --
5345: -- End of Insert into OKC_BUS_VARIABLES_B
5382: WHEN OTHERS THEN
5383: IF (l_debug = 'Y') THEN
5384: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5385: END IF;
5386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5387: END;
5388:
5389: --
5390: -- End of Insert into OKC_BUS_VARIABLES_TL
5409: WHEN OTHERS THEN
5410: IF (l_debug = 'Y') THEN
5411: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5412: END IF;
5413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5414: END;
5415:
5416: --
5417: -- End of Update OKC_BUS_VARIABLES_B
5439: WHEN OTHERS THEN
5440: IF (l_debug = 'Y') THEN
5441: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5442: END IF;
5443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5444: END;
5445:
5446: --
5447: -- End of Update OKC_BUS_VARIABLES_TL
5485: WHEN OTHERS THEN
5486: IF (l_debug = 'Y') THEN
5487: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5488: END IF;
5489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5490: END;
5491:
5492: --
5493: -- End of Insert into OKC_BUS_VARIABLES_TL for Action U
5515: WHEN OTHERS THEN
5516: IF (l_debug = 'Y') THEN
5517: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5518: END IF;
5519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5520: END;
5521:
5522: --
5523: -- End of Update OKC_BUS_VARIABLES_TL for Disable
5631: --##count:rollback the count
5632: l_part_rows_failed := l_part_rows_processed;
5633: l_part_rows_warned := 0;
5634:
5635: --RAISE FND_API.G_EXC_ERROR ;
5636: END;
5637: --
5638: -- End of Update OKC_VARIABLES_INTERFACE
5639: --
5841: --x_return_status := l_return_status; this may cause to erase error x_return_status
5842:
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
5853: x_msg_data => x_msg_data
5854: );
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
6079:
6080: -- Standard Start of API savepoint
6081: FND_MSG_PUB.initialize;
6082: -- Initialize API return status to success
6083: x_return_status := FND_API.G_RET_STS_SUCCESS;
6084: l_return_status := G_RET_STS_SUCCESS;
6085: -- Cache user_id, login_id and org_id
6086: l_user_id := Fnd_Global.user_id;
6087: l_login_id := Fnd_Global.login_id;
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
6103: l_program_id := NULL;
6218: rinf_source_article_title_tbl(i),
6219: 'CLAUSE2',
6220: rinf_target_article_title_tbl(i));
6221: l_return_status := G_RET_STS_ERROR;
6222: RAISE FND_API.G_EXC_ERROR;
6223: END IF;
6224: END IF;
6225: -- Logic to decide what to do in case of Action='S'
6226:
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;
6252: RAISE FND_API.G_EXC_ERROR ;
6253: ELSE
6254: -- Reset Local Variables
6255: l_clause := NULL;
6256: END IF;
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;
6263: RAISE FND_API.G_EXC_ERROR ;
6264: END IF;
6265: END IF;
6266:
6267: IF rinf_target_article_id_tbl(i) is NULL THEN
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;
6280: RAISE FND_API.G_EXC_ERROR ;
6281: ELSE
6282: -- Reset Local Variables
6283: l_clause := NULL;
6284: END IF;
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;
6291: RAISE FND_API.G_EXC_ERROR ;
6292: END IF;
6293: END IF;
6294:
6295:
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;
6312: RAISE FND_API.G_EXC_ERROR ;
6313: END IF;
6314: */
6315: ELSIF rinf_action_tbl(i) = 'D' THEN
6316:
6331: );
6332: -- Reset local variable
6333: l_dummy := NULL;
6334: l_return_status := G_RET_STS_ERROR;
6335: RAISE FND_API.G_EXC_ERROR ;
6336:
6337: END IF;
6338: ELSE
6339:
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;
6345:
6346: -----------------------------------------------------------
6347: -- Common validation or attribute settting
6465: l_part_rows_failed := l_part_rows_failed+1;
6466: rinf_process_status_tbl(i) := G_RET_STS_ERROR;
6467: END IF;
6468: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6470: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
6471: RAISE FND_API.G_EXC_ERROR;
6472: END IF;
6473:
6467: END IF;
6468: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6470: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
6471: RAISE FND_API.G_EXC_ERROR;
6472: END IF;
6473:
6474: -------------------------
6475: -------------------------
6480: -------------------------
6481:
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 ;
6500: --l_tot_rows_failed := l_tot_rows_failed+1;
6501: l_part_rows_failed := l_part_rows_failed+1;
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:
6576: -- validation
6577: -------------------------------------------------------------------------
6578: -- In order to propagate Unexpected error raise it if it is 'U'
6579: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6581: END IF;
6582:
6583: -------------------------
6584: -------------------------
6586: -- Handles unexpected errors as last step
6587: -------------------------
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:
6848: --##count:rollback the count
6849: l_part_rows_failed := l_part_rows_processed;
6850: l_part_rows_warned := 0;
6851:
6852: --RAISE FND_API.G_EXC_ERROR ;
6853: END;
6854: --
6855: -- End of Update OKC_RELATIONSHIPS_INTERFACE
6856: --
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:
6965: FND_MSG_PUB.initialize;
6966: */
6967: commit; -- Final commit for status update
6972: --x_return_status := l_return_status; this may cause to erase error x_return_status
6973:
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
6984: x_msg_data => x_msg_data
6985: );
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
7167:
7168: -- Standard Start of API savepoint
7169: FND_MSG_PUB.initialize;
7170: -- Initialize API return status to success
7171: x_return_status := FND_API.G_RET_STS_SUCCESS;
7172: l_return_status := G_RET_STS_SUCCESS;
7173: -- Cache user_id, login_id and org_id
7174: l_user_id := Fnd_Global.user_id;
7175: l_login_id := Fnd_Global.login_id;
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;
7298: -- Logic to decide what to do in case of Action='S'
7299:
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;
7334:
7335: -----------------------------------------------------------
7336: -- Common validation or attribute settting
7345: p_token1 => 'VALUESET',
7346: p_token1_value => vsinf_flex_value_set_name_tbl(i)
7347: );
7348: l_return_status := G_RET_STS_ERROR;
7349: --RAISE FND_API.G_EXC_ERROR ;
7350: END IF;
7351:
7352: -- Check if format_type is set properly
7353: -- 'N' for Numeric
7511: l_part_rows_failed := l_part_rows_failed+1;
7512: vsinf_process_status_tbl(i) := G_RET_STS_ERROR;
7513: END IF;
7514: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7516: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
7517: RAISE FND_API.G_EXC_ERROR;
7518: END IF;
7519:
7513: END IF;
7514: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7515: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7516: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
7517: RAISE FND_API.G_EXC_ERROR;
7518: END IF;
7519:
7520: -------------------------
7521: -------------------------
7526: -------------------------
7527:
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 ;
7546: --l_tot_rows_failed := l_tot_rows_failed+1;
7547: l_part_rows_failed := l_part_rows_failed+1;
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:
7622: -- validation
7623: -------------------------------------------------------------------------
7624: -- In order to propagate Unexpected error raise it if it is 'U'
7625: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7626: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
7627: END IF;
7628:
7629: -------------------------
7630: -------------------------
7632: -- Handles unexpected errors as last step
7633: -------------------------
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:
7731: WHEN OTHERS THEN
7732: IF (l_debug = 'Y') THEN
7733: okc_debug.log('500: Leaving Fnd_flex_value_sets_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
7734: END IF;
7735: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
7736: END;
7737:
7738: --
7739: -- End of Insert into FND FLEX VALUE SETS
7849: --##count:rollback the count
7850: l_part_rows_failed := l_part_rows_processed;
7851: l_part_rows_warned := 0;
7852:
7853: --RAISE FND_API.G_EXC_ERROR ;
7854: END;
7855: --
7856: -- End of Update OKC_VALUESETS_INTERFACE
7857: --
7960: --x_return_status := l_return_status; this may cause to erase error x_return_status
7961:
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
7972: x_msg_data => x_msg_data
7973: );
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
8258:
8259: -- Standard Start of API savepoint
8260: FND_MSG_PUB.initialize;
8261: -- Initialize API return status to success
8262: x_return_status := FND_API.G_RET_STS_SUCCESS;
8263: l_return_status := G_RET_STS_SUCCESS;
8264: -- Cache user_id, login_id and org_id
8265: l_user_id := Fnd_Global.user_id;
8266: l_login_id := Fnd_Global.login_id;
8398: 'VALSET',
8399: vinf_flex_value_set_name_tbl(i)
8400: );
8401: l_return_status := G_RET_STS_ERROR;
8402: RAISE FND_API.G_EXC_ERROR;
8403: END IF;
8404: END IF;
8405: -- Logic to decide what to do in case of Action='S'
8406:
8420: p_token2 => 'VALSET',
8421: p_token2_value => vinf_flex_value_set_name_tbl(i)
8422: );
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',
8431: p_token2 => 'VALSET',
8432: p_token2_value => vinf_flex_value_set_name_tbl(i)
8433: );
8434: l_return_status := G_RET_STS_ERROR;
8435: RAISE FND_API.G_EXC_ERROR;
8436: END IF;
8437: END IF;
8438: END IF;
8439: END IF;
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;
8469:
8470: -- Check if value exists in the system or not
8471: OPEN l_val_exist_csr(vinf_flex_value_tbl(i),vinf_value_set_id_tbl(i));
8481: p_token1_value => vinf_flex_value_tbl(i),
8482: p_token2=> 'VALSET',
8483: p_token2_value => vinf_flex_value_set_name_tbl(i));
8484: l_return_status := G_RET_STS_ERROR;
8485: RAISE FND_API.G_EXC_ERROR;
8486:
8487: ELSE
8488:
8489: IF l_start_date IS NOT NULL
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;
8497: END IF;
8498: END IF;
8499:
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;
8508:
8509: -----------------------------------------------------------
8510: -- Common validation or attribute settting
8621: l_part_rows_failed := l_part_rows_failed+1;
8622: vinf_process_status_tbl(i) := G_RET_STS_ERROR;
8623: END IF;
8624: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8626: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
8627: RAISE FND_API.G_EXC_ERROR;
8628: END IF;
8629:
8623: END IF;
8624: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8626: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
8627: RAISE FND_API.G_EXC_ERROR;
8628: END IF;
8629:
8630: -------------------------
8631: -------------------------
8636: -------------------------
8637:
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
8659: --l_tot_rows_failed := l_tot_rows_failed+1;
8660: l_part_rows_failed := l_part_rows_failed+1;
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:
8740: -------------- End of Inner Loop thru fetched row for validation --------
8741: -------------------------------------------------------------------------
8742: -- In order to propagate Unexpected error raise it if it is 'U'
8743: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8745: END IF;
8746:
8747: -------------------------
8748: -------------------------
8750: -- Handles unexpected errors as last step
8751: -------------------------
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
8828: WHEN OTHERS THEN
8829: IF (l_debug = 'Y') THEN
8830: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8831: END IF;
8832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8833: END;
8834:
8835: --
8836: -- End of Insert into FND FLEX VALUES
8865: WHEN OTHERS THEN
8866: IF (l_debug = 'Y') THEN
8867: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8868: END IF;
8869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8870: END;
8871:
8872: --
8873: -- End of Disable FND FLEX VALUES
8983: --##count:rollback the count
8984: l_part_rows_failed := l_part_rows_processed;
8985: l_part_rows_warned := 0;
8986:
8987: --RAISE FND_API.G_EXC_ERROR ;
8988: END;
8989: --
8990: -- End of Update OKC_VS_VALUES_INTERFACE
8991: --
9106: --x_return_status := l_return_status; this may cause to erase error x_return_status
9107:
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
9118: x_msg_data => x_msg_data
9119: );
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