The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT BK.GROUP_ASSET_ID
FROM FA_BOOKS BK,FA_DEPRN_PERIODS DP
WHERE BK.ASSET_ID = PX_SRC_ASSET_HDR_REC.ASSET_ID
AND BK.BOOK_TYPE_CODE = PX_SRC_ASSET_HDR_REC.BOOK_TYPE_CODE
AND BK.DATE_INEFFECTIVE IS NULL
AND BK.GROUP_ASSET_ID IS NOT NULL
AND DP.BOOK_TYPE_CODE = BK.BOOK_TYPE_CODE
AND DP.PERIOD_CLOSE_DATE IS NULL
AND DP.CALENDAR_PERIOD_OPEN_DATE > PX_SRC_TRANS_REC.AMORTIZATION_START_DATE;
SELECT BK.GROUP_ASSET_ID
FROM FA_BOOKS BK,FA_DEPRN_PERIODS DP
WHERE BK.ASSET_ID = PX_DEST_ASSET_HDR_REC.ASSET_ID
AND BK.BOOK_TYPE_CODE = PX_DEST_ASSET_HDR_REC.BOOK_TYPE_CODE
AND BK.DATE_INEFFECTIVE IS NULL
AND BK.GROUP_ASSET_ID IS NOT NULL
AND DP.BOOK_TYPE_CODE = BK.BOOK_TYPE_CODE
AND DP.PERIOD_CLOSE_DATE IS NULL
AND DP.CALENDAR_PERIOD_OPEN_DATE > PX_DEST_TRANS_REC.AMORTIZATION_START_DATE;
FA_INVOICE_TRANSACTIONS_PKG.Insert_Row
(X_Rowid => l_rowid,
X_Invoice_Transaction_Id => l_inv_trans_rec.invoice_transaction_id ,
X_Book_Type_Code => px_src_asset_hdr_rec.book_type_code,
X_Transaction_Type => l_inv_trans_rec.transaction_type,
X_Date_Effective => sysdate,
X_Calling_Fn => l_calling_fn
,p_log_level_rec => g_log_level_rec);
select asset_type,
current_units
into l_from_asset_type,
l_from_current_units
from fa_additions_b
where asset_id = px_src_asset_hdr_rec.asset_id;
select asset_type,
current_units
into l_to_asset_type,
l_to_current_units
from fa_additions_b
where asset_id = px_dest_asset_hdr_rec.asset_id;
select fa_trx_references_s.nextval
into px_src_trans_rec.trx_reference_id
from dual;
select fa_transaction_headers_s.nextval
into px_src_trans_rec.transaction_header_id
from dual;
select fa_transaction_headers_s.nextval
into px_dest_trans_rec.transaction_header_id
from dual;
px_src_trans_rec.who_info.last_update_date := sysdate;
create/update/delete event for secondary ledger*/
l_secondary_sob_id := FA_XLA_EVENTS_PVT.get_secondary_sob_id(px_src_asset_hdr_rec.book_type_code);
fa_trx_references_pkg.insert_row
(X_Rowid => l_rowid,
X_Trx_Reference_Id => px_src_trans_rec.trx_reference_id,
X_Book_Type_Code => px_src_asset_hdr_rec.book_type_code,
X_Src_Asset_Id => px_src_asset_hdr_rec.asset_id,
X_Src_Transaction_Header_Id => px_src_trans_rec.transaction_header_id,
X_Dest_Asset_Id => px_dest_asset_hdr_rec.asset_id,
X_Dest_Transaction_Header_Id => px_dest_trans_rec.transaction_header_id,
X_Member_Asset_Id => null,
X_Member_Transaction_Header_Id => null,
X_Transaction_Type => 'INVOICE TRANSFER',
X_Src_Transaction_Subtype => px_src_trans_rec.transaction_subtype,
X_Dest_Transaction_Subtype => px_dest_trans_rec.transaction_subtype,
X_Src_Amortization_Start_Date => px_src_trans_rec.amortization_start_date,
X_Dest_Amortization_Start_Date => px_dest_trans_rec.amortization_start_date,
X_Reserve_Transfer_Amount => null,
X_Src_Expense_Amount => null,
X_Dest_Expense_Amount => null,
X_Src_Eofy_Reserve => null,
X_Dest_Eofy_Reserve => null,
X_event_id => px_src_trans_rec.event_id,
X_Invoice_Transaction_Id => l_inv_trans_rec.invoice_transaction_id,
X_Creation_Date => px_src_trans_rec.who_info.creation_date,
X_Created_By => px_src_trans_rec.who_info.created_by,
X_Last_Update_Date => px_src_trans_rec.who_info.last_update_date,
X_Last_Updated_By => px_src_trans_rec.who_info.last_updated_by,
X_Last_Update_Login => px_src_trans_rec.who_info.last_update_login,
X_Return_Status => l_return_status_bool,
X_Calling_Fn => l_calling_fn,
p_log_level_rec => g_log_level_rec);
px_dest_trans_rec.who_info.last_update_date := sysdate;
select sum(decode(adjustment_type,
'INTERCO AR', decode(debit_credit_flag,
'DR', adjustment_amount,
-adjustment_amount),
'INTERCO AP', decode(debit_credit_flag,
'CR', adjustment_amount,
-adjustment_amount),
decode(debit_credit_flag,
'CR', adjustment_amount,
-adjustment_amount)))
from fa_adjustments
where asset_id = p_asset_id
and book_type_code = p_book_type_code
and period_counter_created = p_period_counter
and transaction_header_id = p_thid
and adjustment_type like p_adj_type;
select sum(decode(adjustment_type,
'INTERCO AR', decode(debit_credit_flag,
'DR', adjustment_amount,
-adjustment_amount),
'INTERCO AP', decode(debit_credit_flag,
'CR', adjustment_amount,
-adjustment_amount),
decode(debit_credit_flag,
'CR', adjustment_amount,
-adjustment_amount)))
from fa_mc_adjustments
where asset_id = p_asset_id
and book_type_code = p_book_type_code
and period_counter_created = p_period_counter
and transaction_header_id = p_thid
and adjustment_type like p_adj_type
and set_of_books_id = l_set_of_books_id;
l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
l_adj.selection_thid := 0;
l_adj.selection_retid := 0;
l_adj.last_update_date := p_src_trans_rec.who_info.last_update_date;
p_src_trans_rec.who_info.last_update_date,
p_src_trans_rec.who_info.last_updated_by,
p_src_trans_rec.who_info.last_update_login, p_log_level_rec => p_log_level_rec) then
raise inv_xfr_err;
l_adj.selection_mode := FA_ADJUST_TYPE_PKG.FA_AJ_ACTIVE;
l_adj.selection_thid := 0;
l_adj.selection_retid := 0;
l_adj.last_update_date := p_dest_trans_rec.who_info.last_update_date;
p_src_trans_rec.who_info.last_update_date,
p_src_trans_rec.who_info.last_updated_by,
p_src_trans_rec.who_info.last_update_login, p_log_level_rec => p_log_level_rec) then
raise inv_xfr_err;
select asset_type,current_units
into l_from_asset_type,l_from_current_units
from fa_additions_b
where asset_id = l_src_asset_hdr_rec.asset_id;
select asset_type,current_units
into l_to_asset_type,l_to_current_units
from fa_additions_b
where asset_id = l_dest_asset_hdr_rec.asset_id;
delete from fa_adjustments
where asset_id in (l_src_asset_hdr_rec.asset_id,l_dest_asset_hdr_rec.asset_id)
and book_type_code = l_src_asset_hdr_rec.book_type_code
and period_counter_created = l_current_period_counter
and transaction_header_id in (l_dest_trans_rec.transaction_header_id,l_src_trans_rec.transaction_header_id)
and adjustment_type = 'COST CLEARING';
delete from fa_mc_adjustments
where asset_id in (l_src_asset_hdr_rec.asset_id,l_dest_asset_hdr_rec.asset_id)
and book_type_code = l_src_asset_hdr_rec.book_type_code
and period_counter_created = l_current_period_counter
and transaction_header_id in (l_dest_trans_rec.transaction_header_id,l_src_trans_rec.transaction_header_id)
and adjustment_type = 'COST CLEARING';
SELECT CODE_COMBINATION_ID
INTO l_clearing_ccid
FROM FA_ADJUSTMENTS
WHERE ASSET_ID = l_src_asset_hdr_rec.asset_id
AND BOOK_TYPE_CODE = l_src_asset_hdr_rec.book_type_code
AND TRANSACTION_HEADER_ID = l_src_trans_rec.transaction_header_id
AND ADJUSTMENT_TYPE = 'COST CLEARING'
AND ROWNUM < 2;
delete from fa_adjustments
where asset_id in (l_src_asset_hdr_rec.asset_id,l_dest_asset_hdr_rec.asset_id)
and book_type_code = l_src_asset_hdr_rec.book_type_code
and period_counter_created = l_current_period_counter
and transaction_header_id in (l_dest_trans_rec.transaction_header_id,l_src_trans_rec.transaction_header_id)
and adjustment_type = 'COST CLEARING';
delete from fa_mc_adjustments
where asset_id in (l_src_asset_hdr_rec.asset_id,l_dest_asset_hdr_rec.asset_id)
and book_type_code = l_src_asset_hdr_rec.book_type_code
and period_counter_created = l_current_period_counter
and transaction_header_id in (l_dest_trans_rec.transaction_header_id,l_src_trans_rec.transaction_header_id)
and adjustment_type = 'COST CLEARING';
UPDATE FA_ADJUSTMENTS
SET CODE_COMBINATION_ID = l_clearing_ccid,
DEBIT_CREDIT_FLAG = DECODE(DEBIT_CREDIT_FLAG, 'CR','DR','CR'),
ADJUSTMENT_AMOUNT = -1 * ADJUSTMENT_AMOUNT
WHERE ASSET_ID = l_src_asset_hdr_rec.asset_id
AND BOOK_TYPE_CODE = l_src_asset_hdr_rec.book_type_code
AND TRANSACTION_HEADER_ID = l_src_trans_rec.transaction_header_id
AND ADJUSTMENT_TYPE = 'COST CLEARING';
UPDATE FA_MC_ADJUSTMENTS
SET CODE_COMBINATION_ID = l_clearing_ccid,
DEBIT_CREDIT_FLAG = DECODE(DEBIT_CREDIT_FLAG, 'CR','DR','CR'),
ADJUSTMENT_AMOUNT = -1 * ADJUSTMENT_AMOUNT
WHERE ASSET_ID = l_src_asset_hdr_rec.asset_id
AND BOOK_TYPE_CODE = l_src_asset_hdr_rec.book_type_code
AND TRANSACTION_HEADER_ID = l_src_trans_rec.transaction_header_id
AND ADJUSTMENT_TYPE = 'COST CLEARING';
UPDATE FA_ADJUSTMENTS
SET CODE_COMBINATION_ID = l_clearing_ccid,
DEBIT_CREDIT_FLAG = DECODE(DEBIT_CREDIT_FLAG, 'CR','DR','CR'),
ADJUSTMENT_AMOUNT = -1 * ADJUSTMENT_AMOUNT
WHERE ASSET_ID = l_dest_asset_hdr_rec.asset_id
AND BOOK_TYPE_CODE = l_dest_asset_hdr_rec.book_type_code
AND TRANSACTION_HEADER_ID = l_dest_trans_rec.transaction_header_id
AND ADJUSTMENT_TYPE = 'COST CLEARING';
UPDATE FA_MC_ADJUSTMENTS
SET CODE_COMBINATION_ID = l_clearing_ccid,
DEBIT_CREDIT_FLAG = DECODE(DEBIT_CREDIT_FLAG, 'CR','DR','CR'),
ADJUSTMENT_AMOUNT = -1 * ADJUSTMENT_AMOUNT
WHERE ASSET_ID = l_dest_asset_hdr_rec.asset_id
AND BOOK_TYPE_CODE = l_dest_asset_hdr_rec.book_type_code
AND TRANSACTION_HEADER_ID = l_dest_trans_rec.transaction_header_id
AND ADJUSTMENT_TYPE = 'COST CLEARING';
update fa_adjustments
set source_dest_code = decode(transaction_header_Id,l_src_trans_rec.transaction_header_id, 'SOURCE','DEST')
where transaction_header_id in (l_src_trans_rec.transaction_header_id,l_dest_trans_rec.transaction_header_id);
update fa_mc_adjustments
set source_dest_code =decode(transaction_header_Id,l_src_trans_rec.transaction_header_id, 'SOURCE','DEST')
where transaction_header_id in (l_src_trans_rec.transaction_header_id,l_dest_trans_rec.transaction_header_id);