create or replace FUNCTION SPLIT_ksr(
 delimiter_i  IN VARCHAR2, -- DEFAULT NULL
    string_i   IN VARCHAR2  --DEFAULT NULL
)
RETURN DBMS_SQL.VARCHAR2_TABLE
IS
 table_t   DBMS_SQL.VARCHAR2_TABLE;
 -- deliminator position initailized to the first deliminator
 delimiter_pos_t INTEGER := 1;
 -- index_position into the table
 table_pos_t  INTEGER :=0;
 start_point_t  INTEGER;
 end_point_t  INTEGER;
BEGIN
    IF delimiter_i IS NULL THEN
         --null;
         RETURN table_t;
    END IF;
    IF string_i IS NULL THEN
         --null;
         RETURN table_t;
    END IF;
    IF (INSTR(string_i,delimiter_i,1,delimiter_pos_t) = 0 )
 THEN
      table_t(table_pos_t) := string_i;
      RETURN table_t;
    END IF;
    --get the data upto the first deliminator
    start_point_t := 1;
    end_point_t := INSTR(string_i,delimiter_i,1,1) -1;
    table_t(table_pos_t) := SUBSTR(string_i,start_point_t,end_point_t);
    WHILE (INSTR(string_i,delimiter_i,1,delimiter_pos_t) > 0 )
 LOOP
         --move to the next index
         table_pos_t := table_pos_t+1;
         --gets data that is bounded by the deliminator on the left and right
         start_point_t := INSTR(string_i,delimiter_i,1,delimiter_pos_t)+1;
         end_point_t := INSTR(string_i,delimiter_i,1,delimiter_pos_t+1)- 2 -INSTR(string_i,delimiter_i,1,delimiter_pos_t)+1;
         table_t(table_pos_t) := SUBSTR(string_i,start_point_t,end_point_t);
         --move to the delimiter position
         delimiter_pos_t := delimiter_pos_t+1;
 END LOOP;
    --get the data that is from the last deliminator to the end of the line
    start_point_t := INSTR(string_i,delimiter_i,1,delimiter_pos_t-1)+1;
    table_t(table_pos_t) := SUBSTR(SUBSTR(string_i,start_point_t),1,1000);
RETURN table_t;
END;

 create or replace procedure read_min(V_min        IN   Varchar2)
   AS
   line_tab_t1   dbms_utility.uncl_array;
   len            pls_integer;
   cnt            pls_integer:=1;
   error_status   integer;
   BEGIN
   DBMS_UTILITY.COMMA_TO_TABLE(V_min,len,line_tab_t1);
   for i in 1..line_tab_t1.count loop
   dbms_output.put_line( cnt||line_tab_t1(i) );
   cnt := cnt+1;
   end loop;
   --error_status_out := 0;
   EXCEPTION
   WHEN others THEN
   error_status := -1 ;
   END;

TRY BOTH THE EXEC !!!

exec read_min('243267,78,848,38');

exec read_min('one,two,three');

DECLARE
   sourceStr VARCHAR2(100) := '3,34,55,6';
   workStr sourceStr%TYPE;
   singleVal sourceStr%TYPE;
   charPos BINARY_INTEGER;
   sep VARCHAR2(1) := ',';
BEGIN
   workStr := sourceStr;
   WHILE (INSTR(workStr,sep) > 0 ) LOOP
      charPos := INSTR(workStr,sep);
      singleVal := SUBSTR(workStr,0,charPos - 1);
      workStr := SUBSTR(workStr,charPos + 1);
      DBMS_OUTPUT.PUT_LINE('Val: '||singleVal);
   END LOOP;
   --Last value, or THE value if there is only one.
   singleVal := workStr;
   DBMS_OUTPUT.PUT_LINE('Val: '||singleVal);
END LOOP;