OK all, I’m at a loss.  Is it me, or am I just missing something?

 

The following subscript is part of a larger script that I wrote and has been running without issue for sometime.  But, for the last few weeks, I have had issues where when processing an Account within Meditech BAR and keying CC (Collections, E/E Comments).  The next field is the Comment field on the Enter / Edit Comments Meditech window.  I want to key an “N” every time, but for whatever reason it periodically drags one of the “C”s along with it.  Which of course gives me an “Entry is not defined” error window.  What am I missing here? 

 

Any suggestions would be appreciated.  I’m Meditech CS v5.4

 

Thanks 

 

 

Sub EnterComments(pComment As String)

Do

    Stable 0.4

    PauseLoop "@7,7", Trim(D("1")) & "~"

    If At("@27,93") Then

        Activate "Process an Account"

        Key "CC"

    End If

    PauseLoop "@6,15", "N~"

    PauseLoop "@6,45", "{tab}"  'add for 5.4 Meditech release

    PauseLoop "@8,15", "{tab}"

Loop Until At("@9,28")

Key pComment

Enter strDate

Pause "@9,28"

Key "{f12}"

Pause "[EMAIL PROTECTED],1"

Key "Y"

Pause "[EMAIL PROTECTED],1"

Key "o"

Pause "@27,93"

Key "{esc}"

Pause "[EMAIL PROTECTED],1"

Key "Y"

Pause "@7,7"

D("Status") = "Done"

End Sub

 

______________________________

 

Christopher C. White

Interface Analyst III

Newberry County Memorial Hospital

(803) 405-1052

 

 

Reply via email to