32: -- Declare variables required by APIs
33: ------------------------------------------------------------
34: l_api_version CONSTANT NUMBER := 1;
35: l_api_name CONSTANT VARCHAR2(30) := 'create_investor_bill';
36: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
37:
38: -- nikshah -- Bug # 5484903 Fixed,
39: -- Changed bill_invstr_csr ( p_inv_agr NUMBER ) SQL definition
40: ------------------------------------------------------------
353: BEGIN
354: ------------------------------------------------------------
355: -- Start processing
356: ------------------------------------------------------------
357: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
358:
359: l_return_status := Okl_Api.START_ACTIVITY(
360: p_api_name => l_api_name,
361: p_pkg_name => G_PKG_NAME,
355: -- Start processing
356: ------------------------------------------------------------
357: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
358:
359: l_return_status := Okl_Api.START_ACTIVITY(
360: p_api_name => l_api_name,
361: p_pkg_name => G_PKG_NAME,
362: p_init_msg_list => p_init_msg_list,
363: l_api_version => l_api_version,
379: ,p_primary_sty_purpose => 'INVESTOR_RECEIVABLE'
380: ,x_return_status => l_return_status
381: ,x_primary_sty_id => l_sty_id);
382:
383: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
381: ,x_primary_sty_id => l_sty_id);
382:
383: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
388: RAISE Okl_Api.G_EXCEPTION_ERROR;
389: END IF;
382:
383: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
388: RAISE Okl_Api.G_EXCEPTION_ERROR;
389: END IF;
390:
384: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
385: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
386: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
387: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, ' -- ERROR: Obtaining sty id for: INVESTOR_RECEIVABLE.');
388: RAISE Okl_Api.G_EXCEPTION_ERROR;
389: END IF;
390:
391: OPEN c_sty_id(cp_sty_id=>l_sty_id);
392: --FETCH c_sty_id INTO l_sty_id;
442: CLOSE bill_site_rul_csr;
443:
444:
445: IF (l_cust_site_id IS NULL) THEN
446: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
447: p_msg_name => 'OKL_BPD_INVEST_BILL_BTOS_ERR');
448:
449: l_return_status := Okl_Api.G_RET_STS_ERROR;
450: raise G_EXCEPTION_HALT_VALIDATION;
445: IF (l_cust_site_id IS NULL) THEN
446: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
447: p_msg_name => 'OKL_BPD_INVEST_BILL_BTOS_ERR');
448:
449: l_return_status := Okl_Api.G_RET_STS_ERROR;
450: raise G_EXCEPTION_HALT_VALIDATION;
451: END IF;
452:
453: -- Payment Terms
483: FETCH c_trx_id INTO l_cust_trx_id;
484: CLOSE c_trx_id;
485:
486: IF (l_cust_trx_id IS NULL) THEN
487: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
488: p_msg_name => 'OKL_BPD_INVEST_BILL_TRANS_ERR');
489:
490: l_return_status := Okl_Api.G_RET_STS_ERROR;
491: raise G_EXCEPTION_HALT_VALIDATION;
486: IF (l_cust_trx_id IS NULL) THEN
487: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
488: p_msg_name => 'OKL_BPD_INVEST_BILL_TRANS_ERR');
489:
490: l_return_status := Okl_Api.G_RET_STS_ERROR;
491: raise G_EXCEPTION_HALT_VALIDATION;
492: END IF;
493:
494: -- Multi-Currency parameters
528: -- Fetch a unique Id
529: l_unique_id := get_seq_id;
530: l_legal_entity_id := OKL_LEGAL_ENTITY_UTIL.get_khr_le_id(p_inv_agr); -- for LE Uptake project 08-11-2006
531: /*IF l_legal_entity_id IS NULL THEN
532: Okl_Api.set_message(p_app_name => g_app_name,
533: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
534: p_token1 => 'CONTRACT_ID',
535: p_token1_value => p_inv_agr);
536: RAISE OKL_API.G_EXCEPTION_ERROR;
532: Okl_Api.set_message(p_app_name => g_app_name,
533: p_msg_name => 'OKL_LE_NOT_EXIST_CNTRCT',
534: p_token1 => 'CONTRACT_ID',
535: p_token1_value => p_inv_agr);
536: RAISE OKL_API.G_EXCEPTION_ERROR;
537: END IF;*/
538:
539: BEGIN
540: /* ankushar 05-Feb-2007 Billing R12 project
932:
933: EXCEPTION
934: WHEN OTHERS THEN
935: --modified by pgomes 01-Aug-2003 fix for bug 3078976
936: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
937: p_msg_name => 'OKL_BPD_INVEST_BILL_LINES_ERR');
938:
939: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
940: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
935: --modified by pgomes 01-Aug-2003 fix for bug 3078976
936: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
937: p_msg_name => 'OKL_BPD_INVEST_BILL_LINES_ERR');
938:
939: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
940: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
941: END;
942:
943: -- Create accounting distributions
936: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
937: p_msg_name => 'OKL_BPD_INVEST_BILL_LINES_ERR');
938:
939: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
940: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
941: END;
942:
943: -- Create accounting distributions
944: BEGIN
998: ,l_currency_code);
999:
1000: --modified by pgomes 01-Aug-2003 fix for bug 3078976
1001: IF (l_distr_err) THEN
1002: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1003: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1004:
1005: l_return_status := Okl_Api.G_RET_STS_ERROR;
1006: RAISE G_EXCEPTION_HALT_VALIDATION;
1001: IF (l_distr_err) THEN
1002: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1003: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1004:
1005: l_return_status := Okl_Api.G_RET_STS_ERROR;
1006: RAISE G_EXCEPTION_HALT_VALIDATION;
1007: END IF;
1008:
1009: INSERT INTO RA_INTERFACE_DISTRIBUTIONS
1054: ) ;
1055: END LOOP; -- Distribution Loop
1056:
1057: IF (nvl(l_distr_cnt, 0) = 0) THEN
1058: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1059: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1060:
1061: l_return_status := Okl_Api.G_RET_STS_ERROR;
1062: RAISE G_EXCEPTION_HALT_VALIDATION;
1057: IF (nvl(l_distr_cnt, 0) = 0) THEN
1058: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1059: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1060:
1061: l_return_status := Okl_Api.G_RET_STS_ERROR;
1062: RAISE G_EXCEPTION_HALT_VALIDATION;
1063: END IF;
1064:
1065: EXCEPTION
1067: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1068: x_return_status := l_return_status;
1069: RAISE;
1070: WHEN OTHERS THEN
1071: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1072: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1073:
1074: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1075: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1070: WHEN OTHERS THEN
1071: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1072: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1073:
1074: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1075: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1076: */
1077:
1078: END;
1071: OKL_API.SET_MESSAGE(p_app_name => G_APP_NAME,
1072: p_msg_name => 'OKL_BPD_INVEST_BILL_DISTR_ERR');
1073:
1074: l_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
1075: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1076: */
1077:
1078: END;
1079:
1084: ----------------------------------------------------
1085: -- End activity
1086: ----------------------------------------------------
1087:
1088: Okl_Api.END_ACTIVITY (
1089: x_msg_count => x_msg_count,
1090: x_msg_data => x_msg_data);
1091: EXCEPTION
1092: ------------------------------------------------------------
1094: ------------------------------------------------------------
1095: WHEN G_EXCEPTION_HALT_VALIDATION THEN
1096: x_return_status := l_return_status;
1097: WHEN OTHERS THEN
1098: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1099: ,p_msg_name => G_UNEXPECTED_ERROR
1100: ,p_token1 => G_SQLCODE_TOKEN
1101: ,p_token1_value => SQLCODE
1102: ,p_token2 => G_SQLERRM_TOKEN
1105: ,p_token3_value => G_PKG_NAME
1106: ,p_token4 => 'Procedure'
1107: ,p_token4_value => l_api_name
1108: );
1109: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1110:
1111: END create_investor_bill;
1112:
1113:
1182: ------------------------------------------------------------
1183:
1184: l_api_version CONSTANT NUMBER := 1;
1185: l_api_name CONSTANT VARCHAR2(30) := 'Create_Billing_Transaction';
1186: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
1187:
1188:
1189: CURSOR get_try_id_csr IS
1190: SELECT id
1212: ------------------------------------------------------------
1213: -- Start processing
1214: ------------------------------------------------------------
1215:
1216: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1217:
1218: l_return_status := Okl_Api.START_ACTIVITY(
1219: p_api_name => l_api_name,
1220: p_pkg_name => G_PKG_NAME,
1214: ------------------------------------------------------------
1215:
1216: x_return_status := Okl_Api.G_RET_STS_SUCCESS;
1217:
1218: l_return_status := Okl_Api.START_ACTIVITY(
1219: p_api_name => l_api_name,
1220: p_pkg_name => G_PKG_NAME,
1221: p_init_msg_list => p_init_msg_list,
1222: l_api_version => l_api_version,
1223: p_api_version => p_api_version,
1224: p_api_type => '_PVT',
1225: x_return_status => l_return_status);
1226:
1227: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1231: END IF;
1224: p_api_type => '_PVT',
1225: x_return_status => l_return_status);
1226:
1227: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1231: END IF;
1232:
1225: x_return_status => l_return_status);
1226:
1227: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1231: END IF;
1232:
1233: ---------------------------------------------
1226:
1227: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1228: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1229: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1230: RAISE Okl_Api.G_EXCEPTION_ERROR;
1231: END IF;
1232:
1233: ---------------------------------------------
1234: -- Populate Header record
1258: ,x_msg_data
1259: ,i_taiv_rec
1260: ,r_taiv_rec);
1261:
1262: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1263: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1265: RAISE Okl_Api.G_EXCEPTION_ERROR;
1266: END IF;
1259: ,i_taiv_rec
1260: ,r_taiv_rec);
1261:
1262: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1263: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1265: RAISE Okl_Api.G_EXCEPTION_ERROR;
1266: END IF;
1267:
1260: ,r_taiv_rec);
1261:
1262: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1263: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1265: RAISE Okl_Api.G_EXCEPTION_ERROR;
1266: END IF;
1267:
1268: ---------------------------------------------
1261:
1262: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1263: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1264: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1265: RAISE Okl_Api.G_EXCEPTION_ERROR;
1266: END IF;
1267:
1268: ---------------------------------------------
1269: -- Create Lines and accounting entries for each
1303: ,x_msg_data
1304: ,i_tilv_rec
1305: ,r_tilv_rec);
1306:
1307: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1304: ,i_tilv_rec
1305: ,r_tilv_rec);
1306:
1307: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1305: ,r_tilv_rec);
1306:
1307: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1313: ---------------------------------------------
1306:
1307: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1308: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1309: ELSIF (l_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1310: RAISE Okl_Api.G_EXCEPTION_ERROR;
1311: END IF;
1312:
1313: ---------------------------------------------
1314: -- Populate Accounting record
1326: ,x_msg_data
1327: ,p_bpd_acc_rec
1328: );
1329:
1330: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1333: RAISE Okl_Api.G_EXCEPTION_ERROR;
1334: END IF;
1327: ,p_bpd_acc_rec
1328: );
1329:
1330: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1333: RAISE Okl_Api.G_EXCEPTION_ERROR;
1334: END IF;
1335: END LOOP;
1328: );
1329:
1330: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1333: RAISE Okl_Api.G_EXCEPTION_ERROR;
1334: END IF;
1335: END LOOP;
1336:
1329:
1330: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1331: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1332: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1333: RAISE Okl_Api.G_EXCEPTION_ERROR;
1334: END IF;
1335: END LOOP;
1336:
1337: ----------------------------------------------------
1337: ----------------------------------------------------
1338: -- End activity
1339: ----------------------------------------------------
1340:
1341: Okl_Api.END_ACTIVITY (
1342: x_msg_count => x_msg_count,
1343: x_msg_data => x_msg_data);
1344: EXCEPTION
1345: ------------------------------------------------------------
1344: EXCEPTION
1345: ------------------------------------------------------------
1346: -- Exception handling
1347: ------------------------------------------------------------
1348: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1349:
1350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1351: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1352: p_api_name => l_api_name,
1347: ------------------------------------------------------------
1348: WHEN Okl_Api.G_EXCEPTION_ERROR THEN
1349:
1350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1351: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1352: p_api_name => l_api_name,
1353: p_pkg_name => G_PKG_NAME,
1354: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
1355: x_msg_count => x_msg_count,
1350: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1351: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1352: p_api_name => l_api_name,
1353: p_pkg_name => G_PKG_NAME,
1354: p_exc_name => 'Okl_Api.G_RET_STS_ERROR',
1355: x_msg_count => x_msg_count,
1356: x_msg_data => x_msg_data,
1357: p_api_type => '_PVT');
1358:
1355: x_msg_count => x_msg_count,
1356: x_msg_data => x_msg_data,
1357: p_api_type => '_PVT');
1358:
1359: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1360: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1361: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1362: p_api_name => l_api_name,
1363: p_pkg_name => G_PKG_NAME,
1357: p_api_type => '_PVT');
1358:
1359: WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
1360: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1361: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1362: p_api_name => l_api_name,
1363: p_pkg_name => G_PKG_NAME,
1364: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1365: x_msg_count => x_msg_count,
1360: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1361: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1362: p_api_name => l_api_name,
1363: p_pkg_name => G_PKG_NAME,
1364: p_exc_name => 'Okl_Api.G_RET_STS_UNEXP_ERROR',
1365: x_msg_count => x_msg_count,
1366: x_msg_data => x_msg_data,
1367: p_api_type => '_PVT');
1368:
1367: p_api_type => '_PVT');
1368:
1369: WHEN OTHERS THEN
1370: FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '*=>ERROR: '||SQLERRM);
1371: x_return_status := Okl_Api.HANDLE_EXCEPTIONS (
1372: p_api_name => l_api_name,
1373: p_pkg_name => G_PKG_NAME,
1374: p_exc_name => 'OTHERS',
1375: x_msg_count => x_msg_count,