TEXT
PROCEDURE verificar_qtd_lugares_reserva(id_reserva_p NUMBER) IS

erro_qtd_lugares EXCEPTION;
  
BEGIN
  IF reserva_cabe_mesas(id_reserva_p) = 0 THEN
    DELETE FROM mesa_reservada MR WHERE MR.id_reserva = id_reserva_p;
    DELETE FROM reserva R WHERE R.id = id_reserva_p;
    COMMIT;
    RAISE erro_qtd_lugares;
  END IF;
  
    EXCEPTION
    WHEN erro_qtd_lugares THEN RAISE_APPLICATION_ERROR(-20123, 'Reserva inválida: a quantidade de lugares das mesas não comporta a quantidade de pessoas.');

END verificar_qtd_lugares_reserva;