- IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93
- ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- ;
- INS ; -- print the report
- Q:IBQUIT
- D HDR,MAIN
- Q:IBQUIT
- I $O(IBCNT(3,0)) D RNB Q:IBQUIT
- I $D(^TMP($J,"IBTOUR1")) D ISPEC^IBTOUR Q:IBQUIT
- I 'IBQUIT,IBSORT="I",$E(IOST,1,2)="C-" W ! D PAUSE^VALM1 Q:$D(DIRUT)
- Q
- ;
- HOSP Q:IBQUIT
- D HDR,HOSPRV
- Q:IBQUIT
- I $D(^TMP($J,"IBTOUR2")) D HSPEC^IBTOUR Q:IBQUIT
- I 'IBQUIT,$E(IOST,1,2)="C-" W ! D PAUSE^VALM1 Q:$D(DIRUT)
- Q
- ;
- MAIN ; -- print main body of report
- W !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
- W !?((IOM/2+6)-34),"Total Admissions Requiring Reviews: ",$J(IBCNT(4),10)
- W !?((IOM/2+6)-33),"Number of Scheduled Adm. Reviewed: ",$J(IBCNT(11),10)
- ;
- W !!?((IOM/2+6)-31),"Total Admissions with Insurance: ",$J(IBCNT(2),10)
- W !?((IOM/2+6)-25),"Total Billable Admissions: ",$J(+$G(IBCNT(3,0)),10)
- ;
- W !!?((IOM/2+6)-33),"Cases with Pre-Cert and Follow-up: ",$J(IBCNT(5),10)
- W !?((IOM/2+6)-32),"Cases with Pre-Cert no Follow-up: ",$J(IBCNT(6),10)
- ;
- I $E(IOST,1,2)="C-" W ! D PAUSE^VALM1 W:'$D(DIRUT) @IOF I $D(DIRUT) S IBQUIT=1 Q
- ;
- W !?((IOM/2+6)-22),"Number of Closed Cases: ",$J(IBCNT(7),10)
- W !?((IOM/2+6)-31),"Number of Billable Closed Cases: ",$J(IBCNT(7,0),10)
- W !?((IOM/2+6)-33),"Number of Unbillable Closed Cases: ",$J(IBCNT(7,1),10)
- ;
- W !!?((IOM/2+6)-30),"Number of New Cases Still Open: ",$J(IBCNT(8),10)
- W !!?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(9),10)
- W !?((IOM/2+6)-44),"Number of Previous Cases Closed and Billable: ",$J(IBCNT(9,0),10)
- W !?((IOM/2+6)-45),"Number of Previous Cases Closed, not Billable: ",$J(IBCNT(9,1),10)
- W !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(9,2),10)
- ;
- W !!?((IOM/2+6)-35),"Number of Outpatient Cases Reviewed: ",$J(IBCNT(10),10)
- ;
- Q
- ;
- RNB ; -- print reasons not billable
- D CNT(4)
- W !!!?((IOM/2+6)-26),"Reason Not Billable Report: Reason Count"
- W !?((IOM/2+6)-26),"--------------------------- ------------------------------"
- S I=0 F S I=$O(IBCNT(3,I)) Q:'I D
- .W !?((IOM/2)+9),$E($P($G(^IBE(356.8,+I,0)),"^")_" ",1,22)
- .W ?((IOM/2)+31)," ",$J(IBCNT(3,I),6)
- Q
- ;
- HDR ; -- print report header
- W:$E(IOST,1,2)["C-"!(IBPAG>0) @IOF
- W !?((IOM-22)/2),"UR ACTIVITY SUMMARY REPORT"
- W !?((IOM-18)/2),"for "_$S($D(IBHDRL):IBHDRL_" Reviews")
- D SITE^IBAUTL S IBSNM=$S($D(^DIC(4,IBFAC,0)):$P(^(0),"^"),1:"")
- W !?((IOM-($L(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
- W !!?(IOM-18/2),"From: " S Y=IBBDT D DT^DIQ
- W !?((IOM-16)/2),"To: " S Y=IBEDT D DT^DIQ
- W !!?(IOM-26/2),"Date Printed: ",IBHDT
- S IBPAG=IBPAG+1 W !?(IOM-8/2),"Page: ",IBPAG
- W !?(IOM-26/2),"--------------------------",!!
- Q
- ;
- CHK ; -- check task man stop flag
- I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1 D HDR W !!,"....task stopped at user request."
- Q
- ;
- CNT(N) ; -- see if enought room on page for list
- Q:'$G(N)
- S (IBC,I)=0 F S I=$O(IBCNT(N,I)) Q:'I S IBC=IBC+1
- I IOSL<($Y+IBC+3),$E(IOST,1,2)="C-" D PAUSE^VALM1 S:$D(DIRUT) IBQUIT=1 W:'IBQUIT @IOF Q
- I IOSL<($Y+IBC+3) D HDR
- Q
- ;
- HOSPRV ; -- Hospital Review Summary
- W !?((IOM/2+6)-16),"Total Admissions: ",$J(IBCNT(1),10)
- W !!?((IOM/2+6)-20),"Total Cases Reviewed: ",$J(+$G(IBCNT(40)),10)
- W !?((IOM/2+6)-29),"Number of New Case Still Open: ",$J(IBCNT(41),10)
- W !?((IOM/2+6)-24),"Number of Previous Cases: ",$J(IBCNT(42),10)
- W !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$J(IBCNT(43),10)
- ;
- W !!?((IOM/2+6)-25),"Total Random Sample Cases: ",$J(IBCNT(44),10)
- W !?((IOM/2+6)-29),"Total Special Condition Cases: ",$J(+$G(IBCNT(45)),10)
- W !?((IOM/2+6)-4),"COPD: ",$J(+$G(IBCNT(45,2)),10)
- W !?((IOM/2+6)-4)," CVD: ",$J(+$G(IBCNT(45,3)),10)
- W !?((IOM/2+6)-4),"TURP: ",$J(+$G(IBCNT(45,1)),10)
- W !?((IOM/2+6)-25),"Total Locally Added Cases: ",$J(IBCNT(46),10)
- ;
- I $E(IOST,1,2)="C-" W ! D PAUSE^VALM1 W:'$D(DIRUT) @IOF I $D(DIRUT) S IBQUIT=1 Q
- ;
- W !!?((IOM/2+6)-36),"Total Cases Meeting Criteria on Adm.: ",$J(+$G(IBCNT(47)),10)
- W !,?((IOM/2+6)-37),"Total Cases Not Meeting Crit. on Adm.: ",$J(+$G(IBCNT(51)),10)
- ;
- W !!?((IOM/2+6)-19),"Total Days Reviewed: ",$J(+$G(IBCNT(48)),10)
- W !?((IOM/2+6)-27),"Total Days Meeting Criteria: ",$J(IBCNT(49),10)
- W !?((IOM/2+6)-31),"Total Days Not Meeting Criteria: ",$J(+$G(IBCNT(50)),10)
- Q
- IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93
- +1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
- +2 ;
- INS ; -- print the report
- +1 IF IBQUIT
- QUIT
- +2 DO HDR
- DO MAIN
- +3 IF IBQUIT
- QUIT
- +4 IF $ORDER(IBCNT(3,0))
- DO RNB
- IF IBQUIT
- QUIT
- +5 IF $DATA(^TMP($JOB,"IBTOUR1"))
- DO ISPEC^IBTOUR
- IF IBQUIT
- QUIT
- +6 IF 'IBQUIT
- IF IBSORT="I"
- IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- DO PAUSE^VALM1
- IF $DATA(DIRUT)
- QUIT
- +7 QUIT
- +8 ;
- HOSP IF IBQUIT
- QUIT
- +1 DO HDR
- DO HOSPRV
- +2 IF IBQUIT
- QUIT
- +3 IF $DATA(^TMP($JOB,"IBTOUR2"))
- DO HSPEC^IBTOUR
- IF IBQUIT
- QUIT
- +4 IF 'IBQUIT
- IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- DO PAUSE^VALM1
- IF $DATA(DIRUT)
- QUIT
- +5 QUIT
- +6 ;
- MAIN ; -- print main body of report
- +1 WRITE !?((IOM/2+6)-16),"Total Admissions: ",$JUSTIFY(IBCNT(1),10)
- +2 WRITE !?((IOM/2+6)-34),"Total Admissions Requiring Reviews: ",$JUSTIFY(IBCNT(4),10)
- +3 WRITE !?((IOM/2+6)-33),"Number of Scheduled Adm. Reviewed: ",$JUSTIFY(IBCNT(11),10)
- +4 ;
- +5 WRITE !!?((IOM/2+6)-31),"Total Admissions with Insurance: ",$JUSTIFY(IBCNT(2),10)
- +6 WRITE !?((IOM/2+6)-25),"Total Billable Admissions: ",$JUSTIFY(+$GET(IBCNT(3,0)),10)
- +7 ;
- +8 WRITE !!?((IOM/2+6)-33),"Cases with Pre-Cert and Follow-up: ",$JUSTIFY(IBCNT(5),10)
- +9 WRITE !?((IOM/2+6)-32),"Cases with Pre-Cert no Follow-up: ",$JUSTIFY(IBCNT(6),10)
- +10 ;
- +11 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- DO PAUSE^VALM1
- IF '$DATA(DIRUT)
- WRITE @IOF
- IF $DATA(DIRUT)
- SET IBQUIT=1
- QUIT
- +12 ;
- +13 WRITE !?((IOM/2+6)-22),"Number of Closed Cases: ",$JUSTIFY(IBCNT(7),10)
- +14 WRITE !?((IOM/2+6)-31),"Number of Billable Closed Cases: ",$JUSTIFY(IBCNT(7,0),10)
- +15 WRITE !?((IOM/2+6)-33),"Number of Unbillable Closed Cases: ",$JUSTIFY(IBCNT(7,1),10)
- +16 ;
- +17 WRITE !!?((IOM/2+6)-30),"Number of New Cases Still Open: ",$JUSTIFY(IBCNT(8),10)
- +18 WRITE !!?((IOM/2+6)-24),"Number of Previous Cases: ",$JUSTIFY(IBCNT(9),10)
- +19 WRITE !?((IOM/2+6)-44),"Number of Previous Cases Closed and Billable: ",$JUSTIFY(IBCNT(9,0),10)
- +20 WRITE !?((IOM/2+6)-45),"Number of Previous Cases Closed, not Billable: ",$JUSTIFY(IBCNT(9,1),10)
- +21 WRITE !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$JUSTIFY(IBCNT(9,2),10)
- +22 ;
- +23 WRITE !!?((IOM/2+6)-35),"Number of Outpatient Cases Reviewed: ",$JUSTIFY(IBCNT(10),10)
- +24 ;
- +25 QUIT
- +26 ;
- RNB ; -- print reasons not billable
- +1 DO CNT(4)
- +2 WRITE !!!?((IOM/2+6)-26),"Reason Not Billable Report: Reason Count"
- +3 WRITE !?((IOM/2+6)-26),"--------------------------- ------------------------------"
- +4 SET I=0
- FOR
- SET I=$ORDER(IBCNT(3,I))
- IF 'I
- QUIT
- Begin DoDot:1
- +5 WRITE !?((IOM/2)+9),$EXTRACT($PIECE($GET(^IBE(356.8,+I,0)),"^")_" ",1,22)
- +6 WRITE ?((IOM/2)+31)," ",$JUSTIFY(IBCNT(3,I),6)
- End DoDot:1
- +7 QUIT
- +8 ;
- HDR ; -- print report header
- +1 IF $EXTRACT(IOST,1,2)["C-"!(IBPAG>0)
- WRITE @IOF
- +2 WRITE !?((IOM-22)/2),"UR ACTIVITY SUMMARY REPORT"
- +3 WRITE !?((IOM-18)/2),"for "_$SELECT($DATA(IBHDRL):IBHDRL_" Reviews")
- +4 DO SITE^IBAUTL
- SET IBSNM=$SELECT($DATA(^DIC(4,IBFAC,0)):$PIECE(^(0),"^"),1:"")
- +5 WRITE !?((IOM-($LENGTH(IBSNM)+6))/2),IBSNM_" ("_IBSITE_")"
- +6 WRITE !!?(IOM-18/2),"From: "
- SET Y=IBBDT
- DO DT^DIQ
- +7 WRITE !?((IOM-16)/2),"To: "
- SET Y=IBEDT
- DO DT^DIQ
- +8 WRITE !!?(IOM-26/2),"Date Printed: ",IBHDT
- +9 SET IBPAG=IBPAG+1
- WRITE !?(IOM-8/2),"Page: ",IBPAG
- +10 WRITE !?(IOM-26/2),"--------------------------",!!
- +11 QUIT
- +12 ;
- CHK ; -- check task man stop flag
- +1 IF $DATA(ZTQUEUED)
- IF $$S^%ZTLOAD
- SET ZTSTOP=1
- DO HDR
- WRITE !!,"....task stopped at user request."
- +2 QUIT
- +3 ;
- CNT(N) ; -- see if enought room on page for list
- +1 IF '$GET(N)
- QUIT
- +2 SET (IBC,I)=0
- FOR
- SET I=$ORDER(IBCNT(N,I))
- IF 'I
- QUIT
- SET IBC=IBC+1
- +3 IF IOSL<($Y+IBC+3)
- IF $EXTRACT(IOST,1,2)="C-"
- DO PAUSE^VALM1
- IF $DATA(DIRUT)
- SET IBQUIT=1
- IF 'IBQUIT
- WRITE @IOF
- QUIT
- +4 IF IOSL<($Y+IBC+3)
- DO HDR
- +5 QUIT
- +6 ;
- HOSPRV ; -- Hospital Review Summary
- +1 WRITE !?((IOM/2+6)-16),"Total Admissions: ",$JUSTIFY(IBCNT(1),10)
- +2 WRITE !!?((IOM/2+6)-20),"Total Cases Reviewed: ",$JUSTIFY(+$GET(IBCNT(40)),10)
- +3 WRITE !?((IOM/2+6)-29),"Number of New Case Still Open: ",$JUSTIFY(IBCNT(41),10)
- +4 WRITE !?((IOM/2+6)-24),"Number of Previous Cases: ",$JUSTIFY(IBCNT(42),10)
- +5 WRITE !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$JUSTIFY(IBCNT(43),10)
- +6 ;
- +7 WRITE !!?((IOM/2+6)-25),"Total Random Sample Cases: ",$JUSTIFY(IBCNT(44),10)
- +8 WRITE !?((IOM/2+6)-29),"Total Special Condition Cases: ",$JUSTIFY(+$GET(IBCNT(45)),10)
- +9 WRITE !?((IOM/2+6)-4),"COPD: ",$JUSTIFY(+$GET(IBCNT(45,2)),10)
- +10 WRITE !?((IOM/2+6)-4)," CVD: ",$JUSTIFY(+$GET(IBCNT(45,3)),10)
- +11 WRITE !?((IOM/2+6)-4),"TURP: ",$JUSTIFY(+$GET(IBCNT(45,1)),10)
- +12 WRITE !?((IOM/2+6)-25),"Total Locally Added Cases: ",$JUSTIFY(IBCNT(46),10)
- +13 ;
- +14 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- DO PAUSE^VALM1
- IF '$DATA(DIRUT)
- WRITE @IOF
- IF $DATA(DIRUT)
- SET IBQUIT=1
- QUIT
- +15 ;
- +16 WRITE !!?((IOM/2+6)-36),"Total Cases Meeting Criteria on Adm.: ",$JUSTIFY(+$GET(IBCNT(47)),10)
- +17 WRITE !,?((IOM/2+6)-37),"Total Cases Not Meeting Crit. on Adm.: ",$JUSTIFY(+$GET(IBCNT(51)),10)
- +18 ;
- +19 WRITE !!?((IOM/2+6)-19),"Total Days Reviewed: ",$JUSTIFY(+$GET(IBCNT(48)),10)
- +20 WRITE !?((IOM/2+6)-27),"Total Days Meeting Criteria: ",$JUSTIFY(IBCNT(49),10)
- +21 WRITE !?((IOM/2+6)-31),"Total Days Not Meeting Criteria: ",$JUSTIFY(+$GET(IBCNT(50)),10)
- +22 QUIT
