source: WorldVistAEHR/trunk/r/BENEFICIARY_TRAVEL-DGBT/DGBTOA5.m@ 623

Last change on this file since 623 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1DGBTOA5 ;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
4START ;
5 N X3 K DIR
6 S (DGBTBG,DGBTEND)=0 W @IOF
7OPT ; 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 ;
14EXIT ;
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 ;
20CSTATS ;
21 I '$$RANGE Q
22PRINT ;
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
29PRINTQ Q
30 ;
31QUE ;
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 ;
39RANGE() ;
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
46RANGEQ Q (Y)
47 ;
48DATE(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 ;
54HELP ;
55 S %DT="EX" D ^%DT Q
56 ;
57OPTIONS ;
58 ;;Payable Claims Statistics
59 ;;Standard Claims Output
Note: See TracBrowser for help on using the repository browser.