All messages should be posted in plain text. HTML will be converted to
attachments. The meditech-l web site is MTUsers.com
======================================
Hi Charlie. My apologies for taking so long to reply. I finally got an
office and my own PC and full access to my email. I was able to do what I
wanted by creating three rules; one attached to heparins, one to exoxaparins
and one to misc thrombin inhibitors. I was able to use all the responses I
got, including yours, to come up with a working combination of code. I'm
sure that if I played around with it long enough, I could accomplish the
same thing with just one rule to handle the job. The rules haven't been
moved to LIVE yet as we're still reviewing and testing them. Here they are:
ANTICOAG01
;THIS RULE ATTACHED TO HEPARINS... SO WHEN ENTERING AN ORDER FOR HEPARIN,
THIS ;RULE WILL CHECK THE PROFILE FOR ACTIVE LOVENOX, ARGATROBAN AND
LEPIRUDIN ;ORDERS.
"Please note, this patient has an active order for LOVENOX"^MSG1,
"Please note, this patient has an active order for ARGATROBAN"^MSG2,
"Please note, this patient has an active order for LEPIRUDIN"^MSG3,
[rx active meds]("G","ENOXAP")^X,
IF{X_.'=. [f rx err msg](MSG1);
IF{([f rx active meds]("D","IARGA250V")) [f rx err msg](MSG2);
([f rx active meds]("D","ILEPI50")) [f rx err msg](MSG3);
[f rx ok]}};
ANTICOAGO2
;THIS RULE ATTACHED TO LOVENOX DRUGS... SO WHEN ENTERING AN ORDER FOR
LOVENOX, ;THIS RULE WILL CHECK THE PROFILE FOR ACTIVE HEPARIN, ARGATROBAN
AND LEPIRUDIN ;ORDERS.
"Please note, this patient has an active order for HEPARIN"^MSG1,
"Please note, this patient has an active order for ARGATROBAN"^MSG2,
"Please note, this patient has an active order for LEPIRUDIN"^MSG3,
IF{([f rx active meds]("D","9HEPA25000")) [f rx err msg](MSG1);
([f rx active meds]("D","9HEPA25250")) [f rx err msg](MSG1);
([f rx active meds]("D","9IHEPA1000")) [f rx err msg](MSG1);
([f rx active meds]("D","9HEPA25250")) [f rx err msg](MSG1);
([f rx active meds]("D","3B9IHEPA1K")) [f rx err msg](MSG1);
([f rx active meds]("D","3BIHEPA5K")) [f rx err msg](MSG1);
([f rx active meds]("D","IHEP10BEEF")) [f rx err msg](MSG1);
([f rx active meds]("D","IHEPA1000")) [f rx err msg](MSG1);
([f rx active meds]("D","IHEPA10000")) [f rx err msg](MSG1);
([f rx active meds]("D","IHEPA5000")) [f rx err msg](MSG1);
([f rx active meds]("D","IHEPA5KV")) [f rx err msg](MSG1);
([f rx active meds]("D","IARGA250V")) [f rx err msg](MSG2);
([f rx active meds]("D","ILEPI50")) [f rx err msg](MSG3);
[f rx ok]};
ANTICOAG03
;THIS RULE ATTACHED TO ARGATROBAN AND LEPIRUDIN.... SO WHEN ENTERING AN
ORDER ;FOR HEPARIN, LOVENOX, LEPIRUDIN OR ARGATROBAN, THIS RULE WILL PREVENT
;CONCOMITANT ORDERS FOR THESE ITEMS.
"Please note, this patient has an active order for LOVENOX"^MSG1,
"Please note, this patient has an active order for HEPARIN"^MSG2,
"Please note, this patient has an active order for LEPIRUDIN"^MSG3,
"Please note, this patient has an active order for ARGATROBAN"^MSG4,
[rx active meds]("G","ENOXAP")^X,
IF{X_.'=. [f rx err msg](MSG1);
IF{([f rx active meds]("D","9HEPA25000")) [f rx err msg](MSG2);
([f rx active meds]("D","9HEPA25250")) [f rx err msg](MSG2);
([f rx active meds]("D","9IHEPA1000")) [f rx err msg](MSG2);
([f rx active meds]("D","9HEPA25250")) [f rx err msg](MSG2);
([f rx active meds]("D","3B9IHEPA1K")) [f rx err msg](MSG2);
([f rx active meds]("D","3BIHEPA5K")) [f rx err msg](MSG2);
([f rx active meds]("D","IHEP10BEEF")) [f rx err msg](MSG2);
([f rx active meds]("D","IHEPA1000")) [f rx err msg](MSG2);
([f rx active meds]("D","IHEPA10000")) [f rx err msg](MSG2);
([f rx active meds]("D","IHEPA5000")) [f rx err msg](MSG2);
([f rx active meds]("D","IHEPA5KV")) [f rx err msg](MSG2);
([f rx active meds]("D","ILEPI50")) [f rx err msg](MSG3);
([f rx active meds]("D","IARGA250V")) [f rx err msg](MSG4);
[f rx ok]}};
Thanks again,
Bill
-----Original Message-----
From: Charlie Downs [mailto:[EMAIL PROTECTED]
Sent: Sunday, March 05, 2006 3:35 PM
To: Kawa, William
Subject: Re: [MEDITECH-L] Pharmacy Rule for anticoagulants
Bill - I got 2 replys and it looks like you need a Macro. I was off most of
last week skiing up your way at Bristol Mtn (taking a level 2 ski
instructors skiing test). Got almost a foot of snow on Thursday p did you
get any? I'll check with my programmer next week (I'm off Monday) to see if
I can find out what is going on. I know absolutely nothing about Macros.
Charlie
----- Original Message -----
From: "Kawa, William" <[EMAIL PROTECTED]>
To: "'Charlie Downs '" <[EMAIL PROTECTED]>
Sent: Tuesday, February 28, 2006 2:02 PM
Subject: RE: [MEDITECH-L] Pharmacy Rule for anticoagulants
> Thanks, Charlie. I appreciate your speedy reply. I'm brand new to
"RULES",
> so it will probably be some time before I'm able to use what you sent me.
> I'm also brand new to this hospital, so I don't have an office or phone
> number yet. My email address is [EMAIL PROTECTED] and the general pharmacy
> number is 716-898-3282. The Erie County Medical Center is located in
> Buffalo, NY.
>
> Bill
>
> -----Original Message-----
> From: Charlie Downs
> To: Kawa, William B
> Sent: 2/28/06 8:27 AM
> Subject: Fw: [MEDITECH-L] Pharmacy Rule for anticoagulants
>
>
>
> Bill - I have a similar rule, but it is for Dilantin and Cerebyx since
> we
> had a patient receiving both. You'll have to create the keyword first,
> then
> the rule. Just substitute the mneumonics and it should work. Let me
> know
> how
> you make out. Also, could you e-mail me with your contact information
> (address and phone # so that I can add this to my address book?
> Charlie
> Charles R. Downs Pharm.D.
> Washington County Hospital
> 251 E. Antietam Street
> Hagerstown, MD, 21740
> 301-790-8904
> [EMAIL PROTECTED]
>
> 1. Create customer defined keyword.
> Function RX Name RX
>
> Mnemonic z.get.drugs Assign to Group Z
> Active? Y
> Name Get Drugs
>
> Multiple Output Lines? Special Flag Value
> Minimum Output Length
> Maximum Output Length
> Number of Arguments
> Execute at Translation?
>
> Edit Code?
> %PHA.RX.zcus.rx.rule.M.get.cerebyx(patient,@urn)
>
>
> 2. Create rule incorporating customer defined keyword.
> "*Dilantin and Cerebyx: Duplicate therapy!!!!!!*"^AA,
> ""^MEDD^DRUG^SW,
> [f z.get.drugs]^DRUG,
> IF{[f rx med]="FOSP500I10" "1"^MEDD;
> [f rx med]="FOSP100I2" "1"^MEDD;
> [f rx med]="PHEN100C" "2"^MEDD;
> [f rx med]="PHENL4" "2"^MEDD;
> [f rx med]="PHEN50T" "2"^MEDD;
> [f rx med]="PHEN100I2" "2"^MEDD;
> [f rx med]="PHEN250I5" "2"^MEDD},
> IF{("1"=DRUG)&("2"=MEDD) "Y"^SW;
> ("2"=DRUG)&("1"=MEDD) "Y"^SW},
> IF{"Y"=SW [f rx msg](AA);1};
>
>
>
> ***** CONFIDENTIALITY NOTICE *****
> This message contains confidential information and is intended only for
> the individual named. If you are not the named addressee you should not
> disseminate, distribute or copy this e-mail. Please notify the sender
> immediately by e-mail if you have received this e-mail by mistake and
> delete this e-mail from your system.
>
> _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
> _ _
>
> This e-mail and any files transmitted with it are confidential and
> intended
> solely for the use of the individual or entity to whom they are
> addressed.
> If you are not the addressee you may not copy, forward, disclose or use
> any
> part of the message or its attachments.
>
> If you have received this message in error, please notify the sender
> immediately by return e-mail and delete it from your system.
> Unauthorized
> forwarding, printing, copying, distributing, or using such information
> is
> strictly prohibited and may be unlawful.
>
> Internet communications cannot be guaranteed to be secure or error-free
> as
> information could be intercepted, corrupted, lost, arrive late or
> contain
> viruses. The sender therefore does not accept liability for any errors
> or
> omissions in the context of this message which arise as a result of
> Internet
> transmission.
>
>
***** CONFIDENTIALITY NOTICE *****
This message contains confidential information and is intended only for
the individual named. If you are not the named addressee you should not
disseminate, distribute or copy this e-mail. Please notify the sender
immediately by e-mail if you have received this e-mail by mistake and
delete this e-mail from your system.
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
This e-mail and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed.
If you are not the addressee you may not copy, forward, disclose or use any
part of the message or its attachments.
If you have received this message in error, please notify the sender
immediately by return e-mail and delete it from your system. Unauthorized
forwarding, printing, copying, distributing, or using such information is
strictly prohibited and may be unlawful.
Internet communications cannot be guaranteed to be secure or error-free as
information could be intercepted, corrupted, lost, arrive late or contain
viruses. The sender therefore does not accept liability for any errors or
omissions in the context of this message which arise as a result of Internet
transmission.
_______________________________________________
meditech-l mailing list
[email protected]
http://mtusers.com/mailman/listinfo/meditech-l
