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

XDR2NULL.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDR2NULL   291     printed  Apr 09, 2024@21:42: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