DDSBOX.m

DDSBOX(DDSUL,DDSLR) ;SFISC/MKO-DRAW A BOX ;08:17 AM  9 Apr 1993

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 D BOUNDS Q:'Y

 ;

 S DDS3L=""

 S $P(DDS3L,$P(DDGLGRA,DDGLDEL,3),$P(DDSLR,",",2)-$P(DDSUL,",",2))=""

 S DDS3M=$P(DDGLGRA,DDGLDEL,4)_$J("",$P(DDSLR,",",2)-$P(DDSUL,",",2)-1)_$P(DDGLGRA,DDGLDEL,4)

 ;

 S DY=$P(DDSUL,",")-1,DX=$P(DDSUL,",",2)-1 X IOXY

 W $P(DDGLGRA,DDGLDEL)_$P(DDGLGRA,DDGLDEL,5)_DDS3L_$P(DDGLGRA,DDGLDEL,6)

 ;

 F DY=$P(DDSUL,","):1:$P(DDSLR,",")-2 D

 . S DX=$P(DDSUL,",",2)-1 X IOXY

 . W DDS3M

 ;

 S DY=$P(DDSLR,",")-1,DX=$P(DDSUL,",",2)-1 X IOXY

 W $P(DDGLGRA,DDGLDEL,7)_DDS3L_$P(DDGLGRA,DDGLDEL,8)_$P(DDGLGRA,DDGLDEL,2)

 ;

 K DDS3L,DDS3M

 Q

 ;

CLEAR(DDSUL,DDSLR) ;Clear area within upper left and lower right coords

 N S

 D BOUNDS Q:'Y

 ;

 S S=$J("",$P(DDSLR,",",2)-$P(DDSUL,",",2)+1)

 S DX=$P(DDSUL,",",2)-1

 F DY=$P(DDSUL,",")-1:1:$P(DDSLR,",")-1 X IOXY W S

 Q

 ;

BOUNDS ;Make sure area is within acceptable boundaries

 N DDSV,DDSP

 S Y=1

 I $G(DDSUL)=""!($G(DDSLR))="" S Y=0 Q

 ;

 F DDSV="DDSUL","DDSLR" D

 . S:$P(@DDSV,",")>DDSHBX $P(@DDSV,",")=DDSHBX

 . S:$P(@DDSV,",",2)>(IOM-1) $P(@DDSV,",",2)=IOM-1

 . F DDSP=1,2 S:$P(@DDSV,",",DDSP)<1 $P(@DDSV,",",DDSP)=1

 ;

 I $P(DDSLR,",")-$P(DDSUL,",")<2 S Y=0 Q

 I $P(DDSLR,",",2)-$P(DDSUL,",",2)<2 S Y=0 Q

 ;

 Q

DDSBOX(DDSUL,DDSLR) ;SFISC/MKO-DRAW A BOX ;08:17 AM  9 Apr 1993

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        DO BOUNDS

           IF 'Y

               QUIT 

 +4       ;

 +5        SET DDS3L=""

 +6        SET $PIECE(DDS3L,$PIECE(DDGLGRA,DDGLDEL,3),$PIECE(DDSLR,",",2)-$PIECE(DDSUL,",",2))=""

 +7        SET DDS3M=$PIECE(DDGLGRA,DDGLDEL,4)_$JUSTIFY("",$PIECE(DDSLR,",",2)-$PIECE(DDSUL,",",2)-1)_$PIECE(DDGLGRA,DDGLDEL,4)

 +8       ;

 +9        SET DY=$PIECE(DDSUL,",")-1

           SET DX=$PIECE(DDSUL,",",2)-1

           XECUTE IOXY

 +10       WRITE $PIECE(DDGLGRA,DDGLDEL)_$PIECE(DDGLGRA,DDGLDEL,5)_DDS3L_$PIECE(DDGLGRA,DDGLDEL,6)

 +11      ;

 +12       FOR DY=$PIECE(DDSUL,","):1:$PIECE(DDSLR,",")-2

               Begin DoDot:1

 +13               SET DX=$PIECE(DDSUL,",",2)-1

                   XECUTE IOXY

 +14               WRITE DDS3M

               End DoDot:1

 +15      ;

 +16       SET DY=$PIECE(DDSLR,",")-1

           SET DX=$PIECE(DDSUL,",",2)-1

           XECUTE IOXY

 +17       WRITE $PIECE(DDGLGRA,DDGLDEL,7)_DDS3L_$PIECE(DDGLGRA,DDGLDEL,8)_$PIECE(DDGLGRA,DDGLDEL,2)

 +18      ;

 +19       KILL DDS3L,DDS3M

 +20       QUIT 

 +21      ;

CLEAR(DDSUL,DDSLR) ;Clear area within upper left and lower right coords

 +1        NEW S

 +2        DO BOUNDS

           IF 'Y

               QUIT 

 +3       ;

 +4        SET S=$JUSTIFY("",$PIECE(DDSLR,",",2)-$PIECE(DDSUL,",",2)+1)

 +5        SET DX=$PIECE(DDSUL,",",2)-1

 +6        FOR DY=$PIECE(DDSUL,",")-1:1:$PIECE(DDSLR,",")-1

               XECUTE IOXY

               WRITE S

 +7        QUIT 

 +8       ;

BOUNDS    ;Make sure area is within acceptable boundaries

 +1        NEW DDSV,DDSP

 +2        SET Y=1

 +3        IF $GET(DDSUL)=""!($GET(DDSLR))=""

               SET Y=0

               QUIT 

 +4       ;

 +5        FOR DDSV="DDSUL","DDSLR"

               Begin DoDot:1

 +6                IF $PIECE(@DDSV,",")>DDSHBX

                       SET $PIECE(@DDSV,",")=DDSHBX

 +7                IF $PIECE(@DDSV,",",2)>(IOM-1)

                       SET $PIECE(@DDSV,",",2)=IOM-1

 +8                FOR DDSP=1,2

                       IF $PIECE(@DDSV,",",DDSP)<1

                           SET $PIECE(@DDSV,",",DDSP)=1

               End DoDot:1

 +9       ;

 +10       IF $PIECE(DDSLR,",")-$PIECE(DDSUL,",")<2

               SET Y=0

               QUIT 

 +11       IF $PIECE(DDSLR,",",2)-$PIECE(DDSUL,",",2)<2

               SET Y=0

               QUIT 

 +12      ;

 +13       QUIT