The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out NOCOPY ghr_nla_shd.g_rec_type) is
--
l_proc varchar2(72);
l_proc := g_package||'insert_dml';
insert into ghr_noac_las
( noac_la_id,
nature_of_action_id,
lac_lookup_code,
enabled_flag,
date_from,
date_to,
object_version_number,
valid_first_lac_flag,
valid_second_lac_flag
)
Values
( p_rec.noac_la_id,
p_rec.nature_of_action_id,
p_rec.lac_lookup_code,
p_rec.enabled_flag,
p_rec.date_from,
p_rec.date_to,
p_rec.object_version_number,
p_rec.valid_first_lac_flag,
p_rec.valid_second_lac_flag
);
End insert_dml;
Procedure pre_insert(p_rec in out NOCOPY ghr_nla_shd.g_rec_type) is
--
l_proc varchar2(72);
Cursor C_Sel1 is select ghr_noac_las_s.nextval from sys.dual;
l_proc := g_package||'pre_insert';
End pre_insert;
Procedure post_insert(
p_effective_date in date,p_rec in ghr_nla_shd.g_rec_type) is
--
l_proc varchar2(72) ;
l_proc := g_package||'post_insert';
ghr_nla_rki.after_insert
(
p_noac_la_id =>p_rec.noac_la_id
,p_nature_of_action_id =>p_rec.nature_of_action_id
,p_lac_lookup_code =>p_rec.lac_lookup_code
,p_enabled_flag =>p_rec.enabled_flag
,p_date_from =>p_rec.date_from
,p_date_to =>p_rec.date_to
,p_object_version_number =>p_rec.object_version_number
,p_valid_first_lac_flag =>p_rec.valid_first_lac_flag
,p_valid_second_lac_flag =>p_rec.valid_second_lac_flag
,p_effective_date =>p_effective_date
);
End post_insert;
ghr_nla_bus.insert_validate(p_rec
,p_effective_date);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(
p_effective_date,p_rec);