BGPMUF01.m

BGPMUF01 ;IHS/MSC/MMT - MU Reports Measure NQF0038 ;02-Mar-2011 11:37;DU

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

 ;

ENTRY ;EP

 N START,END,BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12

 N BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12

 N IEN,INV,VISIT,WTIEN,DATA,VDATE,BGPSIX,FIRST,VIEN,EXCEPT

 N BGPIVAL,BGPPTDOB,BGPPTDOB,BGPBDAY2

 S (BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12)=0

 S (BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12)=0

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

 ;Pts must have turned 2 years old during the measurement period

 I '(BGPAGEB=1) Q

 I '(BGPAGEE=2) Q

 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)

 ..;Quit if the visit does not have a valid E&M code

 ..S AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU CIMM ENCOUNTER EM")

 ..S BENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU BMI ENC PEDS DX")  ;borrowing taxonomy from Peds BMI

 ..Q:(AENC=0)&(BENC=0)

 ..S DATA=$G(^AUPNVSIT(IEN,0))

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

 ..;This pt qualifies to be counted in the denominator

 ..S BGPDEN1=1_U_"EN:"_$$DATE^BGPMUUTL(VDATE)

 ..Q

 ;Quit if patient will not be in denominator

 I 'BGPDEN1 G EXIT

 ;Calculate the day before the patient's 2nd birthday

 S BGPPTDOB=$$DOB^AUPNPAT(DFN),BGPBDAY2=($E(BGPPTDOB,1,3)+2)_$E(BGPPTDOB,4,7),BGPBDAY2=$$FMADD^XLFDT(BGPBDAY2,-1)

 ;Num 1 - at least 4 DTaP

 S BGPIVAL=$$DTAP^BGP0D34(DFN,BGPBDAY2)  ;1 IS had immunizations, 3 is had refusal, 4 is disease or NMI or contraindication

 I $P(BGPIVAL,U,1)=1 S BGPNUM1=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC1=BGPIVAL

 ;Num 2 - at least 3 IPV

 S BGPIVAL=$$OPV^BGP0D33(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM2=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC2=BGPIVAL

 ;Num 3 - MMR

 S BGPIVAL=$$MMR^BGP0D33(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM3=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC3=BGPIVAL

 ;Num 4 - at least 2 HiB

 S BGPIVAL=$$HIB^BGP0D35(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM4=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC4=BGPIVAL

 ;Num 5 - at least 3 Hepatitis B

 S BGPIVAL=$$HEP^BGP0D35(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM5=BGPIVAL_" B"

 I $P(BGPIVAL,U,1)>1 S BGPEXC5=BGPIVAL

 ;Num 6 - VZV

 S BGPIVAL=$$VAR^BGP0D35(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM6=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC6=BGPIVAL

 ;Num 7 - at least 4 Pneumococcal

 S BGPIVAL=$$PNEUMO^BGP0D35(DFN,BGPBDAY2,4)

 I $P(BGPIVAL,U,1)=1 S BGPNUM7=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC7=BGPIVAL

 ;Num 8 - at least 2 Hepatitis A - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 S BGPIVAL=$$HEPA^BGPMUF02(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM8=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC8=BGPIVAL

 ;Num 9 - at least 2 Rotavirus - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 S BGPIVAL=$$ROTA^BGPMUF02(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM9=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC9=BGPIVAL

 ;Num 10 - at least 2 Influenza - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 S BGPIVAL=$$FLU^BGPMUF02(DFN,BGPBDAY2)

 I $P(BGPIVAL,U,1)=1 S BGPNUM10=BGPIVAL

 I $P(BGPIVAL,U,1)>1 S BGPEXC10=BGPIVAL

 ;Num 11 - pt is TRUE for 1, 2, 3, 4, 5, 6

 I +BGPNUM1,+BGPNUM2,+BGPNUM3,+BGPNUM4,+BGPNUM5,+BGPNUM6 S BGPNUM11=1_U_"4:3:1:3:3:1"

 I +BGPEXC1!+BGPEXC2!+BGPEXC3!+BGPEXC4!+BGPEXC5!+BGPEXC6 S BGPEXC11=1

 ;Num 12 - pt is TRUE for 1, 2, 3, 4, 5, 6, 7

 I BGPNUM1,+BGPNUM2,+BGPNUM3,+BGPNUM4,+BGPNUM5,+BGPNUM6,+BGPNUM7 S BGPNUM12=1_U_"4:3:1:3:3:1:4"

 I BGPEXC1!+BGPEXC2!+BGPEXC3!+BGPEXC4!+BGPEXC5!+BGPEXC6!+BGPEXC7 S BGPEXC12=1

EXIT I BGPDEN1 D TOTALS

 K START,END,BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12

 K BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12

 K IEN,INV,VISIT,WTIEN,DATA,VDATE,BGPSIX,FIRST,VIEN,EXCEPT

 K BGPIVAL,BGPPTDOB,BGPPTDOB

 Q

TOTALS ;

 ;each numerator will need to maintain it's own denominator count and if the patient is in the exclusion list

 ;  for a numerator, they should not be added to the denominator count for the numerator

 N TOTALS,BGPI,BGPNVAL,BGPXVAL

 N EXC1CT,EXC2CT,EXC3CT,EXC4CT,EXC5CT,EXC6CT,EXC7CT,EXC8CT,EXC9CT,EXC10CT,EXC11CT,EXC12CT

 N DEN1CT,DEN2CT,DEN3CT,DEN4CT,DEN5CT,DEN6CT,DEN7CT,DEN8CT,DEN9CT,DEN10CT,DEN11CT,DEN12CT

 N NUM1CT,NUM2CT,NUM3CT,NUM4CT,NUM5CT,NUM6CT,NUM7CT,NUM8CT,NUM9CT,NUM10CT,NUM11CT,NUM12CT

 S EXCEPT=""

 ;total patients evaluated

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

 ;exclusion counts

 F BGPI=1:1:12 S @("EXC"_BGPI_"CT")=+$G(^TMP("BGPMU0038",$J,BGPMUTF,"EXC",BGPI))

 ;denominator counts

 F BGPI=1:1:12 S @("DEN"_BGPI_"CT")=+$G(^TMP("BGPMU0038",$J,BGPMUTF,"DEN",BGPI))

 ;numerator counts

 F BGPI=1:1:12 S @("NUM"_BGPI_"CT")=+$G(^TMP("BGPMU0038",$J,BGPMUTF,"NUM",BGPI))

 ;increment appropriate counters and maintain patient lists

 I +BGPNUM1 D

 .S NUM1CT=NUM1CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",1,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM1,U,2)

 I 'BGPEXC1 S DEN1CT=DEN1CT+1

 I +BGPEXC1 D

 .S EXC1CT=EXC1CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",1,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM1,'BGPEXC1 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",1,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM1,U,2)

 I +BGPNUM2 D

 .S NUM2CT=NUM2CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",2,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM2,U,2)

 I 'BGPEXC2 S DEN2CT=DEN2CT+1

 I +BGPEXC2 D

 .S EXC2CT=EXC2CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",2,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM2,'BGPEXC2 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",2,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM2,U,2)

 I 'BGPEXC3 S DEN3CT=DEN3CT+1

 I +BGPNUM3 D

 .S NUM3CT=NUM3CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",3,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM3,U,2)

 I +BGPEXC3 D

 .S EXC3CT=EXC3CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",3,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM3,'BGPEXC3 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",3,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM3,U,2)

 I +BGPNUM4 D

 .S NUM4CT=NUM4CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",4,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM4,U,2)

 I 'BGPEXC4 S DEN4CT=DEN4CT+1

 I +BGPEXC4 D

 .S EXC4CT=EXC4CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",4,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM4,'BGPEXC4 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",4,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM4,U,2)

 I +BGPNUM5 D

 .S NUM5CT=NUM5CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",5,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM5,U,2)

 I 'BGPEXC5 S DEN5CT=DEN5CT+1

 I +BGPEXC5 D

 .S EXC5CT=EXC5CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",5,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM5,'BGPEXC5 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",5,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM5,U,2)

 I +BGPNUM6 D

 .S NUM6CT=NUM6CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",6,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM6,U,2)

 I 'BGPEXC6 S DEN6CT=DEN6CT+1

 I +BGPEXC6 D

 .S EXC6CT=EXC6CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",6,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM6,'BGPEXC6 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",6,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM6,U,2)

 I +BGPNUM7 D

 .S NUM7CT=NUM7CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",7,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM7,U,2)

 I 'BGPEXC7 S DEN7CT=DEN7CT+1

 I +BGPEXC7 D

 .S EXC7CT=EXC7CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",7,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM7,'BGPEXC7 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",7,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM7,U,2)

 I +BGPNUM8 D

 .S NUM8CT=NUM8CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",8,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM8,U,2)

 I 'BGPEXC8 S DEN8CT=DEN8CT+1

 I +BGPEXC8 D

 .S EXC8CT=EXC8CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",8,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM8,'BGPEXC8 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",8,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM8,U,2)

 I +BGPNUM9 D

 .S NUM9CT=NUM9CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",9,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM9,U,2)

 I 'BGPEXC9 S DEN9CT=DEN9CT+1

 I +BGPEXC9 D

 .S EXC9CT=EXC9CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",9,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM9,'BGPEXC9 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",9,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM9,U,2)

 I +BGPNUM10 D

 .S NUM10CT=NUM10CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",10,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM10,U,2)

 I 'BGPEXC10 S DEN10CT=DEN10CT+1

 I +BGPEXC10 D

 .S EXC10CT=EXC10CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",10,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM10,'BGPEXC10 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",10,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM10,U,2)

 I +BGPNUM11 D

 .S NUM11CT=NUM11CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",11,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM11,U,2)

 I 'BGPEXC11 S DEN11CT=DEN11CT+1

 I +BGPEXC11 D

 .S EXC11CT=EXC11CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",11,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM11,'BGPEXC11 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",11,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM11,U,2)

 I +BGPNUM12 D

 .S NUM12CT=NUM12CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","INCL",12,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM12,U,2)

 I 'BGPEXC12 S DEN12CT=DEN12CT+1

 I +BGPEXC12 D

 .S EXC12CT=EXC12CT+1

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","EXCL",12,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_"Excluded"

 I 'BGPNUM12,'BGPEXC12 D

 .S ^TMP("BGPMU0038",$J,BGPMUTF,"PAT","NOT",12,DFN)=DFN_U_$P(BGPDEN1,U,2)_U_$P(BGPNUM12,U,2)

 ;store counts back out to ^TMP global

 ;exclusion counts

 F BGPI=1:1:12 S ^TMP("BGPMU0038",$J,BGPMUTF,"EXC",BGPI)=@("EXC"_BGPI_"CT")

 ;denominator counts

 F BGPI=1:1:12 S ^TMP("BGPMU0038",$J,BGPMUTF,"DEN",BGPI)=@("DEN"_BGPI_"CT")

 ;numerator counts

 F BGPI=1:1:12 S ^TMP("BGPMU0038",$J,BGPMUTF,"NUM",BGPI)=@("NUM"_BGPI_"CT")

 ;Setup iCare array for patient

 F BGPI=1:1:12 S BGPNVAL=@("BGPNUM"_BGPI),BGPXVAL=@("BGPEXC"_BGPI),BGPICARE("MU.EP.0038."_(BGPI*2-1),BGPMUTF)='BGPXVAL_U_+BGPNVAL_U_+BGPXVAL_U_$P(BGPDEN1,U,2)_";"_$P(BGPNVAL,U,2)_U_$P(BGPXVAL,U,2)

 K TOTALS,BGPI,BGPNVAL,BGPXVAL

 K EXC1CT,EXC2CT,EXC3CT,EXC4CT,EXC5CT,EXC6CT,EXC7CT,EXC8CT,EXC9CT,EXC10CT,EXC11CT,EXC12CT

 K DEN1CT,DEN2CT,DEN3CT,DEN4CT,DEN5CT,DEN6CT,DEN7CT,DEN8CT,DEN9CT,DEN10CT,DEN11CT,DEN12CT

 K NUM1CT,NUM2CT,NUM3CT,NUM4CT,NUM5CT,NUM6CT,NUM7CT,NUM8CT,NUM9CT,NUM10CT,NUM11CT,NUM12CT

 Q

