Routine: APCLYV32

Package	Total	Call Graph
IHS VA Utilities	2	$$VAL^XBDIQ1 $$PROVCLSC^XBFUNC1
VA Fileman	2	EN^DIQ1 ^DIR
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
Patient Care Component Reports	1	DONE^APCLOSUT

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCALLS

Entry Points

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

External References

Name	Field # of Occurrence
DONE^APCLOSUT	END+1
EN^DIQ1	SET41+1
^DIR	TOTALS+7, PAGE+2
$$ICDDX^ICDEX	POV+6
$$ICDOP^ICDEX	PRC+6
$$VAL^XBDIQ1	POV+7
$$PROVCLSC^XBFUNC1	PRV+4

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+4
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,$E(APCLCLSC,1,3) Line Location: PRV+4
Function Call: WRITE	Prompt: ?41,APCLCLS Line Location: PRV+7
Function Call: WRITE	Prompt: ! Line Location: POV+8
Function Call: WRITE	Prompt: ! Line Location: POV+8
Function Call: WRITE	Prompt: ?45,APCLVPOV,?56,$E(APCLNAR,1,23) Line Location: POV+10
Function Call: WRITE	Prompt: ! Line Location: PRC+8
Function Call: WRITE	Prompt: ! Line Location: PRC+8
Function Call: WRITE	Prompt: ?45,APCLPRC,?56,$E(APCLNAR,1,23) Line Location: PRC+10
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,?70,"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,"ICD",?56,"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+3, SET4+4
^AUPNVPOV - [#9000010.07]	POV+2
^AUPNVPOV("AD"	POV
^AUPNVPRC - [#9000010.08]	PRC+2
^AUPNVPRC("AD"	PRC
^AUPNVPRV - [#9000010.06]	PRV+2, PRV+3
^AUPNVPRV("AD"	PRV
^AUTNPOV - [#9999999.27]	PRC+7
^DD("DD"	HD1
^DD(9000010.06	PRV+4
^DIC(4 - [#4]	HEAD+2
^DIC(40.7 - [#40.7]	HEAD+7
^DIC(6 - [#6]	PRV+5
^DIC(7 - [#7]	PRV+6
^UTILITY("DIQ1"	SET41+1!, SET41+2!
^VA(200 - [#200]	HEAD+3
^XTMP("APCLYV3"	INIT+2, SET+2, END+2!, SET2+2, SET3, SET41+6, SET5+1

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	SET4+4, PRV+2, POV+2, PRC+2, PRC+7, HEAD+7

Local Variables

Legend:

>>	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!
>> APCLAGE	SET41+2*, SET41+4
>> APCLBD	HD1+1
>> APCLBT	INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLCL	FINAL+1
>> APCLCLS	PRV+6*, PRV+7
>> APCLCLSC	PRV+4*
>> APCLCLX	SET+1, SET+2, SET2+2, SET3, SET41+6, SET5+1, HEAD+5, HEAD+6, HEAD+7
>> APCLDFN	SET2+2, SET3, SET4+3, SET4+4, SET41+1, SET41+2, SET41+6, SET5+1
>> APCLED	HD1+2
>> APCLFPV	PRNT+3, POV+8, POV+9, PRC+8, PRC+9*
>> APCLFVS	SET4+1, PRNT+2, PRNT+3
>> APCLHRCN	SET4+3, SET4+4, SET41+4
>> APCLJOB	INIT+2, SET+2, END+2, SET2+2, SET3, SET41+6, SET5+1
>> APCLLOC	SET4+3
>> APCLNAME	SET2+1, SET2+2, SET3, SET41+4, SET41+6, SET5+1
>> APCLNAR	POV+4, POV+7, POV+10, PRC+4, PRC+7, PRC+10
>> APCLPAGE	INIT+1, HEAD+2, HEAD+3
>> APCLPGRD	INIT+3, FINAL+3, TOTALS+4
>> APCLPRC	PRC+4, PRC+6, PRC+10
>> APCLPRV	PRNT+6, PRV, PRV+1, PRV+2, PRV+3
>> APCLPS	POV+3, PRC+3
>> APCLPTOT	SET2+1, SET4+2, TOTALS+2, TOTALS+4
>> APCLPV	PRV+1, PRVJMP+1, POV*, POV+1, POV+2, POV+7
>> APCLSTOP	INIT+1, SET+2, SET+3, SET2+2, SET2+3, SET3, SET41+3, SET5+1, PRNT+2, POV+8 , PRC+8, TOTALS+7, PAGE+2*, PAGE+3
>> APCLSTR	POV+2, POV+3, POV+4, PRC+2, PRC+3, PRC+4
>> APCLVDFN	SET41+6, SET5+1, PRV, POV, PRC
>> APCLVDT	SET4+1, SET41+6, SET5+1, PRNT+4
>> APCLVGRA	INIT+3, FINAL+4, TOTALS+4
>> APCLVPOV	POV+4, POV+6, POV+10
>> APCLVPRC	POV+1, PRC, PRC+1, PRC+2
>> APCLVRV	POV+3, PRC+3
>> APCLVTOT	SET2+1, PRNT+1, TOTALS+3, TOTALS+4
>> DA	SET41+1*
>> DIC	SET41+1*
DIR	TOTALS+7!, PAGE+2!
DIR(0	TOTALS+7, PAGE+2
>> DIRUT	TOTALS+7
>> DR	SET41+1*
DT	HD1
>> DTOUT	PAGE+2
DUZ	HEAD+3
DUZ(2	SET4+4, HEAD+2
IO	TOTALS+7, PAGE+2
IO(0	TOTALS+7, PAGE+2
IOF	HEAD+1
IOSL	SET41+3, PRNT+2, POV+8, PRC+8, TOTALS+1
IOST	TOTALS+5, TOTALS+7, PAGE+1, PAGE+2
U	SET4+3, SET4+4, PRV+4
>> X	PRV+3, PRV+4, PRV+5, PRV+6, 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: APCLYV32

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: