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

BDMDG15.m

Go to the documentation of this file. 
  1. BDMDG15 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT 03 Feb 2014 5:38 PM ;
  1.  ;;2.0;DIABETES MANAGEMENT SYSTEM;**12**;JUN 14, 2007;Build 51
  1.  ;
  1.  ;
  1. CUML ;EP
  1.  K BDMCUML
  1.  S BDMCUML(10)="Gender"
  1.  S BDMCUML(20)="Age"
  1.  S BDMCUML(25)="Diabetes Type"
  1.  S BDMCUML(30)="Duration of Diabetes"
  1.  S BDMCUML(40)="Body Mass Index (BMI) Category"
  1.  S BDMCUML(50)="Blood Sugar Control"
  1.  S BDMCUML(70)="Tuberculosis (TB) Status"
  1.  S BDMCUML(60)="Blood Pressure (BP) - Based on one value or mean of two or three values"
  1.  S BDMCUML(65)="Tobacco use screening during Audit period:"
  1.  S BDMCUML(69)=""
  1.  S BDMCUML(80)="Tobacco use status"
  1.  S BDMCUML(90)="Diabetes Treatment"
  1.  S BDMCUML(100)="Aspirin or Other Antiplatelet/Anticoagulant Therapy Prescribed"
  1.  S BDMCUML(110)="ACE Inhibitor or ARB Prescribed"
  1.  S BDMCUML(115)="Statin Prescribed"
  1.  S BDMCUML(117)="Lower Extremity Amputation"
  1.  S BDMCUML(300)="Depression as an Active Problem"
  1.  S BDMCUML(301)="Depression Screening?"
  1.  S BDMCUML(120)="Exams"
  1.  S BDMCUML(130)="Diabetes-Related Education"
  1.  S BDMCUML(140)="Immunizations"
  1.  S BDMCUML(145)="Laboratory Exams"
  1.  S BDMCUML(150)="Electrocardiogram (Age 30 and above)"
  1.  S BDMCUML(170)="Creatinine obtained during audit period"
  1.  S BDMCUML(175)="Estimated GFR documented during audit period"
  1.  S BDMCUML(180)="Total Cholesterol obtained in past 12 months"
  1.  S BDMCUML(190)="LDL Cholesterol obtained during audit period"
  1.  S BDMCUML(195)="HDL Cholesterol obtained during audit period"
  1.  S BDMCUML(200)="Triglycerides obtained during audit period"
  1.  S BDMCUML(400)="Comorbidities"
  1.  S BDMCUML(410)="Hypertension"
  1.  S BDMCUML(500)="Diabetes Related Conditions (In age >=18 years)"
  1.  ;
  1. PROCESS ;
  1.  S BDMNOGO=0
  1.  S BDMPD=0 F  S BDMPD=$O(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD)) Q:BDMPD'=+BDMPD  D CUML1
  1.  Q
  1.  ;
  1. CUML1 ;
  1.  S BDMCOMOR=0  ;VARIABLE FOR # OF COMORBIDITIES
  1.  S BDMSEVOB=0  ;SEVERELY OBESE
  1.  S BDMBP140=0  ;COMORBIDITY SECTION
  1.  S BDMCKD=0  ;CKD?
  1.  S BDMEGFRU=0  ;BOTH EGFR AND UACR
  1.  S BDMEGFRV=""  ;EGFR VALUE
  1.  S BDMUACRV=""  ;UACR VALUE
  1. GENDER ;
  1.  I $$DODX^BDMDG16(BDMPD,BDMDMRG,"I")>BDMADAT S BDMNOGO=BDMNOGO+1 Q
  1.  ;gender BDMCUML(10)="Gender^total^females^males"
  1.  S $P(BDMCUML(10),U,2)=$P(BDMCUML(10),U,2)+1
  1.  S V=$G(^XTMP("BDMDM19",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.  S $P(BDMCUML(20),U,2)=$P(BDMCUML(20),U,2)+1
  1.  S P=$S(V<20:3,V>19&(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. TYPE ;
  1.  ;BDMCUML(25)="Total^Type 1^Type 2"
  1.  S X=$$TYPE^BDMDG16(BDMPD,BDMDMRG,BDMADAT)
  1.  S $P(BDMCUML(25),U,2)=$P(BDMCUML(25),U,2)+1
  1.  S P=$S(X="":4,X=1:3,X=2:4,1:4)
  1.  S $P(BDMCUML(25),U,P)=$P(BDMCUML(25),U,P)+1
  1. DURDMC ;
  1.  ;BDMCUML(30)="Duration of Diabetes^total^<10^10 or more^no date of dx on problem list or cms register^less than 1 year"
  1.  S $P(BDMCUML(30),U,2)=$P(BDMCUML(30),U,2)+1
  1.  ;
  1.  S V=$$DURDM^BDMDG16(BDMPD,BDMDMRG,BDMADAT)
  1.  S P=$S(V="":5,V<10:3,1:4)
  1.  S $P(BDMCUML(30),U,P)=$P(BDMCUML(30),U,P)+1
  1.  I V]"",V<1 S $P(BDMCUML(30),U,6)=$P(BDMCUML(30),U,6)+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 V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,112))
  1.  S H=$$LASTHT^BDMDG13(BDMPD,BDMRED,"I") S:H]"" H=$$STRIP^XLFSTR($J(H,5,2)," ")
  1.  S W=+$$LASTWT^BDMDG13(BDMPD,BDMBDAT,BDMRED),W=$S(W=0:"",1:W) I W]"" S W=W\1
  1.  S V=$$BMIEPI^BDMDG19(H,W)
  1.  S $P(BDMCUML(40),U,2)=$P(BDMCUML(40),U,2)+1
  1.  D
  1.  .I V=""!(H="")!(W="") S $P(BDMCUML(40),U,5)=$P(BDMCUML(40),U,5)+1 Q
  1.  .I V<25 S $P(BDMCUML(40),U,6)=$P(BDMCUML(40),U,6)+1 Q
  1.  .I $$OW^BDMDG14(BDMPD,V,BDMADAT) S $P(BDMCUML(40),U,3)=$P(BDMCUML(40),U,3)+1 Q
  1.  .I $$OB^BDMDG14(BDMPD,V,BDMADAT) S $P(BDMCUML(40),U,4)=$P(BDMCUML(40),U,4)+1
  1.  .I $$SOB^BDMDG14(BDMPD,V,BDMADAT) S $P(BDMCUML(40),U,7)=$P(BDMCUML(40),U,7)+1,BDMSEVOB=1 Q
  1. HGB ;
  1.  ;use last hgba1c value only
  1.  ;BDMCUML(50)=
  1.  S $P(BDMCUML(50),U,2)=$P(BDMCUML(50),U,2)+1
  1.  S V=$P($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,78)),U,2)
  1.  S P=""
  1.  I V=""!(V="?") S P=9 G HGBS
  1.  I V["<" S P=3
  1.  I V[">" S P=8
  1.  I P G HGBS
  1.  S V=$$STV^BDMDG18(V,5)
  1.  I V="" S P=9 G HGBS
  1.  S V=+V
  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. HGBS ;
  1.  S $P(BDMCUML(50),U,P)=$P(BDMCUML(50),U,P)+1
  1.  I P=3!(P=4) S $P(BDMCUML(50),U,11)=$P(BDMCUML(50),U,11)+1
  1.  I P=7!(P=8) S $P(BDMCUML(50),U,12)=$P(BDMCUML(50),U,12)+1 G BPC
  1.  I P=6,V>9 S $P(BDMCUML(50),U,12)=$P(BDMCUML(50),U,12)+1
  1. BPC ;blood pressure control
  1.  ;take last 3 bp's and get mean systolic and mean diastolic
  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<70) S $P(BDMCUML(60),U,3)=$P(BDMCUML(60),U,3)+1,BDMBP140=1 Q
  1.  .;I S<130&(D<80) S $P(BDMCUML(60),U,4)=$P(BDMCUML(60),U,4)+1,BDMBP140=1 Q
  1.  .I S<140&(D<90) S $P(BDMCUML(60),U,5)=$P(BDMCUML(60),U,5)+1,BDMBP140=1 Q
  1.  .I S<160&(D<100) S $P(BDMCUML(60),U,6)=$P(BDMCUML(60),U,6)+1 Q  ;patch 12 2019 change 95 to 100
  1.  .S $P(BDMCUML(60),U,7)=$P(BDMCUML(60),U,7)+1
  1.  I $$AGE^AUPNPAT(BDMPD,BDMADAT)>59 S $P(BDMCUML(60),U,9)=$P(BDMCUML(60),U,9)+1 I S]"",D]"",S<150,D<90 S $P(BDMCUML(60),U,10)=$P(BDMCUML(60),U,10)+1
  1. HTN ;410
  1.  S $P(BDMCUML(410),U,2)=$P(BDMCUML(410),U,2)+1  ;total pts htn denom
  1.  S H=$E($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,34)))
  1.  I $E(H)=1 S $P(BDMCUML(410),U,3)=$P(BDMCUML(410),U,3)+1
  1.  ;HTN AND MEAN BP <140/<90 PIECE 7
  1.  I $E(H)=1,BDMBP140 S $P(BDMCUML(410),U,4)=$P(BDMCUML(410),U,4)+1
  1.  ;HTN AND ACE/ARB USAGE
  1.  S A=$E($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,60)))  ;ACE/ARB USAGE
  1.  I H=1,$E(A)=1 S $P(BDMCUML(410),U,5)=$P(BDMCUML(410),U,5)+1  ;TOTAL HTN AND ACE/ARB USAGE
  1. TBSTAT ;
  1.  S $P(BDMCUML(70),U,2)=$P(BDMCUML(70),U,2)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,70))
  1.  I $E(V)=1!($E(V)=2) S $P(BDMCUML(70),U,3)=$P(BDMCUML(70),U,3)+1
  1.  I $E(V)=1 S $P(BDMCUML(70),U,4)=$P(BDMCUML(70),U,4)+1
  1.  I $E(V)=2 S $P(BDMCUML(70),U,5)=$P(BDMCUML(70),U,5)+1
  1.  I $E($P(V,"||",2))=1 S $P(BDMCUML(70),U,6)=$P(BDMCUML(70),U,6)+1
  1.  I $E($P(V,"||",2))=1,$E($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,72)))=1 S $P(BDMCUML(70),U,7)=$P(BDMCUML(70),U,7)+1
  1.  I $E($P(V,"||",2))=2 D
  1.  .S $P(BDMCUML(70),U,9)=$P(BDMCUML(70),U,9)+1
  1.  .S X=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,114))
  1.  .I $$DODX^BDMDG16(BDMPD,BDMDMRG,"I")="" Q
  1.  .S D=$$DODX^BDMDG16(BDMPD,BDMDMRG,"I"),E=X I D>E Q
  1.  .S $P(BDMCUML(70),U,8)=$P(BDMCUML(70),U,8)+1
  1. TOBACCO ;
  1.  S $P(BDMCUML(80),U,2)=$P(BDMCUML(80),U,2)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,27))
  1.  S V1=$G(^XTMP("BDMDM19",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)="1":4,$E(V1)="2":5,1:6) S $P(BDMCUML(80),U,P)=$P(BDMCUML(80),U,P)+1
  1.  I +V=2 S $P(BDMCUML(80),U,7)=$P(BDMCUML(80),U,7)+1
  1.  I +V=3 S $P(BDMCUML(80),U,8)=$P(BDMCUML(80),U,8)+1
  1. TOBSCR ;
  1.  S $P(BDMCUML(65),U,2)=$P(BDMCUML(65),U,2)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,215))
  1.  I +V=1!(+V=2) S $P(BDMCUML(65),U,3)=$P(BDMCUML(65),U,3)+1
  1.  I +V=3 S $P(BDMCUML(65),U,4)=$P(BDMCUML(65),U,4)+1
  1. ENDS ;
  1.  S $P(BDMCUML(69),U,2)=$P(BDMCUML(69),U,2)+1  ;denominator
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,31))
  1.  I +V=1 S $P(BDMCUML(69),U,3)=$P(BDMCUML(69),U,3)+1  ;screened
  1.  I +V=2 S $P(BDMCUML(69),U,4)=$P(BDMCUML(69),U,4)+1  ;not screened
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,33))
  1.  I $P(V,U,1)=1 S $P(BDMCUML(69),U,5)=$P(BDMCUML(69),U,5)+1  ;USER
  1.  I $P(V,U,1)=2 S $P(BDMCUML(69),U,6)=$P(BDMCUML(69),U,6)+1  ;not USER
  1.  I $P(V,U,1)=3 S $P(BDMCUML(69),U,7)=$P(BDMCUML(69),U,7)+1  ;not DOC
  1.  S T=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,27))  ;TOBACCO USER
  1.  I $P(V,U,1)=1,+T=1 S $P(BDMCUML(69),U,8)=$P(BDMCUML(69),U,8)+1
  1.  I $P(V,U,1)=1!(+T=1) S $P(BDMCUML(69),U,9)=$P(BDMCUML(69),U,9)+1  ;tobacco or ENDS
  1. DMTX ;diabetes treatment
  1.  S BDM6MBD=$$FMADD^XLFDT(BDMADAT,-(6*31)),BDM6MBD=$$FMTE^XLFDT(BDM6MBD)
  1.  S $P(BDMCUML(90),U,2)=$P(BDMCUML(90),U,2)+1
  1.  S V=$$THERAPY^BDMDG16(BDMPD,BDM6MBD,BDMRED)  ;^ pieced with each item  or =1 for diet alone or =14 for refused
  1.  I V=1 S $P(BDMCUML(90),U,3)=$P(BDMCUML(90),U,3)+1 G ASPIRIN  ;DIET ALONE
  1.  F I=1:1 S Q=$P(V,U,I) Q:Q=""!(Q["|")  D
  1.  . S P=$S(Q=2:4,Q=3:5,Q=4:6,Q=5:7,Q=6:8,Q=7:9,Q=8:10,Q=9:11,Q=10:12,Q=11:14,Q=12:15,Q=13:16,1:"") S $P(BDMCUML(90),U,P)=$P(BDMCUML(90),U,P)+1
  1.  S I=$P(V,"|||",2)  ;total number
  1.  I I=1 S $P(BDMCUML(90),U,17)=$P(BDMCUML(90),U,17)+1 G ASPIRIN
  1.  I I=2 S $P(BDMCUML(90),U,18)=$P(BDMCUML(90),U,18)+1 G ASPIRIN
  1.  I I=3 S $P(BDMCUML(90),U,19)=$P(BDMCUML(90),U,19)+1  ;
  1.  I I>3 S $P(BDMCUML(90),U,20)=$P(BDMCUML(90),U,20)+1
  1.  ;
  1. ASPIRIN ;
  1.  ;only tally if patient is 30 and older
  1.  ;G ACE:$$AGE^AUPNPAT(BDMPD,BDMADAT)<41  ;changed to 41 from 30 with 2010
  1.  ;I $$SEX^AUPNPAT(BDMPD)="M",$$AGE^AUPNPAT(BDMPD,BDMADAT)<51 G ACE
  1.  ;I $$SEX^AUPNPAT(BDMPD)="F",$$AGE^AUPNPAT(BDMPD,BDMADAT)<61 G ACE
  1.  I $E($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,116)))'=1 G LIPIDAG  ;not cvd
  1.  S $P(BDMCUML(100),U,2)=$P(BDMCUML(100),U,2)+1  ;total with cvd
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,62))
  1.  S P=$S($E(V)=1:3,$E(V)=3:5,$E(V)=2:4,1:4)
  1.  S $P(BDMCUML(100),U,P)=$P(BDMCUML(100),U,P)+1
  1.  ;
  1. LIPIDAG ;lipid agents
  1.  S BDMLPC=0,BDMREF=0
  1.  S BDM6M=$$FMADD^XLFDT(BDMADAT,-(6*31))
  1.  S $P(BDMCUML(115),U,2)=$P(BDMCUML(115),U,2)+1  ;total # of patients
  1.  ;total # with CVD ;piece 16
  1.  S V=$E($$STATIN^BDMDG16(BDMPD,BDM6M,BDMADAT))
  1.  I V=1 S $P(BDMCUML(115),U,6)=$P(BDMCUML(115),U,6)+1  ;
  1.  I V=3 S $P(BDMCUML(115),U,7)=$P(BDMCUML(115),U,7)+1
  1.  I V'=3 S $P(BDMCUML(115),U,4)=$P(BDMCUML(115),U,4)+1
  1.  S C=0
  1.  I $E($G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,116)))=1 D
  1.  .S C=1,$P(BDMCUML(115),U,16)=$P(BDMCUML(115),U,16)+1
  1.  .I V'=3 S $P(BDMCUML(115),U,21)=$P(BDMCUML(115),U,21)+1
  1.  .I V=1 S $P(BDMCUML(115),U,22)=$P(BDMCUML(115),U,22)+1
  1.  .I V=3 S $P(BDMCUML(115),U,17)=$P(BDMCUML(115),U,17)+1
  1.  S A=$$AGE^AUPNPAT(BDMPD,BDMADAT)
  1.  I A>39&(A<76) D
  1.  .S $P(BDMCUML(115),U,23)=$P(BDMCUML(115),U,23)+1
  1.  .I V'=3 S $P(BDMCUML(115),U,8)=$P(BDMCUML(115),U,8)+1
  1.  .I V=1 S $P(BDMCUML(115),U,19)=$P(BDMCUML(115),U,19)+1
  1.  .I V=3 S $P(BDMCUML(115),U,20)=$P(BDMCUML(115),U,20)+1
  1.  I C=1!(A>39&(A<76)) D
  1.  .S $P(BDMCUML(115),U,24)=$P(BDMCUML(115),U,24)+1  ;DENOM
  1.  .I V'=3 S $P(BDMCUML(115),U,25)=$P(BDMCUML(115),U,25)+1
  1.  .I V=1 S $P(BDMCUML(115),U,26)=$P(BDMCUML(115),U,26)+1
  1.  .I V=3 S $P(BDMCUML(115),U,27)=$P(BDMCUML(115),U,27)+1
  1.  ;
  1. LIPID ;115
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,61))
  1.  S L=$$LDL^BDMDG18(BDMPD,BDMBDAT,BDMADAT,"I"),L=$P(L,U)
  1.  S T=$$CHOL^BDMDG18(BDMPD,BDMBDAT,BDMADAT,"I"),T=$P(T,U)
  1.  S T=$$STV^BDMDG18(T,5,1)
  1.  S L=$$STV^BDMDG18(L,5,1)
  1. DEP ;
  1.  S $P(BDMCUML(300),U,2)=$P(BDMCUML(300),U,2)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,200))
  1.  I $E(V)="1" S $P(BDMCUML(300),U,3)=$P(BDMCUML(300),U,3)+1
  1.  I $E(V)'="1" S $P(BDMCUML(301),U,2)=$P(BDMCUML(301),U,2)+1 D
  1.  .S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,210))
  1.  .I $E(V)="1" S $P(BDMCUML(301),U,3)=$P(BDMCUML(301),U,3)+1
  1.  .I $E(V)="2" S $P(BDMCUML(301),U,4)=$P(BDMCUML(301),U,4)+1
  1.  .I $E(V)="3" S $P(BDMCUML(301),U,5)=$P(BDMCUML(301),U,5)+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("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,38))
  1.  I $E(V)="1" S $P(BDMCUML(120),U,3)=$P(BDMCUML(120),U,3)+1
  1.  I $E(V)="3" S $P(BDMCUML(120),U,6)=$P(BDMCUML(120),U,6)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,40))
  1.  I $E(V)="1" S $P(BDMCUML(120),U,4)=$P(BDMCUML(120),U,4)+1
  1.  I $E(V)="3" S $P(BDMCUML(120),U,7)=$P(BDMCUML(120),U,7)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,42))
  1.  I $E(V)="1" S $P(BDMCUML(120),U,5)=$P(BDMCUML(120),U,5)+1
  1.  I $E(V)="3" S $P(BDMCUML(120),U,8)=$P(BDMCUML(120),U,8)+1
  1.  I $P(^DPT(BDMPD,0),U,2)="F" S $P(BDMCUML(120),U,9)=$P(BDMCUML(120),U,9)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,108))
  1.  I $E(V)="1" S $P(BDMCUML(120),U,10)=$P(BDMCUML(120),U,10)+1
  1.  I $E(V)="3" S $P(BDMCUML(120),U,11)=$P(BDMCUML(120),U,11)+1
  1. LEAMP ;
  1.  S:'$D(BDMCUML(117)) BDMCUML(117)="Lower Extremity Amputation"
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,230))
  1.  S $P(BDMCUML(117),U,2)=$P(BDMCUML(117),U,2)+1
  1.  I $E(V)=1 S $P(BDMCUML(117),U,3)=$P(BDMCUML(117),U,3)+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 G=0,V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,44))
  1.  I $E(V)="1"!($E(V)=2)!($E(V)=3) S $P(BDMCUML(130),U,3)=$P(BDMCUML(130),U,3)+1 S G=1
  1.  I $E(V)="5" S $P(BDMCUML(130),U,7)=$P(BDMCUML(130),U,7)+1
  1.  I $E(V)="1" S $P(BDMCUML(130),U,10)=$P(BDMCUML(130),U,10)+1 S G=1
  1.  I $E(V)="3" S $P(BDMCUML(130),U,10)=$P(BDMCUML(130),U,10)+1 S G=1  ;cmi/maw 1/15/08
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,46))
  1.  I $E(V)="1" S $P(BDMCUML(130),U,4)=$P(BDMCUML(130),U,4)+1 S G=1
  1.  I $E(V)="3" S $P(BDMCUML(130),U,8)=$P(BDMCUML(130),U,8)+1
  1.  S V=$G(^XTMP("BDMDM19",BDMJOB,BDMBTH,"AUDIT",BDMPD,48))
  1.  I $E(V)="3" S $P(BDMCUML(130),U,9)=$P(BDMCUML(130),U,9)+1
  1.  I $E(V)="1" S $P(BDMCUML(130),U,5)=$P(BDMCUML(130),U,5)+1 S G=1
  1.  I G S $P(BDMCUML(130),U,6)=$P(BDMCUML(130),U,6)+1
  1.  D ^BDMDG11
  1.  Q
  1. SYSMEAN(P,BDATE,EDATE) ;EP
  1.  NEW X,Z,C,Y
  1.  S X=$$BPS^BDMDG13(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<1 Q ""
  1.  S Z=C
  1.  S C=0 F Y=1:1:Z S C=$P($P(X,";",Y),"/")+C
  1.  Q C\Z
  1. DIAMEAN(P,BDATE,EDATE) ;EP
  1.  NEW X,Z,C,Y
  1.  S X=$$BPS^BDMDG13(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<1 Q ""
  1.  S Z=C
  1.  S C=0 F Y=1:1:Z S C=$P($P(X,";",Y),"/",2)+C
  1.  Q C\Z