Routine: APCDVDEL

Package	Total	Call Graph
Patient Care Component	4	PAUSE^APCDALV1 ^APCDVDLT ^APCDVDSP ^APCDVLK
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIE
IHS VA Utilities	1	EN^XBNEW
Kernel	1	$$NOW^XLFDT

Package	Total	Caller Graph
Patient Care Component	6	APCDCAF1 APCDCAF3 APCDDVE APCDEQX APCDVMDD APCDVMRG
PCC New Encounter Form	1	VENPCCP3

Entry Points

Name	Comments	DBIA/ICR reference
UPDLOG1	;
UPDLOG(F,T)	;EP - CALLED TO UPDATE DELETE LOG
EOJ	; EOJ HOUSE KEEPING
GETPAT	; GET PATIENT
GETVISIT	;
DSPLY	;
DELETE	; DELETE VISIT AND RELATED V FILES

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT selected!" Line Location: APCDVDEL+4
Function Call: WRITE	Prompt: !!,"No VISIT selected!" Line Location: APCDVDEL+6
Function Call: WRITE	Prompt: !!,"This visit has a TIU Note attached to it. You cannot delete it.",! Line Location: APCDVDEL+8
Function Call: WRITE	Prompt: !!,"This visit has a V Referral attached to it. You cannot delete it.",! Line Location: APCDVDEL+9
Function Call: WRITE	Prompt: !!,"THE ABOVE VISIT AND RELATED V FILE ENTRIES WILL BE REMOVED FOREVER !!!" Line Location: APCDVDEL+10
Function Call: WRITE	Prompt: ! Line Location: GETPAT+1
Function Call: WRITE	Prompt: !,"Sure you want to delete" Line Location: DELETE+1
Routine Call	DIE Line Location: DELETE+4 DELETE+5 UPDLOG1+3
Routine Call	DIC Line Location: GETPAT+3

Name	Line Occurrences (* Changed, ! Killed)
^APCDVDEL("B"	UPDLOG1+3
^AUPNVNOT("AD"	APCDVDEL+8
^AUPNVREF("AD"	APCDVDEL+9
^AUPNVSIT - [#9000010]	DELETE+5, UPDLOG1+2

Name	Field # of Occurrence
%	DELETE+1*, EOJ+1!
%DT	EOJ+1!
%X	EOJ+1!
%Y	DELETE+1*, DELETE+2, DELETE+3, EOJ+1!
APCDCAT	EOJ+2!
APCDCLN	EOJ+2!
APCDDATE	EOJ+2!
APCDLOC	EOJ+2!
APCDLOOK	GETVISIT+1*, GETVISIT+4!
APCDPAT	APCDVDEL+4, GETPAT+2, GETPAT+5, EOJ+2!
>> APCDQ	APCDVDEL+8, APCDVDEL+9
APCDTYPE	EOJ+2!
>> APCDVDLT	DELETE+8*
>> APCDVDSP	DSPLY+1*
APCDVLK	GETVISIT+2!
APCDVSIT	APCDVDEL+6, APCDVDEL+8, APCDVDEL+9, GETVISIT+1*, DSPLY+1, DELETE+4, DELETE+5, DELETE+7, DELETE+8, EOJ+2!
C	EOJ+1!
D0	UPDLOG1+4!
DA	DELETE+4!, DELETE+5!, UPDLOG1+3*!
DD	UPDLOG1+4!
DIADD	UPDLOG1+4*, UPDLOG1+5!
DIC	GETPAT+3!, UPDLOG1+4, UPDLOG1+5!
DIC("DR"	UPDLOG1+4*
DIC(0	GETPAT+3, UPDLOG1+4
DIE	DELETE+4!, DELETE+5!, UPDLOG1+3*!
DIYS	EOJ+1!
DLAYGO	UPDLOG1+4*, UPDLOG1+5!
DO	UPDLOG1+4!
DR	DELETE+4!, DELETE+5!, UPDLOG1+3*!, UPDLOG1+5!
DUZ	UPDLOG1+3, UPDLOG1+4
F	UPDLOG~, UPDLOG1+1, UPDLOG1+2, UPDLOG1+3, UPDLOG1+4
T	UPDLOG~, UPDLOG+1*, UPDLOG1+3, UPDLOG1+4
U	DELETE+5
X	EOJ+1!, UPDLOG1+4*, UPDLOG1+5!
Y	GETPAT+4, GETPAT+5, EOJ+1!