Routine: APCLAP6

Package	Total	Call Graph
VA Fileman	4	^%DT C^%DTC ^DIC ^DIR
Patient Care Component Reports	2	$$GETLOC^APCLOCCK DEMOCHK^APCLUTL
IHS VA Utilities	1	^XBDBQUE
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;get location
D	;which day?
ERR	;
CL	;choose to tally by clinic or location
DEMO	;
F	;enter location
START	;
CLINIC	;
XIT	;
DY	;determine whether to run yearly (calendar) or daily report
Y	;which year
INFORM	;
ZIS	;call to XBDBQUE

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$C(7),!!,"SITE NOT SET IN DUZ(2) - NOTIFY SITE MANAGER!!",!! Line Location: START+1
Function Call: WRITE	Prompt: ! Line Location: D+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC+2
Function Call: WRITE	Prompt: !,$C(7),$C(7),"I can't fit ",C," clinics on this report, please select 1-12 clinics." Line Location: CLINIC+6
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: F+1
Function Call: WRITE	Prompt: !,$C(7),$C(7),"I can't fit ",C," facilities on this report, please select 1-12 facilities." Line Location: F+5
Function Call: WRITE	Prompt: !,$C(7),$C(7),"Enter a valid YEAR only!",! Line Location: ERR+1
Function Call: WRITE	Prompt: !!,"This report will tally the number of visits by primary care providers, by",!,"provider at the locations or to the clinics that you specify.",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report can be run for one day (daily report) or for a year (calendar).",!! Line Location: INFORM+3
Function Call: WRITE	Prompt: "A total number of 6 locations or clinics will fit on an 80 column report,",!,"you may specify up to 12 if you print the report with 132 columns." Line Location: INFORM+4
Routine Call	DIC Line Location: CLINIC+2 F+1
Routine Call	DIR Line Location: DY+2 D+1 CL+2

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

Name	Field # of Occurrence
%	XIT+1!
>> %DT	Y+1*
>> %DT("A"	Y+1*
>> %DT("B"	Y+1*
>> APCLBD	D+4, Y+5
>> APCLBTH	START+3*
APCLCLNT	CL+1!, CLINIC+1!, CLINIC+4
APCLCLNT(	CLINIC+5
APCLCLOC	CL+1!, CL+4*, CL+5
APCLCLOC("NAME"	CL+4*
APCLDATE	DY+1!, D+3*, D+4
>> APCLDEMO	DEMO+1, DEMO+2
APCLDY	DY+1!, DY+4*, DY+5
>> APCLED	D+4, Y+5
>> APCLJOB	START+3*
APCLLOC	CL+1!, LOC+1*, LOC+2
APCLLOCT	CL+1!, F+3
APCLLOCT(	F+4
>> APCLSD	D+4, Y+5
>> APCLSITE	START+2*
APCLYEAR	DY+1!, Y+5*
>> C	CLINIC+5, CLINIC+6, F+4, F+5
D0	XIT+1!
DA	CLINIC+2!, F+1!, XIT+1!
DIC	CLINIC+2!, F+1!, XIT+1!
DIC("S"	CLINIC+2, F+1
DIC(0	CLINIC+2, F+1
DIE	XIT+1!
DIR	DY+2!, D+1!, CL+2!
DIR("A"	DY+2, D+1, CL+2*
DIR("B"	DY+2, CL+2
DIR(0	DY+2, D+1, CL+2*
DIRUT	DY+2, DY+3, D+1, D+2, CL+2*, CL+3, XIT+1!
DR	XIT+1!
DT	Y+1
>> DTOUT	Y+1
>> DUOUT	DY+2, D+1, CL+2
DUZ(2	START+1, START+2
H	XIT+1!
IO("Q"	XIT+1!
IOF	INFORM+1
M	XIT+1!
POP	XIT+1!
S	XIT+1!
TS	XIT+1!
X	D+4, Y+2, Y+5, CLINIC+2, CLINIC+5, F+1, F+4, XIT+1!
X1	D+4, Y+5, XIT+1!
X2	D+4, Y+5, XIT+1!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	DY+4, D+3, Y+3, Y+4, Y+5, CL+4, CLINIC+2, CLINIC+3, F+1, F+2 , XIT+1!
Y(0	CL+4
ZTQUEUED	XIT+1!
ZTSK	XIT+1!