BGPMUDD2.m

BGPMUDD2 ; IHS/MSC/SAT - Delimited MU measure NQF0081 ;27-Apr-2011 13:15;DU

 ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2

 ;Delimited output for Heart Failure 0081 (BGPMUD03)

HF ;EP

 D P1B

 K ^TMP("BGPMU0081",$J)

 Q

P1B ;Write individual measure

 N BGPPTYPE,X,Y,Z,DEN,NUM,PC,STRING1,STRING2,PRD,PRN,PRD1,PRN1

 S BGPPTYPE="D"

 S STRING1=$$081^BGPMUDP2("C")

 S STRING2=$$081^BGPMUDP2("P")

 S STRING3=$$081^BGPMUDP2("B")

 D SUM081

 S PRD1=$P(STRING1,U,1)-$P(STRING2,U,1)  ;change from prev year

 S PRD2=$P(STRING1,U,5)-$P(STRING2,U,5)  ;% change from prev year

 S PRD3=$P(STRING1,U,5)-$P(STRING3,U,5)  ;% change from base year

 S PRD4=$P(STRING1,U,6)-$P(STRING2,U,6)  ;% change from prev year

 S PRD5=$P(STRING1,U,6)-$P(STRING3,U,6)  ;% change from prev year

 S X=U_"REPORT PERIOD"_U_"%"_U_"PREV YR PERIOD"_U_"%"_U_"CHG FROM PREV YR"_U_"BASE YR"_U_"%"_U_"CHG FROM BASE %"

 D S^BGPMUDEL(X,1,1)

 S X="Pts 18+ w/heart failure"_U_$P(STRING1,U,1)_U_U_$P(STRING2,U,1)_U_U_U_$P(STRING3,U,1)_U_U

 D S^BGPMUDEL(X,1,1)

 S X="and LVEF < 40%"

 D S^BGPMUDEL(X,1,1)

 S X="# Excluded (Exc)"_U_$P(STRING1,U,4)_U_U_$P(STRING2,U,4)_U_U_U_$P(STRING3,U,4)

 D S^BGPMUDEL(X,1,1)

 S X="Pts 18+ w/heart failure"_U_($P(STRING1,U,1)-$P(STRING1,U,4))_U_U_($P(STRING2,U,1)-$P(STRING2,U,4))_U_U_U_($P(STRING3,U,1)-$P(STRING3,U,4))

 D S^BGPMUDEL(X,1,1)

 S X="and LVEF < 40% less Exc"

 D S^BGPMUDEL(X,1,1)

 S X="# w/ACE inhibitor or ARB"_U_$P(STRING1,U,2)_U_$P(STRING1,U,5)_U_$P(STRING2,U,2)_U_$P(STRING2,U,5)_U_$FN(PRD2,",+",1)_U_$P(STRING3,U,2)_U_$P(STRING3,U,5)_U_$FN(PRD3,",+",1)

 D S^BGPMUDEL(X,2,1)

 S X="# w/o ACE inhibitor or ARB"_U_$P(STRING1,U,3)_U_$P(STRING1,U,6)_U_$P(STRING2,U,3)_U_$P(STRING2,U,6)_U_$FN(PRD4,",+",1)_U_$P(STRING3,U,3)_U_$P(STRING3,U,6)_U_$FN(PRD5,",+",1)

 D S^BGPMUDEL(X,1,1)

 I $D(BGPLIST(BGPIC)) D TC

 Q

TC ;Do the Details

 N PT,NODE,NAME,BP

 S X="**** CONFIDENTIAL PATIENT INFORMATION COVERED BY PRIVACY ACT ****" D S^BGPMUDEL(X,2,1)

 S X="Patients 18+ with at least 1 inpatient discharge encounter OR at least" D S^BGPMUDEL(X,2,1)

 S X="2 outpatient OR at least 2 nursing facility encounters with the EP during the" D S^BGPMUDEL(X,1,1)

 S X="reporting period AND a diagnosis of heart failure during or before any of these" D S^BGPMUDEL(X,1,1)

 S X="encounters AND a Left Ventricular Ejection Fraction (LVEF) < 40% before any of" D S^BGPMUDEL(X,1,1)

 S X="these encounters during the reporting period AND who were prescribed ACE" D S^BGPMUDEL(X,1,1)

 S X="inhibitors or ARB medications during the reporting period, if any." D S^BGPMUDEL(X,1,1)

 S X="Patients who do not meet the numerator criteria are listed first (NM:), followed by patients who do meet the numerator criteria (M:).  Excluded patients are listed last." D S^BGPMUDEL(X,2,1)

 S X="The following are the abbreviations used in the denominator and numerator columns:" D S^BGPMUDEL(X,2,1)

 S X="HF=Heart Failure diagnosis" D S^BGPMUDEL(X,1,1)

 S X="LVEF= Left Ventricular Ejection Fraction (LVEF) < 40%" D S^BGPMUDEL(X,1,1)

 S X="EN=Encounter" D S^BGPMUDEL(X,1,1)

 S X="MED=ACE Inhibitor or ARB Medication" D S^BGPMUDEL(X,1,1)

 S X="PATIENT NAME"_U_"HRN"_U_"COMMUNITY"_U_"SEX"_U_"AGE"_U_"DENOMINATOR"_U_"NUMERATOR" D S^BGPMUDEL(X,2,1)

 S PTCT=0

 I (BGPLIST="A")!(BGPLIST="D")&($D(^TMP("BGPMU0081",$J,"PAT","C","NOT"))) D

 .K BGPARR

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$J_",""PAT"",""C"",""NOT"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D D081(NODE)

 I (BGPLIST="A")!(BGPLIST="N")&($D(^TMP("BGPMU0081",$J,"PAT","C","NUM"))) D

 .K BGPARR

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$J_",""PAT"",""C"",""NUM"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D D081(NODE)

 ;Excluded patients

 I BGPLIST="A"&($D(^TMP("BGPMU0081",$J,"PAT","C","EXC"))) D

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$J_",""PAT"",""C"",""EXC"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D DEXC081(NODE)

 S X="Total # of patients on list: "_PTCT D S^BGPMUDEL(X,2,1)

 Q

 ;

D081(NODE) ;GET DATA

 N BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN

 S DFN=$P(NODE,U,1)

 S NAME=$E($$GET1^DIQ(2,$P(NODE,U,1),.01),1,23)

 S HRN=$$HRN^AUPNPAT(DFN,DUZ(2))

 S AGE=$$AGE^AUPNPAT(DFN,BGPED)

 S SEX=$$SEX^AUPNPAT(DFN)

 S COMM=$E($$GET1^DIQ(9000001,DFN,1118),1,10)

 S DEN=$P(NODE,U,2)

 S NUM=$P(NODE,U,3)

 S X=NAME_U_HRN_U_COMM_U_SEX_U_AGE_U_DEN_U_NUM

 D S^BGPMUDEL(X,1,1)

 Q

DEXC081(NODE) ;GET DATA

 N BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN

 S DFN=$P(NODE,U,1)

 S NAME=$E($$GET1^DIQ(2,$P(NODE,U,1),.01),1,23)

 S HRN=$$HRN^AUPNPAT(DFN,DUZ(2))

 S AGE=$$AGE^AUPNPAT(DFN,BGPED)

 S SEX=$$SEX^AUPNPAT(DFN)

 S COMM=$E($$GET1^DIQ(9000001,DFN,1118),1,10)

 S DEN=$P(NODE,U,2)

 S NUM=$P(NODE,U,3)

 S X=NAME_U_HRN_U_COMM_U_SEX_U_AGE_U_DEN_U_"Excluded"

 D S^BGPMUDEL(X,1,1)

 Q

 ;

