141: -- Declare cursors and local variables
142: --
143: l_proc VARCHAR2(72) := g_package||'update_AU_person';
144: l_effective_date DATE;
145: l_legislation_code per_business_groups.legislation_code%type;
146: l_discard_varchar2 VARCHAR2(30);
147: --
148: CURSOR check_legislation
149: (c_person_id per_people_f.person_id%TYPE,
151: )
152: IS
153: select bgp.legislation_code
154: from per_people_f per,
155: per_business_groups bgp
156: where per.business_group_id = bgp.business_group_id
157: and per.person_id = c_person_id
158: and c_effective_date
159: between per.effective_start_date and per.effective_end_date;