Routine: BGP7D7

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
IHS GPRA Information System	7	$$TOBHF^BGP7D712 PREGSCRN^BGP7D713 PREG^BGP7D714 ($$CPT,$$IPLSNOID)^BGP7DU $$DATE^BGP7UTL $$LASTDX^BGP7UTL1 ($$ICD,$$ICDDX)^BGP7UTL2
Patient Care Component Reports	2	$$START1^APCLDF $$CLINIC^APCLV
IHS Patient	1	$$AGE^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT

Package	Total	Caller Graph
IHS GPRA Information System	24	BGP7C12 BGP7C2 BGP7CON1 BGP7D21 BGP7D212 BGP7D213 BGP7D23 BGP7D26 BGP7D3B BGP7D41 BGP7D71 BGP7D712 BGP7D713 BGP7D722 BGP7D723 BGP7D75 BGP7D8 BGP7D88 BGP7D89 BGP7D9 BGP7DHE1 BGP7DPA2 BGP7EL2 BGP7EL3

Package

Total

Caller Graph

IHS GPRA Information System

BGP7C12  BGP7C2  BGP7CON1  BGP7D21  BGP7D212  BGP7D213  BGP7D23  BGP7D26
BGP7D3B  BGP7D41  BGP7D71  BGP7D712  BGP7D713  BGP7D722  BGP7D723  BGP7D75
BGP7D8  BGP7D88  BGP7D89  BGP7D9  BGP7DHE1  BGP7DPA2  BGP7EL2  BGP7EL3

Entry Points

Name	Comments	DBIA/ICR reference
DXSL(P,BDATE,EDATE)	;EP - WAS THERE A SMOKELESS USER DX?
LASTHF(P,C,BDATE,EDATE)	;EP - get last factor in category C for patient P
I18	;EP
DXU(P,BDATE,EDATE)	;EP - WAS THERE A USER DX?
TAEND	;now check pregnancy if necessary
AGE	;
LOINC(A,B)	;
PREG(P,BDATE,EDATE,NORXCHR,NORX,FORM,CPBD,CPED)	;EP
I023	;EP - PHN
PED(P,BDATE,EDATE)	;EP
PHNV(P,BDATE,EDATE,HOMELOC)	;
DX(P,BDATE,EDATE)	;EP - WAS THERE SCREENING?
DXS(P,BDATE,EDATE)	;EP - WAS THERE A SMOKING USER DX?
PREGSCRN	;
HOME	;
TOBACCO1	;check for tobacco documented in health factors
TOBACCO0	;lookup in health status
TOBACCO(P,BDATE,EDATE,CESSIN)	;EP - USED FOR TOBACCO SCREEN ONLY
CPTSM(P,BDATE,EDATE)	;EP - did pat have TOBACCO SCREENING cpt?
DENT(P,BDATE,EDATE)	;EP
TA	;EP - called from elder

External References

Name	Field # of Occurrence
$$START1^APCLDF	PHNV+3, DENT+2, PED+4
$$CLINIC^APCLV	HOME+2
$$AGE^AUPNPAT	AGE+2
$$TOBHF^BGP7D712	TA+1
PREGSCRN^BGP7D713	PREGSCRN+1
PREG^BGP7D714	PREG+1
$$CPT^BGP7DU	CPTSM+2
$$IPLSNOID^BGP7DU	DX+15, DXSL+15, DXU+15, DXS+15
$$DATE^BGP7UTL	TA+23, TA+24, TA+25, TA+27, TA+28, TA+32, TA+34, TA+38, TA+39, TA+44 , TA+45, TA+46, TA+47, TOBACCO0+7, LASTHF+13
$$LASTDX^BGP7UTL1	DX+2, DXSL+2, DXU+2, DXS+2
$$ICD^BGP7UTL2	PED+17, DX+11, DXSL+11, DXU+11, DXS+11
$$ICDDX^BGP7UTL2	PED+16, DX+3, DX+12, DXSL+3, DXSL+12, DXU+3, DXU+12, DXS+3, DXS+12
$$VAL^XBDIQ1	TOBACCO0+1, LASTHF+13
$$VALI^XBDIQ1	PHNV+10
$$FMADD^XLFDT	I18+10, I18+12
$$FMDIFF^XLFDT	AGE+1
$$FMTE^XLFDT	PHNV+3, DENT+2, PED+4

