|
Last change
on this file since 767 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
504 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | MCPRE01 ;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.
