Hi,
You may be getting into an endless loop. You should clear the AT command by
placing an AT "" between your Loops and add in an escape plan if something gets
stuck.
Dim intCount as integer
Do
Enter
stable 0.5
If At("@8,76") Or At("@8,75") Then
Key "+{DELETE}"
stable 0.5 <<<<<<ß--------------- Here you would probably know the exact
row/col so you could speed the script up by doing a Pause("@8,[the col]")
Enter gbCarrier
End If
intCount = intCount +1
if intcount => 10 then goto errhandle
Loop
At ""
intCount=0
Do
Enter
stable 0.5
If At("@10,76") Or At("@10,75") Then
Key "+{DELETE}"
stable 0.5 <<<<<<ß--------------- Here you would probably know
the exact row/col so you could speed the script up by doing a Pause("@10,[the
col]")
Enter gbAdditive
End If
intCount = intCount +1
if intcount => 10 then goto errhandle
Loop
Exit sub
Errhandle:
Msgbox "There was some problem."
Exit sub
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Gary Hall
Sent: Tuesday, August 28, 2007 1:16 PM
To: [email protected]
Subject: [Talk] Easy, but can't figure it out?
I have the following two little loops:
Do
Enter ""
Wait 0.5
If At("@8,76") Or At("@8,75") Then
Wait 0.5
Key "+{DELETE}"
Wait 0.5
Enter gbCarrier
End If
Loop
Do
Enter ""
Wait 0.5
If At("@10,76") Or At("@10,75") Then
Wait 0.5
Key "+{DELETE}"
Wait 0.5
Enter gbAdditive
End If
Loop
The first works perfectly well, it blanks out the field and moves in my
gbCarrier field.
The second stops at the next desired field (which happens to be Additive?),
just meditating there I guess, because it does not then perform the delete &
the enter gbAdditive.
I know this is probably something remarkably easy? What am I doing wrong?
I put the Wait commands in because, on occasion (this is a Meditech
application) it will zing right by the first field. Seems like if I slow it
down a bit it works OK.
Thanks!
Gary Hall
Clinical Applications Specialist
Estes Park Medical Center
Information Systems Department
970-577-4443
The information contained in this message may be privileged and confidential
and protected from disclosure. If the reader of this message is not the
intended recipient, or an employee or agent responsible for delivering this
message to the intended recipient, you are hereby notified that any
dissemination, distribution or copying of this communication is strictly
prohibited. If you have received this communication in error, please notify
the sender of this communication immediately.
CONFIDENTIALITY NOTICE: This message and any included attachments are from
Salinas Valley Memorial Hospital and are intended only for the addressee. The
information contained in this message is confidential and may constitute inside
or non-public information under international, federal, or state securities
laws. Unauthorized forwarding, printing, copying, distribution, or use of such
information is strictly prohibited and may be unlawful. If you are not the
addressee, please promptly delete this message and notify the sender of the
delivery error by e-mail or you may call Salinas Valley Memorial Healthcare
System's Privacy Officer in Salinas, California, U.S.A at (+1) (831) 755-0751.
