anchor.diff:  	[{userdata, [{doc, "DIAMETER SCUR for outgoing voice call"}]}].
   
   diameter_voice_out(_Config) ->
  -	UnitSize = 6,
  +	UnitSize = 60,
   	P1 = price(usage, seconds, UnitSize, rand:uniform(1000000)),
   	Incoming = #char_value{value = "answer"},
   	CallDirection1 = #char_value_use{name = "callDirection",
  
positive.code: 	MultiServices_CC = #'3gpp_ro_Multiple-Services-Credit-Control'{
  			'Used-Service-Unit' = [UsedUnits],
  			'Requested-Service-Unit' = [RequestedUnits]},
  	ServiceInformation = #'3gpp_ro_Service-Information'{'IMS-Information' =
  			[#'3gpp_ro_IMS-Information'{
  					'Node-Functionality' = ?'3GPP_NODE-FUNCTIONALITY_AS',
  					'Calling-Party-Address' = [<<"tel:110493422">>],
  					'Called-Party-Address' = [<<"tel:0110493488">>]}]},
  	CC_CCR = #'3gpp_ro_CCR'{'Session-Id' = SId,
  			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'Service-Context-Id' = "nas45.32251@3gpp.org" ,
  			'User-Name' = [Username],
  			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  			'CC-Request-Number' = RequestNum,
  
negative.code: 	[{userdata, [{doc, "DIAMETER SCUR with insufficient credit"}]}].
  
  diameter_scur_no_credit(_Config) ->
  	UnitSize = 1000000 + rand:uniform(10000),
  	Amount = rand:uniform(100),
  	P1 = price(usage, octets, UnitSize, Amount),
  	OfferId = add_offer([P1], 4),
  	ProdRef = add_product(OfferId),
  	ServiceID = list_to_binary(ocs:generate_identity()),
  