The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_retrieval_rule_grp
(p_validate in boolean default false
,p_retrieval_rule_grp_id in number
,p_object_version_number in out nocopy number
,p_name in varchar2
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc := g_package||' update_retrieval_rule_grp';
savepoint update_retrieval_rule_grp;
hxc_retrieval_rule_grp_BK_2.update_retrieval_rule_grp_b
(p_retrieval_rule_grp_id => p_retrieval_rule_grp_id
,p_object_version_number => p_object_version_number
,p_name => p_name
);
(p_module_name => 'update_retrieval_rule_grp'
,p_hook_type => 'BP'
);
hxc_retrieval_rule_grp_BK_2.update_retrieval_rule_grp_a
(p_retrieval_rule_grp_id => p_retrieval_rule_grp_id
,p_object_version_number => l_object_version_number
,p_name => p_name
);
(p_module_name => 'update_retrieval_rule_grp'
,p_hook_type => 'AP'
);
ROLLBACK TO update_retrieval_rule_grp;
ROLLBACK TO update_retrieval_rule_grp;
END update_retrieval_rule_grp;
procedure delete_retrieval_rule_grp
(p_validate in boolean default false
,p_retrieval_rule_grp_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc := g_package||'delete_retrieval_rule_grp';
savepoint delete_retrieval_rule_grp;
chk_delete ( p_entity_group_id => p_retrieval_rule_grp_id );
hxc_retrieval_rule_grp_BK_3.delete_retrieval_rule_grp_b
(p_retrieval_rule_grp_id => p_retrieval_rule_grp_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_retrieval_rule_grp_b'
,p_hook_type => 'BP'
);
hxc_retrieval_rule_grp_BK_3.delete_retrieval_rule_grp_a
(p_retrieval_rule_grp_id => p_retrieval_rule_grp_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_retrieval_rule_grp_a'
,p_hook_type => 'AP'
);
ROLLBACK TO delete_retrieval_rule_grp;
ROLLBACK TO delete_retrieval_rule_grp;
end delete_retrieval_rule_grp;
SELECT 'error'
FROM sys.dual
WHERE EXISTS (
SELECT 'x'
FROM hxc_entity_groups heg
WHERE heg.name = p_name
AND heg.entity_type = g_entity_type AND
( heg.entity_group_id <> p_entity_group_id OR
p_entity_group_id IS NULL ) );
Procedure chk_delete
(
p_entity_group_id in hxc_entity_groups.entity_group_id%TYPE
) IS
--
l_proc varchar2(72);
SELECT 'exists'
FROM sys.dual
WHERE EXISTS (
SELECT 'x'
FROM hxc_resource_all_elig_pref_v
WHERE preference_code = 'TS_PER_RETRIEVAL_RULES'
AND attribute1 = TO_CHAR(p_entity_group_id) );
l_proc := g_package||'chk_delete';
END chk_delete;