The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml
(p_rec in hxc_tcc_shd.g_rec_type
) is
--
l_proc varchar2(72);
l_proc := g_package||'delete_dml';
delete from hxc_time_category_comps
where time_category_comp_id = p_rec.time_category_comp_id;
End delete_dml;
Procedure pre_delete(p_rec in hxc_tcc_shd.g_rec_type) is
--
l_proc varchar2(72);
l_proc := g_package||'pre_delete';
End pre_delete;
Procedure post_delete(p_rec in hxc_tcc_shd.g_rec_type) is
--
l_proc varchar2(72);
l_proc := g_package||'post_delete';
hxc_tcc_rkd.after_delete (
p_time_category_comp_id => p_rec.time_category_comp_id
,p_time_category_id_o => hxc_tcc_shd.g_old_rec.time_category_id
,p_ref_time_category_id_o => hxc_tcc_shd.g_old_rec.ref_time_category_id
,p_component_type_id_o => hxc_tcc_shd.g_old_rec.component_type_id
,p_flex_value_set_id_o => hxc_tcc_shd.g_old_rec.flex_value_set_id
,p_value_id_o => hxc_tcc_shd.g_old_rec.value_id
,p_is_null_o => hxc_tcc_shd.g_old_rec.is_null
,p_equal_to_o => hxc_tcc_shd.g_old_rec.equal_to
,p_type_o => hxc_tcc_shd.g_old_rec.type
,p_object_version_number_o=> hxc_tcc_shd.g_old_rec.object_version_number );
End post_delete;
hxc_tcc_bus.delete_validate(p_rec);
hxc_tcc_del.pre_delete(p_rec);
hxc_tcc_del.delete_dml(p_rec);
hxc_tcc_del.post_delete(p_rec);