BDMDD11.m

BDMDD11 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ; 10 Oct 2014  9:50 AM

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**9**;JUN 14, 2007;Build 78

 ;

IMM ;

 S:'$D(BDMCUML(140)) BDMCUML(140)="IMMUNIZATIONS"

 S $P(BDMCUML(140),U,2)=$P(BDMCUML(140),U,2)+1

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,64))

 I $E(V)="1" S $P(BDMCUML(140),U,3)=$P(BDMCUML(140),U,3)+1

 I $E(V)="3" S $P(BDMCUML(140),U,6)=$P(BDMCUML(140),U,6)+1

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,66))

 I $E(V)="1" S $P(BDMCUML(140),U,4)=$P(BDMCUML(140),U,4)+1

 I $E(V)="3" S $P(BDMCUML(140),U,7)=$P(BDMCUML(140),U,7)+1

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,68))

 I $E(V)="1" S $P(BDMCUML(140),U,5)=$P(BDMCUML(140),U,5)+1

 I $E(V)="3" S $P(BDMCUML(140),U,8)=$P(BDMCUML(140),U,8)+1

 ;HEP B

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,115))

 I $E(V)="1" S $P(BDMCUML(140),U,9)=$P(BDMCUML(140),U,9)+1

 I $E(V)="3" S $P(BDMCUML(140),U,10)=$P(BDMCUML(140),U,10)+1

 I $E(V)="4" S $P(BDMCUML(140),U,11)=$P(BDMCUML(140),U,11)+1

 ;TDAP EVER

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,216))

 I $E(V)="1" S $P(BDMCUML(140),U,12)=$P(BDMCUML(140),U,12)+1

 I $E(V)="3" S $P(BDMCUML(140),U,13)=$P(BDMCUML(140),U,13)+1

 ;

QUAN ;

 ;145

 ;title^total pts^total YES^NO^REF^UACR^UPCR^24HR^MICRO STRIP^MICRO ONLY^DIPSTICK

 K BDMOFLG

 S BDMOFLG=0

 S:'$D(BDMCUML(145)) BDMCUML(145)="LABORATORY EXAMS"

 S $P(BDMCUML(145),U,2)=$P(BDMCUML(145),U,2)+1  ;TOTAL # of patients

 S Q=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))

 S V=$E($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)))  ;test done?

 ;S T=$P($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)),U,5)  ;type of test

 S R=$S($P(Q,U,6)]"":$P(Q,U,6),1:$P(Q,U,2))  ;value/result

 I V'=1 S $P(BDMCUML(145),U,4)=$P(BDMCUML(145),U,4)+1  ;no UACR

 I V=1 D

 .S $P(BDMCUML(145),U,3)=$P(BDMCUML(145),U,3)+1  ;TOTAL WITH UACR

 .I R[">" S $P(BDMCUML(145),U,14)=$P(BDMCUML(145),U,14)+1 Q

 .;I $$UP^XLFSTR(R)["COMMENT" S $P(BDMCUML(145),U,12)=$P(BDMCUML(145),U,12)+1 Q

 .S R=$$STV^BDMDD18(R,8)

 .I R="" S $P(BDMCUML(145),U,15)=$P(BDMCUML(145),U,15)+1 Q  ;NO RESULT

 .S R=+R

 .I R<30 S $P(BDMCUML(145),U,12)=$P(BDMCUML(145),U,12)+1,BDMUACRV="<30" Q  ;NORMAL UACR

 .I R<300.9999 S $P(BDMCUML(145),U,13)=$P(BDMCUML(145),U,13)+1,BDMCKD=1,BDMUACRV=">30" Q  ;INREACSED 30-300

 .S $P(BDMCUML(145),U,14)=$P(BDMCUML(145),U,14)+1,BDMCKD=1,BDMUACRV=">30"  ;INCREASED >300

 S G=$P($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,79)),U,2)  ;egfr value

 S H=0

 I $$AGE^AUPNPAT(BDMPD,BDMADAT)>17 D

 .S G=$$AS^BDMDD18(G)

 .S G=$$STV^BDMDD18(G,5,1)

 .I G="" Q

 .I +G>29 S $P(BDMCUML(145),U,20)=$P(BDMCUML(145),U,20)+1 I V=1 S $P(BDMCUML(145),U,21)=$P(BDMCUML(145),U,21)+1

 ;

