The following lines contain the word 'select', 'insert', 'update' or 'delete':
Procedure insert_dml(p_rec in out nocopy pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'insert_dml';
insert into pqh_budgets
( budget_id,
business_group_id,
start_organization_id,
org_structure_version_id,
budgeted_entity_cd,
budget_style_cd,
budget_name,
period_set_name,
budget_start_date,
budget_end_date,
gl_budget_name,
psb_budget_flag,
transfer_to_gl_flag,
transfer_to_grants_flag,
status,
object_version_number,
budget_unit1_id,
budget_unit2_id,
budget_unit3_id,
gl_set_of_books_id,
budget_unit1_aggregate,
budget_unit2_aggregate,
budget_unit3_aggregate,
position_control_flag,
valid_grade_reqd_flag,
currency_code,
dflt_budget_set_id
)
Values
( p_rec.budget_id,
p_rec.business_group_id,
p_rec.start_organization_id,
p_rec.org_structure_version_id,
p_rec.budgeted_entity_cd,
p_rec.budget_style_cd,
p_rec.budget_name,
p_rec.period_set_name,
p_rec.budget_start_date,
p_rec.budget_end_date,
p_rec.gl_budget_name,
p_rec.psb_budget_flag,
p_rec.transfer_to_gl_flag,
p_rec.transfer_to_grants_flag,
p_rec.status,
p_rec.object_version_number,
p_rec.budget_unit1_id,
p_rec.budget_unit2_id,
p_rec.budget_unit3_id,
p_rec.gl_set_of_books_id,
p_rec.budget_unit1_aggregate,
p_rec.budget_unit2_aggregate,
p_rec.budget_unit3_aggregate,
p_rec.position_control_flag,
p_rec.valid_grade_reqd_flag,
p_rec.currency_code,
p_rec.dflt_budget_set_id
);
End insert_dml;
Procedure pre_insert(p_rec in out nocopy pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'pre_insert';
Cursor C_Sel1 is select pqh_budgets_s.nextval from sys.dual;
End pre_insert;
Procedure post_insert(
p_effective_date in date,p_rec in pqh_bgt_shd.g_rec_type) is
--
l_proc varchar2(72) := g_package||'post_insert';
pqh_bgt_rki.after_insert
(
p_budget_id =>p_rec.budget_id
,p_business_group_id =>p_rec.business_group_id
,p_start_organization_id =>p_rec.start_organization_id
,p_org_structure_version_id =>p_rec.org_structure_version_id
,p_budgeted_entity_cd =>p_rec.budgeted_entity_cd
,p_budget_style_cd =>p_rec.budget_style_cd
,p_budget_name =>p_rec.budget_name
,p_period_set_name =>p_rec.period_set_name
,p_budget_start_date =>p_rec.budget_start_date
,p_budget_end_date =>p_rec.budget_end_date
,p_gl_budget_name =>p_rec.gl_budget_name
,p_psb_budget_flag =>p_rec.psb_budget_flag
,p_transfer_to_gl_flag =>p_rec.transfer_to_gl_flag
,p_transfer_to_grants_flag =>p_rec.transfer_to_grants_flag
,p_status =>p_rec.status
,p_object_version_number =>p_rec.object_version_number
,p_budget_unit1_id =>p_rec.budget_unit1_id
,p_budget_unit2_id =>p_rec.budget_unit2_id
,p_budget_unit3_id =>p_rec.budget_unit3_id
,p_gl_set_of_books_id =>p_rec.gl_set_of_books_id
,p_budget_unit1_aggregate =>p_rec.budget_unit1_aggregate
,p_budget_unit2_aggregate =>p_rec.budget_unit2_aggregate
,p_budget_unit3_aggregate =>p_rec.budget_unit3_aggregate
,p_position_control_flag =>p_rec.position_control_flag
,p_valid_grade_reqd_flag =>p_rec.valid_grade_reqd_flag
,p_currency_code =>p_rec.currency_code
,p_dflt_budget_set_id =>p_rec.dflt_budget_set_id
,p_effective_date =>p_effective_date
);
End post_insert;
pqh_bgt_bus.insert_validate(p_rec
,p_effective_date);
pre_insert(p_rec);
insert_dml(p_rec);
post_insert(
p_effective_date,p_rec);