SUM081 ;Populate "BGPMU SUMMARY" for Measure 0081

 ;Initialize iCare/summary global

 N BGPDNCNT,BGPSSTR,J

 S J=$J

 S BGPDNCNT=0

 K ^TMP("BGPMU SUMMARY",J,BGPIC)

 S ^TMP("BGPMU SUMMARY",J,BGPIC)="0081"_U_"5"

 ;Setup summary page/iCare ^TMP global

 S CDEN1CT=+$G(^TMP("BGPMU0081",J,"C","DEN"))                 ;current

 S CNUM1CT=+$G(^TMP("BGPMU0081",J,"C","NUM"))

 S CEXC1CT=+$G(^TMP("BGPMU0081",J,"C","EXC"))

 S CMP=$S((CDEN1CT-CEXC1CT)>0:$$ROUND^BGPMUA01(CNUM1CT/(CDEN1CT-CEXC1CT),3)*100,1:0)

 S PDEN1CT=+$G(^TMP("BGPMU0081",J,"P","DEN"))                 ;previous

 S PNUM1CT=+$G(^TMP("BGPMU0081",J,"P","NUM"))

 S PEXC1CT=+$G(^TMP("BGPMU0081",J,"P","EXC"))

 S PMP=$S((PDEN1CT-PEXC1CT)>0:$$ROUND^BGPMUA01(PNUM1CT/(PDEN1CT-PEXC1CT),3)*100,1:0)

 S BDEN1CT=+$G(^TMP("BGPMU0081",J,"B","DEN"))                 ;baseline

 S BNUM1CT=+$G(^TMP("BGPMU0081",J,"B","NUM"))

 S BEXC1CT=+$G(^TMP("BGPMU0081",J,"B","EXC"))

 S BMP=$S((BDEN1CT-BEXC1CT)>0:$$ROUND^BGPMUA01(BNUM1CT/(BDEN1CT-BEXC1CT),3)*100,1:0)

 S BGPDNCNT=BGPDNCNT+1

 S BGPSSTR="MU.EP.0081."_1_U_"# w/ACE inhibitor or ARB"_U_CEXC1CT_U_CDEN1CT_U_CNUM1CT_U_CMP_U_U_U_U

 ; 11 12 13 14

 S BGPSSTR=BGPSSTR_U_""_U_PDEN1CT_U_PNUM1CT_U_PMP

 ; 15 16 17 18

 S BGPSSTR=BGPSSTR_U_""_U_BDEN1CT_U_BNUM1CT_U_BMP

 S ^TMP("BGPMU SUMMARY",J,BGPIC,BGPDNCNT)=BGPSSTR

 Q

 ;

XML0081 ;XML output for Measure 0081

 ; BGPXML(i)=Population Number^Numerator Number^Denominator Count

 N STRING

 S STRING=$$081^BGPMUDP2("C")

 S BGPXML(1)="NQF_0081"_U_U_+$P(STRING,U,1)_U_+$P(STRING,U,2)_U_$P(STRING,U,4)

 K ^TMP("BGPMU0081",$J)

 Q

 ;

 ;*****************

 ;

 ;Delimited output for Prenatal HIV Screening 0012 (BGPMUD04)

DENTRY ;EP

 D P12B

 K ^TMP("BGPMU0012",$J)

 Q

P12B ;Write individual measure

 N BGPPTYPE,X,Y,Z,DEN,NUM,PC,STRING1,STRING2,PRD,PRN,PRD1,PRN1

 S BGPPTYPE="D"

 S STRING1=$$012^BGPMUDP2("C")

 S STRING2=$$012^BGPMUDP2("P")

 S STRING3=$$012^BGPMUDP2("B")

 D SUM012

 S PRD1=$P(STRING1,U,1)-$P(STRING2,U,1)  ;change from prev year

 S PRD2=$P(STRING1,U,5)-$P(STRING2,U,5)  ;% change from prev year

 S PRD3=$P(STRING1,U,5)-$P(STRING3,U,5)  ;% change from base year

 S PRD4=$P(STRING1,U,6)-$P(STRING2,U,6)  ;% change from prev year

 S PRD5=$P(STRING1,U,6)-$P(STRING3,U,6)  ;% change from prev year

 S X=U_"REPORT PERIOD"_U_"%"_U_"PREV YR PERIOD"_U_"%"_U_"CHG FROM PREV YR"_U_"BASE YR"_U_"%"_U_"CHG FROM BASE %"

 D S^BGPMUDEL(X,1,1)

 S X="Pts w/live birth and prenatal encounter"_U_$P(STRING1,U,1)_U_U_$P(STRING2,U,1)_U_U_U_$P(STRING3,U,1)_U_U

 D S^BGPMUDEL(X,1,1)

 S X="# Excluded (Exc)"_U_$P(STRING1,U,4)_U_U_$P(STRING2,U,4)_U_U_U_$P(STRING3,U,4)

 D S^BGPMUDEL(X,1,1)

 S X="Pts w/live birth and prenatal encounter Less Exc"_U_($P(STRING1,U,1)-$P(STRING1,U,4))_U_U_($P(STRING2,U,1)-$P(STRING2,U,4))_U_U_U_($P(STRING3,U,1)-$P(STRING3,U,4))

 D S^BGPMUDEL(X,1,1)

 S X="# w/HIV screening"_U_$P(STRING1,U,2)_U_$P(STRING1,U,5)_U_$P(STRING2,U,2)_U_$P(STRING2,U,5)_U_$FN(PRD2,",+",1)_U_$P(STRING3,U,2)_U_$P(STRING3,U,5)_U_$FN(PRD3,",+",1)

 D S^BGPMUDEL(X,2,1)

 S X="# w/o HIV screening"_U_$P(STRING1,U,3)_U_$P(STRING1,U,6)_U_$P(STRING2,U,3)_U_$P(STRING2,U,6)_U_$FN(PRD4,",+",1)_U_$P(STRING3,U,3)_U_$P(STRING3,U,6)_U_$FN(PRD5,",+",1)

 D S^BGPMUDEL(X,1,1)

 I $D(BGPLIST(BGPIC)) D TC12

 Q

