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

BUD2RP7O.m

Go to the documentation of this file. 
  1. BUD2RP7O ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
  1.  ;;10.0;IHS/RPMS UNIFORM DATA SYSTEM;;FEB 04, 2016;Build 50
  1.  ;
  1.  ;
  1.  ;
  1. DMRACE1 ;EP - called from taskman
  1.  ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
  1.  ;S BUDQUIT=0
  1.  D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?29,"|",?39,"HISPANIC/LATINO (1)",?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^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?69,"|",!
  1.  W $$CTR("SECTION C:  DIABETES BY RACE AND HISPANIC/LATINO IDENTITY",69),?69,"|",!  ;,?79,"|",!
  1.  D LINE^BUD2RP71
  1.  W $$CTR("Patients 18 to 75 diagnosed with Type I or Type II diabetes:",69),?69,"|",!,$$CTR("Most recent test results",69),?69,"|",!  ;,?79,"|",!
  1.  D LINE^BUD2RP71
  1.  W ?2,"9",?5,"Total diabetic",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"patients",?29,"|",$$C($P($G(BUDSECTC(9)),U)),?39,"|",$$C($P($G(BUDSECTC(9)),U,2)),?49,"|",$$C($P($G(BUDSECTC(9)),U,3)),?59,"|",$$C($P($G(BUDSECTC(9)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?1,"10",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTC(10)),U)),?39,"|",$$C($P($G(BUDSECTC(10)),U,2)),?49,"|",$$C($P($G(BUDSECTC(10)),U,3)),?59,"|",$$C($P($G(BUDSECTC(10)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?1,"11",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"HBA1c < 7%",?29,"|",$$C($P($G(BUDSECTC(11)),U)),?39,"|",$$C($P($G(BUDSECTC(11)),U,2)),?49,"|",$$C($P($G(BUDSECTC(11)),U,3)),?59,"|",$$C($P($G(BUDSECTC(11)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?1,"12a",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"HBA1c >= 7% and < 8%",?29,"|",$$C($P($G(BUDSECTC(12.1)),U)),?39,"|",$$C($P($G(BUDSECTC(12.1)),U,2)),?49,"|",$$C($P($G(BUDSECTC(12.1)),U,3)),?59,"|",$$C($P($G(BUDSECTC(12.1)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?1,"12b",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"HBA1c >= 8% and <= 9%",?29,"|",$$C($P($G(BUDSECTC(12.2)),U)),?39,"|",$$C($P($G(BUDSECTC(12.2)),U,2)),?49,"|",$$C($P($G(BUDSECTC(12.2)),U,3)),?59,"|",$$C($P($G(BUDSECTC(12.2)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H^BUD2RP71
  1.  W ?1,"13",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"HBA1c > 9% OR No",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",!  ;,?79,"|",!
  1.  W ?5,"test during year",?29,"|",$$C($P($G(BUDSECTC(13)),U)),?39,"|",$$C($P($G(BUDSECTC(13)),U,2)),?49,"|",$$C($P($G(BUDSECTC(13)),U,3)),?59,"|",$$C($P($G(BUDSECTC(13)),U,4)),?69,"|",!  ;,?79,"|",!
  1.  D LINE1^BUD2RP71
  1.  Q
  1. DMRACE2 ;EP - second page of sections a,b
  1.  D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?29,"|",?38,"HISPANIC/LATINO (1)",?69,"|",!
  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 LINE4^BUD2RP71
  1.  I $Y>(IOSL-16) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?69,"|",!
  1.  W $$CTR("SECTION C: DIABETES BY RACE AND HISPANIC/LATINO IDENTITY",70),?69,"|",!
  1.  D LINE4^BUD2RP71
  1.  W $$CTR("Patients 18 to 75 diagnosed with Type I or Type II",70),?69,"|",!
  1.  W $$CTR("diabetes: Most recent test results",70),?69,"|",!
  1.  D LINE4^BUD2RP71
  1.  W ?2,"9",?5,"Total diabetic",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  ;W ?5,"18 + with Type I or",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",?79,"|",!
  1.  W ?5,"patients",?29,"|",$$C($P($G(BUDSECTC(9)),U,5)),?39,"|",$$C($P($G(BUDSECTC(9)),U,6)),?49,"|",$$C($P($G(BUDSECTC(9)),U,7)),?59,"|",$$C($P($G(BUDSECTC(9)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(9)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?2,"10",?5,"Charts sampled /",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTC(10)),U,5)),?39,"|",$$C($P($G(BUDSECTC(10)),U,6)),?49,"|",$$C($P($G(BUDSECTC(10)),U,7)),?59,"|",$$C($P($G(BUDSECTC(10)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(10)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?2,"11",?5,"Patients with",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"HBA1c < 7%",?29,"|",$$C($P($G(BUDSECTC(11)),U,5)),?39,"|",$$C($P($G(BUDSECTC(11)),U,6)),?49,"|",$$C($P($G(BUDSECTC(11)),U,7)),?59,"|",$$C($P($G(BUDSECTC(11)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(11)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?1,"12a",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"HBA1c >= 7% and < 8%",?29,"|",$$C($P($G(BUDSECTC(12.1)),U,5)),?39,"|",$$C($P($G(BUDSECTC(12.1)),U,6)),?49,"|",$$C($P($G(BUDSECTC(12.1)),U,7)),?59,"|",$$C($P($G(BUDSECTC(12.1)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(12)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?1,"12b",?5,"Patients with ",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"HBA1c >= 8% and <= 9%",?29,"|",$$C($P($G(BUDSECTC(12.2)),U,5)),?39,"|",$$C($P($G(BUDSECTC(12.2)),U,6)),?49,"|",$$C($P($G(BUDSECTC(12.2)),U,7)),?59,"|",$$C($P($G(BUDSECTC(12.2)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(12)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  1.  I $Y>(IOSL-3) D HEADER^BUD2RPTP Q:BUDQUIT  D T7H1^BUD2RP71
  1.  W ?2,"13",?5,"Patients with",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"HBA1c > 9% OR No",?29,"|",?39,"|",?49,"|",?59,"|",?69,"|",! ;?79,"|",!
  1.  W ?5,"test during year",?29,"|",$$C($P($G(BUDSECTC(13)),U,5)),?39,"|",$$C($P($G(BUDSECTC(13)),U,6)),?49,"|",$$C($P($G(BUDSECTC(13)),U,7)),?59,"|",$$C($P($G(BUDSECTC(13)),U,8)),?69,"|",! ;$$C($P($G(BUDSECTC(13)),U,9)),?79,"|",!
  1.  D LINE5^BUD2RP71
  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