Return to DIR02.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIR02.m, revision 1.1.1.1

1.1       snw         1: DIR02  ;SFISC/MKO-MULTILINE FIELD EDITOR ;03:40 PM  12 Oct 1994
                      2:        ;;21.0;VA FileMan;;Dec 28, 1994
                      3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
                      4: EN     ;
                      5:        N DIR0FL,DIR0LN,DIR0NC,DIR0QU
                      6:        X DDGLZOSF("EOFF"),DDGLZOSF("TRMON")
                      7:        W $S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")
                      8:        S DIR0QU=0
                      9:        ;
                     10:        D INIT,^DIR03
                     11:        W $P(DDGLVID,DDGLDEL,7)
                     12:        Q
                     13:        ;
                     14: SM     ;ScreenMan's entry point, called from ^DIR01
                     15:        N DIR0DN,DIR0FL,DIR0LN,DIR0NC,DIR0NL
                     16:        S DIR0R=IOSL-6,DIR0S=0,DIR0L=IOM-1,DIR0NL=4
                     17:        ;
                     18:        D INIT,^DIR03
                     19:        ;
                     20:        ;Restore command area
                     21:        S DY=DIR0R,DX=DIR0S X IOXY
                     22:        W $P(DDGLVID,DDGLDEL,10)_$P(DDGLCLR,DDGLDEL,3)
                     23:        ;
                     24:        S DY=IOSL-1
                     25:        I DDO D
                     26:        . S DX=0 X IOXY W "COMMAND:"
                     27:        . S DX=IOM-35 X IOXY W "Press <PF1>H for help"
                     28:        S DX=IOM-8 X IOXY
                     29:        W $S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")_$S($G(DIR0("REP")):"Replace",1:"Insert ")_$P(DDGLVID,DDGLDEL,10)
                     30:        ;
                     31:        ;Restore variables
                     32:        S (DY,DIR0R)=$P(DIR0,U),(DX,DIR0S)=$P(DIR0,U,2),DIR0L=$P(DIR0,U,3)
                     33:        S DIR0F=DIR0S+DIR0L
                     34:        S DIR0SP=$J("",DIR0L) S:$G(DDGLVAN) DIR0SP=$TR(DIR0SP," ","_")
                     35:        I DIR0A]"","^?"[$E(DIR0A) S DIR0QT=1
                     36:        ;
                     37:        ;Repaint answer
                     38:        X IOXY
                     39:        W:'$D(DDGLVAN) $P(DDGLVID,DDGLDEL,6)
                     40:        I DIR0C>DIR0L D
                     41:        . W $E(DIR0A,DIR0C-DIR0L+1,DIR0C)_$E(DIR0SP,DIR0C>$L(DIR0A))
                     42:        . S DX=DIR0F-1
                     43:        E  D
                     44:        . W $E(DIR0A,1,DIR0L)_$E(DIR0SP,$L(DIR0A)+1,999)
                     45:        . S DX=DIR0S+DIR0C-1
                     46:        X IOXY
                     47:        K DTOUT
                     48:        Q
                     49:        ;
                     50: INIT   ;Setup
                     51:        K DTOUT
                     52:        S:DIR0M<$L(DIR0A) DIR0M=$L(DIR0A)
                     53:        S DIR0SP=$J("",DIR0L) S:$G(DDSVAN) DIR0SP=$TR(DIR0SP," ","_")
                     54:        ;
                     55:        F DIR0LN=1:1:DIR0NL D
                     56:        . S DY=DIR0R+DIR0LN-1,DX=DIR0S X IOXY
                     57:        . S X=$E(DIR0A,DIR0LN-1*DIR0L+1,DIR0LN*DIR0L)
                     58:        . W X_$E(DIR0SP,$L(X)+1,999)
                     59:        ;
                     60:        S:DIR0NL*DIR0L-1<DIR0M DIR0M=DIR0NL*DIR0L-1
                     61:        S DIR0NL=DIR0M\DIR0L+1,DIR0NC=DIR0M#DIR0L
                     62:        S DIR0F=DIR0S+DIR0L-1,DIR0FL=DIR0S+DIR0NC-1
                     63:        S DIR0SV=$G(DIR0("L")),DIR0DN=0
                     64:        ;
                     65:        S:$G(DIR0C)<1 DIR0C=1
                     66:        S:DIR0C-1>DIR0M DIR0C=DIR0M+1
                     67:        S DIR0LN=DIR0C\DIR0L+1
                     68:        S DY=DIR0R+DIR0LN-1,DX=DIR0S+(DIR0C#DIR0L)-1
                     69:        X IOXY
                     70:        Q
                     71:        ;
                     72: KILL   ;Cleanup all variables
                     73:        D KILL^DDGLIB0()
                     74:        Q