Routine: BGP4DARA

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT
IHS GPRA Information System	3	PT^BGP4DSL PRINT^BGP4PARP ($$D,$$LZERO,$$RZERO,EXCELGS)^BGP4UTL
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
IHS Patient	1	KILL^AUPNPAT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
A	;area dir year
EISSEX	;
USR()	;EP - Return name of current user from ^VA(200.
BEN	;
ZIS	;call to XBDBQUE
ASU	;
F	;fiscal year
FAC(S)	;
EOP	;EP - End of page.
DRIVER	;
GETSU	;
TP	;
Q	;which quarter
CTR(X,Y)	;EP - Center X in a field Y wide.
INTRO	;
EXIT	;
TSKMN	;EP ENTRY POINT FROM TASKMAN
SU(S)	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
BY	;get baseline year
GI	;gather all gpra indicators

External References

Name	Field # of Occurrence
^%ZIS	GI+7
^%ZISC	DRIVER+4
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	EXIT+2
PT^BGP4DSL	GI+4
PRINT^BGP4PARP	DRIVER+2
$$D^BGP4UTL	EISSEX+9
$$LZERO^BGP4UTL	EISSEX+9
$$RZERO^BGP4UTL	EISSEX+6
EXCELGS^BGP4UTL	DRIVER+3
^DIR	TP+5, TP+17, BY+5, BEN+4, ASU+3, ASU+15, Q+3, F+8, A+7, EOP+5
$$VAL^XBDIQ1	ASU+12, GETSU+4
^XBFMK	EISSEX+14, EXIT+3
EN^XBVK	EXIT+1
$$FMTE^XLFDT	TP+15, BY+17, BY+18, BY+19, ASU+12, GETSU+4
$$NOW^XLFDT	EISSEX+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR(BGPA_" FY 04 Area Aggregate AREA Annual Performance Report",80) Line Location: BGP4DARA+6
Function Call: WRITE	Prompt: !,"Year not entered.",! Line Location: TP+9
Function Call: WRITE	Prompt: !!,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 1999, 2000" Line Location: BY+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: BY+9
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: BY+16
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: BY+17
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: BY+18
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: BY+19
Function Call: WRITE	Prompt: !!,"No data from that time period has been uploaded from the service units.",! Line Location: ASU+9
Function Call: WRITE	Prompt: !?2,X,")",?2,"FY: ",$$FMTE^XLFDT($P(BGP0,U,7)),?11,"END DATE: ",$$VAL^XBDIQ1(90244.03,BGPSUL1(X),.02) Line Location: ASU+12
Function Call: WRITE	Prompt: !!,"No data from that time period has been uploaded from the service units.",! Line Location: GETSU+2
Function Call: WRITE	Prompt: !!,"Data from the following Facilities has been received and will be used",!,"in the Area Aggregate Report:",! Line Location: GETSU+3
Function Call: WRITE	Prompt: !?2,"FY: ",$$FMTE^XLFDT($P(BGP0,U,7)),?11,"END DATE: ",$$VAL^XBDIQ1(90244.03,X,.02),?35,"SU: ",$$SU($P(BGP0,U,11)),?55,"Facility: ",$E($$FAC($P(BGP0,U,9)),1,15) Line Location: GETSU+4
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: GI+8
Function Call: WRITE	Prompt: !,"No YEAR entered" Line Location: Q+2
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, 2004" Line Location: F+4
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+12
Function Call: WRITE	Prompt: ! Line Location: A+1
Function Call: WRITE	Prompt: !,"Enter the appropriate AREA REPORTING YEAR. Use a 4 digit year, e.g. 2002" Line Location: A+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: A+11
Routine Call	DIR Line Location: TP+5 TP+17 BY+5 BEN+4 ASU+3 ASU+15 Q+3 F+8 A+7 EOP+5
Routine Call	%ZIS Line Location: GI+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	EISSEX+3
^AUTTAREA - [#9999999.21]	BGP4DARA+5
^AUTTAREA("C"	BGP4DARA+5
^AUTTLOC - [#9999999.06]	BGP4DARA+5, EISSEX+9, EISSEX+11
^AUTTLOC("C"	ASU+18, FAC+1
^AUTTSITE(1	EISSEX+3, EISSEX+4
^AUTTSU - [#9999999.22]	SU+3
^AUTTSU("C"	SU+1
^BGPGPDCF - [#90244.03]	ASU+8, ASU+12, ASU+18, GETSU+1, GETSU+4
^BGPINDF("AREA"	GI+1
^DIC(4 - [#4]	ASU+18, FAC+3, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGP4DARA+6
$$FAC	ASU+13, GETSU+4
$$SU	ASU+13, GETSU+4
A	A+11
ASU	ASU+6, GI+5
BY	BY+9, ASU+4
EXIT	INTRO+1, TP+1, TP+6, DRIVER+5, TSKMN+5
F	TP+8, Q+1, F+12
INTRO	GETSU+2
TP	TP+9, TP+14, BY+6, BY+7, BEN+5
TSKMN	GI+9
ZIS	ASU+20

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	GI+7!*
>> BDWC	EISSEX+7*, EISSEX+9
>> BGP0	ASU+12, ASU+13, GETSU+4
>> BGPA	BGP4DARA+5*, BGP4DARA+6
>> BGPAREAA	TP+2*
>> BGPASUF	EISSEX+11*
>> BGPBBD	BY+12*, BY+19, ASU+8, GETSU+1
>> BGPBD	TP+4, TP+10, TP+11, TP+12, TP+13, TP+15, BY+12, BY+14, BY+17, ASU+8 , GETSU+1, Q+6, Q+7, Q+8, Q+9, F+13, A+12*
>> BGPBED	BY+13*, BY+19, ASU+8, GETSU+1
>> BGPBEN	BEN+1, BEN+6, ASU+8, GETSU+1, EISSEX+5
>> BGPDELT	GI+7
>> BGPDO	TP+14, TP+17, TP+18, TP+19*
>> BGPED	TP+4, TP+10, TP+11, TP+12, TP+13, TP+14, TP+15, BY+13, BY+15, BY+17 , ASU+8, GETSU+1, EISSEX+9, Q+6, Q+7, Q+8, Q+9, F+13, A+12*
>> BGPEXCEL	EISSEX+1, EISSEX+5, EISSEX+12
>> BGPFN	EISSEX+9*, EISSEX+13
>> BGPIND(	GI+1*
>> BGPINDT	GI+2*
>> BGPNOW	EISSEX+6*, EISSEX+9
>> BGPPBD	BY+14*, BY+18
>> BGPPED	BY+15*, BY+18
>> BGPPER	TP+9, TP+10, TP+11, TP+12, TP+13, BY+10, ASU+8, GETSU+1, Q+2, Q+6 , Q+7, Q+8, Q+9, F+1, F+13, A+12*
>> BGPQTR	TP+7, TP+10, TP+11, TP+12, TP+13, Q+5
>> BGPQUIT	ASU+6, ASU+9, ASU+16, ASU+17, Q+2, Q+4, F+10, A+9*
>> BGPROT	GI+5
>> BGPRPTT	ASU+2, ASU+5, ASU+6, ASU+20
>> BGPRTYPE	TP+3*
>> BGPSU	ASU+7*
>> BGPSUC	ASU+7*
>> BGPSUCNT	ASU+1, ASU+7, ASU+8, ASU+18
BGPSUL	ASU+7!, ASU+8!, ASU+9, ASU+18!, GETSU+1!, GETSU+2
BGPSUL(	ASU+8, ASU+11, ASU+18, GETSU+1*, GETSU+4, EISSEX+7
BGPSUL1	ASU+11!
BGPSUL1(	ASU+11*, ASU+12, ASU+18
>> BGPSUNM	ASU+18*
>> BGPTP	TP+4*
>> BGPUF	EISSEX+2, EISSEX+3, EISSEX+4*, EISSEX+8, EISSEX+13
>> BGPVDT	BY+1, BY+8, BY+10, F+3, F+11, F+13, A+2, A+10, A+12
>> BGPX	ASU+8, GETSU+1
>> C	ASU+11*, ASU+15
DA	TP+5!, TP+17!, BEN+4!, ASU+3!, ASU+15!, EISSEX+15!, Q+3!
DD	EISSEX+15!
DFOUT	EOP+4!
DIADD	EISSEX+15!
DIC	EISSEX+15!, F+9!, A+8!
DINUM	EISSEX+15!
DIR	TP+5!, TP+17!, BY+5!, BEN+4!, ASU+3!, ASU+15!, Q+3!, EOP+3~
DIR("?"	F+7, A+6
DIR("A"	TP+5, TP+17, BY+4, BEN+2, ASU+3, ASU+15, Q+3, F+6, A+5*
DIR("B"	TP+17, BEN+3, ASU+3, ASU+15
DIR(0	TP+5, TP+17, BY+3, BEN+2, ASU+3, ASU+15, Q+3, F+5, A+4, EOP+5
DIRUT	TP+6, TP+18, BY+6, BY+7, BEN+5, ASU+4, ASU+16, Q+4, F+10, A+9* , EOP+4!
DLAYGO	EISSEX+15!
DLOUT	EOP+4!
DR	EISSEX+15!
DT	TP+14
DTOUT	EOP+4!
DUOUT	BY+7, F+10, A+9, EOP+4!
DUZ	USR+1
DUZ(2	BGP4DARA+5, EISSEX+9, EISSEX+11, LOC+1
IO	DRIVER+1, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	GI+9
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGP4DARA+4
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	GI+7!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
>> IOT	EOP+2
N	FAC+1~, FAC+2, FAC+3, SU+1~, SU+2, SU+3
S	FAC~, FAC+1, SU~, SU+1
U	BGP4DARA+5, ASU+8, ASU+12, ASU+13, ASU+18, GETSU+1, GETSU+4, EISSEX+3, EISSEX+4, EISSEX+9 , EISSEX+11, FAC+3, SU+3, USR+1, LOC+1
>> V	ASU+8, GETSU+1
X	BY+10, BY+11, BY+12, BY+13, ASU+11, ASU+12, ASU+18, GETSU+4, EISSEX+7, EISSEX+15! , GI+1, CTR~, CTR+1
Y	TP+7, TP+19, BY+8, BY+9, BEN+6, ASU+5, ASU+17, ASU+18, EISSEX+15!, GI+1* , Q+4, Q+5, Q+6, Q+7, Q+8, Q+9, F+11, F+12, A+10, A+11 , CTR~, CTR+1
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	EISSEX+8, EOP+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP4DARA

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: