ZISS2.m

%ZISS2 ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97  16:28 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 ;;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

%ZISS2    ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97  16:28 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1005,1007**;APR 1, 2003 

 +2       ;;8.0;KERNEL;**69**;JUL 10, 1995

 +3        QUIT 

SETZ       DO KILL

           FOR %ZISI=1:1

               SET %ZISZ=$TEXT(Z+%ZISI)

               IF %ZISZ=""

                   QUIT 

               DO SETDR^%ZISS

 +1        DO SET2^%ZISS1

           GOTO KV^%ZISS

 +2        QUIT 

KILL       KILL IOG1,IOG0,IOTLC,IOBLC,IOTRC,IOBRC,IOMT,IOTT,IOBT,IOLT,IORT,IOVL,IOHL

 +1        QUIT 

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