[Home] [Help]
6: -- ----------------------------------------------------------------------------
7: --
8: --
9: g_package varchar2(33) := ' per_per_bus.'; -- Global package name
10: g_debug boolean := hr_utility.debug_enabled;
11: --
12: -- The following two global variables are only to be used by the
13: -- return_legislation_code function.
14: --
46: l_proc varchar2(72) := g_package||'set_security_group_id';
47: --
48: begin
49: if g_debug then
50: hr_utility.set_location('Entering:'|| l_proc, 10);
51: end if;
52: --
53: -- Ensure that all the mandatory parameter are not null
54: --
62: close csr_sec_grp;
63: --
64: -- The primary key is invalid therefore we must error
65: --
66: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
67: hr_multi_message.add(p_associated_column1 =>
68: nvl(p_associated_column1,'PERSON_ID'));
69: else
70: close csr_sec_grp;
80: hr_api.set_legislation_context(l_legislation_code);
81: --
82: end if;
83: if g_debug then
84: hr_utility.set_location(' Leaving:'|| l_proc, 20);
85: end if;
86: --
87: end set_security_group_id;
88: -- ---------------------------------------------------------------------------
128: and p_business_group_id = pet.business_group_id + 0;
129: --
130: begin
131: if g_debug then
132: hr_utility.set_location('Entering:'|| l_proc, 1);
133: end if;
134: --
135: -- Check mandatory parameters have been set
136: --
159: fetch csr_chk_person_type into g_previous_sys_per_type;
160: If csr_chk_person_type%found then
161: close csr_chk_person_type;
162: if g_debug then
163: hr_utility.set_location(l_proc, 3);
164: end if;
165: else
166: --
167: if g_debug then
164: end if;
165: else
166: --
167: if g_debug then
168: hr_utility.set_location(l_proc, 4);
169: end if;
170: --
171: close csr_chk_person_type;
172: -- Error: Invalid person type
169: end if;
170: --
171: close csr_chk_person_type;
172: -- Error: Invalid person type
173: hr_utility.set_message(801,'HR_7513_PER_TYPE_INVALID');
174: hr_utility.raise_error;
175: end if;
176: end if;
177: if g_debug then
170: --
171: close csr_chk_person_type;
172: -- Error: Invalid person type
173: hr_utility.set_message(801,'HR_7513_PER_TYPE_INVALID');
174: hr_utility.raise_error;
175: end if;
176: end if;
177: if g_debug then
178: hr_utility.set_location(' Leaving '||l_proc, 5);
174: hr_utility.raise_error;
175: end if;
176: end if;
177: if g_debug then
178: hr_utility.set_location(' Leaving '||l_proc, 5);
179: end if;
180: return g_previous_sys_per_type;
181: exception
182: when app_exception.application_exception then
183: if hr_multi_message.exception_add
184: (p_associated_column1 => 'PER_ALL_PEOPLE_F.PERSON_TYPE_ID'
185: ) then
186: if g_debug then
187: hr_utility.set_location(' Leaving:'||l_proc, 6);
188: end if;
189: raise;
190: end if;
191: if g_debug then
188: end if;
189: raise;
190: end if;
191: if g_debug then
192: hr_utility.set_location(' Leaving:'||l_proc,7);
193: end if;
194: -- call to stop proceeding further if there is an error in
195: -- system person type
196: --
263: l_system_person_type varchar2(30);
264: --
265: begin
266: if g_debug then
267: hr_utility.set_location('Entering:'|| l_proc, 1);
268: end if;
269: --
270: -- Check mandatory parameters have been set
271: --
301: <> p_person_type_id) or
302: (NOT l_api_updating)) then
303: --
304: if g_debug then
305: hr_utility.set_location(l_proc, 2);
306: end if;
307: --
308: -- Populate l_system_person_type with the value of system person type
309: --
310: l_system_person_type := return_system_person_type(p_person_type_id
311: ,p_business_group_id);
312: --
313: if g_debug then
314: hr_utility.set_location(l_proc, 3);
315: end if;
316: --
317: -- Check if the person is an employee
318: --
318: --
319: if l_system_person_type in ('EMP','EMP_APL') then
320: --
321: if g_debug then
322: hr_utility.set_location(l_proc, 4);
323: end if;
324: --
325: -- Person is an employee so set current employee flag to 'Y'
326: --
327: p_current_employee_flag := 'Y';
328: else
329: --
330: if g_debug then
331: hr_utility.set_location(l_proc, 5);
332: end if;
333: --
334: -- Person is not an employee so set to null
335: --
340: --
341: if l_system_person_type in ('APL','APL_EX_APL','EMP_APL','EX_EMP_APL') then
342: --
343: if g_debug then
344: hr_utility.set_location(l_proc, 6);
345: end if;
346: --
347: -- Person is an applicant so set current applicant flag to 'Y'
348: --
349: p_current_applicant_flag := 'Y';
350: else
351: --
352: if g_debug then
353: hr_utility.set_location(l_proc, 7);
354: end if;
355: --
356: -- Person is not an applicant so set to null
357: --
363: if l_system_person_type in ('EMP','APL','EMP_APL','EX_EMP_APL','APL_EX_APL')
364: then
365: --
366: if g_debug then
367: hr_utility.set_location(l_proc, 8);
368: end if;
369: --
370: -- Person is an employee or applicant so set current emp or apl flag
371: -- to 'Y'
375: --
376: -- Person is not an employee or applicant so set to null
377: --
378: if g_debug then
379: hr_utility.set_location(l_proc, 9);
380: end if;
381: --
382: p_current_emp_or_apl_flag := null;
383: --
382: p_current_emp_or_apl_flag := null;
383: --
384: end if;
385: if g_debug then
386: hr_utility.set_location(l_proc, 10);
387: end if;
388: else
389: if g_debug then
390: hr_utility.set_location(l_proc, 11);
386: hr_utility.set_location(l_proc, 10);
387: end if;
388: else
389: if g_debug then
390: hr_utility.set_location(l_proc, 11);
391: end if;
392: --
393: p_current_employee_flag := per_per_shd.g_old_rec.current_employee_flag;
394: p_current_applicant_flag := per_per_shd.g_old_rec.current_applicant_flag;
394: p_current_applicant_flag := per_per_shd.g_old_rec.current_applicant_flag;
395: p_current_emp_or_apl_flag := per_per_shd.g_old_rec.current_emp_or_apl_flag;
396: end if;
397: if g_debug then
398: hr_utility.set_location(' Leaving:'|| l_proc, 12);
399: end if;
400: end set_current_flags;
401: --
402: -- ---------------------------------------------------------------------------
517: */
518: --
519: begin
520: if g_debug then
521: hr_utility.set_location('Entering:'|| l_proc, 1);
522: end if;
523: --
524: -- Check mandatory parameters have been set
525: --
548: --
549: if p_datetrack_mode = 'UPDATE_OVERRIDE' then
550: --
551: if g_debug then
552: hr_utility.set_location(l_proc, 5);
553: end if;
554: --
555: per_per_bus.chk_system_pers_type
556: (p_person_id => p_person_id
587: l_active_flag;
588: if csr_person_type%notfound then
589: close csr_person_type;
590: -- Error: Invalid person type
591: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
592: hr_utility.raise_error;
593: end if;
594: close csr_person_type;
595: if l_business_group_id <> p_business_group_id then
588: if csr_person_type%notfound then
589: close csr_person_type;
590: -- Error: Invalid person type
591: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
592: hr_utility.raise_error;
593: end if;
594: close csr_person_type;
595: if l_business_group_id <> p_business_group_id then
596: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
592: hr_utility.raise_error;
593: end if;
594: close csr_person_type;
595: if l_business_group_id <> p_business_group_id then
596: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
597: hr_utility.raise_error;
598: elsif l_active_flag <> 'Y' then
599: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
600: hr_utility.raise_error;
593: end if;
594: close csr_person_type;
595: if l_business_group_id <> p_business_group_id then
596: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
597: hr_utility.raise_error;
598: elsif l_active_flag <> 'Y' then
599: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
600: hr_utility.raise_error;
601: end if;
595: if l_business_group_id <> p_business_group_id then
596: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
597: hr_utility.raise_error;
598: elsif l_active_flag <> 'Y' then
599: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
600: hr_utility.raise_error;
601: end if;
602: --
603: if g_debug then
596: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
597: hr_utility.raise_error;
598: elsif l_active_flag <> 'Y' then
599: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
600: hr_utility.raise_error;
601: end if;
602: --
603: if g_debug then
604: hr_utility.set_location(l_proc, 7);
600: hr_utility.raise_error;
601: end if;
602: --
603: if g_debug then
604: hr_utility.set_location(l_proc, 7);
605: end if;
606: --
607: -- If a new person is being inserted, then check that the system person
608: -- type is of a permitted value.
608: -- type is of a permitted value.
609: --
610: if p_datetrack_mode = 'INSERT' then
611: if l_new_system_person_type not in ('EMP', 'APL', 'OTHER') then
612: hr_utility.set_message(801, 'HR_7977_PER_INV_TYPE_FOR_INS');
613: hr_utility.raise_error;
614: end if;
615: end if;
616: --
609: --
610: if p_datetrack_mode = 'INSERT' then
611: if l_new_system_person_type not in ('EMP', 'APL', 'OTHER') then
612: hr_utility.set_message(801, 'HR_7977_PER_INV_TYPE_FOR_INS');
613: hr_utility.raise_error;
614: end if;
615: end if;
616: --
617: -- Only proceed with validation if:
632: l_discard_number,
633: l_discard_varchar2;
634: close csr_person_type;
635: if g_debug then
636: hr_utility.set_location(l_proc, 9);
637: end if;
638: --
639: -- Check if DateTrack mode is valid
640: --
648: if (p_datetrack_mode = 'UPDATE_CHANGE_INSERT')
649: then
650: if not (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y')
651: then
652: hr_utility.set_message(801, 'HR_7724_PER_DT_MODE_SPT_CHANGE');
653: hr_utility.raise_error;
654: end if;
655: end if;
656: --
649: then
650: if not (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y')
651: then
652: hr_utility.set_message(801, 'HR_7724_PER_DT_MODE_SPT_CHANGE');
653: hr_utility.raise_error;
654: end if;
655: end if;
656: --
657: -- DateTrack mode CORRECTION is allowed, provided the system person
664: fetch csr_system_type
665: into l_original_sys_type;
666: if csr_system_type%notfound then
667: close csr_system_type;
668: hr_utility.set_message(801, 'HR_7984_PER_NO_PREVIOUS_ROW');
669: hr_utility.raise_error;
670: end if;
671: close csr_system_type;
672: if l_original_sys_type <> l_old_system_person_type then
665: into l_original_sys_type;
666: if csr_system_type%notfound then
667: close csr_system_type;
668: hr_utility.set_message(801, 'HR_7984_PER_NO_PREVIOUS_ROW');
669: hr_utility.raise_error;
670: end if;
671: close csr_system_type;
672: if l_original_sys_type <> l_old_system_person_type then
673: hr_utility.set_message(801, 'HR_7978_PER_TYPE_CHANGE');
669: hr_utility.raise_error;
670: end if;
671: close csr_system_type;
672: if l_original_sys_type <> l_old_system_person_type then
673: hr_utility.set_message(801, 'HR_7978_PER_TYPE_CHANGE');
674: hr_utility.raise_error;
675: end if;
676: end if;
677: */
670: end if;
671: close csr_system_type;
672: if l_original_sys_type <> l_old_system_person_type then
673: hr_utility.set_message(801, 'HR_7978_PER_TYPE_CHANGE');
674: hr_utility.raise_error;
675: end if;
676: end if;
677: */
678: end if;
676: end if;
677: */
678: end if;
679: if g_debug then
680: hr_utility.set_location(l_proc, 11);
681: end if;
682: --
683: -- Check that the system person type conversion is valid.
684: --
698: l_new_system_person_type not in ('EMP', 'EX_EMP_APL', 'EX_EMP'))
699: or (l_old_system_person_type = 'EX_EMP_APL' and
700: l_new_system_person_type not in ('EMP_APL', 'EMP', 'EX_EMP_APL','EX_EMP'))
701: then
702: hr_utility.set_message(801, 'HR_7987_PER_INV_TYPE_CHANGE');
703: hr_utility.raise_error;
704: else
705: if g_debug then
706: hr_utility.set_location(l_proc, 12);
699: or (l_old_system_person_type = 'EX_EMP_APL' and
700: l_new_system_person_type not in ('EMP_APL', 'EMP', 'EX_EMP_APL','EX_EMP'))
701: then
702: hr_utility.set_message(801, 'HR_7987_PER_INV_TYPE_CHANGE');
703: hr_utility.raise_error;
704: else
705: if g_debug then
706: hr_utility.set_location(l_proc, 12);
707: end if;
702: hr_utility.set_message(801, 'HR_7987_PER_INV_TYPE_CHANGE');
703: hr_utility.raise_error;
704: else
705: if g_debug then
706: hr_utility.set_location(l_proc, 12);
707: end if;
708: --
709: set_current_flags(p_person_id
710: ,p_business_group_id
721: end if;
722: end if;
723: end if;
724: if g_debug then
725: hr_utility.set_location(' Leaving:'|| l_proc, 13);
726: end if;
727: exception
728: when app_exception.application_exception then
729: if hr_multi_message.exception_add
729: if hr_multi_message.exception_add
730: (p_associated_column1 => 'PER_ALL_PEOPLE_F.PERSON_TYPE_ID'
731: ) then
732: if g_debug then
733: hr_utility.set_location(' Leaving:'||l_proc, 14);
734: end if;
735: raise;
736: end if;
737: if g_debug then
734: end if;
735: raise;
736: end if;
737: if g_debug then
738: hr_utility.set_location(' Leaving:'||l_proc,15);
739: end if;
740: hr_multi_message.end_validation_set;
741: end chk_person_type_id;
742: --
824: and asg.payroll_id is not null;
825: --
826: begin
827: if g_debug then
828: hr_utility.set_location('Entering:'|| l_proc, 1);
829: end if;
830: --
831: -- Check mandatory parameters have been set
832: --
880: hr_api.g_date)
881: <> nvl(p_date_of_birth,hr_api.g_date)) or
882: (NOT l_api_updating)) then
883: if g_debug then
884: hr_utility.set_location(l_proc, 2);
885: end if;
886: --
887: -- Perform Insert/Update checks
888: --
890: --
891: if p_date_of_birth is not null then
892: if p_date_of_birth > p_start_date then
893: -- Error: The Date of Birth is greater than the start date
894: hr_utility.set_message(801, 'HR_6523_PERSON_DOB_GT_START');
895: l_dob_st := true;
896: hr_utility.raise_error;
897: end if;
898: end if;
892: if p_date_of_birth > p_start_date then
893: -- Error: The Date of Birth is greater than the start date
894: hr_utility.set_message(801, 'HR_6523_PERSON_DOB_GT_START');
895: l_dob_st := true;
896: hr_utility.raise_error;
897: end if;
898: end if;
899: if g_debug then
900: hr_utility.set_location(l_proc, 3);
896: hr_utility.raise_error;
897: end if;
898: end if;
899: if g_debug then
900: hr_utility.set_location(l_proc, 3);
901: end if;
902: --
903: -- Calculate persons age
904: --
902: --
903: -- Calculate persons age
904: --
905: if g_debug then
906: hr_utility.set_location(p_effective_date,10);
907: end if;
908: if g_debug then
909: hr_utility.set_location(p_date_of_birth,10);
910: end if;
905: if g_debug then
906: hr_utility.set_location(p_effective_date,10);
907: end if;
908: if g_debug then
909: hr_utility.set_location(p_date_of_birth,10);
910: end if;
911: l_age := trunc(months_between(p_effective_date,p_date_of_birth)/12);
912: --
913: -- Find the minimum and maximum ages allowed for the business group
916: ,l_minimum_age
917: ,l_maximum_age);
918: --
919: if g_debug then
920: hr_utility.set_location(l_proc, 4);
921: end if;
922: --
923: -- Check that the persons age is between the minimum and maximum allowed
924: -- for the business group.
931: if l_age not between nvl(l_minimum_age,l_age) and
932: nvl(l_maximum_age,l_age) and
933: ( l_system_person_type <> 'OTHER' and l_system_person_type <>'%APL') then
934: -- Error: Employees age must be between 'min' and 'max'
935: hr_utility.set_message(801, 'HR_7426_EMP_AGE_ILLEGAL');
936: hr_utility.set_message_token('MIN',to_char(l_minimum_age));
937: hr_utility.set_message_token('MAX',to_char(l_maximum_age));
938: hr_utility.raise_error;
939: end if;
932: nvl(l_maximum_age,l_age) and
933: ( l_system_person_type <> 'OTHER' and l_system_person_type <>'%APL') then
934: -- Error: Employees age must be between 'min' and 'max'
935: hr_utility.set_message(801, 'HR_7426_EMP_AGE_ILLEGAL');
936: hr_utility.set_message_token('MIN',to_char(l_minimum_age));
937: hr_utility.set_message_token('MAX',to_char(l_maximum_age));
938: hr_utility.raise_error;
939: end if;
940: --
933: ( l_system_person_type <> 'OTHER' and l_system_person_type <>'%APL') then
934: -- Error: Employees age must be between 'min' and 'max'
935: hr_utility.set_message(801, 'HR_7426_EMP_AGE_ILLEGAL');
936: hr_utility.set_message_token('MIN',to_char(l_minimum_age));
937: hr_utility.set_message_token('MAX',to_char(l_maximum_age));
938: hr_utility.raise_error;
939: end if;
940: --
941: --Bug# 2273304 End Here
934: -- Error: Employees age must be between 'min' and 'max'
935: hr_utility.set_message(801, 'HR_7426_EMP_AGE_ILLEGAL');
936: hr_utility.set_message_token('MIN',to_char(l_minimum_age));
937: hr_utility.set_message_token('MAX',to_char(l_maximum_age));
938: hr_utility.raise_error;
939: end if;
940: --
941: --Bug# 2273304 End Here
942: --
948: --
949: -- Perform Insert check
950: --
951: if g_debug then
952: hr_utility.set_location(l_proc, 5);
953: end if;
954: --
955: end if;
956: --
961: and return_system_person_type(p_person_type_id, p_business_group_id) in
962: ('EMP','EX_EMP','EMP_APL','EX_EMP_APL')
963: and p_date_of_birth is null then
964: if g_debug then
965: hr_utility.set_location(l_proc, 6);
966: end if;
967: open csr_asg;
968: fetch csr_asg into l_exists;
969: if csr_asg%notfound then
969: if csr_asg%notfound then
970: close csr_asg;
971: p_dob_null_warning := TRUE;
972: if g_debug then
973: hr_utility.set_location(l_proc, 7);
974: end if;
975: else
976: close csr_asg;
977: hr_utility.set_message(801, 'HR_7950_PPM_NULL_DOB');
973: hr_utility.set_location(l_proc, 7);
974: end if;
975: else
976: close csr_asg;
977: hr_utility.set_message(801, 'HR_7950_PPM_NULL_DOB');
978: hr_utility.raise_error;
979: end if;
980: end if;
981: End if;
974: end if;
975: else
976: close csr_asg;
977: hr_utility.set_message(801, 'HR_7950_PPM_NULL_DOB');
978: hr_utility.raise_error;
979: end if;
980: end if;
981: End if;
982: -- Raise warning if date of birth is null and system person type is 'EMP'
987: p_dob_null_warning := TRUE;
988: end if;
989: end if;
990: if g_debug then
991: hr_utility.set_location(' Leaving:'|| l_proc, 8);
992: end if;
993: exception
994: when app_exception.application_exception then
995: If not l_dob_st then
996: if hr_multi_message.exception_add
997: (p_associated_column1 => 'PER_ALL_PEOPLE_F.DATE_OF_BIRTH'
998: ) then
999: if g_debug then
1000: hr_utility.set_location(' Leaving:'||l_proc, 9);
1001: end if;
1002: raise;
1003: end if;
1004: Else
1006: (p_associated_column1 => 'PER_ALL_PEOPLE_F.DATE_OF_BIRTH'
1007: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.START_DATE'
1008: ) then
1009: if g_debug then
1010: hr_utility.set_location(' Leaving:'||l_proc, 10);
1011: end if;
1012: raise;
1013: end if;
1014: End if;
1012: raise;
1013: end if;
1014: End if;
1015: if g_debug then
1016: hr_utility.set_location(' Leaving:'||l_proc,11);
1017: end if;
1018: end chk_date_of_birth;
1019: --
1020: -- ---------------------------------------------------------------------------
1070: l_api_updating boolean;
1071: --
1072: begin
1073: if g_debug then
1074: hr_utility.set_location('Entering:'|| l_proc, 10);
1075: end if;
1076: --
1077: -- Check mandatory parameters have been set
1078: --
1093: ,p_argument => 'validation_end_date'
1094: ,p_argument_value => p_validation_end_date
1095: );
1096: if g_debug then
1097: hr_utility.set_location(l_proc, 20);
1098: end if;
1099: --
1100: -- Only proceed with validation if:
1101: -- a) The current g_old_rec is current and
1113: or
1114: (NOT l_api_updating))
1115: then
1116: if g_debug then
1117: hr_utility.set_location(l_proc, 40);
1118: end if;
1119: --
1120: -- Check if marital status is set
1121: --
1134: ,p_lookup_code => p_marital_status
1135: )
1136: then
1137: --
1138: hr_utility.set_message(801, 'HR_7518_PER_M_STATUS_INVALID');
1139: hr_utility.raise_error;
1140: --
1141: end if;
1142: end if;
1135: )
1136: then
1137: --
1138: hr_utility.set_message(801, 'HR_7518_PER_M_STATUS_INVALID');
1139: hr_utility.raise_error;
1140: --
1141: end if;
1142: end if;
1143: if g_debug then
1140: --
1141: end if;
1142: end if;
1143: if g_debug then
1144: hr_utility.set_location(l_proc, 60);
1145: end if;
1146: --
1147: end if;
1148: if g_debug then
1145: end if;
1146: --
1147: end if;
1148: if g_debug then
1149: hr_utility.set_location(' Leaving:'|| l_proc, 70);
1150: end if;
1151: exception
1152: when app_exception.application_exception then
1153: if hr_multi_message.exception_add
1153: if hr_multi_message.exception_add
1154: (p_associated_column1 => 'PER_ALL_PEOPLE_F.MARITAL_STATUS'
1155: ) then
1156: if g_debug then
1157: hr_utility.set_location(' Leaving:'||l_proc, 80);
1158: end if;
1159: raise;
1160: end if;
1161: if g_debug then
1158: end if;
1159: raise;
1160: end if;
1161: if g_debug then
1162: hr_utility.set_location(' Leaving:'||l_proc,90);
1163: end if;
1164: end chk_marital_status;
1165: --
1166: -- ---------------------------------------------------------------------------
1208: where party_id = p_party_id;
1209: --
1210: begin
1211: if g_debug then
1212: hr_utility.set_location('Entering:'|| l_proc, 10);
1213: end if;
1214: --
1215: -- Check mandatory parameters have been set
1216: --
1220: ,p_argument_value => p_effective_date
1221: );
1222: --
1223: if g_debug then
1224: hr_utility.set_location(l_proc, 20);
1225: end if;
1226: --
1227: -- Only proceed with validation if:
1228: -- a) The current g_old_rec is current and
1240: or
1241: (NOT l_api_updating))
1242: then
1243: if g_debug then
1244: hr_utility.set_location(l_proc, 40);
1245: end if;
1246: --
1247: -- Check if party is set
1248: --
1254: fetch c1 into l_exists;
1255: if c1%notfound then
1256: --
1257: close c1;
1258: hr_utility.set_message(800, 'PER_289342_PARTY_ID_INVALID');
1259: hr_utility.raise_error;
1260: --
1261: end if;
1262: --
1255: if c1%notfound then
1256: --
1257: close c1;
1258: hr_utility.set_message(800, 'PER_289342_PARTY_ID_INVALID');
1259: hr_utility.raise_error;
1260: --
1261: end if;
1262: --
1263: close c1;
1264: --
1265: end if;
1266: --
1267: if g_debug then
1268: hr_utility.set_location(l_proc, 60);
1269: end if;
1270: --
1271: end if;
1272: if g_debug then
1269: end if;
1270: --
1271: end if;
1272: if g_debug then
1273: hr_utility.set_location(' Leaving:'|| l_proc, 70);
1274: end if;
1275: exception
1276: when app_exception.application_exception then
1277: if hr_multi_message.exception_add
1277: if hr_multi_message.exception_add
1278: (p_associated_column1 => 'PER_ALL_PEOPLE_F.PARTY_ID'
1279: ) then
1280: if g_debug then
1281: hr_utility.set_location(' Leaving:'||l_proc, 80);
1282: end if;
1283: raise;
1284: end if;
1285: if g_debug then
1282: end if;
1283: raise;
1284: end if;
1285: if g_debug then
1286: hr_utility.set_location(' Leaving:'||l_proc,90);
1287: end if;
1288: end chk_party_id;
1289: --
1290: -- ---------------------------------------------------------------------------
1341: l_api_updating boolean;
1342: --
1343: begin
1344: if g_debug then
1345: hr_utility.set_location('Entering:'|| l_proc, 10);
1346: end if;
1347: --
1348: -- Check mandatory parameters have been set
1349: --
1380: or
1381: (NOT l_api_updating))
1382: then
1383: if g_debug then
1384: hr_utility.set_location(l_proc, 40);
1385: end if;
1386: --
1387: -- Check if nationality is set
1388: --
1401: ,p_lookup_code => p_nationality
1402: )
1403: then
1404: --
1405: hr_utility.set_message(801, 'HR_7522_PER_NATION_INVALID');
1406: hr_utility.raise_error;
1407: --
1408: end if;
1409: if g_debug then
1402: )
1403: then
1404: --
1405: hr_utility.set_message(801, 'HR_7522_PER_NATION_INVALID');
1406: hr_utility.raise_error;
1407: --
1408: end if;
1409: if g_debug then
1410: hr_utility.set_location(l_proc, 50);
1406: hr_utility.raise_error;
1407: --
1408: end if;
1409: if g_debug then
1410: hr_utility.set_location(l_proc, 50);
1411: end if;
1412: --
1413: end if;
1414: end if;
1412: --
1413: end if;
1414: end if;
1415: if g_debug then
1416: hr_utility.set_location(' Leaving:'|| l_proc, 60);
1417: end if;
1418: exception
1419: when app_exception.application_exception then
1420: if hr_multi_message.exception_add
1420: if hr_multi_message.exception_add
1421: (p_associated_column1 => 'PER_ALL_PEOPLE_F.NATIONALITY'
1422: ) then
1423: if g_debug then
1424: hr_utility.set_location(' Leaving:'||l_proc, 70);
1425: end if;
1426: raise;
1427: end if;
1428: if g_debug then
1425: end if;
1426: raise;
1427: end if;
1428: if g_debug then
1429: hr_utility.set_location(' Leaving:'||l_proc,80);
1430: end if;
1431: end chk_nationality;
1432:
1433: -- start for bug 6241572, a new overloaded procedure is created with
1529: l_prof_val varchar2(50) ; -- #4069243
1530: --
1531: begin
1532: if g_debug then
1533: hr_utility.set_location('Entering:'|| l_proc, 1);
1534: end if;
1535: --
1536: -- Check mandatory parameters have been set
1537: --
1562: <> nvl(p_national_identifier,hr_api.g_varchar2)) or
1563: (NOT l_api_updating)) then
1564: --
1565: if g_debug then
1566: hr_utility.set_location(l_proc, 2);
1567: end if;
1568: --
1569: -- If national identifier is not null then
1570: -- Call process to validate national identifier
1595: --
1596: if fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION') <> 'NONE' and fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION') <> 'WARN' then
1597: -- #932657
1598: if l_valid_ni <> p_national_identifier then
1599: hr_utility.set_message(800, 'HR_52765_PER_INV_NI_FORMAT');
1600: hr_utility.set_message_token('P_N_I', p_national_identifier);
1601: hr_utility.set_message_token('RETURNED_VALUE', l_valid_ni); --3807899
1602: hr_utility.raise_error;
1603: end if;
1596: if fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION') <> 'NONE' and fnd_profile.value('PER_NATIONAL_IDENTIFIER_VALIDATION') <> 'WARN' then
1597: -- #932657
1598: if l_valid_ni <> p_national_identifier then
1599: hr_utility.set_message(800, 'HR_52765_PER_INV_NI_FORMAT');
1600: hr_utility.set_message_token('P_N_I', p_national_identifier);
1601: hr_utility.set_message_token('RETURNED_VALUE', l_valid_ni); --3807899
1602: hr_utility.raise_error;
1603: end if;
1604: end if;
1597: -- #932657
1598: if l_valid_ni <> p_national_identifier then
1599: hr_utility.set_message(800, 'HR_52765_PER_INV_NI_FORMAT');
1600: hr_utility.set_message_token('P_N_I', p_national_identifier);
1601: hr_utility.set_message_token('RETURNED_VALUE', l_valid_ni); --3807899
1602: hr_utility.raise_error;
1603: end if;
1604: end if;
1605: -- 4069243 start
1598: if l_valid_ni <> p_national_identifier then
1599: hr_utility.set_message(800, 'HR_52765_PER_INV_NI_FORMAT');
1600: hr_utility.set_message_token('P_N_I', p_national_identifier);
1601: hr_utility.set_message_token('RETURNED_VALUE', l_valid_ni); --3807899
1602: hr_utility.raise_error;
1603: end if;
1604: end if;
1605: -- 4069243 start
1606: l_prof_val := fnd_profile.value ('PER_NI_UNIQUE_ERROR_WARNING');
1614: end if;
1615: --
1616: end if;
1617: if g_debug then
1618: hr_utility.set_location(' Leaving:'|| l_proc, 3);
1619: end if;
1620: exception
1621: when app_exception.application_exception then
1622: if hr_multi_message.exception_add
1622: if hr_multi_message.exception_add
1623: (p_associated_column1 => 'PER_ALL_PEOPLE_F.NATIONAL_IDENTIFIER'
1624: ) then
1625: if g_debug then
1626: hr_utility.set_location(' Leaving:'||l_proc, 4);
1627: end if;
1628: raise;
1629: end if;
1630: if g_debug then
1627: end if;
1628: raise;
1629: end if;
1630: if g_debug then
1631: hr_utility.set_location(' Leaving:'||l_proc,5);
1632: end if;
1633: end chk_national_identifier;
1634: --
1635: -- ---------------------------------------------------------------------------
1762: --
1763: begin
1764: --
1765: if g_debug then
1766: hr_utility.set_location('Entering '||l_proc,10);
1767: end if;
1768: --
1769: -- Assume we have not changed the system_person_type, so set return
1770: -- variable to FALSE.
1775: --
1776: if p_new_person_type_id <> p_old_person_type_id then
1777: --
1778: if g_debug then
1779: hr_utility.set_location(l_proc, 20);
1780: end if;
1781: --
1782: -- Get the system_person_type for the 'new' person_type_id
1783: --
1785: (p_person_type_Id =>p_new_person_type_id
1786: ,p_business_group_id =>p_business_group_id
1787: );
1788: if g_debug then
1789: hr_utility.set_location(l_proc, 30);
1790: end if;
1791: --
1792: -- Get the system_person_type for the 'old' person_type_id
1793: --
1811: l_new_system_person_type = 'EMP')
1812: ) then
1813: --
1814: if g_debug then
1815: hr_utility.set_location(l_proc, 40);
1816: end if;
1817: --
1818: l_return_status := true;
1819: end if;
1817: --
1818: l_return_status := true;
1819: end if;
1820: if g_debug then
1821: hr_utility.set_location(l_proc, 50);
1822: end if;
1823: end if;
1824: if g_debug then
1825: hr_utility.set_location(' Leaving '||l_proc, 60);
1821: hr_utility.set_location(l_proc, 50);
1822: end if;
1823: end if;
1824: if g_debug then
1825: hr_utility.set_location(' Leaving '||l_proc, 60);
1826: end if;
1827: return l_return_status;
1828: end emp_sys_per_type_change;
1829: --
1839: l_proc varchar2(30) := 'emp_ni_change';
1840: --
1841: begin
1842: if g_debug then
1843: hr_utility.set_location('Entering '||l_proc,10);
1844: end if;
1845: --
1846: if p_gen_method = 'N' and
1847: p_new_ni <> p_old_ni then
1845: --
1846: if p_gen_method = 'N' and
1847: p_new_ni <> p_old_ni then
1848: if g_debug then
1849: hr_utility.set_location(l_proc,20);
1850: end if;
1851: l_return_status := TRUE;
1852: end if;
1853: if g_debug then
1850: end if;
1851: l_return_status := TRUE;
1852: end if;
1853: if g_debug then
1854: hr_utility.set_location(' Leaving '||l_proc,30);
1855: end if;
1856: return l_return_status;
1857: end emp_ni_change;
1858: --
1857: end emp_ni_change;
1858: --
1859: begin
1860: if g_debug then
1861: hr_utility.set_location('Entering:'|| l_proc, 10);
1862: end if;
1863: if hr_multi_message.no_exclusive_error
1864: (p_check_column1 => 'PER_ALL_PEOPLE_F.NATIONAL_IDENTIFIER'
1865: )
1903: open csr_gen_method;
1904: fetch csr_gen_method into l_gen_method;
1905: close csr_gen_method;
1906: if g_debug then
1907: hr_utility.set_location(l_proc, 20);
1908: end if;
1909: --
1910: -- Need to validate/generate the employee number if the employee number
1911: -- has changed or if the system person type has changed in such a way
1926: or
1927: (NOT l_api_updating)) then
1928: --
1929: if g_debug then
1930: hr_utility.set_location(l_proc, 30);
1931: end if;
1932: --
1933: -- If we are updating and the employee number has actually changed then
1934: -- ensure the number generation method is not automatic.
1943: and (PER_BG_NUMBERING_METHOD_PKG.Get_PersonNumber_Formula
1944: ('EMP',p_effective_date) is not null))
1945: and per_per_shd.g_old_rec.employee_number is not null)
1946: then
1947: hr_utility.set_message(801, 'HR_51239_PER_INV_EMP_UPD');
1948: hr_utility.raise_error;
1949: end if;
1950: if g_debug then
1951: hr_utility.set_location(l_proc, 50);
1944: ('EMP',p_effective_date) is not null))
1945: and per_per_shd.g_old_rec.employee_number is not null)
1946: then
1947: hr_utility.set_message(801, 'HR_51239_PER_INV_EMP_UPD');
1948: hr_utility.raise_error;
1949: end if;
1950: if g_debug then
1951: hr_utility.set_location(l_proc, 50);
1952: end if;
1947: hr_utility.set_message(801, 'HR_51239_PER_INV_EMP_UPD');
1948: hr_utility.raise_error;
1949: end if;
1950: if g_debug then
1951: hr_utility.set_location(l_proc, 50);
1952: end if;
1953: --
1954: -- Perform employee number validation as required by number generation
1955: -- method for the business group, and ensure that it is
1958: if return_system_person_type(p_person_type_id, p_business_group_id) in
1959: ('EMP','EX_EMP', 'EMP_APL','EX_EMP_APL') then
1960: --
1961: if g_debug then
1962: hr_utility.set_location(l_proc, 60);
1963: end if;
1964: --
1965: -- If generation method is 'A' ensure employee number IN is set null
1966: --
1972: and (PER_BG_NUMBERING_METHOD_PKG.Get_PersonNumber_Formula
1973: ('EMP',p_effective_date) is not null)))
1974: then
1975: --
1976: hr_utility.set_message(801,'HR_51240_PER_EMP_NUM_NOT_NULL');
1977: hr_utility.raise_error;
1978: end if;
1979: if g_debug then
1980: hr_utility.set_location(l_proc, 70);
1973: ('EMP',p_effective_date) is not null)))
1974: then
1975: --
1976: hr_utility.set_message(801,'HR_51240_PER_EMP_NUM_NOT_NULL');
1977: hr_utility.raise_error;
1978: end if;
1979: if g_debug then
1980: hr_utility.set_location(l_proc, 70);
1981: end if;
1976: hr_utility.set_message(801,'HR_51240_PER_EMP_NUM_NOT_NULL');
1977: hr_utility.raise_error;
1978: end if;
1979: if g_debug then
1980: hr_utility.set_location(l_proc, 70);
1981: end if;
1982: --
1983: -- If generation method is 'N' ensure employee number IN is set null
1984: -- on insert.
1986: if l_gen_method = 'N' and
1987: NOT l_api_updating and
1988: p_employee_number <> p_national_identifier then
1989: --
1990: hr_utility.set_message(801,'HR_51241_PER_EMP_NUM_NOT_NULL');
1991: l_emp_ni := true;
1992: hr_utility.raise_error;
1993: end if;
1994: if g_debug then
1988: p_employee_number <> p_national_identifier then
1989: --
1990: hr_utility.set_message(801,'HR_51241_PER_EMP_NUM_NOT_NULL');
1991: l_emp_ni := true;
1992: hr_utility.raise_error;
1993: end if;
1994: if g_debug then
1995: hr_utility.set_location(l_proc, 80);
1996: end if;
1991: l_emp_ni := true;
1992: hr_utility.raise_error;
1993: end if;
1994: if g_debug then
1995: hr_utility.set_location(l_proc, 80);
1996: end if;
1997: --
1998: -- If generation method is 'N' ensure national identifier IN is not null
1999: --
1999: --
2000: if l_gen_method = 'N' and
2001: p_national_identifier is null then
2002: --
2003: hr_utility.set_message(801,'HR_51242_PER_NAT_ID_NULL');
2004: l_emp_ni := true;
2005: hr_utility.raise_error;
2006: end if;
2007: if g_debug then
2001: p_national_identifier is null then
2002: --
2003: hr_utility.set_message(801,'HR_51242_PER_NAT_ID_NULL');
2004: l_emp_ni := true;
2005: hr_utility.raise_error;
2006: end if;
2007: if g_debug then
2008: hr_utility.set_location(l_proc, 90);
2009: end if;
2004: l_emp_ni := true;
2005: hr_utility.raise_error;
2006: end if;
2007: if g_debug then
2008: hr_utility.set_location(l_proc, 90);
2009: end if;
2010: --
2011: -- Call number generation routine.
2012: --
2040: ,p_start_date => p_effective_date);
2041: end if;
2042: --
2043: if g_debug then
2044: hr_utility.set_location(l_proc, 100);
2045: end if;
2046: --
2047: -- Check uniqueness of generated number if not generated automatically
2048: --
2048: --
2049: if l_gen_method <> 'A' then
2050: --
2051: if g_debug then
2052: hr_utility.set_location(l_proc, 104);
2053: end if;
2054: --
2055: hr_person.validate_unique_number
2056: (p_person_id => p_person_id
2062: ,p_current_applicant => 'N'
2063: ,p_current_npw => 'N');
2064: --
2065: if g_debug then
2066: hr_utility.set_location(l_proc, 108);
2067: end if;
2068: --
2069: end if;
2070: --
2068: --
2069: end if;
2070: --
2071: if g_debug then
2072: hr_utility.set_location(l_proc, 110);
2073: end if;
2074: --
2075: else
2076: --
2077: -- System person type is not 'EMP','EX_EMP','EMP_APL' or 'EX_EMP_APL'
2078: -- so employee number must be null
2079: --
2080: if g_debug then
2081: hr_utility.set_location(l_proc, 120);
2082: end if;
2083: --
2084: if p_employee_number is not null then
2085: -- Error: You cannot enter an employee number for this person type
2082: end if;
2083: --
2084: if p_employee_number is not null then
2085: -- Error: You cannot enter an employee number for this person type
2086: hr_utility.set_message(801, 'HR_7523_PER_EMP_NO_NOT_NULL');
2087: hr_utility.raise_error;
2088: end if;
2089: --
2090: if g_debug then
2083: --
2084: if p_employee_number is not null then
2085: -- Error: You cannot enter an employee number for this person type
2086: hr_utility.set_message(801, 'HR_7523_PER_EMP_NO_NOT_NULL');
2087: hr_utility.raise_error;
2088: end if;
2089: --
2090: if g_debug then
2091: hr_utility.set_location(l_proc, 130);
2087: hr_utility.raise_error;
2088: end if;
2089: --
2090: if g_debug then
2091: hr_utility.set_location(l_proc, 130);
2092: end if;
2093: --
2094: end if;
2095: end if;
2094: end if;
2095: end if;
2096: end if;
2097: if g_debug then
2098: hr_utility.set_location(' Leaving:'|| l_proc, 140);
2099: end if;
2100: exception
2101: when app_exception.application_exception then
2102: -- if error is not because of national identifier
2105: if hr_multi_message.exception_add
2106: (p_associated_column1 => 'PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER'
2107: ) then
2108: if g_debug then
2109: hr_utility.set_location(' Leaving:'||l_proc, 150);
2110: end if;
2111: raise;
2112: end if;
2113: else
2115: (p_associated_column1 => 'PER_ALL_PEOPLE_F.EMPLOYEE_NUMBER'
2116: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.NATIONAL_IDENTIFIER'
2117: ) then
2118: if g_debug then
2119: hr_utility.set_location(' Leaving:'||l_proc, 160);
2120: end if;
2121: raise;
2122: end if;
2123: end if;
2121: raise;
2122: end if;
2123: end if;
2124: if g_debug then
2125: hr_utility.set_location(' Leaving:'||l_proc,170);
2126: end if;
2127: end chk_employee_number;
2128: --
2129: -- ---------------------------------------------------------------------------
2244: l_proc varchar2(30) := 'npw_ni_change';
2245: --
2246: begin
2247: if g_debug then
2248: hr_utility.set_location('Entering '||l_proc,10);
2249: end if;
2250: --
2251: if p_gen_method = 'N' and
2252: p_new_ni <> p_old_ni then
2250: --
2251: if p_gen_method = 'N' and
2252: p_new_ni <> p_old_ni then
2253: if g_debug then
2254: hr_utility.set_location(l_proc,20);
2255: end if;
2256: l_return_status := TRUE;
2257: end if;
2258: if g_debug then
2255: end if;
2256: l_return_status := TRUE;
2257: end if;
2258: if g_debug then
2259: hr_utility.set_location(' Leaving '||l_proc,30);
2260: end if;
2261: return l_return_status;
2262: end npw_ni_change;
2263: --
2262: end npw_ni_change;
2263: --
2264: begin
2265: if g_debug then
2266: hr_utility.set_location('Entering:'|| l_proc, 10);
2267: end if;
2268: if hr_multi_message.no_exclusive_error
2269: (p_check_column1 => 'PER_ALL_PEOPLE_F.NATIONAL_IDENTIFIER'
2270: )
2302: open csr_gen_method;
2303: fetch csr_gen_method into l_gen_method;
2304: close csr_gen_method;
2305: if g_debug then
2306: hr_utility.set_location(l_proc, 20);
2307: end if;
2308: --
2309: --
2310: -- Need to validate/generate the npw number if the npw number
2324: or
2325: (NOT l_api_updating)) then
2326: --
2327: if g_debug then
2328: hr_utility.set_location(l_proc, 30);
2329: end if;
2330: --
2331: -- If we are updating and the npw number has actually changed then
2332: -- ensure the number generation method is not automatic.
2336: nvl(p_npw_number, hr_api.g_varchar2) and
2337: l_gen_method = 'A' then
2338: -- ER FPT
2339: if not ((nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') and per_per_shd.g_old_rec.npw_number is null) then
2340: hr_utility.set_message(800, 'HR_289657_PER_INV_CWK_UPD');
2341: hr_utility.raise_error;
2342: end if;
2343: end if;
2344: if g_debug then
2337: l_gen_method = 'A' then
2338: -- ER FPT
2339: if not ((nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') and per_per_shd.g_old_rec.npw_number is null) then
2340: hr_utility.set_message(800, 'HR_289657_PER_INV_CWK_UPD');
2341: hr_utility.raise_error;
2342: end if;
2343: end if;
2344: if g_debug then
2345: hr_utility.set_location(l_proc, 50);
2341: hr_utility.raise_error;
2342: end if;
2343: end if;
2344: if g_debug then
2345: hr_utility.set_location(l_proc, 50);
2346: end if;
2347: --
2348: -- Perform npw number validation as required by number generation
2349: -- method for the business group, and ensure that it is
2351: --
2352: if p_current_npw_flag = 'Y' then
2353: --
2354: if g_debug then
2355: hr_utility.set_location(l_proc, 60);
2356: end if;
2357: --
2358: -- If generation method is not specified then error: ct. may not have upgraded
2359: -- BG info
2358: -- If generation method is not specified then error: ct. may not have upgraded
2359: -- BG info
2360: if l_gen_method is null then
2361: --
2362: hr_utility.set_message(800,'PER_289634_CWK_GEN_NOT_NULL');
2363: hr_utility.raise_error;
2364: end if;
2365: if g_debug then
2366: hr_utility.set_location(l_proc, 60);
2359: -- BG info
2360: if l_gen_method is null then
2361: --
2362: hr_utility.set_message(800,'PER_289634_CWK_GEN_NOT_NULL');
2363: hr_utility.raise_error;
2364: end if;
2365: if g_debug then
2366: hr_utility.set_location(l_proc, 60);
2367: end if;
2362: hr_utility.set_message(800,'PER_289634_CWK_GEN_NOT_NULL');
2363: hr_utility.raise_error;
2364: end if;
2365: if g_debug then
2366: hr_utility.set_location(l_proc, 60);
2367: end if;
2368: --
2369: -- If generation method is 'A' ensure npw number IN is set null
2370: -- or has not changed from its previous value (fixes 2876274)
2374:
2375: p_npw_number <> nvl(per_per_shd.g_old_rec.npw_number,hr_api.g_varchar2) then
2376: -- ER FPT
2377: if not ((nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') and per_per_shd.g_old_rec.npw_number is null) then
2378: hr_utility.set_message(800,'PER_289635_CWK_NUM_NOT_NULL');
2379: hr_utility.raise_error;
2380: end if;
2381: end if;
2382: if g_debug then
2375: p_npw_number <> nvl(per_per_shd.g_old_rec.npw_number,hr_api.g_varchar2) then
2376: -- ER FPT
2377: if not ((nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'Y') and per_per_shd.g_old_rec.npw_number is null) then
2378: hr_utility.set_message(800,'PER_289635_CWK_NUM_NOT_NULL');
2379: hr_utility.raise_error;
2380: end if;
2381: end if;
2382: if g_debug then
2383: hr_utility.set_location(l_proc, 70);
2379: hr_utility.raise_error;
2380: end if;
2381: end if;
2382: if g_debug then
2383: hr_utility.set_location(l_proc, 70);
2384: end if;
2385: --
2386: -- If generation method is 'N' ensure npw number IN is set null
2387: -- on insert.
2389: if l_gen_method = 'N' and
2390: NOT l_api_updating and
2391: p_npw_number <> p_national_identifier then
2392: --
2393: hr_utility.set_message(800,'PER_289636_CWK_NUM_NOT_NULL');
2394: l_npw_ni := true;
2395: hr_utility.raise_error;
2396: end if;
2397: if g_debug then
2391: p_npw_number <> p_national_identifier then
2392: --
2393: hr_utility.set_message(800,'PER_289636_CWK_NUM_NOT_NULL');
2394: l_npw_ni := true;
2395: hr_utility.raise_error;
2396: end if;
2397: if g_debug then
2398: hr_utility.set_location(l_proc, 80);
2399: end if;
2394: l_npw_ni := true;
2395: hr_utility.raise_error;
2396: end if;
2397: if g_debug then
2398: hr_utility.set_location(l_proc, 80);
2399: end if;
2400: --
2401: -- If generation method is 'N' ensure national identifier IN is not null
2402: --
2402: --
2403: if l_gen_method = 'N' and
2404: p_national_identifier is null then
2405: --
2406: hr_utility.set_message(800,'PER_289637_CWK_NAT_ID_NULL');
2407: l_npw_ni := true;
2408: hr_utility.raise_error;
2409: end if;
2410: if g_debug then
2404: p_national_identifier is null then
2405: --
2406: hr_utility.set_message(800,'PER_289637_CWK_NAT_ID_NULL');
2407: l_npw_ni := true;
2408: hr_utility.raise_error;
2409: end if;
2410: if g_debug then
2411: hr_utility.set_location(l_proc, 90);
2412: end if;
2407: l_npw_ni := true;
2408: hr_utility.raise_error;
2409: end if;
2410: if g_debug then
2411: hr_utility.set_location(l_proc, 90);
2412: end if;
2413: --
2414: -- Call number generation routine.
2415: --
2428: ,p_start_date => p_effective_date);
2429:
2430: --
2431: if g_debug then
2432: hr_utility.set_location(l_proc, 100);
2433: end if;
2434: --
2435: -- Check uniqueness of generated number if not generated automatically
2436: --
2436: --
2437: if l_gen_method <> 'A' then
2438: --
2439: if g_debug then
2440: hr_utility.set_location(l_proc, 104);
2441: end if;
2442: --
2443: hr_person.validate_unique_number
2444: (p_person_id => p_person_id
2450: ,p_current_applicant => 'N'
2451: ,p_current_npw => 'Y');
2452: --
2453: if g_debug then
2454: hr_utility.set_location(l_proc, 108);
2455: end if;
2456: --
2457: end if;
2458: --
2456: --
2457: end if;
2458: --
2459: if g_debug then
2460: hr_utility.set_location(l_proc, 110);
2461: end if;
2462: --
2463: else
2464: --
2464: --
2465: -- current_npw_flag is null, so npw number must be null
2466: --
2467: if g_debug then
2468: hr_utility.set_location(l_proc, 120);
2469: end if;
2470: --
2471: if p_npw_number is not null then
2472: -- Error: You cannot enter an npw number for this person type
2469: end if;
2470: --
2471: if p_npw_number is not null then
2472: -- Error: You cannot enter an npw number for this person type
2473: hr_utility.set_message(800, 'PER_289638_CWK_NUM_NOT_NULL');
2474: hr_utility.raise_error;
2475: end if;
2476: --
2477: if g_debug then
2470: --
2471: if p_npw_number is not null then
2472: -- Error: You cannot enter an npw number for this person type
2473: hr_utility.set_message(800, 'PER_289638_CWK_NUM_NOT_NULL');
2474: hr_utility.raise_error;
2475: end if;
2476: --
2477: if g_debug then
2478: hr_utility.set_location(l_proc, 130);
2474: hr_utility.raise_error;
2475: end if;
2476: --
2477: if g_debug then
2478: hr_utility.set_location(l_proc, 130);
2479: end if;
2480: --
2481: end if;
2482: end if;
2481: end if;
2482: end if;
2483: end if;
2484: if g_debug then
2485: hr_utility.set_location(' Leaving:'|| l_proc, 140);
2486: end if;
2487: exception
2488: when app_exception.application_exception then
2489: -- if error is not because of national identifier
2492: if hr_multi_message.exception_add
2493: (p_associated_column1 => 'PER_ALL_PEOPLE_F.NPW_NUMBER'
2494: ) then
2495: if g_debug then
2496: hr_utility.set_location(' Leaving:'||l_proc, 150);
2497: end if;
2498: raise;
2499: end if;
2500: else
2502: (p_associated_column1 => 'PER_ALL_PEOPLE_F.NPW_NUMBER'
2503: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.NATIONAL_IDENTIFIER'
2504: ) then
2505: if g_debug then
2506: hr_utility.set_location(' Leaving:'||l_proc, 160);
2507: end if;
2508: raise;
2509: end if;
2510: end if;
2508: raise;
2509: end if;
2510: end if;
2511: if g_debug then
2512: hr_utility.set_location(' Leaving:'||l_proc,170);
2513: end if;
2514: end chk_npw_number;
2515: --
2516: -- ---------------------------------------------------------------------------
2565: l_api_updating boolean;
2566: --
2567: begin
2568: if g_debug then
2569: hr_utility.set_location('Entering:'|| l_proc, 10);
2570: end if;
2571: --
2572: -- Check mandatory parameters have been set
2573: --
2588: ,p_argument => 'validation_end_date'
2589: ,p_argument_value => p_validation_end_date
2590: );
2591: if g_debug then
2592: hr_utility.set_location(l_proc, 20);
2593: end if;
2594: --
2595: -- Only proceed with validation if:
2596: -- a) The current g_old_rec is current and
2602: ,p_effective_date => p_effective_date
2603: ,p_object_version_number => p_object_version_number
2604: );
2605: if g_debug then
2606: hr_utility.set_location(l_proc, 30);
2607: end if;
2608: --
2609: if ((l_api_updating
2610: and nvl(per_per_shd.g_old_rec.expense_check_send_to_address,
2613: or
2614: (NOT l_api_updating))
2615: then
2616: if g_debug then
2617: hr_utility.set_location(l_proc, 40);
2618: end if;
2619: --
2620: -- Check if expense check send to address is set
2621: --
2634: ,p_lookup_code => p_expense_check_send_to_addres
2635: )
2636: then
2637: --
2638: hr_utility.set_message(801, 'HR_51251_PER_CHECK_SEND_ADR');
2639: hr_utility.raise_error;
2640: --
2641: end if;
2642: if g_debug then
2635: )
2636: then
2637: --
2638: hr_utility.set_message(801, 'HR_51251_PER_CHECK_SEND_ADR');
2639: hr_utility.raise_error;
2640: --
2641: end if;
2642: if g_debug then
2643: hr_utility.set_location(l_proc, 50);
2639: hr_utility.raise_error;
2640: --
2641: end if;
2642: if g_debug then
2643: hr_utility.set_location(l_proc, 50);
2644: end if;
2645: --
2646: end if;
2647: if g_debug then
2644: end if;
2645: --
2646: end if;
2647: if g_debug then
2648: hr_utility.set_location(l_proc, 60);
2649: end if;
2650: --
2651: end if;
2652: if g_debug then
2649: end if;
2650: --
2651: end if;
2652: if g_debug then
2653: hr_utility.set_location(' Leaving:'|| l_proc, 70);
2654: end if;
2655: exception
2656: when app_exception.application_exception then
2657: if hr_multi_message.exception_add
2657: if hr_multi_message.exception_add
2658: (p_associated_column1 => 'PER_ALL_PEOPLE_F.EXPENSE_CHECK_SEND_TO_ADDRESS'
2659: ) then
2660: if g_debug then
2661: hr_utility.set_location(' Leaving:'||l_proc, 80);
2662: end if;
2663: raise;
2664: end if;
2665: if g_debug then
2662: end if;
2663: raise;
2664: end if;
2665: if g_debug then
2666: hr_utility.set_location(' Leaving:'||l_proc,90);
2667: end if;
2668:
2669: end chk_expense_check_send_to_addr;
2670: --
2749: l_lookup_type varchar2(30);
2750: --
2751: begin
2752: if g_debug then
2753: hr_utility.set_location('Entering:'|| l_proc, 10);
2754: end if;
2755: --
2756: -- Check mandatory parameters have been set
2757: --
2772: ,p_argument => 'validation_end_date'
2773: ,p_argument_value => p_validation_end_date
2774: );
2775: if g_debug then
2776: hr_utility.set_location(l_proc, 20);
2777: end if;
2778: --
2779: -- Only proceed with validation if:
2780: -- a) The current g_old_rec is current and
2787: ,p_effective_date => p_effective_date
2788: ,p_object_version_number => p_object_version_number
2789: );
2790: if g_debug then
2791: hr_utility.set_location(l_proc, 30);
2792: end if;
2793: --
2794: if ((l_api_updating
2795: and nvl(per_per_shd.g_old_rec.sex, hr_api.g_varchar2)
2800: or
2801: (NOT l_api_updating))
2802: then
2803: if g_debug then
2804: hr_utility.set_location(l_proc, 40);
2805: end if;
2806: --
2807: -- Check if title is set
2808: --
2821: ,p_lookup_code => p_title
2822: )
2823: then
2824: --
2825: hr_utility.set_message(801, 'HR_7512_PER_TITLE_INVALID');
2826: hr_multi_message.add
2827: (p_associated_column1 => 'PER_ALL_PEOPLE_F.TITLE'
2828: );
2829: --
2828: );
2829: --
2830: end if;
2831: if g_debug then
2832: hr_utility.set_location(l_proc, 50);
2833: end if;
2834: --
2835: end if;
2836: --
2851: ,p_lookup_code => p_sex
2852: )
2853: then
2854: --
2855: hr_utility.set_message(801, 'HR_7511_PER_SEX_INVALID');
2856: hr_multi_message.add
2857: (p_associated_column1 => 'PER_ALL_PEOPLE_F.SEX'
2858: );
2859: --
2858: );
2859: --
2860: end if;
2861: if g_debug then
2862: hr_utility.set_location(l_proc, 40);
2863: end if;
2864: --
2865: -- Check if title is set
2866: --
2870: --
2871: If p_sex = 'M' and
2872: p_title in ('MISS','MRS.','MS.') then
2873: -- Error: Values for Sex and Title are inconsistent.
2874: hr_utility.set_message(801, 'HR_6527_PERSON_SEX_AND_TITLE');
2875: hr_multi_message.add
2876: (p_associated_column1 => 'PER_ALL_PEOPLE_F.TITLE'
2877: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.SEX'
2878: );
2877: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.SEX'
2878: );
2879: end if;
2880: if g_debug then
2881: hr_utility.set_location(l_proc, 70);
2882: end if;
2883: --
2884: If p_sex = 'F' and
2885: p_title = 'MR.' then
2883: --
2884: If p_sex = 'F' and
2885: p_title = 'MR.' then
2886: -- Error: Values for Sex and Title are inconsistent.
2887: hr_utility.set_message(801, 'HR_6527_PERSON_SEX_AND_TITLE');
2888: hr_multi_message.add
2889: (p_associated_column1 => 'PER_ALL_PEOPLE_F.TITLE'
2890: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.SEX'
2891: );
2890: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.SEX'
2891: );
2892: end if;
2893: if g_debug then
2894: hr_utility.set_location(l_proc, 80);
2895: end if;
2896: --
2897: end if;
2898: else
2901: --
2902: if instr(return_system_person_type(p_person_type_id,
2903: p_business_group_id),'EMP') <> 0 then
2904: -- Error: You must enter sex for an employee.
2905: hr_utility.set_message(801, 'HR_6524_EMP_MANDATORY_SEX');
2906: hr_multi_message.add
2907: (p_associated_column1 => 'PER_ALL_PEOPLE_F.SEX'
2908: );
2909: end if;
2907: (p_associated_column1 => 'PER_ALL_PEOPLE_F.SEX'
2908: );
2909: end if;
2910: if g_debug then
2911: hr_utility.set_location(l_proc, 90);
2912: end if;
2913: --
2914: end if;
2915: if g_debug then
2912: end if;
2913: --
2914: end if;
2915: if g_debug then
2916: hr_utility.set_location(' Leaving:'|| l_proc, 130);
2917: end if;
2918: end if;
2919: end chk_sex_title;
2920: --
2971: --
2972: begin
2973: if g_debug then
2974: l_proc := g_package||'chk_town_of_birth';
2975: hr_utility.set_location('Entering:'|| l_proc, 1);
2976: end if;
2977: if p_town_of_birth IS NOT NULL then
2978: --
2979: -- Only proceed with validation if:
2985: ((p_person_id is not null) and
2986: nvl(p_town_of_birth,hr_api.g_varchar2) <> nvl(per_per_shd.g_old_rec.town_of_birth,hr_api.g_varchar2))) then
2987: --
2988: if g_debug then
2989: hr_utility.set_location(l_proc, 2);
2990: end if;
2991: --
2992: open csr_plfi;
2993: fetch csr_plfi into l_lookup_type;
3003: ,p_lookup_code => p_town_of_birth
3004: )
3005: then
3006: -- Error: Invalid town lookup_value has been passed.
3007: hr_utility.set_message_token('TOWN_CODE', p_town_of_birth);
3008: hr_utility.set_message(800, 'PER_52619_TOWN_NOT_FOUND)');
3009: hr_utility.raise_error;
3010: end if;
3011: else
3004: )
3005: then
3006: -- Error: Invalid town lookup_value has been passed.
3007: hr_utility.set_message_token('TOWN_CODE', p_town_of_birth);
3008: hr_utility.set_message(800, 'PER_52619_TOWN_NOT_FOUND)');
3009: hr_utility.raise_error;
3010: end if;
3011: else
3012: close csr_plfi;
3005: then
3006: -- Error: Invalid town lookup_value has been passed.
3007: hr_utility.set_message_token('TOWN_CODE', p_town_of_birth);
3008: hr_utility.set_message(800, 'PER_52619_TOWN_NOT_FOUND)');
3009: hr_utility.raise_error;
3010: end if;
3011: else
3012: close csr_plfi;
3013: end if;
3014: end if;
3015: end if;
3016: --
3017: if g_debug then
3018: hr_utility.set_location(' Leaving:'|| l_proc, 3);
3019: end if;
3020: exception
3021: when app_exception.application_exception then
3022: if hr_multi_message.exception_add
3022: if hr_multi_message.exception_add
3023: (p_associated_column1 => 'PER_ALL_PEOPLE_F.TOWN_OF_BIRTH'
3024: ) then
3025: if g_debug then
3026: hr_utility.set_location(' Leaving:'||l_proc, 4);
3027: end if;
3028: raise;
3029: end if;
3030: if g_debug then
3027: end if;
3028: raise;
3029: end if;
3030: if g_debug then
3031: hr_utility.set_location(' Leaving:'||l_proc,5);
3032: end if;
3033: end chk_town_of_birth;
3034: --
3035: -- ---------------------------------------------------------------------------
3085: --
3086: begin
3087: if g_debug then
3088: l_proc := g_package||'chk_region_of_birth';
3089: hr_utility.set_location('Entering:'|| l_proc, 1);
3090: end if;
3091: if p_region_of_birth IS NOT NULL then
3092: --
3093: -- Only proceed with validation if:
3099: ((p_person_id is not null) and
3100: nvl(p_region_of_birth,hr_api.g_varchar2) <> nvl(per_per_shd.g_old_rec.region_of_birth,hr_api.g_varchar2))) then
3101: --
3102: if g_debug then
3103: hr_utility.set_location(l_proc, 2);
3104: end if;
3105: --
3106: open csr_plfi;
3107: fetch csr_plfi into l_lookup_type;
3117: ,p_lookup_code => p_region_of_birth
3118: )
3119: then
3120: -- Error: Invalid region lookup_value has been passed.
3121: hr_utility.set_message_token('REGION_CODE', p_region_of_birth);
3122: hr_utility.set_message(800, 'PER_52620_REGION_NOT_FOUND)');
3123: hr_utility.raise_error;
3124: end if;
3125: else
3118: )
3119: then
3120: -- Error: Invalid region lookup_value has been passed.
3121: hr_utility.set_message_token('REGION_CODE', p_region_of_birth);
3122: hr_utility.set_message(800, 'PER_52620_REGION_NOT_FOUND)');
3123: hr_utility.raise_error;
3124: end if;
3125: else
3126: close csr_plfi;
3119: then
3120: -- Error: Invalid region lookup_value has been passed.
3121: hr_utility.set_message_token('REGION_CODE', p_region_of_birth);
3122: hr_utility.set_message(800, 'PER_52620_REGION_NOT_FOUND)');
3123: hr_utility.raise_error;
3124: end if;
3125: else
3126: close csr_plfi;
3127: end if;
3128: end if;
3129: end if;
3130: --
3131: if g_debug then
3132: hr_utility.set_location(' Leaving:'|| l_proc, 3);
3133: end if;
3134: exception
3135: when app_exception.application_exception then
3136: if hr_multi_message.exception_add
3136: if hr_multi_message.exception_add
3137: (p_associated_column1 => 'PER_ALL_PEOPLE_F.REGION_OF_BIRTH'
3138: ) then
3139: if g_debug then
3140: hr_utility.set_location(' Leaving:'||l_proc, 4);
3141: end if;
3142: raise;
3143: end if;
3144: if g_debug then
3141: end if;
3142: raise;
3143: end if;
3144: if g_debug then
3145: hr_utility.set_location(' Leaving:'||l_proc,5);
3146: end if;
3147: end chk_region_of_birth;
3148: --
3149: -- ---------------------------------------------------------------------------
3187: --
3188: begin
3189: if g_debug then
3190: l_proc := g_package||'chk_country_of_birth';
3191: hr_utility.set_location('Entering:'|| l_proc, 1);
3192: end if;
3193: if p_country_of_birth IS NOT NULL then
3194: --
3195: -- Only proceed with validation if:
3201: ((p_person_id is not null) and
3202: nvl(p_country_of_birth,hr_api.g_varchar2) <> nvl(per_per_shd.g_old_rec.country_of_birth,hr_api.g_varchar2))) then
3203: --
3204: if g_debug then
3205: hr_utility.set_location(l_proc, 2);
3206: end if;
3207: --
3208: open csr_country;
3209: fetch csr_country into l_exists;
3209: fetch csr_country into l_exists;
3210: if csr_country%notfound then
3211: close csr_country;
3212: -- Error: Invalid country short code
3213: hr_utility.set_message_token('COUNTRY_CODE', p_country_of_birth);
3214: hr_utility.set_message(800, 'PER_52618_COUNTRY_NOT_FOUND');
3215: hr_utility.raise_error;
3216: end if;
3217: close csr_country;
3210: if csr_country%notfound then
3211: close csr_country;
3212: -- Error: Invalid country short code
3213: hr_utility.set_message_token('COUNTRY_CODE', p_country_of_birth);
3214: hr_utility.set_message(800, 'PER_52618_COUNTRY_NOT_FOUND');
3215: hr_utility.raise_error;
3216: end if;
3217: close csr_country;
3218: end if;
3211: close csr_country;
3212: -- Error: Invalid country short code
3213: hr_utility.set_message_token('COUNTRY_CODE', p_country_of_birth);
3214: hr_utility.set_message(800, 'PER_52618_COUNTRY_NOT_FOUND');
3215: hr_utility.raise_error;
3216: end if;
3217: close csr_country;
3218: end if;
3219: end if;
3218: end if;
3219: end if;
3220: --
3221: if g_debug then
3222: hr_utility.set_location(' Leaving:'|| l_proc, 3);
3223: end if;
3224: exception
3225: when app_exception.application_exception then
3226: if hr_multi_message.exception_add
3226: if hr_multi_message.exception_add
3227: (p_associated_column1 => 'PER_ALL_PEOPLE_F.COUNTRY_OF_BIRTH'
3228: ) then
3229: if g_debug then
3230: hr_utility.set_location(' Leaving:'||l_proc, 4);
3231: end if;
3232: raise;
3233: end if;
3234: if g_debug then
3231: end if;
3232: raise;
3233: end if;
3234: if g_debug then
3235: hr_utility.set_location(' Leaving:'||l_proc,5);
3236: end if;
3237: end chk_country_of_birth;
3238: --
3239: -- ---------------------------------------------------------------------------
3289: where p_person_id = person_id;
3290: --
3291: begin
3292: if g_debug then
3293: hr_utility.set_location('Entering:'|| l_proc, 1);
3294: end if;
3295: --
3296: -- Check mandatory parameters have been set
3297: --
3321: --
3322: -- On insert check that start date equals effective date
3323: --
3324: if g_debug then
3325: hr_utility.set_location(l_proc, 2);
3326: end if;
3327: --
3328: if p_start_date <> p_effective_date then
3329: -- Error: Invalid Start Date
3326: end if;
3327: --
3328: if p_start_date <> p_effective_date then
3329: -- Error: Invalid Start Date
3330: hr_utility.set_message(801, 'HR_7514_PER_START_DATE_INVALID');
3331: hr_utility.raise_error;
3332: end if;
3333: elsif(l_api_updating and per_per_shd.g_old_rec.start_date <>
3334: p_start_date) then
3327: --
3328: if p_start_date <> p_effective_date then
3329: -- Error: Invalid Start Date
3330: hr_utility.set_message(801, 'HR_7514_PER_START_DATE_INVALID');
3331: hr_utility.raise_error;
3332: end if;
3333: elsif(l_api_updating and per_per_shd.g_old_rec.start_date <>
3334: p_start_date) then
3335: --
3336: -- On update check if start date is the same as the earliest effective
3337: -- start date
3338: --
3339: if g_debug then
3340: hr_utility.set_location(l_proc, 3);
3341: end if;
3342: --
3343: open csr_chk_min_date;
3344: fetch csr_chk_min_date into l_min_date;
3345: if p_start_date <> l_min_date then
3346: close csr_chk_min_date;
3347: -- Error: Invalid start date
3348:
3349: hr_utility.set_message(801, 'HR_7514_PER_START_DATE_INVALID');
3350: hr_utility.raise_error;
3351: end if;
3352: close csr_chk_min_date;
3353: end if;
3346: close csr_chk_min_date;
3347: -- Error: Invalid start date
3348:
3349: hr_utility.set_message(801, 'HR_7514_PER_START_DATE_INVALID');
3350: hr_utility.raise_error;
3351: end if;
3352: close csr_chk_min_date;
3353: end if;
3354: if g_debug then
3351: end if;
3352: close csr_chk_min_date;
3353: end if;
3354: if g_debug then
3355: hr_utility.set_location(' Leaving:'|| l_proc, 4);
3356: end if;
3357: exception
3358: when app_exception.application_exception then
3359: if hr_multi_message.exception_add
3359: if hr_multi_message.exception_add
3360: (p_associated_column1 => 'PER_ALL_PEOPLE_F.START_DATE'
3361: ) then
3362: if g_debug then
3363: hr_utility.set_location(' Leaving:'||l_proc, 5);
3364: end if;
3365: raise;
3366: end if;
3367: if g_debug then
3364: end if;
3365: raise;
3366: end if;
3367: if g_debug then
3368: hr_utility.set_location(' Leaving:'||l_proc,6);
3369: end if;
3370:
3371: end chk_start_date;
3372: --
3449: p_orig_hire_warning := FALSE;
3450: --
3451: if g_debug then
3452: l_proc := g_package||'chk_orig_and_start_dates';
3453: hr_utility.set_location('Entering:'|| l_proc,5);
3454: end if;
3455: --
3456: if p_original_date_of_hire is NOT NULL then
3457: if (nvl(per_per_shd.g_old_rec.original_date_of_hire,hr_api.g_date)
3461: if l_system_person_type in ('EMP','EMP_APL','EX_EMP','EX_EMP_APL') then
3462: --
3463: if (p_person_id is null and
3464: (nvl(p_original_date_of_hire,hr_api.g_date) > p_start_date)) then
3465: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
3466: hr_multi_message.add
3467: (p_associated_column1 => 'PER_ALL_PEOPLE_F.ORIGINAL_DATE_OF_HIRE'
3468: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.START_DATE'
3469: );
3473: fetch csr_earliest_date into l_earliest_date;
3474: -- added for the bug 5402099
3475: open original_date_of_hire_ppf ;
3476: fetch original_date_of_hire_ppf into l_earliest_date1;
3477: hr_utility.set_location('l_earliest_date1:'|| l_earliest_date1,10);
3478: if l_earliest_date1 is null then
3479: l_earliest_date:=p_original_date_of_hire;
3480: hr_utility.set_location('l_earliest_date:'|| l_earliest_date,15);
3481: close original_date_of_hire_ppf;
3476: fetch original_date_of_hire_ppf into l_earliest_date1;
3477: hr_utility.set_location('l_earliest_date1:'|| l_earliest_date1,10);
3478: if l_earliest_date1 is null then
3479: l_earliest_date:=p_original_date_of_hire;
3480: hr_utility.set_location('l_earliest_date:'|| l_earliest_date,15);
3481: close original_date_of_hire_ppf;
3482: else
3483: close original_date_of_hire_ppf;
3484: end if;
3489: (nvl(p_original_date_of_hire,hr_api.g_date) > l_earliest_date))
3490: or ((l_earliest_date > p_start_date) and
3491: (nvl(p_original_date_of_hire,hr_api.g_date) > p_start_date)) then
3492: */
3493: hr_utility.set_message(800,'PER_52474_PER_ORIG_ST_DATE');
3494: close csr_earliest_date;
3495: hr_multi_message.add
3496: (p_associated_column1 => 'PER_ALL_PEOPLE_F.ORIGINAL_DATE_OF_HIRE'
3497: );
3506: end if;
3507: end if;
3508: --
3509: if g_debug then
3510: hr_utility.set_location(' Leaving:'||l_proc, 10);
3511: end if;
3512: --
3513: end chk_orig_and_start_dates;
3514: --
3647: l_rgeflg varchar2(10);
3648: --
3649: begin
3650: if g_debug then
3651: hr_utility.set_location('Entering:'|| l_proc, 10);
3652: end if;
3653: --
3654: -- Check the mandatory parameters
3655: --
3670: ,p_argument => 'validation_end_date'
3671: ,p_argument_value => p_validation_end_date
3672: );
3673: if g_debug then
3674: hr_utility.set_location(l_proc,20);
3675: end if;
3676: --
3677: -- We know the per_information_category is GB, so check the rest of
3678: -- the per_information fields within this context.
3695: ,p_lookup_code => p_per_information1
3696: )
3697: then
3698: --
3699: hr_utility.set_message(801, 'HR_7524_PER_INFO1_INVALID');
3700: hr_utility.raise_error;
3701: --
3702: end if;
3703: if g_debug then
3696: )
3697: then
3698: --
3699: hr_utility.set_message(801, 'HR_7524_PER_INFO1_INVALID');
3700: hr_utility.raise_error;
3701: --
3702: end if;
3703: if g_debug then
3704: hr_utility.set_location(l_proc,30);
3700: hr_utility.raise_error;
3701: --
3702: end if;
3703: if g_debug then
3704: hr_utility.set_location(l_proc,30);
3705: end if;
3706: --
3707: end if;
3708: if g_debug then
3705: end if;
3706: --
3707: end if;
3708: if g_debug then
3709: hr_utility.set_location(l_proc,40);
3710: end if;
3711: --
3712: -- Check if the per_information2 value exists in hr_lookups
3713: -- where the lookup_type is 'YES_NO'
3727: ,p_lookup_code => p_per_information2
3728: )
3729: then
3730: --
3731: hr_utility.set_message(801, 'HR_7525_PER_INFO2_INVALID');
3732: hr_utility.raise_error;
3733: --
3734: end if;
3735: if g_debug then
3728: )
3729: then
3730: --
3731: hr_utility.set_message(801, 'HR_7525_PER_INFO2_INVALID');
3732: hr_utility.raise_error;
3733: --
3734: end if;
3735: if g_debug then
3736: hr_utility.set_location(l_proc,50);
3732: hr_utility.raise_error;
3733: --
3734: end if;
3735: if g_debug then
3736: hr_utility.set_location(l_proc,50);
3737: end if;
3738: --
3739: end if;
3740: if g_debug then
3737: end if;
3738: --
3739: end if;
3740: if g_debug then
3741: hr_utility.set_location(l_proc,60);
3742: end if;
3743: --
3744: -- Check if the per_information4 value exists in hr_lookups
3745: -- where the lookup_type is 'YES_NO'
3759: ,p_lookup_code => p_per_information4
3760: )
3761: then
3762: --
3763: hr_utility.set_message(801, 'HR_7526_PER_INFO4_INVALID');
3764: hr_utility.raise_error;
3765: --
3766: end if;
3767: if g_debug then
3760: )
3761: then
3762: --
3763: hr_utility.set_message(801, 'HR_7526_PER_INFO4_INVALID');
3764: hr_utility.raise_error;
3765: --
3766: end if;
3767: if g_debug then
3768: hr_utility.set_location(l_proc,70);
3764: hr_utility.raise_error;
3765: --
3766: end if;
3767: if g_debug then
3768: hr_utility.set_location(l_proc,70);
3769: end if;
3770: --
3771: end if;
3772: if g_debug then
3769: end if;
3770: --
3771: end if;
3772: if g_debug then
3773: hr_utility.set_location(l_proc,80);
3774: end if;
3775: --
3776: -- Check if p_per_information5 is greater than 30 characters long
3777: --
3778: if p_per_information5 is not null then
3779: if length(p_per_information5) > 30 then
3780: -- Error: Work Permit (PER_INFORMATION5) cannot be longer than
3781: -- 30 characters
3782: hr_utility.set_message(801, 'HR_7527_PER_INFO5_LENGTH');
3783: hr_utility.raise_error;
3784: end if;
3785: if g_debug then
3786: hr_utility.set_location(l_proc,90);
3779: if length(p_per_information5) > 30 then
3780: -- Error: Work Permit (PER_INFORMATION5) cannot be longer than
3781: -- 30 characters
3782: hr_utility.set_message(801, 'HR_7527_PER_INFO5_LENGTH');
3783: hr_utility.raise_error;
3784: end if;
3785: if g_debug then
3786: hr_utility.set_location(l_proc,90);
3787: end if;
3782: hr_utility.set_message(801, 'HR_7527_PER_INFO5_LENGTH');
3783: hr_utility.raise_error;
3784: end if;
3785: if g_debug then
3786: hr_utility.set_location(l_proc,90);
3787: end if;
3788: --
3789: -- Check if p_per_information5 is not upper case
3790: --
3790: --
3791: --if p_per_information5 <> upper(p_per_information5) then
3792: -- Error: Enter the Work Permit value (PER_INFORMATION5) in
3793: -- upper case
3794: --hr_utility.set_message(801, 'HR_7528_PER_INFO5_CASE');
3795: --hr_utility.raise_error;
3796: --end if;
3797: --if g_debug then
3798: --hr_utility.set_location(l_proc,100);
3791: --if p_per_information5 <> upper(p_per_information5) then
3792: -- Error: Enter the Work Permit value (PER_INFORMATION5) in
3793: -- upper case
3794: --hr_utility.set_message(801, 'HR_7528_PER_INFO5_CASE');
3795: --hr_utility.raise_error;
3796: --end if;
3797: --if g_debug then
3798: --hr_utility.set_location(l_proc,100);
3799: --end if;
3794: --hr_utility.set_message(801, 'HR_7528_PER_INFO5_CASE');
3795: --hr_utility.raise_error;
3796: --end if;
3797: --if g_debug then
3798: --hr_utility.set_location(l_proc,100);
3799: --end if;
3800: end if;
3801: if g_debug then
3802: hr_utility.set_location(l_proc,110);
3798: --hr_utility.set_location(l_proc,100);
3799: --end if;
3800: end if;
3801: if g_debug then
3802: hr_utility.set_location(l_proc,110);
3803: end if;
3804: --
3805: -- Check if p_per_information6 is in the range 0 - 99.
3806: --
3815: ,nullok => 'Y'
3816: ,rgeflg => l_rgeflg
3817: ,curcode => NULL);
3818: if g_debug then
3819: hr_utility.set_location(l_proc,120);
3820: end if;
3821: --
3822: if to_number(l_per_information6) < 0 or
3823: to_number(l_per_information6) > 99 then
3822: if to_number(l_per_information6) < 0 or
3823: to_number(l_per_information6) > 99 then
3824: -- Error: Additional pension years (PER_INFORMATION6) not in the
3825: -- range 0 - 99.
3826: hr_utility.set_message(801, 'HR_51272_PER_INFO6_INVALID');
3827: hr_utility.raise_error;
3828: end if;
3829: if g_debug then
3830: hr_utility.set_location(l_proc,130);
3823: to_number(l_per_information6) > 99 then
3824: -- Error: Additional pension years (PER_INFORMATION6) not in the
3825: -- range 0 - 99.
3826: hr_utility.set_message(801, 'HR_51272_PER_INFO6_INVALID');
3827: hr_utility.raise_error;
3828: end if;
3829: if g_debug then
3830: hr_utility.set_location(l_proc,130);
3831: end if;
3826: hr_utility.set_message(801, 'HR_51272_PER_INFO6_INVALID');
3827: hr_utility.raise_error;
3828: end if;
3829: if g_debug then
3830: hr_utility.set_location(l_proc,130);
3831: end if;
3832: end if;
3833: if g_debug then
3834: hr_utility.set_location(l_proc, 140);
3830: hr_utility.set_location(l_proc,130);
3831: end if;
3832: end if;
3833: if g_debug then
3834: hr_utility.set_location(l_proc, 140);
3835: end if;
3836: --
3837: -- Check if p_per_information7 is in the range 1 - 11.
3838: --
3847: ,nullok => 'Y'
3848: ,rgeflg => l_rgeflg
3849: ,curcode => NULL);
3850: if g_debug then
3851: hr_utility.set_location(l_proc, 150);
3852: end if;
3853: --
3854: if to_number(l_per_information7) < 1 or
3855: to_number(l_per_information7) > 11 then
3854: if to_number(l_per_information7) < 1 or
3855: to_number(l_per_information7) > 11 then
3856: -- Error: Additional pension months (PER_INFORMATION7) not in the
3857: -- range 1 - 11.
3858: hr_utility.set_message(801, 'HR_51273_PER_INFO7_INVALID');
3859: hr_utility.raise_error;
3860: end if;
3861: if g_debug then
3862: hr_utility.set_location(l_proc,160);
3855: to_number(l_per_information7) > 11 then
3856: -- Error: Additional pension months (PER_INFORMATION7) not in the
3857: -- range 1 - 11.
3858: hr_utility.set_message(801, 'HR_51273_PER_INFO7_INVALID');
3859: hr_utility.raise_error;
3860: end if;
3861: if g_debug then
3862: hr_utility.set_location(l_proc,160);
3863: end if;
3858: hr_utility.set_message(801, 'HR_51273_PER_INFO7_INVALID');
3859: hr_utility.raise_error;
3860: end if;
3861: if g_debug then
3862: hr_utility.set_location(l_proc,160);
3863: end if;
3864: end if;
3865: if g_debug then
3866: hr_utility.set_location(l_proc, 170);
3862: hr_utility.set_location(l_proc,160);
3863: end if;
3864: end if;
3865: if g_debug then
3866: hr_utility.set_location(l_proc, 170);
3867: end if;
3868: --
3869: -- Check if p_per_information8 is number.
3870: --
3879: ,nullok => 'Y'
3880: ,rgeflg => l_rgeflg
3881: ,curcode => NULL);
3882: if g_debug then
3883: hr_utility.set_location(l_proc,180);
3884: end if;
3885: end if;
3886: if g_debug then
3887: hr_utility.set_location(l_proc, 190);
3883: hr_utility.set_location(l_proc,180);
3884: end if;
3885: end if;
3886: if g_debug then
3887: hr_utility.set_location(l_proc, 190);
3888: end if;
3889: --
3890: -- Check if the per_information9 value exists in hr_lookups
3891: -- where the lookup_type is 'YES_NO'
3905: ,p_lookup_code => p_per_information9
3906: )
3907: then
3908: --
3909: hr_utility.set_message(801, 'HR_51274_PER_INFO9_INVALID');
3910: hr_utility.raise_error;
3911: --
3912: end if;
3913: if g_debug then
3906: )
3907: then
3908: --
3909: hr_utility.set_message(801, 'HR_51274_PER_INFO9_INVALID');
3910: hr_utility.raise_error;
3911: --
3912: end if;
3913: if g_debug then
3914: hr_utility.set_location(l_proc,200);
3910: hr_utility.raise_error;
3911: --
3912: end if;
3913: if g_debug then
3914: hr_utility.set_location(l_proc,200);
3915: end if;
3916: --
3917: end if;
3918: if g_debug then
3915: end if;
3916: --
3917: end if;
3918: if g_debug then
3919: hr_utility.set_location(l_proc,210);
3920: end if;
3921:
3922: -- ***** Start new code for bug 2236999 **************
3923:
3936: ,p_lookup_code => p_per_information10
3937: )
3938: then
3939: --
3940: hr_utility.set_message(801, 'HR_78105_PER_INFO10_INVALID');
3941: hr_utility.raise_error;
3942: --
3943: end if;
3944:
3937: )
3938: then
3939: --
3940: hr_utility.set_message(801, 'HR_78105_PER_INFO10_INVALID');
3941: hr_utility.raise_error;
3942: --
3943: end if;
3944:
3945: --
4029: l_info_attribute := 30;
4030: raise l_error;
4031: end if;
4032: if g_debug then
4033: hr_utility.set_location(' Leaving:'|| l_proc, 220);
4034: end if;
4035: exception
4036: when l_error then
4037: -- Error: Do not enter PER_INFORMATION99 for this legislation
4034: end if;
4035: exception
4036: when l_error then
4037: -- Error: Do not enter PER_INFORMATION99 for this legislation
4038: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4039: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4040: hr_utility.raise_error;
4041: end chk_GB_per_information;
4042: --
4035: exception
4036: when l_error then
4037: -- Error: Do not enter PER_INFORMATION99 for this legislation
4038: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4039: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4040: hr_utility.raise_error;
4041: end chk_GB_per_information;
4042: --
4043: -- ---------------------------------------------------------------------------
4036: when l_error then
4037: -- Error: Do not enter PER_INFORMATION99 for this legislation
4038: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4039: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4040: hr_utility.raise_error;
4041: end chk_GB_per_information;
4042: --
4043: -- ---------------------------------------------------------------------------
4044: -- |---------------------< chk_US_per_information >-------------------------|
4269: l_rgeflg varchar2(10);
4270: --
4271: begin
4272: if g_debug then
4273: hr_utility.set_location('Entering:'|| l_proc, 10);
4274: end if;
4275: --
4276: -- Check the mandatory parameters
4277: --
4292: ,p_argument => 'validation_end_date'
4293: ,p_argument_value => p_validation_end_date
4294: );
4295: if g_debug then
4296: hr_utility.set_location(l_proc,20);
4297: end if;
4298: --
4299: -- We know the per_information_category is US, so check the rest of
4300: -- the per_information fields within this context.
4322: ,p_lookup_code => p_per_information1
4323: )
4324: then
4325: --
4326: hr_utility.set_message(801, 'HR_7524_PER_INFO1_INVALID');
4327: hr_utility.raise_error;
4328: --
4329: end if;
4330: if g_debug then
4323: )
4324: then
4325: --
4326: hr_utility.set_message(801, 'HR_7524_PER_INFO1_INVALID');
4327: hr_utility.raise_error;
4328: --
4329: end if;
4330: if g_debug then
4331: hr_utility.set_location(l_proc,30);
4327: hr_utility.raise_error;
4328: --
4329: end if;
4330: if g_debug then
4331: hr_utility.set_location(l_proc,30);
4332: end if;
4333: --
4334: end if;
4335: if g_debug then
4332: end if;
4333: --
4334: end if;
4335: if g_debug then
4336: hr_utility.set_location( l_proc, 40);
4337: end if;
4338: --
4339: -- Check if the value for per information2 is set on insert or has
4340: -- changed on update.
4359: ,p_lookup_code => p_per_information2
4360: )
4361: then
4362: --
4363: hr_utility.set_message(801, 'HR_51243_PER_INFO2_INVALID');
4364: hr_utility.raise_error;
4365: --
4366: end if;
4367: if g_debug then
4360: )
4361: then
4362: --
4363: hr_utility.set_message(801, 'HR_51243_PER_INFO2_INVALID');
4364: hr_utility.raise_error;
4365: --
4366: end if;
4367: if g_debug then
4368: hr_utility.set_location(l_proc,50);
4364: hr_utility.raise_error;
4365: --
4366: end if;
4367: if g_debug then
4368: hr_utility.set_location(l_proc,50);
4369: end if;
4370: --
4371: end if;
4372: if g_debug then
4369: end if;
4370: --
4371: end if;
4372: if g_debug then
4373: hr_utility.set_location(l_proc, 60);
4374: end if;
4375: --
4376: -- Check if the value for per information3 is set on insert or has
4377: -- changed on update.
4391: ,output => l_output
4392: ,format => 'D'
4393: ,curcode => NULL);
4394: if g_debug then
4395: hr_utility.set_location(l_proc, 70);
4396: end if;
4397: end if;
4398: if g_debug then
4399: hr_utility.set_location(l_proc, 80);
4395: hr_utility.set_location(l_proc, 70);
4396: end if;
4397: end if;
4398: if g_debug then
4399: hr_utility.set_location(l_proc, 80);
4400: end if;
4401: --
4402: -- Check if the value for per information4 is set on insert or has
4403: -- changed on update.
4422: ,p_lookup_code => p_per_information4
4423: )
4424: then
4425: --
4426: hr_utility.set_message(801, 'HR_51245_PER_INFO4_INVALID');
4427: hr_utility.raise_error;
4428: --
4429: end if;
4430: if g_debug then
4423: )
4424: then
4425: --
4426: hr_utility.set_message(801, 'HR_51245_PER_INFO4_INVALID');
4427: hr_utility.raise_error;
4428: --
4429: end if;
4430: if g_debug then
4431: hr_utility.set_location(l_proc,90);
4427: hr_utility.raise_error;
4428: --
4429: end if;
4430: if g_debug then
4431: hr_utility.set_location(l_proc,90);
4432: end if;
4433: --
4434: end if;
4435: if g_debug then
4432: end if;
4433: --
4434: end if;
4435: if g_debug then
4436: hr_utility.set_location(l_proc, 100);
4437: end if;
4438: --
4439: -- Check if the value for per information5 is set on insert or has
4440: -- changed on update.
4459: ,p_lookup_code => p_per_information5
4460: )
4461: then
4462: --
4463: hr_utility.set_message(801, 'HR_51246_PER_INFO5_INVALID');
4464: hr_utility.raise_error;
4465: --
4466: end if;
4467: if g_debug then
4460: )
4461: then
4462: --
4463: hr_utility.set_message(801, 'HR_51246_PER_INFO5_INVALID');
4464: hr_utility.raise_error;
4465: --
4466: end if;
4467: if g_debug then
4468: hr_utility.set_location(l_proc,110);
4464: hr_utility.raise_error;
4465: --
4466: end if;
4467: if g_debug then
4468: hr_utility.set_location(l_proc,110);
4469: end if;
4470: --
4471: end if;
4472: if g_debug then
4469: end if;
4470: --
4471: end if;
4472: if g_debug then
4473: hr_utility.set_location( l_proc, 120);
4474: end if;
4475: --
4476: -- Check if the value for per information6 is set on insert or has
4477: -- changed on update.
4496: ,p_lookup_code => p_per_information6
4497: )
4498: then
4499: --
4500: hr_utility.set_message(801, 'HR_51247_PER_INFO6_INVALID');
4501: hr_utility.raise_error;
4502: --
4503: end if;
4504: if g_debug then
4497: )
4498: then
4499: --
4500: hr_utility.set_message(801, 'HR_51247_PER_INFO6_INVALID');
4501: hr_utility.raise_error;
4502: --
4503: end if;
4504: if g_debug then
4505: hr_utility.set_location(l_proc, 130);
4501: hr_utility.raise_error;
4502: --
4503: end if;
4504: if g_debug then
4505: hr_utility.set_location(l_proc, 130);
4506: end if;
4507: --
4508: end if;
4509: if g_debug then
4506: end if;
4507: --
4508: end if;
4509: if g_debug then
4510: hr_utility.set_location( l_proc, 140);
4511: end if;
4512: --
4513: -- Check if the value for per information7 is set on insert or has
4514: -- changed on update.
4533: ,p_lookup_code => p_per_information7
4534: )
4535: then
4536: --
4537: hr_utility.set_message(801, 'HR_51285_PER_INFO7_INVALID');
4538: hr_utility.raise_error;
4539: --
4540: end if;
4541: if g_debug then
4534: )
4535: then
4536: --
4537: hr_utility.set_message(801, 'HR_51285_PER_INFO7_INVALID');
4538: hr_utility.raise_error;
4539: --
4540: end if;
4541: if g_debug then
4542: hr_utility.set_location(l_proc,150);
4538: hr_utility.raise_error;
4539: --
4540: end if;
4541: if g_debug then
4542: hr_utility.set_location(l_proc,150);
4543: end if;
4544: --
4545: end if;
4546: if g_debug then
4543: end if;
4544: --
4545: end if;
4546: if g_debug then
4547: hr_utility.set_location( l_proc, 160);
4548: end if;
4549: --
4550: -- Check if the value for per information8 is set on insert or has
4551: -- changed on update.
4563: then
4564: --
4565: -- Error: Field must be null because per_info7 is not 'EXCL'
4566: --
4567: hr_utility.set_message(801, 'HR_51286_PER_INFO8_NOT_NULL');
4568: hr_utility.raise_error;
4569: else
4570: --
4571: -- Check that per information7 exists in hr_lookups for the
4564: --
4565: -- Error: Field must be null because per_info7 is not 'EXCL'
4566: --
4567: hr_utility.set_message(801, 'HR_51286_PER_INFO8_NOT_NULL');
4568: hr_utility.raise_error;
4569: else
4570: --
4571: -- Check that per information7 exists in hr_lookups for the
4572: -- lookup type 'US_NEW_HIRE_EXCEPTIONS' with an enabled flag set to 'Y'
4581: ,p_lookup_code => p_per_information8
4582: )
4583: then
4584: --
4585: hr_utility.set_message(801, 'HR_51287_PER_INFO8_INVALID');
4586: hr_utility.raise_error;
4587: --
4588: end if;
4589: if g_debug then
4582: )
4583: then
4584: --
4585: hr_utility.set_message(801, 'HR_51287_PER_INFO8_INVALID');
4586: hr_utility.raise_error;
4587: --
4588: end if;
4589: if g_debug then
4590: hr_utility.set_location( l_proc, 170);
4586: hr_utility.raise_error;
4587: --
4588: end if;
4589: if g_debug then
4590: hr_utility.set_location( l_proc, 170);
4591: end if;
4592: --
4593: end if;
4594: end if;
4592: --
4593: end if;
4594: end if;
4595: if g_debug then
4596: hr_utility.set_location( l_proc, 180);
4597: end if;
4598: --
4599: -- Check if the value for per information9 is set on insert or has
4600: -- changed on update.
4619: ,p_lookup_code => p_per_information9
4620: )
4621: then
4622: --
4623: hr_utility.set_message(801, 'HR_51288_PER_INFO9_INVALID');
4624: hr_utility.raise_error;
4625: --
4626: end if;
4627: if g_debug then
4620: )
4621: then
4622: --
4623: hr_utility.set_message(801, 'HR_51288_PER_INFO9_INVALID');
4624: hr_utility.raise_error;
4625: --
4626: end if;
4627: if g_debug then
4628: hr_utility.set_location(l_proc, 190);
4624: hr_utility.raise_error;
4625: --
4626: end if;
4627: if g_debug then
4628: hr_utility.set_location(l_proc, 190);
4629: end if;
4630: --
4631: end if;
4632: if g_debug then
4629: end if;
4630: --
4631: end if;
4632: if g_debug then
4633: hr_utility.set_location( l_proc, 200);
4634: end if;
4635: --
4636: if (((nvl(p_per_information10,hr_api.g_varchar2) <>
4637: nvl(per_per_shd.g_old_rec.per_information10,hr_api.g_varchar2)
4653: ,p_lookup_code => p_per_information10
4654: )
4655: then
4656: --
4657: hr_utility.set_message(801, 'PER_52390_PER_INFO10_INVALID');
4658: hr_utility.raise_error;
4659: --
4660: end if;
4661: if g_debug then
4654: )
4655: then
4656: --
4657: hr_utility.set_message(801, 'PER_52390_PER_INFO10_INVALID');
4658: hr_utility.raise_error;
4659: --
4660: end if;
4661: if g_debug then
4662: hr_utility.set_location(l_proc,210);
4658: hr_utility.raise_error;
4659: --
4660: end if;
4661: if g_debug then
4662: hr_utility.set_location(l_proc,210);
4663: end if;
4664: --
4665: end if;
4666: if g_debug then
4663: end if;
4664: --
4665: end if;
4666: if g_debug then
4667: hr_utility.set_location(l_proc,220);
4668: end if;
4669:
4670:
4671: -- Check if any of the remaining per_information parameters are not
4744: l_info_attribute := 30;
4745: raise l_error;
4746: end if;
4747: if g_debug then
4748: hr_utility.set_location('Leaving:'|| l_proc, 230);
4749: end if;
4750: exception
4751: when l_error then
4752: -- Error: Do not enter PER_INFORMATION99 for this legislation
4749: end if;
4750: exception
4751: when l_error then
4752: -- Error: Do not enter PER_INFORMATION99 for this legislation
4753: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4754: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4755: hr_utility.raise_error;
4756: end chk_US_per_information;
4757: --
4750: exception
4751: when l_error then
4752: -- Error: Do not enter PER_INFORMATION99 for this legislation
4753: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4754: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4755: hr_utility.raise_error;
4756: end chk_US_per_information;
4757: --
4758: -- ----------------------------------------------------------------------------
4751: when l_error then
4752: -- Error: Do not enter PER_INFORMATION99 for this legislation
4753: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4754: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4755: hr_utility.raise_error;
4756: end chk_US_per_information;
4757: --
4758: -- ----------------------------------------------------------------------------
4759: -- |------------------------
4803: l_info_attribute number(2);
4804: --
4805: begin
4806: if g_debug then
4807: hr_utility.set_location('Entering:'|| l_proc, 10);
4808: end if;
4809: --
4810: -- Check the mandatory parameters
4811: --
4826: ,p_argument => 'validation_end_date'
4827: ,p_argument_value => p_validation_end_date
4828: );
4829: if g_debug then
4830: hr_utility.set_location(l_proc,20);
4831: end if;
4832: --
4833: -- We know the per_information_category is JP, so check the rest of
4834: -- the per_information fields within this context.
4851: ,p_lookup_code => p_per_information1
4852: )
4853: then
4854: --
4855: hr_utility.set_message(801, 'HR_72022_PER_INFO1_INVALID');
4856: hr_utility.raise_error;
4857: --
4858: end if;
4859: if g_debug then
4852: )
4853: then
4854: --
4855: hr_utility.set_message(801, 'HR_72022_PER_INFO1_INVALID');
4856: hr_utility.raise_error;
4857: --
4858: end if;
4859: if g_debug then
4860: hr_utility.set_location(l_proc,30);
4856: hr_utility.raise_error;
4857: --
4858: end if;
4859: if g_debug then
4860: hr_utility.set_location(l_proc,30);
4861: end if;
4862: --
4863: end if;
4864: if g_debug then
4861: end if;
4862: --
4863: end if;
4864: if g_debug then
4865: hr_utility.set_location(l_proc,40);
4866: end if;
4867: --
4868: -- Check if the per_information2 value exists in hr_lookups
4869: -- where the lookup_type is 'JP_TERM_LOCAL_TAX_PAYMENT_TYPE'
4884: ,p_lookup_code => p_per_information2
4885: )
4886: then
4887: --
4888: hr_utility.set_message(801, 'HR_72023_PER_INFO2_INVALID');
4889: hr_utility.raise_error;
4890: --
4891: end if;
4892: if g_debug then
4885: )
4886: then
4887: --
4888: hr_utility.set_message(801, 'HR_72023_PER_INFO2_INVALID');
4889: hr_utility.raise_error;
4890: --
4891: end if;
4892: if g_debug then
4893: hr_utility.set_location(l_proc,50);
4889: hr_utility.raise_error;
4890: --
4891: end if;
4892: if g_debug then
4893: hr_utility.set_location(l_proc,50);
4894: end if;
4895: --
4896: end if;
4897: if g_debug then
4894: end if;
4895: --
4896: end if;
4897: if g_debug then
4898: hr_utility.set_location(l_proc,60);
4899: end if;
4900: --
4901: --
4902: -- Check if any of the remaining per_information parameters are not
4950: l_info_attribute := 17;
4951: raise l_error;
4952: end if;
4953: if g_debug then
4954: hr_utility.set_location(' Leaving:'|| l_proc, 210);
4955: end if;
4956: exception
4957: when l_error then
4958: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4954: hr_utility.set_location(' Leaving:'|| l_proc, 210);
4955: end if;
4956: exception
4957: when l_error then
4958: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4959: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4960: hr_utility.raise_error;
4961: end chk_JP_per_information;
4962: --
4955: end if;
4956: exception
4957: when l_error then
4958: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4959: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4960: hr_utility.raise_error;
4961: end chk_JP_per_information;
4962: --
4963: --
4956: exception
4957: when l_error then
4958: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
4959: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
4960: hr_utility.raise_error;
4961: end chk_JP_per_information;
4962: --
4963: --
4964: -- -----------------------------------------------------------------------------
4973: --
4974: Begin
4975: if g_debug then
4976: l_proc := g_package||'chk_ddf';
4977: hr_utility.set_location('Entering:'||l_proc, 5);
4978: end if;
4979: --
4980: -- Check if the row is being inserted or updated and a
4981: -- value has changed
5115: --
5116: end if;
5117: --
5118: if g_debug then
5119: hr_utility.set_location(' Leaving:'||l_proc, 10);
5120: end if;
5121: end chk_ddf;
5122: -- ---------------------------------------------------------------------------
5123: -- |-----------------------< chk_per_information >--------------------------|
5195: l_info_attribute number(2);
5196: --
5197: begin
5198: if g_debug then
5199: hr_utility.set_location('Entering:'|| l_proc, 10);
5200: end if;
5201: --
5202: -- Check mandatory parameters have been set
5203: --
5218: ,p_argument => 'validation_end_date'
5219: ,p_argument_value => p_validation_end_date
5220: );
5221: if g_debug then
5222: hr_utility.set_location(l_proc, 20);
5223: end if;
5224: --
5225: -- Only proceed with validation if:
5226: -- a) The current g_old_rec is current and
5233: ,p_effective_date => p_effective_date
5234: ,p_object_version_number => p_rec.object_version_number
5235: );
5236: if g_debug then
5237: hr_utility.set_location(l_proc, 30);
5238: end if;
5239: --
5240: if ((l_api_updating and nvl(per_per_shd.g_old_rec.per_information_category,
5241: hr_api.g_varchar2)
5332: <> nvl(p_rec.per_information30,hr_api.g_varchar2)) or
5333: (NOT l_api_updating))
5334: then
5335: if g_debug then
5336: hr_utility.set_location(l_proc, 40);
5337: end if;
5338: --
5339: -- Check if the per_information_category is 'GB' or 'US' calling
5340: -- the appropriate validation routine or generating an error
5382: ,p_effective_date => p_effective_date
5383: ,p_object_version_number => p_rec.object_version_number
5384: );
5385: if g_debug then
5386: hr_utility.set_location(l_proc, 50);
5387: end if;
5388: --
5389: elsif p_rec.per_information_category = 'US' then
5390: --
5429: ,p_object_version_number => p_rec.object_version_number
5430: ,p_api_updating => l_api_updating
5431: );
5432: if g_debug then
5433: hr_utility.set_location(l_proc, 60);
5434: end if;
5435: --
5436: /* elsif p_rec.per_information_category = 'JP' then
5437: --
5475: ,p_effective_date => p_effective_date
5476: ,p_object_version_number => p_rec.object_version_number
5477: );
5478: if g_debug then
5479: hr_utility.set_location(l_proc, 70);
5480: end if;
5481: -- */
5482: else
5483: per_per_bus.chk_ddf(p_rec => p_rec);
5484: end if;
5485: -- end if;
5486: end if;
5487: if g_debug then
5488: hr_utility.set_location(' Leaving:'|| l_proc, 100);
5489: end if;
5490: exception
5491: when l_error then
5492: -- Error: Do not enter PER_INFORMATION99 for this legislation
5489: end if;
5490: exception
5491: when l_error then
5492: -- Error: Do not enter PER_INFORMATION99 for this legislation
5493: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
5494: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
5495: hr_multi_message.add;
5496: -- hr_utility.raise_error;
5497: end chk_per_information;
5490: exception
5491: when l_error then
5492: -- Error: Do not enter PER_INFORMATION99 for this legislation
5493: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
5494: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
5495: hr_multi_message.add;
5496: -- hr_utility.raise_error;
5497: end chk_per_information;
5498: --
5492: -- Error: Do not enter PER_INFORMATION99 for this legislation
5493: hr_utility.set_message(801, 'HR_7529_PER_INFO_NOT_NULL');
5494: hr_utility.set_message_token('NUM',to_char(l_info_attribute));
5495: hr_multi_message.add;
5496: -- hr_utility.raise_error;
5497: end chk_per_information;
5498: --
5499: /* Bug#3613987 - Removed chk_JP_names procedure
5500: -- ---------------------------------------------------------------------------
5548: --
5549: begin
5550: if g_debug then
5551: l_proc := g_package||'chk_JP_names';
5552: hr_utility.set_location('Entering:'|| l_proc, 1);
5553: end if;
5554: --
5555: if hr_multi_message.no_exclusive_error
5556: (p_check_column1 => 'PER_ALL_PEOPLE_F.LAST_NAME'
5567: -- c) a record is being inserted
5568: --
5569: --
5570: if g_debug then
5571: hr_utility.set_location(l_proc, 2);
5572: end if;
5573: --
5574: if ((l_api_updating
5575: and nvl(per_per_shd.g_old_rec.last_name, hr_api.g_varchar2)
5590: ,curcode => NULL);
5591: end if;
5592: --
5593: if g_debug then
5594: hr_utility.set_location(l_proc, 3);
5595: end if;
5596: --
5597: if ((l_api_updating
5598: and nvl(per_per_shd.g_old_rec.first_name, hr_api.g_varchar2)
5614: end if;
5615: end if;
5616: --
5617: if g_debug then
5618: hr_utility.set_location(' Leaving:'|| l_proc, 5);
5619: end if;
5620: exception
5621: when app_exception.application_exception then
5622: if hr_multi_message.exception_add
5623: (p_associated_column1 => 'PER_ALL_PEOPLE_F.LAST_NAME'
5624: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.FIRST_NAME'
5625: ) then
5626: if g_debug then
5627: hr_utility.set_location(' Leaving:'||l_proc, 6);
5628: end if;
5629: raise;
5630: end if;
5631: if g_debug then
5628: end if;
5629: raise;
5630: end if;
5631: if g_debug then
5632: hr_utility.set_location(' Leaving:'||l_proc,7);
5633: end if;
5634: end chk_JP_names;
5635: */
5636: --
5774: l_local_name varchar2(240);
5775: --
5776: begin
5777: if g_debug then
5778: hr_utility.set_location('Entering:'|| l_proc, 10);
5779: end if;
5780: --
5781: -- Check mandatory parameters have been set
5782: --
5795: -- Check if the last name is set.
5796: --
5797: if p_last_name is null then
5798: --
5799: hr_utility.set_message(801, 'PER_52076_PER_NULL_LAST_NAME');
5800: hr_utility.raise_error;
5801: --
5802: end if;
5803: --
5796: --
5797: if p_last_name is null then
5798: --
5799: hr_utility.set_message(801, 'PER_52076_PER_NULL_LAST_NAME');
5800: hr_utility.raise_error;
5801: --
5802: end if;
5803: --
5804: if hr_multi_message.no_all_inclusive_error
6041: <> nvl(p_attribute30,hr_api.g_varchar2)) or
6042: (NOT l_api_updating)) then
6043: --
6044: if g_debug then
6045: hr_utility.set_location(l_proc, 20);
6046: end if;
6047: --
6048: l_duplicate_flag := 'N';
6049: --
6156: --
6157: if l_duplicate_flag = 'Y' then
6158: p_name_combination_warning := TRUE;
6159: if g_debug then
6160: hr_utility.set_location(l_proc,25);
6161: end if;
6162: end if;
6163: --
6164: if g_debug then
6161: end if;
6162: end if;
6163: --
6164: if g_debug then
6165: hr_utility.set_location(l_proc, 30);
6166: end if;
6167: else
6168: --
6169: -- We are not updating the name so we must return the current full_name
6174: p_local_name := per_per_shd.g_old_rec.local_name;
6175: end if;
6176: end if;
6177: if g_debug then
6178: hr_utility.set_location(' Leaving:'|| l_proc, 40);
6179: end if;
6180: exception
6181: when app_exception.application_exception then
6182: if hr_multi_message.exception_add
6182: if hr_multi_message.exception_add
6183: (p_associated_column1 => 'PER_ALL_PEOPLE_F.LAST_NAME'
6184: ) then
6185: if g_debug then
6186: hr_utility.set_location(' Leaving:'||l_proc, 50);
6187: end if;
6188: raise;
6189: end if;
6190: if g_debug then
6187: end if;
6188: raise;
6189: end if;
6190: if g_debug then
6191: hr_utility.set_location(' Leaving:'||l_proc,60);
6192: end if;
6193: end return_full_name;
6194: -- ---------------------------------------------------------------------------
6195: -- |-----------------------< chk_applicant_number >------------------------|
6342: --
6343: begin
6344: --
6345: if g_debug then
6346: hr_utility.set_location('Entering '||l_proc,10);
6347: end if;
6348: --
6349: -- Assume we have not changed the system_person_type, so set return
6350: -- variable to FALSE.
6355: --
6356: if p_new_person_type_id <> p_old_person_type_id then
6357: --
6358: if g_debug then
6359: hr_utility.set_location(l_proc, 20);
6360: end if;
6361: --
6362: -- Get the system_person_type for the 'new' person_type_id
6363: --
6365: (p_person_type_Id =>p_new_person_type_id
6366: ,p_business_group_id =>p_business_group_id
6367: );
6368: if g_debug then
6369: hr_utility.set_location(l_proc, 30);
6370: end if;
6371: --
6372: -- Get the system_person_type for the 'old' person_type_id
6373: --
6387: (l_old_system_person_type = 'EX_EMP' and
6388: l_new_system_person_type = 'EX_EMP_APL')) then
6389: --
6390: if g_debug then
6391: hr_utility.set_location(l_proc, 40);
6392: end if;
6393: --
6394: l_return_status := true;
6395: end if;
6393: --
6394: l_return_status := true;
6395: end if;
6396: if g_debug then
6397: hr_utility.set_location(l_proc, 50);
6398: end if;
6399: end if;
6400: if g_debug then
6401: hr_utility.set_location(' Leaving '||l_proc, 60);
6397: hr_utility.set_location(l_proc, 50);
6398: end if;
6399: end if;
6400: if g_debug then
6401: hr_utility.set_location(' Leaving '||l_proc, 60);
6402: end if;
6403: return l_return_status;
6404: end apl_sys_per_type_change;
6405: --
6404: end apl_sys_per_type_change;
6405: --
6406: begin
6407: if g_debug then
6408: hr_utility.set_location('Entering:'|| l_proc, 1);
6409: end if;
6410: --
6411: -- Check mandatory parameters have been set
6412: --
6433: (p_person_id => p_person_id
6434: ,p_effective_date => p_effective_date
6435: ,p_object_version_number => p_object_version_number);
6436: if g_debug then
6437: hr_utility.set_location(l_proc, 2);
6438: end if;
6439: --
6440: -- Need to validate/generate the applicant number if the applicant number
6441: -- has changed or if the system person type has changed in such a way
6452: or
6453: (NOT l_api_updating)) then
6454: --
6455: if g_debug then
6456: hr_utility.set_location(l_proc, 3);
6457: end if;
6458: --
6459: -- Get the generation method for applicant numbers for the
6460: -- business group
6462: open csr_gen_meth;
6463: fetch csr_gen_meth into l_gen_method;
6464: close csr_gen_meth;
6465: if g_debug then
6466: hr_utility.set_location(l_proc, 4);
6467: end if;
6468: --
6469: -- Get the system person type for the type id
6470: --
6472: (p_person_type_id => p_person_type_id
6473: ,p_business_group_id => p_business_group_id
6474: );
6475: if g_debug then
6476: hr_utility.set_location(l_proc, 5);
6477: end if;
6478: --
6479: -- If system_person_type is OTHER, applicant number must be NULL
6480: --
6479: -- If system_person_type is OTHER, applicant number must be NULL
6480: --
6481: if (l_system_person_type = 'OTHER' and
6482: p_applicant_number is not null) then
6483: hr_utility.set_message(801, 'HR_51199_PER_APP_NOT_NULL');
6484: l_apl_sys := true;
6485: hr_utility.raise_error;
6486: end if;
6487: if g_debug then
6481: if (l_system_person_type = 'OTHER' and
6482: p_applicant_number is not null) then
6483: hr_utility.set_message(801, 'HR_51199_PER_APP_NOT_NULL');
6484: l_apl_sys := true;
6485: hr_utility.raise_error;
6486: end if;
6487: if g_debug then
6488: hr_utility.set_location(l_proc, 6);
6489: end if;
6484: l_apl_sys := true;
6485: hr_utility.raise_error;
6486: end if;
6487: if g_debug then
6488: hr_utility.set_location(l_proc, 6);
6489: end if;
6490: --
6491: -- If system person type is EMP, applicant number must be NULL
6492: -- on insert
6493: --
6494: if (NOT l_api_updating and
6495: l_system_person_type = 'EMP' and
6496: p_applicant_number is not null) then
6497: hr_utility.set_message(801, 'HR_51202_PER_APL_NOT_NULL');
6498: l_apl_sys := true;
6499: hr_utility.raise_error;
6500: end if;
6501: if g_debug then
6495: l_system_person_type = 'EMP' and
6496: p_applicant_number is not null) then
6497: hr_utility.set_message(801, 'HR_51202_PER_APL_NOT_NULL');
6498: l_apl_sys := true;
6499: hr_utility.raise_error;
6500: end if;
6501: if g_debug then
6502: hr_utility.set_location(l_proc, 7);
6503: end if;
6498: l_apl_sys := true;
6499: hr_utility.raise_error;
6500: end if;
6501: if g_debug then
6502: hr_utility.set_location(l_proc, 7);
6503: end if;
6504: --
6505: -- If system person type is EMP or EX_EMP and we are updating then
6506: -- applicant number cannot change to null
6508: if (l_api_updating) then
6509: if (l_system_person_type in ('EMP','EX_EMP') and
6510: per_per_shd.g_old_rec.applicant_number is not null and
6511: p_applicant_number is null) then
6512: hr_utility.set_message(801, 'HR_51200_PER_APL_NOT_NULL_UPD');
6513: l_apl_sys := true;
6514: hr_utility.raise_error;
6515: end if;
6516: if g_debug then
6510: per_per_shd.g_old_rec.applicant_number is not null and
6511: p_applicant_number is null) then
6512: hr_utility.set_message(801, 'HR_51200_PER_APL_NOT_NULL_UPD');
6513: l_apl_sys := true;
6514: hr_utility.raise_error;
6515: end if;
6516: if g_debug then
6517: hr_utility.set_location(l_proc, 8);
6518: end if;
6513: l_apl_sys := true;
6514: hr_utility.raise_error;
6515: end if;
6516: if g_debug then
6517: hr_utility.set_location(l_proc, 8);
6518: end if;
6519: end if;
6520: if g_debug then
6521: hr_utility.set_location(l_proc, 9);
6517: hr_utility.set_location(l_proc, 8);
6518: end if;
6519: end if;
6520: if g_debug then
6521: hr_utility.set_location(l_proc, 9);
6522: end if;
6523: --
6524: -- Check that on update with Automatic number generation
6525: -- the applicant number is not changed.
6527: if (l_api_updating and
6528: nvl(per_per_shd.g_old_rec.applicant_number,hr_api.g_varchar2) <>
6529: nvl(p_applicant_number, hr_api.g_varchar2) and
6530: l_gen_method = 'A') then
6531: hr_utility.set_message(801, 'HR_51201_PER_INV_APL_UPD');
6532: hr_utility.raise_error;
6533: end if;
6534: if g_debug then
6535: hr_utility.set_location(l_proc,11);
6528: nvl(per_per_shd.g_old_rec.applicant_number,hr_api.g_varchar2) <>
6529: nvl(p_applicant_number, hr_api.g_varchar2) and
6530: l_gen_method = 'A') then
6531: hr_utility.set_message(801, 'HR_51201_PER_INV_APL_UPD');
6532: hr_utility.raise_error;
6533: end if;
6534: if g_debug then
6535: hr_utility.set_location(l_proc,11);
6536: end if;
6531: hr_utility.set_message(801, 'HR_51201_PER_INV_APL_UPD');
6532: hr_utility.raise_error;
6533: end if;
6534: if g_debug then
6535: hr_utility.set_location(l_proc,11);
6536: end if;
6537: --
6538: -- On update, If system person type is EMP and no previous sys per
6539: -- type change then applicant number must be null
6545: ,p_person_id => p_person_id
6546: ,p_business_group_id => p_business_group_id
6547: ,p_effective_start_date => p_effective_date) and
6548: p_applicant_number is not null) then
6549: hr_utility.set_message(801, 'HR_51202_PER_APP_NOT_NULL_SPT');
6550: l_apl_sys := true;
6551: hr_utility.raise_error;
6552: end if;
6553: if g_debug then
6547: ,p_effective_start_date => p_effective_date) and
6548: p_applicant_number is not null) then
6549: hr_utility.set_message(801, 'HR_51202_PER_APP_NOT_NULL_SPT');
6550: l_apl_sys := true;
6551: hr_utility.raise_error;
6552: end if;
6553: if g_debug then
6554: hr_utility.set_location(l_proc,12);
6555: end if;
6550: l_apl_sys := true;
6551: hr_utility.raise_error;
6552: end if;
6553: if g_debug then
6554: hr_utility.set_location(l_proc,12);
6555: end if;
6556: --
6557: -- Now call the generate routine. We are either in insert mode
6558: -- or updating a manually generated applicant number
6571: ,p_date_of_birth => p_date_of_birth
6572: ,p_start_date => p_effective_date);
6573:
6574: if g_debug then
6575: hr_utility.set_location(l_proc,13);
6576: end if;
6577: --
6578: -- Check uniqueness of generated number
6579: --
6579: --
6580: if l_gen_method <> 'A' then
6581: --
6582: if g_debug then
6583: hr_utility.set_location(l_proc,14);
6584: end if;
6585: --
6586: hr_person.validate_unique_number
6587: (p_person_id => p_person_id
6593: ,p_current_applicant => p_current_applicant
6594: ,p_current_npw => 'N');
6595: --
6596: if g_debug then
6597: hr_utility.set_location(l_proc,15);
6598: end if;
6599: --
6600: end if;
6601: --
6600: end if;
6601: --
6602: end if;
6603: if g_debug then
6604: hr_utility.set_location(' Leaving:'|| l_proc,16);
6605: end if;
6606: exception
6607: when app_exception.application_exception then
6608: if not l_apl_sys
6610: if hr_multi_message.exception_add
6611: (p_associated_column1 => 'PER_ALL_PEOPLE_F.APPLICANT_NUMBER'
6612: ) then
6613: if g_debug then
6614: hr_utility.set_location(' Leaving:'||l_proc, 17);
6615: end if;
6616: raise;
6617: end if;
6618: else
6620: (p_associated_column1 => 'PER_ALL_PEOPLE_F.APPLICANT_NUMBER'
6621: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.PERSON_TYPE_ID'
6622: ) then
6623: if g_debug then
6624: hr_utility.set_location(' Leaving:'||l_proc, 17);
6625: end if;
6626: raise;
6627: end if;
6628: end if;
6626: raise;
6627: end if;
6628: end if;
6629: if g_debug then
6630: hr_utility.set_location(' Leaving:'||l_proc,18);
6631: end if;
6632: end chk_applicant_number;
6633: --
6634: -- ---------------------------------------------------------------------------
6677: --
6678: begin
6679: if g_debug then
6680: l_proc := g_package||'chk_date_employee_data_verified';
6681: hr_utility.set_location('Entering:'|| l_proc, 1);
6682: end if;
6683: --
6684: -- Check if the person is being updated
6685: --
6687: (p_person_id => p_person_id
6688: ,p_effective_date => p_effective_start_date
6689: ,p_object_version_number => p_object_version_number);
6690: if g_debug then
6691: hr_utility.set_location(l_proc, 2);
6692: end if;
6693: --
6694: if ((l_api_updating and
6695: nvl(per_per_shd.g_old_rec.date_employee_data_verified,
6696: hr_api.g_date) <> nvl(p_date_employee_data_verified,
6697: hr_api.g_date)) or (NOT l_api_updating)) then
6698: --
6699: if g_debug then
6700: hr_utility.set_location(l_proc, 3);
6701: end if;
6702: --
6703: -- Check that date employee data verified is valid
6704: --
6707:
6708: --if p_date_employee_data_verified is not null and
6709: -- p_date_employee_data_verified < p_effective_start_date then
6710: -- Error: Invalid value
6711: -- hr_utility.set_message(801, 'HR_51256_PER_DTE_EMP_DTE_START');
6712: -- hr_utility.raise_error;
6713: --end if;
6714:
6715: --
6708: --if p_date_employee_data_verified is not null and
6709: -- p_date_employee_data_verified < p_effective_start_date then
6710: -- Error: Invalid value
6711: -- hr_utility.set_message(801, 'HR_51256_PER_DTE_EMP_DTE_START');
6712: -- hr_utility.raise_error;
6713: --end if;
6714:
6715: --
6716: if g_debug then
6713: --end if;
6714:
6715: --
6716: if g_debug then
6717: hr_utility.set_location(l_proc, 4);
6718: end if;
6719: end if;
6720: if g_debug then
6721: hr_utility.set_location(' Leaving:'|| l_proc, 5);
6717: hr_utility.set_location(l_proc, 4);
6718: end if;
6719: end if;
6720: if g_debug then
6721: hr_utility.set_location(' Leaving:'|| l_proc, 5);
6722: end if;
6723: exception
6724: when app_exception.application_exception then
6725: if hr_multi_message.exception_add
6726: (p_associated_column1 => 'PER_ALL_PEOPLE_F.DATE_EMPLOYEE_DATA_VERIFIED'
6727: ,p_associated_column2 => 'PER_ALL_PEOPLE_F.EFFECTIVE_START_DATE'
6728: ) then
6729: if g_debug then
6730: hr_utility.set_location(' Leaving:'||l_proc, 6);
6731: end if;
6732: raise;
6733: end if;
6734: if g_debug then
6731: end if;
6732: raise;
6733: end if;
6734: if g_debug then
6735: hr_utility.set_location(' Leaving:'||l_proc,7);
6736: end if;
6737: end chk_date_emp_data_verified;
6738: --
6739: -- ---------------------------------------------------------------------------
6791: --
6792: begin
6793: if g_debug then
6794: l_proc := g_package||'chk_vendor_id';
6795: hr_utility.set_location('Entering:'|| l_proc, 10);
6796: end if;
6797: --
6798: -- Check if the person is being updated
6799: --
6801: (p_person_id => p_person_id
6802: ,p_effective_date => p_effective_date
6803: ,p_object_version_number => p_object_version_number);
6804: if g_debug then
6805: hr_utility.set_location(l_proc, 20);
6806: end if;
6807: --
6808: if ((l_api_updating and
6809: nvl(per_per_shd.g_old_rec.vendor_id, hr_api.g_number) <>
6810: nvl(p_vendor_id, hr_api.g_number)) or
6811: (NOT l_api_updating)) then
6812: --
6813: if g_debug then
6814: hr_utility.set_location(l_proc, 30);
6815: end if;
6816: --
6817: -- Check the system person type and validate as appropriate.
6818: --
6823: -- in the PO_VENDORS table.
6824: --
6825: if p_vendor_id is not null then
6826: if g_debug then
6827: hr_utility.set_location(l_proc, 40);
6828: end if;
6829: open csr_chk_vendor;
6830: fetch csr_chk_vendor into l_exists;
6831: if csr_chk_vendor%notfound then
6832: close csr_chk_vendor;
6833: --
6834: -- Error : Invalid vendor id
6835: --
6836: hr_utility.set_message(801,'HR_51249_PER_INVALID_VENDOR');
6837: hr_utility.raise_error;
6838: end if;
6839: close csr_chk_vendor;
6840: if g_debug then
6833: --
6834: -- Error : Invalid vendor id
6835: --
6836: hr_utility.set_message(801,'HR_51249_PER_INVALID_VENDOR');
6837: hr_utility.raise_error;
6838: end if;
6839: close csr_chk_vendor;
6840: if g_debug then
6841: hr_utility.set_location(l_proc, 50);
6837: hr_utility.raise_error;
6838: end if;
6839: close csr_chk_vendor;
6840: if g_debug then
6841: hr_utility.set_location(l_proc, 50);
6842: end if;
6843: end if;
6844: else
6845: --
6843: end if;
6844: else
6845: --
6846: if g_debug then
6847: hr_utility.set_location(l_proc, 60);
6848: end if;
6849: --
6850: -- Vendor id must be null.
6851: --
6852: if p_vendor_id is not null then
6853: --
6854: -- Error : Vendor must be null
6855: --
6856: hr_utility.set_message(801, 'HR_51250_PER_VENDOR_NOT_NULL');
6857: hr_utility.raise_error;
6858: end if;
6859: if g_debug then
6860: hr_utility.set_location(l_proc, 70);
6853: --
6854: -- Error : Vendor must be null
6855: --
6856: hr_utility.set_message(801, 'HR_51250_PER_VENDOR_NOT_NULL');
6857: hr_utility.raise_error;
6858: end if;
6859: if g_debug then
6860: hr_utility.set_location(l_proc, 70);
6861: end if;
6856: hr_utility.set_message(801, 'HR_51250_PER_VENDOR_NOT_NULL');
6857: hr_utility.raise_error;
6858: end if;
6859: if g_debug then
6860: hr_utility.set_location(l_proc, 70);
6861: end if;
6862: end if;
6863: end if;
6864: --
6862: end if;
6863: end if;
6864: --
6865: if g_debug then
6866: hr_utility.set_location(' Leaving:'|| l_proc, 80);
6867: end if;
6868: exception
6869: when app_exception.application_exception then
6870: if hr_multi_message.exception_add
6870: if hr_multi_message.exception_add
6871: (p_associated_column1 => 'PER_ALL_PEOPLE_F.VENDOR_ID'
6872: ) then
6873: if g_debug then
6874: hr_utility.set_location(' Leaving:'||l_proc, 90);
6875: end if;
6876: raise;
6877: end if;
6878: if g_debug then
6875: end if;
6876: raise;
6877: end if;
6878: if g_debug then
6879: hr_utility.set_location(' Leaving:'||l_proc,100);
6880: end if;
6881: end chk_vendor_id;
6882: --
6883: -- ---------------------------------------------------------------------------
6918: l_api_updating boolean;
6919: --
6920: begin
6921: if g_debug then
6922: hr_utility.set_location('Entering:'|| l_proc, 10);
6923: end if;
6924: --
6925: -- Check mandatory parameters have been set
6926: --
6930: ,p_argument_value => p_effective_date
6931: );
6932: --
6933: if g_debug then
6934: hr_utility.set_location(l_proc, 20);
6935: end if;
6936: --
6937: -- Only proceed with validation if:
6938: -- a) The current g_old_rec is current and
6944: ,p_effective_date => p_effective_date
6945: ,p_object_version_number => p_object_version_number
6946: );
6947: if g_debug then
6948: hr_utility.set_location(l_proc, 30);
6949: end if;
6950: --
6951: if ((l_api_updating
6952: and nvl(per_per_shd.g_old_rec.suffix, hr_api.g_varchar2)
6954: or
6955: (NOT l_api_updating))
6956: then
6957: if g_debug then
6958: hr_utility.set_location(l_proc, 40);
6959: end if;
6960: --
6961: end if;
6962: if g_debug then
6959: end if;
6960: --
6961: end if;
6962: if g_debug then
6963: hr_utility.set_location(' Leaving:'|| l_proc, 70);
6964: end if;
6965: end chk_suffix;
6966: --
6967: -- ---------------------------------------------------------------------------
7000: --
7001: begin
7002: if g_debug then
7003: l_proc := g_package||'chk_work_telephone';
7004: hr_utility.set_location('Entering:'|| l_proc, 10);
7005: end if;
7006:
7007: l_api_updating := per_per_shd.api_updating
7008: (p_person_id => p_person_id
7009: ,p_effective_date => p_effective_date
7010: ,p_object_version_number => p_object_version_number
7011: );
7012: if g_debug then
7013: hr_utility.set_location(l_proc, 30);
7014: end if;
7015: --
7016: if ((l_api_updating
7017: and nvl(per_per_shd.g_old_rec.work_telephone, hr_api.g_varchar2)
7022: --
7023: -- Check parameter is null
7024: --
7025: if g_debug then
7026: hr_utility.set_location('Work Number is:'|| p_work_telephone, 15);
7027: end if;
7028: if p_work_telephone is not null then
7029: hr_utility.set_message(801, 'HR_52217_PER_INVALID_PHONE');
7030: hr_utility.raise_error;
7025: if g_debug then
7026: hr_utility.set_location('Work Number is:'|| p_work_telephone, 15);
7027: end if;
7028: if p_work_telephone is not null then
7029: hr_utility.set_message(801, 'HR_52217_PER_INVALID_PHONE');
7030: hr_utility.raise_error;
7031: end if;
7032: end if;
7033: if g_debug then
7026: hr_utility.set_location('Work Number is:'|| p_work_telephone, 15);
7027: end if;
7028: if p_work_telephone is not null then
7029: hr_utility.set_message(801, 'HR_52217_PER_INVALID_PHONE');
7030: hr_utility.raise_error;
7031: end if;
7032: end if;
7033: if g_debug then
7034: hr_utility.set_location(' Leaving:'|| l_proc, 70);
7030: hr_utility.raise_error;
7031: end if;
7032: end if;
7033: if g_debug then
7034: hr_utility.set_location(' Leaving:'|| l_proc, 70);
7035: end if;
7036: exception
7037: when app_exception.application_exception then
7038: if hr_multi_message.exception_add
7038: if hr_multi_message.exception_add
7039: (p_associated_column1 => 'PER_ALL_PEOPLE_F.WORK_TELEPHONE'
7040: ) then
7041: if g_debug then
7042: hr_utility.set_location(' Leaving:'||l_proc, 80);
7043: end if;
7044: raise;
7045: end if;
7046: if g_debug then
7043: end if;
7044: raise;
7045: end if;
7046: if g_debug then
7047: hr_utility.set_location(' Leaving:'||l_proc,90);
7048: end if;
7049: end chk_work_telephone;
7050: --
7051: -- Fix 3573040
7086: begin
7087: -- Bug fix 38383715. Modified if condition.
7088: if p_per_information_category is not null
7089: and p_per_information_category <> p_legislation_code then
7090: hr_utility.set_message( 800, 'PER_449162_INFO_CATEGORY' );
7091: hr_utility.raise_error;
7092: else
7093: PER_PEOPLE3_PKG.get_ddf_exists
7094: ( p_legislation_code => p_legislation_code
7087: -- Bug fix 38383715. Modified if condition.
7088: if p_per_information_category is not null
7089: and p_per_information_category <> p_legislation_code then
7090: hr_utility.set_message( 800, 'PER_449162_INFO_CATEGORY' );
7091: hr_utility.raise_error;
7092: else
7093: PER_PEOPLE3_PKG.get_ddf_exists
7094: ( p_legislation_code => p_legislation_code
7095: , p_ddf_exists => l_ddf_exists );
7164: );
7165: --
7166: begin
7167: if g_debug then
7168: hr_utility.set_location('Entering:'|| l_proc, 10);
7169: end if;
7170: --
7171: -- Check mandatory parameters have been set
7172: --
7193: ,p_argument => 'datetrack mode'
7194: ,p_argument_value => p_datetrack_mode
7195: );
7196: if g_debug then
7197: hr_utility.set_location(l_proc, 20);
7198: end if;
7199: --
7200: -- If delete mode is DELETE_NEXT_CHANGE or FUTURE_CHANGE
7201: -- check if rows exist in PER_PEOPLE_F where the system person type has
7212: fetch csr_chk_future_changes into l_exists;
7213: if csr_chk_future_changes%found then
7214: close csr_chk_future_changes;
7215: -- Error: Delete not allowed
7216: hr_utility.set_message(801, 'HR_7726_PER_DEL_NOT_ALLOWED');
7217: hr_utility.raise_error;
7218: end if;
7219: close csr_chk_future_changes;
7220: if g_debug then
7213: if csr_chk_future_changes%found then
7214: close csr_chk_future_changes;
7215: -- Error: Delete not allowed
7216: hr_utility.set_message(801, 'HR_7726_PER_DEL_NOT_ALLOWED');
7217: hr_utility.raise_error;
7218: end if;
7219: close csr_chk_future_changes;
7220: if g_debug then
7221: hr_utility.set_location(l_proc, 20);
7217: hr_utility.raise_error;
7218: end if;
7219: close csr_chk_future_changes;
7220: if g_debug then
7221: hr_utility.set_location(l_proc, 20);
7222: end if;
7223: end if;
7224: --
7225: if g_debug then
7222: end if;
7223: end if;
7224: --
7225: if g_debug then
7226: hr_utility.set_location(l_proc, 3);
7227: end if;
7228: --
7229: -- If delete mode in ('ZAP','DELETE','DELETE_NEXT_CHANGE',
7230: -- 'FUTURE_CHANGE') then
7256: --
7257: end if;
7258: --
7259: if g_debug then
7260: hr_utility.set_location(' Leaving:'|| l_proc, 4);
7261: end if;
7262: end chk_delete;
7263: --
7264: -- ----------------------------------------------------------------------------
7297: l_proc varchar2(72) := g_package||'check_non_updateable_args';
7298: --
7299: Begin
7300: if g_debug then
7301: hr_utility.set_location('Entering:'||l_proc, 5);
7302: end if;
7303: --
7304: -- Only proceed with validation if a row exists for
7305: -- the current record in the HR Schema
7307: if not per_per_shd.api_updating
7308: (p_person_id => p_rec.person_id
7309: ,p_effective_date => p_effective_date
7310: ,p_object_version_number => p_rec.object_version_number) then
7311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7312: hr_utility.set_message_token('PROCEDURE', l_proc);
7313: hr_utility.set_message_token('STEP', '5');
7314: end if;
7315: --
7308: (p_person_id => p_rec.person_id
7309: ,p_effective_date => p_effective_date
7310: ,p_object_version_number => p_rec.object_version_number) then
7311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7312: hr_utility.set_message_token('PROCEDURE', l_proc);
7313: hr_utility.set_message_token('STEP', '5');
7314: end if;
7315: --
7316: if g_debug then
7309: ,p_effective_date => p_effective_date
7310: ,p_object_version_number => p_rec.object_version_number) then
7311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7312: hr_utility.set_message_token('PROCEDURE', l_proc);
7313: hr_utility.set_message_token('STEP', '5');
7314: end if;
7315: --
7316: if g_debug then
7317: hr_utility.set_location(l_proc, 6);
7313: hr_utility.set_message_token('STEP', '5');
7314: end if;
7315: --
7316: if g_debug then
7317: hr_utility.set_location(l_proc, 6);
7318: end if;
7319: --
7320: if nvl(p_rec.business_group_id, hr_api.g_number) <>
7321: nvl(per_per_shd.g_old_rec.business_group_id, hr_api.g_number) then
7326: ,p_base_table => per_per_shd.g_tab_nam
7327: );
7328: end if;
7329: if g_debug then
7330: hr_utility.set_location(' Leaving '||l_proc, 7);
7331: end if;
7332: --
7333: end check_non_updateable_args;
7334: --
7372: l_table_name all_tables.table_name%TYPE;
7373: --
7374: Begin
7375: if g_debug then
7376: hr_utility.set_location('Entering:'||l_proc, 5);
7377: end if;
7378: --
7379: -- Ensure that the p_datetrack_mode argument is not null
7380: --
7404: --
7405: End If;
7406: --
7407: if g_debug then
7408: hr_utility.set_location(' Leaving:'||l_proc, 10);
7409: end if;
7410: Exception
7411: /*When l_integrity_error Then
7412: --
7412: --
7413: -- A referential integrity check was violated therefore
7414: -- we must error
7415: --
7416: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
7417: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7418: hr_utility.raise_error;*/
7419: When Others Then
7420: --
7413: -- A referential integrity check was violated therefore
7414: -- we must error
7415: --
7416: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
7417: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7418: hr_utility.raise_error;*/
7419: When Others Then
7420: --
7421: -- An unhandled or unexpected error has occurred which
7414: -- we must error
7415: --
7416: hr_utility.set_message(801, 'HR_7216_DT_UPD_INTEGRITY_ERR');
7417: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7418: hr_utility.raise_error;*/
7419: When Others Then
7420: --
7421: -- An unhandled or unexpected error has occurred which
7422: -- we must report
7420: --
7421: -- An unhandled or unexpected error has occurred which
7422: -- we must report
7423: --
7424: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7425: hr_utility.set_message_token('PROCEDURE', l_proc);
7426: hr_utility.set_message_token('STEP','15');
7427: hr_utility.raise_error;
7428: End dt_update_validate;
7421: -- An unhandled or unexpected error has occurred which
7422: -- we must report
7423: --
7424: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7425: hr_utility.set_message_token('PROCEDURE', l_proc);
7426: hr_utility.set_message_token('STEP','15');
7427: hr_utility.raise_error;
7428: End dt_update_validate;
7429: --
7422: -- we must report
7423: --
7424: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7425: hr_utility.set_message_token('PROCEDURE', l_proc);
7426: hr_utility.set_message_token('STEP','15');
7427: hr_utility.raise_error;
7428: End dt_update_validate;
7429: --
7430: -- ----------------------------------------------------------------------------
7423: --
7424: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7425: hr_utility.set_message_token('PROCEDURE', l_proc);
7426: hr_utility.set_message_token('STEP','15');
7427: hr_utility.raise_error;
7428: End dt_update_validate;
7429: --
7430: -- ----------------------------------------------------------------------------
7431: -- |--------------------------< dt_delete_validate >--------------------------|
7473: l_table_name all_tables.table_name%TYPE;
7474: --
7475: Begin
7476: if g_debug then
7477: hr_utility.set_location('Entering:'||l_proc, 5);
7478: end if;
7479: --
7480: -- Ensure that the p_datetrack_mode argument is not null
7481: --
7515: p_base_key_value => p_person_id,
7516: p_from_date => p_validation_start_date,
7517: p_to_date => p_validation_end_date)) then
7518: l_table_name := 'contracts';
7519: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
7520: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7521: hr_multi_message.add;
7522: -- raise l_rows_exist;
7523: end if;
7516: p_from_date => p_validation_start_date,
7517: p_to_date => p_validation_end_date)) then
7518: l_table_name := 'contracts';
7519: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
7520: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7521: hr_multi_message.add;
7522: -- raise l_rows_exist;
7523: end if;
7524: --
7525: --
7526: End If;
7527: --
7528: if g_debug then
7529: hr_utility.set_location(' Leaving:'||l_proc, 10);
7530: end if;
7531: Exception
7532: /*When l_rows_exist Then
7533: --
7533: --
7534: -- A referential integrity check was violated therefore
7535: -- we must error
7536: --
7537: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
7538: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7539: hr_utility.raise_error;*/
7540: When Others Then
7541: --
7534: -- A referential integrity check was violated therefore
7535: -- we must error
7536: --
7537: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
7538: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7539: hr_utility.raise_error;*/
7540: When Others Then
7541: --
7542: -- An unhandled or unexpected error has occurred which
7535: -- we must error
7536: --
7537: hr_utility.set_message(801, 'HR_7215_DT_CHILD_EXISTS');
7538: hr_utility.set_message_token('TABLE_NAME', l_table_name);
7539: hr_utility.raise_error;*/
7540: When Others Then
7541: --
7542: -- An unhandled or unexpected error has occurred which
7543: -- we must report
7541: --
7542: -- An unhandled or unexpected error has occurred which
7543: -- we must report
7544: --
7545: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7546: hr_utility.set_message_token('PROCEDURE', l_proc);
7547: hr_utility.set_message_token('STEP','15');
7548: hr_utility.raise_error;
7549: End dt_delete_validate;
7542: -- An unhandled or unexpected error has occurred which
7543: -- we must report
7544: --
7545: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7546: hr_utility.set_message_token('PROCEDURE', l_proc);
7547: hr_utility.set_message_token('STEP','15');
7548: hr_utility.raise_error;
7549: End dt_delete_validate;
7550: --
7543: -- we must report
7544: --
7545: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7546: hr_utility.set_message_token('PROCEDURE', l_proc);
7547: hr_utility.set_message_token('STEP','15');
7548: hr_utility.raise_error;
7549: End dt_delete_validate;
7550: --
7551: -- -----------------------------------------------------------------------
7544: --
7545: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
7546: hr_utility.set_message_token('PROCEDURE', l_proc);
7547: hr_utility.set_message_token('STEP','15');
7548: hr_utility.raise_error;
7549: End dt_delete_validate;
7550: --
7551: -- -----------------------------------------------------------------------
7552: -- |------------------------------< chk_df >-----------------------------|
7582: --
7583: begin
7584: if g_debug then
7585: l_proc := g_package||'chk_df';
7586: hr_utility.set_location('Entering:'||l_proc, 10);
7587: end if;
7588: --
7589: if ((p_rec.person_id is not null) and (
7590: nvl(per_per_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
7723: );
7724: end if;
7725: --
7726: if g_debug then
7727: hr_utility.set_location(' Leaving:'||l_proc, 20);
7728: end if;
7729:
7730: end chk_df;
7731: --
7768: --
7769: Begin
7770: if g_debug then
7771: l_proc := g_package||'insert_validate';
7772: hr_utility.set_location('Entering:'||l_proc, 10);
7773: end if;
7774: --
7775: -- Set global variable used to improve calling of return_system_status_type
7776: -- when called multiple times on same pass through the validation process.
7801: ,p_associated_column1 => per_per_shd.g_tab_nam || '.BUSINESS_GROUP_ID'
7802: );
7803: hr_multi_message.end_validation_set;
7804: if g_debug then
7805: hr_utility.set_location(l_proc, 20);
7806: end if;
7807: --
7808: -- Validate Correspondence Language
7809: --
7846: ,p_validation_end_date => p_validation_end_date
7847: ,p_object_version_number => p_rec.object_version_number
7848: );
7849: if g_debug then
7850: hr_utility.set_location(l_proc, 30);
7851: end if;
7852: --
7853: -- Validate Blood Type
7854: --
7860: ,p_validation_end_date => p_validation_end_date
7861: ,p_object_version_number => p_rec.object_version_number
7862: );
7863: if g_debug then
7864: hr_utility.set_location(l_proc, 40);
7865: end if;
7866: --
7867: -- Validate Student Status
7868: --
7874: ,p_validation_end_date => p_validation_end_date
7875: ,p_object_version_number => p_rec.object_version_number
7876: );
7877: if g_debug then
7878: hr_utility.set_location(l_proc, 50);
7879: end if;
7880: --
7881: -- Validate Work Schedule
7882: --
7888: ,p_validation_end_date => p_validation_end_date
7889: ,p_object_version_number => p_rec.object_version_number
7890: );
7891: if g_debug then
7892: hr_utility.set_location(l_proc, 60);
7893: end if;
7894: --
7895: -- Validate Rehire Recommendation
7896: --
7902: ,p_validation_end_date => p_validation_end_date
7903: ,p_object_version_number => p_rec.object_version_number
7904: );
7905: if g_debug then
7906: hr_utility.set_location(l_proc, 70);
7907: end if;
7908: --
7909: -- Validate Benefit Group Id
7910: --
7914: ,p_effective_date => p_effective_date
7915: ,p_object_version_number => p_rec.object_version_number
7916: );
7917: if g_debug then
7918: hr_utility.set_location(l_proc, 80);
7919: end if;
7920: --
7921: -- Validate Receipt of Death Certificate date.
7922: --
7927: ,p_object_version_number => p_rec.object_version_number
7928: ,p_date_of_death => p_rec.date_of_death
7929: );
7930: if g_debug then
7931: hr_utility.set_location(l_proc, 90);
7932: end if;
7933: --
7934: -- Validate the dependent's adoption date.
7935: --
7940: ,p_effective_date => p_effective_date
7941: ,p_object_version_number => p_rec.object_version_number
7942: );
7943: if g_debug then
7944: hr_utility.set_location(l_proc, 100);
7945: end if;
7946: --
7947: -- Validate registered disabled flag.
7948: --
7954: ,p_validation_end_date => p_validation_end_date
7955: ,p_object_version_number => p_rec.object_version_number
7956: );
7957: if g_debug then
7958: hr_utility.set_location(l_proc, 110);
7959: end if;
7960: --
7961: -- Validate Date of Death.
7962: --
7967: ,p_effective_date => p_effective_date
7968: ,p_object_version_number => p_rec.object_version_number
7969: );
7970: if g_debug then
7971: hr_utility.set_location(l_proc, 120);
7972: end if;
7973: --
7974: -- Validate uses tobacco flag.
7975: --
7981: ,p_validation_end_date => p_validation_end_date
7982: ,p_object_version_number => p_rec.object_version_number
7983: );
7984: if g_debug then
7985: hr_utility.set_location(l_proc, 125);
7986: end if;
7987:
7988: --
7989: chk_orig_and_start_dates
7996: ,p_object_version_number => p_rec.object_version_number
7997: ,p_orig_hire_warning => p_orig_hire_warning
7998: );
7999: if g_debug then
8000: hr_utility.set_location(l_proc, 130);
8001: end if;
8002: --
8003: -- Validate Person Type ID
8004: --
8015: ,p_object_version_number => p_rec.object_version_number
8016: ,p_datetrack_mode => p_datetrack_mode
8017: );
8018: if g_debug then
8019: hr_utility.set_location(l_proc, 30);
8020: end if;
8021: --
8022: -- Set current flags
8023: --
8031: ,p_effective_date => p_effective_date
8032: ,p_object_version_number => p_rec.object_version_number
8033: );
8034: if g_debug then
8035: hr_utility.set_location(l_proc, 40);
8036: end if;
8037: --
8038: -- Validate National Identifier
8039: --
8058:
8059: );
8060: --
8061: if g_debug then
8062: hr_utility.set_location(l_proc, 50);
8063: end if;
8064: --
8065: -- Validate Employee Number
8066: --
8076: ,p_date_of_birth => p_rec.date_of_birth
8077: ,p_start_date => p_rec.effective_start_date
8078: );
8079: if g_debug then
8080: hr_utility.set_location(l_proc, 60);
8081: end if;
8082: --
8083: chk_npw_number
8084: (p_person_id => p_rec.person_id
8092: ,p_date_of_birth => p_rec.date_of_birth
8093: ,p_start_date => p_rec.effective_start_date
8094: );
8095: if g_debug then
8096: hr_utility.set_location(l_proc, 65);
8097: end if;
8098: --
8099: chk_expense_check_send_to_addr
8100: (p_person_id => p_rec.person_id
8104: ,p_validation_end_date => p_validation_end_date
8105: ,p_object_version_number => p_rec.object_version_number
8106: );
8107: if g_debug then
8108: hr_utility.set_location(l_proc, 70);
8109: end if;
8110: --
8111: -- Validate Start Date
8112: --
8116: ,p_effective_date => p_effective_date
8117: ,p_object_version_number => p_rec.object_version_number
8118: );
8119: if g_debug then
8120: hr_utility.set_location(l_proc, 80);
8121: end if;
8122: --
8123: -- Validate Nationality
8124: --
8130: ,p_validation_end_date => p_validation_end_date
8131: ,p_object_version_number => p_rec.object_version_number
8132: );
8133: if g_debug then
8134: hr_utility.set_location(l_proc, 90);
8135: end if;
8136: --
8137: -- Validate Marital Status
8138: --
8144: ,p_validation_end_date => p_validation_end_date
8145: ,p_object_version_number => p_rec.object_version_number
8146: );
8147: if g_debug then
8148: hr_utility.set_location(l_proc, 100);
8149: end if;
8150: --
8151: chk_party_id
8152: (p_person_id => p_rec.person_id
8167: ,p_validation_end_date => p_validation_end_date
8168: ,p_object_version_number => p_rec.object_version_number
8169: );
8170: if g_debug then
8171: hr_utility.set_location(l_proc, 110);
8172: end if;
8173: --
8174: -- Validate Date of Birth
8175: --
8311: ,p_name_combination_warning => p_name_combination_warning
8312: );
8313:
8314: if g_debug then
8315: hr_utility.set_location(l_proc, 130);
8316: end if;
8317: /* Bug#3613987 - Removed chk_JP_names procedure
8318: --
8319: -- Create full_name for JP legislation
8332: --
8333: end if;
8334: */
8335: if g_debug then
8336: hr_utility.set_location(l_proc, 145);
8337: end if;
8338: --
8339: -- Validate Applicant Number
8340: --
8350: ,p_date_of_birth => p_rec.date_of_birth
8351: ,p_start_date => null
8352: );
8353: if g_debug then
8354: hr_utility.set_location(l_proc, 150);
8355: end if;
8356: --
8357: -- Validate Date Employee Data Verified
8358: --
8362: ,p_effective_start_date => p_validation_start_date
8363: ,p_object_version_number => p_rec.object_version_number
8364: );
8365: if g_debug then
8366: hr_utility.set_location(l_proc, 160);
8367: end if;
8368: --
8369: --
8370: -- Validate Vendor Id
8377: ,p_effective_date => p_effective_date
8378: ,p_object_version_number => p_rec.object_version_number
8379: );
8380: if g_debug then
8381: hr_utility.set_location(l_proc, 180);
8382: end if;
8383: --
8384: chk_suffix
8385: (p_person_id => p_rec.person_id
8387: ,p_effective_date => p_effective_date
8388: ,p_object_version_number => p_rec.object_version_number
8389: );
8390: if g_debug then
8391: hr_utility.set_location(l_proc, 190);
8392: end if;
8393: --
8394: -- Validate work telephone
8395: --
8436: ,p_validation_start_date => p_validation_start_date
8437: ,p_validation_end_date => p_validation_end_date
8438: );
8439: if g_debug then
8440: hr_utility.set_location(l_proc, 200);
8441: end if;
8442: --
8443: -- Validate flex fields.
8444: --
8443: -- Validate flex fields.
8444: --
8445: per_per_bus.chk_df(p_rec => p_rec);
8446: if g_debug then
8447: hr_utility.set_location(l_proc, 210);
8448: end if;
8449: --
8450: if g_debug then
8451: hr_utility.set_location(' Leaving:'||l_proc, 10000);
8447: hr_utility.set_location(l_proc, 210);
8448: end if;
8449: --
8450: if g_debug then
8451: hr_utility.set_location(' Leaving:'||l_proc, 10000);
8452: end if;
8453: End insert_validate;
8454: --
8455: -- ----------------------------------------------------------------------------
8481: --
8482: Begin
8483: if g_debug then
8484: l_proc := g_package||'update_validate';
8485: hr_utility.set_location('Entering:'||l_proc, 10);
8486: end if;
8487: --
8488: -- Set global variable used to improve calling of return_system_status_type
8489: -- when called multiple times on same pass through the validation process.
8539: ,p_validation_end_date => p_validation_end_date
8540: ,p_object_version_number => p_rec.object_version_number
8541: );
8542: if g_debug then
8543: hr_utility.set_location(l_proc, 30);
8544: end if;
8545: --
8546: -- Validate Blood Type
8547: --
8553: ,p_validation_end_date => p_validation_end_date
8554: ,p_object_version_number => p_rec.object_version_number
8555: );
8556: if g_debug then
8557: hr_utility.set_location(l_proc, 40);
8558: end if;
8559: --
8560: -- Validate Student Status
8561: --
8567: ,p_validation_end_date => p_validation_end_date
8568: ,p_object_version_number => p_rec.object_version_number
8569: );
8570: if g_debug then
8571: hr_utility.set_location(l_proc, 50);
8572: end if;
8573: --
8574: -- Validate Work Schedule
8575: --
8581: ,p_validation_end_date => p_validation_end_date
8582: ,p_object_version_number => p_rec.object_version_number
8583: );
8584: if g_debug then
8585: hr_utility.set_location(l_proc, 60);
8586: end if;
8587: --
8588: -- Validate Rehire Recommendation
8589: --
8595: ,p_validation_end_date => p_validation_end_date
8596: ,p_object_version_number => p_rec.object_version_number
8597: );
8598: if g_debug then
8599: hr_utility.set_location(l_proc, 70);
8600: end if;
8601: --
8602: -- Validate Benefit Group Id
8603: --
8607: ,p_effective_date => p_effective_date
8608: ,p_object_version_number => p_rec.object_version_number
8609: );
8610: if g_debug then
8611: hr_utility.set_location(l_proc, 80);
8612: end if;
8613: --
8614: -- Validate Receipt of Death Certificate date.
8615: --
8620: ,p_object_version_number => p_rec.object_version_number
8621: ,p_date_of_death => p_rec.date_of_death
8622: );
8623: if g_debug then
8624: hr_utility.set_location(l_proc, 90);
8625: end if;
8626: --
8627: -- Validate the dependent's adoption date.
8628: --
8633: ,p_effective_date => p_effective_date
8634: ,p_object_version_number => p_rec.object_version_number
8635: );
8636: if g_debug then
8637: hr_utility.set_location(l_proc, 100);
8638: end if;
8639: --
8640: -- Validate registered disabled flag.
8641: --
8647: ,p_validation_end_date => p_validation_end_date
8648: ,p_object_version_number => p_rec.object_version_number
8649: );
8650: if g_debug then
8651: hr_utility.set_location(l_proc, 110);
8652: end if;
8653: --
8654: -- Validate Date of Death.
8655: --
8660: ,p_effective_date => p_effective_date
8661: ,p_object_version_number => p_rec.object_version_number
8662: );
8663: if g_debug then
8664: hr_utility.set_location(l_proc, 120);
8665: end if;
8666: --
8667: -- Validate uses tobacco flag.
8668: --
8674: ,p_validation_end_date => p_validation_end_date
8675: ,p_object_version_number => p_rec.object_version_number
8676: );
8677: if g_debug then
8678: hr_utility.set_location(l_proc, 125);
8679: end if;
8680: --
8681: chk_orig_and_start_dates
8682: (p_person_id => p_rec.person_id
8688: ,p_object_version_number => p_rec.object_version_number
8689: ,p_orig_hire_warning => p_orig_hire_warning
8690: );
8691: if g_debug then
8692: hr_utility.set_location(l_proc, 130);
8693: end if;
8694: --
8695: -- Call all supporting business operations
8696: -- Mapping to the appropriate Business Rules in perper.bru is provided.
8710: ,p_object_version_number => p_rec.object_version_number
8711: ,p_datetrack_mode => p_datetrack_mode
8712: );
8713: if g_debug then
8714: hr_utility.set_location(l_proc, 20);
8715: end if;
8716: --
8717: --
8718: -- Validate National Identifier
8737: ,p_nationality => p_rec.nationality
8738: );
8739: --
8740: if g_debug then
8741: hr_utility.set_location(l_proc, 30);
8742: end if;
8743: --
8744: -- Validate Employee Number
8745: --
8755: ,p_date_of_birth => p_rec.date_of_birth
8756: ,p_start_date => null
8757: );
8758: if g_debug then
8759: hr_utility.set_location(l_proc, 40);
8760: end if;
8761: --
8762: chk_npw_number
8763: (p_person_id => p_rec.person_id
8771: ,p_date_of_birth => p_rec.date_of_birth
8772: ,p_start_date => null
8773: );
8774: if g_debug then
8775: hr_utility.set_location(l_proc, 43);
8776: end if;
8777: --
8778: chk_expense_check_send_to_addr
8779: (p_person_id => p_rec.person_id
8783: ,p_validation_end_date => p_validation_end_date
8784: ,p_object_version_number => p_rec.object_version_number
8785: );
8786: if g_debug then
8787: hr_utility.set_location('Entering:'||l_proc, 45);
8788: end if;
8789: --
8790: -- Validate Start Date
8791: --
8795: ,p_effective_date => p_effective_date
8796: ,p_object_version_number => p_rec.object_version_number
8797: );
8798: if g_debug then
8799: hr_utility.set_location(l_proc, 50);
8800: end if;
8801: --
8802: -- Validate Nationality
8803: --
8809: ,p_validation_end_date => p_validation_end_date
8810: ,p_object_version_number => p_rec.object_version_number
8811: );
8812: if g_debug then
8813: hr_utility.set_location(l_proc, 60);
8814: end if;
8815: --
8816: chk_party_id
8817: (p_person_id => p_rec.person_id
8829: ,p_validation_end_date => p_validation_end_date
8830: ,p_object_version_number => p_rec.object_version_number
8831: );
8832: if g_debug then
8833: hr_utility.set_location(l_proc, 70);
8834: end if;
8835: --
8836: -- Validate Sex and Title
8837: --
8846: ,p_validation_end_date => p_validation_end_date
8847: ,p_object_version_number => p_rec.object_version_number
8848: );
8849: if g_debug then
8850: hr_utility.set_location(l_proc, 80);
8851: end if;
8852: --
8853: -- Validate Date of Birth
8854: --
8864: ,p_validation_end_date => p_validation_end_date
8865: ,p_object_version_number => p_rec.object_version_number
8866: );
8867: if g_debug then
8868: hr_utility.set_location(l_proc, 90);
8869: end if;
8870: --
8871: -- Validate Town of Birth
8872: --
8992: ,p_name_combination_warning => p_name_combination_warning
8993: );
8994:
8995: if g_debug then
8996: hr_utility.set_location(l_proc, 100);
8997: end if;
8998: --
8999: -- Validate benefit medical coverage dates
9000: --
9033: ,p_validation_end_date => p_validation_end_date
9034: );
9035: --
9036: if g_debug then
9037: hr_utility.set_location(l_proc, 110);
9038: end if;
9039: /* Bug#3613987 - Removed chk_JP_names procedure
9040: --
9041: -- Create full_name for JP legislation
9054: --
9055: end if;
9056: */
9057: if g_debug then
9058: hr_utility.set_location(l_proc, 145);
9059: end if;
9060: --
9061: -- Validate Applicant Number
9062: --
9072: ,p_date_of_birth => p_rec.date_of_birth
9073: ,p_start_date => null
9074: );
9075: if g_debug then
9076: hr_utility.set_location(l_proc, 120);
9077: end if;
9078: --
9079: -- Validate Date Employee Data Verified
9080: --
9084: ,p_effective_start_date => p_validation_start_date
9085: ,p_object_version_number => p_rec.object_version_number
9086: );
9087: if g_debug then
9088: hr_utility.set_location(l_proc, 130);
9089: end if;
9090: --
9091: -- Validate Vendor Id
9092: --
9098: ,p_effective_date => p_effective_date
9099: ,p_object_version_number => p_rec.object_version_number
9100: );
9101: if g_debug then
9102: hr_utility.set_location(l_proc, 150);
9103: end if;
9104: --
9105: chk_suffix
9106: (p_person_id => p_rec.person_id
9108: ,p_effective_date => p_effective_date
9109: ,p_object_version_number => p_rec.object_version_number
9110: );
9111: if g_debug then
9112: hr_utility.set_location(l_proc, 160);
9113: end if;
9114: --
9115: -- Validate work telephone
9116: --
9128: p_validation_start_date => p_validation_start_date,
9129: p_validation_end_date => p_validation_end_date
9130: );
9131: if g_debug then
9132: hr_utility.set_location(l_proc, 170);
9133: end if;
9134: --
9135: --
9136: -- Validate flex fields.
9136: -- Validate flex fields.
9137: --
9138: per_per_bus.chk_df(p_rec => p_rec);
9139: if g_debug then
9140: hr_utility.set_location(l_proc, 180);
9141: end if;
9142: --
9143: if g_debug then
9144: hr_utility.set_location(' Leaving:'||l_proc, 10000);
9140: hr_utility.set_location(l_proc, 180);
9141: end if;
9142: --
9143: if g_debug then
9144: hr_utility.set_location(' Leaving:'||l_proc, 10000);
9145: end if;
9146: End update_validate;
9147: --
9148: -- ----------------------------------------------------------------------------
9159: --
9160: Begin
9161: if g_debug then
9162: l_proc := g_package||'delete_validate';
9163: hr_utility.set_location('Entering:'||l_proc, 5);
9164: end if;
9165: --
9166: -- Set global variable used to improve calling of return_system_status_type
9167: -- when called multiple times on same pass through the validation process.
9189: p_validation_end_date => p_validation_end_date,
9190: p_person_id => p_rec.person_id);
9191: --
9192: if g_debug then
9193: hr_utility.set_location(' Leaving:'||l_proc, 10);
9194: end if;
9195: End delete_validate;
9196: --
9197: -- ---------------------------------------------------------------------------|
9226: --
9227: begin
9228: if g_debug then
9229: l_proc := 'chk_person_type';
9230: hr_utility.set_location(' Entering '||l_proc,10);
9231: end if;
9232: --
9233: -- Validate the specified business group
9234: --
9237: ,p_associated_column1 => per_per_shd.g_tab_nam || '.BUSINESS_GROUP_ID'
9238: );
9239: hr_multi_message.end_validation_set;
9240: if g_debug then
9241: hr_utility.set_location(l_proc,20);
9242: end if;
9243: --
9244: -- If the person type hasn't been specified or is set to the system default
9245: -- hr_api.g_number, then fetch the default for
9246: -- the business group and system type.
9247: --
9248: if (p_person_type_id is null or p_person_type_id = hr_api.g_number) then
9249: if g_debug then
9250: hr_utility.set_location(l_proc,30);
9251: end if;
9252: --
9253: -- Get the required default person type
9254: --
9256: fetch csr_get_default
9257: into p_person_type_id;
9258: if csr_get_default%notfound then
9259: close csr_get_default;
9260: hr_utility.set_message(801, 'HR_7972_PER_NO_DEFAULT_TYPE');
9261: hr_utility.raise_error;
9262: end if;
9263: close csr_get_default;
9264: if g_debug then
9257: into p_person_type_id;
9258: if csr_get_default%notfound then
9259: close csr_get_default;
9260: hr_utility.set_message(801, 'HR_7972_PER_NO_DEFAULT_TYPE');
9261: hr_utility.raise_error;
9262: end if;
9263: close csr_get_default;
9264: if g_debug then
9265: hr_utility.set_location(l_proc,40);
9261: hr_utility.raise_error;
9262: end if;
9263: close csr_get_default;
9264: if g_debug then
9265: hr_utility.set_location(l_proc,40);
9266: end if;
9267: else
9268: if g_debug then
9269: hr_utility.set_location(l_proc,50);
9265: hr_utility.set_location(l_proc,40);
9266: end if;
9267: else
9268: if g_debug then
9269: hr_utility.set_location(l_proc,50);
9270: end if;
9271: --
9272: -- Validate the specified person type.
9273: --
9277: l_active_flag,
9278: l_business_group_id;
9279: if csr_person_type%notfound then
9280: close csr_person_type;
9281: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
9282: hr_utility.raise_error;
9283: end if;
9284: close csr_person_type;
9285: if g_debug then
9278: l_business_group_id;
9279: if csr_person_type%notfound then
9280: close csr_person_type;
9281: hr_utility.set_message(801, 'HR_7513_PER_TYPE_INVALID');
9282: hr_utility.raise_error;
9283: end if;
9284: close csr_person_type;
9285: if g_debug then
9286: hr_utility.set_location(l_proc,60);
9282: hr_utility.raise_error;
9283: end if;
9284: close csr_person_type;
9285: if g_debug then
9286: hr_utility.set_location(l_proc,60);
9287: end if;
9288: --
9289: if l_active_flag <> 'Y' then
9290: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
9286: hr_utility.set_location(l_proc,60);
9287: end if;
9288: --
9289: if l_active_flag <> 'Y' then
9290: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
9291: hr_utility.raise_error;
9292: elsif l_business_group_id <> p_business_group_id then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9287: end if;
9288: --
9289: if l_active_flag <> 'Y' then
9290: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
9291: hr_utility.raise_error;
9292: elsif l_business_group_id <> p_business_group_id then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9289: if l_active_flag <> 'Y' then
9290: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
9291: hr_utility.raise_error;
9292: elsif l_business_group_id <> p_business_group_id then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9296: hr_utility.set_message(801, 'HR_7970_PER_WRONG_SYS_TYPE');
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9290: hr_utility.set_message(801, 'HR_7973_PER_TYPE_NOT_ACTIVE');
9291: hr_utility.raise_error;
9292: elsif l_business_group_id <> p_business_group_id then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9296: hr_utility.set_message(801, 'HR_7970_PER_WRONG_SYS_TYPE');
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9298: hr_utility.raise_error;
9292: elsif l_business_group_id <> p_business_group_id then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9296: hr_utility.set_message(801, 'HR_7970_PER_WRONG_SYS_TYPE');
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9298: hr_utility.raise_error;
9299: end if;
9300: if g_debug then
9293: hr_utility.set_message(801, 'HR_7974_PER_TYPE_INV_BUS_GROUP');
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9296: hr_utility.set_message(801, 'HR_7970_PER_WRONG_SYS_TYPE');
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9298: hr_utility.raise_error;
9299: end if;
9300: if g_debug then
9301: hr_utility.set_location(l_proc,70);
9294: hr_utility.raise_error;
9295: elsif l_system_person_type <> p_expected_sys_type then
9296: hr_utility.set_message(801, 'HR_7970_PER_WRONG_SYS_TYPE');
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9298: hr_utility.raise_error;
9299: end if;
9300: if g_debug then
9301: hr_utility.set_location(l_proc,70);
9302: end if;
9297: hr_utility.set_message_token('SYSTYPE', p_expected_sys_type);
9298: hr_utility.raise_error;
9299: end if;
9300: if g_debug then
9301: hr_utility.set_location(l_proc,70);
9302: end if;
9303: end if;
9304: end chk_person_type;
9305: --
9330: l_proc varchar2(72) ;
9331: begin
9332: if g_debug then
9333: l_proc := g_package||'return_legislation_code';
9334: hr_utility.set_location('Entering:'|| l_proc, 10);
9335: end if;
9336: --
9337: -- HR/TCA merge allows person_id to be null
9338: --
9339: if p_person_id is null then
9340: g_person_id := p_person_id;
9341: l_legislation_code := NULL;
9342: if g_debug then
9343: hr_utility.set_location(l_proc, 15);
9344: end if;
9345: --
9346: -- Ensure that all the mandatory parameter are not null
9347: --
9357: -- variable.
9358: --
9359: l_legislation_code := g_legislation_code;
9360: if g_debug then
9361: hr_utility.set_location(l_proc, 20);
9362: end if;
9363: else
9364: --
9365: -- The ID is different to the last call to this function
9371: close csr_leg_code;
9372: --
9373: -- The primary key is invalid therefore we must error
9374: --
9375: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
9376: hr_utility.raise_error;
9377: end if;
9378: --
9379: close csr_leg_code;
9372: --
9373: -- The primary key is invalid therefore we must error
9374: --
9375: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
9376: hr_utility.raise_error;
9377: end if;
9378: --
9379: close csr_leg_code;
9380: if g_debug then
9377: end if;
9378: --
9379: close csr_leg_code;
9380: if g_debug then
9381: hr_utility.set_location(' Leaving:'|| l_proc, 20);
9382: end if;
9383: --
9384: g_person_id := p_person_id;
9385: g_legislation_code := l_legislation_code;
9385: g_legislation_code := l_legislation_code;
9386: end if;
9387: end if; -- HR/TCA merge
9388: if g_debug then
9389: hr_utility.set_location(' Leaving:'|| l_proc, 25);
9390: end if;
9391: --
9392: return l_legislation_code;
9393: end return_legislation_code;
9433:
9434: --
9435: begin
9436: if g_debug then
9437: hr_utility.set_location('Entering:'|| l_proc, 1);
9438: end if;
9439: --
9440: -- Check mandatory parameters have been set
9441: --
9457: ,p_argument_value => p_validation_end_date
9458: );
9459: --
9460: if g_debug then
9461: hr_utility.set_location(l_proc, 2);
9462: end if;
9463: --
9464: -- Get current value for system_person_type (i.e. as of the
9465: -- effective date)
9468: fetch csr_get_system_person_type into l_person_type;
9469: close csr_get_system_person_type;
9470: --
9471: if g_debug then
9472: hr_utility.set_location(l_proc, 3);
9473: end if;
9474: --
9475: -- Check that no future changes exist for the person type
9476: --
9477: open csr_chk_future_changes;
9478: fetch csr_chk_future_changes into l_exists;
9479: if csr_chk_future_changes%found then
9480: close csr_chk_future_changes;
9481: hr_utility.set_message(801, 'HR_7979_PER_SYS_PERS_TYP_CHANG');
9482: hr_utility.raise_error;
9483: end if;
9484: close csr_chk_future_changes;
9485: --
9478: fetch csr_chk_future_changes into l_exists;
9479: if csr_chk_future_changes%found then
9480: close csr_chk_future_changes;
9481: hr_utility.set_message(801, 'HR_7979_PER_SYS_PERS_TYP_CHANG');
9482: hr_utility.raise_error;
9483: end if;
9484: close csr_chk_future_changes;
9485: --
9486: if g_debug then
9483: end if;
9484: close csr_chk_future_changes;
9485: --
9486: if g_debug then
9487: hr_utility.set_location(' Leaving:'|| l_proc, 4);
9488: end if;
9489: end chk_system_pers_type;
9490: --
9491: end per_per_bus;