[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
2637: CLOSE c_source_code;
2638:
2639: IF lv_source_code NOT IN ('OKL_REBOOK') THEN
2640: -- Enforce validation
2641: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2642: OPEN c_txl_asset_number(p_asset_number,
2643: p_kle_id);
2644: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2645: IF c_txl_asset_number%NOTFOUND THEN
2673: CLOSE c_txd_assets_v;
2674:
2675: ELSIF (lv_source_code = 'x' OR lv_source_code = OKL_API.G_MISS_CHAR)THEN
2676: -- Enforce validation
2677: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2678: OPEN c_txl_asset_number(p_asset_number,
2679: p_kle_id);
2680: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2681: IF c_txl_asset_number%NOTFOUND THEN
2837: -- Start of Commnets
2838: -- Badrinath Kuchibholta
2839: -- Procedure Name : Validate_new_Asset_Number
2840: -- Description : Validation for new Asset Number
2841: -- Business Rules : Validate Asset_Number against OKL_TXL_ASSETS_B.ASSET_NUMBER
2842: -- ,as same should not exists in table
2843: -- Parameters : OUT Return Status, IN Rec Info
2844: -- Version : 1.0
2845: -- End of Commnets
2855: CURSOR c_txl_asset_number(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2856: SELECT 1
2857: --FROM DUAL
2858: --WHERE EXISTS (SELECT '1'
2859: FROM OKL_TXL_ASSETS_B
2860: WHERE asset_number = p_asset_number; --);
2861: /*CURSOR c_okx_asset_lines_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE) is
2862: SELECT 1
2863: --FROM DUAL
2941:
2942: -- For released assets, we should not handle asset number validation.
2943: IF (upper(lv_release_asset) = 'N') THEN -- Start of release asset check
2944: -- Enforce validation
2945: -- Validate if the Asset Number exists in OKL_TXL_ASSETS_B
2946: OPEN c_txl_asset_number(p_asset_number);
2947: FETCH c_txl_asset_number into ln_okl_txl_assets_v;
2948: IF c_txl_asset_number%NOTFOUND THEN
2949: x_return_status := OKL_API.G_RET_STS_SUCCESS;
3053: -- End of Commnets
3054: PROCEDURE Validate_asset_tax_book(x_return_status OUT NOCOPY VARCHAR2,
3055: p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3056: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3057: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) IS
3058: ln_asset_lines_dtls NUMBER := 0;
3059: CURSOR c_asset_lines_dtls_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3060: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3061: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) is
3057: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) IS
3058: ln_asset_lines_dtls NUMBER := 0;
3059: CURSOR c_asset_lines_dtls_v(p_asset_number OKX_ASSETS_V.ASSET_NUMBER%TYPE,
3060: p_tax_book OKL_TXD_ASSETS_B.TAX_BOOK%TYPE,
3061: p_tal_id OKL_TXL_ASSETS_B.ID%TYPE) is
3062: SELECT 1
3063: --FROM DUAL
3064: --WHERE EXISTS (SELECT '1'
3065: FROM OKL_TXD_ASSETS_B txd,
3062: SELECT 1
3063: --FROM DUAL
3064: --WHERE EXISTS (SELECT '1'
3065: FROM OKL_TXD_ASSETS_B txd,
3066: OKL_TXL_ASSETS_B txl
3067: WHERE txl.asset_number = p_asset_number
3068: AND txl.asset_number = txd.asset_number
3069: AND txl.tal_type IN ('CFA','CIB','CRB','CRL','CSP','CRV')
3070: AND txd.tal_id = txl.id
3487: -- End of Commnets
3488:
3489: FUNCTION check_required_values(p_item1 IN OKC_K_ITEMS_V.OBJECT1_ID1%TYPE,
3490: p_item2 IN OKC_K_ITEMS_V.OBJECT1_ID2%TYPE,
3491: p_ast_no IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
3492: p_ast_desc IN OKL_TXL_ASSETS_TL.DESCRIPTION%TYPE,
3493: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3494: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3495: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3489: FUNCTION check_required_values(p_item1 IN OKC_K_ITEMS_V.OBJECT1_ID1%TYPE,
3490: p_item2 IN OKC_K_ITEMS_V.OBJECT1_ID2%TYPE,
3491: p_ast_no IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
3492: p_ast_desc IN OKL_TXL_ASSETS_TL.DESCRIPTION%TYPE,
3493: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3494: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3495: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3496: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3497: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3493: p_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
3494: p_units IN OKC_K_ITEMS_V.NUMBER_OF_ITEMS%TYPE,
3495: p_ib_loc1 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID1_NEW%TYPE,
3496: p_ib_loc2 IN OKL_TXL_ITM_INSTS_V.OBJECT_ID2_NEW%TYPE,
3497: p_fa_loc IN OKL_TXL_ASSETS_B.FA_LOCATION_ID%TYPE,
3498: p_refinance_amount IN OKL_K_LINES.REFINANCE_AMOUNT%TYPE,
3499: p_chr_id IN OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
3500: RETURN VARCHAR2 IS
3501: x_return_status VARCHAR2(3) := OKL_API.G_RET_STS_SUCCESS;
4613: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4614: x_return_status OUT NOCOPY VARCHAR2,
4615: x_msg_count OUT NOCOPY NUMBER,
4616: x_msg_data OUT NOCOPY VARCHAR2,
4617: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4618: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4619: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4620: IS
4621: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4614: x_return_status OUT NOCOPY VARCHAR2,
4615: x_msg_count OUT NOCOPY NUMBER,
4616: x_msg_data OUT NOCOPY VARCHAR2,
4617: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4618: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4619: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4620: IS
4621: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4622: i NUMBER := 0;
4615: x_msg_count OUT NOCOPY NUMBER,
4616: x_msg_data OUT NOCOPY VARCHAR2,
4617: p_asset_number IN OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
4618: p_original_cost IN OKL_TXL_ASSETS_B.ORIGINAL_COST%TYPE,
4619: p_tal_id IN OKL_TXL_ASSETS_B.ID%TYPE)
4620: IS
4621: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_TXD_ASSET_DTL';
4622: i NUMBER := 0;
4623: l_txdv_tbl txdv_tbl_type;
4724: CURSOR l_talv_csr(p_cleb_fin_id IN NUMBER,
4725: p_chr_id IN NUMBER) IS
4726: SELECT tal.id,
4727: tal.asset_number
4728: FROM okl_txl_assets_b tal,
4729: okc_k_lines_b cleb_fa
4730: WHERE cleb_fa.cle_id = p_cleb_fin_id
4731: AND cleb_fa.dnz_chr_id = p_chr_id
4732: AND cleb_fa.lse_id = 42
4731: AND cleb_fa.dnz_chr_id = p_chr_id
4732: AND cleb_fa.lse_id = 42
4733: AND tal.kle_id = cleb_fa.id;
4734:
4735: l_tal_id OKL_TXL_ASSETS_B.id%TYPE;
4736: l_asset_number OKL_TXL_ASSETS_B.asset_number%TYPE;
4737:
4738: l_talv_rec talv_rec_type;
4739: x_talv_rec talv_rec_type;
4732: AND cleb_fa.lse_id = 42
4733: AND tal.kle_id = cleb_fa.id;
4734:
4735: l_tal_id OKL_TXL_ASSETS_B.id%TYPE;
4736: l_asset_number OKL_TXL_ASSETS_B.asset_number%TYPE;
4737:
4738: l_talv_rec talv_rec_type;
4739: x_talv_rec talv_rec_type;
4740:
10531: END IF;
10532:
10533: --Bug# 5530990
10534: -- Update Original Cost and Depreciation Cost in
10535: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
10536: -- Add on line is added
10537: update_asset_cost(p_api_version => p_api_version,
10538: p_init_msg_list => p_init_msg_list,
10539: x_return_status => x_return_status,
10778: END IF;
10779:
10780: --Bug# 5530990
10781: -- Update Original Cost and Depreciation Cost in
10782: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
10783: -- Add on line is updated
10784: update_asset_cost(p_api_version => p_api_version,
10785: p_init_msg_list => p_init_msg_list,
10786: x_return_status => x_return_status,
11013: END IF;
11014:
11015: --Bug# 5530990
11016: -- Update Original Cost and Depreciation Cost in
11017: -- OKL_TXL_ASSETS_B and OKL_TXD_ASSETS_B when
11018: -- Add on line is deleted
11019: update_asset_cost(p_api_version => p_api_version,
11020: p_init_msg_list => p_init_msg_list,
11021: x_return_status => x_return_status,
12093: where fa.asset_id = p_asset_id
12094: and exists
12095: (select '1'
12096: from okl_trx_assets h,
12097: okl_txl_assets_b l
12098: where h.id = l.tas_id
12099: and h.TAS_TYPE in ('AMT','AUD','AUS')
12100: and l.asset_number = fa.asset_number
12101: and h.tsu_code = 'ENTERED');
12510: txlb.life_in_months,
12511: txlb.deprn_rate,
12512: txlb.depreciation_id,
12513: txlb.asset_number
12514: from okl_txl_assets_b txlb,
12515: okc_k_lines_b fa_cleb,
12516: okc_line_styles_b fa_lseb
12517: where txlb.kle_id = fa_cleb.id
12518: and txlb.tal_type = 'CRL'
12707:
12708: l_town_rul okc_rules_b.rule_information1%TYPE;
12709: l_town_rul_id okc_rules_b.id%TYPE;
12710:
12711: l_rep_asset_book okl_txl_assets_b.corporate_book%TYPE;
12712: l_rep_asset_book_done varchar2(1);
12713: l_rep_pdt_id number;
12714: l_tax_owner varchar2(30);
12715: l_rep_deal_type okl_k_headers.deal_type%TYPE;
13951: cursor l_chk_rbk_ast(p_cle_id in number, p_chr_id in number, p_asset_id number) is
13952: select 'N' change_flag,
13953: chrb.orig_system_source_code
13954: from fa_additions_b fab,
13955: okl_txl_assets_b txlb,
13956: okc_k_lines_b fa_cleb,
13957: okc_line_styles_b fa_lseb,
13958: okc_k_headers_b chrb
13959: where fab.asset_number = txlb.asset_number
14409: txlb.percent_salvage_value,
14410: txlb.salvage_value,
14411: txlb.asset_number
14412: from okl_trx_assets trx,
14413: okl_txl_assets_b txlb,
14414: okc_k_lines_b cleb_fa,
14415: okc_line_styles_b lseb_fa
14416: where trx.id = txlb.tas_id
14417: and trx.tsu_code = 'ENTERED'
15121:
15122: --Bug# 4419339
15123: l_orig_system_source_code okc_k_headers_b.orig_system_source_code%TYPE;
15124:
15125: CURSOR c_ib_sno_asset(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE)
15126: IS
15127: SELECT CII.SERIAL_NUMBER IB_SERIAL_NUMBER,
15128: CII.INSTANCE_ID
15129: FROM
15726: l_clev_fa_rec.price_unit := ln_clev_model_price_unit;
15727: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
15728: --Bug# 4053845
15729: l_clev_fa_rec.name := upper(l_clev_fa_rec.name);
15730: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
15731: -- We cannot use the information after the assets have been put into FA
15732: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
15733: -- As the Datatype matches for both.
15734: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;
16212: ln_inv_org_id OKL_TXL_ITM_INSTS.INVENTORY_ORG_ID%TYPE;
16213: lv_jtot_object_code_new OKL_TXL_ITM_INSTS.JTOT_OBJECT_CODE_NEW%TYPE;
16214: -- end rravikir
16215:
16216: CURSOR c_asset_iti(p_asset_number OKL_TXL_ASSETS_B.ASSET_NUMBER%TYPE,
16217: p_dnz_chr_id OKC_K_LINES_B.DNZ_CHR_ID%TYPE)
16218: IS
16219: select cle_ib.id id
16220: from okc_line_styles_b lse_ib,
17338: End If;
17339: --Bug# 4899328: End
17340:
17341: l_clev_fa_rec.item_description := l_talv_fa_rec.description;
17342: -- A Bug fix Since we populate the year manufactured into OKL_TXL_ASSETS_B only
17343: -- We cannot use the information after the assets have been put into FA
17344: -- So we decided to populate the year Manufactured into OKL_K_LINES.YEAR_BUILT
17345: -- As the Datatype matches for both.
17346: l_klev_fa_rec.Year_Built := l_talv_fa_rec.year_manufactured;