MCARDPAR ;WISC/TJK,JA-INITIATE SCREEN VARIABLES ;7/18/96 09:32
;;2.3;Medicine;;09/13/1996
;DJEOP-ERASE FROM CURRENT XY TO END OF SCREEN
;DJHIN-HIGH INTENSITY
;DJLIN-LOW INTENSITY
S DJRJ="" D DT^DICRW
D HOME^%ZIS ;,^%ZIS9
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,MCMASS=1 X XY W DJEOP K MCDID"
S DJRJ=1 K DJJ0,IOSC
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCARDPAR 732 printed Oct 16, 2024@18:13:20 Page 2
MCARDPAR ;WISC/TJK,JA-INITIATE SCREEN VARIABLES ;7/18/96 09:32
+1 ;;2.3;Medicine;;09/13/1996
+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 ;,^%ZIS9
DO HOME^%ZIS
+7 SET X="IOEDEOP;IOINHI;IOINLOW"
+8 DO ENDR^%ZISS
SET DJHIN=IOINHI
SET DJLIN=IOINLOW
SET DJEOP=IOEDEOP
SET XY=IOXY
+9 IF $DATA(DJHIN)
IF ($DATA(DJLIN))
IF ($DATA(DJEOP))
IF DJHIN'=""
IF DJLIN'=""
IF DJEOP'=""
IF XY'=""
SET XY=XY_" "_^%ZOSF("XY")
GOTO BD
+10 WRITE !,"'HIGH/LOW INTENSITY', 'ERASE TO END OF PAGE' OR 'XY CRT' ATTRIBUTES"
+11 WRITE !,"HAVE NOT BEEN PROPERLY DEFINED FOR YOUR TERMINAL. SEE YOUR SITE MANAGER.",*7
+12 KILL DJRJ
QUIT
BD ;
+1 SET DJCL="S DY=23,DX=0 X XY W DJEOP"
+2 SET DJCP="S DY=16,DX=0,MCMASS=1 X XY W DJEOP K MCDID"
+3 SET DJRJ=1
KILL DJJ0,IOSC
+4 QUIT
