15 lines
430 B
Mathematica
15 lines
430 B
Mathematica
ENXEPST ;(Wash IRMFO)/DH-Post Init for Consolidation Patch ;9.25.95
|
|
;;7.0;ENGINEERING;**21**;August 17, 1993
|
|
POST ;
|
|
I $D(^ENG(6914,"OEE")) G END ; already done
|
|
W !,"Re-indexing Equipment File by bar code labels"
|
|
;S DIK="^ENG(6914,",DIK(1)=".01^EE"
|
|
;K ^ENG(6914,"EE") D ENALL^DIK
|
|
S DIK="^ENG(6914,",DIK(1)="28.1^OEE"
|
|
K ^ENG(6914,"OEE") D ENALL^DIK
|
|
K DIK
|
|
END ;
|
|
W !,"Post-init complete. Patch fully installed."
|
|
Q
|
|
;ENXEPST
|