Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BGP3ELH

Package: IHS GPRA Information System

Routine: BGP3ELH


Information

BGP3ELH ; IHS/CMI/LAB - cover page for ELDER 25 Jun 2010 10:20 AM ;

Source Information

Source file <BGP3ELH.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS GPRA Information System 2 $$RPTVER^BGP3BAN  $$GETDEDIR^BGP3UTL2  
IHS VA Utilities 1 $$VAL^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS GPRA Information System 2 BGP3DELP  BGP3PHEL  

Entry Points

Name Comments DBIA/ICR reference
URB ;;
AREACP ;EP - area cover page
CTR(X,Y) ;EP - Center X in a field Y wide.
USR() ;EP - Return name of current user from ^VA(200.
UP ;;
ELDERHDR ;
EOP ;EP - End of page.
2
ENDTIME ;
CHS ;;
ELDHDRA ;EP

External References

Name Field # of Occurrence
$$RPTVER^BGP3BAN BGP3ELH+8, AREACP+6
$$GETDEDIR^BGP3UTL2 BGP3ELH+21, AREACP+22
^DIR EOP+5
$$VAL^XBDIQ1 AREACP+8
$$FMTE^XLFDT BGP3ELH+9, BGP3ELH+12, BGP3ELH+13, BGP3ELH+14, AREACP+7, AREACP+10, AREACP+11, AREACP+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CTR("Cover Page",80)
  • Line Location: BGP3ELH+6
Function Call: WRITE
  • Prompt: !!,$$CTR("*** IHS 2013 Elder Care Report ***",80)
  • Line Location: BGP3ELH+7
Function Call: WRITE
  • Prompt: !,$$CTR($$RPTVER^BGP3BAN,80)
  • Line Location: BGP3ELH+8
Function Call: WRITE
  • Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  • Line Location: BGP3ELH+9
Function Call: WRITE
  • Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80)
  • Line Location: BGP3ELH+10
Function Call: WRITE
  • Prompt: !,$$CTR("Report Generated by: "_$$USR,80)
  • Line Location: BGP3ELH+11
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: BGP3ELH+12
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: BGP3ELH+13
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: BGP3ELH+14
Function Call: WRITE
  • Prompt: !!,"Measures: Elder Care Performance Measures"
  • Line Location: BGP3ELH+15
Function Call: WRITE
  • Prompt: !!,"Measures: Selected Elder Care Performance Measures (User Defined)"
  • Line Location: BGP3ELH+16
Function Call: WRITE
  • Prompt: !!,"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:"")
  • Line Location: BGP3ELH+17
Function Call: WRITE
  • Prompt: !!,"A file will be created called BG130",$P(^AUTTLOC(DUZ(2),0),U,10)_".EL"_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!
  • Line Location: BGP3ELH+20
Function Call: WRITE
  • Prompt: !!,"A delimited output file called ",BGPDELF,!,"has been placed in the "_$$GETDEDIR^BGP3UTL2()_" directory for your use in Excel or some",!,"other software package.",!,"See your site manager to access this file.",!
  • Line Location: BGP3ELH+21
Function Call: WRITE
  • Prompt: !!,"All Communities Included.",!
  • Line Location: BGP3ELH+22
Function Call: WRITE
  • Prompt: !!?10,"Community Taxonomy Name: ",$P(^ATXAX(BGPTAXI,0),U)
  • Line Location: BGP3ELH+23
Function Call: WRITE
  • Prompt: !!?10,"The following communities are included in this report:",!
  • Line Location: BGP3ELH+24
Function Call: WRITE
  • Prompt: !!?10,"MFI Visit Location Taxonomy Name: ",$P(^ATXAX(BGPMFITI,0),U)
  • Line Location: BGP3ELH+30
Function Call: WRITE
  • Prompt: !!?10,"The following locations are used for patient visits in this report:",!
  • Line Location: BGP3ELH+31
Function Call: WRITE
  • Prompt: !
  • Line Location: ELDERHDR+1
Function Call: WRITE
  • Prompt: !!,"RUN TIME (H.M.S): ",BGPHR,".",BGPM,".",BGPS
  • Line Location: ENDTIME+2
Function Call: WRITE
  • Prompt: !!,$$CTR("Cover Page",80)
  • Line Location: AREACP+3
Function Call: WRITE
  • Prompt: !!,$$CTR("*** IHS 2013 Elder Care Report ***",80)
  • Line Location: AREACP+4
Function Call: WRITE
  • Prompt: !,$$CTR("AREA AGGREGATE",80)
  • Line Location: AREACP+5
Function Call: WRITE
  • Prompt: !,$$CTR($$RPTVER^BGP3BAN,80)
  • Line Location: AREACP+6
Function Call: WRITE
  • Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80)
  • Line Location: AREACP+7
