The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_assets_tracking_flag
(err_buf OUT NOCOPY VARCHAR2,
ret_code OUT NOCOPY VARCHAR2,
p_ledger_id IN NUMBER,
p_chart_of_accounts IN NUMBER,
p_from_gl_date IN DATE,
p_to_gl_date IN DATE,
p_from_account IN VARCHAR2,
p_to_account IN VARCHAR2) IS
p_where_clause VARCHAR2(3000);
l_full_path VARCHAR2(100) := g_path || 'update_assets_tracking_flag';
p_inv_dist := 'SELECT invoice_id, distribution_line_number, invoice_distribution_id
FROM ap_invoice_distributions ap_inv_dist, gl_code_combinations cc
WHERE ap_inv_dist.dist_code_combination_id = cc.code_combination_id
AND posted_flag = '''||'Y'||''''||
'AND assets_addition_flag = '''||'U'||''''||
'AND assets_tracking_flag != '''||'Y'||''''||
'AND accounting_date BETWEEN :from_gl_date and :to_gl_date';
p_inv_dist := 'SELECT invoice_id, distribution_line_number, invoice_distribution_id
FROM ap_invoice_distributions ap_inv_dist, gl_code_combinations cc
WHERE ap_inv_dist.dist_code_combination_id = cc.code_combination_id
AND posted_flag = '''||'Y'||''''||
'AND assets_addition_flag = '''||'U'||''''||
'AND assets_tracking_flag != '''||'Y'||''''||
'AND accounting_date <= :to_gl_date';
'Select statement used for fetching invoice distributions');
UPDATE ap_invoice_distributions
SET assets_tracking_flag = 'Y'
WHERE invoice_distribution_id = l_inv_dist_id;
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'update_assets_tracking_flag: Processing Complete ...');
END update_assets_tracking_flag;
FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'print_header_info: PROGRAM - UPDATE ASSETS TRACKING FLAG');
SELECT po_ven.vendor_name supplier,
ap_inv.invoice_id invoice_id,
ap_inv.invoice_num invoice_number,
ap_inv_line.line_number line_number,
ap_inv_line.description line_description,
ap_inv_line.amount line_amount
FROM ap_invoices_all ap_inv,
ap_invoice_lines_all ap_inv_line,
po_vendors po_ven
WHERE ap_inv.invoice_id = c_invoice_id
AND ap_inv.invoice_id = ap_inv_line.invoice_id
AND ap_inv.vendor_id = po_ven.vendor_id;