144: -- Declare cursors and local variables
145: --
146: l_proc VARCHAR2(72) ;
147: l_effective_date date;
148: l_legislation_code per_business_groups.legislation_code%type;
149: l_discard_varchar2 varchar2(30);
150: --
151: cursor check_legislation
152: (c_person_id per_people_f.person_id%TYPE,
154: )
155: is
156: select bgp.legislation_code
157: from per_people_f per,
158: per_business_groups bgp
159: where per.business_group_id = bgp.business_group_id
160: and per.person_id = c_person_id
161: and c_effective_date
162: between per.effective_start_date and per.effective_end_date;