16 lines
504 B
Mathematica
16 lines
504 B
Mathematica
|
MCPRE01 ;HIRMFO/DAD-PROTOCOL DELETION ;7/25/96 12:33
|
||
|
|
;;2.3;Medicine;;09/13/1996
|
||
|
|
;
|
||
|
|
N TEMP,DA
|
||
|
|
S TEMP(1)=""
|
||
|
|
S TEMP(2)="Removing the 'Select a new patient' item from the 'Medicine"
|
||
|
|
S TEMP(3)="/Consult Interface Menu' entry in the Protocol file (#101)."
|
||
|
|
D MES^XPDUTL(.TEMP)
|
||
|
|
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))
|
||
|
|
I DA]"",DA(1)]"",TEMP]"" D
|
||
|
|
. S DIK="^ORD(101,"_DA(1)_",10," D ^DIK
|
||
|
|
. Q
|
||
|
|
Q
|