Routine: BGP3DH2

BGP3DH2 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2010 11:30 AM 02 Jul 2010 8:28 AM ;

 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81

DASH ;EP

 D W^BGP3DP("",0,1,BGPPTYPE)

 S BGPNODEP=$S($G(BGPCHSO):92,1:91)

 S BGPNODEP=$S($G(BGPURBAN):93,1:BGPNODEP)

 S BGPX=$O(^BGPCTRL("B",2013,0))

 S BGPY=0 F  S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR)  D

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)

.Q

 D W^BGP3DP("",0,1,BGPPTYPE)

ONMHDRA ;EP

 D W^BGP3DP("",0,1,BGPPTYPE)

 S BGPTEXT="ONH1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPPTYPE="P" Q:BGPQHDR

 I BGPRTC="U" D  I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 .D W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

 I BGPRTC="H" D  I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D  I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

 I BGPPTYPE="P" Q:BGPQHDR

 S BGPTEXT="ONH2" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPCHSO D ONMHDRC

 I BGPPTYPE="P" Q:BGPQHDR

 I BGPURBO D ONMHDRU

 I BGPPTYPE="P" Q:BGPQHDR

 S BGPTEXT="UP" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 D W^BGP3DP("",0,1,BGPPTYPE)

ONMHDRC ;

 S BGPTEXT="ONHC1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2),BGPPTYPE="P" D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPPTYPE="P" I BGPPTYPE="P" Q:BGPQHDR

 I BGPRTC="U" D  I BGPPTYPE="P" I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P" I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 .D W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

 I BGPRTC="H" D  I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D  I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

 I BGPPTYPE="P" Q:BGPQHDR

 S BGPTEXT="ONH2C" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 ;D W^BGP3DP("",0,1,BGPPTYPE)

ONMHDRU ;

 S BGPTEXT="ONHU1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2),BGPPTYPE="P" D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPPTYPE="P" I BGPPTYPE="P" Q:BGPQHDR

 I BGPRTC="U" D  I BGPPTYPE="P" I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P" I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 .D W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

 I BGPRTC="H" D  I BGPPTYPE="P" Q:BGPQHDR

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D  I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

 I BGPPTYPE="P" Q:BGPQHDR

 S BGPTEXT="ONH2U" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 ;D W^BGP3DP("",0,1,BGPPTYPE)

ONH1 ;;

 ;;Denominator Definitions used in this Report:

;;

 ;;ACTIVE CLINICAL POPULATION:

 ;;1. Must reside in a community specified in the community taxonomy used for

 ;;this report.

 ;;2. Must be alive on the last day of the Report period.

 ;;QUIT

ONH2 ;;

 ;;4. Must have 2 visits to medical clinics in the 3 years prior to the end

 ;;of the Report period. At least one visit must include: 01 General,

 ;;06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med, 20 Pediatrics, 24

 ;;Well Child, 28 Family Practice, 57 EPSDT, 70 Women's Health, 80 Urgent, 89

 ;;Evening.  See User Manual for complete description of medical clinics.

 ;;QUIT

;;

UP ;;

;;

 ;;USER POPULATION:

 ;;1. Definitions 1-3 above.

 ;;2. Must have been seen at least once in the 3 years prior to the end of

 ;;the Report period, regardless of the clinic type.

;;

 ;;The report Performance Summaries are split into two sections.

 ;; - GPRA Developmental Summary located at the end of the GPRA Developmental

 ;;section

 ;; - Non-GPRA Summary and Official GPRA/GPRAMA Summary are located on the

 ;;last pages of this report following the GPRA/GPRAMA section.

 ;;QUIT

;;

UP1 ;;

;;

 ;;USER POPULATION:

 ;;1. Definitions 1-3 above.

 ;;2. Must have been seen at least once in the 3 years prior to the end of

 ;;the Report period, regardless of the clinic type.

;;

 ;;QUIT

;;

ONH2C ;;

 ;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.

 ;;QUIT

ONHC1 ;;

;;

 ;;ACTIVE CLINICAL CHS POPULATION:

 ;;1. Must reside in a community specified in the community taxonomy used for

 ;;this report.

 ;;2. Must be alive on the last day of the Report period.

 ;;QUIT

ONH2U ;;

 ;;4. Must have 2 visits to behavioral health or case management clinics in

 ;;the 3 years prior to the end of the Report period.

 ;;QUIT

ONHU1 ;;

;;

 ;;ACTIVE BEHAVIORAL HEALTH URBAN OUTREACH & REFERRAL POPULATION:

 ;;1. Must reside in a community specified in the community taxonomy used for

 ;;this report.

 ;;2. Must be alive on the last day of the Report period.

 ;;QUIT

