anchor.diff:  			'Service-Information' = [ServiceInformation]},
   	{ok, Answer3} = diameter:call(?MODULE, cc_app_test, CCR2, []),
   	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer3,
  -	[#bucket{remain_amount = NewBalance}] = ocs:get_buckets(ProdRef),
  -	USUTotalOctets = Balance - NewBalance.
  +	[#bucket{remain_amount = Balance}] = ocs:get_buckets(ProdRef).
   
   diameter_scur_roaming_voice_ims() ->
   	[{userdata, [{doc, "DIAMETER SCUR "}]}].
  
positive.code: 	{ok, Answer1} = diameter:call(?MODULE, cc_app_test, CCR1, []),
  	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer1,
  	RequestNum2 = RequestNum1 + 1,
  	USUTotalOctets = 1,
  	UsedUnits2 = #'3gpp_ro_Used-Service-Unit' {
  			'CC-Total-Octets' = [USUTotalOctets]},
  	MSCC2 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  
negative.code: diameter_scur_price_descrimination_by_rg(_Config) ->
  	ServiceID = ocs:generate_identity(),
  	MSISDN = list_to_binary(ServiceID),
  	UnitSize = rand:uniform(50000000) + 50000000,
  	P1 = #price{name = ocs:generate_identity(), type = usage,
  					units = octets, size = 100000000, amount = rand:uniform(10000),
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 200}]}]},
  	P2 = #price{name = ocs:generate_identity(), type = usage,
  					units = octets, size = UnitSize, amount = 0,
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 100}]}]},
  	OfferId = add_offer([P1, P2], 4),
  	ProdRef = add_product(OfferId),
  	{ok, #service{}} = ocs:add_service(ServiceID, undefined, ProdRef, []),
  	Balance = 10000000 + rand:uniform(1000000000),
  	B1 = bucket(octets, Balance),
  	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  