Annotation of freem_fileman/DINZMGR.m, revision 1.1.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
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINZMGR.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman