The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml
(p_rec in out nocopy per_bbt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into per_bf_balance_types
(balance_type_id
,input_value_id
,business_group_id
,displayed_name
,internal_name
,uom
,currency
,category
,date_from
,date_to
,object_version_number
)
Values
(p_rec.balance_type_id
,p_rec.input_value_id
,p_rec.business_group_id
,p_rec.displayed_name
,p_rec.internal_name
,p_rec.uom
,p_rec.currency
,p_rec.category
,p_rec.date_from
,p_rec.date_to
,p_rec.object_version_number
);
End insert_dml;
Procedure pre_insert
(p_rec in out nocopy per_bbt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select per_bf_balance_types_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert
(p_effective_date in date
,p_rec in per_bbt_shd.g_rec_type
) is
--
l_proc varchar2(72) := g_package||'post_insert';
per_bbt_rki.after_insert
(p_effective_date => p_effective_date
,p_balance_type_id => p_rec.balance_type_id
,p_input_value_id => p_rec.input_value_id
,p_business_group_id => p_rec.business_group_id
,p_displayed_name => p_rec.displayed_name
,p_internal_name => p_rec.internal_name
,p_uom => p_rec.uom
,p_currency => p_rec.currency
,p_category => p_rec.category
,p_date_from => p_rec.date_from
,p_date_to => p_rec.date_to
,p_object_version_number => p_rec.object_version_number
);
End post_insert;
per_bbt_bus.insert_validate
(p_effective_date
,p_rec
);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert
(p_effective_date
,p_rec
);