[Home] [Help]
6651: IS
6652: SELECT 1
6653: FROM dual
6654: WHERE EXISTS (SELECT '1'
6655: FROM okl_subsidies_b subb,
6656: okc_k_lines_b cle_fin,
6657: okc_line_styles_b lse_fin,
6658: okc_k_lines_b cle,
6659: okl_k_headers khr,
10422: AS
10423: l_api_name CONSTANT VARCHAR2(30) := 'EXTRACT_SUBSIDIZED_LINES';
10424: l_csm_one_off_fee_tbl okl_create_streams_pub.csm_one_off_fee_tbl_type := px_csm_one_off_fee_tbl;
10425: i BINARY_INTEGER := 0;
10426: lv_acc_mtd_code okl_subsidies_b.accounting_method_code%TYPE := NULL;
10427: lv_strm_desc VARCHAR2(200);
10428: ln_sub_id okc_k_lines_b.id%TYPE := NULL;
10429: ln_dummy NUMBER := 0;
10430: ln_cap_wos okl_k_lines.capital_amount%TYPE := 0;
10454: CURSOR get_acc_mth_code (p_line_id OKL_K_LINES.ID%TYPE)
10455: IS
10456: SELECT subb.accounting_method_code,
10457: cle.id
10458: FROM okl_subsidies_b subb,
10459: okc_k_lines_b cle_fin,
10460: okc_line_styles_b lse_fin,
10461: okc_k_lines_b cle,
10462: okl_k_lines kle,
10475: IS
10476: SELECT 1
10477: FROM dual
10478: WHERE EXISTS (SELECT '1'
10479: FROM okl_subsidies_b subb,
10480: okc_k_lines_b cle_fin,
10481: okc_line_styles_b lse_fin,
10482: okc_k_lines_b cle,
10483: okl_k_lines kle,
20286: -- get discount amount on the line
20287: CURSOR get_dis_amt_csr_lease(p_chr_id NUMBER, p_cle_id NUMBER)
20288: IS
20289: SELECT kle_sub.amount, kle_sub.SUBSIDY_OVERRIDE_AMOUNT
20290: FROM okl_subsidies_b subb,
20291: okc_k_lines_b cle_fin,
20292: okc_line_styles_b lse_fin,
20293: okc_k_lines_b cle_sub,
20294: okl_k_lines kle_sub,