| 1 | DINZMGR ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:04 PM 1 Oct 1998
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 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 ;CACHE/OpenM;was M/SQL;before that, 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 | S %S="DINVONT" D MOVE
|
|---|
| 89 | D ^DINZONT
|
|---|
| 90 | Q
|
|---|
| 91 | 4 ;DSM-4
|
|---|
| 92 | ;S %S="DINVDSM" D MOVE
|
|---|
| 93 | ;D ^DINZDSM
|
|---|
| 94 | Q
|
|---|
| 95 | 5 ;DSM for OpenVMS;was VAX DSM(V6)
|
|---|
| 96 | S %S="DINVVXD" D MOVE
|
|---|
| 97 | S %S="DINV1VXD",%D="%ZOSV1" D MOVE
|
|---|
| 98 | D ^DINZVXD
|
|---|
| 99 | Q
|
|---|
| 100 | 6 ;MSM
|
|---|
| 101 | S %S="DINVMSM" D MOVE
|
|---|
| 102 | D ^DINZMSM
|
|---|
| 103 | Q
|
|---|
| 104 | 7 ;DTM-PC
|
|---|
| 105 | S %S="DINVDTM" D MOVE
|
|---|
| 106 | S %S="DINV1DTM",%D="%ZOSV1" D MOVE
|
|---|
| 107 | D ^DINZDTM
|
|---|
| 108 | Q
|
|---|
| 109 | 8 ;GT.M(VAX)
|
|---|
| 110 | ;W !?3,$C(7)_"GT.M(VAX) is not yet supported."
|
|---|
| 111 | ;S %S="DINVGTM" D MOVE
|
|---|
| 112 | ;S %S="DINV1GTM",%D="%ZOSV1" D MOVE
|
|---|
| 113 | ;D ^DINZGTM
|
|---|
| 114 | Q
|
|---|
| 115 | ;
|
|---|
| 116 | 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
|
|---|
| 117 | K %S,%D
|
|---|
| 118 | Q
|
|---|
| 119 | Q K %,X,X1,Y,DIOS,DIQUIT,DISAVE
|
|---|
| 120 | Q
|
|---|
| 121 | DIR K DIQUIT S Y=0 W ! F %=1:1 Q:'$D(DIR("A",%)) W !,DIR("A",%)
|
|---|
| 122 | W "? "_$S($D(DIR("B")):DIR("B")_"// ",1:"")
|
|---|
| 123 | R X:300 S:X="" X=$S($D(DIR("B")):DIR("B"),1:"NULL")
|
|---|
| 124 | I X[U!'$T S DIQUIT=1 Q
|
|---|
| 125 | I $P("NO",$TR(X,"no","NO"))="" S Y=0 Q
|
|---|
| 126 | I $P("YES",$TR(X,"yes","YES"))="" S Y=1 Q
|
|---|
| 127 | I X?1."?",$D(DIR("?")) D G DIR
|
|---|
| 128 | . W ! F %=1:1 Q:'$D(DIR("?",%)) W !?5,DIR("?",%)
|
|---|
| 129 | W $C(7),!!?5,"Enter 'YES' or 'NO', or '^' to quit." G DIR
|
|---|
| 130 | Q
|
|---|
