[Home] [Help]
1915: --Description : API to calculate subsidy amount based on subsidy calculation
1916: -- criteria for a subsidy line.
1917: --Notes :
1918: -- Always calculates actual amount to
1919: -- be stored in okl_k_lines.amount column for the subsidy line.
1920: -- This will be called from OKL_ASSET_SUBSIDY_PVT.calculate_Asset_subsidy
1921: -- to calculate subsidy amount. This does not consider subsidy_override_amount.
1922: -- For considering subsidy_override_amount please use overloded form
1923: -- of calculate_subsidy_amount with extra parameter p_override_yn.
1960: --Bug# 3313802 :
1961: subb.maximum_financed_amount maximum_financed_amount,
1962: subb.maximum_subsidy_amount maximum_subsidy_amount
1963: from okc_k_lines_b sub_cle,
1964: okl_k_lines sub_kle,
1965: okl_k_lines ast_kle,
1966: okl_subsidies_b subb
1967: where subb.id = sub_kle.subsidy_id
1968: and ast_kle.id = sub_cle.cle_id
1961: subb.maximum_financed_amount maximum_financed_amount,
1962: subb.maximum_subsidy_amount maximum_subsidy_amount
1963: from okc_k_lines_b sub_cle,
1964: okl_k_lines sub_kle,
1965: okl_k_lines ast_kle,
1966: okl_subsidies_b subb
1967: where subb.id = sub_kle.subsidy_id
1968: and ast_kle.id = sub_cle.cle_id
1969: and sub_kle.id = sub_cle.id
2544: --cursor to fetch subsidy override amount
2545: --------------------------------------------------
2546: cursor l_kle_csr (p_cle_id in number) is
2547: select kle.subsidy_override_amount
2548: from okl_k_lines kle,
2549: okc_k_lines_b cleb
2550: where kle.id = cleb.id
2551: and cleb.sts_code <> 'ABANDONED'
2552: and cleb.id = p_cle_id;
2550: where kle.id = cleb.id
2551: and cleb.sts_code <> 'ABANDONED'
2552: and cleb.id = p_cle_id;
2553:
2554: l_subsidy_override_amount okl_k_lines.subsidy_override_amount%TYPE default NULL;
2555: l_subsidy_amount number;
2556:
2557: begin
2558: x_return_status := OKL_API.G_RET_STS_SUCCESS;
2717: --cursor to get subsidy amount
2718: --should read override amount if it is specified, else amount
2719: cursor l_cleb_csr (p_cle_id in number) is
2720: select nvl(kle.subsidy_override_amount,nvl(kle.amount,0))
2721: from okl_k_lines kle,
2722: okc_k_lines_b cleb
2723: where kle.id = cleb.id
2724: and cleb.id = p_subsidy_cle_id
2725: and cleb.sts_code <> 'ABANDONED';
2866: ,subb.customer_visible_yn customer_visible_yn
2867: from okl_subsidies_b subb,
2868: okc_k_lines_b sub_cleb,
2869: okc_k_lines_tl sub_clet,
2870: okl_k_lines sub_kle,
2871: okc_k_party_roles_b cplb,
2872: po_vendors pov,
2873: okl_party_payment_dtls ppyd
2874: where ppyd.cpl_id(+) = cplb.id --payment details may not be mandatory
3043: --cursor to fetch all the subsidies attached to financial asset
3044: cursor l_sub_csr(p_asset_cle_id in number) is
3045: select sub_cle.id
3046: from okl_subsidies_b subb,
3047: okl_k_lines sub_kle,
3048: okc_k_lines_b sub_cle,
3049: okc_line_styles_b sub_lse
3050: where subb.id = sub_kle.subsidy_id
3051: and subb.accounting_method_code = nvl(upper(p_accounting_method),subb.accounting_method_code)
3836: p_chr_id in number,
3837: p_vendor_id in number) is
3838: select sub_cle.id
3839: from
3840: okl_k_lines sub_kle,
3841: okc_k_lines_b sub_cle,
3842: okc_line_styles_b sub_lse,
3843: okl_subsidies_b subb,
3844: okc_k_party_roles_b sub_vend,
4058: --cursor to fetch vendor subssidies
4059: cursor l_vend_sub_csr (p_asset_cle_id in number) is
4060: select sub_cle.id,
4061: sub_cle.dnz_chr_id
4062: from okl_k_lines sub_kle,
4063: okc_k_lines_b sub_cle,
4064: okc_line_styles_b sub_lse,
4065: okl_subsidies_b subb,
4066: okc_k_party_roles_b sub_vend,
5291: ,cleb.orig_system_id1
5292: ,cplb.object1_id1 vendor_id
5293: ,cplb.id cpl_id
5294: ,kle.sty_id sty_id
5295: from okl_k_lines kle,
5296: okc_k_lines_tl clet,
5297: okc_k_lines_b cleb,
5298: okc_statuses_b stsb,
5299: okc_line_styles_b lseb,
5325: ,kle.SUBSIDY_OVERRIDE_AMOUNT
5326: ,cplb.object1_id1 vendor_id
5327: ,cplb.id cpl_id
5328: ,kle.sty_id sty_id
5329: from okl_k_lines kle,
5330: okc_k_lines_tl clet,
5331: okc_k_lines_b cleb,
5332: okc_statuses_b stsb,
5333: okc_line_styles_b lseb,
5438: okc_k_lines_b asst_cleb,
5439: okc_statuses_b asst_sts,
5440: okc_k_party_roles_b cplb,
5441: okc_k_lines_tl clet,
5442: okl_k_lines kle,
5443: okc_line_styles_b lseb,
5444: okc_k_lines_b cleb
5445:
5446: Where asst_cleb.id = cleb.cle_id