GFR ;

 G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<18 TCHOL

 S:'$D(BDMCUML(175)) BDMCUML(175)="e-GFR to assess kidney function obtained during audit period"

 S $P(BDMCUML(175),U,2)=$P(BDMCUML(175),U,2)+1  ;total pts over 18

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,79))

 I $E(V)=1 S $P(BDMCUML(175),U,5)=$P(BDMCUML(175),U,5)+1  ;EGFR DONE

 S V=$P(V,U,2) ;EGFR VALUE

 I $E(V)=">" S $P(BDMCUML(175),U,6)=$P(BDMCUML(175),U,6)+1 S BDMEGFRV="61" G TCHOL ;>60

 S V=$$STV^BDMDD18(V,5,1)

 I V="" S $P(BDMCUML(175),U,10)=$P(BDMCUML(175),U,10)+1 G TCHOL

 S BDMEGFRV=+V

 I +V<60 S BDMCKD=1

 I +V>59 S $P(BDMCUML(175),U,6)=$P(BDMCUML(175),U,6)+1 G TCHOL

 I +V<15 S $P(BDMCUML(175),U,9)=$P(BDMCUML(175),U,9)+1 G TCHOL

 I +V>29,+V<60 S $P(BDMCUML(175),U,7)=$P(BDMCUML(175),U,7)+1 G TCHOL

 I +V>14,+V<30 S $P(BDMCUML(175),U,8)=$P(BDMCUML(175),U,8)+1 G TCHOL

 ;

TCHOL ;

 S:'$D(BDMCUML(180)) BDMCUML(180)="Total Cholesterol obtained in past 12 months"

 S $P(BDMCUML(180),U,2)=$P(BDMCUML(180),U,2)+1

 S V=$$CHOL^BDMDD18(BDMPD,BDMBDAT,BDMADAT,"I")

 I V="" S $P(BDMCUML(180),U,6)=$P(BDMCUML(180),U,6)+1 G NONHDL

 S V=$P(V,U)

 S V=$$STV^BDMDD18(V,5,1)

 I V="" S $P(BDMCUML(180),U,7)=$P(BDMCUML(180),U,7)+1 G NONHDL

 I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(180),U,7)=$P(BDMCUML(180),U,7)+1 G NONHDL

 I V<200 S $P(BDMCUML(180),U,3)=$P(BDMCUML(180),U,3)+1 G NONHDL

 I V<240 S $P(BDMCUML(180),U,4)=$P(BDMCUML(180),U,4)+1 G NONHDL

 S $P(BDMCUML(180),U,5)=$P(BDMCUML(180),U,5)+1

NONHDL ;

LDL ;

 S:'$D(BDMCUML(190)) BDMCUML(190)="LDL Cholesterol obtained during audit period"

 S $P(BDMCUML(190),U,2)=$P(BDMCUML(190),U,2)+1

 S V=$$LDL^BDMDD18(BDMPD,BDMBDAT,BDMADAT,"I")

 I V="" S $P(BDMCUML(190),U,7)=$P(BDMCUML(190),U,7)+1 G HDL

 S V=$P(V,U)

 ;S V=$$STV^BDMDD18(V,4)

 S V=$$STV^BDMDD18(V,5,1) I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(190),U,8)=$P(BDMCUML(190),U,8)+1 G HDL

 I V<100 S $P(BDMCUML(190),U,3)=$P(BDMCUML(190),U,3)+1 G HDL

 I V<130 S $P(BDMCUML(190),U,4)=$P(BDMCUML(190),U,4)+1 G HDL

 I V<189.1 S $P(BDMCUML(190),U,5)=$P(BDMCUML(190),U,5)+1 G HDL

 S $P(BDMCUML(190),U,6)=$P(BDMCUML(190),U,6)+1

HDL ;

 S:'$D(BDMCUML(195)) BDMCUML(195)="HDL Cholesterol obtained during audit period"

 S V=$$HDL^BDMDD18(BDMPD,BDMBDAT,BDMADAT,"I")

 S S=$P(^DPT(BDMPD,0),U,2)  ;GENDER

 I S="F" D

 .S $P(BDMCUML(195),U,2)=$P(BDMCUML(195),U,2)+1

 .I V="" S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q

 .S V=$P(V,U)

 .S V=$$STV^BDMDD18(V,5,1) I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q

 .S V=$P(V,"."),V=$$STV^BDMDD18(V,5,1)

 .I $E(V)'=+$E(V)!(+V=0)!(V="") S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q

 .I V<50 S $P(BDMCUML(195),U,3)=$P(BDMCUML(195),U,3)+1 Q

 .S $P(BDMCUML(195),U,4)=$P(BDMCUML(195),U,4)+1 Q

 I S="M" D

 .S $P(BDMCUML(195),U,6)=$P(BDMCUML(195),U,6)+1

 .I V="" S $P(BDMCUML(195),U,9)=$P(BDMCUML(195),U,9)+1 Q

 .S V=$P(V,U)

 .S V=$$STV^BDMDD18(V,5,1) I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(195),U,9)=$P(BDMCUML(195),U,9)+1 Q  ;unable to determine result, not a number

 .S V=$P(V,"."),V=$$STV^BDMDD18(V,5,1)

 .I $E(V)'=+$E(V)!(+V=0)!(V="") S $P(BDMCUML(195),U,9)=$P(BDMCUML(195),U,9)+1 Q  ;unable to determine result, not a number

 .I V<40 S $P(BDMCUML(195),U,7)=$P(BDMCUML(195),U,7)+1 Q

 .S $P(BDMCUML(195),U,8)=$P(BDMCUML(195),U,8)+1 Q

TRIG ;

 S:'$D(BDMCUML(200)) BDMCUML(200)="Triglycerides obtained in past 12 months"

 S $P(BDMCUML(200),U,2)=$P(BDMCUML(200),U,2)+1

 S V=$$TRIG^BDMDD18(BDMPD,BDMBDAT,BDMADAT,"I")

 I V="" S $P(BDMCUML(200),U,7)=$P(BDMCUML(200),U,7)+1 G ACE

 S V=$P(V,U)

 S V=$$STV^BDMDD18(V,5,1) I $E(V)'=+$E(V) S $P(BDMCUML(200),U,5)=$P(BDMCUML(200),U,5)+1 G ACE ;unable to determine result, not a number

 I V<150 S $P(BDMCUML(200),U,3)=$P(BDMCUML(200),U,3)+1 G ACE

 I V<1000 S $P(BDMCUML(200),U,8)=$P(BDMCUML(200),U,8)+1 G ACE

 S $P(BDMCUML(200),U,4)=$P(BDMCUML(200),U,4)+1

 ;

ACE ;110 title^total pts^total pts with protein^# of those on ace^# with htn^# of those on ace"

 S $P(BDMCUML(110),U,2)=$P(BDMCUML(110),U,2)+1

 ;set 3rd piece with # with proteinuria

 S P=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))  ;URINE PROTEIN VALUE

 S H=$E($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,34)))

 S A=$E($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,60)))

 I A S $P(BDMCUML(110),U,3)=$P(BDMCUML(110),U,3)+1  ;TOTAL ACE

 I $E(H)=1 S $P(BDMCUML(110),U,5)=$P(BDMCUML(110),U,5)+1 I A=1 S $P(BDMCUML(110),U,7)=$P(BDMCUML(110),U,7)+1  ;TOTAL HTN

 I BDMCKD,$$AGE^AUPNPAT(BDMPD)>17 S $P(BDMCUML(110),U,4)=$P(BDMCUML(110),U,4)+1 I A=1 S $P(BDMCUML(110),U,8)=$P(BDMCUML(110),U,8)+1 ;TOTAL CKD

CVD ;USE 250

 S:'$D(BDMCUML(250)) BDMCUML(250)="Cardiovascular Disease"

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,116))

 I $E(V)=1 S $P(BDMCUML(250),U,3)=$P(BDMCUML(250),U,3)+1

 S $P(BDMCUML(250),U,2)=$P(BDMCUML(250),U,2)+1

EGFRQUP ;

 S:'$D(BDMCUML(270)) BDMCUML(270)="eGFR and QUANTITATIVE URINARY PROTEIN ASSESSMENT"

 G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<18 COMBINED

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,79)),V=$$STV^BDMDD18($P(V,U,2),5)

 S T=$P($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)),U,5)  ;type of test

 S $P(BDMCUML(270),U,2)=$P(BDMCUML(270),U,2)+1

 I V]"",T=1 S $P(BDMCUML(270),U,3)=$P(BDMCUML(270),U,3)+1,BDMEGFRU=1  ;had both

COMBINED ;USE 260

 S:'$D(BDMCUML(260)) BDMCUML(260)="Combined Outcome Measures"

 ;ONLY 40 AND OLDER

 G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<40 E

 S V=$G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,118))

 I $E(V)=1 S $P(BDMCUML(260),U,3)=$P(BDMCUML(260),U,3)+1

 S $P(BDMCUML(260),U,2)=$P(BDMCUML(260),U,2)+1

E G CUML^BDMDD1J

 ;

CESS(P,BDATE,EDATE) ;EP - find any cessation hf in 12 months before E

 I '$G(P) Q ""

 I $P($$TOBACCO^BDMDD1T(P,$$DOB^AUPNPAT(P),EDATE),U,1)'=1 Q ""

 NEW BDM,E,X,G,T,O,D,H,C,Q,BDMLPED,SN,SNY

 S BDMLPED=""

 K BDM

 S T=$O(^ATXAX("B","DM AUDIT CESSATION HLTH FACTOR",0))

 S (H,D)=0 S O=""

 S H=0 F  S H=$O(^AUPNVHF("AA",P,H)) Q:H'=+H!(O]"")  D

 .S G=0

 .I $D(^ATXAX(T,21,"AA",H)) S G=1

 .I $P(^AUTTHF(H,0),U,1)["CESSATION",$$VAL^XBDIQ1(9999999.64,H,.03)["TOBACCO" S G=1

 .Q:'G

 .S D="" F  S D=$O(^AUPNVHF("AA",P,H,D)) Q:D'=+D!(BDMLPED]"")  D

 ..Q:(9999999-D)>EDATE  ;after time frame

 ..Q:(9999999-D)<BDATE  ;before time frame

 ..S BDMLPED=(9999999-D)_U_$P(^AUTTHF(H,0),U)

 .Q

 NEW BDMALLED,X,Y,%,T,G,A,B,E,Z,BDMMEDS1,Q,SN

 K BDMALLED

 S Y="BDMALLED("

 S X=P_"^ALL EDUC;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE) S E=$$START1^APCLDF(X,Y)

 S %="",SNY=$O(^BDMSNME("B",2016,0)),SN=$O(^BDMSNME(SNY,11,"B","TOBACCO CESSATION PATIENT ED",0))

 I $D(BDMALLED(1)) S %="" D  I %]"" S BDMLPED=%

 .S (X,D)=0,T="" F  S X=$O(BDMALLED(X)) Q:X'=+X  D

 ..S T=$P(^AUPNVPED(+$P(BDMALLED(X),U,4),0),U)

 ..Q:'T

 ..Q:'$D(^AUTTEDT(T,0))

 ..S T=$P(^AUTTEDT(T,0),U,2)

 ..I $P(T,"-")="TO",$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 ..I $P(T,"-",2)="TO",$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 ..I $P(T,"-",2)="SHS",$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 ..;make the call here to the BGP SMOKING DXS taxonomy

 ..;p8 ICD-10

 ..N CODE

 ..S CODE=$P($$CODEN^BDMUTL($P(T,"-",1),80),"~")

 ..I CODE>0 D

 ...N TAX

 ...S TAX=$O(^ATXAX("B","BGP TOBACCO USER DXS",0))

 ...I $$ICD^BDMUTL(CODE,"BGP TOBACCO USER DXS",9),$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 ..I $P(T,"-",1)="D1320"!($P(T,"-")="99406")!($P(T,"-")="99407")!($P(T,"-")="G0375")!($P(T,"-")="G0376")!($P(T,"-")="4000F")!($P(T,"-")="G8402")!($P(T,"-")="G8453"),$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 ..I $P(T,"-")]"",$D(^BDMSNME(SNY,11,SN,11,"B",$P(T,"-"))),$P(BDMLPED,U)<$P(BDMALLED(X),U) S %=$P(BDMALLED(X),U)_U_T Q

 K ^TMP($J,"A")

 S A="^TMP($J,""A"",",B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(B,A)

 S X=0,G="" F  S X=$O(^TMP($J,"A",X)) Q:X'=+X  S V=$P(^TMP($J,"A",X),U,5) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:'$P(^AUPNVSIT(V,0),U,9)

 .Q:$P(^AUPNVSIT(V,0),U,11)

 .S B=$$CLINIC^APCLV(V,"C")

 .I B=94,$P(BDMLPED,U)<$P($P(^AUPNVSIT(V,0),U),".") S BDMLPED=$P($P(^AUPNVSIT(V,0),U),".")_U_"Clinic 94" Q

 .S Z=0 F  S Z=$O(^AUPNVDEN("AD",V,Z)) Q:Z'=+Z!(G)  S B=$P($G(^AUPNVDEN(Z,0)),U) I B S B=$P($G(^AUTTADA(B,0)),U) I B=1320,$P(BDMLPED,U)<$P($P(^AUPNVSIT(V,0),U),".") S BDMLPED=$P($P(^AUPNVSIT(V,0),U),".")_U_"ADA 1320" Q

 .Q

 ;I BDMLPED]"" Q "1  Yes  "_$$DATE^BDMS9B1($P(BDMLPED,U,1))_"  "_$P(BDMLPED,U,2)

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("D1320")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT D1320"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("D1320")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN D1320"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD(99406)) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT 99406"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD(99406)) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN 99406"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD(99407)) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT 99407"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD(99407)) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN 99407"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G0375")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT G0375"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G0376")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT G0376"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("4000F")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT 4000F"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G0375")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN G0375"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G0376")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN G0376"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("4000F")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN 4000F"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("4001F")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CESSATION MED - CPT 4001F"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("4001F")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN 4001F"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G8402")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT G8402"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G8402")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN G8402"

 S G=$$CPTI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G8453")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"CPT G8453"

 S G=$$TRANI^BDMDDDU(P,BDATE,EDATE,+$$CODEN^ICPTCOD("G8453")) I G,$P(BDMLPED,U)<$P(G,U,2) S BDMLPED=$P(G,U,2)_U_"TRAN G8453"

 I BDMLPED]"" Q "1  Yes "_$$DATE^BDMS9B1($P(BDMLPED,U,1))_" "_$P(BDMLPED,U,2)

 ;now check meds

 K BDMMEDS1

 D GETMEDS^BDMDDDU(P,BDATE,EDATE,,,,,.BDMMEDS1)

 S T=$O(^ATXAX("B","BGP CMS SMOKING CESSATION MEDS",0))

 S T1=$O(^ATXAX("B","BGP CMS SMOKING CESSATION NDC",0))

 S (X,G,M,E)=0,D="" F  S X=$O(BDMMEDS1(X)) Q:X'=+X  S V=$P(BDMMEDS1(X),U,5),Y=+$P(BDMMEDS1(X),U,4) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:$$UP^XLFSTR($P($G(^AUPNVMED(Y,11)),U))["RETURNED TO STOCK"  ;new in v11.0

 .S Z=$P($G(^AUPNVMED(Y,0)),U) ;get drug ien

 .Q:'Z

 .S N=$P($G(^PSDRUG(Z,0)),U)

 .I $D(^ATXAX(T,21,"B",Z))!(N["NICOTINE TRANS")!(N["NICOTINE PATCH")!(N["NICOTINE POLACRILEX")!(N["NICOTINE INHALER")!(N["NICOTINE NASAL SPRAY") D

 ..I $P(BDMLPED,U)<$P($P(^AUPNVSIT(V,0),U),".") S BDMLPED=$P($P(^AUPNVSIT(V,0),U),".")_U_"CESSATION MED - "_N

 .S C=$P($G(^PSDRUG(Z,2)),U,4)

 .I C]"",$D(^ATXAX(T1,21,"B",C)) I $P(BDMLPED,U)<$P($P(^AUPNVSIT(V,0),U),".") S BDMLPED=$P($P(^AUPNVSIT(V,0),U),".")_U_"CESSATION MED - "_N

 I BDMLPED]"" Q "1  Yes "_$$DATE^BDMS9B1($P(BDMLPED,U,1))_" "_$P(BDMLPED,U,2)

PEDREF ; REFUSALS REMOVED 2016 AUDIT

 Q "2  No"

BDMDD11   ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT ; 10 Oct 2014  9:50 AM

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**9**;JUN 14, 2007;Build 78

 +2       ;

IMM       ;

 +1        IF '$DATA(BDMCUML(140))

               SET BDMCUML(140)="IMMUNIZATIONS"

 +2        SET $PIECE(BDMCUML(140),U,2)=$PIECE(BDMCUML(140),U,2)+1

 +3        SET V=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,64))

 +4        IF $EXTRACT(V)="1"

               SET $PIECE(BDMCUML(140),U,3)=$PIECE(BDMCUML(140),U,3)+1

 +5        IF $EXTRACT(V)="3"

               SET $PIECE(BDMCUML(140),U,6)=$PIECE(BDMCUML(140),U,6)+1

 +6        SET V=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,66))

 +7        IF $EXTRACT(V)="1"

               SET $PIECE(BDMCUML(140),U,4)=$PIECE(BDMCUML(140),U,4)+1

 +8        IF $EXTRACT(V)="3"

               SET $PIECE(BDMCUML(140),U,7)=$PIECE(BDMCUML(140),U,7)+1

 +9        SET V=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,68))

 +10       IF $EXTRACT(V)="1"

               SET $PIECE(BDMCUML(140),U,5)=$PIECE(BDMCUML(140),U,5)+1

 +11       IF $EXTRACT(V)="3"

               SET $PIECE(BDMCUML(140),U,8)=$PIECE(BDMCUML(140),U,8)+1

 +12      ;HEP B

 +13       SET V=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,115))

 +14       IF $EXTRACT(V)="1"

               SET $PIECE(BDMCUML(140),U,9)=$PIECE(BDMCUML(140),U,9)+1

 +15       IF $EXTRACT(V)="3"

               SET $PIECE(BDMCUML(140),U,10)=$PIECE(BDMCUML(140),U,10)+1

 +16       IF $EXTRACT(V)="4"

               SET $PIECE(BDMCUML(140),U,11)=$PIECE(BDMCUML(140),U,11)+1

 +17      ;TDAP EVER

 +18       SET V=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,216))

 +19       IF $EXTRACT(V)="1"

               SET $PIECE(BDMCUML(140),U,12)=$PIECE(BDMCUML(140),U,12)+1

 +20       IF $EXTRACT(V)="3"

               SET $PIECE(BDMCUML(140),U,13)=$PIECE(BDMCUML(140),U,13)+1

 +21      ;

QUAN      ;

 +1       ;145

 +2       ;title^total pts^total YES^NO^REF^UACR^UPCR^24HR^MICRO STRIP^MICRO ONLY^DIPSTICK

 +3        KILL BDMOFLG

 +4        SET BDMOFLG=0

 +5        IF '$DATA(BDMCUML(145))

               SET BDMCUML(145)="LABORATORY EXAMS"

 +6       ;TOTAL # of patients

           SET $PIECE(BDMCUML(145),U,2)=$PIECE(BDMCUML(145),U,2)+1

 +7        SET Q=$GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))

 +8       ;test done?

           SET V=$EXTRACT($GET(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)))

 +9       ;S T=$P($G(^XTMP("BDMDM16",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)),U,5)  ;type of test

 +10      ;value/result

           SET R=$SELECT($PIECE(Q,U,6)]"":$PIECE(Q,U,6),1:$PIECE(Q,U,2))

 +11      ;no UACR

           IF V'=1

               SET $PIECE(BDMCUML(145),U,4)=$PIECE(BDMCUML(145),U,4)+1

 +12       IF V=1

               Begin DoDot:1

 +13      ;TOTAL WITH UACR

                   SET $PIECE(BDMCUML(145),U,3)=$PIECE(BDMCUML(145),U,3)+1

 +14               IF R[">"