source:
FOIAVistA/tag/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@
719
Last change on this file since 719 was 628, checked in by , 15 years ago | |
---|---|
File size: 260 bytes |
Line | |
---|---|
1 | XPDINIT5 ; ; 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 |
5 | IXF ;;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.