source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENJPARAM.m@ 1073

ENJPARAM ;(WASH ISC)/JA-Initialize Screen Variables ;5-11-92
 ;;7.0;ENGINEERING;;Aug 17, 1993
 ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
 ;DJHIN-HIGH INTENSITY
 ;DJLIN-LOW INTENSITY
 S U="^",DJRJ="" S:'$D(DUZ(0)) DUZ(0)="" S:'$D(DTIME) DTIME=600 D DT^DICRW
 S IOP="HOME" D ^%ZIS K IOP I $D(^%ZIS(2)) S IOST(0)=$O(^%ZIS(2,"B",IOST,0)) S:$D(^%ZIS(2,IOST(0),7)) DJHIN=$P(^(7),U,1),DJLIN=$P(^(7),U,2),XY="" S:$D(^(1)) (X,XY)=$P(^(1),U,5) S:$D(^(5)) DJEOP=$P(^(5),U,7)
 I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") S:^%ZOSF("OS")["DSM-" XY=X_" U $I:(0::::::256*DY+DX)" G BD
 W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
 W:'$D(DJPAR) !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
 K DJRJ Q
BD ;
 S DJCL="S DY=23,DX=0 X XY W @DJEOP"
 S DJCP="S DY=16,DX=0 X XY W @DJEOP"
 S DJRJ=1 K DJJ0
 Q