Routine: BGP6DCHA

Package	Total	Call Graph
IHS VA Utilities	3	^XBFMK ^XBGSAVE EN^XBVK
Kernel	2	^%ZISC ($$FMTE,$$NOW)^XLFDT
IHS GPRA Information System	1	EN^BGP6ASL
IHS Patient	1	KILL^AUPNPAT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
EISSEX	;
B	;fiscal year
GS	;EP - write out file
ZIS	;call to XBDBQUE
ASU	;
F	;fiscal year
CTR(X,Y)	;EP - Center X in a field Y wide.
DRIVER	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
TP	;
USR()	;EP - Return name of current user from ^VA(200.
INTRO	;
EXIT	;
D(D)	;EP

External References

Name	Field # of Occurrence
^%ZISC	DRIVER+2
KILL^AUPNPAT	EXIT+2
EN^BGP6ASL	ASU+6
^DIR	ASU+3, EISSEX+15, B+6, F+8, EOP+5
^XBFMK	EISSEX+12, EXIT+3
^XBGSAVE	GS+12
EN^XBVK	EXIT+1
$$FMTE^XLFDT	TP+19
$$NOW^XLFDT	EISSEX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR(BGPA_" Area Aggregate Height and Weight Data Export",80) Line Location: BGP6DCHA+6
Function Call: WRITE	Prompt: !!,"This option is used to produce an area aggregate Height and" Line Location: BGP6DCHA+7
Function Call: WRITE	Prompt: !,"Weight Export file. This is a single delimited file that will be comprised" Line Location: BGP6DCHA+8
Function Call: WRITE	Prompt: !,"of height and weight data. This file should be exported to the Division" Line Location: BGP6DCHA+9
Function Call: WRITE	Prompt: !,"of Epidemiology, where it will construct frequency curves of BMI as" Line Location: BGP6DCHA+10
Function Call: WRITE	Prompt: !,"a GPRA developmental performance measure.",!! Line Location: BGP6DCHA+11
Function Call: WRITE	Prompt: !!,"no year entered..bye" Line Location: TP+5
Function Call: WRITE	Prompt: !!,"no year entered..bye" Line Location: TP+11
Function Call: WRITE	Prompt: !,"This file will contain height and weight data for the time period" Line Location: TP+18
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(BGPBBD)," through ",$$FMTE^XLFDT(BGPED)," for all Active Clinical" Line Location: TP+19
Function Call: WRITE	Prompt: !,"patients 0-18 who have both a height and weight value documented" Line Location: TP+20
Function Call: WRITE	Prompt: !,"on a visit and for all Active Clinical patients age 19 and older who" Line Location: TP+21
Function Call: WRITE	Prompt: !,"have a height and/or weight value documented on a visit." Line Location: TP+22
Function Call: WRITE	Prompt: !!!,"You will now be able to select which sites to use in the export.",! Line Location: ASU+2
Function Call: WRITE	Prompt: !!,"No sites selected" Line Location: ASU+7
Function Call: WRITE	Prompt: !!,"A total of ",C," facilities have been selected.",!! Line Location: ASU+9
Function Call: WRITE	Prompt: !!,"A file will be created called ",BGPFN,!,"and will reside in the ",BGPUF," directory. This file can be used in Excel.",! Line Location: EISSEX+10
Function Call: WRITE	Prompt: ! Line Location: EISSEX+14
Function Call: WRITE	Prompt: !!,"Enter the BASELINE year for the report. Use a 4 digit ",!,"year, e.g. 2005" Line Location: B+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: B+10
Function Call: WRITE	Prompt: ! Line Location: F+2
Function Call: WRITE	Prompt: !,"Enter the Fiscal Year (FY) for the report END date. Use a 4 digit",!,"year, e.g. 2002, 2005" Line Location: F+4
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+12
Routine Call	DIR Line Location: ASU+3 EISSEX+15 B+6 F+8 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	EISSEX+3
^AUTTAREA - [#9999999.21]	BGP6DCHA+5
^AUTTAREA("C"	BGP6DCHA+5
^AUTTLOC - [#9999999.06]	BGP6DCHA+5, EISSEX+5, EISSEX+9, EISSEX+11, GS+11
^AUTTSITE(1	EISSEX+3, EISSEX+4
^BGPDATA	GS+2, GS+13, GS+14!, GS+7*
^BGPGPDCS - [#90374.03]	GS+5, GS+7
^DIC(4 - [#4]	LOC+1
^TMP($J	GS+1!, GS+14!
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGP6DCHA+6
$$D	EISSEX+6, EISSEX+9
EXIT	INTRO+1, ASU+7, EISSEX+16, EISSEX+17, DRIVER+3
F	B+10, F+12
GS	DRIVER+1

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BDWC	EISSEX+7*
>> BGP6RPTH	TP+2*
>> BGPA	BGP6DCHA+5*, BGP6DCHA+6
>> BGPAREAA	TP+1*
>> BGPASUF	EISSEX+5, EISSEX+11
>> BGPBBD	TP+15*, TP+19, EISSEX+9
>> BGPBD	TP+14, F+13
>> BGPBED	TP+15*
>> BGPBEN	TP+2*
>> BGPBPER	B+1, B+11
>> BGPC	GS+4, GS+6, GS+7
>> BGPCHWE	ASU+5*
>> BGPED	TP+14, TP+19, EISSEX+9, F+13
>> BGPEXCEL	EISSEX+1*
>> BGPFN	EISSEX+9*, EISSEX+10, GS+11
>> BGPNOW	EISSEX+6*, EISSEX+9
>> BGPPBD	TP+16*
>> BGPPED	TP+16*
>> BGPPER	TP+17, F+1, F+13*
>> BGPQTR	TP+17*
>> BGPQUIT	F+10*
>> BGPRTYPE	TP+2*
>> BGPSUCNT	ASU+1*
BGPSUL	ASU+4!, ASU+7
BGPSUL(	ASU+8, EISSEX+7, GS+4
>> BGPUF	EISSEX+2, EISSEX+3, EISSEX+4*, EISSEX+8, EISSEX+10
>> BGPVDT	B+1, B+9, B+11, F+3, F+11, F+13
>> BGPX	GS+4*, GS+5, GS+7
>> BGPY	GS+5*, GS+7
>> C	ASU+8*, ASU+9
D	D~, D+1
DA	ASU+3!, EISSEX+13!, EISSEX+15!
DD	EISSEX+13!
DFOUT	EOP+4!
DIADD	EISSEX+13!
DIC	EISSEX+13!, F+9!
DINUM	EISSEX+13!
DIR	ASU+3!, EISSEX+15!, B+6!, EOP+3~
DIR("?"	B+5, F+7
DIR("A"	ASU+3, EISSEX+15, B+4, F+6
DIR("B"	EISSEX+15*
DIR(0	ASU+3, EISSEX+15, B+3, F+5, EOP+5*
DIRUT	EISSEX+16, B+7, B+8, F+10, EOP+4!
DLAYGO	EISSEX+13!
DLOUT	EOP+4!
DR	EISSEX+13!
DTOUT	EOP+4!
DUOUT	B+8, F+10, EOP+4!
DUZ	USR+1
DUZ(2	BGP6DCHA+5, EISSEX+5, EISSEX+9, EISSEX+11, GS+11, LOC+1
IO("S"	EOP+2
IOF	BGP6DCHA+4
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
U	BGP6DCHA+5, EISSEX+3, EISSEX+4, EISSEX+5, EISSEX+9, EISSEX+11, GS+11, USR+1, LOC+1
X	ASU+8, EISSEX+7, EISSEX+13!, CTR~, CTR+1
>> XBF	GS+11*
>> XBFLT	GS+11*
>> XBFN	GS+11*
>> XBGL	GS+10*
>> XBMED	GS+11*
>> XBTLE	GS+11*
Y	EISSEX+13!, EISSEX+17, B+9, B+10, F+11, F+12, CTR~, CTR+1
>> ZTQUEUED	EISSEX+8, GS+2, EOP+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6DCHA

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: