Routine: BGP5D721

Package	Total	Call Graph
IHS GPRA Information System	12	$$ASAALLEG^BGP5CU1 $$V2^BGP5D1 $$BETAALG1^BGP5D72 ($$ACEALG,$$ACECONT,$$ACERX,$$STATALG,$$STATCON,$$STATRX)^BGP5D722 BETACONT^BGP5D724 $$CHD^BGP5D729 $$VAPI^BGP5D81 $$DAYS^BGP5D82 ($$CPTI,$$TRANI)^BGP5DU $$DATE^BGP5UTL $$LASTDX^BGP5UTL1 ($$ICD,GETMEDS)^BGP5UTL2
Kernel	2	($$FMADD,$$FMDIFF,$$FMTE)^XLFDT $$UP^XLFSTR
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$START1^APCLDF

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP5D731 BGP5D75

Name	Comments	DBIA/ICR reference
BETACONT(P,BDATE,EDATE,NMIBD,NMIED)	;EP - BETA BLOCKER CONTRAINDICATION
ASAPRIO	;now add in any before BEG DATE
ASAREF(P,BDATE,EDATE)	;EP
IAHRA	;EP
IHD(P,BDATE,EDATE)	;EP
ASA1
ASACONTR(P,BDATE,EDATE,BGPNDAYS)	;does patient have an aspirin allergy
BETAPRIO	;now add in any before BEG DATE
BETA(P,BDATE,EDATE,BGPNDAYS)	;EP
ASAC2	;now check for dx 459
WAR2
WAR1
FIRSTIHD(P,EDATE)	;EP
V2IHD(P,BDATE,EDATE)	;EP
BETA2
BETA1
WARPRIO	;now add in any before BEG DATE
ASAALLEG(P,EDATE)	;EP
ASA2
ASA(P,BDATE,EDATE,BGPNDAYS)	;EP
BETAREF(P,BDATE,EDATE)	;EP

