The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pqh_de_wrkplc_vldtn_vers ver
where ver.wrkplc_vldtn_ver_id = p_wrkplc_vldtn_ver_id
and pbg.business_group_id = ver.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pqh_de_wrkplc_vldtn_vers ver
where ver.wrkplc_vldtn_ver_id = p_wrkplc_vldtn_ver_id
and pbg.business_group_id = ver.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pqh_ver_shd.g_rec_type
) IS
--
l_proc varchar2(200) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Select '1' from
Per_gen_Hierarchy_Nodes a, Per_gen_Hierarchy_Nodes b
Where
a.Node_Type = 'TARIFF_CONTRACT' and a.Entity_Id = p_rec.Tariff_Contract_Code And
b.Node_Type = 'EMP_TYPE' and b.Entity_Id = l_Emp_Type and
b.Hierarchy_Node_Id = a.Parent_Hierarchy_Node_Id And
a.Hierarchy_Version_Id in (Select Hierarchy_Version_Id from
Per_Gen_Hierarchy_versions a, Per_gen_Hierarchy b where
Type = 'REMUNERATION_REGULATION' AND
a.Hierarchy_Id = b.Hierarchy_Id And
p_effective_date between a.Date_From and Nvl(a.Date_To,Trunc(Sysdate)) and
b.Business_Group_Id=p_rec.Business_Group_Id
) and
b.Hierarchy_Version_id = a.Hierarchy_Version_id;
Select Employment_type from
Pqh_De_Wrkplc_Vldtns
Where WRKPLC_VLDTN_ID = p_rec.WRKPLC_VLDTN_ID;
Select '1' from
Per_gen_Hierarchy_Nodes a, Per_gen_Hierarchy_Nodes b
Where
a.Node_Type = 'TARIFF_GROUP' and a.Entity_Id = p_rec.Tariff_Group_Code And
b.Node_Type = 'TARIFF_CONTRACT' and b.Entity_Id = p_rec.Tariff_Contract_Code and
b.Hierarchy_Node_Id = a.Parent_Hierarchy_Node_Id And
a.Hierarchy_Version_Id in (Select Hierarchy_Version_Id from
Per_Gen_Hierarchy_versions a, Per_gen_Hierarchy b where
Type = 'REMUNERATION_REGULATION' AND
a.Hierarchy_Id = b.Hierarchy_Id And
p_effective_date between a.Date_From and Nvl(a.Date_To,Trunc(Sysdate)) and
b.Business_Group_Id=p_rec.Business_Group_Id ) and
b.Hierarchy_Version_id = a.Hierarchy_Version_id;
Select d.Node_Type, d.Entity_Id, e.Node_type, e.Entity_Id,
F.Node_type, f.Entity_Id, g.Node_Type, g.Entity_Id
from
Per_gen_Hierarchy_Nodes a, Per_gen_Hierarchy_Nodes b,
Per_gen_Hierarchy_Nodes c, Per_gen_Hierarchy_Nodes d,
Per_gen_Hierarchy_Nodes e, Per_gen_Hierarchy_Nodes f,
Per_gen_Hierarchy_Nodes g
Where
a.Node_TYpe = 'PAY_GRADE' and
a.Entity_Id = p_GRADE_ID and
b.Hierarchy_node_Id = a.Parent_Hierarchy_Node_Id and
c.Hierarchy_Node_Id = b.Parent_Hierarchy_Node_Id and
d.Hierarchy_Node_Id = c.Parent_Hierarchy_Node_Id and
e.Hierarchy_Node_Id = d.Parent_Hierarchy_Node_Id and
f.Hierarchy_Node_Id = e.Parent_Hierarchy_Node_Id and
g.Hierarchy_Node_Id = f.Parent_Hierarchy_Node_Id and
a.Hierarchy_Version_Id in (Select Hierarchy_Version_Id from
Per_Gen_Hierarchy_versions a, Per_gen_Hierarchy b where
Type = 'REMUNERATION_REGULATION' AND
a.Hierarchy_Id = b.Hierarchy_Id And
p_Effective_Date between
a.Date_From and Nvl(a.Date_To,Trunc(Sysdate))and
b.Business_Group_Id=p_rec.Business_Group_Id ) and
b.Hierarchy_Version_id = a.Hierarchy_Version_id and
c.Hierarchy_Version_id = a.Hierarchy_Version_id and
d.Hierarchy_Version_id = a.Hierarchy_Version_id and
e.Hierarchy_Version_id = a.Hierarchy_Version_id and
f.Hierarchy_Version_id = a.Hierarchy_Version_id and
g.Hierarchy_Version_id = a.Hierarchy_Version_id;
Procedure insert_validate
(p_effective_date in date
,p_rec in pqh_ver_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 pqh_ver_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 pqh_ver_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
End delete_validate;