source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DINZMGR.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.2 KB
Line 
1DINZMGR ;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 ;
38ZS 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
47DT 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
55ZIS 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
61ZISS 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
67ZOSF 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
761 ;M/11
77 ;S %S="DINVM11" D MOVE
78 ;D ^DINZM11
79 Q
802 ;M/SQL-PDP
81 ;S %S="DINVM11P" D MOVE
82 ;D ^DINZM11P
83 Q
843 ;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
914 ;DSM-4
92 ;S %S="DINVDSM" D MOVE
93 ;D ^DINZDSM
94 Q
955 ;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
1006 ;MSM
101 S %S="DINVMSM" D MOVE
102 D ^DINZMSM
103 Q
1047 ;DTM-PC
105 S %S="DINVDTM" D MOVE
106 S %S="DINV1DTM",%D="%ZOSV1" D MOVE
107 D ^DINZDTM
108 Q
1098 ;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 ;
116MOVE 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
119Q K %,X,X1,Y,DIOS,DIQUIT,DISAVE
120 Q
121DIR 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
Note: See TracBrowser for help on using the repository browser.