eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.OKL_PRICING_PVT dependencies on DUAL

Line 152: p_residual_value IN NUMBER,

148: -- bug 2992184. Added p_purpose_code parameter.
149: PROCEDURE get_quote_amortization(p_khr_id IN NUMBER,
150: p_kle_id IN NUMBER,
151: p_investment IN NUMBER,
152: p_residual_value IN NUMBER,
153: p_start_date IN DATE,
154: p_asset_start_date IN DATE,
155: p_term_duration IN NUMBER,
156: x_principal_tbl OUT NOCOPY okl_streams_pub.selv_tbl_type,

Line 627: -- handlig residual value at the last payment

623:
624: l_bk_yield := 0;
625: l_increment := 0.1;
626:
627: -- handlig residual value at the last payment
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

Line 628: --asset_rents(asset_rents.LAST).se_amount := asset_rents(asset_rents.LAST).se_amount + p_residual_value;

624: l_bk_yield := 0;
625: l_increment := 0.1;
626:
627: -- handlig residual value at the last payment
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 ' );

Line 793: l_termination_val := l_termination_val - p_residual_value;

789:
790: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
791:
792: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
793: l_termination_val := l_termination_val - p_residual_value;
794: l_term_complete := 'Y';
795: END IF;
796:
797: termination_val(j).se_amount := l_termination_val;

Line 909: l_termination_val := l_termination_val - p_residual_value;

905: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
906: END IF;
907: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
908: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
909: l_termination_val := l_termination_val - p_residual_value;
910: l_term_complete := 'Y';
911: END IF;
912: termination_val(j).se_amount := l_termination_val;
913: l_se_date := LAST_DAY(l_start_date);

Line 1019: l_termination_val := l_termination_val - p_residual_value;

1015: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
1016: END IF;
1017: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
1018: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
1019: l_termination_val := l_termination_val - p_residual_value;
1020: l_term_complete := 'Y';
1021: END IF;
1022: termination_val(j).se_amount := l_termination_val;
1023: l_se_date := LAST_DAY(l_start_date);

Line 1102: --l_diff := l_termination_val - p_residual_value;

1098: l_start_date := LAST_DAY(l_start_date) + 1;
1099:
1100: END LOOP;
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:

Line 1135: -- x_termination_tbl(x_termination_tbl.LAST-j+1).amount := p_residual_value;

1131: END IF;
1132: END LOOP;
1133:
1134: --For j in 1..l_rent_sll.mpp LOOP
1135: -- x_termination_tbl(x_termination_tbl.LAST-j+1).amount := p_residual_value;
1136: --END LOOP;
1137:
1138: l_end_date := LAST_DAY(asset_rents(asset_rents.LAST).se_date);
1139: l_start_date := LAST_DAY(x_termination_tbl(x_termination_tbl.LAST).stream_element_date);

Line 1141: x_termination_tbl(x_termination_tbl.LAST).amount := p_residual_value;

1137:
1138: l_end_date := LAST_DAY(asset_rents(asset_rents.LAST).se_date);
1139: l_start_date := LAST_DAY(x_termination_tbl(x_termination_tbl.LAST).stream_element_date);
1140:
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 );

Line 1234: p_residual_value IN NUMBER,

