|
Last change
on this file since 736 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
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.
