Routine: BHSCPT

Package	Total	Call Graph
Health Summary Components	2	$$DATE^BHSMU DISPREF^BHSRAD
DRG Grouper	1	$$CPT^ICPTCOD
Health Summary	1	CKP^GMTSUP
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
CPTALL	;EP - display all cpt codes, date limits are applicable
CPTMRE	;EP - health summary component, most recent of each cpt code
CPTALLC	;EP - health summary component
CPTALLX
CPTALLC1	;EP - display all cpt codes, date limits are applicable
MREDISP	;
CPTALLCX

External References

Name	Field # of Occurrence
$$DATE^BHSMU	CPTALL+35, CPTALLC1+40, MREDISP+4
DISPREF^BHSRAD	CPTALL+48, CPTALLC1+50
CKP^GMTSUP	CPTALL+31, CPTALL+34, CPTALL+38, CPTALLC1+30, CPTALLC1+33, CPTALLC1+38, MREDISP+3
$$CPT^ICPTCOD	CPTALL+12, CPTALL+28, CPTALLC1+11, CPTALLC1+27
$$VAL^XBDIQ1	CPTALL+9, CPTALL+11, CPTALL+12, CPTALL+13, CPTALL+24, CPTALLC1+8, CPTALLC1+10, CPTALLC1+11, CPTALLC1+12, CPTALLC1+23
$$VALI^XBDIQ1	CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+28, CPTALL+29, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+27, CPTALLC1+28

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?28,"CODE",?34,"CPT NARRATIVE",?72,"UNITS",! Line Location: CPTALL+32
Function Call: WRITE	Prompt: ?28,"CODE",?34,"CPT NARRATIVE",?72,"UNITS",! Line Location: CPTALL+34
Function Call: WRITE	Prompt: ?28,"CODE",?35,"CPT NARRATIVE",?72,"UNITS",! Line Location: CPTALL+38
Function Call: WRITE	Prompt: ?9,$P($G(^AUTTLOC(%,0)),U,2) Line Location: CPTALL+40
Function Call: WRITE	Prompt: ?22,$P($G(^DIC(40.7,%,9999999)),U) Line Location: CPTALL+42
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: CPTALLC1+31
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: CPTALLC1+33
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: CPTALLC1+38
Function Call: WRITE	Prompt: ?60,$P($G(^AUTTLOC(%,0)),U,2) Line Location: CPTALLC1+44
Function Call: WRITE	Prompt: ?74,$E($P($G(^DIC(40.7,%,9999999)),U),1,3) Line Location: CPTALLC1+46
Function Call: WRITE	Prompt: ?1,"CODE",?7,"DATE",?17,"CPT NARRATIVE",?54,"UNITS",?60,"FACILITY",?74,"CLN",! Line Location: MREDISP+3
Function Call: WRITE	Prompt: ?60,$P($G(^AUTTLOC(%,0)),U,2) Line Location: MREDISP+8
Function Call: WRITE	Prompt: ?74,$P($G(^DIC(40.7,%,9999999)),U) Line Location: MREDISP+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	CPTALL+12, CPTALL+13, CPTALL+14, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13
^AUPNVCPT("AA"	CPTALL+3, CPTALL+6, CPTALL+7, CPTALL+8, CPTALLC1+2, CPTALLC1+5, CPTALLC1+6, CPTALLC1+7
^AUPNVSIT - [#9000010]	CPTALL+20, CPTALL+21, CPTALLC1+19, CPTALLC1+20
^AUPNVTC - [#9000010.33]	CPTALL+17, CPTALL+18, CPTALL+26, CPTALL+28, CPTALL+29, CPTALLC1+16, CPTALLC1+17, CPTALLC1+25, CPTALLC1+27, CPTALLC1+28
^AUPNVTC("AC"	CPTALL+3, CPTALL+16, CPTALLC1+2, CPTALLC1+15
^AUTTLOC - [#9999999.06]	CPTALL+40, CPTALLC1+44, MREDISP+8
^DIC(40.7 - [#40.7]	CPTALL+42, CPTALLC1+46, MREDISP+10

Label References

Name	Line Occurrences
CPTALLC1	CPTMRE+2
CPTALLCX	CPTALLC1+29
CPTALLX	CPTALL+30
MREDISP	CPTALLC1+35

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CPTALL+39, CPTALL+40, CPTALL+41, CPTALL+42, CPTALLX!, CPTALLC1+43, CPTALLC1+44, CPTALLC1+45, CPTALLC1+46, CPTALLCX! , MREDISP+7, MREDISP+8, MREDISP+9, MREDISP+10
BHCPT	CPTALL+9, CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+24, CPTALL+25, CPTALL+27, CPTALL+28, CPTALL+29, CPTALL+36* , CPTALL+37, CPTALL+39, CPTALL+41, CPTALL+43, CPTALL+44, CPTALLX!, CPTALLC1+8, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13 , CPTALLC1+23, CPTALLC1+24, CPTALLC1+26, CPTALLC1+27, CPTALLC1+28, CPTALLC1+32*, CPTALLC1+34, CPTALLC1+36, CPTALLC1+37, CPTALLC1+41 , CPTALLC1+42, CPTALLC1+43, CPTALLC1+45, CPTALLCX!, MREDISP+1, MREDISP+2, MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
BHCPTA	CPTALL+5!, CPTALL+30, CPTALLX!, CPTALLC1+4!, CPTALLC1+29, CPTALLCX!
BHCPTA(	CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+27, CPTALL+28, CPTALL+29, CPTALL+33, CPTALL+36, CPTALL+37, CPTALL+39 , CPTALL+41, CPTALL+43, CPTALL+44, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+26, CPTALLC1+27, CPTALLC1+28, CPTALLC1+32 , CPTALLC1+36, CPTALLC1+37, CPTALLC1+41, CPTALLC1+42, CPTALLC1+43, CPTALLC1+45, MREDISP+1, MREDISP+2, MREDISP+5, MREDISP+6 , MREDISP+7, MREDISP+9
BHCPTI	CPTALL+6, CPTALL+7, CPTALL+8, CPTALL+12, CPTALL+26, CPTALL+28, CPTALLX!, CPTALLC1+5, CPTALLC1+6, CPTALLC1+7 , CPTALLC1+11, CPTALLC1+25, CPTALLC1+27, CPTALLCX!
BHIEN	CPTALL+8, CPTALL+9, CPTALL+11, CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+16, CPTALL+17, CPTALL+18, CPTALL+24 , CPTALL+26, CPTALL+28, CPTALL+29, CPTALL+37, CPTALL+39, CPTALL+41, CPTALL+43, CPTALL+44, CPTALLX!, CPTALLC1+7 , CPTALLC1+8, CPTALLC1+10, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+15, CPTALLC1+16, CPTALLC1+17, CPTALLC1+23, CPTALLC1+25 , CPTALLC1+27, CPTALLC1+28, CPTALLC1+37, CPTALLC1+41, CPTALLC1+42, CPTALLC1+43, CPTALLC1+45, CPTALLCX!, MREDISP+2*, MREDISP+5 , MREDISP+6, MREDISP+7, MREDISP+9
BHMRC	CPTALLC1+32, CPTALLC1+37, CPTALLC1+39*, CPTALLCX!
BHMRO	CPTALLC+1, CPTALLC1+35, CPTALLC1+51!, CPTMRE+1
BHSDAT	CPTALLX!, CPTALLCX!
BHSFN	CPTALL+48, CPTALL+49!, CPTALLC1+50, CPTALLC1+51!
BHSIVC	CPTALLC1+6*, CPTALLCX!
BHSIVD	CPTALL+7, CPTALL+8, CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+22, CPTALL+23, CPTALL+27, CPTALL+28, CPTALL+29 , CPTALL+33, CPTALL+35, CPTALL+36, CPTALL+37, CPTALL+39, CPTALL+41, CPTALL+43, CPTALL+44, CPTALLX!, CPTALLC1+6 , CPTALLC1+7, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+21, CPTALLC1+22, CPTALLC1+26, CPTALLC1+27, CPTALLC1+28, CPTALLC1+36 , CPTALLC1+37, CPTALLC1+40, CPTALLC1+41, CPTALLC1+42, CPTALLC1+43, CPTALLC1+45, CPTALLCX!, MREDISP+1*, MREDISP+2, MREDISP+4 , MREDISP+5, MREDISP+6, MREDISP+7, MREDISP+9
BHSNAR	CPTALL+1~, CPTALL+11, CPTALL+12, CPTALL+13, CPTALLC1+4!, CPTALLC1+10, CPTALLC1+11, CPTALLC1+12
BHSPAT	CPTALL+1~, CPTALL+2, CPTALL+3, CPTALL+6, CPTALL+7, CPTALL+8, CPTALL+16, CPTALLC1+1, CPTALLC1+2, CPTALLC1+5 , CPTALLC1+6, CPTALLC1+7, CPTALLC1+15
BHST	CPTALL+48, CPTALL+49!, CPTALLC1+50, CPTALLC1+51!
>> DFN	CPTALL+2, CPTALLC1+1
>> GMTSDLM	CPTALL+7, CPTALL+23, CPTALLC1+6, CPTALLC1+22, MREDISP+1
>> GMTSNPG	CPTALL+34, CPTALL+38, CPTALLC1+33, CPTALLC1+38, MREDISP+3
>> GMTSQIT	CPTALL+31, CPTALL+33, CPTALL+34, CPTALL+36, CPTALL+37, CPTALL+38, CPTALLC1+30, CPTALLC1+32, CPTALLC1+33, CPTALLC1+36 , CPTALLC1+37, CPTALLC1+38, MREDISP+3
U	CPTALL+12, CPTALL+13, CPTALL+14, CPTALL+18, CPTALL+21, CPTALL+26, CPTALL+28, CPTALL+29, CPTALL+39, CPTALL+40 , CPTALL+41, CPTALL+42, CPTALL+43, CPTALL+44, CPTALLC1+11, CPTALLC1+12, CPTALLC1+13, CPTALLC1+17, CPTALLC1+20, CPTALLC1+25 , CPTALLC1+27, CPTALLC1+28, CPTALLC1+41, CPTALLC1+42, CPTALLC1+43, CPTALLC1+44, CPTALLC1+45, CPTALLC1+46, MREDISP+5, MREDISP+6 , MREDISP+7, MREDISP+8, MREDISP+9, MREDISP+10
V	CPTALL+1~, CPTALL+18, CPTALL+19, CPTALL+20, CPTALL+21, CPTALL+22, CPTALLC1+17, CPTALLC1+18, CPTALLC1+19, CPTALLC1+20 , CPTALLC1+21
Y	CPTALL+1~, CPTALL+14, CPTALL+29, CPTALLC1+13, CPTALLC1+28

Customize PDF page

Package: Health Summary Components

Routine: BHSCPT

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: