The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy per_za_ass_shd.g_za_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_za_assessments (
assessment_id,
person_id,
level_id,
name_of_assessor,
institution,
credit,
date_of_assessment,
final_result,
assessment_number,
location_where_assessed,
field_of_learning,
sub_field,
assessment_start_date,
assessment_end_date,
competence_acquired,
ETQA_name,
certification_date,
certificate_number,
accredited_by,
date_of_accreditation,
certification_expiry_date
)
Values
(
p_rec.assessment_id,
p_rec.person_id,
p_rec.level_id,
p_rec.name_of_assessor,
p_rec.institution,
p_rec.credit,
p_rec.date_of_assessment,
p_rec.final_result,
p_rec.assessment_number,
p_rec.location_where_assessed,
p_rec.field_of_learning,
p_rec.sub_field,
p_rec.assessment_start_date,
p_rec.assessment_end_date,
p_rec.competence_acquired,
p_rec.ETQA_name,
p_rec.certification_date,
p_rec.certificate_number,
p_rec.accredited_by,
p_rec.date_of_accreditation,
p_rec.certification_expiry_date
);
End insert_dml;
Procedure post_insert(p_rec in per_za_ass_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);