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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPRE01 519 printed Nov 22, 2024@17:26:39 Page 2
MCPRE01 ;HIRMFO/DAD-PROTOCOL DELETION ;7/25/96 12:33
+1 ;;2.3;Medicine;;09/13/1996
+2 ;
+3 NEW TEMP,DA
+4 SET TEMP(1)=""
+5 SET TEMP(2)="Removing the 'Select a new patient' item from the 'Medicine"
+6 SET TEMP(3)="/Consult Interface Menu' entry in the Protocol file (#101)."
+7 DO MES^XPDUTL(.TEMP)
+8 SET TEMP=$ORDER(^ORD(101,"B","GMRCACT NEW PATIENT",0))
+9 SET DA(1)=$ORDER(^ORD(101,"B","GMRCACTM MEDICINE PKG MENU",0))
+10 SET DA=$ORDER(^ORD(101,+DA(1),10,"B",+TEMP,0))
+11 IF DA]""
IF DA(1)]""
IF TEMP]""
Begin DoDot:1
+12 SET DIK="^ORD(101,"_DA(1)_",10,"
DO ^DIK
+13 QUIT
End DoDot:1
+14 QUIT
