14 lines
452 B
Mathematica
14 lines
452 B
Mathematica
MCFIXOEP ;HIRMFO/DAD-PROTOCOL DELETION ;5/2/96 13:30
|
|
;;2.3;Medicine;;09/13/1996
|
|
N TEMP,DA
|
|
S TEMP=$O(^ORD(101,"B","GMRCACT NEW PATIENT",0))
|
|
S DA(1)=$O(^ORD(101,"B","GMRCACTM MEDICINE PKG MENU",0))
|
|
S DA=$O(^ORD(101,+DA(1),10,"B",+TEMP,0))
|
|
D @$S(DA="":"END",DA(1)="":"END",TEMP="":"END",1:"DEL")
|
|
END ;
|
|
Q
|
|
DEL ;
|
|
S DIK="^ORD(101,"_DA(1)_",10," D ^DIK
|
|
W !,"The 'Select Patient' protocol was removed from the Medicine Pkg Menu, OE/RR protocol.",!
|
|
Q
|