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@ 1578

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

initial load of WorldVistAEHR
File size: 259 bytes
RevLine 
[613]1XU8P314 ;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.