Last change
on this file since 1111 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
452 bytes
|
Line | |
---|
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.