Routine: APCLVPVC

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	2	^XBDBQUE ($$PROVCLS,$$PROVCLSC)^XBFUNC1
Kernel	1	$$FMTE^XLFDT
Patient Care Component Reports	1	(DONE,XTMP)^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
CHKDISC	;
EOJ
HEAD
DONE	;
PRINT	;
PRINT1	;
SEARCH	;
INFORM	;
C1	;
C	;clinic
P1	;
END	;
ZIS	;call to XBDBQUE
ED	;get ending date
P	;
S	;
XIT	;
CHKDISC2	;CHECK DISC IF CONVERTED TO FILE 200
CP	;
HEAD1	;
START	;
PROCESS	;
GETDATES	;

External References

Name	Field # of Occurrence
DD^%DT	ED+1
C^%DTC	ED+4
DONE^APCLOSUT	DONE+1
XTMP^APCLOSUT	PROCESS+3
^DIC	SEARCH+1
^DIR	CP+2, BD+1, ED+1, HEAD+1
^XBDBQUE	ZIS+2
$$PROVCLS^XBFUNC1	CHKDISC2+2
$$PROVCLSC^XBFUNC1	CHKDISC2+3
$$FMTE^XLFDT	PRINT+2

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: !!,?10,"**PROVIDER OR CLINIC VISIT COUNTS FROM A TEMPLATE OF PATIENTS**",!! Line Location: INFORM+2
Function Call: WRITE	Prompt: !!,"This report will tally the number of times a certain pre-defined set of ",!,"patients (within a Template) were seen by various providers",!,"or went to various clinics.",!! Line Location: INFORM+3
Function Call: WRITE	Prompt: "The Template of Patients must first be created prior to running this report!",!! Line Location: INFORM+4
Function Call: WRITE	Prompt: !?61,"-------",! Line Location: PRINT+8
Function Call: WRITE	Prompt: ?52,"Total:",?60,$J(APCLTOT,8),! Line Location: PRINT+9
Function Call: WRITE	Prompt: !?5,$E(APCLPRNT,1,25),?35,$E(APCLSRT2,1,20),?60,$J(^TMP("APCLVPVC",APCLJOB,APCLBTH,APCLSORT,APCLSRT2),8) Line Location: PRINT1+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: "",?3,$P(^DIC(4,APCLSITE,0),U),?58,APCLDT,?72,"Page ",APCLPG,?78,"",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: "",?78,"",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: "",?((80-APCLLENG)/2),"NUMBER OF VISITS BY PROVIDER",?78,"",! Line Location: HEAD1+6
Function Call: WRITE	Prompt: "",?26,"SEARCH TEMPLATE: ",$P(^DIBT(APCLSEAT,0),U),?78,"",! Line Location: HEAD1+7
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+8
Function Call: WRITE	Prompt: !! Line Location: HEAD1+9
Function Call: WRITE	Prompt: ?5,"PROVIDER",?35,"CLASS",?60,"# VISITS",! Line Location: HEAD1+10
Routine Call	DIC Line Location: SEARCH+1
Routine Call	DIR Line Location: CP+2 BD+1 ED+1 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPRV - [#9000010.06]	P+1, P1+1
^AUPNVPRV("AC"	P+1
^AUPNVSIT - [#9000010]	C+1, C1+1, C1+4, C1+5, P1+3, P1+4
^AUPNVSIT("AC"	C+1
^DD(9000010.06	P1+7, CHKDISC+1
^DIBT(	S+1, HEAD1+7
^DIC(16 - [#16]	P1+7
^DIC(4 - [#4]	HEAD1+3
^DIC(40.7 - [#40.7]	C1+4, C1+5
^DIC(6 - [#6]	CHKDISC+2
^DIC(7 - [#7]	CHKDISC+4
^TMP("APCLVPVC"	PROCESS+2!, C1+6, P1+10, PRINT+5, DONE+2!, PRINT1+2, PRINT1+4, PRINT1+5
^VA(200 - [#200]	P1+7, CHKDISC2+1

Label References

Name	Line Occurrences
@(	S+1
BD	ED+2
C1	C+1
CHKDISC	P1+8
CHKDISC2	CHKDISC+1
CP	BD+2
DONE	PRINT+6, PRINT+7
EOJ	END+2, P+1
HEAD	PRINT+3, PRINT+7, PRINT1+1
HEAD1	HEAD
INFORM	START+4
P1	P+1
PRINT1	PRINT+5
XIT	SEARCH+2, CP+3, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(	C1+6, P1+10
^(0	P+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	XIT+4!
A	XIT+2!
APCL1	EOJ!
APCL2	EOJ!
APCL80S	XIT+1!, PRINT+1*, HEAD1+2, HEAD1+8
APCLADIS	XIT+1!
APCLAP	P1+7*, EOJ!, CHKDISC+2, CHKDISC2+1, CHKDISC2+2, CHKDISC2+3
>> APCLBD	BD+3*, ED+1, ED+4, C1+2, P1+5
APCLBDD	XIT+1!
APCLBT	XIT+1!, PROCESS+1*
APCLBTH	START+3*, XIT+1!, PROCESS+2, C1+6, P1+10, PRINT+5, DONE+2, PRINT1+2, PRINT1+4, PRINT1+5
APCLCLIN	EOJ!
APCLCLN	XIT+1!, C1+4*, C1+6
APCLCLNC	XIT+1!, C1+5*, C1+6
APCLCP	CP+1, CP+4, XIT+1!, S+1
APCLDA1	XIT+1!, EOJ!
APCLDA2	XIT+1!, EOJ!
APCLDATE	EOJ!
APCLDISC	P1+8, P1+10, EOJ!, CHKDISC+3, CHKDISC+4, CHKDISC2+2, CHKDISC2+3*
>> APCLDPTR	CHKDISC2+2*
APCLDT	XIT+2!, PRINT+2*, HEAD1+3
APCLDX	XIT+1!, EOJ!
>> APCLED	ED+3*, C1+3, P1+6
APCLEDD	XIT+1!
>> APCLET	END+1*
APCLHD1	XIT+1!
APCLHD2	XIT+1!
APCLHIGH	EOJ!
APCLICD	XIT+1!, EOJ!
APCLJOB	START+3*, XIT+3!, PROCESS+2, C1+6, P1+10, PRINT+5, DONE+2, PRINT1+2, PRINT1+4, PRINT1+5
APCLLENG	XIT+1!, HEAD1+5*, HEAD1+6
APCLLOCC	XIT+1!, EOJ!
APCLLOCT	XIT+1!
APCLLOW	XIT+1!, EOJ!
>> APCLNAME	P1+7*, P1+10
APCLOTHC	XIT+3!
APCLPDFN	XIT+2!, C+1, C1+1, C1+4, C1+5, P+1, P1+1
APCLPG	XIT+1!, PRINT+3, HEAD, HEAD1+1, HEAD1+3
APCLPPOV	EOJ!
APCLPRNT	XIT+2!, PRINT1+3*, PRINT1+4
APCLPROV	XIT+1!, EOJ!
APCLQUIT	XIT+1!, PRINT+4!, PRINT+5, PRINT+6, PRINT+7, PRINT1+1, HEAD+1*
APCLRXCL	XIT+3!
>> APCLSD	ED+4*
APCLSEAT	SEARCH+3*, XIT+2!, S+1, HEAD1+7
APCLSEC	XIT+1!, EOJ!
APCLSITE	START+2*, XIT+2!, HEAD1+3
APCLSKIP	P1+9, EOJ!, CHKDISC2+1*
APCLSORT	XIT+2!, PRINT+4, PRINT+5, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5
APCLSRT2	XIT+1!, EOJ!, PRINT1+2*, PRINT1+4, PRINT1+5
APCLTITL	XIT+1!
APCLTOT	XIT+1!, PRINT+3, PRINT+9, PRINT1+5
APCLVLOC	EOJ!
APCLVREC	P+1*, P1+7, EOJ!
APCLX	EOJ!
APCLY	XIT+1!, EOJ!, CHKDISC+2*, CHKDISC+3, CHKDISC+4
APCLZ	XIT+1!, EOJ!
B	XIT+2!
C	XIT+2!
D	XIT+2!, C1+1, C1+2, C1+3, P1+1, P1+2, P1+3, P1+4*, P1+5, P1+6
DA	SEARCH+1!
>> DFN	S+1*, C+1, P+1
DIC	SEARCH+1*!
DIC("A"	SEARCH+1*
DIC("S"	SEARCH+1*
DIC(0	SEARCH+1*
DICR	SEARCH+1!
DIR	CP+2!, BD+1!, ED+1!, HEAD+1!
DIR("A"	CP+2, BD+1, ED+1*
DIR("B"	CP+2*
DIR(0	CP+2, BD+1, ED+1, HEAD+1
DIRUT	CP+2, CP+3, BD+1, BD+2, ED+1*, ED+2, XIT+4!
DR	SEARCH+1!
DT	PRINT+2
>> DTOUT	HEAD+1
>> DUOUT	CP+2, BD+1, ED+1
DUZ(2	START+1, START+2
E	XIT+2!
F	XIT+2!
H	XIT+4!
I	XIT+2!, PRINT+5*
IO	HEAD+1
IO("Q"	XIT+4!
IO(0	HEAD+1
IOF	INFORM+1, HEAD1+1
IOSL	PRINT+7, PRINT1+1
IOST	HEAD+1
J	XIT+2!
M	XIT+4!
POP	XIT+4!
S	XIT+4!
TS	XIT+4!
U	C+1, C1+1, C1+4, C1+5, P1+1, P1+4, P1+7, CHKDISC+1, CHKDISC+2, CHKDISC+4 , HEAD1+3, HEAD1+7
X	ED+4, XIT+2!, XIT+4!
X1	ED+4*, XIT+4!
X2	ED+4*, XIT+4!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	SEARCH+2, SEARCH+3, CP+4, BD+3, ED+1*, ED+3, XIT+4!, HEAD+1
Z	XIT+2!
ZTQUEUED	XIT+4!
ZTSK	XIT+4!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLVPVC

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: