The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
GL.NAME,
CUR.PRECISION,
GL.CHART_OF_ACCOUNTS_ID,
GL.CURRENCY_CODE
INTO
H_COMPANY_NAME
,P_MIN_PRECISION
,STRUCT_NUM
,H_FUNCTIONAL_CURRENCY
FROM
GL_SETS_OF_BOOKS GL,
FND_CURRENCIES_VL CUR,
AP_SYSTEM_PARAMETERS AP
WHERE GL.SET_OF_BOOKS_ID = AP.SET_OF_BOOKS_ID
AND GL.CURRENCY_CODE = CUR.CURRENCY_CODE
AND GL.SET_OF_BOOKS_ID = P_BOOK;
SELECT
VENDOR_NAME
INTO
P_VENDOR_NAME
FROM
PO_VENDORS
WHERE VENDOR_ID = P_VENDOR_ID;
SELECT
SUM(NVL(AP_UTILITIES_PKG.AP_ROUND_CURRENCY(NVL(AID1.AMOUNT
,0) * I2.PAYMENT_CROSS_RATE
,I2.PAYMENT_CURRENCY_CODE)
,0))
INTO
PREPAY_AMT_F
FROM
AP_INVOICE_DISTRIBUTIONS AID1,
AP_INVOICE_DISTRIBUTIONS AID2,
AP_INVOICES I2
WHERE NVL(AID1.REVERSAL_FLAG
,'N') <> 'Y'
AND AID1.PREPAY_DISTRIBUTION_ID is not null
AND AID2.INVOICE_DISTRIBUTION_ID = AID1.PREPAY_DISTRIBUTION_ID
AND AID2.INVOICE_ID = I2.INVOICE_ID
AND AID1.INVOICE_ID = C_INVOICE_ID1;
SELECT
SUM(NVL(AP_UTILITIES_PKG.AP_ROUND_CURRENCY(NVL(AID1.AMOUNT
,0) * I2.PAYMENT_CROSS_RATE
,I2.PAYMENT_CURRENCY_CODE)
,0))
INTO
T_PREPAY_AMT_F
FROM
AP_INVOICE_DISTRIBUTIONS AID1,
AP_INVOICE_DISTRIBUTIONS AID2,
AP_INVOICES I2
WHERE NVL(AID1.REVERSAL_FLAG
,'N') <> 'Y'
AND AID1.PREPAY_DISTRIBUTION_ID is not null
AND AID2.INVOICE_DISTRIBUTION_ID = AID1.PREPAY_DISTRIBUTION_ID
AND AID2.INVOICE_ID = I2.INVOICE_ID
AND AID1.INVOICE_ID = T_INVOICE_ID;
SELECT
SUM(NVL(AP_UTILITIES_PKG.AP_ROUND_CURRENCY(NVL(AID1.AMOUNT
,0) * I2.PAYMENT_CROSS_RATE
,I2.PAYMENT_CURRENCY_CODE)
,0))
INTO
T1_PREPAY_AMT_F
FROM
AP_INVOICE_DISTRIBUTIONS AID1,
AP_INVOICE_DISTRIBUTIONS AID2,
AP_INVOICES I2
WHERE NVL(AID1.REVERSAL_FLAG
,'N') <> 'Y'
AND AID1.PREPAY_DISTRIBUTION_ID is not null
AND AID2.INVOICE_DISTRIBUTION_ID = AID1.PREPAY_DISTRIBUTION_ID
AND AID2.INVOICE_ID = I2.INVOICE_ID
AND AID1.INVOICE_ID = T_INVOICE_ID1;