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

BGPDP2.m

Go to the documentation of this file.
  1. BGPDP2 ; IHS/CMI/LAB - print ind 2 ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;
  1. ;
  1. I2A ;EP ;
  1. ;Q:'$D(BGPIND(3))
  1. D HEADER^BGPDPH
  1. W !,"Indicator 2A: Diabetes-Reduce Diabetic Complications - Glycemic Control"
  1. W !,"Denominator is all patients with a DM diagnosis ever."
  1. W !,"Continue the trend of improved glycemic control in the proportion of I/T/U"
  1. W !,"clients with diagnosed diabetes.",!
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
  1. D H1^BGPDPH
  1. S BGPCYD=$P($$V(BGPRPT,10,10),"!",1)+$P($$V(BGPRPT,10,10),"!",2),BGPCYN=$$V(BGPRPT,12,2),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1. S BGP98D=$P($$V(BGPRPT,80,10),"!",1)+$P($$V(BGPRPT,80,10),"!",2),BGP98N=$$V(BGPRPT,82,2),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1. S BGPPRD=$P($$V(BGPRPT,40,10),"!",1)+$P($$V(BGPRPT,40,10),"!",2),BGPPRN=$$V(BGPRPT,42,2),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1. W !,"# diagnosed w/diabetes",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1. W !!,"# w/HgbA1c <=7 or",!?2," glucose <=150",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT W !,"Glycemic Control",! D H1^BGPDPH
  1. I2A3 ;ideal control
  1. S BGPP2=3 D SET22
  1. W !!,"# w/HgbA1c >=9.5 or",!?2," glucose >=225",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2A4 ;
  1. S BGPP2=4 D SET22
  1. W !!,"# w/HgbA1c or Glucose",!?2," undetermined in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2A1 ; ;
  1. S BGPP2=1 D SET22
  1. W !!,"# w/HgbA1c done w/ or",!?2," w/o result",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. Q
  1. I2B ;EP ;
  1. ;Q:'$D(BGPIND(4))
  1. D HEADER^BGPDPH
  1. W !,"Indicator 2B: Diabetes-Reduce Diabetic Complications - Glycemic Control"
  1. W !,"Denominator is all patients with a DM diagnosis ever, with at least",!,"2 visits in the year prior to the end of the time period and the first",!,"ever recorded diagnosis of Diabetes > 1year prior to the end of the time period."
  1. W !,"Continue the trend of improved glycemic control in the proportion of I/T/U"
  1. W !,"clients with diagnosed diabetes.",!
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
  1. D H1^BGPDPH
  1. S BGPCYD=$$V(BGPRPT,12,5),BGPCYN=$$V(BGPRPT,12,7),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1. S BGP98D=$$V(BGPRPT,82,5),BGP98N=$$V(BGPRPT,82,7),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1. S BGPPRD=$$V(BGPRPT,42,5),BGPPRN=$$V(BGPRPT,42,7),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1. W !,"# in denominator",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1. W !!,"# w/HgbA1c <=7 or",!?2," glucose <=150",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT W !,"Glycemic Control",! D H1^BGPDPH
  1. I2B3 ;ideal control
  1. S BGPP2=8 D SET22
  1. W !!,"# w/HgbA1c >=9.5 or",!?2," glucose >=225",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2B4 ;
  1. S BGPP2=9 D SET22
  1. W !!,"# w/HgbA1c or Glucose",!?2," undetermined in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2B1 ; ;
  1. S BGPP2=6 D SET22
  1. W !!,"# w/HgbA1c done w/ or",!?2," w/o result",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. Q
  1. I2C ;EP ;
  1. ;Q:'$D(BGPIND(5))
  1. D HEADER^BGPDPH
  1. W !,"Indicator 2C: Diabetes-Reduce Diabetic Complications - Glycemic Control"
  1. W !,"Denominator is all patients with a DM diagnosis ever, who are 19 or older",!,"who had at least 2 diabetes related encounters ever, at least one",!,"encounter in a primary clinic with a primary provider for diabetes,"
  1. W !,"and an absence of a creatinine value of 5.0 or greater."
  1. W !!,"Continue the trend of improved glycemic control in the proportion of I/T/U"
  1. W !,"clients with diagnosed diabetes.",!
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
  1. D H1^BGPDPH
  1. S BGPCYD=$$V(BGPRPT,12,10),BGPCYN=$$V(BGPRPT,12,12),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1. S BGP98D=$$V(BGPRPT,82,10),BGP98N=$$V(BGPRPT,82,12),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1. S BGPPRD=$$V(BGPRPT,42,10),BGPPRN=$$V(BGPRPT,42,12),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1. W !,"# diagnosed w/diabetes",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1. W !!,"# w/HgbA1c <=7 or",!?2," glucose <=150",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT W !,"Glycemic Control",! D H1^BGPDPH
  1. I2C3 ;ideal control
  1. S BGPP2=13 D SET22
  1. W !!,"# w/HgbA1c >=9.5 or",!?2," glucose >=225",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2C4 ;
  1. S BGPP2=14 D SET22
  1. W !!,"# w/HgbA1c or Glucose",!?2," undetermined in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. I2C1 ; ;
  1. S BGPP2=11 D SET22
  1. W !!,"# w/HgbA1c done w/ or",!?2," w/o result",!?2,"recorded w/in 1 yr of",!?2,"end of time period"
  1. D H2^BGPDPH
  1. Q
  1. SET22 ;
  1. S BGPCYN=$$V(BGPRPT,12,BGPP2),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1. S BGP98N=$$V(BGPRPT,82,BGPP2),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1. S BGPPRN=$$V(BGPRPT,42,BGPP2),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1. Q
  1. CALC(N,O) ;ENTRY POINT
  1. NEW Z
  1. I O=0!(N=0)!(O="")!(N="") Q "**"
  1. NEW X,X2,X3
  1. S X=N,X2=1,X3=0 D COMMA^%DTC S N=X
  1. S X=O,X2=1,X3=0 D COMMA^%DTC S O=X
  1. I +O=0 Q "**"
  1. S Z=(((N-O)/O)*100),Z=$FN(Z,"+,",1)
  1. Q Z
  1. Q
  1. V(R,N,P) ;
  1. NEW Y
  1. I $G(BGPAREAA),'$G(BGPSUMR) G VA
  1. Q $P($G(^BGPD(R,N)),U,P)
  1. VA ;
  1. NEW X,C,V,MT,FT,M,F,B S X=0,C="" F S X=$O(BGPSUL(X)) Q:X'=+X D
  1. .S V=$P($G(^BGPD(X,N)),U,P)
  1. .I C="" S C=V Q
  1. .S MT=$P(C,"!"),FT=$P(C,"!",2),M=$P(V,"!"),F=$P(V,"!",2)
  1. .F B=1:1:6 S $P(MT,"~",B)=$P(MT,"~",B)+$P(M,"~",B)
  1. .F B=1:1:6 S $P(FT,"~",B)=$P(FT,"~",B)+$P(F,"~",B)
  1. .S C=MT_"!"_FT
  1. .Q
  1. Q C
  1. C(X,X2,X3) ;
  1. D COMMA^%DTC
  1. Q X