BGPMUF01  ;IHS/MSC/MMT - MU Reports Measure NQF0038 ;02-Mar-2011 11:37;DU

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

 +2       ;

ENTRY     ;EP

 +1        NEW START,END,BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12

 +2        NEW BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12

 +3        NEW IEN,INV,VISIT,WTIEN,DATA,VDATE,BGPSIX,FIRST,VIEN,EXCEPT

 +4        NEW BGPIVAL,BGPPTDOB,BGPPTDOB,BGPBDAY2

 +5        SET (BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12)=0

 +6        SET (BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12)=0

 +7        SET START=9999999-BGPBDATE

           SET END=9999999-BGPEDATE

 +8       ;Pts must have turned 2 years old during the measurement period

 +9        IF '(BGPAGEB=1)

               QUIT 

 +10       IF '(BGPAGEE=2)

               QUIT 

 +11       SET FIRST=END-0.1

           FOR 

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

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

                   QUIT 

               Begin DoDot:1

 +12               SET IEN=0

                   FOR 

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

                       IF '+IEN

                           QUIT 

                       Begin DoDot:2

 +13      ;Check provider, Only visits for chosen provider

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

                               QUIT 

 +15      ;Quit if the visit does not have a valid E&M code

 +16                       SET AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU CIMM ENCOUNTER EM")

 +17      ;borrowing taxonomy from Peds BMI

                           SET BENC=$$VSTPOV^BGPMUUT3(DFN,IEN,"BGPMU BMI ENC PEDS DX")

 +18                       IF (AENC=0)&(BENC=0)

                               QUIT 

 +19                       SET DATA=$GET(^AUPNVSIT(IEN,0))

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

                           SET VIEN=IEN

 +21      ;This pt qualifies to be counted in the denominator

 +22                       SET BGPDEN1=1_U_"EN:"_$$DATE^BGPMUUTL(VDATE)

 +23                       QUIT 

                       End DoDot:2

               End DoDot:1

 +24      ;Quit if patient will not be in denominator

 +25       IF 'BGPDEN1

               GOTO EXIT

 +26      ;Calculate the day before the patient's 2nd birthday

 +27       SET BGPPTDOB=$$DOB^AUPNPAT(DFN)

           SET BGPBDAY2=($EXTRACT(BGPPTDOB,1,3)+2)_$EXTRACT(BGPPTDOB,4,7)

           SET BGPBDAY2=$$FMADD^XLFDT(BGPBDAY2,-1)

 +28      ;Num 1 - at least 4 DTaP

 +29      ;1 IS had immunizations, 3 is had refusal, 4 is disease or NMI or contraindication

           SET BGPIVAL=$$DTAP^BGP0D34(DFN,BGPBDAY2)

 +30       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM1=BGPIVAL

 +31       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC1=BGPIVAL

 +32      ;Num 2 - at least 3 IPV

 +33       SET BGPIVAL=$$OPV^BGP0D33(DFN,BGPBDAY2)

 +34       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM2=BGPIVAL

 +35       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC2=BGPIVAL

 +36      ;Num 3 - MMR

 +37       SET BGPIVAL=$$MMR^BGP0D33(DFN,BGPBDAY2)

 +38       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM3=BGPIVAL

 +39       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC3=BGPIVAL

 +40      ;Num 4 - at least 2 HiB

 +41       SET BGPIVAL=$$HIB^BGP0D35(DFN,BGPBDAY2)

 +42       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM4=BGPIVAL

 +43       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC4=BGPIVAL

 +44      ;Num 5 - at least 3 Hepatitis B

 +45       SET BGPIVAL=$$HEP^BGP0D35(DFN,BGPBDAY2)

 +46       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM5=BGPIVAL_" B"

 +47       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC5=BGPIVAL

 +48      ;Num 6 - VZV

 +49       SET BGPIVAL=$$VAR^BGP0D35(DFN,BGPBDAY2)

 +50       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM6=BGPIVAL

 +51       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC6=BGPIVAL

 +52      ;Num 7 - at least 4 Pneumococcal

 +53       SET BGPIVAL=$$PNEUMO^BGP0D35(DFN,BGPBDAY2,4)

 +54       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM7=BGPIVAL

 +55       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC7=BGPIVAL

 +56      ;Num 8 - at least 2 Hepatitis A - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 +57       SET BGPIVAL=$$HEPA^BGPMUF02(DFN,BGPBDAY2)

 +58       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM8=BGPIVAL

 +59       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC8=BGPIVAL

 +60      ;Num 9 - at least 2 Rotavirus - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 +61       SET BGPIVAL=$$ROTA^BGPMUF02(DFN,BGPBDAY2)

 +62       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM9=BGPIVAL

 +63       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC9=BGPIVAL

 +64      ;Num 10 - at least 2 Influenza - this routine looks for IMM's in the same manner as CRS but uses CVX/CPT codes from the NQF spec

 +65       SET BGPIVAL=$$FLU^BGPMUF02(DFN,BGPBDAY2)

 +66       IF $PIECE(BGPIVAL,U,1)=1

               SET BGPNUM10=BGPIVAL

 +67       IF $PIECE(BGPIVAL,U,1)>1

               SET BGPEXC10=BGPIVAL

 +68      ;Num 11 - pt is TRUE for 1, 2, 3, 4, 5, 6

 +69       IF +BGPNUM1

               IF +BGPNUM2

                   IF +BGPNUM3

                       IF +BGPNUM4

                           IF +BGPNUM5

                               IF +BGPNUM6

                                   SET BGPNUM11=1_U_"4:3:1:3:3:1"

 +70       IF +BGPEXC1!+BGPEXC2!+BGPEXC3!+BGPEXC4!+BGPEXC5!+BGPEXC6

               SET BGPEXC11=1

 +71      ;Num 12 - pt is TRUE for 1, 2, 3, 4, 5, 6, 7

 +72       IF BGPNUM1

               IF +BGPNUM2

                   IF +BGPNUM3

                       IF +BGPNUM4

                           IF +BGPNUM5

                               IF +BGPNUM6

                                   IF +BGPNUM7

                                       SET BGPNUM12=1_U_"4:3:1:3:3:1:4"

 +73       IF BGPEXC1!+BGPEXC2!+BGPEXC3!+BGPEXC4!+BGPEXC5!+BGPEXC6!+BGPEXC7

               SET BGPEXC12=1

