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

BGP0DH.m

Go to the documentation of this file. 
  1. BGP0DH ; IHS/CMI/LAB - cover page for gpra 28 Apr 2009 11:30 AM 02 Jul 2009 9:25 AM ;
  1.  ;;10.0;IHS CLINICAL REPORTING;**1**;JUN 18, 2010
  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^BGP0DP("Designated Provider:  "_$P(^VA(200,BGPDESGP,0),U,1),0,2,BGPPTYPE)
  1.  D ENDTIME
  1.  I BGPRTYPE=4,BGP0RPTH="C" D COMHDR
  1.  I BGPRTYPE=4,BGP0RPTH="P" D PPHDR
  1.  I BGPRTYPE=4,BGP0RPTH="A" D ALLHDR
  1.  I BGPRTYPE=1,'$G(BGP0GPU),'$G(BGPSUMON) D GPRAHDR
  1.  I BGPRTYPE=1,'$G(BGP0GPU),$G(BGPSUMON) D GPRAHDRS
  1.  I BGPRTYPE=1,$G(BGP0GPU) D GPRAHDR
  1.  I BGPRTYPE=6 D PEHDR
  1.  I BGPRTYPE=7 D ONMHDR
  1.  I BGPPTYPE="P" Q:BGPQHDR
  1.  I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1.  I $G(BGPEXPT),BGPRTYPE=1  ;,'$G(BGPNGR09) D
  1.  .D W^BGP0DP("A file will be created called BG10"_$P(^AUTTLOC(DUZ(2),0),U,10)_"."_BGPRPT,0,2,BGPPTYPE)
  1.  .D W^BGP0DP("It will reside in the public/export directory.",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("",0,1,BGPPTYPE)
  1.  I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1.  I $G(BGPEXPT),BGPRTYPE=7 D
  1.  .D W^BGP0DP("A file will be created called BG10"_$P(^AUTTLOC(DUZ(2),0),U,10)_".ONM"_BGPRPT,0,2,BGPPTYPE)
  1.  .D W^BGP0DP("It will reside in the public/export directory.",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("",0,1,BGPPTYPE)
  1.  I BGPPTYPE="P",$Y>(BGPIOSL-3) D HDR Q:BGPQHDR
  1.  I $G(BGPYWCHW)=2 D W^BGP0DP("HT/WT filename:  "_BGPFN,0.2),W^BGP0DP("",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^BGP0DP("A file will be created called BG10"_$P(^AUTTLOC(DUZ(2),0),U,10)_".PED"_BGPRPT_" and will reside",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("in the public/exort directory.  This file should be sent to your Area Office.",0,1,BGPPTYPE)
  1.  .D W^BGP0DP("",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^BGP0DP("A delimited output file called "_BGPDELF,0,1,BGPPTYPE) D
  1.  ..D W^BGP0DP("has been placed in the public directory for your use in Excel or some",0,1,BGPPTYPE),W^BGP0DP("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^BGP0DP("All Communities Included.",0,2,BGPPTYPE)
  1.  I BGP0RPTH="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^BGP0DP("Community Taxonomy Name: "_$P(^ATXAX(BGPTAXI,0),U),0,2,BGPPTYPE,1,10)
  1.  .D W^BGP0DP("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^BGP0DP($E($P(Y,";",BGPZZ),1,20),0,1,BGPPTYPE,1,10)
  1.  ...D W^BGP0DP($E($P(Y,";",(BGPZZ+1)),1,20),0,0,BGPPTYPE,2,30)
  1.  ...D W^BGP0DP($E($P(Y,";",(BGPZZ+2)),1,20),0,0,BGPPTYPE,3,60)
  1.  ...Q
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  I $G(BGPMFITI) D W^BGP0DP("MFI Visit Location Taxonomy Name: "_$P(^ATXAX(BGPMFITI,0),U),0,1,BGPPTYPE,1,10)
  1.  I $G(BGPMFITI) D W^BGP0DP("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^BGP0DP($E($P(Y,";",BGPZZ),1,20),0,1,BGPPTYPE,1,10)
  1.  ..D W^BGP0DP($E($P(Y,";",(BGPZZ+1)),1,20),0,0,BGPPTYPE,2,30)
  1.  ..D W^BGP0DP($E($P(Y,";",(BGPZZ+2)),1,20),0,0,BGPPTYPE,3,60)
  1.  ..Q
  1.  I BGPRTYPE'=6,BGPPTYPE="D" D W^BGP0DP("ENDCOVERPAGE",0,1,BGPPTYPE)
  1.  K BGPX,BGPQUIT
  1.  Q
  1.  ;
  1. MD ;EP
  1.  I BGPRTYPE=6 D W^BGP0DP("Measures: Patient Education Performance Measures",0,1,BGPPTYPE)
  1.  I BGPRTYPE=4 D W^BGP0DP("Measures: "_$P($T(@BGPINDT),";;",2),0,1,BGPPTYPE)
  1.  I BGPRTYPE=1 D W^BGP0DP("Measures: GPRA Developmental, GPRA and PART Denominators and Numerators and",0,1,BGPPTYPE),W^BGP0DP("Selected Other Clinical Denominators and Numerators",0,1,BGPPTYPE)
  1.  I BGPRTYPE=7 D W^BGP0DP("Measures: Key Clinical Denominators and Numerators for Non-GPRA National",0,1,BGPPTYPE),W^BGP0DP("Reporting",0,1,BGPPTYPE)
  1.  Q
  1.  ;
  1. PD ;EP
  1.  I BGPRTYPE=1,$G(BGP0GPU) D W^BGP0DP("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,BGP0RPTH'="P" D W^BGP0DP("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,BGP0RPTH="P" D W^BGP0DP("Population:  "_$P(^DIBT(BGPSEAT,0),U),0,1,BGPPTYPE)
  1.  I BGPRTYPE=1,'$G(BGP0GPU)!(BGPRTYPE=7) D W^BGP0DP("Population:  AI/AN Only (Classification 01)",0,2,BGPPTYPE)
  1.  I BGPRTYPE=6,'$G(BGPSEAT) D W^BGP0DP("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^BGP0DP("Patient Population:  "_$P(^DIBT(BGPSEAT,0),U),0,2,BGPPTYPE)
  1.  I BGPRTYPE=7 D W^BGP0DP("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^BGP0EOH("ZZZZZZZ",0,0,BGPPTYPE),W^BGP0EOH("",0,1,BGPPTYPE)  ;GUI
  1.  D W^BGP0DP("Cover Page",1,2,BGPPTYPE)
  1.  I BGPRTYPE=4,$G(BGP0RPTH)="C" D W^BGP0DP("*** IHS 2010 Selected Measures with Community Specified Report ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=4,$G(BGP0RPTH)="A" D W^BGP0DP("*** IHS 2010 Selected Measures with All Communities Report ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=4,$G(BGP0RPTH)="P" D W^BGP0DP("*** IHS 2010 Selected Measures with Patient Panel Population Report ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=6,'$G(BGPEDPP) D W^BGP0DP("*** IHS 2010 Patient Education with Community Specified Report ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=6,$G(BGPEDPP) D W^BGP0DP("*** IHS 2010 Patient Education with Patient Panel Population Report ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=1,$G(BGPNGR09) D W^BGP0DP("*** IHS 2011 National GPRA & PART Report, Run Using 2010 Logic ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=1,$G(BGPDESGP) D W^BGP0DP("*** IHS 2010 National GPRA & PART Report by Designated Provider ***",1,2,BGPPTYPE) G N
  1.  I BGPRTYPE=1,'$G(BGP0GPU),'$G(BGPSUMON) D W^BGP0DP("*** IHS 2010 National GPRA & PART Report ***",1,2,BGPPTYPE)
  1.  I BGPRTYPE=1,'$G(BGP0GPU),$G(BGPSUMON) D W^BGP0DP("*** IHS 2010 National GPRA & PART Report Clinical Performance Summaries ***",1,2,BGPPTYPE)
  1.  I BGPRTYPE=1,$G(BGP0GPU) D W^BGP0DP("*** IHS 2010 GPRA Performance & PART Report ***",1,2,BGPPTYPE)
  1.  I BGPRTYPE=7 D W^BGP0DP("*** IHS 2010 Other National Measures Report ***",1,2,BGPPTYPE)
  1. N ;
  1.  I $G(BGPCPPL) D W^BGP0DP("** Including Comprehensive Patient List **",1,1,BGPPTYPE)
  1.  D W^BGP0DP($$RPTVER^BGP0BAN,1,1,BGPPTYPE)
  1.  D W^BGP0DP("Date Report Run: "_$$FMTE^XLFDT(DT),1,1,BGPPTYPE)
  1.  D W^BGP0DP("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),1,1,BGPPTYPE)
  1.  D W^BGP0DP("Report Generated by: "_$$USR,1,1,BGPPTYPE)
  1.  S X="Report Period:  "_$$FMTE^XLFDT(BGPBD)_" to "_$$FMTE^XLFDT(BGPED) D W^BGP0DP(X,1,1,BGPPTYPE)
  1.  S X="Previous Year Period:  "_$$FMTE^XLFDT(BGPPBD)_" to "_$$FMTE^XLFDT(BGPPED) D W^BGP0DP(X,1,1,BGPPTYPE)
  1.  S X="Baseline Period:  "_$$FMTE^XLFDT(BGPBBD)_" to "_$$FMTE^XLFDT(BGPBED) D W^BGP0DP(X,1,1,BGPPTYPE)
  1.  D W^BGP0DP("",0,2,BGPPTYPE)
  1.  Q
  1. PEHDR ;
  1.  D PEHDR^BGP0DH1
  1.  Q
  1. COMHDR ;
  1.  D COMHDR^BGP0DH1
  1.  Q
  1. ONMHDR ;EP
  1.  D ONMHDR^BGP0DH1
  1.  Q
  1.  ;
  1. PPHDR ;
  1.  D PPHDR^BGP0DH1
  1.  Q
  1. DENOMHDR ;
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  Q:$G(BGPSEAT)
  1.  S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DP(^BGPCTRL(BGPX,13,BGPY,0),0,1,BGPPTYPE)
  1.  .Q
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  Q
  1. ALLHDR ;
  1.  D ALLHDR^BGP0DH1
  1.  Q
  1. AREAHDR ;
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DP(^BGPCTRL(BGPX,15,BGPY,0),0,1,BGPPTYPE)
  1.  .Q
  1.  Q
  1. GPRAHDRA ;EP
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  S BGPX=$O(^BGPCTRL("B",2010,0))
  1.  S BGPNODEP=$S(BGPCHSO&('BGPCHSN):23,(BGPCHSO+BGPCHSN)=2:29,1:14)
  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^BGP0DH1 Q:BGPQHDR
  1.  .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
  1.  .Q
  1.  Q
  1. GPRAHDRS ;
  1.  D GPRAHDRS^BGP0DH1
  1.  Q
  1. COMHDRA ;EP
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  S BGPX=$O(^BGPCTRL("B",2010,0))
  1.  S BGPNODEP=$S(BGPCHSO&('BGPCHSN):24,(BGPCHSO+BGPCHSN)=2:31,1:17)
  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^BGP0DH1 Q:BGPQHDR
  1.  .D W^BGP0DP(^BGPCTRL(BGPX,BGPNODEP,BGPY,0),0,1,BGPPTYPE)
  1.  .Q
  1.  I $G(BGP0GPU) D W^BGP0DP("See last pages of this report for Performance Summaries.",0,2,BGPPTYPE)
  1.  Q
  1. GPRAHDR ;
  1.  D W^BGP0DP("",0,1,BGPPTYPE)
  1.  S BGPNODEP=$S(BGPCHSO:23,1:14)
  1.  S BGPX=$O(^BGPCTRL("B",2010,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^BGP0DP(^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^BGP0DP("RUN TIME (H.M.S): "_BGPHR_"."_BGPM_"."_BGPS,0,2,BGPPTYPE)
  1.  Q
  1.  ;
  1. AREACP ;EP -
  1.  D AREACP^BGP0DH1
  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 public directory for your use in Excel or some",!,"other software package.  See your site manager to access this file.",!
  1.  D W^BGP0DP("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(^BGPPEDCT(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(^BGPPEDCT(BGPX,0),U,17):"*",1:"")_X D W^BGP0DP(X,0,1,BGPPTYPE,1,3)
  1.  .Q
  1.  S X=" " D W^BGP0DP(X,0,1,BGPPTYPE)
  1.  S X="The following communities are included in this report:" D W^BGP0DP(X,0,1,BGPPTYPE,1,1)
  1.  S BGPX="",BGPC=0 F  S BGPX=$O(BGPSUL(BGPX)) Q:BGPX=""  D
  1.  .S X=$P(^BGPPEDCT(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(^BGPPEDCT(BGPX,0),U,17):"*",1:"")_X D W^BGP0DP(X,0,1,BGPPTYPE,1,3)
  1.  .;S X="Communities: " D W^BGP0DP(X,0,1,BGPPTYPE,1,5)
  1.  .S X="Community Taxonomy Name: "_$P(^BGPPEDCT(BGPX,0),U,18) D W^BGP0DP(X,0,1,BGPPTYPE,1,5)
  1.  .S BGPXX=0,BGPXN=0,BGPXY="" F  S BGPXX=$O(^BGPPEDCT(BGPX,9999,BGPXX)) Q:BGPXX'=+BGPXX  S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPPEDCT(BGPX,9999,BGPXX,0),U)
  1.  .S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
  1.  ..D W^BGP0DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
  1.  ..D W^BGP0DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
  1.  ..D W^BGP0DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
  1.  ..Q
  1.  .I $O(^BGPPEDCT(BGPX,1111,0)) D
  1.  ..D W^BGP0DP("MFI Visit Locations: ",0,2,BGPPTYPE,1,5) S BGPXX=0,BGPXN=0,BGPXY="" F  S BGPXX=$O(^BGPPEDCT(BGPX,1111,BGPXX)) Q:BGPXX'=+BGPXX  S BGPXN=BGPXN+1,BGPXY=BGPXY_$S(BGPXN=1:"",1:";")_$P(^BGPPEDCT(BGPX,1111,BGPXX,0),U)
  1.  ..S BGPX1=0,C=0 F BGPX1=1:3:BGPXN D
  1.  ...D W^BGP0DP($E($P(BGPXY,";",BGPX1),1,20),0,1,BGPPTYPE,1,10)
  1.  ...D W^BGP0DP($E($P(BGPXY,";",(BGPX1+1)),1,20),0,0,BGPPTYPE,2,30)
  1.  ...D W^BGP0DP($E($P(BGPXY,";",(BGPX1+2)),1,20),0,0,BGPPTYPE,3,60)
  1.  ..Q
  1.  .Q
  1.  D W^BGP0DP(" ",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 ;;Prevention Related Indictors
  1.  ;