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 CONCURRENT_PROGRAM_NAME
INTO L_CONCURRENT_PROGRAM_NAME
FROM FND_CONCURRENT_PROGRAMS_VL
WHERE CONCURRENT_PROGRAM_ID = FND_GLOBAL.CONC_PROGRAM_ID;
SELECT
XLE.NAME
INTO C_COMPANY_NAME_HEADER
FROM
XLE_FIRSTPARTY_INFORMATION_V XLE
WHERE XLE.LEGAL_ENTITY_ID = L_LEGAL_ENTITY_ID;
SELECT
INVOICE_DATE,
INVOICE_NUM
FROM
AP_INVOICES_ALL
WHERE INVOICE_ID = V_INVOICE_ID;
SELECT
CHECK_DATE,
CHECK_NUMBER
FROM
AP_CHECKS_ALL
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_ALL 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_ALL 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_ALL 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_ALL AI
WHERE AI.INVOICE_ID = V_INVOICE_ID;
SELECT
PARTY_ID
INTO L_PARTY_ID
FROM
AP_SUPPLIERS
WHERE VENDOR_ID = CF_SUPP_BBFORMULA.VENDOR_ID;
SELECT
NVL(SUM(AEL.ENTERED_CR)
,0) - NVL(SUM(AEL.ENTERED_DR)
,0)
INTO L_BALANCE
FROM
XLA_AE_LINES AEL,
XLA_AE_HEADERS AEH,
XLA_ACCT_CLASS_ASSGNS ACS,
XLA_ASSIGNMENT_DEFNS_B ASD
WHERE AEH.LEDGER_ID = L_SOB
AND AEL.AE_HEADER_ID = AEH.AE_HEADER_ID
AND AEH.ACCOUNTING_DATE < P_START_DATE
AND AEL.PARTY_ID = L_PARTY_ID
AND AEL.CURRENCY_CODE = GROUP_CURRENCY
AND AEL.ACCOUNTING_CLASS_CODE = ACS.ACCOUNTING_CLASS_CODE
AND ACS.PROGRAM_CODE = 'JL_POST_LIAB_REGISTER'
AND ACS.PROGRAM_CODE = ASD.PROGRAM_CODE
AND ASD.ASSIGNMENT_CODE = ACS.ASSIGNMENT_CODE
AND ASD.ENABLED_FLAG = 'Y';
SELECT
NVL(SUM(AEL.ACCOUNTED_CR)
,0) - NVL(SUM(AEL.ACCOUNTED_DR)
,0)
INTO L_BALANCE
FROM
XLA_AE_LINES AEL,
XLA_AE_HEADERS AEH,
XLA_ACCT_CLASS_ASSGNS ACS,
XLA_ASSIGNMENT_DEFNS_B ASD
WHERE AEH.LEDGER_ID = L_SOB
AND AEL.AE_HEADER_ID = AEH.AE_HEADER_ID
--AND AEL.LEDGER_ID = P_SOB_ID
AND AEL.LEDGER_ID = CP_SOB_ID
AND AEH.ACCOUNTING_DATE < P_START_DATE
AND AEL.PARTY_ID = L_PARTY_ID
AND AEL.CURRENCY_CODE = GROUP_CURRENCY
AND AEL.ACCOUNTING_CLASS_CODE = ACS.ACCOUNTING_CLASS_CODE
AND ACS.PROGRAM_CODE = 'JL_POST_LIAB_REGISTER'
AND ACS.PROGRAM_CODE = ASD.PROGRAM_CODE
AND ASD.ASSIGNMENT_CODE = ACS.ASSIGNMENT_CODE
AND ASD.ENABLED_FLAG = 'Y';
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;