EXIT       IF BGPDEN1

               DO TOTALS

 +1        KILL START,END,BGPDEN1,BGPNUM1,BGPNUM2,BGPNUM3,BGPNUM4,BGPNUM5,BGPNUM6,BGPNUM7,BGPNUM8,BGPNUM9,BGPNUM10,BGPNUM11,BGPNUM12

 +2        KILL BGPEXC1,BGPEXC2,BGPEXC3,BGPEXC4,BGPEXC5,BGPEXC6,BGPEXC7,BGPEXC8,BGPEXC9,BGPEXC10,BGPEXC11,BGPEXC12

 +3        KILL IEN,INV,VISIT,WTIEN,DATA,VDATE,BGPSIX,FIRST,VIEN,EXCEPT

 +4        KILL BGPIVAL,BGPPTDOB,BGPPTDOB

 +5        QUIT 

TOTALS    ;

 +1       ;each numerator will need to maintain it's own denominator count and if the patient is in the exclusion list

 +2       ;  for a numerator, they should not be added to the denominator count for the numerator

 +3        NEW TOTALS,BGPI,BGPNVAL,BGPXVAL

 +4        NEW EXC1CT,EXC2CT,EXC3CT,EXC4CT,EXC5CT,EXC6CT,EXC7CT,EXC8CT,EXC9CT,EXC10CT,EXC11CT,EXC12CT

 +5        NEW DEN1CT,DEN2CT,DEN3CT,DEN4CT,DEN5CT,DEN6CT,DEN7CT,DEN8CT,DEN9CT,DEN10CT,DEN11CT,DEN12CT

 +6        NEW NUM1CT,NUM2CT,NUM3CT,NUM4CT,NUM5CT,NUM6CT,NUM7CT,NUM8CT,NUM9CT,NUM10CT,NUM11CT,NUM12CT

 +7        SET EXCEPT=""

 +8       ;total patients evaluated

 +9        SET TOTALS=$GET(^TMP("BGPMU0038",$JOB,BGPMUTF,"TOT"))

 +10      ;exclusion counts

 +11       FOR BGPI=1:1:12

               SET @("EXC"_BGPI_"CT")=+$GET(^TMP("BGPMU0038",$JOB,BGPMUTF,"EXC",BGPI))

 +12      ;denominator counts

 +13       FOR BGPI=1:1:12

               SET @("DEN"_BGPI_"CT")=+$GET(^TMP("BGPMU0038",$JOB,BGPMUTF,"DEN",BGPI))

 +14      ;numerator counts

 +15       FOR BGPI=1:1:12

               SET @("NUM"_BGPI_"CT")=+$GET(^TMP("BGPMU0038",$JOB,BGPMUTF,"NUM",BGPI))

 +16      ;increment appropriate counters and maintain patient lists

 +17       IF +BGPNUM1

               Begin DoDot:1

 +18               SET NUM1CT=NUM1CT+1

 +19               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",1,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM1,U,2)

               End DoDot:1

 +20       IF 'BGPEXC1

               SET DEN1CT=DEN1CT+1

 +21       IF +BGPEXC1

               Begin DoDot:1

 +22               SET EXC1CT=EXC1CT+1

 +23               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",1,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +24       IF 'BGPNUM1

               IF 'BGPEXC1

                   Begin DoDot:1

 +25                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",1,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM1,U,2)

                   End DoDot:1

 +26       IF +BGPNUM2

               Begin DoDot:1

 +27               SET NUM2CT=NUM2CT+1

 +28               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",2,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM2,U,2)

               End DoDot:1

 +29       IF 'BGPEXC2

               SET DEN2CT=DEN2CT+1

 +30       IF +BGPEXC2

               Begin DoDot:1

 +31               SET EXC2CT=EXC2CT+1

 +32               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",2,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +33       IF 'BGPNUM2

               IF 'BGPEXC2

                   Begin DoDot:1

 +34                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",2,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM2,U,2)

                   End DoDot:1

 +35       IF 'BGPEXC3

               SET DEN3CT=DEN3CT+1

 +36       IF +BGPNUM3

               Begin DoDot:1

 +37               SET NUM3CT=NUM3CT+1

 +38               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",3,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM3,U,2)

               End DoDot:1

 +39       IF +BGPEXC3

               Begin DoDot:1

 +40               SET EXC3CT=EXC3CT+1

 +41               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",3,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +42       IF 'BGPNUM3

               IF 'BGPEXC3

                   Begin DoDot:1

 +43                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",3,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM3,U,2)

                   End DoDot:1

 +44       IF +BGPNUM4

               Begin DoDot:1

 +45               SET NUM4CT=NUM4CT+1

 +46               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",4,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM4,U,2)

               End DoDot:1

 +47       IF 'BGPEXC4

               SET DEN4CT=DEN4CT+1

 +48       IF +BGPEXC4

               Begin DoDot:1

 +49               SET EXC4CT=EXC4CT+1

 +50               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",4,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +51       IF 'BGPNUM4

               IF 'BGPEXC4

                   Begin DoDot:1

 +52                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",4,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM4,U,2)

                   End DoDot:1

 +53       IF +BGPNUM5

               Begin DoDot:1

 +54               SET NUM5CT=NUM5CT+1

 +55               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",5,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM5,U,2)

               End DoDot:1

 +56       IF 'BGPEXC5

               SET DEN5CT=DEN5CT+1

 +57       IF +BGPEXC5

               Begin DoDot:1

 +58               SET EXC5CT=EXC5CT+1

 +59               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",5,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +60       IF 'BGPNUM5

               IF 'BGPEXC5

                   Begin DoDot:1

 +61                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",5,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM5,U,2)

                   End DoDot:1

 +62       IF +BGPNUM6

               Begin DoDot:1

 +63               SET NUM6CT=NUM6CT+1

 +64               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",6,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM6,U,2)

               End DoDot:1

 +65       IF 'BGPEXC6

               SET DEN6CT=DEN6CT+1

 +66       IF +BGPEXC6

               Begin DoDot:1

 +67               SET EXC6CT=EXC6CT+1

 +68               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",6,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +69       IF 'BGPNUM6

               IF 'BGPEXC6

                   Begin DoDot:1

 +70                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",6,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM6,U,2)

                   End DoDot:1

 +71       IF +BGPNUM7

               Begin DoDot:1

 +72               SET NUM7CT=NUM7CT+1

 +73               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",7,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM7,U,2)

               End DoDot:1

 +74       IF 'BGPEXC7

               SET DEN7CT=DEN7CT+1

 +75       IF +BGPEXC7

               Begin DoDot:1

 +76               SET EXC7CT=EXC7CT+1

 +77               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","EXCL",7,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_"Excluded"

               End DoDot:1

 +78       IF 'BGPNUM7

               IF 'BGPEXC7

                   Begin DoDot:1

 +79                   SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","NOT",7,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM7,U,2)

                   End DoDot:1

 +80       IF +BGPNUM8

               Begin DoDot:1

 +81               SET NUM8CT=NUM8CT+1

 +82               SET ^TMP("BGPMU0038",$JOB,BGPMUTF,"PAT","INCL",8,DFN)=DFN_U_$PIECE(BGPDEN1,U,2)_U_$PIECE(BGPNUM8,U,2)