DINIT21.m

DINIT21 ;SFISC/GFT-INITIALIZE VA FILEMAN ;1SEP2010

 ;;22.0;VA FileMan;**110,160,165**;Mar 30, 1999;Build 34

 ;Per VHA Directive 2004-038, this routine should not be modified.

DINITOSX G DD:'$O(^DD("OS",0)) W !!,"Do you want to change the MUMPS OPERATING SYSTEM File? NO//" R Y:60 Q:Y["^"!("Nn"[$E(Y))!('$T)

DD F I=1:1 S X=$T(DD+I),Y=$P(X," ",3,99) Q:X?.P  S D="^DD(""OS"","_$E($P(X," ",2),3,99)_")" S @D=Y

 ;;0 MUMPS OPERATING SYSTEM^.7

 ;;8,0 MSM^^127^5000^^1^63

 ;;8,1 B X

 ;;8,"SDP" O @("DIO:"_DLP) F %=0:0 U DIO R % Q:$ZA=X&($ZB>Y)!($ZA>X)  U IO W:$A(%)'=12 ! W %

 ;;8,"SDPEND" S X=$ZA,Y=$ZB

 ;;8,"XY" S $X=IOX,$Y=IOY

 ;;8,8 X ^DD("$O")

 ;;8,18 I $D(^ (X))

 ;;8,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 ;;9,0 DTM-PC^^127^5000^^1^115

 ;;9,1 B X

 ;;9,8 D:$P($ZVER,"/",2)<4 ^%VARLOG X:$P($ZVER,"/",2)'<4 ^DD("$O")

 ;;9,18 I $ZRSTATUS(X)'=""

 ;;9,"SDP" O @("DIO:"_"(""R"":"_$P(DLP,":",2,9)) F %=0:0 U DIO R % Q:$ZIOS=3  U IO W:$A(%)'=12 ! W %

 ;;9,"SDPEND" Q

 ;;9,"XY" S $X=IOX,$Y=IOY

 ;;9,"ZS" S %X="" X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  S %X=%X_$C(10)_^(%Y)" ZS @X:$E(%X,2,999999)

 ;;16,0 DSM for OpenVMS^^108^5000^^1^63

 ;;16,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 ;;16,8 D DOLRO^%ZOSV

 ;;16,18 I $T(^@X)]""

 ;;16,"SDP" O DIO U DIO:DISCONNECT F %=0:0 U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 ;;16,"SDPEND" W !,"#$#",! C IO

 ;;16,"XY" S $X=IOX,$Y=IOY

 ;;16,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 ;;17,0 GT.M(VAX)^^250^15000^^1^250

 ;;17,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 ;;17,8 X ^DD("$O") ;D DOLRO^%ZOSV

 ;;17,18 I $L($T(^@X))

 ;;17,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 ;;17,"SDPEND" W !,"#$#",! C IO

 ;;17,"XY" S $X=IOX,$Y=IOY

 ;;17,"ZS" N %,%I,%F,%S S %I=$I,%F=$P($ZRO,",")_X_".m" O %F:(NEWVERSION) U %F X "S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="";"" W %,!" C %F U %I

 ;;18,0 CACHE/OpenM^^250^15000^^1^250

 ;;18,1 B X

 ;;18,8 X ^DD("$O")

 ;;18,18 I $T(^@X)]""

 ;;18,"SDP" C DIO O DIO F %=0:0 U DIO R % Q:%="#$#"  U IO W %

 ;;18,"SDPEND" W !,"#$#",! C IO

 ;;18,"XY" S $Y=IOY,$X=IOX

 ;;18,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 ;;19,0 GT.M(UNIX)^^250^15000^^1^250

 ;;19,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 ;;19,8 X ^DD("$O") ;D DOLRO^%ZOSV

 ;;19,18 I $L($T(^@X))

 ;;19,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 ;;19,"SDPEND" W !,"#$#",! C IO

 ;;19,"XY" S $X=IOX,$Y=IOY

 ;;19,"ZS" N %,%I,%F,%S S %I=$I,%F=$P($P($P($ZRO,")"),"(",2)," ")_"/"_X_".m" O %F:(NEWVERSION) U %F X "S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="";"" W %,!" C %F U %I X "ZLINK X"

 ;;100,0 OTHER^^40^5000

 ;;100,1 Q

DINIT21   ;SFISC/GFT-INITIALIZE VA FILEMAN ;1SEP2010

 +1       ;;22.0;VA FileMan;**110,160,165**;Mar 30, 1999;Build 34

 +2       ;Per VHA Directive 2004-038, this routine should not be modified.

DINITOSX   IF '$ORDER(^DD("OS",0))

               GOTO DD

           WRITE !!,"Do you want to change the MUMPS OPERATING SYSTEM File? NO//"

           READ Y:60

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

               QUIT 

DD         FOR I=1:1

               SET X=$TEXT(DD+I)

               SET Y=$PIECE(X," ",3,99)

               IF X?.P

                   QUIT 

               SET D="^DD(""OS"","_$EXTRACT($PIECE(X," ",2),3,99)_")"

               SET @D=Y

 +1       ;;0 MUMPS OPERATING SYSTEM^.7

 +2       ;;8,0 MSM^^127^5000^^1^63

 +3       ;;8,1 B X

 +4       ;;8,"SDP" O @("DIO:"_DLP) F %=0:0 U DIO R % Q:$ZA=X&($ZB>Y)!($ZA>X)  U IO W:$A(%)'=12 ! W %

 +5       ;;8,"SDPEND" S X=$ZA,Y=$ZB

 +6       ;;8,"XY" S $X=IOX,$Y=IOY

 +7       ;;8,8 X ^DD("$O")

 +8       ;;8,18 I $D(^ (X))

 +9       ;;8,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 +10      ;;9,0 DTM-PC^^127^5000^^1^115

 +11      ;;9,1 B X

 +12      ;;9,8 D:$P($ZVER,"/",2)<4 ^%VARLOG X:$P($ZVER,"/",2)'<4 ^DD("$O")

 +13      ;;9,18 I $ZRSTATUS(X)'=""

 +14      ;;9,"SDP" O @("DIO:"_"(""R"":"_$P(DLP,":",2,9)) F %=0:0 U DIO R % Q:$ZIOS=3  U IO W:$A(%)'=12 ! W %

 +15      ;;9,"SDPEND" Q

 +16      ;;9,"XY" S $X=IOX,$Y=IOY

 +17      ;;9,"ZS" S %X="" X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  S %X=%X_$C(10)_^(%Y)" ZS @X:$E(%X,2,999999)

 +18      ;;16,0 DSM for OpenVMS^^108^5000^^1^63

 +19      ;;16,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 +20      ;;16,8 D DOLRO^%ZOSV

 +21      ;;16,18 I $T(^@X)]""

 +22      ;;16,"SDP" O DIO U DIO:DISCONNECT F %=0:0 U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 +23      ;;16,"SDPEND" W !,"#$#",! C IO

 +24      ;;16,"XY" S $X=IOX,$Y=IOY

 +25      ;;16,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 +26      ;;17,0 GT.M(VAX)^^250^15000^^1^250

 +27      ;;17,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 +28      ;;17,8 X ^DD("$O") ;D DOLRO^%ZOSV

 +29      ;;17,18 I $L($T(^@X))

 +30      ;;17,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 +31      ;;17,"SDPEND" W !,"#$#",! C IO

 +32      ;;17,"XY" S $X=IOX,$Y=IOY

 +33      ;;17,"ZS" N %,%I,%F,%S S %I=$I,%F=$P($ZRO,",")_X_".m" O %F:(NEWVERSION) U %F X "S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="";"" W %,!" C %F U %I

 +34      ;;18,0 CACHE/OpenM^^250^15000^^1^250

 +35      ;;18,1 B X

 +36      ;;18,8 X ^DD("$O")

 +37      ;;18,18 I $T(^@X)]""

 +38      ;;18,"SDP" C DIO O DIO F %=0:0 U DIO R % Q:%="#$#"  U IO W %

 +39      ;;18,"SDPEND" W !,"#$#",! C IO

 +40      ;;18,"XY" S $Y=IOY,$X=IOX

 +41      ;;18,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X

 +42      ;;19,0 GT.M(UNIX)^^250^15000^^1^250

 +43      ;;19,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")

 +44      ;;19,8 X ^DD("$O") ;D DOLRO^%ZOSV

 +45      ;;19,18 I $L($T(^@X))

 +46      ;;19,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %

 +47      ;;19,"SDPEND" W !,"#$#",! C IO

 +48      ;;19,"XY" S $X=IOX,$Y=IOY

 +49      ;;19,"ZS" N %,%I,%F,%S S %I=$I,%F=$P($P($P($ZRO,")"),"(",2)," ")_"/"_X_".m" O %F:(NEWVERSION) U %F X "S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="";"" W %,!" C %F U %I X "ZLINK X"

 +50      ;;100,0 OTHER^^40^5000

 +51      ;;100,1 Q