Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
947 bytes
|
Rev | Line | |
---|
[613] | 1 | DIIS ;SFISC/GFT-DELETE THIS LINE AND SAVE AS '%ZIS' IF YOU DON'T HAVE A '%ZIS' ROUTINE ;11:04 AM 18 Aug 1994
|
---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
| 4 | %ZIS ;
|
---|
| 5 | I $D(IOP)#2 S IO=$I G PARAMS
|
---|
| 6 | S IO=$I ;READ "DEVICE: ",IO ;INSERT DEVICE SELECTION HERE
|
---|
| 7 | PARAMS S IOM=80,IOSL=24,IOF="#",IOPAR="",POP=0,ION=$P(IO,";"),IOT="TRM"
|
---|
| 8 | ;
|
---|
| 9 | ; DIISS uses the variable IOST to determine what to set the screen
|
---|
| 10 | ; handling variables to. (See routine DIISS.) DIISS currently
|
---|
| 11 | ; looks for values of IOST equal to C-VT220 and C-VT320. If it
|
---|
| 12 | ; equals anything else, the IO variables default to the codes for
|
---|
| 13 | ; C-VT100 terminals.
|
---|
| 14 | ;
|
---|
| 15 | ; The variable IOXY contains the code to position the cursor at
|
---|
| 16 | ; column position DX and row position DY. Unmodified, this
|
---|
| 17 | ; routine sets IOXY to the code for VT100, VT220, and VT320
|
---|
| 18 | ; terminals.
|
---|
| 19 | ;
|
---|
| 20 | S IOST="C-VT100"
|
---|
| 21 | S IOXY="W $C(27,91)_(DY+1)_$C(59)_(DX+1)_$C(72)"
|
---|
| 22 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.