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

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1IBTODD2 ;ALB/AAS - CLAIMS TRACKING DENIED DAYS REPORT ; 13-JUN-95
2 ;;Version 2.0 ; INTEGRATED BILLING ;**32**; 21-MAR-94
3 ;
4SUM ; -- 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)
26SUMQ ;
27 Q
28 ;
29 ;
30SUBH(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 ;
41SUBT ; -- write out sub totals, initialize variable
42 I '$G(IBSUBT) G SUBTQ
43 W !?64,"------",!,?64,$J(IBSUBT,6)
44SUBTQ S IBSUBT=0
45 Q
46 ;
47 ;
48SORT ; 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
Note: See TracBrowser for help on using the repository browser.