- BGP0DH1 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2009 11:30 AM 02 Jul 2009 8:28 AM ;
- ;;10.0;IHS CLINICAL REPORTING;**1**;JUN 18, 2010
- ;
- ;
- ONMHDR ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- 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 BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
- .D W^BGP0DP("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^BGP0DP("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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(BGPT,0,1,BGPPTYPE)
- D W^BGP0DP("",0,1,BGPPTYPE)
- 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 BGPPTYPE="P",$Y>(BGPIOSL-2),BGPPTYPE="P" D HDR^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
- .D W^BGP0DP("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^BGP0DP("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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(BGPT,0,1,BGPPTYPE)
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- PEHDR ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- ;Q:$G(BGPSEAT)
- S BGPNODEP=$S($G(BGPSEAT):75,1:34)
- S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- .Q
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- AHDR ;EP
- ;
- I BGPPTYPE'="P" G AHDR10
- I BGPPTYPE="P",'BGPHPG G AHDR1
- I $E(IOST)="C",IO=IO(0) D W^BGP0DP("",0,1,BGPPTYPE) S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BGPQHDR=1 Q
- AHDR1 ;
- S BGPHPG=BGPHPG+1 I BGPHPG'=1 W:$D(IOF) @IOF
- I $G(BGPGUI),BGPPTYPE="P",BGPHPG'=1 D W^BGP0DP("ZZZZZZZ",0,0,BGPPTYPE),W^BGP0EOH("",0,1,BGPPTYPE) ;GUI
- AHDR10 D W^BGP0DP("Cover Page "_$S(BGPPTYPE="P":BGPHPG,1:""),1,1,BGPPTYPE)
- I BGPRTYPE=1,$G(BGPNGR09) D W^BGP0DP("*** IHS 2011 National GPRA & PART Report, Run Using 2010 Logic ***",1,2,BGPPTYPE) G N
- I BGPRTYPE=1,'$G(BGP0GPU),'$G(BGPSUMON) D W^BGP0DP("*** IHS 2010 National GPRA & PART Report ***",1,2,BGPPTYPE)
- I BGPRTYPE=1,'$G(BGP0GPU),$G(BGPSUMON) D W^BGP0DP("*** IHS 2010 National GPRA & PART Report Clinical Performance Summaries ***",1,2,BGPPTYPE)
- I BGPRTYPE=6 D W^BGP0DP("*** IHS 2010 Patient Education Report with Community Specified ***",1,2,BGPPTYPE)
- I BGPRTYPE=1,$G(BGP0GPU) D W^BGP0DP("*** IHS 2010 GPRA & PART Performance Report ***",1,2,BGPPTYPE)
- I BGPRTYPE=7 D W^BGP0DP("*** IHS 2010 Other National Measures Report ***",1,2,BGPPTYPE)
- N D W^BGP0DP("AREA AGGREGATE",1,1,BGPPTYPE)
- D W^BGP0DP($$RPTVER^BGP0BAN,1,1,BGPPTYPE)
- S X="Date Report Run: "_$$FMTE^XLFDT(DT) D W^BGP0DP(X,1,1,BGPPTYPE)
- S X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04) D W^BGP0DP(X,1,1,BGPPTYPE)
- D W^BGP0DP("Report Generated by: "_$$USR^BGP0DH,1,1,BGPPTYPE)
- S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D W^BGP0DP(X,1,1,BGPPTYPE)
- S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D W^BGP0DP(X,1,1,BGPPTYPE)
- S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D W^BGP0DP(X,1,1,BGPPTYPE)
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- COMHDR ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q:$G(BGPSEAT)
- S BGPNODEP=$S($G(BGPCHSO):24,1:17)
- S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- .Q
- I $G(BGP0GPU) D W^BGP0DP("See last pages of this report for Performance Summaries.",0,2,BGPPTYPE)
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- GPRAHDRS ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- S BGPNODEP=$S($G(BGPCHSO):77,1:76)
- S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- .Q
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- PPHDR ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- S BGPX=$O(^BGPCTRL("B",2010,0))
- S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,18,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
- .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(^BGPCTRL(BGPX,18,BGPY,0),0,1,BGPPTYPE)
- .Q
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- ALLHDR ;EP
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q:$G(BGPSEAT)
- S BGPNODEP=$S(BGPCHSO:25,1:19)
- S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DH I BGPPTYPE="P" Q:BGPQHDR
- .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- .Q
- D W^BGP0DP("",0,1,BGPPTYPE)
- Q
- AREACP ;EP
- S BGPQHDR=0,BGPHPG=0
- D AHDR
- I BGPPTYPE="P" Q:BGPQHDR
- D MD^BGP0DH
- D PD^BGP0DH
- D ENDTIME^BGP0DH
- I BGPRTYPE=6 D PEDCP^BGP0DH Q
- S BGPCHSO="",X=0 F S X=$O(BGPSUL(X)) Q:X'=+X I $P(^BGPGPDCT(X,0),U,17) S BGPCHSO=1
- S BGPCHSN="",X=0 F S X=$O(BGPSUL(X)) Q:X'=+X I '$P(^BGPGPDCT(X,0),U,17) S BGPCHSN=1
- I BGPRTYPE=1,'$G(BGP0GPU) D GPRAHDRA^BGP0DH
- I BGPRTYPE=1,$G(BGP0GPU) D GPRAHDRA^BGP0DH
- I BGPRTYPE=7 D ONMHDR^BGP0DH
- I $G(BGPEXCEL),'$G(BGP0GPU),BGPRTYPE=1 D
- .D W^BGP0DP("GPRA Developmental filenames: ",0,2,BGPPTYPE),W^BGP0DP(BGPFDEV1,0,1,BGPPTYPE,1,15),W^BGP0DP(BGPFDEV2,0,1,BGPPTYPE,1,15)
- .D W^BGP0DP("National GPRA filenames: ",0,2,BGPPTYPE),W^BGP0DP(BGPFGNT1,0,1,BGPPTYPE,1,15),W^BGP0DP(BGPFGNT2,0,1,BGPPTYPE,1,15)
- I $G(BGPEXCEL),BGPRTYPE=7 D W^BGP0DP("Other National Measures filenames: ",0,1,BGPPTYPE),W^BGP0DP(BGPFONN1,0,1,BGPPTYPE,1,15),W^BGP0DP(BGPFONN2,0,1,BGPPTYPE,1,15),W^BGP0DP(BGPFONN3,0,1,BGPPTYPE,1,15)
- I BGPROT'="P",'$D(BGPGUI),BGPDELT="F" D W^BGP0DP("A delimited output file called "_BGPDELF,0,2,BGPPTYPE) D
- .D W^BGP0DP("has been placed in the public directory for your use in Excel or some",0,1,BGPPTYPE)
- .D W^BGP0DP("other software package.",0,1,BGPPTYPE)
- .D W^BGP0DP("See your site manager to access this file.",0,1,BGPPTYPE)
- .D W^BGP0DP("",0,1,BGPPTYPE)
- ;I BGPROT'="P",'$D(BGPGUI) W !!,"A delimited output file called ",BGPDELF,!,"has been placed in the public directory for your use in Excel or some",!,"other software package. See your site manager to access this file.",!
- ;W !!?1,"Report includes data from the following facilities:"
- D W^BGP0DP("Report includes data from the following facilities: ",0,2,BGPPTYPE)
- NEW BGPX
- S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
- .S X=$P(^BGPGPDCT(BGPX,0),U,9),X=$O(^AUTTLOC("C",X,0)) S X=$S(X:$P(^DIC(4,X,0),U),1:"?????")
- .S BGPC=BGPC+1,X=BGPC_". "_$S($P(^BGPGPDCT(BGPX,0),U,17):"*",1:"")_X D W^BGP0DP(X,0,1,BGPPTYPE,1,3)
- .Q
- S X=" " D W^BGP0DP(X,0,1,BGPPTYPE)
- S X="The following communities are included in this report:" D W^BGP0DP(X,0,1,BGPPTYPE,1,1)
- S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
- .S X=$P(^BGPGPDCT(BGPX,0),U,9),X=$O(^AUTTLOC("C",X,0)) S X=$S(X:$P(^DIC(4,X,0),U),1:"?????")
- .S BGPC=BGPC+1,X=BGPC_". "_$S($P(^BGPGPDCT(BGPX,0),U,17):"*",1:"")_X D W^BGP0DP(X,0,1,BGPPTYPE,1,3)
- .;S X="Communities: " D W^BGP0DP(X,0,1,BGPPTYPE,1,5)
- .S X="Community Taxonomy Name: "_$P(^BGPGPDCT(BGPX,0),U,18) D W^BGP0DP(X,0,1,BGPPTYPE,1,5)
- .S BGPXX=0,BGPXN=0,BGPXY="" F S BGPXX=$O(^BGPGPDCT(BGPX,9999,BGPXX)) Q:BGPXX'=+BGPXX S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPGPDCT(BGPX,9999,BGPXX,0),U)
- .S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
- ..D W^BGP0DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
- ..D W^BGP0DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
- ..D W^BGP0DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
- ..Q
- .I $O(^BGPGPDCT(BGPX,1111,0)) D
- ..D W^BGP0DP("MFI Visit Locations: ",0,2,BGPPTYPE,1,5) S BGPXX=0,BGPXN=0,BGPXY="" F S BGPXX=$O(^BGPGPDCT(BGPX,1111,BGPXX)) Q:BGPXX'=+BGPXX S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPGPDCT(BGPX,1111,BGPXX,0),U)
- ..S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
- ...D W^BGP0DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
- ...D W^BGP0DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
- ...D W^BGP0DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
- ..Q
- .Q
- D W^BGP0DP(" ",0,1,BGPPTYPE)
- I BGPCHSO D
- .S X=" " D W^BGP0DP(X,0,1,BGPPTYPE)
- .S X="* CHS-only site. Uses Active Clinical CHS Population definition vs. Active Clinical." D W^BGP0DP(X,0,1,BGPPTYPE)
- S X=" " D W^BGP0DP(X,0,1,BGPPTYPE)
- I BGPPTYPE="D" D W^BGP0DP("ENDCOVERPAGE",0,1,BGPPTYPE)
- K BGPX,BGPQUIT
- 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
- BGP0DH1 ; IHS/CMI/LAB - cover page for gpra 28 Apr 2009 11:30 AM 02 Jul 2009 8:28 AM ;
- +1 ;;10.0;IHS CLINICAL REPORTING;**1**;JUN 18, 2010
- +2 ;
- +3 ;
- ONMHDR ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +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 BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +6 DO W^BGP0DP(BGPT,0,1,BGPPTYPE)
- End DoDot:1
- +7 IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +8 IF BGPRTC="U"
- Begin DoDot:1
- +9 IF BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +10 DO W^BGP0DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
- +11 DO W^BGP0DP("Classification of 01; b) Non AI/AN (not 01); or c) Both.",0,1,BGPPTYPE)
- End DoDot:1
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +12 IF BGPRTC="H"
- Begin DoDot:1
- +13 IF BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- Begin DoDot:2
- End DoDot:2
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +14 DO W^BGP0DP("3. Indian/Alaska Natives Only - based on Classification of 01.",0,1,BGPPTYPE)
- End DoDot:1
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +15 IF BGPPTYPE="P"
- 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 BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +19 DO W^BGP0DP(BGPT,0,1,BGPPTYPE)
- End DoDot:1
- +20 DO W^BGP0DP("",0,1,BGPPTYPE)
- +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 BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- IF BGPPTYPE="P"
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +4 DO W^BGP0DP(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^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +8 DO W^BGP0DP("3. User defines population: a) Indian/Alaska Natives Only - based on",0,1,BGPPTYPE)
- +9 DO W^BGP0DP("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^BGP0DP("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^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +17 DO W^BGP0DP(BGPT,0,1,BGPPTYPE)
- End DoDot:1
- +18 DO W^BGP0DP("",0,1,BGPPTYPE)
- +19 QUIT
- PEHDR ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +2 ;Q:$G(BGPSEAT)
- +3 SET BGPNODEP=$SELECT($GET(BGPSEAT):75,1:34)
- +4 SET BGPX=$ORDER(^BGPCTRL("B",2010,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^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +7 DO W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- +8 QUIT
- End DoDot:1
- +9 DO W^BGP0DP("",0,1,BGPPTYPE)
- +10 QUIT
- AHDR ;EP
- +1 ;
- +2 IF BGPPTYPE'="P"
- GOTO AHDR10
- +3 IF BGPPTYPE="P"
- IF 'BGPHPG
- GOTO AHDR1
- +4 IF $EXTRACT(IOST)="C"
- IF IO=IO(0)
- DO W^BGP0DP("",0,1,BGPPTYPE)
- 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 BGPHPG'=1
- IF $DATA(IOF)
- WRITE @IOF
- +2 ;GUI
- IF $GET(BGPGUI)
- IF BGPPTYPE="P"
- IF BGPHPG'=1
- DO W^BGP0DP("ZZZZZZZ",0,0,BGPPTYPE)
- DO W^BGP0EOH("",0,1,BGPPTYPE)
- AHDR10 DO W^BGP0DP("Cover Page "_$SELECT(BGPPTYPE="P":BGPHPG,1:""),1,1,BGPPTYPE)
- +1 IF BGPRTYPE=1
- IF $GET(BGPNGR09)
- DO W^BGP0DP("*** IHS 2011 National GPRA & PART Report, Run Using 2010 Logic ***",1,2,BGPPTYPE)
- GOTO N
- +2 IF BGPRTYPE=1
- IF '$GET(BGP0GPU)
- IF '$GET(BGPSUMON)
- DO W^BGP0DP("*** IHS 2010 National GPRA & PART Report ***",1,2,BGPPTYPE)
- +3 IF BGPRTYPE=1
- IF '$GET(BGP0GPU)
- IF $GET(BGPSUMON)
- DO W^BGP0DP("*** IHS 2010 National GPRA & PART Report Clinical Performance Summaries ***",1,2,BGPPTYPE)
- +4 IF BGPRTYPE=6
- DO W^BGP0DP("*** IHS 2010 Patient Education Report with Community Specified ***",1,2,BGPPTYPE)
- +5 IF BGPRTYPE=1
- IF $GET(BGP0GPU)
- DO W^BGP0DP("*** IHS 2010 GPRA & PART Performance Report ***",1,2,BGPPTYPE)
- +6 IF BGPRTYPE=7
- DO W^BGP0DP("*** IHS 2010 Other National Measures Report ***",1,2,BGPPTYPE)
- N DO W^BGP0DP("AREA AGGREGATE",1,1,BGPPTYPE)
- +1 DO W^BGP0DP($$RPTVER^BGP0BAN,1,1,BGPPTYPE)
- +2 SET X="Date Report Run: "_$$FMTE^XLFDT(DT)
- DO W^BGP0DP(X,1,1,BGPPTYPE)
- +3 SET X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04)
- DO W^BGP0DP(X,1,1,BGPPTYPE)
- +4 DO W^BGP0DP("Report Generated by: "_$$USR^BGP0DH,1,1,BGPPTYPE)
- +5 SET X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)
- DO W^BGP0DP(X,1,1,BGPPTYPE)
- +6 SET X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)
- DO W^BGP0DP(X,1,1,BGPPTYPE)
- +7 SET X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)
- DO W^BGP0DP(X,1,1,BGPPTYPE)
- +8 DO W^BGP0DP("",0,1,BGPPTYPE)
- +9 QUIT
- COMHDR ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +2 IF $GET(BGPSEAT)
- QUIT
- +3 SET BGPNODEP=$SELECT($GET(BGPCHSO):24,1:17)
- +4 SET BGPX=$ORDER(^BGPCTRL("B",2010,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^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +7 DO W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- +8 QUIT
- End DoDot:1
- +9 IF $GET(BGP0GPU)
- DO W^BGP0DP("See last pages of this report for Performance Summaries.",0,2,BGPPTYPE)
- +10 DO W^BGP0DP("",0,1,BGPPTYPE)
- +11 QUIT
- GPRAHDRS ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +2 SET BGPNODEP=$SELECT($GET(BGPCHSO):77,1:76)
- +3 SET BGPX=$ORDER(^BGPCTRL("B",2010,0))
- +4 SET BGPY=0
- FOR
- SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
- IF BGPY'=+BGPY!(BGPQHDR)
- QUIT
- Begin DoDot:1
- +5 IF BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +6 DO W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- +7 QUIT
- End DoDot:1
- +8 DO W^BGP0DP("",0,1,BGPPTYPE)
- +9 QUIT
- PPHDR ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +2 SET BGPX=$ORDER(^BGPCTRL("B",2010,0))
- +3 SET BGPY=0
- FOR
- SET BGPY=$ORDER(^BGPCTRL(BGPX,18,BGPY))
- IF BGPY'=+BGPY!(BGPQHDR)
- QUIT
- Begin DoDot:1
- +4 IF BGPPTYPE="P"
- IF $Y>(BGPIOSL-2)
- DO HDR^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +5 DO W^BGP0DP(^BGPCTRL(BGPX,18,BGPY,0),0,1,BGPPTYPE)
- +6 QUIT
- End DoDot:1
- +7 DO W^BGP0DP("",0,1,BGPPTYPE)
- +8 QUIT
- ALLHDR ;EP
- +1 DO W^BGP0DP("",0,1,BGPPTYPE)
- +2 IF $GET(BGPSEAT)
- QUIT
- +3 SET BGPNODEP=$SELECT(BGPCHSO:25,1:19)
- +4 SET BGPX=$ORDER(^BGPCTRL("B",2010,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^BGP0DH
- IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +7 DO W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
- +8 QUIT
- End DoDot:1
- +9 DO W^BGP0DP("",0,1,BGPPTYPE)
- +10 QUIT
- AREACP ;EP
- +1 SET BGPQHDR=0
- SET BGPHPG=0
- +2 DO AHDR
- +3 IF BGPPTYPE="P"
- IF BGPQHDR
- QUIT
- +4 DO MD^BGP0DH
- +5 DO PD^BGP0DH
- +6 DO ENDTIME^BGP0DH
- +7 IF BGPRTYPE=6
- DO PEDCP^BGP0DH
- QUIT
- +8 SET BGPCHSO=""
- SET X=0
- FOR
- SET X=$ORDER(BGPSUL(X))
- IF X'=+X
- QUIT
- IF $PIECE(^BGPGPDCT(X,0),U,17)
- SET BGPCHSO=1
- +9 SET BGPCHSN=""
- SET X=0
- FOR
- SET X=$ORDER(BGPSUL(X))
- IF X'=+X
- QUIT
- IF '$PIECE(^BGPGPDCT(X,0),U,17)
- SET BGPCHSN=1
- +10 IF BGPRTYPE=1
- IF '$GET(BGP0GPU)
- DO GPRAHDRA^BGP0DH
- +11 IF BGPRTYPE=1
- IF $GET(BGP0GPU)
- DO GPRAHDRA^BGP0DH
- +12 IF BGPRTYPE=7
- DO ONMHDR^BGP0DH
- +13 IF $GET(BGPEXCEL)
- IF '$GET(BGP0GPU)
- IF BGPRTYPE=1
- Begin DoDot:1
- +14 DO W^BGP0DP("GPRA Developmental filenames: ",0,2,BGPPTYPE)
- DO W^BGP0DP(BGPFDEV1,0,1,BGPPTYPE,1,15)
- DO W^BGP0DP(BGPFDEV2,0,1,BGPPTYPE,1,15)
- +15 DO W^BGP0DP("National GPRA filenames: ",0,2,BGPPTYPE)
- DO W^BGP0DP(BGPFGNT1,0,1,BGPPTYPE,1,15)
- DO W^BGP0DP(BGPFGNT2,0,1,BGPPTYPE,1,15)
- End DoDot:1
- +16 IF $GET(BGPEXCEL)
- IF BGPRTYPE=7
- DO W^BGP0DP("Other National Measures filenames: ",0,1,BGPPTYPE)
- DO W^BGP0DP(BGPFONN1,0,1,BGPPTYPE,1,15)
- DO W^BGP0DP(BGPFONN2,0,1,BGPPTYPE,1,15)
- DO W^BGP0DP(BGPFONN3,0,1,BGPPTYPE,1,15)
- +17 IF BGPROT'="P"
- IF '$DATA(BGPGUI)
- IF BGPDELT="F"
- DO W^BGP0DP("A delimited output file called "_BGPDELF,0,2,BGPPTYPE)
- Begin DoDot:1
- +18 DO W^BGP0DP("has been placed in the public directory for your use in Excel or some",0,1,BGPPTYPE)
- +19 DO W^BGP0DP("other software package.",0,1,BGPPTYPE)
- +20 DO W^BGP0DP("See your site manager to access this file.",0,1,BGPPTYPE)
- +21 DO W^BGP0DP("",0,1,BGPPTYPE)
- End DoDot:1
- +22 ;I BGPROT'="P",'$D(BGPGUI) W !!,"A delimited output file called ",BGPDELF,!,"has been placed in the public directory for your use in Excel or some",!,"other software package. See your site manager to access this file.",!
- +23 ;W !!?1,"Report includes data from the following facilities:"
- +24 DO W^BGP0DP("Report includes data from the following facilities: ",0,2,BGPPTYPE)
- +25 NEW BGPX
- +26 SET BGPX=""
- SET BGPC=0
- FOR
- SET BGPX=$ORDER(BGPSUL(BGPX))
- IF BGPX=""
- QUIT
- Begin DoDot:1
- +27 SET X=$PIECE(^BGPGPDCT(BGPX,0),U,9)
- SET X=$ORDER(^AUTTLOC("C",X,0))
- SET X=$SELECT(X:$PIECE(^DIC(4,X,0),U),1:"?????")
- +28 SET BGPC=BGPC+1
- SET X=BGPC_". "_$SELECT($PIECE(^BGPGPDCT(BGPX,0),U,17):"*",1:"")_X
- DO W^BGP0DP(X,0,1,BGPPTYPE,1,3)
- +29 QUIT
- End DoDot:1
- +30 SET X=" "
- DO W^BGP0DP(X,0,1,BGPPTYPE)
- +31 SET X="The following communities are included in this report:"
- DO W^BGP0DP(X,0,1,BGPPTYPE,1,1)
- +32 SET BGPX=""
- SET BGPC=0
- FOR
- SET BGPX=$ORDER(BGPSUL(BGPX))
- IF BGPX=""
- QUIT
- Begin DoDot:1
- +33 SET X=$PIECE(^BGPGPDCT(BGPX,0),U,9)
- SET X=$ORDER(^AUTTLOC("C",X,0))
- SET X=$SELECT(X:$PIECE(^DIC(4,X,0),U),1:"?????")
- +34 SET BGPC=BGPC+1
- SET X=BGPC_". "_$SELECT($PIECE(^BGPGPDCT(BGPX,0),U,17):"*",1:"")_X
- DO W^BGP0DP(X,0,1,BGPPTYPE,1,3)
- +35 ;S X="Communities: " D W^BGP0DP(X,0,1,BGPPTYPE,1,5)
- +36 SET X="Community Taxonomy Name: "_$PIECE(^BGPGPDCT(BGPX,0),U,18)
- DO W^BGP0DP(X,0,1,BGPPTYPE,1,5)
- +37 SET BGPXX=0
- SET BGPXN=0
- SET BGPXY=""
- FOR
- SET BGPXX=$ORDER(^BGPGPDCT(BGPX,9999,BGPXX))
- IF BGPXX'=+BGPXX
- QUIT
- SET BGPXN=BGPXN+1
- SET BGPXY=BGPXY_$SELECT(BGPXN=1:"",1:";")_$PIECE(^BGPGPDCT(BGPX,9999,BGPXX,0),U)
- +38 SET BGPX1=0
- SET C=0
- FOR BGPX1=1:3:BGPXN
- Begin DoDot:2
- +39 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
- +40 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
- +41 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
- +42 QUIT
- End DoDot:2
- +43 IF $ORDER(^BGPGPDCT(BGPX,1111,0))
- Begin DoDot:2
- +44 DO W^BGP0DP("MFI Visit Locations: ",0,2,BGPPTYPE,1,5)
- SET BGPXX=0
- SET BGPXN=0
- SET BGPXY=""
- FOR
- SET BGPXX=$ORDER(^BGPGPDCT(BGPX,1111,BGPXX))
- IF BGPXX'=+BGPXX
- QUIT
- SET BGPXN=BGPXN+1
- SET BGPXY=BGPXY_$SELECT(BGPXN=1:"",1:";")_$PIECE(^BGPGPDCT(BGPX,1111,BGPXX,0),U)
- +45 SET BGPX1=0
- SET C=0
- FOR BGPX1=1:3:BGPXN
- Begin DoDot:3
- +46 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
- +47 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
- +48 DO W^BGP0DP($EXTRACT($PIECE(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
- End DoDot:3
- +49 QUIT
- End DoDot:2
- +50 QUIT
- End DoDot:1
- +51 DO W^BGP0DP(" ",0,1,BGPPTYPE)
- +52 IF BGPCHSO
- Begin DoDot:1
- +53 SET X=" "
- DO W^BGP0DP(X,0,1,BGPPTYPE)
- +54 SET X="* CHS-only site. Uses Active Clinical CHS Population definition vs. Active Clinical."
- DO W^BGP0DP(X,0,1,BGPPTYPE)
- End DoDot:1
- +55 SET X=" "
- DO W^BGP0DP(X,0,1,BGPPTYPE)
- +56 IF BGPPTYPE="D"
- DO W^BGP0DP("ENDCOVERPAGE",0,1,BGPPTYPE)
- +57 KILL BGPX,BGPQUIT
- +58 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