anchor.diff:  							units = Units, product = [ProductId]} | Buckets2],
   					charge3(Service, Product, Buckets4, interim,
   							DebitAmount, {Units, UnitsCharged},
  -							{Units, 0}, {Units, 0}, State, ChargingKey, Buckets)
  +							{Units, 0}, {Units, 0}, State, Rated, ChargingKey, Buckets)
   			end
   	end;
   charge2(#service{name = ServiceId} = Service, #product{id = ProductId} = Product, Buckets,
   		#price{units = Units, size = UnitSize, amount = UnitPrice},
   		interim, {Units, Damount} = DebitAmount, {Units, Ramount} = ReserveAmount,
  -		#state{session_id = SessionId} = State, ChargingKey) ->
  +		#state{session_id = SessionId} = State, Rated, ChargingKey) ->
   	case update_session(Units, Damount, Ramount,
   			ServiceId, ChargingKey, SessionId, Buckets) of
   		{Damount, UnitsReserved, Buckets2} when UnitsReserved >= Ramount ->
   			charge3(Service, Product, Buckets2, interim, DebitAmount, DebitAmount,
  -					ReserveAmount, {Units, UnitsReserved}, State, ChargingKey, Buckets);
  +					ReserveAmount, {Units, UnitsReserved}, State, Rated, ChargingKey, Buckets);
   		{Damount, UnitsReserved, Buckets2} when UnitsReserved < Ramount ->
   			NewReserveUnits = Ramount - UnitsReserved,
   			{UnitReserve, PriceReserve} = price_units(NewReserveUnits,
  
positive.code: 			accumulated_balance(NewBuckets, Product#product.id)};
  charge3(#service{session_attributes = SessionList} = Service1, Product, Buckets, final,
  		{Units, _Charge}, {Units, _Charged}, {Units, 0}, {Units, 0},
  		#state{rated = Rated, session_id = SessionId,
  		service_id = ServiceId}, ChargingKey, OldBuckets) ->
  	{Debits, NewBuckets} = get_final(ServiceId,
  			ChargingKey, SessionId, Buckets),
  	{NewBRefs, DeletedBuckets}
  
negative.code: 							ChargingKey, SessionId, Buckets3),
  					charge3(Service, Product, Buckets4, interim,
  							DebitAmount, DebitAmount, ReserveAmount,
  							{Units, UnitsReserved + UnitReserve}, State, Rated, ChargingKey, Buckets);
  				false ->
  					charge3(Service, Product, Buckets2, interim, DebitAmount, DebitAmount,
  							ReserveAmount, {Units, UnitsReserved}, State, Rated, ChargingKey, Buckets)
  			end;
  		{UnitsCharged, 0, Buckets2} when UnitsCharged < Damount ->
  			NewChargeUnits = Damount - UnitsCharged,
  