CHS ;;

;;

 ;;ACTIVE CLINICAL CHS POPULATION:

 ;;1. Must reside in a community specified in the community taxonomy used for

 ;;this report.

 ;;2. Must be alive on the last day of the Report period.

 ;;3. Indian/Alaska Natives Only - based on Classification of 01.

 ;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.

 ;;QUIT

;;

URB ;;

;;

 ;;ACTIVE BEHAVIORAL HEALTH URBAN OUTREACH & REFERRAL POPULATION:

 ;;1. Must reside in a community specified in the community taxonomy used for

 ;;this report.

 ;;2. Must be alive on the last day of the Report period.

 ;;3. Indian/Alaska Natives Only - based on Classification of 01.

 ;;4. Must have 2 visits to behavioral health or case management clinics in the

 ;;3 years prior to the end of the Report period.

 ;;QUIT

;;

GPRAHDRA ;EP

 D W^BGP3DP("",0,1,BGPPTYPE)

 S BGPX=$O(^BGPCTRL("B",2013,0))

 ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q  ;no urban or chs

 S BGPNODEP=29 D 2

 ;D W^BGP3DP("",0,1,BGPPTYPE)

 I BGPCHSO S BGPTEXT="CHS" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPURBO S BGPTEXT="URB" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 S BGPTEXT="UP" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

2 S BGPY=0 F  S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR)  D

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D AHDR^BGP3DH1 Q:BGPQHDR

 .D W^BGP3DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)

.Q

DASHHDRA ;EP

 D W^BGP3DP("",0,1,BGPPTYPE)

 S BGPX=$O(^BGPCTRL("B",2013,0))

 ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q  ;no urban or chs

 S BGPNODEP=94 D 2

 ;D W^BGP3DP("",0,1,BGPPTYPE)

 I BGPCHSO S BGPTEXT="CHS" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 I BGPURBO S BGPTEXT="URB" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

 S BGPTEXT="UP1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT"  D

 .S BGPT=$P(BGPX,";;",2)

 .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP3DH I BGPPTYPE="P" Q:BGPQHDR

 .D W^BGP3DP(BGPT,0,1,BGPPTYPE)

BGP3DH2   ; IHS/CMI/LAB - cover page for gpra 28 Apr 2010 11:30 AM 02 Jul 2010 8:28 AM ;

 +1       ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81

 +2       ;

 +3       ;

DASH      ;EP

 +1        DO W^BGP3DP("",0,1,BGPPTYPE)

 +2        SET BGPNODEP=$SELECT($GET(BGPCHSO):92,1:91)

 +3        SET BGPNODEP=$SELECT($GET(BGPURBAN):93,1:BGPNODEP)

 +4        SET BGPX=$ORDER(^BGPCTRL("B",2013,0))

 +5        SET BGPY=0

FOR

               SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))

               IF BGPY'=+BGPY!(BGPQHDR)

                   QUIT

               Begin DoDot:1

 +6                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +7                DO W^BGP3DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)

 +8                QUIT

               End DoDot:1

 +9        DO W^BGP3DP("",0,1,BGPPTYPE)

 +10       QUIT

ONMHDRA   ;EP

 +1        DO W^BGP3DP("",0,1,BGPPTYPE)

 +2        SET BGPTEXT="ONH1"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +3                SET BGPT=$PIECE(BGPX,";;",2)

 +4                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +5                DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +6        IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +7        IF BGPRTC="U"

               Begin DoDot:1

 +8                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +9                DO W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 +10               DO W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +11       IF BGPRTC="H"

               Begin DoDot:1

 +12               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           Begin DoDot:2

                           End DoDot:2

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +13               DO W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +14       IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +15       SET BGPTEXT="ONH2"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +16               SET BGPT=$PIECE(BGPX,";;",2)

 +17               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +18               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +19       IF BGPCHSO

               DO ONMHDRC

 +20       IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +21       IF BGPURBO

               DO ONMHDRU

 +22       IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +23       SET BGPTEXT="UP"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +24               SET BGPT=$PIECE(BGPX,";;",2)

 +25               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +26               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +27       DO W^BGP3DP("",0,1,BGPPTYPE)

 +28       QUIT

