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

BDMDF11.m

Go to the documentation of this file.
  1. BDMDF11 ; IHS/CMI/LAB -IHS -CUMULATIVE REPORT 10 Oct 2014 9:50 AM ;
  1. ;;2.0;DIABETES MANAGEMENT SYSTEM;**11**;JUN 14, 2007;Build 30
  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("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,64))
  1. I $E(V)="1" S $P(BDMCUML(140),U,3)=$P(BDMCUML(140),U,3)+1
  1. I $E(V)="3" S $P(BDMCUML(140),U,6)=$P(BDMCUML(140),U,6)+1
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,66))
  1. I $E(V)="1" S $P(BDMCUML(140),U,4)=$P(BDMCUML(140),U,4)+1
  1. I $E(V)="3" S $P(BDMCUML(140),U,7)=$P(BDMCUML(140),U,7)+1
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,68))
  1. I $E(V)="1" S $P(BDMCUML(140),U,5)=$P(BDMCUML(140),U,5)+1
  1. I $E(V)="3" S $P(BDMCUML(140),U,8)=$P(BDMCUML(140),U,8)+1
  1. ;HEP B
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,115))
  1. I $E(V)="1" S $P(BDMCUML(140),U,9)=$P(BDMCUML(140),U,9)+1
  1. I $E(V)="3" S $P(BDMCUML(140),U,10)=$P(BDMCUML(140),U,10)+1
  1. I $E(V)="4" S $P(BDMCUML(140),U,11)=$P(BDMCUML(140),U,11)+1
  1. ;TDAP EVER
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,216))
  1. I $E(V)="1" S $P(BDMCUML(140),U,12)=$P(BDMCUML(140),U,12)+1
  1. I $E(V)="3" S $P(BDMCUML(140),U,13)=$P(BDMCUML(140),U,13)+1
  1. ;
  1. QUAN ;
  1. ;145
  1. ;title^total pts^total YES^NO^REF^UACR^UPCR^24HR^MICRO STRIP^MICRO ONLY^DIPSTICK
  1. K BDMOFLG
  1. S BDMOFLG=0
  1. S:'$D(BDMCUML(145)) BDMCUML(145)="LABORATORY EXAMS"
  1. S $P(BDMCUML(145),U,2)=$P(BDMCUML(145),U,2)+1 ;TOTAL # of patients
  1. S Q=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))
  1. S V=$E($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))) ;test done?
  1. ;S T=$P($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)),U,5) ;type of test
  1. S R=$S($P(Q,U,6)]"":$P(Q,U,6),1:$P(Q,U,2)) ;value/result
  1. ;CONVERT RESULT LIKE IN WEB EXPORT
  1. S S=$$AS^BDMDF18(R),S=$$STV^BDMDF18(S,8)
  1. I S="" S V=0 ;X=$E(X,1,5)
  1. I V'=1 S $P(BDMCUML(145),U,4)=$P(BDMCUML(145),U,4)+1 ;no UACR
  1. I V=1 D
  1. .S $P(BDMCUML(145),U,3)=$P(BDMCUML(145),U,3)+1 ;TOTAL WITH UACR
  1. .I R[">" S $P(BDMCUML(145),U,14)=$P(BDMCUML(145),U,14)+1 Q
  1. .;I $$UP^XLFSTR(R)["COMMENT" S $P(BDMCUML(145),U,12)=$P(BDMCUML(145),U,12)+1 Q
  1. .S R=$$STV^BDMDF18(R,8)
  1. .I R="" S $P(BDMCUML(145),U,15)=$P(BDMCUML(145),U,15)+1 Q ;NO RESULT
  1. .S R=+R
  1. .I R<30 S $P(BDMCUML(145),U,12)=$P(BDMCUML(145),U,12)+1,BDMUACRV="<30" Q ;NORMAL UACR
  1. .I R<300.9999 S $P(BDMCUML(145),U,13)=$P(BDMCUML(145),U,13)+1,BDMCKD=1,BDMUACRV=">30" Q ;INREACSED 30-300
  1. .S $P(BDMCUML(145),U,14)=$P(BDMCUML(145),U,14)+1,BDMCKD=1,BDMUACRV=">30" ;INCREASED >300
  1. S G=$P($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,79)),U,2) ;egfr value
  1. S H=0
  1. I $$AGE^AUPNPAT(BDMPD,BDMADAT)>17 D
  1. .S G=$$AS^BDMDF18(G)
  1. .S G=$$STV^BDMDF18(G,5,1)
  1. .I G="" Q
  1. .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
  1. ;
  1. GFR ;
  1. G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<18 TCHOL
  1. S:'$D(BDMCUML(175)) BDMCUML(175)="e-GFR to assess kidney function obtained during audit period"
  1. S $P(BDMCUML(175),U,2)=$P(BDMCUML(175),U,2)+1 ;total pts over 18
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,79))
  1. ;I $E(V)=1 S $P(BDMCUML(175),U,5)=$P(BDMCUML(175),U,5)+1 ;EGFR DONE
  1. S V=$P(V,U,2) ;EGFR VALUE
  1. I $E(V)=">" S $P(BDMCUML(175),U,6)=$P(BDMCUML(175),U,6)+1 S BDMEGFRV="61" S $P(BDMCUML(175),U,5)=$P(BDMCUML(175),U,5)+1 G TCHOL ;>60
  1. S V=$$STV^BDMDF18(V,5,1)
  1. I V="" S $P(BDMCUML(175),U,10)=$P(BDMCUML(175),U,10)+1 G TCHOL
  1. S $P(BDMCUML(175),U,5)=$P(BDMCUML(175),U,5)+1 ;EGFR DONE
  1. S BDMEGFRV=+V
  1. I +V<60 S BDMCKD=1
  1. I +V>59 S $P(BDMCUML(175),U,6)=$P(BDMCUML(175),U,6)+1 G TCHOL
  1. I +V<15 S $P(BDMCUML(175),U,9)=$P(BDMCUML(175),U,9)+1 G TCHOL
  1. I +V>29,+V<60 S $P(BDMCUML(175),U,7)=$P(BDMCUML(175),U,7)+1 G TCHOL
  1. I +V>14,+V<30 S $P(BDMCUML(175),U,8)=$P(BDMCUML(175),U,8)+1 G TCHOL
  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^BDMDF18(BDMPD,BDMBDAT,BDMADAT,"I")
  1. I V="" S $P(BDMCUML(180),U,6)=$P(BDMCUML(180),U,6)+1 G NONHDL
  1. S V=$P(V,U)
  1. S V=$$STV^BDMDF18(V,5,1)
  1. I V="" S $P(BDMCUML(180),U,7)=$P(BDMCUML(180),U,7)+1 G NONHDL
  1. I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(180),U,7)=$P(BDMCUML(180),U,7)+1 G NONHDL
  1. I V<200 S $P(BDMCUML(180),U,3)=$P(BDMCUML(180),U,3)+1 G NONHDL
  1. I V<240 S $P(BDMCUML(180),U,4)=$P(BDMCUML(180),U,4)+1 G NONHDL
  1. S $P(BDMCUML(180),U,5)=$P(BDMCUML(180),U,5)+1
  1. NONHDL ;
  1. LDL ;
  1. S:'$D(BDMCUML(190)) BDMCUML(190)="LDL Cholesterol obtained during audit period"
  1. S $P(BDMCUML(190),U,2)=$P(BDMCUML(190),U,2)+1
  1. S V=$$LDL^BDMDF18(BDMPD,BDMBDAT,BDMADAT,"I")
  1. I V="" S $P(BDMCUML(190),U,7)=$P(BDMCUML(190),U,7)+1 G HDL
  1. S V=$P(V,U)
  1. ;S V=$$STV^BDMDF18(V,4)
  1. S V=$$STV^BDMDF18(V,5,1) I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(190),U,8)=$P(BDMCUML(190),U,8)+1 G HDL
  1. I V<100 S $P(BDMCUML(190),U,3)=$P(BDMCUML(190),U,3)+1 G HDL
  1. I V<190 S $P(BDMCUML(190),U,4)=$P(BDMCUML(190),U,4)+1 G HDL
  1. ;I V<189.1 S $P(BDMCUML(190),U,5)=$P(BDMCUML(190),U,5)+1 G HDL
  1. S $P(BDMCUML(190),U,6)=$P(BDMCUML(190),U,6)+1
  1. HDL ;
  1. S:'$D(BDMCUML(195)) BDMCUML(195)="HDL Cholesterol obtained during audit period"
  1. S V=$$HDL^BDMDF18(BDMPD,BDMBDAT,BDMADAT,"I")
  1. S S=$P(^DPT(BDMPD,0),U,2) ;GENDER
  1. I S="F" D
  1. .S $P(BDMCUML(195),U,2)=$P(BDMCUML(195),U,2)+1
  1. .I V="" S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q
  1. .S V=$P(V,U)
  1. .S V=$$STV^BDMDF18(V,5,1) I $E(V)'=+$E(V)!(+V=0) S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q
  1. .S V=$P(V,"."),V=$$STV^BDMDF18(V,5,1)
  1. .I $E(V)'=+$E(V)!(+V=0)!(V="") S $P(BDMCUML(195),U,5)=$P(BDMCUML(195),U,5)+1 Q
  1. .I V<50 S $P(BDMCUML(195),U,3)=$P(BDMCUML(195),U,3)+1 Q
  1. .S $P(BDMCUML(195),U,4)=$P(BDMCUML(195),U,4)+1 Q
  1. I S="M" D
  1. .S $P(BDMCUML(195),U,6)=$P(BDMCUML(195),U,6)+1
  1. .I V="" S $P(BDMCUML(195),U,9)=$P(BDMCUML(195),U,9)+1 Q
  1. .S V=$P(V,U)
  1. .S V=$$STV^BDMDF18(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
  1. .S V=$P(V,"."),V=$$STV^BDMDF18(V,5,1)
  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
  1. .I V<40 S $P(BDMCUML(195),U,7)=$P(BDMCUML(195),U,7)+1 Q
  1. .S $P(BDMCUML(195),U,8)=$P(BDMCUML(195),U,8)+1 Q
  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^BDMDF18(BDMPD,BDMBDAT,BDMADAT,"I")
  1. I V="" S $P(BDMCUML(200),U,7)=$P(BDMCUML(200),U,7)+1 G ACE
  1. S V=$P(V,U)
  1. S V=$$STV^BDMDF18(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
  1. I V<150 S $P(BDMCUML(200),U,3)=$P(BDMCUML(200),U,3)+1 G ACE
  1. I V<500 S $P(BDMCUML(200),U,8)=$P(BDMCUML(200),U,8)+1 G ACE
  1. I V<1000 S $P(BDMCUML(200),U,9)=$P(BDMCUML(200),U,9)+1 G ACE
  1. S $P(BDMCUML(200),U,4)=$P(BDMCUML(200),U,4)+1
  1. ;
  1. ACE ;110 title^total pts^total pts with protein^# of those on ace^# with htn^# of those on ace"
  1. S $P(BDMCUML(110),U,2)=$P(BDMCUML(110),U,2)+1
  1. ;set 3rd piece with # with proteinuria
  1. S P=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)) ;URINE PROTEIN VALUE
  1. S H=$E($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,34)))
  1. S A=$E($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,60)))
  1. I A S $P(BDMCUML(110),U,3)=$P(BDMCUML(110),U,3)+1 ;TOTAL ACE
  1. 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
  1. 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
  1. CVD ;USE 250
  1. S:'$D(BDMCUML(250)) BDMCUML(250)="Cardiovascular Disease"
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,116))
  1. I $E(V)=1 S $P(BDMCUML(250),U,3)=$P(BDMCUML(250),U,3)+1
  1. S $P(BDMCUML(250),U,2)=$P(BDMCUML(250),U,2)+1
  1. EGFRQUP ;
  1. S:'$D(BDMCUML(270)) BDMCUML(270)="eGFR and QUANTITATIVE URINARY PROTEIN ASSESSMENT"
  1. G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<18 COMBINED
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,79)),V=$$STV^BDMDF18($P(V,U,2),5)
  1. S T=$P($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)),U,5) ;type of test
  1. S Q=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92))
  1. S $P(BDMCUML(270),U,2)=$P(BDMCUML(270),U,2)+1
  1. S R=$S($P(Q,U,6)]"":$P(Q,U,6),1:$P(Q,U,2)) ;value/result
  1. ;CONVERT RESULT LIKE IN WEB EXPORT
  1. S S=$$AS^BDMDF18(R),S=$$STV^BDMDF18(S,8)
  1. ;I S="" S V=0 ;X=$E(X,1,5)
  1. I V]"",T=1,S]"" S $P(BDMCUML(270),U,3)=$P(BDMCUML(270),U,3)+1,BDMEGFRU=1 ;I DUZ=2881 S ^LORI12CU(BDMPD)=V_U_$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,92)) ;had both
  1. COMBINED ;USE 260
  1. S:'$D(BDMCUML(260)) BDMCUML(260)="Combined Outcome Measure"
  1. ;ONLY 40 AND OLDER
  1. G:$$AGE^AUPNPAT(BDMPD,BDMADAT)<40 E
  1. I $E($G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,300)))=3 G E ;statin allergy
  1. S V=$G(^XTMP("BDMDM18",BDMJOB,BDMBTH,"AUDIT",BDMPD,118))
  1. I $E(V)=1 S $P(BDMCUML(260),U,3)=$P(BDMCUML(260),U,3)+1
  1. S $P(BDMCUML(260),U,2)=$P(BDMCUML(260),U,2)+1
  1. E G CUML^BDMDF1J
  1. ;
  1. CESS(P,BDATE,EDATE) ;EP - find any cessation hf in 12 months before E
  1. G CESS^BDMDF1B