IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93
;;Version 2.0 ; INTEGRATED BILLING ;**56**; 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,$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)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
W !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),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)
;
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)-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)
;
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)-24),"Total Admissions to NHCU: ",$J(+$G(IBCNT(1,1)),10)
W !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$J(+$G(IBCNT(1,2)),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)
;
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)-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)
;
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBTOUR3 4688 printed Nov 22, 2024@17:37:32 Page 2
IBTOUR3 ;ALB/AAS - CLAIMS TRACKING UR ACTIVITY REPORT PRINT ; 02-DEC-93
+1 ;;Version 2.0 ; INTEGRATED BILLING ;**56**; 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 $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)-24),"Total Admissions to NHCU: ",$JUSTIFY(+$GET(IBCNT(1,1)),10)
+3 WRITE !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$JUSTIFY(+$GET(IBCNT(1,2)),10)
+4 WRITE !?((IOM/2+6)-34),"Total Admissions Requiring Reviews: ",$JUSTIFY(IBCNT(4),10)
+5 WRITE !?((IOM/2+6)-33),"Number of Scheduled Adm. Reviewed: ",$JUSTIFY(IBCNT(11),10)
+6 ;
+7 WRITE !!?((IOM/2+6)-31),"Total Admissions with Insurance: ",$JUSTIFY(IBCNT(2),10)
+8 WRITE !?((IOM/2+6)-25),"Total Billable Admissions: ",$JUSTIFY(+$GET(IBCNT(3,0)),10)
+9 ;
+10 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
DO PAUSE^VALM1
if '$DATA(DIRUT)
WRITE @IOF
IF $DATA(DIRUT)
SET IBQUIT=1
QUIT
+11 ;
+12 WRITE !!?((IOM/2+6)-33),"Cases with Pre-Cert and Follow-up: ",$JUSTIFY(IBCNT(5),10)
+13 WRITE !?((IOM/2+6)-32),"Cases with Pre-Cert no Follow-up: ",$JUSTIFY(IBCNT(6),10)
+14 ;
+15 WRITE !?((IOM/2+6)-22),"Number of Closed Cases: ",$JUSTIFY(IBCNT(7),10)
+16 WRITE !?((IOM/2+6)-31),"Number of Billable Closed Cases: ",$JUSTIFY(IBCNT(7,0),10)
+17 WRITE !?((IOM/2+6)-33),"Number of Unbillable Closed Cases: ",$JUSTIFY(IBCNT(7,1),10)
+18 ;
+19 WRITE !!?((IOM/2+6)-30),"Number of New Cases Still Open: ",$JUSTIFY(IBCNT(8),10)
+20 WRITE !!?((IOM/2+6)-24),"Number of Previous Cases: ",$JUSTIFY(IBCNT(9),10)
+21 WRITE !?((IOM/2+6)-44),"Number of Previous Cases Closed and Billable: ",$JUSTIFY(IBCNT(9,0),10)
+22 WRITE !?((IOM/2+6)-45),"Number of Previous Cases Closed, not Billable: ",$JUSTIFY(IBCNT(9,1),10)
+23 WRITE !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$JUSTIFY(IBCNT(9,2),10)
+24 ;
+25 WRITE !!?((IOM/2+6)-35),"Number of Outpatient Cases Reviewed: ",$JUSTIFY(IBCNT(10),10)
+26 ;
+27 QUIT
+28 ;
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)-24),"Total Admissions to NHCU: ",$JUSTIFY(+$GET(IBCNT(1,1)),10)
+3 WRITE !?((IOM/2+6)-31),"Total Admissions to Domiciliary: ",$JUSTIFY(+$GET(IBCNT(1,2)),10)
+4 WRITE !!?((IOM/2+6)-20),"Total Cases Reviewed: ",$JUSTIFY(+$GET(IBCNT(40)),10)
+5 WRITE !?((IOM/2+6)-29),"Number of New Case Still Open: ",$JUSTIFY(IBCNT(41),10)
+6 WRITE !?((IOM/2+6)-24),"Number of Previous Cases: ",$JUSTIFY(IBCNT(42),10)
+7 WRITE !?((IOM/2+6)-35),"Number of Previous Cases still Open: ",$JUSTIFY(IBCNT(43),10)
+8 ;
+9 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
DO PAUSE^VALM1
if '$DATA(DIRUT)
WRITE @IOF
IF $DATA(DIRUT)
SET IBQUIT=1
QUIT
+10 ;
+11 WRITE !!?((IOM/2+6)-25),"Total Random Sample Cases: ",$JUSTIFY(IBCNT(44),10)
+12 WRITE !?((IOM/2+6)-29),"Total Special Condition Cases: ",$JUSTIFY(+$GET(IBCNT(45)),10)
+13 WRITE !?((IOM/2+6)-4),"COPD: ",$JUSTIFY(+$GET(IBCNT(45,2)),10)
+14 WRITE !?((IOM/2+6)-4)," CVD: ",$JUSTIFY(+$GET(IBCNT(45,3)),10)
+15 WRITE !?((IOM/2+6)-4),"TURP: ",$JUSTIFY(+$GET(IBCNT(45,1)),10)
+16 WRITE !?((IOM/2+6)-25),"Total Locally Added Cases: ",$JUSTIFY(IBCNT(46),10)
+17 ;
+18 WRITE !!?((IOM/2+6)-36),"Total Cases Meeting Criteria on Adm.: ",$JUSTIFY(+$GET(IBCNT(47)),10)
+19 WRITE !,?((IOM/2+6)-37),"Total Cases Not Meeting Crit. on Adm.: ",$JUSTIFY(+$GET(IBCNT(51)),10)
+20 ;
+21 WRITE !!?((IOM/2+6)-19),"Total Days Reviewed: ",$JUSTIFY(+$GET(IBCNT(48)),10)
+22 WRITE !?((IOM/2+6)-27),"Total Days Meeting Criteria: ",$JUSTIFY(IBCNT(49),10)
+23 WRITE !?((IOM/2+6)-31),"Total Days Not Meeting Criteria: ",$JUSTIFY(+$GET(IBCNT(50)),10)
+24 QUIT
