The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT sum(POD.quantity_ordered)
FROM po_distributions POD
WHERE POD.po_distribution_id = X_po_line_location_id;
SELECT max(POD.po_distribution_id)
INTO X_max_distribution_id
FROM po_distributions POD
WHERE POD.line_location_id = X_po_line_location_id;
SELECT
deliver_to_person_id,
quantity_ordered,
amount_ordered,
rate,
rate_date,
gl_encumbered_date,
code_combination_id,
project_id, -- Bug # 6408034
--< Shared Proc FPJ Start >
dest_charge_account_id,
--< Shared Proc FPJ End >
recovery_rate,
distribution_num,
destination_subinventory
INTO
X_temp_deliver_to_person_id,
X_temp_quantity_ordered,
X_temp_amount_ordered,
X_temp_rate,
X_temp_rate_date,
X_temp_gl_encumbered_date,
X_temp_charge_account_id,
X_temp_project_id, -- Bug # 6408034
--< Shared Proc FPJ Start >
l_temp_dest_charge_account_id,
--< Shared Proc FPJ End >
X_temp_recovery_rate,
X_temp_distribution_num,
X_temp_dest_subinventory
FROM po_distributions
WHERE po_distribution_id = X_distribution_id;
-- dbms_output.put_line('In UPDATE exception');