Routine: BGP6D75

Package	Total	Call Graph
IHS GPRA Information System	9	$$PREG^BGP6D7 $$BETAALG1^BGP6D72 ($$ASAALLEG,$$BETACONT)^BGP6D721 ($$ACEALG,$$STATALG,$$STATCON)^BGP6D722 $$VAPI^BGP6D81 ($$CPTI,$$TRANI)^BGP6DU $$DATE^BGP6UTL $$LASTDX^BGP6UTL1 ($$ICD,GETMEDS)^BGP6UTL2
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

Entry Points

Name	Comments	DBIA/ICR reference
RX71
RX7(P,BDATE,EDATE,BGPDD,BGPTD1,BGPTD2,BGPTD3,BGPTN1,BGPTN2,BGPTN3,BGPTC1,BGPTC2,BGPTC3,BGPDN1,BGPDN2)	;
ASACONTR(P,BDATE,EDATE,BGPADM,BGPDD)	;does patient have an aspirin allergy
READM(P,D,PV)	;EP
EXPIRED(H)	;
ACECONT(P,BDATE,EDATE,NMIB,NMIE,RPBD)	;EP does patient have an ACEI Contra
DSCH(H)	;
WAR71
AMA(H)	;EP
HEM	;now check for dx 459
AMIH(P,BDATE,EDATE)	;
IAMT	;EP
TRANS(H)	;

External References

