The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION insert_record
(p_src_ledger_id IN NUMBER,
p_alc_ledger_id IN NUMBER,
p_src_currency IN VARCHAR2,
p_alc_currency IN VARCHAR2,
p_book_type_code IN VARCHAR2) RETURN BOOLEAN;
select book_type_code
from fa_book_controls
where set_of_books_id = p_src_ledger_id;
if not insert_record
(p_src_ledger_id => p_src_ledger_id,
p_alc_ledger_id => p_alc_ledger_id,
p_src_currency => p_src_currency,
p_alc_currency => p_alc_currency,
p_book_type_code => l_book_type_code(i)) then
raise error_found;
select lg.ledger_id,
lg.currency_code
into l_src_ledger_id,
l_src_currency
from fa_book_controls bc,
gl_ledgers lg
where bc.book_type_code = p_book_type_code
and lg.ledger_id = bc.set_of_books_id;
if not insert_record
(p_src_ledger_id => l_src_ledger_id,
p_alc_ledger_id => l_alc_ledger_list(i).r_sob_id,
p_src_currency => l_src_currency,
p_alc_currency => l_alc_ledger_list(i).r_sob_curr,
p_book_type_code => p_book_type_code) then
raise error_found;
FUNCTION insert_record
(p_src_ledger_id IN NUMBER,
p_alc_ledger_id IN NUMBER,
p_src_currency IN VARCHAR2,
p_alc_currency IN VARCHAR2,
p_book_type_code IN VARCHAR2) RETURN BOOLEAN IS
-- LPOON: Remove the local variables for source and ALC ledger currencies
-- as they're passed as parameters instead of getting them by APIs
l_retired_status varchar2(1) := 'C';
l_calling_fn VARCHAR2(35) := 'fa_mc_bc_pkg.insert_record';
select mass_request_id
into l_mass_id
from fa_book_controls
where book_type_code = p_book_type_code
and deprn_status = 'C';
select mass_request_id
into l_mass_id
from fa_book_controls
where book_type_code = p_book_type_code
and mass_request_id is null
for update of mass_request_id
NOWAIT;
select 'N'
into l_mrc_converted_flag
from dual
where exists
(select book_type_code
from fa_books
where book_type_code = p_book_type_code);
select power(10,(1-precision))
into l_nbv_amount_threshold
from fnd_currencies a
where currency_code = p_alc_currency;
select last_deprn_run_date,
last_period_counter,
current_fiscal_year
into l_last_deprn_run_date,
l_last_period_counter,
l_current_fiscal_year
from fa_book_controls
where book_type_code = p_book_type_code;
SELECT 'Y'
INTO l_exist_flag
FROM FA_MC_BOOK_CONTROLS
WHERE set_of_books_id = p_alc_ledger_id
AND book_type_code = p_book_type_code;
'inserting',
'mc book controls record',
p_log_level_rec => g_log_level_rec);
INSERT INTO FA_MC_BOOK_CONTROLS
(SET_OF_BOOKS_ID ,
BOOK_TYPE_CODE ,
CURRENCY_CODE ,
DEPRN_STATUS ,
DEPRN_REQUEST_ID ,
LAST_PERIOD_COUNTER ,
LAST_DEPRN_RUN_DATE ,
CURRENT_FISCAL_YEAR ,
RETIRED_STATUS ,
RETIRED_REQUEST_ID ,
PRIMARY_SET_OF_BOOKS_ID ,
PRIMARY_CURRENCY_CODE ,
SOURCE_RETIRED_STATUS ,
SOURCE_RETIRED_REQUEST_ID ,
MRC_CONVERTED_FLAG ,
ENABLED_FLAG ,
NBV_AMOUNT_THRESHOLD ,
LAST_UPDATED_BY ,
LAST_UPDATE_DATE ,
LAST_UPDATE_LOGIN ,
CONVERSION_STATUS ,
MASS_REQUEST_ID
) values (
p_alc_ledger_id ,
p_book_type_code ,
p_alc_currency ,
'C' ,
NULL ,
l_last_period_counter ,
l_last_deprn_run_date ,
l_current_fiscal_year ,
l_retired_status ,
0 ,
p_src_ledger_id ,
p_src_currency ,
l_source_retired_status ,
0 ,
l_mrc_converted_flag ,
'Y' ,
l_nbv_amount_threshold ,
fnd_global.user_id ,
sysdate ,
fnd_global.login_id ,
NULL ,
NULL
);
'inserting',
'mc deprn periods records',
p_log_level_rec => g_log_level_rec);
INSERT INTO FA_MC_DEPRN_PERIODS(
SET_OF_BOOKS_ID,
BOOK_TYPE_CODE,
PERIOD_NAME,
PERIOD_COUNTER,
FISCAL_YEAR,
PERIOD_NUM,
PERIOD_OPEN_DATE,
PERIOD_CLOSE_DATE,
DEPRECIATION_BATCH_ID,
RETIREMENT_BATCH_ID,
RECLASS_BATCH_ID,
TRANSFER_BATCH_ID,
ADDITION_BATCH_ID,
ADJUSTMENT_BATCH_ID,
DEFERRED_DEPRN_BATCH_ID,
CALENDAR_PERIOD_OPEN_DATE,
CALENDAR_PERIOD_CLOSE_DATE,
CIP_ADDITION_BATCH_ID,
CIP_ADJUSTMENT_BATCH_ID,
CIP_RECLASS_BATCH_ID,
CIP_RETIREMENT_BATCH_ID,
CIP_REVAL_BATCH_ID,
CIP_TRANSFER_BATCH_ID,
REVAL_BATCH_ID,
DEPRN_ADJUSTMENT_BATCH_ID)
SELECT p_alc_ledger_id,
p_book_type_code,
PERIOD_NAME,
PERIOD_COUNTER,
FISCAL_YEAR,
PERIOD_NUM,
PERIOD_OPEN_DATE,
PERIOD_CLOSE_DATE,
DEPRECIATION_BATCH_ID,
RETIREMENT_BATCH_ID,
RECLASS_BATCH_ID,
TRANSFER_BATCH_ID,
ADDITION_BATCH_ID,
ADJUSTMENT_BATCH_ID,
DEFERRED_DEPRN_BATCH_ID,
CALENDAR_PERIOD_OPEN_DATE,
CALENDAR_PERIOD_CLOSE_DATE,
CIP_ADDITION_BATCH_ID,
CIP_ADJUSTMENT_BATCH_ID,
CIP_RECLASS_BATCH_ID,
CIP_RETIREMENT_BATCH_ID,
CIP_REVAL_BATCH_ID,
CIP_TRANSFER_BATCH_ID,
REVAL_BATCH_ID,
DEPRN_ADJUSTMENT_BATCH_ID
FROM FA_DEPRN_PERIODS
WHERE BOOK_TYPE_CODE = p_book_type_code;
UPDATE FA_MC_BOOK_CONTROLS
SET CURRENCY_CODE = p_alc_currency,
NBV_AMOUNT_THRESHOLD = l_nbv_amount_threshold
WHERE set_of_books_id = p_alc_ledger_id
AND book_type_code = p_book_type_code;
update fa_book_controls
set mc_source_flag = 'Y'
where book_type_code = p_book_type_code;
END insert_record;
SAVEPOINT update_mc_bc;
Update fa_mc_book_controls
set enabled_flag = 'N',
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
where set_of_books_id = p_alc_ledger_id
and primary_set_of_books_id = p_src_ledger_id
and enabled_flag = 'Y';
ROLLBACK TO update_mc_bc;
ROLLBACK TO update_mc_bc;