Routine: CIMGAGPE

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

Package	Total	Caller Graph
Aberdeen GPRA Report	1	CIMGAGPC

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	CALC+6, CALC+7, C+1
^CIMGAGPF	AGE11+19
^DIR	HEADER+2
$$FMTE^XLFDT	HEADER1+2, HEADER1+5, HEADER1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"19/2000 Public Health Nursing",!,"Assure the total number of public health nursing services provided to ",!,"individuals in all settings and the total number of home visits are",!,"increased by 5% over the FY 1998 workload baselines",! Line Location: PHN+2
Function Call: WRITE	Prompt: !,"Public Health Nursing" Line Location: PHN+3
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: PHN+4
Function Call: WRITE	Prompt: !?3,"# active users",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: PHN+8
Function Call: WRITE	Prompt: !?3,"# of Persons served by PHN's",!?5,"in any setting",?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: PHN+9
Function Call: WRITE	Prompt: !?3,"# of Persons Served by PHN's",!?5,"in a Home Setting",?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: PHN+12
Function Call: WRITE	Prompt: !!?3,"# of PHN Visits - any Setting",?36,$$C($$V(20,18),0,9),?54,$$C($$V(19,18),0,9) Line Location: PHN+13
Function Call: WRITE	Prompt: ?72,$J(%,5,1) Line Location: PHN+14
Function Call: WRITE	Prompt: !!?3,"# of PHN Visits - Home",?36,$$C($$V(20,19),0,9),?54,$$C($$V(19,19),0,9) Line Location: PHN+15
Function Call: WRITE	Prompt: ?72,$J(%,5,1) Line Location: PHN+16
Function Call: WRITE	Prompt: !,"21/2000 Adult Immunization",!,"Produce an overall pneumoccal and influenza vaccination level of at least 60%",!,"for adults aged 65 and older.",! Line Location: FLUPNEU+2
Function Call: WRITE	Prompt: !,"Adult Immunizations" Line Location: FLUPNEU+3
Function Call: WRITE	Prompt: !?56,"REPORT",?64," %",!?56,"PERIOD" Line Location: FLUPNEU+5
Function Call: WRITE	Prompt: !?3,"# patients 65 yrs and older",?54,$$C(CIMGX,0,9) Line Location: FLUPNEU+9
Function Call: WRITE	Prompt: !?3,"# w/Pneumovax ever",?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1) Line Location: FLUPNEU+10
Function Call: WRITE	Prompt: !?3,"# with Flu Vaccine within",!?5,"1 year prior to end of time period",?54,$$C(CIMG1,0,9),?62,$J(CIMG1P,6,1) Line Location: FLUPNEU+13
Function Call: WRITE	Prompt: !!,"24/2000 Smoking",!,"Determine Area-age specific prevalance rates for the",!,"usage of tobacco products.",! Line Location: SMOKER+2
Function Call: WRITE	Prompt: !,"Prevalance of Usage of Tobacco Products" Line Location: SMOKER+4
Function Call: WRITE	Prompt: !?38,"BASELINE",?45," %",?56,"REPORT",?64," %",?71,"% CHANGE",!?38,"PERIOD",?56,"PERIOD" Line Location: SMOKER+5
Function Call: WRITE	Prompt: !?3,"# active users",?36,$$C(CIMGY,0,9),?54,$$C(CIMGX,0,9) Line Location: SMOKER+9
Function Call: WRITE	Prompt: !!?3,"# w/ Tobacco Status documented",?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: SMOKER+10
Function Call: WRITE	Prompt: !!?3,"# documented Tobacco Users",?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: SMOKER+14
Function Call: WRITE	Prompt: !,"Age specific Tobacco Usage 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,"# Tobacco Use" 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,"# Tobacco Users" 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: ! 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: HEADER+2

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$C	PHN+8, PHN+9, PHN+12, PHN+13, PHN+15, FLUPNEU+9, FLUPNEU+10, FLUPNEU+13, SMOKER+9, SMOKER+10 , SMOKER+14, AGE11+7, AGE11+9, AGE11+14, AGE11+16
$$CALC	PHN+9, PHN+12, SMOKER+10, SMOKER+14, AGE11+18
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5, HEADER1+6
$$V	PHN+5, PHN+6, PHN+10, PHN+13, PHN+14, PHN+15, PHN+16, FLUPNEU+6, FLUPNEU+7, FLUPNEU+11 , SMOKER+6, SMOKER+7, SMOKER+11, SMOKER+12, AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17
HEADER	PHN+1, FLUPNEU+1, SMOKER+1, SMOKER+3, AGE11+1, AGE11+11
HEADER1	HEADER+1

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PHN+14, PHN+16, AGE11+10, AGE11+17
C	V+1~*, V+2
>> CIM98B	HEADER1+6
>> CIM98E	HEADER1+6
>> CIMBD	HEADER1+5
>> CIMED	HEADER1+5
>> CIMG1	PHN+6, PHN+7, PHN+9, PHN+10, PHN+11, PHN+12, FLUPNEU+7, FLUPNEU+8, FLUPNEU+10, FLUPNEU+11 , FLUPNEU+12, FLUPNEU+13, SMOKER+7, SMOKER+8, SMOKER+10, SMOKER+12, SMOKER+13, SMOKER+14
>> CIMG1B	PHN+6, PHN+7, PHN+9, PHN+10, PHN+11, PHN+12, FLUPNEU+7, FLUPNEU+8, FLUPNEU+11, FLUPNEU+12 , SMOKER+7, SMOKER+8, SMOKER+10, SMOKER+12, SMOKER+13, SMOKER+14
>> CIMG1BP	PHN+7, PHN+9, PHN+11, PHN+12, FLUPNEU+8, FLUPNEU+12, SMOKER+8, SMOKER+10, SMOKER+13, SMOKER+14
>> CIMG1P	PHN+7, PHN+9, PHN+11, PHN+12, FLUPNEU+8, FLUPNEU+10, FLUPNEU+12, FLUPNEU+13, SMOKER+8, SMOKER+10 , SMOKER+13, SMOKER+14
>> CIMGPG	HEADER+1, HEADER1+1*, HEADER1+2
>> CIMGX	PHN+5, PHN+7, PHN+8, PHN+11, FLUPNEU+6, FLUPNEU+8, FLUPNEU+9, FLUPNEU+12, SMOKER+6, SMOKER+8 , SMOKER+9, SMOKER+11, SMOKER+13
>> CIMGY	PHN+5, PHN+7, PHN+8, PHN+11, FLUPNEU+6, FLUPNEU+8, FLUPNEU+12, SMOKER+6, SMOKER+8, SMOKER+9 , SMOKER+11, SMOKER+13
>> CIMQUIT	PHN+1, FLUPNEU+1, SMOKER+1, SMOKER+3, AGE11+1, AGE11+11, HEADER+2*
>> CIMSUCNT	HEADER1+4
>> CIMSUL(	V+1
>> CIMSUNM	HEADER1+4
CIMX	AGE11+10!
CIMX(	AGE11+10, AGE11+17, AGE11+18
>> D	AGE11+10, AGE11+17
DIR	HEADER+2!
DIR(0	HEADER+2*
DT	HEADER1+2
>> DTOUT	HEADER+2
DUZ	HEADER1+2, USR+1
DUZ(2	LOC+1
IO	HEADER+2
IO(0	HEADER+2
IOF	HEADER1+1
IOM	CTR+1
IOSL	SMOKER+3, AGE11+11
IOST	HEADER+2
N	AGE11+10, AGE11+17, AGE11+18, CALC~, CALC+4, CALC+6, CALC+9, V~, V+1
O	AGE11+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*
U	AGE11+10, AGE11+17, AGE11+18, V+1, HEADER1+2, USR+1, LOC+1
X	PHN+14, PHN+16, AGE11+7, AGE11+9, AGE11+10, AGE11+14, AGE11+16, AGE11+17, AGE11+18, 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	PHN+14, PHN+16, AGE11+7, AGE11+9, AGE11+14, AGE11+16, HEADER+2, CTR~, CTR+1
Z	CALC+3~, CALC+9*, CALC+10
>> ZTQUEUED	HEADER+2

Customize PDF page

Package: Aberdeen GPRA Report

Routine: CIMGAGPE

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

Naked Globals

Local Variables

Legend: