eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.LNS_FEE_ENGINE dependencies on FND_API

Line 178: IF FND_API.to_Boolean(p_init_msg_list) THEN

174: -- Standard Start of API savepoint
175: SAVEPOINT processDisbursementFees;
176:
177: -- Initialize message list IF p_init_msg_list is set to TRUE.
178: IF FND_API.to_Boolean(p_init_msg_list) THEN
179: FND_MSG_PUB.initialize;
180: END IF;
181:
182: -- Initialize API return status to SUCCESS

Line 183: x_return_status := FND_API.G_RET_STS_SUCCESS;

179: FND_MSG_PUB.initialize;
180: END IF;
181:
182: -- Initialize API return status to SUCCESS
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: -- ---------------------------------------------------------------------
186: -- Api body
187: -- ---------------------------------------------------------------------

Line 288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

284: ,x_fees_tbl => l_fees_tbl
285: ,x_return_status => l_return_status
286: ,x_msg_count => l_msg_count
287: ,x_msg_data => l_msg_data);
288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
289: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_SCHEDULE_READ_ERROR');
290: FND_MSG_PUB.ADD;
291: RAISE FND_API.G_EXC_ERROR;
292: end if;

Line 291: RAISE FND_API.G_EXC_ERROR;

287: ,x_msg_data => l_msg_data);
288: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
289: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_SCHEDULE_READ_ERROR');
290: FND_MSG_PUB.ADD;
291: RAISE FND_API.G_EXC_ERROR;
292: end if;
293: end if;
294:
295: -- 4. bill fees as manual billing

Line 320: ,P_INIT_MSG_LIST => FND_API.G_TRUE

