procedure Srez_RN(
    cur_viborka out t_cursor, x_pk in varchar2,
    x_dt_srez_new in date, x_dt_srez_old in date) 
  IS
  begin
    execute immediate 'TRUNCATE TABLE tbl_tmp_pk'; str2tbl(x_pk);
    open cur_viborka for
      select obv.*
      from OBJVR obv, 
       ( select obv.numopzn || MAX(TO_CHAR(obv.dateizm,'YYYYMMDD')) a
         from OBJVR obv, tbl_tmp_pk pk 
         where 
          obv.numopzn = pk.numopzn and
          (TRUNC(obv.dateizm) <= TRUNC(x_dt_srez_new)) and (TRUNC(obv.dateizm) > TRUNC(x_dt_srez_old)) and
          obv.codprvr in ('РАЗ...','НЕРАЗ...') and  SUBSTR(obv.nuved,16)='/03'
         group by obv.numopzn
       ) x 
      where (obv.numopzn || TO_CHAR(obv.dateizm,'YYYYMMDD')) = x.a;
    delete tbl_tmp_pk;
  end Srez_RN;

  -- CREATE GLOBAL TEMPORARY TABLE tbl_tmp_pk( numopzn VARCHAR2(30))
  -- ON COMMIT PRESERVE ROWS
  procedure str2tbl(str in varchar2) is 
    i number; j number; n number;
  begin
    j := 1; n := LENGTH(str); 
    while ( j < n) loop
      i := instr(str,',',j,1);
      INSERT INTO tbl_tmp_pk VALUES (substr(str,j,i-j));
      j := i+1;
    end loop;
  end str2tbl;

  -- создаем глобальный тип данных, локальный нельзя использовать
  -- create or replace type row_tb_pk as object ( numopzn VARCHAR2(30));
  -- create or replace type tt_tb_pk is table of row_tb_pk;
  procedure str2tbl(str in varchar2) is 
    i number; j number; n number;
  begin
    j := 1; n := LENGTH(str); 
    while ( j < n) loop
      i := instr(str,',',j,1);
      xtbl_tb_pk.extend; 
      xtbl_tb_pk(xtbl_tb_pk.count):= row_tb_pk(substr(str,j,i-j));
      j := i+1;
    end loop;
  end str2tbl;

    - - -
    CURSOR cr IS
      select obv.numopzn,SUBSTR(obv.codprvr,1,1) codprvr, obv.dateizm
--      from OBJVR obv, tbl_tmp_pk pk 
      from OBJVR obv, (SELECT * FROM table(cast(xtbl_tb_pk as tt_tb_pk))) pk 
      where 
        obv.numopzn = pk.numopzn and
        (TRUNC(obv.dateizm) <= TRUNC(x_dt_srez_new)) and
        (TRUNC(obv.dateizm) > TRUNC(x_dt_srez_old)) and
        obv.codprvr in ('РАЗ...','НЕРАЗ...') and
        SUBSTR(trim(obv.nuved),16)='/03' and 
        obv.DEL is null
      order by obv.numopzn;
    - - -

CREATE OR REPLACE PACKAGE BODY NCUYAO_GIS is
   xtbl_tb_pk tt_tb_pk;
- - -

CREATE OR REPLACE PACKAGE BODY NCUYAO_GIS is
  xtbl_tb_pk tt_tb_pk;

  -- создаем глобальный тип данных, локальный нельзя использовать
  -- create or replace type row_tb_pk as object ( numopzn VARCHAR2(30));
  -- create or replace type tt_tb_pk is table of row_tb_pk;
  procedure str2tbl(str in varchar2) is 
    i number; j number; n number;
  begin
    xtbl_tb_pk := tt_tb_pk(); -- инициализация
    j := 1; n := LENGTH(str); 
    while ( j < n) loop
      i := instr(str,',',j,1);
      xtbl_tb_pk.extend; 
      xtbl_tb_pk(xtbl_tb_pk.count):= row_tb_pk(substr(str,j,i-j));
      j := i+1;
    end loop;
  end str2tbl;
_ _ _