Routine: BWPATCH9

Package	Total	Call Graph
VA Fileman	6	EN^DDSDFRM FILE^DIE (,ENALL)^DIK CLEAN^DILF $$GET1^DIQ EN^DIU2
Kernel	2	$$EC^%ZOSV BMES^XPDUTL
Women's Health	1	START^BWUCVRC

Package

Total

Call Graph

EN^DDSDFRM FILE^DIE (,ENALL)^DIK CLEAN^DILF $$GET1^DIQ EN^DIU2

$$EC^%ZOSV BMES^XPDUTL

START^BWUCVRC

Name	Comments	DBIA/ICR reference
PRE	;
SHOWERR(ERR)	;
PRETRAN	;
MES(MSG,QUIT)	;
FIXIT
DELERR
EC
POST	; Converts (seeds) the new field CDC RESULTS OF PAP TEST (2001) (#.241) based on the existing ; field CDC RESULTS OF PAP TEST (1991) (#.24) (old field name CDC EQUIV SCREENING PAP DX) in ; file BW RESULTS/DIAGNOSIS (#9002086.31) to handle 2001 Bethesda System Categories.

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	FIXIT+2
^BWDIAG - [#9002086.31]	POST+17, POST+18
^BWGRI - [#9002086.87]	PRE+16
^BWMPEXP - [#9002086.26]	PRE+22
^BWPCD - [#9002086.1]	POST+47, POST+48, POST+50, POST+52*
^BWPN(39	PRE+5
^BWRACE - [#9002086.34]	PRE+10, POST+12*, PRETRAN+3, PRETRAN+4
^BWRACE("B"	POST+7!
^BWSITE - [#9002086.02]	POST+29, POST+30, POST+32, POST+33
^DD(	FIXIT+3, FIXIT+8
^DIC - [#1]	FIXIT+4, FIXIT+5*
^DIC(10 - [#10]	EC+6, EC+7, EC+8, POST+12
^DIST(	PRE+26
^DIZ(	FIXIT+5*

Name	Line Occurrences
FIXIT	EC
MES	EC+9, PRE+8, PRE+14, PRE+20, POST+6, POST+11, POST+40, POST+45, SHOWERR+1, SHOWERR+2 , SHOWERR+3
SHOWERR	FIXIT+8, DELERR

Name	Field # of Occurrence
BWDA	POST+4~, POST+16, POST+17, POST+18, POST+21, POST+28, POST+29, POST+30, POST+32, POST+33 , POST+34, POST+35, POST+46, POST+47, POST+48, POST+50, POST+52
BWDIE	POST+4~
BWFIEN	PRE+1~, PRE+26*, PRE+27
BWFN	FIXIT~, FIXIT+2*, FIXIT+3, FIXIT+4, FIXIT+5, FIXIT+6, FIXIT+8, SHOWERR+1
BWRIEN	POST+4~, POST+8, POST+9, POST+10, POST+11, POST+12
DA	PRE+1~, PRE+10, PRE+16, PRE+22*
DIK	PRE+1~, PRE+9, PRE+15, PRE+21, POST+14
DIK(1	POST+14*
DIU	FIXIT~, FIXIT+6*
DIU(0	FIXIT+6*
DUP	EC+5~, EC+8*, EC+9
ERR	SHOWERR~, SHOWERR+2
FDA	POST+4~
FDA(1	POST+21*
FDA(2	POST+32, POST+33, POST+34, POST+35, POST+36
IEN	EC+5~, EC+7, EC+8, PRETRAN+1~, PRETRAN+2, PRETRAN+3*, PRETRAN+4, PRETRAN+5
MSG	MES~, MES+1
QUIT	MES~, MES+2
RVAL	EC+5~, EC+6*, EC+7, EC+8
TXT	POST+4~, POST+10, POST+11, POST+12, PRETRAN+1~, PRETRAN+4, PRETRAN+5
U	POST+12, POST+32, POST+33, POST+50, POST+52, PRETRAN+4
VAL	PRETRAN+1~, PRETRAN+4*
X	POST+4~, POST+18, POST+19, POST+20, POST+30, POST+31, POST+32, FIXIT~, FIXIT+2
>> XPDDIQ("XPZ1"	EC+3, PRE+2
>> XPDDIQ("XPZ2"	EC+3, PRE+2
>> XPDENV	EC+3, PRE+2
>> XPDGREF	PRE+5, POST+9, POST+10, POST+44, PRETRAN+5
>> XPDQUIT	SHOWERR+4, MES+2
Y	POST+4~, POST+20*, POST+21

Information