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

Package: IHS GPRA Information System

Routine: BGP0CU3


Information

BGP0CU3 ; IHS/CMI/LAB - calc CMS measures 26 Sep 2004 11:28 AM 04 May 2009 2:38 PM ;

Source Information

Source file <BGP0CU3.m>

Call Graph

Call Graph Total: 13

Package Total Call Graph
IHS GPRA Information System 5 GETMEDS^BGP0CU  IVUD^BGP0CU1  $$LOINC^BGP0D21  ($$CPTI,$$TRANI)^BGP0DU  $$DATE^BGP0UTL  
DRG Grouper 2 $$ICDOP^ICDCODE  ($$CODEN,$$CPT)^ICPTCOD  
Patient Care Component Reports 2 $$START1^APCLDF  $$CLINIC^APCLV  
IHS Patient 1 $$DOB^AUPNPAT  
IHS VA Utilities 1 ($$VAL,$$VALI)^XBDIQ1  
Kernel 1 $$FMTE^XLFDT  
Taxonomy 1 $$ICD^ATXCHK  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
IHS GPRA Information System 5 BGP0C3  BGP0C4  BGP0CP4  BGP0CP5  BGP0CP6  

Entry Points

Name Comments DBIA/ICR reference
ERBC(P,BDATE,EDATE,BGPY) ;EP - did patient have an er visit from bdate to edate without a DX in taxonomy T?
ANTIRX(P,BDATE,EDATE,BGPY,EXP) ;EP
CPTC(Z) ;
CEFCPT ;now get all cpts
CEFMEAS ;now get all measurements CEF
CEFPROC ;now see if any procedures
BC(V,BGPZ) ;any blood culture tests on visit V
LVS(P,EDATE,BGPY,ADMDT) ;EP -does patient have LVS EVALUATION
ERBCP(P,BD,ED,BGPY) ;EP

External References

Name Field # of Occurrence
$$START1^APCLDF ERBC+4, ERBCP+4, CEFMEAS+1
$$CLINIC^APCLV ERBC+10, ERBCP+10
$$ICD^ATXCHK BC+22, ERBCP+36, CEFPROC+6, CEFCPT+6, CEFCPT+17, CEFCPT+45, CEFCPT+57, CEFCPT+69
$$DOB^AUPNPAT CEFMEAS+1
GETMEDS^BGP0CU ANTIRX+4
IVUD^BGP0CU1 ANTIRX+22
$$LOINC^BGP0D21 BC+40, BC+51, ERBCP+56, ERBCP+70
$$CPTI^BGP0DU ANTIRX+6
$$TRANI^BGP0DU ANTIRX+8
$$DATE^BGP0UTL ERBC+14, BC+52, ERBCP+11, ERBCP+52, ERBCP+53, ERBCP+57, ERBCP+65, ERBCP+67, ERBCP+71, ANTIRX+7
, ANTIRX+9, ANTIRX+20, CEFMEAS+5, CEFPROC+10, CEFCPT+10, CEFCPT+21, CEFCPT+36, CEFCPT+49, CEFCPT+61, CEFCPT+73
$$ICDOP^ICDCODE ANTIRX+14, CEFPROC+4, CEFCPT+42, CEFCPT+54, CEFCPT+66
$$CODEN^ICPTCOD ANTIRX+6, ANTIRX+8
$$CPT^ICPTCOD CEFCPT+4, CEFCPT+10, CEFCPT+14, CEFCPT+21
$$VAL^XBDIQ1 BC+6, BC+13, BC+20, BC+27, BC+35, BC+36, BC+37, BC+41, BC+45, BC+46
, BC+48, BC+52, ERBCP+14, ERBCP+19, ERBCP+26, ERBCP+34, ERBCP+41, ERBCP+51, ERBCP+52, ERBCP+53
, ERBCP+57, ERBCP+64, ERBCP+65, ERBCP+67, ERBCP+71, ANTIRX+20, CEFPROC+10, CEFCPT+49, CEFCPT+61, CEFCPT+73
$$VALI^XBDIQ1 BC+21, ERBCP+35
$$FMTE^XLFDT ERBC+4, ERBCP+4, CEFMEAS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: BGPBOMB
  • Line Location: CEFCPT+44
Function Call: WRITE
  • Prompt: BGPBOMB
  • Line Location: CEFCPT+56
Function Call: WRITE
  • Prompt: BGPBOMB
  • Line Location: CEFCPT+68

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ATXAX("B" BC+17, BC+31, ERBCP+31, ERBCP+45, CEFPROC+5, CEFCPT+5, CEFCPT+16, CEFCPT+43, CEFCPT+55, CEFCPT+67
^ATXLAB - [#9002228] BC+37, BC+47, ERBCP+53, ERBCP+66
^ATXLAB("B" BC+32, ERBCP+46
^AUPNVCPT - [#9000010.18] BC+5, ERBCP+18, CEFCPT+2, CEFCPT+3, CEFCPT+7
^AUPNVCPT("AC" CEFCPT+1
^AUPNVCPT("AD" BC+4, ERBCP+17
^AUPNVLAB - [#9000010.09] BC+34, BC+36, BC+37, BC+39, BC+41, ERBCP+50, ERBCP+52, ERBCP+53, ERBCP+55, ERBCP+57
^AUPNVLAB("AD" BC+33
^AUPNVLAB("AE" ERBCP+47, ERBCP+48, ERBCP+49
^AUPNVMIC - [#9000010.25] BC+44, BC+46, BC+47, BC+48, BC+50, BC+52, ERBCP+63, ERBCP+65, ERBCP+66, ERBCP+67
, ERBCP+69, ERBCP+71
^AUPNVMIC("AD" BC+43
^AUPNVMIC("AE" ERBCP+60, ERBCP+61, ERBCP+62
^AUPNVMSR - [#9000010.01] CEFMEAS+3, CEFMEAS+4
^AUPNVPOV - [#9000010.07] BC+26, ERBCP+40
^AUPNVPOV("AD" BC+25, ERBCP+13, ERBCP+39
^AUPNVPRC - [#9000010.08] BC+19, ERBCP+33, ANTIRX+12, ANTIRX+13, ANTIRX+16, CEFPROC+2, CEFPROC+3, CEFPROC+7, CEFCPT+40, CEFCPT+41
, CEFCPT+46, CEFCPT+52, CEFCPT+53, CEFCPT+58, CEFCPT+64, CEFCPT+65, CEFCPT+70
^AUPNVPRC("AC" ANTIRX+11, CEFPROC+1, CEFCPT+39, CEFCPT+51, CEFCPT+63
^AUPNVPRC("AD" BC+18, ERBCP+32
^AUPNVSIT - [#9000010] ERBC+7, ERBC+8, ERBC+9, ERBCP+7, ERBCP+8, ERBCP+9, ERBCP+11, ERBCP+47, ERBCP+60, ANTIRX+17
, CEFPROC+8, CEFCPT+8, CEFCPT+19, CEFCPT+47, CEFCPT+59, CEFCPT+71
^AUPNVTC - [#9000010.33] BC+12, ERBCP+25, CEFCPT+12, CEFCPT+13, CEFCPT+18
^AUPNVTC("AC" CEFCPT+11
^AUPNVTC("AD" BC+11, ERBCP+24
^BMCREF - [#90001] CEFCPT+24, CEFCPT+28, CEFCPT+33, CEFCPT+36
^BMCREF("D" CEFCPT+23
^BMCTDXC - [#90001.51] CEFCPT+26, CEFCPT+27, CEFCPT+36
^BMCTSVC - [#90001.52] CEFCPT+30, CEFCPT+31

Label References

Name Line Occurrences
$$CPTC CEFCPT+32
BC ERBC+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ERBC+1~, ERBC+4*, BC+33*, BC+34, BC+35, BC+36, BC+37, BC+39, BC+41, BC+43*
, BC+44, BC+45, BC+46, BC+47, BC+48, BC+50, BC+52, ERBCP+4*, ERBCP+13*, ERBCP+14
, ERBCP+49*, ERBCP+50, ERBCP+51, ERBCP+52, ERBCP+53, ERBCP+55, ERBCP+57, ERBCP+62*, ERBCP+63, ERBCP+64
, ERBCP+65, ERBCP+66, ERBCP+67, ERBCP+69, ERBCP+71
ADMDT LVS~, CEFCPT+35
B ERBC+1~, ERBC+4*, BC+2~, ERBCP+4*, ERBCP+47*, ERBCP+60*
BD ERBCP~, ERBCP+4, ANTIRX+1~, LVS+1~
BDATE ERBC~, ERBC+4, ANTIRX~, ANTIRX+4, ANTIRX+6, ANTIRX+8, ANTIRX+19, ANTIRX+22
BGPB ERBC+1~, ERBC+11!, ERBC+12, ERBC+13
>> BGPBOMB CEFCPT+44, CEFCPT+56, CEFCPT+68
BGPC ERBC+1~, ERBC+3*, ERBC+14*, BC+2~, BC+3*, BC+8*, BC+15*, BC+23*, BC+29*, BC+36*
, BC+37*, BC+41*, BC+46*, BC+48*, BC+52*, ERBCP+1~, ERBCP+3*, ERBCP+11*, ERBCP+12*, ERBCP+14*
, ERBCP+15*, ERBCP+21*, ERBCP+28*, ERBCP+37*, ERBCP+43*, ERBCP+52*, ERBCP+53*, ERBCP+57*, ERBCP+65*, ERBCP+67*
, ERBCP+71*, ANTIRX+1~, ANTIRX+2*, ANTIRX+5*, ANTIRX+7*, ANTIRX+9*, ANTIRX+20*, ANTIRX+23*, LVS+1~, LVS+3*
, CEFMEAS+5*, CEFPROC+10*, CEFCPT+10*, CEFCPT+21*, CEFCPT+36*, CEFCPT+49*, CEFCPT+61*, CEFCPT+73*
BGPG ERBC+1~, ERBC+2!, ERBCP+1~, ERBCP+2!, ANTIRX+1~, ANTIRX+21!, ANTIRX+22, LVS+1~, CEFMEAS+1!
BGPG( ERBC+6, ERBC+14, BC+52, ERBCP+6, ERBCP+52, ERBCP+53, ERBCP+57, ERBCP+65, ERBCP+67, ERBCP+71
, ANTIRX+23, CEFMEAS+2, CEFMEAS+5
BGPG(1 ERBC+5, ERBCP+5
BGPLT BC+2~, BC+32*, BC+37, BC+47, ERBCP+46*, ERBCP+53, ERBCP+66
BGPY ERBC~, ERBC+2!, ERBCP~, ERBCP+2!, ANTIRX~, ANTIRX+5, LVS~, LVS+3!
BGPY( ERBC+14*, ERBCP+11*, ERBCP+12*, ERBCP+14*, ERBCP+15*, ERBCP+21*, ERBCP+28*, ERBCP+37*, ERBCP+43*, ERBCP+52*
, ERBCP+53*, ERBCP+57*, ERBCP+65*, ERBCP+67*, ERBCP+71*, ANTIRX+5*, ANTIRX+7*, ANTIRX+9*, ANTIRX+20*, ANTIRX+23*
, CEFMEAS+5*, CEFPROC+10*, CEFCPT+10*, CEFCPT+21*, CEFCPT+36*, CEFCPT+49*, CEFCPT+61*, CEFCPT+73*
BGPZ BC~
BGPZ( BC+8*, BC+15*, BC+23*, BC+29*, BC+36*, BC+37*, BC+41*, BC+46*, BC+48*, BC+52*
C BC+2~, BC+21*, BC+22, ERBCP+35*, ERBCP+36, CEFCPT+28*, CEFCPT+29, CEFCPT+30, CEFCPT+31
C1 BC+2~, BC+6*, BC+7, BC+8, BC+13*, BC+14, BC+15, BC+20*, BC+23, BC+27*
, BC+28, BC+29, ERBCP+19*, ERBCP+20, ERBCP+21, ERBCP+26*, ERBCP+27, ERBCP+28, ERBCP+34*, ERBCP+37
, ERBCP+41*, ERBCP+42, ERBCP+43
D BC+2~, ERBCP+47*, ERBCP+48, ERBCP+49, ERBCP+60*, ERBCP+61, ERBCP+62, CEFCPT+33*, CEFCPT+34, CEFCPT+35
>> DFN CEFMEAS+1
E ERBC+1~, ERBC+4*, ERBC+6*, BC+2~, ERBCP+4*, ERBCP+47*, ERBCP+60*, ANTIRX+1~, CEFMEAS+1*
ED ERBCP~, ERBCP+4, ANTIRX+1~, LVS+1~
EDATE ERBC~, ERBC+4, ANTIRX~, ANTIRX+4, ANTIRX+6, ANTIRX+8, ANTIRX+18, ANTIRX+22, LVS~, CEFMEAS+1
, CEFPROC+9, CEFCPT+9, CEFCPT+20, CEFCPT+34, CEFCPT+48, CEFCPT+60, CEFCPT+72
EXP ANTIRX~, ANTIRX+3*, ANTIRX+4
G ERBC+1~, ERBC+6*, ERBCP+6*
I ERBC+1~, ANTIRX+13*, ANTIRX+14, LVS+1~, CEFPROC+3*, CEFPROC+4, CEFPROC+6, CEFCPT+3*, CEFCPT+4, CEFCPT+6
, CEFCPT+10, CEFCPT+13*, CEFCPT+14, CEFCPT+17, CEFCPT+21, CEFCPT+24*, CEFCPT+25, CEFCPT+26, CEFCPT+27, CEFCPT+36
, CEFCPT+41*, CEFCPT+42, CEFCPT+45, CEFCPT+53*, CEFCPT+54, CEFCPT+57, CEFCPT+65*, CEFCPT+66, CEFCPT+69
>> J BC+39*, BC+40, BC+50*, BC+51, ERBCP+55*, ERBCP+56, ERBCP+69*, ERBCP+70
>> L ERBCP+48*, ERBCP+49, ERBCP+61*, ERBCP+62
N LVS+1~, CEFMEAS+4*, CEFMEAS+5
P ERBC~, ERBC+4, ERBCP~, ERBCP+4, ERBCP+47, ERBCP+48, ERBCP+49, ERBCP+60, ERBCP+61, ERBCP+62
, ANTIRX~, ANTIRX+4, ANTIRX+6, ANTIRX+8, ANTIRX+11, ANTIRX+22, LVS~, CEFMEAS+1, CEFPROC+1, CEFCPT+1
, CEFCPT+11, CEFCPT+23, CEFCPT+39, CEFCPT+51, CEFCPT+63
T BC+2~, BC+17*, BC+22, BC+31*, BC+38, BC+40, BC+49, BC+51, ERBCP+31*, ERBCP+36
, ERBCP+45*, ERBCP+54, ERBCP+56, ERBCP+68, ERBCP+70, LVS+1~, CEFPROC+5*, CEFPROC+6, CEFCPT+5*, CEFCPT+6
, CEFCPT+16*, CEFCPT+17, CEFCPT+43*, CEFCPT+44, CEFCPT+45, CEFCPT+55*, CEFCPT+56, CEFCPT+57, CEFCPT+67*, CEFCPT+68
, CEFCPT+69
U ERBC+6, ERBC+8, ERBC+9, ERBC+14, BC+36, BC+37, BC+39, BC+41, BC+46, BC+47
, BC+48, BC+50, BC+52, ERBCP+6, ERBCP+8, ERBCP+9, ERBCP+11, ERBCP+47, ERBCP+52, ERBCP+53
, ERBCP+55, ERBCP+57, ERBCP+60, ERBCP+65, ERBCP+66, ERBCP+67, ERBCP+69, ERBCP+71, ANTIRX+7, ANTIRX+9
, ANTIRX+13, ANTIRX+14, ANTIRX+16, ANTIRX+17, CEFMEAS+2, CEFMEAS+3, CEFMEAS+4, CEFMEAS+5, CEFPROC+3, CEFPROC+4
, CEFPROC+7, CEFPROC+8, CEFCPT+3, CEFCPT+4, CEFCPT+7, CEFCPT+8, CEFCPT+10, CEFCPT+13, CEFCPT+14, CEFCPT+18
, CEFCPT+19, CEFCPT+21, CEFCPT+24, CEFCPT+27, CEFCPT+28, CEFCPT+31, CEFCPT+33, CEFCPT+36, CEFCPT+41, CEFCPT+42
, CEFCPT+46, CEFCPT+47, CEFCPT+53, CEFCPT+54, CEFCPT+58, CEFCPT+59, CEFCPT+65, CEFCPT+66, CEFCPT+70, CEFCPT+71
V ERBC+6*, ERBC+7, ERBC+8, ERBC+9, ERBC+10, ERBC+12, BC~, BC+4, BC+11, BC+18
, BC+25, BC+33, BC+43, ERBCP+6*, ERBCP+7, ERBCP+8, ERBCP+9, ERBCP+10, ERBCP+11, ERBCP+13
, ERBCP+17, ERBCP+24, ERBCP+32, ERBCP+39, ERBCP+47, ERBCP+60, ANTIRX+16*, ANTIRX+17*, ANTIRX+18, ANTIRX+19
, ANTIRX+20, CEFPROC+7*, CEFPROC+8*, CEFPROC+9, CEFPROC+10, CEFCPT+7*, CEFCPT+8*, CEFCPT+9, CEFCPT+10, CEFCPT+18*
, CEFCPT+19*, CEFCPT+20, CEFCPT+21, CEFCPT+31*, CEFCPT+32, CEFCPT+36, CEFCPT+46*, CEFCPT+47*, CEFCPT+48, CEFCPT+49
, CEFCPT+58*, CEFCPT+59*, CEFCPT+60, CEFCPT+61, CEFCPT+70*, CEFCPT+71*, CEFCPT+72, CEFCPT+73
X ERBC+1~, ERBC+6*, ERBC+14, BC+52, ERBCP+6*, ERBCP+52, ERBCP+53, ERBCP+57, ERBCP+65, ERBCP+67
, ERBCP+71, ANTIRX+1~, ANTIRX+6*, ANTIRX+7, ANTIRX+8*, ANTIRX+9, ANTIRX+11*, ANTIRX+12, ANTIRX+13, ANTIRX+16
, ANTIRX+20, ANTIRX+23*, LVS+1~, CEFMEAS+1*, CEFMEAS+2*, CEFMEAS+5, CEFPROC+1*, CEFPROC+2, CEFPROC+3, CEFPROC+7
, CEFPROC+10, CEFCPT+1*, CEFCPT+2, CEFCPT+3, CEFCPT+7, CEFCPT+11*, CEFCPT+12, CEFCPT+13, CEFCPT+18, CEFCPT+23*
, CEFCPT+24, CEFCPT+28, CEFCPT+33, CEFCPT+36, CEFCPT+39*, CEFCPT+40, CEFCPT+41, CEFCPT+46, CEFCPT+49, CEFCPT+51*
, CEFCPT+52, CEFCPT+53, CEFCPT+58, CEFCPT+61, CEFCPT+63*, CEFCPT+64, CEFCPT+65, CEFCPT+70, CEFCPT+73
Y ANTIRX+1~, ANTIRX+14*, ANTIRX+15, ANTIRX+20, ANTIRX+23*, LVS+1~, CEFMEAS+1*, CEFMEAS+2*, CEFMEAS+3, CEFMEAS+4
, CEFPROC+4*, CEFPROC+10, CEFCPT+4*, CEFCPT+10, CEFCPT+14*, CEFCPT+15, CEFCPT+21, CEFCPT+42*, CEFCPT+49, CEFCPT+54*
, CEFCPT+61, CEFCPT+66*, CEFCPT+73
Z BC+2~, BC+4*, BC+5, BC+6, BC+11*, BC+12, BC+13, BC+18*, BC+19, BC+20
, BC+21, BC+25*, BC+26, BC+27, ERBCP+17*, ERBCP+18, ERBCP+19, ERBCP+24*, ERBCP+25, ERBCP+26
, ERBCP+32*, ERBCP+33, ERBCP+34, ERBCP+35, ERBCP+39*, ERBCP+40, ERBCP+41, ANTIRX+1~, LVS+1~, CPTC~
, CPTC+1, CPTC+2, CPTC+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All