[Home] [Help]
34: -------------------------------------------------------------------------------------------------
35:
36: TYPE fin_line_tab_type IS TABLE OF NUMBER;
37:
38: TYPE asset_rec_type IS RECORD (fin_asset_id OKC_K_LINES_B.id%TYPE,
39: amount OKL_K_LINES.tradein_amount%TYPE,
40: asset_number OKC_K_LINES_TL.name%TYPE,
41: description OKC_K_LINES_TL.item_description%TYPE,
42: oec OKL_K_LINES.oec%TYPE,
62: l_talv_fa_rec OKL_TAL_PVT.talv_rec_type;
63: l_itiv_ib_tbl OKL_ITI_PVT.itiv_tbl_type;
64: -- gboomina Added for Bug 5876083 - Start
65: l_tal_id OKL_TXL_ASSETS_B.ID%TYPE;
66: l_clev_fa_id OKC_K_LINES_B.ID%TYPE;
67: l_asset_number FA_ADDITIONS_B.ASSET_NUMBER%TYPE;
68: -- gboomina Added for Bug 5876083 - End
69: x_clev_fin_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
70: x_clev_model_rec OKL_OKC_MIGRATION_PVT.clev_rec_type;
208: IF (l_unit_cost IS NULL) THEN
209: OKL_API.set_message(p_app_name => G_APP_NAME,
210: p_msg_name => G_AMOUNT_FORMAT,
211: p_token1 => G_COL_NAME_TOKEN,
212: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
213: RAISE OKL_API.G_EXCEPTION_ERROR;
214: ELSE
215: l_talv_fa_rec.original_cost := l_unit_cost;
216: END IF;
499: IF (l_unit_cost IS NULL) THEN
500: OKL_API.set_message(p_app_name => G_APP_NAME,
501: p_msg_name => G_AMOUNT_FORMAT,
502: p_token1 => G_COL_NAME_TOKEN,
503: p_token1_value => 'OKC_K_LINES_B.PRICE_UNIT');
504: RAISE OKL_API.G_EXCEPTION_ERROR;
505: ELSE
506: l_talv_fa_rec.original_cost := l_unit_cost;
507: END IF;
679: cim_mdl.object1_id2 inventory_org_id,
680: cim_mdl.number_of_items,
681: cleb_mdl.price_unit,
682: msit.description inventory_item_name
683: FROM okc_k_lines_b cleb_mdl,
684: okc_line_styles_b lse_mdl,
685: okc_k_items cim_mdl,
686: mtl_system_items_tl msit
687: WHERE cim_mdl.cle_id = cleb_mdl.id
710: cim_fa.object1_id1 asset_id
711: FROM okl_txl_assets_b txl,
712: okc_line_styles_b lse_fa,
713: okl_k_lines kle_fa,
714: okc_k_lines_b cleb_fa,
715: okl_asset_key_lov_uv ast_key,
716: okx_ast_locs_v ast_loc,
717: okc_k_items cim_fa
718: WHERE cleb_fa.id = kle_fa.id
731: CURSOR c_ib_line(p_dnz_chr_id NUMBER, p_clev_fin_id NUMBER) IS
732: SELECT cleb_ib.id clev_ib_id,
733: iti.id,
734: iti.object_id1_new party_site_use_id
735: FROM okc_k_lines_b cleb_inst,
736: okc_k_lines_b cleb_ib,
737: okc_line_styles_b lse_inst,
738: okc_line_styles_b lse_ib,
739: okl_txl_itm_insts iti
732: SELECT cleb_ib.id clev_ib_id,
733: iti.id,
734: iti.object_id1_new party_site_use_id
735: FROM okc_k_lines_b cleb_inst,
736: okc_k_lines_b cleb_ib,
737: okc_line_styles_b lse_inst,
738: okc_line_styles_b lse_ib,
739: okl_txl_itm_insts iti
740: WHERE cleb_inst.cle_id = p_clev_fin_id
774: hz_party_sites hps,
775: csi_item_instances csi,
776: okc_k_items cim_ib,
777: okc_line_styles_b lse_ib,
778: okc_k_lines_b cle_ib,
779: okc_line_styles_b lse_inst,
780: okc_k_lines_b cle_inst,
781: okc_line_styles_b lse_fin,
782: okc_k_lines_b cle_fin
776: okc_k_items cim_ib,
777: okc_line_styles_b lse_ib,
778: okc_k_lines_b cle_ib,
779: okc_line_styles_b lse_inst,
780: okc_k_lines_b cle_inst,
781: okc_line_styles_b lse_fin,
782: okc_k_lines_b cle_fin
783: where cle_fin.cle_id is null
784: and cle_fin.chr_id = cle_fin.dnz_chr_id
778: okc_k_lines_b cle_ib,
779: okc_line_styles_b lse_inst,
780: okc_k_lines_b cle_inst,
781: okc_line_styles_b lse_fin,
782: okc_k_lines_b cle_fin
783: where cle_fin.cle_id is null
784: and cle_fin.chr_id = cle_fin.dnz_chr_id
785: and lse_fin.id = cle_fin.lse_id
786: and lse_fin.lty_code = 'FREE_FORM1'
833: and fa_hist.retirement_id is null;
834: l_fa_line_active_rec c_fa_line_active%ROWTYPE;
835:
836: -- This cursor is used to get asset number
837: CURSOR c_asset_info(p_cle_id OKC_K_LINES_B.ID%TYPE)
838: IS
839: select name
840: from okc_k_lines_tl
841: where id = p_cle_id;
845: --start NISINHA Bug 6490572
846:
847: -- cursor to get Model Number and Manufacturer from OKL_K_LINES for loan contracts
848:
849: CURSOR c_fa_line_loan(p_clev_fin_id IN okc_k_lines_b.id%type,
850: p_dnz_chr_id IN okc_k_headers_all_b.id%type) IS
851: SELECT kle_fa.model_number,
852: kle_fa.year_built,
853: kle_fa.manufacturer_name
852: kle_fa.year_built,
853: kle_fa.manufacturer_name
854: FROM okc_line_styles_b lse_fa,
855: okl_k_lines kle_fa,
856: okc_k_lines_b cleb_fa
857: WHERE cleb_fa.id = kle_fa.id
858: AND lse_fa.id = cleb_fa.lse_id
859: AND lse_fa.lty_code = 'FIXED_ASSET'
860: AND cleb_fa.cle_id = p_clev_fin_id
1349: SELECT clet_fin.name asset_number,
1350: clet_fin.item_description,
1351: cleb_fin.bill_to_site_use_id,
1352: csu.location bill_to_site_name
1353: FROM okc_k_lines_b cleb_fin,
1354: hz_cust_site_uses_all csu ,
1355: okc_k_lines_tl clet_fin
1356: WHERE cleb_fin.id = p_cle_id
1357: AND csu.site_use_id = cleb_fin.bill_to_site_use_id
1530: SELECT cleb_fin.id fin_asset_id,
1531: clet_fin.name asset_number,
1532: clet_fin.item_description description,
1533: NVL(kle_fin.oec,0) oec
1534: FROM okc_k_lines_b cleb_fin,
1535: okc_k_lines_tl clet_fin,
1536: okl_k_lines kle_fin,
1537: okc_line_styles_b lse_fin,
1538: okc_statuses_b sts
1550: SELECT cleb_fin.id fin_asset_id,
1551: clet_fin.name asset_number,
1552: clet_fin.item_description description,
1553: NVL(kle_fin.oec,0) oec
1554: FROM okc_k_lines_b cleb_fin,
1555: okc_k_lines_tl clet_fin,
1556: okl_k_lines kle_fin,
1557: okc_line_styles_b lse_fin,
1558: okc_statuses_b sts
1568: AND kle_fin.tradein_amount IS NULL;
1569:
1570: CURSOR c_term_fin_lines(p_chr_id IN NUMBER) is
1571: SELECT SUM(NVL(kle_fin.tradein_amount,0)) amount
1572: FROM okc_k_lines_b cleb_fin,
1573: okl_k_lines kle_fin,
1574: okc_line_styles_b lse_fin
1575: WHERE cleb_fin.dnz_chr_id = p_chr_id
1576: AND cleb_fin.chr_id = p_chr_id
1780: clet_fin.item_description description,
1781: NVL(kle_fin.oec,0) oec,
1782: NVL(kle_fin.capitalize_down_payment_yn,'Y') capitalize_yn,
1783: NVL(kle_fin.down_payment_receiver_code,'LESSOR') receiver_code
1784: FROM okc_k_lines_b cleb_fin,
1785: okc_k_lines_tl clet_fin,
1786: okl_k_lines kle_fin,
1787: okc_line_styles_b lse_fin,
1788: okc_statuses_b sts
1802: clet_fin.item_description description,
1803: NVL(kle_fin.oec,0) oec,
1804: NVL(kle_fin.capitalize_down_payment_yn,'Y') capitalize_yn,
1805: NVL(kle_fin.down_payment_receiver_code,'LESSOR') receiver_code
1806: FROM okc_k_lines_b cleb_fin,
1807: okc_k_lines_tl clet_fin,
1808: okl_k_lines kle_fin,
1809: okc_line_styles_b lse_fin,
1810: okc_statuses_b sts
1822:
1823: CURSOR c_term_fin_lines(p_chr_id IN NUMBER) is
1824: SELECT SUM( NVL(kle_fin.capital_reduction,0) +
1825: (NVL(kle_fin.capital_reduction_percent,0)/100 * kle_fin.oec)) amount
1826: FROM okc_k_lines_b cleb_fin,
1827: okl_k_lines kle_fin,
1828: okc_line_styles_b lse_fin
1829: WHERE cleb_fin.dnz_chr_id = p_chr_id
1830: AND cleb_fin.chr_id = p_chr_id
2036: IS
2037: CURSOR c_subsidy_amount(p_khr_id NUMBER, p_subsidy_id NUMBER) IS
2038: SELECT OKL_ACCOUNTING_UTIL.format_amount(SUM(NVL(kle_sub.subsidy_override_amount,kle_sub.amount)), cleb_sub.currency_code) subsidy_amount
2039: FROM okl_k_lines kle_sub,
2040: okc_k_lines_b cleb_sub
2041: WHERE kle_sub.subsidy_id = p_subsidy_id
2042: AND cleb_sub.dnz_chr_id = p_khr_id
2043: AND cleb_sub.id = kle_sub.id
2044: AND cleb_sub.sts_code <> 'ABANDONED'
2060: IS
2061: CURSOR c_down_payment_amount(p_khr_id NUMBER) IS
2062: SELECT OKL_ACCOUNTING_UTIL.format_amount(SUM( NVL(kle_fin.capital_reduction,0) + (NVL(kle_fin.capital_reduction_percent,0)/100 * kle_fin.oec) ), cleb_fin.currency_code) down_payment_amount
2063: FROM okl_k_lines kle_fin,
2064: okc_k_lines_b cleb_fin
2065: WHERE cleb_fin.chr_id = p_khr_id
2066: AND cleb_fin.dnz_chr_id = p_khr_id
2067: AND kle_fin.id = cleb_fin.id
2068: AND (kle_fin.capital_reduction_percent IS NOT NULL OR