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
434: ) ;
435: --
432: where e.assignment_id = p_assignment_id
433: and e.date_start > p_effective_date
434: ) ;
435: --
436: delete from per_events e
437: where e.assignment_id = p_assignment_id
438: and e.date_start > p_effective_date ;
439: --
440: end delete_events ;