Routine: APCLPNP

Package	Total	Call Graph
VA Fileman	2	EN^DIQ1 ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component Reports	1	DONE^APCLOSUT

Entry Points

Name	Comments	DBIA/ICR reference
POV
HEAD	;
SET	;
END	;
HD1
SET41
PN
TIME
TOTALS	;print totals
SET4	;
SET5	;
INIT	;initialize variables
PRV
SET2	;
SET3
PAGE	;form feed to new page
PRNT	;
FINAL	;print grand totals

External References

Name	Field # of Occurrence
DONE^APCLOSUT	END+1
EN^DIQ1	SET41
^DIR	TOTALS+7, PAGE+2
$$VAL^XBDIQ1	POV+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No visits to report." Line Location: INIT+2
Function Call: WRITE	Prompt: !,$E(APCLNAME,1,13),?15,$J(APCLHRCN,6),?23,$J(APCLAGE,2) Line Location: SET41+3
Function Call: WRITE	Prompt: ! Line Location: PRNT+2
Function Call: WRITE	Prompt: ?26,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3)_" "_$E($P(APCLVDT,".",2)_"0000",1,4) Line Location: PRNT+4
Function Call: WRITE	Prompt: ?41,APCLCLS Line Location: PRV+5
Function Call: WRITE	Prompt: ! Line Location: PN+5
Function Call: WRITE	Prompt: ! Line Location: PN+5
Function Call: WRITE	Prompt: ?45,APCLPN,?53,$S($D(APCLNARR(APCLPOVC)):APCLNARR(APCLPOVC),1:"") Line Location: PN+7
Function Call: WRITE	Prompt: !!?39,"TOTAL PATIENTS: ",APCLPGRD Line Location: FINAL+3
Function Call: WRITE	Prompt: !!?41,"TOTAL VISITS: ",APCLVGRA Line Location: FINAL+4
Function Call: WRITE	Prompt: !!?28,"TOTAL PATIENTS FOR CLINIC: ",APCLPTOT Line Location: TOTALS+2
Function Call: WRITE	Prompt: !!?30,"TOTAL VISITS FOR CLINIC: ",APCLVTOT Line Location: TOTALS+3
Function Call: WRITE	Prompt: ! Line Location: TOTALS+7
Function Call: WRITE	Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?72,"Page ",APCLPAGE Line Location: HEAD+3
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+4
Function Call: WRITE	Prompt: ?(80-$L(X)/2),X Line Location: HEAD+7
Function Call: WRITE	Prompt: !,Y Line Location: HD1+0
Function Call: WRITE	Prompt: ?28,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",$E(APCLBD,2,3) Line Location: HD1+1
Function Call: WRITE	Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",$E(APCLED,2,3) Line Location: HD1+2
Function Call: WRITE	Prompt: !!,"NAME",?16,"HRCN",?22,"AGE",?27,"VISIT DATE",?41,"PRV",?46,"PN",?53,"PROV NARRATIVE",! Line Location: HD1+3
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: TOTALS+7 PAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SET4+4, SET4+5
^AUPNVDEN - [#9000010.05]	PN+2
^AUPNVDEN("AD"	PN
^AUPNVPOV - [#9000010.07]	POV+2
^AUPNVPOV("AD"	POV
^AUPNVPRV - [#9000010.06]	PRV+2, PRV+3
^AUPNVPRV("AD"	PRV
^AUTTPN(	PN+4
^DD("DD"	HD1
^DIC(4 - [#4]	HEAD+2
^DIC(40.7 - [#40.7]	HEAD+7
^DIC(6 - [#6]	PRV+3
^DIC(7 - [#7]	PRV+4
^UTILITY("DIQ1"	SET41!, SET41+1!
^VA(200 - [#200]	HEAD+3
^XTMP("APCLPN"	INIT+2, SET+2, END+2!, SET2+2, SET3, SET41+6, SET5+1

Label References

Name	Line Occurrences
END	INIT+2, SET+3, FINAL+1
FINAL	SET+4
HD1	HEAD+5, HEAD+6
HEAD	INIT+2, SET2+1, FINAL+2, PAGE+1, PAGE+3
PAGE	SET41+2, PRNT+2, PN+5, TOTALS+1
PN	POV+1, PN+2, PN+8
POV	PRV+1, POV+2, POV+6
PRNT	SET5+1
PRV	PRV+2
SET2	SET+2
SET3	SET2+2
SET4	SET3
SET41	SET4+4
SET5	SET41+6
TIME	HEAD+4
TOTALS	SET2+4

Naked Globals

Name	Field # of Occurrence
^(0	PRV+2, POV+2, PN+2, HEAD+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%A	TIME+1*, TIME+2, TIME+3!
%B	TIME+1*, TIME+3!
%C	TIME+2*, TIME+3!
>> APCLAGE	SET41+1*, SET41+3
>> APCLBD	HD1+1
>> APCLBT	INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLCL	FINAL+1
>> APCLCLS	PRV+4*, PRV+5
>> APCLCLX	SET+1, SET+2, SET2+2, SET3, SET41+6, SET5+1, HEAD+5, HEAD+6, HEAD+7
>> APCLDFN	SET2+2, SET3, SET4+4, SET4+5, SET41, SET41+1, SET41+6, SET5+1
>> APCLED	HD1+2
>> APCLFPV	PRNT+3, PN+5, PN+6
>> APCLFVS	SET4+1, PRNT+2, PRNT+3
>> APCLHRCN	SET4+4, SET4+5, SET41+3
>> APCLJOB	INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLLOC	SET4+4
>> APCLNAME	SET2+1, SET2+2, SET3, SET41+3, SET41+6, SET5+1
>> APCLNAR	POV+3*, POV+5
APCLNARR	PRV+1!, PRV+8!
APCLNARR(	POV+5*, PN+7
>> APCLPAGE	INIT+1, HEAD+2, HEAD+3
>> APCLPGRD	INIT+3, FINAL+3, TOTALS+4
>> APCLPN	PN+3, PN+4, PN+7
>> APCLPOVC	PRNT+3, PRV+1, PRV+8, POV+1, POV+4, POV+5, PN+7
>> APCLPRV	PRNT+7, PRV, PRV+1, PRV+2, PRV+3
>> APCLPTOT	SET2+1, SET4+3, TOTALS+2, TOTALS+4
>> APCLPV	PRV+1, PRV+8, POV*, POV+1, POV+2, POV+3
>> APCLSTOP	INIT+1, SET+2, SET+3, SET2+2, SET2+3, SET3, SET41+2, SET5+1, PRNT+2, PN+5 , TOTALS+7, PAGE+2*, PAGE+3
>> APCLSTR	POV+2, PN+2, PN+3
>> APCLVDEN	POV+1, PN, PN+1, PN+2
>> APCLVDFN	SET41+6, SET5+1, PRV, POV, PN
>> APCLVDT	SET4+1, SET41+6, SET5+1, PRNT+4
>> APCLVGRA	INIT+3, FINAL+4, TOTALS+4
>> APCLVTOT	SET2+1, PRNT+1, TOTALS+3, TOTALS+4
>> DA	SET41*
>> DIC	SET41*
DIR	TOTALS+7!, PAGE+2!
DIR(0	TOTALS+7, PAGE+2
>> DIRUT	TOTALS+7
>> DR	SET41*
DT	HD1
>> DTOUT	PAGE+2
DUZ	HEAD+3
DUZ(2	SET4+5, HEAD+2
IO	TOTALS+7, PAGE+2
IO(0	TOTALS+7, PAGE+2
IOF	HEAD+1
IOSL	SET41+2, PRNT+2, PN+5, TOTALS+1
IOST	TOTALS+5, TOTALS+7, PAGE+1, PAGE+2
U	SET2+3, SET4+4, SET4+5
>> X	PRV+3, PRV+4, HEAD+2, HEAD+3, HEAD+4, HEAD+5, HEAD+6, HEAD+7, TIME, TIME+1
>> Y	HEAD+4, HD1, PAGE+2, TIME, TIME+3*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPNP

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: