Return to DDWH.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Restructure repository

    1: DDWH	;SFISC/MKO-SCREEN EDITOR HELP ;08:38 AM  23 Nov 1994
    2: 	;;21.0;VA FileMan;;Dec 28, 1994
    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)