Name	Field # of Occurrence
$$START1^APCLDF	AMIH+3, ACECONT+3, ACECONT+37, ACECONT+41
$$DOB^AUPNPAT	IAMT+17, IAMT+34, IAMT+42, HEM+1
$$PREG^BGP6D7	ACECONT+35
$$BETAALG1^BGP6D72	IAMT+18
$$ASAALLEG^BGP6D721	IAMT+27
$$BETACONT^BGP6D721	IAMT+17
$$ACEALG^BGP6D722	IAMT+35
$$STATALG^BGP6D722	IAMT+42
$$STATCON^BGP6D722	IAMT+41
$$VAPI^BGP6D81	ASACONTR+14
$$CPTI^BGP6DU	HEM+19
$$TRANI^BGP6DU	HEM+21
$$DATE^BGP6UTL	RX71+9, WAR71+10, WAR71+12, HEM+2, HEM+14, HEM+20, HEM+22, ACECONT+4, ACECONT+16, ACECONT+30 , ACECONT+38, ACECONT+59
$$LASTDX^BGP6UTL1	HEM+1
$$ICD^BGP6UTL2	AMIH+22
GETMEDS^BGP6UTL2	RX7+4, ASACONTR+3
$$CODEN^ICPTCOD	HEM+19, HEM+21
$$VAL^XBDIQ1	AMIH+24, HEM+14, ACECONT+16, ACECONT+30
$$FMADD^XLFDT	IAMT+6, IAMT+14, IAMT+17, IAMT+23, IAMT+26, IAMT+31, IAMT+34, IAMT+38, IAMT+41, READM+2 , ASACONTR+3
$$FMDIFF^XLFDT	RX71+8, WAR71+11
$$FMTE^XLFDT	AMIH+3, ACECONT+3, ACECONT+37, ACECONT+41
$$UP^XLFSTR	AMIH+25, RX7+8, ASACONTR+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	RX7+11, RX7+12, RX7+13, RX7+15, RX7+16, RX7+17, RX7+19, RX7+20, RX7+21, ASACONTR+11 , HEM+8, ACECONT+10, ACECONT+24
^ATXAX("B"	IAMT+14, IAMT+22, IAMT+23, IAMT+30, IAMT+31, IAMT+38, AMIH+5, ASACONTR+5, ASACONTR+14, HEM+6 , ACECONT+8, ACECONT+22
^AUPNPREF - [#9000022]	HEM+13, HEM+14, ACECONT+15, ACECONT+16, ACECONT+29, ACECONT+30
^AUPNPREF("AA"	HEM+7, HEM+9, HEM+12, ACECONT+9, ACECONT+11, ACECONT+14, ACECONT+23, ACECONT+25, ACECONT+28
^AUPNVINP - [#9000010.02]	AMIH+16, AMIH+42, AMA+1, EXPIRED+1, DSCH+1, TRANS+1
^AUPNVINP("AD"	AMIH+13, AMIH+41
^AUPNVMED - [#9000010.14]	RX7+7, RX7+8, RX7+10, RX71+1, RX71+2, RX71+7, ASACONTR+7, ASACONTR+8, ASACONTR+10, WAR71+1 , WAR71+2, WAR71+7
^AUPNVPED - [#9000010.16]	ACECONT+44
^AUPNVPOV - [#9000010.07]	AMIH+21, AMIH+22, AMIH+23
^AUPNVPOV("AD"	AMIH+21
^AUPNVSIT - [#9000010]	AMIH+7, AMIH+8, AMIH+9, AMIH+10, AMIH+39, READM+6, RX71+4, RX71+8, RX71+9, WAR71+4 , WAR71+8, WAR71+10, WAR71+11, WAR71+12
^AUPNVSIT("AAH"	READM+3, READM+4
^AUTTEDT - [#9999999.09]	ACECONT+46, ACECONT+47
^BGPSNOMM - [#90556.21]	ACECONT+58
^BGPSNOMM("B"	ACECONT+42
^DG(405.1 - [#405.1]	AMA+3, EXPIRED+3, TRANS+3
^DPT - [#2]	IAMT+11, IAMT+12
^PSDRUG - [#50]	RX7+14, RX7+18, RX7+22, RX71+9, ASACONTR+12, WAR71+10, WAR71+12
^TMP($J	IAMT+56!, AMIH+2!, AMIH+4, AMIH+6

Label References

Name	Line Occurrences
$$ACECONT	IAMT+34
$$AMA	AMIH+17
$$AMIH	IAMT+6
$$ASACONTR	IAMT+26
$$EXPIRED	AMIH+19
$$READM	IAMT+8
$$RX7	IAMT+14, IAMT+23, IAMT+31, IAMT+38
$$TRANS	AMIH+18
HEM	ASACONTR+4
RX71	RX7+11, RX7+12, RX7+13, RX7+15, RX7+16, RX7+17, RX7+19, RX7+20, RX7+21, RX7+23 , RX7+24
WAR71	ASACONTR+11, ASACONTR+13, ASACONTR+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AMIH+22, ACECONT+43, ACECONT+48, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55 , ACECONT+56, ACECONT+57, ACECONT+58*, ACECONT+59
>> A	AMIH+3*
>> B	AMIH+3, AMIH+13, AMIH+14, AMIH+20*
BD	ACECONT+1~
BDATE	AMIH~, AMIH+3, RX7~, RX7+4, ASACONTR~, ACECONT~, ACECONT+3
BGPACE	IAMT+29!, IAMT+55!
BGPACE(	IAMT+51, IAMT+52
BGPACE("ADR"	IAMT+35*
BGPACE("CONTRA"	IAMT+34*
BGPACE("RX"	IAMT+31*, IAMT+32
>> BGPACTCL	IAMT+5
BGPADM	ASACONTR~, ASACONTR+3, HEM+10, HEM+19, HEM+21
>> BGPAGEB	IAMT+4
>> BGPAMI	IAMT+6*, IAMT+7, IAMT+8, IAMT+9, IAMT+14, IAMT+17, IAMT+23, IAMT+26, IAMT+31, IAMT+34 , IAMT+38, IAMT+41
BGPASA	IAMT+21!, IAMT+55!
BGPASA(	IAMT+49, IAMT+50
BGPASA("ADR"	IAMT+27*
BGPASA("CONTRA"	IAMT+26*
BGPASA("RX"	IAMT+23*, IAMT+24
>> BGPBDATE	IAMT+6, IAMT+26, IAMT+34, IAMT+35, IAMT+41, IAMT+42
BGPBETA	IAMT+3!, IAMT+13!, IAMT+55!
BGPBETA(	IAMT+47, IAMT+48
BGPBETA("ADR"	IAMT+18*
BGPBETA("CONTRA"	IAMT+17*
BGPBETA("RX"	IAMT+14*, IAMT+15
BGPC	ACECONT+1~
>> BGPD1	IAMT+1, IAMT+10
>> BGPD2	IAMT+1, IAMT+11
>> BGPD3	IAMT+1, IAMT+12
>> BGPD4	IAMT+1*
>> BGPD5	IAMT+1*
>> BGPD6	IAMT+1*
>> BGPD7	IAMT+1*
>> BGPD8	IAMT+1*
>> BGPD9	IAMT+1*
BGPDD	RX7~, ASACONTR~, ASACONTR+3, WAR71+6, WAR71+10, WAR71+11, HEM+11, HEM+19, HEM+21
BGPDN1	RX7~, RX7+23
BGPDN2	RX7~, RX7+24
>> BGPEDATE	IAMT+17, IAMT+18, IAMT+26, IAMT+27, IAMT+34, IAMT+35, IAMT+41, IAMT+42
BGPG	RX7+3, RX7+6, RX71+9, RX71+11, ASACONTR+2, ASACONTR+6, WAR71+10, WAR71+12, WAR71+14, HEM+1!* , HEM+2, HEM+5, HEM+14, HEM+17, ACECONT+1~, ACECONT+3!, ACECONT+7, ACECONT+16, ACECONT+19, ACECONT+21* , ACECONT+30*, ACECONT+33, ACECONT+37!, ACECONT+39!
BGPG(	ACECONT+43, ACECONT+44, ACECONT+48, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55 , ACECONT+56, ACECONT+57, ACECONT+58
BGPG(1	ACECONT+4, ACECONT+38
BGPIHD	IAMT+55!
BGPMEDS1	IAMT+55!, RX7+2!, RX7+4, RX7+5, ASACONTR+1!, ASACONTR+3, ASACONTR+4
BGPMEDS1(	RX7+6, ASACONTR+6
>> BGPN1	IAMT+2, IAMT+19, IAMT+44
>> BGPN10	IAMT+2, IAMT+32, IAMT+34, IAMT+35, IAMT+36, IAMT+51
>> BGPN11	IAMT+2*, IAMT+51
>> BGPN12	IAMT+2, IAMT+34, IAMT+35*, IAMT+36, IAMT+51
>> BGPN13	IAMT+2, IAMT+43, IAMT+44
>> BGPN14	IAMT+2, IAMT+39, IAMT+41, IAMT+42, IAMT+43, IAMT+53
>> BGPN15	IAMT+2*, IAMT+53
>> BGPN16	IAMT+2, IAMT+41, IAMT+42*, IAMT+43, IAMT+53
>> BGPN17	IAMT+2, IAMT+44, IAMT+46
>> BGPN2	IAMT+2, IAMT+15, IAMT+17, IAMT+18, IAMT+19, IAMT+47
>> BGPN3	IAMT+2, IAMT+15, IAMT+47
>> BGPN4	IAMT+2, IAMT+15, IAMT+17, IAMT+18, IAMT+19, IAMT+47
>> BGPN5	IAMT+2, IAMT+28, IAMT+44
>> BGPN6	IAMT+2, IAMT+24, IAMT+26, IAMT+27, IAMT+28, IAMT+49
>> BGPN7	IAMT+2*, IAMT+49
>> BGPN8	IAMT+2, IAMT+26, IAMT+27*, IAMT+28, IAMT+49
>> BGPN9	IAMT+2, IAMT+36, IAMT+44
BGPSTAT	IAMT+37!, IAMT+55!
BGPSTAT(	IAMT+53, IAMT+54
BGPSTAT("ADR"	IAMT+42*
BGPSTAT("CONTRA"	IAMT+41*
BGPSTAT("RX"	IAMT+38*, IAMT+39
>> BGPSTOP	IAMT+4, IAMT+5, IAMT+7, IAMT+8
BGPTC1	RX7~, RX7+19
BGPTC2	RX7~, RX7+20
BGPTC3	RX7~, RX7+21
BGPTD1	RX7~, RX7+11
BGPTD2	RX7~, RX7+12
BGPTD3	RX7~, RX7+13
BGPTN1	RX7~, RX7+15
BGPTN2	RX7~, RX7+16
BGPTN3	RX7~, RX7+17
>> BGPV	IAMT+9*
>> BGPVALUE	IAMT+3, IAMT+45, IAMT+46, IAMT+47, IAMT+48, IAMT+49, IAMT+50, IAMT+51, IAMT+52, IAMT+53 , IAMT+54*
>> BGPX	AMIH+6*
>> C	IAMT+22, IAMT+23, RX7+18, RX7+19, RX7+20, RX7+21
D	AMIH+6, AMIH+21, AMIH+38, AMIH+39, AMIH+41, READM~, READM+2, READM+7, RX7+10, RX7+11 , RX7+12, RX7+13, RX7+14, RX7+18, RX7+22, RX71+9, ASACONTR+10, ASACONTR+11, ASACONTR+12, ASACONTR+14 , WAR71+10, WAR71+12, HEM+9, HEM+12, ACECONT+11, ACECONT+12, ACECONT+14, ACECONT+25, ACECONT+26, ACECONT+28 , ACECONT+43
>> D1	READM+2*
>> DFN	IAMT+6, IAMT+8, IAMT+11, IAMT+12, IAMT+14, IAMT+17, IAMT+18, IAMT+23, IAMT+26, IAMT+27 , IAMT+31, IAMT+34, IAMT+35, IAMT+38, IAMT+41, IAMT+42
E	AMIH+3, AMIH+6, READM+1~, READM+6, READM+7, READM+8, WAR71+8, WAR71+10, ACECONT+1~, ACECONT+3* , ACECONT+37, ACECONT+41
ED	READM+1~, READM+2*, READM+8, ACECONT+1~
EDATE	AMIH~, AMIH+3, AMIH+16, RX7~, RX7+4, RX71+6, RX71+8, ASACONTR~, HEM+1, ACECONT~ , ACECONT+3, ACECONT+35, ACECONT+37, ACECONT+41
G	AMIH+2!, AMIH+6, AMIH+39, AMIH+40, READM+1~, READM+2, READM+9, READM+10, RX7+9, RX7+11 , RX7+12, RX7+13, RX7+15, RX7+16, RX7+17, RX7+19, RX7+20, RX7+21, RX7+23, RX7+24 , RX7+25, ASACONTR+9, ASACONTR+11, ASACONTR+13, ASACONTR+14, ASACONTR+15
G(	AMIH+39*, AMIH+41
G(0	AMIH+41, AMIH+42
H	AMIH+12, AMIH+13, AMIH+15, AMIH+16, AMIH+17, AMIH+18, AMIH+19, AMIH+41*, AMIH+42, AMA~ , AMA+1, EXPIRED~, EXPIRED+1, DSCH~, DSCH+1, TRANS~, TRANS+1
>> J	RX71+1, RX71+6, WAR71+1, WAR71+6
>> K	RX7+3, ASACONTR+2
>> M	AMIH+6*
N	AMIH+24, AMIH+25, AMIH+26, AMIH+27, AMIH+28, AMIH+29, AMIH+30, AMIH+31, AMIH+32, AMIH+33 , AMIH+34, AMIH+35, AMIH+36, AMIH+37, RX7+14, RX7+15, RX7+16, RX7+17, RX7+22, RX7+23 , RX7+24, ASACONTR+12, ASACONTR+13, HEM+12, HEM+13, HEM+14, ACECONT+1~, ACECONT+14, ACECONT+15, ACECONT+16 , ACECONT+28, ACECONT+29, ACECONT+30
NMIB	ACECONT~, ACECONT+12, ACECONT+26, ACECONT+35, ACECONT+37, ACECONT+41
NMIE	ACECONT~, ACECONT+13, ACECONT+27
P	AMIH~, AMIH+3, READM~, READM+3, READM+4, RX7~, RX7+4, ASACONTR~, ASACONTR+3, HEM+1 , HEM+7, HEM+9, HEM+12, HEM+19, HEM+21, ACECONT~, ACECONT+3, ACECONT+9, ACECONT+11, ACECONT+14 , ACECONT+23, ACECONT+25, ACECONT+28, ACECONT+35, ACECONT+37, ACECONT+41
PV	READM~, READM+5
>> R	RX7+3, ASACONTR+2
RPBD	ACECONT~, ACECONT+2*, ACECONT+35, ACECONT+37, ACECONT+41
>> S	RX71+7, RX71+9, WAR71+7, WAR71+12
SN	ACECONT+1~, ACECONT+42*, ACECONT+58
>> T	IAMT+30, IAMT+31, AMIH+5, AMIH+22, ASACONTR+5, ASACONTR+11, HEM+6, HEM+8, ACECONT+8, ACECONT+10 , ACECONT+22, ACECONT+24, ACECONT+43, ACECONT+44, ACECONT+45, ACECONT+46, ACECONT+47*, ACECONT+48, ACECONT+49, ACECONT+50 , ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55, ACECONT+56, ACECONT+57, ACECONT+58
U	IAMT+7, IAMT+8, IAMT+9, IAMT+11, IAMT+12, IAMT+14, IAMT+17, IAMT+23, IAMT+26, IAMT+31 , IAMT+34, IAMT+38, IAMT+41, IAMT+47, IAMT+48, IAMT+49, IAMT+50, IAMT+51, IAMT+52, IAMT+53 , IAMT+54, AMIH+6, AMIH+8, AMIH+9, AMIH+10, AMIH+16, AMIH+22, AMIH+23, AMIH+39, AMIH+42 , READM+6, AMA+1, AMA+3, EXPIRED+1, EXPIRED+3, DSCH+1, TRANS+1, TRANS+3, RX7+6, RX7+8 , RX7+10, RX7+14, RX7+18, RX7+22, RX71+1, RX71+2, RX71+7, RX71+8, RX71+9, ASACONTR+6 , ASACONTR+8, ASACONTR+10, ASACONTR+12, WAR71+1, WAR71+2, WAR71+7, WAR71+8, WAR71+10, WAR71+11, WAR71+12 , WAR71+14, HEM+2, HEM+13, HEM+14, HEM+20, HEM+22, ACECONT+4, ACECONT+15, ACECONT+16, ACECONT+29 , ACECONT+30, ACECONT+35, ACECONT+38, ACECONT+44, ACECONT+47, ACECONT+48, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52 , ACECONT+53, ACECONT+54, ACECONT+55, ACECONT+56, ACECONT+57, ACECONT+58, ACECONT+59
V	AMIH+6, AMIH+7, AMIH+8, AMIH+9, AMIH+10, AMIH+13, AMIH+21, AMIH+39, AMIH+41, AMIH+42 , READM+1~, READM+3, READM+4, READM+5, READM+6, RX71+2, RX71+3, RX71+4, RX71+8, RX71+9 , WAR71+2, WAR71+3, WAR71+4, WAR71+8, WAR71+10, WAR71+11, WAR71+12
X	IAMT+47, IAMT+48, IAMT+49, IAMT+50, IAMT+51, IAMT+52, IAMT+53, IAMT+54, READM+1~, READM+3* , READM+4, AMA+1, AMA+2, AMA+3, AMA+4, EXPIRED+1, EXPIRED+2, EXPIRED+3, EXPIRED+4, TRANS+1* , TRANS+2, TRANS+3, TRANS+4, RX7+6, ASACONTR+6, HEM+7, HEM+8, HEM+9, HEM+12, HEM+19* , HEM+20, HEM+21, HEM+22, ACECONT+1~, ACECONT+3, ACECONT+9, ACECONT+10, ACECONT+11, ACECONT+14, ACECONT+23 , ACECONT+24, ACECONT+25, ACECONT+28, ACECONT+35, ACECONT+37, ACECONT+41, ACECONT+43, ACECONT+44, ACECONT+48, ACECONT+49 , ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55, ACECONT+56, ACECONT+57, ACECONT+58
Y	AMIH+21, AMIH+22, AMIH+23, AMIH+24, RX7+6, RX7+7, RX7+8, RX7+10, RX71+1, RX71+2 , RX71+7, ASACONTR+6, ASACONTR+7, ASACONTR+8, ASACONTR+10, WAR71+1, WAR71+2, WAR71+7, HEM+10, HEM+11 , ACECONT+1~, ACECONT+3, ACECONT+12, ACECONT+13, ACECONT+26, ACECONT+27, ACECONT+37, ACECONT+40, ACECONT+41
Z	RX71+8, RX71+9, WAR71+11, WAR71+12, ACECONT+1~

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP6D75

Information

Source Information

Call Graph

Call Graph Total: 15

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend: