Do
    DoEvents
    If Rule("GL") Then
        Exit Do
    Else
        Key "{dn}"
    End If
    Stable 0.5
Loop Until Rule("GL")
Rule ""


This is a very simple one.. written for Meditech Magic 5.64
Once I get to the screen I want then I am looking for a field that could be on 
line 1 or line 10 or anywhere in between, So it "looks" for the rule to be true 
and then exits the loop to move onto the next step.

Mary Thompson
Children's Mercy Hospital
________________________________
From: [email protected] [mailto:[email protected]]
Sent: Monday, June 06, 2011 2:56 PM
To: [email protected]
Subject: [talkbws] Meditech - arrow down list until at "something2"

I've never written a loop/if condition and was wondering if anyone knows how to 
arrow down a list of items in Meditech until it reaches 'Something2'.

I know this much:
Arrow Down is:  +{Down}

Dim strPrefHead as String  'header to look for
strPrefHead = "Something2"  'header defined
Do Until... Pause "Something2" ?

Help!
Thanks,
Chase Rodgers
Director of Financial Reporting
Medical City and Medical City Children's Hospital
*972-566-3297  
*[email protected]<mailto:[email protected]>








---  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

---  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