Routine: CIMGAGPK

Package	Total	Call Graph
VA Fileman	2	COMMA^%DTC ^DIR
Aberdeen GPRA Report	1	^CIMGAGPL
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPB

Name	Comments	DBIA/ICR reference
12	;
CTR(X,Y)	;EP - Center X in a field Y wide.
V(R,N,P)	;
IND33	;
HEADER	;EP
HEADER1	;
EXIT	;
LOCW	;
CALC(N,O)	;ENTRY POINT
IND22	;hgb
C(X,X2,X3)	;

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+1
^CIMGAGPL	IND33+1, IND33+31
^DIR	EXIT+1, HEADER+2
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"1/1 Diabetes",!,"Identify Area age-specific diabetes prevalence rates and incidence rates for",!,"American Indian/Alaska Native population.",! Line Location: CIMGAGPK+6
Function Call: WRITE	Prompt: !,"Prevalance of Diabetes" Line Location: CIMGAGPK+7
Function Call: WRITE	Prompt: !?44,"% CHANGE" Line Location: CIMGAGPK+8
Function Call: WRITE	Prompt: !!,"1/1 Diabetes",!,"Identify Area age-specific diabetes prevalence rates and incidence rates for",!,"American Indian/Alaska Native population.",! Line Location: 12+3
Function Call: WRITE	Prompt: !!,"Incidence of Diabetes" Line Location: 12+4
Function Call: WRITE	Prompt: !?44,"% CHANGE" Line Location: 12+5
Function Call: WRITE	Prompt: !,"2/2 Diabetes",!,"Increase the proportion of I/T/U clients with diagnosed",!,"diabetes that have improved their glycemic control by 3% over BASELINE level.",! Line Location: IND22+3
Function Call: WRITE	Prompt: !,"Glycemic Control" Line Location: IND22+4
Function Call: WRITE	Prompt: !?44,"% IMPROVED" Line Location: IND22+5
Function Call: WRITE	Prompt: ?44,$J(X,6,1) Line Location: IND22+12
Function Call: WRITE	Prompt: !,"3/3 Diabetes",!,"Increase the proportion of I/T/U clients with diagnosed",!,"diabetes and hypertension that have achieved diabetic blood",!,"pressure control.",! Line Location: IND33+3
Function Call: WRITE	Prompt: !,"Blood Pressure Control" Line Location: IND33+4
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND33+5
Function Call: WRITE	Prompt: !?3,"# diagnosed diabetes",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND33+9
Function Call: WRITE	Prompt: !?3,"# w/ diagnosed Hypertension",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7),! Line Location: IND33+10
Function Call: WRITE	Prompt: !?3,"# w/ Blood Pressure recorded within",!?5,"1 year of end of time period",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7),! Line Location: IND33+14
Function Call: WRITE	Prompt: !?3,"# w/ Ideal Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+18
Function Call: WRITE	Prompt: !?3,"# w/ Target Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+21
Function Call: WRITE	Prompt: !?3,"# w/ Adequate Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+24
Function Call: WRITE	Prompt: !?3,"# w/ Inadequate Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+27
Function Call: WRITE	Prompt: !?3,"# w/ Markedly Poor Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?44,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+30
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
Function Call: WRITE	Prompt: !?3,$P(^CIMAGP(CIMDO,0),U,5) Line Location: LOCW+2
Function Call: WRITE	Prompt: ?11,"?????" Line Location: LOCW+4
Function Call: WRITE	Prompt: ?11,"?????" Line Location: LOCW+6
Function Call: WRITE	Prompt: ?11,$E($P(^DIC(4,X,0),U),1,20) Line Location: LOCW+7
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: $S(CIMSUCNT=1:$$CTR(CIMSUNM),1:$$CTR("AREA AGGREGATE")),! 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
Routine Call	DIR Line Location: EXIT+1 HEADER+2

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC("C"	LOCW+5
^CIMAGP(	LOCW+2, LOCW+3, V+1
^DIC(4 - [#4]	LOCW+7
^VA(200 - [#200]	HEADER1+2

Name	Line Occurrences
$$C	IND33+9, IND33+10, IND33+14, IND33+18, IND33+21, IND33+24, IND33+27, IND33+30
$$CALC	CIMGAGPK+14, 12+11, IND33+10, IND33+14, IND33+18, IND33+21, IND33+24, IND33+27, IND33+30
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$V	CIMGAGPK+10, CIMGAGPK+11, 12+7, 12+8, IND22+7, IND22+8, IND22+9, IND22+10, IND33+6, IND33+7 , IND33+11, IND33+12, IND33+15, IND33+16, IND33+19, IND33+22, IND33+25, IND33+28
EXIT	IND33+1
HEADER	CIMGAGPK+5, 12+2, IND22+2, IND33+2, LOCW+1
HEADER1	HEADER+1
LOCW	CIMGAGPK+13, 12+10, IND22+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMDO	CIMGAGPK+9, CIMGAGPK+10, CIMGAGPK+11, 12+6, 12+7, 12+8, IND22+6*, IND22+7, IND22+8, IND22+9 , IND22+10, IND33+6, IND33+7, IND33+11, IND33+12, IND33+15, IND33+16, IND33+19, IND33+22, IND33+25 , IND33+28, LOCW+2, LOCW+3
>> CIMED	HEADER1+5
>> CIMG1	CIMGAGPK+11, CIMGAGPK+12, 12+8, 12+9, IND22+8, IND22+12, IND33+7, IND33+8, IND33+10, IND33+12* , IND33+13, IND33+14, IND33+16, IND33+17, IND33+18, IND33+19, IND33+20, IND33+21, IND33+22, IND33+23 , IND33+24, IND33+25, IND33+26, IND33+27, IND33+28*, IND33+29, IND33+30
>> CIMG1B	CIMGAGPK+11, CIMGAGPK+12, 12+8, 12+9, IND33+7, IND33+8, IND33+10, IND33+12, IND33+13, IND33+14 , IND33+16, IND33+17, IND33+18, IND33+19, IND33+20, IND33+21, IND33+22, IND33+23, IND33+24, IND33+25 , IND33+26, IND33+27, IND33+28*, IND33+29, IND33+30
>> CIMG1BP	CIMGAGPK+12, CIMGAGPK+14, 12+9, 12+11, IND33+8, IND33+10, IND33+13, IND33+14, IND33+17, IND33+18 , IND33+20, IND33+21, IND33+23, IND33+24, IND33+26, IND33+27, IND33+29*, IND33+30
>> CIMG1P	CIMGAGPK+12, CIMGAGPK+14, 12+9, 12+11, IND33+8, IND33+10, IND33+13, IND33+14, IND33+17, IND33+18 , IND33+20, IND33+21, IND33+23, IND33+24, IND33+26, IND33+27, IND33+29*, IND33+30
>> CIMG2	IND22+9*, IND22+12
>> CIMG3	IND22+10*, IND22+12
>> CIMGPG	HEADER+1, HEADER1+1*, HEADER1+2
>> CIMGX	CIMGAGPK+10, CIMGAGPK+12, 12+7, 12+9, IND22+7, IND22+12, IND33+6, IND33+8, IND33+9, IND33+11* , IND33+13, IND33+15*, IND33+17, IND33+20, IND33+23, IND33+26, IND33+29
>> CIMGY	CIMGAGPK+10, CIMGAGPK+12, 12+7, 12+9, IND33+6, IND33+8, IND33+9, IND33+11, IND33+13, IND33+15* , IND33+17, IND33+20, IND33+23, IND33+26, IND33+29
>> CIMQUIT	CIMGAGPK+9, CIMGAGPK+13, 12+1, 12+2, 12+6, 12+10, IND22+1, IND22+2, IND22+6, IND22+11 , IND33+2, LOCW+1, HEADER+2*
>> CIMSUCNT	CIMGAGPK+4, HEADER1+4
>> CIMSUL(	CIMGAGPK+9, 12+6, IND22+6
>> CIMSUNM	HEADER1+4
DIR	EXIT+1!, HEADER+2!
DIR("A"	EXIT+1*
DIR(0	EXIT+1, HEADER+2
>> DIRUT	EXIT+1*
DT	HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	EXIT+1
DUZ	HEADER1+2
IO	EXIT+1, HEADER+2
IO(0	EXIT+1, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	LOCW+1
IOST	EXIT+1, HEADER+2
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
U	LOCW+2, LOCW+3, LOCW+7, V+1, HEADER1+2
X	IND22+12, CALC+5~, CALC+6, CALC+7, LOCW+3, LOCW+4, LOCW+5, LOCW+6, LOCW+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	HEADER+2, CTR~, CTR+1
Z	CALC+3~, CALC+9*, CALC+10
>> ZTQUEUED	EXIT+1, HEADER+2

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPK

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: