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

BGP1D52.m

Go to the documentation of this file.
  1. BGP1D52 ; IHS/CMI/LAB - measure 31 ;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
  1. ;
  1. ;
  1. EAPT(P,BDATE,EDATE,BGPDAYS,BGPGAP,BGPDAYS1) ;EP
  1. ;get all ANTIDEPRESSANTS
  1. K ^TMP($J,"MEDS")
  1. K BGPZ,M
  1. S (G,N,Y,X,T,T1,T2,M,K,S,C,R,A)=""
  1. S K=0
  1. S Y="^TMP($J,""MEDS"",",X=P_"^ALL MED;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE) S E=$$START1^APCLDF(X,Y)
  1. S T=$O(^ATXAX("B","BGP HEDIS ANTIDEPRESSANT MEDS",0))
  1. S T2=$O(^ATXAX("B","BGP HEDIS ANTIDEPRESSANT VA CLASS",0))
  1. S X=0 F S X=$O(^TMP($J,"MEDS",X)) Q:X'=+X S Y=+$P(^TMP($J,"MEDS",X),U,4) D
  1. .Q:'$D(^AUPNVMED(Y,0))
  1. .S V=$P(^AUPNVMED(Y,0),U,3)
  1. .Q:'$D(^AUPNVSIT(V,0))
  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 EAPT1
  1. .S C=$P($G(^PSDRUG(D,0)),U,2)
  1. .I C]"",T2,$D(^ATXAX(T2,21,"B",C)) S G=1 G EAPT1
  1. .Q:'G
  1. EAPT1 .;
  1. .S J=$P(^AUPNVMED(Y,0),U,8)
  1. .S S=$$DAYS^BGP1D82(Y,V,EDATE)
  1. .S K=S+K ;TOTAL DAYS SUPPLY
  1. .I R]"" S R=R_";"
  1. .S R=R_$$DATE^BGP1UTL($P($P(^AUPNVSIT(V,0),U),"."))_"("_S_")"
  1. .S F=$P($P(^AUPNVSIT(V,0),U),".")
  1. .S A=$$FMADD^XLFDT(F,$P(^AUPNVMED(Y,0),U,7))
  1. .I J]"",J<A S A=J
  1. .S M(F)=A ;$S(J:J,1:$$FMADD^XLFDT(F,$P(^AUPNVMED(Y,0),U,7)))
  1. ;I K>83 S BGPREG=1_U_Q 1_U_" total days beta blocker: "_K
  1. GAP ;now FIGURE OUT GAP DAYS
  1. S G=0 ;gap days
  1. S B=0 F S B=$O(M(B)) Q:B'=+B S E=M(B) D
  1. .S Y=$O(M(B)) ;NEXT BEGINNING
  1. .;I Y="" S Y=$$FMADD^XLFDT(BDATE,BGPDAYS1)
  1. .I Y="" Q
  1. .I Y>EDATE Q
  1. .S Z=$$FMDIFF^XLFDT(Y,E)
  1. .I Z>0 S G=Z+G
  1. .Q
  1. I G>BGPGAP!(K<BGPDAYS) Q 0_U_R_U_"DAYS="_K_", GAP="_G
  1. Q 1_U_R_U_"DAYS="_K_", GAP="_G