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_VL C
WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
SELECT
LY.MEANING,
LN.MEANING,
L1.DISPLAYED_FIELD,
L2.DISPLAYED_FIELD,
L3.DISPLAYED_FIELD
INTO NLS_YES,NLS_NO,NLS_ALL,NLS_VOID,NLS_NA
FROM
FND_LOOKUPS LY,
FND_LOOKUPS LN,
AP_LOOKUP_CODES L1,
AP_LOOKUP_CODES L2,
AP_LOOKUP_CODES L3
WHERE LY.LOOKUP_TYPE = 'YES_NO'
AND LY.LOOKUP_CODE = 'Y'
AND LN.LOOKUP_TYPE = 'YES_NO'
AND LN.LOOKUP_CODE = 'N'
AND L1.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
AND L1.LOOKUP_CODE = 'ALL'
AND L2.LOOKUP_TYPE = 'NLS TRANSLATION'
AND L2.LOOKUP_CODE = 'VOID'
AND L3.LOOKUP_TYPE = 'NLS REPORT PARAMETER'
AND L3.LOOKUP_CODE = 'NA';
SELECT
USER_CONCURRENT_PROGRAM_NAME
INTO CP_TITLE
FROM
FND_CONCURRENT_REQUESTS R,
FND_CONCURRENT_PROGRAMS_VL P
WHERE R.REQUEST_ID = P_CONC_REQUEST_ID
AND R.CONCURRENT_PROGRAM_ID = P.CONCURRENT_PROGRAM_ID
AND R.PROGRAM_APPLICATION_ID = P.APPLICATION_ID;
SELECT
MEANING
INTO P_REPORT_CURRENCY_DISP
FROM
FND_LOOKUPS
WHERE LOOKUP_TYPE = 'JGZZ_CURRENCY_TYPE'
AND LOOKUP_CODE = P_REPORT_CURRENCY;
SELECT
GLP.NAME
INTO P_LEDGER_NAME
FROM
GL_LEDGERS_PUBLIC_V GLP
WHERE GLP.LEDGER_ID = P_LEDGER_ID;
SELECT
INVOICE_DATE,
INVOICE_NUM
FROM
AP_INVOICES
WHERE INVOICE_ID = V_INVOICE_ID;
SELECT
CHECK_DATE,
CHECK_NUMBER
FROM
AP_CHECKS
WHERE CHECK_ID = V_CHECK_ID;
SELECT
L.MEANING
INTO V_TRANS_TYPE
FROM
FND_LOOKUPS L
WHERE L.LOOKUP_CODE = 'PMT'
AND L.LOOKUP_TYPE = 'JLZZ_SUPPLIER_TRX_TYPE'
AND NVL(L.START_DATE_ACTIVE
,SYSDATE) <= sysdate
AND NVL(L.END_DATE_ACTIVE
,SYSDATE) >= sysdate
AND L.ENABLED_FLAG = 'Y';
SELECT
L.MEANING
INTO V_TRANS_TYPE
FROM
FND_LOOKUPS L
WHERE L.LOOKUP_CODE = 'INV'
AND L.LOOKUP_TYPE = 'JLZZ_SUPPLIER_TRX_TYPE'
AND NVL(L.START_DATE_ACTIVE
,SYSDATE) <= sysdate
AND NVL(L.END_DATE_ACTIVE
,SYSDATE) >= sysdate
AND L.ENABLED_FLAG = 'Y';
SELECT
SUM(NVL(AID.PREPAY_AMOUNT_REMAINING
,AID.AMOUNT)) * - 1
FROM
AP_INVOICE_DISTRIBUTIONS AID
WHERE AID.INVOICE_ID = V_INVOICE_ID
AND AID.LINE_TYPE_LOOKUP_CODE = 'ITEM'
AND AID.POSTED_FLAG = 'Y';
SELECT
NVL(SUM(AID.AMOUNT)
,0) * - 1,
NVL(SUM(NVL(AID.BASE_AMOUNT
,AID.AMOUNT))
,0) * - 1
FROM
AP_INVOICE_DISTRIBUTIONS AID
WHERE AID.INVOICE_ID = V_INVOICE_ID
AND ( AID.LINE_TYPE_LOOKUP_CODE = 'AWT'
OR AID.LINE_TYPE_LOOKUP_CODE = 'PREPAY' )
AND AID.POSTED_FLAG = 'Y';
SELECT
NVL(SUM(IP.AMOUNT)
,0),
NVL(SUM(NVL(IP.INVOICE_BASE_AMOUNT
,IP.AMOUNT))
,0)
FROM
AP_INVOICE_PAYMENTS IP
WHERE IP.INVOICE_ID = V_INVOICE_ID
AND IP.POSTED_FLAG = 'Y';
SELECT
NVL(DISCOUNT_AMOUNT_TAKEN
,0),
NVL(EXCHANGE_RATE
,1)
FROM
AP_INVOICES AI
WHERE AI.INVOICE_ID = V_INVOICE_ID;
SELECT
SET_OF_BOOKS_ID
INTO L_SOB
FROM
AP_SYSTEM_PARAMETERS;
SELECT
NVL(SUM(AEL.ENTERED_CR)
,0) - NVL(SUM(AEL.ENTERED_DR)
,0)
INTO L_BALANCE
FROM
AP_AE_LINES_ALL AEL,
AP_AE_HEADERS_ALL AEH
WHERE AEL.AE_LINE_TYPE_CODE = 'LIABILITY'
AND AEH.SET_OF_BOOKS_ID = L_SOB
AND AEL.AE_HEADER_ID = AEH.AE_HEADER_ID
AND AEH.ACCOUNTING_DATE < P_START_DATE
AND AEL.THIRD_PARTY_ID = VENDOR_ID
AND AEL.CURRENCY_CODE = GROUP_CURRENCY;
SELECT
NVL(SUM(AEL.ACCOUNTED_CR)
,0) - NVL(SUM(AEL.ACCOUNTED_DR)
,0)
INTO L_BALANCE
FROM
AP_AE_LINES_ALL AEL,
AP_AE_HEADERS_ALL AEH
WHERE AEL.AE_LINE_TYPE_CODE = 'LIABILITY'
AND AEH.SET_OF_BOOKS_ID = L_SOB
AND AEL.AE_HEADER_ID = AEH.AE_HEADER_ID
AND AEH.ACCOUNTING_DATE < P_START_DATE
AND AEL.THIRD_PARTY_ID = VENDOR_ID;
SELECT
C.PRECISION
INTO PREC
FROM
FND_CURRENCIES C
WHERE C.CURRENCY_CODE = GROUP_CURRENCY;
SELECT
C.PRECISION
INTO PREC
FROM
FND_CURRENCIES C
WHERE C.CURRENCY_CODE = TRANS_CURRENCY;
SELECT
NAME
INTO L_NAME
FROM
FND_DOC_SEQUENCE_CATEGORIES FDOC,
AP_INVOICES_ALL AI
WHERE AI.INVOICE_ID = TRANS_ID
AND FDOC.CODE = AI.DOC_CATEGORY_CODE
AND FDOC.APPLICATION_ID = 200;
SELECT
SUM(NVL(AID.PREPAY_AMOUNT_REMAINING,AID.AMOUNT)) * - 1
INTO L_PREPAY_AMOUNT
FROM
AP_INVOICES_ALL AI,
AP_INVOICE_DISTRIBUTIONS_ALL AID,
AP_LOOKUP_CODES ALC
WHERE AID.ACCOUNTING_DATE <= P_END_DATE
AND AI.INVOICE_TYPE_LOOKUP_CODE = 'PREPAYMENT'
AND AID.LINE_TYPE_LOOKUP_CODE = 'ITEM'
AND AI.INVOICE_ID = AID.INVOICE_ID
AND ALC.LOOKUP_TYPE = 'INVOICE TYPE'
AND AI.INVOICE_TYPE_LOOKUP_CODE = ALC.LOOKUP_CODE
AND AID.POSTED_FLAG LIKE DECODE(P_POSTED
,'N'
,'%'
,'Y')
AND AID.MATCH_STATUS_FLAG LIKE DECODE(P_APPROVED
,'Y'
,'A'
,'%')
AND NVL(LTRIM(RTRIM(AI.DOC_CATEGORY_CODE))
,'X') LIKE DECODE(P_DOCUMENT_CATEGORY
,NULL
,'%'
,P_DOCUMENT_CATEGORY)
AND AI.VENDOR_ID = CF_AMOUNT_DUEFORMULA.VENDOR_ID
AND AI.VENDOR_SITE_ID = CF_AMOUNT_DUEFORMULA.VENDOR_SITE_ID;
SELECT
DECODE(P_POSTED
,'Y'
,C_NLS_YES
,'N'
,C_NLS_NO)
INTO A_FLAG
FROM
DUAL;
SELECT
DECODE(P_APPROVED
,'Y'
,C_NLS_YES
,'N'
,C_NLS_NO)
INTO A_FLAG
FROM
DUAL;
SELECT
ORG.NAME
INTO L_ORG_NAME
FROM
HR_LOCATIONS LOC,
HR_ALL_ORGANIZATION_UNITS ORG
WHERE ORG.ORGANIZATION_ID = CF_ORG_NAMEFORMULA.ORGANIZATION_ID
AND LOC.LOCATION_ID = ORG.LOCATION_ID;
SELECT
MEANING
INTO P_PARAMETERS_DESC
FROM
FND_LOOKUPS
WHERE LOOKUP_CODE = P_YES_NO
AND LOOKUP_TYPE = 'YES_NO';