126: --
127:
128: l_proc varchar2(72) := g_package||'update_fr_person';
129: l_effective_date date;
130: l_legislation_code per_business_groups.legislation_code%type;
131: l_discard_varchar2 varchar2(30);
132: --
133: cursor check_legislation
134: (c_person_id per_people_f.person_id%TYPE,
136: )
137: is
138: select bgp.legislation_code
139: from per_people_f per,
140: per_business_groups bgp
141: where per.business_group_id = bgp.business_group_id
142: and per.person_id = c_person_id
143: and c_effective_date
144: between per.effective_start_date and per.effective_end_date;