source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENXEPST.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 430 bytes
Line 
1ENXEPST ;(Wash IRMFO)/DH-Post Init for Consolidation Patch ;9.25.95
2 ;;7.0;ENGINEERING;**21**;August 17, 1993
3POST ;
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
11END ;
12 W !,"Post-init complete. Patch fully installed."
13 Q
14 ;ENXEPST
Note: See TracBrowser for help on using the repository browser.