source: FOIAVistA/trunk/r/MEDICINE-MC/MCPRE01.m@ 876

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

initial load of FOIAVistA 6/30/08 version

File size: 504 bytes
Line 
1MCPRE01 ;HIRMFO/DAD-PROTOCOL DELETION ;7/25/96 12:33
2 ;;2.3;Medicine;;09/13/1996
3 ;
4 N TEMP,DA
5 S TEMP(1)=""
6 S TEMP(2)="Removing the 'Select a new patient' item from the 'Medicine"
7 S TEMP(3)="/Consult Interface Menu' entry in the Protocol file (#101)."
8 D MES^XPDUTL(.TEMP)
9 S TEMP=$O(^ORD(101,"B","GMRCACT NEW PATIENT",0))
10 S DA(1)=$O(^ORD(101,"B","GMRCACTM MEDICINE PKG MENU",0))
11 S DA=$O(^ORD(101,+DA(1),10,"B",+TEMP,0))
12 I DA]"",DA(1)]"",TEMP]"" D
13 . S DIK="^ORD(101,"_DA(1)_",10," D ^DIK
14 . Q
15 Q
Note: See TracBrowser for help on using the repository browser.