ONMHDRC   ;

 +1        SET BGPTEXT="ONHC1"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +2                SET BGPT=$PIECE(BGPX,";;",2)

 +3                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           IF BGPPTYPE="P"

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +4                DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +5        IF BGPPTYPE="P"

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +6        IF BGPRTC="U"

               Begin DoDot:1

 +7                IF BGPPTYPE="P"

                       IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +8                DO W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 +9                DO W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPPTYPE="P"

                       IF BGPQHDR

                           QUIT

 +10       IF BGPRTC="H"

               Begin DoDot:1

 +11               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           Begin DoDot:2

                           End DoDot:2

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +12               DO W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +13       IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +14       SET BGPTEXT="ONH2C"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +15               SET BGPT=$PIECE(BGPX,";;",2)

 +16               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +17               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +18      ;D W^BGP3DP("",0,1,BGPPTYPE)

 +19       QUIT

ONMHDRU   ;

 +1        SET BGPTEXT="ONHU1"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +2                SET BGPT=$PIECE(BGPX,";;",2)

 +3                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           IF BGPPTYPE="P"

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +4                DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +5        IF BGPPTYPE="P"

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +6        IF BGPRTC="U"

               Begin DoDot:1

 +7                IF BGPPTYPE="P"

                       IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +8                DO W^BGP3DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)

 +9                DO W^BGP3DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPPTYPE="P"

                       IF BGPQHDR

                           QUIT

 +10       IF BGPRTC="H"

               Begin DoDot:1

 +11               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           Begin DoDot:2

                           End DoDot:2

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +12               DO W^BGP3DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)

               End DoDot:1

               IF BGPPTYPE="P"

                   IF BGPQHDR

                       QUIT

 +13       IF BGPPTYPE="P"

               IF BGPQHDR

                   QUIT

 +14       SET BGPTEXT="ONH2U"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +15               SET BGPT=$PIECE(BGPX,";;",2)

 +16               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +17               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +18      ;D W^BGP3DP("",0,1,BGPPTYPE)

 +19       QUIT

ONH1      ;;

 +1       ;;Denominator Definitions used in this Report:

 +2       ;;

 +3       ;;ACTIVE CLINICAL POPULATION:

 +4       ;;1. Must reside in a community specified in the community taxonomy used for

 +5       ;;this report.

 +6       ;;2. Must be alive on the last day of the Report period.

 +7       ;;QUIT

 +8       ;

ONH2      ;;

 +1       ;;4. Must have 2 visits to medical clinics in the 3 years prior to the end

 +2       ;;of the Report period. At least one visit must include: 01 General,

 +3       ;;06 Diabetic, 10 GYN, 12 Immunization, 13 Internal Med, 20 Pediatrics, 24

 +4       ;;Well Child, 28 Family Practice, 57 EPSDT, 70 Women's Health, 80 Urgent, 89

 +5       ;;Evening.  See User Manual for complete description of medical clinics.

 +6       ;;QUIT

 +7       ;;

UP        ;;

 +1       ;;

 +2       ;;USER POPULATION:

 +3       ;;1. Definitions 1-3 above.

 +4       ;;2. Must have been seen at least once in the 3 years prior to the end of

 +5       ;;the Report period, regardless of the clinic type.

 +6       ;;

 +7       ;;The report Performance Summaries are split into two sections.

 +8       ;; - GPRA Developmental Summary located at the end of the GPRA Developmental

 +9       ;;section

 +10      ;; - Non-GPRA Summary and Official GPRA/GPRAMA Summary are located on the

 +11      ;;last pages of this report following the GPRA/GPRAMA section.

 +12      ;;QUIT

 +13      ;;

UP1       ;;

 +1       ;;

 +2       ;;USER POPULATION:

 +3       ;;1. Definitions 1-3 above.

 +4       ;;2. Must have been seen at least once in the 3 years prior to the end of

 +5       ;;the Report period, regardless of the clinic type.

 +6       ;;

 +7       ;;QUIT

 +8       ;;

ONH2C     ;;

 +1       ;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.

 +2       ;;QUIT

ONHC1     ;;

 +1       ;;

 +2       ;;ACTIVE CLINICAL CHS POPULATION:

 +3       ;;1. Must reside in a community specified in the community taxonomy used for

 +4       ;;this report.

 +5       ;;2. Must be alive on the last day of the Report period.

 +6       ;;QUIT

 +7       ;

ONH2U     ;;

 +1       ;;4. Must have 2 visits to behavioral health or case management clinics in

 +2       ;;the 3 years prior to the end of the Report period.

 +3       ;;QUIT

ONHU1     ;;

 +1       ;;

 +2       ;;ACTIVE BEHAVIORAL HEALTH URBAN OUTREACH & REFERRAL POPULATION:

 +3       ;;1. Must reside in a community specified in the community taxonomy used for

 +4       ;;this report.

 +5       ;;2. Must be alive on the last day of the Report period.

 +6       ;;QUIT

 +7       ;

 +8       ;

