The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy per_za_lsa_shd.g_za_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_za_learnership_agreements(
AGREEMENT_ID,
NAME,
DESCRIPTION,
AGREEMENT_NUMBER,
PERSON_ID,
AGREEMENT_START_DATE,
AGREEMENT_END_DATE,
STATUS,
SETA,
PROBATIONARY_END_DATE,
TERMINATED_BY,
LEARNER_TYPE,
REASON_FOR_TERMINATION,
ACTUAL_END_DATE,
AGREEMENT_HARD_COPY_ID
)
Values
(
p_rec.AGREEMENT_ID,
p_rec.NAME,
p_rec.DESCRIPTION,
p_rec.AGREEMENT_NUMBER,
p_rec.PERSON_ID,
p_rec.AGREEMENT_START_DATE,
p_rec.AGREEMENT_END_DATE,
p_rec.STATUS,
p_rec.SETA,
p_rec.PROBATIONARY_END_DATE,
p_rec.TERMINATED_BY,
p_rec.LEARNER_TYPE,
p_rec.REASON_FOR_TERMINATION,
p_rec.ACTUAL_END_DATE,
p_rec.AGREEMENT_HARD_COPY_ID
);
End insert_dml;
Procedure post_insert(p_rec in per_za_lsa_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);