1230: PROCEDURE get_loan_amortization (p_khr_id IN NUMBER,
1231: p_kle_id IN NUMBER,
1232: p_purpose_code IN VARCHAR2,
1233: p_investment IN NUMBER,
1234: p_residual_value IN NUMBER,
1235: p_start_date IN DATE,
1236: p_asset_start_date IN DATE,
1237: p_term_duration IN NUMBER,
1238: p_currency_code IN VARCHAR2, --USED?

Line 1381: --added NVL check on p_residual_value and using the local variable in the

1377: l_iir NUMBER := nvl(p_asset_iir_guess, 0);
1378: l_bk_yield NUMBER := nvl(p_bkg_yield_guess, 0);
1379:
1380: --vthiruva..Fix for bug# 4060958
1381: --added NVL check on p_residual_value and using the local variable in the
1382: --calculations to prevent errors due to null being passed in p_residual_value
1383: l_residual_value NUMBER := nvl(p_residual_value, 0);
1384: l_rent_period_end DATE;
1385: l_k_end_date DATE := (ADD_MONTHS(p_start_date, p_term_duration) - 1);

Line 1382: --calculations to prevent errors due to null being passed in p_residual_value

1378: l_bk_yield NUMBER := nvl(p_bkg_yield_guess, 0);
1379:
1380: --vthiruva..Fix for bug# 4060958
1381: --added NVL check on p_residual_value and using the local variable in the
1382: --calculations to prevent errors due to null being passed in p_residual_value
1383: l_residual_value NUMBER := nvl(p_residual_value, 0);
1384: l_rent_period_end DATE;
1385: l_k_end_date DATE := (ADD_MONTHS(p_start_date, p_term_duration) - 1);
1386: l_total_periods NUMBER := 0;

Line 1383: l_residual_value NUMBER := nvl(p_residual_value, 0);

1379:
1380: --vthiruva..Fix for bug# 4060958
1381: --added NVL check on p_residual_value and using the local variable in the
1382: --calculations to prevent errors due to null being passed in p_residual_value
1383: l_residual_value NUMBER := nvl(p_residual_value, 0);
1384: l_rent_period_end DATE;
1385: l_k_end_date DATE := (ADD_MONTHS(p_start_date, p_term_duration) - 1);
1386: l_total_periods NUMBER := 0;
1387: l_term_complete VARCHAR2(1) := 'N';

Line 1408: from dual where Exists(

1404: lx_return_status VARCHAR2(1);
1405:
1406: Cursor fee_type_csr IS
1407: Select 'Y' What
1408: from dual where Exists(
1409: SELECT nvl(kle.fee_type, 'XYZ'),
1410: nvl(lse.lty_code, 'XYZ')
1411: FROM okc_k_lines_b cle,
1412: okl_k_lines kle,

Line 1677: l_payment := l_residual_value;

1673: END LOOP;
1674:
1675: -- udhenuko Bug 5046430 Fix -start for get_loan_amortization
1676: -- terminal value of the asset considered in the calculation of IIR
1677: l_payment := l_residual_value;
1678: l_days := OKL_PRICING_UTILS_PVT.get_day_count(
1679: p_start_date => asset_rents(asset_rents.LAST).se_date,
1680: p_days_in_month => l_day_convention_month,
1681: p_days_in_year => l_day_convention_year,

Line 1874: -- handlig residual value at the last payment

1870:
1871: l_bk_yield := 0;
1872: l_increment := 0.1;
1873:
1874: -- handlig residual value at the last payment
1875: --asset_rents(asset_rents.LAST).se_amount := asset_rents(asset_rents.LAST).se_amount + l_residual_value;
1876: ---
1877:
1878: -- print( l_prog_name, ' start with bkg yld ' );

Line 1875: --asset_rents(asset_rents.LAST).se_amount := asset_rents(asset_rents.LAST).se_amount + l_residual_value;

1871: l_bk_yield := 0;
1872: l_increment := 0.1;
1873:
1874: -- handlig residual value at the last payment
1875: --asset_rents(asset_rents.LAST).se_amount := asset_rents(asset_rents.LAST).se_amount + l_residual_value;
1876: ---
1877:
1878: -- print( l_prog_name, ' start with bkg yld ' );
1879:

Line 2044: l_termination_val := l_termination_val - l_residual_value;

2040: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
2041: --Added by kthiruva on 27-May-2005
2042: --Bug 4371472 - Start of Changes
2043: IF l_termination_val <> 0 THEN
2044: l_termination_val := l_termination_val - l_residual_value;
2045: END IF;
2046: --Bug 4371472 - End of Changes
2047: l_term_complete := 'Y';
2048: END IF;

Line 2178: l_termination_val := l_termination_val - l_residual_value;

2174: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
2175: END IF;
2176: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
2177: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
2178: l_termination_val := l_termination_val - l_residual_value;
2179: l_term_complete := 'Y';
2180: END IF;
2181: l := l + 1;
2182: termination_val(l).se_amount := l_termination_val;

Line 2295: l_termination_val := l_termination_val - l_residual_value;

2291: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
2292: END IF;
2293: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
2294: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
2295: l_termination_val := l_termination_val - l_residual_value;
2296: l_term_complete := 'Y';
2297: END IF;
2298: l := l + 1;
2299: termination_val(l).se_amount := l_termination_val;

Line 2410: l_termination_val := l_termination_val - l_residual_value;

2406: pre_tax_income(j).se_amount := l_termination_val*l_days*l_bk_yield/360;
2407: END IF;
2408: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
2409: IF TRUNC(l_end_date) = TRUNC(l_k_end_date) THEN
2410: l_termination_val := l_termination_val - l_residual_value;
2411: l_term_complete := 'Y';
2412: END IF;
2413: l := l + 1;
2414: termination_val(l).se_amount := l_termination_val;

Line 2504: --l_diff := l_termination_val - l_residual_value;

2500: l_start_date := LAST_DAY(l_start_date) + 1;
2501:
2502: END LOOP;
2503:
2504: --l_diff := l_termination_val - l_residual_value;
2505: l_diff := l_termination_val;
2506: -- print( l_prog_name, ' L_DIFF ' || l_diff );
2507:
2508: IF ROUND(l_diff, 4) = 0 THEN

Line 2531: -- x_termination_tbl(x_termination_tbl.LAST-j+1).amount := l_residual_value;

2527:
2528: END LOOP;
2529:
2530: --For j in 1..l_rent_sll.mpp LOOP
2531: -- x_termination_tbl(x_termination_tbl.LAST-j+1).amount := l_residual_value;
2532: --END LOOP;
2533:
2534: l_end_date := LAST_DAY(asset_rents(asset_rents.LAST).se_date);
2535: l_start_date := LAST_DAY(x_termination_tbl(x_termination_tbl.LAST).stream_element_date);

Line 2537: x_termination_tbl(x_termination_tbl.LAST).amount := l_residual_value;

2533:
2534: l_end_date := LAST_DAY(asset_rents(asset_rents.LAST).se_date);
2535: l_start_date := LAST_DAY(x_termination_tbl(x_termination_tbl.LAST).stream_element_date);
2536:
2537: x_termination_tbl(x_termination_tbl.LAST).amount := l_residual_value;
2538:
2539: x_booking_yield := l_bk_yield;
2540: -- print( l_prog_name, ' Booking yield ' || l_bk_yield );
2541:

Line 2683: l_residual_value NUMBER := NULL;

2679: l_end_date DATE := NULL;
2680: l_se_date DATE := NULL;
2681: l_termination_val NUMBER := NULL;
2682: l_asset_cost NUMBER := NULL;
2683: l_residual_value NUMBER := NULL;
2684: l_days NUMBER := NULL;
2685: l_bk_yield NUMBER := 0;
2686: l_k_end_date DATE;
2687: l_term_complete VARCHAR2(1) := 'N';

Line 2919: -- Getting the Residual value

2915: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2916: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2917: RAISE OKL_API.G_EXCEPTION_ERROR;
2918: END IF;
2919: -- Getting the Residual value
2920: OKL_LA_STREAM_PVT.get_so_residual_value(
2921: p_khr_id => p_khr_id,
2922: p_kle_id => p_kle_id,
2923: p_subside_yn => l_subside_yn,

Line 2920: OKL_LA_STREAM_PVT.get_so_residual_value(

2916: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
2917: RAISE OKL_API.G_EXCEPTION_ERROR;
2918: END IF;
2919: -- Getting the Residual value
2920: OKL_LA_STREAM_PVT.get_so_residual_value(
2921: p_khr_id => p_khr_id,
2922: p_kle_id => p_kle_id,
2923: p_subside_yn => l_subside_yn,
2924: x_return_status => x_return_status,

Line 2925: x_residual_value => l_residual_value,

2921: p_khr_id => p_khr_id,
2922: p_kle_id => p_kle_id,
2923: p_subside_yn => l_subside_yn,
2924: x_return_status => x_return_status,
2925: x_residual_value => l_residual_value,
2926: x_start_date => ld_res_start_date);
2927: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
2928: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2929: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

Line 2933: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || ' cost ' || l_asset_cost || ' residual value ' || l_residual_value);

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));

Line 3037: l_termination_val := l_termination_val - l_residual_value;

3033: END IF;
3034: l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
3035: --l_termination_val := l_termination_val*(1 + l_days*l_bk_yield/360);
3036: IF trunc(l_end_date) = trunc(l_k_end_date) THEN
3037: l_termination_val := l_termination_val - l_residual_value;
3038: l_term_complete := 'Y';
3039: END IF;
3040: l_se_date := LAST_DAY(l_start_date);
3041: IF TO_CHAR(LAST_DAY(l_se_date), 'DD') = '31' THEN

Line 3262: l_residual_value NUMBER := 0;

3258: l_prev_incr_sign_rate NUMBER;
3259: l_payment_inflow NUMBER := 0;
3260: l_payment_inter NUMBER := 0;
3261: l_asset_cost NUMBER := 0;
3262: l_residual_value NUMBER := 0;
3263: ld_res_pay_start_date DATE;
3264: ld_asset_start_date DATE;
3265: l_subside_yn VARCHAR2(1) := NVL(p_subside_yn,'N');
3266: l_khr_start_date DATE;

Line 3428: -- Gets the Asset residual value

3424: AND slh.rule_information_category = 'LASLH'
3425: AND TO_NUMBER(slh.object1_id1) = stm.sty_id
3426: AND TO_CHAR(slh.id) = sll.object2_id1
3427: AND sll.rule_information_category = 'LASLL';
3428: -- Gets the Asset residual value
3429: CURSOR c_asset_rvs(p_khr_id NUMBER,
3430: p_kle_id NUMBER,
3431: p_line_type VARCHAR2)
3432: IS

Line 3820: -- Collecting the Residual Value amount

3816: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3817: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3818: RAISE OKL_API.G_EXCEPTION_ERROR;
3819: END IF;
3820: -- Collecting the Residual Value amount
3821: -- Here since the Assets are associated to one so_payment line
3822: -- we sum up to get actual residual value , residual value percent
3823: -- are stored in rules
3824: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,

Line 3822: -- we sum up to get actual residual value , residual value percent

3818: RAISE OKL_API.G_EXCEPTION_ERROR;
3819: END IF;
3820: -- Collecting the Residual Value amount
3821: -- Here since the Assets are associated to one so_payment line
3822: -- we sum up to get actual residual value , residual value percent
3823: -- are stored in rules
3824: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,
3825: p_kle_id => p_kle_id,
3826: p_line_type => l_line_type) LOOP

Line 3828: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,

3824: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,
3825: p_kle_id => p_kle_id,
3826: p_line_type => l_line_type) LOOP
3827: p := p + 1;
3828: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,
3829: p_kle_id => p_kle_id,
3830: p_subside_yn => l_subside_yn,
3831: x_return_status => x_return_status,
3832: x_residual_value => rv_tbl(p).cf_amount,

Line 3832: x_residual_value => rv_tbl(p).cf_amount,

3828: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,
3829: p_kle_id => p_kle_id,
3830: p_subside_yn => l_subside_yn,
3831: x_return_status => x_return_status,
3832: x_residual_value => rv_tbl(p).cf_amount,
3833: x_start_date => ld_res_pay_start_date);
3834: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
3835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
3836: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

