- 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
