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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: BHSCPT

Package: Health Summary Components

Routine: BHSCPT


Information

BHSCPT ;IHS/MSC/MGH - Health Summary for V MED file ;31-Dec-2015 13:12;DU

Source Information

Source file <BHSCPT.m>

Call Graph

Call Graph Total: 5

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All