Routine: APCLAP2

Package	Total	Call Graph
Patient Care Component Reports	3	GETINFO^APCLAP0 $$GETLOC^APCLOCCK DEMOCHK^APCLUTL
VA Fileman	3	DD^%DT C^%DTC ^DIR
IHS VA Utilities	1	^XBDBQUE

Entry Points

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: !,$C(7),$C(7),"REPORT TYPE MISSING!! NOTIFY PROGRAMMER",! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: $C(7),$C(7),!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Function Call: WRITE	Prompt: !,"*** VISIT COUNTS BY ",APCLTITL," ***",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report will generate a count of visits by ",APCLINF,!,"for a date range that you specify.",! Line Location: INFORM+3
Function Call: WRITE	Prompt: "ALL Visits in the database will be included in the tabulation WITH",!,"THE EXCEPTION of the following: " Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"VISIT TYPES: Contract, VA",!,"VISIT SERVICE CATEGORIES: In-Hospital, Hospitalizations,",!,"Historical Events.",! Line Location: INFORM+5
Function Call: WRITE	Prompt: "Visits MUST have a Primary Provider and Purpose of Visit.",! Line Location: INFORM+6
Function Call: WRITE	Prompt: "The report will be sub-totaled by Location of Encounter.",! Line Location: INFORM+7
Routine Call	DIR Line Location: CHECK+3 BD+1 ED+1 CR+3 TOTAL+2

Name	Field # of Occurrence
APCL1	XIT+1!
APCL2	XIT+1!
APCL80S	XIT+2!
APCLADIS	XIT+1!
APCLAP	XIT+1!
APCLBD	BD+3*, ED+1, ED+4, XIT+1!
APCLBDD	XIT+2!
APCLBT	XIT+2!
APCLBTH	START+4*, XIT+2!
APCLCAT	XIT+2!
APCLCLIN	XIT+1!
APCLCRYN	CR+1!, CR+5*
APCLDA1	XIT+2!
APCLDA2	XIT+2!
APCLDATE	XIT+1!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	XIT+1!
APCLDT	XIT+1!
APCLDX	XIT+2!
APCLED	ED+3*, XIT+1!
APCLEDD	XIT+2!
APCLHD1	XIT+2!
APCLHD2	XIT+2!
APCLHIGH	XIT+1!
APCLICD	XIT+2!
APCLINF	XIT+1!, INFORM+3
APCLINFO	XIT+1!
APCLJOB	START+4*, XIT+1!
APCLLENG	XIT+2!
APCLLOC	LOC, LOC+1, LOC+2, XIT+1!
APCLLOCT	XIT+2!
APCLLOW	XIT+2!
APCLODAT	XIT+1!
APCLPG	XIT+2!
APCLPPOV	XIT+1!
APCLPRNT	XIT+2!
APCLPROC	XIT+1!
APCLPROV	XIT+2!
APCLQUIT	START+3, XIT+2!
APCLRPT	START+2, CHECK+1, CHECK+5, CHECK+6, LOC, XIT+1!
APCLSD	ED+4*, XIT+1!
APCLSEC	XIT+2!
APCLSITE	START+1!, XIT+1!, XIT+2!
APCLSKIP	XIT+1!
APCLSORT	XIT+1!
APCLSRT2	XIT+2!
APCLTITL	XIT+2!, INFORM+2
APCLTOT	XIT+2!
>> APCLTOTL	TOTAL+1, TOTAL+4
APCLVDFN	XIT+1!
APCLVLOC	XIT+1!
APCLVREC	XIT+1!
APCLX	XIT+1!
APCLY	XIT+2!
APCLZ	XIT+2!
DA	CR+3!, TOTAL+2!
DIR	CHECK+3!, BD+1!, ED+1!, CR+2!, CR+3!, TOTAL+2!
DIR("?"	CHECK+3*
DIR("A"	CHECK+2, BD+1, ED+1, CR+3, TOTAL+2*
DIR("B"	CR+3, TOTAL+2
DIR(0	CHECK+2, BD+1, ED+1, CR+3, TOTAL+2*
>> DIRUT	CHECK+4, BD+1, BD+2, ED+1, ED+2, CR+4, TOTAL+3
>> DUOUT	BD+1, ED+1
DUZ(2	START+1
IOF	INFORM+1
>> X	ED+4
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
>> Y	CHECK+5, CHECK+6, BD+3, ED+1*, ED+3, CR+5, TOTAL+4