DIIS.m

DIIS ;SFISC/GFT-DELETE THIS LINE AND SAVE AS '%ZIS' IF YOU DON'T HAVE A '%ZIS' ROUTINE ;27OCT2011

 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 ;;Per VA Directive 6402, this routine should not be modified.

 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 ;;Licensed under the terms of the Apache License, Version 2.0.

 ;

%ZIS ;

 I $D(IOP)#2 S IO=$I G PARAMS

 S IO=$I ;READ "DEVICE: ",IO ;INSERT DEVICE SELECTION HERE

PARAMS S IOM=80,IOSL=24,IOF="#",IOPAR="",POP=0,ION=$P(IO,";"),IOT="TRM"

 S IO(0)=$P,IOBS="$C(8)"

 ;

 ; DIISS uses the variable IOST to determine what to set the screen

 ; handling variables to.  (See routine DIISS.)  DIISS currently

 ; looks for values of IOST equal to C-VT220 and C-VT320.  If it

 ; equals anything else, the IO variables default to the codes for

 ; C-VT100 terminals.

 ;

 ; The variable IOXY contains the code to position the cursor at

 ; column position DX and row position DY.  Unmodified, this

 ; routine sets IOXY to the code for VT100, VT220, and VT320

 ; terminals.

 ;

 S IOST="C-VT100"

 S IOXY="W $C(27,91)_(DY+1)_$C(59)_(DX+1)_$C(72)"

 Q

 ;

 ;

 ;

REWIND(IO2,IOT,IOPAR) ;Rewind Device

 Q 0

 ;

HOME ;called from DDFIX,DDMP2,DDSCLONE,DIAR,DIARR,DIARR5,DIARX,DIFGO

 S IO=$I G PARAMS

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DIIS   1339     printed  Apr 09, 2024@21:45:12                                                                                                                                                                                                        Page 2

DIIS      ;SFISC/GFT-DELETE THIS LINE AND SAVE AS '%ZIS' IF YOU DON'T HAVE A '%ZIS' ROUTINE ;27OCT2011

 +1       ;;22.2;VA FileMan;;Jan 05, 2016;Build 42

 +2       ;;Per VA Directive 6402, this routine should not be modified.

 +3       ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.

 +4       ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.

 +5       ;;Licensed under the terms of the Apache License, Version 2.0.

 +6       ;

%ZIS      ;

 +1        IF $DATA(IOP)#2

               SET IO=$IO

               GOTO PARAMS

 +2       ;READ "DEVICE: ",IO ;INSERT DEVICE SELECTION HERE

           SET IO=$IO

PARAMS     SET IOM=80

           SET IOSL=24

           SET IOF="#"

           SET IOPAR=""

           SET POP=0

           SET ION=$PIECE(IO,";")

           SET IOT="TRM"

 +1        SET IO(0)=$PRINCIPAL

           SET IOBS="$C(8)"

 +2       ;

 +3       ; DIISS uses the variable IOST to determine what to set the screen

 +4       ; handling variables to.  (See routine DIISS.)  DIISS currently

 +5       ; looks for values of IOST equal to C-VT220 and C-VT320.  If it

 +6       ; equals anything else, the IO variables default to the codes for

 +7       ; C-VT100 terminals.

 +8       ;

 +9       ; The variable IOXY contains the code to position the cursor at

 +10      ; column position DX and row position DY.  Unmodified, this

 +11      ; routine sets IOXY to the code for VT100, VT220, and VT320

 +12      ; terminals.

 +13      ;

 +14       SET IOST="C-VT100"

 +15       SET IOXY="W $C(27,91)_(DY+1)_$C(59)_(DX+1)_$C(72)"

 +16       QUIT 

 +17      ;

 +18      ;

 +19      ;

REWIND(IO2,IOT,IOPAR) ;Rewind Device

 +1        QUIT 0

 +2       ;

HOME      ;called from DDFIX,DDMP2,DDSCLONE,DIAR,DIARR,DIARR5,DIARX,DIFGO

 +1        SET IO=$IO

           GOTO PARAMS