source:
WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XU8P314.m@
1437
Last change on this file since 1437 was 613, checked in by , 15 years ago | |
---|---|
File size: 259 bytes |
Line | |
---|---|
1 | XU8P314 ;BP-OAK/BDT - CLEAN UP BAD "CUR" X-REF; [8/19/03 9:35am] |
2 | ;;8.0;KERNEL;**314**; Jul 10, 1995 |
3 | ; |
4 | N I,J S I=0 |
5 | F S I=$O(^XUSEC(0,"CUR",I)) Q:I'>0 D |
6 | . S J=0 F S J=$O(^XUSEC(0,"CUR",I,J)) Q:'J>0 D |
7 | . . K:'$D(^XUSEC(0,J,0)) ^XUSEC(0,"CUR",I,J) |
8 | ; |
9 | Q |
Note:
See TracBrowser
for help on using the repository browser.