Oracle - dividir un campo separado por comas oracle

select distinct A.id

     , regexp_substr(A.codigo,'[^,]+', 1, level) as valores

     , level

from   test_table A

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

order  by id, level;

Select id,

            Split(codigo,',',6) Codigo,  --- esto devuelve el 123

            Split(codigo,',',1) Codigo,  --- esto devuelve el 121

             ...........

             ...........

From test-Table

Function Split (p_cadena     in varchar2,

                p_simbolo    in char,

                p_ocurrencia in number default vUno) return varchar2 Is

--

v_txt     varchar2(200);

v_pos_ini integer := 0;

v_pos_fi  integer;

--

Begin

    -- Función que separa cadenas de texto (p_cadena) por el símbolo p_simbolo

    -- Devuelve la ocurrencia p_ocurrencia

    -- Devuelve null si la ocurrencia no existe

    -- Devuelve el símbolo p_simbolo si no hay ningún carácter entre dos

    --ocurrencias de p_simbolo

    if p_ocurrencia > 1 then

      v_pos_ini := instr (str1 => p_cadena,

                          str2 => p_simbolo,

                          pos  => 1,

                          nth  => p_ocurrencia - 1);

    end if;

    --

    v_pos_fi := instr (str1 => p_cadena,       -- test string

                       str2 => p_simbolo,      -- string to locate

                       pos  => 1,              -- position

                       nth  => p_ocurrencia);  -- occurrence number

    --

    if v_pos_ini = v_pos_fi then

      if p_ocurrencia = 1 then

        v_txt := substr (str1 => p_cadena, pos => 1);

      end if;

    elsif v_pos_ini > v_pos_fi then

      v_txt := substr (str1 => p_cadena, pos => v_pos_ini + 1);

    elsif v_pos_fi = v_pos_ini + 1 then

      v_txt := p_simbolo;

    else

      v_txt := substr (str1 => p_cadena, pos => v_pos_ini + 1,

                       len  => (v_pos_fi - v_pos_ini) - 1);

    end if;

    --

    return v_txt;

End Split;