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