The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pbg.security_group_id
from per_business_groups pbg
, pqh_de_wrkplc_vldtns def
where def.wrkplc_vldtn_id = p_wrkplc_vldtn_id
and pbg.business_group_id = def.business_group_id;
select pbg.legislation_code
from per_business_groups pbg
, pqh_de_wrkplc_vldtns def
where def.wrkplc_vldtn_id = p_wrkplc_vldtn_id
and pbg.business_group_id = def.business_group_id;
Procedure chk_non_updateable_args
(p_effective_date in date
,p_rec in pqh_def_shd.g_rec_type
) IS
--
l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
End chk_non_updateable_args;
Select Validation_Name
from Pqh_De_Wrkplc_Vldtns
Where Validation_Name like P_Rec.Validation_Name
and Business_Group_Id = P_Rec.Business_Group_Id;
Procedure Chk_delete
(p_rec in pqh_def_shd.g_rec_type) is
l_proc varchar2(72) := g_package||'Ckh_Delete';
Select '1' from
Pqh_De_Wrkplc_Vldtn_Vers
Where Wrkplc_Vldtn_Id = P_rec.Wrkplc_Vldtn_Id;
End Chk_Delete;
Procedure insert_validate
(p_effective_date in date
,p_rec in pqh_def_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_def_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_def_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'delete_validate';
Chk_delete (p_rec);
End delete_validate;