The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy ben_bmn_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update ben_reporting
set
reporting_id = p_rec.reporting_id,
benefit_action_id = p_rec.benefit_action_id,
thread_id = p_rec.thread_id,
sequence = p_rec.sequence,
text = p_rec.text,
rep_typ_cd = p_rec.rep_typ_cd,
error_message_code = p_rec.error_message_code,
national_identifier = p_rec.national_identifier,
related_person_ler_id = p_rec.related_person_ler_id,
temporal_ler_id = p_rec.temporal_ler_id,
ler_id = p_rec.ler_id,
person_id = p_rec.person_id,
pgm_id = p_rec.pgm_id,
pl_id = p_rec.pl_id,
related_person_id = p_rec.related_person_id,
oipl_id = p_rec.oipl_id,
pl_typ_id = p_rec.pl_typ_id,
actl_prem_id = p_rec.actl_prem_id,
val = p_rec.val,
mo_num = p_rec.mo_num,
yr_num = p_rec.yr_num,
object_version_number = p_rec.object_version_number
where reporting_id = p_rec.reporting_id;
End update_dml;
Procedure pre_update(p_rec in ben_bmn_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in ben_bmn_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
ben_bmn_bus.update_validate(p_rec);
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);