| 1 | IBTODD2 ;ALB/AAS - CLAIMS TRACKING DENIED DAYS REPORT ; 13-JUN-95
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;**32**; 21-MAR-94
|
|---|
| 3 | ;
|
|---|
| 4 | SUM ; -- Print summary report
|
|---|
| 5 | Q:IBQUIT
|
|---|
| 6 | I $E(IOST,1,2)="C-",IBPAG D PAUSE^VALM1 I $D(DIRUT) S IBQUIT=1 Q
|
|---|
| 7 | I $E(IOST,1,2)="C-"!(IBPAG) W @IOF
|
|---|
| 8 | S IBPAG=IBPAG+1
|
|---|
| 9 | W !,"MCCR/UR DENIED DAYS Summary Report for Reviews Dated ",$$FMTE^XLFDT(IBBDT),$S(IBBDT'=IBEDT:" to "_$$FMTE^XLFDT(IBEDT),1:"")," "
|
|---|
| 10 | W ?(IOM-33),"Page ",IBPAG," ",IBHDT
|
|---|
| 11 | W !!,?35,"Number",?50,"Days",?65,"Amount",?80,"Days won",?100,"Maximum"
|
|---|
| 12 | W !,"Service",?35,"Denials",?50,"Denied",?65,"Denied",?80,"on Appeal",?100,"Billing Rate"
|
|---|
| 13 | W !,$TR($J(" ",IOM)," ","-")
|
|---|
| 14 | ;
|
|---|
| 15 | I $O(^TMP($J,"IBTODD",""))="" W !!,"No Denials Found in Date Range." G SUMQ
|
|---|
| 16 | ;
|
|---|
| 17 | S IBSERV="" F S IBSERV=$O(IBCNT(IBSERV)) Q:IBSERV="" D
|
|---|
| 18 | .W !,$$EXPAND^IBTRE(42.4,3,IBSERV)
|
|---|
| 19 | .W ?32,$J($P(IBCNT(IBSERV),"^",3),8)
|
|---|
| 20 | .W ?46,$J(+IBCNT(IBSERV),8)
|
|---|
| 21 | .S X=$P(IBCNT(IBSERV),"^",2),X2="0$" D COMMA^%DTC W ?60,X
|
|---|
| 22 | .W ?81,$J($P(IBCNT(IBSERV),"^",4),6)
|
|---|
| 23 | .S X=$P(IBCNT(IBSERV),"^",6),X2="0$" D COMMA^%DTC W ?95,X
|
|---|
| 24 | ;
|
|---|
| 25 | W !?48,"--------",!,?48,$J(IBTOTL,6)
|
|---|
| 26 | SUMQ ;
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | ;
|
|---|
| 30 | SUBH(Z) ; -- write sub header for report
|
|---|
| 31 | ; input z = subheader data
|
|---|
| 32 | ; requires ibsort = how report is sorted
|
|---|
| 33 | I IOSL<($Y+8) D HDR^IBTODD1 Q:IBQUIT
|
|---|
| 34 | N X S X=""
|
|---|
| 35 | Q:IBSORT="P" ; no sub header if sorting by patient
|
|---|
| 36 | I IBSORT="S" S X="Service: "_$$EXPAND^IBTRE(42.4,3,IBI)
|
|---|
| 37 | I IBSORT="A" S X="Attending: "_IBI
|
|---|
| 38 | I $L(X) W !!?15,X
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | SUBT ; -- write out sub totals, initialize variable
|
|---|
| 42 | I '$G(IBSUBT) G SUBTQ
|
|---|
| 43 | W !?64,"------",!,?64,$J(IBSUBT,6)
|
|---|
| 44 | SUBTQ S IBSUBT=0
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | ;
|
|---|
| 48 | SORT ; Ask for sort criteria.
|
|---|
| 49 | W !!
|
|---|
| 50 | S DIR(0)="SOBA^P:PATIENT;A:ATTENDING;S:SERVICE"
|
|---|
| 51 | S DIR("A")="Print Report By [P]atient [A]ttending [S]ervice: "
|
|---|
| 52 | S DIR("B")="P"
|
|---|
| 53 | S DIR("?",1)="This report may be prepared by either Patient, Attending, or Service."
|
|---|
| 54 | S DIR("?",2)=""
|
|---|
| 55 | S DIR("?",3)=""
|
|---|
| 56 | S DIR("?",4)=""
|
|---|
| 57 | S DIR("?",5)=""
|
|---|
| 58 | S DIR("?",6)=""
|
|---|
| 59 | S DIR("?",7)=""
|
|---|
| 60 | S DIR("?",8)=" "
|
|---|
| 61 | S DIR("?")=""
|
|---|
| 62 | D ^DIR K DIR
|
|---|
| 63 | S IBSORT=Y I "PAS"'[Y!($D(DIRUT)) S IBSORT=-1
|
|---|
| 64 | Q
|
|---|
