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

BGPDP1B.m

Go to the documentation of this file. 
  1. BGPDP1B ; IHS/CMI/LAB - print ind 1B ;
  1.  ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1.  ;
  1.  ;
  1. I1B ;EP ; diabetes prevalence
  1.  ;Q:'$D(BGPIND(2))
  1.  D HEADER^BGPDPH
  1.  W !,"Indicator 1B:  Diabetes Prevalence using patients seen w/DM in the year",!,"prior to the end of the time period."
  1.  W !,"Continue tracking area age specific diabetes prevalence rates to identify"
  1.  W !,"trends in the age specific prevalence of diabetes (as a surrogate marker for"
  1.  W !,"diabetes incidence) for the AI/AN population.",!
  1.  I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT
  1.  W !,"Prevalence of Diabetes (w/DM DX in year prior to end of time period)",!
  1.  D H1^BGPDPH
  1.  S BGPCYD=$P($$V(BGPRPT,10,1),"!",1)+$P($$V(BGPRPT,10,1),"!",2),BGPCYN=$P($$V(BGPRPT,11,1),"!",1)+$P($$V(BGPRPT,11,1),"!",2),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1.  S BGP98D=$P($$V(BGPRPT,80,1),"!",1)+$P($$V(BGPRPT,80,1),"!",2),BGP98N=$P($$V(BGPRPT,81,1),"!",1)+$P($$V(BGPRPT,81,1),"!",2),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1.  S BGPPRD=$P($$V(BGPRPT,40,1),"!",1)+$P($$V(BGPRPT,40,1),"!",2),BGPPRN=$P($$V(BGPRPT,41,1),"!",1)+$P($$V(BGPRPT,41,1),"!",2),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1.  W !,"# active users",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1.  W !,"# w/ DM DX w/in",!,"year"
  1.  D H2^BGPDPH
  1. I1BF ;
  1.  I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT  D H1^BGPDPH
  1.  S BGPCYD=$P($$V(BGPRPT,10,1),"!",2),BGPCYN=$P($$V(BGPRPT,11,1),"!",2),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1.  S BGP98D=$P($$V(BGPRPT,80,1),"!",2),BGP98N=$P($$V(BGPRPT,81,1),"!",2),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1.  S BGPPRD=$P($$V(BGPRPT,40,1),"!",2),BGPPRN=$P($$V(BGPRPT,41,1),"!",2),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1.  W !!!,"# FEMALE active users",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1.  W !,"# w/ DM DX w/in",!,"year"
  1.  D H2^BGPDPH
  1. I1BM ;
  1.  I $Y>(IOSL-5) D HEADER^BGPDPH Q:BGPQUIT  D H1^BGPDPH
  1.  S BGPCYD=$P($$V(BGPRPT,10,1),"!",1),BGPCYN=$P($$V(BGPRPT,11,1),"!",1),BGPCYP=$S(BGPCYD:((BGPCYN/BGPCYD)*100),1:"")
  1.  S BGP98D=$P($$V(BGPRPT,80,1),"!",1),BGP98N=$P($$V(BGPRPT,81,1),"!",1),BGP98P=$S(BGP98D:((BGP98N/BGP98D)*100),1:"")
  1.  S BGPPRD=$P($$V(BGPRPT,40,1),"!",1),BGPPRN=$P($$V(BGPRPT,41,1),"!",1),BGPPRP=$S(BGPPRD:((BGPPRN/BGPPRD)*100),1:"")
  1.  W !!!,"# MALE active users",?22,$$C(BGP98D,0,8),?37,$$C(BGPPRD,0,8),?52,$$C(BGPCYD,0,8)
  1.  W !,"# w/ DM DX w/in",!,"year"
  1.  D H2^BGPDPH
  1. I1BA ;
  1.  S BGPHD1="TOTAL ACTIVE USERS"
  1.  D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !,"CURRENT REPORTING PERIOD"
  1.  W !,"Total # active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,10,X) S V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,11,X),V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  K BGPX
  1.  S BGPDNODE=10,BGPNNODE=11 D CHG1
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"PREVIOUS YEAR PERIOD"
  1.  W !,"Total # active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,40,X) S V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,41,X),V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  S BGPDNODE=40,BGPNNODE=41 D CHG1
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"BASELINE REPORTING PERIOD"
  1.  W !,"Total # active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,80,X) S V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,81,X),V=$P(Y,"!")+$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  S BGPDNODE=80,BGPNNODE=81 D CHG1
  1.  D CHG
  1. I1BAF ;
  1.  S BGPHD1="FEMALE ACTIVE USERS"
  1.  D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !,"CURRENT REPORTING PERIOD"
  1.  W !,"# FEMALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,10,X) S V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,11,X),V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  K BGPX W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,11,X),D=$$V(BGPRPT,10,X),N1=$P(N,"!",2),D1=$P(D,"!",2),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U)=%
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"PREVIOUS YEAR PERIOD"
  1.  W !,"# FEMALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,40,X) S V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,41,X),V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,41,X),D=$$V(BGPRPT,40,X),N1=$P(N,"!",2),D1=$P(D,"!",2),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U,3)=%
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"BASELINE REPORTING PERIOD"
  1.  W !,"# FEMALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,80,X) S V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,81,X),V=$P(Y,"!",2) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,81,X),D=$$V(BGPRPT,80,X),N1=$P(N,"!",2),D1=$P(D,"!",2),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U,2)=%
  1.  D CHG
  1. I1BAM ;
  1.  S BGPHD1="MALE ACTIVE USERS"
  1.  D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !,"CURRENT REPORTING PERIOD"
  1.  W !,"# MALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,10,X) S V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,11,X),V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  K BGPX W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,11,X),D=$$V(BGPRPT,10,X),N1=$P(N,"!",1),D1=$P(D,"!",1),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U)=%
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"PREVIOUS YEAR PERIOD"
  1.  W !,"# MALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,40,X) S V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,41,X),V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,41,X),D=$$V(BGPRPT,40,X),N1=$P(N,"!",1),D1=$P(D,"!",1),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U,3)=%
  1.  I $Y>(IOSL-8) D HEADER^BGPDPH Q:BGPQUIT  D H4^BGPDPH
  1.  W !!,"BASELINE REPORTING PERIOD"
  1.  W !,"# MALE active users"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,80,X) S V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"# w/Diabetes DX in yr"
  1.  S T=23 F X=2:1:9 S Y=$$V(BGPRPT,81,X),V=$P(Y,"!",1) W ?T,$$C(V,0,6) S T=T+7
  1.  W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,81,X),D=$$V(BGPRPT,80,X),N1=$P(N,"!",1),D1=$P(D,"!",1),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 S $P(BGPX(X),U,2)=%
  1.  D CHG
  1.  Q
  1. CHG1 ;
  1.  W !,"% with DM DX in yr" S T=23 F X=2:1:9 S N=$$V(BGPRPT,BGPNNODE,X),D=$$V(BGPRPT,BGPDNODE,X),N1=$P(N,"!")+$P(N,"!",2),D1=$P(D,"!")+$P(D,"!",2),%=$S('D1:"",1:(N1/D1)*100) W ?T,$S(%="":"    .",1:$J(%,5,1)) S T=T+7 D
  1.  .S A=$S(BGPDNODE=10:1,BGPDNODE=40:3,BGPDNODE=80:2,1:"") S $P(BGPX(X),U,A)=%
  1.  Q
  1. CHG ;
  1.  S T=23 W !!,"% Change from prev yr" S X=0 F  S X=$O(BGPX(X)) Q:X'=+X  S N=$P(BGPX(X),U),O=$P(BGPX(X),U,3) W ?T,$J($$CALC(N,O),6) S T=T+7
  1.  S T=23 W !!,"% Change from base yr" S X=0 F  S X=$O(BGPX(X)) Q:X'=+X  S N=$P(BGPX(X),U),O=$P(BGPX(X),U,2) W ?T,$J($$CALC(N,O),6) S T=T+7
  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. 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