Hi, I have a script that run when Meditech is launched, I have an issue
that the username wipeout as you are typing it in. The script only runs
when EMR is launched, so I don't see anything there being an issue.
Side Note: I inherited the script too.
Here's what is in the script for connecting to Meditech.
Function connectToMediTech() As Boolean
Const ROUTINE_NAME As String = "MediTechEMRUtils.connectToMediTech"
Dim returnValue As Boolean
Dim ProcessID As Long
On Error GoTo handler:
returnValue = False ' until proven otherwise.
Dim mediTechProcessName As String
mediTechProcessName = GetMediTechExeName
If IsProcessRunning(mediTechProcessName) Then
Shell_ GetMediTechFocusPath & " MeditechStream"
Call BostonWorkStation70.Connect("MeditechStream", stStream)
Key "@_FORCETOTOPON"
returnValue = True
End If
connectToMediTech = returnValue
Exit Function
handler:
Call logger.LogError(Err, ROUTINE_NAME)
Call Err.Raise(Err.Number, , ROUTINE_NAME & ": " & Err.Description)
End Function
--- To post a message to this list, send mail to: [email protected] You are
currently subscribed as: [email protected] Unsubscribe in the
customer center on our website:
http://www.bostonsoftwaresystems.com/Customers/ListServe.aspx
