[Home] [Help]
1912: l_api_name CONSTANT VARCHAR2(30) := 'fill_fee_type_info';
1913: l_api_version CONSTANT NUMBER := 1.0;
1914: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
1915:
1916: l_lse_id OKC_LINE_STYLES_B.id%type := null;
1917: l_currency_code okc_k_headers_b.currency_code%type := null;
1918: l_sts_code okc_k_headers_b.sts_code%type := null;
1919:
1920: CURSOR get_lse_id_csr IS
3107: from okc_k_items cim,
3108: okc_k_lines_b cleb,
3109: okl_k_lines kle_fee,
3110: okc_k_lines_b cleb_fee,
3111: okc_line_styles_b lseb_fee
3112: where cim.cle_id = cleb.id
3113: and cim.dnz_chr_id = cleb.dnz_chr_id
3114: and cim.jtot_object1_code = 'OKX_COVASST'
3115: and cleb.cle_id = cleb_fee.id
4566: cursor c_roll_fee(p_chr_id number) is
4567: select nvl(sum(kle.amount),0) amt
4568: from okc_k_lines_b cle,
4569: okl_k_lines kle,
4570: okc_line_styles_b lse
4571: where cle.id = kle.id
4572: and cle.dnz_chr_id = p_chr_id
4573: and lse.id = cle.lse_id
4574: and lse.lty_code = 'FEE'
4894: CURSOR c_asset_number(p_fin_asset_id IN NUMBER,
4895: p_chr_id IN NUMBER) IS
4896: SELECT txl.asset_number
4897: FROM okc_k_lines_b cle,
4898: okc_line_styles_b lse,
4899: okl_txl_assets_b txl
4900: WHERE cle.id = txl.kle_id
4901: AND cle.lse_id = lse.id
4902: AND lse.lty_code = 'FIXED_ASSET'
5223: CURSOR c_assets(p_chr_id IN NUMBER) IS
5224: SELECT cle.id fin_asset_id,
5225: cle.name asset_number
5226: FROM okc_k_lines_v cle,
5227: okc_line_styles_b lse,
5228: okc_statuses_b sts
5229: WHERE cle.chr_id = p_chr_id
5230: AND cle.dnz_chr_id = p_chr_id
5231: AND cle.lse_id = lse.id
5423: -- cursor to get fee line id and amount
5424: CURSOR get_fee_line_id (p_chr_id in NUMBER) IS
5425: SELECT kleb.id,Kleb.amount
5426: FROM
5427: okc_k_lines_b cleb,okl_k_lines kleb,okc_line_styles_b lseb
5428: WHERE cleb.dnz_chr_id = p_chr_id AND
5429: kleb.id = cleb.id AND
5430: cleb.lse_id = lseb.id AND
5431: lseb.lty_code = 'FEE' AND