Routine: APCLYV52

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

Entry Points

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No Hospitaliations to report." Line Location: INIT+1
Function Call: WRITE	Prompt: !,$E(APCLNAME,1,15),?16,$J(APCLHRCN,6),?24,$J(APCLAGE,2) Line Location: SET21+4
Function Call: WRITE	Prompt: ! Line Location: SET3+2
Function Call: WRITE	Prompt: ?27,$E(APCLVDT,4,5),"/",$E(APCLVDT,6,7),"/",$E(APCLVDT,2,3) Line Location: SET3+4
Function Call: WRITE	Prompt: "-",$E(APCLDDT,4,5),"/",$E(APCLDDT,6,7),"/",$E(APCLDDT,2,3) Line Location: SET3+5
Function Call: WRITE	Prompt: ?46,APCLCLS Line Location: PRV1+0
Function Call: WRITE	Prompt: ! Line Location: POV+7
Function Call: WRITE	Prompt: ! Line Location: POV+7
Function Call: WRITE	Prompt: ?51,APCLVPOV,?61,$E(APCLNAR,1,18) Line Location: POV+9
Function Call: WRITE	Prompt: ! Line Location: PRC+1
Function Call: WRITE	Prompt: ! Line Location: PRC+8
Function Call: WRITE	Prompt: ! Line Location: PRC+8
Function Call: WRITE	Prompt: ?51,APCLPRC,?61,$E(APCLNAR,1,18) Line Location: PRC+10
Function Call: WRITE	Prompt: !!?39,"TOTAL PATIENTS: ",APCLPTOT Line Location: FINAL+2
Function Call: WRITE	Prompt: !!?41,"TOTAL VISITS: ",APCLVTOT Line Location: FINAL+3
Function Call: WRITE	Prompt: ! Line Location: FINAL+4
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,?27,"HOSPITALIZATION ",APCLTITL Line Location: HEAD+4
Function Call: WRITE	Prompt: !,Y Line Location: HEAD+5
Function Call: WRITE	Prompt: ?26,"for ",$E(APCLBD,4,5),"/",$E(APCLBD,6,7),"/",(1700+$E(APCLBD,1,3)) Line Location: HEAD+6
Function Call: WRITE	Prompt: " to ",$E(APCLED,4,5),"/",$E(APCLED,6,7),"/",(1700+$E(APCLED,1,3)) Line Location: HEAD+7
Function Call: WRITE	Prompt: !?(80-(22+APCLLENG)/2),$S(APCLSV=0:"ALL",1:$P(^DIC(45.7,APCLSV,0),U))," TREATING SPECIALT"_$S(APCLSV=0:"IES",1:"Y") Line Location: HEAD+9
Function Call: WRITE	Prompt: !!,"NAME",?17,"HRCN",?23,"AGE",?28,"VISIT DATES",?46,"PRV",?51,"ICD",?61,"PROV NARRATIVE",! Line Location: HEAD+10
Function Call: WRITE	Prompt: ! Line Location: PAGE+2
Routine Call	DIR Line Location: FINAL+4 PAGE+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	SET2+4, SET2+5
^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"	HEAD+5
^DIC(4 - [#4]	HEAD+2
^DIC(45.7 - [#45.7]	HEAD+8, HEAD+9
^DPT - [#2]	SET21+1
^UTILITY("DIQ1"	SET21!, SET21+2!
^VA(200 - [#200]	HEAD+3
^XTMP("APCLYV5"	INIT+1, SET1, SET2, SET3, END+6!

Label References

Name	Line Occurrences
END	INIT+1, SET21+3, SET3+2, POV+7, PRC+8, FINAL+4
FINAL	SET1
HEAD	INIT+1, SET+1, PAGE+1, PAGE+3
PAGE	SET21+3, SET3+2, POV+7, PRC+8, FINAL+1
POV	PRV+1, POV+2, POV+10
PRC	POV+1, PRC+2, PRC+11
PRV	PRV+2
SET1	SET2
SET2	SET3
SET21	SET2+4
SET3	PRC+1
TIME	HEAD+4

Naked Globals

Name	Field # of Occurrence
^(	SET3
^(0	SET2+5, PRV+2, POV+2, PRC+2, PRC+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!
%DT	END+2!
%T	END+2!
%Y	END+2!
A	END+3!
APCL65	END+2!
APCLAGE	SET21+2*, SET21+4, END+2!
APCLBD	END+2!, HEAD+6
APCLBICD	END+5!
>> APCLBTH	INIT+1, SET1, SET2, SET3, END+6
APCLCLS	PRV+4*, PRV1, END+2!
APCLDDT	SET2+1, SET3, SET3+5, END+2!
APCLDFN	SET1, SET2, SET2+4, SET2+5, SET21, SET21+1, SET21+2, SET3, END+2!
APCLED	END+2!, HEAD+7
APCLEICD	END+5!
APCLFLG	END+5!
APCLFPV	SET3+3, POV+7, POV+8, PRC+8, PRC+9*, END+2!
APCLFVS	SET2+1, SET3+2, SET3+3, END+2!
>> APCLHRCN	SET2+4, SET2+5, SET21+4
APCLICD	END+5!
APCLIDFN	END+2!
APCLIOM	END+2!
>> APCLJOB	INIT+1, SET1, SET2, SET3, END+6
>> APCLLENG	HEAD+8*, HEAD+9
APCLLOC	SET2+4, END+5!, HEAD+2
APCLMCR	END+2!
APCLNAME	SET21+1*, SET21+4, END+2!
APCLNAR	POV+4, POV+6, POV+9, PRC+4, PRC+7, PRC+10, END+3!
APCLPAGE	INIT+1, INIT+2, END+5!, HEAD+2*, HEAD+3
APCLPRC	PRC+4, PRC+6, PRC+10, END+3!, END+5!
APCLPRV	SET3+8, PRV, PRV+1, PRV+2, PRV+3, END+3!
APCLPS	POV+3, PRC+3, END+3!
APCLPTOT	INIT+3, SET2+3, FINAL+2, END+3!
APCLPV	PRV+1, PRV1+2, POV*, POV+1, POV+2, POV+6, END+3!, END+5!
APCLSORT	SET+1, SET1, SET2, SET3, END+3!
APCLSTOP	INIT+2, SET21+3, SET3+2, POV+7, PRC+8, FINAL+4, END+4!, PAGE+2*, PAGE+3
APCLSTR	POV+2, POV+3, POV+4, PRC+2, PRC+3, PRC+4, END+3!
>> APCLSV	HEAD+8, HEAD+9
>> APCLTITL	HEAD+4
APCLVDFN	SET3*, PRV, POV, PRC, END+4!
APCLVDT	SET3*, SET3+4, END+4!
APCLVPOV	POV+4, POV+5, POV+9, END+4!
APCLVPRC	POV+1, PRC, PRC+1, PRC+2, END+4!
APCLVRV	POV+3, PRC+3, END+4!
APCLVTOT	INIT+3, SET3+1, FINAL+3, END+4!, END+5!
DA	SET21*, END+2!
>> DIC	SET21*
DIR	FINAL+4!, PAGE+2!
DIR(0	FINAL+4, PAGE+2
>> DR	SET21*
DT	HEAD+5
>> DTOUT	FINAL+4, PAGE+2
DUZ	HEAD+3
DUZ(2	SET2+5
G	END+2!
IO	FINAL+4, PAGE+2
IO(0	FINAL+4, PAGE+2
IOF	HEAD+1
IOSL	SET21+3, SET3+2, POV+7, PRC+8, FINAL+1
IOST	FINAL+4, PAGE+1, PAGE+2
POP	END+2!
U	SET2+4, SET2+5, SET21+1, HEAD+8, HEAD+9
>> X	PRV+3, PRV+4, HEAD+2, HEAD+3, HEAD+4*, TIME, TIME+1
Y	FINAL+4, END+4!, HEAD+4, HEAD+5, PAGE+2, TIME, TIME+3*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLYV52

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
SET21
SET	;
END	;
PRV1
PRC
POV
TIME
HEAD	;
PAGE	;
INIT	;initialize variables
PRV
SET1
SET2
SET3
FINAL	;