THEN 01.янв||

EXECUTE IMMEDIATE 'SELECT '||l_list||' FROM GRAFIK WHERE kod_sotr=:A AND god=:year' INTO l_res USING i_code,i_year;

create or replace FUNCTION get_week_list_prob(i_code IN INTEGER, i_year in integer) RETURN VARCHAR2 IS
  l_list  VARCHAR2(32767);
  l_res   VARCHAR2(4000);
BEGIN
SELECT listagg('CASE WHEN '||column_name||' IN(''б'') THEN '|| to_char(trunc(to_date(i_year,'yyyy'),'y')+((LTRIM(column_name, 'N'))-1)*7,'dd mm')||'||''; '' ELSE NULL END ' ,'||') 
WITHIN GROUP(ORDER BY 1)
  INTO  l_list
  FROM  user_tab_columns
  WHERE TABLE_NAME = 'GRAFIK' 
  AND column_name LIKE 'N%';
 --dbms_output.enable;
--dbms_output.put_line('SELECT '||l_list||' FROM GRAFIK WHERE kod_sotr=:' ||i_code||' AND god=:' ||i_year);
--l_res:=('SELECT '||l_list||' FROM GRAFIK WHERE kod_sotr=:' ||i_code||' AND god=:' ||i_year);
--return l_res;
EXECUTE IMMEDIATE 'SELECT '||l_list||' FROM GRAFIK WHERE kod_sotr=:A AND god=:year' INTO l_res USING i_code,i_year;
return l_res;
END;

regexp_substr (get_week_list_prob(t.kod_sotr,t.god), '([[:digit:]]+)(,)([[:digit:]]+)(;)$'))

select get_week_list_prob(109909,2017) s from dual

SELECT listagg('CASE WHEN '||column_name||' IN(''б'') THEN '|| to_char( trunc (to_date(2017||'0101', 'yyyymmdd') 
+ ((LTRIM(column_name,'N'))-1)*7, 'ww'), 'dd mon')||'||''; '' ELSE ''?'' END ' ,'||') 
WITHIN GROUP(ORDER BY 1)
into l_list
  FROM  user_tab_columns
  WHERE TABLE_NAME = 'GRAFIK' 
  AND column_name LIKE 'N%';

select case 1 when 1 then '01.янв'||';' else '?' end from dual;

SELECT listagg('CASE WHEN '||column_name||' IN(''б'') THEN '||q'~ to_char( trunc (to_date(2017||'0101', 'yyyymmdd') 
+ ((LTRIM(column_name,'N'))-1)*7, 'ww'), 'dd.mon')~'||'||''; '' ELSE ''?'' END ' ,'||') 
WITHIN GROUP(ORDER BY 1)
  FROM  user_tab_columns
  WHERE TABLE_NAME = 'GRAFIK' 
  AND column_name LIKE 'N%';

select case 1 when 1 then '01.янв'||';' else '?' end from dual;

select regexp_substr (get_week_list3 (109909, 2017), '[^;]*;')||regexp_substr (get_week_list3 (109909, 2017), '; [&;]*; ') t from dual;