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@
1154
Last change on this file since 1154 was 613, checked in by , 15 years ago | |
---|---|
File size: 259 bytes |
Rev | Line | |
---|---|---|
[613] | 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.