Thanks Roy, I’ll give it a try.

 

My script is keying CC to get to the correct screen, I just don’t understand why one or more of those C’s are periodically being dragged into the next field.  When the error occurs, it’s typically CCN not defined. 

 

Very strange, and quickly becoming very aggravating.

 

Thanks

 

______________________________

 

Christopher C. White

Interface Analyst III

Newberry County Memorial Hospital

(803) 405-1052

 


From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Roy Hayward
Sent: Tuesday, May 24, 2005 12:25 PM
To: [email protected]
Subject: RE: [Talk] Entry not define errors

 

Chris,

 

I don't see the problem, with what you have, but a way to get around it may be to Key "{F10}" before each time you enter the "N"  to clear the field.

 

I know this is not a brilliant thing to do, but it will have your script keep moving.

 

Roy Hayward
Catalyst Application Support
Global Healthcare Exchange
3322 West End Avenue
Suite 1000
Nashville, TN 37203
615-279-2752 direct
931-670-0867 home
615-525-6746 cell
[EMAIL PROTECTED]

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]On Behalf Of chris white
Sent: Monday, May 23, 2005 1:49 PM
To: [email protected]
Subject: [Talk] Entry not define errors

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