[Home] [Help]
210: IS
211: SELECT 1
212: --FROM DUAL
213: --WHERE EXISTS (SELECT '1'
214: FROM OKL_TXL_ASSETS_B
215: WHERE asset_number = p_asset_number; --);
216:
217: /*CURSOR c_okx_asset_lines_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
218: SELECT 1
1106: -- Parameters :
1107: -- Version :
1108: -- End of Commnets
1109: FUNCTION get_txdv_tbl(p_tal_id IN NUMBER,
1110: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
1111: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
1112: x_to_update OUT NOCOPY VARCHAR2,
1113: x_txdv_tbl OUT NOCOPY txdv_tbl_type)
1114: RETURN VARCHAR2
1107: -- Version :
1108: -- End of Commnets
1109: FUNCTION get_txdv_tbl(p_tal_id IN NUMBER,
1110: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
1111: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
1112: x_to_update OUT NOCOPY VARCHAR2,
1113: x_txdv_tbl OUT NOCOPY txdv_tbl_type)
1114: RETURN VARCHAR2
1115: IS
2480: -- Start of Commnets
2481: -- Badrinath Kuchibholta
2482: -- Procedure Name : Validate_new_Ast_Num_update
2483: -- Description : Validate_new_Ast_Num_update
2484: -- Business Rules : Validate Asset_Number against OKL_TXL_ASSETS_B.ASSET_NUMBER
2485: -- ,as same should not exists in table
2486: -- Parameters : OUT Return Status, IN Rec Info
2487: -- Version : 1.0
2488: -- End of Commnets
2515: IS
2516: SELECT 1
2517: --FROM DUAL
2518: --WHERE EXISTS (SELECT '1'
2519: FROM OKL_TXL_ASSETS_B
2520: WHERE asset_number = p_asset_number
2521: AND kle_id <> p_kle_id; --);
2522:
2523: CURSOR c_okx_asset_lines_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2566: CURSOR c_check_release_asset(p_asset_number IN OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2567: SELECT 'Y'
2568: FROM okl_asset_returns_all_b KAR
2569: WHERE KAR.kle_id IN (SELECT KLE.cle_id
2570: FROM okl_txl_assets_b TXL
2571: ,okl_txd_assets_b TXD
2572: ,okc_k_lines_b KLE
2573: WHERE TXD.asset_number = p_asset_number
2574: AND KLE.id = TXL.kle_id
2657: CLOSE c_source_code;
2658:
2659: IF lv_source_code NOT IN ('OKL_REBOOK') THEN
2660: -- Enforce validation
2661: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2662: OPEN c_txl_asset_number(p_asset_number,
2663: p_kle_id);
2664: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2665: IF c_txl_asset_number%NOTFOUND THEN
2693: CLOSE c_txd_assets_v;
2694:
2695: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2696: -- Enforce validation
2697: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2698: OPEN c_txl_asset_number(p_asset_number,
2699: p_kle_id);
2700: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2701: IF c_txl_asset_number%NOTFOUND THEN
2857: -- Start of Commnets
2858: -- Badrinath Kuchibholta
2859: -- Procedure Name : Validate_new_Asset_Number
2860: -- Description : Validation for new Asset Number
2861: -- Business Rules : Validate Asset_Number against OKL_TXL_ASSETS_B.ASSET_NUMBER
2862: -- ,as same should not exists in table
2863: -- Parameters : OUT Return Status, IN Rec Info
2864: -- Version : 1.0
2865: -- End of Commnets
2875: CURSOR c_txl_asset_number(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2876: SELECT 1
2877: --FROM DUAL
2878: --WHERE EXISTS (SELECT '1'
2879: FROM OKL_TXL_ASSETS_B
2880: WHERE asset_number = p_asset_number; --);
2881: /*CURSOR c_okx_asset_lines_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2882: SELECT 1
2883: --FROM DUAL
2927: CURSOR c_check_release_asset(p_asset_number IN OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2928: SELECT 'Y'
2929: FROM okl_asset_returns_all_b KAR
2930: WHERE KAR.kle_id IN (SELECT KLE.cle_id
2931: FROM okl_txl_assets_b TXL
2932: ,okl_txd_assets_b TXD
2933: ,okc_k_lines_b KLE
2934: WHERE TXD.asset_number = p_asset_number
2935: AND KLE.id = TXL.kle_id
2982:
2983: -- For released assets, we should not handle asset number validation.
2984: IF (upper(lv_release_asset) = 'N') THEN -- Start of release asset check
2985: -- Enforce validation
2986: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2987: OPEN c_txl_asset_number(p_asset_number);
2988: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2989: IF c_txl_asset_number%NOTFOUND THEN
2990: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3094: -- End of Commnets
3095: PROCEDURE Validate_asset_tax_book(x_return_status OUT NOCOPY VARCHAR2,
3096: p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3097: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3098: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) IS
3099: ln_asset_lines_dtls NUMBER := 0;
3100: CURSOR c_asset_lines_dtls_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3101: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3102: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) is
3098: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) IS
3099: ln_asset_lines_dtls NUMBER := 0;
3100: CURSOR c_asset_lines_dtls_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3101: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3102: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) is
3103: SELECT 1
3104: --FROM DUAL
3105: --WHERE EXISTS (SELECT '1'
3106: FROM OKL_TXD_ASSETS_B txd,
3103: SELECT 1
3104: --FROM DUAL
3105: --WHERE EXISTS (SELECT '1'
3106: FROM OKL_TXD_ASSETS_B txd,
3107: OKL_TXL_ASSETS_B txl
3108: WHERE txl.asset_number = p_asset_number
3109: AND txl.asset_number = txd.asset_number
3110: AND txl.tal_type IN ('CFA','CIB','CRB','CRL','CSP','CRV')
3111: AND txd.tal_id = txl.id
3528: -- End of Commnets
3529:
3530: FUNCTION check_required_values(p_item1 IN OKC_K_ITEMS_V.OBJECT1_ID1%TYPE,
3531: p_item2 IN OKC_K_ITEMS_V.OBJECT1_ID2%TYPE,
3532: p_ast_no IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
3533: p_ast_desc IN OKL_TXL_ASSETS_TL.DESCRIPTION%TYPE,
3534: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3535: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3536: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3530: FUNCTION check_required_values(p_item1 IN OKC_K_ITEMS_V.OBJECT1_ID1%TYPE,
3531: p_item2 IN OKC_K_ITEMS_V.OBJECT1_ID2%TYPE,
3532: p_ast_no IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
3533: p_ast_desc IN OKL_TXL_ASSETS_TL.DESCRIPTION%TYPE,
3534: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3535: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3536: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3537: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3538: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3534: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3535: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3536: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3537: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3538: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3539: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3540: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3541: RETURN VARCHAR2 IS
3542: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4654: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4655: x_return_status OUT NOCOPY VARCHAR2,
4656: x_msg_count OUT NOCOPY NUMBER,
4657: x_msg_data OUT NOCOPY VARCHAR2,
4658: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4659: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4660: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4661: IS
4662: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4655: x_return_status OUT NOCOPY VARCHAR2,
4656: x_msg_count OUT NOCOPY NUMBER,
4657: x_msg_data OUT NOCOPY VARCHAR2,
4658: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4659: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4660: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4661: IS
4662: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4663: i NUMBER := 0;
4656: x_msg_count OUT NOCOPY NUMBER,
4657: x_msg_data OUT NOCOPY VARCHAR2,
4658: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4659: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4660: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4661: IS
4662: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4663: i NUMBER := 0;
4664: l_txdv_tbl txdv_tbl_type;
4765: CURSOR l_talv_csr(p_cleb_fin_id IN NUMBER,
4766: p_chr_id IN NUMBER) IS
4767: SELECT tal.id,
4768: tal.asset_number
4769: FROM okl_txl_assets_b tal,
4770: okc_k_lines_b cleb_fa
4771: WHERE cleb_fa.cle_id = p_cleb_fin_id
4772: AND cleb_fa.dnz_chr_id = p_chr_id
4773: AND cleb_fa.lse_id = 42
4772: AND cleb_fa.dnz_chr_id = p_chr_id
4773: AND cleb_fa.lse_id = 42
4774: AND tal.kle_id = cleb_fa.id;
4775:
4776: l_tal_id OKL_TXL_ASSETS_B.id%TYPE;
4777: l_asset_number OKL_TXL_ASSETS_B.asset_number%TYPE;
4778:
4779: l_talv_rec talv_rec_type;
4780: x_talv_rec talv_rec_type;
4773: AND cleb_fa.lse_id = 42
4774: AND tal.kle_id = cleb_fa.id;
4775:
4776: l_tal_id OKL_TXL_ASSETS_B.id%TYPE;
4777: l_asset_number OKL_TXL_ASSETS_B.asset_number%TYPE;
4778:
4779: l_talv_rec talv_rec_type;
4780: x_talv_rec talv_rec_type;
4781:
10616: END IF;
10617:
10618: --Bug# 5530990
10619: -- Update Original Cost and Depreciation Cost in
10620: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
10621: -- Add on line is added
10622: update_asset_cost(p_api_version => p_api_version,
10623: p_init_msg_list => p_init_msg_list,
10624: x_return_status => x_return_status,
10863: END IF;
10864:
10865: --Bug# 5530990
10866: -- Update Original Cost and Depreciation Cost in
10867: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
10868: -- Add on line is updated
10869: update_asset_cost(p_api_version => p_api_version,
10870: p_init_msg_list => p_init_msg_list,
10871: x_return_status => x_return_status,
11098: END IF;
11099:
11100: --Bug# 5530990
11101: -- Update Original Cost and Depreciation Cost in
11102: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
11103: -- Add on line is deleted
11104: update_asset_cost(p_api_version => p_api_version,
11105: p_init_msg_list => p_init_msg_list,
11106: x_return_status => x_return_status,
12178: where fa.asset_id = p_asset_id
12179: and exists
12180: (select '1'
12181: from okl_trx_assets h,
12182: okl_txl_assets_b l
12183: where h.id = l.tas_id
12184: and h.TAS_TYPE in ('AMT','AUD','AUS')
12185: and l.asset_number = fa.asset_number
12186: and h.tsu_code = 'ENTERED');
12596: txlb.life_in_months,
12597: txlb.deprn_rate,
12598: txlb.depreciation_id,
12599: txlb.asset_number
12600: from okl_txl_assets_b txlb,
12601: okc_k_lines_b fa_cleb,
12602: okc_line_styles_b fa_lseb
12603: where txlb.kle_id = fa_cleb.id
12604: and txlb.tal_type = 'CRL'
12793:
12794: l_town_rul okc_rules_b.rule_information1%TYPE;
12795: l_town_rul_id okc_rules_b.id%TYPE;
12796:
12797: l_rep_asset_book okl_txl_assets_b.corporate_book%TYPE;
12798: l_rep_asset_book_done varchar2(1);
12799: l_rep_pdt_id number;
12800: l_tax_owner varchar2(30);
12801: l_rep_deal_type okl_k_headers.deal_type%TYPE;
14050: cursor l_chk_rbk_ast(p_cle_id in number, p_chr_id in number, p_asset_id number) is
14051: select 'N' change_flag,
14052: chrb.orig_system_source_code
14053: from fa_additions_b fab,
14054: okl_txl_assets_b txlb,
14055: okc_k_lines_b fa_cleb,
14056: okc_line_styles_b fa_lseb,
14057: okc_k_headers_b chrb
14058: where fab.asset_number = txlb.asset_number
14515: txlb.percent_salvage_value,
14516: txlb.salvage_value,
14517: txlb.asset_number
14518: from okl_trx_assets trx,
14519: okl_txl_assets_b txlb,
14520: okc_k_lines_b cleb_fa,
14521: okc_line_styles_b lseb_fa
14522: where trx.id = txlb.tas_id
14523: and trx.tsu_code = 'ENTERED'
15230:
15231: --Bug# 4419339
15232: l_orig_system_source_code okc_k_headers_b.orig_system_source_code%TYPE;
15233:
15234: CURSOR c_ib_sno_asset(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE)
15235: IS
15236: SELECT CII.SERIAL_NUMBER IB_SERIAL_NUMBER,
15237: CII.INSTANCE_ID
15238: FROM
15277: AND EXISTS (
15278: SELECT '1'
15279: FROM okl_asset_returns_all_b KAR
15280: WHERE KAR.kle_id IN (SELECT KLE.cle_id
15281: FROM okl_txl_assets_b TXL
15282: ,okl_txd_assets_b TXD
15283: ,okc_k_lines_b KLE
15284: WHERE TXD.asset_number = p_asset_number
15285: AND KLE.id = TXL.kle_id
15864: l_clev_fa_rec.price_unit := ln_clev_model_price_unit;
15865: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
15866: --Bug# 4053845
15867: l_clev_fa_rec.name := upper(l_clev_fa_rec.name);
15868: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
15869: -- We cannot use the information after the assets have been put into FA
15870: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
15871: -- As the Datatype matches for both.
15872: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
16350: ln_inv_org_id OKL_TXL_ITM_INSTS.INVENTORY_ORG_ID%TYPE;
16351: lv_jtot_object_code_new OKL_TXL_ITM_INSTS.JTOT_OBJECT_CODE_NEW%TYPE;
16352: -- end rravikir
16353:
16354: CURSOR c_asset_iti(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
16355: p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
16356: IS
16357: select cle_ib.id id
16358: from okc_line_styles_b lse_ib,
16451: chr.orig_system_source_code,
16452: chr.orig_system_id1 orig_chr_id,
16453: chr.start_date
16454: FROM okc_k_headers_b CHR,
16455: okl_txl_assets_b txlb,
16456: okc_line_styles_b lseb,
16457: okc_k_lines_b cleb_top,
16458: okl_k_lines kle_top
16459: WHERE txlb.kle_id = cleb_top.id
17545: End If;
17546: --Bug# 4899328: End
17547:
17548: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
17549: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
17550: -- We cannot use the information after the assets have been put into FA
17551: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
17552: -- As the Datatype matches for both.
17553: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
18200:
18201: CURSOR l_chk_rel_ast_csr (p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE
18202: ,p_asset_num IN OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
18203: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
18204: FROM okl_txl_assets_b txlb,
18205: okc_line_styles_b lseb,
18206: okc_k_lines_b cleb_top,
18207: okl_k_lines kle_top
18208: WHERE txlb.kle_id = cleb_top.id
19244:
19245: CURSOR l_chk_rel_ast_csr (p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE
19246: ,p_asset_num IN OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
19247: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
19248: FROM okl_txl_assets_b txlb,
19249: okc_line_styles_b lseb,
19250: okc_k_lines_b cleb_top,
19251: okl_k_lines kle_top
19252: WHERE txlb.kle_id = cleb_top.id
20150: */
20151: CURSOR l_chk_rel_ast_csr (p_dnz_chr_id IN OKC_K_LINES_V.DNZ_CHR_ID%TYPE
20152: ,p_asset_number IN OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
20153: SELECT NVL(kle_top.re_lease_yn,'N') release_flag
20154: FROM okl_txl_assets_b txlb,
20155: okc_line_styles_b lseb,
20156: okc_k_lines_b cleb_top,
20157: okl_k_lines kle_top
20158: WHERE txlb.kle_id = cleb_top.id