The following lines contain the word 'select', 'insert', 'update' or 'delete':
g_build_package_tbl.delete;
select count(rule_id) into l_rule_count
from wms_rules_b
where type_code = p_type_code
and enabled_flag = 'Y';
SELECT 1
FROM dual
WHERE exists(
SELECT status
FROM all_objects
WHERE object_name = p_package_name
AND object_type = 'PACKAGE'
AND status <> 'VALID'
AND owner = g_owner);
SELECT 1
FROM dual
WHERE exists(
SELECT status
FROM all_objects
WHERE object_name = p_package_name
AND object_type = 'PACKAGE BODY'
AND status <> 'VALID'
AND owner = g_owner);
/*SELECT rule_id
FROM WMS_RULES_B
WHERE enabled_flag = 'Y'
AND type_code = p_type_code
ORDER BY rule_weight DESC, creation_date;*/
SELECT /*+ leading(rl) */ rl.rule_id
FROM WMS_RULES_B rl , all_objects obj
WHERE rl.enabled_flag = 'Y'
AND rl.type_code = p_type_code
AND (obj.object_name = 'WMS_RULE_'|| to_char(rl.rule_id)
AND obj.object_type = 'PACKAGE BODY'
AND obj.owner = g_owner AND obj.status = 'VALID' )
ORDER BY rl.rule_weight DESC, rl.creation_date;
g_tbl_pkg_body.DELETE;
g_tbl_pkg_body_f.DELETE;
g_tbl_pkg_body_f_avail.DELETE;
g_tbl_pkg_body_c.DELETE;
select oracle_username into g_owner
from fnd_oracle_userid
where read_only_flag = 'U';
update_count(l_type_name, l_counter );
update_count(l_type_name, l_counter );
update_count(l_type_name, l_counter );
update_count(l_type_name, l_counter );
update_count(l_type_name, l_counter );
update_count(l_type_name, l_counter );
SELECT package_name_count
FROM WMS_RULE_LIST_PACKAGE
WHERE rule_type = p_rule_type for update;
SELECT package_name_count
FROM WMS_RULE_LIST_PACKAGE
WHERE rule_type = p_rule_type;
PROCEDURE update_count(
p_rule_type IN VARCHAR2
, p_count IN NUMBER ) IS
BEGIN
UPDATE WMS_RULE_LIST_PACKAGE
SET PACKAGE_NAME_COUNT = p_count
WHERE RULE_TYPE = p_rule_type;
END update_count;