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

BGP7D723.m

Go to the documentation of this file. 
  1. BGP7D723 ; IHS/CMI/LAB - measure AHR.A ;
  1.  ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1.  ;
  1.  ;
  1. ACEALG(P,BDATE,EDATE) ;EP
  1.  K BGPG
  1.  D ACEIALG1^BGP7C11(P,EDATE,.BGPG)
  1.  S X=$O(BGPG(0))
  1.  I 'X Q ""
  1.  Q 1_U_"ACEI/ARB Allergy: "_BGPG(X)
  1.  ;
  1. ACECONT(P,BDATE,EDATE,NMIB,NMIE,RPBD) ;EP ACEI Contra
  1.  NEW ED,BD,BGPG,BGPC,X,Y,Z,N,E,S,T,D,%,SN
  1.  S RPBD=$G(RPBD)
  1.  K BGPG S Y="BGPG(",X=P_"^LAST DX [BGP CMS AORTIC STENOSIS DXS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE) S E=$$START1^APCLDF(X,Y)
  1.  I $D(BGPG(1)) Q 1_U_$$DATE^BGP7UTL($P(BGPG(1),U))_" ACEI/ARB Contra POV "_$P(BGPG(1),U,2)
  1.  ;
  1.  ;nmi
  1.  S BGPG=""
  1.  S T=$O(^ATXAX("B","BGP HEDIS ACEI MEDS",0))
  1.  S X=0 F  S X=$O(^AUPNPREF("AA",P,50,X)) Q:X'=+X  D
  1.  .Q:'$D(^ATXAX(T,21,"B",X))
  1.  .S D=0 F  S D=$O(^AUPNPREF("AA",P,50,X,D)) Q:D'=+D  D
  1.  ..S Y=9999999-D I Y<NMIB Q
  1.  ..I Y>NMIE Q
  1.  ..S N=0 F  S N=$O(^AUPNPREF("AA",P,50,X,D,N)) Q:N'=+N  D
  1.  ...Q:$P($G(^AUPNPREF(N,0)),U,7)'="N"
  1.  ...S BGPG=1_U_$$DATE^BGP7UTL($P(^AUPNPREF(N,0),U,3))_" ACEI NMI Refusal"
  1.  ..Q
  1.  .Q
  1.  I BGPG Q BGPG
  1.  ;nmi
  1.  S BGPG=""
  1.  S T=$O(^ATXAX("B","BGP HEDIS ARB MEDS",0))
  1.  S X=0 F  S X=$O(^AUPNPREF("AA",P,50,X)) Q:X'=+X  D
  1.  .Q:'$D(^ATXAX(T,21,"B",X))
  1.  .S D=0 F  S D=$O(^AUPNPREF("AA",P,50,X,D)) Q:D'=+D  D
  1.  ..S Y=9999999-D I Y<NMIB Q
  1.  ..I Y>NMIE Q
  1.  ..S N=0 F  S N=$O(^AUPNPREF("AA",P,50,X,D,N)) Q:N'=+N  D
  1.  ...Q:$P($G(^AUPNPREF(N,0)),U,7)'="N"
  1.  ...S BGPG=1_U_$$DATE^BGP7UTL($P(^AUPNPREF(N,0),U,3))_" ARB NMI Refusal"
  1.  ..Q
  1.  .Q
  1.  I BGPG Q BGPG
  1.  ;PREGNANCY
  1.  S X=$$PREG^BGP7D7(P,$S($G(RPBD):RPBD,1:NMIB),NMIE,1,1,,RPBD,EDATE) I X Q 1_U_"ACEI/ARB Contra pregnant"   ;V17.1 CMI/LAB ADDED DATES FOR CURRENTLY PREGNANT
  1.  ;breastfeeding
  1.  K BGPG S Y="BGPG(",X=P_"^LAST DX [BGP BREASTFEEDING DXS;DURING "_$$FMTE^XLFDT($S(RPBD:RPBD,1:NMIB))_"-"_$$FMTE^XLFDT(NMIE) S E=$$START1^APCLDF(X,Y)
  1.  I $D(BGPG(1)) Q 1_U_$$DATE^BGP7UTL($P(BGPG(1),U))_" ACEI/ARB Contra POV: "_$P(BGPG(1),U,2)
  1.  K BGPG
  1.  S Y="BGPG("
  1.  S X=P_"^ALL EDUC;DURING "_$$FMTE^XLFDT($S(RPBD:RPBD,1:NMIB))_"-"_$$FMTE^XLFDT(NMIE) S E=$$START1^APCLDF(X,Y)
  1.  S SN=$O(^BGPSNOMG("B","BREASTFEEDING PATIENT ED",0))
  1.  S (X,D)=0,%="",T="" F  S X=$O(BGPG(X)) Q:X'=+X!(%]"")  D
  1.  .S T=$P(^AUPNVPED(+$P(BGPG(X),U,4),0),U)
  1.  .Q:'T
  1.  .Q:'$D(^AUTTEDT(T,0))
  1.  .S T=$P(^AUTTEDT(T,0),U,2)
  1.  .I T="BF-BC" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-BP" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-CS" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-EQ" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-FU" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-HC" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-ON" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-M" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-MK" S %=T_U_$P(BGPG(X),U) Q
  1.  .I T="BF-N" S %=T_U_$P(BGPG(X),U) Q
  1.  .I $P(T,"-")]"",$D(^BGPSNOMG(SN,11,"B",$P(T,"-"))) S %=T_U_$P(BGPG(X),U) Q
  1.  I %]"" Q 1_U_"ACEI Contra educ - "_%
  1.  Q ""
  1. ACERX(P,BDATE,EDATE,BGPNDAYS) ;EP
  1.  K BGPMEDS1
  1.  S K=0,R=""
  1.  D GETMEDS^BGP7UTL2(P,BDATE,EDATE,,,,,.BGPMEDS1)
  1.  I '$D(BGPMEDS1) Q ""
  1.  S T=$O(^ATXAX("B","BGP HEDIS ACEI MEDS",0))
  1.  S T1=$O(^ATXAX("B","BGP HEDIS ACEI NDC",0))
  1.  S T2=$O(^ATXAX("B","BGP HEDIS ARB MEDS",0))
  1.  S T3=$O(^ATXAX("B","BGP HEDIS ARB NDC",0))
  1.  S X=0 F  S X=$O(BGPMEDS1(X)) Q:X'=+X  S Y=+$P(BGPMEDS1(X),U,4) D
  1.  .Q:'$D(^AUPNVMED(Y,0))
  1.  .Q:$$UP^XLFSTR($P($G(^AUPNVMED(Y,11)),U))["RETURNED TO STOCK"
  1.  .S G=0
  1.  .S D=$P(^AUPNVMED(Y,0),U)
  1.  .I T,$D(^ATXAX(T,21,"B",D)) S G=1 G ACE1
  1.  .I T2,$D(^ATXAX(T2,21,"B",D)) S G=1 G ACE1
  1.  .S N=$P($G(^PSDRUG(D,2)),U,4)
  1.  .I N]"",T1,$D(^ATXAX(T1,21,"B",N)) S G=1
  1.  .I N]"",T3,$D(^ATXAX(T3,21,"B",N)) S G=1
  1.  .Q:'G
  1. ACE1 .;
  1.  .S J=$P(^AUPNVMED(Y,0),U,8)
  1.  .S V=$P(^AUPNVMED(Y,0),U,3)
  1.  .Q:'V
  1.  .Q:'$D(^AUPNVSIT(V,0))
  1.  .S S=$$DAYS^BGP7D82(Y,V,EDATE)
  1.  .S K=S+K
  1.  .I R]"" S R=R_";"
  1.  .S R=R_$$DATE^BGP7UTL($P($P(^AUPNVSIT(V,0),U),"."))_"("_S_")"
  1.  I K>BGPNDAYS Q 1_U_" total days ACE/ARB: "_K
  1. ACEPRIO ;now add in any before
  1.  K BGPMEDS1
  1.  D GETMEDS^BGP7UTL2(P,$$FMADD^XLFDT(BDATE,-365),BDATE,,,,,.BGPMEDS1)
  1.  I '$D(BGPMEDS1) Q ""
  1.  S X=0 F  S X=$O(BGPMEDS1(X)) Q:X'=+X  S Y=+$P(BGPMEDS1(X),U,4) D
  1.  .Q:'$D(^AUPNVMED(Y,0))
  1.  .Q:$$UP^XLFSTR($P($G(^AUPNVMED(Y,11)),U))["RETURNED TO STOCK"
  1.  .S G=0
  1.  .S D=$P(^AUPNVMED(Y,0),U)
  1.  .I T,$D(^ATXAX(T,21,"B",D)) S G=1 G ACE2
  1.  .I T2,$D(^ATXAX(T2,21,"B",D)) S G=1 G ACE2
  1.  .S N=$P($G(^PSDRUG(D,2)),U,4)
  1.  .I N]"",T1,$D(^ATXAX(T1,21,"B",N)) S G=1 G ACE2
  1.  .I N]"",T3,$D(^ATXAX(T3,21,"B",N)) S G=1
  1.  .Q:'G
  1. ACE2 .;
  1.  .S J=$P(^AUPNVMED(Y,0),U,8)
  1.  .S V=$P(^AUPNVMED(Y,0),U,3)
  1.  .Q:'V
  1.  .Q:'$D(^AUPNVSIT(V,0))
  1.  .;S IS DAYS SUPPLY, J IS DATE DISCONTINUED
  1.  .Q:J]""
  1.  .S D=$$FMDIFF^XLFDT(BDATE,$P($P(^AUPNVSIT(V,0),U),"."))
  1.  .S S=$P(^AUPNVMED(Y,0),U,7)
  1.  .S S=S-D  ;subtract the number of days used
  1.  .S:S<0 S=0
  1.  .S K=S+K
  1.  .I R]"" S R=R_";"
  1.  .S R=R_$$DATE^BGP7UTL($P($P(^AUPNVSIT(V,0),U),"."))_"("_S_")"
  1.  I K>BGPNDAYS Q 1_U_" total ACE/ARB: "_K
  1.  Q 0_U_R_" total days ACE/ARB: "_K
  1.  ;
  1. ACEREF(P,BDATE,EDATE) ;EP
  1.  ;Refusal in time period?
  1.  S T=$O(^ATXAX("B","BGP HEDIS ACEI MEDS",0))
  1.  S X=0,G="" F  S X=$O(^AUPNPREF("AA",P,50,X)) Q:X'=+X!(G)  D
  1.  .Q:'$D(^ATXAX(T,21,"B",X))
  1.  .S D=0 F  S D=$O(^AUPNPREF("AA",P,50,X,D)) Q:D'=+D!(G)  D
  1.  ..S Y=9999999-D I Y<BDATE Q
  1.  ..I Y>EDATE Q
  1.  ..S N=0 F  S N=$O(^AUPNPREF("AA",P,50,X,D,N)) Q:N'=+N!(G)  D
  1.  ...Q:$P($G(^AUPNPREF(N,0)),U,7)'="R"
  1.  ...S G=1_U_"ACEI Refusal "_$$DATE^BGP7UTL(Y)
  1.  ..Q
  1.  .Q
  1.  I G Q G
  1.  S T=$O(^ATXAX("B","BGP HEDIS ARB MEDS",0))
  1.  S X=0,G="" F  S X=$O(^AUPNPREF("AA",P,50,X)) Q:X'=+X!(G)  D
  1.  .Q:'$D(^ATXAX(T,21,"B",X))
  1.  .S D=0 F  S D=$O(^AUPNPREF("AA",P,50,X,D)) Q:D'=+D!(G)  D
  1.  ..S Y=9999999-D I Y<BDATE Q
  1.  ..I Y>EDATE Q
  1.  ..S N=0 F  S N=$O(^AUPNPREF("AA",P,50,X,D,N)) Q:N'=+N!(G)  D
  1.  ...S G=1_U_"ARB Refusal "_$$DATE^BGP7UTL(Y)
  1.  ..Q
  1.  .Q
  1.  Q G
  1. STATALG(P,BDATE,EDATE,RPB,RPE) ;EP
  1.  ;get all visits and check for ALT/AST tests on 2 consecutive visits
  1.  NEW BGPG,BGPY,Y,X,N,Z,BGPC
  1.  S BGPC=""
  1.  K BGPG,BGPY S Y="BGPG(",X=P_"^ALL DX [BGP ASA ALLERGY 995.0-995.3;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE) S E=$$START1^APCLDF(X,Y)
  1.  S X=0 F  S X=$O(BGPG(X)) Q:X'=+X  S Y=+$P(BGPG(X),U,4) D
  1.  .S N=$$VAL^XBDIQ1(9000010.07,Y,.04) S N=$$UP^XLFSTR(N)
  1.  .I N["STATIN"!(N["STATINS") S BGPC=1_U_"Alg Statin POV:  "_$$DATE^BGP7UTL($P(BGPG(X),U))_" "_$P(BGPG(X),U,2)_" "_N
  1.  .S T=$O(^ATXAX("B","BGP ADV EFF CARDIOVASC NEC",0))
  1.  .S Z=$P(^AUPNVPOV(Y,0),U,9) I Z]"",$$ICD^BGP7UTL2(Z,T,9) S G=1_U_"POV:  "_$$DATE^BGP7UTL($P(BGPG(X),U))_"  ["_$P(BGPG(X),U,2)_" + "_$P($$ICDDX^BGP7UTL2(Z),U,2)_"]  "_N Q
  1.  .S Z=$P(^AUPNVPOV(Y,0),U,18) I Z]"",$$ICD^BGP7UTL2(Z,T,9) S G=1_U_"POV:  "_$$DATE^BGP7UTL($P(BGPG(X),U))_"  ["_$P(BGPG(X),U,2)_" + "_$P($$ICDDX^BGP7UTL2(Z),U,2)_"]  "_N Q
  1.  .S Z=$P(^AUPNVPOV(Y,0),U,19) I Z]"",$$ICD^BGP7UTL2(Z,T,9) S G=1_U_"POV:  "_$$DATE^BGP7UTL($P(BGPG(X),U))_"  ["_$P(BGPG(X),U,2)_" + "_$P($$ICDDX^BGP7UTL2(Z),U,2)_"]  "_N Q
  1.  .Q
  1.  I BGPC Q BGPC
  1.  K BGPG S BGPC=0 S Y="BGPG(",X=P_"^ALL DX [BGP HX DRUG ALLERGY NEC;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE) S E=$$START1^APCLDF(X,Y)
  1.  S X=0 F  S X=$O(BGPG(X)) Q:X'=+X  S Y=+$P(BGPG(X),U,4) D
  1.  .S N=$$VAL^XBDIQ1(9000010.07,Y,.04),N=$$UP^XLFSTR(N)
  1.  .I N["STATIN"!(N["STATINS") S BGPC=BGPC+1,BGPY(BGPC)=1_U_"Alg statin POV:  "_$$DATE^BGP7UTL($P(BGPG(X),U))_" "_$P(BGPG(X),U,2)_" "_N
  1.  I BGPC Q BGPC
  1.  ;PL
  1.  S BGPC=0
  1.  S T="",T=$O(^ATXAX("B","BGP ASA ALLERGY 995.0-995.3",0))
  1.  S X=0 F  S X=$O(^AUPNPROB("AC",P,X)) Q:X'=+X  D
  1.  .S I=$P($G(^AUPNPROB(X,0)),U),Y=$P($$ICDDX^BGP7UTL2(I),U,2)
  1.  .S N=$$VAL^XBDIQ1(9000011,X,.05),N=$$UP^XLFSTR(N)
  1.  .Q:$P(^AUPNPROB(X,0),U,8)>EDATE
  1.  .Q:$P(^AUPNPROB(X,0),U,12)="D"
  1.  .Q:$P(^AUPNPROB(X,0),U,12)="I"
  1.  .I $$ICD^BGP7UTL2(I,$O(^ATXAX("B","BGP HX DRUG ALLERGY NEC",0)),9)!($$ICD^BGP7UTL2(I,T,9)),N["STATIN"!(N["STATINS") S BGPC=1_U_"alg statin PROBLEM LIST:  "_$$DATE^BGP7UTL($P(^AUPNPROB(X,0),U,8))_" "_Y_" "_N
  1.  .Q
  1.  I BGPC Q BGPC
  1.  ;ART
  1.  S BGPC=0
  1.  S X=0 F  S X=$O(^GMR(120.8,"B",P,X)) Q:X'=+X  D
  1.  .Q:$P($P($G(^GMR(120.8,X,0)),U,4),".")>EDATE
  1.  .S N=$P($G(^GMR(120.8,X,0)),U,2),N=$$UP^XLFSTR(N)
  1.  .I N["STATIN" S BGPC=1_U_" alg statin ALLERGY TRACKING:  "_$$DATE^BGP7UTL($P(^GMR(120.8,X,0),U,4))_"  "_N
  1.  I BGPC Q BGPC
  1.  ;now go into the report period items
  1.  K BGPG S Y="BGPG(",X=P_"^LAST DX [BGP MYOPATHY/MYALGIA;DURING "_$$FMTE^XLFDT(RPB)_"-"_$$FMTE^XLFDT(RPE) S E=$$START1^APCLDF(X,Y)
  1.  I $D(BGPG(1)) Q 1_U_"Statin allergy POV:  "_$$DATE^BGP7UTL($P(BGPG(1),U))_" "_$P(BGPG(1),U,2)_" "_$$VAL^XBDIQ1(9000010.07,+$P(BGPG(1),U,4),.04)
  1.  ;creatine lab value > 10,000 or 10x uln
  1.  S BGPG=""
  1.  S T=$O(^ATXAX("B","BGP CREATINE KINASE LOINC",0))
  1.  S BGPLT=$O(^ATXLAB("B","BGP CREATINE KINASE TAX",0))
  1.  S B=9999999-RPB,E=9999999-RPE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)!(BGPG)  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.  ...I BGPLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BGPLT,21,"B",$P(^AUPNVLAB(X,0),U))) I $$RESCK(X) S BGPG=1_U_"adr statin creat kinase of "_$P(^AUPNVLAB(X,0),U,4)_" on "_$$DATE^BGP7UTL((9999999-D)) Q
  1.  ...Q:'T
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...Q:'$$LOINC^BGP7D2(J,T)
  1.  ...I $$RESCK(X) S BGPG=1_U_"adr statin creat kinase of "_$P(^AUPNVLAB(X,0),U,4)_" on "_$$DATE^BGP7UTL((9999999-D)) Q
  1.  ...Q
  1.  I BGPG Q BGPG
  1.  S T=$O(^ATXAX("B","BGP ALT LOINC",0))
  1.  S BGPLT=$O(^ATXLAB("B","DM AUDIT ALT TAX",0))
  1.  S T2=$O(^ATXAX("B","BGP AST LOINC",0))
  1.  S BGPLT2=$O(^ATXLAB("B","DM AUDIT AST TAX",0))
  1.  S B=9999999-$$FMADD^XLFDT(EDATE,-365),E=9999999-EDATE S D=E-1 F  S D=$O(^AUPNVLAB("AE",P,D)) Q:D'=+D!(D>B)!(BGPG)  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.  ...I BGPLT,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BGPLT,21,"B",$P(^AUPNVLAB(X,0),U))) S BGPC=BGPC+1,BGPC((9999999-D))=X_U_$P(^AUPNVLAB(X,0),U,4)_U_$P($G(^AUPNVLAB(X,11)),U,5) Q
  1.  ...I BGPLT2,$P(^AUPNVLAB(X,0),U),$D(^ATXLAB(BGPLT2,21,"B",$P(^AUPNVLAB(X,0),U))) S BGPC=BGPC+1,BGPC((9999999-D))=X_U_$P(^AUPNVLAB(X,0),U,4)_U_$P($G(^AUPNVLAB(X,11)),U,5) Q
  1.  ...S J=$P($G(^AUPNVLAB(X,11)),U,13) Q:J=""
  1.  ...I '$$LOINC^BGP7D2(J,T),'$$LOINC^BGP7D2(J,T2)
  1.  ...S BGPC=BGPC+1,BGPC((9999999-D))=X_U_$P(^AUPNVLAB(X,0),U,4)_U_$P($G(^AUPNVLAB(X,11)),U,5) Q
  1.  ...Q
  1.  ;are they 2 consecutive
  1.  S BGPG=""
  1.  S X=0 F  S X=$O(BGPC(X)) Q:X'=+X!(BGPG)  D
  1.  .Q:'$$RESAL(BGPC(X))
  1.  .;is next one also bad?
  1.  .S Y=$O(BGPC(X))
  1.  .Q:Y=""
  1.  .I $$RESAL(BGPC(Y)) S BGPG=1_U_"adr Statin - AST/ALT" Q
  1.  .Q
  1.  I BGPG Q BGPG
  1.  Q 0
  1.  ;
  1. RESAL(Y) ;
  1.  NEW V,ULN
  1.  S V=+$P(Y,U,2),ULN=$P(Y,U,3)
  1.  I ULN="" Q ""
  1.  I V>(ULN*3) Q 1
  1.  Q ""
  1. RESCK(Y) ;
  1.  NEW V,ULN
  1.  S V=+$P(^AUPNVLAB(X,0),U,4)
  1.  I V>10000 Q 1
  1.  S ULN=$P($G(^AUPNVLAB(X,11)),U,5)
  1.  I ULN="" Q 0  ;no upper limit
  1.  I V>(ULN*10) Q 1
  1.  Q 0
  1. STATRX(P,BDATE,EDATE,BGPNDAYS) ;EP
  1.  K BGPMEDS1 S K=0,R=""
  1.  D GETMEDS^BGP7UTL2(P,BDATE,EDATE,,,,,.BGPMEDS1)
  1.  I '$D(BGPMEDS1) Q ""
  1.  S T=$O(^ATXAX("B","BGP HEDIS STATIN MEDS",0))
  1.  S T1=$O(^ATXAX("B","BGP HEDIS STATIN NDC",0))
  1.  S X=0 F  S X=$O(BGPMEDS1(X)) Q:X'=+X  S Y=+$P(BGPMEDS1(X),U,4) D
  1.  .Q:'$D(^AUPNVMED(Y,0))
  1.  .Q:$$UP^XLFSTR($P($G(^AUPNVMED(Y,11)),U))["RETURNED TO STOCK"
  1.  .S G=0
  1.  .S D=$P(^AUPNVMED(Y,0),U)
  1.  .I T,$D(^ATXAX(T,21,"B",D)) S G=1 G STAT1
  1.  .S N=$P($G(^PSDRUG(D,2)),U,4)
  1.  .I N]"",T1,$D(^ATXAX(T1,21,"B",N)) S G=1
  1.  .Q:'G
  1. STAT1 .;
  1.  .S J=$P(^AUPNVMED(Y,0),U,8)
  1.  .S V=$P(^AUPNVMED(Y,0),U,3)
  1.  .Q:'V
  1.  .Q:'$D(^AUPNVSIT(V,0))
  1.  .S S=$$DAYS^BGP7D82(Y,V,EDATE)
  1.  .S K=S+K  ;TOTAL DAYS SUPPLY
  1.  .I R]"" S R=R_";"
  1.  .S R=R_$$DATE^BGP7UTL($P($P(^AUPNVSIT(V,0),U),"."))_"("_S_")"
  1.  I K>BGPNDAYS Q 1_U_" total days STATIN: "_K
  1. STATPRIO ;now add in any before BEG DATE
  1.  K BGPMEDS1
  1.  D GETMEDS^BGP7UTL2(P,$$FMADD^XLFDT(BDATE,-365),BDATE,,,,,.BGPMEDS1)
  1.  I '$D(BGPMEDS1) Q ""
  1.  S X=0 F  S X=$O(BGPMEDS1(X)) Q:X'=+X  S Y=+$P(BGPMEDS1(X),U,4) D
  1.  .Q:'$D(^AUPNVMED(Y,0))
  1.  .Q:$$UP^XLFSTR($P($G(^AUPNVMED(Y,11)),U))["RETURNED TO STOCK"
  1.  .S G=0
  1.  .S D=$P(^AUPNVMED(Y,0),U)
  1.  .I T,$D(^ATXAX(T,21,"B",D)) S G=1 G STAT2
  1.  .S N=$P($G(^PSDRUG(D,2)),U,4)
  1.  .I N]"",T1,$D(^ATXAX(T1,21,"B",N)) S G=1 G STAT2
  1.  .Q:'G
  1. STAT2 .;
  1.  .S J=$P(^AUPNVMED(Y,0),U,8)
  1.  .S V=$P(^AUPNVMED(Y,0),U,3)
  1.  .Q:'V
  1.  .Q:'$D(^AUPNVSIT(V,0))
  1.  .;S IS DAYS SUPPLY, J IS DATE DISCONTINUED
  1.  .Q:J]""  ;don't use if discontinued
  1.  .S D=$$FMDIFF^XLFDT(BDATE,$P($P(^AUPNVSIT(V,0),U),"."))  ;difference between dsch date and date prescribed
  1.  .S S=$P(^AUPNVMED(Y,0),U,7)
  1.  .S S=S-D  ;subtract the number of days used
  1.  .S:S<0 S=0
  1.  .S K=S+K  ;TOTAL DAYS SUPPLY
  1.  .I R]"" S R=R_";"
  1.  .S R=R_$$DATE^BGP7UTL($P($P(^AUPNVSIT(V,0),U),"."))_"("_S_")"
  1.  I K>BGPNDAYS Q 1_U_" total STATIN: "_K
  1.  Q 0_U_R_" total days STATIN: "_K
  1.  ;
  1. STATREF(P,BDATE,EDATE) ;EP
  1.  ;did patient have a Refusal in time period?
  1.  S T=$O(^ATXAX("B","BGP HEDIS STATIN MEDS",0))
  1.  S X=0,G="" F  S X=$O(^AUPNPREF("AA",P,50,X)) Q:X'=+X!(G)  D
  1.  .Q:'$D(^ATXAX(T,21,"B",X))
  1.  .S D=0 F  S D=$O(^AUPNPREF("AA",P,50,X,D)) Q:D'=+D!(G)  D
  1.  ..S Y=9999999-D I Y<BDATE Q  ;documented more than 1 year before edate
  1.  ..I Y>EDATE Q
  1.  ..S N=0 F  S N=$O(^AUPNPREF("AA",P,50,X,D,N)) Q:N'=+N!(G)  D
  1.  ...Q:$P($G(^AUPNPREF(N,0)),U,7)'="R"
  1.  ...S G=1_U_"Statin Refusal "_$$DATE^BGP7UTL(Y)
  1.  ..Q
  1.  .Q
  1.  Q G