Name	Field # of Occurrence
$$START1^APCLDF	FIRSTIHD+5, V2IHD+5
$$DOB^AUPNPAT	IAHRA+14, IAHRA+28, IAHRA+29, IAHRA+36, IHD+7, ASAC2+1, ASAALLEG+2
$$ASAALLEG^BGP5CU1	ASAALLEG+2
$$V2^BGP5D1	IHD+4
$$BETAALG1^BGP5D72	IAHRA+15
$$ACEALG^BGP5D722	IAHRA+29
$$ACECONT^BGP5D722	IAHRA+28
$$ACERX^BGP5D722	IAHRA+25
$$STATALG^BGP5D722	IAHRA+36
$$STATCON^BGP5D722	IAHRA+35
$$STATRX^BGP5D722	IAHRA+32
BETACONT^BGP5D724	BETACONT+1
$$CHD^BGP5D729	IAHRA+5
$$VAPI^BGP5D81	ASACONTR+14
$$DAYS^BGP5D82	BETA1+5, ASA1+5, WAR1+5
$$CPTI^BGP5DU	ASAC2+18
$$TRANI^BGP5DU	ASAC2+20
$$DATE^BGP5UTL	BETA1+8, BETA2+12, BETAREF+10, ASA1+8, ASA2+12, ASAREF+10, ASAREF+22, WAR1+8, WAR2+13, ASAC2+2 , ASAC2+14, ASAC2+19, ASAC2+21
$$LASTDX^BGP5UTL1	ASAC2+1
$$ICD^BGP5UTL2	V2IHD+16
GETMEDS^BGP5UTL2	BETA+4, BETAPRIO+2, ASA+3, ASAPRIO+2, ASACONTR+3, WARPRIO+2
$$CODEN^ICPTCOD	ASAC2+18, ASAC2+20
$$VAL^XBDIQ1	ASAC2+14
$$FMADD^XLFDT	BETAPRIO+2, ASAPRIO+2, WARPRIO+2
$$FMDIFF^XLFDT	FIRSTIHD+7, BETA2+6, ASA2+6, WAR2+7
$$FMTE^XLFDT	V2IHD+5
$$UP^XLFSTR	BETA+10, BETAPRIO+6, ASA+10, ASAPRIO+6, ASACONTR+8, WARPRIO+6

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	BETA+13, BETA+15, BETAPRIO+9, BETAPRIO+11, BETAREF+4, ASA+13, ASA+15, ASA+17, ASAPRIO+9, ASAPRIO+11 , ASAPRIO+13, ASAREF+4, ASAREF+16, ASACONTR+11, WARPRIO+9, ASAC2+8
^ATXAX("B"	V2IHD+7, BETA+6, BETA+7, BETAREF+2, ASA+5, ASA+6, ASA+7, ASAREF+2, ASAREF+14, ASACONTR+5 , ASACONTR+14, ASAC2+6
^AUPNPREF - [#9000022]	BETAREF+9, ASAREF+9, ASAREF+21, ASAC2+13, ASAC2+14
^AUPNPREF("AA"	BETAREF+3, BETAREF+5, BETAREF+8, ASAREF+3, ASAREF+5, ASAREF+8, ASAREF+15, ASAREF+17, ASAREF+20, ASAC2+7 , ASAC2+9, ASAC2+12
^AUPNVMED - [#9000010.14]	BETA+9, BETA+10, BETA+12, BETA1+1, BETA1+2, BETAPRIO+5, BETAPRIO+6, BETAPRIO+8, BETA2+1, BETA2+2 , BETA2+7, ASA+9, ASA+10, ASA+12, ASA1+1, ASA1+2, ASAPRIO+5, ASAPRIO+6, ASAPRIO+8, ASA2+1 , ASA2+2, ASA2+7, ASACONTR+7, ASACONTR+8, ASACONTR+10, WAR1+1, WAR1+2, WARPRIO+5, WARPRIO+6, WARPRIO+8 , WAR2+1, WAR2+2, WAR2+8
^AUPNVPOV - [#9000010.07]	V2IHD+16
^AUPNVPOV("AD"	V2IHD+16
^AUPNVSIT - [#9000010]	V2IHD+10, V2IHD+11, V2IHD+12, V2IHD+13, V2IHD+14, V2IHD+15, BETA1+4, BETA1+8, BETA2+4, BETA2+6 , BETA2+12, ASA1+4, ASA1+8, ASA2+4, ASA2+6, ASA2+12, WAR1+4, WAR1+8, WAR2+4, WAR2+7 , WAR2+13
^AUPNVSIT("AC"	V2IHD+2
^PSDRUG - [#50]	BETA+14, BETAPRIO+10, BETAREF+10, ASA+14, ASA+16, ASAPRIO+10, ASAPRIO+12, ASAREF+10, ASAREF+22, ASACONTR+12 , WARPRIO+10
^TMP($J	IAHRA+49!, IHD+5!, V2IHD+4!, V2IHD+6, V2IHD+9, V2IHD+20!

Name	Line Occurrences
$$ASA	IAHRA+18
$$ASAALLEG	IAHRA+22
$$ASACONTR	IAHRA+21
$$BETA	IAHRA+11
$$BETACONT	IAHRA+14
$$FIRSTIHD	IHD+6
$$V2IHD	IHD+7
ASA1	ASA+13, ASA+15
ASA2	ASAPRIO+9, ASAPRIO+11
ASAC2	ASACONTR+4, WARPRIO+3
BETA1	BETA+13
BETA2	BETAPRIO+9
WAR1	ASACONTR+11, ASACONTR+13, ASACONTR+14
WAR2	WARPRIO+9, WARPRIO+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	V2IHD+3~, V2IHD+16*
A	V2IHD+3~, V2IHD+5*
B	V2IHD+3~, V2IHD+5*
BDATE	IHD~, IHD+4, V2IHD~, V2IHD+5, BETA~, BETA+4, BETAPRIO+2, BETA2+6, BETAREF~, BETAREF+6 , BETACONT~, ASA~, ASA+3, ASAPRIO+2, ASA2+6, ASAREF~, ASAREF+6, ASAREF+18, ASACONTR~, ASACONTR+3 , WARPRIO+2, ASAC2+10, ASAC2+18, ASAC2+20
BGPACE	IAHRA+24!
BGPACE(	IAHRA+45, IAHRA+46
BGPACE("ADR"	IAHRA+29*
BGPACE("CONTRA"	IAHRA+28*
BGPACE("RX"	IAHRA+25*, IAHRA+26
>> BGPACTCL	IAHRA+4
>> BGPAGEB	IAHRA+3
BGPASA	IAHRA+17!
BGPASA(	IAHRA+43, IAHRA+44
BGPASA("ADR"	IAHRA+22*
BGPASA("CONTRA"	IAHRA+21*
BGPASA("RX"	IAHRA+18*, IAHRA+19
>> BGPBDATE	IAHRA+5, IAHRA+11, IAHRA+14, IAHRA+18, IAHRA+21, IAHRA+25, IAHRA+28, IAHRA+32, IAHRA+35, IAHRA+36
BGPBETA	IAHRA+10!
BGPBETA(	IAHRA+41, IAHRA+42
BGPBETA("ADR"	IAHRA+15*
BGPBETA("CONTRA"	IAHRA+14*
BGPBETA("RX"	IAHRA+11*, IAHRA+12
>> BGPD1	IAHRA+1, IAHRA+7
>> BGPD2	IAHRA+1, IAHRA+9
>> BGPD3	IAHRA+1, IAHRA+8, IAHRA+39
>> BGPD4	IAHRA+1*
>> BGPD5	IAHRA+1*
>> BGPD6	IAHRA+1*
>> BGPD7	IAHRA+1*
>> BGPD8	IAHRA+1*
>> BGPD9	IAHRA+1*
>> BGPDMD2	IAHRA+8, IAHRA+9
>> BGPEDATE	IAHRA+5, IAHRA+11, IAHRA+14, IAHRA+15, IAHRA+18, IAHRA+21, IAHRA+22, IAHRA+25, IAHRA+28, IAHRA+29 , IAHRA+32, IAHRA+35, IAHRA+36
BGPG	FIRSTIHD+2~, FIRSTIHD+3!, ASAC2+1!, ASAC2+2, ASAC2+5, ASAC2+14*, ASAC2+17, ASAALLEG+1!
BGPG(1	FIRSTIHD+6, FIRSTIHD+7
>> BGPIHD	IAHRA+5*, IAHRA+6
BGPMEDS1	BETA+1~, BETA+2!, BETA+4, BETA+5, BETAPRIO+1!, BETAPRIO+2, BETAPRIO+3, ASA+1!, ASA+3, ASA+4 , ASAPRIO+1!, ASAPRIO+2, ASAPRIO+3, ASACONTR+1!, ASACONTR+3, ASACONTR+4, WARPRIO+1!, WARPRIO+2, WARPRIO+3
BGPMEDS1(	BETA+8, BETAPRIO+4, ASA+8, ASAPRIO+4, ASACONTR+6, WARPRIO+4
>> BGPN1	IAHRA+1, IAHRA+16, IAHRA+38
>> BGPN10	IAHRA+1, IAHRA+26, IAHRA+28, IAHRA+29, IAHRA+30, IAHRA+45
>> BGPN11	IAHRA+1*, IAHRA+45
>> BGPN12	IAHRA+1, IAHRA+28, IAHRA+29*, IAHRA+30, IAHRA+45
>> BGPN13	IAHRA+1, IAHRA+37, IAHRA+38
>> BGPN14	IAHRA+1, IAHRA+33, IAHRA+35, IAHRA+36, IAHRA+37, IAHRA+47
>> BGPN15	IAHRA+1*, IAHRA+47
>> BGPN16	IAHRA+1, IAHRA+35, IAHRA+36*, IAHRA+37, IAHRA+47
>> BGPN17	IAHRA+1, IAHRA+38, IAHRA+40
>> BGPN2	IAHRA+1, IAHRA+12, IAHRA+14, IAHRA+15, IAHRA+16, IAHRA+41
>> BGPN3	IAHRA+1*, IAHRA+41
>> BGPN4	IAHRA+1, IAHRA+14, IAHRA+15*, IAHRA+16, IAHRA+41
>> BGPN5	IAHRA+1, IAHRA+23, IAHRA+38
>> BGPN6	IAHRA+1, IAHRA+19, IAHRA+21, IAHRA+22, IAHRA+23, IAHRA+43
>> BGPN7	IAHRA+1*, IAHRA+43
>> BGPN8	IAHRA+1, IAHRA+21, IAHRA+22*, IAHRA+23, IAHRA+43
>> BGPN9	IAHRA+1, IAHRA+30, IAHRA+38
BGPNDAYS	BETA~, BETA1+10, BETA2+13, ASA~, ASA1+10, ASA2+13, ASACONTR~, WAR1+9, WAR2+14
BGPSTAT	IAHRA+31!
BGPSTAT(	IAHRA+47, IAHRA+48
BGPSTAT("ADR"	IAHRA+36*
BGPSTAT("CONTRA"	IAHRA+35*
BGPSTAT("RX"	IAHRA+32*, IAHRA+33
>> BGPSTOP	IAHRA+3, IAHRA+4, IAHRA+6*
>> BGPVALUE	IAHRA+2, IAHRA+39, IAHRA+40, IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46, IAHRA+47 , IAHRA+48*
>> C	ASA+16, ASA+17, ASAPRIO+12, ASAPRIO+13
D	V2IHD+16, V2IHD+17, BETA+1~, BETA+12, BETA+13, BETA+14, BETAPRIO+8, BETAPRIO+9, BETAPRIO+10, BETA2+6 , BETA2+8, BETAREF+1~, BETAREF+5, BETAREF+6, BETAREF+8, ASA+12, ASA+13, ASA+14, ASA+16, ASAPRIO+8* , ASAPRIO+9, ASAPRIO+10, ASAPRIO+12, ASA2+6, ASA2+8, ASAREF+5, ASAREF+6, ASAREF+8, ASAREF+17, ASAREF+18 , ASAREF+20, ASACONTR+10, ASACONTR+11, ASACONTR+12, ASACONTR+14, WARPRIO+8, WARPRIO+9, WARPRIO+10, WAR2+7, WAR2+9 , ASAC2+9*, ASAC2+10, ASAC2+11, ASAC2+12
>> DFN	IAHRA+5, IAHRA+11, IAHRA+14, IAHRA+15, IAHRA+18, IAHRA+21, IAHRA+22, IAHRA+25, IAHRA+28, IAHRA+29 , IAHRA+32, IAHRA+35, IAHRA+36
E	FIRSTIHD+2~, FIRSTIHD+5, V2IHD+3~, V2IHD+5
EDATE	IHD~, IHD+4, IHD+6, IHD+7, FIRSTIHD~, FIRSTIHD+7, V2IHD~, V2IHD+5, BETA~, BETA+4 , BETA1+5, BETAREF~, BETAREF+7, BETACONT~, ASA~, ASA+3, ASA1+5, ASAREF~, ASAREF+7, ASAREF+19 , ASACONTR~, ASACONTR+3, WAR1+5, WAR2+7, ASAC2+1, ASAC2+11, ASAC2+18, ASAC2+20, ASAALLEG~, ASAALLEG+2
G	V2IHD+3~, V2IHD+9, V2IHD+18, V2IHD+21, BETA+1~, BETA+11, BETA+13, BETA+15, BETA+16, BETAPRIO+7 , BETAPRIO+9, BETAPRIO+11, BETAPRIO+12, BETAREF+1~, BETAREF+3, BETAREF+5, BETAREF+8, BETAREF+10, BETAREF+13, ASA+11* , ASA+13, ASA+15, ASA+17, ASA+18, ASAPRIO+7, ASAPRIO+9, ASAPRIO+11, ASAPRIO+13, ASAPRIO+14, ASAREF+3 , ASAREF+5, ASAREF+8, ASAREF+10, ASAREF+13, ASAREF+15, ASAREF+17, ASAREF+20, ASAREF+22, ASAREF+25, ASACONTR+9 , ASACONTR+11, ASACONTR+13, ASACONTR+14, ASACONTR+15, WARPRIO+7, WARPRIO+9, WARPRIO+11, WARPRIO+12
J	BETA+1~, BETA1+1, BETA2+1, BETA2+5, ASA1+1, ASA2+1, ASA2+5, WAR1+1, WAR2+1, WAR2+6
K	BETA+1~, BETA+3, BETA1+6, BETA1+10, BETA2+10, BETA2+13, BETA2+14, ASA+2, ASA1+6, ASA1+10 , ASA2+10, ASA2+13, ASA2+14, ASACONTR+2, WAR1+6, WAR1+9, WAR2+11*, WAR2+14
N	BETA+1~, BETA+14, BETA+15, BETAPRIO+10, BETAPRIO+11, BETAREF+1~, BETAREF+8, BETAREF+9, ASA+14, ASA+15 , ASAPRIO+10, ASAPRIO+11, ASAREF+8, ASAREF+9, ASAREF+20, ASAREF+21, ASACONTR+12, ASACONTR+13, WARPRIO+10, WARPRIO+11 , ASAC2+12, ASAC2+13, ASAC2+14
NMIBD	BETACONT~
NMIED	BETACONT~
P	IHD~, IHD+4, IHD+6, IHD+7, FIRSTIHD~, FIRSTIHD+1, FIRSTIHD+5, V2IHD~, V2IHD+1, V2IHD+2 , V2IHD+5, BETA~, BETA+4, BETAPRIO+2, BETAREF~, BETAREF+3, BETAREF+5, BETAREF+8, BETACONT~, ASA~ , ASA+3, ASAPRIO+2, ASAREF~, ASAREF+3, ASAREF+5, ASAREF+8, ASAREF+15, ASAREF+17, ASAREF+20, ASACONTR~ , ASACONTR+3, WARPRIO+2, ASAC2+1, ASAC2+7, ASAC2+9, ASAC2+12, ASAC2+18, ASAC2+20, ASAALLEG~, ASAALLEG+2
R	BETA+1~, BETA+3, BETA1+7, BETA1+8, BETA2+11, BETA2+12, BETA2+13, ASA+2, ASA1+7, ASA1+8 , ASA2+11, ASA2+12, ASA2+13, ASACONTR+2, WAR1+7, WAR1+8, WAR2+12, WAR2+13*
S	BETA+1~, BETA1+5, BETA1+6, BETA1+8, BETA2+7, BETA2+8, BETA2+9, BETA2+10, BETA2+12, ASA1+5* , ASA1+6, ASA1+8, ASA2+7, ASA2+8, ASA2+9, ASA2+10, ASA2+12, WAR1+5, WAR1+6, WAR1+8 , WAR2+8, WAR2+9, WAR2+10*, WAR2+11, WAR2+13
T	V2IHD+3~, V2IHD+7, V2IHD+8, V2IHD+16, BETA+1~, BETA+6, BETA+13, BETAPRIO+9, BETAREF+1~, BETAREF+2* , BETAREF+4, ASA+5, ASA+13, ASAPRIO+9, ASAREF+2, ASAREF+4, ASAREF+14, ASAREF+16, ASACONTR+5, ASACONTR+11 , WARPRIO+9, ASAC2+6*, ASAC2+8
T1	BETA+1~, BETA+7, BETA+15, BETAPRIO+11, ASA+6, ASA+15, ASAPRIO+11
>> T2	ASA+7*, ASA+17, ASAPRIO+13
U	IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46, IAHRA+47, IAHRA+48, FIRSTIHD+7, V2IHD+9 , V2IHD+11, V2IHD+12, V2IHD+13, V2IHD+14, V2IHD+15, V2IHD+16, BETA+8, BETA+10, BETA+12, BETA+14 , BETA1+1, BETA1+2, BETA1+8, BETA1+10, BETAPRIO+4, BETAPRIO+6, BETAPRIO+8, BETAPRIO+10, BETA2+1, BETA2+2 , BETA2+6, BETA2+7, BETA2+12, BETA2+13, BETA2+14, BETAREF+9, BETAREF+10, ASA+8, ASA+10, ASA+12 , ASA+14, ASA+16, ASA1+1, ASA1+2, ASA1+8, ASA1+10, ASAPRIO+4, ASAPRIO+6, ASAPRIO+8, ASAPRIO+10 , ASAPRIO+12, ASA2+1, ASA2+2, ASA2+6, ASA2+7, ASA2+12, ASA2+13, ASA2+14, ASAREF+9, ASAREF+10 , ASAREF+21, ASAREF+22, ASACONTR+6, ASACONTR+8, ASACONTR+10, ASACONTR+12, WAR1+1, WAR1+2, WAR1+8, WAR1+9 , WARPRIO+4, WARPRIO+6, WARPRIO+8, WARPRIO+10, WAR2+1, WAR2+2, WAR2+7, WAR2+8, WAR2+13, WAR2+14 , ASAC2+2, ASAC2+13, ASAC2+14, ASAC2+19, ASAC2+21, ASAALLEG+4
V	V2IHD+3~, V2IHD+9, V2IHD+10, V2IHD+11, V2IHD+12, V2IHD+13, V2IHD+14, V2IHD+15, V2IHD+16, BETA+1~ , BETA1+2, BETA1+3, BETA1+4, BETA1+5, BETA1+8, BETA2+2, BETA2+3, BETA2+4, BETA2+6, BETA2+12 , ASA1+2, ASA1+3, ASA1+4, ASA1+5, ASA1+8, ASA2+2, ASA2+3, ASA2+4, ASA2+6, ASA2+12 , WAR1+2, WAR1+3, WAR1+4, WAR1+5, WAR1+8, WAR2+2*, WAR2+3, WAR2+4, WAR2+7, WAR2+13
X	IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46, IAHRA+47, IAHRA+48, FIRSTIHD+2~, FIRSTIHD+5* , FIRSTIHD+7, FIRSTIHD+8, V2IHD+3~, V2IHD+9, BETA+1~, BETA+8, BETAPRIO+4, BETAREF+1~, BETAREF+3, BETAREF+4 , BETAREF+5, BETAREF+8, BETAREF+10, ASA+8, ASAPRIO+4, ASAREF+3, ASAREF+4, ASAREF+5, ASAREF+8, ASAREF+10 , ASAREF+15, ASAREF+16, ASAREF+17, ASAREF+20, ASAREF+22, ASACONTR+6, WARPRIO+4, ASAC2+7, ASAC2+8, ASAC2+9 , ASAC2+12, ASAC2+14, ASAC2+18, ASAC2+19, ASAC2+20, ASAC2+21, ASAALLEG+2, ASAALLEG+3, ASAALLEG+4, ASAALLEG+5
Y	FIRSTIHD+2~, FIRSTIHD+4, FIRSTIHD+5, V2IHD+3~, V2IHD+16, BETA+1~, BETA+8, BETA+9, BETA+10, BETA+12 , BETA1+1, BETA1+2, BETA1+5, BETAPRIO+4, BETAPRIO+5, BETAPRIO+6, BETAPRIO+8, BETA2+1, BETA2+2, BETA2+7 , BETAREF+1~, BETAREF+6, BETAREF+7, BETAREF+10, ASA+8, ASA+9, ASA+10, ASA+12, ASA1+1, ASA1+2 , ASA1+5, ASAPRIO+4, ASAPRIO+5, ASAPRIO+6, ASAPRIO+8, ASA2+1, ASA2+2, ASA2+7, ASAREF+6, ASAREF+7 , ASAREF+10, ASAREF+18, ASAREF+19, ASAREF+22, ASACONTR+6, ASACONTR+7, ASACONTR+8, ASACONTR+10, WAR1+1, WAR1+2 , WAR1+5, WARPRIO+4*, WARPRIO+5, WARPRIO+6, WARPRIO+8, WAR2+1, WAR2+2, WAR2+8

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP5D721

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: