-- создаем глобальный тип данных, локальный нельзя использовать
   create or replace type row_tb as object (
    numopzn VARCHAR2(30),
    codprvr VARCHAR2(1),
    dateizm DATE
   );
   create or replace type tt_tb is table of row_tb;

  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
    CURSOR cr IS
      select obv.numopzn,SUBSTR(obv.codprvr,1,1) codprvr, obv.dateizm
      from OBJVR obv, tbl_tmp_pk pk 
      where 
        obv.numopzn = pk.numopzn and
        (TRUNC(obv.dateizm) <= x_dt_srez_new) and (TRUNC(obv.dateizm) > x_dt_srez_old) and
        obv.codprvr in ('РАЗ...','НЕРАЗ...') and
        SUBSTR(trim(obv.nuved),16)='/12' and obv.DEL is null
      order by obv.numopzn;
    xrow cr%ROWTYPE; xtbl tt_tb;
  BEGIN
    execute immediate 'TRUNCATE TABLE tbl_tmp_pk';  str2tbl(x_pk);
    xrow.numopzn := '#';  xtbl := tt_tb(); -- инициализация

    FOR cr_row IN cr LOOP
      -- Обработка информации по новому ТБ ?
      IF cr_row.numopzn <> xrow.numopzn THEN
        -- Да. Обработка 1-ой строки курсора? 
        IF xrow.numopzn <> '#' THEN
          -- Нет. Перепись найденной строки во временную таблицу
          xtbl.extend; xtbl(xtbl.count):= row_tb(xrow.numopzn, xrow.codprvr, xrow.dateizm);
        END IF;
        xrow := cr_row;
      ELSE
        -- Обработка информации по текущему ТБ. Более позднее состояние ТБ?
        IF xrow.dateizm < cr_row.dateizm THEN xrow := cr_row;  END IF;
      END IF;
    END LOOP;
    -- Перепись крайней найденной строки во временную таблицу
    IF xrow.numopzn <> '#' THEN
      xtbl.extend; xtbl(xtbl.count):= row_tb(xrow.numopzn, xrow.codprvr, xrow.dateizm);
    END IF;
    open cur_viborka for SELECT * FROM table(xtbl);
    DELETE tbl_tmp_pk; COMMIT;
  end Srez_RN;

  -- Public type declarations
  type t_cursor is ref cursor;

   CREATE GLOBAL TEMPORARY TABLE tbl_tmp_rn(
     numopzn VARCHAR2(30)
     ,codprvr VARCHAR2(15)
     ,dateizm DATE 
   )
  ON COMMIT PRESERVE ROWS;

  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;
_ _ _