Routine: RAIPS204

Package	Total	Call Graph
Kernel	2	$$FMADD^XLFDT ($$NEWCP,BMES,MES)^XPDUTL
VA FileMan	1	(FILE,UPDATE)^DIE

Entry Points

Name	Comments	DBIA/ICR reference
LIPITI	; Adding LI-RADS, PI-RADS & TI-RADS to Diagnosis Code File 78.3
LUNG	;update LUNGRADS
PR	;Inactivate Peer Review (PR) codes
CODES	; NUMBER^CODE^DESC^PRINT^ALERT
LUNGRADS	;Updates. Remove the word "NODULE". Update 'print on report' field

Name	Line Occurrences (* Changed, ! Killed)
^RA(78.3 - [#78.3]	LUNG+12, LUNG+18, LUNG+20, LUNG+21!, PR+3, PR+8
^XTMP(	LIPITI+3, LIPITI+5, LIPITI+18, LIPITI+22, LUNG+3, LUNG+5, LUNG+16
^XTMP("RA5.0204 DIAGNOSTIC CODES FILE UPDATE BACKUP OF 78.3"	RAIPS204+6

Name	Field # of Occurrence
DT	LIPITI+4, LIPITI+5, LUNG+4, LUNG+5
RA001	LIPITI+1~, LIPITI+8, LIPITI+9, LIPITI+14, LIPITI+18, LUNG+1~, LUNG+9, LUNG+10, LUNG+12, LUNG+15 , LUNG+16, LUNG+18, LUNG+20, LUNG+21, LUNG+22, LUNG+28, LUNG+29
RA01	LIPITI+1~, LIPITI+8, LIPITI+10, LUNG+1~, LUNG+9, LUNG+11, LUNG+13, LUNG+14, LUNG+18, LUNG+20
RA2	LIPITI+1~, LIPITI+8*, LIPITI+11
RA3	LIPITI+1~, LIPITI+8, LIPITI+12, LUNG+1~, LUNG+9, LUNG+25, LUNG+26
RA4	LIPITI+1~, LIPITI+8*, LIPITI+13
RACHX1	RAIPS204+7~*
RACHX2	RAIPS204+8~*
RACHX3	RAIPS204+9~*
RADIERR	LIPITI+2~, LIPITI+3, LIPITI+5, LIPITI+18, LIPITI+22, LUNG+2~, LUNG+3, LUNG+5, LUNG+16
RADNUM	LIPITI+1~, LUNG+1~
RADNUM(1	LIPITI+14*
RADX	LIPITI+1~, LIPITI+7, LIPITI+8, LUNG+1~, LUNG+7, LUNG+9
RAE	LUNG+1~, LUNG+8, LUNG+16, LUNG+34
RAERR	LUNG+1~, LUNG+27!, LUNG+31!, PR+1~, PR+17!
RAERR("DIERR"	LUNG+28, PR+14
RAFDA	LIPITI+1~, LUNG+1~, PR+1~
RAFDA(	LIPITI+10, LIPITI+11, LIPITI+12, LIPITI+13, LUNG+26, PR+11
RAI	LIPITI+1~, LIPITI+7, LUNG+1~, LUNG+7, PR+1~, PR+2*, PR+3, PR+4, PR+6, PR+8 , PR+9, PR+14, PR+15
RAIENS	LUNG+10, LUNG+26, PR+1~, PR+6, PR+11
RAMSG	LIPITI+1~, LIPITI+20!
RAMSG("DIERR"	LIPITI+17, LIPITI+18
RASAVE	LUNG+1~, LUNG+12*, LUNG+13, LUNG+14, LUNG+21
RATXT	LUNG+1~, LUNG+15, LUNG+22, LUNG+23!, LUNG+30, LUNG+31!, PR+1~, PR+5, PR+9!, PR+10 , PR+13!, PR+16, PR+17!
RATXT(1	LUNG+15, LUNG+22, LUNG+28, LUNG+29, PR+4, PR+9, PR+14, PR+15
U	LIPITI+5, LUNG+5, LUNG+12, LUNG+18, PR+3, PR+8
X	LIPITI+4~, LIPITI+5, LUNG+4~, LUNG+5
Y	LIPITI+4~, LIPITI+5, LUNG+4~, LUNG+5

Name	Field # of Occurrence
$T(CODES+RAI	LIPITI+7
$T(LUNGRADS+RAI	LUNG+7