[Home] [Help]
3479: AND asset_number = p_asset_number
3480: AND ROWNUM < 2;
3481:
3482: -- This cursor is used to get the cost,
3483: -- residual value of an asset from the Financial Asset (TOP LINE)
3484: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3485: SELECT oec, residual_value
3486: FROM okl_k_lines_full_v
3487: WHERE id = p_id;
3481:
3482: -- This cursor is used to get the cost,
3483: -- residual value of an asset from the Financial Asset (TOP LINE)
3484: CURSOR l_linesfullv_csr(p_id NUMBER) IS
3485: SELECT oec, residual_value
3486: FROM okl_k_lines_full_v
3487: WHERE id = p_id;
3488:
3489: -- This cursor will return deal_type for a particular contract
3502: l_method_id FA_METHODS.method_id%TYPE;
3503: l_corporate_book VARCHAR2(70);
3504: l_df_original_cost NUMBER;
3505: l_oec NUMBER;
3506: l_residual_value NUMBER;
3507: l_tax_owner VARCHAR2(10);
3508: l_rulv_rec okl_rule_pub.rulv_rec_type;
3509: l_line_status VARCHAR2(15);
3510: l_deal_type VARCHAR2(15);
3625: FETCH l_txlassetsv_csr INTO l_df_original_cost;
3626: CLOSE l_txlassetsv_csr;
3627:
3628: OPEN l_linesfullv_csr(l_lines_rec.parent_line_id);
3629: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3630: CLOSE l_linesfullv_csr;
3631:
3632: IF l_residual_value IS NULL THEN
3633: -- Residual Value not defined for the asset
3628: OPEN l_linesfullv_csr(l_lines_rec.parent_line_id);
3629: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3630: CLOSE l_linesfullv_csr;
3631:
3632: IF l_residual_value IS NULL THEN
3633: -- Residual Value not defined for the asset
3634: OKL_API.set_message(p_app_name => 'OKL',
3635: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3636: p_token1 => 'ASSET_NUMBER',
3629: FETCH l_linesfullv_csr INTO l_oec, l_residual_value;
3630: CLOSE l_linesfullv_csr;
3631:
3632: IF l_residual_value IS NULL THEN
3633: -- Residual Value not defined for the asset
3634: OKL_API.set_message(p_app_name => 'OKL',
3635: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3636: p_token1 => 'ASSET_NUMBER',
3637: p_token1_value => l_lines_rec.asset_number);
3631:
3632: IF l_residual_value IS NULL THEN
3633: -- Residual Value not defined for the asset
3634: OKL_API.set_message(p_app_name => 'OKL',
3635: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3636: p_token1 => 'ASSET_NUMBER',
3637: p_token1_value => l_lines_rec.asset_number);
3638: l_line_status := 'ERROR';
3639: END IF;
3683: lp_tlpv_rec.description := l_lines_rec.item_description;
3684: lp_tlpv_rec.life_in_months := l_lines_rec.life_in_months;
3685: lp_tlpv_rec.deprn_method := l_lines_rec.deprn_method_code;
3686: lp_tlpv_rec.corporate_book := l_lines_rec.corporate_book;
3687: lp_tlpv_rec.depreciation_cost := l_residual_value;
3688: lp_tlpv_rec.salvage_value := l_lines_rec.salvage_value;
3689: IF l_df_original_cost IS NOT NULL THEN
3690: lp_tlpv_rec.original_cost := l_df_original_cost;
3691: ELSE
4466: -- Cursor to get the streams of the contract
4467: -- RMUNJULU 28-MAR-03 2877278 Added conditions to pick only CURRENT
4468: -- streams.
4469: -- MDOKAL 19-SEP-03 Bug 3082639 Securitization
4470: -- Ensure we do not historize RESIDUAL VALUE and INVESTOR related streams
4471: -- SMODUGA 11-Oct-04 Bug 3925469
4472: -- Modified cursor by passing sty_id based on the purpose .
4473: -- Fix for Bug#13933234, sgn_code='INTC' needs to be histrized
4474: CURSOR k_streams_csr ( p_chr_id IN NUMBER,p_sty_id IN NUMBER) IS
4526: SAVEPOINT close_streams;
4527:
4528: -- smoduga +++++++++ User Defined Streams -- start ++++++++++++++++
4529: OKL_STREAMS_UTIL.get_primary_stream_type(p_term_rec.p_contract_id,
4530: 'RESIDUAL_VALUE',
4531: l_dummy_status, -- rmunjulu 4058630 (get into dummy as return not needed)
4532: lx_sty_id);
4533: -- smoduga +++++++++ User Defined Streams -- end ++++++++++++++++
4534:
10761: l_trn_already_set := G_YES;
10762: END IF;
10763:
10764: --get sysdate
10765: SELECT SYSDATE INTO l_sys_date FROM DUAL;
10766:
10767: IF l_trn_already_set = G_NO THEN
10768:
10769: -- initialize the transaction rec