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

Package: IHS GPRA Information System

Routine: BGP8D7


Information

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

Source Information

Source file <BGP8D7.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS GPRA Information System 7 $$TOBHF^BGP8D712  PREGSCRN^BGP8D713  PREG^BGP8D714  ($$CPT,$$IPLSNOID)^BGP8DU  $$DATE^BGP8UTL  $$LASTDX^BGP8UTL1  ($$ICD,$$ICDDX)^BGP8UTL2  
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: 16

Package Total Caller Graph
IHS GPRA Information System 16 BGP8C12  BGP8C2X  BGP8CU2  BGP8D21  BGP8D23  BGP8D3B  BGP8D41  BGP8D71  
BGP8D712  BGP8D713  BGP8D76  BGP8D8  BGP8D88  BGP8D9  BGP8DPA2  BGP8EL3  

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^BGP8D712 TA+1
PREGSCRN^BGP8D713 PREGSCRN+1
PREG^BGP8D714 PREG+1
$$CPT^BGP8DU CPTSM+2
$$IPLSNOID^BGP8DU DX+15, DXSL+15, DXU+15, DXS+15
$$DATE^BGP8UTL TA+24, TA+25, TA+26, TA+28, TA+29, TA+33, TA+35, TA+39, TA+40, TA+49
, TA+50, TA+51, TA+52, TOBACCO0+7, LASTHF+13
$$LASTDX^BGP8UTL1 DX+2, DXSL+2, DXU+2, DXS+2
$$ICD^BGP8UTL2 PED+17, DX+11, DXSL+11, DXU+11, DXS+11
$$ICDDX^BGP8UTL2 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
^BGPSNOMR - [#90560.21] PED+34
^BGPSNOMR("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+52, TAEND+4!
BGP20M I18+12*, TAEND+4!
>> BGP365 I023+4
>> BGPACTCL TA+53, 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+53, 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+53, 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+47, TAEND+3, I023+1!, I023+3*, I023+5*
>> BGPN10 I18+1*
>> BGPN11 I18+1*, TA+45*
>> BGPN12 I18+1*
>> BGPN13 I18+1*
>> BGPN14 I18+1*
>> BGPN15 I18+1*
BGPN2 I18+1*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+26*, TA+28*, TA+29*, I023+1!
, I023+3*
BGPN3 I18+1*, TA+32*, TA+33*, TA+35*, I023+1!
BGPN4 I18+1*, TA+38*, TA+39*, TA+40*, I023+1!
>> BGPN5 I18+1*, TA+42*
>> BGPN6 I18+1*
>> BGPN7 I18+1*
>> BGPN8 I18+1*
>> BGPN9 I18+1*
>> BGPRTYPE TAEND+3
>> BGPSCPT TA+8*, TA+14, TA+27, TA+28, TA+29, TA+34, TA+35, TA+39, TA+50
BGPSDX TA+2*, TA+10, TA+49, TAEND+4!
>> BGPSEX I18+10
>> BGPSLDX TA+5*, TA+11, TA+26, TA+40
>> BGPSMDX TA+4*, TA+16, TA+25, TA+33
>> BGPSTOP I18+2*, I18+11*, I023+2*
BGPTOB TA+1*, TA+9, TA+19, TA+21, TA+22, TA+23, TA+42, TA+48, 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+24
>> BGPVAL TA+17*, TA+21*, TA+22*, TA+23*, TA+24*, TA+25*, TA+26*, TA+28*, TA+29*, TA+32*
, TA+33*, TA+35*, TA+38*, TA+39*, TA+40*, TA+42*, TA+46*, TA+47, TA+48*, TA+49*
, TA+50*, TA+51*, TA+52*, TA+54, TAEND+2
BGPVALUE TA+17*, TA+54*, TAEND+2*, I023+1!, I023+4*, I023+5, I023+6*
BGPXPHD I18+1*, TA+6*, TA+12, TA+51, 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+23, TA+32, TA+38, TA+42, TA+45, TA+46, 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+29, TA+32
, TA+33, TA+34, TA+35, TA+38, TA+39, TA+40, TA+42, TA+45, TA+46, TA+48
, TA+49, TA+50, TA+51, TA+52, 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+53*, TA+54, 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