Routine: APCLDOD2

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
VA Fileman	3	(C,COMMA)^%DTC ^DIC ^DIR
Patient Care Component Reports	2	$$START1^APCLDF ($$DEMO,DEMOCHK)^APCLUTL
IHS Patient	1	(,$$AGE,$$DOD,$$HRN)^AUPNPAT
Kernel	1	($$FMADD,$$FMTE)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
RSORT	;
EOJ	;
USR()	;EP - Return name of current user from ^VA(200.
DONE	;
D(D)	;
PRINT	;EP - called from xbdbque
SORTR	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
TSORT	;
INTROT	;
LASTVD(P,BDATE,EDATE,H)	;
HEADER1	;
DEMO	;
DSORT	;
ZIS	;
ED	;get ending date
HEADER	;EP
C(X,X2,X3)	;
HSORT	;
EP	;EP - called from option interactive
CSORT	;
WPAT	;
NSORT	;
SORT(P,S)	;
GETDATES	;
PROC	;

External References

Name	Field # of Occurrence
C^%DTC	ED+4
COMMA^%DTC	C+1
$$START1^APCLDF	LASTVD+3
$$DEMO^APCLUTL	PROC+9
DEMOCHK^APCLUTL	DEMO+1
^AUPNPAT	PRINT+5
$$AGE^AUPNPAT	PRINT+7
$$DOD^AUPNPAT	WPAT+10
$$HRN^AUPNPAT	PRINT+7, HSORT+1, RSORT+1
^DIC	WPAT+8
^DIR	WPAT+3, BD+1, ED+1, SORTR+2, DONE+1, HEADER+2
^XBDBQUE	DEMO+4
$$VAL^XBDIQ1	PRINT+8, PRINT+9, PRINT+12, LASTVD+15, CSORT+1, TSORT+1, NSORT+1
$$VALI^XBDIQ1	DSORT+1
^XBFMK	EOJ+1
EN^XBVK	EOJ+3
$$FMADD^XLFDT	PROC+2
$$FMTE^XLFDT	LASTVD+3, HEADER1+2, HEADER1+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,APCLT Line Location: EP+3
Function Call: WRITE	Prompt: !!,"That patient has no DOD recorded." Line Location: WPAT+10
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !?3,$P(^VA(200,DUZ,0),U,2),?35,$$FMTE^XLFDT(DT),?70,"Page ",APCLPG,! Line Location: HEADER1+2
Function Call: WRITE	Prompt: $$CTR($P(^DIC(4,DUZ(2),0),U),80),! Line Location: HEADER1+3
Function Call: WRITE	Prompt: !,$$CTR("DECEASED PATIENTS REPORT",80),! Line Location: HEADER1+4
Function Call: WRITE	Prompt: $$CTR(X,80),! Line Location: HEADER1+5
Function Call: WRITE	Prompt: !,"Patient Name",?25,"HRN",?32,"DOB",?43,"Age at",?50,"DOD",?61,"Tribe" Line Location: HEADER1+6
Function Call: WRITE	Prompt: !?43,"Death" Line Location: HEADER1+7
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-") Line Location: HEADER1+8
Routine Call	DIC Line Location: WPAT+8
Routine Call	DIR Line Location: WPAT+3 BD+1 ED+1 SORTR+2 DONE+1 HEADER+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PROC+8
^AUPNVPRV("AD"	LASTVD+9
^AUPNVSIT - [#9000010]	LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11, LASTVD+15
^DIC(4 - [#4]	HEADER1+3, LOC+1
^DPT - [#2]	PROC+7, PRINT+7
^DPT("AEXP1"	PROC+5, PROC+6
^TMP($J	LASTVD+1!, LASTVD+4, LASTVD+5
^VA(200 - [#200]	HEADER1+2, USR+1
^XTMP("APCLDOD2"	PROC+2, PROC+3, PROC+12*, DONE+4!, PRINT+3, PRINT+4

Label References

Name	Line Occurrences
$$CTR	HEADER1+3, HEADER1+4, HEADER1+5
$$D	PRINT+7, PRINT+8, LASTVD+15
$$LASTVD	PRINT+10, PRINT+11
$$SORT	PROC+3, PROC+10
@(	SORT+3
BD	ED+2
EOJ	EP+1, WPAT+4, BD+2
HEADER	PRINT+2, PRINT+6
HEADER1	HEADER+1
SORTR	WPAT+6, DEMO+2
WPAT	WPAT+7, WPAT+10, SORTR+3
ZIS	WPAT+7

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> A	LASTVD+3*
>> APCLALLD	WPAT+1, WPAT+5, WPAT+6, WPAT+7, PROC+3
>> APCLBD	WPAT+6, BD+3, ED+1, ED+4, HEADER1+5
>> APCLDEMO	DEMO+1, DEMO+2, PROC+9
>> APCLDFN	WPAT+7, WPAT+11*, PROC+3, HEADER1+5
>> APCLED	WPAT+6, ED+3, PROC+5, HEADER1+5
APCLET	DONE+3!
APCLH	PROC+1*, PROC+3, PROC+12, DONE+4!, PRINT+3, PRINT+4
APCLJ	EP+3, PROC+1, PROC+3, PROC+12, DONE+4!, PRINT+3, PRINT+4
APCLM	DONE+3!
>> APCLPG	PRINT+1, HEADER+1, HEADER1+1, HEADER1+2
>> APCLQ	PRINT+1, PRINT+3, PRINT+4, PRINT+6, HEADER+2
APCLS	DONE+3!
>> APCLSD	WPAT+6, ED+4, PROC+4, PROC+5, PROC+6
>> APCLSORT	SORTR+1, SORTR+4, PROC+10
>> APCLSV	PRINT+3*, PRINT+4
>> APCLT	EP+3*
>> APCLTEXT	EP+3*
APCLTS	DONE+3!
>> APCLX	EP+3*
>> AUPNDOB	PRINT+10, PRINT+11
>> AUPNDOD	PRINT+7, PRINT+8, PRINT+10, PRINT+11
>> B	LASTVD+3*
BDATE	LASTVD~, LASTVD+3
D	D~, D+1
DA	WPAT+3!, SORTR+2!
>> DFN	PROC+3, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, PROC+12, PRINT+4*, PRINT+5 , PRINT+7, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12
DIC	WPAT+8!*, EOJ+2!
DIC("A"	WPAT+8*
DIC(0	WPAT+8*
DIR	WPAT+3!, BD+1!, ED+1!, SORTR+2!, EOJ+2!, DONE+1!, HEADER+2!
DIR("A"	WPAT+3, BD+1, ED+1, SORTR+2, DONE+1*
DIR("B"	WPAT+3, SORTR+2
DIR(0	WPAT+2, BD+1, ED+1, SORTR+2, DONE+1, HEADER+2
>> DIRUT	WPAT+4, BD+1, BD+2, ED+1, ED+2, SORTR+3, DONE+1*
DT	WPAT+6, PROC+2, HEADER1+2
>> DTOUT	HEADER+2
>> DUOUT	BD+1, ED+1, DONE+1
DUZ	HEADER1+2, USR+1
DUZ(2	PRINT+7, HEADER1+3, LOC+1, HSORT+1, RSORT+1
>> E	LASTVD+3*
EDATE	LASTVD~, LASTVD+3
>> G	LASTVD+5, LASTVD+12, LASTVD+14, LASTVD+15
H	LASTVD~, LASTVD+2*, LASTVD+11
IO	DONE+1, HEADER+2
IO(0	DONE+1, HEADER+2
IOF	EP+2, HEADER1+1
IOM	CTR+1
IOSL	PRINT+6
IOST	DONE+1, HEADER+2
P	LASTVD~, LASTVD+3, SORT~, DSORT+1, CSORT+1, TSORT+1, NSORT+1, HSORT+1, RSORT+1
R	SORT+1~, SORT+2, SORT+4, SORT+5, DSORT+1, TSORT+1, NSORT+1, HSORT+1, RSORT+1, RSORT+2
S	SORT~, SORT+3
U	PRINT+7, LASTVD+5, LASTVD+7, LASTVD+8, LASTVD+10, LASTVD+11, LASTVD+15, HEADER1+2, HEADER1+3, USR+1 , LOC+1
>> V	LASTVD+5*, LASTVD+6, LASTVD+7, LASTVD+8, LASTVD+9, LASTVD+10, LASTVD+11, LASTVD+12, LASTVD+15
X	ED+4, PROC+3, PROC+10, PROC+11, PROC+12, LASTVD+5, HEADER1+5, C~, C+2, CTR~ , CTR+1, CSORT+1
>> X1	ED+4*
X2	ED+4*, C~
X3	C~
>> XBNS	DEMO+3*
>> XBRC	DEMO+3*
>> XBRP	DEMO+3*
>> XBRX	DEMO+3*
Y	WPAT+5, WPAT+9, WPAT+10, WPAT+11, BD+3, ED+3, SORTR+4, PRINT+5*, HEADER+2, CTR~ , CTR+1

Marked Items

Name	Field # of Occurrence
$T(@APCLTEXT+APCLJ	EP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLDOD2

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items