The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
into P_MASS_REVAL_ID1
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT
RV.MASS_REVAL_ID,
RV.DESCRIPTION,
RV.BOOK_TYPE_CODE,
RV.REVAL_DATE,
SOB.CURRENCY_CODE,
CUR.PRECISION
INTO L_MASS_REVAL_ID,L_DESCRIPTION,L_BOOK,L_REVAL_DATE,L_CURRENCY_CODE,L_PRECISION
FROM
FA_MASS_REVALUATIONS RV,
FA_BOOK_CONTROLS BC,
GL_SETS_OF_BOOKS SOB,
FND_CURRENCIES CUR
WHERE RV.MASS_REVAL_ID = P_MASS_REVAL_ID1
AND BC.BOOK_TYPE_CODE = RV.BOOK_TYPE_CODE
AND BC.DATE_INEFFECTIVE is null
AND BC.SET_OF_BOOKS_ID = SOB.SET_OF_BOOKS_ID
AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
SELECT
CP.USER_CONCURRENT_PROGRAM_NAME
INTO L_REPORT_NAME
FROM
FND_CONCURRENT_PROGRAMS_VL CP,
FND_CONCURRENT_REQUESTS CR
WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
SELECT
PERIOD_COUNTER
INTO L_REVAL_PC
FROM
FA_DEPRN_PERIODS
WHERE BOOK_TYPE_CODE = BOOK
AND REVAL_DATE between CALENDAR_PERIOD_OPEN_DATE
AND CALENDAR_PERIOD_CLOSE_DATE;
SELECT
SUM(DECODE(AD.DEBIT_CREDIT_FLAG
,'CR'
,AD.ADJUSTMENT_AMOUNT
,'DR'
,-1 * AD.ADJUSTMENT_AMOUNT))
INTO L_ADJ_AMOUNT
FROM
FA_ADJUSTMENTS AD
WHERE AD.TRANSACTION_HEADER_ID = TH_ID
AND AD.BOOK_TYPE_CODE = BOOK
AND AD.ASSET_ID = ASSET_ID
AND AD.SOURCE_TYPE_CODE = 'REVALUATION'
AND AD.ADJUSTMENT_TYPE = 'RESERVE';
SELECT
SUM(DECODE(AD.DEBIT_CREDIT_FLAG
,'CR'
,AD.ADJUSTMENT_AMOUNT
,'DR'
,-1 * AD.ADJUSTMENT_AMOUNT))
INTO L_ADJ_AMOUNT
FROM
FA_ADJUSTMENTS AD
WHERE AD.TRANSACTION_HEADER_ID = TH_ID
AND AD.BOOK_TYPE_CODE = BOOK
AND AD.ASSET_ID = ASSET_ID
AND AD.SOURCE_TYPE_CODE = 'REVALUATION'
AND AD.ADJUSTMENT_TYPE = 'REVAL RESERVE';