The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION delete_asset_events
(px_asset_hdr_rec IN FA_API_TYPES.asset_hdr_rec_type
,p_asset_type_rec IN fa_api_types.asset_type_rec_type
,p_log_level_rec IN fa_api_types.log_level_rec_type default null) RETURN BOOLEAN;
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;
if not delete_asset_events (px_asset_hdr_rec
,p_asset_type_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_DEPRN_EVENTS
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;
FUNCTION delete_asset_events (px_asset_hdr_rec IN FA_API_TYPES.asset_hdr_rec_type,
p_asset_type_rec IN fa_api_types.asset_type_rec_type,
p_log_level_rec IN fa_api_types.log_level_rec_type default null) RETURN BOOLEAN IS
del_err EXCEPTION;
l_calling_fn varchar2(80) := 'fa_delete_pub.delete_asset_events';
select th.transaction_header_id, th.event_id, th.book_type_code
from fa_transaction_headers th
where th.book_type_code = px_asset_hdr_rec.book_type_code
and th.asset_id = px_asset_hdr_rec.asset_id
and th.event_id is not null
union
select en.source_id_int_1, ev.event_id, en.valuation_method
from xla_transaction_entities en, xla_events ev,
fa_transaction_headers th, fa_book_controls bc
where bc.book_class = 'TAX'
and bc.date_ineffective is null
and ev.entity_id = en.entity_id
and ev.application_id = 140
and ev.event_status_code <> 'P'
and th.book_type_code = bc.distribution_source_book
and th.asset_id = px_asset_hdr_rec.asset_id
and nvl(en.source_id_int_1, (-99)) = th.transaction_header_id /* Modified for Bug 12583005 */
and en.valuation_method = bc.book_type_code
and en.entity_code = 'TRANSACTIONS'
and en.ledger_id = bc.set_of_books_id
and en.application_id = 140
and en.source_id_int_1 is not null;
select event_id,
period_counter,
deprn_run_id
from fa_deprn_events
where asset_id = px_asset_hdr_rec.asset_id
and book_type_code = px_asset_hdr_rec.book_type_code;
if not fa_xla_events_pvt.delete_transaction_event
(p_ledger_id => px_asset_hdr_rec.set_of_books_id,
p_transaction_header_id => trx_rec.transaction_header_id,
p_book_type_code => trx_rec.book_type_code,
p_asset_type => p_asset_type_rec.asset_type,
p_calling_fn => l_calling_fn,
p_log_level_rec => p_log_level_rec) then
raise del_err;
if not fa_xla_events_pvt.delete_deprn_event
(p_event_id =>deprn_rec.event_id,
p_ledger_id =>px_asset_hdr_rec.set_of_books_id,
p_asset_id =>px_asset_hdr_rec.asset_id,
p_book_type_code =>px_asset_hdr_rec.book_type_code,
p_period_counter =>deprn_rec.period_counter,
p_deprn_run_id =>deprn_rec.deprn_run_id,
p_calling_fn =>l_calling_fn,
p_log_level_rec =>p_log_level_rec) then
raise del_err;
END delete_asset_events;