Return to DDWC1.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DDWC1.m, revision 1.1

1.1     ! snw         1: DDWC1  ;SFISC/MKO-CHANGE ;09:20 AM  27 Aug 1994;
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4: SETUP  ;Setup new scrolling region
        !             5:        N DDWI
        !             6:        F DDWI=$$MIN(DDWMR,DDWCNT-DDWA):-1:DDWMR-4 D
        !             7:        . S DDWSTB=DDWSTB+1,^TMP("DDW1",$J,DDWSTB)=DDWL(DDWI)
        !             8:        S IOBM=IOBM-5,DDWMR=DDWMR-5
        !             9:        W:$P(DDGLED,DDGLDEL,2)]"" @$P(DDGLED,DDGLDEL,2)
        !            10:        ;
        !            11:        ;Print dialog box
        !            12:        N DDWR0,DDWR1
        !            13:        S DDWR1=$P(DDGLVID,DDGLDEL,6),DDWR0=$P(DDGLVID,DDGLDEL,10)
        !            14:        ;
        !            15:        D CUP(DDWMR+1,1)
        !            16:        W $P(DDGLGRA,DDGLDEL)_$TR($J("",IOM)," ",$P(DDGLGRA,DDGLDEL,3))_$P(DDGLGRA,DDGLDEL,2),!
        !            17:        D CUP(DDWMR+2,1) W $P(DDGLCLR,DDGLDEL)_"   Find What:"
        !            18:        D CUP(DDWMR+3,1) W $P(DDGLCLR,DDGLDEL)_"Replace With: "_$G(DDWCHG)
        !            19:        D CUP(DDWMR+4,1) W $P(DDGLCLR,DDGLDEL)_"      Option:"_$P(DDGLCLR,DDGLDEL)_$J("",20)_DDWR1_"F"_DDWR0_"ind Next   "_DDWR1_"R"_DDWR0_"eplace   Replace "_DDWR1_"A"_DDWR0_"ll   "_DDWR1_"Q"_DDWR0_"uit"
        !            20:        D CUP(DDWMR+5,1) W $P(DDGLCLR,DDGLDEL)
        !            21:        Q
        !            22:        ;
        !            23: RESTORE        ;Restore original scrolling region
        !            24:        N DDWI
        !            25:        S IOBM=IOBM+5,DDWMR=DDWMR+5
        !            26:        W:$P(DDGLED,DDGLDEL,2)]"" @$P(DDGLED,DDGLDEL,2)
        !            27:        F DDWI=DDWMR-4:1:DDWMR D
        !            28:        . I DDWI+DDWA'>DDWCNT D
        !            29:        .. S DDWL(DDWI)=^TMP("DDW1",$J,DDWSTB),DDWSTB=DDWSTB-1
        !            30:        . E  S DDWL(DDWI)=""
        !            31:        . D CUP(DDWI,1)
        !            32:        . W $P(DDGLCLR,DDGLDEL)_$E(DDWL(DDWI),1+DDWOFS,IOM+DDWOFS)
        !            33:        .
        !            34:        D POS(DDWRW,DDWC,"RN")
        !            35:        Q
        !            36:        ;
        !            37: MIN(X,Y)       ;
        !            38:        Q $S(X<Y:X,1:Y)
        !            39:        ;
        !            40: CUP(Y,X)       ;Pos cursor
        !            41:        S DY=IOTM+Y-2,DX=X-1 X IOXY
        !            42:        Q
        !            43:        ;
        !            44: POS(R,C,F)     ;Pos cursor based on char pos C
        !            45:        N DDWX
        !            46:        S:$G(C)="E" C=$L($G(DDWL(R)))+1
        !            47:        S:$G(F)["N" DDWN=$G(DDWL(R))
        !            48:        S:$G(F)["R" DDWRW=R,DDWC=C
        !            49:        ;
        !            50:        S DDWX=C-DDWOFS
        !            51:        I DDWX>IOM!(DDWX<1) D SHIFT^DDW3(C,.DDWOFS)
        !            52:        S DY=IOTM+R-2,DX=C-DDWOFS-1 X IOXY
        !            53:        Q