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 |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BGP1D75

Package: IHS GPRA Information System

Routine: BGP1D75


Information

BGP1D75 ; IHS/CMI/LAB - measure 31 ;

Source Information

Source file <BGP1D75.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
IHS GPRA Information System 8 $$PREG^BGP1D7  $$BETAALG1^BGP1D72  ($$ASAALLEG,$$ASAREF,$$BETACONT,$$BETAREF)^BGP1D721  ($$ACEALG,$$ACEREF,$$STATALG,$$STATCON,$$STATREF)^BGP1D722  ($$CPTI,$$TRANI)^BGP1DU  $$DATE^BGP1UTL  $$LASTDXI^BGP1UTL1  GETMEDS^BGP1UTL2  
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  
Taxonomy 1 $$ICD^ATXCHK  

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
AMIH(P,BDATE,EDATE) ;
IAMT ;EP
TRANS(H) ;

External References

Name Field # of Occurrence
$$START1^APCLDF AMIH+3, ACECONT+3, ACECONT+37, ACECONT+41
$$ICD^ATXCHK AMIH+22
$$DOB^AUPNPAT IAMT+17, IAMT+33, IAMT+41, WAR71+16
$$PREG^BGP1D7 ACECONT+35
$$BETAALG1^BGP1D72 IAMT+18
$$ASAALLEG^BGP1D721 IAMT+26
$$ASAREF^BGP1D721 IAMT+24
$$BETACONT^BGP1D721 IAMT+17
$$BETAREF^BGP1D721 IAMT+16
$$ACEALG^BGP1D722 IAMT+34
$$ACEREF^BGP1D722 IAMT+32
$$STATALG^BGP1D722 IAMT+41
$$STATCON^BGP1D722 IAMT+40
$$STATREF^BGP1D722 IAMT+39
$$CPTI^BGP1DU WAR71+34
$$TRANI^BGP1DU WAR71+36
$$DATE^BGP1UTL RX71+9, WAR71+10, WAR71+12, WAR71+17, WAR71+29, WAR71+35, WAR71+37, ACECONT+4, ACECONT+16, ACECONT+30
, ACECONT+38, ACECONT+57
$$LASTDXI^BGP1UTL1 WAR71+16
GETMEDS^BGP1UTL2 RX7+4, ASACONTR+3
$$CODEN^ICPTCOD WAR71+34, WAR71+36
$$VAL^XBDIQ1 AMIH+24, WAR71+29, ACECONT+16, ACECONT+30
$$FMADD^XLFDT IAMT+6, IAMT+14, IAMT+16, IAMT+22, IAMT+24, IAMT+25, IAMT+30, IAMT+32, IAMT+33, IAMT+37
, IAMT+39, IAMT+40, 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
, WAR71+23, ACECONT+10, ACECONT+24
^ATXAX("B" IAMT+14, IAMT+21, IAMT+22, IAMT+29, IAMT+30, IAMT+37, AMIH+5, ASACONTR+5, WAR71+21, ACECONT+8
, ACECONT+22
^AUPNPREF - [#9000022] WAR71+28, WAR71+29, ACECONT+15, ACECONT+16, ACECONT+29, ACECONT+30
^AUPNPREF("AA" WAR71+22, WAR71+24, WAR71+27, 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+43
^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+45, ACECONT+46
^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+55!, AMIH+2!, AMIH+4, AMIH+6

Label References

Name Line Occurrences
$$ACECONT IAMT+33
$$AMA AMIH+17
$$AMIH IAMT+6
$$ASACONTR IAMT+25
$$EXPIRED AMIH+19
$$READM IAMT+8
$$RX7 IAMT+14, IAMT+22, IAMT+30, IAMT+37
$$TRANS AMIH+18
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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % AMIH+22*, ACECONT+42*, ACECONT+47*, ACECONT+48*, ACECONT+49*, ACECONT+50*, ACECONT+51*, ACECONT+52*, ACECONT+53*, ACECONT+54*
, ACECONT+55*, ACECONT+56*, ACECONT+57
>> 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+28!, IAMT+54!
BGPACE( IAMT+50, IAMT+51
BGPACE("ADR" IAMT+34*
BGPACE("CONTRA" IAMT+33*
BGPACE("REF" IAMT+32*
BGPACE("RX" IAMT+30*, IAMT+31
>> BGPACTCL IAMT+5
BGPADM ASACONTR~, ASACONTR+3, WAR71+25, WAR71+34, WAR71+36
>> BGPAGEB IAMT+4
>> BGPAMI IAMT+6*, IAMT+7, IAMT+8, IAMT+9, IAMT+14, IAMT+16, IAMT+17, IAMT+22, IAMT+24, IAMT+25
, IAMT+30, IAMT+32, IAMT+33, IAMT+37, IAMT+39, IAMT+40
BGPASA IAMT+54!
BGPASA( IAMT+48, IAMT+49
BGPASA("ADR" IAMT+26*
BGPASA("CONTRA" IAMT+25*
BGPASA("REF" IAMT+24*
BGPASA("RX" IAMT+22*, IAMT+23
>> BGPBDATE IAMT+6, IAMT+25, IAMT+33, IAMT+34, IAMT+40, IAMT+41
BGPBETA IAMT+3!, IAMT+13!, IAMT+54!
BGPBETA( IAMT+46, IAMT+47
BGPBETA("ADR" IAMT+18*
BGPBETA("CONTRA" IAMT+17*
BGPBETA("REF" IAMT+16*
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, WAR71+26, WAR71+34, WAR71+36
BGPDN1 RX7~, RX7+23
BGPDN2 RX7~, RX7+24
>> BGPEDATE IAMT+17, IAMT+18, IAMT+25, IAMT+26, IAMT+33, IAMT+34, IAMT+40, IAMT+41
BGPG RX7+3*, RX7+6*, RX71+9*, RX71+11, ASACONTR+2*, ASACONTR+6, WAR71+10*, WAR71+12*, WAR71+14, WAR71+16!*
, WAR71+17, WAR71+20*, WAR71+29*, WAR71+32, ACECONT+1~, ACECONT+3!, ACECONT+7*, ACECONT+16*, ACECONT+19, ACECONT+21*
, ACECONT+30*, ACECONT+33, ACECONT+37!, ACECONT+39!
BGPG( ACECONT+42, ACECONT+43, ACECONT+47, ACECONT+48, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54
, ACECONT+55, ACECONT+56
BGPG(1 ACECONT+4, ACECONT+38
BGPIHD IAMT+54!
BGPMEDS1 IAMT+54!, RX7+2!, RX7+4, RX7+5, ASACONTR+1!, ASACONTR+3, ASACONTR+4
BGPMEDS1( RX7+6, ASACONTR+6
>> BGPN1 IAMT+2*, IAMT+19*, IAMT+43
>> BGPN10 IAMT+2*, IAMT+31*, IAMT+32, IAMT+33, IAMT+34, IAMT+35, IAMT+50
>> BGPN11 IAMT+2*, IAMT+32*, IAMT+50
>> BGPN12 IAMT+2*, IAMT+33*, IAMT+34*, IAMT+35, IAMT+50
>> BGPN13 IAMT+2*, IAMT+42*, IAMT+43
>> BGPN14 IAMT+2*, IAMT+38*, IAMT+39, IAMT+40, IAMT+41, IAMT+42, IAMT+52
>> BGPN15 IAMT+2*, IAMT+39*, IAMT+52
>> BGPN16 IAMT+2*, IAMT+40*, IAMT+41*, IAMT+42, IAMT+52
>> BGPN17 IAMT+2*, IAMT+43*, IAMT+45
>> BGPN2 IAMT+2*, IAMT+15*, IAMT+16, IAMT+17, IAMT+18, IAMT+19, IAMT+46
>> BGPN3 IAMT+2*, IAMT+15*, IAMT+16*, IAMT+46
>> BGPN4 IAMT+2*, IAMT+15*, IAMT+17*, IAMT+18*, IAMT+19, IAMT+46
>> BGPN5 IAMT+2*, IAMT+27*, IAMT+43
>> BGPN6 IAMT+2*, IAMT+23*, IAMT+24, IAMT+25, IAMT+26, IAMT+27, IAMT+48
>> BGPN7 IAMT+2*, IAMT+24*, IAMT+48
>> BGPN8 IAMT+2*, IAMT+25*, IAMT+26*, IAMT+27, IAMT+48
>> BGPN9 IAMT+2*, IAMT+35*, IAMT+43
BGPSTAT IAMT+36!, IAMT+54!
BGPSTAT( IAMT+52, IAMT+53
BGPSTAT("ADR" IAMT+41*
BGPSTAT("CONTRA" IAMT+40*
BGPSTAT("REF" IAMT+39*
BGPSTAT("RX" IAMT+37*, IAMT+38
>> 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+44*, IAMT+45*, IAMT+46*, IAMT+47*, IAMT+48*, IAMT+49*, IAMT+50*, IAMT+51*, IAMT+52*
, IAMT+53*
>> BGPX AMIH+6*
>> C IAMT+21*, IAMT+22, 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, WAR71+10
, WAR71+12, WAR71+24*, WAR71+27, ACECONT+11*, ACECONT+12, ACECONT+14, ACECONT+25*, ACECONT+26, ACECONT+28, ACECONT+42*
>> D1 READM+2*
>> DFN IAMT+6, IAMT+8, IAMT+11, IAMT+12, IAMT+14, IAMT+16, IAMT+17, IAMT+18, IAMT+22, IAMT+24
, IAMT+25, IAMT+26, IAMT+30, IAMT+32, IAMT+33, IAMT+34, IAMT+37, IAMT+39, IAMT+40, IAMT+41
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~, WAR71+16, 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
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, WAR71+27*, WAR71+28, WAR71+29, 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, WAR71+16
, WAR71+22, WAR71+24, WAR71+27, WAR71+34, WAR71+36, 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
>> T IAMT+29*, IAMT+30, AMIH+5*, AMIH+22, ASACONTR+5*, ASACONTR+11, WAR71+21*, WAR71+23, ACECONT+8*, ACECONT+10
, ACECONT+22*, ACECONT+24, ACECONT+42*, 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
U IAMT+7, IAMT+8, IAMT+9, IAMT+11, IAMT+12, IAMT+14, IAMT+16, IAMT+17, IAMT+22, IAMT+24
, IAMT+25, IAMT+30, IAMT+32, IAMT+33, IAMT+37, IAMT+39, IAMT+40, IAMT+46, IAMT+47, IAMT+48
, IAMT+49, IAMT+50, IAMT+51, IAMT+52, IAMT+53, 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, WAR71+17, WAR71+28, WAR71+29, WAR71+35, WAR71+37
, ACECONT+4, ACECONT+15, ACECONT+16, ACECONT+29, ACECONT+30, ACECONT+35, ACECONT+38, ACECONT+43, ACECONT+46, ACECONT+47
, ACECONT+48, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55, ACECONT+56, ACECONT+57
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+46*, IAMT+47, IAMT+48*, IAMT+49, IAMT+50*, IAMT+51, IAMT+52*, IAMT+53, 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*, WAR71+22*, WAR71+23, WAR71+24, WAR71+27, WAR71+34*
, WAR71+35, WAR71+36*, WAR71+37, 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+42*, ACECONT+43, ACECONT+47, ACECONT+48
, ACECONT+49, ACECONT+50, ACECONT+51, ACECONT+52, ACECONT+53, ACECONT+54, ACECONT+55, ACECONT+56
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, WAR71+25, WAR71+26
, 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~
Info |  Source |  Call Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All