anchor.diff:  		origin_host :: undefined | binary(),
   		origin_realm :: undefined | binary(),
   		port_server :: undefined | pid(),
  -		password_required :: boolean()}).
  +		password_required :: boolean(),
  +		service_type :: undefined | integer()}).
   
   -type statedata() :: #statedata{}.
   
  
positive.code: -include_lib("diameter/include/diameter.hrl").
  -include_lib("diameter/include/diameter_gen_base_rfc6733.hrl").
  -include("../include/diameter_gen_eap_application_rfc4072.hrl").
  
  -record(statedata,
  		{sup :: pid(),
  
negative.code: 		undefined ->
  			{stop, ocs_diameter_auth_port_server_not_found};
  		PortServer ->
  			ServiceType = case DiameterRequest of
  				#diameter_nas_app_AAR{'Service-Type' = [ST]} ->
  					ST;
  				_ ->
  					undefined
  			end,
  			StateData = #statedata{sup = Sup, server_address = ServerAddress,
  					server_port = ServerPort, client_address = ClientAddress,
  					client_port = ClientPort, session_id = SessionID,
  