MCPRE01.m

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 ---MCPRE01   519     printed  Apr 09, 2024@21:19:38                                                                                                                                                                                                      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