BGPD5.m

BGPD5 ; IHS/CMI/LAB - indicator 5 ;

 ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 ;

I5A ;EP ;EP - indicator 5a

 ;Q:'$D(BGPIND(12))

 Q:'BGPDMPAT  ;not in the simple population for denominator

 S BGPUP=$$POSUR(DFN,BGPEDATE)

 I BGPUP D S(BGPRPT,$S(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),1,1)

 I $D(BGPLIST(12)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",12,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$P(BGPUP,U,2)

 Q

I5B ;EP

 ;Q:'$D(BGPIND(13))

 Q:'BGPDMPAT  ;not in the simple population for denominator

 Q:'BGP2BD

 I BGPUP D S(BGPRPT,$S(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),2,1)

 I $D(BGPLIST(13)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",13,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$P(BGPUP,U,2)

 Q

I5C ;EP

 ;Q:'$D(BGPIND(14))

 Q:'BGPDMPAT  ;not in the simple population for denominator

 Q:'BGP2CD

 I BGPUP D S(BGPRPT,$S(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),3,1)

 I $D(BGPLIST(14)),BGPTIME=1 S ^XTMP("BGPD",BGPJ,BGPH,"LIST",14,$S($P($G(^AUPNPAT(DFN,11)),U,18)]"":$P(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$P(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$P(BGPUP,U,2)

 Q

S(R,N,P,V) ;

 I 'V Q  ;no value to add

 S $P(^BGPD(R,N),U,P)=$P($G(^BGPD(R,N)),U,P)+V

 Q

POSUR(P,EDATE) ;

 NEW BGPG,X,%,E,R,V,D

 K BGPG

 S D=$$FMADD^XLFDT(EDATE,-365)

 S %=P_"^LAST LAB [DM AUDIT MICROALBUMINURIA TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")

 I $D(BGPG(1)) Q 1_"^MICROALB"

 S %=P_"^LAST LAB [DM AUDIT URINE PROTEIN TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(%,"BGPG(")

 S (%,R)="" I $D(BGPG(1)) D  Q R_"^"_%

 .S %=$P(^AUPNVLAB(+$P(BGPG(1),U,4),0),U,4)

 .S R=$S(%="":"",%["+":1,%[">":1,$E(%)="P":1,$E(%)="p":1,$E(%)="c":"",$E(%)="C":"",+%>29:1,1:"")

 .Q

 Q ""

BGPD5     ; IHS/CMI/LAB - indicator 5 ;

 +1       ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007

 +2       ;

I5A       ;EP ;EP - indicator 5a

 +1       ;Q:'$D(BGPIND(12))

 +2       ;not in the simple population for denominator

           IF 'BGPDMPAT

               QUIT 

 +3        SET BGPUP=$$POSUR(DFN,BGPEDATE)

 +4        IF BGPUP

               DO S(BGPRPT,$SELECT(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),1,1)

 +5        IF $DATA(BGPLIST(12))

               IF BGPTIME=1

                   SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",12,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$PIECE(BGPUP,U,2)

 +6        QUIT 

I5B       ;EP

 +1       ;Q:'$D(BGPIND(13))

 +2       ;not in the simple population for denominator

           IF 'BGPDMPAT

               QUIT 

 +3        IF 'BGP2BD

               QUIT 

 +4        IF BGPUP

               DO S(BGPRPT,$SELECT(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),2,1)

 +5        IF $DATA(BGPLIST(13))

               IF BGPTIME=1

                   SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",13,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$PIECE(BGPUP,U,2)

 +6        QUIT 

I5C       ;EP

 +1       ;Q:'$D(BGPIND(14))

 +2       ;not in the simple population for denominator

           IF 'BGPDMPAT

               QUIT 

 +3        IF 'BGP2CD

               QUIT 

 +4        IF BGPUP

               DO S(BGPRPT,$SELECT(BGPTIME=1:15,BGPTIME=0:45,BGPTIME=8:85,1:999),3,1)

 +5        IF $DATA(BGPLIST(14))

               IF BGPTIME=1

                   SET ^XTMP("BGPD",BGPJ,BGPH,"LIST",14,$SELECT($PIECE($GET(^AUPNPAT(DFN,11)),U,18)]"":$PIECE(^AUPNPAT(DFN,11),U,18),1:"UNKNOWN"),$PIECE(^DPT(DFN,0),U,2),BGPAGEE,DFN)=$PIECE(BGPUP,U,2)

 +6        QUIT 

S(R,N,P,V) ;

 +1       ;no value to add

           IF 'V

               QUIT 

 +2        SET $PIECE(^BGPD(R,N),U,P)=$PIECE($GET(^BGPD(R,N)),U,P)+V

 +3        QUIT 

POSUR(P,EDATE) ;

 +1        NEW BGPG,X,%,E,R,V,D

 +2        KILL BGPG

 +3        SET D=$$FMADD^XLFDT(EDATE,-365)

 +4        SET %=P_"^LAST LAB [DM AUDIT MICROALBUMINURIA TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)

           SET E=$$START1^APCLDF(%,"BGPG(")

 +5        IF $DATA(BGPG(1))

               QUIT 1_"^MICROALB"

 +6        SET %=P_"^LAST LAB [DM AUDIT URINE PROTEIN TAX;DURING "_$$FMTE^XLFDT(D)_"-"_$$FMTE^XLFDT(EDATE)

           SET E=$$START1^APCLDF(%,"BGPG(")

 +7        SET (%,R)=""

           IF $DATA(BGPG(1))

               Begin DoDot:1

 +8                SET %=$PIECE(^AUPNVLAB(+$PIECE(BGPG(1),U,4),0),U,4)

 +9                SET R=$SELECT(%="":"",%["+":1,%[">":1,$EXTRACT(%)="P":1,$EXTRACT(%)="p":1,$EXTRACT(%)="c":"",$EXTRACT(%)="C":"",+%>29:1,1:"")

 +10               QUIT 

               End DoDot:1

               QUIT R_"^"_%

 +11       QUIT ""