Routine: APCDACP

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	3	DD^%DT C^%DTC ^DIR
Patient Care Component	2	^APCDACP1 PROC^APCDACP2
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Entry Points

Name	Comments	DBIA/ICR reference
RDPV	; Determine to run by Posting date or Visit date
BD	;get beginning date
ZIS	;
ERR
P	; Run by Posting date
ED	;get ending date
V	; Run by visit date
DRIVER	;EP;entry point from taskman
TEXT	;informing paragraph
V1	;
INFORM	;inform user what is going on
GETDATES	;
XIT
TSKMN	;
DEMO	;
TYPE	;
HDR	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !?80-$L(APCDX)\2,APCDX Line Location: INFORM+2
Function Call: WRITE	Prompt: !,$P($T(TEXT+APCDJ),";;",2) Line Location: INFORM+3
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"An error has occurred in the AMRG cross reference. Please notify your Supervisor" Line Location: P+2
Function Call: WRITE	Prompt: APCDBEEP,!,"Must be a valid date and be Today or earlier. Time not allowed!" Line Location: ERR+0
Routine Call	DIR Line Location: RDPV+3 BD+1 ED+1 TYPE+1
Routine Call	%ZIS Line Location: ZIS+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	P+4, V1+1
^AUPNVSIT("AMRG"	P+1, P+2
^AUPNVSIT("B"	V+1, V+2, V1+1
^AUTTSITE(1	RDPV+2
^XTMP("APCDACP"	DRIVER+2!, XIT+4!

Name	Field # of Occurrence
%	TSKMN+1*, XIT!
>> %ZIS	ZIS+1*
APCDACCT	TYPE+3*, XIT+2!
APCDADM	XIT!
APCDBD	BD+3*, ED+1, ED+4, XIT!
APCDBEEP	RDPV+1*, ERR, XIT!
APCDCAT	XIT!
APCDDT	DRIVER+5*, XIT!
APCDED	ED+3*, P+4, V+2, XIT!
APCDFILE	XIT!, XIT+2!
APCDG	XIT+2!
APCDJ	INFORM+2, INFORM+3, INFORM+4!, XIT!
APCDL	P+4, V+2, V1+1*, XIT!
APCDLC	XIT!
APCDODAT	P+1, P+2, P+4, V+1, V+2, V1+1, XIT!
APCDOVAG	XIT!
APCDPG	XIT!
APCDPS	XIT!
APCDPVP	XIT!
APCDSD	ED+4*, P+1, V+1, V+2, XIT!
APCDSITE	RDPV+1, RDPV+2, XIT!
APCDT	TYPE+3*, XIT!
APCDTITL	XIT+2!
APCDTYPE	XIT!
APCDVDFN	P+2, P+3, P+4, V1+1, XIT!
APCDVIGR	XIT+2!
APCDX	INFORM+2, INFORM+4!, RDPV+5, BD+1, ED+1, DRIVER+3, XIT!
>> APCLDEMO	DEMO+1, DEMO+2
AUPNDAYS	XIT+1!
AUPNDOB	XIT+1!
AUPNDOD	XIT+1!
AUPNPAT	XIT+1!
AUPNSEX	XIT+1!
DIR	RDPV+3!, BD+1!, ED+1!, TYPE+1!
DIR("A"	RDPV+3, BD+1, ED+1, TYPE+1
DIR("B"	RDPV+3, ED+1
DIR(0	RDPV+3, BD+1, ED+1, TYPE+1
DIRUT	RDPV+3, RDPV+4, BD+1, BD+2, ED+1*, ED+2, TYPE+2, XIT+2!
DT	DRIVER+5
>> DUOUT	RDPV+3, BD+1, ED+1
DUZ(2	RDPV+1
IO	DRIVER+4
IO("Q"	ZIS+3, XIT!
IO(0	DRIVER+7
>> IOCPU	TSKMN+2
IOF	INFORM+1
ION	TSKMN+2
POP	ZIS+2, XIT!
U	DRIVER+1*, P+4
X	ED+4, XIT!
X1	ED+4*, XIT!
X2	ED+4*, XIT!
Y	RDPV+5, BD+3, ED+1, ED+3, TYPE+3, XIT!
>> ZTCPU	TSKMN+2*
>> ZTDESC	TSKMN+2*
>> ZTDTH	TSKMN+2*
>> ZTIO	TSKMN+2*
>> ZTQUEUED	DRIVER+7, DRIVER+8
>> ZTREQ	DRIVER+8*
>> ZTRTN	TSKMN+2*
ZTSAVE	TSKMN+1!
ZTSAVE(	TSKMN+1*
ZTSK	XIT!

Name	Field # of Occurrence
$T(HDR+APCDJ	INFORM+2
$T(TEXT+APCDJ	INFORM+3