Routine: CIMGAGPA

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE $$VAL^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	2	^DIC ^DIR
Aberdeen GPRA Report	1	SU1^CIMGAGP0
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT

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	;
ZIS	;call to XBDBQUE
ASU	;
SU(S)	;
FAC(S)	;
GETSU	;
Q	;which quarter
USR()	;EP - Return name of current user from ^VA(200.
INTRO	;
EXIT	;
CTR(X,Y)	;EP - Center X in a field Y wide.
Y	;fiscal year
GETTAX	;

External References

Name	Field # of Occurrence
KILL^AUPNPAT	EXIT+2
SU1^CIMGAGP0	GETTAX+6
^DIC	GETTAX+3
^DIR	DATES+6, ASU+3, ASU+14, Q+1, Y+7, EOP+5
^XBDBQUE	ZIS+5
$$VAL^XBDIQ1	ASU+12, GETSU+4
^XBFMK	ZIS+2, EXIT+3
EN^XBVK	EXIT+1
$$FMTE^XLFDT	DATES+6, ASU+12, GETSU+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("Aberdeen Area GPRA Report",80) Line Location: CIMGAGPA+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(CIM0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(19255.01,X,.04),?30,"SU: ",$$SU($P(CIM0,U,6)),?55,"Facility: ",$E($$FAC($P(CIM0,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(CIM0,U,3)),?15,"QTR: ",$$VAL^XBDIQ1(19255.01,X,.04),?30,"SU: ",$$SU($P(CIM0,U,6)),?55,"Facility: ",$E($$FAC($P(CIM0,U,5)),1,15) Line Location: GETSU+4
Function Call: WRITE	Prompt: ! Line Location: Y+1
Function Call: WRITE	Prompt: !,"Enter the FY of interest. Use a 4 digit year, e.g. 1999, 2000" Line Location: Y+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: Y+11
Routine Call	DIC Line Location: GETTAX+3
Routine Call	DIR Line Location: DATES+6 ASU+3 ASU+14 Q+1 Y+7 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC("C"	ASU+17, FAC+1
^AUTTSU - [#9999999.22]	SU+3
^AUTTSU("C"	SU+1
^CIMAGP(	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	CIMGAGPA+5
$$FAC	ASU+12, GETSU+4
$$SU	ASU+12, GETSU+4
ASU	ASU+6
DATES	ASU+4
EXIT	INTRO+1, DATES+4, DATES+7, ZIS+6
INTRO	DATES+9, GETSU+2
Q	DATES+9
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
>> C	ASU+11*, ASU+14
>> CIM0	ASU+12, GETSU+4
>> CIMASUF	ZIS+1*
CIMBD	DATES+1!, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
CIMED	DATES+1!, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
CIMPER	DATES+1!, DATES+6, ASU+8, GETSU+1, Q+4, Q+5, Q+6, Q+7, Y+12*
>> CIMQTR	DATES+2, ASU+8, GETSU+1, Q+3
>> CIMQUIT	DATES+4, DATES+9, ASU+6, ASU+9, ASU+15, ASU+16, Q+2, Y+9*
>> CIMQY	DATES+5, DATES+8, DATES+9
>> CIMRPTT	ASU+2, ASU+5, ASU+6, ASU+19
>> CIMSU	ASU+7*
>> CIMSUC	ASU+7*
>> CIMSUCNT	ASU+1, ASU+7, ASU+8, ASU+17
CIMSUL	ASU+7!, ASU+8!, ASU+9, ASU+17!, GETSU+1!, GETSU+2
CIMSUL(	ASU+8, ASU+11, ASU+17, GETSU+1*, GETSU+4
CIMSUL1	ASU+11!
CIMSUL1(	ASU+11*, ASU+12, ASU+17
>> CIMSUNM	ASU+17*
CIMTAX	GETTAX+1!, GETTAX+2*
>> CIMVDT	Y+2, Y+10, Y+12
>> CIMX	ASU+8, GETSU+1, GETTAX+5*
DA	DATES+6!, ASU+3!, ASU+14!, ZIS+3!, Q+1!
DD	ZIS+3!
DFOUT	EOP+4!
DIADD	ZIS+3!
DIC	ZIS+3!, GETTAX+3*, Y+8!
DIC("A"	GETTAX+3*
DIC(0	GETTAX+3*
DINUM	ZIS+3!
DIR	DATES+6!, ASU+3!, ASU+14!, Q+1!, EOP+3~
DIR("?"	Y+6*
DIR("A"	DATES+6, ASU+3, ASU+14, Q+1, Y+5*
DIR("B"	DATES+6, ASU+3, ASU+14*
DIR(0	DATES+6, ASU+3, ASU+14, Q+1, Y+4, EOP+5
DIRUT	DATES+7, ASU+4, ASU+15, Q+2, Y+9*, EOP+4!
DLAYGO	ZIS+3!
DLOUT	EOP+4!
DR	ZIS+3!
DTOUT	EOP+4!
DUOUT	Y+9, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
IO("S"	EOP+2
IOF	CIMGAGPA+4
IOM	CTR+1
IOST	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	ASU+8, ASU+12, ASU+17, GETSU+1, GETSU+4, FAC+3, SU+3, USR+1, LOC+1
>> V	ASU+8, GETSU+1
X	ASU+11, ASU+12, ASU+17, GETSU+4, ZIS+3!, CTR~, CTR+1
>> XBNS	ZIS+4*
>> XBRC	ZIS+4*
>> XBRP	ZIS+4*
>> XBRX	ZIS+4*
Y	DATES+8, ASU+5, ASU+16, ASU+17, ZIS+3!, GETTAX+4, GETTAX+5, Q+2, Q+3, Q+4 , Q+5, Q+6, Q+7, Y+10, Y+11, CTR~, CTR+1
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPA

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: