- 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