^END will take you to the bottom of an input-list of items much faster than the below method. However, I can see that method being applied to the original question.
Thank you, Mitch Lawrence Lead Applications Analyst Technical Support - NPR/Automation CHRISTUS Information Management *: [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> Send a "thank you <http://intranet.christushealth.org/spiritBuck/Default.asp> " to someone! ________________________________ From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Heather Castillo Sent: Tuesday, March 18, 2008 8:48 AM To: [email protected] Subject: RE: [Talk] Script from Meditech look-up Hi Joyce, found this on BWS website :D http://www.bostonworkstation.com/customer_center/script_center/script_de tails.aspx?id=72&cat=8 Meditech Client Server - Useful Routines Used to get to the bottom of those pesky scrolling lists. If you are not familiar with them, they are the list boxes that display 3 or 4 lines of a list of mnemonics, but can contain from 0 to ??? items. Some items can not be displayed until you scroll down the list. You also can't add an item to the list until your cursor is at the blank line at the bottom of the list. This script will effectively scroll down one of these lists until it finds the blank line, then exit. 'Loop through existing effective dates Done = False While Not Done CurRow = Row CurCol = col EffectiveDateField = View(Row:=2, col:=1, length:=8) If Trim(EffectiveDateField) = "" Then Done = True Else Key "{down}" If CurRow >= 17 And CurRow <= 20 Then Pause "@" + Trim(Str(CurRow + 1)) + ",18" Else Pause "@" + Trim(Str(CurRow)) + ",18" End If End If Wend --------------------------------------- Heather Castillo Module Coordinator/HPMIN Support Information Systems 785.623.5084 HaysMedicalCenter [EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> ________________________________ >From Joyce Beck <[EMAIL PROTECTED]> Sent Mon 3/17/2008 1:40 PM To [email protected] Subject [Talk] Script from Meditech look-up I'm sure this has been done often by other facilities, but I have not had to do it yet. I would like to edit all the entries in a Meditech dictionary and would like the script to loop through the Meditech look-up list (instead of an Excel spreadsheet, for example). Another script I would like to write would loop through the Meditech look-up entries for patient names. So, I need to do a F9, Look-Up, in Meditech and choose #1, then do the script stuff, then go back and do the look-up and choose #2, then do stuff, etc.; until the last entry in the last look-up list. Does anyone have an example of this procedure-to script off the Meditech look-up entries-rather than writing an NPR report to do this? Thank you for the help. -Joyce. Joyce Beck, Meditech Application Support Analyst Douglas County Hospital 111 17th Avenue East Alexandria, MN 56308 Phone: 320-762-6483 Confidentiality Notice: This e-mail message is intended only for the named recipient(s) above and is covered by the Electronic Communications Privacy Act, 18 U.S.C. Section 2510-2521. This e-mail is confidential and may contain information that is privileged, or exempt from disclosure under applicable law. If you have received this message in error, please immediately notify the sender by return e-mail and delete this e-mail message from your computer. Thank You.
<<image001.png>>
