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 = P_ORGANIZATION_ID) LOOP
P_ORGANIZATION_NAME := ORG_REC.ORGANIZATION_NAME;
FOR LOC_REC IN (SELECT
DESCRIPTION,
ADDRESS_LINE_1,
ADDRESS_LINE_2,
ADDRESS_LINE_3
FROM
HR_LOCATIONS
WHERE LOCATION_ID = P_LOCATION_ID) LOOP
P_DESCRIPTION := LOC_REC.DESCRIPTION;
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 = P_ORGANIZATION_ID
AND LOCATION_ID = P_LOCATION_ID) LOOP
P_EC_CODE := (EC_REC.EC_CODE);
FOR c1 IN (SELECT
RTL.TAX_AMOUNT,
RTL.TAX_RATE TR,
RT.SHIPMENT_LINE_ID,
RTL.TAX_TYPE
FROM
RCV_TRANSACTIONS RT,
JAI_RCV_LINE_TAXES RTL,
JAI_CMN_TAXES_ALL JTC
WHERE RT.TRANSACTION_ID = TO_NUMBER(RECEIPT_ID)
AND JTC.TAX_ID = RTL.TAX_ID
AND RT.SHIPMENT_LINE_ID = RTL.SHIPMENT_LINE_ID
AND NVL(RTL.TAX_AMOUNT
,0) <> 0
AND NVL(JTC.TAX_RATE
,0) <> 0
AND NVL(RTL.MODVAT_FLAG
,'N') = 'Y'
AND UPPER(RTL.TAX_TYPE) in ( LV_TAX_TYPE_EXCISE , LV_TAX_TYPE_EXC_ADDITIONAL , LV_TAX_TYPE_EXC_OTHER , LV_TAX_TYPE_CVD , LV_TAX_TYPE_EXC_EDU_CESS , LV_TAX_TYPE_CVD_EDU_CESS )
AND NVL(JTC.MOD_CR_PERCENTAGE
,0) <> 0
AND ROWNUM = 1) LOOP
VAMT1 := (C1.TAX_AMOUNT * 100) / C1.TR;
FOR qty_rec IN (SELECT
PRIMARY_QUANTITY
FROM
RCV_TRANSACTIONS
WHERE TRANSACTION_ID = TO_NUMBER(CF_QTYFORMULAFORMULA.RECEIPT_ID)) LOOP
V_QTY := QTY_REC.PRIMARY_QUANTITY;
FOR qty_rec IN (SELECT
( CLOSING_BALANCE_QTY - OPENING_BALANCE_QTY ) QTY
FROM
JAI_CMN_RG_23AC_I_TRXS
WHERE REGISTER_ID_PART_II = CF_QTYFORMULAFORMULA.REGISTER_ID) LOOP
V_QTY := QTY_REC.QTY;