Routine: APCLCP5

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC ^DIC EN^DIQ ^DIR
Patient Care Component Reports	3	(O,OC,T,TC)^APCLCP1 XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS VA Utilities	2	^XBDBQUE $$PROVCLSC^XBFUNC1

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
LOC	;get location
GETCODE	;
ERR
EOJ
V1	;
INFORM	;
DEMO	;
GETPPOV	;
PROC21
END	;
ZIS	;
ED	;get ending date
START	;
CLINIC	;
XIT	;
V	; Run by visit date
PROC2	;
PROCESS	;EP - called from xbdbque
GETDATES	;
PROC	;
GETGROUP	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
O^APCLCP1	LOC+6
OC^APCLCP1	CLINIC+6
T^APCLCP1	LOC+7
TC^APCLCP1	CLINIC+7
XTMP^APCLOSUT	V+2
$$DEMO^APCLUTL	PROC+2
DEMOCHK^APCLUTL	DEMO+1
^DIC	GETGROUP+1
EN^DIQ	GETGROUP+5
^DIR	BD+1, ED+1, LOC+3, CLINIC+3
^XBDBQUE	DEMO+4
$$PROVCLSC^XBFUNC1	PROC2+3

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",!,"CHART REVIEWS 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
Routine Call	DIC Line Location: GETGROUP+1
Routine Call	DIR Line Location: BD+1 ED+1 LOC+3 CLINIC+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCLACTG - [#9001003.6]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PROCESS+4
^APCLACTG - [#9001003.6]	PROCESS+2, PROCESS+3, PROC21
^AUPNVPOV - [#9000010.07]	GETCODE+2, GETPPOV+2
^AUPNVPOV("AD"	V1+1, GETPPOV+1, GETPPOV+2
^AUPNVPRV - [#9000010.06]	PROC+6, PROC2+2, PROC21+3, PROC21+4
^AUPNVPRV("AD"	V1+1, PROC+6, PROC2+1
^AUPNVSIT - [#9000010]	V1+1
^AUPNVSIT("B"	V+3, V+4, V1+1
^AUPNVTM - [#9000010.19]	PROC21+6
^AUPNVTM("AD"	PROC21+5, PROC21+6
^DD(9000010.06	PROC2+3
^DIC(7 - [#7]	PROC2+6, PROC2+7
^VA(200 - [#200]	PROC2+4
^XTMP(	V+1!, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8

Label References

Name	Line Occurrences
@(	GETCODE+3
BD	ED+2, LOC+4
CLINIC	LOC+5, CLINIC+6, CLINIC+7, DEMO+2
END	V+3
EOJ	END+1, V1+1
GETCODE	PROC21+1
GETGROUP	BD+2
GETPPOV	GETCODE+1
INFORM	START+5
LOC	LOC+6, LOC+7, CLINIC+4
PROC	V1+1
PROC2	PROC+10
PROC21	PROC2+3
V1	V+4
XIT	GETGROUP+2, DEMO+5
ZIS	CLINIC+5

Naked Globals

Name	Field # of Occurrence
^("ACT"	PROC21+7*
^("NOACT"	PROC21+5*
^("PRIM"	PROC21+3*
^("SEC"	PROC21+4*
^("TOTAL"	PROC21+2*
^("TT"	PROC21+8*
^(0	PROCESS+2, PROCESS+3, V1+1, PROC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+3!
APCL1	XIT+1!, PROC+6, PROC+7, PROC+8, EOJ!, GETCODE+2, GETPPOV+1, GETPPOV+2*
APCL2	XIT+1!, PROC+6, EOJ!, GETPPOV+2
APCL80S	XIT+1!
APCLACTG	GETGROUP+3*, XIT+2!, PROCESS+2, PROCESS+3, PROC21
APCLAP	XIT+1!, PROC+6, PROC2+2, PROC2+3, PROC2+4, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7 , PROC21+8
APCLBD	BD+3*, ED+1, ED+4, XIT+1!
APCLBDD	XIT+1!
APCLBT	XIT+1!, PROCESS+1*, V+1, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8
APCLCLN	CLINIC+1!, CLINIC+5!, PROC+5
APCLCLN(	PROC+5
APCLCODE	EOJ!, PROC21+1, GETCODE+4*
>> APCLDEMO	DEMO+1, DEMO+2, PROC+2
APCLDISC	XIT+1!, EOJ!, PROC2+3, PROC2+7, PROC21
APCLDT	XIT+1!
APCLED	ED+3*, XIT+1!, V+4
APCLEDD	XIT+1!
>> APCLET	END+2*
APCLGLOB	XIT+2!, PROCESS+3, PROCESS+4, PROCESS+5*
APCLIPTR	EOJ!, GETCODE+2*, GETCODE+4
APCLJOB	XIT+2!, PROCESS+1*, V+1, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7, PROC21+8
APCLLENG	XIT+1!
APCLLOC	LOC+1!, LOC+5!, XIT+1!, PROC+4
APCLLOC(	PROC+4
APCLNSP	START+3, START+4, XIT+3!, V+1, V+2, PROC21+2, PROC21+3, PROC21+4, PROC21+5, PROC21+7 , PROC21+8
APCLODAT	XIT+1!, V+3, V+4, V1+1
APCLPG	XIT+1!
APCLPIEC	XIT+2!, PROCESS+3, PROCESS+4, PROCESS+5*
APCLPRIM	XIT+1!, EOJ!
>> APCLQ	LOC+6, LOC+7, CLINIC+6, CLINIC+7
APCLQUIT	XIT+1!
APCLRRTN	XIT+2!, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, GETCODE+3
APCLSD	ED+4*, XIT+1!, V+3, V+4
APCLSITE	START+2*, XIT+1!
APCLSKIP	XIT+1!, PROC+1!, EOJ!
APCLSORT	START+3, START+4, XIT+3!, INFORM+3
APCLSORV	START+3, START+4, XIT+3!, EOJ, PROC21+1, PROC21+2, PROC21+3, PROC21+4, PROC21+7, PROC21+8
APCLSUB	XIT+3!
APCLVACT	XIT+1!, PROC21+6*, PROC21+7
APCLVAL	XIT+3!
APCLVDFN	XIT+1!, V1+1*, PROC+6, PROC2+1, PROC21+5, PROC21+6, GETPPOV+1, GETPPOV+2
APCLVLOC	XIT+1!, PROC+9*, EOJ!
APCLVREC	XIT+1!, V1+1*, PROC+2, PROC+3, PROC+4, PROC+5, PROC+9, EOJ!, GETPPOV+1
APCLVTM	XIT+1!, EOJ!, PROC21+6*
APCLVTT	XIT+1!, EOJ!, PROC21+6*, PROC21+8
APCLX	XIT+1!, EOJ!
APCLY	XIT+1!, EOJ!, PROC2+4*, PROC2+5, PROC2+6, PROC2+7
APCLZ	XIT+3!, PROC2+1*, PROC2+2, PROC21+3, PROC21+4
DA	GETGROUP+5*!, LOC+3!, CLINIC+3!
DIC	GETGROUP+1, GETGROUP+5!
DIC("A"	GETGROUP+1*
DIC(0	GETGROUP+1*
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!
IOF	INFORM+1
M	XIT+3!
POP	XIT+3!
S	XIT+3!
T	XIT+3!
TS	XIT+3!
U	GETGROUP+4, PROCESS+2, PROCESS+3, V1+1, PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+9 , PROC2+2, PROC2+3, PROC2+4, PROC2+7, PROC21+3, PROC21+4, PROC21+6, GETCODE+2, GETPPOV+1, GETPPOV+2
X	ED+4, XIT+3!, PROCESS+4*
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!
Z	XIT+3!
ZTSK	XIT+3!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLCP5

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: