Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGP7DPH

BGP7DPH.m

Go to the documentation of this file.
  1. BGP7DPH ; IHS/CMI/LAB - AREA REPORT HEADER 01 Jul 2010 7:54 PM ;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  1. ;
  1. ;HEADERS FOR REPORTS
  1. CALC(N,O) ;ENTRY POINT
  1. NEW Z
  1. ;I O=0!(N=0)!(O="")!(N="") Q "**"
  1. ;NEW X,X2,X3
  1. ;S X=N,X2=1,X3=0 D COMMA^%DTC S N=X
  1. ;S X=O,X2=1,X3=0 D COMMA^%DTC S O=X
  1. ;I +O=0 Q "**"
  1. ;S Z=(((N-O)/O)*100),Z=$FN(Z,"+,",1)
  1. S Z=N-O,Z=$FN(Z,"+,",1)
  1. Q Z
  1. C(X,X2,X3) ;
  1. D COMMA^%DTC
  1. Q X
  1. H2 ;EP
  1. Q:$G(BGPSUMON)
  1. S BGPX="",BGPX=$$C(BGPCYN,0,8),$E(BGPX,9)=$J(BGPCYP,5,1),$E(BGPX,16)=$$C(BGPPRN,0,8),$E(BGPX,24)=$J(BGPPRP,5,1),$E(BGPX,32)=$J($$CALC(BGPCYP,BGPPRP),6),$E(BGPX,39)=$$C(BGPBLN,0,8),$E(BGPX,47)=$J(BGPBLP,5,1)
  1. S $E(BGPX,55)=$J($$CALC(BGPCYP,BGPBLP),6)
  1. W ?20,BGPX
  1. Q
  1. H6 ;EP
  1. Q:$G(BGPSUMON)
  1. W !,"Age specific Exercise Education Provided",!!,$$CTR(BGPHD1,80),!
  1. W !?40,"Age Distribution"
  1. W !?25,"0-9",?30,"10-19",?37,"20-24",?44,"25-34",?51,"35-44",?58,"45-54",?65,"55-64",?72,"65+ yrs",!
  1. Q
  1. H3 ;EP
  1. Q:$G(BGPSUMON)
  1. W !!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?25,"<15",?30,"15-19",?37,"20-24",?44,"25-34",?51,"35-44",?58,"45-54",?65,"55-64",?72,"65+ yrs",!
  1. Q
  1. H4 ;EP
  1. Q:$G(BGPSUMON)
  1. W !!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?35,"<12",?46,"12-17",?58,"18+",!
  1. Q
  1. H10 ;EP
  1. Q:$G(BGPSUMON)
  1. W !!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?35,"65-74",?46,"75-84",?58,"85+",!
  1. Q
  1. H5 ;
  1. Q:$G(BGPSUMON)
  1. W !,"Age specific Tobacco Use Prevalence",!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?25,"0-9",?30,"10-19",?37,"20-24",?44,"25-34",?51,"35-44",?58,"45-54",?65,"55-64",?72,"65+ yrs"
  1. Q
  1. H1 ;EP
  1. Q:$G(BGPSUMON)
  1. ;I BGPFONE W !!,$P(^BGPINDG(BGPIC,0),U,3),!
  1. W !!?21,"REPORT",?31,"%",?35,"PREV YR",?46,"%",?49,"CHG from",?59,"BASE",?69,"%",?72,"CHG from"
  1. W !?21,"PERIOD",?35,"PERIOD",?49,"PREV YR %",?59,"PERIOD",?72,"BASE %"
  1. S BGPFONE=0
  1. Q
  1. H9 ;EP
  1. Q:$G(BGPSUMON)
  1. W !!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?25,"0-5",?30,"6-21",?37,"22-34",?44,"35-44",?51,"45-54",?58,"55-74",?65,"75+ yrs",! ;?72,"75+ yrs",!
  1. Q
  1. HPA ;EP
  1. Q:$G(BGPSUMON)
  1. W !!,$$CTR(BGPHD1,80)
  1. W !?40,"Age Distribution"
  1. W !?25,"5-11",?30,"12-19",?37,"20-24",?44,"25-34",?51,"35-44",?58,"45-54",?65,"55-74",?72,"75+ yrs",!
  1. Q
  1. I BGPPTYPE="D",'$G(BGPDASH) Q
  1. G:'BGPGPG HEADER1
  1. K DIR I $E(IOST)="C",IO=IO(0),'$D(ZTQUEUED) W ! S DIR(0)="EO" D ^DIR K DIR I Y=0!(Y="^")!($D(DTOUT)) S BGPQUIT=1 Q
  1. HEADER1 ;
  1. I BGPPTYPE="P" W:$D(IOF) @IOF S BGPGPG=BGPGPG+1
  1. I $G(BGPGUI),BGPPTYPE="P" D W^BGP7DP("ZZZZZZZ",0,0,BGPPTYPE),W^BGP7DP("",0,1,BGPPTYPE) ;GUI
  1. I BGPPTYPE="P" S X=$P(^VA(200,DUZ,0),U,2),$E(X,35)=$$FMTE^XLFDT(DT),$E(X,70)="Page "_BGPGPG D W^BGP7DP(X,1,1,BGPPTYPE)
  1. I BGPPTYPE'="P" S X=$P(^VA(200,DUZ,0),U,2),$P(X,U,2)=$$FMTE^XLFDT(DT) D W^BGP7DP(X,0,1,BGPPTYPE)
  1. I $G(BGPDASH) D W^BGP7DP("*** IHS 2017 National GPRA Dashboard ***",1,1,BGPPTYPE) G N
  1. I $G(BGPNPL),BGPRTYPE=1 D W^BGP7DP("*** IHS 2017 GPRA/GPRAMA Patient List ***",1,2,BGPPTYPE) G N
  1. I $G(BGPNPL),BGPRTYPE=9 D W^BGP7DP("*** IHS 2017 GPRA Developmental Measures Patient List ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=4,$G(BGPYRPTH)="C" D W^BGP7DP("*** IHS 2017 Selected Measures with Community Specified Report ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=4,$G(BGPYRPTH)="A" D W^BGP7DP("*** IHS 2017 Selected Measures with All Communities Report ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=4,$G(BGPYRPTH)="P" D W^BGP7DP("*** IHS 2017 Selected Measures with Patient Panel Population Report ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=1!(BGPRTYPE=9),$G(BGPNGR09) D W^BGP7DP("*** IHS 2017 National GPRA/GPRAMA Report, Run Using 2017 Logic ***",1,1,BGPPTYPE) G N
  1. I BGPRTYPE=1!(BGPRTYPE=9),$G(BGPDESGP) D W^BGP7DP("*** IHS 2017 National GPRA/GPRAMA Report by Designated Provider ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=1!(BGPRTYPE=9),'$G(BGPYGPU) D W^BGP7DP("*** IHS 2017 National GPRA/GPRAMA Report ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=1!(BGPRTYPE=9),$G(BGPYGPU) D W^BGP7DP("*** IHS 2017 GPRA/GPRAMA Performance Report ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=9 D W^BGP7DP("*** Developmental Measures ***",1,1,BGPPTYPE)
  1. D:BGPRTYPE=3 W^BGP7DP("*** IHS 2017 HEDIS Clinical Performance ***",1,1,BGPPTYPE)
  1. D:BGPRTYPE=5 W^BGP7DP("*** IHS 2017 ELDER CARE Clinical Performance ***",1,1,BGPPTYPE)
  1. I BGPRTYPE=7 D W^BGP7DP("IHS 2017 Other National Measures Report ***",1,1,BGPPTYPE)
  1. N I $G(BGPAREAA) D W^BGP7DP("AREA AGGREGATE",1,1,BGPPTYPE)
  1. I '$G(BGPAREAA) D W^BGP7DP($P(^DIC(4,DUZ(2),0),U),1,1,BGPPTYPE)
  1. I $G(BGPDESGP) D W^BGP7DP("Designated Provider: "_$P(^VA(200,BGPDESGP,0),U),1,1,BGPPTYPE)
  1. S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D W^BGP7DP(X,1,1,BGPPTYPE)
  1. S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D W^BGP7DP(X,1,1,BGPPTYPE)
  1. I '$G(BGPDASH) S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D W^BGP7DP(X,1,1,BGPPTYPE)
  1. D W^BGP7DP($TR($J("",80)," ","-"),0,1,BGPPTYPE)
  1. Q
  1. CTR(X,Y) ;EP - Center X in a field Y wide.
  1. Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X
  1. ;----------
  1. EOP ;EP - End of page.
  1. Q:$E(IOST)'="C"
  1. Q:$D(ZTQUEUED)!'(IOT="TRM")!$D(IO("S"))
  1. NEW DIR
  1. K DIRUT,DFOUT,DLOUT,DTOUT,DUOUT
  1. S DIR(0)="E" D ^DIR
  1. Q
  1. ;----------
  1. USR() ;EP - Return name of current user from ^VA(200.
  1. Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")
  1. ;----------