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 ---[H[J[2J[HDENTDPAR 992 printed Nov 22, 2024@16:56:41 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
