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,
LA.DISPLAYED_FIELD
INTO NLS_YES,NLS_NO,NLS_ALL
FROM
FND_LOOKUPS LY,
FND_LOOKUPS LN,
AP_LOOKUP_CODES LA
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';
FUNCTION FSELECTEDSUPPLIERS RETURN VARCHAR2 IS
RET_TEXT VARCHAR2(2000):=' ';
END FSELECTEDSUPPLIERS;
P_SELECTED_SUPPLIERS := FSELECTEDSUPPLIERS;
P_SELECTED_DATES := FSELECTEDDATES;
SELECT
ROUND(NVL(SUM((NVL(AID.BASE_AMOUNT
,AID.AMOUNT) * ATC2.TAX_RATE) / 100)
,0)
,P_MIN_PRECISION) VAT_AMOUNT
INTO V_VAT_AMOUNT
FROM
AP_TAX_CODES_ALL ATC,
JL_ZZ_AP_SUP_AWT_CD_ALL JZSAC,
JL_ZZ_AP_INV_DIS_WH_ALL JZIDW,
AP_TAX_CODES_ALL ATC2,
AP_INVOICES_ALL AI,
AP_INVOICE_DISTRIBUTIONS_ALL AID
WHERE AI.LEGAL_ENTITY_ID = DECODE(P_REPORTING_LEVEL
,'2000'
,P_REPORTING_CONTEXT
,AI.LEGAL_ENTITY_ID)
AND AI.ORG_ID = DECODE(P_REPORTING_LEVEL
,'3000'
,P_REPORTING_CONTEXT
,AI.ORG_ID)
AND AID.ACCOUNTING_DATE >= NVL(TO_DATE(P_DATE_FROM
,'RRRR/MM/DD HH24:MI:SS')
,AID.ACCOUNTING_DATE)
AND AID.ACCOUNTING_DATE < NVL(TO_DATE(P_DATE_TO
,'RRRR/MM/DD HH24:MI:SS') + 1
,AID.ACCOUNTING_DATE + 1)
AND AID.MATCH_STATUS_FLAG = 'A'
AND AID.LINE_TYPE_LOOKUP_CODE <> 'AWT'
AND AID.LINE_TYPE_LOOKUP_CODE <> 'TAX'
AND JZIDW.INVOICE_ID = AID.INVOICE_ID
AND JZSAC.SUPP_AWT_CODE_ID = JZIDW.SUPP_AWT_CODE_ID
AND ATC.TAX_ID = JZSAC.TAX_ID
AND ATC.GLOBAL_ATTRIBUTE19 is not null
AND ATC.NAME = P_TAX_NAME
AND AID.TAX_CODE_ID is not null
AND ATC2.TAX_ID = AID.TAX_CODE_ID
AND AI.CANCELLED_DATE is null
AND ( ( AID.GLOBAL_ATTRIBUTE2 is null
AND AID.INVOICE_ID = AI.INVOICE_ID
AND AI.VENDOR_ID = P_VENDOR_ID )
OR ( AID.GLOBAL_ATTRIBUTE2 = P_VENDOR_NUMBER
AND AID.INVOICE_ID = AI.INVOICE_ID ) );
SELECT
ROUND(SUM((NVL(AID.BASE_AMOUNT
,AID.AMOUNT) * ATC2.TAX_RATE) / 100)
,P_MIN_PRECISION) VAT_AMOUNT
INTO V_VAT_AMOUNT
FROM
AP_TAX_CODES_ALL ATC,
JL_ZZ_AP_SUP_AWT_CD_ALL JZSAC,
JL_ZZ_AP_INV_DIS_WH_ALL JZIDW,
AP_TAX_CODES_ALL ATC2,
AP_INVOICES_ALL AI,
AP_INVOICE_DISTRIBUTIONS_ALL AID
WHERE '0' NOT IN (
SELECT
P_ORGS
FROM
AP_INVOICES_ALL INV
WHERE AI.INVOICE_ID = INV.INVOICE_ID )
AND AID.ACCOUNTING_DATE >= NVL(TO_DATE(P_DATE_FROM
,'RRRR/MM/DD HH24:MI:SS')
,AID.ACCOUNTING_DATE)
AND AID.ACCOUNTING_DATE < NVL(TO_DATE(P_DATE_TO
,'RRRR/MM/DD HH24:MI:SS') + 1
,AID.ACCOUNTING_DATE + 1)
AND AID.MATCH_STATUS_FLAG = 'A'
AND AID.LINE_TYPE_LOOKUP_CODE <> 'AWT'
AND AID.LINE_TYPE_LOOKUP_CODE <> 'TAX'
AND JZIDW.INVOICE_ID = AID.INVOICE_ID
AND JZSAC.SUPP_AWT_CODE_ID = JZIDW.SUPP_AWT_CODE_ID
AND ATC.TAX_ID = JZSAC.TAX_ID
AND ATC.GLOBAL_ATTRIBUTE19 is not null
AND ATC.NAME = P_TAX_NAME
AND AID.TAX_CODE_ID is not null
AND ATC2.TAX_ID = AID.TAX_CODE_ID
AND AI.CANCELLED_DATE is null
AND ( ( AID.GLOBAL_ATTRIBUTE2 is null
AND AID.INVOICE_ID = AI.INVOICE_ID
AND AI.VENDOR_ID = P_VENDOR_ID )
OR ( AID.GLOBAL_ATTRIBUTE2 = P_VENDOR_NUMBER
AND AID.INVOICE_ID = AI.INVOICE_ID ) );
SELECT
TO_CHAR(TO_DATE(P_DATE_FROM
,'YYYY/MM/DD HH24:MI:SS')
,'DD-MON-YYYY')
INTO L_DATE_FROM
FROM
DUAL;
SELECT
TO_CHAR(TO_DATE(P_DATE_TO
,'YYYY/MM/DD HH24:MI:SS')
,'DD-MON-YYYY')
INTO L_DATE_TO
FROM
DUAL;
FUNCTION FSELECTEDDATES RETURN VARCHAR2 IS
RET_TEXT VARCHAR2(1000) := NULL;
END FSELECTEDDATES;