66: --
67: Begin
68: hr_utility.set_location('Entering:'||l_proc, 5);
69: --
70: If (p_datetrack_mode = hr_api.g_correction) then
71: hr_utility.set_location(l_proc, 10);
72: --
73: -- Because we are updating a row we must get the next object
74: -- version number.
106: End If;
107: --
108: hr_utility.set_location(' Leaving:'||l_proc, 15);
109: Exception
110: When hr_api.check_integrity_violated Then
111: -- A check constraint has been violated
112: --
113: ben_ber_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
110: When hr_api.check_integrity_violated Then
111: -- A check constraint has been violated
112: --
113: ben_ber_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.unique_integrity_violated Then
116: -- Unique integrity has been violated
117: --
118: ben_ber_shd.constraint_error
111: -- A check constraint has been violated
112: --
113: ben_ber_shd.constraint_error
114: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.unique_integrity_violated Then
116: -- Unique integrity has been violated
117: --
118: ben_ber_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.unique_integrity_violated Then
116: -- Unique integrity has been violated
117: --
118: ben_ber_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When Others Then
121: --
122: Raise;
123: End dt_update_dml;
232: l_dummy_version_number number;
233: --
234: Begin
235: hr_utility.set_location('Entering:'||l_proc, 5);
236: If (p_datetrack_mode <> hr_api.g_correction) then
237: --
238: -- Update the current effective end date
239: --
240: ben_ber_shd.upd_effective_end_date
245: ,p_validation_end_date => p_validation_end_date
246: ,p_object_version_number => l_dummy_version_number
247: );
248: --
249: If (p_datetrack_mode = hr_api.g_update_override) then
250: --
251: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
252: -- delete any future rows
253: --
423: );
424: --
425: exception
426: --
427: when hr_api.cannot_find_prog_unit then
428: --
429: hr_api.cannot_find_prog_unit_error
430: (p_module_name => 'BEN_ELIG_RSLT_F'
431: ,p_hook_type => 'AU');
425: exception
426: --
427: when hr_api.cannot_find_prog_unit then
428: --
429: hr_api.cannot_find_prog_unit_error
430: (p_module_name => 'BEN_ELIG_RSLT_F'
431: ,p_hook_type => 'AU');
432: --
433: end;
488: -- p_rec plsql record structure
489: -- to see if a system default is being used. If a system default
490: -- is being used then we must set to the 'current' argument value.
491: --
492: If (p_rec.elig_obj_id = hr_api.g_number) then
493: p_rec.elig_obj_id :=
494: ben_ber_shd.g_old_rec.elig_obj_id;
495: End If;
496: If (p_rec.person_id = hr_api.g_number) then
492: If (p_rec.elig_obj_id = hr_api.g_number) then
493: p_rec.elig_obj_id :=
494: ben_ber_shd.g_old_rec.elig_obj_id;
495: End If;
496: If (p_rec.person_id = hr_api.g_number) then
497: p_rec.person_id :=
498: ben_ber_shd.g_old_rec.person_id;
499: End If;
500: If (p_rec.assignment_id = hr_api.g_number) then
496: If (p_rec.person_id = hr_api.g_number) then
497: p_rec.person_id :=
498: ben_ber_shd.g_old_rec.person_id;
499: End If;
500: If (p_rec.assignment_id = hr_api.g_number) then
501: p_rec.assignment_id :=
502: ben_ber_shd.g_old_rec.assignment_id;
503: End If;
504: If (p_rec.elig_flag = hr_api.g_varchar2) then
500: If (p_rec.assignment_id = hr_api.g_number) then
501: p_rec.assignment_id :=
502: ben_ber_shd.g_old_rec.assignment_id;
503: End If;
504: If (p_rec.elig_flag = hr_api.g_varchar2) then
505: p_rec.elig_flag :=
506: ben_ber_shd.g_old_rec.elig_flag;
507: End If;
508: If (p_rec.business_group_id = hr_api.g_number) then
504: If (p_rec.elig_flag = hr_api.g_varchar2) then
505: p_rec.elig_flag :=
506: ben_ber_shd.g_old_rec.elig_flag;
507: End If;
508: If (p_rec.business_group_id = hr_api.g_number) then
509: p_rec.business_group_id :=
510: ben_ber_shd.g_old_rec.business_group_id;
511: End If;
512: --
603: (p_effective_date in date
604: ,p_datetrack_mode in varchar2
605: ,p_elig_rslt_id in number
606: ,p_object_version_number in out nocopy number
607: ,p_elig_obj_id in number default hr_api.g_number
608: ,p_elig_flag in varchar2 default hr_api.g_varchar2
609: ,p_business_group_id in number default hr_api.g_number
610: ,p_person_id in number default hr_api.g_number
611: ,p_assignment_id in number default hr_api.g_number
604: ,p_datetrack_mode in varchar2
605: ,p_elig_rslt_id in number
606: ,p_object_version_number in out nocopy number
607: ,p_elig_obj_id in number default hr_api.g_number
608: ,p_elig_flag in varchar2 default hr_api.g_varchar2
609: ,p_business_group_id in number default hr_api.g_number
610: ,p_person_id in number default hr_api.g_number
611: ,p_assignment_id in number default hr_api.g_number
612: ,p_effective_start_date out nocopy date
605: ,p_elig_rslt_id in number
606: ,p_object_version_number in out nocopy number
607: ,p_elig_obj_id in number default hr_api.g_number
608: ,p_elig_flag in varchar2 default hr_api.g_varchar2
609: ,p_business_group_id in number default hr_api.g_number
610: ,p_person_id in number default hr_api.g_number
611: ,p_assignment_id in number default hr_api.g_number
612: ,p_effective_start_date out nocopy date
613: ,p_effective_end_date out nocopy date
606: ,p_object_version_number in out nocopy number
607: ,p_elig_obj_id in number default hr_api.g_number
608: ,p_elig_flag in varchar2 default hr_api.g_varchar2
609: ,p_business_group_id in number default hr_api.g_number
610: ,p_person_id in number default hr_api.g_number
611: ,p_assignment_id in number default hr_api.g_number
612: ,p_effective_start_date out nocopy date
613: ,p_effective_end_date out nocopy date
614: ) is
607: ,p_elig_obj_id in number default hr_api.g_number
608: ,p_elig_flag in varchar2 default hr_api.g_varchar2
609: ,p_business_group_id in number default hr_api.g_number
610: ,p_person_id in number default hr_api.g_number
611: ,p_assignment_id in number default hr_api.g_number
612: ,p_effective_start_date out nocopy date
613: ,p_effective_end_date out nocopy date
614: ) is
615: --