The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_delete
(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_calling_fn IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
px_asset_hdr_rec IN OUT NOCOPY FA_API_TYPES.asset_hdr_rec_type) IS
CURSOR c_tax_books IS
select distinct book_type_code
from fa_books
where asset_id = px_asset_hdr_rec.asset_id
/*code fix for bug no.3768406.Changed the field from date_effective to date_ineffective*/
and date_ineffective is null;
l_calling_fn VARCHAR2(35) := 'fa_deletion_pub.do_delete';
SAVEPOINT do_delete;
select bk.book_type_code
into px_asset_hdr_rec.book_type_code
from fa_books bk,
fa_book_controls bc
where bk.asset_id = px_asset_hdr_rec.asset_id
and bk.date_ineffective is null
and bk.book_type_code = bc.book_type_code
and bc.book_class = 'CORPORATE';
ROLLBACK TO do_delete;
ROLLBACK TO do_delete;
END do_delete;
l_calling_fn varchar2(30) := 'fa_delete_pub.do_all_books';
SELECT INVOICE_TRANSACTION_ID_IN,
INVOICE_TRANSACTION_ID_OUT
FROM FA_ASSET_INVOICES
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
X_trx_type => 'DELETE',
X_trx_date => sysdate,
X_init_message_flag => 'NO',
p_log_level_rec => p_log_level_rec) then
raise del_err;
DELETE FROM FA_ADJUSTMENTS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_BOOKS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_DEPRN_DETAIL
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_DEPRN_SUMMARY
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_RETIREMENTS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_TRANSACTION_HEADERS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_MC_ADJUSTMENTS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_MC_BOOKS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_MC_DEPRN_DETAIL
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_MC_DEPRN_SUMMARY
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_MC_RETIREMENTS
WHERE Asset_Id = px_asset_hdr_rec.asset_id
AND book_Type_Code = px_asset_hdr_rec.book_type_code;
DELETE FROM FA_TRANSFER_DETAILS
WHERE ( DISTRIBUTION_ID, transfer_header_id) IN
( SELECT DISTRIBUTION_ID, transaction_header_id_in transfer_header_id
FROM FA_DISTRIBUTION_HISTORY
WHERE ASSET_ID = px_asset_hdr_rec.asset_id);
DELETE FROM FA_DISTRIBUTION_HISTORY
WHERE Asset_Id = px_asset_hdr_rec.asset_id;
DELETE FROM FA_ASSET_HISTORY
WHERE Asset_Id = px_asset_hdr_rec.asset_id;
FA_ADDITIONS_PKG.DELETE_ROW
(X_Rowid => l_rowid,
X_Asset_id => px_asset_hdr_rec.asset_id,
X_Calling_Fn => l_calling_fn
,p_log_level_rec => p_log_level_rec);
DELETE FROM FA_ASSET_INVOICES
WHERE Asset_Id = px_asset_hdr_rec.asset_id;
DELETE FROM FA_MC_ASSET_INVOICES
WHERE Asset_Id = px_asset_hdr_rec.asset_id;
DELETE FROM FA_PERIODIC_PRODUCTION WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
DELETE FROM fa_add_warranties
WHERE asset_id= px_asset_hdr_rec.asset_id;
FA_LEASES_PKG.Delete_Row
(X_Lease_Id => p_asset_desc_rec.lease_id,
X_Calling_Fn => l_calling_fn
,p_log_level_rec => p_log_level_rec);
DELETE FROM FA_CAPITAL_BUDGET WHERE ASSET_ID = px_asset_hdr_rec.asset_id ;
DELETE FROM FA_ACE_BOOKS
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
DELETE FROM FA_BALANCES_REPORT
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
DELETE FROM FA_DEFERRED_DEPRN
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
DELETE FROM FA_MASS_REVALUATION_RULES
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;
DELETE FROM FA_RESERVE_LEDGER
WHERE ASSET_ID = px_asset_hdr_rec.asset_id;