1661: l_oec,
1662: l_capital_amount,
1663: l_chr_id
1664: From
1665: okc_k_lines_b cleb_fa,
1666: okc_k_lines_b cleb_fin,
1667: okl_k_lines kle_fin
1668: where
1669: cleb_fa.id = p_fa_cle_id
1662: l_capital_amount,
1663: l_chr_id
1664: From
1665: okc_k_lines_b cleb_fa,
1666: okc_k_lines_b cleb_fin,
1667: okl_k_lines kle_fin
1668: where
1669: cleb_fa.id = p_fa_cle_id
1670: and cleb_fin.id = cleb_fa.cle_id
1770:
1771: --Cursor to get FA line id of original contract
1772: Cursor orig_fa_cle_csr(fa_cle_id IN NUMBER) is
1773: Select orig_system_id1
1774: From okc_k_lines_b
1775: where id = fa_cle_id;
1776:
1777: --cursor to get Cap fees added during Re-book for the asset
1778: Cursor cap_fee_csr(fa_cle_id in number
1779: ,rbk_chr_id in number) IS
1780: Select nvl(sum(cov_ast_kle.capital_amount),0) capitalized_fee
1781: From
1782: OKL_K_LINES fee_kle,
1783: OKC_K_LINES_B fee_cle,
1784: OKC_STATUSES_B fee_sts,
1785: OKL_K_LINES cov_ast_kle,
1786: OKC_K_LINES_B cov_ast_cle,
1787: OKC_LINE_STYLES_B cov_ast_lse,
1782: OKL_K_LINES fee_kle,
1783: OKC_K_LINES_B fee_cle,
1784: OKC_STATUSES_B fee_sts,
1785: OKL_K_LINES cov_ast_kle,
1786: OKC_K_LINES_B cov_ast_cle,
1787: OKC_LINE_STYLES_B cov_ast_lse,
1788: OKC_STATUSES_B cov_ast_sts,
1789: OKC_K_ITEMS cov_ast_cim,
1790: OKC_K_LINES_B fa_cle,
1786: OKC_K_LINES_B cov_ast_cle,
1787: OKC_LINE_STYLES_B cov_ast_lse,
1788: OKC_STATUSES_B cov_ast_sts,
1789: OKC_K_ITEMS cov_ast_cim,
1790: OKC_K_LINES_B fa_cle,
1791: OKC_K_LINES_B src_cle
1792: Where fee_kle.id = fee_cle.id
1793: and fee_kle.fee_type = 'CAPITALIZED'
1794: and fee_cle.id = cov_ast_cle.cle_id
1787: OKC_LINE_STYLES_B cov_ast_lse,
1788: OKC_STATUSES_B cov_ast_sts,
1789: OKC_K_ITEMS cov_ast_cim,
1790: OKC_K_LINES_B fa_cle,
1791: OKC_K_LINES_B src_cle
1792: Where fee_kle.id = fee_cle.id
1793: and fee_kle.fee_type = 'CAPITALIZED'
1794: and fee_cle.id = cov_ast_cle.cle_id
1795: and fee_cle.dnz_chr_id = cov_ast_cle.dnz_chr_id
1916: CURSOR exp_act_csr (p_kle_id IN NUMBER) IS
1917: SELECT msi.expense_account
1918: FROM MTL_SYSTEM_ITEMS msi,
1919: OKC_K_ITEMS cim,
1920: OKC_K_LINES_B mdl,
1921: OKC_K_LINES_B fal
1922: WHERE cim.object1_id1 = msi.inventory_item_id
1923: AND cim.object1_id2 = to_char(msi.organization_id)
1924: AND cim.jtot_object1_code = 'OKX_SYSITEM'
1917: SELECT msi.expense_account
1918: FROM MTL_SYSTEM_ITEMS msi,
1919: OKC_K_ITEMS cim,
1920: OKC_K_LINES_B mdl,
1921: OKC_K_LINES_B fal
1922: WHERE cim.object1_id1 = msi.inventory_item_id
1923: AND cim.object1_id2 = to_char(msi.organization_id)
1924: AND cim.jtot_object1_code = 'OKX_SYSITEM'
1925: AND cim.dnz_chr_id = mdl.dnz_chr_id
4645: --Bug# 4899328
4646: Cursor fa_line_csr(p_chrv_id IN Number) is
4647: SELECT cle.id,
4648: cle.cle_id
4649: from okc_k_lines_b cle,
4650: okc_statuses_b sts
4651: where cle.lse_id = G_FA_LINE_LTY_ID
4652: and cle.dnz_chr_id = p_chrv_id
4653: and cle.sts_code = sts.code
4686:
4687: --Bug# 3574232
4688: l_adjust_asset_to_zero varchar2(30);
4689:
4690: TYPE fa_line_id_tbl is table of okc_k_lines_b.id%TYPE INDEX BY BINARY_INTEGER;
4691: l_fa_line_id_tbl fa_line_id_tbl;
4692:
4693: TYPE fin_ast_line_id_tbl is table of okc_k_lines_b.cle_id%TYPE INDEX BY BINARY_INTEGER;
4694: l_fin_ast_line_id_tbl fin_ast_line_id_tbl;
4689:
4690: TYPE fa_line_id_tbl is table of okc_k_lines_b.id%TYPE INDEX BY BINARY_INTEGER;
4691: l_fa_line_id_tbl fa_line_id_tbl;
4692:
4693: TYPE fin_ast_line_id_tbl is table of okc_k_lines_b.cle_id%TYPE INDEX BY BINARY_INTEGER;
4694: l_fin_ast_line_id_tbl fin_ast_line_id_tbl;
4695:
4696: TYPE fin_asst_rec_type IS RECORD (
4697: fa_line_id OKC_K_LINES_B.id%TYPE ,
4693: TYPE fin_ast_line_id_tbl is table of okc_k_lines_b.cle_id%TYPE INDEX BY BINARY_INTEGER;
4694: l_fin_ast_line_id_tbl fin_ast_line_id_tbl;
4695:
4696: TYPE fin_asst_rec_type IS RECORD (
4697: fa_line_id OKC_K_LINES_B.id%TYPE ,
4698: fin_ast_line_id OKC_K_LINES_B.cle_id %TYPE);
4699:
4700: TYPE fin_asst_tbl_type IS TABLE OF fin_asst_rec_type INDEX BY BINARY_INTEGER;
4701: l_fin_asst_tbl fin_asst_tbl_type;
4694: l_fin_ast_line_id_tbl fin_ast_line_id_tbl;
4695:
4696: TYPE fin_asst_rec_type IS RECORD (
4697: fa_line_id OKC_K_LINES_B.id%TYPE ,
4698: fin_ast_line_id OKC_K_LINES_B.cle_id %TYPE);
4699:
4700: TYPE fin_asst_tbl_type IS TABLE OF fin_asst_rec_type INDEX BY BINARY_INTEGER;
4701: l_fin_asst_tbl fin_asst_tbl_type;
4702: l_counter NUMBER;
5122: --akrangan bug# 5362977 end
5123: --Bug# 6373605 start
5124: OKL_TRX_ASSETS tas,
5125: --Bug# 6373605 end
5126: OKC_K_LINES_B cle,
5127: OKC_LINE_STYLES_B lse
5128: WHERE txl.kle_id = cle.id
5129: --Bug# 6373605 start
5130: AND tas.id = txl.tas_id
5179: OKL_TXL_ASSETS_B txl,
5180: --Bug# 6373605 start
5181: OKL_TRX_ASSETS tas,
5182: --Bug# 6373605 end
5183: OKC_K_LINES_B cle,
5184: OKC_LINE_STYLES_B lse
5185: WHERE txd.tal_id = txl.id
5186: --Bug# 6373605 start
5187: AND tas.id = txl.tas_id
5229: p_asset_id1 IN VARCHAR2,
5230: p_asset_id2 IN VARCHAR2,
5231: p_effective_date IN DATE) IS
5232: Select '!'
5233: from OKC_K_LINES_B cle,
5234: OKC_STATUSES_B sts,
5235: OKC_K_ITEMS cim
5236: Where cle.sts_code = sts.CODE
5237: And cle.id = cim.cle_id
5258: fa_cle.id new_fa_cle_id,
5259: clev.chr_id orig_chr_id
5260: From okc_k_lines_v clev,
5261: okc_line_styles_b lse,
5262: okc_k_lines_b fa_cle,
5263: okc_line_styles_b fa_lse,
5264: okc_k_headers_b chr
5265: where clev.chr_id = chr.orig_system_id1
5266: and clev.dnz_chr_id = chr.orig_system_id1
5279: and fa_cle.dnz_chr_id = chr.orig_system_id1
5280: and fa_cle.lse_id = fa_lse.id
5281: and fa_lse.lty_code = G_FA_LINE_LTY_CODE;
5282:
5283: l_new_fin_cle_id OKC_K_LINES_B.ID%TYPE;
5284: l_new_fa_cle_id OKC_K_LINES_B.ID%TYPE;
5285: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
5286: lx_cimv_rec cimv_rec_type;
5287: lx_cimv_ib_tbl cimv_tbl_type;
5280: and fa_cle.lse_id = fa_lse.id
5281: and fa_lse.lty_code = G_FA_LINE_LTY_CODE;
5282:
5283: l_new_fin_cle_id OKC_K_LINES_B.ID%TYPE;
5284: l_new_fa_cle_id OKC_K_LINES_B.ID%TYPE;
5285: l_orig_chr_id OKC_K_HEADERS_B.ID%TYPE;
5286: lx_cimv_rec cimv_rec_type;
5287: lx_cimv_ib_tbl cimv_tbl_type;
5288:
5341: */
5342: -- Bug# 15992711 Start of Modifications
5343: CURSOR chk_release_chr_csr(p_cle_id IN NUMBER) IS
5344: SELECT NVL(kle.RE_LEASE_YN,'N')
5345: FROM okc_k_lines_b cleb
5346: ,okl_k_lines kle
5347: WHERE cleb.cle_id = p_cle_id
5348: AND cleb.id = kle.id;
5349: --Bug# 15992711 End of Modifications
6298: cle.name
6299: FROM OKC_K_LINES_V cle,
6300: OKC_LINE_STYLES_B lse,
6301: OKL_K_LINES kle,
6302: OKC_K_LINES_B fa_cle,
6303: OKC_LINE_STYLES_B fa_cle_lse
6304: WHERE kle.id = cle.id
6305: AND cle.chr_id = p_chr_id
6306: AND cle.dnz_chr_id = p_chr_id
6356: FROM OKL_TXL_ASSETS_B txl,
6357: --Bug# 6373605 start
6358: OKL_TRX_ASSETS tas,
6359: --Bug# 6373605 end
6360: OKC_K_LINES_B cle,
6361: OKC_LINE_STYLES_B lse
6362: WHERE txl.kle_id = cle.id
6363: AND txl.tal_type = 'CRB'
6364: --Bug# 6373605 start
6408: OKL_TXL_ASSETS_B txl,
6409: --Bug# 6373605 start
6410: OKL_TRX_ASSETS tas,
6411: --Bug# 6373605 end
6412: OKC_K_LINES_B cle,
6413: OKC_LINE_STYLES_B lse
6414: WHERE txd.tal_id = txl.id
6415: --Bug# 6373605 start
6416: AND tas.id = txl.tas_id
6469: p_asset_id1 IN VARCHAR2,
6470: p_asset_id2 IN VARCHAR2,
6471: p_effective_date IN DATE) IS
6472: Select '!'
6473: from OKC_K_LINES_B cle,
6474: OKC_STATUSES_B sts,
6475: OKC_K_ITEMS cim
6476: Where cle.sts_code = sts.CODE
6477: --sechawla : Bug# 8370324
6529:
6530: -- Bug# 15992711 Start of Modifications
6531: CURSOR chk_release_chr_csr(p_cle_id IN NUMBER) IS
6532: SELECT NVL(kle.RE_LEASE_YN,'N')
6533: FROM okc_k_lines_b cleb
6534: ,okl_k_lines kle
6535: WHERE cleb.cle_id = p_cle_id
6536: AND cleb.id = kle.id;
6537: --Bug# 15992711 End of Modifications
7133:
7134: -- Bug# 15992711 Start of Modifications
7135: AND exists ( SELECT '1'
7136: FROM okl_k_lines kle
7137: ,okc_k_lines_b cleb
7138: WHERE cleb.dnz_chr_id = chr.id
7139: AND cleb.chr_id = chr.id
7140: AND cleb.id = kle.id
7141: AND nvl(kle.re_lease_yn,'N') = 'Y');
7193: --Bug# 6373605 end
7194: FROM OKL_TRX_TYPES_TL ttyp,
7195: OKL_TRX_ASSETS trx,
7196: OKL_TXL_ASSETS_B txl,
7197: OKC_K_LINES_B cle,
7198: OKC_LINE_STYLES_B lse,
7199: -- Bug# 3631094
7200: FA_BOOK_CONTROLS fab
7201: WHERE txl.kle_id = cle.id
7273: FROM OKL_TRX_TYPES_TL ttyp,
7274: OKL_TRX_ASSETS trx,
7275: OKL_TXD_ASSETS_B txd,
7276: OKL_TXL_ASSETS_B txl,
7277: OKC_K_LINES_B cle,
7278: OKC_LINE_STYLES_B lse,
7279: -- Bug# 3631094
7280: FA_BOOK_CONTROLS fab
7281: WHERE txd.tal_id = txl.id
7371: cursor l_allast_csr (p_chr_id in number) is
7372: select cleb.id,
7373: --Bug# 3783518
7374: cleb.orig_system_id1
7375: from okc_k_lines_b cleb,
7376: okc_line_styles_b lseb,
7377: okc_statuses_b stsb
7378: where cleb.chr_id = p_chr_id
7379: and cleb.dnz_chr_id = p_chr_id
7381: and lseb.lty_code = G_FIN_AST_LINE_LTY_CODE
7382: and stsb.code = cleb.sts_code
7383: and stsb.ste_code not in ('HOLD','EXPIRED','TERMINATED','CANCELLED');
7384:
7385: l_asset_cle_id okc_k_lines_b.ID%TYPE;
7386:
7387: l_subsidy_exists varchar2(1) default OKL_API.G_FALSE;
7388: l_total_discount number;
7389: l_cost_adjustment number;
7412: okc_k_items fa_cim,
7413: okl_trx_types_tl ttyp,
7414: okl_trx_assets trx,
7415: okl_txl_assets_b txl,
7416: okc_k_lines_b fa_cleb,
7417: okc_line_styles_b fa_lseb,
7418: okc_k_lines_tl ast_clet
7419: where
7420: fab.asset_id = to_number(fa_cim.object1_id1)
7476: CURSOR tas_csr(p_chr_id in number) IS
7477: SELECT trx.id
7478: FROM OKL_TRX_ASSETS trx,
7479: OKL_TXL_ASSETS_B txl,
7480: OKC_K_LINES_B cle,
7481: OKC_LINE_STYLES_B lse
7482: WHERE txl.kle_id = cle.id
7483: AND cle.dnz_chr_id = p_chr_id
7484: AND cle.lse_id = lse.id
7558:
7559: --Bug# 3783518
7560: CURSOR orig_pdt_csr(p_cle_id IN NUMBER) is
7561: SELECT pdt.reporting_pdt_id
7562: FROM okc_k_lines_b cle,
7563: okl_k_headers khr,
7564: okl_products pdt
7565: WHERE cle.id = p_cle_id
7566: AND khr.id = cle.dnz_chr_id
7594: ,rel_chr_id in number) IS
7595: Select nvl(sum(cov_ast_kle.capital_amount),0) capitalized_fee
7596: From
7597: OKL_K_LINES fee_kle,
7598: OKC_K_LINES_B fee_cle,
7599: OKC_STATUSES_B fee_sts,
7600: OKL_K_LINES cov_ast_kle,
7601: OKC_K_LINES_B cov_ast_cle,
7602: OKC_LINE_STYLES_B cov_ast_lse,
7597: OKL_K_LINES fee_kle,
7598: OKC_K_LINES_B fee_cle,
7599: OKC_STATUSES_B fee_sts,
7600: OKL_K_LINES cov_ast_kle,
7601: OKC_K_LINES_B cov_ast_cle,
7602: OKC_LINE_STYLES_B cov_ast_lse,
7603: OKC_STATUSES_B cov_ast_sts,
7604: OKC_K_ITEMS cov_ast_cim,
7605: OKC_K_LINES_B fa_cle
7601: OKC_K_LINES_B cov_ast_cle,
7602: OKC_LINE_STYLES_B cov_ast_lse,
7603: OKC_STATUSES_B cov_ast_sts,
7604: OKC_K_ITEMS cov_ast_cim,
7605: OKC_K_LINES_B fa_cle
7606: Where fee_kle.id = fee_cle.id
7607: and fee_kle.fee_type = 'CAPITALIZED'
7608: and fee_cle.id = cov_ast_cle.cle_id
7609: and fee_cle.dnz_chr_id = cov_ast_cle.dnz_chr_id
9044: trx.creation_date
9045: from okl_trx_types_tl ttyt,
9046: okl_trx_assets trx,
9047: okl_txl_assets_b txl,
9048: okc_k_lines_b cleb,
9049: okc_line_styles_b lseb
9050: where ttyt.id = trx.try_id
9051: and ttyt.language = 'US'
9052: and trx.id = txl.tas_id
9092: from fa_additions fa,
9093: fa_books fab,
9094: fa_book_controls fbc,
9095: okc_k_items cim,
9096: okc_k_lines_b cleb,
9097: okc_line_styles_b lseb
9098: where fab.asset_id = fa.asset_id
9099: and fab.transaction_header_id_out is null
9100: and fbc.book_type_code = fab.book_type_code
9336: ,p_chr_id in number) IS
9337: Select nvl(sum(cov_ast_kle.capital_amount),0) capitalized_fee
9338: From
9339: OKL_K_LINES fee_kle,
9340: OKC_K_LINES_B fee_cle,
9341: OKC_STATUSES_B fee_sts,
9342: OKL_K_LINES cov_ast_kle,
9343: OKC_K_LINES_B cov_ast_cle,
9344: OKC_STATUSES_B cov_ast_sts,
9339: OKL_K_LINES fee_kle,
9340: OKC_K_LINES_B fee_cle,
9341: OKC_STATUSES_B fee_sts,
9342: OKL_K_LINES cov_ast_kle,
9343: OKC_K_LINES_B cov_ast_cle,
9344: OKC_STATUSES_B cov_ast_sts,
9345: OKC_K_ITEMS cov_ast_cim
9346: Where fee_kle.id = fee_cle.id
9347: and fee_kle.fee_type = 'CAPITALIZED'
10850: trx.creation_date
10851: from okl_trx_types_tl ttyt,
10852: okl_trx_assets trx,
10853: okl_txl_assets_b txl,
10854: okc_k_lines_b cleb,
10855: okc_line_styles_b lseb
10856: where ttyt.id = trx.try_id
10857: and ttyt.language = 'US'
10858: and trx.id = txl.tas_id
10902: l_rep_pdt_book fa_books.book_type_code%TYPE;
10903:
10904: cursor l_capital_cost_csr(p_fin_cle_id in number) IS
10905: select kle_fin.capital_amount
10906: from okc_k_lines_b cleb_fin,
10907: okl_k_lines kle_fin
10908: where cleb_fin.id = p_fin_cle_id
10909: and kle_fin.id = cleb_fin.id;
10910: