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;

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;