86: --
87: hr_utility.set_location(' Leaving:'||l_proc, 10);
88: --
89: Exception
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: ghr_ccl_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
90: When hr_api.check_integrity_violated Then
91: -- A check constraint has been violated
92: --
93: ghr_ccl_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: --
98: ghr_ccl_shd.constraint_error
91: -- A check constraint has been violated
92: --
93: ghr_ccl_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: --
98: ghr_ccl_shd.constraint_error
99: (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_ccl_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: --
103: ghr_ccl_shd.constraint_error
96: -- Parent integrity has been violated
97: --
98: ghr_ccl_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: --
103: ghr_ccl_shd.constraint_error
104: (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_ccl_shd.constraint_error
104: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
105: When Others Then
106: --
107: Raise;
108: End update_dml;
218: );
219: --
220: exception
221: --
222: when hr_api.cannot_find_prog_unit then
223: --
224: hr_api.cannot_find_prog_unit_error
225: (p_module_name => 'GHR_COMPL_CLAIMS'
226: ,p_hook_type => 'AU');
220: exception
221: --
222: when hr_api.cannot_find_prog_unit then
223: --
224: hr_api.cannot_find_prog_unit_error
225: (p_module_name => 'GHR_COMPL_CLAIMS'
226: ,p_hook_type => 'AU');
227: --
228: end;
283: -- p_rec plsql record structure
284: -- to see if a system default is being used. If a system default
285: -- is being used then we must set to the 'current' argument value.
286: --
287: If (p_rec.complaint_id = hr_api.g_number) then
288: p_rec.complaint_id :=
289: ghr_ccl_shd.g_old_rec.complaint_id;
290: End If;
291: If (p_rec.claim = hr_api.g_varchar2) then
287: If (p_rec.complaint_id = hr_api.g_number) then
288: p_rec.complaint_id :=
289: ghr_ccl_shd.g_old_rec.complaint_id;
290: End If;
291: If (p_rec.claim = hr_api.g_varchar2) then
292: p_rec.claim :=
293: ghr_ccl_shd.g_old_rec.claim;
294: End If;
295: If (p_rec.incident_date = hr_api.g_date) then
291: If (p_rec.claim = hr_api.g_varchar2) then
292: p_rec.claim :=
293: ghr_ccl_shd.g_old_rec.claim;
294: End If;
295: If (p_rec.incident_date = hr_api.g_date) then
296: p_rec.incident_date :=
297: ghr_ccl_shd.g_old_rec.incident_date;
298: End If;
299: If (p_rec.phase = hr_api.g_varchar2) then
295: If (p_rec.incident_date = hr_api.g_date) then
296: p_rec.incident_date :=
297: ghr_ccl_shd.g_old_rec.incident_date;
298: End If;
299: If (p_rec.phase = hr_api.g_varchar2) then
300: p_rec.phase :=
301: ghr_ccl_shd.g_old_rec.phase;
302: End If;
303: If (p_rec.mixed_flag = hr_api.g_varchar2) then
299: If (p_rec.phase = hr_api.g_varchar2) then
300: p_rec.phase :=
301: ghr_ccl_shd.g_old_rec.phase;
302: End If;
303: If (p_rec.mixed_flag = hr_api.g_varchar2) then
304: p_rec.mixed_flag :=
305: ghr_ccl_shd.g_old_rec.mixed_flag;
306: End If;
307: If (p_rec.claim_source = hr_api.g_varchar2) then
303: If (p_rec.mixed_flag = hr_api.g_varchar2) then
304: p_rec.mixed_flag :=
305: ghr_ccl_shd.g_old_rec.mixed_flag;
306: End If;
307: If (p_rec.claim_source = hr_api.g_varchar2) then
308: p_rec.claim_source :=
309: ghr_ccl_shd.g_old_rec.claim_source;
310: End If;
311: If (p_rec.agency_acceptance = hr_api.g_varchar2) then
307: If (p_rec.claim_source = hr_api.g_varchar2) then
308: p_rec.claim_source :=
309: ghr_ccl_shd.g_old_rec.claim_source;
310: End If;
311: If (p_rec.agency_acceptance = hr_api.g_varchar2) then
312: p_rec.agency_acceptance :=
313: ghr_ccl_shd.g_old_rec.agency_acceptance;
314: End If;
315: If (p_rec.aj_acceptance = hr_api.g_varchar2) then
311: If (p_rec.agency_acceptance = hr_api.g_varchar2) then
312: p_rec.agency_acceptance :=
313: ghr_ccl_shd.g_old_rec.agency_acceptance;
314: End If;
315: If (p_rec.aj_acceptance = hr_api.g_varchar2) then
316: p_rec.aj_acceptance :=
317: ghr_ccl_shd.g_old_rec.aj_acceptance;
318: End If;
319: If (p_rec.agency_appeal = hr_api.g_varchar2) then
315: If (p_rec.aj_acceptance = hr_api.g_varchar2) then
316: p_rec.aj_acceptance :=
317: ghr_ccl_shd.g_old_rec.aj_acceptance;
318: End If;
319: If (p_rec.agency_appeal = hr_api.g_varchar2) then
320: p_rec.agency_appeal :=
321: ghr_ccl_shd.g_old_rec.agency_appeal;
322: End If;
323: If (p_rec.object_version_number = hr_api.g_number) then
319: If (p_rec.agency_appeal = hr_api.g_varchar2) then
320: p_rec.agency_appeal :=
321: ghr_ccl_shd.g_old_rec.agency_appeal;
322: End If;
323: If (p_rec.object_version_number = hr_api.g_number) then
324: p_rec.object_version_number :=
325: ghr_ccl_shd.g_old_rec.object_version_number;
326: End If;
327: --
381: Procedure upd
382: (p_effective_date in date
383: ,p_compl_claim_id in number
384: ,p_object_version_number in out nocopy number
385: ,p_complaint_id in number default hr_api.g_number
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
382: (p_effective_date in date
383: ,p_compl_claim_id in number
384: ,p_object_version_number in out nocopy number
385: ,p_complaint_id in number default hr_api.g_number
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
383: ,p_compl_claim_id in number
384: ,p_object_version_number in out nocopy number
385: ,p_complaint_id in number default hr_api.g_number
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
384: ,p_object_version_number in out nocopy number
385: ,p_complaint_id in number default hr_api.g_number
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
385: ,p_complaint_id in number default hr_api.g_number
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
393: ,p_agency_appeal in varchar2 default hr_api.g_varchar2
386: ,p_claim in varchar2 default hr_api.g_varchar2
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
393: ,p_agency_appeal in varchar2 default hr_api.g_varchar2
394: ) is
387: ,p_incident_date in date default hr_api.g_date
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
393: ,p_agency_appeal in varchar2 default hr_api.g_varchar2
394: ) is
395: --
388: ,p_phase in varchar2 default hr_api.g_varchar2
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
393: ,p_agency_appeal in varchar2 default hr_api.g_varchar2
394: ) is
395: --
396: l_rec ghr_ccl_shd.g_rec_type;
389: ,p_mixed_flag in varchar2 default hr_api.g_varchar2
390: ,p_claim_source in varchar2 default hr_api.g_varchar2
391: ,p_agency_acceptance in varchar2 default hr_api.g_varchar2
392: ,p_aj_acceptance in varchar2 default hr_api.g_varchar2
393: ,p_agency_appeal in varchar2 default hr_api.g_varchar2
394: ) is
395: --
396: l_rec ghr_ccl_shd.g_rec_type;
397: l_proc varchar2(72) := g_package||'upd';