|
Last change
on this file since 824 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.
