The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT SUBSTR(ARGUMENT1,INSTR(ARGUMENT1,'=',1,1)+1)
INTO P_CONC_REQUEST_ID_RX
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'=',1,1)+1)
INTO P_BOOK1
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT SUBSTR(ARGUMENT2,INSTR(ARGUMENT2,'=',1,1)+1)
INTO P_BOOK1
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT SUBSTR(ARGUMENT3,INSTR(ARGUMENT3,'=',1,1)+1)
INTO P_CURRENCY1
FROM FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID =P_CONC_REQUEST_ID;
SELECT
SC.COMPANY_NAME
INTO
L_COMPANY_NAME
FROM
FA_SYSTEM_CONTROLS SC;
SELECT
SOB.CURRENCY_CODE,
CUR.PRECISION
INTO
L_CURRENCY_CODE
,L_PRECISION
FROM
FA_BOOK_CONTROLS BC,
GL_SETS_OF_BOOKS SOB,
FND_CURRENCIES CUR
--WHERE BC.BOOK_TYPE_CODE = P_BOOK
WHERE BC.BOOK_TYPE_CODE = P_BOOK1
AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
AND CUR.CURRENCY_CODE = SOB.CURRENCY_CODE;
SELECT
CR.CONCURRENT_PROGRAM_ID
INTO
L_CONC_PROGRAM_ID
FROM
FND_CONCURRENT_REQUESTS CR
WHERE CR.PROGRAM_APPLICATION_ID = 140
AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
SELECT
CP.USER_CONCURRENT_PROGRAM_NAME
INTO
L_REPORT_NAME
FROM
FND_CONCURRENT_PROGRAMS_VL CP
WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
AND CP.APPLICATION_ID = 140;