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

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

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1DINZMGR1 ;SFISC/MKO-TO SET UP THE MGR ACCOUNT FOR THE SYSTEM ;3:02 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.
4INTRO ;Print introductory text
5 W !!!,"HELLO!"
6 W !!,"I exist to assist you in correctly initializing the manager account",!,"or to update the current account."
7 W !!,"I'm going to do the following:"
8 W !!?3,"1. File the routines DIDT, DIDTC, and DIRCR as %DT, %DTC, and",!?7,"%RCR, respectively."
9 W !!?3,"2. File the routines DIIS and DIISS as %ZIS and %ZISS, respectively."
10 W !!?3,"3. Set nodes in the %ZOSF global. This global contains"
11 W !?7,"MUMPS operating system-specific code required by FileMan's"
12 W !?7,"screen-oriented utilities."
13 W !!,?3,"4. Save a %ZOSV routine (and possibly a %ZOSV1 routine) specific",!?7,"to your MUMPS operating system."
14 W !!,"Note that on some MUMPS systems, executing some of the ^%ZOSF nodes"
15 W !,"causes ^XUTL global nodes to be set in the production account."
16 Q
17 ;
18OS ;Prompt for operating system
19 N I,J
20 S Y=0
21 I $D(^%ZOSF("OS"))#2 D
22 . S X1=$P(^%ZOSF("OS"),U),Y=$P(^("OS"),U,2)
23 . ;S:Y=7 X1="M\SQL",Y=18
24 . I X1=""!'Y S (X1,Y)="" Q
25 . W !!,"I think you are using "_X1
26 . 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)
27 ;
28OS1 W !!,"Which MUMPS system are you using?",!
29 F I=1:1 S J=$P($T(@I),";;",2,999) Q:J="" D
30 . W !
31 . W:$P(J,";",2)]"" ?3,$P(J,";",2)
32 . W ?5,I_" = "_$P(J,";")
33 W !!?9,"* No longer supported."
34 W !!,"MUMPS System: " W:Y Y,"// " R X:300 S:X="" X=Y
35 I X[U!'$T S DIQUIT=1 Q
36 ;
37 I X?1."?" D G OS1
38 . W !!?5,"If the MUMPS system you are using is not listed, you cannot use"
39 . W !?5,"this utility. You must manually file DIDT, DIDTC, and DIRCR as"
40 . W !?5,"%DT, %DTC, and %RCR, respectively."
41 . W !!?5,"In addition, if you wish to use FileMan's screen-oriented utilities,"
42 . W !?5,"you must file %ZIS and %ZISS routines (you can use DIIS and DIISS"
43 . W !?5,"as starting points), and you must set the %ZOSF nodes manually."
44 . W !?5,"Please refer the VA FileMan Programmer Manual for more information."
45 ;
46 S J=$P($T(@X),";;",2,999)
47 I $T(@X)="" D G OS1
48 . W !!?5,$C(7)_"Invalid response. Enter a number between 1 and 9."
49 I $P(J,";",2)="*" D G OS1
50 . W !!?5,$C(7)_$P(J,";")_" is no longer supported."
51 ;
52 S DIOS=+X
53 Q
54 ;
551 ;;M/11;*
562 ;;M/SQL-PDP;*
573 ;;CACHE/OpenM
584 ;;DSM-4;*
595 ;;DSM for OpenVMS
606 ;;MSM
617 ;;DTM-PC
628 ;;GT.M(VAX);*
Note: See TracBrowser for help on using the repository browser.