Line 3839: l_residual_value := rv_tbl(p).cf_amount;

3835: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
3836: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
3837: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
3838: END IF;
3839: l_residual_value := rv_tbl(p).cf_amount;
3840: rv_tbl(p).cf_date := l_asset_rv.end_date;
3841: rv_tbl(p).cf_dpp := l_asset_rv.days_per_period;
3842: rv_tbl(p).cf_ppy := l_asset_rv.periods_per_year;
3843: OKL_PRICING_PVT.get_rate(p_khr_id => p_khr_id,

Line 3877: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after residual values #' || p|| x_return_status);

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

Line 4645: from dual

4641: AND sll.rule_information_category = 'LASLL';
4642:
4643: Cursor c_link_pmnts( chrId NUMBER, kleId NUMBER ) IS
4644: Select 'Y' What
4645: from dual
4646: Where Exists(Select crl.id slh_id
4647: From OKC_RULE_GROUPS_B crg,
4648: OKC_RULES_B crl,
4649: okc_K_lines_b cle_lnk,

Line 4710: NVL(kle.residual_value, 0) cf_amount,

4706:
4707: CURSOR c_asset_rvs IS
4708: SELECT DISTINCT
4709: kle.id,
4710: NVL(kle.residual_value, 0) cf_amount,
4711: DECODE(sll.object1_id1, 'M', 30, 'Q', 90, 'S', 180, 'A', 360) days_per_period,
4712: DECODE(sll.object1_id1, 'M', 12, 'Q', 4, 'S', 2, 'A', 1) periods_per_year,
4713: DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) months_per_period,
4714: cle.start_date,

Line 4943: l_residual_value NUMBER;

4939: lx_msg_data VARCHAR2(4000);
4940: l_end_date DATE := ADD_MONTHS(p_start_date, p_term_duration) - 1;
4941: l_time_zero_cost NUMBER := 0;
4942: l_cost NUMBER;
4943: l_residual_value NUMBER;
4944: l_adv_payment NUMBER := 0;
4945: l_subsidy_amount NUMBER := 0;
4946: l_currency_code VARCHAR2(15);
4947: l_precision NUMBER(1);

Line 5171: rv_tbl(p).cf_amount := OKL_AM_UTIL_PVT.get_actual_asset_residual(p_khr_id => p_khr_id,

5167: FOR l_asset_rv IN c_asset_rvs LOOP
5168:
5169: p := p + 1;
5170: If l_asset_rv.sts_code = 'TERMINATED' Then
5171: rv_tbl(p).cf_amount := OKL_AM_UTIL_PVT.get_actual_asset_residual(p_khr_id => p_khr_id,
5172: p_kle_id => l_asset_rv.id); --bug# 4184579
5173: rv_tbl(p).cf_date := l_asset_rv.date_terminated;
5174:
5175: rv_tbl(p).cf_days := OKL_PRICING_UTILS_PVT.get_day_count(p_start_date => p_start_date,

Line 5212: --print( 'Residual Value amount ' || rv_tbl(p).cf_amount);

5208: rv_tbl(p).cf_ppy := l_asset_rv.periods_per_year;
5209:
5210: -- Added for approximation
5211: G_TOT_RV_AMT := G_TOT_RV_AMT + rv_tbl(p).cf_amount;
5212: --print( 'Residual Value amount ' || rv_tbl(p).cf_amount);
5213: END LOOP;
5214: --print( 'Total Inflows amount ' || G_TOT_RV_AMT );
5215:
5216: -- print( l_prog_name, ' asset rvs ' || p );

Line 6687: l_residual_value NUMBER := 0;

6683: l_prev_incr_sign_rate NUMBER;
6684: l_payment_inflow NUMBER := 0;
6685: l_payment_inter NUMBER := 0;
6686: l_asset_cost NUMBER := 0;
6687: l_residual_value NUMBER := 0;
6688: ld_res_pay_start_date DATE;
6689: ld_asset_start_date DATE;
6690: l_subside_yn VARCHAR2(1) := NVL(p_subside_yn,'N');
6691: l_khr_start_date DATE;

Line 6750: -- Gets the Asset residual value

6746: AND slh.rule_information_category = 'LASLH'
6747: AND TO_NUMBER(slh.object1_id1) = stm.sty_id
6748: AND TO_CHAR(slh.id) = sll.object2_id1
6749: AND sll.rule_information_category = 'LASLL';
6750: -- Gets the Asset residual value
6751: CURSOR c_asset_rvs(p_khr_id NUMBER,
6752: p_kle_id NUMBER,
6753: p_line_type VARCHAR2)
6754: IS

Line 6962: -- Collecting the Residual Value amount

6958: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6959: END IF;
6960: END LOOP;
6961:
6962: -- Collecting the Residual Value amount
6963: -- Here since the Assets are associated to one so_payment line
6964: -- we sum up to get actual residual value , residual value percent
6965: -- are stored in rules
6966: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,

Line 6964: -- we sum up to get actual residual value , residual value percent

6960: END LOOP;
6961:
6962: -- Collecting the Residual Value amount
6963: -- Here since the Assets are associated to one so_payment line
6964: -- we sum up to get actual residual value , residual value percent
6965: -- are stored in rules
6966: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,
6967: p_kle_id => p_kle_id,
6968: p_line_type => l_line_type) LOOP

Line 6970: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,

6966: FOR l_asset_rv IN c_asset_rvs(p_khr_id => p_khr_id,
6967: p_kle_id => p_kle_id,
6968: p_line_type => l_line_type) LOOP
6969: p := p + 1;
6970: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,
6971: p_kle_id => p_kle_id,
6972: p_subside_yn => l_subside_yn,
6973: x_return_status => x_return_status,
6974: x_residual_value => rv_tbl(p).cf_amount,

Line 6974: x_residual_value => rv_tbl(p).cf_amount,

6970: OKL_LA_STREAM_PVT.get_so_residual_value(p_khr_id => p_khr_id,
6971: p_kle_id => p_kle_id,
6972: p_subside_yn => l_subside_yn,
6973: x_return_status => x_return_status,
6974: x_residual_value => rv_tbl(p).cf_amount,
6975: x_start_date => ld_res_pay_start_date);
6976: IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
6977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6978: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN

Line 6981: l_residual_value := rv_tbl(p).cf_amount;

6977: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR);
6978: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
6979: EXIT WHEN (x_return_status = OKL_API.G_RET_STS_ERROR);
6980: END IF;
6981: l_residual_value := rv_tbl(p).cf_amount;
6982: rv_tbl(p).cf_date := l_asset_rv.end_date;
6983: rv_tbl(p).cf_dpp := l_asset_rv.days_per_period;
6984: rv_tbl(p).cf_ppy := l_asset_rv.periods_per_year;
6985: OKL_PRICING_PVT.get_rate(p_khr_id => p_khr_id,

Line 7019: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_api_name || 'after residual values #' || p|| x_return_status);

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

Line 7431: SELECT SUM(to_number(nvl(rul_rv.rule_information2,rul_rv.rule_information4))) Residual_value,

7427:
7428: l_hdr c_hdr%ROWTYPE;
7429:
7430: Cursor c_rv IS
7431: SELECT SUM(to_number(nvl(rul_rv.rule_information2,rul_rv.rule_information4))) Residual_value,
7432: DECODE(rul_sll.object1_id1, 'M', 30, 'Q', 90, 'S', 180, 'A', 360) days_per_period,
7433: DECODE(rul_sll.object1_id1, 'M', 12, 'Q', 4, 'S', 2, 'A', 1) periods_per_year,
7434: DECODE(rul_sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) months_per_period,
7435: cle_so.id cle_id,

Line 7495: l_residual_value NUMBER;

7491: l_payment NUMBER;
7492: l_payment_count NUMBER;
7493:
7494: l_capital_cost NUMBER;
7495: l_residual_value NUMBER;
7496: l_start_date DATE;
7497:
7498: Cursor l_strms_csr Is
7499: Select id

Line 7572: From dual

7568: j BINARY_INTEGER;
7569:
7570: Cursor c_subs Is
7571: Select 'Y'
7572: From dual
7573: where Exists(
7574: select kle.id
7575: from okl_k_lines_full_v kle,
7576: okc_line_styles_b lse,

Line 7703: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,

7699: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
7700: RAISE OKL_API.G_EXCEPTION_ERROR;
7701: END IF;
7702:
7703: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,
7704: p_kle_id,
7705: l_subsidies_yn,
7706: x_return_status,
7707: l_residual_value,

Line 7707: l_residual_value,

7703: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,
7704: p_kle_id,
7705: l_subsidies_yn,
7706: x_return_status,
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);

Line 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);

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

