source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBOSTUS.m@ 1005

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

initial load of WorldVistAEHR

File size: 4.4 KB
Line 
1IBOSTUS ;ALB/SGD - MCCR BILL STATUS REPORT ;25 MAY 88 14:19
2 ;;2.0;INTEGRATED BILLING;**118,128,137,161,155**;21-MAR-94
3 ;
4 ;MAP TO DGCROST
5 ;
6EN I '$D(DT) D DT^DICRW
7 ;
8 S IBNOEOB=0 ;init.
9 ;
10 ; - Choose bill status, if necessary.
11 S DIR(0)="Y",DIR("A")="Do you want to print the status of ALL bills"
12 S DIR("B")="YES",DIR("?")="Choose (Y)es or (N)o" W !
13 D ^DIR K DIR I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G Q
14 I Y S IBBST="ALL" G SORT
15 ;
16 S DIR(0)="399,.13AO^^I X[""*""!(X=5) W !,*7,""THIS STATUS IS NOT USED"" K X",DIR("A")="CHOOSE BILL STATUS: " D
17 . N DA
18 . W ! D ^DIR W ! K DIR
19 I $D(DIRUT) G Q
20 S IBBST=$E(Y(0)),IBHD=Y(0)
21 ;
22MRA ; If user chose MRA Request status, check if user wants to only print Bills with No MRA Received
23 I IBBST'="R" G SORT
24 S DIR(0)="Y",DIR("A")="Print ONLY Bills with No MRA Received and No CSA Rejection messages"
25 S DIR("B")="No",DIR("?")="Enter (Y)es or (N)o"
26 S DIR("??")="^D HELP4^IBOSTUS"
27 D ^DIR K DIR I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G Q
28 S IBNOEOB=Y
29 ;
30SORT ; - Choose the date type to sort on.
31 S DIR(0)="S^1:EVENT DATE;2:BILL DATE;3:ENTERED DATE;4:MRA REQUEST DATE"
32 S DIR("A")="SORT BY",DIR("B")=1,DIR("?")="^D HELP2^IBOSTUS"
33 D ^DIR K DIR I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G Q
34 S IBDTP=$S(Y=1:"Event",Y=2:"Bill",Y=3:"Entered",Y=4:"MRA Request",1:"") Q:IBDTP=""
35DATE W ! S %DT="AEPX",%DT("A")="Start with "_IBDTP_" DATE: ",%DT(0)=-DT
36 D ^%DT G Q:Y<0 S IBBEG=Y
37DATE1 S %DT="EPX" W !,"Go to "_IBDTP_" DATE: TODAY// " R X:DTIME
38 S:X=" " X=IBBEG G Q:(X["^") S:X="" X="TODAY" D ^%DT I Y<0 G DATE1
39 S IBEND=Y I IBEND<IBBEG W *7," ??",!,"ENDING DATE must follow BEGINNING DATE." G DATE1
40 I IBEND>DT W *7," ??" G DATE1
41 ;
42PS ; - Print summary, if necessary.
43 S DIR(0)="Y",DIR("A")="Do you want to print the summary ONLY"
44 S DIR("B")="NO",DIR("?")="^D HELP3^IBOSTUS" W !
45 D ^DIR K DIR I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G Q
46 S IBSUM=+Y
47 ;
48 ; If the user wants both the detail and summary reports AND
49 ; if ClaimsManager is currently running, then ask the user if he
50 ; or she wishes to display the Comments from the ClaimsManager
51 ; file (#351.9).
52 ;
53 S IBCICOMM=0
54 I 'IBSUM,$$CK0^IBCIUT1() D I $D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DIROUT) G Q
55 . W !
56 . S DIR(0)="Y"
57 . S DIR("A")="Do you want to see ClaimsManager comments associated with these bills"
58 . S DIR("B")="NO"
59 . S DIR("?",1)=" Enter YES if you would like to see the comments which are stored in the"
60 . S DIR("?",2)=" ClaimsManager file (#351.9) for each bill on this report."
61 . S DIR("?")=" Enter NO if you do not want to see these comments."
62 . D ^DIR K DIR
63 . S IBCICOMM=+Y
64 . Q
65 ;
66 W !!,*7,"*** Margin width of this output is ",$S(IBSUM:80,1:132)," ***"
67 S %ZIS="QM" D ^%ZIS G:POP Q
68 I $D(IO("Q")) K IO("Q") D G Q
69 .S ZTRTN="DQ^IBOSTUS",ZTDESC="IB - Bill Status Report",ZTSAVE("IB*")=""
70 .D ^%ZTLOAD K ZTSK D HOME^%ZIS
71 ;
72 U IO
73 ;
74DQ ; - Tasked entry point.
75 D EN^IBOSTUS1
76 ;
77Q D ^%ZISC
78 K %,I,J,X,X1,X2,Y,Z,IBIFN,%DT,IBAPP,POP,IBPAGE,DGPGM,DGVAR,IBNEX,IBBEG
79 K IBF,IBEND,IBHD,IBL,IBBST,IBBS,IBBSBY,IBBSDT,IB0,IBS,IBRUN,IBSUM,IBU1
80 K IBDTP,IBBY,VAERR,DIRUT,DUOUT,DTOUT,DIROUT,IBCICOMM,IBNOEOB
81 Q
82 ;
83HELP2 ; - Help for Sort By prompt.
84 W !!," EVENT DATE is the date beginning the bill's episode of care"
85 W !!," BILL DATE is the date the bill was initially printed"
86 W !!," ENTERED DATE is the date the bill was first entered"
87 W !!," MRA REQUEST DATE is the date the MRA request bill was sent to Medicare"
88 Q
89 ;
90HELP3 ; - Help for Summary Only prompt.
91 W !!,"Select (Y)ES to just print the bill status summary, or (N)O"
92 W !," to print the BOTH the detail and summary reports."
93 Q
94 ;
95HELP4 ; Help for No MRA on file prompt.
96 W !,"Enter YES if you would like to see bills that are in a Request MRA status"
97 W !,"with no MRAs and no CSA rejection messages on file."
98 W !!,"Enter NO if you would like to see ALL bills that are in a Request MRA status."
99 Q
100 ;
101SUM ; - Print summary.
102 S:'IBSUM IBSUM=1 D HEAD^IBOSTUS1
103 S IBST1="RATE TYPE : ",IBST2="BILL STATUS: "
104 F I="IBST1","IBST2" N IBTOT D
105 .S IBCAT="" F S IBCAT=$O(@I@(IBCAT)) Q:IBCAT="" D
106 ..I IBCRT,($Y>(IOSL-2)) D HEAD^IBOSTUS1
107 ..S X=@I@(IBCAT,"$"),X2="2$" D COMMA^%DTC
108 ..W !,IBCAT,?18,".................... ",?42,$J(X,15),?60,$J(@I@(IBCAT,"C"),6),?67," BILLS"
109 ..S IBTOT("C")=$G(IBTOT("C"))+@I@(IBCAT,"C")
110 ..S IBTOT("$")=$G(IBTOT("$"))+@I@(IBCAT,"$")
111 .W !,?40,"-----------------",?60,"-------------"
112 .S X=$G(IBTOT("$")),X2="2$" D COMMA^%DTC
113 .W !?42,$J(X,15),?60,$J($G(IBTOT("C")),6),?67," BILLS",!
114 ;
115 Q
Note: See TracBrowser for help on using the repository browser.