812:
813: CURSOR csr_ptu_type (c_person_id NUMBER, c_session_date DATE)
814: IS
815: SELECT ppt.system_person_type, ppt.seeded_person_type_key
816: FROM per_person_types ppt, per_person_type_usages_f ptu
817: WHERE ppt.person_type_id = ptu.person_type_id
818: AND c_session_date BETWEEN ptu.effective_start_date
819: AND ptu.effective_end_date
820: AND ptu.person_id = c_person_id;
834: FETCH csr_val_person_type
835: INTO l_system_person_type, l_seeded_person_type_key;
836:
837: CLOSE csr_val_person_type;
838: ELSE --else get from per_person_type_usages_f
839: OPEN csr_ptu_type (p_person_id, l_effective_date);
840:
841: FETCH csr_ptu_type
842: INTO l_system_person_type, l_seeded_person_type_key;