[Home] [Help]
1980: x_return_status => x_return_status,
1981: x_msg_count => l_msg_count,
1982: x_msg_data => l_msg_data,
1983: p_cle_id => px_klev_tbl (i).p_kle_id,
1984: p_split_into_individuals_yn => 'N',
1985: -- RMUNJULU Changed was NULL earlier
1986: p_split_into_units => px_klev_tbl (i).p_asset_quantity
1987: - px_klev_tbl (i).p_quote_quantity,
1988: p_ib_tbl => lp_ib_tbl,
7936: -- : RMUNJULU 20-DEC-02 2484327, corrected the cursor for aliases
7937: -- : RMUNJULU 07-JAN-03 2736865 Removed processing messages
7938: -- : RMUNJULU 23-JAN-03 2762065 removed log msgs here, see
7939: -- msgs explanation comments in asset_level_termination
7940: -- : SECHAWLA 10-FEB-03 2793689 Removed the NOT NULL residual
7941: -- value condition from l_okclines_csr
7942: -- cursor, as the LOAN contracts do not have a residual value.
7943: -- Mass Rebook works fine when we pass a null residual value
7944: -- : RMUNJULU 14-FEB-03 2804703 Added new cursor and check to
7938: -- : RMUNJULU 23-JAN-03 2762065 removed log msgs here, see
7939: -- msgs explanation comments in asset_level_termination
7940: -- : SECHAWLA 10-FEB-03 2793689 Removed the NOT NULL residual
7941: -- value condition from l_okclines_csr
7942: -- cursor, as the LOAN contracts do not have a residual value.
7943: -- Mass Rebook works fine when we pass a null residual value
7944: -- : RMUNJULU 14-FEB-03 2804703 Added new cursor and check to
7945: -- do mass rebook when contract not evergreen
7946: -- : RMUNJULU 06-MAR-03 Performance Fix Replaced K_LNS_FULL
7939: -- msgs explanation comments in asset_level_termination
7940: -- : SECHAWLA 10-FEB-03 2793689 Removed the NOT NULL residual
7941: -- value condition from l_okclines_csr
7942: -- cursor, as the LOAN contracts do not have a residual value.
7943: -- Mass Rebook works fine when we pass a null residual value
7944: -- : RMUNJULU 14-FEB-03 2804703 Added new cursor and check to
7945: -- do mass rebook when contract not evergreen
7946: -- : RMUNJULU 06-MAR-03 Performance Fix Replaced K_LNS_FULL
7947: -- : RMUNJULU CONTRACT BLOCKING Changed MASS_REBOOK to check if
7968: -- RMUNJULU -- Bug # 2484327 changed to cater to plsql standards
7969: -- This cursor is used to get a BOOKED contract line.
7970: -- RMUNJULU 16-DEC-02 Bug # 2484327, get lines which are of the same status as header
7971: -- RMUNJULU 20-DEC-02 2484327, corrected the cursor for aliases
7972: -- SECHAWLA 10-FEB-03 2793689, Removed the NOT NULL residual value condition
7973: -- from the following cursor, as the LOAN contracts do not have a residual value.
7974: -- Mass Rebook works fine when we pass a null residual value
7975: -- RMUNJULU 06-MAR-03 Performance Fix Replaced K_LNS_FULL
7976: CURSOR l_okclines_csr (
7969: -- This cursor is used to get a BOOKED contract line.
7970: -- RMUNJULU 16-DEC-02 Bug # 2484327, get lines which are of the same status as header
7971: -- RMUNJULU 20-DEC-02 2484327, corrected the cursor for aliases
7972: -- SECHAWLA 10-FEB-03 2793689, Removed the NOT NULL residual value condition
7973: -- from the following cursor, as the LOAN contracts do not have a residual value.
7974: -- Mass Rebook works fine when we pass a null residual value
7975: -- RMUNJULU 06-MAR-03 Performance Fix Replaced K_LNS_FULL
7976: CURSOR l_okclines_csr (
7977: p_khr_id IN NUMBER
7970: -- RMUNJULU 16-DEC-02 Bug # 2484327, get lines which are of the same status as header
7971: -- RMUNJULU 20-DEC-02 2484327, corrected the cursor for aliases
7972: -- SECHAWLA 10-FEB-03 2793689, Removed the NOT NULL residual value condition
7973: -- from the following cursor, as the LOAN contracts do not have a residual value.
7974: -- Mass Rebook works fine when we pass a null residual value
7975: -- RMUNJULU 06-MAR-03 Performance Fix Replaced K_LNS_FULL
7976: CURSOR l_okclines_csr (
7977: p_khr_id IN NUMBER
7978: )
7978: )
7979: IS
7980: SELECT cle.ID ID,
7981: cle.NAME NAME,
7982: kle.residual_value residual_value
7983: FROM okl_k_lines_v kle,
7984: okc_k_lines_v cle,
7985: okc_k_headers_v khr
7986: WHERE cle.chr_id = p_khr_id
8039: l_api_version CONSTANT NUMBER := 1;
8040: l_contract_number VARCHAR2 (120);
8041: l_id NUMBER;
8042: l_name VARCHAR2 (150);
8043: l_residual_value NUMBER;
8044: l_dummy VARCHAR2 (1);
8045: l_tcnv_rec tcnv_rec_type := p_tcnv_rec;
8046: -- RMUNJULU 14-FEB-03 2804703 Added variable
8047: l_sts_code VARCHAR2 (200);
8099:
8100: FETCH l_okclines_csr
8101: INTO l_id,
8102: l_name,
8103: l_residual_value;
8104:
8105: CLOSE l_okclines_csr;
8106:
8107: -- RMUNJULU Bug # 2484327, moved this if down from above cursor loop
8180: p_life_in_months => NULL,
8181: p_basic_rate => NULL,
8182: p_adjusted_rate => NULL,
8183: --Bug# : pagarg +++ T and A ++++
8184: --Pass residual value as null
8185: p_residual_value => NULL,
8186: p_strm_lalevl_tbl => l_strm_lalevl_empty_tbl,
8187: p_source_trx_id => p_tcnv_rec.ID,
8188: -- RMUNJULU CONTRACT BLOCKING (2)
8181: p_basic_rate => NULL,
8182: p_adjusted_rate => NULL,
8183: --Bug# : pagarg +++ T and A ++++
8184: --Pass residual value as null
8185: p_residual_value => NULL,
8186: p_strm_lalevl_tbl => l_strm_lalevl_empty_tbl,
8187: p_source_trx_id => p_tcnv_rec.ID,
8188: -- RMUNJULU CONTRACT BLOCKING (2)
8189: p_source_trx_type => 'TCN',
9353: p_top_line_id IN okc_k_lines_v.ID%TYPE
9354: )
9355: IS
9356: SELECT 1
9357: FROM DUAL
9358: WHERE EXISTS (
9359: SELECT 1
9360: FROM okc_subclass_top_line stl,
9361: okc_line_styles_v lse,
9812: cp_number_of_months IN NUMBER
9813: )
9814: IS
9815: SELECT ADD_MONTHS (cp_currlevelstartdt, cp_number_of_months)
9816: FROM DUAL;
9817:
9818: l_number_of_months NUMBER;
9819: l_next_level_start_date DATE;
9820:
10123: -- as payments are updated in termination flow only after the asset statuses are
10124: -- updated to TERMINATED. Hence checking for statuses of all assets linked to this fee.
10125: -- Never update the header payments for partial termination. This is because for
10126: -- partial temination, by this time, the assets have been split and the orignial
10127: -- individual units prior to split are separate assets linked to this fee line.
10128: l_active_assets_flag := 'N';
10129:
10130: IF (l_asset_qty = l_quote_qty)
10131: THEN
11232: p_chr_id IN okc_k_headers_b.ID%TYPE
11233: )
11234: IS
11235: SELECT '1'
11236: FROM DUAL
11237: WHERE EXISTS (
11238: SELECT '1'
11239: FROM okc_k_lines_b cle,
11240: okc_line_styles_b lse
11868:
11869: -- rmunjulu LOANS_ENHACEMENTS -- start
11870: -- get termination value for the terminated asset
11871: l_termination_value :=
11872: okl_am_util_pvt.get_actual_asset_residual
11873: (p_khr_id => l_chr_id,
11874: p_kle_id => l_akle_tbl (i).p_kle_id);
11875: -- update okc_k_lines termination value
11876: lap_clev_rec := l_empty_clev_rec;
13943:
13944: --get sysdate
13945: SELECT SYSDATE
13946: INTO l_sys_date
13947: FROM DUAL;
13948:
13949: -- If the transaction is not already set then initialize and insert
13950: IF l_trn_already_set = g_no
13951: THEN