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 AUPN99.17 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 AUPN99.17 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

Customize PDF page

Package: IHS Patient

Routine: AUPNCPT

Call Graph Total: 3

Caller Graph Total: 10