%ZISS2 ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97  16:28
 ;;8.0;KERNEL;**69**;JUL 10, 1995
 Q
SETZ D KILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ=""  D SETDR^%ZISS
 D SET2^%ZISS1 G KV^%ZISS
 Q
KILL K IOG1,IOG0,IOTLC,IOBLC,IOTRC,IOBRC,IOMT,IOTT,IOBT,IOLT,IORT,IOVL,IOHL
 Q
Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
IOG1 ;;IOG1;68;G1;E
IOG0 ;;IOG0;69;G0;E
IOTLC ;;IOTLC;69.11;G;1
IOBLC ;;IOBLC;69.12;G;2
IOTRC ;;IOTRC;69.13;G;3
IOBRC ;;IOBRC;69.14;G;4
IOMT ;;IOMT;69.2;G;5
IOTT ;;IOTT;69.3;G;6
IOBT ;;IOBT;69.4;G;7
IOLT ;;IOLT;69.5;G;8
IORT ;;IORT;69.6;G;9
IOVL ;;IOVL;69.7;G;10
IOHL ;;IOHL;69.8;G;11