The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
P.BASE_CURRENCY_CODE,
C.PRECISION,
NVL(C.MINIMUM_ACCOUNTABLE_UNIT
,0),
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
DISPLAYED_FIELD
INTO L_SORT_OPTION
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'AGING_SORT_OPTION'
AND LOOKUP_CODE = P_SORT_OPTION;
SELECT
DISPLAYED_FIELD
INTO L_SUMMARY_OPTION
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'AGING_SUMMARY_OPTION'
AND LOOKUP_CODE = P_SUMMARY_OPTION;
SELECT
DISPLAYED_FIELD
INTO L_FORMAT_OPTION
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'AGING_FORMAT_OPTION'
AND LOOKUP_CODE = P_FORMAT_OPTION;
SELECT
DISPLAYED_FIELD
INTO L_NLS_ALL
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'NLS REPORT PARAMETER'
AND LOOKUP_CODE = 'ALL';
C_INVOICE_TYPE_SELECT := '%';
SELECT
DISPLAYED_FIELD
INTO L_INVOICE_TYPE
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'INVOICE TYPE'
AND LOOKUP_CODE = P_INVOICE_TYPE;
C_INVOICE_TYPE_SELECT := P_INVOICE_TYPE;
SELECT
VENDOR_NAME
INTO L_VENDOR_NAME
FROM
PO_VENDORS
WHERE VENDOR_ID = P_VENDOR_ID;
C_VENDOR_NAME_SELECT := L_VENDOR_NAME;
C_VENDOR_NAME_SELECT := '%';
SELECT
MIN(DAYS_START),
MAX(DAYS_TO)
INTO MINDAY,MAXDAY
FROM
AP_AGING_PERIOD_LINES AAPL,
AP_AGING_PERIODS AAP
WHERE AAPL.AGING_PERIOD_ID = AAP.AGING_PERIOD_ID
AND UPPER(AAP.PERIOD_NAME) = UPPER(P_PERIOD_TYPE);
P_SELECT_CHECK_NUMBER := 'NULL';
P_SELECT_CHECK_NUMBER := 'to_char(c.check_number)';
SELECT
NAME
INTO L_LEDGER_NAME
FROM
GL_LEDGERS
WHERE LEDGER_ID = L_LEDGER_ID;
SELECT
NAME
INTO L_LEGAL_ENTITY_NAME
FROM
XLE_ENTITY_PROFILES
WHERE LEGAL_ENTITY_ID = L_LEGAL_ENTITY_ID;
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';
,'After Selecting Sort By Alternate Field')*/NULL;
,'Vendor Select' || C_VENDOR_NAME_SELECT)*/NULL;
,'Invoice Select' || C_INVOICE_TYPE_SELECT)*/NULL;
,'Check Number' || P_SELECT_CHECK_NUMBER)*/NULL;
SELECT
NAME,
CHART_OF_ACCOUNTS_ID
INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
FROM
GL_LEDGERS
WHERE LEDGER_ID = L_LEDGER_ID;
IF C_VENDOR_NAME_SELECT = '%' THEN
IF SORT_BY_ALTERNATE = 'Y' THEN
P_ORDER_BY := 'ORDER BY 4,8,11,17,19,23,15';
IF C_VENDOR_NAME_SELECT = '%' THEN
IF SORT_BY_ALTERNATE = 'Y' THEN
P_ORDER_BY := 'ORDER BY 17,4,8,11,17,19,23,15';
SELECT
LINES.DAYS_START,
LINES.DAYS_TO,
LINES.PERIOD_SEQUENCE_NUM,
REPORT_HEADING1,
REPORT_HEADING2
FROM
AP_AGING_PERIOD_LINES LINES,
AP_AGING_PERIODS PERIODS
WHERE LINES.AGING_PERIOD_ID = PERIODS.AGING_PERIOD_ID
AND UPPER(PERIODS.PERIOD_NAME) = UPPER(P_PERIOD_TYPE)
ORDER BY
LINES.PERIOD_SEQUENCE_NUM;
SELECT
SUBSTR(FIRST_NAME
,1
,1),
LAST_NAME,
PHONE
INTO L_FIRST_NAME,L_LAST_NAME,L_PHONE
FROM
PO_VENDOR_CONTACTS
WHERE VENDOR_SITE_ID = C_CONTACT_SITE_ID
AND ROWNUM = 1;
SELECT
NVL(PROFILE_OPTION_NAME
,''),
END_DATE_ACTIVE
INTO L_PROFILE,L_ENDDATE
FROM
FND_PROFILE_OPTIONS
WHERE PROFILE_OPTION_NAME = 'AP_SORT_BY_ALTERNATE';
SQL_PROFILE := 'SELECT nvl(SORT_BY_ALTERNATE_FIELD ,' || '''N''' || ') INTO :SORT_BY_ALTERNATE FROM AP_SYSTEM_PARAMETERS';
FUNCTION C_VENDOR_NAME_SELECT_P RETURN VARCHAR2 IS
BEGIN
RETURN C_VENDOR_NAME_SELECT;
END C_VENDOR_NAME_SELECT_P;
FUNCTION C_INVOICE_TYPE_SELECT_P RETURN VARCHAR2 IS
BEGIN
RETURN C_INVOICE_TYPE_SELECT;
END C_INVOICE_TYPE_SELECT_P;