APCM25E5.m

APCM25E5 ;IHS/CMI/LAB - IHS MU; 

 ;;1.0;MU PERFORMANCE REPORTS;**7,8,9,10**;MAR 26, 2012;Build 31

 ;;;;;;Build 3

PATEDUC ;EP - CALCULATE PAT ED

 ;for each provider or for the facility find out if this

 ;patient had a visit of A, O, R, S to this provider or facility

 ;if so, then check to see if they have PAT ED LITERATURE documented anytime before end of report period

 NEW APCMP

 S (APCMD1,APCMN1)=0

 I APCMRPTT=1 D  Q

 .S APCMP=0 F  S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP  D

 ..I $D(APCMOFFV(APCMP,APCMTIME)) S F=$P(^APCM25OB(APCMIC,0),U,11) D  Q

 ...D S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not have any office visits during the EHR Reporting Period.",APCMP,APCMRPTT,APCMTIME,F,1) Q

 ..Q:'$D(APCMPEVT(APCMP))  ;no visits to this provider for this patient so don't bother, the patient is not in the denominator

 ..;Q:'$D(APCMHVTP(APCMP))

 ..D PATEDUC1

 ..Q

 I APCMRPTT=2 D

 .S APCMP=APCMFAC

 .Q:'$D(APCMHVTP(APCMP))

 .D PATEDUC1

 .Q

 Q

PATEDUC1 ;

 ;set denominator value into field

 S F=$P(^APCM25OB(APCMIC,0),U,8)  ;denom field for this measure

 D S^APCM25E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)

 ;numerator?

 S APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))

 ;S APCMEP=$$HASED(DFN,APCMBDAT,DT)

 ;S APCMEP=$$HASED(DFN,$$FMADD^XLFDT(APCMBDAT,-365),DT)

 ;I APCMRPTT=2 S APCMEP=$$HASEDH(DFN,APCMBDAT,APCMEDAT,APCMFAC,.APCMVSTS)

 NEW B

 S B=$E(APCMBDAT,1,3)_"0101"

 ;S APCMEP=$$HASED(DFN,B,DT)  ;IHS/CMI/LAB - PATCH 9 06/06/2017

 S APCMNEDV=DT  ;ALL YEARS

 ;I $G(APCMEDUD),APCMEDUD>DT S APCMNEDV=DT

 ;I $G(APCMEDUD),APCMEDUD'>DT S APCMNEDV=APCMEDUD

 I $G(APCMEDUD) S APCMNEDV=APCMEDUD

 S APCMEP=$$HASED(DFN,B,APCMNEDV)

 S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)

 S F=$P(^APCM25OB(APCMIC,0),U,9)

 D S^APCM25E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)

 ;S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)

 D SETLIST^APCM25E1

 Q

 ;

HASED(P,BD,ED) ;does patient have Patient Ed -L

 ;

 NEW A,B,C,D,E,PED,Y,EDUC,X,T,I

 S C=0

 S PED=""

 S Y="EDUC("

 S X=P_"^ALL EDUC;DURING "_$$FMTE^XLFDT(BD)_"-"_$$FMTE^XLFDT(ED) S E=$$START1^APCLDF(X,Y)

 I '$D(EDUC(1)) Q ""

 S (X,D)=0,%="",T="" F  S X=$O(EDUC(X)) Q:X'=+X!(PED]"")  D

 .S I=+$P(EDUC(X),U,4)

 .S A=$P($$VALI^XBDIQ1(9000010.16,I,1216),".")

 .Q:A>ED

 .S T=$P(^AUPNVPED(+$P(EDUC(X),U,4),0),U)

 .Q:'T

 .Q:'$D(^AUTTEDT(T,0))

 .S T=$P(^AUTTEDT(T,0),U,2)

 .I $P(T,"-",2)="L" S PED=1_U_T_" on "_$$DATE^APCM1UTL($S(A]"":A,1:$P(EDUC(X),U))) Q

 Q PED

HASMMR(V) ;does patient have a m-mr ON this visit in v updated/reviewed

 ;

 NEW X,Y,Z

 S Z=""

 S X=0 F  S X=$O(^AUPNVRUP("AD",V,X)) Q:X'=+X!(Z)  D

 .S Y=0 F  S Y=$O(^AUPNVRUP(X,26,Y)) Q:Y'=+Y!(Z)  D

 ..I $P($G(^AUPNVRUP(X,26,Y,0)),U,1)=428191000124101 S Z=1

 Q Z

PR ;EP - patient reminders

 ;if patinet seen 2 or more times in 24 months prior to bd and still alive on last day of reporting period

 ;exclude deceased, and inactive charts

 ;if so, then check to see if they have icare notice ocumented any time before end of report period

 NEW APCMP

 S (APCMD1,APCMN1)=0

 I APCMRPTT=1 S APCMP=0 F  S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP  D

 .I $D(APCM25BR(APCMP)) S F=$P(^APCM25OB(APCMIC,0),U,11) D  Q

 ..D S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as the EP did not have any office visits in 24 months before report period.",APCMP,APCMRPTT,APCMTIME,F,1) Q

 .;set denominator value into field

 .S G=0

PR1 .;IS CHART ACTIVE OR DECEASED

 .S X=$$DOD^AUPNPAT(DFN)

 .I X,X'>APCMEDAT Q

 .Q:'$O(^AUPNPAT(DFN,41,0))  ;no charts

 .S X=$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,3)

 .I X,X'>APCMEDAT Q

 .;2 visits w/EP in 24 months before EHR reporting period?

 .Q:'$$HADV(DFN,APCMP,$$FMADD^XLFDT(APCMBD,-(24*30.5)),$$FMADD^XLFDT(APCMBD,-1))  ;DIDN'T HAVE 2 VISITS

 .S F=$P(^APCM25OB(APCMIC,0),U,8)  ;denom field for this measure

 .D S^APCM25E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)

 .S APCMVALU=""

 .;numerator?

 .S APCMEP=$$HASRM(DFN,APCMBDAT,APCMEDAT)

 .S APCMVALU="|||"_"NOTIFICATION: "_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)

 .S F=$P(^APCM25OB(APCMIC,0),U,9)

 .D S^APCM25E1(APCMRPT,APCMIC,$P(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)

 .D SETLIST^APCM25E1

 Q

HADV(P,R,BD,ED) ;EP - had visit of A, O, R, S with provider R in time frame BD-ED

 ;PATCH 1 excludes ER and case management clinics

 ;patch 1 provider must be primary only

 ; so, in summary, the patient must have at least 1 A,O,R,M, non-ER, non-case man visit

 ; where this provider is the primary provider

 I '$G(P) Q ""

 I '$G(R) Q ""

 I '$G(BD) Q ""

 I '$G(ED) Q ""

 I '$D(^AUPNPAT(P,0)) Q ""

 I '$D(^VA(200,R,0)) Q ""

 NEW V,X,Y,G,VSTS

 D ALLV^APCLAPIU(P,BD,ED,"VSTS")

 S G=0

 S X=0 F  S X=$O(VSTS(X)) Q:X'=+X!(G>1)  D

 .S V=$P(VSTS(X),U,5)

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

 .I $P(^AUPNVSIT(V,0),U,11) Q  ;deleted

 .I "AOSM"'[$P(^AUPNVSIT(V,0),U,7) Q  ;not correct service category

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

 .I C=30 Q  ;no ER per Carmen patch 1

 .I C=77 Q  ;no case management clinic 77 per Chris

 .I C=76 Q  ;no lab

 .I C=63 Q  ;no radiology

 .I C=39 Q  ;no pharmacy

 .S Y=$$PRIMPROV^APCLV(V,"I")

 .I 'Y Q

 .I Y'=R Q  ;not this provider

 .S G=G+1

 I G>1 Q 1  ;2 or more?

 Q 0

 ;

HASRM(P,BD,ED) ;

 ;

 NEW A,B,C,NOTIF,N

 S NOTIF=""

 S A=0 F  S A=$O(^BQI(90509.4,"B",P,A)) Q:A'=+A!(NOTIF)  D

 .S N=$G(^BQI(90509.4,A,0))

 .I N="" Q  ;BAD XREF

 .S B=$P($P(N,U,4),".")

 .Q:B<BD  ;before time period

 .Q:B>ED  ;after time period

 .S C=$P(N,U,2)  ;preferred method

 .I C="" S NOTIF=1_U_$$GET1^DIQ(90509.4,A,.09)_" "_$$FMTE^XLFDT(B) Q

 .I C'=$P(N,U,3)  ;preferred doesn't match notificaton type so don't count it

 .S NOTIF=1_U_$$GET1^DIQ(90509.4,A,.09)_" "_$$FMTE^XLFDT(B)

 Q NOTIF

SC ;EP - TRANSITION OF CARE SUMMARY

 G SC^APCM25E0  ;NEW FOR PATCH 8, KEEP OLD LOGIC IN CASE NEED TO REVERT

 ;for each provider count each Visit that HAS a v referral

 K ^TMP($J,"TRANS")

 NEW APCMLABS,MMR

 D TOCSUMC

 NEW APCMP,N,F,O,Y

 S (APCMD1,APCMN1)=0

 I APCMRPTT=1 S APCMP=0 F  S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP  D

 .I $P($G(MMR(APCMP)),U,1)<100 D

 ..S F=$P(^APCM25OB(APCMIC,0),U,11) D S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she had less than 1 referrals during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)

 .S F=$P(^APCM25OB(APCMIC,0),U,8)  ;denom field for this measure

 .S N=$P($G(MMR(APCMP)),U,1)  ;returns # of transS^# with mmr

 .D S^APCM25E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)

 .;now set patient list for this provider

 .S P=0 F  S P=$O(^TMP($J,"TRANS",APCMP,P)) Q:P'=+P  D

 ..I $P(^TMP($J,"TRANS",APCMP,P),U,1)=$P(^TMP($J,"TRANS",APCMP,P),U,2) S APCMVALU="# referrals: "_$P(^TMP($J,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$P(^TMP($J,"TRANS",APCMP,P),U,2)_" "_$P(^TMP($J,"TRANS",APCMP,P),U,3)_"|||1" D  Q

 ...S DFN=P D SETLIST^APCM25E1 Q

 ..S DFN=P,APCMVALU="# referrals: "_$P(^TMP($J,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$P(^TMP($J,"TRANS",APCMP,P),U,2)_" "_$P(^TMP($J,"TRANS",APCMP,P),U,3)_"|||0" D SETLIST^APCM25E1

 .S Y=APCMIC

 .S F=$P(^APCM25OB(Y,0),U,9)

 .S N=$P($G(MMR(APCMP)),U,2)

 .D S^APCM25E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)

 I APCMRPTT=2 S APCMP=APCMFAC  D

 .;I '$P($G(MMR(APCMP)),U,1) D  Q

 .;.S F=$P(^APCM25OB(APCMIC,0),U,11) D S^APCM25E1(APCMRPT,APCMIC,"Facility is excluded from this measure as there were no referrals during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)

 .;set denominator value into field FOR measure 1

 .S F=$P(^APCM25OB(APCMIC,0),U,8)  ;denom field for this measure

 .S N=$P($G(MMR(APCMP)),U,1)  ;returns # of transS^# with mmr

 .D S^APCM25E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)

 .;now set patient list for this provider

 .S P=0 F  S P=$O(^TMP($J,"TRANS",APCMP,P)) Q:P'=+P  D

 ..I $P(^TMP($J,"TRANS",APCMP,P),U,1)=$P(^TMP($J,"TRANS",APCMP,P),U,2) S APCMVALU="# referrals: "_$P(^TMP($J,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$P(^TMP($J,"TRANS",APCMP,P),U,2)_" "_$P(^TMP($J,"TRANS",APCMP,P),U,3)_"|||1" D  Q

 ...S DFN=P D SETLIST^APCM25E1 Q

 ..S DFN=P,APCMVALU="# referrals: "_$P(^TMP($J,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$P(^TMP($J,"TRANS",APCMP,P),U,2)_" "_$P(^TMP($J,"TRANS",APCMP,P),U,3)_"|||0" D SETLIST^APCM25E1

 .;numerator?

 .;NOW SET VALUES FOR NUMERATOR

 .S Y=APCMIC

 .;S F=$P(^APCM25OB(Y,0),U,8) D S^APCM25E1(APCMRPT,Y,$P($G(MMR(APCMP)),U,1),APCMP,APCMRPTT,APCMTIME,F)

 .S F=$P(^APCM25OB(Y,0),U,9)

 .S N=$P($G(MMR(APCMP)),U,2)

 .D S^APCM25E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)

 K ^TMP($J,"TRANS")

 Q

TOCSUMC ;EP - ep toc

 ;SET ARRAY MMR to MMR(prov ien)=denom^numer

 ;DENOM=# VISITS W/REFERRAL

 ;NUMER=# W/TOC DOCUMENT IN 600 MULTIPLE

 ;IF DENOM =0 THEN PROVIDER EXCLUSION

 NEW T,C,PAT,N,APCMX,R,C,G,Z,S,B,E,J,K

 S C=0,N=0,PAT=""

 S T=$O(^APCMMUCN("B","MODIFIED STAGE 2 2015",0))

 ;GO THROUGH EACH PATIENT WHO HAS VISITS

 S PAT=0 F  S PAT=$O(^AUPNVSIT("AA",PAT)) Q:PAT'=+PAT  D TOCSUMC1

 Q

TOCSUMC1 ;

 NEW APCMLAB

 S APCMLAB="APCMLAB"

 D ALLV^APCLAPIU(PAT,APCMBDAT,APCMEDAT,APCMLAB)  ;get all visits for this patient in time period

 S APCMX=0 F  S APCMX=$O(APCMLAB(APCMX)) Q:APCMX'=+APCMX  D

 .S V=$P(APCMLAB(APCMX),U,5)  ;VISIT IEN

 .Q:'$D(^AUPNVSIT(V,0))  ;NO VISIT??

 .I APCMRPTT=2,APCMMETH="E" Q:'$$HOSER^APCM25E6(V,APCMFAC)  S R=APCMFAC G TOCS2

 .I APCMRPTT=2,APCMMETH="O" Q:"OH"'[$P(^AUPNVSIT(V,0),U,7)  Q:$P(^AUPNVSIT(V,0),U,6)'=APCMFAC  S R=APCMFAC G TOCS2

 .S R=$$PRIMPROV^APCLV(V,"I")  ;primary provider IEN

 .Q:'R

 .I '$D(APCMPRV(R)) Q  ;not a provider of interest for this report

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

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

 .Q:C=30

 .Q:C=77

 .Q:C=76

 .Q:C=63

 .Q:C=39

TOCS2 .;IS THERE A V REFERAL THAT MEETS DENOM DEFINITION

 .S Z=0 F  S Z=$O(^AUPNVREF("AD",V,Z)) Q:Z'=+Z  D

 ..Q:'$D(^AUPNVREF(Z,0))  ;??

 ..S S=$P(^AUPNVREF(Z,0),U,6)  ;REFERRAL IEN

 ..Q:'S  ;no referral??

 ..Q:'$D(^BMCREF(S,0))  ;bad pointer

 ..Q:$P(^BMCREF(S,0),U,4)="N"  ;NO INHOUSE

 ..S D=$P($G(^BMCREF(S,13)),U,5)  ;approval date

 ..Q:D=""  ;NO APPROVAL DATE

 ..Q:D>APCMEDAT  ;AFTER TP

 ..Q:D<APCMBDAT  ;BEFORE TP

 ..Q:$$VAL^XBDIQ1(90001,S,.13)="DIAGNOSTIC IMAGING"

 ..Q:$$VAL^XBDIQ1(90001,S,.13)="PATHOLOGY AND LABORATORY"

 ..Q:$$VAL^XBDIQ1(90001,S,.13)="TRANSPORTATION"

 ..Q:$$VAL^XBDIQ1(90001,S,.13)="DURABLE MEDICAL EQUIPMENT"

SUMNUM ..;

 ..I '$D(MMR(R)) S MMR(R)=""

 ..S $P(MMR(R),U,1)=$P(MMR(R),U,1)+1 D

 ...S $P(^TMP($J,"TRANS",R,PAT),U,1)=$P($G(^TMP($J,"TRANS",R,PAT)),U,1)+1

 ...S $P(^TMP($J,"TRANS",R,PAT),U,3)=$P(^TMP($J,"TRANS",R,PAT),U,3)_" "_$$VD^APCLV(V,"S")_"-"_$P(^BMCREF(S,0),U,2)

 ..;now check numerator, FIELD 600

 ..S G=0,T=0

 ..;FIRST LOOK FOR A TX AND ACKNOWLEDGED IF FOUND, USE IT

 ..;NEXT LOOK FOR A TX, IF FOUND, USE IT

 ..S B=0 F  S B=$O(^BMCREF(S,6,B)) Q:B'=+B!(G)  D

 ...S (A,E)=""

 ...I $P(^BMCREF(S,6,B,0),U,4)'="CT" Q

 ...S E=$P($P(^BMCREF(S,6,B,0),U,1),".")

 ...I E="" Q  ;NO .01

 ...S M=$$CD(E,APCMBD)

 ...I 'M Q  ;NOT IN REPORTING YEAR

 ...;I 'M S E=$P($P(^BMCREF(S,6,B,0),U,1),".") S M=$$CD(E) Q:'M  ;dates aren't good

 ...S A=$P($P(^BMCREF(S,6,B,0),U,3),".")  ;tx acknowledged

 ...I A,$$CD(A,APCMBD) D SN S G=1

 Q

SN ;

 S $P(MMR(R),U,2)=$P(MMR(R),U,2)+1 D  Q

 .S $P(^TMP($J,"TRANS",R,PAT),U,2)=$P($G(^TMP($J,"TRANS",R,PAT)),U,2)+1

 .S $P(^TMP($J,"TRANS",R,PAT),U,3)=$P(^TMP($J,"TRANS",R,PAT),U,3)_";YES TX AND ACK"

 .;S $P(MMR(R),U,5)=$P(MMR(R),U,5)+1

 Q

CD(E,BD) ;

 I E="" Q 0  ;NO DATE TRANSMITTED

 NEW %

 S %=$E(BD,1,3)_"0101"

 I $P(E,".")<% Q 0

 Q 1

APCM25E5  ;IHS/CMI/LAB - IHS MU; 

 +1       ;;1.0;MU PERFORMANCE REPORTS;**7,8,9,10**;MAR 26, 2012;Build 31

 +2       ;;;;;;Build 3

PATEDUC   ;EP - CALCULATE PAT ED

 +1       ;for each provider or for the facility find out if this

 +2       ;patient had a visit of A, O, R, S to this provider or facility

 +3       ;if so, then check to see if they have PAT ED LITERATURE documented anytime before end of report period

 +4        NEW APCMP

 +5        SET (APCMD1,APCMN1)=0

 +6        IF APCMRPTT=1

               Begin DoDot:1

 +7                SET APCMP=0

                   FOR 

                       SET APCMP=$ORDER(APCMPRV(APCMP))

                       IF APCMP'=+APCMP

                           QUIT 

                       Begin DoDot:2

 +8                        IF $DATA(APCMOFFV(APCMP,APCMTIME))

                               SET F=$PIECE(^APCM25OB(APCMIC,0),U,11)

                               Begin DoDot:3

 +9                                DO S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she did not have any office visits during the EHR Reporting Period.",APCMP,APCMRPTT,APCMTIME,F,1)

                                   QUIT 

                               End DoDot:3

                               QUIT 

 +10      ;no visits to this provider for this patient so don't bother, the patient is not in the denominator

                           IF '$DATA(APCMPEVT(APCMP))

                               QUIT 

 +11      ;Q:'$D(APCMHVTP(APCMP))

 +12                       DO PATEDUC1

 +13                       QUIT 

                       End DoDot:2

               End DoDot:1

               QUIT 

 +14       IF APCMRPTT=2

               Begin DoDot:1

 +15               SET APCMP=APCMFAC

 +16               IF '$DATA(APCMHVTP(APCMP))

                       QUIT 

 +17               DO PATEDUC1

 +18               QUIT 

               End DoDot:1

 +19       QUIT 

PATEDUC1  ;

 +1       ;set denominator value into field

 +2       ;denom field for this measure

           SET F=$PIECE(^APCM25OB(APCMIC,0),U,8)

 +3        DO S^APCM25E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)

 +4       ;numerator?

 +5        SET APCMVALU="VISIT: "_$$DATE^APCM1UTL(APCMHVTP(APCMP))

 +6       ;S APCMEP=$$HASED(DFN,APCMBDAT,DT)

 +7       ;S APCMEP=$$HASED(DFN,$$FMADD^XLFDT(APCMBDAT,-365),DT)

 +8       ;I APCMRPTT=2 S APCMEP=$$HASEDH(DFN,APCMBDAT,APCMEDAT,APCMFAC,.APCMVSTS)

 +9        NEW B

 +10       SET B=$EXTRACT(APCMBDAT,1,3)_"0101"

 +11      ;S APCMEP=$$HASED(DFN,B,DT)  ;IHS/CMI/LAB - PATCH 9 06/06/2017

 +12      ;ALL YEARS

           SET APCMNEDV=DT

 +13      ;I $G(APCMEDUD),APCMEDUD>DT S APCMNEDV=DT

 +14      ;I $G(APCMEDUD),APCMEDUD'>DT S APCMNEDV=APCMEDUD

 +15       IF $GET(APCMEDUD)

               SET APCMNEDV=APCMEDUD

 +16       SET APCMEP=$$HASED(DFN,B,APCMNEDV)

 +17       SET APCMVALU=APCMVALU_"|||"_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)

 +18       SET F=$PIECE(^APCM25OB(APCMIC,0),U,9)

 +19       DO S^APCM25E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)

 +20      ;S APCMVALU=APCMVALU_"|||"_$P(APCMEP,U,2)_"|||"_$P(APCMEP,U,1)

 +21       DO SETLIST^APCM25E1

 +22       QUIT 

 +23      ;

HASED(P,BD,ED) ;does patient have Patient Ed -L

 +1       ;

 +2        NEW A,B,C,D,E,PED,Y,EDUC,X,T,I

 +3        SET C=0

 +4        SET PED=""

 +5        SET Y="EDUC("

 +6        SET X=P_"^ALL EDUC;DURING "_$$FMTE^XLFDT(BD)_"-"_$$FMTE^XLFDT(ED)

           SET E=$$START1^APCLDF(X,Y)

 +7        IF '$DATA(EDUC(1))

               QUIT ""

 +8        SET (X,D)=0

           SET %=""

           SET T=""

           FOR 

               SET X=$ORDER(EDUC(X))

               IF X'=+X!(PED]"")

                   QUIT 

               Begin DoDot:1

 +9                SET I=+$PIECE(EDUC(X),U,4)

 +10               SET A=$PIECE($$VALI^XBDIQ1(9000010.16,I,1216),".")

 +11               IF A>ED

                       QUIT 

 +12               SET T=$PIECE(^AUPNVPED(+$PIECE(EDUC(X),U,4),0),U)

 +13               IF 'T

                       QUIT 

 +14               IF '$DATA(^AUTTEDT(T,0))

                       QUIT 

 +15               SET T=$PIECE(^AUTTEDT(T,0),U,2)

 +16               IF $PIECE(T,"-",2)="L"

                       SET PED=1_U_T_" on "_$$DATE^APCM1UTL($SELECT(A]"":A,1:$PIECE(EDUC(X),U)))

                       QUIT 

               End DoDot:1

 +17       QUIT PED

HASMMR(V) ;does patient have a m-mr ON this visit in v updated/reviewed

 +1       ;

 +2        NEW X,Y,Z

 +3        SET Z=""

 +4        SET X=0

           FOR 

               SET X=$ORDER(^AUPNVRUP("AD",V,X))

               IF X'=+X!(Z)

                   QUIT 

               Begin DoDot:1

 +5                SET Y=0

                   FOR 

                       SET Y=$ORDER(^AUPNVRUP(X,26,Y))

                       IF Y'=+Y!(Z)

                           QUIT 

                       Begin DoDot:2

 +6                        IF $PIECE($GET(^AUPNVRUP(X,26,Y,0)),U,1)=428191000124101

                               SET Z=1

                       End DoDot:2

               End DoDot:1

 +7        QUIT Z

PR        ;EP - patient reminders

 +1       ;if patinet seen 2 or more times in 24 months prior to bd and still alive on last day of reporting period

 +2       ;exclude deceased, and inactive charts

 +3       ;if so, then check to see if they have icare notice ocumented any time before end of report period

 +4        NEW APCMP

 +5        SET (APCMD1,APCMN1)=0

 +6        IF APCMRPTT=1

               SET APCMP=0

               FOR 

                   SET APCMP=$ORDER(APCMPRV(APCMP))

                   IF APCMP'=+APCMP

                       QUIT 

                   Begin DoDot:1

 +7                    IF $DATA(APCM25BR(APCMP))

                           SET F=$PIECE(^APCM25OB(APCMIC,0),U,11)

                           Begin DoDot:2

 +8                            DO S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as the EP did not have any office visits in 24 months before report period.",APCMP,APCMRPTT,APCMTIME,F,1)

                               QUIT 

                           End DoDot:2

                           QUIT 

 +9       ;set denominator value into field

 +10                   SET G=0

PR1       ;IS CHART ACTIVE OR DECEASED

 +1                    SET X=$$DOD^AUPNPAT(DFN)

 +2                    IF X

                           IF X'>APCMEDAT

                               QUIT 

 +3       ;no charts

                       IF '$ORDER(^AUPNPAT(DFN,41,0))

                           QUIT 

 +4                    SET X=$PIECE($GET(^AUPNPAT(DFN,41,DUZ(2),0)),U,3)

 +5                    IF X

                           IF X'>APCMEDAT

                               QUIT 

 +6       ;2 visits w/EP in 24 months before EHR reporting period?

 +7       ;DIDN'T HAVE 2 VISITS

                       IF '$$HADV(DFN,APCMP,$$FMADD^XLFDT(APCMBD,-(24*30.5)),$$FMADD^XLFDT(APCMBD,-1))

                           QUIT 

 +8       ;denom field for this measure

                       SET F=$PIECE(^APCM25OB(APCMIC,0),U,8)

 +9                    DO S^APCM25E1(APCMRPT,APCMIC,1,APCMP,APCMRPTT,APCMTIME,F)

 +10                   SET APCMVALU=""

 +11      ;numerator?

 +12                   SET APCMEP=$$HASRM(DFN,APCMBDAT,APCMEDAT)

 +13                   SET APCMVALU="|||"_"NOTIFICATION: "_$PIECE(APCMEP,U,2)_"|||"_$PIECE(APCMEP,U,1)

 +14                   SET F=$PIECE(^APCM25OB(APCMIC,0),U,9)

 +15                   DO S^APCM25E1(APCMRPT,APCMIC,$PIECE(APCMEP,U,1),APCMP,APCMRPTT,APCMTIME,F)

 +16                   DO SETLIST^APCM25E1

                   End DoDot:1

 +17       QUIT 

HADV(P,R,BD,ED) ;EP - had visit of A, O, R, S with provider R in time frame BD-ED

 +1       ;PATCH 1 excludes ER and case management clinics

 +2       ;patch 1 provider must be primary only

 +3       ; so, in summary, the patient must have at least 1 A,O,R,M, non-ER, non-case man visit

 +4       ; where this provider is the primary provider

 +5        IF '$GET(P)

               QUIT ""

 +6        IF '$GET(R)

               QUIT ""

 +7        IF '$GET(BD)

               QUIT ""

 +8        IF '$GET(ED)

               QUIT ""

 +9        IF '$DATA(^AUPNPAT(P,0))

               QUIT ""

 +10       IF '$DATA(^VA(200,R,0))

               QUIT ""

 +11       NEW V,X,Y,G,VSTS

 +12       DO ALLV^APCLAPIU(P,BD,ED,"VSTS")

 +13       SET G=0

 +14       SET X=0

           FOR 

               SET X=$ORDER(VSTS(X))

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

                   QUIT 

               Begin DoDot:1

 +15               SET V=$PIECE(VSTS(X),U,5)

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

                       QUIT 

 +17      ;deleted

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

                       QUIT 

 +18      ;not correct service category

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

                       QUIT 

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

 +20      ;no ER per Carmen patch 1

                   IF C=30

                       QUIT 

 +21      ;no case management clinic 77 per Chris

                   IF C=77

                       QUIT 

 +22      ;no lab

                   IF C=76

                       QUIT 

 +23      ;no radiology

                   IF C=63

                       QUIT 

 +24      ;no pharmacy

                   IF C=39

                       QUIT 

 +25               SET Y=$$PRIMPROV^APCLV(V,"I")

 +26               IF 'Y

                       QUIT 

 +27      ;not this provider

                   IF Y'=R

                       QUIT 

 +28               SET G=G+1

               End DoDot:1

 +29      ;2 or more?

           IF G>1

               QUIT 1

 +30       QUIT 0

 +31      ;

HASRM(P,BD,ED) ;

 +1       ;

 +2        NEW A,B,C,NOTIF,N

 +3        SET NOTIF=""

 +4        SET A=0

           FOR 

               SET A=$ORDER(^BQI(90509.4,"B",P,A))

               IF A'=+A!(NOTIF)

                   QUIT 

               Begin DoDot:1

 +5                SET N=$GET(^BQI(90509.4,A,0))

 +6       ;BAD XREF

                   IF N=""

                       QUIT 

 +7                SET B=$PIECE($PIECE(N,U,4),".")

 +8       ;before time period

                   IF B<BD

                       QUIT 

 +9       ;after time period

                   IF B>ED

                       QUIT 

 +10      ;preferred method

                   SET C=$PIECE(N,U,2)

 +11               IF C=""

                       SET NOTIF=1_U_$$GET1^DIQ(90509.4,A,.09)_" "_$$FMTE^XLFDT(B)

                       QUIT 

 +12      ;preferred doesn't match notificaton type so don't count it

                   IF C'=$PIECE(N,U,3)

 +13               SET NOTIF=1_U_$$GET1^DIQ(90509.4,A,.09)_" "_$$FMTE^XLFDT(B)

               End DoDot:1

 +14       QUIT NOTIF

SC        ;EP - TRANSITION OF CARE SUMMARY

 +1       ;NEW FOR PATCH 8, KEEP OLD LOGIC IN CASE NEED TO REVERT

           GOTO SC^APCM25E0

 +2       ;for each provider count each Visit that HAS a v referral

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

 +4        NEW APCMLABS,MMR

 +5        DO TOCSUMC

 +6        NEW APCMP,N,F,O,Y

 +7        SET (APCMD1,APCMN1)=0

 +8        IF APCMRPTT=1

               SET APCMP=0

               FOR 

                   SET APCMP=$ORDER(APCMPRV(APCMP))

                   IF APCMP'=+APCMP

                       QUIT 

                   Begin DoDot:1

 +9                    IF $PIECE($GET(MMR(APCMP)),U,1)<100

                           Begin DoDot:2

 +10                           SET F=$PIECE(^APCM25OB(APCMIC,0),U,11)

                               DO S^APCM25E1(APCMRPT,APCMIC,"Provider is excluded from this measure as he/she had less than 1 referrals during the EHR reporting period.",APCMP,APCMRPTT,APCMTIME,F,1)

                           End DoDot:2

 +11      ;denom field for this measure

                       SET F=$PIECE(^APCM25OB(APCMIC,0),U,8)

 +12      ;returns # of transS^# with mmr

                       SET N=$PIECE($GET(MMR(APCMP)),U,1)

 +13                   DO S^APCM25E1(APCMRPT,APCMIC,N,APCMP,APCMRPTT,APCMTIME,F)

 +14      ;now set patient list for this provider

 +15                   SET P=0

                       FOR 

                           SET P=$ORDER(^TMP($JOB,"TRANS",APCMP,P))

                           IF P'=+P

                               QUIT 

                           Begin DoDot:2

 +16                           IF $PIECE(^TMP($JOB,"TRANS",APCMP,P),U,1)=$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,2)

                                   SET APCMVALU="# referrals: "_$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,2)_" "_$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,3)_"|||1"

                                   Begin DoDot:3

 +17                                   SET DFN=P

                                       DO SETLIST^APCM25E1

                                       QUIT 

                                   End DoDot:3

                                   QUIT 

 +18                           SET DFN=P

                               SET APCMVALU="# referrals: "_$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,1)_"|||"_" # w/TOCS: "_+$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,2)_" "_$PIECE(^TMP($JOB,"TRANS",APCMP,P),U,3)_"|||0"