The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_retirement (
p_ext_ret_rec IN OUT NOCOPY fa_mass_ext_retirements%ROWTYPE
, x_return_status OUT NOCOPY VARCHAR2
, x_error_msg OUT NOCOPY VARCHAR2)
IS
l_api_name VARCHAR2(100) := 'CSE_ASSET_ADJUST_PKG.insert_retirement' ;
cse_util_pkg.write_log('Begin --Insert Retirements ');
INSERT INTO fa_mass_ext_retirements (
BATCH_NAME ,
MASS_EXTERNAL_RETIRE_ID ,
RETIREMENT_ID ,
BOOK_TYPE_CODE ,
REVIEW_STATUS ,
ASSET_ID ,
DISTRIBUTION_ID ,
TRANSACTION_NAME ,
DATE_RETIRED ,
DATE_EFFECTIVE ,
COST_RETIRED ,
RETIREMENT_PRORATE_CONVENTION ,
UNITS ,
PERCENTAGE ,
COST_OF_REMOVAL ,
PROCEEDS_OF_SALE ,
RETIREMENT_TYPE_CODE ,
REFERENCE_NUM ,
SOLD_TO ,
TRADE_IN_ASSET_ID ,
CALC_GAIN_LOSS_FLAG,
STL_METHOD_CODE ,
STL_LIFE_IN_MONTHS ,
STL_DEPRN_AMOUNT ,
CREATED_BY ,
CREATION_DATE ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN )
VALUES
(p_ext_ret_rec.BATCH_NAME ,
p_ext_ret_rec.MASS_EXTERNAL_RETIRE_ID ,
p_ext_ret_rec.RETIREMENT_ID ,
p_ext_ret_rec.BOOK_TYPE_CODE ,
p_ext_ret_rec.REVIEW_STATUS ,
p_ext_ret_rec.ASSET_ID ,
p_ext_ret_rec.DISTRIBUTION_ID ,
p_ext_ret_rec.TRANSACTION_NAME ,
p_ext_ret_rec.DATE_RETIRED ,
p_ext_ret_rec.DATE_EFFECTIVE ,
p_ext_ret_rec.COST_RETIRED ,
p_ext_ret_rec.RETIREMENT_PRORATE_CONVENTION ,
p_ext_ret_rec.UNITS ,
p_ext_ret_rec.PERCENTAGE ,
p_ext_ret_rec.COST_OF_REMOVAL ,
--p_ext_ret_rec.PROCEEDS_OF_SALE ,
DECODE(p_ext_ret_rec.PROCEEDS_OF_SALE,fnd_api.g_miss_num,null,p_ext_ret_rec.PROCEEDS_OF_SALE), --bug 10095659
p_ext_ret_rec.RETIREMENT_TYPE_CODE ,
p_ext_ret_rec.REFERENCE_NUM ,
p_ext_ret_rec.SOLD_TO ,
p_ext_ret_rec.TRADE_IN_ASSET_ID ,
p_ext_ret_rec.CALC_GAIN_LOSS_FLAG,
p_ext_ret_rec.STL_METHOD_CODE ,
p_ext_ret_rec.STL_LIFE_IN_MONTHS ,
p_ext_ret_rec.STL_DEPRN_AMOUNT ,
p_ext_ret_rec.CREATED_BY ,
p_ext_ret_rec.CREATION_DATE ,
p_ext_ret_rec.LAST_UPDATED_BY ,
p_ext_ret_rec.LAST_UPDATE_DATE ,
p_ext_ret_rec.LAST_UPDATE_LOGIN ) ;
END insert_retirement ;
SELECT source_line_id
, fixed_assets_cost cost
FROM fa_asset_invoices
WHERE SIGN(fixed_assets_cost) = SIGN(p_mtl_cost)
AND NVL(attribute15,'N') = 'Y'
AND date_ineffective IS NULL
AND asset_id = p_asset_id ;
SELECT source_line_id
, fixed_assets_cost cost
FROM fa_asset_invoices
WHERE SIGN(fixed_assets_cost) = SIGN(p_mtl_cost)
AND NVL(attribute15,'N') <> 'Y'
AND date_ineffective IS NULL
AND asset_id = p_asset_id ;
INSERT INTO fa_ext_inv_retirements (
mass_external_retire_id
, source_line_id
, cost_retired )
VALUES ( p_mass_ext_retire_id
, mtl_src_lines_rec.source_line_id
, l_cost) ;
INSERT INTO fa_ext_inv_retirements (
mass_external_retire_id
, source_line_id
, cost_retired )
VALUES ( p_mass_ext_retire_id
, non_mtl_src_lines_rec.source_line_id
, l_cost) ;