48: --
49: -- {END Of Comments}
50: -- ----------------------------------------------------------------------------
51: PROCEDURE delete_dml
52: (p_rec IN per_pce_shd.g_rec_type
53: ) IS
54: --
55: l_proc VARCHAR2(72) := g_package||'delete_dml';
56: --
71: EXCEPTION
72: WHEN hr_api.child_integrity_violated then
73: -- Child integrity has been violated
74: --
75: per_pce_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: WHEN Others THEN
78: --
79: RAISE;
110: -- Internal Row Handler Use Only.
111: --
112: -- {END Of Comments}
113: -- ----------------------------------------------------------------------------
114: PROCEDURE pre_delete(p_rec IN per_pce_shd.g_rec_type) IS
115: --
116: l_proc VARCHAR2(72) := g_package||'pre_delete';
117: --
118: BEGIN
152: -- Internal Row Handler Use Only.
153: --
154: -- {END Of Comments}
155: -- -----------------------------------------------------------------------------
156: PROCEDURE post_delete(p_rec IN per_pce_shd.g_rec_type) IS
157: --
158: l_proc VARCHAR2(72) := g_package||'post_delete';
159: --
160: BEGIN
162: begin
163: --
164: per_pce_rkd.after_delete
165: (p_cagr_entitlement_id => p_rec.cagr_entitlement_id
166: ,p_cagr_entitlement_item_id_o => per_pce_shd.g_old_rec.cagr_entitlement_item_id
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
163: --
164: per_pce_rkd.after_delete
165: (p_cagr_entitlement_id => p_rec.cagr_entitlement_id
166: ,p_cagr_entitlement_item_id_o => per_pce_shd.g_old_rec.cagr_entitlement_item_id
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
164: per_pce_rkd.after_delete
165: (p_cagr_entitlement_id => p_rec.cagr_entitlement_id
166: ,p_cagr_entitlement_item_id_o => per_pce_shd.g_old_rec.cagr_entitlement_item_id
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
165: (p_cagr_entitlement_id => p_rec.cagr_entitlement_id
166: ,p_cagr_entitlement_item_id_o => per_pce_shd.g_old_rec.cagr_entitlement_item_id
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
166: ,p_cagr_entitlement_item_id_o => per_pce_shd.g_old_rec.cagr_entitlement_item_id
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
167: ,p_collective_agreement_id_o => per_pce_shd.g_old_rec.collective_agreement_id
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
175: ,p_object_version_number_o => per_pce_shd.g_old_rec.object_version_number
168: ,p_start_date_o => per_pce_shd.g_old_rec.start_date
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
175: ,p_object_version_number_o => per_pce_shd.g_old_rec.object_version_number
176: );
169: ,p_end_date_o => per_pce_shd.g_old_rec.end_date
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
175: ,p_object_version_number_o => per_pce_shd.g_old_rec.object_version_number
176: );
177: --
170: ,p_status_o => per_pce_shd.g_old_rec.status
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
175: ,p_object_version_number_o => per_pce_shd.g_old_rec.object_version_number
176: );
177: --
178: exception
171: ,p_formula_criteria_o => per_pce_shd.g_old_rec.formula_criteria
172: ,p_formula_id_o => per_pce_shd.g_old_rec.formula_id
173: ,p_units_of_measure_o => per_pce_shd.g_old_rec.units_of_measure
174: ,p_message_level_o => per_pce_shd.g_old_rec.message_level
175: ,p_object_version_number_o => per_pce_shd.g_old_rec.object_version_number
176: );
177: --
178: exception
179: --
191: -- ----------------------------------------------------------------------------
192: -- |---------------------------------< del >----------------------------------|
193: -- ----------------------------------------------------------------------------
194: PROCEDURE del
195: (p_rec IN per_pce_shd.g_rec_type
196: ) IS
197: --
198: l_proc VARCHAR2(72) := g_package||'del';
199: --
201: hr_utility.set_location('Entering:'||l_proc, 5);
202: --
203: -- We must lock the row which we need to delete.
204: --
205: per_pce_shd.lck
206: (p_rec.cagr_entitlement_id
207: ,p_rec.object_version_number
208: );
209: --
232: (p_cagr_entitlement_id IN NUMBER
233: ,p_object_version_number IN NUMBER
234: ) IS
235: --
236: l_rec per_pce_shd.g_rec_type;
237: l_proc VARCHAR2(72) := g_package||'del';
238: --
239: BEGIN
240: --