Routine: APCLCP1

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;get location
ZIS	;
ERR
INFORM	;
ED	;get ending date
OC	;EP one location
O	;EP one location
TC	;EP taxonomy
START	;
CLINIC	;
GETDATES	;
XIT	;
T	;EP taxonomy
DEMO	;
GETGROUP	;

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
PEP^AMQQGTX0	T+4, TC+4
DEMOCHK^APCLUTL	DEMO+1
^DIC	GETGROUP+1, O+2, T+3, OC+2, TC+3
EN^DIQ	GETGROUP+5
^DIR	BD+1, ED+1, LOC+3, CLINIC+3
^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: GETGROUP+1
Function Call: WRITE	Prompt: !,"Bye ... " Line Location: GETGROUP+2
Function Call: WRITE	Prompt: !!,"You have selected the ",$P(Y,U,2)," discipline group.",! Line Location: GETGROUP+4
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: !,"Time and Services Report by Provider a Group of Provider Disciplines",!,"that you select.",! Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report displays by ",APCLSORT,", the number of patient",!,"contacts and the total activity and travel time for each provider",!,"with a discipline in the provider discipline group that you select." Line Location: INFORM+3
Function Call: WRITE	Prompt: ! Line Location: INFORM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: T+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ALL locations is NOT an option with this choice",! Line Location: T+6
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: TC+3
Function Call: WRITE	Prompt: !!,$C(7),$C(7),"ALL CLINICs is NOT an option with this choice",! Line Location: TC+6
Routine Call	DIC Line Location: GETGROUP+1 O+2 T+3 OC+2 TC+3
Routine Call	DIR Line Location: BD+1 ED+1 LOC+3 CLINIC+3

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^APCLACTG - [#9001003.6]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences
BD	ED+2, LOC+4
CLINIC	LOC+5, CLINIC+6, CLINIC+7, DEMO+2
GETGROUP	BD+2
INFORM	START+5
LOC	LOC+6, LOC+7, CLINIC+4
O	LOC+6
OC	CLINIC+6
T	LOC+7, T+6
TC	CLINIC+7, TC+6
XIT	GETGROUP+2, DEMO+5
ZIS	CLINIC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+3!
APCL1	XIT+1!
APCL2	XIT+1!
APCL80S	XIT+1!
APCLACTG	GETGROUP+3*, XIT+2!
APCLAP	XIT+1!
APCLBD	BD+3*, ED+1, ED+4, XIT+1!
APCLBDD	XIT+1!
APCLBT	XIT+1!
APCLCLN	CLINIC+1!, CLINIC+5!, TC+2!, TC+5, TC+6!
APCLCLN(	OC+4, TC+7
APCLCLN("*"	TC+6
>> APCLDEMO	DEMO+1, DEMO+2
APCLDISC	XIT+1!
APCLDT	XIT+1!
APCLED	ED+3*, XIT+1!
APCLEDD	XIT+1!
APCLGLOB	XIT+2!
APCLJOB	XIT+2!
APCLLENG	XIT+1!
APCLLOC	LOC+1!, LOC+5!, XIT+1!, T+2!, T+5, T+6!
APCLLOC(	O+4, T+7
APCLLOC("*"	T+6
APCLNSP	START+3, START+4, XIT+3!
APCLODAT	XIT+1!
APCLPG	XIT+1!
APCLPIEC	XIT+2!
APCLPRIM	XIT+1!
APCLQ	LOC+6, LOC+7, CLINIC+6, CLINIC+7, O+1!, O+3, T+1!, T+3, T+5, OC+1! , OC+3, TC+1!, TC+3, TC+5
APCLQUIT	XIT+1!
APCLRRTN	XIT+2!
APCLSD	ED+4*, XIT+1!
APCLSITE	START+2*, XIT+1!
APCLSKIP	XIT+1!
APCLSORT	START+3, START+4, XIT+3!, INFORM+3
APCLSORV	START+3, START+4, XIT+3!
APCLSUB	XIT+3!
APCLVACT	XIT+1!
APCLVAL	XIT+3!
APCLVDFN	XIT+1!
APCLVLOC	XIT+1!
APCLVREC	XIT+1!
APCLVTM	XIT+1!
APCLVTT	XIT+1!
APCLX	XIT+1!
APCLY	XIT+1!
APCLZ	XIT+3!
DA	GETGROUP+5*!, LOC+3!, CLINIC+3!, T+3!, TC+3!
DIC	GETGROUP+1, GETGROUP+5!, O+2!, T+3!, OC+2!, TC+3!
DIC("A"	GETGROUP+1, O+2, OC+2*
DIC("S"	T+3, TC+3
DIC(0	GETGROUP+1, O+2, T+3, OC+2, TC+3*
DIR	BD+1!, ED+1!, LOC+3!, CLINIC+3!, XIT+3!
DIR("A"	BD+1, ED+1, LOC+3, CLINIC+3
DIR("B"	LOC+3, CLINIC+3
DIR(0	BD+1, ED+1, LOC+2, CLINIC+2
DIRUT	BD+1, BD+2, ED+1, ED+2, LOC+4, CLINIC+4, XIT+3!
DLOUT	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!
T	XIT+3!
TS	XIT+3!
U	GETGROUP+4
X	ED+4, XIT+3!, T+3, T+7, TC+3, TC+7
X1	ED+4*, XIT+3!
X2	ED+4*, XIT+3!
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	GETGROUP+2, GETGROUP+3, GETGROUP+4, GETGROUP+5, BD+3, ED+1*, ED+3, LOC+5, LOC+6, LOC+7 , CLINIC+5, CLINIC+6, CLINIC+7, XIT+3!, O+3, O+4, T+3, T+4, OC+3, OC+4 , TC+3, TC+4
Z	XIT+3!
ZTQUEUED	XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCP1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: