source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCFIXOEP.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 452 bytes
Line 
1MCFIXOEP ;HIRMFO/DAD-PROTOCOL DELETION ;5/2/96 13:30
2 ;;2.3;Medicine;;09/13/1996
3 N TEMP,DA
4 S TEMP=$O(^ORD(101,"B","GMRCACT NEW PATIENT",0))
5 S DA(1)=$O(^ORD(101,"B","GMRCACTM MEDICINE PKG MENU",0))
6 S DA=$O(^ORD(101,+DA(1),10,"B",+TEMP,0))
7 D @$S(DA="":"END",DA(1)="":"END",TEMP="":"END",1:"DEL")
8END ;
9 Q
10DEL ;
11 S DIK="^ORD(101,"_DA(1)_",10," D ^DIK
12 W !,"The 'Select Patient' protocol was removed from the Medicine Pkg Menu, OE/RR protocol.",!
13 Q
Note: See TracBrowser for help on using the repository browser.