Routine: BGP7DCHA

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

Name	Comments	DBIA/ICR reference
HWSF1	;EP
EISSEX	;
HWSF3	;
HWSF2	;
GS	;EP - write out file
ASU	;
ONEF	;
F	;fiscal year
CTR(X,Y)	;EP - Center X in a field Y wide.
EOP	;EP - End of page.
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
B	;fiscal year
ZIS	;call to XBDBQUE

Name	Field # of Occurrence
^%ZISC	DRIVER+2, EXIT+1, HWSF3+18, HWSF1+12
$$OPEN^%ZISH	HWSF3+9, HWSF1+5
KILL^AUPNPAT	EXIT+3
EN^BGP7ASL	ASU+6
$$LZERO^BGP7UTL	HWSF3+7
^DIR	ASU+3, EISSEX+16, ONEF+17, B+6, F+8, EOP+5
^XBFMK	EISSEX+13, EXIT+4
EN^XBVK	EXIT+2
$$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: BGP7DCHA+6
Function Call: WRITE	Prompt: !!,"This option is used to produce an area aggregate Height and" Line Location: BGP7DCHA+7
Function Call: WRITE	Prompt: !,"Weight Export file. This is a single delimited file that will be comprised" Line Location: BGP7DCHA+8
Function Call: WRITE	Prompt: !,"of height and weight data. This file should be exported to the Division" Line Location: BGP7DCHA+9
Function Call: WRITE	Prompt: !,"of Epidemiology, where it will construct frequency curves of BMI as" Line Location: BGP7DCHA+10
Function Call: WRITE	Prompt: !,"a GPRA developmental performance measure.",!! Line Location: BGP7DCHA+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: ! Line Location: EISSEX+15
Function Call: WRITE	Prompt: !!!,"An Area wide Height/Weight Export file will be created. You can choose" Line Location: ONEF+2
Function Call: WRITE	Prompt: !,"to create one file of data or multiple files of data. If you are" Line Location: ONEF+3
Function Call: WRITE	Prompt: !,"planning to review this data using Microsoft Excel please keep in" Line Location: ONEF+4
Function Call: WRITE	Prompt: !,"mind that Excel can only handle 65,536 records per file. If you" Line Location: ONEF+5
Function Call: WRITE	Prompt: !,"are using this data for your own use and will be using Microsoft" Line Location: ONEF+6
Function Call: WRITE	Prompt: !,"Excel to review the data you must choose to create multiple files." Line Location: ONEF+7
Function Call: WRITE	Prompt: !,"If you are creating this file to send to the Division of Epidemiology" Line Location: ONEF+8
Function Call: WRITE	Prompt: !,"then you should select to create one file. If you want to both review" Line Location: ONEF+9
Function Call: WRITE	Prompt: !,"and export your data you will need to run this option twice." Line Location: ONEF+10
Function Call: WRITE	Prompt: !,"If you choose to create one file it will be called:" Line Location: ONEF+11
Function Call: WRITE	Prompt: !?5,BGPFN,!?5,"and will reside in the ",BGPUF," directory." Line Location: ONEF+12
Function Call: WRITE	Prompt: !,"If you have multiple files generated they will all have the" Line Location: ONEF+13
Function Call: WRITE	Prompt: !,"same name with the last 10 characters of the filename being a" Line Location: ONEF+14
Function Call: WRITE	Prompt: !,"of the number of files (e.g. _001_of_003)." Line Location: ONEF+15
Function Call: WRITE	Prompt: !!,"Writing out Ht/Wt file...." Line Location: GS+15
Function Call: WRITE	Prompt: !?10,BGPFN Line Location: HWSF1+4
Function Call: WRITE	Prompt: "SERVICE UNIT^ASUFAC^UNIQUE DB ID^DATE RUN^BEG DATE^END DATE^PATIENT UID^DOB^TRIBE CODE^GENDER^STATE OF RESIDENCE^UNIQUE VISIT ID^DATE OF VISIT^TIME OF VISIT^HT CM^WT KG",! Line Location: HWSF1+8
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+16 ONEF+17 B+6 F+8 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	EISSEX+3
^AUTTAREA - [#9999999.21]	BGP7DCHA+5
^AUTTAREA("C"	BGP7DCHA+5
^AUTTLOC - [#9999999.06]	BGP7DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2
^AUTTSITE(1	EISSEX+3, EISSEX+4
^BGPGPDCA - [#90530.03]	HWSF2+1
^DIC(4 - [#4]	LOC+1
^TMP($J	GS+14!, HWSF2+1*, HWSF3+14, HWSF3+15, HWSF1+10, HWSF1+11
^VA(200 - [#200]	USR+1

Name	Line Occurrences
$$CTR	BGP7DCHA+6
$$D	EISSEX+6, EISSEX+10, HWSF3+7, HWSF1+2
EXIT	INTRO+1, ASU+7, EISSEX+17, EISSEX+18, DRIVER+3
F	B+10, F+12
GS	DRIVER+1
HWSF1	HWSF3+1
HWSF2	GS+18
HWSF3	GS+19

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*
>> BGP7RPTH	TP+2*
>> BGPA	BGP7DCHA+5*, BGP7DCHA+6
>> BGPAREAA	TP+1*
>> BGPASUF	EISSEX+5, EISSEX+12
>> BGPBBD	TP+15*, TP+19
>> BGPBD	TP+14, EISSEX+10, HWSF3+7, HWSF1+2, F+13
>> BGPBED	TP+15*
>> BGPBEN	TP+2*
>> BGPBPER	B+1, B+11
>> BGPC	HWSF3+13, HWSF3+14, HWSF3+16, HWSF1+9*
>> BGPCHWE	ASU+5*
>> BGPED	TP+14, TP+19, EISSEX+10, HWSF3+7, HWSF1+2, F+13
>> BGPEXCEL	EISSEX+1*
>> BGPFN	EISSEX+10, ONEF+12, HWSF3+7, HWSF3+8, HWSF3+9, HWSF1+2*, HWSF1+3, HWSF1+4, HWSF1+5
BGPFNX	GS+17!
BGPFNX(	HWSF3+8, HWSF1+3
>> BGPLX	HWSF3+5, HWSF3+13, HWSF3+17
>> BGPNF	HWSF3+3, HWSF3+4, HWSF3+6, HWSF3+7
>> BGPNF1	HWSF3+2*, HWSF3+3
>> BGPNOW	EISSEX+6*, EISSEX+10, HWSF3+7, HWSF1+2
>> BGPONEF	ONEF+1, ONEF+19, HWSF3+1
>> BGPPBD	TP+16*
>> BGPPED	TP+16*
>> BGPPER	TP+17, F+1, F+13*
>> BGPQTR	TP+17*
>> BGPQUIT	F+10*
>> BGPRPT	GS+18*, HWSF2+1
>> BGPRTYPE	TP+2*
>> BGPSUCNT	ASU+1*
BGPSUL	ASU+4!, ASU+7
BGPSUL(	ASU+8, EISSEX+7, GS+18
>> BGPTOT	GS+18, HWSF2+1, HWSF3+2
>> BGPUF	EISSEX+2, EISSEX+3, EISSEX+4*, EISSEX+8, ONEF+12, HWSF3+9, HWSF1+5
>> BGPVDT	B+1, B+9, B+11, F+3, F+11, F+13
>> BGPX	HWSF2+1, HWSF3+5, HWSF3+13, HWSF3+14, HWSF3+15, HWSF3+17, HWSF1+9, HWSF1+10, HWSF1+11
>> BGPZ	HWSF3+6, HWSF3+7, HWSF3+8, HWSF1+2, HWSF1+3
>> C	ASU+8*, ASU+9
D	D~, D+1
DA	ASU+3!, EISSEX+14!, EISSEX+16!, ONEF+17!
DD	EISSEX+14!
DFOUT	EOP+4!
DIADD	EISSEX+14!
DIC	EISSEX+14!, F+9!
DINUM	EISSEX+14!
DIR	ASU+3!, EISSEX+16!, ONEF+17!, B+6!, EOP+3~
DIR("?"	B+5, F+7
DIR("A"	ASU+3, EISSEX+16, ONEF+17, B+4, F+6*
DIR("B"	EISSEX+16, ONEF+17
DIR(0	ASU+3, EISSEX+16, ONEF+17, B+3, F+5, EOP+5
DIRUT	EISSEX+17, ONEF+18, B+7, B+8, F+10, EOP+4!
DLAYGO	EISSEX+14!
DLOUT	EOP+4!
DR	EISSEX+14!
DTOUT	EOP+4!
DUOUT	B+8, F+10, EOP+4!
DUZ	USR+1
DUZ(2	BGP7DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2, LOC+1
IO	HWSF3+11, HWSF1+4, HWSF1+7
IO("S"	EOP+2
IOF	BGP7DCHA+4
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
U	BGP7DCHA+5, EISSEX+3, EISSEX+4, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2, USR+1, LOC+1
X	ASU+8, EISSEX+7, EISSEX+14!, CTR~, CTR+1
Y	EISSEX+14!, EISSEX+18, ONEF+19, HWSF3+9, HWSF3+10, HWSF1+5, HWSF1+6, B+9, B+10, F+11 , F+12, CTR~, CTR+1
>> ZTQUEUED	EISSEX+8, GS+15, HWSF3+10, HWSF1+4, HWSF1+6, EOP+2

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7DCHA

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: