[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;
2080:
2081: -- Standard Start of API savepoint
2082: FND_MSG_PUB.initialize;
2083: -- Initialize API return status to success
2084: x_return_status := FND_API.G_RET_STS_SUCCESS;
2085: l_return_status := G_RET_STS_SUCCESS;
2086: -- Cache user_id, login_id and org_id
2087: l_user_id := Fnd_Global.user_id;
2088: l_login_id := Fnd_Global.login_id;
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:
2105: IF G_CURRENT_ORG_ID = G_GLOBAL_ORG_ID THEN
2154: p_error_type => l_return_status,
2155: p_entity => 'CLAUSE'
2156: );
2157:
2158: RAISE FND_API.G_EXC_ERROR ;
2159: END IF;
2160:
2161: ------------------------------------------------------------------------
2162: -- Global TempClob Array Initialization
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;
2315: -- Logic to decide what to do in case of Action='S'
2316: -- If there is no existing article in system then it is 'N' otherwise 'V'
2350: p_token2_value => 'APPROVED',
2351: p_token3 => 'STATUS3',
2352: p_token3_value => 'PENDING_APPROVAL');
2353: l_return_status := G_RET_STS_ERROR;
2354: RAISE FND_API.G_EXC_ERROR ;
2355: END IF;
2356:
2357: --TRIM trailing space because article title in library table has been trimmed
2358: --for successful comparison, this should be trimmed
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;
2375: RAISE FND_API.G_EXC_ERROR ;
2376: END IF;
2377:
2378: OPEN get_max_article_version_csr (inf_article_id_tbl(i));
2379: FETCH get_max_article_version_csr INTO l_article_version_id,
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;
2392: -- this status may be null for update row
2393: -- inf_article_status_tbl(i) := l_article_status;
2394: -- set the version number
2408: p_token3_value => 'APPROVED',
2409: p_token4 => 'STATUS4',
2410: p_token4_value => 'PENDING_APPROVAL');
2411: l_return_status := G_RET_STS_ERROR;
2412: RAISE FND_API.G_EXC_ERROR ;
2413: END IF;
2414:
2415: --if interface article status is DRAFT and REJECTED then keep
2416: --the one in the library table. We don't want user to be able to change them
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;
2443: RAISE FND_API.G_EXC_ERROR ;
2444: END IF;
2445:
2446: IF nvl(inf_article_status_tbl(i), '*') not in
2447: ('DRAFT','APPROVED','PENDING_APPROVAL') THEN
2453: p_token2_value => 'APPROVED',
2454: p_token3 => 'STATUS3',
2455: p_token3_value => 'PENDING_APPROVAL');
2456: l_return_status := G_RET_STS_ERROR;
2457: RAISE FND_API.G_EXC_ERROR;
2458: END IF;
2459:
2460:
2461: -- User entered attribute in article level (intent, language)may not be
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,
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;
2501:
2502: OPEN get_max_article_version_csr (inf_article_id_tbl(i));
2503: FETCH get_max_article_version_csr INTO l_article_version_id,
2513: p_token1 => 'ARTICLE_TITLE',
2514: p_token1_value => inf_article_title_tbl(i));
2515:
2516: l_return_status := G_RET_STS_ERROR;
2517: RAISE FND_API.G_EXC_ERROR;
2518: ELSE
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;
2528: END IF;
2529: END IF;
2530:
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;
2543:
2544: -----------------------------------------------------------
2545: -- Common validation or attribute settting
2602: -- Validate attrs of the interface row
2603: IF inf_action_tbl(i) = 'N' THEN
2604: api_return_status :=
2605: OKC_ARTICLES_ALL_PVT.VALIDATE_RECORD(
2606: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2607: p_import_action => inf_action_tbl(i),
2608: p_article_id => inf_article_id_tbl(i),
2609: p_article_title => inf_article_title_tbl(i),
2610: p_org_id => G_CURRENT_ORG_ID,
2637: -- If error is Unexpected then raise exception
2638: -- Otherwise, keep going
2639: --
2640: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2642: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2643: l_return_status := G_RET_STS_ERROR;
2644: END IF;
2645: api_return_status :=
2643: l_return_status := G_RET_STS_ERROR;
2644: END IF;
2645: api_return_status :=
2646: OKC_ARTICLE_VERSIONS_PVT.validate_record(
2647: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2648: p_import_action => inf_action_tbl(i),
2649: x_earlier_adoption_type => l_earlier_adoption_type,
2650: x_earlier_version_id => l_earlier_version_id,
2651: x_earlier_version_number => l_earlier_version_number,
2699: p_attribute15 => inf_attribute15_tbl(i)
2700: );
2701:
2702: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2703: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2704: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2705: l_return_status := G_RET_STS_ERROR;
2706: END IF;
2707:
2727: -- nvl for nullable column to avoid getting database value
2728: -- in the validate API
2729: api_return_status :=
2730: OKC_ARTICLE_VERSIONS_PVT.validate_record(
2731: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
2732: p_import_action => inf_action_tbl(i),
2733: x_earlier_adoption_type => l_earlier_adoption_type,
2734: x_earlier_version_id => l_earlier_version_id,
2735: x_earlier_version_number => l_earlier_version_number,
2791: -- Otherwise, keep going
2792: --
2793: --
2794: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2795: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2796: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2797: l_return_status := G_RET_STS_ERROR;
2798: END IF;
2799:
2860: END IF;
2861: END IF;
2862:
2863: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2865: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2866: RAISE FND_API.G_EXC_ERROR ;
2867: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2868: RAISE FND_API.G_EXC_ERROR ;
2862:
2863: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2865: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2866: RAISE FND_API.G_EXC_ERROR ;
2867: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2868: RAISE FND_API.G_EXC_ERROR ;
2869: END IF;
2870:
2864: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2865: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2866: RAISE FND_API.G_EXC_ERROR ;
2867: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2868: RAISE FND_API.G_EXC_ERROR ;
2869: END IF;
2870:
2871: ------------------------------------------------------------------------
2872: -- Now that we have validated and data is clean we can fetch sequences and ids
2892: IF api_return_status = G_RET_STS_SUCCESS Then
2893: inf_article_number_tbl(i) := l_article_number;
2894: ELSIF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2895: l_return_status := api_return_status;
2896: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2897: ELSE
2898: l_return_status := api_return_status; -- whatever error, it will overwrite it
2899: END IF;
2900: END IF;
2902: -- Get article id.
2903: api_return_status := Get_Seq_Id (p_object_type => 'ART',
2904: x_object_id => inf_article_id_tbl(i));
2905: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2907: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2908: l_return_status := api_return_status;
2909: RAISE FND_API.G_EXC_ERROR ;
2910: END IF;
2905: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2907: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2908: l_return_status := api_return_status;
2909: RAISE FND_API.G_EXC_ERROR ;
2910: END IF;
2911:
2912: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2913: x_object_id => inf_article_version_id_tbl(i));
2911:
2912: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2913: x_object_id => inf_article_version_id_tbl(i));
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: l_return_status := api_return_status;
2918: RAISE FND_API.G_EXC_ERROR ;
2919: END IF;
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: l_return_status := api_return_status;
2918: RAISE FND_API.G_EXC_ERROR ;
2919: END IF;
2920:
2921: -- Create variable association for the new article - 1st version.
2922: IF l_variable_code_tbl.COUNT > 0 THEN
2942:
2943: api_return_status := Get_Seq_Id (p_object_type => 'VER',
2944: x_object_id => inf_article_version_id_tbl(i));
2945: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2947: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2948: l_return_status := api_return_status;
2949: RAISE FND_API.G_EXC_ERROR ;
2950: END IF;
2945: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2947: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2948: l_return_status := api_return_status;
2949: RAISE FND_API.G_EXC_ERROR ;
2950: END IF;
2951:
2952: -- Create variable association for the new version.
2953: IF l_variable_code_tbl.COUNT > 0 THEN
2976: x_variables_to_insert_tbl => l_variables_to_insert_tbl,
2977: x_variables_to_delete_tbl => l_variables_to_delete_tbl,
2978: x_return_status => api_return_status);
2979: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2981: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2982: RAISE FND_API.G_EXC_ERROR ;
2983: END IF;
2984:
2978: x_return_status => api_return_status);
2979: IF (api_return_status = G_RET_STS_UNEXP_ERROR) THEN
2980: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2981: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
2982: RAISE FND_API.G_EXC_ERROR ;
2983: END IF;
2984:
2985: -- New Variables
2986: IF l_variables_to_insert_tbl.COUNT > 0 THEN
3035: l_part_rows_failed := l_part_rows_failed+1;
3036: inf_process_status_tbl(i) := G_RET_STS_ERROR;
3037: END IF;
3038: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: END IF;
3043:
3037: END IF;
3038: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3039: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3040: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
3041: RAISE FND_API.G_EXC_ERROR;
3042: END IF;
3043:
3044: -------------------------
3045: -------------------------
3049: -------------------------
3050: -------------------------
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 ;
3069: --l_tot_rows_failed := l_tot_rows_failed+1;
3070: l_part_rows_failed := l_part_rows_failed+1;
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:
3197: -- prepare rows for DML if validate_only is 'N'
3198: -------------------------------------------------------------------------
3199: -- In order to propagate Unexpected error raise it if it is 'U'
3200: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
3201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3202: END IF;
3203:
3204: -------------------------
3205: -------------------------
3207: -- Handles unexpected errors as last step
3208: -------------------------
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: --
3364: WHEN OTHERS THEN
3365: IF (l_debug = 'Y') THEN
3366: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3367: END IF;
3368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3369: END;
3370:
3371: --
3372: -- End of Insert into OKC_ARTICLES_ALL
3497: WHEN OTHERS THEN
3498: IF (l_debug = 'Y') THEN
3499: okc_debug.log('500: Leaving Article Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3500: END IF;
3501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3502: END;
3503:
3504: --
3505: -- End of Insert into OKC_ARTICLE_VERSIONS
3552: WHEN OTHERS THEN
3553: IF (l_debug = 'Y') THEN
3554: okc_debug.log('500: Leaving Article Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3555: END IF;
3556: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3557: END;
3558:
3559: artv_article_version_id_tbl.DELETE;
3560: artv_variable_code_tbl.DELETE;
3588: WHEN OTHERS THEN
3589: IF (l_debug = 'Y') THEN
3590: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3591: END IF;
3592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3593: END;
3594: --
3595: -- End of Insert into OKC_ARTICLE_VERSIONS
3596: --
3618: WHEN OTHERS THEN
3619: IF (l_debug = 'Y') THEN
3620: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3621: END IF;
3622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3623: END;
3624: ---
3625: ---
3626: ---
3646: WHEN OTHERS THEN
3647: IF (l_debug = 'Y') THEN
3648: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3649: END IF;
3650: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3651: END;
3652:
3653: ---
3654: ---
3757: WHEN OTHERS THEN
3758: IF (l_debug = 'Y') THEN
3759: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3760: END IF;
3761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3762: END;
3763: --
3764: -- End of Update OKC_ARTICLE_VERSIONS
3765: --
3807: p_entity => 'CLAUSE'
3808: );
3809: inf_process_status_tbl(i):= G_RET_STS_ERROR;
3810: -- Unexpected Error occurred rollback
3811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3812: ELSIF (api_return_status = G_RET_STS_ERROR) THEN
3813: -- Set return status as 'E' and move on to next record
3814: -- l_return_status := G_RET_STS_ERROR;
3815: build_error_array(
3821: p_error_type => G_RET_STS_ERROR,
3822: p_entity => 'CLAUSE'
3823: );
3824: inf_process_status_tbl(i):= G_RET_STS_ERROR;
3825: RAISE FND_API.G_EXC_ERROR;
3826: END IF;
3827: END IF;
3828: END LOOP;
3829:
3832: WHEN OTHERS THEN
3833: IF (l_debug = 'Y') THEN
3834: okc_debug.log('500: Leaving Articles_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
3835: END IF;
3836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3837: END;
3838: END IF; ---- If CURRENT_ORG_ID = GLOBAL_ORG_ID
3839:
3840: --
3948: --##count:rollback the count
3949: l_part_rows_failed := l_part_rows_processed;
3950: l_part_rows_warned := 0;
3951:
3952: --RAISE FND_API.G_EXC_ERROR ;
3953: END;
3954: --
3955: -- End of Update OKC_ART_INTERFACE_ALL
3956: --
4104: );
4105:
4106: l_return_status := G_RET_STS_UNEXP_ERROR ;
4107: x_return_status := G_RET_STS_UNEXP_ERROR ;
4108: --RAISE FND_API.G_EXC_ERROR ;
4109: END;
4110: /*********
4111: --Update Batch Process Table as a last step
4112: UPDATE OKC_ART_INT_BATPROCS_ALL
4149: --x_return_status := l_return_status; this may cause to erase error x_return_status
4150:
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
4162: );
4163: commit;
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:
4576:
4577: -- Standard Start of API savepoint
4578: FND_MSG_PUB.initialize;
4579: -- Initialize API return status to success
4580: x_return_status := FND_API.G_RET_STS_SUCCESS;
4581: l_return_status := G_RET_STS_SUCCESS;
4582: -- Cache user_id, login_id and org_id
4583: l_user_id := Fnd_Global.user_id;
4584: l_login_id := Fnd_Global.login_id;
4737: vinf_variable_code_tbl(i),
4738: 'LANG',
4739: vinf_language_tbl(i));
4740: l_return_status := G_RET_STS_ERROR;
4741: RAISE FND_API.G_EXC_ERROR;
4742: END IF;
4743: END IF;
4744: -- Logic to decide what to do in case of Action='S'
4745: -- If there is no existing variable in system then it is 'N' otherwise 'U'
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;
4769: RAISE FND_API.G_EXC_ERROR ;
4770: END IF;
4771:
4772: ELSE
4773:
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;
4779:
4780: -----------------------------------------------------------
4781: -- Common validation or attribute settting
4998: l_part_rows_failed := l_part_rows_failed+1;
4999: vinf_process_status_tbl(i) := G_RET_STS_ERROR;
5000: END IF;
5001: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5004: RAISE FND_API.G_EXC_ERROR;
5005: END IF;
5006:
5000: END IF;
5001: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5002: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5003: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
5004: RAISE FND_API.G_EXC_ERROR;
5005: END IF;
5006:
5007: -------------------------
5008: -------------------------
5013: -------------------------
5014:
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 ;
5033: --l_tot_rows_failed := l_tot_rows_failed+1;
5034: l_part_rows_failed := l_part_rows_failed+1;
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:
5109: -- validation,
5110: -------------------------------------------------------------------------
5111: -- In order to propagate Unexpected error raise it if it is 'U'
5112: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
5113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5114: END IF;
5115:
5116: -------------------------
5117: -------------------------
5119: -- Handles unexpected errors as last step
5120: -------------------------
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:
5269: WHEN OTHERS THEN
5270: IF (l_debug = 'Y') THEN
5271: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5272: END IF;
5273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5274: END;
5275:
5276: --
5277: -- End of Insert into OKC_BUS_VARIABLES_B
5314: WHEN OTHERS THEN
5315: IF (l_debug = 'Y') THEN
5316: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5317: END IF;
5318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5319: END;
5320:
5321: --
5322: -- End of Insert into OKC_BUS_VARIABLES_TL
5341: WHEN OTHERS THEN
5342: IF (l_debug = 'Y') THEN
5343: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5344: END IF;
5345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5346: END;
5347:
5348: --
5349: -- End of Update OKC_BUS_VARIABLES_B
5371: WHEN OTHERS THEN
5372: IF (l_debug = 'Y') THEN
5373: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5374: END IF;
5375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5376: END;
5377:
5378: --
5379: -- End of Update OKC_BUS_VARIABLES_TL
5417: WHEN OTHERS THEN
5418: IF (l_debug = 'Y') THEN
5419: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5420: END IF;
5421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5422: END;
5423:
5424: --
5425: -- End of Insert into OKC_BUS_VARIABLES_TL for Action U
5447: WHEN OTHERS THEN
5448: IF (l_debug = 'Y') THEN
5449: okc_debug.log('500: Leaving Variables_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
5450: END IF;
5451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
5452: END;
5453:
5454: --
5455: -- End of Update OKC_BUS_VARIABLES_TL for Disable
5563: --##count:rollback the count
5564: l_part_rows_failed := l_part_rows_processed;
5565: l_part_rows_warned := 0;
5566:
5567: --RAISE FND_API.G_EXC_ERROR ;
5568: END;
5569: --
5570: -- End of Update OKC_VARIABLES_INTERFACE
5571: --
5773: --x_return_status := l_return_status; this may cause to erase error x_return_status
5774:
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
5785: x_msg_data => x_msg_data
5786: );
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
6011:
6012: -- Standard Start of API savepoint
6013: FND_MSG_PUB.initialize;
6014: -- Initialize API return status to success
6015: x_return_status := FND_API.G_RET_STS_SUCCESS;
6016: l_return_status := G_RET_STS_SUCCESS;
6017: -- Cache user_id, login_id and org_id
6018: l_user_id := Fnd_Global.user_id;
6019: l_login_id := Fnd_Global.login_id;
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
6035: l_program_id := NULL;
6150: rinf_source_article_title_tbl(i),
6151: 'CLAUSE2',
6152: rinf_target_article_title_tbl(i));
6153: l_return_status := G_RET_STS_ERROR;
6154: RAISE FND_API.G_EXC_ERROR;
6155: END IF;
6156: END IF;
6157: -- Logic to decide what to do in case of Action='S'
6158:
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;
6184: RAISE FND_API.G_EXC_ERROR ;
6185: ELSE
6186: -- Reset Local Variables
6187: l_clause := NULL;
6188: END IF;
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;
6195: RAISE FND_API.G_EXC_ERROR ;
6196: END IF;
6197: END IF;
6198:
6199: IF rinf_target_article_id_tbl(i) is NULL THEN
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;
6212: RAISE FND_API.G_EXC_ERROR ;
6213: ELSE
6214: -- Reset Local Variables
6215: l_clause := NULL;
6216: END IF;
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;
6223: RAISE FND_API.G_EXC_ERROR ;
6224: END IF;
6225: END IF;
6226:
6227:
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;
6244: RAISE FND_API.G_EXC_ERROR ;
6245: END IF;
6246: */
6247: ELSIF rinf_action_tbl(i) = 'D' THEN
6248:
6263: );
6264: -- Reset local variable
6265: l_dummy := NULL;
6266: l_return_status := G_RET_STS_ERROR;
6267: RAISE FND_API.G_EXC_ERROR ;
6268:
6269: END IF;
6270: ELSE
6271:
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;
6277:
6278: -----------------------------------------------------------
6279: -- Common validation or attribute settting
6397: l_part_rows_failed := l_part_rows_failed+1;
6398: rinf_process_status_tbl(i) := G_RET_STS_ERROR;
6399: END IF;
6400: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
6403: RAISE FND_API.G_EXC_ERROR;
6404: END IF;
6405:
6399: END IF;
6400: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6402: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
6403: RAISE FND_API.G_EXC_ERROR;
6404: END IF;
6405:
6406: -------------------------
6407: -------------------------
6412: -------------------------
6413:
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 ;
6432: --l_tot_rows_failed := l_tot_rows_failed+1;
6433: l_part_rows_failed := l_part_rows_failed+1;
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:
6508: -- validation
6509: -------------------------------------------------------------------------
6510: -- In order to propagate Unexpected error raise it if it is 'U'
6511: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
6512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6513: END IF;
6514:
6515: -------------------------
6516: -------------------------
6518: -- Handles unexpected errors as last step
6519: -------------------------
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:
6780: --##count:rollback the count
6781: l_part_rows_failed := l_part_rows_processed;
6782: l_part_rows_warned := 0;
6783:
6784: --RAISE FND_API.G_EXC_ERROR ;
6785: END;
6786: --
6787: -- End of Update OKC_RELATIONSHIPS_INTERFACE
6788: --
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:
6897: FND_MSG_PUB.initialize;
6898: */
6899: commit; -- Final commit for status update
6904: --x_return_status := l_return_status; this may cause to erase error x_return_status
6905:
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
6916: x_msg_data => x_msg_data
6917: );
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
7099:
7100: -- Standard Start of API savepoint
7101: FND_MSG_PUB.initialize;
7102: -- Initialize API return status to success
7103: x_return_status := FND_API.G_RET_STS_SUCCESS;
7104: l_return_status := G_RET_STS_SUCCESS;
7105: -- Cache user_id, login_id and org_id
7106: l_user_id := Fnd_Global.user_id;
7107: l_login_id := Fnd_Global.login_id;
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;
7230: -- Logic to decide what to do in case of Action='S'
7231:
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;
7266:
7267: -----------------------------------------------------------
7268: -- Common validation or attribute settting
7277: p_token1 => 'VALUESET',
7278: p_token1_value => vsinf_flex_value_set_name_tbl(i)
7279: );
7280: l_return_status := G_RET_STS_ERROR;
7281: --RAISE FND_API.G_EXC_ERROR ;
7282: END IF;
7283:
7284: -- Check if format_type is set properly
7285: -- 'N' for Numeric
7443: l_part_rows_failed := l_part_rows_failed+1;
7444: vsinf_process_status_tbl(i) := G_RET_STS_ERROR;
7445: END IF;
7446: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7448: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
7449: RAISE FND_API.G_EXC_ERROR;
7450: END IF;
7451:
7445: END IF;
7446: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7448: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
7449: RAISE FND_API.G_EXC_ERROR;
7450: END IF;
7451:
7452: -------------------------
7453: -------------------------
7458: -------------------------
7459:
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 ;
7478: --l_tot_rows_failed := l_tot_rows_failed+1;
7479: l_part_rows_failed := l_part_rows_failed+1;
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:
7554: -- validation
7555: -------------------------------------------------------------------------
7556: -- In order to propagate Unexpected error raise it if it is 'U'
7557: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
7558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
7559: END IF;
7560:
7561: -------------------------
7562: -------------------------
7564: -- Handles unexpected errors as last step
7565: -------------------------
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:
7663: WHEN OTHERS THEN
7664: IF (l_debug = 'Y') THEN
7665: okc_debug.log('500: Leaving Fnd_flex_value_sets_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
7666: END IF;
7667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
7668: END;
7669:
7670: --
7671: -- End of Insert into FND FLEX VALUE SETS
7781: --##count:rollback the count
7782: l_part_rows_failed := l_part_rows_processed;
7783: l_part_rows_warned := 0;
7784:
7785: --RAISE FND_API.G_EXC_ERROR ;
7786: END;
7787: --
7788: -- End of Update OKC_VALUESETS_INTERFACE
7789: --
7892: --x_return_status := l_return_status; this may cause to erase error x_return_status
7893:
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
7904: x_msg_data => x_msg_data
7905: );
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
8190:
8191: -- Standard Start of API savepoint
8192: FND_MSG_PUB.initialize;
8193: -- Initialize API return status to success
8194: x_return_status := FND_API.G_RET_STS_SUCCESS;
8195: l_return_status := G_RET_STS_SUCCESS;
8196: -- Cache user_id, login_id and org_id
8197: l_user_id := Fnd_Global.user_id;
8198: l_login_id := Fnd_Global.login_id;
8330: 'VALSET',
8331: vinf_flex_value_set_name_tbl(i)
8332: );
8333: l_return_status := G_RET_STS_ERROR;
8334: RAISE FND_API.G_EXC_ERROR;
8335: END IF;
8336: END IF;
8337: -- Logic to decide what to do in case of Action='S'
8338:
8352: p_token2 => 'VALSET',
8353: p_token2_value => vinf_flex_value_set_name_tbl(i)
8354: );
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',
8363: p_token2 => 'VALSET',
8364: p_token2_value => vinf_flex_value_set_name_tbl(i)
8365: );
8366: l_return_status := G_RET_STS_ERROR;
8367: RAISE FND_API.G_EXC_ERROR;
8368: END IF;
8369: END IF;
8370: END IF;
8371: END IF;
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;
8401:
8402: -- Check if value exists in the system or not
8403: OPEN l_val_exist_csr(vinf_flex_value_tbl(i),vinf_value_set_id_tbl(i));
8413: p_token1_value => vinf_flex_value_tbl(i),
8414: p_token2=> 'VALSET',
8415: p_token2_value => vinf_flex_value_set_name_tbl(i));
8416: l_return_status := G_RET_STS_ERROR;
8417: RAISE FND_API.G_EXC_ERROR;
8418:
8419: ELSE
8420:
8421: IF l_start_date IS NOT NULL
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;
8429: END IF;
8430: END IF;
8431:
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;
8440:
8441: -----------------------------------------------------------
8442: -- Common validation or attribute settting
8553: l_part_rows_failed := l_part_rows_failed+1;
8554: vinf_process_status_tbl(i) := G_RET_STS_ERROR;
8555: END IF;
8556: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8561:
8555: END IF;
8556: ELSIF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8561:
8562: -------------------------
8563: -------------------------
8568: -------------------------
8569:
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
8591: --l_tot_rows_failed := l_tot_rows_failed+1;
8592: l_part_rows_failed := l_part_rows_failed+1;
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:
8672: -------------- End of Inner Loop thru fetched row for validation --------
8673: -------------------------------------------------------------------------
8674: -- In order to propagate Unexpected error raise it if it is 'U'
8675: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
8676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8677: END IF;
8678:
8679: -------------------------
8680: -------------------------
8682: -- Handles unexpected errors as last step
8683: -------------------------
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
8760: WHEN OTHERS THEN
8761: IF (l_debug = 'Y') THEN
8762: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8763: END IF;
8764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8765: END;
8766:
8767: --
8768: -- End of Insert into FND FLEX VALUES
8797: WHEN OTHERS THEN
8798: IF (l_debug = 'Y') THEN
8799: okc_debug.log('500: Leaving Fnd_flex_values_Import because of EXCEPTION: '||l_context||sqlerrm, 2);
8800: END IF;
8801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
8802: END;
8803:
8804: --
8805: -- End of Disable FND FLEX VALUES
8915: --##count:rollback the count
8916: l_part_rows_failed := l_part_rows_processed;
8917: l_part_rows_warned := 0;
8918:
8919: --RAISE FND_API.G_EXC_ERROR ;
8920: END;
8921: --
8922: -- End of Update OKC_VS_VALUES_INTERFACE
8923: --
9038: --x_return_status := l_return_status; this may cause to erase error x_return_status
9039:
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
9050: x_msg_data => x_msg_data
9051: );
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