LRHYUTL.m

LRHYUTL ;VA/DALOI/HOAK - UNIVERSAL UTILITY ; 13-Aug-2013 09:16 ; MKK

 ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 ;

 ; This routine is used to enhance display processes for Vista.

 ;

 ;

GRAFON ;

 D GSET^%ZISS

 QUIT

GRAFOFF ;

 W IOG0 D GKILL^%ZISS

 QUIT

SCRNON ;

 N X,Y

 D ENS^%ZISS

 QUIT

SCRNOFF ;

 N X,Y

 D KILL^%ZISS

 ;

 QUIT

LRHYUTL   ;VA/DALOI/HOAK - UNIVERSAL UTILITY ; 13-Aug-2013 09:16 ; MKK

 +1       ;;5.2;LAB SERVICE;**405,1033**;NOV 01, 1997

 +2       ;

 +3       ; This routine is used to enhance display processes for Vista.

 +4       ;

 +5       ;

GRAFON    ;

 +1        DO GSET^%ZISS

 +2        QUIT 

GRAFOFF   ;

 +1        WRITE IOG0

           DO GKILL^%ZISS

 +2        QUIT 

SCRNON    ;

 +1        NEW X,Y

 +2        DO ENS^%ZISS

 +3        QUIT 

SCRNOFF   ;

 +1        NEW X,Y

 +2        DO KILL^%ZISS

 +3       ;

 +4        QUIT