The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy per_bil_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into hr_summary
( type,
business_group_id,
object_version_number,
id_value,
fk_value1,
fk_value2,
fk_value3,
text_value1,
text_value2,
text_value3,
text_value4,
text_value5,
text_value6,
text_value7,
num_value1,
num_value2,
num_value3,
date_value1,
date_value2,
date_value3
)
Values
( p_rec.type,
p_rec.business_group_id,
p_rec.object_version_number,
p_rec.id_value,
p_rec.fk_value1,
p_rec.fk_value2,
p_rec.fk_value3,
p_rec.text_value1,
p_rec.text_value2,
p_rec.text_value3,
p_rec.text_value4,
p_rec.text_value5,
p_rec.text_value6,
p_rec.text_value7,
p_rec.num_value1,
p_rec.num_value2,
p_rec.num_value3,
p_rec.date_value1,
p_rec.date_value2,
p_rec.date_value3
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy per_bil_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select hr_summary_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in per_bil_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
per_bil_rki.after_insert
(
p_type =>p_rec.type
,p_business_group_id =>p_rec.business_group_id
,p_object_version_number =>p_rec.object_version_number
,p_id_value =>p_rec.id_value
,p_fk_value1 =>p_rec.fk_value1
,p_fk_value2 =>p_rec.fk_value2
,p_fk_value3 =>p_rec.fk_value3
,p_text_value1 =>p_rec.text_value1
,p_text_value2 =>p_rec.text_value2
,p_text_value3 =>p_rec.text_value3
,p_text_value4 =>p_rec.text_value4
,p_text_value5 =>p_rec.text_value5
,p_text_value6 =>p_rec.text_value6
,p_text_value7 =>p_rec.text_value7
,p_num_value1 =>p_rec.num_value1
,p_num_value2 =>p_rec.num_value2
,p_num_value3 =>p_rec.num_value3
,p_date_value1 =>p_rec.date_value1
,p_date_value2 =>p_rec.date_value2
,p_date_value3 =>p_rec.date_value3
);
End post_insert;
per_bil_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);