[Home] [Help]
222: SAVEPOINT floatingPostProcessor;
223:
224: -- Initialize message list IF p_init_msg_list is set to TRUE.
225: IF FND_API.to_Boolean(p_init_msg_list) THEN
226: FND_MSG_PUB.initialize;
227: END IF;
228:
229: -- Initialize API return status to SUCCESS
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: --
348: -- End of API body
349: --
350: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
351: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
352:
353: EXCEPTION
354: WHEN FND_API.G_EXC_ERROR THEN
355: ROLLBACK TO floatingPostProcessor;
356: x_return_status := FND_API.G_RET_STS_ERROR;
357: x_msg_count := l_msg_count;
358: x_msg_data := l_msg_data;
359: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
360: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
361:
362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
363: ROLLBACK TO floatingPostProcessor;
363: ROLLBACK TO floatingPostProcessor;
364: x_return_status := FND_API.G_RET_STS_ERROR;
365: x_msg_count := l_msg_count;
366: x_msg_data := l_msg_data;
367: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
368: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
369:
370: WHEN OTHERS THEN
371: ROLLBACK TO floatingPostProcessor;
371: ROLLBACK TO floatingPostProcessor;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: x_msg_count := l_msg_count;
374: x_msg_data := l_msg_data;
375: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
376: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
377:
378: end floatingRatePostProcessing;
379:
444: END IF;
445:
446: -- Initialize message list IF p_init_msg_list is set to TRUE.
447: IF FND_API.to_Boolean(p_init_msg_list) THEN
448: FND_MSG_PUB.initialize;
449: END IF;
450:
451: -- Initialize API return status to SUCCESS
452: x_return_status := FND_API.G_RET_STS_SUCCESS;
463: Exception
464: When No_Data_Found then
465: CLOSE c_terms;
466: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_TERMS');
467: FND_MSG_PUB.Add;
468: RAISE FND_API.G_EXC_ERROR;
469: end;
470:
471: -- rate schedules should have one row
472: l_rate_tbl := lns_financials.getRateSchedule(p_loan_id, 'TERM');
473:
474: if l_rate_tbl.count = 0 then
475: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_RATE_SCHEDULE');
476: FND_MSG_PUB.Add;
477: RAISE FND_API.G_EXC_ERROR;
478: end if;
479:
480: Begin
480: Begin
481: l_amount := lns_financials.getRemainingBalance(p_loan_id);
482: if l_amount <= 0 then
483: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_AMOUNT');
484: FND_MSG_PUB.Add;
485: RAISE FND_API.G_EXC_ERROR;
486: end if;
487:
488: end;
490: --
491: -- End of API body
492: --
493:
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
495:
496: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
497:
498: EXCEPTION
663: END IF;
664:
665: -- Initialize message list IF p_init_msg_list is set to TRUE.
666: IF FND_API.to_Boolean( p_init_msg_list ) THEN
667: FND_MSG_PUB.initialize;
668: END IF;
669:
670: -- Initialize API return status to SUCCESS
671: x_return_status := FND_API.G_RET_STS_SUCCESS;
686: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
687: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
688: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
689: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
690: FND_MSG_PUB.ADD;
691: RAISE FND_API.G_EXC_ERROR;
692: end if;
693: /*
694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting customization status');
981: IF FND_API.to_Boolean(p_commit) THEN
982: COMMIT WORK;
983: END IF;
984:
985: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
986: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
987:
988: EXCEPTION
989: WHEN FND_API.G_EXC_ERROR THEN
990: ROLLBACK TO runAmortization_PVT;
991: x_return_status := FND_API.G_RET_STS_ERROR;
992: x_msg_count := l_msg_count;
993: x_msg_data := l_msg_data;
994: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
995: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
996:
997: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
998: ROLLBACK TO runAmortization_PVT;
998: ROLLBACK TO runAmortization_PVT;
999: x_return_status := FND_API.G_RET_STS_ERROR;
1000: x_msg_count := l_msg_count;
1001: x_msg_data := l_msg_data;
1002: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1003: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1004:
1005: WHEN OTHERS THEN
1006: ROLLBACK TO runAmortization_PVT;
1006: ROLLBACK TO runAmortization_PVT;
1007: x_return_status := FND_API.G_RET_STS_ERROR;
1008: x_msg_count := l_msg_count;
1009: x_msg_data := l_msg_data;
1010: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1011: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1012:
1013: END runAmortization;
1014:
1072: -- we cannot have LN < 0
1073: -- this will be a loan that will never be paid off
1074: if ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount) >= 1 then
1075: FND_MESSAGE.Set_Name('LNS', 'LNS_NEVER_PAYOFF');
1076: FND_MSG_PUB.Add;
1077: RAISE FND_API.G_EXC_ERROR;
1078: end if;
1079:
1080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1212: END IF;
1213:
1214: -- Initialize message list IF p_init_msg_list is set to TRUE.
1215: IF FND_API.to_Boolean(p_init_msg_list) THEN
1216: FND_MSG_PUB.initialize;
1217: END IF;
1218: -- Initialize API return status to SUCCESS
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1220:
1422: IF FND_API.to_Boolean(p_commit) THEN
1423: COMMIT WORK;
1424: END IF;
1425:
1426: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1427: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1428:
1429: Exception
1430: WHEN FND_API.G_EXC_ERROR THEN
1431: ROLLBACK TO preProcessInstallment;
1432: x_return_status := FND_API.G_RET_STS_ERROR;
1433: x_msg_count := l_msg_count;
1434: x_msg_data := l_msg_data;
1435: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1436: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1437:
1438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1439: ROLLBACK TO preProcessInstallment;
1439: ROLLBACK TO preProcessInstallment;
1440: x_return_status := FND_API.G_RET_STS_ERROR;
1441: x_msg_count := l_msg_count;
1442: x_msg_data := l_msg_data;
1443: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1444: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1445:
1446: WHEN OTHERS THEN
1447: ROLLBACK TO preProcessInstallment;
1447: ROLLBACK TO preProcessInstallment;
1448: x_return_status := FND_API.G_RET_STS_ERROR;
1449: x_msg_count := l_msg_count;
1450: x_msg_data := l_msg_data;
1451: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1452: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1453:
1454: end preProcessInstallment;
1455:
1516: SAVEPOINT preProcessOpenInstallment;
1517:
1518: -- Initialize message list IF p_init_msg_list is set to TRUE.
1519: IF FND_API.to_Boolean(p_init_msg_list) THEN
1520: FND_MSG_PUB.initialize;
1521: END IF;
1522:
1523: -- Initialize API return status to SUCCESS
1524: x_return_status := FND_API.G_RET_STS_SUCCESS;
1542: ,x_msg_data => l_msg_data);
1543:
1544: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1545: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1546: FND_MSG_PUB.ADD;
1547: RAISE FND_API.G_EXC_ERROR;
1548: end if;
1549:
1550: -- processFees for servicing
1558: IF FND_API.to_Boolean(p_commit) THEN
1559: COMMIT WORK;
1560: END IF;
1561:
1562: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1563: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1564:
1565: Exception
1566: WHEN FND_API.G_EXC_ERROR THEN
1567: ROLLBACK TO preProcessOpenInstallment;
1568: x_return_status := FND_API.G_RET_STS_ERROR;
1569: x_msg_count := l_msg_count;
1570: x_msg_data := l_msg_data;
1571: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1572: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1573:
1574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1575: ROLLBACK TO preProcessOpenInstallment;
1575: ROLLBACK TO preProcessOpenInstallment;
1576: x_return_status := FND_API.G_RET_STS_ERROR;
1577: x_msg_count := l_msg_count;
1578: x_msg_data := l_msg_data;
1579: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1580: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1581:
1582: WHEN OTHERS THEN
1583: ROLLBACK TO preProcessOpenInstallment;
1583: ROLLBACK TO preProcessOpenInstallment;
1584: x_return_status := FND_API.G_RET_STS_ERROR;
1585: x_msg_count := l_msg_count;
1586: x_msg_data := l_msg_data;
1587: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1588: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1589:
1590: end preProcessOpenInstallment;
1591:
1688: END IF;
1689:
1690: -- Initialize message list IF p_init_msg_list is set to TRUE.
1691: IF FND_API.to_Boolean(p_init_msg_list) THEN
1692: FND_MSG_PUB.initialize;
1693: END IF;
1694:
1695: -- Initialize API return status to SUCCESS
1696: x_return_status := FND_API.G_RET_STS_SUCCESS;
1849: ,x_msg_data => l_msg_data);
1850:
1851: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1852: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1853: FND_MSG_PUB.ADD;
1854: RAISE FND_API.G_EXC_ERROR;
1855: end if;
1856: end if;
1857:
1867: ,x_msg_data => l_msg_data);
1868:
1869: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1870: FND_MESSAGE.SET_NAME('LNS', 'LNS_READ_FEE_ERROR');
1871: FND_MSG_PUB.ADD;
1872: RAISE FND_API.G_EXC_ERROR;
1873: end if;
1874:
1875: for k in 1..l_fees_tbl_1.count loop
1898: IF FND_API.to_Boolean(p_commit) THEN
1899: COMMIT WORK;
1900: END IF;
1901:
1902: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1903: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1904:
1905: EXCEPTION
1906: WHEN FND_API.G_EXC_ERROR THEN
1907: ROLLBACK TO getInstallment;
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: x_msg_count := l_msg_count;
1910: x_msg_data := l_msg_data;
1911: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1912: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1913:
1914: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1915: ROLLBACK TO getInstallment;
1915: ROLLBACK TO getInstallment;
1916: x_return_status := FND_API.G_RET_STS_ERROR;
1917: x_msg_count := l_msg_count;
1918: x_msg_data := l_msg_data;
1919: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1920: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1921:
1922: WHEN OTHERS THEN
1923: ROLLBACK TO getInstallment;
1923: ROLLBACK TO getInstallment;
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925: x_msg_count := l_msg_count;
1926: x_msg_data := l_msg_data;
1927: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1928: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1929:
1930: end getInstallment;
1931:
2104: SAVEPOINT getOpenInstallment;
2105:
2106: -- Initialize message list IF p_init_msg_list is set to TRUE.
2107: IF FND_API.to_Boolean(p_init_msg_list) THEN
2108: FND_MSG_PUB.initialize;
2109: END IF;
2110:
2111: -- Initialize API return status to SUCCESS
2112: x_return_status := FND_API.G_RET_STS_SUCCESS;
2147: ,p_day_count_method => l_loan_Details.day_count_method);
2148: exception
2149: when others then
2150: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
2151: FND_MSG_PUB.ADD;
2152: RAISE FND_API.G_EXC_ERROR;
2153:
2154: end;
2155: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_wtd_balance is ' || l_wtd_balance);
2193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLOATING RECALCULATE');
2194: -- raise error as rates does not exist
2195: if l_rate_details.ANNUAL_RATE is null then
2196: FND_MESSAGE.SET_NAME('LNS', 'LNS_RATES_ERROR');
2197: FND_MSG_PUB.ADD;
2198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for INDEX_ID ' || l_loan_details.OPEN_INDEX_RATE_ID);
2199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for DATE ' || l_loan_details.NEXT_RATE_CHANGE_DATE);
2200: RAISE FND_API.G_EXC_ERROR;
2201: end if;
2260: ,x_msg_data => l_msg_data);
2261:
2262: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2263: FND_MESSAGE.SET_NAME('LNS', 'LNS_READ_FEE_ERROR');
2264: FND_MSG_PUB.ADD;
2265: RAISE FND_API.G_EXC_ERROR;
2266: end if;
2267:
2268: for k in 1..l_fees_tbl_1.count loop
2289: -- --------------------------------------------------------------------
2290: -- End of API body
2291: -- --------------------------------------------------------------------
2292:
2293: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2294: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2295:
2296: EXCEPTION
2297: WHEN FND_API.G_EXC_ERROR THEN
2298: ROLLBACK TO getOpenInstallment;
2299: x_return_status := FND_API.G_RET_STS_ERROR;
2300: x_msg_count := l_msg_count;
2301: x_msg_data := l_msg_data;
2302: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2303: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2304:
2305: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2306: ROLLBACK TO getOpenInstallment;
2306: ROLLBACK TO getOpenInstallment;
2307: x_return_status := FND_API.G_RET_STS_ERROR;
2308: x_msg_count := l_msg_count;
2309: x_msg_data := l_msg_data;
2310: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2311: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2312:
2313: WHEN OTHERS THEN
2314: ROLLBACK TO getOpenInstallment;
2314: ROLLBACK TO getOpenInstallment;
2315: x_return_status := FND_API.G_RET_STS_ERROR;
2316: x_msg_count := l_msg_count;
2317: x_msg_data := l_msg_data;
2318: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2319: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2320:
2321: end getOpenInstallment;
2322:
2977:
2978: -- raise error as rates does not exist
2979: if l_rate_details.ANNUAL_RATE is null then
2980: FND_MESSAGE.SET_NAME('LNS', 'LNS_RATES_ERROR');
2981: FND_MSG_PUB.ADD;
2982: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for INDEX_ID ' || p_loan_details.TERM_INDEX_RATE_ID);
2983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for DATE ' || p_loan_details.NEXT_RATE_CHANGE_DATE);
2984: RAISE FND_API.G_EXC_ERROR;
2985: end if;
4069:
4070: -- raise error as rates does not exist
4071: if l_rate_details.ANNUAL_RATE is null then
4072: FND_MESSAGE.SET_NAME('LNS', 'LNS_RATES_ERROR');
4073: FND_MSG_PUB.ADD;
4074: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for INDEX_ID ' || p_loan_details.TERM_INDEX_RATE_ID);
4075: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for DATE ' || p_loan_details.NEXT_RATE_CHANGE_DATE);
4076: RAISE FND_API.G_EXC_ERROR;
4077: end if;
5083:
5084: -- raise error as rates does not exist
5085: if l_rate_details.ANNUAL_RATE is null then
5086: FND_MESSAGE.SET_NAME('LNS', 'LNS_RATES_ERROR');
5087: FND_MSG_PUB.ADD;
5088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for INDEX_ID ' || p_loan_details.TERM_INDEX_RATE_ID);
5089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rates missing for DATE ' || p_loan_details.NEXT_RATE_CHANGE_DATE);
5090: RAISE FND_API.G_EXC_ERROR;
5091: end if;
5836: ,p_day_count_method => l_day_count_method);
5837: exception
5838: when others then
5839: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
5840: FND_MSG_PUB.ADD;
5841: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - ERROR COMPUTING BALANCE');
5842: RAISE FND_API.G_EXC_ERROR;
5843: end;
5844:
6088: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6089:
6090: -- Initialize message list IF p_init_msg_list is set to TRUE.
6091: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6092: FND_MSG_PUB.initialize;
6093: END IF;
6094:
6095: -- Initialize API return status to SUCCESS
6096: x_return_status := FND_API.G_RET_STS_SUCCESS;
6111: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
6112: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
6113: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
6114: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
6115: FND_MSG_PUB.ADD;
6116: RAISE FND_API.G_EXC_ERROR;
6117: end if;
6118:
6119: -- check if disbursements exist and is amount > 0 as per karthik instructions
6127: close c_invalid_disb;
6128:
6129: if l_invalid_disb > 0 then
6130: FND_MESSAGE.SET_NAME('LNS', 'LNS_DISB_REQ_DATE_ERR');
6131: FND_MSG_PUB.ADD;
6132: RAISE FND_API.G_EXC_ERROR;
6133: end if;
6134:
6135: if l_disb_amount > 0 then
6198: --
6199: -- End of API body
6200: --
6201:
6202: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6203:
6204: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6205:
6206: EXCEPTION
6208: ROLLBACK TO runLoanProjection_PVT;
6209: x_return_status := FND_API.G_RET_STS_ERROR;
6210: x_msg_count := l_msg_count;
6211: x_msg_data := l_msg_data;
6212: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6213: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6214:
6215: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6216: ROLLBACK TO runLoanProjection_PVT;
6216: ROLLBACK TO runLoanProjection_PVT;
6217: x_return_status := FND_API.G_RET_STS_ERROR;
6218: x_msg_count := l_msg_count;
6219: x_msg_data := l_msg_data;
6220: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6221: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6222:
6223: WHEN OTHERS THEN
6224: ROLLBACK TO runLoanProjection_PVT;
6224: ROLLBACK TO runLoanProjection_PVT;
6225: x_return_status := FND_API.G_RET_STS_ERROR;
6226: x_msg_count := l_msg_count;
6227: x_msg_data := l_msg_data;
6228: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
6229: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6230:
6231: END runOpenProjection;
6232:
6336: END LOOP;
6337: Exception
6338: When No_Data_Found then
6339: FND_MESSAGE.Set_Name('LNS', 'LNS_NO_RATES');
6340: FND_MSG_PUB.Add;
6341: RAISE FND_API.G_EXC_ERROR;
6342: End;
6343:
6344: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7295: Exception
7296: When No_Data_Found then
7297: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LOAN ID: ' || l_loan_id || ' not found');
7298: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_LOAN_ID');
7299: FND_MSG_PUB.Add;
7300: RAISE FND_API.G_EXC_ERROR;
7301:
7302: When Others then
7303: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Err: ' || sqlerrm);
7562: COMMIT WORK;
7563: END IF;
7564:
7565:
7566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7567:
7568: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7569:
7570: EXCEPTION
7569:
7570: EXCEPTION
7571: WHEN FND_API.G_EXC_ERROR THEN
7572: ROLLBACK TO shiftLoan;
7573: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7574: x_return_status := FND_API.G_RET_STS_ERROR;
7575: x_msg_count := l_msg_count;
7576: x_msg_data := l_msg_data;
7577: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7577: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7578:
7579: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7580: ROLLBACK TO shiftLoan;
7581: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7582: x_return_status := FND_API.G_RET_STS_ERROR;
7583: x_msg_count := l_msg_count;
7584: x_msg_data := l_msg_data;
7585: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7585: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7586:
7587: WHEN OTHERS THEN
7588: ROLLBACK TO shiftLoan;
7589: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7590: x_return_status := FND_API.G_RET_STS_ERROR;
7591: x_msg_count := l_msg_count;
7592: x_msg_data := l_msg_data;
7593: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7672: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
7673: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
7674: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
7675: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
7676: FND_MSG_PUB.ADD;
7677: RAISE FND_API.G_EXC_ERROR;
7678: end if;
7679:
7680: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
7736: x_loan_details := l_loan_details;
7737: --
7738: -- End of API body
7739: --
7740: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7741:
7742: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7743:
7744: EXCEPTION
7743:
7744: EXCEPTION
7745: WHEN FND_API.G_EXC_ERROR THEN
7746: ROLLBACK TO shiftLoanDates;
7747: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7748: x_return_status := FND_API.G_RET_STS_ERROR;
7749: x_msg_count := l_msg_count;
7750: x_msg_data := l_msg_data;
7751: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7751: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7752:
7753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7754: ROLLBACK TO shiftLoanDates;
7755: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7756: x_return_status := FND_API.G_RET_STS_ERROR;
7757: x_msg_count := l_msg_count;
7758: x_msg_data := l_msg_data;
7759: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7759: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7760:
7761: WHEN OTHERS THEN
7762: ROLLBACK TO shiftLoanDates;
7763: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7764: x_return_status := FND_API.G_RET_STS_ERROR;
7765: x_msg_count := l_msg_count;
7766: x_msg_data := l_msg_data;
7767: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8096:
8097: -- these dates should be further restricted
8098: if p_loan_details.loan_status = 'PAIDOFF' then
8099: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_ALREADY');
8100: FND_MSG_PUB.Add;
8101: RAISE FND_API.G_EXC_ERROR;
8102:
8103: --karamach --Bug5295446 --Need to prevent payoff for loans in Approved status as well
8104: --elsif p_loan_details.loan_status = 'INCOMPLETE' or p_loan_details.loan_status = 'DELETED' or
8104: --elsif p_loan_details.loan_status = 'INCOMPLETE' or p_loan_details.loan_status = 'DELETED' or
8105: -- p_loan_details.loan_status = 'REJECTED' or p_loan_details.loan_status = 'PENDING' then
8106: elsif p_loan_details.loan_status IN ('INCOMPLETE','DELETED','REJECTED','PENDING','APPROVED') then
8107: FND_MESSAGE.Set_Name('LNS', 'LNS_INVOICE_SUMMARY_ERROR');
8108: FND_MSG_PUB.Add;
8109: RAISE FND_API.G_EXC_ERROR;
8110: end if;
8111:
8112: if p_payoff_date < p_loan_details.last_interest_accrual then
8112: if p_payoff_date < p_loan_details.last_interest_accrual then
8113: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8114: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY');
8115: FND_MESSAGE.SET_TOKEN('PAYOFF_DATE', fnd_date.date_to_displaydate(p_loan_details.last_interest_accrual));
8116: FND_MSG_PUB.Add;
8117: RAISE FND_API.G_EXC_ERROR;
8118: end if;
8119:
8120: if p_payoff_date < p_loan_details.last_activity_date then
8121: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8122: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY2');
8123: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LAST_ACTIVITY_DATE');
8124: FND_MESSAGE.SET_TOKEN('VALUE', fnd_date.date_to_displaydate(p_loan_details.last_activity_date));
8125: FND_MSG_PUB.Add;
8126: RAISE FND_API.G_EXC_ERROR;
8127: end if;
8128:
8129: /* raverma added 12-08-05 */
8145: -- --------------------------------------------------------------------
8146: -- End of API body
8147: --
8148:
8149: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8150:
8151: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8152:
8153: exception
8155: WHEN FND_API.G_EXC_ERROR THEN
8156: x_return_status := FND_API.G_RET_STS_ERROR;
8157: x_msg_count := l_msg_count;
8158: x_msg_data := l_msg_data;
8159: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8160: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8161:
8162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8163: x_return_status := FND_API.G_RET_STS_ERROR;
8162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8163: x_return_status := FND_API.G_RET_STS_ERROR;
8164: x_msg_count := l_msg_count;
8165: x_msg_data := l_msg_data;
8166: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8167: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8168:
8169: WHEN OTHERS THEN
8170: x_return_status := FND_API.G_RET_STS_ERROR;
8169: WHEN OTHERS THEN
8170: x_return_status := FND_API.G_RET_STS_ERROR;
8171: x_msg_count := l_msg_count;
8172: x_msg_data := l_msg_data;
8173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8174: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8175:
8176: end validatePayoff;
8177:
8301: END IF;
8302:
8303: -- Initialize message list IF p_init_msg_list is set to TRUE.
8304: IF FND_API.to_Boolean(p_init_msg_list) THEN
8305: FND_MSG_PUB.initialize;
8306: END IF;
8307:
8308: -- Initialize API return status to SUCCESS
8309: x_return_status := FND_API.G_RET_STS_SUCCESS;
8326: l_rate_for_date := lns_fin_utils.getRateForDate(p_index_rate_id => l_index_rate_id
8327: ,p_rate_date => p_payoff_date);
8328:
8329: if l_rate_for_date is null then
8330: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
8331: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_PAYOFF_DATE');
8332: FND_MSG_PUB.Add;
8333: RAISE FND_API.G_EXC_ERROR;
8334: end if;
8328:
8329: if l_rate_for_date is null then
8330: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
8331: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_PAYOFF_DATE');
8332: FND_MSG_PUB.Add;
8333: RAISE FND_API.G_EXC_ERROR;
8334: end if;
8335:
8336: end if;
8346: ,x_return_status => l_return_status
8347: ,x_msg_count => l_msg_count
8348: ,x_msg_data => l_msg_data);
8349: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
8350: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
8351: RAISE FND_API.G_EXC_ERROR;
8352: END IF;
8353:
8354: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing late fees');
8525: -- --------------------------------------------------------------------
8526: -- End of API body
8527: --
8528:
8529: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8530:
8531: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8532:
8533: EXCEPTION
8535: ROLLBACK TO calculatePayoff;
8536: x_return_status := FND_API.G_RET_STS_ERROR;
8537: x_msg_count := l_msg_count;
8538: x_msg_data := l_msg_data;
8539: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8540: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8541:
8542: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8543: ROLLBACK TO calculatePayoff;
8543: ROLLBACK TO calculatePayoff;
8544: x_return_status := FND_API.G_RET_STS_ERROR;
8545: x_msg_count := l_msg_count;
8546: x_msg_data := l_msg_data;
8547: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8548: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8549:
8550: WHEN OTHERS THEN
8551: ROLLBACK TO calculatePayoff;
8551: ROLLBACK TO calculatePayoff;
8552: x_return_status := FND_API.G_RET_STS_ERROR;
8553: x_msg_count := l_msg_count;
8554: x_msg_data := l_msg_data;
8555: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8556: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8557:
8558: end calculatePayoff;
8559:
8580: l_ppy := 1;
8581: else
8582: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_INTERVAL');
8583: FND_MESSAGE.SET_TOKEN('INTERVAL',p_frequency);
8584: FND_MSG_PUB.Add;
8585: RAISE FND_API.G_EXC_ERROR;
8586: end if;
8587:
8588: return l_ppy;
8908: When Others then
8909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
8910: --seed this message
8911: -- FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
8912: -- FND_MSG_PUB.Add;
8913: -- RAISE FND_API.G_EXC_ERROR;
8914:
8915: end getAnnualRate;
8916:
9189: When Others then
9190: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
9191: --seed this message
9192: FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
9193: FND_MSG_PUB.Add;
9194: RAISE FND_API.G_EXC_ERROR;
9195: */
9196: end getRemainingBalance;
9197:
9442:
9443: -- validate the from and to Dates
9444: if p_from_date > p_to_date then
9445: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
9446: FND_MSG_PUB.Add;
9447: RAISE FND_API.G_EXC_ERROR;
9448: end if;
9449: /*
9450: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
9453:
9454: -- validate if dates are within the boundaries of loan_start and maturity_dates
9455: if p_to_date > l_loan_details.maturity_date then
9456: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR1');
9457: FND_MSG_PUB.Add;
9458: RAISE FND_API.G_EXC_ERROR;
9459: end if;
9460:
9461: if p_from_date < l_loan_details.loan_start_date then
9459: end if;
9460:
9461: if p_from_date < l_loan_details.loan_start_date then
9462: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
9463: FND_MSG_PUB.Add;
9464: RAISE FND_API.G_EXC_ERROR;
9465: end if;
9466: */
9467: l_loan_activities(1).ending_balance := 0;
9648:
9649: -- validate the from and to Dates
9650: if p_from_date > p_to_date then
9651: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
9652: FND_MSG_PUB.Add;
9653: RAISE FND_API.G_EXC_ERROR;
9654: end if;
9655:
9656: OPEN c_loan_phase(p_loan_id);
9665:
9666: -- validate if dates are within the boundaries of loan_start and maturity_dates
9667: if p_to_date > l_loan_details.maturity_date then
9668: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR1');
9669: FND_MSG_PUB.Add;
9670: RAISE FND_API.G_EXC_ERROR;
9671: end if;
9672:
9673: if p_from_date < l_loan_details.loan_start_date then
9671: end if;
9672:
9673: if p_from_date < l_loan_details.loan_start_date then
9674: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
9675: FND_MSG_PUB.Add;
9676: RAISE FND_API.G_EXC_ERROR;
9677: end if;
9678:
9679: -- get all the balance activities on the loan