[Home] [Help]
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.
107: End If;
108: --
109: hr_utility.set_location(' Leaving:'||l_proc, 15);
110: Exception
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: --
114: irc_iad_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When hr_api.check_integrity_violated Then
112: -- A check constraint has been violated
113: --
114: irc_iad_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: --
119: irc_iad_shd.constraint_error
112: -- A check constraint has been violated
113: --
114: irc_iad_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: --
119: irc_iad_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: --
119: irc_iad_shd.constraint_error
120: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
121: When Others Then
122: --
123: Raise;
124: End dt_update_dml;
233: l_dummy_version_number number;
234: --
235: Begin
236: hr_utility.set_location('Entering:'||l_proc, 5);
237: If (p_datetrack_mode <> hr_api.g_correction) then
238: --
239: -- Update the current effective end date
240: --
241: hr_utility.set_location(l_proc, 10);
247: ,p_validation_end_date => p_validation_end_date
248: ,p_object_version_number => l_dummy_version_number
249: );
250: --
251: If (p_datetrack_mode = hr_api.g_update_override) then
252: --
253: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
254: -- delete any future rows
255: --
459: );
460: --
461: exception
462: --
463: when hr_api.cannot_find_prog_unit then
464: --
465: hr_api.cannot_find_prog_unit_error
466: (p_module_name => 'IRC_ASSIGNMENT_DETAILS_F'
467: ,p_hook_type => 'AU');
461: exception
462: --
463: when hr_api.cannot_find_prog_unit then
464: --
465: hr_api.cannot_find_prog_unit_error
466: (p_module_name => 'IRC_ASSIGNMENT_DETAILS_F'
467: ,p_hook_type => 'AU');
468: --
469: end;
524: -- p_rec plsql record structure
525: -- to see if a system default is being used. If a system default
526: -- is being used then we must set to the 'current' argument value.
527: --
528: If (p_rec.assignment_id = hr_api.g_number) then
529: p_rec.assignment_id :=
530: irc_iad_shd.g_old_rec.assignment_id;
531: End If;
532: If (p_rec.effective_start_date = hr_api.g_date) then
528: If (p_rec.assignment_id = hr_api.g_number) then
529: p_rec.assignment_id :=
530: irc_iad_shd.g_old_rec.assignment_id;
531: End If;
532: If (p_rec.effective_start_date = hr_api.g_date) then
533: p_rec.effective_start_date :=
534: irc_iad_shd.g_old_rec.effective_start_date;
535: End If;
536: If (p_rec.effective_end_date = hr_api.g_date) then
532: If (p_rec.effective_start_date = hr_api.g_date) then
533: p_rec.effective_start_date :=
534: irc_iad_shd.g_old_rec.effective_start_date;
535: End If;
536: If (p_rec.effective_end_date = hr_api.g_date) then
537: p_rec.effective_end_date :=
538: irc_iad_shd.g_old_rec.effective_end_date;
539: End If;
540: If (p_rec.details_version = hr_api.g_number) then
536: If (p_rec.effective_end_date = hr_api.g_date) then
537: p_rec.effective_end_date :=
538: irc_iad_shd.g_old_rec.effective_end_date;
539: End If;
540: If (p_rec.details_version = hr_api.g_number) then
541: p_rec.details_version :=
542: irc_iad_shd.g_old_rec.details_version;
543: End If;
544: If (p_rec.latest_details = hr_api.g_varchar2) then
540: If (p_rec.details_version = hr_api.g_number) then
541: p_rec.details_version :=
542: irc_iad_shd.g_old_rec.details_version;
543: End If;
544: If (p_rec.latest_details = hr_api.g_varchar2) then
545: p_rec.latest_details :=
546: irc_iad_shd.g_old_rec.latest_details;
547: End If;
548: If (p_rec.attempt_id = hr_api.g_number) then
544: If (p_rec.latest_details = hr_api.g_varchar2) then
545: p_rec.latest_details :=
546: irc_iad_shd.g_old_rec.latest_details;
547: End If;
548: If (p_rec.attempt_id = hr_api.g_number) then
549: p_rec.attempt_id :=
550: irc_iad_shd.g_old_rec.attempt_id;
551: End If;
552: If (p_rec.qualified = hr_api.g_varchar2) then
548: If (p_rec.attempt_id = hr_api.g_number) then
549: p_rec.attempt_id :=
550: irc_iad_shd.g_old_rec.attempt_id;
551: End If;
552: If (p_rec.qualified = hr_api.g_varchar2) then
553: p_rec.qualified :=
554: irc_iad_shd.g_old_rec.qualified;
555: End If;
556: If (p_rec.considered = hr_api.g_varchar2) then
552: If (p_rec.qualified = hr_api.g_varchar2) then
553: p_rec.qualified :=
554: irc_iad_shd.g_old_rec.qualified;
555: End If;
556: If (p_rec.considered = hr_api.g_varchar2) then
557: p_rec.considered :=
558: irc_iad_shd.g_old_rec.considered;
559: End If;
560: --
642: -- ----------------------------------------------------------------------------
643: Procedure upd
644: (p_effective_date in date
645: ,p_datetrack_mode in varchar2
646: ,p_assignment_id in number default hr_api.g_number
647: ,p_attempt_id in number default hr_api.g_number
648: ,p_qualified in varchar2
649: ,p_considered in varchar2
650: ,p_assignment_details_id in out nocopy number
643: Procedure upd
644: (p_effective_date in date
645: ,p_datetrack_mode in varchar2
646: ,p_assignment_id in number default hr_api.g_number
647: ,p_attempt_id in number default hr_api.g_number
648: ,p_qualified in varchar2
649: ,p_considered in varchar2
650: ,p_assignment_details_id in out nocopy number
651: ,p_object_version_number in out nocopy number