The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy hr_ahc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into hr_api_hook_calls
( api_hook_call_id,
api_hook_id,
api_hook_call_type,
legislation_code,
sequence,
enabled_flag,
call_package,
call_procedure,
pre_processor_date,
encoded_error,
status,
object_version_number,
application_id,
app_install_status
)
Values
( p_rec.api_hook_call_id,
p_rec.api_hook_id,
p_rec.api_hook_call_type,
p_rec.legislation_code,
p_rec.sequence,
p_rec.enabled_flag,
p_rec.call_package,
p_rec.call_procedure,
p_rec.pre_processor_date,
p_rec.encoded_error,
p_rec.status,
p_rec.object_version_number,
p_rec.application_id,
p_rec.app_install_status
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy hr_ahc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select hr_api_hook_calls_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(p_rec in hr_ahc_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
End post_insert;
hr_ahc_bus.insert_validate(p_rec, p_effective_date);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(p_rec);