10:
11:
12: FUNCTION set_value_null(p_value_in IN VARCHAR2) RETURN VARCHAR2 IS
13: BEGIN
14: IF (p_value_in = OKL_API.G_MISS_CHAR) THEN
15: RETURN NULL;
16: END IF;
17: RETURN p_value_in;
18: END;
19:
20:
21: FUNCTION set_value_null(p_value_in IN DATE) RETURN DATE IS
22: BEGIN
23: IF (p_value_in = OKL_API.G_MISS_DATE) THEN
24: RETURN NULL;
25: END IF;
26: RETURN p_value_in;
27: END;
28:
29:
30: FUNCTION set_value_null(p_value_in IN NUMBER) RETURN NUMBER IS
31: BEGIN
32: IF (p_value_in = OKL_API.G_MISS_NUM) THEN
33: RETURN NULL;
34: END IF;
35: RETURN p_value_in;
36: END;
394:
395: BEGIN
396:
397: IF ( p_chr_id IS NULL OR p_kle_id IS NULL) THEN
398: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
399: END IF;
400:
401: OPEN ln_future_rents_csr(p_chr_id, p_kle_id, p_date, p_advance_or_arrears);
402: FETCH ln_future_rents_csr INTO ln_future_rents_rec;
412: RETURN l_rents;
413:
414: EXCEPTION
415: WHEN OTHERS THEN
416: Okl_Api.SET_MESSAGE(
417: p_app_name => G_APP_NAME,
418: p_msg_name => G_UNEXPECTED_ERROR,
419: p_token1 => G_SQLCODE_TOKEN,
420: p_token1_value => SQLCODE,
466: l_chr_income_rec l_chr_income_csr%ROWTYPE;
467: BEGIN
468:
469: IF ( p_chr_id IS NULL OR p_kle_id IS NULL) THEN
470: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
471: END IF;
472:
473: OPEN l_chr_income_csr(p_chr_id, p_kle_id, p_date);
474: FETCH l_chr_income_csr INTO l_chr_income_rec;
481:
482: EXCEPTION
483:
484: WHEN OTHERS THEN
485: Okl_Api.SET_MESSAGE(
486: p_app_name => G_APP_NAME,
487: p_msg_name => G_UNEXPECTED_ERROR,
488: p_token1 => G_SQLCODE_TOKEN,
489: p_token1_value => SQLCODE,
524: residual_value_rec residual_value_csr%ROWTYPE;
525: BEGIN
526:
527: IF ( p_chr_id IS NULL OR p_kle_id IS NULL ) THEN
528: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
529: END IF;
530:
531: OPEN residual_value_csr(p_chr_id, p_kle_id);
532: FETCH residual_value_csr INTO residual_value_rec;
538: RETURN l_residual_value;
539:
540: EXCEPTION
541: WHEN OTHERS THEN
542: Okl_Api.SET_MESSAGE(
543: p_app_name => G_APP_NAME,
544: p_msg_name => G_UNEXPECTED_ERROR,
545: p_token1 => G_SQLCODE_TOKEN,
546: p_token1_value => SQLCODE,
596:
597: BEGIN
598:
599: IF ( p_chr_id = NULL ) THEN
600: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
601: END IF;
602:
603: OKL_VARIABLE_INTEREST_PVT.print_debug('Asset id :' || p_kle_id);
604: FOR l_lease_asset_cost_csr IN lease_asset_cost_csr(p_chr_id, p_kle_id)
620: RETURN l_net_book_value;
621:
622: EXCEPTION
623: WHEN OTHERS THEN
624: Okl_Api.SET_MESSAGE(
625: p_app_name => G_APP_NAME,
626: p_msg_name => G_UNEXPECTED_ERROR,
627: p_token1 => G_SQLCODE_TOKEN,
628: p_token1_value => SQLCODE,
671: c_khr_type_rec c_khr_type%ROWTYPE;
672:
673: BEGIN
674: IF ( p_khr_id IS NULL OR p_kle_id IS NULL ) THEN
675: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
676: END IF;
677:
678: OPEN c_khr_type(p_khr_id);
679: FETCH c_khr_type INTO c_khr_type_rec.deal_type;
691: RETURN l_principal_balance;
692:
693: EXCEPTION
694: WHEN OTHERS THEN
695: OKL_API.Set_Message(p_app_name => OKL_API.G_APP_NAME,
696: p_msg_name => 'OKL_UNEXPECTED_ERROR',
697: p_token1 => 'OKL_SQLCODE',
698: p_token1_value => SQLCODE,
699: p_token2 => 'OKL_SQLERRM',
1001:
1002: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Entering procedure VAR_INT_RENT_LEVEL****');
1003: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Start-Creating Rent Levels and ReBooking.');
1004:
1005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1006:
1007: x_return_status := OKL_API.START_ACTIVITY(
1008: p_api_name => l_api_name,
1009: p_init_msg_list => p_init_msg_list,
1003: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Start-Creating Rent Levels and ReBooking.');
1004:
1005: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1006:
1007: x_return_status := OKL_API.START_ACTIVITY(
1008: p_api_name => l_api_name,
1009: p_init_msg_list => p_init_msg_list,
1010: p_api_type => '_PVT',
1011: x_return_status => x_return_status);
1009: p_init_msg_list => p_init_msg_list,
1010: p_api_type => '_PVT',
1011: x_return_status => x_return_status);
1012:
1013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1016: RAISE OKL_API.G_EXCEPTION_ERROR;
1017: END IF;
1010: p_api_type => '_PVT',
1011: x_return_status => x_return_status);
1012:
1013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1016: RAISE OKL_API.G_EXCEPTION_ERROR;
1017: END IF;
1018:
1011: x_return_status => x_return_status);
1012:
1013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1016: RAISE OKL_API.G_EXCEPTION_ERROR;
1017: END IF;
1018:
1019: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Contract ID: '||p_chr_id);
1012:
1013: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1014: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1015: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1016: RAISE OKL_API.G_EXCEPTION_ERROR;
1017: END IF;
1018:
1019: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Contract ID: '||p_chr_id);
1020: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Trans Id: ' || p_trx_id);
1072: l_kle_id := get_kle_id(p_trx_number => p_trx_id,
1073: p_index_number => l_index_number,
1074: x_return_status => x_return_status);
1075:
1076: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1077: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Unable to derive kle_id from inbound supertrump call.');
1078: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSE
1080: OKL_VARIABLE_INTEREST_PVT.print_debug('l_kle_id: '||l_kle_id);
1074: x_return_status => x_return_status);
1075:
1076: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1077: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Unable to derive kle_id from inbound supertrump call.');
1078: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1079: ELSE
1080: OKL_VARIABLE_INTEREST_PVT.print_debug('l_kle_id: '||l_kle_id);
1081: END IF;
1082: l_sequence := 0;
1194:
1195: --Added by bkatraga for bug 15946001
1196: l_prior_level_date_start := OKL_VARIABLE_INTEREST_PVT.get_next_period_start_date(p_chr_id, l_prior_level_date_start);
1197: IF(l_prior_level_date_start IS NULL) THEN
1198: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1199: END IF;
1200: --end bkatraga
1201:
1202: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'l_period_cntr :' || l_period_cntr || ' l_prior_level_date_start : ' || l_prior_level_date_start);
1333: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'After Mass Rebook status: '||x_return_status||' Error: '||x_msg_data);
1334: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'After Mass Rebook x_strm_trx_tbl.count: '|| x_strm_trx_tbl.count);
1335: FND_FILE.PUT_LINE (FND_FILE.LOG,p_trx_id || p_trx_id || 'After mass rebook Stream Table count: '|| x_strm_trx_tbl.count);
1336:
1337: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1338: FOR i in 1..x_msg_count
1339: LOOP
1340: FND_MSG_PUB.GET(
1341: p_msg_index => i,
1348: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Error '||to_char(i)||': '||x_msg_data);
1349: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Message Index: '||l_msg_index_out);
1350: END LOOP;
1351:
1352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1349: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Message Index: '||l_msg_index_out);
1350: END LOOP;
1351:
1352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: ELSE
1350: END LOOP;
1351:
1352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: ELSE
1358: i := x_strm_trx_tbl.first;
1351:
1352: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1354: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1355: RAISE OKL_API.G_EXCEPTION_ERROR;
1356: END IF;
1357: ELSE
1358: i := x_strm_trx_tbl.first;
1359: l_child_trx_id := x_strm_trx_tbl(i).trx_number;
1373:
1374: --Added by bkatraga for bug 13693187
1375: l_next_reamort_date := OKL_VARIABLE_INTEREST_PVT.get_next_period_start_date(p_chr_id, l_reamort_date);
1376: IF(l_next_reamort_date IS NULL) THEN
1377: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1378: END IF;
1379:
1380: OKL_VR_DATA_HANDLER_PVT.UPDATE_LAST_INT_CAL_DATE(
1381: p_api_version => p_api_version,
1384: x_msg_count => x_msg_count,
1385: x_msg_data => x_msg_data,
1386: p_contract_id => p_chr_id,
1387: p_last_interest_cal_date => l_next_reamort_date);
1388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1385: x_msg_data => x_msg_data,
1386: p_contract_id => p_chr_id,
1387: p_last_interest_cal_date => l_next_reamort_date);
1388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1393: --end bkatraga
1386: p_contract_id => p_chr_id,
1387: p_last_interest_cal_date => l_next_reamort_date);
1388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1393: --end bkatraga
1394:
1387: p_last_interest_cal_date => l_next_reamort_date);
1388: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1389: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1390: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1391: RAISE OKL_API.G_EXCEPTION_ERROR;
1392: END IF;
1393: --end bkatraga
1394:
1395: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'After updating date_last_interim_interest_cal');
1414: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id|| 'l_vipv_rec.id =' || l_vipv_rec.id );
1415:
1416: -- Bug 10324172 : If ESG is behaving asynchronous, then only update it
1417: -- Asynchronous means, insertion has already happened before Update
1418: IF l_vipv_rec.ID IS NOT NULL AND l_vipv_rec.ID <> OKL_API.G_MISS_NUM
1419: THEN
1420: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'Before call to okl_var_int_process_b.update_row' );
1421: OKL_VIP_PVT.update_row(
1422: p_api_version => p_api_version,
1428: x_vipv_rec => x_vipv_rec);
1429: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'After updating okl_var_int_process_b, Status => ' || x_return_status);
1430: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****End-Creating Rent Levels and ReBooking.');
1431: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Exiting procedure VAR_INT_RENT_LEVEL****');
1432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1429: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'After updating okl_var_int_process_b, Status => ' || x_return_status);
1430: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****End-Creating Rent Levels and ReBooking.');
1431: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Exiting procedure VAR_INT_RENT_LEVEL****');
1432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: END IF;
1430: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****End-Creating Rent Levels and ReBooking.');
1431: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Exiting procedure VAR_INT_RENT_LEVEL****');
1432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: END IF;
1438: -- Bug 10324172 : End
1431: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || '****Exiting procedure VAR_INT_RENT_LEVEL****');
1432: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1433: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1434: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
1435: RAISE OKL_API.G_EXCEPTION_ERROR;
1436: END IF;
1437: END IF;
1438: -- Bug 10324172 : End
1439: END IF;
1440: END IF;
1441: Exception
1442: WHEN OTHERS THEN
1443: OKL_VARIABLE_INTEREST_PVT.print_debug(p_trx_id || 'sqlcode : ' || sqlcode || ' $ sqlerrm : ' || sqlerrm);
1444: x_return_status := OKL_API.HANDLE_EXCEPTIONS (
1445: p_api_name => l_api_name,
1446: p_pkg_name => G_PKG_NAME,
1447: p_exc_name => 'OTHERS',
1448: x_msg_count => x_msg_count,
1463:
1464:
1465: l_vipv_rec OKL_VARIABLE_INTEREST_PVT.vipv_rec;
1466: x_vipv_rec OKL_VARIABLE_INTEREST_PVT.vipv_rec;
1467: l_skip_prc_engine VARCHAR2(1) := OKL_API.G_FALSE;
1468: --l_rents_tbl and l_rents_tbl_in used for lease processing
1469: l_rents_tbl Okl_Create_Streams_Pub.csm_periodic_expenses_tbl_type;
1470: l_rents_tbl_in Okl_Create_Streams_Pub.csm_periodic_expenses_tbl_type;
1471: --l_rents_prin_tbl used for loan processing
1655: AND sts_code NOT IN('ABANDONED', 'TERMINATED');
1656:
1657: BEGIN
1658:
1659: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1660:
1661: OKL_VARIABLE_INTEREST_PVT.print_debug('****Entering procedure INITIATE_REQUEST****');
1662: FND_FILE.PUT_LINE (FND_FILE.LOG,'Initiating Super Trump Request');
1663:
1675: x_msg_count => x_msg_count,
1676: x_msg_data => x_msg_data,
1677: p_chr_id => p_khr_id);
1678:
1679: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1682: RAISE initiate_request_failed;
1683: END IF;
1676: x_msg_data => x_msg_data,
1677: p_chr_id => p_khr_id);
1678:
1679: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1682: RAISE initiate_request_failed;
1683: END IF;
1684:
1677: p_chr_id => p_khr_id);
1678:
1679: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1680: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1681: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1682: RAISE initiate_request_failed;
1683: END IF;
1684:
1685: --Bug# 13146882
1688: p_transaction_type => 'Rebook',
1689: p_transaction_date => l_start_date,
1690: x_return_status => x_return_status);
1691:
1692: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1695: RAISE initiate_request_failed;
1696: END IF;
1689: p_transaction_date => l_start_date,
1690: x_return_status => x_return_status);
1691:
1692: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1695: RAISE initiate_request_failed;
1696: END IF;
1697:
1690: x_return_status => x_return_status);
1691:
1692: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1693: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1694: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1695: RAISE initiate_request_failed;
1696: END IF;
1697:
1698: OPEN c_periods_cur(p_khr_id, l_start_date);
1730: p_end_date => l_start_date,
1731: p_process_flag => OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS, /* value is set in Calculate_total_interest_due */
1732: x_interest_rate_tbl => l_interest_rate_tbl);
1733:
1734: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1735: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1736: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1737: RAISE initiate_request_failed;
1738: END IF;
1731: p_process_flag => OKL_VARIABLE_INTEREST_PVT.G_INTEREST_CALCULATION_BASIS, /* value is set in Calculate_total_interest_due */
1732: x_interest_rate_tbl => l_interest_rate_tbl);
1733:
1734: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1735: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1736: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1737: RAISE initiate_request_failed;
1738: END IF;
1739:
1732: x_interest_rate_tbl => l_interest_rate_tbl);
1733:
1734: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1735: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
1736: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
1737: RAISE initiate_request_failed;
1738: END IF;
1739:
1740: l_interest_rate_tbl_count := l_interest_rate_tbl.COUNT;
1785: x_csm_one_off_fee_tbl => l_csm_one_off_fee_tbl,
1786: x_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl,
1787: x_csm_yields_tbl => l_csm_yields_tbl,
1788: x_csm_stream_types_tbl => l_csm_stream_types_tbl);
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE initiate_request_failed;
1793: END IF;
1786: x_csm_periodic_expenses_tbl => l_csm_periodic_expenses_tbl,
1787: x_csm_yields_tbl => l_csm_yields_tbl,
1788: x_csm_stream_types_tbl => l_csm_stream_types_tbl);
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE initiate_request_failed;
1793: END IF;
1794:
1787: x_csm_yields_tbl => l_csm_yields_tbl,
1788: x_csm_stream_types_tbl => l_csm_stream_types_tbl);
1789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1790: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1791: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1792: RAISE initiate_request_failed;
1793: END IF;
1794:
1795: --Added by bkatraga for bug 14811647
2010: p_due_date => l_start_date,
2011: p_principal_basis => NULL,
2012: x_principal_balance_tbl => l_principal_balance_tbl);
2013:
2014: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2016: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2017: RAISE initiate_request_failed;
2018: END IF;
2011: p_principal_basis => NULL,
2012: x_principal_balance_tbl => l_principal_balance_tbl);
2013:
2014: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2016: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2017: RAISE initiate_request_failed;
2018: END IF;
2019:
2012: x_principal_balance_tbl => l_principal_balance_tbl);
2013:
2014: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2015: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2016: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2017: RAISE initiate_request_failed;
2018: END IF;
2019:
2020: l_csm_loan_levels_tbl_in(l_loan_levels_cntr).amount := l_principal_balance_tbl(l_principal_balance_tbl.COUNT).principal_balance;
2079: x_return_status => x_return_status,
2080: x_msg_count => x_msg_count,
2081: x_msg_data => x_msg_data);
2082: OKL_VARIABLE_INTEREST_PVT.print_debug('After pricing call, status :' || l_trans_status);
2083: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2086: RAISE initiate_request_failed;
2087: END IF;
2080: x_msg_count => x_msg_count,
2081: x_msg_data => x_msg_data);
2082: OKL_VARIABLE_INTEREST_PVT.print_debug('After pricing call, status :' || l_trans_status);
2083: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2086: RAISE initiate_request_failed;
2087: END IF;
2088:
2081: x_msg_data => x_msg_data);
2082: OKL_VARIABLE_INTEREST_PVT.print_debug('After pricing call, status :' || l_trans_status);
2083: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2084: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2085: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2086: RAISE initiate_request_failed;
2087: END IF;
2088:
2089: OKL_VARIABLE_INTEREST_PVT.print_debug('Super trump request id:' || l_super_trump_request_id);
2112:
2113: OKL_VARIABLE_INTEREST_PVT.print_debug('After calling var_int_rent_level, status :' || x_return_status);
2114: OKL_VARIABLE_INTEREST_PVT.print_debug('Rebook child request id:' || l_child_trx_id);
2115:
2116: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2119: RAISE initiate_request_failed;
2120: END IF;
2113: OKL_VARIABLE_INTEREST_PVT.print_debug('After calling var_int_rent_level, status :' || x_return_status);
2114: OKL_VARIABLE_INTEREST_PVT.print_debug('Rebook child request id:' || l_child_trx_id);
2115:
2116: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2119: RAISE initiate_request_failed;
2120: END IF;
2121: END IF;
2114: OKL_VARIABLE_INTEREST_PVT.print_debug('Rebook child request id:' || l_child_trx_id);
2115:
2116: IF(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR)THEN
2117: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2118: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR)THEN
2119: RAISE initiate_request_failed;
2120: END IF;
2121: END IF;
2122: END IF;
2152: OKL_VARIABLE_INTEREST_PVT.print_debug('Error '||to_char(i)||': '||x_msg_data);
2153: OKL_VARIABLE_INTEREST_PVT.print_debug('Message Index: '||l_msg_index_out);
2154: END LOOP;
2155:
2156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2157: OKL_VARIABLE_INTEREST_PVT.print_error_message('Status after Extract params: '||x_return_status);
2158: OKL_VARIABLE_INTEREST_PVT.print_error_message('Message after Extract params: '||x_msg_data);
2159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2155:
2156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2157: OKL_VARIABLE_INTEREST_PVT.print_error_message('Status after Extract params: '||x_return_status);
2158: OKL_VARIABLE_INTEREST_PVT.print_error_message('Message after Extract params: '||x_msg_data);
2159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2161: OKL_VARIABLE_INTEREST_PVT.print_error_message('Status after Extract params: '||x_return_status);
2162: RAISE initiate_request_failed;
2163: END IF;
2156: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2157: OKL_VARIABLE_INTEREST_PVT.print_error_message('Status after Extract params: '||x_return_status);
2158: OKL_VARIABLE_INTEREST_PVT.print_error_message('Message after Extract params: '||x_msg_data);
2159: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2160: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2161: OKL_VARIABLE_INTEREST_PVT.print_error_message('Status after Extract params: '||x_return_status);
2162: RAISE initiate_request_failed;
2163: END IF;
2164:
2344: OKL_VARIABLE_INTEREST_PVT.print_debug('Super trump request id:' || l_super_trump_request_id);
2345: OKL_VARIABLE_INTEREST_PVT.print_debug('super trump transaction status:'|| l_trans_status);
2346: OKL_VARIABLE_INTEREST_PVT.print_debug('x return :'||x_return_status);
2347:
2348: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
2349: OKL_VARIABLE_INTEREST_PVT.print_error_message('Printing message stack.');
2350: FOR i in 1..x_msg_count
2351: LOOP
2352: FND_MSG_PUB.GET(
2360: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error '||to_char(i)||': '||x_msg_data);
2361: OKL_VARIABLE_INTEREST_PVT.print_error_message('Message Index: '||l_msg_index_out);
2362: END LOOP;
2363: END IF;
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE initiate_request_failed;
2368: END IF;
2361: OKL_VARIABLE_INTEREST_PVT.print_error_message('Message Index: '||l_msg_index_out);
2362: END LOOP;
2363: END IF;
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE initiate_request_failed;
2368: END IF;
2369: END IF;
2362: END LOOP;
2363: END IF;
2364: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2365: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2366: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2367: RAISE initiate_request_failed;
2368: END IF;
2369: END IF;
2370: End IF; -- Added by prasjain bug# 6142095
2404: x_msg_data => x_msg_data,
2405: p_vipv_rec => l_vipv_rec,
2406: x_vipv_rec => x_vipv_rec);
2407:
2408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2411: RAISE initiate_request_failed;
2412: END IF;
2405: p_vipv_rec => l_vipv_rec,
2406: x_vipv_rec => x_vipv_rec);
2407:
2408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2411: RAISE initiate_request_failed;
2412: END IF;
2413: OKL_VARIABLE_INTEREST_PVT.print_debug('Updating OKL_VAR_INT_PROCESS_V Successful');
2406: x_vipv_rec => x_vipv_rec);
2407:
2408: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2409: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2410: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2411: RAISE initiate_request_failed;
2412: END IF;
2413: OKL_VARIABLE_INTEREST_PVT.print_debug('Updating OKL_VAR_INT_PROCESS_V Successful');
2414:
2427: x_msg_count => x_msg_count,
2428: x_msg_data => x_msg_data,
2429: p_contract_id => p_khr_id,
2430: p_last_interest_cal_date => l_next_reamort_date);
2431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2434: RAISE initiate_request_failed;
2435: END IF;
2428: x_msg_data => x_msg_data,
2429: p_contract_id => p_khr_id,
2430: p_last_interest_cal_date => l_next_reamort_date);
2431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2434: RAISE initiate_request_failed;
2435: END IF;
2436: --end bkatraga
2429: p_contract_id => p_khr_id,
2430: p_last_interest_cal_date => l_next_reamort_date);
2431: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2432: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2433: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2434: RAISE initiate_request_failed;
2435: END IF;
2436: --end bkatraga
2437:
2586: x_msg_count => x_msg_count,
2587: x_msg_data => x_msg_data,
2588: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
2588: p_vir_tbl => OKL_VARIABLE_INTEREST_PVT.g_vir_tbl);
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
2595: RAISE initiate_request_failed;
2596: END IF;
2589:
2590: IF (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2591: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INSERT_VIR_PARAMS');
2592: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2593: ELSIF (x_return_status = OKL_API.G_RET_STS_ERROR) THEN
2594: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INSERT_VIR_PARAMS');
2595: RAISE initiate_request_failed;
2596: END IF;
2597: OKL_VARIABLE_INTEREST_PVT.print_debug('Updating OKL_VAR_INT_PARAMS Successful');
2604:
2605: EXCEPTION
2606: WHEN initiate_request_failed THEN
2607: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception initiate_request_failed raised in procedure initiate_request');
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: WHEN OTHERS THEN
2610: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure initiate_request');
2611: Okl_Api.SET_MESSAGE(
2612: p_app_name => G_APP_NAME,
2607: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception initiate_request_failed raised in procedure initiate_request');
2608: x_return_status := OKL_API.G_RET_STS_ERROR;
2609: WHEN OTHERS THEN
2610: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure initiate_request');
2611: Okl_Api.SET_MESSAGE(
2612: p_app_name => G_APP_NAME,
2613: p_msg_name => G_UNEXPECTED_ERROR,
2614: p_token1 => G_SQLCODE_TOKEN,
2615: p_token1_value => SQLCODE,
2615: p_token1_value => SQLCODE,
2616: p_token2 => G_SQLERRM_TOKEN,
2617: p_token2_value => SQLERRM);
2618:
2619: x_return_status := OKL_API.G_RET_STS_ERROR;
2620: END initiate_request;
2621:
2622:
2623: -----------------------------------------------------------------
2657: OKL_VARIABLE_INTEREST_PVT.print_error_message('No payments to reamort after Last Interest Calculation Date.');
2658: ELSE
2659: initiate_request(
2660: p_api_version => 1.0,
2661: p_init_msg_list => OKL_API.G_TRUE,
2662: p_khr_id => p_contract_id,
2663: x_return_status => x_return_status,
2664: x_msg_count => x_msg_count,
2665: x_msg_data => x_msg_data);
2663: x_return_status => x_return_status,
2664: x_msg_count => x_msg_count,
2665: x_msg_data => x_msg_data);
2666:
2667: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2668: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INITIATE_REQUEST');
2669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2671: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INITIATE_REQUEST');
2665: x_msg_data => x_msg_data);
2666:
2667: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2668: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INITIATE_REQUEST');
2669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2671: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INITIATE_REQUEST');
2672: RAISE process_int_reamort_failed;
2673: END IF;
2666:
2667: IF (x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2668: OKL_VARIABLE_INTEREST_PVT.print_error_message('Unexpected error raised in call to INITIATE_REQUEST');
2669: RAISE Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR;
2670: ELSIF (x_return_status = Okl_Api.G_RET_STS_ERROR) THEN
2671: OKL_VARIABLE_INTEREST_PVT.print_error_message('Error raised in call to INITIATE_REQUEST');
2672: RAISE process_int_reamort_failed;
2673: END IF;
2674: OKL_VARIABLE_INTEREST_PVT.print_debug('Variable interest calculation completed successfully for contract id : '|| p_contract_id);
2677:
2678: EXCEPTION
2679: WHEN process_int_reamort_failed THEN
2680: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_reamort_failed raised in procedure PROCESS_INTEREST_REAMORT');
2681: x_return_status := OKL_API.G_RET_STS_ERROR;
2682: WHEN OTHERS THEN
2683: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_REAMORT');
2684: Okl_Api.SET_MESSAGE(
2685: p_app_name => G_APP_NAME,
2680: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception process_int_reamort_failed raised in procedure PROCESS_INTEREST_REAMORT');
2681: x_return_status := OKL_API.G_RET_STS_ERROR;
2682: WHEN OTHERS THEN
2683: OKL_VARIABLE_INTEREST_PVT.print_error_message ('Exception raised in procedure PROCESS_INTEREST_REAMORT');
2684: Okl_Api.SET_MESSAGE(
2685: p_app_name => G_APP_NAME,
2686: p_msg_name => G_UNEXPECTED_ERROR,
2687: p_token1 => G_SQLCODE_TOKEN,
2688: p_token1_value => SQLCODE,
2687: p_token1 => G_SQLCODE_TOKEN,
2688: p_token1_value => SQLCODE,
2689: p_token2 => G_SQLERRM_TOKEN,
2690: p_token2_value => SQLERRM);
2691: x_return_status := OKL_API.G_RET_STS_ERROR;
2692: END process_interest_reamort;
2693:
2694: END;