source: FOIAVistA/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XPDINIT5.m@ 1800

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

initial load of FOIAVistA 6/30/08 version
File size: 260 bytes
Line 
1XPDINIT5 ; ; 03-JUL-1995
2 ;;8.0;KERNEL;;JUL 10, 1995
3 K ^UTILITY("DIF",$J) S DIFRDIFI=1 F I=1:1:4 S ^UTILITY("DIF",$J,DIFRDIFI)=$T(IXF+I),DIFRDIFI=DIFRDIFI+1
4 Q
5IXF ;;KIDS^XPD
6 ;;9.6I;BUILD;^XPD(9.6,;0;y;y;;n;;;n
7 ;;
8 ;;9.7I;INSTALL;^XPD(9.7,;0;y;y;;n;;;n
9 ;;
Note: See TracBrowser for help on using the repository browser.