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/_ZISP.m@ 1704

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

initial load of FOIAVistA 6/30/08 version

File size: 1.1 KB
Line 
1%ZISP ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 14:41
2 ;;8.0;KERNEL;**69**;JUL 10, 1995
3 Q
4PSET D PKILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D
5 . I $P(%ZISZ,";",6)="E" S %ZISX=$G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5)))
6 . E S %ZISX=$P($G(^%ZIS(2,IOST(0),$P(%ZISZ,";",5))),"^",$P(%ZISZ,";",6))
7 . S @$P(%ZISZ,";",3)=%ZISX
8 Q
9PKILL K IOBAROFF,IOBARON,IOCLROFF,IOCLRON,IODPLXL,IODPLXS,IOITLOFF,IOITLON,IOSMPLX,IOSPROFF,IOSPRON,IOSUBOFF,IOSUBON
10 Q
11 ;The following OLDPSET entry point is no longer used.
12OLDPSET D PKILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D SETDR^%ZISS
13 D SET2^%ZISS1 G KV^%ZISS
14 Q
15Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
16IOBARON ;;IOBARON;60;BAR1;E
17IOBAROFF ;;IOBAROFF;61;BAR0;E
18IOCLRON ;;IOCLRON;67.21;CLR1;E
19IOCLROFF ;;IOCLROFF;67.22;CLR0;E
20IOSMPLX ;;IOSMPLX;1001;1001;1
21IODPLXL ;;IODPLXL;1002;1001;2
22IODPLXS ;;IODPLXS;1003;1001;3
23IOSUBON ;;IOSUBON;65;SUB1;E
24IOSUBOFF ;;IOSUBOFF;65.1;SUB0;E
25IOSPRON ;;IOSPRON;65.2;SPR1;E
26IOSPROFF ;;IOSPROFF;65.3;SPR0;E
27IOITLON ;;IOITLON;66;I1;E
28IOITLOFF ;;IOITLOFF;67;I0;E
Note: See TracBrowser for help on using the repository browser.