Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
430 bytes
|
Rev | Line | |
---|
[613] | 1 | ENXEPST ;(Wash IRMFO)/DH-Post Init for Consolidation Patch ;9.25.95
|
---|
| 2 | ;;7.0;ENGINEERING;**21**;August 17, 1993
|
---|
| 3 | POST ;
|
---|
| 4 | I $D(^ENG(6914,"OEE")) G END ; already done
|
---|
| 5 | W !,"Re-indexing Equipment File by bar code labels"
|
---|
| 6 | ;S DIK="^ENG(6914,",DIK(1)=".01^EE"
|
---|
| 7 | ;K ^ENG(6914,"EE") D ENALL^DIK
|
---|
| 8 | S DIK="^ENG(6914,",DIK(1)="28.1^OEE"
|
---|
| 9 | K ^ENG(6914,"OEE") D ENALL^DIK
|
---|
| 10 | K DIK
|
---|
| 11 | END ;
|
---|
| 12 | W !,"Post-init complete. Patch fully installed."
|
---|
| 13 | Q
|
---|
| 14 | ;ENXEPST
|
---|
Note:
See
TracBrowser
for help on using the repository browser.