TC12 ;Do the Details

 N PT,NODE,NAME,BP

 S X="**** CONFIDENTIAL PATIENT INFORMATION COVERED BY PRIVACY ACT ****" D S^BGPMUDEL(X,2,1)

 S X="Patients, regardless of age, who gave birth during the reporting period who were" D S^BGPMUDEL(X,1,1)

 S X="screened for HIV infection during the first or second prenatal encounter, if any" D S^BGPMUDEL(X,1,1)

 S X="Patients who do not meet the numerator criteria are listed first (NM:), followed by patients who do meet the numerator criteria (M:).  Excluded patients are listed last." D S^BGPMUDEL(X,2,1)

 S X="The following are the abbreviations used in the denominator column:" D S^BGPMUDEL(X,2,1)

 S X="DEL=Live birth delivery" D S^BGPMUDEL(X,1,1)

 S X="EN=Prenatal Encounter" D S^BGPMUDEL(X,1,1)

 S X="HIV=HIV Screening" D S^BGPMUDEL(X,1,1)

 S X="PATIENT NAME"_U_"HRN"_U_"COMMUNITY"_U_"SEX"_U_"AGE"_U_"DENOMINATOR"_U_"NUMERATOR" D S^BGPMUDEL(X,2,1)

 S PTCT=0

 I (BGPLIST="A")!(BGPLIST="D")&($D(^TMP("BGPMU0012",$J,"PAT","C","NOT"))) D

 .K BGPARR

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0012"","_$J_",""PAT"",""C"",""NOT"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D D012(NODE)

 I (BGPLIST="A")!(BGPLIST="N")&($D(^TMP("BGPMU0012",$J,"PAT","C","NUM"))) D

 .K BGPARR

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0012"","_$J_",""PAT"",""C"",""NUM"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D D012(NODE)

 ;Excluded patients

 I BGPLIST="A"&($D(^TMP("BGPMU0012",$J,"PAT","C","EXC"))) D

 .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0012"","_$J_",""PAT"",""C"",""EXC"")")

 .S PT=0 F  S PT=$O(BGPARR(PT)) Q:PT=""  D

 ..S PTCT=PTCT+1

 ..S NODE=$G(BGPARR(PT))

 ..D D012(NODE)

 S X="Total # of patients on list: "_PTCT D S^BGPMUDEL(X,2,1)

 Q

 ;

D012(NODE) ;GET DATA

 N BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN

 S DFN=$P(NODE,U,1)

 S NAME=$E($$GET1^DIQ(2,$P(NODE,U,1),.01),1,23)

 S HRN=$$HRN^AUPNPAT(DFN,DUZ(2))

 S AGE=$$AGE^AUPNPAT(DFN,BGPED)

 S SEX=$$SEX^AUPNPAT(DFN)

 S COMM=$E($$GET1^DIQ(9000001,DFN,1118),1,10)

 S DEN=$P(NODE,U,2)

 S NUM=$P(NODE,U,3)

 S X=NAME_U_HRN_U_COMM_U_SEX_U_AGE_U_DEN_U_NUM

 D S^BGPMUDEL(X,1,1)

 Q

 ;

SUM012 ;Populate "BGPMU SUMMARY" for Prenatal HIV Screening Measure 0012

 ;Initialize iCare/summary global

 N BGPDNCNT,BGPSSTR,J

 S J=$J

 S BGPDNCNT=0

 K ^TMP("BGPMU SUMMARY",J,BGPIC)

 S ^TMP("BGPMU SUMMARY",J,BGPIC)="0012"_U_""

 ;Setup summary page/iCare ^TMP global

 S CDEN1CT=+$G(^TMP("BGPMU0012",J,"C","DEN"))                 ;current

 S CNUM1CT=+$G(^TMP("BGPMU0012",J,"C","NUM"))

 S CEXC1CT=+$G(^TMP("BGPMU0012",J,"C","EXC"))

 S CMP=$S((CDEN1CT-CEXC1CT)>0:$$ROUND^BGPMUA01(CNUM1CT/(CDEN1CT-CEXC1CT),3)*100,1:0)

 S PDEN1CT=+$G(^TMP("BGPMU0012",J,"P","DEN"))                 ;previous

 S PNUM1CT=+$G(^TMP("BGPMU0012",J,"P","NUM"))

 S PEXC1CT=+$G(^TMP("BGPMU0012",J,"P","EXC"))

 S PMP=$S((PDEN1CT-PEXC1CT)>0:$$ROUND^BGPMUA01(PNUM1CT/(PDEN1CT-PEXC1CT),3)*100,1:0)

 S BDEN1CT=+$G(^TMP("BGPMU0012",J,"B","DEN"))                 ;baseline

 S BNUM1CT=+$G(^TMP("BGPMU0012",J,"B","NUM"))

 S BEXC1CT=+$G(^TMP("BGPMU0012",J,"B","EXC"))

 S BMP=$S((BDEN1CT-BEXC1CT)>0:$$ROUND^BGPMUA01(BNUM1CT/(BDEN1CT-BEXC1CT),3)*100,1:0)

 S BGPDNCNT=BGPDNCNT+1

 S BGPSSTR="MU.EP.0012.1"_U_"# w/HIV screening"_U_CEXC1CT_U_CDEN1CT_U_CNUM1CT_U_CMP_U_U_U_U

 ; 11 12 13 14

 S BGPSSTR=BGPSSTR_U_PEXC1CT_U_PDEN1CT_U_PNUM1CT_U_PMP

 ; 15 16 17 18

 S BGPSSTR=BGPSSTR_U_BEXC1CT_U_BDEN1CT_U_BNUM1CT_U_BMP

 S ^TMP("BGPMU SUMMARY",J,BGPIC,BGPDNCNT)=BGPSSTR

 Q

 ;

XML0012 ;XML output for Prenatal HIV Screening Measure 0012

 ; BGPXML(i)=Population Number^Numerator Number^Denominator Count

 N STRING

 S STRING=$$012^BGPMUDP2("C")

 S BGPXML(1)="NQF_0012"_U_U_+$P(STRING,U,1)_U_+$P(STRING,U,2)_U_$P(STRING,U,4)

 K ^TMP("BGPMU0012",$J)

 Q

BGPMUDD2  ; IHS/MSC/SAT - Delimited MU measure NQF0081 ;27-Apr-2011 13:15;DU

 +1       ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2

 +2       ;Delimited output for Heart Failure 0081 (BGPMUD03)

HF        ;EP

 +1        DO P1B

 +2        KILL ^TMP("BGPMU0081",$JOB)

 +3        QUIT 

P1B       ;Write individual measure

 +1        NEW BGPPTYPE,X,Y,Z,DEN,NUM,PC,STRING1,STRING2,PRD,PRN,PRD1,PRN1

 +2        SET BGPPTYPE="D"

 +3        SET STRING1=$$081^BGPMUDP2("C")

 +4        SET STRING2=$$081^BGPMUDP2("P")

 +5        SET STRING3=$$081^BGPMUDP2("B")

 +6        DO SUM081

 +7       ;change from prev year

           SET PRD1=$PIECE(STRING1,U,1)-$PIECE(STRING2,U,1)

 +8       ;% change from prev year

           SET PRD2=$PIECE(STRING1,U,5)-$PIECE(STRING2,U,5)

 +9       ;% change from base year

           SET PRD3=$PIECE(STRING1,U,5)-$PIECE(STRING3,U,5)

 +10      ;% change from prev year

           SET PRD4=$PIECE(STRING1,U,6)-$PIECE(STRING2,U,6)

 +11      ;% change from prev year

           SET PRD5=$PIECE(STRING1,U,6)-$PIECE(STRING3,U,6)

 +12       SET X=U_"REPORT PERIOD"_U_"%"_U_"PREV YR PERIOD"_U_"%"_U_"CHG FROM PREV YR"_U_"BASE YR"_U_"%"_U_"CHG FROM BASE %"

 +13       DO S^BGPMUDEL(X,1,1)

 +14       SET X="Pts 18+ w/heart failure"_U_$PIECE(STRING1,U,1)_U_U_$PIECE(STRING2,U,1)_U_U_U_$PIECE(STRING3,U,1)_U_U

 +15       DO S^BGPMUDEL(X,1,1)

 +16       SET X="and LVEF < 40%"

 +17       DO S^BGPMUDEL(X,1,1)

 +18       SET X="# Excluded (Exc)"_U_$PIECE(STRING1,U,4)_U_U_$PIECE(STRING2,U,4)_U_U_U_$PIECE(STRING3,U,4)

 +19       DO S^BGPMUDEL(X,1,1)

 +20       SET X="Pts 18+ w/heart failure"_U_($PIECE(STRING1,U,1)-$PIECE(STRING1,U,4))_U_U_($PIECE(STRING2,U,1)-$PIECE(STRING2,U,4))_U_U_U_($PIECE(STRING3,U,1)-$PIECE(STRING3,U,4))

 +21       DO S^BGPMUDEL(X,1,1)

 +22       SET X="and LVEF < 40% less Exc"

 +23       DO S^BGPMUDEL(X,1,1)

 +24       SET X="# w/ACE inhibitor or ARB"_U_$PIECE(STRING1,U,2)_U_$PIECE(STRING1,U,5)_U_$PIECE(STRING2,U,2)_U_$PIECE(STRING2,U,5)_U_$FNUMBER(PRD2,",+",1)_U_$PIECE(STRING3,U,2)_U_$PIECE(STRING3,U,5)_U_$FNUMBER(PRD3,",+",1)

 +25       DO S^BGPMUDEL(X,2,1)

 +26       SET X="# w/o ACE inhibitor or ARB"_U_$PIECE(STRING1,U,3)_U_$PIECE(STRING1,U,6)_U_$PIECE(STRING2,U,3)_U_$PIECE(STRING2,U,6)_U_$FNUMBER(PRD4,",+",1)_U_$PIECE(STRING3,U,3)_U_$PIECE(STRING3,U,6)_U_$FNUMBER(PRD5,",+",1)

 +27       DO S^BGPMUDEL(X,1,1)

 +28       IF $DATA(BGPLIST(BGPIC))

               DO TC

 +29       QUIT 

TC        ;Do the Details

 +1        NEW PT,NODE,NAME,BP

 +2        SET X="**** CONFIDENTIAL PATIENT INFORMATION COVERED BY PRIVACY ACT ****"

           DO S^BGPMUDEL(X,2,1)

 +3        SET X="Patients 18+ with at least 1 inpatient discharge encounter OR at least"

           DO S^BGPMUDEL(X,2,1)

 +4        SET X="2 outpatient OR at least 2 nursing facility encounters with the EP during the"

           DO S^BGPMUDEL(X,1,1)

 +5        SET X="reporting period AND a diagnosis of heart failure during or before any of these"

           DO S^BGPMUDEL(X,1,1)

 +6        SET X="encounters AND a Left Ventricular Ejection Fraction (LVEF) < 40% before any of"

           DO S^BGPMUDEL(X,1,1)

 +7        SET X="these encounters during the reporting period AND who were prescribed ACE"

           DO S^BGPMUDEL(X,1,1)

 +8        SET X="inhibitors or ARB medications during the reporting period, if any."

           DO S^BGPMUDEL(X,1,1)

 +9        SET X="Patients who do not meet the numerator criteria are listed first (NM:), followed by patients who do meet the numerator criteria (M:).  Excluded patients are listed last."

           DO S^BGPMUDEL(X,2,1)

 +10       SET X="The following are the abbreviations used in the denominator and numerator columns:"

           DO S^BGPMUDEL(X,2,1)

 +11       SET X="HF=Heart Failure diagnosis"

           DO S^BGPMUDEL(X,1,1)

 +12       SET X="LVEF= Left Ventricular Ejection Fraction (LVEF) < 40%"

           DO S^BGPMUDEL(X,1,1)

 +13       SET X="EN=Encounter"

           DO S^BGPMUDEL(X,1,1)

 +14       SET X="MED=ACE Inhibitor or ARB Medication"

           DO S^BGPMUDEL(X,1,1)

 +15       SET X="PATIENT NAME"_U_"HRN"_U_"COMMUNITY"_U_"SEX"_U_"AGE"_U_"DENOMINATOR"_U_"NUMERATOR"

           DO S^BGPMUDEL(X,2,1)

 +16       SET PTCT=0

 +17       IF (BGPLIST="A")!(BGPLIST="D")&($DATA(^TMP("BGPMU0081",$JOB,"PAT","C","NOT")))

               Begin DoDot:1

 +18               KILL BGPARR

 +19               DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$JOB_",""PAT"",""C"",""NOT"")")

 +20               SET PT=0

                   FOR 

                       SET PT=$ORDER(BGPARR(PT))

                       IF PT=""

                           QUIT 

                       Begin DoDot:2

 +21                       SET PTCT=PTCT+1

 +22                       SET NODE=$GET(BGPARR(PT))

 +23                       DO D081(NODE)

                       End DoDot:2

               End DoDot:1

 +24       IF (BGPLIST="A")!(BGPLIST="N")&($DATA(^TMP("BGPMU0081",$JOB,"PAT","C","NUM")))

               Begin DoDot:1

 +25               KILL BGPARR

 +26               DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$JOB_",""PAT"",""C"",""NUM"")")

 +27               SET PT=0

                   FOR 

                       SET PT=$ORDER(BGPARR(PT))

                       IF PT=""

                           QUIT 

                       Begin DoDot:2

 +28                       SET PTCT=PTCT+1

 +29                       SET NODE=$GET(BGPARR(PT))

 +30                       DO D081(NODE)

                       End DoDot:2

               End DoDot:1

 +31      ;Excluded patients

 +32       IF BGPLIST="A"&($DATA(^TMP("BGPMU0081",$JOB,"PAT","C","EXC")))

               Begin DoDot:1

 +33               DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0081"","_$JOB_",""PAT"",""C"",""EXC"")")

 +34               SET PT=0

                   FOR 

                       SET PT=$ORDER(BGPARR(PT))

                       IF PT=""

                           QUIT 

                       Begin DoDot:2

 +35                       SET PTCT=PTCT+1

 +36                       SET NODE=$GET(BGPARR(PT))

 +37                       DO DEXC081(NODE)

                       End DoDot:2

               End DoDot:1

 +38       SET X="Total # of patients on list: "_PTCT

           DO S^BGPMUDEL(X,2,1)

 +39       QUIT 

 +40      ;

D081(NODE) ;GET DATA

 +1        NEW BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN

 +2        SET DFN=$PIECE(NODE,U,1)

 +3        SET NAME=$EXTRACT($$GET1^DIQ(2,$PIECE(NODE,U,1),.01),1,23)

 +4        SET HRN=$$HRN^AUPNPAT(DFN,DUZ(2))

 +5        SET AGE=$$AGE^AUPNPAT(DFN,BGPED)

 +6        SET SEX=$$SEX^AUPNPAT(DFN)

 +7        SET COMM=$EXTRACT($$GET1^DIQ(9000001,DFN,1118),1,10)

 +8        SET DEN=$PIECE(NODE,U,2)

 +9        SET NUM=$PIECE(NODE,U,3)

 +10       SET X=NAME_U_HRN_U_COMM_U_SEX_U_AGE_U_DEN_U_NUM

 +11       DO S^BGPMUDEL(X,1,1)

 +12       QUIT 

DEXC081(NODE) ;GET DATA

 +1        NEW BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN

 +2        SET DFN=$PIECE(NODE,U,1)

 +3        SET NAME=$EXTRACT($$GET1^DIQ(2,$PIECE(NODE,U,1),.01),1,23)

 +4        SET HRN=$$HRN^AUPNPAT(DFN,DUZ(2))

 +5        SET AGE=$$AGE^AUPNPAT(DFN,BGPED)

 +6        SET SEX=$$SEX^AUPNPAT(DFN)

 +7        SET COMM=$EXTRACT($$GET1^DIQ(9000001,DFN,1118),1,10)

 +8        SET DEN=$PIECE(NODE,U,2)

 +9        SET NUM=$PIECE(NODE,U,3)

 +10       SET X=NAME_U_HRN_U_COMM_U_SEX_U_AGE_U_DEN_U_"Excluded"

 +11       DO S^BGPMUDEL(X,1,1)

 +12       QUIT 

 +13      ;

