source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIIS.m@ 1732

Last change on this file since 1732 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 947 bytes
Line 
1DIIS ;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
7PARAMS 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.