XDR2NULL ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ;
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDR2NULL 291 printed Dec 13, 2024@02:38:54 Page 2
XDR2NULL ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ;
+1 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
+2 ;;
+3 ;;
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