Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BUD0RP71

BUD0RP71.m

Go to the documentation of this file. 
  1. BUD0RP71 ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2010 6:10 AM 30 Dec 2010 8:12 PM ;
  1.  ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1.  ;
  1.  ;
  1. PRINT ;EP
  1.  S BUDPG=0
  1.  ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
  1.  S BUDQUIT=0
  1.  D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?29,"|",?41,"HISPANIC/LATINO",?69,"|",!
  1.  W ?29,"|",?39,"|",?49,"|",?59,"|",?62,"Black/",?69,"|",!  ;,?79,"|",!
  1.  W ?29,"|",?39,"|",?41,"Native",?49,"|",?51,"Pacific",?59,"|",?61,"African",?69,"|",!  ;,?79,"|",!
  1.  W ?29,"|",?32,"Asian",?39,"|",?41,"Hawaiian",?49,"|",?51,"Islander",?59,"|",?61,"American",?69,"|",!  ;,?79,"|",!
  1.  W ?29,"|",?33,"(a)",?39,"|",?42,"(b1)",?49,"|",?52,"(b2)",?59,"|",?62,"(c)",?69,"|",!  ;,?79,"|",!
  1.  D LINE
  1.  W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!  ;,?79,"|",!
  1.  ;W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|",$$C($P($G(BUDSECTH(1)),U)),?39,"|",$$C($P($G(BUDSECTH(1)),U,2)),?49,"|",$$C($P($G(BUDSECTH(1)),U,3)),?59,"|",$$C($P($G(BUDSECTH(1)),U,4)),?69,"|",! 
  1.  D LINE2
  1.  W "(NO PRENATAL CARE PROVIDED?  CHECK HERE:  "_$S(BUDPREN=0:"X",1:""),")",?69,"|",!
  1.  S BUDXX=$S(BUDPREN:"",1:"N/A")
  1.  D LINE
  1.  W $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE",80),?69,"|",!,$$CTR("AND HISPANIC/LATINO IDENTITY",80),?69,"|",!
  1.  D LINE
  1.  ;W $$CTR("Deliveries and Babies by birth weight"),?69,"|",!
  1.  ;  D LINE
  1.  W ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"the year",?29,"| ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|  ",BUDXX,?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"2",?5,"Deliveries performed",?29,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",!  ;,?79,"|",!
  1.  D LINE2
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"grams",?29,"| ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|  ",BUDXX,?69,"|",!  ;,?79,"|",! ?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"2499 grams",?29,"| ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|  ",BUDXX,?69,"|",!  ;,?79,"|",!?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"5",?5,"Live Births >=2500",?29,"| ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|  ",BUDXX,?69,"|",!  ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  ;SECTION B
  1.  I $Y>(IOSL-16) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?69,"|",!
  1.  W $$CTR("SECTION B: HYPERTENSION BY RACE AND HISPANIC/LATINO IDENTITY",70),?69,"|",!  ;,?79,"|",!
  1.  D LINE
  1.  W $$CTR("Patients 18 to 85 diagnosed with hypertension whose last ",70),?69,"|",!  ;,?79,"|",!
  1.  W $$CTR("blood pressure was less than 140/90",70),?69,"|",!  ;,?79,"|",!
  1.  D LINE
  1.  W ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"patients",?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,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  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,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  ;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
  1.  W ?5,"HTN controlled",?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,"|",!
  1.  D LINE1
  1.  D DMRACE1^BUD0RP7O  ;rest of page 1
  1. NEXT ;second page of sections a,b
  1.  D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?29,"|",?38,"HISPANIC/LATINO",?69,"|",! ;?79,"|",!
  1.  W ?29,"|",?31,"American",?39,"|",?49,"|",?52,"More",?59,"|",?60,"Unreport-",?69,"|",! ;?79,"|",!
  1.  W ?29,"|",?31,"Indian/",?39,"|",?42,"",?49,"|",?52,"than",?59,"|",?60,"ed/",?69,"|",! ;?79,"|",!
  1.  W ?29,"|",?31,"Alaska",?39,"|",?42,"",?49,"|",?52,"one",?59,"|",?60,"Refused",?69,"|",! ;?79,"|",!
  1.  W ?29,"|",?31,"Native",?39,"|",?42,"White",?49,"|",?52,"race",?59,"|",?60,"to Report",?69,"|",! ;?72,"Total",?79,"|",!
  1.  W ?29,"|",?33,"(d)",?39,"|",?42,"(e)",?49,"|",?52,"(f)",?59,"|",?62,"(g)",?69,"|",! ;?72,"(h)",?79,"|",!
  1.  D LINE6
  1.  ;W "HIV Positive",?29,"|",?59,"|",!  ;,?79,"|",
  1.  ;W "Pregnant Women",?29,"|",$$C($P($G(BUDSECTH(1)),U,5)),?39,"|",$$C($P($G(BUDSECTH(1)),U,6)),?49,"|",$$C($P($G(BUDSECTH(1)),U,7)),?59,"|",!
  1.  ;W "HIV Positive",?29,"|",?59,"|",!  ;,?79,"|",
  1.  ;W "Pregnant Women",?29,"|*****************************",?59,"|",?79,"|",!
  1.  W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!
  1.  D LINE6
  1.  W "(NO PRENATAL CARE PROVIDED?  CHECK HERE:  "_$S(BUDPREN=0:"X",1:""),")",?69,"|",!
  1.  D LINE4
  1.  W $$CTR("SECTION A: DELIVERIES AND BIRTH WEIGHT BY RACE AND ",70),?69,"|",!,$$CTR("HISPANIC/LATINO IDENTITY",60),?69,"|",!
  1.  D LINE4
  1.  ;W $$CTR("Deliveries and Babies by birth weight",60),?59,"|",!
  1.  ;D LINE4
  1.  W ?2,"1",?5,"Prenatal care patients",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"who delivered during ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"the year",?29,"|  ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|",?69,"|",! ;?79,"|",!
  1.  D LINE5
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"2",?5,"Deliveries performed",?29,"|",?59,"|",?69,"|",!
  1.  W ?5,"by Grantee Provider",?29,"|***************************************",?69,"|",!
  1.  D LINE6 ;W $$REPEAT^XLFSTR("_",29),?29,"|_______________________________________",?69,"|",?79,"|",!
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"3",?5,"Live Births <1500",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"grams",?29,"|  ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|",?69,"|",! ;?79,"|"
  1.  ;W ?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  D LINE5
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"4",?5,"Live Births 1500-",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"2499 grams",?29,"|  ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|",?69,"|",! ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?59,"|",?69,"|",?79,"|",!
  1.  D LINE5
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"5",?5,"Live Births >=2500",?29,"|  ",BUDXX,?39,"|  ",BUDXX,?49,"|  ",BUDXX,?59,"|",?69,"|",! ;?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;,?79,"|",!
  1.  D LINE5
  1.  ;SECTION B
  1.  I $Y>(IOSL-15) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?69,"|",!
  1.  W $$CTR("SECTION B:  HYPERTENSION BY RACE AND ",70),?69,"|",!,$$CTR("HISPANIC/LATINO IDENTITY",70),?69,"|",!
  1.  D LINE4
  1.  W $$CTR("Patients diagnosed with hypertension whose last",70),?69,"|",!
  1.  W $$CTR("blood pressure was less than 140/90",70),?69,"|",!
  1.  D LINE4
  1.  W ?2,"6",?5,"Total hypertensive",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;"|",?79,"|",!
  1.  W ?5,"patients",?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,"|",!
  1.  D LINE5
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"7",?5,"Charts sampled or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
  1.  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,"|",!
  1.  D LINE5
  1.  I $Y>(IOSL-3) D HEADER^BUD0RPTP Q:BUDQUIT  D T7H1
  1.  W ?2,"8",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!
  1.  ;W ?5,"controlled blood",?29,"|",?39,"|",?49,"|",!  ;,?59,"|",?69,"|",?79,"|",!
  1.  W ?5,"HTN controlled",?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,"|",!
  1.  D LINE5
  1.  D DMRACE2^BUD0RP7O
  1.  ;write out ethnicity table
  1.  ;D ETHN^BUD0RP7N
  1.  D ^BUD0RP7F  ;page 3 of table 7 with non-hispanic
  1.  Q:BUDQUIT
  1.  D ^BUD0RP7P  ;unreported/ total
  1.  I $G(BUDPRGHL) S BUDGPG=0 D PRGHL^BUD0RP7I
  1.  I $G(BUDPRGRL) S BUDGPG=0 D PRGRL^BUD0RP7I
  1.  ;I $G(BUDPRGEL) S BUDGPG=0 D PRGEL^BUD0RP7I
  1.  I $G(BUDHTRL) S BUDGPG=0 D HTRL^BUD0RP7J
  1.  I $G(BUDHTCRL) S BUDGPG=0 D HTCRL^BUD0RP7J
  1.  I $G(BUDHTURL) S BUDGPG=0 D HTURL^BUD0RP7J
  1.  ;I $G(BUDHTEL) S BUDGPG=0 D HTEL^BUD0RP7K
  1.  ;I $G(BUDHTCEL) S BUDGPG=0 D HTCEL^BUD0RP7K
  1.  ;I $G(BUDHTUEL) S BUDGPG=0 D HTUEL^BUD0RP7K
  1.  I $G(BUDDMRL) S BUDGPG=0 D DMRL^BUD0RP7L
  1.  I $G(BUDDMR1L) S BUDGPG=0 D DMR1L^BUD0RP7L
  1.  I $G(BUDDMR2L) S BUDGPG=0 D DMR2L^BUD0RP7L
  1.  I $G(BUDDMR3L) S BUDGPG=0 D DMR3L^BUD0RP7T
  1.  ;I $G(BUDDMEL) S BUDGPG=0 D DMEL^BUD0RP7M
  1.  ;I $G(BUDDME1L) S BUDGPG=0 D DME1L^BUD0RP7M
  1.  ;I $G(BUDDME2L) S BUDGPG=0 D DME2L^BUD0RP7M
  1.  ;I $G(BUDDME3L) S BUDGPG=0 D DME3L^BUD0RP7S
  1.  K ^XTMP("BUD0RP7",BUDJ,BUDH)
  1.  Q
  1.  ;
  1.  ;
  1. T7H ;EP
  1.  W !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES"),!,$$REPEAT^XLFSTR("_",69),!  ;,!?41,"HISPANIC/LATINO",!
  1.  Q
  1. LINE ;EP
  1.  W $$REPEAT^XLFSTR("_",69),?69,"|",!
  1.  Q
  1. LINE1 ;EP
  1.  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,"|",!
  1.  Q
  1. LINE2 ;EP
  1.  W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|",!  ;,"_________",?79,"|",!
  1.  Q
  1.  ;
  1. LINE3 ;EP
  1.  W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",49),?79,"|",!
  1.  Q
  1. T7H1 ;EP
  1.  W !,$$CTR("TABLE 7 - HEALTH OUTCOMES AND DISPARITIES",60),!,$$REPEAT^XLFSTR("_",69),!  ;,!?41,"HISPANIC/LATINO",!
  1.  Q
  1. LINE4 ;EP
  1.  W $$REPEAT^XLFSTR("_",69),?69,"|",!
  1.  Q
  1. LINE5 ;EP
  1.  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,"|",!
  1.  Q
  1. LINE6 ;EP
  1.  W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",39),?69,"|",! ;_________",?79,"|",!
  1.  Q
  1.  ;
  1. LINE7 ;EP
  1.  W $$REPEAT^XLFSTR("_",29),?29,"|",$$REPEAT^XLFSTR("_",29),?59,"|",!
  1.  Q
  1. CTR(X,Y) ;EP - Center X in a field Y wide.
  1.  Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
  1.  ;----------
  1. USR() ;EP - Return name of current user from ^VA(200.
  1.  Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
  1.  ;----------
  1. LOC() ;EP - Return location name from file 4 based on DUZ(2).
  1.  Q $S($G(DUZ(2)):$S($D(^DIC(4,DUZ(2),0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ(2) UNDEFINED OR 0")
  1.  ;----------
  1. PAUSE ;
  1.  K DIR S DIR(0)="E",DIR("A")="PRESS ENTER" KILL DA D ^DIR KILL DIR
  1.  Q
  1. C(X,Y) ;
  1.  I $G(Y)=1,+X=0 Q ""
  1.  I $G(Y)=2 Q "********"
  1.  S X2=0,X3=8
  1.  D COMMA^%DTC
  1.  Q X