Routine: APCLCAR

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
VA Fileman	2	^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
EOP	;EP - End of page.
FEE	;
ZIS	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
VLOC	;get visit location of encounter
LOC1	;enter location
USR()	;EP - Return name of current user from ^VA(200.
CHKTAX	;check taxonomies
CTR(X,Y)	;EP - Center X in a field Y wide.
INTRO	;
EXIT	;
CPTL	;
DEMO	;
Y	;fiscal year

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("California Annual Utilization Report of Primary Care Clinics",80) Line Location: APCLCAR+5
Function Call: WRITE	Prompt: !!,"This report will provide data for the California State Annual Utilization",!,"Report of Primary Care Clinics",! Line Location: INTRO+1
Function Call: WRITE	Prompt: !,$$CTR("Updated for the 2008 Report",80),!! Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"Enter the Calender Year of interest. Use a 4 digit year, e.g. 2008, 2007" Line Location: Y+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: Y+11
Function Call: WRITE	Prompt: ! Line Location: VLOC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: LOC1+1
Function Call: WRITE	Prompt: !!,"Cannot continue. Taxonomies not in place." Line Location: CHKTAX+4
Function Call: WRITE	Prompt: !!,"Please enter the FEE Schedule to use in calculating the primary cpt code.",! Line Location: FEE+1
Routine Call	DIC Line Location: LOC1+1 FEE+2
Routine Call	DIR Line Location: Y+7 VLOC+4 CPTL+2 EOP+5

FileNo	Call Tags
^ABMDFEE - [#9002274.01]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX("B"	CHKTAX+3
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1

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

Name	Field # of Occurrence
%	EXIT+2!
%1	EXIT+2!
A	EXIT+1!
>> APCLBD	CHKTAX+2*
>> APCLCPTR	CPTL+1, CPTL+4
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLED	CHKTAX+2*
>> APCLFEE	FEE+3, FEE+4
APCLLOC	VLOC+1!
APCLLOCT	VLOC+1!, LOC1+3, LOC1+4!
APCLLOCT("*"	LOC1+4
>> APCLPER	CHKTAX+2*
>> APCLQ	CHKTAX+1*, CHKTAX+4
>> APCLT	CHKTAX+3*
>> APCLVDT	Y+2, Y+10, CHKTAX+2
B	EXIT+1!
C	EXIT+1!
D	EXIT+1!
DA	LOC1+1!, CPTL+2!
DFOUT	EOP+4!
DIC	Y+8!, LOC1+1!, FEE+2
DIC("S"	LOC1+1*
DIC(0	LOC1+1, FEE+2
DIR	Y+1!, VLOC+4!, CPTL+2!, EOP+3~
DIR("?"	Y+6, VLOC+3
DIR("A"	Y+5, VLOC+2, CPTL+2*
DIR("B"	VLOC+2, CPTL+2
DIR(0	Y+4, VLOC+2, CPTL+2, EOP+5
DIRUT	Y+9*, VLOC+5, CPTL+3, EOP+4!
DLOUT	EOP+4!
DTOUT	EOP+4!
DUOUT	Y+9, EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
E	EXIT+1!
F	EXIT+1!
G	EXIT+1!
H	EXIT+1!
I	EXIT+1!
IO("S"	EOP+2
IOF	APCLCAR+4
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	EXIT+1!
K	EXIT+1!
L	EXIT+1!
M	EXIT+1!
N	EXIT+1!
O	EXIT+1!
P	EXIT+1!
Q	EXIT+1!
R	EXIT+1!
S	EXIT+1!
T	EXIT+1!
U	USR+1, LOC+1
V	EXIT+1!
W	EXIT+1!
X	LOC1+1, CHKTAX+3, EXIT+1!, CTR~, CTR+1
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	Y+10, Y+11, VLOC+6, LOC1+1, LOC1+2, CHKTAX+3*, FEE+3, FEE+4, CPTL+4, EXIT+1! , CTR~, CTR+1
Z	EXIT+1!
>> ZTQUEUED	EOP+2