Routine: CIMGAGPQ

Package	Total	Call Graph
Aberdeen GPRA Report	2	^CIMGAGPS (,IND2023)^CIMGAGPT
VA Fileman	2	COMMA^%DTC ^DIR
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPP

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

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+1
^CIMGAGPS	IND2023+4
^CIMGAGPT	IND2023+3
IND2023^CIMGAGPT	IND2023+1
^DIR	HEADER+2
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"5/5 Diabetes",!,"Increase the proportion of I/T/U clients with diagnosed",!,"diabetes who have been assessed for nephropathy by 3% over BASELINE level.",! Line Location: IND55+2
Function Call: WRITE	Prompt: !,"Assessed for Nephropathy" Line Location: IND55+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND55+4
Function Call: WRITE	Prompt: !?3,"# diagnosed diabetes",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND55+8
Function Call: WRITE	Prompt: !?3,"# assessed for nephropathy 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: IND55+9
Function Call: WRITE	Prompt: !,"6/6 Women's Health",!,"Increase the proportion of AI/AN women who have annual pap screening to 55%.",! Line Location: IND66+2
Function Call: WRITE	Prompt: !,"Pap Screening" Line Location: IND66+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND66+4
Function Call: WRITE	Prompt: !?3,"# Women >17 years old",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND66+8
Function Call: WRITE	Prompt: !?3,"# with Pap documented within",!?5,"3 years 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: IND66+9
Function Call: WRITE	Prompt: !,"7/7 Women's Health",!,"Increase the proportion of AI/AN female population 40-69 years of age who",!,"had annual screening mammography.",! Line Location: IND77+2
Function Call: WRITE	Prompt: !,"Mammography Screening" Line Location: IND77+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND77+4
Function Call: WRITE	Prompt: !?3,"# Women 40-69 years old",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND77+8
Function Call: WRITE	Prompt: !?3,"# with Mammography documented 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: IND77+9
Function Call: WRITE	Prompt: !,"8/8 Child Health",!,"Determine the proportion of AI/AN children served by",!,"IHS receiving a minimum of four Well Child visits by 27 months of age.",! Line Location: IND88+2
Function Call: WRITE	Prompt: !,"Well Child Visits by Age 27 Months" Line Location: IND88+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND88+4
Function Call: WRITE	Prompt: !?3,"# Children turning 27 mon old",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND88+8
Function Call: WRITE	Prompt: !?3,"# with at least 4 Well Child",!?5,"before age 27 months",?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: IND88+9
Function Call: WRITE	Prompt: !,"11/12 Dental Health",!,"Assure that at least 21% of the AI/AN population obtain",!,"access to dental services.",! Line Location: IND1112+2
Function Call: WRITE	Prompt: !,"Dental Visit 0000" Line Location: IND1112+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND1112+4
Function Call: WRITE	Prompt: !?3,"# active users",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND1112+8
Function Call: WRITE	Prompt: !?3,"# with a dental visit 0000 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: IND1112+9
Function Call: WRITE	Prompt: !,"12/13 Dental Health",!,"Assure that the percentage of AI/AN children 6-8 and 14-15",!,"who have received protective dental sealants on permanent molar teeth is ",!,"restored to 90% of the FY 1991 IHS Oral Health Survey level",! Line Location: IND1213+2
Function Call: WRITE	Prompt: !,"Dental Visit 1351" Line Location: IND1213+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND1213+4
Function Call: WRITE	Prompt: !?3,"# children 6-8",?36,$S(CIMGY="**":CIMGY,1:$$C(CIMGY,0,9)),?54,$$C(CIMGX,0,9) Line Location: IND1213+9
Function Call: WRITE	Prompt: !?3,"# with a dental visit 1351",!?5,"anytime in their history",?36,$S(CIMG1B="**":CIMG1B,1:$$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: IND1213+10
Function Call: WRITE	Prompt: !!?3,"# children 14-15",?36,$S(CIMGY="**":CIMGY,1:$$C(CIMGY,0,9)),?54,$$C(CIMGX,0,9) Line Location: IND1213+15
Function Call: WRITE	Prompt: !?3,"# with a dental visit 1351",!?5,"anytime in their history",?36,$S(CIMG1B="**":CIMG1B,1:$$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: IND1213+16
Function Call: WRITE	Prompt: !,"18/20 Child Health",!,"Immunization Increase by 3% the proportion of AI/AN",!,"children who have completed all recommended immunizations by the age of two.",! Line Location: IND1820+2
Function Call: WRITE	Prompt: !,"Immunizations Up to date" Line Location: IND1820+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: IND1820+4
Function Call: WRITE	Prompt: !?3,"# children 2 yrs of age",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND1820+8
Function Call: WRITE	Prompt: !?3,"# immunized with basic series",?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: IND1820+9
Function Call: WRITE	Prompt: !!!?3,"# children 27 months of age",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: IND1820+13
Function Call: WRITE	Prompt: !?3,"# immunized with basic series",?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: IND1820+14
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: HEADER+2

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

Name	Line Occurrences
$$C	IND55+8, IND55+9, IND66+8, IND66+9, IND77+8, IND77+9, IND88+8, IND88+9, IND1112+8, IND1112+9 , IND1213+9, IND1213+10, IND1213+15, IND1213+16, IND1820+8, IND1820+9, IND1820+13, IND1820+14
$$CALC	IND55+9, IND66+9, IND77+9, IND88+9, IND1112+9, IND1213+10, IND1213+16, IND1820+9, IND1820+14
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$V	IND55+5, IND55+6, IND66+5, IND66+6, IND77+5, IND77+6, IND88+5, IND88+6, IND1112+5, IND1112+6 , IND1213+5, IND1213+6, IND1213+11, IND1213+12, IND1820+5, IND1820+6, IND1820+10, IND1820+11
HEADER	IND55+1, IND66+1, IND77+1, IND88+1, IND1112+1, IND1213+1, IND1820+1
HEADER1	HEADER+1

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMED	HEADER1+5
>> CIMG1	IND55+6, IND55+7, IND55+9, IND66+6, IND66+7, IND66+9, IND77+6, IND77+7, IND77+9, IND88+6 , IND88+7, IND88+9, IND1112+6, IND1112+7, IND1112+9, IND1213+6, IND1213+7, IND1213+8, IND1213+10, IND1213+12* , IND1213+13, IND1213+14, IND1213+16, IND1820+6, IND1820+7, IND1820+9, IND1820+11, IND1820+12, IND1820+14
>> CIMG1B	IND55+6, IND55+7, IND55+9, IND66+6, IND66+7, IND66+9, IND77+6, IND77+7, IND77+9, IND88+6 , IND88+7, IND88+9, IND1112+6, IND1112+7, IND1112+9, IND1213+6, IND1213+7, IND1213+8, IND1213+10, IND1213+12 , IND1213+13, IND1213+14, IND1213+16, IND1820+6, IND1820+7, IND1820+9, IND1820+11*, IND1820+12, IND1820+14
>> CIMG1BP	IND55+7, IND55+9, IND66+7, IND66+9, IND77+7, IND77+9, IND88+7, IND88+9, IND1112+7, IND1112+9 , IND1213+7, IND1213+8, IND1213+10, IND1213+13, IND1213+14, IND1213+16, IND1820+7, IND1820+9, IND1820+12*, IND1820+14
>> CIMG1P	IND55+7, IND55+9, IND66+7, IND66+9, IND77+7, IND77+9, IND88+7, IND88+9, IND1112+7, IND1112+9 , IND1213+7, IND1213+8, IND1213+10, IND1213+13, IND1213+14, IND1213+16, IND1820+7, IND1820+9, IND1820+12*, IND1820+14
>> CIMGPG	HEADER+1, HEADER1+1*, HEADER1+2
>> CIMGX	IND55+5, IND55+7, IND55+8, IND66+5, IND66+7, IND66+8, IND77+5, IND77+7, IND77+8, IND88+5 , IND88+7, IND88+8, IND1112+5, IND1112+7, IND1112+8, IND1213+5, IND1213+7, IND1213+8, IND1213+9, IND1213+11* , IND1213+13, IND1213+14, IND1213+15, IND1820+5, IND1820+7, IND1820+8, IND1820+10, IND1820+12, IND1820+13
>> CIMGY	IND55+5, IND55+7, IND55+8, IND66+5, IND66+7, IND66+8, IND77+5, IND77+7, IND77+8, IND88+5 , IND88+7, IND88+8, IND1112+5, IND1112+7, IND1112+8, IND1213+5, IND1213+7, IND1213+8, IND1213+9, IND1213+11 , IND1213+13, IND1213+14, IND1213+15, IND1820+5, IND1820+7, IND1820+8, IND1820+10*, IND1820+12, IND1820+13
>> CIMPER	IND1213+6, IND1213+7, IND1213+8, IND1213+12, IND1213+13, IND1213+14
>> CIMQUIT	IND55+1, IND66+1, IND77+1, IND88+1, IND1112+1, IND1213+1, IND1820+1, IND2023+2, IND2023+3, HEADER+2*
>> CIMRPT	IND55+5, IND55+6, IND66+5, IND66+6, IND77+5, IND77+6, IND88+5, IND88+6, IND1112+5, IND1112+6 , IND1213+5, IND1213+6, IND1213+11, IND1213+12, IND1820+5, IND1820+6, IND1820+10, IND1820+11
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
DUZ	HEADER1+2, USR+1
DUZ(2	HEADER1+4, LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOST	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	V+1, HEADER1+2, HEADER1+4, USR+1, LOC+1
X	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	HEADER+2, CTR~, CTR+1
Z	CALC+3~, CALC+9*, CALC+10
>> ZTQUEUED	HEADER+2

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPQ

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: