631: -- ----------------------------------------------------------------------------
632: -- {Start Of Comments}
633: --
634: -- Description:
635: -- This procedure is used to ensure that object_id exists in PER_ALL_PEOPLE_F
636: -- as 'PERSON' type when the object_type is 'PERSON'
637: --
638: -- Pre Conditions:
639: --
657: l_person_id varchar2(1);
658: --
659: cursor csr_person_id is
660: select null
661: from per_all_people_f ppf
662: where ppf.person_id = p_person_id
663: and trunc(p_effective_date) between ppf.effective_start_date
664: and ppf.effective_end_date;
665: --
664: and ppf.effective_end_date;
665: --
666: begin
667: hr_utility.set_location('Entering:'||l_proc,10);
668: -- Check that Person_ID(Object_id) exists in per_all_people_f
669: open csr_person_id;
670: fetch csr_person_id into l_person_id;
671: hr_utility.set_location(l_proc,20);
672: if csr_person_id%NOTFOUND then
693: -- ----------------------------------------------------------------------------
694: -- {Start Of Comments}
695: --
696: -- Description:
697: -- This procedure is used to ensure that object_id exists in PER_ALL_PEOPLE_F
698: -- as 'PERSON' type when the object_type is 'PERSON'
699: --
700: -- Pre Conditions:
701: --
719: l_party_id varchar2(1);
720: --
721: cursor csr_party_id is
722: select null
723: from per_all_people_f ppf
724: where ppf.party_id = p_party_id
725: and trunc(p_effective_date) between ppf.effective_start_date
726: and ppf.effective_end_date;
727: --
726: and ppf.effective_end_date;
727: --
728: begin
729: hr_utility.set_location('Entering:'||l_proc,10);
730: -- Check that Party_ID(Object_id) exists in per_all_people_f
731: open csr_party_id;
732: fetch csr_party_id into l_party_id;
733: hr_utility.set_location(l_proc,20);
734: if csr_party_id%NOTFOUND then