source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBTOUR3.m@ 1552

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

initial load of FOIAVistA 6/30/08 version

File size: 4.5 KB
Line 
1IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;**56**; 21-MAR-94
3 ;
4INS ; -- print the report
5 Q:IBQUIT
6 D HDR,MAIN
7 Q:IBQUIT
8 I $O(IBCNT(3,0)) D RNB Q:IBQUIT
9 I $D(^TMP($J,"IBTOUR1")) D ISPEC^IBTOUR Q:IBQUIT
10 I 'IBQUIT,$E(IOST,1,2)="C-" W ! D PAUSE^VALM1 Q:$D(DIRUT)
11 Q
12 ;
13HOSP Q:IBQUIT
14 D HDR,HOSPRV
15 Q:IBQUIT
16 I $D(^TMP($J,"IBTOUR2")) D HSPEC^IBTOUR Q:IBQUIT
17 I 'IBQUIT,$E(IOST,1,2)="C-" W ! D PAUSE^VALM1 Q:$D(DIRUT)
18 Q
19 ;
20MAIN ; -- print main body of report
21 W !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
22 W !?((IOM/2+6)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
23 W !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),10)
24 W !?((IOM/2+6)-34),"Total Admissions Requiring Reviews: ",$J(IBCNT(4),10)
25 W !?((IOM/2+6)-33),"Number of Scheduled Adm. Reviewed: ",$J(IBCNT(11),10)
26 ;
27 W !!?((IOM/2+6)-31),"Total Admissions with Insurance: ",$J(IBCNT(2),10)
28 W !?((IOM/2+6)-25),"Total Billable Admissions: ",$J(+$G(IBCNT(3,0)),10)
29 ;
30 I $E(IOST,1,2)="C-" W ! D PAUSE^VALM1 W:'$D(DIRUT) @IOF I $D(DIRUT) S IBQUIT=1 Q
31 ;
32 W !!?((IOM/2+6)-33),"Cases with Pre-Cert and Follow-up: ",$J(IBCNT(5),10)
33 W !?((IOM/2+6)-32),"Cases with Pre-Cert no Follow-up: ",$J(IBCNT(6),10)
34 ;
35 W !?((IOM/2+6)-22),"Number of Closed Cases: ",$J(IBCNT(7),10)
36 W !?((IOM/2+6)-31),"Number of Billable Closed Cases: ",$J(IBCNT(7,0),10)
37 W !?((IOM/2+6)-33),"Number of Unbillable Closed Cases: ",$J(IBCNT(7,1),10)
38 ;
39 W !!?((IOM/2+6)-30),"Number of New Cases Still Open: ",$J(IBCNT(8),10)
40 W !!?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(9),10)
41 W !?((IOM/2+6)-44),"Number of Previous Cases Closed and Billable: ",$J(IBCNT(9,0),10)
42 W !?((IOM/2+6)-45),"Number of Previous Cases Closed, not Billable: ",$J(IBCNT(9,1),10)
43 W !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(9,2),10)
44 ;
45 W !!?((IOM/2+6)-35),"Number of Outpatient Cases Reviewed: ",$J(IBCNT(10),10)
46 ;
47 Q
48 ;
49RNB ; -- print reasons not billable
50 D CNT(4)
51 W !!!?((IOM/2+6)-26),"Reason Not Billable Report: Reason Count"
52 W !?((IOM/2+6)-26),"--------------------------- ------------------------------"
53 S I=0 F S I=$O(IBCNT(3,I)) Q:'I D
54 .W !?((IOM/2)+9),$E($P($G(^IBE(356.8,+I,0)),"^")_" ",1,22)
55 .W ?((IOM/2)+31)," ",$J(IBCNT(3,I),6)
56 Q
57 ;
58HDR ; -- print report header
59 W:$E(IOST,1,2)["C-"!(IBPAG>0) @IOF
60 W !?((IOM-22)/2),"UR ACTIVITY SUMMARY REPORT"
61 W !?((IOM-18)/2),"for "_$S($D(IBHDRL):IBHDRL_" Reviews")
62 D SITE^IBAUTL S IBSNM=$S($D(^DIC(4,IBFAC,0)):$P(^(0),"^"),1:"")
63 W !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
64 W !!?(IOM-18/2),"From: " S Y=IBBDT D DT^DIQ
65 W !?((IOM-16)/2),"To: " S Y=IBEDT D DT^DIQ
66 W !!?(IOM-26/2),"Date Printed: ",IBHDT
67 S IBPAG=IBPAG+1 W !?(IOM-8/2),"Page: ",IBPAG
68 W !?(IOM-26/2),"--------------------------",!!
69 Q
70 ;
71CHK ; -- check task man stop flag
72 I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 D HDR W !!,"....task stopped at user request."
73 Q
74 ;
75CNT(N) ; -- see if enought room on page for list
76 Q:'$G(N)
77 S (IBC,I)=0 F S I=$O(IBCNT(N,I)) Q:'I S IBC=IBC+1
78 I IOSL<($Y+IBC+3),$E(IOST,1,2)="C-" D PAUSE^VALM1 S:$D(DIRUT) IBQUIT=1 W:'IBQUIT @IOF Q
79 I IOSL<($Y+IBC+3) D HDR
80 Q
81 ;
82HOSPRV ; -- Hospital Review Summary
83 W !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
84 W !?((IOM/2+6)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
85 W !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),10)
86 W !!?((IOM/2+6)-20),"Total Cases Reviewed: ",$J(+$G(IBCNT(40)),10)
87 W !?((IOM/2+6)-29),"Number of New Case Still Open: ",$J(IBCNT(41),10)
88 W !?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(42),10)
89 W !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(43),10)
90 ;
91 I $E(IOST,1,2)="C-" W ! D PAUSE^VALM1 W:'$D(DIRUT) @IOF I $D(DIRUT) S IBQUIT=1 Q
92 ;
93 W !!?((IOM/2+6)-25),"Total Random Sample Cases: ",$J(IBCNT(44),10)
94 W !?((IOM/2+6)-29),"Total Special Condition Cases: ",$J(+$G(IBCNT(45)),10)
95 W !?((IOM/2+6)-4),"COPD: ",$J(+$G(IBCNT(45,2)),10)
96 W !?((IOM/2+6)-4)," CVD: ",$J(+$G(IBCNT(45,3)),10)
97 W !?((IOM/2+6)-4),"TURP: ",$J(+$G(IBCNT(45,1)),10)
98 W !?((IOM/2+6)-25),"Total Locally Added Cases: ",$J(IBCNT(46),10)
99 ;
100 W !!?((IOM/2+6)-36),"Total Cases Meeting Criteria on Adm.: ",$J(+$G(IBCNT(47)),10)
101 W !,?((IOM/2+6)-37),"Total Cases Not Meeting Crit. on Adm.: ",$J(+$G(IBCNT(51)),10)
102 ;
103 W !!?((IOM/2+6)-19),"Total Days Reviewed: ",$J(+$G(IBCNT(48)),10)
104 W !?((IOM/2+6)-27),"Total Days Meeting Criteria: ",$J(IBCNT(49),10)
105 W !?((IOM/2+6)-31),"Total Days Not Meeting Criteria: ",$J(+$G(IBCNT(50)),10)
106 Q
Note: See TracBrowser for help on using the repository browser.