Routine: BGP9ELH

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

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP9DELP BGP9PHEL

Entry Points

Name	Comments	DBIA/ICR reference
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.
ELDERHDR	;
EOP	;EP - End of page.
ENDTIME	;

External References

Name	Field # of Occurrence
$$RPTVER^BGP9BAN	BGP9ELH+8, AREACP+6
^DIR	EOP+5
$$VAL^XBDIQ1	AREACP+8
$$FMTE^XLFDT	BGP9ELH+9, BGP9ELH+12, BGP9ELH+13, BGP9ELH+14, AREACP+7, AREACP+10, AREACP+11, AREACP+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("Cover Page",80) Line Location: BGP9ELH+6
Function Call: WRITE	Prompt: !!,$$CTR("* IHS 2009 Elder Care Report *",80) Line Location: BGP9ELH+7
Function Call: WRITE	Prompt: !,$$CTR($$RPTVER^BGP9BAN,80) Line Location: BGP9ELH+8
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT),80) Line Location: BGP9ELH+9
Function Call: WRITE	Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U),80) Line Location: BGP9ELH+10
Function Call: WRITE	Prompt: !,$$CTR("Report Generated by: "_$$USR,80) Line Location: BGP9ELH+11
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: BGP9ELH+12
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: BGP9ELH+13
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: BGP9ELH+14
Function Call: WRITE	Prompt: !!,"Measures: Elder Care Performance Measures" Line Location: BGP9ELH+15
Function Call: WRITE	Prompt: !!,"Measures: Selected Elder Care Performance Measures (User Defined)" Line Location: BGP9ELH+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: BGP9ELH+17
Function Call: WRITE	Prompt: !!,"A file will be created called BG09",$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: BGP9ELH+20
Function Call: WRITE	Prompt: !!,"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.",! Line Location: BGP9ELH+21
Function Call: WRITE	Prompt: !!,"All Communities Included.",! Line Location: BGP9ELH+22
Function Call: WRITE	Prompt: !!?10,"Community Taxonomy Name: ",$P(^ATXAX(BGPTAXI,0),U) Line Location: BGP9ELH+23
Function Call: WRITE	Prompt: !!?10,"The following communities are included in this report:",! Line Location: BGP9ELH+24
Function Call: WRITE	Prompt: !!?10,"MFI Visit Location Taxonomy Name: ",$P(^ATXAX(BGPMFITI,0),U) Line Location: BGP9ELH+30
Function Call: WRITE	Prompt: !!?10,"The following locations are used for patient visits in this report:",! Line Location: BGP9ELH+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 2009 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^BGP9BAN,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 BG09",$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+19
Function Call: WRITE	Prompt: !!,"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.",! Line Location: AREACP+20
Function Call: WRITE	Prompt: !!?1,"Report includes data from the following facilities:" Line Location: AREACP+21
Function Call: WRITE	Prompt: !!?1,"The following communities are included in this report:" Line Location: AREACP+27
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+41
Routine Call	DIR Line Location: EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	BGP9ELH+23, BGP9ELH+30, BGP9ELH+32
^AUTTLOC - [#9999999.06]	BGP9ELH+20
^AUTTLOC("C"	AREACP+25, AREACP+31
^BGPCTRL - [#90241.01]	ELDERHDR+5, ELDERHDR+7
^BGPCTRL("B"	ELDERHDR+4
^BGPELDCN - [#90538.03]	AREACP+16, AREACP+17, AREACP+25, AREACP+26, AREACP+31, AREACP+32, AREACP+34, AREACP+36, AREACP+39, AREACP+40
^DIC(4 - [#4]	BGP9ELH+10, BGP9ELH+32, AREACP+25, AREACP+31
^VA(200 - [#200]	USR+1

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	USR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP9ELH

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: