The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml
(p_rec in out nocopy pay_ran_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pay_ranges_f
(range_id
,range_table_id
,low_band
,high_band
,amount1
,amount2
,amount3
,amount4
,amount5
,amount6
,amount7
,amount8
,effective_start_date
,effective_end_date
,object_version_number
)
Values
(p_rec.range_id
,p_rec.range_table_id
,p_rec.low_band
,p_rec.high_band
,p_rec.amount1
,p_rec.amount2
,p_rec.amount3
,p_rec.amount4
,p_rec.amount5
,p_rec.amount6
,p_rec.amount7
,p_rec.amount8
,p_rec.effective_start_date
,p_rec.effective_end_date
,p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert
(p_rec in out nocopy pay_ran_shd.g_rec_type
) is
--
Cursor C_Sel1 is select pay_ranges_f_s.nextval from sys.dual;
Select null
from pay_ranges_f
where range_id =
pay_ran_ins.g_range_id_i;
l_proc varchar2(72) := g_package||'pre_insert';
End pre_insert;
Procedure post_insert
(p_rec in pay_ran_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'post_insert';
pay_ran_rki.after_insert
(p_range_id => p_rec.range_id
,p_range_table_id => p_rec.range_table_id
,p_low_band => p_rec.low_band
,p_high_band => p_rec.high_band
,p_amount1 => p_rec.amount1
,p_amount2 => p_rec.amount2
,p_amount3 => p_rec.amount3
,p_amount4 => p_rec.amount4
,p_amount5 => p_rec.amount5
,p_amount6 => p_rec.amount6
,p_amount7 => p_rec.amount7
,p_amount8 => p_rec.amount8
,p_effective_start_date => p_rec.effective_start_date
,p_effective_end_date => p_rec.effective_end_date
,p_object_version_number => p_rec.object_version_number
);
End post_insert;
pay_ran_bus.insert_validate
(p_rec
);
pay_ran_ins.pre_insert(p_rec);
pay_ran_ins.insert_dml(p_rec);
pay_ran_ins.post_insert
(p_rec
);