CREATE or REPLACE FUNCTION borrar_inmueble(vinmueble inmueble.id%TYPE) RETURNS BOOLEAN AS $$
DECLARE
vregdormitorio dormitorio%ROWTYPE;
vreginmueble inmueble%ROWTYPE;

BEGIN

DELETE FROM dormitorio
WHERE inmueble_id = vinmueble
RETURNING * INTO vregdormitorio;

IF FOUND THEN
  RAISE NOTICE 'Se ha eliminado el dormitorio % ',vregdormitorio;
END IF;

DELETE FROM inmueble
WHERE id = vinmueble RETURNING * INTO vreginmueble;

IF FOUND THEN
  RAISE NOTICE 'Se ha eliminado el inmueble % ',vreginmueble;
  RETURN TRUE;
ELSE
  RAISE NOTICE 'No existe el inmueble % ',vinmueble;
  RETURN FALSE;
END IF;
END;
$$ LANGUAGE plpgsql;