705:
706: --cursor to fetch asset number for exception
707: cursor l_clet_csr (p_cle_id in number) is
708: select clet.name
709: from okc_k_lines_tl clet
710: where clet.id = p_cle_id
711: and clet.language = userenv('LANG');
712:
713: l_asset_number okc_k_lines_tl.name%TYPE;
709: from okc_k_lines_tl clet
710: where clet.id = p_cle_id
711: and clet.language = userenv('LANG');
712:
713: l_asset_number okc_k_lines_tl.name%TYPE;
714:
715: begin
716:
717: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3851: select 'Y',
3852: clet.name subsidy_name,
3853: clet_asst.name asset_number
3854: from okl_k_lines kle,
3855: okc_k_lines_tl clet,
3856: okc_k_lines_b cleb,
3857: okc_line_styles_b lseb,
3858: okc_k_lines_tl clet_asst
3859: where kle.id = cleb.id
3854: from okl_k_lines kle,
3855: okc_k_lines_tl clet,
3856: okc_k_lines_b cleb,
3857: okc_line_styles_b lseb,
3858: okc_k_lines_tl clet_asst
3859: where kle.id = cleb.id
3860: and kle.subsidy_id = p_subsidy_id
3861: and clet.id = cleb.id
3862: and clet.language = userenv('LANG')
3890: */
3891:
3892: l_exists varchar2(1) default 'N';
3893:
3894: -- l_subsidy_name okc_k_lines_tl.name%TYPE;
3895: -- l_asset_number okc_k_lines_tl.name%TYPE;
3896:
3897:
3898: BEGIN
3891:
3892: l_exists varchar2(1) default 'N';
3893:
3894: -- l_subsidy_name okc_k_lines_tl.name%TYPE;
3895: -- l_asset_number okc_k_lines_tl.name%TYPE;
3896:
3897:
3898: BEGIN
3899: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4037: select 'Y',
4038: clet.name subsidy_name,
4039: clet_asst.name asset_number
4040: from okl_k_lines kle,
4041: okc_k_lines_tl clet,
4042: okc_k_lines_b cleb,
4043: okc_line_styles_b lseb,
4044: okc_k_lines_tl clet_asst
4045: where kle.id = cleb.id
4040: from okl_k_lines kle,
4041: okc_k_lines_tl clet,
4042: okc_k_lines_b cleb,
4043: okc_line_styles_b lseb,
4044: okc_k_lines_tl clet_asst
4045: where kle.id = cleb.id
4046: and kle.subsidy_id = p_subsidy_id
4047: and clet.id = cleb.id
4048: and clet.language = userenv('LANG')
4112:
4113: l_exists varchar2(1) default 'N';
4114: l_count number := 0;
4115:
4116: l_subsidy_name okc_k_lines_tl.name%TYPE;
4117: l_asset_number okc_k_lines_tl.name%TYPE;
4118:
4119:
4120: BEGIN
4113: l_exists varchar2(1) default 'N';
4114: l_count number := 0;
4115:
4116: l_subsidy_name okc_k_lines_tl.name%TYPE;
4117: l_asset_number okc_k_lines_tl.name%TYPE;
4118:
4119:
4120: BEGIN
4121: x_return_status := OKL_API.G_RET_STS_SUCCESS;
4245: l_applicable VARCHAR2(1);
4246:
4247: cursor l_clet_csr(p_cle_id in number) is
4248: select clet.name
4249: from okc_k_lines_tl clet
4250: where clet.id = p_cle_id
4251: and clet.language = userenv('LANG');
4252:
4253: l_asset_number okc_k_lines_tl.name%TYPE;
4249: from okc_k_lines_tl clet
4250: where clet.id = p_cle_id
4251: and clet.language = userenv('LANG');
4252:
4253: l_asset_number okc_k_lines_tl.name%TYPE;
4254:
4255: cursor l_sub_csr(p_subsidy_id in number) is
4256: select subb.name
4257: from okl_subsidies_b subb