ORY272.m

ORY272 ;SLC/JMH - post install routine for patch OR*3*272; ;07/12/10  07:28

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**272**;Dec 17, 1997;Build 53

 ;

POST ;

 N ORERR

 S ^ORD(100.8,17,0)="DUPLICATE DRUG THERAPY"

 K ^ORD(100.8,"B","DUPLICATE DRUG CLASS ORDER",17)

 S ^ORD(100.8,"B","DUPLICATE DRUG THERAPY",17)=""

 S ^ORD(100.8,17,1,3,0)="is currently receiving a med that is in the same Theraputic "

 S ^ORD(100.8,17,1,4,0)="Category, the order check occurs."

 D EN^XPAR("PKG","ORK PROCESSING FLAG","DUPLICATE DRUG THERAPY","Enabled",.ORERR)

 D EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","DUPLICATE DRUG THERAPY","High",.ORERR)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY272   642     printed  Apr 09, 2024@21:32:28                                                                                                                                                                                                       Page 2

ORY272    ;SLC/JMH - post install routine for patch OR*3*272; ;07/12/10  07:28

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**272**;Dec 17, 1997;Build 53

 +2       ;

POST      ;

 +1        NEW ORERR

 +2        SET ^ORD(100.8,17,0)="DUPLICATE DRUG THERAPY"

 +3        KILL ^ORD(100.8,"B","DUPLICATE DRUG CLASS ORDER",17)

 +4        SET ^ORD(100.8,"B","DUPLICATE DRUG THERAPY",17)=""

 +5        SET ^ORD(100.8,17,1,3,0)="is currently receiving a med that is in the same Theraputic "

 +6        SET ^ORD(100.8,17,1,4,0)="Category, the order check occurs."

 +7        DO EN^XPAR("PKG","ORK PROCESSING FLAG","DUPLICATE DRUG THERAPY","Enabled",.ORERR)

 +8        DO EN^XPAR("PKG","ORK CLINICAL DANGER LEVEL","DUPLICATE DRUG THERAPY","High",.ORERR)

 +9        QUIT 

 +10      ;