Thanks so much for this example; it works and I think I can modify it
for my looping through patients in a look-up also.  Thanks to Rhonda
also for taking the time to help me out.   -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.

 

________________________________

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Stephen R. Smesny
Sent: Tuesday, March 18, 2008 9:09 AM
To: [email protected]; Thom C. Blackwell
Subject: RE: [Talk] Script from Meditech look-up

 

Joyce,

 

Here is a working Meditech Magic example of what you are looking for
using Thom's logic.  This simply opens accounts in BAR Process account.
Of course you will need to adjust according to login and screens for
your system. The main steps you need to look at are as follows:

 

SetCounter -- Sets you patnum counter and pagecount

 

Key F9 -- Keys F9

 

Lookup patient -- Pages down for a total of F("Pagecount") times.  If
PatNum is less than 23  then enters pagenum and increments pagenum.  If
pagenum is greater than 22 then it increments pagecount and resets
pagenum to 1

 

Edit Pat --  I just have this step backing out of the account to go to
the next one.  You would perform your edits here.  If this step is
reached and you are still at "Title Search" then there are no more
patients.  Go to step no more patients. 

 

Hope this helps.

 

Stephen Smesny

Senior Programmer/Analyst

Beaufort Memorial Hospital

________________________________

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Thom C. Blackwell
Sent: Monday, March 17, 2008 5:24 PM
To: [email protected]
Subject: RE: [Talk] Script from Meditech look-up

 

Greetings,

I don't have Meditech in front of me so I can't put together a fully
working example (was hoping to see some else send it!)

 

I believe you can just type in a number to pick someone from the list
and  the "numbers" repeat from lookup page to page- i.e. 1-20, 1-20,
1-20 till  you see  "End of List" - what I don't remember is happens if
you were to type a number that wasn't there- for example on the last
page there were 3 people listed and you typed in a 4. This would be the
easiest approach to use - look for what happens here as opposed to
searching for end of list.

 

What you need to do is keep a running count of the last patient number
till it reaches 21. Once it hits 21, you reset it back to 1 and then add
1 to a page count.

The page count tells you how many page downs to send so it skips past
the last n pages.

 

Here's a pseudo Rules script showing how I'd handle the above with the
info I think I have :-)

 

Step- Set Counter

                Always 

                F("patnum")=0 

                F("PageCount")=0

 

Step Get to Patient Lookup

 

Step Eval Counter    -  this resets the count to 1 if it goes above 20 

                Condition - F("PatNum")<21  -Goto Lookup Patient

                Condition F("PatNum")=21 - Goto Lookup Patient

                                Action  --  this resets the PatNum back
to 1 and adds 1 to the page count 

                                F("PatNum")=1

                                F("PageCount")=f("PageCount")+1

 

Step Lookup Patient

                                Condition for the lookup field ... key
"{F9}" 

                                Prompt "Select" - Goto - Do stuff (this
is the lookup screen prompt I think...)

                                Pagedowns f("PageCount") - Sends
pagedowns if needed

                                Enter f("PatNum") 

                                F("PatNum")=F("PatNum")+1 - here add 

 

                                Condition for "not a good number?"- Goto
No More Patients

Step Do Stuff

                ...Whatever you do with a patient. When done Goto Eval
Counter.

 

Add this sub routine in  VBA editor...

 

'This sends n number of pagedowns to the Meditech screen

Sub PageDowns (myCount as integer)

 

                For i=1 to mycount

                                Key "{PGDN}"

                                Stable .2

                Next i

 

End sub

 

 

 

 

 

 

 

 

Thom C. Blackwell

Product Manager

Boston Software Systems

(866) 653-5105 ex 807

www.bossoft.com <http://www.bossoft.com/> 

Sign up for my weekly webinar!
<http://www.bostonworkstation.com/customer_center/special_events.aspx> 

 

LEGAL NOTICE Unless expressly stated otherwise, this message is
confidential and may be privileged. It is intended for the addressee(s)
only. Access to this E-mail by anyone else is unauthorized. If you are
not an addressee, any disclosure or copying of the contents of this
E-mail or any action taken (or not taken) in reliance on it is
unauthorized and may be unlawful. If you are not an addressee, please
inform the sender immediately, then delete this message and empty from
your trash.

 

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Joyce Beck
Sent: Monday, March 17, 2008 2:52 PM
To: [email protected]
Subject: RE: [Talk] Script from Meditech look-up

 

Yes, we do have this product; we could use it to update the one field in
the dictionary, but I don't think it will work for the look-up to choose
patient names.

 

Thanks, 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.

 

________________________________

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of TIMOTHY B. FRANCE
Sent: Monday, March 17, 2008 1:48 PM
To: [email protected]
Subject: RE: [Talk] Script from Meditech look-up

 

Have you taken a look at the Unison
<http://www.bostonworkstation.com/workflow_automation/unison.aspx>
product.  It is a great tool for updating and/or synchronizing Meditech
dictionaries. 


Tim

 

From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Joyce Beck
Sent: Monday, March 17, 2008 11:41 AM
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.

 

________________________________

CONFIDENTIALITY NOTICE: This message and any included attachments are
from Salinas Valley Memorial Healthcare System 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. 

**********************************************************************

The information contained in this electronic communication, and any
electronic attachment(s), is CONFIDENTIAL and is intended only for the
named recipient(s) above. If the reader of this message is not the
intended recipient(s), you are hereby notified that any release of
information or distribution of this communication is prohibited by law.
If you have received this message in error, or are not the named
recipient(s), please immediately notify the sender via reply email and
delete this communication.

**********************************************************************

 

This message was scanned with MIMESweeper.

Reply via email to