38: l_proc varchar2(72) := g_package||'set_security_group_id';
39: --
40: begin
41: --
42: hr_utility.set_location('Entering:'|| l_proc, 10);
43: --
44: -- Ensure that all the mandatory parameter are not null
45: --
46: hr_api.mandatory_arg_error
69: hr_api.set_security_group_id
70: (p_security_group_id => l_security_group_id
71: );
72: --
73: hr_utility.set_location(' Leaving:'|| l_proc, 20);
74: --
75: end set_security_group_id;
76: --
77: -- ---------------------------------------------------------------------------
100: l_proc varchar2(72) := g_package||'return_legislation_code';
101: --
102: Begin
103: --
104: hr_utility.set_location('Entering:'|| l_proc, 10);
105: --
106: -- Ensure that all the mandatory parameter are not null
107: --
108: hr_api.mandatory_arg_error
118: -- call to this function. Just return the value in the global
119: -- variable.
120: --
121: l_legislation_code := per_dis_bus.g_legislation_code;
122: hr_utility.set_location(l_proc, 20);
123: else
124: --
125: -- The ID is different to the last call to this function
126: -- or this is the first call to this function.
135: close csr_leg_code;
136: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
137: fnd_message.raise_error;
138: end if;
139: hr_utility.set_location(l_proc,30);
140: --
141: -- Set the global variables so the values are
142: -- available for the next call to this function.
143: --
144: close csr_leg_code;
145: per_dis_bus.g_disability_id := p_disability_id;
146: per_dis_bus.g_legislation_code := l_legislation_code;
147: end if;
148: hr_utility.set_location(' Leaving:'|| l_proc, 40);
149: return l_legislation_code;
150: end return_legislation_code;
151: --
152: -- ---------------------------------------------------------------------------
196: l_proc varchar2(72) := g_package||'chk_person_id';
197: --
198: --
199: begin
200: hr_utility.set_location('Entering:'|| l_proc, 1);
201: --
202: -- Check mandatory parameter is set
203: --
204: hr_api.mandatory_arg_error
207: ,p_argument_value => p_effective_date
208: );
209: --
210: if p_person_id is null then
211: hr_utility.set_message(800, 'HR_52892_DIS_PERSON_NULL');
212: hr_utility.raise_error;
213: else
214: --
215: hr_utility.set_location(l_proc, 2);
208: );
209: --
210: if p_person_id is null then
211: hr_utility.set_message(800, 'HR_52892_DIS_PERSON_NULL');
212: hr_utility.raise_error;
213: else
214: --
215: hr_utility.set_location(l_proc, 2);
216: --
211: hr_utility.set_message(800, 'HR_52892_DIS_PERSON_NULL');
212: hr_utility.raise_error;
213: else
214: --
215: hr_utility.set_location(l_proc, 2);
216: --
217: -- Check that person exists on this effective date
218: --
219: open csr_person;
219: open csr_person;
220: fetch csr_person into l_exists;
221: if csr_person%notfound then
222: close csr_person;
223: hr_utility.set_message(800, 'HR_52911_DIS_INV_PERSON');
224: hr_utility.raise_error;
225: end if;
226: close csr_person;
227: end if;
220: fetch csr_person into l_exists;
221: if csr_person%notfound then
222: close csr_person;
223: hr_utility.set_message(800, 'HR_52911_DIS_INV_PERSON');
224: hr_utility.raise_error;
225: end if;
226: close csr_person;
227: end if;
228: --
225: end if;
226: close csr_person;
227: end if;
228: --
229: hr_utility.set_location(' Leaving:'|| l_proc, 3);
230: end chk_person_id;
231: --
232: --
233: -- ---------------------------------------------------------------------------
289: l_dummy varchar2(1);
290: --
291: --
292: begin
293: hr_utility.set_location('Entering:'|| l_proc, 1);
294: --
295: -- Check mandatory parameter is set
296: --
297: hr_api.mandatory_arg_error
313: if ((p_disability_id is null) or
314: ((p_disability_id is not null) and
315: (per_dis_shd.g_old_rec.incident_id <> p_incident_id))) then
316: --
317: hr_utility.set_location(l_proc, 3);
318:
319: if p_incident_id is not null then
320: --
321: -- Check the incident exists in per_work_incidents
324: open csr_inc;
325: fetch csr_inc into l_dummy;
326: if csr_inc%NOTFOUND then
327: close csr_inc;
328: hr_utility.set_message(800, 'HR_289017_DIS_INV_INC');
329: hr_utility.raise_error;
330: end if;
331: close csr_inc;
332: --
325: fetch csr_inc into l_dummy;
326: if csr_inc%NOTFOUND then
327: close csr_inc;
328: hr_utility.set_message(800, 'HR_289017_DIS_INV_INC');
329: hr_utility.raise_error;
330: end if;
331: close csr_inc;
332: --
333: hr_utility.set_location(l_proc, 6);
329: hr_utility.raise_error;
330: end if;
331: close csr_inc;
332: --
333: hr_utility.set_location(l_proc, 6);
334: --
335: -- The value must match that of the work incident id that is held
336: -- on the parent medical assessment record that has previously been
337: -- linked to the disability, if one exists.
335: -- The value must match that of the work incident id that is held
336: -- on the parent medical assessment record that has previously been
337: -- linked to the disability, if one exists.
338: --
339: hr_utility.set_location(l_proc, 8);
340: open csr_mea;
341: fetch csr_mea into l_dummy;
342: if csr_mea%FOUND then
343: close csr_mea;
340: open csr_mea;
341: fetch csr_mea into l_dummy;
342: if csr_mea%FOUND then
343: close csr_mea;
344: hr_utility.set_message(800, 'HR_289047_DIS_INV_INC_MEA');
345: hr_utility.raise_error;
346: end if;
347: close csr_mea;
348: --
341: fetch csr_mea into l_dummy;
342: if csr_mea%FOUND then
343: close csr_mea;
344: hr_utility.set_message(800, 'HR_289047_DIS_INV_INC_MEA');
345: hr_utility.raise_error;
346: end if;
347: close csr_mea;
348: --
349: end if;
350: --
351: end if;
352: --
353: --
354: hr_utility.set_location(' Leaving:'|| l_proc, 10);
355: end chk_incident_id;
356: --
357: -- ---------------------------------------------------------------------------
358: -- |---------------------------< chk_category >------------------------------|
399: --
400: l_proc varchar2(72) := g_package||'chk_category';
401: --
402: begin
403: hr_utility.set_location('Entering:'|| l_proc, 10);
404: --
405: -- Check mandatory arguments
406: --
407: hr_api.mandatory_arg_error
420: (p_api_name => l_proc
421: ,p_argument => 'validation_end_date'
422: ,p_argument_value => p_validation_end_date
423: );
424: hr_utility.set_location(l_proc, 20);
425: --
426: -- Ensure mandatory category is set
427: if p_category is null then
428: hr_utility.set_message(800, 'HR_52912_DIS_CATEGORY_NULL');
424: hr_utility.set_location(l_proc, 20);
425: --
426: -- Ensure mandatory category is set
427: if p_category is null then
428: hr_utility.set_message(800, 'HR_52912_DIS_CATEGORY_NULL');
429: hr_utility.raise_error;
430: else
431: --
432: -- validate if:
425: --
426: -- Ensure mandatory category is set
427: if p_category is null then
428: hr_utility.set_message(800, 'HR_52912_DIS_CATEGORY_NULL');
429: hr_utility.raise_error;
430: else
431: --
432: -- validate if:
433: -- 1) inserting
436: if ((p_disability_id is null) or
437: ((p_disability_id is not null) and
438: (per_dis_shd.g_old_rec.category <> p_category))) then
439: --
440: hr_utility.set_location(l_proc, 30);
441: --
442: if hr_api.not_exists_in_dt_leg_lookups
443: (p_effective_date => p_effective_date
444: ,p_validation_start_date => p_validation_start_date
447: ,p_lookup_code => p_category
448: )
449: then
450: --
451: hr_utility.set_message(800, 'HR_52913_DIS_INV_CATEGORY');
452: hr_utility.raise_error;
453: end if;
454: end if;
455: end if;
448: )
449: then
450: --
451: hr_utility.set_message(800, 'HR_52913_DIS_INV_CATEGORY');
452: hr_utility.raise_error;
453: end if;
454: end if;
455: end if;
456: --
453: end if;
454: end if;
455: end if;
456: --
457: hr_utility.set_location(' Leaving:'|| l_proc, 40);
458: --
459: end chk_category;
460: --
461: -- ---------------------------------------------------------------------------
501: l_exists varchar2(1);
502: l_api_updating boolean;
503: --
504: begin
505: hr_utility.set_location('Entering:'|| l_proc, 10);
506: --
507: -- Check mandatory parameters have been set
508: --
509: hr_api.mandatory_arg_error
522: (p_api_name => l_proc
523: ,p_argument => 'validation_end_date'
524: ,p_argument_value => p_validation_end_date
525: );
526: hr_utility.set_location(l_proc, 20);
527: --
528: -- Ensure mandatory status is set
529: if p_status is null then
530: hr_utility.set_message(800, 'HR_289016_DIS_STATUS_NULL');
526: hr_utility.set_location(l_proc, 20);
527: --
528: -- Ensure mandatory status is set
529: if p_status is null then
530: hr_utility.set_message(800, 'HR_289016_DIS_STATUS_NULL');
531: hr_utility.raise_error;
532: else
533: --
534: -- validate if:
527: --
528: -- Ensure mandatory status is set
529: if p_status is null then
530: hr_utility.set_message(800, 'HR_289016_DIS_STATUS_NULL');
531: hr_utility.raise_error;
532: else
533: --
534: -- validate if:
535: -- 1) inserting
538: if ((p_disability_id is null) or
539: ((p_disability_id is not null) and
540: (per_dis_shd.g_old_rec.status <> p_status))) then
541: --
542: hr_utility.set_location(l_proc, 30);
543: --
544: if hr_api.not_exists_in_dt_leg_lookups
545: (p_effective_date => p_effective_date
546: ,p_validation_start_date => p_validation_start_date
549: ,p_lookup_code => p_status
550: )
551: then
552: --
553: hr_utility.set_message(800, 'HR_52913_DIS_INV_STATUS');
554: hr_utility.raise_error;
555: end if;
556: end if;
557: end if;
550: )
551: then
552: --
553: hr_utility.set_message(800, 'HR_52913_DIS_INV_STATUS');
554: hr_utility.raise_error;
555: end if;
556: end if;
557: end if;
558: --
555: end if;
556: end if;
557: end if;
558: --
559: hr_utility.set_location(' Leaving:'|| l_proc, 70);
560: --
561: end chk_status;
562: --
563: --
593: --
594: l_proc varchar2(72) := g_package||'chk_quota_fte';
595: --
596: begin
597: hr_utility.set_location('Entering:'|| l_proc, 10);
598: --
599: -- check not null
600: if p_quota_fte is null then
601: hr_utility.set_message(800, 'HR_52915_DIS_QUOTA_NULL');
597: hr_utility.set_location('Entering:'|| l_proc, 10);
598: --
599: -- check not null
600: if p_quota_fte is null then
601: hr_utility.set_message(800, 'HR_52915_DIS_QUOTA_NULL');
602: hr_utility.raise_error;
603: elsif (p_quota_fte < 0 ) or (p_quota_fte >= 100 ) then
604: -- check not negative or 100 or over
605: hr_utility.set_message(800, 'HR_52916_DIS_INV_QUOTA');
598: --
599: -- check not null
600: if p_quota_fte is null then
601: hr_utility.set_message(800, 'HR_52915_DIS_QUOTA_NULL');
602: hr_utility.raise_error;
603: elsif (p_quota_fte < 0 ) or (p_quota_fte >= 100 ) then
604: -- check not negative or 100 or over
605: hr_utility.set_message(800, 'HR_52916_DIS_INV_QUOTA');
606: hr_utility.raise_error;
601: hr_utility.set_message(800, 'HR_52915_DIS_QUOTA_NULL');
602: hr_utility.raise_error;
603: elsif (p_quota_fte < 0 ) or (p_quota_fte >= 100 ) then
604: -- check not negative or 100 or over
605: hr_utility.set_message(800, 'HR_52916_DIS_INV_QUOTA');
606: hr_utility.raise_error;
607: end if;
608: --
609: hr_utility.set_location('Leaving:'|| l_proc, 20);
602: hr_utility.raise_error;
603: elsif (p_quota_fte < 0 ) or (p_quota_fte >= 100 ) then
604: -- check not negative or 100 or over
605: hr_utility.set_message(800, 'HR_52916_DIS_INV_QUOTA');
606: hr_utility.raise_error;
607: end if;
608: --
609: hr_utility.set_location('Leaving:'|| l_proc, 20);
610: end chk_quota_fte;
605: hr_utility.set_message(800, 'HR_52916_DIS_INV_QUOTA');
606: hr_utility.raise_error;
607: end if;
608: --
609: hr_utility.set_location('Leaving:'|| l_proc, 20);
610: end chk_quota_fte;
611: --
612: -- ---------------------------------------------------------------------------
613: -- |-----------------------------< chk_reason >------------------------------|
653: --
654: l_proc varchar2(72) := g_package||'chk_reason';
655: --
656: begin
657: hr_utility.set_location('Entering:'|| l_proc, 10);
658: --
659: -- Check mandatory arguments
660: --
661: hr_api.mandatory_arg_error
674: (p_api_name => l_proc
675: ,p_argument => 'validation_end_date'
676: ,p_argument_value => p_validation_end_date
677: );
678: hr_utility.set_location(l_proc, 20);
679: --
680: --
681: if p_reason is not null then
682: --
687: if ((p_disability_id is null) or
688: ((p_disability_id is not null) and
689: (per_dis_shd.g_old_rec.reason <> p_reason))) then
690: --
691: hr_utility.set_location(l_proc, 30);
692: --
693: if hr_api.not_exists_in_dt_leg_lookups
694: (p_effective_date => p_effective_date
695: ,p_validation_start_date => p_validation_start_date
698: ,p_lookup_code => p_reason
699: )
700: then
701: --
702: hr_utility.set_message(800, 'HR_52917_DIS_INV_REASON');
703: hr_utility.raise_error;
704: end if;
705: end if;
706: end if;
699: )
700: then
701: --
702: hr_utility.set_message(800, 'HR_52917_DIS_INV_REASON');
703: hr_utility.raise_error;
704: end if;
705: end if;
706: end if;
707: --
704: end if;
705: end if;
706: end if;
707: --
708: hr_utility.set_location(' Leaving:'|| l_proc, 40);
709: --
710: end chk_reason;
711: --
712: -- ---------------------------------------------------------------------------
741: --
742: l_proc varchar2(72) := g_package||'chk_degree';
743: --
744: begin
745: hr_utility.set_location('Entering:'|| l_proc, 10);
746: --
747: -- check within range
748: if p_degree is not null then
749: if (p_degree <= 0) or (p_degree > 100) then
746: --
747: -- check within range
748: if p_degree is not null then
749: if (p_degree <= 0) or (p_degree > 100) then
750: hr_utility.set_message(800, 'HR_52918_DIS_INV_DEGREE');
751: hr_utility.raise_error;
752: end if;
753: end if;
754: --
747: -- check within range
748: if p_degree is not null then
749: if (p_degree <= 0) or (p_degree > 100) then
750: hr_utility.set_message(800, 'HR_52918_DIS_INV_DEGREE');
751: hr_utility.raise_error;
752: end if;
753: end if;
754: --
755: hr_utility.set_location('Leaving:'|| l_proc, 20);
751: hr_utility.raise_error;
752: end if;
753: end if;
754: --
755: hr_utility.set_location('Leaving:'|| l_proc, 20);
756: end chk_degree;
757: --
758: -- ---------------------------------------------------------------------------
759: -- |----------------------< chk_organization_id >----------------------------|
813: l_proc varchar2(72) := g_package||'chk_organization_id';
814: l_business_group_id per_assignments_f.business_group_id%TYPE;
815: --
816: begin
817: hr_utility.set_location('Entering:'|| l_proc, 10);
818: --
819: -- Check mandatory parameters have been set
820: --
821: hr_api.mandatory_arg_error
829: ,p_argument_value => p_validation_start_date);
830: --
831: if p_organization_id is not null then
832: --
833: hr_utility.set_location(l_proc, 20);
834: --
835: -- validate if:
836: -- 1) inserting
837: -- 2) updating and value has changed
839: if ((p_disability_id is null) or
840: ((p_disability_id is not null) and
841: (per_dis_shd.g_old_rec.organization_id <> p_organization_id))) then
842: --
843: hr_utility.set_location(l_proc, 30);
844: --
845: -- check org exists in hr_all_organization_units (fk) for the persons bg
846: -- within the validation date range.
847: open csr_org;
848: fetch csr_org into l_business_group_id;
849: if csr_org%notfound then
850: close csr_org;
851: -- error as org not found
852: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
853: hr_utility.raise_error;
854: else
855: if l_business_group_id <> p_business_group_id then
856: close csr_org;
849: if csr_org%notfound then
850: close csr_org;
851: -- error as org not found
852: hr_utility.set_message(800, 'HR_52919_DIS_INV_ORG');
853: hr_utility.raise_error;
854: else
855: if l_business_group_id <> p_business_group_id then
856: close csr_org;
857: -- error as org is in different business group to person
854: else
855: if l_business_group_id <> p_business_group_id then
856: close csr_org;
857: -- error as org is in different business group to person
858: hr_utility.set_message(800, 'HR_52920_DIS_INV_ORG_BG');
859: hr_utility.raise_error;
860: end if;
861: end if;
862: close csr_org;
855: if l_business_group_id <> p_business_group_id then
856: close csr_org;
857: -- error as org is in different business group to person
858: hr_utility.set_message(800, 'HR_52920_DIS_INV_ORG_BG');
859: hr_utility.raise_error;
860: end if;
861: end if;
862: close csr_org;
863: hr_utility.set_location(l_proc, 40);
859: hr_utility.raise_error;
860: end if;
861: end if;
862: close csr_org;
863: hr_utility.set_location(l_proc, 40);
864: --
865: -- check org exists in hr_organization_information for the relevant
866: -- organisation class.
867: open csr_org_inf;
868: fetch csr_org_inf into l_exists;
869: if csr_org_inf%notfound then
870: close csr_org_inf;
871: -- error as org is not in the correct class of disability_org
872: hr_utility.set_message(800, 'HR_52921_DIS_INV_ORG_CLASS');
873: hr_utility.raise_error;
874: end if;
875: close csr_org_inf;
876: --
869: if csr_org_inf%notfound then
870: close csr_org_inf;
871: -- error as org is not in the correct class of disability_org
872: hr_utility.set_message(800, 'HR_52921_DIS_INV_ORG_CLASS');
873: hr_utility.raise_error;
874: end if;
875: close csr_org_inf;
876: --
877: end if;
876: --
877: end if;
878: end if;
879: --
880: hr_utility.set_location('Entering:'|| l_proc, 50);
881: --
882: end chk_organization_id;
883: --
884: -- ---------------------------------------------------------------------------
917: --
918: l_proc varchar2(72) := g_package||'chk_registration_details';
919: --
920: begin
921: hr_utility.set_location('Entering:'|| l_proc, 10);
922: --
923: -- when inserting or updating
924: -- disallow registration details if org is null
925: if p_organization_id is null then
923: -- when inserting or updating
924: -- disallow registration details if org is null
925: if p_organization_id is null then
926: if p_registration_id is not null then
927: hr_utility.set_message(800, 'HR_52922_DIS_REG_ID_NULL');
928: hr_utility.raise_error;
929: elsif p_registration_date is not null then
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
924: -- disallow registration details if org is null
925: if p_organization_id is null then
926: if p_registration_id is not null then
927: hr_utility.set_message(800, 'HR_52922_DIS_REG_ID_NULL');
928: hr_utility.raise_error;
929: elsif p_registration_date is not null then
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
932: elsif p_registration_exp_date is not null then
926: if p_registration_id is not null then
927: hr_utility.set_message(800, 'HR_52922_DIS_REG_ID_NULL');
928: hr_utility.raise_error;
929: elsif p_registration_date is not null then
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
932: elsif p_registration_exp_date is not null then
933: hr_utility.set_message(800, 'HR_52924_DIS_REG_EXP_DATE_NULL');
934: hr_utility.raise_error;
927: hr_utility.set_message(800, 'HR_52922_DIS_REG_ID_NULL');
928: hr_utility.raise_error;
929: elsif p_registration_date is not null then
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
932: elsif p_registration_exp_date is not null then
933: hr_utility.set_message(800, 'HR_52924_DIS_REG_EXP_DATE_NULL');
934: hr_utility.raise_error;
935: end if;
929: elsif p_registration_date is not null then
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
932: elsif p_registration_exp_date is not null then
933: hr_utility.set_message(800, 'HR_52924_DIS_REG_EXP_DATE_NULL');
934: hr_utility.raise_error;
935: end if;
936: end if;
937: --
930: hr_utility.set_message(800, 'HR_52923_DIS_REG_DATE_NULL');
931: hr_utility.raise_error;
932: elsif p_registration_exp_date is not null then
933: hr_utility.set_message(800, 'HR_52924_DIS_REG_EXP_DATE_NULL');
934: hr_utility.raise_error;
935: end if;
936: end if;
937: --
938: hr_utility.set_location(l_proc, 20);
934: hr_utility.raise_error;
935: end if;
936: end if;
937: --
938: hr_utility.set_location(l_proc, 20);
939: --
940: -- ensure reg date is set if reg exp is set and
941: -- that it is before reg expiry date
942: if (p_registration_date is not null and p_registration_exp_date is not null) then
940: -- ensure reg date is set if reg exp is set and
941: -- that it is before reg expiry date
942: if (p_registration_date is not null and p_registration_exp_date is not null) then
943: if (p_registration_date > p_registration_exp_date) then
944: hr_utility.set_message(800, 'HR_52914_DIS_INV_DATES');
945: hr_utility.raise_error;
946: end if;
947: elsif (p_registration_date is null and p_registration_exp_date is not null) then
948: hr_utility.set_message(800, 'HR_52926_DIS_REG_NOT_NULL');
941: -- that it is before reg expiry date
942: if (p_registration_date is not null and p_registration_exp_date is not null) then
943: if (p_registration_date > p_registration_exp_date) then
944: hr_utility.set_message(800, 'HR_52914_DIS_INV_DATES');
945: hr_utility.raise_error;
946: end if;
947: elsif (p_registration_date is null and p_registration_exp_date is not null) then
948: hr_utility.set_message(800, 'HR_52926_DIS_REG_NOT_NULL');
949: hr_utility.raise_error;
944: hr_utility.set_message(800, 'HR_52914_DIS_INV_DATES');
945: hr_utility.raise_error;
946: end if;
947: elsif (p_registration_date is null and p_registration_exp_date is not null) then
948: hr_utility.set_message(800, 'HR_52926_DIS_REG_NOT_NULL');
949: hr_utility.raise_error;
950: end if;
951: --
952: hr_utility.set_location('Leaving:'|| l_proc, 30);
945: hr_utility.raise_error;
946: end if;
947: elsif (p_registration_date is null and p_registration_exp_date is not null) then
948: hr_utility.set_message(800, 'HR_52926_DIS_REG_NOT_NULL');
949: hr_utility.raise_error;
950: end if;
951: --
952: hr_utility.set_location('Leaving:'|| l_proc, 30);
953: --
948: hr_utility.set_message(800, 'HR_52926_DIS_REG_NOT_NULL');
949: hr_utility.raise_error;
950: end if;
951: --
952: hr_utility.set_location('Leaving:'|| l_proc, 30);
953: --
954: end chk_registration_details;
955: --
956: -- ----------------------------------------------------------------------------
987: --
988: l_proc varchar2(72) := g_package || 'chk_ddf';
989: --
990: begin
991: hr_utility.set_location('Entering:'||l_proc,10);
992: --
993: if ((p_rec.disability_id is not null) and (
994: nvl(per_dis_shd.g_old_rec.dis_information_category, hr_api.g_varchar2) <>
995: nvl(p_rec.dis_information_category, hr_api.g_varchar2) or
1126: ,p_attribute30_value => p_rec.dis_information30
1127: );
1128: end if;
1129: --
1130: hr_utility.set_location(' Leaving:'||l_proc,20);
1131: end chk_ddf;
1132: --
1133: -- ----------------------------------------------------------------------------
1134: -- |------------------------------< chk_df >----------------------------------|
1164: --
1165: l_proc varchar2(72) := g_package || 'chk_df';
1166: --
1167: begin
1168: hr_utility.set_location('Entering:'||l_proc,10);
1169: --
1170: if ((p_rec.disability_id is not null) and (
1171: nvl(per_dis_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
1172: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
1303: ,p_attribute30_value => p_rec.attribute30
1304: );
1305: end if;
1306: --
1307: hr_utility.set_location(' Leaving:'||l_proc,20);
1308: end chk_df;
1309: --
1310: -- ----------------------------------------------------------------------------
1311: -- |-----------------------< chk_non_updateable_args >------------------------|
1601: l_business_group_id per_all_people_f.business_group_id%TYPE;
1602: --
1603: --
1604: Begin
1605: hr_utility.set_location('Entering:'||l_proc, 5);
1606: --
1607: -- Call all supporting business operations
1608: --
1609: per_per_bus.set_security_group_id(p_person_id => p_rec.person_id);
1691: per_dis_bus.chk_ddf(p_rec);
1692: --
1693: per_dis_bus.chk_df(p_rec);
1694: --
1695: hr_utility.set_location(' Leaving:'||l_proc, 10);
1696: End insert_validate;
1697: --
1698: -- ----------------------------------------------------------------------------
1699: -- |---------------------------< update_validate >----------------------------|
1715: l_business_group_id per_all_people_f.business_group_id%TYPE;
1716: l_proc varchar2(72) := g_package||'update_validate';
1717: --
1718: Begin
1719: hr_utility.set_location('Entering:'||l_proc, 5);
1720: --
1721: -- Call all supporting business operations
1722: --
1723: per_per_bus.set_security_group_id(p_person_id => p_rec.person_id);
1816: per_dis_bus.chk_ddf(p_rec);
1817: --
1818: per_dis_bus.chk_df(p_rec);
1819: --
1820: hr_utility.set_location(' Leaving:'||l_proc, 10);
1821: End update_validate;
1822: --
1823: -- ----------------------------------------------------------------------------
1824: -- |---------------------------< delete_validate >----------------------------|
1833: --
1834: l_proc varchar2(72) := g_package||'delete_validate';
1835: --
1836: Begin
1837: hr_utility.set_location('Entering:'||l_proc, 5);
1838: --
1839: -- Call all supporting business operations
1840: --
1841: dt_delete_validate
1844: ,p_validation_end_date => p_validation_end_date
1845: ,p_disability_id => p_rec.disability_id
1846: );
1847: --
1848: hr_utility.set_location(' Leaving:'||l_proc, 10);
1849: End delete_validate;
1850: --
1851: end per_dis_bus;