Routine: BGP7D721

Package	Total	Call Graph
IHS GPRA Information System	11	$$ASAALLEG^BGP7CU1 $$BETAALG1^BGP7D72 ($$ACEALG,$$ACECONT,$$ACERX,$$STATALG,$$STATCON,$$STATRX)^BGP7D722 BETACONT^BGP7D724 $$CHD^BGP7D729 $$VAPI^BGP7D81 $$DAYS^BGP7D82 ($$CPTI,$$TRANI)^BGP7DU $$DATE^BGP7UTL $$LASTDX^BGP7UTL1 GETMEDS^BGP7UTL2
Kernel	2	($$FMADD,$$FMDIFF)^XLFDT $$UP^XLFSTR
DRG Grouper	1	$$CODEN^ICPTCOD
IHS Patient	1	$$DOB^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS GPRA Information System	2	BGP7D731 BGP7D75

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
BETAREF(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
BETA2
BETA1
ASAALLEG(P,EDATE)	;EP
WARPRIO	;now add in any before BEG DATE
ASA(P,BDATE,EDATE,BGPNDAYS)	;EP
ASA2

Name	Field # of Occurrence
$$DOB^AUPNPAT	IAHRA+14, IAHRA+28, IAHRA+29, IAHRA+35, ASAC2+1, ASAALLEG+2
$$ASAALLEG^BGP7CU1	ASAALLEG+2
$$BETAALG1^BGP7D72	IAHRA+15
$$ACEALG^BGP7D722	IAHRA+29
$$ACECONT^BGP7D722	IAHRA+28
$$ACERX^BGP7D722	IAHRA+25
$$STATALG^BGP7D722	IAHRA+35
$$STATCON^BGP7D722	IAHRA+34
$$STATRX^BGP7D722	IAHRA+32
BETACONT^BGP7D724	BETACONT+1
$$CHD^BGP7D729	IAHRA+5
$$VAPI^BGP7D81	ASACONTR+14
$$DAYS^BGP7D82	BETA1+5, ASA1+5, WAR1+5
$$CPTI^BGP7DU	ASAC2+18
$$TRANI^BGP7DU	ASAC2+20
$$DATE^BGP7UTL	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^BGP7UTL1	ASAC2+1
GETMEDS^BGP7UTL2	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	BETA2+6, ASA2+6, WAR2+7
$$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"	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
^AUPNVSIT - [#9000010]	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
^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+48!

Name	Line Occurrences
$$ASA	IAHRA+18
$$ASAALLEG	IAHRA+22
$$ASACONTR	IAHRA+21
$$BETA	IAHRA+11
$$BETACONT	IAHRA+14
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
BDATE	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+44, IAHRA+45
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+42, IAHRA+43
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+34, IAHRA+35
BGPBETA	IAHRA+10!
BGPBETA(	IAHRA+40, IAHRA+41
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+38
>> 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+34, IAHRA+35
BGPG	ASAC2+1!, ASAC2+2, ASAC2+5, ASAC2+14*, ASAC2+17, ASAALLEG+1!
>> 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+37
>> BGPN10	IAHRA+1, IAHRA+26, IAHRA+28, IAHRA+29, IAHRA+30, IAHRA+44
>> BGPN11	IAHRA+1*, IAHRA+44
>> BGPN12	IAHRA+1, IAHRA+28, IAHRA+29*, IAHRA+30, IAHRA+44
>> BGPN13	IAHRA+1, IAHRA+36, IAHRA+37
>> BGPN14	IAHRA+1, IAHRA+33, IAHRA+34, IAHRA+35, IAHRA+36, IAHRA+46
>> BGPN15	IAHRA+1*, IAHRA+46
>> BGPN16	IAHRA+1, IAHRA+34, IAHRA+35*, IAHRA+36, IAHRA+46
>> BGPN17	IAHRA+1, IAHRA+37, IAHRA+39
>> BGPN2	IAHRA+1, IAHRA+12, IAHRA+14, IAHRA+15, IAHRA+16, IAHRA+40
>> BGPN3	IAHRA+1*, IAHRA+40
>> BGPN4	IAHRA+1, IAHRA+14, IAHRA+15*, IAHRA+16, IAHRA+40
>> BGPN5	IAHRA+1, IAHRA+23, IAHRA+37
>> BGPN6	IAHRA+1, IAHRA+19, IAHRA+21, IAHRA+22, IAHRA+23, IAHRA+42
>> BGPN7	IAHRA+1*, IAHRA+42
>> BGPN8	IAHRA+1, IAHRA+21, IAHRA+22*, IAHRA+23, IAHRA+42
>> BGPN9	IAHRA+1, IAHRA+30, IAHRA+37
BGPNDAYS	BETA~, BETA1+10, BETA2+13, ASA~, ASA1+10, ASA2+13, ASACONTR~, WAR1+9, WAR2+14
BGPSTAT	IAHRA+31!
BGPSTAT(	IAHRA+46, IAHRA+47
BGPSTAT("ADR"	IAHRA+35*
BGPSTAT("CONTRA"	IAHRA+34*
BGPSTAT("RX"	IAHRA+32*, IAHRA+33
>> BGPSTOP	IAHRA+3, IAHRA+4, IAHRA+6*
>> BGPVALUE	IAHRA+2, IAHRA+38, IAHRA+39, IAHRA+40, IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46 , IAHRA+47*
>> C	ASA+16, ASA+17, ASAPRIO+12, ASAPRIO+13
D	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+34, IAHRA+35
EDATE	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	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	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	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+40, IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46, IAHRA+47, 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	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+40, IAHRA+41, IAHRA+42, IAHRA+43, IAHRA+44, IAHRA+45, IAHRA+46, IAHRA+47, 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	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: BGP7D721

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: