Routine: APCLHDD

Package	Total	Call Graph
VA Fileman	4	DD^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	3	^XBDBQUE $$VAL^XBDIQ1 EN^XBVK
Patient Care Component Reports	2	XTMP^APCLOSUT ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	$$HRN^AUPNPAT
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(IOF) Line Location: APCLHDD+4
Function Call: WRITE	Prompt: !!?20,"LISTING OF HOSPITAL DISCHARGES BY DATE AND LOCATION",!! Line Location: APCLHDD+4
Function Call: WRITE	Prompt: "This report is for direct services only, contract health discharges are not" Line Location: APCLHDD+5
Function Call: WRITE	Prompt: !,"included.",!! Line Location: APCLHDD+6
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !,"No discharges to report." Line Location: INIT+2
Function Call: WRITE	Prompt: !!,"Total Discharges for ",$P(^DIC(4,APCLVLOC,0),U),": ",APCLCNT Line Location: INIT+14
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,$P(^VA(200,DUZ,0),"^",2),?(80-$L(X)/2),X,?72,"Page ",APCLPAGE Line Location: HEAD1+4
Function Call: WRITE	Prompt: !,$$CTR("HOSPITAL DISCHARGE LISTING BY DISCHARGE DATE") Line Location: HEAD1+5
Function Call: WRITE	Prompt: !?23,"for ",$$FMTE^XLFDT(APCLBD)," to ",$$FMTE^XLFDT(APCLED) Line Location: HEAD1+6
Function Call: WRITE	Prompt: !!,"NAME",?27,"HRCN",?35,"ADMIT DATE",?46,"DISCH DATE",?57,"DISCHARGE SERVICE",! Line Location: HEAD1+8
Function Call: WRITE	Prompt: $TR($J("",80)," ","-"),! Line Location: HEAD1+9
Routine Call	DIC Line Location: LOC1+1
Routine Call	DIR Line Location: BD+1 ED+1 LOC+1 HEAD+1

FileNo	Call Tags
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	PROC+7, PROC+8, PROC+16
^AUPNVINP("B"	PROC+5, PROC+6
^AUPNVSIT - [#9000010]	PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+16
^DIC(4 - [#4]	INIT+6, INIT+14, HEAD1+3, HEAD1+7
^DPT - [#2]	PROC+15
^VA(200 - [#200]	HEAD1+4
^XTMP("APCLHDD"	PROC+16*, INIT+2, INIT+4, INIT+8, INIT+9, INIT+10, END1+1!

Name	Field # of Occurrence
>> APCLBD	BD+3*, ED+1, ED+4, PROC+4, HEAD1+6
>> APCLBT	PROC+2*, PROC+16, INIT+2, INIT+4, INIT+8, INIT+9, INIT+10, END1+1
>> APCLCNT	INIT+7, INIT+13, INIT+14
>> APCLDDT	PROC+4, PROC+5, PROC+6, PROC+16, INIT+8*, INIT+9, INIT+10
>> APCLDEMO	DEMO+1, DEMO+2, PROC+14
>> APCLED	ED+3*, PROC+5, HEAD1+6
>> APCLHDFN	PROC+6*, PROC+7, PROC+8, PROC+16
>> APCLJOB	PROC+2*, PROC+16, INIT+2, INIT+4, INIT+8, INIT+9, INIT+10, END1+1
>> APCLLOC	LOC+3, LOC1+2, PROC+13, HEAD1+7
>> APCLNAME	PROC+15*, PROC+16
>> APCLPAGE	INIT+1, HEAD, HEAD1+1, HEAD1+3*, HEAD1+4
>> APCLSD	ED+4*
>> APCLSTOP	INIT+1, INIT+4, INIT+8, INIT+9, INIT+11, INIT+14, HEAD+1
>> APCLVDFN	PROC+8, PROC+9, PROC+10, PROC+11, PROC+12, PROC+13, PROC+14, PROC+16, INIT+9, INIT+10
>> APCLVLOC	PROC+14, PROC+16, INIT+3, INIT+4*, INIT+6, INIT+8, INIT+9, INIT+10, INIT+14
>> APCLX	INIT+10*, INIT+12
D	DATE~, DATE+1
DA	LOC1+1!
>> DFN	PROC+14*, PROC+15, PROC+16
DIC	LOC1+1*!
DIC("A"	LOC1+1*
DIC(0	LOC1+1*
DIR	BD+1!, ED+1!, LOC+1!, HEAD+1!
DIR("?"	LOC+1*
DIR("A"	BD+1, ED+1, LOC+1*
DIR(0	BD+1, ED+1, LOC+1, HEAD+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2, LOC+2
>> DTOUT	HEAD+1
>> DUOUT	BD+1, ED+1
DUZ	HEAD1+4
DUZ(2	PROC+16, HEAD1+3
IO	HEAD+1
IO(0	HEAD+1
IOF	APCLHDD+4, HEAD1+2
IOM	CTR+1
IOSL	INIT+11
IOST	HEAD+1
U	PROC+8, PROC+11, PROC+12, PROC+13, PROC+14, PROC+15, PROC+16, INIT+6, INIT+12, INIT+14 , HEAD1+7
X	ED+4, HEAD1+3, HEAD1+4, HEAD1+7, CTR~, CTR+1
>> X1	ED+4*
>> X2	ED+4*
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	BD+3, ED+1*, ED+3, LOC+3, LOC1+1, LOC1+2, HEAD+1, CTR~, CTR+1