The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out NOCOPY ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into ghr_pd_classifications
( pd_classification_id,
position_description_id,
class_grade_by,
official_title,
pay_plan,
occupational_code,
grade_level,
object_version_number
)
Values
( p_rec.pd_classification_id,
p_rec.position_description_id,
p_rec.class_grade_by,
p_rec.official_title,
p_rec.pay_plan,
p_rec.occupational_code,
p_rec.grade_level,
p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert(p_rec in out NOCOPY ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select ghr_pd_classifications_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in ghr_pdc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
ghr_pdc_rki.after_insert (
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
);
End post_insert;
ghr_pdc_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);