The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION insert_sublot_gen(p_i_item_id IN NUMBER,
p_i_lot_no IN VARCHAR2,
p_i_sublot_suffix IN NUMBER)
RETURN NUMBER IS
PRAGMA AUTONOMOUS_TRANSACTION;
INSERT INTO GMI_SUBLOT_GENERATE
(item_id, lot_no, next_sublot_suffix,
creation_date, created_by,
last_update_date, last_updated_by)
VALUES (p_i_item_id, p_i_lot_no, p_i_sublot_suffix,
SYSDATE, l_userid, SYSDATE, l_userid);
END insert_sublot_gen;
FUNCTION update_sublot_gen(p_next_sublot IN NUMBER,
p_item_id IN NUMBER,
p_i_lot_no IN VARCHAR2)
RETURN NUMBER IS
PRAGMA AUTONOMOUS_TRANSACTION;
UPDATE GMI_SUBLOT_GENERATE
set next_sublot_suffix = p_next_sublot
where item_id = p_item_id AND
lot_no = p_i_lot_no;
END update_sublot_gen;
FUNCTION update_item_suffix(p_item_id IN NUMBER,
p_suffix IN NUMBER)
RETURN NUMBER IS
PRAGMA AUTONOMOUS_TRANSACTION;
UPDATE IC_ITEM_MST_B
set lot_suffix = p_suffix
where item_id = p_item_id;
END update_item_suffix;
SELECT lot_id
FROM ic_lots_mst
WHERE item_id = p_f_item_id AND
lot_no = p_f_lot_no AND
sublot_no = p_f_sublot_no;
SELECT lot_id
FROM ic_lots_mst
WHERE item_id = p_f_item_id AND
lot_no = p_f_lot_no;
e_sublot_insert EXCEPTION;
SELECT lot_ctl, sublot_ctl,
autolot_active_indicator, lot_prefix,
lot_suffix, sublot_prefix, sublot_suffix
FROM ic_item_mst_b
WHERE item_id = p_item_id;
SELECT next_sublot_suffix
FROM gmi_sublot_generate
WHERE item_id = p_item_id AND
lot_no = p_in_lot_no;
l_retcode := insert_sublot_gen(p_item_id,
p_in_lot_no,
db_sublot_suffix);
RAISE e_sublot_insert;
l_updcode := update_sublot_gen(w_next_sublot, p_item_id, p_in_lot_no);
l_itmcode := update_item_suffix(p_item_id, w_next_lot);
WHEN e_sublot_insert THEN
FND_MESSAGE.SET_NAME ('GMI','GMI_AUTOLOT_INSERT_SUBLOT_ERR');
SELECT autolot_active_indicator
FROM ic_item_mst_b
WHERE item_id = p_item_id;