anchor.diff:  	[{userdata, [{doc, "DIAMETER SCUR for outgoing voice call"}]}].
   
   diameter_voice_out(_Config) ->
  -	Units = 6,
  -	P1 = price(usage, seconds, Units, rand:uniform(1000000)),
  +	UnitSize = 6,
  +	P1 = price(usage, seconds, UnitSize, rand:uniform(1000000)),
   	Incoming = #char_value{value = "answer"},
   	CallDirection1 = #char_value_use{name = "callDirection",
   			specification = "5", values = [Incoming]},
   	P2 = P1#price{char_value_use = [CallDirection1]},
  -	P3 = price(usage, seconds, Units, rand:uniform(1000000)),
  +	P3 = price(usage, seconds, UnitSize, rand:uniform(1000000)),
   	Outgoing = #char_value{value = "originate"},
   	CallDirection2 = #char_value_use{name = "callDirection",
   			specification = "5", values = [Outgoing]},
  
positive.code: 	[{userdata, [{doc, "DIAMETER SCUR with Centralized Unit Determination"}]}].
  
  diameter_scur_cud(_Config) ->
  	Units = 123456789,
  	P1 = price(usage, octets, Units, rand:uniform(1000000)),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	MSISDN = list_to_binary(ocs:generate_identity()),
  
negative.code: 			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'CC-Request-Type' = ?'3GPP_RO_CC-REQUEST-TYPE_TERMINATION_REQUEST',
  			'CC-Request-Number' = NewRequestNum} = Answer2,
  	ChargedUnits = case UsedUnits rem UnitSize of
  		0 ->
  			UsedUnits;
  		N ->
  			UsedUnits + (UnitSize - N)
  	end,
  	Balance2 = Balance1 - ChargedUnits,
  	{ok, #bucket{remain_amount = Balance2}} = ocs:find_bucket(B1ref).
  