CREATE or REPLACE FUNCTION borrar_inmueble_cursor_escritura(vinmueble 
inmueble.id%TYPE) RETURNS BOOLEAN AS $$
DECLARE
curdorm CURSOR FOR SELECT * FROM dormitorio
WHERE inmueble_id = vinmueble FOR UPDATE;
vreginmueb inmueble%ROWTYPE;
BEGIN
FOR vregdorm IN curdorm LOOP
  DELETE FROM dormitorio
  WHERE CURRENT OF curdorm;
  RAISE NOTICE 'Se ha eliminado el dormitorio: % ',vregdorm;
END LOOP;

IF NOT FOUND THEN
   RAISE NOTICE 'No se han eliminado dormitorios del inmueble: %',vinmueble;
END IF;

DELETE FROM inmueble
WHERE id = vinmueble
RETURNING * INTO vreginmueb;
IF FOUND THEN 
   RAISE NOTICE 'Se ha eliminado el inmueble % ',vreginmueb;
   RETURN TRUE;
ELSE
   RAISE NOTICE 'No existe el inmueble % ',vinmueble;
   RETURN FALSE;
END IF;
END;
$$ LANGUAGE plpgsql;