MCFIXOEP.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCFIXOEP   465     printed  Apr 09, 2024@21:15:41                                                                                                                                                                                                     Page 2

MCFIXOEP  ;HIRMFO/DAD-PROTOCOL DELETION ;5/2/96  13:30

 +1       ;;2.3;Medicine;;09/13/1996

 +2        NEW TEMP,DA

 +3        SET TEMP=$ORDER(^ORD(101,"B","GMRCACT NEW PATIENT",0))

 +4        SET DA(1)=$ORDER(^ORD(101,"B","GMRCACTM MEDICINE PKG MENU",0))

 +5        SET DA=$ORDER(^ORD(101,+DA(1),10,"B",+TEMP,0))

 +6        DO @$SELECT(DA="":"END",DA(1)="":"END",TEMP="":"END",1:"DEL")

END       ;

 +1        QUIT 

DEL       ;

 +1        SET DIK="^ORD(101,"_DA(1)_",10,"

           DO ^DIK

 +2        WRITE !,"The 'Select Patient' protocol was removed from the Medicine Pkg Menu, OE/RR protocol.",!

 +3        QUIT