Routine: CIMGAGPW

Information

CIMGAGPW ; CMI/TUCSON/LAB - aberdeen gpra print ; [ 03/14/00 9:49 AM ]

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPT

Name	Comments	DBIA/ICR reference
INJ	;tally injuries
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
V(R,N,P)	;
HEADER	;EP
USR()	;EP - Return name of current user from ^VA(200.
HEADER1	;
C(X,X2,X3)	;
CALC(N,O)	;ENTRY POINT
INJPP	;

Name	Line Occurrences
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 INDICATORS *",80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U)),! 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
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+7
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: HEADER1+8
Function Call: WRITE	Prompt: !,"Injury Diagnoses and E Codes" Line Location: HEADER1+9
Routine Call	DIR Line Location: HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^CIMAGP(	INJ+3, INJ+4, INJ+6, INJ+7, INJ+8, INJ+9, INJ+10, INJ+11, V+1
^DIC(4 - [#4]	HEADER1+4, LOC+1
^TMP($J	INJ+2!, INJ+4, INJ+6, INJ+7, INJ+9, INJ+10, INJ+11, INJPP+2, INJPP+3, INJPP+14 , INJPP+15
^VA(200 - [#200]	HEADER1+2, USR+1

Name	Line Occurrences
$$C	INJPP+6, INJPP+8, INJPP+9, INJPP+10, INJPP+11, INJPP+12, INJPP+18
$$CALC	INJPP+7, INJPP+8, INJPP+9, INJPP+10, INJPP+11, INJPP+12, INJPP+19
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
HEADER	INJ+1, INJPP+4, INJPP+16
HEADER1	HEADER+1

Name	Field # of Occurrence
^(	INJ+4, INJ+7, INJ+9, INJ+11
^(0	INJ+4, INJ+7, INJ+9, INJ+11, USR+1, LOC+1

Name	Field # of Occurrence
>> A	INJ+6, INJ+10
>> C	INJ+4, INJ+6, INJ+7, INJ+9, INJ+10, INJ+11
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMD	INJPP+15*, INJPP+17, INJPP+18, INJPP+19
>> CIMED	HEADER1+5
>> CIMGPG	HEADER+1, HEADER1+1*, HEADER1+2
>> CIMQUIT	INJ+1, INJPP+2, INJPP+4, INJPP+14, INJPP+16, HEADER+2*
>> CIMRPT	INJ+3, INJ+4, INJ+6, INJ+7, INJ+8, INJ+9, INJ+10, INJ+11
>> CIMX	INJPP+2*, INJPP+3, INJPP+5, INJPP+14, INJPP+15
>> CIMY	INJPP+14*, INJPP+15, INJPP+17
>> D	INJ+4, INJ+7, INJ+9, INJ+11, INJPP+3*, INJPP+5, INJPP+6, INJPP+7, INJPP+8, INJPP+9 , INJPP+10, INJPP+11, INJPP+12
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
DUZ	HEADER1+2, USR+1
DUZ(2	HEADER1+4, LOC+1
>> E	INJ+7, INJ+11
>> I	INJ+4, INJ+9
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	INJPP+4, INJPP+16
IOST	HEADER+2
>> J	INJ+4, INJ+6, INJ+7, INJ+9, INJ+10, INJ+11
N	CALC~, CALC+4, CALC+6*, CALC+9, V~, V+1
O	CALC~, CALC+4, CALC+7*, CALC+8, CALC+9
P	V~, V+1
R	V~, V+1
>> T	INJ+3, INJ+4, INJ+8, INJ+9
U	INJ+3, INJ+4, INJ+6, INJ+7, INJ+8, INJ+9, INJ+10, INJ+11, INJPP+5, INJPP+6 , INJPP+7, INJPP+8, INJPP+9, INJPP+10, INJPP+11, INJPP+12, INJPP+17, INJPP+18, INJPP+19, V+1 , HEADER1+2, HEADER1+4, USR+1, LOC+1
X	INJ+4, INJ+6, INJ+7, INJ+9, INJ+10, INJ+11, CALC+5~, CALC+6, CALC+7, C~ , C+2, HEADER1+5, HEADER1+6, CTR~, CTR+1
X2	CALC+5~, CALC+6, CALC+7, C~
X3	CALC+5~, CALC+6, CALC+7, C~
Y	INJ+6, INJ+7, INJ+10, INJ+11, HEADER+2, CTR~, CTR+1
Z	INJ+7, INJ+11, CALC+3~, CALC+9*, CALC+10
>> ZTQUEUED	HEADER+2