Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP5D7

Package: IHS GPRA Information System

Routine: BGP5D7


Information

BGP5D7 ; IHS/CMI/LAB - measure 31 ; 06 Nov 2014 2:31 PM

Source Information

Source file <BGP5D7.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
IHS GPRA Information System 6 $$TOBHF^BGP5D712  PREGSCRN^BGP5D713  ($$CPT,$$TRAN)^BGP5DU  $$DATE^BGP5UTL  ($$LASTDX,$$LASTPRC)^BGP5UTL1  ($$ICD,$$ICDDX)^BGP5UTL2  
Patient Care Component Reports 2 $$START1^APCLDF  ($$CLINIC,$$PRIMPROV)^APCLV  
IHS Patient 1 $$AGE^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  

Caller Graph

Caller Graph Total: 18

Package Total Caller Graph
IHS GPRA Information System 18 BGP5CON1  BGP5D21  BGP5D23  BGP5D26  BGP5D41  BGP5D71  BGP5D712  BGP5D713  
BGP5D722  BGP5D723  BGP5D732  BGP5D75  BGP5D8  BGP5D88  BGP5D89  BGP5D9  
BGP5DPA2  BGP5EL3  

Entry Points

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

External References

Name Field # of Occurrence
$$START1^APCLDF PHNV+3, DENT+2, PED+3, PREG+7, MA+1
$$CLINIC^APCLV HOME+2, PREG+12
$$PRIMPROV^APCLV PREG+15
$$AGE^AUPNPAT AGE+2
$$TOBHF^BGP5D712 TA+1
PREGSCRN^BGP5D713 PREGSCRN+1
$$CPT^BGP5DU MA+18, MA+21, CPTSM+2
$$TRAN^BGP5DU MA+24, MA+27
$$DATE^BGP5UTL 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^BGP5UTL1 DX+2, DXSL+2, DXU+2, DXS+2
$$LASTPRC^BGP5UTL1 MA+3
$$ICD^BGP5UTL2 PED+15, PROB+9, MA+12, DX+11, DXSL+11, DXU+11, DXS+11
$$ICDDX^BGP5UTL2 PED+14, 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, PREG+18
$$FMDIFF^XLFDT AGE+1
$$FMTE^XLFDT PHNV+3, DENT+2, PED+3, PREG+7, MA+1

Interaction Calls

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+15, PROB+2, MA+5, MA+17, MA+20, MA+23, MA+26, DX+4, DXSL+4, DXU+4
, DXS+4, CPTSM+2
^AUPNHF("AA" TOBACCO0+1, TOBACCO0+3
^AUPNPROB - [#9000011] PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, PROB+10, MA+7, MA+8, MA+9, MA+10
, MA+11, 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" PROB+3, MA+6, 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+6
^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+8, PED+9
^AUTTHF - [#9999999.64] TOBACCO0+6
^AUTTHF("AC" LASTHF+4
^AUTTHF("B" LASTHF+1
^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
MA PREG+20
PREGSCRN TAEND+3
PROB PREG+8
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+5*, PED+10*, PED+11*
, PED+12*, PED+15*, PED+16*, 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, PREG+1~
, MA+18*, MA+19, MA+21*, MA+22, MA+24*, MA+25, MA+27*, MA+28, 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*, PREG+1~, PREG+2*, PREG+9*, PREG+18*, PREG+20, PROB+1
, LOINC~, LOINC+3, LOINC+5
BDATE TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+7, PROB+7
, DX~, DX+2, DX+9, DXSL~, DXSL+2, DXSL+9, DXU~, DXU+2, DXU+9, DXS~
, DXS+2, DXS+9, 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 TA+1, TA+2, TA+3, TA+4, TA+5, TA+6, TA+7, TA+8
>> BGPBOMB AGE+7
BGPD PREG+1~, PREG+2*, PREG+17*, PROB+12, PROB+13*, MA+1, MA+3, MA+9, MA+18, MA+21
, MA+24, MA+27
>> 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*
BGPDX PREG+1~
BGPDX( PREG+17*
>> 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+4, PREG+1~, PREG+5!, PREG+8, MA+1!, MA+3*, MA+4, DX+1!, DXSL+1!
, DXU+1!, DXS+1!
BGPG( PED+5, PED+6, PED+10, PED+11, PED+12, PED+15, PED+16, 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, PREG+9, PREG+11, PREG+12, PREG+15
BGPG(1 MA+2, 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*, PREG+1~, PREG+12*, PREG+13, PREG+14, PREG+15*, PREG+16, LASTHF~, LASTHF+1*, LASTHF+2
, LASTHF+4
CESSIN TOBACCO~, TOBACCO+2*, TOBACCO1+6
CNT PREG+1~, PREG+2*, PREG+17*, PREG+20
D TAEND+4!, PHNV+7*, PHNV+8*, PED+5*, PREG+1~, PREG+11*, PREG+17, PREG+18, 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+3*, PREG+7*, MA+1*, TOBACCO0+3*, TOBACCO0+4, TOBACCO0+5, TOBACCO0+7
, TOBACCO0+8!
EDATE TAEND+4!, PHNV~, PHNV+3, DENT~, DENT+2, PED~, PED+3, PREG~, PREG+7, PREG+18
, PROB+6, MA+1, MA+3, MA+10, MA+18, MA+21, MA+24, MA+27, DX~, DX+2
, DX+8, DXSL~, DXSL+2, DXSL+8, DXU~, DXU+2, DXU+8, DXS~, DXS+2, DXS+8
, 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!
G DENT+4*, DENT+9*, DENT+11, DENT+12, PREG+1~, PROB+3*, PROB+10*, PROB+12, PROB+13, MA+6*
, MA+13*, MA+15, DX+5*, DX+12*, DX+14, DXSL+5*, DXSL+12*, DXSL+14, DXU+5*, DXU+12*
, DXU+14, DXS+5*, DXS+12*, DXS+14
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~, PREG+4*, PREG+14
NORXCHR PREG~, PREG+3*, PREG+13, PREG+16
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+3, PREG~
, PREG+7, PROB+3, MA+1, MA+3, MA+6, MA+18, MA+21, MA+24, MA+27, DX~
, DX+2, DX+5, DXSL~, DXSL+2, DXSL+5, DXU~, DXU+2, DXU+5, DXS~, DXS+2
, DXS+5, 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+13*, PED+14*, PED+15
T PED+5*, PED+6*, PED+7, PED+8, PED+9*, PED+10, PED+11, PED+12, PED+13, PED+15
, PED+16, 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, PREG+1~, PROB+2*, PROB+9, MA+5*
, MA+12, MA+17*, MA+18, MA+20*, MA+21, MA+23*, MA+24, MA+26*, MA+27, 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+6, PED+9, PED+10, PED+11, PED+12, PED+15, PED+16, 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, PREG+11, PREG+12, PREG+15, PROB+4, PROB+5, PROB+6, PROB+7
, PROB+8, PROB+10, MA+7, MA+8, MA+9, MA+10, MA+11, DX+3, DX+6, DX+7
, DX+8, DX+9, DX+10, DX+12, DXSL+3, DXSL+6, DXSL+7, DXSL+8, DXSL+9, DXSL+10
, DXSL+12, DXU+3, DXU+6, DXU+7, DXU+8, DXU+9, DXU+10, DXU+12, DXS+3, DXS+6
, DXS+7, DXS+8, DXS+9, DXS+10, DXS+12, 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+3*, PED+5*, PED+6, PED+10, PED+11, PED+12, PED+15
, PED+16, 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, PREG+1~, PREG+7*, PREG+9*, PREG+11
, PREG+12, PREG+15, PROB+3*, PROB+4, PROB+5, PROB+6, PROB+7, PROB+8, PROB+10, MA+1*
, MA+6*, MA+7, MA+8, MA+9, MA+10, MA+11, 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+2*, PED+3, PREG+1~, PREG+6*, PREG+7, PROB+8*, PROB+9
, MA+1*, MA+11*, MA+12, 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All