The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_dml
(p_rec IN OUT NOCOPY per_pce_shd.g_rec_type
) IS
--
l_proc VARCHAR2(72) := g_package||'insert_dml';
INSERT INTO per_cagr_entitlements
(cagr_entitlement_id
,cagr_entitlement_item_id
,collective_agreement_id
,start_date
,end_date
,status
,formula_criteria
,formula_id
,units_of_measure
,message_level
,object_version_number
)
VALUES
(p_rec.cagr_entitlement_id
,p_rec.cagr_entitlement_item_id
,p_rec.collective_agreement_id
,p_rec.start_date
,p_rec.end_date
,p_rec.status
,p_rec.formula_criteria
,p_rec.formula_id
,p_rec.units_of_measure
,p_rec.message_level
,p_rec.object_version_number
);
END insert_dml;
PROCEDURE pre_insert
(p_rec IN OUT NOCOPY per_pce_shd.g_rec_type
) IS
--
l_proc VARCHAR2(72) := g_package||'pre_insert';
Cursor C_Sel1 IS select per_cagr_entitlements_s.nextval from sys.dual;
END pre_insert;
PROCEDURE post_insert
(p_effective_date IN DATE
,p_rec IN per_pce_shd.g_rec_type
) IS
--
l_proc VARCHAR2(72) := g_package||'post_insert';
per_pce_rki.after_insert
(p_effective_date => p_effective_date
,p_cagr_entitlement_id => p_rec.cagr_entitlement_id
,p_cagr_entitlement_item_id => p_rec.cagr_entitlement_item_id
,p_collective_agreement_id => p_rec.collective_agreement_id
,p_start_date => p_rec.start_date
,p_end_date => p_rec.end_date
,p_status => p_rec.status
,p_formula_criteria => p_rec.formula_criteria
,p_formula_id => p_rec.formula_id
,p_units_of_measure => p_rec.units_of_measure
,p_message_level => p_rec.message_level
,p_object_version_number => p_rec.object_version_number
);
END post_insert;
per_pce_bus.insert_validate
(p_effective_date
,p_rec
);
per_pce_ins.pre_insert(p_rec);
per_pce_ins.insert_dml(p_rec);
per_pce_ins.post_insert
(p_effective_date
,p_rec
);