The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_status(p_proc_name IN VARCHAR2,
p_if_id IN NUMBER,
p_err_msg IN VARCHAR2);
PROCEDURE api_selector ( item_type IN VARCHAR2,
item_key IN VARCHAR2,
actid IN NUMBER,
command IN VARCHAR2,
resultout IN OUT NOCOPY VARCHAR2 ) IS
l_item_int_id VARCHAR2(240);
SELECT user_name, item_number
FROM gmi_quantity_xml_interface
WHERE quantity_interface_id = TO_NUMBER(p_qty_if_id);
SELECT user_name, item_number
FROM gmi_items_xml_interface
WHERE item_interface_id = TO_NUMBER(p_item_if_id);
SELECT user_name, item_number, lot_number, ext_lot_id
FROM gmi_lots_xml_interface
WHERE lot_interface_id = TO_NUMBER(p_lot_if_id);
SELECT user_name, item_number, lot_number, ext_conv_id
FROM gmi_lots_conv_xml_interface
WHERE conv_interface_id = TO_NUMBER(p_conv_if_id);
END api_selector;
SELECT *
FROM gmi_quantity_xml_interface
WHERE quantity_interface_id = p_interface_id
AND ext_transaction_id = p_ext_txn_id;
SELECT DECODE(l_interface_rec.transaction_type,
'CREI', 1,
'ADJI', 2,
'TRNI', 3,
'STSI', 4,
'GRDI', 5,
'CRER', 6,
'ADJR', 7,
'TRNR', 8,
'STSR', 9,
'GRDR', 10,-1)
INTO l_trans_rec.trans_type
FROM dual;
DELETE FROM gmi_quantity_xml_interface
WHERE quantity_interface_id = l_qty_iface_id
AND ext_transaction_id = l_ext_txn_id;
/* Update error status */
l_return_status := l_status;
SELECT *
FROM gmi_items_xml_interface
WHERE item_interface_id = p_item_interface_id
AND EXT_ITEM_ID = p_ext_item_id;
DELETE FROM gmi_items_xml_interface
WHERE item_interface_id = l_item_iface_id
AND EXT_ITEM_ID = l_ext_item_id;
/* Update error status */
l_return_status := l_status;
SELECT *
FROM gmi_lots_xml_interface
WHERE lot_interface_id = p_interface_id
AND ext_lot_id = p_ext_lot_id;
DELETE FROM gmi_lots_xml_interface
WHERE lot_interface_id = l_lot_iface_id
AND ext_lot_id = l_ext_lot_id;
/* Update error status */
l_return_status := l_status;
SELECT *
FROM gmi_lots_conv_xml_interface
WHERE conv_interface_id = p_interface_id
AND ext_conv_id = p_ext_lot_id;
DELETE FROM gmi_lots_conv_xml_interface
WHERE conv_interface_id = l_lot_iface_id
AND ext_conv_id = l_ext_lot_id;
/* Update error status */
l_return_status := l_status;
-- Also update the interface table with status/messages
update_status( p_proc_name => p_proc_name,
p_if_id => p_if_id,
p_err_msg => p_msg);
PROCEDURE update_status(
p_proc_name IN VARCHAR2,
p_if_id IN NUMBER,
p_err_msg IN VARCHAR2)
IS
PRAGMA AUTONOMOUS_TRANSACTION;
UPDATE gmi_quantity_xml_interface
SET error_text = SUBSTRB(error_text || p_err_msg, 1, 2000),
processed_ind = 3
WHERE quantity_interface_id = p_if_id;
UPDATE gmi_items_xml_interface
SET error_text = SUBSTRB(error_text || p_err_msg, 1, 2000),
processed_ind = 3
WHERE item_interface_id = p_if_id;
UPDATE gmi_lots_xml_interface
SET error_text = SUBSTRB(error_text || p_err_msg, 1, 2000),
processed_ind = 3
WHERE lot_interface_id = p_if_id;
UPDATE gmi_lots_conv_xml_interface
SET error_text = SUBSTRB(error_text || p_err_msg, 1, 2000),
processed_ind = 3
WHERE conv_interface_id = p_if_id;
END update_status;
PROCEDURE confirm_api_selector ( item_type IN VARCHAR2,
item_key IN VARCHAR2,
actid IN NUMBER,
command IN VARCHAR2,
resultout IN OUT NOCOPY VARCHAR2 ) IS
BEGIN
IF( command = 'RUN' )
THEN
resultout := 'CONFIRM_API'; -- process name
END confirm_api_selector;
l_parameter_list.DELETE;
l_parameter_list.DELETE;