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 186: IF FND_API.to_Boolean(p_init_msg_list) THEN

182: -- Standard Start of API savepoint
183: SAVEPOINT processDisbursementFees;
184:
185: -- Initialize message list IF p_init_msg_list is set to TRUE.
186: IF FND_API.to_Boolean(p_init_msg_list) THEN
187: FND_MSG_PUB.initialize;
188: END IF;
189:
190: -- Initialize API return status to SUCCESS

Line 191: x_return_status := FND_API.G_RET_STS_SUCCESS;

187: FND_MSG_PUB.initialize;
188: END IF;
189:
190: -- Initialize API return status to SUCCESS
191: x_return_status := FND_API.G_RET_STS_SUCCESS;
192:
193: -- ---------------------------------------------------------------------
194: -- Api body
195: -- ---------------------------------------------------------------------

Line 301: IF FND_API.to_Boolean(p_commit) THEN

297:
298: -- ---------------------------------------------------------------------
299: -- End of API body
300: -- ---------------------------------------------------------------------
301: IF FND_API.to_Boolean(p_commit) THEN
302: COMMIT WORK;
303: END IF;
304: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
305:

Line 309: WHEN FND_API.G_EXC_ERROR THEN

305:
306: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
307:
308: EXCEPTION
309: WHEN FND_API.G_EXC_ERROR THEN
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: x_msg_count := l_msg_count;
312: x_msg_data := l_msg_data;
313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 310: x_return_status := FND_API.G_RET_STS_ERROR;

306: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
307:
308: EXCEPTION
309: WHEN FND_API.G_EXC_ERROR THEN
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: x_msg_count := l_msg_count;
312: x_msg_data := l_msg_data;
313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
314: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

313: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
314: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
315: ROLLBACK TO processDisbursementFees;
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: x_msg_count := l_msg_count;
320: x_msg_data := l_msg_data;
321: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 318: x_return_status := FND_API.G_RET_STS_ERROR;

314: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
315: ROLLBACK TO processDisbursementFees;
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
318: x_return_status := FND_API.G_RET_STS_ERROR;
319: x_msg_count := l_msg_count;
320: x_msg_data := l_msg_data;
321: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
322: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 326: x_return_status := FND_API.G_RET_STS_ERROR;

322: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
323: ROLLBACK TO processDisbursementFees;
324:
325: WHEN OTHERS THEN
326: x_return_status := FND_API.G_RET_STS_ERROR;
327: x_msg_count := l_msg_count;
328: x_msg_data := l_msg_data;
329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
330: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 422: IF FND_API.to_Boolean(p_init_msg_list) THEN

418: -- Standard Start of API savepoint
419: SAVEPOINT reprocessFees;
420:
421: -- Initialize message list IF p_init_msg_list is set to TRUE.
422: IF FND_API.to_Boolean(p_init_msg_list) THEN
423: FND_MSG_PUB.initialize;
424: END IF;
425:
426: -- Initialize API return status to SUCCESS

Line 427: x_return_status := FND_API.G_RET_STS_SUCCESS;

423: FND_MSG_PUB.initialize;
424: END IF;
425:
426: -- Initialize API return status to SUCCESS
427: x_return_status := FND_API.G_RET_STS_SUCCESS;
428:
429: -- ---------------------------------------------------------------------
430: -- Api body
431: -- ---------------------------------------------------------------------

Line 494: WHEN FND_API.G_EXC_ERROR THEN

490:
491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
492:
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: x_msg_count := l_msg_count;
497: x_msg_data := l_msg_data;
498: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 495: x_return_status := FND_API.G_RET_STS_ERROR;

491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
492:
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: x_return_status := FND_API.G_RET_STS_ERROR;
496: x_msg_count := l_msg_count;
497: x_msg_data := l_msg_data;
498: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

498: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
500: ROLLBACK TO reprocessFees;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: x_msg_count := l_msg_count;
505: x_msg_data := l_msg_data;
506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 503: x_return_status := FND_API.G_RET_STS_ERROR;

499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
500: ROLLBACK TO reprocessFees;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
503: x_return_status := FND_API.G_RET_STS_ERROR;
504: x_msg_count := l_msg_count;
505: x_msg_data := l_msg_data;
506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
507: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 511: x_return_status := FND_API.G_RET_STS_ERROR;

507: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
508: ROLLBACK TO reprocessFees;
509:
510: WHEN OTHERS THEN
511: x_return_status := FND_API.G_RET_STS_ERROR;
512: x_msg_count := l_msg_count;
513: x_msg_data := l_msg_data;
514: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
515: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1325: x_return_status := FND_API.G_RET_STS_SUCCESS;

1321:
1322: l_api_name := 'calculateFees';
1323: l_total_fees := 0;
1324: l_intervals := 1;
1325: x_return_status := FND_API.G_RET_STS_SUCCESS;
1326:
1327: -- first figure out if fee applies to the current installment
1328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1329: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_loan_id = ' || p_loan_id);

Line 1401: --RAISE FND_API.G_EXC_ERROR;

1397: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - in exception');
1398: l_fee := 0;
1399: --FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALC_ERROR');
1400: --FND_MSG_PUB.ADD;
1401: --RAISE FND_API.G_EXC_ERROR;
1402: end;
1403:
1404: elsif p_fee_structures(f).fee_rate_type = 'CUSTOM' then
1405:

Line 1602: IF FND_API.to_Boolean(p_init_msg_list) THEN

1598: -- Standard Start of API savepoint
1599: SAVEPOINT getFees;
1600:
1601: -- Initialize message list IF p_init_msg_list is set to TRUE.
1602: IF FND_API.to_Boolean(p_init_msg_list) THEN
1603: FND_MSG_PUB.initialize;
1604: END IF;
1605:
1606: -- Initialize API return status to SUCCESS

Line 1607: x_return_status := FND_API.G_RET_STS_SUCCESS;

1603: FND_MSG_PUB.initialize;
1604: END IF;
1605:
1606: -- Initialize API return status to SUCCESS
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: -- ---------------------------------------------------------------------
1610: -- Api body
1611: -- ---------------------------------------------------------------------

Line 1704: WHEN FND_API.G_EXC_ERROR THEN

1700:
1701: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1702:
1703: EXCEPTION
1704: WHEN FND_API.G_EXC_ERROR THEN
1705: x_return_status := FND_API.G_RET_STS_ERROR;
1706: x_msg_count := l_msg_count;
1707: x_msg_data := l_msg_data;
1708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1705: x_return_status := FND_API.G_RET_STS_ERROR;

1701: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1702:
1703: EXCEPTION
1704: WHEN FND_API.G_EXC_ERROR THEN
1705: x_return_status := FND_API.G_RET_STS_ERROR;
1706: x_msg_count := l_msg_count;
1707: x_msg_data := l_msg_data;
1708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1709: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1708: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1709: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1710: ROLLBACK TO getFees;
1711:
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR;
1714: x_msg_count := l_msg_count;
1715: x_msg_data := l_msg_data;
1716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 1713: x_return_status := FND_API.G_RET_STS_ERROR;

1709: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1710: ROLLBACK TO getFees;
1711:
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1713: x_return_status := FND_API.G_RET_STS_ERROR;
1714: x_msg_count := l_msg_count;
1715: x_msg_data := l_msg_data;
1716: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1717: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1721: x_return_status := FND_API.G_RET_STS_ERROR;

1717: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1718: ROLLBACK TO getFees;
1719:
1720: WHEN OTHERS THEN
1721: x_return_status := FND_API.G_RET_STS_ERROR;
1722: x_msg_count := l_msg_count;
1723: x_msg_data := l_msg_data;
1724: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1725: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 1858: IF FND_API.to_Boolean(p_init_msg_list) THEN

1854: -- Standard Start of API savepoint
1855: SAVEPOINT getFeeDetails;
1856:
1857: -- Initialize message list IF p_init_msg_list is set to TRUE.
1858: IF FND_API.to_Boolean(p_init_msg_list) THEN
1859: FND_MSG_PUB.initialize;
1860: END IF;
1861:
1862: -- Initialize API return status to SUCCESS

Line 1863: x_return_status := FND_API.G_RET_STS_SUCCESS;

1859: FND_MSG_PUB.initialize;
1860: END IF;
1861:
1862: -- Initialize API return status to SUCCESS
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
1864:
1865: -- ---------------------------------------------------------------------
1866: -- Api body
1867: -- ---------------------------------------------------------------------

Line 1899: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

1895: ,x_msg_count => l_msg_count
1896: ,x_msg_data => l_msg_data);
1897:
1898: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1899: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1900: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1901: FND_MSG_PUB.ADD;
1902: RAISE FND_API.G_EXC_ERROR;
1903: end if;

Line 1902: RAISE FND_API.G_EXC_ERROR;

1898: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1899: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1900: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1901: FND_MSG_PUB.ADD;
1902: RAISE FND_API.G_EXC_ERROR;
1903: end if;
1904:
1905: end if;
1906:

Line 2205: WHEN FND_API.G_EXC_ERROR THEN

2201:
2202: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2203:
2204: EXCEPTION
2205: WHEN FND_API.G_EXC_ERROR THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: x_msg_count := l_msg_count;
2208: x_msg_data := l_msg_data;
2209: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2206: x_return_status := FND_API.G_RET_STS_ERROR;

2202: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2203:
2204: EXCEPTION
2205: WHEN FND_API.G_EXC_ERROR THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: x_msg_count := l_msg_count;
2208: x_msg_data := l_msg_data;
2209: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2210: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2209: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2210: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2211: ROLLBACK TO getFeeDetails;
2212:
2213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR;
2215: x_msg_count := l_msg_count;
2216: x_msg_data := l_msg_data;
2217: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2214: x_return_status := FND_API.G_RET_STS_ERROR;

2210: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2211: ROLLBACK TO getFeeDetails;
2212:
2213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2214: x_return_status := FND_API.G_RET_STS_ERROR;
2215: x_msg_count := l_msg_count;
2216: x_msg_data := l_msg_data;
2217: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2218: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2222: x_return_status := FND_API.G_RET_STS_ERROR;

2218: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2219: ROLLBACK TO getFeeDetails;
2220:
2221: WHEN OTHERS THEN
2222: x_return_status := FND_API.G_RET_STS_ERROR;
2223: x_msg_count := l_msg_count;
2224: x_msg_data := l_msg_data;
2225: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2226: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2306: IF FND_API.to_Boolean(p_init_msg_list) THEN

2302: -- Standard Start of API savepoint
2303: SAVEPOINT updateFeeSchedule;
2304:
2305: -- Initialize message list IF p_init_msg_list is set to TRUE.
2306: IF FND_API.to_Boolean(p_init_msg_list) THEN
2307: FND_MSG_PUB.initialize;
2308: END IF;
2309:
2310: -- Initialize API return status to SUCCESS

Line 2311: x_return_status := FND_API.G_RET_STS_SUCCESS;

2307: FND_MSG_PUB.initialize;
2308: END IF;
2309:
2310: -- Initialize API return status to SUCCESS
2311: x_return_status := FND_API.G_RET_STS_SUCCESS;
2312:
2313: -- ---------------------------------------------------------------------
2314: -- Api body
2315: -- ---------------------------------------------------------------------

Line 2331: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2327: ,p_col_id => p_loan_id
2328: ,p_col_name => 'LOAN_ID'
2329: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
2330:
2331: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2332: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2333: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2334: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2335: FND_MSG_PUB.ADD;

Line 2336: RAISE FND_API.G_EXC_ERROR;

2332: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2333: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2334: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2335: FND_MSG_PUB.ADD;
2336: RAISE FND_API.G_EXC_ERROR;
2337: end if;
2338:
2339: open c_phase(p_loan_id);
2340: fetch c_phase into l_phase;

Line 2356: RAISE FND_API.G_EXC_ERROR;

2352: -- first validation as per june : do not add fees far into the future
2353: if p_fees_tbl(k).fee_installment > l_loan_details.LAST_INSTALLMENT_BILLED + 1 then
2354: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR3');
2355: FND_MSG_PUB.ADD;
2356: RAISE FND_API.G_EXC_ERROR;
2357: end if;
2358:
2359:
2360: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then

Line 2363: RAISE FND_API.G_EXC_ERROR;

2359:
2360: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2361: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');
2362: FND_MSG_PUB.ADD;
2363: RAISE FND_API.G_EXC_ERROR;
2364: end if;
2365:
2366: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2367: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');

Line 2369: RAISE FND_API.G_EXC_ERROR;

2365:
2366: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2367: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');
2368: FND_MSG_PUB.ADD;
2369: RAISE FND_API.G_EXC_ERROR;
2370: end if;
2371:
2372: end if;
2373:

Line 2377: RAISE FND_API.G_EXC_ERROR;

2373:
2374: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT < 0 then
2375: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');
2376: FND_MSG_PUB.ADD;
2377: RAISE FND_API.G_EXC_ERROR;
2378: end if;
2379:
2380: if p_fees_tbl(k).FEE_ID is not null then
2381: lns_utility_pub.validate_any_id(p_api_version => 1.0

Line 2390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2386: ,p_col_id => p_fees_tbl(k).FEE_ID
2387: ,p_col_name => 'FEE_ID'
2388: ,p_table_name => 'LNS_FEES');
2389:
2390: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2391: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2392: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2393: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2394: FND_MSG_PUB.ADD;

Line 2395: RAISE FND_API.G_EXC_ERROR;

2391: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2392: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2393: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2394: FND_MSG_PUB.ADD;
2395: RAISE FND_API.G_EXC_ERROR;
2396: end if;
2397:
2398: end if;
2399:

Line 2440: IF FND_API.to_Boolean(p_commit) THEN

2436: -- ---------------------------------------------------------------------
2437: -- End of API body
2438: -- ---------------------------------------------------------------------
2439:
2440: IF FND_API.to_Boolean(p_commit) THEN
2441: COMMIT WORK;
2442: END IF;
2443:
2444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2449: WHEN FND_API.G_EXC_ERROR THEN

2445:
2446: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2447:
2448: EXCEPTION
2449: WHEN FND_API.G_EXC_ERROR THEN
2450: x_return_status := FND_API.G_RET_STS_ERROR;
2451: x_msg_count := l_msg_count;
2452: x_msg_data := l_msg_data;
2453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2450: x_return_status := FND_API.G_RET_STS_ERROR;

2446: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2447:
2448: EXCEPTION
2449: WHEN FND_API.G_EXC_ERROR THEN
2450: x_return_status := FND_API.G_RET_STS_ERROR;
2451: x_msg_count := l_msg_count;
2452: x_msg_data := l_msg_data;
2453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2454: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2453: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2454: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2455: ROLLBACK TO updateFeeSchedule;
2456:
2457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2458: x_return_status := FND_API.G_RET_STS_ERROR;
2459: x_msg_count := l_msg_count;
2460: x_msg_data := l_msg_data;
2461: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2458: x_return_status := FND_API.G_RET_STS_ERROR;

2454: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2455: ROLLBACK TO updateFeeSchedule;
2456:
2457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2458: x_return_status := FND_API.G_RET_STS_ERROR;
2459: x_msg_count := l_msg_count;
2460: x_msg_data := l_msg_data;
2461: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2462: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2466: x_return_status := FND_API.G_RET_STS_ERROR;

2462: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2463: ROLLBACK TO updateFeeSchedule;
2464:
2465: WHEN OTHERS THEN
2466: x_return_status := FND_API.G_RET_STS_ERROR;
2467: x_msg_count := l_msg_count;
2468: x_msg_data := l_msg_data;
2469: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2470: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2532: IF FND_API.to_Boolean(p_init_msg_list) THEN

2528: -- Standard Start of API savepoint
2529: SAVEPOINT writeFeeSchedule;
2530:
2531: -- Initialize message list IF p_init_msg_list is set to TRUE.
2532: IF FND_API.to_Boolean(p_init_msg_list) THEN
2533: FND_MSG_PUB.initialize;
2534: END IF;
2535:
2536: -- Initialize API return status to SUCCESS

Line 2537: x_return_status := FND_API.G_RET_STS_SUCCESS;

2533: FND_MSG_PUB.initialize;
2534: END IF;
2535:
2536: -- Initialize API return status to SUCCESS
2537: x_return_status := FND_API.G_RET_STS_SUCCESS;
2538:
2539: -- ---------------------------------------------------------------------
2540: -- Api body
2541: -- ---------------------------------------------------------------------

Line 2552: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2548: ,p_col_id => p_loan_id
2549: ,p_col_name => 'LOAN_ID'
2550: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
2551:
2552: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2553: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2554: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2555: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2556: FND_MSG_PUB.ADD;

Line 2557: RAISE FND_API.G_EXC_ERROR;

2553: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2554: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
2555: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
2556: FND_MSG_PUB.ADD;
2557: RAISE FND_API.G_EXC_ERROR;
2558: end if;
2559:
2560: open c_phase(p_loan_id);
2561: fetch c_phase into l_phase;

Line 2580: RAISE FND_API.G_EXC_ERROR;

2576: -- first validation as per june : do not add fees far into the future
2577: if p_fees_tbl(k).fee_installment > l_loan_details.LAST_INSTALLMENT_BILLED + 1 then
2578: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR3');
2579: FND_MSG_PUB.ADD;
2580: RAISE FND_API.G_EXC_ERROR;
2581: end if;
2582:
2583: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2584: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');

Line 2586: RAISE FND_API.G_EXC_ERROR;

2582:
2583: if p_fees_tbl(k).fee_installment < l_loan_details.LAST_INSTALLMENT_BILLED then
2584: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR1');
2585: FND_MSG_PUB.ADD;
2586: RAISE FND_API.G_EXC_ERROR;
2587: end if;
2588:
2589: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2590: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');

Line 2592: RAISE FND_API.G_EXC_ERROR;

2588:
2589: if p_fees_tbl(k).fee_installment > l_loan_details.NUMBER_INSTALLMENTS then
2590: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_INSTALLMENT_ERROR2');
2591: FND_MSG_PUB.ADD;
2592: RAISE FND_API.G_EXC_ERROR;
2593: end if;
2594:
2595: end if;
2596:

Line 2600: RAISE FND_API.G_EXC_ERROR;

2596:
2597: if p_fees_tbl(k).FEE_AMOUNT is null or p_fees_tbl(k).FEE_AMOUNT < 0 then
2598: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_FEE_AMOUNT');
2599: FND_MSG_PUB.ADD;
2600: RAISE FND_API.G_EXC_ERROR;
2601: end if;
2602:
2603: if p_fees_tbl(k).FEE_ID is not null then
2604: lns_utility_pub.validate_any_id(p_api_version => 1.0

Line 2613: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2609: ,p_col_id => p_fees_tbl(k).FEE_ID
2610: ,p_col_name => 'FEE_ID'
2611: ,p_table_name => 'LNS_FEES');
2612:
2613: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2614: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2615: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2616: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2617: FND_MSG_PUB.ADD;

Line 2618: RAISE FND_API.G_EXC_ERROR;

2614: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2615: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_ID');
2616: FND_MESSAGE.SET_TOKEN('VALUE', p_fees_tbl(k).FEE_ID);
2617: FND_MSG_PUB.ADD;
2618: RAISE FND_API.G_EXC_ERROR;
2619: end if;
2620:
2621: end if;
2622: else

Line 2659: IF FND_API.to_Boolean(p_commit) THEN

2655:
2656: -- ---------------------------------------------------------------------
2657: -- End of API body
2658: -- ---------------------------------------------------------------------
2659: IF FND_API.to_Boolean(p_commit) THEN
2660: COMMIT WORK;
2661: END IF;
2662:
2663: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2668: WHEN FND_API.G_EXC_ERROR THEN

2664:
2665: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2666:
2667: EXCEPTION
2668: WHEN FND_API.G_EXC_ERROR THEN
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: x_msg_count := l_msg_count;
2671: x_msg_data := l_msg_data;
2672: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2669: x_return_status := FND_API.G_RET_STS_ERROR;

2665: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2666:
2667: EXCEPTION
2668: WHEN FND_API.G_EXC_ERROR THEN
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: x_msg_count := l_msg_count;
2671: x_msg_data := l_msg_data;
2672: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2673: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2672: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2673: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2674: ROLLBACK TO writeFeeSchedule;
2675:
2676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2677: x_return_status := FND_API.G_RET_STS_ERROR;
2678: x_msg_count := l_msg_count;
2679: x_msg_data := l_msg_data;
2680: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2677: x_return_status := FND_API.G_RET_STS_ERROR;

2673: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2674: ROLLBACK TO writeFeeSchedule;
2675:
2676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2677: x_return_status := FND_API.G_RET_STS_ERROR;
2678: x_msg_count := l_msg_count;
2679: x_msg_data := l_msg_data;
2680: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2681: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2685: x_return_status := FND_API.G_RET_STS_ERROR;

2681: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2682: ROLLBACK TO writeFeeSchedule;
2683:
2684: WHEN OTHERS THEN
2685: x_return_status := FND_API.G_RET_STS_ERROR;
2686: x_msg_count := l_msg_count;
2687: x_msg_data := l_msg_data;
2688: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2689: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2790: IF FND_API.to_Boolean(p_init_msg_list) THEN

2786: -- Standard Start of API savepoint
2787: SAVEPOINT processFees;
2788:
2789: -- Initialize message list IF p_init_msg_list is set to TRUE.
2790: IF FND_API.to_Boolean(p_init_msg_list) THEN
2791: FND_MSG_PUB.initialize;
2792: END IF;
2793:
2794: -- Initialize API return status to SUCCESS

Line 2795: x_return_status := FND_API.G_RET_STS_SUCCESS;

2791: FND_MSG_PUB.initialize;
2792: END IF;
2793:
2794: -- Initialize API return status to SUCCESS
2795: x_return_status := FND_API.G_RET_STS_SUCCESS;
2796: l_processed_fees:= 0;
2797: l_inserted_fees := 0;
2798:
2799: -- ---------------------------------------------------------------------

Line 2839: RAISE FND_API.G_EXC_ERROR;

2835:
2836: if p_fee_structures(i).fee_category is null AND p_fee_structures(i).fee_type is null then
2837: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CAT_TYPE_MISSING');
2838: FND_MSG_PUB.ADD;
2839: RAISE FND_API.G_EXC_ERROR;
2840: end if;
2841:
2842: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee category ' || l_fee_category);
2843: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee type ' || l_fee_type);

Line 2863: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2859: ,x_fees_tbl => l_fee_calc_tbl
2860: ,x_return_status => l_return_status
2861: ,x_msg_count => l_msg_count
2862: ,x_msg_data => l_msg_data);
2863: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2864: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2865: FND_MSG_PUB.ADD;
2866: RAISE FND_API.G_EXC_ERROR;
2867: end if;

Line 2866: RAISE FND_API.G_EXC_ERROR;

2862: ,x_msg_data => l_msg_data);
2863: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2864: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
2865: FND_MSG_PUB.ADD;
2866: RAISE FND_API.G_EXC_ERROR;
2867: end if;
2868:
2869: -- Bug#8830789 - To restrict the insertion of duplicate feeSchedule record for the same FeeId and installment of a loan.
2870: -- Delete the existed record and insert the new record

Line 2929: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2925: ,p_fees_tbl => l_write_fee_calc_tbl
2926: ,x_return_status => l_return_status
2927: ,x_msg_count => l_msg_count
2928: ,x_msg_data => l_msg_data);
2929: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2930: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2931: FND_MSG_PUB.ADD;
2932: RAISE FND_API.G_EXC_ERROR;
2933: end if;

Line 2932: RAISE FND_API.G_EXC_ERROR;

2928: ,x_msg_data => l_msg_data);
2929: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2930: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
2931: FND_MSG_PUB.ADD;
2932: RAISE FND_API.G_EXC_ERROR;
2933: end if;
2934:
2935: for k in 1..l_write_fee_calc_tbl.count loop
2936: l_inserted_fees := l_inserted_fees + 1;

Line 2950: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

2946: ,p_fees_tbl => l_update_fee_calc_tbl
2947: ,x_return_status => l_return_status
2948: ,x_msg_count => l_msg_count
2949: ,x_msg_data => l_msg_data);
2950: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2951: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_UPDATE_FAILURE');
2952: FND_MSG_PUB.ADD;
2953: RAISE FND_API.G_EXC_ERROR;
2954: end if;

Line 2953: RAISE FND_API.G_EXC_ERROR;

2949: ,x_msg_data => l_msg_data);
2950: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
2951: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_UPDATE_FAILURE');
2952: FND_MSG_PUB.ADD;
2953: RAISE FND_API.G_EXC_ERROR;
2954: end if;
2955: END IF;
2956: end loop;
2957: end if;

Line 2963: IF FND_API.to_Boolean(p_commit) THEN

2959: -- ---------------------------------------------------------------------
2960: -- End of API body
2961: -- ---------------------------------------------------------------------
2962:
2963: IF FND_API.to_Boolean(p_commit) THEN
2964: COMMIT WORK;
2965: END IF;
2966:
2967: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2972: WHEN FND_API.G_EXC_ERROR THEN

2968:
2969: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2970:
2971: EXCEPTION
2972: WHEN FND_API.G_EXC_ERROR THEN
2973: x_return_status := FND_API.G_RET_STS_ERROR;
2974: x_msg_count := l_msg_count;
2975: x_msg_data := l_msg_data;
2976: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2973: x_return_status := FND_API.G_RET_STS_ERROR;

2969: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2970:
2971: EXCEPTION
2972: WHEN FND_API.G_EXC_ERROR THEN
2973: x_return_status := FND_API.G_RET_STS_ERROR;
2974: x_msg_count := l_msg_count;
2975: x_msg_data := l_msg_data;
2976: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2977: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2976: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2977: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2978: ROLLBACK TO processFees;
2979:
2980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: x_msg_count := l_msg_count;
2983: x_msg_data := l_msg_data;
2984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 2981: x_return_status := FND_API.G_RET_STS_ERROR;

2977: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2978: ROLLBACK TO processFees;
2979:
2980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: x_msg_count := l_msg_count;
2983: x_msg_data := l_msg_data;
2984: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2985: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 2989: x_return_status := FND_API.G_RET_STS_ERROR;

2985: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2986: ROLLBACK TO processFees;
2987:
2988: WHEN OTHERS THEN
2989: x_return_status := FND_API.G_RET_STS_ERROR;
2990: x_msg_count := l_msg_count;
2991: x_msg_data := l_msg_data;
2992: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2993: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3059: IF FND_API.to_Boolean(p_init_msg_list) THEN

3055: -- Standard Start of API savepoint
3056: SAVEPOINT waiveFee;
3057:
3058: -- Initialize message list IF p_init_msg_list is set to TRUE.
3059: IF FND_API.to_Boolean(p_init_msg_list) THEN
3060: FND_MSG_PUB.initialize;
3061: END IF;
3062:
3063: -- Initialize API return status to SUCCESS

Line 3064: x_return_status := FND_API.G_RET_STS_SUCCESS;

3060: FND_MSG_PUB.initialize;
3061: END IF;
3062:
3063: -- Initialize API return status to SUCCESS
3064: x_return_status := FND_API.G_RET_STS_SUCCESS;
3065:
3066: -- ---------------------------------------------------------------------
3067: -- Api body
3068: -- ---------------------------------------------------------------------

Line 3078: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3074: ,p_col_id => p_loan_id
3075: ,p_col_name => 'LOAN_ID'
3076: ,p_table_name => 'LNS_LOAN_HEADERS_ALL');
3077:
3078: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
3080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
3081: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
3082: FND_MSG_PUB.ADD;

Line 3083: RAISE FND_API.G_EXC_ERROR;

3079: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
3080: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LOAN_ID');
3081: FND_MESSAGE.SET_TOKEN('VALUE', p_loan_ID);
3082: FND_MSG_PUB.ADD;
3083: RAISE FND_API.G_EXC_ERROR;
3084: end if;
3085:
3086: lns_utility_pub.validate_any_id(p_api_version => 1.0
3087: ,p_init_msg_list => 'T'

Line 3095: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3091: ,p_col_id => p_fee_schedule_id
3092: ,p_col_name => 'FEE_SCHEDULE_ID'
3093: ,p_table_name => 'LNS_FEE_SCHEDULES');
3094:
3095: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3096: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
3097: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_SCHEDULE_ID');
3098: FND_MESSAGE.SET_TOKEN('VALUE', p_fee_schedule_ID);
3099: FND_MSG_PUB.ADD;

Line 3100: RAISE FND_API.G_EXC_ERROR;

3096: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
3097: FND_MESSAGE.SET_TOKEN('PARAMETER', 'FEE_SCHEDULE_ID');
3098: FND_MESSAGE.SET_TOKEN('VALUE', p_fee_schedule_ID);
3099: FND_MSG_PUB.ADD;
3100: RAISE FND_API.G_EXC_ERROR;
3101: end if;
3102:
3103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount to waive ' || p_waive_amount);
3104:

Line 3108: RAISE FND_API.G_EXC_ERROR;

3104:
3105: if p_waive_amount is null then
3106: FND_MESSAGE.SET_NAME('LNS', 'LNS_WAIVE_AMOUNT_INVALID');
3107: FND_MSG_PUB.ADD;
3108: RAISE FND_API.G_EXC_ERROR;
3109: else
3110: open c_fee_waive_amount(p_fee_schedule_id);
3111: fetch c_fee_waive_amount into l_fee_amount_remaining, l_waived_amount;
3112: close c_fee_waive_amount;

Line 3118: RAISE FND_API.G_EXC_ERROR;

3114: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount remain ' || l_fee_amount_remaining);
3115: if p_waive_amount > l_fee_amount_remaining or p_waive_amount < 0 then
3116: FND_MESSAGE.SET_NAME('LNS', 'LNS_WAIVE_AMOUNT_INVALID');
3117: FND_MSG_PUB.ADD;
3118: RAISE FND_API.G_EXC_ERROR;
3119: end if;
3120:
3121: -- fee is valid and waive amount is valid. update the fee schedule
3122: -- check on updating object_version_number

Line 3148: IF FND_API.to_Boolean(p_commit) THEN

3144: -- ---------------------------------------------------------------------
3145: -- End of API body
3146: -- ---------------------------------------------------------------------
3147:
3148: IF FND_API.to_Boolean(p_commit) THEN
3149: COMMIT WORK;
3150: END IF;
3151:
3152: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3157: WHEN FND_API.G_EXC_ERROR THEN

3153:
3154: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3155:
3156: EXCEPTION
3157: WHEN FND_API.G_EXC_ERROR THEN
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159: x_msg_count := l_msg_count;
3160: x_msg_data := l_msg_data;
3161: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3158: x_return_status := FND_API.G_RET_STS_ERROR;

3154: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3155:
3156: EXCEPTION
3157: WHEN FND_API.G_EXC_ERROR THEN
3158: x_return_status := FND_API.G_RET_STS_ERROR;
3159: x_msg_count := l_msg_count;
3160: x_msg_data := l_msg_data;
3161: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3162: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3161: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3162: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3163: ROLLBACK TO waiveFee;
3164:
3165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3166: x_return_status := FND_API.G_RET_STS_ERROR;
3167: x_msg_count := l_msg_count;
3168: x_msg_data := l_msg_data;
3169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3166: x_return_status := FND_API.G_RET_STS_ERROR;

3162: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3163: ROLLBACK TO waiveFee;
3164:
3165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3166: x_return_status := FND_API.G_RET_STS_ERROR;
3167: x_msg_count := l_msg_count;
3168: x_msg_data := l_msg_data;
3169: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3170: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3174: x_return_status := FND_API.G_RET_STS_ERROR;

3170: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3171: ROLLBACK TO waiveFee;
3172:
3173: WHEN OTHERS THEN
3174: x_return_status := FND_API.G_RET_STS_ERROR;
3175: x_msg_count := l_msg_count;
3176: x_msg_data := l_msg_data;
3177: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3178: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3358: IF FND_API.to_Boolean(p_init_msg_list) THEN

3354: -- Standard Start of API savepoint
3355: SAVEPOINT processLateFees;
3356:
3357: -- Initialize message list IF p_init_msg_list is set to TRUE.
3358: IF FND_API.to_Boolean(p_init_msg_list) THEN
3359: FND_MSG_PUB.initialize;
3360: END IF;
3361:
3362: -- Initialize API return status to SUCCESS

Line 3363: x_return_status := FND_API.G_RET_STS_SUCCESS;

3359: FND_MSG_PUB.initialize;
3360: END IF;
3361:
3362: -- Initialize API return status to SUCCESS
3363: x_return_status := FND_API.G_RET_STS_SUCCESS;
3364:
3365: -- ---------------------------------------------------------------------
3366: -- Api body
3367: -- ---------------------------------------------------------------------

Line 3460: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3456: ,x_return_status => l_return_status
3457: ,x_msg_count => l_msg_count
3458: ,x_msg_data => l_msg_data);
3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
3460: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3461: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
3462: FND_MSG_PUB.ADD;
3463: RAISE FND_API.G_EXC_ERROR;
3464: end if;

Line 3463: RAISE FND_API.G_EXC_ERROR;

3459: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
3460: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3461: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_CALCULATION_FAILURE');
3462: FND_MSG_PUB.ADD;
3463: RAISE FND_API.G_EXC_ERROR;
3464: end if;
3465:
3466: BEGIN
3467: SELECT fee_schedule_id INTO l_fee_schedule_id

Line 3528: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3524: ,p_fees_tbl => l_write_fee_calc_tbl
3525: ,x_return_status => l_return_status
3526: ,x_msg_count => l_msg_count
3527: ,x_msg_data => l_msg_data);
3528: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3529: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
3530: FND_MSG_PUB.ADD;
3531: RAISE FND_API.G_EXC_ERROR;
3532: end if;

Line 3531: RAISE FND_API.G_EXC_ERROR;

3527: ,x_msg_data => l_msg_data);
3528: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3529: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_WRITE_FAILURE');
3530: FND_MSG_PUB.ADD;
3531: RAISE FND_API.G_EXC_ERROR;
3532: end if;
3533:
3534: END IF;
3535:

Line 3545: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3541: ,p_fees_tbl => l_update_fee_calc_tbl
3542: ,x_return_status => l_return_status
3543: ,x_msg_count => l_msg_count
3544: ,x_msg_data => l_msg_data);
3545: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3546: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_UPDATE_FAILURE');
3547: FND_MSG_PUB.ADD;
3548: RAISE FND_API.G_EXC_ERROR;
3549: end if;

Line 3548: RAISE FND_API.G_EXC_ERROR;

3544: ,x_msg_data => l_msg_data);
3545: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3546: FND_MESSAGE.SET_NAME('LNS', 'LNS_FEE_UPDATE_FAILURE');
3547: FND_MSG_PUB.ADD;
3548: RAISE FND_API.G_EXC_ERROR;
3549: end if;
3550: END IF;
3551:
3552: end if; -- l_last_installment > 1

Line 3557: IF FND_API.to_Boolean(p_commit) THEN

3553: -- ---------------------------------------------------------------------
3554: -- End of API body
3555: -- ---------------------------------------------------------------------
3556:
3557: IF FND_API.to_Boolean(p_commit) THEN
3558: COMMIT WORK;
3559: END IF;
3560:
3561: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3566: WHEN FND_API.G_EXC_ERROR THEN

3562:
3563: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3564:
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_ERROR THEN
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3568: x_msg_count := l_msg_count;
3569: x_msg_data := l_msg_data;
3570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3567: x_return_status := FND_API.G_RET_STS_ERROR;

3563: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3564:
3565: EXCEPTION
3566: WHEN FND_API.G_EXC_ERROR THEN
3567: x_return_status := FND_API.G_RET_STS_ERROR;
3568: x_msg_count := l_msg_count;
3569: x_msg_data := l_msg_data;
3570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3571: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3570: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3571: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3572: ROLLBACK TO processLateFees;
3573:
3574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3575: x_return_status := FND_API.G_RET_STS_ERROR;
3576: x_msg_count := l_msg_count;
3577: x_msg_data := l_msg_data;
3578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3575: x_return_status := FND_API.G_RET_STS_ERROR;

3571: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3572: ROLLBACK TO processLateFees;
3573:
3574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3575: x_return_status := FND_API.G_RET_STS_ERROR;
3576: x_msg_count := l_msg_count;
3577: x_msg_data := l_msg_data;
3578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3579: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3583: x_return_status := FND_API.G_RET_STS_ERROR;

3579: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3580: ROLLBACK TO processLateFees;
3581:
3582: WHEN OTHERS THEN
3583: x_return_status := FND_API.G_RET_STS_ERROR;
3584: x_msg_count := l_msg_count;
3585: x_msg_data := l_msg_data;
3586: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3587: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3644: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE

3640: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing single loan ' || p_loan_id);
3641: OPEN c_loan_det(p_loan_id);
3642: FETCH c_loan_det INTO l_phase;
3643: CLOSE c_loan_det;
3644: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3645: ,p_commit => FND_API.G_TRUE
3646: ,p_loan_id => p_loan_id
3647: ,p_phase => l_phase
3648: ,x_return_status => l_return_status

Line 3645: ,p_commit => FND_API.G_TRUE

3641: OPEN c_loan_det(p_loan_id);
3642: FETCH c_loan_det INTO l_phase;
3643: CLOSE c_loan_det;
3644: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3645: ,p_commit => FND_API.G_TRUE
3646: ,p_loan_id => p_loan_id
3647: ,p_phase => l_phase
3648: ,x_return_status => l_return_status
3649: ,x_msg_count => l_msg_count

Line 3662: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE

3658:
3659: exit when c_borrower_loans%notfound;
3660:
3661: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3662: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3663: ,p_commit => FND_API.G_TRUE
3664: ,p_loan_id => l_loan_id
3665: ,p_phase => l_phase
3666: ,x_return_status => l_return_status

Line 3663: ,p_commit => FND_API.G_TRUE

3659: exit when c_borrower_loans%notfound;
3660:
3661: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3662: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3663: ,p_commit => FND_API.G_TRUE
3664: ,p_loan_id => l_loan_id
3665: ,p_phase => l_phase
3666: ,x_return_status => l_return_status
3667: ,x_msg_count => l_msg_count

Line 3682: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE

3678:
3679: exit when c_all_active_loans%notfound;
3680:
3681: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3682: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3683: ,p_commit => FND_API.G_TRUE
3684: ,p_loan_id => l_loan_id
3685: ,p_phase => l_phase
3686: ,x_return_status => l_return_status

Line 3683: ,p_commit => FND_API.G_TRUE

3679: exit when c_all_active_loans%notfound;
3680:
3681: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing loan ' || l_loan_id);
3682: lns_fee_engine.processLateFees(p_init_msg_list => FND_API.G_TRUE
3683: ,p_commit => FND_API.G_TRUE
3684: ,p_loan_id => l_loan_id
3685: ,p_phase => l_phase
3686: ,x_return_status => l_return_status
3687: ,x_msg_count => l_msg_count

Line 3703: if l_return_status <> FND_API.G_RET_STS_SUCCESS then

3699:
3700: l_processed_fees := l_fee_records2 - l_fee_records1;
3701: FND_FILE.PUT_LINE(FND_FILE.LOG, 'added ' || l_processed_fees || ' into fee schedule');
3702:
3703: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3704: RAISE FND_API.G_EXC_ERROR;
3705: else
3706: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Late Fee Assessment: PROCESS COMPLETED SUCCESFULLY.');
3707: end if;

Line 3704: RAISE FND_API.G_EXC_ERROR;

3700: l_processed_fees := l_fee_records2 - l_fee_records1;
3701: FND_FILE.PUT_LINE(FND_FILE.LOG, 'added ' || l_processed_fees || ' into fee schedule');
3702:
3703: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3704: RAISE FND_API.G_EXC_ERROR;
3705: else
3706: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Late Fee Assessment: PROCESS COMPLETED SUCCESFULLY.');
3707: end if;
3708:

Line 3711: WHEN FND_API.G_EXC_ERROR THEN

3707: end if;
3708:
3709: EXCEPTION
3710: -- note do not set retcode when error is expected
3711: WHEN FND_API.G_EXC_ERROR THEN
3712: RETCODE := -1;
3713: ERRBUF := l_msg_data;
3714: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN FAP: ' || sqlerrm || ERRBUF);
3715: if l_msg_count > 0 then

Line 3852: IF FND_API.to_Boolean(p_init_msg_list) THEN

3848: -- Standard Start of API savepoint
3849: SAVEPOINT getSubmitForApprFeeSchedule;
3850:
3851: -- Initialize message list IF p_init_msg_list is set to TRUE.
3852: IF FND_API.to_Boolean(p_init_msg_list) THEN
3853: FND_MSG_PUB.initialize;
3854: END IF;
3855:
3856: -- Initialize API return status to SUCCESS

Line 3857: x_return_status := FND_API.G_RET_STS_SUCCESS;

3853: FND_MSG_PUB.initialize;
3854: END IF;
3855:
3856: -- Initialize API return status to SUCCESS
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3858:
3859: -- ---------------------------------------------------------------------
3860: -- Api body
3861: -- ---------------------------------------------------------------------

Line 3914: WHEN FND_API.G_EXC_ERROR THEN

3910:
3911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3912:
3913: EXCEPTION
3914: WHEN FND_API.G_EXC_ERROR THEN
3915: x_return_status := FND_API.G_RET_STS_ERROR;
3916: x_msg_count := l_msg_count;
3917: x_msg_data := l_msg_data;
3918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3915: x_return_status := FND_API.G_RET_STS_ERROR;

3911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3912:
3913: EXCEPTION
3914: WHEN FND_API.G_EXC_ERROR THEN
3915: x_return_status := FND_API.G_RET_STS_ERROR;
3916: x_msg_count := l_msg_count;
3917: x_msg_data := l_msg_data;
3918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3919: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3918: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3919: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3920: ROLLBACK TO getSubmitForApprFeeSchedule;
3921:
3922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3923: x_return_status := FND_API.G_RET_STS_ERROR;
3924: x_msg_count := l_msg_count;
3925: x_msg_data := l_msg_data;
3926: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 3923: x_return_status := FND_API.G_RET_STS_ERROR;

3919: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3920: ROLLBACK TO getSubmitForApprFeeSchedule;
3921:
3922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3923: x_return_status := FND_API.G_RET_STS_ERROR;
3924: x_msg_count := l_msg_count;
3925: x_msg_data := l_msg_data;
3926: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3927: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3931: x_return_status := FND_API.G_RET_STS_ERROR;

3927: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3928: ROLLBACK TO getSubmitForApprFeeSchedule;
3929:
3930: WHEN OTHERS THEN
3931: x_return_status := FND_API.G_RET_STS_ERROR;
3932: x_msg_count := l_msg_count;
3933: x_msg_data := l_msg_data;
3934: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
3935: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 3986: IF FND_API.to_Boolean(p_init_msg_list) THEN

3982: -- Standard Start of API savepoint
3983: SAVEPOINT SET_DISB_FEES_INSTALL;
3984:
3985: -- Initialize message list IF p_init_msg_list is set to TRUE.
3986: IF FND_API.to_Boolean(p_init_msg_list) THEN
3987: FND_MSG_PUB.initialize;
3988: END IF;
3989:
3990: -- Initialize API return status to SUCCESS

Line 3991: x_return_status := FND_API.G_RET_STS_SUCCESS;

3987: FND_MSG_PUB.initialize;
3988: END IF;
3989:
3990: -- Initialize API return status to SUCCESS
3991: x_return_status := FND_API.G_RET_STS_SUCCESS;
3992:
3993: -- ---------------------------------------------------------------------
3994: -- Api body
3995: -- ---------------------------------------------------------------------

Line 4025: WHEN FND_API.G_EXC_ERROR THEN

4021:
4022: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4023:
4024: EXCEPTION
4025: WHEN FND_API.G_EXC_ERROR THEN
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: x_msg_count := l_msg_count;
4028: x_msg_data := l_msg_data;
4029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 4026: x_return_status := FND_API.G_RET_STS_ERROR;

4022: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4023:
4024: EXCEPTION
4025: WHEN FND_API.G_EXC_ERROR THEN
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: x_msg_count := l_msg_count;
4028: x_msg_data := l_msg_data;
4029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4030: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 4033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4029: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4030: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4031: ROLLBACK TO SET_DISB_FEES_INSTALL;
4032:
4033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4034: x_return_status := FND_API.G_RET_STS_ERROR;
4035: x_msg_count := l_msg_count;
4036: x_msg_data := l_msg_data;
4037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

Line 4034: x_return_status := FND_API.G_RET_STS_ERROR;

4030: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4031: ROLLBACK TO SET_DISB_FEES_INSTALL;
4032:
4033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4034: x_return_status := FND_API.G_RET_STS_ERROR;
4035: x_msg_count := l_msg_count;
4036: x_msg_data := l_msg_data;
4037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4038: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);

Line 4042: x_return_status := FND_API.G_RET_STS_ERROR;

4038: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4039: ROLLBACK TO SET_DISB_FEES_INSTALL;
4040:
4041: WHEN OTHERS THEN
4042: x_return_status := FND_API.G_RET_STS_ERROR;
4043: x_msg_count := l_msg_count;
4044: x_msg_data := l_msg_data;
4045: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
4046: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);