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

BGP2DH.m

Go to the documentation of this file.
  1. BGP2DH ; IHS/CMI/LAB - cover page for gpra 28 Apr 2010 11:30 AM 02 Jul 2010 9:25 AM ; 18 Oct 2011 8:58 AM
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;
  1. S BGPQHDR=0,BGPHPG=0
  1. D HDR
  1. I BGPPTYPE="P" Q:BGPQHDR
  1. D MD
  1. D PD
  1. I BGPRTYPE=1,$G(BGPDESGP) D W^BGP2DP("Designated Provider: "_$P(^VA(200,BGPDESGP,0),U,1),0,2,BGPPTYPE)
  1. D ENDTIME
  1. I $G(BGPDASH) D DASH^BGP2DH2 G N1
  1. I BGPRTYPE=4,BGPYRPTH="C" D COMHDR
  1. I BGPRTYPE=4,BGPYRPTH="P" D PPHDR
  1. I BGPRTYPE=4,BGPYRPTH="A" D ALLHDR
  1. I BGPRTYPE=1,'$G(BGPYGPU),'$G(BGPSUMON) D GPRAHDR
  1. I BGPRTYPE=1,'$G(BGPYGPU),$G(BGPSUMON) D GPRAHDRS
  1. I BGPRTYPE=1,$G(BGPYGPU),'$G(BGPSEAT) D GPRAHDR
  1. I BGPRTYPE=1,$G(BGPYGPU),$G(BGPSEAT) D GPUPPHDR^BGP2DH1
  1. I BGPRTYPE=6 D PEHDR
  1. I BGPRTYPE=7 D ONMHDR
  1. N1 I BGPPTYPE="P" Q:BGPQHDR
  1. I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1. I $G(BGPEXPT),BGPRTYPE=1 D ;,'$G(BGPNGR09) D
  1. .D W^BGP2DP("A file will be created called BG121"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,0,2,BGPPTYPE)
  1. .D W^BGP2DP("It will reside in the "_BGPUF_" directory.",0,1,BGPPTYPE)
  1. .D W^BGP2DP("This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1. .D W^BGP2DP("",0,1,BGPPTYPE)
  1. I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1. I $G(BGPEXPT),BGPRTYPE=7 D
  1. .D W^BGP2DP("A file will be created called BG121"_$P(^AUTTLOC(DUZ(2),0),U,10)_".ONM"_BGPRPT,0,2,BGPPTYPE)
  1. .D W^BGP2DP("It will reside in the "_BGPUF_" directory.",0,1,BGPPTYPE)
  1. .D W^BGP2DP("This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1. .D W^BGP2DP("",0,1,BGPPTYPE)
  1. I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1. I $G(BGPYWCHW)=2 D W^BGP2DP("HT/WT filename: "_BGPFN,0.2),W^BGP2DP("",0,1,BGPPTYPE)
  1. I BGPRTYPE=6,$G(BGPPEEXP) D Q:BGPQHDR
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1. .D W^BGP2DP("A file will be created called BG121"_$P(^AUTTLOC(DUZ(2),0),U,10)_".PED"_BGPRPT_" and will reside",0,1,BGPPTYPE)
  1. .D W^BGP2DP("in the "_BGPUF_" directory. This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1. .D W^BGP2DP("",0,1,BGPPTYPE)
  1. I BGPROT'="P",'$D(BGPGUI) D I BGPPTYPE="P" Q:BGPQHDR
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .I BGPDELF]"" D W^BGP2DP("A delimited output file called "_BGPDELF,0,2,BGPPTYPE) D
  1. ..D W^BGP2DP("has been placed in the "_$$GETDEDIR^BGP2UTL2()_" directory for your use in Excel or some",0,1,BGPPTYPE),W^BGP2DP("other software package. See your site manager to access this file.",0,1,BGPPTYPE)
  1. I $G(BGPALLPT) D I BGPPTYPE="P" Q:BGPQHDR
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .D W^BGP2DP("All Communities Included.",0,2,BGPPTYPE)
  1. I BGPYRPTH="P" K BGPX,BGPQUIT
  1. I '$G(BGPALLPT),'$G(BGPSEAT) D I BGPPTYPE="P" Q:BGPQHDR
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .D W^BGP2DP("Community Taxonomy Name: "_$P(^ATXAX(BGPTAXI,0),U),0,2,BGPPTYPE,1,10)
  1. .D W^BGP2DP("The following communities are included in this report:",0,1,BGPPTYPE,1,10) 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. ...D W^BGP2DP($E($P(Y,";",BGPZZ),1,20),0,1,BGPPTYPE,1,10)
  1. ...D W^BGP2DP($E($P(Y,";",(BGPZZ+1)),1,20),0,0,BGPPTYPE,2,30)
  1. ...D W^BGP2DP($E($P(Y,";",(BGPZZ+2)),1,20),0,0,BGPPTYPE,3,60)
  1. ...Q
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. I $G(BGPMFITI) D W^BGP2DP("MFI Visit Location Taxonomy Name: "_$P(^ATXAX(BGPMFITI,0),U),0,1,BGPPTYPE,1,10)
  1. I $G(BGPMFITI) D W^BGP2DP("The following locations are used for patient visits in this report:",0,2,BGPPTYPE,1,10) D
  1. .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)
  1. .S BGPZZ=0,C=0 F BGPZZ=1:3:N D
  1. ..D W^BGP2DP($E($P(Y,";",BGPZZ),1,20),0,1,BGPPTYPE,1,10)
  1. ..D W^BGP2DP($E($P(Y,";",(BGPZZ+1)),1,20),0,0,BGPPTYPE,2,30)
  1. ..D W^BGP2DP($E($P(Y,";",(BGPZZ+2)),1,20),0,0,BGPPTYPE,3,60)
  1. ..Q
  1. I BGPRTYPE'=6,BGPPTYPE="D" D W^BGP2DP("ENDCOVERPAGE",0,1,BGPPTYPE)
  1. K BGPX,BGPQUIT
  1. Q
  1. ;
  1. MD ;EP
  1. I $G(BGPDASH) D W^BGP2DP("Measures: GPRA Denominators and Numerators",0,1,BGPPTYPE) Q
  1. I BGPRTYPE=6 D W^BGP2DP("Measures: Patient Education Performance Measures",0,1,BGPPTYPE) Q
  1. I BGPRTYPE=4 D W^BGP2DP("Measures: "_$P($T(@BGPINDW),";;",2),0,1,BGPPTYPE) Q
  1. I BGPRTYPE=1 D W^BGP2DP("Measures: GPRA Developmental, GPRA and PART Denominators and Numerators and",0,1,BGPPTYPE),W^BGP2DP("Selected Other Clinical Denominators and Numerators",0,1,BGPPTYPE) Q
  1. I BGPRTYPE=7 D W^BGP2DP("Measures: Key Clinical Denominators and Numerators for Non-GPRA National",0,1,BGPPTYPE),W^BGP2DP("Reporting",0,1,BGPPTYPE) Q
  1. Q
  1. ;
  1. PD ;EP
  1. I BGPRTYPE=1,$G(BGPYGPU),'$G(BGPSEAT) D W^BGP2DP("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:""),0,1,BGPPTYPE)
  1. I BGPRTYPE=1,$G(BGPYGPU),$G(BGPSEAT) D W^BGP2DP("Patient Population: "_$P(^DIBT(BGPSEAT,0),U),0,2,BGPPTYPE)
  1. I BGPRTYPE=4,BGPYRPTH'="P" D W^BGP2DP("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:""),0,1,BGPPTYPE)
  1. I BGPRTYPE=4,BGPYRPTH="P" D W^BGP2DP("Population: "_$P(^DIBT(BGPSEAT,0),U),0,1,BGPPTYPE)
  1. I BGPRTYPE=1,'$G(BGPYGPU)!(BGPRTYPE=7) D W^BGP2DP("Population: AI/AN Only (Classification 01)",0,2,BGPPTYPE)
  1. I BGPRTYPE=6,'$G(BGPSEAT) D W^BGP2DP("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:""),0,1,BGPPTYPE)
  1. I BGPRTYPE=6,$G(BGPSEAT) D W^BGP2DP("Patient Population: "_$P(^DIBT(BGPSEAT,0),U),0,2,BGPPTYPE)
  1. I BGPRTYPE=7 D W^BGP2DP("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:""),0,1,BGPPTYPE)
  1. Q
  1. ;
  1. HDR ;EP
  1. I BGPPTYPE="P",'BGPHPG G HDR1
  1. I BGPPTYPE="P" 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
  1. HDR1 ;
  1. I BGPPTYPE="P" S BGPHPG=BGPHPG+1 I BGPHPG'=1 W:$D(IOF) @IOF
  1. I $G(BGPGUI),BGPPTYPE="P",BGPHPG'=1 D W^BGP2EOH("ZZZZZZZ",0,0,BGPPTYPE),W^BGP2EOH("",0,1,BGPPTYPE) ;GUI
  1. D W^BGP2DP("Cover Page",1,2,BGPPTYPE)
  1. I BGPRTYPE=4,$G(BGPYRPTH)="C" D W^BGP2DP("*** IHS 2012 Selected Measures with Community Specified Report ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=4,$G(BGPYRPTH)="A" D W^BGP2DP("*** IHS 2012 Selected Measures with All Communities Report ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=4,$G(BGPYRPTH)="P" D W^BGP2DP("*** IHS 2012 Selected Measures with Patient Panel Population Report ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=6,'$G(BGPEDPP) D W^BGP2DP("*** IHS 2012 Patient Education with Community Specified Report ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=6,$G(BGPEDPP) D W^BGP2DP("*** IHS 2012 Patient Education with Patient Panel Population Report ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=1,$G(BGPNGR09) D W^BGP2DP("*** IHS 2013 National GPRA & PART Report, Run Using 2012 Logic ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=1,$G(BGPDESGP) D W^BGP2DP("*** IHS 2012 National GPRA & PART Report by Designated Provider ***",1,2,BGPPTYPE) G N
  1. I BGPRTYPE=1,'$G(BGPYGPU),'$G(BGPSUMON) D W^BGP2DP("*** IHS 2012 National GPRA & PART Report ***",1,2,BGPPTYPE)
  1. I BGPRTYPE=1,'$G(BGPYGPU),$G(BGPSUMON) D W^BGP2DP("*** IHS 2012 National GPRA & PART Report Clinical Performance Summaries ***",1,2,BGPPTYPE)
  1. I BGPRTYPE=1,$G(BGPYGPU) D W^BGP2DP("*** IHS 2012 GPRA Performance & PART Report ***",1,2,BGPPTYPE)
  1. I BGPRTYPE=7 D W^BGP2DP("*** IHS 2012 Other National Measures Report ***",1,2,BGPPTYPE)
  1. N ;
  1. I $G(BGPCPPL) D W^BGP2DP("** Including Comprehensive Patient List **",1,1,BGPPTYPE)
  1. D W^BGP2DP($$RPTVER^BGP2BAN,1,1,BGPPTYPE)
  1. D W^BGP2DP("Date Report Run: "_$$FMTE^XLFDT(DT),1,1,BGPPTYPE)
  1. D W^BGP2DP("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),1,1,BGPPTYPE)
  1. D W^BGP2DP("Report Generated by: "_$$USR,1,1,BGPPTYPE)
  1. S X="Report Period: "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D W^BGP2DP(X,1,1,BGPPTYPE)
  1. S X="Previous Year Period: "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D W^BGP2DP(X,1,1,BGPPTYPE)
  1. I '$G(BGPDASH) S X="Baseline Period: "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D W^BGP2DP(X,1,1,BGPPTYPE)
  1. D W^BGP2DP("",0,2,BGPPTYPE)
  1. Q
  1. PEHDR ;
  1. D PEHDR^BGP2DH1
  1. Q
  1. COMHDR ;
  1. D COMHDR^BGP2DH1
  1. Q
  1. ONMHDR ;EP
  1. D ONMHDR^BGP2DH1
  1. Q
  1. ;
  1. PPHDR ;
  1. D PPHDR^BGP2DH1
  1. Q
  1. DENOMHDR ;
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. Q:$G(BGPSEAT)
  1. S BGPX=$O(^BGPCTRL("B",2012,0))
  1. S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,13,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .D W^BGP2DP(^BGPCTRL(BGPX,13,BGPY,0),0,1,BGPPTYPE)
  1. .Q
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. Q
  1. ALLHDR ;
  1. D ALLHDR^BGP2DH1
  1. Q
  1. AREAHDR ;
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. S BGPX=$O(^BGPCTRL("B",2012,0))
  1. S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,15,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .D W^BGP2DP(^BGPCTRL(BGPX,15,BGPY,0),0,1,BGPPTYPE)
  1. .Q
  1. Q
  1. GPRAHDRS ;EP
  1. D GPRAHDRS^BGP2DH1
  1. Q
  1. COMHDRA ;EP
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. S BGPX=$O(^BGPCTRL("B",2012,0))
  1. S BGPNODEP=$S(BGPCHSO&('BGPCHSN):24,(BGPCHSO+BGPCHSN)=2:31,1:17)
  1. S BGPNODEP=$S(BGPURBAN:48,1:BGPNODEP)
  1. S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D AHDR^BGP2DH1 Q:BGPQHDR
  1. .D W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
  1. .Q
  1. I $G(BGPYGPU) D W^BGP2DP("See last pages of this report for Performance Summaries.",0,2,BGPPTYPE)
  1. Q
  1. GPRAHDR ;
  1. D W^BGP2DP("",0,1,BGPPTYPE)
  1. S BGPNODEP=$S(BGPCHSO:23,1:14)
  1. S BGPNODEP=$S(BGPURBAN:46,1:BGPNODEP)
  1. S BGPX=$O(^BGPCTRL("B",2012,0))
  1. S BGPY=0 F S BGPY=$O(^BGPCTRL(BGPX,BGPNODEP,BGPY)) Q:BGPY'=+BGPY!(BGPQHDR) D
  1. .I BGPPTYPE="P",$Y>(BGPIOSL-2) D HDR Q:BGPQHDR
  1. .D W^BGP2DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
  1. .Q
  1. Q
  1. ENDTIME ;EP
  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 D W^BGP2DP("RUN TIME (H.M.S): "_BGPHR_"."_BGPM_"."_BGPS,0,2,BGPPTYPE)
  1. Q
  1. ;
  1. AREACP ;EP -
  1. D AREACP^BGP2DH1
  1. Q
  1. PEDCP ;EP
  1. D PEHDR
  1. I BGPROT'="P",'$D(BGPGUI) W !!,"A delimited output file called ",BGPDELF,!,"has been placed in the "_$$GETDEDIR^BGP2UTL2()_" directory for your use in Excel or some",!,"other software package. See your site manager to access this file.",!
  1. D W^BGP2DP("Report includes data from the following facilities: ",0,2,BGPPTYPE)
  1. NEW BGPX
  1. S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
  1. .S X=$P(^BGPPEDCW(BGPX,0),U,9),X=$O(^AUTTLOC("C",X,0)) S X=$S(X:$P(^DIC(4,X,0),U),1:"?????")
  1. .S BGPC=BGPC+1,X=BGPC_". "_$S($P(^BGPPEDCW(BGPX,0),U,17):"*",1:"")_X D W^BGP2DP(X,0,1,BGPPTYPE,1,3)
  1. .Q
  1. S X=" " D W^BGP2DP(X,0,1,BGPPTYPE)
  1. S X="The following communities are included in this report:" D W^BGP2DP(X,0,1,BGPPTYPE,1,1)
  1. S BGPX="",BGPC=0 F S BGPX=$O(BGPSUL(BGPX)) Q:BGPX="" D
  1. .S X=$P(^BGPPEDCW(BGPX,0),U,9),X=$O(^AUTTLOC("C",X,0)) S X=$S(X:$P(^DIC(4,X,0),U),1:"?????")
  1. .S BGPC=BGPC+1,X=BGPC_". "_$S($P(^BGPPEDCW(BGPX,0),U,17):"*",1:"")_X D W^BGP2DP(X,0,1,BGPPTYPE,1,3)
  1. .;S X="Communities: " D W^BGP2DP(X,0,1,BGPPTYPE,1,5)
  1. .S X="Community Taxonomy Name: "_$P(^BGPPEDCW(BGPX,0),U,18) D W^BGP2DP(X,0,1,BGPPTYPE,1,5)
  1. .S BGPXX=0,BGPXN=0,BGPXY="" F S BGPXX=$O(^BGPPEDCW(BGPX,9999,BGPXX)) Q:BGPXX'=+BGPXX S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPPEDCW(BGPX,9999,BGPXX,0),U)
  1. .S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
  1. ..D W^BGP2DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
  1. ..D W^BGP2DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
  1. ..D W^BGP2DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
  1. ..Q
  1. .I $O(^BGPPEDCW(BGPX,1111,0)) D
  1. ..D W^BGP2DP("MFI Visit Locations: ",0,2,BGPPTYPE,1,5) S BGPXX=0,BGPXN=0,BGPXY="" F S BGPXX=$O(^BGPPEDCW(BGPX,1111,BGPXX)) Q:BGPXX'=+BGPXX S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPPEDCW(BGPX,1111,BGPXX,0),U)
  1. ..S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
  1. ...D W^BGP2DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
  1. ...D W^BGP2DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
  1. ...D W^BGP2DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
  1. ..Q
  1. .Q
  1. D W^BGP2DP(" ",0,1,BGPPTYPE)
  1. I BGPPTYPE="P" Q:BGPQHDR
  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)!$D(IO("S"))
  1. NEW DIR
  1. K DIRUT,DFOUT,DLOUT,DTOUT,DUOUT
  1. S DIR(0)="E" D ^DIR
  1. I $D(DIRUT) S BGPQHDR=1
  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. E ;;Elder Care-Related Measures
  1. G ;;GPRA Measures (All)
  1. A ;;AREA Director Performance Measures (All)
  1. H ;;HEDIS Measures (All)
  1. D ;;Diabetes-Related Measures
  1. C ;;Cardiovascular Disease Prevention for At-Risk Patients
  1. S ;;Selected Measures (User Defined)
  1. W ;;Women's Health-Related Measures
  1. P ;;Pharmacy Quality Alliance
  1. I ;;Improving Patient Care
  1. ;