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/ZISX.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 379 bytes
Line 
1ZISX ;SF/GFT,AC - PROGRAM THAT XECUTES NODES IN ^%ZIS GLOBAL. ;1/3/90 15:08 ;
2 ;;8.0;KERNEL;;Jul 10, 1995
3X3 X ^%ZIS(2,+IOST(0),3) Q
4X31 ;X ^%ZIS(2,+IOST(0),3.1) Q ;Old code
5X10 X ^%ZIS(2,IO("S"),10) Q
6X11 X ^%ZIS(2,+IO("S"),11) K IO("S") Q
7XPCX X ^%ZIS(1,+IOS,"PCX") Q
8XPOX(X) ;Execute pre-open execute code.
9 X ^%ZIS(1,+X,"POX") Q
10%Y X %Y Q
11XS X %ZIS("S") Q
12XW X %ZIS("W") Q
Note: See TracBrowser for help on using the repository browser.