The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
SOB.NAME,
SOB.CURRENCY_CODE
INTO L_COMPANY_NAME,L_FUNCTIONAL_CURRENCY
FROM
GL_SETS_OF_BOOKS SOB,
FND_CURRENCIES CUR
WHERE SOB.SET_OF_BOOKS_ID = P_SOB_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
NVL(E.ENTITY_DISPLAY_NAME
,' ')
INTO ENTITY
FROM
OE_PC_ENTITIES_V E
WHERE E.ENTITY_ID = P_ENTITY;
SELECT
NVL(A.ATTRIBUTE_DISPLAY_NAME
,' ')
INTO ATTRIBUTE
FROM
OE_PC_ATTRIBUTES_V A
WHERE A.COLUMN_NAME = P_ATTRIBUTE
AND ENTITY_ID = P_ENTITY;
SELECT
NVL(LU.MEANING
,' ')
INTO OPERATION
FROM
OE_LOOKUPS LU
WHERE LU.LOOKUP_CODE = P_OPERATION
AND LU.LOOKUP_TYPE = 'PC_OPERATION';
SELECT
DISTINCT
NVL(V.VALIDATION_ENTITY_DISPLAY_NAME
,' ')
INTO VAL_ENTITY
FROM
OE_PC_VENTITIES_V V
WHERE V.VALIDATION_ENTITY_ID = P_VAL_ENTITY
AND V.ENTITY_ID = P_ENTITY;
SELECT
NVL(RECORD_SET_DISPLAY_NAME
,' ')
INTO RECORD_SET
FROM
OE_PC_RSETS_VL
WHERE RECORD_SET_ID = P_RECORD_SET
AND ENTITY_ID = P_VAL_ENTITY;
SELECT
NVL(VALIDATION_TMPLT_DISPLAY_NAME
,' ')
INTO VAL_TEMPLATE
FROM
OE_PC_VTMPLTS_VL
WHERE VALIDATION_TMPLT_ID = P_VAL_TEMPLATE
AND ENTITY_ID = P_VAL_ENTITY;
SELECT
NVL(LU.MEANING
,' ')
INTO SEEDED
FROM
FND_LOOKUPS LU
WHERE LU.LOOKUP_CODE = P_SEEDED
AND LU.LOOKUP_TYPE = 'YES_NO';
SELECT
NVL(ASSIGNED_OR_EXCLUDED_FLAG
,' ')
INTO L_FLAG
FROM
OE_PC_RESPS_V
WHERE CONSTRAINT_ID = CONSTRAINT_ID
AND ROWNUM = 1;