source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDSBOX.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1DDSBOX(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 ;
23CLEAR(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 ;
32BOUNDS ;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
Note: See TracBrowser for help on using the repository browser.