maintenance:

title: Fluency_SSO_Logon;;
mlmname: Fluency_SSO_Logon;;
arden: version 2.5;;
version: 5.00;;
institution: Eclipsys, Sample MLM;;
author: MModal - Justin Pihony;;
specialist: ;;
date: 2012-10-03;;
validation: testing;;
library:
purpose: 
;;
explanation: Send the username to Fluency so that it can load when Sunrise starts

	Change history 
    
	02.02.2010   DW   CSR# 31658 Initial Load
    12.03.2019   DW   CSR# 37676 18.4 Upgrade (loaded in conjuction w/ 10.0.689.1865 to correct physician logon crashing issue)


;;
keywords: User ;;
knowledge:
type: data-driven;;
data:
USING "mscorlib, Version=2.0.0.0, Culture=neutral,PublicKeyToken=b77a5c561934e089";
//(this_documentCommunication) := argument;
// Specify which .NET assemblies need to be loaded for ObjectsPlus
standard_libs := MLM {{{SINGLE-QUOTE}}}std_include_libs{{{SINGLE-QUOTE}}};
include standard_libs;
/**************Make Changes To Spelling And Flags In This Section**************/
/* Set to true if logging is needed.*/
log_execution_info:= false;
Activate_Application_trigger:= EVENT { ActivateApplication User UserInfo};
(User_Name) := read last
{ UserInfo: IDCode};
;;
evoke: 
Activate_Application_trigger; 
;;
logic: 
conclude true;
;;
action:
try
mModalStub := call {{{SINGLE-QUOTE}}}Reflection.Assembly{{{SINGLE-QUOTE}}}.LoadFile with "C:\\MModal\\Server\\RemoteService.dll";
windowLoader := call mModalStub.CreateInstance with "FDLink.SSOClient";
voidResult := call windowLoader.Initialize;
voidResult := call windowLoader.Logon with User_Name;
endtry;
catch exception DictationServerException
        ErrorMessage := "An error has been encountered while trying to sign on to Fluency Direct. Please contact your administrator if this problem persists.\n\n\n\nException:" || 
                         DictationServerException;
        //this_documentCommunication.DisplayMessage := true;
        //this_documentCommunication.Message := "An error has been encountered while trying to sign on to Fluency Direct. Please contact your administrator if this problem persists.\n\n\n\nException:" || DictationServerException ;
endcatch;
;;
end: