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

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

initial load of WorldVistAEHR

File size: 1.0 KB
Line 
1DDWH ;SFISC/MKO-SCREEN EDITOR HELP ;08:38 AM 23 Nov 1994
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4HLP ;
5 N DX,DY,DDWI
6 ;
7 D HLP^DDGLIBH(9211,9214,"DDWH",IOBM+2)
8 D BOX^DDW1
9 ;
10 S DY=IOTM-1,DX=0 X IOXY
11 F DDWI=1:1:DDWMR W $P(DDGLCLR,DDGLDEL)_$$LINE(DDWI,$G(DDWMARK))_$S(DDWI<DDWMR:$C(13,10),1:"")
12 ;
13 D:$D(DDWMARK) IND^DDW7(1)
14 Q
15 ;
16LINE(DDWI,DDWMARK) ;
17 N DDWX
18 S DDWX=$E(DDWL(DDWI),1+DDWOFS,IOM+DDWOFS)
19 Q:$G(DDWMARK)="" DDWX
20 ;
21 N DDWR1,DDWC1,DDWR2,DDWC2
22 S DDWR1=$P(DDWMARK,U,1),DDWC1=$P(DDWMARK,U,2)
23 S DDWR2=$P(DDWMARK,U,3),DDWC2=$P(DDWMARK,U,4)
24 ;
25 I DDWI'<(DDWR1-DDWA),DDWI'>(DDWR2-DDWA) D
26 . N DDWX1,DDWX2
27 . S DDWX1=$S(DDWI=(DDWR1-DDWA):DDWC1,1:1)
28 . S DDWX2=$S(DDWI=(DDWR2-DDWA):DDWC2,1:999)
29 . S DDWX=$E(DDWL(DDWI),1+DDWOFS,DDWX1-1)_$P(DDGLVID,DDGLDEL,6)_$E(DDWL(DDWI),$$MAX(DDWX1,1+DDWOFS),$$MIN(DDWX2,IOM+DDWOFS))_$P(DDGLVID,DDGLDEL,10)_$E(DDWL(DDWI),$$MAX(DDWX2+1,1+DDWOFS),IOM+DDWOFS)
30 Q DDWX
31 ;
32MIN(X,Y) ;
33 Q $S(X<Y:X,1:Y)
34 ;
35MAX(X,Y) ;
36 Q $S(X>Y:X,1:Y)
Note: See TracBrowser for help on using the repository browser.