[Home] [Help]
1921: l_api_name CONSTANT VARCHAR2(30) := 'fill_fee_type_info';
1922: l_api_version CONSTANT NUMBER := 1.0;
1923: l_ak_prompt AK_ATTRIBUTES_VL.attribute_label_long%type;
1924:
1925: l_lse_id OKC_LINE_STYLES_B.id%type := null;
1926: l_currency_code okc_k_headers_b.currency_code%type := null;
1927: l_sts_code okc_k_headers_b.sts_code%type := null;
1928:
1929: CURSOR get_lse_id_csr IS
3120: from okc_k_items cim,
3121: okc_k_lines_b cleb,
3122: okl_k_lines kle_fee,
3123: okc_k_lines_b cleb_fee,
3124: okc_line_styles_b lseb_fee
3125: where cim.cle_id = cleb.id
3126: and cim.dnz_chr_id = cleb.dnz_chr_id
3127: and cim.jtot_object1_code = 'OKX_COVASST'
3128: and cleb.cle_id = cleb_fee.id
4579: cursor c_roll_fee(p_chr_id number) is
4580: select nvl(sum(kle.amount),0) amt
4581: from okc_k_lines_b cle,
4582: okl_k_lines kle,
4583: okc_line_styles_b lse
4584: where cle.id = kle.id
4585: and cle.dnz_chr_id = p_chr_id
4586: and lse.id = cle.lse_id
4587: and lse.lty_code = 'FEE'
4907: CURSOR c_asset_number(p_fin_asset_id IN NUMBER,
4908: p_chr_id IN NUMBER) IS
4909: SELECT txl.asset_number
4910: FROM okc_k_lines_b cle,
4911: okc_line_styles_b lse,
4912: okl_txl_assets_b txl
4913: WHERE cle.id = txl.kle_id
4914: AND cle.lse_id = lse.id
4915: AND lse.lty_code = 'FIXED_ASSET'
5236: CURSOR c_assets(p_chr_id IN NUMBER) IS
5237: SELECT cle.id fin_asset_id,
5238: cle.name asset_number
5239: FROM okc_k_lines_v cle,
5240: okc_line_styles_b lse,
5241: okc_statuses_b sts
5242: WHERE cle.chr_id = p_chr_id
5243: AND cle.dnz_chr_id = p_chr_id
5244: AND cle.lse_id = lse.id
5436: -- cursor to get fee line id and amount
5437: CURSOR get_fee_line_id (p_chr_id in NUMBER) IS
5438: SELECT kleb.id,Kleb.amount
5439: FROM
5440: okc_k_lines_b cleb,okl_k_lines kleb,okc_line_styles_b lseb
5441: WHERE cleb.dnz_chr_id = p_chr_id AND
5442: kleb.id = cleb.id AND
5443: cleb.lse_id = lseb.id AND
5444: lseb.lty_code = 'FEE' AND