Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DINIT21

DINIT21.m

Go to the documentation of this file. 
  1. DINIT21 ;SFISC/GFT-INITIALIZE VA FILEMAN ;08MAR2013
  1.  ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1.  ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1.  ;;Licensed under the terms of the Apache License, Version 2.0.
  1.  ;
  1. DINITOSX G DD:'$O(^DD("OS",0)),DD:'$D(^DD("OS",19,"RM")) ; RM node introduced in 22.2; must re-install file if not there.
  1.  W !!,"Do you want to change the MUMPS OPERATING SYSTEM File? NO//" R Y:60 Q:Y["^"!("Nn"[$E(Y))!('$T)
  1.  I "Yy"'[$E(Y) W !,"Answer YES to overwrite MAXIMUM ROUTINE SIZE" G DINITOSX
  1.  ; Variable DINITOSX used in Routine DINIT6. TODO: See if we can move that logic here. VEN/SMH 3121128
  1. DD S DINITOSX=1 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
  1.  ;;0 MUMPS OPERATING SYSTEM^.7
  1.  ;;8,0 MSM^^127^5000^^1^63
  1.  ;;8,1 B X
  1.  ;;8,8 X ^DD("$O")
  1.  ;;8,18 I $D(^ (X))
  1.  ;;8,"DEL" X "ZR  ZS @X" K ^UTILITY("%RD",X)
  1.  ;;8,"EOFF" U $I:(::::1)
  1.  ;;8,"EON" U $I:(:::::1)
  1.  ;;8,"LOAD" S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"
  1.  ;;8,"NO-TYPE-AHEAD" U $I:(::::100663296)
  1.  ;;8,"RM" U:IOT["TRM" $I:X
  1.  ;;8,"RSEL" K ^UTILITY($J) G ^%RSEL
  1.  ;;8,"SDP" O @("DIO:"_DLP) F %=0:0 U DIO R % Q:$ZA=X&($ZB>Y)!($ZA>X)  U IO W:$A(%)'=12 ! W %
  1.  ;;8,"SDPEND" S X=$ZA,Y=$ZB
  1.  ;;8,"TRMOFF" U $I:(::::::::$C(13,27))
  1.  ;;8,"TRMON" U $I:(::::::::$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))
  1.  ;;8,"TRMRD" S Y=$ZB
  1.  ;;8,"TYPE-AHEAD" U $I:(::::67108864:33554432)
  1.  ;;8,"UCICHECK" S Y=$$UCICHECK^DINVMSM(X)
  1.  ;;8,"XY" S $X=IOX,$Y=IOY
  1.  ;;8,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X
  1.  ;;9,0 DTM-PC^^127^5000^^1^115
  1.  ;;9,1 B X
  1.  ;;9,8 D:$P($ZVER,"/",2)<4 ^%VARLOG X:$P($ZVER,"/",2)'<4 ^DD("$O")
  1.  ;;9,18 I $ZRSTATUS(X)'=""
  1.  ;;9,"SDP" O @("DIO:"_"(""R"":"_$P(DLP,":",2,9)) F %=0:0 U DIO R % Q:$ZIOS=3  U IO W:$A(%)'=12 ! W %
  1.  ;;9,"SDPEND" Q
  1.  ;;9,"XY" S $X=IOX,$Y=IOY
  1.  ;;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)
  1.  ;;16,0 DSM for OpenVMS^^108^5000^^1^63
  1.  ;;16,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")
  1.  ;;16,8 D DOLRO^%ZOSV
  1.  ;;16,18 I $T(^@X)]""
  1.  ;;16,"SDP" O DIO U DIO:DISCONNECT F %=0:0 U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %
  1.  ;;16,"SDPEND" W !,"#$#",! C IO
  1.  ;;16,"XY" S $X=IOX,$Y=IOY
  1.  ;;16,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X
  1.  ;;17,0 GT.M(VAX)^^250^15000^^1^250
  1.  ;;17,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")
  1.  ;;17,8 X ^DD("$O") ;D DOLRO^%ZOSV
  1.  ;;17,18 I $L($T(^@X))
  1.  ;;17,"DEL" D DEL^DINVGTM(X)
  1.  ;;17,"EOFF" U $I:(NOECHO)
  1.  ;;17,"EON" U $I:(ECHO)
  1.  ;;17,"LOAD" N %,%N S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X) Q:$L(%)=0  S @(DIF_XCNP_",0)")=%
  1.  ;;17,"NO-TYPE-AHEAD" U $I:(NOTYPEAHEAD)
  1.  ;;17,"RM" U $I:(WIDTH=$S(X<256:X,1:0):FILTER="ESCAPE")
  1.  ;;17,"RSEL" N %ZR,X K ^UTILITY($J) D ^%RSEL S X="" X "F  S X=$O(%ZR(X)) Q:X=""""  S ^UTILITY($J,X)="""""
  1.  ;;17,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %
  1.  ;;17,"SDPEND" W !,"#$#",! C IO
  1.  ;;17,"TRMOFF" U $I:(TERMINATOR="")
  1.  ;;17,"TRMON" U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))
  1.  ;;17,"TRMRD" S Y=$A($ZB)
  1.  ;;17,"TYPE-AHEAD" U $I:(TYPEAHEAD)
  1.  ;;17,"UCICHECK" S Y=1
  1.  ;;17,"XY" S $X=IOX,$Y=IOY
  1.  ;;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
  1.  ;;18,0 CACHE/OpenM^^250^20000^^1^250
  1.  ;;18,1 B X
  1.  ;;18,8 X ^DD("$O")
  1.  ;;18,18 I $T(^@X)]""
  1.  ;;18,"DEL" X "ZR  ZS @X"
  1.  ;;18,"EOFF" U $I:("":"+S")
  1.  ;;18,"EON" U $I:("":"-S")
  1.  ;;18,"HIGHESTCHAR" N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:65533,1:255))
  1.  ;;18,"LOAD" N %,%N S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"",0)"")=%"
  1.  ;;18,"NO-TYPE-AHEAD" U $I:("":"+F":$C(13,27))
  1.  ;;18,"RM" I $G(IOT)["TRM" U $I:X
  1.  ;;18,"RSEL" K ^UTILITY($J) D KERNEL^%RSET K %ST
  1.  ;;18,"SDP" C DIO O DIO F %=0:0 U DIO R % Q:%="#$#"  U IO W %
  1.  ;;18,"SDPEND" W !,"#$#",! C IO
  1.  ;;18,"TRMOFF" U $I:("":"-I-T":$C(13,27))
  1.  ;;18,"TRMON" U $I:("":"+I+T")
  1.  ;;18,"TRMRD" S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0)
  1.  ;;18,"TYPE-AHEAD" U $I:("":"-F":$C(13,27))
  1.  ;;18,"UCICHECK" X "N % S %=$P(X,"","",1),Y=0 I ##CLASS(%SYS.Namespace).Exists(%) S Y=%"
  1.  ;;18,"XY" S $Y=IOY,$X=IOX
  1.  ;;18,"ZS" ZR  X "S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""  Q:'$D(^(%Y))  ZI ^(%Y)" ZS @X
  1.  ;;19,0 GT.M(UNIX)^^250^15000^^1^250
  1.  ;;19,1 U @("$I:"_$P("NO",1,'X)_"CENABLE")
  1.  ;;19,8 X ^DD("$O") ;D DOLRO^%ZOSV
  1.  ;;19,18 I $L($T(^@X))
  1.  ;;19,"DEL" D DEL^DINVGUX(X)
  1.  ;;19,"EOFF" U $I:(NOECHO)
  1.  ;;19,"EON" U $I:(ECHO)
  1.  ;;19,"HIGHESTCHAR" N DIUTF8 S DIUTF8=$L($C(256))>0 S Y=$C($S(DIUTF8:983037,1:255))
  1.  ;;19,"LOAD" N %,%N S %N=0 F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N^@X) Q:$L(%)=0  S @(DIF_XCNP_",0)")=%
  1.  ;;19,"NO-TYPE-AHEAD" U $I:(NOTYPEAHEAD)
  1.  ;;19,"RM" U $I:(WIDTH=$S(X<256:X,1:0):FILTER="ESCAPE")
  1.  ;;19,"RSEL" K ^UTILITY($J) D ^%RSEL S X="" X "F  S X=$O(%ZR(X)) Q:X=""""  S ^UTILITY($J,X)=""""" K %ZR
  1.  ;;19,"SDP" O DIO F  U DIO R % Q:%="#$#"  U IO W:$A(%)'=12 ! W %
  1.  ;;19,"SDPEND" W !,"#$#",! C IO
  1.  ;;19,"TRMOFF" U $I:(TERMINATOR="")
  1.  ;;19,"TRMON" U $I:(TERMINATOR=$C(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127))
  1.  ;;19,"TRMRD" S Y=$A($ZB)
  1.  ;;19,"TYPE-AHEAD" U $I:(TYPEAHEAD)
  1.  ;;19,"UCICHECK" S Y=1
  1.  ;;19,"XY" S $X=IOX,$Y=IOY
  1.  ;;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 ZLINK X
  1.  ;;100,0 OTHER^^40^5000
  1.  ;;100,1 Q