Routine: ENJPARAM

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENJPARAM   920     printed  Feb 18, 2025@23:20:33                                                                                                                                                                                                     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

ENJPARAM.m