The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
NVL(P_CHECK_DATE_V
,DECODE(PAYMENT_DATE_OPTION
,'REQUESTDATE'
,SYSDATE
,SYSDATE + ADDL_PAYMENT_DAYS)),
NVL(P_PAY_THROUGH_DATE_V
,SYSDATE + ADDL_PAY_THRU_DAYS),
HI_PAYMENT_PRIORITY,
LOW_PAYMENT_PRIORITY,
PAY_ONLY_WHEN_DUE_FLAG,
ZERO_INV_ALLOWED_FLAG,
VENDOR_ID,
sysdate - ADDL_PAY_FROM_DAYS,
INV_EXCHANGE_RATE_TYPE,
PAYMENT_METHOD_CODE,
VENDOR_TYPE_LOOKUP_CODE,
OU_GROUP_OPTION,
LE_GROUP_OPTION,
CURRENCY_GROUP_OPTION,
PAY_GROUP_OPTION,
PARTY_ID,
DECODE(PAY_ONLY_WHEN_DUE_FLAG
,'Y'
,TO_DATE('01/01/80'
,'MM/DD/RR')
,NVL(P_PAY_THROUGH_DATE_V
,SYSDATE + ADDL_PAY_THRU_DAYS)),
TEMPLATE_NAME
INTO P_CHECK_DATE_V,P_PAY_THROUGH_DATE_V,C_HI_PAYMENT_PRIORITY,
C_LOW_PAYMENT_PRIORITY,P_PAY_ONLY_WHEN_DUE_FLAG,C_ZERO_INVOICES_ALLOWED,
C_VENDOR_ID,C_PAY_FROM_DATE,C_INV_EXCHANGE_RATE_TYPE,C_PAYMENT_METHOD_CODE,
C_VENDOR_TYPE_LOOKUP_CODE,C_OU_GROUP_OPTION,C_LE_GROUP_OPTION,C_CURRENCY_GROUP_OPTION,
C_PAY_GROUP_OPTION,C_PARTY_ID,C_DISC_PAY_THRU_DATE,C_TEMPLATE_NAME
FROM
AP_PAYMENT_TEMPLATES
WHERE TEMPLATE_ID = P_TEMPLATE_ID;
C_UNAPPROVED_PREDICATE := 'AND NOT EXISTS (' || 'SELECT 1 ' || 'FROM ap_invoices_derived_v AIDV '
|| 'WHERE AIDV.invoice_id = inv1.invoice_id ' || 'AND AIDV.approval_status_lookup_code IN '
|| '(''NEVER APPROVED'', ''NEEDS REAPPROVAL'', ''UNAPPROVED'')) ';
SELECT
LY.MEANING,
LN.MEANING,
LA.DISPLAYED_FIELD,
LH.DISPLAYED_FIELD
INTO NLS_YES,NLS_NO,NLS_ALL,NLS_HOLDS
FROM
FND_LOOKUPS LY,
FND_LOOKUPS LN,
AP_LOOKUP_CODES LA,
AP_LOOKUP_CODES LH
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 LH.LOOKUP_TYPE = 'NLS TRANSLATION'
AND LH.LOOKUP_CODE = 'HOLDS';
SELECT
SORT_BY_ALTERNATE_FIELD
INTO SORT_BY_ALTERNATE
FROM
AP_SYSTEM_PARAMETERS;
SELECT
COUNT(HC.HOLD_LOOKUP_CODE)
INTO L_HOLD_COUNT
FROM
AP_HOLDS HC
WHERE HC.INVOICE_ID = C_INVOICE_ID
AND HC.RELEASE_LOOKUP_CODE IS NULL;
SELECT
'Approved'
INTO STATUS
FROM
DUAL
WHERE ( ( NOT EXISTS (
SELECT
'Unreleased holds exist'
FROM
AP_HOLDS H
WHERE H.INVOICE_ID = C_INVOICE_ID
AND H.RELEASE_LOOKUP_CODE is null ) )
AND ( EXISTS (
SELECT
'Invoice has been approved'
FROM
FINANCIALS_SYSTEM_PARAMETERS FP
WHERE exists (
SELECT
'Invoice has been approved'
FROM
AP_INVOICE_DISTRIBUTIONS D1
WHERE D1.INVOICE_ID = C_INVOICE_ID )
AND ( ( NVL(FP.PURCH_ENCUMBRANCE_FLAG
,'N') = 'N'
AND not exists (
SELECT
'Invoice is not fully approved'
FROM
AP_INVOICE_DISTRIBUTIONS D2
WHERE D2.INVOICE_ID = C_INVOICE_ID
AND NVL(D2.MATCH_STATUS_FLAG
,'N') = 'N' ) )
OR ( NVL(FP.PURCH_ENCUMBRANCE_FLAG
,'N') = 'Y'
AND not exists (
SELECT
'Invoice is not fully approved'
FROM
AP_INVOICE_DISTRIBUTIONS D3
WHERE D3.INVOICE_ID = C_INVOICE_ID
AND NVL(D3.MATCH_STATUS_FLAG
,'N') <> 'A' ) ) ) ) ) );