48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in ghr_cad_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_cad_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_cad_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_cad_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
163: begin
164: --
165: ghr_cad_rkd.after_delete
166: (p_compl_adr_id => p_rec.compl_adr_id
167: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
164: --
165: ghr_cad_rkd.after_delete
166: (p_compl_adr_id => p_rec.compl_adr_id
167: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
165: ghr_cad_rkd.after_delete
166: (p_compl_adr_id => p_rec.compl_adr_id
167: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
166: (p_compl_adr_id => p_rec.compl_adr_id
167: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
167: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
168: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
176: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
169: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
176: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
177: );
170: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
176: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
177: );
178: --
171: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
176: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
177: );
178: --
179: exception
172: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
173: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
174: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
175: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
176: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
177: );
178: --
179: exception
180: --
193: -- ----------------------------------------------------------------------------
194: -- |---------------------------------< del >----------------------------------|
195: -- ----------------------------------------------------------------------------
196: Procedure del
197: (p_rec in ghr_cad_shd.g_rec_type
198: ) is
199: --
200: l_proc varchar2(72) := g_package||'del';
201: --
203: hr_utility.set_location('Entering:'||l_proc, 5);
204: --
205: -- We must lock the row which we need to delete.
206: --
207: ghr_cad_shd.lck
208: (p_rec.compl_adr_id
209: ,p_rec.object_version_number
210: );
211: --
234: (p_compl_adr_id in number
235: ,p_object_version_number in number
236: ) is
237: --
238: l_rec ghr_cad_shd.g_rec_type;
239: l_proc varchar2(72) := g_package||'del';
240: --
241: Begin
242: hr_utility.set_location('Entering:'||l_proc, 5);