DINZMGR.m

DINZMGR ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:04 PM  1 Oct 1998

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;This is a modification of Kernel's ZTMGRSET routine.

 I $D(^%ZTSK),$D(^%ZOSF("MGR"))#2 D  Q

 . W !,$C(7)_"  The VA Kernel appears to be installed on the system."

 . W !,"  ^DINZMGR should only be used during a stand-alone VA FileMan installation.",!

 ;

 S U="^"

 D INTRO^DINZMGR1

 ;

 K DIR

 S DIR("A",1)="Do you wish to proceed"

 S DIR("B")="YES"

 S DIR("?",1)="Enter 'Y' to continue.  Enter 'N' or '^' to quit."

 D DIR K DIR G:$D(DIQUIT)!'Y Q

 ;

 D ZS G:$D(DIQUIT)!'Y Q

 D OS^DINZMGR1 G:$D(DIQUIT) Q

 ;

 I $D(^%ZOSF("UCI")) X ^("UCI") I Y'["MG" D  G:$D(DIQUIT)!'Y Q

 . K DIR

 . S DIR("A",1)="THIS MAY NOT BE THE MANAGER UCI."

 . S DIR("A",2)="I think it is "_Y_".  Should I continue anyway"

 . S DIR("B")="NO"

 . S DIR("?",1)="This routine will attempt to file some % routines and set nodes"

 . S DIR("?",2)="in the %ZOSF global.  It should therefore be run in the manager"

 . S DIR("?",3)="account."

 . D DIR K DIR

 ;

 D DT G:$D(DIQUIT) Q

 D ZIS G:$D(DIQUIT) Q

 D ZISS G:$D(DIQUIT) Q

 D ZOSF G:$D(DIQUIT) Q

 W !!,"ALL DONE",!

 G Q

 ;

ZS K DIR

 S DIR("A",1)="Are the ZLOAD and ZSAVE commands implemented"

 S DIR("A",2)="on your MUMPS operating system (Y/N)"

 S DIR("?",1)="Since this utility will use ZLOAD and ZSAVE to file some routines"

 S DIR("?",2)="under different names, you can use this utility only if those"

 S DIR("?",3)="commands are available.  Otherwise, you'll have to perform the"

 S DIR("?",4)="operations manually."

 D DIR K DIR Q:$D(DIQUIT)

 Q

DT K DIR

 S DIR("A",1)="Do you want to save DIDT, DIDTC, and DIRCR"

 S DIR("A",2)="as %DT, %DTC, and %RCR"

 S DIR("B")="YES"

 S DIR("?",1)="Enter 'YES' to refile the routines.  This step must be performed",DIR("?",2)="in order for FileMan to work properly."

 D DIR K DIR Q:$D(DIQUIT)!'Y

 W ! S %S="DIDT^DIDTC^DIRCR",%D="%DT^%DTC^%RCR" D MOVE

 Q

ZIS K DIR

 S DIR("A",1)="Do you want to save DIIS as %ZIS (Y/N)"

 S DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIIS routine",DIR("?",2)="as %ZIS."

 D DIR K DIR Q:$D(DIQUIT)!'Y

 W ! S %S="DIIS",%D="%ZIS" D MOVE

 Q

ZISS K DIR

 S DIR("A",1)="Do you want to save DIISS as %ZISS (Y/N)"

 S DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIISS routine",DIR("?",2)="as %ZISS."

 D DIR K DIR Q:$D(DIQUIT)!'Y

 W ! S %S="DIISS",%D="%ZISS" D MOVE

 Q

ZOSF S DIR("A",1)="Do you want me to set nodes in the ^%ZOSF global and"

 S DIR("A",2)="to file the %ZOSV routine (and possibly the %ZOSV1 routine)"

 S DIR("A",3)="appropriate for the MUMPS operating system you are using (Y/N)"

 S DIR("?",1)="FileMan's screen-oriented utilities require certain %ZOSF nodes"

 S DIR("?",2)="to be present.  Some of these nodes call %ZOSV and %ZOSV1,"

 S DIR("?",3)="so those routines must also be present."

 D DIR K DIR S:'Y DIQUIT=1 Q:$D(DIQUIT)

 W ! S %D="%ZOSV" D @DIOS

 Q

1 ;M/11

 ;S %S="DINVM11" D MOVE

 ;D ^DINZM11

 Q

2 ;M/SQL-PDP

 ;S %S="DINVM11P" D MOVE

 ;D ^DINZM11P

 Q

3 ;CACHE/OpenM;was M/SQL;before that, was M/SQL-VAX

 ;W !?3,$C(7)_"M/SQL is not yet supported."

 ;S %S="DINVMVX" D MOVE

 ;D ^DINZMVX

 S %S="DINVONT" D MOVE

 D ^DINZONT

 Q

4 ;DSM-4

 ;S %S="DINVDSM" D MOVE

 ;D ^DINZDSM

 Q

5 ;DSM for OpenVMS;was VAX DSM(V6)

 S %S="DINVVXD" D MOVE

 S %S="DINV1VXD",%D="%ZOSV1" D MOVE

 D ^DINZVXD

 Q

6 ;MSM

 S %S="DINVMSM" D MOVE

 D ^DINZMSM

 Q

7 ;DTM-PC

 S %S="DINVDTM" D MOVE

 S %S="DINV1DTM",%D="%ZOSV1" D MOVE

 D ^DINZDTM

 Q

8 ;GT.M(VAX)

 ;W !?3,$C(7)_"GT.M(VAX) is not yet supported."

 ;S %S="DINVGTM" D MOVE

 ;S %S="DINV1GTM",%D="%ZOSV1" D MOVE

 ;D ^DINZGTM

 Q

 ;

MOVE F %=1:1:$L(%D,U) S X=$P(%S,U,%),Y=$P(%D,U,%) I X]"",Y]"" W !,"Loading ",X X "ZL @X ZS @Y" W ?20,"Saved as ",Y

 K %S,%D

 Q

Q K %,X,X1,Y,DIOS,DIQUIT,DISAVE

 Q

