Routine: BGP3EL16

Package	Total	Call Graph
IHS GPRA Information System	1	HEADER^BGP3DPH
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP3ELP1

Name	Comments	DBIA/ICR reference
PR	;
VA	;
V(T,R,N,P)	;EP
BL	;
CTR(X,Y)	;EP - Center X in a field Y wide.
SETN	;set numerator fields
H3	;EP
I1AGE	;EP special age tallies
I1AGE4	;
I1AGE3	;
I1AGE2	;
I1AGE1	;
I1AGEP	;
C(X,X2,X3)	;

Name	Field # of Occurrence
COMMA^%DTC	C+2
HEADER^BGP3DPH	I1AGE+2, PR+1, BL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^BGPELIH(BGPIC,53,1,0) Line Location: I1AGE+2
Function Call: WRITE	Prompt: !,"CURRENT REPORT PERIOD" Line Location: I1AGEP+1
Function Call: WRITE	Prompt: !,BGPHD2 Line Location: I1AGEP+2
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+3
Function Call: WRITE	Prompt: !,"# w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: I1AGEP+4
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+5
Function Call: WRITE	Prompt: !,"% w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: I1AGEP+6
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+7
Function Call: WRITE	Prompt: !!,"# A. w/ DM Retinal",!," exam" Line Location: I1AGEP+8
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+9
Function Call: WRITE	Prompt: !,"% A. w/ DM Retinal",!," exam" Line Location: I1AGEP+10
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+11
Function Call: WRITE	Prompt: !!,"# B. w/Other Eye",!?2,"Exams" Line Location: I1AGEP+12
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+13
Function Call: WRITE	Prompt: !,"% B. w/Other Eye",!?2,"Exams" Line Location: I1AGEP+14
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+15
Function Call: WRITE	Prompt: !,^BGPELIH(BGPIC,53,1,0) Line Location: PR+1
Function Call: WRITE	Prompt: !!,"PREVIOUS YEAR PERIOD" Line Location: PR+2
Function Call: WRITE	Prompt: !,BGPHD2 Line Location: PR+3
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+4
Function Call: WRITE	Prompt: !,"# w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: PR+5
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+6
Function Call: WRITE	Prompt: !,"% w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: PR+7
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+8
Function Call: WRITE	Prompt: !!,"# A. w/ DM Retinal",!," exam" Line Location: PR+9
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+10
Function Call: WRITE	Prompt: !,"% A. w/ DM Retinal",!," exam" Line Location: PR+11
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+12
Function Call: WRITE	Prompt: !!,"# B. w/Other Eye",!?2,"Exams" Line Location: PR+13
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+14
Function Call: WRITE	Prompt: !,"% B. w/Other Eye",!?2,"Exams" Line Location: PR+15
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+16
Function Call: WRITE	Prompt: !!,"CHANGE FROM PREV YR %" Line Location: PR+19
Function Call: WRITE	Prompt: !,"# w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: PR+20
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+21
Function Call: WRITE	Prompt: !,"# A. w/ DM Retinal",!," exam" Line Location: PR+22
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+23
Function Call: WRITE	Prompt: !,"# B. w/Other Eye",!?2,"Exams" Line Location: PR+24
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+25
Function Call: WRITE	Prompt: !,^BGPELIH(BGPIC,53,1,0) Line Location: BL+1
Function Call: WRITE	Prompt: !!,"BASELINE REPORT PERIOD" Line Location: BL+2
Function Call: WRITE	Prompt: !,BGPHD2 Line Location: BL+3
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+4
Function Call: WRITE	Prompt: !,"# w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: BL+5
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+6
Function Call: WRITE	Prompt: !,"% w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: BL+7
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+8
Function Call: WRITE	Prompt: !!,"# A. w/ DM Retinal",!," exam" Line Location: BL+9
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+10
Function Call: WRITE	Prompt: !,"% A. w/ DM Retinal",!," exam" Line Location: BL+11
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+12
Function Call: WRITE	Prompt: !!,"# B. w/Other Eye",!?2,"Exams" Line Location: BL+13
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+14
Function Call: WRITE	Prompt: !,"% B. w/Other Eye",!?2,"Exams" Line Location: BL+15
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+16
Function Call: WRITE	Prompt: !!,"CHANGE FROM BASE YR %" Line Location: BL+19
Function Call: WRITE	Prompt: !,"# w/Retinal Evaluation-No",!," Refusals (GPRA)" Line Location: BL+20
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+21
Function Call: WRITE	Prompt: !,"# A. w/ DM Retinal",!," exam" Line Location: BL+22
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+23
Function Call: WRITE	Prompt: !,"# B. w/Other Eye",!?2,"Exams" Line Location: BL+24
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+25
Function Call: WRITE	Prompt: !!,$$CTR(BGPHD1,80) Line Location: H3+1
Function Call: WRITE	Prompt: !?40,"Age Distribution" Line Location: H3+2
Function Call: WRITE	Prompt: !?30,"55-64",?42,"65-74",?54,"75-84",?65,">84 yrs",! Line Location: H3+3

