[Home] [Help]
224: SAVEPOINT floatingPostProcessor;
225:
226: -- Initialize message list IF p_init_msg_list is set to TRUE.
227: IF FND_API.to_Boolean(p_init_msg_list) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: -- Initialize API return status to SUCCESS
232: x_return_status := FND_API.G_RET_STS_SUCCESS;
348:
349: --
350: -- End of API body
351: --
352: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
353: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
354:
355: EXCEPTION
356: WHEN FND_API.G_EXC_ERROR THEN
357: ROLLBACK TO floatingPostProcessor;
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: x_msg_count := l_msg_count;
360: x_msg_data := l_msg_data;
361: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
362: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
363:
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365: ROLLBACK TO floatingPostProcessor;
365: ROLLBACK TO floatingPostProcessor;
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: x_msg_count := l_msg_count;
368: x_msg_data := l_msg_data;
369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
370: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
371:
372: WHEN OTHERS THEN
373: ROLLBACK TO floatingPostProcessor;
373: ROLLBACK TO floatingPostProcessor;
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: x_msg_count := l_msg_count;
376: x_msg_data := l_msg_data;
377: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
378: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
379:
380: end floatingRatePostProcessing;
381:
446: END IF;
447:
448: -- Initialize message list IF p_init_msg_list is set to TRUE.
449: IF FND_API.to_Boolean(p_init_msg_list) THEN
450: FND_MSG_PUB.initialize;
451: END IF;
452:
453: -- Initialize API return status to SUCCESS
454: x_return_status := FND_API.G_RET_STS_SUCCESS;
465: Exception
466: When No_Data_Found then
467: CLOSE c_terms;
468: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_TERMS');
469: FND_MSG_PUB.Add;
470: RAISE FND_API.G_EXC_ERROR;
471: end;
472:
473: -- rate schedules should have one row
474: l_rate_tbl := lns_financials.getRateSchedule(p_loan_id, 'TERM');
475:
476: if l_rate_tbl.count = 0 then
477: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_RATE_SCHEDULE');
478: FND_MSG_PUB.Add;
479: RAISE FND_API.G_EXC_ERROR;
480: end if;
481:
482: Begin
482: Begin
483: l_amount := lns_financials.getRemainingBalance(p_loan_id);
484: if l_amount <= 0 then
485: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_AMOUNT');
486: FND_MSG_PUB.Add;
487: RAISE FND_API.G_EXC_ERROR;
488: end if;
489:
490: end;
492: --
493: -- End of API body
494: --
495:
496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
497:
498: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
499:
500: EXCEPTION
628: END IF;
629:
630: -- Initialize message list IF p_init_msg_list is set to TRUE.
631: IF FND_API.to_Boolean( p_init_msg_list ) THEN
632: FND_MSG_PUB.initialize;
633: END IF;
634:
635: -- Initialize API return status to SUCCESS
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
651: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
652: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
653: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
654: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
655: FND_MSG_PUB.ADD;
656: RAISE FND_API.G_EXC_ERROR;
657: end if;
658:
659: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
910: IF FND_API.to_Boolean(p_commit) THEN
911: COMMIT WORK;
912: END IF;
913:
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
915: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
916:
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR THEN
919: ROLLBACK TO runAmortization_PVT;
920: x_return_status := FND_API.G_RET_STS_ERROR;
921: x_msg_count := l_msg_count;
922: x_msg_data := l_msg_data;
923: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
924: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
925:
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927: ROLLBACK TO runAmortization_PVT;
927: ROLLBACK TO runAmortization_PVT;
928: x_return_status := FND_API.G_RET_STS_ERROR;
929: x_msg_count := l_msg_count;
930: x_msg_data := l_msg_data;
931: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
932: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
933:
934: WHEN OTHERS THEN
935: ROLLBACK TO runAmortization_PVT;
935: ROLLBACK TO runAmortization_PVT;
936: x_return_status := FND_API.G_RET_STS_ERROR;
937: x_msg_count := l_msg_count;
938: x_msg_data := l_msg_data;
939: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
940: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
941:
942: END runAmortization;
943:
1001: -- we cannot have LN < 0
1002: -- this will be a loan that will never be paid off
1003: if ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount) >= 1 then
1004: FND_MESSAGE.Set_Name('LNS', 'LNS_NEVER_PAYOFF');
1005: FND_MSG_PUB.Add;
1006: RAISE FND_API.G_EXC_ERROR;
1007: end if;
1008:
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1141: END IF;
1142:
1143: -- Initialize message list IF p_init_msg_list is set to TRUE.
1144: IF FND_API.to_Boolean(p_init_msg_list) THEN
1145: FND_MSG_PUB.initialize;
1146: END IF;
1147: -- Initialize API return status to SUCCESS
1148: x_return_status := FND_API.G_RET_STS_SUCCESS;
1149:
1350: IF FND_API.to_Boolean(p_commit) THEN
1351: COMMIT WORK;
1352: END IF;
1353:
1354: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1355: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1356:
1357: Exception
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: ROLLBACK TO preProcessInstallment;
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361: x_msg_count := l_msg_count;
1362: x_msg_data := l_msg_data;
1363: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1364: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1365:
1366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1367: ROLLBACK TO preProcessInstallment;
1367: ROLLBACK TO preProcessInstallment;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: x_msg_count := l_msg_count;
1370: x_msg_data := l_msg_data;
1371: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1372: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1373:
1374: WHEN OTHERS THEN
1375: ROLLBACK TO preProcessInstallment;
1375: ROLLBACK TO preProcessInstallment;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: x_msg_count := l_msg_count;
1378: x_msg_data := l_msg_data;
1379: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1380: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1381:
1382: end preProcessInstallment;
1383:
1444: SAVEPOINT preProcessOpenInstallment;
1445:
1446: -- Initialize message list IF p_init_msg_list is set to TRUE.
1447: IF FND_API.to_Boolean(p_init_msg_list) THEN
1448: FND_MSG_PUB.initialize;
1449: END IF;
1450:
1451: -- Initialize API return status to SUCCESS
1452: x_return_status := FND_API.G_RET_STS_SUCCESS;
1470: ,x_msg_data => l_msg_data);
1471:
1472: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1473: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1474: FND_MSG_PUB.ADD;
1475: RAISE FND_API.G_EXC_ERROR;
1476: end if;
1477:
1478: x_amortization_rec := l_amortization_rec;
1485: IF FND_API.to_Boolean(p_commit) THEN
1486: COMMIT WORK;
1487: END IF;
1488:
1489: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1491:
1492: Exception
1493: WHEN FND_API.G_EXC_ERROR THEN
1494: ROLLBACK TO preProcessOpenInstallment;
1495: x_return_status := FND_API.G_RET_STS_ERROR;
1496: x_msg_count := l_msg_count;
1497: x_msg_data := l_msg_data;
1498: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1500:
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1502: ROLLBACK TO preProcessOpenInstallment;
1502: ROLLBACK TO preProcessOpenInstallment;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: x_msg_count := l_msg_count;
1505: x_msg_data := l_msg_data;
1506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1507: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1508:
1509: WHEN OTHERS THEN
1510: ROLLBACK TO preProcessOpenInstallment;
1510: ROLLBACK TO preProcessOpenInstallment;
1511: x_return_status := FND_API.G_RET_STS_ERROR;
1512: x_msg_count := l_msg_count;
1513: x_msg_data := l_msg_data;
1514: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1515: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1516:
1517: end preProcessOpenInstallment;
1518:
1616: END IF;
1617:
1618: -- Initialize message list IF p_init_msg_list is set to TRUE.
1619: IF FND_API.to_Boolean(p_init_msg_list) THEN
1620: FND_MSG_PUB.initialize;
1621: END IF;
1622:
1623: -- Initialize API return status to SUCCESS
1624: x_return_status := FND_API.G_RET_STS_SUCCESS;
1784:
1785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1786: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1787: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1788: FND_MSG_PUB.ADD;
1789: RAISE FND_API.G_EXC_ERROR;
1790: end if;
1791: end if;
1792:
1803:
1804: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1805: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1806: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1807: FND_MSG_PUB.ADD;
1808: RAISE FND_API.G_EXC_ERROR;
1809: end if;
1810:
1811: l_fee_structures.delete;
1828:
1829: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1830: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1831: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1832: FND_MSG_PUB.ADD;
1833: RAISE FND_API.G_EXC_ERROR;
1834: end if;
1835: end if;
1836:
1846: ,x_msg_data => l_msg_data);
1847:
1848: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1849: FND_MESSAGE.SET_NAME('LNS', 'LNS_READ_FEE_ERROR');
1850: FND_MSG_PUB.ADD;
1851: RAISE FND_API.G_EXC_ERROR;
1852: end if;
1853:
1854: for k in 1..l_fees_tbl_1.count loop
1878: IF FND_API.to_Boolean(p_commit) THEN
1879: COMMIT WORK;
1880: END IF;
1881:
1882: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1884:
1885: EXCEPTION
1886: WHEN FND_API.G_EXC_ERROR THEN
1887: ROLLBACK TO getInstallment;
1888: x_return_status := FND_API.G_RET_STS_ERROR;
1889: x_msg_count := l_msg_count;
1890: x_msg_data := l_msg_data;
1891: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1892: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1893:
1894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1895: ROLLBACK TO getInstallment;
1895: ROLLBACK TO getInstallment;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: x_msg_count := l_msg_count;
1898: x_msg_data := l_msg_data;
1899: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1900: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1901:
1902: WHEN OTHERS THEN
1903: ROLLBACK TO getInstallment;
1903: ROLLBACK TO getInstallment;
1904: x_return_status := FND_API.G_RET_STS_ERROR;
1905: x_msg_count := l_msg_count;
1906: x_msg_data := l_msg_data;
1907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1908: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1909:
1910: end getInstallment;
1911:
2085: SAVEPOINT getOpenInstallment;
2086:
2087: -- Initialize message list IF p_init_msg_list is set to TRUE.
2088: IF FND_API.to_Boolean(p_init_msg_list) THEN
2089: FND_MSG_PUB.initialize;
2090: END IF;
2091:
2092: -- Initialize API return status to SUCCESS
2093: x_return_status := FND_API.G_RET_STS_SUCCESS;
2131: ,x_msg_data => l_msg_data);
2132:
2133: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2134: FND_MESSAGE.SET_NAME('LNS', 'LNS_READ_FEE_ERROR');
2135: FND_MSG_PUB.ADD;
2136: RAISE FND_API.G_EXC_ERROR;
2137: end if;
2138:
2139: for k in 1..l_fees_tbl_1.count loop
2160: -- --------------------------------------------------------------------
2161: -- End of API body
2162: -- --------------------------------------------------------------------
2163:
2164: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2165: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2166:
2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: ROLLBACK TO getOpenInstallment;
2170: x_return_status := FND_API.G_RET_STS_ERROR;
2171: x_msg_count := l_msg_count;
2172: x_msg_data := l_msg_data;
2173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2174: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2175:
2176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2177: ROLLBACK TO getOpenInstallment;
2177: ROLLBACK TO getOpenInstallment;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: x_msg_count := l_msg_count;
2180: x_msg_data := l_msg_data;
2181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2182: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2183:
2184: WHEN OTHERS THEN
2185: ROLLBACK TO getOpenInstallment;
2185: ROLLBACK TO getOpenInstallment;
2186: x_return_status := FND_API.G_RET_STS_ERROR;
2187: x_msg_count := l_msg_count;
2188: x_msg_data := l_msg_data;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2191:
2192: end getOpenInstallment;
2193:
6543: end if;
6544: exception
6545: when others then
6546: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6547: FND_MSG_PUB.ADD;
6548: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6549: RAISE FND_API.G_EXC_ERROR;
6550: end;
6551:
6544: exception
6545: when others then
6546: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6547: FND_MSG_PUB.ADD;
6548: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6549: RAISE FND_API.G_EXC_ERROR;
6550: end;
6551:
6552: l_fees_tbl.delete;
6680: end if;
6681: exception
6682: when others then
6683: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6684: FND_MSG_PUB.ADD;
6685: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6686: RAISE FND_API.G_EXC_ERROR;
6687: end;
6688:
6681: exception
6682: when others then
6683: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6684: FND_MSG_PUB.ADD;
6685: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6686: RAISE FND_API.G_EXC_ERROR;
6687: end;
6688:
6689: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_wtd_balance = ' || l_wtd_balance);
6961: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6962:
6963: -- Initialize message list IF p_init_msg_list is set to TRUE.
6964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6965: FND_MSG_PUB.initialize;
6966: END IF;
6967:
6968: -- Initialize API return status to SUCCESS
6969: x_return_status := FND_API.G_RET_STS_SUCCESS;
6984: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6985: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6986: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6987: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
6988: FND_MSG_PUB.ADD;
6989: RAISE FND_API.G_EXC_ERROR;
6990: end if;
6991:
6992: -- check if disbursements exist and is amount > 0 as per karthik instructions
6995: close c_disbursements;
6996:
6997: if l_invalid_disb > 0 then
6998: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_REQ_DATE_ERR');
6999: FND_MSG_PUB.ADD;
7000: RAISE FND_API.G_EXC_ERROR;
7001: end if;
7002:
7003: if l_disb_amount > 0 then
7047: --
7048: -- End of API body
7049: --
7050:
7051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7052:
7053: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7054:
7055: EXCEPTION
7057: ROLLBACK TO runLoanProjection_PVT;
7058: x_return_status := FND_API.G_RET_STS_ERROR;
7059: x_msg_count := l_msg_count;
7060: x_msg_data := l_msg_data;
7061: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7062: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7063:
7064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7065: ROLLBACK TO runLoanProjection_PVT;
7065: ROLLBACK TO runLoanProjection_PVT;
7066: x_return_status := FND_API.G_RET_STS_ERROR;
7067: x_msg_count := l_msg_count;
7068: x_msg_data := l_msg_data;
7069: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7070: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7071:
7072: WHEN OTHERS THEN
7073: ROLLBACK TO runLoanProjection_PVT;
7073: ROLLBACK TO runLoanProjection_PVT;
7074: x_return_status := FND_API.G_RET_STS_ERROR;
7075: x_msg_count := l_msg_count;
7076: x_msg_data := l_msg_data;
7077: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7078: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7079:
7080: END runOpenProjection;
7081:
7185: END LOOP;
7186: Exception
7187: When No_Data_Found then
7188: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_RATES');
7189: FND_MSG_PUB.Add;
7190: RAISE FND_API.G_EXC_ERROR;
7191: End;
7192:
7193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8076: Exception
8077: When No_Data_Found then
8078: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LOAN ID: ' || l_loan_id || ' not found');
8079: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_LOAN_ID');
8080: FND_MSG_PUB.Add;
8081: RAISE FND_API.G_EXC_ERROR;
8082:
8083: When Others then
8084: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Err: ' || sqlerrm);
8345: COMMIT WORK;
8346: END IF;
8347:
8348:
8349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8350:
8351: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8352:
8353: EXCEPTION
8352:
8353: EXCEPTION
8354: WHEN FND_API.G_EXC_ERROR THEN
8355: ROLLBACK TO shiftLoan;
8356: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8357: x_return_status := FND_API.G_RET_STS_ERROR;
8358: x_msg_count := l_msg_count;
8359: x_msg_data := l_msg_data;
8360: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8360: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8361:
8362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8363: ROLLBACK TO shiftLoan;
8364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8365: x_return_status := FND_API.G_RET_STS_ERROR;
8366: x_msg_count := l_msg_count;
8367: x_msg_data := l_msg_data;
8368: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8368: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8369:
8370: WHEN OTHERS THEN
8371: ROLLBACK TO shiftLoan;
8372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8373: x_return_status := FND_API.G_RET_STS_ERROR;
8374: x_msg_count := l_msg_count;
8375: x_msg_data := l_msg_data;
8376: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8459: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
8460: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
8461: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
8462: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
8463: FND_MSG_PUB.ADD;
8464: RAISE FND_API.G_EXC_ERROR;
8465: end if;
8466:
8467: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
8510: WHEN OTHERS THEN
8511: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
8512: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
8513: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
8514: FND_MSG_PUB.ADD;
8515: RAISE FND_API.G_EXC_ERROR;
8516: END;
8517:
8518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_int_first_pay_date: ' || l_new_int_first_pay_date);
8520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date: ' || l_new_maturity_date);
8521:
8522: if l_new_int_first_pay_date is null or l_new_int_first_pay_date < p_new_start_date then
8523: FND_MESSAGE.SET_NAME('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
8524: FND_MSG_PUB.ADD;
8525: RAISE FND_API.G_EXC_ERROR;
8526: end if;
8527:
8528: if l_new_int_first_pay_date > l_new_maturity_date then
8526: end if;
8527:
8528: if l_new_int_first_pay_date > l_new_maturity_date then
8529: FND_MESSAGE.SET_NAME('LNS', 'LNS_PAYMENT_START_DATE_ERROR1');
8530: FND_MSG_PUB.ADD;
8531: RAISE FND_API.G_EXC_ERROR;
8532: end if;
8533:
8534: if l_loan_details.PRIN_FIRST_PAY_DATE is not null then
8533:
8534: if l_loan_details.PRIN_FIRST_PAY_DATE is not null then
8535: if l_new_prin_first_pay_date is null or l_new_prin_first_pay_date < p_new_start_date then
8536: FND_MESSAGE.SET_NAME('LNS', 'LNS_PRIN_PAY_START_DATE_ERROR2');
8537: FND_MSG_PUB.ADD;
8538: RAISE FND_API.G_EXC_ERROR;
8539: end if;
8540:
8541: if l_new_prin_first_pay_date > l_new_maturity_date then
8539: end if;
8540:
8541: if l_new_prin_first_pay_date > l_new_maturity_date then
8542: FND_MESSAGE.SET_NAME('LNS', 'LNS_PRIN_PAY_START_DATE_ERROR1');
8543: FND_MSG_PUB.ADD;
8544: RAISE FND_API.G_EXC_ERROR;
8545: end if;
8546: end if;
8547:
8556:
8557: --
8558: -- End of API body
8559: --
8560: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8561:
8562: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8563: EXCEPTION
8564: WHEN FND_API.G_EXC_ERROR THEN
8562: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8563: EXCEPTION
8564: WHEN FND_API.G_EXC_ERROR THEN
8565: ROLLBACK TO shiftLoanDates;
8566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8567: x_return_status := FND_API.G_RET_STS_ERROR;
8568: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8569:
8570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8568: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8569:
8570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8571: ROLLBACK TO shiftLoanDates;
8572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8573: x_return_status := FND_API.G_RET_STS_ERROR;
8574: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8575:
8576: WHEN OTHERS THEN
8574: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8575:
8576: WHEN OTHERS THEN
8577: ROLLBACK TO shiftLoanDates;
8578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8579: x_return_status := FND_API.G_RET_STS_ERROR;
8580: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8581: end shiftLoanDates;
8582:
8887:
8888: -- these dates should be further restricted
8889: if p_loan_details.loan_status = 'PAIDOFF' then
8890: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_ALREADY');
8891: FND_MSG_PUB.Add;
8892: RAISE FND_API.G_EXC_ERROR;
8893:
8894: --karamach --Bug5295446 --Need to prevent payoff for loans in Approved status as well
8895: --elsif p_loan_details.loan_status = 'INCOMPLETE' or p_loan_details.loan_status = 'DELETED' or
8895: --elsif p_loan_details.loan_status = 'INCOMPLETE' or p_loan_details.loan_status = 'DELETED' or
8896: -- p_loan_details.loan_status = 'REJECTED' or p_loan_details.loan_status = 'PENDING' then
8897: elsif p_loan_details.loan_status IN ('INCOMPLETE','DELETED','REJECTED','PENDING') then
8898: FND_MESSAGE.Set_Name('LNS', 'LNS_INVOICE_SUMMARY_ERROR');
8899: FND_MSG_PUB.Add;
8900: RAISE FND_API.G_EXC_ERROR;
8901: end if;
8902:
8903: if p_payoff_date < p_loan_details.last_interest_accrual then
8903: if p_payoff_date < p_loan_details.last_interest_accrual then
8904: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8905: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY');
8906: FND_MESSAGE.SET_TOKEN('PAYOFF_DATE', fnd_date.date_to_displaydate(p_loan_details.last_interest_accrual));
8907: FND_MSG_PUB.Add;
8908: RAISE FND_API.G_EXC_ERROR;
8909: end if;
8910:
8911: if p_payoff_date < p_loan_details.last_activity_date then
8912: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8913: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY2');
8914: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LAST_ACTIVITY_DATE');
8915: FND_MESSAGE.SET_TOKEN('VALUE', fnd_date.date_to_displaydate(p_loan_details.last_activity_date));
8916: FND_MSG_PUB.Add;
8917: RAISE FND_API.G_EXC_ERROR;
8918: end if;
8919:
8920: if p_reason = 'PAYOFF' then
8938: -- --------------------------------------------------------------------
8939: -- End of API body
8940: --
8941:
8942: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8943:
8944: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8945:
8946: exception
8948: WHEN FND_API.G_EXC_ERROR THEN
8949: x_return_status := FND_API.G_RET_STS_ERROR;
8950: x_msg_count := l_msg_count;
8951: x_msg_data := l_msg_data;
8952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8953: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8954:
8955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8957: x_msg_count := l_msg_count;
8958: x_msg_data := l_msg_data;
8959: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8960: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8961:
8962: WHEN OTHERS THEN
8963: x_return_status := FND_API.G_RET_STS_ERROR;
8962: WHEN OTHERS THEN
8963: x_return_status := FND_API.G_RET_STS_ERROR;
8964: x_msg_count := l_msg_count;
8965: x_msg_data := l_msg_data;
8966: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8967: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8968:
8969: end;
8970:
9137: END IF;
9138:
9139: -- Initialize message list IF p_init_msg_list is set to TRUE.
9140: IF FND_API.to_Boolean(p_init_msg_list) THEN
9141: FND_MSG_PUB.initialize;
9142: END IF;
9143:
9144: -- Initialize API return status to SUCCESS
9145: x_return_status := FND_API.G_RET_STS_SUCCESS;
9166: ,x_return_status => l_return_status
9167: ,x_msg_count => l_msg_count
9168: ,x_msg_data => l_msg_data);
9169: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9170: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
9171: RAISE FND_API.G_EXC_ERROR;
9172: END IF;
9173:
9174: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing late fees');
9216: ,x_msg_data => l_msg_data);
9217:
9218: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
9219: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
9220: FND_MSG_PUB.ADD;
9221: RAISE FND_API.G_EXC_ERROR;
9222: end if;
9223: end if;
9224:
9432: -- --------------------------------------------------------------------
9433: -- End of API body
9434: --
9435:
9436: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9437:
9438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9439:
9440: EXCEPTION
9442: ROLLBACK TO calculatePayoff;
9443: x_return_status := FND_API.G_RET_STS_ERROR;
9444: x_msg_count := l_msg_count;
9445: x_msg_data := l_msg_data;
9446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9447: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9448:
9449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9450: ROLLBACK TO calculatePayoff;
9450: ROLLBACK TO calculatePayoff;
9451: x_return_status := FND_API.G_RET_STS_ERROR;
9452: x_msg_count := l_msg_count;
9453: x_msg_data := l_msg_data;
9454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9455: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9456:
9457: WHEN OTHERS THEN
9458: ROLLBACK TO calculatePayoff;
9458: ROLLBACK TO calculatePayoff;
9459: x_return_status := FND_API.G_RET_STS_ERROR;
9460: x_msg_count := l_msg_count;
9461: x_msg_data := l_msg_data;
9462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9463: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9464:
9465: end;
9466:
9556: x_ppy := 1;
9557: else
9558: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_INTERVAL');
9559: FND_MESSAGE.SET_TOKEN('INTERVAL',p_frequency);
9560: FND_MSG_PUB.Add;
9561: RAISE FND_API.G_EXC_ERROR;
9562: end if;
9563:
9564: x_days_in_period := p_days_in_year/x_ppy;
9977: When Others then
9978: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
9979: --seed this message
9980: -- FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
9981: -- FND_MSG_PUB.Add;
9982: -- RAISE FND_API.G_EXC_ERROR;
9983:
9984: end getAnnualRate;
9985:
10264: When Others then
10265: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
10266: --seed this message
10267: FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
10268: FND_MSG_PUB.Add;
10269: RAISE FND_API.G_EXC_ERROR;
10270: */
10271: end getRemainingBalance;
10272:
10642:
10643: -- validate the from and to Dates
10644: if p_from_date > p_to_date then
10645: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
10646: FND_MSG_PUB.Add;
10647: RAISE FND_API.G_EXC_ERROR;
10648: end if;
10649:
10650: l_loan_activities(1).ending_balance := 0;
10848:
10849: -- validate the from and to Dates
10850: if p_from_date > p_to_date then
10851: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
10852: FND_MSG_PUB.Add;
10853: RAISE FND_API.G_EXC_ERROR;
10854: end if;
10855:
10856: OPEN c_loan_phase(p_loan_id);
10865:
10866: -- validate if dates are within the boundaries of loan_start and maturity_dates
10867: if p_to_date > l_loan_details.maturity_date then
10868: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR1');
10869: FND_MSG_PUB.Add;
10870: RAISE FND_API.G_EXC_ERROR;
10871: end if;
10872:
10873: if p_from_date < l_loan_details.loan_start_date then
10871: end if;
10872:
10873: if p_from_date < l_loan_details.loan_start_date then
10874: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
10875: FND_MSG_PUB.Add;
10876: RAISE FND_API.G_EXC_ERROR;
10877: end if;
10878:
10879: -- get all the balance activities on the loan
12162: dbms_xmlparser.freeParser(l_parser);
12163: dbms_xmldom.freeDocument(l_doc);
12164: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
12165: FND_MESSAGE.SET_TOKEN('ERROR' ,sqlerrm);
12166: FND_MSG_PUB.Add;
12167: END;
12168:
12169:
12170: -- This procedure calculates interest credit on early payment