[Home] [Help]
23: is
24:
25: begin
26:
27: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
28: FND_LOG.STRING(log_level, module, message);
29: END IF;
30:
31: end;
24:
25: begin
26:
27: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
28: FND_LOG.STRING(log_level, module, message);
29: END IF;
30:
31: end;
32:
165:
166:
167: begin
168: l_api_name := 'processDisbursementFees';
169: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
170: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
171: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase' || p_phase);
172: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_head_id' || p_disb_head_id);
173:
166:
167: begin
168: l_api_name := 'processDisbursementFees';
169: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
170: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
171: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase' || p_phase);
172: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_head_id' || p_disb_head_id);
173:
174: -- Standard Start of API savepoint
167: begin
168: l_api_name := 'processDisbursementFees';
169: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
170: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
171: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase' || p_phase);
172: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_head_id' || p_disb_head_id);
173:
174: -- Standard Start of API savepoint
175: SAVEPOINT processDisbursementFees;
168: l_api_name := 'processDisbursementFees';
169: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
170: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
171: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase' || p_phase);
172: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_head_id' || p_disb_head_id);
173:
174: -- Standard Start of API savepoint
175: SAVEPOINT processDisbursementFees;
176:
209: l_write_fee_tbl(i).fee_installment := 0;
210: l_write_fee_tbl(i).fee_description := l_fee_description;
211: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
212:
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
210: l_write_fee_tbl(i).fee_description := l_fee_description;
211: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
212:
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
218:
211: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
212:
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
218:
219: l_fee_amount := null;
212:
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
218:
219: l_fee_amount := null;
220: l_fee_id := null;
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
218:
219: l_fee_amount := null;
220: l_fee_id := null;
221: l_fee_basis := null;
250: l_write_fee_tbl(i).fee_installment := 0;
251: l_write_fee_tbl(i).fee_description := l_fee_description;
252: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
253:
254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
251: l_write_fee_tbl(i).fee_description := l_fee_description;
252: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
253:
254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
259:
252: l_write_fee_tbl(i).disb_header_id := p_disb_head_id;
253:
254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
259:
260: l_fee_amount := null;
253:
254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
259:
260: l_fee_amount := null;
261: l_fee_id := null;
254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_description: ' || l_fee_description);
258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fee_basis ' || l_fee_basis);
259:
260: l_fee_amount := null;
261: l_fee_id := null;
262: l_fee_basis := null;
263: l_fee_description := null;
264: end loop;
265: end if;
266:
267: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - i ' || i);
268: if l_write_fee_tbl.count > 0 then
269: -- 3. writeFees to the fee schedule
270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule');
271: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list
266:
267: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - i ' || i);
268: if l_write_fee_tbl.count > 0 then
269: -- 3. writeFees to the fee schedule
270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule');
271: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list
272: ,p_commit => p_commit
273: ,p_loan_id => p_loan_id
274: ,p_fees_tbl => l_write_fee_tbl
274: ,p_fees_tbl => l_write_fee_tbl
275: ,x_return_status => l_return_status
276: ,x_msg_count => l_msg_count
277: ,x_msg_data => l_msg_data);
278: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule status ' || l_return_status);
279: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting fee schedule ' || l_return_status);
280: getFeeSchedule(p_init_msg_list => p_init_msg_list
281: ,p_loan_id => p_loan_id
282: ,p_installment_number => 0
275: ,x_return_status => l_return_status
276: ,x_msg_count => l_msg_count
277: ,x_msg_data => l_msg_data);
278: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule status ' || l_return_status);
279: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting fee schedule ' || l_return_status);
280: getFeeSchedule(p_init_msg_list => p_init_msg_list
281: ,p_loan_id => p_loan_id
282: ,p_installment_number => 0
283: ,p_disb_header_id => p_disb_head_id
303: l_BILL_HEADERS_TBL(1).ASSOC_PAYMENT_NUM := l_last_payment_number;
304: l_BILL_HEADERS_TBL(1).DUE_DATE := sysdate;
305: end if;
306:
307: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule count is' || i);
308: for k in 1..i loop
309: l_BILL_LINES_TBL(k).LINE_ID := 102 + k;
310: l_BILL_LINES_TBL(k).HEADER_ID := 101;
311: l_BILL_LINES_TBL(k).LINE_AMOUNT := l_fees_tbl(k).fee_amount;
313: l_BILL_LINES_TBL(k).LINE_DESC := l_fees_tbl(k).fee_description;
314: end loop;
315:
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
344: COMMIT WORK;
345: END IF;
346: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
357: ROLLBACK TO processDisbursementFees;
358:
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_ERROR;
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);
365: ROLLBACK TO processDisbursementFees;
366:
367: WHEN OTHERS THEN
368: x_return_status := FND_API.G_RET_STS_ERROR;
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);
373: ROLLBACK TO processDisbursementFees;
374:
375: end processDisbursementFees;
376:
447: and sched.billed_flag = 'Y';
448:
449: begin
450: l_api_name := 'reprocessFees';
451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
452: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
453: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment' || p_installment_number);
454:
455: -- Standard Start of API savepoint
448:
449: begin
450: l_api_name := 'reprocessFees';
451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
452: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
453: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment' || p_installment_number);
454:
455: -- Standard Start of API savepoint
456: SAVEPOINT reprocessFees;
449: begin
450: l_api_name := 'reprocessFees';
451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
452: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
453: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment' || p_installment_number);
454:
455: -- Standard Start of API savepoint
456: SAVEPOINT reprocessFees;
457:
468: -- ---------------------------------------------------------------------
469: -- initialize any variables here
470: i := 0;
471:
472: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - about to reprocess late fees');
473: -- processing late fees will rewrite them to fee_schedules
474: lns_fee_engine.processLateFees(p_loan_id => p_loan_id
475: ,p_init_msg_list => p_init_msg_list
476: ,p_commit => p_commit
477: ,x_return_status => l_return_status
478: ,x_msg_count => l_msg_count
479: ,x_msg_data => l_msg_data);
480:
481: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - reprocess late fees status ' || l_return_status);
482: -- we will rewrite any previously written manual fees onto the fee schedule
483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - finding manual and origination fees');
484: OPEN c_manual_fees(p_loan_id, p_installment_number);
485: LOOP
479: ,x_msg_data => l_msg_data);
480:
481: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - reprocess late fees status ' || l_return_status);
482: -- we will rewrite any previously written manual fees onto the fee schedule
483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - finding manual and origination fees');
484: OPEN c_manual_fees(p_loan_id, p_installment_number);
485: LOOP
486: i := i + 1;
487: FETCH c_manual_fees INTO
496: l_write_fee_tbl(i).fee_amount := l_fee_amount;
497: l_write_fee_tbl(i).fee_installment := p_installment_number;
498: l_write_fee_tbl(i).fee_description := l_fee_description;
499:
500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
502: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
503: END LOOP;
504:
497: l_write_fee_tbl(i).fee_installment := p_installment_number;
498: l_write_fee_tbl(i).fee_description := l_fee_description;
499:
500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
502: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
503: END LOOP;
504:
505: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule');
498: l_write_fee_tbl(i).fee_description := l_fee_description;
499:
500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
502: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
503: END LOOP;
504:
505: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule');
506: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list
501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_id);
502: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_amount);
503: END LOOP;
504:
505: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule');
506: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list
507: ,p_commit => p_commit
508: ,p_loan_id => p_loan_id
509: ,p_fees_tbl => l_write_fee_tbl
509: ,p_fees_tbl => l_write_fee_tbl
510: ,x_return_status => l_return_status
511: ,x_msg_count => l_msg_count
512: ,x_msg_data => l_msg_data);
513: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - writing fees schedule status ' || l_return_status);
514:
515: -- ---------------------------------------------------------------------
516: -- End of API body
517: -- ---------------------------------------------------------------------
516: -- End of API body
517: -- ---------------------------------------------------------------------
518: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
529: ROLLBACK TO reprocessFees;
530:
531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
532: x_return_status := FND_API.G_RET_STS_ERROR;
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);
537: ROLLBACK TO reprocessFees;
538:
539: WHEN OTHERS THEN
540: x_return_status := FND_API.G_RET_STS_ERROR;
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);
545: ROLLBACK TO reprocessFees;
546:
547: end reprocessFees;
548:
650: return l_fee_struct_tbl;
651:
652: exception
653: when no_data_found then
654: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - no fee structures found');
655: end getFeeStructures;
656:
657: /*=========================================================================
658: || PUBLIC PROCEDURE getFeeStructures LNS.B
740: and fees.fee_id = nvl(p_fee_id, fees.fee_id);
741:
742: begin
743: l_api_name := 'getFeeStructures';
744: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
745: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
746: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
747: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment ' || p_installment);
748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
741:
742: begin
743: l_api_name := 'getFeeStructures';
744: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
745: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
746: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
747: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment ' || p_installment);
748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
749:
742: begin
743: l_api_name := 'getFeeStructures';
744: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
745: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
746: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
747: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment ' || p_installment);
748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
749:
750: open c_fees(p_loan_id, p_fee_id, p_fee_category, p_fee_type, p_installment);
743: l_api_name := 'getFeeStructures';
744: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
745: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
746: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
747: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment ' || p_installment);
748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
749:
750: open c_fees(p_loan_id, p_fee_id, p_fee_category, p_fee_type, p_installment);
751: LOOP
744: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
745: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
746: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
747: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment ' || p_installment);
748: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
749:
750: open c_fees(p_loan_id, p_fee_id, p_fee_category, p_fee_type, p_installment);
751: LOOP
752: i := i + 1;
788: return l_fee_struct_tbl;
789:
790: exception
791: when no_data_found then
792: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - no fee structures found');
793: end getFeeStructures;
794:
795: /*=========================================================================
796: || PUBLIC PROCEDURE getDisbursementFeeStructures R12
876: and dh.target_date < nvl(p_to_date, dh.target_date + 1);
877:
878: begin
879: l_api_name := 'getDisbursementFeeStructures';
880: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
877:
878: begin
879: l_api_name := 'getDisbursementFeeStructures';
880: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
878: begin
879: l_api_name := 'getDisbursementFeeStructures';
880: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
879: l_api_name := 'getDisbursementFeeStructures';
880: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
887:
880: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
887:
888: open c_fees(p_loan_id, p_fee_category, p_fee_type, p_from_date, p_to_date, p_disb_header_id, p_fee_id);
881: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_type ' || p_fee_type);
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
887:
888: open c_fees(p_loan_id, p_fee_category, p_fee_type, p_from_date, p_to_date, p_disb_header_id, p_fee_id);
889: LOOP
882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date ' || p_from_date);
883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_Date ' || p_to_Date);
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
885: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id);
886: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
887:
888: open c_fees(p_loan_id, p_fee_category, p_fee_type, p_from_date, p_to_date, p_disb_header_id, p_fee_id);
889: LOOP
890: i := i + 1;
922: return l_fee_struct_tbl;
923:
924: exception
925: when no_data_found then
926: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - no fee structures found');
927: end getDisbursementFeeStructures;
928:
929:
930: /*=========================================================================
979: begin
980:
981: l_amount := 0;
982: l_api_name := 'calculateFee';
983: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
984: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id );
985: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating ' || p_loan_id);
986:
987: if p_disb_header_id is null then
980:
981: l_amount := 0;
982: l_api_name := 'calculateFee';
983: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
984: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id );
985: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating ' || p_loan_id);
986:
987: if p_disb_header_id is null then
988:
981: l_amount := 0;
982: l_api_name := 'calculateFee';
983: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_fee_id ' || p_fee_id);
984: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_disb_header_id ' || p_disb_header_id );
985: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating ' || p_loan_id);
986:
987: if p_disb_header_id is null then
988:
989: l_amount := calculateFee(p_fee_id => p_fee_id
990: ,p_loan_id => p_loan_id);
991:
992: elsif p_disb_header_id is not null then
993:
994: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting DIsb fee structures');
995: l_orig_fee_structures := lns_fee_engine.getDisbursementFeeStructures(p_loan_id => null
996: ,p_fee_category => 'EVENT'
997: ,p_fee_type => 'EVENT_ORIGINATION'
998: ,p_from_date => null
998: ,p_from_date => null
999: ,p_to_date => null
1000: ,p_disb_header_id => p_disb_header_id
1001: ,p_fee_id => p_fee_id);
1002: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - struct count is ' || l_orig_fee_structures.count);
1003: open c_origLoanAmt(p_loan_id);
1004: fetch c_origLoanAmt into l_original_loan_amount;
1005: close c_origLoanAmt;
1006: l_fee_basis_tbl(1).fee_basis_name := 'ORIG_LOAN';
1004: fetch c_origLoanAmt into l_original_loan_amount;
1005: close c_origLoanAmt;
1006: l_fee_basis_tbl(1).fee_basis_name := 'ORIG_LOAN';
1007: l_fee_basis_tbl(1).fee_basis_amount := l_original_loan_amount;
1008: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - orig_loan ' || l_original_loan_amount);
1009:
1010: if l_orig_fee_structures.count = 0 then
1011: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1012: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1008: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - orig_loan ' || l_original_loan_amount);
1009:
1010: if l_orig_fee_structures.count = 0 then
1011: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1012: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1013: l_orig_fee_structures := getFeeStructures(p_fee_id => p_fee_id);
1014: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_orig_fee_structures.count);
1015: open c_disbAmount(p_disb_header_id);
1016: fetch c_disbAmount into l_disb_amount;
1010: if l_orig_fee_structures.count = 0 then
1011: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1012: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1013: l_orig_fee_structures := getFeeStructures(p_fee_id => p_fee_id);
1014: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_orig_fee_structures.count);
1015: open c_disbAmount(p_disb_header_id);
1016: fetch c_disbAmount into l_disb_amount;
1017: close c_disbAmount;
1018: l_fee_basis_tbl(2).fee_basis_name := 'IND_DISB_AMT';
1016: fetch c_disbAmount into l_disb_amount;
1017: close c_disbAmount;
1018: l_fee_basis_tbl(2).fee_basis_name := 'IND_DISB_AMT';
1019: l_fee_basis_tbl(2).fee_basis_amount := l_disb_amount;
1020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - disb amount ' || l_disb_amount);
1021: else
1022: l_fee_basis_tbl(2).fee_basis_name := 'IND_DISB_AMT';
1023: l_fee_basis_tbl(2).fee_basis_amount := l_orig_fee_structures(1).DISBURSEMENT_AMOUNT;
1024: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - disb amount ' || l_orig_fee_structures(1).DISBURSEMENT_AMOUNT);
1020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - disb amount ' || l_disb_amount);
1021: else
1022: l_fee_basis_tbl(2).fee_basis_name := 'IND_DISB_AMT';
1023: l_fee_basis_tbl(2).fee_basis_amount := l_orig_fee_structures(1).DISBURSEMENT_AMOUNT;
1024: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - disb amount ' || l_orig_fee_structures(1).DISBURSEMENT_AMOUNT);
1025: end if;
1026:
1027:
1028: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating fees');
1024: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - disb amount ' || l_orig_fee_structures(1).DISBURSEMENT_AMOUNT);
1025: end if;
1026:
1027:
1028: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating fees');
1029: calculateFees(p_loan_id => p_loan_id
1030: ,p_fee_basis_tbl => l_fee_basis_tbl
1031: ,p_installment => 0
1032: ,p_fee_structures => l_orig_fee_structures
1033: ,x_fees_tbl => l_fee_calc_tbl
1034: ,x_return_status => l_return_status
1035: ,x_msg_count => l_msg_count
1036: ,x_msg_data => l_msg_data);
1037: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees count is ' || l_fee_calc_tbl.count);
1038: for k in 1..l_fee_calc_tbl.count
1039: loop
1040: l_amount := l_amount + l_fee_calc_tbl(k).FEE_AMOUNT;
1041: end loop;
1039: loop
1040: l_amount := l_amount + l_fee_calc_tbl(k).FEE_AMOUNT;
1041: end loop;
1042:
1043: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee total is ' || l_amount);
1044:
1045: end if;
1046:
1047: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee total is ' || l_amount);
1043: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee total is ' || l_amount);
1044:
1045: end if;
1046:
1047: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee total is ' || l_amount);
1048: return l_amount;
1049:
1050: exception
1051: when others then
1107: ,p_fee_category => null
1108: ,p_fee_type => null
1109: ,p_installment => null
1110: ,p_fee_id => p_fee_id);
1111: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_fee_structures.count);
1112:
1113: if l_fee_structures.count = 0 then
1114: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1115: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1111: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_fee_structures.count);
1112:
1113: if l_fee_structures.count = 0 then
1114: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1115: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1116: l_fee_structures := getFeeStructures(p_fee_id => p_fee_id);
1117: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_fee_structures.count);
1118: l_installment := l_fee_structures(1).fee_from_installment;
1119: else
1113: if l_fee_structures.count = 0 then
1114: -- this fee has not yet been assigned to the loan, we need to get the fee structure from LNS_FEES, NOT LNS_FEE_ASSIGNMENTS
1115: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee is unassigned ');
1116: l_fee_structures := getFeeStructures(p_fee_id => p_fee_id);
1117: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - structs ' || l_fee_structures.count);
1118: l_installment := l_fee_structures(1).fee_from_installment;
1119: else
1120: -- the fee has been assigned to the loan, get the fee_installment from the assignments table
1121: begin
1121: begin
1122: open c_from_installment(p_fee_id, p_loan_id);
1123: fetch c_from_installment into l_installment;
1124: close c_from_installment;
1125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_installment ' || l_installment);
1126: exception
1127: when
1128: no_data_found then
1129: l_installment := 0;
1130: end;
1131: end if;
1132:
1133: -- build the fee bases
1134: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting details');
1135: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
1136: ,p_based_on_terms => 'ORIGINAL'
1137: ,p_phase => 'TERM');
1138:
1135: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
1136: ,p_based_on_terms => 'ORIGINAL'
1137: ,p_phase => 'TERM');
1138:
1139: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_installment ' || l_installment);
1140:
1141: l_fee_basis_tbl(1).fee_basis_name := 'ORIG_LOAN';
1142: l_fee_basis_tbl(1).fee_basis_amount := l_loan_details.funded_amount;
1143: l_fee_basis_tbl(2).fee_basis_name := 'PREPAYMENT_AMOUNT';
1154: l_fee_basis_tbl(7).fee_basis_amount := l_loan_details.funded_amount;
1155: l_fee_basis_tbl(8).fee_basis_name := 'TOTAL_DISB_AMT';
1156: l_fee_basis_tbl(8).fee_basis_amount := l_loan_details.funded_amount;
1157:
1158: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating fees');
1159: calculateFees(p_loan_id => p_loan_id
1160: ,p_fee_basis_tbl => l_fee_basis_tbl
1161: ,p_installment => l_installment
1162: ,p_fee_structures => l_fee_structures
1164: ,x_return_status => l_return_status
1165: ,x_msg_count => l_msg_count
1166: ,x_msg_data => l_msg_data);
1167:
1168: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees count is ' || l_fee_calc_tbl.count);
1169: for k in 1..l_fee_calc_tbl.count
1170: loop
1171: l_calc_fee := l_calc_fee + l_fee_calc_tbl(k).FEE_AMOUNT;
1172: end loop;
1170: loop
1171: l_calc_fee := l_calc_fee + l_fee_calc_tbl(k).FEE_AMOUNT;
1172: end loop;
1173:
1174: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee total is ' || l_calc_fee);
1175: return l_calc_fee;
1176:
1177: exception
1178: when others then
1175: return l_calc_fee;
1176:
1177: exception
1178: when others then
1179: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - ERROR ' || sqlerrm);
1180: return -1;
1181:
1182: end calculateFee;
1183:
1237: l_total_fees := 0;
1238: l_intervals := 1;
1239:
1240: -- first figure out if fee applies to the current installment
1241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee structures ' || p_fee_structures.count);
1243: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee basis ' || p_fee_basis_tbl.count);
1244:
1245: open c_precision(p_loan_id);
1238: l_intervals := 1;
1239:
1240: -- first figure out if fee applies to the current installment
1241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee structures ' || p_fee_structures.count);
1243: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee basis ' || p_fee_basis_tbl.count);
1244:
1245: open c_precision(p_loan_id);
1246: fetch c_precision into l_precision;
1239:
1240: -- first figure out if fee applies to the current installment
1241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee structures ' || p_fee_structures.count);
1243: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee basis ' || p_fee_basis_tbl.count);
1244:
1245: open c_precision(p_loan_id);
1246: fetch c_precision into l_precision;
1247: close c_precision;
1245: open c_precision(p_loan_id);
1246: fetch c_precision into l_precision;
1247: close c_precision;
1248:
1249: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee precision ' || l_precision);
1250:
1251: for f in 1..p_fee_structures.count loop
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1248:
1249: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee precision ' || l_precision);
1250:
1251: for f in 1..p_fee_structures.count loop
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1249: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - # fee precision ' || l_precision);
1250:
1251: for f in 1..p_fee_structures.count loop
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_fee_structures(f).fee_rate_type );
1250:
1251: for f in 1..p_fee_structures.count loop
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_fee_structures(f).fee_rate_type );
1258:
1251: for f in 1..p_fee_structures.count loop
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_fee_structures(f).fee_rate_type );
1258:
1259: l_fee := 0;
1252: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -------- STRUCTURE ' || f);
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_fee_structures(f).fee_rate_type );
1258:
1259: l_fee := 0;
1260:
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from inst ' || p_fee_structures(f).fee_from_installment );
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to inst ' || p_fee_structures(f).fee_to_installment );
1255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - basis ' || p_fee_structures(f).fee_basis );
1256: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - billing option ' || p_fee_structures(f).fee_billing_option);
1257: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_fee_structures(f).fee_rate_type );
1258:
1259: l_fee := 0;
1260:
1261: if p_installment >= p_fee_structures(f).fee_from_installment and
1260:
1261: if p_installment >= p_fee_structures(f).fee_from_installment and
1262: p_installment <= p_fee_structures(f).fee_to_installment then
1263:
1264: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees ' || f || ' applies to this installment ');
1265:
1266: if p_fee_structures(f).fee_billing_option = 'EQUALLY' then
1267: l_intervals := p_fee_structures(f).fee_to_installment - p_fee_structures(f).fee_from_installment + 1;
1268: end if;
1268: end if;
1269:
1270: if p_fee_structures(f).fee_rate_type = 'FIXED' then
1271: if p_installment = p_fee_structures(f).fee_to_installment then
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount is : ' || p_fee_structures(f).fee_amount);
1273: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw: ' || p_fee_structures(f).fee_amount / l_intervals);
1274: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw2 - ' || round((p_fee_structures(f).fee_amount / l_intervals),2) * (l_intervals - 1));
1275: l_fee := p_fee_structures(f).fee_amount - round((p_fee_structures(f).fee_amount / l_intervals),l_precision) * (l_intervals - 1);
1276: else
1269:
1270: if p_fee_structures(f).fee_rate_type = 'FIXED' then
1271: if p_installment = p_fee_structures(f).fee_to_installment then
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount is : ' || p_fee_structures(f).fee_amount);
1273: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw: ' || p_fee_structures(f).fee_amount / l_intervals);
1274: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw2 - ' || round((p_fee_structures(f).fee_amount / l_intervals),2) * (l_intervals - 1));
1275: l_fee := p_fee_structures(f).fee_amount - round((p_fee_structures(f).fee_amount / l_intervals),l_precision) * (l_intervals - 1);
1276: else
1277: l_fee := round(p_fee_structures(f).fee_amount / l_intervals, l_precision);
1270: if p_fee_structures(f).fee_rate_type = 'FIXED' then
1271: if p_installment = p_fee_structures(f).fee_to_installment then
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amount is : ' || p_fee_structures(f).fee_amount);
1273: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw: ' || p_fee_structures(f).fee_amount / l_intervals);
1274: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - raw2 - ' || round((p_fee_structures(f).fee_amount / l_intervals),2) * (l_intervals - 1));
1275: l_fee := p_fee_structures(f).fee_amount - round((p_fee_structures(f).fee_amount / l_intervals),l_precision) * (l_intervals - 1);
1276: else
1277: l_fee := round(p_fee_structures(f).fee_amount / l_intervals, l_precision);
1278: end if;
1281: begin
1282: k := 0;
1283: LOOP
1284: k := k + 1;
1285: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1286: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1287: EXIT WHEN p_fee_basis_tbl(k).fee_basis_name = p_fee_structures(f).fee_basis;
1288: END LOOP;
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1282: k := 0;
1283: LOOP
1284: k := k + 1;
1285: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1286: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1287: EXIT WHEN p_fee_basis_tbl(k).fee_basis_name = p_fee_structures(f).fee_basis;
1288: END LOOP;
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1290: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1285: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1286: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1287: EXIT WHEN p_fee_basis_tbl(k).fee_basis_name = p_fee_structures(f).fee_basis;
1288: END LOOP;
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1290: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1291:
1292: l_basis_amount := p_fee_basis_tbl(k).fee_basis_amount;
1293:
1286: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1287: EXIT WHEN p_fee_basis_tbl(k).fee_basis_name = p_fee_structures(f).fee_basis;
1288: END LOOP;
1289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis ' || p_fee_basis_tbl(k).fee_basis_name);
1290: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee basis amount ' || p_fee_basis_tbl(k).fee_basis_amount);
1291:
1292: l_basis_amount := p_fee_basis_tbl(k).fee_basis_amount;
1293:
1294: if p_installment = p_fee_structures(f).fee_to_installment then
1317: l_fees_tbl(f).fee_waivable_flag := 'N';
1318: l_fees_tbl(f).FEE_DELETABLE_FLAG := 'N'; --from getFeeStructures
1319: l_fees_tbl(f).FEE_EDITABLE_FLAG := 'N'; --from getFeeStructures
1320: l_total_fees := l_total_fees + l_fees_tbl(f).fee_amount;
1321: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount' || l_fee);
1322:
1323: end loop;
1324:
1325: x_fees_tbl := l_fees_tbl;
1322:
1323: end loop;
1324:
1325: x_fees_tbl := l_fees_tbl;
1326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculated fees: ' || l_total_fees);
1327:
1328: end calculateFees;
1329:
1330: /*=========================================================================
1437:
1438: begin
1439:
1440: l_api_name := 'getFees';
1441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1442:
1443: -- Standard Start of API savepoint
1444: SAVEPOINT getFees;
1445:
1486: l_fee_rec.fee_waivable_flag := l_fee_waivable_flag;
1487: l_fee_rec.fee_deletable_flag := l_fee_deletable_flag;
1488: l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1489:
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1492: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1493: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1494: x_fees_tbl(i) := l_fee_rec;
1487: l_fee_rec.fee_deletable_flag := l_fee_deletable_flag;
1488: l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1489:
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1492: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1493: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1494: x_fees_tbl(i) := l_fee_rec;
1495: END LOOP;
1488: l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1489:
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1492: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1493: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1494: x_fees_tbl(i) := l_fee_rec;
1495: END LOOP;
1496: elsif p_disb_header_id is not null then
1489:
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1491: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1492: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1493: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1494: x_fees_tbl(i) := l_fee_rec;
1495: END LOOP;
1496: elsif p_disb_header_id is not null then
1497: OPEN c_feeSchedule(p_disb_header_id);
1521: --l_fee_rec.fee_waivable_flag := l_fee_waivable_flag;
1522: --l_fee_rec.fee_deletable_flag := l_fee_deletable_flag;
1523: --l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1524:
1525: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1526: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1527: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1528: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1529: x_fees_tbl(i) := l_fee_rec;
1522: --l_fee_rec.fee_deletable_flag := l_fee_deletable_flag;
1523: --l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1524:
1525: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1526: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1527: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1528: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1529: x_fees_tbl(i) := l_fee_rec;
1530: END LOOP;
1523: --l_fee_rec.fee_editable_flag := l_fee_editable_flag;
1524:
1525: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1526: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1527: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1528: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1529: x_fees_tbl(i) := l_fee_rec;
1530: END LOOP;
1531: end if;
1524:
1525: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee #: ' || i);
1526: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee schedule id: ' || l_fee_rec.fee_schedule_id);
1527: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee id: ' || l_fee_rec.fee_id);
1528: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee amount: ' || l_fee_rec.fee_amount);
1529: x_fees_tbl(i) := l_fee_rec;
1530: END LOOP;
1531: end if;
1532:
1534: -- End of API body
1535: -- ---------------------------------------------------------------------
1536: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
1547: ROLLBACK TO getFees;
1548:
1549: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1550: x_return_status := FND_API.G_RET_STS_ERROR;
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);
1555: ROLLBACK TO getFees;
1556:
1557: WHEN OTHERS THEN
1558: x_return_status := FND_API.G_RET_STS_ERROR;
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);
1563: ROLLBACK TO getFees;
1564: end getFeeSchedule;
1565:
1566: /*=========================================================================
1633:
1634: begin
1635:
1636: l_api_name := 'getFeeDetails';
1637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1638:
1639: -- Standard Start of API savepoint
1640: SAVEPOINT getFeeDetails;
1641:
1655: select LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT(p_loan_id) + 1
1656: into l_last_installment
1657: from dual;
1658:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment is: ' || p_installment);
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms: ' || p_based_on_terms);
1661: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis passed is: ' || p_fee_basis_tbl.count);
1662: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase is: ' || p_phase);
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment is: ' || l_last_installment);
1656: into l_last_installment
1657: from dual;
1658:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment is: ' || p_installment);
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms: ' || p_based_on_terms);
1661: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis passed is: ' || p_fee_basis_tbl.count);
1662: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase is: ' || p_phase);
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment is: ' || l_last_installment);
1664:
1657: from dual;
1658:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment is: ' || p_installment);
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms: ' || p_based_on_terms);
1661: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis passed is: ' || p_fee_basis_tbl.count);
1662: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase is: ' || p_phase);
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment is: ' || l_last_installment);
1664:
1665: if p_phase = 'OPEN' then
1658:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment is: ' || p_installment);
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms: ' || p_based_on_terms);
1661: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis passed is: ' || p_fee_basis_tbl.count);
1662: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase is: ' || p_phase);
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment is: ' || l_last_installment);
1664:
1665: if p_phase = 'OPEN' then
1666:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment is: ' || p_installment);
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms: ' || p_based_on_terms);
1661: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis passed is: ' || p_fee_basis_tbl.count);
1662: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase is: ' || p_phase);
1663: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment is: ' || l_last_installment);
1664:
1665: if p_phase = 'OPEN' then
1666:
1667: --if p_installment <= l_last_installment and p_based_on_terms = 'CURRENT' then
1687: ,p_to_date => l_payment_tbl(p_installment).period_end_date
1688: ,p_disb_header_id => null
1689: ,p_fee_id => null);
1690:
1691: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': fee structures count is ' || l_fee_structures.count);
1692:
1693: -- calculate the fees one by one
1694: for j in 1..l_fee_structures.count
1695: loop
1694: for j in 1..l_fee_structures.count
1695: loop
1696: -- get the fee basis
1697: -- get the total disbursed thru the target date of the fee
1698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': IND_DISB_AMOUNT ' || l_fee_structures(j).disbursement_amount);
1699: l_fee_basis_tbl(1).fee_basis_name := 'IND_DISB_AMT';
1700: l_fee_basis_tbl(1).fee_basis_amount := l_fee_structures(j).disbursement_amount;
1701: l_fee_basis_tbl(2).fee_basis_name := 'ORIG_LOAN';
1702: l_fee_basis_tbl(2).fee_basis_amount := l_loan_details.funded_amount;
1708: ,x_fees_tbl => l_virtual_fees_tbl
1709: ,x_return_status => l_return_status
1710: ,x_msg_count => l_msg_count
1711: ,x_msg_data => l_msg_data);
1712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calculated origination fees ' || l_virtual_fees_tbl.count);
1713:
1714: end loop;
1715:
1716: iFeeCount := 0;
1714: end loop;
1715:
1716: iFeeCount := 0;
1717: for k in 1..l_virtual_fees_tbl.count loop
1718: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - k ' || k);
1719: l_fees_tbl(iFeeCount + k) := l_virtual_fees_tbl(k);
1720: l_fees_tbl(iFeeCount + k).FEE_DESCRIPTION := l_fee_structures(k).fee_description;
1721: l_fees_tbl(iFeeCount + k).FEE_CATEGORY := l_fee_structures(k).fee_category;
1722: l_fees_tbl(iFeeCount + k).FEE_TYPE := l_fee_structures(k).fee_type;
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);
1749:
1750: -- get any recurring fees yet to be placed on the fee schedule
1751: l_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
1752: ,p_fee_category => 'RECUR'
1763: ,x_return_status => l_return_status
1764: ,x_msg_count => l_msg_count
1765: ,x_msg_data => l_msg_data);
1766:
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual recurring fees ' || l_virtual_fees_tbl.count);
1768: -- append virtual records to end of actual records
1769: for k in 1..l_virtual_fees_tbl.count loop
1770: l_fees_tbl(iFeeCount + k) := l_virtual_fees_tbl(k);
1771: end loop;
1774: iFeeCount := l_fees_tbl.count;
1775:
1776: else -- we going by original amortization schedule
1777:
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculating ALL virtual fees ');
1779:
1780: -- 08-02-05 raverma add conversion fees
1781: if p_installment = 0 then
1782: open c_conv_fees(p_loan_id);
1781: if p_installment = 0 then
1782: open c_conv_fees(p_loan_id);
1783: LOOP
1784: i := i + 1;
1785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - conv fee found ' || i);
1786: FETCH c_conv_fees into
1787: l_fees_tbl(i).fee_description
1788: ,l_fees_tbl(i).fee_name
1789: ,l_fees_tbl(i).fee_amount
1801: ,p_fee_category => 'RECUR'
1802: ,p_fee_type => null
1803: ,p_installment => p_installment
1804: ,p_fee_id => null);
1805: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee structures ' || l_fee_structures.count);
1806:
1807: if l_fee_structures.count > 0 then
1808: lns_fee_engine.calculateFees(p_loan_id => p_loan_id
1809: ,p_installment => p_installment
1812: ,x_fees_tbl => l_virtual_fees_tbl
1813: ,x_return_status => l_return_status
1814: ,x_msg_count => l_msg_count
1815: ,x_msg_data => l_msg_data);
1816: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found virtual recurring fees ' || l_virtual_fees_tbl.count);
1817: -- append virtual records to end of actual records
1818: iFeeCount := l_fees_tbl.count;
1819: for k in 1..l_virtual_fees_tbl.count loop
1820: l_fees_tbl(iFeeCount + k) := l_virtual_fees_tbl(k);
1824: end loop;
1825: l_virtual_fees_tbl.delete;
1826: end if;
1827:
1828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual FEES COUNT FINAL ' || l_fees_tbl.count);
1829: iFeeCount := l_fees_tbl.count;
1830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found iFeeCount fees ' || iFeeCount);
1831: if p_installment <= 1 then
1832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - checking origination fees' );
1826: end if;
1827:
1828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual FEES COUNT FINAL ' || l_fees_tbl.count);
1829: iFeeCount := l_fees_tbl.count;
1830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found iFeeCount fees ' || iFeeCount);
1831: if p_installment <= 1 then
1832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - checking origination fees' );
1833: l_orig_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
1834: ,p_fee_category => 'EVENT'
1828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual FEES COUNT FINAL ' || l_fees_tbl.count);
1829: iFeeCount := l_fees_tbl.count;
1830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found iFeeCount fees ' || iFeeCount);
1831: if p_installment <= 1 then
1832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - checking origination fees' );
1833: l_orig_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
1834: ,p_fee_category => 'EVENT'
1835: ,p_fee_type => 'EVENT_ORIGINATION'
1836: ,p_installment => p_installment
1834: ,p_fee_category => 'EVENT'
1835: ,p_fee_type => 'EVENT_ORIGINATION'
1836: ,p_installment => p_installment
1837: ,p_fee_id => null);
1838: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee structures ' || l_orig_fee_structures.count);
1839:
1840: if l_orig_fee_structures.count > 0 then
1841: lns_fee_engine.calculateFees(p_loan_id => p_loan_id
1842: ,p_installment => p_installment
1846: ,x_return_status => l_return_status
1847: ,x_msg_count => l_msg_count
1848: ,x_msg_data => l_msg_data);
1849:
1850: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual orig fees ' || l_virtual_fees_tbl.count);
1851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - iFeeCount ' || iFeeCount);
1852: -- append virtual records to end of actual records
1853: for k in 1..l_virtual_fees_tbl.count loop
1854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - k ' || k);
1847: ,x_msg_count => l_msg_count
1848: ,x_msg_data => l_msg_data);
1849:
1850: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual orig fees ' || l_virtual_fees_tbl.count);
1851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - iFeeCount ' || iFeeCount);
1852: -- append virtual records to end of actual records
1853: for k in 1..l_virtual_fees_tbl.count loop
1854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - k ' || k);
1855: l_fees_tbl(iFeeCount + k) := l_virtual_fees_tbl(k);
1850: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual orig fees ' || l_virtual_fees_tbl.count);
1851: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - iFeeCount ' || iFeeCount);
1852: -- append virtual records to end of actual records
1853: for k in 1..l_virtual_fees_tbl.count loop
1854: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - k ' || k);
1855: l_fees_tbl(iFeeCount + k) := l_virtual_fees_tbl(k);
1856: l_fees_tbl(iFeeCount + k).FEE_DESCRIPTION := l_orig_fee_structures(k).fee_description;
1857: l_fees_tbl(iFeeCount + k).FEE_CATEGORY := l_orig_fee_structures(k).fee_category;
1858: l_fees_tbl(iFeeCount + k).FEE_TYPE := l_orig_fee_structures(k).fee_type;
1857: l_fees_tbl(iFeeCount + k).FEE_CATEGORY := l_orig_fee_structures(k).fee_category;
1858: l_fees_tbl(iFeeCount + k).FEE_TYPE := l_orig_fee_structures(k).fee_type;
1859: end loop;
1860:
1861: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - virtual FEES COUNT FINAL ' || l_fees_tbl.count);
1862: end if;
1863: end if;
1864: end if; --p_based_on_terms
1865: end if; --p_phase
1870: -- End of API body
1871: -- ---------------------------------------------------------------------
1872: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
1883: ROLLBACK TO getFeeDetails;
1884:
1885: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1886: x_return_status := FND_API.G_RET_STS_ERROR;
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);
1891: ROLLBACK TO getFeeDetails;
1892:
1893: WHEN OTHERS THEN
1894: x_return_status := FND_API.G_RET_STS_ERROR;
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);
1899: ROLLBACK TO getFeeDetails;
1900:
1901: end getFeeDetails;
1902:
1968: and lnh.loan_currency = fndc.currency_code;
1969: begin
1970:
1971: l_api_name := 'updateFeeSchedule';
1972: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1973:
1974: -- Standard Start of API savepoint
1975: SAVEPOINT updateFeeSchedule;
1976:
2013: close c_phase;
2014:
2015: l_loan_details := lns_financials.getLoanDetails(p_loan_id, 'CURRENT', l_phase);
2016: i := p_fees_tbl.count;
2017: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found ' || i || 'fee structures');
2018:
2019: -- validate all structures
2020: for k in 1..i loop
2021:
2102: END IF;
2103:
2104: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
2115: ROLLBACK TO updateFeeSchedule;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2123: ROLLBACK TO updateFeeSchedule;
2124:
2125: WHEN OTHERS THEN
2126: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2131: ROLLBACK TO updateFeeSchedule;
2132:
2133: end updateFeeSchedule;
2134:
2183:
2184: begin
2185:
2186: l_api_name := 'writeFeeSchedule';
2187: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2188:
2189: -- Standard Start of API savepoint
2190: SAVEPOINT writeFeeSchedule;
2191:
2223: close c_phase;
2224:
2225: l_loan_details := lns_financials.getLoanDetails(p_loan_id, 'CURRENT', l_phase);
2226: i := p_fees_tbl.count;
2227: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - found ' || i || 'fee structures');
2228:
2229: -- validate all structures
2230: for k in 1..i loop
2231:
2275: end if;
2276:
2277: end if;
2278: else
2279: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validation bypassed');
2280: end if; -- disb_header_id
2281: --
2282: select lns_fee_schedule_s.nextval
2283: into l_fee_schedule_id
2316: END IF;
2317:
2318: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
2329: ROLLBACK TO writeFeeSchedule;
2330:
2331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2332: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2337: ROLLBACK TO writeFeeSchedule;
2338:
2339: WHEN OTHERS THEN
2340: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2345: ROLLBACK TO writeFeeSchedule;
2346:
2347: end writeFeeSchedule;
2348:
2421: and am.payment_number = p_installment));
2422: begin
2423:
2424: l_api_name := 'processFees';
2425: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2426:
2427: -- Standard Start of API savepoint
2428: SAVEPOINT processFees;
2429:
2444: 1. getFeeStructures for a particular event(s)
2445: 2. calculate for installment
2446: 3. write to schedule
2447: */
2448: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees super structures to process ' || p_fee_structures.count);
2449: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2450: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment_number);
2451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees basis count ' || p_fee_basis_tbl.count);
2452:
2445: 2. calculate for installment
2446: 3. write to schedule
2447: */
2448: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees super structures to process ' || p_fee_structures.count);
2449: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2450: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment_number);
2451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees basis count ' || p_fee_basis_tbl.count);
2452:
2453: open c_processed(p_loan_id, p_installment_number, p_fee_structures(1).fee_category, p_fee_structures(1).fee_type);
2446: 3. write to schedule
2447: */
2448: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees super structures to process ' || p_fee_structures.count);
2449: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2450: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment_number);
2451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees basis count ' || p_fee_basis_tbl.count);
2452:
2453: open c_processed(p_loan_id, p_installment_number, p_fee_structures(1).fee_category, p_fee_structures(1).fee_type);
2454: fetch c_processed into l_processed_fees;
2447: */
2448: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees super structures to process ' || p_fee_structures.count);
2449: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2450: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment_number);
2451: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees basis count ' || p_fee_basis_tbl.count);
2452:
2453: open c_processed(p_loan_id, p_installment_number, p_fee_structures(1).fee_category, p_fee_structures(1).fee_type);
2454: fetch c_processed into l_processed_fees;
2455: close c_processed;
2452:
2453: open c_processed(p_loan_id, p_installment_number, p_fee_structures(1).fee_category, p_fee_structures(1).fee_type);
2454: fetch c_processed into l_processed_fees;
2455: close c_processed;
2456: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fees already processed ' || l_processed_fees);
2457:
2458: if l_processed_fees = 0 then
2459: for i in 1..p_fee_structures.count loop
2460:
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);
2472: l_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
2473: ,p_fee_category => l_fee_category
2474: ,p_fee_type => l_fee_type
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);
2472: l_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
2473: ,p_fee_category => l_fee_category
2474: ,p_fee_type => l_fee_type
2475: ,p_installment => p_installment_number
2473: ,p_fee_category => l_fee_category
2474: ,p_fee_type => l_fee_type
2475: ,p_installment => p_installment_number
2476: ,p_fee_id => null);
2477: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee structures count is ' || l_fee_structures.count);
2478:
2479: lns_fee_engine.calculateFees(p_loan_id => p_loan_id
2480: ,p_fee_basis_tbl => p_fee_basis_tbl
2481: ,p_installment => p_installment_number
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
2495: ,p_commit => p_commit
2496: ,p_loan_id => p_loan_id
2497: ,p_fees_tbl => l_fee_calc_tbl
2519: END IF;
2520:
2521: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
2532: ROLLBACK TO processFees;
2533:
2534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2535: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2540: ROLLBACK TO processFees;
2541:
2542: WHEN OTHERS THEN
2543: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2548: ROLLBACK TO processFees;
2549:
2550: end processFees;
2551:
2603:
2604: begin
2605:
2606: l_api_name := 'waiveFee';
2607: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2608:
2609: -- Standard Start of API savepoint
2610: SAVEPOINT waiveFee;
2611:
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:
2659: if p_waive_amount is null then
2660: FND_MESSAGE.SET_NAME('LNS', 'LNS_WAIVE_AMOUNT_INVALID');
2661: FND_MSG_PUB.ADD;
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;
2667:
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;
2702: END IF;
2703:
2704: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
2715: ROLLBACK TO waiveFee;
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2723: ROLLBACK TO waiveFee;
2724:
2725: WHEN OTHERS THEN
2726: x_return_status := FND_API.G_RET_STS_ERROR;
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);
2731: ROLLBACK TO waiveFee;
2732:
2733: end waiveFee;
2734:
2782: ' Where sched.loan_id = :p_loan_id ' ||
2783: ' and sched.billed_flag = :p_billed_flag ' ||
2784: ' and sched.active_flag = ''Y'' ';
2785:
2786: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
2787: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_tpye ' || p_fee_type);
2788: if p_fee_category is not null then
2789: vPLSQL := vPLSQL || ' AND fees.fee_category = ''' || p_fee_category || '''';
2790: end if;
2783: ' and sched.billed_flag = :p_billed_flag ' ||
2784: ' and sched.active_flag = ''Y'' ';
2785:
2786: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_category ' || p_fee_category);
2787: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_tpye ' || p_fee_type);
2788: if p_fee_category is not null then
2789: vPLSQL := vPLSQL || ' AND fees.fee_category = ''' || p_fee_category || '''';
2790: end if;
2791:
2793: vPLSQL := vPLSQL || ' AND fees.fee_type = ''' || p_fee_type || '''';
2794: end if;
2795:
2796: /*
2797: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - include p_memo_fees ' || p_memo_fees);
2798: if p_memo_fees = 'Y' then
2799: vPLSQL := vPLSQL || ' AND fees.fee_category = ''MEMO''';
2800: else
2801: vPLSQL := vPLSQL || ' AND fees.fee_category <> ''MEMO''';
2800: else
2801: vPLSQL := vPLSQL || ' AND fees.fee_category <> ''MEMO''';
2802: end if;
2803: */
2804: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - sql ' || vPLSQL);
2805: open sql_cur for
2806: vPLSQL
2807: using p_waived_flag, p_loan_id, p_billed_flag;
2808: fetch sql_cur into l_total;
2862:
2863: begin
2864:
2865: l_api_name := 'processLateFees';
2866: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2867:
2868: -- Standard Start of API savepoint
2869: SAVEPOINT processLateFees;
2870:
2893:
2894: if l_last_installment > 0 then
2895:
2896: -- first part is for TERM PHASE
2897: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment ' || l_last_installment);
2898: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing last installment ' || l_last_installment);
2899: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
2900: l_late_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
2901: ,p_fee_category => 'EVENT'
2895:
2896: -- first part is for TERM PHASE
2897: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment ' || l_last_installment);
2898: FND_FILE.PUT_LINE(FND_FILE.LOG, 'processing last installment ' || l_last_installment);
2899: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_id ' || p_loan_id);
2900: l_late_fee_structures := lns_fee_engine.getFeeStructures(p_loan_id => p_loan_id
2901: ,p_fee_category => 'EVENT'
2902: ,p_fee_type => 'EVENT_LATE_CHARGE'
2903: ,p_installment => l_last_installment
2901: ,p_fee_category => 'EVENT'
2902: ,p_fee_type => 'EVENT_LATE_CHARGE'
2903: ,p_installment => l_last_installment
2904: ,p_fee_id => null);
2905: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - after api');
2906:
2907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - late fee structures ' || l_late_fee_structures.count);
2908: FND_FILE.PUT_LINE(FND_FILE.LOG, 'fee structures ' || l_late_fee_structures.count);
2909: for x in 1..l_late_fee_structures.count loop
2903: ,p_installment => l_last_installment
2904: ,p_fee_id => null);
2905: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - after api');
2906:
2907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - late fee structures ' || l_late_fee_structures.count);
2908: FND_FILE.PUT_LINE(FND_FILE.LOG, 'fee structures ' || l_late_fee_structures.count);
2909: for x in 1..l_late_fee_structures.count loop
2910:
2911: -- get the amount overdue for the last installment (P or P+I depends on fee structure)
2933: ' and billed_flag = ''N'' ' ||
2934: ' and active_flag = ''Y'' )) and ' ||
2935: ' (am.principal_trx_id = ps.customer_trx_id ';
2936:
2937: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - fee_basis rule ' || l_late_fee_structures(x).fee_basis_rule);
2938: if l_late_fee_structures(x).fee_basis_rule = 'OVERDUE_PRIN' then
2939: vPlSql := vPlSql || ')';
2940: elsif l_late_fee_structures(x).fee_basis_rule = 'OVERDUE_PRIN_INT' then
2941: vPlSql := vPlSql || 'OR am.interest_trx_id = ps.customer_trx_id)';
2939: vPlSql := vPlSql || ')';
2940: elsif l_late_fee_structures(x).fee_basis_rule = 'OVERDUE_PRIN_INT' then
2941: vPlSql := vPlSql || 'OR am.interest_trx_id = ps.customer_trx_id)';
2942: end if;
2943: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment ' || l_last_installment);
2944:
2945: l_amount_overdue := 0;
2946: open sql_cur for
2947: vPLSQL
2981: end if;
2982:
2983: end loop;
2984:
2985: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calculated fees count is ' || l_fee_calc_tbl_full.count);
2986: FND_FILE.PUT_LINE(FND_FILE.LOG, 'calculated fees count is ' || l_fee_calc_tbl_full.count);
2987: lns_fee_engine.writeFeeSchedule(p_init_msg_list => p_init_msg_list
2988: ,p_commit => p_commit
2989: ,p_loan_id => p_loan_id
3007: END IF;
3008:
3009: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
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;
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);
3020: ROLLBACK TO processLateFees;
3021:
3022: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3023: x_return_status := FND_API.G_RET_STS_ERROR;
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);
3028: ROLLBACK TO processLateFees;
3029:
3030: WHEN OTHERS THEN
3031: x_return_status := FND_API.G_RET_STS_ERROR;
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);
3036: ROLLBACK TO processLateFees;
3037:
3038:
3039: end processLateFees;