XU8P514.m

XU8P514 ;ISF/RWF - Patch XU*8*514 post-init ;07/29/09  14:54

 ;;8.0;KERNEL;**514**;;Build 14

 Q

 ;

POST ;See that node 3 just has 3 values to match the DD.

 N X

 S X=$G(^XTV(8989.3,1,3))

 I $L($P(X,U,4)),"01"'[$P(X,U,4) S $P(^XTV(8989.3,1,3),U,4,6)=""

 Q

XU8P514   ;ISF/RWF - Patch XU*8*514 post-init ;07/29/09  14:54

 +1       ;;8.0;KERNEL;**514**;;Build 14

 +2        QUIT 

 +3       ;

POST      ;See that node 3 just has 3 values to match the DD.

 +1        NEW X

 +2        SET X=$GET(^XTV(8989.3,1,3))

 +3        IF $LENGTH($PIECE(X,U,4))

               IF "01"'[$PIECE(X,U,4)

                   SET $PIECE(^XTV(8989.3,1,3),U,4,6)=""

 +4        QUIT