PROCEDURE json(p_period varchar2, p_modelid number) is
            
    v_res    system.json := system.json(); -- непонятный тип данных и присвоенное значение
    v_l1     system.json_list; -- ??
    v_o      system.json;
    
    v_clob   clob;
  begin
  
  v_l1 := system.json_list();
  
  for i in (какой-то запрос)loop
    v_o:=system.json(); 
    v_o.put('rn', i.rn); -- записываем в v_o, тут вроде ясно
    v_o.put('name', i.name);
    v_o.put('value', i.value);
    v_o.put('prc', i.prc*100);
    v_o.put('prc_lag', i.prc_lag*100);
            
    v_l1.append(v_o.to_json_value); -- тут тоже не ясно 
  end loop;
  
  v_res.put('r_ktg_fact',   v_l1.to_json_value);
  
  v_l1 := system.json_list();
  
  for i in (запрос) loop
    v_o:=system.json();
    v_o.put('name', i.name);
    v_o.put('value', i.value);
    
    v_l1.append(v_o.to_json_value);
  end loop;
  
  v_res.put('r_ktg_plan',   v_l1.to_json_value);
  
  ------------------------------------------------  
  
  dbms_lob.createtemporary(v_clob, true); -- ??
  v_res.to_clob(v_clob, true);                    -- ??
  base.htpclob(v_clob);                             -- ??
    
  end;