Routine: CIMGAGPJ

Information

CIMGAGPJ ;IHS/CMI/LAB - cover page for gpra area [ 03/14/00 8:52 PM ]

Source file <CIMGAGPJ.m>

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

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPB

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

Name	Field # of Occurrence
^DIR	HEADER+2, EOP+5
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, HEADER1+6

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?1,"Report includes the following facility data:" Line Location: CIMGAGPJ+4
Function Call: WRITE	Prompt: !?10,$E($P(Y,";",X),1,20),?30,$E($P(Y,";",(X+1)),1,20),?60,$E($P(Y,";",(X+2)),1,20) Line Location: CIMGAGPJ+11
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",CIMGPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: !,$$CTR("Aberdeen Area GPRA Report") Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("Area AGGREGATE Report") Line Location: HEADER1+4
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEADER1+6
Routine Call	DIR Line Location: HEADER+2 EOP+5

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC("C"	CIMGAGPJ+8
^CIMAGP(	CIMGAGPJ+8, CIMGAGPJ+10
^DIC(4 - [#4]	CIMGAGPJ+8
^VA(200 - [#200]	HEADER1+2, USR+1

Name	Field # of Occurrence
^(0	USR+1

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