48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure delete_dml
52: (p_rec in ghr_ccl_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_ccl_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_ccl_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_ccl_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'post_delete';
159: --
160: Begin
162: begin
163: --
164: ghr_ccl_rkd.after_delete
165: (p_compl_claim_id => p_rec.compl_claim_id
166: ,p_complaint_id_o => ghr_ccl_shd.g_old_rec.complaint_id
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
163: --
164: ghr_ccl_rkd.after_delete
165: (p_compl_claim_id => p_rec.compl_claim_id
166: ,p_complaint_id_o => ghr_ccl_shd.g_old_rec.complaint_id
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
164: ghr_ccl_rkd.after_delete
165: (p_compl_claim_id => p_rec.compl_claim_id
166: ,p_complaint_id_o => ghr_ccl_shd.g_old_rec.complaint_id
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
165: (p_compl_claim_id => p_rec.compl_claim_id
166: ,p_complaint_id_o => ghr_ccl_shd.g_old_rec.complaint_id
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
166: ,p_complaint_id_o => ghr_ccl_shd.g_old_rec.complaint_id
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
174: ,p_agency_appeal_o => ghr_ccl_shd.g_old_rec.agency_appeal
167: ,p_claim_o => ghr_ccl_shd.g_old_rec.claim
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
174: ,p_agency_appeal_o => ghr_ccl_shd.g_old_rec.agency_appeal
175: );
168: ,p_incident_date_o => ghr_ccl_shd.g_old_rec.incident_date
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
174: ,p_agency_appeal_o => ghr_ccl_shd.g_old_rec.agency_appeal
175: );
176: --
169: ,p_phase_o => ghr_ccl_shd.g_old_rec.phase
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
174: ,p_agency_appeal_o => ghr_ccl_shd.g_old_rec.agency_appeal
175: );
176: --
177: exception
170: ,p_mixed_flag_o => ghr_ccl_shd.g_old_rec.mixed_flag
171: ,p_claim_source_o => ghr_ccl_shd.g_old_rec.claim_source
172: ,p_agency_acceptance_o => ghr_ccl_shd.g_old_rec.agency_acceptance
173: ,p_aj_acceptance_o => ghr_ccl_shd.g_old_rec.aj_acceptance
174: ,p_agency_appeal_o => ghr_ccl_shd.g_old_rec.agency_appeal
175: );
176: --
177: exception
178: --
190: -- ----------------------------------------------------------------------------
191: -- |---------------------------------< del >----------------------------------|
192: -- ----------------------------------------------------------------------------
193: Procedure del
194: (p_rec in ghr_ccl_shd.g_rec_type
195: ) is
196: --
197: l_proc varchar2(72) := g_package||'del';
198: --
200: hr_utility.set_location('Entering:'||l_proc, 5);
201: --
202: -- We must lock the row which we need to delete.
203: --
204: ghr_ccl_shd.lck
205: (p_rec.compl_claim_id
206: ,p_rec.object_version_number
207: );
208: --
231: (p_compl_claim_id in number
232: ,p_object_version_number in number
233: ) is
234: --
235: l_rec ghr_ccl_shd.g_rec_type;
236: l_proc varchar2(72) := g_package||'del';
237: --
238: Begin
239: hr_utility.set_location('Entering:'||l_proc, 5);