The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT to_char(SYSDATE,'DDHHMISS')
INTO today
FROM dual;
p_insert_text VARCHAR2(80);
p_insert_text := SUBSTR(p_remainder_text,1,80);
Write_Line(p_insert_text, p_token);
Write_Line(p_insert_text, p_token);
log_buffer.DELETE(1,log_buffer.COUNT);
log_char_buffer.DELETE(1,log_char_buffer.COUNT);
FUNCTION update_locator_flex( organization_id IN NUMBER,
locator_id IN NUMBER,
subinventory IN VARCHAR2)
RETURN BOOLEAN IS
CURSOR c1 ( x_org_id NUMBER, x_loc_id NUMBER, x_subinv VARCHAR2) IS
SELECT 'Exist'
FROM mtl_item_locations
WHERE organization_id = x_org_id
AND inventory_location_id = x_loc_id
AND subinventory_code IS NOT NULL
AND subinventory_code <> x_subinv;
UPDATE mtl_item_locations a
SET a.subinventory_code = subinventory
WHERE a.organization_id = x_org_id
AND a.inventory_location_id = x_loc_id;
Default_Handler('WSH_UTIL.update_locator_flex',SQLERRM);
END update_locator_flex;
FND_MESSAGE.Set_Token('PROGRAM','Update Shipping Information');
FND_MESSAGE.Set_Name('OE','WSH_UPDATE_SHIPPING_FAILED');