| [613] | 1 | DDWH ;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.
|
|---|
| 4 | HLP ;
|
|---|
| 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 | ;
|
|---|
| 16 | LINE(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 | ;
|
|---|
| 32 | MIN(X,Y) ;
|
|---|
| 33 | Q $S(X<Y:X,1:Y)
|
|---|
| 34 | ;
|
|---|
| 35 | MAX(X,Y) ;
|
|---|
| 36 | Q $S(X>Y:X,1:Y)
|
|---|
