Routine: APCLYV62

Package	Total	Call Graph
Patient Care Component Reports	1	DONE^APCLOSUT
VA Fileman	1	^DIR

Package

Total

Call Graph

Patient Care Component Reports

DONE^APCLOSUT

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
HEAD
SET	;set up print fields
END	;
CTR(X,Y)	;EP - Center X in a field Y wide.
TIME
TOTALS	;print totals
SET4
SET5
INIT	;initialize variables
SET1
SET2
SET3
PAGE	;form feed to new page
FINAL	;print grand totals

Name	Field # of Occurrence
DONE^APCLOSUT	END+1
^DIR	TOTALS+4, PAGE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data to report." Line Location: INIT+1
Function Call: WRITE	Prompt: !,$E(APCLVDAT,4,5),"/",$E(APCLVDAT,6,7),"/",$E(APCLVDAT,2,3) Line Location: SET5+3
Function Call: WRITE	Prompt: ! Condition for execution: APCLFLG Line Location: SET5+4
Function Call: WRITE	Prompt: ?15,APCLCL,?60,$J(APCLCNT,5) Line Location: SET5+4
Function Call: WRITE	Prompt: !!?30,"TOTAL PROVIDER ENTRIES: ",?60,$J(APCLTOT,5),!! Line Location: FINAL+2
Function Call: WRITE	Prompt: !!?21,"TOTAL VISITS FOR PROVIDER:",?60,$J(APCLPCNT,5) Line Location: TOTALS+2
Function Call: WRITE	Prompt: ! Line Location: TOTALS+4
Function Call: WRITE	Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPAGE Line Location: HEAD+1
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+2
Function Call: WRITE	Prompt: ?(80-$L(X)/2),X Line Location: HEAD+3
Function Call: WRITE	Prompt: !,Y,?80-$L(APCLCS)\2,"(",APCLCS,")" Line Location: HEAD+4
Function Call: WRITE	Prompt: !,$$CTR(X,80) Line Location: HEAD+6
Function Call: WRITE	Prompt: !?28,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3) Line Location: HEAD+7
Function Call: WRITE	Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",$E(APCLED,2,3) Line Location: HEAD+8
Function Call: WRITE	Prompt: !!,"VISIT DATES",?15,"CLINIC",?60,"NUMBER OF VISITS" Line Location: HEAD+9
Function Call: WRITE	Prompt: !,"-----------",?15,"------",?60,"----------------" Line Location: HEAD+10
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: TOTALS+4 PAGE+2

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HEAD+4
^DIC(4 - [#4]	HEAD
^VA(200 - [#200]	HEAD+1
^XTMP("APCLYV6"	INIT+1, SET1, SET2, SET3, SET4, SET5, END+5!

Name	Line Occurrences
$$CTR	HEAD+6
END	INIT+1, SET4+1, SET5+2
FINAL	SET1
HEAD	INIT+1, SET3+1, PAGE+1, PAGE+3
PAGE	SET5+1, FINAL+1, TOTALS+1
SET1	SET2
SET2	SET3
SET3	SET4+1
SET4	SET5
SET5	SET5+4
TIME	HEAD+2
TOTALS	SET4+1

Name	Field # of Occurrence
^(	SET5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	TIME~, TIME+1*, TIME+2, TIME+3!
%B	TIME~, TIME+1*, TIME+3!
%C	TIME~, TIME+2*, TIME+3!
APCLBD	END+3!, HEAD+7
>> APCLBT	INIT+1, SET1, SET2, SET3, SET4, SET5, END+5
APCLCL	SET4+2, SET5, SET5+4, END+2!
APCLCNT	SET5*, SET5+4, END+2!
APCLCS	SET+1, SET1, SET2, SET3, SET4, SET5, END+3!, HEAD+4*
APCLED	END+3!, HEAD+8
APCLFLG	SET4+2, SET5+3, SET5+4, END+3!
>> APCLJOB	INIT+1, SET1, SET2, SET3, SET4, SET5, END+5
APCLPAGE	INIT+1, INIT+2, END+2!, HEAD*, HEAD+1
APCLPCNT	SET3+1, SET5, END+2!, END+3!, TOTALS+2, TOTALS+3
APCLPDFN	END+4!
APCLPR	SET2+1, SET3, SET4, SET5, END+3!
APCLPRN	SET1+1, SET2, SET3, SET4, SET5, END+3!, HEAD+3*
APCLPRV	END+4!
APCLS	END+3!
>> APCLSCAT(	HEAD+5
APCLSTOP	INIT+2, SET4+1, SET5+2, END+2!, TOTALS+4, PAGE+2*, PAGE+3
APCLSTR	END+4!
APCLTOT	INIT+3, FINAL+2, END+2!, TOTALS+3
APCLVDAT	SET3+1, SET4, SET4+1, SET5, SET5+3, END+2!
DIR	TOTALS+4!, PAGE+2!
DIR(0	TOTALS+4, PAGE+2
DT	HEAD+4
>> DTOUT	TOTALS+4, PAGE+2
DUZ	HEAD+1
DUZ(2	HEAD
IO	TOTALS+4, PAGE+2
IO(0	TOTALS+4, PAGE+2
IOF	HEAD
IOM	CTR+1
IOSL	SET5+1, FINAL+1, TOTALS+1
IOST	TOTALS+4, PAGE+1, PAGE+2
X	HEAD, HEAD+1, HEAD+2, HEAD+3, HEAD+5, HEAD+6, TIME, TIME+1, CTR~, CTR+1
Y	TOTALS+4, HEAD+2, HEAD+4, HEAD+5, PAGE+2, TIME, TIME+3, CTR~, CTR+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLYV62

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: