| 1 | %ZISP ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 14:41
|
|---|
| 2 | ;;8.0;KERNEL;**69**;JUL 10, 1995
|
|---|
| 3 | Q
|
|---|
| 4 | PSET 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
|
|---|
| 9 | PKILL 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.
|
|---|
| 12 | OLDPSET 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
|
|---|
| 15 | Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
|
|---|
| 16 | IOBARON ;;IOBARON;60;BAR1;E
|
|---|
| 17 | IOBAROFF ;;IOBAROFF;61;BAR0;E
|
|---|
| 18 | IOCLRON ;;IOCLRON;67.21;CLR1;E
|
|---|
| 19 | IOCLROFF ;;IOCLROFF;67.22;CLR0;E
|
|---|
| 20 | IOSMPLX ;;IOSMPLX;1001;1001;1
|
|---|
| 21 | IODPLXL ;;IODPLXL;1002;1001;2
|
|---|
| 22 | IODPLXS ;;IODPLXS;1003;1001;3
|
|---|
| 23 | IOSUBON ;;IOSUBON;65;SUB1;E
|
|---|
| 24 | IOSUBOFF ;;IOSUBOFF;65.1;SUB0;E
|
|---|
| 25 | IOSPRON ;;IOSPRON;65.2;SPR1;E
|
|---|
| 26 | IOSPROFF ;;IOSPROFF;65.3;SPR0;E
|
|---|
| 27 | IOITLON ;;IOITLON;66;I1;E
|
|---|
| 28 | IOITLOFF ;;IOITLOFF;67;I0;E
|
|---|
