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