Function Call: WRITE
  • Prompt: !,$$CTR("Site where Run: "_$$VAL^XBDIQ1(9999999.06,DUZ(2),.04))
  • Line Location: AREACP+8
Function Call: WRITE
  • Prompt: !,$$CTR("Report Generated by: "_$$USR,80)
  • Line Location: AREACP+9
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: AREACP+10
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: AREACP+11
Function Call: WRITE
  • Prompt: !,$$CTR(X,80)
  • Line Location: AREACP+12
Function Call: WRITE
  • Prompt: !!,"Measures: Elder Care Performance Measures"
  • Line Location: AREACP+13
Function Call: WRITE
  • Prompt: !,"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:"")
  • Line Location: AREACP+14
Function Call: WRITE
  • Prompt: !!,"A file will be created called BG130",$P(^AUTTLOC(DUZ(2),0),U,10)_".EL"_BGPRPT,".",!,"It will reside in the public/export directory.",!,"This file should be sent to your Area Office.",!
  • Line Location: AREACP+21
Function Call: WRITE
  • Prompt: !!,"A delimited output file called ",BGPDELF,!,"has been placed in the "_$$GETDEDIR^BGP3UTL2()_" directory for your use in Excel or some",!,"other software package.",!,"See your site manager to access this file.",!
  • Line Location: AREACP+22
Function Call: WRITE
  • Prompt: !!?1,"Report includes data from the following facilities:"
  • Line Location: AREACP+23
Function Call: WRITE
  • Prompt: !!?1,"The following communities are included in this report:"
  • Line Location: AREACP+29
Function Call: WRITE
  • Prompt: !?10,$E($P(BGPXY,";",BGPX1),1,18),?30,$E($P(BGPXY,";",(BGPX1+1)),1,20),?60,$E($P(BGPXY,";",(BGPX1+2)),1,18)
  • Line Location: AREACP+43
Function Call: WRITE
  • Prompt: !
  • Line Location: AREACP+51
Function Call: WRITE
  • Prompt: !
  • Line Location: ELDHDRA+1
Routine Call
  • DIR
  • Line Location:
    • EOP+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX - [#9002226] BGP3ELH+23, BGP3ELH+30, BGP3ELH+32
^AUTTLOC - [#9999999.06] BGP3ELH+20
^AUTTLOC("C" AREACP+27, AREACP+33
^BGPCTRL - [#90241.01] ELDERHDR+6, ELDERHDR+8, 2, 2+2
^BGPCTRL("B" ELDERHDR+5, ELDHDRA+2
^BGPELDCH - [#90551.03] AREACP+16, AREACP+17, AREACP+18, AREACP+19, AREACP+27, AREACP+28, AREACP+33, AREACP+34, AREACP+36, AREACP+38
, AREACP+41, AREACP+42
^DIC(4 - [#4] BGP3ELH+10, BGP3ELH+32, AREACP+27, AREACP+33
^VA(200 - [#200] USR+1

Label References

Name Line Occurrences
$$CTR BGP3ELH+6, BGP3ELH+7, BGP3ELH+8, BGP3ELH+9, BGP3ELH+10, BGP3ELH+11, BGP3ELH+12, BGP3ELH+13, BGP3ELH+14, AREACP+3
, AREACP+4, AREACP+5, AREACP+6, AREACP+7, AREACP+8, AREACP+9, AREACP+10, AREACP+11, AREACP+12
$$USR BGP3ELH+11, AREACP+9
2 ELDHDRA+3
AREACP BGP3ELH+4
ELDERHDR BGP3ELH+19, AREACP+20
ELDHDRA ELDERHDR+2
ENDTIME BGP3ELH+18, AREACP+15
EOP BGP3ELH+27, BGP3ELH+34, ELDERHDR+7, ELDHDRA+7, ELDHDRA+11, ELDHDRA+15, 2+1

Naked Globals

Name Field # of Occurrence
^(0 USR+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BGPALLPT BGP3ELH+22, BGP3ELH+23, BGP3ELH+24
>> BGPAREAA BGP3ELH+4, ELDERHDR+2
>> BGPBBD BGP3ELH+14, AREACP+12
>> BGPBD BGP3ELH+12, AREACP+10
>> BGPBED BGP3ELH+14, AREACP+12
>> BGPBEN BGP3ELH+17, AREACP+14
>> BGPBT ENDTIME+1
>> BGPC AREACP+25*, AREACP+26*, AREACP+28, AREACP+31*, AREACP+32*, AREACP+34
>> BGPCHSN AREACP+17*
>> BGPCHSO ELDERHDR+3, AREACP+16*, AREACP+45, ELDHDRA+5
>> BGPDELF BGP3ELH+21, AREACP+22
>> BGPED BGP3ELH+12, AREACP+10
>> BGPET ENDTIME+1
>> BGPEXPT BGP3ELH+20
>> BGPGUI BGP3ELH+21, AREACP+22
>> BGPHR ENDTIME+1*, ENDTIME+2
>> BGPIOSL BGP3ELH+27, BGP3ELH+34, ELDERHDR+7, ELDHDRA+7, ELDHDRA+11, ELDHDRA+15, 2+1
>> BGPJ1 ELDHDRA+5*, ELDHDRA+9*, ELDHDRA+13*
>> BGPM ENDTIME+2*
>> BGPMFITI BGP3ELH+30, BGP3ELH+31, BGP3ELH+32
>> BGPNODEP ELDERHDR+3*, ELDERHDR+4*, ELDERHDR+6, ELDERHDR+8, ELDHDRA+3*, 2, 2+2
>> BGPPBD BGP3ELH+13, AREACP+11
>> BGPPED BGP3ELH+13, AREACP+11
>> BGPPTYPE ELDHDRA+7, ELDHDRA+11, ELDHDRA+15, 2+1
BGPQUIT BGP3ELH+37!, AREACP+52!
>> BGPROT BGP3ELH+21, AREACP+22
>> BGPRPT BGP3ELH+20
>> BGPS ENDTIME+2*
>> BGPSEAT BGP3ELH+23, BGP3ELH+24
>> BGPSUL( AREACP+16, AREACP+17, AREACP+18, AREACP+19, AREACP+25, AREACP+31
>> BGPT ELDHDRA+6*, ELDHDRA+8, ELDHDRA+10*, ELDHDRA+12, ELDHDRA+14*, ELDHDRA+16
>> BGPTAX( BGP3ELH+25
>> BGPTAXI BGP3ELH+23
>> BGPTEXT ELDHDRA+5*, ELDHDRA+9*, ELDHDRA+13*
>> BGPTS ENDTIME+1*, ENDTIME+2*
>> BGPURBAN ELDERHDR+4
>> BGPURBN AREACP+19*
>> BGPURBO AREACP+18*, AREACP+48, ELDHDRA+9
BGPX BGP3ELH+37!, ELDERHDR+5*, ELDERHDR+6, ELDERHDR+8, AREACP+24~, AREACP+25*, AREACP+27, AREACP+28, AREACP+30~, AREACP+31*
, AREACP+33, AREACP+34, AREACP+36, AREACP+38, AREACP+41, AREACP+42, AREACP+52!, ELDHDRA+2*, ELDHDRA+5*, ELDHDRA+6
, ELDHDRA+9*, ELDHDRA+10, ELDHDRA+13*, ELDHDRA+14, 2, 2+2
>> BGPX1 AREACP+39*, AREACP+40, AREACP+43*
>> BGPXN AREACP+38*, AREACP+39, AREACP+42*, AREACP+43
>> BGPXX AREACP+38*, AREACP+42*
>> BGPXY AREACP+38*, AREACP+40, AREACP+42*, AREACP+43
>> BGPY ELDERHDR+6*, ELDERHDR+8, 2*, 2+2
>> BGPZZ BGP3ELH+15, BGP3ELH+16, BGP3ELH+25*, BGP3ELH+26*, BGP3ELH+28, BGP3ELH+32*, BGP3ELH+33*, BGP3ELH+35
>> C BGP3ELH+26*, BGP3ELH+33*, AREACP+39*, AREACP+43*
DFOUT EOP+4!
DIR EOP+3~
DIR(0 EOP+5*
DIRUT EOP+4!
DLOUT EOP+4!
DT BGP3ELH+9, AREACP+7
DTOUT EOP+4!
DUOUT EOP+4!
DUZ USR+1
DUZ(2 BGP3ELH+10, BGP3ELH+20, AREACP+8
IO("S" EOP+2
IOF ELDERHDR+7
IOM CTR+1
IOST EOP+1
>> IOT EOP+2
>> N BGP3ELH+25*, BGP3ELH+26, BGP3ELH+32*, BGP3ELH+33
U BGP3ELH+10, BGP3ELH+20, BGP3ELH+23, BGP3ELH+30, BGP3ELH+32, AREACP+16, AREACP+17, AREACP+18, AREACP+19, AREACP+27
, AREACP+28, AREACP+33, AREACP+34, AREACP+36, AREACP+38, AREACP+42, USR+1
X BGP3ELH+12*, BGP3ELH+13*, BGP3ELH+14*, AREACP+10*, AREACP+11*, AREACP+12*, AREACP+16*, AREACP+17*, AREACP+18*, AREACP+19*
, AREACP+27*, AREACP+28, AREACP+33*, AREACP+34, CTR~, CTR+1
Y BGP3ELH+25*, BGP3ELH+28, BGP3ELH+32*, BGP3ELH+35, CTR~, CTR+1
>> ZTQUEUED EOP+2

Marked Items

Name Field # of Occurrence
$T(@BGPTEXT+BGPJ1 ELDHDRA+5, ELDHDRA+9, ELDHDRA+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All