Name	Line Occurrences (* Changed, ! Killed)
^BGPELDBH - [#90551.05]	V+4, VA+4
^BGPELDCH - [#90551.03]	V+2, VA+2
^BGPELDPH - [#90551.04]	V+3, VA+3
^BGPELIH - [#90551.06]	I1AGE+2, PR+1, BL+1
^BGPELIIH - [#90551.02]	I1AGE1+4, I1AGE1+10, I1AGE2+4, I1AGE3+4, I1AGE4+4
^BGPELIIH("C"	I1AGE1+3, I1AGE2+2, I1AGE3+2, I1AGE4+2
^DD(90551.03	I1AGE1+5, I1AGE1+11, I1AGE2+5, I1AGE3+5, I1AGE4+5

Name	Line Occurrences
$$C	I1AGEP+3, I1AGEP+5, I1AGEP+9, I1AGEP+13, PR+4, PR+6, PR+10, PR+14, BL+4, BL+6 , BL+10, BL+14
$$CTR	H3+1
$$V	I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+6 , I1AGE3+7, I1AGE3+8, I1AGE4+6, I1AGE4+7, I1AGE4+8, SETN+1, SETN+2, SETN+3
H3	I1AGE+2, PR+1, BL+1
I1AGE1	I1AGE+3
I1AGE2	I1AGE+3
I1AGE3	I1AGE+3
I1AGEP	I1AGE+4
VA	V+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	C+1~
B	C+1~
>> BGPAREAA	V+1
>> BGPBLD	SETN+6
>> BGPBLN	SETN+3*, SETN+6
>> BGPBLP	SETN+6*
>> BGPCYD	SETN+4
>> BGPCYN	SETN+1*, SETN+4
>> BGPCYP	SETN+4*
BGPDAB	I1AGE+3!
BGPDAB(	I1AGE1+8, I1AGE1+14, I1AGE2+8, I1AGE3+8, I1AGE4+8*, BL+4, BL+6, BL+8, BL+10, BL+12 , BL+14, BL+16, BL+21, BL+23, BL+25
BGPDAC	I1AGE+3!
BGPDAC(	I1AGE1+6, I1AGE1+12, I1AGE2+6, I1AGE3+6, I1AGE4+6*, I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11 , I1AGEP+13, I1AGEP+15, PR+21, PR+23, PR+25, BL+21, BL+23, BL+25
BGPDAP	I1AGE+3!
BGPDAP(	I1AGE1+7, I1AGE1+13, I1AGE2+7, I1AGE3+7, I1AGE4+7*, PR+4, PR+6, PR+8, PR+10, PR+12 , PR+14, PR+16, PR+21, PR+23, PR+25
>> BGPDF	I1AGE1+4*, I1AGE1+5
>> BGPF	I1AGE1+3, I1AGE2+2, I1AGE3+2, I1AGE4+2
>> BGPHD1	I1AGE+1*, H3+1
>> BGPHD2	I1AGE+1*, I1AGEP+2, PR+3, BL+3
>> BGPIC	I1AGE+2, PR+1, BL+1
>> BGPNF	I1AGE1+10, I1AGE1+11, I1AGE2+4, I1AGE2+5, I1AGE3+4, I1AGE3+5, I1AGE4+4, I1AGE4+5
>> BGPNP	I1AGE1+5, I1AGE1+11, I1AGE2+5, I1AGE3+5, I1AGE4+5*
>> BGPPC	I1AGE1+3, I1AGE1+4, I1AGE1+10, I1AGE2+2, I1AGE2+4, I1AGE3+2, I1AGE3+4, I1AGE4+2, I1AGE4+4
>> BGPPRD	SETN+5
>> BGPPRN	SETN+2*, SETN+5
>> BGPPRP	SETN+5*
>> BGPQUIT	I1AGE+2, PR+1, BL+1
>> BGPRPT	I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+6 , I1AGE3+7, I1AGE3+8, I1AGE4+6, I1AGE4+7, I1AGE4+8, SETN+1, SETN+2, SETN+3
>> BGPSUL(	VA+1
>> BGPX	I1AGE+3*, I1AGE1+3, I1AGE2+2, I1AGE3+2, I1AGE4+2
C	I1AGE+3, I1AGE1+2, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, VA+1~, VA+2 , VA+3, VA+4, VA+6, C+1~
D	I1AGE+3, I1AGE2+1, I1AGE2+6, I1AGE2+7, I1AGE2+8, C+1~
E	I1AGE+3, I1AGE3+1, I1AGE3+6, I1AGE3+7, I1AGE3+8, C+1~
F	I1AGE+3, I1AGE4+1, I1AGE4+6, I1AGE4+7, I1AGE4+8, C+1~
G	I1AGE+3*, C+1~
H	I1AGE+3*, C+1~
I	I1AGE+3*, C+1~
IOM	CTR+1
J	I1AGE+3*, C+1~
K	I1AGE+3*, C+1~
N	I1AGE1+5, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+11, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+5, I1AGE2+6 , I1AGE2+7, I1AGE2+8, I1AGE3+5, I1AGE3+6, I1AGE3+7, I1AGE3+8, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8 , PR+21, PR+23, PR+25, BL+21, BL+23, BL+25*, SETN+1, SETN+2, SETN+3, V~ , V+2, V+3, V+4, VA+2, VA+3, VA+4
>> O	PR+21, PR+23, PR+25, BL+21, BL+23, BL+25
P	I1AGE1+5, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+11, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+5, I1AGE2+6 , I1AGE2+7, I1AGE2+8, I1AGE3+5, I1AGE3+6, I1AGE3+7, I1AGE3+8, I1AGE4+5*, I1AGE4+6, I1AGE4+7, I1AGE4+8 , SETN+1, SETN+2, SETN+3, V~, V+2, V+3, V+4, VA+2, VA+3, VA+4
R	V~, V+2, V+3, V+4
T	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+13, I1AGEP+15, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+14, PR+16, PR+21, PR+23, PR+25, BL+4, BL+6, BL+8 , BL+10, BL+12, BL+14, BL+16, BL+21, BL+23, BL+25*, V~, V+2, V+3 , V+4, VA+2, VA+3, VA+4
U	I1AGE1+4, I1AGE1+5, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+10, I1AGE1+11, I1AGE1+12, I1AGE1+13, I1AGE1+14 , I1AGE2+4, I1AGE2+5, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+4, I1AGE3+5, I1AGE3+6, I1AGE3+7, I1AGE3+8 , I1AGE4+4, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11 , I1AGEP+13, I1AGEP+15, PR+4, PR+6, PR+8, PR+10, PR+12, PR+14, PR+16, PR+21 , PR+23, PR+25, BL+4, BL+6, BL+8, BL+10, BL+12, BL+14, BL+16, BL+21 , BL+23, BL+25, V+2, V+3, V+4, VA+2, VA+3, VA+4
V	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+13, I1AGEP+15, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+14, PR+16, BL+4, BL+6, BL+8, BL+10, BL+12, BL+14 , BL+16*, VA+1~
X	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+13, I1AGEP+15, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+14, PR+16, PR+21, PR+23, PR+25, BL+4, BL+6, BL+8 , BL+10, BL+12, BL+14, BL+16, BL+21, BL+23, BL+25, CTR~, CTR+1, VA+1~ , VA+2, VA+3, VA+4, C~, C+3
X2	C~
X3	C~
Y	CTR~, CTR+1

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP3EL16

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: