BUDDRP7Q ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
;;11.0;IHS/RPMS UNIFORM DATA SYSTEM;;JAN 18, 2017;Build 66
;
;
;
DMRACE1 ;EP - called from taskman
;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
;S BUDQUIT=0
D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
W ?29,"|Unreported/Refused",?49,"|",?69,"|",!
W ?29,"|to Report Race and",?49,"|",?55,"Total",?69,"|",!
W ?29,"|Identity (h)",?49,"|",?56,"(i)",?69,"|",!
D LINE^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?69,"|",!
W $$CTR("SECTION C: DIABETES BY RACE AND HISPANIC/LATINO IDENTITY",69),?69,"|",! ;,?79,"|",!
D LINE^BUDDRP7P
W $$CTR("Patients 18 to 75 diagnosed with Type I or Type II diabetes:",69),?69,"|",!,$$CTR("Most recent test results",69),?69,"|",! ;,?79,"|",!
D LINE^BUDDRP7P
W ?2,"9",?5,"Total diabetic",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"patients",?29,"|",$$C($P($G(BUDSECTC(9)),U,17)),?49,"|",$$C($P($G(BUDSECTC(9)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?1,"10",?5,"Charts sampled /",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"EHR total",?29,"|",$$C($P($G(BUDSECTC(10)),U,17)),?49,"|",$$C($P($G(BUDSECTC(10)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?1,"11",?5,"Patients with ",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"HBA1c < 7%",?29,"|",$$C($P($G(BUDSECTC(11)),U,17)),?49,"|",$$C($P($G(BUDSECTC(11)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?1,"12a",?5,"Patients with ",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"HBA1c >= 7% and < 8%",?29,"|",$$C($P($G(BUDSECTC(12.1)),U,17)),?49,"|",$$C($P($G(BUDSECTC(12.1)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?1,"12b",?5,"Patients with ",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"HBA1c >= 8% and <= 9%",?29,"|",$$C($P($G(BUDSECTC(12.2)),U,17)),?49,"|",$$C($P($G(BUDSECTC(12.2)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
I $Y>(IOSL-3) D HEADER^BUDDRPTP Q:BUDQUIT D T7H^BUDDRP7P
W ?1,"13",?5,"Patients with ",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"HBA1c > 9% OR No",?29,"|",?49,"|",?69,"|",! ;,?79,"|",!
W ?5,"test during year",?29,"|",$$C($P($G(BUDSECTC(13)),U,17)),?49,"|",$$C($P($G(BUDSECTC(13)),U,18)),?69,"|",! ;,?79,"|",!
D LINE1^BUDDRP7P
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
BUDDRP7Q ; IHS/CMI/LAB - UDS REPORT DRIVER TABLE 6B ;
+1 ;;11.0;IHS/RPMS UNIFORM DATA SYSTEM;;JAN 18, 2017;Build 66
+2 ;
+3 ;
+4 ;
DMRACE1 ;EP - called from taskman
+1 ;S BUDPREN=1,BUDSITE=2582,BUDBD=3030101,BUDED=3031231
+2 ;S BUDQUIT=0
+3 DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+4 WRITE ?29,"|",?41,"NON-HISPANIC/LATINO (2)",?69,"|",!
+5 WRITE ?29,"|Unreported/Refused",?49,"|",?69,"|",!
+6 WRITE ?29,"|to Report Race and",?49,"|",?55,"Total",?69,"|",!
+7 WRITE ?29,"|Identity (h)",?49,"|",?56,"(i)",?69,"|",!
+8 DO LINE^BUDDRP7P
+9 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+10 WRITE ?69,"|",!
+11 ;,?79,"|",!
WRITE $$CTR("SECTION C: DIABETES BY RACE AND HISPANIC/LATINO IDENTITY",69),?69,"|",!
+12 DO LINE^BUDDRP7P
+13 ;,?79,"|",!
WRITE $$CTR("Patients 18 to 75 diagnosed with Type I or Type II diabetes:",69),?69,"|",!,$$CTR("Most recent test results",69),?69,"|",!
+14 DO LINE^BUDDRP7P
+15 ;,?79,"|",!
WRITE ?2,"9",?5,"Total diabetic",?29,"|",?49,"|",?69,"|",!
+16 ;,?79,"|",!
WRITE ?5,"patients",?29,"|",$$C($PIECE($GET(BUDSECTC(9)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(9)),U,18)),?69,"|",!
+17 DO LINE1^BUDDRP7P
+18 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+19 ;,?79,"|",!
WRITE ?1,"10",?5,"Charts sampled /",?29,"|",?49,"|",?69,"|",!
+20 ;,?79,"|",!
WRITE ?5,"EHR total",?29,"|",$$C($PIECE($GET(BUDSECTC(10)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(10)),U,18)),?69,"|",!
+21 DO LINE1^BUDDRP7P
+22 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+23 ;,?79,"|",!
WRITE ?1,"11",?5,"Patients with ",?29,"|",?49,"|",?69,"|",!
+24 ;,?79,"|",!
WRITE ?5,"HBA1c < 7%",?29,"|",$$C($PIECE($GET(BUDSECTC(11)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(11)),U,18)),?69,"|",!
+25 DO LINE1^BUDDRP7P
+26 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+27 ;,?79,"|",!
WRITE ?1,"12a",?5,"Patients with ",?29,"|",?49,"|",?69,"|",!
+28 ;,?79,"|",!
WRITE ?5,"HBA1c >= 7% and < 8%",?29,"|",$$C($PIECE($GET(BUDSECTC(12.1)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(12.1)),U,18)),?69,"|",!
+29 DO LINE1^BUDDRP7P
+30 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+31 ;,?79,"|",!
WRITE ?1,"12b",?5,"Patients with ",?29,"|",?49,"|",?69,"|",!
+32 ;,?79,"|",!
WRITE ?5,"HBA1c >= 8% and <= 9%",?29,"|",$$C($PIECE($GET(BUDSECTC(12.2)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(12.2)),U,18)),?69,"|",!
+33 DO LINE1^BUDDRP7P
+34 IF $Y>(IOSL-3)
DO HEADER^BUDDRPTP
IF BUDQUIT
QUIT
DO T7H^BUDDRP7P
+35 ;,?79,"|",!
WRITE ?1,"13",?5,"Patients with ",?29,"|",?49,"|",?69,"|",!
+36 ;,?79,"|",!
WRITE ?5,"HBA1c > 9% OR No",?29,"|",?49,"|",?69,"|",!
+37 ;,?79,"|",!
WRITE ?5,"test during year",?29,"|",$$C($PIECE($GET(BUDSECTC(13)),U,17)),?49,"|",$$C($PIECE($GET(BUDSECTC(13)),U,18)),?69,"|",!
+38 DO LINE1^BUDDRP7P
+39 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
