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