source:
WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDR2NULL.m@
703
| Last change on this file since 703 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.
