Routine: APCLCAR2

Package	Total	Call Graph
DRG Grouper	1	$$CPT^ICPTCOD
IHS Patient	1	$$CPT^AUPNCPT
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	$$CLINIC^APCLV
VA Fileman	1	^DIC

Package	Total	Caller Graph
Patient Care Component Reports	1	APCLCAR1

Entry Points

External References

Name	Field # of Occurrence
$$CLINIC^APCLV	SECT5+1
$$CPT^AUPNCPT	GETPCPT+2
^DIC	O+1, S+1
$$CPT^ICPTCOD	GETPCPT+8, GETPCPT+12, CPTCHK+2
$$VAL^XBDIQ1	S+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls
^AUTTSU - [#9999999.22]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDFEE - [#9002274.01]	FEEAMT+6
^AUPNVDEN("AD"	SECT5+2
^AUPNVIMM - [#9000010.11]	GETPCPT+5
^AUPNVIMM("AD"	GETPCPT+4
^AUPNVLAB - [#9000010.09]	GETPCPT+10, GETPCPT+11
^AUPNVLAB("AD"	GETPCPT+9
^AUTTIMM - [#9999999.14]	GETPCPT+5, GETPCPT+6
^DIC(4 - [#4]	LOC+1
^ICPT - [#81]	GETPCPT+12, CPTCHK+1
^VA(200 - [#200]	USR+1
^XTMP("APCLCAR"	SECT5+4, SET+1, SETSPEC+1, SETSPEC2+1

Label References

Name	Line Occurrences
$$FEEAMT	GETPCPT+21
CPTCHK	SECT5+5
GETPCPT	SECT5+3
SET	SECT5+1, SECT5+2, 1, 2, 3, 3+1, 3+2, 4, 4+1, 5 , 5+1, 5+2, 5+3, 5+4, 5+5, 5+6, 6, 7, 7+1, 7+2 , 7+3, 7+4, 8, 8+1, 8+2, 9, 9+1, 10+1, 10+2, 10+3 , 10+4, 10+5, 11+2, 11+3, 11+4, 11+5, 11+6, 11+7, 12, 13 , 14, 15, 16, 17, 18, 19, 20, 21, 21+1, 22 , 23, 24, 25, 26, 27, 28, 29, 29+1, 30, 30+1 , 33, 44
SETSPEC	50+1, 51, 51+1, 51+2, 52, 52+1, 52+2, 52+3, 53, 53+1 , 53+2, 53+3, 53+4, 53+5, 53+6, 53+7, 53+8, 53+9, 53+10, 53+11
SETSPEC2	60+1, 60+2, 60+3, 60+4, 60+5, 60+6, 61, 61+1, 62, 62+1 , 63+1, 63+2, 63+3, 63+4, 63+5, 64, 65, 65+1, 65+2, 65+3 , 65+4, 65+5, 65+6, 65+7, 65+8, 65+9, 66, 66+1, 66+2, 67 , 67+1, 67+2, 68, 69, 69+1
SPEC	SECT5+6
SPEC2	SECT5+6

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	FEEAMT+4~, FEEAMT+5, FEEAMT+6, FEEAMT+7
>> APCLC	SECT5+6, GETPCPT+3, GETPCPT+8, GETPCPT+12, GETPCPT+19*, GETPCPT+20
>> APCLC1	GETPCPT+19*, GETPCPT+20, GETPCPT+21, GETPCPT+22
>> APCLCPT	GETPCPT+6, GETPCPT+7, GETPCPT+8, GETPCPT+12
>> APCLCPTR	SECT5+4
>> APCLFEE	GETPCPT+21
>> APCLH	SECT5+4, SET+1, SETSPEC+1, SETSPEC2+1
>> APCLJ	SECT5+4, SET+1, SETSPEC+1, SETSPEC2+1
>> APCLLOCT("ONE"	O+3*
>> APCLLOCT("SU"	S+3*
>> APCLNCPT	SECT5+4*
APCLPCPT	GETPCPT+1!
>> APCLQ	O+2, S+2
>> APCLSPE1	SETSPEC+1*
>> APCLSPE2	SETSPEC2+1*
>> APCLTOTR	SET+1*
>> APCLVSIT	SECT5+1, SECT5+2, SECT5+4, GETPCPT+2, GETPCPT+4, GETPCPT+9
AUPNCPT	GETPCPT+1!
AUPNCPT(	SECT5+6, GETPCPT+3, GETPCPT+8, GETPCPT+12, GETPCPT+14!, GETPCPT+18, GETPCPT+19
C	SECT5+6, 60+1, 60+2, 60+3, 60+4, 60+5, 60+6, 61, 61+1, 62 , 62+1, 63+1, 63+2, 63+3, 63+4, 63+5, 64, 65, 65+1, 65+2 , 65+3, 65+4, 65+5, 65+6, 65+7, 65+8, 65+9, 66, 66+1, 66+2 , 67, 67+1, 67+2, 68, 69, 69+1, 50+1, 51, 51+1, 51+2 , 52, 52+1, 52+2, 52+3, 53, 53+1, 53+2, 53+3, 53+4, 53+5 , 53+6, 53+7, 53+8, 53+9, 53+10, 53+11, GETPCPT+1!, GETPCPT+12, GETPCPT+18, GETPCPT+19 , CPTCHK+2, 1, 2, 3, 3+1, 3+2, 4, 4+1, 5, 5+1 , 5+2, 5+3, 5+4, 5+5, 5+6, 6, 7, 7+1, 7+2, 7+3 , 7+4, 8, 8+1, 8+2, 9, 9+1, 10+1, 10+2, 10+3, 10+4 , 10+5, 11+1, 11+2, 11+3, 11+4, 11+5, 11+6, 11+7, 12, 13 , 14, 15, 16, 17, 18, 19, 20, 21, 21+1, 22 , 23, 24, 25, 26, 27, 28, 29, 29+1, 30, 30+1 , 33, FEEAMT~, FEEAMT+2, FEEAMT+6
DIC	O+1!, S+1!
DIC("A"	O+1, S+1
DIC("B"	S+1*
DIC(0	O+1, S+1
DUZ	USR+1
DUZ(2	LOC+1, S+1
>> E	GETPCPT+2*
>> F	GETPCPT+21*, GETPCPT+22
>> G	SECT5+1, SECT5+2, SET+1, SETSPEC+1, 60+1, 60+2, 60+3, 60+4, 60+5, 60+6 , 61, 61+1, 62, 62+1, 63+1, 63+2, 63+3, 63+4, 63+5, 64 , 65, 65+1, 65+2, 65+3, 65+4, 65+5, 65+6, 65+7, 65+8, 65+9 , 66, 66+1, 66+2, 67, 67+1, 67+2, 68, 69, 69+1, 50+1 , 51, 51+1, 51+2, 52, 52+1, 52+2, 52+3, 53, 53+1, 53+2 , 53+3, 53+4, 53+5, 53+6, 53+7, 53+8, 53+9, 53+10, 53+11, SETSPEC2+1 , 1, 2, 3, 3+1, 3+2, 4, 4+1, 5, 5+1, 5+2* , 5+3, 5+4, 5+5, 5+6, 6, 7, 7+1, 7+2, 7+3, 7+4 , 8, 8+1, 8+2, 9, 9+1, 10+1, 10+2, 10+3, 10+4, 10+5 , 11+2, 11+3, 11+4, 11+5, 11+6, 12, 13, 14, 15, 16 , 17, 18, 19, 20, 21, 21+1, 22, 23, 24, 25 , 26, 27, 28, 29, 29+1, 30, 30+1, 33, 44*
>> I	GETPCPT+5, GETPCPT+6, GETPCPT+12
IOM	CTR+1
>> M	GETPCPT+17, GETPCPT+22, GETPCPT+24
>> N	11+1*, 11+2
T	FEEAMT~, FEEAMT+1, FEEAMT+6
U	SECT5+6, GETPCPT+5, GETPCPT+6, GETPCPT+8, GETPCPT+10, GETPCPT+11, GETPCPT+12, GETPCPT+14, GETPCPT+19, GETPCPT+22 , GETPCPT+24, CPTCHK+2, FEEAMT+6, USR+1, LOC+1
X	SECT5+4, SECT5+5, GETPCPT+1!, GETPCPT+14, GETPCPT+15!, GETPCPT+17, GETPCPT+18, GETPCPT+20, GETPCPT+24, CPTCHK+1 , CPTCHK+2, CTR~, CTR+1, FEEAMT+4~, FEEAMT+5, FEEAMT+6
Y	GETPCPT+1!, GETPCPT+3, GETPCPT+4, GETPCPT+5, GETPCPT+9, GETPCPT+10, GETPCPT+11, GETPCPT+14, GETPCPT+15!, CTR~ , CTR+1, FEEAMT+6*, O+2, O+3, S+2, S+3
Z	GETPCPT+1!, GETPCPT+11, GETPCPT+12, GETPCPT+14!, GETPCPT+15!, 11+1
Z(	GETPCPT+14*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCAR2

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
FEEAMT(C,T)	;
S	;all communities within APCLSU su
60	;
61
62
63	;
64
65
66
67
68
69
SPEC2	;
SETSPEC	;
24
25
26
SET	;
20
21
22
23
CTR(X,Y)	;EP - Center X in a field Y wide.
44
28
29
1
SETSPEC2	;
3
2
5
4
7
6
9
8
CPTCHK	;
27
GETPCPT	;get primary cpt. e&m then most expensive
O	;one location
USR()	;EP - Return name of current user from ^VA(200.
12
11	;anesthesia
10	;counseling
13
SECT5	;EP
15
14
17
16
19
18
31	;
30
51
50	;
53
52
33
LOC()	;EP - Return location name from file 4 based on DUZ(2).
32	;
SPEC	;