procedure get_PrebivanieTB(
   cur_viborka out t_cursor
   ,xdate in date
 )
 is
  CURSOR cr IS
   SELECT * 
   FROM (
    SELECT 
      TRIM(obv.numopzn) numopzn
     ,slv.namvrr namvrr  
     ,jdk.numdoc numdoc
     ,obj.ABBROBJR  mesto
     ,SUBSTR(loc.coord, 1, 7) lat
     ,SUBSTR(loc.coord, 8, 8) lng
     ,obv.dateizm dateizm
    FROM
     . . .
     ,( SELECT . . .  FROM . . .   WHERE . . .) pv
     ,( SELECT . . .  FROM . . .   WHERE . . .) svyaz
     ,( SELECT . . .  FROM . . .   WHERE . . .  AND jdc.codformuv = sfu.codformuv (+) ) jdk
    WHERE 
      obv.DEL IS NULL
     AND obv.coddoc = jdk.coddoc (+)
      . . . 
     AND TRUNC(obv.dateizm) <= xdate
    ORDER BY
      obv.numopzn
     ,obv.dateizm DESC
  );
  
  xstr varchar2(30);

 BEGIN
   execute immediate 'TRUNCATE TABLE tbl_tmp_gis'; 
   -- DELETE FROM  tbl_tmp_gis;
   -- COMMIT;

  xstr := '  ';
 
  --//-- Выборка первых строк в группах
  FOR row IN cr LOOP
   IF row.numopzn <> xstr THEN
    INSERT INTO tbl_tmp_gis VALUES (
      row.numopzn
     ,row.namvrr
     ,row.numdoc
     ,row.mesto
     ,row.lat
     ,row.lng
     ,row.dateizm 
    );
    xstr := row.numopzn;
   END IF; 
  END LOOP;
  
  -- COMMIT;
  
  open cur_viborka for 
  SELECT *
  FROM  tbl_tmp_gis;
 
  --  execute immediate 'TRUNCATE TABLE tbl_tmp_gis'; 
  -- DELETE FROM  tbl_tmp_gis;
  -- COMMIT;

 end get_PrebivanieTB;