Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Print Page as PDF

Sub-Field: 164.0103

Package: Oncology

ICDO TOPOGRAPHY(#164)-->164.0103

Sub-Field: 164.0103

Information

Parent File	Name	Number	Package
ICDO TOPOGRAPHY(#164)	5TH EDITION T-CODES	164.0103	Oncology

Details

Field # Name Loc Type Details

5TH EDITION T-CODES

0;1

FREE TEXT

INPUT TRANSFORM: K:$L(X)>60!($L(X)<1) X
LAST EDITED: OCT 29, 1997
HELP-PROMPT: Answer must be 1-60 characters in length.
CROSS-REFERENCE: 164.0103^B
1)= S ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA)=""
2)= K ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA)

CODE

0;2

SET

'X' FOR TX;
'0' FOR T0;
'is' FOR Tis;
'a' FOR Ta;
'1' FOR T1;
'1a' FOR T1a;
'1a1' FOR T1a1;
'1a2' FOR T1a2;
'1b' FOR T1b;
'1c' FOR T1c;
'2' FOR T2;
'2a' FOR T2a;
'2b' FOR T2b;
'2c' FOR T2c;
'3' FOR T3;
'3a' FOR T3a;
'3b' FOR T3b;
'3bi' FOR Tbi;
'3bii' FOR T3bii;
'3c' FOR T3c;
'4' FOR T4;
'4a' FOR T4a;
'4b' FOR T4b;
'4c' FOR T4c;
'4d' FOR T4d;
'88' FOR NA;
'1mi' FOR T1mi;
'1b1' FOR T1b1;
'1b2' FOR T1b2;

LAST EDITED: SEP 23, 2011
CROSS-REFERENCE: 164.0103^X^MUMPS
1)= S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164,DA(1),"T5","X",X)=DA
2)= S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164,DA(1),"T5","X",X)
This cross-reference will allow lookup by CODE.