111: --
112: hr_utility.set_location(' Leaving:'||l_proc, 10);
113: --
114: Exception
115: When hr_api.check_integrity_violated Then
116: -- A check constraint has been violated
117: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
118: per_pyp_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
115: When hr_api.check_integrity_violated Then
116: -- A check constraint has been violated
117: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
118: per_pyp_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.parent_integrity_violated Then
121: -- Parent integrity has been violated
122: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
123: per_pyp_shd.constraint_error
116: -- A check constraint has been violated
117: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
118: per_pyp_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.parent_integrity_violated Then
121: -- Parent integrity has been violated
122: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
123: per_pyp_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When hr_api.parent_integrity_violated Then
121: -- Parent integrity has been violated
122: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
123: per_pyp_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When hr_api.unique_integrity_violated Then
126: -- Unique integrity has been violated
127: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
128: per_pyp_shd.constraint_error
121: -- Parent integrity has been violated
122: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
123: per_pyp_shd.constraint_error
124: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When hr_api.unique_integrity_violated Then
126: -- Unique integrity has been violated
127: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
128: per_pyp_shd.constraint_error
129: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
125: When hr_api.unique_integrity_violated Then
126: -- Unique integrity has been violated
127: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
128: per_pyp_shd.constraint_error
129: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
130: When Others Then
131: per_pyp_shd.g_api_dml := false; -- Unset the api dml status
132: Raise;
133: End update_dml;
521: end if ;
522:
523:
524: exception
525: when hr_api.cannot_find_prog_unit then
526: hr_api.cannot_find_prog_unit_error
527: (p_module_name => 'PER_PAY_PROPOSALS'
528: ,p_hook_type => 'AU'
529: );
522:
523:
524: exception
525: when hr_api.cannot_find_prog_unit then
526: hr_api.cannot_find_prog_unit_error
527: (p_module_name => 'PER_PAY_PROPOSALS'
528: ,p_hook_type => 'AU'
529: );
530: end;
588: -- p_rec plsql record structure
589: -- to see if a system default is being used. If a system default
590: -- is being used then we must set to the 'current' argument value.
591: --
592: If (p_rec.assignment_id = hr_api.g_number) then
593: p_rec.assignment_id :=
594: per_pyp_shd.g_old_rec.assignment_id;
595: End If;
596: If (p_rec.business_group_id = hr_api.g_number) then
592: If (p_rec.assignment_id = hr_api.g_number) then
593: p_rec.assignment_id :=
594: per_pyp_shd.g_old_rec.assignment_id;
595: End If;
596: If (p_rec.business_group_id = hr_api.g_number) then
597: p_rec.business_group_id :=
598: per_pyp_shd.g_old_rec.business_group_id;
599: End If;
600: If (p_rec.change_date = hr_api.g_date) then
596: If (p_rec.business_group_id = hr_api.g_number) then
597: p_rec.business_group_id :=
598: per_pyp_shd.g_old_rec.business_group_id;
599: End If;
600: If (p_rec.change_date = hr_api.g_date) then
601: p_rec.change_date :=
602: per_pyp_shd.g_old_rec.change_date;
603: End If;
604: If (p_rec.comments = hr_api.g_varchar2) then
600: If (p_rec.change_date = hr_api.g_date) then
601: p_rec.change_date :=
602: per_pyp_shd.g_old_rec.change_date;
603: End If;
604: If (p_rec.comments = hr_api.g_varchar2) then
605: p_rec.comments :=
606: per_pyp_shd.g_old_rec.comments;
607: End If;
608: If (p_rec.last_change_date = hr_api.g_date) then
604: If (p_rec.comments = hr_api.g_varchar2) then
605: p_rec.comments :=
606: per_pyp_shd.g_old_rec.comments;
607: End If;
608: If (p_rec.last_change_date = hr_api.g_date) then
609: p_rec.last_change_date :=
610: per_pyp_shd.g_old_rec.last_change_date;
611: End If;
612: If (p_rec.next_sal_review_date = hr_api.g_date) then
608: If (p_rec.last_change_date = hr_api.g_date) then
609: p_rec.last_change_date :=
610: per_pyp_shd.g_old_rec.last_change_date;
611: End If;
612: If (p_rec.next_sal_review_date = hr_api.g_date) then
613: p_rec.next_sal_review_date :=
614: per_pyp_shd.g_old_rec.next_sal_review_date;
615: End If;
616: If (p_rec.proposal_reason = hr_api.g_varchar2) then
612: If (p_rec.next_sal_review_date = hr_api.g_date) then
613: p_rec.next_sal_review_date :=
614: per_pyp_shd.g_old_rec.next_sal_review_date;
615: End If;
616: If (p_rec.proposal_reason = hr_api.g_varchar2) then
617: p_rec.proposal_reason :=
618: per_pyp_shd.g_old_rec.proposal_reason;
619: End If;
620: If (p_rec.proposed_salary_n = hr_api.g_number) then
616: If (p_rec.proposal_reason = hr_api.g_varchar2) then
617: p_rec.proposal_reason :=
618: per_pyp_shd.g_old_rec.proposal_reason;
619: End If;
620: If (p_rec.proposed_salary_n = hr_api.g_number) then
621: p_rec.proposed_salary_n :=
622: per_pyp_shd.g_old_rec.proposed_salary_n;
623: End If;
624: If (p_rec.forced_ranking = hr_api.g_number) then
620: If (p_rec.proposed_salary_n = hr_api.g_number) then
621: p_rec.proposed_salary_n :=
622: per_pyp_shd.g_old_rec.proposed_salary_n;
623: End If;
624: If (p_rec.forced_ranking = hr_api.g_number) then
625: p_rec.forced_ranking :=
626: per_pyp_shd.g_old_rec.forced_ranking;
627: End If;
628: If (p_rec.date_to = hr_api.g_date) then
624: If (p_rec.forced_ranking = hr_api.g_number) then
625: p_rec.forced_ranking :=
626: per_pyp_shd.g_old_rec.forced_ranking;
627: End If;
628: If (p_rec.date_to = hr_api.g_date) then
629: p_rec.date_to :=
630: per_pyp_shd.g_old_rec.date_to;
631: End If;
632: If (p_rec.performance_review_id = hr_api.g_number) then
628: If (p_rec.date_to = hr_api.g_date) then
629: p_rec.date_to :=
630: per_pyp_shd.g_old_rec.date_to;
631: End If;
632: If (p_rec.performance_review_id = hr_api.g_number) then
633: p_rec.performance_review_id :=
634: per_pyp_shd.g_old_rec.performance_review_id;
635: End If;
636: If (p_rec.attribute_category = hr_api.g_varchar2) then
632: If (p_rec.performance_review_id = hr_api.g_number) then
633: p_rec.performance_review_id :=
634: per_pyp_shd.g_old_rec.performance_review_id;
635: End If;
636: If (p_rec.attribute_category = hr_api.g_varchar2) then
637: p_rec.attribute_category :=
638: per_pyp_shd.g_old_rec.attribute_category;
639: End If;
640: If (p_rec.attribute1 = hr_api.g_varchar2) then
636: If (p_rec.attribute_category = hr_api.g_varchar2) then
637: p_rec.attribute_category :=
638: per_pyp_shd.g_old_rec.attribute_category;
639: End If;
640: If (p_rec.attribute1 = hr_api.g_varchar2) then
641: p_rec.attribute1 :=
642: per_pyp_shd.g_old_rec.attribute1;
643: End If;
644: If (p_rec.attribute2 = hr_api.g_varchar2) then
640: If (p_rec.attribute1 = hr_api.g_varchar2) then
641: p_rec.attribute1 :=
642: per_pyp_shd.g_old_rec.attribute1;
643: End If;
644: If (p_rec.attribute2 = hr_api.g_varchar2) then
645: p_rec.attribute2 :=
646: per_pyp_shd.g_old_rec.attribute2;
647: End If;
648: If (p_rec.attribute3 = hr_api.g_varchar2) then
644: If (p_rec.attribute2 = hr_api.g_varchar2) then
645: p_rec.attribute2 :=
646: per_pyp_shd.g_old_rec.attribute2;
647: End If;
648: If (p_rec.attribute3 = hr_api.g_varchar2) then
649: p_rec.attribute3 :=
650: per_pyp_shd.g_old_rec.attribute3;
651: End If;
652: If (p_rec.attribute4 = hr_api.g_varchar2) then
648: If (p_rec.attribute3 = hr_api.g_varchar2) then
649: p_rec.attribute3 :=
650: per_pyp_shd.g_old_rec.attribute3;
651: End If;
652: If (p_rec.attribute4 = hr_api.g_varchar2) then
653: p_rec.attribute4 :=
654: per_pyp_shd.g_old_rec.attribute4;
655: End If;
656: If (p_rec.attribute5 = hr_api.g_varchar2) then
652: If (p_rec.attribute4 = hr_api.g_varchar2) then
653: p_rec.attribute4 :=
654: per_pyp_shd.g_old_rec.attribute4;
655: End If;
656: If (p_rec.attribute5 = hr_api.g_varchar2) then
657: p_rec.attribute5 :=
658: per_pyp_shd.g_old_rec.attribute5;
659: End If;
660: If (p_rec.attribute6 = hr_api.g_varchar2) then
656: If (p_rec.attribute5 = hr_api.g_varchar2) then
657: p_rec.attribute5 :=
658: per_pyp_shd.g_old_rec.attribute5;
659: End If;
660: If (p_rec.attribute6 = hr_api.g_varchar2) then
661: p_rec.attribute6 :=
662: per_pyp_shd.g_old_rec.attribute6;
663: End If;
664: If (p_rec.attribute7 = hr_api.g_varchar2) then
660: If (p_rec.attribute6 = hr_api.g_varchar2) then
661: p_rec.attribute6 :=
662: per_pyp_shd.g_old_rec.attribute6;
663: End If;
664: If (p_rec.attribute7 = hr_api.g_varchar2) then
665: p_rec.attribute7 :=
666: per_pyp_shd.g_old_rec.attribute7;
667: End If;
668: If (p_rec.attribute8 = hr_api.g_varchar2) then
664: If (p_rec.attribute7 = hr_api.g_varchar2) then
665: p_rec.attribute7 :=
666: per_pyp_shd.g_old_rec.attribute7;
667: End If;
668: If (p_rec.attribute8 = hr_api.g_varchar2) then
669: p_rec.attribute8 :=
670: per_pyp_shd.g_old_rec.attribute8;
671: End If;
672: If (p_rec.attribute9 = hr_api.g_varchar2) then
668: If (p_rec.attribute8 = hr_api.g_varchar2) then
669: p_rec.attribute8 :=
670: per_pyp_shd.g_old_rec.attribute8;
671: End If;
672: If (p_rec.attribute9 = hr_api.g_varchar2) then
673: p_rec.attribute9 :=
674: per_pyp_shd.g_old_rec.attribute9;
675: End If;
676: If (p_rec.attribute10 = hr_api.g_varchar2) then
672: If (p_rec.attribute9 = hr_api.g_varchar2) then
673: p_rec.attribute9 :=
674: per_pyp_shd.g_old_rec.attribute9;
675: End If;
676: If (p_rec.attribute10 = hr_api.g_varchar2) then
677: p_rec.attribute10 :=
678: per_pyp_shd.g_old_rec.attribute10;
679: End If;
680: If (p_rec.attribute11 = hr_api.g_varchar2) then
676: If (p_rec.attribute10 = hr_api.g_varchar2) then
677: p_rec.attribute10 :=
678: per_pyp_shd.g_old_rec.attribute10;
679: End If;
680: If (p_rec.attribute11 = hr_api.g_varchar2) then
681: p_rec.attribute11 :=
682: per_pyp_shd.g_old_rec.attribute11;
683: eND iF;
684: If (p_rec.attribute12 = hr_api.g_varchar2) then
680: If (p_rec.attribute11 = hr_api.g_varchar2) then
681: p_rec.attribute11 :=
682: per_pyp_shd.g_old_rec.attribute11;
683: eND iF;
684: If (p_rec.attribute12 = hr_api.g_varchar2) then
685: p_rec.attribute12 :=
686: per_pyp_shd.g_old_rec.attribute12;
687: End If;
688: If (p_rec.attribute13 = hr_api.g_varchar2) then
684: If (p_rec.attribute12 = hr_api.g_varchar2) then
685: p_rec.attribute12 :=
686: per_pyp_shd.g_old_rec.attribute12;
687: End If;
688: If (p_rec.attribute13 = hr_api.g_varchar2) then
689: p_rec.attribute13 :=
690: per_pyp_shd.g_old_rec.attribute13;
691: End If;
692: If (p_rec.attribute14 = hr_api.g_varchar2) then
688: If (p_rec.attribute13 = hr_api.g_varchar2) then
689: p_rec.attribute13 :=
690: per_pyp_shd.g_old_rec.attribute13;
691: End If;
692: If (p_rec.attribute14 = hr_api.g_varchar2) then
693: p_rec.attribute14 :=
694: per_pyp_shd.g_old_rec.attribute14;
695: End If;
696: If (p_rec.attribute15 = hr_api.g_varchar2) then
692: If (p_rec.attribute14 = hr_api.g_varchar2) then
693: p_rec.attribute14 :=
694: per_pyp_shd.g_old_rec.attribute14;
695: End If;
696: If (p_rec.attribute15 = hr_api.g_varchar2) then
697: p_rec.attribute15 :=
698: per_pyp_shd.g_old_rec.attribute15;
699: End If;
700: If (p_rec.attribute16 = hr_api.g_varchar2) then
696: If (p_rec.attribute15 = hr_api.g_varchar2) then
697: p_rec.attribute15 :=
698: per_pyp_shd.g_old_rec.attribute15;
699: End If;
700: If (p_rec.attribute16 = hr_api.g_varchar2) then
701: p_rec.attribute16 :=
702: per_pyp_shd.g_old_rec.attribute16;
703: End If;
704: If (p_rec.attribute17 = hr_api.g_varchar2) then
700: If (p_rec.attribute16 = hr_api.g_varchar2) then
701: p_rec.attribute16 :=
702: per_pyp_shd.g_old_rec.attribute16;
703: End If;
704: If (p_rec.attribute17 = hr_api.g_varchar2) then
705: p_rec.attribute17 :=
706: per_pyp_shd.g_old_rec.attribute17;
707: End If;
708: If (p_rec.attribute18 = hr_api.g_varchar2) then
704: If (p_rec.attribute17 = hr_api.g_varchar2) then
705: p_rec.attribute17 :=
706: per_pyp_shd.g_old_rec.attribute17;
707: End If;
708: If (p_rec.attribute18 = hr_api.g_varchar2) then
709: p_rec.attribute18 :=
710: per_pyp_shd.g_old_rec.attribute18;
711: End If;
712: If (p_rec.attribute19 = hr_api.g_varchar2) then
708: If (p_rec.attribute18 = hr_api.g_varchar2) then
709: p_rec.attribute18 :=
710: per_pyp_shd.g_old_rec.attribute18;
711: End If;
712: If (p_rec.attribute19 = hr_api.g_varchar2) then
713: p_rec.attribute19 :=
714: per_pyp_shd.g_old_rec.attribute19;
715: End If;
716: If (p_rec.attribute20 = hr_api.g_varchar2) then
712: If (p_rec.attribute19 = hr_api.g_varchar2) then
713: p_rec.attribute19 :=
714: per_pyp_shd.g_old_rec.attribute19;
715: End If;
716: If (p_rec.attribute20 = hr_api.g_varchar2) then
717: p_rec.attribute20 :=
718: per_pyp_shd.g_old_rec.attribute20;
719: End If;
720: If (p_rec.multiple_components = hr_api.g_varchar2) then
716: If (p_rec.attribute20 = hr_api.g_varchar2) then
717: p_rec.attribute20 :=
718: per_pyp_shd.g_old_rec.attribute20;
719: End If;
720: If (p_rec.multiple_components = hr_api.g_varchar2) then
721: p_rec.multiple_components :=
722: per_pyp_shd.g_old_rec.multiple_components;
723: End If;
724: If (p_rec.approved = hr_api.g_varchar2) then
720: If (p_rec.multiple_components = hr_api.g_varchar2) then
721: p_rec.multiple_components :=
722: per_pyp_shd.g_old_rec.multiple_components;
723: End If;
724: If (p_rec.approved = hr_api.g_varchar2) then
725: p_rec.approved :=
726: per_pyp_shd.g_old_rec.approved;
727: End If;
728: --
810: --
811: -- If we are validating then raise the Validate_Enabled exception
812: --
813: If p_validate then
814: Raise HR_Api.Validate_Enabled;
815: End If;
816: --
817: hr_utility.set_location(' Leaving:'||l_proc, 10);
818: Exception
815: End If;
816: --
817: hr_utility.set_location(' Leaving:'||l_proc, 10);
818: Exception
819: When HR_Api.Validate_Enabled Then
820: --
821: -- As the Validate_Enabled exception has been raised
822: -- we must rollback to the savepoint
823: --
883: l_rec :=
884: per_pyp_shd.convert_args
885: (
886: p_pay_proposal_id,
887: hr_api.g_number,
888: hr_api.g_number,
889: p_change_date,
890: p_comments,
891: hr_api.g_date,
884: per_pyp_shd.convert_args
885: (
886: p_pay_proposal_id,
887: hr_api.g_number,
888: hr_api.g_number,
889: p_change_date,
890: p_comments,
891: hr_api.g_date,
892: p_next_sal_review_date,
887: hr_api.g_number,
888: hr_api.g_number,
889: p_change_date,
890: p_comments,
891: hr_api.g_date,
892: p_next_sal_review_date,
893: p_proposal_reason,
894: p_proposed_salary_n,
895: p_forced_ranking,