Routine: BGPDAREA

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

Entry Points

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

External References

Name	Field # of Occurrence
^%ZIS	ZIS+6
^%ZISC	DRIVER+3
^%ZTLOAD	TSKMN+5
KILL^AUPNPAT	EXIT+2
PRINT^BGPDPARP	DRIVER+2
^DIR	DATES+6, BY+6, ASU+3, ASU+14, Q+1, Y+7, EOP+5
^XBDBQUE	OLD+2
$$VAL^XBDIQ1	ASU+12, GETSU+4
^XBFMK	ZIS+2, EXIT+3
EN^XBVK	EXIT+1
$$FMTE^XLFDT	DATES+6, N+3, N+4, N+5, ASU+12, GETSU+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR(BGPA_" Area GPRA Report",80) Line Location: BGPDAREA+7
Function Call: WRITE	Prompt: ! Line Location: BY+1
Function Call: WRITE	Prompt: !,"Enter the Baseline Year that you would like to compare the 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: N+2
Function Call: WRITE	Prompt: !?5,"Reporting Period: ",?31,$$FMTE^XLFDT(BGPBD)," to ",?31,$$FMTE^XLFDT(BGPED) Line Location: N+3
Function Call: WRITE	Prompt: !?5,"Previous Year Period: ",?31,$$FMTE^XLFDT(BGPPBD)," to ",?31,$$FMTE^XLFDT(BGPPED) Line Location: N+4
Function Call: WRITE	Prompt: !?5,"Baseline Period: ",?31,$$FMTE^XLFDT(BGPBBD)," to ",?31,$$FMTE^XLFDT(BGPBED) Line Location: N+5
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,3)),?15,"QTR: ",$$VAL^XBDIQ1(90240.01,BGPSUL1(X),.04),?30,"SU: ",$$SU($P(BGP0,U,6)),?55,"Facility: ",$E($$FAC($P(BGP0,U,5)),1,15) 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,3)),?15,"QTR: ",$$VAL^XBDIQ1(90240.01,X,.04),?30,"SU: ",$$SU($P(BGP0,U,6)),?55,"Facility: ",$E($$FAC($P(BGP0,U,5)),1,15) Line Location: GETSU+4
Function Call: WRITE	Prompt: !! Line Location: ZIS+6
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+7
Function Call: WRITE	Prompt: ! Line Location: Y+1
Function Call: WRITE	Prompt: !,"Enter the YEAR of interest. Use a 4 digit year, e.g. 2002" Line Location: Y+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: Y+11
Routine Call	DIR Line Location: DATES+6 BY+6 ASU+3 ASU+14 Q+1 Y+7 EOP+5
Routine Call	%ZIS Line Location: ZIS+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTAREA - [#9999999.21]	BGPDAREA+6
^AUTTAREA("C"	BGPDAREA+6
^AUTTLOC - [#9999999.06]	BGPDAREA+6, ZIS+1
^AUTTLOC("C"	ASU+17, FAC+1
^AUTTSU - [#9999999.22]	SU+3
^AUTTSU("C"	SU+1
^BGPD - [#90240.01]	ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4
^DIC(4 - [#4]	ASU+17, FAC+3, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	BGPDAREA+7
$$FAC	ASU+12, GETSU+4
$$SU	ASU+12, GETSU+4
ASU	ASU+6
BY	BY+10, ASU+4
DATES	BY+8
EXIT	INTRO+1, DATES+4, DATES+7, DRIVER+4, TSKMN+5, OLD+3
INTRO	DATES+11, GETSU+2
N	BY+11, BY+12, BY+13, BY+14, BY+15, BY+16
Q	DATES+11
TSKMN	ZIS+8
Y	DATES+3, Y+11
ZIS	ASU+19

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	ZIS+6*
>> BGP0	ASU+12, GETSU+4
>> BGPA	BGPDAREA+6*, BGPDAREA+7
>> BGPAREAA	INTRO+2*
>> BGPASUF	ZIS+1*
>> BGPBBD	BY+11, BY+12, BY+13, BY+14, BY+15, BY+16, N+5, GETSU+1
BGPBD	DATES+1!, DATES+9, DATES+10, N, N+3, ASU+8, GETSU+1, Q+4, Q+5, Q+6* , Q+7*
>> BGPBED	BY+11, BY+12, BY+13, BY+14, BY+15, BY+16, N+5, GETSU+1
BGPED	DATES+1!, DATES+9, DATES+10, N+1, N+3, ASU+8, GETSU+1, Q+4, Q+5, Q+6* , Q+7*
>> BGPIND(	ZIS+4*
>> BGPPBD	N*, N+4
>> BGPPED	N+1*, N+4
BGPPER	DATES+1!, DATES+6, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
>> BGPQTR	DATES+2, BY+11, BY+12, BY+13, BY+14, BY+15, BY+16, ASU+8, GETSU+1, Q+3
>> BGPQUIT	DATES+4, DATES+11, ASU+6, ASU+9, ASU+15, ASU+16, Q+2, Y+9*
>> BGPQY	DATES+5, DATES+8, DATES+9, DATES+10, DATES+11, BY+11, BY+13
>> BGPRPTT	ASU+2, ASU+5, ASU+6, ASU+19
>> BGPSU	ASU+7*
>> BGPSUC	ASU+7*
>> BGPSUCNT	ASU+1, ASU+7, ASU+8, ASU+17
BGPSUL	ASU+7!, ASU+8!, ASU+9, ASU+17!, GETSU+1!, GETSU+2
BGPSUL(	ASU+8, ASU+11, ASU+17, GETSU+1*, GETSU+4
BGPSUL1	ASU+11!
BGPSUL1(	ASU+11*, ASU+12, ASU+17
>> BGPSUNM	ASU+17*
>> BGPVDT	DATES+9, DATES+10, BY+2, BY+9, BY+11, BY+12, BY+13, BY+14, BY+15, BY+16 , Y+2, Y+10, Y+12
>> BGPX	ASU+8, GETSU+1
>> C	ASU+11*, ASU+14
DA	DATES+6!, ASU+3!, ASU+14!, ZIS+3!, Q+1!
DD	ZIS+3!
DFOUT	EOP+4!
DIADD	ZIS+3!
DIC	BY+7!, ZIS+3!, Y+8!
DINUM	ZIS+3!
DIR	DATES+6!, ASU+3!, ASU+14!, Q+1!, EOP+3~
DIR("?"	Y+6*
DIR("A"	DATES+6, BY+5, ASU+3, ASU+14, Q+1, Y+5
DIR("B"	DATES+6, ASU+3, ASU+14*
DIR(0	DATES+6, BY+4, ASU+3, ASU+14, Q+1, Y+4, EOP+5*
DIRUT	DATES+7, BY+8, ASU+4, ASU+15, Q+2, Y+9, EOP+4!
DLAYGO	ZIS+3!
DLOUT	EOP+4!
DR	ZIS+3!
DTOUT	EOP+4!
DUOUT	BY+8, Y+9, EOP+4!
DUZ	USR+1
DUZ(2	BGPDAREA+6, ZIS+1, LOC+1
IO	DRIVER+1, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+8
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	BGPDAREA+5
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
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	BGPDAREA+6, ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4, ZIS+1, FAC+3, SU+3, USR+1 , LOC+1
>> V	ASU+8, GETSU+1
X	ASU+11, ASU+12, ASU+17, GETSU+4, ZIS+3!, ZIS+4*, CTR~, CTR+1
>> XBNS	OLD+1*
>> XBRC	OLD+1*
>> XBRP	OLD+1*
>> XBRX	OLD+1*
Y	DATES+8, BY+9, BY+10, ASU+5, ASU+16, ASU+17, ZIS+3!, Q+2, Q+3, Q+4 , Q+5, Q+6, Q+7, Y+10, Y+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: BGPDAREA

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: