XUINP348.m

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 ---XUINP348   525     printed  Apr 09, 2024@21:17:08                                                                                                                                                                                                     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