Line 7838: OPEN c_sty ( 'RESIDUAL VALUE' );

7834:
7835: End If;
7836:
7837:
7838: OPEN c_sty ( 'RESIDUAL VALUE' );
7839: FETCH c_sty INTO r_sty;
7840: CLOSE c_sty;
7841:
7842: OPEN c_rv;

Line 8140: NVL(kle.residual_value, 0) cf_amount,

8136:
8137: CURSOR c_asset_rvs ( kleId NUMBER ) IS
8138: SELECT DISTINCT
8139: kle.id,
8140: NVL(kle.residual_value, 0) cf_amount,
8141: DECODE(sll.object1_id1, 'M', 30, 'Q', 90, 'S', 180, 'A', 360) days_per_period,
8142: DECODE(sll.object1_id1, 'M', 12, 'Q', 4, 'S', 2, 'A', 1) periods_per_year,
8143: DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) months_per_period,
8144: cle.start_date

Line 8261: l_residual_value NUMBER;

8257: p_start_date DATE;
8258: l_end_date DATE;
8259: l_time_zero_cost NUMBER := 0;
8260: l_cost NUMBER;
8261: l_residual_value NUMBER;
8262: l_adv_payment NUMBER := 0;
8263: l_subsidy_amount NUMBER := 0;
8264: l_currency_code VARCHAR2(15);
8265: l_precision NUMBER(1);

