Routine: DINIT

DINIT ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999

V ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 D KL^DINIT6

N ;

 D VERSION N DIFROM S DIFROM=VERSION W !!,X D DT^DICRW

 I $G(^DD("VERSION"))]"",^DD("VERSION")_"z"]](VERSION_"z") D

 . W $C(7),!!,"*** WARNING!!  VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!

 S Y=$G(^DD("OS")) I Y,"1,2,3,4,5,6,10,11,12,13,15,"[(Y_",") W $C(7),!!,"Your defined operating system entry "_$P($G(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21." G KL^DINIT6

DO W !!,"Initialize VA FileMan now?  NO//" R Y:60 G:Y["^"!("Nn"[$E(Y))!('$T) KL^DINIT6

 I "Yy"'[$E(Y) W !,"Answer YES to begin Initializing VA FileMan" G DO

NA W !!,"SITE NAME: " I $D(^DD("SITE")) W ^("SITE"),"// "

 R X:60 G KL^DINIT6:X="^"!'$T I X="",$D(^("SITE"))#2 S X=^("SITE")

 I X'?1AN.ANP W "  ENTER THE NAME OF THIS INSTALLATION SITE",!! G NA

 S %X=X

NO W !!,"SITE NUMBER: " W:$D(^DD("SITE",1)) ^(1),"// "

 R X:60 G KL^DINIT6:X="^"!'$T I $D(^(1)),X="" S X=^(1)

 S:X>0 ^DD("SITE")=%X,^DD("SITE",1)=X

 I X'>0 W "  ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION" G NO

 ;***** REMOVE AFTER V21 INIT *****

;D

 ;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC  Q:DIREC>10000  K ^DI(.84,DIREC,5)

 ;. Q

 ;*********************************

 K ^DD(0) D ^DINIT0,^DINIT11B

 D OSETC

 W ! S Y=1 D OS G KL^DINIT6:Y<0

 W !!,"Now loading other FileMan files--please wait." G GO

OS W ! S DIC="^DD(""OS"",",DIC(0)="IAQE",DIC("A")="TYPE OF MUMPS SYSTEM YOU ARE USING: " I $D(^DD("OS"))#2 S (DITZS,DIC("B"))=^("OS") S:DITZS=7 (DITZS,DIC("B"))=18

 E  S (DITZS,^DD("OS"))=100

 D ^DIC K DIC G Q:Y<0 S (DITZS,^DD("OS"))=+Y

 I $D(^%ZTSK),$D(^%ZOSF("OS"))#2,$D(^("MGR"))#2 D

 . S ZTRTN="OS^%RCR",ZTUCI=^%ZOSF("MGR"),ZTDTH=$H,ZTIO="",ZTSAVE("DITZS")=""

 . S ZTDESC="Set Operating System" D ^%ZTLOAD Q

Q K DITZS,ZTSK Q

VERSION ;

 S VERSION=$P($T(V),";",3),X="VA FileMan V."_VERSION Q

GO S I=$C(126),DIT=$P($H,",",2)

 S $P(^DIBT(0),U,1,2)="TEMPLATE^.4I",$P(^DIE(0),U,1,2)="TEMPLATE^.4I",$P(^DIPT(0),U,1,2)="TEMPLATE^.4I",^(.01,0)="CAPTIONED^",^("F",1)="S DIC=DCC,DA=D0 D EN^DIQ"

 S ^DIPT(.02,0)="FILE SECURITY CODES^^^1",^("F",1)=".01;L20"_I_"0;R13"_I_31_I_33_I_35_I_34_I_32_I_21_I_20

 S ^DIA(0)="AUDIT^1.1I"

 K ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)

 K ^DIC(.403),^(.404),^(1.2)

 K ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)

 F I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13 K ^DIC(I,"%D")

 K ^DIC(.46),^DD(.46),^(.461),^(.463)

 K ^DIC(.11),^(.31) F I=.11,.111,.112,.114,.31,.312 K ^DD(I)

 F I=1.521,1.52101,1.5211,1.5212,1.5213,1.5214,1.5215,1.5216,1.5217,1.5218,1.5219,1.52191,1.52192 K ^DIC(I),^DD(I)

 G ^DINIT0F0

OSETC ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN

 N DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0

 W !!,"Now loading MUMPS Operating System File"

 D ^DINIT21,OSDD^DINIT24

 S ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7",^(0,"GL")="^DD(""OS""," D A^DINIT3

 S ^DIC(.7,"%D",0)="^^5^5^2940908^"

 S ^DIC(.7,"%D",1,0)="This file stores operating system-specific code.  Since the code to invoke"

 S ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"

 S ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"

 S ^DIC(.7,"%D",4,0)="this file.  During the FileMan INIT process an operating system is"

 S ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."

 K ^DD("OS","B"),DA,DIK S DA(1)=.7 S DIK="^DD(.7," D X^DINIT3

 K DA,DIK S DIK="^DD(""OS""," D X^DINIT3

 . N I,DA,DIK F I=1,2,3,4,5,6,7,10,11,12,13,14,15 S DA=I,DIK="^DD(""OS""," D ^DIK

. Q

 K ^UTILITY(U,$J),^UTILITY("DIK",$J) W !!,"Now loading DIALOG and LANGUAGE Files"

 S DN="^DINIT" F R=1:1:39 D @(DN_$$B36(R)) W "."

 S $P(^DIC(.84,0),U,1,2)="DIALOG^.84",$P(^DI(.84,0),U,1,2)="DIALOG^.84I" I $D(^DIC(.84,0,"GL")) D A1^DINIT3

 S $P(^DIC(.85,0),U,1,2)="LANGUAGE^.85",$P(^DI(.85,0),U,1,2)="LANGUAGE^.85I" I $D(^DIC(.85,0,"GL")) D A1^DINIT3

 F I=.84,.841,.842,.844,.845,.847,.8471,.85 D XX^DINIT3

 D DATA

DATA W "." S (D,DDF(1),DDT(0))=$O(^UTILITY(U,$J,0)) Q:D'>0

 S DTO=0,DMRG=1,DTO(0)=^(D),Z=^(D)_"0)",D0=^(D,0),@Z=D0,DFR(1)="^UTILITY(U,$J,DDF(1),D0,",DKP=0 F D0=0:0 S D0=$O(^UTILITY(U,$J,DDF(1),D0)) S:D0="" D0=-1 Q:'$D(^(D0,0))  S Z=^(0) D I^DITR

 K ^UTILITY(U,$J,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN G DATA

B36(X) Q $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)

N1(%) Q $E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

DINIT     ;SFISC/GFT,XAK-INITIALIZE VA FILEMAN ;1:06 PM  30 Mar 1999

V         ;;22.0;VA FileMan;;Mar 30, 1999

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2        DO KL^DINIT6

N         ;

 +1        DO VERSION

           NEW DIFROM

           SET DIFROM=VERSION

           WRITE !!,X

           DO DT^DICRW

 +2        IF $GET(^DD("VERSION"))]""

               IF ^DD("VERSION")_"z"]](VERSION_"z")

                   Begin DoDot:1

 +3                    WRITE $CHAR(7),!!,"*** WARNING!!  VA FileMan version "_^DD("VERSION")_" is currently loaded on this system.",!,"This Initialization will bring in VA FileMan version "_VERSION_", an earlier version!!",!!

                   End DoDot:1

 +4        SET Y=$GET(^DD("OS"))

           IF Y

               IF "1,2,3,4,5,6,10,11,12,13,15,"[(Y_",")

                   WRITE $CHAR(7),!!,"Your defined operating system entry "_$PIECE($GET(^DD("OS",Y,0)),U)_" does not support the",!,"1995 M Standards.",!!,"You may not initialize VA FileMan V21."

                   GOTO KL^DINIT6

DO         WRITE !!,"Initialize VA FileMan now?  NO//"

           READ Y:60

           IF Y["^"!("Nn"[$EXTRACT(Y))!('$TEST)

               GOTO KL^DINIT6

 +1        IF "Yy"'[$EXTRACT(Y)

               WRITE !,"Answer YES to begin Initializing VA FileMan"

               GOTO DO

NA         WRITE !!,"SITE NAME: "

           IF $DATA(^DD("SITE"))

               WRITE ^("SITE"),"// "

 +1        READ X:60

           IF X="^"!'$TEST

               GOTO KL^DINIT6

           IF X=""

               IF $DATA(^("SITE"))#2

                   SET X=^("SITE")

 +2        IF X'?1AN.ANP

               WRITE "  ENTER THE NAME OF THIS INSTALLATION SITE",!!

               GOTO NA

 +3        SET %X=X

NO         WRITE !!,"SITE NUMBER: "

           IF $DATA(^DD("SITE",1))

               WRITE ^(1),"// "

 +1        READ X:60

           IF X="^"!'$TEST

               GOTO KL^DINIT6

           IF $DATA(^(1))

               IF X=""

                   SET X=^(1)

 +2        IF X>0

               SET ^DD("SITE")=%X

               SET ^DD("SITE",1)=X

 +3        IF X'>0

               WRITE "  ENTER A NUMBER, CORRESPONDING TO YOUR INSTITUTION"

               GOTO NO

 +4       ;***** REMOVE AFTER V21 INIT *****

 +5       ;D

 +6       ;. N DIREC F DIREC=0:0 S DIREC=$O(^DI(.84,DIREC)) Q:'DIREC  Q:DIREC>10000  K ^DI(.84,DIREC,5)

 +7       ;. Q

 +8       ;*********************************

 +9        KILL ^DD(0)

           DO ^DINIT0

           DO ^DINIT11B

 +10       DO OSETC

 +11       WRITE !

           SET Y=1

           DO OS

           IF Y<0

               GOTO KL^DINIT6

 +12       WRITE !!,"Now loading other FileMan files--please wait."

           GOTO GO

 +13      ;

 +14      ;

OS         WRITE !

           SET DIC="^DD(""OS"","

           SET DIC(0)="IAQE"

           SET DIC("A")="TYPE OF MUMPS SYSTEM YOU ARE USING: "

           IF $DATA(^DD("OS"))#2

               SET (DITZS,DIC("B"))=^("OS")

               IF DITZS=7

                   SET (DITZS,DIC("B"))=18

 +1       IF '$TEST

               SET (DITZS,^DD("OS"))=100

 +2        DO ^DIC

           KILL DIC

           IF Y<0

               GOTO Q

           SET (DITZS,^DD("OS"))=+Y

 +3        IF $DATA(^%ZTSK)

               IF $DATA(^%ZOSF("OS"))#2

                   IF $DATA(^("MGR"))#2

                       Begin DoDot:1

 +4                        SET ZTRTN="OS^%RCR"

                           SET ZTUCI=^%ZOSF("MGR")

                           SET ZTDTH=$HOROLOG

                           SET ZTIO=""

                           SET ZTSAVE("DITZS")=""

 +5                        SET ZTDESC="Set Operating System"

                           DO ^%ZTLOAD

                           QUIT

                       End DoDot:1

Q          KILL DITZS,ZTSK

           QUIT

VERSION   ;

 +1        SET VERSION=$PIECE($TEXT(V),";",3)

           SET X="VA FileMan V."_VERSION

           QUIT

 +2       ;

GO         SET I=$CHAR(126)

           SET DIT=$PIECE($HOROLOG,",",2)

 +1        SET $PIECE(^DIBT(0),U,1,2)="TEMPLATE^.4I"

           SET $PIECE(^DIE(0),U,1,2)="TEMPLATE^.4I"

           SET $PIECE(^DIPT(0),U,1,2)="TEMPLATE^.4I"

           SET ^(.01,0)="CAPTIONED^"

           SET ^("F",1)="S DIC=DCC,DA=D0 D EN^DIQ"

 +2        SET ^DIPT(.02,0)="FILE SECURITY CODES^^^1"

           SET ^("F",1)=".01;L20"_I_"0;R13"_I_31_I_33_I_35_I_34_I_32_I_21_I_20

 +3        SET ^DIA(0)="AUDIT^1.1I"

 +4        KILL ^DD(.4),^(.41),^("^"),^(.403),^(.4031),^(.40315),^(.403115),^(.4032),^(.404),^(.40415),^(.4044),^(.404421),^(1.2)

 +5        KILL ^DIC(.403),^(.404),^(1.2)

 +6        KILL ^DD(.44),^(.441),^(.4411),^(.447),^(.448),^(.411),^(.42),^(.81),^DIC(.44),^(.81)

 +7        FOR I=.2,.4,.401,.402,.5,.6,.83,1.1,1.11,1.12,1.13

               KILL ^DIC(I,"%D")

 +8        KILL ^DIC(.46),^DD(.46),^(.461),^(.463)

 +9        KILL ^DIC(.11),^(.31)

           FOR I=.11,.111,.112,.114,.31,.312

               KILL ^DD(I)

 +10       FOR I=1.521,1.52101,1.5211,1.5212,1.5213,1.5214,1.5215,1.5216,1.5217,1.5218,1.5219,1.52191,1.52192

               KILL ^DIC(I),^DD(I)

 +11       GOTO ^DINIT0F0

 +12      ;

OSETC     ;BRING IN MUMPS OS, DIALOG & LANGUAGE DD AND DATA FOR FILEMAN

 +1        NEW DN,R,D,DDF,DDT,DTO,DFR,DFN,DTN,DMRG,I,Z,D0

 +2        WRITE !!,"Now loading MUMPS Operating System File"

 +3        DO ^DINIT21

           DO OSDD^DINIT24

 +4        SET ^DIC(.7,0)="MUMPS OPERATING SYSTEM^.7"

           SET ^(0,"GL")="^DD(""OS"","

           DO A^DINIT3

 +5        SET ^DIC(.7,"%D",0)="^^5^5^2940908^"

 +6        SET ^DIC(.7,"%D",1,0)="This file stores operating system-specific code.  Since the code to invoke"

 +7        SET ^DIC(.7,"%D",2,0)="some operating system utilities that FileMan uses varies among operating"

 +8        SET ^DIC(.7,"%D",3,0)="systems, code to perform these utilities is stored in and executed from"

 +9        SET ^DIC(.7,"%D",4,0)="this file.  During the FileMan INIT process an operating system is"

 +10       SET ^DIC(.7,"%D",5,0)="selected so that FileMan knows which entry to use from this file."

 +11       KILL ^DD("OS","B"),DA,DIK

           SET DA(1)=.7

           SET DIK="^DD(.7,"

           DO X^DINIT3

 +12       KILL DA,DIK

           SET DIK="^DD(""OS"","

           DO X^DINIT3

 +13       Begin DoDot:1

 +14           NEW I,DA,DIK

               FOR I=1,2,3,4,5,6,7,10,11,12,13,14,15

                   SET DA=I

                   SET DIK="^DD(""OS"","

                   DO ^DIK

 +15           QUIT

           End DoDot:1

 +16      ;

 +17       KILL ^UTILITY(U,$JOB),^UTILITY("DIK",$JOB)

           WRITE !!,"Now loading DIALOG and LANGUAGE Files"

 +18       SET DN="^DINIT"

           FOR R=1:1:39

               DO @(DN_$$B36(R))

               WRITE "."

 +19       SET $PIECE(^DIC(.84,0),U,1,2)="DIALOG^.84"

           SET $PIECE(^DI(.84,0),U,1,2)="DIALOG^.84I"

           IF $DATA(^DIC(.84,0,"GL"))

               DO A1^DINIT3

 +20       SET $PIECE(^DIC(.85,0),U,1,2)="LANGUAGE^.85"

           SET $PIECE(^DI(.85,0),U,1,2)="LANGUAGE^.85I"

           IF $DATA(^DIC(.85,0,"GL"))

               DO A1^DINIT3

 +21       FOR I=.84,.841,.842,.844,.845,.847,.8471,.85

               DO XX^DINIT3

 +22       DO DATA

 +23       QUIT

 +24      ;

DATA       WRITE "."

           SET (D,DDF(1),DDT(0))=$ORDER(^UTILITY(U,$JOB,0))

           IF D'>0

               QUIT

 +1        SET DTO=0

           SET DMRG=1

           SET DTO(0)=^(D)

           SET Z=^(D)_"0)"

           SET D0=^(D,0)

           SET @Z=D0

           SET DFR(1)="^UTILITY(U,$J,DDF(1),D0,"

           SET DKP=0

           FOR D0=0:0

               SET D0=$ORDER(^UTILITY(U,$JOB,DDF(1),D0))

               IF D0=""

                   SET D0=-1

               IF '$DATA(^(D0,0))

                   QUIT

               SET Z=^(0)

               DO I^DITR

 +2        KILL ^UTILITY(U,$JOB,DDF(1)),DDF,DDT,DTO,DFR,DFN,DTN

           GOTO DATA

 +3       ;

B36(X)     QUIT $$N1(X\(36*36)#36+1)_$$N1(X\36#36+1)_$$N1(X#36+1)

N1(%)      QUIT $EXTRACT("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)

DINIT.m