Return to DDSBOX.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DDSBOX(DDSUL,DDSLR)	;SFISC/MKO-DRAW A BOX ;08:17 AM  9 Apr 1993
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    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