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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENJPARAM 920 printed Dec 13, 2024@01:54:09 Page 2
ENJPARAM ;(WASH ISC)/JA-Initialize Screen Variables ;5-11-92
+1 ;;7.0;ENGINEERING;;Aug 17, 1993
+2 ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
+3 ;DJHIN-HIGH INTENSITY
+4 ;DJLIN-LOW INTENSITY
+5 SET U="^"
SET DJRJ=""
if '$DATA(DUZ(0))
SET DUZ(0)=""
if '$DATA(DTIME)
SET DTIME=600
DO DT^DICRW
+6 SET IOP="HOME"
DO ^%ZIS
KILL IOP
IF $DATA(^%ZIS(2))
SET IOST(0)=$ORDER(^%ZIS(2,"B",IOST,0))
if $DATA(^%ZIS(2,IOST(0),7))
SET DJHIN=$PIECE(^(7),U,1)
SET DJLIN=$PIECE(^(7),U,2)
SET XY=""
if $DATA(^(1))
SET (X,XY)=$PIECE(^(1),U,5)
if $DATA(^(5))
SET DJEOP=$PIECE(^(5),U,7)
+7 IF $DATA(DJHIN)
IF ($DATA(DJLIN))
IF ($DATA(DJEOP))
IF DJHIN'=""
IF DJLIN'=""
IF DJEOP'=""
IF XY'=""
SET XY=XY_" "_^%ZOSF("XY")
if ^%ZOSF("OS")["DSM-"
SET XY=X_" U $I:(0::::::256*DY+DX)"
GOTO BD
+8 WRITE !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
+9 if '$DATA(DJPAR)
WRITE !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
+10 KILL DJRJ
QUIT
BD ;
+1 SET DJCL="S DY=23,DX=0 X XY W @DJEOP"
+2 SET DJCP="S DY=16,DX=0 X XY W @DJEOP"
+3 SET DJRJ=1
KILL DJJ0
+4 QUIT
