[Home] [Help]
151: l_valid_asset_flag VARCHAR2(1);
152:
153: cursor l_cle_csr (p_cle_id in number) is
154: select 'Y'
155: from okc_k_lines_b cleb
156: where id = p_cle_id
157: and lse_id = 33;
158:
159: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
311:
312: CURSOR curr_ln_csr (p_line_id OKC_K_HEADERS_B.ID%TYPE) IS
313: SELECT h.currency_code
314: FROM okc_k_headers_b h,
315: okc_k_lines_b l
316: WHERE h.id = l.dnz_chr_id
317: AND l.id = p_line_id;
318:
319: l_conv_amount NUMBER;
316: WHERE h.id = l.dnz_chr_id
317: AND l.id = p_line_id;
318:
319: l_conv_amount NUMBER;
320: l_currency_code OKC_K_LINES_B.CURRENCY_CODE%TYPE;
321:
322:
323: CURSOR l_txd_csr(p_trxline_id IN NUMBER) IS
324: SELECT txd.id,
685: lx_klev_price_tbl klev_tbl_type;
686:
687: CURSOR k_line_curs(p_fa_line_id IN NUMBER) IS
688: SELECT cle.cle_id , sts.ste_code
689: FROM okc_k_lines_b cle , OKC_STATUSES_B sts
690: WHERE id = p_fa_line_id
691: and cle.sts_code = sts.code;
692:
693: l_ste_code OKC_STATUSES_B.STE_CODE%TYPE;
697: p_chr_id in number,
698: p_lty_code in varchar2) is
699: select cleb.id,
700: cleb.price_unit
701: from okc_k_lines_b cleb,
702: okc_line_styles_b lseb
703: where cleb.cle_id = p_cle_id
704: and cleb.dnz_chr_id = p_chr_id
705: and cleb.lse_id = lseb.id
2321: );
2322: cursor l_term_date_csr ( p_kle_id IN NUMBER)
2323: IS
2324: select date_terminated
2325: from okc_k_lines_b
2326: where id=p_kle_id;
2327: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2328: IS
2329: SELECT cle.id id
2323: IS
2324: select date_terminated
2325: from okc_k_lines_b
2326: where id=p_kle_id;
2327: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2328: IS
2329: SELECT cle.id id
2330: FROM okc_k_lines_b cle
2331: CONNECT BY PRIOR cle.id = cle.cle_id
2326: where id=p_kle_id;
2327: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2328: IS
2329: SELECT cle.id id
2330: FROM okc_k_lines_b cle
2331: CONNECT BY PRIOR cle.id = cle.cle_id
2332: START WITH cle.id = p_cle_id;
2333: l_return_needed VARCHAR2(1) := 'Y';
2334: l_asset_return_rec l_asset_return_csr%ROWTYPE;
2808: SELECT 'Y' date_valid,
2809: TO_CHAR(cleb.start_date,pdateformat) line_start_date,
2810: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2811: cleb.sts_code sts_code
2812: FROM okc_k_lines_b cleb
2813: WHERE ptrxdate BETWEEN TRUNC(cleb.start_date) AND TRUNC(cleb.end_date)
2814: AND cleb.id = pcleid;
2815: */
2816: CURSOR l_cleb_csr(pcleid IN NUMBER, pdateformat IN VARCHAR2) IS
2818: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2819: cleb.sts_code sts_code,
2820: trunc(cleb.start_date) cle_start_date,
2821: TRUNC(cleb.end_date) cle_end_date
2822: FROM okc_k_lines_b cleb
2823: WHERE cleb.id = pcleid;
2824: --Bug# 5946411: ER end
2825:
2826: /* --Added by HARIVEN - cursor to fetch the Start and End Date
2828: SELECT 'Y' date_valid,
2829: TO_CHAR(cleb.start_date,pdateformat) line_start_date,
2830: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2831: cleb.sts_code sts_code
2832: FROM okc_k_lines_b cleb
2833: WHERE cleb.id = pcleid;*/
2834:
2835: l_cleb_rec l_cleb_csr%ROWTYPE;
2836: l_icx_date_format VARCHAR2(240);
3685: --------------------------------------------------------------------------------
3686: FUNCTION verify_cle_id(p_cle_id IN NUMBER) RETURN VARCHAR2 IS
3687: CURSOR Chk_Top_Line(p_cle_id IN NUMBER) IS
3688: SELECT 'Y'
3689: FROM OKC_K_LINES_B cle
3690: WHERE cle.id = p_cle_id
3691: AND EXISTS (SELECT '1'
3692: FROM OKC_LINE_STYLES_B lse
3693: WHERE lse.id = cle.lse_id
4159: mtl.inventory_item_id,
4160: mtl.organization_id
4161: FROM mtl_system_items mtl,
4162: okc_k_items model_cim,
4163: okc_k_lines_b model_cle,
4164: okc_line_styles_b model_lse
4165: WHERE model_cim.object1_id2 = TO_CHAR(mtl.organization_id)
4166: AND model_cim.object1_id1 = mtl.inventory_item_id
4167: AND model_cim.jtot_object1_code = 'OKX_SYSITEM'
4230: p_cle_id IN NUMBER) IS
4231: SELECT mtl.serial_number_control_code
4232: FROM mtl_system_items mtl,
4233: okc_k_headers_b chrb,
4234: okc_k_lines_b cleb
4235: WHERE mtl.inventory_item_id = p_inv_item_id
4236: AND mtl.organization_id = chrb.inv_organization_id
4237: AND chrb.id = cleb.dnz_chr_id
4238: AND cleb.id = p_cle_id;
4661: chrb.inv_organization_id,
4662: txdb.inventory_item_id
4663: FROM mtl_parameters mp,
4664: okc_k_headers_b chrb,
4665: okc_k_lines_b cleb,
4666: okl_txl_Assets_b txlb,
4667: okl_txd_assets_b txdb
4668: WHERE mp.organization_id = chrb.inv_organization_id
4669: AND chrb.id = cleb.dnz_chr_id
4687: csi.instance_number
4688: FROM csi_item_instances csi,
4689: csi_instance_statuses csi_inst_sts,
4690: okc_k_items ib_cim,
4691: okc_k_lines_b ib_cle,
4692: okc_line_styles_b ib_lse,
4693: okc_k_lines_b inst_cle,
4694: okc_line_styles_b inst_lse,
4695: okc_statuses_b inst_sts,
4689: csi_instance_statuses csi_inst_sts,
4690: okc_k_items ib_cim,
4691: okc_k_lines_b ib_cle,
4692: okc_line_styles_b ib_lse,
4693: okc_k_lines_b inst_cle,
4694: okc_line_styles_b inst_lse,
4695: okc_statuses_b inst_sts,
4696: okc_k_lines_b fa_cle,
4697: okc_line_styles_b fa_lse,
4692: okc_line_styles_b ib_lse,
4693: okc_k_lines_b inst_cle,
4694: okc_line_styles_b inst_lse,
4695: okc_statuses_b inst_sts,
4696: okc_k_lines_b fa_cle,
4697: okc_line_styles_b fa_lse,
4698: okl_txl_assets_b txlb
4699: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
4700: AND csi_inst_sts.instance_status_id = csi.instance_status_id
4715: AND fa_cle.lse_id = fa_lse.id
4716: AND fa_lse.lty_code = 'FIXED_ASSET'
4717: AND txlb.id = p_tal_id;
4718:
4719: l_fa_cle_id okc_k_lines_b.id%TYPE;
4720: l_ib_cle_id okc_k_lines_b.id%TYPE;
4721: l_tas_id okl_txl_assets_b.tas_id%TYPE;
4722: l_location_id csi_item_instances.location_id%TYPE;
4723: l_install_location_id csi_item_instances.install_location_id%TYPE;
4716: AND fa_lse.lty_code = 'FIXED_ASSET'
4717: AND txlb.id = p_tal_id;
4718:
4719: l_fa_cle_id okc_k_lines_b.id%TYPE;
4720: l_ib_cle_id okc_k_lines_b.id%TYPE;
4721: l_tas_id okl_txl_assets_b.tas_id%TYPE;
4722: l_location_id csi_item_instances.location_id%TYPE;
4723: l_install_location_id csi_item_instances.install_location_id%TYPE;
4724: --BUG# 3569441
5011: SELECT
5012: COUNT(1)
5013: FROM csi_item_instances csi,
5014: okc_k_items ib_cim,
5015: okc_k_lines_b ib_cle,
5016: okc_line_styles_b ib_lse,
5017: okc_k_lines_b inst_cle,
5018: okc_line_styles_b inst_lse,
5019: okc_statuses_b inst_sts
5013: FROM csi_item_instances csi,
5014: okc_k_items ib_cim,
5015: okc_k_lines_b ib_cle,
5016: okc_line_styles_b ib_lse,
5017: okc_k_lines_b inst_cle,
5018: okc_line_styles_b inst_lse,
5019: okc_statuses_b inst_sts
5020: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5021: AND ib_cim.cle_id = ib_cle.id
5256: --BUG# 3569441
5257: csi.install_location_type_code --hz_party_sites OR hz_loactions
5258: FROM csi_item_instances csi,
5259: okc_k_items ib_cim,
5260: okc_k_lines_b ib_cle,
5261: okc_line_styles_b ib_lse,
5262: okc_k_lines_b inst_cle,
5263: okc_line_styles_b inst_lse,
5264: okc_statuses_b inst_sts
5258: FROM csi_item_instances csi,
5259: okc_k_items ib_cim,
5260: okc_k_lines_b ib_cle,
5261: okc_line_styles_b ib_lse,
5262: okc_k_lines_b inst_cle,
5263: okc_line_styles_b inst_lse,
5264: okc_statuses_b inst_sts
5265: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5266: AND ib_cim.cle_id = ib_cle.id
5299: --BUG# 3569441
5300: csi.install_location_type_code --hz_party_sites OR hz_locations
5301: FROM csi_item_instances csi,
5302: okc_k_items ib_cim,
5303: okc_k_lines_b ib_cle,
5304: okc_line_styles_b ib_lse,
5305: okc_k_lines_b inst_cle,
5306: okc_line_styles_b inst_lse,
5307: okc_statuses_b inst_sts
5301: FROM csi_item_instances csi,
5302: okc_k_items ib_cim,
5303: okc_k_lines_b ib_cle,
5304: okc_line_styles_b ib_lse,
5305: okc_k_lines_b inst_cle,
5306: okc_line_styles_b inst_lse,
5307: okc_statuses_b inst_sts
5308: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5309: AND ib_cim.cle_id = ib_cle.id
5692: CURSOR l_dealtyp_csr(PCleId IN NUMBER) IS
5693: SELECT khr.deal_type
5694: FROM okl_k_headers khr,
5695: okc_k_headers_b chrb,
5696: okc_k_lines_b cleb
5697: WHERE khr.id = chrb.id
5698: AND chrb.id = cleb.dnz_chr_id
5699: AND cleb.id = PCleId;
5700:
5852: khrv.currency_conversion_rate,
5853: khrv.currency_conversion_date,
5854: khrv.start_date
5855: FROM okl_k_headers_full_v khrv,
5856: okc_k_lines_b cle
5857: WHERE khrv.id = cle.dnz_chr_id
5858: AND cle.id = PCleId;
5859:
5860: curr_conv_rec curr_conv_csr%ROWTYPE;
5876: kle.OEC ORIGINAL_COST,
5877: kle.OEC COST,
5878: cle.sts_code LINE_STATUS
5879: FROM okc_k_items cim_fa,
5880: okc_k_lines_b cle_fa,
5881: okc_line_styles_b lse_fa,
5882: okl_k_lines kle,
5883: okc_k_lines_tl clet,
5884: okc_k_lines_b cle
5880: okc_k_lines_b cle_fa,
5881: okc_line_styles_b lse_fa,
5882: okl_k_lines kle,
5883: okc_k_lines_tl clet,
5884: okc_k_lines_b cle
5885: WHERE cim_fa.cle_id = cle_fa.id
5886: AND cle_fa.cle_id = cle.id
5887: AND cle_fa.dnz_chr_id = cle.dnz_chr_id
5888: AND cle_fa.lse_id = lse_fa.id
5906: SELECT '1'
5907: FROM
5908: okc_k_headers_b oks_chrb,
5909: okc_line_styles_b oks_cov_pd_lse,
5910: okc_k_lines_b oks_cov_pd_cleb,
5911: okc_k_rel_objs krel,
5912: okc_line_styles_b lnk_srv_lse,
5913: okc_statuses_b lnk_srv_sts,
5914: okc_k_lines_b lnk_srv_cleb,
5910: okc_k_lines_b oks_cov_pd_cleb,
5911: okc_k_rel_objs krel,
5912: okc_line_styles_b lnk_srv_lse,
5913: okc_statuses_b lnk_srv_sts,
5914: okc_k_lines_b lnk_srv_cleb,
5915: okc_k_items lnk_srv_cim
5916: WHERE oks_chrb.scs_code = 'SERVICE'
5917: AND oks_chrb.id = oks_cov_pd_cleb.dnz_chr_id
5918: AND oks_cov_pd_cleb.lse_id = oks_cov_pd_lse.id
5946:
5947: --Bug# 3783518
5948: CURSOR l_chr_csr(p_cle_id IN NUMBER) IS
5949: SELECT dnz_chr_id
5950: FROM okc_k_lines_b
5951: WHERE id = p_cle_id;
5952:
5953: l_chr_id okc_k_headers_b.id%TYPE;
5954:
6804: )
6805: IS
6806: CURSOR l_okl_cle_chr_csr IS
6807: SELECT dnz_chr_id
6808: FROM okc_k_lines_b
6809: WHERE id = p_cle_id;
6810:
6811: l_parameter_list wf_parameter_list_t;
6812: BEGIN
7049: l_api_version CONSTANT NUMBER := 1.0;
7050:
7051: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
7052: SELECT cle.id
7053: FROM OKC_K_LINES_B cle,
7054: OKC_LINE_STYLES_B lse
7055: WHERE cle.cle_id = p_cle_id
7056: AND cle.lse_id = lse.id
7057: AND lse.lty_code = 'FIXED_ASSET'
7758: txd.quantity,
7759: txl.current_units
7760: FROM okl_txd_assets_b txd,
7761: okl_txl_Assets_b txl,
7762: okc_k_lines_b cle,
7763: okc_k_lines_b target_cle
7764: WHERE txl.tal_type = 'ALI'
7765: AND txd.tal_id = txl.id
7766: AND txl.id = p_trxline_id
7759: txl.current_units
7760: FROM okl_txd_assets_b txd,
7761: okl_txl_Assets_b txl,
7762: okc_k_lines_b cle,
7763: okc_k_lines_b target_cle
7764: WHERE txl.tal_type = 'ALI'
7765: AND txd.tal_id = txl.id
7766: AND txl.id = p_trxline_id
7767: AND txl.kle_id <> txd.target_kle_id
7785: txd.quantity,
7786: txl.current_units
7787: FROM okl_txd_assets_b txd,
7788: okl_txl_Assets_b txl,
7789: okc_k_lines_b cle,
7790: okc_k_lines_b target_cle
7791: WHERE txl.tal_type = 'ALI'
7792: AND txd.tal_id = txl.id
7793: AND txl.id = p_trxline_id
7786: txl.current_units
7787: FROM okl_txd_assets_b txd,
7788: okl_txl_Assets_b txl,
7789: okc_k_lines_b cle,
7790: okc_k_lines_b target_cle
7791: WHERE txl.tal_type = 'ALI'
7792: AND txd.tal_id = txl.id
7793: AND txl.id = p_trxline_id
7794: AND txl.kle_id = txd.target_kle_id
7809: SELECT lnk_cle.id,
7810: lnk_target_cle.id,
7811: --Bug 3502142
7812: lnk_target_cle.cle_id
7813: FROM okc_k_lines_b lnk_cle,
7814: okc_k_items lnk_cim,
7815: okc_line_styles_b lnk_lse,
7816: okc_k_lines_b lnk_target_cle,
7817: okc_k_items lnk_target_cim,
7812: lnk_target_cle.cle_id
7813: FROM okc_k_lines_b lnk_cle,
7814: okc_k_items lnk_cim,
7815: okc_line_styles_b lnk_lse,
7816: okc_k_lines_b lnk_target_cle,
7817: okc_k_items lnk_target_cim,
7818: okc_line_styles_b lnk_target_lse
7819: WHERE lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
7820: AND lnk_cim.object1_id2 = '#'
7838: SELECT lnk_cle.id,
7839: lnk_target_cle.id,
7840: --Bug 3502142
7841: lnk_target_cle.cle_id
7842: FROM okc_k_lines_b lnk_cle,
7843: okc_k_items lnk_cim,
7844: okc_line_styles_b lnk_lse,
7845: okc_k_lines_b lnk_target_cle,
7846: okc_k_items lnk_target_cim,
7841: lnk_target_cle.cle_id
7842: FROM okc_k_lines_b lnk_cle,
7843: okc_k_items lnk_cim,
7844: okc_line_styles_b lnk_lse,
7845: okc_k_lines_b lnk_target_cle,
7846: okc_k_items lnk_target_cim,
7847: okc_line_styles_b lnk_target_lse
7848: WHERE lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
7849: AND lnk_cim.object1_id2 = '#'
7863: AND lnk_cle.id = lnk_target_cle.id
7864: AND lnk_cle.dnz_chr_id = lnk_target_cle.dnz_chr_id;
7865:
7866:
7867: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7868: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7869:
7870: -- Bug# 3502142
7871: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7864: AND lnk_cle.dnz_chr_id = lnk_target_cle.dnz_chr_id;
7865:
7866:
7867: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7868: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7869:
7870: -- Bug# 3502142
7871: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7872: --Bug# 6344223
7867: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7868: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7869:
7870: -- Bug# 3502142
7871: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7872: --Bug# 6344223
7873: l_highest_split_comp_amt VARCHAR2(30);
7874: l_count NUMBER;
7875:
7959:
7960: -- Bug# 3502142: start
7961: CURSOR curr_code_csr(p_kle_id IN NUMBER) IS
7962: SELECT currency_code
7963: FROM okc_k_lines_b
7964: WHERE id = p_kle_id;
7965:
7966: l_currency_code OKC_K_LINES_B.currency_code%type;
7967:
7962: SELECT currency_code
7963: FROM okc_k_lines_b
7964: WHERE id = p_kle_id;
7965:
7966: l_currency_code OKC_K_LINES_B.currency_code%type;
7967:
7968: l_active_yn OKL_STREAMS.ACTIVE_YN%TYPE;
7969:
7970: --Bug# 4775555
7981: txd.quantity,
7982: txl.current_units
7983: FROM okl_txd_assets_b txd,
7984: okl_txl_Assets_b txl,
7985: okc_k_lines_b cle,
7986: okc_k_lines_b target_cle
7987: WHERE txl.tal_type = 'ALI'
7988: AND txd.tal_id = txl.id
7989: AND txl.id = p_trxline_id
7982: txl.current_units
7983: FROM okl_txd_assets_b txd,
7984: okl_txl_Assets_b txl,
7985: okc_k_lines_b cle,
7986: okc_k_lines_b target_cle
7987: WHERE txl.tal_type = 'ALI'
7988: AND txd.tal_id = txl.id
7989: AND txl.id = p_trxline_id
7990: AND txl.kle_id <> txd.target_kle_id
8725: chr_id,
8726: cle_id,
8727: dnz_chr_id,
8728: lse_id
8729: FROM okc_k_lines_b
8730: CONNECT BY PRIOR id = cle_id
8731: START WITH id = p_cle_id;
8732:
8733: CURSOR c_lty_code(p_lse_id IN NUMBER) IS
8767: cleb.currency_code
8768: FROM okc_rules_b rul,
8769: okc_rule_groups_b rgp,
8770: okc_rules_b rul_slh,
8771: okc_k_lines_b cleb
8772: --Bug# : 3124577 - 11.5.10 : Rule Migration
8773: WHERE rul.rule_information_category = 'LASLL'
8774: --where rul.rule_information_category = 'SLL'
8775: AND rul.rgp_id = rgp.id
8808: --Bug# 2881114 - modified cursor
8809: CURSOR l_lnk_asst_cur (p_cle_id IN NUMBER) IS
8810: SELECT cle.cle_id srv_fee_line_id,
8811: cle.id lnk_line_id
8812: FROM OKC_K_LINES_B cle,
8813: OKC_LINE_STYLES_B lse,
8814: OKC_STATUSES_B sts,
8815: OKC_K_ITEMS cim,
8816: OKC_K_LINES_B fin_asst_line
8812: FROM OKC_K_LINES_B cle,
8813: OKC_LINE_STYLES_B lse,
8814: OKC_STATUSES_B sts,
8815: OKC_K_ITEMS cim,
8816: OKC_K_LINES_B fin_asst_line
8817: WHERE cle.lse_id = lse.id
8818: AND lse.lty_code IN ('LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET')
8819: AND cle.dnz_chr_id = fin_asst_line.dnz_chr_id
8820: AND sts.code = cle.sts_code
8826: AND cim.jtot_object1_code = 'OKX_COVASST'
8827: AND cim.dnz_chr_id = fin_asst_line.dnz_chr_id
8828: AND fin_asst_line.id = p_cle_id;
8829:
8830: l_srv_fee_line_id OKC_K_LINES_B.cle_id%TYPE;
8831: l_lnk_line_id OKC_K_LINES_B.id%TYPE;
8832:
8833:
8834: l_level NUMBER;
8827: AND cim.dnz_chr_id = fin_asst_line.dnz_chr_id
8828: AND fin_asst_line.id = p_cle_id;
8829:
8830: l_srv_fee_line_id OKC_K_LINES_B.cle_id%TYPE;
8831: l_lnk_line_id OKC_K_LINES_B.id%TYPE;
8832:
8833:
8834: l_level NUMBER;
8835: l_cle_id NUMBER;
8881: po_vendors pov,
8882: okc_k_party_roles_b cplb,
8883: okl_k_lines kle_sub,
8884: okc_k_lines_tl clet_sub,
8885: okc_k_lines_b cleb_sub,
8886: okc_line_styles_b lseb_sub,
8887: okc_k_lines_tl clet_asst,
8888: okc_k_lines_b cleb_asst
8889: WHERE
8884: okc_k_lines_tl clet_sub,
8885: okc_k_lines_b cleb_sub,
8886: okc_line_styles_b lseb_sub,
8887: okc_k_lines_tl clet_asst,
8888: okc_k_lines_b cleb_asst
8889: WHERE
8890: pov.vendor_id = cplb.object1_id1
8891: AND cplb.object1_id2 = '#'
8892: AND cplb.jtot_object1_code = 'OKX_VENDOR'
8946: ,sid.LAST_UPDATE_DATE
8947: ,sid.LAST_UPDATE_LOGIN
8948: ,cleb_fa.id fixed_asset_cle_id
8949: FROM okl_supp_invoice_dtls sid,
8950: okc_k_lines_b cleb_fa,
8951: okc_line_styles_b lseb_fa,
8952: okc_k_lines_b cleb
8953: WHERE sid.cle_id = cleb.orig_system_id1
8954: AND cleb_fa.cle_id = cleb.cle_id
8948: ,cleb_fa.id fixed_asset_cle_id
8949: FROM okl_supp_invoice_dtls sid,
8950: okc_k_lines_b cleb_fa,
8951: okc_line_styles_b lseb_fa,
8952: okc_k_lines_b cleb
8953: WHERE sid.cle_id = cleb.orig_system_id1
8954: AND cleb_fa.cle_id = cleb.cle_id
8955: AND cleb_fa.dnz_chr_id = cleb.dnz_chr_id
8956: AND lseb_fa.id = cleb_fa.lse_id
8989:
8990: CURSOR l_new_lnk_assts_cur (p_chr_id IN NUMBER,
8991: p_cle_id IN NUMBER) IS
8992: SELECT cle.id
8993: FROM OKC_K_LINES_B cle
8994: WHERE cle.dnz_chr_id = p_chr_id
8995: AND cle.orig_system_id1 = p_cle_id;
8996:
8997: l_target_kle_id NUMBER;
8998:
8999: CURSOR l_fa_line_csr(p_chr_id IN NUMBER,
9000: p_cle_id IN NUMBER) IS
9001: SELECT cle.id
9002: FROM okc_k_lines_b cle,
9003: okc_line_styles_b lse
9004: WHERE cle.cle_id = p_cle_id
9005: AND cle.dnz_chr_id = p_chr_id
9006: AND cle.lse_id = lse.id
9009: -- Bug# 5946411: ER
9010: --cursor to check the status of asset
9011: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
9012: SELECT cleb.sts_code sts_code
9013: FROM okc_k_lines_b cleb
9014: WHERE cleb.id = pcleid;
9015: l_cle_status okc_k_lines_b.sts_code%TYPE;
9016: -- Bug# 5946411: ER End
9017:
9011: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
9012: SELECT cleb.sts_code sts_code
9013: FROM okc_k_lines_b cleb
9014: WHERE cleb.id = pcleid;
9015: l_cle_status okc_k_lines_b.sts_code%TYPE;
9016: -- Bug# 5946411: ER End
9017:
9018: --Bug# 6344223 : Start
9019: l_fa_line_id NUMBER;
10543: chr_id,
10544: cle_id,
10545: dnz_chr_id,
10546: lse_id
10547: FROM okc_k_lines_b
10548: CONNECT BY PRIOR id = cle_id
10549: START WITH id = p_cle_id;
10550:
10551: c_lines_rec c_lines_cur%ROWTYPE;
10555: --Bug#3066375 :
10556: --Cursor to fetch linked asset lines for parent asset being abandoned
10557: CURSOR l_lnk_asst_csr (p_cle_id IN NUMBER) IS
10558: SELECT lnk_cleb.id lnk_cle_id
10559: FROM okc_k_lines_b lnk_cleb,
10560: okc_line_styles_b lnk_lseb,
10561: okc_statuses_b lnk_stsb,
10562: okc_k_items lnk_cim
10563: WHERE lnk_cleb.id = lnk_cim.cle_id
10570: AND lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
10571: AND lnk_cim.object1_id2 = '#'
10572: AND lnk_cim.jtot_object1_code = 'OKX_COVASST';
10573:
10574: l_lnk_cle_id okc_k_lines_b.id%TYPE;
10575: l_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10576: lx_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10577:
10578: BEGIN
10696: l_sts_code Varchar2(30);
10697: l_deal_type Varchar2(30);
10698: l_pdt_id Number;
10699: l_start_date Date;
10700: l_asset_status okc_k_lines_b.sts_code%TYPE;
10701: l_chr_id NUMBER;
10702: l_amortization_date DATE;
10703: l_special_treatment_required VARCHAR2(1);
10704: l_pdt_date DATE;
11094: SELECT cleb.sts_code sts_code,
11095: cleb.dnz_chr_id chr_id,
11096: khr.PDT_ID,
11097: chr.START_DATE
11098: FROM okc_k_lines_b cleb,
11099: okl_k_headers khr,
11100: OKC_K_HEADERS_B chr
11101: WHERE cleb.id = pcleid
11102: and khr.id = cleb.dnz_chr_id
11100: OKC_K_HEADERS_B chr
11101: WHERE cleb.id = pcleid
11102: and khr.id = cleb.dnz_chr_id
11103: and chr.id = khr.id;
11104: l_cle_status okc_k_lines_b.sts_code%TYPE;
11105: --cursor to find book class
11106: CURSOR l_book_class_cur(p_book_type_code IN VARCHAR2) IS
11107: SELECT book_class
11108: FROM okx_asst_bk_controls_v
12286: -- Bug# 5946411: ER
12287: --cursor to check the status of asset
12288: /* CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12289: SELECT cleb.sts_code sts_code,cleb.dnz_chr_id chr_id
12290: FROM okc_k_lines_b cleb
12291: WHERE cleb.id = pcleid;
12292: l_cle_status okc_k_lines_b.sts_code%TYPE; */
12293: -- Bug# 6061103
12294: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12288: /* CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12289: SELECT cleb.sts_code sts_code,cleb.dnz_chr_id chr_id
12290: FROM okc_k_lines_b cleb
12291: WHERE cleb.id = pcleid;
12292: l_cle_status okc_k_lines_b.sts_code%TYPE; */
12293: -- Bug# 6061103
12294: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12295: SELECT cleb.sts_code sts_code,
12296: cleb.dnz_chr_id chr_id,
12295: SELECT cleb.sts_code sts_code,
12296: cleb.dnz_chr_id chr_id,
12297: khr.PDT_ID,
12298: chr.START_DATE
12299: FROM okc_k_lines_b cleb,
12300: okl_k_headers khr,
12301: OKC_K_HEADERS_B chr
12302: WHERE cleb.id = pcleid
12303: and khr.id = cleb.dnz_chr_id
12301: OKC_K_HEADERS_B chr
12302: WHERE cleb.id = pcleid
12303: and khr.id = cleb.dnz_chr_id
12304: and chr.id = khr.id;
12305: l_cle_status okc_k_lines_b.sts_code%TYPE;
12306:
12307: --cursor to get the amortization date
12308: cursor l_max_amortize_date_csr (p_asset_id IN NUMBER,p_book_type_code IN VARCHAR2) is
12309: select max(th.amortization_start_date) amortization_start_date
13036: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13037: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13038: l_api_version CONSTANT NUMBER := 1.0;
13039:
13040: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13041: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13042:
13043: l_inst_clev_rec okc_contract_pub.clev_rec_type;
13044: l_ib_clev_rec okc_contract_pub.clev_rec_type;
13037: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13038: l_api_version CONSTANT NUMBER := 1.0;
13039:
13040: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13041: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13042:
13043: l_inst_clev_rec okc_contract_pub.clev_rec_type;
13044: l_ib_clev_rec okc_contract_pub.clev_rec_type;
13045: lx_inst_clev_rec okc_contract_pub.clev_rec_type;
13302: SELECT inst_cle.id inst_cle_id,
13303: ib_cle.id ib_cle_id
13304: FROM
13305: okc_k_items ib_cim,
13306: okc_k_lines_b ib_cle,
13307: okc_line_styles_b ib_lse,
13308: okc_k_lines_b inst_cle,
13309: okc_line_styles_b inst_lse,
13310: okc_k_lines_b fa_cle,
13304: FROM
13305: okc_k_items ib_cim,
13306: okc_k_lines_b ib_cle,
13307: okc_line_styles_b ib_lse,
13308: okc_k_lines_b inst_cle,
13309: okc_line_styles_b inst_lse,
13310: okc_k_lines_b fa_cle,
13311: okc_line_styles_b fa_lse,
13312: okl_txl_Assets_b tal
13306: okc_k_lines_b ib_cle,
13307: okc_line_styles_b ib_lse,
13308: okc_k_lines_b inst_cle,
13309: okc_line_styles_b inst_lse,
13310: okc_k_lines_b fa_cle,
13311: okc_line_styles_b fa_lse,
13312: okl_txl_Assets_b tal
13313: WHERE ib_cim.object1_id1 = TO_CHAR(PInstanceId)
13314: AND ib_cim.object1_id2 = '#'
13328: AND fa_cle.lse_id = fa_lse.id
13329: AND fa_lse.lty_code = 'FIXED_ASSET'
13330: AND tal.id = PTalId;
13331:
13332: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13333: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13334:
13335: --Cursors for Split asset components which are serialized
13336: CURSOR get_instance_cle_csr2 (PTarget_kle_id IN NUMBER, PChrId IN NUMBER) IS
13329: AND fa_lse.lty_code = 'FIXED_ASSET'
13330: AND tal.id = PTalId;
13331:
13332: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13333: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13334:
13335: --Cursors for Split asset components which are serialized
13336: CURSOR get_instance_cle_csr2 (PTarget_kle_id IN NUMBER, PChrId IN NUMBER) IS
13337: SELECT inst_cle.id inst_cle_id,
13337: SELECT inst_cle.id inst_cle_id,
13338: ib_cim.id ib_cim_id
13339: FROM
13340: okc_k_items ib_cim,
13341: okc_k_lines_b ib_cle,
13342: okc_line_styles_b ib_lse,
13343: okc_k_lines_b inst_cle,
13344: okc_line_styles_b inst_lse,
13345: okc_k_lines_b fa_cle,
13339: FROM
13340: okc_k_items ib_cim,
13341: okc_k_lines_b ib_cle,
13342: okc_line_styles_b ib_lse,
13343: okc_k_lines_b inst_cle,
13344: okc_line_styles_b inst_lse,
13345: okc_k_lines_b fa_cle,
13346: okc_line_styles_b fa_lse
13347: WHERE
13341: okc_k_lines_b ib_cle,
13342: okc_line_styles_b ib_lse,
13343: okc_k_lines_b inst_cle,
13344: okc_line_styles_b inst_lse,
13345: okc_k_lines_b fa_cle,
13346: okc_line_styles_b fa_lse
13347: WHERE
13348: ib_cim.cle_id = ib_cle.id
13349: AND ib_cim.dnz_chr_id = ib_cle.dnz_chr_id
13993: cim_model.object1_id2,
13994: cle_fa.dnz_chr_id,
13995: cle_fa.cle_id
13996: FROM okc_k_items cim_model,
13997: okc_k_lines_b cle_model,
13998: okc_line_styles_b lse_model,
13999: okc_k_lines_b cle_fa
14000: WHERE cim_model.dnz_chr_id = cle_model.dnz_chr_id
14001: AND cim_model.cle_id = cle_model.id
13995: cle_fa.cle_id
13996: FROM okc_k_items cim_model,
13997: okc_k_lines_b cle_model,
13998: okc_line_styles_b lse_model,
13999: okc_k_lines_b cle_fa
14000: WHERE cim_model.dnz_chr_id = cle_model.dnz_chr_id
14001: AND cim_model.cle_id = cle_model.id
14002: AND cle_model.lse_id = lse_model.id
14003: AND lse_model.lty_code = 'ITEM'
14016: --Cursor to fetch ib instances
14017: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14018: SELECT cle_ib.id,
14019: cle_inst.id
14020: FROM okc_k_lines_b cle_ib,
14021: okc_line_styles_b lse_ib,
14022: okc_k_lines_b cle_inst,
14023: okc_line_styles_b lse_inst
14024: WHERE cle_ib.lse_id = lse_ib.id
14018: SELECT cle_ib.id,
14019: cle_inst.id
14020: FROM okc_k_lines_b cle_ib,
14021: okc_line_styles_b lse_ib,
14022: okc_k_lines_b cle_inst,
14023: okc_line_styles_b lse_inst
14024: WHERE cle_ib.lse_id = lse_ib.id
14025: AND lse_ib.lty_code = 'INST_ITEM'
14026: AND cle_ib.dnz_chr_id = cle_inst.dnz_chr_id
14028: AND cle_inst.lse_id = lse_inst.id
14029: AND lse_inst.lty_code = 'FREE_FORM2'
14030: AND cle_inst.cle_id = p_fin_ast_id;
14031:
14032: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14033: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14034:
14035: --Cursor to fetch new ib instance lines
14036: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14029: AND lse_inst.lty_code = 'FREE_FORM2'
14030: AND cle_inst.cle_id = p_fin_ast_id;
14031:
14032: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14033: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14034:
14035: --Cursor to fetch new ib instance lines
14036: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14037: CURSOR new_ib_inst_csr(p_txd_id IN NUMBER) IS
14036: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14037: CURSOR new_ib_inst_csr(p_txd_id IN NUMBER) IS
14038: SELECT cle_ib.id,
14039: cle_inst.id
14040: FROM okc_k_lines_b cle_ib,
14041: okc_line_styles_b lse_ib,
14042: okc_k_lines_b cle_inst,
14043: okc_line_styles_b lse_inst,
14044: okc_k_lines_b cle_fa,
14038: SELECT cle_ib.id,
14039: cle_inst.id
14040: FROM okc_k_lines_b cle_ib,
14041: okc_line_styles_b lse_ib,
14042: okc_k_lines_b cle_inst,
14043: okc_line_styles_b lse_inst,
14044: okc_k_lines_b cle_fa,
14045: okl_txd_assets_b txdb
14046: WHERE cle_ib.lse_id = lse_ib.id
14040: FROM okc_k_lines_b cle_ib,
14041: okc_line_styles_b lse_ib,
14042: okc_k_lines_b cle_inst,
14043: okc_line_styles_b lse_inst,
14044: okc_k_lines_b cle_fa,
14045: okl_txd_assets_b txdb
14046: WHERE cle_ib.lse_id = lse_ib.id
14047: AND lse_ib.lty_code = 'INST_ITEM'
14048: AND cle_ib.dnz_chr_id = cle_inst.dnz_chr_id
14052: AND cle_inst.cle_id = cle_fa.cle_id
14053: AND cle_fa.id = txdb.target_kle_id
14054: AND txdb.id = p_txd_id;
14055:
14056: l_tgt_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14057: l_tgt_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14058:
14059:
14060: --cursor to fetch child asset top line is
14053: AND cle_fa.id = txdb.target_kle_id
14054: AND txdb.id = p_txd_id;
14055:
14056: l_tgt_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14057: l_tgt_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14058:
14059:
14060: --cursor to fetch child asset top line is
14061: CURSOR child_cle_csr(p_txd_id IN NUMBER) IS
14059:
14060: --cursor to fetch child asset top line is
14061: CURSOR child_cle_csr(p_txd_id IN NUMBER) IS
14062: SELECT cle_fa.cle_id
14063: FROM okc_k_lines_b cle_fa,
14064: okl_txd_assets_b txdb
14065: WHERE cle_fa.id = txdb.target_kle_id
14066: AND txdb.id = p_txd_id;
14067:
14064: okl_txd_assets_b txdb
14065: WHERE cle_fa.id = txdb.target_kle_id
14066: AND txdb.id = p_txd_id;
14067:
14068: l_target_cle_id OKC_K_LINES_B.ID%TYPE;
14069: l_new_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14070:
14071: --cursor to fetch the newly created ib line
14072: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14065: WHERE cle_fa.id = txdb.target_kle_id
14066: AND txdb.id = p_txd_id;
14067:
14068: l_target_cle_id OKC_K_LINES_B.ID%TYPE;
14069: l_new_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14070:
14071: --cursor to fetch the newly created ib line
14072: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14073: SELECT id
14070:
14071: --cursor to fetch the newly created ib line
14072: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14073: SELECT id
14074: FROM okc_k_lines_b cle_new_ib
14075: WHERE cle_new_ib.cle_id = p_new_inst_id;
14076:
14077: l_new_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14078:
14073: SELECT id
14074: FROM okc_k_lines_b cle_new_ib
14075: WHERE cle_new_ib.cle_id = p_new_inst_id;
14076:
14077: l_new_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14078:
14079: --table of line records for updating statuses of the new lines
14080: l_clev_tbl OKL_OKC_MIGRATION_PVT.clev_tbl_type;
14081: lx_clev_tbl OKL_OKC_MIGRATION_PVT.clev_tbl_type;
14084: -- Bug# 5946411: ER
14085: --cursor to check the status of asset
14086: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
14087: SELECT cleb.sts_code sts_code
14088: FROM okc_k_lines_b cleb
14089: WHERE cleb.id = pcleid;
14090: l_cle_status okc_k_lines_b.sts_code%TYPE;
14091: -- Bug# 5946411: ER End
14092: BEGIN
14086: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
14087: SELECT cleb.sts_code sts_code
14088: FROM okc_k_lines_b cleb
14089: WHERE cleb.id = pcleid;
14090: l_cle_status okc_k_lines_b.sts_code%TYPE;
14091: -- Bug# 5946411: ER End
14092: BEGIN
14093: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14094: -- Call start_activity to create savepoint, check compatibility
14312:
14313: --cursor to fetch top line id for a fixed asset line
14314: CURSOR l_cleb_csr (p_cle_id IN NUMBER) IS
14315: SELECT cleb.cle_id
14316: FROM okc_k_lines_b cleb
14317: WHERE cleb.id = p_cle_id;
14318:
14319: l_parent_fina_cle_id NUMBER DEFAULT NULL;
14320: l_child_fina_cle_id NUMBER DEFAULT NULL;
14330:
14331: --cursor to fetch Inastance line id
14332: CURSOR l_instcle_csr(p_cle_id IN NUMBER) IS
14333: SELECT cleb.id
14334: FROM okc_k_lines_b cleb,
14335: okc_line_styles_b lseb
14336: WHERE lseb.id = cleb.lse_id
14337: AND lseb.lty_code = 'FREE_FORM2'
14338: AND cleb.sts_code <> 'ABANDONED'
14644: dnz_chr_id,
14645: --Bug# 6373605 start
14646: sts_code
14647: --Bug# 6373605 end
14648: FROM okc_k_lines_b
14649: WHERE id = p_fa_line_id;
14650:
14651: l_source_cle_id NUMBER;
14652: l_chr_id NUMBER;
14651: l_source_cle_id NUMBER;
14652: l_chr_id NUMBER;
14653: i NUMBER;
14654: --Bug# 6373605 start
14655: l_sts_code okc_k_lines_b.STS_CODE%TYPE;
14656: --Bug# 6373605 end
14657:
14658: l_txdv_rec txdv_rec_type;
14659: l_txlv_rec txlv_rec_type;
14686: cim.id,
14687: cim.cle_id,
14688: cim.dnz_chr_id
14689: FROM OKC_K_ITEMS cim,
14690: OKC_K_LINES_B inst_item,
14691: OKC_LINE_STYLES_B inst_item_lse,
14692: OKC_K_LINES_B f_frm2,
14693: OKC_LINE_STYLES_B f_frm2_lse,
14694: OKC_K_LINES_B fa
14688: cim.dnz_chr_id
14689: FROM OKC_K_ITEMS cim,
14690: OKC_K_LINES_B inst_item,
14691: OKC_LINE_STYLES_B inst_item_lse,
14692: OKC_K_LINES_B f_frm2,
14693: OKC_LINE_STYLES_B f_frm2_lse,
14694: OKC_K_LINES_B fa
14695: WHERE cim.cle_id = inst_item.id
14696: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14690: OKC_K_LINES_B inst_item,
14691: OKC_LINE_STYLES_B inst_item_lse,
14692: OKC_K_LINES_B f_frm2,
14693: OKC_LINE_STYLES_B f_frm2_lse,
14694: OKC_K_LINES_B fa
14695: WHERE cim.cle_id = inst_item.id
14696: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14697: AND inst_item.cle_id = f_frm2.id
14698: AND inst_item.lse_id = inst_item_lse.id
14783: CURSOR get_dup_inst_csr (p_asd_id IN NUMBER) IS
14784: SELECT f_frm2.id instance_id,
14785: inst_item.id ib_line_id
14786: FROM OKC_K_ITEMS cim,
14787: OKC_K_LINES_B inst_item,
14788: OKC_LINE_STYLES_B inst_item_lse,
14789: OKC_K_LINES_B f_frm2,
14790: OKC_LINE_STYLES_B f_frm2_lse,
14791: OKC_K_LINES_B fa,
14785: inst_item.id ib_line_id
14786: FROM OKC_K_ITEMS cim,
14787: OKC_K_LINES_B inst_item,
14788: OKC_LINE_STYLES_B inst_item_lse,
14789: OKC_K_LINES_B f_frm2,
14790: OKC_LINE_STYLES_B f_frm2_lse,
14791: OKC_K_LINES_B fa,
14792: OKL_TXD_ASSETS_B asd
14793: WHERE cim.cle_id = inst_item.id
14787: OKC_K_LINES_B inst_item,
14788: OKC_LINE_STYLES_B inst_item_lse,
14789: OKC_K_LINES_B f_frm2,
14790: OKC_LINE_STYLES_B f_frm2_lse,
14791: OKC_K_LINES_B fa,
14792: OKL_TXD_ASSETS_B asd
14793: WHERE cim.cle_id = inst_item.id
14794: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14795: AND inst_item.cle_id = f_frm2.id
14801: AND fa.id = asd.target_kle_id
14802: AND asd.id = p_asd_id
14803: AND EXISTS (SELECT NULL
14804: FROM OKC_K_ITEMS cim_p,
14805: OKC_K_LINES_B inst_item_p,
14806: OKC_LINE_STYLES_B inst_item_lse_p,
14807: OKC_K_LINES_B f_frm2_p,
14808: OKC_LINE_STYLES_B f_frm2_lse_p,
14809: OKC_K_LINES_B fa_p,
14803: AND EXISTS (SELECT NULL
14804: FROM OKC_K_ITEMS cim_p,
14805: OKC_K_LINES_B inst_item_p,
14806: OKC_LINE_STYLES_B inst_item_lse_p,
14807: OKC_K_LINES_B f_frm2_p,
14808: OKC_LINE_STYLES_B f_frm2_lse_p,
14809: OKC_K_LINES_B fa_p,
14810: OKL_TXL_ASSETS_B tal
14811: WHERE cim_p.object1_id1 = cim.object1_id1
14805: OKC_K_LINES_B inst_item_p,
14806: OKC_LINE_STYLES_B inst_item_lse_p,
14807: OKC_K_LINES_B f_frm2_p,
14808: OKC_LINE_STYLES_B f_frm2_lse_p,
14809: OKC_K_LINES_B fa_p,
14810: OKL_TXL_ASSETS_B tal
14811: WHERE cim_p.object1_id1 = cim.object1_id1
14812: AND cim_p.object1_id2 = cim.object1_id2
14813: AND cim_p.jtot_object1_code = cim.jtot_object1_code
14823: AND fa_p.id = tal.kle_id
14824: AND tal.id = asd.tal_id
14825: );
14826:
14827: l_dup_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14828: l_dup_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14829:
14830: --Bug# : cursor to check if split is called by asset level termination process
14831: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14824: AND tal.id = asd.tal_id
14825: );
14826:
14827: l_dup_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14828: l_dup_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14829:
14830: --Bug# : cursor to check if split is called by asset level termination process
14831: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14832: SELECT '!'
16075:
16076: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16077: SELECT cle.id,
16078: cle.dnz_chr_id
16079: FROM OKC_K_LINES_B cle,
16080: OKC_LINE_STYLES_B lse
16081: WHERE cle.cle_id = p_cle_id
16082: AND cle.lse_id = lse.id
16083: AND lse.lty_code = 'FIXED_ASSET'
16095: l_txdv_tbl txdv_tbl_type;
16096:
16097: l_no_data_found BOOLEAN DEFAULT TRUE;
16098: l_fa_line_id NUMBER;
16099: l_chr_id OKC_K_LINES_B.dnz_chr_id%TYPE;
16100:
16101: i NUMBER;
16102:
16103: --Bug #2723498: 11.5.9 Split Asset by serial Number enhancement
16133: P_fin_ast_id IN NUMBER) IS
16134: SELECT mtl.serial_number_control_code
16135: FROM mtl_system_items mtl,
16136: okc_k_headers_b CHR,
16137: okc_k_lines_b cle
16138: WHERE mtl.inventory_item_id = PInvItmId
16139: AND mtl.organization_id = CHR.INV_ORGANIZATION_ID
16140: AND CHR.id = cle.chr_id
16141: AND cle.id = P_fin_ast_id;
16164: SELECT cleb.dnz_chr_id,
16165: tasb.date_trans_occurred
16166: FROM okl_trx_assets tasb
16167: ,okl_txl_assets_b txlb
16168: ,okc_k_lines_b cleb
16169: ,okc_line_styles_b lseb
16170: WHERE txlb.tas_id = tasb.id
16171: AND cleb.id = txlb.kle_id
16172: AND cleb.cle_id = p_cle_id
16485:
16486: --Cursor to get the fixed Asset Line Id
16487: CURSOR l_fixedasst_csr (p_finasst_line IN NUMBER) IS
16488: SELECT cle.id fixedasst_line
16489: FROM OKC_K_LINES_B cle,
16490: OKC_LINE_STYLES_B lse
16491: WHERE cle.cle_id = p_finasst_line
16492: AND cle.lse_id = lse.id
16493: AND lse.lty_code = 'FIXED_ASSET';
16491: WHERE cle.cle_id = p_finasst_line
16492: AND cle.lse_id = lse.id
16493: AND lse.lty_code = 'FIXED_ASSET';
16494:
16495: l_fixedasst_line OKC_K_LINES_B.ID%TYPE;
16496:
16497: --Cursor to find kle_id split transaction lines to be cancelled..
16498: CURSOR l_tal_csr(p_fixedasst_line IN NUMBER) IS
16499: SELECT tal.id tal_id,
16507: AND tal.kle_id = p_fixedasst_line;
16508:
16509: l_tas_id OKL_TRX_ASSETS.ID%TYPE;
16510: l_tal_id OKL_TXL_ASSETS_B.ID%TYPE;
16511: l_cle_id OKC_K_LINES_B.ID%TYPE;
16512:
16513: l_tasv_rec okl_trx_assets_pub.thpv_rec_type;
16514: lx_tasv_rec okl_trx_assets_pub.thpv_rec_type;
16515:
16612:
16613: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16614: SELECT cle.id,
16615: cle.dnz_chr_id
16616: FROM OKC_K_LINES_B cle,
16617: OKC_LINE_STYLES_B lse
16618: WHERE cle.cle_id = p_cle_id
16619: AND cle.lse_id = lse.id
16620: AND lse.lty_code = 'FIXED_ASSET';
16623: l_txdv_tbl txdv_tbl_type;
16624:
16625: l_no_data_found BOOLEAN DEFAULT TRUE;
16626: l_fa_line_id NUMBER;
16627: l_chr_id OKC_K_LINES_B.dnz_chr_id%TYPE;
16628:
16629: i NUMBER;
16630:
16631: CURSOR srl_num_csr1 (PTalid IN NUMBER) IS