A4A7165.m

A4A7165 ; GLRISC/REL - Post-Initialization ;3/13/89  07:24

 ;;1.01

 W !!,"Re-indexing File 200 ..."

 S DIK="^VA(200," D IXALL^DIK Q

A4A7165   ; GLRISC/REL - Post-Initialization ;3/13/89  07:24

 +1       ;;1.01

 +2        WRITE !!,"Re-indexing File 200 ..."

 +3        SET DIK="^VA(200,"

           DO IXALL^DIK

           QUIT