BGPMUPPS ; IHS/MSC/MMT - MU Summary Page output ;08-Mar-2011 14:07;DU
;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
;
;Print the summary page for all measures
SUMM ;summary print
N BGPMD,BGPDORD,BGPIND,BGPSFLG,BGPDCNT,BGPIC
S BGPIC=""
D HEADER^BGPMUPH
I BGPMUT="P" D
.D W^BGPMUPP("Eligible Professional (EP): "_$P(^VA(200,BGPPROV,0),U),0,2,BGPPTYPE)
.S X="Warning: The Meaningful Use reports do not verify that the EP selected" D W^BGPMUPP(X,0,2,BGPPTYPE)
.S X="for the reports meets the CMS EHR Incentive Program eligibility criteria." D W^BGPMUPP(X,0,1,BGPPTYPE)
.S X="The EP must make that determination." D W^BGPMUPP(X,0,1,BGPPTYPE)
.D W^BGPMUPP($TR($J("",80)," ","-"),0,2,BGPPTYPE)
.D W^BGPMUPP("MU EP CLINICAL QUALITY MEASURES PERFORMANCE SUMMARY",1,1,BGPPTYPE)
I BGPMUT="H" D
.D W^BGPMUPP($TR($J("",80)," ","-"),0,2,BGPPTYPE)
.D W^BGPMUPP("MU HOSPITAL CLINICAL QUALITY MEASURES PERFORMANCE SUMMARY",1,1,BGPPTYPE)
D SUMMHDR
I BGPMUT="P" D
.;EP Report - segregate by CORE/ALT/MENU
.K BGPSFLG
.F BGPSET="C","A","M" S BGPDORD=0 F S BGPDORD=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDORD)) Q:BGPDORD'=+BGPDORD!(BGPQUIT) D
..S BGPIND=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDORD,0)) Q:BGPIND=""
..I ($P(^BGPMUIND(BGPMUYF,BGPIND,0),U,4)=BGPSET)&$D(^TMP("BGPMU SUMMARY",$J,BGPIND)) D
...I '$G(BGPSFLG(BGPSET)) D
....I $Y>(BGPIOSL-5)&(BGPPTYPE'="D") D SUMMHDR2 Q:BGPQUIT
....D W^BGPMUPP($S(BGPSET="C":"CORE MEASURES",BGPSET="A":"ALTERNATE CORE MEASURES",1:"MENU SET MEASURES"),,2,BGPPTYPE)
....S BGPSFLG(BGPSET)=1
...S BGPDCNT=$$COUNT(BGPIND) ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
...I $Y>(BGPIOSL-BGPDCNT)&(BGPPTYPE'="D") D SUMMHDR2 Q:BGPQUIT
...S BGPMD=$G(^TMP("BGPMU SUMMARY",$J,BGPIND))
...D W^BGPMUPP($P(BGPMD,U,1),,1,BGPPTYPE)
...D W^BGPMUPP($S($P(BGPMD,U,2)="":"N/A",1:$P(BGPMD,U,2)),,0,BGPPTYPE,2,6)
...D W^BGPMUPP($E($P($G(^BGPMUIND(BGPMUYF,BGPIND,0)),U,3),1,67),,0,BGPPTYPE,3,12)
...S BGPMDORD=0 F S BGPMDORD=$O(^TMP("BGPMU SUMMARY",$J,BGPIND,BGPMDORD)) Q:BGPMDORD'=+BGPMDORD!(BGPQUIT) D
....S BGPPOPD=^TMP("BGPMU SUMMARY",$J,BGPIND,BGPMDORD)
....D W^BGPMUPP($E($P(BGPPOPD,U,2),1,35),,1,BGPPTYPE,3,12)
....D W^BGPMUPP($J($S($P(BGPPOPD,U,3)="":"0",1:$P(BGPPOPD,U,3)),3),,0,BGPPTYPE,4,48)
....D W^BGPMUPP($J($P(BGPPOPD,U,4),3),,0,BGPPTYPE,5,53)
....D W^BGPMUPP($J($P(BGPPOPD,U,5),3),,0,BGPPTYPE,6,58)
....D W^BGPMUPP($J($P(BGPPOPD,U,6),5,1)_"%",,0,BGPPTYPE,7,65)
....D W^BGPMUPP($J($P(BGPPOPD,U,14),5,1)_"%",,0,BGPPTYPE,8,73)
I BGPMUT="H" D
.;Hospital report - display in order
.S BGPDORD=0 F S BGPDORD=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDORD)) Q:BGPDORD'=+BGPDORD!(BGPQUIT) D
..S BGPIND=$O(^BGPMUIND(BGPMUYF,"ADO",BGPDORD,0)) Q:BGPIND=""
..I $D(^TMP("BGPMU SUMMARY",$J,BGPIND)) D
...S BGPDCNT=$$COUNT(BGPIND) ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
...I $Y>(BGPIOSL-BGPDCNT)&(BGPPTYPE'="D") D SUMMHDR2 Q:BGPQUIT
...S BGPMD=$G(^TMP("BGPMU SUMMARY",$J,BGPIND))
...D W^BGPMUPP($P(BGPMD,U,1),,1,BGPPTYPE)
...;D W^BGPMUPP($P(BGPMD,U,2),,0,BGPPTYPE,2,7) ;NO PQRI numbers for Hospital measures
...D W^BGPMUPP($E($P($G(^BGPMUIND(BGPMUYF,BGPIND,0)),U,3),1,65),,0,BGPPTYPE,3,14)
...S BGPMDORD=0 F S BGPMDORD=$O(^TMP("BGPMU SUMMARY",$J,BGPIND,BGPMDORD)) Q:BGPMDORD'=+BGPMDORD!(BGPQUIT) D
....S BGPPOPD=^TMP("BGPMU SUMMARY",$J,BGPIND,BGPMDORD)
....D W^BGPMUPP($E($P(BGPPOPD,U,2),1,32),,1,BGPPTYPE,3,14)
....;Handle ED measures output differently
....I ($P(BGPMD,U,1)="0495")!($P(BGPMD,U,1)="0497") D
.....D W^BGPMUPP($J($P(BGPPOPD,U,4),5,1),,0,BGPPTYPE,7,65)
.....D W^BGPMUPP($J($P(BGPPOPD,U,5),5,1),,0,BGPPTYPE,8,73)
....E D
.....D W^BGPMUPP($J($S($P(BGPPOPD,U,3)="":"0",1:$P(BGPPOPD,U,3)),3),,0,BGPPTYPE,4,48)
.....D W^BGPMUPP($J($P(BGPPOPD,U,4),3),,0,BGPPTYPE,5,53)
.....D W^BGPMUPP($J($P(BGPPOPD,U,5),3),,0,BGPPTYPE,6,58)
.....D W^BGPMUPP($J($P(BGPPOPD,U,6),5,1)_"%",,0,BGPPTYPE,7,65)
.....D W^BGPMUPP($J($P(BGPPOPD,U,14),5,1)_"%",,0,BGPPTYPE,8,73)
K ^TMP("BGPMU SUMMARY",$J)
Q
SUMMHDR2 ; HEADER FOR 2-n PAGES OF SUMMARY PAGE
D HEADER^BGPMUPH
D SUMMHDR
Q
SUMMHDR ;
D W^BGPMUPP("#",,1,BGPPTYPE,4,48)
D W^BGPMUPP("#",,0,BGPPTYPE,5,54)
D W^BGPMUPP("#",,0,BGPPTYPE,6,59)
D W^BGPMUPP("Report",,0,BGPPTYPE,7,65)
D W^BGPMUPP("Prev",,0,BGPPTYPE,8,73)
D W^BGPMUPP("NQF",,1,BGPPTYPE)
I BGPMUT'="H" D W^BGPMUPP("PQRI",,0,BGPPTYPE,2,6)
D W^BGPMUPP("Measure",,0,BGPPTYPE,3,12)
D W^BGPMUPP("Excl",,0,BGPPTYPE,4,47)
D W^BGPMUPP("Den",,0,BGPPTYPE,5,53)
D W^BGPMUPP("Num",,0,BGPPTYPE,6,58)
D W^BGPMUPP("Period",,0,BGPPTYPE,7,65)
D W^BGPMUPP("Period",,0,BGPPTYPE,8,73)
D W^BGPMUPP($TR($J("",80)," ","-"),0,1,BGPPTYPE)
Q
COUNT(BGPIND) ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
N TOTAL,LINE
S TOTAL=1
S LINE=0 F S LINE=$O(^TMP("BGPMU SUMMARY",$J,BGPIND,LINE)) Q:LINE'=+LINE D
.S TOTAL=TOTAL+1
K LINE
Q TOTAL
BGPMUPPS ; IHS/MSC/MMT - MU Summary Page output ;08-Mar-2011 14:07;DU
+1 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
+2 ;
+3 ;Print the summary page for all measures
SUMM ;summary print
+1 NEW BGPMD,BGPDORD,BGPIND,BGPSFLG,BGPDCNT,BGPIC
+2 SET BGPIC=""
+3 DO HEADER^BGPMUPH
+4 IF BGPMUT="P"
Begin DoDot:1
+5 DO W^BGPMUPP("Eligible Professional (EP): "_$PIECE(^VA(200,BGPPROV,0),U),0,2,BGPPTYPE)
+6 SET X="Warning: The Meaningful Use reports do not verify that the EP selected"
DO W^BGPMUPP(X,0,2,BGPPTYPE)
+7 SET X="for the reports meets the CMS EHR Incentive Program eligibility criteria."
DO W^BGPMUPP(X,0,1,BGPPTYPE)
+8 SET X="The EP must make that determination."
DO W^BGPMUPP(X,0,1,BGPPTYPE)
+9 DO W^BGPMUPP($TRANSLATE($JUSTIFY("",80)," ","-"),0,2,BGPPTYPE)
+10 DO W^BGPMUPP("MU EP CLINICAL QUALITY MEASURES PERFORMANCE SUMMARY",1,1,BGPPTYPE)
End DoDot:1
+11 IF BGPMUT="H"
Begin DoDot:1
+12 DO W^BGPMUPP($TRANSLATE($JUSTIFY("",80)," ","-"),0,2,BGPPTYPE)
+13 DO W^BGPMUPP("MU HOSPITAL CLINICAL QUALITY MEASURES PERFORMANCE SUMMARY",1,1,BGPPTYPE)
End DoDot:1
+14 DO SUMMHDR
+15 IF BGPMUT="P"
Begin DoDot:1
+16 ;EP Report - segregate by CORE/ALT/MENU
+17 KILL BGPSFLG
+18 FOR BGPSET="C","A","M"
SET BGPDORD=0
FOR
SET BGPDORD=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDORD))
IF BGPDORD'=+BGPDORD!(BGPQUIT)
QUIT
Begin DoDot:2
+19 SET BGPIND=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDORD,0))
IF BGPIND=""
QUIT
+20 IF ($PIECE(^BGPMUIND(BGPMUYF,BGPIND,0),U,4)=BGPSET)&$DATA(^TMP("BGPMU SUMMARY",$JOB,BGPIND))
Begin DoDot:3
+21 IF '$GET(BGPSFLG(BGPSET))
Begin DoDot:4
+22 IF $Y>(BGPIOSL-5)&(BGPPTYPE'="D")
DO SUMMHDR2
IF BGPQUIT
QUIT
+23 DO W^BGPMUPP($SELECT(BGPSET="C":"CORE MEASURES",BGPSET="A":"ALTERNATE CORE MEASURES",1:"MENU SET MEASURES"),,2,BGPPTYPE)
+24 SET BGPSFLG(BGPSET)=1
End DoDot:4
+25 ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
SET BGPDCNT=$$COUNT(BGPIND)
+26 IF $Y>(BGPIOSL-BGPDCNT)&(BGPPTYPE'="D")
DO SUMMHDR2
IF BGPQUIT
QUIT
+27 SET BGPMD=$GET(^TMP("BGPMU SUMMARY",$JOB,BGPIND))
+28 DO W^BGPMUPP($PIECE(BGPMD,U,1),,1,BGPPTYPE)
+29 DO W^BGPMUPP($SELECT($PIECE(BGPMD,U,2)="":"N/A",1:$PIECE(BGPMD,U,2)),,0,BGPPTYPE,2,6)
+30 DO W^BGPMUPP($EXTRACT($PIECE($GET(^BGPMUIND(BGPMUYF,BGPIND,0)),U,3),1,67),,0,BGPPTYPE,3,12)
+31 SET BGPMDORD=0
FOR
SET BGPMDORD=$ORDER(^TMP("BGPMU SUMMARY",$JOB,BGPIND,BGPMDORD))
IF BGPMDORD'=+BGPMDORD!(BGPQUIT)
QUIT
Begin DoDot:4
+32 SET BGPPOPD=^TMP("BGPMU SUMMARY",$JOB,BGPIND,BGPMDORD)
+33 DO W^BGPMUPP($EXTRACT($PIECE(BGPPOPD,U,2),1,35),,1,BGPPTYPE,3,12)
+34 DO W^BGPMUPP($JUSTIFY($SELECT($PIECE(BGPPOPD,U,3)="":"0",1:$PIECE(BGPPOPD,U,3)),3),,0,BGPPTYPE,4,48)
+35 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,4),3),,0,BGPPTYPE,5,53)
+36 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,5),3),,0,BGPPTYPE,6,58)
+37 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,6),5,1)_"%",,0,BGPPTYPE,7,65)
+38 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,14),5,1)_"%",,0,BGPPTYPE,8,73)
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+39 IF BGPMUT="H"
Begin DoDot:1
+40 ;Hospital report - display in order
+41 SET BGPDORD=0
FOR
SET BGPDORD=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDORD))
IF BGPDORD'=+BGPDORD!(BGPQUIT)
QUIT
Begin DoDot:2
+42 SET BGPIND=$ORDER(^BGPMUIND(BGPMUYF,"ADO",BGPDORD,0))
IF BGPIND=""
QUIT
+43 IF $DATA(^TMP("BGPMU SUMMARY",$JOB,BGPIND))
Begin DoDot:3
+44 ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
SET BGPDCNT=$$COUNT(BGPIND)
+45 IF $Y>(BGPIOSL-BGPDCNT)&(BGPPTYPE'="D")
DO SUMMHDR2
IF BGPQUIT
QUIT
+46 SET BGPMD=$GET(^TMP("BGPMU SUMMARY",$JOB,BGPIND))
+47 DO W^BGPMUPP($PIECE(BGPMD,U,1),,1,BGPPTYPE)
+48 ;D W^BGPMUPP($P(BGPMD,U,2),,0,BGPPTYPE,2,7) ;NO PQRI numbers for Hospital measures
+49 DO W^BGPMUPP($EXTRACT($PIECE($GET(^BGPMUIND(BGPMUYF,BGPIND,0)),U,3),1,65),,0,BGPPTYPE,3,14)
+50 SET BGPMDORD=0
FOR
SET BGPMDORD=$ORDER(^TMP("BGPMU SUMMARY",$JOB,BGPIND,BGPMDORD))
IF BGPMDORD'=+BGPMDORD!(BGPQUIT)
QUIT
Begin DoDot:4
+51 SET BGPPOPD=^TMP("BGPMU SUMMARY",$JOB,BGPIND,BGPMDORD)
+52 DO W^BGPMUPP($EXTRACT($PIECE(BGPPOPD,U,2),1,32),,1,BGPPTYPE,3,14)
+53 ;Handle ED measures output differently
+54 IF ($PIECE(BGPMD,U,1)="0495")!($PIECE(BGPMD,U,1)="0497")
Begin DoDot:5
+55 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,4),5,1),,0,BGPPTYPE,7,65)
+56 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,5),5,1),,0,BGPPTYPE,8,73)
End DoDot:5
+57 IF '$TEST
Begin DoDot:5
+58 DO W^BGPMUPP($JUSTIFY($SELECT($PIECE(BGPPOPD,U,3)="":"0",1:$PIECE(BGPPOPD,U,3)),3),,0,BGPPTYPE,4,48)
+59 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,4),3),,0,BGPPTYPE,5,53)
+60 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,5),3),,0,BGPPTYPE,6,58)
+61 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,6),5,1)_"%",,0,BGPPTYPE,7,65)
+62 DO W^BGPMUPP($JUSTIFY($PIECE(BGPPOPD,U,14),5,1)_"%",,0,BGPPTYPE,8,73)
End DoDot:5
End DoDot:4
End DoDot:3
End DoDot:2
End DoDot:1
+63 KILL ^TMP("BGPMU SUMMARY",$JOB)
+64 QUIT
SUMMHDR2 ; HEADER FOR 2-n PAGES OF SUMMARY PAGE
+1 DO HEADER^BGPMUPH
+2 DO SUMMHDR
+3 QUIT
SUMMHDR ;
+1 DO W^BGPMUPP("#",,1,BGPPTYPE,4,48)
+2 DO W^BGPMUPP("#",,0,BGPPTYPE,5,54)
+3 DO W^BGPMUPP("#",,0,BGPPTYPE,6,59)
+4 DO W^BGPMUPP("Report",,0,BGPPTYPE,7,65)
+5 DO W^BGPMUPP("Prev",,0,BGPPTYPE,8,73)
+6 DO W^BGPMUPP("NQF",,1,BGPPTYPE)
+7 IF BGPMUT'="H"
DO W^BGPMUPP("PQRI",,0,BGPPTYPE,2,6)
+8 DO W^BGPMUPP("Measure",,0,BGPPTYPE,3,12)
+9 DO W^BGPMUPP("Excl",,0,BGPPTYPE,4,47)
+10 DO W^BGPMUPP("Den",,0,BGPPTYPE,5,53)
+11 DO W^BGPMUPP("Num",,0,BGPPTYPE,6,58)
+12 DO W^BGPMUPP("Period",,0,BGPPTYPE,7,65)
+13 DO W^BGPMUPP("Period",,0,BGPPTYPE,8,73)
+14 DO W^BGPMUPP($TRANSLATE($JUSTIFY("",80)," ","-"),0,1,BGPPTYPE)
+15 QUIT
COUNT(BGPIND) ;COUNT NUMBER OF LINES NEEDED FOR THIS MEASURE'S DISPLAY
+1 NEW TOTAL,LINE
+2 SET TOTAL=1
+3 SET LINE=0
FOR
SET LINE=$ORDER(^TMP("BGPMU SUMMARY",$JOB,BGPIND,LINE))
IF LINE'=+LINE
QUIT
Begin DoDot:1
+4 SET TOTAL=TOTAL+1
End DoDot:1
+5 KILL LINE
+6 QUIT TOTAL
