48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in ghr_cst_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: ghr_cst_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 ghr_cst_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 ghr_cst_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
162: begin
163: --
164: ghr_cst_rkd.after_delete
165: (p_compl_agency_cost_id => p_rec.compl_agency_cost_id
166: ,p_complaint_id_o => ghr_cst_shd.g_old_rec.complaint_id
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
163: --
164: ghr_cst_rkd.after_delete
165: (p_compl_agency_cost_id => p_rec.compl_agency_cost_id
166: ,p_complaint_id_o => ghr_cst_shd.g_old_rec.complaint_id
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
164: ghr_cst_rkd.after_delete
165: (p_compl_agency_cost_id => p_rec.compl_agency_cost_id
166: ,p_complaint_id_o => ghr_cst_shd.g_old_rec.complaint_id
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
165: (p_compl_agency_cost_id => p_rec.compl_agency_cost_id
166: ,p_complaint_id_o => ghr_cst_shd.g_old_rec.complaint_id
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
173: ,p_object_version_number_o => ghr_cst_shd.g_old_rec.object_version_number
166: ,p_complaint_id_o => ghr_cst_shd.g_old_rec.complaint_id
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
173: ,p_object_version_number_o => ghr_cst_shd.g_old_rec.object_version_number
174: );
167: ,p_phase_o => ghr_cst_shd.g_old_rec.phase
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
173: ,p_object_version_number_o => ghr_cst_shd.g_old_rec.object_version_number
174: );
175: --
168: ,p_stage_o => ghr_cst_shd.g_old_rec.stage
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
173: ,p_object_version_number_o => ghr_cst_shd.g_old_rec.object_version_number
174: );
175: --
176: exception
169: ,p_category_o => ghr_cst_shd.g_old_rec.category
170: ,p_amount_o => ghr_cst_shd.g_old_rec.amount
171: ,p_cost_date_o => ghr_cst_shd.g_old_rec.cost_date
172: ,p_description_o => ghr_cst_shd.g_old_rec.description
173: ,p_object_version_number_o => ghr_cst_shd.g_old_rec.object_version_number
174: );
175: --
176: exception
177: --
189: -- ----------------------------------------------------------------------------
190: -- |---------------------------------< del >----------------------------------|
191: -- ----------------------------------------------------------------------------
192: Procedure del
193: (p_rec in ghr_cst_shd.g_rec_type
194: ) is
195: --
196: l_proc varchar2(72) := g_package||'del';
197: --
199: hr_utility.set_location('Entering:'||l_proc, 5);
200: --
201: -- We must lock the row which we need to delete.
202: --
203: ghr_cst_shd.lck
204: (p_rec.compl_agency_cost_id
205: ,p_rec.object_version_number
206: );
207: --
230: (p_compl_agency_cost_id in number
231: ,p_object_version_number in number
232: ) is
233: --
234: l_rec ghr_cst_shd.g_rec_type;
235: l_proc varchar2(72) := g_package||'del';
236: --
237: Begin
238: hr_utility.set_location('Entering:'||l_proc, 5);