Return to DDGFH.m CVS log

Up to [Coherent Logic Development] / freem_fileman / USER

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

1.1     ! snw         1: DDGFH  ;SFISC/MKO-HELP SCREENS ;09:20 AM  7 Jul 1994
        !             2:        ;;21.0;VA FileMan;;Dec 28, 1994
        !             3:        ;Per VHA Directive 10-93-142, this routine should not be modified.
        !             4:        ;
        !             5: HLP    ;Print help screens, refresh screen
        !             6:        D HLP^DDGLIBH(9251,9259,"DDGFH")
        !             7:        D REFRESH^DDGF,RC(DY,DX)
        !             8:        Q
        !             9:        ;
        !            10: RC(DDGFY,DDGFX)        ;Update status line, reset DX and DY, move cursor
        !            11:        N DDGFS
        !            12:        I DDGFR D
        !            13:        . S DY=IOSL-6,DX=IOM-9,DDGFS="R"_(DDGFY+1)_",C"_(DDGFX+1)
        !            14:        . X IOXY W DDGFS_$J("",7-$L(DDGFS))
        !            15:        S DY=DDGFY,DX=DDGFX X IOXY
        !            16:        Q