BGP2DH2 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2010 11:30 AM 02 Jul 2010 8:28 AM ;
;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
;
;
DASH ;EP
D W^BGP2DP("",0,1,BGPPTYPE)
S BGPNODEP=$S($G(BGPCHSO):92,1:91)
S BGPNODEP=$S($G(BGPURBAN):93,1:BGPNODEP)
S BGPX=$O(^BGPCTRL("B",2012,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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
.Q
D W^BGP2DP("",0,1,BGPPTYPE)
Q
ONMHDRA ;EP
D W^BGP2DP("",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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
.D W^BGP2DP("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^BGP2DP("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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(BGPT,0,1,BGPPTYPE)
D W^BGP2DP("",0,1,BGPPTYPE)
Q
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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
.D W^BGP2DP("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^BGP2DP("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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(BGPT,0,1,BGPPTYPE)
;D W^BGP2DP("",0,1,BGPPTYPE)
Q
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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
.D W^BGP2DP("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^BGP2DP("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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(BGPT,0,1,BGPPTYPE)
;D W^BGP2DP("",0,1,BGPPTYPE)
Q
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 & PART Summary are located on the
;;last pages of this report following the GPRA & PART 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^BGP2DP("",0,1,BGPPTYPE)
S BGPX=$O(^BGPCTRL("B",2012,0))
;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q ;no urban or chs
S BGPNODEP=29 D 2
;D W^BGP2DP("",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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(BGPT,0,1,BGPPTYPE)
Q
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^BGP2DH1 Q:BGPQHDR
.D W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
.Q
Q
DASHHDRA ;EP
D W^BGP2DP("",0,1,BGPPTYPE)
S BGPX=$O(^BGPCTRL("B",2012,0))
;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q ;no urban or chs
S BGPNODEP=94 D 2
;D W^BGP2DP("",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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(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^BGP2DH I BGPPTYPE="P" Q:BGPQHDR
.D W^BGP2DP(BGPT,0,1,BGPPTYPE)
Q
BGP2DH2 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2010 11:30 AM 02 Jul 2010 8:28 AM ;
+1 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
+2 ;
+3 ;
DASH ;EP
+1 DO W^BGP2DP("",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",2012,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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+7 DO W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
+8 QUIT
End DoDot:1
+9 DO W^BGP2DP("",0,1,BGPPTYPE)
+10 QUIT
ONMHDRA ;EP
+1 DO W^BGP2DP("",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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+5 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+9 DO W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
+10 DO W^BGP2DP("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^BGP2DP("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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+18 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+26 DO W^BGP2DP(BGPT,0,1,BGPPTYPE)
End DoDot:1
+27 DO W^BGP2DP("",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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+4 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+8 DO W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
+9 DO W^BGP2DP("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^BGP2DP("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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+17 DO W^BGP2DP(BGPT,0,1,BGPPTYPE)
End DoDot:1
+18 ;D W^BGP2DP("",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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+4 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+8 DO W^BGP2DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
+9 DO W^BGP2DP("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^BGP2DP("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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+17 DO W^BGP2DP(BGPT,0,1,BGPPTYPE)
End DoDot:1
+18 ;D W^BGP2DP("",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 & PART Summary are located on the
+11 ;;last pages of this report following the GPRA & PART 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^BGP2DP("",0,1,BGPPTYPE)
+2 SET BGPX=$ORDER(^BGPCTRL("B",2012,0))
+3 ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q ;no urban or chs
+4 SET BGPNODEP=29
DO 2
+5 ;D W^BGP2DP("",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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+9 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+13 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+17 DO W^BGP2DP(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^BGP2DH1
IF BGPQHDR
QUIT
+2 DO W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
+3 QUIT
End DoDot:1
+4 QUIT
DASHHDRA ;EP
+1 DO W^BGP2DP("",0,1,BGPPTYPE)
+2 SET BGPX=$ORDER(^BGPCTRL("B",2012,0))
+3 ;I '(BGPCHSO+BGPURBO) S BGPNODEP=14 D 2 Q ;no urban or chs
+4 SET BGPNODEP=94
DO 2
+5 ;D W^BGP2DP("",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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+9 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+13 DO W^BGP2DP(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^BGP2DH
IF BGPPTYPE="P"
IF BGPQHDR
QUIT
+17 DO W^BGP2DP(BGPT,0,1,BGPPTYPE)
End DoDot:1
+18 QUIT
