[Home] [Help]
880:
881: --sechawla 13-FEB-08 6765119
882: l_current_fa_cost := p_cost;
883:
884: -- SECHAWLA 21-NOV-03 3262519 : update the tax book with residual value as asset cost
885: --------------------------------------- Adjustments begin-------------------------------------------
886:
887: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
888: IF p_tax_owner = 'LESSEE' THEN
886:
887: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
888: IF p_tax_owner = 'LESSEE' THEN
889: IF p_delta_cost <> 0 THEN --SECHAWLA 15-DEC-04 Bug # 4028371 : added this condition
890: --update the tax asset book with residual value as asset cost
891:
892: l_adj_trans_rec.transaction_subtype := 'AMORTIZED';
893: l_adj_asset_hdr_rec.asset_id := p_asset_id;
894: l_adj_asset_hdr_rec.book_type_code := p_tax_book;
1168: -- columns of okx_asset_liens_v
1169:
1170: x_return_status := okl_api.G_RET_STS_SUCCESS;
1171:
1172: -- SECHAWLA 21-NOV-03 3262519 : update the corporate book with residual value as asset cost
1173: --------------------------------------- Adjustments begin-------------------------------------------
1174:
1175: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
1176: IF p_tax_owner IN ('LESSOR','LESSEE') THEN
1174:
1175: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
1176: IF p_tax_owner IN ('LESSOR','LESSEE') THEN
1177: IF p_delta_cost <> 0 THEN --SECHAWLA 15-DEC-04 Bug # 4028371 : added this condition
1178: --update the tax asset book with residual value as asset cost
1179:
1180: l_adj_trans_rec.transaction_subtype := 'AMORTIZED';
1181: l_adj_asset_hdr_rec.asset_id := p_asset_id;
1182: l_adj_asset_hdr_rec.book_type_code := p_book_type_code;
1450: -- columns of okx_asset_liens_v
1451:
1452: x_return_status := okl_api.G_RET_STS_SUCCESS;
1453:
1454: -- SECHAWLA 21-NOV-03 3262519 : update the corporate book with residual value as asset cost
1455: --------------------------------------- Adjustments begin-------------------------------------------
1456:
1457: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
1458: IF p_tax_owner IN ('LESSOR','LESSEE') THEN
1456:
1457: -- p_tax_owner will have a value only if the contract is on direct finance or sales type of lease
1458: IF p_tax_owner IN ('LESSOR','LESSEE') THEN
1459: IF p_delta_cost <> 0 THEN --SECHAWLA 15-DEC-04 Bug # 4028371 : added this condition
1460: --update the tax asset book with residual value as asset cost
1461:
1462: l_adj_trans_rec.transaction_subtype := 'AMORTIZED';
1463: l_adj_asset_hdr_rec.asset_id := p_asset_id;
1464: l_adj_asset_hdr_rec.book_type_code := p_book_type_code;
1685: -- take care of the scenario where tax book cost is more than the corporate book cost
1686: -- 2) full tax book retirement when the corp book is not fully retired but tax book does not
1687: -- have enough cost. This takes care of the scenario where tax book cost is less than the corp book cost
1688: -- SECHAWLA 05-FEB-03 Bug # 2781557
1689: -- Moved the logic to check if the asset was added in the current open period, from individual cost and unit
1690: -- retirement procedures to this procedure.
1691: -- SECHAWLA 11-MAR-03
1692: -- assumed 0 amount for proceeds of sale, if null. Allowed negative values for proceeds of sale
1693: -- SECHAWLA 03-JUN-03 2999419: Use the retirement prorate convention set in Oracle
1692: -- assumed 0 amount for proceeds of sale, if null. Allowed negative values for proceeds of sale
1693: -- SECHAWLA 03-JUN-03 2999419: Use the retirement prorate convention set in Oracle
1694: -- Assets for a particular asset and book, instead of using the constant value "MID-MONTH"
1695: -- RMUNJULU 11-SEP-03 3061751 Added code for SERVICE_K_INTEGRATION
1696: -- SECHAWLA 21-NOV-03 3262519 Update the asset cost with residual value, for DF and Sales lease,
1697: -- before retiring the asset
1698: -- rmunjulu EDAT
1699: -- Added 2 new parameters and Changed code to
1700: -- 1. set date trn occured as quote eff date
1705: -- 6. set trn date as quote eff date to partial untis retirement
1706: -- 7. set trn date as quote eff date to cost retirement
1707: -- rmunjulu EDAT 23-Nov-04 Set back IB End date as sysdate
1708: -- rmunjulu EDAT 10-Jan-05 Pass quote eff date and quote accpt date to adjust/retire proc
1709: -- girao 18-Jan-2005 4106216 NVL the residual value in l_linesfullv_csr
1710: -- SECHAWLA 10-FEB-06 5016156 In case of termination w/o purchase, asset cost should
1711: -- be updated with NIV (not RV), through Off-lease transactions
1712: -- rbruno 04-sep-07 bug 5436987 Adjustment transaction should have amount in functional currency
1713: --
1851: WHERE khr.id = cle.chr_id
1852: AND lkhr.id = khr.id
1853: AND cle.id = p_financial_asset_id;
1854:
1855: -- get the residual value for the fin asset
1856: CURSOR l_linesfullv_csr(p_fin_asset_id IN NUMBER) IS
1857: SELECT name, NVL(residual_value,0) -- girao Bug 4106216 NVL the residual value
1858: FROM okl_k_lines_full_v
1859: WHERE id = p_fin_asset_id;
1853: AND cle.id = p_financial_asset_id;
1854:
1855: -- get the residual value for the fin asset
1856: CURSOR l_linesfullv_csr(p_fin_asset_id IN NUMBER) IS
1857: SELECT name, NVL(residual_value,0) -- girao Bug 4106216 NVL the residual value
1858: FROM okl_k_lines_full_v
1859: WHERE id = p_fin_asset_id;
1860:
1861: --SECHAWLA 10-FEB-06 5016156 : begin
1877: l_contract_number VARCHAR2(120);
1878: l_rulv_rec okl_rule_pub.rulv_rec_type;
1879: l_tax_owner VARCHAR2(10);
1880: l_delta_cost NUMBER;
1881: l_residual_value NUMBER;
1882: l_name VARCHAR2(150);
1883: l_cost NUMBER;
1884: --SECHAWLA 21-NOV-2003 3262519 : end new declarations
1885:
1980: RAISE OKC_API.G_EXCEPTION_ERROR;
1981: END IF;
1982:
1983: -- Get the sysdate
1984: SELECT SYSDATE INTO l_sys_date FROM DUAL;
1985:
1986: -- rmunjulu EDAT Added condition to default
1987: IF p_quote_eff_date IS NOT NULL
1988: AND p_quote_eff_date <> OKL_API.G_MISS_DATE THEN
2150: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or 'LESSOR'
2151: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
2152: END IF;
2153:
2154: -- get the residual value of the fin asset
2155: OPEN l_linesfullv_csr(p_financial_asset_id);
2156: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
2157: CLOSE l_linesfullv_csr;
2158:
2152: END IF;
2153:
2154: -- get the residual value of the fin asset
2155: OPEN l_linesfullv_csr(p_financial_asset_id);
2156: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
2157: CLOSE l_linesfullv_csr;
2158:
2159: IF l_residual_value IS NULL THEN
2160: x_return_status := OKL_API.G_RET_STS_ERROR;
2155: OPEN l_linesfullv_csr(p_financial_asset_id);
2156: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
2157: CLOSE l_linesfullv_csr;
2158:
2159: IF l_residual_value IS NULL THEN
2160: x_return_status := OKL_API.G_RET_STS_ERROR;
2161: -- Residual value is not defined for the asset
2162: OKC_API.set_message( p_app_name => 'OKL',
2163: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
2157: CLOSE l_linesfullv_csr;
2158:
2159: IF l_residual_value IS NULL THEN
2160: x_return_status := OKL_API.G_RET_STS_ERROR;
2161: -- Residual value is not defined for the asset
2162: OKC_API.set_message( p_app_name => 'OKL',
2163: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
2164: p_token1 => 'ASSET_NUMBER',
2165: p_token1_value => l_name);
2159: IF l_residual_value IS NULL THEN
2160: x_return_status := OKL_API.G_RET_STS_ERROR;
2161: -- Residual value is not defined for the asset
2162: OKC_API.set_message( p_app_name => 'OKL',
2163: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
2164: p_token1 => 'ASSET_NUMBER',
2165: p_token1_value => l_name);
2166:
2167:
2174:
2175: -- currency codes different so need for conversion
2176: IF l_contract_currency_code <> l_functional_currency_code THEN
2177:
2178: -- convert the residual value obtained to functional currency
2179: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
2180: p_khr_id => l_chr_id,
2181: p_to_currency => l_functional_currency_code,
2182: p_transaction_date => l_quote_eff_date,
2179: OKL_ACCOUNTING_UTIL.convert_to_functional_currency(
2180: p_khr_id => l_chr_id,
2181: p_to_currency => l_functional_currency_code,
2182: p_transaction_date => l_quote_eff_date,
2183: p_amount => l_residual_value, -- convert residual value from Contract to Functional currency
2184: x_return_status => l_return_status,
2185: x_contract_currency => l_contract_currency_code,
2186: x_currency_conversion_type => l_currency_conversion_type,
2187: x_currency_conversion_rate => l_currency_conversion_rate,
2187: x_currency_conversion_rate => l_currency_conversion_rate,
2188: x_currency_conversion_date => l_currency_conversion_date,
2189: x_converted_amount => l_converted_amount);
2190:
2191: l_residual_value := l_converted_amount; -- residual value is now converted to functional currency
2192:
2193: END IF;
2194: --rbruno 5436987 -- End
2195:
2193: END IF;
2194: --rbruno 5436987 -- End
2195:
2196:
2197: IF l_residual_value < 0 THEN
2198: x_return_status := OKL_API.G_RET_STS_ERROR;
2199: -- Residual value is negative for the asset
2200: OKC_API.set_message( p_app_name => 'OKL',
2201: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
2195:
2196:
2197: IF l_residual_value < 0 THEN
2198: x_return_status := OKL_API.G_RET_STS_ERROR;
2199: -- Residual value is negative for the asset
2200: OKC_API.set_message( p_app_name => 'OKL',
2201: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
2202: p_token1 => 'ASSET_NUMBER',
2203: p_token1_value => l_name);
2197: IF l_residual_value < 0 THEN
2198: x_return_status := OKL_API.G_RET_STS_ERROR;
2199: -- Residual value is negative for the asset
2200: OKC_API.set_message( p_app_name => 'OKL',
2201: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
2202: p_token1 => 'ASSET_NUMBER',
2203: p_token1_value => l_name);
2204:
2205:
2231: END LOOP;
2232:
2233: IF l_trx_status IS NULL THEN -- This means off-lease trx don't exist. It is termination with purchase
2234: --SECHAWLA 10-FEB-06 5016156: end
2235: l_delta_cost := l_residual_value - l_okxassetlines_rec.cost;
2236: --SECHAWLA 10-FEB-06 5016156 : begin
2237: ELSIF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
2238: x_return_status := OKL_API.G_RET_STS_ERROR;
2239: OKL_API.set_message( p_app_name => 'OKL',
2672:
2673: -- SECHAWLA 21-NOV-2003 3262519 : get the cost that is to be retired
2674: IF l_tax_owner = 'LESSEE' THEN -- tax owner will have a value for Direct Finance/Sales Lease only.
2675: -- Cost Adjustment will happen in tax book through do_cost_retirement
2676: -- Cost will become Residual Value
2677: l_cost := l_okxassetlines_rec.cost; -- Retire Asset Cost -- for bug 5760603 - Earlier RV
2678: ELSE -- tax owner = 'LESSOR' (cost adj does not happen in tax book)
2679: -- OR tax owner is null (not DF/Sales lease, no cost adjustment)
2680: l_cost := l_okxassetlines_rec.cost; -- Retire the current cost in FA -- this is FA Cost
2832:
2833: -- SECHAWLA 21-NOV-2003 3262519 : get the cost that is to be retired
2834: IF l_tax_owner = 'LESSEE' THEN -- tax owner will have a value for Direct Finance/Sales Lease only.
2835: -- Cost Adjustment will happen in tax book through do_cost_retirement
2836: -- Cost will become Residual Value
2837: l_cost := l_okxassetlines_rec.cost; -- for bug 5760603 -- Retire cost Not Rv
2838: ELSE -- tax owner = 'LESSOR' (cost adj does not happen in tax book)
2839: -- OR tax owner is null (not DF/Sales lease, no cost adjustment)
2840: l_cost := l_okxassetlines_rec.cost; -- cost to be considered is the curent cost
3483: -- take care of the scenario where tax book cost is more than the corporate book cost
3484: -- 2) full tax book retirement when the corp book is not fully retired but tax book does not
3485: -- have enough cost. This takes care of the scenario where tax book cost is less than the corp book cost
3486: -- SECHAWLA 05-FEB-03 Bug # 2781557
3487: -- Moved the logic to check if the asset was added in the current open period, from individual cost and unit
3488: -- retirement procedures to this procedure.
3489: -- SECHAWLA 11-MAR-03
3490: -- Removed the validation for NULL order quantity, as it is being NVLed to 1. Added a validation
3491: -- for unit_selling_price. If null, assigned 0 to sale_amount
3491: -- for unit_selling_price. If null, assigned 0 to sale_amount
3492: -- SECHAWLA 03-JUN-03 2999419: Use the retirement prorate convention set in Oracle
3493: -- Assets for a particular asset and book, instead of using the constant value "MID-MONTH"
3494: -- RMUNJULU 11-SEP-03 3061751 Added code for SERVICE_K_INTEGRATION
3495: -- SECHAWLA 21-NOV-03 3262519 Update the asset cost with residual value, for DF and Sales lease,
3496: -- before retiring the asset
3497: -- SECHAWLA 21-OCT-04 3924244 Modified procedure to work on order line instead of header
3498: -- girao 18-Jan-2005 4106216 NVL the residual value in l_linesfullv_csr
3499: -- SECHAWLA 10-FEB-06 5016156 in case of termination w/o purchase, asset cost should
3494: -- RMUNJULU 11-SEP-03 3061751 Added code for SERVICE_K_INTEGRATION
3495: -- SECHAWLA 21-NOV-03 3262519 Update the asset cost with residual value, for DF and Sales lease,
3496: -- before retiring the asset
3497: -- SECHAWLA 21-OCT-04 3924244 Modified procedure to work on order line instead of header
3498: -- girao 18-Jan-2005 4106216 NVL the residual value in l_linesfullv_csr
3499: -- SECHAWLA 10-FEB-06 5016156 in case of termination w/o purchase, asset cost should
3500: -- be updated with NIV (not RV), through Off-lease transactions
3501:
3502: -- End of comments
3664: WHERE khr.id = cle.chr_id
3665: AND lkhr.id = khr.id
3666: AND cle.id = p_financial_asset_id;
3667:
3668: -- get the residual value for the fin asset
3669: CURSOR l_linesfullv_csr(p_fin_asset_id IN NUMBER) IS
3670: SELECT name, NVL(residual_value,0) --girao bug 4106216 NVL the residual value
3671: FROM okl_k_lines_full_v
3672: WHERE id = p_fin_asset_id;
3666: AND cle.id = p_financial_asset_id;
3667:
3668: -- get the residual value for the fin asset
3669: CURSOR l_linesfullv_csr(p_fin_asset_id IN NUMBER) IS
3670: SELECT name, NVL(residual_value,0) --girao bug 4106216 NVL the residual value
3671: FROM okl_k_lines_full_v
3672: WHERE id = p_fin_asset_id;
3673:
3674: --SECHAWLA 10-FEB-06 5016156
3690: l_contract_number VARCHAR2(120);
3691: l_rulv_rec okl_rule_pub.rulv_rec_type;
3692: l_tax_owner VARCHAR2(10);
3693: l_delta_cost NUMBER;
3694: l_residual_value NUMBER;
3695: l_name VARCHAR2(150);
3696: l_cost NUMBER;
3697: --SECHAWLA 21-NOV-2003 3262519 : end new declarations
3698:
3777: RAISE OKC_API.G_EXCEPTION_ERROR;
3778: END IF;
3779:
3780: -- Get the sysdate
3781: SELECT SYSDATE INTO l_sys_date FROM DUAL;
3782:
3783: -- SECHAWLA 21-OCT-04 3924244
3784: IF p_order_line_Id IS NULL OR p_order_line_Id = OKL_API.G_MISS_NUM THEN
3785: x_return_status := OKL_API.G_RET_STS_ERROR;
3954: -- l_rulv_rec.RULE_INFORMATION1 will contain the value 'LESSEE' or 'LESSOR'
3955: l_tax_owner := l_rulv_rec.RULE_INFORMATION1;
3956: END IF;
3957:
3958: -- get the residual value of the fin asset
3959: OPEN l_linesfullv_csr(l_kle_id);
3960: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
3961: CLOSE l_linesfullv_csr;
3962:
3956: END IF;
3957:
3958: -- get the residual value of the fin asset
3959: OPEN l_linesfullv_csr(l_kle_id);
3960: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
3961: CLOSE l_linesfullv_csr;
3962:
3963: IF l_residual_value IS NULL THEN
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3959: OPEN l_linesfullv_csr(l_kle_id);
3960: FETCH l_linesfullv_csr INTO l_name, l_residual_value;
3961: CLOSE l_linesfullv_csr;
3962:
3963: IF l_residual_value IS NULL THEN
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: -- Residual value is not defined for the asset
3966: OKC_API.set_message( p_app_name => 'OKL',
3967: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3961: CLOSE l_linesfullv_csr;
3962:
3963: IF l_residual_value IS NULL THEN
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: -- Residual value is not defined for the asset
3966: OKC_API.set_message( p_app_name => 'OKL',
3967: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3968: p_token1 => 'ASSET_NUMBER',
3969: p_token1_value => l_name);
3963: IF l_residual_value IS NULL THEN
3964: x_return_status := OKL_API.G_RET_STS_ERROR;
3965: -- Residual value is not defined for the asset
3966: OKC_API.set_message( p_app_name => 'OKL',
3967: p_msg_name => 'OKL_AM_NO_RESIDUAL_VALUE',
3968: p_token1 => 'ASSET_NUMBER',
3969: p_token1_value => l_name);
3970:
3971:
3971:
3972: RAISE OKC_API.G_EXCEPTION_ERROR;
3973: END IF;
3974:
3975: IF l_residual_value < 0 THEN
3976: x_return_status := OKL_API.G_RET_STS_ERROR;
3977: -- Residual value is negative for the asset
3978: OKC_API.set_message( p_app_name => 'OKL',
3979: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
3973: END IF;
3974:
3975: IF l_residual_value < 0 THEN
3976: x_return_status := OKL_API.G_RET_STS_ERROR;
3977: -- Residual value is negative for the asset
3978: OKC_API.set_message( p_app_name => 'OKL',
3979: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
3980: p_token1 => 'ASSET_NUMBER',
3981: p_token1_value => l_name);
3975: IF l_residual_value < 0 THEN
3976: x_return_status := OKL_API.G_RET_STS_ERROR;
3977: -- Residual value is negative for the asset
3978: OKC_API.set_message( p_app_name => 'OKL',
3979: p_msg_name => 'OKL_AM_INVALID_RESIDUAL',
3980: p_token1 => 'ASSET_NUMBER',
3981: p_token1_value => l_name);
3982:
3983:
4011:
4012:
4013: IF l_trx_status IS NULL THEN -- This means off-lease trx don't exist. It is termination with purchase
4014: --SECHAWLA 10-FEB-06 5016156 : end
4015: l_delta_cost := l_residual_value - l_okxassetlines_rec.cost;
4016:
4017: --SECHAWLA 10-FEB-06 5016156 begin
4018: ELSIF l_trx_status IN ('ENTERED','ERROR') THEN -- if any trx has this status
4019: x_return_status := OKL_API.G_RET_STS_ERROR;
4438:
4439: -- SECHAWLA 21-NOV-2003 3262519 : get the cost that is to be retired
4440: IF l_tax_owner = 'LESSEE' THEN -- tax owner will have a value for Direct Finance/Sales Lease only.
4441: -- Cost Adjustment will happen in tax book through do_cost_retirement
4442: -- Cost will become Residual Value
4443: l_cost := l_okxassetlines_rec.cost; -- for bug 5760603 -- Retire cost Not Rv
4444: ELSE -- tax owner = 'LESSOR' (cost adj does not happen in tax book)
4445: -- OR tax owner is null (not DF/Sales lease, no cost adjustment)
4446: l_cost := l_okxassetlines_rec.cost; -- Retire the current cost in FA
4591: IF l_already_retired = 'N' THEN -- SECHAWLA 13-JAN-03 Bug # 2701440 : Added this condition to stop cost retirement of tax book if asset is already fully retierd in corp book
4592: -- SECHAWLA 21-NOV-2003 3262519 : get the cost that is to be retired
4593: IF l_tax_owner = 'LESSEE' THEN -- tax owner will have a value for Direct Finance/Sales Lease only.
4594: -- Cost Adjustment will happen in tax book through do_cost_retirement
4595: -- Cost will become Residual Value
4596: l_cost := l_okxassetlines_rec.cost; -- for bug 5760603 -- Retire cost Not Rv
4597: ELSE -- tax owner = 'LESSOR' (cost adj does not happen in tax book)
4598: -- OR tax owner is null (not DF/Sales lease, no cost adjustment)
4599: l_cost := l_okxassetlines_rec.cost; -- cost to be considered is the curent cost