XUINP348 ;ISF/RWF - Patch XU*8*348 POST-INIT ;12/22/2004 09:29
;;8.0;KERNEL;**348**;Jul 10, 1995
W !,"Patch XU*8*348 Post install"
Q
;
POST ;
N I,X
D F2,F3
Q
;
F2 ;Search the Terminal type file
S I=0
F S I=$O(^%ZIS(2,I)) Q:I'>0 S X=$P($G(^%ZIS(2,I,1)),U,3) I X>65500 D
. S $P(^%ZIS(2,I,1),U,3)=65500
. Q
Q
;
F3 ;Search the Device file
S I=0
F S I=$O(^%ZIS(1,I)) Q:I'>0 S X=$G(^%ZIS(1,I,91)) I $L(X) D
. S ^%ZIS(1,I,91)=$P(X,U,1)_"^^"_$S($P(X,U,3)>65500:65500,1:$P(X,U,3))
. Q
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXUINP348 525 printed Oct 16, 2024@18:10:34 Page 2
XUINP348 ;ISF/RWF - Patch XU*8*348 POST-INIT ;12/22/2004 09:29
+1 ;;8.0;KERNEL;**348**;Jul 10, 1995
+2 WRITE !,"Patch XU*8*348 Post install"
+3 QUIT
+4 ;
POST ;
+1 NEW I,X
+2 DO F2
DO F3
+3 QUIT
+4 ;
F2 ;Search the Terminal type file
+1 SET I=0
+2 FOR
SET I=$ORDER(^%ZIS(2,I))
if I'>0
QUIT
SET X=$PIECE($GET(^%ZIS(2,I,1)),U,3)
IF X>65500
Begin DoDot:1
+3 SET $PIECE(^%ZIS(2,I,1),U,3)=65500
+4 QUIT
End DoDot:1
+5 QUIT
+6 ;
F3 ;Search the Device file
+1 SET I=0
+2 FOR
SET I=$ORDER(^%ZIS(1,I))
if I'>0
QUIT
SET X=$GET(^%ZIS(1,I,91))
IF $LENGTH(X)
Begin DoDot:1
+3 SET ^%ZIS(1,I,91)=$PIECE(X,U,1)_"^^"_$SELECT($PIECE(X,U,3)>65500:65500,1:$PIECE(X,U,3))
+4 QUIT
End DoDot:1
+5 QUIT
