anchor.diff:  						UpdatedMap = maps:update("serviceRating", ServiceRating, NrfMap),
   						ok = remove_ref(RatingDataRef),
   						NrfResponse = nrf(UpdatedMap),
  -						{NrfResponse, log_request(RatingDataRef, 1, NrfMap),
  -								log_reply(RatingDataRef, 1, UpdatedMap)};
  +						{NrfResponse, diameter_request(RatingDataRef, 1, NrfMap),
  +								diameter_reply(RatingDataRef, 1, UpdatedMap)};
   					{error, out_of_credit} ->
   						Problem = error_response(out_of_credit, undefined),
   						{error, 403, Problem};
  
positive.code: 		{error, StatusCode, Problem1} ->
  			{error, StatusCode, Problem1};
  		{error, _Reason} ->
  			{error, 500}
  	catch
  		_:_ ->
  			{error, 500}
  	end.
  
  
negative.code: 			'Event-Timestamp' = calendar:universal_time(),
  			'Subscription-Id' = format_sub_ids(SubscriptionIds)}.
  
  -spec diameter_reply(RatingDataRef, RequestType, Reply) -> DiameterReply
  	when
  		RatingDataRef :: string(),
  		RequestType :: 1..4,
  		Reply :: map(),
  		DiameterReply :: #'3gpp_ro_CCA'{}.
  %% @doc Convert a Nrf Resply map() to a #'3gpp_ro_CCA'{}.
  diameter_reply(RatingDataRef, RequestType, #{"invocationSequenceNumber" := RequestNum,
  		"serviceRating" := ServiceRating}) ->
  	{ok, DiamterConfig} = application:get_env(ocs, diameter),
  	#'3gpp_ro_CCA'{'Session-Id' = RatingDataRef,
  