310: IS
311: --
312: cursor get_ret_asg(p_bg_id number) is
313: select pra.retro_assignment_id
314: from pay_retro_assignments pra
315: where pra.assignment_id in (select distinct paf.assignment_id
316: from per_assignments_f paf
317: where paf.business_group_id = p_bg_id);
318: --
327: --
328: delete from pay_retro_entries
329: where retro_assignment_id = rarec.retro_assignment_id;
330: --
331: delete from pay_retro_assignments
332: where retro_assignment_id = rarec.retro_assignment_id;
333: --
334: end loop;
335: --