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: BGP7D7

Package: IHS GPRA Information System

Routine: BGP7D7


Information

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

Source Information

Source file <BGP7D7.m>

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  

Caller Graph

Caller Graph Total: 24

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  

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

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+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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All