Routine: WVPRE

Package	Total	Call Graph
Kernel	1	($$VERSION,BMES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
COPY	; Copy data from IHS files into VISTA files. ; Does not delete IHS data.
NAME	; Change file name and number on zero node
REPAIR	; Do data repair/clean up
FIELDS	; Set deleted fields values to "" ; Set Date Inactive (File 790, #.24) if patient is dead. ; Kill X-refs on deleted fields ; ---> File 790, fld# .2 ("CDC") ; ---> File 790.1, fld# .17 "ACDC")
CREDIT	; Stuff Credit Method value from Radiology/NM ; "E" x-ref on File 790.1 is rad/nm date-case # (e.g., 060898-94)
RADCHK	; Get RAD/NM Patient Credit Method value

Name	Field # of Occurrence
$$VERSION^XPDUTL	WVPRE+3
BMES^XPDUTL	COPY+2, REPAIR+1

Name	Line Occurrences (* Changed, ! Killed)
^BWAGDF	COPY+21
^BWCUR	COPY+17
^BWDIAG	COPY+11
^BWEDC	COPY+8
^BWLET	COPY+19
^BWMAMT	COPY+18
^BWMGR	COPY+4
^BWNOT	COPY+13
^BWNOTO	COPY+16
^BWNOTP	COPY+15
^BWNOTT	COPY+14
^BWP	COPY+3
^BWPCD	COPY+9
^BWPLOG	COPY+7
^BWPN	COPY+10
^BWPR	COPY+6
^BWRADX	COPY+12
^BWSITE	COPY+5
^BWSNAP	COPY+20
^DPT - [#2]	FIELDS+8
^RADPT - [#70]	CREDIT+2, RADCHK+5
^RADPT("ADC"	RADCHK+2, RADCHK+4
^WV(	NAME+2, NAME+3, NAME+9*
^WV(790 - [#790]	WVPRE+4, COPY+3, FIELDS+5, FIELDS+6, FIELDS+7, FIELDS+11*, FIELDS+13!
^WV(790.01 - [#790.01]	COPY+4*
^WV(790.02 - [#790.02]	COPY+5, REPAIR+11, REPAIR+12, REPAIR+13, FIELDS+14, FIELDS+15, FIELDS+16
^WV(790.03 - [#790.03]	COPY+6*
^WV(790.04 - [#790.04]	COPY+7, FIELDS+34, FIELDS+35
^WV(790.05	COPY+8, FIELDS+38, FIELDS+39
^WV(790.1 - [#790.1]	COPY+9, REPAIR+4, REPAIR+5, REPAIR+6, REPAIR+7!, FIELDS+17, FIELDS+18, FIELDS+19!, FIELDS+20, FIELDS+21! , FIELDS+22, FIELDS+24!, CREDIT+4, CREDIT+5, CREDIT+9*
^WV(790.2 - [#790.2]	COPY+10, FIELDS+25, FIELDS+26
^WV(790.31 - [#790.31]	COPY+11, FIELDS+27, FIELDS+28
^WV(790.32 - [#790.32]	COPY+12*
^WV(790.4 - [#790.4]	COPY+13*
^WV(790.403 - [#790.403]	COPY+14*
^WV(790.404 - [#790.404]	COPY+15*
^WV(790.405 - [#790.405]	COPY+16*
^WV(790.5 - [#790.5]	COPY+17*
^WV(790.51 - [#790.51]	COPY+18, FIELDS+30, FIELDS+31
^WV(790.6 - [#790.6]	COPY+19*
^WV(790.71 - [#790.71]	COPY+20*
^WV(790.72 - [#790.72]	COPY+21*

Name	Field # of Occurrence
U	NAME+4, NAME+5, NAME+6, NAME+8, REPAIR+5, REPAIR+6, REPAIR+12, REPAIR+13, FIELDS+6, FIELDS+7 , FIELDS+8, FIELDS+11, FIELDS+15, FIELDS+16, FIELDS+18, FIELDS+20, FIELDS+22, FIELDS+26, FIELDS+28, FIELDS+31 , FIELDS+35, FIELDS+39, CREDIT+6, CREDIT+9, RADCHK+5
WVCASE	CREDIT+11!, RADCHK+4*, RADCHK+5, RADCHK+7!
WVCM	CREDIT+8, CREDIT+9, CREDIT+11!, RADCHK+1, RADCHK+5
WVDATE	CREDIT+11!, RADCHK+3, RADCHK+4, RADCHK+5, RADCHK+7!
WVDFN	CREDIT+6*, CREDIT+11!, RADCHK+2, RADCHK+4, RADCHK+5
WVDOD	FIELDS+8, FIELDS+9, FIELDS+10, FIELDS+11, FIELDS+41!
WVIEN	REPAIR+3, REPAIR+4, REPAIR+5, REPAIR+6, REPAIR+7, REPAIR+10, REPAIR+11, REPAIR+12, REPAIR+13, REPAIR+15!
WVNAME	NAME+4*, NAME+5, NAME+11!
WVNODE	NAME+3, NAME+4, NAME+5, NAME+6, NAME+8, NAME+9, NAME+11!, CREDIT+5, CREDIT+6, CREDIT+11!
WVNUMBER	NAME+6, NAME+7, NAME+8, NAME+11!
WVQUAD	FIELDS+20*, FIELDS+22, FIELDS+41!
WVX	NAME+1, NAME+2, NAME+3, NAME+9, NAME+11!, FIELDS+5, FIELDS+6, FIELDS+7, FIELDS+8, FIELDS+11 , FIELDS+13, FIELDS+14, FIELDS+15, FIELDS+16, FIELDS+17, FIELDS+18, FIELDS+19, FIELDS+20, FIELDS+21, FIELDS+22 , FIELDS+25, FIELDS+26, FIELDS+27, FIELDS+28, FIELDS+29, FIELDS+30, FIELDS+31, FIELDS+33, FIELDS+34, FIELDS+35 , FIELDS+37, FIELDS+38, FIELDS+39, FIELDS+41!, CREDIT+3, CREDIT+4, CREDIT+11!, RADCHK+2, RADCHK+4
WVY	FIELDS+15, FIELDS+16, FIELDS+18, FIELDS+26, FIELDS+28, FIELDS+35, FIELDS+39, FIELDS+41!, CREDIT+4, CREDIT+5 , CREDIT+9, CREDIT+11!