The following lines contain the word 'select', 'insert', 'update' or 'delete':
'SELECT DECODE(SIGN(:INT_OD_RUNNING - :INT_OVERDUE2 - :INT_OVERDUE),-1,DECODE(SIGN(:INT_OD_RUNNING - :INT_OVERDUE),1,0,round(:INT_OVERDUE2,2)),0) INTO :INT_COMPONENT FROM DUAL';
'SELECT DECODE(SIGN(:BAL_RUNNING - :BAL_OVERDUE2 - :BAL_OVERDUE),-1,DECODE(SIGN(:BAL_RUNNING - :BAL_OVERDUE),1,round(:BAL_OVERDUE - :BAL_RUNNING + :BAL_OVERDUE2,2),0,0,round(:BAL_OVERDUE2,2)),0) INTO :BAL_COMPONENT FROM DUAL';
'SELECT NVL(round(:INT_COMPONENT,2),0) + nvl(round(:BAL_COMPONENT,2),0) INTO :TOT_OVERDUE from DUAL';
'SELECT DECODE(:DAY30P + :DAY60P + :DAY90P,0,:TOT_OVERDUE,0) INTO :CURR FROM DUAL';
'SELECT DECODE(:DAY60P + :DAY90P,0,DECODE(SIGN(:NUMDAY - 1),1,:TOT_OVERDUE,0),0) INTO :DAY30P FROM DUAL';
'SELECT DECODE(:DAY90P,0,DECODE(SIGN(:NUMDAY - 2),1,:TOT_OVERDUE,0),0) INTO :DAY60P FROM DUAL';
'SELECT DECODE(SIGN(:NUMDAY - 3),1,:TOT_OVERDUE,0) INTO :DAY90P FROM DUAL';
SELECT
SUBSTR(USER
,1
,10)
INTO
CP_PARA
FROM
DUAL;
SELECT
ITEM_NAME,
SUBSTR(TEXT
,1
,100) LANG_NAME
FROM
XTR_SYS_LANGUAGES_VL
WHERE MODULE_NAME = P_MODULE;
SELECT
SUBSTR(DESCRIPTION
,1
,20),
DECODE(SUBSTR(P_FACTOR
,1
,1)
,'U'
,1
,'T'
,1000
,'M'
,1000000
,'B'
,100000000)
INTO
LP_FACTOR_DESC
,TEMP
FROM
FND_LOOKUPS
WHERE LOOKUP_TYPE = 'XTR_FACTOR'
AND LOOKUP_CODE = SUBSTR(P_FACTOR
,1
,1);
SELECT
SUBSTR(DESCRIPTION
,1
,20)
INTO
LP_FACTOR_DESC
FROM
FND_LOOKUPS
WHERE LOOKUP_TYPE = 'XTR_FACTOR'
AND LOOKUP_CODE = 'T';
SELECT
CP.USER_CONCURRENT_PROGRAM_NAME
INTO
REPORT_SHORT_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;