XDR2NULL.m

XDR2NULL ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ; [ 04/02/2003   8:47 AM ]

 ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 ;;7.3;TOOLKIT;**23**;Apr 25, 1995

 ;;

 ;;

EN ;

 K ^TMP("XDR2NULL",$J)

 F I=0:0 S I=$O(^DPT(I)) Q:I'>0  S X=$G(^(I,0)) D

 . I X="" S ^TMP("XDR2NULL",$J,0,"BAD NODE",I)=""

 . I $P(X,U,9)="" S ^TMP("XDR2NULL",$J,I)=""

 Q

XDR2NULL  ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ; [ 04/02/2003   8:47 AM ]

 +1       ;;7.3;TOOLKIT;**1001**;APR 1, 2003

 +2       ;;7.3;TOOLKIT;**23**;Apr 25, 1995

 +3       ;;

 +4       ;;

EN        ;

 +1        KILL ^TMP("XDR2NULL",$JOB)

 +2        FOR I=0:0

               SET I=$ORDER(^DPT(I))

               IF I'>0

                   QUIT 

               SET X=$GET(^(I,0))

               Begin DoDot:1

 +3                IF X=""

                       SET ^TMP("XDR2NULL",$JOB,0,"BAD NODE",I)=""

 +4                IF $PIECE(X,U,9)=""

                       SET ^TMP("XDR2NULL",$JOB,I)=""

               End DoDot:1

 +5        QUIT