Oracle - Funcion dias laborables

CREATE OR REPLACE FUNCTION DIAS_LABORABLES

 (fecha_inicio IN DATE, fecha_fin IN DATE, p_codi IN VARCHAR2)

 RETURN NUMBER IS

     vacaciones     NUMBER;

     numero_dias NUMBER := 0;

     fecha_actual DATE;

 BEGIN

     IF fecha_fin >= fecha_inicio THEN

         fecha_actual := fecha_inicio;

         WHILE fecha_actual <= fecha_fin LOOP

             IF TO_CHAR(fecha_actual,'DY') NOT IN ('SAT','SUN') and fecha_actual not in (select fecha from recols.dcalen where codi in (

                                                                                         select DISTINCT regexp_substr(p_codi,'[^:]+', 1, level) from RECOLS.DCAEN

                                                                                         connect by regexp_substr(p_codi, '[^:]+', 1, level) is not null))

             THEN numero_dias := numero_dias + 1;

             END IF;

             fecha_actual := fecha_actual + 1;

         END LOOP;

         RETURN numero_dias - vacaciones;

     ELSE

     	RETURN 0;

     END IF;

 END DIAS_LABORABLES;

 /

create or replace FUNCTION DIAS_LABORABLES_ACUMULADOS (p_from_date IN DATE, p_contador in number, p_codi NUMBER)

   RETURN NUMBER IS

v_dias_lab number := 1;

v_contador number := 1;

v_calen number := 0;

v_fecha date;

BEGIN

  dbms_output.put_line('Inicio');

  v_fecha := p_from_date;

  for i in 1..p_contador loop

      SELECT count(1)

      into v_calen

      FROM RECOLS.DCALEN

      WHERE trunc(FECHA) = trunc(v_fecha) and CODI = p_codi;

      if (to_char(v_fecha,'DY', 'NLS_DATE_LANGUAGE=ENGLISH') in ('SAT','SUN') or v_calen > 0) then

                  dbms_output.put_line('Entra');

                  dbms_output.put_line(v_fecha);

                  v_dias_lab := v_dias_lab;

                  v_contador := v_contador+1;

      else

                  dbms_output.put_line('Entra lab');

                  v_dias_lab := v_dias_lab+1;

                  v_contador := v_contador+1;

      end if;

      v_fecha := v_fecha + 1;

      exit when v_dias_lab >= p_contador;

  end loop;

  return v_contador;

END;