The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups_perf pbg
, per_gen_hierarchy_versions pgv
where pgv.hierarchy_version_id = p_hierarchy_version_id
and pbg.business_group_id (+) = pgv.business_group_id;
select pbg.legislation_code
from per_business_groups_perf pbg
, per_gen_hierarchy_versions pgv
where pgv.hierarchy_version_id = p_hierarchy_version_id
and pbg.business_group_id (+) = pgv.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in per_pgv_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
SELECT 'Y'
FROM per_gen_hierarchy
WHERE ( (p_business_group_id is not null and business_group_id = p_business_group_id)
or p_business_group_id is null )
AND hierarchy_id = p_hierarchy_id;
SELECT nvl(Information2, 'Y')
FROM per_shared_types
WHERE lookup_type = 'HIERARCHY_TYPE'
AND system_type_cd = (SELECT Type
FROM Per_Gen_Hierarchy
WHERE hierarchy_id = p_hierarchy_id)
AND system_type_cd = shared_type_code;
SELECT 'Y'
FROM Per_Gen_Hierarchy_Versions
WHERE Hierarchy_Id = p_hierarchy_id;
SELECT '1'
FROM per_gen_hierarchy_versions
WHERE hierarchy_id = p_hierarchy_id
and
version_number = p_version_number;
SELECT 'Y'
FROM hr_all_organization_units
WHERE p_date_from >= date_from
AND (p_date_from <= date_to
OR date_to is null)
AND (business_group_id = p_business_group_id);
SELECT 'Y'
FROM per_gen_hierarchy_versions
WHERE p_date_from > date_from
AND date_to is null
AND hierarchy_version_id <> nvl(p_hierarchy_version_id,-1)
AND hierarchy_id = p_hierarchy_id;
SELECT 'Y'
FROM per_gen_hierarchy_versions
WHERE p_date_from >= date_from
AND (p_date_from <= date_to
OR date_to is null)
AND hierarchy_version_id <> nvl(p_hierarchy_version_id,-1)
AND hierarchy_id = p_hierarchy_id;
SELECT 'Y'
FROM hr_all_organization_units
WHERE l_date_to >= date_from
AND (l_date_to <= date_to
OR date_to is null)
AND (organization_id = p_business_group_id);
SELECT 'Y'
FROM per_gen_hierarchy_versions
WHERE l_date_to
between date_from
and nvl(date_to,l_date_to)
AND hierarchy_version_id <> nvl(p_hierarchy_version_id,-1)
AND hierarchy_id = p_hierarchy_id;
Procedure chk_delete
(p_hierarchy_version_id in per_gen_hierarchy_versions.hierarchy_version_id%TYPE
) is
--
-- Declare local variables
--
l_exists varchar2(1) := 'Y';
l_proc varchar2(72) := g_package||'chk_delete';
select 'Y'
from per_gen_hierarchy_nodes
where hierarchy_version_id = p_hierarchy_version_id;
end chk_delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in per_pgv_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_validate';
End insert_validate;
Procedure update_validate
(p_effective_date in date
,p_rec in per_pgv_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'update_validate';
chk_non_updateable_args
(p_effective_date => p_effective_date
,p_rec => p_rec
);
End update_validate;
Procedure delete_validate
(p_rec in per_pgv_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
chk_delete
(p_hierarchy_version_id => p_rec.hierarchy_version_id
);
End delete_validate;