Routine: BGP8DCHA

Package	Total	Call Graph
Kernel	3	^%ZISC $$OPEN^%ZISH ($$FMTE,$$NOW)^XLFDT
IHS GPRA Information System	2	EN^BGP8ASL $$LZERO^BGP8UTL
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
ZIS	;call to XBDBQUE
ASU	;
ONEF	;
CTR(X,Y)	;EP - Center X in a field Y wide.
F	;fiscal year
DRIVER	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
TP	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
INTRO	;
EXIT	;
D(D)	;EP
B	;fiscal year
EOP	;EP - End of page.
NT	;END TEST STUFF

Name	Field # of Occurrence
^%ZISC	DRIVER+2, EXIT+1, HWSF3+18, HWSF1+12
$$OPEN^%ZISH	HWSF3+9, HWSF1+5
KILL^AUPNPAT	EXIT+3
EN^BGP8ASL	ASU+6
$$LZERO^BGP8UTL	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	START+2
$$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: BGP8DCHA+6
Function Call: WRITE	Prompt: !!,"This option is used to produce an area aggregate Height and" Line Location: BGP8DCHA+7
Function Call: WRITE	Prompt: !,"Weight Export file. This is a single delimited file that will be comprised" Line Location: BGP8DCHA+8
Function Call: WRITE	Prompt: !,"of height and weight data. This file will be used by the Division" Line Location: BGP8DCHA+9
Function Call: WRITE	Prompt: !,"of Epidemiology, where it will construct frequency curves of BMI as" Line Location: BGP8DCHA+10
Function Call: WRITE	Prompt: !,"a GPRA developmental performance measure.",!! Line Location: BGP8DCHA+11
Function Call: WRITE	Prompt: !!,"for testing purposes only, please enter a report year",! Line Location: TP+11
Function Call: WRITE	Prompt: !!,"no year entered..bye" Line Location: TP+13
Function Call: WRITE	Prompt: !!,"for testing purposes only, please enter a BASELINE year",! Line Location: TP+17
Function Call: WRITE	Prompt: !!,"no year entered..bye" Line Location: TP+19
Function Call: WRITE	Prompt: !,"This file will contain height and weight data for the time period" Line Location: START+1
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(BGPBD)," through ",$$FMTE^XLFDT(BGPED)," for all Active Clinical" Line Location: START+2
Function Call: WRITE	Prompt: !,"patients 0-18 who have both a height and weight value documented" Line Location: START+3
Function Call: WRITE	Prompt: !,"on a visit and for all Active Clinical patients age 19-65 who" Line Location: START+4
Function Call: WRITE	Prompt: !,"have a height and/or weight value documented on visits during this time" Line Location: START+5
Function Call: WRITE	Prompt: !,"period." Line Location: START+6
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]	BGP8DCHA+5
^AUTTAREA("C"	BGP8DCHA+5
^AUTTLOC - [#9999999.06]	BGP8DCHA+5, EISSEX+5, EISSEX+10, EISSEX+12, HWSF3+7, HWSF1+2
^AUTTSITE(1	EISSEX+3, EISSEX+4
^BGPCTRL - [#90241.01]	TP+4
^BGPCTRL("B"	TP+3
^BGPGPDCE - [#90533.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	BGP8DCHA+6
$$D	EISSEX+6, EISSEX+10, HWSF3+7, HWSF1+2
B	TP+18
EXIT	INTRO+1, TP+13, TP+19, ASU+7, EISSEX+17, EISSEX+18, DRIVER+3
F	TP+12, B+10, F+12
GS	DRIVER+1
HWSF1	HWSF3+1
HWSF2	GS+18
HWSF3	GS+19
NT	TP+10
START	TP+21

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGP8RPTH	TP+2*
>> BGPA	BGP8DCHA+5*, BGP8DCHA+6
>> BGPAREAA	TP+1*
>> BGPASUF	EISSEX+5, EISSEX+12
>> BGPBBD	TP+7, TP+20
>> BGPBD	TP+5, TP+15, START+2, EISSEX+10, HWSF3+7, HWSF1+2, F+13*
>> BGPBED	TP+7, TP+20
>> BGPBEN	TP+2*
>> BGPBPER	TP+19, TP+20, B+1, B+11
>> BGPC	EISSEX+7, HWSF3+13, HWSF3+14, HWSF3+16, HWSF1+9
>> BGPCHWE	ASU+5*
>> BGPED	TP+5, TP+15, START+2, 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+6, TP+16
>> BGPPED	TP+6, TP+16
>> BGPPER	TP+8, TP+13, TP+15, TP+16, F+1, F+13*
>> BGPQTR	TP+8, TP+14
>> 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	BGP8DCHA+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	BGP8DCHA+4
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
U	BGP8DCHA+5, TP+5, TP+6, TP+7, TP+8, EISSEX+3, EISSEX+4, EISSEX+5, EISSEX+10, EISSEX+12 , HWSF3+7, HWSF1+2, USR+1, LOC+1
X	TP+3, TP+4, ASU+8, EISSEX+7*, EISSEX+14!, CTR~, CTR+1
Y	TP+4, TP+5, TP+6, TP+7, TP+8, 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, EXIT+2, GS+15, HWSF3+10, HWSF1+4, HWSF1+6, EOP+2
>> ZTREQ	EXIT+2*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP8DCHA

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: