anchor.diff:  			'CC-Request-Number' = RequestNum1,
   			'Event-Timestamp' = [calendar:universal_time()],
   			'Subscription-Id' = [SubscriptionId],
  -			'Multiple-Services-Credit-Control' = [MSCC1, MSCC2],
  +			'Multiple-Services-Credit-Control' = [MSCC1],
   			'Service-Information' = [ServiceInformation]},
   	{ok, Answer1} = diameter:call(?MODULE, cc_app_test, CCR1, []),
   	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer1,
   	RequestNum2 = RequestNum1 + 1,
  -	UsedUnits1 = #'3gpp_ro_Requested-Service-Unit' {
  -			'CC-Total-Octets' = [3000]},
  -	UsedUnits2 = #'3gpp_ro_Requested-Service-Unit' {
  -			'CC-Total-Octets' = [4000]},
  -	RequestedUnits3 = #'3gpp_ro_Requested-Service-Unit' {
  -			'CC-Total-Octets' = []},
  -	MSCC3 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  -			'Requested-Service-Unit' = [RequestedUnits3], 'Used-Service-Unit' = [UsedUnits1],
  +	USUTotalOctets = 1,
  +	UsedUnits2 = #'3gpp_ro_Used-Service-Unit' {
  +			'CC-Total-Octets' = [USUTotalOctets]},
  +	MSCC2 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  +			'Requested-Service-Unit' = [RequestedUnits], 'Used-Service-Unit' = [UsedUnits2],
   			'Rating-Group' = [100]},
  -	MSCC4 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  -			'Requested-Service-Unit' = [RequestedUnits3], 'Used-Service-Unit' = [UsedUnits2],
  -			'Rating-Group' = [200]},
   	CCR2 = #'3gpp_ro_CCR'{'Session-Id' = SId,
   			'Auth-Application-Id' = ?RO_APPLICATION_ID,
   			'Service-Context-Id' = "32251@3gpp.org",
   			'User-Name' = [MSISDN],
  -			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  +			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_TERMINATION_REQUEST',
   			'CC-Request-Number' = RequestNum2,
   			'Event-Timestamp' = [calendar:universal_time()],
   			'Subscription-Id' = [SubscriptionId],
  -			'Multiple-Services-Credit-Control' = [MSCC3, MSCC4],
  +			'Multiple-Services-Credit-Control' = [MSCC2],
   			'Service-Information' = [ServiceInformation]},
  -	{ok, Answer2} = diameter:call(?MODULE, cc_app_test, CCR2, []),
  -	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer2,
  -	RequestNum3 = RequestNum2 + 1,
  -	UsedUnits3 = #'3gpp_ro_Requested-Service-Unit' {
  -			'CC-Total-Octets' = [5000]},
  -	UsedUnits4 = #'3gpp_ro_Requested-Service-Unit' {
  -			'CC-Total-Octets' = [6000]},
  -	MSCC5 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  -			'Requested-Service-Unit' = [RequestedUnits3], 'Used-Service-Unit' = [UsedUnits3],
  -			'Rating-Group' = [100]},
  -	MSCC6 = #'3gpp_ro_Multiple-Services-Credit-Control'{
  -			'Requested-Service-Unit' = [RequestedUnits3], 'Used-Service-Unit' = [UsedUnits4],
  -			'Rating-Group' = [200]},
  -	CCR3 = #'3gpp_ro_CCR'{'Session-Id' = SId,
  -			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  -			'Service-Context-Id' = "32251@3gpp.org",
  -			'User-Name' = [MSISDN],
  -			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_TERMINATION_REQUEST',
  -			'CC-Request-Number' = RequestNum3,
  -			'Event-Timestamp' = [calendar:universal_time()],
  -			'Subscription-Id' = [SubscriptionId],
  -			'Multiple-Services-Credit-Control' = [MSCC5, MSCC6],
  -			'Service-Information' = [ServiceInformation]},
  -	{ok, Answer3} = diameter:call(?MODULE, cc_app_test, CCR3, []),
  -	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer3.
  +	{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.
   
   %%---------------------------------------------------------------------
   %%  Internal functions
  
positive.code: 		TestCase == diameter_voice_out_tariff;
  		TestCase == diameter_voice_in_tariff;
  		TestCase == scur_start_redirect_server;
  		TestCase == diameter_scur_price_descrimination_by_rg->
  	Address = ?config(diameter_acct_address, Config),
  	ok = ocs:delete_client(Address).
  
  
negative.code: 			'Redirect-Server-Address' = CCARedirectServer}]}] = Fui.
  
  diameter_scur_price_descrimination_by_rg() ->
  	[{userdata, [{doc, "DIAMETER SCUR Price Descrimination By Rating Group"}]}].
  
  diameter_scur_price_descrimination_by_rg(_Config) ->
  	ServiceID = ocs:generate_identity(),
  	MSISDN = list_to_binary(ServiceID),
  	Type = usage,
  	Units = octets,
  	Amount1 = rand:uniform(10000),
  	Amount2 = rand:uniform(10000),
  	P1 = #price{name = ocs:generate_identity(), type = Type,
  					units = Units, size = 1, amount = Amount1,
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 100}]}]},
  	P2 = #price{name = ocs:generate_identity(), type = Type,
  					units = Units, size = 1, amount = Amount2,
  					char_value_use = [#char_value_use{name = "chargingKey",
  							specification = "3", values = [#char_value{
  							value = 200}]}]},
  	OfferId = add_offer([P1, P2], 4),
  	ProdRef = add_product(OfferId),
  	{ok, #service{}} = ocs:add_service(ServiceID, undefined, ProdRef, []),
  	F1 = fun() ->
  			mnesia:write(product, #product{id = ProdRef, service = [MSISDN]})
  	end,
  	mnesia:transaction(F1),
  	Balance = 1000000 + rand:uniform(1000000000),
  	B1 = bucket(octets, Balance),
  	_BId = add_bucket(ProdRef, B1),
  	Ref = erlang:ref_to_list(make_ref()),
  	SId = diameter:session_id(Ref),
  	SubscriptionId = #'3gpp_ro_Subscription-Id'{
  