source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDR2NULL.m@ 839

Last change on this file since 839 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 281 bytes
Line 
1XDR2NULL ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ;
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4 ;;
5EN ;
6 K ^TMP("XDR2NULL",$J)
7 F I=0:0 S I=$O(^DPT(I)) Q:I'>0 S X=$G(^(I,0)) D
8 . I X="" S ^TMP("XDR2NULL",$J,0,"BAD NODE",I)=""
9 . I $P(X,U,9)="" S ^TMP("XDR2NULL",$J,I)=""
10 Q
Note: See TracBrowser for help on using the repository browser.