Routine: VBECDCDC

Package	Total	Call Graph
Kernel	5	$$NEWERR^%ZTER $$S^%ZTLOAD ($$DT,$$FMTE)^XLFDT $$CJ^XLFSTR EN^XUTMDEVQ
VA FileMan	3	^DIC $$EXTERNAL^DILFD ^DIR

Package	Total	Caller Graph
VBECS	1	VBEC DATA CONVERSION STATS

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point for data conversion report. this is an evocable entry
KILL	;clean up symbol table, exit
START	;start the process of displaying how many specific data elements were
EXIT	;kill and quit
EOS	; end of screen (eos) check & refresh screen action ; check to see if additional data exist to print, if not exit w/o ; issuing the eos prompt.
HDR	; draw header
PRINT(VBECDSTR)	;print data
FORMAT	;field names are formatted here

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?3,$C(7),"DUZ & DUZ(0) must be defined to an active user (not POSTMASTER) in order to",!?3,"proceed." Line Location: EN+3
Function Call: WRITE	Prompt: !!,"Task Number: "_ZTSK,! Line Location: EN+30
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("VistA Blood Bank Data Element Summary",IOM) Line Location: HDR+2
Function Call: WRITE	Prompt: !,"Data Conversion start time: "_VBECY00 Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Data Conversion end time: "_VBECDCFN Line Location: HDR+4
Function Call: WRITE	Prompt: !,"User: "_VBECUSER Line Location: HDR+5
Function Call: WRITE	Prompt: !,"Report Run Date: ",VBECTDAY,?69,"Page: ",VBECPG,!,VBECLN Line Location: HDR+6
Routine Call	DIC Line Location: EN+9
Routine Call	DIR Line Location: EN+20 EOS+5

FileNo	Call Tags
^VBEC(6001 - [#6001]	Classic Fileman Calls, EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	EN+7
^TMP("VBEC TOTALS"	START+4!, START+15, START+16*, START+23, EXIT+2!
^VBEC(6001 - [#6001]	START+9, START+10, EOS+4, PRINT+6

Name	Field # of Occurrence
DIC	EN+9*, EN+10!, EN+13!
DIC("A"	EN+9*
DIC("S"	EN+9*
DIC(0	EN+9*
DIR	EN+20!, EN+24!, EOS+5!, EOS+6!
DIR("?"	EN+17, EN+18, EN+19, EN+20
DIR("A"	EN+16*
DIR("B"	EN+16*
DIR(0	EN+15, EOS+5
DIROUT	EN+21!, EN+24!
DIRUT	EN+21!, EN+24!
DTOUT	EN+10!, EN+21!, EN+24!
DUOUT	EN+10!, EN+21!, EN+24!
DUZ	EN+3
DUZ(0	EN+3
I	EN+27*, EN+28!
IOF	HDR+1
IOM	START+5, START+19, START+22, HDR+2
IOSL	PRINT+5
IOST	EOS+5, HDR+1
U	START+3*, START+6, START+7, START+15, START+16, PRINT+4
VBEC0	START+10*, START+13, START+16, EXIT+1!
VBECD	EN+28*, EN+29, KILL+1!, EXIT+1!
VBECDCFN	START+6*, EXIT+1!, HDR+4
VBECDSTR	PRINT~, PRINT+4
VBECFLD	EXIT+1!, EOS+4, PRINT+3*, PRINT+4, PRINT+6
VBECI	START+14, START+15, START+16, EXIT+1!, PRINT+3, PRINT+4
VBECIEN	EN+11*, KILL+1!, START+9, START+10, EXIT+1!, EOS+4, PRINT+6
VBECIEN1	START+8, START+9, START+10, EXIT+1!, EOS+4, PRINT+6
VBECLN	START+5*, EXIT+1!, HDR+6
VBECNT	START+8, START+11, START+12, START+19, START+20, EXIT+1!
VBECPG	START+5, EXIT+1!, HDR+1, HDR+6, HDR+7
VBECR	EN+26*, EN+29, KILL+1!, EXIT+1!
>> VBECS	EN+29
>> VBECS(	EN+27*
VBECTDAY	START+5*, EXIT+1!, HDR+6
VBECTY	EN+22*, KILL+1!, START+13, START+20, START+21
VBECUSER	START+7*, EXIT+1!, HDR+5
VBECXIT	START+8, START+9, START+12, START+13, EXIT+1!, EOS+5*, EOS+6, PRINT+3
VBECY0	EN+12*, KILL+1!, START+6, START+7
VBECY00	EN+12*, KILL+1!, HDR+3
VBECZ	EN+29*, KILL+1!, EXIT+1!
X	EN+7*, EN+10!, EN+13!, EN+21!, EN+24!, EOS+6!
Y	EN+10!, EN+11, EN+13!, EN+21!, EN+22, EN+24!, EOS+5, EOS+6!
Y(0	EN+12
>> ZTQUEUED	START+3
>> ZTREQ	START+3*
>> ZTSK	EN+30
>> ZTSTOP	START+12*

Name	Field # of Occurrence
$T(FORMAT+VBECI	PRINT+3