Return to DINZMGR.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DINZMGR.m, revision 1.1

1.1     ! snw         1: DINZMGR        ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;08:32 AM  28 Sep 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;This is a modification of Kernel's ZTMGRSET routine.
        !             5:        I $D(^%ZTSK),$D(^%ZOSF("MGR"))#2 D  Q
        !             6:        . W !,$C(7)_"  The VA Kernel appears to be installed on the system."
        !             7:        . W !,"  ^DINZMGR should only be used during a stand-alone VA FileMan installation.",!
        !             8:        ;
        !             9:        S U="^"
        !            10:        D INTRO^DINZMGR1
        !            11:        ;
        !            12:        K DIR
        !            13:        S DIR("A",1)="Do you wish to proceed"
        !            14:        S DIR("B")="YES"
        !            15:        S DIR("?",1)="Enter 'Y' to continue.  Enter 'N' or '^' to quit."
        !            16:        D DIR K DIR G:$D(DIQUIT)!'Y Q
        !            17:        ;
        !            18:        D ZS G:$D(DIQUIT)!'Y Q
        !            19:        D OS^DINZMGR1 G:$D(DIQUIT) Q
        !            20:        ;
        !            21:        I $D(^%ZOSF("UCI")) X ^("UCI") I Y'["MG" D  G:$D(DIQUIT)!'Y Q
        !            22:        . K DIR
        !            23:        . S DIR("A",1)="THIS MAY NOT BE THE MANAGER UCI."
        !            24:        . S DIR("A",2)="I think it is "_Y_".  Should I continue anyway"
        !            25:        . S DIR("B")="NO"
        !            26:        . S DIR("?",1)="This routine will attempt to file some % routines and set nodes"
        !            27:        . S DIR("?",2)="in the %ZOSF global.  It should therefore be run in the manager"
        !            28:        . S DIR("?",3)="account."
        !            29:        . D DIR K DIR
        !            30:        ;
        !            31:        D DT G:$D(DIQUIT) Q
        !            32:        D ZIS G:$D(DIQUIT) Q
        !            33:        D ZISS G:$D(DIQUIT) Q
        !            34:        D ZOSF G:$D(DIQUIT) Q
        !            35:        W !!,"ALL DONE",!
        !            36:        G Q
        !            37:        ;
        !            38: ZS     K DIR
        !            39:        S DIR("A",1)="Are the ZLOAD and ZSAVE commands implemented"
        !            40:        S DIR("A",2)="on your MUMPS operating system (Y/N)"
        !            41:        S DIR("?",1)="Since this utility will use ZLOAD and ZSAVE to file some routines"
        !            42:        S DIR("?",2)="under different names, you can use this utility only if those"
        !            43:        S DIR("?",3)="commands are available.  Otherwise, you'll have to perform the"
        !            44:        S DIR("?",4)="operations manually."
        !            45:        D DIR K DIR Q:$D(DIQUIT)
        !            46:        Q
        !            47: DT     K DIR
        !            48:        S DIR("A",1)="Do you want to save DIDT, DIDTC, and DIRCR"
        !            49:        S DIR("A",2)="as %DT, %DTC, and %RCR"
        !            50:        S DIR("B")="YES"
        !            51:        S DIR("?",1)="Enter 'YES' to refile the routines.  This step must be performed",DIR("?",2)="in order for FileMan to work properly."
        !            52:        D DIR K DIR Q:$D(DIQUIT)!'Y
        !            53:        W ! S %S="DIDT^DIDTC^DIRCR",%D="%DT^%DTC^%RCR" D MOVE
        !            54:        Q
        !            55: ZIS    K DIR
        !            56:        S DIR("A",1)="Do you want to save DIIS as %ZIS (Y/N)"
        !            57:        S DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIIS routine",DIR("?",2)="as %ZIS."
        !            58:        D DIR K DIR Q:$D(DIQUIT)!'Y
        !            59:        W ! S %S="DIIS",%D="%ZIS" D MOVE
        !            60:        Q
        !            61: ZISS   K DIR
        !            62:        S DIR("A",1)="Do you want to save DIISS as %ZISS (Y/N)"
        !            63:        S DIR("?",1)="Enter 'YES' if you want to save the FileMan-supplied DIISS routine",DIR("?",2)="as %ZISS."
        !            64:        D DIR K DIR Q:$D(DIQUIT)!'Y
        !            65:        W ! S %S="DIISS",%D="%ZISS" D MOVE
        !            66:        Q
        !            67: ZOSF   S DIR("A",1)="Do you want me to set nodes in the ^%ZOSF global and"
        !            68:        S DIR("A",2)="to file the %ZOSV routine (and possibly the %ZOSV1 routine)"
        !            69:        S DIR("A",3)="appropriate for the MUMPS operating system you are using (Y/N)"
        !            70:        S DIR("?",1)="FileMan's screen-oriented utilities require certain %ZOSF nodes"
        !            71:        S DIR("?",2)="to be present.  Some of these nodes call %ZOSV and %ZOSV1,"
        !            72:        S DIR("?",3)="so those routines must also be present."
        !            73:        D DIR K DIR S:'Y DIQUIT=1 Q:$D(DIQUIT)
        !            74:        W ! S %D="%ZOSV" D @DIOS
        !            75:        Q
        !            76: 1      ;M/11
        !            77:        ;S %S="DINVM11" D MOVE
        !            78:        ;D ^DINZM11
        !            79:        Q
        !            80: 2      ;M/SQL-PDP
        !            81:        ;S %S="DINVM11P" D MOVE
        !            82:        ;D ^DINZM11P
        !            83:        Q
        !            84: 3      ;M/SQL;was M/SQL-VAX
        !            85:        W !?3,$C(7)_"M/SQL is not yet supported."
        !            86:        ;S %S="DINVMVX" D MOVE
        !            87:        ;D ^DINZMVX
        !            88:        Q
        !            89: 4      ;DSM-4
        !            90:        ;S %S="DINVDSM" D MOVE
        !            91:        ;D ^DINZDSM
        !            92:        Q
        !            93: 5      ;DSM for OpenVMS;was VAX DSM(V6)
        !            94:        S %S="DINVVXD" D MOVE
        !            95:        S %S="DINV1VXD",%D="%ZOSV1" D MOVE
        !            96:        D ^DINZVXD
        !            97:        Q
        !            98: 6      ;MSM
        !            99:        S %S="DINVMSM" D MOVE
        !           100:        D ^DINZMSM
        !           101:        Q
        !           102: 7      ;DTM-PC
        !           103:        S %S="DINVDTM" D MOVE
        !           104:        S %S="DINV1DTM",%D="%ZOSV1" D MOVE
        !           105:        D ^DINZDTM
        !           106:        Q
        !           107: 8      ;GT.M(VAX)
        !           108:        W !?3,$C(7)_"GT.M(VAX) is not yet supported."
        !           109:        ;S %S="DINVGTM" D MOVE
        !           110:        ;S %S="DINV1GTM",%D="%ZOSV1" D MOVE
        !           111:        ;D ^DINZGTM
        !           112:        Q
        !           113: 9      ;FreeM
        !           114:         ;S %S="DINVFRM" D MOVE
        !           115:         ;D ^DINZFRM
        !           116:         Q
        !           117: 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
        !           118:        K %S,%D
        !           119:        Q
        !           120: Q      K %,X,X1,Y,DIOS,DIQUIT,DISAVE
        !           121:        Q
        !           122: DIR    K DIQUIT S Y=0 W ! F %=1:1 Q:'$D(DIR("A",%))  W !,DIR("A",%)
        !           123:        W "? "_$S($D(DIR("B")):DIR("B")_"// ",1:"")
        !           124:        R X:300 S:X="" X=$S($D(DIR("B")):DIR("B"),1:"NULL")
        !           125:        I X[U!'$T S DIQUIT=1 Q
        !           126:        I $P("NO",$TR(X,"no","NO"))="" S Y=0 Q
        !           127:        I $P("YES",$TR(X,"yes","YES"))="" S Y=1 Q
        !           128:        I X?1."?",$D(DIR("?")) D  G DIR
        !           129:        . W ! F %=1:1 Q:'$D(DIR("?",%))  W !?5,DIR("?",%)
        !           130:        W $C(7),!!?5,"Enter 'YES' or 'NO', or '^' to quit." G DIR
        !           131:        Q