The following lines contain the word 'select', 'insert', 'update' or 'delete':
For loc_rec IN (SELECT manufacturing,
trading
FROM JAI_CMN_INVENTORY_ORGS
WHERE organization_id = p_organization_id
AND location_id = v_rg_location_id)
LOOP
v_subinv := NVL(loc_rec.manufacturing, 'N')||NVL(loc_rec.trading, 'N');
For hr_rec IN (SELECT excise_duty_range range,
excise_duty_division div
FROM JAI_CMN_VENDOR_SITES
WHERE vendor_id = p_vendor_id
AND vendor_site_id = p_vendor_site_id)
LOOP
p_range_no := hr_rec.range;
For org_rec IN (SELECT currency_code
FROM gl_sets_of_books
WHERE set_of_books_id = v_set_of_books_id)
LOOP
v_func_currency := org_rec.currency_code;
For item_rec IN (SELECT to_organization_id,
item_id
FROM rcv_shipment_lines
WHERE shipment_line_id = p_shipment_line_id)
LOOP
p_organization_id := item_rec.to_organization_id;
For hr_rec IN (SELECT inventory_organization_id org
FROM hr_locations
WHERE location_id = p_location_id)
LOOP
v_organization_id := NVL(hr_rec.org, 0);
For location_rec IN (SELECT location_id
FROM JAI_INV_SUBINV_DTLS
WHERE organization_id = p_organization_id
AND sub_inventory_name = p_subinventory)
LOOP
v_rg_location_id := location_rec.location_id;