ZINDXH.m

ZINDXH ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91  07:18 ;

 ;;7.3;TOOLKIT;;Apr 25, 1995

SAVE S A="%IND",B="ZIND" D MOVE Q

RESTORE S A="ZIND",B="%IND" D MOVE Q

MOVE W !,"Move ",A,"* routines to ",B,"* routines.  Proceed  ? " R X:$S($G(DTIME):DTIME,1:360) I X=""!("Yes,Y,y,yes"'[X) W !,"No routines moved." Q

MV2 F J="EX","X1","X10","X11","X2","X3","X4","X5","X51","X52","X53","X6","X8","X9" X "ZL @(A_J) W !,""Loaded "",A,J ZS @(B_J) W ?20,""Saved as "",B,J"

 Q

WINDEX S A="WIND",B="ZIND" D MOVE Q

INSTALL S A="ZIND",B="%IND" D MV2 Q

ZINDXH    ;ISC/GRK - Move out %INDEX routines for safe keeping ;2/28/91  07:18 ;

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

SAVE       SET A="%IND"

           SET B="ZIND"

           DO MOVE

           QUIT 

RESTORE    SET A="ZIND"

           SET B="%IND"

           DO MOVE

           QUIT 

MOVE       WRITE !,"Move ",A,"* routines to ",B,"* routines.  Proceed  ? "

           READ X:$SELECT($GET(DTIME):DTIME,1:360)

           IF X=""!("Yes,Y,y,yes"'[X)

               WRITE !,"No routines moved."

               QUIT 

MV2        FOR J="EX","X1","X10","X11","X2","X3","X4","X5","X51","X52","X53","X6","X8","X9"

               XECUTE "ZL @(A_J) W !,""Loaded "",A,J ZS @(B_J) W ?20,""Saved as "",B,J"

 +1        QUIT 

WINDEX     SET A="WIND"

           SET B="ZIND"

           DO MOVE

           QUIT 

INSTALL    SET A="ZIND"

           SET B="%IND"

           DO MV2

           QUIT