SUM081    ;Populate "BGPMU SUMMARY" for Measure 0081

 +1       ;Initialize iCare/summary global

 +2        NEW BGPDNCNT,BGPSSTR,J

 +3        SET J=$JOB

 +4        SET BGPDNCNT=0

 +5        KILL ^TMP("BGPMU SUMMARY",J,BGPIC)

 +6        SET ^TMP("BGPMU SUMMARY",J,BGPIC)="0081"_U_"5"

 +7       ;Setup summary page/iCare ^TMP global

 +8       ;current

           SET CDEN1CT=+$GET(^TMP("BGPMU0081",J,"C","DEN"))

 +9        SET CNUM1CT=+$GET(^TMP("BGPMU0081",J,"C","NUM"))

 +10       SET CEXC1CT=+$GET(^TMP("BGPMU0081",J,"C","EXC"))

 +11       SET CMP=$SELECT((CDEN1CT-CEXC1CT)>0:$$ROUND^BGPMUA01(CNUM1CT/(CDEN1CT-CEXC1CT),3)*100,1:0)

 +12      ;previous

           SET PDEN1CT=+$GET(^TMP("BGPMU0081",J,"P","DEN"))

 +13       SET PNUM1CT=+$GET(^TMP("BGPMU0081",J,"P","NUM"))

 +14       SET PEXC1CT=+$GET(^TMP("BGPMU0081",J,"P","EXC"))

 +15       SET PMP=$SELECT((PDEN1CT-PEXC1CT)>0:$$ROUND^BGPMUA01(PNUM1CT/(PDEN1CT-PEXC1CT),3)*100,1:0)

 +16      ;baseline

           SET BDEN1CT=+$GET(^TMP("BGPMU0081",J,"B","DEN"))

 +17       SET BNUM1CT=+$GET(^TMP("BGPMU0081",J,"B","NUM"))

 +18       SET BEXC1CT=+$GET(^TMP("BGPMU0081",J,"B","EXC"))

 +19       SET BMP=$SELECT((BDEN1CT-BEXC1CT)>0:$$ROUND^BGPMUA01(BNUM1CT/(BDEN1CT-BEXC1CT),3)*100,1:0)

 +20       SET BGPDNCNT=BGPDNCNT+1

 +21       SET BGPSSTR="MU.EP.0081."_1_U_"# w/ACE inhibitor or ARB"_U_CEXC1CT_U_CDEN1CT_U_CNUM1CT_U_CMP_U_U_U_U

 +22      ; 11 12 13 14

 +23       SET BGPSSTR=BGPSSTR_U_""_U_PDEN1CT_U_PNUM1CT_U_PMP

 +24      ; 15 16 17 18

 +25       SET BGPSSTR=BGPSSTR_U_""_U_BDEN1CT_U_BNUM1CT_U_BMP

 +26       SET ^TMP("BGPMU SUMMARY",J,BGPIC,BGPDNCNT)=BGPSSTR

 +27       QUIT 

 +28      ;

XML0081   ;XML output for Measure 0081

 +1       ; BGPXML(i)=Population Number^Numerator Number^Denominator Count

 +2        NEW STRING

 +3        SET STRING=$$081^BGPMUDP2("C")

 +4        SET BGPXML(1)="NQF_0081"_U_U_+$PIECE(STRING,U,1)_U_+$PIECE(STRING,U,2)_U_$PIECE(STRING,U,4)

 +5        KILL ^TMP("BGPMU0081",$JOB)

 +6        QUIT 

 +7       ;

 +8       ;*****************

 +9       ;

 +10      ;Delimited output for Prenatal HIV Screening 0012 (BGPMUD04)

DENTRY    ;EP

 +1        DO P12B

 +2        KILL ^TMP("BGPMU0012",$JOB)

 +3        QUIT 

P12B      ;Write individual measure

 +1        NEW BGPPTYPE,X,Y,Z,DEN,NUM,PC,STRING1,STRING2,PRD,PRN,PRD1,PRN1

 +2        SET BGPPTYPE="D"

 +3        SET STRING1=$$012^BGPMUDP2("C")

 +4        SET STRING2=$$012^BGPMUDP2("P")

 +5        SET STRING3=$$012^BGPMUDP2("B")

 +6        DO SUM012