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.
  1. XU8P514 ;ISF/RWF - Patch XU*8*514 post-init ;07/29/09 14:54
  1. ;;8.0;KERNEL;**514**;;Build 14
  1. Q
  1. ;
  1. POST ;See that node 3 just has 3 values to match the DD.
  1. N X
  1. S X=$G(^XTV(8989.3,1,3))
  1. I $L($P(X,U,4)),"01"'[$P(X,U,4) S $P(^XTV(8989.3,1,3),U,4,6)=""
  1. Q