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,
l1.displayed_field,
l2.displayed_field,
l3.displayed_field
INTO nls_yes,
nls_no,
nls_all,
nls_void,
nls_na
FROM fnd_lookups ly,
fnd_lookups ln,
ap_lookup_codes l1,
ap_lookup_codes l2,
ap_lookup_codes l3
WHERE ly.lookup_type = 'YES_NO'
AND ly.lookup_code = 'Y'
AND ln.lookup_type = 'YES_NO'
AND ln.lookup_code = 'N'
AND l1.lookup_type = 'NLS REPORT PARAMETER'
AND l1.lookup_code = 'ALL'
AND l2.lookup_type = 'NLS TRANSLATION'
AND l2.lookup_code = 'VOID'
AND l3.lookup_type = 'NLS REPORT PARAMETER'
AND l3.lookup_code = 'NA';
SELECT name, to_char(sysdate,'DD-MON-RR HH24:MI'),
chart_of_accounts_id
INTO l_name, l_curdate,
l_chart_of_accounts_id
FROM gl_sets_of_books
WHERE set_of_books_id = l_sob_id;
function c_update_miscsformula(type_1099 in varchar2, vendor_id in number) return varchar2 is
begin
BEGIN
IF P_update_misc = 'UPDATE' THEN
UPDATE ap_invoice_distributions id
SET type_1099 = type_1099
WHERE nvl(type_1099,1) <> nvl(type_1099,1)
AND invoice_id in (SELECT i.invoice_id
FROM AP_Invoices i, AP_Invoice_Payments ip
WHERE i.vendor_id = vendor_id
AND i.invoice_id = ip.invoice_id
AND nvl(ip.accounting_date,sysdate) between
P_start_date and
P_end_date )
AND id.line_type_lookup_code <> 'AWT'; return ('Y');
function c_update_regionsformula(region_R in varchar2, vendor_id_R in number, site_id_R in number) return varchar2 is
begin
DECLARE
l_region varchar2(25);
IF P_update_region = 'UPDATE' THEN
IF P_region_code='VENDOR SITE' THEN
l_region := region_R;
UPDATE ap_invoice_distributions id
SET income_tax_region = l_region
WHERE ( (P_region_code <>'VENDOR SITE'
AND NVL(id.income_tax_region, 'DuMmY') <> P_region_code)
OR (P_region_code = 'VENDOR SITE'
AND NVL(id.income_tax_region, 'DuMmY') <> l_region))
AND id.invoice_id in (SELECT i.invoice_id
FROM AP_Invoices i, AP_Invoice_Payments ip
WHERE i.vendor_id = vendor_id_R
AND i.vendor_site_id = site_id_R
AND i.invoice_id = ip.invoice_id
AND nvl(ip.accounting_date,sysdate) between
P_start_date and
P_end_date );
UPDATE ap_invoice_distributions id
SET income_tax_region = (select pvs.state
from po_vendor_sites pvs
where pvs.tax_reporting_site_flag= 'Y'
and pvs.vendor_id=vendor_id_R)
WHERE id.invoice_id in (SELECT i.invoice_id
FROM AP_Invoices i, AP_Invoice_Payments ip
WHERE i.vendor_id = vendor_id_R
AND i.vendor_site_id = site_id_R
AND i.invoice_id = ip.invoice_id
AND nvl(ip.accounting_date,sysdate) between
P_start_date and P_end_date )
AND nvl(id.income_tax_region,'DuMmY') <>
(select pvs2.state from po_vendor_sites pvs2
where pvs2.tax_reporting_site_flag= 'Y'
and pvs2.vendor_id=vendor_id_R);