[Home] [Help]
19: p_from_date IN DATE,
20: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
21:
22: l_debug_enabled VARCHAR2(1);
23: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_BILLED';
24: x_msg_count NUMBER;
25: x_msg_data VARCHAR2(2000);
26:
27: l_interest_billed NUMBER;
96: */
97: BEGIN
98: l_debug_enabled := okl_debug_pub.check_log_enabled;
99: IF(NVL(l_debug_enabled,'N')='Y') THEN
100: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_billed');
101: END IF;
102:
103: l_interest_billed := 0;
104: x_return_status := OKL_API.G_RET_STS_SUCCESS;
110: FETCH l_interest_billed_csr INTO l_interest_billed;
111: CLOSE l_interest_billed_csr;
112:
113: IF(NVL(l_debug_enabled,'N')='Y') THEN
114: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_billed');
115: END IF;
116:
117: RETURN l_interest_billed;
118: EXCEPTION
152: p_from_date IN DATE,
153: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
154:
155: l_debug_enabled VARCHAR2(1);
156: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_PAID';
157: x_msg_count NUMBER;
158: x_msg_data VARCHAR2(2000);
159:
160: l_interest_paid NUMBER;
242:
243: BEGIN
244: l_debug_enabled := okl_debug_pub.check_log_enabled;
245: IF(NVL(l_debug_enabled,'N')='Y') THEN
246: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_paid');
247: END IF;
248:
249: l_interest_paid := 0;
250: x_return_status := OKL_API.G_RET_STS_SUCCESS;
256: FETCH l_interest_paid_csr INTO l_interest_paid;
257: CLOSE l_interest_paid_csr;
258:
259: IF(NVL(l_debug_enabled,'N')='Y') THEN
260: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_paid');
261: END IF;
262:
263: RETURN l_interest_paid;
264: EXCEPTION
301: l_api_version CONSTANT NUMBER := 1.0;
302: x_msg_count NUMBER;
303: x_msg_data VARCHAR2(2000);
304: l_debug_enabled VARCHAR2(1);
305: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_DUE';
306:
307: l_principal_basis okl_k_rate_params.principal_basis_code%TYPE;
308: l_start_date DATE;
309: l_end_date DATE;
358:
359: BEGIN
360: l_debug_enabled := okl_debug_pub.check_log_enabled;
361: IF(NVL(l_debug_enabled,'N')='Y') THEN
362: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_due');
363: END IF;
364:
365: l_interest_amt := 0;
366: l_interest_due := 0;
495: END IF;
496: END IF;
497: END IF;
498: IF(NVL(l_debug_enabled,'N')='Y') THEN
499: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_due');
500: END IF;
501:
502: RETURN l_interest_due;
503: EXCEPTION
550: l_api_version CONSTANT NUMBER := 1.0;
551: x_msg_count NUMBER;
552: x_msg_data VARCHAR2(2000);
553: l_debug_enabled VARCHAR2(1);
554: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_BAL';
555:
556: l_start_date DATE;
557: l_principal_basis okl_k_rate_params.principal_basis_code%TYPE;
558: l_principal_balance_tbl okl_variable_interest_pvt.principal_balance_tbl_typ;
623:
624: BEGIN
625: l_debug_enabled := okl_debug_pub.check_log_enabled;
626: IF(NVL(l_debug_enabled,'N')='Y') THEN
627: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_bal');
628: END IF;
629:
630: l_principal_bal := 0;
631: x_return_status := OKL_API.G_RET_STS_SUCCESS;
717: l_principal_bal := l_principal_balance_tbl(l_principal_balance_tbl.COUNT).principal_balance;
718: END IF;
719:
720: IF(NVL(l_debug_enabled,'N')='Y') THEN
721: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_bal');
722: END IF;
723:
724: RETURN l_principal_bal;
725: EXCEPTION
783: p_from_date IN DATE,
784: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
785:
786: l_debug_enabled VARCHAR2(1);
787: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_PAID';
788: x_msg_count NUMBER;
789: x_msg_data VARCHAR2(2000);
790:
791: l_principal_paid NUMBER;
876:
877: BEGIN
878: l_debug_enabled := okl_debug_pub.check_log_enabled;
879: IF(NVL(l_debug_enabled,'N')='Y') THEN
880: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_paid');
881: END IF;
882:
883: l_principal_paid := 0;
884: x_return_status := OKL_API.G_RET_STS_SUCCESS;
891: -- End bug 6456733
892: FETCH l_principal_paid_csr INTO l_principal_paid;
893: CLOSE l_principal_paid_csr;
894: IF(NVL(l_debug_enabled,'N')='Y') THEN
895: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_paid');
896: END IF;
897:
898: RETURN l_principal_paid;
899: EXCEPTION
933: x_return_status OUT NOCOPY VARCHAR2,
934: p_khr_id IN NUMBER) RETURN VARCHAR2 IS
935:
936: l_debug_enabled VARCHAR2(1);
937: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_RATE_CHANGE_FLAG';
938: x_msg_count NUMBER;
939: x_msg_data VARCHAR2(2000);
940:
941: l_interest_rate_change_flag VARCHAR2(1);
950: l_var_int_params_rec l_var_int_params_csr%ROWTYPE;
951: BEGIN
952: l_debug_enabled := okl_debug_pub.check_log_enabled;
953: IF(NVL(l_debug_enabled,'N')='Y') THEN
954: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_rate_change_flag');
955: END IF;
956:
957: l_interest_rate_change_flag := 'N';
958: IF ( p_khr_id IS NULL ) THEN
976: l_interest_rate_change_flag := 'Y';
977: END IF;
978:
979: IF(NVL(l_debug_enabled,'N')='Y') THEN
980: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_rate_change_flag');
981: END IF;
982:
983: RETURN l_interest_rate_change_flag;
984: EXCEPTION
1034: l_api_version CONSTANT NUMBER := 1.0;
1035: x_msg_count NUMBER;
1036: x_msg_data VARCHAR2(2000);
1037: l_debug_enabled VARCHAR2(1);
1038: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_EFFECTIVE_INT_RATE';
1039:
1040: l_interest_rate_tbl okl_variable_interest_pvt.interest_rate_tbl_type;
1041: l_effective_int_rate NUMBER;
1042: l_process_flag okl_product_parameters_v.interest_calculation_basis%TYPE;
1045:
1046: BEGIN
1047: l_debug_enabled := okl_debug_pub.check_log_enabled;
1048: IF(NVL(l_debug_enabled,'N')='Y') THEN
1049: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_effective_int_rate');
1050: END IF;
1051:
1052: l_effective_int_rate := 0;
1053: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1086: l_effective_int_rate := l_interest_rate_tbl(l_interest_rate_tbl.COUNT).rate;
1087: END IF;
1088:
1089: IF(NVL(l_debug_enabled,'N')='Y') THEN
1090: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_effective_int_rate');
1091: END IF;
1092:
1093: RETURN l_effective_int_rate;
1094: EXCEPTION
1132: p_khr_id IN NUMBER,
1133: p_effective_date IN DATE) RETURN NUMBER IS
1134:
1135: l_debug_enabled VARCHAR2(1);
1136: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_DUE_UNBILLED';
1137: x_msg_count NUMBER;
1138: x_msg_data VARCHAR2(2000);
1139:
1140: l_interest_billed NUMBER;
1150: AND khr.id = cp_khr_id;
1151: BEGIN
1152: l_debug_enabled := okl_debug_pub.check_log_enabled;
1153: IF(NVL(l_debug_enabled,'N')='Y') THEN
1154: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_due_unbilled');
1155: END IF;
1156:
1157: l_interest_billed := 0;
1158: l_interest_due := 0;
1186: END IF;
1187: l_interest_due_unbilled := l_interest_due - l_interest_billed;
1188:
1189: IF(NVL(l_debug_enabled,'N')='Y') THEN
1190: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_due_unbilled');
1191: END IF;
1192:
1193: RETURN l_interest_due_unbilled;
1194: EXCEPTION
1234: p_from_date IN DATE,
1235: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
1236:
1237: l_debug_enabled VARCHAR2(1);
1238: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_BILLED';
1239: x_msg_count NUMBER;
1240: x_msg_data VARCHAR2(2000);
1241:
1242: l_principal_billed NUMBER;
1291:
1292: BEGIN
1293: l_debug_enabled := okl_debug_pub.check_log_enabled;
1294: IF(NVL(l_debug_enabled,'N')='Y') THEN
1295: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_billed');
1296: END IF;
1297:
1298: l_principal_billed := 0;
1299: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1308: FETCH l_principal_billed_csr INTO l_principal_billed;
1309: CLOSE l_principal_billed_csr;
1310:
1311: IF(NVL(l_debug_enabled,'N')='Y') THEN
1312: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_billed');
1313: END IF;
1314:
1315: RETURN l_principal_billed;
1316: EXCEPTION
1351: p_khr_id IN NUMBER,
1352: p_effective_date IN DATE) RETURN NUMBER IS
1353:
1354: l_debug_enabled VARCHAR2(1);
1355: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_FLOAT_FACTOR_BILLED';
1356: x_msg_count NUMBER;
1357: x_msg_data VARCHAR2(2000);
1358:
1359: l_float_factor_billed NUMBER;
1395: -- End - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
1396: BEGIN
1397: l_debug_enabled := okl_debug_pub.check_log_enabled;
1398: IF(NVL(l_debug_enabled,'N')='Y') THEN
1399: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_float_factor_billed');
1400: END IF;
1401:
1402: l_float_factor_billed := 0;
1403: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1409: FETCH l_float_billed_csr INTO l_float_factor_billed;
1410: CLOSE l_float_billed_csr;
1411:
1412: IF(NVL(l_debug_enabled,'N')='Y') THEN
1413: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_float_factor_billed');
1414: END IF;
1415:
1416: RETURN l_float_factor_billed;
1417: EXCEPTION
1452: p_khr_id IN NUMBER,
1453: p_effective_date IN DATE) RETURN NUMBER IS
1454:
1455: l_debug_enabled VARCHAR2(1);
1456: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LOAN_PAYMENT_BILLED';
1457: x_msg_count NUMBER;
1458: x_msg_data VARCHAR2(2000);
1459:
1460: l_loan_payment_billed NUMBER;
1497:
1498: BEGIN
1499: l_debug_enabled := okl_debug_pub.check_log_enabled;
1500: IF(NVL(l_debug_enabled,'N')='Y') THEN
1501: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_loan_payment_billed');
1502: END IF;
1503:
1504: l_loan_payment_billed := 0;
1505: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1511: FETCH l_loan_payment_billed_csr INTO l_loan_payment_billed;
1512: CLOSE l_loan_payment_billed_csr;
1513:
1514: IF(NVL(l_debug_enabled,'N')='Y') THEN
1515: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_loan_payment_billed');
1516: END IF;
1517:
1518: RETURN l_loan_payment_billed;
1519: EXCEPTION
1554: p_khr_id IN NUMBER,
1555: p_effective_date IN DATE) RETURN NUMBER IS
1556:
1557: l_debug_enabled VARCHAR2(1);
1558: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LOAN_PAYMENT_PAID';
1559: x_msg_count NUMBER;
1560: x_msg_data VARCHAR2(2000);
1561:
1562: l_loan_payment_paid NUMBER;
1606:
1607: BEGIN
1608: l_debug_enabled := okl_debug_pub.check_log_enabled;
1609: IF(NVL(l_debug_enabled,'N')='Y') THEN
1610: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_loan_payment_paid');
1611: END IF;
1612:
1613: l_loan_payment_paid := 0;
1614: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1620: FETCH l_laon_payment_csr INTO l_loan_payment_paid;
1621: CLOSE l_laon_payment_csr;
1622:
1623: IF(NVL(l_debug_enabled,'N')='Y') THEN
1624: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_loan_payment_paid');
1625: END IF;
1626:
1627: RETURN l_loan_payment_paid;
1628: EXCEPTION
1662: x_return_status OUT NOCOPY VARCHAR2,
1663: p_khr_id IN NUMBER) RETURN NUMBER IS
1664:
1665: l_debug_enabled VARCHAR2(1);
1666: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_EXCESS_LOAN_PAYMENT';
1667: x_msg_count NUMBER;
1668: x_msg_data VARCHAR2(2000);
1669:
1670: l_excess_loan_payment NUMBER;
1681:
1682: BEGIN
1683: l_debug_enabled := okl_debug_pub.check_log_enabled;
1684: IF(NVL(l_debug_enabled,'N')='Y') THEN
1685: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_excess_loan_payment');
1686: END IF;
1687:
1688: l_excess_loan_payment := 0;
1689: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1695: FETCH l_laon_payment_csr INTO l_excess_loan_payment;
1696: CLOSE l_laon_payment_csr;
1697:
1698: IF(NVL(l_debug_enabled,'N')='Y') THEN
1699: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_excess_loan_payment');
1700: END IF;
1701:
1702: RETURN l_excess_loan_payment;
1703: EXCEPTION
1737: x_return_status OUT NOCOPY VARCHAR2,
1738: p_khr_id IN NUMBER) RETURN DATE IS
1739:
1740: l_debug_enabled VARCHAR2(1);
1741: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LAST_INTERIM_INT_CALC_DATE';
1742: x_msg_count NUMBER;
1743: x_msg_data VARCHAR2(2000);
1744: l_last_interest_date DATE;
1745:
1749: WHERE id = cp_khr_id;
1750: BEGIN
1751: l_debug_enabled := okl_debug_pub.check_log_enabled;
1752: IF(NVL(l_debug_enabled,'N')='Y') THEN
1753: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_last_interim_int_calc_date');
1754: END IF;
1755:
1756: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1757: IF ( p_khr_id IS NULL ) THEN
1761: OPEN l_interest_calc_date_csr(p_khr_id);
1762: FETCH l_interest_calc_date_csr INTO l_last_interest_date;
1763: CLOSE l_interest_calc_date_csr;
1764: IF(NVL(l_debug_enabled,'N')='Y') THEN
1765: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_last_interim_int_calc_date');
1766: END IF;
1767: RETURN l_last_interest_date;
1768: EXCEPTION
1769: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1804: p_khr_id IN NUMBER,
1805: p_effective_date IN DATE) RETURN DATE IS
1806:
1807: l_debug_enabled VARCHAR2(1);
1808: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LAST_SCH_INT_CALC_DATE';
1809: x_msg_count NUMBER;
1810: x_msg_data VARCHAR2(2000);
1811: x_no_data_found BOOLEAN;
1812: l_api_version CONSTANT NUMBER := 1.0;
1872:
1873: BEGIN
1874: l_debug_enabled := okl_debug_pub.check_log_enabled;
1875: IF(NVL(l_debug_enabled,'N')='Y') THEN
1876: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_last_sch_int_calc_date');
1877: END IF;
1878: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1879: IF ( p_khr_id IS NULL ) THEN
1880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1972: END IF;
1973: END IF;
1974:
1975: IF(NVL(l_debug_enabled,'N')='Y') THEN
1976: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_last_sch_int_calc_date');
1977: END IF;
1978:
1979: RETURN l_last_interest_date;
1980:
2030: p_khr_id IN NUMBER,
2031: x_invoice_tbl OUT NOCOPY invoice_info_tbl_type) IS
2032:
2033: l_debug_enabled VARCHAR2(1);
2034: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_OPEN_INVOICES';
2035: x_msg_count NUMBER;
2036: x_msg_data VARCHAR2(2000);
2037:
2038: --Begin - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
2082:
2083: BEGIN
2084: l_debug_enabled := okl_debug_pub.check_log_enabled;
2085: IF(NVL(l_debug_enabled,'N')='Y') THEN
2086: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_open_invoices');
2087: END IF;
2088: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2089: IF ( p_khr_id IS NULL ) THEN
2090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2093: OPEN l_invoice_info_csr(p_khr_id);
2094: FETCH l_invoice_info_csr BULK COLLECT INTO x_invoice_tbl;
2095: CLOSE l_invoice_info_csr;
2096: IF(NVL(l_debug_enabled,'N')='Y') THEN
2097: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_open_invoices');
2098: END IF;
2099:
2100: EXCEPTION
2101: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN