425: procedure delete_events ( p_assignment_id in number,
426: p_effective_date in date ) is
427: begin
428: --
429: delete from per_bookings b
430: where b.event_id in ( select e.event_id
431: from per_events e
432: where e.assignment_id = p_assignment_id
433: and e.date_start > p_effective_date