Routine: BGPMUEPD

BGPMUEPD ; IHS/MSC/MMT - EP Report Driver;02-Mar-2011 11:36;DU

 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

PROC ;EP

 D BQIKILL

 S BGPBT=$H

 D JRNL^BGPMUUTL

 S BGPJ=$J,BGPH=$H

 S BGPCHWC=0

 K ^XTMP("BGPMUEP",BGPJ,BGPH) ; not sure if I need this Timestamp stuff or if it should be Provider Specific

 D XTMP^BGPMUUTL("BGPMUEP","Meaningful Use EP Report")

 ;calculate 3 years before end of each time frame

 S BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 S BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 ;process each patient

 S DFN=0 F  S DFN=$O(^AUPNPAT(DFN)) Q:DFN'=+DFN  D

 .I $G(BGPDESGP) S P=$$DP(DFN) I P'=BGPDESGP Q

 .Q:'$D(^DPT(DFN,0))

 .Q:$P($G(^DPT(DFN,0)),U)["DEMO,PATIENT"

 .I $P($G(^BGPSITE(DUZ(2),0)),U,12) Q:$D(^DIBT($P(^BGPSITE(DUZ(2),0),U,12),1,DFN))

 .D PROCCY,PROCPY,PROCBY

N ;

 S BGPET=$H

PROCCY ;EP - current time period

 Q:'$D(^DPT(DFN,0))

 Q:$P(^DPT(DFN,0),U,2)=""

 Q:"FM"'[$P(^DPT(DFN,0),U,2)

 S BGPBDATE=BGPBD,BGPEDATE=BGPED,BGPTIME=1

 S BGP365=BGPBDATE

 S BGPACTUP=$$ACTUPAP(DFN,BGP3YE,BGPEDATE,BGPBEN)

 I 'BGPACTUP,'$G(BGPXPXPX),'$G(BGPIISO) Q

 S BGPACTCL=$$ACTCL(DFN,BGP3YE,BGPEDATE) ;active clinical

 S BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 S BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 S BGPSEX=$P(^DPT(DFN,0),U,2)

 I $G(BGPIISO)=1 S BGPACTUP=1,BGPACTCL=1  ;if in scheduling option, everyone is user pop/active clinical

 S BGPMUTF="C"

 D CALCMEAS

PROCPY ;

 Q:'$D(^DPT(DFN,0))

 Q:$P(^DPT(DFN,0),U,2)=""

 Q:"FM"'[$P(^DPT(DFN,0),U,2)

 S BGPBDATE=BGPPBD,BGPEDATE=BGPPED,BGPTIME=2

 S BGP365=BGPBDATE

 S BGPACTUP=$$ACTUPAP(DFN,BGPB3YE,BGPEDATE,BGPBEN)

 I 'BGPACTUP Q  ;if not in user pop, don't use patient

 S BGPACTCL=$$ACTCL(DFN,BGPB3YE,BGPEDATE) ;active clinical

 S BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 S BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 S BGPSEX=$P(^DPT(DFN,0),U,2)

 S BGPMUTF="P"

 D CALCMEAS

PROCBY ;

 Q:'$D(^DPT(DFN,0))

 Q:$P(^DPT(DFN,0),U,2)=""

 Q:"FM"'[$P(^DPT(DFN,0),U,2)

 S BGPBDATE=BGPBBD,BGPEDATE=BGPBED,BGPTIME=3

 S BGP365=BGPBDATE

 S BGPACTUP=$$ACTUPAP(DFN,BGPB3YE,BGPEDATE,BGPBEN)

 I 'BGPACTUP Q  ;if not in user pop, don't use patient

 S BGPACTCL=$$ACTCL(DFN,BGPB3YE,BGPEDATE) ;active clinical

 S BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 S BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 S BGPSEX=$P(^DPT(DFN,0),U,2)

 S BGPMUTF="B"

 D CALCMEAS

CALCMEAS ;

 D CALCMEAS^BGPMUDCI

V2(P,BDATE,EDATE) ;EP

 N A,B,X,G,V

 I '$D(^AUPNVSIT("AC",P)) Q ""

 K ^TMP($J,"A")

 S A="^TMP($J,""A"",",B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(B,A)

 I '$D(^TMP($J,"A",1)) Q ""

 S (X,G)=0 F  S X=$O(^TMP($J,"A",X)) Q:X'=+X!(G>2)  S V=$P(^TMP($J,"A",X),U,5) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:'$P(^AUPNVSIT(V,0),U,9)

 .Q:$P(^AUPNVSIT(V,0),U,11)

 .Q:"SAHO"'[$P(^AUPNVSIT(V,0),U,7)

 .Q:"V"[$P(^AUPNVSIT(V,0),U,3)

 .Q:$P(^AUPNVSIT(V,0),U,6)=""

 .S G=G+1

.Q

 Q $S(G<2:"",1:1)

ACTUPAP(P,BDATE,EDATE,B) ;EP - is this patient in user pop?

 I B=1,$$BEN^AUPNPAT(P,"C")'="01" Q 0  ;must be Indian/Alaskan Native

 I B=2,$$BEN^AUPNPAT(P,"C")="01" Q 0  ;must not be I/A

 S DOD=$$DOD^AUPNPAT(P) I DOD]"",DOD<EDATE Q 0

Q 1

ACTCL(P,BDATE,EDATE) ;EP - clinical user

 N X,G,F,S,V,B

 S (X,G,F,S)=0 F  S X=$O(^TMP($J,"A",X)) Q:X'=+X!(F)  S V=$P(^TMP($J,"A",X),U,5) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:'$P(^AUPNVSIT(V,0),U,9)

 .Q:$P(^AUPNVSIT(V,0),U,11)

 .Q:'$D(^AUPNVPRV("AD",V))

 .Q:"SAHO"'[$P(^AUPNVSIT(V,0),U,7)

 .Q:"V"[$P(^AUPNVSIT(V,0),U,3)

 .Q:$P(^AUPNVSIT(V,0),U,6)=""

 .S B=$$CLINIC^APCLV(V,"C")

 .Q:B=""

 .I G,S S F=1

.Q

 Q $S(F:1,1:0)

LASTVD(P,BDATE,EDATE) ;

 N A,B,V,X,G

 I '$D(^AUPNVSIT("AC",P)) Q ""

 K ^TMP($J,"A")

 S A="^TMP($J,""A"",",B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE),E=$$START1^APCLDF(B,A)

 I '$D(^TMP($J,"A",1)) Q ""

 S (X,G)=0 F  S X=$O(^TMP($J,"A",X)) Q:X'=+X!(G)  S V=$P(^TMP($J,"A",X),U,5) D

 .Q:'$D(^AUPNVSIT(V,0))

 .Q:'$P(^AUPNVSIT(V,0),U,9)

 .Q:$P(^AUPNVSIT(V,0),U,11)

 .Q:'$D(^AUPNVPRV("AD",V))

 .Q:"SAHO"'[$P(^AUPNVSIT(V,0),U,7)

 .Q:"V"[$P(^AUPNVSIT(V,0),U,3)

 .Q:$P(^AUPNVSIT(V,0),U,6)=""

 .S G=1

.Q

Q G

LOINC(A,B) ;

 NEW %

 S %=$P($G(^LAB(95.3,A,9999999)),U,2)

 I %]"",$D(^ATXAX(B,21,"B",%)) Q 1

 S %=$P($G(^LAB(95.3,A,0)),U)_"-"_$P($G(^LAB(95.3,A,0)),U,15)

 I $D(^ATXAX(B,21,"B",%)) Q 1

 Q ""

DP(P) ;

 I $P(^AUPNPAT(P,0),U,14) Q $P(^AUPNPAT(P,0),U,14)

 I $T(ALLDP^BDPAPI)="" Q ""

 NEW X

 D ALLDP^BDPAPI(P,"DESIGNATED PRIMARY PROVIDER",.X)

 Q $P($G(X("DESIGNATED PRIMARY PROVIDER")),U,2)

BQI(BQIGREF,BGPPROV) ;PEP - iCARE

 ; Input parameters

 ; BQIGREF = Global reference to store data

 ; BGPPROV = Provider IEN

 Q:BQIGREF=""

 N BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 S BGPBT=$H

 D JRNL^BGPMUUTL

 S BGPJ=$J,BGPH=$H

 S BGPCHWC=0

 K ^XTMP("BGPMUEP",BGPJ,BGPH) ; not sure if I need this Timestamp stuff or if it should be Provider Specific

 D XTMP^BGPMUUTL("BGPMUEP","Meaningful Use EP Report")

 ;calculate 3 years before end of each time frame

 S BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 S BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 ;process each patient

 S DFN=0 F  S DFN=$O(^AUPNPAT(DFN)) Q:DFN'=+DFN  D

 .Q:'$D(^DPT(DFN,0))

 .Q:$P($G(^DPT(DFN,0)),U)["DEMO,PATIENT"

 .I $P($G(^BGPSITE(DUZ(2),0)),U,12) Q:$D(^DIBT($P(^BGPSITE(DUZ(2),0),U,12),1,DFN))

 .K BGPICARE

 .D PROCCY

 .I $G(BGPPBD)'="" D PROCPY

 .;Move patient data for all requested measures from array to the passed in global reference

 .;  BGPICARE(INDICATOR_ID,Timeframe)=Denom Flag ^ Num Flag ^ Excl Flag ^ Denom disp ; Num disp ^ Excl disp

 .S BGPIMEAS=""

 .F  S BGPIMEAS=$O(BGPICARE(BGPIMEAS)) Q:BGPIMEAS=""  D

 ..S BGPMUTF=""

 ..F  S BGPMUTF=$O(BGPICARE(BGPIMEAS,BGPMUTF)) Q:BGPMUTF=""  D

 ...S BGPIDATA=$G(BGPICARE(BGPIMEAS,BGPMUTF))

 ...;Lookup indicator ID

 ...S BGPIIEN=$O(^BGPMUIND(90596.11,"C",BGPIMEAS,0))

 ...;Store into global - ONLY if measure ID exists

 ...I BGPIIEN'="" S @BQIGREF@(BGPPROV,DFN,BGPMUTF,BGPIIEN)=BGPIDATA

 D BQIKILL

 K BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

BQIKILL ; TEMPORARY Subroutine to kill off ^TMP globals created by running measure evals without printing

 ;This routine should be removed once a better system for killing off ^TMP globals has been implemented

 K ^TMP("BGPMU0001",$J)

 K ^TMP("BGPMU0002",$J)

 K ^TMP("BGPMU0004",$J)

 K ^TMP("BGPMU0012",$J)

 K ^TMP("BGPMU0013",$J)

 K ^TMP("BGPMU0014",$J)

 K ^TMP("BGPMU0018",$J)

 K ^TMP("BGPMU0024",$J)

 K ^TMP("BGPMU0027",$J)

 K ^TMP("BGPMU0028A",$J)

 K ^TMP("BGPMU0028B",$J)

 K ^TMP("BGPMU0031",$J)

 K ^TMP("BGPMU0032",$J)

 K ^TMP("BGPMU0033",$J)

 K ^TMP("BGPMU0034",$J)

 K ^TMP("BGPMU0036",$J)

 K ^TMP("BGPMU0038",$J)

 K ^TMP("BGPMU0041",$J)

 K ^TMP("BGPMU0043",$J)

 K ^TMP("BGPMU0047",$J)

 K ^TMP("BGPMU0052",$J)

 K ^TMP("BGPMU0055",$J)

 K ^TMP("BGPMU0056",$J)

 K ^TMP("BGPMU0059",$J)

 K ^TMP("BGPMU0061",$J)

 K ^TMP("BGPMU0062",$J)

 K ^TMP("BGPMU0064",$J)

 K ^TMP("BGPMU0067",$J)

 K ^TMP("BGPMU0068",$J)

 K ^TMP("BGPMU0070",$J)

 K ^TMP("BGPMU0073",$J)

 K ^TMP("BGPMU0074",$J)

 K ^TMP("BGPMU0075",$J)

 K ^TMP("BGPMU0081",$J)

 K ^TMP("BGPMU0083",$J)

 K ^TMP("BGPMU0084",$J)

 K ^TMP("BGPMU0086",$J)

 K ^TMP("BGPMU0088",$J)

 K ^TMP("BGPMU0089",$J)

 K ^TMP("BGPMU0105",$J)

 K ^TMP("BGPMU0385",$J)

 K ^TMP("BGPMU0387",$J)

 K ^TMP("BGPMU0389",$J)

 K ^TMP("BGPMU0421",$J)

 K ^TMP("BGPMU0575",$J)

BGPMUEPD  ; IHS/MSC/MMT - EP Report Driver;02-Mar-2011 11:36;DU

 +1       ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106

 +2       ;

PROC      ;EP

 +1        DO BQIKILL

 +2        SET BGPBT=$HOROLOG

 +3        DO JRNL^BGPMUUTL

 +4        SET BGPJ=$JOB

           SET BGPH=$HOROLOG

 +5        SET BGPCHWC=0

 +6       ; not sure if I need this Timestamp stuff or if it should be Provider Specific

           KILL ^XTMP("BGPMUEP",BGPJ,BGPH)

 +7        DO XTMP^BGPMUUTL("BGPMUEP","Meaningful Use EP Report")

 +8       ;calculate 3 years before end of each time frame

 +9        SET BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 +10       SET BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 +11      ;process each patient

 +12       SET DFN=0

FOR

               SET DFN=$ORDER(^AUPNPAT(DFN))

               IF DFN'=+DFN

                   QUIT

               Begin DoDot:1

 +13               IF $GET(BGPDESGP)

                       SET P=$$DP(DFN)

                       IF P'=BGPDESGP

                           QUIT

 +14               IF '$DATA(^DPT(DFN,0))

                       QUIT

 +15               IF $PIECE($GET(^DPT(DFN,0)),U)["DEMO,PATIENT"

                       QUIT

 +16               IF $PIECE($GET(^BGPSITE(DUZ(2),0)),U,12)

                       IF $DATA(^DIBT($PIECE(^BGPSITE(DUZ(2),0),U,12),1,DFN))

                           QUIT

 +17               DO PROCCY

                   DO PROCPY

                   DO PROCBY

               End DoDot:1

N         ;

 +1        SET BGPET=$HOROLOG

 +2        QUIT

 +3       ;

PROCCY    ;EP - current time period

 +1        IF '$DATA(^DPT(DFN,0))

               QUIT

 +2        IF $PIECE(^DPT(DFN,0),U,2)=""

               QUIT

 +3        IF "FM"'[$PIECE(^DPT(DFN,0),U,2)

               QUIT

 +4        SET BGPBDATE=BGPBD

           SET BGPEDATE=BGPED

           SET BGPTIME=1

 +5        SET BGP365=BGPBDATE

 +6        SET BGPACTUP=$$ACTUPAP(DFN,BGP3YE,BGPEDATE,BGPBEN)

 +7        IF 'BGPACTUP

               IF '$GET(BGPXPXPX)

                   IF '$GET(BGPIISO)

                       QUIT

 +8       ;active clinical

           SET BGPACTCL=$$ACTCL(DFN,BGP3YE,BGPEDATE)

 +9        SET BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 +10       SET BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 +11       SET BGPSEX=$PIECE(^DPT(DFN,0),U,2)

 +12      ;if in scheduling option, everyone is user pop/active clinical

           IF $GET(BGPIISO)=1

               SET BGPACTUP=1

               SET BGPACTCL=1

 +13       SET BGPMUTF="C"

 +14       DO CALCMEAS

 +15       QUIT

PROCPY    ;

 +1        IF '$DATA(^DPT(DFN,0))

               QUIT

 +2        IF $PIECE(^DPT(DFN,0),U,2)=""

               QUIT

 +3        IF "FM"'[$PIECE(^DPT(DFN,0),U,2)

               QUIT

 +4        SET BGPBDATE=BGPPBD

           SET BGPEDATE=BGPPED

           SET BGPTIME=2

 +5        SET BGP365=BGPBDATE

 +6        SET BGPACTUP=$$ACTUPAP(DFN,BGPB3YE,BGPEDATE,BGPBEN)

 +7       ;if not in user pop, don't use patient

           IF 'BGPACTUP

               QUIT

 +8       ;active clinical

           SET BGPACTCL=$$ACTCL(DFN,BGPB3YE,BGPEDATE)

 +9        SET BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 +10       SET BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 +11       SET BGPSEX=$PIECE(^DPT(DFN,0),U,2)

 +12       SET BGPMUTF="P"

 +13       DO CALCMEAS

 +14       QUIT

PROCBY    ;

 +1        IF '$DATA(^DPT(DFN,0))

               QUIT

 +2        IF $PIECE(^DPT(DFN,0),U,2)=""

               QUIT

 +3        IF "FM"'[$PIECE(^DPT(DFN,0),U,2)

               QUIT

 +4        SET BGPBDATE=BGPBBD

           SET BGPEDATE=BGPBED

           SET BGPTIME=3

 +5        SET BGP365=BGPBDATE

 +6        SET BGPACTUP=$$ACTUPAP(DFN,BGPB3YE,BGPEDATE,BGPBEN)

 +7       ;if not in user pop, don't use patient

           IF 'BGPACTUP

               QUIT

 +8       ;active clinical

           SET BGPACTCL=$$ACTCL(DFN,BGPB3YE,BGPEDATE)

 +9        SET BGPAGEB=$$AGE^AUPNPAT(DFN,BGPBDATE)

 +10       SET BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)

 +11       SET BGPSEX=$PIECE(^DPT(DFN,0),U,2)

 +12       SET BGPMUTF="B"

 +13       DO CALCMEAS

 +14       QUIT

CALCMEAS  ;

 +1        DO CALCMEAS^BGPMUDCI

 +2        QUIT

V2(P,BDATE,EDATE) ;EP

 +1        NEW A,B,X,G,V

 +2        IF '$DATA(^AUPNVSIT("AC",P))

               QUIT ""

 +3        KILL ^TMP($JOB,"A")

 +4        SET A="^TMP($J,""A"","

           SET B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE)

           SET E=$$START1^APCLDF(B,A)

 +5        IF '$DATA(^TMP($JOB,"A",1))

               QUIT ""

 +6        SET (X,G)=0

FOR

               SET X=$ORDER(^TMP($JOB,"A",X))

               IF X'=+X!(G>2)

                   QUIT

               SET V=$PIECE(^TMP($JOB,"A",X),U,5)

               Begin DoDot:1

 +7                IF '$DATA(^AUPNVSIT(V,0))

                       QUIT

 +8                IF '$PIECE(^AUPNVSIT(V,0),U,9)

                       QUIT

 +9                IF $PIECE(^AUPNVSIT(V,0),U,11)

                       QUIT

 +10               IF "SAHO"'[$PIECE(^AUPNVSIT(V,0),U,7)

                       QUIT

 +11               IF "V"[$PIECE(^AUPNVSIT(V,0),U,3)

                       QUIT

 +12               IF $PIECE(^AUPNVSIT(V,0),U,6)=""

                       QUIT

 +13               SET G=G+1

 +14               QUIT

               End DoDot:1

 +15       QUIT $SELECT(G<2:"",1:1)

 +16      ;

ACTUPAP(P,BDATE,EDATE,B) ;EP - is this patient in user pop?

 +1       ;must be Indian/Alaskan Native

           IF B=1

               IF $$BEN^AUPNPAT(P,"C")'="01"

                   QUIT 0

 +2       ;must not be I/A

           IF B=2

               IF $$BEN^AUPNPAT(P,"C")="01"

                   QUIT 0

 +3        SET DOD=$$DOD^AUPNPAT(P)

           IF DOD]""

               IF DOD<EDATE

                   QUIT 0

 +4        QUIT 1

 +5       ;

ACTCL(P,BDATE,EDATE) ;EP - clinical user

 +1        NEW X,G,F,S,V,B

 +2        SET (X,G,F,S)=0

FOR

               SET X=$ORDER(^TMP($JOB,"A",X))

               IF X'=+X!(F)

                   QUIT

               SET V=$PIECE(^TMP($JOB,"A",X),U,5)

               Begin DoDot:1

 +3                IF '$DATA(^AUPNVSIT(V,0))

                       QUIT

 +4                IF '$PIECE(^AUPNVSIT(V,0),U,9)

                       QUIT

 +5                IF $PIECE(^AUPNVSIT(V,0),U,11)

                       QUIT

 +6                IF '$DATA(^AUPNVPRV("AD",V))

                       QUIT

 +7                IF "SAHO"'[$PIECE(^AUPNVSIT(V,0),U,7)

                       QUIT

 +8                IF "V"[$PIECE(^AUPNVSIT(V,0),U,3)

                       QUIT

 +9                IF $PIECE(^AUPNVSIT(V,0),U,6)=""

                       QUIT

 +10               SET B=$$CLINIC^APCLV(V,"C")

 +11               IF B=""

                       QUIT

 +12               IF G

                       IF S

                           SET F=1

 +13               QUIT

               End DoDot:1

 +14       QUIT $SELECT(F:1,1:0)

 +15      ;

LASTVD(P,BDATE,EDATE) ;

 +1        NEW A,B,V,X,G

 +2        IF '$DATA(^AUPNVSIT("AC",P))

               QUIT ""

 +3        KILL ^TMP($JOB,"A")

 +4        SET A="^TMP($J,""A"","

           SET B=P_"^ALL VISITS;DURING "_$$FMTE^XLFDT(BDATE)_"-"_$$FMTE^XLFDT(EDATE)

           SET E=$$START1^APCLDF(B,A)

 +5        IF '$DATA(^TMP($JOB,"A",1))

               QUIT ""

 +6        SET (X,G)=0

FOR

               SET X=$ORDER(^TMP($JOB,"A",X))

               IF X'=+X!(G)

                   QUIT

               SET V=$PIECE(^TMP($JOB,"A",X),U,5)

               Begin DoDot:1

 +7                IF '$DATA(^AUPNVSIT(V,0))

                       QUIT

 +8                IF '$PIECE(^AUPNVSIT(V,0),U,9)

                       QUIT

 +9                IF $PIECE(^AUPNVSIT(V,0),U,11)

                       QUIT

 +10               IF '$DATA(^AUPNVPRV("AD",V))

                       QUIT

 +11               IF "SAHO"'[$PIECE(^AUPNVSIT(V,0),U,7)

                       QUIT

 +12               IF "V"[$PIECE(^AUPNVSIT(V,0),U,3)

                       QUIT

 +13               IF $PIECE(^AUPNVSIT(V,0),U,6)=""

                       QUIT

 +14               SET G=1

 +15               QUIT

               End DoDot:1

 +16       QUIT G

 +17      ;

LOINC(A,B) ;

 +1        NEW %

 +2        SET %=$PIECE($GET(^LAB(95.3,A,9999999)),U,2)

 +3        IF %]""

               IF $DATA(^ATXAX(B,21,"B",%))

                   QUIT 1

 +4        SET %=$PIECE($GET(^LAB(95.3,A,0)),U)_"-"_$PIECE($GET(^LAB(95.3,A,0)),U,15)

 +5        IF $DATA(^ATXAX(B,21,"B",%))

               QUIT 1

 +6        QUIT ""

DP(P)     ;

 +1        IF $PIECE(^AUPNPAT(P,0),U,14)

               QUIT $PIECE(^AUPNPAT(P,0),U,14)

 +2        IF $TEXT(ALLDP^BDPAPI)=""

               QUIT ""

 +3        NEW X

 +4        DO ALLDP^BDPAPI(P,"DESIGNATED PRIMARY PROVIDER",.X)

 +5        QUIT $PIECE($GET(X("DESIGNATED PRIMARY PROVIDER")),U,2)

 +6       ;

BQI(BQIGREF,BGPPROV) ;PEP - iCARE

 +1       ; Input parameters

 +2       ; BQIGREF = Global reference to store data

 +3       ; BGPPROV = Provider IEN

 +4        IF BQIGREF=""

               QUIT

 +5        NEW BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 +6        SET BGPBT=$HOROLOG

 +7        DO JRNL^BGPMUUTL

 +8        SET BGPJ=$JOB

           SET BGPH=$HOROLOG

 +9        SET BGPCHWC=0

 +10      ; not sure if I need this Timestamp stuff or if it should be Provider Specific

           KILL ^XTMP("BGPMUEP",BGPJ,BGPH)

 +11       DO XTMP^BGPMUUTL("BGPMUEP","Meaningful Use EP Report")

 +12      ;calculate 3 years before end of each time frame

 +13       SET BGP3YE=$$FMADD^XLFDT(BGPED,-1096)

 +14       SET BGPB3YE=$$FMADD^XLFDT(BGPBED,-1096)

 +15      ;process each patient

 +16       SET DFN=0

FOR

               SET DFN=$ORDER(^AUPNPAT(DFN))

               IF DFN'=+DFN

                   QUIT

               Begin DoDot:1

 +17               IF '$DATA(^DPT(DFN,0))

                       QUIT

 +18               IF $PIECE($GET(^DPT(DFN,0)),U)["DEMO,PATIENT"

                       QUIT

 +19               IF $PIECE($GET(^BGPSITE(DUZ(2),0)),U,12)

                       IF $DATA(^DIBT($PIECE(^BGPSITE(DUZ(2),0),U,12),1,DFN))

                           QUIT

 +20               KILL BGPICARE

 +21               DO PROCCY

 +22               IF $GET(BGPPBD)'=""

                       DO PROCPY

 +23      ;Move patient data for all requested measures from array to the passed in global reference

 +24      ;  BGPICARE(INDICATOR_ID,Timeframe)=Denom Flag ^ Num Flag ^ Excl Flag ^ Denom disp ; Num disp ^ Excl disp

 +25               SET BGPIMEAS=""

 +26               FOR

                       SET BGPIMEAS=$ORDER(BGPICARE(BGPIMEAS))

                       IF BGPIMEAS=""

                           QUIT

                       Begin DoDot:2

 +27                       SET BGPMUTF=""

 +28                       FOR

                               SET BGPMUTF=$ORDER(BGPICARE(BGPIMEAS,BGPMUTF))

                               IF BGPMUTF=""

                                   QUIT

                               Begin DoDot:3

 +29                               SET BGPIDATA=$GET(BGPICARE(BGPIMEAS,BGPMUTF))

 +30      ;Lookup indicator ID

 +31                               SET BGPIIEN=$ORDER(^BGPMUIND(90596.11,"C",BGPIMEAS,0))

 +32      ;Store into global - ONLY if measure ID exists

 +33                               IF BGPIIEN'=""

                                       SET @BQIGREF@(BGPPROV,DFN,BGPMUTF,BGPIIEN)=BGPIDATA

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +34       DO BQIKILL

 +35       KILL BGPICARE,BGPIMEAS,BGPUMTF,BGPIIEN,BGPIDATA

 +36       QUIT

BQIKILL   ; TEMPORARY Subroutine to kill off ^TMP globals created by running measure evals without printing

 +1       ;This routine should be removed once a better system for killing off ^TMP globals has been implemented

 +2        KILL ^TMP("BGPMU0001",$JOB)

 +3        KILL ^TMP("BGPMU0002",$JOB)

 +4        KILL ^TMP("BGPMU0004",$JOB)

 +5        KILL ^TMP("BGPMU0012",$JOB)

 +6        KILL ^TMP("BGPMU0013",$JOB)

 +7        KILL ^TMP("BGPMU0014",$JOB)

 +8        KILL ^TMP("BGPMU0018",$JOB)

 +9        KILL ^TMP("BGPMU0024",$JOB)

 +10       KILL ^TMP("BGPMU0027",$JOB)

 +11       KILL ^TMP("BGPMU0028A",$JOB)

 +12       KILL ^TMP("BGPMU0028B",$JOB)

 +13       KILL ^TMP("BGPMU0031",$JOB)

 +14       KILL ^TMP("BGPMU0032",$JOB)

 +15       KILL ^TMP("BGPMU0033",$JOB)

 +16       KILL ^TMP("BGPMU0034",$JOB)

 +17       KILL ^TMP("BGPMU0036",$JOB)

 +18       KILL ^TMP("BGPMU0038",$JOB)

 +19       KILL ^TMP("BGPMU0041",$JOB)

 +20       KILL ^TMP("BGPMU0043",$JOB)

 +21       KILL ^TMP("BGPMU0047",$JOB)

 +22       KILL ^TMP("BGPMU0052",$JOB)

 +23       KILL ^TMP("BGPMU0055",$JOB)

 +24       KILL ^TMP("BGPMU0056",$JOB)

 +25       KILL ^TMP("BGPMU0059",$JOB)

 +26       KILL ^TMP("BGPMU0061",$JOB)

 +27       KILL ^TMP("BGPMU0062",$JOB)

 +28       KILL ^TMP("BGPMU0064",$JOB)

 +29       KILL ^TMP("BGPMU0067",$JOB)

 +30       KILL ^TMP("BGPMU0068",$JOB)

 +31       KILL ^TMP("BGPMU0070",$JOB)

 +32       KILL ^TMP("BGPMU0073",$JOB)

 +33       KILL ^TMP("BGPMU0074",$JOB)

 +34       KILL ^TMP("BGPMU0075",$JOB)

 +35       KILL ^TMP("BGPMU0081",$JOB)

 +36       KILL ^TMP("BGPMU0083",$JOB)

 +37       KILL ^TMP("BGPMU0084",$JOB)

 +38       KILL ^TMP("BGPMU0086",$JOB)

 +39       KILL ^TMP("BGPMU0088",$JOB)

 +40       KILL ^TMP("BGPMU0089",$JOB)

 +41       KILL ^TMP("BGPMU0105",$JOB)

 +42       KILL ^TMP("BGPMU0385",$JOB)

 +43       KILL ^TMP("BGPMU0387",$JOB)

 +44       KILL ^TMP("BGPMU0389",$JOB)

 +45       KILL ^TMP("BGPMU0421",$JOB)

 +46       KILL ^TMP("BGPMU0575",$JOB)

 +47       QUIT

BGPMUEPD.m