- BGPMUDP3 ; IHS/MSC/SAT - MU EH measure output routines;14-JUN-2011 16:30;DU
- ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2
- ;
- ;This routine does the printed output of 0014 Prenatal Anti-D Immune Globulin (BGPMUD05)
- P14ENT ;EP output routine for 0014 Prenatal Anti-D Immune Globulin
- D P14
- K ^TMP("BGPMU0014",$J)
- Q
- P14 ;Write individual measure
- N X,Y,Z,LIST1,LIST2,LIST3
- N DEN1,NUM1,EXC1,PC1,PC11,PC13,NONUM,STRING1,STRING2,STRING3,PRD1,PRD2,PRD3,PRD4,PRD5,PRD6,X
- S STRING1=$$014("C")
- S STRING2=$$014("P")
- S STRING3=$$014("B")
- S PRD1=$P(STRING1,U,1)-$P(STRING2,U,1) ;change from prev year (line 1)
- 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
- D HEADER^BGPMUPH Q:BGPQUIT
- W !
- D HDRBLK^BGPMUPH
- W !,"Pts D (Rh) neg, unsensitized",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
- W !,"w/live birth and prenatal"
- W !,"encounter"
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?64,$P(STRING3,U,4)
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"Pts D (Rh) neg, unsensitized",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?64,$P(STRING3,U,1)-$P(STRING3,U,4)
- W !,"w/live birth and prenatal"
- W !,"encounter less Exc"
- W !
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"# w/anti-D immune globulin",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6)
- W !,"26-30 weeks gestation"
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"# w/o anti-D immune globulin",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6)
- W !,"26-30 weeks gestation"
- I $D(BGPLIST(BGPIC)) D P14D
- D SUM014^BGPMUDD3
- Q
- 014(BGPMUTF) ;Get the numbers for this measure
- N ARRAY
- S DEN1=+$G(^TMP("BGPMU0014",$J,BGPMUTF,"DEN"))
- S NUM1=+$G(^TMP("BGPMU0014",$J,BGPMUTF,"NUM"))
- S NONUM=+$G(^TMP("BGPMU0014",$J,BGPMUTF,"NOT"))
- S EXC1=+$G(^TMP("BGPMU0014",$J,BGPMUTF,"EXC"))
- I DEN1=0 S (PC1,PC11,PC13)=0
- I DEN1>0 D
- .I DEN1-EXC1=0 S (PC1,PC11,PC13)=0
- .E D
- ..S PC1=$$ROUND^BGPMUA01((NUM1/(DEN1-EXC1)),3)*100
- ..S PC11=$$ROUND^BGPMUA01((NONUM/(DEN1-EXC1)),3)*100
- .S PC13=$$ROUND^BGPMUA01((EXC1/DEN1),3)*100
- S ARRAY=DEN1_U_NUM1_U_NONUM_U_EXC1_U_PC1_U_PC11_U_PC13_U_""
- Q ARRAY
- P14D ;Do the Details
- N PT,PTCNT,NODE,NAME,VST,BMI,FOL,X
- N BGPARR
- D HEADERL^BGPMUPH Q:BGPQUIT
- S X="D (Rh) negative, unsensitized patients, regardless of age, who gave birth" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="during the reporting period who received anti-D immune globulin at" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="26-30 weeks gestation." D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="Patients who do not meet the numerator criteria are listed first (NM:), followed" D W^BGPMUPP(X,0,2,BGPPTYPE)
- S X="by patients who do meet the numerator criteria (M:). Excluded patients are" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="listed last." D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="The following are the abbreviations used in the denominator and numerator" D W^BGPMUPP(X,0,2,BGPPTYPE)
- S X="columns:" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="DEL=Live birth delivery" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="EN=Prenatal encounter" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="MED=Anti-D immune globulin administered between 26 and 30 weeks gestation" D W^BGPMUPP(X,0,1,BGPPTYPE)
- ;
- I $Y>(BGPIOSL-2) D HEADERL^BGPMUPH Q:BGPQUIT
- W !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?52,"DENOMINATOR",?65,"NUMERATOR"
- S LINE="",$P(LINE,"-",81)="" W !,LINE
- S PTCT=0
- I (BGPLIST="A")!(BGPLIST="D")&$D(^TMP("BGPMU0014",$J,"PAT","C","NOT")) D
- .K BGPARR
- .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$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 D014(NODE)
- I (BGPLIST="A")!(BGPLIST="N")&($D(^TMP("BGPMU0014",$J,"PAT","C","NUM"))) D
- .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$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 D014(NODE)
- ;Excluded patients
- I BGPLIST="A"&($D(^TMP("BGPMU0014",$J,"PAT","C","EXC"))) D
- .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$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 D014(NODE)
- S X="Total # of patients on list: "_PTCT D W^BGPMUPP(X,0,2,BGPPTYPE)
- Q
- ;
- D014(NODE) ;GET DATA
- N BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN,DEN1,DEN2
- 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),DEN1=$P(DEN,";"),DEN2=$P(DEN,";",2)
- S NUM=$P(NODE,U,3)
- I $Y>(BGPIOSL-2) D
- .D HEADERL^BGPMUPH Q:BGPQUIT
- .W !,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?52,"DENOMINATOR",?65,"NUMERATOR"
- .S LINE="",$P(LINE,"-",81)="" W !,LINE
- W !,NAME,?25,HRN,?33,COMM,?44,SEX,?48,AGE,?52,DEN1,?65,NUM
- W:DEN2'="" !,?52,DEN2
- Q
- XML014 ;Populate the BGPXML array with data for each population/numerator
- ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
- S BGPXML(1)="NQF_014"_U_""_U_+$G(^TMP("BGPMU0014",$J,"C","DEN"))_U_+$G(^TMP("BGPMU0014",$J,"C","NUM"))_U_+$G(^TMP("BGPMU0014",$J,"C","EXC"))
- K ^TMP("BGPMU0018",$J)
- Q
- ;*********************
- ;
- ;This routine does the printed output of 0018 Control High Blood Pressure (BGPMUD06)
- P18ENT ;EP output routine for 0018 Prenatal Anti-D Immune Globulin
- D P18
- K ^TMP("BGPMU0018",$J)
- Q
- P18 ;Write individual measure
- N X,Y,Z,LIST1,LIST2,LIST3
- N DEN1,NUM1,EXC1,PC1,PC11,PC13,NONUM,STRING1,STRING2,STRING3,PRD1,PRD2,PRD3,PRD4,PRD5,PRD6,X
- S STRING1=$$018("C")
- S STRING2=$$018("P")
- S STRING3=$$018("B")
- S PRD1=$P(STRING1,U,1)-$P(STRING2,U,1) ;change from prev year (line 1)
- 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
- D HEADER^BGPMUPH Q:BGPQUIT
- W !
- D HDRBLK^BGPMUPH
- W !,"Pts 18-85 w/HTN",?33,$P(STRING1,U,1),?44,$P(STRING2,U,1),?64,$P(STRING3,U,1)
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- ;W !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
- ;I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- ;W !,"Pts 18-85 w/HTN Less Exc",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?65,$P(STRING3,U,1)-$P(STRING3,U,4)
- W !
- ;I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"# w/lowest BP < 140/90",?33,$P(STRING1,U,2),?38,$J($P(STRING1,U,5),5,1),?44,$P(STRING2,U,2),?49,$J($P(STRING2,U,5),5,1),?56,$J($FN(PRD2,",+",1),6),?64,$P(STRING3,U,2),?68,$J($P(STRING3,U,5),5,1),?74,$J($FN(PRD3,",+",1),6)
- I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- W !,"# w/o BP or lowest BP",?33,$P(STRING1,U,3),?38,$J($P(STRING1,U,6),5,1),?44,$P(STRING2,U,3),?49,$J($P(STRING2,U,6),5,1),?56,$J($FN(PRD4,",+",1),6),?64,$P(STRING3,U,3),?68,$J($P(STRING3,U,6),5,1),?74,$J($FN(PRD5,",+",1),6)
- W !,"=> 140/90"
- I $D(BGPLIST(BGPIC)) D P18D
- D SUM018^BGPMUDD3
- Q
- 018(BGPMUTF) ;Get the numbers for this measure
- N ARRAY
- S DEN1=+$G(^TMP("BGPMU0018",$J,BGPMUTF,"DEN",1))
- S NUM1=+$G(^TMP("BGPMU0018",$J,BGPMUTF,"NUM",1))
- S NONUM=+$G(^TMP("BGPMU0018",$J,BGPMUTF,"NOT",1))
- S EXC1=+$G(^TMP("BGPMU0018",$J,BGPMUTF,"EXC",1))
- I DEN1=0 S (PC1,PC11,PC13)=0
- I DEN1>0 D
- .I DEN1-EXC1=0 S (PC1,PC11,PC13)=0
- .E D
- ..S PC1=$$ROUND^BGPMUA01((NUM1/(DEN1-EXC1)),3)*100
- ..S PC11=$$ROUND^BGPMUA01((NONUM/(DEN1-EXC1)),3)*100
- .S PC13=$$ROUND^BGPMUA01((EXC1/DEN1),3)*100
- S ARRAY=DEN1_U_NUM1_U_NONUM_U_EXC1_U_PC1_U_PC11_U_PC13_U_""
- Q ARRAY
- P18D ;Do the Details
- N PT,PTCNT,NODE,NAME,VST,BMI,FOL,X
- N BGPARR
- D HEADERL^BGPMUPH Q:BGPQUIT
- S X="Hypertensive patients 18-85 years of age with at least 1 encounter with the EP" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="during the reporting period and whose lowest systolic BP reading was < 140 mmHg" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="and lowest diastolic BP reading was < 90 mmHg during the most recent encounter" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="with the EP during the reporting period, if any." D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="Patients who do not meet the numerator criteria are listed first (NM:), followed" D W^BGPMUPP(X,0,2,BGPPTYPE)
- S X="by patients who do meet the numerator criteria (M:)." D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="The following are the abbreviations used in the denominator and numerator" D W^BGPMUPP(X,0,2,BGPPTYPE)
- S X="columns:" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="ICD=Hypertension Diagnosis" D W^BGPMUPP(X,0,1,BGPPTYPE)
- S X="EN=ENCOUNTER" D W^BGPMUPP(X,0,1,BGPPTYPE)
- ;
- I $Y>(BGPIOSL-2) D HEADERL^BGPMUPH Q:BGPQUIT
- ;W !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?67,"NUMERATOR"
- W !!,"PATIENT NAME",?23,"HRN",?31,"COMMUNITY",?41,"SEX",?45,"AGE",?49,"DENOMINATOR",?62,"NUMERATOR"
- S LINE="",$P(LINE,"-",81)="" W !,LINE
- S PTCT=0
- I (BGPLIST="A")!(BGPLIST="D")&$D(^TMP("BGPMU0018",$J,"PAT","C","NOT",1)) D
- .K BGPARR
- .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0018"","_$J_",""PAT"",""C"",""NOT"","_1_")")
- .S PT=0 F S PT=$O(BGPARR(PT)) Q:PT="" D
- ..S PTCT=PTCT+1
- ..S NODE=$G(BGPARR(PT))
- ..D D018(NODE)
- I (BGPLIST="A")!(BGPLIST="N")&($D(^TMP("BGPMU0018",$J,"PAT","C","NUM",1))) D
- .D PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0018"","_$J_",""PAT"",""C"",""NUM"","_1_")")
- .S PT=0 F S PT=$O(BGPARR(PT)) Q:PT="" D
- ..S PTCT=PTCT+1
- ..S NODE=$G(BGPARR(PT))
- ..D D018(NODE)
- S X="Total # of patients on list: "_PTCT D W^BGPMUPP(X,0,2,BGPPTYPE)
- Q
- ;
- D018(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($P(NODE,U,2),";",1,2)
- S NUM=$P($P(NODE,U,2),";",3)
- I $Y>(BGPIOSL-2) D
- .D HEADERL^BGPMUPH Q:BGPQUIT
- .W !,"PATIENT NAME",?23,"HRN",?31,"COMMUNITY",?41,"SEX",?45,"AGE",?49,"DENOMINATOR",?62,"NUMERATOR"
- .S LINE="",$P(LINE,"-",81)="" W !,LINE
- W !,NAME,?23,HRN,?31,COMM,?41,SEX,?45,AGE,?49,$P(DEN,";",1),?62,$P(NUM,"*",1)
- W !,?49,$P(DEN,";",2),?62,$S($P(NUM,"*",2)'="":$P(NUM,"*",2),1:"")
- F BGPI=3:1:$L(NUM,"*") W !,?62,$P(NUM,"*",BGPI)
- Q
- ;
- XML018 ;Populate the BGPXML array with data for each population/numerator
- ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
- S BGPXML(1)="NQF_018"_U_""_U_+$G(^TMP("BGPMU0018",$J,"C","DEN",1))_U_+$G(^TMP("BGPMU0018",$J,"C","NUM",1))_U_+$G(^TMP("BGPMU0018",$J,"C","EXC",1))
- K ^TMP("BGPMU0018",$J)
- Q
- BGPMUDP3 ; IHS/MSC/SAT - MU EH measure output routines;14-JUN-2011 16:30;DU
- +1 ;;14.1;IHS CLINICAL REPORTING;**1**;MAY 29, 2014;Build 2
- +2 ;
- +3 ;This routine does the printed output of 0014 Prenatal Anti-D Immune Globulin (BGPMUD05)
- P14ENT ;EP output routine for 0014 Prenatal Anti-D Immune Globulin
- +1 DO P14
- +2 KILL ^TMP("BGPMU0014",$JOB)
- +3 QUIT
- P14 ;Write individual measure
- +1 NEW X,Y,Z,LIST1,LIST2,LIST3
- +2 NEW DEN1,NUM1,EXC1,PC1,PC11,PC13,NONUM,STRING1,STRING2,STRING3,PRD1,PRD2,PRD3,PRD4,PRD5,PRD6,X
- +3 SET STRING1=$$014("C")
- +4 SET STRING2=$$014("P")
- +5 SET STRING3=$$014("B")
- +6 ;change from prev year (line 1)
- SET PRD1=$PIECE(STRING1,U,1)-$PIECE(STRING2,U,1)
- +7 ;% change from prev year
- SET PRD2=$PIECE(STRING1,U,5)-$PIECE(STRING2,U,5)
- +8 ;% change from base year
- SET PRD3=$PIECE(STRING1,U,5)-$PIECE(STRING3,U,5)
- +9 ;% change from prev year
- SET PRD4=$PIECE(STRING1,U,6)-$PIECE(STRING2,U,6)
- +10 ;% change from prev year
- SET PRD5=$PIECE(STRING1,U,6)-$PIECE(STRING3,U,6)
- +11 DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +12 WRITE !
- +13 DO HDRBLK^BGPMUPH
- +14 WRITE !,"Pts D (Rh) neg, unsensitized",?33,$PIECE(STRING1,U,1),?44,$PIECE(STRING2,U,1),?64,$PIECE(STRING3,U,1)
- +15 WRITE !,"w/live birth and prenatal"
- +16 WRITE !,"encounter"
- +17 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +18 WRITE !,"# Excluded (Exc)",?33,$PIECE(STRING1,U,4),?44,$PIECE(STRING2,U,4),?64,$PIECE(STRING3,U,4)
- +19 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +20 WRITE !,"Pts D (Rh) neg, unsensitized",?33,$PIECE(STRING1,U,1)-$PIECE(STRING1,U,4),?44,$PIECE(STRING2,U,1)-$PIECE(STRING2,U,4),?64,$PIECE(STRING3,U,1)-$PIECE(STRING3,U,4)
- +21 WRITE !,"w/live birth and prenatal"
- +22 WRITE !,"encounter less Exc"
- +23 WRITE !
- +24 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +25 WRITE !,"# w/anti-D immune globulin",?33,$PIECE(STRING1,U,2),?38,$JUSTIFY($PIECE(STRING1,U,5),5,1),?44,$PIECE(STRING2,U,2),?49,...
- ... $JUSTIFY($PIECE(STRING2,U,5),5,1),?56,$JUSTIFY($FNUMBER(PRD2,",+",1),6),?64,$PIECE(STRING3,U,2),?68,$JUSTIFY($PIECE(STRING3,U,5),5,1),?74,$JUSTIFY($FNUMBER(PRD3,",+",1),6)
- +26 WRITE !,"26-30 weeks gestation"
- +27 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +28 WRITE !,"# w/o anti-D immune globulin",?33,$PIECE(STRING1,U,3),?38,$JUSTIFY($PIECE(STRING1,U,6),5,1),?44,$PIECE(STRING2,U,3),?49,...
- ... $JUSTIFY($PIECE(STRING2,U,6),5,1),?56,$JUSTIFY($FNUMBER(PRD4,",+",1),6),?64,$PIECE(STRING3,U,3),?68,$JUSTIFY($PIECE(STRING3,U,6),5,1),?74,$JUSTIFY($FNUMBER(PRD5,",+",1),6)
- +29 WRITE !,"26-30 weeks gestation"
- +30 IF $DATA(BGPLIST(BGPIC))
- DO P14D
- +31 DO SUM014^BGPMUDD3
- +32 QUIT
- 014(BGPMUTF) ;Get the numbers for this measure
- +1 NEW ARRAY
- +2 SET DEN1=+$GET(^TMP("BGPMU0014",$JOB,BGPMUTF,"DEN"))
- +3 SET NUM1=+$GET(^TMP("BGPMU0014",$JOB,BGPMUTF,"NUM"))
- +4 SET NONUM=+$GET(^TMP("BGPMU0014",$JOB,BGPMUTF,"NOT"))
- +5 SET EXC1=+$GET(^TMP("BGPMU0014",$JOB,BGPMUTF,"EXC"))
- +6 IF DEN1=0
- SET (PC1,PC11,PC13)=0
- +7 IF DEN1>0
- Begin DoDot:1
- +8 IF DEN1-EXC1=0
- SET (PC1,PC11,PC13)=0
- +9 IF '$TEST
- Begin DoDot:2
- +10 SET PC1=$$ROUND^BGPMUA01((NUM1/(DEN1-EXC1)),3)*100
- +11 SET PC11=$$ROUND^BGPMUA01((NONUM/(DEN1-EXC1)),3)*100
- End DoDot:2
- +12 SET PC13=$$ROUND^BGPMUA01((EXC1/DEN1),3)*100
- End DoDot:1
- +13 SET ARRAY=DEN1_U_NUM1_U_NONUM_U_EXC1_U_PC1_U_PC11_U_PC13_U_""
- +14 QUIT ARRAY
- P14D ;Do the Details
- +1 NEW PT,PTCNT,NODE,NAME,VST,BMI,FOL,X
- +2 NEW BGPARR
- +3 DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +4 SET X="D (Rh) negative, unsensitized patients, regardless of age, who gave birth"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +5 SET X="during the reporting period who received anti-D immune globulin at"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +6 SET X="26-30 weeks gestation."
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +7 SET X="Patients who do not meet the numerator criteria are listed first (NM:), followed"
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +8 SET X="by patients who do meet the numerator criteria (M:). Excluded patients are"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +9 SET X="listed last."
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +10 SET X="The following are the abbreviations used in the denominator and numerator"
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +11 SET X="columns:"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +12 SET X="DEL=Live birth delivery"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +13 SET X="EN=Prenatal encounter"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +14 SET X="MED=Anti-D immune globulin administered between 26 and 30 weeks gestation"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +15 ;
- +16 IF $Y>(BGPIOSL-2)
- DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +17 WRITE !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?52,"DENOMINATOR",?65,"NUMERATOR"
- +18 SET LINE=""
- SET $PIECE(LINE,"-",81)=""
- WRITE !,LINE
- +19 SET PTCT=0
- +20 IF (BGPLIST="A")!(BGPLIST="D")&$DATA(^TMP("BGPMU0014",$JOB,"PAT","C","NOT"))
- Begin DoDot:1
- +21 KILL BGPARR
- +22 DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$JOB_",""PAT"",""C"",""NOT"")")
- +23 SET PT=0
- FOR
- SET PT=$ORDER(BGPARR(PT))
- IF PT=""
- QUIT
- Begin DoDot:2
- +24 SET PTCT=PTCT+1
- +25 SET NODE=$GET(BGPARR(PT))
- +26 DO D014(NODE)
- End DoDot:2
- End DoDot:1
- +27 IF (BGPLIST="A")!(BGPLIST="N")&($DATA(^TMP("BGPMU0014",$JOB,"PAT","C","NUM")))
- Begin DoDot:1
- +28 DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$JOB_",""PAT"",""C"",""NUM"")")
- +29 SET PT=0
- FOR
- SET PT=$ORDER(BGPARR(PT))
- IF PT=""
- QUIT
- Begin DoDot:2
- +30 SET PTCT=PTCT+1
- +31 SET NODE=$GET(BGPARR(PT))
- +32 DO D014(NODE)
- End DoDot:2
- End DoDot:1
- +33 ;Excluded patients
- +34 IF BGPLIST="A"&($DATA(^TMP("BGPMU0014",$JOB,"PAT","C","EXC")))
- Begin DoDot:1
- +35 DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0014"","_$JOB_",""PAT"",""C"",""EXC"")")
- +36 SET PT=0
- FOR
- SET PT=$ORDER(BGPARR(PT))
- IF PT=""
- QUIT
- Begin DoDot:2
- +37 SET PTCT=PTCT+1
- +38 SET NODE=$GET(BGPARR(PT))
- +39 DO D014(NODE)
- End DoDot:2
- End DoDot:1
- +40 SET X="Total # of patients on list: "_PTCT
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +41 QUIT
- +42 ;
- D014(NODE) ;GET DATA
- +1 NEW BGPI,DATA,NAME,HRN,DEN,NUM,AGE,DFN,DEN1,DEN2
- +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)
- SET DEN1=$PIECE(DEN,";")
- SET DEN2=$PIECE(DEN,";",2)
- +9 SET NUM=$PIECE(NODE,U,3)
- +10 IF $Y>(BGPIOSL-2)
- Begin DoDot:1
- +11 DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +12 WRITE !,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?52,"DENOMINATOR",?65,"NUMERATOR"
- +13 SET LINE=""
- SET $PIECE(LINE,"-",81)=""
- WRITE !,LINE
- End DoDot:1
- +14 WRITE !,NAME,?25,HRN,?33,COMM,?44,SEX,?48,AGE,?52,DEN1,?65,NUM
- +15 IF DEN2'=""
- WRITE !,?52,DEN2
- +16 QUIT
- XML014 ;Populate the BGPXML array with data for each population/numerator
- +1 ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
- +2 SET BGPXML(1)="NQF_014"_U_""_U_+$GET(^TMP("BGPMU0014",$JOB,"C","DEN"))_U_+$GET(^TMP("BGPMU0014",$JOB,"C","NUM"))_U_+$GET(^TMP("BGPMU0014",$JOB,"C","EXC"))
- +3 KILL ^TMP("BGPMU0018",$JOB)
- +4 QUIT
- +5 ;*********************
- +6 ;
- +7 ;This routine does the printed output of 0018 Control High Blood Pressure (BGPMUD06)
- P18ENT ;EP output routine for 0018 Prenatal Anti-D Immune Globulin
- +1 DO P18
- +2 KILL ^TMP("BGPMU0018",$JOB)
- +3 QUIT
- P18 ;Write individual measure
- +1 NEW X,Y,Z,LIST1,LIST2,LIST3
- +2 NEW DEN1,NUM1,EXC1,PC1,PC11,PC13,NONUM,STRING1,STRING2,STRING3,PRD1,PRD2,PRD3,PRD4,PRD5,PRD6,X
- +3 SET STRING1=$$018("C")
- +4 SET STRING2=$$018("P")
- +5 SET STRING3=$$018("B")
- +6 ;change from prev year (line 1)
- SET PRD1=$PIECE(STRING1,U,1)-$PIECE(STRING2,U,1)
- +7 ;% change from prev year
- SET PRD2=$PIECE(STRING1,U,5)-$PIECE(STRING2,U,5)
- +8 ;% change from base year
- SET PRD3=$PIECE(STRING1,U,5)-$PIECE(STRING3,U,5)
- +9 ;% change from prev year
- SET PRD4=$PIECE(STRING1,U,6)-$PIECE(STRING2,U,6)
- +10 ;% change from prev year
- SET PRD5=$PIECE(STRING1,U,6)-$PIECE(STRING3,U,6)
- +11 DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +12 WRITE !
- +13 DO HDRBLK^BGPMUPH
- +14 WRITE !,"Pts 18-85 w/HTN",?33,$PIECE(STRING1,U,1),?44,$PIECE(STRING2,U,1),?64,$PIECE(STRING3,U,1)
- +15 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +16 ;W !,"# Excluded (Exc)",?33,$P(STRING1,U,4),?44,$P(STRING2,U,4),?65,$P(STRING3,U,4)
- +17 ;I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- +18 ;W !,"Pts 18-85 w/HTN Less Exc",?33,$P(STRING1,U,1)-$P(STRING1,U,4),?44,$P(STRING2,U,1)-$P(STRING2,U,4),?65,$P(STRING3,U,1)-$P(STRING3,U,4)
- +19 WRITE !
- +20 ;I $Y>(BGPIOSL-3) D HEADER^BGPMUPH Q:BGPQUIT
- +21 WRITE !,"# w/lowest BP < 140/90",?33,$PIECE(STRING1,U,2),?38,$JUSTIFY($PIECE(STRING1,U,5),5,1),?44,$PIECE(STRING2,U,2),?49,$JUSTIFY(...
- ... $PIECE(STRING2,U,5),5,1),?56,$JUSTIFY($FNUMBER(PRD2,",+",1),6),?64,$PIECE(STRING3,U,2),?68,$JUSTIFY($PIECE(STRING3,U,5),5,1),?74,$JUSTIFY($FNUMBER(PRD3,",+",1),6)
- +22 IF $Y>(BGPIOSL-3)
- DO HEADER^BGPMUPH
- IF BGPQUIT
- QUIT
- +23 WRITE !,"# w/o BP or lowest BP",?33,$PIECE(STRING1,U,3),?38,$JUSTIFY($PIECE(STRING1,U,6),5,1),?44,$PIECE(STRING2,U,3),?49,$JUSTIFY(...
- ... $PIECE(STRING2,U,6),5,1),?56,$JUSTIFY($FNUMBER(PRD4,",+",1),6),?64,$PIECE(STRING3,U,3),?68,$JUSTIFY($PIECE(STRING3,U,6),5,1),?74,$JUSTIFY($FNUMBER(PRD5,",+",1),6)
- +24 WRITE !,"=> 140/90"
- +25 IF $DATA(BGPLIST(BGPIC))
- DO P18D
- +26 DO SUM018^BGPMUDD3
- +27 QUIT
- 018(BGPMUTF) ;Get the numbers for this measure
- +1 NEW ARRAY
- +2 SET DEN1=+$GET(^TMP("BGPMU0018",$JOB,BGPMUTF,"DEN",1))
- +3 SET NUM1=+$GET(^TMP("BGPMU0018",$JOB,BGPMUTF,"NUM",1))
- +4 SET NONUM=+$GET(^TMP("BGPMU0018",$JOB,BGPMUTF,"NOT",1))
- +5 SET EXC1=+$GET(^TMP("BGPMU0018",$JOB,BGPMUTF,"EXC",1))
- +6 IF DEN1=0
- SET (PC1,PC11,PC13)=0
- +7 IF DEN1>0
- Begin DoDot:1
- +8 IF DEN1-EXC1=0
- SET (PC1,PC11,PC13)=0
- +9 IF '$TEST
- Begin DoDot:2
- +10 SET PC1=$$ROUND^BGPMUA01((NUM1/(DEN1-EXC1)),3)*100
- +11 SET PC11=$$ROUND^BGPMUA01((NONUM/(DEN1-EXC1)),3)*100
- End DoDot:2
- +12 SET PC13=$$ROUND^BGPMUA01((EXC1/DEN1),3)*100
- End DoDot:1
- +13 SET ARRAY=DEN1_U_NUM1_U_NONUM_U_EXC1_U_PC1_U_PC11_U_PC13_U_""
- +14 QUIT ARRAY
- P18D ;Do the Details
- +1 NEW PT,PTCNT,NODE,NAME,VST,BMI,FOL,X
- +2 NEW BGPARR
- +3 DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +4 SET X="Hypertensive patients 18-85 years of age with at least 1 encounter with the EP"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +5 SET X="during the reporting period and whose lowest systolic BP reading was < 140 mmHg"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +6 SET X="and lowest diastolic BP reading was < 90 mmHg during the most recent encounter"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +7 SET X="with the EP during the reporting period, if any."
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +8 SET X="Patients who do not meet the numerator criteria are listed first (NM:), followed"
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +9 SET X="by patients who do meet the numerator criteria (M:)."
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +10 SET X="The following are the abbreviations used in the denominator and numerator"
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +11 SET X="columns:"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +12 SET X="ICD=Hypertension Diagnosis"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +13 SET X="EN=ENCOUNTER"
- DO W^BGPMUPP(X,0,1,BGPPTYPE)
- +14 ;
- +15 IF $Y>(BGPIOSL-2)
- DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +16 ;W !!,"PATIENT NAME",?25,"HRN",?33,"COMMUNITY",?44,"SEX",?48,"AGE",?53,"DENOMINATOR",?67,"NUMERATOR"
- +17 WRITE !!,"PATIENT NAME",?23,"HRN",?31,"COMMUNITY",?41,"SEX",?45,"AGE",?49,"DENOMINATOR",?62,"NUMERATOR"
- +18 SET LINE=""
- SET $PIECE(LINE,"-",81)=""
- WRITE !,LINE
- +19 SET PTCT=0
- +20 IF (BGPLIST="A")!(BGPLIST="D")&$DATA(^TMP("BGPMU0018",$JOB,"PAT","C","NOT",1))
- Begin DoDot:1
- +21 KILL BGPARR
- +22 DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0018"","_$JOB_",""PAT"",""C"",""NOT"","_1_")")
- +23 SET PT=0
- FOR
- SET PT=$ORDER(BGPARR(PT))
- IF PT=""
- QUIT
- Begin DoDot:2
- +24 SET PTCT=PTCT+1
- +25 SET NODE=$GET(BGPARR(PT))
- +26 DO D018(NODE)
- End DoDot:2
- End DoDot:1
- +27 IF (BGPLIST="A")!(BGPLIST="N")&($DATA(^TMP("BGPMU0018",$JOB,"PAT","C","NUM",1)))
- Begin DoDot:1
- +28 DO PTLSORT^BGPMUUTL(.BGPARR,"^TMP(""BGPMU0018"","_$JOB_",""PAT"",""C"",""NUM"","_1_")")
- +29 SET PT=0
- FOR
- SET PT=$ORDER(BGPARR(PT))
- IF PT=""
- QUIT
- Begin DoDot:2
- +30 SET PTCT=PTCT+1
- +31 SET NODE=$GET(BGPARR(PT))
- +32 DO D018(NODE)
- End DoDot:2
- End DoDot:1
- +33 SET X="Total # of patients on list: "_PTCT
- DO W^BGPMUPP(X,0,2,BGPPTYPE)
- +34 QUIT
- +35 ;
- D018(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($PIECE(NODE,U,2),";",1,2)
- +9 SET NUM=$PIECE($PIECE(NODE,U,2),";",3)
- +10 IF $Y>(BGPIOSL-2)
- Begin DoDot:1
- +11 DO HEADERL^BGPMUPH
- IF BGPQUIT
- QUIT
- +12 WRITE !,"PATIENT NAME",?23,"HRN",?31,"COMMUNITY",?41,"SEX",?45,"AGE",?49,"DENOMINATOR",?62,"NUMERATOR"
- +13 SET LINE=""
- SET $PIECE(LINE,"-",81)=""
- WRITE !,LINE
- End DoDot:1
- +14 WRITE !,NAME,?23,HRN,?31,COMM,?41,SEX,?45,AGE,?49,$PIECE(DEN,";",1),?62,$PIECE(NUM,"*",1)
- +15 WRITE !,?49,$PIECE(DEN,";",2),?62,$SELECT($PIECE(NUM,"*",2)'="":$PIECE(NUM,"*",2),1:"")
- +16 FOR BGPI=3:1:$LENGTH(NUM,"*")
- WRITE !,?62,$PIECE(NUM,"*",BGPI)
- +17 QUIT
- +18 ;
- XML018 ;Populate the BGPXML array with data for each population/numerator
- +1 ; BGPXMLOUT(i)=Population Number^Numerator Number^Denominator Count^Numerator Count^Exclusion Count
- +2 SET BGPXML(1)="NQF_018"_U_""_U_+$GET(^TMP("BGPMU0018",$JOB,"C","DEN",1))_U_+$GET(^TMP("BGPMU0018",$JOB,"C","NUM",1))_U_+$GET(^TMP("BGPMU0018",$JOB,"C","EXC",1))
- +3 KILL ^TMP("BGPMU0018",$JOB)
- +4 QUIT