| 1 | DGBTOA5 ;ALB/SCK - BENEFICIARY TRAVEL OUTPUTS FRONT END/STATISTICS; 2/22/93@10:00 7/2/93
|
|---|
| 2 | ;;1.0;Beneficiary Travel;**5**;September 25, 2001
|
|---|
| 3 | Q
|
|---|
| 4 | START ;
|
|---|
| 5 | N X3 K DIR
|
|---|
| 6 | S (DGBTBG,DGBTEND)=0 W @IOF
|
|---|
| 7 | OPT ; display report options for reports, front-end for claims reports
|
|---|
| 8 | W !?18,"BENEFICIARY TRAVEL REPORT OUTPUTS",!
|
|---|
| 9 | F II=1:1:2 W !!?18,II,".....",$P($T(OPTIONS+II),";",3)
|
|---|
| 10 | 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
|
|---|
| 11 | IF +Y=1 D CSTATS G OPT
|
|---|
| 12 | IF +Y=2 D ^DGBTOA1 G OPT
|
|---|
| 13 | ;
|
|---|
| 14 | EXIT ;
|
|---|
| 15 | K BY,DIRUT,DIS,FLDS,FR,II,L,M1,OPT,TO
|
|---|
| 16 | K ^TMP("BT",$J)
|
|---|
| 17 | K DGBTBG,DGBTEND,NOW,ACTCDE,BTCLAIM,CDATE,COUNT,CURACT,CURID,CURNAME,DEDCT,DGBTBEG,MILES,PAGE,PAY,PRVACT,TCOUNT,TDEDCT,TMILES,TPAY,DFN,VA
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | CSTATS ;
|
|---|
| 21 | I '$$RANGE Q
|
|---|
| 22 | PRINT ;
|
|---|
| 23 | W !!,"This report requires 132 columns to print",!
|
|---|
| 24 | S %ZIS="PMQ" D ^%ZIS G PRINTQ:POP
|
|---|
| 25 | I $D(IO("Q")) D QUE G PRINTQ
|
|---|
| 26 | W ! D WAIT^DICD
|
|---|
| 27 | D ACCTS^DGBTOA6
|
|---|
| 28 | D:'$D(ZTQUEUED) ^%ZISC
|
|---|
| 29 | PRINTQ Q
|
|---|
| 30 | ;
|
|---|
| 31 | QUE ;
|
|---|
| 32 | N X
|
|---|
| 33 | S ZTRTN="ACCTS^DGBTOA6",ZTDESC="DGBT PAYABLE CLAIMS REPORT"
|
|---|
| 34 | F X="DGBTBG","DGBTEND","DGBTBEG" S ZTSAVE(X)=""
|
|---|
| 35 | D ^%ZTLOAD W:$D(ZTSK) !,"TASK #",ZTSK
|
|---|
| 36 | D HOME^%ZIS K IO("Q")
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | RANGE() ;
|
|---|
| 40 | N Y
|
|---|
| 41 | S Y=DT D DD^%DT S NOW=Y
|
|---|
| 42 | S DGBTBEG=$$DATE("Beginning",NOW) I DGBTBEG'>0 S Y=0 G RANGEQ
|
|---|
| 43 | S DGBTBG=DGBTBEG-.0001
|
|---|
| 44 | S DGBTEND=$$DATE("Ending",NOW) I DGBTEND'>0 S Y=0 G RANGEQ
|
|---|
| 45 | S DGBTEND=DGBTEND+.9999,Y=1
|
|---|
| 46 | RANGEQ Q (Y)
|
|---|
| 47 | ;
|
|---|
| 48 | DATE(STR,NDATE) ;
|
|---|
| 49 | N Y S Y=0
|
|---|
| 50 | S DIR(0)="D^:DT:EX",DIR("A")="Enter "_STR_" Search Date: ",DIR("B")=NDATE,DIR("?")="^D HELP^DGBTOA5"
|
|---|
| 51 | D ^DIR K DIR S:$D(DUOUT)!($D(DTOUT)) Y=-1
|
|---|
| 52 | Q (Y)
|
|---|
| 53 | ;
|
|---|
| 54 | HELP ;
|
|---|
| 55 | S %DT="EX" D ^%DT Q
|
|---|
| 56 | ;
|
|---|
| 57 | OPTIONS ;
|
|---|
| 58 | ;;Payable Claims Statistics
|
|---|
| 59 | ;;Standard Claims Output
|
|---|
