Last change
on this file since 1578 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
652 bytes
|
Line | |
---|
1 | %ZISS2 ;AC/SFISC - Collect screen parameters(Graphic set) ;11/04/97 16:28
|
---|
2 | ;;8.0;KERNEL;**69**;JUL 10, 1995
|
---|
3 | Q
|
---|
4 | SETZ D KILL F %ZISI=1:1 S %ZISZ=$T(Z+%ZISI) Q:%ZISZ="" D SETDR^%ZISS
|
---|
5 | D SET2^%ZISS1 G KV^%ZISS
|
---|
6 | Q
|
---|
7 | KILL K IOG1,IOG0,IOTLC,IOBLC,IOTRC,IOBRC,IOMT,IOTT,IOBT,IOLT,IORT,IOVL,IOHL
|
---|
8 | Q
|
---|
9 | Z ;;Variable name;Element number;Global subscript;Piece position;1=input key
|
---|
10 | IOG1 ;;IOG1;68;G1;E
|
---|
11 | IOG0 ;;IOG0;69;G0;E
|
---|
12 | IOTLC ;;IOTLC;69.11;G;1
|
---|
13 | IOBLC ;;IOBLC;69.12;G;2
|
---|
14 | IOTRC ;;IOTRC;69.13;G;3
|
---|
15 | IOBRC ;;IOBRC;69.14;G;4
|
---|
16 | IOMT ;;IOMT;69.2;G;5
|
---|
17 | IOTT ;;IOTT;69.3;G;6
|
---|
18 | IOBT ;;IOBT;69.4;G;7
|
---|
19 | IOLT ;;IOLT;69.5;G;8
|
---|
20 | IORT ;;IORT;69.6;G;9
|
---|
21 | IOVL ;;IOVL;69.7;G;10
|
---|
22 | IOHL ;;IOHL;69.8;G;11
|
---|
Note:
See
TracBrowser
for help on using the repository browser.