The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT model_usage_id INTO usageId
FROM cz_model_usages
WHERE name = usage_name;
SELECT model_usage_id INTO usageId
FROM cz_model_usages
WHERE name = usage_name;
SELECT model_usage_id INTO usageId
FROM cz_model_usages
WHERE name = usage_name;
PROCEDURE DELETE_USAGE(usageId IN NUMBER,
delete_status IN OUT NOCOPY VARCHAR2)
AS
TYPE t_indexes IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
v_nodes.DELETE;
v_rules.DELETE;
v_masks_nodes.DELETE;
v_masks_rules.DELETE;
SELECT ps_node_id,
effective_usage_mask
BULK
COLLECT
INTO v_nodes,
v_masks_nodes
FROM cz_ps_nodes
WHERE effective_usage_mask NOT IN ('0', '0000000000000000')
ORDER BY effective_usage_mask;
SELECT rule_id,
effective_usage_mask
BULK
COLLECT
INTO v_rules,
v_masks_rules
FROM cz_rules
WHERE effective_usage_mask NOT IN ('0', '0000000000000000')
ORDER BY effective_usage_mask;
UPDATE cz_model_usages
SET in_use = 'X'
WHERE model_usage_id = usageId;
DELETE FROM cz_publication_usages
WHERE usage_id = usageId;
DELETE FROM cz_rp_entries
WHERE object_type ='USG' and object_id = usageId;
UPDATE cz_ps_nodes
SET effective_usage_mask = v_masks_nodes(i)
WHERE ps_node_id = v_nodes(i);
UPDATE cz_rules
SET effective_usage_mask = v_masks_rules(i)
WHERE rule_id = v_rules(i);
delete_status := '-1';
delete_status := '0';
END DELETE_USAGE;