[Home] [Help]
158: l_valid_asset_flag VARCHAR2(1);
159:
160: cursor l_cle_csr (p_cle_id in number) is
161: select 'Y'
162: from okc_k_lines_b cleb
163: where id = p_cle_id
164: and lse_id = 33;
165:
166: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
318:
319: CURSOR curr_ln_csr (p_line_id OKC_K_HEADERS_B.ID%TYPE) IS
320: SELECT h.currency_code
321: FROM okc_k_headers_b h,
322: okc_k_lines_b l
323: WHERE h.id = l.dnz_chr_id
324: AND l.id = p_line_id;
325:
326: l_conv_amount NUMBER;
323: WHERE h.id = l.dnz_chr_id
324: AND l.id = p_line_id;
325:
326: l_conv_amount NUMBER;
327: l_currency_code OKC_K_LINES_B.CURRENCY_CODE%TYPE;
328:
329:
330: CURSOR l_txd_csr(p_trxline_id IN NUMBER) IS
331: SELECT txd.id,
692: lx_klev_price_tbl klev_tbl_type;
693:
694: CURSOR k_line_curs(p_fa_line_id IN NUMBER) IS
695: SELECT cle.cle_id , sts.ste_code
696: FROM okc_k_lines_b cle , OKC_STATUSES_B sts
697: WHERE id = p_fa_line_id
698: and cle.sts_code = sts.code;
699:
700: l_ste_code OKC_STATUSES_B.STE_CODE%TYPE;
704: p_chr_id in number,
705: p_lty_code in varchar2) is
706: select cleb.id,
707: cleb.price_unit
708: from okc_k_lines_b cleb,
709: okc_line_styles_b lseb
710: where cleb.cle_id = p_cle_id
711: and cleb.dnz_chr_id = p_chr_id
712: and cleb.lse_id = lseb.id
2349: );
2350: cursor l_term_date_csr ( p_kle_id IN NUMBER)
2351: IS
2352: select date_terminated
2353: from okc_k_lines_b
2354: where id=p_kle_id;
2355: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2356: IS
2357: SELECT cle.id id
2351: IS
2352: select date_terminated
2353: from okc_k_lines_b
2354: where id=p_kle_id;
2355: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2356: IS
2357: SELECT cle.id id
2358: FROM okc_k_lines_b cle
2359: CONNECT BY PRIOR cle.id = cle.cle_id
2354: where id=p_kle_id;
2355: CURSOR l_trmnt_line_csr(p_cle_id IN OKC_K_LINES_B.ID%TYPE)
2356: IS
2357: SELECT cle.id id
2358: FROM okc_k_lines_b cle
2359: CONNECT BY PRIOR cle.id = cle.cle_id
2360: START WITH cle.id = p_cle_id;
2361: l_return_needed VARCHAR2(1) := 'Y';
2362: l_asset_return_rec l_asset_return_csr%ROWTYPE;
2836: SELECT 'Y' date_valid,
2837: TO_CHAR(cleb.start_date,pdateformat) line_start_date,
2838: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2839: cleb.sts_code sts_code
2840: FROM okc_k_lines_b cleb
2841: WHERE ptrxdate BETWEEN TRUNC(cleb.start_date) AND TRUNC(cleb.end_date)
2842: AND cleb.id = pcleid;
2843: */
2844: CURSOR l_cleb_csr(pcleid IN NUMBER, pdateformat IN VARCHAR2) IS
2846: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2847: cleb.sts_code sts_code,
2848: trunc(cleb.start_date) cle_start_date,
2849: TRUNC(cleb.end_date) cle_end_date
2850: FROM okc_k_lines_b cleb
2851: WHERE cleb.id = pcleid;
2852: --Bug# 5946411: ER end
2853:
2854: /* --Added by HARIVEN - cursor to fetch the Start and End Date
2856: SELECT 'Y' date_valid,
2857: TO_CHAR(cleb.start_date,pdateformat) line_start_date,
2858: TO_CHAR(cleb.end_date,pdateformat) line_end_date,
2859: cleb.sts_code sts_code
2860: FROM okc_k_lines_b cleb
2861: WHERE cleb.id = pcleid;*/
2862:
2863: l_cleb_rec l_cleb_csr%ROWTYPE;
2864: l_icx_date_format VARCHAR2(240);
3713: --------------------------------------------------------------------------------
3714: FUNCTION verify_cle_id(p_cle_id IN NUMBER) RETURN VARCHAR2 IS
3715: CURSOR Chk_Top_Line(p_cle_id IN NUMBER) IS
3716: SELECT 'Y'
3717: FROM OKC_K_LINES_B cle
3718: WHERE cle.id = p_cle_id
3719: AND EXISTS (SELECT '1'
3720: FROM OKC_LINE_STYLES_B lse
3721: WHERE lse.id = cle.lse_id
4187: mtl.inventory_item_id,
4188: mtl.organization_id
4189: FROM mtl_system_items mtl,
4190: okc_k_items model_cim,
4191: okc_k_lines_b model_cle,
4192: okc_line_styles_b model_lse
4193: WHERE model_cim.object1_id2 = TO_CHAR(mtl.organization_id)
4194: AND model_cim.object1_id1 = mtl.inventory_item_id
4195: AND model_cim.jtot_object1_code = 'OKX_SYSITEM'
4258: p_cle_id IN NUMBER) IS
4259: SELECT mtl.serial_number_control_code
4260: FROM mtl_system_items mtl,
4261: okc_k_headers_b chrb,
4262: okc_k_lines_b cleb
4263: WHERE mtl.inventory_item_id = p_inv_item_id
4264: AND mtl.organization_id = chrb.inv_organization_id
4265: AND chrb.id = cleb.dnz_chr_id
4266: AND cleb.id = p_cle_id;
4689: chrb.inv_organization_id,
4690: txdb.inventory_item_id
4691: FROM mtl_parameters mp,
4692: okc_k_headers_b chrb,
4693: okc_k_lines_b cleb,
4694: okl_txl_Assets_b txlb,
4695: okl_txd_assets_b txdb
4696: WHERE mp.organization_id = chrb.inv_organization_id
4697: AND chrb.id = cleb.dnz_chr_id
4715: csi.instance_number
4716: FROM csi_item_instances csi,
4717: csi_instance_statuses csi_inst_sts,
4718: okc_k_items ib_cim,
4719: okc_k_lines_b ib_cle,
4720: okc_line_styles_b ib_lse,
4721: okc_k_lines_b inst_cle,
4722: okc_line_styles_b inst_lse,
4723: okc_statuses_b inst_sts,
4717: csi_instance_statuses csi_inst_sts,
4718: okc_k_items ib_cim,
4719: okc_k_lines_b ib_cle,
4720: okc_line_styles_b ib_lse,
4721: okc_k_lines_b inst_cle,
4722: okc_line_styles_b inst_lse,
4723: okc_statuses_b inst_sts,
4724: okc_k_lines_b fa_cle,
4725: okc_line_styles_b fa_lse,
4720: okc_line_styles_b ib_lse,
4721: okc_k_lines_b inst_cle,
4722: okc_line_styles_b inst_lse,
4723: okc_statuses_b inst_sts,
4724: okc_k_lines_b fa_cle,
4725: okc_line_styles_b fa_lse,
4726: okl_txl_assets_b txlb
4727: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
4728: AND csi_inst_sts.instance_status_id = csi.instance_status_id
4743: AND fa_cle.lse_id = fa_lse.id
4744: AND fa_lse.lty_code = 'FIXED_ASSET'
4745: AND txlb.id = p_tal_id;
4746:
4747: l_fa_cle_id okc_k_lines_b.id%TYPE;
4748: l_ib_cle_id okc_k_lines_b.id%TYPE;
4749: l_tas_id okl_txl_assets_b.tas_id%TYPE;
4750: l_location_id csi_item_instances.location_id%TYPE;
4751: l_install_location_id csi_item_instances.install_location_id%TYPE;
4744: AND fa_lse.lty_code = 'FIXED_ASSET'
4745: AND txlb.id = p_tal_id;
4746:
4747: l_fa_cle_id okc_k_lines_b.id%TYPE;
4748: l_ib_cle_id okc_k_lines_b.id%TYPE;
4749: l_tas_id okl_txl_assets_b.tas_id%TYPE;
4750: l_location_id csi_item_instances.location_id%TYPE;
4751: l_install_location_id csi_item_instances.install_location_id%TYPE;
4752: --BUG# 3569441
5039: SELECT
5040: COUNT(1)
5041: FROM csi_item_instances csi,
5042: okc_k_items ib_cim,
5043: okc_k_lines_b ib_cle,
5044: okc_line_styles_b ib_lse,
5045: okc_k_lines_b inst_cle,
5046: okc_line_styles_b inst_lse,
5047: okc_statuses_b inst_sts
5041: FROM csi_item_instances csi,
5042: okc_k_items ib_cim,
5043: okc_k_lines_b ib_cle,
5044: okc_line_styles_b ib_lse,
5045: okc_k_lines_b inst_cle,
5046: okc_line_styles_b inst_lse,
5047: okc_statuses_b inst_sts
5048: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5049: AND ib_cim.cle_id = ib_cle.id
5284: --BUG# 3569441
5285: csi.install_location_type_code --hz_party_sites OR hz_loactions
5286: FROM csi_item_instances csi,
5287: okc_k_items ib_cim,
5288: okc_k_lines_b ib_cle,
5289: okc_line_styles_b ib_lse,
5290: okc_k_lines_b inst_cle,
5291: okc_line_styles_b inst_lse,
5292: okc_statuses_b inst_sts
5286: FROM csi_item_instances csi,
5287: okc_k_items ib_cim,
5288: okc_k_lines_b ib_cle,
5289: okc_line_styles_b ib_lse,
5290: okc_k_lines_b inst_cle,
5291: okc_line_styles_b inst_lse,
5292: okc_statuses_b inst_sts
5293: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5294: AND ib_cim.cle_id = ib_cle.id
5327: --BUG# 3569441
5328: csi.install_location_type_code --hz_party_sites OR hz_locations
5329: FROM csi_item_instances csi,
5330: okc_k_items ib_cim,
5331: okc_k_lines_b ib_cle,
5332: okc_line_styles_b ib_lse,
5333: okc_k_lines_b inst_cle,
5334: okc_line_styles_b inst_lse,
5335: okc_statuses_b inst_sts
5329: FROM csi_item_instances csi,
5330: okc_k_items ib_cim,
5331: okc_k_lines_b ib_cle,
5332: okc_line_styles_b ib_lse,
5333: okc_k_lines_b inst_cle,
5334: okc_line_styles_b inst_lse,
5335: okc_statuses_b inst_sts
5336: WHERE csi.instance_id = TO_NUMBER(ib_cim.object1_id1)
5337: AND ib_cim.cle_id = ib_cle.id
5720: CURSOR l_dealtyp_csr(PCleId IN NUMBER) IS
5721: SELECT khr.deal_type
5722: FROM okl_k_headers khr,
5723: okc_k_headers_b chrb,
5724: okc_k_lines_b cleb
5725: WHERE khr.id = chrb.id
5726: AND chrb.id = cleb.dnz_chr_id
5727: AND cleb.id = PCleId;
5728:
5880: khrv.currency_conversion_rate,
5881: khrv.currency_conversion_date,
5882: khrv.start_date
5883: FROM okl_k_headers_full_v khrv,
5884: okc_k_lines_b cle
5885: WHERE khrv.id = cle.dnz_chr_id
5886: AND cle.id = PCleId;
5887:
5888: curr_conv_rec curr_conv_csr%ROWTYPE;
5904: kle.OEC ORIGINAL_COST,
5905: kle.OEC COST,
5906: cle.sts_code LINE_STATUS
5907: FROM okc_k_items cim_fa,
5908: okc_k_lines_b cle_fa,
5909: okc_line_styles_b lse_fa,
5910: okl_k_lines kle,
5911: okc_k_lines_tl clet,
5912: okc_k_lines_b cle
5908: okc_k_lines_b cle_fa,
5909: okc_line_styles_b lse_fa,
5910: okl_k_lines kle,
5911: okc_k_lines_tl clet,
5912: okc_k_lines_b cle
5913: WHERE cim_fa.cle_id = cle_fa.id
5914: AND cle_fa.cle_id = cle.id
5915: AND cle_fa.dnz_chr_id = cle.dnz_chr_id
5916: AND cle_fa.lse_id = lse_fa.id
5934: SELECT '1'
5935: FROM
5936: okc_k_headers_b oks_chrb,
5937: okc_line_styles_b oks_cov_pd_lse,
5938: okc_k_lines_b oks_cov_pd_cleb,
5939: okc_k_rel_objs krel,
5940: okc_line_styles_b lnk_srv_lse,
5941: okc_statuses_b lnk_srv_sts,
5942: okc_k_lines_b lnk_srv_cleb,
5938: okc_k_lines_b oks_cov_pd_cleb,
5939: okc_k_rel_objs krel,
5940: okc_line_styles_b lnk_srv_lse,
5941: okc_statuses_b lnk_srv_sts,
5942: okc_k_lines_b lnk_srv_cleb,
5943: okc_k_items lnk_srv_cim
5944: WHERE oks_chrb.scs_code = 'SERVICE'
5945: AND oks_chrb.id = oks_cov_pd_cleb.dnz_chr_id
5946: AND oks_cov_pd_cleb.lse_id = oks_cov_pd_lse.id
5974:
5975: --Bug# 3783518
5976: CURSOR l_chr_csr(p_cle_id IN NUMBER) IS
5977: SELECT dnz_chr_id
5978: FROM okc_k_lines_b
5979: WHERE id = p_cle_id;
5980:
5981: l_chr_id okc_k_headers_b.id%TYPE;
5982:
5999:
6000:
6001: SELECT NVL(kle.re_lease_yn,'N')
6002: FROM OKC_K_HEADERS_B chr
6003: ,okc_k_lines_b cle
6004: ,okl_k_lines kle
6005: WHERE chr.id = cle.chr_id
6006: and chr.id = cle.dnz_chr_id
6007: and cle.id = kle.id
6857: )
6858: IS
6859: CURSOR l_okl_cle_chr_csr IS
6860: SELECT dnz_chr_id
6861: FROM okc_k_lines_b
6862: WHERE id = p_cle_id;
6863:
6864: l_parameter_list wf_parameter_list_t;
6865: BEGIN
7102: l_api_version CONSTANT NUMBER := 1.0;
7103:
7104: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
7105: SELECT cle.id
7106: FROM OKC_K_LINES_B cle,
7107: OKC_LINE_STYLES_B lse
7108: WHERE cle.cle_id = p_cle_id
7109: AND cle.lse_id = lse.id
7110: AND lse.lty_code = 'FIXED_ASSET'
7811: txd.quantity,
7812: txl.current_units
7813: FROM okl_txd_assets_b txd,
7814: okl_txl_Assets_b txl,
7815: okc_k_lines_b cle,
7816: okc_k_lines_b target_cle
7817: WHERE txl.tal_type = 'ALI'
7818: AND txd.tal_id = txl.id
7819: AND txl.id = p_trxline_id
7812: txl.current_units
7813: FROM okl_txd_assets_b txd,
7814: okl_txl_Assets_b txl,
7815: okc_k_lines_b cle,
7816: okc_k_lines_b target_cle
7817: WHERE txl.tal_type = 'ALI'
7818: AND txd.tal_id = txl.id
7819: AND txl.id = p_trxline_id
7820: AND txl.kle_id <> txd.target_kle_id
7838: txd.quantity,
7839: txl.current_units
7840: FROM okl_txd_assets_b txd,
7841: okl_txl_Assets_b txl,
7842: okc_k_lines_b cle,
7843: okc_k_lines_b target_cle
7844: WHERE txl.tal_type = 'ALI'
7845: AND txd.tal_id = txl.id
7846: AND txl.id = p_trxline_id
7839: txl.current_units
7840: FROM okl_txd_assets_b txd,
7841: okl_txl_Assets_b txl,
7842: okc_k_lines_b cle,
7843: okc_k_lines_b target_cle
7844: WHERE txl.tal_type = 'ALI'
7845: AND txd.tal_id = txl.id
7846: AND txl.id = p_trxline_id
7847: AND txl.kle_id = txd.target_kle_id
7862: SELECT lnk_cle.id,
7863: lnk_target_cle.id,
7864: --Bug 3502142
7865: lnk_target_cle.cle_id
7866: FROM okc_k_lines_b lnk_cle,
7867: okc_k_items lnk_cim,
7868: okc_line_styles_b lnk_lse,
7869: okc_k_lines_b lnk_target_cle,
7870: okc_k_items lnk_target_cim,
7865: lnk_target_cle.cle_id
7866: FROM okc_k_lines_b lnk_cle,
7867: okc_k_items lnk_cim,
7868: okc_line_styles_b lnk_lse,
7869: okc_k_lines_b lnk_target_cle,
7870: okc_k_items lnk_target_cim,
7871: okc_line_styles_b lnk_target_lse
7872: WHERE lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
7873: AND lnk_cim.object1_id2 = '#'
7891: SELECT lnk_cle.id,
7892: lnk_target_cle.id,
7893: --Bug 3502142
7894: lnk_target_cle.cle_id
7895: FROM okc_k_lines_b lnk_cle,
7896: okc_k_items lnk_cim,
7897: okc_line_styles_b lnk_lse,
7898: okc_k_lines_b lnk_target_cle,
7899: okc_k_items lnk_target_cim,
7894: lnk_target_cle.cle_id
7895: FROM okc_k_lines_b lnk_cle,
7896: okc_k_items lnk_cim,
7897: okc_line_styles_b lnk_lse,
7898: okc_k_lines_b lnk_target_cle,
7899: okc_k_items lnk_target_cim,
7900: okc_line_styles_b lnk_target_lse
7901: WHERE lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
7902: AND lnk_cim.object1_id2 = '#'
7916: AND lnk_cle.id = lnk_target_cle.id
7917: AND lnk_cle.dnz_chr_id = lnk_target_cle.dnz_chr_id;
7918:
7919:
7920: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7921: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7922:
7923: -- Bug# 3502142
7924: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7917: AND lnk_cle.dnz_chr_id = lnk_target_cle.dnz_chr_id;
7918:
7919:
7920: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7921: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7922:
7923: -- Bug# 3502142
7924: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7925: --Bug# 6344223
7920: l_lnk_cle_id okc_k_lines_b.id%TYPE;
7921: l_lnk_target_cle_id okc_k_lines_b.id%TYPE;
7922:
7923: -- Bug# 3502142
7924: l_lnk_top_cle_id okc_k_lines_b.id%TYPE;
7925: --Bug# 6344223
7926: l_highest_split_comp_amt VARCHAR2(30);
7927: l_count NUMBER;
7928:
8012:
8013: -- Bug# 3502142: start
8014: CURSOR curr_code_csr(p_kle_id IN NUMBER) IS
8015: SELECT currency_code
8016: FROM okc_k_lines_b
8017: WHERE id = p_kle_id;
8018:
8019: l_currency_code OKC_K_LINES_B.currency_code%type;
8020:
8015: SELECT currency_code
8016: FROM okc_k_lines_b
8017: WHERE id = p_kle_id;
8018:
8019: l_currency_code OKC_K_LINES_B.currency_code%type;
8020:
8021: l_active_yn OKL_STREAMS.ACTIVE_YN%TYPE;
8022:
8023: --Bug# 4775555
8034: txd.quantity,
8035: txl.current_units
8036: FROM okl_txd_assets_b txd,
8037: okl_txl_Assets_b txl,
8038: okc_k_lines_b cle,
8039: okc_k_lines_b target_cle
8040: WHERE txl.tal_type = 'ALI'
8041: AND txd.tal_id = txl.id
8042: AND txl.id = p_trxline_id
8035: txl.current_units
8036: FROM okl_txd_assets_b txd,
8037: okl_txl_Assets_b txl,
8038: okc_k_lines_b cle,
8039: okc_k_lines_b target_cle
8040: WHERE txl.tal_type = 'ALI'
8041: AND txd.tal_id = txl.id
8042: AND txl.id = p_trxline_id
8043: AND txl.kle_id <> txd.target_kle_id
8778: chr_id,
8779: cle_id,
8780: dnz_chr_id,
8781: lse_id
8782: FROM okc_k_lines_b
8783: CONNECT BY PRIOR id = cle_id
8784: START WITH id = p_cle_id;
8785:
8786: CURSOR c_lty_code(p_lse_id IN NUMBER) IS
8820: cleb.currency_code
8821: FROM okc_rules_b rul,
8822: okc_rule_groups_b rgp,
8823: okc_rules_b rul_slh,
8824: okc_k_lines_b cleb
8825: --Bug# : 3124577 - 11.5.10 : Rule Migration
8826: WHERE rul.rule_information_category = 'LASLL'
8827: --where rul.rule_information_category = 'SLL'
8828: AND rul.rgp_id = rgp.id
8861: --Bug# 2881114 - modified cursor
8862: CURSOR l_lnk_asst_cur (p_cle_id IN NUMBER) IS
8863: SELECT cle.cle_id srv_fee_line_id,
8864: cle.id lnk_line_id
8865: FROM OKC_K_LINES_B cle,
8866: OKC_LINE_STYLES_B lse,
8867: OKC_STATUSES_B sts,
8868: OKC_K_ITEMS cim,
8869: OKC_K_LINES_B fin_asst_line
8865: FROM OKC_K_LINES_B cle,
8866: OKC_LINE_STYLES_B lse,
8867: OKC_STATUSES_B sts,
8868: OKC_K_ITEMS cim,
8869: OKC_K_LINES_B fin_asst_line
8870: WHERE cle.lse_id = lse.id
8871: AND lse.lty_code IN ('LINK_FEE_ASSET','LINK_SERV_ASSET','LINK_USAGE_ASSET')
8872: AND cle.dnz_chr_id = fin_asst_line.dnz_chr_id
8873: AND sts.code = cle.sts_code
8879: AND cim.jtot_object1_code = 'OKX_COVASST'
8880: AND cim.dnz_chr_id = fin_asst_line.dnz_chr_id
8881: AND fin_asst_line.id = p_cle_id;
8882:
8883: l_srv_fee_line_id OKC_K_LINES_B.cle_id%TYPE;
8884: l_lnk_line_id OKC_K_LINES_B.id%TYPE;
8885:
8886:
8887: l_level NUMBER;
8880: AND cim.dnz_chr_id = fin_asst_line.dnz_chr_id
8881: AND fin_asst_line.id = p_cle_id;
8882:
8883: l_srv_fee_line_id OKC_K_LINES_B.cle_id%TYPE;
8884: l_lnk_line_id OKC_K_LINES_B.id%TYPE;
8885:
8886:
8887: l_level NUMBER;
8888: l_cle_id NUMBER;
8934: po_vendors pov,
8935: okc_k_party_roles_b cplb,
8936: okl_k_lines kle_sub,
8937: okc_k_lines_tl clet_sub,
8938: okc_k_lines_b cleb_sub,
8939: okc_line_styles_b lseb_sub,
8940: okc_k_lines_tl clet_asst,
8941: okc_k_lines_b cleb_asst
8942: WHERE
8937: okc_k_lines_tl clet_sub,
8938: okc_k_lines_b cleb_sub,
8939: okc_line_styles_b lseb_sub,
8940: okc_k_lines_tl clet_asst,
8941: okc_k_lines_b cleb_asst
8942: WHERE
8943: pov.vendor_id = cplb.object1_id1
8944: AND cplb.object1_id2 = '#'
8945: AND cplb.jtot_object1_code = 'OKX_VENDOR'
8999: ,sid.LAST_UPDATE_DATE
9000: ,sid.LAST_UPDATE_LOGIN
9001: ,cleb_fa.id fixed_asset_cle_id
9002: FROM okl_supp_invoice_dtls sid,
9003: okc_k_lines_b cleb_fa,
9004: okc_line_styles_b lseb_fa,
9005: okc_k_lines_b cleb
9006: WHERE sid.cle_id = cleb.orig_system_id1
9007: AND cleb_fa.cle_id = cleb.cle_id
9001: ,cleb_fa.id fixed_asset_cle_id
9002: FROM okl_supp_invoice_dtls sid,
9003: okc_k_lines_b cleb_fa,
9004: okc_line_styles_b lseb_fa,
9005: okc_k_lines_b cleb
9006: WHERE sid.cle_id = cleb.orig_system_id1
9007: AND cleb_fa.cle_id = cleb.cle_id
9008: AND cleb_fa.dnz_chr_id = cleb.dnz_chr_id
9009: AND lseb_fa.id = cleb_fa.lse_id
9042:
9043: CURSOR l_new_lnk_assts_cur (p_chr_id IN NUMBER,
9044: p_cle_id IN NUMBER) IS
9045: SELECT cle.id
9046: FROM OKC_K_LINES_B cle
9047: WHERE cle.dnz_chr_id = p_chr_id
9048: AND cle.orig_system_id1 = p_cle_id;
9049:
9050: l_target_kle_id NUMBER;
9051:
9052: CURSOR l_fa_line_csr(p_chr_id IN NUMBER,
9053: p_cle_id IN NUMBER) IS
9054: SELECT cle.id
9055: FROM okc_k_lines_b cle,
9056: okc_line_styles_b lse
9057: WHERE cle.cle_id = p_cle_id
9058: AND cle.dnz_chr_id = p_chr_id
9059: AND cle.lse_id = lse.id
9062: -- Bug# 5946411: ER
9063: --cursor to check the status of asset
9064: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
9065: SELECT cleb.sts_code sts_code
9066: FROM okc_k_lines_b cleb
9067: WHERE cleb.id = pcleid;
9068: l_cle_status okc_k_lines_b.sts_code%TYPE;
9069: -- Bug# 5946411: ER End
9070:
9064: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
9065: SELECT cleb.sts_code sts_code
9066: FROM okc_k_lines_b cleb
9067: WHERE cleb.id = pcleid;
9068: l_cle_status okc_k_lines_b.sts_code%TYPE;
9069: -- Bug# 5946411: ER End
9070:
9071: --Bug# 6344223 : Start
9072: l_fa_line_id NUMBER;
10596: chr_id,
10597: cle_id,
10598: dnz_chr_id,
10599: lse_id
10600: FROM okc_k_lines_b
10601: CONNECT BY PRIOR id = cle_id
10602: START WITH id = p_cle_id;
10603:
10604: c_lines_rec c_lines_cur%ROWTYPE;
10608: --Bug#3066375 :
10609: --Cursor to fetch linked asset lines for parent asset being abandoned
10610: CURSOR l_lnk_asst_csr (p_cle_id IN NUMBER) IS
10611: SELECT lnk_cleb.id lnk_cle_id
10612: FROM okc_k_lines_b lnk_cleb,
10613: okc_line_styles_b lnk_lseb,
10614: okc_statuses_b lnk_stsb,
10615: okc_k_items lnk_cim
10616: WHERE lnk_cleb.id = lnk_cim.cle_id
10623: AND lnk_cim.object1_id1 = TO_CHAR(p_cle_id)
10624: AND lnk_cim.object1_id2 = '#'
10625: AND lnk_cim.jtot_object1_code = 'OKX_COVASST';
10626:
10627: l_lnk_cle_id okc_k_lines_b.id%TYPE;
10628: l_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10629: lx_lnk_clev_rec okl_okc_migration_pvt.clev_rec_type;
10630:
10631: BEGIN
10749: l_sts_code Varchar2(30);
10750: l_deal_type Varchar2(30);
10751: l_pdt_id Number;
10752: l_start_date Date;
10753: l_asset_status okc_k_lines_b.sts_code%TYPE;
10754: l_chr_id NUMBER;
10755: l_amortization_date DATE;
10756: l_special_treatment_required VARCHAR2(1);
10757: l_pdt_date DATE;
11147: SELECT cleb.sts_code sts_code,
11148: cleb.dnz_chr_id chr_id,
11149: khr.PDT_ID,
11150: chr.START_DATE
11151: FROM okc_k_lines_b cleb,
11152: okl_k_headers khr,
11153: OKC_K_HEADERS_B chr
11154: WHERE cleb.id = pcleid
11155: and khr.id = cleb.dnz_chr_id
11153: OKC_K_HEADERS_B chr
11154: WHERE cleb.id = pcleid
11155: and khr.id = cleb.dnz_chr_id
11156: and chr.id = khr.id;
11157: l_cle_status okc_k_lines_b.sts_code%TYPE;
11158: --cursor to find book class
11159: CURSOR l_book_class_cur(p_book_type_code IN VARCHAR2) IS
11160: SELECT book_class
11161: FROM okx_asst_bk_controls_v
12339: -- Bug# 5946411: ER
12340: --cursor to check the status of asset
12341: /* CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12342: SELECT cleb.sts_code sts_code,cleb.dnz_chr_id chr_id
12343: FROM okc_k_lines_b cleb
12344: WHERE cleb.id = pcleid;
12345: l_cle_status okc_k_lines_b.sts_code%TYPE; */
12346: -- Bug# 6061103
12347: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12341: /* CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12342: SELECT cleb.sts_code sts_code,cleb.dnz_chr_id chr_id
12343: FROM okc_k_lines_b cleb
12344: WHERE cleb.id = pcleid;
12345: l_cle_status okc_k_lines_b.sts_code%TYPE; */
12346: -- Bug# 6061103
12347: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
12348: SELECT cleb.sts_code sts_code,
12349: cleb.dnz_chr_id chr_id,
12348: SELECT cleb.sts_code sts_code,
12349: cleb.dnz_chr_id chr_id,
12350: khr.PDT_ID,
12351: chr.START_DATE
12352: FROM okc_k_lines_b cleb,
12353: okl_k_headers khr,
12354: OKC_K_HEADERS_B chr
12355: WHERE cleb.id = pcleid
12356: and khr.id = cleb.dnz_chr_id
12354: OKC_K_HEADERS_B chr
12355: WHERE cleb.id = pcleid
12356: and khr.id = cleb.dnz_chr_id
12357: and chr.id = khr.id;
12358: l_cle_status okc_k_lines_b.sts_code%TYPE;
12359:
12360: --cursor to get the amortization date
12361: cursor l_max_amortize_date_csr (p_asset_id IN NUMBER,p_book_type_code IN VARCHAR2) is
12362: select max(th.amortization_start_date) amortization_start_date
13089: l_return_status VARCHAR2(1) DEFAULT OKL_API.G_RET_STS_SUCCESS;
13090: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13091: l_api_version CONSTANT NUMBER := 1.0;
13092:
13093: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13094: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13095:
13096: l_inst_clev_rec okc_contract_pub.clev_rec_type;
13097: l_ib_clev_rec okc_contract_pub.clev_rec_type;
13090: l_api_name CONSTANT VARCHAR2(30) := 'DELETE_INSTANCE_LINES';
13091: l_api_version CONSTANT NUMBER := 1.0;
13092:
13093: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13094: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13095:
13096: l_inst_clev_rec okc_contract_pub.clev_rec_type;
13097: l_ib_clev_rec okc_contract_pub.clev_rec_type;
13098: lx_inst_clev_rec okc_contract_pub.clev_rec_type;
13355: SELECT inst_cle.id inst_cle_id,
13356: ib_cle.id ib_cle_id
13357: FROM
13358: okc_k_items ib_cim,
13359: okc_k_lines_b ib_cle,
13360: okc_line_styles_b ib_lse,
13361: okc_k_lines_b inst_cle,
13362: okc_line_styles_b inst_lse,
13363: okc_k_lines_b fa_cle,
13357: FROM
13358: okc_k_items ib_cim,
13359: okc_k_lines_b ib_cle,
13360: okc_line_styles_b ib_lse,
13361: okc_k_lines_b inst_cle,
13362: okc_line_styles_b inst_lse,
13363: okc_k_lines_b fa_cle,
13364: okc_line_styles_b fa_lse,
13365: okl_txl_Assets_b tal
13359: okc_k_lines_b ib_cle,
13360: okc_line_styles_b ib_lse,
13361: okc_k_lines_b inst_cle,
13362: okc_line_styles_b inst_lse,
13363: okc_k_lines_b fa_cle,
13364: okc_line_styles_b fa_lse,
13365: okl_txl_Assets_b tal
13366: WHERE ib_cim.object1_id1 = TO_CHAR(PInstanceId)
13367: AND ib_cim.object1_id2 = '#'
13381: AND fa_cle.lse_id = fa_lse.id
13382: AND fa_lse.lty_code = 'FIXED_ASSET'
13383: AND tal.id = PTalId;
13384:
13385: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13386: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13387:
13388: --Cursors for Split asset components which are serialized
13389: CURSOR get_instance_cle_csr2 (PTarget_kle_id IN NUMBER, PChrId IN NUMBER) IS
13382: AND fa_lse.lty_code = 'FIXED_ASSET'
13383: AND tal.id = PTalId;
13384:
13385: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
13386: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
13387:
13388: --Cursors for Split asset components which are serialized
13389: CURSOR get_instance_cle_csr2 (PTarget_kle_id IN NUMBER, PChrId IN NUMBER) IS
13390: SELECT inst_cle.id inst_cle_id,
13390: SELECT inst_cle.id inst_cle_id,
13391: ib_cim.id ib_cim_id
13392: FROM
13393: okc_k_items ib_cim,
13394: okc_k_lines_b ib_cle,
13395: okc_line_styles_b ib_lse,
13396: okc_k_lines_b inst_cle,
13397: okc_line_styles_b inst_lse,
13398: okc_k_lines_b fa_cle,
13392: FROM
13393: okc_k_items ib_cim,
13394: okc_k_lines_b ib_cle,
13395: okc_line_styles_b ib_lse,
13396: okc_k_lines_b inst_cle,
13397: okc_line_styles_b inst_lse,
13398: okc_k_lines_b fa_cle,
13399: okc_line_styles_b fa_lse
13400: WHERE
13394: okc_k_lines_b ib_cle,
13395: okc_line_styles_b ib_lse,
13396: okc_k_lines_b inst_cle,
13397: okc_line_styles_b inst_lse,
13398: okc_k_lines_b fa_cle,
13399: okc_line_styles_b fa_lse
13400: WHERE
13401: ib_cim.cle_id = ib_cle.id
13402: AND ib_cim.dnz_chr_id = ib_cle.dnz_chr_id
14046: cim_model.object1_id2,
14047: cle_fa.dnz_chr_id,
14048: cle_fa.cle_id
14049: FROM okc_k_items cim_model,
14050: okc_k_lines_b cle_model,
14051: okc_line_styles_b lse_model,
14052: okc_k_lines_b cle_fa
14053: WHERE cim_model.dnz_chr_id = cle_model.dnz_chr_id
14054: AND cim_model.cle_id = cle_model.id
14048: cle_fa.cle_id
14049: FROM okc_k_items cim_model,
14050: okc_k_lines_b cle_model,
14051: okc_line_styles_b lse_model,
14052: okc_k_lines_b cle_fa
14053: WHERE cim_model.dnz_chr_id = cle_model.dnz_chr_id
14054: AND cim_model.cle_id = cle_model.id
14055: AND cle_model.lse_id = lse_model.id
14056: AND lse_model.lty_code = 'ITEM'
14069: --Cursor to fetch ib instances
14070: CURSOR ib_inst_csr(p_fin_ast_id IN NUMBER) IS
14071: SELECT cle_ib.id,
14072: cle_inst.id
14073: FROM okc_k_lines_b cle_ib,
14074: okc_line_styles_b lse_ib,
14075: okc_k_lines_b cle_inst,
14076: okc_line_styles_b lse_inst
14077: WHERE cle_ib.lse_id = lse_ib.id
14071: SELECT cle_ib.id,
14072: cle_inst.id
14073: FROM okc_k_lines_b cle_ib,
14074: okc_line_styles_b lse_ib,
14075: okc_k_lines_b cle_inst,
14076: okc_line_styles_b lse_inst
14077: WHERE cle_ib.lse_id = lse_ib.id
14078: AND lse_ib.lty_code = 'INST_ITEM'
14079: AND cle_ib.dnz_chr_id = cle_inst.dnz_chr_id
14081: AND cle_inst.lse_id = lse_inst.id
14082: AND lse_inst.lty_code = 'FREE_FORM2'
14083: AND cle_inst.cle_id = p_fin_ast_id;
14084:
14085: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14086: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14087:
14088: --Cursor to fetch new ib instance lines
14089: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14082: AND lse_inst.lty_code = 'FREE_FORM2'
14083: AND cle_inst.cle_id = p_fin_ast_id;
14084:
14085: l_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14086: l_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14087:
14088: --Cursor to fetch new ib instance lines
14089: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14090: CURSOR new_ib_inst_csr(p_txd_id IN NUMBER) IS
14089: --Cursor ib_inst_csr(p_fin_ast_id IN NUMBER) is
14090: CURSOR new_ib_inst_csr(p_txd_id IN NUMBER) IS
14091: SELECT cle_ib.id,
14092: cle_inst.id
14093: FROM okc_k_lines_b cle_ib,
14094: okc_line_styles_b lse_ib,
14095: okc_k_lines_b cle_inst,
14096: okc_line_styles_b lse_inst,
14097: okc_k_lines_b cle_fa,
14091: SELECT cle_ib.id,
14092: cle_inst.id
14093: FROM okc_k_lines_b cle_ib,
14094: okc_line_styles_b lse_ib,
14095: okc_k_lines_b cle_inst,
14096: okc_line_styles_b lse_inst,
14097: okc_k_lines_b cle_fa,
14098: okl_txd_assets_b txdb
14099: WHERE cle_ib.lse_id = lse_ib.id
14093: FROM okc_k_lines_b cle_ib,
14094: okc_line_styles_b lse_ib,
14095: okc_k_lines_b cle_inst,
14096: okc_line_styles_b lse_inst,
14097: okc_k_lines_b cle_fa,
14098: okl_txd_assets_b txdb
14099: WHERE cle_ib.lse_id = lse_ib.id
14100: AND lse_ib.lty_code = 'INST_ITEM'
14101: AND cle_ib.dnz_chr_id = cle_inst.dnz_chr_id
14105: AND cle_inst.cle_id = cle_fa.cle_id
14106: AND cle_fa.id = txdb.target_kle_id
14107: AND txdb.id = p_txd_id;
14108:
14109: l_tgt_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14110: l_tgt_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14111:
14112:
14113: --cursor to fetch child asset top line is
14106: AND cle_fa.id = txdb.target_kle_id
14107: AND txdb.id = p_txd_id;
14108:
14109: l_tgt_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14110: l_tgt_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14111:
14112:
14113: --cursor to fetch child asset top line is
14114: CURSOR child_cle_csr(p_txd_id IN NUMBER) IS
14112:
14113: --cursor to fetch child asset top line is
14114: CURSOR child_cle_csr(p_txd_id IN NUMBER) IS
14115: SELECT cle_fa.cle_id
14116: FROM okc_k_lines_b cle_fa,
14117: okl_txd_assets_b txdb
14118: WHERE cle_fa.id = txdb.target_kle_id
14119: AND txdb.id = p_txd_id;
14120:
14117: okl_txd_assets_b txdb
14118: WHERE cle_fa.id = txdb.target_kle_id
14119: AND txdb.id = p_txd_id;
14120:
14121: l_target_cle_id OKC_K_LINES_B.ID%TYPE;
14122: l_new_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14123:
14124: --cursor to fetch the newly created ib line
14125: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14118: WHERE cle_fa.id = txdb.target_kle_id
14119: AND txdb.id = p_txd_id;
14120:
14121: l_target_cle_id OKC_K_LINES_B.ID%TYPE;
14122: l_new_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14123:
14124: --cursor to fetch the newly created ib line
14125: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14126: SELECT id
14123:
14124: --cursor to fetch the newly created ib line
14125: CURSOR new_ib_csr(p_new_inst_id IN NUMBER) IS
14126: SELECT id
14127: FROM okc_k_lines_b cle_new_ib
14128: WHERE cle_new_ib.cle_id = p_new_inst_id;
14129:
14130: l_new_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14131:
14126: SELECT id
14127: FROM okc_k_lines_b cle_new_ib
14128: WHERE cle_new_ib.cle_id = p_new_inst_id;
14129:
14130: l_new_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14131:
14132: --table of line records for updating statuses of the new lines
14133: l_clev_tbl OKL_OKC_MIGRATION_PVT.clev_tbl_type;
14134: lx_clev_tbl OKL_OKC_MIGRATION_PVT.clev_tbl_type;
14137: -- Bug# 5946411: ER
14138: --cursor to check the status of asset
14139: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
14140: SELECT cleb.sts_code sts_code
14141: FROM okc_k_lines_b cleb
14142: WHERE cleb.id = pcleid;
14143: l_cle_status okc_k_lines_b.sts_code%TYPE;
14144: -- Bug# 5946411: ER End
14145: BEGIN
14139: CURSOR l_cleb_sts_csr(pcleid IN NUMBER) IS
14140: SELECT cleb.sts_code sts_code
14141: FROM okc_k_lines_b cleb
14142: WHERE cleb.id = pcleid;
14143: l_cle_status okc_k_lines_b.sts_code%TYPE;
14144: -- Bug# 5946411: ER End
14145: BEGIN
14146: x_return_status := OKL_API.G_RET_STS_SUCCESS;
14147: -- Call start_activity to create savepoint, check compatibility
14365:
14366: --cursor to fetch top line id for a fixed asset line
14367: CURSOR l_cleb_csr (p_cle_id IN NUMBER) IS
14368: SELECT cleb.cle_id
14369: FROM okc_k_lines_b cleb
14370: WHERE cleb.id = p_cle_id;
14371:
14372: l_parent_fina_cle_id NUMBER DEFAULT NULL;
14373: l_child_fina_cle_id NUMBER DEFAULT NULL;
14383:
14384: --cursor to fetch Inastance line id
14385: CURSOR l_instcle_csr(p_cle_id IN NUMBER) IS
14386: SELECT cleb.id
14387: FROM okc_k_lines_b cleb,
14388: okc_line_styles_b lseb
14389: WHERE lseb.id = cleb.lse_id
14390: AND lseb.lty_code = 'FREE_FORM2'
14391: AND cleb.sts_code <> 'ABANDONED'
14697: dnz_chr_id,
14698: --Bug# 6373605 start
14699: sts_code
14700: --Bug# 6373605 end
14701: FROM okc_k_lines_b
14702: WHERE id = p_fa_line_id;
14703:
14704: l_source_cle_id NUMBER;
14705: l_chr_id NUMBER;
14704: l_source_cle_id NUMBER;
14705: l_chr_id NUMBER;
14706: i NUMBER;
14707: --Bug# 6373605 start
14708: l_sts_code okc_k_lines_b.STS_CODE%TYPE;
14709: --Bug# 6373605 end
14710:
14711: l_txdv_rec txdv_rec_type;
14712: l_txlv_rec txlv_rec_type;
14739: cim.id,
14740: cim.cle_id,
14741: cim.dnz_chr_id
14742: FROM OKC_K_ITEMS cim,
14743: OKC_K_LINES_B inst_item,
14744: OKC_LINE_STYLES_B inst_item_lse,
14745: OKC_K_LINES_B f_frm2,
14746: OKC_LINE_STYLES_B f_frm2_lse,
14747: OKC_K_LINES_B fa
14741: cim.dnz_chr_id
14742: FROM OKC_K_ITEMS cim,
14743: OKC_K_LINES_B inst_item,
14744: OKC_LINE_STYLES_B inst_item_lse,
14745: OKC_K_LINES_B f_frm2,
14746: OKC_LINE_STYLES_B f_frm2_lse,
14747: OKC_K_LINES_B fa
14748: WHERE cim.cle_id = inst_item.id
14749: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14743: OKC_K_LINES_B inst_item,
14744: OKC_LINE_STYLES_B inst_item_lse,
14745: OKC_K_LINES_B f_frm2,
14746: OKC_LINE_STYLES_B f_frm2_lse,
14747: OKC_K_LINES_B fa
14748: WHERE cim.cle_id = inst_item.id
14749: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14750: AND inst_item.cle_id = f_frm2.id
14751: AND inst_item.lse_id = inst_item_lse.id
14836: CURSOR get_dup_inst_csr (p_asd_id IN NUMBER) IS
14837: SELECT f_frm2.id instance_id,
14838: inst_item.id ib_line_id
14839: FROM OKC_K_ITEMS cim,
14840: OKC_K_LINES_B inst_item,
14841: OKC_LINE_STYLES_B inst_item_lse,
14842: OKC_K_LINES_B f_frm2,
14843: OKC_LINE_STYLES_B f_frm2_lse,
14844: OKC_K_LINES_B fa,
14838: inst_item.id ib_line_id
14839: FROM OKC_K_ITEMS cim,
14840: OKC_K_LINES_B inst_item,
14841: OKC_LINE_STYLES_B inst_item_lse,
14842: OKC_K_LINES_B f_frm2,
14843: OKC_LINE_STYLES_B f_frm2_lse,
14844: OKC_K_LINES_B fa,
14845: OKL_TXD_ASSETS_B asd
14846: WHERE cim.cle_id = inst_item.id
14840: OKC_K_LINES_B inst_item,
14841: OKC_LINE_STYLES_B inst_item_lse,
14842: OKC_K_LINES_B f_frm2,
14843: OKC_LINE_STYLES_B f_frm2_lse,
14844: OKC_K_LINES_B fa,
14845: OKL_TXD_ASSETS_B asd
14846: WHERE cim.cle_id = inst_item.id
14847: AND cim.dnz_chr_id = inst_item.dnz_chr_id
14848: AND inst_item.cle_id = f_frm2.id
14854: AND fa.id = asd.target_kle_id
14855: AND asd.id = p_asd_id
14856: AND EXISTS (SELECT NULL
14857: FROM OKC_K_ITEMS cim_p,
14858: OKC_K_LINES_B inst_item_p,
14859: OKC_LINE_STYLES_B inst_item_lse_p,
14860: OKC_K_LINES_B f_frm2_p,
14861: OKC_LINE_STYLES_B f_frm2_lse_p,
14862: OKC_K_LINES_B fa_p,
14856: AND EXISTS (SELECT NULL
14857: FROM OKC_K_ITEMS cim_p,
14858: OKC_K_LINES_B inst_item_p,
14859: OKC_LINE_STYLES_B inst_item_lse_p,
14860: OKC_K_LINES_B f_frm2_p,
14861: OKC_LINE_STYLES_B f_frm2_lse_p,
14862: OKC_K_LINES_B fa_p,
14863: OKL_TXL_ASSETS_B tal
14864: WHERE cim_p.object1_id1 = cim.object1_id1
14858: OKC_K_LINES_B inst_item_p,
14859: OKC_LINE_STYLES_B inst_item_lse_p,
14860: OKC_K_LINES_B f_frm2_p,
14861: OKC_LINE_STYLES_B f_frm2_lse_p,
14862: OKC_K_LINES_B fa_p,
14863: OKL_TXL_ASSETS_B tal
14864: WHERE cim_p.object1_id1 = cim.object1_id1
14865: AND cim_p.object1_id2 = cim.object1_id2
14866: AND cim_p.jtot_object1_code = cim.jtot_object1_code
14876: AND fa_p.id = tal.kle_id
14877: AND tal.id = asd.tal_id
14878: );
14879:
14880: l_dup_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14881: l_dup_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14882:
14883: --Bug# : cursor to check if split is called by asset level termination process
14884: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14877: AND tal.id = asd.tal_id
14878: );
14879:
14880: l_dup_inst_cle_id OKC_K_LINES_B.ID%TYPE;
14881: l_dup_ib_cle_id OKC_K_LINES_B.ID%TYPE;
14882:
14883: --Bug# : cursor to check if split is called by asset level termination process
14884: CURSOR asset_trmn_csr(pcleid IN NUMBER) IS
14885: SELECT '!'
16167:
16168: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16169: SELECT cle.id,
16170: cle.dnz_chr_id
16171: FROM OKC_K_LINES_B cle,
16172: OKC_LINE_STYLES_B lse
16173: WHERE cle.cle_id = p_cle_id
16174: AND cle.lse_id = lse.id
16175: AND lse.lty_code = 'FIXED_ASSET'
16187: l_txdv_tbl txdv_tbl_type;
16188:
16189: l_no_data_found BOOLEAN DEFAULT TRUE;
16190: l_fa_line_id NUMBER;
16191: l_chr_id OKC_K_LINES_B.dnz_chr_id%TYPE;
16192:
16193: i NUMBER;
16194:
16195: --Bug #2723498: 11.5.9 Split Asset by serial Number enhancement
16225: P_fin_ast_id IN NUMBER) IS
16226: SELECT mtl.serial_number_control_code
16227: FROM mtl_system_items mtl,
16228: okc_k_headers_b CHR,
16229: okc_k_lines_b cle
16230: WHERE mtl.inventory_item_id = PInvItmId
16231: AND mtl.organization_id = CHR.INV_ORGANIZATION_ID
16232: AND CHR.id = cle.chr_id
16233: AND cle.id = P_fin_ast_id;
16256: SELECT cleb.dnz_chr_id,
16257: tasb.date_trans_occurred
16258: FROM okl_trx_assets tasb
16259: ,okl_txl_assets_b txlb
16260: ,okc_k_lines_b cleb
16261: ,okc_line_styles_b lseb
16262: WHERE txlb.tas_id = tasb.id
16263: AND cleb.id = txlb.kle_id
16264: AND cleb.cle_id = p_cle_id
16577:
16578: --Cursor to get the fixed Asset Line Id
16579: CURSOR l_fixedasst_csr (p_finasst_line IN NUMBER) IS
16580: SELECT cle.id fixedasst_line
16581: FROM OKC_K_LINES_B cle,
16582: OKC_LINE_STYLES_B lse
16583: WHERE cle.cle_id = p_finasst_line
16584: AND cle.lse_id = lse.id
16585: AND lse.lty_code = 'FIXED_ASSET';
16583: WHERE cle.cle_id = p_finasst_line
16584: AND cle.lse_id = lse.id
16585: AND lse.lty_code = 'FIXED_ASSET';
16586:
16587: l_fixedasst_line OKC_K_LINES_B.ID%TYPE;
16588:
16589: --Cursor to find kle_id split transaction lines to be cancelled..
16590: CURSOR l_tal_csr(p_fixedasst_line IN NUMBER) IS
16591: SELECT tal.id tal_id,
16599: AND tal.kle_id = p_fixedasst_line;
16600:
16601: l_tas_id OKL_TRX_ASSETS.ID%TYPE;
16602: l_tal_id OKL_TXL_ASSETS_B.ID%TYPE;
16603: l_cle_id OKC_K_LINES_B.ID%TYPE;
16604:
16605: l_tasv_rec okl_trx_assets_pub.thpv_rec_type;
16606: lx_tasv_rec okl_trx_assets_pub.thpv_rec_type;
16607:
16704:
16705: CURSOR fa_line_csr(p_cle_id IN NUMBER) IS
16706: SELECT cle.id,
16707: cle.dnz_chr_id
16708: FROM OKC_K_LINES_B cle,
16709: OKC_LINE_STYLES_B lse
16710: WHERE cle.cle_id = p_cle_id
16711: AND cle.lse_id = lse.id
16712: AND lse.lty_code = 'FIXED_ASSET';
16715: l_txdv_tbl txdv_tbl_type;
16716:
16717: l_no_data_found BOOLEAN DEFAULT TRUE;
16718: l_fa_line_id NUMBER;
16719: l_chr_id OKC_K_LINES_B.dnz_chr_id%TYPE;
16720:
16721: i NUMBER;
16722:
16723: CURSOR srl_num_csr1 (PTalid IN NUMBER) IS