316: if i > 0 then
317: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - creating off cycle bills' || i);
318: /*
319: LNS_BILLING_BATCH_PUB.CREATE_OFFCYCLE_BILLS(P_API_VERSION => 1.0
320: ,P_INIT_MSG_LIST => FND_API.G_TRUE
321: ,P_COMMIT => FND_API.G_TRUE
322: ,P_VALIDATION_LEVEL => 100
323: ,P_BILL_HEADERS_TBL => l_BILL_HEADERS_TBL
324: ,P_BILL_LINES_TBL => l_BILL_LINES_TBL

Line 321: ,P_COMMIT => FND_API.G_TRUE

317: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - creating off cycle bills' || i);
318: /*
319: LNS_BILLING_BATCH_PUB.CREATE_OFFCYCLE_BILLS(P_API_VERSION => 1.0
320: ,P_INIT_MSG_LIST => FND_API.G_TRUE
321: ,P_COMMIT => FND_API.G_TRUE
322: ,P_VALIDATION_LEVEL => 100
323: ,P_BILL_HEADERS_TBL => l_BILL_HEADERS_TBL
324: ,P_BILL_LINES_TBL => l_BILL_LINES_TBL
325: ,x_return_status => l_return_status

Line 329: l_return_status := FND_API.G_RET_STS_SUCCESS;

325: ,x_return_status => l_return_status
326: ,x_msg_count => l_msg_count
327: ,x_msg_data => l_msg_data);
328: */
329: l_return_status := FND_API.G_RET_STS_SUCCESS;
330: /* - Bug#6961250 Commented bcoz the above code is commented, so that the
331: FeeSchedule is not billed and its flag doesn't be a billedFlag.
332: if l_return_status = FND_API.G_RET_STS_SUCCESS then
333: update lns_fee_schedules

Line 332: if l_return_status = FND_API.G_RET_STS_SUCCESS then

328: */
329: l_return_status := FND_API.G_RET_STS_SUCCESS;
330: /* - Bug#6961250 Commented bcoz the above code is commented, so that the
331: FeeSchedule is not billed and its flag doesn't be a billedFlag.
332: if l_return_status = FND_API.G_RET_STS_SUCCESS then
333: update lns_fee_schedules
334: set billed_flag = 'Y'
335: where disb_header_id = p_disb_head_id;
336: end if;

Line 343: IF FND_API.to_Boolean(p_commit) THEN

339:
340: -- ---------------------------------------------------------------------
341: -- End of API body
342: -- ---------------------------------------------------------------------
343: IF FND_API.to_Boolean(p_commit) THEN
344: COMMIT WORK;
345: END IF;
346: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
347:

Line 351: WHEN FND_API.G_EXC_ERROR THEN

347:
348: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
349:
350: EXCEPTION
351: WHEN FND_API.G_EXC_ERROR THEN
352: x_return_status := FND_API.G_RET_STS_ERROR;
353: x_msg_count := l_msg_count;
354: x_msg_data := l_msg_data;
355: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 352: x_return_status := FND_API.G_RET_STS_ERROR;

348: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
349:
350: EXCEPTION
351: WHEN FND_API.G_EXC_ERROR THEN
352: x_return_status := FND_API.G_RET_STS_ERROR;
353: x_msg_count := l_msg_count;
354: x_msg_data := l_msg_data;
355: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
356: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

355: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
356: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
357: ROLLBACK TO processDisbursementFees;
358:
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: x_msg_count := l_msg_count;
362: x_msg_data := l_msg_data;
363: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 360: x_return_status := FND_API.G_RET_STS_ERROR;

356: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
357: ROLLBACK TO processDisbursementFees;
358:
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: x_msg_count := l_msg_count;
362: x_msg_data := l_msg_data;
363: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
364: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 368: x_return_status := FND_API.G_RET_STS_ERROR;

364: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
365: ROLLBACK TO processDisbursementFees;
366:
367: WHEN OTHERS THEN
368: x_return_status := FND_API.G_RET_STS_ERROR;
369: x_msg_count := l_msg_count;
370: x_msg_data := l_msg_data;
371: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
372: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 459: IF FND_API.to_Boolean(p_init_msg_list) THEN

455: -- Standard Start of API savepoint
456: SAVEPOINT reprocessFees;
457:
458: -- Initialize message list IF p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean(p_init_msg_list) THEN
460: FND_MSG_PUB.initialize;
461: END IF;
462:
463: -- Initialize API return status to SUCCESS

Line 464: x_return_status := FND_API.G_RET_STS_SUCCESS;

460: FND_MSG_PUB.initialize;
461: END IF;
462:
463: -- Initialize API return status to SUCCESS
464: x_return_status := FND_API.G_RET_STS_SUCCESS;
465:
466: -- ---------------------------------------------------------------------
467: -- Api body
468: -- ---------------------------------------------------------------------

Line 523: WHEN FND_API.G_EXC_ERROR THEN

519:
520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
521:
522: EXCEPTION
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: x_msg_count := l_msg_count;
526: x_msg_data := l_msg_data;
527: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 524: x_return_status := FND_API.G_RET_STS_ERROR;

520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
521:
522: EXCEPTION
523: WHEN FND_API.G_EXC_ERROR THEN
524: x_return_status := FND_API.G_RET_STS_ERROR;
525: x_msg_count := l_msg_count;
526: x_msg_data := l_msg_data;
527: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
528: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

527: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
528: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
529: ROLLBACK TO reprocessFees;
530:
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: x_msg_count := l_msg_count;
534: x_msg_data := l_msg_data;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 532: x_return_status := FND_API.G_RET_STS_ERROR;

528: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
529: ROLLBACK TO reprocessFees;
530:
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: x_msg_count := l_msg_count;
534: x_msg_data := l_msg_data;
535: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
536: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 540: x_return_status := FND_API.G_RET_STS_ERROR;

536: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
537: ROLLBACK TO reprocessFees;
538:
539: WHEN OTHERS THEN
540: x_return_status := FND_API.G_RET_STS_ERROR;
541: x_msg_count := l_msg_count;
542: x_msg_data := l_msg_data;
543: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
544: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1305: --RAISE FND_API.G_EXC_ERROR;

1301: when no_data_found then
1302: l_fee := -1;
1303: --FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALC_ERROR');
1304: --FND_MSG_PUB.ADD;
1305: --RAISE FND_API.G_EXC_ERROR;
1306: end;
1307: end if;
1308:
1309: end if;

Line 1447: IF FND_API.to_Boolean(p_init_msg_list) THEN

1443: -- Standard Start of API savepoint
1444: SAVEPOINT getFees;
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

Line 1452: x_return_status := FND_API.G_RET_STS_SUCCESS;

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;
1453:
1454: -- ---------------------------------------------------------------------
1455: -- Api body
1456: -- ---------------------------------------------------------------------

Line 1541: WHEN FND_API.G_EXC_ERROR THEN

1537:
1538: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1539:
1540: EXCEPTION
1541: WHEN FND_API.G_EXC_ERROR THEN
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: x_msg_count := l_msg_count;
1544: x_msg_data := l_msg_data;
1545: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1542: x_return_status := FND_API.G_RET_STS_ERROR;

1538: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1539:
1540: EXCEPTION
1541: WHEN FND_API.G_EXC_ERROR THEN
1542: x_return_status := FND_API.G_RET_STS_ERROR;
1543: x_msg_count := l_msg_count;
1544: x_msg_data := l_msg_data;
1545: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1546: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1545: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1546: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1547: ROLLBACK TO getFees;
1548:
1549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1550: x_return_status := FND_API.G_RET_STS_ERROR;
1551: x_msg_count := l_msg_count;
1552: x_msg_data := l_msg_data;
1553: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1550: x_return_status := FND_API.G_RET_STS_ERROR;

1546: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1547: ROLLBACK TO getFees;
1548:
1549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1550: x_return_status := FND_API.G_RET_STS_ERROR;
1551: x_msg_count := l_msg_count;
1552: x_msg_data := l_msg_data;
1553: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1554: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1558: x_return_status := FND_API.G_RET_STS_ERROR;

1554: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1555: ROLLBACK TO getFees;
1556:
1557: WHEN OTHERS THEN
1558: x_return_status := FND_API.G_RET_STS_ERROR;
1559: x_msg_count := l_msg_count;
1560: x_msg_data := l_msg_data;
1561: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1562: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1643: IF FND_API.to_Boolean(p_init_msg_list) THEN

1639: -- Standard Start of API savepoint
1640: SAVEPOINT getFeeDetails;
1641:
1642: -- Initialize message list IF p_init_msg_list is set to TRUE.
1643: IF FND_API.to_Boolean(p_init_msg_list) THEN
1644: FND_MSG_PUB.initialize;
1645: END IF;
1646:
1647: -- Initialize API return status to SUCCESS

Line 1648: x_return_status := FND_API.G_RET_STS_SUCCESS;

1644: FND_MSG_PUB.initialize;
1645: END IF;
1646:
1647: -- Initialize API return status to SUCCESS
1648: x_return_status := FND_API.G_RET_STS_SUCCESS;
1649:
1650: -- ---------------------------------------------------------------------
1651: -- Api body
1652: -- ---------------------------------------------------------------------

Line 1741: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

1737: ,x_return_status => l_return_status
1738: ,x_msg_count => l_msg_count
1739: ,x_msg_data => l_msg_data);
1740:
1741: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1742: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_SCHEDULE_READ_ERROR');
1743: FND_MSG_PUB.ADD;
1744: RAISE FND_API.G_EXC_ERROR;
1745: end if;

Line 1744: RAISE FND_API.G_EXC_ERROR;

1740:
1741: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1742: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_SCHEDULE_READ_ERROR');
1743: FND_MSG_PUB.ADD;
1744: RAISE FND_API.G_EXC_ERROR;
1745: end if;
1746:
1747: iFeeCount := l_fees_tbl.count;
1748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found real fees ' || l_fees_tbl.count);

Line 1877: WHEN FND_API.G_EXC_ERROR THEN

1873:
1874: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1875:
1876: EXCEPTION
1877: WHEN FND_API.G_EXC_ERROR THEN
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: x_msg_count := l_msg_count;
1880: x_msg_data := l_msg_data;
1881: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1878: x_return_status := FND_API.G_RET_STS_ERROR;

1874: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1875:
1876: EXCEPTION
1877: WHEN FND_API.G_EXC_ERROR THEN
1878: x_return_status := FND_API.G_RET_STS_ERROR;
1879: x_msg_count := l_msg_count;
1880: x_msg_data := l_msg_data;
1881: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1882: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1881: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1882: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1883: ROLLBACK TO getFeeDetails;
1884:
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887: x_msg_count := l_msg_count;
1888: x_msg_data := l_msg_data;
1889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1886: x_return_status := FND_API.G_RET_STS_ERROR;

1882: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1883: ROLLBACK TO getFeeDetails;
1884:
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_ERROR;
1887: x_msg_count := l_msg_count;
1888: x_msg_data := l_msg_data;
1889: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1890: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1894: x_return_status := FND_API.G_RET_STS_ERROR;

1890: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1891: ROLLBACK TO getFeeDetails;
1892:
1893: WHEN OTHERS THEN
1894: x_return_status := FND_API.G_RET_STS_ERROR;
1895: x_msg_count := l_msg_count;
1896: x_msg_data := l_msg_data;
1897: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1898: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1978: IF FND_API.to_Boolean(p_init_msg_list) THEN

1974: -- Standard Start of API savepoint
1975: SAVEPOINT updateFeeSchedule;
1976:
1977: -- Initialize message list IF p_init_msg_list is set to TRUE.
1978: IF FND_API.to_Boolean(p_init_msg_list) THEN
1979: FND_MSG_PUB.initialize;
1980: END IF;
1981:
1982: -- Initialize API return status to SUCCESS

Line 1983: x_return_status := FND_API.G_RET_STS_SUCCESS;

1979: FND_MSG_PUB.initialize;
1980: END IF;
1981:
1982: -- Initialize API return status to SUCCESS
1983: x_return_status := FND_API.G_RET_STS_SUCCESS;
1984:
1985: -- ---------------------------------------------------------------------
1986: -- Api body
1987: -- ---------------------------------------------------------------------

Line 2003: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

1999: ,p_col_id => p_loan_id
2000: ,p_col_name => 'LOAN_ID'
2001: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
2002:
2003: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2005: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2006: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2007: FND_MSG_PUB.ADD;

Line 2008: RAISE FND_API.G_EXC_ERROR;

2004: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2005: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2006: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2007: FND_MSG_PUB.ADD;
2008: RAISE FND_API.G_EXC_ERROR;
2009: end if;
2010:
2011: open c_phase(p_loan_id);
2012: fetch c_phase into l_phase;

Line 2026: RAISE FND_API.G_EXC_ERROR;

2022: -- first validation as per june : do not add fees far into the future
2023: if p_fees_tbl(k).fee_installment > l_loan_details.LAST_INSTALLMENT_BILLED + 1 then
2024: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR3');
2025: FND_MSG_PUB.ADD;
2026: RAISE FND_API.G_EXC_ERROR;
2027: end if;
2028:
2029:
2030: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then

Line 2033: RAISE FND_API.G_EXC_ERROR;

2029:
2030: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2031: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');
2032: FND_MSG_PUB.ADD;
2033: RAISE FND_API.G_EXC_ERROR;
2034: end if;
2035:
2036: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2037: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');

Line 2039: RAISE FND_API.G_EXC_ERROR;

2035:
2036: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2037: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');
2038: FND_MSG_PUB.ADD;
2039: RAISE FND_API.G_EXC_ERROR;
2040: end if;
2041:
2042: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT < 0 then
2043: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');

Line 2045: RAISE FND_API.G_EXC_ERROR;

2041:
2042: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT < 0 then
2043: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');
2044: FND_MSG_PUB.ADD;
2045: RAISE FND_API.G_EXC_ERROR;
2046: end if;
2047:
2048: if p_fees_tbl(k).FEE_ID is not null then
2049: lns_utility_pub.validate_any_id(p_api_version => 1.0

Line 2058: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2054: ,p_col_id => p_fees_tbl(k).FEE_ID
2055: ,p_col_name => 'FEE_ID'
2056: ,p_table_name => 'LNS_FEES');
2057:
2058: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2059: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2060: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2061: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2062: FND_MSG_PUB.ADD;

Line 2063: RAISE FND_API.G_EXC_ERROR;

2059: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2060: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2061: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2062: FND_MSG_PUB.ADD;
2063: RAISE FND_API.G_EXC_ERROR;
2064: end if;
2065:
2066: end if;
2067:

Line 2100: IF FND_API.to_Boolean(p_commit) THEN

2096: -- ---------------------------------------------------------------------
2097: -- End of API body
2098: -- ---------------------------------------------------------------------
2099:
2100: IF FND_API.to_Boolean(p_commit) THEN
2101: COMMIT WORK;
2102: END IF;
2103:
2104: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2109: WHEN FND_API.G_EXC_ERROR THEN

2105:
2106: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2107:
2108: EXCEPTION
2109: WHEN FND_API.G_EXC_ERROR THEN
2110: x_return_status := FND_API.G_RET_STS_ERROR;
2111: x_msg_count := l_msg_count;
2112: x_msg_data := l_msg_data;
2113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2110: x_return_status := FND_API.G_RET_STS_ERROR;

2106: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2107:
2108: EXCEPTION
2109: WHEN FND_API.G_EXC_ERROR THEN
2110: x_return_status := FND_API.G_RET_STS_ERROR;
2111: x_msg_count := l_msg_count;
2112: x_msg_data := l_msg_data;
2113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2114: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2113: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2114: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2115: ROLLBACK TO updateFeeSchedule;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: x_msg_count := l_msg_count;
2120: x_msg_data := l_msg_data;
2121: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2118: x_return_status := FND_API.G_RET_STS_ERROR;

2114: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2115: ROLLBACK TO updateFeeSchedule;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: x_return_status := FND_API.G_RET_STS_ERROR;
2119: x_msg_count := l_msg_count;
2120: x_msg_data := l_msg_data;
2121: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2122: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2126: x_return_status := FND_API.G_RET_STS_ERROR;

2122: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2123: ROLLBACK TO updateFeeSchedule;
2124:
2125: WHEN OTHERS THEN
2126: x_return_status := FND_API.G_RET_STS_ERROR;
2127: x_msg_count := l_msg_count;
2128: x_msg_data := l_msg_data;
2129: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2130: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2193: IF FND_API.to_Boolean(p_init_msg_list) THEN

2189: -- Standard Start of API savepoint
2190: SAVEPOINT writeFeeSchedule;
2191:
2192: -- Initialize message list IF p_init_msg_list is set to TRUE.
2193: IF FND_API.to_Boolean(p_init_msg_list) THEN
2194: FND_MSG_PUB.initialize;
2195: END IF;
2196:
2197: -- Initialize API return status to SUCCESS

Line 2198: x_return_status := FND_API.G_RET_STS_SUCCESS;

2194: FND_MSG_PUB.initialize;
2195: END IF;
2196:
2197: -- Initialize API return status to SUCCESS
2198: x_return_status := FND_API.G_RET_STS_SUCCESS;
2199:
2200: -- ---------------------------------------------------------------------
2201: -- Api body
2202: -- ---------------------------------------------------------------------

Line 2213: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2209: ,p_col_id => p_loan_id
2210: ,p_col_name => 'LOAN_ID'
2211: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
2212:
2213: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2214: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2215: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2216: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2217: FND_MSG_PUB.ADD;

Line 2218: RAISE FND_API.G_EXC_ERROR;

2214: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2215: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2216: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2217: FND_MSG_PUB.ADD;
2218: RAISE FND_API.G_EXC_ERROR;
2219: end if;
2220:
2221: open c_phase(p_loan_id);
2222: fetch c_phase into l_phase;

Line 2238: RAISE FND_API.G_EXC_ERROR;

2234: -- first validation as per june : do not add fees far into the future
2235: if p_fees_tbl(k).fee_installment > l_loan_details.LAST_INSTALLMENT_BILLED + 1 then
2236: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR3');
2237: FND_MSG_PUB.ADD;
2238: RAISE FND_API.G_EXC_ERROR;
2239: end if;
2240:
2241: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2242: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');

Line 2244: RAISE FND_API.G_EXC_ERROR;

2240:
2241: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2242: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');
2243: FND_MSG_PUB.ADD;
2244: RAISE FND_API.G_EXC_ERROR;
2245: end if;
2246:
2247: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');

Line 2250: RAISE FND_API.G_EXC_ERROR;

2246:
2247: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2248: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');
2249: FND_MSG_PUB.ADD;
2250: RAISE FND_API.G_EXC_ERROR;
2251: end if;
2252:
2253: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT <= 0 then
2254: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');

Line 2256: RAISE FND_API.G_EXC_ERROR;

2252:
2253: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT <= 0 then
2254: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');
2255: FND_MSG_PUB.ADD;
2256: RAISE FND_API.G_EXC_ERROR;
2257: end if;
2258:
2259: if p_fees_tbl(k).FEE_ID is not null then
2260: lns_utility_pub.validate_any_id(p_api_version => 1.0

Line 2269: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2265: ,p_col_id => p_fees_tbl(k).FEE_ID
2266: ,p_col_name => 'FEE_ID'
2267: ,p_table_name => 'LNS_FEES');
2268:
2269: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2270: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2271: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2272: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2273: FND_MSG_PUB.ADD;

Line 2274: RAISE FND_API.G_EXC_ERROR;

2270: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2271: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2272: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2273: FND_MSG_PUB.ADD;
2274: RAISE FND_API.G_EXC_ERROR;
2275: end if;
2276:
2277: end if;
2278: else

Line 2314: IF FND_API.to_Boolean(p_commit) THEN

2310:
2311: -- ---------------------------------------------------------------------
2312: -- End of API body
2313: -- ---------------------------------------------------------------------
2314: IF FND_API.to_Boolean(p_commit) THEN
2315: COMMIT WORK;
2316: END IF;
2317:
2318: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2323: WHEN FND_API.G_EXC_ERROR THEN

2319:
2320: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2321:
2322: EXCEPTION
2323: WHEN FND_API.G_EXC_ERROR THEN
2324: x_return_status := FND_API.G_RET_STS_ERROR;
2325: x_msg_count := l_msg_count;
2326: x_msg_data := l_msg_data;
2327: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2324: x_return_status := FND_API.G_RET_STS_ERROR;

2320: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2321:
2322: EXCEPTION
2323: WHEN FND_API.G_EXC_ERROR THEN
2324: x_return_status := FND_API.G_RET_STS_ERROR;
2325: x_msg_count := l_msg_count;
2326: x_msg_data := l_msg_data;
2327: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2328: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2327: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2328: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2329: ROLLBACK TO writeFeeSchedule;
2330:
2331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2332: x_return_status := FND_API.G_RET_STS_ERROR;
2333: x_msg_count := l_msg_count;
2334: x_msg_data := l_msg_data;
2335: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2332: x_return_status := FND_API.G_RET_STS_ERROR;

2328: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2329: ROLLBACK TO writeFeeSchedule;
2330:
2331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2332: x_return_status := FND_API.G_RET_STS_ERROR;
2333: x_msg_count := l_msg_count;
2334: x_msg_data := l_msg_data;
2335: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2336: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2340: x_return_status := FND_API.G_RET_STS_ERROR;

2336: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2337: ROLLBACK TO writeFeeSchedule;
2338:
2339: WHEN OTHERS THEN
2340: x_return_status := FND_API.G_RET_STS_ERROR;
2341: x_msg_count := l_msg_count;
2342: x_msg_data := l_msg_data;
2343: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2344: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2431: IF FND_API.to_Boolean(p_init_msg_list) THEN

2427: -- Standard Start of API savepoint
2428: SAVEPOINT processFees;
2429:
2430: -- Initialize message list IF p_init_msg_list is set to TRUE.
2431: IF FND_API.to_Boolean(p_init_msg_list) THEN
2432: FND_MSG_PUB.initialize;
2433: END IF;
2434:
2435: -- Initialize API return status to SUCCESS

Line 2436: x_return_status := FND_API.G_RET_STS_SUCCESS;

2432: FND_MSG_PUB.initialize;
2433: END IF;
2434:
2435: -- Initialize API return status to SUCCESS
2436: x_return_status := FND_API.G_RET_STS_SUCCESS;
2437: l_processed_fees:= 0;
2438:
2439: -- ---------------------------------------------------------------------
2440: -- Api body

Line 2467: RAISE FND_API.G_EXC_ERROR;

2463:
2464: if p_fee_structures(i).fee_category is null AND p_fee_structures(i).fee_type is null then
2465: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CAT_TYPE_MISSING');
2466: FND_MSG_PUB.ADD;
2467: RAISE FND_API.G_EXC_ERROR;
2468: end if;
2469:
2470: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee category ' || l_fee_category);
2471: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee type ' || l_fee_type);

Line 2487: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2483: ,x_fees_tbl => l_fee_calc_tbl
2484: ,x_return_status => l_return_status
2485: ,x_msg_count => l_msg_count
2486: ,x_msg_data => l_msg_data);
2487: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2488: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2489: FND_MSG_PUB.ADD;
2490: RAISE FND_API.G_EXC_ERROR;
2491: end if;

Line 2490: RAISE FND_API.G_EXC_ERROR;

2486: ,x_msg_data => l_msg_data);
2487: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2488: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2489: FND_MSG_PUB.ADD;
2490: RAISE FND_API.G_EXC_ERROR;
2491: end if;
2492:
2493: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculated fees count is ' || l_fee_calc_tbl.count);
2494: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list

Line 2501: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2497: ,p_fees_tbl => l_fee_calc_tbl
2498: ,x_return_status => l_return_status
2499: ,x_msg_count => l_msg_count
2500: ,x_msg_data => l_msg_data);
2501: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2502: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2503: FND_MSG_PUB.ADD;
2504: RAISE FND_API.G_EXC_ERROR;
2505: end if;

Line 2504: RAISE FND_API.G_EXC_ERROR;

2500: ,x_msg_data => l_msg_data);
2501: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2502: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2503: FND_MSG_PUB.ADD;
2504: RAISE FND_API.G_EXC_ERROR;
2505: end if;
2506: end loop;
2507: end if;
2508:

Line 2517: IF FND_API.to_Boolean(p_commit) THEN

2513: -- ---------------------------------------------------------------------
2514: -- End of API body
2515: -- ---------------------------------------------------------------------
2516:
2517: IF FND_API.to_Boolean(p_commit) THEN
2518: COMMIT WORK;
2519: END IF;
2520:
2521: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2526: WHEN FND_API.G_EXC_ERROR THEN

2522:
2523: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2524:
2525: EXCEPTION
2526: WHEN FND_API.G_EXC_ERROR THEN
2527: x_return_status := FND_API.G_RET_STS_ERROR;
2528: x_msg_count := l_msg_count;
2529: x_msg_data := l_msg_data;
2530: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2527: x_return_status := FND_API.G_RET_STS_ERROR;

2523: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2524:
2525: EXCEPTION
2526: WHEN FND_API.G_EXC_ERROR THEN
2527: x_return_status := FND_API.G_RET_STS_ERROR;
2528: x_msg_count := l_msg_count;
2529: x_msg_data := l_msg_data;
2530: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2531: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2530: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2531: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2532: ROLLBACK TO processFees;
2533:
2534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2535: x_return_status := FND_API.G_RET_STS_ERROR;
2536: x_msg_count := l_msg_count;
2537: x_msg_data := l_msg_data;
2538: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2535: x_return_status := FND_API.G_RET_STS_ERROR;

2531: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2532: ROLLBACK TO processFees;
2533:
2534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2535: x_return_status := FND_API.G_RET_STS_ERROR;
2536: x_msg_count := l_msg_count;
2537: x_msg_data := l_msg_data;
2538: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2539: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2543: x_return_status := FND_API.G_RET_STS_ERROR;

2539: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2540: ROLLBACK TO processFees;
2541:
2542: WHEN OTHERS THEN
2543: x_return_status := FND_API.G_RET_STS_ERROR;
2544: x_msg_count := l_msg_count;
2545: x_msg_data := l_msg_data;
2546: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2547: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2613: IF FND_API.to_Boolean(p_init_msg_list) THEN

2609: -- Standard Start of API savepoint
2610: SAVEPOINT waiveFee;
2611:
2612: -- Initialize message list IF p_init_msg_list is set to TRUE.
2613: IF FND_API.to_Boolean(p_init_msg_list) THEN
2614: FND_MSG_PUB.initialize;
2615: END IF;
2616:
2617: -- Initialize API return status to SUCCESS

Line 2618: x_return_status := FND_API.G_RET_STS_SUCCESS;

2614: FND_MSG_PUB.initialize;
2615: END IF;
2616:
2617: -- Initialize API return status to SUCCESS
2618: x_return_status := FND_API.G_RET_STS_SUCCESS;
2619:
2620: -- ---------------------------------------------------------------------
2621: -- Api body
2622: -- ---------------------------------------------------------------------

Line 2632: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2628: ,p_col_id => p_loan_id
2629: ,p_col_name => 'LOAN_ID'
2630: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
2631:
2632: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2633: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2634: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2635: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2636: FND_MSG_PUB.ADD;

Line 2637: RAISE FND_API.G_EXC_ERROR;

2633: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2634: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2635: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2636: FND_MSG_PUB.ADD;
2637: RAISE FND_API.G_EXC_ERROR;
2638: end if;
2639:
2640: lns_utility_pub.validate_any_id(p_api_version => 1.0
2641: ,p_init_msg_list => 'T'

Line 2649: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2645: ,p_col_id => p_fee_schedule_id
2646: ,p_col_name => 'FEE_SCHEDULE_ID'
2647: ,p_table_name => 'LNS_FEE_SCHEDULES');
2648:
2649: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2650: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2651: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_SCHEDULE_ID');
2652: FND_MESSAGE.SET_TOKEN('VALUE', p_fee_schedule_ID);
2653: FND_MSG_PUB.ADD;

Line 2654: RAISE FND_API.G_EXC_ERROR;

2650: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2651: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_SCHEDULE_ID');
2652: FND_MESSAGE.SET_TOKEN('VALUE', p_fee_schedule_ID);
2653: FND_MSG_PUB.ADD;
2654: RAISE FND_API.G_EXC_ERROR;
2655: end if;
2656:
2657: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount to waive ' || p_waive_amount);
2658:

Line 2662: RAISE FND_API.G_EXC_ERROR;

2658:
2659: if p_waive_amount is null then
2660: FND_MESSAGE.SET_NAME('LNS', 'LNS_WAIVE_AMOUNT_INVALID');
2661: FND_MSG_PUB.ADD;
2662: RAISE FND_API.G_EXC_ERROR;
2663: else
2664: open c_fee_waive_amount(p_fee_schedule_id);
2665: fetch c_fee_waive_amount into l_fee_amount_remaining, l_waived_amount;
2666: close c_fee_waive_amount;

Line 2672: RAISE FND_API.G_EXC_ERROR;

2668: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount remain ' || l_fee_amount_remaining);
2669: if p_waive_amount > l_fee_amount_remaining or p_waive_amount < 0 then
2670: FND_MESSAGE.SET_NAME('LNS', 'LNS_WAIVE_AMOUNT_INVALID');
2671: FND_MSG_PUB.ADD;
2672: RAISE FND_API.G_EXC_ERROR;
2673: end if;
2674:
2675: -- fee is valid and waive amount is valid. update the fee schedule
2676: -- check on updating object_version_number

Line 2700: IF FND_API.to_Boolean(p_commit) THEN

2696: -- ---------------------------------------------------------------------
2697: -- End of API body
2698: -- ---------------------------------------------------------------------
2699:
2700: IF FND_API.to_Boolean(p_commit) THEN
2701: COMMIT WORK;
2702: END IF;
2703:
2704: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2709: WHEN FND_API.G_EXC_ERROR THEN

2705:
2706: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2707:
2708: EXCEPTION
2709: WHEN FND_API.G_EXC_ERROR THEN
2710: x_return_status := FND_API.G_RET_STS_ERROR;
2711: x_msg_count := l_msg_count;
2712: x_msg_data := l_msg_data;
2713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2710: x_return_status := FND_API.G_RET_STS_ERROR;

2706: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2707:
2708: EXCEPTION
2709: WHEN FND_API.G_EXC_ERROR THEN
2710: x_return_status := FND_API.G_RET_STS_ERROR;
2711: x_msg_count := l_msg_count;
2712: x_msg_data := l_msg_data;
2713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2714: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2713: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2714: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2715: ROLLBACK TO waiveFee;
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: x_msg_count := l_msg_count;
2720: x_msg_data := l_msg_data;
2721: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2718: x_return_status := FND_API.G_RET_STS_ERROR;

2714: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2715: ROLLBACK TO waiveFee;
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718: x_return_status := FND_API.G_RET_STS_ERROR;
2719: x_msg_count := l_msg_count;
2720: x_msg_data := l_msg_data;
2721: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2722: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2726: x_return_status := FND_API.G_RET_STS_ERROR;

2722: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2723: ROLLBACK TO waiveFee;
2724:
2725: WHEN OTHERS THEN
2726: x_return_status := FND_API.G_RET_STS_ERROR;
2727: x_msg_count := l_msg_count;
2728: x_msg_data := l_msg_data;
2729: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2730: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2872: IF FND_API.to_Boolean(p_init_msg_list) THEN

2868: -- Standard Start of API savepoint
2869: SAVEPOINT processLateFees;
2870:
2871: -- Initialize message list IF p_init_msg_list is set to TRUE.
2872: IF FND_API.to_Boolean(p_init_msg_list) THEN
2873: FND_MSG_PUB.initialize;
2874: END IF;
2875:
2876: -- Initialize API return status to SUCCESS

Line 2877: x_return_status := FND_API.G_RET_STS_SUCCESS;

2873: FND_MSG_PUB.initialize;
2874: END IF;
2875:
2876: -- Initialize API return status to SUCCESS
2877: x_return_status := FND_API.G_RET_STS_SUCCESS;
2878:
2879: -- ---------------------------------------------------------------------
2880: -- Api body
2881: -- ---------------------------------------------------------------------

Line 2972: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2968: ,x_fees_tbl => l_fee_calc_tbl
2969: ,x_return_status => l_return_status
2970: ,x_msg_count => l_msg_count
2971: ,x_msg_data => l_msg_data);
2972: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2973: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2974: FND_MSG_PUB.ADD;
2975: RAISE FND_API.G_EXC_ERROR;
2976: end if;

Line 2975: RAISE FND_API.G_EXC_ERROR;

2971: ,x_msg_data => l_msg_data);
2972: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2973: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2974: FND_MSG_PUB.ADD;
2975: RAISE FND_API.G_EXC_ERROR;
2976: end if;
2977:
2978: -- assign this so we can write the fee
2979: l_fee_calc_tbl_full(i) := l_fee_calc_tbl(1);

Line 2994: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2990: ,p_fees_tbl => l_fee_calc_tbl_full
2991: ,x_return_status => l_return_status
2992: ,x_msg_count => l_msg_count
2993: ,x_msg_data => l_msg_data);
2994: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2995: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2996: FND_MSG_PUB.ADD;
2997: RAISE FND_API.G_EXC_ERROR;
2998: end if;

Line 2997: RAISE FND_API.G_EXC_ERROR;

2993: ,x_msg_data => l_msg_data);
2994: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2995: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2996: FND_MSG_PUB.ADD;
2997: RAISE FND_API.G_EXC_ERROR;
2998: end if;
2999:
3000: end if; -- l_last_installment > 1
3001: -- ---------------------------------------------------------------------

Line 3005: IF FND_API.to_Boolean(p_commit) THEN

3001: -- ---------------------------------------------------------------------
3002: -- End of API body
3003: -- ---------------------------------------------------------------------
3004:
3005: IF FND_API.to_Boolean(p_commit) THEN
3006: COMMIT WORK;
3007: END IF;
3008:
3009: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3014: WHEN FND_API.G_EXC_ERROR THEN

3010:
3011: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3012:
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_ERROR THEN
3015: x_return_status := FND_API.G_RET_STS_ERROR;
3016: x_msg_count := l_msg_count;
3017: x_msg_data := l_msg_data;
3018: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3015: x_return_status := FND_API.G_RET_STS_ERROR;

3011: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3012:
3013: EXCEPTION
3014: WHEN FND_API.G_EXC_ERROR THEN
3015: x_return_status := FND_API.G_RET_STS_ERROR;
3016: x_msg_count := l_msg_count;
3017: x_msg_data := l_msg_data;
3018: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3019: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3018: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3019: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3020: ROLLBACK TO processLateFees;
3021:
3022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: x_msg_count := l_msg_count;
3025: x_msg_data := l_msg_data;
3026: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3023: x_return_status := FND_API.G_RET_STS_ERROR;

3019: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3020: ROLLBACK TO processLateFees;
3021:
3022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: x_msg_count := l_msg_count;
3025: x_msg_data := l_msg_data;
3026: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3027: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3031: x_return_status := FND_API.G_RET_STS_ERROR;

3027: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3028: ROLLBACK TO processLateFees;
3029:
3030: WHEN OTHERS THEN
3031: x_return_status := FND_API.G_RET_STS_ERROR;
3032: x_msg_count := l_msg_count;
3033: x_msg_data := l_msg_data;
3034: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3035: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3083: ,p_init_msg_list => FND_API.G_TRUE

3079:
3080: if p_loan_id is not null then
3081: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing single loan ' || p_loan_id);
3082: lns_fee_engine.processLateFees(p_loan_id => p_loan_id
3083: ,p_init_msg_list => FND_API.G_TRUE
3084: ,p_commit => FND_API.G_TRUE
3085: ,x_return_status => l_return_status
3086: ,x_msg_count => l_msg_count
3087: ,x_msg_data => l_msg_data);

Line 3084: ,p_commit => FND_API.G_TRUE

3080: if p_loan_id is not null then
3081: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing single loan ' || p_loan_id);
3082: lns_fee_engine.processLateFees(p_loan_id => p_loan_id
3083: ,p_init_msg_list => FND_API.G_TRUE
3084: ,p_commit => FND_API.G_TRUE
3085: ,x_return_status => l_return_status
3086: ,x_msg_count => l_msg_count
3087: ,x_msg_data => l_msg_data);
3088:

Line 3100: ,p_init_msg_list => FND_API.G_TRUE

3096: exit when c_borrower_loans%notfound;
3097:
3098: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3099: lns_fee_engine.processLateFees(p_loan_id => l_loan_id
3100: ,p_init_msg_list => FND_API.G_TRUE
3101: ,p_commit => FND_API.G_TRUE
3102: ,x_return_status => l_return_status
3103: ,x_msg_count => l_msg_count
3104: ,x_msg_data => l_msg_data);

Line 3101: ,p_commit => FND_API.G_TRUE

3097:
3098: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3099: lns_fee_engine.processLateFees(p_loan_id => l_loan_id
3100: ,p_init_msg_list => FND_API.G_TRUE
3101: ,p_commit => FND_API.G_TRUE
3102: ,x_return_status => l_return_status
3103: ,x_msg_count => l_msg_count
3104: ,x_msg_data => l_msg_data);
3105: FND_FILE.PUT_LINE(FND_FILE.LOG, 'FAP status ' || l_return_status);

Line 3119: ,p_init_msg_list => FND_API.G_TRUE

3115: exit when c_all_active_loans%notfound;
3116:
3117: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3118: lns_fee_engine.processLateFees(p_loan_id => l_loan_id
3119: ,p_init_msg_list => FND_API.G_TRUE
3120: ,p_commit => FND_API.G_TRUE
3121: ,x_return_status => l_return_status
3122: ,x_msg_count => l_msg_count
3123: ,x_msg_data => l_msg_data);

Line 3120: ,p_commit => FND_API.G_TRUE

3116:
3117: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3118: lns_fee_engine.processLateFees(p_loan_id => l_loan_id
3119: ,p_init_msg_list => FND_API.G_TRUE
3120: ,p_commit => FND_API.G_TRUE
3121: ,x_return_status => l_return_status
3122: ,x_msg_count => l_msg_count
3123: ,x_msg_data => l_msg_data);
3124: FND_FILE.PUT_LINE(FND_FILE.LOG, 'FAP status ' || l_return_status);

Line 3138: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3134:
3135: l_processed_fees := l_fee_records2 - l_fee_records1;
3136: FND_FILE.PUT_LINE(FND_FILE.LOG, 'added ' || l_processed_fees || ' into fee schedule');
3137:
3138: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3139: RAISE FND_API.G_EXC_ERROR;
3140: else
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Late Fee Assessment: PROCESS COMPLETED SUCCESFULLY.');
3142: end if;

Line 3139: RAISE FND_API.G_EXC_ERROR;

3135: l_processed_fees := l_fee_records2 - l_fee_records1;
3136: FND_FILE.PUT_LINE(FND_FILE.LOG, 'added ' || l_processed_fees || ' into fee schedule');
3137:
3138: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3139: RAISE FND_API.G_EXC_ERROR;
3140: else
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Late Fee Assessment: PROCESS COMPLETED SUCCESFULLY.');
3142: end if;
3143:

Line 3146: WHEN FND_API.G_EXC_ERROR THEN

3142: end if;
3143:
3144: EXCEPTION
3145: -- note do not set retcode when error is expected
3146: WHEN FND_API.G_EXC_ERROR THEN
3147: RETCODE := -1;
3148: ERRBUF := l_msg_data;
3149: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN FAP: ' || sqlerrm || ERRBUF);
3150: if l_msg_count > 0 then