Return to DDWH.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

Annotation of freem_fileman/USER/DDWH.m, revision 1.1

1.1     ! snw         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)