BARBLSUM.m

BARBLSUM ; IHS/SD/LSL - DISPLAY A BILL SUMMARY ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**19,23**;OCT 26, 2005

 ;P.OTTIS APR 2013 CONDITIONAL DISPLAY OF TXD AND MESSSAGES

 ;;

SEL ;EP

 S DIC=$$DIC^XBDIQ1(90050.01)

 S DIC(0)="AEQM"

 ; IHS/SD/PKD 10/22/10 More info on the Selection display

 S DIC("W")="D DISP^BARPUTL"

 D ^DIC

 Q:Y'>0

 S BARBLDA=+Y

 ; -------------------------------

 ;

XBLM ;

 S BARFLGRP="N"

 ;

 S Y=$$DIR^XBDIR("S^P:PRINT Output;B:BROWSE Output on Screen","Do you wish to ","P","","","",1)

 K DA

 Q:$D(DIRUT)

 I Y="B" D BROWSE G SEL

 S BARFLGRP="N"

 ;S BARFLGRP=$$GETFLGRP^BARBAD3() I BARFLGRP=U QUIT  ; ONLY ALLOW WHEN BROWSE

 S XBNS="BAR"

 S XBRP="DSP^BARBLSUM"

 S XBRX="EXIT^BARBLSUM"

 D ^XBDBQUE

 G SEL

BROWSE ;

 S BARFLGRP=""

 S BARFLGRP=$$GETFLGRP^BARBAD3() I BARFLGRP=U QUIT  ;  P.OTT

 S XBFLD("BROWSE")=1

 D VIEWR^XBLM("DSP^BARBLSUM")

 D FULL^VALM1

 W $$EN^BARVDF("IOF")

 D CLEAR^VALM1 ;clears out all list man stuff

 K XQORNEST,VALMKEY,VALM,VALMAR,VALMBCK,VALMBG,VALMCAP,VALMCNT,VALMOFF

 K VALMCON,VALMDN,VALMEVL,VALMIOXY,VALMKEY,VALMLFT,VALMLST

 K VALMMENU,VALMSGR,VALMUP,VALMWD,VALMY,XQORS,XQORSPEW,VALMCOFF

 Q

 ; *********************************************************************

 ;

DSP ;EP

 D EN^BARPST5(BARBLDA)

 I $E(IOST)="C",IOT["TRM",'$D(ZTQUEUED),$Y+20>IOSL W $$EN^BARVDF("IOF")

 W !,?15,">> SUMMARY <<",!

 K BARBL

 D SUM^BARROLL(BARBLDA)

 I $E(IOST)="C",IOT["TRM",'$D(ZTQUEUED) W $$EN^BARVDF("IOF")

 Q

 ; *********************************************************************

 ;

EXIT ;EP

 D ^%ZISC

 Q

BARBLSUM  ; IHS/SD/LSL - DISPLAY A BILL SUMMARY ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**19,23**;OCT 26, 2005

 +2       ;P.OTTIS APR 2013 CONDITIONAL DISPLAY OF TXD AND MESSSAGES

 +3       ;;

SEL       ;EP

 +1        SET DIC=$$DIC^XBDIQ1(90050.01)

 +2        SET DIC(0)="AEQM"

 +3       ; IHS/SD/PKD 10/22/10 More info on the Selection display

 +4        SET DIC("W")="D DISP^BARPUTL"

 +5        DO ^DIC

 +6        IF Y'>0

               QUIT 

 +7        SET BARBLDA=+Y

 +8       ; -------------------------------

 +9       ;

XBLM      ;

 +1        SET BARFLGRP="N"

 +2       ;

 +3        SET Y=$$DIR^XBDIR("S^P:PRINT Output;B:BROWSE Output on Screen","Do you wish to ","P","","","",1)

 +4        KILL DA

 +5        IF $DATA(DIRUT)

               QUIT 

 +6        IF Y="B"

               DO BROWSE

               GOTO SEL

 +7        SET BARFLGRP="N"

 +8       ;S BARFLGRP=$$GETFLGRP^BARBAD3() I BARFLGRP=U QUIT  ; ONLY ALLOW WHEN BROWSE

 +9        SET XBNS="BAR"

 +10       SET XBRP="DSP^BARBLSUM"

 +11       SET XBRX="EXIT^BARBLSUM"

 +12       DO ^XBDBQUE

 +13       GOTO SEL

BROWSE    ;

 +1        SET BARFLGRP=""

 +2       ;  P.OTT

           SET BARFLGRP=$$GETFLGRP^BARBAD3()

           IF BARFLGRP=U

               QUIT 

 +3        SET XBFLD("BROWSE")=1

 +4        DO VIEWR^XBLM("DSP^BARBLSUM")

 +5        DO FULL^VALM1

 +6        WRITE $$EN^BARVDF("IOF")

 +7       ;clears out all list man stuff

           DO CLEAR^VALM1

 +8        KILL XQORNEST,VALMKEY,VALM,VALMAR,VALMBCK,VALMBG,VALMCAP,VALMCNT,VALMOFF

 +9        KILL VALMCON,VALMDN,VALMEVL,VALMIOXY,VALMKEY,VALMLFT,VALMLST

 +10       KILL VALMMENU,VALMSGR,VALMUP,VALMWD,VALMY,XQORS,XQORSPEW,VALMCOFF

 +11       QUIT 

 +12      ; *********************************************************************

 +13      ;

DSP       ;EP

 +1        DO EN^BARPST5(BARBLDA)

 +2        IF $EXTRACT(IOST)="C"

               IF IOT["TRM"

                   IF '$DATA(ZTQUEUED)

                       IF $Y+20>IOSL

                           WRITE $$EN^BARVDF("IOF")

 +3        WRITE !,?15,">> SUMMARY <<",!

 +4        KILL BARBL

 +5        DO SUM^BARROLL(BARBLDA)

 +6        IF $EXTRACT(IOST)="C"

               IF IOT["TRM"

                   IF '$DATA(ZTQUEUED)

                       WRITE $$EN^BARVDF("IOF")

 +7        QUIT 

 +8       ; *********************************************************************

 +9       ;

EXIT      ;EP

 +1        DO ^%ZISC

 +2        QUIT