Greetings,
If Meditech is indeed stuck, they you can check the Active property - looks
like you've got a loop here so you could have:
If not Active then
'We've got a problem, close Meditech and try again
Activate "Meditech"
Sendkeys "%{F4}" ' Closes the Meditech session
End if
Regards,
Thom
Thom C. Blackwell
Product Manager
Boston Software Systems
www.BostonWorkStation.com
866 653-5105 - ex 807
[EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Cris Clausing
(SBCh06)
Sent: Wednesday, May 10, 2006 2:20 PM
To: [email protected]
Subject: [Talk] MEDITECH Connections Not Connecting on First Attempt
I have an issue with MEDITECH connections not always 'Connect'ing on the
first attempt.
My script 'sticks' at (it never finds the following text);
Loop Until At("Medical Information Technology, [EMAIL PROTECTED],23")
Is there a way to set a 'timer' so IF my script is 'stuck' for say 30
seconds, Close the 'MEDITECH Workstation Connections' and try again ?
OR has anyone else run into and conquered this same issue in a different
way?
' -------- My login subroutine looks like the following -------
Sub MTLogin()
Connect "C:\Program Files\MEDITECH\Workstation3.x\T.exe", stMeditech
On Error Resume Next
Do
Err = 0
Activate "MEDITECH Workstation"
DoEvents
Loop Until Err = 0
On Error GoTo 0
SendKeys "%O", True
Do
If At("<Return> to [EMAIL PROTECTED],1") Then ' ------ Allows for
Downtime Message
Enter
End If
If At("TLL_XXX.TLL:@4,1") Then ' ---- Un-managed device
using FE.TRACY start program)
Enter "ALL"
End If
If At("MIS [EMAIL PROTECTED],18") Then ' ---- From MIS
Directories menu (managed device using %MIS.signon(0) start program)
Enter "1"
End If
DoEvents
Loop Until At("Medical Information Technology, [EMAIL PROTECTED],23")
' - !!!!!!!!!!!!!!! USER NAME AND PASSWORD (Yes, I remembered to change
it for this e-mail) !!!!!!!!!!!!!!!!
Pause "User [EMAIL PROTECTED],5"
Enter "MY-LOGIN"
Enter "MYPASSWORD"
' -- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
' ------------------------------- Allows for **Last Sign On ... message
Do
If At("**Last Sign [EMAIL PROTECTED],1") Then
Enter
End If
DoEvents
Loop Until At("Nursing Main Menu")
End Sub ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
