source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DDGFH.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 475 bytes
RevLine 
[613]1DDGFH ;SFISC/MKO-HELP SCREENS ;09:20 AM 7 Jul 1994
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5HLP ;Print help screens, refresh screen
6 D HLP^DDGLIBH(9251,9259,"DDGFH")
7 D REFRESH^DDGF,RC(DY,DX)
8 Q
9 ;
10RC(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
Note: See TracBrowser for help on using the repository browser.