DENTDPAR.m

DENTDPAR ;WASH ISC/TJK,JA-INITIATE SCREEN VARIABLES ;09/29/87  11:15 AM;12/02/91  12:20 PM

 ;;1.2;DENTAL;***15**;Oct 08, 1992

 ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN

 ;DJHIN-HIGH INTENSITY

 ;DJLIN-LOW INTENSITY

 S DJRJ="" D DT^DICRW

 ;I $D(IOST(0))#2 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)

 D HOME^%ZIS ;,^%ZIS9

 ;S DJHIN=IOSC(IOST(0),"INHI"),DJLIN=IOSC(IOST(0),"INLOW"),DJEOP=IOSC(IOST(0),"EOP"),XY=IOXY

 S X="IOEDEOP;IOINHI;IOINLOW"

 D ENDR^%ZISS S DJHIN=IOINHI,DJLIN=IOINLOW,DJEOP=IOEDEOP,XY=IOXY

 I $D(DJHIN),($D(DJLIN)),($D(DJEOP)),DJHIN'="",DJLIN'="",DJEOP'="",XY'="" S XY=XY_" "_^%ZOSF("XY") G BD

 W !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"

 W !,"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,IOSC

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DENTDPAR   992     printed  Apr 09, 2024@20:52:09                                                                                                                                                                                                     Page 2

DENTDPAR  ;WASH ISC/TJK,JA-INITIATE SCREEN VARIABLES ;09/29/87  11:15 AM;12/02/91  12:20 PM

 +1       ;;1.2;DENTAL;***15**;Oct 08, 1992

 +2       ;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN

 +3       ;DJHIN-HIGH INTENSITY

 +4       ;DJLIN-LOW INTENSITY

 +5        SET DJRJ=""

           DO DT^DICRW

 +6       ;I $D(IOST(0))#2 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)

 +7       ;,^%ZIS9

           DO HOME^%ZIS

 +8       ;S DJHIN=IOSC(IOST(0),"INHI"),DJLIN=IOSC(IOST(0),"INLOW"),DJEOP=IOSC(IOST(0),"EOP"),XY=IOXY

 +9        SET X="IOEDEOP;IOINHI;IOINLOW"

 +10       DO ENDR^%ZISS

           SET DJHIN=IOINHI

           SET DJLIN=IOINLOW

           SET DJEOP=IOEDEOP

           SET XY=IOXY

 +11       IF $DATA(DJHIN)

               IF ($DATA(DJLIN))

                   IF ($DATA(DJEOP))

                       IF DJHIN'=""

                           IF DJLIN'=""

                               IF DJEOP'=""

                                   IF XY'=""

                                       SET XY=XY_" "_^%ZOSF("XY")

                                       GOTO BD

 +12       WRITE !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"

 +13       WRITE !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7

 +14       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,IOSC

 +4        QUIT