Name	Line Occurrences
Function Call: WRITE	Prompt: BGPBOMB Line Location: AGE+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	LOINC+3, LOINC+5
^ATXAX("B"	PED+17, DX+4, DXSL+4, DXU+4, DXS+4, CPTSM+2
^AUPNHF("AA"	TOBACCO0+1, TOBACCO0+3
^AUPNPROB - [#9000011]	DX+6, DX+7, DX+8, DX+9, DX+10, DX+12, DXSL+6, DXSL+7, DXSL+8, DXSL+9 , DXSL+10, DXSL+12, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXS+6, DXS+7 , DXS+8, DXS+9, DXS+10, DXS+12
^AUPNPROB("AC"	DX+5, DXSL+5, DXU+5, DXS+5
^AUPNVDEN - [#9000010.05]	DENT+9
^AUPNVDEN("AD"	DENT+9
^AUPNVHF("AA"	LASTHF+5, LASTHF+6, LASTHF+9
^AUPNVPED - [#9000010.16]	PED+8
^AUPNVPRV - [#9000010.06]	PHNV+8
^AUPNVPRV("AD"	PHNV+8
^AUPNVSIT - [#9000010]	HOME+4, AGE+1, AGE+2, DENT+6, DENT+7, DENT+8, DENT+9
^AUTTADA - [#9999999.31]	DENT+9
^AUTTEDT - [#9999999.09]	PED+10, PED+11
^AUTTHF - [#9999999.64]	TOBACCO0+6
^AUTTHF("AC"	LASTHF+4
^AUTTHF("B"	LASTHF+1
^BGPSNOMG - [#90558.21]	PED+34
^BGPSNOMG("B"	PED+6
^DD(9000010.06	PHNV+10
^DIC(7 - [#7]	PHNV+11
^DPT - [#2]	AGE+1
^LAB(95.3 - [#95.3]	LOINC+2, LOINC+4
^TMP($J	TAEND+5!, I023+7!, PHNV+2!, PHNV+4, PHNV+5, DENT+1!, DENT+3, DENT+4

Label References

Name	Line Occurrences
$$CPTSM	TA+8
$$DENT	TA+7
$$DX	TA+2
$$DXS	TA+4
$$DXSL	TA+5
$$DXU	TA+3
$$LASTHF	TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8
$$PED	TA+6
$$PHNV	I023+4
$$PREG	I18+10
AGE	PHNV+16
HOME	PHNV+15
PREGSCRN	TAEND+3
TAEND	TA+18
TOBACCO0	TOBACCO+5
TOBACCO1	TOBACCO+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TAEND+4!, PHNV+10, PHNV+11, PHNV+12, PHNV+14, HOME+2, HOME+4, PED+7, PED+12, PED+13* , PED+14, PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PED+24, PED+25 , PED+26, PED+27, PED+28, PED+29, PED+30, PED+31, PED+32, PED+33, PED+34, PED+35 , LOINC+1~, LOINC+2, LOINC+3, LOINC+4*, LOINC+5
A	TAEND+4!, PHNV+2, PHNV+3, DENT+2, LOINC~, LOINC+2, LOINC+4
B	TAEND+4!, PHNV+3, DENT+2, DENT+9*, LOINC~, LOINC+3, LOINC+5
BDATE	TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+4, PREG~, DX~, DX+2 , DX+9, DX+15, DXSL~, DXSL+2, DXSL+9, DXSL+15, DXU~, DXU+2, DXU+9, DXU+15 , DXS~, DXS+2, DXS+9, DXS+15, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+5 , LASTHF~, LASTHF+8, CPTSM~, CPTSM+2
BGP	TOBACCO+1!
BGP1320	I18+1, TA+7, TA+13, TA+47, TAEND+4!
BGP20M	I18+12*, TAEND+4!
>> BGP365	I023+4
>> BGPACTCL	TA+48, TAEND+1
>> BGPACTUP	I18+3, I023+2
>> BGPAGEB	I18+2, I18+4, I18+5, I18+6, I18+7, I18+8, I18+9
>> BGPBDATE	I18+10, TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8
>> BGPBOMB	AGE+7
>> BGPD1	I18+1, I18+3, I18+11, TA+48, TAEND+1
>> BGPD2	I18+1, I18+4, I18+11
>> BGPD3	I18+1, I18+5, I18+11
>> BGPD4	I18+1, I18+6, I18+11
>> BGPD5	I18+1, I18+7, I18+11
>> BGPD6	I18+1, I18+8, I18+11
>> BGPD7	I18+1, I18+9, I18+11
>> BGPD8	I18+1, I18+10, I18+11, TA+48, TAEND+1, TAEND+3
>> BGPD9	I18+1*
>> BGPEDATE	I18+10, I18+12, TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8 , I023+4
BGPG	PED+1~, PED+2!, PED+5, DX+1!, DXSL+1!, DXU+1!, DXS+1!
BGPG(	PED+7, PED+8, PED+12, PED+13, PED+14, PED+17, PED+18, PED+19, PED+20, PED+21 , PED+22, PED+23, PED+24, PED+25, PED+26, PED+27, PED+28, PED+29, PED+30, PED+31 , PED+32, PED+33, PED+34
BGPG(1	DX+2, DX+3, DXSL+2, DXSL+3, DXU+2, DXU+3, DXS+2, DXS+3
>> BGPHOME	I023+4
BGPN1	I18+1, TA+9, TA+10, TA+11, TA+12, TA+13, TA+14, TA+15, TA+16, TA+18 , TA+42, TAEND+3, I023+1!, I023+3, I023+5*
>> BGPN10	I18+1*
BGPN2	I18+1, TA+21, TA+22, TA+23, TA+24, TA+25, TA+27, TA+28, I023+1!, I023+3*
BGPN3	I18+1, TA+31, TA+32, TA+34, I023+1!
BGPN4	I18+1, TA+37, TA+38, TA+39, I023+1!
>> BGPN5	I18+1, TA+41
>> BGPN6	I18+1*
>> BGPN7	I18+1*
>> BGPN8	I18+1*
>> BGPN9	I18+1*
>> BGPRTYPE	TAEND+3
>> BGPSCPT	TA+8*, TA+14, TA+26, TA+27, TA+28, TA+33, TA+34, TA+38, TA+45
BGPSDX	TA+2*, TA+10, TA+44, TAEND+4!
>> BGPSEX	I18+10
>> BGPSLDX	TA+5*, TA+11, TA+25, TA+39
>> BGPSMDX	TA+4*, TA+16, TA+24, TA+32
>> BGPSTOP	I18+2, I18+11, I023+2*
BGPTOB	TA+1, TA+9, TA+19, TA+21, TA+22, TA+41, TA+43, TOBACCO+1!, TOBACCO+4, TOBACCO+6 , TOBACCO1+1!, TOBACCO1+2, TOBACCO1+3, TOBACCO1+4, TOBACCO1+5, TOBACCO1+6, TOBACCO1+7, TOBACCO1+8, TOBACCO0+7
>> BGPUDX	TA+3*, TA+15, TA+23
>> BGPVAL	TA+17, TA+21, TA+22, TA+23, TA+24, TA+25, TA+27, TA+28, TA+31, TA+32 , TA+34, TA+37, TA+38, TA+39, TA+41, TA+42, TA+43, TA+44, TA+45, TA+46* , TA+47*, TA+49, TAEND+2
BGPVALUE	TA+17, TA+49, TAEND+2, I023+1!, I023+4, I023+5, I023+6*
BGPXPHD	I18+1, TA+6, TA+12, TA+46, TAEND+4!
C	TAEND+4!, PHNV+5, PHNV+13, PHNV+14, PHNV+17, HOME+2, HOME+4, AGE+3, AGE+4, AGE+5 , AGE+6, LASTHF~, LASTHF+1, LASTHF+2, LASTHF+4
CESSIN	TOBACCO~, TOBACCO+2*, TOBACCO1+6
CPBD	PREG~
CPED	PREG~
D	TAEND+4!, PHNV+7, PHNV+8, PED+1~, PED+7, TOBACCO1+2!, TOBACCO1+4!, TOBACCO1+6!, TOBACCO1+8!, LASTHF+3 , LASTHF+6, LASTHF+7, LASTHF+8, LASTHF+9, LASTHF+11, LASTHF+12, LASTHF+13
>> DAYS	AGE+1*, AGE+3, AGE+4
>> DFN	I18+10, TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8, I023+4
E	TAEND+4!, PHNV+3, DENT+2, PED+1~, PED+4, TOBACCO0+3, TOBACCO0+4, TOBACCO0+5, TOBACCO0+7, TOBACCO0+8!
EDATE	TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+4, PREG~, DX~, DX+2 , DX+8, DX+15, DXSL~, DXSL+2, DXSL+8, DXSL+15, DXU~, DXU+2, DXU+8, DXU+15 , DXS~, DXS+2, DXS+8, DXS+15, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6, TOBACCO1+8, TOBACCO0+4 , LASTHF~, LASTHF+7, CPTSM~, CPTSM+2
F	TA+19*, TA+21, TA+22, TA+31, TA+37, TA+41, TAEND+4!
FORM	PREG~
>> G	DENT+4, DENT+9, DENT+11, DENT+12, DX+5, DX+12, DX+14, DX+15, DX+16, DXSL+5 , DXSL+12, DXSL+14, DXSL+15, DXSL+16, DXU+5, DXU+12, DXU+14, DXU+15, DXU+16, DXS+5 , DXS+12, DXS+14, DXS+15, DXS+16
H	TAEND+4!, TOBACCO1+2!, TOBACCO1+4!, TOBACCO1+6!, TOBACCO1+8!, LASTHF+3, LASTHF+4, LASTHF+5, LASTHF+6, LASTHF+9
HOMELOC	PHNV~, PHNV+1*, HOME+3, HOME+4
>> HV	HOME+1, HOME+2, HOME+4*, AGE+3, AGE+4, AGE+5, AGE+6
NORX	PREG~
NORXCHR	PREG~
O	TOBACCO1+2!, TOBACCO1+4!, TOBACCO1+6!, TOBACCO1+8!, LASTHF+3!
O(	LASTHF+9*, LASTHF+13
O(0	LASTHF+11
P	TAEND+4!, PHNV~, PHNV+3, AGE+1, AGE+2, DENT~, DENT+2, PED~, PED+4, PREG~ , DX~, DX+2, DX+5, DX+15, DXSL~, DXSL+2, DXSL+5, DXSL+15, DXU~, DXU+2 , DXU+5, DXU+15, DXS~, DXS+2, DXS+5, DXS+15, TOBACCO~, TOBACCO1+2, TOBACCO1+4, TOBACCO1+6 , TOBACCO1+8, TOBACCO0+1, TOBACCO0+3, LASTHF~, LASTHF+5, LASTHF+6, LASTHF+9, CPTSM~, CPTSM+2
>> Q	PHNV+8*, PHNV+9, PHNV+10
S	TAEND+4!, PED+1~, PED+15, PED+16, PED+17
SN	PED+1~, PED+6*, PED+34
T	PED+1~, PED+7, PED+8, PED+9, PED+10, PED+11, PED+12, PED+13, PED+14, PED+15 , PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PED+24, PED+25, PED+26 , PED+27, PED+28, PED+29, PED+30, PED+31, PED+32, PED+33, PED+34, DX+4, DX+11 , DXSL+4, DXSL+11, DXU+4, DXU+11, DXS+4*, DXS+11
U	TA+21, TA+22, TA+23, TA+24, TA+25, TA+26, TA+27, TA+28, TA+31, TA+32 , TA+33, TA+34, TA+37, TA+38, TA+39, TA+41, TA+43, TA+44, TA+45, TA+46 , TA+47, I023+6, PHNV+5, PHNV+8, PHNV+10, PHNV+11, PHNV+13, PHNV+14, HOME+2, HOME+4 , AGE+1, AGE+2, AGE+3, AGE+4, AGE+5, AGE+6, DENT+4, DENT+7, DENT+8, DENT+9 , DENT+12, PED+8, PED+11, PED+12, PED+13, PED+14, PED+17, PED+18, PED+19, PED+20 , PED+21, PED+22, PED+23, PED+24, PED+25, PED+26, PED+27, PED+28, PED+29, PED+30 , PED+31, PED+32, PED+33, PED+34, DX+3, DX+6, DX+7, DX+8, DX+9, DX+10 , DX+12, DX+15, DXSL+3, DXSL+6, DXSL+7, DXSL+8, DXSL+9, DXSL+10, DXSL+12, DXSL+15 , DXU+3, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXU+15, DXS+3, DXS+6 , DXS+7, DXS+8, DXS+9, DXS+10, DXS+12, DXS+15, TOBACCO0+6, LOINC+2, LOINC+4, CPTSM+3
V	TA+48, TA+49, TAEND+1, TAEND+2, TAEND+4!, PHNV+5, PHNV+8, HOME+2, HOME+4, AGE+1 , AGE+2, DENT+4, DENT+5, DENT+6, DENT+7, DENT+8, DENT+9
X	TAEND+4!, PHNV+5, DENT+4, PED+1~, PED+4, PED+7, PED+8, PED+12, PED+13, PED+14 , PED+17, PED+18, PED+19, PED+20, PED+21, PED+22, PED+23, PED+24, PED+25, PED+26 , PED+27, PED+28, PED+29, PED+30, PED+31, PED+32, PED+33, PED+34, DX+5, DX+6 , DX+7, DX+8, DX+9, DX+10, DX+12, DXSL+5, DXSL+6, DXSL+7, DXSL+8, DXSL+9 , DXSL+10, DXSL+12, DXU+5, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXS+5 , DXS+6, DXS+7, DXS+8, DXS+9, DXS+10, DXS+12, TOBACCO0+1, TOBACCO0+8!, CPTSM+1~, CPTSM+2 , CPTSM+3
Y	TAEND+4!, PHNV+5, PHNV+7, PED+1~, PED+3, PED+4, DX+10, DX+11, DX+12, DXSL+10* , DXSL+11, DXSL+12, DXU+10, DXU+11, DXU+12, DXS+10, DXS+11, DXS+12, TOBACCO0+1, TOBACCO0+2 , TOBACCO0+3, TOBACCO0+6, TOBACCO0+7, TOBACCO0+8!
>> YRS	AGE+2*, AGE+4, AGE+5, AGE+6
Z	TAEND+4!, PHNV+7, DENT+9

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP7D7

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 24

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: