Return to DIR0H.m CVS log

Up to [Coherent Logic Development] / freem_fileman

Annotation of freem_fileman/DIR0H.m, revision 1.1

1.1     ! snw         1: DIR0H  ;SFISC/MKO-HELP FOR SCREENS ;10:59 AM  22 Jul 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        S DIR0DX=DX,DIR0DY=DY
        !             5:        W $P(DDGLVID,DDGLDEL,10)_$P(DDGLCLR,DDGLDEL,2)_$P(DDGLVID,DDGLDEL)
        !             6:        D HLP^DDGLIBH(9231,9233,"DDSH",IOSL-1)
        !             7:        ;
        !             8:        I $D(DDS)#2 D
        !             9:        . D R^DDS3
        !            10:        . I $D(DDO)#2 D
        !            11:        .. I 'DDO D CMD
        !            12:        .. E  D
        !            13:        ... K DDSH
        !            14:        ... S DX=0,DY=IOSL-1 X DDXY W "COMMAND:"
        !            15:        ... S DX=IOM-35 X IOXY W $P(DDGLVID,DDGLDEL,10)_"Press <PF1>H for help"
        !            16:        E  W $P(DDGLCLR,DDGLDEL,2)
        !            17:        ;
        !            18:        S DX=IOM-8,DY=IOSL-1 X IOXY
        !            19:        W $P(DDGLVID,DDGLDEL,10)_$S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")_$S($G(DIR0("REP")):"Replace",1:"Insert ")_$P(DDGLVID,DDGLDEL,10)
        !            20:        ;
        !            21:        S DY=$P(DIR0,U,4),DX=$P(DIR0,U,5)
        !            22:        I $D(DIR("A"))=11 D
        !            23:        . S DIR0X=""
        !            24:        . F  S DIR0X=$O(DIR("A",DIR0X)) Q:DIR0X=""  D
        !            25:        .. X IOXY
        !            26:        .. W DIR("A",DIR0X)
        !            27:        .. S DY=DY+1
        !            28:        ;
        !            29:        I $D(DIR("A"))#2 D
        !            30:        . X IOXY W DIR("A")
        !            31:        . I $D(DDS),DDO,DY=IOSL-1 W $P(DDGLCLR,DDGLDEL)
        !            32:        ;
        !            33:        S DIR0X=$E(DIR0A,DIR0C-DIR0DX+DIR0S,DIR0C+DIR0F-DIR0DX-1)
        !            34:        S DX=DIR0S,DY=DIR0DY X IOXY W $S('$D(DDGLVAN):$P(DDGLVID,DDGLDEL,6),1:"")_DIR0X,$E(DIR0SP,$L(DIR0X)+1,999)
        !            35:        S DX=DIR0DX X IOXY
        !            36:        K DIR0DX,DIR0DY,DIR0X
        !            37:        Q
        !            38: CMD    ;
        !            39:        K DDH,DDQ
        !            40:        F DDH=1:1 Q:$D(DIR("?",DDH))[0  S DDH(DDH,"T")=DIR("?",DDH)
        !            41:        S:$D(DIR("?"))#2 DDH(DDH,"T")=DIR("?")
        !            42:        D LIST^DDSU
        !            43:        Q