Routine: BGP6DP13

Package	Total	Call Graph
IHS GPRA Information System	2	$$V^BGP6DP1C (H4,HEADER)^BGP6DPH
VA Fileman	1	COMMA^%DTC

Package	Total	Caller Graph
IHS GPRA Information System	1	BGP6DP1

Entry Points

Name	Comments	DBIA/ICR reference
PR	;
BL	;
FEM	;
I1AGE	;EP special age tallies
I1AGE5	;
I1AGE4	;
I1AGE3	;
I1AGE2	;
I1AGE1	;
I1AGEP	;
C(X,X2,X3)	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
$$V^BGP6DP1C	I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14, I1AGE2+6, I1AGE2+7, I1AGE2+8, I1AGE3+7 , I1AGE3+8, I1AGE3+9, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+6, I1AGE5+7, I1AGE5+8
H4^BGP6DPH	I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
HEADER^BGP6DPH	I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,1,0) Line Location: I1AGE+4
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,2,0) Condition for execution: $D(^BGPINDM(BGPIC,53,2,0)) Line Location: I1AGE+4
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,1,0) Line Location: I1AGE+9
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,2,0) Condition for execution: $D(^BGPINDM(BGPIC,53,2,0)) Line Location: I1AGE+9
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,1,0) Line Location: FEM+2
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,2,0) Condition for execution: $D(^BGPINDM(BGPIC,53,2,0)) Line Location: FEM+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/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid-",!?2,"No Refusals" Line Location: I1AGEP+4
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+5
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid-",!?2,"No Refusals" Line Location: I1AGEP+6
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+7
Function Call: WRITE	Prompt: !!,"# Quit" Line Location: I1AGEP+8
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+9
Function Call: WRITE	Prompt: !,"% Quit" Line Location: I1AGEP+10
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+11
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+13
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+15
Function Call: WRITE	Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: I1AGEP+16
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: I1AGEP+17
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: I1AGEP+18
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: I1AGEP+19
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,1,0) Line Location: PR+1
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,2,0) Condition for execution: $D(^BGPINDM(BGPIC,53,2,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/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid-",!?2,"No Refusals" Line Location: PR+5
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+6
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid-",!?2,"No Refusals" Line Location: PR+7
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+8
Function Call: WRITE	Prompt: !!,"# Quit" Line Location: PR+9
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+10
Function Call: WRITE	Prompt: !,"% Quit" Line Location: PR+11
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+12
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+14
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+16
Function Call: WRITE	Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: PR+17
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: PR+18
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: PR+19
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: PR+20
Function Call: WRITE	Prompt: !!,"CHANGE FROM PREV YR %" Line Location: PR+22
Function Call: WRITE	Prompt: !,"w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid-",!?2,"No Refusals" Line Location: PR+23
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+24
Function Call: WRITE	Prompt: !,"# Quit" Line Location: PR+25
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+26
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+28
Function Call: WRITE	Prompt: !,"# w/ Tobacco Cessation",!?2,"Counseling, Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: PR+29
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: PR+30
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,1,0) Line Location: BL+1
Function Call: WRITE	Prompt: !,^BGPINDM(BGPIC,53,2,0) Condition for execution: $D(^BGPINDM(BGPIC,53,2,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/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid-",!?2,"No Refusals" Line Location: BL+5
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+6
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling",!?2,"or Rx for Cessation Aid-",!?2,"No Refusals" Line Location: BL+7
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+8
Function Call: WRITE	Prompt: !!,"# Quit" Line Location: BL+9
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+10
Function Call: WRITE	Prompt: !,"% Quit" Line Location: BL+11
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+12
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+14
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+16
Function Call: WRITE	Prompt: !!,"# w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: BL+17
Function Call: WRITE	Prompt: ?T,$$C(V,0,6) Line Location: BL+18
Function Call: WRITE	Prompt: !,"% w/ Tobacco Cessation Counseling,",!?2,"Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: BL+19
Function Call: WRITE	Prompt: ?T,$J(V,6,1) Line Location: BL+20
Function Call: WRITE	Prompt: !!,"CHANGE FROM BASE YR %" Line Location: BL+22
Function Call: WRITE	Prompt: !,"w/ Tobacco Cessation Counseling",!?2,"or RX for Cessation Aid-",!?2,"No Refusals" Line Location: BL+23
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+24
Function Call: WRITE	Prompt: !,"# Quit" Line Location: BL+25
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+26
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+28
Function Call: WRITE	Prompt: !,"# w/ Tobacco Cessation",!?2,"Counseling, Rx for Cessation Aid or Quit-",!?2,"No Refusals" Line Location: BL+29
Function Call: WRITE	Prompt: ?T,$J($FN((N-O),"+,",1),6) Line Location: BL+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BGPINDM - [#90556.01]	I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
^BGPINDMC - [#90556.02]	I1AGE1+4, I1AGE1+10, I1AGE2+4, I1AGE3+5, I1AGE4+4, I1AGE5+4
^BGPINDMC("OR"	I1AGE1+3, I1AGE2+2, I1AGE3+3, I1AGE4+2, I1AGE5+2
^DD(90556.03	I1AGE1+5, I1AGE1+11, I1AGE2+5, I1AGE3+6, I1AGE4+5, I1AGE5+5

Label References

Name	Line Occurrences
$$C	I1AGEP+3, I1AGEP+5, I1AGEP+9, I1AGEP+17, PR+4, PR+6, PR+10, PR+18, BL+4, BL+6 , BL+10, BL+18
I1AGE1	I1AGE+5, I1AGE+10, FEM+3
I1AGE2	I1AGE+5, I1AGE+10, FEM+3
I1AGE4	I1AGE+5, I1AGE+10, FEM+3
I1AGEP	I1AGE+6, I1AGE+11, FEM+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BGPDAB	I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAB(	I1AGE1+8, I1AGE1+14, I1AGE2+8, I1AGE3+9, I1AGE4+8, I1AGE5+8, BL+4, BL+6, BL+8, BL+10 , BL+12, BL+18, BL+20, BL+24, BL+26, BL+30
BGPDAC	I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAC(	I1AGE1+6, I1AGE1+12, I1AGE2+6, I1AGE3+7, I1AGE4+6, I1AGE5+6, I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9 , I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+24, PR+26, PR+30, BL+24, BL+26, BL+30
BGPDAP	I1AGE+5!, I1AGE+10!, FEM+3!
BGPDAP(	I1AGE1+7, I1AGE1+13, I1AGE2+7, I1AGE3+8, I1AGE4+7, I1AGE5+7, PR+4, PR+6, PR+8, PR+10 , PR+12, PR+18, PR+20, PR+24, PR+26, PR+30
>> BGPDF	I1AGE1+4*, I1AGE1+5
>> BGPF	I1AGE1+3, I1AGE2+2, I1AGE3+3, I1AGE4+2, I1AGE5+2*
>> BGPHD1	I1AGE+3, I1AGE+8, FEM+1*
>> BGPHD2	I1AGE+3, I1AGE+8, FEM+1*, I1AGEP+2, PR+3, BL+3
>> BGPIC	I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
>> BGPINDM	I1AGE+2
>> BGPNF	I1AGE1+10, I1AGE1+11, I1AGE2+4, I1AGE2+5, I1AGE3+5, I1AGE3+6, I1AGE4+4, I1AGE4+5, I1AGE5+4*, I1AGE5+5
>> BGPNP	I1AGE1+5, I1AGE1+11, I1AGE2+5, I1AGE3+6, I1AGE4+5, I1AGE5+5
>> BGPPC	I1AGE1+3, I1AGE1+4, I1AGE1+10, I1AGE2+2, I1AGE2+4, I1AGE3+3, I1AGE3+5, I1AGE4+2, I1AGE4+4, I1AGE5+2* , I1AGE5+4
>> BGPQUIT	I1AGE+4, I1AGE+7, I1AGE+9, I1AGE+12, FEM+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+7 , I1AGE3+8, I1AGE3+9, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> BGPSUMON	I1AGE+1, I1AGE+4, I1AGE+9, FEM+2, PR+1, BL+1
>> BGPX	I1AGE+5, I1AGE+10, FEM+3*, I1AGE1+3, I1AGE2+2, I1AGE3+3, I1AGE4+2, I1AGE5+2
>> C	I1AGE+5, I1AGE+10, FEM+3, I1AGE1+2, I1AGE1+6, I1AGE1+7, I1AGE1+8, I1AGE1+12, I1AGE1+13, I1AGE1+14
>> D	I1AGE+5, I1AGE+10, FEM+3, I1AGE2+1, I1AGE2+6, I1AGE2+7, I1AGE2+8
>> E	I1AGE+5, I1AGE+10, FEM+3, I1AGE3+2, I1AGE3+7, I1AGE3+8, I1AGE3+9
>> F	I1AGE+5, I1AGE+10, FEM+3, I1AGE4+1, I1AGE4+6, I1AGE4+7, I1AGE4+8
>> G	I1AGE+5, I1AGE+10, FEM+3, I1AGE5+1, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> 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+6, I1AGE3+7, I1AGE3+8, I1AGE3+9, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8 , I1AGE5+5, I1AGE5+6, I1AGE5+7, I1AGE5+8, PR+24, PR+26, PR+30, BL+24, BL+26, BL+30
>> O	PR+24, PR+26, PR+30, BL+24, BL+26, BL+30
>> 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+6, I1AGE3+7, I1AGE3+8, I1AGE3+9, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8 , I1AGE5+5, I1AGE5+6, I1AGE5+7, I1AGE5+8
>> T	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+18, PR+20, PR+24, PR+26, PR+30, BL+4, BL+6, BL+8 , BL+10, BL+12, BL+18, BL+20, BL+24, BL+26, BL+30*
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+5, I1AGE3+6, I1AGE3+7, I1AGE3+8, I1AGE3+9 , I1AGE4+4, I1AGE4+5, I1AGE4+6, I1AGE4+7, I1AGE4+8, I1AGE5+4, I1AGE5+5, I1AGE5+6, I1AGE5+7, I1AGE5+8 , I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+18, PR+20, PR+24, PR+26, PR+30, BL+4, BL+6, BL+8 , BL+10, BL+12, BL+18, BL+20, BL+24, BL+26, BL+30
>> V	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+18, PR+20, BL+4, BL+6, BL+8, BL+10, BL+12, BL+18 , BL+20*
X	I1AGEP+3, I1AGEP+5, I1AGEP+7, I1AGEP+9, I1AGEP+11, I1AGEP+17, I1AGEP+19, PR+4, PR+6, PR+8 , PR+10, PR+12, PR+18, PR+20, PR+24, PR+26, PR+30, BL+4, BL+6, BL+8 , BL+10, BL+12, BL+18, BL+20, BL+24, BL+26, BL+30*, C~, C+2
X2	C~
X3	C~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6DP13

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: