Routine: VAFCEHLM

Package	Total	Call Graph
Registration	6	EN^DGRPD ($$DELEXCPT,$$EDIT)^VAFCEHU1 (FORMAT,REVFUL,SORTS)^VAFCEHU2 START^VAFCPDAT EN^VALM (FULL,PAUSE)^VALM1
Kernel	3	HOME^%ZIS ^%ZTLOAD DISP^XQORM1
VA Fileman	3	DD^%DT (C,NOW)^%DTC ^DIR
Uncategorized	1	VTQ^MPIFSAQ

Package	Total	Caller Graph
Registration	1	VAFCEHU2

Entry Points

Name	Comments	DBIA/ICR reference
DISP	; Display Only Query to MPI ;**307
EN	; -- main entry point for VAFC EXCPT SUM SCR
HELP	; -- help code
PDAT	;report to list CMOR, TF's & SUB's ;**333
PDRPRG	;Purge PDRs ;**477
EXPND	; -- expand code
INQ	; Patient Inquiry ;**255
SACT
INIT	; -- init variables and list array
FULL
EXIT	; -- exit code
INIT2	;enter at this point to reset the screens after editing etc.
CENTER(STRG)	;
DIFF
QPRG	;
HDR	; -- header code

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"The Purge Patient Data Reviews process is currently running." Line Location: EN+6
Function Call: WRITE	Prompt: !! Line Location: HELP+2
Function Call: WRITE	Prompt: $C(7),!!,"The Purge Patient Data Reviews process is currently running." Line Location: PDRPRG+1
Function Call: WRITE	Prompt: !!?15,"Patient Data Review Purge Queued, Task #"_ZTSK Line Location: PDRPRG+22
Routine Call	VALM Line Location: EN+8
Routine Call	%ZIS Line Location: PDRPRG+23
Routine Call	DIR Line Location: PDRPRG+10 PDRPRG+13

Name	Line Occurrences (* Changed, ! Killed)
^DGCN(391.98	EN+2, EN+3, EN+5, EN+6, EN+7, INQ+2, PDAT+2, PDRPRG+1, PDRPRG+2, QPRG+2 , QPRG+4, QPRG+5, QPRG+7
^DPT - [#2]	DISP+4, DISP+5, DISP+6

Name	Field # of Occurrence
>> %	PDRPRG+19
DFN	INQ+1~, INQ+2, PDAT+1~, PDAT+2
DIR	PDRPRG+10!, PDRPRG+13!
DIR("?"	PDRPRG+8*
DIR("A"	PDRPRG+9, PDRPRG+13
DIR("B"	PDRPRG+10, PDRPRG+12
DIR(0	PDRPRG+10, PDRPRG+12
>> DIRUT	PDRPRG+10, PDRPRG+13
DUZ	PDRPRG+20
ERR	QPRG+3~, QPRG+6*
EVTDT	QPRG+3~, QPRG+4, QPRG+5
>> EXCPT	DISP+3, DISP+4, DISP+5, DISP+6
FIL	CENTER+2~, CENTER+4*, CENTER+5
FIL1	CENTER+2~, CENTER+5*, CENTER+6
>> IEN	EN+2*, EN+3, EN+4, EN+5, PDAT+2
>> IENPDR	INQ+2
IO("Q"	PDRPRG+23!
LEN	CENTER+2~, CENTER+3*, CENTER+4
MAXDT	PDRPRG+3~, PDRPRG+7*, PDRPRG+10
MPIVAR	DISP+7, DISP+10!
MPIVAR("DFN"	DISP+3*
MPIVAR("DOB"	DISP+6*
MPIVAR("NM"	DISP+5*
MPIVAR("SSN"	DISP+4*
NDATE	PDRPRG+4, PDRPRG+11, PDRPRG+20, QPRG+4, QPRG+8!
PDATE	PDRPRG+3~, PDRPRG+7*, PDRPRG+10
PDR	QPRG+3~, QPRG+5, QPRG+6
RGSTRNG	HDR+1~, HDR+2*, HDR+3
STRG	CENTER~, CENTER+3, CENTER+6
TDATE	PDRPRG+3~, PDRPRG+5*, PDRPRG+6
VAFCSORT	INIT+3*, INIT2+2, EXIT+1!
>> VALMAR	INIT2+1, INIT2+2, INIT2+3, EXIT+1
>> VALMBCK	SACT+2, FULL+1, DIFF, INQ+3, INQ+7, DISP+1, DISP+9, PDAT+3, PDAT+7*
>> VALMCNT	INIT2+3
>> VALMHDR(1	HDR+3*
>> VALMQUIT	INIT2+3
>> VALMSG	HELP+1, FULL
X	HELP+1*, PDRPRG+3~, PDRPRG+5, PDRPRG+7
X1	PDRPRG+3~, PDRPRG+6*
X2	PDRPRG+3~, PDRPRG+6*
XQORNOD	INIT+2~
>> XX	EN+4*
Y	PDRPRG+3~, PDRPRG+7*, PDRPRG+11, PDRPRG+14
ZTDESC	PDRPRG+16~, PDRPRG+17*
ZTDTH	PDRPRG+16~, PDRPRG+19*
ZTIO	PDRPRG+16~, PDRPRG+19*
>> ZTQUEUED	QPRG+1
ZTREQ	PDRPRG+16~, QPRG+1*
ZTRTN	PDRPRG+16~, PDRPRG+17*
ZTSAVE	PDRPRG+16~
ZTSAVE("DUZ"	PDRPRG+20*
ZTSAVE("NDATE"	PDRPRG+20*
>> ZTSK	PDRPRG+22