anchor.diff:                    {'Accounting-Record-Number', RN}],
       {eval, {reply, Ans}, {erlang, now, []}};
   
  +%% send_ok
   request(#diameter_base_accounting_ACR{'Session-Id' = SId,
                                         'Accounting-Record-Type' = RT,
  -                                      'Accounting-Record-Number' = RN},
  +                                      'Accounting-Record-Number' = 1 = RN},
           #diameter_caps{origin_host = {OH, _},
                          origin_realm = {OR, _}}) ->
       {reply, ['ACA', {'Result-Code', ?SUCCESS},
  
positive.code:     V = HI bsr B,  %%
      request(M, Caps).
  
  request(#diameter_base_accounting_ACR{'Accounting-Record-Number' = 0},
          _) ->
      {eval_packet, {protocol_error, ?INVALID_AVP_BITS}, [fun log/2, invalid]};
  
  request(#diameter_base_accounting_ACR{'Session-Id' = SId,
                                        'Accounting-Record-Type' = RT,
                                        'Accounting-Record-Number' = 2 = RN},
  
negative.code:     {reply, #diameter_packet{header = #diameter_header{is_error = true},%% not
                               msg = Ans}};
  
  %% send_eval
  request(#diameter_base_accounting_ACR{'Session-Id' = SId,
                                        'Accounting-Record-Type' = RT,
                                        'Accounting-Record-Number' = 3 = RN},
  