source:
WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDR2NULL.m@
775
Last change on this file since 775 was 613, checked in by , 15 years ago | |
---|---|
File size: 281 bytes |
Line | |
---|---|
1 | XDR2NULL ;SF-IRMFO,SEA/JLI - IDENTIFY ENTRIES WITH NULL SSN ; |
2 | ;;7.3;TOOLKIT;**23**;Apr 25, 1995 |
3 | ;; |
4 | ;; |
5 | EN ; |
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.