[Home] [Help]
3363: AND asset_number = p_asset_number
3364: AND ROWNUM < 2;
3365:
3366: -- This cursor is used to get the cost,
3367: -- residual value of an asset from the Financial Asset (TOP LINE)
3368: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3369: SELECT oec, residual_value
3370: FROM okl_k_lines_full_v
3371: WHERE id = p_id;
3365:
3366: -- This cursor is used to get the cost,
3367: -- residual value of an asset from the Financial Asset (TOP LINE)
3368: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3369: SELECT oec, residual_value
3370: FROM okl_k_lines_full_v
3371: WHERE id = p_id;
3372:
3373: -- This cursor will return deal_type for a particular contract
3386: l_method_id FA_METHODS.method_id%TYPE;
3387: l_corporate_book VARCHAR2(70);
3388: l_df_original_cost NUMBER;
3389: l_oec NUMBER;
3390: l_residual_value NUMBER;
3391: l_tax_owner VARCHAR2(10);
3392: l_rulv_rec okl_rule_pub.rulv_rec_type;
3393: l_line_status VARCHAR2(15);
3394: l_deal_type VARCHAR2(15);
3509: FETCH l_txlassetsv_csr INTO l_df_original_cost;
3510: CLOSE l_txlassetsv_csr;
3511:
3512: OPEN l_linesfullv_csr(l_lines_rec.parent_line_id);
3513: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3514: CLOSE l_linesfullv_csr;
3515:
3516: IF l_residual_value IS NULL THEN
3517: -- Residual Value not defined for the asset
3512: OPEN l_linesfullv_csr(l_lines_rec.parent_line_id);
3513: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3514: CLOSE l_linesfullv_csr;
3515:
3516: IF l_residual_value IS NULL THEN
3517: -- Residual Value not defined for the asset
3518: OKL_API.set_message(p_app_name => 'OKL',
3519: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3520: p_token1 => 'ASSET_NUMBER',
3513: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3514: CLOSE l_linesfullv_csr;
3515:
3516: IF l_residual_value IS NULL THEN
3517: -- Residual Value not defined for the asset
3518: OKL_API.set_message(p_app_name => 'OKL',
3519: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3520: p_token1 => 'ASSET_NUMBER',
3521: p_token1_value => l_lines_rec.asset_number);
3515:
3516: IF l_residual_value IS NULL THEN
3517: -- Residual Value not defined for the asset
3518: OKL_API.set_message(p_app_name => 'OKL',
3519: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3520: p_token1 => 'ASSET_NUMBER',
3521: p_token1_value => l_lines_rec.asset_number);
3522: l_line_status := 'ERROR';
3523: END IF;
3567: lp_tlpv_rec.description := l_lines_rec.item_description;
3568: lp_tlpv_rec.life_in_months := l_lines_rec.life_in_months;
3569: lp_tlpv_rec.deprn_method := l_lines_rec.deprn_method_code;
3570: lp_tlpv_rec.corporate_book := l_lines_rec.corporate_book;
3571: lp_tlpv_rec.depreciation_cost := l_residual_value;
3572: lp_tlpv_rec.salvage_value := l_lines_rec.salvage_value;
3573: IF l_df_original_cost IS NOT NULL THEN
3574: lp_tlpv_rec.original_cost := l_df_original_cost;
3575: ELSE
4350: -- Cursor to get the streams of the contract
4351: -- RMUNJULU 28-MAR-03 2877278 Added conditions to pick only CURRENT
4352: -- streams.
4353: -- MDOKAL 19-SEP-03 Bug 3082639 Securitization
4354: -- Ensure we do not historize RESIDUAL VALUE and INVESTOR related streams
4355: -- SMODUGA 11-Oct-04 Bug 3925469
4356: -- Modified cursor by passing sty_id based on the purpose .
4357: CURSOR k_streams_csr ( p_chr_id IN NUMBER,p_sty_id IN NUMBER) IS
4358: SELECT STM.id
4397: SAVEPOINT close_streams;
4398:
4399: -- smoduga +++++++++ User Defined Streams -- start ++++++++++++++++
4400: OKL_STREAMS_UTIL.get_primary_stream_type(p_term_rec.p_contract_id,
4401: 'RESIDUAL_VALUE',
4402: l_dummy_status, -- rmunjulu 4058630 (get into dummy as return not needed)
4403: lx_sty_id);
4404: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4405:
10562: l_trn_already_set := G_YES;
10563: END IF;
10564:
10565: --get sysdate
10566: SELECT SYSDATE INTO l_sys_date FROM DUAL;
10567:
10568: IF l_trn_already_set = G_NO THEN
10569:
10570: -- initialize the transaction rec