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.
152: End If;
153: --
154: hr_utility.set_location(' Leaving:'||l_proc, 20);
155: Exception
156: When hr_api.check_integrity_violated Then
157: -- A check constraint has been violated
158: per_spp_shd.g_api_dml := false; -- Unset the api dml status
159: per_spp_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
156: When hr_api.check_integrity_violated Then
157: -- A check constraint has been violated
158: per_spp_shd.g_api_dml := false; -- Unset the api dml status
159: per_spp_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: per_spp_shd.g_api_dml := false; -- Unset the api dml status
164: per_spp_shd.constraint_error
157: -- A check constraint has been violated
158: per_spp_shd.g_api_dml := false; -- Unset the api dml status
159: per_spp_shd.constraint_error
160: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: per_spp_shd.g_api_dml := false; -- Unset the api dml status
164: per_spp_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
161: When hr_api.unique_integrity_violated Then
162: -- Unique integrity has been violated
163: per_spp_shd.g_api_dml := false; -- Unset the api dml status
164: per_spp_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166: When Others Then
167: per_spp_shd.g_api_dml := false; -- Unset the api dml status
168: Raise;
169: End dt_update_dml;
278: l_dummy_version_number number;
279: --
280: Begin
281: hr_utility.set_location('Entering:'||l_proc, 5);
282: If (p_datetrack_mode <> hr_api.g_correction) then
283: --
284: -- Update the current effective end date
285: --
286: per_spp_shd.upd_effective_end_date
291: ,p_validation_end_date => p_validation_end_date
292: ,p_object_version_number => l_dummy_version_number
293: );
294: --
295: If (p_datetrack_mode = hr_api.g_update_override) then
296: --
297: -- As the datetrack mode is 'UPDATE_OVERRIDE' then we must
298: -- delete any future rows
299: --
556: );
557: --
558: exception
559: --
560: when hr_api.cannot_find_prog_unit then
561: --
562: hr_api.cannot_find_prog_unit_error
563: (p_module_name => 'PER_SPINAL_POINT_PLACEMENTS_F'
564: ,p_hook_type => 'AU');
558: exception
559: --
560: when hr_api.cannot_find_prog_unit then
561: --
562: hr_api.cannot_find_prog_unit_error
563: (p_module_name => 'PER_SPINAL_POINT_PLACEMENTS_F'
564: ,p_hook_type => 'AU');
565: --
566: end;
621: -- p_rec plsql record structure
622: -- to see if a system default is being used. If a system default
623: -- is being used then we must set to the 'current' argument value.
624: --
625: If (p_rec.business_group_id = hr_api.g_number) then
626: p_rec.business_group_id :=
627: per_spp_shd.g_old_rec.business_group_id;
628: End If;
629: If (p_rec.assignment_id = hr_api.g_number) then
625: If (p_rec.business_group_id = hr_api.g_number) then
626: p_rec.business_group_id :=
627: per_spp_shd.g_old_rec.business_group_id;
628: End If;
629: If (p_rec.assignment_id = hr_api.g_number) then
630: p_rec.assignment_id :=
631: per_spp_shd.g_old_rec.assignment_id;
632: End If;
633: If (p_rec.step_id = hr_api.g_number) then
629: If (p_rec.assignment_id = hr_api.g_number) then
630: p_rec.assignment_id :=
631: per_spp_shd.g_old_rec.assignment_id;
632: End If;
633: If (p_rec.step_id = hr_api.g_number) then
634: p_rec.step_id :=
635: per_spp_shd.g_old_rec.step_id;
636: End If;
637: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
633: If (p_rec.step_id = hr_api.g_number) then
634: p_rec.step_id :=
635: per_spp_shd.g_old_rec.step_id;
636: End If;
637: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
638: p_rec.auto_increment_flag :=
639: per_spp_shd.g_old_rec.auto_increment_flag;
640: End If;
641: If (p_rec.parent_spine_id = hr_api.g_number) then
637: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
638: p_rec.auto_increment_flag :=
639: per_spp_shd.g_old_rec.auto_increment_flag;
640: End If;
641: If (p_rec.parent_spine_id = hr_api.g_number) then
642: p_rec.parent_spine_id :=
643: per_spp_shd.g_old_rec.parent_spine_id;
644: End If;
645: If (p_rec.reason = hr_api.g_varchar2) then
641: If (p_rec.parent_spine_id = hr_api.g_number) then
642: p_rec.parent_spine_id :=
643: per_spp_shd.g_old_rec.parent_spine_id;
644: End If;
645: If (p_rec.reason = hr_api.g_varchar2) then
646: p_rec.reason :=
647: per_spp_shd.g_old_rec.reason;
648: End If;
649: If (p_rec.request_id = hr_api.g_number) then
645: If (p_rec.reason = hr_api.g_varchar2) then
646: p_rec.reason :=
647: per_spp_shd.g_old_rec.reason;
648: End If;
649: If (p_rec.request_id = hr_api.g_number) then
650: p_rec.request_id :=
651: per_spp_shd.g_old_rec.request_id;
652: End If;
653: If (p_rec.program_application_id = hr_api.g_number) then
649: If (p_rec.request_id = hr_api.g_number) then
650: p_rec.request_id :=
651: per_spp_shd.g_old_rec.request_id;
652: End If;
653: If (p_rec.program_application_id = hr_api.g_number) then
654: p_rec.program_application_id :=
655: per_spp_shd.g_old_rec.program_application_id;
656: End If;
657: If (p_rec.program_id = hr_api.g_number) then
653: If (p_rec.program_application_id = hr_api.g_number) then
654: p_rec.program_application_id :=
655: per_spp_shd.g_old_rec.program_application_id;
656: End If;
657: If (p_rec.program_id = hr_api.g_number) then
658: p_rec.program_id :=
659: per_spp_shd.g_old_rec.program_id;
660: End If;
661: If (p_rec.program_update_date = hr_api.g_date) then
657: If (p_rec.program_id = hr_api.g_number) then
658: p_rec.program_id :=
659: per_spp_shd.g_old_rec.program_id;
660: End If;
661: If (p_rec.program_update_date = hr_api.g_date) then
662: p_rec.program_update_date :=
663: per_spp_shd.g_old_rec.program_update_date;
664: End If;
665: If (p_rec.increment_number = hr_api.g_number) then
661: If (p_rec.program_update_date = hr_api.g_date) then
662: p_rec.program_update_date :=
663: per_spp_shd.g_old_rec.program_update_date;
664: End If;
665: If (p_rec.increment_number = hr_api.g_number) then
666: p_rec.increment_number :=
667: per_spp_shd.g_old_rec.increment_number;
668: End If;
669: If (p_rec.information1 = hr_api.g_varchar2) then
665: If (p_rec.increment_number = hr_api.g_number) then
666: p_rec.increment_number :=
667: per_spp_shd.g_old_rec.increment_number;
668: End If;
669: If (p_rec.information1 = hr_api.g_varchar2) then
670: p_rec.information1 := per_spp_shd.g_old_rec.information1;
671: End If;
672: If (p_rec.information2 = hr_api.g_varchar2) then
673: p_rec.information2 := per_spp_shd.g_old_rec.information2;
668: End If;
669: If (p_rec.information1 = hr_api.g_varchar2) then
670: p_rec.information1 := per_spp_shd.g_old_rec.information1;
671: End If;
672: If (p_rec.information2 = hr_api.g_varchar2) then
673: p_rec.information2 := per_spp_shd.g_old_rec.information2;
674: End If;
675: If (p_rec.information3 = hr_api.g_varchar2) then
676: p_rec.information3 := per_spp_shd.g_old_rec.information3;
671: End If;
672: If (p_rec.information2 = hr_api.g_varchar2) then
673: p_rec.information2 := per_spp_shd.g_old_rec.information2;
674: End If;
675: If (p_rec.information3 = hr_api.g_varchar2) then
676: p_rec.information3 := per_spp_shd.g_old_rec.information3;
677: End If;
678: If (p_rec.information3 = hr_api.g_varchar2) then
679: p_rec.information3 := per_spp_shd.g_old_rec.information3;
674: End If;
675: If (p_rec.information3 = hr_api.g_varchar2) then
676: p_rec.information3 := per_spp_shd.g_old_rec.information3;
677: End If;
678: If (p_rec.information3 = hr_api.g_varchar2) then
679: p_rec.information3 := per_spp_shd.g_old_rec.information3;
680: End If;
681: If (p_rec.information4 = hr_api.g_varchar2) then
682: p_rec.information4 := per_spp_shd.g_old_rec.information4;
677: End If;
678: If (p_rec.information3 = hr_api.g_varchar2) then
679: p_rec.information3 := per_spp_shd.g_old_rec.information3;
680: End If;
681: If (p_rec.information4 = hr_api.g_varchar2) then
682: p_rec.information4 := per_spp_shd.g_old_rec.information4;
683: End If;
684: If (p_rec.information5 = hr_api.g_varchar2) then
685: p_rec.information5 := per_spp_shd.g_old_rec.information5;
680: End If;
681: If (p_rec.information4 = hr_api.g_varchar2) then
682: p_rec.information4 := per_spp_shd.g_old_rec.information4;
683: End If;
684: If (p_rec.information5 = hr_api.g_varchar2) then
685: p_rec.information5 := per_spp_shd.g_old_rec.information5;
686: End If;
687: If (p_rec.information6 = hr_api.g_varchar2) then
688: p_rec.information6 := per_spp_shd.g_old_rec.information6;
683: End If;
684: If (p_rec.information5 = hr_api.g_varchar2) then
685: p_rec.information5 := per_spp_shd.g_old_rec.information5;
686: End If;
687: If (p_rec.information6 = hr_api.g_varchar2) then
688: p_rec.information6 := per_spp_shd.g_old_rec.information6;
689: End If;
690: If (p_rec.information7 = hr_api.g_varchar2) then
691: p_rec.information7 := per_spp_shd.g_old_rec.information7;
686: End If;
687: If (p_rec.information6 = hr_api.g_varchar2) then
688: p_rec.information6 := per_spp_shd.g_old_rec.information6;
689: End If;
690: If (p_rec.information7 = hr_api.g_varchar2) then
691: p_rec.information7 := per_spp_shd.g_old_rec.information7;
692: End If;
693: If (p_rec.information8 = hr_api.g_varchar2) then
694: p_rec.information8 := per_spp_shd.g_old_rec.information8;
689: End If;
690: If (p_rec.information7 = hr_api.g_varchar2) then
691: p_rec.information7 := per_spp_shd.g_old_rec.information7;
692: End If;
693: If (p_rec.information8 = hr_api.g_varchar2) then
694: p_rec.information8 := per_spp_shd.g_old_rec.information8;
695: End If;
696: If (p_rec.information9 = hr_api.g_varchar2) then
697: p_rec.information9 := per_spp_shd.g_old_rec.information9;
692: End If;
693: If (p_rec.information8 = hr_api.g_varchar2) then
694: p_rec.information8 := per_spp_shd.g_old_rec.information8;
695: End If;
696: If (p_rec.information9 = hr_api.g_varchar2) then
697: p_rec.information9 := per_spp_shd.g_old_rec.information9;
698: End If;
699: If (p_rec.information10 = hr_api.g_varchar2) then
700: p_rec.information10 := per_spp_shd.g_old_rec.information10;
695: End If;
696: If (p_rec.information9 = hr_api.g_varchar2) then
697: p_rec.information9 := per_spp_shd.g_old_rec.information9;
698: End If;
699: If (p_rec.information10 = hr_api.g_varchar2) then
700: p_rec.information10 := per_spp_shd.g_old_rec.information10;
701: End If;
702: If (p_rec.information11 = hr_api.g_varchar2) then
703: p_rec.information11 := per_spp_shd.g_old_rec.information11;
698: End If;
699: If (p_rec.information10 = hr_api.g_varchar2) then
700: p_rec.information10 := per_spp_shd.g_old_rec.information10;
701: End If;
702: If (p_rec.information11 = hr_api.g_varchar2) then
703: p_rec.information11 := per_spp_shd.g_old_rec.information11;
704: End If;
705: If (p_rec.information12 = hr_api.g_varchar2) then
706: p_rec.information12 := per_spp_shd.g_old_rec.information12;
701: End If;
702: If (p_rec.information11 = hr_api.g_varchar2) then
703: p_rec.information11 := per_spp_shd.g_old_rec.information11;
704: End If;
705: If (p_rec.information12 = hr_api.g_varchar2) then
706: p_rec.information12 := per_spp_shd.g_old_rec.information12;
707: End If;
708: If (p_rec.information13 = hr_api.g_varchar2) then
709: p_rec.information13 := per_spp_shd.g_old_rec.information13;
704: End If;
705: If (p_rec.information12 = hr_api.g_varchar2) then
706: p_rec.information12 := per_spp_shd.g_old_rec.information12;
707: End If;
708: If (p_rec.information13 = hr_api.g_varchar2) then
709: p_rec.information13 := per_spp_shd.g_old_rec.information13;
710: End If;
711: If (p_rec.information14 = hr_api.g_varchar2) then
712: p_rec.information14 := per_spp_shd.g_old_rec.information14;
707: End If;
708: If (p_rec.information13 = hr_api.g_varchar2) then
709: p_rec.information13 := per_spp_shd.g_old_rec.information13;
710: End If;
711: If (p_rec.information14 = hr_api.g_varchar2) then
712: p_rec.information14 := per_spp_shd.g_old_rec.information14;
713: End If;
714: If (p_rec.information15 = hr_api.g_varchar2) then
715: p_rec.information15 := per_spp_shd.g_old_rec.information15;
710: End If;
711: If (p_rec.information14 = hr_api.g_varchar2) then
712: p_rec.information14 := per_spp_shd.g_old_rec.information14;
713: End If;
714: If (p_rec.information15 = hr_api.g_varchar2) then
715: p_rec.information15 := per_spp_shd.g_old_rec.information15;
716: End If;
717: If (p_rec.information16 = hr_api.g_varchar2) then
718: p_rec.information16 := per_spp_shd.g_old_rec.information16;
713: End If;
714: If (p_rec.information15 = hr_api.g_varchar2) then
715: p_rec.information15 := per_spp_shd.g_old_rec.information15;
716: End If;
717: If (p_rec.information16 = hr_api.g_varchar2) then
718: p_rec.information16 := per_spp_shd.g_old_rec.information16;
719: End If;
720: If (p_rec.information17 = hr_api.g_varchar2) then
721: p_rec.information17 := per_spp_shd.g_old_rec.information17;
716: End If;
717: If (p_rec.information16 = hr_api.g_varchar2) then
718: p_rec.information16 := per_spp_shd.g_old_rec.information16;
719: End If;
720: If (p_rec.information17 = hr_api.g_varchar2) then
721: p_rec.information17 := per_spp_shd.g_old_rec.information17;
722: End If;
723: If (p_rec.information18 = hr_api.g_varchar2) then
724: p_rec.information18 := per_spp_shd.g_old_rec.information18;
719: End If;
720: If (p_rec.information17 = hr_api.g_varchar2) then
721: p_rec.information17 := per_spp_shd.g_old_rec.information17;
722: End If;
723: If (p_rec.information18 = hr_api.g_varchar2) then
724: p_rec.information18 := per_spp_shd.g_old_rec.information18;
725: End If;
726: If (p_rec.information19 = hr_api.g_varchar2) then
727: p_rec.information19 := per_spp_shd.g_old_rec.information19;
722: End If;
723: If (p_rec.information18 = hr_api.g_varchar2) then
724: p_rec.information18 := per_spp_shd.g_old_rec.information18;
725: End If;
726: If (p_rec.information19 = hr_api.g_varchar2) then
727: p_rec.information19 := per_spp_shd.g_old_rec.information19;
728: End If;
729: If (p_rec.information20 = hr_api.g_varchar2) then
730: p_rec.information20 := per_spp_shd.g_old_rec.information20;
725: End If;
726: If (p_rec.information19 = hr_api.g_varchar2) then
727: p_rec.information19 := per_spp_shd.g_old_rec.information19;
728: End If;
729: If (p_rec.information20 = hr_api.g_varchar2) then
730: p_rec.information20 := per_spp_shd.g_old_rec.information20;
731: End If;
732: If (p_rec.information21 = hr_api.g_varchar2) then
733: p_rec.information21 := per_spp_shd.g_old_rec.information21;
728: End If;
729: If (p_rec.information20 = hr_api.g_varchar2) then
730: p_rec.information20 := per_spp_shd.g_old_rec.information20;
731: End If;
732: If (p_rec.information21 = hr_api.g_varchar2) then
733: p_rec.information21 := per_spp_shd.g_old_rec.information21;
734: End If;
735: If (p_rec.information22 = hr_api.g_varchar2) then
736: p_rec.information22 := per_spp_shd.g_old_rec.information22;
731: End If;
732: If (p_rec.information21 = hr_api.g_varchar2) then
733: p_rec.information21 := per_spp_shd.g_old_rec.information21;
734: End If;
735: If (p_rec.information22 = hr_api.g_varchar2) then
736: p_rec.information22 := per_spp_shd.g_old_rec.information22;
737: End If;
738: If (p_rec.information23 = hr_api.g_varchar2) then
739: p_rec.information23 := per_spp_shd.g_old_rec.information23;
734: End If;
735: If (p_rec.information22 = hr_api.g_varchar2) then
736: p_rec.information22 := per_spp_shd.g_old_rec.information22;
737: End If;
738: If (p_rec.information23 = hr_api.g_varchar2) then
739: p_rec.information23 := per_spp_shd.g_old_rec.information23;
740: End If;
741: If (p_rec.information24 = hr_api.g_varchar2) then
742: p_rec.information24 := per_spp_shd.g_old_rec.information24;
737: End If;
738: If (p_rec.information23 = hr_api.g_varchar2) then
739: p_rec.information23 := per_spp_shd.g_old_rec.information23;
740: End If;
741: If (p_rec.information24 = hr_api.g_varchar2) then
742: p_rec.information24 := per_spp_shd.g_old_rec.information24;
743: End If;
744: If (p_rec.information25 = hr_api.g_varchar2) then
745: p_rec.information25 := per_spp_shd.g_old_rec.information25;
740: End If;
741: If (p_rec.information24 = hr_api.g_varchar2) then
742: p_rec.information24 := per_spp_shd.g_old_rec.information24;
743: End If;
744: If (p_rec.information25 = hr_api.g_varchar2) then
745: p_rec.information25 := per_spp_shd.g_old_rec.information25;
746: End If;
747: If (p_rec.information26 = hr_api.g_varchar2) then
748: p_rec.information26 := per_spp_shd.g_old_rec.information26;
743: End If;
744: If (p_rec.information25 = hr_api.g_varchar2) then
745: p_rec.information25 := per_spp_shd.g_old_rec.information25;
746: End If;
747: If (p_rec.information26 = hr_api.g_varchar2) then
748: p_rec.information26 := per_spp_shd.g_old_rec.information26;
749: End If;
750: If (p_rec.information27 = hr_api.g_varchar2) then
751: p_rec.information27 := per_spp_shd.g_old_rec.information27;
746: End If;
747: If (p_rec.information26 = hr_api.g_varchar2) then
748: p_rec.information26 := per_spp_shd.g_old_rec.information26;
749: End If;
750: If (p_rec.information27 = hr_api.g_varchar2) then
751: p_rec.information27 := per_spp_shd.g_old_rec.information27;
752: End If;
753: If (p_rec.information28 = hr_api.g_varchar2) then
754: p_rec.information28 := per_spp_shd.g_old_rec.information28;
749: End If;
750: If (p_rec.information27 = hr_api.g_varchar2) then
751: p_rec.information27 := per_spp_shd.g_old_rec.information27;
752: End If;
753: If (p_rec.information28 = hr_api.g_varchar2) then
754: p_rec.information28 := per_spp_shd.g_old_rec.information28;
755: End If;
756: If (p_rec.information29 = hr_api.g_varchar2) then
757: p_rec.information29 := per_spp_shd.g_old_rec.information29;
752: End If;
753: If (p_rec.information28 = hr_api.g_varchar2) then
754: p_rec.information28 := per_spp_shd.g_old_rec.information28;
755: End If;
756: If (p_rec.information29 = hr_api.g_varchar2) then
757: p_rec.information29 := per_spp_shd.g_old_rec.information29;
758: End If;
759: If (p_rec.information30 = hr_api.g_varchar2) then
760: p_rec.information30 := per_spp_shd.g_old_rec.information30;
755: End If;
756: If (p_rec.information29 = hr_api.g_varchar2) then
757: p_rec.information29 := per_spp_shd.g_old_rec.information29;
758: End If;
759: If (p_rec.information30 = hr_api.g_varchar2) then
760: p_rec.information30 := per_spp_shd.g_old_rec.information30;
761: End If;
762: If (p_rec.information_category = hr_api.g_varchar2) then
763: p_rec.information_category := per_spp_shd.g_old_rec.information_category;
758: End If;
759: If (p_rec.information30 = hr_api.g_varchar2) then
760: p_rec.information30 := per_spp_shd.g_old_rec.information30;
761: End If;
762: If (p_rec.information_category = hr_api.g_varchar2) then
763: p_rec.information_category := per_spp_shd.g_old_rec.information_category;
764: End If;
765: --
766: End convert_defs;