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

BDMD11C.m

Go to the documentation of this file. 
  1. BDMD11C ; IHS/CMI/LAB - 2011 DIABETES AUDIT ;
  1.  ;;2.0;DIABETES MANAGEMENT SYSTEM;**4**;JUN 14, 2007
  1.  ;
  1. GATHER ;
  1.  NEW R
  1.  S B=9999999-BDATE,E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)  D
  1.  .S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  ..S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ...Q:'$D(^AUPNVLAB(X,0))
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["COMMENT"
  1.  ...Q:$P(^AUPNVLAB(X,0),U,4)=""  ;no result
  1.  ...;STRIP ALL NON-NUMERICS AND "."
  1.  ...S R=$P(^AUPNVLAB(X,0),U,4),R=$$STV^BDMD118(R,8,1) I R="" Q  ;no numeric result 
  1.  ...I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ...Q:'BDMOT
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC(J,BDMOT)
  1.  ...D SETV
  1.  ...Q
  1.  Q  ;do not look for tests with no result per Ray Shields.
  1.  I $D(BDM(1)) Q
  1.  S D=E-1
  1.  K BDM S BDMC=0
  1.  S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  .S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ..Q:'$D(^AUPNVLAB(X,0))
  1.  ..Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ..I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ..Q:'BDMOT
  1.  ..S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ..Q:'$$LOINC(J,BDMOT)
  1.  ..D SETV
  1.  ..Q
  1.  Q
  1. LOINC(A,B) ;EP - is loinc code A in taxonomy B
  1.  NEW %
  1.  I '$G(B) Q ""
  1.  S %=$P($G(^LAB(95.3,A,9999999)),U,2)
  1.  I %]"",$D(^ATXAX(B,21,"B",%)) Q 1
  1.  S %=$P($G(^LAB(95.3,A,0)),U)_"-"_$P($G(^LAB(95.3,A,0)),U,15)
  1.  I $D(^ATXAX(B,21,"B",%)) Q 1
  1.  Q ""
  1. SETV ;
  1.  S BDMC=BDMC+1
  1.  S V=$P(^AUPNVLAB(X,0),U,3),BDMV=$P($P($G(^AUPNVSIT(V,0)),U),".") Q:'BDMV
  1.  S BDM(BDMC)=BDMV_"^"_$S($P(^AUPNVLAB(X,0),U,4)]"":$P(^AUPNVLAB(X,0),U,4),1:"")_"^"_$$VAL^XBDIQ1(9000010.09,X,.01)_"^"_X_";AUPNVLAB^"_V
  1.  Q
  1. SETN ;
  1.  S N="" NEW A,G,BDMR,D
  1.  S A=0 F  S A=$O(BDM(A)) Q:A'=+A  S BDMR(9999999-$P(BDM(A),U,1),A)=BDM(A)
  1.  S (A,D,G)=0 F  S D=$O(BDMR(D)) Q:D'=+D!(G)  D
  1.  .S A=0 F  S A=$O(BDMR(D,A)) Q:A'=+A!(G)  D
  1.  ..S R=$P(^AUPNVLAB(+$P(BDM(A),U,4),0),U,4) I R]"",$$UP^XLFSTR(R)'="COMMENT",$$UP^XLFSTR(R)'="N/A" S G=A
  1.  S N=$S(G:G,1:1)
  1.  Q
  1. SET3 ;
  1.  NEW X,N1,N2,N3,A,T
  1.  K A
  1.  S X=0 F  S X=$O(BDM(X)) Q:X'=+X  S A($P(BDM(X),U),X)=""
  1.  NEW D S D=0 F  S D=$O(A(D)) Q:D'=+D  D
  1.  .S G=0,N=0 F  S N=$O(A(D,N)) Q:N'=+N  D
  1.  ..I $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"",$$UP^XLFSTR($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4))'="COMMENT" S G=1 Q
  1.  .I G S N=0 F  S N=$O(A(D,N)) Q:N'=+N  I $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)="" K BDM(N)
  1.  .Q
  1.  Q
  1. GFR(P,BDATE,EDATE) ;EP - Estimated GFR
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP ESTIMATED GFR LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","BGP GPRA ESTIMATED GFR TAX",0))
  1.  S B=9999999-BDATE,E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)  D
  1.  .S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  ..S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ...Q:'$D(^AUPNVLAB(X,0))
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ...I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ...Q:'BDMOT
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC(J,BDMOT)
  1.  ...D SETV
  1.  ...Q
  1.  I '$D(BDM(1)) Q "2  No"
  1.  D SETN
  1.  Q "1  Yes"_U_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_U_$$FMTE^XLFDT($P(BDM(N),U))_U_$E($P(BDM(N),U,3),1,25)_U_$P(BDM(N),U)
  1.  ;
  1. CREAT ;EP
  1.  I $G(F)="" S F="E"
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP CREATININE LOINC CODES",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT CREATININE TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I F="I" Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_"^"_$P(BDM(N),U)
  1.  Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/dl ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U))_U_$E($P(BDM(N),U,3),1,25)
  1. CHOL ;EP
  1.  S:$G(F)="" F="E"
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP TOTAL CHOLESTEROL LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT CHOLESTEROL TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I F="I" Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_"^"_$P(BDM(N),U)
  1.  Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/dl ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U))_U_$E($P(BDM(N),U,3),1,25)
  1. LPROF ;
  1.  K BDM,BDMX S BDMX=""
  1.  Q  ;no longer count lipid profile because there is no result  2011 per Ray.
  1.  S %=P_"^LAST LAB [DM AUDIT LIPID PROFILE TAX;DURING "_BDATE_"-"_EDATE,E=$$START1^APCLDF(%,"BDM(")
  1.  I '$D(BDM(1)) Q
  1.  I F="I" S BDMX=$P(^AUPNVLAB(+$P(BDM(1),U,4),0),U,4)_"^"_$P(BDM(1),U) Q
  1.  S BDMX=$P(^AUPNVLAB(+$P(BDM(1),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(1),U,4),0),U,4)]"":" mg/dl",1:"")_$$FMTE^XLFDT($P(BDM(1),U))
  1.  Q
  1. HDL ;EP
  1.  I $G(F)="" S F="E"
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP HDL LOINC CODES",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT HDL TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) K BDM,BDMX S BDMX="" D LPROF Q BDMX
  1.  D SETN
  1.  I F="I" Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_"^"_$P(BDM(N),U)
  1.  Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/dl ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U))_U_$E($P(BDM(N),U,3),1,25)
  1. LDL ;EP
  1.  I $G(F)="" S F="E"
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V,BDMLDL,G
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP LDL LOINC CODES",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT LDL CHOLESTEROL TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) K BDM,BDMX S BDMX="" D LPROF Q BDMX
  1.  K BDMLDL S X=0 F  S X=$O(BDM(X)) Q:X'=+X  S BDMLDL(9999999-$P(BDM(X),U),X)=BDM(X)
  1.  S X=0,G=0 F  S X=$O(BDMLDL(X)) Q:X'=+X!G  S Y=0 F  S Y=$O(BDMLDL(X,Y)) Q:Y'=+Y!(G)  I +$P(^AUPNVLAB(+$P(BDMLDL(X,Y),U,4),0),U,4) S G=Y
  1.  I 'G S X=$O(BDMLDL(0)),G=$O(BDMLDL(X,0))
  1.  ;NEW N D SETN
  1.  I F="I" Q $P(^AUPNVLAB(+$P(BDM(G),U,4),0),U,4)_"^"_$P(BDM(G),U)
  1.  Q $P(^AUPNVLAB(+$P(BDM(G),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(G),U,4),0),U,4)]"":" mg/dl ",1:"")_U_$$FMTE^XLFDT($P(BDM(G),U))_U_$E($P(BDM(G),U,3),1,25)
  1. TRIG ;EP
  1.  I $G(F)="" S F="E"
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP TRIGLYCERIDE LOINC CODES",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT TRIGLYCERIDE TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) K BDM,BDMX S BDMX="" D LPROF Q BDMX
  1.  D SETN
  1.  I F="I" Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_"^"_$P(BDM(N),U)
  1.  Q $P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/dl ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U))_U_$E($P(BDM(N),U,3),1,25)
  1. UACR(P,BDATE,EDATE) ;EP - albumin/creatinine ration UACR
  1.  NEW BDM,BDMC,BMDOT,BDMLT
  1.  K BDM S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT A/C RATIO LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT QUANT UACR",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I $D(BDM(N)) Q "X^"_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/g ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$E($P(BDM(N),U,3),1,30)
  1.  Q ""
  1.  ;
  1. SEMI(P,BDATE,EDATE) ;EP - albumin/creatinine ration UACR
  1.  NEW BDM,BDMC,BDMOT,BDMLT
  1.  K BDM S BDMC=0
  1.  S BDMOT=""
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT SEMI QUANT UACR",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I $D(BDM(1)) Q "X^"_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/g ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$E($P(BDM(N),U,3),1,30)
  1.  Q ""
  1.  ;
  1. UPCR(P,BDATE,EDATE) ;EP - protein/creatinine ratio UPCR
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT P/C RATIO LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT P/C RATIO TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I $D(BDM(1)) Q "X^"_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/g ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$E($P(BDM(N),U,3),1,30)
  1.  Q ""
  1.  ;
  1. QUAN(P,BDATE,EDATE) ;EP - other quantitative urine protein test
  1.  NEW BDM,BDMC
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","BGP QUANT URINE PROT LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","BGP QUANT URINE PROTEIN",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I $D(BDM(1)) Q "X^"_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/g ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$E($P(BDM(N),U,3),1,30)
  1.  Q ""
  1.  ;
  1. PROTEIN ;EP
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V,%1
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT URINE PROTEIN LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT URINE PROTEIN TAX",0))
  1.  S B=9999999-BDATE,E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)  D
  1.  .S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  ..S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ...Q:'$D(^AUPNVLAB(X,0))
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ...I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ...Q:'BDMOT
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC(J,BDMOT)
  1.  ...D SETV
  1.  ...Q
  1.  I '$D(BDM(1)) S %1="" Q %1
  1.  D SETN
  1.  NEW %,%1 S %=$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)
  1.  S %1=$S(%="":"No result",%["+":"Yes ",%[">":"Yes ",$E(%)="P":"Yes ",$E(%)="p":"Yes ",$$UP^XLFSTR($E(%))="S":"Yes ",$$UP^XLFSTR($E(%))="M":"Yes ",$$UP^XLFSTR($E(%))="L":"Yes ",$E(%)="c":"No result ",$E(%)="C":"No result ",+%>29:"Yes ",1:"No ")
  1.  Q $S($E(%1)="Y":"X",1:"")_"^"_%_"^"_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$P(BDM(N),U,3)
  1. ACRATIO ;EP
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT A/C RATIO LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT QUANT UACR",0))
  1.  S B=9999999-BDATE,E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)  D
  1.  .S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  ..S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ...Q:'$D(^AUPNVLAB(X,0))
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ...I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ...Q:'BDMOT
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC(J,BDMOT)
  1.  ...D SETV
  1.  ...Q
  1.  I '$D(BDM) S %1="" Q
  1.  D SETN
  1.  NEW % S %=$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)
  1.  S %1=$S(%="":"No result",%[">":"Yes ",$E(%)="c":"No result ",$E(%)="C":"No result ",+%>299:"Yes ",1:"No ")
  1.  S %1=%1_" "_%_"^  "_$P(BDM(N),U,3)_"  "_$$FMTE^XLFDT($P(BDM(N),U,1))
  1.  Q
  1. ACRATIOM ;EP
  1.  NEW BDM,X,%,E,R,V,BDMLT,BDMOT,B,D,L,J,BDMC,BDMV,V
  1.  K BDM S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT A/C RATIO LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT QUANT UACR",0))
  1.  S B=9999999-BDATE,E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)  D
  1.  .S L=0 F  S L=$O(^AUPNVLAB("AE",P,D,L)) Q:L'=+L  D
  1.  ..S X=0 F  S X=$O(^AUPNVLAB("AE",P,D,L,X)) Q:X'=+X  D
  1.  ...Q:'$D(^AUPNVLAB(X,0))
  1.  ...Q:$$UP^XLFSTR($P(^AUPNVLAB(X,0),U,4))["CANC"
  1.  ...I BDMLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BDMLT,21,"B",$P(^AUPNVLAB(X,0),U))) D SETV Q
  1.  ...Q:'BDMOT
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC(J,BDMOT)
  1.  ...D SETV
  1.  ...Q
  1.  I '$D(BDM) S %1="" Q
  1.  D SETN
  1.  NEW % S %=$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)
  1.  S %1=$S(%="":"No result",%="30-300":"Pos ",$E(%)="c":"No result ",$E(%)="C":"No result ",+%>29&(+%<300):"Pos ",1:"No ")
  1.  S %1=%1_" "_%_" "_$$FMTE^XLFDT($P(BDM(N),U),"5")_" "_$P(BDM(N),U,3)
  1.  Q
  1.  ;
  1. MICRO(P,BDATE,EDATE) ;EP - other quantitative urine protein test
  1.  NEW BDM,BDMOT,BDMC,BDMLT
  1.  K BDM
  1.  S BDMC=0
  1.  S BDMOT=$O(^ATXAX("B","DM AUDIT MICROALBUMIN LOINC",0))
  1.  S BDMLT=$O(^ATXLAB("B","DM AUDIT MICROALBUMINURIA TAX",0))
  1.  D GATHER
  1.  I '$D(BDM(1)) Q ""
  1.  D SETN
  1.  I $D(BDM(1)) Q "X^"_$P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)_$S($P(^AUPNVLAB(+$P(BDM(N),U,4),0),U,4)]"":" mg/g ",1:"")_U_$$FMTE^XLFDT($P(BDM(N),U,1))_U_$P(BDM(N),U,3)
  1.  Q ""