Obtener el siguiente valor de una tabla

CREATE OR REPLACE
FUNCTION proximo_valor (devuelve_valor IN OUT NUMBER) RETURN NUMBER IS
   nError NUMBER := 0;
BEGIN
      BEGIN
         SELECT MAX(CAMPO_TABLA)
         INTO devuelve_valor
         FROM TABLA;
            devuelve_valor := NVL(devuelve_valor,0) + 1;
      EXCEPTION
         WHEN OTHERS THEN
              nError := -10000;
      END;
      RETURN (nError);
END;