[Home] [Help]
1666: --not found, then use OEC from OKL_K_LINES.OEC of the top financial asset line.
1667:
1668: -- SECHAWLA 19-FEB-04 3439647 : Always update cost with net investment. At the end of the term, net investment = rv
1669: --IF p_early_termination_yn = 'N' THEN
1670: --lp_tlpv_rec.depreciation_cost := l_residual_value;
1671: --ELSE
1672:
1673: -- SECHAWLA 19-FEB-04 3439647 : Moved this piece of code to the beginning
1674: --- /*okl_am_util_pvt.get_formula_value(
1980: --not found, then use OEC from OKL_K_LINES.OEC of the top financial asset line.
1981:
1982: -- SECHAWLA 19-FEB-04 3439647 : Always update cost with net investment. At the end of the term, net investment = rv
1983: --IF p_early_termination_yn = 'N' THEN
1984: -- lp_tlpv_rec.depreciation_cost := l_residual_value;
1985: -- ELSE
1986:
1987: -- SECHAWLA 19-FEB-04 3439647 : Moved this piece of code to the beginning
1988: -- /*
2812: --not found, then use OEC from OKL_K_LINES.OEC of the top financial asset line.
2813:
2814: -- SECHAWLA 19-FEB-04 3439647 : Always update cost with net investment. At the end of the term, net investment = rv
2815: --IF p_early_termination_yn = 'N' THEN
2816: --lp_tlpv_rec.depreciation_cost := l_residual_value;
2817: --ELSE
2818:
2819: -- SECHAWLA 19-FEB-04 3439647 : Moved this piece of code to the beginning
2820: -- /*okl_am_util_pvt.get_formula_value(
3118: --not found, then use OEC from OKL_K_LINES.OEC of the top financial asset line.
3119:
3120: -- SECHAWLA 19-FEB-04 3439647 : Always update cost with net investment. At the end of the term, net investment = rv
3121: --IF p_early_termination_yn = 'N' THEN
3122: -- lp_tlpv_rec.depreciation_cost := l_residual_value;
3123: -- ELSE
3124:
3125: -- SECHAWLA 19-FEB-04 3439647 : Moved this piece of code to the beginning
3126: -- /*
3397: -- p_early_termination_yn - early termination / end of term flag
3398: -- Version : 1.0
3399: -- History : SECHAWLA 03-JAN-03 2683876 Added logic to populate currency_code in txl assets
3400: -- SECHAWLA 05-JUN-03 2993071 Check for both Direct Finance and Sales type of lease while
3401: -- deriving the original cost / oec / residual value
3402: -- SECHAWLA 11-Oct-2003 3167323 Create amortization transaction for operating lease, w/o hold period
3403: -- SECHAWLA 03-MAY-04 3521126
3404: -- Always update asset cost with NIV for DF/Sales lease, in corp book
3405: -- Update asset cost with NIV for DF/Sales lease, in tax books, when tax owner = LESSEE
3447:
3448:
3449: l_df_original_cost NUMBER;
3450: l_oec NUMBER;
3451: l_residual_value NUMBER;
3452:
3453: l_cost NUMBER;
3454: l_accumulated_deprn NUMBER;
3455: l_try_id okl_trx_types_v.id%TYPE;
3736: SELECT name
3737: FROM okl_k_lines_full_v
3738: WHERE id = cp_kle_id;
3739:
3740: -- This cursor is used to get the cost, residual value of an asset from the Financial Asset (TOP LINE)
3741: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3742: SELECT oec, residual_value
3743: FROM okl_k_lines_full_v
3744: WHERE id = p_id;
3738: WHERE id = cp_kle_id;
3739:
3740: -- This cursor is used to get the cost, residual value of an asset from the Financial Asset (TOP LINE)
3741: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3742: SELECT oec, residual_value
3743: FROM okl_k_lines_full_v
3744: WHERE id = p_id;
3745:
3746: -- This cursor returns the original cost from the original asset creation line
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3829: END IF;
3830: */
3831:
3832: SELECT SYSDATE INTO l_sysdate FROM DUAL;
3833:
3834: -- rmunjulu EDAT Added condition to default
3835: IF p_quote_eff_date IS NOT NULL
3836: AND p_quote_eff_date <> OKL_API.G_MISS_DATE THEN
3887: CLOSE l_txlassetsv_csr;
3888:
3889: -- get the oec and rv
3890: OPEN l_linesfullv_csr(p_kle_id);
3891: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3892: CLOSE l_linesfullv_csr;
3893:
3894:
3895: IF l_df_original_cost IS NULL THEN
4862: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4863: RAISE OKL_API.G_EXCEPTION_ERROR;
4864: END IF;
4865:
4866: SELECT SYSDATE INTO l_sysdate FROM DUAL;
4867:
4868: lp_lines_temp_rec := p_lines_rec;
4869:
4870: IF p_header_rec.id IS NULL OR p_header_rec.id = OKL_API.G_MISS_NUM OR
5313:
5314: RAISE OKL_API.G_EXCEPTION_ERROR;
5315: END IF;
5316:
5317: SELECT SYSDATE INTO l_sysdate FROM DUAL;
5318:
5319: IF p_header_tbl.count > 0 THEN
5320: i := p_header_tbl.FIRST;
5321: