The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
SUPPLIER_NUM_TYPE
INTO MANUAL_VEND_NUM_TYPE
FROM
AP_PRODUCT_SETUP;
SELECT
SORT_BY_ALTERNATE_FIELD
INTO SORT_BY_ALTERNATE
FROM
AP_SYSTEM_PARAMETERS;
SELECT
TERRITORY_SHORT_NAME
INTO DEFAULT_COUNTRY_NAME
FROM
FND_TERRITORIES_VL
WHERE TERRITORY_CODE = DEFAULT_COUNTRY_CODE;
SELECT
TERRITORY_SHORT_NAME
INTO DEFAULT_COUNTRY_NAME
FROM
FND_TERRITORIES_VL
WHERE TERRITORY_CODE = 'US';
ELSIF (UPPER(P_ORDER_BY_PAR) = 'LAST UPDATED BY') THEN
/*SRW.MESSAGE('13'
,'Getting Supplier information, order by Last Updated by...')*/NULL;
SELECT
COUNT(TO_NUMBER(SEGMENT1))
INTO V_CNT_SUPP
FROM
PO_VENDORS;
P_SUPPLIERS_THIS_ORG_SQL := 'AND EXISTS (SELECT ps.vendor_site_id FROM po_vendor_sites ps ' || 'WHERE ps.vendor_id = p.vendor_id)';
IF P_UPDATE_DATE_FROM IS NOT NULL AND P_UPDATE_DATE_TO IS NOT NULL THEN
IF P_SITE_PAR = 'Y' THEN
LP_S_UPDATE_DATE_FROM := 'AND (to_date(to_char(ps.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
BETWEEN to_date(''' || TO_CHAR(P_UPDATE_DATE_FROM
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')
AND to_date(''' || TO_CHAR(P_UPDATE_DATE_TO
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
LP_V_UPDATE_DATE_FROM := 'AND (to_date(to_char(p.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
BETWEEN to_date(''' || TO_CHAR(P_UPDATE_DATE_FROM
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')
AND to_date(''' || TO_CHAR(P_UPDATE_DATE_TO
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
ELSIF P_UPDATE_DATE_FROM IS NOT NULL AND P_UPDATE_DATE_TO IS NULL THEN
IF P_SITE_PAR = 'Y' THEN
LP_S_UPDATE_DATE_FROM := 'AND (to_date(to_char(ps.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
BETWEEN to_date(''' || TO_CHAR(P_UPDATE_DATE_FROM
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')
AND to_date(''' || TO_CHAR(SYSDATE
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
LP_V_UPDATE_DATE_FROM := 'AND (to_date(to_char(p.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
BETWEEN to_date(''' || TO_CHAR(P_UPDATE_DATE_FROM
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')
AND to_date(''' || TO_CHAR(SYSDATE
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
ELSIF P_UPDATE_DATE_TO IS NOT NULL AND P_UPDATE_DATE_FROM IS NULL THEN
IF P_SITE_PAR = 'Y' THEN
LP_S_UPDATE_DATE_TO := 'AND (to_date(to_char(ps.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
<= to_date(''' || TO_CHAR(P_UPDATE_DATE_TO
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
LP_V_UPDATE_DATE_TO := 'AND (to_date(to_char(p.last_update_date, ''' || 'DD/MM/YYYY' || '''), ''' || 'DD/MM/YYYY' || ''')
<= to_date(''' || TO_CHAR(P_UPDATE_DATE_TO
,'DD/MM/YYYY') || ''', ''' || 'DD/MM/YYYY' || ''')) ';
IF P_UPDATED_BY IS NOT NULL THEN
IF P_SITE_PAR = 'Y' THEN
LP_S_UPDATED_BY := 'AND ps.last_updated_by = ' || TO_CHAR(P_UPDATED_BY);
LP_V_UPDATED_BY := 'AND p.last_updated_by = ' || TO_CHAR(P_UPDATED_BY);
SELECT
SUBSTR(PG.DISPLAYED_FIELD
,1
,10),
SUBSTR(VT.DISPLAYED_FIELD
,1
,10)
INTO L_PAY_GROUP,L_VENDOR_TYPE
FROM
PO_LOOKUP_CODES PG,
PO_LOOKUP_CODES VT
WHERE PG.LOOKUP_TYPE = 'PAY GROUP'
AND PG.LOOKUP_CODE = C_PAY_GROUP;
SELECT
P.BASE_CURRENCY_CODE,
C.PRECISION,
C.MINIMUM_ACCOUNTABLE_UNIT
INTO L_BASE_CURR,L_PREC,L_MIN_AU
FROM
AP_SYSTEM_PARAMETERS P,
FND_CURRENCIES_VL C
WHERE P.BASE_CURRENCY_CODE = C.CURRENCY_CODE;
SELECT
SUBSTR(NAME
,1
,30),
CHART_OF_ACCOUNTS_ID
INTO L_NAME,L_CHART_OF_ACCOUNTS_ID
FROM
GL_SETS_OF_BOOKS
WHERE SET_OF_BOOKS_ID = L_SOB_ID;
SELECT
LY.MEANING,
LN.MEANING,
LA.DISPLAYED_FIELD,
LI.DISPLAYED_FIELD,
AP_UTILITIES_PKG.AP_GET_DISPLAYED_FIELD('ALL OR ACTIVE'
,'Active'),
AP_UTILITIES_PKG.AP_GET_DISPLAYED_FIELD('ALL OR ACTIVE'
,'All')
INTO NLS_YES,NLS_NO,L_NLS_ACTIVE,L_NLS_INACTIVE,NLS_ACTIVE,NLS_ALL
FROM
FND_LOOKUPS LY,
FND_LOOKUPS LN,
AP_LOOKUP_CODES LA,
AP_LOOKUP_CODES LI
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 = 'CODE_STATUS'
AND LA.LOOKUP_CODE = 'A'
AND LI.LOOKUP_TYPE = 'CODE_STATUS'
AND LI.LOOKUP_CODE = 'I';
SELECT
VENDOR_NAME
INTO CP_VENDOR_NAME
FROM
PO_VENDORS
WHERE VENDOR_ID = P_VENDOR_ID_PAR;
SELECT
USER_NAME
INTO CP_CREATED_BY
FROM
FND_USER
WHERE USER_ID = P_CREATED_BY;
IF P_UPDATED_BY IS NOT NULL THEN
SELECT
USER_NAME
INTO CP_UPDATED_BY
FROM
FND_USER
WHERE USER_ID = P_UPDATED_BY;
SELECT
DISPLAYED_FIELD
INTO CP_ORDER_BY
FROM
AP_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'ORDER BY'
AND LOOKUP_CODE = P_ORDER_BY_PAR;
SELECT
DISPLAYED_FIELD
INTO CP_PAY_GROUP
FROM
PO_LOOKUP_CODES
WHERE LOOKUP_TYPE = 'PAY GROUP'
AND LOOKUP_CODE = P_PAY_GROUP_PAR;
FUNCTION CP_UPDATED_BY_P RETURN VARCHAR2 IS
BEGIN
RETURN CP_UPDATED_BY;
END CP_UPDATED_BY_P;
function R_vendorFormatTrigger(c_creation_date_vendor in DATE,c_update_date_vendor in DATE,c_created_by_v_num in NUMBER, c_updated_by_v_num in NUMBER ) return varchar2 is
c_control_pay_group boolean;
c_control_update_date boolean;
c_control_updated_by boolean;
if p_update_date_from is not null and
p_update_date_to is not null
then
if to_date(to_char(c_update_date_vendor,'DD/MM/YYYY'), 'DD/MM/YYYY')
BETWEEN to_date(to_char(p_update_date_from,'DD/MM/YYYY'), 'DD/MM/YYYY')
AND to_date(to_char(p_update_date_to, 'DD/MM/YYYY'), 'DD/MM/YYYY') then
c_control_update_date := true;
c_control_update_date := false;
elsif p_update_date_from is not null and
p_update_date_to is null
then
if to_date(to_char(c_update_date_vendor,'DD/MM/YYYY'), 'DD/MM/YYYY')
BETWEEN to_date(to_char(p_update_date_from,'DD/MM/YYYY'), 'DD/MM/YYYY')
AND to_date(to_char(sysdate, 'DD/MM/YYYY'), 'DD/MM/YYYY') then
c_control_update_date := true;
c_control_update_date := false;
elsif p_update_date_to is not null and
p_update_date_from is null
then
if to_date(to_char(c_update_date_vendor,'DD/MM/YYYY'), 'DD/MM/YYYY')
<= to_date(to_char(p_update_date_to,'DD/MM/YYYY'), 'DD/MM/YYYY') then
c_control_update_date := true;
c_control_update_date := false;
if p_updated_by is not null then
if c_updated_by_v_num = p_updated_by then
c_control_updated_by := true;
c_control_updated_by := false;
if ( c_control_update_date = false or c_control_creation_date = false or c_control_pay_group = false or
c_control_created_by = false or c_control_updated_by = false) then
return ('false');