Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XU8P514

XU8P514.m

Go to the documentation of this file.

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

 ;;8.0;KERNEL;**514**;;Build 8

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)=""

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXU8P514   263     printed  Apr 09, 2024@21:11:40                                                                                                                                                                                                      Page 2

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

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

 +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