[BACK]Return to DINZMGR.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem_fileman / USER
File:  [Coherent Logic Development] / freem_fileman / USER / DINZMGR.m
Revision 1.2: download - view: text, annotated - select for diffs
Mon Apr 28 19:23:48 2025 UTC (3 months ago) by snw
Branches: MAIN
CVS tags: HEAD
Updates

    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>