DGBTOA5.m

DGBTOA5 ;ALB/SCK - BENEFICIARY TRAVEL OUTPUTS FRONT END/STATISTICS; 2/22/93@10:00 7/2/93

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 Q

START ;

 K DIR

 S (DGBTBG,DGBTEND)=0 W @IOF

OPT ; display report options for reports, front-end for claims reports

 W !?18,"BENEFICIARY TRAVEL REPORT OUTPUTS",!

 F II=1:1:2 W !!?18,II,".....",$P($T(OPTIONS+II),";",3)

 S DIR(0)="NO^1:2",DIR("A",1)="",DIR("A")="Enter Option",DIR("?")="Enter the desired report option number or either '^' or [RETURN] to exit" D ^DIR K DIR G:$D(DIRUT) EXIT

 IF +Y=1 D CSTATS G OPT

 IF +Y=2 D ^DGBTOA1 G OPT

 ;

EXIT ;

 K BY,DIRUT,DIS,FLDS,FR,II,L,M1,OPT,TO

 K ^TMP("BT",$J)

 K DGBTBG,DGBTEND,NOW,ACTCDE,BTCLAIM,CDATE,COUNT,CURACT,CURID,CURNAME,DEDCT,DGBTBEG,MILES,PAGE,PAY,PRVACT,TCOUNT,TDEDCT,TMILES,TPAY,DFN,VA

 Q

 ;

CSTATS ;

 I '$$RANGE Q

PRINT ;

 W !!,"This report requires 132 columns to print",!

 S %ZIS="PMQ" D ^%ZIS G PRINTQ:POP

 I $D(IO("Q")) D QUE G PRINTQ

 W ! D WAIT^DICD

 D ACCTS^DGBTOA6

 D:'$D(ZTQUEUED) ^%ZISC

PRINTQ Q

 ;

QUE ;

 N X

 S ZTRTN="ACCTS^DGBTOA6",ZTDESC="DGBT PAYABLE CLAIMS REPORT"

 F X="DGBTBG","DGBTEND","DGBTBEG" S ZTSAVE(X)=""

 D ^%ZTLOAD W:$D(ZTSK) !,"TASK #",ZTSK

 D HOME^%ZIS K IO("Q")

 Q

 ;

RANGE() ;

 N Y

 S Y=DT D DD^%DT S NOW=Y

 S DGBTBEG=$$DATE("Beginning",NOW) I DGBTBEG'>0 S Y=0 G RANGEQ

 S DGBTBG=DGBTBEG-.0001

 S DGBTEND=$$DATE("Ending",NOW) I DGBTEND'>0 S Y=0 G RANGEQ

 S DGBTEND=DGBTEND+.9999,Y=1

RANGEQ Q (Y)

 ;

DATE(STR,NDATE) ;

 N Y S Y=0

 S DIR(0)="D^:DT:EX",DIR("A")="Enter "_STR_" Search Date: ",DIR("B")=NDATE,DIR("?")="^D HELP^DGBTOA5"

 D ^DIR K DIR S:$D(DUOUT)!($D(DTOUT)) Y=-1

 Q (Y)

 ;

HELP ;

 S %DT="EX" D ^%DT Q

 ;

OPTIONS ;

 ;;Payable Claims Statistics

 ;;Standard Claims Output

DGBTOA5   ;ALB/SCK - BENEFICIARY TRAVEL OUTPUTS FRONT END/STATISTICS; 2/22/93@10:00 7/2/93

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2        QUIT 

START     ;

 +1        KILL DIR

 +2        SET (DGBTBG,DGBTEND)=0

           WRITE @IOF

OPT       ; display report options for reports, front-end for claims reports

 +1        WRITE !?18,"BENEFICIARY TRAVEL REPORT OUTPUTS",!

 +2        FOR II=1:1:2

               WRITE !!?18,II,".....",$PIECE($TEXT(OPTIONS+II),";",3)

 +3        SET DIR(0)="NO^1:2"

           SET DIR("A",1)=""

           SET DIR("A")="Enter Option"

           SET DIR("?")="Enter the desired report option number or either '^' or [RETURN] to exit"

           DO ^DIR

           KILL DIR

           IF $DATA(DIRUT)

               GOTO EXIT

 +4        IF +Y=1

               DO CSTATS

               GOTO OPT

 +5        IF +Y=2

               DO ^DGBTOA1

               GOTO OPT

 +6       ;

EXIT      ;

 +1        KILL BY,DIRUT,DIS,FLDS,FR,II,L,M1,OPT,TO

 +2        KILL ^TMP("BT",$JOB)

 +3        KILL DGBTBG,DGBTEND,NOW,ACTCDE,BTCLAIM,CDATE,COUNT,CURACT,CURID,CURNAME,DEDCT,DGBTBEG,MILES,PAGE,PAY,PRVACT,TCOUNT,TDEDCT,TMILES,TPAY,DFN,VA

 +4        QUIT 

 +5       ;

CSTATS    ;

 +1        IF '$$RANGE

               QUIT 

PRINT     ;

 +1        WRITE !!,"This report requires 132 columns to print",!

 +2        SET %ZIS="PMQ"

           DO ^%ZIS

           IF POP

               GOTO PRINTQ

 +3        IF $DATA(IO("Q"))

               DO QUE

               GOTO PRINTQ

 +4        WRITE !

           DO WAIT^DICD

 +5        DO ACCTS^DGBTOA6

 +6        IF '$DATA(ZTQUEUED)

               DO ^%ZISC

PRINTQ     QUIT 

 +1       ;

QUE       ;

 +1        NEW X

 +2        SET ZTRTN="ACCTS^DGBTOA6"

           SET ZTDESC="DGBT PAYABLE CLAIMS REPORT"

 +3        FOR X="DGBTBG","DGBTEND","DGBTBEG"

               SET ZTSAVE(X)=""

 +4        DO ^%ZTLOAD

           IF $DATA(ZTSK)

               WRITE !,"TASK #",ZTSK

 +5        DO HOME^%ZIS

           KILL IO("Q")

 +6        QUIT 

 +7       ;

RANGE()   ;

 +1        NEW Y

 +2        SET Y=DT

           DO DD^%DT

           SET NOW=Y

 +3        SET DGBTBEG=$$DATE("Beginning",NOW)

           IF DGBTBEG'>0

               SET Y=0

               GOTO RANGEQ

 +4        SET DGBTBG=DGBTBEG-.0001

 +5        SET DGBTEND=$$DATE("Ending",NOW)

           IF DGBTEND'>0

               SET Y=0

               GOTO RANGEQ

 +6        SET DGBTEND=DGBTEND+.9999

           SET Y=1

RANGEQ     QUIT (Y)

 +1       ;

DATE(STR,NDATE) ;

 +1        NEW Y

           SET Y=0

 +2        SET DIR(0)="D^:DT:EX"

           SET DIR("A")="Enter "_STR_" Search Date: "

           SET DIR("B")=NDATE

           SET DIR("?")="^D HELP^DGBTOA5"

 +3        DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)!($DATA(DTOUT))

               SET Y=-1

 +4        QUIT (Y)

 +5       ;

HELP      ;

 +1        SET %DT="EX"

           DO ^%DT

           QUIT 

 +2       ;

OPTIONS   ;

 +1       ;;Payable Claims Statistics

 +2       ;;Standard Claims Output