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

BGP4HEH.m

Go to the documentation of this file.
  1. BGP4HEH ; IHS/CMI/LAB - cover page for HEDIS ;
  1. ;;7.0;IHS CLINICAL REPORTING;;JAN 24, 2007
  1. ;
  1. ;
  1. W:$D(IOF) @IOF
  1. W !!,$$CTR("Cover Page",80)
  1. W:BGPRTYPE=3 !!,$$CTR("*** IHS FY04 HEDIS Clinical Performance Indicators ***",80)
  1. W !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  1. W !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80)
  1. W !,$$CTR("Report Generated by: "_$$USR,80)
  1. S X="Reporting Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) W !,$$CTR(X,80)
  1. S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) W !,$$CTR(X,80)
  1. S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) W !,$$CTR(X,80)
  1. I BGPRTYPE=3 W !!,"Indicators: HEDIS Indicators"
  1. W !,"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:"")
  1. D ENDTIME
  1. D HEDISHDR
  1. I $G(BGPEXPT) W !!,"A file will be created called BG04",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!
  1. I BGPROT'="P" 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.",!
  1. I $G(BGPALLPT) W !!,"All Communities Included.",!
  1. I '$G(BGPALLPT),'$G(BGPSEAT) W !?10,"Community Taxonomy Name: ",$P(^ATXAX(BGPTAXI,0),U)
  1. I '$G(BGPALLPT),'$G(BGPSEAT) W !?10,"The following communities are included in this report:",! D
  1. .S BGPZZ="",N=0,Y="" F S BGPZZ=$O(BGPTAX(BGPZZ)) Q:BGPZZ="" S N=N+1,Y=Y_$S(N=1:"",1:";")_BGPZZ
  1. .S BGPZZ=0,C=0 F BGPZZ=1:3:N D
  1. ..I $Y>(IOSL-3) D EOP
  1. ..W !?10,$E($P(Y,";",BGPZZ),1,20),?30,$E($P(Y,";",(BGPZZ+1)),1,20),?60,$E($P(Y,";",(BGPZZ+2)),1,20)
  1. ..Q
  1. K BGPX,BGPQUIT
  1. Q
  1. HEDISHDR ;
  1. W !
  1. Q:$G(BGPSEAT)
  1. S BGPX=$O(^BGPCTRL("B",2004,0))
  1. S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,16,BGPY)) Q:BGPY'=+BGPY D
  1. .I $Y>(IOSL-2) D EOP W:$D(IOF) @IOF
  1. .W !,^BGPCTRL(BGPX,16,BGPY,0)
  1. .Q
  1. Q
  1. ENDTIME ;
  1. 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
  1. .S BGPTS=BGPTS-(BGPHR*3600),BGPM=$P(BGPTS/60,".") S:BGPM="" BGPM=0 S BGPTS=BGPTS-(BGPM*60),BGPS=BGPTS W !!,"RUN TIME (H.M.S): ",BGPHR,".",BGPM,".",BGPS
  1. Q
  1. AREACP ;EP - area cover page
  1. ;
  1. W:$D(IOF) @IOF
  1. W !!,$$CTR("Cover Page",80)
  1. W:BGPRTYPE=3 !!,$$CTR("*** IHS FY04 HEDIS Clinical Performance Indicators ***",80)
  1. W !,$$CTR("AREA AGGREGATE",80)
  1. W !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  1. W !,$$CTR("Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04))
  1. W !,$$CTR("Report Generated by: "_$$USR,80)
  1. S X="Reporting Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) W !,$$CTR(X,80)
  1. S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) W !,$$CTR(X,80)
  1. S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) W !,$$CTR(X,80)
  1. I BGPRTYPE=3 W !!,"Indicators: HEDIS Indicators"
  1. W !,"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:"")
  1. D ENDTIME
  1. D HEDISHDR
  1. I $G(BGPEXPT) W !!,"A file will be created called BG04",$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!
  1. I BGPROT'="P" 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.",!
  1. W !!?1,"Report includes the following facility data:"
  1. NEW BGPX
  1. S BGPX="" F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
  1. .I $Y>(IOSL-5) D EOP W:$D(IOF) @IOF
  1. .S X=$P(^BGPHEDCF(BGPX,0),U,9),X=$O(^AUTTLOC("C",X,0)) S X=$S(X:$P(^DIC(4,X,0),U),1:"?????")
  1. .W !?3,X
  1. .W !?5,"Communities: " S X=0,N=0,Y="" F S X=$O(^BGPHEDCF(BGPX,9999,X)) Q:X'=+X S N=N+1,Y=Y_$S(N=1:"",1:";")_$P(^BGPHEDCF(BGPX,9999,X,0),U)
  1. .S X=0,C=0 F X=1:3:N W !?10,$E($P(Y,";",X),1,20),?30,$E($P(Y,";",(X+1)),1,20),?60,$E($P(Y,";",(X+2)),1,20)
  1. .Q
  1. K BGPX,BGPQUIT
  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. ;----------
  1. ;;
  1. G ;;GPRA Indicators (All)
  1. A ;;AREA Director Performance Indicators (All)
  1. H ;;HEDIS Indicators (All)
  1. D ;;Diabetes Indicators (All)
  1. C ;;Cardiovascular Indicators (All)
  1. S ;;Selected Indicators
  1. W ;;Women's Health Related Indicators
  1. P ;;Prevention Related Indictors