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

BDMD995.m

Go to the documentation of this file. 
  1. BDMD995 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ;
  1.  ;;2.0;DIABETES MANAGEMENT SYSTEM;**2**;JUN 14, 2007
  1.  ;
  1.  ;
  1. CUML ;EP
  1.  K BDMCUML
  1.  S BDMPD=0 F  S BDMPD=$O(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD)) Q:BDMPD'=+BDMPD  D CUML1
  1.  Q
  1.  ;
  1. CUML1 ;
  1. GENDER ;
  1.  ;gender BDMCUML(10)="Gender^total^females^males"
  1.  S:'$D(BDMCUML(10)) BDMCUML(10)="Gender"
  1.  S $P(BDMCUML(10),U,2)=$P(BDMCUML(10),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,20))
  1.  S P=$S($E(V)="F":3,$E(V)="M":4,1:5)
  1.  S $P(BDMCUML(10),U,P)=$P(BDMCUML(10),U,P)+1
  1. AGE ;
  1.  S V=$$AGE^AUPNPAT(BDMPD,BDMADAT)
  1.  ;BDMCUML(20)="Age^total^<15^15-44^45-64^>65^unknown"
  1.  I '$D(BDMCUML(20)) S BDMCUML(20)="Age"
  1.  S $P(BDMCUML(20),U,2)=$P(BDMCUML(20),U,2)+1
  1.  S P=$S(V<15:3,V>14&(V<45):4,V>44&(V<65):5,V>64:6,1:7)
  1.  S $P(BDMCUML(20),U,P)=$P(BDMCUML(20),U,P)+1
  1. DURDMC ;
  1.  ;BDMCUML(30)="Duration of Diabetes^total^<10^10 or more^do date of dx on problem list or cms register"
  1.  I '$D(BDMCUML(30)) S BDMCUML(30)="Duration of Diabetes"
  1.  S $P(BDMCUML(30),U,2)=$P(BDMCUML(30),U,2)+1
  1.  S V=$$DURDM^BDMD994(BDMPD,BDMDMRG,BDMADAT,"I")
  1.  S P=$S(V="":5,V<10:3,V>9:4,1:5)
  1.  S $P(BDMCUML(30),U,P)=$P(BDMCUML(30),U,P)+1
  1. BMI ;
  1.  ;BDMCUML(40)="Weight Control (BMI) - does not add up to 100%^total^total^overweight^obese^height or weight missing"
  1.  S:'$D(BDMCUML(40)) BDMCUML(40)="Weight Control (BMI) - does not add up to 100%"
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,112))
  1.  S $P(BDMCUML(40),U,2)=$P(BDMCUML(40),U,2)+1
  1.  D
  1.  .I V="" S $P(BDMCUML(40),U,5)=$P(BDMCUML(40),U,5)+1 Q
  1.  .I $$OW^BDMD994(BDMPD,V,BDMADAT) S $P(BDMCUML(40),U,3)=$P(BDMCUML(40),U,3)+1
  1.  .I $$OB^BDMD994(BDMPD,V,BDMADAT) S $P(BDMCUML(40),U,4)=$P(BDMCUML(40),U,4)+1
  1. HGB ;
  1.  ;use last hgba1c value only
  1.  ;BDMCUML(50)=
  1.  S:'$D(BDMCUML(50)) BDMCUML(50)="Blood Sugar Control - uses last HGB A1C value"
  1.  S $P(BDMCUML(50),U,2)=$P(BDMCUML(50),U,2)+1
  1.  S V=$P($G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,78)),U)
  1.  S P=$S(V="":9,V<7.0:3,V>6.9&(V<8.0):4,V>7.9&(V<9.0):5,V>8.9&(V<10.0):6,V<11.0&(V>9.9):7,V>10.9:8,1:9)
  1.  S $P(BDMCUML(50),U,P)=$P(BDMCUML(50),U,P)+1
  1. BPC ;blood pressure control
  1.  ;take last 3 bp's and get mean systolic and mean diastolic
  1.  S:'$D(BDMCUML(60)) BDMCUML(60)="Blood Pressure Control - based on mean of last 3 bp's"
  1.  S $P(BDMCUML(60),U,2)=$P(BDMCUML(60),U,2)+1
  1.  S S=$$SYSMEAN(BDMPD,BDMRBD,BDMRED)
  1.  S D=$$DIAMEAN(BDMPD,BDMRBD,BDMRED)
  1.  D
  1.  .I S=""!(D="") S $P(BDMCUML(60),U,8)=$P(BDMCUML(60),U,8)+1 Q
  1.  .I S<120&(D<80) S $P(BDMCUML(60),U,3)=$P(BDMCUML(60),U,3)+1 Q
  1.  .I S<131&(D<86) S $P(BDMCUML(60),U,4)=$P(BDMCUML(60),U,4)+1 Q
  1.  .I S<141&(D<91) S $P(BDMCUML(60),U,5)=$P(BDMCUML(60),U,5)+1 Q
  1.  .I S<161&(D<96) S $P(BDMCUML(60),U,6)=$P(BDMCUML(60),U,6)+1 Q
  1.  .S $P(BDMCUML(60),U,7)=$P(BDMCUML(60),U,7)+1
  1. TBSTAT ;
  1.  S:'$D(BDMCUML(70)) BDMCUML(70)="Tuberculosis Status"
  1.  S $P(BDMCUML(70),U,2)=$P(BDMCUML(70),U,2)+1
  1.  S V=$$TBCODE^BDMD996(BDMPD,BDMRED,BDMDMRG)
  1.  S $P(BDMCUML(70),U,(V+2))=$P(BDMCUML(70),U,(V+2))+1
  1. TOBACCO ;
  1.  S:'$D(BDMCUML(80)) BDMCUML(80)="Tobacco use"
  1.  S $P(BDMCUML(80),U,2)=$P(BDMCUML(80),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,27))
  1.  S V1=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,28))
  1.  I +V=1 S $P(BDMCUML(80),U,3)=$P(BDMCUML(80),U,3)+1 S P=$S($E(V1)="Y":4,$E(V1)="N":5,1:5) S $P(BDMCUML(80),U,P)=$P(BDMCUML(80),U,P)+1
  1.  I +V=2 S $P(BDMCUML(80),U,6)=$P(BDMCUML(80),U,6)+1
  1.  I +V=3 S $P(BDMCUML(80),U,7)=$P(BDMCUML(80),U,7)+1
  1.  I +V=4 S $P(BDMCUML(80),U,8)=$P(BDMCUML(80),U,8)+1
  1. DMTX ;diabetes treatment
  1.  S BDM6MBD=$$FMADD^XLFDT(BDMADAT,-(6*31)),BDM6MBD=$$FMTE^XLFDT(BDM6MBD)
  1.  S:'$D(BDMCUML(90)) BDMCUML(90)="DIABETES TREATMENT"
  1.  S $P(BDMCUML(90),U,2)=$P(BDMCUML(90),U,2)+1
  1.  S V=$$THERAPY^BDMD996(BDMPD,BDM6MBD,BDMRED)
  1.  I V=1 S $P(BDMCUML(90),U,3)=$P(BDMCUML(90),U,3)+1
  1.  I $L(V)=1 S P=$S(V=2:4,V=3:5,V=4:6,V=5:7,V=6:8,1:"") S $P(BDMCUML(90),U,P)=$P(BDMCUML(90),U,P)+1
  1.  I $L(V)>1,V["2" S $P(BDMCUML(90),U,10)=$P(BDMCUML(90),U,10)+1
  1.  I $L(V)>1,V'[2 S $P(BDMCUML(90),U,9)=$P(BDMCUML(90),U,9)+1
  1. ASPIRIN ;
  1.  S:'$D(BDMCUML(100)) BDMCUML(100)="DAILY LOW-DOSE ASPIRIN THERAPY"
  1.  S $P(BDMCUML(100),U,2)=$P(BDMCUML(100),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,62))
  1.  S P=$S($E(V)="Y":3,1:4)
  1.  S $P(BDMCUML(100),U,P)=$P(BDMCUML(100),U,P)+1
  1. EXAMS ;
  1.  S:'$D(BDMCUML(120)) BDMCUML(120)="EXAMS - Yearly"
  1.  S $P(BDMCUML(120),U,2)=$P(BDMCUML(120),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,38))
  1.  I $E(V)="Y" S $P(BDMCUML(120),U,3)=$P(BDMCUML(120),U,3)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,40))
  1.  I $E(V)="Y" S $P(BDMCUML(120),U,4)=$P(BDMCUML(120),U,4)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,42))
  1.  I $E(V)="Y" S $P(BDMCUML(120),U,5)=$P(BDMCUML(120),U,5)+1
  1. EDUC ;
  1.  S:'$D(BDMCUML(130)) BDMCUML(130)="DIABETES-RELATED EDUCATION - Yearly"
  1.  S $P(BDMCUML(130),U,2)=$P(BDMCUML(130),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,44))
  1.  I $E(V)'="N" S $P(BDMCUML(130),U,3)=$P(BDMCUML(130),U,3)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,46))
  1.  I $E(V)="Y" S $P(BDMCUML(130),U,4)=$P(BDMCUML(130),U,4)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,48))
  1.  I $E(V)="Y" S $P(BDMCUML(130),U,5)=$P(BDMCUML(130),U,5)+1
  1. IMM ;
  1.  S:'$D(BDMCUML(140)) BDMCUML(140)="IMMUNIZATIONS"
  1.  S $P(BDMCUML(140),U,2)=$P(BDMCUML(140),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,64))
  1.  I $E(V)="Y" S $P(BDMCUML(140),U,3)=$P(BDMCUML(140),U,3)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,66))
  1.  I $E(V)="Y" S $P(BDMCUML(140),U,4)=$P(BDMCUML(140),U,4)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,68))
  1.  I $E(V)="Y" S $P(BDMCUML(140),U,5)=$P(BDMCUML(140),U,5)+1
  1. EKG ;need date of last ekg
  1.  S:'$D(BDMCUML(150)) BDMCUML(150)="EKG"
  1.  S $P(BDMCUML(150),U,2)=$P(BDMCUML(150),U,2)+1
  1.  S V=$$EKG^BDMD998(BDMPD,BDMRED,"I")
  1.  I V]"" D
  1.  .S E=$$FMDIFF^XLFDT(BDMADAT,V)
  1.  .I E<(365.25*3) S $P(BDMCUML(150),U,3)=$P(BDMCUML(150),U,3)+1 Q
  1.  .I E<(365.25*5) S $P(BDMCUML(150),U,4)=$P(BDMCUML(150),U,4)+1 Q
  1.  .S $P(BDMCUML(150),U,5)=$P(BDMCUML(150),U,5)+1
  1. CREAT ;
  1.  S:'$D(BDMCUML(170)) BDMCUML(170)="Creatinine obtained in the past 12 months"
  1.  S $P(BDMCUML(170),U,2)=$P(BDMCUML(170),U,2)+1
  1.  S V=$$CREAT^BDMD998(BDMPD,BDMRBD,BDMRED,"I"),V=$P(V,U)
  1.  I V="" S $P(BDMCUML(170),U,5)=$P(BDMCUML(170),U,5)+1 G TCHOL
  1.  I V'=+V S $P(BDMCUML(170),U,6)=$P(BDMCUML(170),U,6)+1 G TCHOL ;unable to determine result
  1.  I V>1.9 S $P(BDMCUML(170),U,3)=$P(BDMCUML(170),U,3)+1
  1.  I V<2.0 S $P(BDMCUML(170),U,4)=$P(BDMCUML(170),U,4)+1
  1. TCHOL ;
  1.  S:'$D(BDMCUML(180)) BDMCUML(180)="Total Cholesterol obtained in past 12 months"
  1.  S $P(BDMCUML(180),U,2)=$P(BDMCUML(180),U,2)+1
  1.  S V=$$CHOL^BDMD998(BDMPD,BDMRBD,BDMRED,"I"),V=$P(V,U)
  1.  I V="" S $P(BDMCUML(180),U,6)=$P(BDMCUML(180),U,6)+1 G LDL
  1.  I V'=+V S $P(BDMCUML(180),U,7)=$P(BDMCUML(180),U,7)+1 G LDL ;unable to determine result
  1.  I V<200 S $P(BDMCUML(180),U,3)=$P(BDMCUML(180),U,3)+1
  1.  I V<240&(V>199) S $P(BDMCUML(180),U,4)=$P(BDMCUML(180),U,4)+1
  1.  I V>239 S $P(BDMCUML(180),U,5)=$P(BDMCUML(180),U,5)+1
  1. LDL ;
  1.  S:'$D(BDMCUML(190)) BDMCUML(190)="LDL Cholesterol obtained in the past 12 months"
  1.  S $P(BDMCUML(190),U,2)=$P(BDMCUML(190),U,2)+1
  1.  S V=$$LDL^BDMD998(BDMPD,BDMRBD,BDMRED,"I"),V=$P(V,U)
  1.  I V="" S $P(BDMCUML(190),U,7)=$P(BDMCUML(190),U,7)+1 G TRIG
  1.  I V'=+V S $P(BDMCUML(190),U,8)=$P(BDMCUML(190),U,8)+1 G TRIG ;unable to determine result
  1.  I V<100 S $P(BDMCUML(190),U,3)=$P(BDMCUML(190),U,3)+1
  1.  I V<130&(V>99) S $P(BDMCUML(190),U,4)=$P(BDMCUML(190),U,4)+1
  1.  I V>129&(V<161) S $P(BDMCUML(190),U,5)=$P(BDMCUML(190),U,5)+1
  1.  I V>160 S $P(BDMCUML(190),U,6)=$P(BDMCUML(190),U,6)+1
  1. TRIG ;
  1.  S:'$D(BDMCUML(200)) BDMCUML(200)="Triglycerides obtained in past 12 months"
  1.  S $P(BDMCUML(200),U,2)=$P(BDMCUML(200),U,2)+1
  1.  S V=$$TRIG^BDMD998(BDMPD,BDMRBD,BDMRED,"I"),V=$P(V,U)
  1.  I V="" S $P(BDMCUML(200),U,7)=$P(BDMCUML(200),U,7)+1 G SELF
  1.  I V'=+V S $P(BDMCUML(200),U,8)=$P(BDMCUML(200),U,8)+1 G SELF ;unable to determine result
  1.  I V<150 S $P(BDMCUML(200),U,3)=$P(BDMCUML(200),U,3)+1
  1.  I V<200&(V>149) S $P(BDMCUML(200),U,4)=$P(BDMCUML(200),U,4)+1
  1.  I V>199&(V<401) S $P(BDMCUML(200),U,5)=$P(BDMCUML(200),U,5)+1
  1.  I V>400 S $P(BDMCUML(200),U,6)=$P(BDMCUML(200),U,6)+1
  1. SELF ;
  1.  S:'$D(BDMCUML(210)) BDMCUML(210)="Self monitoring of blood glucose documented"
  1.  S $P(BDMCUML(210),U,2)=$P(BDMCUML(210),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,98))
  1.  S P=$S($E(V)="Y":3,1:4)
  1.  S $P(BDMCUML(210),U,P)=$P(BDMCUML(210),U,P)+1
  1. SDM  ;
  1.  S:'$D(BDMCUML(220)) BDMCUML(220)="Participating in SDM"
  1.  S $P(BDMCUML(220),U,2)=$P(BDMCUML(220),U,2)+1
  1.  S V=$G(^XTMP("BDMDM99",BDMJOB,BDMBTH,"AUDIT",BDMPD,100))
  1.  S P=$S($E(V)="Y":3,1:4)
  1.  S $P(BDMCUML(220),U,P)=$P(BDMCUML(220),U,P)+1
  1.  Q
  1. SYSMEAN(P,BDATE,EDATE) ;EP
  1.  NEW X S X=$$BPS^BDMD997(P,BDATE,EDATE,"I")
  1.  I X="" Q ""
  1.  NEW Y,C S C=0 F Y=1:1:3 I $P(X,";",Y)]"" S C=C+1
  1.  I C'=3 Q ""
  1.  S C=0 F Y=1:1:3 S C=$P($P(X,";",Y),"/")+C
  1.  Q C\3
  1.  Q ""
  1. DIAMEAN(P,BDATE,EDATE) ;EP
  1.  NEW X S X=$$BPS^BDMD997(P,BDATE,EDATE,"I")
  1.  I X="" Q ""
  1.  NEW Y,C S C=0 F Y=1:1:3 I $P(X,";",Y)]"" S C=C+1
  1.  I C'=3 Q ""
  1.  S C=0 F Y=1:1:3 S C=$P($P(X,";",Y),"/",2)+C
  1.  Q C\3