[Home] [Help]
21: ,message in varchar2)
22: is
23:
24: begin
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: END IF;
28:
29: end;
22: is
23:
24: begin
25: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
26: FND_LOG.STRING(log_level, module, message);
27: END IF;
28:
29: end;
30:
217: begin
218:
219: l_api_name := 'getDayCount';
220:
221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_start_date: ' || p_start_date);
222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_end_date: ' || p_end_date);
223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_day_count_method: ' || p_day_count_method);
224:
225: if p_end_date < p_start_date then
218:
219: l_api_name := 'getDayCount';
220:
221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_start_date: ' || p_start_date);
222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_end_date: ' || p_end_date);
223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_day_count_method: ' || p_day_count_method);
224:
225: if p_end_date < p_start_date then
226: FND_MESSAGE.Set_Name('LNS', 'LNS_PERIOD_INVALID');
219: l_api_name := 'getDayCount';
220:
221: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_start_date: ' || p_start_date);
222: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_end_date: ' || p_end_date);
223: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': p_day_count_method: ' || p_day_count_method);
224:
225: if p_end_date < p_start_date then
226: FND_MESSAGE.Set_Name('LNS', 'LNS_PERIOD_INVALID');
227: FND_MSG_PUB.Add;
344: --l_day_count := LNS_FIN_UTILS.Julian_date(p_end_date) - LNS_FIN_UTILS.Julian_date(p_start_date);
345:
346: end if;
347:
348: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': day count is: ' || l_day_count || ' by method ' || p_day_count_method);
349: return l_day_count;
350:
351: end getDayCount;
352:
401: FND_MSG_PUB.Add;
402: RAISE FND_API.G_EXC_ERROR;
403: end if;
404:
405: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': days in year is: ' || l_days_in_year);
406: return l_days_in_year;
407:
408: end daysInYear;
409:
509:
510: begin
511: l_num_intervals := 0;
512: l_api_name := 'intervalsInPeriod';
513: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
514:
515: l_period_type1 := formatTerm(p_timeString => p_period_type1);
516: l_period_type2 := formatTerm(p_timeString => p_period_type2);
517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || p_period_number);
513: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
514:
515: l_period_type1 := formatTerm(p_timeString => p_period_type1);
516: l_period_type2 := formatTerm(p_timeString => p_period_type2);
517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || p_period_number);
518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type1);
519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type2);
520:
521: if l_period_type1 = l_period_type2 then
514:
515: l_period_type1 := formatTerm(p_timeString => p_period_type1);
516: l_period_type2 := formatTerm(p_timeString => p_period_type2);
517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || p_period_number);
518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type1);
519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type2);
520:
521: if l_period_type1 = l_period_type2 then
522: l_ratio := 1;
515: l_period_type1 := formatTerm(p_timeString => p_period_type1);
516: l_period_type2 := formatTerm(p_timeString => p_period_type2);
517: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || p_period_number);
518: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type1);
519: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || l_period_type2);
520:
521: if l_period_type1 = l_period_type2 then
522: l_ratio := 1;
523:
705:
706: end if;
707:
708: l_num_intervals := p_period_number * l_ratio;
709: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': num intervals is: ' || l_num_intervals);
710: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
711:
712: if (l_num_intervals > 0 and l_num_intervals < 1) then
713: l_num_intervals := 1;
706: end if;
707:
708: l_num_intervals := p_period_number * l_ratio;
709: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ': num intervals is: ' || l_num_intervals);
710: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
711:
712: if (l_num_intervals > 0 and l_num_intervals < 1) then
713: l_num_intervals := 1;
714: end if;
765: begin
766:
767: l_api_name := 'convertPeriod';
768:
769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term ' || p_term);
770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term_period ' || p_term_period);
771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling IntInPer ');
772:
773: if p_term_period = 'DAYS' then
766:
767: l_api_name := 'convertPeriod';
768:
769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term ' || p_term);
770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term_period ' || p_term_period);
771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling IntInPer ');
772:
773: if p_term_period = 'DAYS' then
774: l_return := intervalsInPeriod(p_period_number => p_term
767: l_api_name := 'convertPeriod';
768:
769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term ' || p_term);
770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_term_period ' || p_term_period);
771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - calling IntInPer ');
772:
773: if p_term_period = 'DAYS' then
774: l_return := intervalsInPeriod(p_period_number => p_term
775: ,p_period_type1 => p_term_period
781: end if;
782:
783:
784:
785: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_return ' || l_return);
786:
787: return l_return;
788:
789: end convertPeriod;
824:
825: begin
826: --l_converted_rate := 0;
827: l_api_name := 'convertRate';
828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
829:
830: l_amortization_frequency := formatTerm(p_timeString => p_amortization_frequency);
831: --l_period_type2 := formatTerm(p_timeString => p_period_type2);
832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_amortization_frequency ' || l_amortization_frequency);
828: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
829:
830: l_amortization_frequency := formatTerm(p_timeString => p_amortization_frequency);
831: --l_period_type2 := formatTerm(p_timeString => p_period_type2);
832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_amortization_frequency ' || l_amortization_frequency);
833: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
834:
835: if l_amortization_frequency = 'MONTHS' then
836: l_converted_rate := p_annualized_rate / 1200;
829:
830: l_amortization_frequency := formatTerm(p_timeString => p_amortization_frequency);
831: --l_period_type2 := formatTerm(p_timeString => p_period_type2);
832: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - l_amortization_frequency ' || l_amortization_frequency);
833: --logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
834:
835: if l_amortization_frequency = 'MONTHS' then
836: l_converted_rate := p_annualized_rate / 1200;
837: elsif l_amortization_frequency = 'BIWEEKS' then
903: begin
904:
905: l_api_name := 'getMaturityDate';
906: i := 1;
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
908: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term ' || p_term);
909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term period ' || p_term_period);
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - frequency ' || p_frequency);
911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - start date ' || to_char(p_start_date,'DD-MON-YYYY HH:MI:SS'));
904:
905: l_api_name := 'getMaturityDate';
906: i := 1;
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
908: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term ' || p_term);
909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term period ' || p_term_period);
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - frequency ' || p_frequency);
911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - start date ' || to_char(p_start_date,'DD-MON-YYYY HH:MI:SS'));
912:
905: l_api_name := 'getMaturityDate';
906: i := 1;
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
908: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term ' || p_term);
909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term period ' || p_term_period);
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - frequency ' || p_frequency);
911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - start date ' || to_char(p_start_date,'DD-MON-YYYY HH:MI:SS'));
912:
913: l_term := p_term;
906: i := 1;
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
908: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term ' || p_term);
909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term period ' || p_term_period);
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - frequency ' || p_frequency);
911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - start date ' || to_char(p_start_date,'DD-MON-YYYY HH:MI:SS'));
912:
913: l_term := p_term;
914: l_term_period := p_term_period;
907: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
908: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term ' || p_term);
909: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - term period ' || p_term_period);
910: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - frequency ' || p_frequency);
911: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - start date ' || to_char(p_start_date,'DD-MON-YYYY HH:MI:SS'));
912:
913: l_term := p_term;
914: l_term_period := p_term_period;
915: l_frequency := p_frequency;
915: l_frequency := p_frequency;
916:
917: if l_term is null or l_term_period is null or l_frequency is null
918: or p_start_date is null then
919: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - CANNOT COMPUTE MATURITY DATE');
920: FND_MESSAGE.Set_Name('LNS', 'LNS_MATURITY_DATE_INVALID');
921: FND_MSG_PUB.Add;
922: RAISE FND_API.G_EXC_ERROR;
923: end if;
926:
927: IF (l_term_period = 'DAYS') THEN
928:
929: l_date := p_start_date + l_term;
930: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' Days term calculation in Maturity Date ');
931:
932: ELSE
933:
934: -- first get number of intervals in loan
935: l_intervals := lns_fin_utils.intervalsInPeriod(l_term
936: ,l_term_period
937: ,'MONTHLY');
938:
939: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - intervals ' || l_intervals);
940:
941: -- l_date := p_start_date;
942: l_date := add_months(p_start_date, l_intervals);
943:
953: i := i + 1;
954: END LOOP;
955: */
956:
957: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - date returns is ' || l_date);
958: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - maturity date ' || to_char(l_date,'DD-MON-YYYY HH:MI:SS'));
959: return trunc(l_date);
960:
961: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
954: END LOOP;
955: */
956:
957: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - date returns is ' || l_date);
958: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - maturity date ' || to_char(l_date,'DD-MON-YYYY HH:MI:SS'));
959: return trunc(l_date);
960:
961: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
962:
957: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - date returns is ' || l_date);
958: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - maturity date ' || to_char(l_date,'DD-MON-YYYY HH:MI:SS'));
959: return trunc(l_date);
960:
961: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
962:
963: end getMaturityDate;
964:
965: /*=========================================================================
1012:
1013: begin
1014:
1015: l_api_name := 'getPaymentSchedule';
1016: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1017: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_first_pay_date ' || p_first_pay_date);
1018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date);
1019: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interval_type ' || p_interval_type);
1020:
1013: begin
1014:
1015: l_api_name := 'getPaymentSchedule';
1016: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1017: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_first_pay_date ' || p_first_pay_date);
1018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date);
1019: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interval_type ' || p_interval_type);
1020:
1021: i := 1;
1014:
1015: l_api_name := 'getPaymentSchedule';
1016: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1017: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_first_pay_date ' || p_first_pay_date);
1018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date);
1019: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interval_type ' || p_interval_type);
1020:
1021: i := 1;
1022: l_payment_dates(i) := p_first_pay_date;
1015: l_api_name := 'getPaymentSchedule';
1016: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1017: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_first_pay_date ' || p_first_pay_date);
1018: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_maturity_date ' || p_maturity_date);
1019: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interval_type ' || p_interval_type);
1020:
1021: i := 1;
1022: l_payment_dates(i) := p_first_pay_date;
1023: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || i || ' - ' || l_payment_dates(i));
1019: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_interval_type ' || p_interval_type);
1020:
1021: i := 1;
1022: l_payment_dates(i) := p_first_pay_date;
1023: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || i || ' - ' || l_payment_dates(i));
1024:
1025: if p_first_pay_date <> p_maturity_date then
1026:
1027: k := 1;
1033: end if;
1034:
1035: i := i + 1;
1036: l_payment_dates(i) := l_next_date;
1037: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' ' || i || ' - ' || l_payment_dates(i));
1038:
1039: k := k + 1;
1040: l_next_date := lns_fin_utils.getNextDate(p_first_pay_date, p_interval_type, k);
1041:
1042: end loop;
1043:
1044: end if;
1045:
1046: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1047:
1048: return l_payment_dates;
1049:
1050: end getPaymentSchedule;
1094:
1095: l_api_name := 'getPaymentSchedule';
1096:
1097: l_freq_count := p_freq_schedule_tbl.count;
1098: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
1099: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || l_freq_count);
1100: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1101:
1102: i := 1; -- frequency table counter
1095: l_api_name := 'getPaymentSchedule';
1096:
1097: l_freq_count := p_freq_schedule_tbl.count;
1098: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
1099: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || l_freq_count);
1100: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1101:
1102: i := 1; -- frequency table counter
1103: l_current_freq := p_freq_schedule_tbl(i).FREQUENCY;
1096:
1097: l_freq_count := p_freq_schedule_tbl.count;
1098: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - BEGIN');
1099: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || l_freq_count);
1100: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1101:
1102: i := 1; -- frequency table counter
1103: l_current_freq := p_freq_schedule_tbl(i).FREQUENCY;
1104: l_first_date := p_freq_schedule_tbl(i).PERIOD_BEGIN_DATE;
1102: i := 1; -- frequency table counter
1103: l_current_freq := p_freq_schedule_tbl(i).FREQUENCY;
1104: l_first_date := p_freq_schedule_tbl(i).PERIOD_BEGIN_DATE;
1105: l_current_date := l_first_date;
1106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1109:
1110: j := 1; -- output table counter
1103: l_current_freq := p_freq_schedule_tbl(i).FREQUENCY;
1104: l_first_date := p_freq_schedule_tbl(i).PERIOD_BEGIN_DATE;
1105: l_current_date := l_first_date;
1106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1109:
1110: j := 1; -- output table counter
1111: l_payment_dates(j) := l_first_date;
1104: l_first_date := p_freq_schedule_tbl(i).PERIOD_BEGIN_DATE;
1105: l_current_date := l_first_date;
1106: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1107: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1109:
1110: j := 1; -- output table counter
1111: l_payment_dates(j) := l_first_date;
1112: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, j || ' - ' || l_payment_dates(j));
1108: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1109:
1110: j := 1; -- output table counter
1111: l_payment_dates(j) := l_first_date;
1112: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, j || ' - ' || l_payment_dates(j));
1113: k := 0; -- multiplyer for current frequency
1114:
1115: if trunc(l_current_date) <> trunc(p_loan_maturity_date) then
1116:
1129: l_current_freq := l_next_freq;
1130: i := i + 1;
1131: k := 0; -- reset multiplyer for new frequency
1132:
1133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1136: end if;
1137: end if;
1130: i := i + 1;
1131: k := 0; -- reset multiplyer for new frequency
1132:
1133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1136: end if;
1137: end if;
1138:
1131: k := 0; -- reset multiplyer for new frequency
1132:
1133: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Frequency schedule record ' || i);
1134: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'first date = ' || l_first_date);
1135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1136: end if;
1137: end if;
1138:
1139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_current_date = ' || l_current_date);
1135: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'frequency = ' || l_current_freq);
1136: end if;
1137: end if;
1138:
1139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_current_date = ' || l_current_date);
1140: if trunc(l_current_date) > trunc(p_loan_maturity_date) then
1141: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current date > maturity date - exiting');
1142: exit;
1143: end if;
1137: end if;
1138:
1139: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_current_date = ' || l_current_date);
1140: if trunc(l_current_date) > trunc(p_loan_maturity_date) then
1141: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'current date > maturity date - exiting');
1142: exit;
1143: end if;
1144:
1145: j := j + 1;
1143: end if;
1144:
1145: j := j + 1;
1146: l_payment_dates(j) := l_current_date;
1147: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, j || ' - ' || l_payment_dates(j));
1148:
1149: end loop;
1150:
1151: end if;
1149: end loop;
1150:
1151: end if;
1152:
1153: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1154:
1155: return l_payment_dates;
1156:
1157: end getPaymentSchedule;
1268:
1269: begin
1270:
1271: l_api_name := 'getNumberInstallments';
1272: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1273:
1274: l_installments := 0;
1275:
1276: OPEN c_details(p_loan_id);
1282: ,l_amortization_frequency
1283: ,l_payment_frequency;
1284: close c_details;
1285:
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1283: ,l_payment_frequency;
1284: close c_details;
1285:
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1284: close c_details;
1285:
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1292:
1285:
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1292:
1293: l_installments := lns_fin_utils.intervalsInPeriod(l_term
1286: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1292:
1293: l_installments := lns_fin_utils.intervalsInPeriod(l_term
1294: ,l_term_period
1287: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1288: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term: ' || l_amortized_term);
1289: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortized_term_period: ' || l_amortized_term_period);
1290: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_amortization_frequency: ' || l_amortization_frequency);
1291: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1292:
1293: l_installments := lns_fin_utils.intervalsInPeriod(l_term
1294: ,l_term_period
1295: ,l_payment_frequency);
1293: l_installments := lns_fin_utils.intervalsInPeriod(l_term
1294: ,l_term_period
1295: ,l_payment_frequency);
1296:
1297: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1298: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1299:
1300: return l_installments;
1301:
1294: ,l_term_period
1295: ,l_payment_frequency);
1296:
1297: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1298: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1299:
1300: return l_installments;
1301:
1302: end getNumberInstallments;
1315:
1316: begin
1317:
1318: l_api_name := 'getNumberInstallments';
1319: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1320:
1321: l_installments := 0;
1322:
1323: OPEN c_phase(p_loan_id);
1323: OPEN c_phase(p_loan_id);
1324: FETCH c_phase INTO l_phase;
1325: close c_phase;
1326:
1327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
1328:
1329: l_installments := lns_fin_utils.getNumberInstallments(p_loan_id, l_phase);
1330:
1331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1327: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
1328:
1329: l_installments := lns_fin_utils.getNumberInstallments(p_loan_id, l_phase);
1330:
1331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1332: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1333:
1334: return l_installments;
1335:
1328:
1329: l_installments := lns_fin_utils.getNumberInstallments(p_loan_id, l_phase);
1330:
1331: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1332: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1333:
1334: return l_installments;
1335:
1336: end getNumberInstallments;
1415:
1416: begin
1417:
1418: l_api_name := 'getNumberInstallments2';
1419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1422:
1423: l_installments := 0;
1416: begin
1417:
1418: l_api_name := 'getNumberInstallments2';
1419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1422:
1423: l_installments := 0;
1424:
1417:
1418: l_api_name := 'getNumberInstallments2';
1419: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1420: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1421: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1422:
1423: l_installments := 0;
1424:
1425: OPEN c_details(p_loan_id, p_phase);
1437: ,l_prin_pay_in_arrears
1438: ,l_custom_schedule;
1439: close c_details;
1440:
1441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1438: ,l_custom_schedule;
1439: close c_details;
1440:
1441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1439: close c_details;
1440:
1441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1440:
1441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1444: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
1445: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
1453:
1446: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
1453:
1454: if p_phase = 'OPEN' then
1447: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
1453:
1454: if p_phase = 'OPEN' then
1455: if l_pay_in_arrears = 'Y' then
1448: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
1449: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
1450: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
1451: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
1452: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
1453:
1454: if p_phase = 'OPEN' then
1455: if l_pay_in_arrears = 'Y' then
1456: l_pay_in_arrears_bool := true;
1522:
1523: else
1524:
1525: -- Fixed bug 6133313
1526: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Getting number of installments from LNS_CUSTOM_PAYMNT_SCHEDS...');
1527: OPEN c_num_cust_instal(p_loan_id);
1528: FETCH c_num_cust_instal INTO l_installments;
1529: close c_num_cust_instal;
1530:
1539: l_installments := 1;
1540: end if;
1541: end if;
1542:
1543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1544: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1545:
1546: return l_installments;
1547:
1540: end if;
1541: end if;
1542:
1543: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1544: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1545:
1546: return l_installments;
1547:
1548: end getNumberInstallments;
1557:
1558: begin
1559:
1560: l_api_name := 'getNumberInstallments2';
1561: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1562: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1564:
1565: l_installments := 0;
1558: begin
1559:
1560: l_api_name := 'getNumberInstallments2';
1561: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1562: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1564:
1565: l_installments := 0;
1566: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
1559:
1560: l_api_name := 'getNumberInstallments2';
1561: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1562: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
1563: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
1564:
1565: l_installments := 0;
1566: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
1567: l_installments := l_payment_tbl.count;
1565: l_installments := 0;
1566: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
1567: l_installments := l_payment_tbl.count;
1568:
1569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1570: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1571:
1572: return l_installments;
1573:
1566: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
1567: l_installments := l_payment_tbl.count;
1568:
1569: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_installments: ' || l_installments);
1570: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1571:
1572: return l_installments;
1573:
1574: end getNumberInstallments;
1614:
1615: begin
1616:
1617: l_api_name := 'buildPaymentSchedule';
1618: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1615: begin
1616:
1617: l_api_name := 'buildPaymentSchedule';
1618: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1623: if p_pay_in_arrears then
1616:
1617: l_api_name := 'buildPaymentSchedule';
1618: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1623: if p_pay_in_arrears then
1624: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_pay_in_arrears TRUE');
1617: l_api_name := 'buildPaymentSchedule';
1618: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1623: if p_pay_in_arrears then
1624: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_pay_in_arrears TRUE');
1625: end if;
1618: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1619: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1623: if p_pay_in_arrears then
1624: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_pay_in_arrears TRUE');
1625: end if;
1626:
1620: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1621: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - first_pay_date ' || p_first_pay_date);
1622: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - num_intervals ' || p_num_intervals);
1623: if p_pay_in_arrears then
1624: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - p_pay_in_arrears TRUE');
1625: end if;
1626:
1627: -- fix for bug 5842639: added p_loan_start_date parameter to LNS_FIN_UTILS.getPaymentSchedule
1628: l_pay_dates := LNS_FIN_UTILS.getPaymentSchedule(p_loan_start_date => p_loan_start_date
1634:
1635: -- we need to ensure maturity date is accurately calculated
1636: -- also begin / end period dates is very important to the calculation of interest due
1637: l_num_installments := l_pay_dates.count;
1638: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number installments: ' || l_num_installments);
1639: for i in 1..l_num_installments
1640: loop
1641:
1642: -- begin bug fix 6498340; scherkas; 10/12/2007;
1648: l_payment_schedule(i).period_end_date := l_pay_dates(i);
1649: l_payment_schedule(i).period_due_date := l_payment_schedule(i).period_end_date;
1650: -- end bug fix 6498340; scherkas; 10/12/2007;
1651:
1652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1653:
1654: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_start_date: ' || l_payment_schedule(i).period_begin_date);
1655: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_end_date: ' || l_payment_schedule(i).period_end_date);
1656: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_due_date: ' || l_payment_schedule(i).period_due_date);
1650: -- end bug fix 6498340; scherkas; 10/12/2007;
1651:
1652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1653:
1654: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_start_date: ' || l_payment_schedule(i).period_begin_date);
1655: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_end_date: ' || l_payment_schedule(i).period_end_date);
1656: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_due_date: ' || l_payment_schedule(i).period_due_date);
1657:
1658: end loop;
1651:
1652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1653:
1654: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_start_date: ' || l_payment_schedule(i).period_begin_date);
1655: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_end_date: ' || l_payment_schedule(i).period_end_date);
1656: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_due_date: ' || l_payment_schedule(i).period_due_date);
1657:
1658: end loop;
1659:
1652: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1653:
1654: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_start_date: ' || l_payment_schedule(i).period_begin_date);
1655: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_end_date: ' || l_payment_schedule(i).period_end_date);
1656: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_due_date: ' || l_payment_schedule(i).period_due_date);
1657:
1658: end loop;
1659:
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1656: -- logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ' period_due_date: ' || l_payment_schedule(i).period_due_date);
1657:
1658: end loop;
1659:
1660: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1661:
1662: return l_payment_schedule;
1663:
1664: end buildPaymentSchedule;
1676:
1677: begin
1678:
1679: l_api_name := 'buildPaymentSchedule';
1680: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_start_date = ' || p_loan_start_date);
1682: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || p_freq_schedule_tbl.count);
1684:
1677: begin
1678:
1679: l_api_name := 'buildPaymentSchedule';
1680: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_start_date = ' || p_loan_start_date);
1682: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || p_freq_schedule_tbl.count);
1684:
1685: l_pay_dates := LNS_FIN_UTILS.getPaymentSchedule(p_freq_schedule_tbl => p_freq_schedule_tbl
1678:
1679: l_api_name := 'buildPaymentSchedule';
1680: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_start_date = ' || p_loan_start_date);
1682: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || p_freq_schedule_tbl.count);
1684:
1685: l_pay_dates := LNS_FIN_UTILS.getPaymentSchedule(p_freq_schedule_tbl => p_freq_schedule_tbl
1686: ,p_loan_maturity_date => p_loan_maturity_date);
1679: l_api_name := 'buildPaymentSchedule';
1680: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1681: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_start_date = ' || p_loan_start_date);
1682: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_maturity_date = ' || p_loan_maturity_date);
1683: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_freq_schedule_tbl count = ' || p_freq_schedule_tbl.count);
1684:
1685: l_pay_dates := LNS_FIN_UTILS.getPaymentSchedule(p_freq_schedule_tbl => p_freq_schedule_tbl
1686: ,p_loan_maturity_date => p_loan_maturity_date);
1687:
1685: l_pay_dates := LNS_FIN_UTILS.getPaymentSchedule(p_freq_schedule_tbl => p_freq_schedule_tbl
1686: ,p_loan_maturity_date => p_loan_maturity_date);
1687:
1688: l_num_installments := l_pay_dates.count;
1689: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - number installments: ' || l_num_installments);
1690: for i in 1..l_num_installments loop
1691:
1692: if i = 1 then
1693: l_payment_schedule(i).period_begin_date := p_loan_start_date;
1695: l_payment_schedule(i).period_begin_date := l_pay_dates(i - 1);
1696: end if;
1697: l_payment_schedule(i).period_end_date := l_pay_dates(i);
1698: l_payment_schedule(i).period_due_date := l_payment_schedule(i).period_end_date;
1699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1700:
1701: end loop;
1702:
1703: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1699: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || '- ' || i || ': ' || l_payment_schedule(i).period_due_date || ' (from ' || l_payment_schedule(i).period_begin_date || ' to ' || l_payment_schedule(i).period_end_date || ')');
1700:
1701: end loop;
1702:
1703: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1704:
1705: return l_payment_schedule;
1706:
1707: end buildPaymentSchedule;
1763:
1764: begin
1765:
1766: l_api_name := 'buildSIPPaymentSchedule';
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1764: begin
1765:
1766: l_api_name := 'buildSIPPaymentSchedule';
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1765:
1766: l_api_name := 'buildSIPPaymentSchedule';
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1766: l_api_name := 'buildSIPPaymentSchedule';
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1767: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1775: else
1768: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_start_date ' || p_loan_start_date);
1769: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - loan_maturity_date ' || p_loan_maturity_date);
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1775: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1770: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT first_pay_date ' || p_int_first_pay_date);
1771: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT num_intervals ' || p_int_num_intervals);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1775: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1777: end if;
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1772: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT interval_type ' || p_int_interval_type);
1773: if p_int_pay_in_arrears then
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1775: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1777: end if;
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1779: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN num_intervals ' || p_prin_num_intervals);
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1774: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears TRUE');
1775: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1777: end if;
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1779: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN num_intervals ' || p_prin_num_intervals);
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1781: if p_prin_pay_in_arrears then
1782: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears TRUE');
1775: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1777: end if;
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1779: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN num_intervals ' || p_prin_num_intervals);
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1781: if p_prin_pay_in_arrears then
1782: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears TRUE');
1783: else
1776: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - INT pay_in_arrears FALSE');
1777: end if;
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1779: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN num_intervals ' || p_prin_num_intervals);
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1781: if p_prin_pay_in_arrears then
1782: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears TRUE');
1783: else
1784: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears FALSE');
1778: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN first_pay_date ' || p_prin_first_pay_date);
1779: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN num_intervals ' || p_prin_num_intervals);
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1781: if p_prin_pay_in_arrears then
1782: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears TRUE');
1783: else
1784: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears FALSE');
1785: end if;
1786:
1780: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN interval_type ' || p_prin_interval_type);
1781: if p_prin_pay_in_arrears then
1782: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears TRUE');
1783: else
1784: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears FALSE');
1785: end if;
1786:
1787: -- get interest payment schedule
1788: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INT payment schedule:');
1784: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - PRIN pay_in_arrears FALSE');
1785: end if;
1786:
1787: -- get interest payment schedule
1788: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INT payment schedule:');
1789: l_int_payment_tbl := LNS_FIN_UTILS.buildPaymentSchedule(
1790: p_loan_start_date => p_loan_start_date
1791: ,p_loan_maturity_date => p_loan_maturity_date
1792: ,p_first_pay_date => p_int_first_pay_date
1794: ,p_interval_type => p_int_interval_type
1795: ,p_pay_in_arrears => p_int_pay_in_arrears);
1796: /*
1797: for j in 1..l_int_payment_tbl.count loop
1798: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' || l_int_payment_tbl(j).PERIOD_DUE_DATE);
1799: end loop;
1800: */
1801: -- get principal payment schedule
1802: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRIN payment schedule:');
1798: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' || l_int_payment_tbl(j).PERIOD_DUE_DATE);
1799: end loop;
1800: */
1801: -- get principal payment schedule
1802: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRIN payment schedule:');
1803: l_prin_payment_tbl := LNS_FIN_UTILS.buildPaymentSchedule(
1804: p_loan_start_date => p_loan_start_date
1805: ,p_loan_maturity_date => p_loan_maturity_date
1806: ,p_first_pay_date => p_prin_first_pay_date
1808: ,p_interval_type => p_prin_interval_type
1809: ,p_pay_in_arrears => p_prin_pay_in_arrears);
1810: /*
1811: for j in 1..l_prin_payment_tbl.count loop
1812: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' || l_prin_payment_tbl(j).PERIOD_DUE_DATE);
1813: end loop;
1814: */
1815:
1816: -- merging payment schedules
1820: loop
1821: l_int_due_date := null;
1822: l_prin_due_date := null;
1823:
1824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
1826: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
1827:
1828: if (int_count <= l_int_payment_tbl.count ) then
1821: l_int_due_date := null;
1822: l_prin_due_date := null;
1823:
1824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
1826: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
1827:
1828: if (int_count <= l_int_payment_tbl.count ) then
1829: l_int_pay := l_int_payment_tbl(int_count);
1822: l_prin_due_date := null;
1823:
1824: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1825: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
1826: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
1827:
1828: if (int_count <= l_int_payment_tbl.count ) then
1829: l_int_pay := l_int_payment_tbl(int_count);
1830: l_int_pay.CONTENTS := 'INT';
1835: l_prin_pay.CONTENTS := 'PRIN';
1836: l_prin_due_date := trunc(l_prin_pay.PERIOD_DUE_DATE);
1837: end if;
1838:
1839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_due_date = ' || l_int_due_date);
1840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_due_date = ' || l_prin_due_date);
1841:
1842: if (l_int_due_date is not null and l_prin_due_date is not null) then
1843:
1836: l_prin_due_date := trunc(l_prin_pay.PERIOD_DUE_DATE);
1837: end if;
1838:
1839: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_due_date = ' || l_int_due_date);
1840: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_due_date = ' || l_prin_due_date);
1841:
1842: if (l_int_due_date is not null and l_prin_due_date is not null) then
1843:
1844: if (l_int_due_date < l_prin_due_date) then
1841:
1842: if (l_int_due_date is not null and l_prin_due_date is not null) then
1843:
1844: if (l_int_due_date < l_prin_due_date) then
1845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 11');
1846: l_merged_payment_tbl(merged_count) := l_int_pay;
1847: int_count := int_count + 1;
1848: elsif (l_int_due_date > l_prin_due_date) then
1849: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
1845: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 11');
1846: l_merged_payment_tbl(merged_count) := l_int_pay;
1847: int_count := int_count + 1;
1848: elsif (l_int_due_date > l_prin_due_date) then
1849: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
1850: l_merged_payment_tbl(merged_count) := l_prin_pay;
1851: prin_count := prin_count + 1;
1852: elsif (l_int_due_date = l_prin_due_date) then
1853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
1849: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
1850: l_merged_payment_tbl(merged_count) := l_prin_pay;
1851: prin_count := prin_count + 1;
1852: elsif (l_int_due_date = l_prin_due_date) then
1853: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
1854: l_merged_payment_tbl(merged_count) := l_prin_pay;
1855: l_merged_payment_tbl(merged_count).CONTENTS := 'PRIN_INT';
1856: int_count := int_count + 1;
1857: prin_count := prin_count + 1;
1858: end if;
1859:
1860: elsif (l_int_due_date is null and l_prin_due_date is not null) then
1861:
1862: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 2');
1863: l_merged_payment_tbl(merged_count) := l_prin_pay;
1864: prin_count := prin_count + 1;
1865:
1866: elsif (l_int_due_date is not null and l_prin_due_date is null) then
1864: prin_count := prin_count + 1;
1865:
1866: elsif (l_int_due_date is not null and l_prin_due_date is null) then
1867:
1868: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 3');
1869: l_merged_payment_tbl(merged_count) := l_int_pay;
1870: int_count := int_count + 1;
1871:
1872: elsif (l_int_due_date is null and l_prin_due_date is null) then
1870: int_count := int_count + 1;
1871:
1872: elsif (l_int_due_date is null and l_prin_due_date is null) then
1873:
1874: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 4');
1875: exit;
1876:
1877: end if;
1878:
1879: if (merged_count > 1) then
1880: l_merged_payment_tbl(merged_count).PERIOD_BEGIN_DATE := l_merged_payment_tbl(merged_count-1).PERIOD_END_DATE;
1881: end if;
1882:
1883: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'result due_date = ' || l_merged_payment_tbl(merged_count).PERIOD_DUE_DATE);
1884: merged_count := merged_count + 1;
1885:
1886: end loop;
1887:
1906: -- collecting all extra INT records and delete then from merged table
1907: j := 1;
1908: for i in reverse 1..(l_size-1) loop
1909: if (l_merged_payment_tbl(i).CONTENTS = 'INT') then
1910: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Deleting installment ' || (i+1) || ' - ' || l_merged_payment_tbl(i+1).CONTENTS);
1911: l_delete_tbl(j) := i+1;
1912: elsif (l_merged_payment_tbl(i).CONTENTS = 'PRIN') then
1913: exit;
1914: elsif (l_merged_payment_tbl(i).CONTENTS = 'PRIN_INT') then
1911: l_delete_tbl(j) := i+1;
1912: elsif (l_merged_payment_tbl(i).CONTENTS = 'PRIN') then
1913: exit;
1914: elsif (l_merged_payment_tbl(i).CONTENTS = 'PRIN_INT') then
1915: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Deleting installment ' || (i+1) || ' - ' || l_merged_payment_tbl(i+1).CONTENTS);
1916: l_delete_tbl(j) := i+1;
1917: exit;
1918: end if;
1919: j := j + 1;
1924: end loop;
1925: */
1926: end if;
1927:
1928: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
1930: for j in 1..l_merged_payment_tbl.count loop
1931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
1932: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
1925: */
1926: end if;
1927:
1928: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
1930: for j in 1..l_merged_payment_tbl.count loop
1931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
1932: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
1933: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
1927:
1928: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1929: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
1930: for j in 1..l_merged_payment_tbl.count loop
1931: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
1932: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
1933: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
1934: end loop;
1935:
1932: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
1933: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
1934: end loop;
1935:
1936: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
1937:
1938: return l_merged_payment_tbl;
1939:
1940: end buildSIPPaymentSchedule;
1966:
1967: begin
1968:
1969: l_api_name := 'buildSIPPaymentSchedule';
1970: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_start_date ' || p_loan_start_date);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_maturity_date ' || p_loan_maturity_date);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1967: begin
1968:
1969: l_api_name := 'buildSIPPaymentSchedule';
1970: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_start_date ' || p_loan_start_date);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_maturity_date ' || p_loan_maturity_date);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1975:
1968:
1969: l_api_name := 'buildSIPPaymentSchedule';
1970: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_start_date ' || p_loan_start_date);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_maturity_date ' || p_loan_maturity_date);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1975:
1976: -- get interest payment schedule
1969: l_api_name := 'buildSIPPaymentSchedule';
1970: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_start_date ' || p_loan_start_date);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_maturity_date ' || p_loan_maturity_date);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1975:
1976: -- get interest payment schedule
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INT payment schedule:');
1970: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
1971: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_start_date ' || p_loan_start_date);
1972: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'loan_maturity_date ' || p_loan_maturity_date);
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1975:
1976: -- get interest payment schedule
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INT payment schedule:');
1978: l_int_payment_tbl := LNS_FIN_UTILS.buildPaymentSchedule(
1973: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_prin_freq_schedule_tbl.count = ' || p_prin_freq_schedule_tbl.count);
1974: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_int_freq_schedule_tbl.count = ' || p_int_freq_schedule_tbl.count);
1975:
1976: -- get interest payment schedule
1977: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'INT payment schedule:');
1978: l_int_payment_tbl := LNS_FIN_UTILS.buildPaymentSchedule(
1979: p_loan_start_date => p_loan_start_date
1980: ,p_loan_maturity_date => p_loan_maturity_date
1981: ,p_freq_schedule_tbl => p_int_freq_schedule_tbl);
1980: ,p_loan_maturity_date => p_loan_maturity_date
1981: ,p_freq_schedule_tbl => p_int_freq_schedule_tbl);
1982:
1983: -- get principal payment schedule
1984: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PRIN payment schedule:');
1985: l_prin_payment_tbl := LNS_FIN_UTILS.buildPaymentSchedule(
1986: p_loan_start_date => p_loan_start_date
1987: ,p_loan_maturity_date => p_loan_maturity_date
1988: ,p_freq_schedule_tbl => p_prin_freq_schedule_tbl);
1994: loop
1995: l_int_due_date := null;
1996: l_prin_due_date := null;
1997:
1998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1999: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
2000: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
2001:
2002: if (int_count <= l_int_payment_tbl.count ) then
1995: l_int_due_date := null;
1996: l_prin_due_date := null;
1997:
1998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1999: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
2000: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
2001:
2002: if (int_count <= l_int_payment_tbl.count ) then
2003: l_int_pay := l_int_payment_tbl(int_count);
1996: l_prin_due_date := null;
1997:
1998: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
1999: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'int_count = ' || int_count);
2000: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'prin_count = ' || prin_count);
2001:
2002: if (int_count <= l_int_payment_tbl.count ) then
2003: l_int_pay := l_int_payment_tbl(int_count);
2004: l_int_pay.CONTENTS := 'INT';
2009: l_prin_pay.CONTENTS := 'PRIN';
2010: l_prin_due_date := trunc(l_prin_pay.PERIOD_DUE_DATE);
2011: end if;
2012:
2013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_due_date = ' || l_int_due_date);
2014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_due_date = ' || l_prin_due_date);
2015:
2016: if (l_int_due_date is not null and l_prin_due_date is not null) then
2017:
2010: l_prin_due_date := trunc(l_prin_pay.PERIOD_DUE_DATE);
2011: end if;
2012:
2013: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_int_due_date = ' || l_int_due_date);
2014: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_due_date = ' || l_prin_due_date);
2015:
2016: if (l_int_due_date is not null and l_prin_due_date is not null) then
2017:
2018: if (l_int_due_date < l_prin_due_date) then
2015:
2016: if (l_int_due_date is not null and l_prin_due_date is not null) then
2017:
2018: if (l_int_due_date < l_prin_due_date) then
2019: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 11');
2020: l_merged_payment_tbl(merged_count) := l_int_pay;
2021: int_count := int_count + 1;
2022: elsif (l_int_due_date > l_prin_due_date) then
2023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
2019: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 11');
2020: l_merged_payment_tbl(merged_count) := l_int_pay;
2021: int_count := int_count + 1;
2022: elsif (l_int_due_date > l_prin_due_date) then
2023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
2024: l_merged_payment_tbl(merged_count) := l_prin_pay;
2025: prin_count := prin_count + 1;
2026: elsif (l_int_due_date = l_prin_due_date) then
2027: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
2023: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
2024: l_merged_payment_tbl(merged_count) := l_prin_pay;
2025: prin_count := prin_count + 1;
2026: elsif (l_int_due_date = l_prin_due_date) then
2027: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 12');
2028: l_merged_payment_tbl(merged_count) := l_prin_pay;
2029: l_merged_payment_tbl(merged_count).CONTENTS := 'PRIN_INT';
2030: int_count := int_count + 1;
2031: prin_count := prin_count + 1;
2032: end if;
2033:
2034: elsif (l_int_due_date is null and l_prin_due_date is not null) then
2035:
2036: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 2');
2037: l_merged_payment_tbl(merged_count) := l_prin_pay;
2038: prin_count := prin_count + 1;
2039:
2040: elsif (l_int_due_date is not null and l_prin_due_date is null) then
2038: prin_count := prin_count + 1;
2039:
2040: elsif (l_int_due_date is not null and l_prin_due_date is null) then
2041:
2042: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 3');
2043: l_merged_payment_tbl(merged_count) := l_int_pay;
2044: int_count := int_count + 1;
2045:
2046: elsif (l_int_due_date is null and l_prin_due_date is null) then
2044: int_count := int_count + 1;
2045:
2046: elsif (l_int_due_date is null and l_prin_due_date is null) then
2047:
2048: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'if 4');
2049: exit;
2050:
2051: end if;
2052:
2053: if (merged_count > 1) then
2054: l_merged_payment_tbl(merged_count).PERIOD_BEGIN_DATE := l_merged_payment_tbl(merged_count-1).PERIOD_END_DATE;
2055: end if;
2056:
2057: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'result due_date = ' || l_merged_payment_tbl(merged_count).PERIOD_DUE_DATE);
2058: merged_count := merged_count + 1;
2059:
2060: end loop;
2061:
2075: l_merged_payment_tbl(l_size+1).CONTENTS := 'INT';
2076: end if;
2077: end if;
2078:
2079: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
2080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
2081: for j in 1..l_merged_payment_tbl.count loop
2082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
2083: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
2076: end if;
2077: end if;
2078:
2079: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
2080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
2081: for j in 1..l_merged_payment_tbl.count loop
2082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
2083: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
2084: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
2078:
2079: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, '-------');
2080: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Mixed payment schedule:');
2081: for j in 1..l_merged_payment_tbl.count loop
2082: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, j || ': ' ||l_merged_payment_tbl(j).CONTENTS || ' ' ||
2083: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
2084: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
2085: end loop;
2086:
2083: l_merged_payment_tbl(j).PERIOD_DUE_DATE || ' (from ' || l_merged_payment_tbl(j).PERIOD_BEGIN_DATE ||
2084: ' to ' || l_merged_payment_tbl(j).PERIOD_END_DATE || ')');
2085: end loop;
2086:
2087: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2088:
2089: return l_merged_payment_tbl;
2090:
2091: end buildSIPPaymentSchedule;
2149: exception
2150: when others then
2151: FND_MESSAGE.Set_Name('LNS', 'LNS_CANNOT_DETERMINE_RATE');
2152: FND_MSG_PUB.Add;
2153: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'LNS_CANNOT_DETERMINE_RATE - END');
2154: --RAISE FND_API.G_EXC_ERROR;
2155: end;
2156: return l_active_rate;
2157:
2276:
2277: begin
2278:
2279: l_api_name := 'buildPaymentScheduleExt';
2280: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2283:
2284: l_installments := 0;
2277: begin
2278:
2279: l_api_name := 'buildPaymentScheduleExt';
2280: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2283:
2284: l_installments := 0;
2285:
2278:
2279: l_api_name := 'buildPaymentScheduleExt';
2280: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2281: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2282: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2283:
2284: l_installments := 0;
2285:
2286: OPEN c_details(p_loan_id, p_phase);
2298: ,l_prin_pay_in_arrears
2299: ,l_custom_schedule;
2300: close c_details;
2301:
2302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2299: ,l_custom_schedule;
2300: close c_details;
2301:
2302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2300: close c_details;
2301:
2302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2301:
2302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2302: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term: ' || l_term);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2303: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_term_period: ' || l_term_period);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2304: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_payment_frequency: ' || l_payment_frequency);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2305: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2306: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_first_payment_date: ' || l_first_payment_date);
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2314:
2307: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2314:
2315: if p_phase = 'OPEN' then
2308: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_in_arrears: ' || l_pay_in_arrears);
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2314:
2315: if p_phase = 'OPEN' then
2316:
2309: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2310: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_first_pay_date: ' || l_prin_first_pay_date);
2311: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_payment_frequency: ' || l_prin_payment_frequency);
2312: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_prin_pay_in_arrears: ' || l_prin_pay_in_arrears);
2313: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2314:
2315: if p_phase = 'OPEN' then
2316:
2317: if l_pay_in_arrears = 'Y' then
2383: end if; --if l_custom_schedule = 'N'
2384:
2385: end if; --if p_phase = 'OPEN'
2386:
2387: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2388:
2389: return l_payment_tbl;
2390:
2391: end buildPaymentScheduleExt;
2424:
2425: begin
2426:
2427: l_api_name := 'buildPaymentScheduleExt';
2428: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2431:
2432: OPEN c_details(p_loan_id, p_phase);
2425: begin
2426:
2427: l_api_name := 'buildPaymentScheduleExt';
2428: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2431:
2432: OPEN c_details(p_loan_id, p_phase);
2433: FETCH c_details INTO
2426:
2427: l_api_name := 'buildPaymentScheduleExt';
2428: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2429: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2430: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2431:
2432: OPEN c_details(p_loan_id, p_phase);
2433: FETCH c_details INTO
2434: l_loan_start_date
2436: ,l_pay_calc_method
2437: ,l_custom_schedule;
2438: close c_details;
2439:
2440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2444:
2437: ,l_custom_schedule;
2438: close c_details;
2439:
2440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2444:
2445: if p_phase = 'OPEN' then
2438: close c_details;
2439:
2440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2444:
2445: if p_phase = 'OPEN' then
2446:
2439:
2440: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_start_date: ' || l_loan_start_date);
2441: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_maturity_date: ' || l_maturity_date);
2442: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_calc_method: ' || l_pay_calc_method);
2443: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_custom_schedule: ' || l_custom_schedule);
2444:
2445: if p_phase = 'OPEN' then
2446:
2447: l_freq_schedule_tbl := LNS_FIN_UTILS.fetchFreqSchedule(
2497: end if; --if l_custom_schedule = 'N'
2498:
2499: end if; --if p_phase = 'OPEN'
2500:
2501: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2502: return l_payment_tbl;
2503:
2504: end buildPaymentScheduleExt;
2505:
2535:
2536: begin
2537:
2538: l_api_name := 'getNextInstallmentAfterDate';
2539: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2540: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2541: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2542:
2543: l_installment_no := null;
2536: begin
2537:
2538: l_api_name := 'getNextInstallmentAfterDate';
2539: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2540: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2541: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2542:
2543: l_installment_no := null;
2544: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
2537:
2538: l_api_name := 'getNextInstallmentAfterDate';
2539: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2540: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_loan_id: ' || p_loan_id);
2541: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2542:
2543: l_installment_no := null;
2544: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_payment_tbl.count = ' || l_payment_tbl.count);
2541: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_phase: ' || p_phase);
2542:
2543: l_installment_no := null;
2544: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_payment_tbl.count = ' || l_payment_tbl.count);
2546:
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date: ' || p_date);
2548: FOR k in 1..l_payment_tbl.count LOOP
2549:
2543: l_installment_no := null;
2544: l_payment_tbl := LNS_FIN_UTILS.buildPaymentScheduleExt(p_loan_id, p_phase);
2545: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_payment_tbl.count = ' || l_payment_tbl.count);
2546:
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date: ' || p_date);
2548: FOR k in 1..l_payment_tbl.count LOOP
2549:
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Period ' || k ||
2551: ': ' || l_payment_tbl(k).PERIOD_BEGIN_DATE || ' - ' || (l_payment_tbl(k).PERIOD_DUE_DATE-1));
2546:
2547: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_date: ' || p_date);
2548: FOR k in 1..l_payment_tbl.count LOOP
2549:
2550: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Period ' || k ||
2551: ': ' || l_payment_tbl(k).PERIOD_BEGIN_DATE || ' - ' || (l_payment_tbl(k).PERIOD_DUE_DATE-1));
2552:
2553: if p_date >= l_payment_tbl(k).PERIOD_BEGIN_DATE and p_date < l_payment_tbl(k).PERIOD_DUE_DATE then
2554: l_installment_no := k;
2551: ': ' || l_payment_tbl(k).PERIOD_BEGIN_DATE || ' - ' || (l_payment_tbl(k).PERIOD_DUE_DATE-1));
2552:
2553: if p_date >= l_payment_tbl(k).PERIOD_BEGIN_DATE and p_date < l_payment_tbl(k).PERIOD_DUE_DATE then
2554: l_installment_no := k;
2555: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Found match, exiting loop');
2556: exit;
2557: end if;
2558:
2559: END LOOP;
2558:
2559: END LOOP;
2560:
2561: IF l_installment_no IS NULL THEN
2562: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Did not find match, assigning next installment to be billed');
2563: l_installment_no := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER(p_loan_id) + 1;
2564: END IF;
2565:
2566: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2562: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Did not find match, assigning next installment to be billed');
2563: l_installment_no := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER(p_loan_id) + 1;
2564: END IF;
2565:
2566: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2567: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2568:
2569: return l_installment_no;
2570:
2563: l_installment_no := LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER(p_loan_id) + 1;
2564: END IF;
2565:
2566: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2567: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2568:
2569: return l_installment_no;
2570:
2571: end getNextInstallmentAfterDate;
2613:
2614: begin
2615:
2616: l_api_name := 'getNextInstForDisbursement';
2617: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2618: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_hdr_id: ' || p_disb_hdr_id);
2619:
2620: l_installment_no := 0;
2621:
2614: begin
2615:
2616: l_api_name := 'getNextInstForDisbursement';
2617: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
2618: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_disb_hdr_id: ' || p_disb_hdr_id);
2619:
2620: l_installment_no := 0;
2621:
2622: OPEN c_disb_details(p_disb_hdr_id);
2626: ,l_disbursement_date
2627: ,l_phase;
2628: close c_disb_details;
2629:
2630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id: ' || l_loan_id);
2631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_req_date: ' || l_pay_req_date);
2632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disbursement_date: ' || l_disbursement_date);
2633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
2634:
2627: ,l_phase;
2628: close c_disb_details;
2629:
2630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id: ' || l_loan_id);
2631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_req_date: ' || l_pay_req_date);
2632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disbursement_date: ' || l_disbursement_date);
2633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
2634:
2635: l_sourceDate := null;
2628: close c_disb_details;
2629:
2630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id: ' || l_loan_id);
2631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_req_date: ' || l_pay_req_date);
2632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disbursement_date: ' || l_disbursement_date);
2633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
2634:
2635: l_sourceDate := null;
2636: IF (l_disbursement_date IS NOT NULL) THEN
2629:
2630: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_loan_id: ' || l_loan_id);
2631: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_pay_req_date: ' || l_pay_req_date);
2632: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_disbursement_date: ' || l_disbursement_date);
2633: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_phase: ' || l_phase);
2634:
2635: l_sourceDate := null;
2636: IF (l_disbursement_date IS NOT NULL) THEN
2637: l_sourceDate := l_disbursement_date;
2638: ELSE
2639: l_sourceDate := l_pay_req_date;
2640: END IF;
2641:
2642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Calling getNextInstallmentAfterDate...');
2643: l_installment_no := getNextInstallmentAfterDate(l_loan_id, l_sourceDate, l_phase);
2644:
2645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2646: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2641:
2642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Calling getNextInstallmentAfterDate...');
2643: l_installment_no := getNextInstallmentAfterDate(l_loan_id, l_sourceDate, l_phase);
2644:
2645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2646: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2647:
2648: return l_installment_no;
2649:
2642: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' Calling getNextInstallmentAfterDate...');
2643: l_installment_no := getNextInstallmentAfterDate(l_loan_id, l_sourceDate, l_phase);
2644:
2645: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' l_installment_no = ' || l_installment_no);
2646: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - END');
2647:
2648: return l_installment_no;
2649:
2650: end getNextInstForDisbursement;
2685: +-----------------------------------------------------------------------*/
2686:
2687: BEGIN
2688:
2689: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2690:
2691: -- Standard start of API savepoint
2692: SAVEPOINT getAmortSchedCSV;
2693: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
2689: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2690:
2691: -- Standard start of API savepoint
2692: SAVEPOINT getAmortSchedCSV;
2693: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Savepoint is established');
2694:
2695: -- Standard call to check for call compatibility
2696: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2705: -- Initialize API return status to success
2706: l_return_status := FND_API.G_RET_STS_SUCCESS;
2707:
2708: -- START OF BODY OF API
2709: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2710: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2711: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_SCHEDULE_TYPE: ' || P_SCHEDULE_TYPE);
2712:
2713: -- validation
2706: l_return_status := FND_API.G_RET_STS_SUCCESS;
2707:
2708: -- START OF BODY OF API
2709: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2710: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2711: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_SCHEDULE_TYPE: ' || P_SCHEDULE_TYPE);
2712:
2713: -- validation
2714: if P_LOAN_ID is null then
2707:
2708: -- START OF BODY OF API
2709: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2710: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2711: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_SCHEDULE_TYPE: ' || P_SCHEDULE_TYPE);
2712:
2713: -- validation
2714: if P_LOAN_ID is null then
2715: FND_MESSAGE.SET_NAME('LNS', 'LNS_INVALID_VALUE');
2733: l_csv_str := 'Payment Number,Due Date,Interest Rate,Beginning Balance,Payment,Principal,Freeze Principal Flag,Interest,Freeze Interest Flag,Fees,Ending Balance';
2734: dbms_lob.writeAppend(X_CSV_CLOB, length(l_csv_str), l_csv_str);
2735:
2736: l_date_format := FND_PROFILE.VALUE('ICX_DATE_FORMAT_MASK');
2737: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_date_format: ' || l_date_format);
2738:
2739: if P_SCHEDULE_TYPE = 'CURRENT' or P_SCHEDULE_TYPE = 'ORIGINAL' then
2740:
2741: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_FINANCIALS.runAmortization...');
2737: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_date_format: ' || l_date_format);
2738:
2739: if P_SCHEDULE_TYPE = 'CURRENT' or P_SCHEDULE_TYPE = 'ORIGINAL' then
2740:
2741: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_FINANCIALS.runAmortization...');
2742: LNS_FINANCIALS.runAmortization(
2743: P_API_VERSION => 1.0,
2744: P_INIT_MSG_LIST => FND_API.G_TRUE,
2745: P_COMMIT => FND_API.G_FALSE,
2749: x_return_status => l_return_status,
2750: x_msg_count => l_msg_count,
2751: x_msg_data => l_msg_data);
2752:
2753: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
2754: IF l_return_status <> 'S' THEN
2755: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2751: x_msg_data => l_msg_data);
2752:
2753: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
2754: IF l_return_status <> 'S' THEN
2755: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758:
2759: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Building CLOB...');
2755: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2756: RAISE FND_API.G_EXC_ERROR;
2757: END IF;
2758:
2759: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Building CLOB...');
2760: FOR i IN 1 .. l_amort_tbl.count LOOP
2761: l_csv_str := l_endline ||
2762: l_amort_tbl(i).INSTALLMENT_NUMBER || ',' ||
2763: to_date(l_amort_tbl(i).DUE_DATE, l_date_format) || ',' ||
2767: l_amort_tbl(i).PRINCIPAL_AMOUNT || ',Y,' ||
2768: l_amort_tbl(i).INTEREST_AMOUNT || ',Y,' ||
2769: l_amort_tbl(i).FEE_AMOUNT || ',' ||
2770: l_amort_tbl(i).END_BALANCE;
2771: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_csv_str);
2772: dbms_lob.writeAppend(X_CSV_CLOB, length(l_csv_str), l_csv_str);
2773: END LOOP;
2774:
2775: else
2773: END LOOP;
2774:
2775: else
2776:
2777: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Calling LNS_CUSTOM_PUB.getRetainedSchedule...');
2778: LNS_CUSTOM_PUB.getRetainedSchedule(
2779: P_API_VERSION => 1.0,
2780: P_INIT_MSG_LIST => FND_API.G_TRUE,
2781: P_COMMIT => FND_API.G_FALSE,
2785: x_return_status => l_return_status,
2786: x_msg_count => l_msg_count,
2787: x_msg_data => l_msg_data);
2788:
2789: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
2790: IF l_return_status <> 'S' THEN
2791: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2792: RAISE FND_API.G_EXC_ERROR;
2793: END IF;
2787: x_msg_data => l_msg_data);
2788:
2789: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'l_return_status: ' || l_return_status);
2790: IF l_return_status <> 'S' THEN
2791: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2792: RAISE FND_API.G_EXC_ERROR;
2793: END IF;
2794:
2795: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Building CLOB...');
2791: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'ERROR: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
2792: RAISE FND_API.G_EXC_ERROR;
2793: END IF;
2794:
2795: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Building CLOB...');
2796: FOR i IN 1 .. l_custom_tbl.count LOOP
2797: l_csv_str := l_endline ||
2798: l_custom_tbl(i).PAYMENT_NUMBER || ',' ||
2799: to_date(l_custom_tbl(i).DUE_DATE, l_date_format) || ',' ||
2803: l_custom_tbl(i).PRINCIPAL_AMOUNT || ',Y,' ||
2804: l_custom_tbl(i).INTEREST_AMOUNT || ',Y,' ||
2805: l_custom_tbl(i).FEE_AMOUNT || ',' ||
2806: l_custom_tbl(i).INSTALLMENT_END_BALANCE;
2807: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_csv_str);
2808: dbms_lob.writeAppend(X_CSV_CLOB, length(l_csv_str), l_csv_str);
2809: END LOOP;
2810:
2811: end if;
2812:
2813: -- END OF BODY OF API
2814: if P_COMMIT = FND_API.G_TRUE then
2815: COMMIT WORK;
2816: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Commited');
2817: end if;
2818:
2819: -- END OF BODY OF API
2820: x_return_status := FND_API.G_RET_STS_SUCCESS;
2824: p_encoded => FND_API.G_FALSE,
2825: p_count => x_msg_count,
2826: p_data => x_msg_data);
2827:
2828: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2829:
2830: EXCEPTION
2831: WHEN FND_API.G_EXC_ERROR THEN
2832: ROLLBACK TO getAmortSchedCSV;
2831: WHEN FND_API.G_EXC_ERROR THEN
2832: ROLLBACK TO getAmortSchedCSV;
2833: x_return_status := FND_API.G_RET_STS_ERROR;
2834: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2835: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2837: ROLLBACK TO getAmortSchedCSV;
2838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2839: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2837: ROLLBACK TO getAmortSchedCSV;
2838: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2839: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2840: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2841: WHEN OTHERS THEN
2842: ROLLBACK TO getAmortSchedCSV;
2843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2841: WHEN OTHERS THEN
2842: ROLLBACK TO getAmortSchedCSV;
2843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2844: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
2845: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'Rollbacked');
2846: END;
2847:
2848:
2849: function fetchFreqSchedule(
2879: order by FREQUENCY_BEGIN_DATE;
2880:
2881: BEGIN
2882:
2883: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2884:
2885: -- START OF BODY OF API
2886: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2887: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2882:
2883: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2884:
2885: -- START OF BODY OF API
2886: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2887: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2888: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PHASE: ' || P_PHASE);
2889: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_COMPONENT: ' || P_COMPONENT);
2890:
2883: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2884:
2885: -- START OF BODY OF API
2886: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2887: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2888: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PHASE: ' || P_PHASE);
2889: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_COMPONENT: ' || P_COMPONENT);
2890:
2891: i := 0;
2884:
2885: -- START OF BODY OF API
2886: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2887: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2888: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PHASE: ' || P_PHASE);
2889: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_COMPONENT: ' || P_COMPONENT);
2890:
2891: i := 0;
2892: OPEN c_freq_schedule(P_LOAN_ID, P_PHASE, P_COMPONENT);
2885: -- START OF BODY OF API
2886: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2887: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_LOAN_ID: ' || P_LOAN_ID);
2888: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_PHASE: ' || P_PHASE);
2889: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'P_COMPONENT: ' || P_COMPONENT);
2890:
2891: i := 0;
2892: OPEN c_freq_schedule(P_LOAN_ID, P_PHASE, P_COMPONENT);
2893: LOOP
2896:
2897: i := i + 1;
2898: l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE := l_FREQUENCY_BEGIN_DATE;
2899: l_FREQ_SCHEDULE_TBL(i).FREQUENCY := l_FREQUENCY;
2900: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
2901: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_BEGIN_DATE = ' || l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE);
2902: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FREQUENCY = ' || l_FREQ_SCHEDULE_TBL(i).FREQUENCY);
2903: END LOOP;
2904: close c_freq_schedule;
2897: i := i + 1;
2898: l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE := l_FREQUENCY_BEGIN_DATE;
2899: l_FREQ_SCHEDULE_TBL(i).FREQUENCY := l_FREQUENCY;
2900: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
2901: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_BEGIN_DATE = ' || l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE);
2902: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FREQUENCY = ' || l_FREQ_SCHEDULE_TBL(i).FREQUENCY);
2903: END LOOP;
2904: close c_freq_schedule;
2905:
2898: l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE := l_FREQUENCY_BEGIN_DATE;
2899: l_FREQ_SCHEDULE_TBL(i).FREQUENCY := l_FREQUENCY;
2900: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Record ' || i);
2901: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'PERIOD_BEGIN_DATE = ' || l_FREQ_SCHEDULE_TBL(i).PERIOD_BEGIN_DATE);
2902: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FREQUENCY = ' || l_FREQ_SCHEDULE_TBL(i).FREQUENCY);
2903: END LOOP;
2904: close c_freq_schedule;
2905:
2906: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2902: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'FREQUENCY = ' || l_FREQ_SCHEDULE_TBL(i).FREQUENCY);
2903: END LOOP;
2904: close c_freq_schedule;
2905:
2906: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2907: return l_FREQ_SCHEDULE_TBL;
2908:
2909: END;
2910:
2918: l_api_name CONSTANT VARCHAR2(30) := 'fetchPayFreqRecByDate';
2919:
2920: BEGIN
2921:
2922: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2923: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2924: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_DATE = ' || p_DATE);
2925:
2926: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(1);
2919:
2920: BEGIN
2921:
2922: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2923: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2924: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_DATE = ' || p_DATE);
2925:
2926: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(1);
2927: for i in REVERSE 1..p_FREQUENCY_SCHEDULE.count loop
2920: BEGIN
2921:
2922: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' +');
2923: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Input:');
2924: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_DATE = ' || p_DATE);
2925:
2926: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(1);
2927: for i in REVERSE 1..p_FREQUENCY_SCHEDULE.count loop
2928: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Record ' || i || ': Date = ' || p_FREQUENCY_SCHEDULE(i).PERIOD_BEGIN_DATE);
2924: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'p_DATE = ' || p_DATE);
2925:
2926: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(1);
2927: for i in REVERSE 1..p_FREQUENCY_SCHEDULE.count loop
2928: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Record ' || i || ': Date = ' || p_FREQUENCY_SCHEDULE(i).PERIOD_BEGIN_DATE);
2929: if p_DATE >= p_FREQUENCY_SCHEDULE(i).PERIOD_BEGIN_DATE then
2930: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(i);
2931: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returning this record');
2932: exit;
2927: for i in REVERSE 1..p_FREQUENCY_SCHEDULE.count loop
2928: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Record ' || i || ': Date = ' || p_FREQUENCY_SCHEDULE(i).PERIOD_BEGIN_DATE);
2929: if p_DATE >= p_FREQUENCY_SCHEDULE(i).PERIOD_BEGIN_DATE then
2930: x_FREQUENCY_REC := p_FREQUENCY_SCHEDULE(i);
2931: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Returning this record');
2932: exit;
2933: end if;
2934: end loop;
2935:
2932: exit;
2933: end if;
2934: end loop;
2935:
2936: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, G_PKG_NAME || '.' || l_api_name || ' -');
2937:
2938: END;
2939:
2940: