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: --
603: );
604: --
605: exception
606: --
607: when hr_api.cannot_find_prog_unit then
608: --
609: hr_api.cannot_find_prog_unit_error
610: (p_module_name => 'PER_SPINAL_POINT_PLACEMENTS_F'
611: ,p_hook_type => 'AU');
605: exception
606: --
607: when hr_api.cannot_find_prog_unit then
608: --
609: hr_api.cannot_find_prog_unit_error
610: (p_module_name => 'PER_SPINAL_POINT_PLACEMENTS_F'
611: ,p_hook_type => 'AU');
612: --
613: end;
668: -- p_rec plsql record structure
669: -- to see if a system default is being used. If a system default
670: -- is being used then we must set to the 'current' argument value.
671: --
672: If (p_rec.business_group_id = hr_api.g_number) then
673: p_rec.business_group_id :=
674: per_spp_shd.g_old_rec.business_group_id;
675: End If;
676: If (p_rec.assignment_id = hr_api.g_number) then
672: If (p_rec.business_group_id = hr_api.g_number) then
673: p_rec.business_group_id :=
674: per_spp_shd.g_old_rec.business_group_id;
675: End If;
676: If (p_rec.assignment_id = hr_api.g_number) then
677: p_rec.assignment_id :=
678: per_spp_shd.g_old_rec.assignment_id;
679: End If;
680: If (p_rec.step_id = hr_api.g_number) then
676: If (p_rec.assignment_id = hr_api.g_number) then
677: p_rec.assignment_id :=
678: per_spp_shd.g_old_rec.assignment_id;
679: End If;
680: If (p_rec.step_id = hr_api.g_number) then
681: p_rec.step_id :=
682: per_spp_shd.g_old_rec.step_id;
683: End If;
684: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
680: If (p_rec.step_id = hr_api.g_number) then
681: p_rec.step_id :=
682: per_spp_shd.g_old_rec.step_id;
683: End If;
684: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
685: p_rec.auto_increment_flag :=
686: per_spp_shd.g_old_rec.auto_increment_flag;
687: End If;
688: If (p_rec.parent_spine_id = hr_api.g_number) then
684: If (p_rec.auto_increment_flag = hr_api.g_varchar2) then
685: p_rec.auto_increment_flag :=
686: per_spp_shd.g_old_rec.auto_increment_flag;
687: End If;
688: If (p_rec.parent_spine_id = hr_api.g_number) then
689: p_rec.parent_spine_id :=
690: per_spp_shd.g_old_rec.parent_spine_id;
691: End If;
692: If (p_rec.reason = hr_api.g_varchar2) then
688: If (p_rec.parent_spine_id = hr_api.g_number) then
689: p_rec.parent_spine_id :=
690: per_spp_shd.g_old_rec.parent_spine_id;
691: End If;
692: If (p_rec.reason = hr_api.g_varchar2) then
693: p_rec.reason :=
694: per_spp_shd.g_old_rec.reason;
695: End If;
696: If (p_rec.request_id = hr_api.g_number) then
692: If (p_rec.reason = hr_api.g_varchar2) then
693: p_rec.reason :=
694: per_spp_shd.g_old_rec.reason;
695: End If;
696: If (p_rec.request_id = hr_api.g_number) then
697: p_rec.request_id :=
698: per_spp_shd.g_old_rec.request_id;
699: End If;
700: If (p_rec.program_application_id = hr_api.g_number) then
696: If (p_rec.request_id = hr_api.g_number) then
697: p_rec.request_id :=
698: per_spp_shd.g_old_rec.request_id;
699: End If;
700: If (p_rec.program_application_id = hr_api.g_number) then
701: p_rec.program_application_id :=
702: per_spp_shd.g_old_rec.program_application_id;
703: End If;
704: If (p_rec.program_id = hr_api.g_number) then
700: If (p_rec.program_application_id = hr_api.g_number) then
701: p_rec.program_application_id :=
702: per_spp_shd.g_old_rec.program_application_id;
703: End If;
704: If (p_rec.program_id = hr_api.g_number) then
705: p_rec.program_id :=
706: per_spp_shd.g_old_rec.program_id;
707: End If;
708: If (p_rec.program_update_date = hr_api.g_date) then
704: If (p_rec.program_id = hr_api.g_number) then
705: p_rec.program_id :=
706: per_spp_shd.g_old_rec.program_id;
707: End If;
708: If (p_rec.program_update_date = hr_api.g_date) then
709: p_rec.program_update_date :=
710: per_spp_shd.g_old_rec.program_update_date;
711: End If;
712: If (p_rec.increment_number = hr_api.g_number) then
708: If (p_rec.program_update_date = hr_api.g_date) then
709: p_rec.program_update_date :=
710: per_spp_shd.g_old_rec.program_update_date;
711: End If;
712: If (p_rec.increment_number = hr_api.g_number) then
713: p_rec.increment_number :=
714: per_spp_shd.g_old_rec.increment_number;
715: End If;
716: If (p_rec.information1 = hr_api.g_varchar2) then
712: If (p_rec.increment_number = hr_api.g_number) then
713: p_rec.increment_number :=
714: per_spp_shd.g_old_rec.increment_number;
715: End If;
716: If (p_rec.information1 = hr_api.g_varchar2) then
717: p_rec.information1 := per_spp_shd.g_old_rec.information1;
718: End If;
719: If (p_rec.information2 = hr_api.g_varchar2) then
720: p_rec.information2 := per_spp_shd.g_old_rec.information2;
715: End If;
716: If (p_rec.information1 = hr_api.g_varchar2) then
717: p_rec.information1 := per_spp_shd.g_old_rec.information1;
718: End If;
719: If (p_rec.information2 = hr_api.g_varchar2) then
720: p_rec.information2 := per_spp_shd.g_old_rec.information2;
721: End If;
722: If (p_rec.information3 = hr_api.g_varchar2) then
723: p_rec.information3 := per_spp_shd.g_old_rec.information3;
718: End If;
719: If (p_rec.information2 = hr_api.g_varchar2) then
720: p_rec.information2 := per_spp_shd.g_old_rec.information2;
721: End If;
722: If (p_rec.information3 = hr_api.g_varchar2) then
723: p_rec.information3 := per_spp_shd.g_old_rec.information3;
724: End If;
725: If (p_rec.information3 = hr_api.g_varchar2) then
726: p_rec.information3 := per_spp_shd.g_old_rec.information3;
721: End If;
722: If (p_rec.information3 = hr_api.g_varchar2) then
723: p_rec.information3 := per_spp_shd.g_old_rec.information3;
724: End If;
725: If (p_rec.information3 = hr_api.g_varchar2) then
726: p_rec.information3 := per_spp_shd.g_old_rec.information3;
727: End If;
728: If (p_rec.information4 = hr_api.g_varchar2) then
729: p_rec.information4 := per_spp_shd.g_old_rec.information4;
724: End If;
725: If (p_rec.information3 = hr_api.g_varchar2) then
726: p_rec.information3 := per_spp_shd.g_old_rec.information3;
727: End If;
728: If (p_rec.information4 = hr_api.g_varchar2) then
729: p_rec.information4 := per_spp_shd.g_old_rec.information4;
730: End If;
731: If (p_rec.information5 = hr_api.g_varchar2) then
732: p_rec.information5 := per_spp_shd.g_old_rec.information5;
727: End If;
728: If (p_rec.information4 = hr_api.g_varchar2) then
729: p_rec.information4 := per_spp_shd.g_old_rec.information4;
730: End If;
731: If (p_rec.information5 = hr_api.g_varchar2) then
732: p_rec.information5 := per_spp_shd.g_old_rec.information5;
733: End If;
734: If (p_rec.information6 = hr_api.g_varchar2) then
735: p_rec.information6 := per_spp_shd.g_old_rec.information6;
730: End If;
731: If (p_rec.information5 = hr_api.g_varchar2) then
732: p_rec.information5 := per_spp_shd.g_old_rec.information5;
733: End If;
734: If (p_rec.information6 = hr_api.g_varchar2) then
735: p_rec.information6 := per_spp_shd.g_old_rec.information6;
736: End If;
737: If (p_rec.information7 = hr_api.g_varchar2) then
738: p_rec.information7 := per_spp_shd.g_old_rec.information7;
733: End If;
734: If (p_rec.information6 = hr_api.g_varchar2) then
735: p_rec.information6 := per_spp_shd.g_old_rec.information6;
736: End If;
737: If (p_rec.information7 = hr_api.g_varchar2) then
738: p_rec.information7 := per_spp_shd.g_old_rec.information7;
739: End If;
740: If (p_rec.information8 = hr_api.g_varchar2) then
741: p_rec.information8 := per_spp_shd.g_old_rec.information8;
736: End If;
737: If (p_rec.information7 = hr_api.g_varchar2) then
738: p_rec.information7 := per_spp_shd.g_old_rec.information7;
739: End If;
740: If (p_rec.information8 = hr_api.g_varchar2) then
741: p_rec.information8 := per_spp_shd.g_old_rec.information8;
742: End If;
743: If (p_rec.information9 = hr_api.g_varchar2) then
744: p_rec.information9 := per_spp_shd.g_old_rec.information9;
739: End If;
740: If (p_rec.information8 = hr_api.g_varchar2) then
741: p_rec.information8 := per_spp_shd.g_old_rec.information8;
742: End If;
743: If (p_rec.information9 = hr_api.g_varchar2) then
744: p_rec.information9 := per_spp_shd.g_old_rec.information9;
745: End If;
746: If (p_rec.information10 = hr_api.g_varchar2) then
747: p_rec.information10 := per_spp_shd.g_old_rec.information10;
742: End If;
743: If (p_rec.information9 = hr_api.g_varchar2) then
744: p_rec.information9 := per_spp_shd.g_old_rec.information9;
745: End If;
746: If (p_rec.information10 = hr_api.g_varchar2) then
747: p_rec.information10 := per_spp_shd.g_old_rec.information10;
748: End If;
749: If (p_rec.information11 = hr_api.g_varchar2) then
750: p_rec.information11 := per_spp_shd.g_old_rec.information11;
745: End If;
746: If (p_rec.information10 = hr_api.g_varchar2) then
747: p_rec.information10 := per_spp_shd.g_old_rec.information10;
748: End If;
749: If (p_rec.information11 = hr_api.g_varchar2) then
750: p_rec.information11 := per_spp_shd.g_old_rec.information11;
751: End If;
752: If (p_rec.information12 = hr_api.g_varchar2) then
753: p_rec.information12 := per_spp_shd.g_old_rec.information12;
748: End If;
749: If (p_rec.information11 = hr_api.g_varchar2) then
750: p_rec.information11 := per_spp_shd.g_old_rec.information11;
751: End If;
752: If (p_rec.information12 = hr_api.g_varchar2) then
753: p_rec.information12 := per_spp_shd.g_old_rec.information12;
754: End If;
755: If (p_rec.information13 = hr_api.g_varchar2) then
756: p_rec.information13 := per_spp_shd.g_old_rec.information13;
751: End If;
752: If (p_rec.information12 = hr_api.g_varchar2) then
753: p_rec.information12 := per_spp_shd.g_old_rec.information12;
754: End If;
755: If (p_rec.information13 = hr_api.g_varchar2) then
756: p_rec.information13 := per_spp_shd.g_old_rec.information13;
757: End If;
758: If (p_rec.information14 = hr_api.g_varchar2) then
759: p_rec.information14 := per_spp_shd.g_old_rec.information14;
754: End If;
755: If (p_rec.information13 = hr_api.g_varchar2) then
756: p_rec.information13 := per_spp_shd.g_old_rec.information13;
757: End If;
758: If (p_rec.information14 = hr_api.g_varchar2) then
759: p_rec.information14 := per_spp_shd.g_old_rec.information14;
760: End If;
761: If (p_rec.information15 = hr_api.g_varchar2) then
762: p_rec.information15 := per_spp_shd.g_old_rec.information15;
757: End If;
758: If (p_rec.information14 = hr_api.g_varchar2) then
759: p_rec.information14 := per_spp_shd.g_old_rec.information14;
760: End If;
761: If (p_rec.information15 = hr_api.g_varchar2) then
762: p_rec.information15 := per_spp_shd.g_old_rec.information15;
763: End If;
764: If (p_rec.information16 = hr_api.g_varchar2) then
765: p_rec.information16 := per_spp_shd.g_old_rec.information16;
760: End If;
761: If (p_rec.information15 = hr_api.g_varchar2) then
762: p_rec.information15 := per_spp_shd.g_old_rec.information15;
763: End If;
764: If (p_rec.information16 = hr_api.g_varchar2) then
765: p_rec.information16 := per_spp_shd.g_old_rec.information16;
766: End If;
767: If (p_rec.information17 = hr_api.g_varchar2) then
768: p_rec.information17 := per_spp_shd.g_old_rec.information17;
763: End If;
764: If (p_rec.information16 = hr_api.g_varchar2) then
765: p_rec.information16 := per_spp_shd.g_old_rec.information16;
766: End If;
767: If (p_rec.information17 = hr_api.g_varchar2) then
768: p_rec.information17 := per_spp_shd.g_old_rec.information17;
769: End If;
770: If (p_rec.information18 = hr_api.g_varchar2) then
771: p_rec.information18 := per_spp_shd.g_old_rec.information18;
766: End If;
767: If (p_rec.information17 = hr_api.g_varchar2) then
768: p_rec.information17 := per_spp_shd.g_old_rec.information17;
769: End If;
770: If (p_rec.information18 = hr_api.g_varchar2) then
771: p_rec.information18 := per_spp_shd.g_old_rec.information18;
772: End If;
773: If (p_rec.information19 = hr_api.g_varchar2) then
774: p_rec.information19 := per_spp_shd.g_old_rec.information19;
769: End If;
770: If (p_rec.information18 = hr_api.g_varchar2) then
771: p_rec.information18 := per_spp_shd.g_old_rec.information18;
772: End If;
773: If (p_rec.information19 = hr_api.g_varchar2) then
774: p_rec.information19 := per_spp_shd.g_old_rec.information19;
775: End If;
776: If (p_rec.information20 = hr_api.g_varchar2) then
777: p_rec.information20 := per_spp_shd.g_old_rec.information20;
772: End If;
773: If (p_rec.information19 = hr_api.g_varchar2) then
774: p_rec.information19 := per_spp_shd.g_old_rec.information19;
775: End If;
776: If (p_rec.information20 = hr_api.g_varchar2) then
777: p_rec.information20 := per_spp_shd.g_old_rec.information20;
778: End If;
779: If (p_rec.information21 = hr_api.g_varchar2) then
780: p_rec.information21 := per_spp_shd.g_old_rec.information21;
775: End If;
776: If (p_rec.information20 = hr_api.g_varchar2) then
777: p_rec.information20 := per_spp_shd.g_old_rec.information20;
778: End If;
779: If (p_rec.information21 = hr_api.g_varchar2) then
780: p_rec.information21 := per_spp_shd.g_old_rec.information21;
781: End If;
782: If (p_rec.information22 = hr_api.g_varchar2) then
783: p_rec.information22 := per_spp_shd.g_old_rec.information22;
778: End If;
779: If (p_rec.information21 = hr_api.g_varchar2) then
780: p_rec.information21 := per_spp_shd.g_old_rec.information21;
781: End If;
782: If (p_rec.information22 = hr_api.g_varchar2) then
783: p_rec.information22 := per_spp_shd.g_old_rec.information22;
784: End If;
785: If (p_rec.information23 = hr_api.g_varchar2) then
786: p_rec.information23 := per_spp_shd.g_old_rec.information23;
781: End If;
782: If (p_rec.information22 = hr_api.g_varchar2) then
783: p_rec.information22 := per_spp_shd.g_old_rec.information22;
784: End If;
785: If (p_rec.information23 = hr_api.g_varchar2) then
786: p_rec.information23 := per_spp_shd.g_old_rec.information23;
787: End If;
788: If (p_rec.information24 = hr_api.g_varchar2) then
789: p_rec.information24 := per_spp_shd.g_old_rec.information24;
784: End If;
785: If (p_rec.information23 = hr_api.g_varchar2) then
786: p_rec.information23 := per_spp_shd.g_old_rec.information23;
787: End If;
788: If (p_rec.information24 = hr_api.g_varchar2) then
789: p_rec.information24 := per_spp_shd.g_old_rec.information24;
790: End If;
791: If (p_rec.information25 = hr_api.g_varchar2) then
792: p_rec.information25 := per_spp_shd.g_old_rec.information25;
787: End If;
788: If (p_rec.information24 = hr_api.g_varchar2) then
789: p_rec.information24 := per_spp_shd.g_old_rec.information24;
790: End If;
791: If (p_rec.information25 = hr_api.g_varchar2) then
792: p_rec.information25 := per_spp_shd.g_old_rec.information25;
793: End If;
794: If (p_rec.information26 = hr_api.g_varchar2) then
795: p_rec.information26 := per_spp_shd.g_old_rec.information26;
790: End If;
791: If (p_rec.information25 = hr_api.g_varchar2) then
792: p_rec.information25 := per_spp_shd.g_old_rec.information25;
793: End If;
794: If (p_rec.information26 = hr_api.g_varchar2) then
795: p_rec.information26 := per_spp_shd.g_old_rec.information26;
796: End If;
797: If (p_rec.information27 = hr_api.g_varchar2) then
798: p_rec.information27 := per_spp_shd.g_old_rec.information27;
793: End If;
794: If (p_rec.information26 = hr_api.g_varchar2) then
795: p_rec.information26 := per_spp_shd.g_old_rec.information26;
796: End If;
797: If (p_rec.information27 = hr_api.g_varchar2) then
798: p_rec.information27 := per_spp_shd.g_old_rec.information27;
799: End If;
800: If (p_rec.information28 = hr_api.g_varchar2) then
801: p_rec.information28 := per_spp_shd.g_old_rec.information28;
796: End If;
797: If (p_rec.information27 = hr_api.g_varchar2) then
798: p_rec.information27 := per_spp_shd.g_old_rec.information27;
799: End If;
800: If (p_rec.information28 = hr_api.g_varchar2) then
801: p_rec.information28 := per_spp_shd.g_old_rec.information28;
802: End If;
803: If (p_rec.information29 = hr_api.g_varchar2) then
804: p_rec.information29 := per_spp_shd.g_old_rec.information29;
799: End If;
800: If (p_rec.information28 = hr_api.g_varchar2) then
801: p_rec.information28 := per_spp_shd.g_old_rec.information28;
802: End If;
803: If (p_rec.information29 = hr_api.g_varchar2) then
804: p_rec.information29 := per_spp_shd.g_old_rec.information29;
805: End If;
806: If (p_rec.information30 = hr_api.g_varchar2) then
807: p_rec.information30 := per_spp_shd.g_old_rec.information30;
802: End If;
803: If (p_rec.information29 = hr_api.g_varchar2) then
804: p_rec.information29 := per_spp_shd.g_old_rec.information29;
805: End If;
806: If (p_rec.information30 = hr_api.g_varchar2) then
807: p_rec.information30 := per_spp_shd.g_old_rec.information30;
808: End If;
809: If (p_rec.information_category = hr_api.g_varchar2) then
810: p_rec.information_category := per_spp_shd.g_old_rec.information_category;
805: End If;
806: If (p_rec.information30 = hr_api.g_varchar2) then
807: p_rec.information30 := per_spp_shd.g_old_rec.information30;
808: End If;
809: If (p_rec.information_category = hr_api.g_varchar2) then
810: p_rec.information_category := per_spp_shd.g_old_rec.information_category;
811: End If;
812: --
813: End convert_defs;