DGBTOA5 ;ALB/SCK - BENEFICIARY TRAVEL OUTPUTS FRONT END/STATISTICS; 2/22/93@10:00 7/2/93
;;1.0;Beneficiary Travel;**5**;September 25, 2001
Q
START ;
N X3 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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTOA5 1775 printed Apr 09, 2024@20:45:57 Page 2
DGBTOA5 ;ALB/SCK - BENEFICIARY TRAVEL OUTPUTS FRONT END/STATISTICS; 2/22/93@10:00 7/2/93
+1 ;;1.0;Beneficiary Travel;**5**;September 25, 2001
+2 QUIT
START ;
+1 NEW X3
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
