The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure delete_dml(p_rec in pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'delete_dml';
delete from pqh_budgets
where budget_id = p_rec.budget_id;
End delete_dml;
Procedure pre_delete(p_rec in pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_delete';
select *
from pqh_budgets
where budget_id = p_budget_id;
delete from pqh_budget_versions
where budget_id = l_budgets_rec.budget_id;
delete from pqh_budget_gl_flex_maps
where budget_id = l_budgets_rec.budget_id;
delete from pqh_bdgt_cmmtmnt_elmnts
where budget_id = l_budgets_rec.budget_id;
End pre_delete;
Procedure post_delete(
p_effective_date in date,p_rec in pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_delete';
pqh_bgt_rkd.after_delete
(
p_budget_id =>p_rec.budget_id
,p_business_group_id_o =>pqh_bgt_shd.g_old_rec.business_group_id
,p_start_organization_id_o =>pqh_bgt_shd.g_old_rec.start_organization_id
,p_org_structure_version_id_o =>pqh_bgt_shd.g_old_rec.org_structure_version_id
,p_budgeted_entity_cd_o =>pqh_bgt_shd.g_old_rec.budgeted_entity_cd
,p_budget_style_cd_o =>pqh_bgt_shd.g_old_rec.budget_style_cd
,p_budget_name_o =>pqh_bgt_shd.g_old_rec.budget_name
,p_period_set_name_o =>pqh_bgt_shd.g_old_rec.period_set_name
,p_budget_start_date_o =>pqh_bgt_shd.g_old_rec.budget_start_date
,p_budget_end_date_o =>pqh_bgt_shd.g_old_rec.budget_end_date
,p_gl_budget_name_o =>pqh_bgt_shd.g_old_rec.gl_budget_name
,P_psb_budget_flag_o =>pqh_bgt_shd.g_old_rec.psb_budget_flag
,p_transfer_to_gl_flag_o =>pqh_bgt_shd.g_old_rec.transfer_to_gl_flag
,p_transfer_to_grants_flag_o =>pqh_bgt_shd.g_old_rec.transfer_to_grants_flag
,p_status_o =>pqh_bgt_shd.g_old_rec.status
,p_object_version_number_o =>pqh_bgt_shd.g_old_rec.object_version_number
,p_budget_unit1_id_o =>pqh_bgt_shd.g_old_rec.budget_unit1_id
,p_budget_unit2_id_o =>pqh_bgt_shd.g_old_rec.budget_unit2_id
,p_budget_unit3_id_o =>pqh_bgt_shd.g_old_rec.budget_unit3_id
,p_gl_set_of_books_id_o =>pqh_bgt_shd.g_old_rec.gl_set_of_books_id
,p_budget_unit1_aggregate_o =>pqh_bgt_shd.g_old_rec.budget_unit1_aggregate
,p_budget_unit2_aggregate_o =>pqh_bgt_shd.g_old_rec.budget_unit2_aggregate
,p_budget_unit3_aggregate_o =>pqh_bgt_shd.g_old_rec.budget_unit3_aggregate
,p_position_control_flag_o =>pqh_bgt_shd.g_old_rec.position_control_flag
,p_valid_grade_reqd_flag_o =>pqh_bgt_shd.g_old_rec.valid_grade_reqd_flag
,p_currency_code_o =>pqh_bgt_shd.g_old_rec.currency_code
,p_dflt_budget_set_id_o =>pqh_bgt_shd.g_old_rec.dflt_budget_set_id
);
End post_delete;
pqh_bgt_bus.delete_validate(p_rec
,p_effective_date);
pre_delete(p_rec);
delete_dml(p_rec);
post_delete(
p_effective_date,p_rec);