The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
CONCURRENT_PROGRAM_ID,
NVL(ENABLE_TRACE
,'N')
FROM
FND_CONCURRENT_REQUESTS
WHERE REQUEST_ID = P_REQUEST_ID;
FOR ORG_REC IN (SELECT
ORGANIZATION_NAME
FROM
ORG_ORGANIZATION_DEFINITIONS
WHERE ORGANIZATION_ID = nvl(P_ORGANIZATION_ID,207)) LOOP
P_ORGANIZATION_NAME := ORG_REC.ORGANIZATION_NAME;
FOR EC_REC IN (SELECT
EC_CODE,
EXCISE_DUTY_COMM,
EXCISE_DUTY_RANGE,
EXCISE_DUTY_DIVISION,
EXCISE_DUTY_CIRCLE
FROM
JAI_CMN_INVENTORY_ORGS
WHERE ORGANIZATION_ID = nvl(P_ORGANIZATION_ID,207)
AND LOCATION_ID = nvl(P_LOCATION_ID,207)) LOOP
P_EC_CODE := (EC_REC.EC_CODE);
FOR LOC_REC IN (SELECT
DESCRIPTION,
ADDRESS_LINE_1,
ADDRESS_LINE_2,
ADDRESS_LINE_3
FROM
HR_LOCATIONS
WHERE LOCATION_ID = nvl(P_LOCATION_ID,207)) LOOP
P_DESCRIPTION := LOC_REC.DESCRIPTION;
FOR SLNO_REC IN (SELECT
MIN(REGISTER_ID) LO
FROM
JAI_CMN_RG_COMP_DTLS
WHERE ORGANIZATION_ID = nvl(P_ORGANIZATION_ID,207)
AND LOCATION_ID = nvl(P_LOCATION_ID,207)
AND TRUNC(TRANSACTION_DATE) BETWEEN NVL(TRUNC(P_TRN_FROM_DATE)
,TRUNC(TRANSACTION_DATE))
AND NVL(TRUNC(P_TRN_TO_DATE)
,TRUNC(TRANSACTION_DATE))
AND REGISTER_TYPE = P_REGISTER_TYPE) LOOP
FOR VAL_REC IN (SELECT
BASIC_OPENING_BALANCE BASICOB,
ADDITIONAL_OPENING_BALANCE ADLOB,
OTHER_OPENING_BALANCE OTHOB
FROM
JAI_CMN_RG_COMP_DTLS
WHERE REGISTER_ID = SLNO_REC.LO) LOOP
P_CENOB := NVL(VAL_REC.BASICOB
,0);
FOR CR_REC IN (SELECT
NVL(SUM(CR_BASIC_ED)
,0) CENCT,
NVL(SUM(CR_OTHER_ED)
,0) SEDCT,
NVL(SUM(CR_ADDITIONAL_ED)
,0) ADLCT
FROM
JAI_CMN_RG_COMP_DTLS
WHERE ORGANIZATION_ID = nvl(P_ORGANIZATION_ID,207)
AND LOCATION_ID = nvl(P_LOCATION_ID,207)
AND TRUNC(TRANSACTION_DATE) BETWEEN NVL(TRUNC(P_TRN_FROM_DATE)
,TRUNC(TRANSACTION_DATE))
AND NVL(TRUNC(P_TRN_TO_DATE)
,TRUNC(TRANSACTION_DATE))
AND REGISTER_TYPE = P_REGISTER_TYPE) LOOP
P_CENCT := ROUND(NVL(CR_REC.CENCT
,0)
,2);
FOR DR_REC IN (SELECT
NVL(SUM(DR_BASIC_ED)
,0) CENCU,
NVL(SUM(DR_OTHER_ED)
,0) SEDCU,
NVL(SUM(DR_ADDITIONAL_ED)
,0) ADLCU
FROM
JAI_CMN_RG_COMP_DTLS
WHERE ORGANIZATION_ID = nvl(P_ORGANIZATION_ID,207)
AND LOCATION_ID = nvl(P_LOCATION_ID,207)
AND TRUNC(TRANSACTION_DATE) BETWEEN NVL(TRUNC(P_TRN_FROM_DATE)
,TRUNC(TRANSACTION_DATE))
AND NVL(TRUNC(P_TRN_TO_DATE)
,TRUNC(TRANSACTION_DATE))
AND REGISTER_TYPE = P_REGISTER_TYPE) LOOP
P_CENCU := ROUND(NVL(DR_REC.CENCU
,0)
,2);