BUD8RP71 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2008 6:10 AM 30 Dec 2008 8:12 PM ;
;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
;
;
PRINT ;EP
S BUDPG=0
;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
S BUDQUIT=0
D HEADER^BUD8RPTP Q:BUDQUIT D T7H
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,"|",?79,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",?79,"|",!
D LINE2
W "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$S(BUDPREN=0:"X",1:""),")",?79,"|",!
D LINE
W $$CTR("SECTION A: DELIVERIES AND LOW BIRTH WEIGHT BY RACE"),?79,"|",!
D LINE
W $$CTR("Deliveries and Babies by birth weight"),?79,"|",!
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,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP 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^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"2499 grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"5",?5,"Live Births >=2500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
;SECTION B
I $Y>(IOSL-16) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?79,"|",!
W $$CTR("SECTION B: HYPERTENSION BY RACE"),?79,"|",!
D LINE
W $$CTR("Patients diagnosed with hypertension whose last blood pressure"),?79,"|",!
W $$CTR("was less than 140/90"),?79,"|",!
D LINE
W ?2,"6",?5,"Total patients aged",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"18 + with hypertension",?29,"|",$$C($P($G(BUDSECTB(6)),U)),?39,"|",$$C($P($G(BUDSECTB(6)),U,2)),?49,"|",$$C($P($G(BUDSECTB(6)),U,3)),?59,"|",$$C($P($G(BUDSECTB(6)),U,4)),?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTB(7)),U)),?39,"|",$$C($P($G(BUDSECTB(7)),U,2)),?49,"|",$$C($P($G(BUDSECTB(7)),U,3)),?59,"|",$$C($P($G(BUDSECTB(7)),U,4)),?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP 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,"pressure",?29,"|",$$C($P($G(BUDSECTB(8)),U)),?39,"|",$$C($P($G(BUDSECTB(8)),U,2)),?49,"|",$$C($P($G(BUDSECTB(8)),U,3)),?59,"|",$$C($P($G(BUDSECTB(8)),U,4)),?69,"|",?79,"|",!
D LINE1
D DMRACE1^BUD8RP7O
NEXT ;second page of sections a,b
D HEADER^BUD8RPTP Q:BUDQUIT D T7H
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,"|",?69,"|",?79,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",?79,"|",!
D LINE2
W "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$S(BUDPREN=0:"X",1:""),")",?79,"|",!
D LINE
W $$CTR("SECTION A: DELIVERIES AND LOW BIRTH WEIGHT BY RACE"),?79,"|",!
D LINE
W $$CTR("Deliveries and Babies by birth weight"),?79,"|",!
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,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",?79,"|",!
W ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",?79,"|",!
D LINE2 ;W $$REPEAT^XLFSTR("_",29),?29,"|_______________________________________",?69,"|",?79,"|",!
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"2499 grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"5",?5,"Live Births >=2500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
D LINE1
;SECTION B
I $Y>(IOSL-16) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?79,"|",!
W $$CTR("SECTION B: HYPERTENSION BY RACE"),?79,"|",!
D LINE
W $$CTR("Patients diagnosed with hypertension whose last blood pressure"),?79,"|",!
W $$CTR("was less than 140/90"),?79,"|",!
D LINE
W ?2,"6",?5,"Total patients aged",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"18 + with hypertension",?29,"|",$$C($P($G(BUDSECTB(6)),U,5)),?39,"|",$$C($P($G(BUDSECTB(6)),U,6)),?49,"|",$$C($P($G(BUDSECTB(6)),U,7)),?59,"|",$$C($P($G(BUDSECTB(6)),U,8)),?69,"|",$$C($P($G(BUDSECTB(6)),U,9)),?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP Q:BUDQUIT D T7H
W ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTB(7)),U,5)),?39,"|",$$C($P($G(BUDSECTB(7)),U,6)),?49,"|",$$C($P($G(BUDSECTB(7)),U,7)),?59,"|",$$C($P($G(BUDSECTB(7)),U,8)),?69,"|",$$C($P($G(BUDSECTB(7)),U,9)),?79,"|",!
D LINE1
I $Y>(IOSL-3) D HEADER^BUD8RPTP 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,"pressure",?29,"|",$$C($P($G(BUDSECTB(8)),U,5)),?39,"|",$$C($P($G(BUDSECTB(8)),U,6)),?49,"|",$$C($P($G(BUDSECTB(8)),U,7)),?59,"|",$$C($P($G(BUDSECTB(8)),U,8)),?69,"|",$$C($P($G(BUDSECTB(8)),U,9)),?79,"|",!
D LINE1
D DMRACE2^BUD8RP7O
;write out ethnicity table
D ETHN^BUD8RP7N
I $G(BUDPRGHL) S BUDGPG=0 D PRGHL^BUD8RP7I
I $G(BUDPRGRL) S BUDGPG=0 D PRGRL^BUD8RP7I
I $G(BUDPRGEL) S BUDGPG=0 D PRGEL^BUD8RP7I
I $G(BUDHTRL) S BUDGPG=0 D HTRL^BUD8RP7J
I $G(BUDHTCRL) S BUDGPG=0 D HTCRL^BUD8RP7J
I $G(BUDHTURL) S BUDGPG=0 D HTURL^BUD8RP7J
I $G(BUDHTEL) S BUDGPG=0 D HTEL^BUD8RP7K
I $G(BUDHTCEL) S BUDGPG=0 D HTCEL^BUD8RP7K
I $G(BUDHTUEL) S BUDGPG=0 D HTUEL^BUD8RP7K
I $G(BUDDMRL) S BUDGPG=0 D DMRL^BUD8RP7L
I $G(BUDDMR1L) S BUDGPG=0 D DMR1L^BUD8RP7L
I $G(BUDDMR2L) S BUDGPG=0 D DMR2L^BUD8RP7L
I $G(BUDDMR3L) S BUDGPG=0 D DMR3L^BUD8RP7T
I $G(BUDDMEL) S BUDGPG=0 D DMEL^BUD8RP7M
I $G(BUDDME1L) S BUDGPG=0 D DME1L^BUD8RP7M
I $G(BUDDME2L) S BUDGPG=0 D DME2L^BUD8RP7M
I $G(BUDDME3L) S BUDGPG=0 D DME3L^BUD8RP7S
K ^XTMP("BUD8RP7",BUDJ,BUDH)
Q
;
;
T7H ;EP
W !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",79),!
Q
LINE ;EP
W $$REPEAT^XLFSTR("_",79),?79,"|",!
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
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
BUD8RP71 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2008 6:10 AM 30 Dec 2008 8:12 PM ;
+1 ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
+2 ;
+3 ;
PRINT ;EP
+1 SET BUDPG=0
+2 ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
+3 SET BUDQUIT=0
+4 DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+5 WRITE ?29,"|",?39,"|",?49,"|",?59,"|",?62,"Black/",?69,"|",?79,"|",!
+6 WRITE ?29,"|",?39,"|",?41,"Native",?49,"|",?51,"Pacific",?59,"|",?61,"African",?69,"|",?79,"|",!
+7 WRITE ?29,"|",?32,"Asian",?39,"|",?41,"Hawaiian",?49,"|",?51,"Islander",?59,"|",?61,"American",?69,"|",?79,"|",!
+8 WRITE ?29,"|",?33,"(a)",?39,"|",?42,"(b1)",?49,"|",?52,"(b2)",?59,"|",?62,"(c)",?69,"|",?79,"|",!
+9 DO LINE
+10 WRITE "HIV Positive",?29,"|",?69,"|",?79,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",?79,"|",!
+11 DO LINE2
+12 WRITE "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$SELECT(BUDPREN=0:"X",1:""),")",?79,"|",!
+13 DO LINE
+14 WRITE $$CTR("SECTION A: DELIVERIES AND LOW BIRTH WEIGHT BY RACE"),?79,"|",!
+15 DO LINE
+16 WRITE $$CTR("Deliveries and Babies by birth weight"),?79,"|",!
+17 DO LINE
+18 WRITE ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+19 WRITE ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+20 WRITE ?5,"the year",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+21 DO LINE1
+22 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+23 WRITE ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",?79,"|",!
+24 WRITE ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",?79,"|",!
+25 DO LINE2
+26 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+27 WRITE ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+28 WRITE ?5,"grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+29 DO LINE1
+30 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+31 WRITE ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+32 WRITE ?5,"2499 grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+33 DO LINE1
+34 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+35 WRITE ?2,"5",?5,"Live Births >=2500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+36 DO LINE1
+37 ;SECTION B
+38 IF $Y>(IOSL-16)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+39 WRITE ?79,"|",!
+40 WRITE $$CTR("SECTION B: HYPERTENSION BY RACE"),?79,"|",!
+41 DO LINE
+42 WRITE $$CTR("Patients diagnosed with hypertension whose last blood pressure"),?79,"|",!
+43 WRITE $$CTR("was less than 140/90"),?79,"|",!
+44 DO LINE
+45 WRITE ?2,"6",?5,"Total patients aged",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+46 WRITE ?5,"18 + with hypertension",?29,"|",$$C($PIECE($GET(BUDSECTB(6)),U)),?39,"|",$$C($PIECE($GET(BUDSECTB(6)),U,2)),?49,"|",$$C($PIECE($GET(BUDSECTB(6)),U,3)),?59,"|",$$C($PIECE($GET(BUDSECTB(6)),U,4)),?69,"|",?79,"|",!
+47 DO LINE1
+48 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+49 WRITE ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+50 WRITE ?5,"EHR total",?29,"|",$$C($PIECE($GET(BUDSECTB(7)),U)),?39,"|",$$C($PIECE($GET(BUDSECTB(7)),U,2)),?49,"|",$$C($PIECE($GET(BUDSECTB(7)),U,3)),?59,"|",$$C($PIECE($GET(BUDSECTB(7)),U,4)),?69,"|",?79,"|",!
+51 DO LINE1
+52 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+53 WRITE ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+54 WRITE ?5,"controlled blood",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+55 WRITE ?5,"pressure",?29,"|",$$C($PIECE($GET(BUDSECTB(8)),U)),?39,"|",$$C($PIECE($GET(BUDSECTB(8)),U,2)),?49,"|",$$C($PIECE($GET(BUDSECTB(8)),U,3)),?59,"|",$$C($PIECE($GET(BUDSECTB(8)),U,4)),?69,"|",?79,"|",!
+56 DO LINE1
+57 DO DMRACE1^BUD8RP7O
NEXT ;second page of sections a,b
+1 DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+2 WRITE ?29,"|",?31,"American",?39,"|",?49,"|",?52,"More",?59,"|",?60,"Unreport-",?69,"|",?79,"|",!
+3 WRITE ?29,"|",?31,"Indian/",?39,"|",?42,"",?49,"|",?52,"than",?59,"|",?60,"ed/",?69,"|",?79,"|",!
+4 WRITE ?29,"|",?31,"Alaska",?39,"|",?42,"",?49,"|",?52,"one",?59,"|",?60,"Refused",?69,"|",?79,"|",!
+5 WRITE ?29,"|",?31,"Native",?39,"|",?42,"White",?49,"|",?52,"race",?59,"|",?60,"to Report",?69,"|",?72,"Total",?79,"|",!
+6 WRITE ?29,"|",?33,"(d)",?39,"|",?42,"(e)",?49,"|",?52,"(f)",?59,"|",?62,"(g)",?69,"|",?72,"(h)",?79,"|",!
+7 DO LINE
+8 WRITE "HIV Positive",?29,"|",?69,"|",?79,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",?79,"|",!
+9 DO LINE2
+10 WRITE "(NO PRENATAL CARE PROVIDED? CHECK HERE: "_$SELECT(BUDPREN=0:"X",1:""),")",?79,"|",!
+11 DO LINE
+12 WRITE $$CTR("SECTION A: DELIVERIES AND LOW BIRTH WEIGHT BY RACE"),?79,"|",!
+13 DO LINE
+14 WRITE $$CTR("Deliveries and Babies by birth weight"),?79,"|",!
+15 DO LINE
+16 WRITE ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+17 WRITE ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+18 WRITE ?5,"the year",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+19 DO LINE1
+20 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+21 WRITE ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",?79,"|",!
+22 WRITE ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",?79,"|",!
+23 ;W $$REPEAT^XLFSTR("_",29),?29,"|_______________________________________",?69,"|",?79,"|",!
DO LINE2
+24 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+25 WRITE ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+26 WRITE ?5,"grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+27 DO LINE1
+28 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+29 WRITE ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+30 WRITE ?5,"2499 grams",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+31 DO LINE1
+32 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+33 WRITE ?2,"5",?5,"Live Births >=2500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+34 DO LINE1
+35 ;SECTION B
+36 IF $Y>(IOSL-16)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+37 WRITE ?79,"|",!
+38 WRITE $$CTR("SECTION B: HYPERTENSION BY RACE"),?79,"|",!
+39 DO LINE
+40 WRITE $$CTR("Patients diagnosed with hypertension whose last blood pressure"),?79,"|",!
+41 WRITE $$CTR("was less than 140/90"),?79,"|",!
+42 DO LINE
+43 WRITE ?2,"6",?5,"Total patients aged",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+44 WRITE ?5,"18 + with hypertension",?29,"|",$$C($PIECE($GET(BUDSECTB(6)),U,5)),?39,"|",$$C($PIECE($GET(BUDSECTB(6)),U,6)),?49,"|",$$C($PIECE($GET(BUDSECTB(6)),U,7)),?59,"|",$$C($PIECE($GET(BUDSECTB(6)),U,8)),?69,"|",$$C(...
... $PIECE($GET(BUDSECTB(6)),U,9)),?79,"|",!
+45 DO LINE1
+46 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+47 WRITE ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+48 WRITE ?5,"EHR total",?29,"|",$$C($PIECE($GET(BUDSECTB(7)),U,5)),?39,"|",$$C($PIECE($GET(BUDSECTB(7)),U,6)),?49,"|",$$C($PIECE($GET(BUDSECTB(7)),U,7)),?59,"|",$$C($PIECE($GET(BUDSECTB(7)),U,8)),?69,"|",$$C($PIECE($GET(BUDSECTB(7)),U,9)),?79,"|",
!
+49 DO LINE1
+50 IF $Y>(IOSL-3)
DO HEADER^BUD8RPTP
IF BUDQUIT
QUIT
DO T7H
+51 WRITE ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+52 WRITE ?5,"controlled blood",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
+53 WRITE ?5,"pressure",?29,"|",$$C($PIECE($GET(BUDSECTB(8)),U,5)),?39,"|",$$C($PIECE($GET(BUDSECTB(8)),U,6)),?49,"|",$$C($PIECE($GET(BUDSECTB(8)),U,7)),?59,"|",$$C($PIECE($GET(BUDSECTB(8)),U,8)),?69,"|",$$C($PIECE($GET(BUDSECTB(8)),U,9)),?79,"|",!
+54 DO LINE1
+55 DO DMRACE2^BUD8RP7O
+56 ;write out ethnicity table
+57 DO ETHN^BUD8RP7N
+58 IF $GET(BUDPRGHL)
SET BUDGPG=0
DO PRGHL^BUD8RP7I
+59 IF $GET(BUDPRGRL)
SET BUDGPG=0
DO PRGRL^BUD8RP7I
+60 IF $GET(BUDPRGEL)
SET BUDGPG=0
DO PRGEL^BUD8RP7I
+61 IF $GET(BUDHTRL)
SET BUDGPG=0
DO HTRL^BUD8RP7J
+62 IF $GET(BUDHTCRL)
SET BUDGPG=0
DO HTCRL^BUD8RP7J
+63 IF $GET(BUDHTURL)
SET BUDGPG=0
DO HTURL^BUD8RP7J
+64 IF $GET(BUDHTEL)
SET BUDGPG=0
DO HTEL^BUD8RP7K
+65 IF $GET(BUDHTCEL)
SET BUDGPG=0
DO HTCEL^BUD8RP7K
+66 IF $GET(BUDHTUEL)
SET BUDGPG=0
DO HTUEL^BUD8RP7K
+67 IF $GET(BUDDMRL)
SET BUDGPG=0
DO DMRL^BUD8RP7L
+68 IF $GET(BUDDMR1L)
SET BUDGPG=0
DO DMR1L^BUD8RP7L
+69 IF $GET(BUDDMR2L)
SET BUDGPG=0
DO DMR2L^BUD8RP7L
+70 IF $GET(BUDDMR3L)
SET BUDGPG=0
DO DMR3L^BUD8RP7T
+71 IF $GET(BUDDMEL)
SET BUDGPG=0
DO DMEL^BUD8RP7M
+72 IF $GET(BUDDME1L)
SET BUDGPG=0
DO DME1L^BUD8RP7M
+73 IF $GET(BUDDME2L)
SET BUDGPG=0
DO DME2L^BUD8RP7M
+74 IF $GET(BUDDME3L)
SET BUDGPG=0
DO DME3L^BUD8RP7S
+75 KILL ^XTMP("BUD8RP7",BUDJ,BUDH)
+76 QUIT
+77 ;
+78 ;
T7H ;EP
+1 WRITE !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",79),!
+2 QUIT
LINE ;EP
+1 WRITE $$REPEAT^XLFSTR("_",79),?79,"|",!
+2 QUIT
LINE1 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",9),?39,"|",$$REPEAT^XLFSTR("_",9),?49,"|",$$REPEAT^XLFSTR("_",9),?59,"|",$$REPEAT^XLFSTR("_",9),?69,"|",$$REPEAT^XLFSTR("_",9),?79,"|",!
+2 QUIT
LINE2 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|_________",?79,"|",!
+2 QUIT
+3 ;
LINE3 ;EP
+1 WRITE $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",49),?79,"|",!
+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
