The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_time_entry_rule_group
(p_validate in boolean default false
,p_time_entry_rule_group_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_time_entry_rule_group';
savepoint update_time_entry_rule_group;
hxc_time_entry_rule_group_BK_2.update_time_entry_rule_group_b
(p_time_entry_rule_group_id => p_time_entry_rule_group_id
,p_object_version_number => p_object_version_number
,p_name => p_name
);
(p_module_name => 'update_time_entry_rule_group'
,p_hook_type => 'BP'
);
hxc_time_entry_rule_group_BK_2.update_time_entry_rule_group_a
(p_time_entry_rule_group_id => p_time_entry_rule_group_id
,p_object_version_number => l_object_version_number
,p_name => p_name
);
(p_module_name => 'update_time_entry_rule_group'
,p_hook_type => 'AP'
);
ROLLBACK TO update_time_entry_rule_group;
ROLLBACK TO update_time_entry_rule_group;
END update_time_entry_rule_group;
procedure delete_time_entry_rule_group
(p_validate in boolean default false
,p_time_entry_rule_group_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc := g_package||'delete_time_entry_rule_group';
savepoint delete_time_entry_rule_group;
hxc_time_entry_rule_group_api.chk_delete (
p_entity_group_id => p_time_entry_rule_group_id
, p_entity_type => g_entity_type );
hxc_time_entry_rule_group_BK_3.delete_time_entry_rule_group_b
(p_time_entry_rule_group_id => p_time_entry_rule_group_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_time_entry_rule_group_b'
,p_hook_type => 'BP'
);
hxc_time_entry_rule_group_BK_3.delete_time_entry_rule_group_a
(p_time_entry_rule_group_id => p_time_entry_rule_group_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_time_entry_rule_group_a'
,p_hook_type => 'AP'
);
ROLLBACK TO delete_time_entry_rule_group;
ROLLBACK TO delete_time_entry_rule_group;
end delete_time_entry_rule_group;
SELECT 'error'
FROM sys.dual
WHERE EXISTS (
SELECT 'x'
FROM hxc_entity_groups heg
WHERE heg.name = p_name
AND heg.entity_type = p_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
,p_entity_type in hxc_entity_group_comps.entity_type%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_TIME_ENTRY_RULES'
AND attribute1 = TO_CHAR(p_entity_group_id) );
l_proc := g_package||'chk_delete';
END chk_delete;