MCARDPAR.m

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 ---MCARDPAR   732     printed  Apr 09, 2024@21:14:30                                                                                                                                                                                                     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