Need procedure for the function

Question

Hi
Can any one create a procedure
for the following
Following is a function i need a procedure
which basically Converts the values in the a Column to no of rows
Example : Column Name: USA; Canada; Japan;
in to 3 rows : USA
Canada
Japan
create
or replace function f_get_row_vals(V_column_value VARCHAR2)
return T_LIST_OF_VALS PIPELINED
as
n_str_length NUMBER := 0;
N_START_CHAR NUMBER := 1;
N_END_CHAR NUMBER := 0;
n_counter NUMBER := 1;
v_value VARCHAR2(50) := NULL;
begin
IF V_column_value IS NULL
THEN
RETURN;
END IF;
n_str_length := LENGTH(V_column_value);
LOOP
N_END_CHAR := INSTR(V_column_value,';',1,n_counter);
IF N_END_CHAR = 0
THEN
v_value := SUBSTR(V_column_value, N_START_CHAR, n_str_length - N_START_CHAR + 1);
ELSE
v_value := SUBSTR(V_column_value, N_START_CHAR, N_END_CHAR-N_START_CHAR);
END IF;
n_counter := n_counter + 1;
N_START_CHAR := N_END_CHAR + 1;
pipe row(v_value);
EXIT WHEN N_END_CHAR = 0 ;
END LOOP;
RETURN;
END;
Thanks

Answer 1

This is the procedure they are using previously.
This procedure is calling the above function. I need like this
CREATE
OR REPLACE PROCEDURE P_EXPAND_USER_ACCESS_REV_MART
IS
rec_ODS_USER_ACCESS_REV_MART ODS.ODS_USER_ACCESS_REV_MART%ROWTYPE;
CURSOR c_getrows
IS
select * from ODS.ODS_USER_ACCESS_REV_MART;
BEGIN
OPEN c_getrows;
LOOP
FETCH c_getrows INTO rec_ODS_USER_ACCESS_REV_MART;
EXIT WHEN c_getrows%NOTFOUND;
DBMS_OUTPUT.put_line(rec_ODS_USER_ACCESS_REV_MART.wwfo_area);
DBMS_OUTPUT.put_line(rec_ODS_USER_ACCESS_REV_MART.soln_division);
INSERT INTO DW_USER_ACCESS_REV_MART
user_id,
wwfo_area,
soln_division
SELECT rec_ODS_USER_ACCESS_REV_MART.user_id,
area_tab.column_vaLue,
soln_tab.column_value
FROM TABLE(CAST(f_get_row_vals(rec_ODS_USER_ACCESS_REV_MART.wwfo_area)AS T_LIST_OF_VALS) ) area_tab,
TABLE(CAST(f_get_row_vals(rec_ODS_USER_ACCESS_REV_MART.soln_division)AS T_LIST_OF_VALS)) soln_tab
END LOOP;
CLOSE c_getrows;
COMMIT;
END;