Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
452 bytes
|
Rev | Line | |
---|
[613] | 1 | MCFIXOEP ;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")
|
---|
| 8 | END ;
|
---|
| 9 | Q
|
---|
| 10 | DEL ;
|
---|
| 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.