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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENXEPST 444 printed Nov 22, 2024@17:06:52 Page 2
ENXEPST ;(Wash IRMFO)/DH-Post Init for Consolidation Patch ;9.25.95
+1 ;;7.0;ENGINEERING;**21**;August 17, 1993
POST ;
+1 ; already done
IF $DATA(^ENG(6914,"OEE"))
GOTO END
+2 WRITE !,"Re-indexing Equipment File by bar code labels"
+3 ;S DIK="^ENG(6914,",DIK(1)=".01^EE"
+4 ;K ^ENG(6914,"EE") D ENALL^DIK
+5 SET DIK="^ENG(6914,"
SET DIK(1)="28.1^OEE"
+6 KILL ^ENG(6914,"OEE")
DO ENALL^DIK
+7 KILL DIK
END ;
+1 WRITE !,"Post-init complete. Patch fully installed."
+2 QUIT
+3 ;ENXEPST
