Routine: BWPATCH8

Information

BWPATCH8 ;IHS/CMI/LAB - BW PATCH 8 ;30-Jun-2003 22:42;PLS

Source file <BWPATCH8.m>

Package	Total	Call Graph
VA Fileman	4	FILE^DIE (,ENALL)^DIK CLEAN^DILF $$GET1^DIQ
Kernel	1	BMES^XPDUTL
Women's Health	1	START^BWUCVRC

Name	Comments	DBIA/ICR reference
PRE	;
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.
PRETRAN	;
MES(MSG,QUIT)	;
ENV	; Check for duplicate RACE file entries ; The following line prevents the "Disable Options..." and "Move ; Routines..." questions from being asked during the install.

Name	Line Occurrences (* Changed, ! Killed)
^BWDIAG - [#9002086.31]	POST+16, POST+17
^BWGRI - [#9002086.87]	PRE+9
^BWPCD - [#9002086.1]	POST+42, POST+43, POST+45, POST+47*
^BWPN(39	PRE+5
^BWRACE - [#9002086.34]	PRE+13, POST+11*, PRETRAN+3, PRETRAN+4
^BWRACE("B"	POST+6!
^BWSITE - [#9002086.02]	POST+27, POST+28
^DIC(10 - [#10]	ENV+5, ENV+6, ENV+7, POST+11

Name	Line Occurrences
MES	ENV+8, PRE+7, PRE+11, POST+5, POST+10, POST+36, POST+40

Name	Field # of Occurrence
BWDA	POST+4~, POST+15, POST+16, POST+17, POST+20, POST+26, POST+27, POST+28, POST+30, POST+31 , POST+32, POST+41, POST+42, POST+43, POST+45, POST+47
BWDIE	POST+4~
BWRIEN	POST+4~, POST+7, POST+8, POST+9, POST+10, POST+11
DA	PRE+1~, PRE+9, PRE+13
DIK	PRE+1~, PRE+8, PRE+12, POST+13*
DIK(1	POST+13*
DUP	ENV+4~, ENV+7*, ENV+8
FDA	POST+4~
FDA(1	POST+20*
FDA(2	POST+30, POST+31, POST+32*
IEN	ENV+4~, ENV+6, ENV+7, PRETRAN+1~, PRETRAN+2, PRETRAN+3*, PRETRAN+4, PRETRAN+5
MSG	MES~, MES+1
QUIT	MES~, MES+2
RVAL	ENV+4~, ENV+5*, ENV+6, ENV+7
TXT	POST+4~, POST+9, POST+10, POST+11, PRETRAN+1~, PRETRAN+4, PRETRAN+5
U	POST+11, POST+45, POST+47, PRETRAN+4
VAL	PRETRAN+1~, PRETRAN+4*
X	POST+4~, POST+17, POST+18, POST+19, POST+28, POST+29*, POST+30
>> XPDDIQ("XPZ1"	ENV+3, PRE+2
>> XPDDIQ("XPZ2"	ENV+3, PRE+2
>> XPDENV	ENV+3, PRE+2
>> XPDGREF	PRE+5, POST+8, POST+9, POST+39, PRETRAN+5
>> XPDQUIT	MES+2*
Y	POST+4~, POST+19*, POST+20