Routine: BGPD30

Package	Total	Call Graph
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS GPRA Information System	1	BGPD1

Entry Points

Name	Comments	DBIA/ICR reference
TOBACCO(P,EDATE)	;EP
I30	;EP ;EP - indicator 30
S(R,N,P,V)	;
TOBACCO1	;check for tobacco documented in health factors
TOBACCO0	;lookup in health status
LASTHF(P,C,EDATE)	;EP - get last factor in category C for patient P
SAGE(R,N,P,S,V)	;set age into file

External References

Name	Field # of Occurrence
$$VAL^XBDIQ1	TOBACCO0+1, LASTHF+15

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNHF("AA"	TOBACCO0+1, TOBACCO0+3
^AUPNPAT - [#9000001]	I30+9, I30+16, I30+23, I30+30
^AUPNVHF("AA"	LASTHF+8, LASTHF+9, LASTHF+11
^AUTTHF - [#9999999.64]	TOBACCO0+5
^AUTTHF("AC"	LASTHF+7
^AUTTHF("B"	LASTHF+4
^BGPD - [#90240.01]	SAGE+3, SAGE+5, S+2
^DPT - [#2]	I30+2, I30+9, I30+16, I30+23, I30+30
^XTMP("BGPD"	I30+9, I30+16, I30+23, I30+30

Label References

Name	Line Occurrences
$$LASTHF	TOBACCO1+1
$$TOBACCO	I30+5, I30+12, I30+19, I30+26
SAGE	I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18, I30+20 , I30+21, I30+22, I30+25, I30+27, I30+28, I30+29
TOBACCO0	TOBACCO+8
TOBACCO1	TOBACCO+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BGP	TOBACCO+4~
>> BGPAGEB	I30+3, I30+10, I30+17, I30+24
>> BGPAGEE	I30+9, I30+16, I30+23, I30+30
>> BGPEDATE	I30+5, I30+12, I30+19, I30+26
>> BGPH	I30+9, I30+16, I30+23, I30+30
>> BGPJ	I30+9, I30+16, I30+23, I30+30
>> BGPLIST(26	I30+9, I30+16, I30+23, I30+30
>> BGPP	I30+5, I30+6, I30+7, I30+8, I30+9, I30+12, I30+13, I30+14, I30+15, I30+16 , I30+19, I30+20, I30+21, I30+22, I30+23, I30+26, I30+27, I30+28, I30+29, I30+30
>> BGPRPT	I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18, I30+20 , I30+21, I30+22, I30+25, I30+27, I30+28, I30+29
>> BGPSEX	I30+2*, I30+4, I30+6, I30+7, I30+8, I30+11, I30+13, I30+14, I30+15, I30+18 , I30+20, I30+21, I30+22, I30+25, I30+27, I30+28, I30+29
>> BGPTIME	I30+4, I30+6, I30+7, I30+8, I30+9, I30+11, I30+13, I30+14, I30+15, I30+16 , I30+18, I30+20, I30+21, I30+22, I30+23, I30+25, I30+27, I30+28, I30+29, I30+30
BGPTOB	TOBACCO+4~, TOBACCO+5!, TOBACCO+7, TOBACCO+9, TOBACCO1+1!, TOBACCO0+6, TOBACCO0+7, TOBACCO0+8, TOBACCO0+9, TOBACCO0+10
C	LASTHF~, LASTHF+2, LASTHF+4*, LASTHF+5, LASTHF+7
D	LASTHF+6~, LASTHF+9, LASTHF+10, LASTHF+11, LASTHF+13, LASTHF+14, LASTHF+15
>> DFN	I30+2, I30+5, I30+9, I30+12, I30+16, I30+19, I30+23, I30+26, I30+30
E	TOBACCO+4~, TOBACCO0+3*, TOBACCO0+4
EDATE	TOBACCO~, TOBACCO1+1, TOBACCO0+4, LASTHF~, LASTHF+10
>> F	LASTHF+3*
H	LASTHF+6~, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+11
N	SAGE~, SAGE+3, SAGE+5, S~, S+2
O	LASTHF+6~!
O(	LASTHF+11*, LASTHF+15
O(0	LASTHF+13
P	SAGE~, SAGE+3, SAGE+5, S~, S+2, TOBACCO~, TOBACCO+3, TOBACCO1+1, TOBACCO0+1, TOBACCO0+3 , LASTHF~, LASTHF+1, LASTHF+8, LASTHF+9, LASTHF+11
R	SAGE~, SAGE+3, SAGE+5, S~, S+2
S	SAGE~, SAGE+4
U	I30+2, I30+9, I30+16, I30+23, I30+30, SAGE+3, SAGE+5, S+2, TOBACCO0+5
V	SAGE~, SAGE+1, SAGE+4, S~, S+1, S+2
X	SAGE+2~, SAGE+3, SAGE+4, SAGE+5, TOBACCO+4~, TOBACCO0+1*
Y	SAGE+2~, TOBACCO0+1, TOBACCO0+2, TOBACCO0+3, TOBACCO0+5, TOBACCO0+6, TOBACCO0+7, TOBACCO0+8, TOBACCO0+9

Customize PDF page

Package: IHS GPRA Information System

Routine: BGPD30

Information

Source Information

Call Graph

Call Graph Total: 1

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: