Routine: DDGF

DDGF ;SFISC/MKO-FORM BUILDING TOOL ;08:38 AM  12 Aug 1994

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 ;Program-wide variables

 ; 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

 ;            $Y1^$X1^$Y2^$X2

 ; DDGFBV   = If defined, we're in the block view page

 ; DDGFMSG  = Indicates there's a message on the message line.

 N %,%W,%X,%Y,C,D,D0,DI,DIC,DIEQ,DIW,DIZ,DQ,I,X,Y,DIOVRD

 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

 D ALL^DDGFASUB,^DDGF1,END^DDGF0

REFRESH ;Repaint all windows, status line

 D REPALL^DDGLIBW(),STATUS

STATUS ;Paint status line

 N DX,DY,N,S

 K DDGFMSG

 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)

 S N=$G(@DDGFREF@("F",+$G(DDGFPG)))

 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

 N DDGFDY,DDGFDX

 S DDGFDY=DY,DDGFDX=DX S:$D(M)[0 M=""

 S DY=IOSL-2,DX=0 X IOXY

 W $E(M,1,79)_$P(DDGLCLR,DDGLDEL)

 S:M]"" DDGFMSG=1 K:M="" DDGFMSG

 S DY=DDGFDY,DX=DDGFDX X IOXY

RESET ;Reset terminal and cleanup

 S DDGFREF="^TMP(""DDGF"",$J)",DDGLREF="^TMP(""DDGL"",$J)"

 K DDSFILE,DDSPAGE,DDSPARM,DR

 G KILL^DDGF0

DDGF      ;SFISC/MKO-FORM BUILDING TOOL ;08:38 AM  12 Aug 1994

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ;Program-wide variables

 +5       ; DDGFILE  = File number^File name

 +6       ; DDGFFM   = Form number^Form name

 +7       ; DDGFPG   = Page number

 +8       ; DDGFWID  = Window id for given page

 +9       ; DDGFWIDB = Window id for block displayer for a given page

 +10      ; DDGFREF  = Global reference where data is stored

 +11      ; DDGFLIM  = Boundaries within which cursor can be moved

 +12      ;            $Y1^$X1^$Y2^$X2

 +13      ; DDGFBV   = If defined, we're in the block view page

 +14      ; DDGFMSG  = Indicates there's a message on the message line.

 +15      ;

 +16       NEW %,%W,%X,%Y,C,D,D0,DI,DIC,DIEQ,DIW,DIZ,DQ,I,X,Y,DIOVRD

 +17       IF '$DATA(DIFM)

               NEW DIFM

               SET DIFM=1

               DO INIZE^DIEFU

 +18       DO ^DDGF0

           IF $GET(DIERR)

               GOTO END^DDGF0

 +19       DO SEL^DDGFFM

           IF $DATA(DDGFFM)[0

               GOTO END^DDGF0

 +20       DO ALL^DDGFASUB

           DO ^DDGF1

           DO END^DDGF0

 +21       QUIT

 +22      ;

REFRESH   ;Repaint all windows, status line

 +1        DO REPALL^DDGLIBW()

           DO STATUS

 +2        QUIT

 +3       ;

STATUS    ;Paint status line

 +1        NEW DX,DY,N,S

 +2        KILL DDGFMSG

 +3        SET DY=IOSL-7

           SET DX=0

           XECUTE IOXY

 +4        WRITE $PIECE(DDGLCLR,DDGLDEL,3)_$TRANSLATE($JUSTIFY("",IOM-1)," ","_")

 +5       ;

 +6        SET DY=IOSL-6

           XECUTE IOXY

 +7        WRITE "File: "_$PIECE(DDGFFILE,U,2)_" (#"_$PIECE(DDGFFILE,U)_")"

 +8        IF $DATA(DDGFBV)#2

               SET DX=46

               XECUTE IOXY

               WRITE "BLOCK VIEWER"

 +9        WRITE !,"Form: "_$PIECE(DDGFFM,U,2)

 +10       SET N=$GET(@DDGFREF@("F",+$GET(DDGFPG)))

 +11       WRITE !,"Page: "_$SELECT(N]"":$PIECE(N,U,6)_" ("_$PIECE(N,U,5)_")",1:""),!!!

 +12       IF $DATA(DDGFBV)#2

               WRITE $PIECE(DDGLVID,DDGLDEL)_"<PF1>V=Main Screen  <PF1>H=Help"_$PIECE(DDGLVID,DDGLDEL,10)

 +13      IF '$TEST

               WRITE $PIECE(DDGLVID,DDGLDEL)_"<PF1>Q=Quit  <PF1>E=Exit  <PF1>S=Save  <PF1>V=Block Viewer  <PF1>H=Help"_$PIECE(DDGLVID,DDGLDEL,10)

 +14       QUIT

 +15      ;

MSG(M)    ;Print message

 +1        NEW DDGFDY,DDGFDX

 +2        SET DDGFDY=DY

           SET DDGFDX=DX

           IF $DATA(M)[0

               SET M=""

 +3        SET DY=IOSL-2

           SET DX=0

           XECUTE IOXY

 +4       ;

 +5        WRITE $EXTRACT(M,1,79)_$PIECE(DDGLCLR,DDGLDEL)

 +6        IF M]""

               SET DDGFMSG=1

           IF M=""

               KILL DDGFMSG

 +7        SET DY=DDGFDY

           SET DX=DDGFDX

           XECUTE IOXY

 +8        QUIT

 +9       ;

RESET     ;Reset terminal and cleanup

 +1        SET DDGFREF="^TMP(""DDGF"",$J)"

           SET DDGLREF="^TMP(""DDGL"",$J)"

 +2        KILL DDSFILE,DDSPAGE,DDSPARM,DR

 +3        GOTO KILL^DDGF0

DDGF.m