BGP9DH1 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2008 11:30 AM 02 Jul 2008 8:28 AM ;
;;9.0;IHS CLINICAL REPORTING;**1**;JUL 01, 2009
;
;
ONMHDR ;EP
W !
I BGPCHSO G ONMHDRC
S BGPTEXT="ONH1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT" D
.S BGPT=$P(BGPX,";;",2)
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,BGPT
Q:BGPQHDR
I BGPRTC="U" D Q:BGPQHDR
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,"3. User defines population: a) Indian/Alaska Natives Only - based on"
.W !,"Classification of 01; b) Non AI/AN (not 01); or c) Both."
I BGPRTC="H" D Q:BGPQHDR
.I $Y>(BGPIOSL-2) D Q:BGPQHDR
.W !,"3. Indian/Alaska Natives Only - based on Classification of 01."
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 $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,BGPT
W !
Q
ONMHDRC ;
S BGPTEXT="ONH1" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT" D
.S BGPT=$P(BGPX,";;",2)
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,BGPT
Q:BGPQHDR
I BGPRTC="U" D Q:BGPQHDR
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,"3. User defines population: a) Indian/Alaska Natives Only - based on"
.W !,"Classification of 01; b) Non AI/AN (not 01); or c) Both."
I BGPRTC="H" D Q:BGPQHDR
.I $Y>(BGPIOSL-2) D Q:BGPQHDR
.W !,"3. Indian/Alaska Natives Only - based on Classification of 01."
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 $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,BGPT
W !
Q
PEHDR ;EP
W !
;Q:$G(BGPSEAT)
S BGPNODEP=$S($G(BGPSEAT):75,1:34)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
.Q
W !
Q
AHDR ;EP
;
I 'BGPHPG G AHDR1
I $E(IOST)="C",IO=IO(0) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BGPQHDR=1 Q
AHDR1 ;
S BGPHPG=BGPHPG+1 W:$D(IOF) @IOF
W !,$$CTR^BGP9DH("Cover Page "_BGPHPG,80)
I BGPRTYPE=1,$G(BGPNGR09) W !!,$$CTR^BGP9DH("*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***") G N
I BGPRTYPE=1,'$G(BGP9GPU),'$G(BGPSUMON) W !!,$$CTR^BGP9DH("*** IHS 2009 National GPRA & PART Report ***",80)
I BGPRTYPE=1,'$G(BGP9GPU),$G(BGPSUMON) W !!,$$CTR^BGP9DH("*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***",80)
I BGPRTYPE=6 W !!,$$CTR^BGP9DH("*** IHS 2009 Patient Education Report with Community Specified ***",80)
I BGPRTYPE=1,$G(BGP9GPU) W !!,$$CTR^BGP9DH("*** IHS 2009 GPRA & PART Performance Report ***",80)
I BGPRTYPE=7 W !!,$$CTR^BGP9DH("*** IHS 2009 Other National Measures Report ***",80)
N W !,$$CTR^BGP9DH("AREA AGGREGATE",80)
W !,$$CTR^BGP9DH($$RPTVER^BGP9BAN,80),!
S X="Date Report Run: "_$$FMTE^XLFDT(DT) W $$CTR^BGP9DH(X,80),!
S X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04) W $$CTR^BGP9DH(X,80),!
W $$CTR^BGP9DH("Report Generated by: "_$$USR^BGP9DH,80),!
S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) W $$CTR^BGP9DH(X,80),!
S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) W $$CTR^BGP9DH(X,80),!
S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) W $$CTR^BGP9DH(X,80),!
Q
COMHDR ;EP
W !
Q:$G(BGPSEAT)
S BGPNODEP=$S($G(BGPCHSO):24,1:17)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
.Q
I $G(BGP9GPU) W !!,"See last pages of this report for Performance Summaries."
W !
Q
GPRAHDRS ;EP
W !
S BGPNODEP=$S($G(BGPCHSO):77,1:76)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
.Q
W !
Q
PPHDR ;EP
W !
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,18,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,^BGPCTRL(BGPX,18,BGPY,0)
.Q
W !
Q
ALLHDR ;EP
W !
Q:$G(BGPSEAT)
S BGPNODEP=$S(BGPCHSO:25,1:19)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
.I $Y>(BGPIOSL-2) D HDR^BGP9DH Q:BGPQHDR
.W !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
.Q
W !
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.
;;
;;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.
;;
;;See last pages of this report for Performance Summary.
;;QUIT
;;
ONH2C ;;
;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.
;;
;;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.
;;
;;See last pages of this report for Performance Summary.
;;QUIT
BGP9DH1 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2008 11:30 AM 02 Jul 2008 8:28 AM ;
+1 ;;9.0;IHS CLINICAL REPORTING;**1**;JUL 01, 2009
+2 ;
+3 ;
ONMHDR ;EP
+1 WRITE !
+2 IF BGPCHSO
GOTO ONMHDRC
+3 SET BGPTEXT="ONH1"
FOR BGPJ1=1:1
SET BGPX=$TEXT(@BGPTEXT+BGPJ1)
IF $PIECE(BGPX,";;",2)="QUIT"
QUIT
Begin DoDot:1
+4 SET BGPT=$PIECE(BGPX,";;",2)
+5 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+6 WRITE !,BGPT
End DoDot:1
+7 IF BGPQHDR
QUIT
+8 IF BGPRTC="U"
Begin DoDot:1
+9 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+10 WRITE !,"3. User defines population: a) Indian/Alaska Natives Only - based on"
+11 WRITE !,"Classification of 01; b) Non AI/AN (not 01); or c) Both."
End DoDot:1
IF BGPQHDR
QUIT
+12 IF BGPRTC="H"
Begin DoDot:1
+13 IF $Y>(BGPIOSL-2)
Begin DoDot:2
End DoDot:2
IF BGPQHDR
QUIT
+14 WRITE !,"3. Indian/Alaska Natives Only - based on Classification of 01."
End DoDot:1
IF BGPQHDR
QUIT
+15 IF BGPQHDR
QUIT
+16 SET BGPTEXT="ONH2"
FOR BGPJ1=1:1
SET BGPX=$TEXT(@BGPTEXT+BGPJ1)
IF $PIECE(BGPX,";;",2)="QUIT"
QUIT
Begin DoDot:1
+17 SET BGPT=$PIECE(BGPX,";;",2)
+18 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+19 WRITE !,BGPT
End DoDot:1
+20 WRITE !
+21 QUIT
ONMHDRC ;
+1 SET BGPTEXT="ONH1"
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 $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+4 WRITE !,BGPT
End DoDot:1
+5 IF BGPQHDR
QUIT
+6 IF BGPRTC="U"
Begin DoDot:1
+7 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+8 WRITE !,"3. User defines population: a) Indian/Alaska Natives Only - based on"
+9 WRITE !,"Classification of 01; b) Non AI/AN (not 01); or c) Both."
End DoDot:1
IF BGPQHDR
QUIT
+10 IF BGPRTC="H"
Begin DoDot:1
+11 IF $Y>(BGPIOSL-2)
Begin DoDot:2
End DoDot:2
IF BGPQHDR
QUIT
+12 WRITE !,"3. Indian/Alaska Natives Only - based on Classification of 01."
End DoDot:1
IF BGPQHDR
QUIT
+13 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 $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+17 WRITE !,BGPT
End DoDot:1
+18 WRITE !
+19 QUIT
PEHDR ;EP
+1 WRITE !
+2 ;Q:$G(BGPSEAT)
+3 SET BGPNODEP=$SELECT($GET(BGPSEAT):75,1:34)
+4 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+5 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY!(BGPQHDR)
QUIT
Begin DoDot:1
+6 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+7 WRITE !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
+8 QUIT
End DoDot:1
+9 WRITE !
+10 QUIT
AHDR ;EP
+1 ;
+2 IF 'BGPHPG
GOTO AHDR1
+3 IF $EXTRACT(IOST)="C"
IF IO=IO(0)
WRITE !
SET DIR(0)="EO"
DO ^DIR
KILL DIR
IF Y=0!(Y="^")!($DATA(DTOUT))
SET BGPQHDR=1
QUIT
AHDR1 ;
+1 SET BGPHPG=BGPHPG+1
IF $DATA(IOF)
WRITE @IOF
+2 WRITE !,$$CTR^BGP9DH("Cover Page "_BGPHPG,80)
+3 IF BGPRTYPE=1
IF $GET(BGPNGR09)
WRITE !!,$$CTR^BGP9DH("*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***")
GOTO N
+4 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF '$GET(BGPSUMON)
WRITE !!,$$CTR^BGP9DH("*** IHS 2009 National GPRA & PART Report ***",80)
+5 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF $GET(BGPSUMON)
WRITE !!,$$CTR^BGP9DH("*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***",80)
+6 IF BGPRTYPE=6
WRITE !!,$$CTR^BGP9DH("*** IHS 2009 Patient Education Report with Community Specified ***",80)
+7 IF BGPRTYPE=1
IF $GET(BGP9GPU)
WRITE !!,$$CTR^BGP9DH("*** IHS 2009 GPRA & PART Performance Report ***",80)
+8 IF BGPRTYPE=7
WRITE !!,$$CTR^BGP9DH("*** IHS 2009 Other National Measures Report ***",80)
N WRITE !,$$CTR^BGP9DH("AREA AGGREGATE",80)
+1 WRITE !,$$CTR^BGP9DH($$RPTVER^BGP9BAN,80),!
+2 SET X="Date Report Run: "_$$FMTE^XLFDT(DT)
WRITE $$CTR^BGP9DH(X,80),!
+3 SET X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04)
WRITE $$CTR^BGP9DH(X,80),!
+4 WRITE $$CTR^BGP9DH("Report Generated by: "_$$USR^BGP9DH,80),!
+5 SET X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)
WRITE $$CTR^BGP9DH(X,80),!
+6 SET X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)
WRITE $$CTR^BGP9DH(X,80),!
+7 SET X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)
WRITE $$CTR^BGP9DH(X,80),!
+8 QUIT
COMHDR ;EP
+1 WRITE !
+2 IF $GET(BGPSEAT)
QUIT
+3 SET BGPNODEP=$SELECT($GET(BGPCHSO):24,1:17)
+4 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+5 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY!(BGPQHDR)
QUIT
Begin DoDot:1
+6 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+7 WRITE !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
+8 QUIT
End DoDot:1
+9 IF $GET(BGP9GPU)
WRITE !!,"See last pages of this report for Performance Summaries."
+10 WRITE !
+11 QUIT
GPRAHDRS ;EP
+1 WRITE !
+2 SET BGPNODEP=$SELECT($GET(BGPCHSO):77,1:76)
+3 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+4 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY!(BGPQHDR)
QUIT
Begin DoDot:1
+5 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+6 WRITE !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
+7 QUIT
End DoDot:1
+8 WRITE !
+9 QUIT
PPHDR ;EP
+1 WRITE !
+2 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+3 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,18,BGPY))
IF BGPY'=+BGPY!(BGPQHDR)
QUIT
Begin DoDot:1
+4 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+5 WRITE !,^BGPCTRL(BGPX,18,BGPY,0)
+6 QUIT
End DoDot:1
+7 WRITE !
+8 QUIT
ALLHDR ;EP
+1 WRITE !
+2 IF $GET(BGPSEAT)
QUIT
+3 SET BGPNODEP=$SELECT(BGPCHSO:25,1:19)
+4 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+5 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY!(BGPQHDR)
QUIT
Begin DoDot:1
+6 IF $Y>(BGPIOSL-2)
DO HDR^BGP9DH
IF BGPQHDR
QUIT
+7 WRITE !,^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
+8 QUIT
End DoDot:1
+9 WRITE !
+10 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 ;;
+7 ;;USER POPULATION:
+8 ;;1. Definitions 1-3 above.
+9 ;;2. Must have been seen at least once in the 3 years prior to the end of
+10 ;;the Report period, regardless of the clinic type.
+11 ;;
+12 ;;See last pages of this report for Performance Summary.
+13 ;;QUIT
+14 ;;
ONH2C ;;
+1 ;;4. Must have 2 CHS visits in the 3 years prior to the end of the Report period.
+2 ;;
+3 ;;USER POPULATION:
+4 ;;1. Definitions 1-3 above.
+5 ;;2. Must have been seen at least once in the 3 years prior to the end of
+6 ;;the Report period, regardless of the clinic type.
+7 ;;
+8 ;;See last pages of this report for Performance Summary.
+9 ;;QUIT
