BGP4DHE1 ; IHS/CMI/LAB - indicator HEDIS ;
;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
;
I1 ;EP
S (BGPN1,BGPN2,BGPN3,BGPN4,BGPN5,BGPN6,BGPD1,BGPD2,BGPD3,BGPD4,BGPD5,BGPD6,BGPD7,BGPD8,BGPD9)=0
I BGPAGEB<52 S BGPSTOP=1 Q
I BGPACTCL S BGPD1=1
I 'BGPD1 S BGPSTOP=1 Q
S BGPFOB=$$FOB^BGP4D61(DFN,BGPEDATE)
S BGPRECT=$$RECT^BGP4D61(DFN,BGPEDATE)
I BGPFOB]"" S BGPN2=1,BGPN1=1
I BGPRECT]"" S BGPN3=1,BGPN1=1
S BGPOTH=""
I BGPN1=0 S BGPOTH=$$IBH^BGP4D61(DFN,BGPEDATE)
I BGPOTH]"" S BGPN1=1
S BGPVALUE=$S(BGPFOB]"":BGPFOB,BGPRECT]"":BGPRECT,1:BGPOTH),BGPVALUE=$P(BGPVALUE,U,2)_" "_$P(BGPVALUE,U)
;S BGPDV=$S(BGPD1:"UP",1:"")_$S(BGPACTCL:",AC",1:"")
;S BGPVALUE=BGPDV_";"_BGPVALUE
K X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P
Q
I4 ;EP
S (BGPN1,BGPN2,BGPN3,BGPN4,BGPN5,BGPN6,BGPD1,BGPD2,BGPD3,BGPD4,BGPD5,BGPD6,BGPD7,BGPD8,BGPD9)=0
I 'BGPACTUP S BGPSTOP=1 Q
I BGPSEX'="F" S BGPSTOP=1 Q
I BGPAGEB<16 S BGPSTOP=1 Q
I BGPAGEB>25 S BGPSTOP=1 Q
I BGPACTUP S BGPD2=1
I BGPACTCL S BGPD1=1
S BGPN1=$$CHL^BGP4D5(DFN,BGP365,BGPEDATE)
S BGPVALUE=""
K X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,T
Q
I7 ;EP
K BGPN1,BGPN2,BGPN3,BGPN4,BGPVALUE,BGPLHGB,BGPN5,BGPN6,BGPN7,BGPN8
S BGPD1=0
I 'BGPDMD2 S BGPSTOP=1 Q ;not active diabetic
I BGPDMD2 S BGPD1=1
I 'BGPDM1 S BGPSTOP=1 Q ;don't process this indicator, pt not diabetic
S BGPLHGB=$$HGBA1C^BGP4D2(DFN,BGP365,BGPEDATE)
S BGPN1=$P(BGPLHGB,U)
S BGPN2=$S($P(BGPLHGB,U,2)=3:1,1:0)
S BGPVALUE=""
I BGPN1 S BGPVALUE=BGPVALUE_"hgb:"_$$DATE^BGP4UTL($P(BGPLHGB,U,3))_" "_$P(BGPLHGB,U,4)
K X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,J,K,G,I,L,T,BGPG
73 S BGPEYE=$$EYE^BGP4D21(DFN,BGP365,BGPEDATE)
S A=0 I $P(BGPEYE,U)=1 S A=1
S B=0 I $P(BGPEYE,U)=2 S B=1
S BGPN3=0 I A!(B) S BGPN3=1
I BGPN3 S BGPVALUE=BGPVALUE_";eye: "_$$DATE^BGP4UTL($P(BGPEYE,U,2))_" "_$P(BGPEYE,U,3)
K BGPG
K ^TMP($J,"A")
74 ;
S BGPLDL=$$LDL^BGP4D2(DFN,BGP365,BGPEDATE)
S BGPN4=$P(BGPLDL,U),BGPN5=0,BGPN6=0
I $P(BGPLDL,U,3)]"",$P(BGPLDL,U,3)'>100 S BGPN6=1
I $P(BGPLDL,U,3)]"",$P(BGPLDL,U,3)<130 S BGPN5=1
I BGPN4 S BGPVALUE=BGPVALUE_";ldl: "_$$DATE^BGP4UTL($P(BGPLDL,U,2))_" "_$P(BGPLDL,U,3)
K X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,BGPLDL,BGPHDL,BGPTRI,BGPLP
77 ;
S BGPUP=$$POSUR^BGP4D21(DFN,BGP365,BGPEDATE)
;S BGPGFR=$$GFR(DFN,BGP365,BGPEDATE)
;S BGPN3=0 I $P(BGPUP,U)=1 S BGPN3=1
;S BGPN2=0 I $P(BGPGFR,U) S BGPN2=1
S BGPN7=0 I $P(BGPUP,U)=1 S BGPN7=1
I BGPN1 S BGPVALUE=BGPVALUE_";nep: "_$$DATE^BGP4UTL($P(BGPUP,U,4))_" "_$P(BGPUP,U,2)_" "_$P(BGPUP,U,3) ;_" "_$S(BGPGFR:"GFR",1:"")
S BGPN8=0 I BGPN1,BGPN3,BGPN4,BGPN7 S BGPN8=1
Q
BGP4DHE1 ; IHS/CMI/LAB - indicator HEDIS ;
+1 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
+2 ;
I1 ;EP
+1 SET (BGPN1,BGPN2,BGPN3,BGPN4,BGPN5,BGPN6,BGPD1,BGPD2,BGPD3,BGPD4,BGPD5,BGPD6,BGPD7,BGPD8,BGPD9)=0
+2 IF BGPAGEB<52
SET BGPSTOP=1
QUIT
+3 IF BGPACTCL
SET BGPD1=1
+4 IF 'BGPD1
SET BGPSTOP=1
QUIT
+5 SET BGPFOB=$$FOB^BGP4D61(DFN,BGPEDATE)
+6 SET BGPRECT=$$RECT^BGP4D61(DFN,BGPEDATE)
+7 IF BGPFOB]""
SET BGPN2=1
SET BGPN1=1
+8 IF BGPRECT]""
SET BGPN3=1
SET BGPN1=1
+9 SET BGPOTH=""
+10 IF BGPN1=0
SET BGPOTH=$$IBH^BGP4D61(DFN,BGPEDATE)
+11 IF BGPOTH]""
SET BGPN1=1
+12 SET BGPVALUE=$SELECT(BGPFOB]"":BGPFOB,BGPRECT]"":BGPRECT,1:BGPOTH)
SET BGPVALUE=$PIECE(BGPVALUE,U,2)_" "_$PIECE(BGPVALUE,U)
+13 ;S BGPDV=$S(BGPD1:"UP",1:"")_$S(BGPACTCL:",AC",1:"")
+14 ;S BGPVALUE=BGPDV_";"_BGPVALUE
+15 KILL X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P
+16 QUIT
I4 ;EP
+1 SET (BGPN1,BGPN2,BGPN3,BGPN4,BGPN5,BGPN6,BGPD1,BGPD2,BGPD3,BGPD4,BGPD5,BGPD6,BGPD7,BGPD8,BGPD9)=0
+2 IF 'BGPACTUP
SET BGPSTOP=1
QUIT
+3 IF BGPSEX'="F"
SET BGPSTOP=1
QUIT
+4 IF BGPAGEB<16
SET BGPSTOP=1
QUIT
+5 IF BGPAGEB>25
SET BGPSTOP=1
QUIT
+6 IF BGPACTUP
SET BGPD2=1
+7 IF BGPACTCL
SET BGPD1=1
+8 SET BGPN1=$$CHL^BGP4D5(DFN,BGP365,BGPEDATE)
+9 SET BGPVALUE=""
+10 KILL X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,T
+11 QUIT
I7 ;EP
+1 KILL BGPN1,BGPN2,BGPN3,BGPN4,BGPVALUE,BGPLHGB,BGPN5,BGPN6,BGPN7,BGPN8
+2 SET BGPD1=0
+3 ;not active diabetic
IF 'BGPDMD2
SET BGPSTOP=1
QUIT
+4 IF BGPDMD2
SET BGPD1=1
+5 ;don't process this indicator, pt not diabetic
IF 'BGPDM1
SET BGPSTOP=1
QUIT
+6 SET BGPLHGB=$$HGBA1C^BGP4D2(DFN,BGP365,BGPEDATE)
+7 SET BGPN1=$PIECE(BGPLHGB,U)
+8 SET BGPN2=$SELECT($PIECE(BGPLHGB,U,2)=3:1,1:0)
+9 SET BGPVALUE=""
+10 IF BGPN1
SET BGPVALUE=BGPVALUE_"hgb:"_$$DATE^BGP4UTL($PIECE(BGPLHGB,U,3))_" "_$PIECE(BGPLHGB,U,4)
+11 KILL X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,J,K,G,I,L,T,BGPG
73 SET BGPEYE=$$EYE^BGP4D21(DFN,BGP365,BGPEDATE)
+1 SET A=0
IF $PIECE(BGPEYE,U)=1
SET A=1
+2 SET B=0
IF $PIECE(BGPEYE,U)=2
SET B=1
+3 SET BGPN3=0
IF A!(B)
SET BGPN3=1
+4 IF BGPN3
SET BGPVALUE=BGPVALUE_";eye: "_$$DATE^BGP4UTL($PIECE(BGPEYE,U,2))_" "_$PIECE(BGPEYE,U,3)
+5 KILL BGPG
+6 KILL ^TMP($JOB,"A")
74 ;
+1 SET BGPLDL=$$LDL^BGP4D2(DFN,BGP365,BGPEDATE)
+2 SET BGPN4=$PIECE(BGPLDL,U)
SET BGPN5=0
SET BGPN6=0
+3 IF $PIECE(BGPLDL,U,3)]""
IF $PIECE(BGPLDL,U,3)'>100
SET BGPN6=1
+4 IF $PIECE(BGPLDL,U,3)]""
IF $PIECE(BGPLDL,U,3)<130
SET BGPN5=1
+5 IF BGPN4
SET BGPVALUE=BGPVALUE_";ldl: "_$$DATE^BGP4UTL($PIECE(BGPLDL,U,2))_" "_$PIECE(BGPLDL,U,3)
+6 KILL X,Y,Z,%,A,B,C,D,E,H,BDATE,EDATE,P,V,S,F,BGPLDL,BGPHDL,BGPTRI,BGPLP
77 ;
+1 SET BGPUP=$$POSUR^BGP4D21(DFN,BGP365,BGPEDATE)
+2 ;S BGPGFR=$$GFR(DFN,BGP365,BGPEDATE)
+3 ;S BGPN3=0 I $P(BGPUP,U)=1 S BGPN3=1
+4 ;S BGPN2=0 I $P(BGPGFR,U) S BGPN2=1
+5 SET BGPN7=0
IF $PIECE(BGPUP,U)=1
SET BGPN7=1
+6 ;_" "_$S(BGPGFR:"GFR",1:"")
IF BGPN1
SET BGPVALUE=BGPVALUE_";nep: "_$$DATE^BGP4UTL($PIECE(BGPUP,U,4))_" "_$PIECE(BGPUP,U,2)_" "_$PIECE(BGPUP,U,3)
+7 SET BGPN8=0
IF BGPN1
IF BGPN3
IF BGPN4
IF BGPN7
SET BGPN8=1
+8 QUIT
