Routine: APCLRT1

Information

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

Source Information

Source file <APCLRT1.m>

Call Graph

Call Graph Total: 6

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
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
FCLN	;get clinic at which the patient should have been seen prior
SCLN	;get clinic at which the patient should have been seen prior
O	;EP one location
START	;
CLINIC	;
GETDATES	;
XIT	;
T	;
DX	;should other visit have the same diagnosis?
PROV	;one provider or all
TCLN	;get clinic at which the patient should have been seen prior
DEMO	;
DEF	;S X=30,DIC(0)="M",DIC="^DIC(40.7," D ^DIC K DIC,X I Y=-1 W !!,"CLINIC CODE 30 - EMERGENCY ROOM MISSING FROM FILE - NOTIFY YOUR SITE MANAGER!!" G XIT
INC	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
DEMOCHK^APCLUTL	DEMO+1
^DIC	PRV+3, TCLN+3, FCLN+3, SCLN+3, O+2, T+2
^DIR	BD+1, ED+1, CLINIC+3, LOC+3, PROV+2, DX+2, INC+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: !!,"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 72 hours " Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"of that visit to the same clinic or to another clinic." Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"The user selects which clinic 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: !!,"You must indicate in which clinic the patient returned to",!,"w/in 72 hours of another clinic visit." Line Location: TCLN+2
Function Call: WRITE	Prompt: !!,"You must indicate in which clinic the patient was seen and returned",!,"to any clinic w/in 72 hours.",! Line Location: FCLN+2
Function Call: WRITE	Prompt: !!,"You must indicate in which clinic the patient was seen and returned",!,"to w/in 72 hours.",! Line Location: SCLN+2
Routine Call	DIC Line Location: PRV+3 TCLN+3 FCLN+3 SCLN+3 O+2 T+2
Routine Call	DIR Line Location: BD+1 ED+1 CLINIC+3 LOC+3 PROV+2 DX+2 INC+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
^ATXAX - [#9002226]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	T+4

Label References

Name	Line Occurrences
BD	ED+2, LOC+4
CLINIC	CLINIC+7, CLINIC+8, CLINIC+9
DX	PROV+4, INC+3
FCLN	CLINIC+8
GETDATES	CLINIC+4, PROV+3
HR	LOC+5
INFORM	START+4
LOC	CLINIC+6, LOC+6, LOC+7
O	LOC+6
PROV	PRV+3, DX+3, DEMO+2
PRV	PRV+3
SCLN	CLINIC+7
T	LOC+7
TCLN	CLINIC+9
XIT	BD+2, DEMO+5

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	XIT+1!
>> APCLCLTY	CLINIC+1, CLINIC+5, CLINIC+6, CLINIC+7, CLINIC+8, CLINIC+9
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!
>> APCLEINC	INC+1, INC+4
APCLET	XIT+1!
APCLFAC	XIT+1!
>> APCLFCLN	CLINIC+1, CLINIC+6, CLINIC+7, CLINIC+8, TCLN+1, TCLN+6, FCLN+1, FCLN+6, SCLN+1, SCLN+6
APCLFRST	XIT+1!
APCLFVD	XIT+1!
APCLHIGH	XIT+1!
>> APCLHR	HR+1*
APCLHRCN	XIT+1!
APCLIVD	XIT+1!
APCLJOB	START+3*, XIT+1!
APCLLOC	LOC+1!, LOC+5!, XIT+1!
APCLLOC(	O+4, T+4
APCLLOCC	XIT+1!
APCLNAME	XIT+1!
APCLODAT	XIT+2!
APCLP	XIT+2!
APCLPG	XIT+2!
>> APCLPROV	PROV+1, PRV+4
APCLQ	LOC+6, LOC+7, O+1!, O+3, T+1!, T+3
APCLQUIT	XIT+2!
APCLRTCL	XIT+1!
APCLSD	ED+4*, XIT+2!
>> APCLSDX	DX+1, DX+4
APCLSITE	START+2*, XIT+2!
APCLSKIP	XIT+2!
APCLT1	XIT+2!
APCLT2	XIT+2!
>> APCLTCLN	CLINIC+1, CLINIC+6, CLINIC+9, TCLN+1, TCLN+6, FCLN+1, FCLN+6, SCLN+1, SCLN+6
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+3!, LOC+3!, PROV+2!, PRV+3!, DX+2!, INC+2!, XIT+3!, TCLN+3!, FCLN+3!, SCLN+3!
DIC	PRV+3!, XIT+3!, TCLN+3!, FCLN+3!, SCLN+3!, O+2!, T+2!
DIC("A"	PRV+3, TCLN+3, FCLN+3, SCLN+3, O+2, T+2
DIC("S"	T+2*
DIC(0	PRV+3, TCLN+3, FCLN+3, SCLN+3, O+2, T+2
DIE	XIT+3!
DIR	BD+1!, ED+1!, CLINIC+3!, LOC+3!, PROV+2!, DX+2!, INC+2!, XIT+3!
DIR("A"	BD+1, ED+1, CLINIC+3, LOC+3, PROV+2, DX+2, INC+2*
DIR("B"	CLINIC+3, LOC+3, PROV+2, DX+2, INC+2*
DIR(0	BD+1, ED+1, CLINIC+2, LOC+2, PROV+2, DX+2, INC+2*
DIRUT	BD+1, BD+2, ED+1, ED+2, CLINIC+4, LOC+4, PROV+3, DX+3, INC+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, PRV+3, XIT+3!, TCLN+4, FCLN+4, SCLN+4, T+4*
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+5, LOC+5, LOC+6, LOC+7, PROV+4, PRV+3, PRV+4 , DX+4, INC+4, XIT+3!, TCLN+5, TCLN+6, FCLN+5, FCLN+6, SCLN+5, SCLN+6, O+3 , O+4, T+3, T+4
ZTQUEUED	XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLRT1

Call Graph Total: 6