Routine: BGP1CU3

Information

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

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS GPRA Information System	5	GETMEDS^BGP1CU IVUD^BGP1CU1 $$LOINC^BGP1D21 ($$CPTI,$$TRANI)^BGP1DU $$DATE^BGP1UTL
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	BGP1C3 BGP1C4 BGP1CP4 BGP1CP5 BGP1CP6

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^BGP1CU	ANTIRX+4
IVUD^BGP1CU1	ANTIRX+22
$$LOINC^BGP1D21	BC+40, BC+51, ERBCP+56, ERBCP+70
$$CPTI^BGP1DU	ANTIRX+6
$$TRANI^BGP1DU	ANTIRX+8
$$DATE^BGP1UTL	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

Customize PDF page

Package: IHS GPRA Information System

Routine: BGP1CU3

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: