anchor.diff:  %%  The ocs_eap_aka_fsm gen_fsm call backs
   %%----------------------------------------------------------------------
   
  -init([radius, ServerAddress, ServerPort, ClientAddress, ClientPort,
  -		RadiusFsm, Secret, PasswordReq, SessionID, AccessRequest] = _Args) ->
  +init([Sup, radius, ServerAddress, ServerPort, ClientAddress, ClientPort,
  +		RadiusFsm, Secret, PasswordReq, SessionID,
  +		#radius{attributes = Attributes} = AccessRequest] = _Args) ->
   	{ok, Hostname} = inet:gethostname(),
  -	StateData = #statedata{server_address = ServerAddress,
  +	ServiceType = case radius_attributes:find(?ServiceType, Attributes) of
  +		{error, not_found} ->
  +			undefined;
  +		{_, ST} ->
  +			ST
  +	end,
  +	StateData = #statedata{sup = Sup,
  +			server_address = ServerAddress,
   			server_port = ServerPort, client_address = ClientAddress,
   			client_port = ClientPort, radius_fsm = RadiusFsm,
   			secret = Secret, session_id = SessionID,
   			server_id = list_to_binary(Hostname), start = AccessRequest,
  -			password_required = PasswordReq},
  +			password_required = PasswordReq,
  +			service_type = ServiceType},
   	process_flag(trap_exit, true),
   	{ok, eap_start, StateData, 0};
  -init([diameter, ServerAddress, ServerPort, ClientAddress, ClientPort,
  -		PasswordReq, SessionId, ApplicationId, AuthType, OHost, ORealm,
  +init([Sup, diameter, ServerAddress, ServerPort, ClientAddress, ClientPort,
  +		PasswordReq, SessionId, ApplicationId, AuthReqType, OHost, ORealm,
   		_DHost, _DRealm, Request, _Options] = _Args) ->
   	{ok, Hostname} = inet:gethostname(),
   	case global:whereis_name({ocs_diameter_auth, ServerAddress, ServerPort}) of
  
positive.code: %%  internal functions
  %%----------------------------------------------------------------------
  
  
negative.code: 				_ ->
  					undefined
  			end,
  			StateData = #statedata{sup = Sup,
  					server_address = ServerAddress,
  					server_port = ServerPort, client_address = ClientAddress,
  					client_port = ClientPort, session_id = SessionId,
  					server_id = list_to_binary(Hostname), auth_app_id = ApplicationId,
  					auth_req_type = AuthReqType, origin_host = OHost,
  					origin_realm = ORealm, diameter_port_server = PortServer,
  					start = Request, password_required = PasswordReq,
  					service_type = ServiceType},
  