The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure update_application_set
(p_validate in boolean default false
,p_application_set_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_application_set';
savepoint update_application_set;
hxc_application_set_BK_2.update_application_set_b
(p_application_set_id => p_application_set_id
,p_object_version_number => p_object_version_number
,p_name => p_name
);
(p_module_name => 'update_application_set'
,p_hook_type => 'BP'
);
hxc_application_set_BK_2.update_application_set_a
(p_application_set_id => p_application_set_id
,p_object_version_number => l_object_version_number
,p_name => p_name
);
(p_module_name => 'update_application_set'
,p_hook_type => 'AP'
);
ROLLBACK TO update_application_set;
ROLLBACK TO update_application_set;
END update_application_set;
procedure delete_application_set
(p_validate in boolean default false
,p_application_set_id in number
,p_object_version_number in number
) is
--
-- Declare cursors and local variables
--
l_proc varchar2(72);
l_proc:= g_package||'delete_application_set';
savepoint delete_application_set;
hxc_application_set_api.chk_delete (
p_entity_group_id => p_application_set_id
, p_entity_type => g_entity_type );
hxc_application_set_BK_3.delete_application_set_b
(p_application_set_id => p_application_set_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_application_set_b'
,p_hook_type => 'BP'
);
hxc_application_set_BK_3.delete_application_set_a
(p_application_set_id => p_application_set_id
,p_object_version_number => p_object_version_number
);
(p_module_name => 'delete_application_set_a'
,p_hook_type => 'AP'
);
ROLLBACK TO delete_application_set;
ROLLBACK TO delete_application_set;
end delete_application_set;
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
, 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_APPLICATION_SET'
AND attribute1 = TO_CHAR(p_entity_group_id) );
l_proc := g_package||'chk_delete';
END chk_delete;