The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out NOCOPY ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ghr_pd_classifications
set
class_grade_by = p_rec.class_grade_by,
official_title = p_rec.official_title,
pay_plan = p_rec.pay_plan,
occupational_code = p_rec.occupational_code,
grade_level = p_rec.grade_level,
object_version_number = p_rec.object_version_number
where pd_classification_id = p_rec.pd_classification_id;
End update_dml;
Procedure pre_update(p_rec in ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
ghr_pdc_rku.after_update (
p_pd_classification_id => p_rec.pd_classification_id,
p_position_description_id => p_rec.position_description_id,
p_class_grade_by => p_rec.class_grade_by,
p_official_title => p_rec.official_title,
p_pay_plan => p_rec.pay_plan,
p_occupational_code => p_rec.occupational_code,
p_grade_level => p_rec.grade_level,
p_object_version_number => p_rec.object_version_number,
p_position_description_id_o => ghr_pdc_shd.g_old_rec.position_description_id,
p_class_grade_by_o => ghr_pdc_shd.g_old_rec.class_grade_by,
p_official_title_o => ghr_pdc_shd.g_old_rec.official_title,
p_pay_plan_o => ghr_pdc_shd.g_old_rec.pay_plan,
p_occupational_code_o => ghr_pdc_shd.g_old_rec.occupational_code,
p_grade_level_o => ghr_pdc_shd.g_old_rec.grade_level,
p_object_version_number_o => ghr_pdc_shd.g_old_rec.object_version_number
);
End post_update;
ghr_pdc_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);