BUDCRP7F ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2015 6:10 AM 30 Dec 2015 8:12 PM ;
;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
;
;
PRINT ;EP
; BUDPG=0
;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
;S BUDQUIT=0
D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
W ?29,"|",?39,"|",?49,"|",?59,"|",?62,"Black/",?69,"|",! ;,?79,"|",!
W ?29,"|",?39,"|",?41,"Native",?49,"|",?51,"Pacific",?59,"|",?61,"African",?69,"|",! ;,?79,"|",!
W ?29,"|",?32,"Asian",?39,"|",?41,"Hawaiian",?49,"|",?51,"Islander",?59,"|",?61,"American",?69,"|",! ;,?79,"|",!
W ?29,"|",?33,"(a)",?39,"|",?42,"(b1)",?49,"|",?52,"(b2)",?59,"|",?62,"(c)",?69,"|",! ;,?79,"|",!
D LINE
W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",! ;,?79,"|",!
;W "HIV Positive",?29,"|",$$C($P($G(BUDSECTH(1)),U,9)),?39,"|",$$C($P($G(BUDSECTH(1)),U,10)),?49,"|",$$C($P($G(BUDSECTH(1)),U,11)),?59,"|",$$C($P($G(BUDSECTH(1)),U,12)),?69,"|",!
D LINE2
W "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$S(BUDPREN=0:"X",1:""),")",?69,"|",!
D LINE
W $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE",80),?69,"|",!,$$CTR("AND HISPANIC/LATINO IDENTITY",80),?69,"|",!
D LINE
;W $$CTR("Deliveries and Babies by birth weight"),?69,"|",!
;D LINE
W ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"the year",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",! ;?69,"|",?79,"|",! ?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",! ;,?79,"|",!
W ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",! ;,?79,"|",!
D LINE2
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",! ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"2499 grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",! ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"5",?5,"Live Births >=2500",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",! ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
D LINE1
;SECTION B
I $Y>(IOSL-16) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?69,"|",!
W $$CTR("SECTION B: HYPERTENSION BY RACE AND HISPANIC/LATINO IDENTITY",70),?69,"|",! ;,?79,"|",!
D LINE
W $$CTR("Patients 18 to 85 diagnosed with hypertension whose last ",70),?69,"|",! ;,?79,"|",!
W $$CTR("blood pressure was less than 140/90",70),?69,"|",! ;,?79,"|",!
D LINE
W ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"patients",?29,"|",$$C($P($G(BUDSECTB(6)),U,9)),?39,"|",$$C($P($G(BUDSECTB(6)),U,10)),?49,"|",$$C($P($G(BUDSECTB(6)),U,11)),?59,"|",$$C($P($G(BUDSECTB(6)),U,12)),?69,"|",! ;,?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"7",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTB(7)),U,9)),?39,"|",$$C($P($G(BUDSECTB(7)),U,10)),?49,"|",$$C($P($G(BUDSECTB(7)),U,11)),?59,"|",$$C($P($G(BUDSECTB(7)),U,12)),?69,"|",! ;,?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H
W ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"HTN controlled",?29,"|",$$C($P($G(BUDSECTB(8)),U,9)),?39,"|",$$C($P($G(BUDSECTB(8)),U,10)),?49,"|",$$C($P($G(BUDSECTB(8)),U,11)),?59,"|",$$C($P($G(BUDSECTB(8)),U,12)),?69,"|",!
D LINE1
D DMRACE1^BUDCRP7G ;rest of page 1
NEXT ;second page of sections a,b
D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
W ?29,"|",?31,"American",?39,"|",?49,"|",?52,"More",?59,"|",?60,"Unreport-",?69,"|",! ;?79,"|",!
W ?29,"|",?31,"Indian/",?39,"|",?42,"",?49,"|",?52,"than",?59,"|",?60,"ed/",?69,"|",! ;?79,"|",!
W ?29,"|",?31,"Alaska",?39,"|",?42,"",?49,"|",?52,"one",?59,"|",?60,"Refused",?69,"|",! ;?79,"|",!
W ?29,"|",?31,"Native",?39,"|",?42,"White",?49,"|",?52,"race",?59,"|",?60,"to Report",?69,"|",! ;?72,"Total",?79,"|",!
W ?29,"|",?33,"(d)",?39,"|",?42,"(e)",?49,"|",?52,"(f)",?59,"|",?62,"(g)",?69,"|",! ;?72,"(h)",?79,"|",!
D LINE
;W "HIV Positive",?29,"|",?59,"|",! ;,?79,"|",
;W "Pregnant Women",?29,"|*****************************",?59,"|",! ;,?79,"|",!
W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!
;W "HIV Positive",?29,"|",?59,"|",! ;,?79,"|",
;W "Pregnant Women",?29,"|",$$C($P($G(BUDSECTH(1)),U,13)),?39,"|",$$C($P($G(BUDSECTH(1)),U,14)),?49,"|",$$C($P($G(BUDSECTH(1)),U,15)),?59,"|",!
D LINE2
W "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$S(BUDPREN=0:"X",1:""),")",?69,"|",!
D LINE
W $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE AND ",70),?69,"|",!
W $$CTR("HISPANIC/LATINO IDENTITY",70),?69,"|",!
D LINE
;W $$CTR("Deliveries and Babies by birth weight",70),?69,"|",!
;D LINE
W ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
W ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
W ?5,"the year",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",! ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"2",?5,"Deliveries performed",?29,"|",?59,"|",?69,"|",!
W ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",!
D LINE2 ;W $$REPEAT^XLFSTR("_",29),?29,"|_______________________________________",?69,"|",?79,"|",!
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
W ?5,"grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",! ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
W ?5,"2499 grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",! ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;,?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"5",?5,"Live Births >=2500",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",! ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;,?59,"|",?69,"|",?79,"|",!
D LINE1
;SECTION B
I $Y>(IOSL-16) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?69,"|",!
W $$CTR("SECTION B: HYPERTENSION BY RACE AND ",60),?69,"|",!,$$CTR("HISPANIC/LATINO IDENTITY",70),?69,"|",!
D LINE
W $$CTR("Patients diagnosed with hypertension whose last",70),?69,"|",!
W $$CTR("blood pressure was less than 140/90",70),?69,"|",!
D LINE
W ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,! ;"|",!
W ?5,"patients",?29,"|",$$C($P($G(BUDSECTB(6)),U,13)),?39,"|",$$C($P($G(BUDSECTB(6)),U,14)),?49,"|",$$C($P($G(BUDSECTB(6)),U,15)),?59,"|",$$C($P($G(BUDSECTB(6)),U,16)),?69,"|",! ;$$C($P($G(BUDSECTB(6)),U,9)),?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"7",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTB(7)),U,13)),?39,"|",$$C($P($G(BUDSECTB(7)),U,14)),?49,"|",$$C($P($G(BUDSECTB(7)),U,15)),?59,"|",$$C($P($G(BUDSECTB(7)),U,16)),?69,"|",! ;$$C($P($G(BUDSECTB(7)),U,9)),?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUDCRPTP Q:BUDQUIT D T7H1
W ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",! ;,?59,"|",?69,"|",?79,"|",!
W ?5,"HTN controlled",?29,"|",$$C($P($G(BUDSECTB(8)),U,13)),?39,"|",$$C($P($G(BUDSECTB(8)),U,14)),?49,"|",$$C($P($G(BUDSECTB(8)),U,15)),?59,"|",$$C($P($G(BUDSECTB(8)),U,16)),?69,"|",! ;$$C($P($G(BUDSECTB(8)),U,9)),?79,"|",!
D LINE1
D DMRACE2^BUDCRP7G
Q
;
;
T7H ;EP
W !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",69),! ;,!?41,"HISPANIC/LATINO",!
Q
LINE ;EP
W $$REPEAT^XLFSTR("_",69),?69,"|",!
Q
LINE1 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",! ;$$REPEAT^XLFSTR("_",9),?79,"|",!
Q
LINE2 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|",! ;_________",?79,"|",!
Q
;
LINE3 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",49),?79,"|",!
Q
T7H1 ;EP
W !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES",60),!,$$REPEAT^XLFSTR("_",69),! ;,!?41,"HISPANIC/LATINO",!
Q
LINE4 ;EP
W $$REPEAT^XLFSTR("_",59),?59,"|",!
Q
LINE5 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",! ;$$REPEAT^XLFSTR("_",9),?69,"|",! ;$$REPEAT^XLFSTR("_",9),?79,"|",!
Q
LINE6 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",29),?59,"|",! ;_________",?79,"|",!
Q
;
LINE7 ;EP
W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",29),?59,"|",!
Q
CTR(X,Y) ;EP - Center X in a field Y wide.
Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
;----------
USR() ;EP - Return name of current user from ^VA(200.
Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
;----------
PAUSE ;
K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
Q
C(X,Y) ;
I $G(Y)=1,+X=0 Q ""
I $G(Y)=2 Q "********"
S X2=0,X3=8
D COMMA^%DTC
Q X
BUDCRP7F ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2015 6:10 AM 30 Dec 2015 8:12 PM ;
+1 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
+2 ;
+3 ;
PRINT ;EP
+1 ; BUDPG=0
+2 ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
+3 ;S BUDQUIT=0
+4 DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+5 WRITE ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
+6 ;,?79,"|",!
WRITE ?29,"|",?39,"|",?49,"|",?59,"|",?62,"Black/",?69,"|",!
+7 ;,?79,"|",!
WRITE ?29,"|",?39,"|",?41,"Native",?49,"|",?51,"Pacific",?59,"|",?61,"African",?69,"|",!
+8 ;,?79,"|",!
WRITE ?29,"|",?32,"Asian",?39,"|",?41,"Hawaiian",?49,"|",?51,"Islander",?59,"|",?61,"American",?69,"|",!
+9 ;,?79,"|",!
WRITE ?29,"|",?33,"(a)",?39,"|",?42,"(b1)",?49,"|",?52,"(b2)",?59,"|",?62,"(c)",?69,"|",!
+10 DO LINE
+11 ;,?79,"|",!
WRITE "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!
+12 ;W "HIV Positive",?29,"|",$$C($P($G(BUDSECTH(1)),U,9)),?39,"|",$$C($P($G(BUDSECTH(1)),U,10)),?49,"|",$$C($P($G(BUDSECTH(1)),U,11)),?59,"|",$$C($P($G(BUDSECTH(1)),U,12)),?69,"|",!
+13 DO LINE2
+14 WRITE "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$SELECT(BUDPREN=0:"X",1:""),")",?69,"|",!
+15 DO LINE
+16 WRITE $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE",80),?69,"|",!,$$CTR("AND HISPANIC/LATINO IDENTITY",80),?69,"|",!
+17 DO LINE
+18 ;W $$CTR("Deliveries and Babies by birth weight"),?69,"|",!
+19 ;D LINE
+20 ;,?79,"|",!
WRITE ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+21 ;,?79,"|",!
WRITE ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+22 ;?69,"|",?79,"|",! ?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
WRITE ?5,"the year",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",!
+23 DO LINE1
+24 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+25 ;,?79,"|",!
WRITE ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",!
+26 ;,?79,"|",!
WRITE ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",!
+27 DO LINE2
+28 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+29 ;,?79,"|",!
WRITE ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+30 ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
WRITE ?5,"grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",!
+31 DO LINE1
+32 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+33 ;,?79,"|",!
WRITE ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+34 ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
WRITE ?5,"2499 grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",!
+35 DO LINE1
+36 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+37 ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
WRITE ?2,"5",?5,"Live Births >=2500",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"| ",BUDXX,?69,"|",!
+38 DO LINE1
+39 ;SECTION B
+40 IF $Y>(IOSL-16)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+41 WRITE ?69,"|",!
+42 ;,?79,"|",!
WRITE $$CTR("SECTION B: HYPERTENSION BY RACE AND HISPANIC/LATINO IDENTITY",70),?69,"|",!
+43 DO LINE
+44 ;,?79,"|",!
WRITE $$CTR("Patients 18 to 85 diagnosed with hypertension whose last ",70),?69,"|",!
+45 ;,?79,"|",!
WRITE $$CTR("blood pressure was less than 140/90",70),?69,"|",!
+46 DO LINE
+47 ;,?79,"|",!
WRITE ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+48 ;,?79,"|",!
WRITE ?5,"patients",?29,"|",$$C($PIECE($GET(BUDSECTB(6)),U,9)),?39,"|",$$C($PIECE($GET(BUDSECTB(6)),U,10)),?49,"|",$$C($PIECE($GET(BUDSECTB(6)),U,11)),?59,"|",$$C($PIECE($GET(BUDSECTB(6)),U,12)),?69,"|",!
+49 DO LINE1
+50 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+51 ;,?79,"|",!
WRITE ?2,"7",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+52 ;,?79,"|",!
WRITE ?5,"EHR total",?29,"|",$$C($PIECE($GET(BUDSECTB(7)),U,9)),?39,"|",$$C($PIECE($GET(BUDSECTB(7)),U,10)),?49,"|",$$C($PIECE($GET(BUDSECTB(7)),U,11)),?59,"|",$$C($PIECE($GET(BUDSECTB(7)),U,12)),?69,"|",!
+53 DO LINE1
+54 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H
+55 ;,?79,"|",!
WRITE ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+56 ;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+57 WRITE ?5,"HTN controlled",?29,"|",$$C($PIECE($GET(BUDSECTB(8)),U,9)),?39,"|",$$C($PIECE($GET(BUDSECTB(8)),U,10)),?49,"|",$$C($PIECE($GET(BUDSECTB(8)),U,11)),?59,"|",$$C($PIECE($GET(BUDSECTB(8)),U,12)),?69,"|",!
+58 DO LINE1
+59 ;rest of page 1
DO DMRACE1^BUDCRP7G
NEXT ;second page of sections a,b
+1 DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+2 WRITE ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
+3 ;?79,"|",!
WRITE ?29,"|",?31,"American",?39,"|",?49,"|",?52,"More",?59,"|",?60,"Unreport-",?69,"|",!
+4 ;?79,"|",!
WRITE ?29,"|",?31,"Indian/",?39,"|",?42,"",?49,"|",?52,"than",?59,"|",?60,"ed/",?69,"|",!
+5 ;?79,"|",!
WRITE ?29,"|",?31,"Alaska",?39,"|",?42,"",?49,"|",?52,"one",?59,"|",?60,"Refused",?69,"|",!
+6 ;?72,"Total",?79,"|",!
WRITE ?29,"|",?31,"Native",?39,"|",?42,"White",?49,"|",?52,"race",?59,"|",?60,"to Report",?69,"|",!
+7 ;?72,"(h)",?79,"|",!
WRITE ?29,"|",?33,"(d)",?39,"|",?42,"(e)",?49,"|",?52,"(f)",?59,"|",?62,"(g)",?69,"|",!
+8 DO LINE
+9 ;W "HIV Positive",?29,"|",?59,"|",! ;,?79,"|",
+10 ;W "Pregnant Women",?29,"|*****************************",?59,"|",! ;,?79,"|",!
+11 WRITE "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!
+12 ;W "HIV Positive",?29,"|",?59,"|",! ;,?79,"|",
+13 ;W "Pregnant Women",?29,"|",$$C($P($G(BUDSECTH(1)),U,13)),?39,"|",$$C($P($G(BUDSECTH(1)),U,14)),?49,"|",$$C($P($G(BUDSECTH(1)),U,15)),?59,"|",!
+14 DO LINE2
+15 WRITE "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$SELECT(BUDPREN=0:"X",1:""),")",?69,"|",!
+16 DO LINE
+17 WRITE $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE AND ",70),?69,"|",!
+18 WRITE $$CTR("HISPANIC/LATINO IDENTITY",70),?69,"|",!
+19 DO LINE
+20 ;W $$CTR("Deliveries and Babies by birth weight",70),?69,"|",!
+21 ;D LINE
+22 ;,?79,"|",!
WRITE ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+23 ;?79,"|",!
WRITE ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+24 ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;?69,"|",?79,"|",!
WRITE ?5,"the year",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",!
+25 DO LINE1
+26 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+27 WRITE ?2,"2",?5,"Deliveries performed",?29,"|",?59,"|",?69,"|",!
+28 WRITE ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",!
+29 ;W $$REPEAT^XLFSTR("_",29),?29,"|_______________________________________",?69,"|",?79,"|",!
DO LINE2
+30 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+31 ;?79,"|",!
WRITE ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+32 ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;?69,"|",?79,"|",!
WRITE ?5,"grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",!
+33 DO LINE1
+34 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+35 ;?79,"|",!
WRITE ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+36 ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;,?59,"|",?69,"|",?79,"|",!
WRITE ?5,"2499 grams",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",!
+37 DO LINE1
+38 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+39 ;?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",! ;,?59,"|",?69,"|",?79,"|",!
WRITE ?2,"5",?5,"Live Births >=2500",?29,"| ",BUDXX,?39,"| ",BUDXX,?49,"| ",BUDXX,?59,"|",?69,"|",!
+40 DO LINE1
+41 ;SECTION B
+42 IF $Y>(IOSL-16)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+43 WRITE ?69,"|",!
+44 WRITE $$CTR("SECTION B: HYPERTENSION BY RACE AND ",60),?69,"|",!,$$CTR("HISPANIC/LATINO IDENTITY",70),?69,"|",!
+45 DO LINE
+46 WRITE $$CTR("Patients diagnosed with hypertension whose last",70),?69,"|",!
+47 WRITE $$CTR("blood pressure was less than 140/90",70),?69,"|",!
+48 DO LINE
+49 ;"|",!
WRITE ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,!
+50 ;$$C($P($G(BUDSECTB(6)),U,9)),?79,"|",!
WRITE ?5,"patients",?29,"|",$$C($PIECE($GET(BUDSECTB(6)),U,13)),?39,"|",$$C($PIECE($GET(BUDSECTB(6)),U,14)),?49,"|",$$C($PIECE($GET(BUDSECTB(6)),U,15)),?59,"|",$$C($PIECE($GET(BUDSECTB(6)),U,16)),?69,"|",!
+51 DO LINE1
+52 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+53 ;?79,"|",!
WRITE ?2,"7",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+54 ;$$C($P($G(BUDSECTB(7)),U,9)),?79,"|",!
WRITE ?5,"EHR total",?29,"|",$$C($PIECE($GET(BUDSECTB(7)),U,13)),?39,"|",$$C($PIECE($GET(BUDSECTB(7)),U,14)),?49,"|",$$C($PIECE($GET(BUDSECTB(7)),U,15)),?59,"|",$$C($PIECE($GET(BUDSECTB(7)),U,16)),?69,"|",!
+55 DO LINE1
+56 IF $Y>(IOSL-3)
DO HEADER^BUDCRPTP
IF BUDQUIT
QUIT
DO T7H1
+57 ;?79,"|",!
WRITE ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
+58 ;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",! ;,?59,"|",?69,"|",?79,"|",!
+59 ;$$C($P($G(BUDSECTB(8)),U,9)),?79,"|",!
WRITE ?5,"HTN controlled",?29,"|",$$C($PIECE($GET(BUDSECTB(8)),U,13)),?39,"|",$$C($PIECE($GET(BUDSECTB(8)),U,14)),?49,"|",$$C($PIECE($GET(BUDSECTB(8)),U,15)),?59,"|",$$C($PIECE($GET(BUDSECTB(8)),U,16)),?69,"|",!
+60 DO LINE1
+61 DO DMRACE2^BUDCRP7G
+62 QUIT
+63 ;
+64 ;
T7H ;EP
+1 ;,!?41,"HISPANIC/LATINO",!
WRITE !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",69),!
+2 QUIT
LINE ;EP
+1 WRITE $$REPEAT^XLFSTR("_",69),?69,"|",!
+2 QUIT
LINE1 ;EP
+1 ;$$REPEAT^XLFSTR("_",9),?79,"|",!
WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",!
+2 QUIT
LINE2 ;EP
+1 ;_________",?79,"|",!
WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|",!
+2 QUIT
+3 ;
LINE3 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",49),?79,"|",!
+2 QUIT
T7H1 ;EP
+1 ;,!?41,"HISPANIC/LATINO",!
WRITE !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES",60),!,$$REPEAT^XLFSTR("_",69),!
+2 QUIT
LINE4 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",59),?59,"|",!
+2 QUIT
LINE5 ;EP
+1 ;$$REPEAT^XLFSTR("_",9),?69,"|",! ;$$REPEAT^XLFSTR("_",9),?79,"|",!
WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",!
+2 QUIT
LINE6 ;EP
+1 ;_________",?79,"|",!
WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",29),?59,"|",!
+2 QUIT
+3 ;
LINE7 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",29),?59,"|",!
+2 QUIT
CTR(X,Y) ;EP - Center X in a field Y wide.
+1 QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X
+2 ;----------
USR() ;EP - Return name of current user from ^VA(200.
+1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
+2 ;----------
LOC() ;EP - Return location name from file 4 based on DUZ(2).
+1 QUIT $SELECT($GET(DUZ(2)):$SELECT($DATA(^DIC(4,DUZ(2),0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
+2 ;----------
PAUSE ;
+1 KILL DIR
SET DIR(0)="E"
SET DIR("A")="PRESS ENTER"
KILL DA
DO ^DIR
KILL DIR
+2 QUIT
C(X,Y) ;
+1 IF $GET(Y)=1
IF +X=0
QUIT ""
+2 IF $GET(Y)=2
QUIT "********"
+3 SET X2=0
SET X3=8
+4 DO COMMA^%DTC
+5 QUIT X
