Thanks, Thom! I'll give it a try; and will probably end up calling you. Nice presentation today!
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Thom C. Blackwell Sent: Wednesday, May 10, 2006 11:31 AM To: [email protected] Subject: RE: [Talk] MEDITECH Connections Not Connecting on First Attempt 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 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
