Routine: VAFHPURG

Package	Total	Call Graph
VA Fileman	5	DD^%DT C^%DTC DT^DICRW ^DIK EN^DIQ1

Name	Comments	DBIA/ICR reference
EN	;entry point
KIL1
REMOVE
EXIT	;kills variables
CLEAN	; delete entries with invalid event pointer, ie doesn't exist ; CLEAN^VAFHPURG may be run directly from programmer mode
DELETE	;this will do that actual deletion.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"All ADT/HL7 PIVOT entries with invalid EVENT POINTERS will be deleted",! Line Location: CLEAN+3
Function Call: WRITE	Prompt: "," Line Location: REMOVE+3

FileNo	Call Tags
^VAT(391.71 - [#391.71]	Classic Fileman Calls
^DG(43 - [#43]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	EN+3
^DGPM - [#405]	DELETE+13
^VAT(391.71 - [#391.71]	EN+17, DELETE+4, DELETE+6, DELETE+8, DELETE+11, DELETE+15, CLEAN+7

Name	Line Occurrences
DELETE	EN+17
EXIT	EN+18
KIL1	EN+15
REMOVE	CLEAN+9, CLEAN+12, CLEAN+15, CLEAN+17, CLEAN+22

Name	Field # of Occurrence
^(	CLEAN+7

Name	Field # of Occurrence
%DT	KIL1!
DA	EN+1~, EN+4, DELETE+2~, DELETE+3, DELETE+4, DELETE+6, DELETE+8, DELETE+11, DELETE+15, REMOVE , REMOVE+4!
DAYS	EN+1~, EN+7*, EN+10
DIC	EN+1~, EN+4*
DIK	DELETE+2~, DELETE+17, REMOVE+1, REMOVE+4!
DIQ	EN+1~, EN+4*
DIQ(0	EN+4*
DR	EN+1~, EN+4*
DT	EN+9
EVENT	DELETE+2~, DELETE+8*, DELETE+9, DELETE+15
EVENTVP	CLEAN+5~, CLEAN+10*, CLEAN+12, CLEAN+13, CLEAN+18
GLOBAL	CLEAN+5~, CLEAN+13*, CLEAN+15, CLEAN+17, CLEAN+18
GLOBALR	CLEAN+5~, CLEAN+18*, CLEAN+20
MOVE	DELETE+2~, DELETE+11*, DELETE+12, DELETE+13
NODE	CLEAN+5~, CLEAN+7*, CLEAN+9, CLEAN+10
OUT	DELETE+2~, DELETE+9, DELETE+10, DELETE+13
U	DELETE+8, DELETE+11, DELETE+13
VAFHEDT	EN+12*, EN+17, EXIT+1!
VAFHX	EN+17, DELETE+4, EXIT+1!, CLEAN+6, CLEAN+7*, REMOVE
VAR1	EN+1~, EN+3*, EN+4, EN+7
VARA	EN+1~
VARA(43	EN+7
X	EN+12, EXIT+1!, KIL1!
X1	EN+1~, EN+9*
X2	EN+1~, EN+10*
Y	EN+12*, EN+14, EXIT+1!, KIL1!
>> ZTQUEUED	EN+14, DELETE+19, CLEAN+3, REMOVE+3

Information