anchor.diff:  %% @doc POST rating data to a Nrf Rating Server.
   post_request({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   		SessionId, MSCC, Location, intial) ->
  -	{_, NrfUri} = application:get_env(ocs, nrf_uri),
   	{ok, NrfUri} = application:get_env(nrf_uri),
   	Path = NrfUri ++ ?BASE_URI,
   	post_request1({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   			SessionId, MSCC, Location, Path);
   post_request({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   		SessionId, MSCC, Location, interim) ->
  -	{_, NrfUri} = application:get_env(ocs, nrf_uri),
  +	{ok, NrfUri} = application:get_env(nrf_uri),
   	Path = NrfUri ++ ?BASE_URI ++ "/" ++
   			get_ref(SessionId) ++ "/" ++ "update",
   	post_request1({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   			SessionId, MSCC, Location, Path);
   post_request({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   		SessionId, MSCC, Location, final) ->
  -	{_, NrfUri} = application:get_env(ocs, nrf_uri),
  +	{_, NrfUri} = application:get_env(nrf_uri),
   	Path = NrfUri ++ ?BASE_URI ++ "/" ++
   			get_ref(SessionId) ++ "/" ++ "release",
   	post_request1({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   			SessionId, MSCC, Location, Path).
  +%% @hidden
   post_request1({MSISDN, IMSI}, SvcContextId, TimeStamp, ServiceType,
   		SessionId, MSCC, Location, Path) ->
   	{ok, Profile} = application:get_env(nrf_profile),
  
positive.code: 	when
  		ServiceInformation :: [#'3gpp_ro_Service-Information'{}] |
  				[tuple()].
  %%				[{"serviceInformation", tuple()}].
  %% @doc Get MCC and MNC location information.
  get_service_location([#'3gpp_ro_Service-Information'{'PS-Information' =
  		 [#'3gpp_ro_PS-Information'{'3GPP-SGSN-MCC-MNC' = [MCCMNC]}]}]) ->
  
negative.code: 		'Requested-Service-Unit' = [#'3gpp_ro_Requested-Service-Unit'{
  		'CC-Time' = [CCTime]}]} = MSCC | T], SCID, SI, Acc)
  		when is_integer(CCTime), CCTime > 0 ->
  	RequestedUnits = {"requestedUnit", {struct, [{"time", CCTime}]}},
  	Parameters = lists:flatten([SCID, get_si(MSCC), get_rg(MSCC),
  			SI, RequestedUnits, {"requestSubType", "RESERVE"}]),
  	service_rating1(T, SCID, SI, [{struct, Parameters} | Acc]);
  service_rating1([#'3gpp_ro_Multiple-Services-Credit-Control'{
  		'Requested-Service-Unit' = [#'3gpp_ro_Requested-Service-Unit'{
  		'CC-Total-Octets' = [CCTotalOctets]}]} = MSCC | T], SCID, SI, Acc)
  		when is_integer(CCTotalOctets), CCTotalOctets > 0 ->
  	RequestedUnits = {"requestedUnit", {struct, [{"totalVolume", CCTotalOctets}]}},
  	Parameters = lists:flatten([SCID, get_si(MSCC), get_rg(MSCC), SI,
  			RequestedUnits, {"requestSubType", "RESERVE"}]),
  	service_rating1(T, SCID, SI, [{struct, Parameters} | Acc]);
  service_rating1([#'3gpp_ro_Multiple-Services-Credit-Control'{
  		'Requested-Service-Unit' = [#'3gpp_ro_Requested-Service-Unit'{
  