PROCEDURE REPAIR_TABLE (name_table IN varchar2, no_table in number)
-- процедура разбора операций
   is
   query_str  long;
   cod_error    number;
   v_zag_temp  rec_temp_table;
   v_cid number;
   v_recnum number;
   cnt number;
   i number;
   j number;
   flag number;
   flagok number;
BEGIN
  query_str:=query_str||' from T_'||name_table||' where cr_is_tran=1'||
    ' order by cr_op_numb,cr_op_type';
  v_cid:=dbms_sql.open_cursor;
  dbms_sql.parse(v_cid,query_str,dbms_sql.native);
  dbms_sql.DEFINE_COLUMN(v_cid, 1 ,v_zag_temp.rid, 18 );
  dbms_sql.DEFINE_COLUMN(v_cid, 2 ,v_zag_temp.v_cr_op_user, 12 );
  dbms_sql.DEFINE_COLUMN(v_cid, 3 ,v_zag_temp.v_cr_op_type, 1 );
  dbms_sql.DEFINE_COLUMN(v_cid, 4 ,v_zag_temp.v_cr_op_numb);
  dbms_sql.DEFINE_COLUMN(v_cid, 5 ,v_zag_temp.v_cr_is_tran);
  dbms_sql.DEFINE_COLUMN(v_cid, 6 ,v_zag_temp.v_cr_pr_numb);
  dbms_sql.DEFINE_COLUMN(v_cid, 7 ,v_zag_temp.v_cr_op_date);
  j:= 8 ;
  DEFINE_COLUMN(v_cid,j, 1 ); v_recnum:=dbms_sql.execute(v_cid);
  loop
   if DBMS_SQL.FETCH_ROWS(v_cid)> 0  then
     dbms_sql.COLUMN_VALUE(v_cid, 1 ,v_zag_temp.rid);
     dbms_sql.COLUMN_VALUE(v_cid, 2 ,v_zag_temp.v_cr_op_user);
     dbms_sql.COLUMN_VALUE(v_cid, 3 ,v_zag_temp.v_cr_op_type);
     dbms_sql.COLUMN_VALUE(v_cid, 4 ,v_zag_temp.v_cr_op_numb);
     dbms_sql.COLUMN_VALUE(v_cid, 5 ,v_zag_temp.v_cr_is_tran);
     dbms_sql.COLUMN_VALUE(v_cid, 6 ,v_zag_temp.v_cr_pr_numb);
     dbms_sql.COLUMN_VALUE(v_cid, 7 ,v_zag_temp.v_cr_op_date);
     if upper(v_zag_temp.v_cr_op_type)='I' then
       if flagok=v_zag_temp.v_cr_op_numb then
         cod_error:= update_data(name_table, v_cid, no_table,j, 1 );
         write_error_to_temp (name_table, v_zag_temp, cod_error);
       else
         cod_error:=INSERT_DATA (name_table, v_cid, no_table,j);
         write_error_to_temp (name_table, v_zag_temp, cod_error);
       end if;
     END IF;
     if upper(v_zag_temp.v_cr_op_type)= 'D' then
       if flag not in ( 1 , 9 ) then
         cod_error:= delete_data(name_table, v_cid, no_table,j);
         write_error_to_temp (name_table, v_zag_temp, cod_error);
       else
         variable_value(v_cid, 2 ,j);
         write_error_to_temp (name_table,v_zag_temp, 0 );
         flagok:=v_zag_temp.v_cr_op_numb;
       end if;
     end if;
     if upper(v_zag_temp.v_cr_op_type)='U' then
       cod_error:= update_data(name_table, v_cid, no_table,j, 0 );
       write_error_to_temp (name_table, v_zag_temp, cod_error);
     end if;
     else
       exit;
     end if;
  END LOOP;

  DBMS_SQL.CLOSE_CURSOR(v_cid);

exception
  when others then

    if dbms_sql.is_open(v_cid) then
      dbms_sql.close_cursor(v_cid);
    end if;

END;