Routine: BGPMUW01

BGPMUW01 ; IHS/MSC/AJF -Meaningful Use NQF Measure ID:0024 ;22-Mar-2011 10:08;DU

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

 ;;This program will collect information for Weight Assessment and Counseling

 ;; for Children and Adolescents

;;

ENTRY ;Get Measurement Summary for a patient given a date range and a Provider

 ;Input:

 ;BEGDT: Date to begin query for Outpatient Encounters

 ;ENDDT: Date to end query for Outpatient Encounters

 ;BGPMUTF:Time frame for this report("C"-current,"B"-baseline,"P"-previous)

 ;Output:Temp globaal of results

 N NOWDT,NOWYR,%

 D NOW^%DTC

 S NOWDT=$P(%,"."),NOWYR=$E(NOWDT,1,3),U="^"

 N VSTSDT,VSTEDT,FIRST,AGE,AGE2,AGE10,AGE16,VIEN,NOA,NOB,NOC,PCA,PCB,PCC,FINALD1,FINALD2,FINALD3,VNODE,PCPIEN,AUPNVIEN

 N DATA,VDATE,VIEN,IEN,RETVAL,CNT,PT1,PT2,AENC,BENC

 ;Counters for Numerators that DID NOT meet numerator criteria

 N NOTCA1,NOTCA2,NOTCA3,NOTCB1,NOTCB2,NOTCB3,NOTCC1,NOTCC2,NOTCC3

 N FINA,FINB,FINC,ENDDT,BEGDT

 S (NOTCA1,NOTCA2,NOTCA3,NOTCB1,NOTCB2,NOTCB3,NOTCC1,NOTCC2,NOTCC3)=0

 ;Counters for Denominators and Numerators that MEET criteria

 N POPCA,POPCB,POPCC,NUMCA1,NUMCA2,DEN,NUMCA3,NUMCB1,NUMCB2,NUMCB3,NUMCC1,NUMCC2,NUMCC3,DNOMA,DNOMB,DNOMC

 S (POPCA,POPCB,POPCC,NUMCA1,NUMCA2,NUMCA3,NUMCB1,NUMCB2,NUMCB3,NUMCC1,NUMCC2,NUMCC3,DNOMA,DNOMB,DNOMC)=0

 S AGE2=2,AGE10=10,AGE16=16,CNT=0

 S RETVAL="",VIEN=0

 S BEGDT=9999999-BGPBDATE,ENDDT=9999999-BGPEDATE

 Q:BGPAGEB<2!(BGPAGEB>16)

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

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

 ..;Check provider, Only visits for chosen provider

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

 ..;Quit if the patient has a pregnancy diagnosis

 ..I ($P(^DPT(DFN,0),U,2)="F")&($$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU PREGNANCY ALL ICD")) Q

 ..I ($P(^DPT(DFN,0),U,2)="F")&($$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU BMI PREG ENC DX")) Q

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

 ..S AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU BMI ENC PEDS EM")

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

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

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

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

 ..S DEN="EN:"_$$DATE^BGPMUUTL(VSTSDT)

 I +VIEN D

 .;Counter for the Initial Population Criteria 1

 .S VSTSDT=$P(BGPBDATE,".",1),VSTEDT=BGPEDATE

 .S POPCA=POPCA+1

.;

 .;Range A (Ages 2-16 inclusive)

 .D NUMATOR(DFN,"BGPMU 2-16",.NUMCA1,.NUMCA2,.NUMCA3,.DNOMA,.NOTCA1,VSTSDT,VSTEDT,DEN)

 .;Range B (Ages 2-10 inclusive)

 .I BGPAGEB<11 D NUMATOR(DFN,"BGPMU 2-10",.NUMCB1,.NUMCB2,.NUMCB3,.DNOMB,.NOTCB1,VSTSDT,VSTEDT,DEN)

 .;Range C (Ages 11-16 inclusive)

 .I BGPAGEB>10 D NUMATOR(DFN,"BGPMU 11-16",.NUMCC1,.NUMCC2,.NUMCC3,.DNOMC,.NOTCC1,VSTSDT,VSTEDT,DEN)

.;

 .;Summary calculations

 .S FINA=$G(^TMP("BGPMU 2-16",$J,BGPMUTF,"POPULATION"))

 .S FINB=$G(^TMP("BGPMU 2-10",$J,BGPMUTF,"POPULATION"))

 .S FINC=$G(^TMP("BGPMU 11-16",$J,BGPMUTF,"POPULATION"))

 .;Final Denominator for all

 .S FINALD1=$P(FINA,U,4)

 .S $P(FINA,U,4)=$P(FINA,U,4)+DNOMA

 .S $P(FINA,U,1)=$P(FINA,U,1)+NUMCA1

 .S $P(FINA,U,2)=$P(FINA,U,2)+NUMCA2

 .S $P(FINA,U,3)=$P(FINA,U,3)+NUMCA3

 .S $P(FINA,U,5)=$P(FINA,U,5)+NOTCA1

 .S FINALD2=$P(FINB,U,4)

 .I BGPAGEE>1&(BGPAGEE<11) D

 ..S $P(FINB,U,4)=$P(FINB,U,4)+DNOMB

 ..S $P(FINB,U,1)=$P(FINB,U,1)+NUMCB1

 ..S $P(FINB,U,2)=$P(FINB,U,2)+NUMCB2

 ..S $P(FINB,U,3)=$P(FINB,U,3)+NUMCB3

 ..S $P(FINB,U,5)=$P(FINB,U,5)+NOTCB1

 .S FINALD3=$P(FINC,U,4)

 .I BGPAGEE>10&(BGPAGEE<17) D

 ..S $P(FINC,U,4)=$P(FINC,U,4)+DNOMC

 ..S $P(FINC,U,1)=$P(FINC,U,1)+NUMCC1

 ..S $P(FINC,U,2)=$P(FINC,U,2)+NUMCC2

 ..S $P(FINC,U,3)=$P(FINC,U,3)+NUMCC3

 ..S $P(FINC,U,5)=$P(FINC,U,5)+NOTCC1

 .;Store Final Date into work global for printing reports

 .S ^TMP("BGPMU 2-16",$J,BGPMUTF,"POPULATION")=FINA

 .S ^TMP("BGPMU 2-10",$J,BGPMUTF,"POPULATION")=FINB

 .S ^TMP("BGPMU 11-16",$J,BGPMUTF,"POPULATION")=FINC

NUMATOR(DFN,PATPOP,NUM1,NUM2,NUM3,DENOM,NONUM,VSTSDT,VSTEDT,DEN) ;Calculate Numerators

 ;Input:

 ;  DFN   : Patient Internal Entry Number

 ;  PATPOP : Patient Population Group ("BGPMU 2-16" or "BGPMU 2-10" or "BGPMU 11-16")

 ;  NUM1   : Numerator Counter - (Add 1 if patient is 2-16 and had BMI)

 ;  NUM2   : Numerator Counter - (Add 1 if patient is 2-10 and had Counseling on Nutrition)

 ;  NUM3   : Numerator Counter - (Add 1 if patient is 11-16 and had Counseling on Physical Activity)

 ;  DENOM  : Denominator Counter - Total Patients between 2-17

 ;  NONUM  : Numerator Counter - (Total number of patients that did not receive (NUM1 or NUM2 or NUM3 above)

 ;  VSDSDT : Visit Start Date

 ;  VSTEDT : Visit End Date

 ;Output

 ;  Temporary work global to contain calculations:  ^TMP($J,PATPOP,BGPMUTF)=NUM1_U_NUM2_U_NUM3_U_DENOM_U_NONUM

 N I,J,K,L,M,STR1,STR2,STR3,NUM

 S DENOM=1 ;Denominator for Population Criteria

 S I=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU BMI PERCENTILE ICD")

 S J=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU COUNSELING NUTRITION ICD")

 S K=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU COUNSELING PHYSICAL ACT")

 S L=$$VSTCPT^BGPMUUT1(DFN,VIEN,"BGPMU COUNSELING NUTRITION CPT")

 S M=$$VSTCPT^BGPMUUT1(DFN,VIEN,"BGPMU COUNSELING PHYS ACT CPT")

 I +I S NUM1=1 ;BMI PERCENTILE COUNTER

 I +J!(+L) S NUM2=1 ;COUNSELING ON NUTRITION COUNTER

 I +K!(+M) S NUM3=1 ;COUNSELING ON PHYSICAL ACTIVITY COUNTER

 ;Set counter if patient DID NOT receive one of the criteria above

 I 'I&('J)&('K) S NONUM=1

 ;Set up work global to store data for final calculations

 S ^TMP(PATPOP,$J,BGPMUTF)=NUM1_U_NUM2_U_NUM3_U_DENOM_U_NONUM

 ;Set up temp globals for patient lists (per numerator)

 I PATPOP="BGPMU 2-16"&(BGPMUTF="C") D

 .S (STR1,STR2,STR3)="",NUM=""

 .I +I S STR1=$P(I,U,2)_" "_$$DATE^BGPMUUTL($P(I,U,3))

 .I +J D

 ..I STR2'="" S STR2=STR2_";"_$P(J,U,2)_" "_$$DATE^BGPMUUTL($P(J,U,3))

 ..I STR2="" S STR2=$P(J,U,2)_" "_$$DATE^BGPMUUTL($P(J,U,3))

 .I +K D

 ..I STR3'="" S STR3=STR3_";"_$P(K,U,2)_" "_$$DATE^BGPMUUTL($P(K,U,3))

 ..I STR3="" S STR3=$P(K,U,2)_" "_$$DATE^BGPMUUTL($P(K,U,3))

 .I (+NUM1) D

 ..S PT2=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",1))

 ..S PT2=PT2+1

 ..S NUM="M:"_STR1

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",1,PT2)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",1)=PT2

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.1",BGPMUTF)=1_U_+NUM1_U_""_U_DEN_";"_NUM

 .E  D

 ..S PT1=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",1))

 ..S PT1=PT1+1

 ..S NUM="NM:"_STR1

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",1,PT1)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",1)=PT1

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.1",BGPMUTF)=1_U_0_U_""_U_DEN_";"_NUM

 .I (+NUM2) D

 ..S PT2=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",2))

 ..S PT2=PT2+1

 ..S NUM="M:"_STR2

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",2,PT2)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",2)=PT2

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.3",BGPMUTF)=1_U_+NUM2_U_""_U_DEN_";"_NUM

 .E  D

 ..S PT1=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",2))

 ..S PT1=PT1+1

 ..S NUM="NM:"_STR2

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",2,PT1)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",2)=PT1

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.3",BGPMUTF)=1_U_0_U_""_U_DEN_";"_NUM

 .I (+NUM3) D

 ..S PT2=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",3))

 ..S PT2=PT2+1

 ..S NUM="M:"_STR3

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",3,PT2)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NUM",3)=PT2

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.5",BGPMUTF)=1_U_+NUM3_U_""_U_DEN_";"_NUM

 .E  D

 ..S PT1=$G(^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",3))

 ..S PT1=PT1+1

 ..S NUM="NM:"_STR3

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",3,PT1)=DFN_U_DEN_U_NUM

 ..S ^TMP("BGPMU0024",$J,"PAT",BGPMUTF,"NOT",3)=PT1

 ..;Setup iCare array for patient

 ..S BGPICARE("MU.EP.0024.5",BGPMUTF)=1_U_+NUM3_U_""_U_DEN_";"_NUM

BGPMUW01  ; IHS/MSC/AJF -Meaningful Use NQF Measure ID:0024 ;22-Mar-2011 10:08;DU

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

 +2       ;;This program will collect information for Weight Assessment and Counseling

 +3       ;; for Children and Adolescents

 +4       ;;

ENTRY     ;Get Measurement Summary for a patient given a date range and a Provider

 +1       ;Input:

 +2       ;BEGDT: Date to begin query for Outpatient Encounters

 +3       ;ENDDT: Date to end query for Outpatient Encounters

 +4       ;BGPMUTF:Time frame for this report("C"-current,"B"-baseline,"P"-previous)

 +5       ;Output:Temp globaal of results

 +6       ;

 +7        NEW NOWDT,NOWYR,%

 +8        DO NOW^%DTC

 +9        SET NOWDT=$PIECE(%,".")

           SET NOWYR=$EXTRACT(NOWDT,1,3)

           SET U="^"

 +10      ;

 +11       NEW VSTSDT,VSTEDT,FIRST,AGE,AGE2,AGE10,AGE16,VIEN,NOA,NOB,NOC,PCA,PCB,PCC,FINALD1,FINALD2,FINALD3,VNODE,PCPIEN,AUPNVIEN

 +12       NEW DATA,VDATE,VIEN,IEN,RETVAL,CNT,PT1,PT2,AENC,BENC

 +13      ;Counters for Numerators that DID NOT meet numerator criteria

 +14       NEW NOTCA1,NOTCA2,NOTCA3,NOTCB1,NOTCB2,NOTCB3,NOTCC1,NOTCC2,NOTCC3

 +15       NEW FINA,FINB,FINC,ENDDT,BEGDT

 +16       SET (NOTCA1,NOTCA2,NOTCA3,NOTCB1,NOTCB2,NOTCB3,NOTCC1,NOTCC2,NOTCC3)=0

 +17      ;Counters for Denominators and Numerators that MEET criteria

 +18       NEW POPCA,POPCB,POPCC,NUMCA1,NUMCA2,DEN,NUMCA3,NUMCB1,NUMCB2,NUMCB3,NUMCC1,NUMCC2,NUMCC3,DNOMA,DNOMB,DNOMC

 +19       SET (POPCA,POPCB,POPCC,NUMCA1,NUMCA2,NUMCA3,NUMCB1,NUMCB2,NUMCB3,NUMCC1,NUMCC2,NUMCC3,DNOMA,DNOMB,DNOMC)=0

 +20       SET AGE2=2

           SET AGE10=10

           SET AGE16=16

           SET CNT=0

 +21       SET RETVAL=""

           SET VIEN=0

 +22       SET BEGDT=9999999-BGPBDATE

           SET ENDDT=9999999-BGPEDATE

 +23      ;

 +24       IF BGPAGEB<2!(BGPAGEB>16)

               QUIT

 +25       SET FIRST=ENDDT-0.1

FOR

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

               IF FIRST=""!($PIECE(FIRST,".",1)>BEGDT)!(+VIEN)

                   QUIT

               Begin DoDot:1

 +26               SET IEN=0

FOR

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

                       IF '+IEN!(+VIEN)

                           QUIT

                       Begin DoDot:2

 +27      ;Check provider, Only visits for chosen provider

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

                               QUIT

 +29      ;Quit if the patient has a pregnancy diagnosis

 +30                       IF ($PIECE(^DPT(DFN,0),U,2)="F")&($$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU PREGNANCY ALL ICD"))

                               QUIT

 +31                       IF ($PIECE(^DPT(DFN,0),U,2)="F")&($$LASTDX^BGPMUUT2(DFN,BGPBDATE,BGPEDATE,"BGPMU BMI PREG ENC DX"))

                               QUIT

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

 +33                       SET AENC=$$VSTCPT^BGPMUUT1(DFN,IEN,"BGPMU BMI ENC PEDS EM")

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

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

                               QUIT

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

 +37                       SET VSTSDT=$PIECE($GET(^AUPNVSIT(IEN,0)),U,1)

                           SET VIEN=IEN

 +38                       SET DEN="EN:"_$$DATE^BGPMUUTL(VSTSDT)

                       End DoDot:2

               End DoDot:1

 +39       IF +VIEN

               Begin DoDot:1

 +40      ;Counter for the Initial Population Criteria 1

 +41               SET VSTSDT=$PIECE(BGPBDATE,".",1)

                   SET VSTEDT=BGPEDATE

 +42               SET POPCA=POPCA+1

 +43      ;

 +44      ;Range A (Ages 2-16 inclusive)

 +45               DO NUMATOR(DFN,"BGPMU 2-16",.NUMCA1,.NUMCA2,.NUMCA3,.DNOMA,.NOTCA1,VSTSDT,VSTEDT,DEN)

 +46      ;Range B (Ages 2-10 inclusive)

 +47               IF BGPAGEB<11

                       DO NUMATOR(DFN,"BGPMU 2-10",.NUMCB1,.NUMCB2,.NUMCB3,.DNOMB,.NOTCB1,VSTSDT,VSTEDT,DEN)

 +48      ;Range C (Ages 11-16 inclusive)

 +49               IF BGPAGEB>10

                       DO NUMATOR(DFN,"BGPMU 11-16",.NUMCC1,.NUMCC2,.NUMCC3,.DNOMC,.NOTCC1,VSTSDT,VSTEDT,DEN)

 +50      ;

 +51      ;Summary calculations

 +52               SET FINA=$GET(^TMP("BGPMU 2-16",$JOB,BGPMUTF,"POPULATION"))

 +53               SET FINB=$GET(^TMP("BGPMU 2-10",$JOB,BGPMUTF,"POPULATION"))

 +54               SET FINC=$GET(^TMP("BGPMU 11-16",$JOB,BGPMUTF,"POPULATION"))

 +55      ;Final Denominator for all

 +56               SET FINALD1=$PIECE(FINA,U,4)

 +57               SET $PIECE(FINA,U,4)=$PIECE(FINA,U,4)+DNOMA

 +58               SET $PIECE(FINA,U,1)=$PIECE(FINA,U,1)+NUMCA1

 +59               SET $PIECE(FINA,U,2)=$PIECE(FINA,U,2)+NUMCA2

 +60               SET $PIECE(FINA,U,3)=$PIECE(FINA,U,3)+NUMCA3

 +61               SET $PIECE(FINA,U,5)=$PIECE(FINA,U,5)+NOTCA1

 +62               SET FINALD2=$PIECE(FINB,U,4)

 +63               IF BGPAGEE>1&(BGPAGEE<11)

                       Begin DoDot:2

 +64                       SET $PIECE(FINB,U,4)=$PIECE(FINB,U,4)+DNOMB

 +65                       SET $PIECE(FINB,U,1)=$PIECE(FINB,U,1)+NUMCB1

 +66                       SET $PIECE(FINB,U,2)=$PIECE(FINB,U,2)+NUMCB2

 +67                       SET $PIECE(FINB,U,3)=$PIECE(FINB,U,3)+NUMCB3

 +68                       SET $PIECE(FINB,U,5)=$PIECE(FINB,U,5)+NOTCB1

                       End DoDot:2

 +69               SET FINALD3=$PIECE(FINC,U,4)

 +70               IF BGPAGEE>10&(BGPAGEE<17)

                       Begin DoDot:2

 +71                       SET $PIECE(FINC,U,4)=$PIECE(FINC,U,4)+DNOMC

 +72                       SET $PIECE(FINC,U,1)=$PIECE(FINC,U,1)+NUMCC1

 +73                       SET $PIECE(FINC,U,2)=$PIECE(FINC,U,2)+NUMCC2

 +74                       SET $PIECE(FINC,U,3)=$PIECE(FINC,U,3)+NUMCC3

 +75                       SET $PIECE(FINC,U,5)=$PIECE(FINC,U,5)+NOTCC1

                       End DoDot:2

 +76      ;Store Final Date into work global for printing reports

 +77               SET ^TMP("BGPMU 2-16",$JOB,BGPMUTF,"POPULATION")=FINA

 +78               SET ^TMP("BGPMU 2-10",$JOB,BGPMUTF,"POPULATION")=FINB

 +79               SET ^TMP("BGPMU 11-16",$JOB,BGPMUTF,"POPULATION")=FINC

               End DoDot:1

 +80       QUIT

 +81      ;

NUMATOR(DFN,PATPOP,NUM1,NUM2,NUM3,DENOM,NONUM,VSTSDT,VSTEDT,DEN) ;Calculate Numerators

 +1       ;Input:

 +2       ;  DFN   : Patient Internal Entry Number

 +3       ;  PATPOP : Patient Population Group ("BGPMU 2-16" or "BGPMU 2-10" or "BGPMU 11-16")

 +4       ;  NUM1   : Numerator Counter - (Add 1 if patient is 2-16 and had BMI)

 +5       ;  NUM2   : Numerator Counter - (Add 1 if patient is 2-10 and had Counseling on Nutrition)

 +6       ;  NUM3   : Numerator Counter - (Add 1 if patient is 11-16 and had Counseling on Physical Activity)

 +7       ;  DENOM  : Denominator Counter - Total Patients between 2-17

 +8       ;  NONUM  : Numerator Counter - (Total number of patients that did not receive (NUM1 or NUM2 or NUM3 above)

 +9       ;  VSDSDT : Visit Start Date

 +10      ;  VSTEDT : Visit End Date

 +11      ;Output

 +12      ;  Temporary work global to contain calculations:  ^TMP($J,PATPOP,BGPMUTF)=NUM1_U_NUM2_U_NUM3_U_DENOM_U_NONUM

 +13      ;

 +14       NEW I,J,K,L,M,STR1,STR2,STR3,NUM

 +15      ;

 +16      ;Denominator for Population Criteria

           SET DENOM=1

 +17       SET I=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU BMI PERCENTILE ICD")

 +18       SET J=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU COUNSELING NUTRITION ICD")

 +19       SET K=$$LASTDX^BGPMUUT2(DFN,VSTSDT,VSTEDT,"BGPMU COUNSELING PHYSICAL ACT")

 +20       SET L=$$VSTCPT^BGPMUUT1(DFN,VIEN,"BGPMU COUNSELING NUTRITION CPT")

 +21       SET M=$$VSTCPT^BGPMUUT1(DFN,VIEN,"BGPMU COUNSELING PHYS ACT CPT")

 +22      ;BMI PERCENTILE COUNTER

           IF +I

               SET NUM1=1

 +23      ;COUNSELING ON NUTRITION COUNTER

           IF +J!(+L)

               SET NUM2=1

 +24      ;COUNSELING ON PHYSICAL ACTIVITY COUNTER

           IF +K!(+M)

               SET NUM3=1

 +25      ;Set counter if patient DID NOT receive one of the criteria above

 +26       IF 'I&('J)&('K)

               SET NONUM=1

 +27      ;Set up work global to store data for final calculations

 +28       SET ^TMP(PATPOP,$JOB,BGPMUTF)=NUM1_U_NUM2_U_NUM3_U_DENOM_U_NONUM

 +29      ;Set up temp globals for patient lists (per numerator)

 +30       IF PATPOP="BGPMU 2-16"&(BGPMUTF="C")

               Begin DoDot:1

 +31               SET (STR1,STR2,STR3)=""

                   SET NUM=""

 +32               IF +I

                       SET STR1=$PIECE(I,U,2)_" "_$$DATE^BGPMUUTL($PIECE(I,U,3))

 +33               IF +J

                       Begin DoDot:2

 +34                       IF STR2'=""

                               SET STR2=STR2_";"_$PIECE(J,U,2)_" "_$$DATE^BGPMUUTL($PIECE(J,U,3))

 +35                       IF STR2=""

                               SET STR2=$PIECE(J,U,2)_" "_$$DATE^BGPMUUTL($PIECE(J,U,3))

                       End DoDot:2

 +36               IF +K

                       Begin DoDot:2

 +37                       IF STR3'=""

                               SET STR3=STR3_";"_$PIECE(K,U,2)_" "_$$DATE^BGPMUUTL($PIECE(K,U,3))

 +38                       IF STR3=""

                               SET STR3=$PIECE(K,U,2)_" "_$$DATE^BGPMUUTL($PIECE(K,U,3))

                       End DoDot:2

 +39               IF (+NUM1)

                       Begin DoDot:2

 +40                       SET PT2=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",1))

 +41                       SET PT2=PT2+1

 +42                       SET NUM="M:"_STR1

 +43                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",1,PT2)=DFN_U_DEN_U_NUM

 +44                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",1)=PT2

 +45      ;Setup iCare array for patient

 +46                       SET BGPICARE("MU.EP.0024.1",BGPMUTF)=1_U_+NUM1_U_""_U_DEN_";"_NUM

                       End DoDot:2

 +47              IF '$TEST

                       Begin DoDot:2

 +48                       SET PT1=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",1))

 +49                       SET PT1=PT1+1

 +50                       SET NUM="NM:"_STR1

 +51                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",1,PT1)=DFN_U_DEN_U_NUM

 +52                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",1)=PT1

 +53      ;Setup iCare array for patient

 +54                       SET BGPICARE("MU.EP.0024.1",BGPMUTF)=1_U_0_U_""_U_DEN_";"_NUM

                       End DoDot:2

 +55               IF (+NUM2)

                       Begin DoDot:2

 +56                       SET PT2=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",2))

 +57                       SET PT2=PT2+1

 +58                       SET NUM="M:"_STR2

 +59                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",2,PT2)=DFN_U_DEN_U_NUM

 +60                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",2)=PT2

 +61      ;Setup iCare array for patient

 +62                       SET BGPICARE("MU.EP.0024.3",BGPMUTF)=1_U_+NUM2_U_""_U_DEN_";"_NUM

                       End DoDot:2

 +63              IF '$TEST

                       Begin DoDot:2

 +64                       SET PT1=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",2))

 +65                       SET PT1=PT1+1

 +66                       SET NUM="NM:"_STR2

 +67                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",2,PT1)=DFN_U_DEN_U_NUM

 +68                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",2)=PT1

 +69      ;Setup iCare array for patient

 +70                       SET BGPICARE("MU.EP.0024.3",BGPMUTF)=1_U_0_U_""_U_DEN_";"_NUM

                       End DoDot:2

 +71               IF (+NUM3)

                       Begin DoDot:2

 +72                       SET PT2=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",3))

 +73                       SET PT2=PT2+1

 +74                       SET NUM="M:"_STR3

 +75                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",3,PT2)=DFN_U_DEN_U_NUM

 +76                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NUM",3)=PT2

 +77      ;Setup iCare array for patient

 +78                       SET BGPICARE("MU.EP.0024.5",BGPMUTF)=1_U_+NUM3_U_""_U_DEN_";"_NUM

                       End DoDot:2

 +79              IF '$TEST

                       Begin DoDot:2

 +80                       SET PT1=$GET(^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",3))

 +81                       SET PT1=PT1+1

 +82                       SET NUM="NM:"_STR3

 +83                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",3,PT1)=DFN_U_DEN_U_NUM

 +84                       SET ^TMP("BGPMU0024",$JOB,"PAT",BGPMUTF,"NOT",3)=PT1

 +85      ;Setup iCare array for patient

 +86                       SET BGPICARE("MU.EP.0024.5",BGPMUTF)=1_U_+NUM3_U_""_U_DEN_";"_NUM

                       End DoDot:2

               End DoDot:1

 +87       QUIT

BGPMUW01.m