BGP9PDLH ; IHS/CMI/LAB - cover page for del ;
;;9.0;IHS CLINICAL REPORTING;**1**;JUL 01, 2009
;
S X="" D SET(X,1,1)
S X="Cover Page" D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPAREAA) G AREACP
I BGPRTYPE=4,$G(BGP9RPTH)="C" S X="*** IHS 2009 Selected Measures with Community Specified Report ***" D SET(X,1,1)
I BGPRTYPE=4,$G(BGP9RPTH)="A" S X="*** IHS 2009 Selected Measures with All Communities Report ***" D SET(X,1,1)
I BGPRTYPE=4,$G(BGP9RPTH)="P" S X="*** IHS 2009 Selected Measures with Patient Panel Population Report ***" D SET(X,1,1)
I BGPRTYPE=1,$G(BGPNGR09) S X="*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***" D SET(X,1,1) G N
I BGPRTYPE=1,$G(BGPDESGP) S X="*** IHS 2009 National GPRA & PART Report by Designated Provider ***" D SET(X,1,1) G N
I BGPRTYPE=1,'$G(BGP9GPU),'$G(BGPSUMON) S X="*** IHS 2009 National GPRA & PART Report ***" D SET(X,1,1)
I BGPRTYPE=1,'$G(BGP9GPU),$G(BGPSUMON) S X="*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***" D SET(X,1,1)
I BGPRTYPE=1,$G(BGP9GPU) S X="*** IHS 2009 GPRA Performance & PART Report ***" D SET(X,1,1)
I BGPRTYPE=7 S X="*** IHS 2009 Other National Measures Report ***" D SET(X,1,1)
I BGPRTYPE=6,'$G(BGPEDPP) S X="*** IHS 2009 Patient Education with Community Specified Report ***" D SET(X,1,1)
I BGPRTYPE=6,$G(BGPEDPP) S X="*** IHS 2009 Patient Education with Patient Panel Population Report ***" D SET(X,1,1)
N ;
I $G(BGPCPPL) S X="** Including Comprehensive Patient List **" D SET(X,1,1)
S X=$$RPTVER^BGP9BAN D SET(X,1,1)
S X="Date Report Run: "_$$FMTE^XLFDT(DT) D SET(X,1,1)
S X="Site where Run: "_$P(^DIC(4,DUZ(2),0),U) D SET(X,1,1)
S X="Report Generated by: "_$$USR D SET(X,1,1)
S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D SET(X,1,1)
S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D SET(X,1,1)
S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D SET(X,1,1)
S X=" " D SET(X,1,1)
I BGPRTYPE=6 S X="Measures: Patient Education Performance Measures" D SET(X,1,1)
I BGPRTYPE=4 S X="Measures: "_$P($T(@BGPINDT),";;",2) D SET(X,1,1)
I BGPRTYPE=1 S X="Measures: GPRA, GPRA Developmental, and PART Denominators and Numerators and " D SET(X,1,1) S X="Selected Other Clinical Denominators and Numerators" D SET(X,1,1)
I BGPRTYPE=7 S X="Measures: Key Clinical Denominators and Numerators for Non-GPRA National Reporting" D SET(X,1,1)
I '$G(BGPSEAT) S X="Population: "_$S(BGPBEN=1:"AI/AN Only (Classification 01)",BGPBEN=2:"non AI/AN Only (Classification NOT 01)",BGPBEN=3:"All (Both AI/AN and non AI/AN)",1:"") D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPSEAT) S X="Patient Panel Population: "_$P(^DIBT(BGPSEAT,0),U) D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPDESGP) S X="Designated Provider: "_$P(^VA(200,BGPDESGP,0),U) D SET(X,1,1),SET(" ",1,1)
D ENDTIME
I BGPRTYPE=4,BGP9RPTH="C" D COMHDR
I BGPRTYPE=4,BGP9RPTH="P" D PPHDR
I BGPRTYPE=4,BGP9RPTH="A" D ALLHDR
I BGPRTYPE=1,'$G(BGP9GPU),'$G(BGPSUMON) D GPRAHDR
I BGPRTYPE=1,'$G(BGP9GPU),$G(BGPSUMON) D GPRAHDRS
I BGPRTYPE=1,$G(BGP9GPU) D COMHDR
I BGPRTYPE=7 D ONMHDR
I BGPRTYPE=6 D PEHDR
I $G(BGPEXPT),BGPRTYPE=1 D
.S X="A file will be created called BG09"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT_"." D SET(X,1,1)
.S X="It will reside in the public/export directory." D SET(X,1,1)
.S X="This file should be sent to your Area Office." D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPEXPT),BGPRTYPE=7 D
.S X="A file will be created called BG09"_$P(^AUTTLOC(DUZ(2),0),U,10)_".ONM"_BGPRPT_"." D SET(X,1,1)
.S X="It will reside in the public/export directory." D SET(X,1,1)
.S X="This file should be sent to your Area Office." D SET(X,1,1)
I $G(BGPYWCHW)=2 S X="HT/WT Filename: "_BGPFN D SET(X,1,1) S X=" " D SET(X,1,1)
I BGPRTYPE=6,$G(BGPPEEXP) D
.S X="A file will be created called BG09"_$P(^AUTTLOC(DUZ(2),0),U,10)_".PED"_BGPRPT_"." D SET(X,1,1)
.S X="This file will reside in the public/export directory." D SET(X,1,1)
.S X="This file should be sent to your Area Office." D SET(X,1,1)
.S X=" " D SET(X,1,1)
I BGPROT'="P" D
.Q:$D(BGPGUI)
.S X="A delimited output file called "_BGPDELF D SET(X,1,1) S X="has been placed in the public directory for your use in Excel or some" D SET(X,1,1) S X="other software package." D SET(X,1,1)
.S X="See your site manager to access this file." D SET(X,1,1)
S X=" " D SET(X,1,1)
I BGP9RPTH="P" K BGPX,BGPQUIT Q
I $G(BGPALLPT) S X="All Communities Included." D SET(X,1,1)
I '$G(BGPALLPT),'$G(BGPSEAT) S X="Community Taxonomy Name: "_$P(^ATXAX(BGPTAXI,0),U) D SET(X,1,1)
I '$G(BGPALLPT),'$G(BGPSEAT) S X="The following communities are included in this report:" D SET(X,1,1) D
.S BGPZZ="",N=0,Y="" F S BGPZZ=$O(BGPTAX(BGPZZ)) Q:BGPZZ="" S N=N+1,Y=Y_$S(N=1:"",1:";")_BGPZZ
.S BGPZZ=0,C=0 F BGPZZ=1:3:N D
..S X=$E($P(Y,";",BGPZZ),1,20),$P(X,U,2)=$E($P(Y,";",(BGPZZ+1)),1,20),$P(X,U,3)=$E($P(Y,";",(BGPZZ+2)),1,20) D SET(X,1,1)
..S X=$E($G(BGPTAX(BGPZZ)),1,20),$P(X,U,2)=$E($G(BGPTAX(BGPZZ+1)),1,20),$P(X,U,4)=$E($G(BGPTAX(BGPZZ+2)),1,20) D SET(X,1,1)
..Q
S X=" " D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPMFITI) S X="MFI Location Taxonomy Name: "_$P(^ATXAX(BGPMFITI,0),U) D SET(X,1,1)
I $G(BGPMFITI) S X="The following locations are used for patient visits in this report:" D SET(X,1,1) D
.S BGPZZ="",N=0,Y="" F S BGPZZ=$O(^ATXAX(BGPMFITI,21,"B",BGPZZ)) Q:BGPZZ="" S N=N+1,Y=Y_$S(N=1:"",1:";")_$P($G(^DIC(4,BGPZZ,0)),U)
.S BGPZZ=0,C=0 F BGPZZ=1:3:N D
..S X=$E($P(Y,";",BGPZZ),1,20),$P(X,U,2)=$E($P(Y,";",(BGPZZ+1)),1,20),$P(X,U,3)=$E($P(Y,";",(BGPZZ+2)),1,20) D SET(X,1,1)
..Q
K BGPX,BGPQUIT
S X=" " D SET(X,1,1)
I BGPRTYPE'=6 D SET("ENDCOVERPAGE",1,1)
Q
PEHDR ;EP
D PEHDR^BGP9PDH1
Q
COMHDR ;
D COMHDR^BGP9PDH1
Q
ONMHDR ;
S X=" " D SET(X,1,1)
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)
.D SET(BGPT,1,1)
I BGPRTC="U" D
.D SET("3. User defines population: a) Indian/Alaska Natives Only - based on",1,1)
.D SET("Classification of 01; b) Non AI/AN (not 01); or c) Both.",1,1)
I BGPRTC="H" D
.D SET("3. Indian/Alaska Natives Only - based on Classification of 01.",1,1)
S BGPTEXT="ONH2" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT" D
.S BGPT=$P(BGPX,";;",2)
.D SET(BGPT,1,1)
D SET(" ",1,1)
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)
.D SET(BGPT,1,1)
I BGPRTC="U" D
.D SET("3. User defines population: a) Indian/Alaska Natives Only - based on",1,1)
.D SET("Classification of 01; b) Non AI/AN (not 01); or c) Both.",1,1)
I BGPRTC="H" D
.D SET("3. Indian/Alaska Natives Only - based on Classification of 01.",1,1)
S BGPTEXT="ONH2C" F BGPJ1=1:1 S BGPX=$T(@BGPTEXT+BGPJ1) Q:$P(BGPX,";;",2)="QUIT" D
.S BGPT=$P(BGPX,";;",2)
.D SET(BGPT,1,1)
D SET(" ",1,1)
Q
PPHDR ;
D PPHDR^BGP9PDH1
Q
ALLHDR ;
D ALLHDR^BGP9PDH1
Q
GPRAHDRS ;
D GPRAHDRS^BGP9PDH1
Q
DENOMHDR ;
D DENOMHDR^BGP9PDH1
Q
AREAHDR ;
S X=" " D SET(X,1,1)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,15,BGPY)) Q:BGPY'=+BGPY D
.S X=^BGPCTRL(BGPX,15,BGPY,0) D SET(X,1,1)
.Q
Q
GPRAHDR ;
S X=" " D SET(X,1,1)
S BGPNODEP=$S(BGPCHSO:23,1:14)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY D
.S X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0) D SET(X,1,1)
.Q
Q
GPRAHDRA ;
S X=" " D SET(X,1,1)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPNODEP=$S(BGPCHSO&('BGPCHSN):23,(BGPCHSO+BGPCHSN)=2:29,1:14)
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY D
.S X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0) D SET(X,1,1)
.Q
Q
COMHDRA ;
S X=" " D SET(X,1,1)
S BGPX=$O(^BGPCTRL("B",2009,0))
S BGPNODEP=$S(BGPCHSO&('BGPCHSN):24,(BGPCHSO+BGPCHSN)=2:31,1:17)
S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY D
.S X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0) D SET(X,1,1)
.Q
I $G(BGP9GPU) D SET("See last pages of this report for Performance Summaries.",1,1) D SET(" ",1,1)
Q
ENDTIME ;
I $D(BGPET) S BGPTS=(86400*($P(BGPET,",")-$P(BGPBT,",")))+($P(BGPET,",",2)-$P(BGPBT,",",2)),BGPHR=$P(BGPTS/3600,".") S:BGPHR="" BGPHR=0 D
.S BGPTS=BGPTS-(BGPHR*3600),BGPM=$P(BGPTS/60,".") S:BGPM="" BGPM=0 S BGPTS=BGPTS-(BGPM*60),BGPS=BGPTS S X="RUN TIME (H.M.S): "_BGPHR_"."_BGPM_"."_BGPS D SET(X,1,1)
Q
AREACP ;EP - ACP
;
I BGPRTYPE=6 S X="*** IHS 2009 Patient Education with Community Specified Report***" D SET(X,1,1)
I BGPRTYPE=1,$G(BGPNGR09) S X="*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***" D SET(X,1,1) G NA
I BGPRTYPE=1,'$G(BGP9GPU),'$G(BGPSUMON) S X="*** IHS 2009 National GPRA & PART Report ***" D SET(X,1,1)
I BGPRTYPE=1,'$G(BGP9GPU),$G(BGPSUMON) S X="*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***" D SET(X,1,1)
I BGPRTYPE=1,$G(BGP9GPU) S X="*** IHS 2009 GPRA & PART Performance Report ***" D SET(X,1,1)
I BGPRTYPE=7 D SET("*** IHS 2009 Other National Measures Report ***",1,1)
NA S X="AREA AGGREGATE" D SET(X,1,1)
S X=$$RPTVER^BGP9BAN D SET(X,1,1)
S X="Date Report Run: "_$$FMTE^XLFDT(DT) D SET(X,1,1)
S X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04) D SET(X,1,1)
S X="Report Generated by: "_$$USR D SET(X,1,1)
S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D SET(X,1,1)
S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D SET(X,1,1)
S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D SET(X,1,1)
S X=" " D SET(X,1,1)
I BGPRTYPE=6 S X="Measures: Patient Education Performance Measures" D SET(X,1,1)
I BGPRTYPE=1 S X="Measures: GPRA, GPRA Developmental, and PART Denominators and Numerators and " D SET(X,1,1) S X="Selected Other Clinical Denominators and Numerators" D SET(X,1,1)
I BGPRTYPE=7 D SET("Measures: Key Clinical Denominators and Numerators for Non-GPRA National Reporting",1,1)
I BGPRTYPE=1!(BGPRTYPE=6)!(BGPRTYPE=7) S X="Population: "_$S(BGPBEN=1:"AI/AN Only (Classification 01)",BGPBEN=2:"non AI/AN Only (Classification NOT 01)",BGPBEN=3:"All (Both AI/AN and non AI/AN)",1:"") D SET(X,1,1)
S X=" " D SET(X,1,1)
D ENDTIME
S X=" " D SET(X,1,1)
I BGPRTYPE=6 D PEDCP Q
S BGPCHSO="",X=0 F S X=$O(BGPSUL(X)) Q:X'=+X I $P(^BGPGPDCN(X,0),U,17) S BGPCHSO=1
S BGPCHSN="",X=0 F S X=$O(BGPSUL(X)) Q:X'=+X I '$P(^BGPGPDCN(X,0),U,17) S BGPCHSN=1
I BGPRTYPE=1,'$G(BGP9GPU) D GPRAHDRA
I BGPRTYPE=1,$G(BGP9GPU) D COMHDRA
I BGPRTYPE=7 D ONMHDR
I BGPROT'="P",'$D(BGPGUI) D
.S X="A delimited output file called "_BGPDELF D SET(X,1,1)
.S X="has been placed in the public directory for your use in Excel or some" D SET(X,1,1) S X="other software package. See your site manager to access this file." D SET(X,1,1)
S X=" " D SET(X,1,1)
I $G(BGPEXCEL),'$G(BGP9GPU),BGPRTYPE=1 D
.S X="National GPRA Filenames: " D SET(X,1,1) S X=BGPFGNT1 D SET(X,1,1) S X=BGPFGNT2 D SET(X,1,1) S X=BGPFGNT3 D SET(X,1,1) S X=BGPFGNT4 D SET(X,1,1) ;S X=BGPFN2 D SET(X,1,1) S X=" " D SET(X,1,1)
I BGPRTYPE=7 D
.S X="Other National Reporting Filenames: "_$G(BGPFONN1) D SET(X,1,1) S X="^"_BGPFONN2 D SET(X,1,1) S X="^"_BGPFONN3 D SET(X,1,1) S X=" " D SET(X,1,1)
S X="Report includes data from the following facilities:" D SET(X,1,1)
NEW BGPX
S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
.S X=$P(^BGPGPDCN(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(^BGPGPDCN(BGPX,0),U,17):"*",1:"")_X D SET(X,1,1)
.Q
S X=" " D SET(X,1,1)
S X="The following communities are included in this report:" D SET(X,1,1)
S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
.S X=$P(^BGPGPDCN(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(^BGPGPDCN(BGPX,0),U,17):"*",1:"")_X D SET(X,1,1)
.S X="Community Taxonomy Name: "_$P(^BGPGPDCN(BGPX,0),U,18) D SET(X,1,1)
.S X=0,N=0,Y="",Z="" F S X=$O(^BGPGPDCN(BGPX,9999,X)) Q:X'=+X S N=N+1,Y=Y_$S(N=1:"",1:";")_$P(^BGPGPDCN(BGPX,9999,X,0),U)
.S X=0,C=0 F X=1:3:N S Z=$E($P(Y,";",X),1,20),$P(Z,U,2)=$E($P(Y,";",(X+1)),1,20),$P(Z,U,3)=$E($P(Y,";",(X+2)),1,20) D SET(Z,1,1)
.I $O(^BGPGPDCN(BGPX,1111,0)) D
..S X=" " D SET(X,1,1)
..S X="MFI Site: Locations for visits: " D SET(X,1,1) S X=0,N=0,Y="",Z="" F S X=$O(^BGPGPDCN(BGPX,1111,X)) Q:X'=+X S N=N+1,Y=Y_$S(N=1:"",1:";")_$P(^BGPGPDCN(BGPX,1111,X,0),U)
..S X=0,C=0 F X=1:3:N S Z=$E($P(Y,";",X),1,20),$P(Z,U,2)=$E($P(Y,";",(X+1)),1,20),$P(Z,U,3)=$E($P(Y,";",(X+2)),1,20) D SET(Z,1,1)
..Q
.S X=" " D SET(X,1,1)
.Q
S X="ENDCOVERPAGE" D SET(X,1,1)
I BGPCHSO D
.S X=" " D SET(X,1,1) S X="* CHS-only site. Uses Active Clinical CHS Population definition vs. Active Clinical." D SET(X,1,1)
K BGPX,BGPQUIT
Q
PEDCP ;
D PEDCP^BGP9PDH1
Q
SET(Y,F,P) ;
I '$G(F) S F=0
S %=$P(^TMP($J,"BGPDEL",0),U)+F,$P(^TMP($J,"BGPDEL",0),U)=%
I '$D(^TMP($J,"BGPDEL",%)) S ^TMP($J,"BGPDEL",%)=""
S $P(^TMP($J,"BGPDEL",%),U,P)=Y
Q
CTR(X,Y) ;
Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
;----------
USR() ;
Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
;----------
;;
E ;;Elder Care-Related Measures
G ;;GPRA Measures (All)
A ;;AREA Director Performance Measures (All)
H ;;HEDIS Measures (All)
D ;;Diabetes-Related Measures
C ;;Cardiovascular Disease Prevention for At-Risk Patients
S ;;Selected Measures (User Defined)
W ;;Women's Health-Related Measures
P ;;Prevention Related Indictors
;
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
;;
BGP9PDLH ; IHS/CMI/LAB - cover page for del ;
+1 ;;9.0;IHS CLINICAL REPORTING;**1**;JUL 01, 2009
+2 ;
+3 SET X=""
DO SET(X,1,1)
+4 SET X="Cover Page"
DO SET(X,1,1)
+5 SET X=" "
DO SET(X,1,1)
+6 IF $GET(BGPAREAA)
GOTO AREACP
+7 IF BGPRTYPE=4
IF $GET(BGP9RPTH)="C"
SET X="*** IHS 2009 Selected Measures with Community Specified Report ***"
DO SET(X,1,1)
+8 IF BGPRTYPE=4
IF $GET(BGP9RPTH)="A"
SET X="*** IHS 2009 Selected Measures with All Communities Report ***"
DO SET(X,1,1)
+9 IF BGPRTYPE=4
IF $GET(BGP9RPTH)="P"
SET X="*** IHS 2009 Selected Measures with Patient Panel Population Report ***"
DO SET(X,1,1)
+10 IF BGPRTYPE=1
IF $GET(BGPNGR09)
SET X="*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***"
DO SET(X,1,1)
GOTO N
+11 IF BGPRTYPE=1
IF $GET(BGPDESGP)
SET X="*** IHS 2009 National GPRA & PART Report by Designated Provider ***"
DO SET(X,1,1)
GOTO N
+12 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF '$GET(BGPSUMON)
SET X="*** IHS 2009 National GPRA & PART Report ***"
DO SET(X,1,1)
+13 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF $GET(BGPSUMON)
SET X="*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***"
DO SET(X,1,1)
+14 IF BGPRTYPE=1
IF $GET(BGP9GPU)
SET X="*** IHS 2009 GPRA Performance & PART Report ***"
DO SET(X,1,1)
+15 IF BGPRTYPE=7
SET X="*** IHS 2009 Other National Measures Report ***"
DO SET(X,1,1)
+16 IF BGPRTYPE=6
IF '$GET(BGPEDPP)
SET X="*** IHS 2009 Patient Education with Community Specified Report ***"
DO SET(X,1,1)
+17 IF BGPRTYPE=6
IF $GET(BGPEDPP)
SET X="*** IHS 2009 Patient Education with Patient Panel Population Report ***"
DO SET(X,1,1)
N ;
+1 IF $GET(BGPCPPL)
SET X="** Including Comprehensive Patient List **"
DO SET(X,1,1)
+2 SET X=$$RPTVER^BGP9BAN
DO SET(X,1,1)
+3 SET X="Date Report Run: "_$$FMTE^XLFDT(DT)
DO SET(X,1,1)
+4 SET X="Site where Run: "_$PIECE(^DIC(4,DUZ(2),0),U)
DO SET(X,1,1)
+5 SET X="Report Generated by: "_$$USR
DO SET(X,1,1)
+6 SET X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)
DO SET(X,1,1)
+7 SET X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)
DO SET(X,1,1)
+8 SET X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)
DO SET(X,1,1)
+9 SET X=" "
DO SET(X,1,1)
+10 IF BGPRTYPE=6
SET X="Measures: Patient Education Performance Measures"
DO SET(X,1,1)
+11 IF BGPRTYPE=4
SET X="Measures: "_$PIECE($TEXT(@BGPINDT),";;",2)
DO SET(X,1,1)
+12 IF BGPRTYPE=1
SET X="Measures: GPRA, GPRA Developmental, and PART Denominators and Numerators and "
DO SET(X,1,1)
SET X="Selected Other Clinical Denominators and Numerators"
DO SET(X,1,1)
+13 IF BGPRTYPE=7
SET X="Measures: Key Clinical Denominators and Numerators for Non-GPRA National Reporting"
DO SET(X,1,1)
+14 IF '$GET(BGPSEAT)
SET X="Population: "_$SELECT(BGPBEN=1:"AI/AN Only (Classification 01)",BGPBEN=2:"non AI/AN Only (Classification NOT 01)",BGPBEN=3:"All (Both AI/AN and non AI/AN)",1:"")
DO SET(X,1,1)
+15 SET X=" "
DO SET(X,1,1)
+16 IF $GET(BGPSEAT)
SET X="Patient Panel Population: "_$PIECE(^DIBT(BGPSEAT,0),U)
DO SET(X,1,1)
+17 SET X=" "
DO SET(X,1,1)
+18 IF $GET(BGPDESGP)
SET X="Designated Provider: "_$PIECE(^VA(200,BGPDESGP,0),U)
DO SET(X,1,1)
DO SET(" ",1,1)
+19 DO ENDTIME
+20 IF BGPRTYPE=4
IF BGP9RPTH="C"
DO COMHDR
+21 IF BGPRTYPE=4
IF BGP9RPTH="P"
DO PPHDR
+22 IF BGPRTYPE=4
IF BGP9RPTH="A"
DO ALLHDR
+23 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF '$GET(BGPSUMON)
DO GPRAHDR
+24 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF $GET(BGPSUMON)
DO GPRAHDRS
+25 IF BGPRTYPE=1
IF $GET(BGP9GPU)
DO COMHDR
+26 IF BGPRTYPE=7
DO ONMHDR
+27 IF BGPRTYPE=6
DO PEHDR
+28 IF $GET(BGPEXPT)
IF BGPRTYPE=1
Begin DoDot:1
+29 SET X="A file will be created called BG09"_$PIECE(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT_"."
DO SET(X,1,1)
+30 SET X="It will reside in the public/export directory."
DO SET(X,1,1)
+31 SET X="This file should be sent to your Area Office."
DO SET(X,1,1)
End DoDot:1
+32 SET X=" "
DO SET(X,1,1)
+33 IF $GET(BGPEXPT)
IF BGPRTYPE=7
Begin DoDot:1
+34 SET X="A file will be created called BG09"_$PIECE(^AUTTLOC(DUZ(2),0),U,10)_".ONM"_BGPRPT_"."
DO SET(X,1,1)
+35 SET X="It will reside in the public/export directory."
DO SET(X,1,1)
+36 SET X="This file should be sent to your Area Office."
DO SET(X,1,1)
End DoDot:1
+37 IF $GET(BGPYWCHW)=2
SET X="HT/WT Filename: "_BGPFN
DO SET(X,1,1)
SET X=" "
DO SET(X,1,1)
+38 IF BGPRTYPE=6
IF $GET(BGPPEEXP)
Begin DoDot:1
+39 SET X="A file will be created called BG09"_$PIECE(^AUTTLOC(DUZ(2),0),U,10)_".PED"_BGPRPT_"."
DO SET(X,1,1)
+40 SET X="This file will reside in the public/export directory."
DO SET(X,1,1)
+41 SET X="This file should be sent to your Area Office."
DO SET(X,1,1)
+42 SET X=" "
DO SET(X,1,1)
End DoDot:1
+43 IF BGPROT'="P"
Begin DoDot:1
+44 IF $DATA(BGPGUI)
QUIT
+45 SET X="A delimited output file called "_BGPDELF
DO SET(X,1,1)
SET X="has been placed in the public directory for your use in Excel or some"
DO SET(X,1,1)
SET X="other software package."
DO SET(X,1,1)
+46 SET X="See your site manager to access this file."
DO SET(X,1,1)
End DoDot:1
+47 SET X=" "
DO SET(X,1,1)
+48 IF BGP9RPTH="P"
KILL BGPX,BGPQUIT
QUIT
+49 IF $GET(BGPALLPT)
SET X="All Communities Included."
DO SET(X,1,1)
+50 IF '$GET(BGPALLPT)
IF '$GET(BGPSEAT)
SET X="Community Taxonomy Name: "_$PIECE(^ATXAX(BGPTAXI,0),U)
DO SET(X,1,1)
+51 IF '$GET(BGPALLPT)
IF '$GET(BGPSEAT)
SET X="The following communities are included in this report:"
DO SET(X,1,1)
Begin DoDot:1
+52 SET BGPZZ=""
SET N=0
SET Y=""
FOR
SET BGPZZ=$ORDER(BGPTAX(BGPZZ))
IF BGPZZ=""
QUIT
SET N=N+1
SET Y=Y_$SELECT(N=1:"",1:";")_BGPZZ
+53 SET BGPZZ=0
SET C=0
FOR BGPZZ=1:3:N
Begin DoDot:2
+54 SET X=$EXTRACT($PIECE(Y,";",BGPZZ),1,20)
SET $PIECE(X,U,2)=$EXTRACT($PIECE(Y,";",(BGPZZ+1)),1,20)
SET $PIECE(X,U,3)=$EXTRACT($PIECE(Y,";",(BGPZZ+2)),1,20)
DO SET(X,1,1)
+55 SET X=$EXTRACT($GET(BGPTAX(BGPZZ)),1,20)
SET $PIECE(X,U,2)=$EXTRACT($GET(BGPTAX(BGPZZ+1)),1,20)
SET $PIECE(X,U,4)=$EXTRACT($GET(BGPTAX(BGPZZ+2)),1,20)
DO SET(X,1,1)
+56 QUIT
End DoDot:2
End DoDot:1
+57 SET X=" "
DO SET(X,1,1)
+58 SET X=" "
DO SET(X,1,1)
+59 IF $GET(BGPMFITI)
SET X="MFI Location Taxonomy Name: "_$PIECE(^ATXAX(BGPMFITI,0),U)
DO SET(X,1,1)
+60 IF $GET(BGPMFITI)
SET X="The following locations are used for patient visits in this report:"
DO SET(X,1,1)
Begin DoDot:1
+61 SET BGPZZ=""
SET N=0
SET Y=""
FOR
SET BGPZZ=$ORDER(^ATXAX(BGPMFITI,21,"B",BGPZZ))
IF BGPZZ=""
QUIT
SET N=N+1
SET Y=Y_$SELECT(N=1:"",1:";")_$PIECE($GET(^DIC(4,BGPZZ,0)),U)
+62 SET BGPZZ=0
SET C=0
FOR BGPZZ=1:3:N
Begin DoDot:2
+63 SET X=$EXTRACT($PIECE(Y,";",BGPZZ),1,20)
SET $PIECE(X,U,2)=$EXTRACT($PIECE(Y,";",(BGPZZ+1)),1,20)
SET $PIECE(X,U,3)=$EXTRACT($PIECE(Y,";",(BGPZZ+2)),1,20)
DO SET(X,1,1)
+64 QUIT
End DoDot:2
End DoDot:1
+65 KILL BGPX,BGPQUIT
+66 SET X=" "
DO SET(X,1,1)
+67 IF BGPRTYPE'=6
DO SET("ENDCOVERPAGE",1,1)
+68 QUIT
PEHDR ;EP
+1 DO PEHDR^BGP9PDH1
+2 QUIT
COMHDR ;
+1 DO COMHDR^BGP9PDH1
+2 QUIT
ONMHDR ;
+1 SET X=" "
DO SET(X,1,1)
+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 DO SET(BGPT,1,1)
End DoDot:1
+6 IF BGPRTC="U"
Begin DoDot:1
+7 DO SET("3. User defines population: a) Indian/Alaska Natives Only - based on",1,1)
+8 DO SET("Classification of 01; b) Non AI/AN (not 01); or c) Both.",1,1)
End DoDot:1
+9 IF BGPRTC="H"
Begin DoDot:1
+10 DO SET("3. Indian/Alaska Natives Only - based on Classification of 01.",1,1)
End DoDot:1
+11 SET BGPTEXT="ONH2"
FOR BGPJ1=1:1
SET BGPX=$TEXT(@BGPTEXT+BGPJ1)
IF $PIECE(BGPX,";;",2)="QUIT"
QUIT
Begin DoDot:1
+12 SET BGPT=$PIECE(BGPX,";;",2)
+13 DO SET(BGPT,1,1)
End DoDot:1
+14 DO SET(" ",1,1)
+15 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 DO SET(BGPT,1,1)
End DoDot:1
+4 IF BGPRTC="U"
Begin DoDot:1
+5 DO SET("3. User defines population: a) Indian/Alaska Natives Only - based on",1,1)
+6 DO SET("Classification of 01; b) Non AI/AN (not 01); or c) Both.",1,1)
End DoDot:1
+7 IF BGPRTC="H"
Begin DoDot:1
+8 DO SET("3. Indian/Alaska Natives Only - based on Classification of 01.",1,1)
End DoDot:1
+9 SET BGPTEXT="ONH2C"
FOR BGPJ1=1:1
SET BGPX=$TEXT(@BGPTEXT+BGPJ1)
IF $PIECE(BGPX,";;",2)="QUIT"
QUIT
Begin DoDot:1
+10 SET BGPT=$PIECE(BGPX,";;",2)
+11 DO SET(BGPT,1,1)
End DoDot:1
+12 DO SET(" ",1,1)
+13 QUIT
PPHDR ;
+1 DO PPHDR^BGP9PDH1
+2 QUIT
ALLHDR ;
+1 DO ALLHDR^BGP9PDH1
+2 QUIT
GPRAHDRS ;
+1 DO GPRAHDRS^BGP9PDH1
+2 QUIT
DENOMHDR ;
+1 DO DENOMHDR^BGP9PDH1
+2 QUIT
AREAHDR ;
+1 SET X=" "
DO SET(X,1,1)
+2 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+3 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,15,BGPY))
IF BGPY'=+BGPY
QUIT
Begin DoDot:1
+4 SET X=^BGPCTRL(BGPX,15,BGPY,0)
DO SET(X,1,1)
+5 QUIT
End DoDot:1
+6 QUIT
GPRAHDR ;
+1 SET X=" "
DO SET(X,1,1)
+2 SET BGPNODEP=$SELECT(BGPCHSO:23,1:14)
+3 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+4 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY
QUIT
Begin DoDot:1
+5 SET X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
DO SET(X,1,1)
+6 QUIT
End DoDot:1
+7 QUIT
GPRAHDRA ;
+1 SET X=" "
DO SET(X,1,1)
+2 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+3 SET BGPNODEP=$SELECT(BGPCHSO&('BGPCHSN):23,(BGPCHSO+BGPCHSN)=2:29,1:14)
+4 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY
QUIT
Begin DoDot:1
+5 SET X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
DO SET(X,1,1)
+6 QUIT
End DoDot:1
+7 QUIT
COMHDRA ;
+1 SET X=" "
DO SET(X,1,1)
+2 SET BGPX=$ORDER(^BGPCTRL("B",2009,0))
+3 SET BGPNODEP=$SELECT(BGPCHSO&('BGPCHSN):24,(BGPCHSO+BGPCHSN)=2:31,1:17)
+4 SET BGPY=0
FOR
SET BGPY=$ORDER(^BGPCTRL(BGPX,BGPNODEP,BGPY))
IF BGPY'=+BGPY
QUIT
Begin DoDot:1
+5 SET X=^BGPCTRL(BGPX,BGPNODEP,BGPY,0)
DO SET(X,1,1)
+6 QUIT
End DoDot:1
+7 IF $GET(BGP9GPU)
DO SET("See last pages of this report for Performance Summaries.",1,1)
DO SET(" ",1,1)
+8 QUIT
ENDTIME ;
+1 IF $DATA(BGPET)
SET BGPTS=(86400*($PIECE(BGPET,",")-$PIECE(BGPBT,",")))+($PIECE(BGPET,",",2)-$PIECE(BGPBT,",",2))
SET BGPHR=$PIECE(BGPTS/3600,".")
IF BGPHR=""
SET BGPHR=0
Begin DoDot:1
+2 SET BGPTS=BGPTS-(BGPHR*3600)
SET BGPM=$PIECE(BGPTS/60,".")
IF BGPM=""
SET BGPM=0
SET BGPTS=BGPTS-(BGPM*60)
SET BGPS=BGPTS
SET X="RUN TIME (H.M.S): "_BGPHR_"."_BGPM_"."_BGPS
DO SET(X,1,1)
End DoDot:1
+3 QUIT
AREACP ;EP - ACP
+1 ;
+2 IF BGPRTYPE=6
SET X="*** IHS 2009 Patient Education with Community Specified Report***"
DO SET(X,1,1)
+3 IF BGPRTYPE=1
IF $GET(BGPNGR09)
SET X="*** IHS 2010 National GPRA & PART Report, Run Using 2009 Logic ***"
DO SET(X,1,1)
GOTO NA
+4 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF '$GET(BGPSUMON)
SET X="*** IHS 2009 National GPRA & PART Report ***"
DO SET(X,1,1)
+5 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
IF $GET(BGPSUMON)
SET X="*** IHS 2009 National GPRA & PART Report Clinical Performance Summaries ***"
DO SET(X,1,1)
+6 IF BGPRTYPE=1
IF $GET(BGP9GPU)
SET X="*** IHS 2009 GPRA & PART Performance Report ***"
DO SET(X,1,1)
+7 IF BGPRTYPE=7
DO SET("*** IHS 2009 Other National Measures Report ***",1,1)
NA SET X="AREA AGGREGATE"
DO SET(X,1,1)
+1 SET X=$$RPTVER^BGP9BAN
DO SET(X,1,1)
+2 SET X="Date Report Run: "_$$FMTE^XLFDT(DT)
DO SET(X,1,1)
+3 SET X="Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04)
DO SET(X,1,1)
+4 SET X="Report Generated by: "_$$USR
DO SET(X,1,1)
+5 SET X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED)
DO SET(X,1,1)
+6 SET X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED)
DO SET(X,1,1)
+7 SET X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED)
DO SET(X,1,1)
+8 SET X=" "
DO SET(X,1,1)
+9 IF BGPRTYPE=6
SET X="Measures: Patient Education Performance Measures"
DO SET(X,1,1)
+10 IF BGPRTYPE=1
SET X="Measures: GPRA, GPRA Developmental, and PART Denominators and Numerators and "
DO SET(X,1,1)
SET X="Selected Other Clinical Denominators and Numerators"
DO SET(X,1,1)
+11 IF BGPRTYPE=7
DO SET("Measures: Key Clinical Denominators and Numerators for Non-GPRA National Reporting",1,1)
+12 IF BGPRTYPE=1!(BGPRTYPE=6)!(BGPRTYPE=7)
SET X="Population: "_$SELECT(BGPBEN=1:"AI/AN Only (Classification 01)",BGPBEN=2:"non AI/AN Only (Classification NOT 01)",BGPBEN=3:"All (Both AI/AN and non AI/AN)",1:"")
DO SET(X,1,1)
+13 SET X=" "
DO SET(X,1,1)
+14 DO ENDTIME
+15 SET X=" "
DO SET(X,1,1)
+16 IF BGPRTYPE=6
DO PEDCP
QUIT
+17 SET BGPCHSO=""
SET X=0
FOR
SET X=$ORDER(BGPSUL(X))
IF X'=+X
QUIT
IF $PIECE(^BGPGPDCN(X,0),U,17)
SET BGPCHSO=1
+18 SET BGPCHSN=""
SET X=0
FOR
SET X=$ORDER(BGPSUL(X))
IF X'=+X
QUIT
IF '$PIECE(^BGPGPDCN(X,0),U,17)
SET BGPCHSN=1
+19 IF BGPRTYPE=1
IF '$GET(BGP9GPU)
DO GPRAHDRA
+20 IF BGPRTYPE=1
IF $GET(BGP9GPU)
DO COMHDRA
+21 IF BGPRTYPE=7
DO ONMHDR
+22 IF BGPROT'="P"
IF '$DATA(BGPGUI)
Begin DoDot:1
+23 SET X="A delimited output file called "_BGPDELF
DO SET(X,1,1)
+24 SET X="has been placed in the public directory for your use in Excel or some"
DO SET(X,1,1)
SET X="other software package. See your site manager to access this file."
DO SET(X,1,1)
End DoDot:1
+25 SET X=" "
DO SET(X,1,1)
+26 IF $GET(BGPEXCEL)
IF '$GET(BGP9GPU)
IF BGPRTYPE=1
Begin DoDot:1
+27 ;S X=BGPFN2 D SET(X,1,1) S X=" " D SET(X,1,1)
SET X="National GPRA Filenames: "
DO SET(X,1,1)
SET X=BGPFGNT1
DO SET(X,1,1)
SET X=BGPFGNT2
DO SET(X,1,1)
SET X=BGPFGNT3
DO SET(X,1,1)
SET X=BGPFGNT4
DO SET(X,1,1)
End DoDot:1
+28 IF BGPRTYPE=7
Begin DoDot:1
+29 SET X="Other National Reporting Filenames: "_$GET(BGPFONN1)
DO SET(X,1,1)
SET X="^"_BGPFONN2
DO SET(X,1,1)
SET X="^"_BGPFONN3
DO SET(X,1,1)
SET X=" "
DO SET(X,1,1)
End DoDot:1
+30 SET X="Report includes data from the following facilities:"
DO SET(X,1,1)
+31 NEW BGPX
+32 SET BGPX=""
SET BGPC=0
FOR
SET BGPX=$ORDER(BGPSUL(BGPX))
IF BGPX=""
QUIT
Begin DoDot:1
+33 SET X=$PIECE(^BGPGPDCN(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(^BGPGPDCN(BGPX,0),U,17):"*",1:"")_X
DO SET(X,1,1)
+35 QUIT
End DoDot:1
+36 SET X=" "
DO SET(X,1,1)
+37 SET X="The following communities are included in this report:"
DO SET(X,1,1)
+38 SET BGPX=""
SET BGPC=0
FOR
SET BGPX=$ORDER(BGPSUL(BGPX))
IF BGPX=""
QUIT
Begin DoDot:1
+39 SET X=$PIECE(^BGPGPDCN(BGPX,0),U,9)
SET X=$ORDER(^AUTTLOC("C",X,0))
SET X=$SELECT(X:$PIECE(^DIC(4,X,0),U),1:"?????")
+40 SET BGPC=BGPC+1
SET X=BGPC_". "_$SELECT($PIECE(^BGPGPDCN(BGPX,0),U,17):"*",1:"")_X
DO SET(X,1,1)
+41 SET X="Community Taxonomy Name: "_$PIECE(^BGPGPDCN(BGPX,0),U,18)
DO SET(X,1,1)
+42 SET X=0
SET N=0
SET Y=""
SET Z=""
FOR
SET X=$ORDER(^BGPGPDCN(BGPX,9999,X))
IF X'=+X
QUIT
SET N=N+1
SET Y=Y_$SELECT(N=1:"",1:";")_$PIECE(^BGPGPDCN(BGPX,9999,X,0),U)
+43 SET X=0
SET C=0
FOR X=1:3:N
SET Z=$EXTRACT($PIECE(Y,";",X),1,20)
SET $PIECE(Z,U,2)=$EXTRACT($PIECE(Y,";",(X+1)),1,20)
SET $PIECE(Z,U,3)=$EXTRACT($PIECE(Y,";",(X+2)),1,20)
DO SET(Z,1,1)
+44 IF $ORDER(^BGPGPDCN(BGPX,1111,0))
Begin DoDot:2
+45 SET X=" "
DO SET(X,1,1)
+46 SET X="MFI Site: Locations for visits: "
DO SET(X,1,1)
SET X=0
SET N=0
SET Y=""
SET Z=""
FOR
SET X=$ORDER(^BGPGPDCN(BGPX,1111,X))
IF X'=+X
QUIT
SET N=N+1
SET Y=Y_$SELECT(N=1:"",1:";")_$PIECE(^BGPGPDCN(BGPX,1111,X,0),U)
+47 SET X=0
SET C=0
FOR X=1:3:N
SET Z=$EXTRACT($PIECE(Y,";",X),1,20)
SET $PIECE(Z,U,2)=$EXTRACT($PIECE(Y,";",(X+1)),1,20)
SET $PIECE(Z,U,3)=$EXTRACT($PIECE(Y,";",(X+2)),1,20)
DO SET(Z,1,1)
+48 QUIT
End DoDot:2
+49 SET X=" "
DO SET(X,1,1)
+50 QUIT
End DoDot:1
+51 SET X="ENDCOVERPAGE"
DO SET(X,1,1)
+52 IF BGPCHSO
Begin DoDot:1
+53 SET X=" "
DO SET(X,1,1)
SET X="* CHS-only site. Uses Active Clinical CHS Population definition vs. Active Clinical."
DO SET(X,1,1)
End DoDot:1
+54 KILL BGPX,BGPQUIT
+55 QUIT
PEDCP ;
+1 DO PEDCP^BGP9PDH1
+2 QUIT
SET(Y,F,P) ;
+1 IF '$GET(F)
SET F=0
+2 SET %=$PIECE(^TMP($JOB,"BGPDEL",0),U)+F
SET $PIECE(^TMP($JOB,"BGPDEL",0),U)=%
+3 IF '$DATA(^TMP($JOB,"BGPDEL",%))
SET ^TMP($JOB,"BGPDEL",%)=""
+4 SET $PIECE(^TMP($JOB,"BGPDEL",%),U,P)=Y
+5 QUIT
CTR(X,Y) ;
+1 QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X
+2 ;----------
USR() ;
+1 QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
+2 ;----------
+3 ;;
E ;;Elder Care-Related Measures
G ;;GPRA Measures (All)
A ;;AREA Director Performance Measures (All)
H ;;HEDIS Measures (All)
D ;;Diabetes-Related Measures
C ;;Cardiovascular Disease Prevention for At-Risk Patients
S ;;Selected Measures (User Defined)
W ;;Women's Health-Related Measures
P ;;Prevention Related Indictors
+1 ;
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
+10 ;;
