[Home] [Help]
20: p_from_date IN DATE,
21: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
22:
23: l_debug_enabled VARCHAR2(1);
24: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_BILLED';
25: x_msg_count NUMBER;
26: x_msg_data VARCHAR2(2000);
27:
28: l_interest_billed NUMBER;
51:
52: BEGIN
53: l_debug_enabled := okl_debug_pub.check_log_enabled;
54: IF(NVL(l_debug_enabled,'N')='Y') THEN
55: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_billed');
56: END IF;
57:
58: l_interest_billed := 0;
59: x_return_status := OKL_API.G_RET_STS_SUCCESS;
66: FETCH l_interest_billed_csr INTO l_interest_billed;
67: CLOSE l_interest_billed_csr;
68:
69: IF(NVL(l_debug_enabled,'N')='Y') THEN
70: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_billed');
71: END IF;
72:
73: RETURN l_interest_billed;
74: EXCEPTION
109: p_from_date IN DATE,
110: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
111:
112: l_debug_enabled VARCHAR2(1);
113: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_PAID';
114: x_msg_count NUMBER;
115: x_msg_data VARCHAR2(2000);
116:
117: l_interest_paid NUMBER;
155:
156: BEGIN
157: l_debug_enabled := okl_debug_pub.check_log_enabled;
158: IF(NVL(l_debug_enabled,'N')='Y') THEN
159: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_paid');
160: END IF;
161:
162: l_interest_paid := 0;
163: x_return_status := OKL_API.G_RET_STS_SUCCESS;
170: FETCH l_interest_paid_csr INTO l_interest_paid;
171: CLOSE l_interest_paid_csr;
172:
173: IF(NVL(l_debug_enabled,'N')='Y') THEN
174: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_paid');
175: END IF;
176:
177: RETURN l_interest_paid;
178: EXCEPTION
215: l_api_version CONSTANT NUMBER := 1.0;
216: x_msg_count NUMBER;
217: x_msg_data VARCHAR2(2000);
218: l_debug_enabled VARCHAR2(1);
219: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_DUE';
220:
221: l_principal_basis okl_k_rate_params.principal_basis_code%TYPE;
222: l_start_date DATE;
223: l_end_date DATE;
272:
273: BEGIN
274: l_debug_enabled := okl_debug_pub.check_log_enabled;
275: IF(NVL(l_debug_enabled,'N')='Y') THEN
276: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_due');
277: END IF;
278:
279: l_interest_amt := 0;
280: l_interest_due := 0;
409: END IF;
410: END IF;
411: END IF;
412: IF(NVL(l_debug_enabled,'N')='Y') THEN
413: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_due');
414: END IF;
415:
416: RETURN l_interest_due;
417: EXCEPTION
464: l_api_version CONSTANT NUMBER := 1.0;
465: x_msg_count NUMBER;
466: x_msg_data VARCHAR2(2000);
467: l_debug_enabled VARCHAR2(1);
468: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_BAL';
469:
470: l_start_date DATE;
471: l_principal_basis okl_k_rate_params.principal_basis_code%TYPE;
472: l_principal_balance_tbl okl_variable_interest_pvt.principal_balance_tbl_typ;
537:
538: BEGIN
539: l_debug_enabled := okl_debug_pub.check_log_enabled;
540: IF(NVL(l_debug_enabled,'N')='Y') THEN
541: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_bal');
542: END IF;
543:
544: l_principal_bal := 0;
545: x_return_status := OKL_API.G_RET_STS_SUCCESS;
631: l_principal_bal := l_principal_balance_tbl(l_principal_balance_tbl.COUNT).principal_balance;
632: END IF;
633:
634: IF(NVL(l_debug_enabled,'N')='Y') THEN
635: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_bal');
636: END IF;
637:
638: RETURN l_principal_bal;
639: EXCEPTION
697: p_from_date IN DATE,
698: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
699:
700: l_debug_enabled VARCHAR2(1);
701: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_PAID';
702: x_msg_count NUMBER;
703: x_msg_data VARCHAR2(2000);
704:
705: l_principal_paid NUMBER;
829:
830: BEGIN
831: l_debug_enabled := okl_debug_pub.check_log_enabled;
832: IF(NVL(l_debug_enabled,'N')='Y') THEN
833: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_paid');
834: END IF;
835:
836: l_principal_paid := 0;
837: x_return_status := OKL_API.G_RET_STS_SUCCESS;
844: -- End bug 6456733
845: FETCH l_principal_paid_csr INTO l_principal_paid;
846: CLOSE l_principal_paid_csr;
847: IF(NVL(l_debug_enabled,'N')='Y') THEN
848: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_paid');
849: END IF;
850:
851: RETURN l_principal_paid;
852: EXCEPTION
886: x_return_status OUT NOCOPY VARCHAR2,
887: p_khr_id IN NUMBER) RETURN VARCHAR2 IS
888:
889: l_debug_enabled VARCHAR2(1);
890: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_RATE_CHANGE_FLAG';
891: x_msg_count NUMBER;
892: x_msg_data VARCHAR2(2000);
893:
894: l_interest_rate_change_flag VARCHAR2(1);
903: l_var_int_params_rec l_var_int_params_csr%ROWTYPE;
904: BEGIN
905: l_debug_enabled := okl_debug_pub.check_log_enabled;
906: IF(NVL(l_debug_enabled,'N')='Y') THEN
907: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_rate_change_flag');
908: END IF;
909:
910: l_interest_rate_change_flag := 'N';
911: IF ( p_khr_id IS NULL ) THEN
929: l_interest_rate_change_flag := 'Y';
930: END IF;
931:
932: IF(NVL(l_debug_enabled,'N')='Y') THEN
933: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_rate_change_flag');
934: END IF;
935:
936: RETURN l_interest_rate_change_flag;
937: EXCEPTION
987: l_api_version CONSTANT NUMBER := 1.0;
988: x_msg_count NUMBER;
989: x_msg_data VARCHAR2(2000);
990: l_debug_enabled VARCHAR2(1);
991: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_EFFECTIVE_INT_RATE';
992:
993: l_interest_rate_tbl okl_variable_interest_pvt.interest_rate_tbl_type;
994: l_effective_int_rate NUMBER;
995: l_process_flag okl_product_parameters_v.interest_calculation_basis%TYPE;
998:
999: BEGIN
1000: l_debug_enabled := okl_debug_pub.check_log_enabled;
1001: IF(NVL(l_debug_enabled,'N')='Y') THEN
1002: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_effective_int_rate');
1003: END IF;
1004:
1005: l_effective_int_rate := 0;
1006: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1039: l_effective_int_rate := l_interest_rate_tbl(l_interest_rate_tbl.COUNT).rate;
1040: END IF;
1041:
1042: IF(NVL(l_debug_enabled,'N')='Y') THEN
1043: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_effective_int_rate');
1044: END IF;
1045:
1046: RETURN l_effective_int_rate;
1047: EXCEPTION
1085: p_khr_id IN NUMBER,
1086: p_effective_date IN DATE) RETURN NUMBER IS
1087:
1088: l_debug_enabled VARCHAR2(1);
1089: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_INTEREST_DUE_UNBILLED';
1090: x_msg_count NUMBER;
1091: x_msg_data VARCHAR2(2000);
1092:
1093: l_interest_billed NUMBER;
1103: AND khr.id = cp_khr_id;
1104: BEGIN
1105: l_debug_enabled := okl_debug_pub.check_log_enabled;
1106: IF(NVL(l_debug_enabled,'N')='Y') THEN
1107: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_interest_due_unbilled');
1108: END IF;
1109:
1110: l_interest_billed := 0;
1111: l_interest_due := 0;
1139: END IF;
1140: l_interest_due_unbilled := l_interest_due - l_interest_billed;
1141:
1142: IF(NVL(l_debug_enabled,'N')='Y') THEN
1143: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_interest_due_unbilled');
1144: END IF;
1145:
1146: RETURN l_interest_due_unbilled;
1147: EXCEPTION
1187: p_from_date IN DATE,
1188: p_to_date IN DATE DEFAULT SYSDATE) RETURN NUMBER IS
1189:
1190: l_debug_enabled VARCHAR2(1);
1191: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_PRINCIPAL_BILLED';
1192: x_msg_count NUMBER;
1193: x_msg_data VARCHAR2(2000);
1194:
1195: l_principal_billed NUMBER;
1244:
1245: BEGIN
1246: l_debug_enabled := okl_debug_pub.check_log_enabled;
1247: IF(NVL(l_debug_enabled,'N')='Y') THEN
1248: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_principal_billed');
1249: END IF;
1250:
1251: l_principal_billed := 0;
1252: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1261: FETCH l_principal_billed_csr INTO l_principal_billed;
1262: CLOSE l_principal_billed_csr;
1263:
1264: IF(NVL(l_debug_enabled,'N')='Y') THEN
1265: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_principal_billed');
1266: END IF;
1267:
1268: RETURN l_principal_billed;
1269: EXCEPTION
1304: p_khr_id IN NUMBER,
1305: p_effective_date IN DATE) RETURN NUMBER IS
1306:
1307: l_debug_enabled VARCHAR2(1);
1308: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_FLOAT_FACTOR_BILLED';
1309: x_msg_count NUMBER;
1310: x_msg_data VARCHAR2(2000);
1311:
1312: l_float_factor_billed NUMBER;
1348: -- End - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
1349: BEGIN
1350: l_debug_enabled := okl_debug_pub.check_log_enabled;
1351: IF(NVL(l_debug_enabled,'N')='Y') THEN
1352: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_float_factor_billed');
1353: END IF;
1354:
1355: l_float_factor_billed := 0;
1356: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1362: FETCH l_float_billed_csr INTO l_float_factor_billed;
1363: CLOSE l_float_billed_csr;
1364:
1365: IF(NVL(l_debug_enabled,'N')='Y') THEN
1366: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_float_factor_billed');
1367: END IF;
1368:
1369: RETURN l_float_factor_billed;
1370: EXCEPTION
1405: p_khr_id IN NUMBER,
1406: p_effective_date IN DATE) RETURN NUMBER IS
1407:
1408: l_debug_enabled VARCHAR2(1);
1409: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LOAN_PAYMENT_BILLED';
1410: x_msg_count NUMBER;
1411: x_msg_data VARCHAR2(2000);
1412:
1413: l_loan_payment_billed NUMBER;
1450:
1451: BEGIN
1452: l_debug_enabled := okl_debug_pub.check_log_enabled;
1453: IF(NVL(l_debug_enabled,'N')='Y') THEN
1454: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_loan_payment_billed');
1455: END IF;
1456:
1457: l_loan_payment_billed := 0;
1458: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1464: FETCH l_loan_payment_billed_csr INTO l_loan_payment_billed;
1465: CLOSE l_loan_payment_billed_csr;
1466:
1467: IF(NVL(l_debug_enabled,'N')='Y') THEN
1468: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_loan_payment_billed');
1469: END IF;
1470:
1471: RETURN l_loan_payment_billed;
1472: EXCEPTION
1507: p_khr_id IN NUMBER,
1508: p_effective_date IN DATE) RETURN NUMBER IS
1509:
1510: l_debug_enabled VARCHAR2(1);
1511: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LOAN_PAYMENT_PAID';
1512: x_msg_count NUMBER;
1513: x_msg_data VARCHAR2(2000);
1514:
1515: l_loan_payment_paid NUMBER;
1559:
1560: BEGIN
1561: l_debug_enabled := okl_debug_pub.check_log_enabled;
1562: IF(NVL(l_debug_enabled,'N')='Y') THEN
1563: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_loan_payment_paid');
1564: END IF;
1565:
1566: l_loan_payment_paid := 0;
1567: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1573: FETCH l_laon_payment_csr INTO l_loan_payment_paid;
1574: CLOSE l_laon_payment_csr;
1575:
1576: IF(NVL(l_debug_enabled,'N')='Y') THEN
1577: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_loan_payment_paid');
1578: END IF;
1579:
1580: RETURN l_loan_payment_paid;
1581: EXCEPTION
1615: x_return_status OUT NOCOPY VARCHAR2,
1616: p_khr_id IN NUMBER) RETURN NUMBER IS
1617:
1618: l_debug_enabled VARCHAR2(1);
1619: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_EXCESS_LOAN_PAYMENT';
1620: x_msg_count NUMBER;
1621: x_msg_data VARCHAR2(2000);
1622:
1623: l_excess_loan_payment NUMBER;
1634:
1635: BEGIN
1636: l_debug_enabled := okl_debug_pub.check_log_enabled;
1637: IF(NVL(l_debug_enabled,'N')='Y') THEN
1638: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_excess_loan_payment');
1639: END IF;
1640:
1641: l_excess_loan_payment := 0;
1642: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1648: FETCH l_laon_payment_csr INTO l_excess_loan_payment;
1649: CLOSE l_laon_payment_csr;
1650:
1651: IF(NVL(l_debug_enabled,'N')='Y') THEN
1652: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_excess_loan_payment');
1653: END IF;
1654:
1655: RETURN l_excess_loan_payment;
1656: EXCEPTION
1690: x_return_status OUT NOCOPY VARCHAR2,
1691: p_khr_id IN NUMBER) RETURN DATE IS
1692:
1693: l_debug_enabled VARCHAR2(1);
1694: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LAST_INTERIM_INT_CALC_DATE';
1695: x_msg_count NUMBER;
1696: x_msg_data VARCHAR2(2000);
1697: l_last_interest_date DATE;
1698:
1702: WHERE id = cp_khr_id;
1703: BEGIN
1704: l_debug_enabled := okl_debug_pub.check_log_enabled;
1705: IF(NVL(l_debug_enabled,'N')='Y') THEN
1706: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_last_interim_int_calc_date');
1707: END IF;
1708:
1709: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1710: IF ( p_khr_id IS NULL ) THEN
1714: OPEN l_interest_calc_date_csr(p_khr_id);
1715: FETCH l_interest_calc_date_csr INTO l_last_interest_date;
1716: CLOSE l_interest_calc_date_csr;
1717: IF(NVL(l_debug_enabled,'N')='Y') THEN
1718: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_last_interim_int_calc_date');
1719: END IF;
1720: RETURN l_last_interest_date;
1721: EXCEPTION
1722: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1757: p_khr_id IN NUMBER,
1758: p_effective_date IN DATE) RETURN DATE IS
1759:
1760: l_debug_enabled VARCHAR2(1);
1761: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_LAST_SCH_INT_CALC_DATE';
1762: x_msg_count NUMBER;
1763: x_msg_data VARCHAR2(2000);
1764: x_no_data_found BOOLEAN;
1765: l_api_version CONSTANT NUMBER := 1.0;
1858:
1859: BEGIN
1860: l_debug_enabled := okl_debug_pub.check_log_enabled;
1861: IF(NVL(l_debug_enabled,'N')='Y') THEN
1862: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_last_sch_int_calc_date');
1863: END IF;
1864: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1865: IF ( p_khr_id IS NULL ) THEN
1866: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2048:
2049: END IF;
2050:
2051: IF(NVL(l_debug_enabled,'N')='Y') THEN
2052: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_last_sch_int_calc_date');
2053: END IF;
2054:
2055: RETURN l_last_interest_date;
2056:
2106: p_khr_id IN NUMBER,
2107: x_invoice_tbl OUT NOCOPY invoice_info_tbl_type) IS
2108:
2109: l_debug_enabled VARCHAR2(1);
2110: l_module CONSTANT fnd_log_messages.MODULE%TYPE := 'okl.plsql.OKL_VARIABLE_INT_UTIL_PVT.GET_OPEN_INVOICES';
2111: x_msg_count NUMBER;
2112: x_msg_data VARCHAR2(2000);
2113:
2114: --Begin - Billing Inline changes - Bug#5898792 - varangan - 23/2/2007
2158:
2159: BEGIN
2160: l_debug_enabled := okl_debug_pub.check_log_enabled;
2161: IF(NVL(l_debug_enabled,'N')='Y') THEN
2162: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRVIUB.pls call get_open_invoices');
2163: END IF;
2164: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2165: IF ( p_khr_id IS NULL ) THEN
2166: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2169: OPEN l_invoice_info_csr(p_khr_id);
2170: FETCH l_invoice_info_csr BULK COLLECT INTO x_invoice_tbl;
2171: CLOSE l_invoice_info_csr;
2172: IF(NVL(l_debug_enabled,'N')='Y') THEN
2173: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRVIUB.pls call get_open_invoices');
2174: END IF;
2175:
2176: EXCEPTION
2177: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN