[Home] [Help]
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
191: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
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);
315: ROLLBACK TO processDisbursementFees;
316:
317: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
323: ROLLBACK TO processDisbursementFees;
324:
325: WHEN OTHERS THEN
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);
331: ROLLBACK TO processDisbursementFees;
332:
333: end processDisbursementFees;
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
427: x_return_status := FND_API.G_RET_STS_SUCCESS;
485:
486: -- ---------------------------------------------------------------------
487: -- End of API body
488: -- ---------------------------------------------------------------------
489: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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);
499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
500: ROLLBACK TO reprocessFees;
501:
502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
508: ROLLBACK TO reprocessFees;
509:
510: WHEN OTHERS THEN
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);
516: ROLLBACK TO reprocessFees;
517:
518: end reprocessFees;
1396: when no_data_found then
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
1424: WHEN OTHERS THEN
1425: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_FEE_FAILED');
1426: FND_MESSAGE.SET_TOKEN('FEE_NAME' ,p_fee_structures(f).FEE_NAME);
1427: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,SQLERRM);
1428: FND_MSG_PUB.ADD;
1429: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1430: l_fee := 0;
1431: END;
1432:
1425: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_FEE_FAILED');
1426: FND_MESSAGE.SET_TOKEN('FEE_NAME' ,p_fee_structures(f).FEE_NAME);
1427: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,SQLERRM);
1428: FND_MSG_PUB.ADD;
1429: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1430: l_fee := 0;
1431: END;
1432:
1433: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_fee = ' || l_fee);
1436: if l_error is not null then
1437: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_FEE_FAILED');
1438: FND_MESSAGE.SET_TOKEN('FEE_NAME' ,p_fee_structures(f).FEE_NAME);
1439: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,l_error);
1440: FND_MSG_PUB.ADD;
1441: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1442: l_fee := 0;
1443: end if;
1444:
1437: FND_MESSAGE.SET_NAME('LNS', 'LNS_CUSTOM_FEE_FAILED');
1438: FND_MESSAGE.SET_TOKEN('FEE_NAME' ,p_fee_structures(f).FEE_NAME);
1439: FND_MESSAGE.SET_TOKEN('ERROR_MESG' ,l_error);
1440: FND_MSG_PUB.ADD;
1441: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, FND_MSG_PUB.Get(p_encoded => 'F'));
1442: l_fee := 0;
1443: end if;
1444:
1445: end if;
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
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1695:
1696: -- ---------------------------------------------------------------------
1697: -- End of API body
1698: -- ---------------------------------------------------------------------
1699: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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);
1709: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1710: ROLLBACK TO getFees;
1711:
1712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
1718: ROLLBACK TO getFees;
1719:
1720: WHEN OTHERS THEN
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);
1726: ROLLBACK TO getFees;
1727: end getFeeSchedule;
1728:
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
1863: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1904:
1905: end if;
2196:
2197: -- ---------------------------------------------------------------------
2198: -- End of API body
2199: -- ---------------------------------------------------------------------
2200: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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);
2210: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2211: ROLLBACK TO getFeeDetails;
2212:
2213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2219: ROLLBACK TO getFeeDetails;
2220:
2221: WHEN OTHERS THEN
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);
2227: ROLLBACK TO getFeeDetails;
2228:
2229: END getFeeDetails;
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
2311: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2336: RAISE FND_API.G_EXC_ERROR;
2337: end if;
2338:
2339: open c_phase(p_loan_id);
2351:
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:
2358:
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
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');
2368: FND_MSG_PUB.ADD;
2369: RAISE FND_API.G_EXC_ERROR;
2370: end if;
2371:
2372: end if;
2372: end if;
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
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;
2395: RAISE FND_API.G_EXC_ERROR;
2396: end if;
2397:
2398: end if;
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);
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);
2454: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2455: ROLLBACK TO updateFeeSchedule;
2456:
2457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2463: ROLLBACK TO updateFeeSchedule;
2464:
2465: WHEN OTHERS THEN
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);
2471: ROLLBACK TO updateFeeSchedule;
2472:
2473: end updateFeeSchedule;
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
2537: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2557: RAISE FND_API.G_EXC_ERROR;
2558: end if;
2559:
2560: open c_phase(p_loan_id);
2575:
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
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');
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
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');
2591: FND_MSG_PUB.ADD;
2592: RAISE FND_API.G_EXC_ERROR;
2593: end if;
2594:
2595: end if;
2595: end if;
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
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;
2618: RAISE FND_API.G_EXC_ERROR;
2619: end if;
2620:
2621: end if;
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);
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);
2673: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2674: ROLLBACK TO writeFeeSchedule;
2675:
2676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2682: ROLLBACK TO writeFeeSchedule;
2683:
2684: WHEN OTHERS THEN
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);
2690: ROLLBACK TO writeFeeSchedule;
2691:
2692: end writeFeeSchedule;
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
2795: x_return_status := FND_API.G_RET_STS_SUCCESS;
2834: l_phase := nvl(p_fee_structures(i).phase, 'TERM');
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);
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;
2868:
2869: -- Bug#8830789 - To restrict the insertion of duplicate feeSchedule record for the same FeeId and installment of a loan.
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;
2934:
2935: for k in 1..l_write_fee_calc_tbl.count loop
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;
2955: END IF;
2956: end loop;
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);
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);
2977: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2978: ROLLBACK TO processFees;
2979:
2980: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
2986: ROLLBACK TO processFees;
2987:
2988: WHEN OTHERS THEN
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);
2994: ROLLBACK TO processFees;
2995:
2996: end processFees;
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
3064: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
3083: RAISE FND_API.G_EXC_ERROR;
3084: end if;
3085:
3086: lns_utility_pub.validate_any_id(p_api_version => 1.0
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;
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);
3103: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount to waive ' || p_waive_amount);
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;
3113:
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
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);
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);
3162: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3163: ROLLBACK TO waiveFee;
3164:
3165: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3171: ROLLBACK TO waiveFee;
3172:
3173: WHEN OTHERS THEN
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);
3179: ROLLBACK TO waiveFee;
3180:
3181: end waiveFee;
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
3363: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
3465:
3466: BEGIN
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;
3533:
3534: END IF;
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;
3550: END IF;
3551:
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);
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);
3571: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3572: ROLLBACK TO processLateFees;
3573:
3574: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3580: ROLLBACK TO processLateFees;
3581:
3582: WHEN OTHERS THEN
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);
3588: ROLLBACK TO processLateFees;
3589:
3590:
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
3716: FOR l_index IN 1..l_msg_count LOOP
3717: my_message := FND_MSG_PUB.Get(p_msg_index => l_index, p_encoded => 'F');
3718: FND_FILE.PUT_LINE(FND_FILE.LOG, my_message);
3719: END LOOP;
3720: end if;
3721:
3724: ERRBUF := l_msg_data;
3725: FND_FILE.PUT_LINE(FND_FILE.LOG, 'ERROR IN FAP: ' || sqlerrm || ERRBUF);
3726: if l_msg_count > 0 then
3727: FOR l_index IN 1..l_msg_count LOOP
3728: my_message := FND_MSG_PUB.Get(p_msg_index => l_index, p_encoded => 'F');
3729: FND_FILE.PUT_LINE(FND_FILE.LOG, my_message);
3730: END LOOP;
3731: end if;
3732:
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
3857: x_return_status := FND_API.G_RET_STS_SUCCESS;
3905:
3906: -- ---------------------------------------------------------------------
3907: -- End of API body
3908: -- ---------------------------------------------------------------------
3909: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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);
3919: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3920: ROLLBACK TO getSubmitForApprFeeSchedule;
3921:
3922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
3928: ROLLBACK TO getSubmitForApprFeeSchedule;
3929:
3930: WHEN OTHERS THEN
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);
3936: ROLLBACK TO getSubmitForApprFeeSchedule;
3937:
3938: end getSubmitForApprFeeSchedule;
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
3991: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
4031: ROLLBACK TO SET_DISB_FEES_INSTALL;
4032:
4033: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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);
4039: ROLLBACK TO SET_DISB_FEES_INSTALL;
4040:
4041: WHEN OTHERS THEN
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);
4047: ROLLBACK TO SET_DISB_FEES_INSTALL;
4048:
4049: