BGPMUA09.m

BGPMUA09 ; IHS/MSC/MGH - MI measure NQF0062 & NQF0064 ;25-Jul-2011 08:19;DU

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

 ;Code to collect meaningful use reports

ENTRY1 ;EP Entry point for NQA0062 for nephropathy

 N START,END,BGPNUM,BGPDEN,BGPNUM,STRING,BGPHYPER,BGPHYPL

 N IEN,INV,VISIT,DATA,VDATE,VALUE,EXCEPT,FIRST,VIEN,EXCEPT,RESULT

 N CNT,DIAB,NUM,EXC,DIAB,OUTENC,OPHENC,NONENC,VENC,DIABDX,ERENC,INENC

 S (BGPDEN,BGPNUM,RESULT)=0

 S START=9999999-BGPBDATE,END=9999999-BGPEDATE,VALUE=0

 S START=START_".2359"

 S (STRING,STRING2)="",DIABDX=0

 S (DIAB,EXC,NUM)=0

 ;Pts must be >18 and <75

 ;No need to check further if no age match

 Q:BGPAGEE<18!(BGPAGEE>75)

 S CNT=0

 S FIRST=END-0.1 F  S FIRST=$O(^AUPNVSIT("AA",DFN,FIRST)) Q:FIRST=""!($P(FIRST,".",1)>START)  D

 .S IEN=0 F  S IEN=$O(^AUPNVSIT("AA",DFN,FIRST,IEN)) Q:'+IEN  D

 ..;Check provider, Only visits for chosen provider

 ..Q:'$$PRV^BGPMUUT1(IEN,BGPPROV)

 ..S OUTENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER OUTPT")

 ..I +OUTENC D VSTSTORE Q

 ..S OPHENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU OPTHAMOLOGY CPTS")

 ..I +OPHENC D VSTSTORE Q

 ..S NONENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU NON-ACUTE INPT CPT")

 ..I +NONENC D VSTSTORE Q

 ..S INENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ACUTE INPT ENC")

 ..I +INENC D VSTSTORE Q

 ..S ERENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU DIAB ED ENCOUNTER CPT")

 ..I +ERENC D VSTSTORE Q

 ..S VENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU ENC OUTPATIENT ICD")

 ..I +VENC D VSTSTORE Q

 ;Next check to see if the patient is in the denominator

 ;Denominator is that the pt had a diabetes medicine

 ;in the last 2 years or a DX of diabetes in the last 2 years along with

 ;one inpt visit or 2 or more outpt visits

 S DIAB=$$DIAB^BGPMUA06(DFN,BGPBDATE,BGPEDATE,CNT,DIABDX)

 I +DIAB D

 .;If the patient is diabetetic, check to see if they are in the numerator

 .S NUM=$$NUM1(DFN,BGPBDATE,BGPEDATE)

 .;If not in the numerator,see if they are an exception

 .I +NUM=0&(+DIAB=2) S EXC=$$EXCEPT^BGPMUA06(DFN,BGPBDATE,BGPEDATE,DIABDX)

 .D TOTAL1(DFN,DIAB,NUM,EXC)

 Q

VSTSTORE ;Store compliant visit in array

 S CNT=CNT+1

 S VDATE=$P($G(^AUPNVSIT(IEN,0)),U,1)

 S VIEN(CNT)=IEN_U_VDATE

 S STRING(CNT)=$$DATE^BGPMUUTL(VDATE)

 Q

TOTAL1(DFN,DIAB,NUM,EXC) ;See where this patient ends up

 N PTCNT,EXCCT,DENCT,NUMCT,NOTNUM,TOTALS,DXTIME,DEN

 S TOTALS=$G(^TMP("BGPMU0062",$J,BGPMUTF,"TOT"))

 S DENCT=+$G(^TMP("BGPMU0062",$J,BGPMUTF,"DEN"))

 S NUMCT=+$G(^TMP("BGPMU0062",$J,BGPMUTF,"NUM"))

 S EXCCT=+$G(^TMP("BGPMU0062",$J,BGPMUTF,"EXC"))

 S NOTNUM=+$G(^TMP("BGPMU0062",$J,BGPMUTF,"NOT"))

 S PTCNT=TOTALS

 S PTCNT=PTCNT+1

 S (DEN,DXTIME)=""

 S DENCT=DENCT+1 S ^TMP("BGPMU0062",$J,BGPMUTF,"DEN")=DENCT

 I $P(DIAB,U,3)'="" S DXTIME=$$DATE^BGPMUUTL($P(DIAB,U,3))

 S DEN=$P(DIAB,U,2)_" "_DXTIME

 I $D(STRING(1)) S DEN=DEN_";EN:"_STRING(1)

 I $D(STRING(2)) S DEN=DEN_";EN:"_STRING(2)

 I +EXC D

 .S EXCCT=EXCCT+1 S ^TMP("BGPMU0062",$J,BGPMUTF,"EXC")=EXCCT

 .I BGPMUTF="C" S ^TMP("BGPMU0062",$J,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_DEN_U_"EXCLUDE"

 I +NUM D

 .S NUMCT=NUMCT+1 S ^TMP("BGPMU0062",$J,BGPMUTF,"NUM")=NUMCT

 .I BGPMUTF="C" S ^TMP("BGPMU0062",$J,"PAT",BGPMUTF,"NUM",PTCNT)=DFN_U_DEN_U_"M:"_$P(NUM,U,2)_";"_$P(NUM,U,3)

 I +NUM=0&(EXC=0) D

 .S NOTNUM=NOTNUM+1 S ^TMP("BGPMU0062",$J,BGPMUTF,"NOT")=NOTNUM

 .I BGPMUTF="C" S ^TMP("BGPMU0062",$J,"PAT",BGPMUTF,"NOT",PTCNT)=DFN_U_DEN_U_"NM:"_$P(NUM,U,2)_";"_$P(NUM,U,3)

 S ^TMP("BGPMU0062",$J,BGPMUTF,"TOT")=PTCNT

 ;Setup iCare array for patient

 S BGPICARE("MU.EP.0062.1",BGPMUTF)=1_U_+NUM_U_+EXC_U_DEN_";"_$P(NUM,U,2)_";"_$P(NUM,U,3)

 Q

NUM1(DFN,BGPBDATE,BGPEDATE) ;Look for wide range of items to satisfy this measure

 N FOUND,YR1,YR2,HGBA1C,DATA,IEN,RESULT,TAX,NEPHDX,NEPHDX2,NEPCPT,NEPICD0,ACE,ARB

 N LABIEN,MICRO,VAL,VAL2,DATA2,RESULT2,SCREEN,NEPHDX

 S FOUND=0

 ;Set date 1yr before end

 N X1,X2,X S X1=BGPEDATE,X2=-365 D C^%DTC S YR1=X

 ;First check for DX of nephropathy

 S NEPHDX=$$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPHROPATHY DX")

 I +NEPHDX S FOUND=1_U_$P(NEPHDX,U,2)_U_$P(NEPHDX,U,3) Q FOUND

 S NEPHDX2=$$PLTAX^BGPMUUT1(DFN,"BGPMU DIAB NEPHROPATHY DX","A",BGPEDATE)

 I +NEPHDX2 S FOUND=1_U_$P(NEPHDX2,U,2)_U_$P(NEPHDX2,U,3) Q FOUND

 ;Second, check for nephropathy procedures

 S NEPCPT=$$CPT^BGPMUUT1(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPH PROC CPT")

 I +NEPCPT S FOUND=1_U_$P(NEPCPT,U,2)_U_$P(NEPCPT,U,3) Q FOUND

 S NEPICD0=$$LASTPRC^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPH PROC ICD0")

 I +NEPICD0 S FOUND=1_U_$P(NEPICD0,U,2)_U_$P(NEPICD0,U,3) Q FOUND

 ;Third check to see if the patient is on an ACE/ARB

 S ACE=$$FIND^BGPMUUT8(DFN,"BGPMU ACE INHIBITOR NDC",BGPBDATE,"",BGPEDATE)

 I +ACE S FOUND=1_U_"ACE"_U_$P(ACE,U,3) Q FOUND

 S ARB=$$FIND^BGPMUUT8(DFN,"BGPMU ARB NDCS",BGPBDATE,"",BGPEDATE)

 I +ARB S FOUND=1_U_"ARB"_U_$P(ARB,U,3) Q FOUND

 ;Fourth check for microalbumin

 S MICRO=$$CPT^BGPMUUT1(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB MICRO CPT")

 I +MICRO S FOUND=1_U_$P(MICRO,U,2)_U_$P(MICRO,U,3) Q FOUND

 S TAX="BGPMU LAB CPT MICRO"

 D LABCPT^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 S VAL="" S VAL=$O(DATA(VAL))

 I +VAL D

 .S RESULT=$G(DATA(VAL))

 .I +RESULT>0 S FOUND=1_U_"ACR"_U_(9999999-VAL)

 E  D

 .S TAX="BGPMU LAB LOINC MICROALBUMIN"

 .D LAB^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 .S VAL="" S VAL=$O(DATA(VAL))

 .I VAL="" S FOUND=$$VLAB^BGPMUA08(DFN,BGPBDATE,BGPEDATE,TAX)

 .E  D

 ..S RESULT=$G(DATA(VAL))

 ..I +RESULT>0 S FOUND=1_U_"ACR"_U_(9999999-VAL)

 I +FOUND Q FOUND

 ;Fifth check for nephropathy screening

 S SCREEN=$$CPT^BGPMUUT1(DFN,YR1,BGPEDATE,"BGPMU DIAB NEPH SCREEN CPT")

 I +SCREEN S FOUND=1_U_$P(SCREEN,U,2)_U_$P(SCREEN,U,3) Q FOUND

 S TAX="BGPMU LAB CPT NEPH"

 D LABCPT^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 S VAL="" S VAL=$O(DATA(VAL))

 I +VAL D

 .S RESULT=$G(DATA(VAL))

 .I +RESULT>0 S FOUND=1_U_"NEP"_U_(9999999-VAL)

 E  D

 .S TAX="BGPMU LAB LOINC NEPHROPATHY"

 .D LAB^BGPMUUT5(.DATA2,DFN,TAX,BGPBDATE,BGPEDATE)

 .S VAL2="" S VAL2=$O(DATA2(VAL2))

 .I VAL2="" S FOUND=$$VLAB(DFN,BGPBDATE,BGPEDATE,TAX)

 .E  D

 ..S RESULT2=$G(DATA2(VAL2))

 ..I +RESULT2 S FOUND=1_U_"NEP"_U_(9999999-VAL2)

 Q FOUND

VLAB(DFN,BGPBDATE,BGPEDATE,TAX) ;get lab results

 N VLAB,LABVAL,LIEN

 S LABVAL=0

 S VLAB=$$LOINC^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,TAX)

 I VLAB D

 .S LIEN=$P(VLAB,U,2)

 .S LABVAL=1_U_$P($G(^AUPNVLAB(LIEN,0)),U,4)_U_$P(VLAB,U,1)

 Q LABVAL

ENTRY2 ;EP  Entry point for NQA0064 for LDL<100

 N START,END,BGPNUM,BGPDEN,BGPNUM,AENC,BENC,STRING,STRING2

 N IEN,INV,VISIT,DATA,VDATE,VALUE,EXCEPT,FIRST,VIEN,EXCEPT,RESULT,INENC

 N CNT,DIAB,EXC,NUM1,NUM2,DIAB,OUTENC,OPHENC,NONENC,VENC,DIABDX,ERENC

 S (BGPDEN,BGPNUM,RESULT)=0

 S START=9999999-BGPBDATE,END=9999999-BGPEDATE,VALUE=0

 S START=START_".2359"

 S (STRING,STRING2)="",DIABDX=0

 S (DIAB,EXC,NUM)=0

 ;Pts must be >18 and <75

 ;No need to check further if no age match

 Q:BGPAGEE<18!(BGPAGEE>75)

 S CNT=0

 S FIRST=END-0.1 F  S FIRST=$O(^AUPNVSIT("AA",DFN,FIRST)) Q:FIRST=""!($P(FIRST,".",1)>START)  D

 .S IEN=0 F  S IEN=$O(^AUPNVSIT("AA",DFN,FIRST,IEN)) Q:'+IEN  D

 ..;Check provider, Only visits for chosen provider

 ..Q:'$$PRV^BGPMUUT1(IEN,BGPPROV)

 ..S OUTENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER OUTPT")

 ..I +OUTENC D VSTSTORE Q

 ..S OPHENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU OPTHAMOLOGY CPTS")

 ..I +OPHENC D VSTSTORE Q

 ..S NONENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU NON-ACUTE INPT CPT")

 ..I +NONENC D VSTSTORE Q

 ..S INENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ACUTE INPT ENC")

 ..I +INENC D VSTSTORE Q

 ..S ERENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU DIAB ED ENCOUNTER CPT")

 ..I +ERENC D VSTSTORE Q

 ..S VENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU ENC OUTPATIENT ICD")

 ..I +VENC D VSTSTORE Q

 ;Next check to see if the patient is in the denominator

 ;Denominator is that the pt had a diabetes medicine

 ;in the last 2 years or a DX of diabetes in the last 2 years along with

 ;one inpt visit or 2 or more outpt visits

 S DIAB=$$DIAB^BGPMUA06(DFN,BGPBDATE,BGPEDATE,CNT,DIABDX)

 I +DIAB D

 .;If the patient is diabetetic, check to see if they are in the numerator

 .S NUM=$$NUM2(DFN,BGPBDATE,BGPEDATE)

 .;If not in the numerator,see if they are an exception

 .I +NUM=0&(+DIAB=2) S EXC=$$EXCEPT^BGPMUA06(DFN,BGPBDATE,BGPEDATE,DIABDX)

 .D TOTAL2(DFN,DIAB,NUM,EXC)

 Q

TOTAL2(DFN,DIAB,NUM,EXC) ;See where this patient ends up

 N PTCNT,EXCCT,DENCT,NUM1CT,NUM2CT,NOTNUM,TOTALS,DXTIME,DEN,NOTNUM1,NOTNUM2

 S TOTALS=$G(^TMP("BGPMU0064",$J,BGPMUTF,"TOT"))

 S DENCT=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"DEN"))

 S NUM1CT=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"NUM1"))

 S NUM2CT=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"NUM2"))

 S EXCCT=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"EXC"))

 S NOTNUM1=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"NOT1"))

 S NOTNUM2=+$G(^TMP("BGPMU0064",$J,BGPMUTF,"NOT2"))

 S PTCNT=TOTALS

 S PTCNT=PTCNT+1

 S (DEN,DXTIME)=""

 S DENCT=DENCT+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"DEN")=DENCT

 I $P(DIAB,U,3)'="" S DXTIME=$$DATE^BGPMUUTL($P(DIAB,U,3))

 S DEN=$P(DIAB,U,2)_" "_DXTIME

 I $D(STRING(1)) S DEN=DEN_";EN:"_STRING(1)

 I $D(STRING(2)) S DEN=DEN_";EN:"_STRING(2)

 I +EXC D

 .S EXCCT=EXCCT+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"EXC")=EXCCT

 .I BGPMUTF="C" S ^TMP("BGPMU0064",$J,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_DEN_U_"EXCLUDE"

 I +NUM D

 .S NUM1CT=NUM1CT+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"NUM1")=NUM1CT

 .I BGPMUTF="C" S ^TMP("BGPMU0064",$J,"PAT",BGPMUTF,"NUM1",PTCNT)=DFN_U_DEN_U_"M:"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 I +NUM=0&(EXC=0) D

 .S NOTNUM1=NOTNUM1+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"NOT1")=NOTNUM1

 .I BGPMUTF="C" S ^TMP("BGPMU0064",$J,"PAT",BGPMUTF,"NOT1",PTCNT)=DFN_U_DEN_U_"NM:"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 I $P(NUM,U,2)=1 D

 .S NUM2CT=NUM2CT+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"NUM2")=NUM2CT

 .I BGPMUTF="C" S ^TMP("BGPMU0064",$J,"PAT",BGPMUTF,"NUM2",PTCNT)=DFN_U_DEN_U_"M:"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 I $P(NUM,U,2)=0&(EXC=0) D

 .S NOTNUM2=NOTNUM2+1 S ^TMP("BGPMU0064",$J,BGPMUTF,"NOT2")=NOTNUM2

 .I BGPMUTF="C" S ^TMP("BGPMU0064",$J,"PAT",BGPMUTF,"NOT2",PTCNT)=DFN_U_DEN_U_"NM:"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 S ^TMP("BGPMU0064",$J,BGPMUTF,"TOT")=PTCNT

 ;Setup iCare array for patient

 S BGPICARE("MU.EP.0064.1",BGPMUTF)=1_U_+NUM_U_+EXC_U_DEN_";"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 S BGPICARE("MU.EP.0064.2",BGPMUTF)=1_U_+$P(NUM,U,2)_U_+EXC_U_DEN_";"_$P(NUM,U,3)_";"_$P(NUM,U,4)

 Q

NUM2(DFN,BGPBDATE,BGPEDATE) ; Find the latest LDL

 N FOUND,YR1,YR2,LDL,DATA,VAL,IEN,RESULT,TAX,CPT

 S FOUND=0_U_0

 S RESULT=0

 S CPT=$$CPT^BGPMUUT1(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB LDL CPT")

 I +CPT S FOUND=1_U_0_$P(CPT,U,2)_U_$P(CPT,U,3)

 S TAX="BGPMU DIAB LDL CPT"

 D LAB^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 S VAL="" S VAL=$O(DATA(VAL))

 I +VAL D

 .S RESULT=$G(DATA(VAL))

 .I RESULT<100 S FOUND=1_U_1_U_RESULT_U_(9999999-VAL)

 .E  S FOUND=1_U_0_U_RESULT_U_(9999999-VAL)

 E  D

 .S TAX="BGPMU DIAB LDL LOINC"

 .D LAB^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 .S VAL="" S VAL=$O(DATA(VAL))

 .I VAL'="" D

 ..S RESULT=$G(DATA(VAL))

 ..I RESULT<100 S FOUND=1_U_1_U_RESULT_U_(9999999-VAL)

 ..E  S FOUND=1_U_0_U_RESULT_U_(9999999-VAL)

 .I VAL="" D

 ..S RESULT=$$VLAB2(DFN,BGPBDATE,BGPEDATE,TAX)

 ..I +RESULT S FOUND=RESULT

 Q FOUND

VLAB2(DFN,BGPBDATE,BGPEDATE,TAX) ;Get lab results

 N VLAB,LABVAL,LIEN,VAL

 S LABVAL=0

 S VLAB=$$LOINC^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,TAX)

 I +VLAB D

 .S LIEN=$P(VLAB,U,2)

 .S VAL=$P($G(^AUPNVLAB(LIEN,0)),U,4)

 .I +VAL D

 ..I VAL<100.0 S LABVAL=1_U_1_U_VAL_U_$P(VLAB,U,1)

 ..E  S LABVAL=1_U_0_U_VAL_U_$P(VLAB,U,1)

 Q LABVAL

BGPMUA09  ; IHS/MSC/MGH - MI measure NQF0062 & NQF0064 ;25-Jul-2011 08:19;DU

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

 +2       ;Code to collect meaningful use reports

ENTRY1    ;EP Entry point for NQA0062 for nephropathy

 +1        NEW START,END,BGPNUM,BGPDEN,BGPNUM,STRING,BGPHYPER,BGPHYPL

 +2        NEW IEN,INV,VISIT,DATA,VDATE,VALUE,EXCEPT,FIRST,VIEN,EXCEPT,RESULT

 +3        NEW CNT,DIAB,NUM,EXC,DIAB,OUTENC,OPHENC,NONENC,VENC,DIABDX,ERENC,INENC

 +4        SET (BGPDEN,BGPNUM,RESULT)=0

 +5        SET START=9999999-BGPBDATE

           SET END=9999999-BGPEDATE

           SET VALUE=0

 +6        SET START=START_".2359"

 +7        SET (STRING,STRING2)=""

           SET DIABDX=0

 +8        SET (DIAB,EXC,NUM)=0

 +9       ;Pts must be >18 and <75

 +10      ;No need to check further if no age match

 +11       IF BGPAGEE<18!(BGPAGEE>75)

               QUIT 

 +12       SET CNT=0

 +13       SET FIRST=END-0.1

           FOR 

               SET FIRST=$ORDER(^AUPNVSIT("AA",DFN,FIRST))

               IF FIRST=""!($PIECE(FIRST,".",1)>START)

                   QUIT 

               Begin DoDot:1

 +14               SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^AUPNVSIT("AA",DFN,FIRST,IEN))

                       IF '+IEN

                           QUIT 

                       Begin DoDot:2

 +15      ;Check provider, Only visits for chosen provider

 +16                       IF '$$PRV^BGPMUUT1(IEN,BGPPROV)

                               QUIT 

 +17                       SET OUTENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER OUTPT")

 +18                       IF +OUTENC

                               DO VSTSTORE

                               QUIT 

 +19                       SET OPHENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU OPTHAMOLOGY CPTS")

 +20                       IF +OPHENC

                               DO VSTSTORE

                               QUIT 

 +21                       SET NONENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU NON-ACUTE INPT CPT")

 +22                       IF +NONENC

                               DO VSTSTORE

                               QUIT 

 +23                       SET INENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ACUTE INPT ENC")

 +24                       IF +INENC

                               DO VSTSTORE

                               QUIT 

 +25                       SET ERENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU DIAB ED ENCOUNTER CPT")

 +26                       IF +ERENC

                               DO VSTSTORE

                               QUIT 

 +27                       SET VENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU ENC OUTPATIENT ICD")

 +28                       IF +VENC

                               DO VSTSTORE

                               QUIT 

                       End DoDot:2

               End DoDot:1

 +29      ;Next check to see if the patient is in the denominator

 +30      ;Denominator is that the pt had a diabetes medicine

 +31      ;in the last 2 years or a DX of diabetes in the last 2 years along with

 +32      ;one inpt visit or 2 or more outpt visits

 +33       SET DIAB=$$DIAB^BGPMUA06(DFN,BGPBDATE,BGPEDATE,CNT,DIABDX)

 +34       IF +DIAB

               Begin DoDot:1

 +35      ;If the patient is diabetetic, check to see if they are in the numerator

 +36               SET NUM=$$NUM1(DFN,BGPBDATE,BGPEDATE)

 +37      ;If not in the numerator,see if they are an exception

 +38               IF +NUM=0&(+DIAB=2)

                       SET EXC=$$EXCEPT^BGPMUA06(DFN,BGPBDATE,BGPEDATE,DIABDX)

 +39               DO TOTAL1(DFN,DIAB,NUM,EXC)

               End DoDot:1

 +40       QUIT 

VSTSTORE  ;Store compliant visit in array

 +1        SET CNT=CNT+1

 +2        SET VDATE=$PIECE($GET(^AUPNVSIT(IEN,0)),U,1)

 +3        SET VIEN(CNT)=IEN_U_VDATE

 +4        SET STRING(CNT)=$$DATE^BGPMUUTL(VDATE)

 +5        QUIT 

TOTAL1(DFN,DIAB,NUM,EXC) ;See where this patient ends up

 +1        NEW PTCNT,EXCCT,DENCT,NUMCT,NOTNUM,TOTALS,DXTIME,DEN

 +2        SET TOTALS=$GET(^TMP("BGPMU0062",$JOB,BGPMUTF,"TOT"))

 +3        SET DENCT=+$GET(^TMP("BGPMU0062",$JOB,BGPMUTF,"DEN"))

 +4        SET NUMCT=+$GET(^TMP("BGPMU0062",$JOB,BGPMUTF,"NUM"))

 +5        SET EXCCT=+$GET(^TMP("BGPMU0062",$JOB,BGPMUTF,"EXC"))

 +6        SET NOTNUM=+$GET(^TMP("BGPMU0062",$JOB,BGPMUTF,"NOT"))

 +7        SET PTCNT=TOTALS

 +8        SET PTCNT=PTCNT+1

 +9        SET (DEN,DXTIME)=""

 +10       SET DENCT=DENCT+1

           SET ^TMP("BGPMU0062",$JOB,BGPMUTF,"DEN")=DENCT

 +11       IF $PIECE(DIAB,U,3)'=""

               SET DXTIME=$$DATE^BGPMUUTL($PIECE(DIAB,U,3))

 +12       SET DEN=$PIECE(DIAB,U,2)_" "_DXTIME

 +13       IF $DATA(STRING(1))

               SET DEN=DEN_";EN:"_STRING(1)

 +14       IF $DATA(STRING(2))

               SET DEN=DEN_";EN:"_STRING(2)

 +15       IF +EXC

               Begin DoDot:1

 +16               SET EXCCT=EXCCT+1

                   SET ^TMP("BGPMU0062",$JOB,BGPMUTF,"EXC")=EXCCT

 +17               IF BGPMUTF="C"

                       SET ^TMP("BGPMU0062",$JOB,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_DEN_U_"EXCLUDE"

               End DoDot:1

 +18       IF +NUM

               Begin DoDot:1

 +19               SET NUMCT=NUMCT+1

                   SET ^TMP("BGPMU0062",$JOB,BGPMUTF,"NUM")=NUMCT

 +20               IF BGPMUTF="C"

                       SET ^TMP("BGPMU0062",$JOB,"PAT",BGPMUTF,"NUM",PTCNT)=DFN_U_DEN_U_"M:"_$PIECE(NUM,U,2)_";"_$PIECE(NUM,U,3)

               End DoDot:1

 +21       IF +NUM=0&(EXC=0)

               Begin DoDot:1

 +22               SET NOTNUM=NOTNUM+1

                   SET ^TMP("BGPMU0062",$JOB,BGPMUTF,"NOT")=NOTNUM

 +23               IF BGPMUTF="C"

                       SET ^TMP("BGPMU0062",$JOB,"PAT",BGPMUTF,"NOT",PTCNT)=DFN_U_DEN_U_"NM:"_$PIECE(NUM,U,2)_";"_$PIECE(NUM,U,3)

               End DoDot:1

 +24       SET ^TMP("BGPMU0062",$JOB,BGPMUTF,"TOT")=PTCNT

 +25      ;Setup iCare array for patient

 +26       SET BGPICARE("MU.EP.0062.1",BGPMUTF)=1_U_+NUM_U_+EXC_U_DEN_";"_$PIECE(NUM,U,2)_";"_$PIECE(NUM,U,3)

 +27       QUIT 

NUM1(DFN,BGPBDATE,BGPEDATE) ;Look for wide range of items to satisfy this measure

 +1        NEW FOUND,YR1,YR2,HGBA1C,DATA,IEN,RESULT,TAX,NEPHDX,NEPHDX2,NEPCPT,NEPICD0,ACE,ARB

 +2        NEW LABIEN,MICRO,VAL,VAL2,DATA2,RESULT2,SCREEN,NEPHDX

 +3        SET FOUND=0

 +4       ;Set date 1yr before end

 +5        NEW X1,X2,X

           SET X1=BGPEDATE

           SET X2=-365

           DO C^%DTC

           SET YR1=X

 +6       ;First check for DX of nephropathy

 +7        SET NEPHDX=$$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPHROPATHY DX")

 +8        IF +NEPHDX

               SET FOUND=1_U_$PIECE(NEPHDX,U,2)_U_$PIECE(NEPHDX,U,3)

               QUIT FOUND

 +9        SET NEPHDX2=$$PLTAX^BGPMUUT1(DFN,"BGPMU DIAB NEPHROPATHY DX","A",BGPEDATE)

 +10       IF +NEPHDX2

               SET FOUND=1_U_$PIECE(NEPHDX2,U,2)_U_$PIECE(NEPHDX2,U,3)

               QUIT FOUND

 +11      ;Second, check for nephropathy procedures

 +12       SET NEPCPT=$$CPT^BGPMUUT1(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPH PROC CPT")

 +13       IF +NEPCPT

               SET FOUND=1_U_$PIECE(NEPCPT,U,2)_U_$PIECE(NEPCPT,U,3)

               QUIT FOUND

 +14       SET NEPICD0=$$LASTPRC^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB NEPH PROC ICD0")

 +15       IF +NEPICD0

               SET FOUND=1_U_$PIECE(NEPICD0,U,2)_U_$PIECE(NEPICD0,U,3)

               QUIT FOUND

 +16      ;Third check to see if the patient is on an ACE/ARB

 +17       SET ACE=$$FIND^BGPMUUT8(DFN,"BGPMU ACE INHIBITOR NDC",BGPBDATE,"",BGPEDATE)

 +18       IF +ACE

               SET FOUND=1_U_"ACE"_U_$PIECE(ACE,U,3)

               QUIT FOUND

 +19       SET ARB=$$FIND^BGPMUUT8(DFN,"BGPMU ARB NDCS",BGPBDATE,"",BGPEDATE)

 +20       IF +ARB

               SET FOUND=1_U_"ARB"_U_$PIECE(ARB,U,3)

               QUIT FOUND

 +21      ;Fourth check for microalbumin

 +22       SET MICRO=$$CPT^BGPMUUT1(DFN,BGPBDATE,BGPEDATE,"BGPMU DIAB MICRO CPT")

 +23       IF +MICRO

               SET FOUND=1_U_$PIECE(MICRO,U,2)_U_$PIECE(MICRO,U,3)

               QUIT FOUND

 +24       SET TAX="BGPMU LAB CPT MICRO"

 +25       DO LABCPT^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 +26       SET VAL=""

           SET VAL=$ORDER(DATA(VAL))

 +27       IF +VAL

               Begin DoDot:1

 +28               SET RESULT=$GET(DATA(VAL))

 +29               IF +RESULT>0

                       SET FOUND=1_U_"ACR"_U_(9999999-VAL)

               End DoDot:1

 +30      IF '$TEST

               Begin DoDot:1

 +31               SET TAX="BGPMU LAB LOINC MICROALBUMIN"

 +32               DO LAB^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 +33               SET VAL=""

                   SET VAL=$ORDER(DATA(VAL))

 +34               IF VAL=""

                       SET FOUND=$$VLAB^BGPMUA08(DFN,BGPBDATE,BGPEDATE,TAX)

 +35              IF '$TEST

                       Begin DoDot:2

 +36                       SET RESULT=$GET(DATA(VAL))

 +37                       IF +RESULT>0

                               SET FOUND=1_U_"ACR"_U_(9999999-VAL)

                       End DoDot:2

               End DoDot:1

 +38       IF +FOUND

               QUIT FOUND

 +39      ;Fifth check for nephropathy screening

 +40       SET SCREEN=$$CPT^BGPMUUT1(DFN,YR1,BGPEDATE,"BGPMU DIAB NEPH SCREEN CPT")

 +41       IF +SCREEN

               SET FOUND=1_U_$PIECE(SCREEN,U,2)_U_$PIECE(SCREEN,U,3)

               QUIT FOUND

 +42       SET TAX="BGPMU LAB CPT NEPH"

 +43       DO LABCPT^BGPMUUT5(.DATA,DFN,TAX,BGPBDATE,BGPEDATE)

 +44       SET VAL=""

           SET VAL=$ORDER(DATA(VAL))

 +45       IF +VAL

               Begin DoDot:1

 +46               SET RESULT=$GET(DATA(VAL))

 +47               IF +RESULT>0

                       SET FOUND=1_U_"NEP"_U_(9999999-VAL)

               End DoDot:1

 +48      IF '$TEST

               Begin DoDot:1

 +49               SET TAX="BGPMU LAB LOINC NEPHROPATHY"

 +50               DO LAB^BGPMUUT5(.DATA2,DFN,TAX,BGPBDATE,BGPEDATE)

 +51               SET VAL2=""

                   SET VAL2=$ORDER(DATA2(VAL2))

 +52               IF VAL2=""

                       SET FOUND=$$VLAB(DFN,BGPBDATE,BGPEDATE,TAX)

 +53              IF '$TEST

                       Begin DoDot:2

 +54                       SET RESULT2=$GET(DATA2(VAL2))

 +55                       IF +RESULT2

                               SET FOUND=1_U_"NEP"_U_(9999999-VAL2)

                       End DoDot:2

               End DoDot:1

 +56       QUIT FOUND

VLAB(DFN,BGPBDATE,BGPEDATE,TAX) ;get lab results

 +1        NEW VLAB,LABVAL,LIEN

 +2        SET LABVAL=0

 +3        SET VLAB=$$LOINC^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,TAX)

 +4        IF VLAB

               Begin DoDot:1

 +5                SET LIEN=$PIECE(VLAB,U,2)

 +6                SET LABVAL=1_U_$PIECE($GET(^AUPNVLAB(LIEN,0)),U,4)_U_$PIECE(VLAB,U,1)

               End DoDot:1

 +7        QUIT LABVAL

ENTRY2    ;EP  Entry point for NQA0064 for LDL<100

 +1        NEW START,END,BGPNUM,BGPDEN,BGPNUM,AENC,BENC,STRING,STRING2

 +2        NEW IEN,INV,VISIT,DATA,VDATE,VALUE,EXCEPT,FIRST,VIEN,EXCEPT,RESULT,INENC

 +3        NEW CNT,DIAB,EXC,NUM1,NUM2,DIAB,OUTENC,OPHENC,NONENC,VENC,DIABDX,ERENC

 +4        SET (BGPDEN,BGPNUM,RESULT)=0

 +5        SET START=9999999-BGPBDATE

           SET END=9999999-BGPEDATE

           SET VALUE=0

 +6        SET START=START_".2359"

 +7        SET (STRING,STRING2)=""

           SET DIABDX=0

 +8        SET (DIAB,EXC,NUM)=0

 +9       ;Pts must be >18 and <75

 +10      ;No need to check further if no age match

 +11       IF BGPAGEE<18!(BGPAGEE>75)

               QUIT 

 +12       SET CNT=0

 +13       SET FIRST=END-0.1

           FOR 

               SET FIRST=$ORDER(^AUPNVSIT("AA",DFN,FIRST))

               IF FIRST=""!($PIECE(FIRST,".",1)>START)

                   QUIT 

               Begin DoDot:1

 +14               SET IEN=0

                   FOR 

                       SET IEN=$ORDER(^AUPNVSIT("AA",DFN,FIRST,IEN))

                       IF '+IEN

                           QUIT 

                       Begin DoDot:2

 +15      ;Check provider, Only visits for chosen provider

 +16                       IF '$$PRV^BGPMUUT1(IEN,BGPPROV)

                               QUIT 

 +17                       SET OUTENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU ENCOUNTER OUTPT")