Bruce,
I'm not sure how much use this would work for you; however, I've used
the attached in an order rule that is edited in NPR.
Jason Bolssen, MT (ASCP)
Sr. Systems Analyst
ITC/Systems
Avera McKennan Hospital
Sioux Falls, SD
605-322-6192 (Voice)
605-322-6006 (Fax)
[EMAIL PROTECTED]
________________________________
From: meditech-l@MTUsers.com [mailto:[EMAIL PROTECTED] On Behalf
Of Freehling, Bruce
Sent: Monday, May 21, 2007 7:19 AM
To: meditech-l@MTUsers.com
Subject: [MEDITECH-L] Lab rule
We are a C/S site looking for a lab order rule to do the follow:
The user orders a profile test then orders a T test that is a component
of the profile, we want a message to display telling the user that this
test is a component of the profile test. Any help would be appreciated.
Thanks!
Bruce Freehling
Analysis\Programmer
ACMH Hospital
[EMAIL PROTECTED]
724-543-8519
-----------------------------------------
Confidentiality Notice: This e-mail message, including any
attachments, is for the sole use of the intended recipient(s) and
may contain confidential and privileged information. Any
unauthorized review, use, disclosure, or distribution is
prohibited. If you are not the intended recipient, please contact
the sender by reply e-mail and destroy all copies of the original
message.
;program 20050517 1408 JRB15
;
/patient^patient,/urn^urn,
IF{/OE.RULE /MOD^m,A^t;
/ee.ord.q^ee.ord.q,@t.ee.type^m,@t.ee.ord^t},
;
""^CT^ERR^PN^XX,
DO{+/ARRAY[XX]^XX ""^/ARRAY[XX]},
/ee.ord.q^CT,
DO{CT>1 @INIT},
[EMAIL PROTECTED]"P" t^PN,@UNWIND.LAB},
1;
INIT
""^PN,
CT-1^CT,
@t.ee.ord[urn,CT]^PN,
[EMAIL PROTECTED]"P" @UNWIND.LAB;@t.ee.ord[urn,CT]^/ARRAY[PN]},
IF{/ARRAY[t] @ERROR;1}
UNWIND.LAB
PN^LAB.L.TEST.urn,
""^LAB.L.TEST.component.profile^LAB.L.TEST.component.test,
[EMAIL PROTECTED](LAB.L.TEST.component.profile)^LAB.L.TEST.component.profile 1,
[EMAIL PROTECTED](LAB.L.TEST.component.test)^LAB.L.TEST.component.test
1,@ADD.TO.ARRAY}}
ADD.TO.ARRAY
IF{/ARRAY[LAB.L.TEST.component.test] @ERROR;1^/ARRAY[LAB.L.TEST.component.test]}
ERROR
""^ERR,
"Duplicate"^ERR,
%LAB.U.keyword.msg(0,ERR)=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
To subscribe or unsubscribe to the meditech-l, visit MTUsers.NET.
To check the status of the meditech-l, visit MTUsers.NET.
For help, email [EMAIL PROTECTED]
Visit the MTUsers WikiPedia at MTUsers.NET/mwiki
______________________________________
meditech-l mailing list
meditech-l@MTUsers.com
http://mtusers.com/mailman/listinfo/meditech-l
