- 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 Feb 19, 2025@00:05:21 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