The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
SEGMENT1
INTO P_FROM_PROJECT_NUMBER
FROM
PA_PROJECTS_ALL
WHERE PROJECT_ID = P_FROM_PROJECT_NUMBER;
SELECT
SEGMENT1
INTO P_TO_PROJECT_NUMBER
FROM
PA_PROJECTS_ALL
WHERE PROJECT_ID = P_TO_PROJECT_NUMBER;
SELECT
PROJECT_TYPE
INTO P_PROJ_TYPE
FROM
PA_PROJECT_TYPES_ALL
WHERE PROJECT_TYPE_ID = P_PROJ_TYPE;
SELECT
DISTINCT
'N'
INTO L_EXIST_FLAG
FROM
PA_PROJECTS P
WHERE P.SEGMENT1 BETWEEN NVL(P_FROM_PROJECT_NUMBER
,'0')
AND NVL(P_TO_PROJECT_NUMBER
,'z')
AND P.PROJECT_TYPE = NVL(P_PROJ_TYPE
,P.PROJECT_TYPE)
AND ( NVL(REVALUATE_FUNDING_FLAG
,'N') = 'N'
AND NOT EXISTS (
SELECT
F.PROJECT_ID
FROM
PA_PROJECT_FUNDINGS F
WHERE P.PROJECT_ID = F.PROJECT_ID
AND REVALUATION_THROUGH_DATE between NVL(TRUNC(P_REVAL_FROM_DATE)
,SYSDATE - 10000)
AND NVL(TRUNC(P_REVAL_TO_DATE)
,SYSDATE + 10000) ) );
SELECT
DISTINCT
'Y'
INTO L_EXIST_FLAG
FROM
PA_PROJECTS P
WHERE P.SEGMENT1 BETWEEN NVL(P_FROM_PROJECT_NUMBER
,'0')
AND NVL(P_TO_PROJECT_NUMBER
,'z')
AND P.PROJECT_TYPE = NVL(P_PROJ_TYPE
,P.PROJECT_TYPE)
AND ( NVL(REVALUATE_FUNDING_FLAG
,'N') = 'Y'
OR EXISTS (
SELECT
F.PROJECT_ID
FROM
PA_PROJECT_FUNDINGS F
WHERE P.PROJECT_ID = F.PROJECT_ID
AND REVALUATION_THROUGH_DATE between NVL(TRUNC(P_REVAL_FROM_DATE)
,SYSDATE - 10000)
AND NVL(TRUNC(P_REVAL_TO_DATE)
,SYSDATE + 10000) ) );
SELECT
MESSAGE_TEXT
INTO L_NO_REPORT_DATA
FROM
FND_NEW_MESSAGES
WHERE MESSAGE_NAME = 'R_REP_NO_DATA';
SELECT
MEANING
INTO L_NO_DATA_FOUND
FROM
PA_LOOKUPS
WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
AND LOOKUP_TYPE = 'MESSAGE';
SELECT
MEANING
INTO P_REPORT_MODE
FROM
FND_LOOKUP_VALUES
WHERE LOOKUP_TYPE = 'REPORT_TYPE_SD'
AND LOOKUP_CODE = NVL(P_MODE
,'D');