DDGF ;SFISC/MKO-FORM BUILDING TOOL ;09DEC2015
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
; DDGFILE = File number^File name
; DDGFFM = Form number^Form name
; DDGFPG = Page number
; DDGFWID = Window id for given page
; DDGFWIDB = Window id for block displayer for a given page
; DDGFREF = Global reference where data is stored
; DDGFLIM = Boundaries within which cursor can be moved
; DDGFBV = If defined, we're in the block view page
; DDGFMSG = Indicates there's a message on the message line.
I '$D(DIFM) N DIFM S DIFM=1 D INIZE^DIEFU
D ^DDGF0 G:$G(DIERR) END^DDGF0
D SEL^DDGFFM G:$D(DDGFFM)[0 END^DDGF0
REFRESH ;Repaint all windows, status line
STATUS ;Paint status line
S DY=IOSL-7,DX=0 X IOXY
W $P(DDGLCLR,DDGLDEL,3)_$TR($J("",IOM-1)," ","_")
S DY=IOSL-6 X IOXY
W "File: "_$P(DDGFFILE,U,2)_" (#"_$P(DDGFFILE,U)_")"
I $D(DDGFBV)#2 S DX=46 X IOXY W "BLOCK VIEWER"
W !,"Form: "_$P(DDGFFM,U,2)_" (#"_+DDGFFM_")"
W !,"Page: "_$S(N]"":$P(N,U,6)_" ("_$P(N,U,5)_")",1:""),!!!
I $D(DDGFBV)#2 W $P(DDGLVID,DDGLDEL)_"<PF1>V=Main Screen <PF1>H=Help"_$P(DDGLVID,DDGLDEL,10)
E W $P(DDGLVID,DDGLDEL)_"<PF1>Q=Quit <PF1>E=Exit <PF1>S=Save <PF1>V=Block Viewer <PF1>H=Help"_$P(DDGLVID,DDGLDEL,10)
MSG(M) ;Print message
S DDGFDY=DY,DDGFDX=DX S:$D(M)[0 M=""
S DY=IOSL-2,DX=0 X IOXY
S:M]"" DDGFMSG=1 K:M="" DDGFMSG
S DY=DDGFDY,DX=DDGFDX X IOXY
RESET ;Reset terminal and cleanup