anchor.diff:  
   %% @hidden
   dia_req_and_res(#'3gpp_ro_CCR'{'Origin-Realm' = OriginRealm,
  -		'Destination-Realm' = DesRealm, 'User-Name' = [UserName],
  -		'Subscription-Id' = [#'3gpp_ro_Subscription-Id'{
  -				'Subscription-Id-Data' = Subscriber} | _]} = Request,
  +		'Origin-Host' = OriginHost, 'Destination-Realm' = DesRealm,
  +		'User-Name' = UserName, 'Subscription-Id' = SubscriptionId},
   		#'3gpp_ro_CCA'{'Result-Code' = undefined}) ->
  -	case Request#'3gpp_ro_CCR'.'Origin-Host' of
  +	Subscriber = case SubscriptionId of
  +		[] ->
  +			undefined;
  +		[#'3gpp_ro_Subscription-Id'{'Subscription-Id-Data' = Sub} | _] ->
  +			Sub
  +	end,
  +	case OriginHost of
   		OriginHost1 when is_binary(OriginHost1) ->
   			{"unknown", "ro", OriginHost1, OriginHost1, undefined, OriginRealm,
   					DesRealm, Subscriber, UserName, "AAAAccountingUsageSpec"};
  
positive.code: 					DesRealm, undefined, undefined, "AAAPolicyUsageSpec"}
  	end;
  dia_req_and_res(#'3gpp_gx_RAR'{'Origin-Realm' = OriginRealm,
  		'Destination-Realm' = DesRealm} = Request,
  		#'3gpp_gx_RAA'{'Result-Code' = _ResultCode}) ->
  	case Request#'3gpp_gx_RAR'.'Origin-Host' of
  		OriginHost1 when is_binary(OriginHost1) ->
  			{"failure", "gx", OriginHost1, OriginHost1, undefined, OriginRealm,
  					DesRealm, undefined, undefined, "AAAPolicyUsageSpec"};
  
negative.code: 					DesRealm, Subscriber, UserName, "AAAAccountingUsageSpec"}
  	end;
  dia_req_and_res(#'3gpp_ro_CCR'{'Origin-Realm' = OriginRealm,
  		'Origin-Host' = OriginHost, 'Destination-Realm' = DesRealm,
  		'User-Name' = UserName, 'Subscription-Id' = SubscriptionId},
  		#'3gpp_ro_CCA'{'Result-Code' = _ResultCode}) ->
  	Subscriber = case SubscriptionId of
  		[] ->
  			undefined;
  		[#'3gpp_ro_Subscription-Id'{'Subscription-Id-Data' = Sub} | _] ->
  			Sub
  	end,
  	case OriginHost of
  		OriginHost1 when is_binary(OriginHost1) ->
  			{"failure", "ro", OriginHost1, OriginHost1, undefined, OriginRealm,
  					DesRealm, Subscriber, UserName, "AAAAccountingUsageSpec"};
  