51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ghr_cad_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: ghr_cad_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.parent_integrity_violated Then
96: -- Parent integrity has been violated
97: --
98: ghr_cad_shd.constraint_error
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
99: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
100: When hr_api.unique_integrity_violated Then
101: -- Unique integrity has been violated
102: --
103: ghr_cad_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: --
107: Raise;
139: --
140: -- {End Of Comments}
141: -- ----------------------------------------------------------------------------
142: Procedure pre_update
143: (p_rec in ghr_cad_shd.g_rec_type
144: ) is
145: --
146: l_proc varchar2(72) := g_package||'pre_update';
147: --
184: -- {End Of Comments}
185: -- ----------------------------------------------------------------------------
186: Procedure post_update
187: (p_effective_date in date
188: ,p_rec in ghr_cad_shd.g_rec_type
189: ) is
190: --
191: l_proc varchar2(72) := g_package||'post_update';
192: --
207: ,p_outcome => p_rec.outcome
208: ,p_adr_offered => p_rec.adr_offered
209: ,p_date_accepted => p_rec.date_accepted
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
208: ,p_adr_offered => p_rec.adr_offered
209: ,p_date_accepted => p_rec.date_accepted
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
209: ,p_date_accepted => p_rec.date_accepted
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
210: ,p_object_version_number => p_rec.object_version_number
211: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
211: ,p_complaint_id_o => ghr_cad_shd.g_old_rec.complaint_id
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
212: ,p_stage_o => ghr_cad_shd.g_old_rec.stage
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
220: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
213: ,p_start_date_o => ghr_cad_shd.g_old_rec.start_date
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
220: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
221: );
214: ,p_end_date_o => ghr_cad_shd.g_old_rec.end_date
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
220: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
221: );
222: --
215: ,p_adr_resource_o => ghr_cad_shd.g_old_rec.adr_resource
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
220: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
221: );
222: --
223: exception
216: ,p_technique_o => ghr_cad_shd.g_old_rec.technique
217: ,p_outcome_o => ghr_cad_shd.g_old_rec.outcome
218: ,p_adr_offered_o => ghr_cad_shd.g_old_rec.adr_offered
219: ,p_date_accepted_o => ghr_cad_shd.g_old_rec.date_accepted
220: ,p_object_version_number_o => ghr_cad_shd.g_old_rec.object_version_number
221: );
222: --
223: exception
224: --
277: --
278: -- {End Of Comments}
279: -- ----------------------------------------------------------------------------
280: Procedure convert_defs
281: (p_rec in out nocopy ghr_cad_shd.g_rec_type
282: ) is
283: --
284: Begin
285: --
289: -- is being used then we must set to the 'current' argument value.
290: --
291: If (p_rec.complaint_id = hr_api.g_number) then
292: p_rec.complaint_id :=
293: ghr_cad_shd.g_old_rec.complaint_id;
294: End If;
295: If (p_rec.stage = hr_api.g_varchar2) then
296: p_rec.stage :=
297: ghr_cad_shd.g_old_rec.stage;
293: ghr_cad_shd.g_old_rec.complaint_id;
294: End If;
295: If (p_rec.stage = hr_api.g_varchar2) then
296: p_rec.stage :=
297: ghr_cad_shd.g_old_rec.stage;
298: End If;
299: If (p_rec.start_date = hr_api.g_date) then
300: p_rec.start_date :=
301: ghr_cad_shd.g_old_rec.start_date;
297: ghr_cad_shd.g_old_rec.stage;
298: End If;
299: If (p_rec.start_date = hr_api.g_date) then
300: p_rec.start_date :=
301: ghr_cad_shd.g_old_rec.start_date;
302: End If;
303: If (p_rec.end_date = hr_api.g_date) then
304: p_rec.end_date :=
305: ghr_cad_shd.g_old_rec.end_date;
301: ghr_cad_shd.g_old_rec.start_date;
302: End If;
303: If (p_rec.end_date = hr_api.g_date) then
304: p_rec.end_date :=
305: ghr_cad_shd.g_old_rec.end_date;
306: End If;
307: If (p_rec.adr_resource = hr_api.g_varchar2) then
308: p_rec.adr_resource :=
309: ghr_cad_shd.g_old_rec.adr_resource;
305: ghr_cad_shd.g_old_rec.end_date;
306: End If;
307: If (p_rec.adr_resource = hr_api.g_varchar2) then
308: p_rec.adr_resource :=
309: ghr_cad_shd.g_old_rec.adr_resource;
310: End If;
311: If (p_rec.technique = hr_api.g_varchar2) then
312: p_rec.technique :=
313: ghr_cad_shd.g_old_rec.technique;
309: ghr_cad_shd.g_old_rec.adr_resource;
310: End If;
311: If (p_rec.technique = hr_api.g_varchar2) then
312: p_rec.technique :=
313: ghr_cad_shd.g_old_rec.technique;
314: End If;
315: If (p_rec.outcome = hr_api.g_varchar2) then
316: p_rec.outcome :=
317: ghr_cad_shd.g_old_rec.outcome;
313: ghr_cad_shd.g_old_rec.technique;
314: End If;
315: If (p_rec.outcome = hr_api.g_varchar2) then
316: p_rec.outcome :=
317: ghr_cad_shd.g_old_rec.outcome;
318: End If;
319: If (p_rec.adr_offered = hr_api.g_varchar2) then
320: p_rec.adr_offered :=
321: ghr_cad_shd.g_old_rec.adr_offered;
317: ghr_cad_shd.g_old_rec.outcome;
318: End If;
319: If (p_rec.adr_offered = hr_api.g_varchar2) then
320: p_rec.adr_offered :=
321: ghr_cad_shd.g_old_rec.adr_offered;
322: End If;
323: If (p_rec.date_accepted = hr_api.g_date) then
324: p_rec.date_accepted :=
325: ghr_cad_shd.g_old_rec.date_accepted;
321: ghr_cad_shd.g_old_rec.adr_offered;
322: End If;
323: If (p_rec.date_accepted = hr_api.g_date) then
324: p_rec.date_accepted :=
325: ghr_cad_shd.g_old_rec.date_accepted;
326: End If;
327: --
328: End convert_defs;
329: --
331: -- |---------------------------------< upd >----------------------------------|
332: -- ----------------------------------------------------------------------------
333: Procedure upd
334: (p_effective_date in date
335: ,p_rec in out nocopy ghr_cad_shd.g_rec_type
336: ) is
337: --
338: l_proc varchar2(72) := g_package||'upd';
339: --
341: hr_utility.set_location('Entering:'||l_proc, 5);
342: --
343: -- We must lock the row which we need to update.
344: --
345: ghr_cad_shd.lck
346: (p_rec.compl_adr_id
347: ,p_rec.object_version_number
348: );
349: --
392: ,p_adr_offered in varchar2
393: ,p_date_accepted in date
394: ) is
395: --
396: l_rec ghr_cad_shd.g_rec_type;
397: l_proc varchar2(72) := g_package||'upd';
398: --
399: Begin
400: hr_utility.set_location('Entering:'||l_proc, 5);
402: -- Call conversion function to turn arguments into the
403: -- l_rec structure.
404: --
405: l_rec :=
406: ghr_cad_shd.convert_args
407: (p_compl_adr_id
408: ,p_complaint_id
409: ,p_stage
410: ,p_start_date