From af78075d727c3c90d51d86a9ed8da6b0591a35b2 Mon Sep 17 00:00:00 2001 From: Fileman Development Date: Tue, 22 Jan 2013 12:51:36 -0700 Subject: [PATCH] Fix UCICHECK for Cache --- routines/fileman/DINIT21.m | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/routines/fileman/DINIT21.m b/routines/fileman/DINIT21.m index a51ccdd..baa3dc4 100644 --- a/routines/fileman/DINIT21.m +++ b/routines/fileman/DINIT21.m @@ -1,4 +1,4 @@ -DINIT21 ;SFISC/GFT-INITIALIZE VA FILEMAN ; 30NOV2012 +DINIT21 ;SFISC/GFT-INITIALIZE VA FILEMAN ; 20JAN2013 ;;22.2T1;VA FILEMAN;;Dec 14, 2012 ;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) @@ -80,7 +80,7 @@ ;;18,"TRMON" U $I:("":"+I+T") ;;18,"TRMRD" S Y=$A($ZB),Y=$S(Y<32:Y,Y=127:Y,1:0) ;;18,"TYPE-AHEAD" U $I:("":"-F":$C(13,27)) - ;;18,"UCICHECK" X "N Y,% S %=$P(X,"","",1),Y=0 I $ZU(90,10,%) S Y=% Q Y" + ;;18,"UCICHECK" X "N % S %=$P(X,"","",1),Y=0 I $ZU(90,10,%) S Y=%" ;;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