Line 8570: from dual

8566: AND sll.rule_information_category = 'LASLL';
8567:
8568: Cursor c_link_pmnts( chrId NUMBER, kleId NUMBER ) IS
8569: Select 'Y' What
8570: from dual
8571: Where Exists(Select crl.id slh_id
8572: From OKC_RULE_GROUPS_B crg,
8573: OKC_RULES_B crl,
8574: okc_K_lines_b cle_lnk,

Line 8681: NVL(kle.residual_value, 0) cf_amount,

8677:
8678: CURSOR c_asset_rvs IS
8679: SELECT DISTINCT
8680: kle.id,
8681: NVL(kle.residual_value, 0) cf_amount,
8682: DECODE(sll.object1_id1, 'M', 30, 'Q', 90, 'S', 180, 'A', 360) days_per_period,
8683: DECODE(sll.object1_id1, 'M', 12, 'Q', 4, 'S', 2, 'A', 1) periods_per_year,
8684: DECODE(sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) months_per_period,
8685: cle.start_date,

Line 8877: l_residual_value NUMBER;

8873: lx_msg_data VARCHAR2(4000);
8874: l_end_date DATE := ADD_MONTHS(p_start_date, p_term_duration) - 1;
8875: l_time_zero_cost NUMBER := 0;
8876: l_cost NUMBER;
8877: l_residual_value NUMBER;
8878: l_adv_payment NUMBER := 0;
8879: l_subsidy_amount NUMBER := 0;
8880: l_currency_code VARCHAR2(15);
8881: l_precision NUMBER(1);

Line 9080: OKL_DEBUG_PUB.LOG_DEBUG(FND_LOG.LEVEL_STATEMENT, G_MODULE, l_prog_name || '2/ Handling the Residual Values ' );

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;

Line 9086: rv_tbl(p).cf_amount := OKL_AM_UTIL_PVT.get_actual_asset_residual(p_khr_id => p_khr_id,

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
9086: rv_tbl(p).cf_amount := OKL_AM_UTIL_PVT.get_actual_asset_residual(p_khr_id => p_khr_id,
9087: p_kle_id => l_asset_rv.id); --bug# 4184579
9088: rv_tbl(p).cf_date := l_asset_rv.date_terminated;
9089: rv_tbl(p).cf_days := OKL_PRICING_UTILS_PVT.get_day_count(p_start_date => p_start_date,
9090: p_days_in_month => l_day_convention_month,

Line 9935: SELECT SUM(to_number(nvl(rul_rv.rule_information2,rul_rv.rule_information4))) Residual_value,

9931:
9932: l_hdr c_hdr%ROWTYPE;
9933:
9934: Cursor c_rv IS
9935: SELECT SUM(to_number(nvl(rul_rv.rule_information2,rul_rv.rule_information4))) Residual_value,
9936: DECODE(rul_sll.object1_id1, 'M', 30, 'Q', 90, 'S', 180, 'A', 360) days_per_period,
9937: DECODE(rul_sll.object1_id1, 'M', 12, 'Q', 4, 'S', 2, 'A', 1) periods_per_year,
9938: DECODE(rul_sll.object1_id1, 'M', 1, 'Q', 3, 'S', 6, 'A', 12) months_per_period,
9939: cle_so.id cle_id,

Line 9999: l_residual_value NUMBER;

9995: l_payment NUMBER;
9996: l_payment_count NUMBER;
9997:
9998: l_capital_cost NUMBER;
9999: l_residual_value NUMBER;
10000: l_start_date DATE;
10001:
10002: Cursor l_strms_csr Is
10003: Select id

Line 10113: From dual

10109: j BINARY_INTEGER;
10110:
10111: Cursor c_subs Is
10112: Select 'Y'
10113: From dual
10114: where Exists(
10115: select kle.id
10116: from okl_k_lines_full_v kle,
10117: okc_line_styles_b lse,

Line 10229: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,

10225: ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
10226: RAISE OKL_API.G_EXCEPTION_ERROR;
10227: END IF;
10228:
10229: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,
10230: p_kle_id,
10231: l_subsidies_yn,
10232: x_return_status,
10233: l_residual_value,

Line 10233: l_residual_value,

10229: Okl_la_stream_pvt.get_so_residual_value(p_khr_id,
10230: p_kle_id,
10231: l_subsidies_yn,
10232: x_return_status,
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);

Line 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);

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

Line 10349: OPEN c_sty ( 'RESIDUAL VALUE' );

10345: END IF;
10346:
10347: End If;
10348:
10349: OPEN c_sty ( 'RESIDUAL VALUE' );
10350: FETCH c_sty INTO r_sty;
10351: CLOSE c_sty;
10352:
10353: OPEN c_rv;