Greetings,

 

 

We have a scheduled script connecting to McKesson STAR in character view that
periodically times out during login to the AIX server. I added a timeout step
to capture the cursor location and View() in an email. Boston is reporting
the cursor location as @0,0 and View() is empty.

 

A couple of weeks ago I called support and we added some timing loops after
the launch of STAR Nav and the HBOWEM server. I've pasted the subroutine code
below.

 

I was wondering if any other STAR users have had intermittent login issues?
Maybe a carriage return or two would help sync things up between STAR and the
HBOWEM server before I start the login?

 

 

Thanks,

 

 

David Garcia

 

Sr. Programmer/Analyst

Washington Hospital Healthcare System

2000 Mowry Avenue

Fremont, CA 94538

(510) 745-6477

 

 

 

 

Sub StartApps()

    Dim i As Integer

    Dim lw As New CListWindows

    

    'If WEM is already open, close it

    If lw.HasCaptionLike("McKesson's Windows*").Count > 0 Then

      CloseApplication ("McKesson's Windows*")

      Wait 0.5

    End If

   

    'Launch WEM

    Shell "C:\Program Files\McKesson\STAR Navigator 15\HBOC32\McKWEM.exe
Star", vbNormalFocus

    

    'Wait 30 seconds for WEM to launch

    i = 0

    Do While i < 30 And lw.HasCaptionLike("McKesson's Windows*").Count = 0

       i = i + 1

       Wait 1

    Loop

    

    'If the WEM server is already running, close it

    If lw.HasCaptionLike("HBOWEM Server:*").Count > 0 Then

      CloseApplication ("HBOWEM Server:*")

      Wait 0.5

    End If

    

    'Launch the WEM Server

    Shell_ "C:\Bss70\HBOWEMServer.exe Star"

    

    'Wait 10 seconds for WEM server to start

    i = 0

    Do While i < 10 And lw.HasCaptionLike("HBOWEM Server:*").Count = 0

       i = i + 1

       Wait 1

    Loop

    

    Stable 1

    

End Sub


---  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.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx   

Reply via email to