The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure update_dml(p_rec in out nocopy pay_mgb_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'update_dml';
update pay_magnetic_blocks
set
magnetic_block_id = p_rec.magnetic_block_id,
block_name = p_rec.block_name,
main_block_flag = p_rec.main_block_flag,
report_format = p_rec.report_format,
cursor_name = p_rec.cursor_name,
no_column_returned = p_rec.no_column_returned
where magnetic_block_id = p_rec.magnetic_block_id;
End update_dml;
Procedure pre_update(p_rec in pay_mgb_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_update';
End pre_update;
Procedure post_update(p_rec in pay_mgb_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_update';
End post_update;
pay_mgb_bus.update_validate(convert_defs(p_rec));
pre_update(p_rec);
update_dml(p_rec);
post_update(p_rec);