Routine: CIMGAGPB

Package	Total	Call Graph
Aberdeen GPRA Report	3	^CIMGAGPC ^CIMGAGPJ ^CIMGAGPK
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPC

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

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+1
^CIMGAGPC	IND33+30
^CIMGAGPJ	PRINT+9
^CIMGAGPK	IND33+32
^DIR	EXIT+1, HEADER+2
$$FMADD^XLFDT	PRINT+3, PRINT+8
$$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 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",?56,"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",?56,"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+23
Function Call: WRITE	Prompt: ?58,$$C(CIMGX,0,9) Line Location: IND22+25
Function Call: WRITE	Prompt: !!?3,"# whose control level improved at least one category" Line Location: IND22+26
Function Call: WRITE	Prompt: ?58,$$C(CIMG1,0,9) Line Location: IND22+26
Function Call: WRITE	Prompt: !?3,"# whose control level decreased or stayed the same" Line Location: IND22+27
Function Call: WRITE	Prompt: ?58,$$C(CIMG2,0,9) Line Location: IND22+27
Function Call: WRITE	Prompt: !?3,"# at acceptable level both periods" Line Location: IND22+28
Function Call: WRITE	Prompt: ?58,$$C(CIMG3,0,9) Line Location: IND22+28
Function Call: WRITE	Prompt: !!?3,"Percent improved" Line Location: IND22+29
Function Call: WRITE	Prompt: ?60,$J(X,6,1) Line Location: IND22+29
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+2
Function Call: WRITE	Prompt: !,"Blood Pressure Control" Line Location: IND33+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND33+4
Function Call: WRITE	Prompt: !?3,"# diagnosed diabetes",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND33+8
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7),! Line Location: IND33+9
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7),! Line Location: IND33+13
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+17
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+20
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+23
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+26
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),?72,$J($$CALC(CIMG1P,CIMG1BP),7) Line Location: IND33+29
Function Call: WRITE	Prompt: ! Line Location: EXIT+1
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)
^CIMAGP(	V+1
^VA(200 - [#200]	HEADER1+2

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+25, IND22+26 , IND22+27, IND22+28, IND33+8, IND33+9, IND33+13, IND33+17, IND33+20, IND33+23, IND33+26, IND33+29
$$CALC	PRINT1+10, 12+8, AGE11+18, AGE12+18, IND22+9, IND22+13, IND22+16, IND22+19, IND22+22, IND33+9 , IND33+13, IND33+17, IND33+20, IND33+23, IND33+26, IND33+29
$$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+24, IND22+26, IND22+27, IND22+28, IND33+5, IND33+6, IND33+10 , IND33+11, IND33+14, IND33+15, IND33+18, IND33+21, IND33+24, IND33+27
EXIT	IND33+31
HEADER	PRINT1+1, PRINT1+3, 12+1, AGE11+1, AGE11+11, AGE12+1, AGE12+11, IND22+1, IND33+1
HEADER1	HEADER+1
PRINT1	PRINT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AGE11+10, AGE11+17, AGE12+10, AGE12+17
C	V+1~*, V+2
>> CIM3YE	PRINT+3*
>> CIM983B	PRINT+8*
>> CIM98B	PRINT+4*, HEADER1+6
>> CIM98E	PRINT+5*, PRINT+8, HEADER1+6
>> CIMBD	PRINT+4, HEADER1+5
>> CIMED	PRINT+3, PRINT+4, PRINT+5, 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+26, IND22+29, IND33+6, IND33+7, IND33+9, IND33+11, IND33+12, IND33+13, IND33+15* , 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
>> 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, IND33+6, IND33+7, IND33+9, IND33+11, IND33+12, IND33+13, IND33+15, 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
>> 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, IND33+7, IND33+9, IND33+12, IND33+13, IND33+16, IND33+17 , IND33+19, IND33+20, IND33+22, IND33+23, IND33+25, IND33+26, IND33+28, IND33+29
>> 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, IND33+7, IND33+9, IND33+12, IND33+13, IND33+16, IND33+17 , IND33+19, IND33+20, IND33+22, IND33+23, IND33+25, IND33+26, IND33+28, IND33+29
>> CIMG2	IND22+27*, IND22+29
>> CIMG3	IND22+28*, IND22+29
>> CIMGPG	PRINT+1, PRINT+10, HEADER+1, HEADER1+1*, HEADER1+2
>> 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+24, IND22+25, IND22+29, IND33+5, IND33+7, IND33+8 , IND33+10, IND33+12, IND33+14, IND33+16, IND33+19, IND33+22, IND33+25, IND33+28
>> 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, IND33+5, IND33+7, IND33+8, IND33+10, IND33+12, IND33+14* , IND33+16, IND33+19, IND33+22, IND33+25, IND33+28
>> CIMQTR	PRINT+4
>> CIMQUIT	PRINT+2, PRINT+10, PRINT1+3, 12+1, AGE11+1, AGE11+11, AGE12+1, AGE12+11, IND22+1, IND33+1 , IND33+31, HEADER+2*
>> CIMSUCNT	HEADER1+4
>> CIMSUL(	V+1
>> CIMSUNM	HEADER1+4
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+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	PRINT1+3, 12+1, AGE11+11, AGE12+1, AGE12+11
IOST	EXIT+1, HEADER+2
N	AGE11+10, AGE11+17, AGE11+18, AGE12+10, AGE12+17, AGE12+18, CALC~, CALC+4, CALC+6*, CALC+9 , V~, V+1
O	AGE11+18, AGE12+18, CALC~, CALC+4, CALC+7*, CALC+8, CALC+9
P	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
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+29, CALC+5~, CALC+6, CALC+7, V+1~, 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	AGE11+7, AGE11+9, AGE11+14, AGE11+16, AGE12+7, AGE12+9, AGE12+14, AGE12+16, 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: CIMGAGPB

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: