Hi Joyce, found this on BWS website :D
http://www.bostonworkstation.com/customer_center/script_center/script_details.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.
Important: This email and any attachments may contain confidential information
subject to protection under the Federal Standards for Privacy of Individually
Identifiable Health Information (45 C.F.R. Parts 160 and 164). If you or your
organization is a “Covered Entity” under the above mentioned regulations, you
are obligated to treat such information in a manner consistent with the
regulations. If it appears that this email was sent to you in error, (1) you
are prohibited from utilizing or disseminating this email or any attachments;
(2) please immediately delete it from your computer and any servers or other
locations where it might be stored, and email this sender or call the Hays
Medical Center Privacy Officer at (785) 623-2188 advising that you have done
so. We appreciate your cooperation.
