anchor.diff:  	F = fun(#bucket{remain_amount = R, units = U, reservations = Res})
   				when
   				((ServiceType == undefined) orelse
  -				(((ServiceType == ?RADIUSDATA) orelse (ServiceType == ?DIAMETERDATA)) and
  +				(((ServiceType == ?RADIUSFRAMED) orelse (ServiceType == ?RADIUSLOGIN) orelse (ServiceType == ?DIAMETERDATA)) and
   				((U == octets) orelse (U == cents) orelse (U == seconds))) orelse
   				(((ServiceType == ?RADIUSVOICE) orelse (ServiceType == ?DIAMETERVOICE)) and
   				((U == seconds) orelse (U == cents)))) ->
  
positive.code: 								and
  								(((ServiceType == ?RADIUSVOICE) and
  								((Spec == "5") orelse (Spec == "9"))) orelse
  								((ServiceType == ?RADIUSDATA) and
  								((Spec == "4") orelse (Spec == "8")))))) ->
  						[P | Acc];
  					_ ->
  
negative.code: -define(EPOCH, 62167219200).
  
  %% service types for radius
  -define(RADIUSLOGIN, 1).
  -define(RADIUSFRAMED, 2).
  -define(RADIUSVOICE, 12).
  %% service types for diameter
  -define(DIAMETERDATA, <<"32251@3gpp.org">>).
  