Fix UCICHECK for Cache

dlwicksell · Jan 22, 2013 · af78075 · af78075
1 parent 725b6e0
commit af78075
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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