The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT DISTINCT(NVL(lang.language_code, l_base)) language_code
FROM po_vendor_sites pvs,
ap_invoices inv,
po_vendors pv,
ap_holds h,
fnd_languages lang
WHERE inv.vendor_site_id = pvs.vendor_site_id
AND inv.payment_status_flag in ('N', 'P')
AND pv.vendor_id = pvs.vendor_id
AND h.invoice_id = inv.invoice_id
AND h.hold_lookup_code = 'INVALID PO'
AND h.release_lookup_code is null
AND lang.nls_language (+) = pvs.language;
select language_code
INTO l_base
from fnd_languages
where installed_flag = 'B';
selectstmt VARCHAR2(1500);
selectstmt := 'SELECT DISTINCT(NVL(lang.language_code, base.language_code))'||
' FROM po_vendors pvd,'||
' po_vendor_sites pvs,'||
' ap_invoices ai,'||
' ap_invoices pp,'||
' ap_invoice_prepays aipp,'||
' fnd_languages base,'||
' fnd_languages lang'||
' WHERE aipp.invoice_id = ai.invoice_id'||
' AND aipp.prepay_id = pp.invoice_id'||
' AND ai.vendor_id = pp.vendor_id'||
' AND ai.vendor_id = pvd.vendor_id'||
' AND pvd.vendor_id = pvs.vendor_id'||
' AND pvs.vendor_site_id = ai.vendor_site_id'||
' AND base.installed_flag = ''B'' '||
' AND lang.nls_language (+) = pvs.language';
selectstmt := selectstmt||' AND ai.vendor_id = :p_vendor_id';
selectstmt := selectstmt||' AND ai.invoice_id = :p_invoice_id';
selectstmt := selectstmt||' AND pp.invoice_id = :p_prepay_id';
selectstmt := selectstmt||' AND aipp.last_update_date >= :p_start_date';
selectstmt := selectstmt||' AND aipp.last_update_date <= :p_end_date';
selectstmt := selectstmt||' UNION SELECT DISTINCT(NVL(lang.language_code, base.language_code))'||
' FROM po_vendors pvd,'||
' po_vendor_sites pvs,'||
' ap_invoices ai,'||
' ap_invoice_distributions aid,'||
' ap_invoice_distributions aid2,'|| --3984580
' fnd_languages base,'||
' fnd_languages lang'||
' WHERE aid.invoice_id = ai.invoice_id'||
' AND aid.line_type_lookup_code = ''PREPAY'' '||
' AND ai.vendor_id = pvd.vendor_id'||
' AND pvd.vendor_id = pvs.vendor_id'||
' AND pvs.vendor_site_id = ai.vendor_site_id'||
' AND base.installed_flag = ''B'' '||
' AND nvl(aid.reversal_flag,''N'') != ''Y'' '||
' AND lang.nls_language (+) = pvs.language'||
' AND aid2.invoice_distribution_id = aid.prepay_distribution_id'||--3984580
' AND aid2.line_type_lookup_code = ''ITEM'' '; --3984580
selectstmt := selectstmt||' AND ai.vendor_id = :p_vendor_id';
selectstmt := selectstmt||' AND ai.invoice_id = :p_invoice_id';
selectstmt := selectstmt||' AND aid2.invoice_id = :p_prepay_id'; --3984580
selectstmt := selectstmt||' AND ai.invoice_date >= :p_start_date';
selectstmt := selectstmt||' AND ai.last_update_date <= :p_end_date';
dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
selectstmt VARCHAR2(1500);
selectstmt := 'SELECT DISTINCT(NVL(lang.language_code, base.language_code))'||
' FROM po_vendors pvd,' ||
' po_vendor_sites pvs,' ||
' ap_invoices ai,' ||
' fnd_languages base,' ||
' fnd_languages lang' ||
' WHERE ai.vendor_id = pvd.vendor_id' ||
' AND pvd.vendor_id = pvs.vendor_id' ||
' AND ai.vendor_site_id = pvs.vendor_site_id' ||
' AND base.installed_flag = ''B'' ' ||
' AND lang.nls_language (+) = pvs.language';
selectstmt := selectstmt||' AND pvd.vendor_type_lookup_code = :p_vendor_type';
selectstmt := selectstmt||' AND ai.pay_group_lookup_code = :p_pay_group';
selectstmt := selectstmt||' AND ai.vendor_id = :p_vendor_id';
selectstmt := selectstmt||' AND ai.invoice_type_lookup_code = :p_invoice_type';
selectstmt := selectstmt||' AND ai.invoice_id = :p_invoice_id';
selectstmt := selectstmt||' AND ai.invoice_date >= :p_start_date';
selectstmt := selectstmt||' AND ai.invoice_date <= :p_end_date';
dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);
selectstmt VARCHAR2(1500);
selectstmt := 'SELECT DISTINCT(NVL(lang.language_code, base.language_code))'||
' FROM po_vendors pvd,' ||
' po_vendor_sites pvs,' ||
' ap_invoices ai,' ||
' fnd_languages base,' ||
' fnd_languages lang' ||
' WHERE ai.vendor_id = pvd.vendor_id' ||
' AND pvd.vendor_id = pvs.vendor_id' ||
' AND ai.vendor_site_id = pvs.vendor_site_id' ||
' AND base.installed_flag = ''B'' ' ||
' AND lang.nls_language (+) = pvs.language' ||
' AND pvd.vendor_name between nvl(:p_vendor_name_from,''A'') and nvl(:p_vendor_name_to,''Z'')';
dbms_sql.parse(cursor_id, selectstmt, dbms_sql.v7);