DIR K DIQUIT S Y=0 W ! F %=1:1 Q:'$D(DIR("A",%))  W !,DIR("A",%)

 W "? "_$S($D(DIR("B")):DIR("B")_"// ",1:"")

 R X:300 S:X="" X=$S($D(DIR("B")):DIR("B"),1:"NULL")

 I X[U!'$T S DIQUIT=1 Q

 I $P("NO",$TR(X,"no","NO"))="" S Y=0 Q

 I $P("YES",$TR(X,"yes","YES"))="" S Y=1 Q

 I X?1."?",$D(DIR("?")) D  G DIR

 . W ! F %=1:1 Q:'$D(DIR("?",%))  W !?5,DIR("?",%)

 W $C(7),!!?5,"Enter 'YES' or 'NO', or '^' to quit." G DIR

 Q

DINZMGR   ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:04 PM  1 Oct 1998

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;This is a modification of Kernel's ZTMGRSET routine.

 +4        IF $DATA(^%ZTSK)

               IF $DATA(^%ZOSF("MGR"))#2

                   Begin DoDot:1

 +5                    WRITE !,$CHAR(7)_"  The VA Kernel appears to be installed on the system."

 +6                    WRITE !,"  ^DINZMGR should only be used during a stand-alone VA FileMan installation.",!

                   End DoDot:1

                   QUIT 

 +7       ;

 +8        SET U="^"

 +9        DO INTRO^DINZMGR1

 +10      ;

 +11       KILL DIR

 +12       SET DIR("A",1)="Do you wish to proceed"

 +13       SET DIR("B")="YES"

 +14       SET DIR("?",1)="Enter 'Y' to continue.  Enter 'N' or '^' to quit."

 +15       DO DIR

           KILL DIR

           IF $DATA(DIQUIT)!'Y

               GOTO Q

 +16      ;

 +17       DO ZS

           IF $DATA(DIQUIT)!'Y

               GOTO Q

 +18       DO OS^DINZMGR1

           IF $DATA(DIQUIT)

               GOTO Q

 +19      ;

 +20       IF $DATA(^%ZOSF("UCI"))

               XECUTE ^("UCI")

               IF Y'["MG"

                   Begin DoDot:1

 +21                   KILL DIR

 +22                   SET DIR("A",1)="THIS MAY NOT BE THE MANAGER UCI."

 +23                   SET DIR("A",2)="I think it is "_Y_".  Should I continue anyway"

 +24                   SET DIR("B")="NO"

 +25                   SET DIR("?",1)="This routine will attempt to file some % routines and set nodes"

 +26                   SET DIR("?",2)="in the %ZOSF global.  It should therefore be run in the manager"

 +27                   SET DIR("?",3)="account."

 +28                   DO DIR

                       KILL DIR

                   End DoDot:1

                   IF $DATA(DIQUIT)!'Y

                       GOTO Q

 +29      ;

 +30       DO DT

           IF $DATA(DIQUIT)

               GOTO Q

 +31       DO ZIS

           IF $DATA(DIQUIT)

               GOTO Q

 +32       DO ZISS

           IF $DATA(DIQUIT)

               GOTO Q

 +33       DO ZOSF

           IF $DATA(DIQUIT)

               GOTO Q

 +34       WRITE !!,"ALL DONE",!

 +35       GOTO Q

 +36      ;

ZS         KILL DIR

 +1        SET DIR("A",1)="Are the ZLOAD and ZSAVE commands implemented"

 +2        SET DIR("A",2)="on your MUMPS operating system (Y/N)"

 +3        SET DIR("?",1)="Since this utility will use ZLOAD and ZSAVE to file some routines"

 +4        SET DIR("?",2)="under different names, you can use this utility only if those"

 +5        SET DIR("?",3)="commands are available.  Otherwise, you'll have to perform the"

 +6        SET DIR("?",4)="operations manually."

 +7        DO DIR

           KILL DIR

           IF $DATA(DIQUIT)

               QUIT 

 +8        QUIT 

DT         KILL DIR

 +1        SET DIR("A",1)="Do you want to save DIDT, DIDTC, and DIRCR"

 +2        SET DIR("A",2)="as %DT, %DTC, and %RCR"

 +3        SET DIR("B")="YES"

 +4        SET DIR("?",1)="Enter 'YES' to refile the routines.  This step must be performed"

           SET DIR("?",2)="in order for FileMan to work properly."

 +5        DO DIR

           KILL DIR

           IF $DATA(DIQUIT)!'Y

               QUIT 

 +6        WRITE !

           SET %S="DIDT^DIDTC^DIRCR"

           SET %D="%DT^%DTC^%RCR"

           DO MOVE

 +7        QUIT 

ZIS        KILL DIR

 +1        SET DIR("A",1)="Do you want to save DIIS as %ZIS (Y/N)"

 +2        SET DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIIS routine"

           SET DIR("?",2)="as %ZIS."

 +3        DO DIR

           KILL DIR

           IF $DATA(DIQUIT)!'Y

               QUIT 

 +4        WRITE !

           SET %S="DIIS"

           SET %D="%ZIS"

           DO MOVE

 +5        QUIT 

ZISS       KILL DIR

 +1        SET DIR("A",1)="Do you want to save DIISS as %ZISS (Y/N)"

 +2        SET DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIISS routine"

           SET DIR("?",2)="as %ZISS."

 +3        DO DIR

           KILL DIR

           IF $DATA(DIQUIT)!'Y

               QUIT 

 +4        WRITE !

           SET %S="DIISS"

           SET %D="%ZISS"

           DO MOVE

 +5        QUIT 

ZOSF       SET DIR("A",1)="Do you want me to set nodes in the ^%ZOSF global and"

 +1        SET DIR("A",2)="to file the %ZOSV routine (and possibly the %ZOSV1 routine)"

 +2        SET DIR("A",3)="appropriate for the MUMPS operating system you are using (Y/N)"

 +3        SET DIR("?",1)="FileMan's screen-oriented utilities require certain %ZOSF nodes"

 +4        SET DIR("?",2)="to be present.  Some of these nodes call %ZOSV and %ZOSV1,"

 +5        SET DIR("?",3)="so those routines must also be present."

 +6        DO DIR

           KILL DIR

           IF 'Y

               SET DIQUIT=1

           IF $DATA(DIQUIT)

               QUIT 

 +7        WRITE !

           SET %D="%ZOSV"

           DO @DIOS

 +8        QUIT 

1         ;M/11

 +1       ;S %S="DINVM11" D MOVE

 +2       ;D ^DINZM11

 +3        QUIT 

2         ;M/SQL-PDP

 +1       ;S %S="DINVM11P" D MOVE

 +2       ;D ^DINZM11P

 +3        QUIT 

3         ;CACHE/OpenM;was M/SQL;before that, was M/SQL-VAX

 +1       ;W !?3,$C(7)_"M/SQL is not yet supported."

 +2       ;S %S="DINVMVX" D MOVE

 +3       ;D ^DINZMVX

 +4        SET %S="DINVONT"

           DO MOVE

 +5        DO ^DINZONT

 +6        QUIT 

4         ;DSM-4

 +1       ;S %S="DINVDSM" D MOVE

 +2       ;D ^DINZDSM

 +3        QUIT 

5         ;DSM for OpenVMS;was VAX DSM(V6)

 +1        SET %S="DINVVXD"

           DO MOVE

 +2        SET %S="DINV1VXD"

           SET %D="%ZOSV1"

           DO MOVE

 +3        DO ^DINZVXD

 +4        QUIT 

6         ;MSM

 +1        SET %S="DINVMSM"

           DO MOVE

 +2        DO ^DINZMSM

 +3        QUIT 

7         ;DTM-PC

 +1        SET %S="DINVDTM"

           DO MOVE

 +2        SET %S="DINV1DTM"

           SET %D="%ZOSV1"

           DO MOVE

 +3        DO ^DINZDTM

 +4        QUIT 

8         ;GT.M(VAX)

 +1       ;W !?3,$C(7)_"GT.M(VAX) is not yet supported."

 +2       ;S %S="DINVGTM" D MOVE

 +3       ;S %S="DINV1GTM",%D="%ZOSV1" D MOVE

 +4       ;D ^DINZGTM

 +5        QUIT 

 +6       ;

MOVE       FOR %=1:1:$LENGTH(%D,U)

               SET X=$PIECE(%S,U,%)

               SET Y=$PIECE(%D,U,%)

               IF X]""

                   IF Y]""

                       WRITE !,"Loading ",X

                       XECUTE "ZL @X ZS @Y"

                       WRITE ?20,"Saved as ",Y

 +1        KILL %S,%D

 +2        QUIT 

Q          KILL %,X,X1,Y,DIOS,DIQUIT,DISAVE

 +1        QUIT 

DIR        KILL DIQUIT

           SET Y=0

           WRITE !

           FOR %=1:1

               IF '$DATA(DIR("A",%))

                   QUIT 

               WRITE !,DIR("A",%)

 +1        WRITE "? "_$SELECT($DATA(DIR("B")):DIR("B")_"// ",1:"")

 +2        READ X:300

           IF X=""

               SET X=$SELECT($DATA(DIR("B")):DIR("B"),1:"NULL")

 +3        IF X[U!'$TEST

               SET DIQUIT=1

               QUIT 

 +4        IF $PIECE("NO",$TRANSLATE(X,"no","NO"))=""

               SET Y=0

               QUIT 

 +5        IF $PIECE("YES",$TRANSLATE(X,"yes","YES"))=""

               SET Y=1

               QUIT 

 +6        IF X?1."?"

               IF $DATA(DIR("?"))

                   Begin DoDot:1

 +7                    WRITE !

                       FOR %=1:1

                           IF '$DATA(DIR("?",%))

                               QUIT 

                           WRITE !?5,DIR("?",%)

                   End DoDot:1

                   GOTO DIR

 +8        WRITE $CHAR(7),!!?5,"Enter 'YES' or 'NO', or '^' to quit."

           GOTO DIR

 +9        QUIT