Routine: CIMGAGPH

Information

CIMGAGPH ;IHS/CMI/LAB - cover page for gpra [ 03/09/00 8:53 AM ]

Source file <CIMGAGPH.m>

Package	Total	Call Graph
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPP

Name	Comments	DBIA/ICR reference
CTR(X,Y)	;EP - Center X in a field Y wide.
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.

Name	Field # of Occurrence
^DIR	EOP+5
$$FMTE^XLFDT	CIMGAGPH+6, CIMGAGPH+8, CIMGAGPH+9

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("Cover Page") Line Location: CIMGAGPH+4
Function Call: WRITE	Prompt: !!,$$CTR("Aberdeen Area GPRA Report") Line Location: CIMGAGPH+5
Function Call: WRITE	Prompt: !,$$CTR("Date Report Run: "_$$FMTE^XLFDT(DT)) Line Location: CIMGAGPH+6
Function Call: WRITE	Prompt: !,$$CTR("Site where Run: "_$P(^DIC(4,DUZ(2),0),U)) Line Location: CIMGAGPH+7
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: CIMGAGPH+8
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: CIMGAGPH+9
Function Call: WRITE	Prompt: !!?10,"The following communities are included in this report:",! Line Location: CIMGAGPH+10
Routine Call	DIR Line Location: EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CIMGAGPH+7
^VA(200 - [#200]	USR+1

Name	Line Occurrences
$$CTR	CIMGAGPH+4, CIMGAGPH+5, CIMGAGPH+6, CIMGAGPH+7, CIMGAGPH+8, CIMGAGPH+9
EOP	CIMGAGPH+13

Name	Field # of Occurrence
^(0	USR+1

Name	Field # of Occurrence
>> CIM98B	CIMGAGPH+9
>> CIM98E	CIMGAGPH+9
>> CIMBD	CIMGAGPH+8
>> CIMED	CIMGAGPH+8
CIMQUIT	CIMGAGPH+16!
>> CIMTAX(	CIMGAGPH+12
CIMX	CIMGAGPH+11~, CIMGAGPH+12*, CIMGAGPH+14, CIMGAGPH+16!
DFOUT	EOP+4!
DIR	EOP+3~
DIR(0	EOP+5*
DIRUT	EOP+4!
DLOUT	EOP+4!
DT	CIMGAGPH+6
DTOUT	EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	CIMGAGPH+7
IO("S"	EOP+2
IOF	CIMGAGPH+3, CIMGAGPH+13
IOM	CTR+1
IOSL	CIMGAGPH+13
IOST	EOP+1
>> IOT	EOP+2
U	CIMGAGPH+7, USR+1
X	CIMGAGPH+8, CIMGAGPH+9, CTR~, CTR+1
Y	CTR~, CTR+1
>> ZTQUEUED	EOP+2