The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_inst_asset(
px_inst_asset_rec IN OUT nocopy csi_datastructures_pub.instance_asset_rec,
px_csi_txn_rec IN OUT nocopy csi_datastructures_pub.transaction_rec,
x_return_status OUT nocopy varchar2)
IS
l_lookup_tbl csi_asset_pvt.lookup_tbl;
SELECT object_version_number
INTO px_inst_asset_rec.object_version_number
FROM csi_i_assets
WHERE instance_asset_id = px_inst_asset_rec.instance_asset_id;
csi_asset_pvt.update_instance_asset (
p_api_version => 1.0,
p_commit => fnd_api.g_false,
p_init_msg_list => fnd_api.g_true,
p_validation_level => fnd_api.g_valid_level_full,
p_instance_asset_rec => px_inst_asset_rec,
p_txn_rec => px_csi_txn_rec,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_lookup_tbl => l_lookup_tbl,
p_asset_count_rec => l_asset_count_rec,
p_asset_id_tbl => l_asset_id_tbl,
p_asset_loc_tbl => l_asset_loc_tbl);
END update_inst_asset;
l_inst_asset_qry_rec.update_status := 'IN_SERVICE';
update_inst_asset(
px_inst_asset_rec => l_inst_asset_rec,
px_csi_txn_rec => px_csi_txn_rec,
x_return_status => l_return_status);
l_inst_asset_rec.update_status := 'IN_SERVICE';
update_inst_asset(
px_inst_asset_rec => l_inst_asset_rec,
px_csi_txn_rec => px_csi_txn_rec,
x_return_status => l_return_status);
l_inst_asset_rec.update_status := 'RETIRED';
update_inst_asset(
px_inst_asset_rec => l_inst_asset_rec,
px_csi_txn_rec => px_csi_txn_rec,
x_return_status => l_return_status);
update_inst_asset(
px_inst_asset_rec => l_inst_asset_rec,
px_csi_txn_rec => px_csi_txn_rec,
x_return_status => l_return_status);
l_inst_asset_rec.update_status := 'IN_SERVICE';
l_inst_asset_qry_rec.update_status := 'IN_SERVICE';
SELECT distribution_id,
units_assigned,
transaction_units,
location_id,
assigned_to
FROM fa_distribution_history
WHERE retirement_id = p_retirement_id;
l_inst_asset_qry_rec.update_status := 'RETIRED';
SELECT fcbd.retirement_prorate_convention
FROM fa_category_book_defaults fcbd,
fa_books fb,
fa_additions_b fab
WHERE fab.asset_id = p_asset_id
AND fb.asset_id = fab.asset_id
and fb.book_type_code = p_book_type_code
AND fb.date_ineffective is null
AND fcbd.book_type_code = fb.book_type_code
AND fcbd.category_id = fab.asset_category_id;
SELECT distribution_id,
assigned_to,
units_assigned
FROM fa_distribution_history
WHERE asset_id = p_asset_id
AND book_type_code = p_book_type_code
AND location_id = p_fa_location_id
AND date_ineffective is null;
SELECT fa_mass_ext_retirements_s.nextval
INTO l_mass_ext_retire_id
FROM sys.dual ;
l_ext_ret_rec.last_updated_by := fnd_global.user_id;
l_ext_ret_rec.last_update_date := sysdate;
l_ext_ret_rec.last_update_login := fnd_global.login_id;
cse_asset_adjust_pkg.insert_retirement(
p_ext_ret_rec => l_ext_ret_rec,
x_return_status => l_return_status,
x_error_msg => l_error_message);