| [613] | 1 | DDSBOX(DDSUL,DDSLR) ;SFISC/MKO-DRAW A BOX ;08:17 AM 9 Apr 1993
|
|---|
| 2 | ;;22.0;VA FileMan;;Mar 30, 1999
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | D BOUNDS Q:'Y
|
|---|
| 5 | ;
|
|---|
| 6 | S DDS3L=""
|
|---|
| 7 | S $P(DDS3L,$P(DDGLGRA,DDGLDEL,3),$P(DDSLR,",",2)-$P(DDSUL,",",2))=""
|
|---|
| 8 | S DDS3M=$P(DDGLGRA,DDGLDEL,4)_$J("",$P(DDSLR,",",2)-$P(DDSUL,",",2)-1)_$P(DDGLGRA,DDGLDEL,4)
|
|---|
| 9 | ;
|
|---|
| 10 | S DY=$P(DDSUL,",")-1,DX=$P(DDSUL,",",2)-1 X IOXY
|
|---|
| 11 | W $P(DDGLGRA,DDGLDEL)_$P(DDGLGRA,DDGLDEL,5)_DDS3L_$P(DDGLGRA,DDGLDEL,6)
|
|---|
| 12 | ;
|
|---|
| 13 | F DY=$P(DDSUL,","):1:$P(DDSLR,",")-2 D
|
|---|
| 14 | . S DX=$P(DDSUL,",",2)-1 X IOXY
|
|---|
| 15 | . W DDS3M
|
|---|
| 16 | ;
|
|---|
| 17 | S DY=$P(DDSLR,",")-1,DX=$P(DDSUL,",",2)-1 X IOXY
|
|---|
| 18 | W $P(DDGLGRA,DDGLDEL,7)_DDS3L_$P(DDGLGRA,DDGLDEL,8)_$P(DDGLGRA,DDGLDEL,2)
|
|---|
| 19 | ;
|
|---|
| 20 | K DDS3L,DDS3M
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | CLEAR(DDSUL,DDSLR) ;Clear area within upper left and lower right coords
|
|---|
| 24 | N S
|
|---|
| 25 | D BOUNDS Q:'Y
|
|---|
| 26 | ;
|
|---|
| 27 | S S=$J("",$P(DDSLR,",",2)-$P(DDSUL,",",2)+1)
|
|---|
| 28 | S DX=$P(DDSUL,",",2)-1
|
|---|
| 29 | F DY=$P(DDSUL,",")-1:1:$P(DDSLR,",")-1 X IOXY W S
|
|---|
| 30 | Q
|
|---|
| 31 | ;
|
|---|
| 32 | BOUNDS ;Make sure area is within acceptable boundaries
|
|---|
| 33 | N DDSV,DDSP
|
|---|
| 34 | S Y=1
|
|---|
| 35 | I $G(DDSUL)=""!($G(DDSLR))="" S Y=0 Q
|
|---|
| 36 | ;
|
|---|
| 37 | F DDSV="DDSUL","DDSLR" D
|
|---|
| 38 | . S:$P(@DDSV,",")>DDSHBX $P(@DDSV,",")=DDSHBX
|
|---|
| 39 | . S:$P(@DDSV,",",2)>(IOM-1) $P(@DDSV,",",2)=IOM-1
|
|---|
| 40 | . F DDSP=1,2 S:$P(@DDSV,",",DDSP)<1 $P(@DDSV,",",DDSP)=1
|
|---|
| 41 | ;
|
|---|
| 42 | I $P(DDSLR,",")-$P(DDSUL,",")<2 S Y=0 Q
|
|---|
| 43 | I $P(DDSLR,",",2)-$P(DDSUL,",",2)<2 S Y=0 Q
|
|---|
| 44 | ;
|
|---|
| 45 | Q
|
|---|
