Routine: APCLAP5

Information

APCLAP5 ; IHS/CMI/LAB - APC visit counts by selected vars ;

Package	Total	Call Graph
VA Fileman	4	DD^%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

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;get location
ZIS	;call to XBDBQUE
CL	;choose to tally by clinic or location
ED	;get ending date
F	;enter location
START	;
CLINIC	;
GETDATES	;
XIT	;
DEMO	;
INFORM	;

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: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+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: !!,"This report will tally the number of visits by primary care providers, by date",!,"at the locations or to the clinics that you specify. ",! Line Location: INFORM+2
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+3
Routine Call	DIC Line Location: CLINIC+2 F+1
Routine Call	DIR Line Location: BD+1 ED+1 CL+2

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

Name	Field # of Occurrence
%	XIT+3!
%DT	XIT+3!
APCL1	XIT+1!
APCL2	XIT+1!
APCLAP	XIT+1!
APCLBD	BD+3*, ED+1, ED+4, XIT+1!
APCLBDD	XIT+1!
APCLBT	XIT+1!
APCLBTH	START+3*, XIT+1!
APCLCLNT	CL+1!, CLINIC+1!, CLINIC+4, XIT+1!
APCLCLNT(	CLINIC+5
APCLCLOC	CL+1!, CL+4*, CL+5, XIT+1!
APCLCLOC("NAME"	CL+4*
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	XIT+1!
APCLDT	XIT+1!
APCLED	ED+3*, XIT+1!
APCLEDD	XIT+1!
APCLET	XIT+1!
APCLJOB	START+3*, XIT+1!
APCLL	XIT+1!
APCLLENG	XIT+1!
APCLLOC	CL+1!, LOC+1*, LOC+2, XIT+1!
APCLLOCT	CL+1!, F+3, XIT+1!
APCLLOCT(	F+4
APCLODAT	XIT+1!
APCLPG	XIT+1!
APCLPRIM	XIT+2!
APCLQUIT	XIT+2!
APCLSD	ED+4*, XIT+2!
APCLSITE	START+2*, XIT+2!
APCLSKIP	XIT+2!
APCLSORT	XIT+2!
APCLVD	XIT+2!
APCLVDFN	XIT+2!
APCLVREC	XIT+2!
APCLX	XIT+2!
APCLY	XIT+2!
C	CLINIC+5, CLINIC+6, F+4, F+5, XIT+3!
D0	XIT+3!
DA	CLINIC+2!, F+1!, XIT+3!
DIC	CLINIC+2!, F+1!, XIT+3!
DIC("S"	CLINIC+2, F+1
DIC(0	CLINIC+2, F+1
DIE	XIT+3!
DIR	BD+1!, ED+1!, CL+2!, XIT+3!
DIR("A"	BD+1, ED+1, CL+2*
DIR("B"	CL+2*
DIR(0	BD+1, ED+1, CL+2*
DIRUT	BD+1, BD+2, ED+1, ED+2, CL+2*, CL+3, XIT+3!
DR	XIT+3!
DTOUT	XIT+3!
DUOUT	BD+1, ED+1, CL+2, XIT+3!
DUZ(2	START+1, START+2
H	XIT+3!
IO("Q"	XIT+3!
IOF	INFORM+1
J	XIT+3!
M	XIT+3!
POP	XIT+3!
S	XIT+3!
TS	XIT+3!
X	ED+4, CLINIC+2, CLINIC+5, F+1, F+4, XIT+3!
X1	ED+4*, XIT+3!
X2	ED+4*, XIT+3!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+1*, ED+3, CL+4, CLINIC+2, CLINIC+3, F+1, F+2, XIT+3!
Y(0	CL+4
ZTQUEUED	XIT+3!
ZTSK	XIT+3!