The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
DISCOUNT_DISTRIBUTION_METHOD
INTO T_DIST_OPT
FROM
AP_SYSTEM_PARAMETERS
WHERE SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID;
SELECT
PRECISION
INTO CURR_PERC
FROM
FND_CURRENCIES_VL
WHERE CURRENCY_CODE = FUNC_CURR;
SELECT
( PERIOD_YEAR * 10000 ) + PERIOD_NUM
INTO P_PERIOD_NUM_FROM
FROM
GL_PERIOD_STATUSES
WHERE PERIOD_NAME = P_PERIOD_FROM
AND SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID
AND APPLICATION_ID = T_APP_ID;
SELECT
( PERIOD_YEAR * 10000 ) + PERIOD_NUM
INTO P_PERIOD_NUM_TO
FROM
GL_PERIOD_STATUSES
WHERE PERIOD_NAME = P_PERIOD_TO
AND SET_OF_BOOKS_ID = T_SET_OF_BOOKS_ID
AND APPLICATION_ID = T_APP_ID;
SELECT
START_DATE,
END_DATE
INTO TSTART_DATE,TEND_DATE
FROM
GL_PERIOD_STATUSES
WHERE PERIOD_NAME = TPERIOD_NAME
AND SET_OF_BOOKS_ID = TSET_OF_BOOKS_ID
AND APPLICATION_ID = APP_ID;
SELECT
SUM(NVL(APD.BASE_AMOUNT
,APD.AMOUNT))
INTO SUM_DISCOUNTS
FROM
AP_PAYMENT_DISTRIBUTIONS_ALL APD,
AP_INVOICE_PAYMENTS AIP,
AP_INVOICE_DISTRIBUTIONS_ALL D
WHERE APD.INVOICE_PAYMENT_ID = AIP.INVOICE_PAYMENT_ID
AND D.INVOICE_LINE_NUMBER = APD.INVOICE_DISTR_LINE_NUMBER
AND APD.LINE_TYPE_LOOKUP_CODE = 'DISCOUNT'
AND D.LINE_TYPE_LOOKUP_CODE = 'TAX'
AND AIP.INVOICE_ID = INVOICE_ID_v
AND D.INVOICE_ID = INVOICE_ID_v
AND APD.ORG_ID = AIP.ORG_ID
AND D.ORG_ID = AIP.ORG_ID;