- 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 ---[H[J[2J[HMCFIXOEP 465 printed Jan 18, 2025@03:16:23 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