The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy per_za_tra_shd.g_za_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_za_training (
TRAINING_ID,
LEVEL_ID,
PERSON_ID,
FIELD_OF_LEARNING,
COURSE,
SUB_FIELD,
CREDIT,
NOTIONAL_HOURS,
REGISTRATION_DATE,
REGISTRATION_NUMBER
)
Values
(
p_rec.TRAINING_ID,
p_rec.LEVEL_ID,
p_rec.PERSON_ID,
p_rec.FIELD_OF_LEARNING,
p_rec.COURSE,
p_rec.SUB_FIELD,
p_rec.CREDIT,
p_rec.NOTIONAL_HOURS,
p_rec.REGISTRATION_DATE,
p_rec.REGISTRATION_NUMBER
);
End insert_dml;
Procedure post_insert(p_rec in per_za_tra_shd.g_za_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
insert_dml(p_rec);
post_insert(p_rec);