Routine: CIMGAGPP

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

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	CALC+4, CALC+5, C+1
^CIMGAGPH	PRINT+1
^CIMGAGPO	IND33+1
^CIMGAGPQ	IND33+3
^DIR	EXIT+2, 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: PRINT1+2
Function Call: WRITE	Prompt: !,"Prevalance of Diabetes" Line Location: PRINT1+4
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: PRINT1+5
Function Call: WRITE	Prompt: !?3,"# active users",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: PRINT1+9
Function Call: WRITE	Prompt: !?3,"# w/ Diabetes Diagnosis",!?5,"before end of time period",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: PRINT1+10
Function Call: WRITE	Prompt: !!,"Incidence of Diabetes" Line Location: 12+2
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: 12+3
Function Call: WRITE	Prompt: !?3,"# active users",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: 12+7
Function Call: WRITE	Prompt: !?3,"# w/ 1st ever Diabetes Diagnosis",!?5,"during the time period",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: 12+8
Function Call: WRITE	Prompt: !,"Age specific Diabetes Prevalance" Line Location: AGE11+2
Function Call: WRITE	Prompt: !?40,"Age Distribution" Line Location: AGE11+3
Function Call: WRITE	Prompt: !?23,"<1 yr",?30,"1-4",?37,"5-14",?44,"15-19",?51,"20-24",?58,"25-44",?65,"45-64",?72,">64 yrs",! Line Location: AGE11+4
Function Call: WRITE	Prompt: !," BASELINE" Line Location: AGE11+5
Function Call: WRITE	Prompt: !?2,"# active users" Line Location: AGE11+6
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE11+7
Function Call: WRITE	Prompt: !?2,"# w/Diabetes dx" Line Location: AGE11+8
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE11+9
Function Call: WRITE	Prompt: ?T,$S(%="":" .",1:$J(%,5,1)) Line Location: AGE11+10
Function Call: WRITE	Prompt: !,"CURRENT PERIOD" Line Location: AGE11+12
Function Call: WRITE	Prompt: !?2,"# active users" Line Location: AGE11+13
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE11+14
Function Call: WRITE	Prompt: !?2,"# w/Diabetes dx" Line Location: AGE11+15
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE11+16
Function Call: WRITE	Prompt: ?T,$S(%="":" .",1:$J(%,5,1)) Line Location: AGE11+17
Function Call: WRITE	Prompt: ?T,$J($$CALC(N,O),6) Line Location: AGE11+18
Function Call: WRITE	Prompt: !!!,"Age specific Diabetes Incidence" Line Location: AGE12+2
Function Call: WRITE	Prompt: !?40,"Age Distribution" Line Location: AGE12+3
Function Call: WRITE	Prompt: !?23,"<1 yr",?30,"1-4",?37,"5-14",?44,"15-19",?51,"20-24",?58,"25-44",?65,"45-64",?72,">64 yrs",! Line Location: AGE12+4
Function Call: WRITE	Prompt: !," BASELINE" Line Location: AGE12+5
Function Call: WRITE	Prompt: !?2,"# active users" Line Location: AGE12+6
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE12+7
Function Call: WRITE	Prompt: !?2,"# w/Diabetes dx" Line Location: AGE12+8
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE12+9
Function Call: WRITE	Prompt: ?T,$S(%="":" .",1:$J(%,5,1)) Line Location: AGE12+10
Function Call: WRITE	Prompt: !,"CURRENT PERIOD" Line Location: AGE12+12
Function Call: WRITE	Prompt: !?2,"# active users" Line Location: AGE12+13
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE12+14
Function Call: WRITE	Prompt: !?2,"# w/Diabetes dx" Line Location: AGE12+15
Function Call: WRITE	Prompt: ?T,$$C(Y,0,6) Line Location: AGE12+16
Function Call: WRITE	Prompt: ?T,$S(%="":" .",1:$J(%,5,1)) Line Location: AGE12+17
Function Call: WRITE	Prompt: ?T,$J($$CALC(N,O),6) Line Location: AGE12+18
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+2
Function Call: WRITE	Prompt: !,"Glycemic Control" Line Location: IND22+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND22+4
Function Call: WRITE	Prompt: !?3,"# diagnosed diabetes",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND22+8
Function Call: WRITE	Prompt: !?3,"# w/ HGBA1C/GLUCOSE 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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND22+9
Function Call: WRITE	Prompt: !!?3,"# w/ Acceptable Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND22+13
Function Call: WRITE	Prompt: !?3,"# w/ Fair Control",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND22+16
Function Call: WRITE	Prompt: !?3,"# w/ High",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND22+19
Function Call: WRITE	Prompt: !?3,"# w/ Very High",?36,$$C(CIMG1B,0,9),?44,$J(CIMG1BP,6,1),?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND22+22
Function Call: WRITE	Prompt: !!!?3,"# w/ HGBA1C or GLUCOSE recorded in both time periods" Line Location: IND22+24
Function Call: WRITE	Prompt: ?58,$$C(CIMGX,0,9) Line Location: IND22+26
Function Call: WRITE	Prompt: !!?3,"# whose control level improved at least one category" Line Location: IND22+27
Function Call: WRITE	Prompt: ?58,$$C(CIMG1,0,9) Line Location: IND22+27
Function Call: WRITE	Prompt: !?3,"# whose control level decreased or stayed the same" Line Location: IND22+28
Function Call: WRITE	Prompt: ?58,$$C(CIMG2,0,9) Line Location: IND22+28
Function Call: WRITE	Prompt: !?3,"# at acceptable level both periods" Line Location: IND22+29
Function Call: WRITE	Prompt: ?58,$$C(CIMG3,0,9) Line Location: IND22+29
Function Call: WRITE	Prompt: !!?3,"Percent improved" Line Location: IND22+30
Function Call: WRITE	Prompt: ?60,$J(X,6,1) Line Location: IND22+30
Function Call: WRITE	Prompt: ! Line Location: EXIT+2
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
Routine Call	DIR Line Location: EXIT+2 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^CIMAGP(	V+1
^DIC(4 - [#4]	HEADER1+4
^VA(200 - [#200]	HEADER1+2
^XTMP("CIMGAGP"	EXIT+1!

Label References

Name	Line Occurrences
$$C	PRINT1+9, PRINT1+10, 12+7, 12+8, AGE11+7, AGE11+9, AGE11+14, AGE11+16, AGE12+7, AGE12+9 , AGE12+14, AGE12+16, IND22+8, IND22+9, IND22+13, IND22+16, IND22+19, IND22+22, IND22+26, IND22+27 , IND22+28, IND22+29
$$CALC	PRINT1+10, 12+8, AGE11+18, AGE12+18, IND22+9, IND22+13, IND22+16, IND22+19, IND22+22
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$V	PRINT1+6, PRINT1+7, 12+4, 12+5, AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17 , AGE12+7, AGE12+9, AGE12+10, AGE12+14, AGE12+16, AGE12+17, IND22+5, IND22+6, IND22+10, IND22+11 , IND22+14, IND22+17, IND22+20, IND22+25, IND22+27, IND22+28, IND22+29
HEADER	PRINT1+1, PRINT1+3, 12+1, AGE11+1, AGE11+11, AGE12+1, AGE12+11, IND22+1
HEADER1	HEADER+1
PRINT1	PRINT+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AGE11+10, AGE11+17, AGE12+10, AGE12+17
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMED	HEADER1+5
>> CIMG1	PRINT1+7, PRINT1+8, PRINT1+10, 12+5, 12+6, 12+8, IND22+6, IND22+7, IND22+9, IND22+11 , IND22+12, IND22+13, IND22+14, IND22+15, IND22+16, IND22+17, IND22+18, IND22+19, IND22+20, IND22+21 , IND22+22, IND22+27, IND22+30
>> CIMG1B	PRINT1+7, PRINT1+8, PRINT1+10, 12+5, 12+6, 12+8, IND22+6, IND22+7, IND22+9, IND22+11 , IND22+12, IND22+13, IND22+14, IND22+15, IND22+16, IND22+17, IND22+18, IND22+19, IND22+20*, IND22+21 , IND22+22
>> CIMG1BP	PRINT1+8, PRINT1+10, 12+6, 12+8, IND22+7, IND22+9, IND22+12, IND22+13, IND22+15, IND22+16 , IND22+18, IND22+19, IND22+21*, IND22+22
>> CIMG1P	PRINT1+8, PRINT1+10, 12+6, 12+8, IND22+7, IND22+9, IND22+12, IND22+13, IND22+15, IND22+16 , IND22+18, IND22+19, IND22+21*, IND22+22
>> CIMG2	IND22+28*, IND22+30
>> CIMG3	IND22+29*, IND22+30
>> CIMGH	EXIT+1
>> CIMGJ	EXIT+1
>> CIMGPG	PRINT+2, HEADER+1, HEADER1+1, HEADER1+2
>> CIMGQUIT	PRINT+5
>> CIMGX	PRINT1+6, PRINT1+8, PRINT1+9, 12+4, 12+6, 12+7, IND22+5, IND22+7, IND22+8, IND22+10 , IND22+12, IND22+15, IND22+18, IND22+21, IND22+25*, IND22+26, IND22+30
>> CIMGY	PRINT1+6, PRINT1+8, PRINT1+9, 12+4, 12+6, 12+7, IND22+5, IND22+7, IND22+8, IND22+10 , IND22+12, IND22+15, IND22+18, IND22+21
>> CIMQUIT	PRINT+3, PRINT1+3, 12+1, AGE11+1, AGE11+11, AGE12+1, AGE12+11, IND22+1, IND33+2, HEADER+2
>> CIMRPT	PRINT1+6, PRINT1+7, 12+4, 12+5, AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17 , AGE12+7, AGE12+9, AGE12+10, AGE12+14, AGE12+16, AGE12+17, IND22+5, IND22+6, IND22+10, IND22+11 , IND22+14, IND22+17, IND22+20, IND22+25, IND22+27, IND22+28, IND22+29
CIMX	AGE11+10!, AGE12+10!
CIMX(	AGE11+10, AGE11+17, AGE11+18, AGE12+10, AGE12+17, AGE12+18
>> D	AGE11+10, AGE11+17, AGE12+10, AGE12+17
DIR	EXIT+2!, HEADER+2!
DIR("A"	EXIT+2*
DIR(0	EXIT+2, HEADER+2
>> DIRUT	EXIT+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	EXIT+2
DUZ	HEADER1+2
DUZ(2	HEADER1+4
IO	EXIT+2, HEADER+2
IO(0	EXIT+2, HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	PRINT1+3, 12+1, AGE11+11, AGE12+1, AGE12+11
IOST	EXIT+2, HEADER+2
N	AGE11+10, AGE11+17, AGE11+18, AGE12+10, AGE12+17, AGE12+18, CALC~, CALC+2, CALC+4*, CALC+7 , V~, V+1
O	AGE11+18, AGE12+18, CALC~, CALC+2, CALC+5*, CALC+6, CALC+7
P	V~, V+1
R	V~, V+1
>> T	AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17, AGE11+18, AGE12+7, AGE12+9, AGE12+10 , AGE12+14, AGE12+16, AGE12+17, AGE12+18
U	AGE11+10, AGE11+17, AGE11+18, AGE12+10, AGE12+17, AGE12+18, V+1, HEADER1+2, HEADER1+4
X	AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17, AGE11+18, AGE12+7, AGE12+9, AGE12+10 , AGE12+14, AGE12+16, AGE12+17, AGE12+18, IND22+30, CALC+3~, CALC+4, CALC+5, C~, C+2 , HEADER1+5, HEADER1+6*, CTR~, CTR+1
X2	CALC+3~, CALC+4, CALC+5, C~
X3	CALC+3~, CALC+4, CALC+5, C~
Y	AGE11+7, AGE11+9, AGE11+14, AGE11+16, AGE12+7, AGE12+9, AGE12+14, AGE12+16, HEADER+2, CTR~ , CTR+1
Z	CALC+1~, CALC+7*, CALC+8
>> ZTQUEUED	EXIT+2, HEADER+2

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPP

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: