Routine: BGP3DARH

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	3	$$VAL^XBDIQ1 ^XBFMK EN^XBVK
IHS GPRA Information System	2	PT^BGP3DSL PRINT^BGP3PARP
IHS Patient	1	KILL^AUPNPAT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
A	;area dir year
LOC()	;EP - Return location name from file 4 based on DUZ(2).
USR()	;EP - Return name of current user from ^VA(200.
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)	;
BY	;get baseline year
GI	;gather all gpra indicators

External References

Name	Field # of Occurrence
^%ZIS	GI+7
^%ZISC	DRIVER+3
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	EXIT+2
PT^BGP3DSL	GI+4
PRINT^BGP3PARP	DRIVER+2
^DIR	TP+7, BY+6, ASU+3, ASU+15, Q+3, F+8, A+7, EOP+5
$$VAL^XBDIQ1	ASU+12, GETSU+4
^XBFMK	ZIS+2, EXIT+3
EN^XBVK	EXIT+1
$$FMTE^XLFDT	BY+18, BY+19, BY+20, ASU+12, GETSU+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR(BGPA_" Area Aggregate AREA Annual Performance Report",80) Line Location: BGP3DARH+6
Function Call: WRITE	Prompt: ! Line Location: BY+1
Function Call: WRITE	Prompt: !,"Enter the Baseline Year to compare data to.",!,"Use a 4 digit year, e.g. 1999, 2000" Line Location: BY+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: BY+10
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: BY+17
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: BY+18
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: BY+19
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: BY+20
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,")",?5,"FY: ",$$FMTE^XLFDT($P(BGP0,U,7)),?15,"QTR: ",$$VAL^XBDIQ1(90243,BGPSUL1(X),.08) 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: !?5,"FY: ",$$FMTE^XLFDT($P(BGP0,U,7)),?15,"QTR: ",$$VAL^XBDIQ1(90243,X,.08),?30,"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). Use a 4 digit year, e.g. 2002, 2003" 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+7 BY+6 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)
^AUTTAREA - [#9999999.21]	BGP3DARH+5
^AUTTAREA("C"	BGP3DARH+5
^AUTTLOC - [#9999999.06]	BGP3DARH+5, ZIS+1
^AUTTLOC("C"	ASU+18, FAC+1
^AUTTSU - [#9999999.22]	SU+3
^AUTTSU("C"	SU+1
^BGPGPDC - [#90243]	ASU+8, ASU+12, ASU+18, GETSU+1, GETSU+4
^BGPINDC - [#90242]	GI+1
^BGPINDC("AREA"	GI+1
^DIC(4 - [#4]	ASU+18, FAC+3, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGP3DARH+6
$$FAC	ASU+13, GETSU+4
$$SU	ASU+13, GETSU+4
@(	TP+10
A	A+11
ASU	ASU+6, GI+5
BY	BY+10, ASU+4
EXIT	INTRO+1, TP+1, TP+8, TP+12, DRIVER+4, TSKMN+5
F	Q+1, F+12
INTRO	TP+16, GETSU+2
Q	TP+16
TP	TP+11, BY+8
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!*
>> BGP0	ASU+12, ASU+13, GETSU+4
>> BGPA	BGP3DARH+5*, BGP3DARH+6
>> BGPAREAA	INTRO+3, TP+3
>> BGPASUF	ZIS+1*
>> BGPBBD	BY+13*, BY+20, ASU+8, GETSU+1
>> BGPBD	TP+6, TP+14, TP+15, BY+13, BY+15, BY+18, ASU+8, GETSU+1, Q+6, Q+7* , Q+8, Q+9, F+13, A+12
>> BGPBED	BY+14*, BY+20, ASU+8, GETSU+1
>> BGPDELT	GI+7
>> BGPED	TP+6, TP+14, TP+15, BY+14, BY+16, BY+18, ASU+8, GETSU+1, Q+6, Q+7* , Q+8, Q+9, F+13, A+12
>> BGPIND(	GI+1*
>> BGPINDT	GI+2*
>> BGPPBD	BY+15*, BY+19
>> BGPPED	BY+16*, BY+19
>> BGPPER	BY+11, ASU+8, GETSU+1, Q+2, Q+6, Q+7, Q+8, Q+9, F+1, F+13 , A+12*
>> BGPQTR	Q+5*
BGPQUIT	TP+4!, TP+11, TP+16, ASU+6, ASU+9, ASU+16, ASU+17, Q+2, Q+4, F+10 , A+9*
>> BGPQY	TP+5, TP+13, TP+14, TP+15, TP+16
>> BGPROT	GI+5
>> BGPRPTT	ASU+2, ASU+5, ASU+6, ASU+20
>> BGPRTYPE	INTRO+2, TP+2
>> 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
BGPSUL1	ASU+11!
BGPSUL1(	ASU+11*, ASU+12, ASU+18
>> BGPSUNM	ASU+18*
>> BGPTP	TP+6, TP+9, TP+10
>> BGPVDT	TP+14, TP+15, BY+2, BY+9, BY+11, F+3, F+11, F+13, A+2, A+10 , A+12
>> BGPX	ASU+8, GETSU+1
>> C	ASU+11*, ASU+15
DA	TP+7!, ASU+3!, ASU+15!, ZIS+3!, Q+3!
DD	ZIS+3!
DFOUT	EOP+4!
DIADD	ZIS+3!
DIC	BY+7!, ZIS+3!, F+9!, A+8!
DINUM	ZIS+3!
DIR	TP+7!, BY+6!, ASU+3!, ASU+15!, Q+3!, EOP+3~
DIR("?"	F+7, A+6
DIR("A"	TP+7, BY+5, ASU+3, ASU+15, Q+3, F+6, A+5*
DIR("B"	TP+7, ASU+3, ASU+15*
DIR(0	TP+7, BY+4, ASU+3, ASU+15, Q+3, F+5, A+4, EOP+5
DIRUT	TP+8, TP+12, BY+8, ASU+4, ASU+16, Q+4, F+10, A+9*, EOP+4!
DLAYGO	ZIS+3!
DLOUT	EOP+4!
DR	ZIS+3!
DTOUT	EOP+4!
DUOUT	BY+8, F+10, A+9, EOP+4!
DUZ	USR+1
DUZ(2	BGP3DARH+5, ZIS+1, LOC+1
IO	DRIVER+1, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	GI+9
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGP3DARH+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	BGP3DARH+5, ASU+8, ASU+12, ASU+13, ASU+18, GETSU+1, GETSU+4, ZIS+1, GI+1, FAC+3 , SU+3, USR+1, LOC+1
>> V	ASU+8, GETSU+1
X	BY+11, BY+12, BY+13, BY+14, ASU+11, ASU+12, ASU+18, GETSU+4, ZIS+3!, GI+1* , CTR~, CTR+1
Y	TP+9, TP+13, BY+9, BY+10, ASU+5, ASU+17, ASU+18, ZIS+3!, 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	EOP+2
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("BGP*"	TSKMN+4*

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP3DARH

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: