1: PACKAGE BODY PER_PEOPLE4_PKG AS
2: /* $Header: peper04t.pkb 120.1 2005/10/19 03:53:12 pchowdav noship $ */
3: --
4: procedure update_row(p_rowid VARCHAR2
5: ,p_person_id NUMBER
178: --
179: if ((p_hire_date <> p_s_hire_date)
180: and (p_system_person_type = p_s_system_person_type))
181: then
182: per_people4_pkg.check_not_supervisor(p_person_id
183: ,p_hire_date
184: ,p_s_hire_date);
185: end if;
186: begin
333: end if;
334: --
335: if p_s_system_person_type = 'EX_EMP'
336: then
337: per_people4_pkg.check_rehire(p_person_id
338: ,p_hire_date);
339: end if;
340: per_people4_pkg.check_future_changes(p_person_id
341: ,p_effective_start_date);
336: then
337: per_people4_pkg.check_rehire(p_person_id
338: ,p_hire_date);
339: end if;
340: per_people4_pkg.check_future_changes(p_person_id
341: ,p_effective_start_date);
342: --
343: -- Ensure there are no future applicant assignments
344: --
672: -- Has the Date of Birth changed?
673: --
674: if p_date_of_birth is null and
675: p_s_date_of_birth is not null then
676: per_people4_pkg.check_birth_date(p_person_id);
677: end if;
678: if p_date_of_birth <> p_s_date_of_birth then
679: --
680: -- Run the assignment_link_usages and Element_entry
983: end if;
984: end;
985: --
986:
987: END PER_PEOPLE4_PKG;