The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out per_jbd_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_job_definitions
( job_definition_id,
id_flex_num,
summary_flag,
enabled_flag,
start_date_active,
end_date_active,
segment1,
segment2,
segment3,
segment4,
segment5,
segment6,
segment7,
segment8,
segment9,
segment10,
segment11,
segment12,
segment13,
segment14,
segment15,
segment16,
segment17,
segment18,
segment19,
segment20,
segment21,
segment22,
segment23,
segment24,
segment25,
segment26,
segment27,
segment28,
segment29,
segment30
)
Values
( p_rec.job_definition_id,
p_rec.id_flex_num,
'N',
'Y',
sysdate,
p_rec.end_date_active,
p_rec.segment1,
p_rec.segment2,
p_rec.segment3,
p_rec.segment4,
p_rec.segment5,
p_rec.segment6,
p_rec.segment7,
p_rec.segment8,
p_rec.segment9,
p_rec.segment10,
p_rec.segment11,
p_rec.segment12,
p_rec.segment13,
p_rec.segment14,
p_rec.segment15,
p_rec.segment16,
p_rec.segment17,
p_rec.segment18,
p_rec.segment19,
p_rec.segment20,
p_rec.segment21,
p_rec.segment22,
p_rec.segment23,
p_rec.segment24,
p_rec.segment25,
p_rec.segment26,
p_rec.segment27,
p_rec.segment28,
p_rec.segment29,
p_rec.segment30
);
End insert_dml;
Procedure pre_insert(p_rec in out per_jbd_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select per_job_definitions_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in per_jbd_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
per_jbd_bus.insert_validate(p_rec);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);