Return to DDWH.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDWH.m, revision 1.1.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)