[Home] [Help]
340: l_day_convention_year VARCHAR2(30);
341: l_days_in_year NUMBER;
342: BEGIN
343: IF (G_DEBUG_ENABLED = 'Y') THEN
344: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
345: END IF;
346:
347: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
348: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
344: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
345: END IF;
346:
347: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
348: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
349:
350: END IF;
351: x_return_status := OKL_API.G_RET_STS_SUCCESS;
352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
349:
350: END IF;
351: x_return_status := OKL_API.G_RET_STS_SUCCESS;
352: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
353: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' Investment ' || to_char( p_investment ));
354:
355: END IF;
356: OPEN c_stub;
357: FETCH c_stub INTO l_stub_id;
373: x_days_in_month => l_day_convention_month,
374: x_days_in_year => l_day_convention_year,
375: x_return_status => lx_return_status);
376: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
377: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
378: END IF;
379: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
380: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
381: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
382: RAISE OKL_API.G_EXCEPTION_ERROR;
383: END IF;
384:
385: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
386: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'sll start date ' || l_start_date );
387: END IF;
388: FOR l_rent_flow IN c_rent_flows( l_stream_name ) LOOP
389:
390: k := k + 1;
389:
390: k := k + 1;
391:
392: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
393: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'rent flow start date ' || l_rent_flow.se_date );
394: END IF;
395: asset_rents(k).se_days := OKL_PRICING_UTILS_PVT.get_day_count(p_start_date => l_start_date,
396: p_days_in_month => l_day_convention_month,
397: p_days_in_year => l_day_convention_year,
434: RAISE OKL_API.G_EXCEPTION_ERROR;
435: END IF;
436:
437: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
438: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' asset rent count ' || to_char(asset_rents.COUNT));
439: END IF;
440: LOOP
441:
442: i := i + 1;
443:
444: l_interim_interest := p_investment * l_interim_days * l_iir/360;
445:
446: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
447: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || i||' Implicit Rate '||l_iir||' Interim Interest '||l_interim_interest
448: ||' Interim Days = '||l_interim_days);
449:
450: END IF;
451: l_open_book := p_investment;
449:
450: END IF;
451: l_open_book := p_investment;
452: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
453: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' Investment ' || to_char(l_open_book));
454:
455: END IF;
456: FOR k IN 1..asset_rents.COUNT LOOP
457:
461: l_close_book := l_open_book - l_principal;
462: l_open_book := l_close_book;
463:
464: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
465: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||TO_CHAR(asset_rents(k).se_date, 'DD-MON-YYYY')||' DAYS '||asset_rents(k).se_DAYS
466: || ' LOAN PAYMENT '||l_payment|| ' INTEREST '||ROUND(l_interest, 3)
467: || ' PRINCIPAL '||ROUND(l_principal, 3)||' Next OB '||ROUND(l_open_book, 3));
468:
469: END IF;
498:
499: l_open_book := l_close_book;
500:
501: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
502: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || asset_rents(k).se_days || ':' || l_close_book || ':' || l_interest || ':' || l_principal || ':' || l_se_date );
503: END IF;
504: END LOOP;
505:
506: IF l_interim_interest > 0 THEN
572:
573: IF ABS(l_iir) > l_iir_limit THEN
574:
575: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
576: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' irr ' || ABS(l_iir) );
577: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' irr limit ' || l_iir_limit );
578:
579: END IF;
580: If k = 1 then
573: IF ABS(l_iir) > l_iir_limit THEN
574:
575: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
576: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' irr ' || ABS(l_iir) );
577: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' irr limit ' || l_iir_limit );
578:
579: END IF;
580: If k = 1 then
581:
598:
599: END LOOP;
600:
601: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
602: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' done with iir ' );
603:
604: END IF;
605: -------------------------------------------
606: -- PRE-TAX INCOME
628: --asset_rents(asset_rents.LAST).se_amount := asset_rents(asset_rents.LAST).se_amount + p_residual_value;
629: ---
630:
631: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
632: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' start with bkg yld ' );
633: END IF;
634: LOOP
635:
636: --DEBUG
638:
639: i := i + 1;
640:
641: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
642: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
643: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Booking Yield Iteration # '||i||' Guess Value '||l_bk_yield);
644:
645: END IF;
646: l_termination_val := p_investment;
639: i := i + 1;
640:
641: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
642: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
643: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Booking Yield Iteration # '||i||' Guess Value '||l_bk_yield);
644:
645: END IF;
646: l_termination_val := p_investment;
647: k := 1;
659:
660: l_se_date := asset_rents(k).se_date;
661:
662: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' l_se_date ' || LAST_DAY(l_se_date) || ' l_start_date ' || LAST_DAY(l_start_date) );
664:
665: END IF;
666: IF TRUNC(LAST_DAY(l_se_date)) <> TRUNC(LAST_DAY(l_start_date)) THEN -- NON payment month
667:
684: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
685: termination_val(j).se_amount := l_termination_val;
686:
687: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
688: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Non Payment Month '||TO_CHAR(l_start_date, 'MON-YYYY')|| ' DAYS '||l_days|| ' Income '
689: ||ROUND(pre_tax_income(j).se_amount, 3)|| ' Month Ending TV '
690: ||ROUND(termination_val(j).se_amount, 3));
691:
692: END IF;
729:
730: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
731:
732: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
733: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name ||
734: 'PAY MO. '||TO_CHAR(l_start_date, 'MON-YYYY')||
735: ' Days pre-RENT '||l_days||
736: ' TV for CALC '||ROUND(l_termination_val, 3)||
737: ' ACC INT '||ROUND(pre_tax_income(j).se_amount, 3)||
745:
746: IF k = asset_rents.LAST THEN -- check for last payment
747:
748: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
749: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
750: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Last RENT recieved '||TO_CHAR(asset_rents(k).se_date, 'DD-MON-YYYY'));
751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
752:
753: END IF;
746: IF k = asset_rents.LAST THEN -- check for last payment
747:
748: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
749: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
750: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Last RENT recieved '||TO_CHAR(asset_rents(k).se_date, 'DD-MON-YYYY'));
751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
752:
753: END IF;
754: l_start_date := l_se_date;
747:
748: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
749: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
750: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Last RENT recieved '||TO_CHAR(asset_rents(k).se_date, 'DD-MON-YYYY'));
751: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
752:
753: END IF;
754: l_start_date := l_se_date;
755:
805: termination_val(j).se_date := l_se_date;
806: pre_tax_income(j).se_date := l_se_date;
807:
808: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
809: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name ||
810: '('||TO_CHAR(l_start_date, 'DD-MON-YYYY')||
811: ' - '||TO_CHAR(l_end_date, 'DD-MON-YYYY')||
812: ') Days '||l_days||
813: ' Income '||ROUND(pre_tax_income(j).se_amount,3)||
857: END IF;
858:
859:
860: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
861: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name ||
862: 'PAY MO. '||TO_CHAR(l_start_date, 'MON-YYYY')||
863: ' Days stub '||l_days||
864: ' TV for CALC '||ROUND(l_termination_val, 3)||
865: ' INC (stub) '||ROUND(l_termination_val*l_days*l_bk_yield/360, 3)||
967:
968: END IF;
969:
970: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
971: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name ||
972: 'PAY MO. '||TO_CHAR(l_start_date, 'MON-YYYY')||
973: ' Days stub '||l_days||
974: ' TV for CALC '||ROUND(l_termination_val, 3)||
975: ' INC (stub) '||ROUND(l_termination_val*l_days*l_bk_yield/360, 3)||
1064: l_days := l_days + 1;
1065: END IF;
1066:
1067: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1068: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name ||
1069: 'PAY MO. '||TO_CHAR(l_start_date, 'MON-YYYY')||
1070: ' Days post-RENT '||l_days||
1071: ' TV for CALC '||ROUND(l_termination_val, 3)||
1072: ' INC (2nd half) '||ROUND(l_termination_val*l_days*l_bk_yield/360, 3)||
1101:
1102: --l_diff := l_termination_val - p_residual_value;
1103: l_diff := l_termination_val;
1104: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1105: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' L_DIFF ' || l_diff );
1106:
1107: END IF;
1108: IF ROUND(l_diff, 4) = 0 THEN
1109:
1124:
1125: x_termination_tbl(j).se_line_number := j;
1126: x_pre_tax_inc_tbl(j).se_line_number := j;
1127: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1128: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || x_pre_tax_inc_tbl(j).amount || ':' ||
1129: x_termination_tbl(j).amount || ':' || x_termination_tbl(j).stream_element_date );
1130:
1131: END IF;
1132: END LOOP;
1141: x_termination_tbl(x_termination_tbl.LAST).amount := p_residual_value;
1142:
1143: x_booking_yield := l_bk_yield;
1144: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1145: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' Booking yield ' || l_bk_yield );
1146:
1147: END IF;
1148: RETURN;
1149:
1190: END LOOP;
1191:
1192: x_return_status := lx_return_status;
1193: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1194: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
1195:
1196: END IF;
1197: EXCEPTION
1198:
1480:
1481:
1482: BEGIN
1483: IF (G_DEBUG_ENABLED = 'Y') THEN
1484: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
1485: END IF;
1486:
1487: -- print( l_prog_name, 'begin' );
1488:
1514: x_days_in_month => l_day_convention_month,
1515: x_days_in_year => l_day_convention_year,
1516: x_return_status => lx_return_status);
1517: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
1518: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
1519: END IF;
1520: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
1521: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1522: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
2795:
2796:
2797: BEGIN
2798: IF (G_DEBUG_ENABLED = 'Y') THEN
2799: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2800: END IF;
2801: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2802: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' begin');
2803: END IF;
2798: IF (G_DEBUG_ENABLED = 'Y') THEN
2799: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
2800: END IF;
2801: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2802: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' begin');
2803: END IF;
2804: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2805: -- Call start_activity to create savepoint, check compatibility
2806: -- and initialize message list
2840: x_days_in_month => l_day_convention_month,
2841: x_days_in_year => l_day_convention_year,
2842: x_return_status => x_return_status);
2843: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2844: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'comp_so_bk_yd Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
2845: END IF;
2846: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2847: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2848: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2929: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2930: RAISE OKL_API.G_EXCEPTION_ERROR;
2931: END IF;
2932: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' cost ' || l_asset_cost || ' residual value ' || l_residual_value);
2934: END IF;
2935: l_k_end_date := (ADD_MONTHS(ld_asset_start_date, l_rent_sll.term_duration) - 1);
2936: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2937: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' # of payments '||TO_CHAR(asset_rents.COUNT));
2933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' cost ' || l_asset_cost || ' residual value ' || l_residual_value);
2934: END IF;
2935: l_k_end_date := (ADD_MONTHS(ld_asset_start_date, l_rent_sll.term_duration) - 1);
2936: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2937: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' # of payments '||TO_CHAR(asset_rents.COUNT));
2938: END IF;
2939: LOOP
2940: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' interation # '||TO_CHAR(i));
2937: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' # of payments '||TO_CHAR(asset_rents.COUNT));
2938: END IF;
2939: LOOP
2940: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2941: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' interation # '||TO_CHAR(i));
2942: END IF;
2943: i := i + 1;
2944: k := 1;
2945: j := 0;
2950: LOOP
2951: j := j + 1;
2952: l_se_date := trunc(asset_rents(k).se_date);
2953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_se_date '||TO_CHAR(l_se_date));
2955: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_start_date '||TO_CHAR(l_start_date));
2956: END IF;
2957: IF LAST_DAY(l_se_date) <> LAST_DAY(l_start_date) THEN
2958: l_end_date := LAST_DAY(l_start_date);
2951: j := j + 1;
2952: l_se_date := trunc(asset_rents(k).se_date);
2953: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2954: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_se_date '||TO_CHAR(l_se_date));
2955: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_start_date '||TO_CHAR(l_start_date));
2956: END IF;
2957: IF LAST_DAY(l_se_date) <> LAST_DAY(l_start_date) THEN
2958: l_end_date := LAST_DAY(l_start_date);
2959: l_days := OKL_PRICING_UTILS_PVT.get_day_count(
2963: p_end_date => l_end_date,
2964: p_arrears => 'Y',
2965: x_return_status => x_return_status);
2966: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2967: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' Status 5 '||x_return_status);
2968: END IF;
2969: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2970: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
2971: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2977: l_se_date := l_se_date - 1;
2978: END IF;
2979: ELSE
2980: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2981: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' Status 6 '||x_return_status);
2982: END IF;
2983: l_end_date := l_se_date;
2984: l_days := OKL_PRICING_UTILS_PVT.get_day_count(
2985: p_start_date => l_start_date,
2993: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2994: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_ERROR);
2995: END IF;
2996: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
2997: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' Status 7 '||x_return_status);
2998: END IF;
2999: --IF j = 1 THEN
3000: -- l_days := 0;
3001: --END IF;
3003: l_termination_val := l_termination_val - asset_rents(k).se_amount;
3004: IF k = asset_rents.LAST THEN
3005: l_start_date := l_se_date;
3006: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3007: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_start_date::l_k_end_date '||l_start_date||'::'||l_k_end_date);
3008: END IF;
3009: LOOP
3010: m := m + 1;
3011: IF trunc(LAST_DAY(l_start_date)) <> trunc(LAST_DAY(l_k_end_date)) THEN
3020: p_end_date => l_end_date,
3021: p_arrears => 'Y',
3022: x_return_status => x_return_status);
3023: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3024: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' # of days '||to_char(l_days));
3025: END IF;
3026: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3027: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
3028: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3041: IF TO_CHAR(LAST_DAY(l_se_date), 'DD') = '31' THEN
3042: l_se_date := l_se_date - 1;
3043: END IF;
3044: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3045: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_end_date::l_k_end_date '||l_end_date||'::'||l_k_end_date);
3046: END IF;
3047: EXIT WHEN TRUNC(l_end_date) = TRUNC(l_k_end_date);
3048: l_start_date := LAST_DAY(l_start_date) + 1;
3049: j := j + 1;
3062: p_end_date => l_end_date,
3063: p_arrears => l_rent_sll.arrears_yn,
3064: x_return_status => x_return_status);
3065: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3066: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' Status 9 '||x_return_status);
3067: END IF;
3068: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3069: EXIT WHEN(x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
3070: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3088: IF TO_CHAR(LAST_DAY(l_se_date), 'DD') = '31' THEN
3089: l_se_date := l_se_date - 1;
3090: END IF;
3091: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3092: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' arrears/advanced '|| l_rent_sll.arrears_yn);
3093: END IF;
3094: k := k + 1;
3095: END IF;
3096: EXIT WHEN l_term_complete = 'Y';
3098: l_start_date := LAST_DAY(l_start_date) + 1;
3099: END LOOP;
3100: l_diff := l_termination_val;
3101: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3102: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' changed precision ' || l_bk_yield || '::' || l_diff );
3103: END IF;
3104: IF ROUND(l_diff, 5) = 0 THEN
3105: x_booking_yield := l_bk_yield;
3106: EXIT;
3615: l_days_in_year NUMBER;
3616:
3617: BEGIN
3618: IF (G_DEBUG_ENABLED = 'Y') THEN
3619: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3620: END IF;
3621:
3622: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'begin' );
3619: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
3620: END IF;
3621:
3622: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3623: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'begin' );
3624:
3625: END IF;
3626: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3627: -- Call start_activity to create savepoint, check compatibility
3638: RAISE OKL_API.G_EXCEPTION_ERROR;
3639: END IF;
3640: -- check if the target is correctly given
3641: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3642: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'check if the target is correctly given' || ' ' || p_target );
3643:
3644: END IF;
3645: IF p_target NOT IN ('RATE','PMNT') THEN
3646: OKL_API.set_message(p_app_name => G_APP_NAME,
3650: RAISE OKL_API.G_EXCEPTION_ERROR;
3651: END IF;
3652:
3653: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3654: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'check if the target is correctly given - done');
3655: END IF;
3656: -- Fetch the day convention ..
3657: OKL_PRICING_UTILS_PVT.get_day_convention(
3658: p_id => p_khr_id,
3660: x_days_in_month => l_day_convention_month,
3661: x_days_in_year => l_day_convention_year,
3662: x_return_status => x_return_status);
3663: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3664: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'comp_so_pre_tax_irr Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
3665: END IF;
3666: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3667: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3668: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3674: RAISE OKL_API.G_EXCEPTION_ERROR;
3675: END IF;
3676: CLOSE get_start_date;
3677: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3678: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'got start date');
3679:
3680: END IF;
3681: -- Summing up Asset cost
3682: -- And since the input is a so_payment line we sum up the asset's cost
3688: x_return_status => x_return_status,
3689: x_asset_oec => l_cost,
3690: x_start_date => ld_asset_start_date);
3691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' get_so_asset_oec '|| x_return_status);
3693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' get_so_asset_oec - again '|| x_return_status);
3694: END IF;
3695: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3689: x_asset_oec => l_cost,
3690: x_start_date => ld_asset_start_date);
3691: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3692: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' get_so_asset_oec '|| x_return_status);
3693: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' get_so_asset_oec - again '|| x_return_status);
3694: END IF;
3695: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3696: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3697: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3697: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3698: RAISE OKL_API.G_EXCEPTION_ERROR;
3699: END IF;
3700: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3701: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_time_zero '|| x_return_status);
3702: END IF;
3703: l_time_zero_cost := l_time_zero_cost + NVL(l_cost, 0);
3704: -- Summing up Fee cost
3705: -- Here the fee are attached to the contract header
3705: -- Here the fee are attached to the contract header
3706: -- We do not include, security deposit fee, capiatlized fees, Pass through fee
3707: -- and also expense fees.
3708: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3709: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'before fee cost '|| x_return_status);
3710: END IF;
3711: FOR l_fee_cost IN c_fee_cost(p_khr_id => p_khr_id) LOOP
3712: IF l_fee_cost.start_date IS NOT NULL OR
3713: l_fee_cost.start_date <> OKL_API.G_MISS_DATE THEN
3728: -- Collecting the inflow amounts
3729: -- from the strm elements table since where the payment associated to the
3730: -- So_payment lines are broken into stream elements data
3731: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3732: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'before inflows '|| x_return_status);
3733: END IF;
3734: FOR l_inflow IN c_inflows(p_khr_id => p_khr_id,
3735: p_kle_id => p_kle_id,
3736: p_line_type => l_line_type) LOOP
3742: inflow_tbl(n).cf_dpp := l_inflow.days_per_period;
3743: inflow_tbl(n).cf_ppy := l_inflow.periods_per_year;
3744: inflow_tbl(n).rate := l_inflow.rate;
3745: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3746: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' start date::end date ' || l_inflow.start_date || '::' || l_inflow.cf_date|| x_return_status);
3747: END IF;
3748: inflow_tbl(n).cf_days := OKL_PRICING_UTILS_PVT.get_day_count(
3749: p_start_date => l_inflow.start_date,
3750: p_days_in_month => l_day_convention_month,
3780: inflow_tbl(n).cf_dpp := l_inflow.days_per_period;
3781: inflow_tbl(n).cf_ppy := l_inflow.periods_per_year;
3782: inflow_tbl(n).rate := l_inflow.rate;
3783: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3784: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' start date::end date ' || l_inflow.start_date || '::' || l_inflow.cf_date|| x_return_status);
3785: END IF;
3786: inflow_tbl(n).cf_days := OKL_PRICING_UTILS_PVT.get_day_count(
3787: p_start_date => l_inflow.start_date,
3788: p_days_in_month => l_day_convention_month,
3809:
3810: END LOOP;
3811:
3812: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3813: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after inflows # ' || n|| x_return_status);
3814: END IF;
3815: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3817: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3873: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
3874: END IF;
3875: END LOOP;
3876: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3877: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after residual values #' || p|| x_return_status);
3878: END IF;
3879: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3880: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3881: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3926: END IF;
3927: END IF;
3928: END LOOP;
3929: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
3930: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after outflows ' || q|| x_return_status);
3931: END IF;
3932: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3933: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3934: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4075: END IF;
4076: END LOOP;
4077: END LOOP;
4078: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4079: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after expenses '|| x_return_status);
4080: END IF;
4081: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
4082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
4120: CLOSE get_curr_code_pre;
4121: -- Setting the IRR limit
4122: l_irr_limit := ROUND(NVL(ABS(fnd_profile.value('OKL_PRE_TAX_IRR_LIMIT')), 1000), 0)/100;
4123: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_irr_limit ' ||l_irr_limit);
4125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'b4 getting into the loop '|| x_return_status);
4126: END IF;
4127: LOOP
4128: i := i + 1;
4121: -- Setting the IRR limit
4122: l_irr_limit := ROUND(NVL(ABS(fnd_profile.value('OKL_PRE_TAX_IRR_LIMIT')), 1000), 0)/100;
4123: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4124: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_irr_limit ' ||l_irr_limit);
4125: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'b4 getting into the loop '|| x_return_status);
4126: END IF;
4127: LOOP
4128: i := i + 1;
4129: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4126: END IF;
4127: LOOP
4128: i := i + 1;
4129: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4130: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ### ITERATION ### | ### PVALUE ### | ### IRR ### ');
4131: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || i || ' | ' || l_npv_rate || ' | ' || l_irr);
4132: END IF;
4133: l_npv_rate := -(l_time_zero_cost);
4134: l_npv_pay := -(l_time_zero_cost);
4127: LOOP
4128: i := i + 1;
4129: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4130: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ### ITERATION ### | ### PVALUE ### | ### IRR ### ');
4131: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || i || ' | ' || l_npv_rate || ' | ' || l_irr);
4132: END IF;
4133: l_npv_rate := -(l_time_zero_cost);
4134: l_npv_pay := -(l_time_zero_cost);
4135:
4133: l_npv_rate := -(l_time_zero_cost);
4134: l_npv_pay := -(l_time_zero_cost);
4135:
4136: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4137: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' time zero : ' || l_npv_pay );
4138:
4139: END IF;
4140: -------------------------------------------
4141: -- FEE COST CASH OUTFLOWS
4152: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4153: p_msg_name => 'OKL_IRR_ZERO_DIV');
4154: x_return_status := OKL_API.G_RET_STS_ERROR;
4155: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4156: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide outflows '|| x_return_status);
4157: END IF;
4158: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4159: END IF;
4160: IF p_target = 'RATE' THEN
4165: END LOOP;
4166: END IF;
4167:
4168: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4169: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' outflow : ' || l_npv_pay );
4170: END IF;
4171: -------------------------------------------
4172: -- PASSTHROUGH CASH INFLOWS
4173: -------------------------------------------
4184: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4185: p_msg_name => 'OKL_IRR_ZERO_DIV');
4186: x_return_status := OKL_API.G_RET_STS_ERROR;
4187: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4188: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide passthru '|| x_return_status);
4189: END IF;
4190: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4191: END IF;
4192:
4198: END LOOP;
4199: END IF;
4200:
4201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' pass thru : ' || l_npv_pay );
4203:
4204: END IF;
4205: -------------------------------------------
4206: -- FEE RECURRING EXPENSE CASH OUTFLOWS
4217: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4218: p_msg_name => 'OKL_IRR_ZERO_DIV');
4219: x_return_status := OKL_API.G_RET_STS_ERROR;
4220: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4221: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide expenses '|| x_return_status);
4222: END IF;
4223: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4224: END IF;
4225: IF p_target = 'RATE' THEN
4229: END IF;
4230: END LOOP;
4231: END IF;
4232: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4233: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' exp : ' || l_npv_pay );
4234: END IF;
4235: -------------------------------------------
4236: -- RV CASH INFLOWS
4237: -------------------------------------------
4247: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4248: p_msg_name => 'OKL_IRR_ZERO_DIV');
4249: x_return_status := OKL_API.G_RET_STS_ERROR;
4250: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4251: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide rvs '|| x_return_status);
4252: END IF;
4253: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4254: END IF;
4255: IF p_target = 'RATE' THEN
4259: END IF;
4260: END LOOP;
4261: END IF;
4262: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4263: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' rv : ' || l_npv_pay );
4264: END IF;
4265: ----------------------------------------------
4266: -- SECURITY DEPOSIT
4267: ----------------------------------------------
4316: END If;
4317: CLOSE c_security_deposit;
4318:
4319: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4320: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' sec dep : ' || l_npv_pay );
4321: END IF;
4322: -------------------------------------------
4323: -- LINE LEVEL CASH INFLOWS
4324: -------------------------------------------
4339: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4340: p_msg_name => 'OKL_IRR_ZERO_DIV');
4341: x_return_status := OKL_API.G_RET_STS_ERROR;
4342: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
4344: END IF;
4345: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4346: END IF;
4347: l_npv_pay := l_npv_pay + (l_cf_amount / POWER((1 + inflow_tbl(y).rate/(l_cf_ppy*100)), l_periods));
4348: END IF;
4349: END LOOP;
4350:
4351: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4352: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' inflo : ' || l_npv_pay );
4353: END IF;
4354: If (l_term <> 0 ) Then
4355: l_payment_inflow := (-1 * l_npv_pay ) / l_term;
4356: else
4357: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4358: p_msg_name => 'OKL_IRR_ZERO_DIV');
4359: x_return_status := OKL_API.G_RET_STS_ERROR;
4360: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4361: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
4362: END IF;
4363: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4364: end if;
4365:
4363: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4364: end if;
4365:
4366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_npv_pay ' || l_npv_pay );
4368: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_term ' || l_term );
4369:
4370: END IF;
4371: l_npv_pay := 0;
4364: end if;
4365:
4366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_npv_pay ' || l_npv_pay );
4368: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_term ' || l_term );
4369:
4370: END IF;
4371: l_npv_pay := 0;
4372:
4370: END IF;
4371: l_npv_pay := 0;
4372:
4373: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4374: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_payment_inflow ' || l_payment_inflow );
4375: END IF;
4376: Else
4377:
4378: IF n > 0 THEN
4391: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
4392: p_msg_name => 'OKL_IRR_ZERO_DIV');
4393: x_return_status := OKL_API.G_RET_STS_ERROR;
4394: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4395: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
4396: END IF;
4397: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4398: END IF;
4399: IF p_target = 'RATE' THEN
4486: p_token1 => 'IRR_LIMIT',
4487: p_token1_value => l_irr_limit*100);
4488: x_return_status := OKL_API.G_RET_STS_ERROR;
4489: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
4490: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' 100000% '|| x_return_status);
4491: END IF;
4492: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
4493: END IF;
4494: l_prev_incr_sign_rate := SIGN(l_increment_rate);
5036: pass_thru_id NUMBER;
5037:
5038: BEGIN
5039: IF (G_DEBUG_ENABLED = 'Y') THEN
5040: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5041: END IF;
5042:
5043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
5040: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
5041: END IF;
5042:
5043: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5044: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
5045: END IF;
5046: x_return_status := G_RET_STS_SUCCESS;
5047:
5048: lx_return_status := G_RET_STS_ERROR;
5053: x_days_in_month => l_day_convention_month,
5054: x_days_in_year => l_day_convention_year,
5055: x_return_status => lx_return_status);
5056: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5057: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
5058: END IF;
5059: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
5060: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5061: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
5253: IF l_outflow.date_funding_expected > p_start_date OR
5254: l_outflow.start_date > p_start_date
5255: THEN
5256: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5257: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '!!! Handling the Assets who are in effect later than the start date !!!');
5258: END IF;
5259: q := q + 1;
5260: outflow_tbl(q).cf_amount := nvl(l_outflow.capital_amount, 0);
5261: outflow_tbl(q).cf_amount := -(outflow_tbl(q).cf_amount);
5275: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
5276: RAISE OKL_API.G_EXCEPTION_ERROR;
5277: END IF;
5278: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5279: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || outflow_tbl(q).cf_date || '| ' || outflow_tbl(q).cf_days || ' | ' ||
5280: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
5281: END IF;
5282: ELSIF l_outflow.date_funding_expected <= p_start_date THEN
5283: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5280: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
5281: END IF;
5282: ELSIF l_outflow.date_funding_expected <= p_start_date THEN
5283: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5284: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '!!!!! Handling the Assets who are in effect earlier than the start date !!!!');
5285: END IF;
5286: q := q + 1;
5287: outflow_tbl(q).cf_amount := nvl(l_outflow.capital_amount, 0);
5288: outflow_tbl(q).cf_amount := -(outflow_tbl(q).cf_amount);
5303: RAISE OKL_API.G_EXCEPTION_ERROR;
5304: END IF;
5305: outflow_tbl(q).cf_days := -1 * outflow_tbl(q).cf_days;
5306: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5307: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || outflow_tbl(q).cf_date || '| ' || outflow_tbl(q).cf_days || ' | ' ||
5308: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
5309: END IF;
5310: END IF;
5311:
5363: OPEN top_svc_csr( p_khr_id, l_pass_th.cleId );
5364: FETCH top_svc_csr INTO top_svc_rec;
5365: If ( top_svc_csr%FOUND ) Then
5366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' found top svc line ' || to_char( l_pass_th.cleId ));
5368: END IF;
5369: pass_thru_id := top_svc_rec.top_svc_id;
5370: l_link_yn := 'Y';
5371: Else
5369: pass_thru_id := top_svc_rec.top_svc_id;
5370: l_link_yn := 'Y';
5371: Else
5372: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5373: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' not found top svc line ' || to_char( l_pass_th.cleId ));
5374: END IF;
5375: l_link_yn := 'N';
5376: pass_thru_id := l_pass_th.cleId;
5377: End If;
5655: -------------------------------------------
5656:
5657: IF r > 0 THEN
5658: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'PASSTHROUGH CASH INFLOWS ...');
5660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Cash Flow'||' Days in'||' Periods'||' Cash Flow'||' Discounted');
5662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Date'||' Future'||' (n) '||' Amount'||' Value');
5663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5656:
5657: IF r > 0 THEN
5658: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'PASSTHROUGH CASH INFLOWS ...');
5660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Cash Flow'||' Days in'||' Periods'||' Cash Flow'||' Discounted');
5662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Date'||' Future'||' (n) '||' Amount'||' Value');
5663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5664: END IF;
5657: IF r > 0 THEN
5658: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'PASSTHROUGH CASH INFLOWS ...');
5660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Cash Flow'||' Days in'||' Periods'||' Cash Flow'||' Discounted');
5662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Date'||' Future'||' (n) '||' Amount'||' Value');
5663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5664: END IF;
5665: --DEBUG
5658: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
5659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'PASSTHROUGH CASH INFLOWS ...');
5660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Cash Flow'||' Days in'||' Periods'||' Cash Flow'||' Discounted');
5662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Date'||' Future'||' (n) '||' Amount'||' Value');
5663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5664: END IF;
5665: --DEBUG
5666: a :=0;
5659: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'PASSTHROUGH CASH INFLOWS ...');
5660: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5661: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Cash Flow'||' Days in'||' Periods'||' Cash Flow'||' Discounted');
5662: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||' Date'||' Future'||' (n) '||' Amount'||' Value');
5663: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '');
5664: END IF;
5665: --DEBUG
5666: a :=0;
5667: FOR v IN 1..pass_th_tbl.COUNT LOOP
6348:
6349:
6350: BEGIN
6351: IF (G_DEBUG_ENABLED = 'Y') THEN
6352: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6353: END IF;
6354:
6355: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
6352: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6353: END IF;
6354:
6355: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6356: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
6357:
6358: END IF;
6359: -- Fetch the day convention ..
6360: OKL_PRICING_UTILS_PVT.get_day_convention(
6363: x_days_in_month => l_day_convention_month,
6364: x_days_in_year => l_day_convention_year,
6365: x_return_status => lx_return_status);
6366: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6367: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
6368: END IF;
6369: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
6370: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6371: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
6446:
6447: l_additional_parameters.delete;
6448:
6449: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6450: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' cap amount ' || l_investment);
6451:
6452: END IF;
6453: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6454: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6464:
6465: l_interim_interest := l_investment * l_interim_days * p_iir/360;
6466:
6467: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6468: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || i||' Implicit Rate '||p_iir||' Interim Interest '||l_interim_interest
6469: ||' Interim Days = '||l_interim_days);
6470:
6471: END IF;
6472: l_open_book := l_investment;
6484: l_close_book := l_open_book - l_principal;
6485: l_open_book := l_close_book;
6486:
6487: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6488: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' '||TO_CHAR(asset_rents(k).se_date, 'DD-MON-YYYY')||' DAYS '||asset_rents(k).se_DAYS
6489: || ' LOAN PAYMENT '||l_payment|| ' INTEREST '||ROUND(l_interest, 3)
6490: || ' PRINCIPAL '||ROUND(l_principal, 3)||' Next OB '||ROUND(l_open_book, 3));
6491:
6492: END IF;
6603: x_return_status := lx_return_status;
6604: x_payment_amount := l_payment_amount;
6605:
6606: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6607: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
6608:
6609: END IF;
6610: EXCEPTION
6611:
6819: l_days_in_year NUMBER;
6820:
6821: BEGIN
6822: IF (G_DEBUG_ENABLED = 'Y') THEN
6823: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6824: END IF;
6825:
6826: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'begin' );
6823: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
6824: END IF;
6825:
6826: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6827: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'begin' );
6828:
6829: END IF;
6830: x_return_status := OKL_API.G_RET_STS_SUCCESS;
6831: -- Call start_activity to create savepoint, check compatibility
6842: RAISE OKL_API.G_EXCEPTION_ERROR;
6843: END IF;
6844: -- check if the target is correctly given
6845: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6846: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'check if the target is correctly given' || ' ' || p_target );
6847:
6848: END IF;
6849: -- Fetch the day convention ..
6850: OKL_PRICING_UTILS_PVT.get_day_convention(
6853: x_days_in_month => l_day_convention_month,
6854: x_days_in_year => l_day_convention_year,
6855: x_return_status => x_return_status);
6856: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'comp_so_iir Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
6858: END IF;
6859: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6860: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6861: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6870: RAISE OKL_API.G_EXCEPTION_ERROR;
6871: END IF;
6872:
6873: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6874: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'check if the target is correctly given - done');
6875:
6876: END IF;
6877: OPEN get_start_date(P_khr_id => p_khr_id);
6878: FETCH get_start_date INTO l_khr_start_date;
6880: RAISE OKL_API.G_EXCEPTION_ERROR;
6881: END IF;
6882: CLOSE get_start_date;
6883: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6884: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'got start date');
6885:
6886: END IF;
6887: -- Summing up Asset cost
6888: -- And since the input is a so_payment line we sum up the asset's cost
6894: x_return_status => x_return_status,
6895: x_asset_oec => l_cost,
6896: x_start_date => ld_asset_start_date);
6897: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6898: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' get_so_asset_oec ' || l_cost|| x_return_status);
6899: END IF;
6900: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6901: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6902: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6902: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6903: RAISE OKL_API.G_EXCEPTION_ERROR;
6904: END IF;
6905: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6906: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_time_zero '|| x_return_status);
6907: END IF;
6908: l_time_zero_cost := l_time_zero_cost + NVL(l_cost, 0);
6909:
6910: OPEN khr_type_csr;
6920: -- Collecting the inflow amounts
6921: -- from the strm elements table since where the payment associated to the
6922: -- So_payment lines are broken into stream elements data
6923: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
6924: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'before inflows '|| x_return_status);
6925: END IF;
6926: FOR l_inflow IN c_inflows(p_khr_id => p_khr_id,
6927: p_kle_id => p_kle_id,
6928: p_line_type => l_line_type) LOOP
7015: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7016: END IF;
7017: END LOOP;
7018: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after residual values #' || p|| x_return_status);
7020: END IF;
7021: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7022: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7023: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7116:
7117: -- Setting the IRR limit
7118: l_irr_limit := ROUND(NVL(ABS(fnd_profile.value('OKL_PRE_TAX_IRR_LIMIT')), 1000), 0)/100;
7119: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_irr_limit ' || l_irr_limit);
7121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'b4 getting into the loop '|| x_return_status);
7122: END IF;
7123: LOOP
7124: i := i + 1;
7117: -- Setting the IRR limit
7118: l_irr_limit := ROUND(NVL(ABS(fnd_profile.value('OKL_PRE_TAX_IRR_LIMIT')), 1000), 0)/100;
7119: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7120: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'l_irr_limit ' || l_irr_limit);
7121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'b4 getting into the loop '|| x_return_status);
7122: END IF;
7123: LOOP
7124: i := i + 1;
7125: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7122: END IF;
7123: LOOP
7124: i := i + 1;
7125: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ### ITERATION ### | ### PVALUE ### | ### IRR ### ');
7127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || i || ' | ' || l_npv_rate || ' | ' || l_irr);
7128: END IF;
7129: l_npv_rate := -(l_time_zero_cost);
7130: l_npv_pay := -(l_time_zero_cost);
7123: LOOP
7124: i := i + 1;
7125: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7126: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ### ITERATION ### | ### PVALUE ### | ### IRR ### ');
7127: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || i || ' | ' || l_npv_rate || ' | ' || l_irr);
7128: END IF;
7129: l_npv_rate := -(l_time_zero_cost);
7130: l_npv_pay := -(l_time_zero_cost);
7131:
7144: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
7145: p_msg_name => 'OKL_IRR_ZERO_DIV');
7146: x_return_status := OKL_API.G_RET_STS_ERROR;
7147: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7148: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide rvs '|| x_return_status);
7149: END IF;
7150: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7151: END IF;
7152: IF p_target = 'RATE' THEN
7177: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
7178: p_msg_name => 'OKL_IRR_ZERO_DIV');
7179: x_return_status := OKL_API.G_RET_STS_ERROR;
7180: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7181: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
7182: END IF;
7183: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7184: END IF;
7185: l_npv_pay := l_npv_pay + (l_cf_amount / POWER((1 + inflow_tbl(y).rate/(l_cf_ppy*100)), l_periods));
7192: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
7193: p_msg_name => 'OKL_IRR_ZERO_DIV');
7194: x_return_status := OKL_API.G_RET_STS_ERROR;
7195: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7196: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
7197: END IF;
7198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7199: end if;
7200:
7198: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7199: end if;
7200:
7201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_npv_pay ' || l_npv_pay );
7203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_term ' || l_term );
7204:
7205: END IF;
7206: l_npv_pay := 0;
7199: end if;
7200:
7201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_npv_pay ' || l_npv_pay );
7203: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' l_term ' || l_term );
7204:
7205: END IF;
7206: l_npv_pay := 0;
7207: Else
7222: OKL_API.SET_MESSAGE (p_app_name => G_APP_NAME,
7223: p_msg_name => 'OKL_IRR_ZERO_DIV');
7224: x_return_status := OKL_API.G_RET_STS_ERROR;
7225: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7226: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' ZERO divide indlows '|| x_return_status);
7227: END IF;
7228: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7229: END IF;
7230: IF p_target = 'RATE' THEN
7317: p_token1 => 'IRR_LIMIT',
7318: p_token1_value => l_irr_limit*100);
7319: x_return_status := OKL_API.G_RET_STS_ERROR;
7320: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7321: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' 100000% '|| x_return_status);
7322: END IF;
7323: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
7324: END IF;
7325: l_prev_incr_sign_rate := SIGN(l_increment_rate);
7591: -- Bug 4626837 : End
7592:
7593: Begin
7594: IF (G_DEBUG_ENABLED = 'Y') THEN
7595: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7596: END IF;
7597:
7598: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7599: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
7595: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
7596: END IF;
7597:
7598: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7599: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
7600:
7601: END IF;
7602: x_return_status := G_RET_STS_SUCCESS;
7603:
7609: LOOP
7610: l_pay_tbl(i) := p_pay_tbl(i);
7611: --l_pay_tbl(i).rate := l_pay_tbl(i).rate / 100.0;
7612: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7613: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' date ' || l_pay_tbl(i).start_date || ' amout ' || l_pay_tbl(i).amount );
7614: END IF;
7615: If ( l_pay_tbl(i).periods IS NOT NULL) AND ( l_pay_tbl(i).amount IS NULL ) Then
7616: l_pay_tbl(i).amount := -9999999;
7617: ElsIf ( l_pay_tbl(i).periods IS NULL) AND ( l_pay_tbl(i).stub_amount IS NULL ) Then
7629: x_msg_count => x_msg_count,
7630: x_msg_data => x_msg_data);
7631:
7632: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7633: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'validate payments ' || x_return_status );
7634: END IF;
7635: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7636: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7637: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7664: x_msg_count => x_msg_count,
7665: x_msg_data => x_msg_data);
7666:
7667: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7668: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'generate_cash_flows ' || x_return_status );
7669:
7670: END IF;
7671: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7672: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7680: CLOSE c_subs;
7681: l_subsidies_yn := nvl( l_subsidies_yn, 'N' );
7682:
7683: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7684: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' subsidy ' || l_subsidies_yn );
7685:
7686: END IF;
7687: okl_la_stream_pvt.get_so_asset_oec(p_khr_id,
7688: p_kle_id,
7691: l_capital_cost,
7692: l_start_date);
7693:
7694: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7695: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' get_asset_oec ' || to_char( l_capital_cost)|| x_return_status);
7696: END IF;
7697: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7698: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7699: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7707: l_residual_value,
7708: l_start_date);
7709:
7710: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7711: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' get_residual_value ' || to_char( l_residual_value )|| x_return_status);
7712: END IF;
7713: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7714: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7715: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7863: x_payment => l_payment,
7864: x_rate => l_rate);
7865:
7866: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7867: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_pre_tax_irr ' || x_return_status );
7868: END IF;
7869: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7870: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7871: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7892: x_payment => l_payment,
7893: x_rate => l_rate);
7894:
7895: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7896: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
7897: END IF;
7898: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7899: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7900: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7922: x_payment => l_payment,
7923: x_rate => l_rate);
7924:
7925: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7926: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
7927: END IF;
7928: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
7929: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
7930: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7982:
7983: END LOOP;
7984:
7985: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7986: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' #of streams to delete - ' || i );
7987: END IF;
7988: If ( i > 0 ) Then
7989:
7990: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7987: END IF;
7988: If ( i > 0 ) Then
7989:
7990: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
7991: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || i || '# of streams are getting deleted ' );
7992: END IF;
7993: Okl_Streams_pub.delete_streams(
7994: p_api_version => p_api_version,
7995: p_init_msg_list => p_init_msg_list,
8004: RAISE OKL_API.G_EXCEPTION_ERROR;
8005: END IF;
8006:
8007: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8008: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' DONE '|| x_return_status);
8009:
8010: END IF;
8011: End If;
8012:
8010: END IF;
8011: End If;
8012:
8013: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8014: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
8015:
8016: END IF;
8017: EXCEPTION
8018:
8323: l_days_in_year NUMBER;
8324:
8325: BEGIN
8326: IF (G_DEBUG_ENABLED = 'Y') THEN
8327: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8328: END IF;
8329:
8330: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
8327: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8328: END IF;
8329:
8330: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8331: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
8332: END IF;
8333: x_return_status := G_RET_STS_SUCCESS;
8334:
8335: -- Fetch the day convention ..
8339: x_days_in_month => l_day_convention_month,
8340: x_days_in_year => l_day_convention_year,
8341: x_return_status => lx_return_status);
8342: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8343: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
8344: END IF;
8345: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
8346: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8347: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
8379: l_advance_arrears := 'ADVANCE';
8380: END if;
8381:
8382: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8383: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' getting asset cost ' );
8384: END IF;
8385: FOR l_asset_cost IN c_asset_cost LOOP
8386:
8387: l_number_of_assets := l_number_of_assets + 1;
8398: x_msg_count => x_msg_count,
8399: x_msg_data => x_msg_data);
8400:
8401: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8402: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' l_principal_balance ' || l_principal_balance
8403: || ' l_accumulated_int '||l_accumulated_int|| x_return_status);
8404: END IF;
8405: IF lx_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
8406: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8455: -- end djanaswa
8456:
8457:
8458: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8459: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' stream elements ' || lx_selv_tbl.COUNT );
8460:
8461: END IF;
8462: FOR i in lx_selv_tbl.FIRST..lx_selv_tbl.LAST
8463: LOOP
8491:
8492: x_pay_amount := l_pay_amount * l_number_of_assets;
8493:
8494: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8495: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
8496:
8497: END IF;
8498: EXCEPTION
8499:
8928: l_days_in_year NUMBER;
8929:
8930: BEGIN
8931: IF (G_DEBUG_ENABLED = 'Y') THEN
8932: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8933: END IF;
8934:
8935: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8936: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
8932: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
8933: END IF;
8934:
8935: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8936: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
8937: END IF;
8938: x_return_status := G_RET_STS_SUCCESS;
8939:
8940: -- Fetch the day convention ..
8944: x_days_in_month => l_day_convention_month,
8945: x_days_in_year => l_day_convention_year,
8946: x_return_status => lx_return_status);
8947: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8948: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
8949: END IF;
8950: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
8951: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8952: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
8952: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN
8953: RAISE OKL_API.G_EXCEPTION_ERROR;
8954: END IF;
8955: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8956: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' Computing IIR on the date ' || p_start_Date );
8957: END IF;
8958: FOR l_asset_cost IN c_asset_cost LOOP
8959: IF l_asset_cost.start_date <= p_start_date THEN
8960: l_cost := nvl(l_asset_cost.capital_amount, 0) + nvl(l_asset_cost.capitalized_interest,0);
8983: END LOOP;
8984:
8985:
8986: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
8987: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '1/ TIME ZERO COST = ' || round(nvl(l_time_zero_cost, 0), 2) );
8988: END IF;
8989: FOR l_hdr_inflow IN c_hdr_inflows LOOP
8990: m := m + 1;
8991: hdr_inflow_tbl(m).cf_amount := l_hdr_inflow.cf_amount;
9008: END IF;
9009: END LOOP;
9010: -- Third
9011: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '2/ Handling the Asset level inflows ' );
9013: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Date | Days | Amount | Purpose | DPP | PPY ' );
9014: END IF;
9015: FOR l_inflow IN c_inflows LOOP
9016: n := n + 1;
9009: END LOOP;
9010: -- Third
9011: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9012: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '2/ Handling the Asset level inflows ' );
9013: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Date | Days | Amount | Purpose | DPP | PPY ' );
9014: END IF;
9015: FOR l_inflow IN c_inflows LOOP
9016: n := n + 1;
9017: inflow_tbl(n).cf_amount := l_inflow.cf_amount;
9031: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
9032: RAISE OKL_API.G_EXCEPTION_ERROR;
9033: END IF;
9034: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9035: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || inflow_tbl(n).cf_date || '| ' || inflow_tbl(n).cf_days || ' | ' || inflow_tbl(n).cf_amount ||' | ' ||
9036: inflow_tbl(n).cf_dpp || ' | ' || inflow_tbl(n).cf_ppy );
9037: END IF;
9038: END LOOP;
9039:
9076:
9077:
9078:
9079: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9080: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '2/ Handling the Residual Values ' );
9081: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Date | Days | Amount | Purpose | DPP | PPY ' );
9082: END IF;
9083: FOR l_asset_rv IN c_asset_rvs LOOP
9084: p := p + 1;
9077:
9078:
9079: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9080: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '2/ Handling the Residual Values ' );
9081: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Date | Days | Amount | Purpose | DPP | PPY ' );
9082: END IF;
9083: FOR l_asset_rv IN c_asset_rvs LOOP
9084: p := p + 1;
9085: If l_asset_rv.sts_code = 'TERMINATED' Then
9117: END IF;
9118: rv_tbl(p).cf_dpp := l_asset_rv.days_per_period;
9119: rv_tbl(p).cf_ppy := l_asset_rv.periods_per_year;
9120: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9121: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || rv_tbl(p).cf_date || '| ' || rv_tbl(p).cf_days || ' | ' || rv_tbl(p).cf_amount ||' | ' ||
9122: rv_tbl(p).cf_dpp || ' | ' || rv_tbl(p).cf_ppy );
9123: END IF;
9124: END LOOP;
9125:
9171: IF l_outflow.date_funding_expected > p_start_date OR
9172: l_outflow.start_date > p_start_date
9173: THEN
9174: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9175: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '!!! Handling the Assets who are in effect later than the start date !!!');
9176: END IF;
9177: q := q + 1;
9178: outflow_tbl(q).cf_amount := nvl(l_outflow.capital_amount, 0);
9179: outflow_tbl(q).cf_amount := -(outflow_tbl(q).cf_amount);
9193: ELSIF lx_return_status = OKL_API.G_RET_STS_ERROR THEN
9194: RAISE OKL_API.G_EXCEPTION_ERROR;
9195: END IF;
9196: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9197: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || outflow_tbl(q).cf_date || '| ' || outflow_tbl(q).cf_days || ' | ' ||
9198: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
9199: END IF;
9200: ELSIF l_outflow.date_funding_expected <= p_start_date THEN
9201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9198: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
9199: END IF;
9200: ELSIF l_outflow.date_funding_expected <= p_start_date THEN
9201: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9202: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '!!!!! Handling the Assets who are in effect earlier than the start date !!!!');
9203: END IF;
9204: q := q + 1;
9205: outflow_tbl(q).cf_amount := nvl(l_outflow.capital_amount, 0);
9206: outflow_tbl(q).cf_amount := -(outflow_tbl(q).cf_amount);
9221: RAISE OKL_API.G_EXCEPTION_ERROR;
9222: END IF;
9223: outflow_tbl(q).cf_days := -1 * outflow_tbl(q).cf_days;
9224: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9225: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || outflow_tbl(q).cf_date || '| ' || outflow_tbl(q).cf_days || ' | ' ||
9226: outflow_tbl(q).cf_amount ||' | ' || outflow_tbl(q).cf_dpp || ' | ' || outflow_tbl(q).cf_ppy );
9227: END IF;
9228: END IF;
9229:
9671: -- SUBSIDIES
9672:
9673: -- Handle the outflow_tbl
9674: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9675: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '!!!!!!!! HANDLING THE OUT FLOWS !!!!!!!! ' );
9676: END IF;
9677: IF outflow_tbl IS NOT NULL AND outflow_tbl.COUNT > 0
9678: THEN
9679: FOR q IN outflow_tbl.FIRST .. outflow_tbl.LAST
9692: RAISE OKL_API.G_EXCEPTION_ERROR;
9693: END IF;
9694: l_npv := l_npv + (l_cf_amount / POWER((1 + l_iir/l_cf_ppy), l_periods));
9695: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9696: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || TO_CHAR(a, '99')||' '|| TO_CHAR(l_cf_date, 'DD-MON-YYYY')||' '||
9697: TO_CHAR(l_days_in_future, '9999')||' '|| TO_CHAR(l_periods, '99.999')||' '||TO_CHAR(l_cf_amount, '9999999.999')||
9698: ' '||TO_CHAR((l_cf_amount / POWER((1 + l_iir/l_cf_ppy), l_periods)), '99999999.999990'));
9699: END IF;
9700: END LOOP; -- FOR q ..
9851: l_iir_decided := 'F';
9852: END IF;
9853:
9854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_npv ' || l_npv );
9856: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_increment ' || l_increment );
9857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop iir ' || l_iir );
9858:
9859:
9852: END IF;
9853:
9854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_npv ' || l_npv );
9856: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_increment ' || l_increment );
9857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop iir ' || l_iir );
9858:
9859:
9860: END IF;
9853:
9854: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9855: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_npv ' || l_npv );
9856: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop l_increment ' || l_increment );
9857: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE,l_prog_name || i || '-Loop iir ' || l_iir );
9858:
9859:
9860: END IF;
9861: IF ABS(l_iir) > l_iir_limit THEN
9874: l_prev_npv := l_npv;
9875:
9876: END LOOP;
9877: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
9878: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
9879:
9880: END IF;
9881: EXCEPTION
9882:
10133: l_rent_strm_id NUMBER;
10134: -- Bug 4626837 : End
10135: BEGIN
10136: IF (G_DEBUG_ENABLED = 'Y') THEN
10137: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
10138: END IF;
10139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
10141:
10136: IF (G_DEBUG_ENABLED = 'Y') THEN
10137: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
10138: END IF;
10139: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10140: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'begin' );
10141:
10142:
10143: END IF;
10144: For i in p_pay_tbl.FIRST..p_pay_tbl.LAST
10154: LOOP
10155: l_pay_tbl(i) := p_pay_tbl(i);
10156: l_pay_tbl(i).rate := l_pay_tbl(i).rate / 100.0;
10157: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10158: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' date ' || l_pay_tbl(i).start_date || ' amout ' || l_pay_tbl(i).amount );
10159: END IF;
10160: IF ( l_pay_tbl(i).periods IS NOT NULL) AND ( l_pay_tbl(i).amount IS NULL ) Then
10161: l_pay_tbl(i).amount := -9999999;
10162: ELSIF ( l_pay_tbl(i).periods IS NULL) AND ( l_pay_tbl(i).stub_amount IS NULL ) Then
10194: x_msg_count => x_msg_count,
10195: x_msg_data => x_msg_data);
10196:
10197: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10198: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'generate_cash_flows ' || x_return_status );
10199:
10200: END IF;
10201: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10202: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10217: l_capital_cost,
10218: l_start_date);
10219:
10220: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10221: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' get_asset_oec ' || to_char( l_capital_cost)|| x_return_status);
10222: END IF;
10223: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10224: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10225: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10233: l_residual_value,
10234: l_start_date);
10235:
10236: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10237: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' get_residual_value ' || to_char( l_residual_value )|| x_return_status);
10238: END IF;
10239: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10240: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10241: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10374: x_payment => l_payment,
10375: x_rate => l_rate);
10376:
10377: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10378: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_pre_tax_irr ' || to_char( l_rate)|| x_return_status);
10379: END IF;
10380: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10381: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10382: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10401: x_payment => l_payment,
10402: x_rate => l_rate);
10403:
10404: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10405: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_pre_tax_irr ' || x_return_status );
10406: END IF;
10407: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10408: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10409: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10436: x_payment => l_payment,
10437: x_rate => l_rate);
10438:
10439: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10440: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
10441: END IF;
10442: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10443: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10444: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10467: x_payment => l_payment,
10468: x_rate => l_rate);
10469:
10470: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10471: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
10472: END IF;
10473: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10474: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10475: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10481:
10482: --ElsIf ( p_rate_type = 'PRE_TAX_YIELD' ) Then BKG YLD
10483:
10484: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10485: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' no subsidies comp_so_pre ' || x_return_status );
10486:
10487: END IF;
10488: l_interim_tbl(1).cf_days := l_interim_days;
10489: l_interim_tbl(1).cf_amount := l_interim_interest;
10503: x_payment => l_payment,
10504: x_rate => l_rate);
10505:
10506: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10507: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
10508: END IF;
10509: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10510: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10511: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10516:
10517: If ( l_subsidies_yn = 'Y' ) Then
10518:
10519: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10520: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' yes subsidies comp_so_pre '|| x_return_status);
10521: END IF;
10522: l_interim_tbl(1).cf_days := l_interim_days;
10523: l_interim_tbl(1).cf_amount := l_interim_interest;
10524: l_interim_tbl(1).cf_dpp := l_interim_dpp;
10537: x_payment => l_payment,
10538: x_rate => l_rate);
10539:
10540: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10541: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'comp_so_iir ' || x_return_status );
10542: END IF;
10543: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
10544: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10545: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10561:
10562: END LOOP;
10563:
10564: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10565: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' #of streams to delete - ' || i );
10566: END IF;
10567: If ( i > 0 ) Then
10568:
10569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10566: END IF;
10567: If ( i > 0 ) Then
10568:
10569: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10570: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || i || '# of streams are getting deleted ' );
10571: END IF;
10572: Okl_Streams_pub.delete_streams(
10573: p_api_version => p_api_version,
10574: p_init_msg_list => p_init_msg_list,
10583: RAISE OKL_API.G_EXCEPTION_ERROR;
10584: END IF;
10585:
10586: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10587: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || ' DONE '|| x_return_status);
10588:
10589: END IF;
10590: End If;
10591:
10623: END LOOP;
10624:
10625:
10626: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10627: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'end' );
10628:
10629: END IF;
10630: EXCEPTION
10631:
10816: l_days_in_year NUMBER;
10817:
10818: BEGIN
10819: IF (G_DEBUG_ENABLED = 'Y') THEN
10820: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
10821: END IF;
10822:
10823: x_return_status := OKL_API.G_RET_STS_SUCCESS;
10824: -- Call start_activity to create savepoint, check compatibility
10841: x_days_in_month => l_day_convention_month,
10842: x_days_in_year => l_day_convention_year,
10843: x_return_status => x_return_status);
10844: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
10845: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, 'get_payment_after_ppd Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
10846: END IF;
10847: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
10848: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
10849: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
11245: x_msg_data varchar2(256);
11246:
11247: BEGIN
11248: IF (G_DEBUG_ENABLED = 'Y') THEN
11249: G_IS_DEBUG_STATEMENT_ON := OKL_DEBUG_PUB.CHECK_LOG_ON(G_MODULE, FND_LOG.LEVEL_STATEMENT);
11250: END IF;
11251:
11252: -- Get the interest rate for the start date
11253:
11302: x_days_in_year => l_day_convention_year,
11303: x_return_status => lx_return_status);
11304:
11305: IF (G_IS_DEBUG_STATEMENT_ON = true) THEN
11306: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || 'Month / Year = ' || l_day_convention_month || '/' || l_day_convention_year );
11307: END IF;
11308: IF (lx_return_status = G_RET_STS_UNEXP_ERROR) THEN
11309: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
11310: ELSIF (lx_return_status = G_RET_STS_ERROR) THEN