Routine: APCLRADP

Package	Total	Call Graph
Patient Care Component Reports	2	DONE^APCLOSUT ($$PRIMPROV,$$VD)^APCLV
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	$$HRN^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	^DIR

Package

Total

Call Graph

DONE^APCLOSUT ($$PRIMPROV,$$VD)^APCLV

$$ICDDX^ICDEX

$$HRN^AUPNPAT

$$VAL^XBDIQ1

$$FMTE^XLFDT

^DIR

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No visits to report." Line Location: INIT+2
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,20),?22,$$HRN^AUPNPAT(DFN,$S(APCLLOC:APCLLOC,1:DUZ(2))),?29,$$VD^APCLV(APCLVDFN,"S"),?38,$P(^AUTTLOC($P(APCLVREC,U,6),0),U,7),?43,$E($$PRIMPROV^APCLV(APCLVDFN,"N"),1,10) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ! Line Location: PRINT2+12
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: ! Line Location: HEAD1+2
Function Call: WRITE	Prompt: !!,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?70,"Page ",APCLPG Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?19,"READMISSIONS WITHIN 30 DAYS OF A DISCHARGE" Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?18,"VISITS DATES: ",$$FMTE^XLFDT(APCLBD)," TO ",$$FMTE^XLFDT(APCLED) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!?5,"NAME",?22,"HRCN",?29,"ADM DATE",?38,"LOC",?43,"PROV",?54,"ICD",?64,"PROVIDER NARRATIVE" Line Location: HEAD1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEAD1+8
Function Call: WRITE	Prompt: ! Line Location: HEAD1+9
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVPOV - [#9000010.07]	PRINT1+7, PRINT2+9
^AUPNVPOV("AD"	PRINT1+3, PRINT2+5
^AUPNVSIT - [#9000010]	SET2+1, PRINT2+2
^AUTTLOC - [#9999999.06]	PRINT1+2, PRINT2+2
^DIC(4 - [#4]	HEAD1+3
^DPT - [#2]	PRINT1+2
^VA(200 - [#200]	HEAD1+4
^XTMP("APCLRAD"	INIT+2, SET+3, END+2!, PRINT2+1

Name	Field # of Occurrence
>> APCLBD	HEAD1+6
>> APCLBTH	INIT+2, SET+3, END+2, PRINT2+1
>> APCLDFN	PRINT2+1*
>> APCLED	HEAD1+6
>> APCLFAC	PRINT2+2*, PRINT2+4
>> APCLFRST	PRINT1+2, PRINT1+4, PRINT1+5, PRINT2+4, PRINT2+6, PRINT2+7
>> APCLJOB	INIT+2, SET+3, END+2, PRINT2+1
>> APCLLOC	PRINT1+2
>> APCLP	PRINT1+2, PRINT1+3, PRINT1+7, PRINT2+4, PRINT2+5, PRINT2+9
>> APCLPG	INIT+1, HEAD, HEAD1+1, HEAD1+4
>> APCLQUIT	SET+3, PRINT1+1, PRINT2+1, PRINT2+3, HEAD+1*
>> APCLV	PRINT2+1*, PRINT2+2, PRINT2+4, PRINT2+5
>> APCLVDFN	SET+2, SET+3, SET2+1, PRINT1+2, PRINT1+3, PRINT2+1
>> APCLVREC	SET2+1*, PRINT1+2
>> DFN	SET2+1*, PRINT1+2
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ	HEAD1+4
DUZ(2	PRINT1+2, HEAD1+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PRINT1+1, PRINT2+3
IOST	HEAD+1
U	SET2+1, PRINT1+2, PRINT1+7, PRINT2+2, PRINT2+9, HEAD1+3
>> X	HEAD1+3*, HEAD1+4
>> Y	HEAD+1

Information