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

BUD9RP7P.m

Go to the documentation of this file. 
  1. BUD9RP7P ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B 03 Dec 2009 6:10 AM 30 Dec 2009 8:12 PM ;
  1.  ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1.  ;
  1.  ;
  1. PRINT ;EP
  1.  ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
  1.  S BUDQUIT=0
  1.  D HEADER^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?29,"|Unreported/",?49,"|",?69,"|",!
  1.  W ?29,"|Refused to",?49,"|",?55,"Total",?69,"|",!
  1.  W ?29,"|  Report",?49,"|",?69,"|",!
  1.  D LINE
  1.  W "HIV Positive",?29,"|",?69,"|",!,"Pregnant Women",?29,"|***************************************",?69,"|",!  ;,?79,"|",!
  1.  D LINE2
  1.  W "(NO PRENATAL CARE PROVIDED?  CHECK HERE:  "_$S(BUDPREN=0:"X",1:""),")",?69,"|",!
  1.  D LINE
  1.  W $$CTR("SECTION A: DELIVERIES AND LOW 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,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"who delivered during ",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"the year",?29,"|  ",BUDXX,?49,"|  ",BUDXX,?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD9RPTP 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^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"3",?5,"Live Births <1500",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"grams",?29,"|  ",BUDXX,?49,"|  ",BUDXX,?69,"|",!  ;,?79,"|",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"4",?5,"Live Births 1500-",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"2499 grams",?29,"|  ",BUDXX,?49,"|  ",BUDXX,?69,"|",!  ;,?79,"|",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"5",?5,"Live Births >=2500",?29,"|  ",BUDXX,?49,"|  ",BUDXX,?69,"|",!  ;,?79,"|",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  ;SECTION B
  1.  I $Y>(IOSL-16) D HEADER^BUD9RPTP 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,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"patients",?29,"|",$$C($P($G(BUDSECTB(6)),U,16)),?49,"|",$$C($P($G(BUDSECTB(6)),U,17)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"7",?5,"Charts sampled or",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTB(7)),U,16)),?49,"|",$$C($P($G(BUDSECTB(7)),U,17)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1
  1.  I $Y>(IOSL-3) D HEADER^BUD9RPTP Q:BUDQUIT  D T7H
  1.  W ?2,"8",?5,"Patients with ",?29,"|",?49,"|",?69,"|",!  ;,?79,"|",!
  1.  ;W ?5,"controlled blood",?29,"|",?49,"|",?69,"|",?79,"|",!
  1.  W ?5,"HTN controlled",?29,"|",$$C($P($G(BUDSECTB(8)),U,16)),?49,"|",$$C($P($G(BUDSECTB(8)),U,17)),?69,"|",!
  1.  D LINE1
  1.  D DMRACE1^BUD9RP7Q  ;rest of page 1
  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("_",19),?49,"|",$$REPEAT^XLFSTR("_",19),?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. 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