CHS       ;;

 +1       ;;

 +2       ;;ACTIVE CLINICAL CHS POPULATION:

 +3       ;;1. Must reside in a community specified in the community taxonomy used for

 +4       ;;this report.

 +5       ;;2. Must be alive on the last day of the Report period.

 +6       ;;3. Indian/Alaska Natives Only - based on Classification of 01.

 +7       ;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.

 +8       ;;QUIT

 +9       ;;

URB       ;;

 +1       ;;

 +2       ;;ACTIVE BEHAVIORAL HEALTH URBAN OUTREACH & REFERRAL POPULATION:

 +3       ;;1. Must reside in a community specified in the community taxonomy used for

 +4       ;;this report.

 +5       ;;2. Must be alive on the last day of the Report period.

 +6       ;;3. Indian/Alaska Natives Only - based on Classification of 01.

 +7       ;;4. Must have 2 visits to behavioral health or case management clinics in the

 +8       ;;3 years prior to the end of the Report period.

 +9       ;;QUIT

 +10      ;;

GPRAHDRA  ;EP

 +1        DO W^BGP3DP("",0,1,BGPPTYPE)

 +2        SET BGPX=$ORDER(^BGPCTRL("B",2013,0))

 +3       ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q  ;no urban or chs

 +4        SET BGPNODEP=29

           DO 2

 +5       ;D W^BGP3DP("",0,1,BGPPTYPE)

 +6        IF BGPCHSO

               SET BGPTEXT="CHS"

               FOR BGPJ1=1:1

                   SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

                   IF $PIECE(BGPX,";;",2)="QUIT"

                       QUIT

                   Begin DoDot:1

 +7                    SET BGPT=$PIECE(BGPX,";;",2)

 +8                    IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +9                    DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

                   End DoDot:1

 +10       IF BGPURBO

               SET BGPTEXT="URB"

               FOR BGPJ1=1:1

                   SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

                   IF $PIECE(BGPX,";;",2)="QUIT"

                       QUIT

                   Begin DoDot:1

 +11                   SET BGPT=$PIECE(BGPX,";;",2)

 +12                   IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +13                   DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

                   End DoDot:1

 +14       SET BGPTEXT="UP"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +15               SET BGPT=$PIECE(BGPX,";;",2)

 +16               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +17               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +18       QUIT

2          SET BGPY=0

FOR

               SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))

               IF BGPY'=+BGPY!(BGPQHDR)

                   QUIT

               Begin DoDot:1

 +1                IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO AHDR^BGP3DH1

                           IF BGPQHDR

                               QUIT

 +2                DO W^BGP3DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)

 +3                QUIT

               End DoDot:1

 +4        QUIT

DASHHDRA  ;EP

 +1        DO W^BGP3DP("",0,1,BGPPTYPE)

 +2        SET BGPX=$ORDER(^BGPCTRL("B",2013,0))

 +3       ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q  ;no urban or chs

 +4        SET BGPNODEP=94

           DO 2

 +5       ;D W^BGP3DP("",0,1,BGPPTYPE)

 +6        IF BGPCHSO

               SET BGPTEXT="CHS"

               FOR BGPJ1=1:1

                   SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

                   IF $PIECE(BGPX,";;",2)="QUIT"

                       QUIT

                   Begin DoDot:1

 +7                    SET BGPT=$PIECE(BGPX,";;",2)

 +8                    IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +9                    DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

                   End DoDot:1

 +10       IF BGPURBO

               SET BGPTEXT="URB"

               FOR BGPJ1=1:1

                   SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

                   IF $PIECE(BGPX,";;",2)="QUIT"

                       QUIT

                   Begin DoDot:1

 +11                   SET BGPT=$PIECE(BGPX,";;",2)

 +12                   IF BGPPTYPE="P"

                           IF $Y>(BGPIOSL-2)

                               DO HDR^BGP3DH

                               IF BGPPTYPE="P"

                                   IF BGPQHDR

                                       QUIT

 +13                   DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

                   End DoDot:1

 +14       SET BGPTEXT="UP1"

           FOR BGPJ1=1:1

               SET BGPX=$TEXT(@BGPTEXT+BGPJ1)

               IF $PIECE(BGPX,";;",2)="QUIT"

                   QUIT

               Begin DoDot:1

 +15               SET BGPT=$PIECE(BGPX,";;",2)

 +16               IF BGPPTYPE="P"

                       IF $Y>(BGPIOSL-2)

                           DO HDR^BGP3DH

                           IF BGPPTYPE="P"

                               IF BGPQHDR

                                   QUIT

 +17               DO W^BGP3DP(BGPT,0,1,BGPPTYPE)

               End DoDot:1

 +18       QUIT

BGP3DH2.m