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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AUPNCPT

Package: IHS Patient

Routine: AUPNCPT


Information

AUPNCPT ; IHS/CMI/LAB - CALCULATE CPT CODE ;

Source Information

Source file <AUPNCPT.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
DRG Grouper 1 $$CPT^ICPTCOD  
IHS Patient 1 $$AGE^AUPNPAT  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Patient Care Component Data Transmission 3 APCPDR2  APCPREX2  APCPUTIL  
Third Party Billing 3 ABMDLCK3  ABMDVS13  ABMDVST4  
Data Warehouse Export System 2 BDWDDR2  BDWUTIL  
Patient Care Component Reports 2 APCLCAR2  APCLCPT1  

Entry Points

Name Comments DBIA/ICR reference
11 ;
13 ;
SET ;
15 ;
22 ;
17 ;
16 ;
18 ;
CPTS ;
1 ;measurements
12 ;
CPT(V) ;PEP - get all cpts entered on this visit
EDUCCPT(E) ;EP - compute cpt code for education topic given
V ;visit cpt - eval&man
EXAMCPT(E) ;EP called from .011 field of V EXAM
8 ;
; S E=0,(M,O)="" F S E=$O(^AUPNVPRC("AD",V,E)) Q:E'=+E I $$VAL^XBDIQ1(9000010.08,E,.16)]"" S C=$$VAL^XBDIQ1(9000010.08,E,.16), ; IHS/ASDST/GTH AUPN*99.1*7 02/15/2002 ; split from following line for length.
; I=$P(^AUPNVPRC(E,0),U,16),N=$P(^ICPT($P(^AUPNVPRC(E,0),U,16),0),U,2),(M,O)="" D SET ; IHS/ASDST/GTH AUPN*99.1*7 02/15/2002
IMMCPT(E) ;EP - called from .011 Field of V Immunization

External References

Name Field # of Occurrence
$$AGE^AUPNPAT EXAMCPT+11, IMMCPT+10
$$CPT^ICPTCOD V+4, 8+6, 18+2, 22+2
$$VAL^XBDIQ1 V+3, 8+3, 8+5, 18+2, 22+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] EXAMCPT+12
^AUPNVCPT - [#9000010.18] 18+2
^AUPNVCPT("AD" 18+2
^AUPNVIMM - [#9000010.11] IMMCPT+2, IMMCPT+4, IMMCPT+8, IMMCPT+9, IMMCPT+10
^AUPNVPED - [#9000010.16] EDUCCPT+6, EDUCCPT+9, EDUCCPT+10, EDUCCPT+11, EDUCCPT+12, EDUCCPT+13, EDUCCPT+14, EDUCCPT+15, EDUCCPT+16
^AUPNVPRC - [#9000010.08] 8+4, 8+7, 8+8
^AUPNVPRC("AD" 8+3
^AUPNVRAD - [#9000010.22] 22+2
^AUPNVRAD("AD" 22+2
^AUPNVSIT - [#9000010] CPT+14, CPT+15, CPT+16, CPT+19, V+1, V+4, V+5, EXAMCPT+10, IMMCPT+10
^AUPNVXAM - [#9000010.13] EXAMCPT+2, EXAMCPT+4, EXAMCPT+8, EXAMCPT+9, EXAMCPT+10
^AUTTEXAM - [#9999999.15] EXAMCPT+4, EXAMCPT+6
^AUTTIMM - [#9999999.14] IMMCPT+4, IMMCPT+6
^ICPT - [#81] EXAMCPT+5, IMMCPT+5, EDUCCPT+9

Label References

Name Line Occurrences
@( CPT+21
SET V+5, 8+9, 18+2, 22+2

Naked Globals

Name Field # of Occurrence
^(0 EDUCCPT+10, EDUCCPT+11, EDUCCPT+12, EDUCCPT+13, EDUCCPT+14, EDUCCPT+15, EDUCCPT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% CPT+17~, CPT+18*, CPT+22, EXAMCPT+3~, EXAMCPT+4*, EXAMCPT+6, IMMCPT+3~, IMMCPT+4*, IMMCPT+6
%1 CPT+17~, CPT+18*, SET+1*, SET+2, EXAMCPT+3~, EXAMCPT+4*, EXAMCPT+5, EXAMCPT+7*, EXAMCPT+14*, EXAMCPT+15*
, EXAMCPT+16*, EXAMCPT+17*, EXAMCPT+18*, EXAMCPT+19*, EXAMCPT+20*, EXAMCPT+21*, EXAMCPT+23*, EXAMCPT+24, IMMCPT+3~, IMMCPT+4*
, IMMCPT+5, IMMCPT+7*, IMMCPT+11*, IMMCPT+12*, IMMCPT+13*, IMMCPT+15, EDUCCPT+7~, EDUCCPT+8*, EDUCCPT+10, EDUCCPT+11*
, EDUCCPT+12*, EDUCCPT+13*, EDUCCPT+14*, EDUCCPT+15*, EDUCCPT+16*, EDUCCPT+18
%2 EXAMCPT+3~, EXAMCPT+10*, EXAMCPT+11, EXAMCPT+12
%3 EXAMCPT+3~, EXAMCPT+12*, EXAMCPT+13
%4 EXAMCPT+3~, EXAMCPT+10*, EXAMCPT+11, EXAMCPT+13
A EXAMCPT+3~, EXAMCPT+11*, EXAMCPT+15, EXAMCPT+16, EXAMCPT+17, EXAMCPT+18, EXAMCPT+19, EXAMCPT+20, EXAMCPT+21, EXAMCPT+23
, IMMCPT+3~, IMMCPT+10*, IMMCPT+11, IMMCPT+12, IMMCPT+13
AUPNCPT CPT+20!
AUPNCPT( SET+2*
AUPNJ CPT+17~, CPT+21*
AUPNT CPT+17~, CPT+21*
AUPNX CPT+17~, CPT+21*
AUPNY CPT+17~, CPT+21*
C CPT+17~, SET+2, V+3*, 8+5*, 18+2*, 22+2*
D CPT+17~, CPT+19*, V+4, 8+6, 18+2, 22+2
E CPT+17~, SET+2, V+3*, 8+3*, 8+4, 8+5, 8+7, 8+8, 18+2*, 22+2*
, EXAMCPT~, EXAMCPT+1, EXAMCPT+2, EXAMCPT+4, EXAMCPT+8, EXAMCPT+9, EXAMCPT+10, IMMCPT~, IMMCPT+1, IMMCPT+2
, IMMCPT+4, IMMCPT+8, IMMCPT+9, IMMCPT+10, EDUCCPT~, EDUCCPT+5, EDUCCPT+6, EDUCCPT+9, EDUCCPT+10, EDUCCPT+11
, EDUCCPT+12, EDUCCPT+13, EDUCCPT+14, EDUCCPT+15, EDUCCPT+16
F CPT+17~, CPT+21*, SET+2
I CPT+17~, SET+2, V+5*, 8+4*, 8+6, 18+2*, 22+2*
M CPT+17~, SET+2, V+5*, 8+3*, 8+7*, 18+2*, 22+2*
N CPT+17~, SET+2, V+4*, 8+6*, 18+2*, 22+2*
O CPT+17~, SET+2, V+5*, 8+3*, 8+8*, 18+2*, 22+2*
U V+4, 8+4, 8+6, 8+7, 8+8, 18+2, 22+2
V CPT~, CPT+13, CPT+14, CPT+15, CPT+16, CPT+19, V+1, V+3, V+4, V+5
, 8+3, 18+2, 22+2

Marked Items

Name Field # of Occurrence
$T(@AUPNT+AUPNJ CPT+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All