[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:
81: i := 0;
82: l_api_name := 'printAmortizationTable';
83:
84: i := p_amort_tbl.count;
85: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
86: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization table count: ' || i);
87: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Period Due Date TOTAL DUE Interest Principal Fees Other ' ||
88: ' Cum.Interest Cum.Principal Cum.Fees Cum.Other Begin Balance End Balanace ');
89: /*
82: l_api_name := 'printAmortizationTable';
83:
84: i := p_amort_tbl.count;
85: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
86: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization table count: ' || i);
87: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Period Due Date TOTAL DUE Interest Principal Fees Other ' ||
88: ' Cum.Interest Cum.Principal Cum.Fees Cum.Other Begin Balance End Balanace ');
89: /*
90: for k in 1..i
83:
84: i := p_amort_tbl.count;
85: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
86: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization table count: ' || i);
87: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Period Due Date TOTAL DUE Interest Principal Fees Other ' ||
88: ' Cum.Interest Cum.Principal Cum.Fees Cum.Other Begin Balance End Balanace ');
89: /*
90: for k in 1..i
91: loop
103: -- l_rate_id := nvl(to_char(p_amort_tbl(k).rate_id), ' ');
104: l_begin_balance := nvl(to_char(p_amort_tbl(k).begin_balance), ' ');
105: l_end_balance := nvl(to_char(p_amort_tbl(k).end_balance), ' ');
106:
107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ' || l_installment_number ||
108: ' ' || l_due_date ||
109: ' ' || l_total ||
110: ' ' || l_interest_amount ||
111: ' ' || l_principal_amount ||
131: l_min date; -- minimum date
132:
133: begin
134:
135: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, ' - sorting the rows');
136: for i in 1..p_loan_activity_tbl.count loop
137: l_min := p_loan_activity_tbl(i).activity_date;
138:
139: for j in i + 1..p_loan_activity_tbl.count loop
209: l_end_inst_num number;
210: BEGIN
211:
212: l_api_name := 'floatingRatePostProcessing';
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
210: BEGIN
211:
212: l_api_name := 'floatingRatePostProcessing';
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
211:
212: l_api_name := 'floatingRatePostProcessing';
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
212: l_api_name := 'floatingRatePostProcessing';
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
213: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
221: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
214: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
221: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
222:
215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
221: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
222:
223: -- Standard Start of API savepoint
216: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number ' || p_installment_number);
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
221: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
222:
223: -- Standard Start of API savepoint
224: SAVEPOINT floatingPostProcessor;
217: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_period_begin_date ' || p_period_begin_date);
218: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interest_adjustment_freq ' || p_interest_adjustment_freq);
219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_annualized_interest_rate ' || p_annualized_interest_rate);
220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_id ' || p_rate_id);
221: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase ' || p_phase);
222:
223: -- Standard Start of API savepoint
224: SAVEPOINT floatingPostProcessor;
225:
236: -- ----------------------------------------------------------------
237:
238: if p_installment_number <> lns_fin_utils.getNumberInstallments(p_loan_id => p_loan_id
239: ,p_phase => p_phase) then
240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting next rate change info');
241: l_next_rate_change := lns_fin_utils.getNextDate(p_date => p_period_begin_date
242: ,p_interval_type => p_interest_adjustment_freq
243: ,p_direction => 1);
244: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating terms with new date ' || l_next_rate_change);
240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting next rate change info');
241: l_next_rate_change := lns_fin_utils.getNextDate(p_date => p_period_begin_date
242: ,p_interval_type => p_interest_adjustment_freq
243: ,p_direction => 1);
244: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating terms with new date ' || l_next_rate_change);
245: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating terms with new rate' || p_annualized_interest_rate);
246: if p_phase = 'OPEN' then
247: update lns_terms
248: set next_rate_change_date = l_next_rate_change
241: l_next_rate_change := lns_fin_utils.getNextDate(p_date => p_period_begin_date
242: ,p_interval_type => p_interest_adjustment_freq
243: ,p_direction => 1);
244: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating terms with new date ' || l_next_rate_change);
245: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating terms with new rate' || p_annualized_interest_rate);
246: if p_phase = 'OPEN' then
247: update lns_terms
248: set next_rate_change_date = l_next_rate_change
249: ,open_projected_rate = p_annualized_interest_rate
258: ,last_updated_by = lns_utility_pub.user_id
259: where loan_id = p_loan_id;
260: end if;
261:
262: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating the rate schedule ' || p_rate_id);
263: -- store the row on lns_rate_schedules(only if the existing row does not have begin and end installment numbers same as this installment) and update existing rate_schedule row
264: open c_get_rate_sch_info(p_rate_id);
265: fetch c_get_rate_sch_info into l_begin_inst_num,l_end_inst_num;
266: close c_get_rate_sch_info;
265: fetch c_get_rate_sch_info into l_begin_inst_num,l_end_inst_num;
266: close c_get_rate_sch_info;
267:
268: if (l_begin_inst_num = l_end_inst_num and l_begin_inst_num = p_installment_number) then
269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' (l_begin_inst_num = l_end_inst_num = p_installment_number) - NO need to insert new row - updating the existing rate schedule ' || p_rate_id);
270:
271: -- update existing rate_schedule row
272: update lns_rate_schedules
273: set current_interest_rate = p_annualized_interest_rate
274: ,index_rate = p_annualized_interest_rate - nvl(spread,0)
275: where rate_id = p_rate_id;
276:
277: else --else for if (l_begin_inst_num = l_end_inst_num = p_installment_number) then
278: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' update the existing row as the next row and insert new row for the current rate sch');
279: update lns_rate_schedules
280: set begin_installment_number = begin_installment_number + 1
281: ,current_interest_rate = spread
282: ,index_rate = null
284:
285: select LNS_RATE_SCHEDULES_S.NEXTVAL into l_new_rate_id
286: from dual;
287:
288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - adding new row into rate schedule');
289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_rate_id ' || l_new_rate_id );
290: insert into lns_rate_schedules(RATE_ID
291: ,TERM_ID
292: ,INDEX_RATE
285: select LNS_RATE_SCHEDULES_S.NEXTVAL into l_new_rate_id
286: from dual;
287:
288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - adding new row into rate schedule');
289: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_rate_id ' || l_new_rate_id );
290: insert into lns_rate_schedules(RATE_ID
291: ,TERM_ID
292: ,INDEX_RATE
293: ,SPREAD
335: end if; --end else part for if (l_begin_inst_num = l_end_inst_num = p_installment_number) then
336:
337: else --else for if p_installment_number <> lns_fin_utils.getNumberInstallments(p_loan_id => p_loan_id
338:
339: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - updating the rate schedule LAST ROW ' || p_rate_id);
340: -- update existing rate_schedule row
341: update lns_rate_schedules
342: set current_interest_rate = p_annualized_interest_rate
343: ,index_rate = p_annualized_interest_rate - nvl(spread,0)
349: --
350: -- End of API body
351: --
352: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
353: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
354:
355: EXCEPTION
356: WHEN FND_API.G_EXC_ERROR THEN
357: ROLLBACK TO floatingPostProcessor;
358: x_return_status := FND_API.G_RET_STS_ERROR;
359: x_msg_count := l_msg_count;
360: x_msg_data := l_msg_data;
361: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
362: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
363:
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365: ROLLBACK TO floatingPostProcessor;
366: x_return_status := FND_API.G_RET_STS_ERROR;
366: x_return_status := FND_API.G_RET_STS_ERROR;
367: x_msg_count := l_msg_count;
368: x_msg_data := l_msg_data;
369: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
370: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
371:
372: WHEN OTHERS THEN
373: ROLLBACK TO floatingPostProcessor;
374: x_return_status := FND_API.G_RET_STS_ERROR;
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: x_msg_count := l_msg_count;
376: x_msg_data := l_msg_data;
377: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
378: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
379:
380: end floatingRatePostProcessing;
381:
382: --------------------------------------------
432: BEGIN
433:
434: l_api_name := 'validateLoan';
435: l_api_version_number := 1;
436: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
437:
438: -- Standard Start of API savepoint
439: SAVEPOINT validateLoan;
440:
494: --
495:
496: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
497:
498: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502: x_return_status := FND_API.G_RET_STS_ERROR;
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN
502: x_return_status := FND_API.G_RET_STS_ERROR;
503: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
503: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
504:
505: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: x_return_status := FND_API.G_RET_STS_ERROR;
507: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
508:
509: WHEN OTHERS THEN
510: x_return_status := FND_API.G_RET_STS_ERROR;
511: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
507: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
508:
509: WHEN OTHERS THEN
510: x_return_status := FND_API.G_RET_STS_ERROR;
511: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
512:
513: END validateLoan;
514:
515: ---------------------------------------------------------------------------
615: l_api_version_number := 1;
616: i := 0;
617: l_manual_fee_amount := 0;
618:
619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_ID ' || p_loan_ID);
621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms ' || p_based_on_terms);
622:
623: -- Standard call to check for call compatibility.
616: i := 0;
617: l_manual_fee_amount := 0;
618:
619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_ID ' || p_loan_ID);
621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms ' || p_based_on_terms);
622:
623: -- Standard call to check for call compatibility.
624: IF NOT FND_API.Compatible_API_Call (l_api_version_number, p_api_version,
617: l_manual_fee_amount := 0;
618:
619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_ID ' || p_loan_ID);
621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_based_on_terms ' || p_based_on_terms);
622:
623: -- Standard call to check for call compatibility.
624: IF NOT FND_API.Compatible_API_Call (l_api_version_number, p_api_version,
625: l_api_name, G_PKG_NAME)
659: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
660: ,p_based_on_terms => p_based_on_terms
661: ,p_phase => 'TERM');
662:
663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS = ' || l_loan_details.LOAN_STATUS);
664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_PHASE = ' || l_loan_details.LOAN_PHASE);
666:
667: l_amort_tbl.delete;
660: ,p_based_on_terms => p_based_on_terms
661: ,p_phase => 'TERM');
662:
663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS = ' || l_loan_details.LOAN_STATUS);
664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_PHASE = ' || l_loan_details.LOAN_PHASE);
666:
667: l_amort_tbl.delete;
668: if l_loan_details.LOAN_STATUS NOT IN ('INCOMPLETE','DELETED','REJECTED','PENDING') and
661: ,p_phase => 'TERM');
662:
663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_STATUS = ' || l_loan_details.LOAN_STATUS);
664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'LOAN_PHASE = ' || l_loan_details.LOAN_PHASE);
666:
667: l_amort_tbl.delete;
668: if l_loan_details.LOAN_STATUS NOT IN ('INCOMPLETE','DELETED','REJECTED','PENDING') and
669: p_based_on_terms <> 'CURRENT' --and l_loan_details.LOAN_PHASE = 'TERM'
668: if l_loan_details.LOAN_STATUS NOT IN ('INCOMPLETE','DELETED','REJECTED','PENDING') and
669: p_based_on_terms <> 'CURRENT' --and l_loan_details.LOAN_PHASE = 'TERM'
670: then
671:
672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LOAD_ORIGINAL_SCHEDULE...');
673: LOAD_ORIGINAL_SCHEDULE(p_loan_details => l_loan_details,
674: x_loan_amort_tbl => l_amort_tbl);
675:
676: x_amort_tbl := l_amort_tbl;
688:
689: if p_based_on_terms = 'CURRENT' and l_loan_details.reamortize_overpay = 'Y' then
690:
691: -- call preProcessInstallment only for current amortization
692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - preProcess the loan');
693: preProcessInstallment(p_api_version => 1.0
694: ,p_init_msg_list => p_init_msg_list
695: ,p_commit => FND_API.G_FALSE --p_commit
696: ,p_loan_ID => p_loan_id
708: ,p_installment_number => null
709: ,x_loan_amort_tbl => l_amort_tbl);
710: else
711:
712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - loan is customized');
713:
714: if p_based_on_terms <> 'CURRENT' then
715: open c_fund_sched_exist(p_loan_id);
716: fetch c_fund_sched_exist into l_fund_sched_count;
737: l_fee_basis_tbl(3).fee_basis_amount := l_original_loan_amount;
738: l_fee_basis_tbl(4).fee_basis_name := 'TOTAL_UNDISB_AMT';
739: l_fee_basis_tbl(4).fee_basis_amount := l_loan_details.requested_amount + l_loan_details.ADD_REQUESTED_AMOUNT - l_original_loan_amount;
740:
741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for 0-th installment...');
742: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
743: ,p_loan_id => p_loan_id
744: ,p_installment => 0
745: ,p_fee_basis_tbl => l_fee_basis_tbl
749: ,x_return_status => l_return_status
750: ,x_msg_count => l_msg_count
751: ,x_msg_data => l_msg_data);
752:
753: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
754: if l_return_status <> 'S' then
755: RAISE FND_API.G_EXC_ERROR;
756: end if;
757:
754: if l_return_status <> 'S' then
755: RAISE FND_API.G_EXC_ERROR;
756: end if;
757:
758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
759:
760: for k in 1..l_fees_tbl.count loop
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
757:
758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
759:
760: for k in 1..l_fees_tbl.count loop
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
759:
760: for k in 1..l_fees_tbl.count loop
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
766: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
759:
760: for k in 1..l_fees_tbl.count loop
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
766: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
767: end loop;
760: for k in 1..l_fees_tbl.count loop
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
766: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
767: end loop;
768: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
762: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
763: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
766: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
767: end loop;
768: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
769:
764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
765: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
766: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
767: end loop;
768: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
769:
770: if l_fee_amount > 0 then
771: i := i + 1;
772: l_amort_tbl(i).installment_number := 0;
869: l_loan_details.LOAN_STATUS NOT IN ('INCOMPLETE','DELETED','REJECTED','PENDING','APPROVED')
870: then
871:
872: l_num_records := l_amort_tbl.count;
873: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amortization returns # records '|| l_num_records);
874: l_last_installment_billed := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT_3(p_loan_id, 'TERM');
875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment billed '|| l_last_installment_billed);
876:
877: -- copy the records not billed to a temp collection
871:
872: l_num_records := l_amort_tbl.count;
873: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amortization returns # records '|| l_num_records);
874: l_last_installment_billed := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT_3(p_loan_id, 'TERM');
875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment billed '|| l_last_installment_billed);
876:
877: -- copy the records not billed to a temp collection
878: m := 0;
879: for i in 1..l_num_records
880: loop
881: if l_amort_tbl(i).installment_number > l_last_installment_billed or
882: (l_amort_tbl(i).installment_number = 0 and l_last_installment_billed = 0)
883: then
884: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - copying record ' || i ||
885: ': installment ' || l_amort_tbl(i).installment_number);
886: m := m + 1;
887: l_amort_tbl2(m) := l_amort_tbl(i);
888: end if;
892: l_amort_tbl.delete;
893: m := 0;
894: for i in 1..l_amort_tbl2.count
895: loop
896: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - re-copying record ' || i);
897: m := m + 1;
898: l_amort_tbl(m) := l_amort_tbl2(i);
899: end loop;
900:
911: COMMIT WORK;
912: END IF;
913:
914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
915: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
916:
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR THEN
919: ROLLBACK TO runAmortization_PVT;
920: x_return_status := FND_API.G_RET_STS_ERROR;
921: x_msg_count := l_msg_count;
922: x_msg_data := l_msg_data;
923: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
924: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
925:
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927: ROLLBACK TO runAmortization_PVT;
928: x_return_status := FND_API.G_RET_STS_ERROR;
928: x_return_status := FND_API.G_RET_STS_ERROR;
929: x_msg_count := l_msg_count;
930: x_msg_data := l_msg_data;
931: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
932: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
933:
934: WHEN OTHERS THEN
935: ROLLBACK TO runAmortization_PVT;
936: x_return_status := FND_API.G_RET_STS_ERROR;
936: x_return_status := FND_API.G_RET_STS_ERROR;
937: x_msg_count := l_msg_count;
938: x_msg_data := l_msg_data;
939: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
940: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
941:
942: END runAmortization;
943:
944: /*=========================================================================
987:
988: begin
989:
990: l_api_name := 'termlyPayment';
991: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
992:
993: l_periodic_rate := p_annual_rate / 100;
994:
995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate: ' || l_periodic_rate);
991: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
992:
993: l_periodic_rate := p_annual_rate / 100;
994:
995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate: ' || l_periodic_rate);
996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': termly amount: ' || p_termly_amount);
997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payments per year: ' || p_payments_per_year);
998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan amount : ' || p_loan_amount);
999:
992:
993: l_periodic_rate := p_annual_rate / 100;
994:
995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate: ' || l_periodic_rate);
996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': termly amount: ' || p_termly_amount);
997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payments per year: ' || p_payments_per_year);
998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan amount : ' || p_loan_amount);
999:
1000: if l_periodic_rate <> 0 then
993: l_periodic_rate := p_annual_rate / 100;
994:
995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate: ' || l_periodic_rate);
996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': termly amount: ' || p_termly_amount);
997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payments per year: ' || p_payments_per_year);
998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan amount : ' || p_loan_amount);
999:
1000: if l_periodic_rate <> 0 then
1001: -- we cannot have LN < 0
994:
995: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate: ' || l_periodic_rate);
996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': termly amount: ' || p_termly_amount);
997: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payments per year: ' || p_payments_per_year);
998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan amount : ' || p_loan_amount);
999:
1000: if l_periodic_rate <> 0 then
1001: -- we cannot have LN < 0
1002: -- this will be a loan that will never be paid off
1005: FND_MSG_PUB.Add;
1006: RAISE FND_API.G_EXC_ERROR;
1007: end if;
1008:
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1006: RAISE FND_API.G_EXC_ERROR;
1007: end if;
1008:
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': - p_payments_per_year : ' || (- p_payments_per_year));
1007: end if;
1008:
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': - p_payments_per_year : ' || (- p_payments_per_year));
1015:
1008:
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': - p_payments_per_year : ' || (- p_payments_per_year));
1015:
1016: l_num_periods := (LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))) /
1009: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate * p_loan_amount :' || l_periodic_rate * p_loan_amount);
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': - p_payments_per_year : ' || (- p_payments_per_year));
1015:
1016: l_num_periods := (LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))) /
1017: LN(1 + (l_periodic_rate / p_payments_per_year))) / (- p_payments_per_year) ;
1010: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payments_per_year * p_termly_amount : ' || p_payments_per_year * p_termly_amount);
1011: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1-a/b) : ' || LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))));
1012: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate / p_payments_per_year : ' || l_periodic_rate / p_payments_per_year);
1013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': LN(1+d) : ' || LN(1 + (l_periodic_rate / p_payments_per_year)));
1014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': - p_payments_per_year : ' || (- p_payments_per_year));
1015:
1016: l_num_periods := (LN(1 - ( ( l_periodic_rate * p_loan_amount ) / (p_payments_per_year * p_termly_amount))) /
1017: LN(1 + (l_periodic_rate / p_payments_per_year))) / (- p_payments_per_year) ;
1018: else
1019: l_num_periods := p_loan_amount / p_termly_amount / p_payments_per_year;
1020:
1021: end if;
1022:
1023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': num years to pay off = ' || l_num_periods);
1024:
1025: if p_period_type = 'MONTHS' then
1026: l_num_periods := l_num_periods * 12;
1027:
1032: null;
1033:
1034: end if;
1035:
1036: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1037:
1038: return l_num_periods;
1039:
1040: Exception
1125:
1126: l_api_name := 'preProcessInstallment';
1127: l_api_version_number := 1;
1128:
1129: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1130: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1131: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1132:
1133: -- Standard Start of API savepoint
1126: l_api_name := 'preProcessInstallment';
1127: l_api_version_number := 1;
1128:
1129: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1130: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1131: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1132:
1133: -- Standard Start of API savepoint
1134: SAVEPOINT preProcessInstallment;
1127: l_api_version_number := 1;
1128:
1129: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1130: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1131: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1132:
1133: -- Standard Start of API savepoint
1134: SAVEPOINT preProcessInstallment;
1135:
1162: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
1163: ,p_based_on_terms => 'CURRENT'
1164: ,p_phase => 'TERM');
1165:
1166: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting next installment info...');
1167: if l_loan_details.custom_schedule = 'N' then
1168: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - regular loan');
1169:
1170: -- this is a standard non-customized loan
1164: ,p_phase => 'TERM');
1165:
1166: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting next installment info...');
1167: if l_loan_details.custom_schedule = 'N' then
1168: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - regular loan');
1169:
1170: -- this is a standard non-customized loan
1171: lns_financials.amortizeLoan(p_loan_Id => p_loan_id
1172: ,p_based_on_terms => 'CURRENT'
1172: ,p_based_on_terms => 'CURRENT'
1173: ,p_installment_number => p_installment_number
1174: ,x_loan_amort_tbl => l_amort_tbl);
1175: l_count := l_amort_tbl.count;
1176: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' table count is ' || l_count);
1177:
1178: for i in REVERSE 1..l_amort_tbl.count loop
1179: if p_installment_number = l_amort_tbl(i).INSTALLMENT_NUMBER then
1180: l_due_date := l_amort_tbl(i).due_date;
1185:
1186: else
1187: -- we are on a customized loan
1188: -- check if this is 0th installment or not
1189: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - custom loan');
1190: if p_installment_number > 0 then
1191: open c_customSchedule(p_loan_id, p_installment_number);
1192: fetch c_customSchedule into
1193: l_installment
1215: --l_amortization_rec.fees_cumulative := l_amort_tbl(i).fees_cumulative;
1216: --l_amortization_rec.other_cumulative := l_amort_tbl(i).other_cumulative;
1217: --l_amortization_rec.rate_id := l_amort_tbl(i).rate_id;
1218:
1219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' next installment due: ' || l_amortization_rec.installment_number);
1220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' next due date: ' || l_amortization_rec.due_date);
1221:
1222: -- get theoretical balance
1223: -- bug# 5664316 - remove installment number check
1216: --l_amortization_rec.other_cumulative := l_amort_tbl(i).other_cumulative;
1217: --l_amortization_rec.rate_id := l_amort_tbl(i).rate_id;
1218:
1219: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' next installment due: ' || l_amortization_rec.installment_number);
1220: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' next due date: ' || l_amortization_rec.due_date);
1221:
1222: -- get theoretical balance
1223: -- bug# 5664316 - remove installment number check
1224: if l_loan_details.reamortize_overpay = 'Y' and
1224: if l_loan_details.reamortize_overpay = 'Y' and
1225: l_loan_details.custom_schedule = 'N' -- fix for bug 6902221
1226: then --and p_installment_number > 1 then
1227:
1228: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - checking if we need to reamortize...');
1229:
1230: lns_financials.amortizeLoan(p_loan_Id => p_loan_id
1231: ,p_based_on_terms => 'ORIGINAL'
1232: ,p_installment_number => p_installment_number
1231: ,p_based_on_terms => 'ORIGINAL'
1232: ,p_installment_number => p_installment_number
1233: ,x_loan_amort_tbl => l_amort_tbl);
1234:
1235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' comparing balances...');
1236: l_actual_balance := l_loan_details.remaining_balance;
1237:
1238: if p_installment_number > 0 then
1239:
1249: l_theoretical_balance := 0;
1250: else
1251: l_theoretical_balance := l_amort_tbl(l_arr_pos).end_balance;
1252: end if;
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' p_installment_number ' || p_installment_number);
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' l_arr_pos ' || l_arr_pos);
1255:
1256: elsif p_installment_number = 0 then
1257: -- this check will take care of multiple reAmortizations on 0th installment
1250: else
1251: l_theoretical_balance := l_amort_tbl(l_arr_pos).end_balance;
1252: end if;
1253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' p_installment_number ' || p_installment_number);
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' l_arr_pos ' || l_arr_pos);
1255:
1256: elsif p_installment_number = 0 then
1257: -- this check will take care of multiple reAmortizations on 0th installment
1258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize zero installment');
1254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' l_arr_pos ' || l_arr_pos);
1255:
1256: elsif p_installment_number = 0 then
1257: -- this check will take care of multiple reAmortizations on 0th installment
1258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize zero installment');
1259: if l_loan_details.reamortize_amount = 0 or l_loan_details.reamortize_amount is null then
1260:
1261: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize amount is zero - no previous reamortization ');
1262: l_theoretical_balance := l_loan_details.funded_amount;
1257: -- this check will take care of multiple reAmortizations on 0th installment
1258: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize zero installment');
1259: if l_loan_details.reamortize_amount = 0 or l_loan_details.reamortize_amount is null then
1260:
1261: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize amount is zero - no previous reamortization ');
1262: l_theoretical_balance := l_loan_details.funded_amount;
1263: else
1264:
1265: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize amount is not zero - previous reamort amount');
1261: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize amount is zero - no previous reamortization ');
1262: l_theoretical_balance := l_loan_details.funded_amount;
1263: else
1264:
1265: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' reamortize amount is not zero - previous reamort amount');
1266: l_theoretical_balance := l_loan_details.reamortize_amount;
1267: end if;
1268: end if;
1269:
1266: l_theoretical_balance := l_loan_details.reamortize_amount;
1267: end if;
1268: end if;
1269:
1270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' actual balance ' || l_actual_balance);
1271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' theoretical balance ' || l_theoretical_balance);
1272: -- end bug# 5664316 11-23-2006
1273:
1274: if l_actual_balance < l_theoretical_balance then
1267: end if;
1268: end if;
1269:
1270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' actual balance ' || l_actual_balance);
1271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' theoretical balance ' || l_theoretical_balance);
1272: -- end bug# 5664316 11-23-2006
1273:
1274: if l_actual_balance < l_theoretical_balance then
1275:
1272: -- end bug# 5664316 11-23-2006
1273:
1274: if l_actual_balance < l_theoretical_balance then
1275:
1276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZING...');
1277:
1278: -- remove all reAmortize rows from amortization schedule
1279: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' removing previous reAmortize rows');
1280:
1275:
1276: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZING...');
1277:
1278: -- remove all reAmortize rows from amortization schedule
1279: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' removing previous reAmortize rows');
1280:
1281: delete
1282: from lns_amortization_scheds
1283: where loan_id = p_loan_id
1283: where loan_id = p_loan_id
1284: and reamortization_amount is not null
1285: and reamortize_from_installment is not null;
1286:
1287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZE OVERPAY LOAN');
1288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' insert record into amortizations');
1289: insert into LNS_AMORTIZATION_SCHEDS(amortization_schedule_id
1290: ,loan_id
1291: ,reamortization_amount
1284: and reamortization_amount is not null
1285: and reamortize_from_installment is not null;
1286:
1287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZE OVERPAY LOAN');
1288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' insert record into amortizations');
1289: insert into LNS_AMORTIZATION_SCHEDS(amortization_schedule_id
1290: ,loan_id
1291: ,reamortization_amount
1292: ,reamortize_from_installment
1310: -- bug #3718480
1311: -- we will need to credit out all unpaid principal documents
1312: /*
1313: elsif l_loan_details.reamortize_underpay = 'Y' and l_actual_balance > l_theoretical_balance then
1314: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZE UNDERPAY LOAN');
1315: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' insert record into amortizations');
1316: insert into LNS_AMORTIZATION_SCHEDS(amortization_schedule_id
1317: ,loan_id
1318: ,reamortization_amount
1311: -- we will need to credit out all unpaid principal documents
1312: /*
1313: elsif l_loan_details.reamortize_underpay = 'Y' and l_actual_balance > l_theoretical_balance then
1314: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' REAMORTIZE UNDERPAY LOAN');
1315: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' insert record into amortizations');
1316: insert into LNS_AMORTIZATION_SCHEDS(amortization_schedule_id
1317: ,loan_id
1318: ,reamortization_amount
1319: ,reamortize_from_installment
1335: ,lns_utility_pub.last_update_date
1336: ,1);
1337: */
1338: else
1339: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' WILL NOT REAMORTIZE!');
1340: end if;
1341: end if;
1342:
1343: x_amortization_rec := l_amortization_rec;
1351: COMMIT WORK;
1352: END IF;
1353:
1354: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1355: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1356:
1357: Exception
1358: WHEN FND_API.G_EXC_ERROR THEN
1359: ROLLBACK TO preProcessInstallment;
1360: x_return_status := FND_API.G_RET_STS_ERROR;
1361: x_msg_count := l_msg_count;
1362: x_msg_data := l_msg_data;
1363: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1364: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1365:
1366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1367: ROLLBACK TO preProcessInstallment;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: x_msg_count := l_msg_count;
1370: x_msg_data := l_msg_data;
1371: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1372: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1373:
1374: WHEN OTHERS THEN
1375: ROLLBACK TO preProcessInstallment;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: x_msg_count := l_msg_count;
1378: x_msg_data := l_msg_data;
1379: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1380: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1381:
1382: end preProcessInstallment;
1383:
1384: /*=========================================================================
1435:
1436: begin
1437:
1438: l_api_name := 'preProcessOpenInstallment';
1439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1442:
1443: -- Standard Start of API savepoint
1436: begin
1437:
1438: l_api_name := 'preProcessOpenInstallment';
1439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1442:
1443: -- Standard Start of API savepoint
1444: SAVEPOINT preProcessOpenInstallment;
1437:
1438: l_api_name := 'preProcessOpenInstallment';
1439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1442:
1443: -- Standard Start of API savepoint
1444: SAVEPOINT preProcessOpenInstallment;
1445:
1453:
1454: -- ---------------------------------------------------------------
1455: -- Beginning of API body
1456: --
1457: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting loan details');
1458: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
1459: ,p_based_on_terms => 'CURRENT'
1460: ,p_phase => 'OPEN');
1461:
1458: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
1459: ,p_based_on_terms => 'CURRENT'
1460: ,p_phase => 'OPEN');
1461:
1462: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting Open Installment');
1463: lns_financials.getOpenInstallment(p_init_msg_list => 'T'
1464: ,p_loan_ID => p_loan_ID
1465: ,p_installment_number => p_installment_number
1466: ,x_fees_tbl => l_fees_tbl
1486: COMMIT WORK;
1487: END IF;
1488:
1489: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1491:
1492: Exception
1493: WHEN FND_API.G_EXC_ERROR THEN
1494: ROLLBACK TO preProcessOpenInstallment;
1495: x_return_status := FND_API.G_RET_STS_ERROR;
1496: x_msg_count := l_msg_count;
1497: x_msg_data := l_msg_data;
1498: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1499: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1500:
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1502: ROLLBACK TO preProcessOpenInstallment;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1503: x_return_status := FND_API.G_RET_STS_ERROR;
1504: x_msg_count := l_msg_count;
1505: x_msg_data := l_msg_data;
1506: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1507: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
1508:
1509: WHEN OTHERS THEN
1510: ROLLBACK TO preProcessOpenInstallment;
1511: x_return_status := FND_API.G_RET_STS_ERROR;
1511: x_return_status := FND_API.G_RET_STS_ERROR;
1512: x_msg_count := l_msg_count;
1513: x_msg_data := l_msg_data;
1514: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1515: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1516:
1517: end preProcessOpenInstallment;
1518:
1519:
1600: begin
1601:
1602: l_api_version_number := 1;
1603: l_api_name := 'getInstallment';
1604: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1605: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1606: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1607:
1608: -- Standard Start of API savepoint
1601:
1602: l_api_version_number := 1;
1603: l_api_name := 'getInstallment';
1604: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1605: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1606: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1607:
1608: -- Standard Start of API savepoint
1609: SAVEPOINT getInstallment;
1602: l_api_version_number := 1;
1603: l_api_name := 'getInstallment';
1604: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1605: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
1606: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
1607:
1608: -- Standard Start of API savepoint
1609: SAVEPOINT getInstallment;
1610:
1639: l_loan_Details := lns_financials.getLoanDetails(p_loan_id, 'CURRENT', 'TERM');
1640:
1641: if l_loan_details.custom_schedule = 'N' then
1642:
1643: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan is not customized');
1644: if l_loan_details.reamortize_overpay = 'Y' then
1645: -- preProcess will add a re-amortization row if the remaining amount < funded amount
1646: -- bug# 5664316 11-23-2006
1647: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling preProcessInstallment...');
1643: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan is not customized');
1644: if l_loan_details.reamortize_overpay = 'Y' then
1645: -- preProcess will add a re-amortization row if the remaining amount < funded amount
1646: -- bug# 5664316 11-23-2006
1647: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling preProcessInstallment...');
1648: preProcessInstallment(p_api_version => 1.0
1649: ,p_init_msg_list => p_init_msg_list
1650: ,p_commit => p_commit
1651: ,p_loan_ID => p_loan_id
1655: ,x_msg_count => l_msg_count
1656: ,x_msg_data => l_msg_data);
1657: end if;
1658:
1659: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling amortizeLoan....');
1660: lns_financials.amortizeLoan(p_loan_Id => p_loan_id
1661: ,p_installment_number => p_installment_number
1662: ,p_based_on_terms => 'CURRENT'
1663: ,x_loan_amort_tbl => l_amortization_tbl);
1664:
1665: for p in 1..l_amortization_tbl.count loop
1666: if l_amortization_tbl(p).installment_number = p_installment_number then
1667: l_amortization_rec := l_amortization_tbl(p);
1668: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Found installment ' || p_installment_number);
1669: exit;
1670: end if;
1671: end loop;
1672:
1671: end loop;
1672:
1673: else -- this is a customized loan
1674:
1675: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan is customized');
1676: if p_installment_number > 0 then
1677:
1678: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling LNS_CUSTOM_PUB.loadCustomSchedule....');
1679: -- load custom schedule
1674:
1675: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan is customized');
1676: if p_installment_number > 0 then
1677:
1678: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling LNS_CUSTOM_PUB.loadCustomSchedule....');
1679: -- load custom schedule
1680: LNS_CUSTOM_PUB.loadCustomSchedule(
1681: P_API_VERSION => 1.0,
1682: P_INIT_MSG_LIST => FND_API.G_TRUE,
1759: l_fee_basis_tbl(9).fee_basis_name := 'CURR_LOAN';
1760: l_fee_basis_tbl(9).fee_basis_amount := l_loan_details.requested_amount + l_loan_details.ADD_REQUESTED_AMOUNT;
1761:
1762: if p_installment_number = 0 or p_installment_number = 1 then
1763: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing origination fees');
1764: l_fee_structures(1).fee_category := 'EVENT';
1765: l_fee_structures(1).fee_type := 'EVENT_ORIGINATION';
1766: l_fee_structures(1).phase := l_loan_details.LOAN_PHASE;
1767:
1781: ,x_return_status => l_return_Status
1782: ,x_msg_count => l_msg_count
1783: ,x_msg_data => l_msg_data);
1784:
1785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1786: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1787: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1788: FND_MSG_PUB.ADD;
1789: RAISE FND_API.G_EXC_ERROR;
1791: end if;
1792:
1793: if p_installment_number > 0 then
1794:
1795: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing late fees');
1796: lns_fee_engine.processLateFees(p_loan_id => p_loan_id
1797: ,p_init_msg_list => p_init_msg_list
1798: ,p_commit => 'F'
1799: ,p_phase => l_loan_details.LOAN_PHASE
1800: ,x_return_status => l_return_status
1801: ,x_msg_count => l_msg_count
1802: ,x_msg_data => l_msg_data);
1803:
1804: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1805: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1806: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1807: FND_MSG_PUB.ADD;
1808: RAISE FND_API.G_EXC_ERROR;
1809: end if;
1810:
1811: l_fee_structures.delete;
1812: l_fees_tbl.delete;
1813: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing recurring fees');
1814: -- add the recurring fees for the installment onto the fee schedule
1815: l_fee_structures(1).fee_category := 'RECUR';
1816: l_fee_structures(1).fee_type := null;
1817:
1825: ,x_return_status => l_return_Status
1826: ,x_msg_count => l_msg_count
1827: ,x_msg_data => l_msg_data);
1828:
1829: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return_status = ' || l_return_status);
1830: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1831: FND_MESSAGE.SET_NAME('LNS', 'LNS_PROCESS_FEE_ERROR');
1832: FND_MSG_PUB.ADD;
1833: RAISE FND_API.G_EXC_ERROR;
1833: RAISE FND_API.G_EXC_ERROR;
1834: end if;
1835: end if;
1836:
1837: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling lns_fee_engine.getFeeSchedule...');
1838: lns_fee_engine.getFeeSchedule(p_init_msg_list => FND_API.G_FALSE
1839: ,p_loan_id => p_loan_id
1840: ,p_installment_number => p_installment_number
1841: ,p_disb_header_id => null
1863: l_fees_tbl_2(k).BILLED_FLAG := l_fees_tbl_1(k).BILLED_FLAG;
1864: l_fees_tbl_2(k).ACTIVE_FLAG := l_fees_tbl_1(k).ACTIVE_FLAG;
1865: l_total_fees := l_total_fees + l_fees_tbl_1(k).FEE_AMOUNT;
1866: end loop;
1867: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fees_tbl_2.count = ' || l_fees_tbl_2.count);
1868:
1869: -- overwrite amortization record returned from amortizationAPI
1870: l_amortization_rec.fee_amount := l_total_fees;
1871: x_fees_tbl := l_fees_tbl_2;
1879: COMMIT WORK;
1880: END IF;
1881:
1882: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1883: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1884:
1885: EXCEPTION
1886: WHEN FND_API.G_EXC_ERROR THEN
1887: ROLLBACK TO getInstallment;
1888: x_return_status := FND_API.G_RET_STS_ERROR;
1889: x_msg_count := l_msg_count;
1890: x_msg_data := l_msg_data;
1891: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1892: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1893:
1894: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1895: ROLLBACK TO getInstallment;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: x_msg_count := l_msg_count;
1898: x_msg_data := l_msg_data;
1899: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1900: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1901:
1902: WHEN OTHERS THEN
1903: ROLLBACK TO getInstallment;
1904: x_return_status := FND_API.G_RET_STS_ERROR;
1904: x_return_status := FND_API.G_RET_STS_ERROR;
1905: x_msg_count := l_msg_count;
1906: x_msg_data := l_msg_data;
1907: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1908: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
1909:
1910: end getInstallment;
1911:
1912:
1925:
1926: begin
1927:
1928: l_api_name := 'get_num_non_ro_instal';
1929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
1930: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_from_installment=' || p_from_installment);
1931:
1932: l_from_installment := p_from_installment;
1933: if (l_from_installment is null or l_from_installment = 0) then
1926: begin
1927:
1928: l_api_name := 'get_num_non_ro_instal';
1929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
1930: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_from_installment=' || p_from_installment);
1931:
1932: l_from_installment := p_from_installment;
1933: if (l_from_installment is null or l_from_installment = 0) then
1934: l_from_installment := 1;
1932: l_from_installment := p_from_installment;
1933: if (l_from_installment is null or l_from_installment = 0) then
1934: l_from_installment := 1;
1935: end if;
1936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_from_installment=' || l_from_installment);
1937:
1938: -- build normal rate schedule table
1939: for i in 1..p_rate_schedule.count loop
1940:
1937:
1938: -- build normal rate schedule table
1939: for i in 1..p_rate_schedule.count loop
1940:
1941: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'rate schedule row ' || i || ': from ' || p_rate_schedule(i).BEGIN_INSTALLMENT_NUMBER || ' to ' || p_rate_schedule(i).END_INSTALLMENT_NUMBER);
1942:
1943: for j in p_rate_schedule(i).BEGIN_INSTALLMENT_NUMBER..p_rate_schedule(i).END_INSTALLMENT_NUMBER loop
1944:
1945: l_local_rate_schedule(j) := p_rate_schedule(i);
1942:
1943: for j in p_rate_schedule(i).BEGIN_INSTALLMENT_NUMBER..p_rate_schedule(i).END_INSTALLMENT_NUMBER loop
1944:
1945: l_local_rate_schedule(j) := p_rate_schedule(i);
1946: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'adding local rate schedule row ' || j);
1947:
1948: end loop;
1949:
1950: end loop;
1957: end if;
1958:
1959: for i in l_from_installment..l_total_installments loop
1960:
1961: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'local rate schedule row ' || i || ': IO ' || l_local_rate_schedule(i).INTEREST_ONLY_FLAG);
1962:
1963: if (l_local_rate_schedule(i).INTEREST_ONLY_FLAG = 'N' or i = l_total_installments) then
1964: l_num_non_ro_payments := l_num_non_ro_payments + 1;
1965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_num_non_ro_payments ' || l_num_non_ro_payments);
1961: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'local rate schedule row ' || i || ': IO ' || l_local_rate_schedule(i).INTEREST_ONLY_FLAG);
1962:
1963: if (l_local_rate_schedule(i).INTEREST_ONLY_FLAG = 'N' or i = l_total_installments) then
1964: l_num_non_ro_payments := l_num_non_ro_payments + 1;
1965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_num_non_ro_payments ' || l_num_non_ro_payments);
1966: end if;
1967:
1968: end loop;
1969:
1970: if (l_num_non_ro_payments = 0) then
1971: l_num_non_ro_payments := 1;
1972: end if;
1973:
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Result num_payments ' || l_num_non_ro_payments);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - END');
1976:
1977: return l_num_non_ro_payments;
1978:
1971: l_num_non_ro_payments := 1;
1972: end if;
1973:
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Result num_payments ' || l_num_non_ro_payments);
1975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - END');
1976:
1977: return l_num_non_ro_payments;
1978:
1979: end;
2076: and phase = 'OPEN';
2077: begin
2078:
2079: l_api_name := 'getOpenInstallment';
2080: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2082: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
2083:
2084: -- Standard Start of API savepoint
2077: begin
2078:
2079: l_api_name := 'getOpenInstallment';
2080: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2082: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
2083:
2084: -- Standard Start of API savepoint
2085: SAVEPOINT getOpenInstallment;
2078:
2079: l_api_name := 'getOpenInstallment';
2080: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan id ' || p_loan_id);
2082: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - instalment# ' || p_installment_number);
2083:
2084: -- Standard Start of API savepoint
2085: SAVEPOINT getOpenInstallment;
2086:
2161: -- End of API body
2162: -- --------------------------------------------------------------------
2163:
2164: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2165: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2166:
2167: EXCEPTION
2168: WHEN FND_API.G_EXC_ERROR THEN
2169: ROLLBACK TO getOpenInstallment;
2170: x_return_status := FND_API.G_RET_STS_ERROR;
2171: x_msg_count := l_msg_count;
2172: x_msg_data := l_msg_data;
2173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2174: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2175:
2176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2177: ROLLBACK TO getOpenInstallment;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: x_msg_count := l_msg_count;
2180: x_msg_data := l_msg_data;
2181: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2182: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2183:
2184: WHEN OTHERS THEN
2185: ROLLBACK TO getOpenInstallment;
2186: x_return_status := FND_API.G_RET_STS_ERROR;
2186: x_return_status := FND_API.G_RET_STS_ERROR;
2187: x_msg_count := l_msg_count;
2188: x_msg_data := l_msg_data;
2189: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2190: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
2191:
2192: end getOpenInstallment;
2193:
2194: /*=========================================================================
2231: begin
2232:
2233: l_api_name := 'getRatesTable';
2234:
2235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2236: i := 1;
2237: l_Rates_tbl(i).begin_date := p_index_date;
2238: l_rate_date := p_index_date;
2239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_date ' || p_index_date);
2235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2236: i := 1;
2237: l_Rates_tbl(i).begin_date := p_index_date;
2238: l_rate_date := p_index_date;
2239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_date ' || p_index_date);
2240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_change_frequency ' || p_rate_change_frequency);
2241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date );
2242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_rate_id ' || p_index_rate_id );
2243:
2236: i := 1;
2237: l_Rates_tbl(i).begin_date := p_index_date;
2238: l_rate_date := p_index_date;
2239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_date ' || p_index_date);
2240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_change_frequency ' || p_rate_change_frequency);
2241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date );
2242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_rate_id ' || p_index_rate_id );
2243:
2244: WHILE l_rate_date <= p_maturity_date LOOP
2237: l_Rates_tbl(i).begin_date := p_index_date;
2238: l_rate_date := p_index_date;
2239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_date ' || p_index_date);
2240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_change_frequency ' || p_rate_change_frequency);
2241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date );
2242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_rate_id ' || p_index_rate_id );
2243:
2244: WHILE l_rate_date <= p_maturity_date LOOP
2245: l_rate_date := lns_fin_utils.getNextDate(l_rate_date, p_rate_change_frequency, 1);
2238: l_rate_date := p_index_date;
2239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_date ' || p_index_date);
2240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_rate_change_frequency ' || p_rate_change_frequency);
2241: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date );
2242: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_index_rate_id ' || p_index_rate_id );
2243:
2244: WHILE l_rate_date <= p_maturity_date LOOP
2245: l_rate_date := lns_fin_utils.getNextDate(l_rate_date, p_rate_change_frequency, 1);
2246: i := i + 1;
2244: WHILE l_rate_date <= p_maturity_date LOOP
2245: l_rate_date := lns_fin_utils.getNextDate(l_rate_date, p_rate_change_frequency, 1);
2246: i := i + 1;
2247: l_Rates_tbl(i).begin_date := l_rate_date;
2248: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_rate_date ' || l_rate_date);
2249: END LOOP;
2250: /*
2251: for k in 1..l_Rates_tbl.count loop
2252: dbms_output.put_line(l_Rates_tbl(k).begin_date);
2251: for k in 1..l_Rates_tbl.count loop
2252: dbms_output.put_line(l_Rates_tbl(k).begin_date);
2253: end loop;
2254: */
2255: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2256: return l_Rates_tbl;
2257:
2258: end getRatesTable;
2259:
2550: l_billing := false; -- switch to notify if billing is calling API
2551: l_hidden_cumul_interest := 0;
2552: l_hidden_periodic_prin := 0;
2553:
2554: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2555: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
2556: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
2557:
2558: l_loan_term := p_loan_details.loan_term;
2551: l_hidden_cumul_interest := 0;
2552: l_hidden_periodic_prin := 0;
2553:
2554: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2555: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
2556: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
2557:
2558: l_loan_term := p_loan_details.loan_term;
2559: l_amortized_term := p_loan_details.amortized_term;
2552: l_hidden_periodic_prin := 0;
2553:
2554: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2555: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
2556: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
2557:
2558: l_loan_term := p_loan_details.loan_term;
2559: l_amortized_term := p_loan_details.amortized_term;
2560: l_amortized_term_period := p_loan_details.amortized_term_period;
2582: l_extend_from_installment := p_loan_details.EXTEND_FROM_INSTALLMENT;
2583:
2584: -- get the interest rate schedule
2585: l_rate_tbl := p_rate_schedule;
2586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
2587:
2588: -- get payment schedule
2589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
2590:
2585: l_rate_tbl := p_rate_schedule;
2586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
2587:
2588: -- get payment schedule
2589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
2590:
2591: l_int_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
2592: P_LOAN_ID => l_loan_id,
2593: P_PHASE => 'TERM',
2617: ,p_prin_pay_in_arrears => l_prin_pay_in_arrears);
2618: */
2619: l_num_pay_dates := l_payment_tbl.count;
2620:
2621: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- payment schedule count = ' || l_num_pay_dates);
2622:
2623: -- get amortize principal schedule
2624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting principal schedule');
2625:
2620:
2621: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- payment schedule count = ' || l_num_pay_dates);
2622:
2623: -- get amortize principal schedule
2624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting principal schedule');
2625:
2626: l_principal_tbl := LNS_FIN_UTILS.buildPaymentSchedule(p_loan_start_date => l_loan_start_date
2627: ,p_loan_maturity_date => l_maturity_date
2628: ,p_freq_schedule_tbl => l_prin_freq_schedule_tbl);
2635: ,p_interval_type => l_prin_payment_frequency
2636: ,p_pay_in_arrears => l_prin_pay_in_arrears);
2637: */
2638: l_prin_intervals := l_principal_tbl.count;
2639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- principal schedule count = ' || l_prin_intervals);
2640:
2641: if l_loan_term <> l_amortized_term then
2642: -- get amortize maturity date
2643: l_amortized_maturity_date := LNS_FIN_UTILS.getMaturityDate(p_term => l_amortized_term
2644: ,p_term_period => l_amortized_term_period
2645: ,p_frequency => l_prin_payment_frequency
2646: ,p_start_date => l_loan_start_date);
2647: -- get amortize principal schedule
2648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting amortize principal schedule');
2649: l_principal_tbl := LNS_FIN_UTILS.buildPaymentSchedule(p_loan_start_date => l_loan_start_date
2650: ,p_loan_maturity_date => l_amortized_maturity_date
2651: ,p_freq_schedule_tbl => l_prin_freq_schedule_tbl);
2652: /*
2660: l_prin_amortized_intervals := l_principal_tbl.count;
2661: else
2662: l_prin_amortized_intervals := l_prin_intervals;
2663: end if;
2664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- amortize principal schedule count = ' || l_prin_amortized_intervals);
2665:
2666: l_prin_intervals_diff := l_prin_amortized_intervals - l_prin_intervals;
2667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- l_prin_intervals_diff = ' || l_prin_intervals_diff);
2668:
2663: end if;
2664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- amortize principal schedule count = ' || l_prin_amortized_intervals);
2665:
2666: l_prin_intervals_diff := l_prin_amortized_intervals - l_prin_intervals;
2667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- l_prin_intervals_diff = ' || l_prin_intervals_diff);
2668:
2669: if p_based_on_terms <> 'CURRENT' then
2670: open c_fund_sched_exist(l_loan_id);
2671: fetch c_fund_sched_exist into l_fund_sched_count;
2692: l_fee_basis_tbl(3).fee_basis_amount := l_original_loan_amount;
2693: l_fee_basis_tbl(4).fee_basis_name := 'TOTAL_UNDISB_AMT';
2694: l_fee_basis_tbl(4).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT - l_original_loan_amount;
2695:
2696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for 0-th installment...');
2697: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
2698: ,p_loan_id => l_loan_id
2699: ,p_installment => 0
2700: ,p_fee_basis_tbl => l_fee_basis_tbl
2704: ,x_return_status => l_return_status
2705: ,x_msg_count => l_msg_count
2706: ,x_msg_data => l_msg_data);
2707:
2708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
2709: if l_return_status <> 'S' then
2710: RAISE FND_API.G_EXC_ERROR;
2711: end if;
2712:
2709: if l_return_status <> 'S' then
2710: RAISE FND_API.G_EXC_ERROR;
2711: end if;
2712:
2713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
2714:
2715: for k in 1..l_fees_tbl.count loop
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2712:
2713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
2714:
2715: for k in 1..l_fees_tbl.count loop
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
2714:
2715: for k in 1..l_fees_tbl.count loop
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2721: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
2714:
2715: for k in 1..l_fees_tbl.count loop
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2721: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
2722: end loop;
2715: for k in 1..l_fees_tbl.count loop
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2721: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
2722: end loop;
2723: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
2716: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
2717: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
2718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2721: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
2722: end loop;
2723: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
2724:
2719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
2720: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
2721: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
2722: end loop;
2723: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
2724:
2725: if l_fee_amount > 0 then
2726: i := i + 1;
2727: l_amortization_rec.installment_number := 0;
2783: l_payment_number := l_num_pay_dates;
2784:
2785: end if;
2786:
2787: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
2788: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
2789:
2790: l_begin := 1;
2791:
2784:
2785: end if;
2786:
2787: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
2788: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
2789:
2790: l_begin := 1;
2791:
2792: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
2795: open c_get_last_payment(l_loan_id, l_last_installment_billed);
2796: fetch c_get_last_payment into l_hidden_periodic_prin, l_last_prin_installment;
2797: close c_get_last_payment;
2798:
2799: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
2800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_prin_installment = ' || l_last_prin_installment);
2801:
2802: l_begin := 0;
2803: -- find last installment with billed interest
2796: fetch c_get_last_payment into l_hidden_periodic_prin, l_last_prin_installment;
2797: close c_get_last_payment;
2798:
2799: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
2800: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_prin_installment = ' || l_last_prin_installment);
2801:
2802: l_begin := 0;
2803: -- find last installment with billed interest
2804: for j in REVERSE 1..l_last_installment_billed loop
2803: -- find last installment with billed interest
2804: for j in REVERSE 1..l_last_installment_billed loop
2805: if l_payment_tbl(j).CONTENTS <> 'PRIN' then
2806: l_begin := j;
2807: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment ' || j || ' = ' || l_payment_tbl(j).CONTENTS);
2808: exit;
2809: end if;
2810: end loop;
2811:
2811:
2812: l_begin_funded_amount := 0;
2813: if l_begin > 0 then
2814:
2815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_begin || '-----');
2817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2818:
2819: open c_get_funded_amount(l_loan_id, l_begin);
2812: l_begin_funded_amount := 0;
2813: if l_begin > 0 then
2814:
2815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_begin || '-----');
2817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2818:
2819: open c_get_funded_amount(l_loan_id, l_begin);
2820: fetch c_get_funded_amount into l_begin_funded_amount, l_prev_cap_int;
2813: if l_begin > 0 then
2814:
2815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_begin || '-----');
2817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2818:
2819: open c_get_funded_amount(l_loan_id, l_begin);
2820: fetch c_get_funded_amount into l_begin_funded_amount, l_prev_cap_int;
2821: close c_get_funded_amount;
2830:
2831: open c_get_bill_opt(l_loan_id);
2832: fetch c_get_bill_opt into l_bill_on_appr_amounts;
2833: close c_get_bill_opt;
2834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
2835: end if;
2836:
2837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2838: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
2833: close c_get_bill_opt;
2834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
2835: end if;
2836:
2837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2838: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
2839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
2840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2841:
2834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
2835: end if;
2836:
2837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2838: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
2839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
2840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2841:
2842: l_hidden_cumul_norm_int := 0;
2835: end if;
2836:
2837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2838: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
2839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
2840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2841:
2842: l_hidden_cumul_norm_int := 0;
2843: l_hidden_cumul_add_prin_int := 0;
2836:
2837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2838: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
2839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
2840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2841:
2842: l_hidden_cumul_norm_int := 0;
2843: l_hidden_cumul_add_prin_int := 0;
2844: l_hidden_cumul_add_int_int := 0;
2859: -- loop to build the amortization schedule
2860: for l_installment_number in l_begin..l_payment_number
2861: loop
2862:
2863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
2865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2866:
2867: i := i + 1;
2860: for l_installment_number in l_begin..l_payment_number
2861: loop
2862:
2863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
2865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2866:
2867: i := i + 1;
2868: l_periodic_interest := 0;
2861: loop
2862:
2863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
2865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
2866:
2867: i := i + 1;
2868: l_periodic_interest := 0;
2869: l_periodic_norm_int := 0;
2884: if l_fund_sched_count > 0 or p_based_on_terms = 'CURRENT' then
2885:
2886: if (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 = l_installment_number) then
2887:
2888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 = l_installment_number');
2889:
2890: l_principal_cumulative := 0;
2891: l_interest_cumulative := 0;
2892: l_fees_cumulative := 0;
2897: l_unpaid_principal := p_loan_details.unpaid_principal;
2898: l_unpaid_interest := p_loan_details.UNPAID_INTEREST;
2899:
2900: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2901: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2902: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2903: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2904:
2905: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2899:
2900: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2901: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2902: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2903: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2904:
2905: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2906: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2907: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2901: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2902: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2903: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2904:
2905: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2906: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2907: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2908:
2909: if l_end_funded_amount > l_begin_funded_amount then
2903: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2904:
2905: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2906: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2907: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2908:
2909: if l_end_funded_amount > l_begin_funded_amount then
2910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2911:
2906: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2907: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2908:
2909: if l_end_funded_amount > l_begin_funded_amount then
2910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2911:
2912: if l_end_funded_amount = l_begin_funded_amount_new then
2913: l_increase_amount_instal := l_installment_number;
2914: else
2919: end if;
2920: end if;
2921:
2922: elsif l_begin_funded_amount_new > l_begin_funded_amount then
2923: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new > l_begin_funded_amount');
2924: l_increase_amount_instal := l_installment_number;
2925: end if;
2926:
2927: l_detail_int_calc_flag := true;
2925: end if;
2926:
2927: l_detail_int_calc_flag := true;
2928:
2929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2930: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2932:
2933: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
2927: l_detail_int_calc_flag := true;
2928:
2929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2930: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2932:
2933: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
2934: l_begin_funded_amount := l_begin_funded_amount_new;
2935: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
2932:
2933: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
2934: l_begin_funded_amount := l_begin_funded_amount_new;
2935: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
2936: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
2937: l_remaining_balance_theory := l_begin_funded_amount - l_billed_principal;
2938: else
2939: l_remaining_balance_theory := 0;
2940: end if;
2940: end if;
2941:
2942: elsif (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 > l_installment_number) then
2943:
2944: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 > l_installment_number');
2945: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2946: open c_get_funded_amount(l_loan_id, l_installment_number);
2947: fetch c_get_funded_amount into l_end_funded_amount, l_prev_cap_int;
2948: close c_get_funded_amount;
2946: open c_get_funded_amount(l_loan_id, l_installment_number);
2947: fetch c_get_funded_amount into l_end_funded_amount, l_prev_cap_int;
2948: close c_get_funded_amount;
2949:
2950: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2952: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2953: if l_end_funded_amount > l_begin_funded_amount then
2954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2947: fetch c_get_funded_amount into l_end_funded_amount, l_prev_cap_int;
2948: close c_get_funded_amount;
2949:
2950: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2952: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2953: if l_end_funded_amount > l_begin_funded_amount then
2954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2955: l_detail_int_calc_flag := true;
2948: close c_get_funded_amount;
2949:
2950: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2952: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2953: if l_end_funded_amount > l_begin_funded_amount then
2954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2955: l_detail_int_calc_flag := true;
2956:
2950: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2952: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
2953: if l_end_funded_amount > l_begin_funded_amount then
2954: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2955: l_detail_int_calc_flag := true;
2956:
2957: if p_loan_details.REAMORTIZE_ON_FUNDING = 'REST' then
2958: l_increase_amount_instal := l_installment_number + 1;
2959: elsif p_loan_details.REAMORTIZE_ON_FUNDING = 'IMMEDIATELY' then
2960: l_increase_amount_instal := l_installment_number;
2961: end if;
2962:
2963: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
2964: l_remaining_balance_theory := l_begin_funded_amount - l_sum_periodic_principal;
2965: l_increased_amount := l_end_funded_amount - l_begin_funded_amount_new;
2966: end if;
2967: else
2969: end if;
2970:
2971: elsif (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 < l_installment_number) then
2972:
2973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
2974: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2976: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2971: elsif (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 < l_installment_number) then
2972:
2973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
2974: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2976: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2978:
2979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
2974: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
2975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2976: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2978:
2979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2980: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2975: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
2976: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
2977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2978:
2979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2980: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2982:
2983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
2978:
2979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2980: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2982:
2983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2984: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2979: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
2980: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
2981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2982:
2983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2984: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2986:
2987: if l_end_funded_amount > l_begin_funded_amount then
2981: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
2982:
2983: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
2984: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2986:
2987: if l_end_funded_amount > l_begin_funded_amount then
2988: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2989: l_detail_int_calc_flag := true;
2984: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
2985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
2986:
2987: if l_end_funded_amount > l_begin_funded_amount then
2988: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
2989: l_detail_int_calc_flag := true;
2990:
2991: if l_end_funded_amount = l_begin_funded_amount_new then
2992: l_increase_amount_instal := l_installment_number;
2997: l_increase_amount_instal := l_installment_number;
2998: end if;
2999: end if;
3000:
3001: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
3002: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
3003:
3004: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
3005: l_begin_funded_amount := l_begin_funded_amount_new;
2998: end if;
2999: end if;
3000:
3001: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
3002: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
3003:
3004: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
3005: l_begin_funded_amount := l_begin_funded_amount_new;
3006: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
3019: if p_loan_details.REAMORTIZE_ON_FUNDING = 'NO' then
3020: l_increase_amount_instal := -1;
3021: end if;
3022:
3023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3024:
3025: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
3026: l_rate_details := getRateDetails(p_installment => l_installment_number
3027: ,p_rate_tbl => l_rate_tbl);
3021: end if;
3022:
3023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3024:
3025: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
3026: l_rate_details := getRateDetails(p_installment => l_installment_number
3027: ,p_rate_tbl => l_rate_tbl);
3028:
3029: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
3025: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
3026: l_rate_details := getRateDetails(p_installment => l_installment_number
3027: ,p_rate_tbl => l_rate_tbl);
3028:
3029: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
3030: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
3031: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
3032:
3033: l_current_rate_id := l_rate_details.rate_id;
3026: l_rate_details := getRateDetails(p_installment => l_installment_number
3027: ,p_rate_tbl => l_rate_tbl);
3028:
3029: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
3030: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
3031: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
3032:
3033: l_current_rate_id := l_rate_details.rate_id;
3034: l_annualized_rate := l_rate_details.annual_rate;
3027: ,p_rate_tbl => l_rate_tbl);
3028:
3029: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
3030: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
3031: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
3032:
3033: l_current_rate_id := l_rate_details.rate_id;
3034: l_annualized_rate := l_rate_details.annual_rate;
3035: l_interest_only_flag := l_rate_details.interest_only_flag;
3033: l_current_rate_id := l_rate_details.rate_id;
3034: l_annualized_rate := l_rate_details.annual_rate;
3035: l_interest_only_flag := l_rate_details.interest_only_flag;
3036:
3037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3034: l_annualized_rate := l_rate_details.annual_rate;
3035: l_interest_only_flag := l_rate_details.interest_only_flag;
3036:
3037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3035: l_interest_only_flag := l_rate_details.interest_only_flag;
3036:
3037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3036:
3037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3037: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3038: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3046: else
3039: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
3040: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3046: else
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3041: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
3042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3046: else
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3048: end if;
3049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
3043: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
3044: if l_detail_int_calc_flag then
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3046: else
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3048: end if;
3049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
3050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
3051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
3045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
3046: else
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3048: end if;
3049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
3050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
3051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
3052:
3053: -- getting current frequency record
3046: else
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3048: end if;
3049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
3050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
3051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
3052:
3053: -- getting current frequency record
3054: LNS_FIN_UTILS.fetchPayFreqRecByDate(
3047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
3048: end if;
3049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
3050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
3051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
3052:
3053: -- getting current frequency record
3054: LNS_FIN_UTILS.fetchPayFreqRecByDate(
3055: p_FREQUENCY_SCHEDULE => l_prin_freq_schedule_tbl,
3062: p_DATE => l_payment_tbl(l_installment_number).PERIOD_DUE_DATE,
3063: x_FREQUENCY_REC => l_INT_FREQUENCY_REC);
3064: l_payment_frequency := l_INT_FREQUENCY_REC.FREQUENCY;
3065:
3066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_prin_pay_freq = ' || l_current_prin_pay_freq);
3067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_prin_pay_freq = ' || l_prev_prin_pay_freq);
3068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
3069:
3070: -- conditions to recalculate principal payment
3063: x_FREQUENCY_REC => l_INT_FREQUENCY_REC);
3064: l_payment_frequency := l_INT_FREQUENCY_REC.FREQUENCY;
3065:
3066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_prin_pay_freq = ' || l_current_prin_pay_freq);
3067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_prin_pay_freq = ' || l_prev_prin_pay_freq);
3068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
3069:
3070: -- conditions to recalculate principal payment
3071: -- 1. 1-st installment
3064: l_payment_frequency := l_INT_FREQUENCY_REC.FREQUENCY;
3065:
3066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_prin_pay_freq = ' || l_current_prin_pay_freq);
3067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_prin_pay_freq = ' || l_prev_prin_pay_freq);
3068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
3069:
3070: -- conditions to recalculate principal payment
3071: -- 1. 1-st installment
3072: -- 2. reamortization from installment = current installment
3082: (l_prev_increase_amount_instal = l_installment_number or l_increase_amount_instal = l_installment_number) OR
3083: (l_current_prin_pay_freq <> l_prev_prin_pay_freq))
3084: then
3085:
3086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- RE-calculating periodic principal payment');
3087:
3088: l_num_prin_payments := get_remain_num_prin_instal(l_payment_tbl, l_installment_number) + l_prin_intervals_diff;
3089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ': l_num_prin_payments = ' || l_num_prin_payments);
3090:
3085:
3086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- RE-calculating periodic principal payment');
3087:
3088: l_num_prin_payments := get_remain_num_prin_instal(l_payment_tbl, l_installment_number) + l_prin_intervals_diff;
3089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ': l_num_prin_payments = ' || l_num_prin_payments);
3090:
3091: l_remaining_balance := l_remaining_balance_theory + l_increased_amount1;
3092:
3093: l_hidden_periodic_prin := lns_financials.calculateEPPayment(p_loan_amount => l_remaining_balance
3094: ,p_num_intervals => l_num_prin_payments
3095: ,p_ending_balance=> l_balloon_amount
3096: ,p_pay_in_arrears=> l_prin_pay_in_arrears);
3097:
3098: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic principal payment = ' || l_hidden_periodic_prin);
3099:
3100: else
3101: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD principal payment = ' || l_hidden_periodic_prin);
3102: end if;
3097:
3098: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic principal payment = ' || l_hidden_periodic_prin);
3099:
3100: else
3101: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD principal payment = ' || l_hidden_periodic_prin);
3102: end if;
3103:
3104: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3100: else
3101: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD principal payment = ' || l_hidden_periodic_prin);
3102: end if;
3103:
3104: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3108:
3101: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD principal payment = ' || l_hidden_periodic_prin);
3102: end if;
3103:
3104: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3108:
3109: l_norm_interest := 0;
3102: end if;
3103:
3104: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3108:
3109: l_norm_interest := 0;
3110: l_add_prin_interest := 0;
3103:
3104: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3105: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3108:
3109: l_norm_interest := 0;
3110: l_add_prin_interest := 0;
3111: l_add_int_interest := 0;
3124:
3125: -- now we will calculate the interest due for this period
3126: if (p_based_on_terms = 'CURRENT' and l_detail_int_calc_flag = true) then
3127:
3128: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
3129: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => l_loan_id,
3130: p_calc_method => l_calc_method,
3131: p_period_start_date => l_payment_tbl(l_installment_number).period_begin_date,
3132: p_period_end_date => l_payment_tbl(l_installment_number).period_end_date,
3160: else
3161: l_prev_grace_end_date := l_payment_tbl(l_installment_number).period_begin_date;
3162: end if;
3163:
3164: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
3165: -- calculate additional interest on unpaid principal
3166: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
3167: p_calc_method => l_calc_method,
3168: p_period_start_date => l_add_start_date,
3181: x_add_int_details => l_add_prin_int_detail_str,
3182: x_penal_int_details => l_penal_prin_int_detail_str);
3183: l_add_prin_interest := round(l_add_prin_interest, l_precision);
3184:
3185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
3186: -- calculate additional interest on unpaid interest
3187: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
3188: p_calc_method => l_calc_method,
3189: p_period_start_date => l_add_start_date,
3209: l_penal_int_detail_str := l_penal_prin_int_detail_str || l_penal_int_int_detail_str;
3210: end if;
3211:
3212: -- calculate interest credit on early payment
3213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating early payment credit amount...');
3214: LNS_FINANCIALS.CALC_EARLY_PAY_CR(p_loan_id => l_loan_id,
3215: p_calc_method => l_calc_method,
3216: p_installment => l_installment_number,
3217: p_interest_rate => l_previous_annualized,
3268: l_norm_int_detail_str := l_norm_interest || ' (' ||
3269: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
3270: ' * Balance ' || l_wtd_balance ||
3271: ' * Rate ' || l_annualized_rate || '%)';
3272: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
3273:
3274: else
3275:
3276: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
3273:
3274: else
3275:
3276: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
3277: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest is based upon an amount of ' || l_remaining_balance_theory1);
3278:
3279: if (l_calc_method = 'SIMPLE') then
3280:
3281: -- recalculate periodic rate for each period if day counting methodolgy varies
3307: l_norm_int_detail_str := l_norm_interest || ' (' ||
3308: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
3309: ' * Balance ' || l_remaining_balance_theory1 ||
3310: ' * Rate ' || l_annualized_rate || '%)';
3311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
3312:
3313: end if;
3314:
3315: if l_hidden_cumul_norm_int > 0 then
3326: l_hidden_cumul_add_int_int := l_hidden_cumul_add_int_int + l_add_int_interest;
3327: l_hidden_cumul_interest := l_hidden_cumul_interest + l_interest;
3328: l_hidden_cumul_penal_int := l_hidden_cumul_penal_int + l_penal_interest;
3329:
3330: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_norm_interest = ' || l_norm_interest);
3331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_prin_interest = ' || l_add_prin_interest);
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3327: l_hidden_cumul_interest := l_hidden_cumul_interest + l_interest;
3328: l_hidden_cumul_penal_int := l_hidden_cumul_penal_int + l_penal_interest;
3329:
3330: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_norm_interest = ' || l_norm_interest);
3331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_prin_interest = ' || l_add_prin_interest);
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3335:
3328: l_hidden_cumul_penal_int := l_hidden_cumul_penal_int + l_penal_interest;
3329:
3330: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_norm_interest = ' || l_norm_interest);
3331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_prin_interest = ' || l_add_prin_interest);
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3335:
3336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CONTENTS = ' || l_payment_tbl(l_installment_number).CONTENTS);
3329:
3330: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_norm_interest = ' || l_norm_interest);
3331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_prin_interest = ' || l_add_prin_interest);
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3335:
3336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CONTENTS = ' || l_payment_tbl(l_installment_number).CONTENTS);
3337:
3330: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_norm_interest = ' || l_norm_interest);
3331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_prin_interest = ' || l_add_prin_interest);
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3335:
3336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CONTENTS = ' || l_payment_tbl(l_installment_number).CONTENTS);
3337:
3338: if (l_payment_tbl(l_installment_number).CONTENTS = 'PRIN') then
3332: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_interest = ' || l_add_int_interest);
3333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
3334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest = ' || l_interest);
3335:
3336: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CONTENTS = ' || l_payment_tbl(l_installment_number).CONTENTS);
3337:
3338: if (l_payment_tbl(l_installment_number).CONTENTS = 'PRIN') then
3339:
3340: l_periodic_interest := 0;
3346: l_num_prin_payments := get_remain_num_prin_instal(l_payment_tbl, l_installment_number);
3347:
3348: if (l_remaining_balance_theory + l_increased_amount1) < l_hidden_periodic_prin then
3349: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3351: else
3352: if (l_num_prin_payments = 1) then
3353: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3349: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3351: else
3352: if (l_num_prin_payments = 1) then
3353: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3356: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3357: l_periodic_principal := l_unbilled_principal;
3350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3351: else
3352: if (l_num_prin_payments = 1) then
3353: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3356: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3357: l_periodic_principal := l_unbilled_principal;
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3351: else
3352: if (l_num_prin_payments = 1) then
3353: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3356: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3357: l_periodic_principal := l_unbilled_principal;
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3359: else
3354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3356: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3357: l_periodic_principal := l_unbilled_principal;
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3359: else
3360: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3362: end if;
3357: l_periodic_principal := l_unbilled_principal;
3358: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3359: else
3360: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3362: end if;
3363: else
3364: l_periodic_principal := l_hidden_periodic_prin;
3365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_hidden_periodic_prin');
3361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3362: end if;
3363: else
3364: l_periodic_principal := l_hidden_periodic_prin;
3365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_hidden_periodic_prin');
3366: end if;
3367: end if;
3368:
3369: if l_hidden_cumul_interest > 0 then
3402: l_num_prin_payments := get_remain_num_prin_instal(l_payment_tbl, l_installment_number);
3403:
3404: if (l_remaining_balance_theory + l_increased_amount1) < l_hidden_periodic_prin then
3405: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3407: else
3408: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3404: if (l_remaining_balance_theory + l_increased_amount1) < l_hidden_periodic_prin then
3405: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3407: else
3408: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3411: if (l_num_prin_payments = 1) then
3412: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3405: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3407: else
3408: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3411: if (l_num_prin_payments = 1) then
3412: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3413: l_periodic_principal := l_unbilled_principal;
3406: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3407: else
3408: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
3409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
3410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3411: if (l_num_prin_payments = 1) then
3412: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3413: l_periodic_principal := l_unbilled_principal;
3414: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3411: if (l_num_prin_payments = 1) then
3412: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
3413: l_periodic_principal := l_unbilled_principal;
3414: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3415: else
3416: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3418: end if;
3413: l_periodic_principal := l_unbilled_principal;
3414: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
3415: else
3416: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
3417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3418: end if;
3419: else
3420: l_periodic_principal := l_hidden_periodic_prin;
3421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_hidden_periodic_prin');
3417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
3418: end if;
3419: else
3420: l_periodic_principal := l_hidden_periodic_prin;
3421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_hidden_periodic_prin');
3422: end if;
3423: end if;
3424:
3425: end if;
3423: end if;
3424:
3425: end if;
3426:
3427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3424:
3425: end if;
3426:
3427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3425: end if;
3426:
3427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3433:
3426:
3427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3433:
3434: -- round int and prin and calc total
3427: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_norm_int = ' || l_hidden_cumul_norm_int);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3433:
3434: -- round int and prin and calc total
3435: l_periodic_principal := round(l_periodic_principal, l_precision);
3428: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_prin_int = ' || l_hidden_cumul_add_prin_int);
3429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_add_int_int = ' || l_hidden_cumul_add_int_int);
3430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_interest = ' || l_hidden_cumul_interest);
3431: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_cumul_penal_int = ' || l_hidden_cumul_penal_int);
3432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_hidden_periodic_prin = ' || l_hidden_periodic_prin);
3433:
3434: -- round int and prin and calc total
3435: l_periodic_principal := round(l_periodic_principal, l_precision);
3436: l_periodic_interest := round(l_periodic_interest, l_precision);
3435: l_periodic_principal := round(l_periodic_principal, l_precision);
3436: l_periodic_interest := round(l_periodic_interest, l_precision);
3437: l_periodic_payment := l_periodic_principal + l_periodic_interest;
3438:
3439: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
3440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest = ' || l_periodic_interest);
3441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': total = ' || l_periodic_payment);
3442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3443:
3436: l_periodic_interest := round(l_periodic_interest, l_precision);
3437: l_periodic_payment := l_periodic_principal + l_periodic_interest;
3438:
3439: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
3440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest = ' || l_periodic_interest);
3441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': total = ' || l_periodic_payment);
3442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3443:
3444: -- calculate balances and total payment
3437: l_periodic_payment := l_periodic_principal + l_periodic_interest;
3438:
3439: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
3440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest = ' || l_periodic_interest);
3441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': total = ' || l_periodic_payment);
3442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3443:
3444: -- calculate balances and total payment
3445: l_begin_balance := l_remaining_balance_theory;
3438:
3439: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
3440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest = ' || l_periodic_interest);
3441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': total = ' || l_periodic_payment);
3442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
3443:
3444: -- calculate balances and total payment
3445: l_begin_balance := l_remaining_balance_theory;
3446: l_end_balance := l_remaining_balance_theory - l_periodic_principal + l_increased_amount1;
3576: l_fee_basis_tbl(8).fee_basis_amount := l_amortization_rec.UNPAID_INT;
3577: l_fee_basis_tbl(9).fee_basis_name := 'CURR_LOAN';
3578: l_fee_basis_tbl(9).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT;
3579:
3580: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for this installment...');
3581: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
3582: ,p_loan_id => l_loan_id
3583: ,p_installment => l_installment_number
3584: ,p_fee_basis_tbl => l_fee_basis_tbl
3588: ,x_return_status => l_return_status
3589: ,x_msg_count => l_msg_count
3590: ,x_msg_data => l_msg_data);
3591:
3592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
3593: if l_return_status <> 'S' then
3594: RAISE FND_API.G_EXC_ERROR;
3595: end if;
3596:
3593: if l_return_status <> 'S' then
3594: RAISE FND_API.G_EXC_ERROR;
3595: end if;
3596:
3597: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
3598:
3599: for k in 1..l_fees_tbl.count loop
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3596:
3597: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
3598:
3599: for k in 1..l_fees_tbl.count loop
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
3603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
3604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
3597: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
3598:
3599: for k in 1..l_fees_tbl.count loop
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
3603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
3604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
3605: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
3598:
3599: for k in 1..l_fees_tbl.count loop
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
3603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
3604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
3605: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
3606: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
3599: for k in 1..l_fees_tbl.count loop
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
3603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
3604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
3605: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
3606: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
3607: else
3600: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
3601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
3602: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
3603: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
3604: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
3605: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
3606: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
3607: else
3608: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
3607: else
3608: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
3609: end if;
3610: end loop;
3611: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for this installment = ' || l_fee_amount);
3612:
3613: l_amortization_rec.fee_amount := l_fee_amount;
3614: l_amortization_rec.other_amount := l_other_amount;
3615: l_amortization_rec.total := l_amortization_rec.total + l_amortization_rec.fee_amount + l_amortization_rec.other_amount;
3636:
3637: -- add the record to the amortization table
3638: l_amortization_tbl(i) := l_amortization_rec;
3639:
3640: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3637: -- add the record to the amortization table
3638: l_amortization_tbl(i) := l_amortization_rec;
3639:
3640: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3638: l_amortization_tbl(i) := l_amortization_rec;
3639:
3640: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3639:
3640: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3640: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3644: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3646: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3647: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3648: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3649: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3650: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3657: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3658: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3659: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3660: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3661: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3662: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3663: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3664: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3665: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3667: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3668: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3669: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3677: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3677: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3678:
3671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3677: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3678:
3679: l_remaining_balance_theory := l_end_balance;
3672: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3677: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3678:
3679: l_remaining_balance_theory := l_end_balance;
3680: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
3673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
3674: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
3675: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
3676: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
3677: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
3678:
3679: l_remaining_balance_theory := l_end_balance;
3680: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
3681:
3684: l_prev_prin_pay_freq := l_current_prin_pay_freq;
3685:
3686: end loop;
3687:
3688: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT IS ' || l_amortization_tbl.count);
3689: x_loan_amort_tbl := l_amortization_tbl;
3690:
3691: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3692:
3687:
3688: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT IS ' || l_amortization_tbl.count);
3689: x_loan_amort_tbl := l_amortization_tbl;
3690:
3691: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3692:
3693: Exception
3694: WHEN FND_API.G_EXC_ERROR THEN
3695: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3691: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
3692:
3693: Exception
3694: WHEN FND_API.G_EXC_ERROR THEN
3695: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3696:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
3699:
3694: WHEN FND_API.G_EXC_ERROR THEN
3695: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3696:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
3699:
3700: WHEN OTHERS THEN
3701: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3702:
3697: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3698: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
3699:
3700: WHEN OTHERS THEN
3701: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
3702:
3703: end amortizeSIPLoan;
3704:
3705:
3939: l_rate_to_calculate := 0;
3940: l_billing := false; -- switch to notify if billing is calling API
3941: l_api_name := 'amortizeEPLoan MAIN';
3942:
3943: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
3944: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
3945: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
3946:
3947: l_loan_term := p_loan_details.loan_term;
3940: l_billing := false; -- switch to notify if billing is calling API
3941: l_api_name := 'amortizeEPLoan MAIN';
3942:
3943: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
3944: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
3945: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
3946:
3947: l_loan_term := p_loan_details.loan_term;
3948: l_amortized_term := p_loan_details.amortized_term;
3941: l_api_name := 'amortizeEPLoan MAIN';
3942:
3943: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
3944: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
3945: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
3946:
3947: l_loan_term := p_loan_details.loan_term;
3948: l_amortized_term := p_loan_details.amortized_term;
3949: l_amortized_term_period := p_loan_details.amortized_term_period;
3969: l_orig_num_install := p_loan_details.ORIG_NUMBER_INSTALLMENTS;
3970:
3971: -- get the interest rate schedule
3972: l_rate_tbl := p_rate_schedule;
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
3974:
3975: -- get payment schedule
3976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
3977:
3972: l_rate_tbl := p_rate_schedule;
3973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
3974:
3975: -- get payment schedule
3976: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
3977:
3978: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
3979: P_LOAN_ID => l_loan_id,
3980: P_PHASE => 'TERM',
3992: ,p_interval_type => l_payment_frequency
3993: ,p_pay_in_arrears => l_pay_in_arrears);
3994: */
3995: l_num_pay_dates := l_payment_tbl.count;
3996: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- payment schedule count = ' || l_num_pay_dates);
3997:
3998: if l_loan_term <> l_amortized_term then
3999:
4000: -- get amortize maturity date
4002: ,p_term_period => l_amortized_term_period
4003: ,p_frequency => l_payment_frequency
4004: ,p_start_date => l_loan_start_date);
4005: -- get amortize payment schedule
4006: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting amortize payment schedule');
4007:
4008: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
4009: P_LOAN_ID => l_loan_id,
4010: P_PHASE => 'TERM',
4025: l_amortization_intervals := l_amortized_payment_tbl.count;
4026: else
4027: l_amortization_intervals := l_num_pay_dates;
4028: end if;
4029: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- amortize payment schedule count: ' || l_amortization_intervals);
4030:
4031: l_intervals_diff := l_amortization_intervals - l_num_pay_dates;
4032:
4033: if p_based_on_terms <> 'CURRENT' then
4056: l_fee_basis_tbl(3).fee_basis_amount := l_original_loan_amount;
4057: l_fee_basis_tbl(4).fee_basis_name := 'TOTAL_UNDISB_AMT';
4058: l_fee_basis_tbl(4).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT - l_original_loan_amount;
4059:
4060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for 0-th installment...');
4061: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
4062: ,p_loan_id => l_loan_id
4063: ,p_installment => 0
4064: ,p_fee_basis_tbl => l_fee_basis_tbl
4068: ,x_return_status => l_return_status
4069: ,x_msg_count => l_msg_count
4070: ,x_msg_data => l_msg_data);
4071:
4072: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
4073: if l_return_status <> 'S' then
4074: RAISE FND_API.G_EXC_ERROR;
4075: end if;
4076:
4073: if l_return_status <> 'S' then
4074: RAISE FND_API.G_EXC_ERROR;
4075: end if;
4076:
4077: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4078:
4079: for k in 1..l_fees_tbl.count loop
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4076:
4077: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4078:
4079: for k in 1..l_fees_tbl.count loop
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4077: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4078:
4079: for k in 1..l_fees_tbl.count loop
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4085: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4078:
4079: for k in 1..l_fees_tbl.count loop
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4085: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4086: end loop;
4079: for k in 1..l_fees_tbl.count loop
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4085: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4086: end loop;
4087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
4080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4081: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4085: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4086: end loop;
4087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
4088:
4083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4085: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4086: end loop;
4087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
4088:
4089:
4090: if l_fee_amount > 0 then
4091: i := i + 1;
4148: l_payment_number := l_num_pay_dates;
4149:
4150: end if;
4151:
4152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
4153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4154:
4155: l_begin := 1;
4156:
4149:
4150: end if;
4151:
4152: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
4153: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4154:
4155: l_begin := 1;
4156:
4157: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
4155: l_begin := 1;
4156:
4157: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
4158:
4159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
4161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4162:
4163: l_periodic_principal := null;
4156:
4157: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
4158:
4159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
4161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4162:
4163: l_periodic_principal := null;
4164: open c_get_last_payment(l_loan_id, l_last_installment_billed);
4157: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
4158:
4159: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
4161: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4162:
4163: l_periodic_principal := null;
4164: open c_get_last_payment(l_loan_id, l_last_installment_billed);
4165: fetch c_get_last_payment into l_periodic_principal, l_begin_funded_amount, l_prev_cap_int;
4164: open c_get_last_payment(l_loan_id, l_last_installment_billed);
4165: fetch c_get_last_payment into l_periodic_principal, l_begin_funded_amount, l_prev_cap_int;
4166: close c_get_last_payment;
4167:
4168: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic principal = ' || l_periodic_principal);
4169: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4171:
4172: if l_periodic_principal is not null then
4165: fetch c_get_last_payment into l_periodic_principal, l_begin_funded_amount, l_prev_cap_int;
4166: close c_get_last_payment;
4167:
4168: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic principal = ' || l_periodic_principal);
4169: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4171:
4172: if l_periodic_principal is not null then
4173:
4166: close c_get_last_payment;
4167:
4168: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic principal = ' || l_periodic_principal);
4169: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4170: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4171:
4172: if l_periodic_principal is not null then
4173:
4174: l_prev_periodic_principal := l_periodic_principal;
4194:
4195: open c_get_bill_opt(l_loan_id);
4196: fetch c_get_bill_opt into l_bill_on_appr_amounts;
4197: close c_get_bill_opt;
4198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
4199: end if;
4200:
4201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
4202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
4197: close c_get_bill_opt;
4198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
4199: end if;
4200:
4201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
4202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
4203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4204:
4205: l_increase_amount_instal := -1;
4198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
4199: end if;
4200:
4201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
4202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
4203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4204:
4205: l_increase_amount_instal := -1;
4206:
4199: end if;
4200:
4201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
4202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
4203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
4204:
4205: l_increase_amount_instal := -1;
4206:
4207: if l_begin = 1 then
4217: -- loop to build the amortization schedule
4218: for l_installment_number in l_begin..l_payment_number
4219: loop
4220:
4221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || '-----');
4223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4224:
4225: i := i + 1;
4218: for l_installment_number in l_begin..l_payment_number
4219: loop
4220:
4221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || '-----');
4223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4224:
4225: i := i + 1;
4226: l_periodic_interest := 0;
4219: loop
4220:
4221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || '-----');
4223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4224:
4225: i := i + 1;
4226: l_periodic_interest := 0;
4227: -- l_periodic_principal := 0;
4238: if l_fund_sched_count > 0 or p_based_on_terms = 'CURRENT' then
4239:
4240: if (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 = l_installment_number) then
4241:
4242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 = l_installment_number');
4243:
4244: l_principal_cumulative := 0;
4245: l_interest_cumulative := 0;
4246: l_fees_cumulative := 0;
4251: l_unpaid_principal := p_loan_details.unpaid_principal;
4252: l_unpaid_interest := p_loan_details.UNPAID_INTEREST;
4253:
4254: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
4255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4256: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4258:
4259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4253:
4254: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
4255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4256: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4258:
4259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4260: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4256: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4258:
4259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4260: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4262:
4263: if l_end_funded_amount > l_begin_funded_amount_new then
4257: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4258:
4259: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4260: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4262:
4263: if l_end_funded_amount > l_begin_funded_amount_new then
4264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
4265:
4260: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4261: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4262:
4263: if l_end_funded_amount > l_begin_funded_amount_new then
4264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
4265:
4266: if l_end_funded_amount = l_begin_funded_amount_new then
4267: l_increase_amount_instal := l_installment_number;
4268: else
4273: end if;
4274: end if;
4275:
4276: elsif l_begin_funded_amount_new > l_begin_funded_amount then
4277: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new > l_begin_funded_amount');
4278: l_increase_amount_instal := l_installment_number;
4279: end if;
4280:
4281: l_detail_int_calc_flag := true;
4279: end if;
4280:
4281: l_detail_int_calc_flag := true;
4282:
4283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4284: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4286:
4287: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
4281: l_detail_int_calc_flag := true;
4282:
4283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4284: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4285: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4286:
4287: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
4288: l_begin_funded_amount := l_begin_funded_amount_new;
4289: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
4286:
4287: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
4288: l_begin_funded_amount := l_begin_funded_amount_new;
4289: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
4290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
4291: l_remaining_balance_theory := l_begin_funded_amount - l_billed_principal;
4292: else
4293: l_remaining_balance_theory := 0;
4294: end if;
4294: end if;
4295:
4296: else
4297:
4298: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
4299: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
4300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4301: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4296: else
4297:
4298: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
4299: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
4300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4301: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4303:
4304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4298: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
4299: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
4300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4301: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4303:
4304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4305: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4300: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
4301: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
4302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4303:
4304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4305: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4307:
4308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
4303:
4304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4305: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4307:
4308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4309: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
4305: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
4306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4307:
4308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4309: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4311:
4312: if l_end_funded_amount > l_begin_funded_amount then
4306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
4307:
4308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
4309: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4311:
4312: if l_end_funded_amount > l_begin_funded_amount then
4313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
4314: l_detail_int_calc_flag := true;
4309: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
4310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
4311:
4312: if l_end_funded_amount > l_begin_funded_amount then
4313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
4314: l_detail_int_calc_flag := true;
4315:
4316: if l_end_funded_amount = l_begin_funded_amount_new then
4317: l_increase_amount_instal := l_installment_number;
4322: l_increase_amount_instal := l_installment_number;
4323: end if;
4324: end if;
4325:
4326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
4327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
4328:
4329: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
4330: l_begin_funded_amount := l_begin_funded_amount_new;
4323: end if;
4324: end if;
4325:
4326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
4327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
4328:
4329: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
4330: l_begin_funded_amount := l_begin_funded_amount_new;
4331: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
4344: if p_loan_details.REAMORTIZE_ON_FUNDING = 'NO' then
4345: l_increase_amount_instal := -1;
4346: end if;
4347:
4348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
4349:
4350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
4351: l_rate_details := getRateDetails(p_installment => l_installment_number
4352: ,p_rate_tbl => l_rate_tbl);
4346: end if;
4347:
4348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
4349:
4350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
4351: l_rate_details := getRateDetails(p_installment => l_installment_number
4352: ,p_rate_tbl => l_rate_tbl);
4353:
4354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
4350: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
4351: l_rate_details := getRateDetails(p_installment => l_installment_number
4352: ,p_rate_tbl => l_rate_tbl);
4353:
4354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
4355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
4356: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
4357:
4358: l_current_rate_id := l_rate_details.rate_id;
4351: l_rate_details := getRateDetails(p_installment => l_installment_number
4352: ,p_rate_tbl => l_rate_tbl);
4353:
4354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
4355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
4356: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
4357:
4358: l_current_rate_id := l_rate_details.rate_id;
4359: l_annualized_rate := l_rate_details.annual_rate;
4352: ,p_rate_tbl => l_rate_tbl);
4353:
4354: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
4355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
4356: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
4357:
4358: l_current_rate_id := l_rate_details.rate_id;
4359: l_annualized_rate := l_rate_details.annual_rate;
4360: l_interest_only_flag := l_rate_details.interest_only_flag;
4358: l_current_rate_id := l_rate_details.rate_id;
4359: l_annualized_rate := l_rate_details.annual_rate;
4360: l_interest_only_flag := l_rate_details.interest_only_flag;
4361:
4362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4359: l_annualized_rate := l_rate_details.annual_rate;
4360: l_interest_only_flag := l_rate_details.interest_only_flag;
4361:
4362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4360: l_interest_only_flag := l_rate_details.interest_only_flag;
4361:
4362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4361:
4362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4372: else
4365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
4366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4372: else
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
4368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4372: else
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4374: end if;
4375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
4369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
4370: if l_detail_int_calc_flag then
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4372: else
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4374: end if;
4375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
4376: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
4377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
4371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
4372: else
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4374: end if;
4375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
4376: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
4377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
4378:
4379: -- getting current frequency record
4372: else
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4374: end if;
4375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
4376: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
4377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
4378:
4379: -- getting current frequency record
4380: LNS_FIN_UTILS.fetchPayFreqRecByDate(
4373: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
4374: end if;
4375: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
4376: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
4377: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
4378:
4379: -- getting current frequency record
4380: LNS_FIN_UTILS.fetchPayFreqRecByDate(
4381: p_FREQUENCY_SCHEDULE => l_freq_schedule_tbl,
4382: p_DATE => l_payment_tbl(l_installment_number).PERIOD_DUE_DATE,
4383: x_FREQUENCY_REC => l_FREQUENCY_REC);
4384: l_payment_frequency := l_FREQUENCY_REC.FREQUENCY;
4385:
4386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_payment_frequency = ' || l_prev_payment_frequency);
4387: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
4388:
4389: -- conditions to recalculate principal payment
4390: -- 1. 1-st installment
4383: x_FREQUENCY_REC => l_FREQUENCY_REC);
4384: l_payment_frequency := l_FREQUENCY_REC.FREQUENCY;
4385:
4386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_payment_frequency = ' || l_prev_payment_frequency);
4387: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
4388:
4389: -- conditions to recalculate principal payment
4390: -- 1. 1-st installment
4391: -- 2. reamortization from installment = current installment
4400: (l_prev_increase_amount_instal = l_installment_number or l_increase_amount_instal = l_installment_number) OR
4401: (l_payment_frequency <> l_prev_payment_frequency))
4402: then
4403:
4404: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- RE-calculating periodic principal payment');
4405:
4406: -- fix for bug 6599682: EQUALLY SPREAD PRINCIPAL FROM IO PERIODS FOR EPRP LOANS
4407: l_non_ro_intervals := get_num_non_ro_instal(l_rate_tbl, l_installment_number, l_orig_num_install) + l_intervals_diff;
4408:
4405:
4406: -- fix for bug 6599682: EQUALLY SPREAD PRINCIPAL FROM IO PERIODS FOR EPRP LOANS
4407: l_non_ro_intervals := get_num_non_ro_instal(l_rate_tbl, l_installment_number, l_orig_num_install) + l_intervals_diff;
4408:
4409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ': l_non_ro_intervals = ' || l_non_ro_intervals);
4410: l_remaining_balance := l_remaining_balance_theory + l_increased_amount1;
4411:
4412: l_periodic_principal := lns_financials.calculateEPPayment(p_loan_amount => l_remaining_balance
4413: ,p_num_intervals => l_non_ro_intervals
4415: ,p_ending_balance=> l_balloon_amount
4416: ,p_pay_in_arrears=> l_pay_in_arrears);
4417: l_prev_periodic_principal := l_periodic_principal;
4418:
4419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic principal = ' || l_periodic_principal);
4420:
4421: else
4422: l_periodic_principal := l_prev_periodic_principal;
4423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD periodic principal = ' || l_periodic_principal);
4419: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic principal = ' || l_periodic_principal);
4420:
4421: else
4422: l_periodic_principal := l_prev_periodic_principal;
4423: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD periodic principal = ' || l_periodic_principal);
4424: end if;
4425:
4426: l_norm_interest := 0;
4427: l_add_prin_interest := 0;
4440:
4441: -- now we will caculate the interest due for this period
4442: if (p_based_on_terms = 'CURRENT' and l_detail_int_calc_flag = true) then
4443:
4444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
4445: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => l_loan_id,
4446: p_calc_method => l_calc_method,
4447: p_period_start_date => l_payment_tbl(l_installment_number).period_begin_date,
4448: p_period_end_date => l_payment_tbl(l_installment_number).period_end_date,
4476: else
4477: l_prev_grace_end_date := l_payment_tbl(l_installment_number).period_begin_date;
4478: end if;
4479:
4480: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
4481: -- calculate additional interest on unpaid principal
4482: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
4483: p_calc_method => l_calc_method,
4484: p_period_start_date => l_add_start_date,
4497: x_add_int_details => l_add_prin_int_detail_str,
4498: x_penal_int_details => l_penal_prin_int_detail_str);
4499: l_add_prin_interest := round(l_add_prin_interest, l_precision);
4500:
4501: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
4502: -- calculate additional interest on unpaid interest
4503: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
4504: p_calc_method => l_calc_method,
4505: p_period_start_date => l_add_start_date,
4525: l_penal_int_detail_str := l_penal_prin_int_detail_str || l_penal_int_int_detail_str;
4526: end if;
4527:
4528: -- calculate interest credit on early payment
4529: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating early payment credit amount...');
4530: LNS_FINANCIALS.CALC_EARLY_PAY_CR(p_loan_id => l_loan_id,
4531: p_calc_method => l_calc_method,
4532: p_installment => l_installment_number,
4533: p_interest_rate => l_previous_annualized,
4583: l_norm_int_detail_str := l_norm_interest || ' (' ||
4584: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
4585: ' * Balance ' || l_wtd_balance ||
4586: ' * Rate ' || l_annualized_rate || '%)';
4587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
4588:
4589: else
4590:
4591: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
4588:
4589: else
4590:
4591: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
4592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest is based upon an amount of ' || l_remaining_balance_theory1);
4593:
4594: if (l_calc_method = 'SIMPLE') then
4595:
4596: l_periodic_rate := lns_financials.getPeriodicRate(
4621: l_norm_int_detail_str := l_norm_interest || ' (' ||
4622: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
4623: ' * Balance ' || l_remaining_balance_theory1 ||
4624: ' * Rate ' || l_annualized_rate || '%)';
4625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
4626:
4627: end if;
4628:
4629: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
4628:
4629: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
4630: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
4631:
4632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
4633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
4634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
4635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
4636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
4629: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
4630: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
4631:
4632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
4633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
4634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
4635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
4636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
4637:
4630: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
4631:
4632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
4633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
4634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
4635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
4636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
4637:
4638: if l_interest_only_flag <> 'Y' or l_intervals_remaining = 1 then
4631:
4632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
4633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
4634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
4635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
4636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
4637:
4638: if l_interest_only_flag <> 'Y' or l_intervals_remaining = 1 then
4639:
4632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
4633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
4634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
4635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
4636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
4637:
4638: if l_interest_only_flag <> 'Y' or l_intervals_remaining = 1 then
4639:
4640: if (l_remaining_balance_theory + l_increased_amount1) < l_periodic_principal or l_intervals_remaining = 1 then
4638: if l_interest_only_flag <> 'Y' or l_intervals_remaining = 1 then
4639:
4640: if (l_remaining_balance_theory + l_increased_amount1) < l_periodic_principal or l_intervals_remaining = 1 then
4641: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
4642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
4643: end if;
4644:
4645: else
4646: -- we are in an interest only period
4650:
4651: l_periodic_principal := round(l_periodic_principal, l_precision);
4652: l_periodic_payment := l_periodic_principal + l_periodic_interest;
4653:
4654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
4655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
4656:
4657: -- calculate balances
4658: l_begin_balance := l_remaining_balance_theory;
4651: l_periodic_principal := round(l_periodic_principal, l_precision);
4652: l_periodic_payment := l_periodic_principal + l_periodic_interest;
4653:
4654: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
4655: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
4656:
4657: -- calculate balances
4658: l_begin_balance := l_remaining_balance_theory;
4659: l_end_balance := l_remaining_balance_theory - l_periodic_principal + l_increased_amount1;
4789: l_fee_basis_tbl(8).fee_basis_amount := l_amortization_rec.UNPAID_INT;
4790: l_fee_basis_tbl(9).fee_basis_name := 'CURR_LOAN';
4791: l_fee_basis_tbl(9).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT;
4792:
4793: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for this installment...');
4794: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
4795: ,p_loan_id => l_loan_id
4796: ,p_installment => l_installment_number
4797: ,p_fee_basis_tbl => l_fee_basis_tbl
4801: ,x_return_status => l_return_status
4802: ,x_msg_count => l_msg_count
4803: ,x_msg_data => l_msg_data);
4804:
4805: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
4806: if l_return_status <> 'S' then
4807: RAISE FND_API.G_EXC_ERROR;
4808: end if;
4809:
4806: if l_return_status <> 'S' then
4807: RAISE FND_API.G_EXC_ERROR;
4808: end if;
4809:
4810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4811:
4812: for k in 1..l_fees_tbl.count loop
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4809:
4810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4811:
4812: for k in 1..l_fees_tbl.count loop
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
4811:
4812: for k in 1..l_fees_tbl.count loop
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4818: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
4811:
4812: for k in 1..l_fees_tbl.count loop
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4818: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
4819: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
4812: for k in 1..l_fees_tbl.count loop
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4818: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
4819: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
4820: else
4813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
4814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
4815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
4816: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
4817: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
4818: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
4819: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
4820: else
4821: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
4848:
4849: -- add the record to the amortization table
4850: l_amortization_tbl(i) := l_amortization_rec;
4851:
4852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4849: -- add the record to the amortization table
4850: l_amortization_tbl(i) := l_amortization_rec;
4851:
4852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4850: l_amortization_tbl(i) := l_amortization_rec;
4851:
4852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4851:
4852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4852: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4856: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4865: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4869: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4870: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4871: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4872: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4873: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4875: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4876: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4877: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4878: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4881: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4882: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4890:
4883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4890:
4891: l_remaining_balance_theory := l_end_balance;
4884: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4890:
4891: l_remaining_balance_theory := l_end_balance;
4892: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
4885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
4886: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
4887: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
4888: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
4889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
4890:
4891: l_remaining_balance_theory := l_end_balance;
4892: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
4893:
4897: l_prev_payment_frequency := l_payment_frequency;
4898:
4899: end loop;
4900:
4901: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
4902: x_loan_amort_tbl := l_amortization_tbl;
4903:
4904: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4905:
4900:
4901: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
4902: x_loan_amort_tbl := l_amortization_tbl;
4903:
4904: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4905:
4906: Exception
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4904: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
4905:
4906: Exception
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4909:
4910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4911: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
4912:
4907: WHEN FND_API.G_EXC_ERROR THEN
4908: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4909:
4910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4911: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
4912:
4913: WHEN OTHERS THEN
4914: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4915:
4910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4911: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
4912:
4913: WHEN OTHERS THEN
4914: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
4915:
4916: end amortizeEPLoan;
4917:
4918:
5188: l_billing := false; -- switch to notify if billing is calling API
5189: l_sum_periodic_principal := 0;
5190: l_api_name := 'amortizeLoan MAIN';
5191:
5192: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
5194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
5195:
5196: l_loan_term := p_loan_details.loan_term;
5189: l_sum_periodic_principal := 0;
5190: l_api_name := 'amortizeLoan MAIN';
5191:
5192: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
5194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
5195:
5196: l_loan_term := p_loan_details.loan_term;
5197: l_amortized_amount := p_loan_details.amortized_amount;
5190: l_api_name := 'amortizeLoan MAIN';
5191:
5192: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
5193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - based on TERMS====> ' || p_based_on_terms);
5194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_installment_number = ' || p_installment_number);
5195:
5196: l_loan_term := p_loan_details.loan_term;
5197: l_amortized_amount := p_loan_details.amortized_amount;
5198: l_amortized_term := p_loan_details.amortized_term;
5227: l_extend_from_installment := p_loan_details.EXTEND_FROM_INSTALLMENT;
5228:
5229: -- get the interest rate schedule
5230: l_rate_tbl := p_rate_schedule;
5231: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
5232:
5233: -- get payment schedule
5234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
5235:
5230: l_rate_tbl := p_rate_schedule;
5231: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
5232:
5233: -- get payment schedule
5234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
5235:
5236: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
5237: P_LOAN_ID => l_loan_id,
5238: P_PHASE => 'TERM',
5250: ,p_interval_type => l_payment_frequency
5251: ,p_pay_in_arrears => l_pay_in_arrears);
5252: */
5253: l_num_pay_dates := l_payment_tbl.count;
5254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- payment schedule count = ' || l_num_pay_dates);
5255:
5256: if l_loan_term <> l_amortized_term then
5257:
5258: -- get amortize maturity date
5260: ,p_term_period => l_amortized_term_period
5261: ,p_frequency => l_payment_frequency
5262: ,p_start_date => l_loan_start_date);
5263: -- get amortize payment schedule
5264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting amortize payment schedule');
5265:
5266: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
5267: P_LOAN_ID => l_loan_id,
5268: P_PHASE => 'TERM',
5284: else
5285: l_amortization_intervals := l_num_pay_dates;
5286: end if;
5287: l_amortization_intervals_orig := l_amortization_intervals;
5288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- amortize payment schedule count = ' || l_amortization_intervals);
5289:
5290: if p_based_on_terms <> 'CURRENT' then
5291: open c_fund_sched_exist(l_loan_id);
5292: fetch c_fund_sched_exist into l_fund_sched_count;
5313: l_fee_basis_tbl(3).fee_basis_amount := l_original_loan_amount;
5314: l_fee_basis_tbl(4).fee_basis_name := 'TOTAL_UNDISB_AMT';
5315: l_fee_basis_tbl(4).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT - l_original_loan_amount;
5316:
5317: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for 0-th installment...');
5318: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
5319: ,p_loan_id => l_loan_id
5320: ,p_installment => 0
5321: ,p_fee_basis_tbl => l_fee_basis_tbl
5325: ,x_return_status => l_return_status
5326: ,x_msg_count => l_msg_count
5327: ,x_msg_data => l_msg_data);
5328:
5329: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
5330: if l_return_status <> 'S' then
5331: RAISE FND_API.G_EXC_ERROR;
5332: end if;
5333:
5330: if l_return_status <> 'S' then
5331: RAISE FND_API.G_EXC_ERROR;
5332: end if;
5333:
5334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
5335:
5336: for k in 1..l_fees_tbl.count loop
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5333:
5334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
5335:
5336: for k in 1..l_fees_tbl.count loop
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5334: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
5335:
5336: for k in 1..l_fees_tbl.count loop
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5342: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
5335:
5336: for k in 1..l_fees_tbl.count loop
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5342: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
5343: end loop;
5336: for k in 1..l_fees_tbl.count loop
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5342: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
5343: end loop;
5344: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
5337: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
5338: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
5339: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5342: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
5343: end loop;
5344: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
5345:
5340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
5341: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
5342: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
5343: end loop;
5344: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
5345:
5346: if l_fee_amount > 0 then
5347: i := i + 1;
5348: l_amortization_rec.installment_number := 0;
5405: l_payment_number := l_num_pay_dates;
5406:
5407: end if;
5408:
5409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
5410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5411:
5412: l_begin := 1;
5413:
5406:
5407: end if;
5408:
5409: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_number = ' || l_payment_number);
5410: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5411:
5412: l_begin := 1;
5413:
5414: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
5412: l_begin := 1;
5413:
5414: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
5415:
5416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
5418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5419:
5420: l_periodic_payment := null;
5413:
5414: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
5415:
5416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
5418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5419:
5420: l_periodic_payment := null;
5421: open c_get_last_payment(l_loan_id, l_last_installment_billed);
5414: if p_based_on_terms = 'CURRENT' and l_last_installment_billed > 0 then
5415:
5416: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5417: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Querying INSTALLMENT ' || l_last_installment_billed || '-----');
5418: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5419:
5420: l_periodic_payment := null;
5421: open c_get_last_payment(l_loan_id, l_last_installment_billed);
5422: fetch c_get_last_payment into l_periodic_payment, l_begin_funded_amount, l_prev_cap_int, l_amortization_schedule_id;
5420: l_periodic_payment := null;
5421: open c_get_last_payment(l_loan_id, l_last_installment_billed);
5422: fetch c_get_last_payment into l_periodic_payment, l_begin_funded_amount, l_prev_cap_int, l_amortization_schedule_id;
5423: close c_get_last_payment;
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_amortization_schedule_id = ' || l_amortization_schedule_id);
5427:
5428: if p_loan_details.FLUCTUATE_EQ_PAY_AMOUNT = 'Y' then
5421: open c_get_last_payment(l_loan_id, l_last_installment_billed);
5422: fetch c_get_last_payment into l_periodic_payment, l_begin_funded_amount, l_prev_cap_int, l_amortization_schedule_id;
5423: close c_get_last_payment;
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_amortization_schedule_id = ' || l_amortization_schedule_id);
5427:
5428: if p_loan_details.FLUCTUATE_EQ_PAY_AMOUNT = 'Y' then
5429: open c_add_int(l_loan_id, l_amortization_schedule_id);
5422: fetch c_get_last_payment into l_periodic_payment, l_begin_funded_amount, l_prev_cap_int, l_amortization_schedule_id;
5423: close c_get_last_payment;
5424: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5425: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5426: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_amortization_schedule_id = ' || l_amortization_schedule_id);
5427:
5428: if p_loan_details.FLUCTUATE_EQ_PAY_AMOUNT = 'Y' then
5429: open c_add_int(l_loan_id, l_amortization_schedule_id);
5430: fetch c_add_int into l_add_int_amount;
5428: if p_loan_details.FLUCTUATE_EQ_PAY_AMOUNT = 'Y' then
5429: open c_add_int(l_loan_id, l_amortization_schedule_id);
5430: fetch c_add_int into l_add_int_amount;
5431: close c_add_int;
5432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_amount = ' || l_add_int_amount);
5433: l_periodic_payment := l_periodic_payment - l_add_int_amount;
5434: end if;
5435:
5436: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic payment = ' || l_periodic_payment);
5432: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_amount = ' || l_add_int_amount);
5433: l_periodic_payment := l_periodic_payment - l_add_int_amount;
5434: end if;
5435:
5436: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic payment = ' || l_periodic_payment);
5437:
5438: if l_periodic_payment is not null then
5439:
5440: l_begin := l_last_installment_billed + 1;
5459:
5460: open c_get_bill_opt(l_loan_id);
5461: fetch c_get_bill_opt into l_bill_on_appr_amounts;
5462: close c_get_bill_opt;
5463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
5464: end if;
5465:
5466: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
5467: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
5462: close c_get_bill_opt;
5463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
5464: end if;
5465:
5466: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
5467: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
5468: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5469:
5470: l_increase_amount_instal := -1;
5463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
5464: end if;
5465:
5466: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
5467: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
5468: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5469:
5470: l_increase_amount_instal := -1;
5471:
5464: end if;
5465:
5466: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin = ' || l_begin);
5467: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_loan_details.REAMORTIZE_ON_FUNDING = ' || p_loan_details.REAMORTIZE_ON_FUNDING);
5468: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
5469:
5470: l_increase_amount_instal := -1;
5471:
5472: if l_begin = 1 then
5482: -- loop to build the amortization schedule
5483: for l_installment_number in l_begin..l_payment_number
5484: loop
5485:
5486: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
5488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5489:
5490: i := i + 1;
5483: for l_installment_number in l_begin..l_payment_number
5484: loop
5485:
5486: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
5488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5489:
5490: i := i + 1;
5491: l_periodic_interest := 0;
5484: loop
5485:
5486: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5487: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ----- Calculating INSTALLMENT ' || l_installment_number || ' -----');
5488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
5489:
5490: i := i + 1;
5491: l_periodic_interest := 0;
5492: l_periodic_principal := 0;
5503: if l_fund_sched_count > 0 or p_based_on_terms = 'CURRENT' then
5504:
5505: if (l_last_installment_billed >= 0) and (l_last_installment_billed + 1 = l_installment_number) then
5506:
5507: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 = l_installment_number');
5508:
5509: l_principal_cumulative := 0;
5510: l_interest_cumulative := 0;
5511: l_fees_cumulative := 0;
5516: l_unpaid_principal := p_loan_details.unpaid_principal;
5517: l_unpaid_interest := p_loan_details.UNPAID_INTEREST;
5518:
5519: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
5520: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5521: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5522: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5523:
5524: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5518:
5519: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
5520: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5521: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5522: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5523:
5524: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5525: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5520: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5521: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5522: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5523:
5524: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5525: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5527:
5528: if l_end_funded_amount > l_begin_funded_amount then
5522: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5523:
5524: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5525: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5527:
5528: if l_end_funded_amount > l_begin_funded_amount then
5529: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
5530:
5525: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5527:
5528: if l_end_funded_amount > l_begin_funded_amount then
5529: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
5530:
5531: if l_end_funded_amount = l_begin_funded_amount_new then
5532: l_increase_amount_instal := l_installment_number;
5533: else
5538: end if;
5539: end if;
5540:
5541: elsif l_begin_funded_amount_new > l_begin_funded_amount then
5542: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new > l_begin_funded_amount');
5543: l_increase_amount_instal := l_installment_number;
5544: end if;
5545:
5546: l_detail_int_calc_flag := true;
5544: end if;
5545:
5546: l_detail_int_calc_flag := true;
5547:
5548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5549: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5551:
5552: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
5546: l_detail_int_calc_flag := true;
5547:
5548: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5549: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5551:
5552: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
5553: l_begin_funded_amount := l_begin_funded_amount_new;
5554: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
5551:
5552: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
5553: l_begin_funded_amount := l_begin_funded_amount_new;
5554: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
5555: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
5556: l_remaining_balance_theory := l_begin_funded_amount - l_billed_principal;
5557: else
5558: l_remaining_balance_theory := 0;
5559: end if;
5559: end if;
5560:
5561: else
5562:
5563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
5564: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
5565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5566: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5561: else
5562:
5563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
5564: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
5565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5566: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5568:
5569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed + 1 < l_installment_number');
5564: if p_loan_details.loan_status <> 'PAIDOFF' and p_loan_details.loan_status <> 'CANCELLED' then
5565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5566: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5568:
5569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5570: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1));
5566: l_begin_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE-1), p_based_on_terms);
5567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5568:
5569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5570: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5572:
5573: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5567: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount = ' || l_begin_funded_amount);
5568:
5569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5570: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5572:
5573: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5574: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE);
5570: l_begin_funded_amount_new := getFundedAmount(l_loan_id, l_payment_tbl(l_installment_number).PERIOD_BEGIN_DATE, p_based_on_terms);
5571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5572:
5573: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5574: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5576:
5577: if l_end_funded_amount > l_begin_funded_amount then
5571: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_begin_funded_amount_new = ' || l_begin_funded_amount_new);
5572:
5573: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Getting funded amount for ' || (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1));
5574: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5576:
5577: if l_end_funded_amount > l_begin_funded_amount then
5578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
5579: l_detail_int_calc_flag := true;
5574: l_end_funded_amount := getFundedAmount(l_loan_id, (l_payment_tbl(l_installment_number).PERIOD_END_DATE-1), p_based_on_terms);
5575: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount = ' || l_end_funded_amount);
5576:
5577: if l_end_funded_amount > l_begin_funded_amount then
5578: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_funded_amount > l_begin_funded_amount');
5579: l_detail_int_calc_flag := true;
5580:
5581: if l_end_funded_amount = l_begin_funded_amount_new then
5582: l_increase_amount_instal := l_installment_number;
5587: l_increase_amount_instal := l_installment_number;
5588: end if;
5589: end if;
5590:
5591: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
5592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
5593:
5594: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
5595: l_begin_funded_amount := l_begin_funded_amount_new;
5588: end if;
5589: end if;
5590:
5591: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_billed_principal = ' || l_billed_principal);
5592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_sum_periodic_principal = ' || l_sum_periodic_principal);
5593:
5594: l_increased_amount := l_end_funded_amount - l_begin_funded_amount;
5595: l_begin_funded_amount := l_begin_funded_amount_new;
5596: l_increased_amount1 := l_end_funded_amount - l_begin_funded_amount;
5609: if p_loan_details.REAMORTIZE_ON_FUNDING = 'NO' then
5610: l_increase_amount_instal := -1;
5611: end if;
5612:
5613: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5614:
5615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
5616: l_rate_details := getRateDetails(p_installment => l_installment_number
5617: ,p_rate_tbl => l_rate_tbl);
5611: end if;
5612:
5613: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5614:
5615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
5616: l_rate_details := getRateDetails(p_installment => l_installment_number
5617: ,p_rate_tbl => l_rate_tbl);
5618:
5619: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
5615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': getting rate details');
5616: l_rate_details := getRateDetails(p_installment => l_installment_number
5617: ,p_rate_tbl => l_rate_tbl);
5618:
5619: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
5620: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
5621: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
5622:
5623: -- get the rate details only need to get it once if a single interest rate exists
5616: l_rate_details := getRateDetails(p_installment => l_installment_number
5617: ,p_rate_tbl => l_rate_tbl);
5618:
5619: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
5620: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
5621: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
5622:
5623: -- get the rate details only need to get it once if a single interest rate exists
5624: l_current_rate_id := l_rate_details.rate_id;
5617: ,p_rate_tbl => l_rate_tbl);
5618:
5619: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
5620: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
5621: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
5622:
5623: -- get the rate details only need to get it once if a single interest rate exists
5624: l_current_rate_id := l_rate_details.rate_id;
5625: l_annualized_rate := l_rate_details.annual_rate;
5624: l_current_rate_id := l_rate_details.rate_id;
5625: l_annualized_rate := l_rate_details.annual_rate;
5626: l_interest_only_flag := l_rate_details.interest_only_flag;
5627:
5628: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5625: l_annualized_rate := l_rate_details.annual_rate;
5626: l_interest_only_flag := l_rate_details.interest_only_flag;
5627:
5628: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5626: l_interest_only_flag := l_rate_details.interest_only_flag;
5627:
5628: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5627:
5628: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5628: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_rate_id = ' || l_previous_rate_id);
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5629: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_current_rate_id = ' || l_current_rate_id);
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_annualized = ' || l_previous_annualized);
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5638: else
5631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_annualized_rate = ' || l_annualized_rate);
5632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_previous_interest_only_flag = ' || l_previous_interest_only_flag);
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5638: else
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_interest_only_flag = ' || l_interest_only_flag);
5634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_last_installment_billed = ' || l_last_installment_billed);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5638: else
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5640: end if;
5641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
5635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_extend_from_installment = ' || l_extend_from_installment);
5636: if l_detail_int_calc_flag then
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5638: else
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5640: end if;
5641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
5642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
5643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
5637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = true');
5638: else
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5640: end if;
5641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
5642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
5643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
5644:
5645: -- getting current frequency record
5638: else
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5640: end if;
5641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
5642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
5643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
5644:
5645: -- getting current frequency record
5646: LNS_FIN_UTILS.fetchPayFreqRecByDate(
5639: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_detail_int_calc_flag = false');
5640: end if;
5641: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount = ' || l_increased_amount);
5642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increased_amount1 = ' || l_increased_amount1);
5643: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_increase_amount_instal = ' || l_increase_amount_instal);
5644:
5645: -- getting current frequency record
5646: LNS_FIN_UTILS.fetchPayFreqRecByDate(
5647: p_FREQUENCY_SCHEDULE => l_freq_schedule_tbl,
5648: p_DATE => l_payment_tbl(l_installment_number).PERIOD_DUE_DATE,
5649: x_FREQUENCY_REC => l_FREQUENCY_REC);
5650: l_payment_frequency := l_FREQUENCY_REC.FREQUENCY;
5651:
5652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_payment_frequency = ' || l_prev_payment_frequency);
5653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
5654:
5655: -- conditions to recalculate payment
5656: -- 1. 1-st installment
5649: x_FREQUENCY_REC => l_FREQUENCY_REC);
5650: l_payment_frequency := l_FREQUENCY_REC.FREQUENCY;
5651:
5652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_payment_frequency = ' || l_prev_payment_frequency);
5653: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payment_frequency = ' || l_payment_frequency);
5654:
5655: -- conditions to recalculate payment
5656: -- 1. 1-st installment
5657: -- 2. previous interest rate <> current interest rate
5669: (l_payment_frequency <> l_prev_payment_frequency))
5670: then
5671:
5672: -- we need to recalculate the payment_amount
5673: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': RE-calculating periodic payment');
5674: l_amortization_intervals := l_amortization_intervals_orig - l_installment_number + 1;
5675:
5676: if (l_calc_method = 'SIMPLE') then
5677:
5695:
5696: end if;
5697:
5698: -- we need to calculate payment ONCE per interest rate change
5699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_rate_to_calculate = ' || l_rate_to_calculate);
5700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_amortization_intervals = ' || l_amortization_intervals);
5701:
5702: l_remaining_balance := l_remaining_balance_theory + l_increased_amount1;
5703:
5696: end if;
5697:
5698: -- we need to calculate payment ONCE per interest rate change
5699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_rate_to_calculate = ' || l_rate_to_calculate);
5700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_amortization_intervals = ' || l_amortization_intervals);
5701:
5702: l_remaining_balance := l_remaining_balance_theory + l_increased_amount1;
5703:
5704: if l_rate_details.rate_id = l_rate_tbl(1).rate_id then
5714: ,p_ending_balance=> l_balloon_amount
5715: ,p_pay_in_arrears=> true);
5716: end if;
5717:
5718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic payment = ' || l_periodic_payment);
5719:
5720: else
5721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD periodic payment = ' || l_periodic_payment);
5722: end if;
5717:
5718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': NEW periodic payment = ' || l_periodic_payment);
5719:
5720: else
5721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': KEEPING OLD periodic payment = ' || l_periodic_payment);
5722: end if;
5723:
5724: l_norm_interest := 0;
5725: l_add_prin_interest := 0;
5738:
5739: -- now we will caculate the interest due for this period
5740: if (p_based_on_terms = 'CURRENT' and l_detail_int_calc_flag = true) then
5741:
5742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
5743: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => l_loan_id,
5744: p_calc_method => l_calc_method,
5745: p_period_start_date => l_payment_tbl(l_installment_number).period_begin_date,
5746: p_period_end_date => l_payment_tbl(l_installment_number).period_end_date,
5774: else
5775: l_prev_grace_end_date := l_payment_tbl(l_installment_number).period_begin_date;
5776: end if;
5777:
5778: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
5779: -- calculate additional interest on unpaid principal
5780: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
5781: p_calc_method => l_calc_method,
5782: p_period_start_date => l_add_start_date,
5795: x_add_int_details => l_add_prin_int_detail_str,
5796: x_penal_int_details => l_penal_prin_int_detail_str);
5797: l_add_prin_interest := round(l_add_prin_interest, l_precision);
5798:
5799: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
5800: -- calculate additional interest on unpaid interest
5801: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => l_loan_id,
5802: p_calc_method => l_calc_method,
5803: p_period_start_date => l_add_start_date,
5823: l_penal_int_detail_str := l_penal_prin_int_detail_str || l_penal_int_int_detail_str;
5824: end if;
5825:
5826: -- calculate interest credit on early payment
5827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating early payment credit amount...');
5828: LNS_FINANCIALS.CALC_EARLY_PAY_CR(p_loan_id => l_loan_id,
5829: p_calc_method => l_calc_method,
5830: p_installment => l_installment_number,
5831: p_interest_rate => l_previous_annualized,
5881: l_norm_int_detail_str := l_norm_interest || ' (' ||
5882: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
5883: ' * Balance ' || l_wtd_balance ||
5884: ' * Rate ' || l_annualized_rate || '%)';
5885: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
5886:
5887: else
5888:
5889: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
5886:
5887: else
5888:
5889: l_remaining_balance_theory1 := l_remaining_balance_theory + l_prev_cap_int;
5890: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest is based upon an amount of ' || l_remaining_balance_theory1);
5891:
5892: if (l_calc_method = 'SIMPLE') then
5893:
5894: l_periodic_rate := lns_financials.getPeriodicRate(
5920: l_norm_int_detail_str := l_norm_interest || ' (' ||
5921: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
5922: ' * Balance ' || l_remaining_balance_theory1 ||
5923: ' * Rate ' || l_annualized_rate || '%)';
5924: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
5925:
5926: end if;
5927:
5928: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
5927:
5928: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
5929: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
5930:
5931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
5932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
5933: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
5934: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
5935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
5928: l_penal_interest := round(l_penal_prin_interest + l_penal_int_interest, l_precision);
5929: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
5930:
5931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
5932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
5933: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
5934: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
5935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
5936:
5929: l_periodic_interest := round(l_norm_interest + l_add_prin_interest + l_add_int_interest + l_penal_interest - l_early_pay_cr, l_precision);
5930:
5931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
5932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
5933: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
5934: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
5935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
5936:
5937: -- check to see if we are in an interest only period
5930:
5931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
5932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
5933: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
5934: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
5935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
5936:
5937: -- check to see if we are in an interest only period
5938: -- if this is the case then the periodic_principal = 0
5931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_payment = ' || l_periodic_payment);
5932: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
5933: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_penal_interest = ' || l_penal_interest);
5934: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_intervals_remaining = ' || l_intervals_remaining);
5935: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled_principal = ' || l_unbilled_principal);
5936:
5937: -- check to see if we are in an interest only period
5938: -- if this is the case then the periodic_principal = 0
5939: -- there is a chance that the loan negatively amortizes
5938: -- if this is the case then the periodic_principal = 0
5939: -- there is a chance that the loan negatively amortizes
5940: if l_interest_only_flag <> 'Y' or l_intervals_remaining = 1 then
5941:
5942: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calculating principal due');
5943:
5944: if p_loan_details.FLUCTUATE_EQ_PAY_AMOUNT = 'N' then -- Include additional interest into Equal Payment
5945: l_periodic_principal := l_periodic_payment - l_periodic_interest;
5946: else -- DONT Include additional interest into Equal Payment
5947: l_periodic_principal := l_periodic_payment - l_norm_interest;
5948: end if;
5949:
5950: l_periodic_principal := round(l_periodic_principal, l_precision);
5951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
5952:
5953: -- this is temporary according to not letting amortizations go negative
5954: if l_periodic_principal < 0 then
5955: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': DISALLOW NEGATIVE AMORTIZATION');
5951: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal = ' || l_periodic_principal);
5952:
5953: -- this is temporary according to not letting amortizations go negative
5954: if l_periodic_principal < 0 then
5955: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': DISALLOW NEGATIVE AMORTIZATION');
5956: l_periodic_principal := 0;
5957: end if;
5958:
5959: -- make sure the final installment gets the remaining balance on the loan irregardless
5958:
5959: -- make sure the final installment gets the remaining balance on the loan irregardless
5960: if (l_remaining_balance_theory + l_increased_amount1) < l_periodic_principal then
5961: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
5962: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
5963: else
5964: if l_intervals_remaining = 1 then
5965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
5966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
5961: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
5962: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
5963: else
5964: if l_intervals_remaining = 1 then
5965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
5966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
5967: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5968: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
5969: l_periodic_principal := l_unbilled_principal;
5962: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
5963: else
5964: if l_intervals_remaining = 1 then
5965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
5966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
5967: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5968: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
5969: l_periodic_principal := l_unbilled_principal;
5970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
5963: else
5964: if l_intervals_remaining = 1 then
5965: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATING LAST INSTALLMENT PRINCIPAL');
5966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
5967: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5968: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
5969: l_periodic_principal := l_unbilled_principal;
5970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
5971: else
5966: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_unbilled principal = ' || l_unbilled_principal);
5967: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5968: if p_based_on_terms = 'CURRENT' and l_unbilled_principal > 0 then
5969: l_periodic_principal := l_unbilled_principal;
5970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
5971: else
5972: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
5973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
5974: end if;
5969: l_periodic_principal := l_unbilled_principal;
5970: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_unbilled_principal');
5971: else
5972: l_periodic_principal := l_remaining_balance_theory + l_increased_amount1;
5973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_principal := l_remaining_balance_theory');
5974: end if;
5975: end if;
5976: end if;
5977:
5980: l_periodic_principal := 0;
5981:
5982: end if;
5983:
5984: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
5986:
5987: -- calculate balances
5988: l_begin_balance := l_remaining_balance_theory;
5981:
5982: end if;
5983:
5984: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_remaining_balance_theory = ' || l_remaining_balance_theory);
5985: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': principal = ' || l_periodic_principal);
5986:
5987: -- calculate balances
5988: l_begin_balance := l_remaining_balance_theory;
5989: l_end_balance := l_remaining_balance_theory - l_periodic_principal + l_increased_amount1;
6122: l_fee_basis_tbl(8).fee_basis_amount := l_amortization_rec.UNPAID_INT;
6123: l_fee_basis_tbl(9).fee_basis_name := 'CURR_LOAN';
6124: l_fee_basis_tbl(9).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT;
6125:
6126: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for this installment...');
6127: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
6128: ,p_loan_id => l_loan_id
6129: ,p_installment => l_installment_number
6130: ,p_fee_basis_tbl => l_fee_basis_tbl
6134: ,x_return_status => l_return_status
6135: ,x_msg_count => l_msg_count
6136: ,x_msg_data => l_msg_data);
6137:
6138: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
6139: if l_return_status <> 'S' then
6140: RAISE FND_API.G_EXC_ERROR;
6141: end if;
6142:
6139: if l_return_status <> 'S' then
6140: RAISE FND_API.G_EXC_ERROR;
6141: end if;
6142:
6143: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6144:
6145: for k in 1..l_fees_tbl.count loop
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6142:
6143: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6144:
6145: for k in 1..l_fees_tbl.count loop
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6143: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6144:
6145: for k in 1..l_fees_tbl.count loop
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6151: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
6144:
6145: for k in 1..l_fees_tbl.count loop
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6151: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
6152: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
6145: for k in 1..l_fees_tbl.count loop
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6151: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
6152: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
6153: else
6146: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6147: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6148: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6149: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6150: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6151: if l_fees_tbl(k).FEE_CATEGORY = 'MEMO' then
6152: l_other_amount := l_other_amount + l_fees_tbl(k).FEE_AMOUNT;
6153: else
6154: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6181:
6182: -- add the record to the amortization table
6183: l_amortization_tbl(i) := l_amortization_rec;
6184:
6185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6182: -- add the record to the amortization table
6183: l_amortization_tbl(i) := l_amortization_rec;
6184:
6185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6183: l_amortization_tbl(i) := l_amortization_rec;
6184:
6185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6184:
6185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6185: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INSTALLMENT ' || l_installment_number);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6187: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6188: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD = ' || l_amortization_rec.PERIOD);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6189: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_START_DATE = ' || l_amortization_rec.PERIOD_START_DATE);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6190: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_END_DATE = ' || l_amortization_rec.PERIOD_END_DATE);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6191: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'due date = ' || l_amortization_rec.due_date);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6192: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_principal = ' || l_amortization_rec.principal_amount);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_interest = ' || l_amortization_rec.interest_amount);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6194: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fee_amount = ' || l_amortization_rec.fee_amount);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6195: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_amount = ' || l_amortization_rec.other_amount);
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6196: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'total = ' || l_amortization_rec.total);
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'begin_balance = ' || l_amortization_rec.begin_balance);
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'end_balance = ' || l_amortization_rec.end_balance);
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'interest_cumulative = ' || l_amortization_rec.interest_cumulative);
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6200: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'principal_cumulative = ' || l_amortization_rec.principal_cumulative);
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'fees_cumulative = ' || l_amortization_rec.fees_cumulative);
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'other_cumulative = ' || l_amortization_rec.other_cumulative);
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current_rate_id = ' || l_amortization_rec.rate_id );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_RATE = ' || l_amortization_rec.INTEREST_RATE );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6205: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_PRIN = ' || l_amortization_rec.UNPAID_PRIN );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6206: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'UNPAID_INT = ' || l_amortization_rec.UNPAID_INT );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6207: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6208: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_AMOUNT = ' || l_amortization_rec.ADD_PRIN_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6209: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6210: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_AMOUNT = ' || l_amortization_rec.PENAL_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6211: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FUNDED_AMOUNT = ' || l_amortization_rec.FUNDED_AMOUNT );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6212: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amortization_rec.NORMAL_INT_DETAILS );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6213: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_PRIN_INT_DETAILS = ' || l_amortization_rec.ADD_PRIN_INT_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6214: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ADD_INT_INT_DETAILS_AMOUNT = ' || l_amortization_rec.ADD_INT_INT_DETAILS );
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6215: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PENAL_INT_DETAILS = ' || l_amortization_rec.PENAL_INT_DETAILS );
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6223:
6216: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amortization_rec.PREV_CAP_INT_AMOUNT );
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6223:
6224: l_remaining_balance_theory := l_end_balance;
6217: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amortization_rec.CURR_CAP_INT_AMOUNT );
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6223:
6224: l_remaining_balance_theory := l_end_balance;
6225: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
6218: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amortization_rec.CAP_INT_AMOUNT );
6219: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amortization_rec.CAP_INT_DETAILS );
6220: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_AMOUNT = ' || l_amortization_rec.EARLY_PAY_CR_AMOUNT );
6221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'EARLY_PAY_CR_DETAILS = ' || l_amortization_rec.EARLY_PAY_CR_DETAILS );
6222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '********************************************');
6223:
6224: l_remaining_balance_theory := l_end_balance;
6225: l_sum_periodic_principal := l_sum_periodic_principal + l_periodic_principal;
6226:
6230: l_prev_payment_frequency := l_payment_frequency;
6231:
6232: end loop;
6233:
6234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
6235: x_loan_amort_tbl := l_amortization_tbl;
6236:
6237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6238:
6233:
6234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
6235: x_loan_amort_tbl := l_amortization_tbl;
6236:
6237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6238:
6239: Exception
6240: WHEN FND_API.G_EXC_ERROR THEN
6241: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6238:
6239: Exception
6240: WHEN FND_API.G_EXC_ERROR THEN
6241: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6242:
6243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6244: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6245:
6240: WHEN FND_API.G_EXC_ERROR THEN
6241: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6242:
6243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6244: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6245:
6246: WHEN OTHERS THEN
6247: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6248:
6243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6244: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6245:
6246: WHEN OTHERS THEN
6247: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6248:
6249: end amortizeLoan;
6250:
6251: /*=========================================================================
6287: l_api_name varchar2(20);
6288: begin
6289:
6290: l_api_name := 'amortizeLoan';
6291: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6292: l_loan_details := lns_financials.getLoanDetails(p_loan_Id => p_loan_id
6293: ,p_based_on_terms => p_based_on_terms
6294: ,p_phase => 'TERM');
6295:
6320: ,x_loan_amort_tbl => l_amortization_tbl);
6321:
6322: end if;
6323:
6324: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Tbl count is ' || l_amortization_tbl.count);
6325:
6326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6327: x_loan_amort_tbl := l_amortization_tbl;
6328: Exception
6322: end if;
6323:
6324: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Tbl count is ' || l_amortization_tbl.count);
6325:
6326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6327: x_loan_amort_tbl := l_amortization_tbl;
6328: Exception
6329: When others then
6330: null;
6462: l_rate_to_calculate := 0;
6463: l_total_disbursed := 0;
6464: l_api_name := 'loanProjection';
6465:
6466: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6467:
6468: l_payment_frequency := p_loan_details.payment_frequency;
6469: l_first_payment_date := p_loan_details.first_payment_date;
6470: l_original_loan_amount := p_loan_details.requested_amount; --funded_amount;
6484: l_unpaid_interest := p_loan_details.UNPAID_INTEREST;
6485:
6486: -- get the interest rate schedule
6487: l_rate_tbl := p_rate_schedule;
6488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
6489:
6490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- p_based_on_terms = ' || p_based_on_terms);
6491:
6492: -- get payment schedule
6486: -- get the interest rate schedule
6487: l_rate_tbl := p_rate_schedule;
6488: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- rate schedule count = ' || l_rate_tbl.count);
6489:
6490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- p_based_on_terms = ' || p_based_on_terms);
6491:
6492: -- get payment schedule
6493: -- this will return the acutal dates that payments will be due on
6494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
6490: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- p_based_on_terms = ' || p_based_on_terms);
6491:
6492: -- get payment schedule
6493: -- this will return the acutal dates that payments will be due on
6494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- getting payment schedule');
6495:
6496: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
6497: P_LOAN_ID => l_loan_id,
6498: P_PHASE => 'OPEN',
6510: ,p_interval_type => l_payment_frequency
6511: ,p_pay_in_arrears => l_pay_in_arrears);
6512: */
6513: l_num_pay_dates := l_payment_tbl.count;
6514: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- payment schedule count = ' || l_num_pay_dates);
6515:
6516: begin
6517: if p_based_on_terms = 'CURRENT' then
6518:
6544: exception
6545: when others then
6546: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6547: FND_MSG_PUB.ADD;
6548: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6549: RAISE FND_API.G_EXC_ERROR;
6550: end;
6551:
6552: l_fees_tbl.delete;
6561: l_fee_basis_tbl(3).fee_basis_amount := l_end_balance;
6562: l_fee_basis_tbl(4).fee_basis_name := 'TOTAL_UNDISB_AMT';
6563: l_fee_basis_tbl(4).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT - l_end_balance;
6564:
6565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for 0-th installment...');
6566: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
6567: ,p_loan_id => l_loan_id
6568: ,p_installment => 0
6569: ,p_fee_basis_tbl => l_fee_basis_tbl
6573: ,x_return_status => l_return_status
6574: ,x_msg_count => l_msg_count
6575: ,x_msg_data => l_msg_data);
6576:
6577: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
6578: if l_return_status <> 'S' then
6579: RAISE FND_API.G_EXC_ERROR;
6580: end if;
6581:
6578: if l_return_status <> 'S' then
6579: RAISE FND_API.G_EXC_ERROR;
6580: end if;
6581:
6582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6583:
6584: for k in 1..l_fees_tbl.count loop
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6581:
6582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6583:
6584: for k in 1..l_fees_tbl.count loop
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6582: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6583:
6584: for k in 1..l_fees_tbl.count loop
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6590: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6583:
6584: for k in 1..l_fees_tbl.count loop
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6590: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6591: end loop;
6584: for k in 1..l_fees_tbl.count loop
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6590: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6591: end loop;
6592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
6585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6586: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6587: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6590: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6591: end loop;
6592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
6593:
6588: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6589: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6590: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6591: end loop;
6592: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for 0-th installment = ' || l_fee_amount);
6593:
6594: if l_fee_amount > 0 then
6595:
6596: i := i + 1;
6641: -- loop to build the amortization schedule
6642: for l_installment_number in 1..l_num_pay_dates
6643: loop
6644:
6645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' -----CALCULATING -----> installment #' || l_installment_number);
6646: i := i + 1;
6647: l_periodic_interest := 0;
6648: l_fee_amount := 0;
6649: l_intervals_remaining := l_num_pay_dates - l_installment_number + 1;
6681: exception
6682: when others then
6683: FND_MESSAGE.SET_NAME('LNS', 'LNS_COMPUTE_BALANCE_ERROR');
6684: FND_MSG_PUB.ADD;
6685: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6686: RAISE FND_API.G_EXC_ERROR;
6687: end;
6688:
6689: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_wtd_balance = ' || l_wtd_balance);
6685: LogMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
6686: RAISE FND_API.G_EXC_ERROR;
6687: end;
6688:
6689: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_wtd_balance = ' || l_wtd_balance);
6690:
6691: -- now we will caculate the interest due for this period
6692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest is based upon an amount of ' || l_wtd_balance);
6693:
6688:
6689: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - l_wtd_balance = ' || l_wtd_balance);
6690:
6691: -- now we will caculate the interest due for this period
6692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest is based upon an amount of ' || l_wtd_balance);
6693:
6694: l_rate_details := getRateDetails(p_installment => l_installment_number
6695: ,p_rate_tbl => l_rate_tbl);
6696:
6693:
6694: l_rate_details := getRateDetails(p_installment => l_installment_number
6695: ,p_rate_tbl => l_rate_tbl);
6696:
6697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
6698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
6699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
6700:
6701: l_annualized_rate := l_rate_details.annual_rate;
6694: l_rate_details := getRateDetails(p_installment => l_installment_number
6695: ,p_rate_tbl => l_rate_tbl);
6696:
6697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
6698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
6699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
6700:
6701: l_annualized_rate := l_rate_details.annual_rate;
6702:
6695: ,p_rate_tbl => l_rate_tbl);
6696:
6697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate annual rate = ' || l_rate_details.annual_rate);
6698: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate spread = ' || l_rate_details.spread);
6699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate id = ' || l_rate_details.rate_id);
6700:
6701: l_annualized_rate := l_rate_details.annual_rate;
6702:
6703: -- recalculate periodic rate for each period if day counting methodolgy varies
6721: ,p_days_count_method => l_day_count_method
6722: ,p_target => 'INTEREST');
6723:
6724: end if;
6725: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate rate = ' || l_periodic_rate);
6726:
6727: -- if we are going to compound, then based on compounding the amount should be passed to calculateInterest call here.
6728: -- how do we determine what the amount to compound on
6729: -- for example: compound daily at .5% over 30 day period
6731: ,p_periodic_rate => l_periodic_rate
6732: ,p_compounding_period => null);
6733:
6734: l_periodic_interest := round(l_periodic_interest, l_precision);
6735: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_interest = ' || l_periodic_interest);
6736:
6737: l_norm_int_detail_str :=
6738: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
6739: ' * Balance ' || l_wtd_balance ||
6737: l_norm_int_detail_str :=
6738: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_payment_tbl(l_installment_number).period_begin_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_payment_tbl(l_installment_number).period_end_date-1), 1) ||
6739: ' * Balance ' || l_wtd_balance ||
6740: ' * Rate ' || l_annualized_rate || '%';
6741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
6742:
6743: --mark
6744: if l_installment_number = p_loan_details.number_installments and
6745: (p_loan_details.OPEN_TO_TERM_FLAG = 'N' OR p_loan_details.SECONDARY_STATUS = 'REMAINING_DISB_CANCELLED') then
6806: l_fee_basis_tbl(8).fee_basis_amount := l_amortization_rec.UNPAID_INT;
6807: l_fee_basis_tbl(9).fee_basis_name := 'CURR_LOAN';
6808: l_fee_basis_tbl(9).fee_basis_amount := p_loan_details.requested_amount + p_loan_details.ADD_REQUESTED_AMOUNT;
6809:
6810: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calling LNS_FEE_ENGINE.getFeeDetails for this installment...');
6811: LNS_FEE_ENGINE.getFeeDetails(p_init_msg_list => FND_API.G_FALSE
6812: ,p_loan_id => l_loan_id
6813: ,p_installment => l_installment_number
6814: ,p_fee_basis_tbl => l_fee_basis_tbl
6818: ,x_return_status => l_return_status
6819: ,x_msg_count => l_msg_count
6820: ,x_msg_data => l_msg_data);
6821:
6822: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_return_status = ' || l_return_status);
6823: if l_return_status <> 'S' then
6824: RAISE FND_API.G_EXC_ERROR;
6825: end if;
6826:
6823: if l_return_status <> 'S' then
6824: RAISE FND_API.G_EXC_ERROR;
6825: end if;
6826:
6827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6828:
6829: for k in 1..l_fees_tbl.count loop
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6826:
6827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6828:
6829: for k in 1..l_fees_tbl.count loop
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6832: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_fees_tbl.count = ' || l_fees_tbl.count);
6828:
6829: for k in 1..l_fees_tbl.count loop
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6832: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6835: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6828:
6829: for k in 1..l_fees_tbl.count loop
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6832: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6835: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6836: end loop;
6829: for k in 1..l_fees_tbl.count loop
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6832: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6835: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6836: end loop;
6837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for this installment = ' || l_fee_amount);
6830: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Fee ' || k);
6831: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_ID = ' || l_fees_tbl(k).FEE_ID);
6832: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_NAME = ' || l_fees_tbl(k).FEE_NAME);
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6835: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6836: end loop;
6837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for this installment = ' || l_fee_amount);
6838:
6833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_CATEGORY = ' || l_fees_tbl(k).FEE_CATEGORY);
6834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FEE_AMOUNT = ' || l_fees_tbl(k).FEE_AMOUNT);
6835: l_fee_amount := l_fee_amount + l_fees_tbl(k).FEE_AMOUNT;
6836: end loop;
6837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total fee amount for this installment = ' || l_fee_amount);
6838:
6839: l_total := l_fee_amount + l_periodic_principal + l_periodic_interest;
6840: l_amortization_rec.total := l_total;
6841: l_amortization_rec.fee_amount := l_fee_amount;
6853:
6854: -- add the record to the amortization table
6855: l_amortization_tbl(i) := l_amortization_rec;
6856:
6857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: due date ' || l_amortization_rec.due_date);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6854: -- add the record to the amortization table
6855: l_amortization_tbl(i) := l_amortization_rec;
6856:
6857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: due date ' || l_amortization_rec.due_date);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6855: l_amortization_tbl(i) := l_amortization_rec;
6856:
6857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: due date ' || l_amortization_rec.due_date);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6856:
6857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: due date ' || l_amortization_rec.due_date);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6857: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: due date ' || l_amortization_rec.due_date);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6858: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_principal ' || l_amortization_rec.principal_amount);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6859: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: periodic_interest ' || l_amortization_rec.interest_amount);
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6860: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fee_amount is ' || l_amortization_rec.fee_amount);
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6868:
6861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: total is ' || l_amortization_rec.fee_amount);
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6868:
6869: end loop;
6862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: begin_balance is ' || l_amortization_rec.begin_balance);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6868:
6869: end loop;
6870: --printAmortizationTable(p_amort_tbl => l_amortization_tbl);
6863: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: end_balance is ' || l_amortization_rec.end_balance);
6864: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: interest_cumulative is ' || l_amortization_rec.interest_cumulative);
6865: --logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: principal_cumulative is ' || l_amortization_rec.principal_cumulative);
6866: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization rec: fees_cumulative is ' || l_amortization_rec.fees_cumulative);
6867: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amortization_rec.NORMAL_INT_AMOUNT );
6868:
6869: end loop;
6870: --printAmortizationTable(p_amort_tbl => l_amortization_tbl);
6871:
6868:
6869: end loop;
6870: --printAmortizationTable(p_amort_tbl => l_amortization_tbl);
6871:
6872: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
6873: x_loan_amort_tbl := l_amortization_tbl;
6874:
6875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6876:
6871:
6872: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - AMORTIZATION TABLE COUNT = ' || l_amortization_tbl.count);
6873: x_loan_amort_tbl := l_amortization_tbl;
6874:
6875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6876:
6877: Exception
6878: WHEN FND_API.G_EXC_ERROR THEN
6879: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6875: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
6876:
6877: Exception
6878: WHEN FND_API.G_EXC_ERROR THEN
6879: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6880:
6881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6882: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6883:
6878: WHEN FND_API.G_EXC_ERROR THEN
6879: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6880:
6881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6882: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6883:
6884: WHEN OTHERS THEN
6885: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6886:
6881: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6882: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
6883:
6884: WHEN OTHERS THEN
6885: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
6886:
6887: end loanProjection;
6888:
6889: /*=========================================================================
6957: l_api_name := 'runLoanProjection';
6958: i := 0;
6959: l_manual_fee_amount := 0;
6960:
6961: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
6962:
6963: -- Initialize message list IF p_init_msg_list is set to TRUE.
6964: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6965: FND_MSG_PUB.initialize;
7016: if p_based_on_terms = 'CURRENT' and
7017: l_loan_details.LOAN_STATUS NOT IN ('INCOMPLETE','DELETED','REJECTED','PENDING','APPROVED')
7018: then
7019: l_num_records := l_amort_tbl.count;
7020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amortization returns # records '|| l_num_records);
7021: l_last_installment_billed := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT_3(p_loan_id, 'OPEN');
7022: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment billed '|| l_last_installment_billed);
7023:
7024: -- copy the records not billed to a temp collection
7018: then
7019: l_num_records := l_amort_tbl.count;
7020: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - amortization returns # records '|| l_num_records);
7021: l_last_installment_billed := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT_3(p_loan_id, 'OPEN');
7022: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - last installment billed '|| l_last_installment_billed);
7023:
7024: -- copy the records not billed to a temp collection
7025: m := 0;
7026: for i in 1..l_num_records
7024: -- copy the records not billed to a temp collection
7025: m := 0;
7026: for i in 1..l_num_records
7027: loop
7028: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - copying record ' || i);
7029: if l_amort_tbl(i).installment_number > l_last_installment_billed then
7030: m := m + 1;
7031: l_amort_tbl2(m) := l_amort_tbl(i);
7032: end if;
7036: l_amort_tbl.delete;
7037: m := 0;
7038: for i in 1..l_amort_tbl2.count
7039: loop
7040: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - re-copying record ' || i);
7041: m := m + 1;
7042: l_amort_tbl(m) := l_amort_tbl2(i);
7043: end loop;
7044: end if;
7049: --
7050:
7051: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7052:
7053: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7054:
7055: EXCEPTION
7056: WHEN FND_API.G_EXC_ERROR THEN
7057: ROLLBACK TO runLoanProjection_PVT;
7058: x_return_status := FND_API.G_RET_STS_ERROR;
7059: x_msg_count := l_msg_count;
7060: x_msg_data := l_msg_data;
7061: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7062: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7063:
7064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7065: ROLLBACK TO runLoanProjection_PVT;
7066: x_return_status := FND_API.G_RET_STS_ERROR;
7066: x_return_status := FND_API.G_RET_STS_ERROR;
7067: x_msg_count := l_msg_count;
7068: x_msg_data := l_msg_data;
7069: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7070: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7071:
7072: WHEN OTHERS THEN
7073: ROLLBACK TO runLoanProjection_PVT;
7074: x_return_status := FND_API.G_RET_STS_ERROR;
7074: x_return_status := FND_API.G_RET_STS_ERROR;
7075: x_msg_count := l_msg_count;
7076: x_msg_data := l_msg_data;
7077: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
7078: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7079:
7080: END runOpenProjection;
7081:
7082: ---------------------------------------------------------------------------
7155: begin
7156:
7157: i := 0;
7158: l_api_name := 'getRateSchedule';
7159: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7160:
7161: Begin
7162: OPEN c_rate_schedule(p_loan_id, p_phase);
7163: LOOP
7189: FND_MSG_PUB.Add;
7190: RAISE FND_API.G_EXC_ERROR;
7191: End;
7192:
7193: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7194:
7195: return l_rate_tbl;
7196:
7197: Exception
7195: return l_rate_tbl;
7196:
7197: Exception
7198: WHEN FND_API.G_EXC_ERROR THEN
7199: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7200:
7201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7202: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
7203:
7198: WHEN FND_API.G_EXC_ERROR THEN
7199: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7200:
7201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7202: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
7203:
7204: WHEN OTHERS THEN
7205: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7206:
7201: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7202: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, sqlerrm);
7203:
7204: WHEN OTHERS THEN
7205: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
7206:
7207: end getRateSchedule;
7208:
7209: /*=========================================================================
7322: l_days_at_rate := 0;
7323: l_weighted_rate := 0;
7324: l_running_weight := 0;
7325: l_total_days := 0;
7326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7327: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' start date ' || p_start_date);
7328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' end date ' || p_end_date);
7329: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate table count ' || p_rate_tbl.count);
7330:
7323: l_weighted_rate := 0;
7324: l_running_weight := 0;
7325: l_total_days := 0;
7326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7327: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' start date ' || p_start_date);
7328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' end date ' || p_end_date);
7329: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate table count ' || p_rate_tbl.count);
7330:
7331: if p_loan_details.custom_schedule = 'N' then
7324: l_running_weight := 0;
7325: l_total_days := 0;
7326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7327: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' start date ' || p_start_date);
7328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' end date ' || p_end_date);
7329: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate table count ' || p_rate_tbl.count);
7330:
7331: if p_loan_details.custom_schedule = 'N' then
7332:
7325: l_total_days := 0;
7326: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7327: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' start date ' || p_start_date);
7328: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' end date ' || p_end_date);
7329: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate table count ' || p_rate_tbl.count);
7330:
7331: if p_loan_details.custom_schedule = 'N' then
7332:
7333: if p_loan_details.PAYMENT_CALC_METHOD = 'SEPARATE_SCHEDULES' then
7388:
7389: end if;
7390:
7391: l_num_pay_dates := l_payment_tbl.count;
7392: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' num pay dates is ' || l_num_pay_dates);
7393: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' num installments is ' || p_loan_details.number_installments);
7394:
7395: -- for k in 1..p_loan_details.number_installments
7396: for k in 1..l_num_pay_dates
7389: end if;
7390:
7391: l_num_pay_dates := l_payment_tbl.count;
7392: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' num pay dates is ' || l_num_pay_dates);
7393: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' num installments is ' || p_loan_details.number_installments);
7394:
7395: -- for k in 1..p_loan_details.number_installments
7396: for k in 1..l_num_pay_dates
7397: loop
7395: -- for k in 1..p_loan_details.number_installments
7396: for k in 1..l_num_pay_dates
7397: loop
7398:
7399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Period: ' || k);
7400: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period start is ' || l_payment_tbl(k).period_begin_date);
7401: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period end is ' || l_payment_tbl(k).period_end_date);
7402: -- check to see if this period is covered in the time
7403:
7396: for k in 1..l_num_pay_dates
7397: loop
7398:
7399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Period: ' || k);
7400: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period start is ' || l_payment_tbl(k).period_begin_date);
7401: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period end is ' || l_payment_tbl(k).period_end_date);
7402: -- check to see if this period is covered in the time
7403:
7404: l_exit_loop := false;
7397: loop
7398:
7399: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Period: ' || k);
7400: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period start is ' || l_payment_tbl(k).period_begin_date);
7401: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' period end is ' || l_payment_tbl(k).period_end_date);
7402: -- check to see if this period is covered in the time
7403:
7404: l_exit_loop := false;
7405: l_period_start_date := null;
7425: l_period_end_date := l_payment_tbl(k).period_end_date;
7426: end if;
7427: end if;
7428:
7429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_period_start_date: ' || l_period_start_date);
7430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_period_end_date: ' || l_period_end_date);
7431:
7432: if l_period_start_date is not null and l_period_end_date is not null then
7433:
7426: end if;
7427: end if;
7428:
7429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_period_start_date: ' || l_period_start_date);
7430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_period_end_date: ' || l_period_end_date);
7431:
7432: if l_period_start_date is not null and l_period_end_date is not null then
7433:
7434: l_days_at_rate := LNS_FIN_UTILS.getDayCount(p_start_date => l_period_start_date
7441: l_running_weight := l_running_weight + (l_rate_details.annual_rate * l_days_at_rate);
7442:
7443: end if;
7444:
7445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_days_at_rate: ' || l_days_at_rate);
7446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_rate: ' || l_rate_details.annual_rate);
7447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_running_weight: ' || l_running_weight);
7448:
7449: if l_exit_loop then
7442:
7443: end if;
7444:
7445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_days_at_rate: ' || l_days_at_rate);
7446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_rate: ' || l_rate_details.annual_rate);
7447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_running_weight: ' || l_running_weight);
7448:
7449: if l_exit_loop then
7450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Exiting loop');
7443: end if;
7444:
7445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_days_at_rate: ' || l_days_at_rate);
7446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_rate: ' || l_rate_details.annual_rate);
7447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_running_weight: ' || l_running_weight);
7448:
7449: if l_exit_loop then
7450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Exiting loop');
7451: exit;
7446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_rate: ' || l_rate_details.annual_rate);
7447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_running_weight: ' || l_running_weight);
7448:
7449: if l_exit_loop then
7450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Exiting loop');
7451: exit;
7452: end if;
7453:
7454: end loop;
7452: end if;
7453:
7454: end loop;
7455:
7456: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' total days is ' || l_total_days);
7457:
7458: if l_total_days = 0 then
7459: l_total_days := 1;
7460: end if;
7459: l_total_days := 1;
7460: end if;
7461:
7462: l_weighted_rate := l_running_weight / l_total_days;
7463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_weighted_rate ' || l_weighted_rate);
7464:
7465: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7466:
7467: return l_weighted_rate;
7461:
7462: l_weighted_rate := l_running_weight / l_total_days;
7463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_weighted_rate ' || l_weighted_rate);
7464:
7465: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7466:
7467: return l_weighted_rate;
7468:
7469: end getWeightedRate;
7507: begin
7508:
7509: l_rate := 0;
7510: l_api_name := 'getRateDetails2';
7511: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7512: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment);
7513:
7514: x := 1;
7515: Begin
7508:
7509: l_rate := 0;
7510: l_api_name := 'getRateDetails2';
7511: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7512: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - installment ' || p_installment);
7513:
7514: x := 1;
7515: Begin
7516: LOOP
7513:
7514: x := 1;
7515: Begin
7516: LOOP
7517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - match row ' || x);
7518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_rate_tbl(x).annual_rate);
7519: l_rate := p_rate_tbl(x).annual_rate;
7520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate 1');
7521: l_rate_rec := p_rate_tbl(x);
7514: x := 1;
7515: Begin
7516: LOOP
7517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - match row ' || x);
7518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_rate_tbl(x).annual_rate);
7519: l_rate := p_rate_tbl(x).annual_rate;
7520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate 1');
7521: l_rate_rec := p_rate_tbl(x);
7522: EXIT WHEN p_installment >= p_rate_tbl(x).begin_installment_number and
7516: LOOP
7517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - match row ' || x);
7518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate ' || p_rate_tbl(x).annual_rate);
7519: l_rate := p_rate_tbl(x).annual_rate;
7520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - rate 1');
7521: l_rate_rec := p_rate_tbl(x);
7522: EXIT WHEN p_installment >= p_rate_tbl(x).begin_installment_number and
7523: p_installment <= p_rate_tbl(x).end_installment_number;
7524: x := x + 1;
7526: Exception
7527: When No_Data_found then
7528: -- when there is not a rate for this period it is assumed to be zero (see scenarios 3, 6, 8 in comments on getWeightedRate)
7529: --l_rate := 0;
7530: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - no rate found for period');
7531: when others then
7532: l_rate := 0;
7533:
7534: End;
7536: if l_rate = 0 then
7537: l_rate_rec.annual_rate := 0;
7538: end if;
7539:
7540: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7541: return l_rate_rec;
7542:
7543: end getRateDetails;
7544:
7582: begin
7583:
7584: l_rate := 0;
7585: l_api_name := 'getRateDetails';
7586: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7587:
7588: x := 1;
7589: Begin
7590: LOOP
7597: Exception
7598: When No_Data_found then
7599: -- when there is not a rate for this period it is assumed to be zero (see scenarios 3, 6, 8 in comments on getWeightedRate)
7600: l_rate := 0;
7601: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - no rate found for period');
7602: when others then
7603: l_rate := 0;
7604:
7605: End;
7607: if l_rate = 0 then
7608: l_rate_rec.annual_rate := 0;
7609: end if;
7610:
7611: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
7612:
7613: return l_rate_rec;
7614:
7615: end getRateDetails;
7826:
7827: begin
7828:
7829: l_api_name := 'getLoanDetails';
7830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7831:
7832: --l_loan_id := p_loan_id;
7833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_loan_id: ' || p_loan_id);
7834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_based_on_terms: ' || p_based_on_terms);
7829: l_api_name := 'getLoanDetails';
7830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7831:
7832: --l_loan_id := p_loan_id;
7833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_loan_id: ' || p_loan_id);
7834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_based_on_terms: ' || p_based_on_terms);
7835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_phase: ' || p_phase);
7836:
7837: OPEN c_loan_details(p_loan_id, p_based_on_terms, p_phase);
7830: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
7831:
7832: --l_loan_id := p_loan_id;
7833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_loan_id: ' || p_loan_id);
7834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_based_on_terms: ' || p_based_on_terms);
7835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_phase: ' || p_phase);
7836:
7837: OPEN c_loan_details(p_loan_id, p_based_on_terms, p_phase);
7838: FETCH c_loan_details INTO
7831:
7832: --l_loan_id := p_loan_id;
7833: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_loan_id: ' || p_loan_id);
7834: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_based_on_terms: ' || p_based_on_terms);
7835: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' p_phase: ' || p_phase);
7836:
7837: OPEN c_loan_details(p_loan_id, p_based_on_terms, p_phase);
7838: FETCH c_loan_details INTO
7839: l_loan_details.loan_id
7905: ,l_loan_details.FLUCTUATE_EQ_PAY_AMOUNT
7906: ;
7907: close c_loan_details;
7908:
7909: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate_type ' || l_loan_details.rate_type);
7910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_ceiling_rate ' || l_loan_details.open_ceiling_rate);
7911: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_floor_rate ' || l_loan_details.open_floor_rate);
7912:
7913: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': balloon_payment_amount' || l_loan_details.balloon_payment_amount);
7906: ;
7907: close c_loan_details;
7908:
7909: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate_type ' || l_loan_details.rate_type);
7910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_ceiling_rate ' || l_loan_details.open_ceiling_rate);
7911: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_floor_rate ' || l_loan_details.open_floor_rate);
7912:
7913: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': balloon_payment_amount' || l_loan_details.balloon_payment_amount);
7914:
7907: close c_loan_details;
7908:
7909: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate_type ' || l_loan_details.rate_type);
7910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_ceiling_rate ' || l_loan_details.open_ceiling_rate);
7911: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_floor_rate ' || l_loan_details.open_floor_rate);
7912:
7913: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': balloon_payment_amount' || l_loan_details.balloon_payment_amount);
7914:
7915: -- begin fix for bug 6724522
7909: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate_type ' || l_loan_details.rate_type);
7910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_ceiling_rate ' || l_loan_details.open_ceiling_rate);
7911: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': open_floor_rate ' || l_loan_details.open_floor_rate);
7912:
7913: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': balloon_payment_amount' || l_loan_details.balloon_payment_amount);
7914:
7915: -- begin fix for bug 6724522
7916: -- replacing loan terms with original data for p_based_on_terms <> 'CURRENT'
7917: if p_based_on_terms <> 'CURRENT' then
8041: l_loan_details.unbilled_principal := l_loan_details.funded_amount;
8042: l_loan_details.UNPAID_INTEREST := 0;
8043: end if;
8044:
8045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- BEGIN LOAN DETAILS ------------->');
8046:
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8043: end if;
8044:
8045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- BEGIN LOAN DETAILS ------------->');
8046:
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8044:
8045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- BEGIN LOAN DETAILS ------------->');
8046:
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8045: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- BEGIN LOAN DETAILS ------------->');
8046:
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8046:
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8047: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term: ' || l_loan_details.amortized_term);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortized_term_period: ' || l_loan_details.amortized_term_period);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8049: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': amortization_frequency: ' || l_loan_details.amortization_frequency);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8050: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': first_payment_date: ' || l_loan_details.first_payment_date);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8051: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_start_date: ' || l_loan_details.loan_start_date);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8052: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': funded_amount: ' || l_loan_details.funded_amount);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8053: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remaining_balance: ' || l_loan_details.remaining_balance);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8054: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_amount: ' || l_loan_details.reamortize_amount);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8055: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': reamortize_from_installment: ' || l_loan_details.reamortize_from_installment);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8056: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day_count_method: ' || l_loan_details.day_count_method);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': last_installment_billed: ' || l_loan_details.last_installment_billed);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8058: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': PAYMENT_CALC_METHOD: ' || l_loan_details.PAYMENT_CALC_METHOD);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8059: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CALCULATION_METHOD: ' || l_loan_details.CALCULATION_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8060: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': INTEREST_COMPOUNDING_FREQ: ' || l_loan_details.INTEREST_COMPOUNDING_FREQ);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8061: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_first_pay_date: ' || l_loan_details.prin_first_pay_date);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8062: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prin_payment_frequency: ' || l_loan_details.prin_payment_frequency);
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8063: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unbilled_principal ' || l_loan_details.unbilled_principal);
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8071: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- END LOAN DETAILS --------------->');
8064: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': unpaid_principal ' || l_loan_details.unpaid_principal);
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8071: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- END LOAN DETAILS --------------->');
8072: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8065: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': UNPAID_INTEREST ' || l_loan_details.UNPAID_INTEREST);
8066: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': extend_from_installment ' || l_loan_Details.extend_from_installment);
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8071: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- END LOAN DETAILS --------------->');
8072: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8073:
8067: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ORIG_PAY_CALC_METHOD ' || l_loan_Details.ORIG_PAY_CALC_METHOD);
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8071: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- END LOAN DETAILS --------------->');
8072: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8073:
8074: return l_loan_details;
8075:
8068: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': CAPITALIZE_INT ' || l_loan_Details.CAPITALIZE_INT);
8069: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': FLUCTUATE_EQ_PAY_AMOUNT ' || l_loan_Details.FLUCTUATE_EQ_PAY_AMOUNT);
8070:
8071: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '<---------- END LOAN DETAILS --------------->');
8072: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8073:
8074: return l_loan_details;
8075:
8076: Exception
8074: return l_loan_details;
8075:
8076: Exception
8077: When No_Data_Found then
8078: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LOAN ID: ' || l_loan_id || ' not found');
8079: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_LOAN_ID');
8080: FND_MSG_PUB.Add;
8081: RAISE FND_API.G_EXC_ERROR;
8082:
8080: FND_MSG_PUB.Add;
8081: RAISE FND_API.G_EXC_ERROR;
8082:
8083: When Others then
8084: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || 'Err: ' || sqlerrm);
8085: RAISE FND_API.G_EXC_ERROR;
8086:
8087: end getLoanDetails;
8088:
8190: SAVEPOINT shiftLoan;
8191: l_api_name := 'shiftLoan';
8192: i := 0;
8193:
8194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8195: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
8196:
8197: -- Initialize API return status to SUCCESS
8198: x_return_status := FND_API.G_RET_STS_SUCCESS;
8191: l_api_name := 'shiftLoan';
8192: i := 0;
8193:
8194: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8195: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
8196:
8197: -- Initialize API return status to SUCCESS
8198: x_return_status := FND_API.G_RET_STS_SUCCESS;
8199:
8205: close move_maturity_date_cur;
8206:
8207: if l_move_maturity_date = -1 then
8208:
8209: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - we need to move the loan');
8210:
8211: -- get the final payment request date
8212: open c_max_pay_req_date(p_loan_id);
8213: fetch c_max_pay_req_date into l_max_pay_request_date;
8211: -- get the final payment request date
8212: open c_max_pay_req_date(p_loan_id);
8213: fetch c_max_pay_req_date into l_max_pay_request_date;
8214: close c_max_pay_req_date;
8215: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_max_pay_request_date' || l_max_pay_request_date);
8216:
8217: -- get loan info
8218: open c_loan_info(p_loan_id);
8219: fetch c_loan_info into
8228: ,l_term_id
8229: ,l_current_phase;
8230: close c_loan_info;
8231:
8232: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_payment_frequency ' || l_payment_frequency);
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8229: ,l_current_phase;
8230: close c_loan_info;
8231:
8232: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_payment_frequency ' || l_payment_frequency);
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8230: close c_loan_info;
8231:
8232: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_payment_frequency ' || l_payment_frequency);
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8231:
8232: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_payment_frequency ' || l_payment_frequency);
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8232: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_payment_frequency ' || l_payment_frequency);
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_id ' || l_term_id );
8233: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_old_maturity_date ' || l_old_maturity_date );
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_id ' || l_term_id );
8241:
8234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_custom_payments_flag ' || l_custom_payments_flag);
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_id ' || l_term_id );
8241:
8242: if l_custom_payments_flag <> 'Y' then
8235: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_phase_exists ' || l_term_phase_exists );
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_id ' || l_term_id );
8241:
8242: if l_custom_payments_flag <> 'Y' then
8243: -- we will be converting the term of the loan if frequency > MONTHLY
8236: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term ' || l_term);
8237: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_period ' || l_term_period );
8238: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_version_number ' || l_version_number );
8239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_terms_version_number ' || l_terms_version_number );
8240: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_term_id ' || l_term_id );
8241:
8242: if l_custom_payments_flag <> 'Y' then
8243: -- we will be converting the term of the loan if frequency > MONTHLY
8244: if l_payment_frequency <> 'SEMI-MONTHLY' AND l_payment_frequency <> 'WEEKLY' AND l_payment_frequency <> 'BIWEEKLY' then
8259:
8260: loop
8261: -- i will be the number of "TERMS" to add the LNS_LOAN_HEADERS.TERM
8262: i := i + 1;
8263: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - i ' || l_new_maturity_date);
8264: l_new_maturity_date := lns_fin_utils.getNextDate(p_date => l_new_maturity_date
8265: ,p_interval_type => l_new_frequency
8266: ,p_direction => 1);
8267: exit when l_new_maturity_date >= l_max_pay_request_date;
8266: ,p_direction => 1);
8267: exit when l_new_maturity_date >= l_max_pay_request_date;
8268: end loop;
8269:
8270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - NEW MATURITY DATE' || l_new_maturity_date );
8271:
8272: --now we move the loan dates
8273: if (l_current_phase = 'OPEN' and l_term_phase_exists = 'Y') then
8274: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting new term dates');
8270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - NEW MATURITY DATE' || l_new_maturity_date );
8271:
8272: --now we move the loan dates
8273: if (l_current_phase = 'OPEN' and l_term_phase_exists = 'Y') then
8274: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting new term dates');
8275:
8276: -- Bug#6169438, Added new parameter l_dates_shifted_flag
8277: shiftLoanDates(p_loan_id => p_loan_id
8278: ,p_new_start_date => l_new_maturity_date
8281: ,x_dates_shifted_flag => l_dates_shifted_flag
8282: ,x_return_status => l_return_status
8283: ,x_msg_count => l_msg_count
8284: ,x_msg_data => l_msg_data);
8285: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM start date is ' || l_loan_details.loan_start_date);
8286: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM first payment date is ' || l_loan_details.first_payment_Date);
8287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM principal first payment date is ' || l_loan_details.PRIN_FIRST_PAY_DATE);
8288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM maturity date is ' || l_loan_details.maturity_date);
8289:
8282: ,x_return_status => l_return_status
8283: ,x_msg_count => l_msg_count
8284: ,x_msg_data => l_msg_data);
8285: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM start date is ' || l_loan_details.loan_start_date);
8286: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM first payment date is ' || l_loan_details.first_payment_Date);
8287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM principal first payment date is ' || l_loan_details.PRIN_FIRST_PAY_DATE);
8288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM maturity date is ' || l_loan_details.maturity_date);
8289:
8290: -- items to update for term phase
8283: ,x_msg_count => l_msg_count
8284: ,x_msg_data => l_msg_data);
8285: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM start date is ' || l_loan_details.loan_start_date);
8286: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM first payment date is ' || l_loan_details.first_payment_Date);
8287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM principal first payment date is ' || l_loan_details.PRIN_FIRST_PAY_DATE);
8288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM maturity date is ' || l_loan_details.maturity_date);
8289:
8290: -- items to update for term phase
8291: l_term_rec.term_id := l_term_id;
8284: ,x_msg_data => l_msg_data);
8285: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM start date is ' || l_loan_details.loan_start_date);
8286: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM first payment date is ' || l_loan_details.first_payment_Date);
8287: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM principal first payment date is ' || l_loan_details.PRIN_FIRST_PAY_DATE);
8288: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' new TERM maturity date is ' || l_loan_details.maturity_date);
8289:
8290: -- items to update for term phase
8291: l_term_rec.term_id := l_term_id;
8292: l_term_rec.FIRST_PAYMENT_DATE := l_loan_details.first_payment_Date;
8332: end if; -- open phase
8333: end if; -- custom payments
8334:
8335: else
8336: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - NOTHING TO MOVE');
8337: end if;
8338:
8339: --
8340: -- End of API body
8347:
8348:
8349: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8350:
8351: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8352:
8353: EXCEPTION
8354: WHEN FND_API.G_EXC_ERROR THEN
8355: ROLLBACK TO shiftLoan;
8356: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8357: x_return_status := FND_API.G_RET_STS_ERROR;
8358: x_msg_count := l_msg_count;
8359: x_msg_data := l_msg_data;
8360: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8361:
8362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8363: ROLLBACK TO shiftLoan;
8364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8364: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8365: x_return_status := FND_API.G_RET_STS_ERROR;
8366: x_msg_count := l_msg_count;
8367: x_msg_data := l_msg_data;
8368: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8369:
8370: WHEN OTHERS THEN
8371: ROLLBACK TO shiftLoan;
8372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8372: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8373: x_return_status := FND_API.G_RET_STS_ERROR;
8374: x_msg_count := l_msg_count;
8375: x_msg_data := l_msg_data;
8376: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8377:
8378: end shiftLoan;
8379:
8380: /*=========================================================================
8434: SAVEPOINT shiftLoanDates;
8435: l_api_name := 'shiftLoanDates';
8436: x := 0;
8437:
8438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id = ' || p_loan_id);
8440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_new_start_date = ' || p_new_start_date);
8441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase = ' || p_phase);
8442:
8435: l_api_name := 'shiftLoanDates';
8436: x := 0;
8437:
8438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id = ' || p_loan_id);
8440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_new_start_date = ' || p_new_start_date);
8441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase = ' || p_phase);
8442:
8443: -- Initialize API return status to SUCCESS
8436: x := 0;
8437:
8438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id = ' || p_loan_id);
8440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_new_start_date = ' || p_new_start_date);
8441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase = ' || p_phase);
8442:
8443: -- Initialize API return status to SUCCESS
8444: x_return_status := FND_API.G_RET_STS_SUCCESS;
8437:
8438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8439: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id = ' || p_loan_id);
8440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_new_start_date = ' || p_new_start_date);
8441: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase = ' || p_phase);
8442:
8443: -- Initialize API return status to SUCCESS
8444: x_return_status := FND_API.G_RET_STS_SUCCESS;
8445: x_dates_shifted_flag := 'N';
8478: ,p_term_period => l_loan_Details.loan_term_period
8479: ,p_frequency => l_loan_Details.amortization_frequency
8480: ,p_start_date => p_new_start_date);
8481:
8482: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date ' || l_new_maturity_date);
8483:
8484: -- fix for FP bug 6938095: get package.procedure from LNS_SHIFT_PAY_DATES_PROC profile and call it dynamically
8485: l_shift_dates_proc := NVL(FND_PROFILE.VALUE('LNS_SHIFT_PAY_DATES_PROC'), 'LNS_DEFAULT_HOOKS_PVT.SHIFT_PAY_START_DATES');
8486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_shift_dates_proc: ' || l_shift_dates_proc);
8482: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date ' || l_new_maturity_date);
8483:
8484: -- fix for FP bug 6938095: get package.procedure from LNS_SHIFT_PAY_DATES_PROC profile and call it dynamically
8485: l_shift_dates_proc := NVL(FND_PROFILE.VALUE('LNS_SHIFT_PAY_DATES_PROC'), 'LNS_DEFAULT_HOOKS_PVT.SHIFT_PAY_START_DATES');
8486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_shift_dates_proc: ' || l_shift_dates_proc);
8487:
8488: l_plsql_block := 'BEGIN ' || l_shift_dates_proc || '(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10); END;';
8489:
8490: BEGIN
8488: l_plsql_block := 'BEGIN ' || l_shift_dates_proc || '(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10); END;';
8489:
8490: BEGIN
8491:
8492: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Calling...');
8493:
8494: EXECUTE IMMEDIATE l_plsql_block
8495: USING
8496: IN p_loan_id,
8503: IN OUT l_new_maturity_date,
8504: OUT l_new_int_first_pay_date,
8505: OUT l_new_prin_first_pay_date;
8506:
8507: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
8508:
8509: EXCEPTION
8510: WHEN OTHERS THEN
8511: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
8507: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Done');
8508:
8509: EXCEPTION
8510: WHEN OTHERS THEN
8511: logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
8512: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
8513: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
8514: FND_MSG_PUB.ADD;
8515: RAISE FND_API.G_EXC_ERROR;
8514: FND_MSG_PUB.ADD;
8515: RAISE FND_API.G_EXC_ERROR;
8516: END;
8517:
8518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_int_first_pay_date: ' || l_new_int_first_pay_date);
8519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_prin_first_pay_date: ' || l_new_prin_first_pay_date);
8520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date: ' || l_new_maturity_date);
8521:
8522: if l_new_int_first_pay_date is null or l_new_int_first_pay_date < p_new_start_date then
8515: RAISE FND_API.G_EXC_ERROR;
8516: END;
8517:
8518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_int_first_pay_date: ' || l_new_int_first_pay_date);
8519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_prin_first_pay_date: ' || l_new_prin_first_pay_date);
8520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date: ' || l_new_maturity_date);
8521:
8522: if l_new_int_first_pay_date is null or l_new_int_first_pay_date < p_new_start_date then
8523: FND_MESSAGE.SET_NAME('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
8516: END;
8517:
8518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_int_first_pay_date: ' || l_new_int_first_pay_date);
8519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_prin_first_pay_date: ' || l_new_prin_first_pay_date);
8520: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_maturity_date: ' || l_new_maturity_date);
8521:
8522: if l_new_int_first_pay_date is null or l_new_int_first_pay_date < p_new_start_date then
8523: FND_MESSAGE.SET_NAME('LNS', 'LNS_PAYMENT_START_DATE_ERROR2');
8524: FND_MSG_PUB.ADD;
8558: -- End of API body
8559: --
8560: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8561:
8562: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8563: EXCEPTION
8564: WHEN FND_API.G_EXC_ERROR THEN
8565: ROLLBACK TO shiftLoanDates;
8566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8564: WHEN FND_API.G_EXC_ERROR THEN
8565: ROLLBACK TO shiftLoanDates;
8566: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8567: x_return_status := FND_API.G_RET_STS_ERROR;
8568: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8569:
8570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8571: ROLLBACK TO shiftLoanDates;
8572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8571: ROLLBACK TO shiftLoanDates;
8572: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8573: x_return_status := FND_API.G_RET_STS_ERROR;
8574: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8575:
8576: WHEN OTHERS THEN
8577: ROLLBACK TO shiftLoanDates;
8578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8576: WHEN OTHERS THEN
8577: ROLLBACK TO shiftLoanDates;
8578: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8579: x_return_status := FND_API.G_RET_STS_ERROR;
8580: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8581: end shiftLoanDates;
8582:
8583:
8584: /*=========================================================================
8625:
8626: begin
8627:
8628: l_api_name := 'calculateEPPayment';
8629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8630:
8631: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8627:
8628: l_api_name := 'calculateEPPayment';
8629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8630:
8631: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8634:
8635: l_periodic_amount := (p_loan_amount - p_ending_balance) / p_num_intervals;
8628: l_api_name := 'calculateEPPayment';
8629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8630:
8631: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8634:
8635: l_periodic_amount := (p_loan_amount - p_ending_balance) / p_num_intervals;
8636:
8629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8630:
8631: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8634:
8635: l_periodic_amount := (p_loan_amount - p_ending_balance) / p_num_intervals;
8636:
8637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic_prin_amount: ' || l_periodic_amount);
8633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8634:
8635: l_periodic_amount := (p_loan_amount - p_ending_balance) / p_num_intervals;
8636:
8637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic_prin_amount: ' || l_periodic_amount);
8638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8639:
8640: return l_periodic_amount;
8641:
8634:
8635: l_periodic_amount := (p_loan_amount - p_ending_balance) / p_num_intervals;
8636:
8637: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic_prin_amount: ' || l_periodic_amount);
8638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8639:
8640: return l_periodic_amount;
8641:
8642: Exception
8701:
8702: begin
8703:
8704: l_api_name := 'calculatePayment';
8705: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8706:
8707: if p_pay_in_arrears then
8708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in arrears');
8709: else
8704: l_api_name := 'calculatePayment';
8705: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8706:
8707: if p_pay_in_arrears then
8708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in arrears');
8709: else
8710: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in advance');
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8706:
8707: if p_pay_in_arrears then
8708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in arrears');
8709: else
8710: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in advance');
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate is ' || p_periodic_rate);
8714: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8708: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in arrears');
8709: else
8710: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in advance');
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate is ' || p_periodic_rate);
8714: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8715: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8716:
8709: else
8710: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in advance');
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate is ' || p_periodic_rate);
8714: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8715: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8716:
8717: l_num_intervals := p_num_intervals;
8710: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' pay in advance');
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate is ' || p_periodic_rate);
8714: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8715: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8716:
8717: l_num_intervals := p_num_intervals;
8718: if l_num_intervals = 0 then
8711: end if;
8712: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': number of intervals is ' || p_num_intervals);
8713: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic rate is ' || p_periodic_rate);
8714: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': ending balance is ' || p_ending_balance);
8715: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ': loan amount is ' || p_loan_amount);
8716:
8717: l_num_intervals := p_num_intervals;
8718: if l_num_intervals = 0 then
8719: l_num_intervals := 1;
8724: if p_ending_balance = 0 then
8725:
8726: if p_pay_in_arrears then
8727: if p_periodic_rate <> 0 then
8728: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 1');
8729: l_numerator := p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals) * p_loan_amount;
8730: l_denominator := Power ((1 + p_periodic_rate), l_num_intervals) - 1;
8731: else
8732: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 2');
8728: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 1');
8729: l_numerator := p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals) * p_loan_amount;
8730: l_denominator := Power ((1 + p_periodic_rate), l_num_intervals) - 1;
8731: else
8732: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 2');
8733: l_numerator := Power (1, l_num_intervals) * p_loan_amount;
8734: l_denominator := l_num_intervals;
8735: end if;
8736: else
8734: l_denominator := l_num_intervals;
8735: end if;
8736: else
8737: if p_periodic_rate <> 0 then
8738: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 3');
8739: l_numerator := p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals - 1) * p_loan_amount;
8740: l_denominator := Power ((1 + p_periodic_rate), l_num_intervals) - 1;
8741: else
8742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 4');
8738: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 3');
8739: l_numerator := p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals - 1) * p_loan_amount;
8740: l_denominator := Power ((1 + p_periodic_rate), l_num_intervals) - 1;
8741: else
8742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 4');
8743: l_numerator := Power (1, l_num_intervals - 1) * p_loan_amount;
8744: l_denominator := l_num_intervals;
8745: end if;
8746:
8745: end if;
8746:
8747: end if;
8748:
8749: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': numerator:' || l_numerator);
8750: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': denominator:' || l_denominator);
8751:
8752: l_periodic_amount := l_numerator / l_denominator;
8753:
8746:
8747: end if;
8748:
8749: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': numerator:' || l_numerator);
8750: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': denominator:' || l_denominator);
8751:
8752: l_periodic_amount := l_numerator / l_denominator;
8753:
8754: else -- for case of balloon payment
8755:
8756: if p_pay_in_arrears then
8757: if p_periodic_rate <> 0 then
8758:
8759: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 5');
8760: l_periodic_amount := ( (p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals) * p_loan_amount) / (Power ((1 + p_periodic_rate), l_num_intervals) - 1) ) +
8761: ( (p_periodic_rate * p_ending_balance) / ((1 + p_periodic_rate) - Power ((1 + p_periodic_rate), l_num_intervals + 1)) );
8762:
8763: else
8760: l_periodic_amount := ( (p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals) * p_loan_amount) / (Power ((1 + p_periodic_rate), l_num_intervals) - 1) ) +
8761: ( (p_periodic_rate * p_ending_balance) / ((1 + p_periodic_rate) - Power ((1 + p_periodic_rate), l_num_intervals + 1)) );
8762:
8763: else
8764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 6');
8765: l_periodic_amount := ( (Power ((1 + p_periodic_rate), l_num_intervals) * p_loan_amount) / l_num_intervals ) -
8766: ( p_ending_balance / l_num_intervals );
8767: end if;
8768:
8767: end if;
8768:
8769: else
8770: if p_periodic_rate <> 0 then
8771: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 7');
8772: l_periodic_amount := ( (p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals - 1) * p_loan_amount) / (Power ((1 + p_periodic_rate), l_num_intervals) - 1) ) +
8773: ( (p_periodic_rate * p_ending_balance) / ((1 + p_periodic_rate) - Power ((1 + p_periodic_rate), l_num_intervals + 1)) );
8774: else
8775: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 8');
8771: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 7');
8772: l_periodic_amount := ( (p_periodic_rate * Power ((1 + p_periodic_rate), l_num_intervals - 1) * p_loan_amount) / (Power ((1 + p_periodic_rate), l_num_intervals) - 1) ) +
8773: ( (p_periodic_rate * p_ending_balance) / ((1 + p_periodic_rate) - Power ((1 + p_periodic_rate), l_num_intervals + 1)) );
8774: else
8775: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': if 8');
8776: l_periodic_amount := ( (Power ((1 + p_periodic_rate), l_num_intervals - 1) * p_loan_amount) / l_num_intervals ) -
8777: ( p_ending_balance / l_num_intervals );
8778: end if;
8779:
8780: end if;
8781:
8782: end if;
8783:
8784: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic_amount: ' || l_periodic_amount);
8785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8786:
8787: return l_periodic_amount;
8788:
8781:
8782: end if;
8783:
8784: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': periodic_amount: ' || l_periodic_amount);
8785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8786:
8787: return l_periodic_amount;
8788:
8789: Exception
8844:
8845: begin
8846:
8847: l_api_name := 'calculateInterest';
8848: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8849: if p_amount > 0 then
8850: l_amount := p_amount;
8851: else
8852: l_amount := 0;
8850: l_amount := p_amount;
8851: else
8852: l_amount := 0;
8853: end if;
8854: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8855:
8856: return l_amount * p_periodic_rate;
8857:
8858: end calculateInterest;
8878:
8879: -- Initialize API return status to SUCCESS
8880: x_return_status := FND_API.G_RET_STS_SUCCESS;
8881: l_api_name := 'validatePayoff';
8882: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
8883: --
8884: -- Api body
8885: -- --------------------------------------------------------------------
8886:
8900: RAISE FND_API.G_EXC_ERROR;
8901: end if;
8902:
8903: if p_payoff_date < p_loan_details.last_interest_accrual then
8904: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8905: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY');
8906: FND_MESSAGE.SET_TOKEN('PAYOFF_DATE', fnd_date.date_to_displaydate(p_loan_details.last_interest_accrual));
8907: FND_MSG_PUB.Add;
8908: RAISE FND_API.G_EXC_ERROR;
8908: RAISE FND_API.G_EXC_ERROR;
8909: end if;
8910:
8911: if p_payoff_date < p_loan_details.last_activity_date then
8912: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff too early');
8913: FND_MESSAGE.Set_Name('LNS', 'LNS_PAYOFF_TOO_EARLY2');
8914: FND_MESSAGE.SET_TOKEN('PARAMETER', 'LAST_ACTIVITY_DATE');
8915: FND_MESSAGE.SET_TOKEN('VALUE', fnd_date.date_to_displaydate(p_loan_details.last_activity_date));
8916: FND_MSG_PUB.Add;
8918: end if;
8919:
8920: if p_reason = 'PAYOFF' then
8921: /* raverma added 12-08-05 */
8922: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling LNS_FUNDING_PUB.validate_disb_for_payoff returns ');
8923: LNS_FUNDING_PUB.VALIDATE_DISB_FOR_PAYOFF(P_API_VERSION => 1.0
8924: ,P_INIT_MSG_LIST => FND_API.G_FALSE
8925: ,P_COMMIT => FND_API.G_FALSE
8926: ,P_VALIDATION_LEVEL => 100
8928: ,x_return_status => l_return_status
8929: ,x_msg_count => l_msg_count
8930: ,x_msg_data => l_msg_data);
8931: if l_return_Status <> FND_API.G_RET_STS_SUCCESS then
8932: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - validate_disb_for_payoff returns ' || l_return_Status);
8933: RAISE FND_API.G_EXC_ERROR;
8934: end if;
8935: end if;
8936:
8940: --
8941:
8942: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8943:
8944: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
8945:
8946: exception
8947:
8948: WHEN FND_API.G_EXC_ERROR THEN
8949: x_return_status := FND_API.G_RET_STS_ERROR;
8950: x_msg_count := l_msg_count;
8951: x_msg_data := l_msg_data;
8952: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8953: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8954:
8955: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8957: x_msg_count := l_msg_count;
8956: x_return_status := FND_API.G_RET_STS_ERROR;
8957: x_msg_count := l_msg_count;
8958: x_msg_data := l_msg_data;
8959: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8960: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8961:
8962: WHEN OTHERS THEN
8963: x_return_status := FND_API.G_RET_STS_ERROR;
8964: x_msg_count := l_msg_count;
8963: x_return_status := FND_API.G_RET_STS_ERROR;
8964: x_msg_count := l_msg_count;
8965: x_msg_data := l_msg_data;
8966: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
8967: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
8968:
8969: end;
8970:
8971:
9120: l_principal_unpaid := 0;
9121: l_interest_unpaid := 0;
9122: l_fees_unpaid := 0;
9123: l_balance := 0;
9124: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
9126: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_date ' || p_date);
9127: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_reason ' || p_reason);
9128:
9121: l_interest_unpaid := 0;
9122: l_fees_unpaid := 0;
9123: l_balance := 0;
9124: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
9126: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_date ' || p_date);
9127: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_reason ' || p_reason);
9128:
9129: -- Standard Start of API savepoint
9122: l_fees_unpaid := 0;
9123: l_balance := 0;
9124: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
9126: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_date ' || p_date);
9127: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_reason ' || p_reason);
9128:
9129: -- Standard Start of API savepoint
9130: SAVEPOINT calculatePayoff;
9123: l_balance := 0;
9124: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id ' || p_loan_id);
9126: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_date ' || p_date);
9127: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_reason ' || p_reason);
9128:
9129: -- Standard Start of API savepoint
9130: SAVEPOINT calculatePayoff;
9131:
9147: --
9148: -- Api body
9149: -- --------------------------------------------------------------------
9150:
9151: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting current phase');
9152: open c_loan_info(p_loan_id);
9153: fetch c_loan_info into l_current_phase;
9154: close c_loan_info;
9155: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - current phase ' || l_current_phase);
9151: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting current phase');
9152: open c_loan_info(p_loan_id);
9153: fetch c_loan_info into l_current_phase;
9154: close c_loan_info;
9155: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - current phase ' || l_current_phase);
9156:
9157: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
9158: ,p_based_on_terms => 'CURRENT'
9159: ,p_phase => l_current_phase);
9157: l_loan_details := lns_financials.getLoanDetails(p_loan_id => p_loan_id
9158: ,p_based_on_terms => 'CURRENT'
9159: ,p_phase => l_current_phase);
9160: l_rate_tbl := lns_financials.getRateSchedule(p_loan_id, l_current_phase);
9161: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - got loan details and rate info');
9162:
9163: lns_financials.validatePayoff(p_loan_details => l_loan_details
9164: ,p_payoff_date => p_date
9165: ,p_reason => p_reason
9166: ,x_return_status => l_return_status
9167: ,x_msg_count => l_msg_count
9168: ,x_msg_data => l_msg_data);
9169: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
9170: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
9171: RAISE FND_API.G_EXC_ERROR;
9172: END IF;
9173:
9174: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing late fees');
9170: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || FND_MSG_PUB.Get(p_encoded => 'F'));
9171: RAISE FND_API.G_EXC_ERROR;
9172: END IF;
9173:
9174: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - processing late fees');
9175: lns_fee_engine.processLateFees(p_loan_id => p_loan_id
9176: ,p_init_msg_list => p_init_msg_list
9177: ,p_commit => 'F'
9178: ,p_phase => l_loan_details.LOAN_PHASE
9222: end if;
9223: end if;
9224:
9225: if p_date < l_loan_details.last_interest_accrual then
9226: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff prior to last interest accrual');
9227: -- we will have a interest credit
9228: l_from_date := p_date;
9229: l_to_date := l_loan_details.last_interest_accrual;
9230: l_multipler := -1;
9235: ,p_to_date => l_loan_details.last_interest_accrual
9236: ,p_calc_method => null);
9237: */
9238: else
9239: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - payoff after lastinterest accrual');
9240: l_from_date := l_loan_details.last_interest_accrual;
9241: l_to_date := p_date;
9242: l_multipler := 1;
9243: -- l_balance := l_loan_details.remaining_balance;
9241: l_to_date := p_date;
9242: l_multipler := 1;
9243: -- l_balance := l_loan_details.remaining_balance;
9244: end if;
9245: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - computed principal balance: ' || l_balance);
9246: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from date: ' || l_from_date);
9247: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to date: ' || l_to_date);
9248: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_muliplier: ' || l_multipler);
9249:
9242: l_multipler := 1;
9243: -- l_balance := l_loan_details.remaining_balance;
9244: end if;
9245: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - computed principal balance: ' || l_balance);
9246: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from date: ' || l_from_date);
9247: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to date: ' || l_to_date);
9248: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_muliplier: ' || l_multipler);
9249:
9250: BEGIN
9243: -- l_balance := l_loan_details.remaining_balance;
9244: end if;
9245: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - computed principal balance: ' || l_balance);
9246: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from date: ' || l_from_date);
9247: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to date: ' || l_to_date);
9248: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_muliplier: ' || l_multipler);
9249:
9250: BEGIN
9251: -- changes as per scherkas 11-16-2005
9244: end if;
9245: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - computed principal balance: ' || l_balance);
9246: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - from date: ' || l_from_date);
9247: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - to date: ' || l_to_date);
9248: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_muliplier: ' || l_multipler);
9249:
9250: BEGIN
9251: -- changes as per scherkas 11-16-2005
9252: select
9265: Exception
9266: when no_data_found then
9267: null;
9268: END;
9269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_principal_unpaid: ' || l_principal_unpaid);
9270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_interest_unpaid: ' || l_interest_unpaid);
9271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fees_unpaid: ' || l_fees_unpaid);
9272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - status: ' || l_loan_details.loan_status);
9273:
9266: when no_data_found then
9267: null;
9268: END;
9269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_principal_unpaid: ' || l_principal_unpaid);
9270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_interest_unpaid: ' || l_interest_unpaid);
9271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fees_unpaid: ' || l_fees_unpaid);
9272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - status: ' || l_loan_details.loan_status);
9273:
9274: -- get the wtd rate if necessary
9267: null;
9268: END;
9269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_principal_unpaid: ' || l_principal_unpaid);
9270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_interest_unpaid: ' || l_interest_unpaid);
9271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fees_unpaid: ' || l_fees_unpaid);
9272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - status: ' || l_loan_details.loan_status);
9273:
9274: -- get the wtd rate if necessary
9275: if l_rate_tbl.count = 1 then
9268: END;
9269: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_principal_unpaid: ' || l_principal_unpaid);
9270: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_interest_unpaid: ' || l_interest_unpaid);
9271: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_fees_unpaid: ' || l_fees_unpaid);
9272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - status: ' || l_loan_details.loan_status);
9273:
9274: -- get the wtd rate if necessary
9275: if l_rate_tbl.count = 1 then
9276: l_annualized_rate := l_rate_tbl(1).annual_rate;
9279: ,p_start_date => l_from_date
9280: ,p_end_date => l_to_date
9281: ,p_rate_tbl => l_rate_tbl);
9282: end if;
9283: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_annualized_rate: ' || l_annualized_rate);
9284:
9285: l_norm_interest := 0;
9286: l_add_prin_interest := 0;
9287: l_add_int_interest := 0;
9315: end if;
9316: if l_prev_cap_int is null then
9317: l_prev_cap_int := 0;
9318: end if;
9319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_deferred_int = ' || l_prev_deferred_int);
9320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
9321:
9322: -- calculate normal interest
9323: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
9316: if l_prev_cap_int is null then
9317: l_prev_cap_int := 0;
9318: end if;
9319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_deferred_int = ' || l_prev_deferred_int);
9320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
9321:
9322: -- calculate normal interest
9323: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
9324: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => p_loan_id,
9319: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_deferred_int = ' || l_prev_deferred_int);
9320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_prev_cap_int = ' || l_prev_cap_int);
9321:
9322: -- calculate normal interest
9323: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating normal interest...');
9324: LNS_FINANCIALS.CALC_NORM_INTEREST(p_loan_id => p_loan_id,
9325: p_calc_method => l_loan_details.CALCULATION_METHOD,
9326: p_period_start_date => l_from_date,
9327: p_period_end_date => l_to_date,
9336:
9337: l_norm_interest := round(l_norm_interest, l_loan_details.currency_precision);
9338:
9339: -- calculate additional interest on unpaid principal
9340: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid principal...');
9341: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => p_loan_id,
9342: p_calc_method => l_loan_details.CALCULATION_METHOD,
9343: p_period_start_date => l_add_start_date,
9344: p_period_end_date => l_add_end_date,
9357: x_penal_int_details => l_penal_prin_int_detail_str);
9358: l_add_prin_interest := round(l_add_prin_interest, l_loan_details.currency_precision);
9359:
9360: -- calculate additional interest on unpaid interest
9361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating additional interest on unpaid interest...');
9362: LNS_FINANCIALS.CALC_ADD_INTEREST(p_loan_id => p_loan_id,
9363: p_calc_method => l_loan_details.CALCULATION_METHOD,
9364: p_period_start_date => l_add_start_date,
9365: p_period_end_date => l_add_end_date,
9382: ,p_rate_tbl => l_rate_tbl);
9383: l_previous_annualized := l_rate_details.annual_rate;
9384:
9385: -- calculate interest credit on early payment
9386: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculating early payment credit amount...');
9387: LNS_FINANCIALS.CALC_EARLY_PAY_CR(p_loan_id => p_loan_id,
9388: p_calc_method => l_loan_details.CALCULATION_METHOD,
9389: p_installment => (l_loan_details.last_installment_billed + 1),
9390: p_interest_rate => l_previous_annualized,
9401: l_penal_int_detail_str := l_penal_prin_int_detail_str || ' +
' || l_penal_int_int_detail_str;
9402: else
9403: l_penal_int_detail_str := l_penal_prin_int_detail_str || l_penal_int_int_detail_str;
9404: end if;
9405: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_additional_interest: ' || l_additional_interest);
9406:
9407: begin
9408: open c_additional_fees(p_loan_id, l_current_phase, l_loan_details.last_installment_billed);
9409: fetch c_additional_fees into l_additional_fees;
9434: --
9435:
9436: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9437:
9438: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9439:
9440: EXCEPTION
9441: WHEN FND_API.G_EXC_ERROR THEN
9442: ROLLBACK TO calculatePayoff;
9443: x_return_status := FND_API.G_RET_STS_ERROR;
9444: x_msg_count := l_msg_count;
9445: x_msg_data := l_msg_data;
9446: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9447: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9448:
9449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9450: ROLLBACK TO calculatePayoff;
9451: x_return_status := FND_API.G_RET_STS_ERROR;
9451: x_return_status := FND_API.G_RET_STS_ERROR;
9452: x_msg_count := l_msg_count;
9453: x_msg_data := l_msg_data;
9454: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9455: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9456:
9457: WHEN OTHERS THEN
9458: ROLLBACK TO calculatePayoff;
9459: x_return_status := FND_API.G_RET_STS_ERROR;
9459: x_return_status := FND_API.G_RET_STS_ERROR;
9460: x_msg_count := l_msg_count;
9461: x_msg_data := l_msg_data;
9462: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
9463: logMessage(FND_LOG.LEVEL_ERROR, G_PKG_NAME, sqlerrm);
9464:
9465: end;
9466:
9467:
9561: RAISE FND_API.G_EXC_ERROR;
9562: end if;
9563:
9564: x_days_in_period := p_days_in_year/x_ppy;
9565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_ppy = ' || x_ppy);
9566: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_days_in_period = ' || x_days_in_period);
9567:
9568: end;
9569:
9562: end if;
9563:
9564: x_days_in_period := p_days_in_year/x_ppy;
9565: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_ppy = ' || x_ppy);
9566: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_days_in_period = ' || x_days_in_period);
9567:
9568: end;
9569:
9570:
9625:
9626: begin
9627:
9628: l_api_name := 'getCompoundPeriodicRate';
9629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9626: begin
9627:
9628: l_api_name := 'getCompoundPeriodicRate';
9629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9627:
9628: l_api_name := 'getCompoundPeriodicRate';
9629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9628: l_api_name := 'getCompoundPeriodicRate';
9629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9629: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9637:
9630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_compound_freq: ' || p_compound_freq);
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9637:
9638: select to_number(to_char(p_period_start_date, 'YYYY')) into l_year1 from dual;
9631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_payment_freq: ' || p_payment_freq);
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9637:
9638: select to_number(to_char(p_period_start_date, 'YYYY')) into l_year1 from dual;
9639: select to_number(to_char(p_period_end_date, 'YYYY')) into l_year2 from dual;
9632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_annualized_rate: ' || p_annualized_rate);
9633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_days_count_method: ' || p_days_count_method);
9634: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_start_date: ' || p_period_start_date);
9635: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_period_end_date: ' || p_period_end_date);
9636: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9637:
9638: select to_number(to_char(p_period_start_date, 'YYYY')) into l_year1 from dual;
9639: select to_number(to_char(p_period_end_date, 'YYYY')) into l_year2 from dual;
9640:
9648: l_years_count := 0;
9649:
9650: for k in l_year1..l_year2 loop
9651:
9652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ------ Calculating for year ' || k);
9653: l_periodic_rate := 0;
9654: l_rate1 := 0;
9655: l_day_count := 0;
9656: l_days_in_year := 0;
9666: else
9667: l_end_date := to_date('01/01/' || to_char(k+1),'DD/MM/YYYY');
9668: end if;
9669:
9670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_start_date = ' || l_start_date);
9671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_date = ' || l_end_date);
9672:
9673: l_day_count := LNS_FIN_UTILS.getDayCount(p_start_date => l_start_date
9674: ,p_end_date => l_end_date
9667: l_end_date := to_date('01/01/' || to_char(k+1),'DD/MM/YYYY');
9668: end if;
9669:
9670: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_start_date = ' || l_start_date);
9671: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_date = ' || l_end_date);
9672:
9673: l_day_count := LNS_FIN_UTILS.getDayCount(p_start_date => l_start_date
9674: ,p_end_date => l_end_date
9675: ,p_day_count_method => p_days_count_method);
9676:
9677: l_days_in_year := LNS_FIN_UTILS.daysInYear(p_year => k
9678: ,p_year_count_method => p_days_count_method);
9679:
9680: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_day_count = ' || l_day_count);
9681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_year = ' || l_days_in_year);
9682:
9683: get_factors(p_frequency => p_compound_freq,
9684: p_days_in_year => l_days_in_year,
9677: l_days_in_year := LNS_FIN_UTILS.daysInYear(p_year => k
9678: ,p_year_count_method => p_days_count_method);
9679:
9680: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_day_count = ' || l_day_count);
9681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_year = ' || l_days_in_year);
9682:
9683: get_factors(p_frequency => p_compound_freq,
9684: p_days_in_year => l_days_in_year,
9685: x_ppy => l_compounds_per_year,
9683: get_factors(p_frequency => p_compound_freq,
9684: p_days_in_year => l_days_in_year,
9685: x_ppy => l_compounds_per_year,
9686: x_days_in_period => l_days_in_period);
9687: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compounds per year = ' || l_compounds_per_year);
9688:
9689: get_factors(p_frequency => p_payment_freq,
9690: p_days_in_year => l_days_in_year,
9691: x_ppy => l_payments_per_year,
9689: get_factors(p_frequency => p_payment_freq,
9690: p_days_in_year => l_days_in_year,
9691: x_ppy => l_payments_per_year,
9692: x_days_in_period => l_days_in_period);
9693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payments_per_year = ' || l_payments_per_year);
9694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_period = ' || l_days_in_period);
9695:
9696: l_periodic_rate := l_day_count/l_days_in_period * (Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1);
9697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate = ' || l_periodic_rate);
9690: p_days_in_year => l_days_in_year,
9691: x_ppy => l_payments_per_year,
9692: x_days_in_period => l_days_in_period);
9693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payments_per_year = ' || l_payments_per_year);
9694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_period = ' || l_days_in_period);
9695:
9696: l_periodic_rate := l_day_count/l_days_in_period * (Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1);
9697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate = ' || l_periodic_rate);
9698:
9693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payments_per_year = ' || l_payments_per_year);
9694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_period = ' || l_days_in_period);
9695:
9696: l_periodic_rate := l_day_count/l_days_in_period * (Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1);
9697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate = ' || l_periodic_rate);
9698:
9699: l_total_periodic_rate := l_total_periodic_rate + l_periodic_rate;
9700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_total_periodic_rate = ' || l_total_periodic_rate);
9701:
9696: l_periodic_rate := l_day_count/l_days_in_period * (Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1);
9697: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_periodic_rate = ' || l_periodic_rate);
9698:
9699: l_total_periodic_rate := l_total_periodic_rate + l_periodic_rate;
9700: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_total_periodic_rate = ' || l_total_periodic_rate);
9701:
9702: end loop;
9703:
9704: else
9714: l_years_count := l_years_count + 1;
9715:
9716: end loop;
9717:
9718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9720:
9721: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9722: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_avrg_days_in_years = ' || l_avrg_days_in_years);
9715:
9716: end loop;
9717:
9718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9720:
9721: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9722: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_avrg_days_in_years = ' || l_avrg_days_in_years);
9723:
9718: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9719: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9720:
9721: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9722: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_avrg_days_in_years = ' || l_avrg_days_in_years);
9723:
9724: get_factors(p_frequency => p_payment_freq,
9725: p_days_in_year => l_avrg_days_in_years,
9726: x_ppy => l_payments_per_year,
9724: get_factors(p_frequency => p_payment_freq,
9725: p_days_in_year => l_avrg_days_in_years,
9726: x_ppy => l_payments_per_year,
9727: x_days_in_period => l_days_in_period);
9728: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': avarage payments per year = ' || l_payments_per_year);
9729:
9730: get_factors(p_frequency => p_compound_freq,
9731: p_days_in_year => l_avrg_days_in_years,
9732: x_ppy => l_compounds_per_year,
9730: get_factors(p_frequency => p_compound_freq,
9731: p_days_in_year => l_avrg_days_in_years,
9732: x_ppy => l_compounds_per_year,
9733: x_days_in_period => l_days_in_period);
9734: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compounds per year = ' || l_compounds_per_year);
9735:
9736: l_total_periodic_rate := Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1;
9737: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_total_periodic_rate = ' || l_total_periodic_rate);
9738:
9733: x_days_in_period => l_days_in_period);
9734: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compounds per year = ' || l_compounds_per_year);
9735:
9736: l_total_periodic_rate := Power((1+((p_annualized_rate)/(100*l_compounds_per_year))),(l_compounds_per_year/l_payments_per_year))-1;
9737: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_total_periodic_rate = ' || l_total_periodic_rate);
9738:
9739: end if;
9740:
9741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9737: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_total_periodic_rate = ' || l_total_periodic_rate);
9738:
9739: end if;
9740:
9741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_total_periodic_rate);
9743: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9744:
9745: return l_total_periodic_rate;
9738:
9739: end if;
9740:
9741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_total_periodic_rate);
9743: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9744:
9745: return l_total_periodic_rate;
9746:
9739: end if;
9740:
9741: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_total_periodic_rate);
9743: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9744:
9745: return l_total_periodic_rate;
9746:
9747: end getCompoundPeriodicRate;
9806:
9807: begin
9808:
9809: l_api_name := 'getPeriodicRate';
9810: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9807: begin
9808:
9809: l_api_name := 'getPeriodicRate';
9810: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9808:
9809: l_api_name := 'getPeriodicRate';
9810: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9816:
9809: l_api_name := 'getPeriodicRate';
9810: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9816:
9817: l_annual_rate := p_annualized_rate / 100;
9810: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9816:
9817: l_annual_rate := p_annualized_rate / 100;
9818: l_periodic_rate := 0;
9811: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_days_count_method);
9812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': annualized rate: ' || p_annualized_rate);
9813: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
9814: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
9815: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_target: ' || p_target);
9816:
9817: l_annual_rate := p_annualized_rate / 100;
9818: l_periodic_rate := 0;
9819:
9823: if p_target = 'INTEREST' then
9824:
9825: for k in l_year1..l_year2 loop
9826:
9827: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' ------ Calculating for year ' || k);
9828: l_rate1 := 0;
9829: l_day_count := 0;
9830: l_days_in_year := 0;
9831:
9840: else
9841: l_end_date := to_date('01/01/' || to_char(k+1),'DD/MM/YYYY');
9842: end if;
9843:
9844: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_start_date = ' || l_start_date);
9845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_date = ' || l_end_date);
9846:
9847: l_day_count := LNS_FIN_UTILS.getDayCount(p_start_date => l_start_date
9848: ,p_end_date => l_end_date
9841: l_end_date := to_date('01/01/' || to_char(k+1),'DD/MM/YYYY');
9842: end if;
9843:
9844: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_start_date = ' || l_start_date);
9845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_end_date = ' || l_end_date);
9846:
9847: l_day_count := LNS_FIN_UTILS.getDayCount(p_start_date => l_start_date
9848: ,p_end_date => l_end_date
9849: ,p_day_count_method => p_days_count_method);
9850:
9851: l_days_in_year := LNS_FIN_UTILS.daysInYear(p_year => k
9852: ,p_year_count_method => p_days_count_method);
9853:
9854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_day_count = ' || l_day_count);
9855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_year = ' || l_days_in_year);
9856:
9857: l_rate1 := (l_day_count / l_days_in_year) * l_annual_rate;
9858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate1 = ' || l_rate1);
9851: l_days_in_year := LNS_FIN_UTILS.daysInYear(p_year => k
9852: ,p_year_count_method => p_days_count_method);
9853:
9854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_day_count = ' || l_day_count);
9855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_year = ' || l_days_in_year);
9856:
9857: l_rate1 := (l_day_count / l_days_in_year) * l_annual_rate;
9858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate1 = ' || l_rate1);
9859:
9854: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_day_count = ' || l_day_count);
9855: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_days_in_year = ' || l_days_in_year);
9856:
9857: l_rate1 := (l_day_count / l_days_in_year) * l_annual_rate;
9858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate1 = ' || l_rate1);
9859:
9860: l_periodic_rate := l_periodic_rate + l_rate1;
9861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic rate = ' || l_periodic_rate);
9862:
9857: l_rate1 := (l_day_count / l_days_in_year) * l_annual_rate;
9858: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': rate1 = ' || l_rate1);
9859:
9860: l_periodic_rate := l_periodic_rate + l_rate1;
9861: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Periodic rate = ' || l_periodic_rate);
9862:
9863: end loop;
9864:
9865: else
9875: l_years_count := l_years_count + 1;
9876:
9877: end loop;
9878:
9879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9881:
9882: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': avarage days_in_year = ' || l_avrg_days_in_years);
9876:
9877: end loop;
9878:
9879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9881:
9882: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': avarage days_in_year = ' || l_avrg_days_in_years);
9884:
9879: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_years_count = ' || l_years_count);
9880: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total number of days in all years = ' || l_avrg_days_in_years);
9881:
9882: l_avrg_days_in_years := l_avrg_days_in_years / l_years_count;
9883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': avarage days_in_year = ' || l_avrg_days_in_years);
9884:
9885: get_factors(p_frequency => p_payment_freq,
9886: p_days_in_year => l_avrg_days_in_years,
9887: x_ppy => l_payments_per_year,
9885: get_factors(p_frequency => p_payment_freq,
9886: p_days_in_year => l_avrg_days_in_years,
9887: x_ppy => l_payments_per_year,
9888: x_days_in_period => l_days_in_period);
9889: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_payments_per_year = ' || l_payments_per_year);
9890:
9891: l_periodic_rate := l_annual_rate / l_payments_per_year;
9892:
9893: end if;
9891: l_periodic_rate := l_annual_rate / l_payments_per_year;
9892:
9893: end if;
9894:
9895: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9896: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_periodic_rate);
9897: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9898:
9899: return l_periodic_rate;
9892:
9893: end if;
9894:
9895: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9896: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_periodic_rate);
9897: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9898:
9899: return l_periodic_rate;
9900:
9893: end if;
9894:
9895: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '-------------');
9896: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Final Periodic rate ' || l_periodic_rate);
9897: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9898:
9899: return l_periodic_rate;
9900:
9901: end getPeriodicRate;
9955: l_api_name varchar2(20);
9956:
9957: begin
9958:
9959: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
9960:
9961: select rs.current_interest_rate into l_rate
9962: from lns_rate_schedules rs,
9963: lns_terms t,
9967: and rs.term_id = t.term_id
9968: and rs.start_date_active <= sysdate
9969: and rs.end_date_active >= sysdate;
9970:
9971: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
9972:
9973: return l_rate;
9974:
9975: Exception
9974:
9975: Exception
9976:
9977: When Others then
9978: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
9979: --seed this message
9980: -- FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
9981: -- FND_MSG_PUB.Add;
9982: -- RAISE FND_API.G_EXC_ERROR;
10098: l_api_name varchar2(30);
10099:
10100: begin
10101:
10102: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10103: -- need to check for NULLs
10104: l_rate_diff := ABS(p_rate_to_compare - p_last_period_rate);
10105: l_life_rate_diff := ABS(p_rate_to_compare - p_initial_rate);
10106: l_sign1 := 1;
10104: l_rate_diff := ABS(p_rate_to_compare - p_last_period_rate);
10105: l_life_rate_diff := ABS(p_rate_to_compare - p_initial_rate);
10106: l_sign1 := 1;
10107: l_sign2 := 1;
10108: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_rate_diff ' || l_rate_diff);
10109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_life_rate_diff ' || l_life_rate_diff);
10110:
10111: -- rate differentials go both ways
10112: if p_rate_to_compare < p_last_period_rate then
10105: l_life_rate_diff := ABS(p_rate_to_compare - p_initial_rate);
10106: l_sign1 := 1;
10107: l_sign2 := 1;
10108: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_rate_diff ' || l_rate_diff);
10109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_life_rate_diff ' || l_life_rate_diff);
10110:
10111: -- rate differentials go both ways
10112: if p_rate_to_compare < p_last_period_rate then
10113: l_sign1 := -1;
10121: l_new_rate := p_rate_to_compare;
10122:
10123: if l_new_rate > p_ceiling_rate and p_ceiling_rate is not null then
10124: l_new_rate := p_ceiling_rate;
10125: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - New Rate was above CEILING of: ' || p_ceiling_rate);
10126: end if;
10127:
10128: l_life_rate_diff := ABS(l_new_rate - p_initial_rate);
10129: if l_life_rate_diff > p_max_lifetime_adjustment and p_max_lifetime_adjustment is not null then
10126: end if;
10127:
10128: l_life_rate_diff := ABS(l_new_rate - p_initial_rate);
10129: if l_life_rate_diff > p_max_lifetime_adjustment and p_max_lifetime_adjustment is not null then
10130: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - New Rate was above life differential of: ' || l_life_rate_diff );
10131: l_new_rate := p_last_period_rate + (p_max_lifetime_adjustment * l_sign2);
10132: end if;
10133: l_rate_diff := ABS(l_new_rate - p_last_period_rate);
10134:
10132: end if;
10133: l_rate_diff := ABS(l_new_rate - p_last_period_rate);
10134:
10135: if l_rate_diff > p_max_period_adjustment and p_max_period_adjustment is not null then
10136: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - New rate was above adjustment differential of: ' || l_rate_diff);
10137: l_new_rate := p_last_period_rate + (p_max_period_adjustment * l_sign1);
10138: end if;
10139:
10140: if l_new_rate < p_floor_rate and p_floor_rate is not null then
10137: l_new_rate := p_last_period_rate + (p_max_period_adjustment * l_sign1);
10138: end if;
10139:
10140: if l_new_rate < p_floor_rate and p_floor_rate is not null then
10141: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - New Rate was below floor of ' || p_floor_rate );
10142: l_new_rate := p_floor_rate;
10143: end if;
10144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_rate ' || l_new_rate);
10145:
10140: if l_new_rate < p_floor_rate and p_floor_rate is not null then
10141: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - New Rate was below floor of ' || p_floor_rate );
10142: l_new_rate := p_floor_rate;
10143: end if;
10144: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_new_rate ' || l_new_rate);
10145:
10146: return l_new_rate;
10147:
10148: end calculateInterestRate;
10188: l_balance := -1;
10189: l_initial_amount := 0;
10190: l_billed_amount := 0;
10191: l_api_name := 'getRemainingBalance';
10192: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10193:
10194: Execute Immediate
10195: ' Select Loan_Status ' ||
10196: ' From lns_loan_headers_all ' ||
10254: ' where loan_id = :p_loan_id'
10255: into l_balance
10256: using p_loan_id;
10257:
10258: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remainingBalance: ' || l_balance);
10259: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10260:
10261: return l_balance;
10262: /*
10255: into l_balance
10256: using p_loan_id;
10257:
10258: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': remainingBalance: ' || l_balance);
10259: -- logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10260:
10261: return l_balance;
10262: /*
10263: Exception
10261: return l_balance;
10262: /*
10263: Exception
10264: When Others then
10265: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Error: ' || sqlerrm);
10266: --seed this message
10267: FND_MESSAGE.Set_Name('LNS', 'LNS_UNABLE_TO_COMPUTE_BALANCE');
10268: FND_MSG_PUB.Add;
10269: RAISE FND_API.G_EXC_ERROR;
10321: select nvl(BILL_ON_APPR_AMOUNT_FLAG, 'N')
10322: from lns_loan_headers_all
10323: where loan_id = p_loan_id;
10324: begin
10325: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date = ' || p_date);
10328: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
10329:
10322: from lns_loan_headers_all
10323: where loan_id = p_loan_id;
10324: begin
10325: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date = ' || p_date);
10328: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
10329:
10330: open c_get_bill_opt(p_loan_id);
10323: where loan_id = p_loan_id;
10324: begin
10325: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date = ' || p_date);
10328: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
10329:
10330: open c_get_bill_opt(p_loan_id);
10331: fetch c_get_bill_opt into l_bill_on_appr_amounts;
10324: begin
10325: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10326: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id = ' || p_loan_id);
10327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date = ' || p_date);
10328: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_based_on_terms = ' || p_based_on_terms);
10329:
10330: open c_get_bill_opt(p_loan_id);
10331: fetch c_get_bill_opt into l_bill_on_appr_amounts;
10332: close c_get_bill_opt;
10329:
10330: open c_get_bill_opt(p_loan_id);
10331: fetch c_get_bill_opt into l_bill_on_appr_amounts;
10332: close c_get_bill_opt;
10333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_bill_on_appr_amounts = ' || l_bill_on_appr_amounts);
10334:
10335: if l_bill_on_appr_amounts = 'N' then -- bill based on funding amounts
10336:
10337: if p_based_on_terms = 'CURRENT' then
10351: close c_get_loan_balance2;
10352:
10353: end if;
10354:
10355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
10356: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10357:
10358: return l_funded_amount;
10359: end;
10352:
10353: end if;
10354:
10355: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_funded_amount = ' || l_funded_amount);
10356: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
10357:
10358: return l_funded_amount;
10359: end;
10360:
10414:
10415:
10416: begin
10417: l_api_name := 'weightBalance';
10418: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || p_loan_activities.count);
10420: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10421: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10422: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_day_count_method: ' || p_day_count_method);
10415:
10416: begin
10417: l_api_name := 'weightBalance';
10418: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || p_loan_activities.count);
10420: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10421: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10422: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_day_count_method: ' || p_day_count_method);
10423:
10416: begin
10417: l_api_name := 'weightBalance';
10418: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || p_loan_activities.count);
10420: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10421: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10422: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_day_count_method: ' || p_day_count_method);
10423:
10424: -- sort activities by activity date
10417: l_api_name := 'weightBalance';
10418: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || p_loan_activities.count);
10420: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10421: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10422: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_day_count_method: ' || p_day_count_method);
10423:
10424: -- sort activities by activity date
10425:
10418: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
10419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || p_loan_activities.count);
10420: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10421: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10422: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_day_count_method: ' || p_day_count_method);
10423:
10424: -- sort activities by activity date
10425:
10426: -- # of days @ balance 1
10436: l_num_days := 0;
10437: l_weighted_balance := 0;
10438: l_total_activity_amount := 0;
10439: l_loan_activities := p_loan_activities;
10440: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - sorting the activities');
10441: sortRows(l_loan_activities);
10442:
10443: /*
10444: for j in 1..p_loan_activities.count
10456:
10457: for p in 1..m loop
10458: --dbms_output.put_line('p is ' || p);
10459: if l_loan_activities(p).activity_amount > 0 then
10460: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p ' || p);
10461: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity date: ' || l_loan_activities(p).activity_date);
10462: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity amount: ' || l_loan_activities(p).activity_amount);
10463: if p = 1 then
10464: -- this is for the previous balance
10457: for p in 1..m loop
10458: --dbms_output.put_line('p is ' || p);
10459: if l_loan_activities(p).activity_amount > 0 then
10460: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p ' || p);
10461: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity date: ' || l_loan_activities(p).activity_date);
10462: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity amount: ' || l_loan_activities(p).activity_amount);
10463: if p = 1 then
10464: -- this is for the previous balance
10465: l_num_days := LNS_FIN_UTILS.getDayCount(p_start_date => p_from_date
10458: --dbms_output.put_line('p is ' || p);
10459: if l_loan_activities(p).activity_amount > 0 then
10460: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p ' || p);
10461: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity date: ' || l_loan_activities(p).activity_date);
10462: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity amount: ' || l_loan_activities(p).activity_amount);
10463: if p = 1 then
10464: -- this is for the previous balance
10465: l_num_days := LNS_FIN_UTILS.getDayCount(p_start_date => p_from_date
10466: ,p_end_date => p_to_date
10479: if l_num_days > 0 then
10480: l_total_activity_amount := l_total_activity_amount + l_loan_activities(p).activity_amount;
10481: end if;
10482:
10483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - total activity amount: ' || l_total_activity_amount);
10484: --dbms_output.put_line('day count is ' || l_num_days);
10485: --dbms_output.put_line('balance is ' || p_loan_activities(p).ending_balance);
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10487: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_num_days: ' || l_num_days);
10482:
10483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - total activity amount: ' || l_total_activity_amount);
10484: --dbms_output.put_line('day count is ' || l_num_days);
10485: --dbms_output.put_line('balance is ' || p_loan_activities(p).ending_balance);
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10487: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_num_days: ' || l_num_days);
10488: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity_amount: ' || l_loan_activities(p).activity_amount);
10489: l_balance_days := l_balance_days + (l_num_days * l_loan_activities(p).activity_amount);
10490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - result l_balance_days: ' || l_balance_days);
10483: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - total activity amount: ' || l_total_activity_amount);
10484: --dbms_output.put_line('day count is ' || l_num_days);
10485: --dbms_output.put_line('balance is ' || p_loan_activities(p).ending_balance);
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10487: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_num_days: ' || l_num_days);
10488: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity_amount: ' || l_loan_activities(p).activity_amount);
10489: l_balance_days := l_balance_days + (l_num_days * l_loan_activities(p).activity_amount);
10490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - result l_balance_days: ' || l_balance_days);
10491: end if;
10484: --dbms_output.put_line('day count is ' || l_num_days);
10485: --dbms_output.put_line('balance is ' || p_loan_activities(p).ending_balance);
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10487: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_num_days: ' || l_num_days);
10488: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity_amount: ' || l_loan_activities(p).activity_amount);
10489: l_balance_days := l_balance_days + (l_num_days * l_loan_activities(p).activity_amount);
10490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - result l_balance_days: ' || l_balance_days);
10491: end if;
10492:
10486: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10487: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_num_days: ' || l_num_days);
10488: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - activity_amount: ' || l_loan_activities(p).activity_amount);
10489: l_balance_days := l_balance_days + (l_num_days * l_loan_activities(p).activity_amount);
10490: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - result l_balance_days: ' || l_balance_days);
10491: end if;
10492:
10493: end loop;
10494:
10496: l_total_Days := LNS_FIN_UTILS.getDayCount(p_start_date => p_from_date
10497: ,p_end_date => p_to_date
10498: ,p_day_count_method => p_day_count_method);
10499: -- dbms_output.put_line('total days is ' || l_total_Days );
10500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_days: ' || l_total_days);
10502: l_weighted_balance := l_balance_days / l_total_days;
10503: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_weighted_balance: ' || l_weighted_balance);
10504:
10497: ,p_end_date => p_to_date
10498: ,p_day_count_method => p_day_count_method);
10499: -- dbms_output.put_line('total days is ' || l_total_Days );
10500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_days: ' || l_total_days);
10502: l_weighted_balance := l_balance_days / l_total_days;
10503: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_weighted_balance: ' || l_weighted_balance);
10504:
10505: end if;
10499: -- dbms_output.put_line('total days is ' || l_total_Days );
10500: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_days: ' || l_total_days);
10502: l_weighted_balance := l_balance_days / l_total_days;
10503: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_weighted_balance: ' || l_weighted_balance);
10504:
10505: end if;
10506:
10507: return l_weighted_balance;
10631: i := 0;
10632: x_wtd_balance := 0;
10633: x_begin_balance := 0;
10634: x_end_balance := 0;
10635: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10632: x_wtd_balance := 0;
10633: x_begin_balance := 0;
10634: x_end_balance := 0;
10635: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10633: x_begin_balance := 0;
10634: x_end_balance := 0;
10635: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10641: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase: ' || p_phase);
10634: x_end_balance := 0;
10635: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10641: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase: ' || p_phase);
10642:
10635: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10641: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase: ' || p_phase);
10642:
10643: -- validate the from and to Dates
10636: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10641: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase: ' || p_phase);
10642:
10643: -- validate the from and to Dates
10644: if p_from_date > p_to_date then
10637: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_loan_id: ' || p_loan_id);
10639: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_calc_method: ' || p_calc_method);
10640: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_adj_amount: ' || p_adj_amount);
10641: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_phase: ' || p_phase);
10642:
10643: -- validate the from and to Dates
10644: if p_from_date > p_to_date then
10645: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
10660: ,l_activity_amount
10661: ,l_display_order;
10662: EXIT WHEN c_actual_balance%NOTFOUND;
10663:
10664: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10665: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10666: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10667: l_loan_activities(i).activity_date := l_activity_date;
10668: l_loan_activities(i).activity_amount := l_activity_amount;
10661: ,l_display_order;
10662: EXIT WHEN c_actual_balance%NOTFOUND;
10663:
10664: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10665: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10666: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10667: l_loan_activities(i).activity_date := l_activity_date;
10668: l_loan_activities(i).activity_amount := l_activity_amount;
10669: if i = 1 then
10662: EXIT WHEN c_actual_balance%NOTFOUND;
10663:
10664: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10665: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10666: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10667: l_loan_activities(i).activity_date := l_activity_date;
10668: l_loan_activities(i).activity_amount := l_activity_amount;
10669: if i = 1 then
10670: l_loan_activities(i).ending_balance := l_activity_amount;
10689: ,l_activity_amount
10690: ,l_display_order;
10691: EXIT WHEN c_theoretical_balance%NOTFOUND;
10692:
10693: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10695: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10696:
10697: if i = 1 then
10690: ,l_display_order;
10691: EXIT WHEN c_theoretical_balance%NOTFOUND;
10692:
10693: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10695: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10696:
10697: if i = 1 then
10698: l_activity_amount := l_activity_amount - p_adj_amount;
10691: EXIT WHEN c_theoretical_balance%NOTFOUND;
10692:
10693: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10694: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date = ' || l_activity_date);
10695: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10696:
10697: if i = 1 then
10698: l_activity_amount := l_activity_amount - p_adj_amount;
10699: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - NEW l_activity_amount = ' || l_activity_amount);
10695: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount = ' || l_activity_amount);
10696:
10697: if i = 1 then
10698: l_activity_amount := l_activity_amount - p_adj_amount;
10699: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - NEW l_activity_amount = ' || l_activity_amount);
10700:
10701: l_loan_activities(i).ending_balance := l_activity_amount;
10702: x_begin_balance := l_loan_activities(i).ending_balance;
10703: else
10714: close c_theoretical_balance;
10715:
10716: end if;
10717:
10718: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - getting wtd balance');
10719: x_wtd_balance := weightBalance(p_loan_activities => l_loan_activities
10720: ,p_from_date => p_from_date
10721: ,p_to_date => p_to_date
10722: ,p_day_count_method => p_day_count_method);
10725: FETCH c_curr_precision INTO l_precision;
10726: CLOSE c_curr_precision;
10727:
10728: x_wtd_balance := round(x_wtd_balance, l_precision);
10729: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_wtd_balance = ' || x_wtd_balance);
10730: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_begin_balance = ' || x_begin_balance);
10731: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_end_balance = ' || x_end_balance);
10732:
10733: end getWeightedBalance;
10726: CLOSE c_curr_precision;
10727:
10728: x_wtd_balance := round(x_wtd_balance, l_precision);
10729: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_wtd_balance = ' || x_wtd_balance);
10730: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_begin_balance = ' || x_begin_balance);
10731: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_end_balance = ' || x_end_balance);
10732:
10733: end getWeightedBalance;
10734:
10727:
10728: x_wtd_balance := round(x_wtd_balance, l_precision);
10729: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_wtd_balance = ' || x_wtd_balance);
10730: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_begin_balance = ' || x_begin_balance);
10731: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - x_end_balance = ' || x_end_balance);
10732:
10733: end getWeightedBalance;
10734:
10735:
10841: l_num_days := 0;
10842: l_total_days := 0;
10843: l_average_daily_balance:= 0;
10844: i := 0;
10845: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10846: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10847: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10848:
10849: -- validate the from and to Dates
10842: l_total_days := 0;
10843: l_average_daily_balance:= 0;
10844: i := 0;
10845: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10846: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10847: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10848:
10849: -- validate the from and to Dates
10850: if p_from_date > p_to_date then
10843: l_average_daily_balance:= 0;
10844: i := 0;
10845: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Begin');
10846: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_from_date: ' || p_from_date);
10847: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_to_date: ' || p_to_date);
10848:
10849: -- validate the from and to Dates
10850: if p_from_date > p_to_date then
10851: FND_MESSAGE.Set_Name('LNS', 'LNS_INVALID_ACTIVE_DATE');
10884: l_activity_date
10885: ,l_activity_amount
10886: ,l_end_balance;
10887: -- ,l_marker;
10888: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date: ' || l_activity_date);
10890: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount: ' || l_activity_amount);
10891: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10892: EXIT WHEN c_balance_history%NOTFOUND;
10885: ,l_activity_amount
10886: ,l_end_balance;
10887: -- ,l_marker;
10888: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date: ' || l_activity_date);
10890: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount: ' || l_activity_amount);
10891: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10892: EXIT WHEN c_balance_history%NOTFOUND;
10893:
10886: ,l_end_balance;
10887: -- ,l_marker;
10888: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date: ' || l_activity_date);
10890: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount: ' || l_activity_amount);
10891: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10892: EXIT WHEN c_balance_history%NOTFOUND;
10893:
10894: l_loan_activities(i).activity_date := l_activity_date;
10887: -- ,l_marker;
10888: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - #: ' || i);
10889: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_date: ' || l_activity_date);
10890: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_activity_amount: ' || l_activity_amount);
10891: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10892: EXIT WHEN c_balance_history%NOTFOUND;
10893:
10894: l_loan_activities(i).activity_date := l_activity_date;
10895: l_loan_activities(i).activity_amount := l_activity_amount;
10895: l_loan_activities(i).activity_amount := l_activity_amount;
10896: l_loan_activities(i).ending_balance := l_end_balance;
10897:
10898: END LOOP;
10899: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number of activities: ' || l_loan_activities.count);
10900:
10901: -- # of balance changes = l_loan_activities.count - 2
10902: -- # of days @ balance 1
10903: -- # of days @ balance 2
10961: --dbms_output.put_line('total days is ' || l_total_Days );
10962: l_average_daily_balance := l_balance_days / l_total_days;
10963: end if;
10964:
10965: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10966: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_balance: ' || l_total_days);
10967: --dbms_output.put_line('adb is ' || l_average_daily_balance);
10968: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10969: return round(l_average_daily_balance, l_loan_details.currency_precision);
10962: l_average_daily_balance := l_balance_days / l_total_days;
10963: end if;
10964:
10965: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10966: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_balance: ' || l_total_days);
10967: --dbms_output.put_line('adb is ' || l_average_daily_balance);
10968: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10969: return round(l_average_daily_balance, l_loan_details.currency_precision);
10970:
10964:
10965: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_balance_days: ' || l_balance_days);
10966: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_total_balance: ' || l_total_days);
10967: --dbms_output.put_line('adb is ' || l_average_daily_balance);
10968: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_end_balance: ' || l_end_balance);
10969: return round(l_average_daily_balance, l_loan_details.currency_precision);
10970:
10971: EXCEPTION
10972:
10971: EXCEPTION
10972:
10973: When others Then
10974: return -1;
10975: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - ' || sqlerrm);
10976:
10977:
10978: end getAverageDailyBalance;
10979:
11076:
11077: begin
11078:
11079: l_api_name := 'CALC_NORM_INTEREST';
11080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11077: begin
11078:
11079: l_api_name := 'CALC_NORM_INTEREST';
11080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11078:
11079: l_api_name := 'CALC_NORM_INTEREST';
11080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11079: l_api_name := 'CALC_NORM_INTEREST';
11080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11081: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11083: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11084: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11092: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': capitalized int: ' || p_CAP_AMOUNT);
11085: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11092: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': capitalized int: ' || p_CAP_AMOUNT);
11093:
11086: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11092: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': capitalized int: ' || p_CAP_AMOUNT);
11093:
11094: -- calculating normal and additional interest
11087: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11092: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': capitalized int: ' || p_CAP_AMOUNT);
11093:
11094: -- calculating normal and additional interest
11095: i := 1;
11088: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11089: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11090: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11091: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': adj amount: ' || p_adj_amount);
11092: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': capitalized int: ' || p_CAP_AMOUNT);
11093:
11094: -- calculating normal and additional interest
11095: i := 1;
11096: l_norm_interest := 0;
11102: OPEN c_curr_precision(p_loan_id);
11103: FETCH c_curr_precision INTO l_precision;
11104: CLOSE c_curr_precision;
11105:
11106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying trx history...');
11107:
11108: OPEN c_trx_activities(p_loan_id, p_period_start_date, p_period_end_date);
11109: LOOP
11110:
11118: ,l_display_order;
11119:
11120: EXIT WHEN c_trx_activities%NOTFOUND;
11121:
11122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11124: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11125:
11126: l_theory_balance := l_theory_balance + p_CAP_AMOUNT;
11119:
11120: EXIT WHEN c_trx_activities%NOTFOUND;
11121:
11122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11124: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11125:
11126: l_theory_balance := l_theory_balance + p_CAP_AMOUNT;
11127: -- normal interest
11120: EXIT WHEN c_trx_activities%NOTFOUND;
11121:
11122: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11123: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11124: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11125:
11126: l_theory_balance := l_theory_balance + p_CAP_AMOUNT;
11127: -- normal interest
11128: if l_activity_code = 'DISBURSEMENT' or l_activity_code = 'INVOICE_ADDED' then
11128: if l_activity_code = 'DISBURSEMENT' or l_activity_code = 'INVOICE_ADDED' then
11129: l_norm_prev_amount := l_theory_balance - l_activity_amount - p_adj_amount;
11130: end if;
11131:
11132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - ' || l_activity_date);
11134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11136:
11129: l_norm_prev_amount := l_theory_balance - l_activity_amount - p_adj_amount;
11130: end if;
11131:
11132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - ' || l_activity_date);
11134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11136:
11137: if (p_calc_method = 'SIMPLE') then
11130: end if;
11131:
11132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - ' || l_activity_date);
11134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11136:
11137: if (p_calc_method = 'SIMPLE') then
11138:
11131:
11132: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - ' || l_activity_date);
11134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11136:
11137: if (p_calc_method = 'SIMPLE') then
11138:
11139: -- recalculate periodic rate for each period if day counting methodolgy varies
11156: ,p_days_count_method => p_day_count_method
11157: ,p_target => 'INTEREST');
11158:
11159: end if;
11160: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_rate = ' || l_periodic_rate);
11161:
11162: l_norm_interest := lns_financials.calculateInterest(p_amount => l_norm_prev_amount
11163: ,p_periodic_rate => l_periodic_rate
11164: ,p_compounding_period => null);
11161:
11162: l_norm_interest := lns_financials.calculateInterest(p_amount => l_norm_prev_amount
11163: ,p_periodic_rate => l_periodic_rate
11164: ,p_compounding_period => null);
11165: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'normal interest = ' || l_norm_interest);
11166:
11167: if trunc(l_norm_prev_act_date) <> trunc(l_activity_date) then
11168: if l_norm_int_detail_str is not null then
11169: l_norm_int_detail_str := l_norm_int_detail_str || ' +
';
11171: l_norm_int_detail_str := l_norm_int_detail_str ||
11172: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_norm_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11173: ' * Balance ' || round(l_norm_prev_amount, l_precision) ||
11174: ' * Rate ' || p_interest_rate || '%';
11175: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
11176: end if;
11177:
11178: l_cum_norm_interest := l_cum_norm_interest + l_norm_interest;
11179: if l_activity_code = 'DISBURSEMENT' or l_activity_code = 'INVOICE_ADDED' then
11182: l_norm_prev_amount := l_theory_balance;
11183: end if;
11184: l_norm_prev_act_date := l_activity_date;
11185: i := i + 1;
11186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'cumulative normal interest = ' || l_cum_norm_interest);
11187:
11188: END LOOP;
11189: close c_trx_activities;
11190:
11193: l_activity_code := 'DUE';
11194: l_activity_amount := 0;
11195: l_days_late := 0;
11196:
11197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11194: l_activity_amount := 0;
11195: l_days_late := 0;
11196:
11197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11195: l_days_late := 0;
11196:
11197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11197: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11205:
11198: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11205:
11206: -- normal interest
11199: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11205:
11206: -- normal interest
11207: if (p_calc_method = 'SIMPLE') then
11200:
11201: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating normal interest...');
11202: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_norm_prev_act_date || ' - *' || l_activity_date);
11203: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_norm_prev_amount);
11204: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11205:
11206: -- normal interest
11207: if (p_calc_method = 'SIMPLE') then
11208:
11225: ,p_days_count_method => p_day_count_method
11226: ,p_target => 'INTEREST');
11227:
11228: end if;
11229: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_rate = ' || l_periodic_rate);
11230:
11231: l_norm_interest := lns_financials.calculateInterest(p_amount => l_norm_prev_amount
11232: ,p_periodic_rate => l_periodic_rate
11233: ,p_compounding_period => null);
11230:
11231: l_norm_interest := lns_financials.calculateInterest(p_amount => l_norm_prev_amount
11232: ,p_periodic_rate => l_periodic_rate
11233: ,p_compounding_period => null);
11234: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'normal interest = ' || l_norm_interest);
11235:
11236: if trunc(l_norm_prev_act_date) <> trunc(l_activity_date) then
11237: if l_norm_int_detail_str is not null then
11238: l_norm_int_detail_str := l_norm_int_detail_str || ' +
';
11240: l_norm_int_detail_str := l_norm_int_detail_str ||
11241: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_norm_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11242: ' * Balance ' || round(l_norm_prev_amount, l_precision) ||
11243: ' * Rate ' || p_interest_rate || '%';
11244: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_norm_int_detail_str);
11245: end if;
11246:
11247: l_cum_norm_interest := l_cum_norm_interest + l_norm_interest;
11248:
11248:
11249: x_norm_interest := round(l_cum_norm_interest, l_precision);
11250: x_norm_int_details := x_norm_interest || ' (' || l_norm_int_detail_str || ')';
11251:
11252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest = ' || x_norm_interest);
11253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest Details = ' || x_norm_int_details);
11254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11256:
11249: x_norm_interest := round(l_cum_norm_interest, l_precision);
11250: x_norm_int_details := x_norm_interest || ' (' || l_norm_int_detail_str || ')';
11251:
11252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest = ' || x_norm_interest);
11253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest Details = ' || x_norm_int_details);
11254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11256:
11257: end;
11250: x_norm_int_details := x_norm_interest || ' (' || l_norm_int_detail_str || ')';
11251:
11252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest = ' || x_norm_interest);
11253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest Details = ' || x_norm_int_details);
11254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11256:
11257: end;
11258:
11251:
11252: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest = ' || x_norm_interest);
11253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Normal Interest Details = ' || x_norm_int_details);
11254: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11256:
11257: end;
11258:
11259:
11353:
11354: begin
11355:
11356: l_api_name := 'CALC_ADD_INTEREST';
11357: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11354: begin
11355:
11356: l_api_name := 'CALC_ADD_INTEREST';
11357: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11355:
11356: l_api_name := 'CALC_ADD_INTEREST';
11357: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11356: l_api_name := 'CALC_ADD_INTEREST';
11357: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11357: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11358: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11359: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11360: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11361: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11362: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': start date: ' || p_period_start_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11363: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': end date: ' || p_period_end_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11364: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11372: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_end_date: ' || p_grace_end_date);
11365: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11372: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_end_date: ' || p_grace_end_date);
11373:
11366: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11372: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_end_date: ' || p_grace_end_date);
11373:
11374: x_add_interest := 0;
11367: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11372: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_end_date: ' || p_grace_end_date);
11373:
11374: x_add_interest := 0;
11375: x_penal_interest := 0;
11368: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': target: ' || p_target);
11369: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': penal_int_rate: ' || p_penal_int_rate);
11370: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': prev_grace_end_date: ' || p_prev_grace_end_date);
11371: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_start_date: ' || p_grace_start_date);
11372: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': grace_end_date: ' || p_grace_end_date);
11373:
11374: x_add_interest := 0;
11375: x_penal_interest := 0;
11376:
11377: -- fix for bug 8609721
11378: OPEN c_add_int_setting(p_loan_id, p_target);
11379: FETCH c_add_int_setting INTO l_add_int_setting;
11380: CLOSE c_add_int_setting;
11381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_setting = ' || l_add_int_setting);
11382:
11383: if (l_add_int_setting = 'N' or p_interest_rate = 0) and p_penal_int_rate = 0 then -- fix for bug 8609721
11384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculate additional interest is off and penal interest rate = 0');
11385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11380: CLOSE c_add_int_setting;
11381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_setting = ' || l_add_int_setting);
11382:
11383: if (l_add_int_setting = 'N' or p_interest_rate = 0) and p_penal_int_rate = 0 then -- fix for bug 8609721
11384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculate additional interest is off and penal interest rate = 0');
11385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11386: return;
11387: end if;
11388:
11381: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_add_int_setting = ' || l_add_int_setting);
11382:
11383: if (l_add_int_setting = 'N' or p_interest_rate = 0) and p_penal_int_rate = 0 then -- fix for bug 8609721
11384: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculate additional interest is off and penal interest rate = 0');
11385: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11386: return;
11387: end if;
11388:
11389: if p_period_start_date > p_period_end_date then
11386: return;
11387: end if;
11388:
11389: if p_period_start_date > p_period_end_date then
11390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11391: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11392: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11393: return;
11394: end if;
11387: end if;
11388:
11389: if p_period_start_date > p_period_end_date then
11390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11391: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11392: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11393: return;
11394: end if;
11395:
11388:
11389: if p_period_start_date > p_period_end_date then
11390: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11391: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': x_add_interest: ' || x_add_interest);
11392: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': exiting');
11393: return;
11394: end if;
11395:
11396: -- calculating normal and additional interest
11409: OPEN c_curr_precision(p_loan_id);
11410: FETCH c_curr_precision INTO l_precision;
11411: CLOSE c_curr_precision;
11412:
11413: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying trx history...');
11414:
11415: if p_target = 'UNPAID_PRIN' then
11416: OPEN c_trx_prin_activities(p_loan_id, p_period_start_date, p_period_end_date);
11417: elsif p_target = 'UNPAID_INT' then
11448:
11449: EXIT WHEN c_trx_int_activities%NOTFOUND;
11450: end if;
11451:
11452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11455:
11456: if l_add_prev_amount >= 0 then
11449: EXIT WHEN c_trx_int_activities%NOTFOUND;
11450: end if;
11451:
11452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11455:
11456: if l_add_prev_amount >= 0 then
11457:
11450: end if;
11451:
11452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11453: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11454: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11455:
11456: if l_add_prev_amount >= 0 then
11457:
11458: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11457:
11458: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11459:
11460: -- additional interest
11461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11465:
11458: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11459:
11460: -- additional interest
11461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11465:
11466: if (p_calc_method = 'SIMPLE') then
11459:
11460: -- additional interest
11461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11465:
11466: if (p_calc_method = 'SIMPLE') then
11467:
11460: -- additional interest
11461: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11462: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11463: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11464: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11465:
11466: if (p_calc_method = 'SIMPLE') then
11467:
11468: -- recalculate periodic rate for each period if day counting methodolgy varies
11485: ,p_days_count_method => p_day_count_method
11486: ,p_target => 'INTEREST');
11487:
11488: end if;
11489: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_rate = ' || l_periodic_rate);
11490:
11491: l_add_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11492: ,p_periodic_rate => l_periodic_rate
11493: ,p_compounding_period => null);
11490:
11491: l_add_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11492: ,p_periodic_rate => l_periodic_rate
11493: ,p_compounding_period => null);
11494: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'additional interest = ' || l_add_interest);
11495:
11496: if trunc(l_add_prev_act_date) <> trunc(l_activity_date) then
11497: if l_add_int_detail_str is not null then
11498: l_add_int_detail_str := l_add_int_detail_str || ' +
';
11500: l_add_int_detail_str := l_add_int_detail_str ||
11501: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_add_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11502: ' * Balance ' || round(l_add_prev_amount, l_precision) ||
11503: ' * Rate ' || p_interest_rate || '%';
11504: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_add_int_detail_str);
11505: end if;
11506:
11507: end if;
11508:
11527: end if;
11528: l_first_act_after_prev_grace := false;
11529: end if;
11530:
11531: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11532: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11534: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11535:
11528: l_first_act_after_prev_grace := false;
11529: end if;
11530:
11531: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11532: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11534: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11535:
11536: -- calc penal interest rate
11529: end if;
11530:
11531: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11532: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11534: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11535:
11536: -- calc penal interest rate
11537: if (p_calc_method = 'SIMPLE') then
11530:
11531: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11532: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - ' || l_activity_date);
11533: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11534: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11535:
11536: -- calc penal interest rate
11537: if (p_calc_method = 'SIMPLE') then
11538:
11555: ,p_target => 'INTEREST');
11556:
11557: end if;
11558:
11559: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'penal periodic_rate = ' || l_penal_period_rate);
11560:
11561: l_penal_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11562: ,p_periodic_rate => l_penal_period_rate
11563: ,p_compounding_period => null);
11560:
11561: l_penal_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11562: ,p_periodic_rate => l_penal_period_rate
11563: ,p_compounding_period => null);
11564: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'penal interest = ' || l_penal_interest);
11565:
11566: if trunc(l_add_prev_act_date) <> trunc(l_activity_date) then
11567: if l_penal_int_detail_str is not null then
11568: l_penal_int_detail_str := l_penal_int_detail_str || ' +
';
11570: l_penal_int_detail_str := l_penal_int_detail_str ||
11571: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_add_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11572: ' * Balance ' || round(l_add_prev_amount, l_precision) ||
11573: ' * Rate ' || p_penal_int_rate || '%';
11574: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_penal_int_detail_str);
11575: end if;
11576: end if;
11577:
11578: else
11575: end if;
11576: end if;
11577:
11578: else
11579: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ignoring this record b/c l_add_prev_amount < 0');
11580: end if;
11581:
11582: l_cum_add_interest := l_cum_add_interest + l_add_interest;
11583: l_cum_penal_interest := l_cum_penal_interest + l_penal_interest;
11580: end if;
11581:
11582: l_cum_add_interest := l_cum_add_interest + l_add_interest;
11583: l_cum_penal_interest := l_cum_penal_interest + l_penal_interest;
11584: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'cumulative additional interest = ' || l_cum_add_interest);
11585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'cumulative penal interest = ' || l_cum_penal_interest);
11586:
11587: if p_target = 'UNPAID_PRIN' then
11588: l_add_prev_amount := l_actual_balance - l_theory_balance;
11581:
11582: l_cum_add_interest := l_cum_add_interest + l_add_interest;
11583: l_cum_penal_interest := l_cum_penal_interest + l_penal_interest;
11584: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'cumulative additional interest = ' || l_cum_add_interest);
11585: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'cumulative penal interest = ' || l_cum_penal_interest);
11586:
11587: if p_target = 'UNPAID_PRIN' then
11588: l_add_prev_amount := l_actual_balance - l_theory_balance;
11589: elsif p_target = 'UNPAID_INT' then
11611: if p_interest_rate is not null then
11612: l_interest_rate := p_interest_rate;
11613: end if;
11614: */
11615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11616: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11617: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11618:
11619: if l_add_prev_amount >= 0 then
11612: l_interest_rate := p_interest_rate;
11613: end if;
11614: */
11615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11616: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11617: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11618:
11619: if l_add_prev_amount >= 0 then
11620: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11613: end if;
11614: */
11615: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
11616: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Act_Date Act Act_Amount Rate Theory_Bal Actual_Bal Days_Late');
11617: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '*' || l_activity_date || ' ' || l_activity_code || ' ' || l_activity_amount || ' ' || l_interest_rate || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
11618:
11619: if l_add_prev_amount >= 0 then
11620: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11621:
11618:
11619: if l_add_prev_amount >= 0 then
11620: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11621:
11622: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11623: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11626:
11619: if l_add_prev_amount >= 0 then
11620: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11621:
11622: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11623: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11626:
11627: -- additional interest
11620: if l_add_int_setting = 'Y' then -- fix for bug 8609721
11621:
11622: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11623: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11626:
11627: -- additional interest
11628: if (p_calc_method = 'SIMPLE') then
11621:
11622: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating additional interest...');
11623: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11624: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11625: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
11626:
11627: -- additional interest
11628: if (p_calc_method = 'SIMPLE') then
11629:
11647: ,p_days_count_method => p_day_count_method
11648: ,p_target => 'INTEREST');
11649:
11650: end if;
11651: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_rate = ' || l_periodic_rate);
11652:
11653: l_add_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11654: ,p_periodic_rate => l_periodic_rate
11655: ,p_compounding_period => null);
11652:
11653: l_add_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11654: ,p_periodic_rate => l_periodic_rate
11655: ,p_compounding_period => null);
11656: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'additional interest = ' || l_add_interest);
11657:
11658: if trunc(l_add_prev_act_date) <> trunc(l_activity_date) then
11659: if l_add_int_detail_str is not null then
11660: l_add_int_detail_str := l_add_int_detail_str || ' +
';
11662: l_add_int_detail_str := l_add_int_detail_str ||
11663: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_add_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11664: ' * Balance ' || round(l_add_prev_amount, l_precision) ||
11665: ' * Rate ' || p_interest_rate || '%';
11666: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_add_int_detail_str);
11667: end if;
11668:
11669: end if;
11670:
11689: end if;
11690: l_first_act_after_prev_grace := false;
11691: end if;
11692:
11693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11697:
11690: l_first_act_after_prev_grace := false;
11691: end if;
11692:
11693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11697:
11698: -- calc penal interest rate
11691: end if;
11692:
11693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11697:
11698: -- calc penal interest rate
11699: if (p_calc_method = 'SIMPLE') then
11692:
11693: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating penal interest...');
11694: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_add_prev_act_date || ' - *' || l_activity_date);
11695: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_add_prev_amount);
11696: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_penal_int_rate);
11697:
11698: -- calc penal interest rate
11699: if (p_calc_method = 'SIMPLE') then
11700:
11717: ,p_target => 'INTEREST');
11718:
11719: end if;
11720:
11721: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'penal periodic_rate = ' || l_penal_period_rate);
11722:
11723: l_penal_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11724: ,p_periodic_rate => l_penal_period_rate
11725: ,p_compounding_period => null);
11722:
11723: l_penal_interest := lns_financials.calculateInterest(p_amount => l_add_prev_amount
11724: ,p_periodic_rate => l_penal_period_rate
11725: ,p_compounding_period => null);
11726: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'penal interest = ' || l_penal_interest);
11727:
11728: if trunc(l_add_prev_act_date) <> trunc(l_activity_date) then
11729: if l_penal_int_detail_str is not null then
11730: l_penal_int_detail_str := l_penal_int_detail_str || ' +
';
11732: l_penal_int_detail_str := l_penal_int_detail_str ||
11733: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_add_prev_act_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_activity_date-1), 1) ||
11734: ' * Balance ' || round(l_add_prev_amount, l_precision) ||
11735: ' * Rate ' || p_penal_int_rate || '%';
11736: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_penal_int_detail_str);
11737: end if;
11738:
11739: end if;
11740:
11738:
11739: end if;
11740:
11741: else
11742: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Ignoring this record b/c l_add_prev_amount < 0');
11743: end if;
11744:
11745: l_cum_add_interest := l_cum_add_interest + l_add_interest;
11746: l_cum_penal_interest := l_cum_penal_interest + l_penal_interest;
11753: x_add_int_details := x_add_interest || ' (' || l_add_int_detail_str || ')';
11754: end if;
11755: x_penal_int_details := l_penal_int_detail_str;
11756:
11757: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest = ' || x_add_interest);
11758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest Details = ' || x_add_int_details);
11759:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11754: end if;
11755: x_penal_int_details := l_penal_int_detail_str;
11756:
11757: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest = ' || x_add_interest);
11758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest Details = ' || x_add_int_details);
11759:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11762:
11756:
11757: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest = ' || x_add_interest);
11758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest Details = ' || x_add_int_details);
11759:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11762:
11763: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11757: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest = ' || x_add_interest);
11758: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Additional Interest Details = ' || x_add_int_details);
11759:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11762:
11763: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11765:
11759:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11762:
11763: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11765:
11766: end;
11767:
11760: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest = ' || x_penal_interest);
11761: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Penal Interest Details = ' || x_penal_int_details);
11762:
11763: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
11764: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11765:
11766: end;
11767:
11768:
11776:
11777: l_num := 123.12;
11778:
11779: select to_char(l_num) into l_str from dual;
11780: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'number 123.12 => string ' || l_str);
11781:
11782: l_char := substr(l_str, 4, 1);
11783: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'number . => char ' || l_char);
11784:
11779: select to_char(l_num) into l_str from dual;
11780: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'number 123.12 => string ' || l_str);
11781:
11782: l_char := substr(l_str, 4, 1);
11783: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'number . => char ' || l_char);
11784:
11785: x_chars_to_replace := ',.';
11786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_chars_to_replace = ' || x_chars_to_replace);
11787: x_replace_chars := l_char || l_char;
11782: l_char := substr(l_str, 4, 1);
11783: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'number . => char ' || l_char);
11784:
11785: x_chars_to_replace := ',.';
11786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_chars_to_replace = ' || x_chars_to_replace);
11787: x_replace_chars := l_char || l_char;
11788: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_replace_chars = ' || x_replace_chars);
11789:
11790: END;
11784:
11785: x_chars_to_replace := ',.';
11786: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_chars_to_replace = ' || x_chars_to_replace);
11787: x_replace_chars := l_char || l_char;
11788: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'x_replace_chars = ' || x_replace_chars);
11789:
11790: END;
11791:
11792:
11833: VERSION = 1;
11834:
11835: BEGIN
11836:
11837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11838: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11839:
11840: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Fetching clob...');
11841: l_clob := empty_clob();
11834:
11835: BEGIN
11836:
11837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11838: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11839:
11840: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Fetching clob...');
11841: l_clob := empty_clob();
11842: open c_get_xml(p_loan_details.LOAN_ID);
11836:
11837: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11838: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
11839:
11840: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Fetching clob...');
11841: l_clob := empty_clob();
11842: open c_get_xml(p_loan_details.LOAN_ID);
11843: fetch c_get_xml into l_clob;
11844: close c_get_xml;
11841: l_clob := empty_clob();
11842: open c_get_xml(p_loan_details.LOAN_ID);
11843: fetch c_get_xml into l_clob;
11844: close c_get_xml;
11845: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'lenght = ' || length(l_clob));
11846:
11847: if length(l_clob) = 0 then
11848: x_loan_amort_tbl := l_amort_tbl;
11849: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Clob is empty. Returning.');
11845: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'lenght = ' || length(l_clob));
11846:
11847: if length(l_clob) = 0 then
11848: x_loan_amort_tbl := l_amort_tbl;
11849: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Clob is empty. Returning.');
11850: return;
11851: end if;
11852:
11853: -- Create a parser.
11850: return;
11851: end if;
11852:
11853: -- Create a parser.
11854: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Creating a parser...');
11855: l_parser := dbms_xmlparser.newParser;
11856:
11857: -- Parse the document and create a new DOM document.
11858: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Parsing the document and creating a new DOM document...');
11854: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Creating a parser...');
11855: l_parser := dbms_xmlparser.newParser;
11856:
11857: -- Parse the document and create a new DOM document.
11858: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Parsing the document and creating a new DOM document...');
11859: dbms_xmlparser.parseClob(l_parser, l_clob);
11860: l_doc := dbms_xmlparser.getDocument(l_parser);
11861:
11862: -- Free resources associated with the CLOB and Parser now they are no longer needed.
11859: dbms_xmlparser.parseClob(l_parser, l_clob);
11860: l_doc := dbms_xmlparser.getDocument(l_parser);
11861:
11862: -- Free resources associated with the CLOB and Parser now they are no longer needed.
11863: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Freeing resources...');
11864: dbms_xmlparser.freeParser(l_parser);
11865:
11866: get_char2num_conv_chars(l_chars_to_replace, l_replace_chars);
11867:
11865:
11866: get_char2num_conv_chars(l_chars_to_replace, l_replace_chars);
11867:
11868: -- Get a list of all the RATE_SCHEDULE_ROW nodes in the document using the XPATH syntax.
11869: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting a list of all the RATE_SCHEDULE_ROW nodes...');
11870: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/RATE_SCHEDULE/RATE_SCHEDULE_ROW');
11871: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11872: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Rate schedule:');
11873: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FROM TO RATE');
11867:
11868: -- Get a list of all the RATE_SCHEDULE_ROW nodes in the document using the XPATH syntax.
11869: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting a list of all the RATE_SCHEDULE_ROW nodes...');
11870: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/RATE_SCHEDULE/RATE_SCHEDULE_ROW');
11871: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11872: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Rate schedule:');
11873: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FROM TO RATE');
11874: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '---- ---- ----');
11875:
11868: -- Get a list of all the RATE_SCHEDULE_ROW nodes in the document using the XPATH syntax.
11869: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting a list of all the RATE_SCHEDULE_ROW nodes...');
11870: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/RATE_SCHEDULE/RATE_SCHEDULE_ROW');
11871: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11872: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Rate schedule:');
11873: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FROM TO RATE');
11874: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '---- ---- ----');
11875:
11876: i := 0;
11869: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting a list of all the RATE_SCHEDULE_ROW nodes...');
11870: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/RATE_SCHEDULE/RATE_SCHEDULE_ROW');
11871: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11872: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Rate schedule:');
11873: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FROM TO RATE');
11874: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '---- ---- ----');
11875:
11876: i := 0;
11877: l_unknown_date_format := '?';
11870: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/RATE_SCHEDULE/RATE_SCHEDULE_ROW');
11871: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11872: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Rate schedule:');
11873: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FROM TO RATE');
11874: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '---- ---- ----');
11875:
11876: i := 0;
11877: l_unknown_date_format := '?';
11878: FOR cur_emp IN 0 .. dbms_xmldom.getLength(l_nl) - 1 LOOP
11885: l_rate_schedule(i).END_INSTALLMENT_NUMBER := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11886: dbms_xslprocessor.valueOf(l_n,'INTEREST_RATE/text()',l_data);
11887: l_rate_schedule(i).ANNUAL_RATE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11888:
11889: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME,
11890: l_rate_schedule(i).BEGIN_INSTALLMENT_NUMBER || ' ' ||
11891: l_rate_schedule(i).END_INSTALLMENT_NUMBER || ' ' ||
11892: l_rate_schedule(i).ANNUAL_RATE);
11893: END LOOP;
11892: l_rate_schedule(i).ANNUAL_RATE);
11893: END LOOP;
11894:
11895: -- Get a list of all the AMORTIZATION_ROW nodes in the document using the XPATH syntax.
11896: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting a list of all the AMORTIZATION_ROW nodes...');
11897: l_nl := dbms_xslprocessor.selectNodes(dbms_xmldom.makeNode(l_doc),'/LNSAGREEMENT/ROWSET/ROW/AMORTIZATION/AMORTIZATION_ROW');
11898:
11899: -- Loop through the list and create a new record in a tble collection
11900: -- for each EMP record.
11905: FOR cur_emp IN 0 .. dbms_xmldom.getLength(l_nl) - 1 LOOP
11906: l_n := dbms_xmldom.item(l_nl, cur_emp);
11907: i := i+1;
11908:
11909: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11910:
11911: -- Use XPATH syntax to assign values to he elements of the collection.
11912: dbms_xslprocessor.valueOf(l_n,'PAYMENT_NUMBER/text()',l_data);
11913: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_NUMBER data = ' || l_data);
11909: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
11910:
11911: -- Use XPATH syntax to assign values to he elements of the collection.
11912: dbms_xslprocessor.valueOf(l_n,'PAYMENT_NUMBER/text()',l_data);
11913: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_NUMBER data = ' || l_data);
11914: l_amort_tbl(i).INSTALLMENT_NUMBER := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11915:
11916: dbms_xslprocessor.valueOf(l_n,'DUE_DATE/text()',l_data);
11917: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DUE_DATE data = ' || l_data);
11913: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_NUMBER data = ' || l_data);
11914: l_amort_tbl(i).INSTALLMENT_NUMBER := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11915:
11916: dbms_xslprocessor.valueOf(l_n,'DUE_DATE/text()',l_data);
11917: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DUE_DATE data = ' || l_data);
11918:
11919: if l_date_format is null then
11920: -- convert due date logic:
11921: -- 1. trying 11i format DD-MON-RRRR
11922: -- 2. trying old R12 format MM/DD/YYYY
11923: -- 3. trying new R12 format YYYY-MM-DD
11924: BEGIN
11925: l_date_format := 'DD-MON-RRRR'; -- 11i code used fnd_date.date_to_chardate api which used this hardcoded date format
11926: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using 11i format ' || l_date_format || '...');
11927: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11928: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11929: EXCEPTION
11930: WHEN OTHERS THEN
11924: BEGIN
11925: l_date_format := 'DD-MON-RRRR'; -- 11i code used fnd_date.date_to_chardate api which used this hardcoded date format
11926: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using 11i format ' || l_date_format || '...');
11927: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11928: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11929: EXCEPTION
11930: WHEN OTHERS THEN
11931: BEGIN
11932: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11928: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11929: EXCEPTION
11930: WHEN OTHERS THEN
11931: BEGIN
11932: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11933: l_date_format := 'MM/DD/YYYY';
11934: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using old R12 format ' || l_date_format || '...');
11935: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11936: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11930: WHEN OTHERS THEN
11931: BEGIN
11932: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11933: l_date_format := 'MM/DD/YYYY';
11934: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using old R12 format ' || l_date_format || '...');
11935: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11936: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11937: EXCEPTION
11938: WHEN OTHERS THEN
11932: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11933: l_date_format := 'MM/DD/YYYY';
11934: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using old R12 format ' || l_date_format || '...');
11935: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11936: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11937: EXCEPTION
11938: WHEN OTHERS THEN
11939: BEGIN
11940: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11936: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11937: EXCEPTION
11938: WHEN OTHERS THEN
11939: BEGIN
11940: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11941: l_date_format := 'YYYY-MM-DD';
11942: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using new R12 format ' || l_date_format || '...');
11943: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11944: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11938: WHEN OTHERS THEN
11939: BEGIN
11940: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11941: l_date_format := 'YYYY-MM-DD';
11942: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using new R12 format ' || l_date_format || '...');
11943: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11944: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11945: EXCEPTION
11946: WHEN OTHERS THEN
11940: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11941: l_date_format := 'YYYY-MM-DD';
11942: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Trying to convert using new R12 format ' || l_date_format || '...');
11943: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11944: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11945: EXCEPTION
11946: WHEN OTHERS THEN
11947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11948: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Oh well, we tried hard. Unknown date format. No due date then :(');
11943: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11944: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11945: EXCEPTION
11946: WHEN OTHERS THEN
11947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11948: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Oh well, we tried hard. Unknown date format. No due date then :(');
11949: l_amort_tbl(i).DUE_DATE := to_date(null);
11950: l_date_format := l_unknown_date_format;
11951: END;
11944: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Success!');
11945: EXCEPTION
11946: WHEN OTHERS THEN
11947: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Failed. ERROR: ' || sqlerrm);
11948: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Oh well, we tried hard. Unknown date format. No due date then :(');
11949: l_amort_tbl(i).DUE_DATE := to_date(null);
11950: l_date_format := l_unknown_date_format;
11951: END;
11952: END;
11951: END;
11952: END;
11953: END;
11954: elsif l_date_format = l_unknown_date_format then
11955: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Date format is unknown, setting due date to null');
11956: l_amort_tbl(i).DUE_DATE := to_date(null);
11957: else
11958: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Date format = ' || l_date_format);
11959: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11954: elsif l_date_format = l_unknown_date_format then
11955: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Date format is unknown, setting due date to null');
11956: l_amort_tbl(i).DUE_DATE := to_date(null);
11957: else
11958: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Date format = ' || l_date_format);
11959: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11960: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Due date is converted successfully');
11961: end if;
11962:
11956: l_amort_tbl(i).DUE_DATE := to_date(null);
11957: else
11958: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Date format = ' || l_date_format);
11959: l_amort_tbl(i).DUE_DATE := to_date(l_data, l_date_format);
11960: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Due date is converted successfully');
11961: end if;
11962:
11963: dbms_xslprocessor.valueOf(l_n,'PAYMENT_PRINCIPAL/text()',l_data);
11964: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_PRINCIPAL data = ' || l_data);
11960: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Due date is converted successfully');
11961: end if;
11962:
11963: dbms_xslprocessor.valueOf(l_n,'PAYMENT_PRINCIPAL/text()',l_data);
11964: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_PRINCIPAL data = ' || l_data);
11965: l_amort_tbl(i).PRINCIPAL_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11966:
11967: dbms_xslprocessor.valueOf(l_n,'PAYMENT_INTEREST/text()',l_data);
11968: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_INTEREST data = ' || l_data);
11964: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_PRINCIPAL data = ' || l_data);
11965: l_amort_tbl(i).PRINCIPAL_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11966:
11967: dbms_xslprocessor.valueOf(l_n,'PAYMENT_INTEREST/text()',l_data);
11968: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_INTEREST data = ' || l_data);
11969: l_amort_tbl(i).INTEREST_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11970:
11971: dbms_xslprocessor.valueOf(l_n,'PAYMENT_FEES/text()',l_data);
11972: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_FEES data = ' || l_data);
11968: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_INTEREST data = ' || l_data);
11969: l_amort_tbl(i).INTEREST_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11970:
11971: dbms_xslprocessor.valueOf(l_n,'PAYMENT_FEES/text()',l_data);
11972: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_FEES data = ' || l_data);
11973: l_amort_tbl(i).FEE_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11974:
11975: dbms_xslprocessor.valueOf(l_n,'OTHER_AMOUNT/text()',l_data);
11976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'OTHER_AMOUNT data = ' || l_data);
11972: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_FEES data = ' || l_data);
11973: l_amort_tbl(i).FEE_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11974:
11975: dbms_xslprocessor.valueOf(l_n,'OTHER_AMOUNT/text()',l_data);
11976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'OTHER_AMOUNT data = ' || l_data);
11977: l_amort_tbl(i).OTHER_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11978:
11979: dbms_xslprocessor.valueOf(l_n,'PAYMENT_TOTAL/text()',l_data);
11980: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_TOTAL data = ' || l_data);
11976: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'OTHER_AMOUNT data = ' || l_data);
11977: l_amort_tbl(i).OTHER_AMOUNT := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11978:
11979: dbms_xslprocessor.valueOf(l_n,'PAYMENT_TOTAL/text()',l_data);
11980: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_TOTAL data = ' || l_data);
11981: l_amort_tbl(i).TOTAL := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11982:
11983: dbms_xslprocessor.valueOf(l_n,'BEGINNING_BALANCE/text()',l_data);
11984: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'BEGINNING_BALANCE data = ' || l_data);
11980: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PAYMENT_TOTAL data = ' || l_data);
11981: l_amort_tbl(i).TOTAL := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11982:
11983: dbms_xslprocessor.valueOf(l_n,'BEGINNING_BALANCE/text()',l_data);
11984: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'BEGINNING_BALANCE data = ' || l_data);
11985: l_amort_tbl(i).BEGIN_BALANCE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11986:
11987: dbms_xslprocessor.valueOf(l_n,'ENDING_BALANCE/text()',l_data);
11988: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ENDING_BALANCE data = ' || l_data);
11984: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'BEGINNING_BALANCE data = ' || l_data);
11985: l_amort_tbl(i).BEGIN_BALANCE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11986:
11987: dbms_xslprocessor.valueOf(l_n,'ENDING_BALANCE/text()',l_data);
11988: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ENDING_BALANCE data = ' || l_data);
11989: l_amort_tbl(i).END_BALANCE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11990:
11991: dbms_xslprocessor.valueOf(l_n,'INTEREST_CUMULATIVE/text()',l_data);
11992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_CUMULATIVE data = ' || l_data);
11988: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ENDING_BALANCE data = ' || l_data);
11989: l_amort_tbl(i).END_BALANCE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11990:
11991: dbms_xslprocessor.valueOf(l_n,'INTEREST_CUMULATIVE/text()',l_data);
11992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_CUMULATIVE data = ' || l_data);
11993: l_amort_tbl(i).INTEREST_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11994:
11995: dbms_xslprocessor.valueOf(l_n,'PRINCIPAL_CUMULATIVE/text()',l_data);
11996: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRINCIPAL_CUMULATIVE data = ' || l_data);
11992: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INTEREST_CUMULATIVE data = ' || l_data);
11993: l_amort_tbl(i).INTEREST_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11994:
11995: dbms_xslprocessor.valueOf(l_n,'PRINCIPAL_CUMULATIVE/text()',l_data);
11996: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRINCIPAL_CUMULATIVE data = ' || l_data);
11997: l_amort_tbl(i).PRINCIPAL_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11998:
11999: dbms_xslprocessor.valueOf(l_n,'FEES_CUMULATIVE/text()',l_data);
12000: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FEES_CUMULATIVE data = ' || l_data);
11996: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRINCIPAL_CUMULATIVE data = ' || l_data);
11997: l_amort_tbl(i).PRINCIPAL_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
11998:
11999: dbms_xslprocessor.valueOf(l_n,'FEES_CUMULATIVE/text()',l_data);
12000: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FEES_CUMULATIVE data = ' || l_data);
12001: l_amort_tbl(i).FEES_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
12002:
12003: dbms_xslprocessor.valueOf(l_n,'OTHER_CUMULATIVE/text()',l_data);
12004: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'OTHER_CUMULATIVE data = ' || l_data);
12000: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FEES_CUMULATIVE data = ' || l_data);
12001: l_amort_tbl(i).FEES_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
12002:
12003: dbms_xslprocessor.valueOf(l_n,'OTHER_CUMULATIVE/text()',l_data);
12004: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'OTHER_CUMULATIVE data = ' || l_data);
12005: l_amort_tbl(i).OTHER_CUMULATIVE := to_number(nvl(translate(l_data, l_chars_to_replace, l_replace_chars), 0));
12006:
12007: dbms_xslprocessor.valueOf(l_n,'SOURCE/text()',l_data);
12008: l_amort_tbl(i).SOURCE := l_data;
12007: dbms_xslprocessor.valueOf(l_n,'SOURCE/text()',l_data);
12008: l_amort_tbl(i).SOURCE := l_data;
12009:
12010: dbms_xslprocessor.valueOf(l_n,'NORMAL_INT_AMOUNT/text()',l_data);
12011: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT data = ' || l_data);
12012: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12013: if l_value is not null then
12014: l_amort_tbl(i).NORMAL_INT_AMOUNT := to_number(l_value);
12015: else
12014: l_amort_tbl(i).NORMAL_INT_AMOUNT := to_number(l_value);
12015: else
12016: l_amort_tbl(i).NORMAL_INT_AMOUNT := l_amort_tbl(i).INTEREST_AMOUNT;
12017: end if;
12018: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amort_tbl(i).NORMAL_INT_AMOUNT);
12019:
12020: dbms_xslprocessor.valueOf(l_n,'PREV_DEFERRED_INT_AMOUNT/text()',l_data);
12021: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_DEFERRED_INT_AMOUNT data = ' || l_data);
12022: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12017: end if;
12018: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_AMOUNT = ' || l_amort_tbl(i).NORMAL_INT_AMOUNT);
12019:
12020: dbms_xslprocessor.valueOf(l_n,'PREV_DEFERRED_INT_AMOUNT/text()',l_data);
12021: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_DEFERRED_INT_AMOUNT data = ' || l_data);
12022: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12023: if l_value is not null then
12024: l_amort_tbl(i).PREV_DEFERRED_INT_AMOUNT := to_number(l_value);
12025: else
12024: l_amort_tbl(i).PREV_DEFERRED_INT_AMOUNT := to_number(l_value);
12025: else
12026: l_amort_tbl(i).PREV_DEFERRED_INT_AMOUNT := 0;
12027: end if;
12028: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_DEFERRED_INT_AMOUNT = ' || l_amort_tbl(i).PREV_DEFERRED_INT_AMOUNT);
12029:
12030: dbms_xslprocessor.valueOf(l_n,'DEFERRED_INT_AMOUNT/text()',l_data);
12031: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_AMOUNT data = ' || l_data);
12032: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12027: end if;
12028: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_DEFERRED_INT_AMOUNT = ' || l_amort_tbl(i).PREV_DEFERRED_INT_AMOUNT);
12029:
12030: dbms_xslprocessor.valueOf(l_n,'DEFERRED_INT_AMOUNT/text()',l_data);
12031: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_AMOUNT data = ' || l_data);
12032: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12033: if l_value is not null then
12034: l_amort_tbl(i).DEFERRED_INT_AMOUNT := to_number(l_value);
12035: else
12034: l_amort_tbl(i).DEFERRED_INT_AMOUNT := to_number(l_value);
12035: else
12036: l_amort_tbl(i).DEFERRED_INT_AMOUNT := 0;
12037: end if;
12038: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_AMOUNT = ' || l_amort_tbl(i).DEFERRED_INT_AMOUNT);
12039:
12040: dbms_xslprocessor.valueOf(l_n,'PREV_CAP_INT_AMOUNT/text()',l_data);
12041: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT data = ' || l_data);
12042: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12037: end if;
12038: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_AMOUNT = ' || l_amort_tbl(i).DEFERRED_INT_AMOUNT);
12039:
12040: dbms_xslprocessor.valueOf(l_n,'PREV_CAP_INT_AMOUNT/text()',l_data);
12041: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT data = ' || l_data);
12042: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12043: if l_value is not null then
12044: l_amort_tbl(i).PREV_CAP_INT_AMOUNT := to_number(l_value);
12045: else
12044: l_amort_tbl(i).PREV_CAP_INT_AMOUNT := to_number(l_value);
12045: else
12046: l_amort_tbl(i).PREV_CAP_INT_AMOUNT := 0;
12047: end if;
12048: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amort_tbl(i).PREV_CAP_INT_AMOUNT);
12049:
12050: dbms_xslprocessor.valueOf(l_n,'CURR_CAP_INT_AMOUNT/text()',l_data);
12051: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT data = ' || l_data);
12052: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12047: end if;
12048: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PREV_CAP_INT_AMOUNT = ' || l_amort_tbl(i).PREV_CAP_INT_AMOUNT);
12049:
12050: dbms_xslprocessor.valueOf(l_n,'CURR_CAP_INT_AMOUNT/text()',l_data);
12051: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT data = ' || l_data);
12052: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12053: if l_value is not null then
12054: l_amort_tbl(i).CURR_CAP_INT_AMOUNT := to_number(l_value);
12055: else
12054: l_amort_tbl(i).CURR_CAP_INT_AMOUNT := to_number(l_value);
12055: else
12056: l_amort_tbl(i).CURR_CAP_INT_AMOUNT := 0;
12057: end if;
12058: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amort_tbl(i).CURR_CAP_INT_AMOUNT);
12059:
12060: dbms_xslprocessor.valueOf(l_n,'CAP_INT_AMOUNT/text()',l_data);
12061: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT data = ' || l_data);
12062: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12057: end if;
12058: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CURR_CAP_INT_AMOUNT = ' || l_amort_tbl(i).CURR_CAP_INT_AMOUNT);
12059:
12060: dbms_xslprocessor.valueOf(l_n,'CAP_INT_AMOUNT/text()',l_data);
12061: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT data = ' || l_data);
12062: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12063: if l_value is not null then
12064: l_amort_tbl(i).CAP_INT_AMOUNT := to_number(l_value);
12065: else
12064: l_amort_tbl(i).CAP_INT_AMOUNT := to_number(l_value);
12065: else
12066: l_amort_tbl(i).CAP_INT_AMOUNT := 0;
12067: end if;
12068: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amort_tbl(i).CAP_INT_AMOUNT);
12069:
12070: dbms_xslprocessor.valueOf(l_n,'NORMAL_INT_DETAILS/text()',l_data);
12071: l_amort_tbl(i).NORMAL_INT_DETAILS := l_data;
12072: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amort_tbl(i).NORMAL_INT_DETAILS);
12068: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_AMOUNT = ' || l_amort_tbl(i).CAP_INT_AMOUNT);
12069:
12070: dbms_xslprocessor.valueOf(l_n,'NORMAL_INT_DETAILS/text()',l_data);
12071: l_amort_tbl(i).NORMAL_INT_DETAILS := l_data;
12072: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amort_tbl(i).NORMAL_INT_DETAILS);
12073:
12074: dbms_xslprocessor.valueOf(l_n,'DEFERRED_INT_DETAILS/text()',l_data);
12075: l_amort_tbl(i).DEFERRED_INT_DETAILS := l_data;
12076: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_DETAILS = ' || l_amort_tbl(i).DEFERRED_INT_DETAILS);
12072: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'NORMAL_INT_DETAILS = ' || l_amort_tbl(i).NORMAL_INT_DETAILS);
12073:
12074: dbms_xslprocessor.valueOf(l_n,'DEFERRED_INT_DETAILS/text()',l_data);
12075: l_amort_tbl(i).DEFERRED_INT_DETAILS := l_data;
12076: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_DETAILS = ' || l_amort_tbl(i).DEFERRED_INT_DETAILS);
12077:
12078: dbms_xslprocessor.valueOf(l_n,'CAP_INT_DETAILS/text()',l_data);
12079: l_amort_tbl(i).CAP_INT_DETAILS := l_data;
12080: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amort_tbl(i).CAP_INT_DETAILS);
12076: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DEFERRED_INT_DETAILS = ' || l_amort_tbl(i).DEFERRED_INT_DETAILS);
12077:
12078: dbms_xslprocessor.valueOf(l_n,'CAP_INT_DETAILS/text()',l_data);
12079: l_amort_tbl(i).CAP_INT_DETAILS := l_data;
12080: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amort_tbl(i).CAP_INT_DETAILS);
12081:
12082: dbms_xslprocessor.valueOf(l_n,'DISBURSEMENT_AMOUNT/text()',l_data);
12083: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISBURSEMENT_AMOUNT data = ' || l_data);
12084: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12079: l_amort_tbl(i).CAP_INT_DETAILS := l_data;
12080: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'CAP_INT_DETAILS = ' || l_amort_tbl(i).CAP_INT_DETAILS);
12081:
12082: dbms_xslprocessor.valueOf(l_n,'DISBURSEMENT_AMOUNT/text()',l_data);
12083: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISBURSEMENT_AMOUNT data = ' || l_data);
12084: l_value := translate(l_data, l_chars_to_replace, l_replace_chars);
12085: if l_value is not null then
12086: l_amort_tbl(i).DISBURSEMENT_AMOUNT := to_number(l_value);
12087: else
12093: l_amort_tbl(i).DISBURSEMENT_AMOUNT :=
12094: abs(l_amort_tbl(i).BEGIN_BALANCE - l_amort_tbl(i).END_BALANCE - l_amort_tbl(i).PRINCIPAL_AMOUNT) +
12095: (l_amort_tbl(i).BEGIN_BALANCE - l_adj);
12096: end if;
12097: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'DISBURSEMENT_AMOUNT = ' || l_amort_tbl(i).DISBURSEMENT_AMOUNT);
12098:
12099: FOR j IN 1 .. l_rate_schedule.count LOOP
12100: if l_amort_tbl(i).INSTALLMENT_NUMBER >= l_rate_schedule(j).BEGIN_INSTALLMENT_NUMBER and
12101: l_amort_tbl(i).INSTALLMENT_NUMBER <= l_rate_schedule(j).END_INSTALLMENT_NUMBER
12126: l_period_start_date := l_amort_tbl(i).PERIOD_END_DATE;
12127:
12128: END LOOP;
12129:
12130: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12131: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original amortization schedule:');
12132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PN DD RATE BB PAY PRIN INT FEE OTHER EB');
12133: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--- ------- ---- ------ ------ ------ ------ ------ ------ ------');
12134:
12127:
12128: END LOOP;
12129:
12130: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12131: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original amortization schedule:');
12132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PN DD RATE BB PAY PRIN INT FEE OTHER EB');
12133: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--- ------- ---- ------ ------ ------ ------ ------ ------ ------');
12134:
12135: FOR i IN 1 .. l_amort_tbl.count LOOP
12128: END LOOP;
12129:
12130: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12131: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original amortization schedule:');
12132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PN DD RATE BB PAY PRIN INT FEE OTHER EB');
12133: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--- ------- ---- ------ ------ ------ ------ ------ ------ ------');
12134:
12135: FOR i IN 1 .. l_amort_tbl.count LOOP
12136: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME,
12129:
12130: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12131: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Original amortization schedule:');
12132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PN DD RATE BB PAY PRIN INT FEE OTHER EB');
12133: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--- ------- ---- ------ ------ ------ ------ ------ ------ ------');
12134:
12135: FOR i IN 1 .. l_amort_tbl.count LOOP
12136: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME,
12137: l_amort_tbl(i).INSTALLMENT_NUMBER || ' ' ||
12132: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PN DD RATE BB PAY PRIN INT FEE OTHER EB');
12133: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--- ------- ---- ------ ------ ------ ------ ------ ------ ------');
12134:
12135: FOR i IN 1 .. l_amort_tbl.count LOOP
12136: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME,
12137: l_amort_tbl(i).INSTALLMENT_NUMBER || ' ' ||
12138: l_amort_tbl(i).DUE_DATE || ' ' ||
12139: l_amort_tbl(i).INTEREST_RATE || ' ' ||
12140: l_amort_tbl(i).BEGIN_BALANCE || ' ' ||
12147: END LOOP;
12148:
12149: -- Free any resources associated with the document now it
12150: -- is no longer needed.
12151: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Freeing resources...');
12152: dbms_xmldom.freeDocument(l_doc);
12153: dbms_xmlparser.freeParser(l_parser);
12154:
12155: x_loan_amort_tbl := l_amort_tbl;
12152: dbms_xmldom.freeDocument(l_doc);
12153: dbms_xmlparser.freeParser(l_parser);
12154:
12155: x_loan_amort_tbl := l_amort_tbl;
12156: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12157:
12158: EXCEPTION
12159: WHEN OTHERS THEN
12160: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' - in exception. Error: ' || sqlerrm);
12156: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12157:
12158: EXCEPTION
12159: WHEN OTHERS THEN
12160: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, ' - in exception. Error: ' || sqlerrm);
12161: --dbms_lob.freetemporary(l_clob);
12162: dbms_xmlparser.freeParser(l_parser);
12163: dbms_xmldom.freeDocument(l_doc);
12164: FND_MESSAGE.SET_NAME('LNS', 'LNS_API_OTHERS_EXCEP');
12229:
12230: begin
12231:
12232: l_api_name := 'CALC_EARLY_PAY_CR';
12233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12230: begin
12231:
12232: l_api_name := 'CALC_EARLY_PAY_CR';
12233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12231:
12232: l_api_name := 'CALC_EARLY_PAY_CR';
12233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12232: l_api_name := 'CALC_EARLY_PAY_CR';
12233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12233: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12234: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
12235: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Input:');
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
12243:
12236: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': loan_id: ' || p_loan_id);
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
12243:
12244: i := 1;
12237: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': calc_method: ' || p_calc_method);
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
12243:
12244: i := 1;
12245: l_cr_amount := 0;
12238: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': installment: ' || p_installment);
12239: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': interest rate: ' || p_interest_rate);
12240: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days count method: ' || p_day_count_method);
12241: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': compound frequency: ' || p_compound_freq);
12242: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': payment frequency: ' || p_payment_freq);
12243:
12244: i := 1;
12245: l_cr_amount := 0;
12246: l_cum_cr_amount := 0;
12249: -- checking for setting
12250: OPEN c_early_payment_setting(p_loan_id);
12251: FETCH c_early_payment_setting INTO l_early_pay_setting;
12252: CLOSE c_early_payment_setting;
12253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_early_pay_setting = ' || l_early_pay_setting);
12254:
12255: if l_early_pay_setting = 'N' then
12256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculate Interest Credit on Early Payments is off. Exiting');
12257: return;
12252: CLOSE c_early_payment_setting;
12253: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': l_early_pay_setting = ' || l_early_pay_setting);
12254:
12255: if l_early_pay_setting = 'N' then
12256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Calculate Interest Credit on Early Payments is off. Exiting');
12257: return;
12258: end if;
12259:
12260: OPEN c_curr_precision(p_loan_id);
12260: OPEN c_curr_precision(p_loan_id);
12261: FETCH c_curr_precision INTO l_precision;
12262: CLOSE c_curr_precision;
12263:
12264: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Querying trx history...');
12265:
12266: OPEN c_early_payments(p_loan_id, p_installment-1);
12267: LOOP
12268:
12277: ,l_display_order;
12278:
12279: EXIT WHEN c_early_payments%NOTFOUND;
12280:
12281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
12282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'From_Date To_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
12283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_from_date || ' ' || l_to_date || ' ' ||
12284: l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
12285:
12278:
12279: EXIT WHEN c_early_payments%NOTFOUND;
12280:
12281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
12282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'From_Date To_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
12283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_from_date || ' ' || l_to_date || ' ' ||
12284: l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
12285:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12279: EXIT WHEN c_early_payments%NOTFOUND;
12280:
12281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '--------- Record ' || i || '---------');
12282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'From_Date To_Date Act Act_Amount Theory_Bal Actual_Bal Days_Late');
12283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_from_date || ' ' || l_to_date || ' ' ||
12284: l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
12285:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating amount...');
12283: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_from_date || ' ' || l_to_date || ' ' ||
12284: l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
12285:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating amount...');
12288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_from_date || ' - ' || l_to_date);
12289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_amount);
12290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
12291:
12284: l_activity_code || ' ' || l_activity_amount || ' ' || l_theory_balance || ' ' || l_actual_balance || ' ' || l_days_late);
12285:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating amount...');
12288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_from_date || ' - ' || l_to_date);
12289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_amount);
12290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
12291:
12292: if (p_calc_method = 'SIMPLE') then
12285:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating amount...');
12288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_from_date || ' - ' || l_to_date);
12289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_amount);
12290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
12291:
12292: if (p_calc_method = 'SIMPLE') then
12293:
12286: l_amount := abs(l_theory_balance - l_actual_balance);
12287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculating amount...');
12288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Period = ' || l_from_date || ' - ' || l_to_date);
12289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Amount = ' || l_amount);
12290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Interest Rate = ' || p_interest_rate);
12291:
12292: if (p_calc_method = 'SIMPLE') then
12293:
12294: -- recalculate periodic rate for each period if day counting methodolgy varies
12311: ,p_days_count_method => p_day_count_method
12312: ,p_target => 'INTEREST');
12313:
12314: end if;
12315: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'periodic_rate = ' || l_periodic_rate);
12316:
12317: l_cr_amount := lns_financials.calculateInterest(p_amount => l_amount
12318: ,p_periodic_rate => l_periodic_rate
12319: ,p_compounding_period => null);
12316:
12317: l_cr_amount := lns_financials.calculateInterest(p_amount => l_amount
12318: ,p_periodic_rate => l_periodic_rate
12319: ,p_compounding_period => null);
12320: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calculated credit amount = ' || l_cr_amount);
12321:
12322: if l_cr_detail_str is not null then
12323: l_cr_detail_str := l_cr_detail_str || ' +
';
12324: end if;
12325: l_cr_detail_str := l_cr_detail_str ||
12326: 'Period ' || FND_DATE.DATE_TO_DISPLAYDATE(l_from_date, 1) || ' - ' || FND_DATE.DATE_TO_DISPLAYDATE((l_to_date-1), 1) ||
12327: ' * Balance ' || round(l_amount, l_precision) ||
12328: ' * Rate ' || p_interest_rate || '%';
12329: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_cr_detail_str);
12330:
12331: l_cum_cr_amount := l_cum_cr_amount + l_cr_amount;
12332: i := i + 1;
12333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Cumulative credit amount = ' || l_cum_cr_amount);
12329: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_cr_detail_str);
12330:
12331: l_cum_cr_amount := l_cum_cr_amount + l_cr_amount;
12332: i := i + 1;
12333: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Cumulative credit amount = ' || l_cum_cr_amount);
12334:
12335: END LOOP;
12336: close c_early_payments;
12337:
12341: end if;
12342:
12343: x_EARLY_PAY_CR_DETAILS := x_early_pay_cr || l_cr_detail_str;
12344:
12345: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount = ' || x_early_pay_cr);
12346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount Details = ' || x_EARLY_PAY_CR_DETAILS);
12347: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12349:
12342:
12343: x_EARLY_PAY_CR_DETAILS := x_early_pay_cr || l_cr_detail_str;
12344:
12345: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount = ' || x_early_pay_cr);
12346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount Details = ' || x_EARLY_PAY_CR_DETAILS);
12347: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12349:
12350: end;
12343: x_EARLY_PAY_CR_DETAILS := x_early_pay_cr || l_cr_detail_str;
12344:
12345: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount = ' || x_early_pay_cr);
12346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount Details = ' || x_EARLY_PAY_CR_DETAILS);
12347: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12349:
12350: end;
12351:
12344:
12345: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount = ' || x_early_pay_cr);
12346: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': Total Credit Amount Details = ' || x_EARLY_PAY_CR_DETAILS);
12347: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
12348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, ' ');
12349:
12350: end;
12351:
12352: