anchor.diff:                     ('$end_of_table', {Count, _}) ->
                        {abort, Count};
                      (#document{key = Uuid}, {Count, BatchNum0}) ->
  -                     BatchNum = case Count rem 100 of
  +                     BatchNum = case Count rem ?CLEAR_BATCH_SIZE of
                                     0 ->
                                       case Count of
                                         0 ->
                                           ok;
                                         _ ->
  -                                        count_clear_acc(Count, BatchNum0)
  +                                        count_clear_acc(?CLEAR_BATCH_SIZE, BatchNum0)
                                       end,
                                       BatchNum0 + 1;
                                     _ ->
  
positive.code: -export([flush_all/2, flush/3, flush/4, clear/3, clear/4]).
  -export([save_consistency_restored_info/3, begin_consistency_restoring/2, end_consistency_restoring/2,
    check_cache_consistency/2, consistency_info_lock/3, init_consistency_info/2]).
  
  %%%===================================================================
  %%% API
  
negative.code:     {doc_cleared, BatchNum} ->
        count_clear_acc(Count - 1, BatchNum)
    after timer:minutes(1) ->
      ?warning("Not cleared old cache for batch num ~p, current count ~p", [BatchNum, Count]),
      ok
    end.
  
  