The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
P.BASE_CURRENCY_CODE,
C.PRECISION,
C.MINIMUM_ACCOUNTABLE_UNIT,
C.DESCRIPTION
INTO BASE_CURR,PREC,MIN_AU,DESCR
FROM
AP_SYSTEM_PARAMETERS P,
FND_CURRENCIES C
WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
SELECT
LY.MEANING,
LN.MEANING,
LA.DISPLAYED_FIELD,
L4.DISPLAYED_FIELD,
L6.MEANING,
L7.MEANING,
L8.MEANING
INTO NLS_YES,NLS_NO,NLS_ALL,NLS_UNPAID,HEADER_SHOW_PREPAY_DIST,HEADER_INCLUDE_INVOICE,HEADER_INCLUDE_CREDIT
FROM
FND_LOOKUPS LY,
FND_LOOKUPS LN,
AP_LOOKUP_CODES LA,
AP_LOOKUP_CODES L4,
FND_LOOKUPS L6,
FND_LOOKUPS L7,
FND_LOOKUPS L8
WHERE LY.LOOKUP_TYPE = 'YES_NO'
AND LY.LOOKUP_CODE = 'Y'
AND LN.LOOKUP_TYPE = 'YES_NO'
AND LN.LOOKUP_CODE = 'N'
AND LA.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
AND LA.LOOKUP_CODE = 'ALL'
AND L4.LOOKUP_TYPE = 'PREPAY STATUS'
AND L4.LOOKUP_CODE = 'UNPAID'
AND L6.LOOKUP_TYPE = 'YES_NO'
AND L6.LOOKUP_CODE = NVL(P_PREPAYMENT_LINE_FLAG
,'Y')
AND L7.LOOKUP_TYPE = 'YES_NO'
AND L7.LOOKUP_CODE = NVL(P_INCLUDE_INVOICE
,'Y')
AND L8.LOOKUP_TYPE = 'YES_NO'
AND L8.LOOKUP_CODE = NVL(P_INCLUDE_CREDIT
,'Y');
SELECT
DISPLAYED_FIELD
INTO HEADER_VENDOR_TYPE
FROM
PO_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'VENDOR TYPE'
AND LOOKUP_CODE = P_VENDOR_TYPE_LOOKUP_CODE;
SELECT
VENDOR_NAME
INTO HEADER_VENDOR_NAME
FROM
PO_VENDORS
WHERE VENDOR_ID = P_VENDOR_ID;
SELECT
DISPLAYED_FIELD
INTO HEADER_PREPAYMENT_TYPE
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_CODE = NVL(P_PREPAYMENT_TYPE
,'TEMPORARY')
AND LOOKUP_TYPE = 'PREPAY TYPES';
SELECT
AP.SET_OF_BOOKS_ID,
GL.CHART_OF_ACCOUNTS_ID
INTO P_SET_OF_BOOKS_ID,P_CHART_OF_ACCOUNTS_ID
FROM
AP_SYSTEM_PARAMETERS AP,
GL_SETS_OF_BOOKS GL
WHERE AP.SET_OF_BOOKS_ID = GL.SET_OF_BOOKS_ID;
SELECT
NAME,
CHART_OF_ACCOUNTS_ID
INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
FROM
GL_SETS_OF_BOOKS
WHERE SET_OF_BOOKS_ID = L_SOB_ID;