- DINZMGR1 ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:02 PM 1 Oct 1998
- ;;22.0;VA FileMan;;Mar 30, 1999
- ;Per VHA Directive 10-93-142, this routine should not be modified.
- INTRO ;Print introductory text
- W !!!,"HELLO!"
- W !!,"I exist to assist you in correctly initializing the manager account",!,"or to update the current account."
- W !!,"I'm going to do the following:"
- W !!?3,"1. File the routines DIDT, DIDTC, and DIRCR as %DT, %DTC, and",!?7,"%RCR, respectively."
- W !!?3,"2. File the routines DIIS and DIISS as %ZIS and %ZISS, respectively."
- W !!?3,"3. Set nodes in the %ZOSF global. This global contains"
- W !?7,"MUMPS operating system-specific code required by FileMan's"
- W !?7,"screen-oriented utilities."
- W !!,?3,"4. Save a %ZOSV routine (and possibly a %ZOSV1 routine) specific",!?7,"to your MUMPS operating system."
- W !!,"Note that on some MUMPS systems, executing some of the ^%ZOSF nodes"
- W !,"causes ^XUTL global nodes to be set in the production account."
- Q
- ;
- OS ;Prompt for operating system
- N I,J
- S Y=0
- I $D(^%ZOSF("OS"))#2 D
- . S X1=$P(^%ZOSF("OS"),U),Y=$P(^("OS"),U,2)
- . ;S:Y=7 X1="M\SQL",Y=18
- . I X1=""!'Y S (X1,Y)="" Q
- . W !!,"I think you are using "_X1
- . S Y=$S(Y=1:1,Y=13:2,Y=18:3,Y=2:4,Y=16:5,Y=8:6,Y=9:7,Y=17:8,1:0)
- ;
- OS1 W !!,"Which MUMPS system are you using?",!
- F I=1:1 S J=$P($T(@I),";;",2,999) Q:J="" D
- . W !
- . W:$P(J,";",2)]"" ?3,$P(J,";",2)
- . W ?5,I_" = "_$P(J,";")
- W !!?9,"* No longer supported."
- W !!,"MUMPS System: " W:Y Y,"// " R X:300 S:X="" X=Y
- I X[U!'$T S DIQUIT=1 Q
- ;
- I X?1."?" D G OS1
- . W !!?5,"If the MUMPS system you are using is not listed, you cannot use"
- . W !?5,"this utility. You must manually file DIDT, DIDTC, and DIRCR as"
- . W !?5,"%DT, %DTC, and %RCR, respectively."
- . W !!?5,"In addition, if you wish to use FileMan's screen-oriented utilities,"
- . W !?5,"you must file %ZIS and %ZISS routines (you can use DIIS and DIISS"
- . W !?5,"as starting points), and you must set the %ZOSF nodes manually."
- . W !?5,"Please refer the VA FileMan Programmer Manual for more information."
- ;
- S J=$P($T(@X),";;",2,999)
- I $T(@X)="" D G OS1
- . W !!?5,$C(7)_"Invalid response. Enter a number between 1 and 9."
- I $P(J,";",2)="*" D G OS1
- . W !!?5,$C(7)_$P(J,";")_" is no longer supported."
- ;
- S DIOS=+X
- Q
- ;
- 1 ;;M/11;*
- 2 ;;M/SQL-PDP;*
- 3 ;;CACHE/OpenM
- 4 ;;DSM-4;*
- 5 ;;DSM for OpenVMS
- 6 ;;MSM
- 7 ;;DTM-PC
- 8 ;;GT.M(VAX);*
- DINZMGR1 ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:02 PM 1 Oct 1998
- +1 ;;22.0;VA FileMan;;Mar 30, 1999
- +2 ;Per VHA Directive 10-93-142, this routine should not be modified.
- INTRO ;Print introductory text
- +1 WRITE !!!,"HELLO!"
- +2 WRITE !!,"I exist to assist you in correctly initializing the manager account",!,"or to update the current account."
- +3 WRITE !!,"I'm going to do the following:"
- +4 WRITE !!?3,"1. File the routines DIDT, DIDTC, and DIRCR as %DT, %DTC, and",!?7,"%RCR, respectively."
- +5 WRITE !!?3,"2. File the routines DIIS and DIISS as %ZIS and %ZISS, respectively."
- +6 WRITE !!?3,"3. Set nodes in the %ZOSF global. This global contains"
- +7 WRITE !?7,"MUMPS operating system-specific code required by FileMan's"
- +8 WRITE !?7,"screen-oriented utilities."
- +9 WRITE !!,?3,"4. Save a %ZOSV routine (and possibly a %ZOSV1 routine) specific",!?7,"to your MUMPS operating system."
- +10 WRITE !!,"Note that on some MUMPS systems, executing some of the ^%ZOSF nodes"
- +11 WRITE !,"causes ^XUTL global nodes to be set in the production account."
- +12 QUIT
- +13 ;
- OS ;Prompt for operating system
- +1 NEW I,J
- +2 SET Y=0
- +3 IF $DATA(^%ZOSF("OS"))#2
- Begin DoDot:1
- +4 SET X1=$PIECE(^%ZOSF("OS"),U)
- SET Y=$PIECE(^("OS"),U,2)
- +5 ;S:Y=7 X1="M\SQL",Y=18
- +6 IF X1=""!'Y
- SET (X1,Y)=""
- QUIT
- +7 WRITE !!,"I think you are using "_X1
- +8 SET Y=$SELECT(Y=1:1,Y=13:2,Y=18:3,Y=2:4,Y=16:5,Y=8:6,Y=9:7,Y=17:8,1:0)
- End DoDot:1
- +9 ;
- OS1 WRITE !!,"Which MUMPS system are you using?",!
- +1 FOR I=1:1
- SET J=$PIECE($TEXT(@I),";;",2,999)
- IF J=""
- QUIT
- Begin DoDot:1
- +2 WRITE !
- +3 IF $PIECE(J,";",2)]""
- WRITE ?3,$PIECE(J,";",2)
- +4 WRITE ?5,I_" = "_$PIECE(J,";")
- End DoDot:1
- +5 WRITE !!?9,"* No longer supported."
- +6 WRITE !!,"MUMPS System: "
- IF Y
- WRITE Y,"// "
- READ X:300
- IF X=""
- SET X=Y
- +7 IF X[U!'$TEST
- SET DIQUIT=1
- QUIT
- +8 ;
- +9 IF X?1."?"
- Begin DoDot:1
- +10 WRITE !!?5,"If the MUMPS system you are using is not listed, you cannot use"
- +11 WRITE !?5,"this utility. You must manually file DIDT, DIDTC, and DIRCR as"
- +12 WRITE !?5,"%DT, %DTC, and %RCR, respectively."
- +13 WRITE !!?5,"In addition, if you wish to use FileMan's screen-oriented utilities,"
- +14 WRITE !?5,"you must file %ZIS and %ZISS routines (you can use DIIS and DIISS"
- +15 WRITE !?5,"as starting points), and you must set the %ZOSF nodes manually."
- +16 WRITE !?5,"Please refer the VA FileMan Programmer Manual for more information."
- End DoDot:1
- GOTO OS1
- +17 ;
- +18 SET J=$PIECE($TEXT(@X),";;",2,999)
- +19 IF $TEXT(@X)=""
- Begin DoDot:1
- +20 WRITE !!?5,$CHAR(7)_"Invalid response. Enter a number between 1 and 9."
- End DoDot:1
- GOTO OS1
- +21 IF $PIECE(J,";",2)="*"
- Begin DoDot:1
- +22 WRITE !!?5,$CHAR(7)_$PIECE(J,";")_" is no longer supported."
- End DoDot:1
- GOTO OS1
- +23 ;
- +24 SET DIOS=+X
- +25 QUIT
- +26 ;
- 1 ;;M/11;*
- 2 ;;M/SQL-PDP;*
- 3 ;;CACHE/OpenM
- 4 ;;DSM-4;*
- 5 ;;DSM for OpenVMS
- 6 ;;MSM
- 7 ;;DTM-PC
- 8 ;;GT.M(VAX);*
