Routine: APCLER1

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	1	^XBDBQUE
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;get location
CLN	;get clinic at which the patient should have been seen prior
ZIS	;call to XBDBQUE
PRV	;get provider which the patient should have been seen prior
INFORM	;
HR	;48 or 72 hr
ED	;get ending date
LOC1	;enter location
START	;
CLINIC	;
GETDATES	;
XIT	;
PROV	;one provider or all
DEMO	;
DEF

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
DEMOCHK^APCLUTL	DEMO+1
^DIC	CLN+3, LOC1+1, DEF, PRV+3
^DIR	BD+1, ED+1, CLINIC+2, LOC+1, HR+2, PROV+2
^XBDBQUE	DEMO+4

Interaction Calls

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: !!,"You must indicate in which clinic the patient was to have seen seen prior",!,"to returning to the Emergency Room",! Line Location: CLN+2
Function Call: WRITE	Prompt: ! Line Location: LOC+1
Function Call: WRITE	Prompt: !!,"CLINIC CODE 30 - EMERGENCY ROOM MISSING FROM FILE - NOTIFY YOUR SITE MANAGER!!" Line Location: DEF+0
Function Call: WRITE	Prompt: !!,"You must indicate in which provider the patient was to have seen seen prior",!,"to returning to the Emergency Room",! Line Location: PRV+2
Function Call: WRITE	Prompt: !!,"This report will produce a list of patient visits. The visits are those",!,"for which the patient had a clinic visit and then returned within 48/72 hours " Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"of that visit to the Emergency Room. The user selects which clinic" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"and which location of encounter.",! Line Location: INFORM+4
Function Call: WRITE	Prompt: "The user may limit the list to just visits to a particular provider." Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"This list of visits can potentially be used for Ambulatory Indicator A-1",!,"of the Maryland Hospital Association Project.",! Line Location: INFORM+6
Routine Call	DIC Line Location: CLN+3 LOC1+1 DEF PRV+3
Routine Call	DIR Line Location: BD+1 ED+1 CLINIC+2 LOC+1 HR+2 PROV+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Label References

Name	Line Occurrences
BD	ED+2, LOC+2
CLINIC	CLN+3
CLN	CLN+3
GETDATES	CLINIC+3, PROV+3
HR	LOC+3
INFORM	START+4
LOC	CLINIC+4, LOC1+1, HR+3
PROV	PRV+3, DEMO+2
PRV	PRV+3
XIT	BD+2, DEF, DEMO+5
ZIS	PROV+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+3!
APCL1	XIT+1!
APCL2	XIT+1!
APCL3D	XIT+1!
APCLAGE	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!
APCLCLIN	XIT+1!
APCLCLN	CLINIC+1, CLN+4, XIT+1!
APCLDATE	XIT+1!
>> APCLDEMO	DEMO+1, DEMO+2
APCLDFN	XIT+1!
APCLDISC	XIT+1!
APCLDT	XIT+1!
APCLED	ED+3*, XIT+1!
APCLEDD	XIT+1!
APCLERCL	DEF+1*, XIT+1!
APCLET	XIT+1!
APCLFAC	XIT+1!
APCLFRST	XIT+1!
APCLFVD	XIT+1!
APCLHIGH	XIT+1!
>> APCLHR	HR+1, HR+4
APCLHRCN	XIT+1!
APCLIVD	XIT+1!
APCLJOB	START+3*, XIT+1!
APCLLOC	LOC+3, LOC1+2, XIT+1!
APCLLOCC	XIT+1!
APCLNAME	XIT+1!
APCLODAT	XIT+2!
APCLP	XIT+2!
APCLPG	XIT+2!
>> APCLPROV	PROV+1, PRV+4
APCLQUIT	XIT+2!
APCLSD	ED+4*, XIT+2!
APCLSITE	START+2*, XIT+2!
APCLSKIP	XIT+2!
APCLT1	XIT+2!
APCLT2	XIT+2!
APCLV	XIT+2!
APCLVD	XIT+2!
APCLVDFN	XIT+2!
APCLVLOC	XIT+2!
APCLVREC	XIT+2!
APCLX	XIT+2!
APCLY	XIT+2!
APCLZ	XIT+2!
APLCPPOV	XIT+2!
D0	XIT+3!
DA	CLINIC+2!, CLN+3!, LOC1+1!, HR+2!, PROV+2!, PRV+3!, XIT+3!
DIC	CLN+3!, LOC1+1!, DEF!, PRV+3!, XIT+3!
DIC("A"	CLN+3, LOC1+1, PRV+3*
DIC(0	CLN+3, LOC1+1, DEF, PRV+3
DIE	XIT+3!
DIR	BD+1!, ED+1!, CLINIC+2!, LOC+1!, HR+2!, PROV+2!, XIT+3!
DIR("?"	LOC+1*
DIR("A"	BD+1, ED+1, CLINIC+2, LOC+1, HR+2, PROV+2
DIR("B"	CLINIC+2, HR+2, PROV+2*
DIR(0	BD+1, ED+1, CLINIC+2, LOC+1, HR+2, PROV+2
DIRUT	BD+1, BD+2, ED+1, ED+2, CLINIC+3, LOC+2, HR+3, PROV+3, XIT+3!
DR	XIT+3!
DTOUT	XIT+3!
DUOUT	BD+1, ED+1, XIT+3!
DUZ(2	START+1, START+2
H	XIT+3!
IO("Q"	XIT+3!
IOF	INFORM+1
M	XIT+3!
POP	XIT+3!
S	XIT+3!
TS	XIT+3!
X	ED+4, CLN+3, DEF*!, PRV+3, 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, CLINIC+4, CLN+3, CLN+4, LOC+3, LOC1+1, LOC1+2, HR+4 , DEF, DEF+1, PROV+4, PRV+3, PRV+4, XIT+3!
ZTQUEUED	XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLER1

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: