| [613] | 1 | IBOSTUS ;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 | ;
|
|---|
| 6 | EN 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 | ;
|
|---|
| 22 | MRA ; 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 | ;
|
|---|
| 30 | SORT ; - 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=""
|
|---|
| 35 | DATE W ! S %DT="AEPX",%DT("A")="Start with "_IBDTP_" DATE: ",%DT(0)=-DT
|
|---|
| 36 | D ^%DT G Q:Y<0 S IBBEG=Y
|
|---|
| 37 | DATE1 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 | ;
|
|---|
| 42 | PS ; - 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 | ;
|
|---|
| 74 | DQ ; - Tasked entry point.
|
|---|
| 75 | D EN^IBOSTUS1
|
|---|
| 76 | ;
|
|---|
| 77 | Q 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 | ;
|
|---|
| 83 | HELP2 ; - 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 | ;
|
|---|
| 90 | HELP3 ; - 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 | ;
|
|---|
| 95 | HELP4 ; 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 | ;
|
|---|
| 101 | SUM ; - 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
|
|---|
