KIDS Distribution saved on Sep 30, 2009@11:27:21 ONCOLOGY PATCH ONC*2.11*50 **KIDS**:ONC*2.11*50^ **INSTALL NAME** ONC*2.11*50 "BLD",7291,0) ONC*2.11*50^ONCOLOGY^0^3090930^y "BLD",7291,4,0) ^9.64PA^160.17^5 "BLD",7291,4,160,0) 160 "BLD",7291,4,160,2,0) ^9.641^160.075^2 "BLD",7291,4,160,2,160,0) ONCOLOGY PATIENT (File-top level) "BLD",7291,4,160,2,160,1,0) ^9.6411^.117^8 "BLD",7291,4,160,2,160,1,.015,0) MIDDLE NAME "BLD",7291,4,160,2,160,1,.117,0) COUNTY "BLD",7291,4,160,2,160,1,33.1,0) SUSPENSE ADMIT DATE "BLD",7291,4,160,2,160,1,33.2,0) SUSPENSE DISCHARGE DATE "BLD",7291,4,160,2,160,1,48,0) AGENT ORANGE EXPOSURE "BLD",7291,4,160,2,160,1,50,0) IONIZING RADIATION EXPOSURE "BLD",7291,4,160,2,160,1,66,0) IRAQ (OIF) SERVICE "BLD",7291,4,160,2,160,1,67,0) AFGHANISTAN (OEF) SERVICE "BLD",7291,4,160,2,160.075,0) SUSPENSE (sub-file) "BLD",7291,4,160,2,160.075,1,0) ^9.6411^.01^1 "BLD",7291,4,160,2,160.075,1,.01,0) SUSPENSE DATE "BLD",7291,4,160,222) y^y^p^^^^n^^n "BLD",7291,4,160,224) "BLD",7291,4,160.16,0) 160.16 "BLD",7291,4,160.16,222) y^y^f^^n^^y^o^n "BLD",7291,4,160.17,0) 160.17 "BLD",7291,4,160.17,222) y^y^f^^n^^y^o^n "BLD",7291,4,160.17,224) "BLD",7291,4,164,0) 164 "BLD",7291,4,164,222) n^n^f^^n^^y^r^n "BLD",7291,4,164,224) I Y=67220 "BLD",7291,4,165.5,0) 165.5 "BLD",7291,4,165.5,2,0) ^9.641^165.5^1 "BLD",7291,4,165.5,2,165.5,0) ONCOLOGY PRIMARY (File-top level) "BLD",7291,4,165.5,2,165.5,1,0) ^9.6411^232^15 "BLD",7291,4,165.5,2,165.5,1,44,0) TNM FORM COMPLETED "BLD",7291,4,165.5,2,165.5,1,102,0) DRE +/- "BLD",7291,4,165.5,2,165.5,1,148,0) OTHER CANCER "BLD",7291,4,165.5,2,165.5,1,148.1,0) CANCER #1 "BLD",7291,4,165.5,2,165.5,1,148.2,0) CANCER #2 "BLD",7291,4,165.5,2,165.5,1,148.3,0) CANCER #3 "BLD",7291,4,165.5,2,165.5,1,148.4,0) CANCER #4 "BLD",7291,4,165.5,2,165.5,1,205,0) OVERRIDE AGE/SITE/MORPH "BLD",7291,4,165.5,2,165.5,1,227,0) PERFORMANCE STATUS AT DX "BLD",7291,4,165.5,2,165.5,1,228,0) TREATMENT GUIDELINE #1 "BLD",7291,4,165.5,2,165.5,1,229,0) TREATMENT GUIDELINE #2 "BLD",7291,4,165.5,2,165.5,1,230,0) TREATMENT GUIDELINE #3 "BLD",7291,4,165.5,2,165.5,1,231,0) TREATMENT GUIDELINE LOCATION "BLD",7291,4,165.5,2,165.5,1,232,0) TREATMENT GUIDELINE DOC DATE "BLD",7291,4,165.5,2,165.5,1,684,0) PSA "BLD",7291,4,165.5,222) y^y^p^^^^n^^n "BLD",7291,4,165.5,224) "BLD",7291,4,"APDD",160,160) "BLD",7291,4,"APDD",160,160,.015) "BLD",7291,4,"APDD",160,160,.117) "BLD",7291,4,"APDD",160,160,33.1) "BLD",7291,4,"APDD",160,160,33.2) "BLD",7291,4,"APDD",160,160,48) "BLD",7291,4,"APDD",160,160,50) "BLD",7291,4,"APDD",160,160,66) "BLD",7291,4,"APDD",160,160,67) "BLD",7291,4,"APDD",160,160.075) "BLD",7291,4,"APDD",160,160.075,.01) "BLD",7291,4,"APDD",165.5,165.5) "BLD",7291,4,"APDD",165.5,165.5,44) "BLD",7291,4,"APDD",165.5,165.5,102) "BLD",7291,4,"APDD",165.5,165.5,148) "BLD",7291,4,"APDD",165.5,165.5,148.1) "BLD",7291,4,"APDD",165.5,165.5,148.2) "BLD",7291,4,"APDD",165.5,165.5,148.3) "BLD",7291,4,"APDD",165.5,165.5,148.4) "BLD",7291,4,"APDD",165.5,165.5,205) "BLD",7291,4,"APDD",165.5,165.5,227) "BLD",7291,4,"APDD",165.5,165.5,228) "BLD",7291,4,"APDD",165.5,165.5,229) "BLD",7291,4,"APDD",165.5,165.5,230) "BLD",7291,4,"APDD",165.5,165.5,231) "BLD",7291,4,"APDD",165.5,165.5,232) "BLD",7291,4,"APDD",165.5,165.5,684) "BLD",7291,4,"B",160,160) "BLD",7291,4,"B",160.16,160.16) "BLD",7291,4,"B",160.17,160.17) "BLD",7291,4,"B",164,164) "BLD",7291,4,"B",165.5,165.5) "BLD",7291,6.3) 29 "BLD",7291,"ABPKG") n "BLD",7291,"INI") ONCPRE50 "BLD",7291,"INID") ^y^y "BLD",7291,"INIT") ONCPST50 "BLD",7291,"KRN",0) ^9.67PA^779.2^20 "BLD",7291,"KRN",.4,0) .4 "BLD",7291,"KRN",.4,"NM",0) ^9.68A^9^9 "BLD",7291,"KRN",.4,"NM",1,0) ONC DISEASE INDEX FILE #9000010.07^9000010.07^0 "BLD",7291,"KRN",.4,"NM",2,0) ONCO XDEATH INFO FILE #160^160^0 "BLD",7291,"KRN",.4,"NM",3,0) ONCO SUSPENSE FILE #160^160^0 "BLD",7291,"KRN",.4,"NM",4,0) ONCO SUSPENSE-HDR FILE #160^160^0 "BLD",7291,"KRN",.4,"NM",5,0) ONCQA FILE #165.5^165.5^0 "BLD",7291,"KRN",.4,"NM",6,0) ONCQA1 FILE #165.5^165.5^0 "BLD",7291,"KRN",.4,"NM",7,0) ONCO CONTACT LIST-A FILE #165^165^0 "BLD",7291,"KRN",.4,"NM",8,0) ONCO CONTACT LIST-T FILE #165^165^0 "BLD",7291,"KRN",.4,"NM",9,0) ONCO XINCIDENCE RPRT FILE #165.5^165.5^0 "BLD",7291,"KRN",.4,"NM","B","ONC DISEASE INDEX FILE #9000010.07",1) "BLD",7291,"KRN",.4,"NM","B","ONCO CONTACT LIST-A FILE #165",7) "BLD",7291,"KRN",.4,"NM","B","ONCO CONTACT LIST-T FILE #165",8) "BLD",7291,"KRN",.4,"NM","B","ONCO SUSPENSE FILE #160",3) "BLD",7291,"KRN",.4,"NM","B","ONCO SUSPENSE-HDR FILE #160",4) "BLD",7291,"KRN",.4,"NM","B","ONCO XDEATH INFO FILE #160",2) "BLD",7291,"KRN",.4,"NM","B","ONCO XINCIDENCE RPRT FILE #165.5",9) "BLD",7291,"KRN",.4,"NM","B","ONCQA FILE #165.5",5) "BLD",7291,"KRN",.4,"NM","B","ONCQA1 FILE #165.5",6) "BLD",7291,"KRN",.401,0) .401 "BLD",7291,"KRN",.402,0) .402 "BLD",7291,"KRN",.402,"NM",0) ^9.68A^2^2 "BLD",7291,"KRN",.402,"NM",1,0) ONCO ABSTRACT-I FILE #165.5^165.5^0 "BLD",7291,"KRN",.402,"NM",2,0) ONCO FOLLOWUP FILE #160^160^0 "BLD",7291,"KRN",.402,"NM","B","ONCO ABSTRACT-I FILE #165.5",1) "BLD",7291,"KRN",.402,"NM","B","ONCO FOLLOWUP FILE #160",2) "BLD",7291,"KRN",.403,0) .403 "BLD",7291,"KRN",.5,0) .5 "BLD",7291,"KRN",.84,0) .84 "BLD",7291,"KRN",3.6,0) 3.6 "BLD",7291,"KRN",3.8,0) 3.8 "BLD",7291,"KRN",9.2,0) 9.2 "BLD",7291,"KRN",9.8,0) 9.8 "BLD",7291,"KRN",9.8,"NM",0) ^9.68A^53^31 "BLD",7291,"KRN",9.8,"NM",1,0) ONCOCOC^^0^B6349998 "BLD",7291,"KRN",9.8,"NM",2,0) ONCOPA3A^^0^B27481080 "BLD",7291,"KRN",9.8,"NM",3,0) ONCPL^^0^B3168179 "BLD",7291,"KRN",9.8,"NM",5,0) ONCEDIT^^0^B85074888 "BLD",7291,"KRN",9.8,"NM",6,0) ONCNPI^^0^B32186235 "BLD",7291,"KRN",9.8,"NM",7,0) ONCOTN^^0^B79074344 "BLD",7291,"KRN",9.8,"NM",8,0) ONCPST50^^0^B7007227 "BLD",7291,"KRN",9.8,"NM",9,0) ONCOES^^0^B68765242 "BLD",7291,"KRN",9.8,"NM",10,0) ONCOPA1^^0^B53434032 "BLD",7291,"KRN",9.8,"NM",11,0) ONCOPA3^^0^B35895924 "BLD",7291,"KRN",9.8,"NM",12,0) ONCPAT^^0^B47015316 "BLD",7291,"KRN",9.8,"NM",13,0) ONCPDI^^0^B7271535 "BLD",7291,"KRN",9.8,"NM",14,0) ONCPRE50^^0^B271835 "BLD",7291,"KRN",9.8,"NM",15,0) ONCODIS^^0^B778212 "BLD",7291,"KRN",9.8,"NM",16,0) ONCOCON^^0^B14349172 "BLD",7291,"KRN",9.8,"NM",17,0) ONCOFLF^^0^B17881251 "BLD",7291,"KRN",9.8,"NM",18,0) ONCGENED^^0^B20292699 "BLD",7291,"KRN",9.8,"NM",19,0) ONCPHC^^0^B4459971 "BLD",7291,"KRN",9.8,"NM",20,0) ONCACDU2^^0^B61562448 "BLD",7291,"KRN",9.8,"NM",21,0) ONCOCFR^^0^B27939122 "BLD",7291,"KRN",9.8,"NM",22,0) ONCOAIP^^0^B95656022 "BLD",7291,"KRN",9.8,"NM",44,0) ONCOCC^^0^B57685046 "BLD",7291,"KRN",9.8,"NM",45,0) ONCOPA2^^0^B39079146 "BLD",7291,"KRN",9.8,"NM",46,0) ONCPTX^^0^B76002886 "BLD",7291,"KRN",9.8,"NM",47,0) ONCOTN0^^0^B33597702 "BLD",7291,"KRN",9.8,"NM",48,0) ONCSG0A^^0^B30033125 "BLD",7291,"KRN",9.8,"NM",49,0) ONCRESTG^^0^B5694007 "BLD",7291,"KRN",9.8,"NM",50,0) ONCOTNO^^0^B13554287 "BLD",7291,"KRN",9.8,"NM",51,0) ONCODSR^^0^B78005890 "BLD",7291,"KRN",9.8,"NM",52,0) ONCOPRT^^0^B19804911 "BLD",7291,"KRN",9.8,"NM",53,0) ONCACD0^^0^B89724333 "BLD",7291,"KRN",9.8,"NM","B","ONCACD0",53) "BLD",7291,"KRN",9.8,"NM","B","ONCACDU2",20) "BLD",7291,"KRN",9.8,"NM","B","ONCEDIT",5) "BLD",7291,"KRN",9.8,"NM","B","ONCGENED",18) "BLD",7291,"KRN",9.8,"NM","B","ONCNPI",6) "BLD",7291,"KRN",9.8,"NM","B","ONCOAIP",22) "BLD",7291,"KRN",9.8,"NM","B","ONCOCC",44) "BLD",7291,"KRN",9.8,"NM","B","ONCOCFR",21) "BLD",7291,"KRN",9.8,"NM","B","ONCOCOC",1) "BLD",7291,"KRN",9.8,"NM","B","ONCOCON",16) "BLD",7291,"KRN",9.8,"NM","B","ONCODIS",15) "BLD",7291,"KRN",9.8,"NM","B","ONCODSR",51) "BLD",7291,"KRN",9.8,"NM","B","ONCOES",9) "BLD",7291,"KRN",9.8,"NM","B","ONCOFLF",17) "BLD",7291,"KRN",9.8,"NM","B","ONCOPA1",10) "BLD",7291,"KRN",9.8,"NM","B","ONCOPA2",45) "BLD",7291,"KRN",9.8,"NM","B","ONCOPA3",11) "BLD",7291,"KRN",9.8,"NM","B","ONCOPA3A",2) "BLD",7291,"KRN",9.8,"NM","B","ONCOPRT",52) "BLD",7291,"KRN",9.8,"NM","B","ONCOTN",7) "BLD",7291,"KRN",9.8,"NM","B","ONCOTN0",47) "BLD",7291,"KRN",9.8,"NM","B","ONCOTNO",50) "BLD",7291,"KRN",9.8,"NM","B","ONCPAT",12) "BLD",7291,"KRN",9.8,"NM","B","ONCPDI",13) "BLD",7291,"KRN",9.8,"NM","B","ONCPHC",19) "BLD",7291,"KRN",9.8,"NM","B","ONCPL",3) "BLD",7291,"KRN",9.8,"NM","B","ONCPRE50",14) "BLD",7291,"KRN",9.8,"NM","B","ONCPST50",8) "BLD",7291,"KRN",9.8,"NM","B","ONCPTX",46) "BLD",7291,"KRN",9.8,"NM","B","ONCRESTG",49) "BLD",7291,"KRN",9.8,"NM","B","ONCSG0A",48) "BLD",7291,"KRN",19,0) 19 "BLD",7291,"KRN",19,"NM",0) ^9.68A^^ "BLD",7291,"KRN",19.1,0) 19.1 "BLD",7291,"KRN",101,0) 101 "BLD",7291,"KRN",409.61,0) 409.61 "BLD",7291,"KRN",771,0) 771 "BLD",7291,"KRN",779.2,0) 779.2 "BLD",7291,"KRN",870,0) 870 "BLD",7291,"KRN",8989.51,0) 8989.51 "BLD",7291,"KRN",8989.52,0) 8989.52 "BLD",7291,"KRN",8994,0) 8994 "BLD",7291,"KRN","B",.4,.4) "BLD",7291,"KRN","B",.401,.401) "BLD",7291,"KRN","B",.402,.402) "BLD",7291,"KRN","B",.403,.403) "BLD",7291,"KRN","B",.5,.5) "BLD",7291,"KRN","B",.84,.84) "BLD",7291,"KRN","B",3.6,3.6) "BLD",7291,"KRN","B",3.8,3.8) "BLD",7291,"KRN","B",9.2,9.2) "BLD",7291,"KRN","B",9.8,9.8) "BLD",7291,"KRN","B",19,19) "BLD",7291,"KRN","B",19.1,19.1) "BLD",7291,"KRN","B",101,101) "BLD",7291,"KRN","B",409.61,409.61) "BLD",7291,"KRN","B",771,771) "BLD",7291,"KRN","B",779.2,779.2) "BLD",7291,"KRN","B",870,870) "BLD",7291,"KRN","B",8989.51,8989.51) "BLD",7291,"KRN","B",8989.52,8989.52) "BLD",7291,"KRN","B",8994,8994) "BLD",7291,"QUES",0) ^9.62^^ "BLD",7291,"REQB",0) ^9.611^1^1 "BLD",7291,"REQB",1,0) ONC*2.11*49^2 "BLD",7291,"REQB","B","ONC*2.11*49",1) "DATA",160.16,12,0) NCDB EXTRACT V11.3 "DATA",160.16,12,"FIELD",0) ^160.161I^515^345 "DATA",160.16,12,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,12,"FIELD",1,1) S ACDANS="I" "DATA",160.16,12,"FIELD",1,2) BLANK "DATA",160.16,12,"FIELD",1,3) L,BLANK^10 "DATA",160.16,12,"FIELD",1,4) "I" Incidence-only record type (nonconfidential coded data) "DATA",160.16,12,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,12,"FIELD",2,1) S ACDANS=99999999 "DATA",160.16,12,"FIELD",2,2) BLANK "DATA",160.16,12,"FIELD",2,3) L,BLANK^20 "DATA",160.16,12,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,12,"FIELD",3,1) S ACDANS=3 "DATA",160.16,12,"FIELD",3,2) BLANK "DATA",160.16,12,"FIELD",3,3) L,BLANK^30 "DATA",160.16,12,"FIELD",3,4) 3 Single hospital/freestanding center "DATA",160.16,12,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,12,"FIELD",4,1) S ACDANS=$S($L(STAT1)=7:1,$L(STAT1)=8:2,1:9) "DATA",160.16,12,"FIELD",4,2) BLANK "DATA",160.16,12,"FIELD",4,3) L,BLANK^35 "DATA",160.16,12,"FIELD",4,4) FACILITY ID # (160.1,27) "DATA",160.16,12,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,12,"FIELD",5,1) S ACDANS="B" "DATA",160.16,12,"FIELD",5,2) BLANK "DATA",160.16,12,"FIELD",5,3) L,BLANK^50 "DATA",160.16,12,"FIELD",5,4) 2006, 2007, 2008 and 2009 Version 11, 11.1, 11.2 and 11.3 "DATA",160.16,12,"FIELD",6,0) 20^10^29^Registry Id "DATA",160.16,12,"FIELD",6,1) S ACDANS=STAT1 "DATA",160.16,12,"FIELD",6,2) ZERO "DATA",160.16,12,"FIELD",6,3) L,ZERO^40 "DATA",160.16,12,"FIELD",6,4) INSTITUTION ID NUMBER (160.1,27) "DATA",160.16,12,"FIELD",18,0) 74^9^82^Addr at DX--Postal Code "DATA",160.16,12,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") D STRIP~ONCACDU2 "DATA",160.16,12,"FIELD",18,2) BLANK "DATA",160.16,12,"FIELD",18,3) R,BLANK^100 "DATA",160.16,12,"FIELD",18,4) POSTAL CODE AT DX (165.5,9) "DATA",160.16,12,"FIELD",26,0) 93^6^98^Census Tract 2000 "DATA",160.16,12,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,12,"FIELD",26,2) BLANK "DATA",160.16,12,"FIELD",26,3) L,BLANK^130 "DATA",160.16,12,"FIELD",26,4) CENSUS TRACT (165.5,147) "DATA",160.16,12,"FIELD",29,0) 101^1^101^Census Tr Certainty 2000 "DATA",160.16,12,"FIELD",29,1) S ACDANS="" "DATA",160.16,12,"FIELD",29,2) BLANK "DATA",160.16,12,"FIELD",29,3) L,BLANK^365 "DATA",160.16,12,"FIELD",30,0) 102^1^102^Marital Status at DX "DATA",160.16,12,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,12,"FIELD",30,2) BLANK "DATA",160.16,12,"FIELD",30,3) L,BLANK^150 "DATA",160.16,12,"FIELD",30,4) MARITAL STATUS AT DX (165.5,11) "DATA",160.16,12,"FIELD",31,0) 103^2^104^Race 1 "DATA",160.16,12,"FIELD",31,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,12,"FIELD",31,2) BLANK "DATA",160.16,12,"FIELD",31,3) L,ZERO^160 "DATA",160.16,12,"FIELD",31,4) RACE 1 (160,8) "DATA",160.16,12,"FIELD",32,0) 143^40^182^Text--Usual Occupation "DATA",160.16,12,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,12,"FIELD",32,2) BLANK "DATA",160.16,12,"FIELD",32,3) R,BLANK^310 "DATA",160.16,12,"FIELD",32,4) USUAL OCCUPATION (160.042,.01) "DATA",160.16,12,"FIELD",33,0) 183^40^222^Text--Usual Industry "DATA",160.16,12,"FIELD",33,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,12,"FIELD",33,2) BLANK "DATA",160.16,12,"FIELD",33,3) R,BLANK^320 "DATA",160.16,12,"FIELD",33,4) USUAL INDUSTRY (160.042,3) "DATA",160.16,12,"FIELD",41,0) 291^4^294^Primary Site "DATA",160.16,12,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,12,"FIELD",41,2) BLANK "DATA",160.16,12,"FIELD",41,3) L,ZERO^400 "DATA",160.16,12,"FIELD",41,4) PRIMARY SITE (165.5,20) "DATA",160.16,12,"FIELD",42,0) 295^1^295^Laterality "DATA",160.16,12,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,12,"FIELD",42,2) BLANK "DATA",160.16,12,"FIELD",42,3) L,BLANK^410 "DATA",160.16,12,"FIELD",42,4) LATERALITY (165.5,28) "DATA",160.16,12,"FIELD",43,0) 296^5^300^Morph--Type&Behav ICD-O-2 "DATA",160.16,12,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,12,"FIELD",43,2) BLANK "DATA",160.16,12,"FIELD",43,3) L,ZERO^419 "DATA",160.16,12,"FIELD",43,4) HISTOLOGY (ICD-O-2) (165.5,22) "DATA",160.16,12,"FIELD",45,0) 306^1^306^Grade "DATA",160.16,12,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,12,"FIELD",45,2) BLANK "DATA",160.16,12,"FIELD",45,3) L,ZERO^440 "DATA",160.16,12,"FIELD",45,4) GRADE/DIFFERENTIATION (165.5,24) "DATA",160.16,12,"FIELD",46,0) 307^1^307^Site Coding Sys--Current "DATA",160.16,12,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,12,"FIELD",46,2) BLANK "DATA",160.16,12,"FIELD",46,3) L,ZERO^450 "DATA",160.16,12,"FIELD",46,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,12,"FIELD",47,0) 308^1^308^Site Coding Sys--Original "DATA",160.16,12,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,12,"FIELD",47,2) BLANK "DATA",160.16,12,"FIELD",47,3) L,ZERO^460 "DATA",160.16,12,"FIELD",47,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,12,"FIELD",48,0) 309^1^309^Morph Coding Sys--Current "DATA",160.16,12,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,12,"FIELD",48,2) BLANK "DATA",160.16,12,"FIELD",48,3) L,ZERO^470 "DATA",160.16,12,"FIELD",48,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,12,"FIELD",49,0) 310^1^310^Morph Coding Sys--Originl "DATA",160.16,12,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,12,"FIELD",49,2) BLANK "DATA",160.16,12,"FIELD",49,3) L,ZERO^480 "DATA",160.16,12,"FIELD",49,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,12,"FIELD",50,0) 311^1^311^Diagnostic Confirmation "DATA",160.16,12,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,12,"FIELD",50,2) BLANK "DATA",160.16,12,"FIELD",50,3) L,ZERO^490 "DATA",160.16,12,"FIELD",50,4) DIAGNOSTIC CONFIRMATION (165.5,26) "DATA",160.16,12,"FIELD",51,0) 312^1^312^Type of Reporting Source "DATA",160.16,12,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,12,"FIELD",51,2) BLANK "DATA",160.16,12,"FIELD",51,3) L,BLANK^500 "DATA",160.16,12,"FIELD",51,4) TYPE OF REPORTING SOURCE (165.5,1.2) "DATA",160.16,12,"FIELD",52,0) 313^8^320^Screening Date "DATA",160.16,12,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",52,2) BLANK "DATA",160.16,12,"FIELD",52,3) L,BLANK^510 "DATA",160.16,12,"FIELD",52,4) SCREENING DATE (165.5,79) "DATA",160.16,12,"FIELD",53,0) 321^1^321^Screening Result "DATA",160.16,12,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,12,"FIELD",53,2) BLANK "DATA",160.16,12,"FIELD",53,3) L,BLANK^520 "DATA",160.16,12,"FIELD",53,4) SCREENING RESULT (165.5,119) "DATA",160.16,12,"FIELD",54,0) 301^5^305^Morph--Type&Behav ICD-O-3 "DATA",160.16,12,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,12,"FIELD",54,2) BLANK "DATA",160.16,12,"FIELD",54,3) L,ZERO^521 "DATA",160.16,12,"FIELD",54,4) HISTOLOGY (ICD-O-3) (165.5,22.3) "DATA",160.16,12,"FIELD",57,0) 411^2^412^Sequence Number--Hospital "DATA",160.16,12,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,12,"FIELD",57,2) BLANK "DATA",160.16,12,"FIELD",57,3) L,ZERO^560 "DATA",160.16,12,"FIELD",57,4) SEQUENCE NUMBER (165.5,.06) "DATA",160.16,12,"FIELD",58,0) 413^3^415^Abstracted By "DATA",160.16,12,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,12,"FIELD",58,2) BLANK "DATA",160.16,12,"FIELD",58,3) R,BLANK^570 "DATA",160.16,12,"FIELD",58,4) ABSTRACTED BY (165.5,92) "DATA",160.16,12,"FIELD",59,0) 416^8^423^Date of 1st Contact "DATA",160.16,12,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,155,"I") S:ACDANS="" ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",59,2) BLANK "DATA",160.16,12,"FIELD",59,3) L,ZERO^580 "DATA",160.16,12,"FIELD",59,4) DATE OF FIRST CONTACT (165.5,155) or DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,12,"FIELD",60,0) 424^8^431^Date of Inpatient Adm "DATA",160.16,12,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",60,2) BLANK "DATA",160.16,12,"FIELD",60,3) L,ZERO^590 "DATA",160.16,12,"FIELD",60,4) DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,12,"FIELD",61,0) 432^8^439^Date of Inpatient Disch "DATA",160.16,12,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",61,2) BLANK "DATA",160.16,12,"FIELD",61,3) L,ZERO^600 "DATA",160.16,12,"FIELD",61,4) DATE OF INPATIENT DISCHARGE (165.5,1.1) "DATA",160.16,12,"FIELD",62,0) 440^1^440^Class of Case "DATA",160.16,12,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,12,"FIELD",62,2) BLANK "DATA",160.16,12,"FIELD",62,3) L,ZERO^610 "DATA",160.16,12,"FIELD",62,4) CLASS OF CASE (165.5,.04) "DATA",160.16,12,"FIELD",63,0) 441^4^444^Reserved 26 "DATA",160.16,12,"FIELD",63,1) S ACDANS="" "DATA",160.16,12,"FIELD",63,2) BLANK "DATA",160.16,12,"FIELD",63,3) L,BLANK^615 "DATA",160.16,12,"FIELD",63,4) "DATA",160.16,12,"FIELD",64,0) 445^2^446^Primary Payer at DX "DATA",160.16,12,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",64,2) NINE "DATA",160.16,12,"FIELD",64,3) L,BLANK^630 "DATA",160.16,12,"FIELD",64,4) PRIMARY PAYER AT DX (165.5,18) "DATA",160.16,12,"FIELD",65,0) 447^10^456^NPI--Archive FIN "DATA",160.16,12,"FIELD",65,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,12,"FIELD",65,2) BLANK "DATA",160.16,12,"FIELD",65,3) L,BLANK^3105 "DATA",160.16,12,"FIELD",65,4) NPI (160.19,101) "DATA",160.16,12,"FIELD",68,0) 457^2^458^RX Hosp--Surg Prim Site "DATA",160.16,12,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.7,"SPS") "DATA",160.16,12,"FIELD",68,2) NINE "DATA",160.16,12,"FIELD",68,3) L,ZERO^670 "DATA",160.16,12,"FIELD",68,4) SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "DATA",160.16,12,"FIELD",69,0) 478^2^479^RX Hosp--Surg Site 98-02 "DATA",160.16,12,"FIELD",69,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,12,"FIELD",69,2) BLANK "DATA",160.16,12,"FIELD",69,3) L,ZERO^746 "DATA",160.16,12,"FIELD",69,4) SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "DATA",160.16,12,"FIELD",70,0) 463^1^463^RX Hosp--Radiation "DATA",160.16,12,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,12,"FIELD",70,2) BLANK "DATA",160.16,12,"FIELD",70,3) L,ZERO^690 "DATA",160.16,12,"FIELD",70,4) RADIATION @FACILITY (165.5,51.4) "DATA",160.16,12,"FIELD",71,0) 464^2^465^RX Hosp--Chemo "DATA",160.16,12,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,12,"FIELD",71,2) NINE "DATA",160.16,12,"FIELD",71,3) L,BLANK^700 "DATA",160.16,12,"FIELD",71,4) CHEMOTHERAPY @FAC (165.5,53.3) "DATA",160.16,12,"FIELD",72,0) 466^2^467^RX Hosp--Hormone "DATA",160.16,12,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,12,"FIELD",72,2) NINE "DATA",160.16,12,"FIELD",72,3) L,BLANK^710 "DATA",160.16,12,"FIELD",72,4) HORMONE THERAPY @FAC (165.5,54.3) "DATA",160.16,12,"FIELD",73,0) 468^2^469^RX Hosp--BRM "DATA",160.16,12,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,12,"FIELD",73,2) NINE "DATA",160.16,12,"FIELD",73,3) L,BLANK^720 "DATA",160.16,12,"FIELD",73,4) IMMUNOTHERAPY @FAC (165.5,55.3) "DATA",160.16,12,"FIELD",74,0) 470^1^470^RX Hosp--Other "DATA",160.16,12,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,12,"FIELD",74,2) BLANK "DATA",160.16,12,"FIELD",74,3) L,ZERO^730 "DATA",160.16,12,"FIELD",74,4) OTHER TREATMENT @FAC (165.5,57.3) "DATA",160.16,12,"FIELD",75,0) 471^2^472^RX Hosp--DX/Stg Proc "DATA",160.16,12,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,12,"FIELD",75,2) ZNINE "DATA",160.16,12,"FIELD",75,3) L,ZERO^740 "DATA",160.16,12,"FIELD",75,4) SURG DX/STAGING PROC @FAC (165.5,58.4) "DATA",160.16,12,"FIELD",77,0) 529^1^529^SEER Summary Stage 1977 "DATA",160.16,12,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,12,"FIELD",77,2) BLANK "DATA",160.16,12,"FIELD",77,3) L,BLANK^760 "DATA",160.16,12,"FIELD",77,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,12,"FIELD",78,0) 530^1^530^Reserved 29 "DATA",160.16,12,"FIELD",78,1) S ACDANS="" "DATA",160.16,12,"FIELD",78,2) BLANK "DATA",160.16,12,"FIELD",78,3) L,BLANK^765 "DATA",160.16,12,"FIELD",78,4) "DATA",160.16,12,"FIELD",79,0) 531^3^533^EOD--Tumor Size "DATA",160.16,12,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,12,"FIELD",79,2) BLANK "DATA",160.16,12,"FIELD",79,3) L,ZERO^780 "DATA",160.16,12,"FIELD",79,4) TUMOR SIZE (165.5,29) "DATA",160.16,12,"FIELD",80,0) 534^2^535^EOD--Extension "DATA",160.16,12,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,12,"FIELD",80,2) BLANK "DATA",160.16,12,"FIELD",80,3) L,ZERO^790 "DATA",160.16,12,"FIELD",80,4) EXTENSION (165.5,30) "DATA",160.16,12,"FIELD",81,0) 536^2^537^EOD--Extension Prost Path "DATA",160.16,12,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,12,"FIELD",81,2) BLANK "DATA",160.16,12,"FIELD",81,3) L,ZERO^800 "DATA",160.16,12,"FIELD",81,4) PATHOLOGIC EXTENSION (165.5,30.1) "DATA",160.16,12,"FIELD",82,0) 538^1^538^EOD--Lymph Node Involv "DATA",160.16,12,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,12,"FIELD",82,2) BLANK "DATA",160.16,12,"FIELD",82,3) L,BLANK^810 "DATA",160.16,12,"FIELD",82,4) LYMPH NODES (165.5,31) "DATA",160.16,12,"FIELD",83,0) 539^2^540^Regional Nodes Positive "DATA",160.16,12,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,12,"FIELD",83,2) BLANK "DATA",160.16,12,"FIELD",83,3) L,ZERO^820 "DATA",160.16,12,"FIELD",83,4) REGIONAL LYMPH NODES POSITIVE (165.5,32) "DATA",160.16,12,"FIELD",84,0) 541^2^542^Regional Nodes Examined "DATA",160.16,12,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,12,"FIELD",84,2) BLANK "DATA",160.16,12,"FIELD",84,3) L,ZERO^830 "DATA",160.16,12,"FIELD",84,4) REGIONAL LYMPH NODES EXAMINED (165.5,33) "DATA",160.16,12,"FIELD",85,0) 543^13^555^EOD--Old 13 Digit "DATA",160.16,12,"FIELD",85,1) S ACDANS="" "DATA",160.16,12,"FIELD",85,2) BLANK "DATA",160.16,12,"FIELD",85,3) L,BLANK^840 "DATA",160.16,12,"FIELD",86,0) 556^2^557^EOD--Old 2 Digit "DATA",160.16,12,"FIELD",86,1) S ACDANS="" "DATA",160.16,12,"FIELD",86,2) BLANK "DATA",160.16,12,"FIELD",86,3) L,BLANK^850 "DATA",160.16,12,"FIELD",87,0) 558^4^561^EOD--Old 4 Digit "DATA",160.16,12,"FIELD",87,1) S ACDANS="" "DATA",160.16,12,"FIELD",87,2) BLANK "DATA",160.16,12,"FIELD",87,3) L,BLANK^860 "DATA",160.16,12,"FIELD",88,0) 562^1^562^Coding System for EOD "DATA",160.16,12,"FIELD",88,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3031231:"",1:4) K DATEDX "DATA",160.16,12,"FIELD",88,2) BLANK "DATA",160.16,12,"FIELD",88,3) L,BLANK^870 "DATA",160.16,12,"FIELD",88,4) Blank = DATE DX 2004+; 4 = 10-Digit Extent of Disease, 1988 (1988+) "DATA",160.16,12,"FIELD",89,0) 563^2^564^TNM Path T "DATA",160.16,12,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,12,"FIELD",89,2) BLANK "DATA",160.16,12,"FIELD",89,3) R,BLANK^880 "DATA",160.16,12,"FIELD",89,4) PATHOLOGIC T (165.5,85) "DATA",160.16,12,"FIELD",90,0) 565^2^566^TNM Path N "DATA",160.16,12,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") S:ACDANS'="" ACDANS=$S(ACDANS="O(I+)":0,ACDANS="O(I-)":0,ACDANS="0(MOL+)":0,ACDANS="0(MOL-)":0,1:ACDANS) "DATA",160.16,12,"FIELD",90,2) BLANK "DATA",160.16,12,"FIELD",90,3) R,BLANK^890 "DATA",160.16,12,"FIELD",90,4) PATHOLOGIC N (165.5,86) "DATA",160.16,12,"FIELD",91,0) 567^2^568^TNM Path M "DATA",160.16,12,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,12,"FIELD",91,2) BLANK "DATA",160.16,12,"FIELD",91,3) R,BLANK^900 "DATA",160.16,12,"FIELD",91,4) PATHOLOGIC M (165.5,87) "DATA",160.16,12,"FIELD",92,0) 569^2^570^TNM Path Stage Group "DATA",160.16,12,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,12,"FIELD",92,2) BLANK "DATA",160.16,12,"FIELD",92,3) R,BLANK^910 "DATA",160.16,12,"FIELD",92,4) PATHOLOGIC STAGE GROUP (165.5,88) "DATA",160.16,12,"FIELD",93,0) 571^1^571^TNM Path Descriptor "DATA",160.16,12,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,12,"FIELD",93,2) ZERO "DATA",160.16,12,"FIELD",93,3) L,ZERO^920 "DATA",160.16,12,"FIELD",93,4) PATHOLOGIC TNM (165.5,89.1) "DATA",160.16,12,"FIELD",94,0) 572^1^572^TNM Path Staged By "DATA",160.16,12,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,12,"FIELD",94,2) NINE "DATA",160.16,12,"FIELD",94,3) L,BLANK^930 "DATA",160.16,12,"FIELD",94,4) STAGED BY (PATHOLOGIC STAGE) (165.5,89) "DATA",160.16,12,"FIELD",95,0) 573^2^574^TNM Clin T "DATA",160.16,12,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,12,"FIELD",95,2) BLANK "DATA",160.16,12,"FIELD",95,3) R,BLANK^940 "DATA",160.16,12,"FIELD",95,4) CLINICAL T (165.5,37.1) "DATA",160.16,12,"FIELD",96,0) 575^2^576^TNM Clin N "DATA",160.16,12,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,12,"FIELD",96,2) BLANK "DATA",160.16,12,"FIELD",96,3) R,BLANK^950 "DATA",160.16,12,"FIELD",96,4) CLINCIAL N (165.5,37.2) "DATA",160.16,12,"FIELD",97,0) 577^2^578^TNM Clin M "DATA",160.16,12,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,12,"FIELD",97,2) BLANK "DATA",160.16,12,"FIELD",97,3) R,BLANK^960 "DATA",160.16,12,"FIELD",97,4) CLINCIAL M (165.5,37.3) "DATA",160.16,12,"FIELD",98,0) 579^2^580^TNM Clin Stage Group "DATA",160.16,12,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,12,"FIELD",98,2) BLANK "DATA",160.16,12,"FIELD",98,3) R,BLANK^970 "DATA",160.16,12,"FIELD",98,4) CLINICAL STAGE GROUP (165.5,38) "DATA",160.16,12,"FIELD",99,0) 581^1^581^TNM Clin Descriptor "DATA",160.16,12,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,12,"FIELD",99,2) ZERO "DATA",160.16,12,"FIELD",99,3) L,ZERO^980 "DATA",160.16,12,"FIELD",99,4) CLINICAL TNM (165.5,37) "DATA",160.16,12,"FIELD",100,0) 582^1^582^TNM Clin Staged By "DATA",160.16,12,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,12,"FIELD",100,2) NINE "DATA",160.16,12,"FIELD",100,3) L,BLANK^990 "DATA",160.16,12,"FIELD",100,4) STAGED BY (CLINICAL STAGE) (165.5,19) "DATA",160.16,12,"FIELD",101,0) 583^10^592^Reserved 30 "DATA",160.16,12,"FIELD",101,1) S ACDANS="" "DATA",160.16,12,"FIELD",101,2) BLANK "DATA",160.16,12,"FIELD",101,3) L,BLANK^995 "DATA",160.16,12,"FIELD",101,4) "DATA",160.16,12,"FIELD",107,0) 593^2^594^TNM Edition Number "DATA",160.16,12,"FIELD",107,1) S ACDANS=$$TNMED~ONCOU55(IEN) "DATA",160.16,12,"FIELD",107,2) BLANK "DATA",160.16,12,"FIELD",107,3) L,ZERO^1060 "DATA",160.16,12,"FIELD",107,4) DATE DX (165.5,3) "DATA",160.16,12,"FIELD",108,0) 595^15^609^Reserved 31 "DATA",160.16,12,"FIELD",108,1) S ACDANS="" "DATA",160.16,12,"FIELD",108,2) BLANK "DATA",160.16,12,"FIELD",108,3) L,BLANK^1065 "DATA",160.16,12,"FIELD",108,4) "DATA",160.16,12,"FIELD",109,0) 610^8^617^Date of 1st Positive BX "DATA",160.16,12,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",109,2) BLANK "DATA",160.16,12,"FIELD",109,3) L,BLANK^1080 "DATA",160.16,12,"FIELD",109,4) DATE OF 1ST POSITIVE BIOPSY (165.5,137) "DATA",160.16,12,"FIELD",110,0) 618^1^618^Site of Distant Met 1 "DATA",160.16,12,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,12,"FIELD",110,2) BLANK "DATA",160.16,12,"FIELD",110,3) L,BLANK^1090 "DATA",160.16,12,"FIELD",110,4) SITE OF DISTANT METASTASIS #1 (165.5,34) "DATA",160.16,12,"FIELD",111,0) 619^1^619^Site of Distant Met 2 "DATA",160.16,12,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,12,"FIELD",111,2) BLANK "DATA",160.16,12,"FIELD",111,3) L,BLANK^1100 "DATA",160.16,12,"FIELD",111,4) SITE OF DISTANT METASTASIS #2 (165.5,34.1) "DATA",160.16,12,"FIELD",112,0) 620^1^620^Site of Distant Met 3 "DATA",160.16,12,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,12,"FIELD",112,2) BLANK "DATA",160.16,12,"FIELD",112,3) L,BLANK^1110 "DATA",160.16,12,"FIELD",112,4) SITE OF DISTANT METASTASIS #3 (165.5,34.2) "DATA",160.16,12,"FIELD",113,0) 621^2^622^Pediatric Stage "DATA",160.16,12,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,12,"FIELD",113,2) BLANK "DATA",160.16,12,"FIELD",113,3) L,BLANK^1120 "DATA",160.16,12,"FIELD",113,4) PEDIATRIC STAGE (165.5,850) "DATA",160.16,12,"FIELD",114,0) 623^2^624^Pediatric Staging System "DATA",160.16,12,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",114,2) BLANK "DATA",160.16,12,"FIELD",114,3) L,BLANK^1130 "DATA",160.16,12,"FIELD",114,4) TYPE OF STAGING SYSTEM (PED) (165.5,849) "DATA",160.16,12,"FIELD",115,0) 625^1^625^Pediatric Staged By "DATA",160.16,12,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,12,"FIELD",115,2) BLANK "DATA",160.16,12,"FIELD",115,3) L,BLANK^1140 "DATA",160.16,12,"FIELD",115,4) STAGED BY (PEDIATRIC STAGE) (165.5,851) "DATA",160.16,12,"FIELD",116,0) 626^1^626^Tumor Marker 1 "DATA",160.16,12,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",116,2) BLANK "DATA",160.16,12,"FIELD",116,3) L,BLANK^1150 "DATA",160.16,12,"FIELD",116,4) TUMOR MARKER 1 (165.5,25.1) "DATA",160.16,12,"FIELD",117,0) 627^1^627^Tumor Marker 2 "DATA",160.16,12,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",117,2) BLANK "DATA",160.16,12,"FIELD",117,3) L,BLANK^1160 "DATA",160.16,12,"FIELD",117,4) TUMOR MARKER 2 (165.5,25.2) "DATA",160.16,12,"FIELD",118,0) 628^1^628^Tumor Marker 3 "DATA",160.16,12,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",118,2) BLANK "DATA",160.16,12,"FIELD",118,3) L,BLANK^1170 "DATA",160.16,12,"FIELD",118,4) TUMOR MARKER 3 (165.5,25.3) "DATA",160.16,12,"FIELD",119,0) 717^5^721^Comorbid/Complication 7 "DATA",160.16,12,"FIELD",119,1) D CC~ONCACDU1 S ACDANS=CCEX(7) "DATA",160.16,12,"FIELD",119,2) BLANK "DATA",160.16,12,"FIELD",119,3) R,ZERO^3161 "DATA",160.16,12,"FIELD",119,4) COMORBIDITY/COMPLICATION #7 (160,25.6) "DATA",160.16,12,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,12,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,170,"I")) "DATA",160.16,12,"FIELD",121,2) BLANK "DATA",160.16,12,"FIELD",121,3) L,BLANK^1200 "DATA",160.16,12,"FIELD",121,4) DATE FIRST SURGICAL PROCEDURE (165.5,170) "DATA",160.16,12,"FIELD",122,0) 779^8^786^RX Date--Radiation "DATA",160.16,12,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,12,"FIELD",122,2) BLANK "DATA",160.16,12,"FIELD",122,3) L,BLANK^1210 "DATA",160.16,12,"FIELD",122,4) DATE RADIATION STARTED (165.5,51) "DATA",160.16,12,"FIELD",123,0) 803^8^810^RX Date--Chemo "DATA",160.16,12,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,12,"FIELD",123,2) BLANK "DATA",160.16,12,"FIELD",123,3) L,BLANK^1220 "DATA",160.16,12,"FIELD",123,4) CHEMOTHERAPY DATE (165.5,53) "DATA",160.16,12,"FIELD",124,0) 811^8^818^RX Date--Hormone "DATA",160.16,12,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,12,"FIELD",124,2) BLANK "DATA",160.16,12,"FIELD",124,3) L,BLANK^1230 "DATA",160.16,12,"FIELD",124,4) HORMONE THERAPY DATE (165.5,54) "DATA",160.16,12,"FIELD",125,0) 819^8^826^RX Date--BRM "DATA",160.16,12,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,12,"FIELD",125,2) BLANK "DATA",160.16,12,"FIELD",125,3) L,BLANK^1240 "DATA",160.16,12,"FIELD",125,4) IMMUNOTHERAPY DATE (165.5,55) "DATA",160.16,12,"FIELD",126,0) 827^8^834^RX Date--Other "DATA",160.16,12,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,12,"FIELD",126,2) BLANK "DATA",160.16,12,"FIELD",126,3) L,BLANK^1250 "DATA",160.16,12,"FIELD",126,4) OTHER TREATMENT START DATE (165.5,57) "DATA",160.16,12,"FIELD",127,0) 835^8^842^Date of Initial RX--SEER "DATA",160.16,12,"FIELD",127,1) S ACDANS="" "DATA",160.16,12,"FIELD",127,2) BLANK "DATA",160.16,12,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,12,"FIELD",127,4) "DATA",160.16,12,"FIELD",128,0) 843^8^850^Date of 1st Crs RX--COC "DATA",160.16,12,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,12,"FIELD",128,2) BLANK "DATA",160.16,12,"FIELD",128,3) L,ZERO^1270 "DATA",160.16,12,"FIELD",128,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "DATA",160.16,12,"FIELD",129,0) 851^8^858^RX Date--DX/Stg Proc "DATA",160.16,12,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",129,2) BLANK "DATA",160.16,12,"FIELD",129,3) L,ZERO^1280 "DATA",160.16,12,"FIELD",129,4) SURGICAL DX/STAGING PROC DATE (165.5,58.3) "DATA",160.16,12,"FIELD",130,0) 859^2^860^RX Summ--Surg Prim Site "DATA",160.16,12,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.6,"SPS") "DATA",160.16,12,"FIELD",130,2) NINE "DATA",160.16,12,"FIELD",130,3) L,ZERO^1290 "DATA",160.16,12,"FIELD",130,4) SURGERY OF PRIMARY (F) (165.5,58.6) "DATA",160.16,12,"FIELD",132,0) 865^1^865^RX Summ--Surgical Approch "DATA",160.16,12,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,12,"FIELD",132,2) NINE "DATA",160.16,12,"FIELD",132,3) L,BLANK^1310 "DATA",160.16,12,"FIELD",132,4) SURGICAL APPROACH (R) (165.5,74) "DATA",160.16,12,"FIELD",133,0) 866^1^866^RX Summ--Surgical Margins "DATA",160.16,12,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,12,"FIELD",133,2) BLANK "DATA",160.16,12,"FIELD",133,3) L,BLANK^1320 "DATA",160.16,12,"FIELD",133,4) SURGICAL MARGINS (165.5,59) "DATA",160.16,12,"FIELD",134,0) 867^1^867^RX Summ--Reconstruct 1st "DATA",160.16,12,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,12,"FIELD",134,2) NINE "DATA",160.16,12,"FIELD",134,3) L,BLANK^1330 "DATA",160.16,12,"FIELD",134,4) RECONSTRUCTION/RESTORATION (165.5,23) "DATA",160.16,12,"FIELD",135,0) 868^1^868^Reason for No Surgery "DATA",160.16,12,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,12,"FIELD",135,2) BLANK "DATA",160.16,12,"FIELD",135,3) L,BLANK^1340 "DATA",160.16,12,"FIELD",135,4) REASON FOR NO SURGERY (165.5,58) "DATA",160.16,12,"FIELD",136,0) 869^2^870^RX Summ--DX/Stg Proc "DATA",160.16,12,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,12,"FIELD",136,2) ZNINE "DATA",160.16,12,"FIELD",136,3) L,ZERO^1350 "DATA",160.16,12,"FIELD",136,4) SURGICAL DX/STAGING PROC (165.5,58.1) "DATA",160.16,12,"FIELD",137,0) 873^1^873^RX Summ--Radiation "DATA",160.16,12,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,12,"FIELD",137,2) BLANK "DATA",160.16,12,"FIELD",137,3) L,ZERO^1360 "DATA",160.16,12,"FIELD",137,4) RADIATION (165.5,51.2) "DATA",160.16,12,"FIELD",138,0) 874^1^874^RX Summ--Rad to CNS "DATA",160.16,12,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,12,"FIELD",138,2) BLANK "DATA",160.16,12,"FIELD",138,3) L,ZERO^1370 "DATA",160.16,12,"FIELD",138,4) RADIATION THERAPY TO CNS (165.5,52.2) "DATA",160.16,12,"FIELD",139,0) 875^1^875^RX Summ--Surg/Rad Seq "DATA",160.16,12,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,12,"FIELD",139,2) BLANK "DATA",160.16,12,"FIELD",139,3) L,ZERO^1380 "DATA",160.16,12,"FIELD",139,4) RADIATION/SURGERY SEQUENCE (165.5,51.3) "DATA",160.16,12,"FIELD",140,0) 878^2^879^RX Summ--Chemo "DATA",160.16,12,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,12,"FIELD",140,2) NINE "DATA",160.16,12,"FIELD",140,3) L,BLANK^1390 "DATA",160.16,12,"FIELD",140,4) CHEMOTHERAPY (165.5,53.2) "DATA",160.16,12,"FIELD",141,0) 880^2^881^RX Summ--Hormone "DATA",160.16,12,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,12,"FIELD",141,2) NINE "DATA",160.16,12,"FIELD",141,3) L,BLANK^1400 "DATA",160.16,12,"FIELD",141,4) HORMONE THERAPY (165.5,54.2) "DATA",160.16,12,"FIELD",142,0) 882^2^883^RX Summ--BRM "DATA",160.16,12,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,12,"FIELD",142,2) NINE "DATA",160.16,12,"FIELD",142,3) L,BLANK^1410 "DATA",160.16,12,"FIELD",142,4) IMMUNOTHERAPY (165.5,55.2) "DATA",160.16,12,"FIELD",143,0) 884^1^884^RX Summ--Other "DATA",160.16,12,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,12,"FIELD",143,2) BLANK "DATA",160.16,12,"FIELD",143,3) L,ZERO^1420 "DATA",160.16,12,"FIELD",143,4) OTHER TREATMENT (165.5,57.2) "DATA",160.16,12,"FIELD",144,0) 885^1^885^Reason for No Radiation "DATA",160.16,12,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,12,"FIELD",144,2) NINE "DATA",160.16,12,"FIELD",144,3) L,BLANK^1430 "DATA",160.16,12,"FIELD",144,4) REASON FOR NO RADIATION (165.5,75) "DATA",160.16,12,"FIELD",145,0) 886^2^887^Reserved 32 "DATA",160.16,12,"FIELD",145,1) S ACDANS="" "DATA",160.16,12,"FIELD",145,2) BLANK "DATA",160.16,12,"FIELD",145,3) L,BLANK^1435 "DATA",160.16,12,"FIELD",145,4) "DATA",160.16,12,"FIELD",147,0) 888^2^889^RX Coding System--Current "DATA",160.16,12,"FIELD",147,1) S ACDANS="06" "DATA",160.16,12,"FIELD",147,2) BLANK "DATA",160.16,12,"FIELD",147,3) L,ZERO^1460 "DATA",160.16,12,"FIELD",147,4) 06 Treatment data coded according to FORDS manual "DATA",160.16,12,"FIELD",151,0) 894^1^894^First Course Calc Method "DATA",160.16,12,"FIELD",151,1) S ACDANS=1 "DATA",160.16,12,"FIELD",151,2) BLANK "DATA",160.16,12,"FIELD",151,3) L,BLANK^1500 "DATA",160.16,12,"FIELD",151,4) 1 COC definitions "DATA",160.16,12,"FIELD",152,0) 895^5^899^Rad--Regional Dose:cGy "DATA",160.16,12,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,12,"FIELD",152,2) NINE "DATA",160.16,12,"FIELD",152,3) L,ZERO^1510 "DATA",160.16,12,"FIELD",152,4) REGIONAL DOSE: cGy (165.5,442) "DATA",160.16,12,"FIELD",153,0) 900^2^901^Rad--No of Treatment Vol "DATA",160.16,12,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,12,"FIELD",153,2) NINE "DATA",160.16,12,"FIELD",153,3) L,ZERO^1520 "DATA",160.16,12,"FIELD",153,4) NUMBER OF TXS TO THIS VOLUME (165.5,56) "DATA",160.16,12,"FIELD",154,0) 902^3^904^Reserved 34 "DATA",160.16,12,"FIELD",154,1) S ACDANS="" "DATA",160.16,12,"FIELD",154,2) BLANK "DATA",160.16,12,"FIELD",154,3) L,BLANK^1535 "DATA",160.16,12,"FIELD",155,0) 905^2^906^Rad--Treatment Volume "DATA",160.16,12,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",155,2) NINE "DATA",160.16,12,"FIELD",155,3) L,ZERO^1540 "DATA",160.16,12,"FIELD",155,4) RADIATION TREATMENT VOLUME (165.5,125) "DATA",160.16,12,"FIELD",156,0) 907^1^907^Rad--Location of RX "DATA",160.16,12,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,12,"FIELD",156,2) NINE "DATA",160.16,12,"FIELD",156,3) L,BLANK^1550 "DATA",160.16,12,"FIELD",156,4) LOCATION OF RADIATION TX (165.5,126) "DATA",160.16,12,"FIELD",157,0) 908^1^908^Reserved 35 "DATA",160.16,12,"FIELD",157,1) S ACDANS="" "DATA",160.16,12,"FIELD",157,2) BLANK "DATA",160.16,12,"FIELD",157,3) L,BLANK^1555 "DATA",160.16,12,"FIELD",157,4) "DATA",160.16,12,"FIELD",158,0) 909^2^910^Rad--Regional RX Modality "DATA",160.16,12,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",158,2) BLANK "DATA",160.16,12,"FIELD",158,3) L,ZERO^1570 "DATA",160.16,12,"FIELD",158,4) REGIONAL TREATMENT MODALITY (165.5,363) "DATA",160.16,12,"FIELD",159,0) 918^13^930^Reserved 23 "DATA",160.16,12,"FIELD",159,1) S ACDANS="" "DATA",160.16,12,"FIELD",159,2) BLANK "DATA",160.16,12,"FIELD",159,3) L,BLANK^1635 "DATA",160.16,12,"FIELD",159,4) "DATA",160.16,12,"FIELD",164,0) 931^1^931^RX Summ--Systemic Sur Seq "DATA",160.16,12,"FIELD",164,1) S ACDANS=$$GET1~DIQ(165.5,IEN,15,"I") "DATA",160.16,12,"FIELD",164,2) BLANK "DATA",160.16,12,"FIELD",164,3) L,BLANK^1639 "DATA",160.16,12,"FIELD",164,4) SYSTEMIC/SURGERY SEQUENCE (165.5,15) "DATA",160.16,12,"FIELD",165,0) 932^2^933^RX Summ--Surgery Type "DATA",160.16,12,"FIELD",165,1) S ACDANS="" "DATA",160.16,12,"FIELD",165,2) BLANK "DATA",160.16,12,"FIELD",165,3) L,BLANK^1640 "DATA",160.16,12,"FIELD",166,0) 943^45^987^Reserved 06 "DATA",160.16,12,"FIELD",166,1) S ACDANS="" "DATA",160.16,12,"FIELD",166,2) BLANK "DATA",160.16,12,"FIELD",166,3) L,BLANK^1190 "DATA",160.16,12,"FIELD",167,0) 988^8^995^Subsq RX 2nd Course Date "DATA",160.16,12,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",167,2) ZERO "DATA",160.16,12,"FIELD",167,3) L,BLANK^1660 "DATA",160.16,12,"FIELD",167,4) INITIATION DATE (165.51,.01) "DATA",160.16,12,"FIELD",168,0) 996^2^997^Subsq RX 2nd Course Surg "DATA",160.16,12,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,12,"FIELD",168,2) BLANK "DATA",160.16,12,"FIELD",168,3) L,ZERO^1671 "DATA",160.16,12,"FIELD",168,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,12,"FIELD",169,0) 998^1^998^Subsq RX 2nd Course Rad "DATA",160.16,12,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,12,"FIELD",169,2) BLANK "DATA",160.16,12,"FIELD",169,3) L,BLANK^1672 "DATA",160.16,12,"FIELD",169,4) RADIATION (165.51,.05) "DATA",160.16,12,"FIELD",170,0) 999^1^999^Subsq RX 2nd Course Chemo "DATA",160.16,12,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,12,"FIELD",170,2) BLANK "DATA",160.16,12,"FIELD",170,3) L,BLANK^1673 "DATA",160.16,12,"FIELD",170,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,12,"FIELD",171,0) 1000^1^1000^Subsq RX 2nd Course Horm "DATA",160.16,12,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,12,"FIELD",171,2) BLANK "DATA",160.16,12,"FIELD",171,3) L,BLANK^1674 "DATA",160.16,12,"FIELD",171,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,12,"FIELD",172,0) 1001^1^1001^Subsq RX 2nd Course BRM "DATA",160.16,12,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,12,"FIELD",172,2) BLANK "DATA",160.16,12,"FIELD",172,3) L,BLANK^1675 "DATA",160.16,12,"FIELD",172,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,12,"FIELD",173,0) 1002^1^1002^Subsq RX 2nd Course Oth "DATA",160.16,12,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,12,"FIELD",173,2) BLANK "DATA",160.16,12,"FIELD",173,3) L,BLANK^1676 "DATA",160.16,12,"FIELD",173,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,12,"FIELD",174,0) 1003^8^1010^Subsq RX 3rd Course Date "DATA",160.16,12,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",174,2) ZERO "DATA",160.16,12,"FIELD",174,3) L,BLANK^1680 "DATA",160.16,12,"FIELD",174,4) INITIATION DATE (165.51,.01) "DATA",160.16,12,"FIELD",175,0) 1011^2^1012^Subsq RX 3rd Course Surg "DATA",160.16,12,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,12,"FIELD",175,2) BLANK "DATA",160.16,12,"FIELD",175,3) L,ZERO^1691 "DATA",160.16,12,"FIELD",175,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,12,"FIELD",176,0) 1013^1^1013^Subsq RX 3rd Course Rad "DATA",160.16,12,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,12,"FIELD",176,2) BLANK "DATA",160.16,12,"FIELD",176,3) L,BLANK^1692 "DATA",160.16,12,"FIELD",176,4) RADIATION (165.51,.05) "DATA",160.16,12,"FIELD",177,0) 1014^1^1014^Subsq RX 3rd Course Chemo "DATA",160.16,12,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,12,"FIELD",177,2) BLANK "DATA",160.16,12,"FIELD",177,3) L,BLANK^1693 "DATA",160.16,12,"FIELD",177,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,12,"FIELD",178,0) 1015^1^1015^Subsq RX 3rd Course Horm "DATA",160.16,12,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,12,"FIELD",178,2) BLANK "DATA",160.16,12,"FIELD",178,3) L,BLANK^1694 "DATA",160.16,12,"FIELD",178,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,12,"FIELD",179,0) 1016^1^1016^Subsq RX 3rd Course BRM "DATA",160.16,12,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,12,"FIELD",179,2) BLANK "DATA",160.16,12,"FIELD",179,3) L,BLANK^1695 "DATA",160.16,12,"FIELD",179,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,12,"FIELD",180,0) 1017^1^1017^Subsq RX 3rd Course Oth "DATA",160.16,12,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,12,"FIELD",180,2) BLANK "DATA",160.16,12,"FIELD",180,3) L,BLANK^1696 "DATA",160.16,12,"FIELD",180,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,12,"FIELD",181,0) 1018^8^1025^Subsq RX 4th Course Date "DATA",160.16,12,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",181,2) ZERO "DATA",160.16,12,"FIELD",181,3) L,BLANK^1700 "DATA",160.16,12,"FIELD",181,4) INITIATION DATE (165.51,.01) "DATA",160.16,12,"FIELD",182,0) 1026^2^1027^Subsq RX 4th Course Surg "DATA",160.16,12,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,12,"FIELD",182,2) BLANK "DATA",160.16,12,"FIELD",182,3) L,ZERO^1711 "DATA",160.16,12,"FIELD",182,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,12,"FIELD",183,0) 1028^1^1028^Subsq RX 4th Course Rad "DATA",160.16,12,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,12,"FIELD",183,2) BLANK "DATA",160.16,12,"FIELD",183,3) L,BLANK^1712 "DATA",160.16,12,"FIELD",183,4) RADIATION (165.51,.05) "DATA",160.16,12,"FIELD",184,0) 1029^1^1029^Subsq RX 4th Course Chemo "DATA",160.16,12,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,12,"FIELD",184,2) BLANK "DATA",160.16,12,"FIELD",184,3) L,BLANK^1713 "DATA",160.16,12,"FIELD",184,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,12,"FIELD",185,0) 1030^1^1030^Subsq RX 4th Course Horm "DATA",160.16,12,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,12,"FIELD",185,2) BLANK "DATA",160.16,12,"FIELD",185,3) L,BLANK^1714 "DATA",160.16,12,"FIELD",185,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,12,"FIELD",186,0) 1031^1^1031^Subsq RX 4th Course BRM "DATA",160.16,12,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,12,"FIELD",186,2) BLANK "DATA",160.16,12,"FIELD",186,3) L,BLANK^1715 "DATA",160.16,12,"FIELD",186,4) IMMUNOTHERAPY (165.5,.08) "DATA",160.16,12,"FIELD",187,0) 1032^1^1032^Subsq RX 4th Course Oth "DATA",160.16,12,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,12,"FIELD",187,2) BLANK "DATA",160.16,12,"FIELD",187,3) L,BLANK^1716 "DATA",160.16,12,"FIELD",187,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,12,"FIELD",188,0) 1033^15^1047^Reserved 37 "DATA",160.16,12,"FIELD",188,1) S ACDANS="" "DATA",160.16,12,"FIELD",188,2) BLANK "DATA",160.16,12,"FIELD",188,3) L,BLANK^1725 "DATA",160.16,12,"FIELD",188,4) "DATA",160.16,12,"FIELD",195,0) 1065^50^1114^Reserved 07 "DATA",160.16,12,"FIELD",195,1) S ACDANS="" "DATA",160.16,12,"FIELD",195,2) BLANK "DATA",160.16,12,"FIELD",195,3) L,BLANK^1300 "DATA",160.16,12,"FIELD",196,0) 1294^8^1301^Date of Last Contact "DATA",160.16,12,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",196,2) BLANK "DATA",160.16,12,"FIELD",196,3) L,ZERO^1750 "DATA",160.16,12,"FIELD",196,4) DATE OF LAST CONTACT OR DEATH (160.04,.01) "DATA",160.16,12,"FIELD",197,0) 1302^1^1302^Vital Status "DATA",160.16,12,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,12,"FIELD",197,2) BLANK "DATA",160.16,12,"FIELD",197,3) L,BLANK^1760 "DATA",160.16,12,"FIELD",197,4) VITAL STATUS (160.04,1) "DATA",160.16,12,"FIELD",198,0) 1303^1^1303^Cancer Status "DATA",160.16,12,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,12,"FIELD",198,2) BLANK "DATA",160.16,12,"FIELD",198,3) L,BLANK^1770 "DATA",160.16,12,"FIELD",198,4) CANCER STATUS (165.573,.02) "DATA",160.16,12,"FIELD",199,0) 1304^1^1304^Quality of Survival "DATA",160.16,12,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,12,"FIELD",199,2) BLANK "DATA",160.16,12,"FIELD",199,3) L,BLANK^1780 "DATA",160.16,12,"FIELD",199,4) QUALITY OF SURVIVAL (160.04,4) "DATA",160.16,12,"FIELD",200,0) 1305^1^1305^Follow-Up Source "DATA",160.16,12,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,12,"FIELD",200,2) BLANK "DATA",160.16,12,"FIELD",200,3) L,BLANK^1790 "DATA",160.16,12,"FIELD",200,4) FOLLOW-UP SOURCE (160.04,3) "DATA",160.16,12,"FIELD",201,0) 1306^1^1306^Next Follow-up Source "DATA",160.16,12,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,12,"FIELD",201,2) BLANK "DATA",160.16,12,"FIELD",201,3) L,BLANK^1800 "DATA",160.16,12,"FIELD",201,4) NEXT FOLLOW-UP SOURCE (160.04,6) "DATA",160.16,12,"FIELD",202,0) 1307^20^1326^Addr Current--City "DATA",160.16,12,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,12,"FIELD",202,2) BLANK "DATA",160.16,12,"FIELD",202,3) R,BLANK^1810 "DATA",160.16,12,"FIELD",202,4) CITY (2,.114) "DATA",160.16,12,"FIELD",203,0) 1327^2^1328^Addr Current--State "DATA",160.16,12,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) S:ACDANS="" ACDANS="ZZ" "DATA",160.16,12,"FIELD",203,2) BLANK "DATA",160.16,12,"FIELD",203,3) R,BLANK^1820 "DATA",160.16,12,"FIELD",203,4) STATE (2,.115) "DATA",160.16,12,"FIELD",204,0) 1329^9^1337^Addr Current--Postal Code "DATA",160.16,12,"FIELD",204,1) S ACDANS=$$GET1~DIQ(160,ACD160,.116,"E") S:ACDANS=75999 ACDANS=999999999 D STRIP~ONCACDU2 "DATA",160.16,12,"FIELD",204,2) NINE "DATA",160.16,12,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,12,"FIELD",204,4) ZIP CODE (160,.116) "DATA",160.16,12,"FIELD",206,0) 1341^1^1341^Unusual Follow-Up Method "DATA",160.16,12,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,12,"FIELD",206,2) BLANK "DATA",160.16,12,"FIELD",206,3) L,BLANK^1850 "DATA",160.16,12,"FIELD",206,4) UNUSUAL FOLLOW-UP METHOD (160.04,7) "DATA",160.16,12,"FIELD",207,0) 1342^8^1349^Recurrence Date--1st "DATA",160.16,12,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,12,"FIELD",207,2) NINE "DATA",160.16,12,"FIELD",207,3) L,NINE^1860 "DATA",160.16,12,"FIELD",207,4) DATE OF FIRST RECURRENCE (165.5,70) "DATA",160.16,12,"FIELD",208,0) 1350^1^1350^Recurrence Distant Site 1 "DATA",160.16,12,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I") "DATA",160.16,12,"FIELD",208,2) BLANK "DATA",160.16,12,"FIELD",208,3) L,BLANK^1871 "DATA",160.16,12,"FIELD",208,4) DISTANT SITE 1 (165.5,71.1) "DATA",160.16,12,"FIELD",209,0) 1353^2^1354^Recurrence Type--1st "DATA",160.16,12,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",209,2) NINE "DATA",160.16,12,"FIELD",209,3) L,ZERO^1880 "DATA",160.16,12,"FIELD",209,4) TYPE OF FIRST RECURRENCE (165.5,71) "DATA",160.16,12,"FIELD",210,0) 1355^2^1356^Reserved 39 "DATA",160.16,12,"FIELD",210,1) S ACDANS="" "DATA",160.16,12,"FIELD",210,2) BLANK "DATA",160.16,12,"FIELD",210,3) L,BLANK^1895 "DATA",160.16,12,"FIELD",210,4) "DATA",160.16,12,"FIELD",211,0) 1338^3^1340^County--Current "DATA",160.16,12,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,12,"FIELD",211,2) BLANK "DATA",160.16,12,"FIELD",211,3) L,BLANK^1840 "DATA",160.16,12,"FIELD",213,0) 1388^4^1391^Cause of Death "DATA",160.16,12,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,12,"FIELD",213,2) BLANK "DATA",160.16,12,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,12,"FIELD",213,4) STATE DEATH CERT (160,19.1) "DATA",160.16,12,"FIELD",214,0) 1392^1^1392^ICD Revision Number "DATA",160.16,12,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,12,"FIELD",214,2) BLANK "DATA",160.16,12,"FIELD",214,3) L,ZERO^1920 "DATA",160.16,12,"FIELD",214,4) CAUSE OF DEATH (160,19), ICD REVISION (160,20) "DATA",160.16,12,"FIELD",215,0) 1393^1^1393^Autopsy "DATA",160.16,12,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,12,"FIELD",215,2) BLANK "DATA",160.16,12,"FIELD",215,3) L,BLANK^1930 "DATA",160.16,12,"FIELD",215,4) AUTOPSY (160,22.9) "DATA",160.16,12,"FIELD",216,0) 1394^3^1396^Place of Death "DATA",160.16,12,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,12,"FIELD",216,2) BLANK "DATA",160.16,12,"FIELD",216,3) L,BLANK^1940 "DATA",160.16,12,"FIELD",216,4) PLACE OF DEATH (160,21) "DATA",160.16,12,"FIELD",218,0) 1137^4^1140^Site (73-91) ICD-O-1 "DATA",160.16,12,"FIELD",218,1) S ACDANS="" "DATA",160.16,12,"FIELD",218,2) BLANK "DATA",160.16,12,"FIELD",218,3) L,BLANK^1960 "DATA",160.16,12,"FIELD",219,0) 1141^6^1146^Morph (73-91) ICD-O-1 "DATA",160.16,12,"FIELD",219,1) S ACDANS="" "DATA",160.16,12,"FIELD",219,2) BLANK "DATA",160.16,12,"FIELD",219,3) L,BLANK^1970 "DATA",160.16,12,"FIELD",220,0) 1147^1^1147^ICD-O-2 Conversion Flag "DATA",160.16,12,"FIELD",220,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:4,1:"") K DATEDX "DATA",160.16,12,"FIELD",220,2) BLANK "DATA",160.16,12,"FIELD",220,3) L,BLANK^1980 "DATA",160.16,12,"FIELD",221,0) 1124^1^1124^Over-ride Age/Site/Morph "DATA",160.16,12,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,12,"FIELD",221,2) BLANK "DATA",160.16,12,"FIELD",221,3) L,BLANK^1990 "DATA",160.16,12,"FIELD",221,4) OVERRIDE AGE/SITE/MORPH (165.5,205) "DATA",160.16,12,"FIELD",222,0) 1125^1^1125^Over-ride SeqNo/DxConf "DATA",160.16,12,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,12,"FIELD",222,2) BLANK "DATA",160.16,12,"FIELD",222,3) L,BLANK^2000 "DATA",160.16,12,"FIELD",222,4) OVERRIDE SEQNO/DXCONF (165.5,206) "DATA",160.16,12,"FIELD",223,0) 1126^1^1126^Over-ride Site/Lat/SeqNo "DATA",160.16,12,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,12,"FIELD",223,2) BLANK "DATA",160.16,12,"FIELD",223,3) L,BLANK^2010 "DATA",160.16,12,"FIELD",223,4) OVERRIDE SITE/LAT/SEQNO (165.5,207) "DATA",160.16,12,"FIELD",224,0) 1127^1^1127^Over-ride Surg/DxConf "DATA",160.16,12,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,12,"FIELD",224,2) BLANK "DATA",160.16,12,"FIELD",224,3) L,BLANK^2020 "DATA",160.16,12,"FIELD",224,4) OVERRIDE SURG/DXCONF (165.5,208) "DATA",160.16,12,"FIELD",225,0) 1128^1^1128^Over-ride Site/Type "DATA",160.16,12,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,12,"FIELD",225,2) BLANK "DATA",160.16,12,"FIELD",225,3) L,BLANK^2030 "DATA",160.16,12,"FIELD",225,4) OVERRIDE SITE/TYPE (165.5,209) "DATA",160.16,12,"FIELD",226,0) 1129^1^1129^Over-ride Histology "DATA",160.16,12,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,12,"FIELD",226,2) BLANK "DATA",160.16,12,"FIELD",226,3) L,BLANK^2040 "DATA",160.16,12,"FIELD",226,4) OVERRIDE HISTOLOGY (165.5,210) "DATA",160.16,12,"FIELD",227,0) 1130^1^1130^Over-ride Report Source "DATA",160.16,12,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,12,"FIELD",227,2) BLANK "DATA",160.16,12,"FIELD",227,3) L,BLANK^2050 "DATA",160.16,12,"FIELD",227,4) OVERRIDE REPORT SOURCE (165.5,211) "DATA",160.16,12,"FIELD",228,0) 1131^1^1131^Over-ride Ill-define Site "DATA",160.16,12,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,12,"FIELD",228,2) BLANK "DATA",160.16,12,"FIELD",228,3) L,BLANK^2060 "DATA",160.16,12,"FIELD",228,4) OVERRIDE ILL-DEFINE SITE (165.5,212) "DATA",160.16,12,"FIELD",229,0) 1132^1^1132^Over-ride Leuk, Lymphoma "DATA",160.16,12,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,12,"FIELD",229,2) BLANK "DATA",160.16,12,"FIELD",229,3) L,BLANK^2070 "DATA",160.16,12,"FIELD",229,4) OVERRIDE LEUK,LYMPHOMA (165.5,213) "DATA",160.16,12,"FIELD",231,0) 1174^8^1181^Date Case Completed "DATA",160.16,12,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",231,2) BLANK "DATA",160.16,12,"FIELD",231,3) L,BLANK^2090 "DATA",160.16,12,"FIELD",231,4) DATE CASE COMPLETED (165.5,90) "DATA",160.16,12,"FIELD",232,0) 1182^8^1189^Date Case Last Changed "DATA",160.16,12,"FIELD",232,1) S ACDANS=$$GET1~DIQ(165.5,IEN,198,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",232,2) BLANK "DATA",160.16,12,"FIELD",232,3) L,BLANK^2100 "DATA",160.16,12,"FIELD",232,4) DATE CASE LAST CHANGED (165.5,198) "DATA",160.16,12,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,12,"FIELD",233,1) S ACDANS="" Q:$G(EXPORT)'="YES" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,12,"FIELD",233,2) BLANK "DATA",160.16,12,"FIELD",233,3) L,ZERO^2110 "DATA",160.16,12,"FIELD",233,4) Current date "DATA",160.16,12,"FIELD",234,0) 1198^1^1198^SEER Coding Sys--Current "DATA",160.16,12,"FIELD",234,1) S ACDANS=6 "DATA",160.16,12,"FIELD",234,2) BLANK "DATA",160.16,12,"FIELD",234,3) L,BLANK^2120 "DATA",160.16,12,"FIELD",234,4) 2003 SEER Coding Manual "DATA",160.16,12,"FIELD",235,0) 1199^1^1199^SEER Coding Sys--Original "DATA",160.16,12,"FIELD",235,1) S ACDANS=6 "DATA",160.16,12,"FIELD",235,2) BLANK "DATA",160.16,12,"FIELD",235,3) L,BLANK^2130 "DATA",160.16,12,"FIELD",235,4) 2003 SEER Coding Manual "DATA",160.16,12,"FIELD",236,0) 1200^2^1201^COC Coding Sys--Current "DATA",160.16,12,"FIELD",236,1) S ACDANS="08" "DATA",160.16,12,"FIELD",236,2) BLANK "DATA",160.16,12,"FIELD",236,3) L,BLANK^2140 "DATA",160.16,12,"FIELD",236,4) 08 FORDS (effective with cases diagnosed 2003 are forward) "DATA",160.16,12,"FIELD",237,0) 1202^2^1203^COC Coding Sys--Original "DATA",160.16,12,"FIELD",237,1) S ACDANS=$$COCO~ONCACDU2(IEN) "DATA",160.16,12,"FIELD",237,2) BLANK "DATA",160.16,12,"FIELD",237,3) L,BLANK^2150 "DATA",160.16,12,"FIELD",237,4) 08, 07, or 05 depending on DATE DX "DATA",160.16,12,"FIELD",238,0) 1244^50^1293^Reserved 08 "DATA",160.16,12,"FIELD",238,1) S ACDANS="" "DATA",160.16,12,"FIELD",238,2) BLANK "DATA",160.16,12,"FIELD",238,3) L,BLANK^1650 "DATA",160.16,12,"FIELD",239,0) 1204^10^1213^Vendor Name "DATA",160.16,12,"FIELD",239,1) S ACDANS=$$VENDOR~ONCACDU2 "DATA",160.16,12,"FIELD",239,2) BLANK "DATA",160.16,12,"FIELD",239,3) R,BLANK^2170 "DATA",160.16,12,"FIELD",239,4) "VA"_NAACCR version_patch # e.g. VAV11P46 "DATA",160.16,12,"FIELD",240,0) 1214^1^1214^SEER Type of Follow-Up "DATA",160.16,12,"FIELD",240,1) S ACDANS="" "DATA",160.16,12,"FIELD",240,2) BLANK "DATA",160.16,12,"FIELD",240,3) L,BLANK^2180 "DATA",160.16,12,"FIELD",241,0) 1215^2^1216^SEER Record Number "DATA",160.16,12,"FIELD",241,1) S ACDANS="" "DATA",160.16,12,"FIELD",241,2) BLANK "DATA",160.16,12,"FIELD",241,3) L,BLANK^2190 "DATA",160.16,12,"FIELD",242,0) 1217^2^1218^Diagnostic Proc 73-87 "DATA",160.16,12,"FIELD",242,1) S ACDANS="" "DATA",160.16,12,"FIELD",242,2) BLANK "DATA",160.16,12,"FIELD",242,3) L,BLANK^2200 "DATA",160.16,12,"FIELD",243,0) 1243^1^1243^ICD-O-3 Conversion Flag "DATA",160.16,12,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,12,"FIELD",243,2) BLANK "DATA",160.16,12,"FIELD",243,3) L,BLANK^2116 "DATA",160.16,12,"FIELD",340,0) 459^1^459^RX Hosp--Scope Reg LN Sur "DATA",160.16,12,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.5,"I") "DATA",160.16,12,"FIELD",340,2) NINE "DATA",160.16,12,"FIELD",340,3) L,BLANK^672 "DATA",160.16,12,"FIELD",340,4) SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "DATA",160.16,12,"FIELD",341,0) 460^1^460^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,12,"FIELD",341,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.5,"I") "DATA",160.16,12,"FIELD",341,2) NINE "DATA",160.16,12,"FIELD",341,3) L,BLANK^674 "DATA",160.16,12,"FIELD",341,4) SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "DATA",160.16,12,"FIELD",342,0) 461^2^462^RX Hosp--Reg LN Removed "DATA",160.16,12,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,12,"FIELD",342,2) BLANK "DATA",160.16,12,"FIELD",342,3) L,BLANK^676 "DATA",160.16,12,"FIELD",342,4) NUMBER OF LN REMOVED @FAC (R) (165.5,140.1) "DATA",160.16,12,"FIELD",343,0) 474^4^477^Reserved 28 "DATA",160.16,12,"FIELD",343,1) S ACDANS="" "DATA",160.16,12,"FIELD",343,2) BLANK "DATA",160.16,12,"FIELD",343,3) L,BLANK^741 "DATA",160.16,12,"FIELD",343,4) "DATA",160.16,12,"FIELD",347,0) 861^1^861^RX Summ--Scope Reg LN Sur "DATA",160.16,12,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.4,"I") "DATA",160.16,12,"FIELD",347,2) NINE "DATA",160.16,12,"FIELD",347,3) L,BLANK^1292 "DATA",160.16,12,"FIELD",347,4) SCOPE OF LN SURGERY (F) (165.5,138.4) "DATA",160.16,12,"FIELD",348,0) 862^1^862^RX Summ--Surg Oth Reg/Dis "DATA",160.16,12,"FIELD",348,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.4,"I") "DATA",160.16,12,"FIELD",348,2) NINE "DATA",160.16,12,"FIELD",348,3) L,BLANK^1294 "DATA",160.16,12,"FIELD",348,4) SURG PROC/OTHER SITE (F) (165.5,139.4) "DATA",160.16,12,"FIELD",349,0) 863^2^864^RX Summ--Reg LN Examined "DATA",160.16,12,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,12,"FIELD",349,2) BLANK "DATA",160.16,12,"FIELD",349,3) L,ZERO^1296 "DATA",160.16,12,"FIELD",349,4) NUMBER OF LN REMOVED (R) (165.5,140) "DATA",160.16,12,"FIELD",350,0) 934^4^937^Reserved 36 "DATA",160.16,12,"FIELD",350,1) S ACDANS="" "DATA",160.16,12,"FIELD",350,2) BLANK "DATA",160.16,12,"FIELD",350,3) L,BLANK^1641 "DATA",160.16,12,"FIELD",350,4) "DATA",160.16,12,"FIELD",354,0) 1048^1^1048^Subsq RX 2nd--Scope LN Su "DATA",160.16,12,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,12,"FIELD",354,2) BLANK "DATA",160.16,12,"FIELD",354,3) L,BLANK^1677 "DATA",160.16,12,"FIELD",354,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,12,"FIELD",355,0) 1049^1^1049^Subsq RX 2nd--Surg Oth "DATA",160.16,12,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,12,"FIELD",355,2) BLANK "DATA",160.16,12,"FIELD",355,3) L,BLANK^1678 "DATA",160.16,12,"FIELD",355,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,12,"FIELD",356,0) 1050^2^1051^Subsq RX 2nd--Reg LN Rem "DATA",160.16,12,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,12,"FIELD",356,2) BLANK "DATA",160.16,12,"FIELD",356,3) L,BLANK^1679 "DATA",160.16,12,"FIELD",356,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,12,"FIELD",357,0) 1052^1^1052^Subsq RX 3rd--Scope LN Su "DATA",160.16,12,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,12,"FIELD",357,2) BLANK "DATA",160.16,12,"FIELD",357,3) L,BLANK^1697 "DATA",160.16,12,"FIELD",357,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,12,"FIELD",358,0) 1053^1^1053^Subsq RX 3rd--Surg Oth "DATA",160.16,12,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,12,"FIELD",358,2) BLANK "DATA",160.16,12,"FIELD",358,3) L,BLANK^1698 "DATA",160.16,12,"FIELD",358,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,12,"FIELD",359,0) 1054^2^1055^Subsq RX 3rd--Reg LN Rem "DATA",160.16,12,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,12,"FIELD",359,2) BLANK "DATA",160.16,12,"FIELD",359,3) L,BLANK^1699 "DATA",160.16,12,"FIELD",359,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,12,"FIELD",360,0) 1056^1^1056^Subsq RX 4th--Scope LN Su "DATA",160.16,12,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,12,"FIELD",360,2) BLANK "DATA",160.16,12,"FIELD",360,3) L,BLANK^1717 "DATA",160.16,12,"FIELD",360,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,12,"FIELD",361,0) 1057^1^1057^Subsq RX 4th--Surg Oth "DATA",160.16,12,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,12,"FIELD",361,2) BLANK "DATA",160.16,12,"FIELD",361,3) L,BLANK^1718 "DATA",160.16,12,"FIELD",361,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,12,"FIELD",362,0) 1058^2^1059^Subsq RX 4th--Reg LN Rem "DATA",160.16,12,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,12,"FIELD",362,2) BLANK "DATA",160.16,12,"FIELD",362,3) L,BLANK^1719 "DATA",160.16,12,"FIELD",362,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,12,"FIELD",363,0) 1060^4^1063^Reserved 38 "DATA",160.16,12,"FIELD",363,1) S ACDANS="" "DATA",160.16,12,"FIELD",363,2) BLANK "DATA",160.16,12,"FIELD",363,3) L,BLANK^1726 "DATA",160.16,12,"FIELD",363,4) "DATA",160.16,12,"FIELD",366,0) 1064^1^1064^Subsq RX--Reconstruct Del "DATA",160.16,12,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,12,"FIELD",366,2) NINE "DATA",160.16,12,"FIELD",366,3) L,NINE^1741 "DATA",160.16,12,"FIELD",366,4) RECON/RESTORE - DELAYED (165.51,33) "DATA",160.16,12,"FIELD",367,0) 1357^20^1376^Follow-Up Contact--City "DATA",160.16,12,"FIELD",367,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,2) K VICPNT "DATA",160.16,12,"FIELD",367,2) BLANK "DATA",160.16,12,"FIELD",367,3) R,BLANK^1842 "DATA",160.16,12,"FIELD",367,4) ZIP CODE (165,.119) "DATA",160.16,12,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,12,"FIELD",368,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) STATE=$P(~VIC(5.11,VICPNT,0),U,4) S:$G(STATE) ACDANS=$P(~DIC(5,STATE,0),U,2) K STATE,VICPNT "DATA",160.16,12,"FIELD",368,2) BLANK "DATA",160.16,12,"FIELD",368,3) R,BLANK^1844 "DATA",160.16,12,"FIELD",368,4) ZIP CODE (165,.119) "DATA",160.16,12,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,12,"FIELD",369,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,1) K VICPNT "DATA",160.16,12,"FIELD",369,2) BLANK "DATA",160.16,12,"FIELD",369,3) R,BLANK^1846 "DATA",160.16,12,"FIELD",369,4) ZIP CODE (165,.119) "DATA",160.16,12,"FIELD",370,0) 1133^1^1133^Over-ride Site/Behavior "DATA",160.16,12,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,12,"FIELD",370,2) BLANK "DATA",160.16,12,"FIELD",370,3) L,BLANK^2071 "DATA",160.16,12,"FIELD",370,4) OVERRIDE SITE/BEHAVIOR (165.5,214) "DATA",160.16,12,"FIELD",371,0) 1134^1^1134^Over-ride Site/EOD/DX Dt "DATA",160.16,12,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,12,"FIELD",371,2) BLANK "DATA",160.16,12,"FIELD",371,3) L,BLANK^2072 "DATA",160.16,12,"FIELD",371,4) OVERRIDE SITE/EOD/DX DT (165.5,215) "DATA",160.16,12,"FIELD",372,0) 1135^1^1135^Over-ride Site/Lat/EOD "DATA",160.16,12,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,12,"FIELD",372,2) BLANK "DATA",160.16,12,"FIELD",372,3) L,BLANK^2073 "DATA",160.16,12,"FIELD",372,4) OVERRIDE SITE/LAT/EOD (165.5,216) "DATA",160.16,12,"FIELD",373,0) 1136^1^1136^Over-ride Site/Lat/Morph "DATA",160.16,12,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,12,"FIELD",373,2) BLANK "DATA",160.16,12,"FIELD",373,3) L,BLANK^2074 "DATA",160.16,12,"FIELD",373,4) OVERRIDE SITE/LAT/MORPH (165.5,217) "DATA",160.16,12,"FIELD",374,0) 1148^16^1163^Reserved 24 "DATA",160.16,12,"FIELD",374,1) S ACDANS="" "DATA",160.16,12,"FIELD",374,2) BLANK "DATA",160.16,12,"FIELD",374,3) L,BLANK "DATA",160.16,12,"FIELD",376,0) 1219^8^1226^Date Case Report Received "DATA",160.16,12,"FIELD",376,1) S ACDANS="" "DATA",160.16,12,"FIELD",376,2) BLANK "DATA",160.16,12,"FIELD",376,3) L,BLANK^2111 "DATA",160.16,12,"FIELD",377,0) 1227^8^1234^Date Case Report Loaded "DATA",160.16,12,"FIELD",377,1) S ACDANS="" "DATA",160.16,12,"FIELD",377,2) BLANK "DATA",160.16,12,"FIELD",377,3) L,BLANK^2112 "DATA",160.16,12,"FIELD",378,0) 1235^8^1242^Date Tumor Record Availbl "DATA",160.16,12,"FIELD",378,1) S ACDANS="" "DATA",160.16,12,"FIELD",378,2) BLANK "DATA",160.16,12,"FIELD",378,3) L,BLANK^2113 "DATA",160.16,12,"FIELD",379,0) 1164^10^1173^CRC CHECKSUM "DATA",160.16,12,"FIELD",379,1) S ACDANS="" "DATA",160.16,12,"FIELD",379,2) BLANK "DATA",160.16,12,"FIELD",379,3) L,BLANK^2081 "DATA",160.16,12,"FIELD",380,0) 12^7^18^Reserved 00 "DATA",160.16,12,"FIELD",380,1) S ACDANS="" "DATA",160.16,12,"FIELD",380,2) BLANK "DATA",160.16,12,"FIELD",380,3) L,BLANK^37 "DATA",160.16,12,"FIELD",382,0) 382^10^391^Reporting Facility "DATA",160.16,12,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") I (ACDANS=9999999)&($L(STAT1)=8) S ACDANS=99999999 "DATA",160.16,12,"FIELD",382,2) ZERO "DATA",160.16,12,"FIELD",382,3) L,ZERO^540 "DATA",160.16,12,"FIELD",382,4) REPORTING FACILITY (165.5,.03) "DATA",160.16,12,"FIELD",383,0) 402^9^410^Accession Number--Hosp "DATA",160.16,12,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,12,"FIELD",383,2) BLANK "DATA",160.16,12,"FIELD",383,3) L,ZERO^550 "DATA",160.16,12,"FIELD",383,4) ACCESSION NUMBER (165.5,.05) "DATA",160.16,12,"FIELD",388,0) 372^10^381^NPI--Reporting Facility "DATA",160.16,12,"FIELD",388,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,.03,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,12,"FIELD",388,2) BLANK "DATA",160.16,12,"FIELD",388,3) L,BLANK^545 "DATA",160.16,12,"FIELD",388,4) NPI (160.19,101) "DATA",160.16,12,"FIELD",390,0) 345^27^371^Reserved 03 "DATA",160.16,12,"FIELD",390,1) S ACDANS="" "DATA",160.16,12,"FIELD",390,2) BLANK "DATA",160.16,12,"FIELD",390,3) L,BLANK^680 "DATA",160.16,12,"FIELD",391,0) 528^1^528^SEER Summary Stage 2000 "DATA",160.16,12,"FIELD",391,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,12,"FIELD",391,2) BLANK "DATA",160.16,12,"FIELD",391,3) L,BLANK^759 "DATA",160.16,12,"FIELD",391,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,12,"FIELD",392,0) 1115^1^1115^Over-ride SS/NodesPos "DATA",160.16,12,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,12,"FIELD",392,2) BLANK "DATA",160.16,12,"FIELD",392,3) L,BLANK^1981 "DATA",160.16,12,"FIELD",392,4) OVERRIDE SS/NODESPOS (165.5,218) "DATA",160.16,12,"FIELD",393,0) 1116^1^1116^Over-ride SS/TNM-N "DATA",160.16,12,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,12,"FIELD",393,2) BLANK "DATA",160.16,12,"FIELD",393,3) L,BLANK^1982 "DATA",160.16,12,"FIELD",393,4) OVERRIDE SS/TNM-N (165.5,219) "DATA",160.16,12,"FIELD",394,0) 1117^1^1117^Over-ride SS/TNM-M "DATA",160.16,12,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,12,"FIELD",394,2) BLANK "DATA",160.16,12,"FIELD",394,3) L,BLANK^1983 "DATA",160.16,12,"FIELD",394,4) OVERRIDE SS/TNM-M (165.5,220) "DATA",160.16,12,"FIELD",395,0) 1118^1^1118^Over-ride SS/DisMet1 "DATA",160.16,12,"FIELD",395,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,12,"FIELD",395,2) BLANK "DATA",160.16,12,"FIELD",395,3) L,BLANK^1984 "DATA",160.16,12,"FIELD",395,4) OVERRIDE SS/DISMET1 (165.5,221) "DATA",160.16,12,"FIELD",396,0) 1119^1^1119^Over-ride Acsn/Class/Seq "DATA",160.16,12,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,12,"FIELD",396,2) BLANK "DATA",160.16,12,"FIELD",396,3) L,BLANK^1985 "DATA",160.16,12,"FIELD",396,4) OVERRIDE ACSN/CLASS/SEQ (165.5,222) "DATA",160.16,12,"FIELD",397,0) 1120^1^1120^Over-ride HospSeq/DxConf "DATA",160.16,12,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,12,"FIELD",397,2) BLANK "DATA",160.16,12,"FIELD",397,3) L,BLANK^1986 "DATA",160.16,12,"FIELD",397,4) OVERRIDE HOSPSEQ/DXCONF (165.5,223) "DATA",160.16,12,"FIELD",398,0) 1121^1^1121^Over-ride COC-Site/Type "DATA",160.16,12,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,12,"FIELD",398,2) BLANK "DATA",160.16,12,"FIELD",398,3) L,BLANK^1987 "DATA",160.16,12,"FIELD",398,4) OVERRIDE COC-SITE/TYPE (165.5,224) "DATA",160.16,12,"FIELD",399,0) 1122^1^1122^Over-ride HospSeq/Site "DATA",160.16,12,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,12,"FIELD",399,2) BLANK "DATA",160.16,12,"FIELD",399,3) L,BLANK^1988 "DATA",160.16,12,"FIELD",399,4) OVERRIDE HOSPSEQ/SITE (165.5,225) "DATA",160.16,12,"FIELD",400,0) 1123^1^1123^Over-ride Site/TNM-StgGrp "DATA",160.16,12,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,12,"FIELD",400,2) BLANK "DATA",160.16,12,"FIELD",400,3) L,BLANK^1989 "DATA",160.16,12,"FIELD",400,4) OVERRIDE SITE/TNM-STAGE GROUP (165.5,226) "DATA",160.16,12,"FIELD",401,0) 1399^8^1406^Date of Death--Canada "DATA",160.16,12,"FIELD",401,1) S ACDANS="" "DATA",160.16,12,"FIELD",401,2) BLANK "DATA",160.16,12,"FIELD",401,3) L,BLANK^1755 "DATA",160.16,12,"FIELD",402,0) 30^2^31^Tumor Record Number "DATA",160.16,12,"FIELD",402,1) S ACDANS="" "DATA",160.16,12,"FIELD",402,2) BLANK "DATA",160.16,12,"FIELD",402,3) L,BLANK^60 "DATA",160.16,12,"FIELD",403,0) 32^8^39^Patient System ID-Hosp "DATA",160.16,12,"FIELD",403,1) S ACDANS=ACD160 "DATA",160.16,12,"FIELD",403,2) BLANK "DATA",160.16,12,"FIELD",403,3) L,ZERO^21 "DATA",160.16,12,"FIELD",403,4) ONCOLOGY PATIENT file IEN "DATA",160.16,12,"FIELD",404,0) 52^20^71^Addr at DX--City "DATA",160.16,12,"FIELD",404,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"UNKNOWN") D STRIP~ONCACDU2 "DATA",160.16,12,"FIELD",404,2) BLANK "DATA",160.16,12,"FIELD",404,3) R,BLANK^70 "DATA",160.16,12,"FIELD",404,4) CITY/TOWN AT DX (165.5,8.1) "DATA",160.16,12,"FIELD",405,0) 72^2^73^Addr at DX--State "DATA",160.16,12,"FIELD",405,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,12,"FIELD",405,2) BLANK "DATA",160.16,12,"FIELD",405,3) L,BLANK^80 "DATA",160.16,12,"FIELD",405,4) STATE AT DX (165.5,16) "DATA",160.16,12,"FIELD",406,0) 114^1^114^Race Coding Sys--Original "DATA",160.16,12,"FIELD",406,1) S ACDANS=6 "DATA",160.16,12,"FIELD",406,2) BLANK "DATA",160.16,12,"FIELD",406,3) L,BLANK^180 "DATA",160.16,12,"FIELD",406,4) 6 2000+ SEER & COC "DATA",160.16,12,"FIELD",407,0) 83^3^85^County at DX "DATA",160.16,12,"FIELD",407,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,12,"FIELD",407,2) BLANK "DATA",160.16,12,"FIELD",407,3) L,ZERO^90 "DATA",160.16,12,"FIELD",407,4) COUNTY AT DX (165.5,10) "DATA",160.16,12,"FIELD",408,0) 86^6^91^Census Tract 1970/80/90 "DATA",160.16,12,"FIELD",408,1) S ACDANS="" "DATA",160.16,12,"FIELD",408,2) BLANK "DATA",160.16,12,"FIELD",408,3) L,BLANK^110 "DATA",160.16,12,"FIELD",408,4) "DATA",160.16,12,"FIELD",409,0) 92^1^92^Census Cod Sys 1970/80/90 "DATA",160.16,12,"FIELD",409,1) S ACDANS="" "DATA",160.16,12,"FIELD",409,2) BLANK "DATA",160.16,12,"FIELD",409,3) L,BLANK^120 "DATA",160.16,12,"FIELD",410,0) 133^2^134^Religion "DATA",160.16,12,"FIELD",410,1) S ACDANS="" "DATA",160.16,12,"FIELD",410,2) BLANK "DATA",160.16,12,"FIELD",410,3) L,BLANK^260 "DATA",160.16,12,"FIELD",411,0) 142^1^142^Industry Source "DATA",160.16,12,"FIELD",411,1) S ACDANS="" "DATA",160.16,12,"FIELD",411,2) BLANK "DATA",160.16,12,"FIELD",411,3) L,BLANK^300 "DATA",160.16,12,"FIELD",412,0) 223^1^223^Occup/Ind Coding System "DATA",160.16,12,"FIELD",412,1) S ACDANS="" "DATA",160.16,12,"FIELD",412,2) BLANK "DATA",160.16,12,"FIELD",412,3) L,BLANK^330 "DATA",160.16,12,"FIELD",413,0) 113^1^113^Race Coding Sys--Current "DATA",160.16,12,"FIELD",413,1) S ACDANS=6 "DATA",160.16,12,"FIELD",413,2) BLANK "DATA",160.16,12,"FIELD",413,3) L,BLANK^170 "DATA",160.16,12,"FIELD",413,4) 6 2000+ SEER & COC "DATA",160.16,12,"FIELD",414,0) 115^1^115^Spanish/Hispanic Origin "DATA",160.16,12,"FIELD",414,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,12,"FIELD",414,2) BLANK "DATA",160.16,12,"FIELD",414,3) L,BLANK^190 "DATA",160.16,12,"FIELD",414,4) SPANISH ORIGIN (160,9) "DATA",160.16,12,"FIELD",415,0) 116^1^116^Computed Ethnicity "DATA",160.16,12,"FIELD",415,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,12,"FIELD",415,2) BLANK "DATA",160.16,12,"FIELD",415,3) L,BLANK^200 "DATA",160.16,12,"FIELD",415,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,12,"FIELD",416,0) 117^1^117^Computed Ethnicity Source "DATA",160.16,12,"FIELD",416,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,12,"FIELD",416,2) BLANK "DATA",160.16,12,"FIELD",416,3) L,BLANK^210 "DATA",160.16,12,"FIELD",416,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,12,"FIELD",417,0) 118^1^118^Sex "DATA",160.16,12,"FIELD",417,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,12,"FIELD",417,2) BLANK "DATA",160.16,12,"FIELD",417,3) L,BLANK^220 "DATA",160.16,12,"FIELD",417,4) SEX (160,10) "DATA",160.16,12,"FIELD",418,0) 119^3^121^Age at Diagnosis "DATA",160.16,12,"FIELD",418,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,12,"FIELD",418,2) BLANK "DATA",160.16,12,"FIELD",418,3) L,ZERO^230 "DATA",160.16,12,"FIELD",418,4) AGE~ONCOCOM "DATA",160.16,12,"FIELD",419,0) 122^8^129^Birth Date "DATA",160.16,12,"FIELD",419,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,12,"FIELD",419,2) BLANK "DATA",160.16,12,"FIELD",419,3) L,ZERO^240 "DATA",160.16,12,"FIELD",419,4) DOB~ONCOES "DATA",160.16,12,"FIELD",420,0) 130^3^132^Birthplace "DATA",160.16,12,"FIELD",420,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,12,"FIELD",420,2) BLANK "DATA",160.16,12,"FIELD",420,3) L,ZERO^250 "DATA",160.16,12,"FIELD",420,4) PLACE OF BIRTH (160,7) "DATA",160.16,12,"FIELD",421,0) 99^1^99^Census Tract Block Group "DATA",160.16,12,"FIELD",421,1) S ACDANS="" "DATA",160.16,12,"FIELD",421,2) BLANK "DATA",160.16,12,"FIELD",421,3) L,BLANK^362 "DATA",160.16,12,"FIELD",422,0) 100^1^100^Census Tr Cert 1970/80/90 "DATA",160.16,12,"FIELD",422,1) S ACDANS="" "DATA",160.16,12,"FIELD",422,2) BLANK "DATA",160.16,12,"FIELD",422,3) L,BLANK^364 "DATA",160.16,12,"FIELD",423,0) 141^1^141^Occupation Source "DATA",160.16,12,"FIELD",423,1) S ACDANS="" "DATA",160.16,12,"FIELD",423,2) BLANK "DATA",160.16,12,"FIELD",423,3) L,BLANK^290 "DATA",160.16,12,"FIELD",424,0) 105^2^106^Race 2 "DATA",160.16,12,"FIELD",424,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,12,"FIELD",424,2) 8 "DATA",160.16,12,"FIELD",424,3) L,ZERO^161 "DATA",160.16,12,"FIELD",424,4) RACE 2 (160,8.1) "DATA",160.16,12,"FIELD",425,0) 107^2^108^Race 3 "DATA",160.16,12,"FIELD",425,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,12,"FIELD",425,2) 8 "DATA",160.16,12,"FIELD",425,3) L,ZERO^162 "DATA",160.16,12,"FIELD",425,4) RACE 3 (160,8.2) "DATA",160.16,12,"FIELD",426,0) 109^2^110^Race 4 "DATA",160.16,12,"FIELD",426,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,12,"FIELD",426,2) 8 "DATA",160.16,12,"FIELD",426,3) L,ZERO^163 "DATA",160.16,12,"FIELD",426,4) RACE 4 (160,8.3) "DATA",160.16,12,"FIELD",427,0) 111^2^112^Race 5 "DATA",160.16,12,"FIELD",427,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,12,"FIELD",427,2) 8 "DATA",160.16,12,"FIELD",427,3) L,ZERO^164 "DATA",160.16,12,"FIELD",427,4) RACE 5 (160,8.4) "DATA",160.16,12,"FIELD",428,0) 135^3^137^Occupation Code--Census "DATA",160.16,12,"FIELD",428,1) S ACDANS="" "DATA",160.16,12,"FIELD",428,2) BLANK "DATA",160.16,12,"FIELD",428,3) L,BLANK^270 "DATA",160.16,12,"FIELD",429,0) 138^3^140^Industry Code--Census "DATA",160.16,12,"FIELD",429,1) S ACDANS="" "DATA",160.16,12,"FIELD",429,2) BLANK "DATA",160.16,12,"FIELD",429,3) L,BLANK^280 "DATA",160.16,12,"FIELD",430,0) 224^1^224^Tobacco History "DATA",160.16,12,"FIELD",430,1) S ACDANS="" "DATA",160.16,12,"FIELD",430,2) BLANK "DATA",160.16,12,"FIELD",430,3) L,BLANK^340 "DATA",160.16,12,"FIELD",430,4) NAACCR has not adopted standards for this item. "DATA",160.16,12,"FIELD",431,0) 225^1^225^Alcohol History "DATA",160.16,12,"FIELD",431,1) S ACDANS="" "DATA",160.16,12,"FIELD",431,2) BLANK "DATA",160.16,12,"FIELD",431,3) L,BLANK^350 "DATA",160.16,12,"FIELD",431,4) NAACCR has not adopted standards for this item. "DATA",160.16,12,"FIELD",432,0) 226^1^226^Family History of Cancer "DATA",160.16,12,"FIELD",432,1) S ACDANS="" "DATA",160.16,12,"FIELD",432,2) BLANK "DATA",160.16,12,"FIELD",432,3) L,BLANK^360 "DATA",160.16,12,"FIELD",432,4) NAACCR has not adopted standards for this item. "DATA",160.16,12,"FIELD",433,0) 281^2^282^Sequence Number--Central "DATA",160.16,12,"FIELD",433,1) S ACDANS=$$SNCNT~ONCACDU2(IEN) "DATA",160.16,12,"FIELD",433,2) BLANK "DATA",160.16,12,"FIELD",433,3) L,BLANK^380 "DATA",160.16,12,"FIELD",434,0) 283^8^290^Date of Diagnosis "DATA",160.16,12,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",434,2) BLANK "DATA",160.16,12,"FIELD",434,3) L,ZERO^390 "DATA",160.16,12,"FIELD",434,4) DATE DX (165.5,3) "DATA",160.16,12,"FIELD",435,0) 227^2^228^RuralUrban Continuum 1993 "DATA",160.16,12,"FIELD",435,1) S ACDANS="" "DATA",160.16,12,"FIELD",435,2) BLANK "DATA",160.16,12,"FIELD",435,3) L,BLANK^3300 "DATA",160.16,12,"FIELD",435,4) Program not run; record not coded "DATA",160.16,12,"FIELD",436,0) 229^2^230^RuralUrban Continuum 2000 "DATA",160.16,12,"FIELD",436,1) S ACDANS="" "DATA",160.16,12,"FIELD",436,2) BLANK "DATA",160.16,12,"FIELD",436,3) L,BLANK^3310 "DATA",160.16,12,"FIELD",436,4) Program not run; record not coded "DATA",160.16,12,"FIELD",437,0) 236^2^237^Race--NAPIIA "DATA",160.16,12,"FIELD",437,1) S ACDANS="" "DATA",160.16,12,"FIELD",437,2) BLANK "DATA",160.16,12,"FIELD",437,3) L,BLANK^193 "DATA",160.16,12,"FIELD",438,0) 392^10^401^Archive FIN "DATA",160.16,12,"FIELD",438,1) S ACDANS=STAT1 "DATA",160.16,12,"FIELD",438,2) ZERO "DATA",160.16,12,"FIELD",438,3) L,ZERO^3100 "DATA",160.16,12,"FIELD",438,4) FACILITY ID # (160.1,27) "DATA",160.16,12,"FIELD",439,0) 473^1^473^RX Hosp--Palliative Proc "DATA",160.16,12,"FIELD",439,1) S ACDANS=$$GET1~DIQ(165.5,IEN,13,"I") "DATA",160.16,12,"FIELD",439,2) NINE "DATA",160.16,12,"FIELD",439,3) L,BLANK^3280 "DATA",160.16,12,"FIELD",439,4) PALLIATIVE PROCEDURE @FAC (165.5,13) "DATA",160.16,12,"FIELD",440,0) 629^3^631^CS Tumor Size "DATA",160.16,12,"FIELD",440,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.2,"I")) K DATEDX "DATA",160.16,12,"FIELD",440,2) BLANK "DATA",160.16,12,"FIELD",440,3) L,ZERO^2800 "DATA",160.16,12,"FIELD",440,4) TUMOR SIZE (CS) (165.5,29.2) "DATA",160.16,12,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,12,"FIELD",441,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,30.2,"I")) K DATEDX "DATA",160.16,12,"FIELD",441,2) BLANK "DATA",160.16,12,"FIELD",441,3) L,ZERO^2810 "DATA",160.16,12,"FIELD",441,4) EXTENSION (CS) (165.5,30.2) "DATA",160.16,12,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,12,"FIELD",442,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.1,"I")) K DATEDX "DATA",160.16,12,"FIELD",442,2) BLANK "DATA",160.16,12,"FIELD",442,3) L,ZERO^2820 "DATA",160.16,12,"FIELD",442,4) TUMOR SIZE/EXT EVAL (CS) (165.5,29.1) "DATA",160.16,12,"FIELD",443,0) 635^2^636^CS Lymph Nodes "DATA",160.16,12,"FIELD",443,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,31.1,"I")) K DATEDX "DATA",160.16,12,"FIELD",443,2) BLANK "DATA",160.16,12,"FIELD",443,3) L,BLANK^2830 "DATA",160.16,12,"FIELD",443,4) LYMPH NODES (CS) (165.5,31.1) "DATA",160.16,12,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,12,"FIELD",444,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,32.1,"I")) K DATEDX "DATA",160.16,12,"FIELD",444,2) BLANK "DATA",160.16,12,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,12,"FIELD",444,4) REG NODES EVAL (CS) (165.5,32.1) "DATA",160.16,12,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,12,"FIELD",445,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.3,"I")) K DATEDX "DATA",160.16,12,"FIELD",445,2) BLANK "DATA",160.16,12,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,12,"FIELD",445,4) METS AT DX (CS) (165.5,34.3) "DATA",160.16,12,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,12,"FIELD",446,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.4,"I")) K DATEDX "DATA",160.16,12,"FIELD",446,2) BLANK "DATA",160.16,12,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,12,"FIELD",446,4) METS EVAL (CS) (165.5,34.4) "DATA",160.16,12,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,12,"FIELD",447,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.1,"I")) K DATEDX "DATA",160.16,12,"FIELD",447,2) BLANK "DATA",160.16,12,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,12,"FIELD",447,4) SITE-SPECIFIC FACTOR 1 (CS) (165.5,44.1) "DATA",160.16,12,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,12,"FIELD",448,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.2,"I")) K DATEDX "DATA",160.16,12,"FIELD",448,2) BLANK "DATA",160.16,12,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,12,"FIELD",448,4) SITE-SPECIFIC FACTOR 2 (CS) (165.5,44.2) "DATA",160.16,12,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,12,"FIELD",449,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.3,"I")) K DATEDX "DATA",160.16,12,"FIELD",449,2) BLANK "DATA",160.16,12,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,12,"FIELD",449,4) SITE-SPECIFIC FACTOR 3 (CS) (165.5,44.3) "DATA",160.16,12,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,12,"FIELD",450,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.4,"I")) K DATEDX "DATA",160.16,12,"FIELD",450,2) BLANK "DATA",160.16,12,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,12,"FIELD",450,4) SITE-SPECIFIC FACTOR 4 (CS) (165.5,44.4) "DATA",160.16,12,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,12,"FIELD",451,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.5,"I")) K DATEDX "DATA",160.16,12,"FIELD",451,2) BLANK "DATA",160.16,12,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,12,"FIELD",451,4) SITE-SPECIFIC FACTOR 5 (CS) (165.5,44.5) "DATA",160.16,12,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,12,"FIELD",452,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.6,"I")) K DATEDX "DATA",160.16,12,"FIELD",452,2) BLANK "DATA",160.16,12,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,12,"FIELD",452,4) SITE-SPECIFIC FACTOR 6 (CS) (165.5,44.6) "DATA",160.16,12,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,12,"FIELD",453,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,160,"I")) K DATEDX "DATA",160.16,12,"FIELD",453,2) BLANK "DATA",160.16,12,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,12,"FIELD",453,4) DERIVED AJCC T (165.5,160) "DATA",160.16,12,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,12,"FIELD",454,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,161,"I")) K DATEDX "DATA",160.16,12,"FIELD",454,2) BLANK "DATA",160.16,12,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,12,"FIELD",454,4) DERIVED AJCC T DESCRIPTOR (165.5,161) "DATA",160.16,12,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,12,"FIELD",455,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,162,"I")) K DATEDX "DATA",160.16,12,"FIELD",455,2) BLANK "DATA",160.16,12,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,12,"FIELD",455,4) DERIVED AJCC N (165.5,162) "DATA",160.16,12,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,12,"FIELD",456,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,163,"I")) K DATEDX "DATA",160.16,12,"FIELD",456,2) BLANK "DATA",160.16,12,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,12,"FIELD",456,4) DERIVED AJCC N DESCRIPTOR (165.5,163) "DATA",160.16,12,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,12,"FIELD",457,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,164,"I")) K DATEDX "DATA",160.16,12,"FIELD",457,2) BLANK "DATA",160.16,12,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,12,"FIELD",457,4) DERIVED AJCC M (165.5,164) "DATA",160.16,12,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,12,"FIELD",458,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,165,"I")) K DATEDX "DATA",160.16,12,"FIELD",458,2) BLANK "DATA",160.16,12,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,12,"FIELD",458,4) DERIVED AJCC M DESCRIPTOR (165.5,165) "DATA",160.16,12,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,12,"FIELD",459,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,166,"I")) K DATEDX "DATA",160.16,12,"FIELD",459,2) BLANK "DATA",160.16,12,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,12,"FIELD",459,4) DERIVED AJCC STAGE GROUP (165.5,166) "DATA",160.16,12,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,12,"FIELD",460,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,167,"I")) K DATEDX "DATA",160.16,12,"FIELD",460,2) BLANK "DATA",160.16,12,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,12,"FIELD",460,4) DERIVED SS1977 (165.5,670) "DATA",160.16,12,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,12,"FIELD",461,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,168,"I")) K DATEDX "DATA",160.16,12,"FIELD",461,2) BLANK "DATA",160.16,12,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,12,"FIELD",461,4) DERIVED SS2000 (165.5,168) "DATA",160.16,12,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,12,"FIELD",462,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,166,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,12,"FIELD",462,2) BLANK "DATA",160.16,12,"FIELD",462,3) L,BLANK^3030 "DATA",160.16,12,"FIELD",463,0) 673^1^673^Derived SS1977--Flag "DATA",160.16,12,"FIELD",463,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,167,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,12,"FIELD",463,2) BLANK "DATA",160.16,12,"FIELD",463,3) L,BLANK^3040 "DATA",160.16,12,"FIELD",464,0) 674^1^674^Derived SS2000--Flag "DATA",160.16,12,"FIELD",464,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,168,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,12,"FIELD",464,2) BLANK "DATA",160.16,12,"FIELD",464,3) L,BLANK^3050 "DATA",160.16,12,"FIELD",465,0) 675^5^679^Comorbid/Complication 1 "DATA",160.16,12,"FIELD",465,1) D CC~ONCACDU1 S ACDANS=CCEX(1) "DATA",160.16,12,"FIELD",465,2) ZERO "DATA",160.16,12,"FIELD",465,3) R,ZERO^3110 "DATA",160.16,12,"FIELD",465,4) COMORBIDITY/COMPLICATION #1 (160,25) "DATA",160.16,12,"FIELD",466,0) 680^5^684^Comorbid/Complication 2 "DATA",160.16,12,"FIELD",466,1) D CC~ONCACDU1 S ACDANS=CCEX(2) "DATA",160.16,12,"FIELD",466,2) BLANK "DATA",160.16,12,"FIELD",466,3) R,ZERO^3120 "DATA",160.16,12,"FIELD",466,4) COMORBIDITY/COMPLICATION #2 (160,25.1) "DATA",160.16,12,"FIELD",467,0) 685^5^689^Comorbid/Complication 3 "DATA",160.16,12,"FIELD",467,1) D CC~ONCACDU1 S ACDANS=CCEX(3) "DATA",160.16,12,"FIELD",467,2) BLANK "DATA",160.16,12,"FIELD",467,3) R,ZERO^3130 "DATA",160.16,12,"FIELD",467,4) COMORBIDITY/COMPLICATION #3 (160,25.2) "DATA",160.16,12,"FIELD",468,0) 690^5^694^Comorbid/Complication 4 "DATA",160.16,12,"FIELD",468,1) D CC~ONCACDU1 S ACDANS=CCEX(4) "DATA",160.16,12,"FIELD",468,2) BLANK "DATA",160.16,12,"FIELD",468,3) R,ZERO^3140 "DATA",160.16,12,"FIELD",468,4) COMORBIDITY/COMPLICATION #4 (160,25.3) "DATA",160.16,12,"FIELD",469,0) 695^5^699^Comorbid/Complication 5 "DATA",160.16,12,"FIELD",469,1) D CC~ONCACDU1 S ACDANS=CCEX(5) "DATA",160.16,12,"FIELD",469,2) BLANK "DATA",160.16,12,"FIELD",469,3) R,ZERO^3150 "DATA",160.16,12,"FIELD",469,4) COMORBIDITY/COMPLICATION #5 (160,25.4) "DATA",160.16,12,"FIELD",470,0) 700^5^704^Comorbid/Complication 6 "DATA",160.16,12,"FIELD",470,1) D CC~ONCACDU1 S ACDANS=CCEX(6) "DATA",160.16,12,"FIELD",470,2) BLANK "DATA",160.16,12,"FIELD",470,3) R,ZERO^3160 "DATA",160.16,12,"FIELD",470,4) COMORBIDITY/COMPLICATION #6 (160,25.5) "DATA",160.16,12,"FIELD",471,0) 763^8^770^RX Date--Most Defin Surg "DATA",160.16,12,"FIELD",471,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,12,"FIELD",471,2) BLANK "DATA",160.16,12,"FIELD",471,3) L,BLANK^3170 "DATA",160.16,12,"FIELD",471,4) SURGERY OF PRIMARY DATE (165.5,50) "DATA",160.16,12,"FIELD",472,0) 771^8^778^RX Date--Surgical Disch "DATA",160.16,12,"FIELD",472,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,435,"I")) "DATA",160.16,12,"FIELD",472,2) BLANK "DATA",160.16,12,"FIELD",472,3) L,BLANK^3180 "DATA",160.16,12,"FIELD",472,4) DATE OF SURGICAL DISCHARGE (165.5,435) "DATA",160.16,12,"FIELD",473,0) 787^8^794^RX Date--Radiation Ended "DATA",160.16,12,"FIELD",473,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.16,12,"FIELD",473,2) NINE "DATA",160.16,12,"FIELD",473,3) L,BLANK^3220 "DATA",160.16,12,"FIELD",473,4) DATE RADIATION ENDED (165.5,361) "DATA",160.16,12,"FIELD",474,0) 795^8^802^RX Date--Systemic "DATA",160.16,12,"FIELD",474,1) S ACDANS=$$GET1~DIQ(165.5,IEN,152) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,12,"FIELD",474,2) BLANK "DATA",160.16,12,"FIELD",474,3) L,BLANK^3230 "DATA",160.16,12,"FIELD",474,4) DATE SYSTEMIC THERAPY STARTED (165.5,152) "DATA",160.16,12,"FIELD",475,0) 1351^1^1351^Recurrence Distant Site 2 "DATA",160.16,12,"FIELD",475,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.2,"I") "DATA",160.16,12,"FIELD",475,2) BLANK "DATA",160.16,12,"FIELD",475,3) L,BLANK^1872 "DATA",160.16,12,"FIELD",475,4) DISTANT SITE 2 (165.5,71.2) "DATA",160.16,12,"FIELD",476,0) 1352^1^1352^Recurrence Distant Site 3 "DATA",160.16,12,"FIELD",476,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,12,"FIELD",476,2) BLANK "DATA",160.16,12,"FIELD",476,3) L,BLANK^1873 "DATA",160.16,12,"FIELD",476,4) DISTANT SITE 3 (165.5,71.3) "DATA",160.16,12,"FIELD",477,0) 871^1^871^RX Summ--Palliative Proc "DATA",160.16,12,"FIELD",477,1) S ACDANS=$$GET1~DIQ(165.5,IEN,12,"I") "DATA",160.16,12,"FIELD",477,2) NINE "DATA",160.16,12,"FIELD",477,3) L,BLANK^3270 "DATA",160.16,12,"FIELD",477,4) PALLIATIVE PROCEDURE (165.5,12) "DATA",160.16,12,"FIELD",478,0) 872^1^872^Reserved 22 "DATA",160.16,12,"FIELD",478,1) S ACDANS="" "DATA",160.16,12,"FIELD",478,2) BLANK "DATA",160.16,12,"FIELD",478,3) L,BLANK "DATA",160.16,12,"FIELD",479,0) 876^2^877^RX Summ--Transplnt/Endocr "DATA",160.16,12,"FIELD",479,1) S ACDANS=$$GET1~DIQ(165.5,IEN,153,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(167,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",479,2) BLANK "DATA",160.16,12,"FIELD",479,3) L,BLANK^3250 "DATA",160.16,12,"FIELD",479,4) HEMA TRANS/ENDOCRINE PROC (165.5,153) "DATA",160.16,12,"FIELD",480,0) 911^2^912^Rad--Boost RX Modality "DATA",160.16,12,"FIELD",480,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",480,2) ZERO "DATA",160.16,12,"FIELD",480,3) L,BLANK^3200 "DATA",160.16,12,"FIELD",480,4) BOOST TREATMENT MODALITY (165.5,363.1) "DATA",160.16,12,"FIELD",481,0) 913^5^917^Rad--Boost Dose cGy "DATA",160.16,12,"FIELD",481,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.16,12,"FIELD",481,2) ZERO "DATA",160.16,12,"FIELD",481,3) L,ZERO^3210 "DATA",160.16,12,"FIELD",481,4) BOOST DOSE: cGy (165.5,443) "DATA",160.16,12,"FIELD",482,0) 938^1^938^Readm Same Hosp 30 Days "DATA",160.16,12,"FIELD",482,1) S ACDANS=$$GET1~DIQ(165.5,IEN,14,"I") "DATA",160.16,12,"FIELD",482,2) BLANK "DATA",160.16,12,"FIELD",482,3) L,BLANK^3190 "DATA",160.16,12,"FIELD",482,4) READMISSION W/I 30 DAYS/SURG (165.5,14) "DATA",160.16,12,"FIELD",483,0) 480^1^480^RX Hosp--Scope Reg 98-02 "DATA",160.16,12,"FIELD",483,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,12,"FIELD",483,2) BLANK "DATA",160.16,12,"FIELD",483,3) L,BLANK^747 "DATA",160.16,12,"FIELD",483,4) SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "DATA",160.16,12,"FIELD",484,0) 481^1^481^RX Hosp--Surg Oth 98-02 "DATA",160.16,12,"FIELD",484,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,12,"FIELD",484,2) BLANK "DATA",160.16,12,"FIELD",484,3) L,BLANK^748 "DATA",160.16,12,"FIELD",484,4) SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "DATA",160.16,12,"FIELD",485,0) 482^46^527^Reserved 04 "DATA",160.16,12,"FIELD",485,1) S ACDANS="" "DATA",160.16,12,"FIELD",485,2) BLANK "DATA",160.16,12,"FIELD",485,3) L,BLANK^750 "DATA",160.16,12,"FIELD",486,0) 939^2^940^RX Summ--Surg Site 98-02 "DATA",160.16,12,"FIELD",486,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,12,"FIELD",486,2) BLANK "DATA",160.16,12,"FIELD",486,3) L,ZERO^1646 "DATA",160.16,12,"FIELD",486,4) SURGERY OF PRIMARY (R) (165.5,58.2) "DATA",160.16,12,"FIELD",487,0) 941^1^941^RX Summ--Scope Reg 98-02 "DATA",160.16,12,"FIELD",487,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,12,"FIELD",487,2) BLANK "DATA",160.16,12,"FIELD",487,3) L,BLANK^1647 "DATA",160.16,12,"FIELD",487,4) SCOPE OF LN SURGERY (R) (165.5,138) "DATA",160.16,12,"FIELD",488,0) 942^1^942^RX Summ--Surg Oth 98-02 "DATA",160.16,12,"FIELD",488,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,12,"FIELD",488,2) BLANK "DATA",160.16,12,"FIELD",488,3) L,NINE^1648 "DATA",160.16,12,"FIELD",488,4) SURG PROC/OTHER SITE (R) (165.5,139) "DATA",160.16,12,"FIELD",489,0) 705^6^710^CS Version 1st "DATA",160.16,12,"FIELD",489,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169.1,"I")) K DATEDX "DATA",160.16,12,"FIELD",489,2) BLANK "DATA",160.16,12,"FIELD",489,3) L,BLANK^2935 "DATA",160.16,12,"FIELD",489,4) CS VERSION FIRST (165.5,169.1) "DATA",160.16,12,"FIELD",490,0) 711^6^716^CS Version Latest "DATA",160.16,12,"FIELD",490,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169,"I")) K DATEDX "DATA",160.16,12,"FIELD",490,2) BLANK "DATA",160.16,12,"FIELD",490,3) L,BLANK^2936 "DATA",160.16,12,"FIELD",490,4) CS VERSION LATEST (165.5,169) "DATA",160.16,12,"FIELD",491,0) 722^5^726^Comorbid/Complication 8 "DATA",160.16,12,"FIELD",491,1) D CC~ONCACDU1 S ACDANS=CCEX(8) "DATA",160.16,12,"FIELD",491,2) BLANK "DATA",160.16,12,"FIELD",491,3) R,ZERO^3162 "DATA",160.16,12,"FIELD",491,4) COMORBIDITY/COMPLICATION #8 (160,25.7) "DATA",160.16,12,"FIELD",492,0) 727^5^731^Comorbid/Complication 9 "DATA",160.16,12,"FIELD",492,1) D CC~ONCACDU1 S ACDANS=CCEX(9) "DATA",160.16,12,"FIELD",492,2) BLANK "DATA",160.16,12,"FIELD",492,3) R,ZERO^3163 "DATA",160.16,12,"FIELD",492,4) COMORBIDITY/COMPLICATION #9 (160,25.8) "DATA",160.16,12,"FIELD",493,0) 732^5^736^Comorbid/Complication 10 "DATA",160.16,12,"FIELD",493,1) D CC~ONCACDU1 S ACDANS=CCEX(10) "DATA",160.16,12,"FIELD",493,2) BLANK "DATA",160.16,12,"FIELD",493,3) R,ZERO^3164 "DATA",160.16,12,"FIELD",493,4) COMORBIDITY/COMPLICATION #9 (160,25.9) "DATA",160.16,12,"FIELD",494,0) 737^1^737^ICD Revision Comorbid "DATA",160.16,12,"FIELD",494,1) D CC~ONCACDU1 S CC1=CCEX(1) S ACDANS=$S(CC1="":0,1:9) "DATA",160.16,12,"FIELD",494,2) BLANK "DATA",160.16,12,"FIELD",494,3) L,BLANK^3165 "DATA",160.16,12,"FIELD",494,4) 0 = No secondary diagnosis reported. 9 = ICD-9. "DATA",160.16,12,"FIELD",495,0) 738^17^754^Reserved 05 "DATA",160.16,12,"FIELD",495,1) S ACDANS="" "DATA",160.16,12,"FIELD",495,2) BLANK "DATA",160.16,12,"FIELD",495,3) L,BLANK^1180 "DATA",160.16,12,"FIELD",496,0) 40^10^49^NPI--Registry ID "DATA",160.16,12,"FIELD",496,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,12,"FIELD",496,2) BLANK "DATA",160.16,12,"FIELD",496,3) L,BLANK^45 "DATA",160.16,12,"FIELD",496,4) NPI (160.19,101) "DATA",160.16,12,"FIELD",497,0) 231^1^231^NHIA Derived Hisp Origin "DATA",160.16,12,"FIELD",497,1) S ACDANS="" "DATA",160.16,12,"FIELD",497,2) BLANK "DATA",160.16,12,"FIELD",497,3) L,BLANK^191 "DATA",160.16,12,"FIELD",497,4) Blank = Algorithm has not been run "DATA",160.16,12,"FIELD",498,0) 232^1^232^IHS Link "DATA",160.16,12,"FIELD",498,1) S ACDANS="" "DATA",160.16,12,"FIELD",498,2) BLANK "DATA",160.16,12,"FIELD",498,3) L,BLANK^192 "DATA",160.16,12,"FIELD",498,4) Blank = Record not sent for linkage or linkage result pending "DATA",160.16,12,"FIELD",499,0) 233^2^234^GIS Coordinate Quality "DATA",160.16,12,"FIELD",499,1) S ACDANS="" "DATA",160.16,12,"FIELD",499,2) BLANK "DATA",160.16,12,"FIELD",499,3) L,BLANK^366 "DATA",160.16,12,"FIELD",499,4) Blank = Not applicable, coordinate assignment not attempted "DATA",160.16,12,"FIELD",500,0) 322^2^323^Casefinding Source "DATA",160.16,12,"FIELD",500,1) S ACDANS=$$GET1~DIQ(165.5,IEN,21,"I") "DATA",160.16,12,"FIELD",500,2) NINE "DATA",160.16,12,"FIELD",500,3) L,BLANK^501 "DATA",160.16,12,"FIELD",500,4) CASEFINDING SOURCE (165.5,21) "DATA",160.16,12,"FIELD",501,0) 324^1^324^Ambiguous Terminology DX "DATA",160.16,12,"FIELD",501,1) S ACDANS=$$GET1~DIQ(165.5,IEN,159,"I") "DATA",160.16,12,"FIELD",501,2) BLANK "DATA",160.16,12,"FIELD",501,3) L,BLANK^442 "DATA",160.16,12,"FIELD",501,4) AMBIGUOUS TERMINOLOGY DX (165.5,159) "DATA",160.16,12,"FIELD",502,0) 325^8^332^Date of Conclusive DX "DATA",160.16,12,"FIELD",502,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,193,"I")) "DATA",160.16,12,"FIELD",502,2) BLANK "DATA",160.16,12,"FIELD",502,3) L,BLANK^443 "DATA",160.16,12,"FIELD",502,4) DATE OF CONCLUSIVE DX (165.5,193) "DATA",160.16,12,"FIELD",503,0) 333^2^334^Mult Tum Rpt as One Prim "DATA",160.16,12,"FIELD",503,1) S ACDANS=$$GET1~DIQ(165.5,IEN,194,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(169,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",503,2) BLANK "DATA",160.16,12,"FIELD",503,3) L,BLANK^444 "DATA",160.16,12,"FIELD",503,4) MULT TUM RPT AS ONE PRIM (165.5,194) "DATA",160.16,12,"FIELD",504,0) 335^8^342^Date of Multiple Tumors "DATA",160.16,12,"FIELD",504,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,195,"I")) "DATA",160.16,12,"FIELD",504,2) BLANK "DATA",160.16,12,"FIELD",504,3) L,BLANK^445 "DATA",160.16,12,"FIELD",504,4) DATE OF MULTIPLE TUMORS (165.5,195) "DATA",160.16,12,"FIELD",505,0) 343^2^344^Multiplicity Counter "DATA",160.16,12,"FIELD",505,1) S ACDANS=$$GET1~DIQ(165.5,IEN,196,"I") "DATA",160.16,12,"FIELD",505,2) BLANK "DATA",160.16,12,"FIELD",505,3) L,BLANK^446 "DATA",160.16,12,"FIELD",505,4) MULTIPLICITY COUNTER (165.5,196) "DATA",160.16,12,"FIELD",507,0) 890^4^893^Reserved 33 "DATA",160.16,12,"FIELD",507,1) S ACDANS="" "DATA",160.16,12,"FIELD",507,2) BLANK "DATA",160.16,12,"FIELD",507,3) L,BLANK^1465 "DATA",160.16,12,"FIELD",508,0) 1397^2^1398^Follow-up Source Central "DATA",160.16,12,"FIELD",508,1) S ACDANS="" "DATA",160.16,12,"FIELD",508,2) BLANK "DATA",160.16,12,"FIELD",508,3) L,BLANK^1791 "DATA",160.16,12,"FIELD",508,4) This field is created by the central registry. "DATA",160.16,12,"FIELD",509,0) 50^2^51^Reserved 01 "DATA",160.16,12,"FIELD",509,1) S ACDANS="" "DATA",160.16,12,"FIELD",509,2) BLANK "DATA",160.16,12,"FIELD",509,3) L,BLANK^370 "DATA",160.16,12,"FIELD",510,0) 235^1^235^CensusBlockGroup 70/80/90 "DATA",160.16,12,"FIELD",510,1) S ACDANS="" "DATA",160.16,12,"FIELD",510,2) BLANK "DATA",160.16,12,"FIELD",510,3) L,BLANK^368 "DATA",160.16,12,"FIELD",511,0) 238^43^280^Reserved 02 "DATA",160.16,12,"FIELD",511,1) S ACDANS="" "DATA",160.16,12,"FIELD",511,2) BLANK "DATA",160.16,12,"FIELD",511,3) L,BLANK^530 "DATA",160.16,12,"FIELD",512,0) 1407^40^1446^Reserved 09 "DATA",160.16,12,"FIELD",512,1) S ACDANS="" "DATA",160.16,12,"FIELD",512,2) BLANK "DATA",160.16,12,"FIELD",512,3) L,BLANK^1740 "DATA",160.16,12,"FIELD",513,0) 1447^10^1456^NPI--Physician--Primary Surg "DATA",160.16,12,"FIELD",513,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,12,"FIELD",513,2) BLANK "DATA",160.16,12,"FIELD",513,3) L,BLANK^2485 "DATA",160.16,12,"FIELD",513,4) NPI (165,101) "DATA",160.16,12,"FIELD",514,0) 1467^10^1476^NPI--Physician 4 (Medical Oncologist) "DATA",160.16,12,"FIELD",514,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.4,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,12,"FIELD",514,2) BLANK "DATA",160.16,12,"FIELD",514,3) L,BLANK^2505 "DATA",160.16,12,"FIELD",514,4) NPI (165,101) "DATA",160.16,12,"FIELD",515,0) 1457^10^1466^NPI--Physician 3 (Radiation Oncologist) "DATA",160.16,12,"FIELD",515,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.3,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,12,"FIELD",515,2) BLANK "DATA",160.16,12,"FIELD",515,3) L,BLANK^2495 "DATA",160.16,12,"FIELD",515,4) NPI (165,101) "DATA",160.16,12,"RULES",0) ^160.162^11^11^3090929^^^^ "DATA",160.16,12,"RULES",1,0) S VALID=1 "DATA",160.16,12,"RULES",2,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "DATA",160.16,12,"RULES",3,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,12,"RULES",4,0) I DATEDX<3000000,"^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,12,"RULES",5,0) I DATEDX>2991231,"^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,12,"RULES",6,0) I $$GET1^DIQ(165.5,IEN,22.3,"I")=81482 S VALID=0 "DATA",160.16,12,"RULES",7,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,12,"RULES",8,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,12,"RULES",9,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,12,"RULES",10,0) S JUMP=0 "DATA",160.16,12,"RULES",11,0) K SCREEN "DATA",160.16,13,0) STATE EXTRACT V11.3 "DATA",160.16,13,"FIELD",0) ^160.161I^574^404 "DATA",160.16,13,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,13,"FIELD",1,1) S ACDANS="A" "DATA",160.16,13,"FIELD",1,2) BLANK "DATA",160.16,13,"FIELD",1,3) L,BLANK^10 "DATA",160.16,13,"FIELD",1,4) "A" Full case Abstract record type (incidence and confidential data plus text summaries; used for reporting to central registries) "DATA",160.16,13,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,13,"FIELD",2,1) S ACDANS=99999999 "DATA",160.16,13,"FIELD",2,2) BLANK "DATA",160.16,13,"FIELD",2,3) L,BLANK^20 "DATA",160.16,13,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,13,"FIELD",3,1) S ACDANS=3 "DATA",160.16,13,"FIELD",3,2) BLANK "DATA",160.16,13,"FIELD",3,3) L,BLANK^30 "DATA",160.16,13,"FIELD",3,4) 3 Single hospital/freestanding center "DATA",160.16,13,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,13,"FIELD",4,1) S ACDANS=$S($L(STAT1)=7:1,$L(STAT1)=8:2,1:9) "DATA",160.16,13,"FIELD",4,2) BLANK "DATA",160.16,13,"FIELD",4,3) L,BLANK^35 "DATA",160.16,13,"FIELD",4,4) FACILITY ID # (160.1,27) "DATA",160.16,13,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,13,"FIELD",5,1) S ACDANS="B" "DATA",160.16,13,"FIELD",5,2) BLANK "DATA",160.16,13,"FIELD",5,3) L,BLANK^50 "DATA",160.16,13,"FIELD",5,4) 2006, 2007, 2008 and 2009 Version 11, 11.1, 11.2 and 11.3 "DATA",160.16,13,"FIELD",6,0) 20^10^29^Registry Id "DATA",160.16,13,"FIELD",6,1) S ACDANS=STAT1 "DATA",160.16,13,"FIELD",6,2) ZERO "DATA",160.16,13,"FIELD",6,3) L,ZERO^40 "DATA",160.16,13,"FIELD",6,4) INSTITUTION ID NUMBER (160.1,27) "DATA",160.16,13,"FIELD",18,0) 74^9^82^Addr at DX--Postal Code "DATA",160.16,13,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",18,2) BLANK "DATA",160.16,13,"FIELD",18,3) R,BLANK^100 "DATA",160.16,13,"FIELD",18,4) POSTAL CODE AT DX (165.5,9) "DATA",160.16,13,"FIELD",26,0) 93^6^98^Census Tract 2000 "DATA",160.16,13,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,13,"FIELD",26,2) BLANK "DATA",160.16,13,"FIELD",26,3) L,BLANK^130 "DATA",160.16,13,"FIELD",26,4) CENSUS TRACT (165.5,147) "DATA",160.16,13,"FIELD",29,0) 101^1^101^Census Tr Certainty 2000 "DATA",160.16,13,"FIELD",29,1) S ACDANS="" "DATA",160.16,13,"FIELD",29,2) BLANK "DATA",160.16,13,"FIELD",29,3) L,BLANK^365 "DATA",160.16,13,"FIELD",30,0) 102^1^102^Marital Status at DX "DATA",160.16,13,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,13,"FIELD",30,2) BLANK "DATA",160.16,13,"FIELD",30,3) L,BLANK^150 "DATA",160.16,13,"FIELD",30,4) MARITAL STATUS AT DX (165.5,11) "DATA",160.16,13,"FIELD",31,0) 103^2^104^Race 1 "DATA",160.16,13,"FIELD",31,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,13,"FIELD",31,2) BLANK "DATA",160.16,13,"FIELD",31,3) L,ZERO^160 "DATA",160.16,13,"FIELD",31,4) RACE 1 (160,8) "DATA",160.16,13,"FIELD",32,0) 143^40^182^Text--Usual Occupation "DATA",160.16,13,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,13,"FIELD",32,2) BLANK "DATA",160.16,13,"FIELD",32,3) R,BLANK^310 "DATA",160.16,13,"FIELD",32,4) USUAL OCCUPATION (160.042,.01) "DATA",160.16,13,"FIELD",33,0) 183^40^222^Text--Usual Industry "DATA",160.16,13,"FIELD",33,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,13,"FIELD",33,2) BLANK "DATA",160.16,13,"FIELD",33,3) R,BLANK^320 "DATA",160.16,13,"FIELD",33,4) USUAL INDUSTRY (160.042,3) "DATA",160.16,13,"FIELD",41,0) 291^4^294^Primary Site "DATA",160.16,13,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,13,"FIELD",41,2) BLANK "DATA",160.16,13,"FIELD",41,3) L,ZERO^400 "DATA",160.16,13,"FIELD",41,4) PRIMARY SITE (165.5,20) "DATA",160.16,13,"FIELD",42,0) 295^1^295^Laterality "DATA",160.16,13,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,13,"FIELD",42,2) BLANK "DATA",160.16,13,"FIELD",42,3) L,BLANK^410 "DATA",160.16,13,"FIELD",42,4) LATERALITY (165.5,28) "DATA",160.16,13,"FIELD",43,0) 296^5^300^Morph--Type&Behav ICD-O-2 "DATA",160.16,13,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,13,"FIELD",43,2) BLANK "DATA",160.16,13,"FIELD",43,3) L,ZERO^419 "DATA",160.16,13,"FIELD",43,4) HISTOLOGY (ICD-O-2) (165.5,22) "DATA",160.16,13,"FIELD",45,0) 306^1^306^Grade "DATA",160.16,13,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,13,"FIELD",45,2) BLANK "DATA",160.16,13,"FIELD",45,3) L,ZERO^440 "DATA",160.16,13,"FIELD",45,4) GRADE/DIFFERENTIATION (165.5,24) "DATA",160.16,13,"FIELD",46,0) 307^1^307^Site Coding Sys--Current "DATA",160.16,13,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,13,"FIELD",46,2) BLANK "DATA",160.16,13,"FIELD",46,3) L,ZERO^450 "DATA",160.16,13,"FIELD",46,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,13,"FIELD",47,0) 308^1^308^Site Coding Sys--Original "DATA",160.16,13,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,13,"FIELD",47,2) BLANK "DATA",160.16,13,"FIELD",47,3) L,ZERO^460 "DATA",160.16,13,"FIELD",47,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,13,"FIELD",48,0) 309^1^309^Morph Coding Sys--Current "DATA",160.16,13,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,13,"FIELD",48,2) BLANK "DATA",160.16,13,"FIELD",48,3) L,ZERO^470 "DATA",160.16,13,"FIELD",48,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,13,"FIELD",49,0) 310^1^310^Morph Coding Sys--Originl "DATA",160.16,13,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,13,"FIELD",49,2) BLANK "DATA",160.16,13,"FIELD",49,3) L,ZERO^480 "DATA",160.16,13,"FIELD",49,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,13,"FIELD",50,0) 311^1^311^Diagnostic Confirmation "DATA",160.16,13,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,13,"FIELD",50,2) BLANK "DATA",160.16,13,"FIELD",50,3) L,ZERO^490 "DATA",160.16,13,"FIELD",50,4) DIAGNOSTIC CONFIRMATION (165.5,26) "DATA",160.16,13,"FIELD",51,0) 312^1^312^Type of Reporting Source "DATA",160.16,13,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,13,"FIELD",51,2) BLANK "DATA",160.16,13,"FIELD",51,3) L,BLANK^500 "DATA",160.16,13,"FIELD",51,4) TYPE OF REPORTING SOURCE (165.5,1.2) "DATA",160.16,13,"FIELD",52,0) 313^8^320^Screening Date "DATA",160.16,13,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",52,2) BLANK "DATA",160.16,13,"FIELD",52,3) L,BLANK^510 "DATA",160.16,13,"FIELD",52,4) SCREENING DATE (165.5,79) "DATA",160.16,13,"FIELD",53,0) 321^1^321^Screening Result "DATA",160.16,13,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,13,"FIELD",53,2) BLANK "DATA",160.16,13,"FIELD",53,3) L,BLANK^520 "DATA",160.16,13,"FIELD",53,4) SCREENING RESULT (165.5,119) "DATA",160.16,13,"FIELD",54,0) 301^5^305^Morph--Type&Behav ICD-O-3 "DATA",160.16,13,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,13,"FIELD",54,2) BLANK "DATA",160.16,13,"FIELD",54,3) L,ZERO^521 "DATA",160.16,13,"FIELD",54,4) HISTOLOGY (ICD-O-3) (165.5,22.3) "DATA",160.16,13,"FIELD",57,0) 411^2^412^Sequence Number--Hospital "DATA",160.16,13,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,13,"FIELD",57,2) BLANK "DATA",160.16,13,"FIELD",57,3) L,ZERO^560 "DATA",160.16,13,"FIELD",57,4) SEQUENCE NUMBER (165.5,.06) "DATA",160.16,13,"FIELD",58,0) 413^3^415^Abstracted By "DATA",160.16,13,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,13,"FIELD",58,2) BLANK "DATA",160.16,13,"FIELD",58,3) R,BLANK^570 "DATA",160.16,13,"FIELD",58,4) ABSTRACTED BY (165.5,92) "DATA",160.16,13,"FIELD",59,0) 416^8^423^Date of 1st Contact "DATA",160.16,13,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,155,"I") S:ACDANS="" ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",59,2) BLANK "DATA",160.16,13,"FIELD",59,3) L,ZERO^580 "DATA",160.16,13,"FIELD",59,4) DATE OF FIRST CONTACT (165.5,155) or DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,13,"FIELD",60,0) 424^8^431^Date of Inpatient Adm "DATA",160.16,13,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",60,2) BLANK "DATA",160.16,13,"FIELD",60,3) L,ZERO^590 "DATA",160.16,13,"FIELD",60,4) DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,13,"FIELD",61,0) 432^8^439^Date of Inpatient Disch "DATA",160.16,13,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",61,2) BLANK "DATA",160.16,13,"FIELD",61,3) L,ZERO^600 "DATA",160.16,13,"FIELD",61,4) DATE OF INPATIENT DISCHARGE (165.5,1.1) "DATA",160.16,13,"FIELD",62,0) 440^1^440^Class of Case "DATA",160.16,13,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,13,"FIELD",62,2) BLANK "DATA",160.16,13,"FIELD",62,3) L,ZERO^610 "DATA",160.16,13,"FIELD",62,4) CLASS OF CASE (165.5,.04) "DATA",160.16,13,"FIELD",63,0) 441^4^444^Reserved 26 "DATA",160.16,13,"FIELD",63,1) S ACDANS="" "DATA",160.16,13,"FIELD",63,2) BLANK "DATA",160.16,13,"FIELD",63,3) L,BLANK^615 "DATA",160.16,13,"FIELD",63,4) "DATA",160.16,13,"FIELD",64,0) 445^2^446^Primary Payer at DX "DATA",160.16,13,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",64,2) NINE "DATA",160.16,13,"FIELD",64,3) L,BLANK^630 "DATA",160.16,13,"FIELD",64,4) PRIMARY PAYER AT DX (165.5,18) "DATA",160.16,13,"FIELD",65,0) 447^10^456^NPI--Archive FIN "DATA",160.16,13,"FIELD",65,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,13,"FIELD",65,2) BLANK "DATA",160.16,13,"FIELD",65,3) L,BLANK^3105 "DATA",160.16,13,"FIELD",65,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",68,0) 457^2^458^RX Hosp--Surg Prim Site "DATA",160.16,13,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.7,"SPS") "DATA",160.16,13,"FIELD",68,2) NINE "DATA",160.16,13,"FIELD",68,3) L,ZERO^670 "DATA",160.16,13,"FIELD",68,4) SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "DATA",160.16,13,"FIELD",69,0) 478^2^479^RX Hosp--Surg Site 98-02 "DATA",160.16,13,"FIELD",69,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,13,"FIELD",69,2) BLANK "DATA",160.16,13,"FIELD",69,3) L,ZERO^746 "DATA",160.16,13,"FIELD",69,4) SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "DATA",160.16,13,"FIELD",70,0) 463^1^463^RX Hosp--Radiation "DATA",160.16,13,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,13,"FIELD",70,2) BLANK "DATA",160.16,13,"FIELD",70,3) L,ZERO^690 "DATA",160.16,13,"FIELD",70,4) RADIATION @FACILITY (165.5,51.4) "DATA",160.16,13,"FIELD",71,0) 464^2^465^RX Hosp--Chemo "DATA",160.16,13,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,13,"FIELD",71,2) NINE "DATA",160.16,13,"FIELD",71,3) L,BLANK^700 "DATA",160.16,13,"FIELD",71,4) CHEMOTHERAPY @FAC (165.5,53.3) "DATA",160.16,13,"FIELD",72,0) 466^2^467^RX Hosp--Hormone "DATA",160.16,13,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,13,"FIELD",72,2) NINE "DATA",160.16,13,"FIELD",72,3) L,BLANK^710 "DATA",160.16,13,"FIELD",72,4) HORMONE THERAPY @FAC (165.5,54.3) "DATA",160.16,13,"FIELD",73,0) 468^2^469^RX Hosp--BRM "DATA",160.16,13,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,13,"FIELD",73,2) NINE "DATA",160.16,13,"FIELD",73,3) L,BLANK^720 "DATA",160.16,13,"FIELD",73,4) IMMUNOTHERAPY @FAC (165.5,55.3) "DATA",160.16,13,"FIELD",74,0) 470^1^470^RX Hosp--Other "DATA",160.16,13,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,13,"FIELD",74,2) BLANK "DATA",160.16,13,"FIELD",74,3) L,ZERO^730 "DATA",160.16,13,"FIELD",74,4) OTHER TREATMENT @FAC (165.5,57.3) "DATA",160.16,13,"FIELD",75,0) 471^2^472^RX Hosp--DX/Stg Proc "DATA",160.16,13,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,13,"FIELD",75,2) ZNINE "DATA",160.16,13,"FIELD",75,3) L,ZERO^740 "DATA",160.16,13,"FIELD",75,4) SURG DX/STAGING PROC @FAC (165.5,58.4) "DATA",160.16,13,"FIELD",77,0) 529^1^529^SEER Summary Stage 1977 "DATA",160.16,13,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,13,"FIELD",77,2) BLANK "DATA",160.16,13,"FIELD",77,3) L,BLANK^760 "DATA",160.16,13,"FIELD",77,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,13,"FIELD",78,0) 530^1^530^Reserved 29 "DATA",160.16,13,"FIELD",78,1) S ACDANS="" "DATA",160.16,13,"FIELD",78,2) BLANK "DATA",160.16,13,"FIELD",78,3) L,BLANK^765 "DATA",160.16,13,"FIELD",78,4) "DATA",160.16,13,"FIELD",79,0) 531^3^533^EOD--Tumor Size "DATA",160.16,13,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,13,"FIELD",79,2) BLANK "DATA",160.16,13,"FIELD",79,3) L,ZERO^780 "DATA",160.16,13,"FIELD",79,4) TUMOR SIZE (165.5,29) "DATA",160.16,13,"FIELD",80,0) 534^2^535^EOD--Extension "DATA",160.16,13,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,13,"FIELD",80,2) BLANK "DATA",160.16,13,"FIELD",80,3) L,ZERO^790 "DATA",160.16,13,"FIELD",80,4) EXTENSION (165.5,30) "DATA",160.16,13,"FIELD",81,0) 536^2^537^EOD--Extension Prost Path "DATA",160.16,13,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,13,"FIELD",81,2) BLANK "DATA",160.16,13,"FIELD",81,3) L,ZERO^800 "DATA",160.16,13,"FIELD",81,4) PATHOLOGIC EXTENSION (165.5,30.1) "DATA",160.16,13,"FIELD",82,0) 538^1^538^EOD--Lymph Node Involv "DATA",160.16,13,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,13,"FIELD",82,2) BLANK "DATA",160.16,13,"FIELD",82,3) L,BLANK^810 "DATA",160.16,13,"FIELD",82,4) LYMPH NODES (165.5,31) "DATA",160.16,13,"FIELD",83,0) 539^2^540^Regional Nodes Positive "DATA",160.16,13,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,13,"FIELD",83,2) BLANK "DATA",160.16,13,"FIELD",83,3) L,ZERO^820 "DATA",160.16,13,"FIELD",83,4) REGIONAL LYMPH NODES POSITIVE (165.5,32) "DATA",160.16,13,"FIELD",84,0) 541^2^542^Regional Nodes Examined "DATA",160.16,13,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,13,"FIELD",84,2) BLANK "DATA",160.16,13,"FIELD",84,3) L,ZERO^830 "DATA",160.16,13,"FIELD",84,4) REGIONAL LYMPH NODES EXAMINED (165.5,33) "DATA",160.16,13,"FIELD",85,0) 543^13^555^EOD--Old 13 Digit "DATA",160.16,13,"FIELD",85,1) S ACDANS="" "DATA",160.16,13,"FIELD",85,2) BLANK "DATA",160.16,13,"FIELD",85,3) L,BLANK^840 "DATA",160.16,13,"FIELD",86,0) 556^2^557^EOD--Old 2 Digit "DATA",160.16,13,"FIELD",86,1) S ACDANS="" "DATA",160.16,13,"FIELD",86,2) BLANK "DATA",160.16,13,"FIELD",86,3) L,BLANK^850 "DATA",160.16,13,"FIELD",87,0) 558^4^561^EOD--Old 4 Digit "DATA",160.16,13,"FIELD",87,1) S ACDANS="" "DATA",160.16,13,"FIELD",87,2) BLANK "DATA",160.16,13,"FIELD",87,3) L,BLANK^860 "DATA",160.16,13,"FIELD",88,0) 562^1^562^Coding System for EOD "DATA",160.16,13,"FIELD",88,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3031231:"",1:4) K DATEDX "DATA",160.16,13,"FIELD",88,2) BLANK "DATA",160.16,13,"FIELD",88,3) L,BLANK^870 "DATA",160.16,13,"FIELD",88,4) Blank = DATE DX 2004+; 4 = 10-Digit Extent of Disease, 1988 (1988+) "DATA",160.16,13,"FIELD",89,0) 563^2^564^TNM Path T "DATA",160.16,13,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,13,"FIELD",89,2) BLANK "DATA",160.16,13,"FIELD",89,3) R,BLANK^880 "DATA",160.16,13,"FIELD",89,4) PATHOLOGIC T (165.5,85) "DATA",160.16,13,"FIELD",90,0) 565^2^566^TNM Path N "DATA",160.16,13,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") S:ACDANS'="" ACDANS=$S(ACDANS="O(I+)":0,ACDANS="O(I-)":0,ACDANS="0(MOL+)":0,ACDANS="0(MOL-)":0,1:ACDANS) "DATA",160.16,13,"FIELD",90,2) BLANK "DATA",160.16,13,"FIELD",90,3) R,BLANK^890 "DATA",160.16,13,"FIELD",90,4) PATHOLOGIC N (165.5,86) "DATA",160.16,13,"FIELD",91,0) 567^2^568^TNM Path M "DATA",160.16,13,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,13,"FIELD",91,2) BLANK "DATA",160.16,13,"FIELD",91,3) R,BLANK^900 "DATA",160.16,13,"FIELD",91,4) PATHOLOGIC M (165.5,87) "DATA",160.16,13,"FIELD",92,0) 569^2^570^TNM Path Stage Group "DATA",160.16,13,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,13,"FIELD",92,2) BLANK "DATA",160.16,13,"FIELD",92,3) R,BLANK^910 "DATA",160.16,13,"FIELD",92,4) PATHOLOGIC STAGE GROUP (165.5,88) "DATA",160.16,13,"FIELD",93,0) 571^1^571^TNM Path Descriptor "DATA",160.16,13,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,13,"FIELD",93,2) ZERO "DATA",160.16,13,"FIELD",93,3) L,ZERO^920 "DATA",160.16,13,"FIELD",93,4) PATHOLOGIC TNM (165.5,89.1) "DATA",160.16,13,"FIELD",94,0) 572^1^572^TNM Path Staged By "DATA",160.16,13,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,13,"FIELD",94,2) NINE "DATA",160.16,13,"FIELD",94,3) L,BLANK^930 "DATA",160.16,13,"FIELD",94,4) STAGED BY (PATHOLOGIC STAGE) (165.5,89) "DATA",160.16,13,"FIELD",95,0) 573^2^574^TNM Clin T "DATA",160.16,13,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,13,"FIELD",95,2) BLANK "DATA",160.16,13,"FIELD",95,3) R,BLANK^940 "DATA",160.16,13,"FIELD",95,4) CLINICAL T (165.5,37.1) "DATA",160.16,13,"FIELD",96,0) 575^2^576^TNM Clin N "DATA",160.16,13,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,13,"FIELD",96,2) BLANK "DATA",160.16,13,"FIELD",96,3) R,BLANK^950 "DATA",160.16,13,"FIELD",96,4) CLINCIAL N (165.5,37.2) "DATA",160.16,13,"FIELD",97,0) 577^2^578^TNM Clin M "DATA",160.16,13,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,13,"FIELD",97,2) BLANK "DATA",160.16,13,"FIELD",97,3) R,BLANK^960 "DATA",160.16,13,"FIELD",97,4) CLINCIAL M (165.5,37.3) "DATA",160.16,13,"FIELD",98,0) 579^2^580^TNM Clin Stage Group "DATA",160.16,13,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,13,"FIELD",98,2) BLANK "DATA",160.16,13,"FIELD",98,3) R,BLANK^970 "DATA",160.16,13,"FIELD",98,4) CLINICAL STAGE GROUP (165.5,38) "DATA",160.16,13,"FIELD",99,0) 581^1^581^TNM Clin Descriptor "DATA",160.16,13,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,13,"FIELD",99,2) ZERO "DATA",160.16,13,"FIELD",99,3) L,ZERO^980 "DATA",160.16,13,"FIELD",99,4) CLINICAL TNM (165.5,37) "DATA",160.16,13,"FIELD",100,0) 582^1^582^TNM Clin Staged By "DATA",160.16,13,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,13,"FIELD",100,2) NINE "DATA",160.16,13,"FIELD",100,3) L,BLANK^990 "DATA",160.16,13,"FIELD",100,4) STAGED BY (CLINICAL STAGE) (165.5,19) "DATA",160.16,13,"FIELD",101,0) 583^10^592^Reserved 30 "DATA",160.16,13,"FIELD",101,1) S ACDANS="" "DATA",160.16,13,"FIELD",101,2) BLANK "DATA",160.16,13,"FIELD",101,3) L,BLANK^995 "DATA",160.16,13,"FIELD",101,4) "DATA",160.16,13,"FIELD",107,0) 593^2^594^TNM Edition Number "DATA",160.16,13,"FIELD",107,1) S ACDANS=$$TNMED~ONCOU55(IEN) "DATA",160.16,13,"FIELD",107,2) BLANK "DATA",160.16,13,"FIELD",107,3) L,ZERO^1060 "DATA",160.16,13,"FIELD",107,4) DATE DX (165.5,3) "DATA",160.16,13,"FIELD",108,0) 595^15^609^Reserved 31 "DATA",160.16,13,"FIELD",108,1) S ACDANS="" "DATA",160.16,13,"FIELD",108,2) BLANK "DATA",160.16,13,"FIELD",108,3) L,BLANK^1065 "DATA",160.16,13,"FIELD",108,4) "DATA",160.16,13,"FIELD",109,0) 610^8^617^Date of 1st Positive BX "DATA",160.16,13,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",109,2) BLANK "DATA",160.16,13,"FIELD",109,3) L,BLANK^1080 "DATA",160.16,13,"FIELD",109,4) DATE OF 1ST POSITIVE BIOPSY (165.5,137) "DATA",160.16,13,"FIELD",110,0) 618^1^618^Site of Distant Met 1 "DATA",160.16,13,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,13,"FIELD",110,2) BLANK "DATA",160.16,13,"FIELD",110,3) L,BLANK^1090 "DATA",160.16,13,"FIELD",110,4) SITE OF DISTANT METASTASIS #1 (165.5,34) "DATA",160.16,13,"FIELD",111,0) 619^1^619^Site of Distant Met 2 "DATA",160.16,13,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,13,"FIELD",111,2) BLANK "DATA",160.16,13,"FIELD",111,3) L,BLANK^1100 "DATA",160.16,13,"FIELD",111,4) SITE OF DISTANT METASTASIS #2 (165.5,34.1) "DATA",160.16,13,"FIELD",112,0) 620^1^620^Site of Distant Met 3 "DATA",160.16,13,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,13,"FIELD",112,2) BLANK "DATA",160.16,13,"FIELD",112,3) L,BLANK^1110 "DATA",160.16,13,"FIELD",112,4) SITE OF DISTANT METASTASIS #3 (165.5,34.2) "DATA",160.16,13,"FIELD",113,0) 621^2^622^Pediatric Stage "DATA",160.16,13,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,13,"FIELD",113,2) BLANK "DATA",160.16,13,"FIELD",113,3) L,BLANK^1120 "DATA",160.16,13,"FIELD",113,4) PEDIATRIC STAGE (165.5,850) "DATA",160.16,13,"FIELD",114,0) 623^2^624^Pediatric Staging System "DATA",160.16,13,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",114,2) BLANK "DATA",160.16,13,"FIELD",114,3) L,BLANK^1130 "DATA",160.16,13,"FIELD",114,4) TYPE OF STAGING SYSTEM (PED) (165.5,849) "DATA",160.16,13,"FIELD",115,0) 625^1^625^Pediatric Staged By "DATA",160.16,13,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,13,"FIELD",115,2) BLANK "DATA",160.16,13,"FIELD",115,3) L,BLANK^1140 "DATA",160.16,13,"FIELD",115,4) STAGED BY (PEDIATRIC STAGE) (165.5,851) "DATA",160.16,13,"FIELD",116,0) 626^1^626^Tumor Marker 1 "DATA",160.16,13,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",116,2) BLANK "DATA",160.16,13,"FIELD",116,3) L,BLANK^1150 "DATA",160.16,13,"FIELD",116,4) TUMOR MARKER 1 (165.5,25.1) "DATA",160.16,13,"FIELD",117,0) 627^1^627^Tumor Marker 2 "DATA",160.16,13,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",117,2) BLANK "DATA",160.16,13,"FIELD",117,3) L,BLANK^1160 "DATA",160.16,13,"FIELD",117,4) TUMOR MARKER 2 (165.5,25.2) "DATA",160.16,13,"FIELD",118,0) 628^1^628^Tumor Marker 3 "DATA",160.16,13,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",118,2) BLANK "DATA",160.16,13,"FIELD",118,3) L,BLANK^1170 "DATA",160.16,13,"FIELD",118,4) TUMOR MARKER 3 (165.5,25.3) "DATA",160.16,13,"FIELD",119,0) 717^5^721^Comorbid/Complication 7 "DATA",160.16,13,"FIELD",119,1) D CC~ONCACDU1 S ACDANS=CCEX(7) "DATA",160.16,13,"FIELD",119,2) BLANK "DATA",160.16,13,"FIELD",119,3) R,ZERO^3161 "DATA",160.16,13,"FIELD",119,4) COMORBIDITY/COMPLICATION #7 (160,25.6) "DATA",160.16,13,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,13,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,170,"I")) "DATA",160.16,13,"FIELD",121,2) BLANK "DATA",160.16,13,"FIELD",121,3) L,BLANK^1200 "DATA",160.16,13,"FIELD",121,4) DATE FIRST SURGICAL PROCEDURE (165.5,170) "DATA",160.16,13,"FIELD",122,0) 779^8^786^RX Date--Radiation "DATA",160.16,13,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,13,"FIELD",122,2) BLANK "DATA",160.16,13,"FIELD",122,3) L,BLANK^1210 "DATA",160.16,13,"FIELD",122,4) DATE RADIATION STARTED (165.5,51) "DATA",160.16,13,"FIELD",123,0) 803^8^810^RX Date--Chemo "DATA",160.16,13,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,13,"FIELD",123,2) BLANK "DATA",160.16,13,"FIELD",123,3) L,BLANK^1220 "DATA",160.16,13,"FIELD",123,4) CHEMOTHERAPY DATE (165.5,53) "DATA",160.16,13,"FIELD",124,0) 811^8^818^RX Date--Hormone "DATA",160.16,13,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,13,"FIELD",124,2) BLANK "DATA",160.16,13,"FIELD",124,3) L,BLANK^1230 "DATA",160.16,13,"FIELD",124,4) HORMONE THERAPY DATE (165.5,54) "DATA",160.16,13,"FIELD",125,0) 819^8^826^RX Date--BRM "DATA",160.16,13,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,13,"FIELD",125,2) BLANK "DATA",160.16,13,"FIELD",125,3) L,BLANK^1240 "DATA",160.16,13,"FIELD",125,4) IMMUNOTHERAPY DATE (165.5,55) "DATA",160.16,13,"FIELD",126,0) 827^8^834^RX Date--Other "DATA",160.16,13,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,13,"FIELD",126,2) BLANK "DATA",160.16,13,"FIELD",126,3) L,BLANK^1250 "DATA",160.16,13,"FIELD",126,4) OTHER TREATMENT START DATE (165.5,57) "DATA",160.16,13,"FIELD",127,0) 835^8^842^Date of Initial RX--SEER "DATA",160.16,13,"FIELD",127,1) S ACDANS="" "DATA",160.16,13,"FIELD",127,2) BLANK "DATA",160.16,13,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,13,"FIELD",127,4) "DATA",160.16,13,"FIELD",128,0) 843^8^850^Date of 1st Crs RX--COC "DATA",160.16,13,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,13,"FIELD",128,2) BLANK "DATA",160.16,13,"FIELD",128,3) L,ZERO^1270 "DATA",160.16,13,"FIELD",128,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "DATA",160.16,13,"FIELD",129,0) 851^8^858^RX Date--DX/Stg Proc "DATA",160.16,13,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",129,2) BLANK "DATA",160.16,13,"FIELD",129,3) L,ZERO^1280 "DATA",160.16,13,"FIELD",129,4) SURGICAL DX/STAGING PROC DATE (165.5,58.3) "DATA",160.16,13,"FIELD",130,0) 859^2^860^RX Summ--Surg Prim Site "DATA",160.16,13,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.6,"SPS") "DATA",160.16,13,"FIELD",130,2) NINE "DATA",160.16,13,"FIELD",130,3) L,ZERO^1290 "DATA",160.16,13,"FIELD",130,4) SURGERY OF PRIMARY (F) (165.5,58.6) "DATA",160.16,13,"FIELD",132,0) 865^1^865^RX Summ--Surgical Approch "DATA",160.16,13,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,13,"FIELD",132,2) NINE "DATA",160.16,13,"FIELD",132,3) L,BLANK^1310 "DATA",160.16,13,"FIELD",132,4) SURGICAL APPROACH (R) (165.5,74) "DATA",160.16,13,"FIELD",133,0) 866^1^866^RX Summ--Surgical Margins "DATA",160.16,13,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,13,"FIELD",133,2) BLANK "DATA",160.16,13,"FIELD",133,3) L,BLANK^1320 "DATA",160.16,13,"FIELD",133,4) SURGICAL MARGINS (165.5,59) "DATA",160.16,13,"FIELD",134,0) 867^1^867^RX Summ--Reconstruct 1st "DATA",160.16,13,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,13,"FIELD",134,2) NINE "DATA",160.16,13,"FIELD",134,3) L,BLANK^1330 "DATA",160.16,13,"FIELD",134,4) RECONSTRUCTION/RESTORATION (165.5,23) "DATA",160.16,13,"FIELD",135,0) 868^1^868^Reason for No Surgery "DATA",160.16,13,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,13,"FIELD",135,2) BLANK "DATA",160.16,13,"FIELD",135,3) L,BLANK^1340 "DATA",160.16,13,"FIELD",135,4) REASON FOR NO SURGERY (165.5,58) "DATA",160.16,13,"FIELD",136,0) 869^2^870^RX Summ-DX/Stg Proc "DATA",160.16,13,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,13,"FIELD",136,2) ZNINE "DATA",160.16,13,"FIELD",136,3) L,ZERO^1350 "DATA",160.16,13,"FIELD",136,4) SURGICAL DX/STAGING PROC (165.5,58.1) "DATA",160.16,13,"FIELD",137,0) 873^1^873^RX Summ--Radiation "DATA",160.16,13,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,13,"FIELD",137,2) BLANK "DATA",160.16,13,"FIELD",137,3) L,ZERO^1360 "DATA",160.16,13,"FIELD",137,4) RADIATION (165.5,51.2) "DATA",160.16,13,"FIELD",138,0) 874^1^874^RX Summ--Rad to CNS "DATA",160.16,13,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,13,"FIELD",138,2) BLANK "DATA",160.16,13,"FIELD",138,3) L,ZERO^1370 "DATA",160.16,13,"FIELD",138,4) RADIATION THERAPY TO CNS (165.5,52.2) "DATA",160.16,13,"FIELD",139,0) 875^1^875^RX Summ--Surg/Rad Seq "DATA",160.16,13,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,13,"FIELD",139,2) BLANK "DATA",160.16,13,"FIELD",139,3) L,ZERO^1380 "DATA",160.16,13,"FIELD",139,4) RADIATION/SURGERY SEQUENCE (165.5,51.3) "DATA",160.16,13,"FIELD",140,0) 878^2^879^RX Summ--Chemo "DATA",160.16,13,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,13,"FIELD",140,2) NINE "DATA",160.16,13,"FIELD",140,3) L,BLANK^1390 "DATA",160.16,13,"FIELD",140,4) CHEMOTHERAPY (165.5,53.2) "DATA",160.16,13,"FIELD",141,0) 880^2^881^RX Summ--Hormone "DATA",160.16,13,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,13,"FIELD",141,2) NINE "DATA",160.16,13,"FIELD",141,3) L,BLANK^1400 "DATA",160.16,13,"FIELD",141,4) HORMONE THERAPY (165.5,54.2) "DATA",160.16,13,"FIELD",142,0) 882^2^883^RX Summ--BRM "DATA",160.16,13,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,13,"FIELD",142,2) NINE "DATA",160.16,13,"FIELD",142,3) L,BLANK^1410 "DATA",160.16,13,"FIELD",142,4) IMMUNOTHERAPY (165.5,55.2) "DATA",160.16,13,"FIELD",143,0) 884^1^884^RX Summ--Other "DATA",160.16,13,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,13,"FIELD",143,2) BLANK "DATA",160.16,13,"FIELD",143,3) L,ZERO^1420 "DATA",160.16,13,"FIELD",143,4) OTHER TREATMENT (165.5,57.2) "DATA",160.16,13,"FIELD",144,0) 885^1^885^Reason for No Radiation "DATA",160.16,13,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,13,"FIELD",144,2) NINE "DATA",160.16,13,"FIELD",144,3) L,BLANK^1430 "DATA",160.16,13,"FIELD",144,4) REASON FOR NO RADIATION (165.5,75) "DATA",160.16,13,"FIELD",145,0) 886^2^887^Reserved 32 "DATA",160.16,13,"FIELD",145,1) S ACDANS="" "DATA",160.16,13,"FIELD",145,2) BLANK "DATA",160.16,13,"FIELD",145,3) L,BLANK^1435 "DATA",160.16,13,"FIELD",145,4) "DATA",160.16,13,"FIELD",147,0) 888^2^889^RX Coding System--Current "DATA",160.16,13,"FIELD",147,1) S ACDANS="06" "DATA",160.16,13,"FIELD",147,2) BLANK "DATA",160.16,13,"FIELD",147,3) L,ZERO^1460 "DATA",160.16,13,"FIELD",147,4) 06 Treatment data coded according to FORDS manual "DATA",160.16,13,"FIELD",151,0) 894^1^894^First Course Calc Method "DATA",160.16,13,"FIELD",151,1) S ACDANS=1 "DATA",160.16,13,"FIELD",151,2) BLANK "DATA",160.16,13,"FIELD",151,3) L,BLANK^1500 "DATA",160.16,13,"FIELD",151,4) 1 COC definitions "DATA",160.16,13,"FIELD",152,0) 895^5^899^Rad--Regional Dose:cGy "DATA",160.16,13,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,13,"FIELD",152,2) NINE "DATA",160.16,13,"FIELD",152,3) L,ZERO^1510 "DATA",160.16,13,"FIELD",152,4) REGIONAL DOSE: cGy (165.5,442) "DATA",160.16,13,"FIELD",153,0) 900^2^901^Rad--No of Treatment Vol "DATA",160.16,13,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,13,"FIELD",153,2) NINE "DATA",160.16,13,"FIELD",153,3) L,ZERO^1520 "DATA",160.16,13,"FIELD",153,4) NUMBER OF TXS TO THIS VOLUME (165.5,56) "DATA",160.16,13,"FIELD",154,0) 902^3^904^Reserved 34 "DATA",160.16,13,"FIELD",154,1) S ACDANS="" "DATA",160.16,13,"FIELD",154,2) BLANK "DATA",160.16,13,"FIELD",154,3) L,BLANK^1535 "DATA",160.16,13,"FIELD",155,0) 905^2^906^Rad--Treatment Volume "DATA",160.16,13,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",155,2) NINE "DATA",160.16,13,"FIELD",155,3) L,ZERO^1540 "DATA",160.16,13,"FIELD",155,4) RADIATION TREATMENT VOLUME (165.5,125) "DATA",160.16,13,"FIELD",156,0) 907^1^907^Rad--Location of RX "DATA",160.16,13,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,13,"FIELD",156,2) NINE "DATA",160.16,13,"FIELD",156,3) L,BLANK^1550 "DATA",160.16,13,"FIELD",156,4) LOCATION OF RADIATION TX (165.5,126) "DATA",160.16,13,"FIELD",157,0) 908^1^908^Reserved 35 "DATA",160.16,13,"FIELD",157,1) S ACDANS="" "DATA",160.16,13,"FIELD",157,2) BLANK "DATA",160.16,13,"FIELD",157,3) L,BLANK^1555 "DATA",160.16,13,"FIELD",157,4) "DATA",160.16,13,"FIELD",158,0) 909^2^910^Rad--Regional RX Modality "DATA",160.16,13,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",158,2) BLANK "DATA",160.16,13,"FIELD",158,3) L,ZERO^1570 "DATA",160.16,13,"FIELD",158,4) REGIONAL TREATMENT MODALITY (165.5,363) "DATA",160.16,13,"FIELD",159,0) 918^13^930^Reserved 23 "DATA",160.16,13,"FIELD",159,1) S ACDANS="" "DATA",160.16,13,"FIELD",159,2) BLANK "DATA",160.16,13,"FIELD",159,3) L,BLANK^1635 "DATA",160.16,13,"FIELD",159,4) "DATA",160.16,13,"FIELD",164,0) 931^1^931^RX Summ--Systemic Sur Seq "DATA",160.16,13,"FIELD",164,1) S ACDANS=$$GET1~DIQ(165.5,IEN,15,"I") "DATA",160.16,13,"FIELD",164,2) BLANK "DATA",160.16,13,"FIELD",164,3) L,BLANK^1639 "DATA",160.16,13,"FIELD",164,4) SYSTEMIC/SURGERY SEQUENCE (165.5,15) "DATA",160.16,13,"FIELD",165,0) 932^2^933^RX Summ--Surgery Type "DATA",160.16,13,"FIELD",165,1) S ACDANS="" "DATA",160.16,13,"FIELD",165,2) BLANK "DATA",160.16,13,"FIELD",165,3) L,BLANK^1640 "DATA",160.16,13,"FIELD",166,0) 943^45^987^Reserved 06 "DATA",160.16,13,"FIELD",166,1) S ACDANS="" "DATA",160.16,13,"FIELD",166,2) BLANK "DATA",160.16,13,"FIELD",166,3) L,BLANK^1190 "DATA",160.16,13,"FIELD",167,0) 988^8^995^Subsq RX 2nd Course Date "DATA",160.16,13,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",167,2) ZERO "DATA",160.16,13,"FIELD",167,3) L,BLANK^1660 "DATA",160.16,13,"FIELD",167,4) INITIATION DATE (165.51,.01) "DATA",160.16,13,"FIELD",168,0) 996^2^997^Subsq RX 2nd Course Surg "DATA",160.16,13,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,13,"FIELD",168,2) BLANK "DATA",160.16,13,"FIELD",168,3) L,ZERO^1671 "DATA",160.16,13,"FIELD",168,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,13,"FIELD",169,0) 998^1^998^Subsq RX 2nd Course Rad "DATA",160.16,13,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,13,"FIELD",169,2) BLANK "DATA",160.16,13,"FIELD",169,3) L,BLANK^1672 "DATA",160.16,13,"FIELD",169,4) RADIATION (165.51,.05) "DATA",160.16,13,"FIELD",170,0) 999^1^999^Subsq RX 2nd Course Chemo "DATA",160.16,13,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,13,"FIELD",170,2) BLANK "DATA",160.16,13,"FIELD",170,3) L,BLANK^1673 "DATA",160.16,13,"FIELD",170,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,13,"FIELD",171,0) 1000^1^1000^Subsq RX 2nd Course Horm "DATA",160.16,13,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,13,"FIELD",171,2) BLANK "DATA",160.16,13,"FIELD",171,3) L,BLANK^1674 "DATA",160.16,13,"FIELD",171,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,13,"FIELD",172,0) 1001^1^1001^Subsq RX 2nd Course BRM "DATA",160.16,13,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,13,"FIELD",172,2) BLANK "DATA",160.16,13,"FIELD",172,3) L,BLANK^1675 "DATA",160.16,13,"FIELD",172,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,13,"FIELD",173,0) 1002^1^1002^Subsq RX 2nd Course Oth "DATA",160.16,13,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,13,"FIELD",173,2) BLANK "DATA",160.16,13,"FIELD",173,3) L,BLANK^1676 "DATA",160.16,13,"FIELD",173,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,13,"FIELD",174,0) 1003^8^1010^Subsq RX 3rd Course Date "DATA",160.16,13,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",174,2) ZERO "DATA",160.16,13,"FIELD",174,3) L,BLANK^1680 "DATA",160.16,13,"FIELD",174,4) INITIATION DATE (165.51,.01) "DATA",160.16,13,"FIELD",175,0) 1011^2^1012^Subsq RX 3rd Course Surg "DATA",160.16,13,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,13,"FIELD",175,2) BLANK "DATA",160.16,13,"FIELD",175,3) L,ZERO^1691 "DATA",160.16,13,"FIELD",175,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,13,"FIELD",176,0) 1013^1^1013^Subsq RX 3rd Course Rad "DATA",160.16,13,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,13,"FIELD",176,2) BLANK "DATA",160.16,13,"FIELD",176,3) L,BLANK^1692 "DATA",160.16,13,"FIELD",176,4) RADIATION (165.51,.05) "DATA",160.16,13,"FIELD",177,0) 1014^1^1014^Subsq RX 3rd Course Chemo "DATA",160.16,13,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,13,"FIELD",177,2) BLANK "DATA",160.16,13,"FIELD",177,3) L,BLANK^1693 "DATA",160.16,13,"FIELD",177,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,13,"FIELD",178,0) 1015^1^1015^Subsq RX 3rd Course Horm "DATA",160.16,13,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,13,"FIELD",178,2) BLANK "DATA",160.16,13,"FIELD",178,3) L,BLANK^1694 "DATA",160.16,13,"FIELD",178,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,13,"FIELD",179,0) 1016^1^1016^Subsq RX 3rd Course BRM "DATA",160.16,13,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,13,"FIELD",179,2) BLANK "DATA",160.16,13,"FIELD",179,3) L,BLANK^1695 "DATA",160.16,13,"FIELD",179,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,13,"FIELD",180,0) 1017^1^1017^Subsq RX 3rd Course Oth "DATA",160.16,13,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,13,"FIELD",180,2) BLANK "DATA",160.16,13,"FIELD",180,3) L,BLANK^1696 "DATA",160.16,13,"FIELD",180,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,13,"FIELD",181,0) 1018^8^1025^Subsq RX 4th Course Date "DATA",160.16,13,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",181,2) ZERO "DATA",160.16,13,"FIELD",181,3) L,BLANK^1700 "DATA",160.16,13,"FIELD",181,4) INITIATION DATE (165.51,.01) "DATA",160.16,13,"FIELD",182,0) 1026^2^1027^Subsq RX 4th Course Surg "DATA",160.16,13,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,13,"FIELD",182,2) BLANK "DATA",160.16,13,"FIELD",182,3) L,ZERO^1711 "DATA",160.16,13,"FIELD",182,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,13,"FIELD",183,0) 1028^1^1028^Subsq RX 4th Course Rad "DATA",160.16,13,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,13,"FIELD",183,2) BLANK "DATA",160.16,13,"FIELD",183,3) L,BLANK^1712 "DATA",160.16,13,"FIELD",183,4) RADIATION (165.51,.05) "DATA",160.16,13,"FIELD",184,0) 1029^1^1029^Subsq RX 4th Course Chemo "DATA",160.16,13,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,13,"FIELD",184,2) BLANK "DATA",160.16,13,"FIELD",184,3) L,BLANK^1713 "DATA",160.16,13,"FIELD",184,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,13,"FIELD",185,0) 1030^1^1030^Subsq RX 4th Course Horm "DATA",160.16,13,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,13,"FIELD",185,2) BLANK "DATA",160.16,13,"FIELD",185,3) L,BLANK^1714 "DATA",160.16,13,"FIELD",185,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,13,"FIELD",186,0) 1031^1^1031^Subsq RX 4th Course BRM "DATA",160.16,13,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,13,"FIELD",186,2) BLANK "DATA",160.16,13,"FIELD",186,3) L,BLANK^1715 "DATA",160.16,13,"FIELD",186,4) IMMUNOTHERAPY (165.5,.08) "DATA",160.16,13,"FIELD",187,0) 1032^1^1032^Subsq RX 4th Course Oth "DATA",160.16,13,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,13,"FIELD",187,2) BLANK "DATA",160.16,13,"FIELD",187,3) L,BLANK^1716 "DATA",160.16,13,"FIELD",187,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,13,"FIELD",188,0) 1033^15^1047^Reserved 37 "DATA",160.16,13,"FIELD",188,1) S ACDANS="" "DATA",160.16,13,"FIELD",188,2) BLANK "DATA",160.16,13,"FIELD",188,3) L,BLANK^1725 "DATA",160.16,13,"FIELD",188,4) "DATA",160.16,13,"FIELD",195,0) 1065^50^1114^Reserved 07 "DATA",160.16,13,"FIELD",195,1) S ACDANS="" "DATA",160.16,13,"FIELD",195,2) BLANK "DATA",160.16,13,"FIELD",195,3) L,BLANK^1300 "DATA",160.16,13,"FIELD",196,0) 1294^8^1301^Date of Last Contact "DATA",160.16,13,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",196,2) BLANK "DATA",160.16,13,"FIELD",196,3) L,ZERO^1750 "DATA",160.16,13,"FIELD",196,4) DATE OF LAST CONTACT OR DEATH (160.04,.01) "DATA",160.16,13,"FIELD",197,0) 1302^1^1302^Vital Status "DATA",160.16,13,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,13,"FIELD",197,2) BLANK "DATA",160.16,13,"FIELD",197,3) L,BLANK^1760 "DATA",160.16,13,"FIELD",197,4) VITAL STATUS (160.04,1) "DATA",160.16,13,"FIELD",198,0) 1303^1^1303^Cancer Status "DATA",160.16,13,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,13,"FIELD",198,2) BLANK "DATA",160.16,13,"FIELD",198,3) L,BLANK^1770 "DATA",160.16,13,"FIELD",198,4) CANCER STATUS (165.573,.02) "DATA",160.16,13,"FIELD",199,0) 1304^1^1304^Quality of Survival "DATA",160.16,13,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,13,"FIELD",199,2) BLANK "DATA",160.16,13,"FIELD",199,3) L,BLANK^1780 "DATA",160.16,13,"FIELD",199,4) QUALITY OF SURVIVAL (160.04,4) "DATA",160.16,13,"FIELD",200,0) 1305^1^1305^Follow-Up Source "DATA",160.16,13,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,13,"FIELD",200,2) BLANK "DATA",160.16,13,"FIELD",200,3) L,BLANK^1790 "DATA",160.16,13,"FIELD",200,4) FOLLOW-UP SOURCE (160.04,3) "DATA",160.16,13,"FIELD",201,0) 1306^1^1306^Next Follow-up Source "DATA",160.16,13,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,13,"FIELD",201,2) BLANK "DATA",160.16,13,"FIELD",201,3) L,BLANK^1800 "DATA",160.16,13,"FIELD",201,4) NEXT FOLLOW-UP SOURCE (160.04,6) "DATA",160.16,13,"FIELD",202,0) 1307^20^1326^Addr Current--City "DATA",160.16,13,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,13,"FIELD",202,2) BLANK "DATA",160.16,13,"FIELD",202,3) R,BLANK^1810 "DATA",160.16,13,"FIELD",202,4) CITY (2,.114) "DATA",160.16,13,"FIELD",203,0) 1327^2^1328^Addr Current--State "DATA",160.16,13,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) S:ACDANS="" ACDANS="ZZ" "DATA",160.16,13,"FIELD",203,2) BLANK "DATA",160.16,13,"FIELD",203,3) R,BLANK^1820 "DATA",160.16,13,"FIELD",203,4) STATE (2,.115) "DATA",160.16,13,"FIELD",204,0) 1329^9^1337^Addr Current--Postal Code "DATA",160.16,13,"FIELD",204,1) S ACDANS=$$GET1~DIQ(160,ACD160,.116,"E") S:ACDANS=75999 ACDANS=999999999 D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",204,2) NINE "DATA",160.16,13,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,13,"FIELD",204,4) ZIP CODE (160,.116) "DATA",160.16,13,"FIELD",206,0) 1341^1^1341^Unusual Follow-Up Method "DATA",160.16,13,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,13,"FIELD",206,2) BLANK "DATA",160.16,13,"FIELD",206,3) L,BLANK^1850 "DATA",160.16,13,"FIELD",206,4) UNUSUAL FOLLOW-UP METHOD (160.04,7) "DATA",160.16,13,"FIELD",207,0) 1342^8^1349^Recurrence Date--1st "DATA",160.16,13,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,13,"FIELD",207,2) NINE "DATA",160.16,13,"FIELD",207,3) L,NINE^1860 "DATA",160.16,13,"FIELD",207,4) DATE OF FIRST RECURRENCE (165.5,70) "DATA",160.16,13,"FIELD",208,0) 1350^1^1350^Recurrence Distant Site 1 "DATA",160.16,13,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I") "DATA",160.16,13,"FIELD",208,2) BLANK "DATA",160.16,13,"FIELD",208,3) L,BLANK^1871 "DATA",160.16,13,"FIELD",208,4) DISTANT SITE 1 (165.5,71.1) "DATA",160.16,13,"FIELD",209,0) 1353^2^1354^Recurrence Type--1st "DATA",160.16,13,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",209,2) NINE "DATA",160.16,13,"FIELD",209,3) L,ZERO^1880 "DATA",160.16,13,"FIELD",209,4) TYPE OF FIRST RECURRENCE (165.5,71) "DATA",160.16,13,"FIELD",210,0) 1355^2^1356^Reserved 39 "DATA",160.16,13,"FIELD",210,1) S ACDANS="" "DATA",160.16,13,"FIELD",210,2) BLANK "DATA",160.16,13,"FIELD",210,3) L,BLANK^1895 "DATA",160.16,13,"FIELD",210,4) "DATA",160.16,13,"FIELD",211,0) 1338^3^1340^County--Current "DATA",160.16,13,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,13,"FIELD",211,2) BLANK "DATA",160.16,13,"FIELD",211,3) L,BLANK^1840 "DATA",160.16,13,"FIELD",213,0) 1388^4^1391^Cause of Death "DATA",160.16,13,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,13,"FIELD",213,2) BLANK "DATA",160.16,13,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,13,"FIELD",213,4) STATE DEATH CERT (160,19.1) "DATA",160.16,13,"FIELD",214,0) 1392^1^1392^ICD Revision Number "DATA",160.16,13,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,13,"FIELD",214,2) BLANK "DATA",160.16,13,"FIELD",214,3) L,ZERO^1920 "DATA",160.16,13,"FIELD",214,4) CAUSE OF DEATH (160,19), ICD REVISION (160,20) "DATA",160.16,13,"FIELD",215,0) 1393^1^1393^Autopsy "DATA",160.16,13,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,13,"FIELD",215,2) BLANK "DATA",160.16,13,"FIELD",215,3) L,BLANK^1930 "DATA",160.16,13,"FIELD",215,4) AUTOPSY (160,22.9) "DATA",160.16,13,"FIELD",216,0) 1394^3^1396^Place of Death "DATA",160.16,13,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,13,"FIELD",216,2) BLANK "DATA",160.16,13,"FIELD",216,3) L,BLANK^1940 "DATA",160.16,13,"FIELD",216,4) PLACE OF DEATH (160,21) "DATA",160.16,13,"FIELD",218,0) 1137^4^1140^Site (73-91) ICD-O-1 "DATA",160.16,13,"FIELD",218,1) S ACDANS="" "DATA",160.16,13,"FIELD",218,2) BLANK "DATA",160.16,13,"FIELD",218,3) L,BLANK^1960 "DATA",160.16,13,"FIELD",219,0) 1141^6^1146^Morph (73-91) ICD-O-1 "DATA",160.16,13,"FIELD",219,1) S ACDANS="" "DATA",160.16,13,"FIELD",219,2) BLANK "DATA",160.16,13,"FIELD",219,3) L,BLANK^1970 "DATA",160.16,13,"FIELD",220,0) 1147^1^1147^ICD-O-2 Conversion Flag "DATA",160.16,13,"FIELD",220,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:4,1:"") K DATEDX "DATA",160.16,13,"FIELD",220,2) BLANK "DATA",160.16,13,"FIELD",220,3) L,BLANK^1980 "DATA",160.16,13,"FIELD",221,0) 1124^1^1124^Over-ride Age/Site/Morph "DATA",160.16,13,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,13,"FIELD",221,2) BLANK "DATA",160.16,13,"FIELD",221,3) L,BLANK^1990 "DATA",160.16,13,"FIELD",221,4) OVERRIDE AGE/SITE/MORPH (165.5,205) "DATA",160.16,13,"FIELD",222,0) 1125^1^1125^Over-ride SeqNo/DxConf "DATA",160.16,13,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,13,"FIELD",222,2) BLANK "DATA",160.16,13,"FIELD",222,3) L,BLANK^2000 "DATA",160.16,13,"FIELD",222,4) OVERRIDE SEQNO/DXCONF (165.5,206) "DATA",160.16,13,"FIELD",223,0) 1126^1^1126^Over-ride Site/Lat/SeqNo "DATA",160.16,13,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,13,"FIELD",223,2) BLANK "DATA",160.16,13,"FIELD",223,3) L,BLANK^2010 "DATA",160.16,13,"FIELD",223,4) OVERRIDE SITE/LAT/SEQNO (165.5,207) "DATA",160.16,13,"FIELD",224,0) 1127^1^1127^Over-ride Surg/DxConf "DATA",160.16,13,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,13,"FIELD",224,2) BLANK "DATA",160.16,13,"FIELD",224,3) L,BLANK^2020 "DATA",160.16,13,"FIELD",224,4) OVERRIDE SURG/DXCONF (165.5,208) "DATA",160.16,13,"FIELD",225,0) 1128^1^1128^Over-ride Site/Type "DATA",160.16,13,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,13,"FIELD",225,2) BLANK "DATA",160.16,13,"FIELD",225,3) L,BLANK^2030 "DATA",160.16,13,"FIELD",225,4) OVERRIDE SITE/TYPE (165.5,209) "DATA",160.16,13,"FIELD",226,0) 1129^1^1129^Over-ride Histology "DATA",160.16,13,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,13,"FIELD",226,2) BLANK "DATA",160.16,13,"FIELD",226,3) L,BLANK^2040 "DATA",160.16,13,"FIELD",226,4) OVERRIDE HISTOLOGY (165.5,210) "DATA",160.16,13,"FIELD",227,0) 1130^1^1130^Over-ride Report Source "DATA",160.16,13,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,13,"FIELD",227,2) BLANK "DATA",160.16,13,"FIELD",227,3) L,BLANK^2050 "DATA",160.16,13,"FIELD",227,4) OVERRIDE REPORT SOURCE (165.5,211) "DATA",160.16,13,"FIELD",228,0) 1131^1^1131^Over-ride Ill-define Site "DATA",160.16,13,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,13,"FIELD",228,2) BLANK "DATA",160.16,13,"FIELD",228,3) L,BLANK^2060 "DATA",160.16,13,"FIELD",228,4) OVERRIDE ILL-DEFINE SITE (165.5,212) "DATA",160.16,13,"FIELD",229,0) 1132^1^1132^Over-ride Leuk, Lymphoma "DATA",160.16,13,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,13,"FIELD",229,2) BLANK "DATA",160.16,13,"FIELD",229,3) L,BLANK^2070 "DATA",160.16,13,"FIELD",229,4) OVERRIDE LEUK,LYMPHOMA (165.5,213) "DATA",160.16,13,"FIELD",231,0) 1174^8^1181^Date Case Completed "DATA",160.16,13,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",231,2) BLANK "DATA",160.16,13,"FIELD",231,3) L,BLANK^2090 "DATA",160.16,13,"FIELD",231,4) DATE CASE COMPLETED (165.5,90) "DATA",160.16,13,"FIELD",232,0) 1182^8^1189^Date Case Last Changed "DATA",160.16,13,"FIELD",232,1) S ACDANS=$$GET1~DIQ(165.5,IEN,198,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",232,2) BLANK "DATA",160.16,13,"FIELD",232,3) L,BLANK^2100 "DATA",160.16,13,"FIELD",232,4) DATE CASE LAST CHANGED (165.5,198) "DATA",160.16,13,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,13,"FIELD",233,1) S ACDANS="" Q:$G(EXPORT)'="YES" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,13,"FIELD",233,2) BLANK "DATA",160.16,13,"FIELD",233,3) L,ZERO^2110 "DATA",160.16,13,"FIELD",233,4) Current date "DATA",160.16,13,"FIELD",234,0) 1198^1^1198^SEER Coding Sys--Current "DATA",160.16,13,"FIELD",234,1) S ACDANS=6 "DATA",160.16,13,"FIELD",234,2) BLANK "DATA",160.16,13,"FIELD",234,3) L,BLANK^2120 "DATA",160.16,13,"FIELD",234,4) 2003 SEER Coding Manual "DATA",160.16,13,"FIELD",235,0) 1199^1^1199^SEER Coding Sys--Original "DATA",160.16,13,"FIELD",235,1) S ACDANS=6 "DATA",160.16,13,"FIELD",235,2) BLANK "DATA",160.16,13,"FIELD",235,3) L,BLANK^2130 "DATA",160.16,13,"FIELD",235,4) 2003 SEER Coding Manual "DATA",160.16,13,"FIELD",236,0) 1200^2^1201^COC Coding Sys--Current "DATA",160.16,13,"FIELD",236,1) S ACDANS="08" "DATA",160.16,13,"FIELD",236,2) BLANK "DATA",160.16,13,"FIELD",236,3) L,BLANK^2140 "DATA",160.16,13,"FIELD",236,4) 08 FORDS (effective with cases diagnosed 2003 are forward) "DATA",160.16,13,"FIELD",237,0) 1202^2^1203^COC Coding Sys--Original "DATA",160.16,13,"FIELD",237,1) S ACDANS=$$COCO~ONCACDU2(IEN) "DATA",160.16,13,"FIELD",237,2) BLANK "DATA",160.16,13,"FIELD",237,3) L,BLANK^2150 "DATA",160.16,13,"FIELD",237,4) 08, 07, or 05 depending on DATE DX "DATA",160.16,13,"FIELD",238,0) 1244^50^1293^Reserved 08 "DATA",160.16,13,"FIELD",238,1) S ACDANS="" "DATA",160.16,13,"FIELD",238,2) BLANK "DATA",160.16,13,"FIELD",238,3) L,BLANK^1650 "DATA",160.16,13,"FIELD",239,0) 1204^10^1213^Vendor Name "DATA",160.16,13,"FIELD",239,1) S ACDANS=$$VENDOR~ONCACDU2 "DATA",160.16,13,"FIELD",239,2) BLANK "DATA",160.16,13,"FIELD",239,3) R,BLANK^2170 "DATA",160.16,13,"FIELD",239,4) "VA"_NAACCR version_patch #_"B" e.g. VAV11P46B "DATA",160.16,13,"FIELD",240,0) 1214^1^1214^SEER Type of Follow-Up "DATA",160.16,13,"FIELD",240,1) S ACDANS="" "DATA",160.16,13,"FIELD",240,2) BLANK "DATA",160.16,13,"FIELD",240,3) L,BLANK^2180 "DATA",160.16,13,"FIELD",241,0) 1215^2^1216^SEER Record Number "DATA",160.16,13,"FIELD",241,1) S ACDANS="" "DATA",160.16,13,"FIELD",241,2) BLANK "DATA",160.16,13,"FIELD",241,3) L,BLANK^2190 "DATA",160.16,13,"FIELD",242,0) 1217^2^1218^Diagnostic Proc 73-87 "DATA",160.16,13,"FIELD",242,1) S ACDANS="" "DATA",160.16,13,"FIELD",242,2) BLANK "DATA",160.16,13,"FIELD",242,3) L,BLANK^2200 "DATA",160.16,13,"FIELD",243,0) 1243^1^1243^ICD-O-3 Conversion Flag "DATA",160.16,13,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,13,"FIELD",243,2) BLANK "DATA",160.16,13,"FIELD",243,3) L,BLANK^2116 "DATA",160.16,13,"FIELD",340,0) 459^1^459^RX Hosp--Scope Reg LN Sur "DATA",160.16,13,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.5,"I") "DATA",160.16,13,"FIELD",340,2) NINE "DATA",160.16,13,"FIELD",340,3) L,BLANK^672 "DATA",160.16,13,"FIELD",340,4) SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "DATA",160.16,13,"FIELD",341,0) 460^1^460^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,13,"FIELD",341,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.5,"I") "DATA",160.16,13,"FIELD",341,2) NINE "DATA",160.16,13,"FIELD",341,3) L,BLANK^674 "DATA",160.16,13,"FIELD",341,4) SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "DATA",160.16,13,"FIELD",342,0) 461^2^462^RX Hosp--Reg LN Removed "DATA",160.16,13,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,13,"FIELD",342,2) BLANK "DATA",160.16,13,"FIELD",342,3) L,BLANK^676 "DATA",160.16,13,"FIELD",342,4) NUMBER OF LN REMOVED @FAC (R) (165.5,140.1) "DATA",160.16,13,"FIELD",343,0) 474^4^477^Reserved 28 "DATA",160.16,13,"FIELD",343,1) S ACDANS="" "DATA",160.16,13,"FIELD",343,2) BLANK "DATA",160.16,13,"FIELD",343,3) L,BLANK^741 "DATA",160.16,13,"FIELD",343,4) "DATA",160.16,13,"FIELD",347,0) 861^1^861^RX Summ--Scope Reg LN Sur "DATA",160.16,13,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.4,"I") "DATA",160.16,13,"FIELD",347,2) NINE "DATA",160.16,13,"FIELD",347,3) L,BLANK^1292 "DATA",160.16,13,"FIELD",347,4) SCOPE OF LN SURGERY (F) (165.5,138.4) "DATA",160.16,13,"FIELD",348,0) 862^1^862^RX Summ--Surg Oth Reg/Dis "DATA",160.16,13,"FIELD",348,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.4,"I") "DATA",160.16,13,"FIELD",348,2) NINE "DATA",160.16,13,"FIELD",348,3) L,BLANK^1294 "DATA",160.16,13,"FIELD",348,4) SURG PROC/OTHER SITE (F) (165.5,139.4) "DATA",160.16,13,"FIELD",349,0) 863^2^864^RX Summ--Reg LN Examined "DATA",160.16,13,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,13,"FIELD",349,2) BLANK "DATA",160.16,13,"FIELD",349,3) L,ZERO^1296 "DATA",160.16,13,"FIELD",349,4) NUMBER OF LN REMOVED (R) (165.5,140) "DATA",160.16,13,"FIELD",350,0) 934^4^937^Reserved 36 "DATA",160.16,13,"FIELD",350,1) S ACDANS="" "DATA",160.16,13,"FIELD",350,2) BLANK "DATA",160.16,13,"FIELD",350,3) L,BLANK^1641 "DATA",160.16,13,"FIELD",350,4) "DATA",160.16,13,"FIELD",354,0) 1048^1^1048^Subsq RX 2nd--Scope LN Su "DATA",160.16,13,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,13,"FIELD",354,2) BLANK "DATA",160.16,13,"FIELD",354,3) L,BLANK^1677 "DATA",160.16,13,"FIELD",354,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,13,"FIELD",355,0) 1049^1^1049^Subsq RX 2nd--Surg Oth "DATA",160.16,13,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,13,"FIELD",355,2) BLANK "DATA",160.16,13,"FIELD",355,3) L,BLANK^1678 "DATA",160.16,13,"FIELD",355,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,13,"FIELD",356,0) 1050^2^1051^Subsq RX 2nd--Reg LN Rem "DATA",160.16,13,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,13,"FIELD",356,2) BLANK "DATA",160.16,13,"FIELD",356,3) L,BLANK^1679 "DATA",160.16,13,"FIELD",356,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,13,"FIELD",357,0) 1052^1^1052^Subsq RX 3rd--Scope LN Su "DATA",160.16,13,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,13,"FIELD",357,2) BLANK "DATA",160.16,13,"FIELD",357,3) L,BLANK^1697 "DATA",160.16,13,"FIELD",357,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,13,"FIELD",358,0) 1053^1^1053^Subsq RX 3rd--Surg Oth "DATA",160.16,13,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,13,"FIELD",358,2) BLANK "DATA",160.16,13,"FIELD",358,3) L,BLANK^1698 "DATA",160.16,13,"FIELD",358,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,13,"FIELD",359,0) 1054^2^1055^Subsq RX 3rd--Reg LN Rem "DATA",160.16,13,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,13,"FIELD",359,2) BLANK "DATA",160.16,13,"FIELD",359,3) L,BLANK^1699 "DATA",160.16,13,"FIELD",359,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,13,"FIELD",360,0) 1056^1^1056^Subsq RX 4th--Scope LN Su "DATA",160.16,13,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,13,"FIELD",360,2) BLANK "DATA",160.16,13,"FIELD",360,3) L,BLANK^1717 "DATA",160.16,13,"FIELD",360,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,13,"FIELD",361,0) 1057^1^1057^Subsq RX 4th--Surg Oth "DATA",160.16,13,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,13,"FIELD",361,2) BLANK "DATA",160.16,13,"FIELD",361,3) L,BLANK^1718 "DATA",160.16,13,"FIELD",361,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,13,"FIELD",362,0) 1058^2^1059^Subsq RX 4th--Reg LN Rem "DATA",160.16,13,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,13,"FIELD",362,2) BLANK "DATA",160.16,13,"FIELD",362,3) L,BLANK^1719 "DATA",160.16,13,"FIELD",362,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,13,"FIELD",363,0) 1060^4^1063^Reserved 38 "DATA",160.16,13,"FIELD",363,1) S ACDANS="" "DATA",160.16,13,"FIELD",363,2) BLANK "DATA",160.16,13,"FIELD",363,3) L,BLANK^1726 "DATA",160.16,13,"FIELD",363,4) "DATA",160.16,13,"FIELD",366,0) 1064^1^1064^Subsq RX--Reconstruct Del "DATA",160.16,13,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,13,"FIELD",366,2) NINE "DATA",160.16,13,"FIELD",366,3) L,NINE^1741 "DATA",160.16,13,"FIELD",366,4) RECON/RESTORE - DELAYED (165.51,33) "DATA",160.16,13,"FIELD",367,0) 1357^20^1376^Follow-Up Contact--City "DATA",160.16,13,"FIELD",367,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,2) K VICPNT "DATA",160.16,13,"FIELD",367,2) BLANK "DATA",160.16,13,"FIELD",367,3) R,BLANK^1842 "DATA",160.16,13,"FIELD",367,4) ZIP CODE (165,.119) "DATA",160.16,13,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,13,"FIELD",368,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) STATE=$P(~VIC(5.11,VICPNT,0),U,4) S:$G(STATE) ACDANS=$P(~DIC(5,STATE,0),U,2) K STATE,VICPNT "DATA",160.16,13,"FIELD",368,2) BLANK "DATA",160.16,13,"FIELD",368,3) R,BLANK^1844 "DATA",160.16,13,"FIELD",368,4) ZIP CODE (165,.119) "DATA",160.16,13,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,13,"FIELD",369,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,1) K VICPNT "DATA",160.16,13,"FIELD",369,2) BLANK "DATA",160.16,13,"FIELD",369,3) R,BLANK^1846 "DATA",160.16,13,"FIELD",369,4) ZIP CODE (165,.119) "DATA",160.16,13,"FIELD",370,0) 1133^1^1133^Over-ride Site/Behavior "DATA",160.16,13,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,13,"FIELD",370,2) BLANK "DATA",160.16,13,"FIELD",370,3) L,BLANK^2071 "DATA",160.16,13,"FIELD",370,4) OVERRIDE SITE/BEHAVIOR (165.5,214) "DATA",160.16,13,"FIELD",371,0) 1134^1^1134^Over-ride Site/EOD/DX Dt "DATA",160.16,13,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,13,"FIELD",371,2) BLANK "DATA",160.16,13,"FIELD",371,3) L,BLANK^2072 "DATA",160.16,13,"FIELD",371,4) OVERRIDE SITE/EOD/DX DT (165.5,215) "DATA",160.16,13,"FIELD",372,0) 1135^1^1135^Over-ride Site/Lat/EOD "DATA",160.16,13,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,13,"FIELD",372,2) BLANK "DATA",160.16,13,"FIELD",372,3) L,BLANK^2073 "DATA",160.16,13,"FIELD",372,4) OVERRIDE SITE/LAT/EOD (165.5,216) "DATA",160.16,13,"FIELD",373,0) 1136^1^1136^Over-ride Site/Lat/Morph "DATA",160.16,13,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,13,"FIELD",373,2) BLANK "DATA",160.16,13,"FIELD",373,3) L,BLANK^2074 "DATA",160.16,13,"FIELD",373,4) OVERRIDE SITE/LAT/MORPH (165.5,217) "DATA",160.16,13,"FIELD",374,0) 1148^16^1163^Reserved 24 "DATA",160.16,13,"FIELD",374,1) S ACDANS="" "DATA",160.16,13,"FIELD",374,2) BLANK "DATA",160.16,13,"FIELD",374,3) L,BLANK "DATA",160.16,13,"FIELD",376,0) 1219^8^1226^Date Case Report Received "DATA",160.16,13,"FIELD",376,1) S ACDANS="" "DATA",160.16,13,"FIELD",376,2) BLANK "DATA",160.16,13,"FIELD",376,3) L,BLANK^2111 "DATA",160.16,13,"FIELD",377,0) 1227^8^1234^Date Case Report Loaded "DATA",160.16,13,"FIELD",377,1) S ACDANS="" "DATA",160.16,13,"FIELD",377,2) BLANK "DATA",160.16,13,"FIELD",377,3) L,BLANK^2112 "DATA",160.16,13,"FIELD",378,0) 1235^8^1242^Date Tumor Record Availbl "DATA",160.16,13,"FIELD",378,1) S ACDANS="" "DATA",160.16,13,"FIELD",378,2) BLANK "DATA",160.16,13,"FIELD",378,3) L,BLANK^2113 "DATA",160.16,13,"FIELD",379,0) 1164^10^1173^CRC CHECKSUM "DATA",160.16,13,"FIELD",379,1) S ACDANS="" "DATA",160.16,13,"FIELD",379,2) BLANK "DATA",160.16,13,"FIELD",379,3) L,BLANK^2081 "DATA",160.16,13,"FIELD",380,0) 12^7^18^Reserved 00 "DATA",160.16,13,"FIELD",380,1) S ACDANS="" "DATA",160.16,13,"FIELD",380,2) BLANK "DATA",160.16,13,"FIELD",380,3) L,BLANK^37 "DATA",160.16,13,"FIELD",382,0) 382^10^391^Reporting Facility "DATA",160.16,13,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") I (ACDANS=9999999)&($L(STAT1)=8) S ACDANS=99999999 "DATA",160.16,13,"FIELD",382,2) ZERO "DATA",160.16,13,"FIELD",382,3) L,ZERO^540 "DATA",160.16,13,"FIELD",382,4) REPORTING FACILITY (165.5,.03) "DATA",160.16,13,"FIELD",383,0) 402^9^410^Accession Number--Hosp "DATA",160.16,13,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,13,"FIELD",383,2) BLANK "DATA",160.16,13,"FIELD",383,3) L,ZERO^550 "DATA",160.16,13,"FIELD",383,4) ACCESSION NUMBER (165.5,.05) "DATA",160.16,13,"FIELD",388,0) 372^10^381^NPI--Reporting Facility "DATA",160.16,13,"FIELD",388,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,.03,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,13,"FIELD",388,2) BLANK "DATA",160.16,13,"FIELD",388,3) L,BLANK^545 "DATA",160.16,13,"FIELD",388,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",390,0) 345^27^371^Reserved 03 "DATA",160.16,13,"FIELD",390,1) S ACDANS="" "DATA",160.16,13,"FIELD",390,2) BLANK "DATA",160.16,13,"FIELD",390,3) L,BLANK^680 "DATA",160.16,13,"FIELD",391,0) 528^1^528^SEER Summary Stage 2000 "DATA",160.16,13,"FIELD",391,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,13,"FIELD",391,2) BLANK "DATA",160.16,13,"FIELD",391,3) L,BLANK^759 "DATA",160.16,13,"FIELD",391,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,13,"FIELD",392,0) 1115^1^1115^Over-ride SS/NodesPos "DATA",160.16,13,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,13,"FIELD",392,2) BLANK "DATA",160.16,13,"FIELD",392,3) L,BLANK^1981 "DATA",160.16,13,"FIELD",392,4) OVERRIDE SS/NODESPOS (165.5,218) "DATA",160.16,13,"FIELD",393,0) 1116^1^1116^Over-ride SS/TNM-N "DATA",160.16,13,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,13,"FIELD",393,2) BLANK "DATA",160.16,13,"FIELD",393,3) L,BLANK^1982 "DATA",160.16,13,"FIELD",393,4) OVERRIDE SS/TNM-N (165.5,219) "DATA",160.16,13,"FIELD",394,0) 1117^1^1117^Over-ride SS/TNM-M "DATA",160.16,13,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,13,"FIELD",394,2) BLANK "DATA",160.16,13,"FIELD",394,3) L,BLANK^1983 "DATA",160.16,13,"FIELD",394,4) OVERRIDE SS/TNM-M (165.5,220) "DATA",160.16,13,"FIELD",395,0) 1118^1^1118^Over-ride SS/DisMet1 "DATA",160.16,13,"FIELD",395,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,13,"FIELD",395,2) BLANK "DATA",160.16,13,"FIELD",395,3) L,BLANK^1984 "DATA",160.16,13,"FIELD",395,4) OVERRIDE SS/DISMET1 (165.5,221) "DATA",160.16,13,"FIELD",396,0) 1119^1^1119^Over-ride Acsn/Class/Seq "DATA",160.16,13,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,13,"FIELD",396,2) BLANK "DATA",160.16,13,"FIELD",396,3) L,BLANK^1985 "DATA",160.16,13,"FIELD",396,4) OVERRIDE ACSN/CLASS/SEQ (165.5,222) "DATA",160.16,13,"FIELD",397,0) 1120^1^1120^Over-ride HospSeq/DxConf "DATA",160.16,13,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,13,"FIELD",397,2) BLANK "DATA",160.16,13,"FIELD",397,3) L,BLANK^1986 "DATA",160.16,13,"FIELD",397,4) OVERRIDE HOSPSEQ/DXCONF (165.5,223) "DATA",160.16,13,"FIELD",398,0) 1121^1^1121^Over-ride COC-Site/Type "DATA",160.16,13,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,13,"FIELD",398,2) BLANK "DATA",160.16,13,"FIELD",398,3) L,BLANK^1987 "DATA",160.16,13,"FIELD",398,4) OVERRIDE COC-SITE/TYPE (165.5,224) "DATA",160.16,13,"FIELD",399,0) 1122^1^1122^Over-ride HospSeq/Site "DATA",160.16,13,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,13,"FIELD",399,2) BLANK "DATA",160.16,13,"FIELD",399,3) L,BLANK^1988 "DATA",160.16,13,"FIELD",399,4) OVERRIDE HOSPSEQ/SITE (165.5,225) "DATA",160.16,13,"FIELD",400,0) 1123^1^1123^Over-ride Site/TNM-StgGrp "DATA",160.16,13,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,13,"FIELD",400,2) BLANK "DATA",160.16,13,"FIELD",400,3) L,BLANK^1989 "DATA",160.16,13,"FIELD",400,4) OVERRIDE SITE/TNM-STAGE GROUP (165.5,226) "DATA",160.16,13,"FIELD",401,0) 1399^8^1406^Date of Death--Canada "DATA",160.16,13,"FIELD",401,1) S ACDANS="" "DATA",160.16,13,"FIELD",401,2) BLANK "DATA",160.16,13,"FIELD",401,3) L,BLANK^1755 "DATA",160.16,13,"FIELD",402,0) 30^2^31^Tumor Record Number "DATA",160.16,13,"FIELD",402,1) S ACDANS="" "DATA",160.16,13,"FIELD",402,2) BLANK "DATA",160.16,13,"FIELD",402,3) L,BLANK^60 "DATA",160.16,13,"FIELD",403,0) 32^8^39^Patient System ID-Hosp "DATA",160.16,13,"FIELD",403,1) S ACDANS=ACD160 "DATA",160.16,13,"FIELD",403,2) BLANK "DATA",160.16,13,"FIELD",403,3) L,ZERO^21 "DATA",160.16,13,"FIELD",403,4) ONCOLOGY PATIENT file IEN "DATA",160.16,13,"FIELD",404,0) 52^20^71^Addr at DX--City "DATA",160.16,13,"FIELD",404,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"UNKNOWN") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",404,2) BLANK "DATA",160.16,13,"FIELD",404,3) R,BLANK^70 "DATA",160.16,13,"FIELD",404,4) CITY/TOWN AT DX (165.5,8.1) "DATA",160.16,13,"FIELD",405,0) 72^2^73^Addr at DX--State "DATA",160.16,13,"FIELD",405,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,13,"FIELD",405,2) BLANK "DATA",160.16,13,"FIELD",405,3) L,BLANK^80 "DATA",160.16,13,"FIELD",405,4) STATE AT DX (165.5,16) "DATA",160.16,13,"FIELD",406,0) 114^1^114^Race Coding Sys--Original "DATA",160.16,13,"FIELD",406,1) S ACDANS=6 "DATA",160.16,13,"FIELD",406,2) BLANK "DATA",160.16,13,"FIELD",406,3) L,BLANK^180 "DATA",160.16,13,"FIELD",406,4) 6 2000+ SEER & COC "DATA",160.16,13,"FIELD",407,0) 83^3^85^County at DX "DATA",160.16,13,"FIELD",407,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,13,"FIELD",407,2) BLANK "DATA",160.16,13,"FIELD",407,3) L,ZERO^90 "DATA",160.16,13,"FIELD",407,4) COUNTY AT DX (165.5,10) "DATA",160.16,13,"FIELD",408,0) 86^6^91^Census Tract 1970/80/90 "DATA",160.16,13,"FIELD",408,1) S ACDANS="" "DATA",160.16,13,"FIELD",408,2) BLANK "DATA",160.16,13,"FIELD",408,3) L,BLANK^110 "DATA",160.16,13,"FIELD",408,4) "DATA",160.16,13,"FIELD",409,0) 92^1^92^Census Cod Sys 1970/80/90 "DATA",160.16,13,"FIELD",409,1) S ACDANS="" "DATA",160.16,13,"FIELD",409,2) BLANK "DATA",160.16,13,"FIELD",409,3) L,BLANK^120 "DATA",160.16,13,"FIELD",410,0) 133^2^134^Religion "DATA",160.16,13,"FIELD",410,1) S ACDANS="" "DATA",160.16,13,"FIELD",410,2) BLANK "DATA",160.16,13,"FIELD",410,3) L,BLANK^260 "DATA",160.16,13,"FIELD",411,0) 142^1^142^Industry Source "DATA",160.16,13,"FIELD",411,1) S ACDANS="" "DATA",160.16,13,"FIELD",411,2) BLANK "DATA",160.16,13,"FIELD",411,3) L,BLANK^300 "DATA",160.16,13,"FIELD",412,0) 223^1^223^Occup/Ind Coding System "DATA",160.16,13,"FIELD",412,1) S ACDANS="" "DATA",160.16,13,"FIELD",412,2) BLANK "DATA",160.16,13,"FIELD",412,3) L,BLANK^330 "DATA",160.16,13,"FIELD",413,0) 113^1^113^Race Coding Sys--Current "DATA",160.16,13,"FIELD",413,1) S ACDANS=6 "DATA",160.16,13,"FIELD",413,2) BLANK "DATA",160.16,13,"FIELD",413,3) L,BLANK^170 "DATA",160.16,13,"FIELD",413,4) 6 2000+ SEER & COC "DATA",160.16,13,"FIELD",414,0) 115^1^115^Spanish/Hispanic Origin "DATA",160.16,13,"FIELD",414,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,13,"FIELD",414,2) BLANK "DATA",160.16,13,"FIELD",414,3) L,BLANK^190 "DATA",160.16,13,"FIELD",414,4) SPANISH ORIGIN (160,9) "DATA",160.16,13,"FIELD",415,0) 116^1^116^Computed Ethnicity "DATA",160.16,13,"FIELD",415,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,13,"FIELD",415,2) BLANK "DATA",160.16,13,"FIELD",415,3) L,BLANK^200 "DATA",160.16,13,"FIELD",415,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,13,"FIELD",416,0) 117^1^117^Computed Ethnicity Source "DATA",160.16,13,"FIELD",416,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,13,"FIELD",416,2) BLANK "DATA",160.16,13,"FIELD",416,3) L,BLANK^210 "DATA",160.16,13,"FIELD",416,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,13,"FIELD",417,0) 118^1^118^Sex "DATA",160.16,13,"FIELD",417,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,13,"FIELD",417,2) BLANK "DATA",160.16,13,"FIELD",417,3) L,BLANK^220 "DATA",160.16,13,"FIELD",417,4) SEX (160,10) "DATA",160.16,13,"FIELD",418,0) 119^3^121^Age at Diagnosis "DATA",160.16,13,"FIELD",418,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,13,"FIELD",418,2) BLANK "DATA",160.16,13,"FIELD",418,3) L,ZERO^230 "DATA",160.16,13,"FIELD",418,4) AGE~ONCOCOM "DATA",160.16,13,"FIELD",419,0) 122^8^129^Birth Date "DATA",160.16,13,"FIELD",419,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,13,"FIELD",419,2) BLANK "DATA",160.16,13,"FIELD",419,3) L,ZERO^240 "DATA",160.16,13,"FIELD",419,4) DOB~ONCOES "DATA",160.16,13,"FIELD",420,0) 130^3^132^Birthplace "DATA",160.16,13,"FIELD",420,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,13,"FIELD",420,2) BLANK "DATA",160.16,13,"FIELD",420,3) L,ZERO^250 "DATA",160.16,13,"FIELD",420,4) PLACE OF BIRTH (160,7) "DATA",160.16,13,"FIELD",421,0) 99^1^99^Census Tract Block Group "DATA",160.16,13,"FIELD",421,1) S ACDANS="" "DATA",160.16,13,"FIELD",421,2) BLANK "DATA",160.16,13,"FIELD",421,3) L,BLANK^362 "DATA",160.16,13,"FIELD",422,0) 100^1^100^Census Tr Cert 1970/80/90 "DATA",160.16,13,"FIELD",422,1) S ACDANS="" "DATA",160.16,13,"FIELD",422,2) BLANK "DATA",160.16,13,"FIELD",422,3) L,BLANK^364 "DATA",160.16,13,"FIELD",423,0) 141^1^141^Occupation Source "DATA",160.16,13,"FIELD",423,1) S ACDANS="" "DATA",160.16,13,"FIELD",423,2) BLANK "DATA",160.16,13,"FIELD",423,3) L,BLANK^290 "DATA",160.16,13,"FIELD",424,0) 105^2^106^Race 2 "DATA",160.16,13,"FIELD",424,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,13,"FIELD",424,2) 8 "DATA",160.16,13,"FIELD",424,3) L,ZERO^161 "DATA",160.16,13,"FIELD",424,4) RACE 2 (160,8.1) "DATA",160.16,13,"FIELD",425,0) 107^2^108^Race 3 "DATA",160.16,13,"FIELD",425,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,13,"FIELD",425,2) 8 "DATA",160.16,13,"FIELD",425,3) L,ZERO^162 "DATA",160.16,13,"FIELD",425,4) RACE 3 (160,8.2) "DATA",160.16,13,"FIELD",426,0) 109^2^110^Race 4 "DATA",160.16,13,"FIELD",426,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,13,"FIELD",426,2) 8 "DATA",160.16,13,"FIELD",426,3) L,ZERO^163 "DATA",160.16,13,"FIELD",426,4) RACE 4 (160,8.3) "DATA",160.16,13,"FIELD",427,0) 111^2^112^Race 5 "DATA",160.16,13,"FIELD",427,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,13,"FIELD",427,2) 8 "DATA",160.16,13,"FIELD",427,3) L,ZERO^164 "DATA",160.16,13,"FIELD",427,4) RACE 5 (160,8.4) "DATA",160.16,13,"FIELD",428,0) 135^3^137^Occupation Code--Census "DATA",160.16,13,"FIELD",428,1) S ACDANS="" "DATA",160.16,13,"FIELD",428,2) BLANK "DATA",160.16,13,"FIELD",428,3) L,BLANK^270 "DATA",160.16,13,"FIELD",429,0) 138^3^140^Industry Code--Census "DATA",160.16,13,"FIELD",429,1) S ACDANS="" "DATA",160.16,13,"FIELD",429,2) BLANK "DATA",160.16,13,"FIELD",429,3) L,BLANK^280 "DATA",160.16,13,"FIELD",430,0) 224^1^224^Tobacco History "DATA",160.16,13,"FIELD",430,1) S ACDANS="" "DATA",160.16,13,"FIELD",430,2) BLANK "DATA",160.16,13,"FIELD",430,3) L,BLANK^340 "DATA",160.16,13,"FIELD",430,4) NAACCR has not adopted standards for this item. "DATA",160.16,13,"FIELD",431,0) 225^1^225^Alcohol History "DATA",160.16,13,"FIELD",431,1) S ACDANS="" "DATA",160.16,13,"FIELD",431,2) BLANK "DATA",160.16,13,"FIELD",431,3) L,BLANK^350 "DATA",160.16,13,"FIELD",431,4) NAACCR has not adopted standards for this item. "DATA",160.16,13,"FIELD",432,0) 226^1^226^Family History of Cancer "DATA",160.16,13,"FIELD",432,1) S ACDANS="" "DATA",160.16,13,"FIELD",432,2) BLANK "DATA",160.16,13,"FIELD",432,3) L,BLANK^360 "DATA",160.16,13,"FIELD",432,4) NAACCR has not adopted standards for this item. "DATA",160.16,13,"FIELD",433,0) 281^2^282^Sequence Number--Central "DATA",160.16,13,"FIELD",433,1) S ACDANS=$$SNCNT~ONCACDU2(IEN) "DATA",160.16,13,"FIELD",433,2) BLANK "DATA",160.16,13,"FIELD",433,3) L,BLANK^380 "DATA",160.16,13,"FIELD",434,0) 283^8^290^Date of Diagnosis "DATA",160.16,13,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",434,2) BLANK "DATA",160.16,13,"FIELD",434,3) L,ZERO^390 "DATA",160.16,13,"FIELD",434,4) DATE DX (165.5,3) "DATA",160.16,13,"FIELD",435,0) 227^2^228^RuralUrban Continuum 1993 "DATA",160.16,13,"FIELD",435,1) S ACDANS="" "DATA",160.16,13,"FIELD",435,2) BLANK "DATA",160.16,13,"FIELD",435,3) L,BLANK^3300 "DATA",160.16,13,"FIELD",435,4) Program not run; record not coded "DATA",160.16,13,"FIELD",436,0) 229^2^230^RuralUrban Continuum 2000 "DATA",160.16,13,"FIELD",436,1) S ACDANS="" "DATA",160.16,13,"FIELD",436,2) BLANK "DATA",160.16,13,"FIELD",436,3) L,BLANK^3310 "DATA",160.16,13,"FIELD",436,4) Program not run; record not coded "DATA",160.16,13,"FIELD",437,0) 236^2^237^Race--NAPIIA "DATA",160.16,13,"FIELD",437,1) S ACDANS="" "DATA",160.16,13,"FIELD",437,2) BLANK "DATA",160.16,13,"FIELD",437,3) L,BLANK^193 "DATA",160.16,13,"FIELD",438,0) 392^10^401^Archive FIN "DATA",160.16,13,"FIELD",438,1) S ACDANS=STAT1 "DATA",160.16,13,"FIELD",438,2) ZERO "DATA",160.16,13,"FIELD",438,3) L,ZERO^3100 "DATA",160.16,13,"FIELD",438,4) FACILITY ID # (160.1,27) "DATA",160.16,13,"FIELD",439,0) 473^1^473^RX Hosp--Palliative Proc "DATA",160.16,13,"FIELD",439,1) S ACDANS=$$GET1~DIQ(165.5,IEN,13,"I") "DATA",160.16,13,"FIELD",439,2) NINE "DATA",160.16,13,"FIELD",439,3) L,BLANK^3280 "DATA",160.16,13,"FIELD",439,4) PALLIATIVE PROCEDURE @FAC (165.5,13) "DATA",160.16,13,"FIELD",440,0) 629^3^631^CS Tumor Size "DATA",160.16,13,"FIELD",440,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.2,"I")) K DATEDX "DATA",160.16,13,"FIELD",440,2) BLANK "DATA",160.16,13,"FIELD",440,3) L,ZERO^2800 "DATA",160.16,13,"FIELD",440,4) TUMOR SIZE (CS) (165.5,29.2) "DATA",160.16,13,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,13,"FIELD",441,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,30.2,"I")) K DATEDX "DATA",160.16,13,"FIELD",441,2) BLANK "DATA",160.16,13,"FIELD",441,3) L,ZERO^2810 "DATA",160.16,13,"FIELD",441,4) EXTENSION (CS) (165.5,30.2) "DATA",160.16,13,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,13,"FIELD",442,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.1,"I")) K DATEDX "DATA",160.16,13,"FIELD",442,2) BLANK "DATA",160.16,13,"FIELD",442,3) L,ZERO^2820 "DATA",160.16,13,"FIELD",442,4) TUMOR SIZE/EXT EVAL (CS) (165.5,29.1) "DATA",160.16,13,"FIELD",443,0) 635^2^636^CS Lymph Nodes "DATA",160.16,13,"FIELD",443,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,31.1,"I")) K DATEDX "DATA",160.16,13,"FIELD",443,2) BLANK "DATA",160.16,13,"FIELD",443,3) L,BLANK^2830 "DATA",160.16,13,"FIELD",443,4) LYMPH NODES (CS) (165.5,31.1) "DATA",160.16,13,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,13,"FIELD",444,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,32.1,"I")) K DATEDX "DATA",160.16,13,"FIELD",444,2) BLANK "DATA",160.16,13,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,13,"FIELD",444,4) REG NODES EVAL (CS) (165.5,32.1) "DATA",160.16,13,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,13,"FIELD",445,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.3,"I")) K DATEDX "DATA",160.16,13,"FIELD",445,2) BLANK "DATA",160.16,13,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,13,"FIELD",445,4) METS AT DX (CS) (165.5,34.3) "DATA",160.16,13,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,13,"FIELD",446,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.4,"I")) K DATEDX "DATA",160.16,13,"FIELD",446,2) BLANK "DATA",160.16,13,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,13,"FIELD",446,4) METS EVAL (CS) (165.5,34.4) "DATA",160.16,13,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,13,"FIELD",447,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.1,"I")) K DATEDX "DATA",160.16,13,"FIELD",447,2) BLANK "DATA",160.16,13,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,13,"FIELD",447,4) SITE-SPECIFIC FACTOR 1 (CS) (165.5,44.1) "DATA",160.16,13,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,13,"FIELD",448,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.2,"I")) K DATEDX "DATA",160.16,13,"FIELD",448,2) BLANK "DATA",160.16,13,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,13,"FIELD",448,4) SITE-SPECIFIC FACTOR 2 (CS) (165.5,44.2) "DATA",160.16,13,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,13,"FIELD",449,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.3,"I")) K DATEDX "DATA",160.16,13,"FIELD",449,2) BLANK "DATA",160.16,13,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,13,"FIELD",449,4) SITE-SPECIFIC FACTOR 3 (CS) (165.5,44.3) "DATA",160.16,13,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,13,"FIELD",450,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.4,"I")) K DATEDX "DATA",160.16,13,"FIELD",450,2) BLANK "DATA",160.16,13,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,13,"FIELD",450,4) SITE-SPECIFIC FACTOR 4 (CS) (165.5,44.4) "DATA",160.16,13,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,13,"FIELD",451,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.5,"I")) K DATEDX "DATA",160.16,13,"FIELD",451,2) BLANK "DATA",160.16,13,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,13,"FIELD",451,4) SITE-SPECIFIC FACTOR 5 (CS) (165.5,44.5) "DATA",160.16,13,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,13,"FIELD",452,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.6,"I")) K DATEDX "DATA",160.16,13,"FIELD",452,2) BLANK "DATA",160.16,13,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,13,"FIELD",452,4) SITE-SPECIFIC FACTOR 6 (CS) (165.5,44.6) "DATA",160.16,13,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,13,"FIELD",453,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,160,"I")) K DATEDX "DATA",160.16,13,"FIELD",453,2) BLANK "DATA",160.16,13,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,13,"FIELD",453,4) DERIVED AJCC T (165.5,160) "DATA",160.16,13,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,13,"FIELD",454,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,161,"I")) K DATEDX "DATA",160.16,13,"FIELD",454,2) BLANK "DATA",160.16,13,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,13,"FIELD",454,4) DERIVED AJCC T DESCRIPTOR (165.5,161) "DATA",160.16,13,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,13,"FIELD",455,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,162,"I")) K DATEDX "DATA",160.16,13,"FIELD",455,2) BLANK "DATA",160.16,13,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,13,"FIELD",455,4) DERIVED AJCC N (165.5,162) "DATA",160.16,13,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,13,"FIELD",456,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,163,"I")) K DATEDX "DATA",160.16,13,"FIELD",456,2) BLANK "DATA",160.16,13,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,13,"FIELD",456,4) DERIVED AJCC N DESCRIPTOR (165.5,163) "DATA",160.16,13,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,13,"FIELD",457,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,164,"I")) K DATEDX "DATA",160.16,13,"FIELD",457,2) BLANK "DATA",160.16,13,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,13,"FIELD",457,4) DERIVED AJCC M (165.5,164) "DATA",160.16,13,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,13,"FIELD",458,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,165,"I")) K DATEDX "DATA",160.16,13,"FIELD",458,2) BLANK "DATA",160.16,13,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,13,"FIELD",458,4) DERIVED AJCC M DESCRIPTOR (165.5,165) "DATA",160.16,13,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,13,"FIELD",459,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,166,"I")) K DATEDX "DATA",160.16,13,"FIELD",459,2) BLANK "DATA",160.16,13,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,13,"FIELD",459,4) DERIVED AJCC STAGE GROUP (165.5,166) "DATA",160.16,13,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,13,"FIELD",460,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,167,"I")) K DATEDX "DATA",160.16,13,"FIELD",460,2) BLANK "DATA",160.16,13,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,13,"FIELD",460,4) DERIVED SS1977 (165.5,670) "DATA",160.16,13,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,13,"FIELD",461,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,168,"I")) K DATEDX "DATA",160.16,13,"FIELD",461,2) BLANK "DATA",160.16,13,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,13,"FIELD",461,4) DERIVED SS2000 (165.5,168) "DATA",160.16,13,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,13,"FIELD",462,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,166,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,13,"FIELD",462,2) BLANK "DATA",160.16,13,"FIELD",462,3) L,BLANK^3030 "DATA",160.16,13,"FIELD",463,0) 673^1^673^Derived SS1977--Flag "DATA",160.16,13,"FIELD",463,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,167,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,13,"FIELD",463,2) BLANK "DATA",160.16,13,"FIELD",463,3) L,BLANK^3040 "DATA",160.16,13,"FIELD",464,0) 674^1^674^Derived SS2000--Flag "DATA",160.16,13,"FIELD",464,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,168,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,13,"FIELD",464,2) BLANK "DATA",160.16,13,"FIELD",464,3) L,BLANK^3050 "DATA",160.16,13,"FIELD",465,0) 675^5^679^Comorbid/Complication 1 "DATA",160.16,13,"FIELD",465,1) D CC~ONCACDU1 S ACDANS=CCEX(1) "DATA",160.16,13,"FIELD",465,2) ZERO "DATA",160.16,13,"FIELD",465,3) R,ZERO^3110 "DATA",160.16,13,"FIELD",465,4) COMORBIDITY/COMPLICATION #1 (160,25) "DATA",160.16,13,"FIELD",466,0) 680^5^684^Comorbid/Complication 2 "DATA",160.16,13,"FIELD",466,1) D CC~ONCACDU1 S ACDANS=CCEX(2) "DATA",160.16,13,"FIELD",466,2) BLANK "DATA",160.16,13,"FIELD",466,3) R,ZERO^3120 "DATA",160.16,13,"FIELD",466,4) COMORBIDITY/COMPLICATION #2 (160,25.1) "DATA",160.16,13,"FIELD",467,0) 685^5^689^Comorbid/Complication 3 "DATA",160.16,13,"FIELD",467,1) D CC~ONCACDU1 S ACDANS=CCEX(3) "DATA",160.16,13,"FIELD",467,2) BLANK "DATA",160.16,13,"FIELD",467,3) R,ZERO^3130 "DATA",160.16,13,"FIELD",467,4) COMORBIDITY/COMPLICATION #3 (160,25.2) "DATA",160.16,13,"FIELD",468,0) 690^5^694^Comorbid/Complication 4 "DATA",160.16,13,"FIELD",468,1) D CC~ONCACDU1 S ACDANS=CCEX(4) "DATA",160.16,13,"FIELD",468,2) BLANK "DATA",160.16,13,"FIELD",468,3) R,ZERO^3140 "DATA",160.16,13,"FIELD",468,4) COMORBIDITY/COMPLICATION #4 (160,25.3) "DATA",160.16,13,"FIELD",469,0) 695^5^699^Comorbid/Complication 5 "DATA",160.16,13,"FIELD",469,1) D CC~ONCACDU1 S ACDANS=CCEX(5) "DATA",160.16,13,"FIELD",469,2) BLANK "DATA",160.16,13,"FIELD",469,3) R,ZERO^3150 "DATA",160.16,13,"FIELD",469,4) COMORBIDITY/COMPLICATION #5 (160,25.4) "DATA",160.16,13,"FIELD",470,0) 700^5^704^Comorbid/Complication 6 "DATA",160.16,13,"FIELD",470,1) D CC~ONCACDU1 S ACDANS=CCEX(6) "DATA",160.16,13,"FIELD",470,2) BLANK "DATA",160.16,13,"FIELD",470,3) R,ZERO^3160 "DATA",160.16,13,"FIELD",470,4) COMORBIDITY/COMPLICATION #6 (160,25.5) "DATA",160.16,13,"FIELD",471,0) 763^8^770^RX Date--Most Defin Surg "DATA",160.16,13,"FIELD",471,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,13,"FIELD",471,2) BLANK "DATA",160.16,13,"FIELD",471,3) L,BLANK^3170 "DATA",160.16,13,"FIELD",471,4) SURGERY OF PRIMARY DATE (165.5,50) "DATA",160.16,13,"FIELD",472,0) 771^8^778^RX Date--Surgical Disch "DATA",160.16,13,"FIELD",472,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,435,"I")) "DATA",160.16,13,"FIELD",472,2) BLANK "DATA",160.16,13,"FIELD",472,3) L,BLANK^3180 "DATA",160.16,13,"FIELD",472,4) DATE OF SURGICAL DISCHARGE (165.5,435) "DATA",160.16,13,"FIELD",473,0) 787^8^794^RX Date--Radiation Ended "DATA",160.16,13,"FIELD",473,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.16,13,"FIELD",473,2) NINE "DATA",160.16,13,"FIELD",473,3) L,BLANK^3220 "DATA",160.16,13,"FIELD",473,4) DATE RADIATION ENDED (165.5,361) "DATA",160.16,13,"FIELD",474,0) 795^8^802^RX Date--Systemic "DATA",160.16,13,"FIELD",474,1) S ACDANS=$$GET1~DIQ(165.5,IEN,152) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,13,"FIELD",474,2) BLANK "DATA",160.16,13,"FIELD",474,3) L,BLANK^3230 "DATA",160.16,13,"FIELD",474,4) DATE SYSTEMIC THERAPY STARTED (165.5,152) "DATA",160.16,13,"FIELD",475,0) 1351^1^1351^Recurrence Distant Site 2 "DATA",160.16,13,"FIELD",475,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.2,"I") "DATA",160.16,13,"FIELD",475,2) BLANK "DATA",160.16,13,"FIELD",475,3) L,BLANK^1872 "DATA",160.16,13,"FIELD",475,4) DISTANT SITE 2 (165.5,71.2) "DATA",160.16,13,"FIELD",476,0) 1352^1^1352^Recurrence Distant Site 3 "DATA",160.16,13,"FIELD",476,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,13,"FIELD",476,2) BLANK "DATA",160.16,13,"FIELD",476,3) L,BLANK^1873 "DATA",160.16,13,"FIELD",476,4) DISTANT SITE 3 (165.5,71.3) "DATA",160.16,13,"FIELD",477,0) 871^1^871^RX Summ--Palliative Proc "DATA",160.16,13,"FIELD",477,1) S ACDANS=$$GET1~DIQ(165.5,IEN,12,"I") "DATA",160.16,13,"FIELD",477,2) NINE "DATA",160.16,13,"FIELD",477,3) L,BLANK^3270 "DATA",160.16,13,"FIELD",477,4) PALLIATIVE PROCEDURE (165.5,12) "DATA",160.16,13,"FIELD",478,0) 872^1^872^Reserved 22 "DATA",160.16,13,"FIELD",478,1) S ACDANS="" "DATA",160.16,13,"FIELD",478,2) BLANK "DATA",160.16,13,"FIELD",478,3) L,BLANK "DATA",160.16,13,"FIELD",479,0) 876^2^877^RX Summ--Transplnt/Endocr "DATA",160.16,13,"FIELD",479,1) S ACDANS=$$GET1~DIQ(165.5,IEN,153,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(167,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",479,2) BLANK "DATA",160.16,13,"FIELD",479,3) L,BLANK^3250 "DATA",160.16,13,"FIELD",479,4) HEMA TRANS/ENDOCRINE PROC (165.5,153) "DATA",160.16,13,"FIELD",480,0) 911^2^912^Rad--Boost RX Modality "DATA",160.16,13,"FIELD",480,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",480,2) ZERO "DATA",160.16,13,"FIELD",480,3) L,BLANK^3200 "DATA",160.16,13,"FIELD",480,4) BOOST TREATMENT MODALITY (165.5,363.1) "DATA",160.16,13,"FIELD",481,0) 913^5^917^Rad--Boost Dose cGy "DATA",160.16,13,"FIELD",481,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.16,13,"FIELD",481,2) ZERO "DATA",160.16,13,"FIELD",481,3) L,ZERO^3210 "DATA",160.16,13,"FIELD",481,4) BOOST DOSE: cGy (165.5,443) "DATA",160.16,13,"FIELD",482,0) 938^1^938^Readm Same Hosp 30 Days "DATA",160.16,13,"FIELD",482,1) S ACDANS=$$GET1~DIQ(165.5,IEN,14,"I") "DATA",160.16,13,"FIELD",482,2) BLANK "DATA",160.16,13,"FIELD",482,3) L,BLANK^3190 "DATA",160.16,13,"FIELD",482,4) READMISSION W/I 30 DAYS/SURG (165.5,14) "DATA",160.16,13,"FIELD",483,0) 1447^500^1946^State/Requestor Items "DATA",160.16,13,"FIELD",483,1) S ACDANS="" "DATA",160.16,13,"FIELD",483,2) BLANK "DATA",160.16,13,"FIELD",483,3) L,BLANK^2220 "DATA",160.16,13,"FIELD",484,0) 1947^25^1971^Name--Last "DATA",160.16,13,"FIELD",484,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,13,"FIELD",484,2) BLANK "DATA",160.16,13,"FIELD",484,3) R,BLANK^2230 "DATA",160.16,13,"FIELD",484,4) LAST NAME (160,.011) "DATA",160.16,13,"FIELD",485,0) 1972^14^1985^Name--First "DATA",160.16,13,"FIELD",485,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," "),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,13,"FIELD",485,2) BLANK "DATA",160.16,13,"FIELD",485,3) R,BLANK^2240 "DATA",160.16,13,"FIELD",485,4) NAME (160,.01) "DATA",160.16,13,"FIELD",486,0) 1986^14^1999^Name--Middle "DATA",160.16,13,"FIELD",486,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E"),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,13,"FIELD",486,2) BLANK "DATA",160.16,13,"FIELD",486,3) R,BLANK^2250 "DATA",160.16,13,"FIELD",486,4) MIDDLE NAME (160,.015) "DATA",160.16,13,"FIELD",487,0) 2000^3^2002^Name--Prefix "DATA",160.16,13,"FIELD",487,1) S ACDANS="" "DATA",160.16,13,"FIELD",487,2) BLANK "DATA",160.16,13,"FIELD",487,3) R,BLANK^2260 "DATA",160.16,13,"FIELD",488,0) 2003^3^2005^Name--Suffix "DATA",160.16,13,"FIELD",488,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,13,"FIELD",488,2) BLANK "DATA",160.16,13,"FIELD",488,3) R,BLANK^2270 "DATA",160.16,13,"FIELD",488,4) NAME (160,.01) "DATA",160.16,13,"FIELD",489,0) 2006^15^2020^Name--Alias "DATA",160.16,13,"FIELD",489,1) S ACDANS=$$GET1~DIQ(160,ACD160,1,"E") "DATA",160.16,13,"FIELD",489,2) BLANK "DATA",160.16,13,"FIELD",489,3) R,BLANK^2280 "DATA",160.16,13,"FIELD",489,4) ALIAS (160,1) "DATA",160.16,13,"FIELD",490,0) 2021^15^2035^Name--Maiden "DATA",160.16,13,"FIELD",490,1) S ACDANS="" "DATA",160.16,13,"FIELD",490,2) BLANK "DATA",160.16,13,"FIELD",490,3) R,BLANK^2390 "DATA",160.16,13,"FIELD",491,0) 2036^50^2085^Name--Spouse/Parent "DATA",160.16,13,"FIELD",491,1) S ACDANS="" "DATA",160.16,13,"FIELD",491,2) BLANK "DATA",160.16,13,"FIELD",491,3) R,BLANK^2290 "DATA",160.16,13,"FIELD",492,0) 2086^11^2096^Medical Record Number "DATA",160.16,13,"FIELD",492,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5,6)_$E(ACDANS,8,11) "DATA",160.16,13,"FIELD",492,2) BLANK "DATA",160.16,13,"FIELD",492,3) L,ZERO^2300 "DATA",160.16,13,"FIELD",492,4) SSN (160,2) "DATA",160.16,13,"FIELD",493,0) 2097^2^2098^Military Record No Suffix "DATA",160.16,13,"FIELD",493,1) S ACDANS="" "DATA",160.16,13,"FIELD",493,2) BLANK "DATA",160.16,13,"FIELD",493,3) L,ZERO^2310 "DATA",160.16,13,"FIELD",494,0) 2099^9^2107^Social Security Number "DATA",160.16,13,"FIELD",494,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,13,"FIELD",494,2) NINE "DATA",160.16,13,"FIELD",494,3) L,BLANK^2320 "DATA",160.16,13,"FIELD",494,4) SSN (160,2) "DATA",160.16,13,"FIELD",495,0) 2108^40^2147^Addr at DX--No & Street "DATA",160.16,13,"FIELD",495,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",495,2) BLANK "DATA",160.16,13,"FIELD",495,3) R,BLANK^2330 "DATA",160.16,13,"FIELD",495,4) PATIENT ADDRESS AT DX (165.5,8) "DATA",160.16,13,"FIELD",496,0) 2148^40^2187^Addr at DX--Supplementl "DATA",160.16,13,"FIELD",496,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8.2,"E") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",496,2) BLANK "DATA",160.16,13,"FIELD",496,3) R,BLANK^2335 "DATA",160.16,13,"FIELD",496,4) PATIENT ADDRESS AT DX - SUPP (165.5,8.2) "DATA",160.16,13,"FIELD",497,0) 2188^40^2227^Addr Current--No & Street "DATA",160.16,13,"FIELD",497,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",497,2) BLANK "DATA",160.16,13,"FIELD",497,3) R,BLANK^2350 "DATA",160.16,13,"FIELD",497,4) PATIENT ADDRESS - CURRENT (160,.119) "DATA",160.16,13,"FIELD",498,0) 2228^40^2267^Addr Current--Supplementl "DATA",160.16,13,"FIELD",498,1) S ACDANS=$$GET1~DIQ(160,ACD160,.1191,"E") D STRIP~ONCACDU2 "DATA",160.16,13,"FIELD",498,2) BLANK "DATA",160.16,13,"FIELD",498,3) R,BLANK^2355 "DATA",160.16,13,"FIELD",498,4) PATIENT ADDRESS - CURRENT SUPP (160,.1191) "DATA",160.16,13,"FIELD",499,0) 2268^10^2277^Telephone "DATA",160.16,13,"FIELD",499,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") I ACDANS'="" S ACDANS=$TR(ACDANS,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`~!@#$%&*()-_=+[{]}\|;:',<.>/? ","") I ACDANS'?10N S ACDANS="" "DATA",160.16,13,"FIELD",499,2) NINE "DATA",160.16,13,"FIELD",499,3) R,BLANK^2360 "DATA",160.16,13,"FIELD",499,4) TELEPHONE (160,.131) "DATA",160.16,13,"FIELD",500,0) 2278^6^2283^DC State File Number "DATA",160.16,13,"FIELD",500,1) S ACDANS="" "DATA",160.16,13,"FIELD",500,2) BLANK "DATA",160.16,13,"FIELD",500,3) L,BLANK^2380 "DATA",160.16,13,"FIELD",501,0) 2284^30^2313^Follow-Up Contact--Name "DATA",160.16,13,"FIELD",501,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.01,"E"),ACDANS=$P(ACDANS,",",2)_" "_$P(ACDANS,",",1),ACDANS=$$TRIM~XLFSTR(ACDANS) "DATA",160.16,13,"FIELD",501,2) BLANK "DATA",160.16,13,"FIELD",501,3) R,BLANK^2394 "DATA",160.16,13,"FIELD",501,4) CONTACT (165,.01) "DATA",160.16,13,"FIELD",502,0) 2314^40^2353^Follow-Up Contact--No&St "DATA",160.16,13,"FIELD",502,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.111,"E") "DATA",160.16,13,"FIELD",502,2) BLANK "DATA",160.16,13,"FIELD",502,3) R,BLANK^2392 "DATA",160.16,13,"FIELD",502,4) STREET ADDRESS 1 (165,.111) "DATA",160.16,13,"FIELD",503,0) 2354^40^2393^Follow-Up Contact--Suppl "DATA",160.16,13,"FIELD",503,1) S ACDANS="" "DATA",160.16,13,"FIELD",503,2) BLANK "DATA",160.16,13,"FIELD",503,3) L,BLANK^2393 "DATA",160.16,13,"FIELD",504,0) 2394^10^2403^Latitude "DATA",160.16,13,"FIELD",504,1) S ACDANS="" "DATA",160.16,13,"FIELD",504,2) BLANK "DATA",160.16,13,"FIELD",504,3) L,BLANK^2352 "DATA",160.16,13,"FIELD",505,0) 2404^11^2414^Longitude "DATA",160.16,13,"FIELD",505,1) S ACDANS="" "DATA",160.16,13,"FIELD",505,2) BLANK "DATA",160.16,13,"FIELD",505,3) L,BLANK^2354 "DATA",160.16,13,"FIELD",506,0) 2415^50^2464^Reserved 10 "DATA",160.16,13,"FIELD",506,1) S ACDANS="" "DATA",160.16,13,"FIELD",506,2) BLANK "DATA",160.16,13,"FIELD",506,3) L,BLANK^1835 "DATA",160.16,13,"FIELD",507,0) 2465^10^2474^Reserved 40 "DATA",160.16,13,"FIELD",507,1) S ACDANS="" "DATA",160.16,13,"FIELD",507,2) BLANK "DATA",160.16,13,"FIELD",507,3) L,BLANK^2435 "DATA",160.16,13,"FIELD",507,4) "DATA",160.16,13,"FIELD",508,0) 2475^10^2484^Following Registry "DATA",160.16,13,"FIELD",508,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",508,2) ZERO "DATA",160.16,13,"FIELD",508,3) L,ZERO^2440 "DATA",160.16,13,"FIELD",508,4) FOLLOWING REGISTRY (160.04,10) "DATA",160.16,13,"FIELD",509,0) 2485^10^2494^Institution Referred From "DATA",160.16,13,"FIELD",509,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,13,"FIELD",509,2) ZERO "DATA",160.16,13,"FIELD",509,3) L,ZERO^2410 "DATA",160.16,13,"FIELD",509,4) FACILITY REFERRED FROM (165.5,6) "DATA",160.16,13,"FIELD",510,0) 2495^10^2504^Institution Referred To "DATA",160.16,13,"FIELD",510,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,13,"FIELD",510,2) ZERO "DATA",160.16,13,"FIELD",510,3) L,ZERO^2420 "DATA",160.16,13,"FIELD",510,4) FACILITY REFERRED TO (165.5,7) "DATA",160.16,13,"FIELD",511,0) 2505^10^2514^NPI--Inst Referred From "DATA",160.16,13,"FIELD",511,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,6,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,13,"FIELD",511,2) BLANK "DATA",160.16,13,"FIELD",511,3) L,BLANK^2415 "DATA",160.16,13,"FIELD",511,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",512,0) 2555^8^2562^Physician--Managing "DATA",160.16,13,"FIELD",512,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,13,"FIELD",512,2) NINE "DATA",160.16,13,"FIELD",512,3) R,BLANK^2460 "DATA",160.16,13,"FIELD",512,4) MANAGING PHYSICIAN (165.5,2.2) "DATA",160.16,13,"FIELD",513,0) 2563^8^2570^Physician--Follow-Up "DATA",160.16,13,"FIELD",513,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,13,"FIELD",513,2) NINE "DATA",160.16,13,"FIELD",513,3) R,BLANK^2470 "DATA",160.16,13,"FIELD",513,4) FOLLOWING PHYSICIAN (165.5,2.1) "DATA",160.16,13,"FIELD",514,0) 2571^8^2578^Physician--Primary Surg "DATA",160.16,13,"FIELD",514,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,13,"FIELD",514,2) ZERO "DATA",160.16,13,"FIELD",514,3) R,BLANK^2480 "DATA",160.16,13,"FIELD",514,4) PRIMARY SURGEON (165.5,2) "DATA",160.16,13,"FIELD",515,0) 2579^8^2586^Physician 3 "DATA",160.16,13,"FIELD",515,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,13,"FIELD",515,2) ZERO "DATA",160.16,13,"FIELD",515,3) R,BLANK^2490 "DATA",160.16,13,"FIELD",515,4) PHYSICIAN #3 (165.5,2.3) "DATA",160.16,13,"FIELD",516,0) 2587^8^2594^Physician 4 "DATA",160.16,13,"FIELD",516,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,13,"FIELD",516,2) ZERO "DATA",160.16,13,"FIELD",516,3) R,BLANK^2500 "DATA",160.16,13,"FIELD",516,4) PHYSICIAN #4 (165.5,2.4) "DATA",160.16,13,"FIELD",517,0) 2595^10^2604^NPI--Physician--Managing "DATA",160.16,13,"FIELD",517,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,13,"FIELD",517,2) BLANK "DATA",160.16,13,"FIELD",517,3) L,BLANK^2465 "DATA",160.16,13,"FIELD",517,4) NPI (165,101) "DATA",160.16,13,"FIELD",518,0) 2645^200^2844^Text--DX Proc--PE "DATA",160.16,13,"FIELD",518,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,13,"FIELD",518,2) BLANK "DATA",160.16,13,"FIELD",518,3) R,BLANK^2520 "DATA",160.16,13,"FIELD",518,4) TEXT-DX PROC-PE (165.5,104) "DATA",160.16,13,"FIELD",519,0) 2845^250^3094^Text--DX Proc--X-ray/Scan "DATA",160.16,13,"FIELD",519,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,13,"FIELD",519,2) BLANK "DATA",160.16,13,"FIELD",519,3) R,BLANK^2530 "DATA",160.16,13,"FIELD",519,4) TEXT-DX PROC-X-RAY/SCAN (165.5,105) "DATA",160.16,13,"FIELD",520,0) 3095^250^3344^Text--DX Proc--Scopes "DATA",160.16,13,"FIELD",520,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,13,"FIELD",520,2) BLANK "DATA",160.16,13,"FIELD",520,3) R,BLANK^2540 "DATA",160.16,13,"FIELD",520,4) TEXT-DX PROC-SCOPES (165.5,106) "DATA",160.16,13,"FIELD",521,0) 3345^250^3594^Text--DX Proc--Lab Tests "DATA",160.16,13,"FIELD",521,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,13,"FIELD",521,2) BLANK "DATA",160.16,13,"FIELD",521,3) R,BLANK^2550 "DATA",160.16,13,"FIELD",521,4) TEXT-DX PROC-LAB TESTS (165.5,116) "DATA",160.16,13,"FIELD",522,0) 3595^250^3844^Text--DX Proc--Op "DATA",160.16,13,"FIELD",522,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,13,"FIELD",522,2) BLANK "DATA",160.16,13,"FIELD",522,3) R,BLANK^2560 "DATA",160.16,13,"FIELD",522,4) TEXT-DX PROC-OP (165.5,103) "DATA",160.16,13,"FIELD",523,0) 3845^250^4094^Text--DX Proc--Path "DATA",160.16,13,"FIELD",523,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,13,"FIELD",523,2) BLANK "DATA",160.16,13,"FIELD",523,3) R,BLANK^2570 "DATA",160.16,13,"FIELD",523,4) TEXT-DX PROC-PATH (165.5,107) "DATA",160.16,13,"FIELD",524,0) 4095^40^4134^Text--Primary Site Title "DATA",160.16,13,"FIELD",524,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,13,"FIELD",524,2) BLANK "DATA",160.16,13,"FIELD",524,3) R,BLANK^2580 "DATA",160.16,13,"FIELD",524,4) TEXT-PRIMARY SITE TITLE (165.5,100) "DATA",160.16,13,"FIELD",525,0) 4135^40^4174^Text--Histology Title "DATA",160.16,13,"FIELD",525,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,13,"FIELD",525,2) BLANK "DATA",160.16,13,"FIELD",525,3) R,BLANK^2590 "DATA",160.16,13,"FIELD",525,4) TEXT-HISTOLOGY TITLE (165.5,101) "DATA",160.16,13,"FIELD",526,0) 4175^300^4474^Text--Staging "DATA",160.16,13,"FIELD",526,1) S ACDANS="" "DATA",160.16,13,"FIELD",526,2) BLANK "DATA",160.16,13,"FIELD",526,3) R,BLANK^2600 "DATA",160.16,13,"FIELD",527,0) 4475^150^4624^RX Text--Surgery "DATA",160.16,13,"FIELD",527,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,13,"FIELD",527,2) BLANK "DATA",160.16,13,"FIELD",527,3) R,BLANK^2610 "DATA",160.16,13,"FIELD",527,4) RX TEXT-SURGERY (165.5,108) "DATA",160.16,13,"FIELD",528,0) 4625^150^4774^RX Text--Radiation (Beam) "DATA",160.16,13,"FIELD",528,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,13,"FIELD",528,2) BLANK "DATA",160.16,13,"FIELD",528,3) R,BLANK^2620 "DATA",160.16,13,"FIELD",528,4) RX TEXT-RADIATION (165.5,109) "DATA",160.16,13,"FIELD",529,0) 4775^150^4924^RX Text--Radiation Other "DATA",160.16,13,"FIELD",529,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,13,"FIELD",529,2) BLANK "DATA",160.16,13,"FIELD",529,3) R,BLANK^2630 "DATA",160.16,13,"FIELD",529,4) RX TEXT-RADIATION OTHER (165.5,110) "DATA",160.16,13,"FIELD",530,0) 4925^200^5124^RX Text--Chemo "DATA",160.16,13,"FIELD",530,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,13,"FIELD",530,2) BLANK "DATA",160.16,13,"FIELD",530,3) R,BLANK^2640 "DATA",160.16,13,"FIELD",530,4) RX TEXT-CHEMO (165.5,111) "DATA",160.16,13,"FIELD",531,0) 5125^200^5324^RX Text--Hormone "DATA",160.16,13,"FIELD",531,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,13,"FIELD",531,2) BLANK "DATA",160.16,13,"FIELD",531,3) R,BLANK^2650 "DATA",160.16,13,"FIELD",531,4) RX TEXT-HORMONE (165.5,112) "DATA",160.16,13,"FIELD",532,0) 5325^100^5424^RX Text--BRM "DATA",160.16,13,"FIELD",532,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,13,"FIELD",532,2) BLANK "DATA",160.16,13,"FIELD",532,3) R,BLANK^2660 "DATA",160.16,13,"FIELD",532,4) RX TEXT-BRM (165.5,114) "DATA",160.16,13,"FIELD",533,0) 5425^100^5524^RX Text--Other "DATA",160.16,13,"FIELD",533,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,13,"FIELD",533,2) BLANK "DATA",160.16,13,"FIELD",533,3) R,BLANK^2670 "DATA",160.16,13,"FIELD",533,4) RX TEXT-OTHER (165.5,115) "DATA",160.16,13,"FIELD",534,0) 5525^350^5874^Text--Remarks "DATA",160.16,13,"FIELD",534,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,350) "DATA",160.16,13,"FIELD",534,2) BLANK "DATA",160.16,13,"FIELD",534,3) R,BLANK^2680 "DATA",160.16,13,"FIELD",534,4) TEXT-REMARKS (165.5,113) "DATA",160.16,13,"FIELD",535,0) 5875^50^5924^Place of Diagnosis "DATA",160.16,13,"FIELD",535,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,13,"FIELD",535,2) BLANK "DATA",160.16,13,"FIELD",535,3) R,BLANK^2690 "DATA",160.16,13,"FIELD",535,4) DX FACILITY (165.5,5) "DATA",160.16,13,"FIELD",536,0) 5925^385^6309^Reserved 19 (part one) "DATA",160.16,13,"FIELD",536,1) S ACDANS="" "DATA",160.16,13,"FIELD",536,2) BLANK "DATA",160.16,13,"FIELD",536,3) L,BLANK^2700 "DATA",160.16,13,"FIELD",537,0) 480^1^480^RX Hosp--Scope Reg 98-02 "DATA",160.16,13,"FIELD",537,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,13,"FIELD",537,2) BLANK "DATA",160.16,13,"FIELD",537,3) L,BLANK^747 "DATA",160.16,13,"FIELD",537,4) SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "DATA",160.16,13,"FIELD",538,0) 481^1^481^RX Hosp--Surg Oth 98-02 "DATA",160.16,13,"FIELD",538,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,13,"FIELD",538,2) BLANK "DATA",160.16,13,"FIELD",538,3) L,BLANK^748 "DATA",160.16,13,"FIELD",538,4) SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "DATA",160.16,13,"FIELD",539,0) 482^46^527^Reserved 04 "DATA",160.16,13,"FIELD",539,1) S ACDANS="" "DATA",160.16,13,"FIELD",539,2) BLANK "DATA",160.16,13,"FIELD",539,3) L,BLANK^750 "DATA",160.16,13,"FIELD",540,0) 939^2^940^RX Summ--Surg Site 98-02 "DATA",160.16,13,"FIELD",540,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,13,"FIELD",540,2) BLANK "DATA",160.16,13,"FIELD",540,3) L,ZERO^1646 "DATA",160.16,13,"FIELD",540,4) SURGERY OF PRIMARY (R) (165.5,58.2) "DATA",160.16,13,"FIELD",541,0) 941^1^941^RX Summ--Scope Reg 98-02 "DATA",160.16,13,"FIELD",541,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,13,"FIELD",541,2) BLANK "DATA",160.16,13,"FIELD",541,3) L,BLANK^1647 "DATA",160.16,13,"FIELD",541,4) SCOPE OF LN SURGERY (R) (165.5,138) "DATA",160.16,13,"FIELD",542,0) 942^1^942^RX Summ--Surg Oth 98-02 "DATA",160.16,13,"FIELD",542,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,13,"FIELD",542,2) BLANK "DATA",160.16,13,"FIELD",542,3) L,NINE^1648 "DATA",160.16,13,"FIELD",542,4) SURG PROC/OTHER SITE (R) (165.5,139) "DATA",160.16,13,"FIELD",543,0) 705^6^710^CS Version 1st "DATA",160.16,13,"FIELD",543,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169.1,"I")) K DATEDX "DATA",160.16,13,"FIELD",543,2) BLANK "DATA",160.16,13,"FIELD",543,3) L,BLANK^2935 "DATA",160.16,13,"FIELD",543,4) CS VERSION FIRST (165.5,169.1) "DATA",160.16,13,"FIELD",544,0) 711^6^716^CS Version Latest "DATA",160.16,13,"FIELD",544,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169,"I")) K DATEDX "DATA",160.16,13,"FIELD",544,2) BLANK "DATA",160.16,13,"FIELD",544,3) L,BLANK^2936 "DATA",160.16,13,"FIELD",544,4) CS VERSION LATEST (165.5,169) "DATA",160.16,13,"FIELD",545,0) 6310^385^6694^Reserved 19 (part two) "DATA",160.16,13,"FIELD",545,1) S ACDANS="" "DATA",160.16,13,"FIELD",545,2) BLANK "DATA",160.16,13,"FIELD",545,3) L,BLANK^2700 "DATA",160.16,13,"FIELD",546,0) 722^5^726^Comorbid/Complication 8 "DATA",160.16,13,"FIELD",546,1) D CC~ONCACDU1 S ACDANS=CCEX(8) "DATA",160.16,13,"FIELD",546,2) BLANK "DATA",160.16,13,"FIELD",546,3) R,ZERO^3162 "DATA",160.16,13,"FIELD",546,4) COMORBIDITY/COMPLICATION #8 (160,25.7) "DATA",160.16,13,"FIELD",547,0) 727^5^731^Comorbid/Complication 9 "DATA",160.16,13,"FIELD",547,1) D CC~ONCACDU1 S ACDANS=CCEX(9) "DATA",160.16,13,"FIELD",547,2) BLANK "DATA",160.16,13,"FIELD",547,3) R,ZERO^3163 "DATA",160.16,13,"FIELD",547,4) COMORBIDITY/COMPLICATION #9 (160,25.8) "DATA",160.16,13,"FIELD",548,0) 732^5^736^Comorbid/Complication 10 "DATA",160.16,13,"FIELD",548,1) D CC~ONCACDU1 S ACDANS=CCEX(10) "DATA",160.16,13,"FIELD",548,2) BLANK "DATA",160.16,13,"FIELD",548,3) R,ZERO^3164 "DATA",160.16,13,"FIELD",548,4) COMORBIDITY/COMPLICATION #10 (160,25.9) "DATA",160.16,13,"FIELD",549,0) 737^1^737^ICD Revision Comorbid "DATA",160.16,13,"FIELD",549,1) D CC~ONCACDU1 S CC1=CCEX(1) S ACDANS=$S(CC1="":0,1:9) "DATA",160.16,13,"FIELD",549,2) BLANK "DATA",160.16,13,"FIELD",549,3) L,BLANK^3165 "DATA",160.16,13,"FIELD",549,4) 0 = No secondary diagnosis reported. 9 = ICD-9. "DATA",160.16,13,"FIELD",550,0) 738^17^754^Reserved 05 "DATA",160.16,13,"FIELD",550,1) S ACDANS="" "DATA",160.16,13,"FIELD",550,2) BLANK "DATA",160.16,13,"FIELD",550,3) L,BLANK^1180 "DATA",160.16,13,"FIELD",551,0) 40^10^49^NPI--Registry ID "DATA",160.16,13,"FIELD",551,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,13,"FIELD",551,2) BLANK "DATA",160.16,13,"FIELD",551,3) L,BLANK^45 "DATA",160.16,13,"FIELD",551,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",552,0) 231^1^231^NHIA Derived Hisp Origin "DATA",160.16,13,"FIELD",552,1) S ACDANS="" "DATA",160.16,13,"FIELD",552,2) BLANK "DATA",160.16,13,"FIELD",552,3) L,BLANK^191 "DATA",160.16,13,"FIELD",552,4) Blank = Algorithm has not been run "DATA",160.16,13,"FIELD",553,0) 232^1^232^IHS Link "DATA",160.16,13,"FIELD",553,1) S ACDANS="" "DATA",160.16,13,"FIELD",553,2) BLANK "DATA",160.16,13,"FIELD",553,3) L,BLANK^192 "DATA",160.16,13,"FIELD",553,4) Blank = Record not sent for linkage or linkage result pending "DATA",160.16,13,"FIELD",554,0) 233^2^234^GIS Coordinate Quality "DATA",160.16,13,"FIELD",554,1) S ACDANS="" "DATA",160.16,13,"FIELD",554,2) BLANK "DATA",160.16,13,"FIELD",554,3) L,BLANK^366 "DATA",160.16,13,"FIELD",554,4) Blank = Not applicable, coordinate assignment not attempted "DATA",160.16,13,"FIELD",555,0) 322^2^323^Casefinding Source "DATA",160.16,13,"FIELD",555,1) S ACDANS=$$GET1~DIQ(165.5,IEN,21,"I") "DATA",160.16,13,"FIELD",555,2) NINE "DATA",160.16,13,"FIELD",555,3) L,BLANK^501 "DATA",160.16,13,"FIELD",555,4) CASEFINDING SOURCE (165.5,21) "DATA",160.16,13,"FIELD",556,0) 324^1^324^Ambiguous Terminology DX "DATA",160.16,13,"FIELD",556,1) S ACDANS=$$GET1~DIQ(165.5,IEN,159,"I") "DATA",160.16,13,"FIELD",556,2) BLANK "DATA",160.16,13,"FIELD",556,3) L,BLANK^442 "DATA",160.16,13,"FIELD",556,4) AMBIGUOUS TERMINOLOGY DX (165.5,159) "DATA",160.16,13,"FIELD",557,0) 325^8^332^Date of Conclusive DX "DATA",160.16,13,"FIELD",557,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,193,"I")) "DATA",160.16,13,"FIELD",557,2) BLANK "DATA",160.16,13,"FIELD",557,3) L,BLANK^443 "DATA",160.16,13,"FIELD",557,4) DATE OF CONCLUSIVE DX (165.5,193) "DATA",160.16,13,"FIELD",558,0) 333^2^334^Mult Tum Rpt as One Prim "DATA",160.16,13,"FIELD",558,1) S ACDANS=$$GET1~DIQ(165.5,IEN,194,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(169,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",558,2) BLANK "DATA",160.16,13,"FIELD",558,3) L,BLANK^444 "DATA",160.16,13,"FIELD",558,4) MULT TUM RPT AS ONE PRIM (165.5,194) "DATA",160.16,13,"FIELD",559,0) 335^8^342^Date of Multiple Tumors "DATA",160.16,13,"FIELD",559,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,195,"I")) "DATA",160.16,13,"FIELD",559,2) BLANK "DATA",160.16,13,"FIELD",559,3) L,BLANK^445 "DATA",160.16,13,"FIELD",559,4) DATE OF MULTIPLE TUMORS (165.5,195) "DATA",160.16,13,"FIELD",560,0) 343^2^344^Multiplicity Counter "DATA",160.16,13,"FIELD",560,1) S ACDANS=$$GET1~DIQ(165.5,IEN,196,"I") "DATA",160.16,13,"FIELD",560,2) BLANK "DATA",160.16,13,"FIELD",560,3) L,BLANK^446 "DATA",160.16,13,"FIELD",560,4) MULTIPLICITY COUNTER (165.5,196) "DATA",160.16,13,"FIELD",562,0) 890^4^893^Reserved 33 "DATA",160.16,13,"FIELD",562,1) S ACDANS="" "DATA",160.16,13,"FIELD",562,2) BLANK "DATA",160.16,13,"FIELD",562,3) L,BLANK^1465 "DATA",160.16,13,"FIELD",563,0) 1397^2^1398^Follow-up Source Central "DATA",160.16,13,"FIELD",563,1) S ACDANS="" "DATA",160.16,13,"FIELD",563,2) BLANK "DATA",160.16,13,"FIELD",563,3) L,BLANK^1791 "DATA",160.16,13,"FIELD",563,4) This field is created by the central registry. "DATA",160.16,13,"FIELD",564,0) 50^2^51^Reserved 01 "DATA",160.16,13,"FIELD",564,1) S ACDANS="" "DATA",160.16,13,"FIELD",564,2) BLANK "DATA",160.16,13,"FIELD",564,3) L,BLANK^370 "DATA",160.16,13,"FIELD",565,0) 2515^10^2524^NPI--Inst Referred To "DATA",160.16,13,"FIELD",565,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,7,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,13,"FIELD",565,2) BLANK "DATA",160.16,13,"FIELD",565,3) L,BLANK^2425 "DATA",160.16,13,"FIELD",565,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",566,0) 2525^10^2534^NPI--Following Registry "DATA",160.16,13,"FIELD",566,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$FNODE~ONCACDU2(ACD160,10) S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,13,"FIELD",566,2) BLANK "DATA",160.16,13,"FIELD",566,3) L,BLANK^2445 "DATA",160.16,13,"FIELD",566,4) NPI (160.19,101) "DATA",160.16,13,"FIELD",567,0) 2535^20^2554^Reserved 11 "DATA",160.16,13,"FIELD",567,1) S ACDANS="" "DATA",160.16,13,"FIELD",567,2) BLANK "DATA",160.16,13,"FIELD",567,3) L,BLANK^1900 "DATA",160.16,13,"FIELD",568,0) 2605^10^2614^NPI--Physician--Follow-Up "DATA",160.16,13,"FIELD",568,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.1,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,13,"FIELD",568,2) BLANK "DATA",160.16,13,"FIELD",568,3) L,BLANK^2475 "DATA",160.16,13,"FIELD",568,4) NPI (165,101) "DATA",160.16,13,"FIELD",569,0) 2615^10^2624^NPI--Physician--Primary Surg "DATA",160.16,13,"FIELD",569,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,13,"FIELD",569,2) BLANK "DATA",160.16,13,"FIELD",569,3) L,BLANK^2485 "DATA",160.16,13,"FIELD",569,4) NPI (165,101) "DATA",160.16,13,"FIELD",570,0) 2625^10^2634^NPI--Physician 3 "DATA",160.16,13,"FIELD",570,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.3,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,13,"FIELD",570,2) BLANK "DATA",160.16,13,"FIELD",570,3) L,BLANK^2495 "DATA",160.16,13,"FIELD",570,4) NPI (165,101) "DATA",160.16,13,"FIELD",571,0) 2635^10^2644^NPI--Physician 4 "DATA",160.16,13,"FIELD",571,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.4,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,13,"FIELD",571,2) BLANK "DATA",160.16,13,"FIELD",571,3) L,BLANK^2505 "DATA",160.16,13,"FIELD",571,4) NPI (165,101) "DATA",160.16,13,"FIELD",572,0) 235^1^235^CensusBlockGroup 70/80/90 "DATA",160.16,13,"FIELD",572,1) S ACDANS="" "DATA",160.16,13,"FIELD",572,2) BLANK "DATA",160.16,13,"FIELD",572,3) L,BLANK^368 "DATA",160.16,13,"FIELD",573,0) 238^43^280^Reserved 02 "DATA",160.16,13,"FIELD",573,1) S ACDANS="" "DATA",160.16,13,"FIELD",573,2) BLANK "DATA",160.16,13,"FIELD",573,3) L,BLANK^530 "DATA",160.16,13,"FIELD",574,0) 1407^40^1446^Reserved 09 "DATA",160.16,13,"FIELD",574,1) S ACDANS="" "DATA",160.16,13,"FIELD",574,2) BLANK "DATA",160.16,13,"FIELD",574,3) L,BLANK^1740 "DATA",160.16,13,"RULES",0) ^^13^13^3090930^ "DATA",160.16,13,"RULES",1,0) S VALID=1 "DATA",160.16,13,"RULES",2,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "DATA",160.16,13,"RULES",3,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,13,"RULES",4,0) I $G(ACO)=1,DATEDX<3000000,"^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,13,"RULES",5,0) I $G(ACO)=1,DATEDX>2991231,"^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,13,"RULES",6,0) I $$GET1^DIQ(165.5,IEN,22.3,"I")=81482 S VALID=0 "DATA",160.16,13,"RULES",7,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,13,"RULES",8,0) S STDX=$S($$GET1^DIQ(165.5,IEN,16,"I")'="":$$GET1^DIQ(160.15,$$GET1^DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,13,"RULES",9,0) I STDX'=ACDSTATE S VALID=0 "DATA",160.16,13,"RULES",10,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,13,"RULES",11,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,13,"RULES",12,0) S JUMP=0 "DATA",160.16,13,"RULES",13,0) K SCREEN "DATA",160.16,14,0) VACCR EXTRACT V11.3 "DATA",160.16,14,"FIELD",0) ^160.161I^613^442 "DATA",160.16,14,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,14,"FIELD",1,1) S ACDANS="A" "DATA",160.16,14,"FIELD",1,2) BLANK "DATA",160.16,14,"FIELD",1,3) L,BLANK^10 "DATA",160.16,14,"FIELD",1,4) "A" Full case Abstract record type (incidence and confidential data plus text summaries; used for reporting to central registries) "DATA",160.16,14,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,14,"FIELD",2,1) S ACDANS=99999999 "DATA",160.16,14,"FIELD",2,2) BLANK "DATA",160.16,14,"FIELD",2,3) L,BLANK^20 "DATA",160.16,14,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,14,"FIELD",3,1) S ACDANS=3 "DATA",160.16,14,"FIELD",3,2) BLANK "DATA",160.16,14,"FIELD",3,3) L,BLANK^30 "DATA",160.16,14,"FIELD",3,4) 3 Single hospital/freestanding center "DATA",160.16,14,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,14,"FIELD",4,1) S ACDANS=$S($L(STAT1)=7:1,$L(STAT1)=8:2,1:9) "DATA",160.16,14,"FIELD",4,2) BLANK "DATA",160.16,14,"FIELD",4,3) L,BLANK^35 "DATA",160.16,14,"FIELD",4,4) FACILITY ID # (160.1,27) "DATA",160.16,14,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,14,"FIELD",5,1) S ACDANS="B" "DATA",160.16,14,"FIELD",5,2) BLANK "DATA",160.16,14,"FIELD",5,3) L,BLANK^50 "DATA",160.16,14,"FIELD",5,4) 2006, 2007, 2008 and 2009 Version 11, 11.1, 11.2 and 11.3 "DATA",160.16,14,"FIELD",6,0) 20^10^29^Registry Id "DATA",160.16,14,"FIELD",6,1) S ACDANS=STAT1 "DATA",160.16,14,"FIELD",6,2) ZERO "DATA",160.16,14,"FIELD",6,3) L,ZERO^40 "DATA",160.16,14,"FIELD",6,4) INSTITUTION ID NUMBER (160.1,27) "DATA",160.16,14,"FIELD",18,0) 74^9^82^Addr at DX--Postal Code "DATA",160.16,14,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",18,2) BLANK "DATA",160.16,14,"FIELD",18,3) R,BLANK^100 "DATA",160.16,14,"FIELD",18,4) POSTAL CODE AT DX (165.5,9) "DATA",160.16,14,"FIELD",26,0) 93^6^98^Census Tract 2000 "DATA",160.16,14,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,14,"FIELD",26,2) BLANK "DATA",160.16,14,"FIELD",26,3) L,BLANK^130 "DATA",160.16,14,"FIELD",26,4) CENSUS TRACT (165.5,147) "DATA",160.16,14,"FIELD",29,0) 101^1^101^Census Tr Certainty 2000 "DATA",160.16,14,"FIELD",29,1) S ACDANS="" "DATA",160.16,14,"FIELD",29,2) BLANK "DATA",160.16,14,"FIELD",29,3) L,BLANK^365 "DATA",160.16,14,"FIELD",30,0) 102^1^102^Marital Status at DX "DATA",160.16,14,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,14,"FIELD",30,2) BLANK "DATA",160.16,14,"FIELD",30,3) L,BLANK^150 "DATA",160.16,14,"FIELD",30,4) MARITAL STATUS AT DX (165.5,11) "DATA",160.16,14,"FIELD",31,0) 103^2^104^Race 1 "DATA",160.16,14,"FIELD",31,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,14,"FIELD",31,2) BLANK "DATA",160.16,14,"FIELD",31,3) L,ZERO^160 "DATA",160.16,14,"FIELD",31,4) RACE 1 (160,8) "DATA",160.16,14,"FIELD",32,0) 143^40^182^Text--Usual Occupation "DATA",160.16,14,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,14,"FIELD",32,2) BLANK "DATA",160.16,14,"FIELD",32,3) R,BLANK^310 "DATA",160.16,14,"FIELD",32,4) USUAL OCCUPATION (160.042,.01) "DATA",160.16,14,"FIELD",33,0) 183^40^222^Text--Usual Industry "DATA",160.16,14,"FIELD",33,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,14,"FIELD",33,2) BLANK "DATA",160.16,14,"FIELD",33,3) R,BLANK^320 "DATA",160.16,14,"FIELD",33,4) USUAL INDUSTRY (160.042,3) "DATA",160.16,14,"FIELD",41,0) 291^4^294^Primary Site "DATA",160.16,14,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,14,"FIELD",41,2) BLANK "DATA",160.16,14,"FIELD",41,3) L,ZERO^400 "DATA",160.16,14,"FIELD",41,4) PRIMARY SITE (165.5,20) "DATA",160.16,14,"FIELD",42,0) 295^1^295^Laterality "DATA",160.16,14,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,14,"FIELD",42,2) BLANK "DATA",160.16,14,"FIELD",42,3) L,BLANK^410 "DATA",160.16,14,"FIELD",42,4) LATERALITY (165.5,28) "DATA",160.16,14,"FIELD",43,0) 296^5^300^Morph--Type&Behav ICD-O-2 "DATA",160.16,14,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,14,"FIELD",43,2) BLANK "DATA",160.16,14,"FIELD",43,3) L,ZERO^419 "DATA",160.16,14,"FIELD",43,4) HISTOLOGY (ICD-O-2) (165.5,22) "DATA",160.16,14,"FIELD",45,0) 306^1^306^Grade "DATA",160.16,14,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,14,"FIELD",45,2) BLANK "DATA",160.16,14,"FIELD",45,3) L,ZERO^440 "DATA",160.16,14,"FIELD",45,4) GRADE/DIFFERENTIATION (165.5,24) "DATA",160.16,14,"FIELD",46,0) 307^1^307^Site Coding Sys--Current "DATA",160.16,14,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,14,"FIELD",46,2) BLANK "DATA",160.16,14,"FIELD",46,3) L,ZERO^450 "DATA",160.16,14,"FIELD",46,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,14,"FIELD",47,0) 308^1^308^Site Coding Sys--Original "DATA",160.16,14,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,14,"FIELD",47,2) BLANK "DATA",160.16,14,"FIELD",47,3) L,ZERO^460 "DATA",160.16,14,"FIELD",47,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,14,"FIELD",48,0) 309^1^309^Morph Coding Sys--Current "DATA",160.16,14,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,14,"FIELD",48,2) BLANK "DATA",160.16,14,"FIELD",48,3) L,ZERO^470 "DATA",160.16,14,"FIELD",48,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,14,"FIELD",49,0) 310^1^310^Morph Coding Sys--Originl "DATA",160.16,14,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,14,"FIELD",49,2) BLANK "DATA",160.16,14,"FIELD",49,3) L,ZERO^480 "DATA",160.16,14,"FIELD",49,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,14,"FIELD",50,0) 311^1^311^Diagnostic Confirmation "DATA",160.16,14,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,14,"FIELD",50,2) BLANK "DATA",160.16,14,"FIELD",50,3) L,ZERO^490 "DATA",160.16,14,"FIELD",50,4) DIAGNOSTIC CONFIRMATION (165.5,26) "DATA",160.16,14,"FIELD",51,0) 312^1^312^Type of Reporting Source "DATA",160.16,14,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,14,"FIELD",51,2) BLANK "DATA",160.16,14,"FIELD",51,3) L,BLANK^500 "DATA",160.16,14,"FIELD",51,4) TYPE OF REPORTING SOURCE (165.5,1.2) "DATA",160.16,14,"FIELD",52,0) 313^8^320^Screening Date "DATA",160.16,14,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",52,2) BLANK "DATA",160.16,14,"FIELD",52,3) L,BLANK^510 "DATA",160.16,14,"FIELD",52,4) SCREENING DATE (165.5,79) "DATA",160.16,14,"FIELD",53,0) 321^1^321^Screening Result "DATA",160.16,14,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,14,"FIELD",53,2) BLANK "DATA",160.16,14,"FIELD",53,3) L,BLANK^520 "DATA",160.16,14,"FIELD",53,4) SCREENING RESULT (165.5,119) "DATA",160.16,14,"FIELD",54,0) 301^5^305^Morph--Type&Behav ICD-O-3 "DATA",160.16,14,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,14,"FIELD",54,2) BLANK "DATA",160.16,14,"FIELD",54,3) L,ZERO^521 "DATA",160.16,14,"FIELD",54,4) HISTOLOGY (ICD-O-3) (165.5,22.3) "DATA",160.16,14,"FIELD",57,0) 411^2^412^Sequence Number--Hospital "DATA",160.16,14,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,14,"FIELD",57,2) BLANK "DATA",160.16,14,"FIELD",57,3) L,ZERO^560 "DATA",160.16,14,"FIELD",57,4) SEQUENCE NUMBER (165.5,.06) "DATA",160.16,14,"FIELD",58,0) 413^3^415^Abstracted By "DATA",160.16,14,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,14,"FIELD",58,2) BLANK "DATA",160.16,14,"FIELD",58,3) R,BLANK^570 "DATA",160.16,14,"FIELD",58,4) ABSTRACTED BY (165.5,92) "DATA",160.16,14,"FIELD",59,0) 416^8^423^Date of 1st Contact "DATA",160.16,14,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,155,"I") S:ACDANS="" ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",59,2) BLANK "DATA",160.16,14,"FIELD",59,3) L,ZERO^580 "DATA",160.16,14,"FIELD",59,4) DATE OF FIRST CONTACT (165.5,155) or DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,14,"FIELD",60,0) 424^8^431^Date of Inpatient Adm "DATA",160.16,14,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",60,2) BLANK "DATA",160.16,14,"FIELD",60,3) L,ZERO^590 "DATA",160.16,14,"FIELD",60,4) DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,14,"FIELD",61,0) 432^8^439^Date of Inpatient Disch "DATA",160.16,14,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",61,2) BLANK "DATA",160.16,14,"FIELD",61,3) L,ZERO^600 "DATA",160.16,14,"FIELD",61,4) DATE OF INPATIENT DISCHARGE (165.5,1.1) "DATA",160.16,14,"FIELD",62,0) 440^1^440^Class of Case "DATA",160.16,14,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,14,"FIELD",62,2) BLANK "DATA",160.16,14,"FIELD",62,3) L,ZERO^610 "DATA",160.16,14,"FIELD",62,4) CLASS OF CASE (165.5,.04) "DATA",160.16,14,"FIELD",63,0) 441^4^444^Reserved 26 "DATA",160.16,14,"FIELD",63,1) S ACDANS="" "DATA",160.16,14,"FIELD",63,2) BLANK "DATA",160.16,14,"FIELD",63,3) L,BLANK^615 "DATA",160.16,14,"FIELD",63,4) "DATA",160.16,14,"FIELD",64,0) 445^2^446^Primary Payer at DX "DATA",160.16,14,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",64,2) NINE "DATA",160.16,14,"FIELD",64,3) L,BLANK^630 "DATA",160.16,14,"FIELD",64,4) PRIMARY PAYER AT DX (165.5,18) "DATA",160.16,14,"FIELD",65,0) 447^10^456^NPI--Archive FIN "DATA",160.16,14,"FIELD",65,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,14,"FIELD",65,2) BLANK "DATA",160.16,14,"FIELD",65,3) L,BLANK^3105 "DATA",160.16,14,"FIELD",65,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",68,0) 457^2^458^RX Hosp--Surg Prim Site "DATA",160.16,14,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.7,"SPS") "DATA",160.16,14,"FIELD",68,2) NINE "DATA",160.16,14,"FIELD",68,3) L,ZERO^670 "DATA",160.16,14,"FIELD",68,4) SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "DATA",160.16,14,"FIELD",69,0) 478^2^479^RX Hosp--Surg Site 98-02 "DATA",160.16,14,"FIELD",69,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,14,"FIELD",69,2) BLANK "DATA",160.16,14,"FIELD",69,3) L,ZERO^746 "DATA",160.16,14,"FIELD",69,4) SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "DATA",160.16,14,"FIELD",70,0) 463^1^463^RX Hosp--Radiation "DATA",160.16,14,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,14,"FIELD",70,2) BLANK "DATA",160.16,14,"FIELD",70,3) L,ZERO^690 "DATA",160.16,14,"FIELD",70,4) RADIATION @FACILITY (165.5,51.4) "DATA",160.16,14,"FIELD",71,0) 464^2^465^RX Hosp--Chemo "DATA",160.16,14,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,14,"FIELD",71,2) NINE "DATA",160.16,14,"FIELD",71,3) L,BLANK^700 "DATA",160.16,14,"FIELD",71,4) CHEMOTHERAPY @FAC (165.5,53.3) "DATA",160.16,14,"FIELD",72,0) 466^2^467^RX Hosp--Hormone "DATA",160.16,14,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,14,"FIELD",72,2) NINE "DATA",160.16,14,"FIELD",72,3) L,BLANK^710 "DATA",160.16,14,"FIELD",72,4) HORMONE THERAPY @FAC (165.5,54.3) "DATA",160.16,14,"FIELD",73,0) 468^2^469^RX Hosp--BRM "DATA",160.16,14,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,14,"FIELD",73,2) NINE "DATA",160.16,14,"FIELD",73,3) L,BLANK^720 "DATA",160.16,14,"FIELD",73,4) IMMUNOTHERAPY @FAC (165.5,55.3) "DATA",160.16,14,"FIELD",74,0) 470^1^470^RX Hosp--Other "DATA",160.16,14,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,14,"FIELD",74,2) BLANK "DATA",160.16,14,"FIELD",74,3) L,ZERO^730 "DATA",160.16,14,"FIELD",74,4) OTHER TREATMENT @FAC (165.5,57.3) "DATA",160.16,14,"FIELD",75,0) 471^2^472^RX Hosp--DX/Stg Proc "DATA",160.16,14,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,14,"FIELD",75,2) ZNINE "DATA",160.16,14,"FIELD",75,3) L,ZERO^740 "DATA",160.16,14,"FIELD",75,4) SURG DX/STAGING PROC @FAC (165.5,58.4) "DATA",160.16,14,"FIELD",77,0) 529^1^529^SEER Summary Stage 1977 "DATA",160.16,14,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,14,"FIELD",77,2) BLANK "DATA",160.16,14,"FIELD",77,3) L,BLANK^760 "DATA",160.16,14,"FIELD",77,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,14,"FIELD",78,0) 530^1^530^Reserved 29 "DATA",160.16,14,"FIELD",78,1) S ACDANS="" "DATA",160.16,14,"FIELD",78,2) BLANK "DATA",160.16,14,"FIELD",78,3) L,BLANK^765 "DATA",160.16,14,"FIELD",78,4) "DATA",160.16,14,"FIELD",79,0) 531^3^533^EOD--Tumor Size "DATA",160.16,14,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,14,"FIELD",79,2) BLANK "DATA",160.16,14,"FIELD",79,3) L,ZERO^780 "DATA",160.16,14,"FIELD",79,4) TUMOR SIZE (165.5,29) "DATA",160.16,14,"FIELD",80,0) 534^2^535^EOD--Extension "DATA",160.16,14,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,14,"FIELD",80,2) BLANK "DATA",160.16,14,"FIELD",80,3) L,ZERO^790 "DATA",160.16,14,"FIELD",80,4) EXTENSION (165.5,30) "DATA",160.16,14,"FIELD",81,0) 536^2^537^EOD--Extension Prost Path "DATA",160.16,14,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,14,"FIELD",81,2) BLANK "DATA",160.16,14,"FIELD",81,3) L,ZERO^800 "DATA",160.16,14,"FIELD",81,4) PATHOLOGIC EXTENSION (165.5,30.1) "DATA",160.16,14,"FIELD",82,0) 538^1^538^EOD--Lymph Node Involv "DATA",160.16,14,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,14,"FIELD",82,2) BLANK "DATA",160.16,14,"FIELD",82,3) L,BLANK^810 "DATA",160.16,14,"FIELD",82,4) LYMPH NODES (165.5,31) "DATA",160.16,14,"FIELD",83,0) 539^2^540^Regional Nodes Positive "DATA",160.16,14,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,14,"FIELD",83,2) BLANK "DATA",160.16,14,"FIELD",83,3) L,ZERO^820 "DATA",160.16,14,"FIELD",83,4) REGIONAL LYMPH NODES POSITIVE (165.5,32) "DATA",160.16,14,"FIELD",84,0) 541^2^542^Regional Nodes Examined "DATA",160.16,14,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,14,"FIELD",84,2) BLANK "DATA",160.16,14,"FIELD",84,3) L,ZERO^830 "DATA",160.16,14,"FIELD",84,4) REGIONAL LYMPH NODES EXAMINED (165.5,33) "DATA",160.16,14,"FIELD",85,0) 543^13^555^EOD--Old 13 Digit "DATA",160.16,14,"FIELD",85,1) S ACDANS="" "DATA",160.16,14,"FIELD",85,2) BLANK "DATA",160.16,14,"FIELD",85,3) L,BLANK^840 "DATA",160.16,14,"FIELD",86,0) 556^2^557^EOD--Old 2 Digit "DATA",160.16,14,"FIELD",86,1) S ACDANS="" "DATA",160.16,14,"FIELD",86,2) BLANK "DATA",160.16,14,"FIELD",86,3) L,BLANK^850 "DATA",160.16,14,"FIELD",87,0) 558^4^561^EOD--Old 4 Digit "DATA",160.16,14,"FIELD",87,1) S ACDANS="" "DATA",160.16,14,"FIELD",87,2) BLANK "DATA",160.16,14,"FIELD",87,3) L,BLANK^860 "DATA",160.16,14,"FIELD",88,0) 562^1^562^Coding System for EOD "DATA",160.16,14,"FIELD",88,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3031231:"",1:4) K DATEDX "DATA",160.16,14,"FIELD",88,2) BLANK "DATA",160.16,14,"FIELD",88,3) L,BLANK^870 "DATA",160.16,14,"FIELD",88,4) Blank = DATE DX 2004+; 4 = 10-Digit Extent of Disease, 1988 (1988+) "DATA",160.16,14,"FIELD",89,0) 563^2^564^TNM Path T "DATA",160.16,14,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,14,"FIELD",89,2) BLANK "DATA",160.16,14,"FIELD",89,3) R,BLANK^880 "DATA",160.16,14,"FIELD",89,4) PATHOLOGIC T (165.5,85) "DATA",160.16,14,"FIELD",90,0) 565^2^566^TNM Path N "DATA",160.16,14,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") S:ACDANS'="" ACDANS=$S(ACDANS="O(I+)":0,ACDANS="O(I-)":0,ACDANS="0(MOL+)":0,ACDANS="0(MOL-)":0,1:ACDANS) "DATA",160.16,14,"FIELD",90,2) BLANK "DATA",160.16,14,"FIELD",90,3) R,BLANK^890 "DATA",160.16,14,"FIELD",90,4) PATHOLOGIC N (165.5,86) "DATA",160.16,14,"FIELD",91,0) 567^2^568^TNM Path M "DATA",160.16,14,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,14,"FIELD",91,2) BLANK "DATA",160.16,14,"FIELD",91,3) R,BLANK^900 "DATA",160.16,14,"FIELD",91,4) PATHOLOGIC M (165.5,87) "DATA",160.16,14,"FIELD",92,0) 569^2^570^TNM Path Stage Group "DATA",160.16,14,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,14,"FIELD",92,2) BLANK "DATA",160.16,14,"FIELD",92,3) R,BLANK^910 "DATA",160.16,14,"FIELD",92,4) PATHOLOGIC STAGE GROUP (165.5,88) "DATA",160.16,14,"FIELD",93,0) 571^1^571^TNM Path Descriptor "DATA",160.16,14,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,14,"FIELD",93,2) ZERO "DATA",160.16,14,"FIELD",93,3) L,ZERO^920 "DATA",160.16,14,"FIELD",93,4) PATHOLOGIC TNM (165.5,89.1) "DATA",160.16,14,"FIELD",94,0) 572^1^572^TNM Path Staged By "DATA",160.16,14,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,14,"FIELD",94,2) NINE "DATA",160.16,14,"FIELD",94,3) L,BLANK^930 "DATA",160.16,14,"FIELD",94,4) STAGED BY (PATHOLOGIC STAGE) (165.5,89) "DATA",160.16,14,"FIELD",95,0) 573^2^574^TNM Clin T "DATA",160.16,14,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,14,"FIELD",95,2) BLANK "DATA",160.16,14,"FIELD",95,3) R,BLANK^940 "DATA",160.16,14,"FIELD",95,4) CLINICAL T (165.5,37.1) "DATA",160.16,14,"FIELD",96,0) 575^2^576^TNM Clin N "DATA",160.16,14,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,14,"FIELD",96,2) BLANK "DATA",160.16,14,"FIELD",96,3) R,BLANK^950 "DATA",160.16,14,"FIELD",96,4) CLINCIAL N (165.5,37.2) "DATA",160.16,14,"FIELD",97,0) 577^2^578^TNM Clin M "DATA",160.16,14,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,14,"FIELD",97,2) BLANK "DATA",160.16,14,"FIELD",97,3) R,BLANK^960 "DATA",160.16,14,"FIELD",97,4) CLINCIAL M (165.5,37.3) "DATA",160.16,14,"FIELD",98,0) 579^2^580^TNM Clin Stage Group "DATA",160.16,14,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,14,"FIELD",98,2) BLANK "DATA",160.16,14,"FIELD",98,3) R,BLANK^970 "DATA",160.16,14,"FIELD",98,4) CLINICAL STAGE GROUP (165.5,38) "DATA",160.16,14,"FIELD",99,0) 581^1^581^TNM Clin Descriptor "DATA",160.16,14,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,14,"FIELD",99,2) ZERO "DATA",160.16,14,"FIELD",99,3) L,ZERO^980 "DATA",160.16,14,"FIELD",99,4) CLINICAL TNM (165.5,37) "DATA",160.16,14,"FIELD",100,0) 582^1^582^TNM Clin Staged By "DATA",160.16,14,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,14,"FIELD",100,2) NINE "DATA",160.16,14,"FIELD",100,3) L,BLANK^990 "DATA",160.16,14,"FIELD",100,4) STAGED BY (CLINICAL STAGE) (165.5,19) "DATA",160.16,14,"FIELD",101,0) 583^10^592^Reserved 30 "DATA",160.16,14,"FIELD",101,1) S ACDANS="" "DATA",160.16,14,"FIELD",101,2) BLANK "DATA",160.16,14,"FIELD",101,3) L,BLANK^995 "DATA",160.16,14,"FIELD",101,4) "DATA",160.16,14,"FIELD",107,0) 593^2^594^TNM Edition Number "DATA",160.16,14,"FIELD",107,1) S ACDANS=$$TNMED~ONCOU55(IEN) "DATA",160.16,14,"FIELD",107,2) BLANK "DATA",160.16,14,"FIELD",107,3) L,ZERO^1060 "DATA",160.16,14,"FIELD",107,4) DATE DX (165.5,3) "DATA",160.16,14,"FIELD",108,0) 595^15^609^Reserved 31 "DATA",160.16,14,"FIELD",108,1) S ACDANS="" "DATA",160.16,14,"FIELD",108,2) BLANK "DATA",160.16,14,"FIELD",108,3) L,BLANK^1065 "DATA",160.16,14,"FIELD",108,4) "DATA",160.16,14,"FIELD",109,0) 610^8^617^Date of 1st Positive BX "DATA",160.16,14,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",109,2) BLANK "DATA",160.16,14,"FIELD",109,3) L,BLANK^1080 "DATA",160.16,14,"FIELD",109,4) DATE OF 1ST POSITIVE BIOPSY (165.5,137) "DATA",160.16,14,"FIELD",110,0) 618^1^618^Site of Distant Met 1 "DATA",160.16,14,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,14,"FIELD",110,2) BLANK "DATA",160.16,14,"FIELD",110,3) L,BLANK^1090 "DATA",160.16,14,"FIELD",110,4) SITE OF DISTANT METASTASIS #1 (165.5,34) "DATA",160.16,14,"FIELD",111,0) 619^1^619^Site of Distant Met 2 "DATA",160.16,14,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,14,"FIELD",111,2) BLANK "DATA",160.16,14,"FIELD",111,3) L,BLANK^1100 "DATA",160.16,14,"FIELD",111,4) SITE OF DISTANT METASTASIS #2 (165.5,34.1) "DATA",160.16,14,"FIELD",112,0) 620^1^620^Site of Distant Met 3 "DATA",160.16,14,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,14,"FIELD",112,2) BLANK "DATA",160.16,14,"FIELD",112,3) L,BLANK^1110 "DATA",160.16,14,"FIELD",112,4) SITE OF DISTANT METASTASIS #3 (165.5,34.2) "DATA",160.16,14,"FIELD",113,0) 621^2^622^Pediatric Stage "DATA",160.16,14,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,14,"FIELD",113,2) BLANK "DATA",160.16,14,"FIELD",113,3) L,BLANK^1120 "DATA",160.16,14,"FIELD",113,4) PEDIATRIC STAGE (165.5,850) "DATA",160.16,14,"FIELD",114,0) 623^2^624^Pediatric Staging System "DATA",160.16,14,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",114,2) BLANK "DATA",160.16,14,"FIELD",114,3) L,BLANK^1130 "DATA",160.16,14,"FIELD",114,4) TYPE OF STAGING SYSTEM (PED) (165.5,849) "DATA",160.16,14,"FIELD",115,0) 625^1^625^Pediatric Staged By "DATA",160.16,14,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,14,"FIELD",115,2) BLANK "DATA",160.16,14,"FIELD",115,3) L,BLANK^1140 "DATA",160.16,14,"FIELD",115,4) STAGED BY (PEDIATRIC STAGE) (165.5,851) "DATA",160.16,14,"FIELD",116,0) 626^1^626^Tumor Marker 1 "DATA",160.16,14,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",116,2) BLANK "DATA",160.16,14,"FIELD",116,3) L,BLANK^1150 "DATA",160.16,14,"FIELD",116,4) TUMOR MARKER 1 (165.5,25.1) "DATA",160.16,14,"FIELD",117,0) 627^1^627^Tumor Marker 2 "DATA",160.16,14,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",117,2) BLANK "DATA",160.16,14,"FIELD",117,3) L,BLANK^1160 "DATA",160.16,14,"FIELD",117,4) TUMOR MARKER 2 (165.5,25.2) "DATA",160.16,14,"FIELD",118,0) 628^1^628^Tumor Marker 3 "DATA",160.16,14,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",118,2) BLANK "DATA",160.16,14,"FIELD",118,3) L,BLANK^1170 "DATA",160.16,14,"FIELD",118,4) TUMOR MARKER 3 (165.5,25.3) "DATA",160.16,14,"FIELD",119,0) 717^5^721^Comorbid/Complication 7 "DATA",160.16,14,"FIELD",119,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.6,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",119,2) BLANK "DATA",160.16,14,"FIELD",119,3) R,ZERO^3161 "DATA",160.16,14,"FIELD",119,4) COMORBIDITY/COMPLICATION #7 (160,25.6) "DATA",160.16,14,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,14,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,170,"I")) "DATA",160.16,14,"FIELD",121,2) BLANK "DATA",160.16,14,"FIELD",121,3) L,BLANK^1200 "DATA",160.16,14,"FIELD",121,4) DATE FIRST SURGICAL PROCEDURE (165.5,170) "DATA",160.16,14,"FIELD",122,0) 779^8^786^RX Date--Radiation "DATA",160.16,14,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,14,"FIELD",122,2) BLANK "DATA",160.16,14,"FIELD",122,3) L,BLANK^1210 "DATA",160.16,14,"FIELD",122,4) DATE RADIATION STARTED (165.5,51) "DATA",160.16,14,"FIELD",123,0) 803^8^810^RX Date--Chemo "DATA",160.16,14,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,14,"FIELD",123,2) BLANK "DATA",160.16,14,"FIELD",123,3) L,BLANK^1220 "DATA",160.16,14,"FIELD",123,4) CHEMOTHERAPY DATE (165.5,53) "DATA",160.16,14,"FIELD",124,0) 811^8^818^RX Date--Hormone "DATA",160.16,14,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,14,"FIELD",124,2) BLANK "DATA",160.16,14,"FIELD",124,3) L,BLANK^1230 "DATA",160.16,14,"FIELD",124,4) HORMONE THERAPY DATE (165.5,54) "DATA",160.16,14,"FIELD",125,0) 819^8^826^RX Date--BRM "DATA",160.16,14,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,14,"FIELD",125,2) BLANK "DATA",160.16,14,"FIELD",125,3) L,BLANK^1240 "DATA",160.16,14,"FIELD",125,4) IMMUNOTHERAPY DATE (165.5,55) "DATA",160.16,14,"FIELD",126,0) 827^8^834^RX Date--Other "DATA",160.16,14,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,14,"FIELD",126,2) BLANK "DATA",160.16,14,"FIELD",126,3) L,BLANK^1250 "DATA",160.16,14,"FIELD",126,4) OTHER TREATMENT START DATE (165.5,57) "DATA",160.16,14,"FIELD",127,0) 835^8^842^Date of Initial RX--SEER "DATA",160.16,14,"FIELD",127,1) S ACDANS="" "DATA",160.16,14,"FIELD",127,2) ZERO "DATA",160.16,14,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,14,"FIELD",127,4) "DATA",160.16,14,"FIELD",128,0) 843^8^850^Date of 1st Crs RX--COC "DATA",160.16,14,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,14,"FIELD",128,2) BLANK "DATA",160.16,14,"FIELD",128,3) L,ZERO^1270 "DATA",160.16,14,"FIELD",128,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "DATA",160.16,14,"FIELD",129,0) 851^8^858^RX Date--DX/Stg Proc "DATA",160.16,14,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",129,2) BLANK "DATA",160.16,14,"FIELD",129,3) L,ZERO^1280 "DATA",160.16,14,"FIELD",129,4) SURGICAL DX/STAGING PROC DATE (165.5,58.3) "DATA",160.16,14,"FIELD",130,0) 859^2^860^RX Summ--Surg Prim Site "DATA",160.16,14,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.6,"SPS") "DATA",160.16,14,"FIELD",130,2) NINE "DATA",160.16,14,"FIELD",130,3) L,ZERO^1290 "DATA",160.16,14,"FIELD",130,4) SURGERY OF PRIMARY (F) (165.5,58.6) "DATA",160.16,14,"FIELD",132,0) 865^1^865^RX Summ--Surgical Approch "DATA",160.16,14,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,14,"FIELD",132,2) NINE "DATA",160.16,14,"FIELD",132,3) L,BLANK^1310 "DATA",160.16,14,"FIELD",132,4) SURGICAL APPROACH (R) (165.5,74) "DATA",160.16,14,"FIELD",133,0) 866^1^866^RX Summ--Surgical Margins "DATA",160.16,14,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,14,"FIELD",133,2) BLANK "DATA",160.16,14,"FIELD",133,3) L,BLANK^1320 "DATA",160.16,14,"FIELD",133,4) SURGICAL MARGINS (165.5,59) "DATA",160.16,14,"FIELD",134,0) 867^1^867^RX Summ--Reconstruct 1st "DATA",160.16,14,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,14,"FIELD",134,2) NINE "DATA",160.16,14,"FIELD",134,3) L,BLANK^1330 "DATA",160.16,14,"FIELD",134,4) RECONSTRUCTION/RESTORATION (165.5,23) "DATA",160.16,14,"FIELD",135,0) 868^1^868^Reason for No Surgery "DATA",160.16,14,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,14,"FIELD",135,2) BLANK "DATA",160.16,14,"FIELD",135,3) L,BLANK^1340 "DATA",160.16,14,"FIELD",135,4) REASON FOR NO SURGERY (165.5,58) "DATA",160.16,14,"FIELD",136,0) 869^2^870^RX Summ-DX/Stg Proc "DATA",160.16,14,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,14,"FIELD",136,2) ZNINE "DATA",160.16,14,"FIELD",136,3) L,ZERO^1350 "DATA",160.16,14,"FIELD",136,4) SURGICAL DX/STAGING PROC (165.5,58.1) "DATA",160.16,14,"FIELD",137,0) 873^1^873^RX Summ--Radiation "DATA",160.16,14,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,14,"FIELD",137,2) BLANK "DATA",160.16,14,"FIELD",137,3) L,ZERO^1360 "DATA",160.16,14,"FIELD",137,4) RADIATION (165.5,51.2) "DATA",160.16,14,"FIELD",138,0) 874^1^874^RX Summ--Rad to CNS "DATA",160.16,14,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,14,"FIELD",138,2) BLANK "DATA",160.16,14,"FIELD",138,3) L,ZERO^1370 "DATA",160.16,14,"FIELD",138,4) RADIATION THERAPY TO CNS (165.5,52.2) "DATA",160.16,14,"FIELD",139,0) 875^1^875^RX Summ--Surg/Rad Seq "DATA",160.16,14,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,14,"FIELD",139,2) BLANK "DATA",160.16,14,"FIELD",139,3) L,ZERO^1380 "DATA",160.16,14,"FIELD",139,4) RADIATION/SURGERY SEQUENCE (165.5,51.3) "DATA",160.16,14,"FIELD",140,0) 878^2^879^RX Summ--Chemo "DATA",160.16,14,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,14,"FIELD",140,2) NINE "DATA",160.16,14,"FIELD",140,3) L,BLANK^1390 "DATA",160.16,14,"FIELD",140,4) CHEMOTHERAPY (165.5,53.2) "DATA",160.16,14,"FIELD",141,0) 880^2^881^RX Summ--Hormone "DATA",160.16,14,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,14,"FIELD",141,2) NINE "DATA",160.16,14,"FIELD",141,3) L,BLANK^1400 "DATA",160.16,14,"FIELD",141,4) HORMONE THERAPY (165.5,54.2) "DATA",160.16,14,"FIELD",142,0) 882^2^883^RX Summ--BRM "DATA",160.16,14,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,14,"FIELD",142,2) NINE "DATA",160.16,14,"FIELD",142,3) L,BLANK^1410 "DATA",160.16,14,"FIELD",142,4) IMMUNOTHERAPY (165.5,55.2) "DATA",160.16,14,"FIELD",143,0) 884^1^884^RX Summ--Other "DATA",160.16,14,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,14,"FIELD",143,2) BLANK "DATA",160.16,14,"FIELD",143,3) L,ZERO^1420 "DATA",160.16,14,"FIELD",143,4) OTHER TREATMENT (165.5,57.2) "DATA",160.16,14,"FIELD",144,0) 885^1^885^Reason for No Radiation "DATA",160.16,14,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,14,"FIELD",144,2) NINE "DATA",160.16,14,"FIELD",144,3) L,BLANK^1430 "DATA",160.16,14,"FIELD",144,4) REASON FOR NO RADIATION (165.5,75) "DATA",160.16,14,"FIELD",145,0) 886^2^887^Reserved 32 "DATA",160.16,14,"FIELD",145,1) S ACDANS="" "DATA",160.16,14,"FIELD",145,2) BLANK "DATA",160.16,14,"FIELD",145,3) L,BLANK^1435 "DATA",160.16,14,"FIELD",145,4) "DATA",160.16,14,"FIELD",147,0) 888^2^889^RX Coding System--Current "DATA",160.16,14,"FIELD",147,1) S ACDANS="06" "DATA",160.16,14,"FIELD",147,2) BLANK "DATA",160.16,14,"FIELD",147,3) L,ZERO^1460 "DATA",160.16,14,"FIELD",147,4) 06 Treatment data coded according to FORDS manual "DATA",160.16,14,"FIELD",151,0) 894^1^894^First Course Calc Method "DATA",160.16,14,"FIELD",151,1) S ACDANS=1 "DATA",160.16,14,"FIELD",151,2) BLANK "DATA",160.16,14,"FIELD",151,3) L,BLANK^1500 "DATA",160.16,14,"FIELD",151,4) 1 COC definitions "DATA",160.16,14,"FIELD",152,0) 895^5^899^Rad--Regional Dose:cGy "DATA",160.16,14,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,14,"FIELD",152,2) NINE "DATA",160.16,14,"FIELD",152,3) L,ZERO^1510 "DATA",160.16,14,"FIELD",152,4) REGIONAL DOSE: cGy (165.5,442) "DATA",160.16,14,"FIELD",153,0) 900^2^901^Rad--No of Treatment Vol "DATA",160.16,14,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,14,"FIELD",153,2) NINE "DATA",160.16,14,"FIELD",153,3) L,ZERO^1520 "DATA",160.16,14,"FIELD",153,4) NUMBER OF TXS TO THIS VOLUME (165.5,56) "DATA",160.16,14,"FIELD",154,0) 902^3^904^Reserved 34 "DATA",160.16,14,"FIELD",154,1) S ACDANS="" "DATA",160.16,14,"FIELD",154,2) BLANK "DATA",160.16,14,"FIELD",154,3) L,BLANK^1535 "DATA",160.16,14,"FIELD",155,0) 905^2^906^Rad--Treatment Volume "DATA",160.16,14,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",155,2) NINE "DATA",160.16,14,"FIELD",155,3) L,ZERO^1540 "DATA",160.16,14,"FIELD",155,4) RADIATION TREATMENT VOLUME (165.5,125) "DATA",160.16,14,"FIELD",156,0) 907^1^907^Rad--Location of RX "DATA",160.16,14,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,14,"FIELD",156,2) NINE "DATA",160.16,14,"FIELD",156,3) L,BLANK^1550 "DATA",160.16,14,"FIELD",156,4) LOCATION OF RADIATION TX (165.5,126) "DATA",160.16,14,"FIELD",157,0) 908^1^908^Reserved 35 "DATA",160.16,14,"FIELD",157,1) S ACDANS="" "DATA",160.16,14,"FIELD",157,2) BLANK "DATA",160.16,14,"FIELD",157,3) L,BLANK^1555 "DATA",160.16,14,"FIELD",157,4) "DATA",160.16,14,"FIELD",158,0) 909^2^910^Rad--Regional RX Modality "DATA",160.16,14,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",158,2) BLANK "DATA",160.16,14,"FIELD",158,3) L,ZERO^1570 "DATA",160.16,14,"FIELD",158,4) REGIONAL TREATMENT MODALITY (165.5,363) "DATA",160.16,14,"FIELD",159,0) 918^13^930^Reserved 23 "DATA",160.16,14,"FIELD",159,1) S ACDANS="" "DATA",160.16,14,"FIELD",159,2) BLANK "DATA",160.16,14,"FIELD",159,3) L,BLANK^1635 "DATA",160.16,14,"FIELD",159,4) "DATA",160.16,14,"FIELD",164,0) 931^1^931^RX Summ--Systemic Sur Seq "DATA",160.16,14,"FIELD",164,1) S ACDANS=$$GET1~DIQ(165.5,IEN,15,"I") "DATA",160.16,14,"FIELD",164,2) BLANK "DATA",160.16,14,"FIELD",164,3) L,BLANK^1639 "DATA",160.16,14,"FIELD",164,4) SYSTEMIC/SURGERY SEQUENCE (165.5,15) "DATA",160.16,14,"FIELD",165,0) 932^2^933^RX Summ--Surgery Type "DATA",160.16,14,"FIELD",165,1) S ACDANS="" "DATA",160.16,14,"FIELD",165,2) BLANK "DATA",160.16,14,"FIELD",165,3) L,BLANK^1640 "DATA",160.16,14,"FIELD",166,0) 943^45^987^Reserved 06 "DATA",160.16,14,"FIELD",166,1) S ACDANS="" "DATA",160.16,14,"FIELD",166,2) BLANK "DATA",160.16,14,"FIELD",166,3) L,BLANK^1190 "DATA",160.16,14,"FIELD",167,0) 988^8^995^Subsq RX 2nd Course Date "DATA",160.16,14,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",167,2) ZERO "DATA",160.16,14,"FIELD",167,3) L,BLANK^1660 "DATA",160.16,14,"FIELD",167,4) INITIATION DATE (165.51,.01) "DATA",160.16,14,"FIELD",168,0) 996^2^997^Subsq RX 2nd Course Surg "DATA",160.16,14,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,14,"FIELD",168,2) BLANK "DATA",160.16,14,"FIELD",168,3) L,ZERO^1671 "DATA",160.16,14,"FIELD",168,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,14,"FIELD",169,0) 998^1^998^Subsq RX 2nd Course Rad "DATA",160.16,14,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,14,"FIELD",169,2) BLANK "DATA",160.16,14,"FIELD",169,3) L,BLANK^1672 "DATA",160.16,14,"FIELD",169,4) RADIATION (165.51,.05) "DATA",160.16,14,"FIELD",170,0) 999^1^999^Subsq RX 2nd Course Chemo "DATA",160.16,14,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,14,"FIELD",170,2) BLANK "DATA",160.16,14,"FIELD",170,3) L,BLANK^1673 "DATA",160.16,14,"FIELD",170,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,14,"FIELD",171,0) 1000^1^1000^Subsq RX 2nd Course Horm "DATA",160.16,14,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,14,"FIELD",171,2) BLANK "DATA",160.16,14,"FIELD",171,3) L,BLANK^1674 "DATA",160.16,14,"FIELD",171,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,14,"FIELD",172,0) 1001^1^1001^Subsq RX 2nd Course BRM "DATA",160.16,14,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,14,"FIELD",172,2) BLANK "DATA",160.16,14,"FIELD",172,3) L,BLANK^1675 "DATA",160.16,14,"FIELD",172,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,14,"FIELD",173,0) 1002^1^1002^Subsq RX 2nd Course Oth "DATA",160.16,14,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,14,"FIELD",173,2) BLANK "DATA",160.16,14,"FIELD",173,3) L,BLANK^1676 "DATA",160.16,14,"FIELD",173,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,14,"FIELD",174,0) 1003^8^1010^Subsq RX 3rd Course Date "DATA",160.16,14,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",174,2) ZERO "DATA",160.16,14,"FIELD",174,3) L,BLANK^1680 "DATA",160.16,14,"FIELD",174,4) INITIATION DATE (165.51,.01) "DATA",160.16,14,"FIELD",175,0) 1011^2^1012^Subsq RX 3rd Course Surg "DATA",160.16,14,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,14,"FIELD",175,2) BLANK "DATA",160.16,14,"FIELD",175,3) L,ZERO^1691 "DATA",160.16,14,"FIELD",175,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,14,"FIELD",176,0) 1013^1^1013^Subsq RX 3rd Course Rad "DATA",160.16,14,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,14,"FIELD",176,2) BLANK "DATA",160.16,14,"FIELD",176,3) L,BLANK^1692 "DATA",160.16,14,"FIELD",176,4) RADIATION (165.51,.05) "DATA",160.16,14,"FIELD",177,0) 1014^1^1014^Subsq RX 3rd Course Chemo "DATA",160.16,14,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,14,"FIELD",177,2) BLANK "DATA",160.16,14,"FIELD",177,3) L,BLANK^1693 "DATA",160.16,14,"FIELD",177,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,14,"FIELD",178,0) 1015^1^1015^Subsq RX 3rd Course Horm "DATA",160.16,14,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,14,"FIELD",178,2) BLANK "DATA",160.16,14,"FIELD",178,3) L,BLANK^1694 "DATA",160.16,14,"FIELD",178,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,14,"FIELD",179,0) 1016^1^1016^Subsq RX 3rd Course BRM "DATA",160.16,14,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,14,"FIELD",179,2) BLANK "DATA",160.16,14,"FIELD",179,3) L,BLANK^1695 "DATA",160.16,14,"FIELD",179,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,14,"FIELD",180,0) 1017^1^1017^Subsq RX 3rd Course Oth "DATA",160.16,14,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,14,"FIELD",180,2) BLANK "DATA",160.16,14,"FIELD",180,3) L,BLANK^1696 "DATA",160.16,14,"FIELD",180,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,14,"FIELD",181,0) 1018^8^1025^Subsq RX 4th Course Date "DATA",160.16,14,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",181,2) ZERO "DATA",160.16,14,"FIELD",181,3) L,BLANK^1700 "DATA",160.16,14,"FIELD",181,4) INITIATION DATE (165.51,.01) "DATA",160.16,14,"FIELD",182,0) 1026^2^1027^Subsq RX 4th Course Surg "DATA",160.16,14,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,14,"FIELD",182,2) BLANK "DATA",160.16,14,"FIELD",182,3) L,ZERO^1711 "DATA",160.16,14,"FIELD",182,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,14,"FIELD",183,0) 1028^1^1028^Subsq RX 4th Course Rad "DATA",160.16,14,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,14,"FIELD",183,2) BLANK "DATA",160.16,14,"FIELD",183,3) L,BLANK^1712 "DATA",160.16,14,"FIELD",183,4) RADIATION (165.51,.05) "DATA",160.16,14,"FIELD",184,0) 1029^1^1029^Subsq RX 4th Course Chemo "DATA",160.16,14,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,14,"FIELD",184,2) BLANK "DATA",160.16,14,"FIELD",184,3) L,BLANK^1713 "DATA",160.16,14,"FIELD",184,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,14,"FIELD",185,0) 1030^1^1030^Subsq RX 4th Course Horm "DATA",160.16,14,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,14,"FIELD",185,2) BLANK "DATA",160.16,14,"FIELD",185,3) L,BLANK^1714 "DATA",160.16,14,"FIELD",185,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,14,"FIELD",186,0) 1031^1^1031^Subsq RX 4th Course BRM "DATA",160.16,14,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,14,"FIELD",186,2) BLANK "DATA",160.16,14,"FIELD",186,3) L,BLANK^1715 "DATA",160.16,14,"FIELD",186,4) IMMUNOTHERAPY (165.5,.08) "DATA",160.16,14,"FIELD",187,0) 1032^1^1032^Subsq RX 4th Course Oth "DATA",160.16,14,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,14,"FIELD",187,2) BLANK "DATA",160.16,14,"FIELD",187,3) L,BLANK^1716 "DATA",160.16,14,"FIELD",187,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,14,"FIELD",188,0) 1033^15^1047^Reserved 37 "DATA",160.16,14,"FIELD",188,1) S ACDANS="" "DATA",160.16,14,"FIELD",188,2) BLANK "DATA",160.16,14,"FIELD",188,3) L,BLANK^1725 "DATA",160.16,14,"FIELD",188,4) "DATA",160.16,14,"FIELD",195,0) 1065^50^1114^Reserved 07 "DATA",160.16,14,"FIELD",195,1) S ACDANS="" "DATA",160.16,14,"FIELD",195,2) BLANK "DATA",160.16,14,"FIELD",195,3) L,BLANK^1300 "DATA",160.16,14,"FIELD",196,0) 1294^8^1301^Date of Last Contact "DATA",160.16,14,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",196,2) BLANK "DATA",160.16,14,"FIELD",196,3) L,ZERO^1750 "DATA",160.16,14,"FIELD",196,4) DATE OF LAST CONTACT OR DEATH (160.04,.01) "DATA",160.16,14,"FIELD",197,0) 1302^1^1302^Vital Status "DATA",160.16,14,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,14,"FIELD",197,2) BLANK "DATA",160.16,14,"FIELD",197,3) L,BLANK^1760 "DATA",160.16,14,"FIELD",197,4) VITAL STATUS (160.04,1) "DATA",160.16,14,"FIELD",198,0) 1303^1^1303^Cancer Status "DATA",160.16,14,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,14,"FIELD",198,2) BLANK "DATA",160.16,14,"FIELD",198,3) L,BLANK^1770 "DATA",160.16,14,"FIELD",198,4) CANCER STATUS (165.573,.02) "DATA",160.16,14,"FIELD",199,0) 1304^1^1304^Quality of Survival "DATA",160.16,14,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,14,"FIELD",199,2) BLANK "DATA",160.16,14,"FIELD",199,3) L,BLANK^1780 "DATA",160.16,14,"FIELD",199,4) QUALITY OF SURVIVAL (160.04,4) "DATA",160.16,14,"FIELD",200,0) 1305^1^1305^Follow-Up Source "DATA",160.16,14,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,14,"FIELD",200,2) BLANK "DATA",160.16,14,"FIELD",200,3) L,BLANK^1790 "DATA",160.16,14,"FIELD",200,4) FOLLOW-UP SOURCE (160.04,3) "DATA",160.16,14,"FIELD",201,0) 1306^1^1306^Next Follow-up Source "DATA",160.16,14,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,14,"FIELD",201,2) BLANK "DATA",160.16,14,"FIELD",201,3) L,BLANK^1800 "DATA",160.16,14,"FIELD",201,4) NEXT FOLLOW-UP SOURCE (160.04,6) "DATA",160.16,14,"FIELD",202,0) 1307^20^1326^Addr Current--City "DATA",160.16,14,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,14,"FIELD",202,2) BLANK "DATA",160.16,14,"FIELD",202,3) R,BLANK^1810 "DATA",160.16,14,"FIELD",202,4) CITY (2,.114) "DATA",160.16,14,"FIELD",203,0) 1327^2^1328^Addr Current--State "DATA",160.16,14,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) S:ACDANS="" ACDANS="ZZ" "DATA",160.16,14,"FIELD",203,2) BLANK "DATA",160.16,14,"FIELD",203,3) R,BLANK^1820 "DATA",160.16,14,"FIELD",203,4) STATE (2,.115) "DATA",160.16,14,"FIELD",204,0) 1329^9^1337^Addr Current--Postal Code "DATA",160.16,14,"FIELD",204,1) S ACDANS=$$GET1~DIQ(160,ACD160,.116,"E") S:ACDANS=75999 ACDANS=999999999 D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",204,2) NINE "DATA",160.16,14,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,14,"FIELD",204,4) ZIP CODE (160,.116) "DATA",160.16,14,"FIELD",206,0) 1341^1^1341^Unusual Follow-Up Method "DATA",160.16,14,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,14,"FIELD",206,2) BLANK "DATA",160.16,14,"FIELD",206,3) L,BLANK^1850 "DATA",160.16,14,"FIELD",206,4) UNUSUAL FOLLOW-UP METHOD (160.04,7) "DATA",160.16,14,"FIELD",207,0) 1342^8^1349^Recurrence Date--1st "DATA",160.16,14,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,14,"FIELD",207,2) NINE "DATA",160.16,14,"FIELD",207,3) L,NINE^1860 "DATA",160.16,14,"FIELD",207,4) DATE OF FIRST RECURRENCE (165.5,70) "DATA",160.16,14,"FIELD",208,0) 1350^1^1350^Recurrence Distant Site 1 "DATA",160.16,14,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I") "DATA",160.16,14,"FIELD",208,2) BLANK "DATA",160.16,14,"FIELD",208,3) L,BLANK^1871 "DATA",160.16,14,"FIELD",208,4) DISTANT SITE 1 (165.5,71.1) "DATA",160.16,14,"FIELD",209,0) 1353^2^1354^Recurrence Type--1st "DATA",160.16,14,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",209,2) NINE "DATA",160.16,14,"FIELD",209,3) L,ZERO^1880 "DATA",160.16,14,"FIELD",209,4) TYPE OF FIRST RECURRENCE (165.5,71) "DATA",160.16,14,"FIELD",210,0) 1355^2^1356^Reserved 39 "DATA",160.16,14,"FIELD",210,1) S ACDANS="" "DATA",160.16,14,"FIELD",210,2) BLANK "DATA",160.16,14,"FIELD",210,3) L,BLANK^1895 "DATA",160.16,14,"FIELD",210,4) "DATA",160.16,14,"FIELD",211,0) 1338^3^1340^County--Current "DATA",160.16,14,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,14,"FIELD",211,2) BLANK "DATA",160.16,14,"FIELD",211,3) L,BLANK^1840 "DATA",160.16,14,"FIELD",213,0) 1388^4^1391^Cause of Death "DATA",160.16,14,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,14,"FIELD",213,2) BLANK "DATA",160.16,14,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,14,"FIELD",213,4) STATE DEATH CERT (160,19.1) "DATA",160.16,14,"FIELD",214,0) 1392^1^1392^ICD Revision Number "DATA",160.16,14,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,14,"FIELD",214,2) BLANK "DATA",160.16,14,"FIELD",214,3) L,ZERO^1920 "DATA",160.16,14,"FIELD",214,4) CAUSE OF DEATH (160,19), ICD REVISION (160,20) "DATA",160.16,14,"FIELD",215,0) 1393^1^1393^Autopsy "DATA",160.16,14,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,14,"FIELD",215,2) BLANK "DATA",160.16,14,"FIELD",215,3) L,BLANK^1930 "DATA",160.16,14,"FIELD",215,4) AUTOPSY (160,22.9) "DATA",160.16,14,"FIELD",216,0) 1394^3^1396^Place of Death "DATA",160.16,14,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,14,"FIELD",216,2) BLANK "DATA",160.16,14,"FIELD",216,3) L,BLANK^1940 "DATA",160.16,14,"FIELD",216,4) PLACE OF DEATH (160,21) "DATA",160.16,14,"FIELD",218,0) 1137^4^1140^Site (73-91) ICD-O-1 "DATA",160.16,14,"FIELD",218,1) S ACDANS="" "DATA",160.16,14,"FIELD",218,2) BLANK "DATA",160.16,14,"FIELD",218,3) L,BLANK^1960 "DATA",160.16,14,"FIELD",219,0) 1141^6^1146^Morph (73-91) ICD-O-1 "DATA",160.16,14,"FIELD",219,1) S ACDANS="" "DATA",160.16,14,"FIELD",219,2) BLANK "DATA",160.16,14,"FIELD",219,3) L,BLANK^1970 "DATA",160.16,14,"FIELD",220,0) 1147^1^1147^ICD-O-2 Conversion Flag "DATA",160.16,14,"FIELD",220,1) S ACDANS=4 "DATA",160.16,14,"FIELD",220,2) BLANK "DATA",160.16,14,"FIELD",220,3) L,BLANK^1980 "DATA",160.16,14,"FIELD",220,4) 4 Primary site and morphology converted with review "DATA",160.16,14,"FIELD",221,0) 1124^1^1124^Over-ride Age/Site/Morph "DATA",160.16,14,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,14,"FIELD",221,2) BLANK "DATA",160.16,14,"FIELD",221,3) L,BLANK^1990 "DATA",160.16,14,"FIELD",221,4) OVERRIDE AGE/SITE/MORPH (165.5,205) "DATA",160.16,14,"FIELD",222,0) 1125^1^1125^Over-ride SeqNo/DxConf "DATA",160.16,14,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,14,"FIELD",222,2) BLANK "DATA",160.16,14,"FIELD",222,3) L,BLANK^2000 "DATA",160.16,14,"FIELD",222,4) OVERRIDE SEQNO/DXCONF (165.5,206) "DATA",160.16,14,"FIELD",223,0) 1126^1^1126^Over-ride Site/Lat/SeqNo "DATA",160.16,14,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,14,"FIELD",223,2) BLANK "DATA",160.16,14,"FIELD",223,3) L,BLANK^2010 "DATA",160.16,14,"FIELD",223,4) OVERRIDE SITE/LAT/SEQNO (165.5,207) "DATA",160.16,14,"FIELD",224,0) 1127^1^1127^Over-ride Surg/DxConf "DATA",160.16,14,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,14,"FIELD",224,2) BLANK "DATA",160.16,14,"FIELD",224,3) L,BLANK^2020 "DATA",160.16,14,"FIELD",224,4) OVERRIDE SURG/DXCONF (165.5,208) "DATA",160.16,14,"FIELD",225,0) 1128^1^1128^Over-ride Site/Type "DATA",160.16,14,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,14,"FIELD",225,2) BLANK "DATA",160.16,14,"FIELD",225,3) L,BLANK^2030 "DATA",160.16,14,"FIELD",225,4) OVERRIDE SITE/TYPE (165.5,209) "DATA",160.16,14,"FIELD",226,0) 1129^1^1129^Over-ride Histology "DATA",160.16,14,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,14,"FIELD",226,2) BLANK "DATA",160.16,14,"FIELD",226,3) L,BLANK^2040 "DATA",160.16,14,"FIELD",226,4) OVERRIDE HISTOLOGY (165.5,210) "DATA",160.16,14,"FIELD",227,0) 1130^1^1130^Over-ride Report Source "DATA",160.16,14,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,14,"FIELD",227,2) BLANK "DATA",160.16,14,"FIELD",227,3) L,BLANK^2050 "DATA",160.16,14,"FIELD",227,4) OVERRIDE REPORT SOURCE (165.5,211) "DATA",160.16,14,"FIELD",228,0) 1131^1^1131^Over-ride Ill-define Site "DATA",160.16,14,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,14,"FIELD",228,2) BLANK "DATA",160.16,14,"FIELD",228,3) L,BLANK^2060 "DATA",160.16,14,"FIELD",228,4) OVERRIDE ILL-DEFINE SITE (165.5,212) "DATA",160.16,14,"FIELD",229,0) 1132^1^1132^Over-ride Leuk, Lymphoma "DATA",160.16,14,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,14,"FIELD",229,2) BLANK "DATA",160.16,14,"FIELD",229,3) L,BLANK^2070 "DATA",160.16,14,"FIELD",229,4) OVERRIDE LEUK,LYMPHOMA (165.5,213) "DATA",160.16,14,"FIELD",231,0) 1174^8^1181^Date Case Completed "DATA",160.16,14,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",231,2) BLANK "DATA",160.16,14,"FIELD",231,3) L,BLANK^2090 "DATA",160.16,14,"FIELD",231,4) DATE CASE COMPLETED (165.5,90) "DATA",160.16,14,"FIELD",232,0) 1182^8^1189^Date Case Last Changed "DATA",160.16,14,"FIELD",232,1) S ACDANS=$$GET1~DIQ(165.5,IEN,198,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",232,2) BLANK "DATA",160.16,14,"FIELD",232,3) L,BLANK^2100 "DATA",160.16,14,"FIELD",232,4) DATE CASE LAST CHANGED (165.5,198) "DATA",160.16,14,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,14,"FIELD",233,1) S ACDANS="" Q:$G(EXPORT)'="YES" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,14,"FIELD",233,2) BLANK "DATA",160.16,14,"FIELD",233,3) L,ZERO^2110 "DATA",160.16,14,"FIELD",233,4) Current date "DATA",160.16,14,"FIELD",234,0) 1198^1^1198^SEER Coding Sys--Current "DATA",160.16,14,"FIELD",234,1) S ACDANS=6 "DATA",160.16,14,"FIELD",234,2) BLANK "DATA",160.16,14,"FIELD",234,3) L,BLANK^2120 "DATA",160.16,14,"FIELD",234,4) 2003 SEER Coding Manual "DATA",160.16,14,"FIELD",235,0) 1199^1^1199^SEER Coding Sys--Original "DATA",160.16,14,"FIELD",235,1) S ACDANS=6 "DATA",160.16,14,"FIELD",235,2) BLANK "DATA",160.16,14,"FIELD",235,3) L,BLANK^2130 "DATA",160.16,14,"FIELD",235,4) 2003 SEER Coding Manual "DATA",160.16,14,"FIELD",236,0) 1200^2^1201^COC Coding Sys--Current "DATA",160.16,14,"FIELD",236,1) S ACDANS="08" "DATA",160.16,14,"FIELD",236,2) BLANK "DATA",160.16,14,"FIELD",236,3) L,BLANK^2140 "DATA",160.16,14,"FIELD",236,4) 08 FORDS (effective with cases diagnosed 2003 are forward) "DATA",160.16,14,"FIELD",237,0) 1202^2^1203^COC Coding Sys--Original "DATA",160.16,14,"FIELD",237,1) S ACDANS=$$COCO~ONCACDU2(IEN) "DATA",160.16,14,"FIELD",237,2) BLANK "DATA",160.16,14,"FIELD",237,3) L,BLANK^2150 "DATA",160.16,14,"FIELD",237,4) 08, 07, or 05 depending on DATE DX "DATA",160.16,14,"FIELD",238,0) 1244^50^1293^Reserved 08 "DATA",160.16,14,"FIELD",238,1) S ACDANS="" "DATA",160.16,14,"FIELD",238,2) BLANK "DATA",160.16,14,"FIELD",238,3) L,BLANK^1650 "DATA",160.16,14,"FIELD",239,0) 1204^10^1213^Vendor Name "DATA",160.16,14,"FIELD",239,1) S ACDANS=$$VENDOR~ONCACDU2 "DATA",160.16,14,"FIELD",239,2) BLANK "DATA",160.16,14,"FIELD",239,3) R,BLANK^2170 "DATA",160.16,14,"FIELD",239,4) "VA"_NAACCR version_patch #_"A" e.g. VAV11P46A "DATA",160.16,14,"FIELD",240,0) 1214^1^1214^SEER Type of Follow-Up "DATA",160.16,14,"FIELD",240,1) S ACDANS="" "DATA",160.16,14,"FIELD",240,2) BLANK "DATA",160.16,14,"FIELD",240,3) L,BLANK^2180 "DATA",160.16,14,"FIELD",241,0) 1215^2^1216^SEER Record Number "DATA",160.16,14,"FIELD",241,1) S ACDANS="" "DATA",160.16,14,"FIELD",241,2) BLANK "DATA",160.16,14,"FIELD",241,3) L,BLANK^2190 "DATA",160.16,14,"FIELD",242,0) 1217^2^1218^Diagnostic Proc 73-87 "DATA",160.16,14,"FIELD",242,1) S ACDANS="" "DATA",160.16,14,"FIELD",242,2) BLANK "DATA",160.16,14,"FIELD",242,3) L,BLANK^2200 "DATA",160.16,14,"FIELD",243,0) 1243^1^1243^ICD-O-3 Conversion Flag "DATA",160.16,14,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,14,"FIELD",243,2) BLANK "DATA",160.16,14,"FIELD",243,3) L,BLANK^2116 "DATA",160.16,14,"FIELD",340,0) 459^1^459^RX Hosp--Scope Reg LN Sur "DATA",160.16,14,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.5,"I") "DATA",160.16,14,"FIELD",340,2) NINE "DATA",160.16,14,"FIELD",340,3) L,BLANK^672 "DATA",160.16,14,"FIELD",340,4) SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "DATA",160.16,14,"FIELD",341,0) 460^1^460^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,14,"FIELD",341,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.5,"I") "DATA",160.16,14,"FIELD",341,2) NINE "DATA",160.16,14,"FIELD",341,3) L,BLANK^674 "DATA",160.16,14,"FIELD",341,4) SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "DATA",160.16,14,"FIELD",342,0) 461^2^462^RX Hosp--Reg LN Removed "DATA",160.16,14,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,14,"FIELD",342,2) BLANK "DATA",160.16,14,"FIELD",342,3) L,BLANK^676 "DATA",160.16,14,"FIELD",342,4) NUMBER OF LN REMOVED @FAC (R) (165.5,140.1) "DATA",160.16,14,"FIELD",343,0) 474^4^477^Reserved 28 "DATA",160.16,14,"FIELD",343,1) S ACDANS="" "DATA",160.16,14,"FIELD",343,2) BLANK "DATA",160.16,14,"FIELD",343,3) L,BLANK^741 "DATA",160.16,14,"FIELD",343,4) "DATA",160.16,14,"FIELD",347,0) 861^1^861^RX Summ--Scope Reg LN Sur "DATA",160.16,14,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.4,"I") "DATA",160.16,14,"FIELD",347,2) NINE "DATA",160.16,14,"FIELD",347,3) L,BLANK^1292 "DATA",160.16,14,"FIELD",347,4) SCOPE OF LN SURGERY (F) (165.5,138.4) "DATA",160.16,14,"FIELD",348,0) 862^1^862^RX Summ--Surg Oth Reg/Dis "DATA",160.16,14,"FIELD",348,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.4,"I") "DATA",160.16,14,"FIELD",348,2) NINE "DATA",160.16,14,"FIELD",348,3) L,BLANK^1294 "DATA",160.16,14,"FIELD",348,4) SURG PROC/OTHER SITE (F) (165.5,139.4) "DATA",160.16,14,"FIELD",349,0) 863^2^864^RX Summ--Reg LN Examined "DATA",160.16,14,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,14,"FIELD",349,2) NINE "DATA",160.16,14,"FIELD",349,3) L,ZERO^1296 "DATA",160.16,14,"FIELD",349,4) NUMBER OF LN REMOVED (R) (165.5,140) "DATA",160.16,14,"FIELD",350,0) 934^4^937^Reserved 36 "DATA",160.16,14,"FIELD",350,1) S ACDANS="" "DATA",160.16,14,"FIELD",350,2) BLANK "DATA",160.16,14,"FIELD",350,3) L,BLANK^1641 "DATA",160.16,14,"FIELD",350,4) "DATA",160.16,14,"FIELD",354,0) 1048^1^1048^Subsq RX 2nd--Scope LN Su "DATA",160.16,14,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,14,"FIELD",354,2) BLANK "DATA",160.16,14,"FIELD",354,3) L,BLANK^1677 "DATA",160.16,14,"FIELD",354,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,14,"FIELD",355,0) 1049^1^1049^Subsq RX 2nd--Surg Oth "DATA",160.16,14,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,14,"FIELD",355,2) BLANK "DATA",160.16,14,"FIELD",355,3) L,BLANK^1678 "DATA",160.16,14,"FIELD",355,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,14,"FIELD",356,0) 1050^2^1051^Subsq RX 2nd--Reg LN Rem "DATA",160.16,14,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,14,"FIELD",356,2) BLANK "DATA",160.16,14,"FIELD",356,3) L,BLANK^1679 "DATA",160.16,14,"FIELD",356,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,14,"FIELD",357,0) 1052^1^1052^Subsq RX 3rd--Scope LN Su "DATA",160.16,14,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,14,"FIELD",357,2) BLANK "DATA",160.16,14,"FIELD",357,3) L,BLANK^1697 "DATA",160.16,14,"FIELD",357,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,14,"FIELD",358,0) 1053^1^1053^Subsq RX 3rd--Surg Oth "DATA",160.16,14,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,14,"FIELD",358,2) BLANK "DATA",160.16,14,"FIELD",358,3) L,BLANK^1698 "DATA",160.16,14,"FIELD",358,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,14,"FIELD",359,0) 1054^2^1055^Subsq RX 3rd--Reg LN Rem "DATA",160.16,14,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,14,"FIELD",359,2) BLANK "DATA",160.16,14,"FIELD",359,3) L,BLANK^1699 "DATA",160.16,14,"FIELD",359,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,14,"FIELD",360,0) 1056^1^1056^Subsq RX 4th--Scope LN Su "DATA",160.16,14,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,14,"FIELD",360,2) BLANK "DATA",160.16,14,"FIELD",360,3) L,BLANK^1717 "DATA",160.16,14,"FIELD",360,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,14,"FIELD",361,0) 1057^1^1057^Subsq RX 4th--Surg Oth "DATA",160.16,14,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,14,"FIELD",361,2) BLANK "DATA",160.16,14,"FIELD",361,3) L,BLANK^1718 "DATA",160.16,14,"FIELD",361,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,14,"FIELD",362,0) 1058^2^1059^Subsq RX 4th--Reg LN Rem "DATA",160.16,14,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,14,"FIELD",362,2) BLANK "DATA",160.16,14,"FIELD",362,3) L,BLANK^1719 "DATA",160.16,14,"FIELD",362,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,14,"FIELD",363,0) 1060^4^1063^Reserved 38 "DATA",160.16,14,"FIELD",363,1) S ACDANS="" "DATA",160.16,14,"FIELD",363,2) BLANK "DATA",160.16,14,"FIELD",363,3) L,BLANK^1726 "DATA",160.16,14,"FIELD",363,4) "DATA",160.16,14,"FIELD",366,0) 1064^1^1064^Subsq RX--Reconstruct Del "DATA",160.16,14,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,14,"FIELD",366,2) NINE "DATA",160.16,14,"FIELD",366,3) L,NINE^1741 "DATA",160.16,14,"FIELD",366,4) RECON/RESTORE - DELAYED (165.51,33) "DATA",160.16,14,"FIELD",367,0) 1357^20^1376^Follow-Up Contact--City "DATA",160.16,14,"FIELD",367,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,2) K VICPNT "DATA",160.16,14,"FIELD",367,2) BLANK "DATA",160.16,14,"FIELD",367,3) R,BLANK^1842 "DATA",160.16,14,"FIELD",367,4) ZIP CODE (165,.119) "DATA",160.16,14,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,14,"FIELD",368,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) STATE=$P(~VIC(5.11,VICPNT,0),U,4) S:$G(STATE) ACDANS=$P(~DIC(5,STATE,0),U,2) K STATE,VICPNT "DATA",160.16,14,"FIELD",368,2) BLANK "DATA",160.16,14,"FIELD",368,3) R,BLANK^1844 "DATA",160.16,14,"FIELD",368,4) ZIP CODE (165,.119) "DATA",160.16,14,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,14,"FIELD",369,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,1) K VICPNT "DATA",160.16,14,"FIELD",369,2) BLANK "DATA",160.16,14,"FIELD",369,3) R,BLANK^1846 "DATA",160.16,14,"FIELD",369,4) ZIP CODE (165,.119) "DATA",160.16,14,"FIELD",370,0) 1133^1^1133^Over-ride Site/Behavior "DATA",160.16,14,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,14,"FIELD",370,2) BLANK "DATA",160.16,14,"FIELD",370,3) L,BLANK^2071 "DATA",160.16,14,"FIELD",370,4) OVERRIDE SITE/BEHAVIOR (165.5,214) "DATA",160.16,14,"FIELD",371,0) 1134^1^1134^Over-ride Site/EOD/DX Dt "DATA",160.16,14,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,14,"FIELD",371,2) BLANK "DATA",160.16,14,"FIELD",371,3) L,BLANK^2072 "DATA",160.16,14,"FIELD",371,4) OVERRIDE SITE/EOD/DX DT (165.5,215) "DATA",160.16,14,"FIELD",372,0) 1135^1^1135^Over-ride Site/Lat/EOD "DATA",160.16,14,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,14,"FIELD",372,2) BLANK "DATA",160.16,14,"FIELD",372,3) L,BLANK^2073 "DATA",160.16,14,"FIELD",372,4) OVERRIDE SITE/LAT/EOD (165.5,216) "DATA",160.16,14,"FIELD",373,0) 1136^1^1136^Over-ride Site/Lat/Morph "DATA",160.16,14,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,14,"FIELD",373,2) BLANK "DATA",160.16,14,"FIELD",373,3) L,BLANK^2074 "DATA",160.16,14,"FIELD",373,4) OVERRIDE SITE/LAT/MORPH (165.5,217) "DATA",160.16,14,"FIELD",374,0) 1148^16^1163^Reserved 24 "DATA",160.16,14,"FIELD",374,1) S ACDANS="" "DATA",160.16,14,"FIELD",374,2) BLANK "DATA",160.16,14,"FIELD",374,3) L,BLANK "DATA",160.16,14,"FIELD",376,0) 1219^8^1226^Date Case Report Received "DATA",160.16,14,"FIELD",376,1) S ACDANS="" "DATA",160.16,14,"FIELD",376,2) BLANK "DATA",160.16,14,"FIELD",376,3) L,BLANK^2111 "DATA",160.16,14,"FIELD",377,0) 1227^8^1234^Date Case Report Loaded "DATA",160.16,14,"FIELD",377,1) S ACDANS="" "DATA",160.16,14,"FIELD",377,2) BLANK "DATA",160.16,14,"FIELD",377,3) L,BLANK^2112 "DATA",160.16,14,"FIELD",378,0) 1235^8^1242^Date Tumor Record Availbl "DATA",160.16,14,"FIELD",378,1) S ACDANS="" "DATA",160.16,14,"FIELD",378,2) BLANK "DATA",160.16,14,"FIELD",378,3) L,BLANK^2113 "DATA",160.16,14,"FIELD",379,0) 1164^10^1173^CRC CHECKSUM "DATA",160.16,14,"FIELD",379,1) S ACDANS="" "DATA",160.16,14,"FIELD",379,2) BLANK "DATA",160.16,14,"FIELD",379,3) L,BLANK^2081 "DATA",160.16,14,"FIELD",380,0) 12^7^18^Reserved 00 "DATA",160.16,14,"FIELD",380,1) S ACDANS="" "DATA",160.16,14,"FIELD",380,2) BLANK "DATA",160.16,14,"FIELD",380,3) L,BLANK^37 "DATA",160.16,14,"FIELD",382,0) 382^10^391^Reporting Facility "DATA",160.16,14,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") I (ACDANS=9999999)&($L(STAT1)=8) S ACDANS=99999999 "DATA",160.16,14,"FIELD",382,2) ZERO "DATA",160.16,14,"FIELD",382,3) L,ZERO^540 "DATA",160.16,14,"FIELD",382,4) REPORTING FACILITY (165.5,.03) "DATA",160.16,14,"FIELD",383,0) 402^9^410^Accession Number--Hosp "DATA",160.16,14,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,14,"FIELD",383,2) BLANK "DATA",160.16,14,"FIELD",383,3) L,ZERO^550 "DATA",160.16,14,"FIELD",383,4) ACCESSION NUMBER (165.5,.05) "DATA",160.16,14,"FIELD",388,0) 372^10^381^NPI--Reporting Facility "DATA",160.16,14,"FIELD",388,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,.03,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,14,"FIELD",388,2) BLANK "DATA",160.16,14,"FIELD",388,3) L,BLANK^545 "DATA",160.16,14,"FIELD",388,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",390,0) 345^27^371^Reserved 03 "DATA",160.16,14,"FIELD",390,1) S ACDANS="" "DATA",160.16,14,"FIELD",390,2) BLANK "DATA",160.16,14,"FIELD",390,3) L,BLANK^680 "DATA",160.16,14,"FIELD",391,0) 528^1^528^SEER Summary Stage 2000 "DATA",160.16,14,"FIELD",391,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,14,"FIELD",391,2) BLANK "DATA",160.16,14,"FIELD",391,3) L,BLANK^759 "DATA",160.16,14,"FIELD",391,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,14,"FIELD",392,0) 1115^1^1115^Over-ride SS/NodesPos "DATA",160.16,14,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,14,"FIELD",392,2) BLANK "DATA",160.16,14,"FIELD",392,3) L,BLANK^1981 "DATA",160.16,14,"FIELD",392,4) OVERRIDE SS/NODESPOS (165.5,218) "DATA",160.16,14,"FIELD",393,0) 1116^1^1116^Over-ride SS/TNM-N "DATA",160.16,14,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,14,"FIELD",393,2) BLANK "DATA",160.16,14,"FIELD",393,3) L,BLANK^1982 "DATA",160.16,14,"FIELD",393,4) OVERRIDE SS/TNM-N (165.5,219) "DATA",160.16,14,"FIELD",394,0) 1117^1^1117^Over-ride SS/TNM-M "DATA",160.16,14,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,14,"FIELD",394,2) BLANK "DATA",160.16,14,"FIELD",394,3) L,BLANK^1983 "DATA",160.16,14,"FIELD",394,4) OVERRIDE SS/TNM-M (165.5,220) "DATA",160.16,14,"FIELD",395,0) 1118^1^1118^Over-ride SS/DisMet1 "DATA",160.16,14,"FIELD",395,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,14,"FIELD",395,2) BLANK "DATA",160.16,14,"FIELD",395,3) L,BLANK^1984 "DATA",160.16,14,"FIELD",395,4) OVERRIDE SS/DISMET1 (165.5,221) "DATA",160.16,14,"FIELD",396,0) 1119^1^1119^Over-ride Acsn/Class/Seq "DATA",160.16,14,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,14,"FIELD",396,2) BLANK "DATA",160.16,14,"FIELD",396,3) L,BLANK^1985 "DATA",160.16,14,"FIELD",396,4) OVERRIDE ACSN/CLASS/SEQ (165.5,222) "DATA",160.16,14,"FIELD",397,0) 1120^1^1120^Over-ride HospSeq/DxConf "DATA",160.16,14,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,14,"FIELD",397,2) BLANK "DATA",160.16,14,"FIELD",397,3) L,BLANK^1986 "DATA",160.16,14,"FIELD",397,4) OVERRIDE HOSPSEQ/DXCONF (165.5,223) "DATA",160.16,14,"FIELD",398,0) 1121^1^1121^Over-ride COC-Site/Type "DATA",160.16,14,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,14,"FIELD",398,2) BLANK "DATA",160.16,14,"FIELD",398,3) L,BLANK^1987 "DATA",160.16,14,"FIELD",398,4) OVERRIDE COC-SITE/TYPE (165.5,224) "DATA",160.16,14,"FIELD",399,0) 1122^1^1122^Over-ride HospSeq/Site "DATA",160.16,14,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,14,"FIELD",399,2) BLANK "DATA",160.16,14,"FIELD",399,3) L,BLANK^1988 "DATA",160.16,14,"FIELD",399,4) OVERRIDE HOSPSEQ/SITE (165.5,225) "DATA",160.16,14,"FIELD",400,0) 1123^1^1123^Over-ride Site/TNM-StgGrp "DATA",160.16,14,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,14,"FIELD",400,2) BLANK "DATA",160.16,14,"FIELD",400,3) L,BLANK^1989 "DATA",160.16,14,"FIELD",400,4) OVERRIDE SITE/TNM-STAGE GROUP (165.5,226) "DATA",160.16,14,"FIELD",401,0) 1399^8^1406^Date of Death--Canada "DATA",160.16,14,"FIELD",401,1) S ACDANS="" "DATA",160.16,14,"FIELD",401,2) BLANK "DATA",160.16,14,"FIELD",401,3) L,BLANK^1755 "DATA",160.16,14,"FIELD",402,0) 30^2^31^Tumor Record Number "DATA",160.16,14,"FIELD",402,1) S ACDANS="" "DATA",160.16,14,"FIELD",402,2) BLANK "DATA",160.16,14,"FIELD",402,3) L,BLANK^60 "DATA",160.16,14,"FIELD",402,4) "DATA",160.16,14,"FIELD",403,0) 40^10^49^NPI--Registry ID "DATA",160.16,14,"FIELD",403,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,14,"FIELD",403,2) BLANK "DATA",160.16,14,"FIELD",403,3) L,BLANK^45 "DATA",160.16,14,"FIELD",403,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",404,0) 52^20^71^Addr at DX--City "DATA",160.16,14,"FIELD",404,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"UNKNOWN") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",404,2) BLANK "DATA",160.16,14,"FIELD",404,3) R,BLANK^70 "DATA",160.16,14,"FIELD",404,4) CITY/TOWN AT DX (165.5,8.1) "DATA",160.16,14,"FIELD",405,0) 72^2^73^Addr at DX--State "DATA",160.16,14,"FIELD",405,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,14,"FIELD",405,2) BLANK "DATA",160.16,14,"FIELD",405,3) L,BLANK^80 "DATA",160.16,14,"FIELD",405,4) STATE AT DX (165.5,16) "DATA",160.16,14,"FIELD",406,0) 114^1^114^Race Coding Sys--Original "DATA",160.16,14,"FIELD",406,1) S ACDANS=6 "DATA",160.16,14,"FIELD",406,2) BLANK "DATA",160.16,14,"FIELD",406,3) L,BLANK^180 "DATA",160.16,14,"FIELD",406,4) 6 2000+ SEER & COC "DATA",160.16,14,"FIELD",407,0) 83^3^85^County at DX "DATA",160.16,14,"FIELD",407,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,14,"FIELD",407,2) BLANK "DATA",160.16,14,"FIELD",407,3) L,ZERO^90 "DATA",160.16,14,"FIELD",407,4) COUNTY AT DX (165.5,10) "DATA",160.16,14,"FIELD",408,0) 86^6^91^Census Tract 1970/80/90 "DATA",160.16,14,"FIELD",408,1) S ACDANS="" "DATA",160.16,14,"FIELD",408,2) BLANK "DATA",160.16,14,"FIELD",408,3) L,BLANK^110 "DATA",160.16,14,"FIELD",408,4) "DATA",160.16,14,"FIELD",409,0) 92^1^92^Census Cod Sys 1970/80/90 "DATA",160.16,14,"FIELD",409,1) S ACDANS="" "DATA",160.16,14,"FIELD",409,2) BLANK "DATA",160.16,14,"FIELD",409,3) L,BLANK^120 "DATA",160.16,14,"FIELD",410,0) 133^2^134^Religion "DATA",160.16,14,"FIELD",410,1) S ACDANS="" "DATA",160.16,14,"FIELD",410,2) BLANK "DATA",160.16,14,"FIELD",410,3) L,BLANK^260 "DATA",160.16,14,"FIELD",411,0) 142^1^142^Industry Source "DATA",160.16,14,"FIELD",411,1) S ACDANS="" "DATA",160.16,14,"FIELD",411,2) BLANK "DATA",160.16,14,"FIELD",411,3) L,BLANK^300 "DATA",160.16,14,"FIELD",412,0) 223^1^223^Occup/Ind Coding System "DATA",160.16,14,"FIELD",412,1) S ACDANS="" "DATA",160.16,14,"FIELD",412,2) BLANK "DATA",160.16,14,"FIELD",412,3) L,BLANK^330 "DATA",160.16,14,"FIELD",413,0) 113^1^113^Race Coding Sys--Current "DATA",160.16,14,"FIELD",413,1) S ACDANS=6 "DATA",160.16,14,"FIELD",413,2) BLANK "DATA",160.16,14,"FIELD",413,3) L,BLANK^170 "DATA",160.16,14,"FIELD",413,4) 6 2000+ SEER & COC "DATA",160.16,14,"FIELD",414,0) 115^1^115^Spanish/Hispanic Origin "DATA",160.16,14,"FIELD",414,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,14,"FIELD",414,2) BLANK "DATA",160.16,14,"FIELD",414,3) L,BLANK^190 "DATA",160.16,14,"FIELD",414,4) SPANISH ORIGIN (160,9) "DATA",160.16,14,"FIELD",415,0) 116^1^116^Computed Ethnicity "DATA",160.16,14,"FIELD",415,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,14,"FIELD",415,2) BLANK "DATA",160.16,14,"FIELD",415,3) L,BLANK^200 "DATA",160.16,14,"FIELD",415,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,14,"FIELD",416,0) 117^1^117^Computed Ethnicity Source "DATA",160.16,14,"FIELD",416,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,14,"FIELD",416,2) BLANK "DATA",160.16,14,"FIELD",416,3) L,BLANK^210 "DATA",160.16,14,"FIELD",416,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,14,"FIELD",417,0) 118^1^118^Sex "DATA",160.16,14,"FIELD",417,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,14,"FIELD",417,2) BLANK "DATA",160.16,14,"FIELD",417,3) L,BLANK^220 "DATA",160.16,14,"FIELD",417,4) SEX (160,10) "DATA",160.16,14,"FIELD",418,0) 119^3^121^Age at Diagnosis "DATA",160.16,14,"FIELD",418,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,14,"FIELD",418,2) BLANK "DATA",160.16,14,"FIELD",418,3) L,ZERO^230 "DATA",160.16,14,"FIELD",418,4) AGE~ONCOCOM "DATA",160.16,14,"FIELD",419,0) 122^8^129^Birth Date "DATA",160.16,14,"FIELD",419,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,14,"FIELD",419,2) BLANK "DATA",160.16,14,"FIELD",419,3) L,ZERO^240 "DATA",160.16,14,"FIELD",419,4) DOB~ONCOES "DATA",160.16,14,"FIELD",420,0) 130^3^132^Birthplace "DATA",160.16,14,"FIELD",420,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,14,"FIELD",420,2) BLANK "DATA",160.16,14,"FIELD",420,3) L,ZERO^250 "DATA",160.16,14,"FIELD",420,4) PLACE OF BIRTH (160,7) "DATA",160.16,14,"FIELD",421,0) 99^1^99^Census Tract Block Group "DATA",160.16,14,"FIELD",421,1) S ACDANS="" "DATA",160.16,14,"FIELD",421,2) BLANK "DATA",160.16,14,"FIELD",421,3) L,BLANK^362 "DATA",160.16,14,"FIELD",422,0) 100^1^100^Census Tr Cert 1970/80/90 "DATA",160.16,14,"FIELD",422,1) S ACDANS="" "DATA",160.16,14,"FIELD",422,2) BLANK "DATA",160.16,14,"FIELD",422,3) L,BLANK^364 "DATA",160.16,14,"FIELD",423,0) 141^1^141^Occupation Source "DATA",160.16,14,"FIELD",423,1) S ACDANS="" "DATA",160.16,14,"FIELD",423,2) BLANK "DATA",160.16,14,"FIELD",423,3) L,BLANK^290 "DATA",160.16,14,"FIELD",424,0) 105^2^106^Race 2 "DATA",160.16,14,"FIELD",424,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,14,"FIELD",424,2) 8 "DATA",160.16,14,"FIELD",424,3) L,ZERO^161 "DATA",160.16,14,"FIELD",424,4) RACE 2 (160,8.1) "DATA",160.16,14,"FIELD",425,0) 107^2^108^Race 3 "DATA",160.16,14,"FIELD",425,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,14,"FIELD",425,2) 8 "DATA",160.16,14,"FIELD",425,3) L,ZERO^162 "DATA",160.16,14,"FIELD",425,4) RACE 3 (160,8.2) "DATA",160.16,14,"FIELD",426,0) 109^2^110^Race 4 "DATA",160.16,14,"FIELD",426,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,14,"FIELD",426,2) 8 "DATA",160.16,14,"FIELD",426,3) L,ZERO^163 "DATA",160.16,14,"FIELD",426,4) RACE 4 (160,8.3) "DATA",160.16,14,"FIELD",427,0) 111^2^112^Race 5 "DATA",160.16,14,"FIELD",427,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,14,"FIELD",427,2) 8 "DATA",160.16,14,"FIELD",427,3) L,ZERO^164 "DATA",160.16,14,"FIELD",427,4) RACE 5 (160,8.4) "DATA",160.16,14,"FIELD",428,0) 135^3^137^Occupation Code--Census "DATA",160.16,14,"FIELD",428,1) S ACDANS="" "DATA",160.16,14,"FIELD",428,2) BLANK "DATA",160.16,14,"FIELD",428,3) L,BLANK^270 "DATA",160.16,14,"FIELD",429,0) 138^3^140^Industry Code--Census "DATA",160.16,14,"FIELD",429,1) S ACDANS="" "DATA",160.16,14,"FIELD",429,2) BLANK "DATA",160.16,14,"FIELD",429,3) L,BLANK^280 "DATA",160.16,14,"FIELD",430,0) 224^1^224^Tobacco History "DATA",160.16,14,"FIELD",430,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,14,"FIELD",430,2) BLANK "DATA",160.16,14,"FIELD",430,3) L,BLANK^340 "DATA",160.16,14,"FIELD",430,4) TOBACCO HISTORY (160,38) "DATA",160.16,14,"FIELD",431,0) 225^1^225^Alcohol History "DATA",160.16,14,"FIELD",431,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,14,"FIELD",431,2) BLANK "DATA",160.16,14,"FIELD",431,3) L,BLANK^350 "DATA",160.16,14,"FIELD",431,4) ALCOHOL HISTORY (160,39) "DATA",160.16,14,"FIELD",432,0) 226^1^226^Family History of Cancer "DATA",160.16,14,"FIELD",432,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,14,"FIELD",432,2) BLANK "DATA",160.16,14,"FIELD",432,3) L,BLANK^360 "DATA",160.16,14,"FIELD",432,4) FAMILY HISTORY OF CANCER (160,43) "DATA",160.16,14,"FIELD",433,0) 281^2^282^Sequence Number--Central "DATA",160.16,14,"FIELD",433,1) S ACDANS=$$SNCNT~ONCACDU2(IEN) "DATA",160.16,14,"FIELD",433,2) BLANK "DATA",160.16,14,"FIELD",433,3) L,BLANK^380 "DATA",160.16,14,"FIELD",434,0) 283^8^290^Date of Diagnosis "DATA",160.16,14,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",434,2) BLANK "DATA",160.16,14,"FIELD",434,3) L,ZERO^390 "DATA",160.16,14,"FIELD",434,4) DATE DX (165.5,3) "DATA",160.16,14,"FIELD",435,0) 227^2^228^RuralUrban Continuum 1993 "DATA",160.16,14,"FIELD",435,1) S ACDANS="" "DATA",160.16,14,"FIELD",435,2) BLANK "DATA",160.16,14,"FIELD",435,3) L,BLANK^3300 "DATA",160.16,14,"FIELD",435,4) Program not run; record not coded "DATA",160.16,14,"FIELD",436,0) 229^2^230^RuralUrban Continuum 2000 "DATA",160.16,14,"FIELD",436,1) S ACDANS="" "DATA",160.16,14,"FIELD",436,2) BLANK "DATA",160.16,14,"FIELD",436,3) L,BLANK^3310 "DATA",160.16,14,"FIELD",436,4) Program not run; record not coded "DATA",160.16,14,"FIELD",437,0) 236^2^237^Race--NAPIIA "DATA",160.16,14,"FIELD",437,1) S ACDANS="" "DATA",160.16,14,"FIELD",437,2) BLANK "DATA",160.16,14,"FIELD",437,3) L,BLANK^193 "DATA",160.16,14,"FIELD",438,0) 392^10^401^Archive FIN "DATA",160.16,14,"FIELD",438,1) S ACDANS=STAT1 "DATA",160.16,14,"FIELD",438,2) ZERO "DATA",160.16,14,"FIELD",438,3) L,ZERO^3100 "DATA",160.16,14,"FIELD",438,4) FACILITY ID # (160.1,27) "DATA",160.16,14,"FIELD",439,0) 473^1^473^RX Hosp--Palliative Proc "DATA",160.16,14,"FIELD",439,1) S ACDANS=$$GET1~DIQ(165.5,IEN,13,"I") "DATA",160.16,14,"FIELD",439,2) NINE "DATA",160.16,14,"FIELD",439,3) L,BLANK^3280 "DATA",160.16,14,"FIELD",439,4) PALLIATIVE PROCEDURE @FAC (165.5,13) "DATA",160.16,14,"FIELD",440,0) 629^3^631^CS Tumor Size "DATA",160.16,14,"FIELD",440,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.2,"I")) K DATEDX "DATA",160.16,14,"FIELD",440,2) BLANK "DATA",160.16,14,"FIELD",440,3) L,ZERO^2800 "DATA",160.16,14,"FIELD",440,4) TUMOR SIZE (CS) (165.5,29.2) "DATA",160.16,14,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,14,"FIELD",441,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,30.2,"I")) K DATEDX "DATA",160.16,14,"FIELD",441,2) BLANK "DATA",160.16,14,"FIELD",441,3) L,ZERO^2810 "DATA",160.16,14,"FIELD",441,4) EXTENSION (CS) (165.5,30.2) "DATA",160.16,14,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,14,"FIELD",442,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.1,"I")) K DATEDX "DATA",160.16,14,"FIELD",442,2) BLANK "DATA",160.16,14,"FIELD",442,3) L,ZERO^2820 "DATA",160.16,14,"FIELD",442,4) TUMOR SIZE/EXT EVAL (CS) (165.5,29.1) "DATA",160.16,14,"FIELD",443,0) 635^2^636^CS Lymph Nodes "DATA",160.16,14,"FIELD",443,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,31.1,"I")) K DATEDX "DATA",160.16,14,"FIELD",443,2) BLANK "DATA",160.16,14,"FIELD",443,3) L,BLANK^2830 "DATA",160.16,14,"FIELD",443,4) LYMPH NODES (CS) (165.5,31.1) "DATA",160.16,14,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,14,"FIELD",444,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,32.1,"I")) K DATEDX "DATA",160.16,14,"FIELD",444,2) BLANK "DATA",160.16,14,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,14,"FIELD",444,4) REG NODES EVAL (CS) (165.5,32.1) "DATA",160.16,14,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,14,"FIELD",445,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.3,"I")) K DATEDX "DATA",160.16,14,"FIELD",445,2) BLANK "DATA",160.16,14,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,14,"FIELD",445,4) METS AT DX (CS) (165.5,34.3) "DATA",160.16,14,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,14,"FIELD",446,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.4,"I")) K DATEDX "DATA",160.16,14,"FIELD",446,2) BLANK "DATA",160.16,14,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,14,"FIELD",446,4) METS EVAL (CS) (165.5,34.4) "DATA",160.16,14,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,14,"FIELD",447,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.1,"I")) K DATEDX "DATA",160.16,14,"FIELD",447,2) BLANK "DATA",160.16,14,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,14,"FIELD",447,4) SITE-SPECIFIC FACTOR 1 (CS) (165.5,44.1) "DATA",160.16,14,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,14,"FIELD",448,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.2,"I")) K DATEDX "DATA",160.16,14,"FIELD",448,2) BLANK "DATA",160.16,14,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,14,"FIELD",448,4) SITE-SPECIFIC FACTOR 2 (CS) (165.5,44.2) "DATA",160.16,14,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,14,"FIELD",449,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.3,"I")) K DATEDX "DATA",160.16,14,"FIELD",449,2) BLANK "DATA",160.16,14,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,14,"FIELD",449,4) SITE-SPECIFIC FACTOR 3 (CS) (165.5,44.3) "DATA",160.16,14,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,14,"FIELD",450,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.4,"I")) K DATEDX "DATA",160.16,14,"FIELD",450,2) BLANK "DATA",160.16,14,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,14,"FIELD",450,4) SITE-SPECIFIC FACTOR 4 (CS) (165.5,44.4) "DATA",160.16,14,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,14,"FIELD",451,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.5,"I")) K DATEDX "DATA",160.16,14,"FIELD",451,2) BLANK "DATA",160.16,14,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,14,"FIELD",451,4) SITE-SPECIFIC FACTOR 5 (CS) (165.5,44.5) "DATA",160.16,14,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,14,"FIELD",452,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.6,"I")) K DATEDX "DATA",160.16,14,"FIELD",452,2) BLANK "DATA",160.16,14,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,14,"FIELD",452,4) SITE-SPECIFIC FACTOR 6 (CS) (165.5,44.6) "DATA",160.16,14,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,14,"FIELD",453,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,160,"I")) K DATEDX "DATA",160.16,14,"FIELD",453,2) BLANK "DATA",160.16,14,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,14,"FIELD",453,4) DERIVED AJCC T (165.5,160) "DATA",160.16,14,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,14,"FIELD",454,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,161,"I")) K DATEDX "DATA",160.16,14,"FIELD",454,2) BLANK "DATA",160.16,14,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,14,"FIELD",454,4) DERIVED AJCC T DESCRIPTOR (165.5,161) "DATA",160.16,14,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,14,"FIELD",455,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,162,"I")) K DATEDX "DATA",160.16,14,"FIELD",455,2) BLANK "DATA",160.16,14,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,14,"FIELD",455,4) DERIVED AJCC N (165.5,162) "DATA",160.16,14,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,14,"FIELD",456,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,163,"I")) K DATEDX "DATA",160.16,14,"FIELD",456,2) BLANK "DATA",160.16,14,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,14,"FIELD",456,4) DERIVED AJCC N DESCRIPTOR (165.5,163) "DATA",160.16,14,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,14,"FIELD",457,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,164,"I")) K DATEDX "DATA",160.16,14,"FIELD",457,2) BLANK "DATA",160.16,14,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,14,"FIELD",457,4) DERIVED AJCC M (165.5,164) "DATA",160.16,14,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,14,"FIELD",458,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,165,"I")) K DATEDX "DATA",160.16,14,"FIELD",458,2) BLANK "DATA",160.16,14,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,14,"FIELD",458,4) DERIVED AJCC M DESCRIPTOR (165.5,165) "DATA",160.16,14,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,14,"FIELD",459,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,166,"I")) K DATEDX "DATA",160.16,14,"FIELD",459,2) BLANK "DATA",160.16,14,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,14,"FIELD",459,4) DERIVED AJCC STAGE GROUP (165.5,166) "DATA",160.16,14,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,14,"FIELD",460,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,167,"I")) K DATEDX "DATA",160.16,14,"FIELD",460,2) BLANK "DATA",160.16,14,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,14,"FIELD",460,4) DERIVED SS1977 (165.5,670) "DATA",160.16,14,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,14,"FIELD",461,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,168,"I")) K DATEDX "DATA",160.16,14,"FIELD",461,2) BLANK "DATA",160.16,14,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,14,"FIELD",461,4) DERIVED SS2000 (165.5,168) "DATA",160.16,14,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,14,"FIELD",462,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,166,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,14,"FIELD",462,2) BLANK "DATA",160.16,14,"FIELD",462,3) L,BLANK^3030 "DATA",160.16,14,"FIELD",463,0) 673^1^673^Derived SS1977--Flag "DATA",160.16,14,"FIELD",463,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,167,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,14,"FIELD",463,2) BLANK "DATA",160.16,14,"FIELD",463,3) L,BLANK^3040 "DATA",160.16,14,"FIELD",464,0) 674^1^674^Derived SS2000--Flag "DATA",160.16,14,"FIELD",464,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,168,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,14,"FIELD",464,2) BLANK "DATA",160.16,14,"FIELD",464,3) L,BLANK^3050 "DATA",160.16,14,"FIELD",465,0) 675^5^679^Comorbid/Complication 1 "DATA",160.16,14,"FIELD",465,1) S ACDANS=$$GET1~DIQ(160,ACD160,25,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",465,2) ZERO "DATA",160.16,14,"FIELD",465,3) R,ZERO^3110 "DATA",160.16,14,"FIELD",465,4) COMORBIDITY/COMPLICATION #1 (160,25) "DATA",160.16,14,"FIELD",466,0) 680^5^684^Comorbid/Complication 2 "DATA",160.16,14,"FIELD",466,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",466,2) BLANK "DATA",160.16,14,"FIELD",466,3) R,ZERO^3120 "DATA",160.16,14,"FIELD",466,4) COMORBIDITY/COMPLICATION #2 (160,25.1) "DATA",160.16,14,"FIELD",467,0) 685^5^689^Comorbid/Complication 3 "DATA",160.16,14,"FIELD",467,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",467,2) BLANK "DATA",160.16,14,"FIELD",467,3) R,ZERO^3130 "DATA",160.16,14,"FIELD",467,4) COMORBIDITY/COMPLICATION #3 (160,25.2) "DATA",160.16,14,"FIELD",468,0) 690^5^694^Comorbid/Complication 4 "DATA",160.16,14,"FIELD",468,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",468,2) BLANK "DATA",160.16,14,"FIELD",468,3) R,ZERO^3140 "DATA",160.16,14,"FIELD",468,4) COMORBIDITY/COMPLICATION #4 (160,25.3) "DATA",160.16,14,"FIELD",469,0) 695^5^699^Comorbid/Complication 5 "DATA",160.16,14,"FIELD",469,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",469,2) BLANK "DATA",160.16,14,"FIELD",469,3) R,ZERO^3150 "DATA",160.16,14,"FIELD",469,4) COMORBIDITY/COMPLICATION #5 (160,25.4) "DATA",160.16,14,"FIELD",470,0) 700^5^704^Comorbid/Complication 6 "DATA",160.16,14,"FIELD",470,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",470,2) BLANK "DATA",160.16,14,"FIELD",470,3) R,ZERO^3160 "DATA",160.16,14,"FIELD",470,4) COMORBIDITY/COMPLICATION #6 (160,25.5) "DATA",160.16,14,"FIELD",471,0) 763^8^770^RX Date--Most Defin Surg "DATA",160.16,14,"FIELD",471,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,14,"FIELD",471,2) BLANK "DATA",160.16,14,"FIELD",471,3) L,BLANK^3170 "DATA",160.16,14,"FIELD",471,4) MOST DEFINITIVE SURG DATE (165.5,50) "DATA",160.16,14,"FIELD",472,0) 771^8^778^RX Date--Surgical Disch "DATA",160.16,14,"FIELD",472,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,435,"I")) "DATA",160.16,14,"FIELD",472,2) BLANK "DATA",160.16,14,"FIELD",472,3) L,BLANK^3180 "DATA",160.16,14,"FIELD",472,4) DATE OF SURGICAL DISCHARGE (165.5,435) "DATA",160.16,14,"FIELD",473,0) 787^8^794^RX Date--Radiation Ended "DATA",160.16,14,"FIELD",473,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.16,14,"FIELD",473,2) NINE "DATA",160.16,14,"FIELD",473,3) L,BLANK^3220 "DATA",160.16,14,"FIELD",473,4) DATE RADIATION ENDED (165.5,361) "DATA",160.16,14,"FIELD",474,0) 795^8^802^RX Date--Systemic "DATA",160.16,14,"FIELD",474,1) S ACDANS=$$GET1~DIQ(165.5,IEN,152) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,14,"FIELD",474,2) BLANK "DATA",160.16,14,"FIELD",474,3) L,BLANK^3230 "DATA",160.16,14,"FIELD",474,4) DATE SYSTEMIC THERAPY STARTED (165.5,152) "DATA",160.16,14,"FIELD",475,0) 1351^1^1351^Recurrence Distant Site 2 "DATA",160.16,14,"FIELD",475,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.2,"I") "DATA",160.16,14,"FIELD",475,2) BLANK "DATA",160.16,14,"FIELD",475,3) L,BLANK^1872 "DATA",160.16,14,"FIELD",475,4) DISTANT SITE 2 (165.5,71.2) "DATA",160.16,14,"FIELD",476,0) 1352^1^1352^Recurrence Distant Site 3 "DATA",160.16,14,"FIELD",476,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,14,"FIELD",476,2) BLANK "DATA",160.16,14,"FIELD",476,3) L,BLANK^1873 "DATA",160.16,14,"FIELD",476,4) DISTANT SITE 3 (165.5,71.3) "DATA",160.16,14,"FIELD",477,0) 871^1^871^RX Summ--Palliative Proc "DATA",160.16,14,"FIELD",477,1) S ACDANS=$$GET1~DIQ(165.5,IEN,12,"I") "DATA",160.16,14,"FIELD",477,2) NINE "DATA",160.16,14,"FIELD",477,3) L,BLANK^3270 "DATA",160.16,14,"FIELD",477,4) PALLIATIVE PROCEDURE (165.5,12) "DATA",160.16,14,"FIELD",478,0) 872^1^872^Reserved 22 "DATA",160.16,14,"FIELD",478,1) S ACDANS="" "DATA",160.16,14,"FIELD",478,2) BLANK "DATA",160.16,14,"FIELD",478,3) L,BLANK "DATA",160.16,14,"FIELD",479,0) 876^2^877^RX Summ--Transplnt/Endocr "DATA",160.16,14,"FIELD",479,1) S ACDANS=$$GET1~DIQ(165.5,IEN,153,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(167,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",479,2) BLANK "DATA",160.16,14,"FIELD",479,3) L,BLANK^3250 "DATA",160.16,14,"FIELD",479,4) HEMA TRANS/ENDOCRINE PROC (165.5,153) "DATA",160.16,14,"FIELD",480,0) 911^2^912^Rad--Boost RX Modality "DATA",160.16,14,"FIELD",480,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",480,2) ZERO "DATA",160.16,14,"FIELD",480,3) L,BLANK^3200 "DATA",160.16,14,"FIELD",480,4) BOOST TREATMENT MODALITY (165.5,363.1) "DATA",160.16,14,"FIELD",481,0) 913^5^917^Rad--Boost Dose cGy "DATA",160.16,14,"FIELD",481,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.16,14,"FIELD",481,2) ZERO "DATA",160.16,14,"FIELD",481,3) L,ZERO^3210 "DATA",160.16,14,"FIELD",481,4) BOOST DOSE: cGy (165.5,443) "DATA",160.16,14,"FIELD",482,0) 938^1^938^Readm Same Hosp 30 Days "DATA",160.16,14,"FIELD",482,1) S ACDANS=$$GET1~DIQ(165.5,IEN,14,"I") "DATA",160.16,14,"FIELD",482,2) BLANK "DATA",160.16,14,"FIELD",482,3) L,BLANK^3190 "DATA",160.16,14,"FIELD",482,4) READMISSION W/I 30 DAYS/SURG (165.5,14) "DATA",160.16,14,"FIELD",483,0) 1447^1^1447^Agent Orange Exposure "DATA",160.16,14,"FIELD",483,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,48,"I")) "DATA",160.16,14,"FIELD",483,2) BLANK "DATA",160.16,14,"FIELD",483,3) L,BLANK^ "DATA",160.16,14,"FIELD",483,4) AGENT ORANGE EXPOSURE (160,48) "DATA",160.16,14,"FIELD",484,0) 1947^25^1971^Name--Last "DATA",160.16,14,"FIELD",484,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,14,"FIELD",484,2) BLANK "DATA",160.16,14,"FIELD",484,3) R,BLANK^2230 "DATA",160.16,14,"FIELD",484,4) LAST NAME (160,.011) "DATA",160.16,14,"FIELD",485,0) 1972^14^1985^Name--First "DATA",160.16,14,"FIELD",485,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," "),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,14,"FIELD",485,2) BLANK "DATA",160.16,14,"FIELD",485,3) R,BLANK^2240 "DATA",160.16,14,"FIELD",485,4) NAME (160,.01) "DATA",160.16,14,"FIELD",486,0) 1986^14^1999^Name--Middle "DATA",160.16,14,"FIELD",486,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E"),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,14,"FIELD",486,2) BLANK "DATA",160.16,14,"FIELD",486,3) R,BLANK^2250 "DATA",160.16,14,"FIELD",486,4) MIDDLE NAME (160,.015) "DATA",160.16,14,"FIELD",487,0) 2000^3^2002^Name--Prefix "DATA",160.16,14,"FIELD",487,1) S ACDANS="" "DATA",160.16,14,"FIELD",487,2) BLANK "DATA",160.16,14,"FIELD",487,3) R,BLANK^2260 "DATA",160.16,14,"FIELD",488,0) 2003^3^2005^Name--Suffix "DATA",160.16,14,"FIELD",488,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,14,"FIELD",488,2) BLANK "DATA",160.16,14,"FIELD",488,3) R,BLANK^2270 "DATA",160.16,14,"FIELD",488,4) NAME (160,.01) "DATA",160.16,14,"FIELD",489,0) 2006^15^2020^Name--Alias "DATA",160.16,14,"FIELD",489,1) S ACDANS=$$GET1~DIQ(160,ACD160,1,"E") "DATA",160.16,14,"FIELD",489,2) BLANK "DATA",160.16,14,"FIELD",489,3) R,BLANK^2280 "DATA",160.16,14,"FIELD",489,4) ALIAS (160,1) "DATA",160.16,14,"FIELD",490,0) 2021^15^2035^Name--Maiden "DATA",160.16,14,"FIELD",490,1) S ACDANS="" "DATA",160.16,14,"FIELD",490,2) BLANK "DATA",160.16,14,"FIELD",490,3) R,BLANK^2390 "DATA",160.16,14,"FIELD",491,0) 2036^50^2085^Name--Spouse/Parent "DATA",160.16,14,"FIELD",491,1) S ACDANS="" "DATA",160.16,14,"FIELD",491,2) BLANK "DATA",160.16,14,"FIELD",491,3) R,BLANK^2290 "DATA",160.16,14,"FIELD",492,0) 2086^11^2096^Medical Record Number "DATA",160.16,14,"FIELD",492,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5,6)_$E(ACDANS,8,11) "DATA",160.16,14,"FIELD",492,2) BLANK "DATA",160.16,14,"FIELD",492,3) L,ZERO^2300 "DATA",160.16,14,"FIELD",492,4) SSN (160,2) "DATA",160.16,14,"FIELD",493,0) 2097^2^2098^Military Record No Suffix "DATA",160.16,14,"FIELD",493,1) S ACDANS="" "DATA",160.16,14,"FIELD",493,2) BLANK "DATA",160.16,14,"FIELD",493,3) L,ZERO^2310 "DATA",160.16,14,"FIELD",494,0) 2099^9^2107^Social Security Number "DATA",160.16,14,"FIELD",494,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,14,"FIELD",494,2) NINE "DATA",160.16,14,"FIELD",494,3) L,BLANK^2320 "DATA",160.16,14,"FIELD",494,4) SSN (160,2) "DATA",160.16,14,"FIELD",495,0) 2108^40^2147^Addr at DX--No & Street "DATA",160.16,14,"FIELD",495,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",495,2) BLANK "DATA",160.16,14,"FIELD",495,3) R,BLANK^2330 "DATA",160.16,14,"FIELD",495,4) PATIENT ADDRESS AT DX (165.5,8) "DATA",160.16,14,"FIELD",496,0) 2148^40^2187^Addr at DX--Supplementl "DATA",160.16,14,"FIELD",496,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8.2,"E") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",496,2) BLANK "DATA",160.16,14,"FIELD",496,3) R,BLANK^2335 "DATA",160.16,14,"FIELD",496,4) PATIENT ADDRESS AT DX - SUPP (165.5,8.2) "DATA",160.16,14,"FIELD",497,0) 2188^40^2227^Addr Current--No & Street "DATA",160.16,14,"FIELD",497,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",497,2) BLANK "DATA",160.16,14,"FIELD",497,3) R,BLANK^2350 "DATA",160.16,14,"FIELD",497,4) PATIENT ADDRESS - CURRENT (160,.119) "DATA",160.16,14,"FIELD",498,0) 2228^40^2267^Addr Current--Supplementl "DATA",160.16,14,"FIELD",498,1) S ACDANS=$$GET1~DIQ(160,ACD160,.1191,"E") D STRIP~ONCACDU2 "DATA",160.16,14,"FIELD",498,2) BLANK "DATA",160.16,14,"FIELD",498,3) R,BLANK^2355 "DATA",160.16,14,"FIELD",498,4) PATIENT ADDRESS - CURRENT SUPP (160,.1191) "DATA",160.16,14,"FIELD",499,0) 2268^10^2277^Telephone "DATA",160.16,14,"FIELD",499,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") I ACDANS'="" S ACDANS=$TR(ACDANS,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`~!@#$%&*()-_=+[{]}\|;:',<.>/? ","") I ACDANS'?10N S ACDANS="" "DATA",160.16,14,"FIELD",499,2) NINE "DATA",160.16,14,"FIELD",499,3) R,BLANK^2360 "DATA",160.16,14,"FIELD",499,4) TELEPHONE (160,.131) "DATA",160.16,14,"FIELD",500,0) 2278^6^2283^DC State File Number "DATA",160.16,14,"FIELD",500,1) S ACDANS="" "DATA",160.16,14,"FIELD",500,2) BLANK "DATA",160.16,14,"FIELD",500,3) L,BLANK^2380 "DATA",160.16,14,"FIELD",501,0) 2284^30^2313^Follow-Up Contact--Name "DATA",160.16,14,"FIELD",501,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.01,"E"),ACDANS=$P(ACDANS,",",2)_" "_$P(ACDANS,",",1),ACDANS=$$TRIM~XLFSTR(ACDANS) "DATA",160.16,14,"FIELD",501,2) BLANK "DATA",160.16,14,"FIELD",501,3) R,BLANK^2394 "DATA",160.16,14,"FIELD",501,4) CONTACT (165,.01) "DATA",160.16,14,"FIELD",502,0) 2314^40^2353^Follow-Up Contact--No&St "DATA",160.16,14,"FIELD",502,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.111,"E") "DATA",160.16,14,"FIELD",502,2) BLANK "DATA",160.16,14,"FIELD",502,3) R,BLANK^2392 "DATA",160.16,14,"FIELD",502,4) STREET ADDRESS 1 (165,.111) "DATA",160.16,14,"FIELD",503,0) 2354^40^2393^Follow-Up Contact--Suppl "DATA",160.16,14,"FIELD",503,1) S ACDANS="" "DATA",160.16,14,"FIELD",503,2) BLANK "DATA",160.16,14,"FIELD",503,3) L,BLANK^2393 "DATA",160.16,14,"FIELD",504,0) 2394^10^2403^Latitude "DATA",160.16,14,"FIELD",504,1) S ACDANS="" "DATA",160.16,14,"FIELD",504,2) BLANK "DATA",160.16,14,"FIELD",504,3) L,BLANK^2352 "DATA",160.16,14,"FIELD",505,0) 2404^11^2414^Longitude "DATA",160.16,14,"FIELD",505,1) S ACDANS="" "DATA",160.16,14,"FIELD",505,2) BLANK "DATA",160.16,14,"FIELD",505,3) L,BLANK^2354 "DATA",160.16,14,"FIELD",506,0) 2415^50^2464^Reserved 10 "DATA",160.16,14,"FIELD",506,1) S ACDANS="" "DATA",160.16,14,"FIELD",506,2) BLANK "DATA",160.16,14,"FIELD",506,3) L,BLANK^1835 "DATA",160.16,14,"FIELD",507,0) 2465^10^2474^Reserved 40 "DATA",160.16,14,"FIELD",507,1) S ACDANS="" "DATA",160.16,14,"FIELD",507,2) BLANK "DATA",160.16,14,"FIELD",507,3) L,BLANK^2435 "DATA",160.16,14,"FIELD",507,4) "DATA",160.16,14,"FIELD",508,0) 2475^10^2484^Following Registry "DATA",160.16,14,"FIELD",508,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",508,2) ZERO "DATA",160.16,14,"FIELD",508,3) L,ZERO^2440 "DATA",160.16,14,"FIELD",508,4) FOLLOWING REGISTRY (160.04,10) "DATA",160.16,14,"FIELD",509,0) 2485^10^2494^Institution Referred From "DATA",160.16,14,"FIELD",509,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,14,"FIELD",509,2) ZERO "DATA",160.16,14,"FIELD",509,3) L,ZERO^2410 "DATA",160.16,14,"FIELD",509,4) FACILITY REFERRED FROM (165.5,6) "DATA",160.16,14,"FIELD",510,0) 2495^10^2504^Institution Referred To "DATA",160.16,14,"FIELD",510,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,14,"FIELD",510,2) ZERO "DATA",160.16,14,"FIELD",510,3) L,ZERO^2420 "DATA",160.16,14,"FIELD",510,4) FACILITY REFERRED TO (165.5,7) "DATA",160.16,14,"FIELD",511,0) 2505^10^2514^NPI--Inst Referred From "DATA",160.16,14,"FIELD",511,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,6,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,14,"FIELD",511,2) BLANK "DATA",160.16,14,"FIELD",511,3) L,BLANK^2415 "DATA",160.16,14,"FIELD",511,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",512,0) 2555^8^2562^Physician--Managing "DATA",160.16,14,"FIELD",512,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,14,"FIELD",512,2) NINE "DATA",160.16,14,"FIELD",512,3) R,BLANK^2460 "DATA",160.16,14,"FIELD",512,4) MANAGING PHYSICIAN (165.5,2.2) "DATA",160.16,14,"FIELD",513,0) 2563^8^2570^Physician--Follow-Up "DATA",160.16,14,"FIELD",513,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,14,"FIELD",513,2) NINE "DATA",160.16,14,"FIELD",513,3) R,BLANK^2470 "DATA",160.16,14,"FIELD",513,4) FOLLOWING PHYSICIAN (165.5,2.1) "DATA",160.16,14,"FIELD",514,0) 2571^8^2578^Physician--Primary Surg "DATA",160.16,14,"FIELD",514,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,14,"FIELD",514,2) ZERO "DATA",160.16,14,"FIELD",514,3) R,BLANK^2480 "DATA",160.16,14,"FIELD",514,4) PRIMARY SURGEON (165.5,2) "DATA",160.16,14,"FIELD",515,0) 2579^8^2586^Physician 3 "DATA",160.16,14,"FIELD",515,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,14,"FIELD",515,2) ZERO "DATA",160.16,14,"FIELD",515,3) R,BLANK^2490 "DATA",160.16,14,"FIELD",515,4) PHYSICIAN #3 (165.5,2.3) "DATA",160.16,14,"FIELD",516,0) 2587^8^2594^Physician 4 "DATA",160.16,14,"FIELD",516,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,14,"FIELD",516,2) ZERO "DATA",160.16,14,"FIELD",516,3) R,BLANK^2500 "DATA",160.16,14,"FIELD",516,4) PHYSICIAN #4 (165.5,2.4) "DATA",160.16,14,"FIELD",517,0) 2595^10^2604^NPI--Physician--Managing "DATA",160.16,14,"FIELD",517,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,14,"FIELD",517,2) BLANK "DATA",160.16,14,"FIELD",517,3) L,BLANK^2465 "DATA",160.16,14,"FIELD",517,4) NPI (165,101) "DATA",160.16,14,"FIELD",518,0) 2645^200^2844^Text--DX Proc--PE "DATA",160.16,14,"FIELD",518,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,14,"FIELD",518,2) BLANK "DATA",160.16,14,"FIELD",518,3) R,BLANK^2520 "DATA",160.16,14,"FIELD",518,4) TEXT-DX PROC-PE (165.5,104) "DATA",160.16,14,"FIELD",519,0) 2845^250^3094^Text--DX Proc--X-ray/Scan "DATA",160.16,14,"FIELD",519,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,14,"FIELD",519,2) BLANK "DATA",160.16,14,"FIELD",519,3) R,BLANK^2530 "DATA",160.16,14,"FIELD",519,4) TEXT-DX PROC-X-RAY/SCAN (165.5,105) "DATA",160.16,14,"FIELD",520,0) 3095^250^3344^Text--DX Proc--Scopes "DATA",160.16,14,"FIELD",520,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,14,"FIELD",520,2) BLANK "DATA",160.16,14,"FIELD",520,3) R,BLANK^2540 "DATA",160.16,14,"FIELD",520,4) TEXT-DX PROC-SCOPES (165.5,106) "DATA",160.16,14,"FIELD",521,0) 3345^250^3594^Text--DX Proc--Lab Tests "DATA",160.16,14,"FIELD",521,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,14,"FIELD",521,2) BLANK "DATA",160.16,14,"FIELD",521,3) R,BLANK^2550 "DATA",160.16,14,"FIELD",521,4) TEXT-DX PROC-LAB TESTS (165.5,116) "DATA",160.16,14,"FIELD",522,0) 3595^250^3844^Text--DX Proc--Op "DATA",160.16,14,"FIELD",522,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,14,"FIELD",522,2) BLANK "DATA",160.16,14,"FIELD",522,3) R,BLANK^2560 "DATA",160.16,14,"FIELD",522,4) TEXT-DX PROC-OP (165.5,103) "DATA",160.16,14,"FIELD",523,0) 3845^250^4094^Text--DX Proc--Path "DATA",160.16,14,"FIELD",523,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,14,"FIELD",523,2) BLANK "DATA",160.16,14,"FIELD",523,3) R,BLANK^2570 "DATA",160.16,14,"FIELD",523,4) TEXT-DX PROC-PATH (165.5,107) "DATA",160.16,14,"FIELD",524,0) 4095^40^4134^Text--Primary Site Title "DATA",160.16,14,"FIELD",524,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,14,"FIELD",524,2) BLANK "DATA",160.16,14,"FIELD",524,3) R,BLANK^2580 "DATA",160.16,14,"FIELD",524,4) TEXT-PRIMARY SITE TITLE (165.5,100) "DATA",160.16,14,"FIELD",525,0) 4135^40^4174^Text--Histology Title "DATA",160.16,14,"FIELD",525,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,14,"FIELD",525,2) BLANK "DATA",160.16,14,"FIELD",525,3) R,BLANK^2590 "DATA",160.16,14,"FIELD",525,4) TEXT-HISTOLOGY TITLE (165.5,101) "DATA",160.16,14,"FIELD",526,0) 4175^300^4474^Text--Staging "DATA",160.16,14,"FIELD",526,1) S ACDANS="" "DATA",160.16,14,"FIELD",526,2) BLANK "DATA",160.16,14,"FIELD",526,3) R,BLANK^2600 "DATA",160.16,14,"FIELD",527,0) 4475^150^4624^RX Text--Surgery "DATA",160.16,14,"FIELD",527,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,14,"FIELD",527,2) BLANK "DATA",160.16,14,"FIELD",527,3) R,BLANK^2610 "DATA",160.16,14,"FIELD",527,4) RX TEXT-SURGERY (165.5,108) "DATA",160.16,14,"FIELD",528,0) 4625^150^4774^RX Text--Radiation (Beam) "DATA",160.16,14,"FIELD",528,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,14,"FIELD",528,2) BLANK "DATA",160.16,14,"FIELD",528,3) R,BLANK^2620 "DATA",160.16,14,"FIELD",528,4) RX TEXT-RADIATION (165.5,109) "DATA",160.16,14,"FIELD",529,0) 4775^150^4924^RX Text--Radiation Other "DATA",160.16,14,"FIELD",529,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,14,"FIELD",529,2) BLANK "DATA",160.16,14,"FIELD",529,3) R,BLANK^2630 "DATA",160.16,14,"FIELD",529,4) RX TEXT-RADIATION OTHER (165.5,110) "DATA",160.16,14,"FIELD",530,0) 4925^200^5124^RX Text--Chemo "DATA",160.16,14,"FIELD",530,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,14,"FIELD",530,2) BLANK "DATA",160.16,14,"FIELD",530,3) R,BLANK^2640 "DATA",160.16,14,"FIELD",530,4) RX TEXT-CHEMO (165.5,111) "DATA",160.16,14,"FIELD",531,0) 5125^200^5324^RX Text--Hormone "DATA",160.16,14,"FIELD",531,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,14,"FIELD",531,2) BLANK "DATA",160.16,14,"FIELD",531,3) R,BLANK^2650 "DATA",160.16,14,"FIELD",531,4) RX TEXT-HORMONE (165.5,112) "DATA",160.16,14,"FIELD",532,0) 5325^100^5424^RX Text--BRM "DATA",160.16,14,"FIELD",532,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,14,"FIELD",532,2) BLANK "DATA",160.16,14,"FIELD",532,3) R,BLANK^2660 "DATA",160.16,14,"FIELD",532,4) RX TEXT-BRM (165.5,114) "DATA",160.16,14,"FIELD",533,0) 5425^100^5524^RX Text--Other "DATA",160.16,14,"FIELD",533,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,14,"FIELD",533,2) BLANK "DATA",160.16,14,"FIELD",533,3) R,BLANK^2670 "DATA",160.16,14,"FIELD",533,4) RX TEXT-OTHER (165.5,115) "DATA",160.16,14,"FIELD",534,0) 5525^350^5874^Text--Remarks "DATA",160.16,14,"FIELD",534,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,350) "DATA",160.16,14,"FIELD",534,2) BLANK "DATA",160.16,14,"FIELD",534,3) R,BLANK^2680 "DATA",160.16,14,"FIELD",534,4) TEXT-REMARKS (165.5,113) "DATA",160.16,14,"FIELD",535,0) 5875^50^5924^Place of Diagnosis "DATA",160.16,14,"FIELD",535,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,14,"FIELD",535,2) BLANK "DATA",160.16,14,"FIELD",535,3) R,BLANK^2690 "DATA",160.16,14,"FIELD",535,4) DX FACILITY (165.5,5) "DATA",160.16,14,"FIELD",536,0) 5925^385^6309^Reserved 19 (part one) "DATA",160.16,14,"FIELD",536,1) S ACDANS="" "DATA",160.16,14,"FIELD",536,2) BLANK "DATA",160.16,14,"FIELD",536,3) L,BLANK^2700 "DATA",160.16,14,"FIELD",537,0) 1448^1^1448^Ionizing Radiation Exposure "DATA",160.16,14,"FIELD",537,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,50,"I")) "DATA",160.16,14,"FIELD",537,2) BLANK "DATA",160.16,14,"FIELD",537,3) L,BLANK "DATA",160.16,14,"FIELD",537,4) IONIZING RADIATION EXPOSURE (160,50) "DATA",160.16,14,"FIELD",538,0) 1449^1^1449^Persian Gulf Service "DATA",160.16,14,"FIELD",538,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,51,"I")) "DATA",160.16,14,"FIELD",538,2) BLANK "DATA",160.16,14,"FIELD",538,3) L,BLANK "DATA",160.16,14,"FIELD",538,4) PERSIAN GULF SERVICE (160,51) "DATA",160.16,14,"FIELD",539,0) 1450^1^1450^Chemical Exposure "DATA",160.16,14,"FIELD",539,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,52,"I")) "DATA",160.16,14,"FIELD",539,2) BLANK "DATA",160.16,14,"FIELD",539,3) L,BLANK "DATA",160.16,14,"FIELD",539,4) CHEMICAL EXPOSURE (160,52) "DATA",160.16,14,"FIELD",540,0) 1451^1^1451^Asbestos Exposure "DATA",160.16,14,"FIELD",540,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,61,"I")) "DATA",160.16,14,"FIELD",540,2) BLANK "DATA",160.16,14,"FIELD",540,3) L,BLANK "DATA",160.16,14,"FIELD",540,4) ASBESTOS EXPOSURE (160,61) "DATA",160.16,14,"FIELD",541,0) 1452^2^1453^VISN "DATA",160.16,14,"FIELD",541,1) S ACDANS=$$VASIT~ONCACDU2 "DATA",160.16,14,"FIELD",541,2) BLANK "DATA",160.16,14,"FIELD",541,3) L,ZERO "DATA",160.16,14,"FIELD",541,4) VISN (160.1,7) "DATA",160.16,14,"FIELD",542,0) 1454^2^1455^Reserved for DOD usage "DATA",160.16,14,"FIELD",542,1) S ACDANS="" "DATA",160.16,14,"FIELD",542,2) BLANK "DATA",160.16,14,"FIELD",542,3) L,BLANK "DATA",160.16,14,"FIELD",543,0) 1456^50^1505^Family History of Cancer Text "DATA",160.16,14,"FIELD",543,1) D FHCT~ONCACDU1 "DATA",160.16,14,"FIELD",543,2) BLANK "DATA",160.16,14,"FIELD",543,3) R,BLANK "DATA",160.16,14,"FIELD",543,4) FAMILY MEMBER WITH CANCER (160,44) "DATA",160.16,14,"FIELD",544,0) 1513^15^1527^Other Staging System "DATA",160.16,14,"FIELD",544,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",544,2) BLANK "DATA",160.16,14,"FIELD",544,3) R,BLANK^1070 "DATA",160.16,14,"FIELD",544,4) OTHER STAGING SYSTEM (165.5,39) "DATA",160.16,14,"FIELD",545,0) 1784^1^1784^AFIP Submission "DATA",160.16,14,"FIELD",545,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,14,"FIELD",545,2) BLANK "DATA",160.16,14,"FIELD",545,3) L,BLANK "DATA",160.16,14,"FIELD",545,4) AFIP SUBMISSION (165.5,83) "DATA",160.16,14,"FIELD",546,0) 1785^20^1804^Previous History of Cancer Text "DATA",160.16,14,"FIELD",546,1) D PHCT~ONCACDU1 "DATA",160.16,14,"FIELD",546,2) BLANK "DATA",160.16,14,"FIELD",546,3) R,BLANK "DATA",160.16,14,"FIELD",546,4) CANCER #1 (165.5,148.1), CANCER #2 (165.5,148.2), CANCER #3 (165.5,148.3), CANCER #4 (165.5,148.4) "DATA",160.16,14,"FIELD",547,0) 1805^1^1805^Reserved for Expansion "DATA",160.16,14,"FIELD",547,1) S ACDANS="" "DATA",160.16,14,"FIELD",547,2) BLANK "DATA",160.16,14,"FIELD",547,3) L,BLANK "DATA",160.16,14,"FIELD",548,0) 1806^1^1806^Previous History of Cancer "DATA",160.16,14,"FIELD",548,1) S ACDANS=$$GET1~DIQ(165.5,IEN,148,"I") "DATA",160.16,14,"FIELD",548,2) BLANK "DATA",160.16,14,"FIELD",548,3) L,BLANK "DATA",160.16,14,"FIELD",548,4) PREVIOUS HISTORY OF CANCER (165.5,148) "DATA",160.16,14,"FIELD",549,0) 1807^1^1807^Somalia Service "DATA",160.16,14,"FIELD",549,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,56,"I")) "DATA",160.16,14,"FIELD",549,2) BLANK "DATA",160.16,14,"FIELD",549,3) L,BLANK "DATA",160.16,14,"FIELD",549,4) SOMALIA SERVICE (160,56) "DATA",160.16,14,"FIELD",550,0) 1808^1^1808^Lebanon Service "DATA",160.16,14,"FIELD",550,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,55,"I")) "DATA",160.16,14,"FIELD",550,2) BLANK "DATA",160.16,14,"FIELD",550,3) L,BLANK "DATA",160.16,14,"FIELD",550,4) LEBANON SERVICE (160,55) "DATA",160.16,14,"FIELD",551,0) 1809^1^1809^Hepatitis C "DATA",160.16,14,"FIELD",551,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1010,"I") "DATA",160.16,14,"FIELD",551,2) BLANK "DATA",160.16,14,"FIELD",551,3) L,BLANK "DATA",160.16,14,"FIELD",551,4) HEPATITIS C (165.5,1010) "DATA",160.16,14,"FIELD",552,0) 1810^137^1946^Reserved for Expansion "DATA",160.16,14,"FIELD",552,1) S ACDANS="" "DATA",160.16,14,"FIELD",552,2) BLANK "DATA",160.16,14,"FIELD",552,3) L,BLANK "DATA",160.16,14,"FIELD",553,0) 480^1^480^RX Hosp--Scope Reg 98-02 "DATA",160.16,14,"FIELD",553,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,14,"FIELD",553,2) BLANK "DATA",160.16,14,"FIELD",553,3) L,BLANK^747 "DATA",160.16,14,"FIELD",553,4) SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "DATA",160.16,14,"FIELD",554,0) 481^1^481^RX Hosp--Surg Oth 98-02 "DATA",160.16,14,"FIELD",554,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,14,"FIELD",554,2) BLANK "DATA",160.16,14,"FIELD",554,3) L,BLANK^748 "DATA",160.16,14,"FIELD",554,4) SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "DATA",160.16,14,"FIELD",555,0) 482^46^527^Reserved 04 "DATA",160.16,14,"FIELD",555,1) S ACDANS="" "DATA",160.16,14,"FIELD",555,2) BLANK "DATA",160.16,14,"FIELD",555,3) L,BLANK^750 "DATA",160.16,14,"FIELD",556,0) 939^2^940^RX Summ--Surg Site 98-02 "DATA",160.16,14,"FIELD",556,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,14,"FIELD",556,2) BLANK "DATA",160.16,14,"FIELD",556,3) L,ZERO^1646 "DATA",160.16,14,"FIELD",556,4) SURGERY OF PRIMARY (R) (165.5,58.2) "DATA",160.16,14,"FIELD",557,0) 941^1^941^RX Summ--Scope Reg 98-02 "DATA",160.16,14,"FIELD",557,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,14,"FIELD",557,2) NINE "DATA",160.16,14,"FIELD",557,3) L,BLANK^1647 "DATA",160.16,14,"FIELD",557,4) SCOPE OF LN SURGERY (R) (165.5,138) "DATA",160.16,14,"FIELD",558,0) 942^1^942^RX Summ--Surg Oth 98-02 "DATA",160.16,14,"FIELD",558,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,14,"FIELD",558,2) NINE "DATA",160.16,14,"FIELD",558,3) L,NINE^1648 "DATA",160.16,14,"FIELD",558,4) SURG PROC/OTHER SITE (R) (165.5,139) "DATA",160.16,14,"FIELD",559,0) 705^6^710^CS Version 1st "DATA",160.16,14,"FIELD",559,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169.1,"I")) K DATEDX "DATA",160.16,14,"FIELD",559,2) BLANK "DATA",160.16,14,"FIELD",559,3) L,BLANK^2935 "DATA",160.16,14,"FIELD",559,4) CS VERSION FIRST (165.5,169.1) "DATA",160.16,14,"FIELD",560,0) 711^6^716^CS Version Latest "DATA",160.16,14,"FIELD",560,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169,"I")) K DATEDX "DATA",160.16,14,"FIELD",560,2) BLANK "DATA",160.16,14,"FIELD",560,3) L,BLANK^2936 "DATA",160.16,14,"FIELD",560,4) CS VERSION LATEST (165.5,169) "DATA",160.16,14,"FIELD",561,0) 6310^385^6694^Reserved 19 (part two) "DATA",160.16,14,"FIELD",561,1) S ACDANS="" "DATA",160.16,14,"FIELD",561,2) BLANK "DATA",160.16,14,"FIELD",561,3) L,BLANK^2700 "DATA",160.16,14,"FIELD",562,0) 722^5^726^Comorbid/Complication 8 "DATA",160.16,14,"FIELD",562,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.7,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",562,2) BLANK "DATA",160.16,14,"FIELD",562,3) R,ZERO^3162 "DATA",160.16,14,"FIELD",562,4) COMORBIDITY/COMPLICATION #8 (160,25.7) "DATA",160.16,14,"FIELD",563,0) 727^5^731^Comorbid/Complication 9 "DATA",160.16,14,"FIELD",563,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.8,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",563,2) BLANK "DATA",160.16,14,"FIELD",563,3) R,ZERO^3163 "DATA",160.16,14,"FIELD",563,4) COMORBIDITY/COMPLICATION #9 (160,25.8) "DATA",160.16,14,"FIELD",564,0) 732^5^736^Comorbid/Complication 10 "DATA",160.16,14,"FIELD",564,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.9,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,14,"FIELD",564,2) BLANK "DATA",160.16,14,"FIELD",564,3) R,ZERO^3164 "DATA",160.16,14,"FIELD",564,4) COMORBIDITY/COMPLICATION #10 (160,25.9) "DATA",160.16,14,"FIELD",565,0) 737^1^737^ICD Revision Comorbid "DATA",160.16,14,"FIELD",565,1) D CC~ONCACDU1 S CC1=CCEX(1) S ACDANS=$S(CC1="":0,1:9) "DATA",160.16,14,"FIELD",565,2) BLANK "DATA",160.16,14,"FIELD",565,3) L,BLANK^3165 "DATA",160.16,14,"FIELD",565,4) 0 = No secondary diagnosis reported. 9 = ICD-9. "DATA",160.16,14,"FIELD",566,0) 738^17^754^Reserved 05 "DATA",160.16,14,"FIELD",566,1) S ACDANS="" "DATA",160.16,14,"FIELD",566,2) BLANK "DATA",160.16,14,"FIELD",566,3) L,BLANK^1180 "DATA",160.16,14,"FIELD",567,0) 32^8^39^Patient System ID-Hosp "DATA",160.16,14,"FIELD",567,1) S ACDANS=ACD160 "DATA",160.16,14,"FIELD",567,2) BLANK "DATA",160.16,14,"FIELD",567,3) L,ZERO^21 "DATA",160.16,14,"FIELD",567,4) ONCOLOGY PATIENT file IEN "DATA",160.16,14,"FIELD",568,0) 231^1^231^NHIA Derived Hisp Origin "DATA",160.16,14,"FIELD",568,1) S ACDANS="" "DATA",160.16,14,"FIELD",568,2) BLANK "DATA",160.16,14,"FIELD",568,3) L,BLANK^191 "DATA",160.16,14,"FIELD",568,4) Blank = Algorithm has not been run "DATA",160.16,14,"FIELD",569,0) 232^1^232^IHS Link "DATA",160.16,14,"FIELD",569,1) S ACDANS="" "DATA",160.16,14,"FIELD",569,2) BLANK "DATA",160.16,14,"FIELD",569,3) L,BLANK^192 "DATA",160.16,14,"FIELD",569,4) Blank = Record not sent for linkage or linkage result pending "DATA",160.16,14,"FIELD",570,0) 233^2^234^GIS Coordinate Quality "DATA",160.16,14,"FIELD",570,1) S ACDANS="" "DATA",160.16,14,"FIELD",570,2) BLANK "DATA",160.16,14,"FIELD",570,3) L,BLANK^366 "DATA",160.16,14,"FIELD",570,4) Blank = Not applicable, coordinate assignment not attempted "DATA",160.16,14,"FIELD",571,0) 322^2^323^Casefinding Source "DATA",160.16,14,"FIELD",571,1) S ACDANS=$$GET1~DIQ(165.5,IEN,21,"I") "DATA",160.16,14,"FIELD",571,2) NINE "DATA",160.16,14,"FIELD",571,3) L,BLANK^501 "DATA",160.16,14,"FIELD",571,4) CASEFINDING SOURCE (165.5,21) "DATA",160.16,14,"FIELD",572,0) 324^1^324^Ambiguous Terminology DX "DATA",160.16,14,"FIELD",572,1) S ACDANS=$$GET1~DIQ(165.5,IEN,159,"I") "DATA",160.16,14,"FIELD",572,2) BLANK "DATA",160.16,14,"FIELD",572,3) L,BLANK^442 "DATA",160.16,14,"FIELD",572,4) AMBIGUOUS TERMINOLOGY (165.5,159) "DATA",160.16,14,"FIELD",573,0) 325^8^332^Date of Conclusive DX "DATA",160.16,14,"FIELD",573,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,193,"I")) "DATA",160.16,14,"FIELD",573,2) BLANK "DATA",160.16,14,"FIELD",573,3) L,BLANK^443 "DATA",160.16,14,"FIELD",573,4) DATE OF CONCLUSIVE DX (165.5,193) "DATA",160.16,14,"FIELD",574,0) 333^2^334^Mult Tum Rpt as One Prim "DATA",160.16,14,"FIELD",574,1) S ACDANS=$$GET1~DIQ(165.5,IEN,194,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(169,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",574,2) BLANK "DATA",160.16,14,"FIELD",574,3) L,BLANK^444 "DATA",160.16,14,"FIELD",574,4) MULT TUM RPT AS ONE PRIM (165.5,194) "DATA",160.16,14,"FIELD",575,0) 335^8^342^Date of Multiple Tumors "DATA",160.16,14,"FIELD",575,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,195,"I")) "DATA",160.16,14,"FIELD",575,2) BLANK "DATA",160.16,14,"FIELD",575,3) L,BLANK^445 "DATA",160.16,14,"FIELD",575,4) DATE OF MULTIPLE TUMORS (165.5,195) "DATA",160.16,14,"FIELD",576,0) 343^2^344^Multiplicity Counter "DATA",160.16,14,"FIELD",576,1) S ACDANS=$$GET1~DIQ(165.5,IEN,196,"I") "DATA",160.16,14,"FIELD",576,2) BLANK "DATA",160.16,14,"FIELD",576,3) L,BLANK^446 "DATA",160.16,14,"FIELD",576,4) MULTIPLICITY COUNTER (165.5,196) "DATA",160.16,14,"FIELD",578,0) 1506^4^1509^Year First Seen This CA "DATA",160.16,14,"FIELD",578,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,14,"FIELD",578,2) BLANK "DATA",160.16,14,"FIELD",578,3) L,ZERO^620 "DATA",160.16,14,"FIELD",578,4) ACCESSION YEAR (165.5,.07) "DATA",160.16,14,"FIELD",579,0) 1510^1^1510^Protocol Eligibility Stat "DATA",160.16,14,"FIELD",579,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,14,"FIELD",579,2) BLANK "DATA",160.16,14,"FIELD",579,3) L,BLANK^1470 "DATA",160.16,14,"FIELD",579,4) PROTOCOL ELIGIBILITY STATUS (165.5,346) "DATA",160.16,14,"FIELD",580,0) 1511^2^1512^Protocol Participation "DATA",160.16,14,"FIELD",580,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,14,"FIELD",580,2) BLANK "DATA",160.16,14,"FIELD",580,3) L,BLANK^1480 "DATA",160.16,14,"FIELD",580,4) PROTOCOL PARTICIPATION (165.5,560) "DATA",160.16,14,"FIELD",581,0) 890^4^893^Reserved 33 "DATA",160.16,14,"FIELD",581,1) S ACDANS="" "DATA",160.16,14,"FIELD",581,2) BLANK "DATA",160.16,14,"FIELD",581,3) L,BLANK^1465 "DATA",160.16,14,"FIELD",582,0) 1397^2^1398^Follow-up Source Central "DATA",160.16,14,"FIELD",582,1) S ACDANS="" "DATA",160.16,14,"FIELD",582,2) BLANK "DATA",160.16,14,"FIELD",582,3) L,BLANK^1791 "DATA",160.16,14,"FIELD",582,4) This field is created by the central registry. "DATA",160.16,14,"FIELD",583,0) 1528^1^1528^Performance Status at Dx "DATA",160.16,14,"FIELD",583,1) S ACDANS=$$GET1~DIQ(165.5,IEN,227,"I") "DATA",160.16,14,"FIELD",583,2) BLANK "DATA",160.16,14,"FIELD",583,3) L,BLANK "DATA",160.16,14,"FIELD",583,4) PERFORMANCE STATUS AT DX (165.5,227) "DATA",160.16,14,"FIELD",584,0) 50^2^51^Reserved 01 "DATA",160.16,14,"FIELD",584,1) S ACDANS="" "DATA",160.16,14,"FIELD",584,2) BLANK "DATA",160.16,14,"FIELD",584,3) L,BLANK^370 "DATA",160.16,14,"FIELD",585,0) 2515^10^2524^NPI--Inst Referred To "DATA",160.16,14,"FIELD",585,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,7,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,14,"FIELD",585,2) BLANK "DATA",160.16,14,"FIELD",585,3) L,BLANK^2425 "DATA",160.16,14,"FIELD",585,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",586,0) 2525^10^2534^NPI--Following Registry "DATA",160.16,14,"FIELD",586,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$FNODE~ONCACDU2(ACD160,10) S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,14,"FIELD",586,2) BLANK "DATA",160.16,14,"FIELD",586,3) L,BLANK^2445 "DATA",160.16,14,"FIELD",586,4) NPI (160.19,101) "DATA",160.16,14,"FIELD",587,0) 2535^20^2554^Reserved 11 "DATA",160.16,14,"FIELD",587,1) S ACDANS="" "DATA",160.16,14,"FIELD",587,2) BLANK "DATA",160.16,14,"FIELD",587,3) L,BLANK^1900 "DATA",160.16,14,"FIELD",588,0) 2605^10^2614^NPI--Physician--Follow-Up "DATA",160.16,14,"FIELD",588,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.1,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,14,"FIELD",588,2) BLANK "DATA",160.16,14,"FIELD",588,3) L,BLANK^2475 "DATA",160.16,14,"FIELD",588,4) NPI (165,101) "DATA",160.16,14,"FIELD",589,0) 2615^10^2624^NPI--Physician--Primary Surg "DATA",160.16,14,"FIELD",589,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,14,"FIELD",589,2) BLANK "DATA",160.16,14,"FIELD",589,3) L,BLANK^2485 "DATA",160.16,14,"FIELD",589,4) NPI (165,101) "DATA",160.16,14,"FIELD",590,0) 2625^10^2634^NPI--Physician 3 "DATA",160.16,14,"FIELD",590,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.3,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,14,"FIELD",590,2) BLANK "DATA",160.16,14,"FIELD",590,3) L,BLANK^2495 "DATA",160.16,14,"FIELD",590,4) NPI (165,101) "DATA",160.16,14,"FIELD",591,0) 2635^10^2644^NPI--Physician 4 "DATA",160.16,14,"FIELD",591,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.4,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,14,"FIELD",591,2) BLANK "DATA",160.16,14,"FIELD",591,3) L,BLANK^2505 "DATA",160.16,14,"FIELD",591,4) NPI (165,101) "DATA",160.16,14,"FIELD",592,0) 235^1^235^CensusBlockGroup 70/80/90 "DATA",160.16,14,"FIELD",592,1) S ACDANS="" "DATA",160.16,14,"FIELD",592,2) BLANK "DATA",160.16,14,"FIELD",592,3) L,BLANK^368 "DATA",160.16,14,"FIELD",593,0) 1529^6^1534^Chemotherapeutic agent #1 "DATA",160.16,14,"FIELD",593,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,14,"FIELD",593,2) BLANK "DATA",160.16,14,"FIELD",593,3) L,BLANK "DATA",160.16,14,"FIELD",593,4) CHEMOTHERAPEUTIC AGENT #1 (165.5,1423) "DATA",160.16,14,"FIELD",594,0) 1535^6^1540^Chemotherapeutic agent #2 "DATA",160.16,14,"FIELD",594,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,14,"FIELD",594,2) BLANK "DATA",160.16,14,"FIELD",594,3) L,BLANK "DATA",160.16,14,"FIELD",594,4) CHEMOTHERAPEUTIC AGENT #2 (165.5,1423.1) "DATA",160.16,14,"FIELD",595,0) 1541^6^1546^Chemotherapeutic agent #3 "DATA",160.16,14,"FIELD",595,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,14,"FIELD",595,2) BLANK "DATA",160.16,14,"FIELD",595,3) L,BLANK "DATA",160.16,14,"FIELD",595,4) CHEMOTHERAPEUTIC AGENT #3 (165.5,1423.2) "DATA",160.16,14,"FIELD",596,0) 1547^6^1552^Chemotherapeutic agent #4 "DATA",160.16,14,"FIELD",596,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,14,"FIELD",596,2) BLANK "DATA",160.16,14,"FIELD",596,3) L,BLANK "DATA",160.16,14,"FIELD",596,4) CHEMOTHERAPEUTIC AGENT #4 (165.5,1423.3) "DATA",160.16,14,"FIELD",597,0) 1553^6^1558^Chemotherapeutic agent #5 "DATA",160.16,14,"FIELD",597,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,14,"FIELD",597,2) BLANK "DATA",160.16,14,"FIELD",597,3) L,BLANK "DATA",160.16,14,"FIELD",597,4) CHEMOTHERAPEUTIC AGENT #5 (165.5,1423.4) "DATA",160.16,14,"FIELD",598,0) 1559^8^1566^Subsq RX 2nd Surg Date "DATA",160.16,14,"FIELD",598,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.041) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",598,2) BLANK "DATA",160.16,14,"FIELD",598,3) L,BLANK "DATA",160.16,14,"FIELD",598,4) SURGERY OF PRIMARY SITE DATE (165.51,.041) "DATA",160.16,14,"FIELD",599,0) 238^43^280^Reserved 02 "DATA",160.16,14,"FIELD",599,1) S ACDANS="" "DATA",160.16,14,"FIELD",599,2) BLANK "DATA",160.16,14,"FIELD",599,3) L,BLANK^530 "DATA",160.16,14,"FIELD",600,0) 1407^40^1446^Reserved 09 "DATA",160.16,14,"FIELD",600,1) S ACDANS="" "DATA",160.16,14,"FIELD",600,2) BLANK "DATA",160.16,14,"FIELD",600,3) L,BLANK^1740 "DATA",160.16,14,"FIELD",601,0) 1567^8^1574^Subsq RX 2nd Rad Date "DATA",160.16,14,"FIELD",601,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.051) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",601,2) BLANK "DATA",160.16,14,"FIELD",601,3) L,BLANK "DATA",160.16,14,"FIELD",601,4) RADIATION DATE (165.51,.051) "DATA",160.16,14,"FIELD",602,0) 1575^8^1582^Subsq RX 2nd Chemo Date "DATA",160.16,14,"FIELD",602,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.061) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",602,2) BLANK "DATA",160.16,14,"FIELD",602,3) L,BLANK "DATA",160.16,14,"FIELD",602,4) CHEMOTHERAPY DATE (165.51,.061) "DATA",160.16,14,"FIELD",603,0) 1583^8^1590^Subsq RX 2nd Horm Date "DATA",160.16,14,"FIELD",603,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.071) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",603,2) BLANK "DATA",160.16,14,"FIELD",603,3) L,BLANK "DATA",160.16,14,"FIELD",603,4) HORMONE THERAPY DATE (165.51,.071) "DATA",160.16,14,"FIELD",604,0) 1591^8^1598^Subsq RX 2nd BRM Date "DATA",160.16,14,"FIELD",604,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.081) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",604,2) BLANK "DATA",160.16,14,"FIELD",604,3) L,BLANK "DATA",160.16,14,"FIELD",604,4) IMMUNOTHERAPY DATE (165.51,.081) "DATA",160.16,14,"FIELD",605,0) 1599^8^1606^Subsq RX 2nd Other Date "DATA",160.16,14,"FIELD",605,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.091) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",605,2) BLANK "DATA",160.16,14,"FIELD",605,3) L,BLANK "DATA",160.16,14,"FIELD",605,4) OTHER TREATMENT START DATE (165.51,.091) "DATA",160.16,14,"FIELD",607,0) 1613^171^1783^Reserved for expansion "DATA",160.16,14,"FIELD",607,1) S ACDANS="" "DATA",160.16,14,"FIELD",607,2) BLANK "DATA",160.16,14,"FIELD",607,3) L,BLANK "DATA",160.16,14,"FIELD",608,0) 1607^1^1607^Vietnam Service "DATA",160.16,14,"FIELD",608,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,62,"I")) "DATA",160.16,14,"FIELD",608,2) BLANK "DATA",160.16,14,"FIELD",608,3) L,BLANK "DATA",160.16,14,"FIELD",608,4) VIETNAM SERVICE (160,62) "DATA",160.16,14,"FIELD",609,0) 1608^1^1608^Grenada Service "DATA",160.16,14,"FIELD",609,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,63,"I")) "DATA",160.16,14,"FIELD",609,2) BLANK "DATA",160.16,14,"FIELD",609,3) L,BLANK "DATA",160.16,14,"FIELD",609,4) GRENADA SERVICE (160,63) "DATA",160.16,14,"FIELD",610,0) 1609^1^1609^Panama Service "DATA",160.16,14,"FIELD",610,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,64,"I")) "DATA",160.16,14,"FIELD",610,2) BLANK "DATA",160.16,14,"FIELD",610,3) L,BLANK "DATA",160.16,14,"FIELD",610,4) PANAMA SERVICE (160,64) "DATA",160.16,14,"FIELD",611,0) 1610^1^1610^Yugoslavia Service "DATA",160.16,14,"FIELD",611,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,65,"I")) "DATA",160.16,14,"FIELD",611,2) BLANK "DATA",160.16,14,"FIELD",611,3) L,BLANK "DATA",160.16,14,"FIELD",611,4) YUGOSLAVIA SERVICE (160,65) "DATA",160.16,14,"FIELD",612,0) 1611^1^1611^Afghanistan (OEF) Service "DATA",160.16,14,"FIELD",612,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,67,"I")) "DATA",160.16,14,"FIELD",612,2) BLANK "DATA",160.16,14,"FIELD",612,3) L,BLANK "DATA",160.16,14,"FIELD",612,4) AFGHANISTAN (OEF) SERVICE (160,67) "DATA",160.16,14,"FIELD",613,0) 1612^1^1612^Iraq (OIF) Service "DATA",160.16,14,"FIELD",613,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,66,"I")) "DATA",160.16,14,"FIELD",613,2) BLANK "DATA",160.16,14,"FIELD",613,3) L,BLANK "DATA",160.16,14,"FIELD",613,4) IRAQ (OIF) SERVICE (160,66) "DATA",160.16,14,"RULES",0) ^160.162^10^10^3090930^^^^ "DATA",160.16,14,"RULES",1,0) S VALID=1 "DATA",160.16,14,"RULES",2,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "DATA",160.16,14,"RULES",3,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,14,"RULES",4,0) I DATEDX<3000000,"^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,14,"RULES",5,0) I DATEDX>2991231,"^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,14,"RULES",6,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,14,"RULES",7,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,14,"RULES",8,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,14,"RULES",9,0) S JUMP=0 "DATA",160.16,14,"RULES",10,0) K SCREEN "DATA",160.16,15,0) FOLLOW-UP EXTRACT V11.3 "DATA",160.16,15,"FIELD",0) ^160.161I^606^62 "DATA",160.16,15,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,15,"FIELD",1,1) S ACDANS="F" "DATA",160.16,15,"FIELD",1,2) BLANK "DATA",160.16,15,"FIELD",1,3) L,BLANK^10 "DATA",160.16,15,"FIELD",1,4) "F" Follow-up "DATA",160.16,15,"FIELD",2,0) 2^116^117^Reserved 00 "DATA",160.16,15,"FIELD",2,1) S ACDANS="" "DATA",160.16,15,"FIELD",2,2) BLANK "DATA",160.16,15,"FIELD",2,3) L,BLANK^ "DATA",160.16,15,"FIELD",41,0) 291^4^294^Primary Site "DATA",160.16,15,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,15,"FIELD",41,2) BLANK "DATA",160.16,15,"FIELD",41,3) L,ZERO^400 "DATA",160.16,15,"FIELD",41,4) PRIMARY SITE (165.5,20) "DATA",160.16,15,"FIELD",42,0) 295^1^295^Laterality "DATA",160.16,15,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,15,"FIELD",42,2) BLANK "DATA",160.16,15,"FIELD",42,3) L,BLANK^410 "DATA",160.16,15,"FIELD",42,4) LATERALITY (165.5,28) "DATA",160.16,15,"FIELD",43,0) 296^5^300^Reserved 03 "DATA",160.16,15,"FIELD",43,1) S ACDANS="" "DATA",160.16,15,"FIELD",43,2) BLANK "DATA",160.16,15,"FIELD",43,3) L,BLANK^ "DATA",160.16,15,"FIELD",43,4) "DATA",160.16,15,"FIELD",45,0) 306^66^371^Reserved 04 "DATA",160.16,15,"FIELD",45,1) S ACDANS="" "DATA",160.16,15,"FIELD",45,2) BLANK "DATA",160.16,15,"FIELD",45,3) L,BLANK^ "DATA",160.16,15,"FIELD",45,4) "DATA",160.16,15,"FIELD",54,0) 301^5^305^Morph--Type&Behav ICD-O-3 "DATA",160.16,15,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,15,"FIELD",54,2) BLANK "DATA",160.16,15,"FIELD",54,3) L,ZERO^521 "DATA",160.16,15,"FIELD",54,4) HISTOLOGY (ICD-O-3) (165.5,22.3) "DATA",160.16,15,"FIELD",57,0) 411^2^412^Sequence Number--Hospital "DATA",160.16,15,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,15,"FIELD",57,2) BLANK "DATA",160.16,15,"FIELD",57,3) L,ZERO^560 "DATA",160.16,15,"FIELD",57,4) SEQUENCE NUMBER (165.5,.06) "DATA",160.16,15,"FIELD",58,0) 413^583^995^Reserved 06 "DATA",160.16,15,"FIELD",58,1) S ACDANS="" "DATA",160.16,15,"FIELD",58,2) BLANK "DATA",160.16,15,"FIELD",58,3) L,BLANK^ "DATA",160.16,15,"FIELD",58,4) "DATA",160.16,15,"FIELD",168,0) 996^2^997^Subsq RX 2nd Course Surg "DATA",160.16,15,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,15,"FIELD",168,2) BLANK "DATA",160.16,15,"FIELD",168,3) L,ZERO^1671 "DATA",160.16,15,"FIELD",168,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,15,"FIELD",169,0) 998^1^998^Subsq RX 2nd Course Rad "DATA",160.16,15,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,15,"FIELD",169,2) BLANK "DATA",160.16,15,"FIELD",169,3) L,BLANK^1672 "DATA",160.16,15,"FIELD",169,4) RADIATION (165.51,.05) "DATA",160.16,15,"FIELD",170,0) 999^1^999^Subsq RX 2nd Course Chemo "DATA",160.16,15,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,15,"FIELD",170,2) BLANK "DATA",160.16,15,"FIELD",170,3) L,BLANK^1673 "DATA",160.16,15,"FIELD",170,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,15,"FIELD",171,0) 1000^1^1000^Subsq RX 2nd Course Horm "DATA",160.16,15,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,15,"FIELD",171,2) BLANK "DATA",160.16,15,"FIELD",171,3) L,BLANK^1674 "DATA",160.16,15,"FIELD",171,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,15,"FIELD",172,0) 1001^1^1001^Subsq RX 2nd Course BRM "DATA",160.16,15,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,15,"FIELD",172,2) BLANK "DATA",160.16,15,"FIELD",172,3) L,BLANK^1675 "DATA",160.16,15,"FIELD",172,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,15,"FIELD",173,0) 1002^1^1002^Subsq RX 2nd Course Oth "DATA",160.16,15,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,15,"FIELD",173,2) BLANK "DATA",160.16,15,"FIELD",173,3) L,BLANK^1676 "DATA",160.16,15,"FIELD",173,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,15,"FIELD",174,0) 1003^291^1293^Reserved 07 "DATA",160.16,15,"FIELD",174,1) S ACDANS="" "DATA",160.16,15,"FIELD",174,2) BLANK "DATA",160.16,15,"FIELD",174,3) L,BLANK^ "DATA",160.16,15,"FIELD",174,4) "DATA",160.16,15,"FIELD",196,0) 1294^8^1301^Date of Last Contact "DATA",160.16,15,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",196,2) BLANK "DATA",160.16,15,"FIELD",196,3) L,ZERO^1750 "DATA",160.16,15,"FIELD",196,4) DATE OF LAST CONTACT OR DEATH (160.04,.01) "DATA",160.16,15,"FIELD",197,0) 1302^1^1302^Vital Status "DATA",160.16,15,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,15,"FIELD",197,2) BLANK "DATA",160.16,15,"FIELD",197,3) L,BLANK^1760 "DATA",160.16,15,"FIELD",197,4) VITAL STATUS (160.04,1) "DATA",160.16,15,"FIELD",198,0) 1303^1^1303^Cancer Status "DATA",160.16,15,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,15,"FIELD",198,2) BLANK "DATA",160.16,15,"FIELD",198,3) L,BLANK^1770 "DATA",160.16,15,"FIELD",198,4) CANCER STATUS (165.573,.02) "DATA",160.16,15,"FIELD",199,0) 1304^3^1306^Reserved 08 "DATA",160.16,15,"FIELD",199,1) S ACDANS="" "DATA",160.16,15,"FIELD",199,2) BLANK "DATA",160.16,15,"FIELD",199,3) L,BLANK^ "DATA",160.16,15,"FIELD",199,4) "DATA",160.16,15,"FIELD",202,0) 1307^20^1326^Addr Current--City "DATA",160.16,15,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,15,"FIELD",202,2) BLANK "DATA",160.16,15,"FIELD",202,3) R,BLANK^1810 "DATA",160.16,15,"FIELD",202,4) CITY (2,.114) "DATA",160.16,15,"FIELD",203,0) 1327^2^1328^Addr Current--State "DATA",160.16,15,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) S:ACDANS="" ACDANS="ZZ" "DATA",160.16,15,"FIELD",203,2) BLANK "DATA",160.16,15,"FIELD",203,3) R,BLANK^1820 "DATA",160.16,15,"FIELD",203,4) STATE (2,.115) "DATA",160.16,15,"FIELD",204,0) 1329^9^1337^Addr Current--Postal Code "DATA",160.16,15,"FIELD",204,1) S ACDANS=$$GET1~DIQ(160,ACD160,.116,"E") S:ACDANS=75999 ACDANS=999999999 D STRIP~ONCACDU2 "DATA",160.16,15,"FIELD",204,2) NINE "DATA",160.16,15,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,15,"FIELD",204,4) ZIP CODE (2,.116) "DATA",160.16,15,"FIELD",206,0) 1341^1^1341^Reserved 09 "DATA",160.16,15,"FIELD",206,1) S ACDANS="" "DATA",160.16,15,"FIELD",206,2) BLANK "DATA",160.16,15,"FIELD",206,3) L,BLANK^ "DATA",160.16,15,"FIELD",206,4) "DATA",160.16,15,"FIELD",207,0) 1342^8^1349^Recurrence Date--1st "DATA",160.16,15,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,15,"FIELD",207,2) NINE "DATA",160.16,15,"FIELD",207,3) L,NINE^1860 "DATA",160.16,15,"FIELD",207,4) DATE OF FIRST RECURRENCE (165.5,70) "DATA",160.16,15,"FIELD",208,0) 1350^1^1350^Recurrence Distant Site 1 "DATA",160.16,15,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I") "DATA",160.16,15,"FIELD",208,2) BLANK "DATA",160.16,15,"FIELD",208,3) L,BLANK^1871 "DATA",160.16,15,"FIELD",208,4) DISTANT SITE 1 (165.5,71.1) "DATA",160.16,15,"FIELD",209,0) 1353^2^1354^Recurrence Type--1st "DATA",160.16,15,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,15,"FIELD",209,2) NINE "DATA",160.16,15,"FIELD",209,3) L,ZERO^1880 "DATA",160.16,15,"FIELD",209,4) TYPE OF FIRST RECURRENCE (165.5,71) "DATA",160.16,15,"FIELD",210,0) 1355^33^1387^Reserved 10 "DATA",160.16,15,"FIELD",210,1) S ACDANS="" "DATA",160.16,15,"FIELD",210,2) BLANK "DATA",160.16,15,"FIELD",210,3) L,BLANK^ "DATA",160.16,15,"FIELD",210,4) "DATA",160.16,15,"FIELD",211,0) 1338^3^1340^County--Current "DATA",160.16,15,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,15,"FIELD",211,2) BLANK "DATA",160.16,15,"FIELD",211,3) L,BLANK^1840 "DATA",160.16,15,"FIELD",213,0) 1388^4^1391^Cause of Death "DATA",160.16,15,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) S:ACDANS="" ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,15,"FIELD",213,2) BLANK "DATA",160.16,15,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,15,"FIELD",213,4) CAUSE OF DEATH (160,19) "DATA",160.16,15,"FIELD",214,0) 1392^2^1393^Reserved 11 "DATA",160.16,15,"FIELD",214,1) S ACDANS="" "DATA",160.16,15,"FIELD",214,2) BLANK "DATA",160.16,15,"FIELD",214,3) L,BLANK^ "DATA",160.16,15,"FIELD",214,4) "DATA",160.16,15,"FIELD",216,0) 1394^3^1396^Place of Death "DATA",160.16,15,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,15,"FIELD",216,2) BLANK "DATA",160.16,15,"FIELD",216,3) L,BLANK^1940 "DATA",160.16,15,"FIELD",216,4) PLACE OF DEATH (160,21) "DATA",160.16,15,"FIELD",382,0) 382^10^391^Reporting Facility "DATA",160.16,15,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") I (ACDANS=9999999)&($L(STAT1)=8) S ACDANS=99999999 "DATA",160.16,15,"FIELD",382,2) ZERO "DATA",160.16,15,"FIELD",382,3) L,ZERO^540 "DATA",160.16,15,"FIELD",382,4) REPORTING FACILITY (165.5,.03) "DATA",160.16,15,"FIELD",383,0) 402^9^410^Accession Number--Hosp "DATA",160.16,15,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,15,"FIELD",383,2) BLANK "DATA",160.16,15,"FIELD",383,3) L,ZERO^550 "DATA",160.16,15,"FIELD",383,4) ACCESSION NUMBER (165.5,.05) "DATA",160.16,15,"FIELD",388,0) 372^10^381^NPI--Reporting Facility "DATA",160.16,15,"FIELD",388,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,.03,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,15,"FIELD",388,2) BLANK "DATA",160.16,15,"FIELD",388,3) L,BLANK^545 "DATA",160.16,15,"FIELD",388,4) NPI (160.19,101) "DATA",160.16,15,"FIELD",417,0) 118^1^118^Sex "DATA",160.16,15,"FIELD",417,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,15,"FIELD",417,2) BLANK "DATA",160.16,15,"FIELD",417,3) L,BLANK^220 "DATA",160.16,15,"FIELD",417,4) SEX (160,10) "DATA",160.16,15,"FIELD",418,0) 119^3^121^Reserved 01 "DATA",160.16,15,"FIELD",418,1) S ACDANS="" "DATA",160.16,15,"FIELD",418,2) BLANK "DATA",160.16,15,"FIELD",418,3) L,BLANK^ "DATA",160.16,15,"FIELD",418,4) "DATA",160.16,15,"FIELD",419,0) 122^8^129^Birth Date "DATA",160.16,15,"FIELD",419,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,15,"FIELD",419,2) BLANK "DATA",160.16,15,"FIELD",419,3) L,ZERO^240 "DATA",160.16,15,"FIELD",419,4) DOB~ONCOES "DATA",160.16,15,"FIELD",420,0) 130^153^282^Reserved 02 "DATA",160.16,15,"FIELD",420,1) S ACDANS="" "DATA",160.16,15,"FIELD",420,2) BLANK "DATA",160.16,15,"FIELD",420,3) L,BLANK^ "DATA",160.16,15,"FIELD",420,4) "DATA",160.16,15,"FIELD",434,0) 283^8^290^Date of Diagnosis "DATA",160.16,15,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",434,2) BLANK "DATA",160.16,15,"FIELD",434,3) L,ZERO^390 "DATA",160.16,15,"FIELD",434,4) DATE DX (165.5,3) "DATA",160.16,15,"FIELD",438,0) 392^10^401^Reserved 05 "DATA",160.16,15,"FIELD",438,1) S ACDANS="" "DATA",160.16,15,"FIELD",438,2) BLANK "DATA",160.16,15,"FIELD",438,3) L,BLANK^ "DATA",160.16,15,"FIELD",438,4) "DATA",160.16,15,"FIELD",475,0) 1351^1^1351^Recurrence Distant Site 2 "DATA",160.16,15,"FIELD",475,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.2,"I") "DATA",160.16,15,"FIELD",475,2) BLANK "DATA",160.16,15,"FIELD",475,3) L,BLANK^1872 "DATA",160.16,15,"FIELD",475,4) DISTANT SITE 2 (165.5,71.2) "DATA",160.16,15,"FIELD",476,0) 1352^1^1352^Recurrence Distant Site 3 "DATA",160.16,15,"FIELD",476,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,15,"FIELD",476,2) BLANK "DATA",160.16,15,"FIELD",476,3) L,BLANK^1873 "DATA",160.16,15,"FIELD",476,4) DISTANT SITE 3 (165.5,71.3) "DATA",160.16,15,"FIELD",484,0) 1947^25^1971^Name--Last "DATA",160.16,15,"FIELD",484,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,15,"FIELD",484,2) BLANK "DATA",160.16,15,"FIELD",484,3) R,BLANK^2230 "DATA",160.16,15,"FIELD",484,4) LAST NAME (160,.011) "DATA",160.16,15,"FIELD",485,0) 1972^14^1985^Name--First "DATA",160.16,15,"FIELD",485,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," "),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,15,"FIELD",485,2) BLANK "DATA",160.16,15,"FIELD",485,3) R,BLANK^2240 "DATA",160.16,15,"FIELD",485,4) NAME (160,.01) "DATA",160.16,15,"FIELD",486,0) 1986^89^2098^Reserved 14 "DATA",160.16,15,"FIELD",486,1) S ACDANS="" "DATA",160.16,15,"FIELD",486,2) BLANK "DATA",160.16,15,"FIELD",486,3) L,BLANK^ "DATA",160.16,15,"FIELD",486,4) "DATA",160.16,15,"FIELD",494,0) 2099^9^2107^Social Security Number "DATA",160.16,15,"FIELD",494,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,15,"FIELD",494,2) NINE "DATA",160.16,15,"FIELD",494,3) L,BLANK^2320 "DATA",160.16,15,"FIELD",494,4) SSN (160,2) "DATA",160.16,15,"FIELD",495,0) 2108^80^2187^Reserved 15 "DATA",160.16,15,"FIELD",495,1) S ACDANS="' "DATA",160.16,15,"FIELD",495,2) BLANK "DATA",160.16,15,"FIELD",495,3) L,BLANK^ "DATA",160.16,15,"FIELD",495,4) "DATA",160.16,15,"FIELD",497,0) 2188^40^2227^Addr Current--No & Street "DATA",160.16,15,"FIELD",497,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,15,"FIELD",497,2) BLANK "DATA",160.16,15,"FIELD",497,3) R,BLANK^2350 "DATA",160.16,15,"FIELD",497,4) PATIENT ADDRESS - CURRENT (160,.119) "DATA",160.16,15,"FIELD",508,0) 2475^10^2484^Following Registry "DATA",160.16,15,"FIELD",508,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,15,"FIELD",508,2) ZERO "DATA",160.16,15,"FIELD",508,3) L,ZERO^2440 "DATA",160.16,15,"FIELD",508,4) FOLLOWING REGISTRY (160.04,10) "DATA",160.16,15,"FIELD",509,0) 2485^40^2524^Reserved 17 "DATA",160.16,15,"FIELD",509,1) S ACDANS="" "DATA",160.16,15,"FIELD",509,2) BLANK "DATA",160.16,15,"FIELD",509,3) L,BLANK^ "DATA",160.16,15,"FIELD",509,4) "DATA",160.16,15,"FIELD",582,0) 1397^162^1558^Reserved 12 "DATA",160.16,15,"FIELD",582,1) S ACDANS="" "DATA",160.16,15,"FIELD",582,2) BLANK "DATA",160.16,15,"FIELD",582,3) L,BLANK^ "DATA",160.16,15,"FIELD",582,4) "DATA",160.16,15,"FIELD",586,0) 2525^10^2534^NPI--Following Registry "DATA",160.16,15,"FIELD",586,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$FNODE~ONCACDU2(ACD160,10) S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,15,"FIELD",586,2) BLANK "DATA",160.16,15,"FIELD",586,3) L,BLANK^2445 "DATA",160.16,15,"FIELD",586,4) NPI (160.19,101) "DATA",160.16,15,"FIELD",587,0) 2535^4160^6694^Reserved 18 "DATA",160.16,15,"FIELD",587,1) S ACDANS="" "DATA",160.16,15,"FIELD",587,2) BLANK "DATA",160.16,15,"FIELD",587,3) L,BLANK^ "DATA",160.16,15,"FIELD",598,0) 1559^8^1566^Subsq RX 2nd Surg Date "DATA",160.16,15,"FIELD",598,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.041) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",598,2) BLANK "DATA",160.16,15,"FIELD",598,3) L,BLANK "DATA",160.16,15,"FIELD",598,4) SURGERY OF PRIMARY SITE DATE (165.51,.041) "DATA",160.16,15,"FIELD",599,0) 1567^8^1574^Subsq RX 2nd Rad Date "DATA",160.16,15,"FIELD",599,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.051) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",599,2) BLANK "DATA",160.16,15,"FIELD",599,3) L,BLANK "DATA",160.16,15,"FIELD",599,4) RADIATION DATE (165.51,.051) "DATA",160.16,15,"FIELD",600,0) 1575^8^1582^Subsq RX 2nd Chemo Date "DATA",160.16,15,"FIELD",600,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.061) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",600,2) BLANK "DATA",160.16,15,"FIELD",600,3) L,BLANK "DATA",160.16,15,"FIELD",600,4) CHEMOTHERAPY DATE (165.51,.061) "DATA",160.16,15,"FIELD",601,0) 1583^8^1590^Subsq RX 2nd Horm Date "DATA",160.16,15,"FIELD",601,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.071) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",601,2) BLANK "DATA",160.16,15,"FIELD",601,3) L,BLANK "DATA",160.16,15,"FIELD",601,4) HORMONE THERAPY DATE (165.51,.071) "DATA",160.16,15,"FIELD",602,0) 1591^8^1598^Subsq RX 2nd BRM Date "DATA",160.16,15,"FIELD",602,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.081) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",602,2) BLANK "DATA",160.16,15,"FIELD",602,3) L,BLANK "DATA",160.16,15,"FIELD",602,4) IMMUNOTHERAPY DATE (165.51,.081) "DATA",160.16,15,"FIELD",603,0) 1599^8^1606^Subsq RX 2nd Other Date "DATA",160.16,15,"FIELD",603,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.091) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,15,"FIELD",603,2) BLANK "DATA",160.16,15,"FIELD",603,3) L,BLANK "DATA",160.16,15,"FIELD",603,4) OTHER TREATMENT START DATE (165.51,.091) "DATA",160.16,15,"FIELD",605,0) 1607^340^1946^Reserved 13 "DATA",160.16,15,"FIELD",605,1) S ACDANS="" "DATA",160.16,15,"FIELD",605,2) BLANK "DATA",160.16,15,"FIELD",605,3) L,BLANK "DATA",160.16,15,"FIELD",606,0) 2228^247^2474^Reserved 16 "DATA",160.16,15,"FIELD",606,1) S ACDANS="" "DATA",160.16,15,"FIELD",606,2) BLANK "DATA",160.16,15,"FIELD",606,3) L,BLANK "DATA",160.16,15,"RULES",0) ^160.162^10^10^3090528^^^^ "DATA",160.16,15,"RULES",1,0) S VALID=1 "DATA",160.16,15,"RULES",2,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "DATA",160.16,15,"RULES",3,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,15,"RULES",4,0) I DATEDX<3000000,"^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,15,"RULES",5,0) I DATEDX>2991231,"^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,15,"RULES",6,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,15,"RULES",7,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,15,"RULES",8,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,15,"RULES",9,0) S JUMP=0 "DATA",160.16,15,"RULES",10,0) K SCREEN "DATA",160.16,16,0) VACCR EXTRACT V12 "DATA",160.16,16,"FIELD",0) ^160.161I^735^546 "DATA",160.16,16,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,16,"FIELD",1,1) S ACDANS="A" "DATA",160.16,16,"FIELD",1,2) BLANK "DATA",160.16,16,"FIELD",1,3) L,BLANK^10 "DATA",160.16,16,"FIELD",1,4) "A" Full case Abstract record type (incidence and confidential data plus text summaries; used for reporting to central registries) "DATA",160.16,16,"FIELD",2,0) 42^8^49^Patient ID Number "DATA",160.16,16,"FIELD",2,1) S ACDANS=99999999 "DATA",160.16,16,"FIELD",2,2) BLANK "DATA",160.16,16,"FIELD",2,3) L,BLANK^20 "DATA",160.16,16,"FIELD",3,0) 2^1^2^Registry Type "DATA",160.16,16,"FIELD",3,1) S ACDANS=3 "DATA",160.16,16,"FIELD",3,2) BLANK "DATA",160.16,16,"FIELD",3,3) L,BLANK^30 "DATA",160.16,16,"FIELD",3,4) 3 Single hospital/freestanding center "DATA",160.16,16,"FIELD",4,0) 3^1^3^FIN Coding System "DATA",160.16,16,"FIELD",4,1) S ACDANS=$S($L(STAT1)=7:1,$L(STAT1)=8:2,1:9) "DATA",160.16,16,"FIELD",4,2) BLANK "DATA",160.16,16,"FIELD",4,3) L,BLANK^35 "DATA",160.16,16,"FIELD",4,4) FACILITY ID # (160.1,27) "DATA",160.16,16,"FIELD",5,0) 17^3^19^NAACCR Record Version "DATA",160.16,16,"FIELD",5,1) S ACDANS=120 "DATA",160.16,16,"FIELD",5,2) BLANK "DATA",160.16,16,"FIELD",5,3) L,BLANK^50 "DATA",160.16,16,"FIELD",5,4) 2010 Version 12 "DATA",160.16,16,"FIELD",6,0) 30^10^39^Registry Id "DATA",160.16,16,"FIELD",6,1) S ACDANS=STAT1 "DATA",160.16,16,"FIELD",6,2) ZERO "DATA",160.16,16,"FIELD",6,3) L,ZERO^40 "DATA",160.16,16,"FIELD",6,4) INSTITUTION ID NUMBER (160.1,27) "DATA",160.16,16,"FIELD",18,0) 147^9^155^Addr at DX--Postal Code "DATA",160.16,16,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",18,2) BLANK "DATA",160.16,16,"FIELD",18,3) R,BLANK^100 "DATA",160.16,16,"FIELD",18,4) POSTAL CODE AT DX (165.5,9) "DATA",160.16,16,"FIELD",26,0) 168^6^173^Census Tract 2000 "DATA",160.16,16,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,16,"FIELD",26,2) BLANK "DATA",160.16,16,"FIELD",26,3) L,BLANK^130 "DATA",160.16,16,"FIELD",26,4) CENSUS TRACT (165.5,147) "DATA",160.16,16,"FIELD",29,0) 175^1^175^Census Tr Certainty 2000 "DATA",160.16,16,"FIELD",29,1) S ACDANS="" "DATA",160.16,16,"FIELD",29,2) BLANK "DATA",160.16,16,"FIELD",29,3) L,BLANK^365 "DATA",160.16,16,"FIELD",30,0) 176^1^176^Marital Status at DX "DATA",160.16,16,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,16,"FIELD",30,2) BLANK "DATA",160.16,16,"FIELD",30,3) L,BLANK^150 "DATA",160.16,16,"FIELD",30,4) MARITAL STATUS AT DX (165.5,11) "DATA",160.16,16,"FIELD",31,0) 177^2^178^Race 1 "DATA",160.16,16,"FIELD",31,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,16,"FIELD",31,2) BLANK "DATA",160.16,16,"FIELD",31,3) L,ZERO^160 "DATA",160.16,16,"FIELD",31,4) RACE 1 (160,8) "DATA",160.16,16,"FIELD",32,0) 217^100^316^Text--Usual Occupation "DATA",160.16,16,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,16,"FIELD",32,2) BLANK "DATA",160.16,16,"FIELD",32,3) R,BLANK^310 "DATA",160.16,16,"FIELD",32,4) USUAL OCCUPATION (160.042,.01) "DATA",160.16,16,"FIELD",33,0) 317^100^416^Text--Usual Industry "DATA",160.16,16,"FIELD",33,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,16,"FIELD",33,2) BLANK "DATA",160.16,16,"FIELD",33,3) R,BLANK^320 "DATA",160.16,16,"FIELD",33,4) USUAL INDUSTRY (160.042,3) "DATA",160.16,16,"FIELD",41,0) 540^4^543^Primary Site "DATA",160.16,16,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,16,"FIELD",41,2) BLANK "DATA",160.16,16,"FIELD",41,3) L,ZERO^400 "DATA",160.16,16,"FIELD",41,4) PRIMARY SITE (165.5,20) "DATA",160.16,16,"FIELD",42,0) 544^1^544^Laterality "DATA",160.16,16,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,16,"FIELD",42,2) BLANK "DATA",160.16,16,"FIELD",42,3) L,BLANK^410 "DATA",160.16,16,"FIELD",42,4) LATERALITY (165.5,28) "DATA",160.16,16,"FIELD",43,0) 545^5^549^Morph--Type&Behav ICD-O-2 "DATA",160.16,16,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,16,"FIELD",43,2) BLANK "DATA",160.16,16,"FIELD",43,3) L,ZERO^419 "DATA",160.16,16,"FIELD",43,4) HISTOLOGY (ICD-O-2) (165.5,22) "DATA",160.16,16,"FIELD",45,0) 555^1^555^Grade "DATA",160.16,16,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,16,"FIELD",45,2) BLANK "DATA",160.16,16,"FIELD",45,3) L,ZERO^440 "DATA",160.16,16,"FIELD",45,4) GRADE/DIFFERENTIATION (165.5,24) "DATA",160.16,16,"FIELD",46,0) 558^1^558^Site Coding Sys--Current "DATA",160.16,16,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,16,"FIELD",46,2) BLANK "DATA",160.16,16,"FIELD",46,3) L,ZERO^450 "DATA",160.16,16,"FIELD",46,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,16,"FIELD",47,0) 559^1^559^Site Coding Sys--Original "DATA",160.16,16,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,16,"FIELD",47,2) BLANK "DATA",160.16,16,"FIELD",47,3) L,ZERO^460 "DATA",160.16,16,"FIELD",47,4) 4 = ICD-O, Second Edition; 5 = ICD-O, Third Edition "DATA",160.16,16,"FIELD",48,0) 560^1^560^Morph Coding Sys--Current "DATA",160.16,16,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,16,"FIELD",48,2) BLANK "DATA",160.16,16,"FIELD",48,3) L,ZERO^470 "DATA",160.16,16,"FIELD",48,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,16,"FIELD",49,0) 561^1^561^Morph Coding Sys--Originl "DATA",160.16,16,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,16,"FIELD",49,2) BLANK "DATA",160.16,16,"FIELD",49,3) L,ZERO^480 "DATA",160.16,16,"FIELD",49,4) 6 = ICD-O, Second Edition, plus FAB codes effective 1/1/98; 7 = ICD-O, Third Edition "DATA",160.16,16,"FIELD",50,0) 562^1^562^Diagnostic Confirmation "DATA",160.16,16,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,16,"FIELD",50,2) BLANK "DATA",160.16,16,"FIELD",50,3) L,ZERO^490 "DATA",160.16,16,"FIELD",50,4) DIAGNOSTIC CONFIRMATION (165.5,26) "DATA",160.16,16,"FIELD",51,0) 563^1^563^Type of Reporting Source "DATA",160.16,16,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,16,"FIELD",51,2) BLANK "DATA",160.16,16,"FIELD",51,3) L,BLANK^500 "DATA",160.16,16,"FIELD",51,4) TYPE OF REPORTING SOURCE (165.5,1.2) "DATA",160.16,16,"FIELD",52,0) 2530^8^2537^Screening Date "DATA",160.16,16,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",52,2) BLANK "DATA",160.16,16,"FIELD",52,3) L,BLANK^510 "DATA",160.16,16,"FIELD",52,4) SCREENING DATE (165.5,79) "DATA",160.16,16,"FIELD",53,0) 2538^1^2538^Screening Result "DATA",160.16,16,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,16,"FIELD",53,2) BLANK "DATA",160.16,16,"FIELD",53,3) L,BLANK^520 "DATA",160.16,16,"FIELD",53,4) SCREENING RESULT (165.5,119) "DATA",160.16,16,"FIELD",54,0) 550^5^554^Morph--Type&Behav ICD-O-3 "DATA",160.16,16,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,16,"FIELD",54,2) BLANK "DATA",160.16,16,"FIELD",54,3) L,ZERO^521 "DATA",160.16,16,"FIELD",54,4) HISTOLOGY (ICD-O-3) (165.5,22.3) "DATA",160.16,16,"FIELD",57,0) 740^2^741^Sequence Number--Hospital "DATA",160.16,16,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,16,"FIELD",57,2) BLANK "DATA",160.16,16,"FIELD",57,3) L,ZERO^560 "DATA",160.16,16,"FIELD",57,4) SEQUENCE NUMBER (165.5,.06) "DATA",160.16,16,"FIELD",58,0) 742^3^744^Abstracted By "DATA",160.16,16,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,16,"FIELD",58,2) BLANK "DATA",160.16,16,"FIELD",58,3) R,BLANK^570 "DATA",160.16,16,"FIELD",58,4) ABSTRACTED BY (165.5,92) "DATA",160.16,16,"FIELD",59,0) 745^8^752^Date of 1st Contact "DATA",160.16,16,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,155,"I") S:ACDANS="" ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",59,2) BLANK "DATA",160.16,16,"FIELD",59,3) L,ZERO^580 "DATA",160.16,16,"FIELD",59,4) DATE OF FIRST CONTACT (165.5,155) or DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,16,"FIELD",60,0) 755^8^762^Date of Inpatient Adm "DATA",160.16,16,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",60,2) BLANK "DATA",160.16,16,"FIELD",60,3) L,ZERO^590 "DATA",160.16,16,"FIELD",60,4) DATE OF INPATIENT ADMISSION (165.5,1) "DATA",160.16,16,"FIELD",61,0) 765^8^772^Date of Inpatient Disch "DATA",160.16,16,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",61,2) BLANK "DATA",160.16,16,"FIELD",61,3) L,ZERO^600 "DATA",160.16,16,"FIELD",61,4) DATE OF INPATIENT DISCHARGE (165.5,1.1) "DATA",160.16,16,"FIELD",62,0) 776^2^777^Class of Case "DATA",160.16,16,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,16,"FIELD",62,2) BLANK "DATA",160.16,16,"FIELD",62,3) L,BLANK^610 "DATA",160.16,16,"FIELD",62,4) CLASS OF CASE (165.5,.04) "DATA",160.16,16,"FIELD",64,0) 778^2^779^Primary Payer at DX "DATA",160.16,16,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",64,2) NINE "DATA",160.16,16,"FIELD",64,3) L,BLANK^630 "DATA",160.16,16,"FIELD",64,4) PRIMARY PAYER AT DX (165.5,18) "DATA",160.16,16,"FIELD",65,0) 711^10^720^NPI--Archive FIN "DATA",160.16,16,"FIELD",65,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,16,"FIELD",65,2) BLANK "DATA",160.16,16,"FIELD",65,3) L,BLANK^3105 "DATA",160.16,16,"FIELD",65,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",68,0) 782^2^783^RX Hosp--Surg Prim Site "DATA",160.16,16,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.7,"SPS") "DATA",160.16,16,"FIELD",68,2) NINE "DATA",160.16,16,"FIELD",68,3) L,ZERO^670 "DATA",160.16,16,"FIELD",68,4) SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "DATA",160.16,16,"FIELD",69,0) 800^2^801^RX Hosp--Surg Site 98-02 "DATA",160.16,16,"FIELD",69,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,16,"FIELD",69,2) BLANK "DATA",160.16,16,"FIELD",69,3) L,ZERO^746 "DATA",160.16,16,"FIELD",69,4) SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "DATA",160.16,16,"FIELD",70,0) 789^1^789^RX Hosp--Radiation "DATA",160.16,16,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,16,"FIELD",70,2) BLANK "DATA",160.16,16,"FIELD",70,3) L,ZERO^690 "DATA",160.16,16,"FIELD",70,4) RADIATION @FACILITY (165.5,51.4) "DATA",160.16,16,"FIELD",71,0) 790^2^791^RX Hosp--Chemo "DATA",160.16,16,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,16,"FIELD",71,2) NINE "DATA",160.16,16,"FIELD",71,3) L,BLANK^700 "DATA",160.16,16,"FIELD",71,4) CHEMOTHERAPY @FAC (165.5,53.3) "DATA",160.16,16,"FIELD",72,0) 792^2^793^RX Hosp--Hormone "DATA",160.16,16,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,16,"FIELD",72,2) NINE "DATA",160.16,16,"FIELD",72,3) L,BLANK^710 "DATA",160.16,16,"FIELD",72,4) HORMONE THERAPY @FAC (165.5,54.3) "DATA",160.16,16,"FIELD",73,0) 794^2^795^RX Hosp--BRM "DATA",160.16,16,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,16,"FIELD",73,2) NINE "DATA",160.16,16,"FIELD",73,3) L,BLANK^720 "DATA",160.16,16,"FIELD",73,4) IMMUNOTHERAPY @FAC (165.5,55.3) "DATA",160.16,16,"FIELD",74,0) 796^1^796^RX Hosp--Other "DATA",160.16,16,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,16,"FIELD",74,2) BLANK "DATA",160.16,16,"FIELD",74,3) L,ZERO^730 "DATA",160.16,16,"FIELD",74,4) OTHER TREATMENT @FAC (165.5,57.3) "DATA",160.16,16,"FIELD",75,0) 797^2^798^RX Hosp--DX/Stg Proc "DATA",160.16,16,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,16,"FIELD",75,2) ZNINE "DATA",160.16,16,"FIELD",75,3) L,ZERO^740 "DATA",160.16,16,"FIELD",75,4) SURG DX/STAGING PROC @FAC (165.5,58.4) "DATA",160.16,16,"FIELD",77,0) 905^1^905^SEER Summary Stage 1977 "DATA",160.16,16,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,16,"FIELD",77,2) BLANK "DATA",160.16,16,"FIELD",77,3) L,BLANK^760 "DATA",160.16,16,"FIELD",77,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,16,"FIELD",79,0) 906^3^908^EOD--Tumor Size "DATA",160.16,16,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,16,"FIELD",79,2) BLANK "DATA",160.16,16,"FIELD",79,3) L,ZERO^780 "DATA",160.16,16,"FIELD",79,4) TUMOR SIZE (165.5,29) "DATA",160.16,16,"FIELD",80,0) 909^2^910^EOD--Extension "DATA",160.16,16,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,16,"FIELD",80,2) BLANK "DATA",160.16,16,"FIELD",80,3) L,ZERO^790 "DATA",160.16,16,"FIELD",80,4) EXTENSION (165.5,30) "DATA",160.16,16,"FIELD",81,0) 911^2^912^EOD--Extension Prost Path "DATA",160.16,16,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,16,"FIELD",81,2) BLANK "DATA",160.16,16,"FIELD",81,3) L,ZERO^800 "DATA",160.16,16,"FIELD",81,4) PATHOLOGIC EXTENSION (165.5,30.1) "DATA",160.16,16,"FIELD",82,0) 913^1^913^EOD--Lymph Node Involv "DATA",160.16,16,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,16,"FIELD",82,2) BLANK "DATA",160.16,16,"FIELD",82,3) L,BLANK^810 "DATA",160.16,16,"FIELD",82,4) LYMPH NODES (165.5,31) "DATA",160.16,16,"FIELD",83,0) 914^2^915^Regional Nodes Positive "DATA",160.16,16,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,16,"FIELD",83,2) BLANK "DATA",160.16,16,"FIELD",83,3) L,ZERO^820 "DATA",160.16,16,"FIELD",83,4) REGIONAL LYMPH NODES POSITIVE (165.5,32) "DATA",160.16,16,"FIELD",84,0) 916^2^917^Regional Nodes Examined "DATA",160.16,16,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,16,"FIELD",84,2) BLANK "DATA",160.16,16,"FIELD",84,3) L,ZERO^830 "DATA",160.16,16,"FIELD",84,4) REGIONAL LYMPH NODES EXAMINED (165.5,33) "DATA",160.16,16,"FIELD",85,0) 918^13^930^EOD--Old 13 Digit "DATA",160.16,16,"FIELD",85,1) S ACDANS="" "DATA",160.16,16,"FIELD",85,2) BLANK "DATA",160.16,16,"FIELD",85,3) L,BLANK^840 "DATA",160.16,16,"FIELD",86,0) 931^2^932^EOD--Old 2 Digit "DATA",160.16,16,"FIELD",86,1) S ACDANS="" "DATA",160.16,16,"FIELD",86,2) BLANK "DATA",160.16,16,"FIELD",86,3) L,BLANK^850 "DATA",160.16,16,"FIELD",87,0) 933^4^936^EOD--Old 4 Digit "DATA",160.16,16,"FIELD",87,1) S ACDANS="" "DATA",160.16,16,"FIELD",87,2) BLANK "DATA",160.16,16,"FIELD",87,3) L,BLANK^860 "DATA",160.16,16,"FIELD",88,0) 937^1^937^Coding System for EOD "DATA",160.16,16,"FIELD",88,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3031231:"",1:4) K DATEDX "DATA",160.16,16,"FIELD",88,2) BLANK "DATA",160.16,16,"FIELD",88,3) L,BLANK^870 "DATA",160.16,16,"FIELD",88,4) Blank = DATE DX 2004+; 4 = 10-Digit Extent of Disease, 1988 (1988+) "DATA",160.16,16,"FIELD",89,0) 940^4^943^TNM Path T "DATA",160.16,16,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,16,"FIELD",89,2) BLANK "DATA",160.16,16,"FIELD",89,3) R,BLANK^880 "DATA",160.16,16,"FIELD",89,4) PATHOLOGIC T (165.5,85) "DATA",160.16,16,"FIELD",90,0) 944^4^947^TNM Path N "DATA",160.16,16,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") S:ACDANS'="" ACDANS=$S(ACDANS="O(I+)":0,ACDANS="O(I-)":0,ACDANS="0(MOL+)":0,ACDANS="0(MOL-)":0,1:ACDANS) "DATA",160.16,16,"FIELD",90,2) BLANK "DATA",160.16,16,"FIELD",90,3) R,BLANK^890 "DATA",160.16,16,"FIELD",90,4) PATHOLOGIC N (165.5,86) "DATA",160.16,16,"FIELD",91,0) 948^4^951^TNM Path M "DATA",160.16,16,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,16,"FIELD",91,2) BLANK "DATA",160.16,16,"FIELD",91,3) R,BLANK^900 "DATA",160.16,16,"FIELD",91,4) PATHOLOGIC M (165.5,87) "DATA",160.16,16,"FIELD",92,0) 952^4^955^TNM Path Stage Group "DATA",160.16,16,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,16,"FIELD",92,2) BLANK "DATA",160.16,16,"FIELD",92,3) R,BLANK^910 "DATA",160.16,16,"FIELD",92,4) PATHOLOGIC STAGE GROUP (165.5,88) "DATA",160.16,16,"FIELD",93,0) 956^1^956^TNM Path Descriptor "DATA",160.16,16,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,16,"FIELD",93,2) ZERO "DATA",160.16,16,"FIELD",93,3) L,ZERO^920 "DATA",160.16,16,"FIELD",93,4) PATHOLOGIC TNM (165.5,89.1) "DATA",160.16,16,"FIELD",94,0) 957^1^957^TNM Path Staged By "DATA",160.16,16,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,16,"FIELD",94,2) NINE "DATA",160.16,16,"FIELD",94,3) L,BLANK^930 "DATA",160.16,16,"FIELD",94,4) STAGED BY (PATHOLOGIC STAGE) (165.5,89) "DATA",160.16,16,"FIELD",95,0) 958^4^961^TNM Clin T "DATA",160.16,16,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,16,"FIELD",95,2) BLANK "DATA",160.16,16,"FIELD",95,3) R,BLANK^940 "DATA",160.16,16,"FIELD",95,4) CLINICAL T (165.5,37.1) "DATA",160.16,16,"FIELD",96,0) 962^4^965^TNM Clin N "DATA",160.16,16,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,16,"FIELD",96,2) BLANK "DATA",160.16,16,"FIELD",96,3) R,BLANK^950 "DATA",160.16,16,"FIELD",96,4) CLINCIAL N (165.5,37.2) "DATA",160.16,16,"FIELD",97,0) 966^4^969^TNM Clin M "DATA",160.16,16,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,16,"FIELD",97,2) BLANK "DATA",160.16,16,"FIELD",97,3) R,BLANK^960 "DATA",160.16,16,"FIELD",97,4) CLINCIAL M (165.5,37.3) "DATA",160.16,16,"FIELD",98,0) 970^4^973^TNM Clin Stage Group "DATA",160.16,16,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,16,"FIELD",98,2) BLANK "DATA",160.16,16,"FIELD",98,3) R,BLANK^970 "DATA",160.16,16,"FIELD",98,4) CLINICAL STAGE GROUP (165.5,38) "DATA",160.16,16,"FIELD",99,0) 974^1^974^TNM Clin Descriptor "DATA",160.16,16,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,16,"FIELD",99,2) ZERO "DATA",160.16,16,"FIELD",99,3) L,ZERO^980 "DATA",160.16,16,"FIELD",99,4) CLINICAL TNM (165.5,37) "DATA",160.16,16,"FIELD",100,0) 975^1^975^TNM Clin Staged By "DATA",160.16,16,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,16,"FIELD",100,2) NINE "DATA",160.16,16,"FIELD",100,3) L,BLANK^990 "DATA",160.16,16,"FIELD",100,4) STAGED BY (CLINICAL STAGE) (165.5,19) "DATA",160.16,16,"FIELD",107,0) 938^2^939^TNM Edition Number "DATA",160.16,16,"FIELD",107,1) S ACDANS=$$TNMED~ONCOU55(IEN) "DATA",160.16,16,"FIELD",107,2) BLANK "DATA",160.16,16,"FIELD",107,3) L,ZERO^1060 "DATA",160.16,16,"FIELD",107,4) DATE DX (165.5,3) "DATA",160.16,16,"FIELD",109,0) 2539^8^2546^Date of 1st Positive BX "DATA",160.16,16,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",109,2) BLANK "DATA",160.16,16,"FIELD",109,3) L,BLANK^1080 "DATA",160.16,16,"FIELD",109,4) DATE OF 1ST POSITIVE BIOPSY (165.5,137) "DATA",160.16,16,"FIELD",110,0) 2547^1^2547^Site of Distant Met 1 "DATA",160.16,16,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,16,"FIELD",110,2) BLANK "DATA",160.16,16,"FIELD",110,3) L,BLANK^1090 "DATA",160.16,16,"FIELD",110,4) SITE OF DISTANT METASTASIS #1 (165.5,34) "DATA",160.16,16,"FIELD",111,0) 2548^1^2548^Site of Distant Met 2 "DATA",160.16,16,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,16,"FIELD",111,2) BLANK "DATA",160.16,16,"FIELD",111,3) L,BLANK^1100 "DATA",160.16,16,"FIELD",111,4) SITE OF DISTANT METASTASIS #2 (165.5,34.1) "DATA",160.16,16,"FIELD",112,0) 2549^1^2549^Site of Distant Met 3 "DATA",160.16,16,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,16,"FIELD",112,2) BLANK "DATA",160.16,16,"FIELD",112,3) L,BLANK^1110 "DATA",160.16,16,"FIELD",112,4) SITE OF DISTANT METASTASIS #3 (165.5,34.2) "DATA",160.16,16,"FIELD",113,0) 976^2^977^Pediatric Stage "DATA",160.16,16,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,16,"FIELD",113,2) BLANK "DATA",160.16,16,"FIELD",113,3) L,BLANK^1120 "DATA",160.16,16,"FIELD",113,4) PEDIATRIC STAGE (165.5,850) "DATA",160.16,16,"FIELD",114,0) 978^2^979^Pediatric Staging System "DATA",160.16,16,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",114,2) BLANK "DATA",160.16,16,"FIELD",114,3) L,BLANK^1130 "DATA",160.16,16,"FIELD",114,4) TYPE OF STAGING SYSTEM (PED) (165.5,849) "DATA",160.16,16,"FIELD",115,0) 980^1^980^Pediatric Staged By "DATA",160.16,16,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,16,"FIELD",115,2) BLANK "DATA",160.16,16,"FIELD",115,3) L,BLANK^1140 "DATA",160.16,16,"FIELD",115,4) STAGED BY (PEDIATRIC STAGE) (165.5,851) "DATA",160.16,16,"FIELD",116,0) 981^1^981^Tumor Marker 1 "DATA",160.16,16,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",116,2) BLANK "DATA",160.16,16,"FIELD",116,3) L,BLANK^1150 "DATA",160.16,16,"FIELD",116,4) TUMOR MARKER 1 (165.5,25.1) "DATA",160.16,16,"FIELD",117,0) 982^1^982^Tumor Marker 2 "DATA",160.16,16,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",117,2) BLANK "DATA",160.16,16,"FIELD",117,3) L,BLANK^1160 "DATA",160.16,16,"FIELD",117,4) TUMOR MARKER 2 (165.5,25.2) "DATA",160.16,16,"FIELD",118,0) 983^1^983^Tumor Marker 3 "DATA",160.16,16,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",118,2) BLANK "DATA",160.16,16,"FIELD",118,3) L,BLANK^1170 "DATA",160.16,16,"FIELD",118,4) TUMOR MARKER 3 (165.5,25.3) "DATA",160.16,16,"FIELD",119,0) 1216^5^1220^Comorbid/Complication 7 "DATA",160.16,16,"FIELD",119,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.6,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",119,2) BLANK "DATA",160.16,16,"FIELD",119,3) R,ZERO^3161 "DATA",160.16,16,"FIELD",119,4) COMORBIDITY/COMPLICATION #7 (160,25.6) "DATA",160.16,16,"FIELD",121,0) 1456^8^1463^RX Date--Surgery "DATA",160.16,16,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,170,"I")) "DATA",160.16,16,"FIELD",121,2) BLANK "DATA",160.16,16,"FIELD",121,3) L,BLANK^1200 "DATA",160.16,16,"FIELD",121,4) DATE FIRST SURGICAL PROCEDURE (165.5,170) "DATA",160.16,16,"FIELD",122,0) 1486^8^1493^RX Date--Radiation "DATA",160.16,16,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,16,"FIELD",122,2) BLANK "DATA",160.16,16,"FIELD",122,3) L,BLANK^1210 "DATA",160.16,16,"FIELD",122,4) DATE RADIATION STARTED (165.5,51) "DATA",160.16,16,"FIELD",123,0) 1516^8^1523^RX Date--Chemo "DATA",160.16,16,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,16,"FIELD",123,2) BLANK "DATA",160.16,16,"FIELD",123,3) L,BLANK^1220 "DATA",160.16,16,"FIELD",123,4) CHEMOTHERAPY DATE (165.5,53) "DATA",160.16,16,"FIELD",124,0) 1526^8^1533^RX Date--Hormone "DATA",160.16,16,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,16,"FIELD",124,2) BLANK "DATA",160.16,16,"FIELD",124,3) L,BLANK^1230 "DATA",160.16,16,"FIELD",124,4) HORMONE THERAPY DATE (165.5,54) "DATA",160.16,16,"FIELD",125,0) 1536^8^1543^RX Date--BRM "DATA",160.16,16,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,16,"FIELD",125,2) BLANK "DATA",160.16,16,"FIELD",125,3) L,BLANK^1240 "DATA",160.16,16,"FIELD",125,4) IMMUNOTHERAPY DATE (165.5,55) "DATA",160.16,16,"FIELD",126,0) 1546^8^1553^RX Date--Other "DATA",160.16,16,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,16,"FIELD",126,2) BLANK "DATA",160.16,16,"FIELD",126,3) L,BLANK^1250 "DATA",160.16,16,"FIELD",126,4) OTHER TREATMENT START DATE (165.5,57) "DATA",160.16,16,"FIELD",127,0) 1436^8^1443^Date of Initial RX--SEER "DATA",160.16,16,"FIELD",127,1) S ACDANS="" "DATA",160.16,16,"FIELD",127,2) ZERO "DATA",160.16,16,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,16,"FIELD",127,4) "DATA",160.16,16,"FIELD",128,0) 1446^8^1453^Date of 1st Crs RX--COC "DATA",160.16,16,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,16,"FIELD",128,2) BLANK "DATA",160.16,16,"FIELD",128,3) L,ZERO^1270 "DATA",160.16,16,"FIELD",128,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "DATA",160.16,16,"FIELD",129,0) 1556^8^1563^RX Date--DX/Stg Proc "DATA",160.16,16,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",129,2) BLANK "DATA",160.16,16,"FIELD",129,3) L,ZERO^1280 "DATA",160.16,16,"FIELD",129,4) SURGICAL DX/STAGING PROC DATE (165.5,58.3) "DATA",160.16,16,"FIELD",130,0) 1567^1568^860^RX Summ--Surg Prim Site "DATA",160.16,16,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.6,"SPS") "DATA",160.16,16,"FIELD",130,2) NINE "DATA",160.16,16,"FIELD",130,3) L,ZERO^1290 "DATA",160.16,16,"FIELD",130,4) SURGERY OF PRIMARY (F) (165.5,58.6) "DATA",160.16,16,"FIELD",132,0) 1573^1^1573^RX Summ--Surgical Approch "DATA",160.16,16,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,16,"FIELD",132,2) NINE "DATA",160.16,16,"FIELD",132,3) L,BLANK^1310 "DATA",160.16,16,"FIELD",132,4) SURGICAL APPROACH (R) (165.5,74) "DATA",160.16,16,"FIELD",133,0) 1574^1^1574^RX Summ--Surgical Margins "DATA",160.16,16,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,16,"FIELD",133,2) BLANK "DATA",160.16,16,"FIELD",133,3) L,BLANK^1320 "DATA",160.16,16,"FIELD",133,4) SURGICAL MARGINS (165.5,59) "DATA",160.16,16,"FIELD",134,0) 1575^1^1575^RX Summ--Reconstruct 1st "DATA",160.16,16,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5"),DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S((DATEDX<2980000)&(ACDANS=8):9,1:ACDANS) K DATEDX "DATA",160.16,16,"FIELD",134,2) NINE "DATA",160.16,16,"FIELD",134,3) L,BLANK^1330 "DATA",160.16,16,"FIELD",134,4) RECONSTRUCTION/RESTORATION (165.5,23) "DATA",160.16,16,"FIELD",135,0) 1576^1^1576^Reason for No Surgery "DATA",160.16,16,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,16,"FIELD",135,2) BLANK "DATA",160.16,16,"FIELD",135,3) L,BLANK^1340 "DATA",160.16,16,"FIELD",135,4) REASON FOR NO SURGERY (165.5,58) "DATA",160.16,16,"FIELD",136,0) 1577^2^1578^RX Summ--DX/Stg Proc "DATA",160.16,16,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,16,"FIELD",136,2) ZNINE "DATA",160.16,16,"FIELD",136,3) L,ZERO^1350 "DATA",160.16,16,"FIELD",136,4) SURGICAL DX/STAGING PROC (165.5,58.1) "DATA",160.16,16,"FIELD",137,0) 1580^1^1580^RX Summ--Radiation "DATA",160.16,16,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,16,"FIELD",137,2) BLANK "DATA",160.16,16,"FIELD",137,3) L,ZERO^1360 "DATA",160.16,16,"FIELD",137,4) RADIATION (165.5,51.2) "DATA",160.16,16,"FIELD",138,0) 1581^1^1581^RX Summ--Rad to CNS "DATA",160.16,16,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,16,"FIELD",138,2) BLANK "DATA",160.16,16,"FIELD",138,3) L,ZERO^1370 "DATA",160.16,16,"FIELD",138,4) RADIATION THERAPY TO CNS (165.5,52.2) "DATA",160.16,16,"FIELD",139,0) 1582^1^1582^RX Summ--Surg/Rad Seq "DATA",160.16,16,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,16,"FIELD",139,2) BLANK "DATA",160.16,16,"FIELD",139,3) L,ZERO^1380 "DATA",160.16,16,"FIELD",139,4) RADIATION/SURGERY SEQUENCE (165.5,51.3) "DATA",160.16,16,"FIELD",140,0) 1585^2^1586^RX Summ--Chemo "DATA",160.16,16,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,16,"FIELD",140,2) NINE "DATA",160.16,16,"FIELD",140,3) L,BLANK^1390 "DATA",160.16,16,"FIELD",140,4) CHEMOTHERAPY (165.5,53.2) "DATA",160.16,16,"FIELD",141,0) 1587^2^1588^RX Summ--Hormone "DATA",160.16,16,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,16,"FIELD",141,2) NINE "DATA",160.16,16,"FIELD",141,3) L,BLANK^1400 "DATA",160.16,16,"FIELD",141,4) HORMONE THERAPY (165.5,54.2) "DATA",160.16,16,"FIELD",142,0) 1589^2^1590^RX Summ--BRM "DATA",160.16,16,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,16,"FIELD",142,2) NINE "DATA",160.16,16,"FIELD",142,3) L,BLANK^1410 "DATA",160.16,16,"FIELD",142,4) IMMUNOTHERAPY (165.5,55.2) "DATA",160.16,16,"FIELD",143,0) 1591^1^1591^RX Summ--Other "DATA",160.16,16,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,16,"FIELD",143,2) BLANK "DATA",160.16,16,"FIELD",143,3) L,ZERO^1420 "DATA",160.16,16,"FIELD",143,4) OTHER TREATMENT (165.5,57.2) "DATA",160.16,16,"FIELD",144,0) 1592^1^1592^Reason for No Radiation "DATA",160.16,16,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,16,"FIELD",144,2) NINE "DATA",160.16,16,"FIELD",144,3) L,BLANK^1430 "DATA",160.16,16,"FIELD",144,4) REASON FOR NO RADIATION (165.5,75) "DATA",160.16,16,"FIELD",147,0) 1593^2^1594^RX Coding System--Current "DATA",160.16,16,"FIELD",147,1) S ACDANS="06" "DATA",160.16,16,"FIELD",147,2) BLANK "DATA",160.16,16,"FIELD",147,3) L,ZERO^1460 "DATA",160.16,16,"FIELD",147,4) 06 Treatment data coded according to FORDS manual "DATA",160.16,16,"FIELD",151,0) 1595^1^1595^First Course Calc Method "DATA",160.16,16,"FIELD",151,1) S ACDANS=1 "DATA",160.16,16,"FIELD",151,2) BLANK "DATA",160.16,16,"FIELD",151,3) L,BLANK^1500 "DATA",160.16,16,"FIELD",151,4) 1 COC definitions "DATA",160.16,16,"FIELD",152,0) 1596^5^1600^Rad--Regional Dose: cGy "DATA",160.16,16,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,16,"FIELD",152,2) NINE "DATA",160.16,16,"FIELD",152,3) L,ZERO^1510 "DATA",160.16,16,"FIELD",152,4) REGIONAL DOSE: cGy (165.5,442) "DATA",160.16,16,"FIELD",153,0) 1601^3^1603^Rad--No of Treatment Vol "DATA",160.16,16,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,16,"FIELD",153,2) NINE "DATA",160.16,16,"FIELD",153,3) L,ZERO^1520 "DATA",160.16,16,"FIELD",153,4) NUMBER OF TXS TO THIS VOLUME (165.5,56) "DATA",160.16,16,"FIELD",155,0) 1604^2^1605^Rad--Treatment Volume "DATA",160.16,16,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",155,2) NINE "DATA",160.16,16,"FIELD",155,3) L,ZERO^1540 "DATA",160.16,16,"FIELD",155,4) RADIATION TREATMENT VOLUME (165.5,125) "DATA",160.16,16,"FIELD",156,0) 1606^1^1606^Rad--Location of RX "DATA",160.16,16,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,16,"FIELD",156,2) NINE "DATA",160.16,16,"FIELD",156,3) L,BLANK^1550 "DATA",160.16,16,"FIELD",156,4) LOCATION OF RADIATION TX (165.5,126) "DATA",160.16,16,"FIELD",158,0) 1607^2^1608^Rad--Regional RX Modality "DATA",160.16,16,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",158,2) BLANK "DATA",160.16,16,"FIELD",158,3) L,ZERO^1570 "DATA",160.16,16,"FIELD",158,4) REGIONAL TREATMENT MODALITY (165.5,363) "DATA",160.16,16,"FIELD",164,0) 1616^1^1616^RX Summ--Systemic Sur Seq "DATA",160.16,16,"FIELD",164,1) S ACDANS=$$GET1~DIQ(165.5,IEN,15,"I") "DATA",160.16,16,"FIELD",164,2) BLANK "DATA",160.16,16,"FIELD",164,3) L,BLANK^1639 "DATA",160.16,16,"FIELD",164,4) SYSTEMIC/SURGERY SEQUENCE (165.5,15) "DATA",160.16,16,"FIELD",165,0) 1617^2^1618^RX Summ--Surgery Type "DATA",160.16,16,"FIELD",165,1) S ACDANS="" "DATA",160.16,16,"FIELD",165,2) BLANK "DATA",160.16,16,"FIELD",165,3) L,BLANK^1640 "DATA",160.16,16,"FIELD",166,0) 1624^100^1723^Reserved 06 "DATA",160.16,16,"FIELD",166,1) S ACDANS="" "DATA",160.16,16,"FIELD",166,2) BLANK "DATA",160.16,16,"FIELD",166,3) L,BLANK^1190 "DATA",160.16,16,"FIELD",167,0) 1724^8^1731^Subsq RX 2nd Course Date "DATA",160.16,16,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",167,2) BLANK "DATA",160.16,16,"FIELD",167,3) L,BLANK^1660 "DATA",160.16,16,"FIELD",167,4) INITIATION DATE (165.51,.01) "DATA",160.16,16,"FIELD",168,0) 1734^2^1735^Subsq RX 2nd Course Surg "DATA",160.16,16,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,16,"FIELD",168,2) BLANK "DATA",160.16,16,"FIELD",168,3) L,ZERO^1671 "DATA",160.16,16,"FIELD",168,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,16,"FIELD",169,0) 1740^1^1740^Subsq RX 2nd Course Rad "DATA",160.16,16,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,16,"FIELD",169,2) BLANK "DATA",160.16,16,"FIELD",169,3) L,BLANK^1672 "DATA",160.16,16,"FIELD",169,4) RADIATION (165.51,.05) "DATA",160.16,16,"FIELD",170,0) 1741^1^1741^Subsq RX 2nd Course Chemo "DATA",160.16,16,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,16,"FIELD",170,2) BLANK "DATA",160.16,16,"FIELD",170,3) L,BLANK^1673 "DATA",160.16,16,"FIELD",170,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,16,"FIELD",171,0) 1742^1^1742^Subsq RX 2nd Course Horm "DATA",160.16,16,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,16,"FIELD",171,2) BLANK "DATA",160.16,16,"FIELD",171,3) L,BLANK^1674 "DATA",160.16,16,"FIELD",171,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,16,"FIELD",172,0) 1743^1^1743^Subsq RX 2nd Course BRM "DATA",160.16,16,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,16,"FIELD",172,2) BLANK "DATA",160.16,16,"FIELD",172,3) L,BLANK^1675 "DATA",160.16,16,"FIELD",172,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,16,"FIELD",173,0) 1744^1^1744^Subsq RX 2nd Course Oth "DATA",160.16,16,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,16,"FIELD",173,2) BLANK "DATA",160.16,16,"FIELD",173,3) L,BLANK^1676 "DATA",160.16,16,"FIELD",173,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,16,"FIELD",174,0) 1745^8^1752^Subsq RX 3rd Course Date "DATA",160.16,16,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",174,2) BLANK "DATA",160.16,16,"FIELD",174,3) L,BLANK^1680 "DATA",160.16,16,"FIELD",174,4) INITIATION DATE (165.51,.01) "DATA",160.16,16,"FIELD",175,0) 1755^2^1756^Subsq RX 3rd Course Surg "DATA",160.16,16,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,16,"FIELD",175,2) BLANK "DATA",160.16,16,"FIELD",175,3) L,ZERO^1691 "DATA",160.16,16,"FIELD",175,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,16,"FIELD",176,0) 1761^1^1761^Subsq RX 3rd Course Rad "DATA",160.16,16,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,16,"FIELD",176,2) BLANK "DATA",160.16,16,"FIELD",176,3) L,BLANK^1692 "DATA",160.16,16,"FIELD",176,4) RADIATION (165.51,.05) "DATA",160.16,16,"FIELD",177,0) 1762^1^1762^Subsq RX 3rd Course Chemo "DATA",160.16,16,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,16,"FIELD",177,2) BLANK "DATA",160.16,16,"FIELD",177,3) L,BLANK^1693 "DATA",160.16,16,"FIELD",177,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,16,"FIELD",178,0) 1763^1^1763^Subsq RX 3rd Course Horm "DATA",160.16,16,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,16,"FIELD",178,2) BLANK "DATA",160.16,16,"FIELD",178,3) L,BLANK^1694 "DATA",160.16,16,"FIELD",178,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,16,"FIELD",179,0) 1764^1^1764^Subsq RX 3rd Course BRM "DATA",160.16,16,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,16,"FIELD",179,2) BLANK "DATA",160.16,16,"FIELD",179,3) L,BLANK^1695 "DATA",160.16,16,"FIELD",179,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,16,"FIELD",180,0) 1765^1^1765^Subsq RX 3rd Course Oth "DATA",160.16,16,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,16,"FIELD",180,2) BLANK "DATA",160.16,16,"FIELD",180,3) L,BLANK^1696 "DATA",160.16,16,"FIELD",180,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,16,"FIELD",181,0) 1766^8^1773^Subsq RX 4th Course Date "DATA",160.16,16,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",181,2) BLANK "DATA",160.16,16,"FIELD",181,3) L,BLANK^1700 "DATA",160.16,16,"FIELD",181,4) INITIATION DATE (165.51,.01) "DATA",160.16,16,"FIELD",182,0) 1776^2^1777^Subsq RX 4th Course Surg "DATA",160.16,16,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,16,"FIELD",182,2) BLANK "DATA",160.16,16,"FIELD",182,3) L,ZERO^1711 "DATA",160.16,16,"FIELD",182,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,16,"FIELD",183,0) 1782^1^1782^Subsq RX 4th Course Rad "DATA",160.16,16,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,16,"FIELD",183,2) BLANK "DATA",160.16,16,"FIELD",183,3) L,BLANK^1712 "DATA",160.16,16,"FIELD",183,4) RADIATION (165.51,.05) "DATA",160.16,16,"FIELD",184,0) 1783^1^1783^Subsq RX 4th Course Chemo "DATA",160.16,16,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,16,"FIELD",184,2) BLANK "DATA",160.16,16,"FIELD",184,3) L,BLANK^1713 "DATA",160.16,16,"FIELD",184,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,16,"FIELD",185,0) 1784^1^1784^Subsq RX 4th Course Horm "DATA",160.16,16,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,16,"FIELD",185,2) BLANK "DATA",160.16,16,"FIELD",185,3) L,BLANK^1714 "DATA",160.16,16,"FIELD",185,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,16,"FIELD",186,0) 1785^1^1785^Subsq RX 4th Course BRM "DATA",160.16,16,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,16,"FIELD",186,2) BLANK "DATA",160.16,16,"FIELD",186,3) L,BLANK^1715 "DATA",160.16,16,"FIELD",186,4) IMMUNOTHERAPY (165.5,.08) "DATA",160.16,16,"FIELD",187,0) 1786^1^1786^Subsq RX 4th Course Oth "DATA",160.16,16,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,16,"FIELD",187,2) BLANK "DATA",160.16,16,"FIELD",187,3) L,BLANK^1716 "DATA",160.16,16,"FIELD",187,4) OTHER TREATMENT (165.51,.09) "DATA",160.16,16,"FIELD",188,0) 1033^3^1035^CS Site-Specific Factor 11 "DATA",160.16,16,"FIELD",188,1) "DATA",160.16,16,"FIELD",188,2) BLANK "DATA",160.16,16,"FIELD",188,3) L,BLANK^2865 "DATA",160.16,16,"FIELD",188,4) "DATA",160.16,16,"FIELD",195,0) 1788^100^1887^Reserved 07 "DATA",160.16,16,"FIELD",195,1) S ACDANS="" "DATA",160.16,16,"FIELD",195,2) BLANK "DATA",160.16,16,"FIELD",195,3) L,BLANK^1300 "DATA",160.16,16,"FIELD",196,0) 2116^8^2123^Date of Last Contact "DATA",160.16,16,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",196,2) BLANK "DATA",160.16,16,"FIELD",196,3) L,BLANK^1750 "DATA",160.16,16,"FIELD",196,4) DATE OF LAST CONTACT OR DEATH (160.04,.01) "DATA",160.16,16,"FIELD",197,0) 2126^1^2126^Vital Status "DATA",160.16,16,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,16,"FIELD",197,2) BLANK "DATA",160.16,16,"FIELD",197,3) L,BLANK^1760 "DATA",160.16,16,"FIELD",197,4) VITAL STATUS (160.04,1) "DATA",160.16,16,"FIELD",198,0) 2127^1^2127^Cancer Status "DATA",160.16,16,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,16,"FIELD",198,2) BLANK "DATA",160.16,16,"FIELD",198,3) L,BLANK^1770 "DATA",160.16,16,"FIELD",198,4) CANCER STATUS (165.573,.02) "DATA",160.16,16,"FIELD",199,0) 2128^1^2128^Quality of Survival "DATA",160.16,16,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,16,"FIELD",199,2) BLANK "DATA",160.16,16,"FIELD",199,3) L,BLANK^1780 "DATA",160.16,16,"FIELD",199,4) QUALITY OF SURVIVAL (160.04,4) "DATA",160.16,16,"FIELD",200,0) 2129^1^2129^Follow-Up Source "DATA",160.16,16,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,16,"FIELD",200,2) BLANK "DATA",160.16,16,"FIELD",200,3) L,BLANK^1790 "DATA",160.16,16,"FIELD",200,4) FOLLOW-UP SOURCE (160.04,3) "DATA",160.16,16,"FIELD",201,0) 2130^1^2130^Next Follow-up Source "DATA",160.16,16,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,16,"FIELD",201,2) BLANK "DATA",160.16,16,"FIELD",201,3) L,BLANK^1800 "DATA",160.16,16,"FIELD",201,4) NEXT FOLLOW-UP SOURCE (160.04,6) "DATA",160.16,16,"FIELD",202,0) 2131^50^2180^Addr Current--City "DATA",160.16,16,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,16,"FIELD",202,2) BLANK "DATA",160.16,16,"FIELD",202,3) R,BLANK^1810 "DATA",160.16,16,"FIELD",202,4) CITY (2,.114) "DATA",160.16,16,"FIELD",203,0) 2181^2^2182^Addr Current--State "DATA",160.16,16,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) S:ACDANS="" ACDANS="ZZ" "DATA",160.16,16,"FIELD",203,2) BLANK "DATA",160.16,16,"FIELD",203,3) R,BLANK^1820 "DATA",160.16,16,"FIELD",203,4) STATE (2,.115) "DATA",160.16,16,"FIELD",204,0) 2183^9^2191^Addr Current--Postal Code "DATA",160.16,16,"FIELD",204,1) S ACDANS=$$GET1~DIQ(160,ACD160,.116,"E") S:ACDANS=75999 ACDANS=999999999 D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",204,2) NINE "DATA",160.16,16,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,16,"FIELD",204,4) ZIP CODE (160,.116) "DATA",160.16,16,"FIELD",206,0) 2195^1^2195^Unusual Follow-Up Method "DATA",160.16,16,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,16,"FIELD",206,2) BLANK "DATA",160.16,16,"FIELD",206,3) L,BLANK^1850 "DATA",160.16,16,"FIELD",206,4) UNUSUAL FOLLOW-UP METHOD (160.04,7) "DATA",160.16,16,"FIELD",207,0) 2196^8^2203^Recurrence Date--1st "DATA",160.16,16,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,16,"FIELD",207,2) BLANK "DATA",160.16,16,"FIELD",207,3) L,BLANK^1860 "DATA",160.16,16,"FIELD",207,4) DATE OF FIRST RECURRENCE (165.5,70) "DATA",160.16,16,"FIELD",208,0) 2550^1^2550^Recurrence Distant Site 1 "DATA",160.16,16,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I") "DATA",160.16,16,"FIELD",208,2) BLANK "DATA",160.16,16,"FIELD",208,3) L,BLANK^1871 "DATA",160.16,16,"FIELD",208,4) DISTANT SITE 1 (165.5,71.1) "DATA",160.16,16,"FIELD",209,0) 2206^2^2207^Recurrence Type--1st "DATA",160.16,16,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",209,2) NINE "DATA",160.16,16,"FIELD",209,3) L,ZERO^1880 "DATA",160.16,16,"FIELD",209,4) TYPE OF FIRST RECURRENCE (165.5,71) "DATA",160.16,16,"FIELD",211,0) 2192^3^2194^County--Current "DATA",160.16,16,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,16,"FIELD",211,2) BLANK "DATA",160.16,16,"FIELD",211,3) L,BLANK^1840 "DATA",160.16,16,"FIELD",213,0) 2269^4^2272^Cause of Death "DATA",160.16,16,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) S:ACDANS="" ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,16,"FIELD",213,2) BLANK "DATA",160.16,16,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,16,"FIELD",213,4) CAUSE OF DEATH (160,19) "DATA",160.16,16,"FIELD",214,0) 2273^1^2273^ICD Revision Number "DATA",160.16,16,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,16,"FIELD",214,2) BLANK "DATA",160.16,16,"FIELD",214,3) L,ZERO^1920 "DATA",160.16,16,"FIELD",214,4) CAUSE OF DEATH (160,19), ICD REVISION (160,20) "DATA",160.16,16,"FIELD",215,0) 2274^1^2274^Autopsy "DATA",160.16,16,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,16,"FIELD",215,2) BLANK "DATA",160.16,16,"FIELD",215,3) L,BLANK^1930 "DATA",160.16,16,"FIELD",215,4) AUTOPSY (160,22.9) "DATA",160.16,16,"FIELD",216,0) 2275^3^2277^Place of Death "DATA",160.16,16,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,16,"FIELD",216,2) BLANK "DATA",160.16,16,"FIELD",216,3) L,BLANK^1940 "DATA",160.16,16,"FIELD",216,4) PLACE OF DEATH (160,21) "DATA",160.16,16,"FIELD",218,0) 1909^4^1912^Site (73-91) ICD-O-1 "DATA",160.16,16,"FIELD",218,1) S ACDANS="" "DATA",160.16,16,"FIELD",218,2) BLANK "DATA",160.16,16,"FIELD",218,3) L,BLANK^1960 "DATA",160.16,16,"FIELD",219,0) 1913^6^1918^Morph (73-91) ICD-O-1 "DATA",160.16,16,"FIELD",219,1) S ACDANS="" "DATA",160.16,16,"FIELD",219,2) BLANK "DATA",160.16,16,"FIELD",219,3) L,BLANK^1970 "DATA",160.16,16,"FIELD",220,0) 1919^1^1919^ICD-O-2 Conversion Flag "DATA",160.16,16,"FIELD",220,1) S ACDANS=4 "DATA",160.16,16,"FIELD",220,2) BLANK "DATA",160.16,16,"FIELD",220,3) L,BLANK^1980 "DATA",160.16,16,"FIELD",220,4) 4 Primary site and morphology converted with review "DATA",160.16,16,"FIELD",221,0) 1896^1^1896^Over-ride Age/Site/Morph "DATA",160.16,16,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,16,"FIELD",221,2) BLANK "DATA",160.16,16,"FIELD",221,3) L,BLANK^1990 "DATA",160.16,16,"FIELD",221,4) OVERRIDE AGE/SITE/MORPH (165.5,205) "DATA",160.16,16,"FIELD",222,0) 1897^1^1897^Over-ride SeqNo/DxConf "DATA",160.16,16,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,16,"FIELD",222,2) BLANK "DATA",160.16,16,"FIELD",222,3) L,BLANK^2000 "DATA",160.16,16,"FIELD",222,4) OVERRIDE SEQNO/DXCONF (165.5,206) "DATA",160.16,16,"FIELD",223,0) 1898^1^1898^Over-ride Site/Lat/SeqNo "DATA",160.16,16,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,16,"FIELD",223,2) BLANK "DATA",160.16,16,"FIELD",223,3) L,BLANK^2010 "DATA",160.16,16,"FIELD",223,4) OVERRIDE SITE/LAT/SEQNO (165.5,207) "DATA",160.16,16,"FIELD",224,0) 1899^1^1899^Over-ride Surg/DxConf "DATA",160.16,16,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,16,"FIELD",224,2) BLANK "DATA",160.16,16,"FIELD",224,3) L,BLANK^2020 "DATA",160.16,16,"FIELD",224,4) OVERRIDE SURG/DXCONF (165.5,208) "DATA",160.16,16,"FIELD",225,0) 1900^1^1900^Over-ride Site/Type "DATA",160.16,16,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,16,"FIELD",225,2) BLANK "DATA",160.16,16,"FIELD",225,3) L,BLANK^2030 "DATA",160.16,16,"FIELD",225,4) OVERRIDE SITE/TYPE (165.5,209) "DATA",160.16,16,"FIELD",226,0) 1901^1^1901^Over-ride Histology "DATA",160.16,16,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,16,"FIELD",226,2) BLANK "DATA",160.16,16,"FIELD",226,3) L,BLANK^2040 "DATA",160.16,16,"FIELD",226,4) OVERRIDE HISTOLOGY (165.5,210) "DATA",160.16,16,"FIELD",227,0) 1902^1^1902^Over-ride Report Source "DATA",160.16,16,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,16,"FIELD",227,2) BLANK "DATA",160.16,16,"FIELD",227,3) L,BLANK^2050 "DATA",160.16,16,"FIELD",227,4) OVERRIDE REPORT SOURCE (165.5,211) "DATA",160.16,16,"FIELD",228,0) 1903^1^1903^Over-ride Ill-define Site "DATA",160.16,16,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,16,"FIELD",228,2) BLANK "DATA",160.16,16,"FIELD",228,3) L,BLANK^2060 "DATA",160.16,16,"FIELD",228,4) OVERRIDE ILL-DEFINE SITE (165.5,212) "DATA",160.16,16,"FIELD",229,0) 1904^1^1904^Over-ride Leuk, Lymphoma "DATA",160.16,16,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,16,"FIELD",229,2) BLANK "DATA",160.16,16,"FIELD",229,3) L,BLANK^2070 "DATA",160.16,16,"FIELD",229,4) OVERRIDE LEUK,LYMPHOMA (165.5,213) "DATA",160.16,16,"FIELD",231,0) 1959^8^1966^Date Case Completed "DATA",160.16,16,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",231,2) BLANK "DATA",160.16,16,"FIELD",231,3) L,BLANK^2090 "DATA",160.16,16,"FIELD",231,4) DATE CASE COMPLETED (165.5,90) "DATA",160.16,16,"FIELD",232,0) 1975^8^1982^Date Case Last Changed "DATA",160.16,16,"FIELD",232,1) S ACDANS=$$GET1~DIQ(165.5,IEN,198,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",232,2) BLANK "DATA",160.16,16,"FIELD",232,3) L,BLANK^2100 "DATA",160.16,16,"FIELD",232,4) DATE CASE LAST CHANGED (165.5,198) "DATA",160.16,16,"FIELD",233,0) 1983^8^1990^Date Case Report Exported "DATA",160.16,16,"FIELD",233,1) S ACDANS="" Q:$G(EXPORT)'="YES" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,16,"FIELD",233,2) BLANK "DATA",160.16,16,"FIELD",233,3) L,BLANK^2110 "DATA",160.16,16,"FIELD",233,4) Current date "DATA",160.16,16,"FIELD",234,0) 1930^1^1930^SEER Coding Sys--Current "DATA",160.16,16,"FIELD",234,1) S ACDANS=6 "DATA",160.16,16,"FIELD",234,2) BLANK "DATA",160.16,16,"FIELD",234,3) L,BLANK^2120 "DATA",160.16,16,"FIELD",234,4) 2003 SEER Coding Manual "DATA",160.16,16,"FIELD",235,0) 1931^1^1931^SEER Coding Sys--Original "DATA",160.16,16,"FIELD",235,1) S ACDANS=6 "DATA",160.16,16,"FIELD",235,2) BLANK "DATA",160.16,16,"FIELD",235,3) L,BLANK^2130 "DATA",160.16,16,"FIELD",235,4) 2003 SEER Coding Manual "DATA",160.16,16,"FIELD",236,0) 1932^2^1933^COC Coding Sys--Current "DATA",160.16,16,"FIELD",236,1) S ACDANS="08" "DATA",160.16,16,"FIELD",236,2) BLANK "DATA",160.16,16,"FIELD",236,3) L,BLANK^2140 "DATA",160.16,16,"FIELD",236,4) 08 FORDS (effective with cases diagnosed 2003 are forward) "DATA",160.16,16,"FIELD",237,0) 1934^2^1935^COC Coding Sys--Original "DATA",160.16,16,"FIELD",237,1) S ACDANS=$$COCO~ONCACDU2(IEN) "DATA",160.16,16,"FIELD",237,2) BLANK "DATA",160.16,16,"FIELD",237,3) L,BLANK^2150 "DATA",160.16,16,"FIELD",237,4) 08, 07, or 05 depending on DATE DX "DATA",160.16,16,"FIELD",238,0) 2016^100^2115^Reserved 08 "DATA",160.16,16,"FIELD",238,1) S ACDANS="" "DATA",160.16,16,"FIELD",238,2) BLANK "DATA",160.16,16,"FIELD",238,3) L,BLANK^1650 "DATA",160.16,16,"FIELD",239,0) 1936^10^1945^Vendor Name "DATA",160.16,16,"FIELD",239,1) S ACDANS=$$VENDOR~ONCACDU2 "DATA",160.16,16,"FIELD",239,2) BLANK "DATA",160.16,16,"FIELD",239,3) R,BLANK^2170 "DATA",160.16,16,"FIELD",239,4) "VA"_NAACCR version_patch #_"A" e.g. VAV11P46A "DATA",160.16,16,"FIELD",240,0) 1946^1^1946^SEER Type of Follow-Up "DATA",160.16,16,"FIELD",240,1) S ACDANS="" "DATA",160.16,16,"FIELD",240,2) BLANK "DATA",160.16,16,"FIELD",240,3) L,BLANK^2180 "DATA",160.16,16,"FIELD",241,0) 1947^2^1948^SEER Record Number "DATA",160.16,16,"FIELD",241,1) S ACDANS="" "DATA",160.16,16,"FIELD",241,2) BLANK "DATA",160.16,16,"FIELD",241,3) L,BLANK^2190 "DATA",160.16,16,"FIELD",242,0) 1949^2^1950^Diagnostic Proc 73-87 "DATA",160.16,16,"FIELD",242,1) S ACDANS="" "DATA",160.16,16,"FIELD",242,2) BLANK "DATA",160.16,16,"FIELD",242,3) L,BLANK^2200 "DATA",160.16,16,"FIELD",243,0) 2015^1^2015^ICD-O-3 Conversion Flag "DATA",160.16,16,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,16,"FIELD",243,2) BLANK "DATA",160.16,16,"FIELD",243,3) L,BLANK^2116 "DATA",160.16,16,"FIELD",340,0) 784^1^784^RX Hosp--Scope Reg LN Sur "DATA",160.16,16,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.5,"I") "DATA",160.16,16,"FIELD",340,2) NINE "DATA",160.16,16,"FIELD",340,3) L,BLANK^672 "DATA",160.16,16,"FIELD",340,4) SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "DATA",160.16,16,"FIELD",341,0) 785^1^785^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,16,"FIELD",341,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.5,"I") "DATA",160.16,16,"FIELD",341,2) NINE "DATA",160.16,16,"FIELD",341,3) L,BLANK^674 "DATA",160.16,16,"FIELD",341,4) SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "DATA",160.16,16,"FIELD",342,0) 786^2^787^RX Hosp--Reg LN Removed "DATA",160.16,16,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,16,"FIELD",342,2) BLANK "DATA",160.16,16,"FIELD",342,3) L,BLANK^676 "DATA",160.16,16,"FIELD",342,4) NUMBER OF LN REMOVED @FAC (R) (165.5,140.1) "DATA",160.16,16,"FIELD",347,0) 1569^1^1569^RX Summ--Scope Reg LN Sur "DATA",160.16,16,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.4,"I") "DATA",160.16,16,"FIELD",347,2) NINE "DATA",160.16,16,"FIELD",347,3) L,BLANK^1292 "DATA",160.16,16,"FIELD",347,4) SCOPE OF LN SURGERY (F) (165.5,138.4) "DATA",160.16,16,"FIELD",348,0) 1570^1^1570^RX Summ--Surg Oth Reg/Dis "DATA",160.16,16,"FIELD",348,1) S ACDANS=$$GET1~DIQ(165.5,IEN,139.4,"I") "DATA",160.16,16,"FIELD",348,2) NINE "DATA",160.16,16,"FIELD",348,3) L,BLANK^1294 "DATA",160.16,16,"FIELD",348,4) SURG PROC/OTHER SITE (F) (165.5,139.4) "DATA",160.16,16,"FIELD",349,0) 1571^2^1572^RX Summ--Reg LN Examined "DATA",160.16,16,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,16,"FIELD",349,2) NINE "DATA",160.16,16,"FIELD",349,3) L,ZERO^1296 "DATA",160.16,16,"FIELD",349,4) NUMBER OF LN REMOVED (R) (165.5,140) "DATA",160.16,16,"FIELD",354,0) 1736^1^1736^Subsq RX 2nd--Scope LN Su "DATA",160.16,16,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,16,"FIELD",354,2) BLANK "DATA",160.16,16,"FIELD",354,3) L,BLANK^1677 "DATA",160.16,16,"FIELD",354,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,16,"FIELD",355,0) 1737^1^1737^Subsq RX 2nd--Surg Oth "DATA",160.16,16,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,16,"FIELD",355,2) BLANK "DATA",160.16,16,"FIELD",355,3) L,BLANK^1678 "DATA",160.16,16,"FIELD",355,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,16,"FIELD",356,0) 1738^2^1739^Subsq RX 2nd--Reg LN Rem "DATA",160.16,16,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,16,"FIELD",356,2) BLANK "DATA",160.16,16,"FIELD",356,3) L,BLANK^1679 "DATA",160.16,16,"FIELD",356,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,16,"FIELD",357,0) 1757^1^1757^Subsq RX 3rd--Scope LN Su "DATA",160.16,16,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,16,"FIELD",357,2) BLANK "DATA",160.16,16,"FIELD",357,3) L,BLANK^1697 "DATA",160.16,16,"FIELD",357,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,16,"FIELD",358,0) 1758^1^1758^Subsq RX 3rd--Surg Oth "DATA",160.16,16,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,16,"FIELD",358,2) BLANK "DATA",160.16,16,"FIELD",358,3) L,BLANK^1698 "DATA",160.16,16,"FIELD",358,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,16,"FIELD",359,0) 1759^2^1760^Subsq RX 3rd--Reg LN Rem "DATA",160.16,16,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,16,"FIELD",359,2) BLANK "DATA",160.16,16,"FIELD",359,3) L,BLANK^1699 "DATA",160.16,16,"FIELD",359,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,16,"FIELD",360,0) 1778^1^1778^Subsq RX 4th--Scope LN Su "DATA",160.16,16,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,16,"FIELD",360,2) BLANK "DATA",160.16,16,"FIELD",360,3) L,BLANK^1717 "DATA",160.16,16,"FIELD",360,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,16,"FIELD",361,0) 1779^1^1779^Subsq RX 4th--Surg Oth "DATA",160.16,16,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,16,"FIELD",361,2) BLANK "DATA",160.16,16,"FIELD",361,3) L,BLANK^1718 "DATA",160.16,16,"FIELD",361,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,16,"FIELD",362,0) 1780^2^1781^Subsq RX 4th--Reg LN Rem "DATA",160.16,16,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,16,"FIELD",362,2) BLANK "DATA",160.16,16,"FIELD",362,3) L,BLANK^1719 "DATA",160.16,16,"FIELD",362,4) NUMBER OF NODES REMOVED (165.51,37) "DATA",160.16,16,"FIELD",363,0) 1060^3^1062^CS Site-Specific Factor 20 "DATA",160.16,16,"FIELD",363,1) "DATA",160.16,16,"FIELD",363,2) BLANK "DATA",160.16,16,"FIELD",363,3) L,BLANK^2874 "DATA",160.16,16,"FIELD",363,4) "DATA",160.16,16,"FIELD",366,0) 1787^1^1787^Subsq RX--Reconstruct Del "DATA",160.16,16,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,16,"FIELD",366,2) NINE "DATA",160.16,16,"FIELD",366,3) L,NINE^1741 "DATA",160.16,16,"FIELD",366,4) RECON/RESTORE - DELAYED (165.51,33) "DATA",160.16,16,"FIELD",367,0) 2208^50^2257^Follow-Up Contact--City "DATA",160.16,16,"FIELD",367,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,2) K VICPNT "DATA",160.16,16,"FIELD",367,2) BLANK "DATA",160.16,16,"FIELD",367,3) R,BLANK^1842 "DATA",160.16,16,"FIELD",367,4) ZIP CODE (165,.119) "DATA",160.16,16,"FIELD",368,0) 2258^2^2259^Follow-Up Contact--State "DATA",160.16,16,"FIELD",368,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) STATE=$P(~VIC(5.11,VICPNT,0),U,4) S:$G(STATE) ACDANS=$P(~DIC(5,STATE,0),U,2) K STATE,VICPNT "DATA",160.16,16,"FIELD",368,2) BLANK "DATA",160.16,16,"FIELD",368,3) R,BLANK^1844 "DATA",160.16,16,"FIELD",368,4) ZIP CODE (165,.119) "DATA",160.16,16,"FIELD",369,0) 2260^9^2268^Follow-Up Contact--Postal "DATA",160.16,16,"FIELD",369,1) S ACDANS="",VICPNT=$$FCNODE~ONCACDU2(ACD160,.119,"I") S:$G(VICPNT) ACDANS=$P(~VIC(5.11,VICPNT,0),U,1) K VICPNT "DATA",160.16,16,"FIELD",369,2) BLANK "DATA",160.16,16,"FIELD",369,3) R,BLANK^1846 "DATA",160.16,16,"FIELD",369,4) ZIP CODE (165,.119) "DATA",160.16,16,"FIELD",370,0) 1905^1^1905^Over-ride Site/Behavior "DATA",160.16,16,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,16,"FIELD",370,2) BLANK "DATA",160.16,16,"FIELD",370,3) L,BLANK^2071 "DATA",160.16,16,"FIELD",370,4) OVERRIDE SITE/BEHAVIOR (165.5,214) "DATA",160.16,16,"FIELD",371,0) 1906^1^1906^Over-ride Site/EOD/DX Dt "DATA",160.16,16,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,16,"FIELD",371,2) BLANK "DATA",160.16,16,"FIELD",371,3) L,BLANK^2072 "DATA",160.16,16,"FIELD",371,4) OVERRIDE SITE/EOD/DX DT (165.5,215) "DATA",160.16,16,"FIELD",372,0) 1907^1^1907^Over-ride Site/Lat/EOD "DATA",160.16,16,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,16,"FIELD",372,2) BLANK "DATA",160.16,16,"FIELD",372,3) L,BLANK^2073 "DATA",160.16,16,"FIELD",372,4) OVERRIDE SITE/LAT/EOD (165.5,216) "DATA",160.16,16,"FIELD",373,0) 1908^1^1908^Over-ride Site/Lat/Morph "DATA",160.16,16,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,16,"FIELD",373,2) BLANK "DATA",160.16,16,"FIELD",373,3) L,BLANK^2074 "DATA",160.16,16,"FIELD",373,4) OVERRIDE SITE/LAT/MORPH (165.5,217) "DATA",160.16,16,"FIELD",376,0) 1991^8^1998^Date Case Report Received "DATA",160.16,16,"FIELD",376,1) S ACDANS="" "DATA",160.16,16,"FIELD",376,2) BLANK "DATA",160.16,16,"FIELD",376,3) L,BLANK^2111 "DATA",160.16,16,"FIELD",377,0) 1999^8^2006^Date Case Report Loaded "DATA",160.16,16,"FIELD",377,1) S ACDANS="" "DATA",160.16,16,"FIELD",377,2) BLANK "DATA",160.16,16,"FIELD",377,3) L,BLANK^2112 "DATA",160.16,16,"FIELD",378,0) 2007^2014^1242^Date Tumor Record Availbl "DATA",160.16,16,"FIELD",378,1) S ACDANS="" "DATA",160.16,16,"FIELD",378,2) BLANK "DATA",160.16,16,"FIELD",378,3) L,BLANK^2113 "DATA",160.16,16,"FIELD",379,0) 1920^10^1929^CRC CHECKSUM "DATA",160.16,16,"FIELD",379,1) S ACDANS="" "DATA",160.16,16,"FIELD",379,2) BLANK "DATA",160.16,16,"FIELD",379,3) L,BLANK^2081 "DATA",160.16,16,"FIELD",380,0) 4^13^16^Reserved 00 "DATA",160.16,16,"FIELD",380,1) S ACDANS="" "DATA",160.16,16,"FIELD",380,2) BLANK "DATA",160.16,16,"FIELD",380,3) L,BLANK^37 "DATA",160.16,16,"FIELD",382,0) 701^10^710^Reporting Facility "DATA",160.16,16,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") I (ACDANS=9999999)&($L(STAT1)=8) S ACDANS=99999999 "DATA",160.16,16,"FIELD",382,2) ZERO "DATA",160.16,16,"FIELD",382,3) L,ZERO^540 "DATA",160.16,16,"FIELD",382,4) REPORTING FACILITY (165.5,.03) "DATA",160.16,16,"FIELD",383,0) 731^9^739^Accession Number--Hosp "DATA",160.16,16,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,16,"FIELD",383,2) BLANK "DATA",160.16,16,"FIELD",383,3) L,ZERO^550 "DATA",160.16,16,"FIELD",383,4) ACCESSION NUMBER (165.5,.05) "DATA",160.16,16,"FIELD",388,0) 691^10^700^NPI--Reporting Facility "DATA",160.16,16,"FIELD",388,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,.03,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,16,"FIELD",388,2) BLANK "DATA",160.16,16,"FIELD",388,3) L,BLANK^545 "DATA",160.16,16,"FIELD",388,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",390,0) 591^100^690^Reserved 03 "DATA",160.16,16,"FIELD",390,1) S ACDANS="" "DATA",160.16,16,"FIELD",390,2) BLANK "DATA",160.16,16,"FIELD",390,3) L,BLANK^680 "DATA",160.16,16,"FIELD",391,0) 904^1^904^SEER Summary Stage 2000 "DATA",160.16,16,"FIELD",391,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,16,"FIELD",391,2) BLANK "DATA",160.16,16,"FIELD",391,3) L,BLANK^759 "DATA",160.16,16,"FIELD",391,4) SEER SUMMARY STAGE 2000 (165.5,35) "DATA",160.16,16,"FIELD",392,0) 1888^1^1888^Over-ride SS/NodesPos "DATA",160.16,16,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,16,"FIELD",392,2) BLANK "DATA",160.16,16,"FIELD",392,3) L,BLANK^1981 "DATA",160.16,16,"FIELD",392,4) OVERRIDE SS/NODESPOS (165.5,218) "DATA",160.16,16,"FIELD",393,0) 1889^1^1889^Over-ride SS/TNM-N "DATA",160.16,16,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,16,"FIELD",393,2) BLANK "DATA",160.16,16,"FIELD",393,3) L,BLANK^1982 "DATA",160.16,16,"FIELD",393,4) OVERRIDE SS/TNM-N (165.5,219) "DATA",160.16,16,"FIELD",394,0) 1890^1^1890^Over-ride SS/TNM-M "DATA",160.16,16,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,16,"FIELD",394,2) BLANK "DATA",160.16,16,"FIELD",394,3) L,BLANK^1983 "DATA",160.16,16,"FIELD",394,4) OVERRIDE SS/TNM-M (165.5,220) "DATA",160.16,16,"FIELD",395,0) 1118^3^1120^Derived AJCC-7 N "DATA",160.16,16,"FIELD",395,1) "DATA",160.16,16,"FIELD",395,2) BLANK "DATA",160.16,16,"FIELD",395,3) L,BLANK^3410 "DATA",160.16,16,"FIELD",395,4) "DATA",160.16,16,"FIELD",396,0) 1891^1^1891^Over-ride Acsn/Class/Seq "DATA",160.16,16,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,16,"FIELD",396,2) BLANK "DATA",160.16,16,"FIELD",396,3) L,BLANK^1985 "DATA",160.16,16,"FIELD",396,4) OVERRIDE ACSN/CLASS/SEQ (165.5,222) "DATA",160.16,16,"FIELD",397,0) 1892^1^1892^Over-ride HospSeq/DxConf "DATA",160.16,16,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,16,"FIELD",397,2) BLANK "DATA",160.16,16,"FIELD",397,3) L,BLANK^1986 "DATA",160.16,16,"FIELD",397,4) OVERRIDE HOSPSEQ/DXCONF (165.5,223) "DATA",160.16,16,"FIELD",398,0) 1893^1^1893^Over-ride CoC-Site/Type "DATA",160.16,16,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,16,"FIELD",398,2) BLANK "DATA",160.16,16,"FIELD",398,3) L,BLANK^1987 "DATA",160.16,16,"FIELD",398,4) OVERRIDE COC-SITE/TYPE (165.5,224) "DATA",160.16,16,"FIELD",399,0) 1894^1^1894^Over-ride HospSeq/Site "DATA",160.16,16,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,16,"FIELD",399,2) BLANK "DATA",160.16,16,"FIELD",399,3) L,BLANK^1988 "DATA",160.16,16,"FIELD",399,4) OVERRIDE HOSPSEQ/SITE (165.5,225) "DATA",160.16,16,"FIELD",400,0) 1895^1^1895^Over-ride Site/TNM-StgGrp "DATA",160.16,16,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,16,"FIELD",400,2) BLANK "DATA",160.16,16,"FIELD",400,3) L,BLANK^1989 "DATA",160.16,16,"FIELD",400,4) OVERRIDE SITE/TNM-STAGE GROUP (165.5,226) "DATA",160.16,16,"FIELD",401,0) 2280^8^2287^Date of Death--Canada "DATA",160.16,16,"FIELD",401,1) S ACDANS="" "DATA",160.16,16,"FIELD",401,2) BLANK "DATA",160.16,16,"FIELD",401,3) L,BLANK^1755 "DATA",160.16,16,"FIELD",402,0) 40^2^41^Tumor Record Number "DATA",160.16,16,"FIELD",402,1) S ACDANS="" "DATA",160.16,16,"FIELD",402,2) BLANK "DATA",160.16,16,"FIELD",402,3) L,BLANK^60 "DATA",160.16,16,"FIELD",402,4) "DATA",160.16,16,"FIELD",403,0) 20^10^29^NPI--Registry ID "DATA",160.16,16,"FIELD",403,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") K FACIEN S:$G(STAT1)'="" FACIEN=$O(~ONCO(160.19,"B",STAT1,0)) S ACDANS=$S(DATEDX<3070000:"",$G(FACIEN)'="":$$GET1~DIQ(160.19,FACIEN,101),1:"") "DATA",160.16,16,"FIELD",403,2) BLANK "DATA",160.16,16,"FIELD",403,3) L,BLANK^45 "DATA",160.16,16,"FIELD",403,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",404,0) 95^50^144^Addr at DX--City "DATA",160.16,16,"FIELD",404,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"UNKNOWN") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",404,2) BLANK "DATA",160.16,16,"FIELD",404,3) R,BLANK^70 "DATA",160.16,16,"FIELD",404,4) CITY/TOWN AT DX (165.5,8.1) "DATA",160.16,16,"FIELD",405,0) 145^2^146^Addr at DX--State "DATA",160.16,16,"FIELD",405,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,16,"FIELD",405,2) BLANK "DATA",160.16,16,"FIELD",405,3) L,BLANK^80 "DATA",160.16,16,"FIELD",405,4) STATE AT DX (165.5,16) "DATA",160.16,16,"FIELD",406,0) 188^1^188^Race Coding Sys--Original "DATA",160.16,16,"FIELD",406,1) S ACDANS=7 "DATA",160.16,16,"FIELD",406,2) BLANK "DATA",160.16,16,"FIELD",406,3) L,BLANK^180 "DATA",160.16,16,"FIELD",406,4) 2010+ SEER & CoC (added codes 15, 16, and 17; removed 09) "DATA",160.16,16,"FIELD",407,0) 156^3^158^County at DX "DATA",160.16,16,"FIELD",407,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,16,"FIELD",407,2) BLANK "DATA",160.16,16,"FIELD",407,3) L,ZERO^90 "DATA",160.16,16,"FIELD",407,4) COUNTY AT DX (165.5,10) "DATA",160.16,16,"FIELD",408,0) 159^6^164^Census Tract 1970/80/90 "DATA",160.16,16,"FIELD",408,1) S ACDANS="" "DATA",160.16,16,"FIELD",408,2) BLANK "DATA",160.16,16,"FIELD",408,3) L,BLANK^110 "DATA",160.16,16,"FIELD",408,4) "DATA",160.16,16,"FIELD",409,0) 166^1^166^Census Cod Sys 1970/80/90 "DATA",160.16,16,"FIELD",409,1) S ACDANS="" "DATA",160.16,16,"FIELD",409,2) BLANK "DATA",160.16,16,"FIELD",409,3) L,BLANK^120 "DATA",160.16,16,"FIELD",411,0) 216^1^216^Industry Source "DATA",160.16,16,"FIELD",411,1) S ACDANS="" "DATA",160.16,16,"FIELD",411,2) BLANK "DATA",160.16,16,"FIELD",411,3) L,BLANK^300 "DATA",160.16,16,"FIELD",412,0) 417^1^417^Occup/Ind Coding System "DATA",160.16,16,"FIELD",412,1) S ACDANS="" "DATA",160.16,16,"FIELD",412,2) BLANK "DATA",160.16,16,"FIELD",412,3) L,BLANK^330 "DATA",160.16,16,"FIELD",413,0) 187^1^187^Race Coding Sys--Current "DATA",160.16,16,"FIELD",413,1) S ACDANS=7 "DATA",160.16,16,"FIELD",413,2) BLANK "DATA",160.16,16,"FIELD",413,3) L,BLANK^170 "DATA",160.16,16,"FIELD",413,4) 2010+ SEER & CoC (added codes 15, 16, and 17; removed 09) "DATA",160.16,16,"FIELD",414,0) 189^1^189^Spanish/Hispanic Origin "DATA",160.16,16,"FIELD",414,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,16,"FIELD",414,2) BLANK "DATA",160.16,16,"FIELD",414,3) L,BLANK^190 "DATA",160.16,16,"FIELD",414,4) SPANISH ORIGIN (160,9) "DATA",160.16,16,"FIELD",415,0) 190^1^190^Computed Ethnicity "DATA",160.16,16,"FIELD",415,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,16,"FIELD",415,2) BLANK "DATA",160.16,16,"FIELD",415,3) L,BLANK^200 "DATA",160.16,16,"FIELD",415,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,16,"FIELD",416,0) 191^1^191^Computed Ethnicity Source "DATA",160.16,16,"FIELD",416,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2931231:0,1:"") K DATEDX "DATA",160.16,16,"FIELD",416,2) BLANK "DATA",160.16,16,"FIELD",416,3) L,BLANK^210 "DATA",160.16,16,"FIELD",416,4) 0 = (No match was run, for 1994 and later cases) Blank = (1993 and earlier tumors, no match was run) "DATA",160.16,16,"FIELD",417,0) 192^1^192^Sex "DATA",160.16,16,"FIELD",417,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,16,"FIELD",417,2) BLANK "DATA",160.16,16,"FIELD",417,3) L,BLANK^220 "DATA",160.16,16,"FIELD",417,4) SEX (160,10) "DATA",160.16,16,"FIELD",418,0) 193^3^195^Age at Diagnosis "DATA",160.16,16,"FIELD",418,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,16,"FIELD",418,2) BLANK "DATA",160.16,16,"FIELD",418,3) L,ZERO^230 "DATA",160.16,16,"FIELD",418,4) AGE~ONCOCOM "DATA",160.16,16,"FIELD",419,0) 196^8^203^Date of Birth "DATA",160.16,16,"FIELD",419,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,16,"FIELD",419,2) BLANK "DATA",160.16,16,"FIELD",419,3) L,ZERO^240 "DATA",160.16,16,"FIELD",419,4) DOB~ONCOES "DATA",160.16,16,"FIELD",420,0) 206^208^132^Birthplace "DATA",160.16,16,"FIELD",420,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,16,"FIELD",420,2) BLANK "DATA",160.16,16,"FIELD",420,3) L,ZERO^250 "DATA",160.16,16,"FIELD",420,4) PLACE OF BIRTH (160,7) "DATA",160.16,16,"FIELD",421,0) 174^1^174^Census Block Group 2000 "DATA",160.16,16,"FIELD",421,1) S ACDANS="" "DATA",160.16,16,"FIELD",421,2) BLANK "DATA",160.16,16,"FIELD",421,3) L,BLANK^362 "DATA",160.16,16,"FIELD",422,0) 167^1^167^Census Tr Cert 1970/80/90 "DATA",160.16,16,"FIELD",422,1) S ACDANS="" "DATA",160.16,16,"FIELD",422,2) BLANK "DATA",160.16,16,"FIELD",422,3) L,BLANK^364 "DATA",160.16,16,"FIELD",423,0) 215^1^215^Occupation Source "DATA",160.16,16,"FIELD",423,1) S ACDANS="" "DATA",160.16,16,"FIELD",423,2) BLANK "DATA",160.16,16,"FIELD",423,3) L,BLANK^290 "DATA",160.16,16,"FIELD",424,0) 179^2^180^Race 2 "DATA",160.16,16,"FIELD",424,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,16,"FIELD",424,2) 8 "DATA",160.16,16,"FIELD",424,3) L,ZERO^161 "DATA",160.16,16,"FIELD",424,4) RACE 2 (160,8.1) "DATA",160.16,16,"FIELD",425,0) 181^2^182^Race 3 "DATA",160.16,16,"FIELD",425,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,16,"FIELD",425,2) 8 "DATA",160.16,16,"FIELD",425,3) L,ZERO^162 "DATA",160.16,16,"FIELD",425,4) RACE 3 (160,8.2) "DATA",160.16,16,"FIELD",426,0) 183^2^184^Race 4 "DATA",160.16,16,"FIELD",426,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,16,"FIELD",426,2) 8 "DATA",160.16,16,"FIELD",426,3) L,ZERO^163 "DATA",160.16,16,"FIELD",426,4) RACE 4 (160,8.3) "DATA",160.16,16,"FIELD",427,0) 185^2^186^Race 5 "DATA",160.16,16,"FIELD",427,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,16,"FIELD",427,2) 8 "DATA",160.16,16,"FIELD",427,3) L,ZERO^164 "DATA",160.16,16,"FIELD",427,4) RACE 5 (160,8.4) "DATA",160.16,16,"FIELD",428,0) 209^211^137^Occupation Code--Census "DATA",160.16,16,"FIELD",428,1) S ACDANS="" "DATA",160.16,16,"FIELD",428,2) BLANK "DATA",160.16,16,"FIELD",428,3) L,BLANK^270 "DATA",160.16,16,"FIELD",429,0) 212^3^214^Industry Code--Census "DATA",160.16,16,"FIELD",429,1) S ACDANS="" "DATA",160.16,16,"FIELD",429,2) BLANK "DATA",160.16,16,"FIELD",429,3) L,BLANK^280 "DATA",160.16,16,"FIELD",430,0) 2527^1^2527^Tobacco History "DATA",160.16,16,"FIELD",430,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,16,"FIELD",430,2) BLANK "DATA",160.16,16,"FIELD",430,3) L,BLANK^340 "DATA",160.16,16,"FIELD",430,4) TOBACCO HISTORY (160,38) "DATA",160.16,16,"FIELD",431,0) 2528^1^2528^Alcohol History "DATA",160.16,16,"FIELD",431,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,16,"FIELD",431,2) BLANK "DATA",160.16,16,"FIELD",431,3) L,BLANK^350 "DATA",160.16,16,"FIELD",431,4) ALCOHOL HISTORY (160,39) "DATA",160.16,16,"FIELD",432,0) 2529^1^2529^Family History of Cancer "DATA",160.16,16,"FIELD",432,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,16,"FIELD",432,2) BLANK "DATA",160.16,16,"FIELD",432,3) L,BLANK^360 "DATA",160.16,16,"FIELD",432,4) FAMILY HISTORY OF CANCER (160,43) "DATA",160.16,16,"FIELD",433,0) 528^2^529^Sequence Number--Central "DATA",160.16,16,"FIELD",433,1) S ACDANS=$$SNCNT~ONCACDU2(IEN) "DATA",160.16,16,"FIELD",433,2) BLANK "DATA",160.16,16,"FIELD",433,3) L,BLANK^380 "DATA",160.16,16,"FIELD",434,0) 530^8^537^Date of Diagnosis "DATA",160.16,16,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",434,2) BLANK "DATA",160.16,16,"FIELD",434,3) L,ZERO^390 "DATA",160.16,16,"FIELD",434,4) DATE DX (165.5,3) "DATA",160.16,16,"FIELD",435,0) 424^2^425^RuralUrban Continuum 1993 "DATA",160.16,16,"FIELD",435,1) S ACDANS="" "DATA",160.16,16,"FIELD",435,2) BLANK "DATA",160.16,16,"FIELD",435,3) L,BLANK^3300 "DATA",160.16,16,"FIELD",435,4) Program not run; record not coded "DATA",160.16,16,"FIELD",436,0) 426^2^427^RuralUrban Continuum 2003 "DATA",160.16,16,"FIELD",436,1) S ACDANS="" "DATA",160.16,16,"FIELD",436,2) BLANK "DATA",160.16,16,"FIELD",436,3) L,BLANK^3310 "DATA",160.16,16,"FIELD",436,4) Program not run; record not coded "DATA",160.16,16,"FIELD",437,0) 419^2^420^Race--NAPIIA "DATA",160.16,16,"FIELD",437,1) S ACDANS="" "DATA",160.16,16,"FIELD",437,2) BLANK "DATA",160.16,16,"FIELD",437,3) L,BLANK^193 "DATA",160.16,16,"FIELD",438,0) 721^10^730^Archive FIN "DATA",160.16,16,"FIELD",438,1) S ACDANS=STAT1 "DATA",160.16,16,"FIELD",438,2) ZERO "DATA",160.16,16,"FIELD",438,3) L,ZERO^3100 "DATA",160.16,16,"FIELD",438,4) FACILITY ID # (160.1,27) "DATA",160.16,16,"FIELD",439,0) 799^1^799^RX Hosp--Palliative Proc "DATA",160.16,16,"FIELD",439,1) S ACDANS=$$GET1~DIQ(165.5,IEN,13,"I") "DATA",160.16,16,"FIELD",439,2) NINE "DATA",160.16,16,"FIELD",439,3) L,BLANK^3280 "DATA",160.16,16,"FIELD",439,4) PALLIATIVE PROCEDURE @FAC (165.5,13) "DATA",160.16,16,"FIELD",440,0) 985^3^987^CS Tumor Size "DATA",160.16,16,"FIELD",440,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.2,"I")) K DATEDX "DATA",160.16,16,"FIELD",440,2) BLANK "DATA",160.16,16,"FIELD",440,3) L,ZERO^2800 "DATA",160.16,16,"FIELD",440,4) TUMOR SIZE (CS) (165.5,29.2) "DATA",160.16,16,"FIELD",441,0) 988^3^990^CS Extension "DATA",160.16,16,"FIELD",441,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,30.2,"I")) K DATEDX "DATA",160.16,16,"FIELD",441,2) BLANK "DATA",160.16,16,"FIELD",441,3) L,ZERO^2810 "DATA",160.16,16,"FIELD",441,4) EXTENSION (CS) (165.5,30.2) "DATA",160.16,16,"FIELD",442,0) 991^1^991^CS Tumor Size/Ext Eval "DATA",160.16,16,"FIELD",442,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,29.1,"I")) K DATEDX "DATA",160.16,16,"FIELD",442,2) BLANK "DATA",160.16,16,"FIELD",442,3) L,ZERO^2820 "DATA",160.16,16,"FIELD",442,4) TUMOR SIZE/EXT EVAL (CS) (165.5,29.1) "DATA",160.16,16,"FIELD",443,0) 992^3^994^CS Lymph Nodes "DATA",160.16,16,"FIELD",443,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,31.1,"I")) K DATEDX "DATA",160.16,16,"FIELD",443,2) BLANK "DATA",160.16,16,"FIELD",443,3) L,BLANK^2830 "DATA",160.16,16,"FIELD",443,4) LYMPH NODES (CS) (165.5,31.1) "DATA",160.16,16,"FIELD",444,0) 995^1^995^CS Lymph Nodes Eval "DATA",160.16,16,"FIELD",444,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,32.1,"I")) K DATEDX "DATA",160.16,16,"FIELD",444,2) BLANK "DATA",160.16,16,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,16,"FIELD",444,4) LYMPH NODES EVAL (CS) (165.5,32.1) "DATA",160.16,16,"FIELD",445,0) 996^2^997^CS Mets at DX "DATA",160.16,16,"FIELD",445,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.3,"I")) K DATEDX "DATA",160.16,16,"FIELD",445,2) BLANK "DATA",160.16,16,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,16,"FIELD",445,4) METS AT DX (CS) (165.5,34.3) "DATA",160.16,16,"FIELD",446,0) 998^1^998^CS Mets Eval "DATA",160.16,16,"FIELD",446,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,34.4,"I")) K DATEDX "DATA",160.16,16,"FIELD",446,2) BLANK "DATA",160.16,16,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,16,"FIELD",446,4) METS EVAL (CS) (165.5,34.4) "DATA",160.16,16,"FIELD",447,0) 1003^3^1005^CS Site-Specific Factor 1 "DATA",160.16,16,"FIELD",447,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.1,"I")) K DATEDX "DATA",160.16,16,"FIELD",447,2) BLANK "DATA",160.16,16,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,16,"FIELD",447,4) SITE-SPECIFIC FACTOR 1 (CS) (165.5,44.1) "DATA",160.16,16,"FIELD",448,0) 1006^3^1008^CS Site-Specific Factor 2 "DATA",160.16,16,"FIELD",448,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.2,"I")) K DATEDX "DATA",160.16,16,"FIELD",448,2) BLANK "DATA",160.16,16,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,16,"FIELD",448,4) SITE-SPECIFIC FACTOR 2 (CS) (165.5,44.2) "DATA",160.16,16,"FIELD",449,0) 1009^3^1011^CS Site-Specific Factor 3 "DATA",160.16,16,"FIELD",449,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.3,"I")) K DATEDX "DATA",160.16,16,"FIELD",449,2) BLANK "DATA",160.16,16,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,16,"FIELD",449,4) SITE-SPECIFIC FACTOR 3 (CS) (165.5,44.3) "DATA",160.16,16,"FIELD",450,0) 1012^3^1014^CS Site-Specific Factor 4 "DATA",160.16,16,"FIELD",450,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.4,"I")) K DATEDX "DATA",160.16,16,"FIELD",450,2) BLANK "DATA",160.16,16,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,16,"FIELD",450,4) SITE-SPECIFIC FACTOR 4 (CS) (165.5,44.4) "DATA",160.16,16,"FIELD",451,0) 1015^3^1017^CS Site-Specific Factor 5 "DATA",160.16,16,"FIELD",451,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.5,"I")) K DATEDX "DATA",160.16,16,"FIELD",451,2) BLANK "DATA",160.16,16,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,16,"FIELD",451,4) SITE-SPECIFIC FACTOR 5 (CS) (165.5,44.5) "DATA",160.16,16,"FIELD",452,0) 1018^3^1020^CS Site-Specific Factor 6 "DATA",160.16,16,"FIELD",452,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,44.6,"I")) K DATEDX "DATA",160.16,16,"FIELD",452,2) BLANK "DATA",160.16,16,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,16,"FIELD",452,4) SITE-SPECIFIC FACTOR 6 (CS) (165.5,44.6) "DATA",160.16,16,"FIELD",453,0) 1103^2^1104^Derived AJCC-6 T "DATA",160.16,16,"FIELD",453,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,160,"I")) K DATEDX "DATA",160.16,16,"FIELD",453,2) BLANK "DATA",160.16,16,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,16,"FIELD",453,4) DERIVED AJCC T (165.5,160) "DATA",160.16,16,"FIELD",454,0) 1105^1^1105^Derived AJCC-6 T Descript "DATA",160.16,16,"FIELD",454,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,161,"I")) K DATEDX "DATA",160.16,16,"FIELD",454,2) BLANK "DATA",160.16,16,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,16,"FIELD",454,4) DERIVED AJCC T DESCRIPTOR (165.5,161) "DATA",160.16,16,"FIELD",455,0) 1106^2^1107^Derived AJCC-6 N "DATA",160.16,16,"FIELD",455,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,162,"I")) K DATEDX "DATA",160.16,16,"FIELD",455,2) BLANK "DATA",160.16,16,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,16,"FIELD",455,4) DERIVED AJCC N (165.5,162) "DATA",160.16,16,"FIELD",456,0) 1108^1^1108^Derived AJCC-6 N Descript "DATA",160.16,16,"FIELD",456,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,163,"I")) K DATEDX "DATA",160.16,16,"FIELD",456,2) BLANK "DATA",160.16,16,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,16,"FIELD",456,4) DERIVED AJCC N DESCRIPTOR (165.5,163) "DATA",160.16,16,"FIELD",457,0) 1109^2^1110^Derived AJCC-6 M "DATA",160.16,16,"FIELD",457,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,164,"I")) K DATEDX "DATA",160.16,16,"FIELD",457,2) BLANK "DATA",160.16,16,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,16,"FIELD",457,4) DERIVED AJCC M (165.5,164) "DATA",160.16,16,"FIELD",458,0) 1111^1^1111^Derived AJCC-6 M Descript "DATA",160.16,16,"FIELD",458,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,165,"I")) K DATEDX "DATA",160.16,16,"FIELD",458,2) BLANK "DATA",160.16,16,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,16,"FIELD",458,4) DERIVED AJCC M DESCRIPTOR (165.5,165) "DATA",160.16,16,"FIELD",459,0) 1112^2^1113^Derived AJCC-6 Stage Grp "DATA",160.16,16,"FIELD",459,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,166,"I")) K DATEDX "DATA",160.16,16,"FIELD",459,2) BLANK "DATA",160.16,16,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,16,"FIELD",459,4) DERIVED AJCC STAGE GROUP (165.5,166) "DATA",160.16,16,"FIELD",460,0) 1155^1^1155^Derived SS1977 "DATA",160.16,16,"FIELD",460,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,167,"I")) K DATEDX "DATA",160.16,16,"FIELD",460,2) BLANK "DATA",160.16,16,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,16,"FIELD",460,4) DERIVED SS1977 (165.5,670) "DATA",160.16,16,"FIELD",461,0) 1156^1^1156^Derived SS2000 "DATA",160.16,16,"FIELD",461,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,168,"I")) K DATEDX "DATA",160.16,16,"FIELD",461,2) BLANK "DATA",160.16,16,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,16,"FIELD",461,4) DERIVED SS2000 (165.5,168) "DATA",160.16,16,"FIELD",462,0) 1158^1^1158^Derived AJCC--Flag "DATA",160.16,16,"FIELD",462,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,166,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,16,"FIELD",462,2) BLANK "DATA",160.16,16,"FIELD",462,3) L,BLANK^3030 "DATA",160.16,16,"FIELD",463,0) 1159^1^1159^Derived SS1977--Flag "DATA",160.16,16,"FIELD",463,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,167,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,16,"FIELD",463,2) BLANK "DATA",160.16,16,"FIELD",463,3) L,BLANK^3040 "DATA",160.16,16,"FIELD",464,0) 1160^1^1160^Derived SS2000--Flag "DATA",160.16,16,"FIELD",464,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),CSX=$$GET1~DIQ(165.5,IEN,168,"I") S ACDANS=$S(DATEDX<3040000:"",CSX'="":1,1:"") K CSX,DATEDX "DATA",160.16,16,"FIELD",464,2) BLANK "DATA",160.16,16,"FIELD",464,3) L,BLANK^3050 "DATA",160.16,16,"FIELD",465,0) 1186^5^1190^Comorbid/Complication 1 "DATA",160.16,16,"FIELD",465,1) S ACDANS=$$GET1~DIQ(160,ACD160,25,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",465,2) ZERO "DATA",160.16,16,"FIELD",465,3) R,ZERO^3110 "DATA",160.16,16,"FIELD",465,4) COMORBIDITY/COMPLICATION #1 (160,25) "DATA",160.16,16,"FIELD",466,0) 1191^5^1195^Comorbid/Complication 2 "DATA",160.16,16,"FIELD",466,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",466,2) BLANK "DATA",160.16,16,"FIELD",466,3) R,ZERO^3120 "DATA",160.16,16,"FIELD",466,4) COMORBIDITY/COMPLICATION #2 (160,25.1) "DATA",160.16,16,"FIELD",467,0) 1196^5^1200^Comorbid/Complication 3 "DATA",160.16,16,"FIELD",467,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",467,2) BLANK "DATA",160.16,16,"FIELD",467,3) R,ZERO^3130 "DATA",160.16,16,"FIELD",467,4) COMORBIDITY/COMPLICATION #3 (160,25.2) "DATA",160.16,16,"FIELD",468,0) 1201^5^1205^Comorbid/Complication 4 "DATA",160.16,16,"FIELD",468,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",468,2) BLANK "DATA",160.16,16,"FIELD",468,3) R,ZERO^3140 "DATA",160.16,16,"FIELD",468,4) COMORBIDITY/COMPLICATION #4 (160,25.3) "DATA",160.16,16,"FIELD",469,0) 1206^5^1210^Comorbid/Complication 5 "DATA",160.16,16,"FIELD",469,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",469,2) BLANK "DATA",160.16,16,"FIELD",469,3) R,ZERO^3150 "DATA",160.16,16,"FIELD",469,4) COMORBIDITY/COMPLICATION #5 (160,25.4) "DATA",160.16,16,"FIELD",470,0) 1211^5^1215^Comorbid/Complication 6 "DATA",160.16,16,"FIELD",470,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",470,2) BLANK "DATA",160.16,16,"FIELD",470,3) R,ZERO^3160 "DATA",160.16,16,"FIELD",470,4) COMORBIDITY/COMPLICATION #6 (160,25.5) "DATA",160.16,16,"FIELD",471,0) 1466^8^1473^RX Date--Most Defin Surg "DATA",160.16,16,"FIELD",471,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,16,"FIELD",471,2) BLANK "DATA",160.16,16,"FIELD",471,3) L,BLANK^3170 "DATA",160.16,16,"FIELD",471,4) MOST DEFINITIVE SURG DATE (165.5,50) "DATA",160.16,16,"FIELD",472,0) 1476^8^1483^RX Date--Surgical Disch "DATA",160.16,16,"FIELD",472,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,435,"I")) "DATA",160.16,16,"FIELD",472,2) BLANK "DATA",160.16,16,"FIELD",472,3) L,BLANK^3180 "DATA",160.16,16,"FIELD",472,4) DATE OF SURGICAL DISCHARGE (165.5,435) "DATA",160.16,16,"FIELD",473,0) 1496^8^1503^RX Date--Radiation Ended "DATA",160.16,16,"FIELD",473,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.16,16,"FIELD",473,2) BLANK "DATA",160.16,16,"FIELD",473,3) L,BLANK^3220 "DATA",160.16,16,"FIELD",473,4) DATE RADIATION ENDED (165.5,361) "DATA",160.16,16,"FIELD",474,0) 1506^8^1513^RX Date--Systemic "DATA",160.16,16,"FIELD",474,1) S ACDANS=$$GET1~DIQ(165.5,IEN,152) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,16,"FIELD",474,2) BLANK "DATA",160.16,16,"FIELD",474,3) L,BLANK^3230 "DATA",160.16,16,"FIELD",474,4) DATE SYSTEMIC THERAPY STARTED (165.5,152) "DATA",160.16,16,"FIELD",475,0) 2551^1^2551^Recurrence Distant Site 2 "DATA",160.16,16,"FIELD",475,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.2,"I") "DATA",160.16,16,"FIELD",475,2) BLANK "DATA",160.16,16,"FIELD",475,3) L,BLANK^1872 "DATA",160.16,16,"FIELD",475,4) DISTANT SITE 2 (165.5,71.2) "DATA",160.16,16,"FIELD",476,0) 2552^1^2552^Recurrence Distant Site 3 "DATA",160.16,16,"FIELD",476,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,16,"FIELD",476,2) BLANK "DATA",160.16,16,"FIELD",476,3) L,BLANK^1873 "DATA",160.16,16,"FIELD",476,4) DISTANT SITE 3 (165.5,71.3) "DATA",160.16,16,"FIELD",477,0) 1579^1^1579^RX Summ--Palliative Proc "DATA",160.16,16,"FIELD",477,1) S ACDANS=$$GET1~DIQ(165.5,IEN,12,"I") "DATA",160.16,16,"FIELD",477,2) NINE "DATA",160.16,16,"FIELD",477,3) L,BLANK^3270 "DATA",160.16,16,"FIELD",477,4) PALLIATIVE PROCEDURE (165.5,12) "DATA",160.16,16,"FIELD",478,0) 5065^500^5564^Reserved 13 "DATA",160.16,16,"FIELD",478,1) S ACDANS="" "DATA",160.16,16,"FIELD",478,2) BLANK "DATA",160.16,16,"FIELD",478,3) L,BLANK^2080 "DATA",160.16,16,"FIELD",479,0) 1583^2^1584^RX Summ--Transplnt/Endocr "DATA",160.16,16,"FIELD",479,1) S ACDANS=$$GET1~DIQ(165.5,IEN,153,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(167,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",479,2) BLANK "DATA",160.16,16,"FIELD",479,3) L,BLANK^3250 "DATA",160.16,16,"FIELD",479,4) HEMA TRANS/ENDOCRINE PROC (165.5,153) "DATA",160.16,16,"FIELD",480,0) 1609^2^1610^Rad--Boost RX Modality "DATA",160.16,16,"FIELD",480,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",480,2) ZERO "DATA",160.16,16,"FIELD",480,3) L,BLANK^3200 "DATA",160.16,16,"FIELD",480,4) BOOST TREATMENT MODALITY (165.5,363.1) "DATA",160.16,16,"FIELD",481,0) 1611^5^1615^Rad--Boost Dose: cGy "DATA",160.16,16,"FIELD",481,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.16,16,"FIELD",481,2) ZERO "DATA",160.16,16,"FIELD",481,3) L,ZERO^3210 "DATA",160.16,16,"FIELD",481,4) BOOST DOSE: cGy (165.5,443) "DATA",160.16,16,"FIELD",482,0) 1619^1^1619^Readm Same Hosp 30 Days "DATA",160.16,16,"FIELD",482,1) S ACDANS=$$GET1~DIQ(165.5,IEN,14,"I") "DATA",160.16,16,"FIELD",482,2) BLANK "DATA",160.16,16,"FIELD",482,3) L,BLANK^3190 "DATA",160.16,16,"FIELD",482,4) READMISSION W/I 30 DAYS/SURG (165.5,14) "DATA",160.16,16,"FIELD",483,0) 2342^1^2342^Agent Orange Exposure "DATA",160.16,16,"FIELD",483,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,48,"I")) "DATA",160.16,16,"FIELD",483,2) BLANK "DATA",160.16,16,"FIELD",483,3) L,BLANK^ "DATA",160.16,16,"FIELD",483,4) AGENT ORANGE EXPOSURE (160,48) "DATA",160.16,16,"FIELD",484,0) 3340^40^3379^Name--Last "DATA",160.16,16,"FIELD",484,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,16,"FIELD",484,2) BLANK "DATA",160.16,16,"FIELD",484,3) R,BLANK^2230 "DATA",160.16,16,"FIELD",484,4) LAST NAME (160,.011) "DATA",160.16,16,"FIELD",485,0) 3380^40^3419^Name--First "DATA",160.16,16,"FIELD",485,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," "),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,16,"FIELD",485,2) BLANK "DATA",160.16,16,"FIELD",485,3) R,BLANK^2240 "DATA",160.16,16,"FIELD",485,4) NAME (160,.01) "DATA",160.16,16,"FIELD",486,0) 3420^40^3459^Name--Middle "DATA",160.16,16,"FIELD",486,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E"),ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","") "DATA",160.16,16,"FIELD",486,2) BLANK "DATA",160.16,16,"FIELD",486,3) R,BLANK^2250 "DATA",160.16,16,"FIELD",486,4) MIDDLE NAME (160,.015) "DATA",160.16,16,"FIELD",487,0) 3460^3^3462^Name--Prefix "DATA",160.16,16,"FIELD",487,1) S ACDANS="" "DATA",160.16,16,"FIELD",487,2) BLANK "DATA",160.16,16,"FIELD",487,3) R,BLANK^2260 "DATA",160.16,16,"FIELD",488,0) 3463^3^3465^Name--Suffix "DATA",160.16,16,"FIELD",488,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,16,"FIELD",488,2) BLANK "DATA",160.16,16,"FIELD",488,3) R,BLANK^2270 "DATA",160.16,16,"FIELD",488,4) NAME (160,.01) "DATA",160.16,16,"FIELD",489,0) 3466^40^3505^Name--Alias "DATA",160.16,16,"FIELD",489,1) S ACDANS=$$GET1~DIQ(160,ACD160,1,"E") "DATA",160.16,16,"FIELD",489,2) BLANK "DATA",160.16,16,"FIELD",489,3) R,BLANK^2280 "DATA",160.16,16,"FIELD",489,4) ALIAS (160,1) "DATA",160.16,16,"FIELD",490,0) 3506^40^3545^Name--Maiden "DATA",160.16,16,"FIELD",490,1) S ACDANS="" "DATA",160.16,16,"FIELD",490,2) BLANK "DATA",160.16,16,"FIELD",490,3) R,BLANK^2390 "DATA",160.16,16,"FIELD",491,0) 3546^60^3605^Name--Spouse/Parent "DATA",160.16,16,"FIELD",491,1) S ACDANS="" "DATA",160.16,16,"FIELD",491,2) BLANK "DATA",160.16,16,"FIELD",491,3) R,BLANK^2290 "DATA",160.16,16,"FIELD",492,0) 3606^11^3616^Medical Record Number "DATA",160.16,16,"FIELD",492,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5,6)_$E(ACDANS,8,11) "DATA",160.16,16,"FIELD",492,2) BLANK "DATA",160.16,16,"FIELD",492,3) L,ZERO^2300 "DATA",160.16,16,"FIELD",492,4) SSN (160,2) "DATA",160.16,16,"FIELD",493,0) 3617^2^3618^Military Record No Suffix "DATA",160.16,16,"FIELD",493,1) S ACDANS="" "DATA",160.16,16,"FIELD",493,2) BLANK "DATA",160.16,16,"FIELD",493,3) L,ZERO^2310 "DATA",160.16,16,"FIELD",494,0) 3619^9^3627^Social Security Number "DATA",160.16,16,"FIELD",494,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,16,"FIELD",494,2) NINE "DATA",160.16,16,"FIELD",494,3) L,BLANK^2320 "DATA",160.16,16,"FIELD",494,4) SSN (160,2) "DATA",160.16,16,"FIELD",495,0) 3628^60^3687^Addr at DX--No & Street "DATA",160.16,16,"FIELD",495,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",495,2) BLANK "DATA",160.16,16,"FIELD",495,3) R,BLANK^2330 "DATA",160.16,16,"FIELD",495,4) PATIENT ADDRESS AT DX (165.5,8) "DATA",160.16,16,"FIELD",496,0) 3688^60^3747^Addr at DX--Supplementl "DATA",160.16,16,"FIELD",496,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8.2,"E") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",496,2) BLANK "DATA",160.16,16,"FIELD",496,3) R,BLANK^2335 "DATA",160.16,16,"FIELD",496,4) PATIENT ADDRESS AT DX - SUPP (165.5,8.2) "DATA",160.16,16,"FIELD",497,0) 3748^60^3807^Addr Current--No & Street "DATA",160.16,16,"FIELD",497,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",497,2) BLANK "DATA",160.16,16,"FIELD",497,3) R,BLANK^2350 "DATA",160.16,16,"FIELD",497,4) PATIENT ADDRESS - CURRENT (160,.119) "DATA",160.16,16,"FIELD",498,0) 3808^60^3867^Addr Current--Supplementl "DATA",160.16,16,"FIELD",498,1) S ACDANS=$$GET1~DIQ(160,ACD160,.1191,"E") D STRIP~ONCACDU2 "DATA",160.16,16,"FIELD",498,2) BLANK "DATA",160.16,16,"FIELD",498,3) R,BLANK^2355 "DATA",160.16,16,"FIELD",498,4) PATIENT ADDRESS - CURRENT SUPP (160,.1191) "DATA",160.16,16,"FIELD",499,0) 3868^10^3877^Telephone "DATA",160.16,16,"FIELD",499,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") I ACDANS'="" S ACDANS=$TR(ACDANS,"ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz`~!@#$%&*()-_=+[{]}\|;:',<.>/? ","") I ACDANS'?10N S ACDANS="" "DATA",160.16,16,"FIELD",499,2) NINE "DATA",160.16,16,"FIELD",499,3) R,BLANK^2360 "DATA",160.16,16,"FIELD",499,4) TELEPHONE (160,.131) "DATA",160.16,16,"FIELD",500,0) 3878^6^3883^DC State File Number "DATA",160.16,16,"FIELD",500,1) S ACDANS="" "DATA",160.16,16,"FIELD",500,2) BLANK "DATA",160.16,16,"FIELD",500,3) L,BLANK^2380 "DATA",160.16,16,"FIELD",501,0) 3884^60^3943^Follow-Up Contact--Name "DATA",160.16,16,"FIELD",501,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.01,"E"),ACDANS=$P(ACDANS,",",2)_" "_$P(ACDANS,",",1),ACDANS=$$TRIM~XLFSTR(ACDANS) "DATA",160.16,16,"FIELD",501,2) BLANK "DATA",160.16,16,"FIELD",501,3) R,BLANK^2394 "DATA",160.16,16,"FIELD",501,4) CONTACT (165,.01) "DATA",160.16,16,"FIELD",502,0) 3944^60^4003^Follow-Up Contact--No&St "DATA",160.16,16,"FIELD",502,1) S ACDANS=$$FCNODE~ONCACDU2(ACD160,.111,"E") "DATA",160.16,16,"FIELD",502,2) BLANK "DATA",160.16,16,"FIELD",502,3) R,BLANK^2392 "DATA",160.16,16,"FIELD",502,4) STREET ADDRESS 1 (165,.111) "DATA",160.16,16,"FIELD",503,0) 4004^60^4063^Follow-Up Contact--Suppl "DATA",160.16,16,"FIELD",503,1) S ACDANS="" "DATA",160.16,16,"FIELD",503,2) BLANK "DATA",160.16,16,"FIELD",503,3) L,BLANK^2393 "DATA",160.16,16,"FIELD",504,0) 4064^10^4073^Latitude "DATA",160.16,16,"FIELD",504,1) S ACDANS="" "DATA",160.16,16,"FIELD",504,2) BLANK "DATA",160.16,16,"FIELD",504,3) L,BLANK^2352 "DATA",160.16,16,"FIELD",505,0) 4074^11^4084^Longitude "DATA",160.16,16,"FIELD",505,1) S ACDANS="" "DATA",160.16,16,"FIELD",505,2) BLANK "DATA",160.16,16,"FIELD",505,3) L,BLANK^2354 "DATA",160.16,16,"FIELD",506,0) 4085^200^4284^Reserved 10 "DATA",160.16,16,"FIELD",506,1) S ACDANS="" "DATA",160.16,16,"FIELD",506,2) BLANK "DATA",160.16,16,"FIELD",506,3) L,BLANK^1835 "DATA",160.16,16,"FIELD",508,0) 4295^10^4304^Following Registry "DATA",160.16,16,"FIELD",508,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",508,2) ZERO "DATA",160.16,16,"FIELD",508,3) L,ZERO^2440 "DATA",160.16,16,"FIELD",508,4) FOLLOWING REGISTRY (160.04,10) "DATA",160.16,16,"FIELD",509,0) 4315^10^4324^Institution Referred From "DATA",160.16,16,"FIELD",509,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,16,"FIELD",509,2) ZERO "DATA",160.16,16,"FIELD",509,3) L,ZERO^2410 "DATA",160.16,16,"FIELD",509,4) FACILITY REFERRED FROM (165.5,6) "DATA",160.16,16,"FIELD",510,0) 4335^10^4344^Institution Referred To "DATA",160.16,16,"FIELD",510,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:ACDANS) "DATA",160.16,16,"FIELD",510,2) ZERO "DATA",160.16,16,"FIELD",510,3) L,ZERO^2420 "DATA",160.16,16,"FIELD",510,4) FACILITY REFERRED TO (165.5,7) "DATA",160.16,16,"FIELD",511,0) 4305^10^4314^NPI--Inst Referred From "DATA",160.16,16,"FIELD",511,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,6,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,16,"FIELD",511,2) BLANK "DATA",160.16,16,"FIELD",511,3) L,BLANK^2415 "DATA",160.16,16,"FIELD",511,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",512,0) 4405^8^4412^Physician--Managing "DATA",160.16,16,"FIELD",512,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,16,"FIELD",512,2) NINE "DATA",160.16,16,"FIELD",512,3) R,BLANK^2460 "DATA",160.16,16,"FIELD",512,4) MANAGING PHYSICIAN (165.5,2.2) "DATA",160.16,16,"FIELD",513,0) 4423^8^4430^Physician--Follow-Up "DATA",160.16,16,"FIELD",513,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,16,"FIELD",513,2) NINE "DATA",160.16,16,"FIELD",513,3) R,BLANK^2470 "DATA",160.16,16,"FIELD",513,4) FOLLOWING PHYSICIAN (165.5,2.1) "DATA",160.16,16,"FIELD",514,0) 4441^8^4448^Physician--Primary Surg "DATA",160.16,16,"FIELD",514,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,16,"FIELD",514,2) ZERO "DATA",160.16,16,"FIELD",514,3) R,BLANK^2480 "DATA",160.16,16,"FIELD",514,4) PRIMARY SURGEON (165.5,2) "DATA",160.16,16,"FIELD",515,0) 4459^8^4466^Physician 3 "DATA",160.16,16,"FIELD",515,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,16,"FIELD",515,2) ZERO "DATA",160.16,16,"FIELD",515,3) R,BLANK^2490 "DATA",160.16,16,"FIELD",515,4) PHYSICIAN #3 (165.5,2.3) "DATA",160.16,16,"FIELD",516,0) 4477^8^4484^Physician 4 "DATA",160.16,16,"FIELD",516,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") I ACDANS'="",(ACDANS'="00000000")&(ACDANS'=88888888)&(ACDANS'=99999999) S ACDANS=ACDANS_"0",ACDANS=$E(ACDANS,1,4)_"1234",ACDANS=$TR(ACDANS,"!#$%&*()_+-=[]:;'<,>.?/\","000000000000000000000000") "DATA",160.16,16,"FIELD",516,2) ZERO "DATA",160.16,16,"FIELD",516,3) R,BLANK^2500 "DATA",160.16,16,"FIELD",516,4) PHYSICIAN #4 (165.5,2.4) "DATA",160.16,16,"FIELD",517,0) 4395^10^4404^NPI--Physician--Managing "DATA",160.16,16,"FIELD",517,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,16,"FIELD",517,2) BLANK "DATA",160.16,16,"FIELD",517,3) L,BLANK^2465 "DATA",160.16,16,"FIELD",517,4) NPI (165,101) "DATA",160.16,16,"FIELD",518,0) 5565^1000^6564^Text--DX Proc--PE "DATA",160.16,16,"FIELD",518,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,16,"FIELD",518,2) BLANK "DATA",160.16,16,"FIELD",518,3) R,BLANK^2520 "DATA",160.16,16,"FIELD",518,4) TEXT-DX PROC-PE (165.5,104) "DATA",160.16,16,"FIELD",519,0) 6565^1000^7564^Text--DX Proc--X-ray/Scan "DATA",160.16,16,"FIELD",519,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,16,"FIELD",519,2) BLANK "DATA",160.16,16,"FIELD",519,3) R,BLANK^2530 "DATA",160.16,16,"FIELD",519,4) TEXT-DX PROC-X-RAY/SCAN (165.5,105) "DATA",160.16,16,"FIELD",520,0) 7565^1000^8564^Text--DX Proc--Scopes "DATA",160.16,16,"FIELD",520,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,16,"FIELD",520,2) BLANK "DATA",160.16,16,"FIELD",520,3) R,BLANK^2540 "DATA",160.16,16,"FIELD",520,4) TEXT-DX PROC-SCOPES (165.5,106) "DATA",160.16,16,"FIELD",521,0) 8565^1000^9564^Text--DX Proc--Lab Tests "DATA",160.16,16,"FIELD",521,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,16,"FIELD",521,2) BLANK "DATA",160.16,16,"FIELD",521,3) R,BLANK^2550 "DATA",160.16,16,"FIELD",521,4) TEXT-DX PROC-LAB TESTS (165.5,116) "DATA",160.16,16,"FIELD",522,0) 9565^1000^10564^Text--DX Proc--Op "DATA",160.16,16,"FIELD",522,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,16,"FIELD",522,2) BLANK "DATA",160.16,16,"FIELD",522,3) R,BLANK^2560 "DATA",160.16,16,"FIELD",522,4) TEXT-DX PROC-OP (165.5,103) "DATA",160.16,16,"FIELD",523,0) 10565^1000^11564^Text--DX Proc--Path "DATA",160.16,16,"FIELD",523,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,16,"FIELD",523,2) BLANK "DATA",160.16,16,"FIELD",523,3) R,BLANK^2570 "DATA",160.16,16,"FIELD",523,4) TEXT-DX PROC-PATH (165.5,107) "DATA",160.16,16,"FIELD",524,0) 11565^100^11664^Text--Primary Site Title "DATA",160.16,16,"FIELD",524,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,16,"FIELD",524,2) BLANK "DATA",160.16,16,"FIELD",524,3) R,BLANK^2580 "DATA",160.16,16,"FIELD",524,4) TEXT-PRIMARY SITE TITLE (165.5,100) "DATA",160.16,16,"FIELD",525,0) 11665^100^11764^Text--Histology Title "DATA",160.16,16,"FIELD",525,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,16,"FIELD",525,2) BLANK "DATA",160.16,16,"FIELD",525,3) R,BLANK^2590 "DATA",160.16,16,"FIELD",525,4) TEXT-HISTOLOGY TITLE (165.5,101) "DATA",160.16,16,"FIELD",526,0) 11765^1000^12764^Text--Staging "DATA",160.16,16,"FIELD",526,1) S ACDANS="" "DATA",160.16,16,"FIELD",526,2) BLANK "DATA",160.16,16,"FIELD",526,3) R,BLANK^2600 "DATA",160.16,16,"FIELD",527,0) 12765^1000^13764^RX Text--Surgery "DATA",160.16,16,"FIELD",527,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,16,"FIELD",527,2) BLANK "DATA",160.16,16,"FIELD",527,3) R,BLANK^2610 "DATA",160.16,16,"FIELD",527,4) RX TEXT-SURGERY (165.5,108) "DATA",160.16,16,"FIELD",528,0) 13765^1000^14764^RX Text--Radiation (Beam) "DATA",160.16,16,"FIELD",528,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,16,"FIELD",528,2) BLANK "DATA",160.16,16,"FIELD",528,3) R,BLANK^2620 "DATA",160.16,16,"FIELD",528,4) RX TEXT-RADIATION (165.5,109) "DATA",160.16,16,"FIELD",529,0) 14765^1000^15764^RX Text--Radiation Other "DATA",160.16,16,"FIELD",529,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,16,"FIELD",529,2) BLANK "DATA",160.16,16,"FIELD",529,3) R,BLANK^2630 "DATA",160.16,16,"FIELD",529,4) RX TEXT-RADIATION OTHER (165.5,110) "DATA",160.16,16,"FIELD",530,0) 15765^1000^16764^RX Text--Chemo "DATA",160.16,16,"FIELD",530,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,16,"FIELD",530,2) BLANK "DATA",160.16,16,"FIELD",530,3) R,BLANK^2640 "DATA",160.16,16,"FIELD",530,4) RX TEXT-CHEMO (165.5,111) "DATA",160.16,16,"FIELD",531,0) 16765^1000^17764^RX Text--Hormone "DATA",160.16,16,"FIELD",531,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,16,"FIELD",531,2) BLANK "DATA",160.16,16,"FIELD",531,3) R,BLANK^2650 "DATA",160.16,16,"FIELD",531,4) RX TEXT-HORMONE (165.5,112) "DATA",160.16,16,"FIELD",532,0) 17765^1000^18764^RX Text--BRM "DATA",160.16,16,"FIELD",532,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,16,"FIELD",532,2) BLANK "DATA",160.16,16,"FIELD",532,3) R,BLANK^2660 "DATA",160.16,16,"FIELD",532,4) RX TEXT-BRM (165.5,114) "DATA",160.16,16,"FIELD",533,0) 18765^1000^19764^RX Text--Other "DATA",160.16,16,"FIELD",533,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,16,"FIELD",533,2) BLANK "DATA",160.16,16,"FIELD",533,3) R,BLANK^2670 "DATA",160.16,16,"FIELD",533,4) RX TEXT-OTHER (165.5,115) "DATA",160.16,16,"FIELD",534,0) 19765^1000^20764^Text--Remarks "DATA",160.16,16,"FIELD",534,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,350) "DATA",160.16,16,"FIELD",534,2) BLANK "DATA",160.16,16,"FIELD",534,3) R,BLANK^2680 "DATA",160.16,16,"FIELD",534,4) TEXT-REMARKS (165.5,113) "DATA",160.16,16,"FIELD",535,0) 20765^60^20824^Text--Place of Diagnosis "DATA",160.16,16,"FIELD",535,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,16,"FIELD",535,2) BLANK "DATA",160.16,16,"FIELD",535,3) R,BLANK^2690 "DATA",160.16,16,"FIELD",535,4) DX FACILITY (165.5,5) "DATA",160.16,16,"FIELD",536,0) 20825^2000^22824^Reserved 14 "DATA",160.16,16,"FIELD",536,1) S ACDANS="" "DATA",160.16,16,"FIELD",536,2) BLANK "DATA",160.16,16,"FIELD",536,3) L,BLANK^2210 "DATA",160.16,16,"FIELD",537,0) 2343^1^2343^Ionizing Radiation Exposure "DATA",160.16,16,"FIELD",537,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,50,"I")) "DATA",160.16,16,"FIELD",537,2) BLANK "DATA",160.16,16,"FIELD",537,3) L,BLANK "DATA",160.16,16,"FIELD",537,4) IONIZING RADIATION EXPOSURE (160,50) "DATA",160.16,16,"FIELD",538,0) 2350^1^2350^Persian Gulf Service "DATA",160.16,16,"FIELD",538,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,51,"I")) "DATA",160.16,16,"FIELD",538,2) BLANK "DATA",160.16,16,"FIELD",538,3) L,BLANK "DATA",160.16,16,"FIELD",538,4) PERSIAN GULF SERVICE (160,51) "DATA",160.16,16,"FIELD",539,0) 2344^1^2344^Chemical Exposure "DATA",160.16,16,"FIELD",539,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,52,"I")) "DATA",160.16,16,"FIELD",539,2) BLANK "DATA",160.16,16,"FIELD",539,3) L,BLANK "DATA",160.16,16,"FIELD",539,4) CHEMICAL EXPOSURE (160,52) "DATA",160.16,16,"FIELD",540,0) 2345^1^2345^Asbestos Exposure "DATA",160.16,16,"FIELD",540,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,61,"I")) "DATA",160.16,16,"FIELD",540,2) BLANK "DATA",160.16,16,"FIELD",540,3) L,BLANK "DATA",160.16,16,"FIELD",540,4) ASBESTOS EXPOSURE (160,61) "DATA",160.16,16,"FIELD",541,0) 2340^2^2341^VISN "DATA",160.16,16,"FIELD",541,1) S ACDANS=$$VASIT~ONCACDU2 "DATA",160.16,16,"FIELD",541,2) BLANK "DATA",160.16,16,"FIELD",541,3) L,ZERO "DATA",160.16,16,"FIELD",541,4) VISN (160.1,7) "DATA",160.16,16,"FIELD",542,0) 1454^2^1455^Date of 1st Crs Rx Flag "DATA",160.16,16,"FIELD",542,1) "DATA",160.16,16,"FIELD",542,2) BLANK "DATA",160.16,16,"FIELD",542,3) L,BLANK^1271 "DATA",160.16,16,"FIELD",543,0) 2353^50^2402^Family History of Cancer Text "DATA",160.16,16,"FIELD",543,1) D FHCT~ONCACDU1 "DATA",160.16,16,"FIELD",543,2) BLANK "DATA",160.16,16,"FIELD",543,3) R,BLANK "DATA",160.16,16,"FIELD",543,4) FAMILY MEMBER WITH CANCER (160,44) "DATA",160.16,16,"FIELD",544,0) 2431^15^2445^Other Staging System "DATA",160.16,16,"FIELD",544,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",544,2) BLANK "DATA",160.16,16,"FIELD",544,3) R,BLANK^1070 "DATA",160.16,16,"FIELD",544,4) OTHER STAGING SYSTEM (165.5,39) "DATA",160.16,16,"FIELD",545,0) 2428^1^2428^AFIP Submission "DATA",160.16,16,"FIELD",545,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,16,"FIELD",545,2) BLANK "DATA",160.16,16,"FIELD",545,3) L,BLANK "DATA",160.16,16,"FIELD",545,4) AFIP SUBMISSION (165.5,83) "DATA",160.16,16,"FIELD",546,0) 2408^20^2427^Previous History of Cancer Text "DATA",160.16,16,"FIELD",546,1) D PHCT~ONCACDU1 "DATA",160.16,16,"FIELD",546,2) BLANK "DATA",160.16,16,"FIELD",546,3) R,BLANK "DATA",160.16,16,"FIELD",546,4) CANCER #1 (165.5,148.1), CANCER #2 (165.5,148.2), CANCER #3 (165.5,148.3), CANCER #4 (165.5,148.4) "DATA",160.16,16,"FIELD",547,0) 2555^785^3339^Reserved for Expansion "DATA",160.16,16,"FIELD",547,1) S ACDANS="" "DATA",160.16,16,"FIELD",547,2) BLANK "DATA",160.16,16,"FIELD",547,3) L,BLANK "DATA",160.16,16,"FIELD",548,0) 2407^1^2407^Previous History of Cancer "DATA",160.16,16,"FIELD",548,1) S ACDANS=$$GET1~DIQ(165.5,IEN,148,"I") "DATA",160.16,16,"FIELD",548,2) BLANK "DATA",160.16,16,"FIELD",548,3) L,BLANK "DATA",160.16,16,"FIELD",548,4) PREVIOUS HISTORY OF CANCER (165.5,148) "DATA",160.16,16,"FIELD",549,0) 2351^1^2351^Somalia Service "DATA",160.16,16,"FIELD",549,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,56,"I")) "DATA",160.16,16,"FIELD",549,2) BLANK "DATA",160.16,16,"FIELD",549,3) L,BLANK "DATA",160.16,16,"FIELD",549,4) SOMALIA SERVICE (160,56) "DATA",160.16,16,"FIELD",550,0) 2347^1^2347^Lebanon Service "DATA",160.16,16,"FIELD",550,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,55,"I")) "DATA",160.16,16,"FIELD",550,2) BLANK "DATA",160.16,16,"FIELD",550,3) L,BLANK "DATA",160.16,16,"FIELD",550,4) LEBANON SERVICE (160,55) "DATA",160.16,16,"FIELD",551,0) 2429^1^2429^Hepatitis C "DATA",160.16,16,"FIELD",551,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1010,"I") "DATA",160.16,16,"FIELD",551,2) BLANK "DATA",160.16,16,"FIELD",551,3) L,BLANK "DATA",160.16,16,"FIELD",551,4) HEPATITIS C (165.5,1010) "DATA",160.16,16,"FIELD",553,0) 802^1^802^RX Hosp--Scope Reg 98-02 "DATA",160.16,16,"FIELD",553,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,16,"FIELD",553,2) BLANK "DATA",160.16,16,"FIELD",553,3) L,BLANK^747 "DATA",160.16,16,"FIELD",553,4) SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "DATA",160.16,16,"FIELD",554,0) 803^1^803^RX Hosp--Surg Oth 98-02 "DATA",160.16,16,"FIELD",554,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,16,"FIELD",554,2) BLANK "DATA",160.16,16,"FIELD",554,3) L,BLANK^748 "DATA",160.16,16,"FIELD",554,4) SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "DATA",160.16,16,"FIELD",555,0) 804^100^903^Reserved 04 "DATA",160.16,16,"FIELD",555,1) S ACDANS="" "DATA",160.16,16,"FIELD",555,2) BLANK "DATA",160.16,16,"FIELD",555,3) L,BLANK^750 "DATA",160.16,16,"FIELD",556,0) 1620^2^1621^RX Summ--Surg Site 98-02 "DATA",160.16,16,"FIELD",556,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,16,"FIELD",556,2) BLANK "DATA",160.16,16,"FIELD",556,3) L,ZERO^1646 "DATA",160.16,16,"FIELD",556,4) SURGERY OF PRIMARY (R) (165.5,58.2) "DATA",160.16,16,"FIELD",557,0) 1622^1^1622^RX Summ--Scope Reg 98-02 "DATA",160.16,16,"FIELD",557,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,16,"FIELD",557,2) NINE "DATA",160.16,16,"FIELD",557,3) L,BLANK^1647 "DATA",160.16,16,"FIELD",557,4) SCOPE OF LN SURGERY (R) (165.5,138) "DATA",160.16,16,"FIELD",558,0) 1623^1^1623^RX Summ--Surg Oth 98-02 "DATA",160.16,16,"FIELD",558,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,16,"FIELD",558,2) NINE "DATA",160.16,16,"FIELD",558,3) L,NINE^1648 "DATA",160.16,16,"FIELD",558,4) SURG PROC/OTHER SITE (R) (165.5,139) "DATA",160.16,16,"FIELD",559,0) 1167^6^1172^CS Version Original "DATA",160.16,16,"FIELD",559,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169.1,"I")) K DATEDX "DATA",160.16,16,"FIELD",559,2) BLANK "DATA",160.16,16,"FIELD",559,3) L,BLANK^2935 "DATA",160.16,16,"FIELD",559,4) CS VERSION ORIGINAL (165.5,169.1) "DATA",160.16,16,"FIELD",560,0) 1173^6^1178^CS Version Derived "DATA",160.16,16,"FIELD",560,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3040000:"",1:$$GET1~DIQ(165.5,IEN,169,"I")) K DATEDX "DATA",160.16,16,"FIELD",560,2) BLANK "DATA",160.16,16,"FIELD",560,3) L,BLANK^2936 "DATA",160.16,16,"FIELD",560,4) CS VERSION DERIVED (165.5,169) "DATA",160.16,16,"FIELD",562,0) 1221^5^1225^Comorbid/Complication 8 "DATA",160.16,16,"FIELD",562,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.7,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",562,2) BLANK "DATA",160.16,16,"FIELD",562,3) R,ZERO^3162 "DATA",160.16,16,"FIELD",562,4) COMORBIDITY/COMPLICATION #8 (160,25.7) "DATA",160.16,16,"FIELD",563,0) 1226^5^1230^Comorbid/Complication 9 "DATA",160.16,16,"FIELD",563,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.8,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",563,2) BLANK "DATA",160.16,16,"FIELD",563,3) R,ZERO^3163 "DATA",160.16,16,"FIELD",563,4) COMORBIDITY/COMPLICATION #9 (160,25.8) "DATA",160.16,16,"FIELD",564,0) 1231^5^1235^Comorbid/Complication 10 "DATA",160.16,16,"FIELD",564,1) S ACDANS=$$GET1~DIQ(160,ACD160,25.9,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(80,ACDANS,.01,"I") S ACDANS=$P(ACDANS,".",1)_$P(ACDANS,".",2) "DATA",160.16,16,"FIELD",564,2) BLANK "DATA",160.16,16,"FIELD",564,3) R,ZERO^3164 "DATA",160.16,16,"FIELD",564,4) COMORBIDITY/COMPLICATION #10 (160,25.9) "DATA",160.16,16,"FIELD",565,0) 1185^1^737^ICD Revision Comorbid "DATA",160.16,16,"FIELD",565,1) D CC~ONCACDU1 S CC1=CCEX(1) S ACDANS=$S(CC1="":0,1:9) "DATA",160.16,16,"FIELD",565,2) BLANK "DATA",160.16,16,"FIELD",565,3) L,BLANK^3165 "DATA",160.16,16,"FIELD",565,4) 0 = No secondary diagnosis reported. 9 = ICD-9. "DATA",160.16,16,"FIELD",566,0) 1236^200^1435^Reserved 05 "DATA",160.16,16,"FIELD",566,1) S ACDANS="" "DATA",160.16,16,"FIELD",566,2) BLANK "DATA",160.16,16,"FIELD",566,3) L,BLANK^1180 "DATA",160.16,16,"FIELD",567,0) 50^8^57^Patient System ID-Hosp "DATA",160.16,16,"FIELD",567,1) S ACDANS=ACD160 "DATA",160.16,16,"FIELD",567,2) BLANK "DATA",160.16,16,"FIELD",567,3) L,ZERO^21 "DATA",160.16,16,"FIELD",567,4) ONCOLOGY PATIENT file IEN "DATA",160.16,16,"FIELD",568,0) 418^1^418^NHIA Derived Hisp Origin "DATA",160.16,16,"FIELD",568,1) S ACDANS="" "DATA",160.16,16,"FIELD",568,2) BLANK "DATA",160.16,16,"FIELD",568,3) L,BLANK^191 "DATA",160.16,16,"FIELD",568,4) Blank = Algorithm has not been run "DATA",160.16,16,"FIELD",569,0) 421^1^421^IHS Link "DATA",160.16,16,"FIELD",569,1) S ACDANS="" "DATA",160.16,16,"FIELD",569,2) BLANK "DATA",160.16,16,"FIELD",569,3) L,BLANK^192 "DATA",160.16,16,"FIELD",569,4) Blank = Record not sent for linkage or linkage result pending "DATA",160.16,16,"FIELD",570,0) 422^2^423^GIS Coordinate Quality "DATA",160.16,16,"FIELD",570,1) S ACDANS="" "DATA",160.16,16,"FIELD",570,2) BLANK "DATA",160.16,16,"FIELD",570,3) L,BLANK^366 "DATA",160.16,16,"FIELD",570,4) Blank = Not applicable, coordinate assignment not attempted "DATA",160.16,16,"FIELD",571,0) 564^2^565^Casefinding Source "DATA",160.16,16,"FIELD",571,1) S ACDANS=$$GET1~DIQ(165.5,IEN,21,"I") "DATA",160.16,16,"FIELD",571,2) NINE "DATA",160.16,16,"FIELD",571,3) L,BLANK^501 "DATA",160.16,16,"FIELD",571,4) CASEFINDING SOURCE (165.5,21) "DATA",160.16,16,"FIELD",572,0) 566^1^566^Ambiguous Terminology DX "DATA",160.16,16,"FIELD",572,1) S ACDANS=$$GET1~DIQ(165.5,IEN,159,"I") "DATA",160.16,16,"FIELD",572,2) BLANK "DATA",160.16,16,"FIELD",572,3) L,BLANK^442 "DATA",160.16,16,"FIELD",572,4) AMBIGUOUS TERMINOLOGY (165.5,159) "DATA",160.16,16,"FIELD",573,0) 567^8^574^Date of Conclusive DX "DATA",160.16,16,"FIELD",573,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,193,"I")) "DATA",160.16,16,"FIELD",573,2) BLANK "DATA",160.16,16,"FIELD",573,3) L,BLANK^443 "DATA",160.16,16,"FIELD",573,4) DATE OF CONCLUSIVE DX (165.5,193) "DATA",160.16,16,"FIELD",574,0) 577^2^578^Mult Tum Rpt as One Prim "DATA",160.16,16,"FIELD",574,1) S ACDANS=$$GET1~DIQ(165.5,IEN,194,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(169,ACDANS,.01,"I") "DATA",160.16,16,"FIELD",574,2) BLANK "DATA",160.16,16,"FIELD",574,3) L,BLANK^444 "DATA",160.16,16,"FIELD",574,4) MULT TUM RPT AS ONE PRIM (165.5,194) "DATA",160.16,16,"FIELD",575,0) 579^8^586^Date of Multiple Tumors "DATA",160.16,16,"FIELD",575,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,195,"I")) "DATA",160.16,16,"FIELD",575,2) BLANK "DATA",160.16,16,"FIELD",575,3) L,BLANK^445 "DATA",160.16,16,"FIELD",575,4) DATE OF MULTIPLE TUMORS (165.5,195) "DATA",160.16,16,"FIELD",576,0) 589^2^590^Multiplicity Counter "DATA",160.16,16,"FIELD",576,1) S ACDANS=$$GET1~DIQ(165.5,IEN,196,"I") "DATA",160.16,16,"FIELD",576,2) BLANK "DATA",160.16,16,"FIELD",576,3) L,BLANK^446 "DATA",160.16,16,"FIELD",576,4) MULTIPLICITY COUNTER (165.5,196) "DATA",160.16,16,"FIELD",578,0) 2403^4^2406^Year First Seen This CA "DATA",160.16,16,"FIELD",578,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,16,"FIELD",578,2) BLANK "DATA",160.16,16,"FIELD",578,3) L,ZERO^620 "DATA",160.16,16,"FIELD",578,4) ACCESSION YEAR (165.5,.07) "DATA",160.16,16,"FIELD",579,0) 2476^1^2476^Protocol Eligibility Stat "DATA",160.16,16,"FIELD",579,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,16,"FIELD",579,2) BLANK "DATA",160.16,16,"FIELD",579,3) L,BLANK^1470 "DATA",160.16,16,"FIELD",579,4) PROTOCOL ELIGIBILITY STATUS (165.5,346) "DATA",160.16,16,"FIELD",580,0) 2477^2^2478^Protocol Participation "DATA",160.16,16,"FIELD",580,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,16,"FIELD",580,2) BLANK "DATA",160.16,16,"FIELD",580,3) L,BLANK^1480 "DATA",160.16,16,"FIELD",580,4) PROTOCOL PARTICIPATION (165.5,560) "DATA",160.16,16,"FIELD",582,0) 2278^2^2279^Follow-Up Source Central "DATA",160.16,16,"FIELD",582,1) S ACDANS="" "DATA",160.16,16,"FIELD",582,2) BLANK "DATA",160.16,16,"FIELD",582,3) L,BLANK^1791 "DATA",160.16,16,"FIELD",582,4) This field is created by the central registry. "DATA",160.16,16,"FIELD",583,0) 2430^2430^1528^Performance Status at Dx "DATA",160.16,16,"FIELD",583,1) S ACDANS=$$GET1~DIQ(165.5,IEN,227,"I") "DATA",160.16,16,"FIELD",583,2) BLANK "DATA",160.16,16,"FIELD",583,3) L,BLANK "DATA",160.16,16,"FIELD",583,4) PERFORMANCE STATUS AT DX (165.5,227) "DATA",160.16,16,"FIELD",584,0) 58^37^94^Reserved 01 "DATA",160.16,16,"FIELD",584,1) S ACDANS="" "DATA",160.16,16,"FIELD",584,2) BLANK "DATA",160.16,16,"FIELD",584,3) L,BLANK^370 "DATA",160.16,16,"FIELD",585,0) 4325^10^4334^NPI--Inst Referred To "DATA",160.16,16,"FIELD",585,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$GET1~DIQ(165.5,IEN,7,"I") S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,16,"FIELD",585,2) BLANK "DATA",160.16,16,"FIELD",585,3) L,BLANK^2425 "DATA",160.16,16,"FIELD",585,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",586,0) 4285^10^4294^NPI--Following Registry "DATA",160.16,16,"FIELD",586,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),FACPNT=$$FNODE~ONCACDU2(ACD160,10) S ACDANS=$S(DATEDX<3070000:"",$G(FACPNT)'="":$$GET1~DIQ(160.19,FACPNT,101),1:"") "DATA",160.16,16,"FIELD",586,2) BLANK "DATA",160.16,16,"FIELD",586,3) L,BLANK^2445 "DATA",160.16,16,"FIELD",586,4) NPI (160.19,101) "DATA",160.16,16,"FIELD",587,0) 4345^50^4394^Reserved 11 "DATA",160.16,16,"FIELD",587,1) S ACDANS="" "DATA",160.16,16,"FIELD",587,2) BLANK "DATA",160.16,16,"FIELD",587,3) L,BLANK^1900 "DATA",160.16,16,"FIELD",588,0) 4413^10^4422^NPI--Physician--Follow-Up "DATA",160.16,16,"FIELD",588,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.1,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,16,"FIELD",588,2) BLANK "DATA",160.16,16,"FIELD",588,3) L,BLANK^2475 "DATA",160.16,16,"FIELD",588,4) NPI (165,101) "DATA",160.16,16,"FIELD",589,0) 4431^10^4440^NPI--Physician--Primary Surg "DATA",160.16,16,"FIELD",589,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,16,"FIELD",589,2) BLANK "DATA",160.16,16,"FIELD",589,3) L,BLANK^2485 "DATA",160.16,16,"FIELD",589,4) NPI (165,101) "DATA",160.16,16,"FIELD",590,0) 4449^10^4458^NPI--Physician 3 "DATA",160.16,16,"FIELD",590,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.3,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,16,"FIELD",590,2) BLANK "DATA",160.16,16,"FIELD",590,3) L,BLANK^2495 "DATA",160.16,16,"FIELD",590,4) NPI (165,101) "DATA",160.16,16,"FIELD",591,0) 4467^10^4476^NPI--Physician 4 "DATA",160.16,16,"FIELD",591,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I"),PHYPNT=$$GET1~DIQ(165.5,IEN,2.4,"I") S ACDANS=$S(DATEDX<3070000:"",$G(PHYPNT)'="":$$GET1~DIQ(165,PHYPNT,101),1:"") "DATA",160.16,16,"FIELD",591,2) BLANK "DATA",160.16,16,"FIELD",591,3) L,BLANK^2505 "DATA",160.16,16,"FIELD",591,4) NPI (165,101) "DATA",160.16,16,"FIELD",592,0) 165^1^165^CensusBlockGroup 70/80/90 "DATA",160.16,16,"FIELD",592,1) S ACDANS="" "DATA",160.16,16,"FIELD",592,2) BLANK "DATA",160.16,16,"FIELD",592,3) L,BLANK^368 "DATA",160.16,16,"FIELD",593,0) 2446^6^2451^Chemotherapeutic agent #1 "DATA",160.16,16,"FIELD",593,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,16,"FIELD",593,2) BLANK "DATA",160.16,16,"FIELD",593,3) L,BLANK "DATA",160.16,16,"FIELD",593,4) CHEMOTHERAPEUTIC AGENT #1 (165.5,1423) "DATA",160.16,16,"FIELD",594,0) 2452^2457^1540^Chemotherapeutic agent #2 "DATA",160.16,16,"FIELD",594,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,16,"FIELD",594,2) BLANK "DATA",160.16,16,"FIELD",594,3) L,BLANK "DATA",160.16,16,"FIELD",594,4) CHEMOTHERAPEUTIC AGENT #2 (165.5,1423.1) "DATA",160.16,16,"FIELD",595,0) 2458^6^2463^Chemotherapeutic agent #3 "DATA",160.16,16,"FIELD",595,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,16,"FIELD",595,2) BLANK "DATA",160.16,16,"FIELD",595,3) L,BLANK "DATA",160.16,16,"FIELD",595,4) CHEMOTHERAPEUTIC AGENT #3 (165.5,1423.2) "DATA",160.16,16,"FIELD",596,0) 2464^6^2469^Chemotherapeutic agent #4 "DATA",160.16,16,"FIELD",596,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,16,"FIELD",596,2) BLANK "DATA",160.16,16,"FIELD",596,3) L,BLANK "DATA",160.16,16,"FIELD",596,4) CHEMOTHERAPEUTIC AGENT #4 (165.5,1423.3) "DATA",160.16,16,"FIELD",597,0) 2470^6^2475^Chemotherapeutic agent #5 "DATA",160.16,16,"FIELD",597,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1423.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.18,ACDANS,1,"I") "DATA",160.16,16,"FIELD",597,2) BLANK "DATA",160.16,16,"FIELD",597,3) L,BLANK "DATA",160.16,16,"FIELD",597,4) CHEMOTHERAPEUTIC AGENT #5 (165.5,1423.4) "DATA",160.16,16,"FIELD",598,0) 2479^8^2486^Subsq RX 2nd Surg Date "DATA",160.16,16,"FIELD",598,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.041) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",598,2) BLANK "DATA",160.16,16,"FIELD",598,3) L,BLANK "DATA",160.16,16,"FIELD",598,4) SURGERY OF PRIMARY SITE DATE (165.51,.041) "DATA",160.16,16,"FIELD",599,0) 428^100^527^Reserved 02 "DATA",160.16,16,"FIELD",599,1) S ACDANS="" "DATA",160.16,16,"FIELD",599,2) BLANK "DATA",160.16,16,"FIELD",599,3) L,BLANK^530 "DATA",160.16,16,"FIELD",600,0) 2290^50^2339^Reserved 09 "DATA",160.16,16,"FIELD",600,1) S ACDANS="" "DATA",160.16,16,"FIELD",600,2) BLANK "DATA",160.16,16,"FIELD",600,3) L,BLANK^1740 "DATA",160.16,16,"FIELD",601,0) 2487^8^2494^Subsq RX 2nd Rad Date "DATA",160.16,16,"FIELD",601,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.051) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",601,2) BLANK "DATA",160.16,16,"FIELD",601,3) L,BLANK "DATA",160.16,16,"FIELD",601,4) RADIATION DATE (165.51,.051) "DATA",160.16,16,"FIELD",602,0) 2495^8^2502^Subsq RX 2nd Chemo Date "DATA",160.16,16,"FIELD",602,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.061) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",602,2) BLANK "DATA",160.16,16,"FIELD",602,3) L,BLANK "DATA",160.16,16,"FIELD",602,4) CHEMOTHERAPY DATE (165.51,.061) "DATA",160.16,16,"FIELD",603,0) 2503^2510^1590^Subsq RX 2nd Horm Date "DATA",160.16,16,"FIELD",603,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.071) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",603,2) BLANK "DATA",160.16,16,"FIELD",603,3) L,BLANK "DATA",160.16,16,"FIELD",603,4) HORMONE THERAPY DATE (165.51,.071) "DATA",160.16,16,"FIELD",604,0) 2511^8^2518^Subsq RX 2nd BRM Date "DATA",160.16,16,"FIELD",604,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.081) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",604,2) BLANK "DATA",160.16,16,"FIELD",604,3) L,BLANK "DATA",160.16,16,"FIELD",604,4) IMMUNOTHERAPY DATE (165.51,.081) "DATA",160.16,16,"FIELD",605,0) 2519^8^2526^Subsq RX 2nd Other Date "DATA",160.16,16,"FIELD",605,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.091) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,16,"FIELD",605,2) BLANK "DATA",160.16,16,"FIELD",605,3) L,BLANK "DATA",160.16,16,"FIELD",605,4) OTHER TREATMENT START DATE (165.51,.091) "DATA",160.16,16,"FIELD",608,0) 2346^1^2346^Vietnam Service "DATA",160.16,16,"FIELD",608,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,62,"I")) "DATA",160.16,16,"FIELD",608,2) BLANK "DATA",160.16,16,"FIELD",608,3) L,BLANK "DATA",160.16,16,"FIELD",608,4) VIETNAM SERVICE (160,62) "DATA",160.16,16,"FIELD",609,0) 2348^1^2348^Grenada Service "DATA",160.16,16,"FIELD",609,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,63,"I")) "DATA",160.16,16,"FIELD",609,2) BLANK "DATA",160.16,16,"FIELD",609,3) L,BLANK "DATA",160.16,16,"FIELD",609,4) GRENADA SERVICE (160,63) "DATA",160.16,16,"FIELD",610,0) 2349^1^2349^Panama Service "DATA",160.16,16,"FIELD",610,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,64,"I")) "DATA",160.16,16,"FIELD",610,2) BLANK "DATA",160.16,16,"FIELD",610,3) L,BLANK "DATA",160.16,16,"FIELD",610,4) PANAMA SERVICE (160,64) "DATA",160.16,16,"FIELD",611,0) 2352^1^2352^Yugoslavia Service "DATA",160.16,16,"FIELD",611,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,65,"I")) "DATA",160.16,16,"FIELD",611,2) BLANK "DATA",160.16,16,"FIELD",611,3) L,BLANK "DATA",160.16,16,"FIELD",611,4) YUGOSLAVIA SERVICE (160,65) "DATA",160.16,16,"FIELD",612,0) 204^2^205^Date of Birth Flag "DATA",160.16,16,"FIELD",612,1) S ACDANS="" "DATA",160.16,16,"FIELD",612,2) BLANK "DATA",160.16,16,"FIELD",612,3) L,BLANK^241 "DATA",160.16,16,"FIELD",613,0) 538^2^539^Date of Diagnosis Flag "DATA",160.16,16,"FIELD",613,2) BLANK "DATA",160.16,16,"FIELD",613,3) L,ZERO^391 "DATA",160.16,16,"FIELD",614,0) 556^1^556^Grade Path Value "DATA",160.16,16,"FIELD",614,2) BLANK "DATA",160.16,16,"FIELD",614,3) ^441 "DATA",160.16,16,"FIELD",615,0) 557^1^557^Grade Path System "DATA",160.16,16,"FIELD",615,2) BLANK "DATA",160.16,16,"FIELD",615,3) ^449 "DATA",160.16,16,"FIELD",616,0) 575^2^576^Date of Conclusive DX Flag "DATA",160.16,16,"FIELD",616,2) BLANK "DATA",160.16,16,"FIELD",616,3) ^448 "DATA",160.16,16,"FIELD",617,0) 587^2^588^Date of Mult Tumors Flag "DATA",160.16,16,"FIELD",617,2) BLANK "DATA",160.16,16,"FIELD",617,3) ^439 "DATA",160.16,16,"FIELD",618,0) 753^2^754^Date of 1st Contact Flag "DATA",160.16,16,"FIELD",618,2) BLANK "DATA",160.16,16,"FIELD",618,3) ^581 "DATA",160.16,16,"FIELD",619,0) 763^2^764^Date of Inpt Adm Flag "DATA",160.16,16,"FIELD",619,2) BLANK "DATA",160.16,16,"FIELD",619,3) ^591 "DATA",160.16,16,"FIELD",620,0) 773^2^774^Date of Inpt Disch Flag "DATA",160.16,16,"FIELD",620,2) BLANK "DATA",160.16,16,"FIELD",620,3) ^601 "DATA",160.16,16,"FIELD",621,0) 775^1^775^Inpatient Status "DATA",160.16,16,"FIELD",621,2) BLANK "DATA",160.16,16,"FIELD",621,3) ^605 "DATA",160.16,16,"FIELD",622,0) 780^1^780^RX Hosp--ASA Class "DATA",160.16,16,"FIELD",622,2) BLANK "DATA",160.16,16,"FIELD",622,3) ^665 "DATA",160.16,16,"FIELD",623,0) 781^1^781^RX Hosp--Surg App 2010 "DATA",160.16,16,"FIELD",623,2) BLANK "DATA",160.16,16,"FIELD",623,3) ^668 "DATA",160.16,16,"FIELD",624,0) 788^1^788^RX Hosp--Surg Timing "DATA",160.16,16,"FIELD",624,2) BLANK "DATA",160.16,16,"FIELD",624,3) ^678 "DATA",160.16,16,"FIELD",625,0) 984^1^984^Lymph-vascular Invasion "DATA",160.16,16,"FIELD",625,2) BLANK "DATA",160.16,16,"FIELD",625,3) L,BLANK^1182 "DATA",160.16,16,"FIELD",626,0) 999^1^999^CS Mets at Dx-Bone "DATA",160.16,16,"FIELD",626,2) BLANK "DATA",160.16,16,"FIELD",626,3) L,BLANK^2851 "DATA",160.16,16,"FIELD",627,0) 1000^1^1000^CS Mets at Dx-Brain "DATA",160.16,16,"FIELD",627,2) BLANK "DATA",160.16,16,"FIELD",627,3) L,BLANK^2852 "DATA",160.16,16,"FIELD",628,0) 1001^1^1001^CS Mets at Dx-Liver "DATA",160.16,16,"FIELD",628,2) BLANK "DATA",160.16,16,"FIELD",628,3) L,BLANK^2853 "DATA",160.16,16,"FIELD",629,0) 1002^1^1002^CS Mets at Dx-Lung "DATA",160.16,16,"FIELD",629,2) BLANK "DATA",160.16,16,"FIELD",629,3) L,BLANK^2854 "DATA",160.16,16,"FIELD",630,0) 1021^3^1023^CS Site-Specific Factor 7 "DATA",160.16,16,"FIELD",630,2) BLANK "DATA",160.16,16,"FIELD",630,3) L,BLANK^2861 "DATA",160.16,16,"FIELD",631,0) 1024^3^1026^CS Site-Specific Factor 8 "DATA",160.16,16,"FIELD",631,2) BLANK "DATA",160.16,16,"FIELD",631,3) L,BLANK^2862 "DATA",160.16,16,"FIELD",632,0) 1027^3^1029^CS Site-Specific Factor 9 "DATA",160.16,16,"FIELD",632,2) BLANK "DATA",160.16,16,"FIELD",632,3) L,BLANK^2863 "DATA",160.16,16,"FIELD",633,0) 1030^3^1032^CS Site-Specific Factor 10 "DATA",160.16,16,"FIELD",633,2) BLANK "DATA",160.16,16,"FIELD",633,3) L,BLANK^2864 "DATA",160.16,16,"FIELD",634,0) 1036^3^1038^CS Site-Specific Factor 12 "DATA",160.16,16,"FIELD",634,2) BLANK "DATA",160.16,16,"FIELD",634,3) L,BLANK^2866 "DATA",160.16,16,"FIELD",635,0) 1039^3^1041^CS Site-Specific Factor 13 "DATA",160.16,16,"FIELD",635,2) BLANK "DATA",160.16,16,"FIELD",635,3) L,BLANK^2867 "DATA",160.16,16,"FIELD",636,0) 1042^3^1044^CS Site-Specific Factor 14 "DATA",160.16,16,"FIELD",636,2) BLANK "DATA",160.16,16,"FIELD",636,3) L,BLANK^2868 "DATA",160.16,16,"FIELD",637,0) 1045^3^1047^CS Site-Specific Factor 15 "DATA",160.16,16,"FIELD",637,2) BLANK "DATA",160.16,16,"FIELD",637,3) L,BLANK^2869 "DATA",160.16,16,"FIELD",638,0) 1048^3^1050^CS Site-Specific Factor 16 "DATA",160.16,16,"FIELD",638,2) BLANK "DATA",160.16,16,"FIELD",638,3) L,BLANK^2870 "DATA",160.16,16,"FIELD",639,0) 1051^3^1053^CS Site-Specific Factor 17 "DATA",160.16,16,"FIELD",639,2) BLANK "DATA",160.16,16,"FIELD",639,3) L,BLANK^2871 "DATA",160.16,16,"FIELD",640,0) 1054^3^1056^CS Site-Specific Factor 18 "DATA",160.16,16,"FIELD",640,2) BLANK "DATA",160.16,16,"FIELD",640,3) L,BLANK^2872 "DATA",160.16,16,"FIELD",641,0) 1057^3^1059^CS Site-Specific Factor 19 "DATA",160.16,16,"FIELD",641,2) BLANK "DATA",160.16,16,"FIELD",641,3) L,BLANK^2873 "DATA",160.16,16,"FIELD",642,0) 1063^3^1065^CS Site-Specific Factor 21 "DATA",160.16,16,"FIELD",642,2) BLANK "DATA",160.16,16,"FIELD",642,3) L,BLANK^2875 "DATA",160.16,16,"FIELD",643,0) 1066^3^1068^CS Site-Specific Factor 22 "DATA",160.16,16,"FIELD",643,2) BLANK "DATA",160.16,16,"FIELD",643,3) L,BLANK^2876 "DATA",160.16,16,"FIELD",644,0) 1069^3^1071^CS Site-Specific Factor 23 "DATA",160.16,16,"FIELD",644,2) BLANK "DATA",160.16,16,"FIELD",644,3) L,BLANK^2877 "DATA",160.16,16,"FIELD",645,0) 1072^3^1074^CS Site-Specific Factor 24 "DATA",160.16,16,"FIELD",645,2) BLANK "DATA",160.16,16,"FIELD",645,3) L,BLANK^2878 "DATA",160.16,16,"FIELD",646,0) 1075^3^1077^CS Site-Specific Factor 25 "DATA",160.16,16,"FIELD",646,2) BLANK "DATA",160.16,16,"FIELD",646,3) L,BLANK^2879 "DATA",160.16,16,"FIELD",647,0) 1078^3^1080^CS PreRx Tumor Size "DATA",160.16,16,"FIELD",647,2) BLANK "DATA",160.16,16,"FIELD",647,3) L,BLANK^2730 "DATA",160.16,16,"FIELD",648,0) 1081^3^1083^CS PreRx Extension "DATA",160.16,16,"FIELD",648,2) BLANK "DATA",160.16,16,"FIELD",648,3) L,BLANK^2735 "DATA",160.16,16,"FIELD",649,0) 1084^1^1084^CS PreRx Tum/Sz/Ext Eval "DATA",160.16,16,"FIELD",649,2) BLANK "DATA",160.16,16,"FIELD",649,3) L,BLANK^2740 "DATA",160.16,16,"FIELD",650,0) 1085^3^1087^CS PreRx Lymph Nodes "DATA",160.16,16,"FIELD",650,2) BLANK "DATA",160.16,16,"FIELD",650,3) L,BLANK^2750 "DATA",160.16,16,"FIELD",651,0) 1088^1^1088^CS PreRx Reg Nodes Eval "DATA",160.16,16,"FIELD",651,2) BLANK "DATA",160.16,16,"FIELD",651,3) L,BLANK^2755 "DATA",160.16,16,"FIELD",652,0) 1089^2^1090^CS PreRx Mets at DX "DATA",160.16,16,"FIELD",652,2) BLANK "DATA",160.16,16,"FIELD",652,3) L,BLANK^2760 "DATA",160.16,16,"FIELD",653,0) 1091^1^1091^CS PreRx Mets Eval "DATA",160.16,16,"FIELD",653,2) BLANK "DATA",160.16,16,"FIELD",653,3) L,BLANK^2765 "DATA",160.16,16,"FIELD",654,0) 1092^3^1094^CS PostRx Tumor Size "DATA",160.16,16,"FIELD",654,2) BLANK "DATA",160.16,16,"FIELD",654,3) L,BLANK^2770 "DATA",160.16,16,"FIELD",655,0) 1095^3^1097^CS PostRx Extension "DATA",160.16,16,"FIELD",655,2) BLANK "DATA",160.16,16,"FIELD",655,3) L,BLANK^2775 "DATA",160.16,16,"FIELD",656,0) 1098^3^1100^CS PostRx Lymph Nodes "DATA",160.16,16,"FIELD",656,2) BLANK "DATA",160.16,16,"FIELD",656,3) L,BLANK^2780 "DATA",160.16,16,"FIELD",657,0) 1101^2^1102^CS PostRx Mets at DX "DATA",160.16,16,"FIELD",657,2) BLANK "DATA",160.16,16,"FIELD",657,3) L,BLANK^2785 "DATA",160.16,16,"FIELD",658,0) 1114^3^1116^Derived AJCC-7 T "DATA",160.16,16,"FIELD",658,2) BLANK "DATA",160.16,16,"FIELD",658,3) L,BLANK^3400 "DATA",160.16,16,"FIELD",659,0) 1117^1^1117^Derived AJCC-7 T Descript "DATA",160.16,16,"FIELD",659,2) BLANK "DATA",160.16,16,"FIELD",659,3) L,BLANK^3402 "DATA",160.16,16,"FIELD",660,0) 1121^1^1121^Derived AJCC-7 N Descript "DATA",160.16,16,"FIELD",660,2) BLANK "DATA",160.16,16,"FIELD",660,3) L,BLANK^3412 "DATA",160.16,16,"FIELD",661,0) 1122^3^1124^Derived AJCC-7 M "DATA",160.16,16,"FIELD",661,2) BLANK "DATA",160.16,16,"FIELD",661,3) L,BLANK^3420 "DATA",160.16,16,"FIELD",662,0) 1125^1^1125^Derived AJCC-7 M Descript "DATA",160.16,16,"FIELD",662,2) BLANK "DATA",160.16,16,"FIELD",662,3) L,BLANK^3422 "DATA",160.16,16,"FIELD",663,0) 1126^3^1128^Derived AJCC-7 Stage Grp "DATA",160.16,16,"FIELD",663,2) BLANK "DATA",160.16,16,"FIELD",663,3) L,BLANK^3430 "DATA",160.16,16,"FIELD",664,0) 1129^3^1131^Derived PreRx-7 T "DATA",160.16,16,"FIELD",664,2) BLANK "DATA",160.16,16,"FIELD",664,3) L,BLANK^3440 "DATA",160.16,16,"FIELD",665,0) 1132^1^1132^Derived PreRx-7 T Descrip "DATA",160.16,16,"FIELD",665,2) BLANK "DATA",160.16,16,"FIELD",665,3) L,BLANK^3442 "DATA",160.16,16,"FIELD",666,0) 1133^3^1135^Derived PreRx-7 N "DATA",160.16,16,"FIELD",666,2) BLANK "DATA",160.16,16,"FIELD",666,3) L,BLANK^3450 "DATA",160.16,16,"FIELD",667,0) 1136^1^1136^Derived PreRx-7 N Descrip "DATA",160.16,16,"FIELD",667,2) BLANK "DATA",160.16,16,"FIELD",667,3) L,BLANK^3452 "DATA",160.16,16,"FIELD",668,0) 1137^3^1139^Derived PreRx-7 M "DATA",160.16,16,"FIELD",668,2) BLANK "DATA",160.16,16,"FIELD",668,3) L,BLANK^3460 "DATA",160.16,16,"FIELD",669,0) 1140^1^1140^Derived PreRx-7 M Descrip "DATA",160.16,16,"FIELD",669,2) BLANK "DATA",160.16,16,"FIELD",669,3) L,BLANK^3462 "DATA",160.16,16,"FIELD",670,0) 1141^3^1143^Derived PreRx-7 Stage Grp "DATA",160.16,16,"FIELD",670,2) BLANK "DATA",160.16,16,"FIELD",670,3) L,BLANK^3470 "DATA",160.16,16,"FIELD",671,0) 1144^3^1146^Derived PostRx-7 T "DATA",160.16,16,"FIELD",671,2) BLANK "DATA",160.16,16,"FIELD",671,3) L,BLANK^3480 "DATA",160.16,16,"FIELD",672,0) 1147^3^1149^Derived PostRx-7 N "DATA",160.16,16,"FIELD",672,2) BLANK "DATA",160.16,16,"FIELD",672,3) L,BLANK^3482 "DATA",160.16,16,"FIELD",673,0) 1150^2^1151^Derived PostRx-7 M "DATA",160.16,16,"FIELD",673,2) BLANK "DATA",160.16,16,"FIELD",673,3) L,BLANK^3490 "DATA",160.16,16,"FIELD",674,0) 1152^3^1154^Derived PostRx-7 Stge Grp "DATA",160.16,16,"FIELD",674,2) BLANK "DATA",160.16,16,"FIELD",674,3) L,BLANK^3492 "DATA",160.16,16,"FIELD",675,0) 1157^1^1157^Derived Neoadjuv Rx Flag "DATA",160.16,16,"FIELD",675,2) BLANK "DATA",160.16,16,"FIELD",675,3) L,BLANK^3600 "DATA",160.16,16,"FIELD",676,0) 1161^6^1166^CS Version Input Current "DATA",160.16,16,"FIELD",676,2) BLANK "DATA",160.16,16,"FIELD",676,3) L,BLANK^2937 "DATA",160.16,16,"FIELD",677,0) 1179^1^1179^SEER Site-Specific Fact 1 "DATA",160.16,16,"FIELD",677,2) BLANK "DATA",160.16,16,"FIELD",677,3) L,BLANK^3700 "DATA",160.16,16,"FIELD",678,0) 1180^1^1180^SEER Site-Specific Fact 2 "DATA",160.16,16,"FIELD",678,2) BLANK "DATA",160.16,16,"FIELD",678,3) L,BLANK^3702 "DATA",160.16,16,"FIELD",679,0) 1181^1^1181^SEER Site-Specific Fact 3 "DATA",160.16,16,"FIELD",679,2) BLANK "DATA",160.16,16,"FIELD",679,3) L,BLANK^3704 "DATA",160.16,16,"FIELD",680,0) 1182^1^1182^SEER Site-Specific Fact 4 "DATA",160.16,16,"FIELD",680,2) BLANK "DATA",160.16,16,"FIELD",680,3) L,BLANK^3706 "DATA",160.16,16,"FIELD",681,0) 1183^1^1183^SEER Site-Specific Fact 5 "DATA",160.16,16,"FIELD",681,2) BLANK "DATA",160.16,16,"FIELD",681,3) L,BLANK^3708 "DATA",160.16,16,"FIELD",682,0) 1184^1^1184^SEER Site-Specific Fact 6 "DATA",160.16,16,"FIELD",682,2) BLANK "DATA",160.16,16,"FIELD",682,3) L,BLANK^3710 "DATA",160.16,16,"FIELD",683,0) 1444^2^1445^Date of Inital RX Flag "DATA",160.16,16,"FIELD",683,2) BLANK "DATA",160.16,16,"FIELD",683,3) L,BLANK^1261 "DATA",160.16,16,"FIELD",684,0) 1464^2^1465^RX Date--Surgery Flag "DATA",160.16,16,"FIELD",684,2) BLANK "DATA",160.16,16,"FIELD",684,3) L,BLANK^1201 "DATA",160.16,16,"FIELD",685,0) 1474^2^1475^RX Date Mst Defin Srg Flag "DATA",160.16,16,"FIELD",685,2) BLANK "DATA",160.16,16,"FIELD",685,3) L,BLANK^3171 "DATA",160.16,16,"FIELD",686,0) 1484^2^1485^RX Date Surg Disch Flag "DATA",160.16,16,"FIELD",686,2) BLANK "DATA",160.16,16,"FIELD",686,3) L,BLANK^3181 "DATA",160.16,16,"FIELD",687,0) 1494^2^1495^RX Date--Radiation Flag "DATA",160.16,16,"FIELD",687,2) BLANK "DATA",160.16,16,"FIELD",687,3) L,BLANK^1211 "DATA",160.16,16,"FIELD",688,0) 1504^2^1505^RX Date Rad Ended Flag "DATA",160.16,16,"FIELD",688,2) BLANK "DATA",160.16,16,"FIELD",688,3) L,BLANK^3221 "DATA",160.16,16,"FIELD",689,0) 1514^2^1515^RX Date Systemic Flag "DATA",160.16,16,"FIELD",689,2) BLANK "DATA",160.16,16,"FIELD",689,3) L,BLANK^3231 "DATA",160.16,16,"FIELD",690,0) 1524^2^1525^RX Date--Chemo Flag "DATA",160.16,16,"FIELD",690,2) BLANK "DATA",160.16,16,"FIELD",690,3) L,BLANK^1221 "DATA",160.16,16,"FIELD",691,0) 1534^2^1535^RX Date--Hormone Flag "DATA",160.16,16,"FIELD",691,2) BLANK "DATA",160.16,16,"FIELD",691,3) L,BLANK^1231 "DATA",160.16,16,"FIELD",692,0) 1544^2^1545^RX Date--BRM Flag "DATA",160.16,16,"FIELD",692,2) BLANK "DATA",160.16,16,"FIELD",692,3) L,BLANK^1241 "DATA",160.16,16,"FIELD",693,0) 1554^2^1555^RX Date--Other Flag "DATA",160.16,16,"FIELD",693,2) BLANK "DATA",160.16,16,"FIELD",693,3) L,BLANK^1251 "DATA",160.16,16,"FIELD",694,0) 1564^2^1565^RX Date--Dx/Stg Proc Flag "DATA",160.16,16,"FIELD",694,2) BLANK "DATA",160.16,16,"FIELD",694,3) L,BLANK^1281 "DATA",160.16,16,"FIELD",695,0) 1566^1^1566^RX Summ--Treatment Status "DATA",160.16,16,"FIELD",695,2) BLANK "DATA",160.16,16,"FIELD",695,3) L,BLANK^1285 "DATA",160.16,16,"FIELD",696,0) 1732^2^1733^Subsq RX 2ndCrs Date Flag "DATA",160.16,16,"FIELD",696,2) BLANK "DATA",160.16,16,"FIELD",696,3) L,BLANK^1661 "DATA",160.16,16,"FIELD",697,0) 1753^2^1754^Subsq RX 3rdCrs Date Flag "DATA",160.16,16,"FIELD",697,2) BLANK "DATA",160.16,16,"FIELD",697,3) L,BLANK^1681 "DATA",160.16,16,"FIELD",698,0) 1774^2^1775^Subsq RX 4thCrs Date Flag "DATA",160.16,16,"FIELD",698,2) BLANK "DATA",160.16,16,"FIELD",698,3) L,BLANK^1701 "DATA",160.16,16,"FIELD",699,0) 1951^8^1958^Date Case Initiated "DATA",160.16,16,"FIELD",699,2) BLANK "DATA",160.16,16,"FIELD",699,3) L,BLANK^2085 "DATA",160.16,16,"FIELD",700,0) 1967^8^1974^Date Case Completed--CoC "DATA",160.16,16,"FIELD",700,2) BLANK "DATA",160.16,16,"FIELD",700,3) L,BLANK^2092 "DATA",160.16,16,"FIELD",701,0) 2124^2^2125^Date of Last Contact Flag "DATA",160.16,16,"FIELD",701,2) BLANK "DATA",160.16,16,"FIELD",701,3) L,BLANK^1751 "DATA",160.16,16,"FIELD",702,0) 2204^2^2205^Recurrence Date--1st Flag "DATA",160.16,16,"FIELD",702,2) BLANK "DATA",160.16,16,"FIELD",702,3) L,BLANK^1861 "DATA",160.16,16,"FIELD",703,0) 2288^2^2289^Date of Death--CanadaFlag "DATA",160.16,16,"FIELD",703,2) BLANK "DATA",160.16,16,"FIELD",703,3) L,BLANK^1756 "DATA",160.16,16,"FIELD",704,0) 4485^50^4534^Reserved 12 "DATA",160.16,16,"FIELD",704,1) S ACDANS="" "DATA",160.16,16,"FIELD",704,2) BLANK "DATA",160.16,16,"FIELD",704,3) L,BLANK^2510 "DATA",160.16,16,"FIELD",705,0) 4535^25^4559^Path Reporting Fac ID 1 "DATA",160.16,16,"FIELD",705,2) BLANK "DATA",160.16,16,"FIELD",705,3) L,BLANK^7010 "DATA",160.16,16,"FIELD",706,0) 4560^20^4579^Path Report Number 1 "DATA",160.16,16,"FIELD",706,2) BLANK "DATA",160.16,16,"FIELD",706,3) L,BLANK^7090 "DATA",160.16,16,"FIELD",707,0) 4580^14^4593^Path Date Spec Collect 1 "DATA",160.16,16,"FIELD",707,2) BLANK "DATA",160.16,16,"FIELD",707,3) L,BLANK^7320 "DATA",160.16,16,"FIELD",708,0) 4594^2^4595^Path Report Type 1 "DATA",160.16,16,"FIELD",708,2) BLANK "DATA",160.16,16,"FIELD",708,3) L,BLANK^7480 "DATA",160.16,16,"FIELD",709,0) 4596^25^4620^Path Ordering Fac No 1 "DATA",160.16,16,"FIELD",709,2) BLANK "DATA",160.16,16,"FIELD",709,3) L,BLANK^7190 "DATA",160.16,16,"FIELD",710,0) 4621^20^4640^Path Order Phys Lic No 1 "DATA",160.16,16,"FIELD",710,2) BLANK "DATA",160.16,16,"FIELD",710,3) L,BLANK^7100 "DATA",160.16,16,"FIELD",711,0) 4641^25^4665^Path Reporting Fac ID 2 "DATA",160.16,16,"FIELD",711,2) BLANK "DATA",160.16,16,"FIELD",711,3) L,BLANK^7011 "DATA",160.16,16,"FIELD",712,0) 4666^20^4685^Path Report Number 2 "DATA",160.16,16,"FIELD",712,2) BLANK "DATA",160.16,16,"FIELD",712,3) L,BLANK^7091 "DATA",160.16,16,"FIELD",713,0) 4686^14^4699^Path Date Spec Collect 2 "DATA",160.16,16,"FIELD",713,2) BLANK "DATA",160.16,16,"FIELD",713,3) L,BLANK^7321 "DATA",160.16,16,"FIELD",714,0) 4700^2^4701^Path Report Type 2 "DATA",160.16,16,"FIELD",714,2) BLANK "DATA",160.16,16,"FIELD",714,3) L,BLANK^7481 "DATA",160.16,16,"FIELD",715,0) 4702^25^4726^Path Ordering Fac No 2 "DATA",160.16,16,"FIELD",715,2) BLANK "DATA",160.16,16,"FIELD",715,3) L,BLANK^7191 "DATA",160.16,16,"FIELD",716,0) 4727^20^4746^Path Order Phys Lic No 2 "DATA",160.16,16,"FIELD",716,2) BLANK "DATA",160.16,16,"FIELD",716,3) L,BLANK^7101 "DATA",160.16,16,"FIELD",717,0) 4747^25^4771^Path Reporting Fac ID 3 "DATA",160.16,16,"FIELD",717,2) BLANK "DATA",160.16,16,"FIELD",717,3) L,BLANK^7012 "DATA",160.16,16,"FIELD",718,0) 4772^20^4791^Path Report Number 3 "DATA",160.16,16,"FIELD",718,2) BLANK "DATA",160.16,16,"FIELD",718,3) L,BLANK^7092 "DATA",160.16,16,"FIELD",719,0) 4792^14^4805^Path Date Spec Collect 3 "DATA",160.16,16,"FIELD",719,2) BLANK "DATA",160.16,16,"FIELD",719,3) L,BLANK^7322 "DATA",160.16,16,"FIELD",720,0) 4806^2^4807^Path Report Type 3 "DATA",160.16,16,"FIELD",720,2) BLANK "DATA",160.16,16,"FIELD",720,3) L,BLANK^7482 "DATA",160.16,16,"FIELD",721,0) 4808^25^4832^Path Ordering Fac No 3 "DATA",160.16,16,"FIELD",721,2) BLANK "DATA",160.16,16,"FIELD",721,3) L,BLANK^7192 "DATA",160.16,16,"FIELD",722,0) 4833^20^4852^Path Order Phys Lic No 3 "DATA",160.16,16,"FIELD",722,2) BLANK "DATA",160.16,16,"FIELD",722,3) L,BLANK^7102 "DATA",160.16,16,"FIELD",723,0) 4853^25^4877^Path Reporting Fac ID 4 "DATA",160.16,16,"FIELD",723,2) BLANK "DATA",160.16,16,"FIELD",723,3) L,BLANK^7013 "DATA",160.16,16,"FIELD",724,0) 4878^20^4897^Path Report Number 4 "DATA",160.16,16,"FIELD",724,2) BLANK "DATA",160.16,16,"FIELD",724,3) L,BLANK^7093 "DATA",160.16,16,"FIELD",725,0) 4898^14^4911^Path Date Spec Collect 4 "DATA",160.16,16,"FIELD",725,2) BLANK "DATA",160.16,16,"FIELD",725,3) L,BLANK^7323 "DATA",160.16,16,"FIELD",726,0) 4912^2^4913^Path Report Type 4 "DATA",160.16,16,"FIELD",726,2) BLANK "DATA",160.16,16,"FIELD",726,3) L,BLANK^7483 "DATA",160.16,16,"FIELD",727,0) 4914^25^4938^Path Ordering Fac No 4 "DATA",160.16,16,"FIELD",727,2) BLANK "DATA",160.16,16,"FIELD",727,3) L,BLANK^7193 "DATA",160.16,16,"FIELD",728,0) 4939^20^4958^Path Order Phys Lic No 4 "DATA",160.16,16,"FIELD",728,2) BLANK "DATA",160.16,16,"FIELD",728,3) L,BLANK^7103 "DATA",160.16,16,"FIELD",729,0) 4959^25^4983^Path Reporting Fac ID 5 "DATA",160.16,16,"FIELD",729,2) BLANK "DATA",160.16,16,"FIELD",729,3) L,BLANK^7014 "DATA",160.16,16,"FIELD",730,0) 4984^20^5003^Path Report Number 5 "DATA",160.16,16,"FIELD",730,2) BLANK "DATA",160.16,16,"FIELD",730,3) L,BLANK^7094 "DATA",160.16,16,"FIELD",731,0) 5004^14^5017^Path Date Spec Collect 5 "DATA",160.16,16,"FIELD",731,2) BLANK "DATA",160.16,16,"FIELD",731,3) L,BLANK^7324 "DATA",160.16,16,"FIELD",732,0) 5018^2^5019^Path Report Type 5 "DATA",160.16,16,"FIELD",732,2) BLANK "DATA",160.16,16,"FIELD",732,3) L,BLANK^7484 "DATA",160.16,16,"FIELD",733,0) 5020^25^5044^Path Ordering Fac No 5 "DATA",160.16,16,"FIELD",733,2) BLANK "DATA",160.16,16,"FIELD",733,3) L,BLANK^7194 "DATA",160.16,16,"FIELD",734,0) 5045^20^5064^Path Order Phys Lic No 5 "DATA",160.16,16,"FIELD",734,2) BLANK "DATA",160.16,16,"FIELD",734,3) L,BLANK^7104 "DATA",160.16,16,"FIELD",735,0) 2553^2^2554^Branch of Service "DATA",160.16,16,"FIELD",735,1) S BS=$$GET1~DIQ(160,ACD160,68),ACDANS=$S(BS="ARMY":"AR",BS="AIR FORCE":"AF",BS="NAVY":"NA",BS="MARINE CORPS":"MC",BS="COAST GUARD":"CG",BS="OTHER":"OT",BS="MERCHANT SEAMAN":"MS",BS="USPHS":"PH",BS="NOAA":"NO",1:"") K BS "DATA",160.16,16,"FIELD",735,2) BLANK "DATA",160.16,16,"FIELD",735,3) L,BLANK "DATA",160.16,16,"FIELD",735,4) BRANCH OF SERVICE (160,68) "DATA",160.16,16,"RULES",0) ^160.162^10^10^3090930^^^^ "DATA",160.16,16,"RULES",1,0) S VALID=1 "DATA",160.16,16,"RULES",2,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "DATA",160.16,16,"RULES",3,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,16,"RULES",4,0) I DATEDX<3000000,"^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,16,"RULES",5,0) I DATEDX>2991231,"^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,16,"RULES",6,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,16,"RULES",7,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,16,"RULES",8,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,16,"RULES",9,0) S JUMP=0 "DATA",160.16,16,"RULES",10,0) K SCREEN "DATA",160.17,1,0) BLADDER "DATA",160.17,1,"FIELD",0) ^160.171I^94^94 "DATA",160.17,1,"FIELD",1,0) 1026^1^1026^PB Referred for Treatment To "DATA",160.17,1,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,300,"I") "DATA",160.17,1,"FIELD",1,2) NINE "DATA",160.17,1,"FIELD",1,3) L,ZERO "DATA",160.17,1,"FIELD",2,0) 1027^2^1028^PB Primary Payer "DATA",160.17,1,"FIELD",2,1) S ACDANS=$$PPAY~ONCACDU2(IEN) "DATA",160.17,1,"FIELD",2,2) ZERO "DATA",160.17,1,"FIELD",2,3) L,ZERO "DATA",160.17,1,"FIELD",3,0) 1029^3^1031^PB Length of Stay "DATA",160.17,1,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,301,"I") "DATA",160.17,1,"FIELD",3,2) BLANK "DATA",160.17,1,"FIELD",3,3) R,BLANK "DATA",160.17,1,"FIELD",4,0) 1032^1^1032^PB Cervix "DATA",160.17,1,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.17,1,"FIELD",4,2) BLANK "DATA",160.17,1,"FIELD",4,3) L,BLANK "DATA",160.17,1,"FIELD",5,0) 1033^1^1033^PB Colon "DATA",160.17,1,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,303,"I") "DATA",160.17,1,"FIELD",5,2) BLANK "DATA",160.17,1,"FIELD",5,3) L,BLANK "DATA",160.17,1,"FIELD",6,0) 1034^1^1034^PB Bladder "DATA",160.17,1,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,304,"I") "DATA",160.17,1,"FIELD",6,2) BLANK "DATA",160.17,1,"FIELD",6,3) L,BLANK "DATA",160.17,1,"FIELD",7,0) 1035^1^1035^PB Head and Neck "DATA",160.17,1,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,305,"I") "DATA",160.17,1,"FIELD",7,2) BLANK "DATA",160.17,1,"FIELD",7,3) L,BLANK "DATA",160.17,1,"FIELD",8,0) 1036^1^1036^PB Kidney "DATA",160.17,1,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,306,"I") "DATA",160.17,1,"FIELD",8,2) BLANK "DATA",160.17,1,"FIELD",8,3) L,BLANK "DATA",160.17,1,"FIELD",9,0) 1037^1^1037^PB Prostate "DATA",160.17,1,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.17,1,"FIELD",9,2) BLANK "DATA",160.17,1,"FIELD",9,3) L,BLANK "DATA",160.17,1,"FIELD",10,0) 1038^1^1038^PB Other "DATA",160.17,1,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,1,"FIELD",10,2) BLANK "DATA",160.17,1,"FIELD",10,3) L,BLANK "DATA",160.17,1,"FIELD",11,0) 1039^1^1039^PB Bladder "DATA",160.17,1,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,309,"I") "DATA",160.17,1,"FIELD",11,2) BLANK "DATA",160.17,1,"FIELD",11,3) L,BLANK "DATA",160.17,1,"FIELD",12,0) 1040^1^1040^PB Colon "DATA",160.17,1,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,310,"I") "DATA",160.17,1,"FIELD",12,2) BLANK "DATA",160.17,1,"FIELD",12,3) L,BLANK "DATA",160.17,1,"FIELD",13,0) 1041^1^1041^PB Lung "DATA",160.17,1,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,311,"I") "DATA",160.17,1,"FIELD",13,2) BLANK "DATA",160.17,1,"FIELD",13,3) L,BLANK "DATA",160.17,1,"FIELD",14,0) 1042^1^1042^PB Prostate "DATA",160.17,1,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,312,"I") "DATA",160.17,1,"FIELD",14,2) BLANK "DATA",160.17,1,"FIELD",14,3) L,BLANK "DATA",160.17,1,"FIELD",15,0) 1043^1^1043^PB Other "DATA",160.17,1,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.17,1,"FIELD",15,2) BLANK "DATA",160.17,1,"FIELD",15,3) L,BLANK "DATA",160.17,1,"FIELD",16,0) 1044^2^1045^PB Smoking History (Pack Per Day) "DATA",160.17,1,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,314,"I") "DATA",160.17,1,"FIELD",16,2) BLANK "DATA",160.17,1,"FIELD",16,3) L,ZERO "DATA",160.17,1,"FIELD",17,0) 1046^2^1047^PB Duration of Smoking History (Yr.) "DATA",160.17,1,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,315,"I") "DATA",160.17,1,"FIELD",17,2) BLANK "DATA",160.17,1,"FIELD",17,3) L,ZERO "DATA",160.17,1,"FIELD",18,0) 1048^2^1049^PB Duration of Smoking-Free Hist. (Yr.) "DATA",160.17,1,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,316,"I") "DATA",160.17,1,"FIELD",18,2) BLANK "DATA",160.17,1,"FIELD",18,3) L,ZERO "DATA",160.17,1,"FIELD",19,0) 1050^1^1050^PB Gross Hematuria "DATA",160.17,1,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,317,"I") "DATA",160.17,1,"FIELD",19,2) BLANK "DATA",160.17,1,"FIELD",19,3) L,BLANK "DATA",160.17,1,"FIELD",20,0) 1051^1^1051^PB Microscopic Hematuria "DATA",160.17,1,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,318,"I") "DATA",160.17,1,"FIELD",20,2) BLANK "DATA",160.17,1,"FIELD",20,3) L,BLANK "DATA",160.17,1,"FIELD",21,0) 1052^1^1052^PB Urinary Frequency "DATA",160.17,1,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,319,"I") "DATA",160.17,1,"FIELD",21,2) BLANK "DATA",160.17,1,"FIELD",21,3) L,BLANK "DATA",160.17,1,"FIELD",22,0) 1053^1^1053^PB Bladder Irritability "DATA",160.17,1,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,320,"I") "DATA",160.17,1,"FIELD",22,2) BLANK "DATA",160.17,1,"FIELD",22,3) L,BLANK "DATA",160.17,1,"FIELD",23,0) 1054^1^1054^PB Dysuria "DATA",160.17,1,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,321,"I") "DATA",160.17,1,"FIELD",23,2) BLANK "DATA",160.17,1,"FIELD",23,3) L,BLANK "DATA",160.17,1,"FIELD",24,0) 1055^1^1055^PB Other "DATA",160.17,1,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,322,"I") "DATA",160.17,1,"FIELD",24,2) BLANK "DATA",160.17,1,"FIELD",24,3) L,BLANK "DATA",160.17,1,"FIELD",25,0) 1056^8^1063^PB Date of onset of Symptoms "DATA",160.17,1,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,323,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",25,2) BLANK "DATA",160.17,1,"FIELD",25,3) L,BLANK "DATA",160.17,1,"FIELD",26,0) 1064^2^1065^PB Gross Hematuria "DATA",160.17,1,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,324,"I") "DATA",160.17,1,"FIELD",26,2) BLANK "DATA",160.17,1,"FIELD",26,3) L,ZERO "DATA",160.17,1,"FIELD",27,0) 1066^2^1067^PB Dysuria "DATA",160.17,1,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,325,"I") "DATA",160.17,1,"FIELD",27,2) BLANK "DATA",160.17,1,"FIELD",27,3) L,ZERO "DATA",160.17,1,"FIELD",28,0) 1068^1^1068^PB Bimanual Examination of Bladder "DATA",160.17,1,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,326,"I") "DATA",160.17,1,"FIELD",28,2) BLANK "DATA",160.17,1,"FIELD",28,3) L,BLANK "DATA",160.17,1,"FIELD",29,0) 1069^1^1069^PB Cystoscopy with biopsy "DATA",160.17,1,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,327,"I") "DATA",160.17,1,"FIELD",29,2) BLANK "DATA",160.17,1,"FIELD",29,3) L,BLANK "DATA",160.17,1,"FIELD",30,0) 1070^1^1070^PB Cystoscopy without biopsy "DATA",160.17,1,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,328,"I") "DATA",160.17,1,"FIELD",30,2) BLANK "DATA",160.17,1,"FIELD",30,3) L,BLANK "DATA",160.17,1,"FIELD",31,0) 1071^1^1071^PB Flow Cytometry "DATA",160.17,1,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.17,1,"FIELD",31,2) BLANK "DATA",160.17,1,"FIELD",31,3) L,BLANK "DATA",160.17,1,"FIELD",32,0) 1072^1^1072^PB Intravenous Pyelogram "DATA",160.17,1,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,330,"I") "DATA",160.17,1,"FIELD",32,2) BLANK "DATA",160.17,1,"FIELD",32,3) L,BLANK "DATA",160.17,1,"FIELD",33,0) 1073^1^1073^PB Urine Cytology "DATA",160.17,1,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,331,"I") "DATA",160.17,1,"FIELD",33,2) BLANK "DATA",160.17,1,"FIELD",33,3) L,BLANK "DATA",160.17,1,"FIELD",34,0) 1074^1^1074^PB Urinalysis "DATA",160.17,1,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,332,"I") "DATA",160.17,1,"FIELD",34,2) BLANK "DATA",160.17,1,"FIELD",34,3) L,BLANK "DATA",160.17,1,"FIELD",35,0) 1075^1^1075^PB Other "DATA",160.17,1,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,333,"I") "DATA",160.17,1,"FIELD",35,2) BLANK "DATA",160.17,1,"FIELD",35,3) L,BLANK "DATA",160.17,1,"FIELD",36,0) 1076^1^1076^PB Specialty Making Diagnosis "DATA",160.17,1,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,334,"I") "DATA",160.17,1,"FIELD",36,2) BLANK "DATA",160.17,1,"FIELD",36,3) L,BLANK "DATA",160.17,1,"FIELD",37,0) 1077^1^1077^PB Abdominal Ultrasound "DATA",160.17,1,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,335,"I") "DATA",160.17,1,"FIELD",37,2) BLANK "DATA",160.17,1,"FIELD",37,3) L,BLANK "DATA",160.17,1,"FIELD",38,0) 1078^1^1078^PB Bone Imaging "DATA",160.17,1,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,336,"I") "DATA",160.17,1,"FIELD",38,2) BLANK "DATA",160.17,1,"FIELD",38,3) L,BLANK "DATA",160.17,1,"FIELD",39,0) 1079^1^1079^PB Chest X-Ray "DATA",160.17,1,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,337,"I") "DATA",160.17,1,"FIELD",39,2) BLANK "DATA",160.17,1,"FIELD",39,3) L,BLANK "DATA",160.17,1,"FIELD",40,0) 1080^1^1080^PB CT Chest/Lung "DATA",160.17,1,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,338,"I") "DATA",160.17,1,"FIELD",40,2) BLANK "DATA",160.17,1,"FIELD",40,3) L,BLANK "DATA",160.17,1,"FIELD",41,0) 1081^1^1081^PB CT Abdomen/Pelvis "DATA",160.17,1,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,339,"I") "DATA",160.17,1,"FIELD",41,2) BLANK "DATA",160.17,1,"FIELD",41,3) L,BLANK "DATA",160.17,1,"FIELD",42,0) 1082^1^1082^PB CT Other "DATA",160.17,1,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,340,"I") "DATA",160.17,1,"FIELD",42,2) BLANK "DATA",160.17,1,"FIELD",42,3) L,BLANK "DATA",160.17,1,"FIELD",43,0) 1083^1^1083^PB MRI Pelvis/Abdomen "DATA",160.17,1,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,341,"I") "DATA",160.17,1,"FIELD",43,2) BLANK "DATA",160.17,1,"FIELD",43,3) L,BLANK "DATA",160.17,1,"FIELD",44,0) 1084^1^1084^PB MRI Other "DATA",160.17,1,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,342,"I") "DATA",160.17,1,"FIELD",44,2) BLANK "DATA",160.17,1,"FIELD",44,3) L,BLANK "DATA",160.17,1,"FIELD",45,0) 1085^1^1085^PB Other "DATA",160.17,1,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,343,"I") "DATA",160.17,1,"FIELD",45,2) BLANK "DATA",160.17,1,"FIELD",45,3) L,BLANK "DATA",160.17,1,"FIELD",46,0) 1086^1^1086^PB Presence of Hydronephrosis "DATA",160.17,1,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,344,"I") "DATA",160.17,1,"FIELD",46,2) BLANK "DATA",160.17,1,"FIELD",46,3) L,BLANK "DATA",160.17,1,"FIELD",47,0) 1087^1^1087^PB Presence of Multiple Tumors "DATA",160.17,1,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,345,"I") "DATA",160.17,1,"FIELD",47,2) BLANK "DATA",160.17,1,"FIELD",47,3) L,BLANK "DATA",160.17,1,"FIELD",48,0) 1088^1^1088^PB Clinical Stage "DATA",160.17,1,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.17,1,"FIELD",48,2) BLANK "DATA",160.17,1,"FIELD",48,3) L,BLANK "DATA",160.17,1,"FIELD",49,0) 1089^1^1089^PB Pathologic Stage "DATA",160.17,1,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.17,1,"FIELD",49,2) BLANK "DATA",160.17,1,"FIELD",49,3) L,BLANK "DATA",160.17,1,"FIELD",50,0) 1090^1^1090^PB Protocol Eligibility Status "DATA",160.17,1,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.17,1,"FIELD",50,2) BLANK "DATA",160.17,1,"FIELD",50,3) L,BLANK "DATA",160.17,1,"FIELD",51,0) 1091^2^1092^PB Primary Physician "DATA",160.17,1,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,347,"I") "DATA",160.17,1,"FIELD",51,2) BLANK "DATA",160.17,1,"FIELD",51,3) L,ZERO "DATA",160.17,1,"FIELD",52,0) 1093^2^1094^PB Secondary Physician "DATA",160.17,1,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,348,"I") "DATA",160.17,1,"FIELD",52,2) BLANK "DATA",160.17,1,"FIELD",52,3) L,ZERO "DATA",160.17,1,"FIELD",53,0) 1095^1^1095^PB Tumor Resection During TURB (Surgery Type 10) "DATA",160.17,1,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,349,"I") "DATA",160.17,1,"FIELD",53,2) BLANK "DATA",160.17,1,"FIELD",53,3) L,BLANK "DATA",160.17,1,"FIELD",54,0) 1096^1^1096^PB Type of Urinary Diversion (Surgery Type 20-70) "DATA",160.17,1,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,350,"I") "DATA",160.17,1,"FIELD",54,2) BLANK "DATA",160.17,1,"FIELD",54,3) L,BLANK "DATA",160.17,1,"FIELD",55,0) 1097^1^1097^PB Pelvic Lymph Node Dis. Rad. Surg. (Surg. Type 70) "DATA",160.17,1,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,351,"I") "DATA",160.17,1,"FIELD",55,2) BLANK "DATA",160.17,1,"FIELD",55,3) L,BLANK "DATA",160.17,1,"FIELD",56,0) 1098^1^1098^PB Bleeding Requiring Transfusion "DATA",160.17,1,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,352,"I") "DATA",160.17,1,"FIELD",56,2) BLANK "DATA",160.17,1,"FIELD",56,3) L,BLANK "DATA",160.17,1,"FIELD",57,0) 1099^1^1099^PB Deep venous Thrombosis "DATA",160.17,1,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,353,"I") "DATA",160.17,1,"FIELD",57,2) BLANK "DATA",160.17,1,"FIELD",57,3) L,BLANK "DATA",160.17,1,"FIELD",58,0) 1100^1^1100^PB Myocardial Infarction/arrhythmia "DATA",160.17,1,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,354,"I") "DATA",160.17,1,"FIELD",58,2) BLANK "DATA",160.17,1,"FIELD",58,3) L,BLANK "DATA",160.17,1,"FIELD",59,0) 1101^1^1101^PB Pelvic Abscess "DATA",160.17,1,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,355,"I") "DATA",160.17,1,"FIELD",59,2) BLANK "DATA",160.17,1,"FIELD",59,3) L,BLANK "DATA",160.17,1,"FIELD",60,0) 1102^1^1102^PB Pneumonia Requiring Antibiotics "DATA",160.17,1,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,356,"I") "DATA",160.17,1,"FIELD",60,2) BLANK "DATA",160.17,1,"FIELD",60,3) L,BLANK "DATA",160.17,1,"FIELD",61,0) 1103^1^1103^PB Postoperative death (30 Days) "DATA",160.17,1,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,357,"I") "DATA",160.17,1,"FIELD",61,2) BLANK "DATA",160.17,1,"FIELD",61,3) L,BLANK "DATA",160.17,1,"FIELD",62,0) 1104^1^1104^PB Pulmonary Embolism/Thrombosis "DATA",160.17,1,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,358,"I") "DATA",160.17,1,"FIELD",62,2) BLANK "DATA",160.17,1,"FIELD",62,3) L,BLANK "DATA",160.17,1,"FIELD",63,0) 1105^1^1105^PB Re-Operation "DATA",160.17,1,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,359,"I") "DATA",160.17,1,"FIELD",63,2) BLANK "DATA",160.17,1,"FIELD",63,3) L,BLANK "DATA",160.17,1,"FIELD",64,0) 1106^1^1106^PB Other "DATA",160.17,1,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,360,"I") "DATA",160.17,1,"FIELD",64,2) BLANK "DATA",160.17,1,"FIELD",64,3) L,BLANK "DATA",160.17,1,"FIELD",65,0) 1107^8^1114^PB Date Radiation Therapy Ended "DATA",160.17,1,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",65,2) BLANK "DATA",160.17,1,"FIELD",65,3) L,ZERO "DATA",160.17,1,"FIELD",66,0) 1115^5^1119^PB Total Radiation (cGy/Rad.) Dose "DATA",160.17,1,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.17,1,"FIELD",66,2) BLANK "DATA",160.17,1,"FIELD",66,3) L,ZERO "DATA",160.17,1,"FIELD",67,0) 1120^2^1121^PB Regional Treatment Modality "DATA",160.17,1,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.17,1,"FIELD",67,2) BLANK "DATA",160.17,1,"FIELD",67,3) L,ZERO "DATA",160.17,1,"FIELD",68,0) 1122^1^1122^PB Urinary Incontinence "DATA",160.17,1,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,364,"I") "DATA",160.17,1,"FIELD",68,2) BLANK "DATA",160.17,1,"FIELD",68,3) L,BLANK "DATA",160.17,1,"FIELD",69,0) 1123^1^1123^PB Hematuria "DATA",160.17,1,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,365,"I") "DATA",160.17,1,"FIELD",69,2) BLANK "DATA",160.17,1,"FIELD",69,3) L,BLANK "DATA",160.17,1,"FIELD",70,0) 1124^1^1124^PB Radiation Bowel Injury "DATA",160.17,1,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,366,"I") "DATA",160.17,1,"FIELD",70,2) BLANK "DATA",160.17,1,"FIELD",70,3) L,BLANK "DATA",160.17,1,"FIELD",71,0) 1125^8^1132^PB Date Chemotherapy Ended "DATA",160.17,1,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,367,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",71,2) ZERO "DATA",160.17,1,"FIELD",71,3) L,ZERO "DATA",160.17,1,"FIELD",72,0) 1133^1^1133^PB Route Chemotherapy Administered "DATA",160.17,1,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,368,"I") "DATA",160.17,1,"FIELD",72,2) BLANK "DATA",160.17,1,"FIELD",72,3) L,BLANK "DATA",160.17,1,"FIELD",73,0) 1134^1^1134^PB Adriamycin "DATA",160.17,1,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,369,"I") "DATA",160.17,1,"FIELD",73,2) BLANK "DATA",160.17,1,"FIELD",73,3) L,BLANK "DATA",160.17,1,"FIELD",74,0) 1135^1^1135^PB Carboplatinum "DATA",160.17,1,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,370,"I") "DATA",160.17,1,"FIELD",74,2) BLANK "DATA",160.17,1,"FIELD",74,3) L,BLANK "DATA",160.17,1,"FIELD",75,0) 1136^1^1136^PB Cisplatin "DATA",160.17,1,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.17,1,"FIELD",75,2) BLANK "DATA",160.17,1,"FIELD",75,3) L,BLANK "DATA",160.17,1,"FIELD",76,0) 1137^1^1137^PB Cyclophosphamide "DATA",160.17,1,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,372,"I") "DATA",160.17,1,"FIELD",76,2) BLANK "DATA",160.17,1,"FIELD",76,3) L,BLANK "DATA",160.17,1,"FIELD",77,0) 1138^1^1138^PB 5-fluorouracil "DATA",160.17,1,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,373,"I") "DATA",160.17,1,"FIELD",77,2) BLANK "DATA",160.17,1,"FIELD",77,3) L,BLANK "DATA",160.17,1,"FIELD",78,0) 1139^1^1139^PB Gallium Nitrate "DATA",160.17,1,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,374,"I") "DATA",160.17,1,"FIELD",78,2) BLANK "DATA",160.17,1,"FIELD",78,3) L,BLANK "DATA",160.17,1,"FIELD",79,0) 1140^1^1140^PB Ifosfamide "DATA",160.17,1,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.17,1,"FIELD",79,2) BLANK "DATA",160.17,1,"FIELD",79,3) L,BLANK "DATA",160.17,1,"FIELD",80,0) 1141^1^1141^PB Methotrexate "DATA",160.17,1,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,376,"I") "DATA",160.17,1,"FIELD",80,2) BLANK "DATA",160.17,1,"FIELD",80,3) L,BLANK "DATA",160.17,1,"FIELD",81,0) 1142^1^1142^PB Taxol "DATA",160.17,1,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.17,1,"FIELD",81,2) BLANK "DATA",160.17,1,"FIELD",81,3) L,BLANK "DATA",160.17,1,"FIELD",82,0) 1143^1^1143^PB Thiotepa "DATA",160.17,1,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,378,"I") "DATA",160.17,1,"FIELD",82,2) BLANK "DATA",160.17,1,"FIELD",82,3) L,BLANK "DATA",160.17,1,"FIELD",83,0) 1144^1^1144^PB Vinblastine "DATA",160.17,1,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,379,"I") "DATA",160.17,1,"FIELD",83,2) BLANK "DATA",160.17,1,"FIELD",83,3) L,BLANK "DATA",160.17,1,"FIELD",84,0) 1145^1^1145^PB Other "DATA",160.17,1,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,380,"I") "DATA",160.17,1,"FIELD",84,2) BLANK "DATA",160.17,1,"FIELD",84,3) L,BLANK "DATA",160.17,1,"FIELD",85,0) 1146^1^1146^PB Indication for Admin. of Agent "DATA",160.17,1,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,381,"I") "DATA",160.17,1,"FIELD",85,2) BLANK "DATA",160.17,1,"FIELD",85,3) L,BLANK "DATA",160.17,1,"FIELD",86,0) 1147^1^1147^PB Reason Chemotherapy Stopped "DATA",160.17,1,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,382,"I") "DATA",160.17,1,"FIELD",86,2) BLANK "DATA",160.17,1,"FIELD",86,3) L,BLANK "DATA",160.17,1,"FIELD",87,0) 1148^1^1148^PB BCG "DATA",160.17,1,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,383,"I") "DATA",160.17,1,"FIELD",87,2) BLANK "DATA",160.17,1,"FIELD",87,3) L,BLANK "DATA",160.17,1,"FIELD",88,0) 1149^1^1149^PB Interferon "DATA",160.17,1,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.17,1,"FIELD",88,2) BLANK "DATA",160.17,1,"FIELD",88,3) L,BLANK "DATA",160.17,1,"FIELD",89,0) 1150^1^1150^PB Interleukin-II "DATA",160.17,1,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,385,"I") "DATA",160.17,1,"FIELD",89,2) BLANK "DATA",160.17,1,"FIELD",89,3) L,BLANK "DATA",160.17,1,"FIELD",90,0) 1151^1^1151^PB Other "DATA",160.17,1,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,386,"I") "DATA",160.17,1,"FIELD",90,2) BLANK "DATA",160.17,1,"FIELD",90,3) L,BLANK "DATA",160.17,1,"FIELD",91,0) 1152^1^1152^PB Type of First Recurrence "DATA",160.17,1,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,387,"I") "DATA",160.17,1,"FIELD",91,2) BLANK "DATA",160.17,1,"FIELD",91,3) L,BLANK "DATA",160.17,1,"FIELD",92,0) 1153^2^1154^PB Completed By "DATA",160.17,1,"FIELD",92,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,1,"FIELD",92,2) BLANK "DATA",160.17,1,"FIELD",92,3) L,BLANK "DATA",160.17,1,"FIELD",93,0) 1155^2^1156^PB Reviewed by Cancer Committee "DATA",160.17,1,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,1,"FIELD",93,2) BLANK "DATA",160.17,1,"FIELD",93,3) L,BLANK "DATA",160.17,1,"FIELD",94,0) 1157^369^1525^Reserved "DATA",160.17,1,"FIELD",94,1) S ACDANS="" "DATA",160.17,1,"FIELD",94,2) BLANK "DATA",160.17,1,"FIELD",94,3) L,BLANK "DATA",160.17,2,0) THYROID "DATA",160.17,2,"FIELD",0) ^160.171I^51^51 "DATA",160.17,2,"FIELD",1,0) 1026^1^1026^Family History of Thyroid Cancer "DATA",160.17,2,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,400,"I") "DATA",160.17,2,"FIELD",1,2) NINE "DATA",160.17,2,"FIELD",1,3) L,BLANK "DATA",160.17,2,"FIELD",2,0) 1027^1^1027^Lymphoma, including Hodgkin's Disease "DATA",160.17,2,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,401,"I") "DATA",160.17,2,"FIELD",2,2) NINE "DATA",160.17,2,"FIELD",2,3) L,ZERO "DATA",160.17,2,"FIELD",3,0) 1028^1^1028^Childhood malignancy other than lymphoma "DATA",160.17,2,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,402,"I") "DATA",160.17,2,"FIELD",3,2) NINE "DATA",160.17,2,"FIELD",3,3) L,BLANK "DATA",160.17,2,"FIELD",4,0) 1029^1^1029^Other "DATA",160.17,2,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,2,"FIELD",4,2) NINE "DATA",160.17,2,"FIELD",4,3) L,ZERO "DATA",160.17,2,"FIELD",5,0) 1030^1^1030^Personal Prior Exposure to Radiation "DATA",160.17,2,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,403,"I") "DATA",160.17,2,"FIELD",5,2) NINE "DATA",160.17,2,"FIELD",5,3) L,BLANK "DATA",160.17,2,"FIELD",6,0) 1031^1^1031^Personal History of Goiter "DATA",160.17,2,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,405,"I") "DATA",160.17,2,"FIELD",6,2) NINE "DATA",160.17,2,"FIELD",6,3) L,ZERO "DATA",160.17,2,"FIELD",7,0) 1032^1^1032^Family History of Goiter "DATA",160.17,2,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,405,"I") "DATA",160.17,2,"FIELD",7,2) NINE "DATA",160.17,2,"FIELD",7,3) L,ZERO "DATA",160.17,2,"FIELD",8,0) 1041^1^1041^Stridor or Difficulty Breathing "DATA",160.17,2,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,414,"I") "DATA",160.17,2,"FIELD",8,2) NINE "DATA",160.17,2,"FIELD",8,3) L,BLANK "DATA",160.17,2,"FIELD",9,0) 1042^1^1042^Thyroid Mass "DATA",160.17,2,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,415,"I") "DATA",160.17,2,"FIELD",9,2) NINE "DATA",160.17,2,"FIELD",9,3) L,BLANK "DATA",160.17,2,"FIELD",10,0) 1043^1^1043^Weight Loss "DATA",160.17,2,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,416,"I") "DATA",160.17,2,"FIELD",10,2) NINE "DATA",160.17,2,"FIELD",10,3) L,BLANK "DATA",160.17,2,"FIELD",11,0) 1044^1^1044^Other "DATA",160.17,2,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,417,"I") "DATA",160.17,2,"FIELD",11,2) NINE "DATA",160.17,2,"FIELD",11,3) L,BLANK "DATA",160.17,2,"FIELD",12,0) 1045^1^1045^D/S Bone Scan "DATA",160.17,2,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,418,"I") "DATA",160.17,2,"FIELD",12,2) NINE "DATA",160.17,2,"FIELD",12,3) L,BLANK "DATA",160.17,2,"FIELD",13,0) 1046^1^1046^D/S Chest X-Ray "DATA",160.17,2,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,419,"I") "DATA",160.17,2,"FIELD",13,2) NINE "DATA",160.17,2,"FIELD",13,3) L,BLANK "DATA",160.17,2,"FIELD",14,0) 1047^1^1047^D/S CT Scan of neck "DATA",160.17,2,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,420,"I") "DATA",160.17,2,"FIELD",14,2) NINE "DATA",160.17,2,"FIELD",14,3) L,BLANK "DATA",160.17,2,"FIELD",15,0) 1048^1^1048^D/S CT Scan of chest "DATA",160.17,2,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,421,"I") "DATA",160.17,2,"FIELD",15,2) NINE "DATA",160.17,2,"FIELD",15,3) L,BLANK "DATA",160.17,2,"FIELD",16,0) 1049^1^1049^D/S Incisional Biopsy of Thyroid or Neck "DATA",160.17,2,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,422,"I") "DATA",160.17,2,"FIELD",16,2) NINE "DATA",160.17,2,"FIELD",16,3) L,BLANK "DATA",160.17,2,"FIELD",17,0) 1050^1^1050^D/S Laryngoscopy "DATA",160.17,2,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,423,"I") "DATA",160.17,2,"FIELD",17,2) NINE "DATA",160.17,2,"FIELD",17,3) L,BLANK "DATA",160.17,2,"FIELD",18,0) 1051^1^1051^D/S Neck X-Ray (AP & Lateral) "DATA",160.17,2,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,424,"I") "DATA",160.17,2,"FIELD",18,2) NINE "DATA",160.17,2,"FIELD",18,3) L,BLANK "DATA",160.17,2,"FIELD",19,0) 1052^1^1052^D/S Needle Aspiration of Neck Node "DATA",160.17,2,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,425,"I") "DATA",160.17,2,"FIELD",19,2) NINE "DATA",160.17,2,"FIELD",19,3) L,BLANK "DATA",160.17,2,"FIELD",20,0) 1053^1^1053^D/S Needle Aspiration of Thyroid "DATA",160.17,2,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,426,"I") "DATA",160.17,2,"FIELD",20,2) NINE "DATA",160.17,2,"FIELD",20,3) L,BLANK "DATA",160.17,2,"FIELD",21,0) 1054^1^1054^D/S MRI of Neck "DATA",160.17,2,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,427,"I") "DATA",160.17,2,"FIELD",21,2) NINE "DATA",160.17,2,"FIELD",21,3) L,BLANK "DATA",160.17,2,"FIELD",22,0) 1055^1^1055^D/S Thyroid Scan "DATA",160.17,2,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,428,"I") "DATA",160.17,2,"FIELD",22,2) NINE "DATA",160.17,2,"FIELD",22,3) L,BLANK "DATA",160.17,2,"FIELD",23,0) 1056^1^1056^D/S Ultrasound of Thyroid "DATA",160.17,2,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,429,"I") "DATA",160.17,2,"FIELD",23,2) NINE "DATA",160.17,2,"FIELD",23,3) L,BLANK "DATA",160.17,2,"FIELD",24,0) 1057^1^1057^D/S Other "DATA",160.17,2,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,430,"I") "DATA",160.17,2,"FIELD",24,2) NINE "DATA",160.17,2,"FIELD",24,3) L,BLANK "DATA",160.17,2,"FIELD",25,0) 1058^1^1058^Blood Vessel Invasion "DATA",160.17,2,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,431,"I") "DATA",160.17,2,"FIELD",25,2) NINE "DATA",160.17,2,"FIELD",25,3) L,ZERO "DATA",160.17,2,"FIELD",26,0) 1062^8^1069^Date of Discharge After Surgery "DATA",160.17,2,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,435,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,2,"FIELD",26,2) BLANK "DATA",160.17,2,"FIELD",26,3) L,BLANK "DATA",160.17,2,"FIELD",27,0) 1070^1^1070^SC Airway Problem Requiring Tracheostomy "DATA",160.17,2,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,436,"I") "DATA",160.17,2,"FIELD",27,2) NINE "DATA",160.17,2,"FIELD",27,3) L,BLANK "DATA",160.17,2,"FIELD",28,0) 1071^1^1071^SC Bleeding/Hematoma "DATA",160.17,2,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,437,"I") "DATA",160.17,2,"FIELD",28,2) NINE "DATA",160.17,2,"FIELD",28,3) L,BLANK "DATA",160.17,2,"FIELD",29,0) 1072^1^1072^SC Hypocalcemia (needs oral calcium) "DATA",160.17,2,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,438,"I") "DATA",160.17,2,"FIELD",29,2) NINE "DATA",160.17,2,"FIELD",29,3) L,BLANK "DATA",160.17,2,"FIELD",30,0) 1073^1^1073^SC Recurrent Nerve Injury (or vocal cord paresis) "DATA",160.17,2,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,439,"I") "DATA",160.17,2,"FIELD",30,2) NINE "DATA",160.17,2,"FIELD",30,3) L,BLANK "DATA",160.17,2,"FIELD",31,0) 1074^1^1074^SC Wound Infection "DATA",160.17,2,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,440,"I") "DATA",160.17,2,"FIELD",31,2) NINE "DATA",160.17,2,"FIELD",31,3) L,BLANK "DATA",160.17,2,"FIELD",32,0) 1075^1^1075^Postoperative Death "DATA",160.17,2,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,2,"FIELD",32,2) NINE "DATA",160.17,2,"FIELD",32,3) L,ZERO "DATA",160.17,2,"FIELD",33,0) 1092^1^1092^Thyroid Hormone Therapy "DATA",160.17,2,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.17,2,"FIELD",33,2) NINE "DATA",160.17,2,"FIELD",33,3) L,BLANK "DATA",160.17,2,"FIELD",34,0) 1093^2^1094^Completed By "DATA",160.17,2,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,2,"FIELD",34,2) BLANK "DATA",160.17,2,"FIELD",34,3) L,BLANK "DATA",160.17,2,"FIELD",35,0) 1095^2^1096^Reviewed By Cancer Committee "DATA",160.17,2,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,2,"FIELD",35,2) BLANK "DATA",160.17,2,"FIELD",35,3) L,BLANK "DATA",160.17,2,"FIELD",36,0) 1097^429^1525^Reserved "DATA",160.17,2,"FIELD",36,1) S ACDANS="" "DATA",160.17,2,"FIELD",36,2) BLANK "DATA",160.17,2,"FIELD",36,3) L,BLANK "DATA",160.17,2,"FIELD",37,0) 1061^1^1061^Location of Positive Nodes "DATA",160.17,2,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,434,"I") "DATA",160.17,2,"FIELD",37,2) NINE "DATA",160.17,2,"FIELD",37,3) L,BLANK "DATA",160.17,2,"FIELD",38,0) 1033^1^1033^Personal History of Graves' Disease "DATA",160.17,2,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,406,"I") "DATA",160.17,2,"FIELD",38,2) NINE "DATA",160.17,2,"FIELD",38,3) L,ZERO "DATA",160.17,2,"FIELD",39,0) 1034^1^1034^Personal History of Thyroiditis "DATA",160.17,2,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,407,"I") "DATA",160.17,2,"FIELD",39,2) NINE "DATA",160.17,2,"FIELD",39,3) L,ZERO "DATA",160.17,2,"FIELD",40,0) 1035^1^1035^S/S Present Dysphagia "DATA",160.17,2,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,408,"I") "DATA",160.17,2,"FIELD",40,2) NINE "DATA",160.17,2,"FIELD",40,3) L,ZERO "DATA",160.17,2,"FIELD",41,0) 1036^1^1036^S/S Present Hoarseness of voice change "DATA",160.17,2,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,409,"I") "DATA",160.17,2,"FIELD",41,2) NINE "DATA",160.17,2,"FIELD",41,3) L,ZERO "DATA",160.17,2,"FIELD",42,0) 1037^1^1037^S/S Present Neck nodal mass "DATA",160.17,2,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,410,"I") "DATA",160.17,2,"FIELD",42,2) NINE "DATA",160.17,2,"FIELD",42,3) L,ZERO "DATA",160.17,2,"FIELD",43,0) 1038^1^1038^S/S Present Pain, Bone "DATA",160.17,2,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,411,"I") "DATA",160.17,2,"FIELD",43,2) NINE "DATA",160.17,2,"FIELD",43,3) L,ZERO "DATA",160.17,2,"FIELD",44,0) 1039^1^1039^S/S Present Pain, neck "DATA",160.17,2,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,412,"I") "DATA",160.17,2,"FIELD",44,2) NINE "DATA",160.17,2,"FIELD",44,3) L,ZERO "DATA",160.17,2,"FIELD",45,0) 1040^1^1040^S/S Present Pathologic Fracture "DATA",160.17,2,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,413,"I") "DATA",160.17,2,"FIELD",45,2) NINE "DATA",160.17,2,"FIELD",45,3) L,ZERO "DATA",160.17,2,"FIELD",46,0) 1059^1^1059^Extra-Throidal Extension "DATA",160.17,2,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,432,"I") "DATA",160.17,2,"FIELD",46,2) NINE "DATA",160.17,2,"FIELD",46,3) L,ZERO "DATA",160.17,2,"FIELD",47,0) 1060^1^1060^Multifocal "DATA",160.17,2,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,433,"I") "DATA",160.17,2,"FIELD",47,2) NINE "DATA",160.17,2,"FIELD",47,3) L,ZERO "DATA",160.17,2,"FIELD",48,0) 1076^5^1080^Radiation Boost Dosage "DATA",160.17,2,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.17,2,"FIELD",48,2) NINE "DATA",160.17,2,"FIELD",48,3) L,ZERO "DATA",160.17,2,"FIELD",49,0) 1081^5^1085^Initial Dose of Radioiodine "DATA",160.17,2,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,444,"I") "DATA",160.17,2,"FIELD",49,2) NINE "DATA",160.17,2,"FIELD",49,3) L,ZERO "DATA",160.17,2,"FIELD",50,0) 1086^5^1090^Second Dose of Radioiodine "DATA",160.17,2,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,445,"I") "DATA",160.17,2,"FIELD",50,2) NINE "DATA",160.17,2,"FIELD",50,3) L,ZERO "DATA",160.17,2,"FIELD",51,0) 1091^1^1091^Adjuvant Chemo. with External Beam "DATA",160.17,2,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,446,"I") "DATA",160.17,2,"FIELD",51,2) NINE "DATA",160.17,2,"FIELD",51,3) L,ZERO "DATA",160.17,3,0) SOFT TISSUE SARCOMA "DATA",160.17,3,"FIELD",0) ^160.171I^85^85 "DATA",160.17,3,"FIELD",1,0) 1026^1^1026^Family History of Soft Tissue Sarcoma "DATA",160.17,3,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,500,"I") "DATA",160.17,3,"FIELD",1,2) NINE "DATA",160.17,3,"FIELD",1,3) L,BLANK "DATA",160.17,3,"FIELD",2,0) 1027^1^1027^Personal History of Any Cancer "DATA",160.17,3,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,501,"I") "DATA",160.17,3,"FIELD",2,2) NINE "DATA",160.17,3,"FIELD",2,3) L,BLANK "DATA",160.17,3,"FIELD",3,0) 1028^1^1028^D/W Angiogram of Primary "DATA",160.17,3,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,502,"I") "DATA",160.17,3,"FIELD",3,2) NINE "DATA",160.17,3,"FIELD",3,3) L,BLANK "DATA",160.17,3,"FIELD",4,0) 1029^1^1029^D/W Bone marrow Aspirate and/or biopsy "DATA",160.17,3,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,503,"I") "DATA",160.17,3,"FIELD",4,2) NINE "DATA",160.17,3,"FIELD",4,3) L,BLANK "DATA",160.17,3,"FIELD",5,0) 1030^1^1030^D/W Bone Scan "DATA",160.17,3,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,504,"I") "DATA",160.17,3,"FIELD",5,2) NINE "DATA",160.17,3,"FIELD",5,3) L,BLANK "DATA",160.17,3,"FIELD",6,0) 1031^1^1031^D/W Chest X-Ray "DATA",160.17,3,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,505,"I") "DATA",160.17,3,"FIELD",6,2) NINE "DATA",160.17,3,"FIELD",6,3) L,BLANK "DATA",160.17,3,"FIELD",7,0) 1032^1^1032^D/W CT scan of chest "DATA",160.17,3,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,506,"I") "DATA",160.17,3,"FIELD",7,2) NINE "DATA",160.17,3,"FIELD",7,3) L,BLANK "DATA",160.17,3,"FIELD",8,0) 1033^1^1033^D/W CT scan of primary "DATA",160.17,3,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,507,"I") "DATA",160.17,3,"FIELD",8,2) NINE "DATA",160.17,3,"FIELD",8,3) L,BLANK "DATA",160.17,3,"FIELD",9,0) 1034^1^1034^D/W Liver Function Studies "DATA",160.17,3,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,508,"I") "DATA",160.17,3,"FIELD",9,2) NINE "DATA",160.17,3,"FIELD",9,3) L,BLANK "DATA",160.17,3,"FIELD",10,0) 1035^1^1035^D/W Lymphangiogram "DATA",160.17,3,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,509,"I") "DATA",160.17,3,"FIELD",10,2) NINE "DATA",160.17,3,"FIELD",10,3) L,BLANK "DATA",160.17,3,"FIELD",11,0) 1036^1^1036^D/W MRI of primary "DATA",160.17,3,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,510,"I") "DATA",160.17,3,"FIELD",11,2) NINE "DATA",160.17,3,"FIELD",11,3) L,BLANK "DATA",160.17,3,"FIELD",12,0) 1037^1^1037^D/W MRI of Other "DATA",160.17,3,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,511,"I") "DATA",160.17,3,"FIELD",12,2) NINE "DATA",160.17,3,"FIELD",12,3) L,BLANK "DATA",160.17,3,"FIELD",13,0) 1038^1^1038^D/W Skeletal X-Ray "DATA",160.17,3,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,512,"I") "DATA",160.17,3,"FIELD",13,2) NINE "DATA",160.17,3,"FIELD",13,3) L,BLANK "DATA",160.17,3,"FIELD",14,0) 1039^1^1039^D/W Sonogram "DATA",160.17,3,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,513,"I") "DATA",160.17,3,"FIELD",14,2) NINE "DATA",160.17,3,"FIELD",14,3) L,BLANK "DATA",160.17,3,"FIELD",15,0) 1040^1^1040^H/W Cytogenetics "DATA",160.17,3,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,514,"I") "DATA",160.17,3,"FIELD",15,2) NINE "DATA",160.17,3,"FIELD",15,3) L,BLANK "DATA",160.17,3,"FIELD",16,0) 1041^1^1041^H/W Electron Microscopy "DATA",160.17,3,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,515,"I") "DATA",160.17,3,"FIELD",16,2) NINE "DATA",160.17,3,"FIELD",16,3) L,BLANK "DATA",160.17,3,"FIELD",17,0) 1042^1^1042^H/W Flow Cytometry "DATA",160.17,3,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.17,3,"FIELD",17,2) NINE "DATA",160.17,3,"FIELD",17,3) L,BLANK "DATA",160.17,3,"FIELD",18,0) 1043^1^1043^H/W Immunohistochemistry "DATA",160.17,3,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,516,"I") "DATA",160.17,3,"FIELD",18,2) NINE "DATA",160.17,3,"FIELD",18,3) L,BLANK "DATA",160.17,3,"FIELD",19,0) 1044^1^1044^H/W In Situ Hybridization "DATA",160.17,3,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,517,"I") "DATA",160.17,3,"FIELD",19,2) NINE "DATA",160.17,3,"FIELD",19,3) L,BLANK "DATA",160.17,3,"FIELD",20,0) 1045^4^1048^B. Fine needle aspiration histology "DATA",160.17,3,"FIELD",20,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),1,4) "DATA",160.17,3,"FIELD",20,2) NINE "DATA",160.17,3,"FIELD",20,3) L,ZERO "DATA",160.17,3,"FIELD",21,0) 1049^1^1049^B. Fine needle aspiration behavior "DATA",160.17,3,"FIELD",21,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),5) "DATA",160.17,3,"FIELD",21,2) NINE "DATA",160.17,3,"FIELD",21,3) L,ZERO "DATA",160.17,3,"FIELD",22,0) 1050^1^1050^B. Fine needle aspiration grade "DATA",160.17,3,"FIELD",22,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),6) "DATA",160.17,3,"FIELD",22,2) NINE "DATA",160.17,3,"FIELD",22,3) L,ZERO "DATA",160.17,3,"FIELD",23,0) 1051^4^1054^B. Core needle biopsy Histology "DATA",160.17,3,"FIELD",23,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),1,4) "DATA",160.17,3,"FIELD",23,2) NINE "DATA",160.17,3,"FIELD",23,3) L,ZERO "DATA",160.17,3,"FIELD",24,0) 1055^1^1055^B. Core needle biopsy behavior "DATA",160.17,3,"FIELD",24,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),5) "DATA",160.17,3,"FIELD",24,2) NINE "DATA",160.17,3,"FIELD",24,3) L,ZERO "DATA",160.17,3,"FIELD",25,0) 1056^1^1056^B. Core needle biopsy grade "DATA",160.17,3,"FIELD",25,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),6) "DATA",160.17,3,"FIELD",25,2) NINE "DATA",160.17,3,"FIELD",25,3) L,ZERO "DATA",160.17,3,"FIELD",26,0) 1057^4^1060^B. Incisional Biopsy Histology "DATA",160.17,3,"FIELD",26,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),1,4) "DATA",160.17,3,"FIELD",26,2) NINE "DATA",160.17,3,"FIELD",26,3) L,ZERO "DATA",160.17,3,"FIELD",27,0) 1061^1^1061^B. Incisional Biopsy Behavior "DATA",160.17,3,"FIELD",27,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),5) "DATA",160.17,3,"FIELD",27,2) NINE "DATA",160.17,3,"FIELD",27,3) L,ZERO "DATA",160.17,3,"FIELD",28,0) 1062^1^1062^B. Incisional Biopsy Grade "DATA",160.17,3,"FIELD",28,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),6) "DATA",160.17,3,"FIELD",28,2) NINE "DATA",160.17,3,"FIELD",28,3) L,ZERO "DATA",160.17,3,"FIELD",29,0) 1063^4^1066^B. Excisional Biopsy Histology "DATA",160.17,3,"FIELD",29,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),1,4) "DATA",160.17,3,"FIELD",29,2) NINE "DATA",160.17,3,"FIELD",29,3) L,ZERO "DATA",160.17,3,"FIELD",30,0) 1067^1^1067^B. Excisional Biopsy Behavior "DATA",160.17,3,"FIELD",30,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),5) "DATA",160.17,3,"FIELD",30,2) NINE "DATA",160.17,3,"FIELD",30,3) L,ZERO "DATA",160.17,3,"FIELD",31,0) 1068^1^1068^B. Excisional Biopsy Grade "DATA",160.17,3,"FIELD",31,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),6) "DATA",160.17,3,"FIELD",31,2) NINE "DATA",160.17,3,"FIELD",31,3) L,ZERO "DATA",160.17,3,"FIELD",32,0) 1069^1^1069^Was an Outside Confirmation of a Biopsy Requested "DATA",160.17,3,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,518,"I") "DATA",160.17,3,"FIELD",32,2) NINE "DATA",160.17,3,"FIELD",32,3) L,BLANK "DATA",160.17,3,"FIELD",33,0) 1070^2^1071^Subsite "DATA",160.17,3,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,519,"I") "DATA",160.17,3,"FIELD",33,2) BLANK "DATA",160.17,3,"FIELD",33,3) L,ZERO "DATA",160.17,3,"FIELD",34,0) 1072^1^1072^Additional Type of Grade Coding System "DATA",160.17,3,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,520,"I") "DATA",160.17,3,"FIELD",34,2) NINE "DATA",160.17,3,"FIELD",34,3) L,BLANK "DATA",160.17,3,"FIELD",35,0) 1073^1^1073^Value of Additional Coding System "DATA",160.17,3,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,521,"I") "DATA",160.17,3,"FIELD",35,2) NINE "DATA",160.17,3,"FIELD",35,3) L,BLANK "DATA",160.17,3,"FIELD",36,0) 1074^3^1076^Pretreatment Tumor Size "DATA",160.17,3,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.17,3,"FIELD",36,2) BLANK "DATA",160.17,3,"FIELD",36,3) L,ZERO "DATA",160.17,3,"FIELD",37,0) 1077^1^1077^Depth of Tumor "DATA",160.17,3,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,523,"I") "DATA",160.17,3,"FIELD",37,2) NINE "DATA",160.17,3,"FIELD",37,3) L,BLANK "DATA",160.17,3,"FIELD",38,0) 1078^1^1078^Multifocal "DATA",160.17,3,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,433,"I") "DATA",160.17,3,"FIELD",38,2) NINE "DATA",160.17,3,"FIELD",38,3) L,BLANK "DATA",160.17,3,"FIELD",39,0) 1079^1^1079^Consultation Medical Oncology "DATA",160.17,3,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,524,"I") "DATA",160.17,3,"FIELD",39,2) NINE "DATA",160.17,3,"FIELD",39,3) L,BLANK "DATA",160.17,3,"FIELD",40,0) 1080^1^1080^Consultation Radiation Oncology "DATA",160.17,3,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,525,"I") "DATA",160.17,3,"FIELD",40,2) NINE "DATA",160.17,3,"FIELD",40,3) L,BLANK "DATA",160.17,3,"FIELD",41,0) 1081^1^1081^Treating Surgeon "DATA",160.17,3,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,526,"I") "DATA",160.17,3,"FIELD",41,2) NINE "DATA",160.17,3,"FIELD",41,3) L,BLANK "DATA",160.17,3,"FIELD",42,0) 1082^1^1082^ASA Class "DATA",160.17,3,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,527,"I") "DATA",160.17,3,"FIELD",42,2) NINE "DATA",160.17,3,"FIELD",42,3) L,BLANK "DATA",160.17,3,"FIELD",43,0) 1083^1^1083^Postoperative Death Within 30 Days "DATA",160.17,3,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,3,"FIELD",43,2) NINE "DATA",160.17,3,"FIELD",43,3) L,BLANK "DATA",160.17,3,"FIELD",44,0) 1084^1^1084^Performance "DATA",160.17,3,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,532,"I") "DATA",160.17,3,"FIELD",44,2) NINE "DATA",160.17,3,"FIELD",44,3) L,BLANK "DATA",160.17,3,"FIELD",45,0) 1085^3^1087^Number of Fractions "DATA",160.17,3,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,533,"I") "DATA",160.17,3,"FIELD",45,2) ZERO "DATA",160.17,3,"FIELD",45,3) L,ZERO "DATA",160.17,3,"FIELD",46,0) 1088^5^1092^Dose "DATA",160.17,3,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.17,3,"FIELD",46,2) ZERO "DATA",160.17,3,"FIELD",46,3) L,ZERO "DATA",160.17,3,"FIELD",47,0) 1093^2^1094^Radiation Energy (MV) "DATA",160.17,3,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,534,"I") "DATA",160.17,3,"FIELD",47,2) ZERO "DATA",160.17,3,"FIELD",47,3) L,ZERO "DATA",160.17,3,"FIELD",48,0) 1095^8^1102^Date Started "DATA",160.17,3,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,567,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",48,2) BLANK "DATA",160.17,3,"FIELD",48,3) L,ZERO "DATA",160.17,3,"FIELD",49,0) 1103^8^1110^Date Ended "DATA",160.17,3,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",49,2) BLANK "DATA",160.17,3,"FIELD",49,3) L,ZERO "DATA",160.17,3,"FIELD",50,0) 1111^1^1111^Intraoperative Radiation Performance "DATA",160.17,3,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,535,"I") "DATA",160.17,3,"FIELD",50,2) NINE "DATA",160.17,3,"FIELD",50,3) L,BLANK "DATA",160.17,3,"FIELD",51,0) 1112^5^1116^Intraoperative Radiation Dose "DATA",160.17,3,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,536,"I") "DATA",160.17,3,"FIELD",51,2) ZERO "DATA",160.17,3,"FIELD",51,3) L,ZERO "DATA",160.17,3,"FIELD",52,0) 1117^2^1118^Intraoperative Radiation Radiation Energy (MV) "DATA",160.17,3,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,537,"I") "DATA",160.17,3,"FIELD",52,2) ZERO "DATA",160.17,3,"FIELD",52,3) L,ZERO "DATA",160.17,3,"FIELD",53,0) 1119^1^1119^Brachytherapy Preformance "DATA",160.17,3,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,538,"I") "DATA",160.17,3,"FIELD",53,2) NINE "DATA",160.17,3,"FIELD",53,3) L,BLANK "DATA",160.17,3,"FIELD",54,0) 1120^3^1122^Brachytherapy Number of Days Given "DATA",160.17,3,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,539,"I") "DATA",160.17,3,"FIELD",54,2) ZERO "DATA",160.17,3,"FIELD",54,3) L,ZERO "DATA",160.17,3,"FIELD",55,0) 1123^5^1127^Brachytherapy Dose "DATA",160.17,3,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,540,"I") "DATA",160.17,3,"FIELD",55,2) ZERO "DATA",160.17,3,"FIELD",55,3) L,ZERO "DATA",160.17,3,"FIELD",56,0) 1128^8^1135^Brachytherapy Date Started "DATA",160.17,3,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,541,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",56,2) BLANK "DATA",160.17,3,"FIELD",56,3) L,ZERO "DATA",160.17,3,"FIELD",57,0) 1136^8^1143^Brachytherapy Date Ended "DATA",160.17,3,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,542,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",57,2) BLANK "DATA",160.17,3,"FIELD",57,3) L,ZERO "DATA",160.17,3,"FIELD",58,0) 1144^1^1144^Chemotherapy, A/A Cisplatin "DATA",160.17,3,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.17,3,"FIELD",58,2) NINE "DATA",160.17,3,"FIELD",58,3) L,BLANK "DATA",160.17,3,"FIELD",59,0) 1145^1^1145^Chemotherapy, A/A Cytoxan "DATA",160.17,3,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,543,"I") "DATA",160.17,3,"FIELD",59,2) NINE "DATA",160.17,3,"FIELD",59,3) L,BLANK "DATA",160.17,3,"FIELD",60,0) 1146^1^1146^Chemotherapy, A/A DTIC "DATA",160.17,3,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,544,"I") "DATA",160.17,3,"FIELD",60,2) NINE "DATA",160.17,3,"FIELD",60,3) L,BLANK "DATA",160.17,3,"FIELD",61,0) 1147^1^1147^Chemotherapy, A/A Doxorubicin "DATA",160.17,3,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,545,"I") "DATA",160.17,3,"FIELD",61,2) NINE "DATA",160.17,3,"FIELD",61,3) L,BLANK "DATA",160.17,3,"FIELD",62,0) 1148^1^1148^Chemotherapy, A/A Etoposide "DATA",160.17,3,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,546,"I") "DATA",160.17,3,"FIELD",62,2) NINE "DATA",160.17,3,"FIELD",62,3) L,BLANK "DATA",160.17,3,"FIELD",63,0) 1149^1^1149^Chemotherapy, A/A Ifosfamide "DATA",160.17,3,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.17,3,"FIELD",63,2) NINE "DATA",160.17,3,"FIELD",63,3) L,BLANK "DATA",160.17,3,"FIELD",64,0) 1150^1^1150^Chemotherapy, MD Cisplatin "DATA",160.17,3,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,547,"I") "DATA",160.17,3,"FIELD",64,2) NINE "DATA",160.17,3,"FIELD",64,3) L,BLANK "DATA",160.17,3,"FIELD",65,0) 1151^1^1151^Chemotherapy, MD Cytoxan "DATA",160.17,3,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,548,"I") "DATA",160.17,3,"FIELD",65,2) NINE "DATA",160.17,3,"FIELD",65,3) L,BLANK "DATA",160.17,3,"FIELD",66,0) 1152^1^1152^Chemotherapy, MD DTIC "DATA",160.17,3,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,549,"I") "DATA",160.17,3,"FIELD",66,2) NINE "DATA",160.17,3,"FIELD",66,3) L,BLANK "DATA",160.17,3,"FIELD",67,0) 1153^1^1153^Chemotherapy, MD Doxorubicin "DATA",160.17,3,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,550,"I") "DATA",160.17,3,"FIELD",67,2) NINE "DATA",160.17,3,"FIELD",67,3) L,BLANK "DATA",160.17,3,"FIELD",68,0) 1154^1^1154^Chemotherapy, MD Etoposide "DATA",160.17,3,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,551,"I") "DATA",160.17,3,"FIELD",68,2) NINE "DATA",160.17,3,"FIELD",68,3) L,BLANK "DATA",160.17,3,"FIELD",69,0) 1155^1^1155^Chemotherapy, MD Ifosfamide "DATA",160.17,3,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,552,"I") "DATA",160.17,3,"FIELD",69,2) NINE "DATA",160.17,3,"FIELD",69,3) L,BLANK "DATA",160.17,3,"FIELD",70,0) 1156^1^1156^Chemotherapy, Location Cisplatin "DATA",160.17,3,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,553,"I") "DATA",160.17,3,"FIELD",70,2) NINE "DATA",160.17,3,"FIELD",70,3) L,BLANK "DATA",160.17,3,"FIELD",71,0) 1157^1^1157^Chemotherapy, Location Cytoxan "DATA",160.17,3,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,554,"I") "DATA",160.17,3,"FIELD",71,2) NINE "DATA",160.17,3,"FIELD",71,3) L,BLANK "DATA",160.17,3,"FIELD",72,0) 1158^1^1158^Chemotherapy, Location DTIC "DATA",160.17,3,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,555,"I") "DATA",160.17,3,"FIELD",72,2) NINE "DATA",160.17,3,"FIELD",72,3) L,BLANK "DATA",160.17,3,"FIELD",73,0) 1159^1^1159^Chemotherapy, Location Doxorubicin "DATA",160.17,3,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,556,"I") "DATA",160.17,3,"FIELD",73,2) NINE "DATA",160.17,3,"FIELD",73,3) L,BLANK "DATA",160.17,3,"FIELD",74,0) 1160^1^1160^Chemotherapy, Location Etoposide "DATA",160.17,3,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,557,"I") "DATA",160.17,3,"FIELD",74,2) NINE "DATA",160.17,3,"FIELD",74,3) L,BLANK "DATA",160.17,3,"FIELD",75,0) 1161^1^1161^Chemotherapy, Location Ifosfamide "DATA",160.17,3,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,558,"I") "DATA",160.17,3,"FIELD",75,2) NINE "DATA",160.17,3,"FIELD",75,3) L,BLANK "DATA",160.17,3,"FIELD",76,0) 1162^1^1162^Colony Stimulating Factors "DATA",160.17,3,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,559,"I") "DATA",160.17,3,"FIELD",76,2) NINE "DATA",160.17,3,"FIELD",76,3) L,BLANK "DATA",160.17,3,"FIELD",77,0) 1163^1^1163^Other Protocol "DATA",160.17,3,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,561,"I") "DATA",160.17,3,"FIELD",77,2) NINE "DATA",160.17,3,"FIELD",77,3) L,BLANK "DATA",160.17,3,"FIELD",78,0) 1164^1^1164^Referred to Rehabilitation Service "DATA",160.17,3,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,562,"I") "DATA",160.17,3,"FIELD",78,2) NINE "DATA",160.17,3,"FIELD",78,3) L,BLANK "DATA",160.17,3,"FIELD",79,0) 1165^1^1165^Consultation with Physical Therapy/Rehabilitation "DATA",160.17,3,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,563,"I") "DATA",160.17,3,"FIELD",79,2) NINE "DATA",160.17,3,"FIELD",79,3) L,BLANK "DATA",160.17,3,"FIELD",80,0) 1166^1^1166^Transferred to Rehabilitation Facility "DATA",160.17,3,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,564,"I") "DATA",160.17,3,"FIELD",80,2) NINE "DATA",160.17,3,"FIELD",80,3) L,BLANK "DATA",160.17,3,"FIELD",81,0) 1167^2^1168^# of Hospitalizations Within 6 Months of Diagnosis "DATA",160.17,3,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,565,"I") "DATA",160.17,3,"FIELD",81,2) NINE "DATA",160.17,3,"FIELD",81,3) L,ZERO "DATA",160.17,3,"FIELD",82,0) 1169^3^1171^Total Length of Stays "DATA",160.17,3,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,566,"I") "DATA",160.17,3,"FIELD",82,2) NINE "DATA",160.17,3,"FIELD",82,3) L,ZERO "DATA",160.17,3,"FIELD",83,0) 1172^2^1173^Completed By "DATA",160.17,3,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,3,"FIELD",83,2) BLANK "DATA",160.17,3,"FIELD",83,3) L,BLANK "DATA",160.17,3,"FIELD",84,0) 1174^2^1175^Reviewed By Cancer Committee "DATA",160.17,3,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,3,"FIELD",84,2) BLANK "DATA",160.17,3,"FIELD",84,3) L,BLANK "DATA",160.17,3,"FIELD",85,0) 1176^350^1525^Reserved "DATA",160.17,3,"FIELD",85,1) S ACDANS="" "DATA",160.17,3,"FIELD",85,2) BLANK "DATA",160.17,3,"FIELD",85,3) L,BLANK "DATA",160.17,4,0) COLORECTAL "DATA",160.17,4,"FIELD",0) ^160.171I^113^113 "DATA",160.17,4,"FIELD",1,0) 1026^1^1026^Family History of Colorectal Cancer "DATA",160.17,4,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,700,"I") "DATA",160.17,4,"FIELD",1,2) NINE "DATA",160.17,4,"FIELD",1,3) L,BLANK "DATA",160.17,4,"FIELD",2,0) 1027^1^1027^Personal History of Colorectal Cancer "DATA",160.17,4,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,701,"I") "DATA",160.17,4,"FIELD",2,2) NINE "DATA",160.17,4,"FIELD",2,3) L,BLANK "DATA",160.17,4,"FIELD",3,0) 1028^1^1028^Multi Prim within Col/Rect Assession in 1997 "DATA",160.17,4,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,702,"I") "DATA",160.17,4,"FIELD",3,2) NINE "DATA",160.17,4,"FIELD",3,3) L,BLANK "DATA",160.17,4,"FIELD",4,0) 1029^1^1029^PH Breast "DATA",160.17,4,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,703,"I") "DATA",160.17,4,"FIELD",4,2) NINE "DATA",160.17,4,"FIELD",4,3) L,BLANK "DATA",160.17,4,"FIELD",5,0) 1030^1^1030^PH Cervix "DATA",160.17,4,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.17,4,"FIELD",5,2) NINE "DATA",160.17,4,"FIELD",5,3) L,BLANK "DATA",160.17,4,"FIELD",6,0) 1031^1^1031^PH Lung "DATA",160.17,4,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,704,"I") "DATA",160.17,4,"FIELD",6,2) NINE "DATA",160.17,4,"FIELD",6,3) L,BLANK "DATA",160.17,4,"FIELD",7,0) 1032^1^1032^PH Ovary "DATA",160.17,4,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,705,"I") "DATA",160.17,4,"FIELD",7,2) NINE "DATA",160.17,4,"FIELD",7,3) L,BLANK "DATA",160.17,4,"FIELD",8,0) 1033^1^1033^PH Ovarian carcinoma, peritoneal site "DATA",160.17,4,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,706,"I") "DATA",160.17,4,"FIELD",8,2) NINE "DATA",160.17,4,"FIELD",8,3) L,BLANK "DATA",160.17,4,"FIELD",9,0) 1034^1^1034^PH Prostate "DATA",160.17,4,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.17,4,"FIELD",9,2) NINE "DATA",160.17,4,"FIELD",9,3) L,BLANK "DATA",160.17,4,"FIELD",10,0) 1035^1^1035^PH Stomach "DATA",160.17,4,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,707,"I") "DATA",160.17,4,"FIELD",10,2) NINE "DATA",160.17,4,"FIELD",10,3) L,BLANK "DATA",160.17,4,"FIELD",11,0) 1036^1^1036^PH Thyroid "DATA",160.17,4,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,708,"I") "DATA",160.17,4,"FIELD",11,2) NINE "DATA",160.17,4,"FIELD",11,3) L,BLANK "DATA",160.17,4,"FIELD",12,0) 1037^1^1037^PH Uterus "DATA",160.17,4,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,709,"I") "DATA",160.17,4,"FIELD",12,2) NINE "DATA",160.17,4,"FIELD",12,3) L,BLANK "DATA",160.17,4,"FIELD",13,0) 1038^1^1038^PH Other "DATA",160.17,4,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,4,"FIELD",13,2) NINE "DATA",160.17,4,"FIELD",13,3) L,BLANK "DATA",160.17,4,"FIELD",14,0) 1039^1^1039^Previous TAH/BSO "DATA",160.17,4,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,710,"I") "DATA",160.17,4,"FIELD",14,2) NINE "DATA",160.17,4,"FIELD",14,3) L,BLANK "DATA",160.17,4,"FIELD",15,0) 1040^1^1040^Other Prior Cond. FAP "DATA",160.17,4,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,711,"I") "DATA",160.17,4,"FIELD",15,2) NINE "DATA",160.17,4,"FIELD",15,3) L,BLANK "DATA",160.17,4,"FIELD",16,0) 1041^1^1041^Other Prior Cond. HNPCC "DATA",160.17,4,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,712,"I") "DATA",160.17,4,"FIELD",16,2) NINE "DATA",160.17,4,"FIELD",16,3) L,BLANK "DATA",160.17,4,"FIELD",17,0) 1042^1^1042^Other Prior Cond. IBD "DATA",160.17,4,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,713,"I") "DATA",160.17,4,"FIELD",17,2) NINE "DATA",160.17,4,"FIELD",17,3) L,BLANK "DATA",160.17,4,"FIELD",18,0) 1043^1^1043^Other Prior Cond. Polyps "DATA",160.17,4,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,714,"I") "DATA",160.17,4,"FIELD",18,2) NINE "DATA",160.17,4,"FIELD",18,3) L,BLANK "DATA",160.17,4,"FIELD",19,0) 1044^2^1045^Polyps "DATA",160.17,4,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,715,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",19,2) NINE "DATA",160.17,4,"FIELD",19,3) L,ZERO "DATA",160.17,4,"FIELD",20,0) 1046^2^1047^Duration of Signs/Symp Anemia "DATA",160.17,4,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,716,"I") "DATA",160.17,4,"FIELD",20,2) NINE "DATA",160.17,4,"FIELD",20,3) L,ZERO "DATA",160.17,4,"FIELD",21,0) 1048^2^1049^Duration of Signs/Symp Bowel obstruction "DATA",160.17,4,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,717,"I") "DATA",160.17,4,"FIELD",21,2) NINE "DATA",160.17,4,"FIELD",21,3) L,ZERO "DATA",160.17,4,"FIELD",22,0) 1050^2^1051^Duration of Signs/Symp Change in bowel habit "DATA",160.17,4,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,718,"I") "DATA",160.17,4,"FIELD",22,2) NINE "DATA",160.17,4,"FIELD",22,3) L,ZERO "DATA",160.17,4,"FIELD",23,0) 1052^2^1053^Duration of Signs/Symp Emergency Pres-Obs "DATA",160.17,4,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,719,"I") "DATA",160.17,4,"FIELD",23,2) NINE "DATA",160.17,4,"FIELD",23,3) L,ZERO "DATA",160.17,4,"FIELD",24,0) 1054^2^1055^Duration of Signs/Symp Jaundice "DATA",160.17,4,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,720,"I") "DATA",160.17,4,"FIELD",24,2) NINE "DATA",160.17,4,"FIELD",24,3) L,ZERO "DATA",160.17,4,"FIELD",25,0) 1056^2^1057^Duration of Signs/Symp Malaise "DATA",160.17,4,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,721,"I") "DATA",160.17,4,"FIELD",25,2) NINE "DATA",160.17,4,"FIELD",25,3) L,ZERO "DATA",160.17,4,"FIELD",26,0) 1058^2^1059^Duration of Signs/Symp Occult Blood only in stool "DATA",160.17,4,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,722,"I") "DATA",160.17,4,"FIELD",26,2) NINE "DATA",160.17,4,"FIELD",26,3) L,ZERO "DATA",160.17,4,"FIELD",27,0) 1060^2^1061^Duration of Signs/Symp Pain (abdominal) "DATA",160.17,4,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,723,"I") "DATA",160.17,4,"FIELD",27,2) NINE "DATA",160.17,4,"FIELD",27,3) L,ZERO "DATA",160.17,4,"FIELD",28,0) 1062^2^1063^Duration of Signs/Symp Pain (pelvic) "DATA",160.17,4,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,724,"I") "DATA",160.17,4,"FIELD",28,2) NINE "DATA",160.17,4,"FIELD",28,3) L,ZERO "DATA",160.17,4,"FIELD",29,0) 1064^2^1065^Duration of Signs/Symp Rectal Bleeding (melana) "DATA",160.17,4,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,725,"I") "DATA",160.17,4,"FIELD",29,2) NINE "DATA",160.17,4,"FIELD",29,3) L,ZERO "DATA",160.17,4,"FIELD",30,0) 1066^2^1067^Duration of Signs/Symp Other "DATA",160.17,4,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,726,"I") "DATA",160.17,4,"FIELD",30,2) NINE "DATA",160.17,4,"FIELD",30,3) L,ZERO "DATA",160.17,4,"FIELD",31,0) 1068^1^1068^Inital Methods of Diag Endoscopic "DATA",160.17,4,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,727,"I") "DATA",160.17,4,"FIELD",31,2) NINE "DATA",160.17,4,"FIELD",31,3) L,BLANK "DATA",160.17,4,"FIELD",32,0) 1069^1^1069^Inital Methods of Diag Radiographic "DATA",160.17,4,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,728,"I") "DATA",160.17,4,"FIELD",32,2) NINE "DATA",160.17,4,"FIELD",32,3) L,BLANK "DATA",160.17,4,"FIELD",33,0) 1070^1^1070^Inital Methods of Diag Screening Digital Rectal Exam "DATA",160.17,4,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,729,"I") "DATA",160.17,4,"FIELD",33,2) NINE "DATA",160.17,4,"FIELD",33,3) L,BLANK "DATA",160.17,4,"FIELD",34,0) 1071^1^1071^Inital Methods of Diag Screening Physical Exam "DATA",160.17,4,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,730,"I") "DATA",160.17,4,"FIELD",34,2) NINE "DATA",160.17,4,"FIELD",34,3) L,BLANK "DATA",160.17,4,"FIELD",35,0) 1072^1^1072^Inital Methods of Diag Other "DATA",160.17,4,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,731,"I") "DATA",160.17,4,"FIELD",35,2) NINE "DATA",160.17,4,"FIELD",35,3) L,BLANK "DATA",160.17,4,"FIELD",36,0) 1073^1^1073^Precipitation Reason WHich Led to Eventual Diagnosis "DATA",160.17,4,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,732,"I") "DATA",160.17,4,"FIELD",36,2) NINE "DATA",160.17,4,"FIELD",36,3) L,BLANK "DATA",160.17,4,"FIELD",37,0) 1074^1^1074^Diag Eval Barium Enema, Double Contrast "DATA",160.17,4,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,733,"I") "DATA",160.17,4,"FIELD",37,2) NINE "DATA",160.17,4,"FIELD",37,3) L,BLANK "DATA",160.17,4,"FIELD",38,0) 1075^1^1075^Diag Eval Barium Enema, Single Contrast "DATA",160.17,4,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,734,"I") "DATA",160.17,4,"FIELD",38,2) NINE "DATA",160.17,4,"FIELD",38,3) L,BLANK "DATA",160.17,4,"FIELD",39,0) 1076^1^1076^Diag Eval Barium Enema, NOS "DATA",160.17,4,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,735,"I") "DATA",160.17,4,"FIELD",39,2) NINE "DATA",160.17,4,"FIELD",39,3) L,BLANK "DATA",160.17,4,"FIELD",40,0) 1077^1^1077^Diag Eval Biopsy of primary site "DATA",160.17,4,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,736,"I") "DATA",160.17,4,"FIELD",40,2) NINE "DATA",160.17,4,"FIELD",40,3) L,BLANK "DATA",160.17,4,"FIELD",41,0) 1078^1^1078^Diag Eval Biopsy of metastatic site "DATA",160.17,4,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,737,"I") "DATA",160.17,4,"FIELD",41,2) NINE "DATA",160.17,4,"FIELD",41,3) L,BLANK "DATA",160.17,4,"FIELD",42,0) 1079^1^1079^Diag Eval CT scan of chest "DATA",160.17,4,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,421,"I") "DATA",160.17,4,"FIELD",42,2) NINE "DATA",160.17,4,"FIELD",42,3) L,BLANK "DATA",160.17,4,"FIELD",43,0) 1080^1^1080^Diag Eval CT scan of liver "DATA",160.17,4,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,738,"I") "DATA",160.17,4,"FIELD",43,2) NINE "DATA",160.17,4,"FIELD",43,3) L,BLANK "DATA",160.17,4,"FIELD",44,0) 1081^1^1081^Diag Eval CT scan of primary site "DATA",160.17,4,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,739,"I") "DATA",160.17,4,"FIELD",44,2) NINE "DATA",160.17,4,"FIELD",44,3) L,BLANK "DATA",160.17,4,"FIELD",45,0) 1082^1^1082^Diag Eval CEA (preoperative) "DATA",160.17,4,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,740,"I") "DATA",160.17,4,"FIELD",45,2) NINE "DATA",160.17,4,"FIELD",45,3) L,BLANK "DATA",160.17,4,"FIELD",46,0) 1083^1^1083^Diag Eval Chest roentgenogram "DATA",160.17,4,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,741,"I") "DATA",160.17,4,"FIELD",46,2) NINE "DATA",160.17,4,"FIELD",46,3) L,BLANK "DATA",160.17,4,"FIELD",47,0) 1084^1^1084^Diag Eval Colonoscopy "DATA",160.17,4,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,742,"I") "DATA",160.17,4,"FIELD",47,2) NINE "DATA",160.17,4,"FIELD",47,3) L,BLANK "DATA",160.17,4,"FIELD",48,0) 1085^1^1085^Diag Eval Digital Rectal Exam "DATA",160.17,4,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,743,"I") "DATA",160.17,4,"FIELD",48,2) NINE "DATA",160.17,4,"FIELD",48,3) L,BLANK "DATA",160.17,4,"FIELD",49,0) 1086^1^1086^Diag Eval Flexible Sigmoidoscopy "DATA",160.17,4,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,744,"I") "DATA",160.17,4,"FIELD",49,2) NINE "DATA",160.17,4,"FIELD",49,3) L,BLANK "DATA",160.17,4,"FIELD",50,0) 1087^1^1087^Diag Eval Intravenous pyelogram (IVP) "DATA",160.17,4,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,745,"I") "DATA",160.17,4,"FIELD",50,2) NINE "DATA",160.17,4,"FIELD",50,3) L,BLANK "DATA",160.17,4,"FIELD",51,0) 1088^1^1088^Diag Eval Serum-Liver function test "DATA",160.17,4,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,746,"I") "DATA",160.17,4,"FIELD",51,2) NINE "DATA",160.17,4,"FIELD",51,3) L,BLANK "DATA",160.17,4,"FIELD",52,0) 1089^1^1089^Diag Eval MRI "DATA",160.17,4,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,747,"I") "DATA",160.17,4,"FIELD",52,2) NINE "DATA",160.17,4,"FIELD",52,3) L,BLANK "DATA",160.17,4,"FIELD",53,0) 1090^1^1090^Diag Eval Proctoscopy "DATA",160.17,4,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,748,"I") "DATA",160.17,4,"FIELD",53,2) NINE "DATA",160.17,4,"FIELD",53,3) L,BLANK "DATA",160.17,4,"FIELD",54,0) 1091^1^1091^Diag Eval Stool Guaiac(Occult Blood) "DATA",160.17,4,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,749,"I") "DATA",160.17,4,"FIELD",54,2) NINE "DATA",160.17,4,"FIELD",54,3) L,BLANK "DATA",160.17,4,"FIELD",55,0) 1092^1^1092^Diag Eval Ultrasound, Liver, Abdomen "DATA",160.17,4,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,750,"I") "DATA",160.17,4,"FIELD",55,2) NINE "DATA",160.17,4,"FIELD",55,3) L,BLANK "DATA",160.17,4,"FIELD",56,0) 1093^1^1093^Diag Eval Ultrasound, Endorectal "DATA",160.17,4,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,751,"I") "DATA",160.17,4,"FIELD",56,2) NINE "DATA",160.17,4,"FIELD",56,3) L,BLANK "DATA",160.17,4,"FIELD",57,0) 1094^1^1094^Diag Eval Other "DATA",160.17,4,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,430,"I") "DATA",160.17,4,"FIELD",57,2) NINE "DATA",160.17,4,"FIELD",57,3) L,BLANK "DATA",160.17,4,"FIELD",58,0) 1095^2^1096^Level of Tumor from Anal Verge bu Endoscopic Exam "DATA",160.17,4,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,752,"I") "DATA",160.17,4,"FIELD",58,2) NINE "DATA",160.17,4,"FIELD",58,3) L,ZERO "DATA",160.17,4,"FIELD",59,0) 1097^1^1097^Level of Rectal Tumor "DATA",160.17,4,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,753,"I") "DATA",160.17,4,"FIELD",59,2) NINE "DATA",160.17,4,"FIELD",59,3) L,BLANK "DATA",160.17,4,"FIELD",60,0) 1098^1^1098^Margin of Resection Proximal "DATA",160.17,4,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,754,"I") "DATA",160.17,4,"FIELD",60,2) NINE "DATA",160.17,4,"FIELD",60,3) L,BLANK "DATA",160.17,4,"FIELD",61,0) 1099^1^1099^Margin of Resection Distal "DATA",160.17,4,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,755,"I") "DATA",160.17,4,"FIELD",61,2) NINE "DATA",160.17,4,"FIELD",61,3) L,BLANK "DATA",160.17,4,"FIELD",62,0) 1100^1^1100^Margin of Resection Radial "DATA",160.17,4,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,756,"I") "DATA",160.17,4,"FIELD",62,2) NINE "DATA",160.17,4,"FIELD",62,3) L,BLANK "DATA",160.17,4,"FIELD",63,0) 1101^2^1102^Distance in mm to Closest Mucosal Margin "DATA",160.17,4,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,757,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",63,2) NINE "DATA",160.17,4,"FIELD",63,3) L,ZERO "DATA",160.17,4,"FIELD",64,0) 1103^2^1104^Distance in mm to Closest Radial Margin "DATA",160.17,4,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,758,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",64,2) NINE "DATA",160.17,4,"FIELD",64,3) L,ZERO "DATA",160.17,4,"FIELD",65,0) 1105^1^1105^Blood Vessel of Lymphatic Invasion "DATA",160.17,4,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,759,"I") "DATA",160.17,4,"FIELD",65,2) NINE "DATA",160.17,4,"FIELD",65,3) L,BLANK "DATA",160.17,4,"FIELD",66,0) 1106^1^1106^Extramural Venous Invasion "DATA",160.17,4,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,760,"I") "DATA",160.17,4,"FIELD",66,2) NINE "DATA",160.17,4,"FIELD",66,3) L,BLANK "DATA",160.17,4,"FIELD",67,0) 1107^1^1107^Prominent Lymphoid Infiltrate "DATA",160.17,4,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,761,"I") "DATA",160.17,4,"FIELD",67,2) NINE "DATA",160.17,4,"FIELD",67,3) L,BLANK "DATA",160.17,4,"FIELD",68,0) 1108^1^1108^Physician Providing Definitive Treatment "DATA",160.17,4,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,762,"I") "DATA",160.17,4,"FIELD",68,2) NINE "DATA",160.17,4,"FIELD",68,3) L,BLANK "DATA",160.17,4,"FIELD",69,0) 1109^2^1110^Mod/Add Surg Proc. for Primary Rec. "DATA",160.17,4,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,763,"I") "DATA",160.17,4,"FIELD",69,2) NINE "DATA",160.17,4,"FIELD",69,3) R,ZERO "DATA",160.17,4,"FIELD",70,0) 1111^1^1111^Laparoscopy Used During CA-Directed Surgery "DATA",160.17,4,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,764,"I") "DATA",160.17,4,"FIELD",70,2) NINE "DATA",160.17,4,"FIELD",70,3) L,BLANK "DATA",160.17,4,"FIELD",71,0) 1112^1^1112^Method of Anastomosis "DATA",160.17,4,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,765,"I") "DATA",160.17,4,"FIELD",71,2) NINE "DATA",160.17,4,"FIELD",71,3) L,BLANK "DATA",160.17,4,"FIELD",72,0) 1113^3^1115^Distance of Anastomosis from Dentate "DATA",160.17,4,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,766,"I") "DATA",160.17,4,"FIELD",72,2) NINE "DATA",160.17,4,"FIELD",72,3) L,ZERO "DATA",160.17,4,"FIELD",73,0) 1116^1^1116^Other Surgery Colostomy "DATA",160.17,4,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,767,"I") "DATA",160.17,4,"FIELD",73,2) NINE "DATA",160.17,4,"FIELD",73,3) L,BLANK "DATA",160.17,4,"FIELD",74,0) 1117^1^1117^Other Surgery Oophorectomy "DATA",160.17,4,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,768,"I") "DATA",160.17,4,"FIELD",74,2) NINE "DATA",160.17,4,"FIELD",74,3) L,BLANK "DATA",160.17,4,"FIELD",75,0) 1118^1^1118^Pathology Status "DATA",160.17,4,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,769,"I") "DATA",160.17,4,"FIELD",75,2) NINE "DATA",160.17,4,"FIELD",75,3) L,BLANK "DATA",160.17,4,"FIELD",76,0) 1119^1^1119^Complications after 1st RX Abdominal infection "DATA",160.17,4,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,770,"I") "DATA",160.17,4,"FIELD",76,2) NINE "DATA",160.17,4,"FIELD",76,3) L,BLANK "DATA",160.17,4,"FIELD",77,0) 1120^1^1120^Complications after 1st RX Abscess "DATA",160.17,4,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,771,"I") "DATA",160.17,4,"FIELD",77,2) NINE "DATA",160.17,4,"FIELD",77,3) L,BLANK "DATA",160.17,4,"FIELD",78,0) 1121^1^1121^Complications after 1st RX Admission for Neutronenia "DATA",160.17,4,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,772,"I") "DATA",160.17,4,"FIELD",78,2) NINE "DATA",160.17,4,"FIELD",78,3) L,BLANK "DATA",160.17,4,"FIELD",79,0) 1122^1^1122^Complications after 1st RX Anastomotic Dehiscence "DATA",160.17,4,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,773,"I") "DATA",160.17,4,"FIELD",79,2) NINE "DATA",160.17,4,"FIELD",79,3) L,BLANK "DATA",160.17,4,"FIELD",80,0) 1123^1^1123^Complications after 1st RX Bleeding/hematoma "DATA",160.17,4,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,437,"I") "DATA",160.17,4,"FIELD",80,2) NINE "DATA",160.17,4,"FIELD",80,3) L,BLANK "DATA",160.17,4,"FIELD",81,0) 1124^1^1124^Complications after 1st RX Dehvdration "DATA",160.17,4,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,774,"I") "DATA",160.17,4,"FIELD",81,2) NINE "DATA",160.17,4,"FIELD",81,3) L,BLANK "DATA",160.17,4,"FIELD",82,0) 1125^1^1125^Complications after 1st RX Diarrhea "DATA",160.17,4,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,775,"I") "DATA",160.17,4,"FIELD",82,2) NINE "DATA",160.17,4,"FIELD",82,3) L,BLANK "DATA",160.17,4,"FIELD",83,0) 1126^1^1126^Complications after 1st RX Early bowel obstruction "DATA",160.17,4,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,776,"I") "DATA",160.17,4,"FIELD",83,2) NINE "DATA",160.17,4,"FIELD",83,3) L,BLANK "DATA",160.17,4,"FIELD",84,0) 1127^1^1127^Complications after 1st RX Perineal infection "DATA",160.17,4,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,777,"I") "DATA",160.17,4,"FIELD",84,2) NINE "DATA",160.17,4,"FIELD",84,3) L,BLANK "DATA",160.17,4,"FIELD",85,0) 1128^1^1128^Complications after 1st RX Pneumonia "DATA",160.17,4,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,778,"I") "DATA",160.17,4,"FIELD",85,2) NINE "DATA",160.17,4,"FIELD",85,3) L,BLANK "DATA",160.17,4,"FIELD",86,0) 1129^1^1129^Complications after 1st RX Proctits "DATA",160.17,4,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,779,"I") "DATA",160.17,4,"FIELD",86,2) NINE "DATA",160.17,4,"FIELD",86,3) L,BLANK "DATA",160.17,4,"FIELD",87,0) 1130^1^1130^Complications after 1st RX Pulmonary embolism "DATA",160.17,4,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,780,"I") "DATA",160.17,4,"FIELD",87,2) NINE "DATA",160.17,4,"FIELD",87,3) L,BLANK "DATA",160.17,4,"FIELD",88,0) 1131^1^1131^Complications after 1st RX Radiation enteritis "DATA",160.17,4,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,781,"I") "DATA",160.17,4,"FIELD",88,2) NINE "DATA",160.17,4,"FIELD",88,3) L,BLANK "DATA",160.17,4,"FIELD",89,0) 1132^1^1132^Complications after 1st RX Stoma complication "DATA",160.17,4,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,782,"I") "DATA",160.17,4,"FIELD",89,2) NINE "DATA",160.17,4,"FIELD",89,3) L,BLANK "DATA",160.17,4,"FIELD",90,0) 1133^1^1133^Complications after 1st RX Urinary tract infection "DATA",160.17,4,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,783,"I") "DATA",160.17,4,"FIELD",90,2) NINE "DATA",160.17,4,"FIELD",90,3) L,BLANK "DATA",160.17,4,"FIELD",91,0) 1134^1^1134^Postoperative Death within 30 Days "DATA",160.17,4,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,4,"FIELD",91,2) NINE "DATA",160.17,4,"FIELD",91,3) L,BLANK "DATA",160.17,4,"FIELD",92,0) 1135^8^1142^Date Radiation Ended "DATA",160.17,4,"FIELD",92,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.17,4,"FIELD",92,2) NINE "DATA",160.17,4,"FIELD",92,3) L,BLANK "DATA",160.17,4,"FIELD",93,0) 1143^1^1143^Endocavitary Radiation(ECRT) "DATA",160.17,4,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,784,"I") "DATA",160.17,4,"FIELD",93,2) NINE "DATA",160.17,4,"FIELD",93,3) L,BLANK "DATA",160.17,4,"FIELD",94,0) 1144^1^1144^Intra-Operative Radiation Therapy (IORT) "DATA",160.17,4,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,785,"I") "DATA",160.17,4,"FIELD",94,2) NINE "DATA",160.17,4,"FIELD",94,3) L,BLANK "DATA",160.17,4,"FIELD",95,0) 1145^5^1149^Primary Tumor Rad Dose (cGy) "DATA",160.17,4,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,786,"I") "DATA",160.17,4,"FIELD",95,2) NINE "DATA",160.17,4,"FIELD",95,3) L,ZERO "DATA",160.17,4,"FIELD",96,0) 1150^2^1151^Number of Radiation RX "DATA",160.17,4,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,787,"I") "DATA",160.17,4,"FIELD",96,2) NINE "DATA",160.17,4,"FIELD",96,3) L,ZERO "DATA",160.17,4,"FIELD",97,0) 1152^1^1152^Adjuvant Chemo. with Conco. External Beam Radiation "DATA",160.17,4,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,788,"I") "DATA",160.17,4,"FIELD",97,2) NINE "DATA",160.17,4,"FIELD",97,3) L,BLANK "DATA",160.17,4,"FIELD",98,0) 1153^1^1153^Adjuvant Therapy 5 FU "DATA",160.17,4,"FIELD",98,1) S ACDANS=$$GET1~DIQ(165.5,IEN,789,"I") "DATA",160.17,4,"FIELD",98,2) NINE "DATA",160.17,4,"FIELD",98,3) L,BLANK "DATA",160.17,4,"FIELD",99,0) 1154^1^1154^Adjuvant Therapy Leucovorin "DATA",160.17,4,"FIELD",99,1) S ACDANS=$$GET1~DIQ(165.5,IEN,790,"I") "DATA",160.17,4,"FIELD",99,2) NINE "DATA",160.17,4,"FIELD",99,3) L,BLANK "DATA",160.17,4,"FIELD",100,0) 1155^1^1155^Adjuvant Therapy Levamisole "DATA",160.17,4,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,791,"I") "DATA",160.17,4,"FIELD",100,2) NINE "DATA",160.17,4,"FIELD",100,3) L,BLANK "DATA",160.17,4,"FIELD",101,0) 1156^1^1156^Adjuvant Therapy CPT 11 "DATA",160.17,4,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,792,"I") "DATA",160.17,4,"FIELD",101,2) NINE "DATA",160.17,4,"FIELD",101,3) L,BLANK "DATA",160.17,4,"FIELD",102,0) 1157^1^1157^Adjuvant Therapy Taxol "DATA",160.17,4,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.17,4,"FIELD",102,2) NINE "DATA",160.17,4,"FIELD",102,3) L,BLANK "DATA",160.17,4,"FIELD",103,0) 1158^1^1158^Adjuvant Therapy Other "DATA",160.17,4,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,793,"I") "DATA",160.17,4,"FIELD",103,2) NINE "DATA",160.17,4,"FIELD",103,3) L,BLANK "DATA",160.17,4,"FIELD",104,0) 1159^1^1159^Duration of Adjuvant Therapy "DATA",160.17,4,"FIELD",104,1) S ACDANS=$$GET1~DIQ(165.5,IEN,794,"I") "DATA",160.17,4,"FIELD",104,2) NINE "DATA",160.17,4,"FIELD",104,3) L,BLANK "DATA",160.17,4,"FIELD",105,0) 1160^1^1160^Completed Duration of Therapy "DATA",160.17,4,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,795,"I") "DATA",160.17,4,"FIELD",105,2) NINE "DATA",160.17,4,"FIELD",105,3) L,BLANK "DATA",160.17,4,"FIELD",106,0) 1161^1^1161^Were Other Referrals Made Nutritional Consultation "DATA",160.17,4,"FIELD",106,1) S ACDANS=$$GET1~DIQ(165.5,IEN,796,"I") "DATA",160.17,4,"FIELD",106,2) NINE "DATA",160.17,4,"FIELD",106,3) L,BLANK "DATA",160.17,4,"FIELD",107,0) 1162^1^1162^Were Other Referrals Made Occupational therapy "DATA",160.17,4,"FIELD",107,1) S ACDANS=$$GET1~DIQ(165.5,IEN,797,"I") "DATA",160.17,4,"FIELD",107,2) NINE "DATA",160.17,4,"FIELD",107,3) L,BLANK "DATA",160.17,4,"FIELD",108,0) 1163^1^1163^Were Other Referrals Made Physical therapy "DATA",160.17,4,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,563,"I") "DATA",160.17,4,"FIELD",108,2) NINE "DATA",160.17,4,"FIELD",108,3) L,BLANK "DATA",160.17,4,"FIELD",109,0) 1164^1^1164^Were Other Referrals Made Ostomy consultation "DATA",160.17,4,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,798,"I") "DATA",160.17,4,"FIELD",109,2) NINE "DATA",160.17,4,"FIELD",109,3) L,BLANK "DATA",160.17,4,"FIELD",110,0) 1165^1^1165^Were Other Referrals Made Psychosocial "DATA",160.17,4,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,799,"I") "DATA",160.17,4,"FIELD",110,2) NINE "DATA",160.17,4,"FIELD",110,3) L,BLANK "DATA",160.17,4,"FIELD",111,0) 1166^2^1167^PB Completed By "DATA",160.17,4,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,4,"FIELD",111,2) BLANK "DATA",160.17,4,"FIELD",111,3) L,BLANK "DATA",160.17,4,"FIELD",112,0) 1168^2^1169^PB Reviewed by Cancer Committee "DATA",160.17,4,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,4,"FIELD",112,2) BLANK "DATA",160.17,4,"FIELD",112,3) L,BLANK "DATA",160.17,4,"FIELD",113,0) 1170^356^1525^Reserved "DATA",160.17,4,"FIELD",113,1) S ACDANS="" "DATA",160.17,4,"FIELD",113,2) BLANK "DATA",160.17,4,"FIELD",113,3) L,BLANK "DATA",160.17,5,0) NON-HODGKIN'S LYMPHOMA "DATA",160.17,5,"FIELD",0) ^160.171I^92^92 "DATA",160.17,5,"FIELD",1,0) 1026^1^1026^Family History of Leukemia "DATA",160.17,5,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,800,"I") "DATA",160.17,5,"FIELD",1,2) NINE "DATA",160.17,5,"FIELD",1,3) L,BLANK "DATA",160.17,5,"FIELD",2,0) 1027^1^1027^Family History of Non-Hodgkin's Lymphoma "DATA",160.17,5,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,801,"I") "DATA",160.17,5,"FIELD",2,2) NINE "DATA",160.17,5,"FIELD",2,3) L,BLANK "DATA",160.17,5,"FIELD",3,0) 1028^1^1028^Family History of Hodgkin's Lymphoma "DATA",160.17,5,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,802,"I") "DATA",160.17,5,"FIELD",3,2) NINE "DATA",160.17,5,"FIELD",3,3) L,BLANK "DATA",160.17,5,"FIELD",4,0) 1029^1^1029^Family History of Other Cancer "DATA",160.17,5,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.17,5,"FIELD",4,2) NINE "DATA",160.17,5,"FIELD",4,3) L,BLANK "DATA",160.17,5,"FIELD",5,0) 1030^3^1032^PH 1st primary site "DATA",160.17,5,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,803,"I") S:ACDANS'="" ACDANS=$E(ACDANS,3,5) "DATA",160.17,5,"FIELD",5,2) NINE "DATA",160.17,5,"FIELD",5,3) L,ZERO "DATA",160.17,5,"FIELD",6,0) 1033^5^1037^PH 1st primary histology "DATA",160.17,5,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,804,"I") "DATA",160.17,5,"FIELD",6,2) NINE "DATA",160.17,5,"FIELD",6,3) L,ZERO "DATA",160.17,5,"FIELD",7,0) 1038^3^1040^PH 2nd primary site "DATA",160.17,5,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,805,"I") S:ACDANS'="" ACDANS=$E(ACDANS,3,5) "DATA",160.17,5,"FIELD",7,2) NINE "DATA",160.17,5,"FIELD",7,3) L,ZERO "DATA",160.17,5,"FIELD",8,0) 1041^5^1045^PH 2nd primary Histology "DATA",160.17,5,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,806,"I") "DATA",160.17,5,"FIELD",8,2) NINE "DATA",160.17,5,"FIELD",8,3) L,ZERO "DATA",160.17,5,"FIELD",9,0) 1046^1^1046^Pre-Existing Conditions Organ transplant "DATA",160.17,5,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,807,"I") "DATA",160.17,5,"FIELD",9,2) NINE "DATA",160.17,5,"FIELD",9,3) L,BLANK "DATA",160.17,5,"FIELD",10,0) 1047^1^1047^Pre-Existing Conditions HIV positive "DATA",160.17,5,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,808,"I") "DATA",160.17,5,"FIELD",10,2) NINE "DATA",160.17,5,"FIELD",10,3) L,BLANK "DATA",160.17,5,"FIELD",11,0) 1048^1^1048^Pre-Existing Conditions Crohn's disease "DATA",160.17,5,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,809,"I") "DATA",160.17,5,"FIELD",11,2) NINE "DATA",160.17,5,"FIELD",11,3) L,BLANK "DATA",160.17,5,"FIELD",12,0) 1049^1^1049^Pre-Existing Conditions Hashimoto's thyroiditis "DATA",160.17,5,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,810,"I") "DATA",160.17,5,"FIELD",12,2) NINE "DATA",160.17,5,"FIELD",12,3) L,BLANK "DATA",160.17,5,"FIELD",13,0) 1050^1^1050^Pre-Existing Conditions Systemic lupus erythematosus "DATA",160.17,5,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,811,"I") "DATA",160.17,5,"FIELD",13,2) NINE "DATA",160.17,5,"FIELD",13,3) L,BLANK "DATA",160.17,5,"FIELD",14,0) 1051^1^1051^Pre-Existing Conditions Rheumatoid arthritis incl. Sjogren's syndrome "DATA",160.17,5,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,812,"I") "DATA",160.17,5,"FIELD",14,2) NINE "DATA",160.17,5,"FIELD",14,3) L,BLANK "DATA",160.17,5,"FIELD",15,0) 1052^1^1052^Pre-Existing Conditions Pneumocystis carinii "DATA",160.17,5,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,813,"I") "DATA",160.17,5,"FIELD",15,2) NINE "DATA",160.17,5,"FIELD",15,3) L,BLANK "DATA",160.17,5,"FIELD",16,0) 1053^1^1053^Pre-Existing Conditions CMV infection "DATA",160.17,5,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,814,"I") "DATA",160.17,5,"FIELD",16,2) NINE "DATA",160.17,5,"FIELD",16,3) L,BLANK "DATA",160.17,5,"FIELD",17,0) 1054^1^1054^Pre-Existing Conditions Tuberculosis "DATA",160.17,5,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,815,"I") "DATA",160.17,5,"FIELD",17,2) NINE "DATA",160.17,5,"FIELD",17,3) L,BLANK "DATA",160.17,5,"FIELD",18,0) 1055^1^1055^Pre-Existing Conditions Mycobacterium Avium "DATA",160.17,5,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,816,"I") "DATA",160.17,5,"FIELD",18,2) NINE "DATA",160.17,5,"FIELD",18,3) L,BLANK "DATA",160.17,5,"FIELD",19,0) 1056^1^1056^Pre-Existing Conditions Other parasitic infections "DATA",160.17,5,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,817,"I") "DATA",160.17,5,"FIELD",19,2) NINE "DATA",160.17,5,"FIELD",19,3) L,BLANK "DATA",160.17,5,"FIELD",20,0) 1057^1^1057^Pre-Existing Conditions Other congenital diseases "DATA",160.17,5,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,818,"I") "DATA",160.17,5,"FIELD",20,2) NINE "DATA",160.17,5,"FIELD",20,3) L,BLANK "DATA",160.17,5,"FIELD",21,0) 1058^1^1058^Pre-Existing Conditions Opportunistic diseases (w/in last 2 years) "DATA",160.17,5,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,819,"I") "DATA",160.17,5,"FIELD",21,2) NINE "DATA",160.17,5,"FIELD",21,3) L,BLANK "DATA",160.17,5,"FIELD",22,0) 1059^1^1059^Previous Chemotherapy "DATA",160.17,5,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,820,"I") "DATA",160.17,5,"FIELD",22,2) NINE "DATA",160.17,5,"FIELD",22,3) L,BLANK "DATA",160.17,5,"FIELD",23,0) 1060^1^1060^Previous Radiation Therapy "DATA",160.17,5,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,821,"I") "DATA",160.17,5,"FIELD",23,2) NINE "DATA",160.17,5,"FIELD",23,3) L,BLANK "DATA",160.17,5,"FIELD",24,0) 1061^1^1061^AIDS Risk Category of HIV Positive Patients "DATA",160.17,5,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,822,"I") "DATA",160.17,5,"FIELD",24,2) NINE "DATA",160.17,5,"FIELD",24,3) L,BLANK "DATA",160.17,5,"FIELD",25,0) 1062^1^1062^DX Workup Chest x-ray "DATA",160.17,5,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,505,"I") "DATA",160.17,5,"FIELD",25,2) NINE "DATA",160.17,5,"FIELD",25,3) L,BLANK "DATA",160.17,5,"FIELD",26,0) 1063^1^1063^DX Workup Skeletal x-ray "DATA",160.17,5,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,512,"I") "DATA",160.17,5,"FIELD",26,2) NINE "DATA",160.17,5,"FIELD",26,3) L,BLANK "DATA",160.17,5,"FIELD",27,0) 1064^1^1064^DX Workup CT scan of brain "DATA",160.17,5,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,823,"I") "DATA",160.17,5,"FIELD",27,2) NINE "DATA",160.17,5,"FIELD",27,3) L,BLANK "DATA",160.17,5,"FIELD",28,0) 1065^1^1065^DX Workup CT scan of chest "DATA",160.17,5,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,506,"I") "DATA",160.17,5,"FIELD",28,2) NINE "DATA",160.17,5,"FIELD",28,3) L,BLANK "DATA",160.17,5,"FIELD",29,0) 1066^1^1066^DX Workup CT scan of abdomen/pelvis "DATA",160.17,5,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,824,"I") "DATA",160.17,5,"FIELD",29,2) NINE "DATA",160.17,5,"FIELD",29,3) L,BLANK "DATA",160.17,5,"FIELD",30,0) 1067^1^1067^DX Workup MRI of brain "DATA",160.17,5,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,825,"I") "DATA",160.17,5,"FIELD",30,2) NINE "DATA",160.17,5,"FIELD",30,3) L,BLANK "DATA",160.17,5,"FIELD",31,0) 1068^1^1068^DX Workup MRI of chest "DATA",160.17,5,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,826,"I") "DATA",160.17,5,"FIELD",31,2) NINE "DATA",160.17,5,"FIELD",31,3) L,BLANK "DATA",160.17,5,"FIELD",32,0) 1069^1^1069^DX Workup MRI of abdomen/pelvis "DATA",160.17,5,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,827,"I") "DATA",160.17,5,"FIELD",32,2) NINE "DATA",160.17,5,"FIELD",32,3) L,BLANK "DATA",160.17,5,"FIELD",33,0) 1070^1^1070^DX Workup Bone scan "DATA",160.17,5,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,504,"I") "DATA",160.17,5,"FIELD",33,2) NINE "DATA",160.17,5,"FIELD",33,3) L,BLANK "DATA",160.17,5,"FIELD",34,0) 1071^1^1071^DX Workup Gallium Scan "DATA",160.17,5,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,828,"I") "DATA",160.17,5,"FIELD",34,2) NINE "DATA",160.17,5,"FIELD",34,3) L,BLANK "DATA",160.17,5,"FIELD",35,0) 1072^1^1072^DX Workup PET scan "DATA",160.17,5,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,829,"I") "DATA",160.17,5,"FIELD",35,2) NINE "DATA",160.17,5,"FIELD",35,3) L,BLANK "DATA",160.17,5,"FIELD",36,0) 1073^1^1073^DX Workup Lumbar puncture "DATA",160.17,5,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,830,"I") "DATA",160.17,5,"FIELD",36,2) NINE "DATA",160.17,5,"FIELD",36,3) L,BLANK "DATA",160.17,5,"FIELD",37,0) 1074^1^1074^Lab Test Results Hemoglobin/hematocrit "DATA",160.17,5,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,831,"I") "DATA",160.17,5,"FIELD",37,2) NINE "DATA",160.17,5,"FIELD",37,3) L,BLANK "DATA",160.17,5,"FIELD",38,0) 1075^1^1075^Lab Test Results White count "DATA",160.17,5,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,832,"I") "DATA",160.17,5,"FIELD",38,2) NINE "DATA",160.17,5,"FIELD",38,3) L,BLANK "DATA",160.17,5,"FIELD",39,0) 1076^1^1076^Lab Test Results Platelet count "DATA",160.17,5,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,833,"I") "DATA",160.17,5,"FIELD",39,2) NINE "DATA",160.17,5,"FIELD",39,3) L,BLANK "DATA",160.17,5,"FIELD",40,0) 1077^1^1077^Lab Test Results Lactic dehydrogenase (LDH) "DATA",160.17,5,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,834,"I") "DATA",160.17,5,"FIELD",40,2) NINE "DATA",160.17,5,"FIELD",40,3) L,BLANK "DATA",160.17,5,"FIELD",41,0) 1078^1^1078^Lab Test Results Liver function studies "DATA",160.17,5,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,835,"I") "DATA",160.17,5,"FIELD",41,2) NINE "DATA",160.17,5,"FIELD",41,3) L,BLANK "DATA",160.17,5,"FIELD",42,0) 1079^1^1079^Lab Test Results Total protein/albumin "DATA",160.17,5,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,836,"I") "DATA",160.17,5,"FIELD",42,2) NINE "DATA",160.17,5,"FIELD",42,3) L,BLANK "DATA",160.17,5,"FIELD",43,0) 1080^1^1080^Additional Test Tumor Surface Marker/immunohistochemistry "DATA",160.17,5,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,516,"I") "DATA",160.17,5,"FIELD",43,2) NINE "DATA",160.17,5,"FIELD",43,3) L,BLANK "DATA",160.17,5,"FIELD",44,0) 1081^1^1081^Additional Test Cytogenic testing "DATA",160.17,5,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,514,"I") "DATA",160.17,5,"FIELD",44,2) NINE "DATA",160.17,5,"FIELD",44,3) L,BLANK "DATA",160.17,5,"FIELD",45,0) 1082^1^1082^Additional Test Gene rearrangements "DATA",160.17,5,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,837,"I") "DATA",160.17,5,"FIELD",45,2) NINE "DATA",160.17,5,"FIELD",45,3) L,BLANK "DATA",160.17,5,"FIELD",46,0) 1083^1^1083^Review of Path. at another Inst. by another Path. "DATA",160.17,5,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,838,"I") "DATA",160.17,5,"FIELD",46,2) NINE "DATA",160.17,5,"FIELD",46,3) L,BLANK "DATA",160.17,5,"FIELD",47,0) 1084^1^1084^DX Biopsies Lymph node "DATA",160.17,5,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,839,"I") "DATA",160.17,5,"FIELD",47,2) NINE "DATA",160.17,5,"FIELD",47,3) L,BLANK "DATA",160.17,5,"FIELD",48,0) 1085^1^1085^DX Biopsies Bone marrow "DATA",160.17,5,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,840,"I") "DATA",160.17,5,"FIELD",48,2) NINE "DATA",160.17,5,"FIELD",48,3) L,BLANK "DATA",160.17,5,"FIELD",49,0) 1086^1^1086^DX Biopsies CSF cytology "DATA",160.17,5,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,841,"I") "DATA",160.17,5,"FIELD",49,2) NINE "DATA",160.17,5,"FIELD",49,3) L,BLANK "DATA",160.17,5,"FIELD",50,0) 1087^1^1087^DX Biopsies Other site "DATA",160.17,5,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,842,"I") "DATA",160.17,5,"FIELD",50,2) NINE "DATA",160.17,5,"FIELD",50,3) L,BLANK "DATA",160.17,5,"FIELD",51,0) 1088^1^1088^Systemic Symptoms "DATA",160.17,5,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,843,"I") "DATA",160.17,5,"FIELD",51,2) NINE "DATA",160.17,5,"FIELD",51,3) L,BLANK "DATA",160.17,5,"FIELD",52,0) 1089^1^1089^DX Testing Specifically related to HIV Disease CD4 Count "DATA",160.17,5,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,844,"I") "DATA",160.17,5,"FIELD",52,2) NINE "DATA",160.17,5,"FIELD",52,3) L,BLANK "DATA",160.17,5,"FIELD",53,0) 1090^1^1090^DX Testing Specifically related to HIV Disease HIV Viral Loads "DATA",160.17,5,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,845,"I") "DATA",160.17,5,"FIELD",53,2) NINE "DATA",160.17,5,"FIELD",53,3) L,BLANK "DATA",160.17,5,"FIELD",54,0) 1091^1^1091^Specific Histologic Information "DATA",160.17,5,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,846,"I") "DATA",160.17,5,"FIELD",54,2) NINE "DATA",160.17,5,"FIELD",54,3) L,BLANK "DATA",160.17,5,"FIELD",55,0) 1092^1^1092^Cell type of Lymphoma "DATA",160.17,5,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,847,"I") "DATA",160.17,5,"FIELD",55,2) NINE "DATA",160.17,5,"FIELD",55,3) L,BLANK "DATA",160.17,5,"FIELD",56,0) 1093^1^1093^Patient Status at DX "DATA",160.17,5,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,848,"I") "DATA",160.17,5,"FIELD",56,2) NINE "DATA",160.17,5,"FIELD",56,3) L,BLANK "DATA",160.17,5,"FIELD",57,0) 1094^3^1096^Extranodal Site 1 "DATA",160.17,5,"FIELD",57,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,852,"I"),"C",2) "DATA",160.17,5,"FIELD",57,2) NINE "DATA",160.17,5,"FIELD",57,3) L,BLANK "DATA",160.17,5,"FIELD",58,0) 1097^3^1099^Extranodal Site 2 "DATA",160.17,5,"FIELD",58,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,853,"I"),"C",2) "DATA",160.17,5,"FIELD",58,2) NINE "DATA",160.17,5,"FIELD",58,3) L,BLANK "DATA",160.17,5,"FIELD",59,0) 1100^3^1102^Extranodal Site 3 "DATA",160.17,5,"FIELD",59,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,854,"I"),"C",2) "DATA",160.17,5,"FIELD",59,2) NINE "DATA",160.17,5,"FIELD",59,3) L,BLANK "DATA",160.17,5,"FIELD",60,0) 1103^3^1105^Site of add. CA-Dir. Surgery to an Extranodal Site "DATA",160.17,5,"FIELD",60,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,855,"I"),"C",2) "DATA",160.17,5,"FIELD",60,2) NINE "DATA",160.17,5,"FIELD",60,3) L,BLANK "DATA",160.17,5,"FIELD",61,0) 1106^2^1107^Surgical Proc. for the Add. CA-Dir. Surgery to Extranodal Site "DATA",160.17,5,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,856,"I") "DATA",160.17,5,"FIELD",61,2) NINE "DATA",160.17,5,"FIELD",61,3) L,BLANK "DATA",160.17,5,"FIELD",62,0) 1108^1^1108^Irradiated Fields Lymph nodes above the diaphragm "DATA",160.17,5,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,857,"I") "DATA",160.17,5,"FIELD",62,2) NINE "DATA",160.17,5,"FIELD",62,3) L,BLANK "DATA",160.17,5,"FIELD",63,0) 1109^1^1109^Irradiated Fields Lymph nodes below the diaphragm "DATA",160.17,5,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,858,"I") "DATA",160.17,5,"FIELD",63,2) NINE "DATA",160.17,5,"FIELD",63,3) L,BLANK "DATA",160.17,5,"FIELD",64,0) 1110^1^1110^Irradiated Fields Brain "DATA",160.17,5,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,859,"I") "DATA",160.17,5,"FIELD",64,2) NINE "DATA",160.17,5,"FIELD",64,3) L,BLANK "DATA",160.17,5,"FIELD",65,0) 1111^1^1111^Irradiated Fields Other extranodal site(s) "DATA",160.17,5,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,860,"I") "DATA",160.17,5,"FIELD",65,2) NINE "DATA",160.17,5,"FIELD",65,3) L,BLANK "DATA",160.17,5,"FIELD",66,0) 1112^1^1112^Irradiated Fields Total body "DATA",160.17,5,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,861,"I") "DATA",160.17,5,"FIELD",66,2) NINE "DATA",160.17,5,"FIELD",66,3) L,BLANK "DATA",160.17,5,"FIELD",67,0) 1113^1^1113^Rad./Chemo. Sequence "DATA",160.17,5,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,862,"I") "DATA",160.17,5,"FIELD",67,2) NINE "DATA",160.17,5,"FIELD",67,3) L,BLANK "DATA",160.17,5,"FIELD",68,0) 1114^1^1114^Protocol "DATA",160.17,5,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,863,"I") "DATA",160.17,5,"FIELD",68,2) NINE "DATA",160.17,5,"FIELD",68,3) L,BLANK "DATA",160.17,5,"FIELD",69,0) 1115^1^1115^Systemic Chemo. Administration "DATA",160.17,5,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,864,"I") "DATA",160.17,5,"FIELD",69,2) NINE "DATA",160.17,5,"FIELD",69,3) L,BLANK "DATA",160.17,5,"FIELD",70,0) 1116^8^1123^Date Systemic Chemo. Started "DATA",160.17,5,"FIELD",70,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,865,"I")) "DATA",160.17,5,"FIELD",70,2) NINE "DATA",160.17,5,"FIELD",70,3) L,BLANK "DATA",160.17,5,"FIELD",71,0) 1124^2^1125^No. of planned Cycles of Systemic Chemo. "DATA",160.17,5,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,866,"I") "DATA",160.17,5,"FIELD",71,2) NINE "DATA",160.17,5,"FIELD",71,3) L,ZERO "DATA",160.17,5,"FIELD",72,0) 1126^1^1126^Single Agent Chemo. Chorambucil "DATA",160.17,5,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,867,"I") "DATA",160.17,5,"FIELD",72,2) NINE "DATA",160.17,5,"FIELD",72,3) L,BLANK "DATA",160.17,5,"FIELD",73,0) 1127^1^1127^Single Agent Chemo. Cyclophosphamide "DATA",160.17,5,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,868,"I") "DATA",160.17,5,"FIELD",73,2) NINE "DATA",160.17,5,"FIELD",73,3) L,BLANK "DATA",160.17,5,"FIELD",74,0) 1128^1^1128^Single Agent Chemo. Doxorubicin "DATA",160.17,5,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,869,"I") "DATA",160.17,5,"FIELD",74,2) NINE "DATA",160.17,5,"FIELD",74,3) L,BLANK "DATA",160.17,5,"FIELD",75,0) 1129^1^1129^Single Agent Chemo. Fludarabine "DATA",160.17,5,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,870,"I") "DATA",160.17,5,"FIELD",75,2) NINE "DATA",160.17,5,"FIELD",75,3) L,BLANK "DATA",160.17,5,"FIELD",76,0) 1130^1^1130^Combination Chemo. CHOP "DATA",160.17,5,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,871,"I") "DATA",160.17,5,"FIELD",76,2) NINE "DATA",160.17,5,"FIELD",76,3) L,BLANK "DATA",160.17,5,"FIELD",77,0) 1131^1^1131^Combination Chemo. CVP "DATA",160.17,5,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,872,"I") "DATA",160.17,5,"FIELD",77,2) NINE "DATA",160.17,5,"FIELD",77,3) L,BLANK "DATA",160.17,5,"FIELD",78,0) 1132^1^1132^Combination Chemo. COMLA "DATA",160.17,5,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,873,"I") "DATA",160.17,5,"FIELD",78,2) NINE "DATA",160.17,5,"FIELD",78,3) L,BLANK "DATA",160.17,5,"FIELD",79,0) 1133^1^1133^Combination Chemo. MACOP-B "DATA",160.17,5,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,874,"I") "DATA",160.17,5,"FIELD",79,2) NINE "DATA",160.17,5,"FIELD",79,3) L,BLANK "DATA",160.17,5,"FIELD",80,0) 1134^1^1134^Combination Chemo. M-BACOD "DATA",160.17,5,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,875,"I") "DATA",160.17,5,"FIELD",80,2) NINE "DATA",160.17,5,"FIELD",80,3) L,BLANK "DATA",160.17,5,"FIELD",81,0) 1135^1^1135^Combination Chemo. PRO-MACE-Cyta BOM "DATA",160.17,5,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,876,"I") "DATA",160.17,5,"FIELD",81,2) NINE "DATA",160.17,5,"FIELD",81,3) L,BLANK "DATA",160.17,5,"FIELD",82,0) 1136^1^1136^Combination Chemo. Other "DATA",160.17,5,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,877,"I") "DATA",160.17,5,"FIELD",82,2) NINE "DATA",160.17,5,"FIELD",82,3) L,BLANK "DATA",160.17,5,"FIELD",83,0) 1137^1^1137^High Dose System Treatment with Stem Cell Rescue "DATA",160.17,5,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,878,"I") "DATA",160.17,5,"FIELD",83,2) NINE "DATA",160.17,5,"FIELD",83,3) L,BLANK "DATA",160.17,5,"FIELD",84,0) 1138^1^1138^Intrathecal Chemo. Administration "DATA",160.17,5,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,879,"I") "DATA",160.17,5,"FIELD",84,2) NINE "DATA",160.17,5,"FIELD",84,3) L,BLANK "DATA",160.17,5,"FIELD",85,0) 1139^1^1139^Purpose of Intrathecal Chemo. "DATA",160.17,5,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,880,"I") "DATA",160.17,5,"FIELD",85,2) NINE "DATA",160.17,5,"FIELD",85,3) L,BLANK "DATA",160.17,5,"FIELD",86,0) 1140^1^1140^Immunotherapy IL-2 "DATA",160.17,5,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,881,"I") "DATA",160.17,5,"FIELD",86,2) NINE "DATA",160.17,5,"FIELD",86,3) L,BLANK "DATA",160.17,5,"FIELD",87,0) 1141^1^1141^Immunotherapy Interferon "DATA",160.17,5,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,882,"I") "DATA",160.17,5,"FIELD",87,2) NINE "DATA",160.17,5,"FIELD",87,3) L,BLANK "DATA",160.17,5,"FIELD",88,0) 1142^1^1142^Immunotherapy Monoclonal Antibodies "DATA",160.17,5,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,883,"I") "DATA",160.17,5,"FIELD",88,2) NINE "DATA",160.17,5,"FIELD",88,3) L,BLANK "DATA",160.17,5,"FIELD",89,0) 1143^1^1143^Immunotherapy Vaccine Therapy "DATA",160.17,5,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,884,"I") "DATA",160.17,5,"FIELD",89,2) NINE "DATA",160.17,5,"FIELD",89,3) L,BLANK "DATA",160.17,5,"FIELD",90,0) 1144^2^1145^Completed By "DATA",160.17,5,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,5,"FIELD",90,2) BLANK "DATA",160.17,5,"FIELD",90,3) L,BLANK "DATA",160.17,5,"FIELD",91,0) 1146^2^1147^Reviewed by Cancer Committee "DATA",160.17,5,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,5,"FIELD",91,2) BLANK "DATA",160.17,5,"FIELD",91,3) L,BLANK "DATA",160.17,5,"FIELD",92,0) 1148^378^1525^Reserved "DATA",160.17,5,"FIELD",92,1) S ACDANS="" "DATA",160.17,5,"FIELD",92,2) BLANK "DATA",160.17,5,"FIELD",92,3) L,BLANK "DATA",160.17,6,0) BREAST "DATA",160.17,6,"FIELD",0) ^160.171I^62^62 "DATA",160.17,6,"FIELD",1,0) 1026^1^1026^Family Hist of Breast CA-Daughter "DATA",160.17,6,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,900,"I") "DATA",160.17,6,"FIELD",1,2) BLANK "DATA",160.17,6,"FIELD",1,3) L,BLANK "DATA",160.17,6,"FIELD",2,0) 1027^1^1027^Family Hist of Breast CA-Maternal aunt "DATA",160.17,6,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,901,"I") "DATA",160.17,6,"FIELD",2,2) BLANK "DATA",160.17,6,"FIELD",2,3) L,BLANK "DATA",160.17,6,"FIELD",3,0) 1028^1^1028^Family Hist of Breast CA-Maternal grandmother "DATA",160.17,6,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,902,"I") "DATA",160.17,6,"FIELD",3,2) BLANK "DATA",160.17,6,"FIELD",3,3) L,BLANK "DATA",160.17,6,"FIELD",4,0) 1029^1^1029^Family Hist of Breast CA-Mother "DATA",160.17,6,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,903,"I") "DATA",160.17,6,"FIELD",4,2) BLANK "DATA",160.17,6,"FIELD",4,3) L,BLANK "DATA",160.17,6,"FIELD",5,0) 1030^1^1030^Family Hist of Breast CA-One sister only "DATA",160.17,6,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,904,"I") "DATA",160.17,6,"FIELD",5,2) BLANK "DATA",160.17,6,"FIELD",5,3) L,BLANK "DATA",160.17,6,"FIELD",6,0) 1031^1^1031^Family Hist of Breast CA-More than one sister "DATA",160.17,6,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,905,"I") "DATA",160.17,6,"FIELD",6,2) BLANK "DATA",160.17,6,"FIELD",6,3) L,BLANK "DATA",160.17,6,"FIELD",7,0) 1032^1^1032^Family Hist of Breast CA-Father "DATA",160.17,6,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,906,"I") "DATA",160.17,6,"FIELD",7,2) BLANK "DATA",160.17,6,"FIELD",7,3) L,BLANK "DATA",160.17,6,"FIELD",8,0) 1033^1^1033^Family Hist of Breast CA-Brother "DATA",160.17,6,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,907,"I") "DATA",160.17,6,"FIELD",8,2) BLANK "DATA",160.17,6,"FIELD",8,3) L,BLANK "DATA",160.17,6,"FIELD",9,0) 1034^1^1034^Positive family hist of breast CA, NOS "DATA",160.17,6,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,908,"I") "DATA",160.17,6,"FIELD",9,2) BLANK "DATA",160.17,6,"FIELD",9,3) L,BLANK "DATA",160.17,6,"FIELD",10,0) 1035^1^1035^(F) Personal Hist of Breast CA "DATA",160.17,6,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,909,"I") "DATA",160.17,6,"FIELD",10,2) BLANK "DATA",160.17,6,"FIELD",10,3) L,BLANK "DATA",160.17,6,"FIELD",11,0) 1036^1^1036^Synchronous Breast Cancer "DATA",160.17,6,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,910,"I") "DATA",160.17,6,"FIELD",11,2) BLANK "DATA",160.17,6,"FIELD",11,3) L,BLANK "DATA",160.17,6,"FIELD",12,0) 1037^1^1037^Personal History of Other Cancer-Colon "DATA",160.17,6,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,911,"I") "DATA",160.17,6,"FIELD",12,2) BLANK "DATA",160.17,6,"FIELD",12,3) L,BLANK "DATA",160.17,6,"FIELD",13,0) 1038^1^1038^Personal History of Other Cancer-Ovary (F) "DATA",160.17,6,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,912,"I") "DATA",160.17,6,"FIELD",13,2) BLANK "DATA",160.17,6,"FIELD",13,3) L,BLANK "DATA",160.17,6,"FIELD",14,0) 1039^1^1039^Personal History of Other Cancer-Uterus (F) "DATA",160.17,6,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,913,"I") "DATA",160.17,6,"FIELD",14,2) BLANK "DATA",160.17,6,"FIELD",14,3) L,BLANK "DATA",160.17,6,"FIELD",15,0) 1040^1^1040^Personal History of Other Cancer-Prostate (M) "DATA",160.17,6,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,914,"I") "DATA",160.17,6,"FIELD",15,2) BLANK "DATA",160.17,6,"FIELD",15,3) L,BLANK "DATA",160.17,6,"FIELD",16,0) 1041^1^1041^Personal History of Other Cancer-Other "DATA",160.17,6,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,915,"I") "DATA",160.17,6,"FIELD",16,2) BLANK "DATA",160.17,6,"FIELD",16,3) L,BLANK "DATA",160.17,6,"FIELD",17,0) 1042^1^1042^(F) Hormone Replacement Therapy "DATA",160.17,6,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,916,"I") "DATA",160.17,6,"FIELD",17,2) BLANK "DATA",160.17,6,"FIELD",17,3) L,BLANK "DATA",160.17,6,"FIELD",18,0) 1043^1^1043^(F) Years of Hormone Replacement Therapy "DATA",160.17,6,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,917,"I") "DATA",160.17,6,"FIELD",18,2) BLANK "DATA",160.17,6,"FIELD",18,3) L,BLANK "DATA",160.17,6,"FIELD",19,0) 1044^1^1044^Diagnostic Evaluation-Mammogram (M) "DATA",160.17,6,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,926,"I") "DATA",160.17,6,"FIELD",19,2) BLANK "DATA",160.17,6,"FIELD",19,3) L,BLANK "DATA",160.17,6,"FIELD",20,0) 1045^1^1045^Diagnostic Evaluation-Ultrasound "DATA",160.17,6,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,927,"I") "DATA",160.17,6,"FIELD",20,2) BLANK "DATA",160.17,6,"FIELD",20,3) L,BLANK "DATA",160.17,6,"FIELD",21,0) 1046^1^1046^(F) Type of Mammogram-Type unknown "DATA",160.17,6,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,918,"I") "DATA",160.17,6,"FIELD",21,2) BLANK "DATA",160.17,6,"FIELD",21,3) L,BLANK "DATA",160.17,6,"FIELD",22,0) 1047^8^1054^Date of mammogram, type unknown "DATA",160.17,6,"FIELD",22,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,919,"I")) "DATA",160.17,6,"FIELD",22,2) BLANK "DATA",160.17,6,"FIELD",22,3) L,BLANK "DATA",160.17,6,"FIELD",23,0) 1055^1^1055^(F) Type of Mammogram-Screening mammogram "DATA",160.17,6,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,920,"I") "DATA",160.17,6,"FIELD",23,2) BLANK "DATA",160.17,6,"FIELD",23,3) L,BLANK "DATA",160.17,6,"FIELD",24,0) 1056^8^1063^Date of screening mammogram "DATA",160.17,6,"FIELD",24,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,921,"I")) "DATA",160.17,6,"FIELD",24,2) BLANK "DATA",160.17,6,"FIELD",24,3) L,BLANK "DATA",160.17,6,"FIELD",25,0) 1064^1^1064^(F) Type of Mammogram-Diagnostic mammogram "DATA",160.17,6,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,922,"I") "DATA",160.17,6,"FIELD",25,2) BLANK "DATA",160.17,6,"FIELD",25,3) L,BLANK "DATA",160.17,6,"FIELD",26,0) 1065^8^1072^Date of diagnostic mammogram "DATA",160.17,6,"FIELD",26,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,923,"I")) "DATA",160.17,6,"FIELD",26,2) BLANK "DATA",160.17,6,"FIELD",26,3) L,BLANK "DATA",160.17,6,"FIELD",27,0) 1073^1^1073^(F) Type of Mammogram-Magnification mammogram "DATA",160.17,6,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,924,"I") "DATA",160.17,6,"FIELD",27,2) BLANK "DATA",160.17,6,"FIELD",27,3) L,BLANK "DATA",160.17,6,"FIELD",28,0) 1074^8^1081^Date of magnification mammogram "DATA",160.17,6,"FIELD",28,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,925,"I")) "DATA",160.17,6,"FIELD",28,2) BLANK "DATA",160.17,6,"FIELD",28,3) L,BLANK "DATA",160.17,6,"FIELD",29,0) 1082^1^1082^(F) Presentation of Most Definitive Mammogram "DATA",160.17,6,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,928,"I") "DATA",160.17,6,"FIELD",29,2) BLANK "DATA",160.17,6,"FIELD",29,3) L,BLANK "DATA",160.17,6,"FIELD",30,0) 1083^8^1090^Date of Pathologic Diagnosis "DATA",160.17,6,"FIELD",30,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,929,"I")) "DATA",160.17,6,"FIELD",30,2) BLANK "DATA",160.17,6,"FIELD",30,3) L,BLANK "DATA",160.17,6,"FIELD",31,0) 1091^1^1091^If Invasive Ductal Carcinoma, is DCIS Present "DATA",160.17,6,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,930,"I") "DATA",160.17,6,"FIELD",31,2) BLANK "DATA",160.17,6,"FIELD",31,3) L,BLANK "DATA",160.17,6,"FIELD",32,0) 1092^1^1092^Architecture Pattern if DCIS is present "DATA",160.17,6,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,931,"I") "DATA",160.17,6,"FIELD",32,2) BLANK "DATA",160.17,6,"FIELD",32,3) L,BLANK "DATA",160.17,6,"FIELD",33,0) 1093^1^1093^Nuclear Grade if DCIS is present "DATA",160.17,6,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,932,"I") "DATA",160.17,6,"FIELD",33,2) BLANK "DATA",160.17,6,"FIELD",33,3) L,BLANK "DATA",160.17,6,"FIELD",34,0) 1094^1^1094^(M) Level of Involvement-Skin "DATA",160.17,6,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,933,"I") "DATA",160.17,6,"FIELD",34,2) BLANK "DATA",160.17,6,"FIELD",34,3) L,BLANK "DATA",160.17,6,"FIELD",35,0) 1095^1^1095^(M) Level of Involvement-Chest wall "DATA",160.17,6,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,934,"I") "DATA",160.17,6,"FIELD",35,2) BLANK "DATA",160.17,6,"FIELD",35,3) L,BLANK "DATA",160.17,6,"FIELD",36,0) 1096^1^1096^(M) Level of Involvement-Pectoral muscles "DATA",160.17,6,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,935,"I") "DATA",160.17,6,"FIELD",36,2) BLANK "DATA",160.17,6,"FIELD",36,3) L,BLANK "DATA",160.17,6,"FIELD",37,0) 1097^1^1097^(M) Level of Involvement-Dermal/lymphatic "DATA",160.17,6,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,936,"I") "DATA",160.17,6,"FIELD",37,2) BLANK "DATA",160.17,6,"FIELD",37,3) L,BLANK "DATA",160.17,6,"FIELD",38,0) 1098^1^1098^(M) DNA Index/Ploidy "DATA",160.17,6,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,937,"I") "DATA",160.17,6,"FIELD",38,2) BLANK "DATA",160.17,6,"FIELD",38,3) L,BLANK "DATA",160.17,6,"FIELD",39,0) 1099^1^1099^Estrogen Receptor Protein "DATA",160.17,6,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,938,"I") "DATA",160.17,6,"FIELD",39,2) BLANK "DATA",160.17,6,"FIELD",39,3) L,BLANK "DATA",160.17,6,"FIELD",40,0) 1100^1^1100^Progesterone Receptor Protein "DATA",160.17,6,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,939,"I") "DATA",160.17,6,"FIELD",40,2) BLANK "DATA",160.17,6,"FIELD",40,3) L,BLANK "DATA",160.17,6,"FIELD",41,0) 1101^1^1101^(M) Androgen Receptor Protein "DATA",160.17,6,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,940,"I") "DATA",160.17,6,"FIELD",41,2) BLANK "DATA",160.17,6,"FIELD",41,3) L,BLANK "DATA",160.17,6,"FIELD",42,0) 1102^1^1102^Type of Test "DATA",160.17,6,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,941,"I") "DATA",160.17,6,"FIELD",42,2) BLANK "DATA",160.17,6,"FIELD",42,3) L,BLANK "DATA",160.17,6,"FIELD",43,0) 1103^3^1105^Size of DCIS Tumor (mm) "DATA",160.17,6,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,942,"I") "DATA",160.17,6,"FIELD",43,2) BLANK "DATA",160.17,6,"FIELD",43,3) L,BLANK "DATA",160.17,6,"FIELD",44,0) 1106^1^1106^Sentinel Node Biopsy "DATA",160.17,6,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,943,"I") "DATA",160.17,6,"FIELD",44,2) BLANK "DATA",160.17,6,"FIELD",44,3) L,BLANK "DATA",160.17,6,"FIELD",45,0) 1107^1^1107^Number of Sentinel Nodes Examined "DATA",160.17,6,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,944,"I") "DATA",160.17,6,"FIELD",45,2) BLANK "DATA",160.17,6,"FIELD",45,3) L,BLANK "DATA",160.17,6,"FIELD",46,0) 1108^1^1108^Number of Sentinel Nodes Positive "DATA",160.17,6,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,945,"I") "DATA",160.17,6,"FIELD",46,2) BLANK "DATA",160.17,6,"FIELD",46,3) L,BLANK "DATA",160.17,6,"FIELD",47,0) 1109^1^1109^Sentinel Nodes Detected By "DATA",160.17,6,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,946,"I") "DATA",160.17,6,"FIELD",47,2) BLANK "DATA",160.17,6,"FIELD",47,3) L,BLANK "DATA",160.17,6,"FIELD",48,0) 1110^1^1110^Speciman Radiograph "DATA",160.17,6,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,947,"I") "DATA",160.17,6,"FIELD",48,2) BLANK "DATA",160.17,6,"FIELD",48,3) L,BLANK "DATA",160.17,6,"FIELD",49,0) 1111^1^1111^Was Entire Speciman Submitted to Pathology "DATA",160.17,6,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,948,"I") "DATA",160.17,6,"FIELD",49,2) BLANK "DATA",160.17,6,"FIELD",49,3) L,BLANK "DATA",160.17,6,"FIELD",50,0) 1112^1^1112^Distance in mm from tumor to edge of specimen "DATA",160.17,6,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,949,"I") "DATA",160.17,6,"FIELD",50,2) BLANK "DATA",160.17,6,"FIELD",50,3) L,BLANK "DATA",160.17,6,"FIELD",51,0) 1113^1^1113^Re-excision "DATA",160.17,6,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,950,"I") "DATA",160.17,6,"FIELD",51,2) BLANK "DATA",160.17,6,"FIELD",51,3) L,BLANK "DATA",160.17,6,"FIELD",52,0) 1114^1^1114^Microscopic Status of Final Margin "DATA",160.17,6,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,951,"I") "DATA",160.17,6,"FIELD",52,2) BLANK "DATA",160.17,6,"FIELD",52,3) L,BLANK "DATA",160.17,6,"FIELD",53,0) 1115^1^1115^Pre-Radiation Therapy Mammogram of Patient "DATA",160.17,6,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,952,"I") "DATA",160.17,6,"FIELD",53,2) BLANK "DATA",160.17,6,"FIELD",53,3) L,DEFAULT "DATA",160.17,6,"FIELD",54,0) 1116^8^1123^Date Radiation Ended "DATA",160.17,6,"FIELD",54,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.17,6,"FIELD",54,2) BLANK "DATA",160.17,6,"FIELD",54,3) L,BLANK "DATA",160.17,6,"FIELD",55,0) 1124^1^1124^Sites Irradiated "DATA",160.17,6,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,953,"I") "DATA",160.17,6,"FIELD",55,2) BLANK "DATA",160.17,6,"FIELD",55,3) L,BLANK "DATA",160.17,6,"FIELD",56,0) 1125^5^1129^(F) cGy Dose to Whole Breast or Chest Wall "DATA",160.17,6,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,954,"I") "DATA",160.17,6,"FIELD",56,2) BLANK "DATA",160.17,6,"FIELD",56,3) L,BLANK "DATA",160.17,6,"FIELD",57,0) 1130^5^1134^(F) Boost Radiation "DATA",160.17,6,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.17,6,"FIELD",57,2) BLANK "DATA",160.17,6,"FIELD",57,3) L,BLANK "DATA",160.17,6,"FIELD",58,0) 1135^1^1135^(M) Specific Hormone Therapy "DATA",160.17,6,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,955,"I") "DATA",160.17,6,"FIELD",58,2) BLANK "DATA",160.17,6,"FIELD",58,3) L,BLANK "DATA",160.17,6,"FIELD",59,0) 1136^1^1136^Chemotherapy Regime Containing Doxorubicin "DATA",160.17,6,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,956,"I") "DATA",160.17,6,"FIELD",59,2) BLANK "DATA",160.17,6,"FIELD",59,3) L,BLANK "DATA",160.17,6,"FIELD",60,0) 1137^3^1139^Completed by "DATA",160.17,6,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,6,"FIELD",60,2) BLANK "DATA",160.17,6,"FIELD",60,3) L,BLANK "DATA",160.17,6,"FIELD",61,0) 1140^3^1142^Reviewed by Cancer Committee "DATA",160.17,6,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,6,"FIELD",61,2) BLANK "DATA",160.17,6,"FIELD",61,3) L,BLANK "DATA",160.17,6,"FIELD",62,0) 1143^383^1525^Reserved "DATA",160.17,6,"FIELD",62,1) S ACDANS="" "DATA",160.17,6,"FIELD",62,2) BLANK "DATA",160.17,6,"FIELD",62,3) L,BLANK "DATA",160.17,7,0) PROSTATE "DATA",160.17,7,"FIELD",0) ^160.171I^73^73 "DATA",160.17,7,"FIELD",1,0) 1026^1^1026^Family History of Prostate Cancer "DATA",160.17,7,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,657,"I") "DATA",160.17,7,"FIELD",1,2) BLANK "DATA",160.17,7,"FIELD",1,3) L,BLANK "DATA",160.17,7,"FIELD",2,0) 1027^1^1027^Symptoms Present at Dx-Hematuria "DATA",160.17,7,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,658,"I") "DATA",160.17,7,"FIELD",2,2) BLANK "DATA",160.17,7,"FIELD",2,3) L,BLANK "DATA",160.17,7,"FIELD",3,0) 1028^1^1028^Symptoms Present at Dx-Lower back pain "DATA",160.17,7,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,659,"I") "DATA",160.17,7,"FIELD",3,2) BLANK "DATA",160.17,7,"FIELD",3,3) L,BLANK "DATA",160.17,7,"FIELD",4,0) 1029^1^1029^Symptoms Present at Dx-Trouble urinating "DATA",160.17,7,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,660,"I") "DATA",160.17,7,"FIELD",4,2) BLANK "DATA",160.17,7,"FIELD",4,3) L,BLANK "DATA",160.17,7,"FIELD",5,0) 1030^1^1030^Initial Meth of Dx-Clin dx with bone lesion "DATA",160.17,7,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,661,"I") "DATA",160.17,7,"FIELD",5,2) BLANK "DATA",160.17,7,"FIELD",5,3) L,BLANK "DATA",160.17,7,"FIELD",6,0) 1031^1^1031^Initial Meth of Dx-Clin dx by rectal exam "DATA",160.17,7,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,662,"I") "DATA",160.17,7,"FIELD",6,2) BLANK "DATA",160.17,7,"FIELD",6,3) L,BLANK "DATA",160.17,7,"FIELD",7,0) 1032^1^1032^Initial Meth of Dx-Cytology "DATA",160.17,7,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,663,"I") "DATA",160.17,7,"FIELD",7,2) BLANK "DATA",160.17,7,"FIELD",7,3) L,BLANK "DATA",160.17,7,"FIELD",8,0) 1033^1^1033^Initial Meth of Dx-Digital transrectal biopsy "DATA",160.17,7,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,664,"I") "DATA",160.17,7,"FIELD",8,2) BLANK "DATA",160.17,7,"FIELD",8,3) L,BLANK "DATA",160.17,7,"FIELD",9,0) 1034^1^1034^Initial Meth of Dx-Incidental finding in TURP "DATA",160.17,7,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,665,"I") "DATA",160.17,7,"FIELD",9,2) BLANK "DATA",160.17,7,"FIELD",9,3) L,BLANK "DATA",160.17,7,"FIELD",10,0) 1035^1^1035^Initial Meth of Dx-Needle biopsy, NOS "DATA",160.17,7,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,666,"I") "DATA",160.17,7,"FIELD",10,2) BLANK "DATA",160.17,7,"FIELD",10,3) L,BLANK "DATA",160.17,7,"FIELD",11,0) 1036^1^1036^Initial Meth of Dx-Perineal biopsy "DATA",160.17,7,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,667,"I") "DATA",160.17,7,"FIELD",11,2) BLANK "DATA",160.17,7,"FIELD",11,3) L,BLANK "DATA",160.17,7,"FIELD",12,0) 1037^1^1037^Initial Meth of Dx-PSA "DATA",160.17,7,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,668,"I") "DATA",160.17,7,"FIELD",12,2) BLANK "DATA",160.17,7,"FIELD",12,3) L,BLANK "DATA",160.17,7,"FIELD",13,0) 1038^1^1038^Initial Meth of Dx-TRUS "DATA",160.17,7,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,669,"I") "DATA",160.17,7,"FIELD",13,2) BLANK "DATA",160.17,7,"FIELD",13,3) L,BLANK "DATA",160.17,7,"FIELD",14,0) 1039^1^1039^Initial Meth of Dx-TURP, NOS "DATA",160.17,7,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,670,"I") "DATA",160.17,7,"FIELD",14,2) BLANK "DATA",160.17,7,"FIELD",14,3) L,BLANK "DATA",160.17,7,"FIELD",15,0) 1040^1^1040^Diagnostic Eval-Bone marrow aspiration "DATA",160.17,7,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,671,"I") "DATA",160.17,7,"FIELD",15,2) BLANK "DATA",160.17,7,"FIELD",15,3) L,DEFAULT "DATA",160.17,7,"FIELD",16,0) 1041^1^1041^Diagnostic Eval-Bone Scan "DATA",160.17,7,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,672,"I") "DATA",160.17,7,"FIELD",16,2) BLANK "DATA",160.17,7,"FIELD",16,3) L,BLANK "DATA",160.17,7,"FIELD",17,0) 1042^1^1042^Diagnostic Eval-Bone X-ray "DATA",160.17,7,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,673,"I") "DATA",160.17,7,"FIELD",17,2) BLANK "DATA",160.17,7,"FIELD",17,3) L,BLANK "DATA",160.17,7,"FIELD",18,0) 1043^1^1043^Diagnostic Eval-Chest X-ray "DATA",160.17,7,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,674,"I") "DATA",160.17,7,"FIELD",18,2) BLANK "DATA",160.17,7,"FIELD",18,3) L,BLANK "DATA",160.17,7,"FIELD",19,0) 1044^1^1044^Diagnostic Eval-Ct scan of abdomen "DATA",160.17,7,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,675,"I") "DATA",160.17,7,"FIELD",19,2) BLANK "DATA",160.17,7,"FIELD",19,3) L,BLANK "DATA",160.17,7,"FIELD",20,0) 1045^1^1045^Diagnostic Eval-CT scan of pelvis "DATA",160.17,7,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,676,"I") "DATA",160.17,7,"FIELD",20,2) BLANK "DATA",160.17,7,"FIELD",20,3) L,BLANK "DATA",160.17,7,"FIELD",21,0) 1046^1^1046^Diagnostic Eval-Intravenous pyelogram (IVP) "DATA",160.17,7,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,677,"I") "DATA",160.17,7,"FIELD",21,2) BLANK "DATA",160.17,7,"FIELD",21,3) L,BLANK "DATA",160.17,7,"FIELD",22,0) 1047^1^1047^Diagnostic Eval-MRI "DATA",160.17,7,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,678,"I") "DATA",160.17,7,"FIELD",22,2) BLANK "DATA",160.17,7,"FIELD",22,3) L,BLANK "DATA",160.17,7,"FIELD",23,0) 1048^1^1048^Diagnostic Eval-Pelvic lymph node dissection "DATA",160.17,7,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,679,"I") "DATA",160.17,7,"FIELD",23,2) BLANK "DATA",160.17,7,"FIELD",23,3) L,BLANK "DATA",160.17,7,"FIELD",24,0) 1049^1^1049^Diagnostic Evaluation-Polymerase chain reaction assay (PCR) "DATA",160.17,7,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,680,"I") "DATA",160.17,7,"FIELD",24,2) BLANK "DATA",160.17,7,"FIELD",24,3) L,BLANK "DATA",160.17,7,"FIELD",25,0) 1050^1^1050^Diagnostic Evaluation-Prostatic acid phosphate (PAP) "DATA",160.17,7,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,681,"I") "DATA",160.17,7,"FIELD",25,2) BLANK "DATA",160.17,7,"FIELD",25,3) L,BLANK "DATA",160.17,7,"FIELD",26,0) 1051^1^1051^Diagnostic Evaluation-Prostate specific antigen (PSA) "DATA",160.17,7,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,682,"I") "DATA",160.17,7,"FIELD",26,2) BLANK "DATA",160.17,7,"FIELD",26,3) L,BLANK "DATA",160.17,7,"FIELD",27,0) 1052^1^1052^Diagnostic Eval-Ultrasound of abdomen "DATA",160.17,7,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,683,"I") "DATA",160.17,7,"FIELD",27,2) BLANK "DATA",160.17,7,"FIELD",27,3) L,BLANK "DATA",160.17,7,"FIELD",28,0) 1053^4^1056^Results of Most Recent Pre-treatment PSA Test "DATA",160.17,7,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,684,"I"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5) "DATA",160.17,7,"FIELD",28,2) BLANK "DATA",160.17,7,"FIELD",28,3) L,BLANK "DATA",160.17,7,"FIELD",29,0) 1057^1^1057^Gleason score-Simple Prostatectomy-Primary "DATA",160.17,7,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623.1,"I") "DATA",160.17,7,"FIELD",29,2) BLANK "DATA",160.17,7,"FIELD",29,3) L,BLANK "DATA",160.17,7,"FIELD",30,0) 1058^1^1058^Gleason score-Simple Prostatectomy-Secondary "DATA",160.17,7,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623.2,"I") "DATA",160.17,7,"FIELD",30,2) BLANK "DATA",160.17,7,"FIELD",30,3) L,BLANK "DATA",160.17,7,"FIELD",31,0) 1059^2^1060^Gleason score "DATA",160.17,7,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623,"I") "DATA",160.17,7,"FIELD",31,2) BLANK "DATA",160.17,7,"FIELD",31,3) L,BLANK "DATA",160.17,7,"FIELD",32,0) 1061^1^1061^Gleason score-Radical Prostatectomy-Primary "DATA",160.17,7,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623.4,"I") "DATA",160.17,7,"FIELD",32,2) BLANK "DATA",160.17,7,"FIELD",32,3) L,BLANK "DATA",160.17,7,"FIELD",33,0) 1062^1^1062^Gleason score-Radical Prostatectomy-Secondary "DATA",160.17,7,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623.5,"I") "DATA",160.17,7,"FIELD",33,2) BLANK "DATA",160.17,7,"FIELD",33,3) L,BLANK "DATA",160.17,7,"FIELD",34,0) 1063^2^1064^Gleason score "DATA",160.17,7,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,623.3,"I") "DATA",160.17,7,"FIELD",34,2) BLANK "DATA",160.17,7,"FIELD",34,3) L,BLANK "DATA",160.17,7,"FIELD",35,0) 1065^1^1065^Expected Management/Watchful Waiting "DATA",160.17,7,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,685,"I") "DATA",160.17,7,"FIELD",35,2) BLANK "DATA",160.17,7,"FIELD",35,3) L,BLANK "DATA",160.17,7,"FIELD",36,0) 1066^2^1067^Length of Hospital Stay Following Surgery "DATA",160.17,7,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,686,"I") "DATA",160.17,7,"FIELD",36,2) BLANK "DATA",160.17,7,"FIELD",36,3) L,ZERO "DATA",160.17,7,"FIELD",37,0) 1068^1^1068^Type of Reg Lymph Node Surgery-Laparoscopic "DATA",160.17,7,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,687,"I") "DATA",160.17,7,"FIELD",37,2) BLANK "DATA",160.17,7,"FIELD",37,3) L,BLANK "DATA",160.17,7,"FIELD",38,0) 1069^1^1069^Type of Reg Lymph Node Surgery-Open "DATA",160.17,7,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,688,"I") "DATA",160.17,7,"FIELD",38,2) BLANK "DATA",160.17,7,"FIELD",38,3) L,BLANK "DATA",160.17,7,"FIELD",39,0) 1070^1^1070^Complications Foll Surgery-Perm rectal injury "DATA",160.17,7,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,689,"I") "DATA",160.17,7,"FIELD",39,2) BLANK "DATA",160.17,7,"FIELD",39,3) L,BLANK "DATA",160.17,7,"FIELD",40,0) 1071^1^1071^Complications Foll Surgery-Thromboembolism "DATA",160.17,7,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,690,"I") "DATA",160.17,7,"FIELD",40,2) BLANK "DATA",160.17,7,"FIELD",40,3) L,BLANK "DATA",160.17,7,"FIELD",41,0) 1072^1^1072^Complications Foll Surgery-Urethral stricture "DATA",160.17,7,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,691,"I") "DATA",160.17,7,"FIELD",41,2) BLANK "DATA",160.17,7,"FIELD",41,3) L,BLANK "DATA",160.17,7,"FIELD",42,0) 1073^1^1073^Postoperative Death Within 30 Days "DATA",160.17,7,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,7,"FIELD",42,2) BLANK "DATA",160.17,7,"FIELD",42,3) L,BLANK "DATA",160.17,7,"FIELD",43,0) 1074^1^1074^Radiation Facility "DATA",160.17,7,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,692,"I") "DATA",160.17,7,"FIELD",43,2) BLANK "DATA",160.17,7,"FIELD",43,3) L,BLANK "DATA",160.17,7,"FIELD",44,0) 1075^1^1075^Interstitial Rad/Brachytherapy-Gold 198 "DATA",160.17,7,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,628,"I") "DATA",160.17,7,"FIELD",44,2) BLANK "DATA",160.17,7,"FIELD",44,3) L,BLANK "DATA",160.17,7,"FIELD",45,0) 1076^1^1076^Interstitial Rad/Brachytherapy-Iodine 125 "DATA",160.17,7,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,627,"I") "DATA",160.17,7,"FIELD",45,2) BLANK "DATA",160.17,7,"FIELD",45,3) L,BLANK "DATA",160.17,7,"FIELD",46,0) 1077^1^1077^Interstitial Rad/Brachytherapy-Iridium 192 "DATA",160.17,7,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,630,"I") "DATA",160.17,7,"FIELD",46,2) BLANK "DATA",160.17,7,"FIELD",46,3) L,BLANK "DATA",160.17,7,"FIELD",47,0) 1078^1^1078^Interstitial Rad/Brachytherapy-Other, NOS "DATA",160.17,7,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,631,"I") "DATA",160.17,7,"FIELD",47,2) BLANK "DATA",160.17,7,"FIELD",47,3) L,BLANK "DATA",160.17,7,"FIELD",48,0) 1079^1^1079^Interstitial Rad/Brachytherapy-Palladium 103 "DATA",160.17,7,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,629,"I") "DATA",160.17,7,"FIELD",48,2) BLANK "DATA",160.17,7,"FIELD",48,3) L,BLANK "DATA",160.17,7,"FIELD",49,0) 1080^1^1080^Route of Interstitial Radiation/Brachytherapy "DATA",160.17,7,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,693,"I") "DATA",160.17,7,"FIELD",49,2) BLANK "DATA",160.17,7,"FIELD",49,3) L,BLANK "DATA",160.17,7,"FIELD",50,0) 1081^1^1081^External Rad-Distant metastatic sites "DATA",160.17,7,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,636,"I") "DATA",160.17,7,"FIELD",50,2) BLANK "DATA",160.17,7,"FIELD",50,3) L,BLANK "DATA",160.17,7,"FIELD",51,0) 1082^1^1082^External Rad-Prostate and pelvic nodes "DATA",160.17,7,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,634,"I") "DATA",160.17,7,"FIELD",51,2) BLANK "DATA",160.17,7,"FIELD",51,3) L,BLANK "DATA",160.17,7,"FIELD",52,0) 1083^1^1083^External Rad-Prostate and para-aortic nodes "DATA",160.17,7,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,635,"I") "DATA",160.17,7,"FIELD",52,2) BLANK "DATA",160.17,7,"FIELD",52,3) L,BLANK "DATA",160.17,7,"FIELD",53,0) 1084^1^1084^External Rad-Prostate region only "DATA",160.17,7,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,633,"I") "DATA",160.17,7,"FIELD",53,2) BLANK "DATA",160.17,7,"FIELD",53,3) L,BLANK "DATA",160.17,7,"FIELD",54,0) 1085^1^1085^External Rad-Other external sites, NOS "DATA",160.17,7,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,637,"I") "DATA",160.17,7,"FIELD",54,2) BLANK "DATA",160.17,7,"FIELD",54,3) L,BLANK "DATA",160.17,7,"FIELD",55,0) 1086^1^1086^Type of External Radiation Administration "DATA",160.17,7,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,694,"I") "DATA",160.17,7,"FIELD",55,2) BLANK "DATA",160.17,7,"FIELD",55,3) L,BLANK "DATA",160.17,7,"FIELD",56,0) 1087^1^1087^Total Ext Rad Dose Inc Boost-Prostate "DATA",160.17,7,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,638,"I") "DATA",160.17,7,"FIELD",56,2) BLANK "DATA",160.17,7,"FIELD",56,3) L,BLANK "DATA",160.17,7,"FIELD",57,0) 1088^1^1088^Total Ext Rad Dose Inc Boost-Pelvic Nodes "DATA",160.17,7,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,639,"I") "DATA",160.17,7,"FIELD",57,2) BLANK "DATA",160.17,7,"FIELD",57,3) L,BLANK "DATA",160.17,7,"FIELD",58,0) 1089^1^1089^Total Ext Rad Dose Inc Boost-Para-aortic "DATA",160.17,7,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,640,"I") "DATA",160.17,7,"FIELD",58,2) BLANK "DATA",160.17,7,"FIELD",58,3) L,BLANK "DATA",160.17,7,"FIELD",59,0) 1090^1^1090^Complications Foll Rad-Acute gastrointestinal "DATA",160.17,7,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,695,"I") "DATA",160.17,7,"FIELD",59,2) BLANK "DATA",160.17,7,"FIELD",59,3) L,BLANK "DATA",160.17,7,"FIELD",60,0) 1091^1^1091^Complications Foll Rad-Acute gastrourinary "DATA",160.17,7,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,696,"I") "DATA",160.17,7,"FIELD",60,2) BLANK "DATA",160.17,7,"FIELD",60,3) L,BLANK "DATA",160.17,7,"FIELD",61,0) 1092^1^1092^Complications Foll Rad-Anorectal "DATA",160.17,7,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,697,"I") "DATA",160.17,7,"FIELD",61,2) BLANK "DATA",160.17,7,"FIELD",61,3) L,BLANK "DATA",160.17,7,"FIELD",62,0) 1093^1^1093^Complications Foll Rad-Req surgery or hosp "DATA",160.17,7,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,698,"I") "DATA",160.17,7,"FIELD",62,2) BLANK "DATA",160.17,7,"FIELD",62,3) L,BLANK "DATA",160.17,7,"FIELD",63,0) 1094^1^1094^Complications Foll Rad-Urethral or bladder "DATA",160.17,7,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,698,"I") "DATA",160.17,7,"FIELD",63,2) BLANK "DATA",160.17,7,"FIELD",63,3) L,BLANK "DATA",160.17,7,"FIELD",64,0) 1095^8^1102^Date of Orchiectomy "DATA",160.17,7,"FIELD",64,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,699.1,"I")) "DATA",160.17,7,"FIELD",64,2) BLANK "DATA",160.17,7,"FIELD",64,3) L,BLANK "DATA",160.17,7,"FIELD",65,0) 1103^8^1110^Date Exogenous Hormone Therapy Began "DATA",160.17,7,"FIELD",65,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.17,7,"FIELD",65,2) BLANK "DATA",160.17,7,"FIELD",65,3) L,BLANK "DATA",160.17,7,"FIELD",66,0) 1111^1^1111^Exogenous Hormone Agents-Antiandrogens "DATA",160.17,7,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,644,"I") "DATA",160.17,7,"FIELD",66,2) BLANK "DATA",160.17,7,"FIELD",66,3) L,BLANK "DATA",160.17,7,"FIELD",67,0) 1112^1^1112^Exogenous Hormone Agents-Estrogens "DATA",160.17,7,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,643,"I") "DATA",160.17,7,"FIELD",67,2) BLANK "DATA",160.17,7,"FIELD",67,3) L,BLANK "DATA",160.17,7,"FIELD",68,0) 1113^1^1113^Exogenous Hormone Agents-Luteinizing hormones "DATA",160.17,7,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,646,"I") "DATA",160.17,7,"FIELD",68,2) BLANK "DATA",160.17,7,"FIELD",68,3) L,BLANK "DATA",160.17,7,"FIELD",69,0) 1114^1^1114^Exogenous Hormone Agents-Progestational "DATA",160.17,7,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,645,"I") "DATA",160.17,7,"FIELD",69,2) BLANK "DATA",160.17,7,"FIELD",69,3) L,BLANK "DATA",160.17,7,"FIELD",70,0) 1115^1^1115^Exogenous Hormone Agents-Other "DATA",160.17,7,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,648,"I") "DATA",160.17,7,"FIELD",70,2) BLANK "DATA",160.17,7,"FIELD",70,3) L,BLANK "DATA",160.17,7,"FIELD",71,0) 1116^3^1118^Completed by "DATA",160.17,7,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,7,"FIELD",71,2) BLANK "DATA",160.17,7,"FIELD",71,3) L,BLANK "DATA",160.17,7,"FIELD",72,0) 1119^3^1121^Clinical Review by Cancer Committee "DATA",160.17,7,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,7,"FIELD",72,2) BLANK "DATA",160.17,7,"FIELD",72,3) L,BLANK "DATA",160.17,7,"FIELD",73,0) 1122^404^1525^Reserved "DATA",160.17,7,"FIELD",73,1) S ACDANS="" "DATA",160.17,7,"FIELD",73,2) BLANK "DATA",160.17,7,"FIELD",73,3) L,BLANK "DATA",160.17,8,0) MELANOMA "DATA",160.17,8,"FIELD",0) ^160.171I^44^44 "DATA",160.17,8,"FIELD",1,0) 1026^1^1026^Personal History of Melanoma "DATA",160.17,8,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1100,"I") "DATA",160.17,8,"FIELD",1,2) BLANK "DATA",160.17,8,"FIELD",1,3) L,BLANK "DATA",160.17,8,"FIELD",2,0) 1027^1^1027^Personal History of Other Cancer "DATA",160.17,8,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1101,"I") "DATA",160.17,8,"FIELD",2,2) BLANK "DATA",160.17,8,"FIELD",2,3) L,BLANK "DATA",160.17,8,"FIELD",3,0) 1028^4^1031^1st Site Code "DATA",160.17,8,"FIELD",3,1) S ACDANS="C"_$E($$GET1~DIQ(165.5,IEN,1102,"I"),3,5) "DATA",160.17,8,"FIELD",3,2) BLANK "DATA",160.17,8,"FIELD",3,3) L,BLANK "DATA",160.17,8,"FIELD",4,0) 1032^6^1037^Date Diagnosed "DATA",160.17,8,"FIELD",4,1) S Y=$$GET1~DIQ(165.5,IEN,1103,"I") D CHDTOT~ONCOPCE S ACDANS=$E(Y,1,2)_$E(Y,4,7) "DATA",160.17,8,"FIELD",4,2) BLANK "DATA",160.17,8,"FIELD",4,3) L,BLANK "DATA",160.17,8,"FIELD",5,0) 1038^4^1041^2nd Site Code "DATA",160.17,8,"FIELD",5,1) S ACDANS="C"_$E($$GET1~DIQ(165.5,IEN,1104,"I"),3,5) "DATA",160.17,8,"FIELD",5,2) BLANK "DATA",160.17,8,"FIELD",5,3) L,BLANK "DATA",160.17,8,"FIELD",6,0) 1042^6^1047^Date Diagnosed "DATA",160.17,8,"FIELD",6,1) S Y=$$GET1~DIQ(165.5,IEN,1105,"I") D CHDTOT~ONCOPCE S ACDANS=$E(Y,1,2)_$E(Y,4,7) "DATA",160.17,8,"FIELD",6,2) BLANK "DATA",160.17,8,"FIELD",6,3) L,BLANK "DATA",160.17,8,"FIELD",7,0) 1048^1^1048^Pregnancy at Initial Diagnosis "DATA",160.17,8,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1106,"I") "DATA",160.17,8,"FIELD",7,2) BLANK "DATA",160.17,8,"FIELD",7,3) L,BLANK "DATA",160.17,8,"FIELD",8,0) 1049^1^1049^Exogenous Hormones "DATA",160.17,8,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1107,"I") "DATA",160.17,8,"FIELD",8,2) BLANK "DATA",160.17,8,"FIELD",8,3) L,BLANK "DATA",160.17,8,"FIELD",9,0) 1050^1^1050^Location of Disease Presentation "DATA",160.17,8,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1108,"I") "DATA",160.17,8,"FIELD",9,2) BLANK "DATA",160.17,8,"FIELD",9,3) L,BLANK "DATA",160.17,8,"FIELD",10,0) 1051^3^1053^Size of Tumor "DATA",160.17,8,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1132,"I") "DATA",160.17,8,"FIELD",10,2) BLANK "DATA",160.17,8,"FIELD",10,3) L,ZERO "DATA",160.17,8,"FIELD",11,0) 1054^1^1054^Extranodal Extension "DATA",160.17,8,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1110,"I") "DATA",160.17,8,"FIELD",11,2) BLANK "DATA",160.17,8,"FIELD",11,3) L,BLANK "DATA",160.17,8,"FIELD",12,0) 1055^1^1055^Microsatellitosis "DATA",160.17,8,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1111,"I") "DATA",160.17,8,"FIELD",12,2) BLANK "DATA",160.17,8,"FIELD",12,3) L,BLANK "DATA",160.17,8,"FIELD",13,0) 1056^2^1057^Number of Satellite Nodules "DATA",160.17,8,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1112,"I") "DATA",160.17,8,"FIELD",13,2) BLANK "DATA",160.17,8,"FIELD",13,3) L,ZERO "DATA",160.17,8,"FIELD",14,0) 1058^1^1058^Location of In-transit Nodules "DATA",160.17,8,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1113,"I") "DATA",160.17,8,"FIELD",14,2) BLANK "DATA",160.17,8,"FIELD",14,3) L,BLANK "DATA",160.17,8,"FIELD",15,0) 1059^3^1061^Breslow's Thickness "DATA",160.17,8,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1114,"I") "DATA",160.17,8,"FIELD",15,2) BLANK "DATA",160.17,8,"FIELD",15,3) L,ZERO "DATA",160.17,8,"FIELD",16,0) 1062^1^1062^Clark's Level of Invasion "DATA",160.17,8,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1115,"I") "DATA",160.17,8,"FIELD",16,2) BLANK "DATA",160.17,8,"FIELD",16,3) L,BLANK "DATA",160.17,8,"FIELD",17,0) 1063^1^1063^Angiolymphatic Invasion "DATA",160.17,8,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1116,"I") "DATA",160.17,8,"FIELD",17,2) BLANK "DATA",160.17,8,"FIELD",17,3) L,BLANK "DATA",160.17,8,"FIELD",18,0) 1064^1^1064^Perineural Invasion "DATA",160.17,8,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1117,"I") "DATA",160.17,8,"FIELD",18,2) BLANK "DATA",160.17,8,"FIELD",18,3) L,BLANK "DATA",160.17,8,"FIELD",19,0) 1065^1^1065^Ulceration "DATA",160.17,8,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1118,"I") "DATA",160.17,8,"FIELD",19,2) BLANK "DATA",160.17,8,"FIELD",19,3) L,BLANK "DATA",160.17,8,"FIELD",20,0) 1066^1^1066^Clinically Amelanotic "DATA",160.17,8,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1119,"I") "DATA",160.17,8,"FIELD",20,2) BLANK "DATA",160.17,8,"FIELD",20,3) L,BLANK "DATA",160.17,8,"FIELD",21,0) 1067^2^1068^Protocol Participation "DATA",160.17,8,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.17,8,"FIELD",21,2) BLANK "DATA",160.17,8,"FIELD",21,3) L,BLANK "DATA",160.17,8,"FIELD",22,0) 1069^1^1069^Type of Biopsy "DATA",160.17,8,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1109,"I") "DATA",160.17,8,"FIELD",22,2) BLANK "DATA",160.17,8,"FIELD",22,3) L,BLANK "DATA",160.17,8,"FIELD",23,0) 1070^3^1072^Margin Distance "DATA",160.17,8,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1120,"I") "DATA",160.17,8,"FIELD",23,2) BLANK "DATA",160.17,8,"FIELD",23,3) L,ZERO "DATA",160.17,8,"FIELD",24,0) 1073^1^1073^Surgical Closure "DATA",160.17,8,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1121,"I") "DATA",160.17,8,"FIELD",24,2) BLANK "DATA",160.17,8,"FIELD",24,3) L,BLANK "DATA",160.17,8,"FIELD",25,0) 1074^1^1074^Was Lymphoscintigraphy Performed Pre-op "DATA",160.17,8,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1122,"I") "DATA",160.17,8,"FIELD",25,2) BLANK "DATA",160.17,8,"FIELD",25,3) L,BLANK "DATA",160.17,8,"FIELD",26,0) 1075^1^1075^Sentinel Node Detected By "DATA",160.17,8,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1123,"I") "DATA",160.17,8,"FIELD",26,2) BLANK "DATA",160.17,8,"FIELD",26,3) L,BLANK "DATA",160.17,8,"FIELD",27,0) 1076^1^1076^Sentinel Node Biopsy "DATA",160.17,8,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,943,"I") "DATA",160.17,8,"FIELD",27,2) BLANK "DATA",160.17,8,"FIELD",27,3) L,BLANK "DATA",160.17,8,"FIELD",28,0) 1077^1^1077^Number of Sentinel Nodes Examined "DATA",160.17,8,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1124,"I") "DATA",160.17,8,"FIELD",28,2) BLANK "DATA",160.17,8,"FIELD",28,3) L,BLANK "DATA",160.17,8,"FIELD",29,0) 1078^1^1078^Number of Sentinel Nodes Positive "DATA",160.17,8,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1125,"I") "DATA",160.17,8,"FIELD",29,2) BLANK "DATA",160.17,8,"FIELD",29,3) L,BLANK "DATA",160.17,8,"FIELD",30,0) 1079^1^1079^How Was Sentinel Node Pathologically Examined "DATA",160.17,8,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1126,"I") "DATA",160.17,8,"FIELD",30,2) BLANK "DATA",160.17,8,"FIELD",30,3) L,BLANK "DATA",160.17,8,"FIELD",31,0) 1080^1^1080^Was complete lymph node dissection performed "DATA",160.17,8,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1127,"I") "DATA",160.17,8,"FIELD",31,2) BLANK "DATA",160.17,8,"FIELD",31,3) L,BLANK "DATA",160.17,8,"FIELD",32,0) 1081^1^1081^Number of basins dissected "DATA",160.17,8,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1128,"I") "DATA",160.17,8,"FIELD",32,2) BLANK "DATA",160.17,8,"FIELD",32,3) L,BLANK "DATA",160.17,8,"FIELD",33,0) 1082^1^1082^Number of basins positive "DATA",160.17,8,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1129,"I") "DATA",160.17,8,"FIELD",33,2) BLANK "DATA",160.17,8,"FIELD",33,3) L,BLANK "DATA",160.17,8,"FIELD",34,0) 1083^1^1083^Intravenous Therapy "DATA",160.17,8,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1130,"I") "DATA",160.17,8,"FIELD",34,2) BLANK "DATA",160.17,8,"FIELD",34,3) L,BLANK "DATA",160.17,8,"FIELD",35,0) 1084^1^1084^Immunotherapeutic Agents-Vaccine therapy "DATA",160.17,8,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,884,"I") "DATA",160.17,8,"FIELD",35,2) BLANK "DATA",160.17,8,"FIELD",35,3) L,BLANK "DATA",160.17,8,"FIELD",36,0) 1085^1^1085^Immunotherapeutic Agents-Gene therapy "DATA",160.17,8,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1131,"I") "DATA",160.17,8,"FIELD",36,2) BLANK "DATA",160.17,8,"FIELD",36,3) L,BLANK "DATA",160.17,8,"FIELD",37,0) 1086^1^1086^Immunotherapeutic Agents-Interleukin 2 "DATA",160.17,8,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,385,"I") "DATA",160.17,8,"FIELD",37,2) BLANK "DATA",160.17,8,"FIELD",37,3) L,BLANK "DATA",160.17,8,"FIELD",38,0) 1087^1^1088^Immunotherapeutic Agents-Interferon "DATA",160.17,8,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.17,8,"FIELD",38,2) BLANK "DATA",160.17,8,"FIELD",38,3) L,BLANK "DATA",160.17,8,"FIELD",39,0) 1088^1^1088^Immunotherapeutic Agents-Levamisole "DATA",160.17,8,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,791,"I") "DATA",160.17,8,"FIELD",39,2) BLANK "DATA",160.17,8,"FIELD",39,3) L,BLANK "DATA",160.17,8,"FIELD",40,0) 1089^1^1089^Immunotherapeutic Agents-Col stimulating fac "DATA",160.17,8,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,559,"I") "DATA",160.17,8,"FIELD",40,2) BLANK "DATA",160.17,8,"FIELD",40,3) L,BLANK "DATA",160.17,8,"FIELD",41,0) 1090^1^1090^Immunotherapeutic Agents-Type unknown "DATA",160.17,8,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,386,"I") "DATA",160.17,8,"FIELD",41,2) BLANK "DATA",160.17,8,"FIELD",41,3) L,BLANK "DATA",160.17,8,"FIELD",42,0) 1091^3^1093^Completed by "DATA",160.17,8,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,8,"FIELD",42,2) BLANK "DATA",160.17,8,"FIELD",42,3) L,BLANK "DATA",160.17,8,"FIELD",43,0) 1094^3^1096^Reviewed by Cancer Committee "DATA",160.17,8,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,8,"FIELD",43,2) BLANK "DATA",160.17,8,"FIELD",43,3) L,BLANK "DATA",160.17,8,"FIELD",44,0) 1097^429^1525^Reserved "DATA",160.17,8,"FIELD",44,1) S ACDANS="" "DATA",160.17,8,"FIELD",44,2) BLANK "DATA",160.17,8,"FIELD",44,3) L,BLANK "DATA",160.17,9,0) HEPATOCELLULAR CANCERS "DATA",160.17,9,"FIELD",0) ^160.171I^73^73 "DATA",160.17,9,"FIELD",1,0) 1026^1^1026^Oral contraceptives "DATA",160.17,9,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1000,"I") "DATA",160.17,9,"FIELD",1,2) BLANK "DATA",160.17,9,"FIELD",1,3) L,BLANK "DATA",160.17,9,"FIELD",2,0) 1027^1^1027^Estrogen replacement "DATA",160.17,9,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1001,"I") "DATA",160.17,9,"FIELD",2,2) BLANK "DATA",160.17,9,"FIELD",2,3) L,BLANK "DATA",160.17,9,"FIELD",3,0) 1028^1^1028^Tamoxifen "DATA",160.17,9,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1002,"I") "DATA",160.17,9,"FIELD",3,2) BLANK "DATA",160.17,9,"FIELD",3,3) L,BLANK "DATA",160.17,9,"FIELD",4,0) 1029^1^1029^Other "DATA",160.17,9,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1003,"I") "DATA",160.17,9,"FIELD",4,2) BLANK "DATA",160.17,9,"FIELD",4,3) L,BLANK "DATA",160.17,9,"FIELD",5,0) 1030^1^1030^Ascites "DATA",160.17,9,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1004,"I") "DATA",160.17,9,"FIELD",5,2) BLANK "DATA",160.17,9,"FIELD",5,3) L,BLANK "DATA",160.17,9,"FIELD",6,0) 1031^1^1031^Cirrhosis "DATA",160.17,9,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1005,"I") "DATA",160.17,9,"FIELD",6,2) BLANK "DATA",160.17,9,"FIELD",6,3) L,BLANK "DATA",160.17,9,"FIELD",7,0) 1032^1^1032^Child's Class A "DATA",160.17,9,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1006,"I") "DATA",160.17,9,"FIELD",7,2) BLANK "DATA",160.17,9,"FIELD",7,3) L,BLANK "DATA",160.17,9,"FIELD",8,0) 1033^1^1033^Child's Class B "DATA",160.17,9,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1007,"I") "DATA",160.17,9,"FIELD",8,2) BLANK "DATA",160.17,9,"FIELD",8,3) L,BLANK "DATA",160.17,9,"FIELD",9,0) 1034^1^1034^Child's Class C "DATA",160.17,9,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1008,"I") "DATA",160.17,9,"FIELD",9,2) BLANK "DATA",160.17,9,"FIELD",9,3) L,BLANK "DATA",160.17,9,"FIELD",10,0) 1035^1^1035^Hepatitis B "DATA",160.17,9,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1009,"I") "DATA",160.17,9,"FIELD",10,2) BLANK "DATA",160.17,9,"FIELD",10,3) L,BLANK "DATA",160.17,9,"FIELD",11,0) 1036^1^1036^Hepatitis C "DATA",160.17,9,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1010,"I") "DATA",160.17,9,"FIELD",11,2) BLANK "DATA",160.17,9,"FIELD",11,3) L,BLANK "DATA",160.17,9,"FIELD",12,0) 1037^1^1037^Hemochromatosis "DATA",160.17,9,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1011,"I") "DATA",160.17,9,"FIELD",12,2) BLANK "DATA",160.17,9,"FIELD",12,3) L,BLANK "DATA",160.17,9,"FIELD",13,0) 1038^3^1040^Alcohol Consumption "DATA",160.17,9,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1012,"I") "DATA",160.17,9,"FIELD",13,2) BLANK "DATA",160.17,9,"FIELD",13,3) L,ZERO "DATA",160.17,9,"FIELD",14,0) 1041^5^1045^AFP (IU/ml) "DATA",160.17,9,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1013,"I") "DATA",160.17,9,"FIELD",14,2) BLANK "DATA",160.17,9,"FIELD",14,3) L,ZERO "DATA",160.17,9,"FIELD",15,0) 1046^5^1050^CEA (mg/ml) "DATA",160.17,9,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1014,"I") "DATA",160.17,9,"FIELD",15,2) BLANK "DATA",160.17,9,"FIELD",15,3) L,ZERO "DATA",160.17,9,"FIELD",16,0) 1051^5^1055^CA19.9 (U/ml) "DATA",160.17,9,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1015,"I") "DATA",160.17,9,"FIELD",16,2) BLANK "DATA",160.17,9,"FIELD",16,3) L,ZERO "DATA",160.17,9,"FIELD",17,0) 1056^5^1060^Protime (sec) "DATA",160.17,9,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1016,"I") "DATA",160.17,9,"FIELD",17,2) BLANK "DATA",160.17,9,"FIELD",17,3) L,ZERO "DATA",160.17,9,"FIELD",18,0) 1061^5^1065^Bilirubin (mg/ml) "DATA",160.17,9,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1017,"I") "DATA",160.17,9,"FIELD",18,2) BLANK "DATA",160.17,9,"FIELD",18,3) L,ZERO "DATA",160.17,9,"FIELD",19,0) 1066^5^1070^Albumin (g/dl) "DATA",160.17,9,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1018,"I") "DATA",160.17,9,"FIELD",19,2) BLANK "DATA",160.17,9,"FIELD",19,3) L,ZERO "DATA",160.17,9,"FIELD",20,0) 1071^5^1075^LDH (U/l) "DATA",160.17,9,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1019,"I") "DATA",160.17,9,"FIELD",20,2) BLANK "DATA",160.17,9,"FIELD",20,3) L,ZERO "DATA",160.17,9,"FIELD",21,0) 1076^1^1076^CT arterial portography-Performed "DATA",160.17,9,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1020,"I") "DATA",160.17,9,"FIELD",21,2) BLANK "DATA",160.17,9,"FIELD",21,3) L,BLANK "DATA",160.17,9,"FIELD",22,0) 1077^1^1077^CT arterial portography-Cirrhosis "DATA",160.17,9,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1021,"I") "DATA",160.17,9,"FIELD",22,2) BLANK "DATA",160.17,9,"FIELD",22,3) L,BLANK "DATA",160.17,9,"FIELD",23,0) 1078^1^1078^CT arterial portography-Vascular invasion "DATA",160.17,9,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1022,"I") "DATA",160.17,9,"FIELD",23,2) BLANK "DATA",160.17,9,"FIELD",23,3) L,BLANK "DATA",160.17,9,"FIELD",24,0) 1079^1^1079^CT arterial portography-Bilobar disease "DATA",160.17,9,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1023,"I") "DATA",160.17,9,"FIELD",24,2) BLANK "DATA",160.17,9,"FIELD",24,3) L,BLANK "DATA",160.17,9,"FIELD",25,0) 1080^1^1080^CT arterial portography-Lymph nodes "DATA",160.17,9,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1024,"I") "DATA",160.17,9,"FIELD",25,2) BLANK "DATA",160.17,9,"FIELD",25,3) L,BLANK "DATA",160.17,9,"FIELD",26,0) 1081^3^1083^CT arterial portography-Size of dom tumor "DATA",160.17,9,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1025,"I") "DATA",160.17,9,"FIELD",26,2) BLANK "DATA",160.17,9,"FIELD",26,3) L,ZERO "DATA",160.17,9,"FIELD",27,0) 1084^2^1085^CT arterial portography-Number of tumors "DATA",160.17,9,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1026,"I") "DATA",160.17,9,"FIELD",27,2) BLANK "DATA",160.17,9,"FIELD",27,3) L,ZERO "DATA",160.17,9,"FIELD",28,0) 1086^1^1086^Spiral CT-Performed "DATA",160.17,9,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1027,"I") "DATA",160.17,9,"FIELD",28,2) BLANK "DATA",160.17,9,"FIELD",28,3) L,BLANK "DATA",160.17,9,"FIELD",29,0) 1087^1^1087^Spiral CT-Cirrhosis "DATA",160.17,9,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1028,"I") "DATA",160.17,9,"FIELD",29,2) BLANK "DATA",160.17,9,"FIELD",29,3) L,BLANK "DATA",160.17,9,"FIELD",30,0) 1088^1^1088^Spiral CT-Vascular invasion "DATA",160.17,9,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1029,"I") "DATA",160.17,9,"FIELD",30,2) BLANK "DATA",160.17,9,"FIELD",30,3) L,BLANK "DATA",160.17,9,"FIELD",31,0) 1089^1^1089^Spiral CT-Bilobar disease "DATA",160.17,9,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1030,"I") "DATA",160.17,9,"FIELD",31,2) BLANK "DATA",160.17,9,"FIELD",31,3) L,BLANK "DATA",160.17,9,"FIELD",32,0) 1090^1^1090^Spiral CT-Lymph nodes "DATA",160.17,9,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1031,"I") "DATA",160.17,9,"FIELD",32,2) BLANK "DATA",160.17,9,"FIELD",32,3) L,BLANK "DATA",160.17,9,"FIELD",33,0) 1091^3^1093^Spiral CT-Size of dom tumor "DATA",160.17,9,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1032,"I") "DATA",160.17,9,"FIELD",33,2) BLANK "DATA",160.17,9,"FIELD",33,3) L,ZERO "DATA",160.17,9,"FIELD",34,0) 1094^2^1095^Spiral CT-Number of tumors "DATA",160.17,9,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1033,"I") "DATA",160.17,9,"FIELD",34,2) BLANK "DATA",160.17,9,"FIELD",34,3) L,ZERO "DATA",160.17,9,"FIELD",35,0) 1096^1^1096^Incremental CT-Performed "DATA",160.17,9,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1034,"I") "DATA",160.17,9,"FIELD",35,2) BLANK "DATA",160.17,9,"FIELD",35,3) L,BLANK "DATA",160.17,9,"FIELD",36,0) 1097^1^1097^Incremental CT-Cirrhosis "DATA",160.17,9,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1035,"I") "DATA",160.17,9,"FIELD",36,2) BLANK "DATA",160.17,9,"FIELD",36,3) L,BLANK "DATA",160.17,9,"FIELD",37,0) 1098^1^1098^Incremental CT-Vascular invasion "DATA",160.17,9,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1036,"I") "DATA",160.17,9,"FIELD",37,2) BLANK "DATA",160.17,9,"FIELD",37,3) L,BLANK "DATA",160.17,9,"FIELD",38,0) 1099^1^1099^Incremental CT-Bilobar disease "DATA",160.17,9,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1037,"I") "DATA",160.17,9,"FIELD",38,2) BLANK "DATA",160.17,9,"FIELD",38,3) L,BLANK "DATA",160.17,9,"FIELD",39,0) 1100^1^1100^Incremental CT-Lymph nodes "DATA",160.17,9,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1038,"I") "DATA",160.17,9,"FIELD",39,2) BLANK "DATA",160.17,9,"FIELD",39,3) L,BLANK "DATA",160.17,9,"FIELD",40,0) 1101^3^1103^Incremental CT-Size of dom tumor "DATA",160.17,9,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1039,"I") "DATA",160.17,9,"FIELD",40,2) BLANK "DATA",160.17,9,"FIELD",40,3) L,ZERO "DATA",160.17,9,"FIELD",41,0) 1104^2^1105^Incremental CT-Number of tumors "DATA",160.17,9,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1040,"I") "DATA",160.17,9,"FIELD",41,2) BLANK "DATA",160.17,9,"FIELD",41,3) L,ZERO "DATA",160.17,9,"FIELD",42,0) 1106^1^1106^Ultrasound-Performed "DATA",160.17,9,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1041,"I") "DATA",160.17,9,"FIELD",42,2) BLANK "DATA",160.17,9,"FIELD",42,3) L,BLANK "DATA",160.17,9,"FIELD",43,0) 1107^1^1107^Ultrasound-Cirrhosis "DATA",160.17,9,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1042,"I") "DATA",160.17,9,"FIELD",43,2) BLANK "DATA",160.17,9,"FIELD",43,3) L,BLANK "DATA",160.17,9,"FIELD",44,0) 1108^1^1108^Ultrasound-Vascular invasion "DATA",160.17,9,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1043,"I") "DATA",160.17,9,"FIELD",44,2) BLANK "DATA",160.17,9,"FIELD",44,3) L,BLANK "DATA",160.17,9,"FIELD",45,0) 1109^1^1109^Ultrasound-Bilobar disease "DATA",160.17,9,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1044,"I") "DATA",160.17,9,"FIELD",45,2) BLANK "DATA",160.17,9,"FIELD",45,3) L,BLANK "DATA",160.17,9,"FIELD",46,0) 1110^1^1110^Ultrasound-Lymph nodes "DATA",160.17,9,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1045,"I") "DATA",160.17,9,"FIELD",46,2) BLANK "DATA",160.17,9,"FIELD",46,3) L,BLANK "DATA",160.17,9,"FIELD",47,0) 1111^3^1113^Ultrasound-Size of dom tumor "DATA",160.17,9,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1046,"I") "DATA",160.17,9,"FIELD",47,2) BLANK "DATA",160.17,9,"FIELD",47,3) L,ZERO "DATA",160.17,9,"FIELD",48,0) 1114^2^1115^Ultrasound-Number of tumors "DATA",160.17,9,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1047,"I") "DATA",160.17,9,"FIELD",48,2) BLANK "DATA",160.17,9,"FIELD",48,3) L,ZERO "DATA",160.17,9,"FIELD",49,0) 1116^1^1116^MRI-Performed "DATA",160.17,9,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1048,"I") "DATA",160.17,9,"FIELD",49,2) BLANK "DATA",160.17,9,"FIELD",49,3) L,BLANK "DATA",160.17,9,"FIELD",50,0) 1117^1^1117^MRI-Cirrhosis "DATA",160.17,9,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1049,"I") "DATA",160.17,9,"FIELD",50,2) BLANK "DATA",160.17,9,"FIELD",50,3) L,BLANK "DATA",160.17,9,"FIELD",51,0) 1118^1^1118^MRI-Vascular invasion "DATA",160.17,9,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1050,"I") "DATA",160.17,9,"FIELD",51,2) BLANK "DATA",160.17,9,"FIELD",51,3) L,BLANK "DATA",160.17,9,"FIELD",52,0) 1119^1^1119^MRI-Bilobar disease "DATA",160.17,9,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1051,"I") "DATA",160.17,9,"FIELD",52,2) BLANK "DATA",160.17,9,"FIELD",52,3) L,BLANK "DATA",160.17,9,"FIELD",53,0) 1120^1^1120^MRI-Lymph nodes "DATA",160.17,9,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1052,"I") "DATA",160.17,9,"FIELD",53,2) BLANK "DATA",160.17,9,"FIELD",53,3) L,BLANK "DATA",160.17,9,"FIELD",54,0) 1121^3^1123^MRI-Size of dom tumor "DATA",160.17,9,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1053,"I") "DATA",160.17,9,"FIELD",54,2) BLANK "DATA",160.17,9,"FIELD",54,3) L,ZERO "DATA",160.17,9,"FIELD",55,0) 1124^2^1125^MRI-Number of tumors "DATA",160.17,9,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1054,"I") "DATA",160.17,9,"FIELD",55,2) BLANK "DATA",160.17,9,"FIELD",55,3) L,ZERO "DATA",160.17,9,"FIELD",56,0) 1126^1^1126^Definitive Diagnosis "DATA",160.17,9,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1055,"I") "DATA",160.17,9,"FIELD",56,2) BLANK "DATA",160.17,9,"FIELD",56,3) L,BLANK "DATA",160.17,9,"FIELD",57,0) 1127^1^1127^Radio-frequency Destruction of Tumor "DATA",160.17,9,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1056,"I") "DATA",160.17,9,"FIELD",57,2) BLANK "DATA",160.17,9,"FIELD",57,3) L,BLANK "DATA",160.17,9,"FIELD",58,0) 1128^2^1129^Ablation & Resection "DATA",160.17,9,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1057,"I") "DATA",160.17,9,"FIELD",58,2) BLANK "DATA",160.17,9,"FIELD",58,3) L,BLANK "DATA",160.17,9,"FIELD",59,0) 1130^1^1130^Distance of Tumor to Closest Margin "DATA",160.17,9,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1058,"I") "DATA",160.17,9,"FIELD",59,2) BLANK "DATA",160.17,9,"FIELD",59,3) L,BLANK "DATA",160.17,9,"FIELD",60,0) 1131^1^1131^Surgical Tx of Residual Tumor: Ablation "DATA",160.17,9,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1059,"I") "DATA",160.17,9,"FIELD",60,2) BLANK "DATA",160.17,9,"FIELD",60,3) L,BLANK "DATA",160.17,9,"FIELD",61,0) 1132^1^1132^Surgical Tx of Residual Tumor: Resection "DATA",160.17,9,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1060,"I") "DATA",160.17,9,"FIELD",61,2) BLANK "DATA",160.17,9,"FIELD",61,3) L,BLANK "DATA",160.17,9,"FIELD",62,0) 1133^1^1133^Cisplatin "DATA",160.17,9,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1061,"I") "DATA",160.17,9,"FIELD",62,2) BLANK "DATA",160.17,9,"FIELD",62,3) L,BLANK "DATA",160.17,9,"FIELD",63,0) 1134^1^1134^FUDR "DATA",160.17,9,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1062,"I") "DATA",160.17,9,"FIELD",63,2) BLANK "DATA",160.17,9,"FIELD",63,3) L,BLANK "DATA",160.17,9,"FIELD",64,0) 1135^1^1135^5-FU "DATA",160.17,9,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1063,"I") "DATA",160.17,9,"FIELD",64,2) BLANK "DATA",160.17,9,"FIELD",64,3) L,BLANK "DATA",160.17,9,"FIELD",65,0) 1136^1^1136^FU & Leucovorin "DATA",160.17,9,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1064,"I") "DATA",160.17,9,"FIELD",65,2) BLANK "DATA",160.17,9,"FIELD",65,3) L,BLANK "DATA",160.17,9,"FIELD",66,0) 1137^1^1137^Irinotecan (CPT-11) "DATA",160.17,9,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1065,"I") "DATA",160.17,9,"FIELD",66,2) BLANK "DATA",160.17,9,"FIELD",66,3) L,BLANK "DATA",160.17,9,"FIELD",67,0) 1138^1^1138^Mitomycin C "DATA",160.17,9,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1066,"I") "DATA",160.17,9,"FIELD",67,2) BLANK "DATA",160.17,9,"FIELD",67,3) L,BLANK "DATA",160.17,9,"FIELD",68,0) 1139^1^1139^Oxaliplatin "DATA",160.17,9,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1067,"I") "DATA",160.17,9,"FIELD",68,2) BLANK "DATA",160.17,9,"FIELD",68,3) L,BLANK "DATA",160.17,9,"FIELD",69,0) 1140^1^1140^Gemcitabine "DATA",160.17,9,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1068,"I") "DATA",160.17,9,"FIELD",69,2) BLANK "DATA",160.17,9,"FIELD",69,3) L,BLANK "DATA",160.17,9,"FIELD",70,0) 1141^2^1142^Route Chemotherapy Administered "DATA",160.17,9,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1069,"I") "DATA",160.17,9,"FIELD",70,2) BLANK "DATA",160.17,9,"FIELD",70,3) L,BLANK "DATA",160.17,9,"FIELD",71,0) 1143^1^1143^Chemotherapy/Surgery Sequence "DATA",160.17,9,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1070,"I") "DATA",160.17,9,"FIELD",71,2) BLANK "DATA",160.17,9,"FIELD",71,3) L,BLANK "DATA",160.17,9,"FIELD",72,0) 1144^1^1144^Arterial Embolization "DATA",160.17,9,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1071,"I") "DATA",160.17,9,"FIELD",72,2) BLANK "DATA",160.17,9,"FIELD",72,3) L,BLANK "DATA",160.17,9,"FIELD",73,0) 1145^1^1145^Death within 30 Days of Start of Initial Tx "DATA",160.17,9,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1072,"I") "DATA",160.17,9,"FIELD",73,2) BLANK "DATA",160.17,9,"FIELD",73,3) L,BLANK "DATA",160.17,10,0) INTRACRANIAL/CNS TUMORS "DATA",160.17,10,"FIELD",0) ^160.171I^204^204 "DATA",160.17,10,"FIELD",1,0) 1026^1^1026^Handedness "DATA",160.17,10,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1200,"I") "DATA",160.17,10,"FIELD",1,2) BLANK "DATA",160.17,10,"FIELD",1,3) L,BLANK "DATA",160.17,10,"FIELD",2,0) 1027^1^1027^Prior Exposure to Radiation "DATA",160.17,10,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,403,"I") "DATA",160.17,10,"FIELD",2,2) BLANK "DATA",160.17,10,"FIELD",2,3) L,BLANK "DATA",160.17,10,"FIELD",3,0) 1028^1^1028^Hypertension "DATA",160.17,10,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1201,"I") "DATA",160.17,10,"FIELD",3,2) BLANK "DATA",160.17,10,"FIELD",3,3) L,BLANK "DATA",160.17,10,"FIELD",4,0) 1029^1^1029^Multiple sclerosis (MS) "DATA",160.17,10,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1202,"I") "DATA",160.17,10,"FIELD",4,2) BLANK "DATA",160.17,10,"FIELD",4,3) L,BLANK "DATA",160.17,10,"FIELD",5,0) 1030^1^1030^Diabetes "DATA",160.17,10,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1203,"I") "DATA",160.17,10,"FIELD",5,2) BLANK "DATA",160.17,10,"FIELD",5,3) L,BLANK "DATA",160.17,10,"FIELD",6,0) 1031^1^1031^Myocardial infarction (MI) "DATA",160.17,10,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,354,"I") "DATA",160.17,10,"FIELD",6,2) BLANK "DATA",160.17,10,"FIELD",6,3) L,BLANK "DATA",160.17,10,"FIELD",7,0) 1032^1^1032^Cerebrovascular disease "DATA",160.17,10,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1204,"I") "DATA",160.17,10,"FIELD",7,2) BLANK "DATA",160.17,10,"FIELD",7,3) L,BLANK "DATA",160.17,10,"FIELD",8,0) 1033^1^1033^Brain "DATA",160.17,10,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1205,"I") "DATA",160.17,10,"FIELD",8,2) BLANK "DATA",160.17,10,"FIELD",8,3) L,BLANK "DATA",160.17,10,"FIELD",9,0) 1034^1^1034^Breast "DATA",160.17,10,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1206,"I") "DATA",160.17,10,"FIELD",9,2) BLANK "DATA",160.17,10,"FIELD",9,3) L,BLANK "DATA",160.17,10,"FIELD",10,0) 1035^1^1035^Prostate "DATA",160.17,10,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1207,"I") "DATA",160.17,10,"FIELD",10,2) BLANK "DATA",160.17,10,"FIELD",10,3) L,BLANK "DATA",160.17,10,"FIELD",11,0) 1036^1^1036^Malignant melanoma "DATA",160.17,10,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1208,"I") "DATA",160.17,10,"FIELD",11,2) BLANK "DATA",160.17,10,"FIELD",11,3) L,BLANK "DATA",160.17,10,"FIELD",12,0) 1037^1^1037^Other skin cancer "DATA",160.17,10,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1209,"I") "DATA",160.17,10,"FIELD",12,2) BLANK "DATA",160.17,10,"FIELD",12,3) L,BLANK "DATA",160.17,10,"FIELD",13,0) 1038^1^1038^Leukemia "DATA",160.17,10,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1210,"I") "DATA",160.17,10,"FIELD",13,2) BLANK "DATA",160.17,10,"FIELD",13,3) L,BLANK "DATA",160.17,10,"FIELD",14,0) 1039^1^1039^Colon or other GI cancers "DATA",160.17,10,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1211,"I") "DATA",160.17,10,"FIELD",14,2) BLANK "DATA",160.17,10,"FIELD",14,3) L,BLANK "DATA",160.17,10,"FIELD",15,0) 1040^1^1040^Other "DATA",160.17,10,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1212,"I") "DATA",160.17,10,"FIELD",15,2) BLANK "DATA",160.17,10,"FIELD",15,3) L,BLANK "DATA",160.17,10,"FIELD",16,0) 1041^1^1041^Neurofibromatosis "DATA",160.17,10,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1213,"I") "DATA",160.17,10,"FIELD",16,2) BLANK "DATA",160.17,10,"FIELD",16,3) L,BLANK "DATA",160.17,10,"FIELD",17,0) 1042^1^1042^von Hippel-Lindai disease "DATA",160.17,10,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1214,"I") "DATA",160.17,10,"FIELD",17,2) BLANK "DATA",160.17,10,"FIELD",17,3) L,BLANK "DATA",160.17,10,"FIELD",18,0) 1043^1^1043^Tuberous sclerosis "DATA",160.17,10,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1215,"I") "DATA",160.17,10,"FIELD",18,2) BLANK "DATA",160.17,10,"FIELD",18,3) L,BLANK "DATA",160.17,10,"FIELD",19,0) 1044^1^1044^Turcot syndrome "DATA",160.17,10,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1216,"I") "DATA",160.17,10,"FIELD",19,2) BLANK "DATA",160.17,10,"FIELD",19,3) L,BLANK "DATA",160.17,10,"FIELD",20,0) 1045^1^1045^Li-Fraumeni syndrome "DATA",160.17,10,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1217,"I") "DATA",160.17,10,"FIELD",20,2) BLANK "DATA",160.17,10,"FIELD",20,3) L,BLANK "DATA",160.17,10,"FIELD",21,0) 1046^1^1046^Kowden disease "DATA",160.17,10,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1218,"I") "DATA",160.17,10,"FIELD",21,2) BLANK "DATA",160.17,10,"FIELD",21,3) L,BLANK "DATA",160.17,10,"FIELD",22,0) 1047^1^1047^Nevoid basal cell carcinoma syndrome "DATA",160.17,10,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1219,"I") "DATA",160.17,10,"FIELD",22,2) BLANK "DATA",160.17,10,"FIELD",22,3) L,BLANK "DATA",160.17,10,"FIELD",23,0) 1048^1^1048^Headache "DATA",160.17,10,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1220,"I") "DATA",160.17,10,"FIELD",23,2) BLANK "DATA",160.17,10,"FIELD",23,3) L,BLANK "DATA",160.17,10,"FIELD",24,0) 1049^1^1049^Nausea/vomiting "DATA",160.17,10,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1221,"I") "DATA",160.17,10,"FIELD",24,2) BLANK "DATA",160.17,10,"FIELD",24,3) L,BLANK "DATA",160.17,10,"FIELD",25,0) 1050^1^1050^Change in sense of smell and/or taste "DATA",160.17,10,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1222,"I") "DATA",160.17,10,"FIELD",25,2) BLANK "DATA",160.17,10,"FIELD",25,3) L,BLANK "DATA",160.17,10,"FIELD",26,0) 1051^1^1051^Altered alertness "DATA",160.17,10,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1223,"I") "DATA",160.17,10,"FIELD",26,2) BLANK "DATA",160.17,10,"FIELD",26,3) L,BLANK "DATA",160.17,10,"FIELD",27,0) 1052^1^1052^Fatigue "DATA",160.17,10,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1224,"I") "DATA",160.17,10,"FIELD",27,2) BLANK "DATA",160.17,10,"FIELD",27,3) L,BLANK "DATA",160.17,10,"FIELD",28,0) 1053^1^1053^Speech disturbance "DATA",160.17,10,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1225,"I") "DATA",160.17,10,"FIELD",28,2) BLANK "DATA",160.17,10,"FIELD",28,3) L,BLANK "DATA",160.17,10,"FIELD",29,0) 1054^1^1054^Personality changes "DATA",160.17,10,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1226,"I") "DATA",160.17,10,"FIELD",29,2) BLANK "DATA",160.17,10,"FIELD",29,3) L,BLANK "DATA",160.17,10,"FIELD",30,0) 1055^1^1055^Depression "DATA",160.17,10,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1227,"I") "DATA",160.17,10,"FIELD",30,2) BLANK "DATA",160.17,10,"FIELD",30,3) L,BLANK "DATA",160.17,10,"FIELD",31,0) 1056^1^1056^Memory loss "DATA",160.17,10,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1228,"I") "DATA",160.17,10,"FIELD",31,2) BLANK "DATA",160.17,10,"FIELD",31,3) L,BLANK "DATA",160.17,10,"FIELD",32,0) 1057^1^1057^Lack of concentration "DATA",160.17,10,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1229,"I") "DATA",160.17,10,"FIELD",32,2) BLANK "DATA",160.17,10,"FIELD",32,3) L,BLANK "DATA",160.17,10,"FIELD",33,0) 1058^1^1058^Double vision "DATA",160.17,10,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1230,"I") "DATA",160.17,10,"FIELD",33,2) BLANK "DATA",160.17,10,"FIELD",33,3) L,BLANK "DATA",160.17,10,"FIELD",34,0) 1059^1^1059^Other visual disturbance "DATA",160.17,10,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1231,"I") "DATA",160.17,10,"FIELD",34,2) BLANK "DATA",160.17,10,"FIELD",34,3) L,BLANK "DATA",160.17,10,"FIELD",35,0) 1060^1^1060^Decreased hearing "DATA",160.17,10,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1232,"I") "DATA",160.17,10,"FIELD",35,2) BLANK "DATA",160.17,10,"FIELD",35,3) L,BLANK "DATA",160.17,10,"FIELD",36,0) 1061^1^1061^Vertigo "DATA",160.17,10,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1233,"I") "DATA",160.17,10,"FIELD",36,2) BLANK "DATA",160.17,10,"FIELD",36,3) L,BLANK "DATA",160.17,10,"FIELD",37,0) 1062^1^1062^Tinnitus "DATA",160.17,10,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1234,"I") "DATA",160.17,10,"FIELD",37,2) BLANK "DATA",160.17,10,"FIELD",37,3) L,BLANK "DATA",160.17,10,"FIELD",38,0) 1063^1^1063^Numbness/tingling "DATA",160.17,10,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1235,"I") "DATA",160.17,10,"FIELD",38,2) BLANK "DATA",160.17,10,"FIELD",38,3) L,BLANK "DATA",160.17,10,"FIELD",39,0) 1064^1^1064^Weakness or paralysis "DATA",160.17,10,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1236,"I") "DATA",160.17,10,"FIELD",39,2) BLANK "DATA",160.17,10,"FIELD",39,3) L,BLANK "DATA",160.17,10,"FIELD",40,0) 1065^1^1065^Difficulty in coordination/balance "DATA",160.17,10,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1237,"I") "DATA",160.17,10,"FIELD",40,2) BLANK "DATA",160.17,10,"FIELD",40,3) L,BLANK "DATA",160.17,10,"FIELD",41,0) 1066^1^1066^Generalized seizure "DATA",160.17,10,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1238,"I") "DATA",160.17,10,"FIELD",41,2) BLANK "DATA",160.17,10,"FIELD",41,3) L,BLANK "DATA",160.17,10,"FIELD",42,0) 1067^1^1067^Focal seizure "DATA",160.17,10,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1239,"I") "DATA",160.17,10,"FIELD",42,2) BLANK "DATA",160.17,10,"FIELD",42,3) L,BLANK "DATA",160.17,10,"FIELD",43,0) 1068^1^1068^Bladder incontinence "DATA",160.17,10,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1240,"I") "DATA",160.17,10,"FIELD",43,2) BLANK "DATA",160.17,10,"FIELD",43,3) L,BLANK "DATA",160.17,10,"FIELD",44,0) 1069^1^1069^Bowel incontinence "DATA",160.17,10,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1241,"I") "DATA",160.17,10,"FIELD",44,2) BLANK "DATA",160.17,10,"FIELD",44,3) L,BLANK "DATA",160.17,10,"FIELD",45,0) 1070^1^1070^Pain (other than headache) "DATA",160.17,10,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1242,"I") "DATA",160.17,10,"FIELD",45,2) BLANK "DATA",160.17,10,"FIELD",45,3) L,BLANK "DATA",160.17,10,"FIELD",46,0) 1071^1^1071^Weight change "DATA",160.17,10,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1243,"I") "DATA",160.17,10,"FIELD",46,2) BLANK "DATA",160.17,10,"FIELD",46,3) L,BLANK "DATA",160.17,10,"FIELD",47,0) 1072^1^1072^Other "DATA",160.17,10,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1244,"I") "DATA",160.17,10,"FIELD",47,2) BLANK "DATA",160.17,10,"FIELD",47,3) L,BLANK "DATA",160.17,10,"FIELD",48,0) 1073^1^1073^Alertness "DATA",160.17,10,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1245,"I") "DATA",160.17,10,"FIELD",48,2) BLANK "DATA",160.17,10,"FIELD",48,3) L,BLANK "DATA",160.17,10,"FIELD",49,0) 1074^1^1074^Speech "DATA",160.17,10,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1246,"I") "DATA",160.17,10,"FIELD",49,2) BLANK "DATA",160.17,10,"FIELD",49,3) L,BLANK "DATA",160.17,10,"FIELD",50,0) 1075^1^1075^Personality "DATA",160.17,10,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1247,"I") "DATA",160.17,10,"FIELD",50,2) BLANK "DATA",160.17,10,"FIELD",50,3) L,BLANK "DATA",160.17,10,"FIELD",51,0) 1076^1^1076^Memory or judgement "DATA",160.17,10,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1248,"I") "DATA",160.17,10,"FIELD",51,2) BLANK "DATA",160.17,10,"FIELD",51,3) L,BLANK "DATA",160.17,10,"FIELD",52,0) 1077^1^1077^Visual acuity "DATA",160.17,10,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1249,"I") "DATA",160.17,10,"FIELD",52,2) BLANK "DATA",160.17,10,"FIELD",52,3) L,BLANK "DATA",160.17,10,"FIELD",53,0) 1078^1^1078^Visual fields "DATA",160.17,10,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1250,"I") "DATA",160.17,10,"FIELD",53,2) BLANK "DATA",160.17,10,"FIELD",53,3) L,BLANK "DATA",160.17,10,"FIELD",54,0) 1079^1^1079^Eye movements (EOM) "DATA",160.17,10,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1251,"I") "DATA",160.17,10,"FIELD",54,2) BLANK "DATA",160.17,10,"FIELD",54,3) L,BLANK "DATA",160.17,10,"FIELD",55,0) 1080^1^1080^Facial sensation "DATA",160.17,10,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1252,"I") "DATA",160.17,10,"FIELD",55,2) BLANK "DATA",160.17,10,"FIELD",55,3) L,BLANK "DATA",160.17,10,"FIELD",56,0) 1081^1^1081^Facial movement "DATA",160.17,10,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1253,"I") "DATA",160.17,10,"FIELD",56,2) BLANK "DATA",160.17,10,"FIELD",56,3) L,BLANK "DATA",160.17,10,"FIELD",57,0) 1082^1^1082^Hearing "DATA",160.17,10,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1254,"I") "DATA",160.17,10,"FIELD",57,2) BLANK "DATA",160.17,10,"FIELD",57,3) L,BLANK "DATA",160.17,10,"FIELD",58,0) 1083^1^1083^Gag reflex "DATA",160.17,10,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1255,"I") "DATA",160.17,10,"FIELD",58,2) BLANK "DATA",160.17,10,"FIELD",58,3) L,BLANK "DATA",160.17,10,"FIELD",59,0) 1084^1^1084^Sternocleidomastoid/shoulder shrug strength "DATA",160.17,10,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1256,"I") "DATA",160.17,10,"FIELD",59,2) BLANK "DATA",160.17,10,"FIELD",59,3) L,BLANK "DATA",160.17,10,"FIELD",60,0) 1085^1^1085^Articulation or enunciation "DATA",160.17,10,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1257,"I") "DATA",160.17,10,"FIELD",60,2) BLANK "DATA",160.17,10,"FIELD",60,3) L,BLANK "DATA",160.17,10,"FIELD",61,0) 1086^1^1086^Papilledema "DATA",160.17,10,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1258,"I") "DATA",160.17,10,"FIELD",61,2) BLANK "DATA",160.17,10,"FIELD",61,3) L,BLANK "DATA",160.17,10,"FIELD",62,0) 1087^1^1087^Tongue fasciculations or atrophy "DATA",160.17,10,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1259,"I") "DATA",160.17,10,"FIELD",62,2) BLANK "DATA",160.17,10,"FIELD",62,3) L,BLANK "DATA",160.17,10,"FIELD",63,0) 1088^1^1088^Decrease in sensation of any site "DATA",160.17,10,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1260,"I") "DATA",160.17,10,"FIELD",63,2) BLANK "DATA",160.17,10,"FIELD",63,3) L,BLANK "DATA",160.17,10,"FIELD",64,0) 1089^1^1089^Cortical sensory deficit "DATA",160.17,10,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1261,"I") "DATA",160.17,10,"FIELD",64,2) BLANK "DATA",160.17,10,"FIELD",64,3) L,BLANK "DATA",160.17,10,"FIELD",65,0) 1090^1^1090^Weakness, atrophy or fasciculation "DATA",160.17,10,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1262,"I") "DATA",160.17,10,"FIELD",65,2) BLANK "DATA",160.17,10,"FIELD",65,3) L,BLANK "DATA",160.17,10,"FIELD",66,0) 1091^1^1091^Ataxia of gait "DATA",160.17,10,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1263,"I") "DATA",160.17,10,"FIELD",66,2) BLANK "DATA",160.17,10,"FIELD",66,3) L,BLANK "DATA",160.17,10,"FIELD",67,0) 1092^1^1092^Truncal ataxia "DATA",160.17,10,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1264,"I") "DATA",160.17,10,"FIELD",67,2) BLANK "DATA",160.17,10,"FIELD",67,3) L,BLANK "DATA",160.17,10,"FIELD",68,0) 1093^1^1093^Dysmetria "DATA",160.17,10,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1265,"I") "DATA",160.17,10,"FIELD",68,2) BLANK "DATA",160.17,10,"FIELD",68,3) L,BLANK "DATA",160.17,10,"FIELD",69,0) 1094^1^1094^Rapid alternating movements (RAM) "DATA",160.17,10,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1266,"I") "DATA",160.17,10,"FIELD",69,2) BLANK "DATA",160.17,10,"FIELD",69,3) L,BLANK "DATA",160.17,10,"FIELD",70,0) 1095^1^1095^Finger to finger nose testing (FFN) "DATA",160.17,10,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1267,"I") "DATA",160.17,10,"FIELD",70,2) BLANK "DATA",160.17,10,"FIELD",70,3) L,BLANK "DATA",160.17,10,"FIELD",71,0) 1096^1^1096^Heel to knee to shin testing (HKS) "DATA",160.17,10,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1268,"I") "DATA",160.17,10,"FIELD",71,2) BLANK "DATA",160.17,10,"FIELD",71,3) L,BLANK "DATA",160.17,10,"FIELD",72,0) 1097^1^1097^Deep tendon reflexes in upper extremities "DATA",160.17,10,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1269,"I") "DATA",160.17,10,"FIELD",72,2) BLANK "DATA",160.17,10,"FIELD",72,3) L,BLANK "DATA",160.17,10,"FIELD",73,0) 1098^1^1098^Deep tendon reflexes in lower extremities "DATA",160.17,10,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1270,"I") "DATA",160.17,10,"FIELD",73,2) BLANK "DATA",160.17,10,"FIELD",73,3) L,BLANK "DATA",160.17,10,"FIELD",74,0) 1099^1^1099^Babinski sign "DATA",160.17,10,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1271,"I") "DATA",160.17,10,"FIELD",74,2) BLANK "DATA",160.17,10,"FIELD",74,3) L,BLANK "DATA",160.17,10,"FIELD",75,0) 1100^1^1100^Hoffman reflex "DATA",160.17,10,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1272,"I") "DATA",160.17,10,"FIELD",75,2) BLANK "DATA",160.17,10,"FIELD",75,3) L,BLANK "DATA",160.17,10,"FIELD",76,0) 1101^1^1101^Other abnormal reflexes "DATA",160.17,10,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1273,"I") "DATA",160.17,10,"FIELD",76,2) BLANK "DATA",160.17,10,"FIELD",76,3) L,BLANK "DATA",160.17,10,"FIELD",77,0) 1102^1^1102^Angiography "DATA",160.17,10,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1274,"I") "DATA",160.17,10,"FIELD",77,2) BLANK "DATA",160.17,10,"FIELD",77,3) L,BLANK "DATA",160.17,10,"FIELD",78,0) 1103^1^1103^Computed tomography (CT) scan of brain "DATA",160.17,10,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1275,"I") "DATA",160.17,10,"FIELD",78,2) BLANK "DATA",160.17,10,"FIELD",78,3) L,BLANK "DATA",160.17,10,"FIELD",79,0) 1104^1^1104^CT scan of spine "DATA",160.17,10,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1276,"I") "DATA",160.17,10,"FIELD",79,2) BLANK "DATA",160.17,10,"FIELD",79,3) L,BLANK "DATA",160.17,10,"FIELD",80,0) 1105^1^1105^Electroencephalography (EEG) "DATA",160.17,10,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1277,"I") "DATA",160.17,10,"FIELD",80,2) BLANK "DATA",160.17,10,"FIELD",80,3) L,BLANK "DATA",160.17,10,"FIELD",81,0) 1106^1^1106^Isotope brain scan "DATA",160.17,10,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1278,"I") "DATA",160.17,10,"FIELD",81,2) BLANK "DATA",160.17,10,"FIELD",81,3) L,BLANK "DATA",160.17,10,"FIELD",82,0) 1107^1^1107^Positron emission tomography (PET) scan "DATA",160.17,10,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1279,"I") "DATA",160.17,10,"FIELD",82,2) BLANK "DATA",160.17,10,"FIELD",82,3) L,BLANK "DATA",160.17,10,"FIELD",83,0) 1108^1^1108^SPECT scan "DATA",160.17,10,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1280,"I") "DATA",160.17,10,"FIELD",83,2) BLANK "DATA",160.17,10,"FIELD",83,3) L,BLANK "DATA",160.17,10,"FIELD",84,0) 1109^1^1109^Magnetic resonance imaging (MRI) of brain "DATA",160.17,10,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1281,"I") "DATA",160.17,10,"FIELD",84,2) BLANK "DATA",160.17,10,"FIELD",84,3) L,BLANK "DATA",160.17,10,"FIELD",85,0) 1110^1^1110^MRI of spine "DATA",160.17,10,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1282,"I") "DATA",160.17,10,"FIELD",85,2) BLANK "DATA",160.17,10,"FIELD",85,3) L,BLANK "DATA",160.17,10,"FIELD",86,0) 1111^1^1111^Functional MRI "DATA",160.17,10,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1283,"I") "DATA",160.17,10,"FIELD",86,2) BLANK "DATA",160.17,10,"FIELD",86,3) L,BLANK "DATA",160.17,10,"FIELD",87,0) 1112^1^1112^Myelography "DATA",160.17,10,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1284,"I") "DATA",160.17,10,"FIELD",87,2) BLANK "DATA",160.17,10,"FIELD",87,3) L,BLANK "DATA",160.17,10,"FIELD",88,0) 1113^1^1113^Magnetic resonance spectroscopy (MRS) "DATA",160.17,10,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1285,"I") "DATA",160.17,10,"FIELD",88,2) BLANK "DATA",160.17,10,"FIELD",88,3) L,BLANK "DATA",160.17,10,"FIELD",89,0) 1114^1^1114^Frontal lobe "DATA",160.17,10,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1286,"I") "DATA",160.17,10,"FIELD",89,2) BLANK "DATA",160.17,10,"FIELD",89,3) L,BLANK "DATA",160.17,10,"FIELD",90,0) 1115^1^1115^Temporal lobe "DATA",160.17,10,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1287,"I") "DATA",160.17,10,"FIELD",90,2) BLANK "DATA",160.17,10,"FIELD",90,3) L,BLANK "DATA",160.17,10,"FIELD",91,0) 1116^1^1116^Parietal lobe "DATA",160.17,10,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1288,"I") "DATA",160.17,10,"FIELD",91,2) BLANK "DATA",160.17,10,"FIELD",91,3) L,BLANK "DATA",160.17,10,"FIELD",92,0) 1117^1^1117^Occipital lobe "DATA",160.17,10,"FIELD",92,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1289,"I") "DATA",160.17,10,"FIELD",92,2) BLANK "DATA",160.17,10,"FIELD",92,3) L,BLANK "DATA",160.17,10,"FIELD",93,0) 1118^1^1118^Optic nerves "DATA",160.17,10,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1290,"I") "DATA",160.17,10,"FIELD",93,2) BLANK "DATA",160.17,10,"FIELD",93,3) L,BLANK "DATA",160.17,10,"FIELD",94,0) 1119^1^1119^Pituitary gland "DATA",160.17,10,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1291,"I") "DATA",160.17,10,"FIELD",94,2) BLANK "DATA",160.17,10,"FIELD",94,3) L,BLANK "DATA",160.17,10,"FIELD",95,0) 1120^1^1120^Pineal gland "DATA",160.17,10,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1292,"I") "DATA",160.17,10,"FIELD",95,2) BLANK "DATA",160.17,10,"FIELD",95,3) L,BLANK "DATA",160.17,10,"FIELD",96,0) 1121^1^1121^Cerebellum "DATA",160.17,10,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1293,"I") "DATA",160.17,10,"FIELD",96,2) BLANK "DATA",160.17,10,"FIELD",96,3) L,BLANK "DATA",160.17,10,"FIELD",97,0) 1122^1^1122^Brain stem "DATA",160.17,10,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1294,"I") "DATA",160.17,10,"FIELD",97,2) BLANK "DATA",160.17,10,"FIELD",97,3) L,BLANK "DATA",160.17,10,"FIELD",98,0) 1123^1^1123^Skull base "DATA",160.17,10,"FIELD",98,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1295,"I") "DATA",160.17,10,"FIELD",98,2) BLANK "DATA",160.17,10,"FIELD",98,3) L,BLANK "DATA",160.17,10,"FIELD",99,0) 1124^1^1124^Other skull "DATA",160.17,10,"FIELD",99,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1296,"I") "DATA",160.17,10,"FIELD",99,2) BLANK "DATA",160.17,10,"FIELD",99,3) L,BLANK "DATA",160.17,10,"FIELD",100,0) 1125^1^1125^Spinal cord "DATA",160.17,10,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1297,"I") "DATA",160.17,10,"FIELD",100,2) BLANK "DATA",160.17,10,"FIELD",100,3) L,BLANK "DATA",160.17,10,"FIELD",101,0) 1126^1^1126^Cerebral spinal fluid (CSF) "DATA",160.17,10,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1298,"I") "DATA",160.17,10,"FIELD",101,2) BLANK "DATA",160.17,10,"FIELD",101,3) L,BLANK "DATA",160.17,10,"FIELD",102,0) 1127^1^1127^Cranial meninges "DATA",160.17,10,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1299,"I") "DATA",160.17,10,"FIELD",102,2) BLANK "DATA",160.17,10,"FIELD",102,3) L,BLANK "DATA",160.17,10,"FIELD",103,0) 1128^1^1128^Spinal meninges "DATA",160.17,10,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1300,"I") "DATA",160.17,10,"FIELD",103,2) BLANK "DATA",160.17,10,"FIELD",103,3) L,BLANK "DATA",160.17,10,"FIELD",104,0) 1129^1^1129^Other "DATA",160.17,10,"FIELD",104,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1301,"I") "DATA",160.17,10,"FIELD",104,2) BLANK "DATA",160.17,10,"FIELD",104,3) L,BLANK "DATA",160.17,10,"FIELD",105,0) 1130^1^1130^Left "DATA",160.17,10,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1302,"I") "DATA",160.17,10,"FIELD",105,2) BLANK "DATA",160.17,10,"FIELD",105,3) L,BLANK "DATA",160.17,10,"FIELD",106,0) 1131^1^1131^Right "DATA",160.17,10,"FIELD",106,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1303,"I") "DATA",160.17,10,"FIELD",106,2) BLANK "DATA",160.17,10,"FIELD",106,3) L,BLANK "DATA",160.17,10,"FIELD",107,0) 1132^1^1132^Midline "DATA",160.17,10,"FIELD",107,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1304,"I") "DATA",160.17,10,"FIELD",107,2) BLANK "DATA",160.17,10,"FIELD",107,3) L,BLANK "DATA",160.17,10,"FIELD",108,0) 1133^1^1133^Number of Tumors "DATA",160.17,10,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1305,"I") "DATA",160.17,10,"FIELD",108,2) BLANK "DATA",160.17,10,"FIELD",108,3) L,BLANK "DATA",160.17,10,"FIELD",109,0) 1134^8^1141^Date of First Symptoms "DATA",160.17,10,"FIELD",109,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1306,"I")) "DATA",160.17,10,"FIELD",109,2) BLANK "DATA",160.17,10,"FIELD",109,3) L,BLANK "DATA",160.17,10,"FIELD",110,0) 1142^8^1149^Date of Pathologic Diagnosis "DATA",160.17,10,"FIELD",110,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1307,"I")) "DATA",160.17,10,"FIELD",110,2) BLANK "DATA",160.17,10,"FIELD",110,3) L,BLANK "DATA",160.17,10,"FIELD",111,0) 1150^13^1162^WHO Histological Classification of Tumor "DATA",160.17,10,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1308,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.9,ACDANS,.01,"I") "DATA",160.17,10,"FIELD",111,2) BLANK "DATA",160.17,10,"FIELD",111,3) R,BLANK "DATA",160.17,10,"FIELD",112,0) 1163^1^1163^Molecular Markers "DATA",160.17,10,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1309,"I") "DATA",160.17,10,"FIELD",112,2) BLANK "DATA",160.17,10,"FIELD",112,3) L,BLANK "DATA",160.17,10,"FIELD",113,0) 1164^3^1166^Tumor Size "DATA",160.17,10,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1394,"I") "DATA",160.17,10,"FIELD",113,2) BLANK "DATA",160.17,10,"FIELD",113,3) L,ZERO "DATA",160.17,10,"FIELD",114,0) 1167^1^1167^Tumor Size (Source) "DATA",160.17,10,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1310,"I") "DATA",160.17,10,"FIELD",114,2) BLANK "DATA",160.17,10,"FIELD",114,3) L,BLANK "DATA",160.17,10,"FIELD",115,0) 1168^3^1170^Karnofsky's Rating Prior to Therapy "DATA",160.17,10,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1311,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.17,ACDANS,.01,"I") "DATA",160.17,10,"FIELD",115,2) BLANK "DATA",160.17,10,"FIELD",115,3) L,BLANK "DATA",160.17,10,"FIELD",116,0) 1171^2^1172^Protocol Participation "DATA",160.17,10,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1312,"I") "DATA",160.17,10,"FIELD",116,2) BLANK "DATA",160.17,10,"FIELD",116,3) L,BLANK "DATA",160.17,10,"FIELD",117,0) 1173^1^1173^Protocol Phase "DATA",160.17,10,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1313,"I") "DATA",160.17,10,"FIELD",117,2) BLANK "DATA",160.17,10,"FIELD",117,3) L,BLANK "DATA",160.17,10,"FIELD",118,0) 1174^1^1174^None, no non-ca directed surgical procedure "DATA",160.17,10,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1314,"I") "DATA",160.17,10,"FIELD",118,2) BLANK "DATA",160.17,10,"FIELD",118,3) L,BLANK "DATA",160.17,10,"FIELD",119,0) 1175^1^1175^Ventriculostomy/external ventricular drain "DATA",160.17,10,"FIELD",119,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1315,"I") "DATA",160.17,10,"FIELD",119,2) BLANK "DATA",160.17,10,"FIELD",119,3) L,BLANK "DATA",160.17,10,"FIELD",120,0) 1176^1^1176^CSF shunt, ventriculoperitoneal "DATA",160.17,10,"FIELD",120,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1316,"I") "DATA",160.17,10,"FIELD",120,2) BLANK "DATA",160.17,10,"FIELD",120,3) L,BLANK "DATA",160.17,10,"FIELD",121,0) 1177^1^1177^CSF shunt, third ventriculostomy "DATA",160.17,10,"FIELD",121,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1317,"I") "DATA",160.17,10,"FIELD",121,2) BLANK "DATA",160.17,10,"FIELD",121,3) L,BLANK "DATA",160.17,10,"FIELD",122,0) 1178^1^1178^CSF shunt, other "DATA",160.17,10,"FIELD",122,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1318,"I") "DATA",160.17,10,"FIELD",122,2) BLANK "DATA",160.17,10,"FIELD",122,3) L,BLANK "DATA",160.17,10,"FIELD",123,0) 1179^1^1179^Stereotactic biopsy "DATA",160.17,10,"FIELD",123,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1319,"I") "DATA",160.17,10,"FIELD",123,2) BLANK "DATA",160.17,10,"FIELD",123,3) L,BLANK "DATA",160.17,10,"FIELD",124,0) 1180^1^1180^Open brain biopsy "DATA",160.17,10,"FIELD",124,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1320,"I") "DATA",160.17,10,"FIELD",124,2) BLANK "DATA",160.17,10,"FIELD",124,3) L,BLANK "DATA",160.17,10,"FIELD",125,0) 1181^1^1181^Open biopsy of spincal cord tumor "DATA",160.17,10,"FIELD",125,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1321,"I") "DATA",160.17,10,"FIELD",125,2) BLANK "DATA",160.17,10,"FIELD",125,3) L,BLANK "DATA",160.17,10,"FIELD",126,0) 1182^1^1182^Laminectomy w/o resection, w/o opening dura "DATA",160.17,10,"FIELD",126,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1322,"I") "DATA",160.17,10,"FIELD",126,2) BLANK "DATA",160.17,10,"FIELD",126,3) L,BLANK "DATA",160.17,10,"FIELD",127,0) 1183^1^1183^Laminectomy w/o resection, w opening dura "DATA",160.17,10,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1323,"I") "DATA",160.17,10,"FIELD",127,2) BLANK "DATA",160.17,10,"FIELD",127,3) L,BLANK "DATA",160.17,10,"FIELD",128,0) 1184^1^1184^Surgery, NOS "DATA",160.17,10,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1324,"I") "DATA",160.17,10,"FIELD",128,2) BLANK "DATA",160.17,10,"FIELD",128,3) L,BLANK "DATA",160.17,10,"FIELD",129,0) 1185^1^1185^Unknown if surgery done "DATA",160.17,10,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1325,"I") "DATA",160.17,10,"FIELD",129,2) BLANK "DATA",160.17,10,"FIELD",129,3) L,BLANK "DATA",160.17,10,"FIELD",130,0) 1186^1^1186^Surgical Approach "DATA",160.17,10,"FIELD",130,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1326,"I") "DATA",160.17,10,"FIELD",130,2) BLANK "DATA",160.17,10,"FIELD",130,3) L,BLANK "DATA",160.17,10,"FIELD",131,0) 1187^1^1187^Extent of Surgical Resection "DATA",160.17,10,"FIELD",131,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1327,"I") "DATA",160.17,10,"FIELD",131,2) BLANK "DATA",160.17,10,"FIELD",131,3) L,BLANK "DATA",160.17,10,"FIELD",132,0) 1188^3^1190^Size of Residual Primary Tumor "DATA",160.17,10,"FIELD",132,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1328,"I") "DATA",160.17,10,"FIELD",132,2) BLANK "DATA",160.17,10,"FIELD",132,3) L,ZERO "DATA",160.17,10,"FIELD",133,0) 1191^1^1191^Size of Residual Primary Tumor (Source) "DATA",160.17,10,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1329,"I") "DATA",160.17,10,"FIELD",133,2) BLANK "DATA",160.17,10,"FIELD",133,3) L,BLANK "DATA",160.17,10,"FIELD",134,0) 1192^1^1192^Anesthetic problem "DATA",160.17,10,"FIELD",134,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1330,"I") "DATA",160.17,10,"FIELD",134,2) BLANK "DATA",160.17,10,"FIELD",134,3) L,BLANK "DATA",160.17,10,"FIELD",135,0) 1193^1^1193^Hemorrhage at operative site "DATA",160.17,10,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1331,"I") "DATA",160.17,10,"FIELD",135,2) BLANK "DATA",160.17,10,"FIELD",135,3) L,BLANK "DATA",160.17,10,"FIELD",136,0) 1194^1^1194^Seizure "DATA",160.17,10,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1332,"I") "DATA",160.17,10,"FIELD",136,2) BLANK "DATA",160.17,10,"FIELD",136,3) L,BLANK "DATA",160.17,10,"FIELD",137,0) 1195^1^1195^Infection(s) "DATA",160.17,10,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1333,"I") "DATA",160.17,10,"FIELD",137,2) BLANK "DATA",160.17,10,"FIELD",137,3) L,BLANK "DATA",160.17,10,"FIELD",138,0) 1196^1^1196^DVT (deep venous thrombosis) "DATA",160.17,10,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1334,"I") "DATA",160.17,10,"FIELD",138,2) BLANK "DATA",160.17,10,"FIELD",138,3) L,BLANK "DATA",160.17,10,"FIELD",139,0) 1197^1^1197^Persistent neurological worsening "DATA",160.17,10,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1335,"I") "DATA",160.17,10,"FIELD",139,2) BLANK "DATA",160.17,10,"FIELD",139,3) L,BLANK "DATA",160.17,10,"FIELD",140,0) 1198^1^1198^Other "DATA",160.17,10,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,360,"I") "DATA",160.17,10,"FIELD",140,2) BLANK "DATA",160.17,10,"FIELD",140,3) L,BLANK "DATA",160.17,10,"FIELD",141,0) 1199^1^1199^Radiation Therapy "DATA",160.17,10,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1345,"I") "DATA",160.17,10,"FIELD",141,2) BLANK "DATA",160.17,10,"FIELD",141,3) L,BLANK "DATA",160.17,10,"FIELD",142,0) 1200^8^1207^Date Ratiation Ended "DATA",160.17,10,"FIELD",142,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.17,10,"FIELD",142,2) BLANK "DATA",160.17,10,"FIELD",142,3) L,BLANK "DATA",160.17,10,"FIELD",143,0) 1208^1^1208^Total Radiation Dose (cGy) "DATA",160.17,10,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1336,"I") "DATA",160.17,10,"FIELD",143,2) BLANK "DATA",160.17,10,"FIELD",143,3) L,BLANK "DATA",160.17,10,"FIELD",144,0) 1209^1^1209^Type of External Beam Radiation "DATA",160.17,10,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1337,"I") "DATA",160.17,10,"FIELD",144,2) BLANK "DATA",160.17,10,"FIELD",144,3) L,BLANK "DATA",160.17,10,"FIELD",145,0) 1210^1^1210^Interstitial Radiaton/Brachytherapy "DATA",160.17,10,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1338,"I") "DATA",160.17,10,"FIELD",145,2) BLANK "DATA",160.17,10,"FIELD",145,3) L,BLANK "DATA",160.17,10,"FIELD",146,0) 1211^1^1211^Stereotactic Radiosurgery "DATA",160.17,10,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1339,"I") "DATA",160.17,10,"FIELD",146,2) BLANK "DATA",160.17,10,"FIELD",146,3) L,BLANK "DATA",160.17,10,"FIELD",147,0) 1212^1^1212^Skin reactions "DATA",160.17,10,"FIELD",147,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1340,"I") "DATA",160.17,10,"FIELD",147,2) BLANK "DATA",160.17,10,"FIELD",147,3) L,BLANK "DATA",160.17,10,"FIELD",148,0) 1213^1^1213^Anorexia "DATA",160.17,10,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1341,"I") "DATA",160.17,10,"FIELD",148,2) BLANK "DATA",160.17,10,"FIELD",148,3) L,BLANK "DATA",160.17,10,"FIELD",149,0) 1214^1^1214^Nausea or vomiting "DATA",160.17,10,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1342,"I") "DATA",160.17,10,"FIELD",149,2) BLANK "DATA",160.17,10,"FIELD",149,3) L,BLANK "DATA",160.17,10,"FIELD",150,0) 1215^1^1215^Fatigue "DATA",160.17,10,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1343,"I") "DATA",160.17,10,"FIELD",150,2) BLANK "DATA",160.17,10,"FIELD",150,3) L,BLANK "DATA",160.17,10,"FIELD",151,0) 1216^1^1216^Neurologic worsening "DATA",160.17,10,"FIELD",151,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1344,"I") "DATA",160.17,10,"FIELD",151,2) BLANK "DATA",160.17,10,"FIELD",151,3) L,BLANK "DATA",160.17,10,"FIELD",152,0) 1217^1^1217^Procarbazine "DATA",160.17,10,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1346,"I") "DATA",160.17,10,"FIELD",152,2) BLANK "DATA",160.17,10,"FIELD",152,3) L,BLANK "DATA",160.17,10,"FIELD",153,0) 1218^1^1218^CCNU "DATA",160.17,10,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1347,"I") "DATA",160.17,10,"FIELD",153,2) BLANK "DATA",160.17,10,"FIELD",153,3) L,BLANK "DATA",160.17,10,"FIELD",154,0) 1219^1^1219^Vincristine "DATA",160.17,10,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1348,"I") "DATA",160.17,10,"FIELD",154,2) BLANK "DATA",160.17,10,"FIELD",154,3) L,BLANK "DATA",160.17,10,"FIELD",155,0) 1220^1^1220^Hydroxyurea "DATA",160.17,10,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1349,"I") "DATA",160.17,10,"FIELD",155,2) BLANK "DATA",160.17,10,"FIELD",155,3) L,BLANK "DATA",160.17,10,"FIELD",156,0) 1221^1^1221^Methotrexate "DATA",160.17,10,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,376,"I") "DATA",160.17,10,"FIELD",156,2) BLANK "DATA",160.17,10,"FIELD",156,3) L,BLANK "DATA",160.17,10,"FIELD",157,0) 1222^1^1222^Cisplatin "DATA",160.17,10,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.17,10,"FIELD",157,2) BLANK "DATA",160.17,10,"FIELD",157,3) L,BLANK "DATA",160.17,10,"FIELD",158,0) 1223^1^1223^BCNU "DATA",160.17,10,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1350,"I") "DATA",160.17,10,"FIELD",158,2) BLANK "DATA",160.17,10,"FIELD",158,3) L,BLANK "DATA",160.17,10,"FIELD",159,0) 1224^1^1224^BCNU wafer implant "DATA",160.17,10,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1351,"I") "DATA",160.17,10,"FIELD",159,2) BLANK "DATA",160.17,10,"FIELD",159,3) L,BLANK "DATA",160.17,10,"FIELD",160,0) 1225^1^1225^VP-16 "DATA",160.17,10,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1352,"I") "DATA",160.17,10,"FIELD",160,2) BLANK "DATA",160.17,10,"FIELD",160,3) L,BLANK "DATA",160.17,10,"FIELD",161,0) 1226^1^1226^Carboplatin "DATA",160.17,10,"FIELD",161,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1353,"I") "DATA",160.17,10,"FIELD",161,2) BLANK "DATA",160.17,10,"FIELD",161,3) L,BLANK "DATA",160.17,10,"FIELD",162,0) 1227^1^1227^Temozolomide "DATA",160.17,10,"FIELD",162,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1354,"I") "DATA",160.17,10,"FIELD",162,2) BLANK "DATA",160.17,10,"FIELD",162,3) L,BLANK "DATA",160.17,10,"FIELD",163,0) 1228^1^1228^Cyclophosphamide "DATA",160.17,10,"FIELD",163,1) S ACDANS=$$GET1~DIQ(165.5,IEN,372,"I") "DATA",160.17,10,"FIELD",163,2) BLANK "DATA",160.17,10,"FIELD",163,3) L,BLANK "DATA",160.17,10,"FIELD",164,0) 1229^1^1229^CPT-11 "DATA",160.17,10,"FIELD",164,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1355,"I") "DATA",160.17,10,"FIELD",164,2) BLANK "DATA",160.17,10,"FIELD",164,3) L,BLANK "DATA",160.17,10,"FIELD",165,0) 1230^1^1230^Tamoxifen "DATA",160.17,10,"FIELD",165,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1356,"I") "DATA",160.17,10,"FIELD",165,2) BLANK "DATA",160.17,10,"FIELD",165,3) L,BLANK "DATA",160.17,10,"FIELD",166,0) 1231^1^1231^Interferon "DATA",160.17,10,"FIELD",166,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.17,10,"FIELD",166,2) BLANK "DATA",160.17,10,"FIELD",166,3) L,BLANK "DATA",160.17,10,"FIELD",167,0) 1232^1^1232^Cytarabine (ARA-C) "DATA",160.17,10,"FIELD",167,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1357,"I") "DATA",160.17,10,"FIELD",167,2) BLANK "DATA",160.17,10,"FIELD",167,3) L,BLANK "DATA",160.17,10,"FIELD",168,0) 1233^1^1233^Other "DATA",160.17,10,"FIELD",168,1) S ACDANS=$$GET1~DIQ(165.5,IEN,380,"I") "DATA",160.17,10,"FIELD",168,2) BLANK "DATA",160.17,10,"FIELD",168,3) L,BLANK "DATA",160.17,10,"FIELD",169,0) 1234^1^1234^Chemotherapy Route "DATA",160.17,10,"FIELD",169,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1358,"I") "DATA",160.17,10,"FIELD",169,2) BLANK "DATA",160.17,10,"FIELD",169,3) L,BLANK "DATA",160.17,10,"FIELD",170,0) 1235^1^1235^Hearing Loss "DATA",160.17,10,"FIELD",170,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1359,"I") "DATA",160.17,10,"FIELD",170,2) BLANK "DATA",160.17,10,"FIELD",170,3) L,BLANK "DATA",160.17,10,"FIELD",171,0) 1236^1^1236^Infection "DATA",160.17,10,"FIELD",171,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1360,"I") "DATA",160.17,10,"FIELD",171,2) BLANK "DATA",160.17,10,"FIELD",171,3) L,BLANK "DATA",160.17,10,"FIELD",172,0) 1237^1^1237^Nausea and vomiting "DATA",160.17,10,"FIELD",172,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1361,"I") "DATA",160.17,10,"FIELD",172,2) BLANK "DATA",160.17,10,"FIELD",172,3) L,BLANK "DATA",160.17,10,"FIELD",173,0) 1238^1^1238^Peripheral blood count drop/bleeding "DATA",160.17,10,"FIELD",173,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1362,"I") "DATA",160.17,10,"FIELD",173,2) BLANK "DATA",160.17,10,"FIELD",173,3) L,BLANK "DATA",160.17,10,"FIELD",174,0) 1239^1^1239^Peripheral neuropathy "DATA",160.17,10,"FIELD",174,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1363,"I") "DATA",160.17,10,"FIELD",174,2) BLANK "DATA",160.17,10,"FIELD",174,3) L,BLANK "DATA",160.17,10,"FIELD",175,0) 1240^1^1240^Renal failure "DATA",160.17,10,"FIELD",175,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1364,"I") "DATA",160.17,10,"FIELD",175,2) BLANK "DATA",160.17,10,"FIELD",175,3) L,BLANK "DATA",160.17,10,"FIELD",176,0) 1241^1^1241^Pulmonary toxicity "DATA",160.17,10,"FIELD",176,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1365,"I") "DATA",160.17,10,"FIELD",176,2) BLANK "DATA",160.17,10,"FIELD",176,3) L,BLANK "DATA",160.17,10,"FIELD",177,0) 1242^1^1242^Other "DATA",160.17,10,"FIELD",177,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1366,"I") "DATA",160.17,10,"FIELD",177,2) BLANK "DATA",160.17,10,"FIELD",177,3) L,BLANK "DATA",160.17,10,"FIELD",178,0) 1243^3^1245^Karnofsky's Rating at Time of Discharge "DATA",160.17,10,"FIELD",178,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1367,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.17,ACDANS,.01,"I") "DATA",160.17,10,"FIELD",178,2) BLANK "DATA",160.17,10,"FIELD",178,3) L,BLANK "DATA",160.17,10,"FIELD",179,0) 1246^1^1246^Type of First Recurrence "DATA",160.17,10,"FIELD",179,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1372,"I") "DATA",160.17,10,"FIELD",179,2) BLANK "DATA",160.17,10,"FIELD",179,3) L,BLANK "DATA",160.17,10,"FIELD",180,0) 1247^8^1254^Date of Progression "DATA",160.17,10,"FIELD",180,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1368,"I")) "DATA",160.17,10,"FIELD",180,2) BLANK "DATA",160.17,10,"FIELD",180,3) L,BLANK "DATA",160.17,10,"FIELD",181,0) 1255^1^1255^Type of Progression "DATA",160.17,10,"FIELD",181,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1369,"I") "DATA",160.17,10,"FIELD",181,2) BLANK "DATA",160.17,10,"FIELD",181,3) L,BLANK "DATA",160.17,10,"FIELD",182,0) 1256^1^1256^Recurrence/Progression Documentation "DATA",160.17,10,"FIELD",182,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1370,"I") "DATA",160.17,10,"FIELD",182,2) BLANK "DATA",160.17,10,"FIELD",182,3) L,BLANK "DATA",160.17,10,"FIELD",183,0) 1257^3^1259^Karnofsky's Rating at Time of Rec/Prog "DATA",160.17,10,"FIELD",183,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1371,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.17,ACDANS,.01,"I") "DATA",160.17,10,"FIELD",183,2) BLANK "DATA",160.17,10,"FIELD",183,3) L,BLANK "DATA",160.17,10,"FIELD",184,0) 1260^2^1261^Protocol Participation (Subsequent Treatment) "DATA",160.17,10,"FIELD",184,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1373,"I") "DATA",160.17,10,"FIELD",184,2) BLANK "DATA",160.17,10,"FIELD",184,3) L,BLANK "DATA",160.17,10,"FIELD",185,0) 1262^1^1262^Type of Subsequent Surgical Tx for Rec/Prog "DATA",160.17,10,"FIELD",185,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1374,"I") "DATA",160.17,10,"FIELD",185,2) BLANK "DATA",160.17,10,"FIELD",185,3) L,BLANK "DATA",160.17,10,"FIELD",186,0) 1263^1^1263^Type of Subsequent Radiation Tx for Rec/Prog "DATA",160.17,10,"FIELD",186,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1375,"I") "DATA",160.17,10,"FIELD",186,2) BLANK "DATA",160.17,10,"FIELD",186,3) L,BLANK "DATA",160.17,10,"FIELD",187,0) 1264^1^1264^Procarbazine "DATA",160.17,10,"FIELD",187,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1376,"I") "DATA",160.17,10,"FIELD",187,2) BLANK "DATA",160.17,10,"FIELD",187,3) L,BLANK "DATA",160.17,10,"FIELD",188,0) 1265^1^1265^CCNU "DATA",160.17,10,"FIELD",188,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1377,"I") "DATA",160.17,10,"FIELD",188,2) BLANK "DATA",160.17,10,"FIELD",188,3) L,BLANK "DATA",160.17,10,"FIELD",189,0) 1266^1^1266^Vincristine "DATA",160.17,10,"FIELD",189,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1378,"I") "DATA",160.17,10,"FIELD",189,2) BLANK "DATA",160.17,10,"FIELD",189,3) L,BLANK "DATA",160.17,10,"FIELD",190,0) 1267^1^1267^Hydroxyurea "DATA",160.17,10,"FIELD",190,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1379,"I") "DATA",160.17,10,"FIELD",190,2) BLANK "DATA",160.17,10,"FIELD",190,3) L,BLANK "DATA",160.17,10,"FIELD",191,0) 1268^1^1268^Methotrexate "DATA",160.17,10,"FIELD",191,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1380,"I") "DATA",160.17,10,"FIELD",191,2) BLANK "DATA",160.17,10,"FIELD",191,3) L,BLANK "DATA",160.17,10,"FIELD",192,0) 1269^1^1269^Cisplatin "DATA",160.17,10,"FIELD",192,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1381,"I") "DATA",160.17,10,"FIELD",192,2) BLANK "DATA",160.17,10,"FIELD",192,3) L,BLANK "DATA",160.17,10,"FIELD",193,0) 1270^1^1270^BCNU "DATA",160.17,10,"FIELD",193,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1382,"I") "DATA",160.17,10,"FIELD",193,2) BLANK "DATA",160.17,10,"FIELD",193,3) L,BLANK "DATA",160.17,10,"FIELD",194,0) 1271^1^1271^BCNU wafer implant "DATA",160.17,10,"FIELD",194,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1383,"I") "DATA",160.17,10,"FIELD",194,2) BLANK "DATA",160.17,10,"FIELD",194,3) L,BLANK "DATA",160.17,10,"FIELD",195,0) 1272^1^1272^VP-16 "DATA",160.17,10,"FIELD",195,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1384,"I") "DATA",160.17,10,"FIELD",195,2) BLANK "DATA",160.17,10,"FIELD",195,3) L,BLANK "DATA",160.17,10,"FIELD",196,0) 1273^1^1273^Carboplatin "DATA",160.17,10,"FIELD",196,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1385,"I") "DATA",160.17,10,"FIELD",196,2) BLANK "DATA",160.17,10,"FIELD",196,3) L,BLANK "DATA",160.17,10,"FIELD",197,0) 1274^1^1274^Temozolomide "DATA",160.17,10,"FIELD",197,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1386,"I") "DATA",160.17,10,"FIELD",197,2) BLANK "DATA",160.17,10,"FIELD",197,3) L,BLANK "DATA",160.17,10,"FIELD",198,0) 1275^1^1275^Cyclophosphamide "DATA",160.17,10,"FIELD",198,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1387,"I") "DATA",160.17,10,"FIELD",198,2) BLANK "DATA",160.17,10,"FIELD",198,3) L,BLANK "DATA",160.17,10,"FIELD",199,0) 1276^1^1276^CPT-11 "DATA",160.17,10,"FIELD",199,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1388,"I") "DATA",160.17,10,"FIELD",199,2) BLANK "DATA",160.17,10,"FIELD",199,3) L,BLANK "DATA",160.17,10,"FIELD",200,0) 1277^1^1277^Tamoxifen "DATA",160.17,10,"FIELD",200,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1389,"I") "DATA",160.17,10,"FIELD",200,2) BLANK "DATA",160.17,10,"FIELD",200,3) L,BLANK "DATA",160.17,10,"FIELD",201,0) 1278^1^1278^Interferon "DATA",160.17,10,"FIELD",201,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1390,"I") "DATA",160.17,10,"FIELD",201,2) BLANK "DATA",160.17,10,"FIELD",201,3) L,BLANK "DATA",160.17,10,"FIELD",202,0) 1279^1^1279^Cytarabine (ARA-C) "DATA",160.17,10,"FIELD",202,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1391,"I") "DATA",160.17,10,"FIELD",202,2) BLANK "DATA",160.17,10,"FIELD",202,3) L,BLANK "DATA",160.17,10,"FIELD",203,0) 1280^1^1280^Other "DATA",160.17,10,"FIELD",203,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1392,"I") "DATA",160.17,10,"FIELD",203,2) BLANK "DATA",160.17,10,"FIELD",203,3) L,BLANK "DATA",160.17,10,"FIELD",204,0) 1281^1^1281^Other Type of Subsequent Tx for Rec/Prog "DATA",160.17,10,"FIELD",204,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1393,"I") "DATA",160.17,10,"FIELD",204,2) BLANK "DATA",160.17,10,"FIELD",204,3) L,BLANK "DATA",160.17,11,0) LUNG "DATA",160.17,11,"FIELD",0) ^160.171I^117^117 "DATA",160.17,11,"FIELD",1,0) 1026^6^1031^Co-morbid Condition #1 "DATA",160.17,11,"FIELD",1,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1400.6,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1400,"E")," ",1)) "DATA",160.17,11,"FIELD",1,2) BLANK "DATA",160.17,11,"FIELD",1,3) R,ZERO "DATA",160.17,11,"FIELD",2,0) 1032^6^1037^Co-morbid Condition #2 "DATA",160.17,11,"FIELD",2,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1400.1,"E")," ",1) "DATA",160.17,11,"FIELD",2,2) BLANK "DATA",160.17,11,"FIELD",2,3) R,ZERO "DATA",160.17,11,"FIELD",3,0) 1038^6^1043^Co-morbid Condition #3 "DATA",160.17,11,"FIELD",3,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1400.2,"E")," ",1) "DATA",160.17,11,"FIELD",3,2) BLANK "DATA",160.17,11,"FIELD",3,3) R,ZERO "DATA",160.17,11,"FIELD",4,0) 1044^6^1049^Co-morbid Condition #4 "DATA",160.17,11,"FIELD",4,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1400.3,"E")," ",1) "DATA",160.17,11,"FIELD",4,2) BLANK "DATA",160.17,11,"FIELD",4,3) R,ZERO "DATA",160.17,11,"FIELD",5,0) 1050^6^1055^Co-morbid Condition #5 "DATA",160.17,11,"FIELD",5,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1400.4,"E")," ",1) "DATA",160.17,11,"FIELD",5,2) BLANK "DATA",160.17,11,"FIELD",5,3) R,ZERO "DATA",160.17,11,"FIELD",6,0) 1056^6^1061^Co-morbid Condition #6 "DATA",160.17,11,"FIELD",6,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1400.5,"E")," ",1) "DATA",160.17,11,"FIELD",6,2) BLANK "DATA",160.17,11,"FIELD",6,3) R,ZERO "DATA",160.17,11,"FIELD",7,0) 1062^2^1063^Duration of Tobacco Use "DATA",160.17,11,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1401,"I") "DATA",160.17,11,"FIELD",7,2) BLANK "DATA",160.17,11,"FIELD",7,3) L,ZERO "DATA",160.17,11,"FIELD",8,0) 1064^4^1067^Personal Hist of Other Invasive Malignancies "DATA",160.17,11,"FIELD",8,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1403,"E"),1,3)_$E($$GET1~DIQ(165.5,IEN,1403,"E"),5) "DATA",160.17,11,"FIELD",8,2) BLANK "DATA",160.17,11,"FIELD",8,3) L,ZERO "DATA",160.17,11,"FIELD",9,0) 1068^1^1068^Sx Present at Init Dx - Cough "DATA",160.17,11,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1404,"I") "DATA",160.17,11,"FIELD",9,2) BLANK "DATA",160.17,11,"FIELD",9,3) R,BLANK "DATA",160.17,11,"FIELD",10,0) 1069^1^1069^Sx Present at Init Dx - Shortness of breath "DATA",160.17,11,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1404.1,"I") "DATA",160.17,11,"FIELD",10,2) BLANK "DATA",160.17,11,"FIELD",10,3) R,BLANK "DATA",160.17,11,"FIELD",11,0) 1070^1^1070^Sx Present at Init Dx - Weight loss "DATA",160.17,11,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1404.2,"I") "DATA",160.17,11,"FIELD",11,2) BLANK "DATA",160.17,11,"FIELD",11,3) R,BLANK "DATA",160.17,11,"FIELD",12,0) 1071^1^1071^Sx Present at Init Dx - Hemoptysis "DATA",160.17,11,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1404.3,"I") "DATA",160.17,11,"FIELD",12,2) BLANK "DATA",160.17,11,"FIELD",12,3) R,BLANK "DATA",160.17,11,"FIELD",13,0) 1072^1^1072^Sx Present at Init Dx - Palpable lymph nodes "DATA",160.17,11,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1404.4,"I") "DATA",160.17,11,"FIELD",13,2) BLANK "DATA",160.17,11,"FIELD",13,3) R,BLANK "DATA",160.17,11,"FIELD",14,0) 1073^1^1073^Screening for High Risk/Asympt - Chest X-ray "DATA",160.17,11,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1405,"I") "DATA",160.17,11,"FIELD",14,2) BLANK "DATA",160.17,11,"FIELD",14,3) R,BLANK "DATA",160.17,11,"FIELD",15,0) 1074^1^1074^Screening for High Risk/Asympt - CT scan "DATA",160.17,11,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1405.1,"I") "DATA",160.17,11,"FIELD",15,2) BLANK "DATA",160.17,11,"FIELD",15,3) R,BLANK "DATA",160.17,11,"FIELD",16,0) 1075^1^1075^Screening for High Risk/Asympt - Bronchoscopy "DATA",160.17,11,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1405.2,"I") "DATA",160.17,11,"FIELD",16,2) BLANK "DATA",160.17,11,"FIELD",16,3) R,BLANK "DATA",160.17,11,"FIELD",17,0) 1076^1^1076^Initial Dx Studies - History and physicial "DATA",160.17,11,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406,"I") "DATA",160.17,11,"FIELD",17,2) BLANK "DATA",160.17,11,"FIELD",17,3) R,BLANK "DATA",160.17,11,"FIELD",18,0) 1077^1^1077^Initial Dx Studies - Bronchoscopy "DATA",160.17,11,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406.1,"I") "DATA",160.17,11,"FIELD",18,2) BLANK "DATA",160.17,11,"FIELD",18,3) R,BLANK "DATA",160.17,11,"FIELD",19,0) 1078^1^1078^Initial Dx Studies - FNAB "DATA",160.17,11,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406.2,"I") "DATA",160.17,11,"FIELD",19,2) BLANK "DATA",160.17,11,"FIELD",19,3) R,BLANK "DATA",160.17,11,"FIELD",20,0) 1079^1^1079^Initial Dx Studies - Mediastinoscopy "DATA",160.17,11,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406.3,"I") "DATA",160.17,11,"FIELD",20,2) BLANK "DATA",160.17,11,"FIELD",20,3) R,BLANK "DATA",160.17,11,"FIELD",21,0) 1080^1^1080^Initial Dx Studies - Thorocotomy/open biopsy "DATA",160.17,11,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406.4,"I") "DATA",160.17,11,"FIELD",21,2) BLANK "DATA",160.17,11,"FIELD",21,3) R,BLANK "DATA",160.17,11,"FIELD",22,0) 1081^1^1081^Initial Dx Studies - VATS "DATA",160.17,11,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1406.5,"I") "DATA",160.17,11,"FIELD",22,2) BLANK "DATA",160.17,11,"FIELD",22,3) R,BLANK "DATA",160.17,11,"FIELD",23,0) 1082^4^1085^Pulmonary Function Tests - FVC "DATA",160.17,11,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1407,"I") "DATA",160.17,11,"FIELD",23,2) BLANK "DATA",160.17,11,"FIELD",23,3) R,ZERO "DATA",160.17,11,"FIELD",24,0) 1086^4^1089^Pulmonary Function Tests - FEV "DATA",160.17,11,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1407.1,"I") "DATA",160.17,11,"FIELD",24,2) BLANK "DATA",160.17,11,"FIELD",24,3) R,ZERO "DATA",160.17,11,"FIELD",25,0) 1090^1^1090^Liver Function Tests "DATA",160.17,11,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1408,"I") "DATA",160.17,11,"FIELD",25,2) BLANK "DATA",160.17,11,"FIELD",25,3) R,BLANK "DATA",160.17,11,"FIELD",26,0) 1091^1^1091^Bone scan - Performed "DATA",160.17,11,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409,"I") "DATA",160.17,11,"FIELD",26,2) BLANK "DATA",160.17,11,"FIELD",26,3) R,BLANK "DATA",160.17,11,"FIELD",27,0) 1092^1^1092^Bone scan - Emphysema "DATA",160.17,11,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.1,"I") "DATA",160.17,11,"FIELD",27,2) BLANK "DATA",160.17,11,"FIELD",27,3) R,BLANK "DATA",160.17,11,"FIELD",28,0) 1093^1^1093^Bone scan - Vascular invasion "DATA",160.17,11,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.2,"I") "DATA",160.17,11,"FIELD",28,2) BLANK "DATA",160.17,11,"FIELD",28,3) R,BLANK "DATA",160.17,11,"FIELD",29,0) 1094^1^1094^Bone scan - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.3,"I") "DATA",160.17,11,"FIELD",29,2) BLANK "DATA",160.17,11,"FIELD",29,3) R,BLANK "DATA",160.17,11,"FIELD",30,0) 1095^3^1097^Bone scan - Size of dominant tumor "DATA",160.17,11,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.4,"I") "DATA",160.17,11,"FIELD",30,2) BLANK "DATA",160.17,11,"FIELD",30,3) L,ZERO "DATA",160.17,11,"FIELD",31,0) 1098^2^1099^Bone scan - Number of tumors "DATA",160.17,11,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.5,"I") "DATA",160.17,11,"FIELD",31,2) BLANK "DATA",160.17,11,"FIELD",31,3) L,ZERO "DATA",160.17,11,"FIELD",32,0) 1100^1^1100^Bone scan - Evidence of metastasis "DATA",160.17,11,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1409.6,"I") "DATA",160.17,11,"FIELD",32,2) BLANK "DATA",160.17,11,"FIELD",32,3) R,BLANK "DATA",160.17,11,"FIELD",33,0) 1101^1^1101^CT scan of chest - Performed "DATA",160.17,11,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410,"I") "DATA",160.17,11,"FIELD",33,2) BLANK "DATA",160.17,11,"FIELD",33,3) R,BLANK "DATA",160.17,11,"FIELD",34,0) 1102^1^1102^CT scan of chest - Emphysema "DATA",160.17,11,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.1,"I") "DATA",160.17,11,"FIELD",34,2) BLANK "DATA",160.17,11,"FIELD",34,3) R,BLANK "DATA",160.17,11,"FIELD",35,0) 1103^1^1103^CT scan of chest - Vascular invasion "DATA",160.17,11,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.2,"I") "DATA",160.17,11,"FIELD",35,2) BLANK "DATA",160.17,11,"FIELD",35,3) R,BLANK "DATA",160.17,11,"FIELD",36,0) 1104^1^1104^CT scan of chest - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.3,"I") "DATA",160.17,11,"FIELD",36,2) BLANK "DATA",160.17,11,"FIELD",36,3) R,BLANK "DATA",160.17,11,"FIELD",37,0) 1105^3^1107^CT scan of chest - Size of dominant tumor "DATA",160.17,11,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.4,"I") "DATA",160.17,11,"FIELD",37,2) BLANK "DATA",160.17,11,"FIELD",37,3) L,ZERO "DATA",160.17,11,"FIELD",38,0) 1108^2^1109^CT scan of chest - Number of tumors "DATA",160.17,11,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.5,"I") "DATA",160.17,11,"FIELD",38,2) BLANK "DATA",160.17,11,"FIELD",38,3) L,ZERO "DATA",160.17,11,"FIELD",39,0) 1110^1^1110^CT scan of chest - Evidence of metastasis "DATA",160.17,11,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1410.6,"I") "DATA",160.17,11,"FIELD",39,2) BLANK "DATA",160.17,11,"FIELD",39,3) R,BLANK "DATA",160.17,11,"FIELD",40,0) 1111^1^1111^CT scan of brain - Performed "DATA",160.17,11,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411,"I") "DATA",160.17,11,"FIELD",40,2) BLANK "DATA",160.17,11,"FIELD",40,3) R,BLANK "DATA",160.17,11,"FIELD",41,0) 1112^1^1112^CT scan of brain - Emphysema "DATA",160.17,11,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.1,"I") "DATA",160.17,11,"FIELD",41,2) BLANK "DATA",160.17,11,"FIELD",41,3) R,BLANK "DATA",160.17,11,"FIELD",42,0) 1113^1^1113^CT scan of brain - Vascular invasion "DATA",160.17,11,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.2,"I") "DATA",160.17,11,"FIELD",42,2) BLANK "DATA",160.17,11,"FIELD",42,3) R,BLANK "DATA",160.17,11,"FIELD",43,0) 1114^1^1114^CT scan of brain - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.3,"I") "DATA",160.17,11,"FIELD",43,2) BLANK "DATA",160.17,11,"FIELD",43,3) R,BLANK "DATA",160.17,11,"FIELD",44,0) 1115^3^1117^CT scan of brain - Size of dominant tumor "DATA",160.17,11,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.4,"I") "DATA",160.17,11,"FIELD",44,2) BLANK "DATA",160.17,11,"FIELD",44,3) L,ZERO "DATA",160.17,11,"FIELD",45,0) 1118^2^1119^CT scan of brain - Number of tumors "DATA",160.17,11,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.5,"I") "DATA",160.17,11,"FIELD",45,2) BLANK "DATA",160.17,11,"FIELD",45,3) L,ZERO "DATA",160.17,11,"FIELD",46,0) 1120^1^1120^CT scan of brain - Evidence of metastasis "DATA",160.17,11,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1411.6,"I") "DATA",160.17,11,"FIELD",46,2) BLANK "DATA",160.17,11,"FIELD",46,3) R,BLANK "DATA",160.17,11,"FIELD",47,0) 1121^1^1121^MRI scan of chest - Performed "DATA",160.17,11,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412,"I") "DATA",160.17,11,"FIELD",47,2) BLANK "DATA",160.17,11,"FIELD",47,3) R,BLANK "DATA",160.17,11,"FIELD",48,0) 1122^1^1122^MRI scan of chest - Emphysema "DATA",160.17,11,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.1,"I") "DATA",160.17,11,"FIELD",48,2) BLANK "DATA",160.17,11,"FIELD",48,3) R,BLANK "DATA",160.17,11,"FIELD",49,0) 1123^1^1123^MRI scan of chest - Vascular invasion "DATA",160.17,11,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.2,"I") "DATA",160.17,11,"FIELD",49,2) BLANK "DATA",160.17,11,"FIELD",49,3) R,BLANK "DATA",160.17,11,"FIELD",50,0) 1124^1^1124^MRI scan of chest - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.3,"I") "DATA",160.17,11,"FIELD",50,2) BLANK "DATA",160.17,11,"FIELD",50,3) R,BLANK "DATA",160.17,11,"FIELD",51,0) 1125^3^1127^MRI scan of chest - Size of dominant tumor "DATA",160.17,11,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.4,"I") "DATA",160.17,11,"FIELD",51,2) BLANK "DATA",160.17,11,"FIELD",51,3) L,ZERO "DATA",160.17,11,"FIELD",52,0) 1128^2^1129^MRI scan of chest - Number of tumors "DATA",160.17,11,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.5,"I") "DATA",160.17,11,"FIELD",52,2) BLANK "DATA",160.17,11,"FIELD",52,3) L,ZERO "DATA",160.17,11,"FIELD",53,0) 1130^1^1130^MRI scan of chest - Evidence of metastasis "DATA",160.17,11,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1412.6,"I") "DATA",160.17,11,"FIELD",53,2) BLANK "DATA",160.17,11,"FIELD",53,3) R,BLANK "DATA",160.17,11,"FIELD",54,0) 1131^1^1131^MRI scan of brain - Performed "DATA",160.17,11,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413,"I") "DATA",160.17,11,"FIELD",54,2) BLANK "DATA",160.17,11,"FIELD",54,3) R,BLANK "DATA",160.17,11,"FIELD",55,0) 1132^1^1132^MRI scan of brain - Emphysema "DATA",160.17,11,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.1,"I") "DATA",160.17,11,"FIELD",55,2) BLANK "DATA",160.17,11,"FIELD",55,3) R,BLANK "DATA",160.17,11,"FIELD",56,0) 1133^1^1133^MRI scan of brain - Vascular invasion "DATA",160.17,11,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.2,"I") "DATA",160.17,11,"FIELD",56,2) BLANK "DATA",160.17,11,"FIELD",56,3) R,BLANK "DATA",160.17,11,"FIELD",57,0) 1134^1^1134^MRI scan of brain - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.3,"I") "DATA",160.17,11,"FIELD",57,2) BLANK "DATA",160.17,11,"FIELD",57,3) R,BLANK "DATA",160.17,11,"FIELD",58,0) 1135^3^1137^MRI scan of brain - Size of dominant tumor "DATA",160.17,11,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.4,"I") "DATA",160.17,11,"FIELD",58,2) BLANK "DATA",160.17,11,"FIELD",58,3) L,ZERO "DATA",160.17,11,"FIELD",59,0) 1138^2^1139^MRI scan of brain - Number of tumors "DATA",160.17,11,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.5,"I") "DATA",160.17,11,"FIELD",59,2) BLANK "DATA",160.17,11,"FIELD",59,3) L,ZERO "DATA",160.17,11,"FIELD",60,0) 1140^1^1140^MRI scan of brain - Evidence of metastasis "DATA",160.17,11,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1413.6,"I") "DATA",160.17,11,"FIELD",60,2) BLANK "DATA",160.17,11,"FIELD",60,3) R,BLANK "DATA",160.17,11,"FIELD",61,0) 1141^1^1141^PET scan - Performed "DATA",160.17,11,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414,"I") "DATA",160.17,11,"FIELD",61,2) BLANK "DATA",160.17,11,"FIELD",61,3) R,BLANK "DATA",160.17,11,"FIELD",62,0) 1142^1^1142^PET scan - Emphysema "DATA",160.17,11,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.1,"I") "DATA",160.17,11,"FIELD",62,2) BLANK "DATA",160.17,11,"FIELD",62,3) R,BLANK "DATA",160.17,11,"FIELD",63,0) 1143^1^1143^PET scan - Vascular invasion "DATA",160.17,11,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.2,"I") "DATA",160.17,11,"FIELD",63,2) BLANK "DATA",160.17,11,"FIELD",63,3) R,BLANK "DATA",160.17,11,"FIELD",64,0) 1144^1^1144^PET scan - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.3,"I") "DATA",160.17,11,"FIELD",64,2) BLANK "DATA",160.17,11,"FIELD",64,3) R,BLANK "DATA",160.17,11,"FIELD",65,0) 1145^3^1147^PET scan - Size of dominant tumor "DATA",160.17,11,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.4,"I") "DATA",160.17,11,"FIELD",65,2) BLANK "DATA",160.17,11,"FIELD",65,3) L,ZERO "DATA",160.17,11,"FIELD",66,0) 1148^2^1149^PET scan - Number of tumors "DATA",160.17,11,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.5,"I") "DATA",160.17,11,"FIELD",66,2) BLANK "DATA",160.17,11,"FIELD",66,3) L,ZERO "DATA",160.17,11,"FIELD",67,0) 1150^1^1150^PET scan - Evidence of metastasis "DATA",160.17,11,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1414.6,"I") "DATA",160.17,11,"FIELD",67,2) BLANK "DATA",160.17,11,"FIELD",67,3) R,BLANK "DATA",160.17,11,"FIELD",68,0) 1151^1^1151^X-ray of chest - Performed "DATA",160.17,11,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415,"I") "DATA",160.17,11,"FIELD",68,2) BLANK "DATA",160.17,11,"FIELD",68,3) R,BLANK "DATA",160.17,11,"FIELD",69,0) 1152^1^1152^X-ray of chest - Emphysema "DATA",160.17,11,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.1,"I") "DATA",160.17,11,"FIELD",69,2) BLANK "DATA",160.17,11,"FIELD",69,3) R,BLANK "DATA",160.17,11,"FIELD",70,0) 1153^1^1153^X-ray of chest - Vascular invasion "DATA",160.17,11,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.2,"I") "DATA",160.17,11,"FIELD",70,2) BLANK "DATA",160.17,11,"FIELD",70,3) R,BLANK "DATA",160.17,11,"FIELD",71,0) 1154^1^1154^X-ray of chest - Mediastinal lymph nodes "DATA",160.17,11,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.3,"I") "DATA",160.17,11,"FIELD",71,2) BLANK "DATA",160.17,11,"FIELD",71,3) R,BLANK "DATA",160.17,11,"FIELD",72,0) 1155^3^1157^X-ray of chest - Size of dominant tumor "DATA",160.17,11,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.4,"I") "DATA",160.17,11,"FIELD",72,2) BLANK "DATA",160.17,11,"FIELD",72,3) L,ZERO "DATA",160.17,11,"FIELD",73,0) 1158^2^1159^X-ray of chest - Number of tumors "DATA",160.17,11,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.5,"I") "DATA",160.17,11,"FIELD",73,2) BLANK "DATA",160.17,11,"FIELD",73,3) L,ZERO "DATA",160.17,11,"FIELD",74,0) 1160^1^1160^X-ray of chest - Evidence of metastasis "DATA",160.17,11,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1415.6,"I") "DATA",160.17,11,"FIELD",74,2) BLANK "DATA",160.17,11,"FIELD",74,3) R,BLANK "DATA",160.17,11,"FIELD",75,0) 1161^1^1161^Pre-op LN Mapping - Highest mediastinal "DATA",160.17,11,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416,"I") "DATA",160.17,11,"FIELD",75,2) BLANK "DATA",160.17,11,"FIELD",75,3) R,BLANK "DATA",160.17,11,"FIELD",76,0) 1162^1^1162^Pre-op LN Mapping - Upper paratracheal "DATA",160.17,11,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.1,"I") "DATA",160.17,11,"FIELD",76,2) BLANK "DATA",160.17,11,"FIELD",76,3) R,BLANK "DATA",160.17,11,"FIELD",77,0) 1163^1^1163^Pre-op LN Mapping - Prevascular/retrotracheal "DATA",160.17,11,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.2,"I") "DATA",160.17,11,"FIELD",77,2) BLANK "DATA",160.17,11,"FIELD",77,3) R,BLANK "DATA",160.17,11,"FIELD",78,0) 1164^1^1164^Pre-op LN Mapping - Lower paratracheal "DATA",160.17,11,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.3,"I") "DATA",160.17,11,"FIELD",78,2) BLANK "DATA",160.17,11,"FIELD",78,3) R,BLANK "DATA",160.17,11,"FIELD",79,0) 1165^1^1165^Pre-op LN Mapping - Subaortic "DATA",160.17,11,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.4,"I") "DATA",160.17,11,"FIELD",79,2) BLANK "DATA",160.17,11,"FIELD",79,3) R,BLANK "DATA",160.17,11,"FIELD",80,0) 1166^1^1166^Pre-op LN Mapping - Paraortic "DATA",160.17,11,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.5,"I") "DATA",160.17,11,"FIELD",80,2) BLANK "DATA",160.17,11,"FIELD",80,3) R,BLANK "DATA",160.17,11,"FIELD",81,0) 1167^1^1167^Pre-op LN Mapping - Subcarinal "DATA",160.17,11,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.6,"I") "DATA",160.17,11,"FIELD",81,2) BLANK "DATA",160.17,11,"FIELD",81,3) R,BLANK "DATA",160.17,11,"FIELD",82,0) 1168^1^1168^Pre-op LN Mapping - Paraesophageal "DATA",160.17,11,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.7,"I") "DATA",160.17,11,"FIELD",82,2) BLANK "DATA",160.17,11,"FIELD",82,3) R,BLANK "DATA",160.17,11,"FIELD",83,0) 1169^1^1169^Pre-op LN Mapping - Pulmonary ligament "DATA",160.17,11,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1416.8,"I") "DATA",160.17,11,"FIELD",83,2) BLANK "DATA",160.17,11,"FIELD",83,3) R,BLANK "DATA",160.17,11,"FIELD",84,0) 1170^8^1177^Date of first tissue diagnosis "DATA",160.17,11,"FIELD",84,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1402,"I")) "DATA",160.17,11,"FIELD",84,2) BLANK "DATA",160.17,11,"FIELD",84,3) R,BLANK "DATA",160.17,11,"FIELD",85,0) 1178^3^1180^Distance in mm to closest margin - Proximal "DATA",160.17,11,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1429,"I") "DATA",160.17,11,"FIELD",85,2) BLANK "DATA",160.17,11,"FIELD",85,3) R,BLANK "DATA",160.17,11,"FIELD",86,0) 1181^3^1183^Distance in mm to closest margin - Distal "DATA",160.17,11,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1429.1,"I") "DATA",160.17,11,"FIELD",86,2) BLANK "DATA",160.17,11,"FIELD",86,3) R,BLANK "DATA",160.17,11,"FIELD",87,0) 1184^1^1184^Frozen Section "DATA",160.17,11,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1417,"I") "DATA",160.17,11,"FIELD",87,2) BLANK "DATA",160.17,11,"FIELD",87,3) R,BLANK "DATA",160.17,11,"FIELD",88,0) 1185^1^1185^Invasion - Vascular "DATA",160.17,11,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1418,"I") "DATA",160.17,11,"FIELD",88,2) BLANK "DATA",160.17,11,"FIELD",88,3) R,BLANK "DATA",160.17,11,"FIELD",89,0) 1186^1^1186^Invasion - Lymphatics "DATA",160.17,11,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1418.1,"I") "DATA",160.17,11,"FIELD",89,2) BLANK "DATA",160.17,11,"FIELD",89,3) R,BLANK "DATA",160.17,11,"FIELD",90,0) 1187^1^1187^Invasion - Pleura "DATA",160.17,11,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1418.2,"I") "DATA",160.17,11,"FIELD",90,2) BLANK "DATA",160.17,11,"FIELD",90,3) R,BLANK "DATA",160.17,11,"FIELD",91,0) 1188^1^1188^Invasion - Chest wall "DATA",160.17,11,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1418.3,"I") "DATA",160.17,11,"FIELD",91,2) BLANK "DATA",160.17,11,"FIELD",91,3) R,BLANK "DATA",160.17,11,"FIELD",92,0) 1189^1^1189^Invasion - Other "DATA",160.17,11,"FIELD",92,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1418.4,"I") "DATA",160.17,11,"FIELD",92,2) BLANK "DATA",160.17,11,"FIELD",92,3) R,BLANK "DATA",160.17,11,"FIELD",93,0) 1190^1^1190^Scope of LN Assmt - Highest mediastinal "DATA",160.17,11,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419,"I") "DATA",160.17,11,"FIELD",93,2) BLANK "DATA",160.17,11,"FIELD",93,3) R,BLANK "DATA",160.17,11,"FIELD",94,0) 1191^1^1191^Scope of LN Assmt - Upper paratracheal "DATA",160.17,11,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.1,"I") "DATA",160.17,11,"FIELD",94,2) BLANK "DATA",160.17,11,"FIELD",94,3) R,BLANK "DATA",160.17,11,"FIELD",95,0) 1192^1^1192^Scope of LN Assmt - Prevascular/retrotracheal "DATA",160.17,11,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.2,"I") "DATA",160.17,11,"FIELD",95,2) BLANK "DATA",160.17,11,"FIELD",95,3) R,BLANK "DATA",160.17,11,"FIELD",96,0) 1193^1^1193^Scope of LN Assmt - Lower paratracheal "DATA",160.17,11,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.3,"I") "DATA",160.17,11,"FIELD",96,2) BLANK "DATA",160.17,11,"FIELD",96,3) R,BLANK "DATA",160.17,11,"FIELD",97,0) 1194^1^1194^Scope of LN Assmt - Subaortic "DATA",160.17,11,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.4,"I") "DATA",160.17,11,"FIELD",97,2) BLANK "DATA",160.17,11,"FIELD",97,3) R,BLANK "DATA",160.17,11,"FIELD",98,0) 1195^1^1195^Scope of LN Assmt - Paraortic "DATA",160.17,11,"FIELD",98,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.5,"I") "DATA",160.17,11,"FIELD",98,2) BLANK "DATA",160.17,11,"FIELD",98,3) R,BLANK "DATA",160.17,11,"FIELD",99,0) 1196^1^1196^Scope of LN Assmt - Subcarinal "DATA",160.17,11,"FIELD",99,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.6,"I") "DATA",160.17,11,"FIELD",99,2) BLANK "DATA",160.17,11,"FIELD",99,3) R,BLANK "DATA",160.17,11,"FIELD",100,0) 1197^1^1197^Scope of LN Assmt - Paraesophageal "DATA",160.17,11,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.7,"I") "DATA",160.17,11,"FIELD",100,2) BLANK "DATA",160.17,11,"FIELD",100,3) R,BLANK "DATA",160.17,11,"FIELD",101,0) 1198^1^1198^Scope of LN Assmt - Pulmonary ligament "DATA",160.17,11,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1419.8,"I") "DATA",160.17,11,"FIELD",101,2) BLANK "DATA",160.17,11,"FIELD",101,3) R,BLANK "DATA",160.17,11,"FIELD",102,0) 1199^4^1202^HCT (Hematocrit) Values Before Transfusion "DATA",160.17,11,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1430,"I") "DATA",160.17,11,"FIELD",102,2) BLANK "DATA",160.17,11,"FIELD",102,3) L,ZERO "DATA",160.17,11,"FIELD",103,0) 1203^2^1204^Total Peri-Operative Blood Replacement "DATA",160.17,11,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1420,"I") "DATA",160.17,11,"FIELD",103,2) BLANK "DATA",160.17,11,"FIELD",103,3) L,ZERO "DATA",160.17,11,"FIELD",104,0) 1205^1^1205^Peri-operative Death "DATA",160.17,11,"FIELD",104,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1421,"I") "DATA",160.17,11,"FIELD",104,2) BLANK "DATA",160.17,11,"FIELD",104,3) R,BLANK "DATA",160.17,11,"FIELD",105,0) 1206^5^1210^Boost Dose (cGy) "DATA",160.17,11,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1422,"I") "DATA",160.17,11,"FIELD",105,2) BLANK "DATA",160.17,11,"FIELD",105,3) L,ZERO "DATA",160.17,11,"FIELD",106,0) 1211^6^1216^Chemotherapeutic Agent #1 "DATA",160.17,11,"FIELD",106,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1423,"E"),1,6) "DATA",160.17,11,"FIELD",106,2) BLANK "DATA",160.17,11,"FIELD",106,3) L,ZERO "DATA",160.17,11,"FIELD",107,0) 1217^6^1222^Chemotherapeutic Agent #2 "DATA",160.17,11,"FIELD",107,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1423.1,"E"),1,6) "DATA",160.17,11,"FIELD",107,2) BLANK "DATA",160.17,11,"FIELD",107,3) L,ZERO "DATA",160.17,11,"FIELD",108,0) 1223^6^1228^Chemotherapeutic Agent #3 "DATA",160.17,11,"FIELD",108,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1423.2,"E"),1,6) "DATA",160.17,11,"FIELD",108,2) BLANK "DATA",160.17,11,"FIELD",108,3) L,ZERO "DATA",160.17,11,"FIELD",109,0) 1229^1^1229^Chemotherapeutic Toxicity "DATA",160.17,11,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1424,"I") "DATA",160.17,11,"FIELD",109,2) BLANK "DATA",160.17,11,"FIELD",109,3) R,BLANK "DATA",160.17,11,"FIELD",110,0) 1230^1^1230^Chemotherapy/Surgery Sequence "DATA",160.17,11,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1425,"I") "DATA",160.17,11,"FIELD",110,2) BLANK "DATA",160.17,11,"FIELD",110,3) R,BLANK "DATA",160.17,11,"FIELD",111,0) 1231^6^1236^Complication #1 "DATA",160.17,11,"FIELD",111,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1426,"E")," ",1)) "DATA",160.17,11,"FIELD",111,2) BLANK "DATA",160.17,11,"FIELD",111,3) R,ZERO "DATA",160.17,11,"FIELD",112,0) 1237^6^1242^Complication #2 "DATA",160.17,11,"FIELD",112,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1426.1,"E")," ",1) "DATA",160.17,11,"FIELD",112,2) BLANK "DATA",160.17,11,"FIELD",112,3) R,ZERO "DATA",160.17,11,"FIELD",113,0) 1243^6^1248^Complication #3 "DATA",160.17,11,"FIELD",113,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1426.2,"E")," ",1) "DATA",160.17,11,"FIELD",113,2) BLANK "DATA",160.17,11,"FIELD",113,3) R,ZERO "DATA",160.17,11,"FIELD",114,0) 1249^6^1254^Complication #4 "DATA",160.17,11,"FIELD",114,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1426.3,"E")," ",1) "DATA",160.17,11,"FIELD",114,2) BLANK "DATA",160.17,11,"FIELD",114,3) R,ZERO "DATA",160.17,11,"FIELD",115,0) 1255^6^1260^Complication #5 "DATA",160.17,11,"FIELD",115,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1426.4,"E")," ",1) "DATA",160.17,11,"FIELD",115,2) BLANK "DATA",160.17,11,"FIELD",115,3) R,ZERO "DATA",160.17,11,"FIELD",116,0) 1261^3^1263^Initials of Case Abstractor "DATA",160.17,11,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,11,"FIELD",116,2) BLANK "DATA",160.17,11,"FIELD",116,3) R,BLANK "DATA",160.17,11,"FIELD",117,0) 1264^8^1271^Date Case was Abstracted "DATA",160.17,11,"FIELD",117,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,90,"I")) "DATA",160.17,11,"FIELD",117,2) BLANK "DATA",160.17,11,"FIELD",117,3) R,BLANK "DATA",160.17,12,0) GASTRIC CANCERS "DATA",160.17,12,"FIELD",0) ^160.171I^129^129 "DATA",160.17,12,"FIELD",1,0) 1026^6^1031^Co-morbid condition #1 "DATA",160.17,12,"FIELD",1,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1400.6,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1571,"E")," ",1)) "DATA",160.17,12,"FIELD",1,2) BLANK "DATA",160.17,12,"FIELD",1,3) R,ZERO "DATA",160.17,12,"FIELD",2,0) 1032^6^1037^Co-morbid condition #2 "DATA",160.17,12,"FIELD",2,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1571.1,"E")," ",1) "DATA",160.17,12,"FIELD",2,2) BLANK "DATA",160.17,12,"FIELD",2,3) R,ZERO "DATA",160.17,12,"FIELD",3,0) 1038^6^1043^Co-morbid condition #3 "DATA",160.17,12,"FIELD",3,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1571.2,"E")," ",1) "DATA",160.17,12,"FIELD",3,2) BLANK "DATA",160.17,12,"FIELD",3,3) R,ZERO "DATA",160.17,12,"FIELD",4,0) 1044^6^1049^Co-morbid condition #4 "DATA",160.17,12,"FIELD",4,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1571.3,"E")," ",1) "DATA",160.17,12,"FIELD",4,2) BLANK "DATA",160.17,12,"FIELD",4,3) R,ZERO "DATA",160.17,12,"FIELD",5,0) 1050^6^1055^Co-morbid condition #5 "DATA",160.17,12,"FIELD",5,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1571.4,"E")," ",1) "DATA",160.17,12,"FIELD",5,2) BLANK "DATA",160.17,12,"FIELD",5,3) R,ZERO "DATA",160.17,12,"FIELD",6,0) 1056^6^1061^Co-morbid condition #6 "DATA",160.17,12,"FIELD",6,1) S ACDANS=$P($$GET1~DIQ(165.5,IEN,1571.5,"E")," ",1) "DATA",160.17,12,"FIELD",6,2) BLANK "DATA",160.17,12,"FIELD",6,3) R,ZERO "DATA",160.17,12,"FIELD",7,0) 1062^1^1062^Prior exposure to radiation "DATA",160.17,12,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1500,"I") "DATA",160.17,12,"FIELD",7,2) BLANK "DATA",160.17,12,"FIELD",7,3) R,BLANK "DATA",160.17,12,"FIELD",8,0) 1063^2^1064^Alcohol consumption "DATA",160.17,12,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1501,"I") "DATA",160.17,12,"FIELD",8,2) BLANK "DATA",160.17,12,"FIELD",8,3) R,BLANK "DATA",160.17,12,"FIELD",9,0) 1065^2^1066^Duration of Tobacco Use "DATA",160.17,12,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1572,"I") "DATA",160.17,12,"FIELD",9,2) BLANK "DATA",160.17,12,"FIELD",9,3) L,ZERO "DATA",160.17,12,"FIELD",10,0) 1067^1^1067^Menopausal Status and Hormone Replacement Tx "DATA",160.17,12,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1502,"I") "DATA",160.17,12,"FIELD",10,2) BLANK "DATA",160.17,12,"FIELD",10,3) R,BLANK "DATA",160.17,12,"FIELD",11,0) 1068^1^1068^H2 Blocker/Proton Pump Inhibitor Use "DATA",160.17,12,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1503,"I") "DATA",160.17,12,"FIELD",11,2) BLANK "DATA",160.17,12,"FIELD",11,3) R,BLANK "DATA",160.17,12,"FIELD",12,0) 1069^1^1069^Family History of Gastric Cancer "DATA",160.17,12,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1504,"I") "DATA",160.17,12,"FIELD",12,2) BLANK "DATA",160.17,12,"FIELD",12,3) R,BLANK "DATA",160.17,12,"FIELD",13,0) 1070^4^1073^Personal Hist of Other Invasive Malignancies "DATA",160.17,12,"FIELD",13,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1573,"E"),1,3)_$E($$GET1~DIQ(165.5,IEN,1573,"E"),5) "DATA",160.17,12,"FIELD",13,2) BLANK "DATA",160.17,12,"FIELD",13,3) L,ZERO "DATA",160.17,12,"FIELD",14,0) 1074^1^1074^Assoc Benign Cond - H-pylori infection "DATA",160.17,12,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1505,"I") "DATA",160.17,12,"FIELD",14,2) BLANK "DATA",160.17,12,"FIELD",14,3) R,BLANK "DATA",160.17,12,"FIELD",15,0) 1075^1^1075^Assoc Benign Cond - Duodenal ulcer "DATA",160.17,12,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1506,"I") "DATA",160.17,12,"FIELD",15,2) BLANK "DATA",160.17,12,"FIELD",15,3) R,BLANK "DATA",160.17,12,"FIELD",16,0) 1076^1^1076^Assoc Benign Cond - Gastric ulcer "DATA",160.17,12,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1507,"I") "DATA",160.17,12,"FIELD",16,2) BLANK "DATA",160.17,12,"FIELD",16,3) R,BLANK "DATA",160.17,12,"FIELD",17,0) 1077^1^1077^Assoc Benign Cond - Heartburn "DATA",160.17,12,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1508,"I") "DATA",160.17,12,"FIELD",17,2) BLANK "DATA",160.17,12,"FIELD",17,3) R,BLANK "DATA",160.17,12,"FIELD",18,0) 1078^1^1078^Assoc Benign Cond - Pernicious anemia "DATA",160.17,12,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1509,"I") "DATA",160.17,12,"FIELD",18,2) BLANK "DATA",160.17,12,"FIELD",18,3) R,BLANK "DATA",160.17,12,"FIELD",19,0) 1079^1^1079^Assoc Benign Cond - Polyps of stomach "DATA",160.17,12,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1510,"I") "DATA",160.17,12,"FIELD",19,2) BLANK "DATA",160.17,12,"FIELD",19,3) R,BLANK "DATA",160.17,12,"FIELD",20,0) 1080^1^1080^Assoc Benign Cond - Polyposis of sm/lg bowel "DATA",160.17,12,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1511,"I") "DATA",160.17,12,"FIELD",20,2) BLANK "DATA",160.17,12,"FIELD",20,3) R,BLANK "DATA",160.17,12,"FIELD",21,0) 1081^1^1081^Assoc Benign Cond - Barrett's esophagus "DATA",160.17,12,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1512,"I") "DATA",160.17,12,"FIELD",21,2) BLANK "DATA",160.17,12,"FIELD",21,3) R,BLANK "DATA",160.17,12,"FIELD",22,0) 1083^1^1083^Assoc Benign Cond - Atrophic gastritis "DATA",160.17,12,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1513,"I") "DATA",160.17,12,"FIELD",22,2) BLANK "DATA",160.17,12,"FIELD",22,3) R,BLANK "DATA",160.17,12,"FIELD",23,0) 1084^1^1084^Assoc Benign Cond - Gastric metaplasia "DATA",160.17,12,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1514,"I") "DATA",160.17,12,"FIELD",23,2) BLANK "DATA",160.17,12,"FIELD",23,3) R,BLANK "DATA",160.17,12,"FIELD",24,0) 1085^1^1085^H-pylori Drugs Given - Antibiotics "DATA",160.17,12,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1515,"I") "DATA",160.17,12,"FIELD",24,2) BLANK "DATA",160.17,12,"FIELD",24,3) R,BLANK "DATA",160.17,12,"FIELD",25,0) 1086^1^1086^H-pylori Drugs Given - Proton pump inhibitors "DATA",160.17,12,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1516,"I") "DATA",160.17,12,"FIELD",25,2) BLANK "DATA",160.17,12,"FIELD",25,3) R,BLANK "DATA",160.17,12,"FIELD",26,0) 1087^1^1087^H-pylori Drugs Given - H2 Blockers "DATA",160.17,12,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1517,"I") "DATA",160.17,12,"FIELD",26,2) BLANK "DATA",160.17,12,"FIELD",26,3) R,BLANK "DATA",160.17,12,"FIELD",27,0) 1088^1^1088^H-pylori Drugs Given - Bismuth Compounds "DATA",160.17,12,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1518,"I") "DATA",160.17,12,"FIELD",27,2) BLANK "DATA",160.17,12,"FIELD",27,3) R,BLANK "DATA",160.17,12,"FIELD",28,0) 1089^1^1089^Prior Intra-Abdominal Surgery "DATA",160.17,12,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1519,"I") "DATA",160.17,12,"FIELD",28,2) BLANK "DATA",160.17,12,"FIELD",28,3) R,BLANK "DATA",160.17,12,"FIELD",29,0) 1090^4^1093^Year of Prior Gastric Resection "DATA",160.17,12,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1520,"I") "DATA",160.17,12,"FIELD",29,2) BLANK "DATA",160.17,12,"FIELD",29,3) R,BLANK "DATA",160.17,12,"FIELD",30,0) 1094^1^1094^Performance Status at Initial Diagnosis "DATA",160.17,12,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1521,"I") "DATA",160.17,12,"FIELD",30,2) BLANK "DATA",160.17,12,"FIELD",30,3) R,BLANK "DATA",160.17,12,"FIELD",31,0) 1095^1^1095^Sx Present at Init Dx - Heartburn "DATA",160.17,12,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1522,"I") "DATA",160.17,12,"FIELD",31,2) BLANK "DATA",160.17,12,"FIELD",31,3) R,BLANK "DATA",160.17,12,"FIELD",32,0) 1096^1^1096^Sx Present at Init Dx - Fever/night sweats "DATA",160.17,12,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1523,"I") "DATA",160.17,12,"FIELD",32,2) BLANK "DATA",160.17,12,"FIELD",32,3) R,BLANK "DATA",160.17,12,"FIELD",33,0) 1097^1^1097^Sx Present at Init Dx - Acute hematemesis "DATA",160.17,12,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1524,"I") "DATA",160.17,12,"FIELD",33,2) BLANK "DATA",160.17,12,"FIELD",33,3) R,BLANK "DATA",160.17,12,"FIELD",34,0) 1098^1^1098^Sx Present at Init Dx - Transfusions/bld loss "DATA",160.17,12,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1525,"I") "DATA",160.17,12,"FIELD",34,2) BLANK "DATA",160.17,12,"FIELD",34,3) R,BLANK "DATA",160.17,12,"FIELD",35,0) 1099^1^1099^Sx Present at Init Dx - Weight loss "DATA",160.17,12,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1574,"I") "DATA",160.17,12,"FIELD",35,2) BLANK "DATA",160.17,12,"FIELD",35,3) R,BLANK "DATA",160.17,12,"FIELD",36,0) 1100^1^1100^Sx Present at Init Dx - Melena "DATA",160.17,12,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1526,"I") "DATA",160.17,12,"FIELD",36,2) BLANK "DATA",160.17,12,"FIELD",36,3) R,BLANK "DATA",160.17,12,"FIELD",37,0) 1101^1^1101^Sx Present at Init Dx - Pain "DATA",160.17,12,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1527,"I") "DATA",160.17,12,"FIELD",37,2) BLANK "DATA",160.17,12,"FIELD",37,3) R,BLANK "DATA",160.17,12,"FIELD",38,0) 1102^1^1102^Sx Present at Init Dx - Early satiety "DATA",160.17,12,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1528,"I") "DATA",160.17,12,"FIELD",38,2) BLANK "DATA",160.17,12,"FIELD",38,3) R,BLANK "DATA",160.17,12,"FIELD",39,0) 1103^1^1103^Initial Stg Studies - CT scan of abdomen "DATA",160.17,12,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1529,"I") "DATA",160.17,12,"FIELD",39,2) BLANK "DATA",160.17,12,"FIELD",39,3) R,BLANK "DATA",160.17,12,"FIELD",40,0) 1104^1^1104^Initial Stg Studies - CT scan of chest "DATA",160.17,12,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1530,"I") "DATA",160.17,12,"FIELD",40,2) BLANK "DATA",160.17,12,"FIELD",40,3) R,BLANK "DATA",160.17,12,"FIELD",41,0) 1105^1^1105^Initial Stg Studies - CT pelvis "DATA",160.17,12,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1531,"I") "DATA",160.17,12,"FIELD",41,2) BLANK "DATA",160.17,12,"FIELD",41,3) R,BLANK "DATA",160.17,12,"FIELD",42,0) 1106^1^1106^Initial Stg Studies - Chest x-ray "DATA",160.17,12,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1532,"I") "DATA",160.17,12,"FIELD",42,2) BLANK "DATA",160.17,12,"FIELD",42,3) R,BLANK "DATA",160.17,12,"FIELD",43,0) 1107^1^1107^Initial Stg Studies - Gallium scan "DATA",160.17,12,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1533,"I") "DATA",160.17,12,"FIELD",43,2) BLANK "DATA",160.17,12,"FIELD",43,3) R,BLANK "DATA",160.17,12,"FIELD",44,0) 1108^1^1108^Initial Stg Studies - Bipedal lymphangiogram "DATA",160.17,12,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1534,"I") "DATA",160.17,12,"FIELD",44,2) BLANK "DATA",160.17,12,"FIELD",44,3) R,BLANK "DATA",160.17,12,"FIELD",45,0) 1109^1^1109^Initial Stg Studies - MRI "DATA",160.17,12,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1535,"I") "DATA",160.17,12,"FIELD",45,2) BLANK "DATA",160.17,12,"FIELD",45,3) R,BLANK "DATA",160.17,12,"FIELD",46,0) 1110^1^1110^Initial Stg Studies - PET scan "DATA",160.17,12,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1536,"I") "DATA",160.17,12,"FIELD",46,2) BLANK "DATA",160.17,12,"FIELD",46,3) R,BLANK "DATA",160.17,12,"FIELD",47,0) 1111^1^1111^Initial Stg Studies - Laparoscopy "DATA",160.17,12,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1537,"I") "DATA",160.17,12,"FIELD",47,2) BLANK "DATA",160.17,12,"FIELD",47,3) R,BLANK "DATA",160.17,12,"FIELD",48,0) 1112^1^1112^Initial Stg Studies - EUS "DATA",160.17,12,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1538,"I") "DATA",160.17,12,"FIELD",48,2) BLANK "DATA",160.17,12,"FIELD",48,3) R,BLANK "DATA",160.17,12,"FIELD",49,0) 1113^1^1113^Initial Stg Studies - Peritoneal lavage "DATA",160.17,12,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1539,"I") "DATA",160.17,12,"FIELD",49,2) BLANK "DATA",160.17,12,"FIELD",49,3) R,BLANK "DATA",160.17,12,"FIELD",50,0) 1114^6^1119^Lab Studies - LDH (IU/L) "DATA",160.17,12,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1540,"I") "DATA",160.17,12,"FIELD",50,2) BLANK "DATA",160.17,12,"FIELD",50,3) L,ZERO "DATA",160.17,12,"FIELD",51,0) 1120^6^1125^Lab Studies - CEA (ng/ml) "DATA",160.17,12,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1541,"I") "DATA",160.17,12,"FIELD",51,2) BLANK "DATA",160.17,12,"FIELD",51,3) L,ZERO "DATA",160.17,12,"FIELD",52,0) 1126^6^1131^Lab Studies - CA125 (U/ml) "DATA",160.17,12,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1542,"I") "DATA",160.17,12,"FIELD",52,2) BLANK "DATA",160.17,12,"FIELD",52,3) L,ZERO "DATA",160.17,12,"FIELD",53,0) 1132^6^1137^Lab Studies - Beta2 microglobulin (ng/ml) "DATA",160.17,12,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1543,"I") "DATA",160.17,12,"FIELD",53,2) BLANK "DATA",160.17,12,"FIELD",53,3) L,ZERO "DATA",160.17,12,"FIELD",54,0) 1138^6^1143^Lab Studies - Urinary 5-HIAA (mg/24hr) "DATA",160.17,12,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1544,"I") "DATA",160.17,12,"FIELD",54,2) BLANK "DATA",160.17,12,"FIELD",54,3) L,ZERO "DATA",160.17,12,"FIELD",55,0) 1144^1^1144^Gastroscopic Exam Results - Clin/visual exam "DATA",160.17,12,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1545,"I") "DATA",160.17,12,"FIELD",55,2) BLANK "DATA",160.17,12,"FIELD",55,3) R,BLANK "DATA",160.17,12,"FIELD",56,0) 1145^1^1145^Gastroscopic Exam Results - Gastroscopic Bx "DATA",160.17,12,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1545.1,"I") "DATA",160.17,12,"FIELD",56,2) BLANK "DATA",160.17,12,"FIELD",56,3) R,BLANK "DATA",160.17,12,"FIELD",57,0) 1146^1^1146^Gastro-Esophageal Junction (Siewert II/III) "DATA",160.17,12,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1546,"I") "DATA",160.17,12,"FIELD",57,2) BLANK "DATA",160.17,12,"FIELD",57,3) R,BLANK "DATA",160.17,12,"FIELD",58,0) 1147^1^1147^Anat Site of Histologic Dx - Stomach "DATA",160.17,12,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1547,"I") "DATA",160.17,12,"FIELD",58,2) BLANK "DATA",160.17,12,"FIELD",58,3) R,BLANK "DATA",160.17,12,"FIELD",59,0) 1148^1^1148^Anat Site of Histologic Dx - Liver "DATA",160.17,12,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1547.1,"I") "DATA",160.17,12,"FIELD",59,2) BLANK "DATA",160.17,12,"FIELD",59,3) R,BLANK "DATA",160.17,12,"FIELD",60,0) 1149^1^1149^Anat Site of Histologic Dx - Extra-abdominal "DATA",160.17,12,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1547.2,"I") "DATA",160.17,12,"FIELD",60,2) BLANK "DATA",160.17,12,"FIELD",60,3) R,BLANK "DATA",160.17,12,"FIELD",61,0) 1150^1^1150^Anat Site of Histologic Dx - Lymph nodes "DATA",160.17,12,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1547.3,"I") "DATA",160.17,12,"FIELD",61,2) BLANK "DATA",160.17,12,"FIELD",61,3) R,BLANK "DATA",160.17,12,"FIELD",62,0) 1151^1^1151^Anat Site of Histologic Dx - Peritoneum "DATA",160.17,12,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1547.4,"I") "DATA",160.17,12,"FIELD",62,2) BLANK "DATA",160.17,12,"FIELD",62,3) R,BLANK "DATA",160.17,12,"FIELD",63,0) 1152^8^1159^Date of First Tissue Diagnosis "DATA",160.17,12,"FIELD",63,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1548,"I")) "DATA",160.17,12,"FIELD",63,2) BLANK "DATA",160.17,12,"FIELD",63,3) R,BLANK "DATA",160.17,12,"FIELD",64,0) 1160^1^1160^Lauren's Classification "DATA",160.17,12,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1549,"I") "DATA",160.17,12,"FIELD",64,2) BLANK "DATA",160.17,12,"FIELD",64,3) R,BLANK "DATA",160.17,12,"FIELD",65,0) 1161^1^1161^Goseki's Classification "DATA",160.17,12,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1550,"I") "DATA",160.17,12,"FIELD",65,2) BLANK "DATA",160.17,12,"FIELD",65,3) R,BLANK "DATA",160.17,12,"FIELD",66,0) 1162^1^1162^Molecular Markers - Gastrin "DATA",160.17,12,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1551,"I") "DATA",160.17,12,"FIELD",66,2) BLANK "DATA",160.17,12,"FIELD",66,3) R,BLANK "DATA",160.17,12,"FIELD",67,0) 1163^1^1163^Molecular Markers - 5-HIAA "DATA",160.17,12,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1551.1,"I") "DATA",160.17,12,"FIELD",67,2) BLANK "DATA",160.17,12,"FIELD",67,3) R,BLANK "DATA",160.17,12,"FIELD",68,0) 1164^1^1164^Molecular Markers - CEA "DATA",160.17,12,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1551.2,"I") "DATA",160.17,12,"FIELD",68,2) BLANK "DATA",160.17,12,"FIELD",68,3) R,BLANK "DATA",160.17,12,"FIELD",69,0) 1165^1^1165^Molecular Markers - CA125 "DATA",160.17,12,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1551.3,"I") "DATA",160.17,12,"FIELD",69,2) BLANK "DATA",160.17,12,"FIELD",69,3) R,BLANK "DATA",160.17,12,"FIELD",70,0) 1166^1^1166^Molecular Markers - Other "DATA",160.17,12,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1551.4,"I") "DATA",160.17,12,"FIELD",70,2) BLANK "DATA",160.17,12,"FIELD",70,3) R,BLANK "DATA",160.17,12,"FIELD",71,0) 1167^1^1167^Mitotic Rate "DATA",160.17,12,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1552,"I") "DATA",160.17,12,"FIELD",71,2) BLANK "DATA",160.17,12,"FIELD",71,3) R,BLANK "DATA",160.17,12,"FIELD",72,0) 1168^1^1168^Tumor Necrosis "DATA",160.17,12,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1553,"I") "DATA",160.17,12,"FIELD",72,2) BLANK "DATA",160.17,12,"FIELD",72,3) R,BLANK "DATA",160.17,12,"FIELD",73,0) 1169^1^1169^Phenotype modality - Flow cytometry/fresh "DATA",160.17,12,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554,"I") "DATA",160.17,12,"FIELD",73,2) BLANK "DATA",160.17,12,"FIELD",73,3) R,BLANK "DATA",160.17,12,"FIELD",74,0) 1170^1^1170^Phenotype modality - Immunohistochem/frozen "DATA",160.17,12,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554.1,"I") "DATA",160.17,12,"FIELD",74,2) BLANK "DATA",160.17,12,"FIELD",74,3) R,BLANK "DATA",160.17,12,"FIELD",75,0) 1171^1^1171^Phenotype modality - Immunohistochem/paraffin "DATA",160.17,12,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554.2,"I") "DATA",160.17,12,"FIELD",75,2) BLANK "DATA",160.17,12,"FIELD",75,3) R,BLANK "DATA",160.17,12,"FIELD",76,0) 1172^1^1172^Phenotype modality - Molecular genetics "DATA",160.17,12,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554.3,"I") "DATA",160.17,12,"FIELD",76,2) BLANK "DATA",160.17,12,"FIELD",76,3) R,BLANK "DATA",160.17,12,"FIELD",77,0) 1173^1^1173^Phenotype modality - Polymerase ch reaction "DATA",160.17,12,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554.4,"I") "DATA",160.17,12,"FIELD",77,2) BLANK "DATA",160.17,12,"FIELD",77,3) R,BLANK "DATA",160.17,12,"FIELD",78,0) 1174^1^1174^Phenotype modality - Southern blot technique "DATA",160.17,12,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1554.5,"I") "DATA",160.17,12,"FIELD",78,2) BLANK "DATA",160.17,12,"FIELD",78,3) R,BLANK "DATA",160.17,12,"FIELD",79,0) 1175^1^1175^Ann Arbor Staging "DATA",160.17,12,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1555,"I") "DATA",160.17,12,"FIELD",79,2) BLANK "DATA",160.17,12,"FIELD",79,3) R,BLANK "DATA",160.17,12,"FIELD",80,0) 1176^1^1176^Adherence of Resected Primary Specimen "DATA",160.17,12,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1556,"I") "DATA",160.17,12,"FIELD",80,2) BLANK "DATA",160.17,12,"FIELD",80,3) R,BLANK "DATA",160.17,12,"FIELD",81,0) 1177^1^1177^Margin Status of Resected Primary Specimen "DATA",160.17,12,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1557,"I") "DATA",160.17,12,"FIELD",81,2) BLANK "DATA",160.17,12,"FIELD",81,3) R,BLANK "DATA",160.17,12,"FIELD",82,0) 1178^3^1180^Extent of Free Margin - Proximal margin "DATA",160.17,12,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1558,"I") "DATA",160.17,12,"FIELD",82,2) BLANK "DATA",160.17,12,"FIELD",82,3) L,ZERO "DATA",160.17,12,"FIELD",83,0) 1181^3^1183^Extent of Free Margin - Distal margin "DATA",160.17,12,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1558.1,"I") "DATA",160.17,12,"FIELD",83,2) BLANK "DATA",160.17,12,"FIELD",83,3) L,ZERO "DATA",160.17,12,"FIELD",84,0) 1184^1^1184^Resection Beyond Stomach - Spleen "DATA",160.17,12,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559,"I") "DATA",160.17,12,"FIELD",84,2) BLANK "DATA",160.17,12,"FIELD",84,3) R,BLANK "DATA",160.17,12,"FIELD",85,0) 1185^1^1185^Resection Beyond Stomach - Transverse colon "DATA",160.17,12,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.1,"I") "DATA",160.17,12,"FIELD",85,2) BLANK "DATA",160.17,12,"FIELD",85,3) R,BLANK "DATA",160.17,12,"FIELD",86,0) 1186^1^1186^Resection Beyond Stomach - Liver "DATA",160.17,12,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.2,"I") "DATA",160.17,12,"FIELD",86,2) BLANK "DATA",160.17,12,"FIELD",86,3) R,BLANK "DATA",160.17,12,"FIELD",87,0) 1187^1^1187^Resection Beyond Stomach - Diaphragm "DATA",160.17,12,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.3,"I") "DATA",160.17,12,"FIELD",87,2) BLANK "DATA",160.17,12,"FIELD",87,3) R,BLANK "DATA",160.17,12,"FIELD",88,0) 1188^1^1188^Resection Beyond Stomach - Pancreas "DATA",160.17,12,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.4,"I") "DATA",160.17,12,"FIELD",88,2) BLANK "DATA",160.17,12,"FIELD",88,3) R,BLANK "DATA",160.17,12,"FIELD",89,0) 1189^1^1189^Resection Beyond Stomach - Abdominal wall "DATA",160.17,12,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.5,"I") "DATA",160.17,12,"FIELD",89,2) BLANK "DATA",160.17,12,"FIELD",89,3) R,BLANK "DATA",160.17,12,"FIELD",90,0) 1190^1^1190^Resection Beyond Stomach - Adrenal gland "DATA",160.17,12,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.6,"I") "DATA",160.17,12,"FIELD",90,2) BLANK "DATA",160.17,12,"FIELD",90,3) R,BLANK "DATA",160.17,12,"FIELD",91,0) 1191^1^1191^Resection Beyond Stomach - Kidney "DATA",160.17,12,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.7,"I") "DATA",160.17,12,"FIELD",91,2) BLANK "DATA",160.17,12,"FIELD",91,3) R,BLANK "DATA",160.17,12,"FIELD",92,0) 1192^1^1192^Resection Beyond Stomach - Small intestine "DATA",160.17,12,"FIELD",92,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.8,"I") "DATA",160.17,12,"FIELD",92,2) BLANK "DATA",160.17,12,"FIELD",92,3) R,BLANK "DATA",160.17,12,"FIELD",93,0) 1193^1^1193^Resection Beyond Stomach - Retroperitoneum "DATA",160.17,12,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1559.9,"I") "DATA",160.17,12,"FIELD",93,2) BLANK "DATA",160.17,12,"FIELD",93,3) R,BLANK "DATA",160.17,12,"FIELD",94,0) 1194^1^1194^Resection Beyond Stomach - Perigastric ln "DATA",160.17,12,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1560,"I") "DATA",160.17,12,"FIELD",94,2) BLANK "DATA",160.17,12,"FIELD",94,3) R,BLANK "DATA",160.17,12,"FIELD",95,0) 1195^1^1195^Resection Beyond Stomach - Common hepatic ln "DATA",160.17,12,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1560.1,"I") "DATA",160.17,12,"FIELD",95,2) BLANK "DATA",160.17,12,"FIELD",95,3) R,BLANK "DATA",160.17,12,"FIELD",96,0) 1196^1^1196^Resection Beyond Stomach - Celiac ln "DATA",160.17,12,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1560.2,"I") "DATA",160.17,12,"FIELD",96,2) BLANK "DATA",160.17,12,"FIELD",96,3) R,BLANK "DATA",160.17,12,"FIELD",97,0) 1197^1^1197^Resection Beyond Stomach - Splenic ln "DATA",160.17,12,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1560.3,"I") "DATA",160.17,12,"FIELD",97,2) BLANK "DATA",160.17,12,"FIELD",97,3) R,BLANK "DATA",160.17,12,"FIELD",98,0) 1198^1^1198^Resection Beyond Stomach - Other intra-abdom "DATA",160.17,12,"FIELD",98,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1560.4,"I") "DATA",160.17,12,"FIELD",98,2) BLANK "DATA",160.17,12,"FIELD",98,3) R,BLANK "DATA",160.17,12,"FIELD",99,0) 1199^1^1199^Grossly Involved Regional Lymph Nodes "DATA",160.17,12,"FIELD",99,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1561,"I") "DATA",160.17,12,"FIELD",99,2) BLANK "DATA",160.17,12,"FIELD",99,3) R,BLANK "DATA",160.17,12,"FIELD",100,0) 1200^4^1203^Hct (Hematocrit) Values Before Transfusion "DATA",160.17,12,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1562,"I") "DATA",160.17,12,"FIELD",100,2) BLANK "DATA",160.17,12,"FIELD",100,3) L,ZERO "DATA",160.17,12,"FIELD",101,0) 1204^2^1205^Total Operative Blood Replacement "DATA",160.17,12,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1563,"I") "DATA",160.17,12,"FIELD",101,2) BLANK "DATA",160.17,12,"FIELD",101,3) L,ZERO "DATA",160.17,12,"FIELD",102,0) 1206^1^1206^Intra/Peri-operative Death "DATA",160.17,12,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1564,"I") "DATA",160.17,12,"FIELD",102,2) BLANK "DATA",160.17,12,"FIELD",102,3) R,BLANK "DATA",160.17,12,"FIELD",103,0) 1207^1^1207^Complications Req Re-Op - Anastomotic leak "DATA",160.17,12,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565,"I") "DATA",160.17,12,"FIELD",103,2) BLANK "DATA",160.17,12,"FIELD",103,3) R,BLANK "DATA",160.17,12,"FIELD",104,0) 1208^1^1208^Complications Req Re-Op - Stump leak "DATA",160.17,12,"FIELD",104,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.1,"I") "DATA",160.17,12,"FIELD",104,2) BLANK "DATA",160.17,12,"FIELD",104,3) R,BLANK "DATA",160.17,12,"FIELD",105,0) 1209^1^1209^Complications Req Re-Op - Bleeding "DATA",160.17,12,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.2,"I") "DATA",160.17,12,"FIELD",105,2) BLANK "DATA",160.17,12,"FIELD",105,3) R,BLANK "DATA",160.17,12,"FIELD",106,0) 1210^1^1210^Complications Req Re-Op - Wound infection "DATA",160.17,12,"FIELD",106,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.3,"I") "DATA",160.17,12,"FIELD",106,2) BLANK "DATA",160.17,12,"FIELD",106,3) R,BLANK "DATA",160.17,12,"FIELD",107,0) 1211^1^1211^Complications Req Re-Op - Sepsis "DATA",160.17,12,"FIELD",107,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.4,"I") "DATA",160.17,12,"FIELD",107,2) BLANK "DATA",160.17,12,"FIELD",107,3) R,BLANK "DATA",160.17,12,"FIELD",108,0) 1212^1^1212^Complications Req Re-Op - Pancreatitis "DATA",160.17,12,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.5,"I") "DATA",160.17,12,"FIELD",108,2) BLANK "DATA",160.17,12,"FIELD",108,3) R,BLANK "DATA",160.17,12,"FIELD",109,0) 1213^1^1213^Complications Req Re-Op - Dead bowel "DATA",160.17,12,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.6,"I") "DATA",160.17,12,"FIELD",109,2) BLANK "DATA",160.17,12,"FIELD",109,3) R,BLANK "DATA",160.17,12,"FIELD",110,0) 1214^1^1214^Complications Req Re-Op - Other "DATA",160.17,12,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1565.7,"I") "DATA",160.17,12,"FIELD",110,2) BLANK "DATA",160.17,12,"FIELD",110,3) R,BLANK "DATA",160.17,12,"FIELD",111,0) 1215^8^1222^Date of Surgical Discharge "DATA",160.17,12,"FIELD",111,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,1566,"I")) "DATA",160.17,12,"FIELD",111,2) BLANK "DATA",160.17,12,"FIELD",111,3) R,BLANK "DATA",160.17,12,"FIELD",112,0) 1223^5^1227^Boost Dose (cGy) "DATA",160.17,12,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1575,"I") "DATA",160.17,12,"FIELD",112,2) BLANK "DATA",160.17,12,"FIELD",112,3) L,ZERO "DATA",160.17,12,"FIELD",113,0) 1228^5^1232^Intra-operative Radiation Therapy, Dose (cGy) "DATA",160.17,12,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1567,"I") "DATA",160.17,12,"FIELD",113,2) BLANK "DATA",160.17,12,"FIELD",113,3) L,ZERO "DATA",160.17,12,"FIELD",114,0) 1233^1^1233^Concurrent Chemotherapy "DATA",160.17,12,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1568,"I") "DATA",160.17,12,"FIELD",114,2) BLANK "DATA",160.17,12,"FIELD",114,3) R,BLANK "DATA",160.17,12,"FIELD",115,0) 1082^1^1082^Blank/unused "DATA",160.17,12,"FIELD",115,1) S ACDANS=" " "DATA",160.17,12,"FIELD",115,2) BLANK "DATA",160.17,12,"FIELD",115,3) R,BLANK "DATA",160.17,12,"FIELD",116,0) 1234^6^1239^Chemotherapeutic agent #1 "DATA",160.17,12,"FIELD",116,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1576,"E"),1,6) "DATA",160.17,12,"FIELD",116,2) BLANK "DATA",160.17,12,"FIELD",116,3) L,ZERO "DATA",160.17,12,"FIELD",117,0) 1240^6^1245^Chemotherapeutic agent #2 "DATA",160.17,12,"FIELD",117,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1576.1,"E"),1,6) "DATA",160.17,12,"FIELD",117,2) BLANK "DATA",160.17,12,"FIELD",117,3) L,ZERO "DATA",160.17,12,"FIELD",118,0) 1246^6^1251^Chemotherapeutic agent #3 "DATA",160.17,12,"FIELD",118,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,1576.2,"E"),1,6) "DATA",160.17,12,"FIELD",118,2) BLANK "DATA",160.17,12,"FIELD",118,3) L,ZERO "DATA",160.17,12,"FIELD",119,0) 1252^1^1252^Intraperitoneal Chemotherapy "DATA",160.17,12,"FIELD",119,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1569,"I") "DATA",160.17,12,"FIELD",119,2) BLANK "DATA",160.17,12,"FIELD",119,3) R,BLANK "DATA",160.17,12,"FIELD",120,0) 1253^1^1253^Chemotherapeutic Toxicity "DATA",160.17,12,"FIELD",120,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1577,"I") "DATA",160.17,12,"FIELD",120,2) BLANK "DATA",160.17,12,"FIELD",120,3) R,BLANK "DATA",160.17,12,"FIELD",121,0) 1254^1^1254^Chemotherapy/Surgery Sequence "DATA",160.17,12,"FIELD",121,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1578,"I") "DATA",160.17,12,"FIELD",121,2) BLANK "DATA",160.17,12,"FIELD",121,3) R,BLANK "DATA",160.17,12,"FIELD",122,0) 1255^1^1255^Administration of Interferon "DATA",160.17,12,"FIELD",122,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1570,"I") "DATA",160.17,12,"FIELD",122,2) BLANK "DATA",160.17,12,"FIELD",122,3) R,BLANK "DATA",160.17,12,"FIELD",123,0) 1256^6^1261^Complication #1 "DATA",160.17,12,"FIELD",123,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1579,"E")," ",1)) "DATA",160.17,12,"FIELD",123,2) BLANK "DATA",160.17,12,"FIELD",123,3) R,ZERO "DATA",160.17,12,"FIELD",124,0) 1262^6^1267^Complication #2 "DATA",160.17,12,"FIELD",124,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1579.1,"E")," ",1)) "DATA",160.17,12,"FIELD",124,2) BLANK "DATA",160.17,12,"FIELD",124,3) R,ZERO "DATA",160.17,12,"FIELD",125,0) 1268^6^1273^Complication #3 "DATA",160.17,12,"FIELD",125,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1579.2,"E")," ",1)) "DATA",160.17,12,"FIELD",125,2) BLANK "DATA",160.17,12,"FIELD",125,3) R,ZERO "DATA",160.17,12,"FIELD",126,0) 1274^6^1279^Complication #4 "DATA",160.17,12,"FIELD",126,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1579.3,"E")," ",1)) "DATA",160.17,12,"FIELD",126,2) BLANK "DATA",160.17,12,"FIELD",126,3) R,ZERO "DATA",160.17,12,"FIELD",127,0) 1280^6^1285^Complication #5 "DATA",160.17,12,"FIELD",127,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,1426.5,"I")=0:"000.00",1:$P($$GET1~DIQ(165.5,IEN,1579.4,"E")," ",1)) "DATA",160.17,12,"FIELD",127,2) BLANK "DATA",160.17,12,"FIELD",127,3) R,ZERO "DATA",160.17,12,"FIELD",128,0) 1286^3^1288^Initials of Case Abstractor "DATA",160.17,12,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,12,"FIELD",128,2) BLANK "DATA",160.17,12,"FIELD",128,3) R,BLANK "DATA",160.17,12,"FIELD",129,0) 1289^8^1296^Date Case was Abstracted "DATA",160.17,12,"FIELD",129,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,90,"I")) "DATA",160.17,12,"FIELD",129,2) BLANK "DATA",160.17,12,"FIELD",129,3) R,BLANK "DATA",160.17,100,0) BLANK RECORD "DATA",160.17,100,"FIELD",0) ^160.171I^1^1 "DATA",160.17,100,"FIELD",1,0) 1477^470^1946^State/Requestor Items "DATA",160.17,100,"FIELD",1,1) S ACDANS="" "DATA",160.17,100,"FIELD",1,2) BLANK "DATA",160.17,100,"FIELD",1,3) L,BLANK "DATA",164,67220,0) LIVER^C22.0^^^57^^^^^^67220^13^20^^^67220^^ "DATA",164,67220,1,0) ^164.01A^2^2 "DATA",164,67220,1,1,0) HEPATIC "DATA",164,67220,1,2,0) HEPATIC, NOS "DATA",164,67220,4) 2 "DATA",164,67220,5,0) ^164.0106^20^20^3090410^^^^ "DATA",164,67220,5,1,0) Primary Tumor (T) "DATA",164,67220,5,2,0) "DATA",164,67220,5,3,0) TX Primary tumor cannot be assessed "DATA",164,67220,5,4,0) T0 No evidence of primary tumor "DATA",164,67220,5,5,0) T1 Solitary tumor 2 cm or less in greatest dimension without vascular "DATA",164,67220,5,6,0) invasion "DATA",164,67220,5,7,0) T2 Solitary tumor 2 cm or less in greatest dimension with vascular "DATA",164,67220,5,8,0) invasion, or multiple tumors limited to one lobe, none more "DATA",164,67220,5,9,0) than 2 cm in greatest dimension without vascular invasion, or "DATA",164,67220,5,10,0) a solitary tumor more than 2 cm in greatest dimension without "DATA",164,67220,5,11,0) vascular invasion "DATA",164,67220,5,12,0) T3 Solitary tumor more than 2 cm in greatest dimension with vascular "DATA",164,67220,5,13,0) invasion, or multiple tumors limited to one lobe, none more than "DATA",164,67220,5,14,0) 2 cm in greatest dimension, with vascular invasion, or a multiple "DATA",164,67220,5,15,0) tumors limited to one lobe, any more than 2 cm in greatest "DATA",164,67220,5,16,0) dimension, with or without vascular invasion "DATA",164,67220,5,17,0) T4 Multiple tumors in more than one lobe or tumor(s) involve(s) a major "DATA",164,67220,5,18,0) branch of the portal or hepatic vein(s) or invasion of adjacent "DATA",164,67220,5,19,0) organs other than the gallbladder or perforation of the visceral "DATA",164,67220,5,20,0) peritoneum "DATA",164,67220,6,0) ^164.0109^5^5^3090410^^^^ "DATA",164,67220,6,1,0) Regional Lymph Nodes (N) "DATA",164,67220,6,2,0) "DATA",164,67220,6,3,0) NX Regional lymph node(s) cannot be assessed "DATA",164,67220,6,4,0) N0 No regional lymph node metastasis "DATA",164,67220,6,5,0) N1 Regional lymph node metastasis "DATA",164,67220,8,0) ^^13^13^3020624^ "DATA",164,67220,8,1,0) Primary Tumor (T) "DATA",164,67220,8,2,0) "DATA",164,67220,8,3,0) TX Primary tumor cannot be assessed "DATA",164,67220,8,4,0) T0 No evidence of primary tumor "DATA",164,67220,8,5,0) T1 Solitary tumor without vascular invasion "DATA",164,67220,8,6,0) T2 Solitary tumor with vascular invasion or "DATA",164,67220,8,7,0) multiple tumors none more than 5 cm "DATA",164,67220,8,8,0) T3 Multiple tumors more than 5 cm or tumor "DATA",164,67220,8,9,0) involving a major branch of the portal or hepatic "DATA",164,67220,8,10,0) vein(s) "DATA",164,67220,8,11,0) T4 Tumor(s) with direct invasion of adjacent "DATA",164,67220,8,12,0) organs other than the gallbladder or with "DATA",164,67220,8,13,0) perforation of visceral peritoneum "DATA",164,67220,"BP5",0) ^164.0117^1^1 "DATA",164,67220,"BP5",1,0) Not a breast or prostate primary^0 "DATA",164,67220,"E") 43^43^43 "DATA",164,67220,"GU5",0) ^164.0118^1^1 "DATA",164,67220,"GU5",1,0) Not a breast or prostate primary^0 "DATA",164,67220,"L") 44^45^45 "DATA",164,67220,"N",0) ^164.065I^4^4 "DATA",164,67220,"N",1,0) NCA^X^X "DATA",164,67220,"N",2,0) NRN^0^0 "DATA",164,67220,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164,67220,"N",4,0) NA^88^88 "DATA",164,67220,"RR5",0) ^164.0116^4^4 "DATA",164,67220,"RR5",1,0) No reconstruction/restoration^0 "DATA",164,67220,"RR5",2,0) Rioux-en-Y; hepatojejunostomy including stent^1 "DATA",164,67220,"RR5",3,0) Liver transplant^2 "DATA",164,67220,"RR5",4,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67220,"SC5",0) ^164.0113^3^3 "DATA",164,67220,"SC5",1,0) No regional lymph nodes removed^0 "DATA",164,67220,"SC5",2,0) Regional lymph node(s) removed, NOS^1 "DATA",164,67220,"SC5",3,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67220,"SM5",0) ^164.0112^7^7 "DATA",164,67220,"SM5",1,0) All margins grossly and microscopically negative^0 "DATA",164,67220,"SM5",2,0) Margins involved, NOS^1 "DATA",164,67220,"SM5",3,0) Microscopic involvement^2 "DATA",164,67220,"SM5",4,0) Macroscopic involvement^5 "DATA",164,67220,"SM5",5,0) Margins not evaluable^7 "DATA",164,67220,"SM5",6,0) No surgery of primary site^8 "DATA",164,67220,"SM5",7,0) Unk whether margins involved or negative; death cert ONLY^9 "DATA",164,67220,"SO5",0) ^164.0115^7^7 "DATA",164,67220,"SO5",1,0) None^0 "DATA",164,67220,"SO5",2,0) Surg to other sites/nodes, NOS; unk if regional or distant^1 "DATA",164,67220,"SO5",3,0) Other regional sites^2 "DATA",164,67220,"SO5",4,0) Distant lymph nodes; includes inferior phrenic lymph nodes^3 "DATA",164,67220,"SO5",5,0) Distant site(s)^4 "DATA",164,67220,"SO5",6,0) Combination of 4 WITH 2 or 3^5 "DATA",164,67220,"SO5",7,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67220,"SPS",0) ^164.0111^36^32 "DATA",164,67220,"SPS",1,0) None^0 "DATA",164,67220,"SPS",2,0) Local tumor destruction, NOS^10 "DATA",164,67220,"SPS",3,0) Local tumor destruction, photodynamic therapy (PDT)^11 "DATA",164,67220,"SPS",4,0) Local tumor destruction, electrocautery; fulguration^12 "DATA",164,67220,"SPS",5,0) Local tumor destruction, cryosurgery^13 "DATA",164,67220,"SPS",6,0) Local tumor destruction, laser^14 "DATA",164,67220,"SPS",7,0) Local tumor destruction, alcohol (PEI)^15 "DATA",164,67220,"SPS",8,0) Heat, Radio frequency ablation (RFA)^16 "DATA",164,67220,"SPS",9,0) Local tumor destruction, other (ultrasound, acetic acid)^17 "DATA",164,67220,"SPS",10,0) Wedge or segmental resection, NOS^20 "DATA",164,67220,"SPS",11,0) Lobectomy, NOS^30 "DATA",164,67220,"SPS",12,0) Lobectomy, simple (ROADS)^31 "DATA",164,67220,"SPS",13,0) Lobectomy, extended (ROADS)^32 "DATA",164,67220,"SPS",14,0) Excision of bile duct (intrahepatic bile duct only) (ROADS)^40 "DATA",164,67220,"SPS",15,0) Total hepatectomy with transplant (ROADS)^70 "DATA",164,67220,"SPS",16,0) Hepatectomy, NOS (ROADS)^80 "DATA",164,67220,"SPS",17,0) Surgery, NOS^90 "DATA",164,67220,"SPS",18,0) Unknown; death certificate ONLY^99 "DATA",164,67220,"SPS",19,0) Wedge resection^21 "DATA",164,67220,"SPS",20,0) Segmental resection, NOS^22 "DATA",164,67220,"SPS",21,0) Segmental resection, one^23 "DATA",164,67220,"SPS",22,0) Segmental resection, two^24 "DATA",164,67220,"SPS",23,0) Segmental resection, three^25 "DATA",164,67220,"SPS",24,0) Segmental resection AND local tumor destruction^26 "DATA",164,67220,"SPS",25,0) Right lobectomy^36 "DATA",164,67220,"SPS",26,0) Left lobectomy^37 "DATA",164,67220,"SPS",27,0) Lobectomy AND local tumor destruction^38 "DATA",164,67220,"SPS",28,0) Extended lobectomy, NOS^50 "DATA",164,67220,"SPS",29,0) Extended right lobectomy^51 "DATA",164,67220,"SPS",30,0) Extended left lobectomy^52 "DATA",164,67220,"SPS",31,0) Extended lobectomy AND local tumor destruction^59 "DATA",164,67220,"SPS",32,0) Hepatectomy, NOS^60 "DATA",164,67220,"SPS",33,0) Total hepatectomy and transplant^61 "DATA",164,67220,"SPS",34,0) Excision of a bile duct^65 "DATA",164,67220,"SPS",35,0) Excision of a bile duct PLUS partial hepatectomy^66 "DATA",164,67220,"SPS",36,0) Bile duct and hepatectomy WITH transplant^75 "DATA",164,67220,"SR") 198^198 "DATA",164,67220,"SUA",0) ^164.0108^8^8 "DATA",164,67220,"SUA",1,0) None^0 "DATA",164,67220,"SUA",2,0) Endoscopy ONLY, NOS (laparoscopy)^1 "DATA",164,67220,"SUA",3,0) Endoscopy, not image guided^2 "DATA",164,67220,"SUA",4,0) Endoscopy, image guided^3 "DATA",164,67220,"SUA",5,0) Open, NOS^4 "DATA",164,67220,"SUA",6,0) Open, not assisted by endoscopy^5 "DATA",164,67220,"SUA",7,0) Open, assisted by endoscopy^6 "DATA",164,67220,"SUA",8,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67220,"T",0) ^164.06I^12^7 "DATA",164,67220,"T",1,0) CBA^X^X "DATA",164,67220,"T",2,0) NET^0^0 "DATA",164,67220,"T",3,0) 2 cm or less w/o vascular invasion^1^1 "DATA",164,67220,"T",4,0) 2 cm or less w vas inv/> 2 cm w/o vas inv^2^2 "DATA",164,67220,"T",7,0) More than 2 cm w vascular invasion^3^3 "DATA",164,67220,"T",10,0) Multiple tumors/branch of portal/hepatic vein^4^4 "DATA",164,67220,"T",12,0) NA^88^88 "DATA",164,67220,"T6",0) ^164.0119^7^7 "DATA",164,67220,"T6",1,0) CBA^X "DATA",164,67220,"T6",2,0) NET^0 "DATA",164,67220,"T6",3,0) Solitary tumor w/o vascular invasion^1 "DATA",164,67220,"T6",4,0) Solitary w inv/mult tumor not > 5 cm^2 "DATA",164,67220,"T6",5,0) Multiple > 5 cm/portal or hepatic veins^3 "DATA",164,67220,"T6",6,0) Invasion/not gallbladder or peritoneum^4 "DATA",164,67220,"T6",7,0) NA^88 "FIA",160) ONCOLOGY PATIENT "FIA",160,0) ^ONCO(160, "FIA",160,0,0) 160V "FIA",160,0,1) y^y^p^^^^n^^n "FIA",160,0,10) "FIA",160,0,11) "FIA",160,0,"RLRO") "FIA",160,0,"VR") 2.11^ONC "FIA",160,160) 1 "FIA",160,160,.015) "FIA",160,160,.117) "FIA",160,160,33.1) "FIA",160,160,33.2) "FIA",160,160,48) "FIA",160,160,50) "FIA",160,160,66) "FIA",160,160,67) "FIA",160,160,75) "FIA",160,160.075) 1 "FIA",160,160.075,.01) "FIA",160.16) ONCOLOGY DATA EXTRACT FORMAT "FIA",160.16,0) ^ONCO(160.16, "FIA",160.16,0,0) 160.16 "FIA",160.16,0,1) y^y^f^^n^^y^o^n "FIA",160.16,0,10) "FIA",160.16,0,11) "FIA",160.16,0,"RLRO") "FIA",160.16,0,"VR") 2.11^ONC "FIA",160.16,160.16) 0 "FIA",160.16,160.161) 0 "FIA",160.16,160.162) 0 "FIA",160.17) ONCOLOGY PCE EXTRACT FORMAT "FIA",160.17,0) ^ONCO(160.17, "FIA",160.17,0,0) 160.17 "FIA",160.17,0,1) y^y^f^^n^^y^o^n "FIA",160.17,0,10) "FIA",160.17,0,11) "FIA",160.17,0,"RLRO") "FIA",160.17,0,"VR") 2.11^ONC "FIA",160.17,160.17) 0 "FIA",160.17,160.171) 0 "FIA",160.17,160.172) 0 "FIA",164) ICDO TOPOGRAPHY "FIA",164,0) ^ONCO(164, "FIA",164,0,0) 164I "FIA",164,0,1) n^n^f^^n^^y^r^n "FIA",164,0,10) "FIA",164,0,11) I Y=67220 "FIA",164,0,"RLRO") "FIA",164,0,"VR") 2.11^ONC "FIA",164,164) 0 "FIA",164,164.01) 0 "FIA",164,164.0101) 0 "FIA",164,164.0103) 0 "FIA",164,164.0104) 0 "FIA",164,164.0105) 0 "FIA",164,164.0106) 0 "FIA",164,164.0108) 0 "FIA",164,164.0109) 0 "FIA",164,164.0111) 0 "FIA",164,164.0112) 0 "FIA",164,164.0113) 0 "FIA",164,164.0114) 0 "FIA",164,164.0115) 0 "FIA",164,164.0116) 0 "FIA",164,164.0117) 0 "FIA",164,164.0118) 0 "FIA",164,164.0119) 0 "FIA",164,164.012) 0 "FIA",164,164.0121) 0 "FIA",164,164.0122) 0 "FIA",164,164.0123) 0 "FIA",164,164.0124) 0 "FIA",164,164.02) 0 "FIA",164,164.04) 0 "FIA",164,164.05) 0 "FIA",164,164.06) 0 "FIA",164,164.065) 0 "FIA",164,164.066) 0 "FIA",164,164.09) 0 "FIA",165.5) ONCOLOGY PRIMARY "FIA",165.5,0) ^ONCO(165.5, "FIA",165.5,0,0) 165.5IsP "FIA",165.5,0,1) y^y^p^^^^n^^n "FIA",165.5,0,10) "FIA",165.5,0,11) "FIA",165.5,0,"RLRO") "FIA",165.5,0,"VR") 2.11^ONC "FIA",165.5,165.5) 1 "FIA",165.5,165.5,44) "FIA",165.5,165.5,102) "FIA",165.5,165.5,148) "FIA",165.5,165.5,148.1) "FIA",165.5,165.5,148.2) "FIA",165.5,165.5,148.3) "FIA",165.5,165.5,148.4) "FIA",165.5,165.5,205) "FIA",165.5,165.5,227) "FIA",165.5,165.5,228) "FIA",165.5,165.5,229) "FIA",165.5,165.5,230) "FIA",165.5,165.5,231) "FIA",165.5,165.5,232) "FIA",165.5,165.5,684) "INI") ONCPRE50 "INIT") ONCPST50 "KRN",.4,1133,-1) 0^9 "KRN",.4,1133,0) ONCO XINCIDENCE RPRT^3090921.0904^^165.5^^@^3090921 "KRN",.4,1133,"DXS",1,9) S DIP(102)=$C(59)_$P($G(^DD(160,9,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X="ETHNICITY: "_$P($P(DIP(102),$C(59)_$P(DIP(101),U,7)_":",2),$C(59)) "KRN",.4,1133,"DXS",2,9) S DIP(2)=$C(59)_$P($G(^DD(165.5,28,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X="LATERALITY: "_$P($P(DIP(2),$C(59)_$P(DIP(1),U,8)_":",2),$C(59)) "KRN",.4,1133,"DXS",3,9) S DIP(2)=$C(59)_$P($G(^DD(165.5,.04,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X="CLASS of CASE: "_$P($P(DIP(2),$C(59)_$P(DIP(1),U,4)_":",2),$C(59)) "KRN",.4,1133,"DXS",4,9) S DIP(2)=$C(59)_$P($G(^DD(165.5,26,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X="DX CONFIRMATION: "_$P($P(DIP(2),$C(59)_$P(DIP(1),U,6)_":",2),$C(59)) "KRN",.4,1133,"DXS",5,9) S DIP(2)=$C(59)_$P($G(^DD(165.5,35,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X="GEN SUMMARY STG: "_$P($P(DIP(2),$C(59)_$P(DIP(1),U,17)_":",2),$C(59)) "KRN",.4,1133,"F",1) -160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;".02:"~-160,1000.1~-160,1001.1~-160,1002.1~ "KRN",.4,1133,"F",2) -160,W " ";C1;X;Z;"W " ""~-160,W " ";C1;X;Z;"W " ""~-160,.01;C5;X~ "KRN",.4,1133,"F",3) -160,X "N I,Y "_$P(^DD(160,1003,0),U,5,99) S DIP(101)=X S X="State Hospital No: "_DIP(101) W X K DIP;C45;X;Z;""State Hospital No: "_#1003"~-160,.119;C5;L50~ "KRN",.4,1133,"F",4) -160,.118;C5;L50~-160,W " ";C1;X;Z;"W " ""~-160,W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",5) -160,W "****************************************";C20;X;Z;"W "****************************************""~-160,W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",6) -160,W " ";C1;X;Z;"W " ""~-160,X "N I,Y "_$P(^DD(160,2,0),U,5,99) S DIP(101)=X S X="SSN: "_DIP(101) W X K DIP;C5;X;Z;""SSN: "_SSN"~ "KRN",.4,1133,"F",7) -160,D DOB^ONCOES;Z;"D DOB^ONCOES"~-160,W "DOB: "_X;C45;X;L18;Z;"W "DOB: "_X"~ "KRN",.4,1133,"F",8) -160,S DIP(102)=$C(59)_$P($G(^DD(160,10,0)),U,3),DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X="SEX: "_$P($P(DIP(102),$C(59)_$P(DIP(101),U,8)_":",2),$C(59)) W X K DIP;C5;X;Z;""SEX: "_SEX"~ "KRN",.4,1133,"F",9) -160,S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X="POB: "_$P($G(^ONCO(165.2,+$P(DIP(101),U,5),0)),U) W X K DIP;C45;X;Z;""POB: "_#7"~ "KRN",.4,1133,"F",10) -160,S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X="RACE: "_$P($G(^ONCO(164.46,+$P(DIP(101),U,6),0)),U) W X K DIP;C5;X;Z;""RACE: "_#8"~ "KRN",.4,1133,"F",11) -160,X DXS(1,9) W X K DIP;C45;X;L36;Z;""ETHNICITY: "_#9"~-160,W " ";C1;X;Z;"W " ""~-160,W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",12) -160,W "****************************************";C20;X;Z;"W "****************************************""~-160,W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",13) -160,W " ";C1;X;Z;"W " ""~W "DATE DX: ";C5;Z;"W "DATE DX: ""~3;C14;L10~ "KRN",.4,1133,"F",14) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X="IDCO SITE: "_$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U) W X K DIP;C45;X;Z;""IDCO SITE: "_#20"~ "KRN",.4,1133,"F",15) S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"") S X="HISTOLOGY (ICD-O-3): "_$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U) W X K DIP;C5;X;L38;Z;""HISTOLOGY (ICD-O-3): "_#22.3"~ "KRN",.4,1133,"F",16) X DXS(2,9) W X K DIP;C45;X;L36;Z;""LATERALITY: "_#28"~ "KRN",.4,1133,"F",17) N DIERR S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X="GRADE: "_$$EXTERNAL^DIDU(165.5,24,"",$P(DIP(1),U,5)) W X K DIP;C5;X;Z;""GRADE: "_#24"~ "KRN",.4,1133,"F",18) X DXS(3,9) W X K DIP;C45;X;L36;Z;""CLASS of CASE: "_#.04"~X DXS(4,9) W X K DIP;C5;X;Z;""DX CONFIRMATION: "_#26"~ "KRN",.4,1133,"F",19) X DXS(5,9) W X K DIP;C45;X;L36;Z;""GEN SUMMARY STG: "_#35"~ "KRN",.4,1133,"F",20) S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X="Sequence Number: "_$P(DIP(1),U,6) W X K DIP;C5;X;Z;""Sequence Number: "_#.06"~ "KRN",.4,1133,"F",21) S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X="Primary Physician: "_$P($G(^ONCO(165,+$P(DIP(1),U,12),0)),U) W X K DIP;C45;X;L35;Z;""Primary Physician: "_#2.1"~ "KRN",.4,1133,"F",22) W " ";C1;X;Z;"W " ""~W " ";C1;X;Z;"W " ""~W "***************************************";C20;X;Z;"W "***************************************""~ "KRN",.4,1133,"F",23) W " ";C1;X;Z;"W " ""~W " ";C1;X;Z;"W " ""~D PDLC^ONCOCRF,DATEOT^ONCOES;Z;"D PDLC^ONCOCRF,DATEOT^ONCOES"~ "KRN",.4,1133,"F",24) W "DATE of LAST CONTACT: "_X;C5;X;L18;Z;"W "DATE of LAST CONTACT: "_X"~ "KRN",.4,1133,"F",25) X "N I,Y "_$P(^DD(165.5,.091,0),U,5,99) S DIP(1)=X S X="VITAL STATUS: "_DIP(1) W X K DIP;C45;X;Z;""VITAL STATUS: "_#.091"~W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",26) W " ";C1;X;Z;"W " ""~W "***************************************";C20;X;Z;"W "***************************************""~W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",27) W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",28) S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"") S X="ABSTRACTER: "_$P($G(^VA(200,+$P(DIP(1),U,3),0)),U) W X K DIP;C5;X;Z;""ABSTRACTER: "_#92"~ "KRN",.4,1133,"F",29) W "DATE CASE COMPLETED: ";C45;Z;"W "DATE CASE COMPLETED: ""~90;C66;L10~ "KRN",.4,1133,"H") @ "KRN",.4,1133,"IOM") 80 "KRN",.4,1133,"LAST") "KRN",.4,1133,"ROU") ^ONCOXNC "KRN",.4,1133,"ROUOLD") ONCOXNC "KRN",.4,1133,"SUB") 1 "KRN",.4,1140,-1) 0^4 "KRN",.4,1140,0) ONCO SUSPENSE-HDR^3090507.1216^^160^^@^3090901 "KRN",.4,1140,"F",1) "KRN",.4,1140,"F",2) W !,"--------------------------------------------------------------------------------";Z;"W !,"--------------------------------------------------------------------------------""~ "KRN",.4,1140,"F",3) "SUSPENSE LIST";C30~"Pid#";C1~"Name";C7;X~"Organ/Tiss";X;C14~"Lab Morphology";X;C26~"ICD9";X;C48~S X="Suspense" W X K DIP;X;C56";Z;""Suspense""~ "KRN",.4,1140,"F",4) "Discharge";X;C66~"Src";X;C76~ "KRN",.4,1140,"F",5) W !,"--------------------------------------------------------------------------------";Z;"W !,"--------------------------------------------------------------------------------""~ "KRN",.4,1140,"H") @ "KRN",.4,1140,"SUB") 1 "KRN",.4,1151,-1) 0^2 "KRN",.4,1151,0) ONCO XDEATH INFO^3090312.1127^^160^^@^3090313 "KRN",.4,1151,"DXS",1,"D") Directly related "KRN",.4,1151,"DXS",1,"I") Indirectly related "KRN",.4,1151,"DXS",1,"N") Not related "KRN",.4,1151,"DXS",1,"U") Unknown "KRN",.4,1151,"DXS",2,0) Patient alive at last follow-up "KRN",.4,1151,"DXS",2,8) ICDA-8 "KRN",.4,1151,"DXS",2,9) ICD-9 "KRN",.4,1151,"DXS",3,0) Patient alive "KRN",.4,1151,"DXS",3,1) Autopsy performed "KRN",.4,1151,"DXS",3,2) No autopsy performed "KRN",.4,1151,"DXS",3,9) Patient expired, unknown if autopsy performed "KRN",.4,1151,"F",1) "**********DEATH INFORMATION**********";C10;X~" ";C20;X~"Date@Time of Death: ";C5;X~29;X;~"Place of Death: ";X;C45;L7~21;X~ "KRN",.4,1151,"F",2) "Cause of Death/Cancer: ";X;C5~18.9~"Cause of Death: ";X;C5~S ICDCD=$P($G(^ONCO(160,D0,1)),U,3);Z;"S ICDCD=$P($G(^ONCO(160,D0,1)),U,3)"~ "KRN",.4,1151,"F",3) I ICDCD'="" S IC=$$ICDDX^ICDCODE(ICDCD) I +IC'=-1 W $P(IC,U,4);Z;"I ICDCD'="" S IC=$$ICDDX^ICDCODE(ICDCD) I +IC'=-1 W $P(IC,U,4)"~ "KRN",.4,1151,"F",4) I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI;Z;"I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI"~"Care Center at Death: ";X;C5;L13~24.5;X~ "KRN",.4,1151,"F",5) "ICD Revision: ";X;C5~20;X~"Autopsy: ";C5~22.9;X~" ";X~23;X~" Autopsy #: ";X;C43~24;X~K ^UTILITY($J,"W");Z;"K ^UTILITY($J,"W")"~ "KRN",.4,1151,"F",6) "Path/Autopsy (Gross & Micro):";C5;X~31,.01;C7;X;L66;W~" ";C20;X~ "KRN",.4,1151,"H") @ "KRN",.4,1151,"IOM") 80 "KRN",.4,1151,"LAST") "KRN",.4,1151,"ROU") ^ONCOXDI "KRN",.4,1151,"ROUOLD") ONCOXDI "KRN",.4,1151,"SUB") 1 "KRN",.4,1175,-1) 0^7 "KRN",.4,1175,0) ONCO CONTACT LIST-A^3090422.1134^^165^^@^3090812^ "KRN",.4,1175,"F",1) .01;C3;X~1;C35;X~.111;"";C3;X~.112;"";C3;X~.113;"";C3;X~.119;C3;X~.131;C3;X~W " ";C3;X;Z;"W " ""~ "KRN",.4,1175,"H") ONCOLOGY CONTACT LIST "KRN",.4,1176,-1) 0^8 "KRN",.4,1176,0) ONCO CONTACT LIST-T^3090422.1154^^165^^@^3090422^ "KRN",.4,1176,"F",1) .01;C3;X~.111;C3;X~.112;C3;X~.113;C3;X~.119;C3;X~.131;C3;X~W " ";C3;X;Z;"W " ""~ "KRN",.4,1176,"H") ONCOLOGY CONTACT LIST "KRN",.4,2123,-1) 0^3 "KRN",.4,2123,0) ONCO SUSPENSE^3090507.1229^@^160^^@^3090901 "KRN",.4,2123,"DCL","160^.01") ! "KRN",.4,2123,"F",1) 60~.01;C7;L5~75,5;L10;C14~75,4;L20;C26~75,8;L6;C48;X~75,.01;L8;C56;X~33.2;L8;C66~75,2;L3;C76;X~ "KRN",.4,2123,"H") [ONCO SUSPENSE-HDR] "KRN",.4,2126,-1) 0^1 "KRN",.4,2126,0) ONC DISEASE INDEX^3090313.1508^@^9000010.07^^@^3090513 "KRN",.4,2126,"F",1) -9000001,^AUPNPAT(^^S I(0,0)=D0 S DIP(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;"PATIENT:"~ "KRN",.4,2126,"F",2) -9000001,-2,^DPT(^^S I(100,0)=D0 S DIP(101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"") S X=$P(DIP(101),U,1),X=X S D(0)=+X;Z;"NAME:"~-9000001,-2,.0905;N;"PID"~ "KRN",.4,2126,"F",3) .02;N;L25~.01;"DIAGNOSIS";C35;X~W ?42,$P($$ICDDX^ICDCODE(D0),U,4);"";Z;"W ?42,$P($$ICDDX^ICDCODE(D0),U,4)"~ "KRN",.4,2126,"F",4) S DIP(1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:"") S X=$P($G(^AUPNVSIT(+$P(DIP(1),U,3),0)),U),X=$P(X,".",1) S Y=X D DT K DIP;C69;"VISIT";d;L18;X;Z;"DATE(VISIT)"~ "KRN",.4,2126,"H") DISEASE INDEX "KRN",.4,2500,-1) 0^5 "KRN",.4,2500,0) ONCQA^3090424.1156^@^165.5^^@^3090922 "KRN",.4,2500,"DXS") 7 "KRN",.4,2500,"DXS",1,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"") S X=$P($G(^VA(200,+$P(DIP(1),U,3),0)),U) "KRN",.4,2500,"DXS",2,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(165.5,.03,"",$P(DIP(1),U,3)) "KRN",.4,2500,"DXS",3,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U) "KRN",.4,2500,"DXS",4,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"") S X=$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U) "KRN",.4,2500,"DXS",5,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"") "KRN",.4,2500,"DXS",6,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(165.51,2,"",$P(DIP(1),U,3)) "KRN",.4,2500,"F",1) "CANCER REGISTRY QA ABSTRACT";C3;S1~ "KRN",.4,2500,"F",2) S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,".",1) S Y=X D DT K DIP;C65;L12;d;Z;"DATE(NOW)"~ "KRN",.4,2500,"F",3) "Abstracted by.................:";C3;S1~ "KRN",.4,2500,"F",4) X DXS(1,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(ABSTRACTED BY)"~ "KRN",.4,2500,"F",5) "Reporting Hospital............:";C3~ "KRN",.4,2500,"F",6) N DIERR X DXS(2,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;L45;Z;"LOWERCASE(#.03)"~ "KRN",.4,2500,"F",7) "Date Case Completed...........:";C3~90;C35~"Patient Name..................:";C3~.02;C35~"PID#..........................:";C3~61;C35~ "KRN",.4,2500,"F",8) "* CANCER IDENTIFICATION *";S1~"Class of Case.................:";C3;S1~.04;C35~"Primary Site..................:";C3~ "KRN",.4,2500,"F",9) X DXS(3,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(PRIMARY SITE)"~ "KRN",.4,2500,"F",10) "Laterality....................:";C3~28;C35;X~"Date Dx.......................:";C3~3;C35;L10~"Histology (ICD-O-3)...........:";C3~ "KRN",.4,2500,"F",11) X DXS(4,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(HISTOLOGY (ICD-O-3))"~ "KRN",.4,2500,"F",12) "Grade/Diff/Cell Type..........:";C3~24;C35~X DXS(5,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C35;Z;"GRADE:EXPLANATION"~ "KRN",.4,2500,"F",13) "Diagnostic Confirmation.......:";C3~26;C35~"* STAGE OF DISEASE AT DIAGNOSIS *";S1~"Clinical TNM..................: ";C3;S1~37;C35~ "KRN",.4,2500,"F",14) "Clinical Stage Group..........:";C3~38;C35~"Staged By (Clinical)..........:";C3~19;C35~"Pathologic TNM................:";C3~89.1;C35~ "KRN",.4,2500,"F",15) "Pathologic Stage Group........:";C3~88;C35;L14~"Staged By (Pathologic)........:";C3~89;C35~"Tumor Size....................:";C3;S1~29;C35~ "KRN",.4,2500,"F",16) "Extension.....................:";C3~30;C35;L45~"Pathologic Extension..........:";C3~30.1;C35~"Regional Lymph Nodes Examined.:";C3~33;C35~ "KRN",.4,2500,"F",17) "Regional Lymph Nodes Positive.:";C3~32;C35~"Lymph Nodes...................:";C3~31;C35~"SEER Summary Stage 2000.......:";C3~35;C35~ "KRN",.4,2500,"F",18) "Site of Distant Metastasis #1.:";C3~34;C35~"Site of Distant Metastasis #2.:";C3~34.1;C35~"Site of Distant Metastasis #3.:";C3~34.2;C35~ "KRN",.4,2500,"F",19) "Physician's Stage.............:";C3~65;C35~"Physician Staging.............:";C3~66;C35~"* COLLABORATIVE STAGING *";S1 Replace~ "KRN",.4,2500,"F",20) "Tumor Size....................: ";C3;S1~29.2;X//~"Extension.....................: ";C3~30.2;X//~"Tumor Size/Ext Eval...........:";C3~ "KRN",.4,2500,"F",21) 29.1;C35 Replace~"Lymph Nodes ..................:";C3~31.1;C35 Replace~"Reg Nodes Eval................:";C3~32.1;C35 Replace~ "KRN",.4,2500,"F",22) "Regional Nodes Examined.......:";C3~33;C35~"Regional Nodes Positive.......:";C3~32;C35~"Mets at Dx....................:";C3~34.3;C35//~ "KRN",.4,2500,"F",23) "Mets Eval.....................:";C3~34.4;C35//~"Site-Specific Factor 1........:";C3~44.1;C35 Replace~"Site-Specific Factor 2........:";C3~ "KRN",.4,2500,"F",24) 44.2;C35 Replace~"Site-Specific Factor 3........:";C3~44.3;C35 Replace~"Site-Specific Factor 4........:";C3~44.4;C35 Replace~ "KRN",.4,2500,"F",25) "Site-Specific Factor 5........:";C3~44.5;C35 Replace~"Site-Specific Factor 6........:";C3~44.6;C35 Replace~"Derived T.....................:";C3;S1~ "KRN",.4,2500,"F",26) 160;C35//~"Derived T Descriptor..........:";C3~161;C35 Replace~"Derived N.....................:";C3~162;C35//~"Derived N Descriptor..........:";C3~ "KRN",.4,2500,"F",27) 163;C35 Replace~"Derived M.....................:";C3~164;C35//~"Derived M Descriptor..........:";C3~165;C35 Replace~ "KRN",.4,2500,"F",28) "Derived Stage Group...........:";C3~166;C35 Replace~"Derived SS1977................:";C3~167;C35//~"Derived SS2000................:";C3~168;C35//~ "KRN",.4,2500,"F",29) "* FIRST COURSE OF TREATMENT *";S1~"Surgery of Primary............:";C3;S1~50;C35~58.6;C46;L34~"Radiation.....................:";C3~51;C35~51.2;C46~ "KRN",.4,2500,"F",30) "Chemotherapy..................:";C3~53;C35~53.2;C46;L34~"Hormone Therapy...............:";C3~54;C35~54.2;C46;L34~"Immunotherapy.................:";C3~ "KRN",.4,2500,"F",31) 55;C35~55.2;C46;L34~"Hema Trans/Endocrine Proc.....:";C3~153.1;C35~153;C46;L34~S X=X;Z;"S X=X"~"Other Treatment...............:";C3~57;C35~ "KRN",.4,2500,"F",32) 57.2;C46;L34~"* TEXT *";S1~"Text-Remarks:";C3;S1~113,.01;C3~"Text-DX Proc-PE:";C3;S1~104,.01;C3~"Text-DX Proc-X-ray/Scan:";C3;S1~105,.01;C3~ "KRN",.4,2500,"F",33) "Text-DX Proc-Scopes:";C3;S1~106,.01;C3~"Text-DX Proc-Lab Tests:";C3;S1~116,.01;C3~"Text-DX Proc-Op:";C3;S1~103,.01;C3~"Text-DX Proc-Path:";C3;S1~ "KRN",.4,2500,"F",34) 107,.01;C3~"* FOLLOW-UP *";S1~S FUQA="QA";Z;"S FUQA="QA""~150~"* RECURRENCES *";S1~"Type of First Recurrence......:";C3;S1~70;C35~71;C46;L34~ "KRN",.4,2500,"F",35) "Distant Site 1................:";C3~71.1;C35~"Distant Site 2................:";C3~71.2;C35~"Distant Site 3................:";C3~71.3;C35~ "KRN",.4,2500,"F",36) "* SUBSEQUENT COURSE OF TREATMENT *";S1~60,"Initiation Date...............:";C3;S1~60,.01;C35~60,"Place.........................:";C3~ "KRN",.4,2500,"F",37) 60,N DIERR X DXS(6,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(PLACE)"~ "KRN",.4,2500,"F",38) 60,"Surgery of Primary Site.......:";C3~60,.041;C35~60,.04;C46;L34~60,"Radiation.....................:";C3~60,.051;C35~60,.05;C46;L34~ "KRN",.4,2500,"F",39) 60,"Chemotherapy..................:";C3~60,.061;C35~60,.06;C46;L34~60,"Hormone Therapy...............:";C3~60,.071;C35~60,.07;C46;L34~ "KRN",.4,2500,"F",40) 60,"Immunotherapy.................:";C3~60,.081;C35~60,.08;C46;L34~60,"Hema Trans/Endocrine Proc.....:";C3~60,.021;C35~60,.02;C46;L34;X~ "KRN",.4,2500,"F",41) 60,S X=X;Z;"S X=X"~60,"Other Treatment...............:";C3~60,.091;C35~60,.09;C46;L34~ "KRN",.4,2500,"H") @ "KRN",.4,2500,"SUB") 1 "KRN",.4,2508,-1) 0^6 "KRN",.4,2508,0) ONCQA1^3090424.1158^@^165.5^^@^3090820 "KRN",.4,2508,"DXS") 7 "KRN",.4,2508,"DXS",1,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"") S X=$P($G(^VA(200,+$P(DIP(1),U,3),0)),U) "KRN",.4,2508,"DXS",2,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(165.5,.03,"",$P(DIP(1),U,3)) "KRN",.4,2508,"DXS",3,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"") S X=$P($G(^ONCO(164,+$P(DIP(1),U,1),0)),U) "KRN",.4,2508,"DXS",4,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2.2)):^(2.2),1:"") S X=$P($G(^ONCO(169.3,+$P(DIP(1),U,3),0)),U) "KRN",.4,2508,"DXS",5,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""),D0=$P(DIP(1),U,5) S:'D0!'$D(^ONCO(164.43,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(164.43,D0,0)):^(0),1:"") "KRN",.4,2508,"DXS",6,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:"") S X=$$EXTERNAL^DIDU(165.51,2,"",$P(DIP(1),U,3)) "KRN",.4,2508,"F",1) "CANCER REGISTRY QA ABSTRACT";C3;S1~ "KRN",.4,2508,"F",2) S %=$P($H,",",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X=$P(X,".",1) S Y=X D DT K DIP;C65;L12;d;Z;"DATE(NOW)"~ "KRN",.4,2508,"F",3) "Abstracted by.................:";C3;S1~ "KRN",.4,2508,"F",4) X DXS(1,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(ABSTRACTED BY)"~ "KRN",.4,2508,"F",5) "Reporting Facility............:";C3~ "KRN",.4,2508,"F",6) N DIERR X DXS(2,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;L45;Z;"LOWERCASE(#.03)"~ "KRN",.4,2508,"F",7) "Date Case Completed...........:";C3~90;C35~"Patient Name..................:";C3~.02;C35~"PID#..........................:";C3~61;C35~ "KRN",.4,2508,"F",8) "* CANCER IDENTIFICATION *";S1~"Class of Case.................:";C3;S1~.04;C35~"Primary Site..................:";C3~ "KRN",.4,2508,"F",9) X DXS(3,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(PRIMARY SITE)"~ "KRN",.4,2508,"F",10) "Laterality....................:";C3~28;C35;X~"Date Dx.......................:";C3~3;C35;L10~"Histology (ICD-O-3)...........:";C3~ "KRN",.4,2508,"F",11) X DXS(4,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(HISTOLOGY (ICD-O-3))"~ "KRN",.4,2508,"F",12) "Grade/Diff/Cell Type..........:";C3~24;C35~X DXS(5,9.2) S X=$P(DIP(101),U,2) S D0=I(0,0) W X K DIP;C35;Z;"GRADE:EXPLANATION"~ "KRN",.4,2508,"F",13) "Diagnostic Confirmation.......:";C3~26;C35~"* STAGE OF DISEASE AT DIAGNOSIS *";S1~"Clinical TNM..................: ";C3;S1~37;C35~ "KRN",.4,2508,"F",14) "Clinical Stage Group..........:";C3~38;C35~"Staged By (Clinical)..........:";C3~19;C35~"Pathologic TNM................:";C3~89.1;C35~ "KRN",.4,2508,"F",15) "Pathologic Stage Group........:";C3~88;C35;L14~"Staged By (Pathologic)........:";C3~89;C35~"Tumor Size....................:";C3;S1~29;C35~ "KRN",.4,2508,"F",16) "Extension.....................:";C3~30;C35;L45~"Regional Lymph Nodes Examined.:";C3~33;C35~"Regional Lymph Nodes Positive.:";C3~32;C35~ "KRN",.4,2508,"F",17) "Lymph Nodes...................:";C3~31;C35~"SEER Summary Stage 2000.......:";C3~35;C35~"Site of Distant Metastasis #1.:";C3~34;C35~ "KRN",.4,2508,"F",18) "Site of Distant Metastasis #2.:";C3~34.1;C35~"Site of Distant Metastasis #3.:";C3~34.2;C35~"Physician's Stage.............:";C3~65;C35~ "KRN",.4,2508,"F",19) "Physician Staging.............:";C3~66;C35~"* COLLABORATIVE STAGING *";S1 Replace~"Tumor Size....................: ";C3;S1~29.2;X//~ "KRN",.4,2508,"F",20) "Extension.....................: ";C3~30.2;X//~"Tumor Size/Ext Eval...........:";C3~29.1;C35 Replace~"Lymph Nodes ..................:";C3~ "KRN",.4,2508,"F",21) 31.1;C35 Replace~"Reg Nodes Eval................:";C3~32.1;C35 Replace~"Regional Nodes Examined.......:";C3~33;C35~ "KRN",.4,2508,"F",22) "Regional Nodes Positive.......:";C3~32;C35~"Mets at Dx....................:";C3~34.3;C35//~"Mets Eval.....................:";C3~34.4;C35//~ "KRN",.4,2508,"F",23) "Site-Specific Factor 1........:";C3~44.1;C35 Replace~"Site-Specific Factor 2........:";C3~44.2;C35 Replace~"Site-Specific Factor 3........:";C3~ "KRN",.4,2508,"F",24) 44.3;C35 Replace~"Site-Specific Factor 4........:";C3~44.4;C35 Replace~"Site-Specific Factor 5........:";C3~44.5;C35 Replace~ "KRN",.4,2508,"F",25) "Site-Specific Factor 6........:";C3~44.6;C35 Replace~"Derived T.....................:";C3;S1~160;C35//~"Derived T Descriptor..........:";C3~ "KRN",.4,2508,"F",26) 161;C35 Replace~"Derived N.....................:";C3~162;C35//~"Derived N Descriptor..........:";C3~163;C35 Replace~ "KRN",.4,2508,"F",27) "Derived M.....................:";C3~164;C35//~"Derived M Descriptor..........:";C3~165;C35 Replace~"Derived Stage Group...........:";C3~ "KRN",.4,2508,"F",28) 166;C35 Replace~"Derived SS1977................:";C3~167;C35//~"Derived SS2000................:";C3~168;C35//~"* FIRST COURSE OF TREATMENT *";S1~ "KRN",.4,2508,"F",29) "Surgery of Primary............:";C3;S1~50;C35~58.6;C46;L34~"Radiation.....................:";C3~51;C35~51.2;C46~"Chemotherapy..................:";C3~ "KRN",.4,2508,"F",30) 53;C35~53.2;C46;L34~"Hormone Therapy...............:";C3~54;C35~54.2;C46;L34~"Immunotherapy.................:";C3~55;C35~55.2;C46;L34~ "KRN",.4,2508,"F",31) "Hema Trans/Endocrine Proc.....:";C3~153.1;C35~153;C46;L34~S X=X;Z;"S X=X"~"Other Treatment...............:";C3~57;C35~57.2;C46;L34~"* TEXT *";S1~ "KRN",.4,2508,"F",32) "Text-Remarks:";C3;S1~113,.01;C3~"Text-DX Proc-PE:";C3;S1~104,.01;C3~"Text-DX Proc-X-ray/Scan:";C3;S1~105,.01;C3~"Text-DX Proc-Scopes:";C3;S1~ "KRN",.4,2508,"F",33) 106,.01;C3~"Text-DX Proc-Lab Tests:";C3;S1~116,.01;C3~"Text-DX Proc-Op:";C3;S1~103,.01;C3~"Text-DX Proc-Path:";C3;S1~107,.01;C3~"* FOLLOW-UP *";S1~ "KRN",.4,2508,"F",34) S FUQA="QA";Z;"S FUQA="QA""~150~"* RECURRENCES *";S1~"Type of First Recurrence......:";C3;S1~70;C35~71;C46;L34~"Distant Site 1................:";C3~ "KRN",.4,2508,"F",35) 71.1;C35~"Distant Site 2................:";C3~71.2;C35~"Distant Site 3................:";C3~71.3;C35~"* SUBSEQUENT COURSE OF TREATMENT *";S1~ "KRN",.4,2508,"F",36) 60,"Initiation Date...............:";C3;S1~60,.01;C35~60,"Place.........................:";C3~ "KRN",.4,2508,"F",37) 60,N DIERR X DXS(6,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C35;Z;"LOWERCASE(PLACE)"~ "KRN",.4,2508,"F",38) 60,"Surgery of Primary Site.......:";C3~60,.041;C35~60,.04;C46;L34~60,"Radiation.....................:";C3~60,.051;C35~60,.05;C46;L34~ "KRN",.4,2508,"F",39) 60,"Chemotherapy..................:";C3~60,.061;C35~60,.06;C46;L34~60,"Hormone Therapy...............:";C3~60,.071;C35~60,.07;C46;L34~ "KRN",.4,2508,"F",40) 60,"Immunotherapy.................:";C3~60,.081;C35~60,.08;C46;L34~60,"Hema Trans/Endocrine Proc.....:";C3~60,.021;C35~60,.02;C46;L34;X~ "KRN",.4,2508,"F",41) 60,S X=X;Z;"S X=X"~60,"Other Treatment...............:";C3~60,.091;C35~60,.09;C46;L34~ "KRN",.4,2508,"H") @ "KRN",.4,2508,"SUB") 1 "KRN",.402,1250,-1) 0^2 "KRN",.402,1250,0) ONCO FOLLOWUP^3090501.1248^^160^^^3090928 "KRN",.402,1250,"%D",0) ^^4^4^2930722^^ "KRN",.402,1250,"%D",1,0) Template used to post a follow-up for a patient and record status. "KRN",.402,1250,"%D",2,0) "KRN",.402,1250,"%D",3,0) DEVELOPERS NOTE: For consistent functionality, line FOLDR^ONCOFUL must "KRN",.402,1250,"%D",4,0) be identical to the 160.04 node(s) in this template. "KRN",.402,1250,"DR",1,160) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0));I OSP="" S OSP=$O(^ONCO(160.1,0));S IIN=$P($G(^ONCO(160.1,OSP,1)),U,4);400; "KRN",.402,1250,"DR",2,160.04) S ONCOD1=DA;.01;S LC=X;S IENS=D1_","_D0_",";W !?2,"REGISTRAR: ",$$GET1^DIQ(160.04,IENS,11);W !?2,"DATE ENTERED: ",$$GET1^DIQ(160.04,IENS,12);1;S VS=X;3;S:VS=0 Y="@999";4;10//^S X=$P($G(^ONCO(160.19,IIN,0)),U,2); "KRN",.402,1250,"DR",2,160.04,1) S FACPNT=X D FNPI^ONCNPI;6//^S X="Chart requisition";S NF=X S:X'=5 Y="@1000",UF="";7;S UF=X;S Y="@1000";@999;4////8;6////9;S NF=9;@1000;5;8////1;D TEMP451^ONCOAIS;@1001;S FG=1; "KRN",.402,1256,-1) 0^1 "KRN",.402,1256,0) ONCO ABSTRACT-I^3090929.0958^^165.5^^^3090928 "KRN",.402,1256,"%D",0) ^.4021^2^2^3060713^ "KRN",.402,1256,"%D",1,0) Template for complete abstract for fields in Primary file: data relevant "KRN",.402,1256,"%D",2,0) to particular cancer only as opposed to specific to Patient. "KRN",.402,1256,"DR",1,165.5) @0;D MEN^ONCOAIP;.01;.05;.06;.07;S Y="@0";@1;D PAT^ONCOAIP;.03//^S X=$P($G(^ONCO(160.19,IIN,0)),U,2);S FACPNT=$P($G(^ONCO(165.5,DA,0)),U,3) D FNPI^ONCNPI;11;8;8.2;8.1;16;9;10;147//^S X="000000"; "KRN",.402,1256,"DR",1,165.5,1) I $P($G(^ONCO(165.5,DA,0)),U,16)'="",$P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y=2.1;2.2;S PHYPNT=$P($G(^ONCO(165.5,DA,0)),U,13) D PNPI^ONCNPI;2.1;S PHYPNT=$P($G(^ONCO(165.5,DA,0)),U,12) D PNPI^ONCNPI;2; "KRN",.402,1256,"DR",1,165.5,2) S PHYPNT=$P($G(^ONCO(165.5,DA,0)),U,11) D PNPI^ONCNPI;2.3;S PHYPNT=$P($G(^ONCO(165.5,DA,0)),U,14) D PNPI^ONCNPI;2.4;S PHYPNT=$P($G(^ONCO(165.5,DA,0)),U,15) D PNPI^ONCNPI;18;1.2;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0"; "KRN",.402,1256,"DR",1,165.5,3) D PHCDSP^ONCPHC;148//^S X=PHCDEF;I X=1 S Y="@11";148.1////@;148.2////@;148.3////@;148.4////@;S Y="@12";@11;W !;148.1//^S X=PHCDEF(1);148.2//^S X=PHCDEF(2);148.3//^S X=PHCDEF(3);148.4//^S X=PHCDEF(4);@12; "KRN",.402,1256,"DR",1,165.5,4) W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";S Y=$S(ONCOANS="A":"@2",1:"@0");@2;D CAN^ONCOAIP;.04;S COC=X;I COC'=1 S Y="@20";171;172;173;@20;I COC=0 S RFDEF="NONE" S Y=6;I COC=1 S RFDEF="NONE",TFDEF="NONE";6//^S X=$G(RFDEF); "KRN",.402,1256,"DR",1,165.5,5) S FACPNT=$P($G(^ONCO(165.5,DA,0)),U,18) D FNPI^ONCNPI;I COC=2 S TFDEF="NONE";7//^S X=$G(TFDEF);S FACPNT=$P($G(^ONCO(165.5,DA,0)),U,19) D FNPI^ONCNPI;155;3;I $P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y="@15";159; "KRN",.402,1256,"DR",1,165.5,6) I X=0 S $P(^ONCO(165.5,DA,24),U,13)="8888888" W !,"DATE OF CONCLUSIVE DX: 88/88/8888" S Y="@15";I X=1 S $P(^ONCO(165.5,DA,24),U,13)="0000000" W !,"DATE OF CONCLUSIVE DX: 00/00/0000" S Y="@15"; "KRN",.402,1256,"DR",1,165.5,7) I X=9 S $P(^ONCO(165.5,DA,24),U,13)="9999999" W !,"DATE OF CONCLUSIVE DX: 99/99/9999" S Y="@15";193;@15;I (COC=0)!(COC=1) S DFDEF=$E(RH,1,30);5//^S X=$G(DFDEF);20;I (COC=5)!(COC=8) D ^ONCOCC;S PS=X;D PAIR^ONCOAIP;S Y=$$TOP^ONCOAIT; "KRN",.402,1256,"DR",1,165.5,8) 21.5;S Y=100;21.51;S Y=100;21.52;100;28;I $P($G(^ONCO(165.5,DA,0)),U,16)>3001231 S Y=22.3;22;D DEFH3^ONCOHICD;22.3//^S X=$G(H3DEF);W !,"HISTOLOGY CODE: ",$$GET1^DIQ(165.5,D0,22.1);D HISTXT^ONCOAIP;S X=X;101;I $G(TOP)'=67619 S Y=24; "KRN",.402,1256,"DR",1,165.5,9) 623;I (+X>1)&(+X<11),$P($G(^ONCO(165.5,D0,0)),U,16)>3031231 S $P(^ONCO(165.5,D0,"CS"),U,10)=$S($L(X)=1:"00"_X,$L(X)=2:"0"_X,1:X);684;96;102;I X=9 S Y="@156";156;S Y=24;@156;156////0000000;W !,"DRE DATE: 00/00/0000";24; "KRN",.402,1256,"DR",1,165.5,10) I $P($G(^ONCO(165.5,DA,0)),U,16)<3070000 S Y=83;I ($P($G(^ONCO(165.5,D0,2)),U,1)=67809)!($$LEUKEMIA^ONCOAIP2(D0))!($$LYMPHOMA^ONCFUNC(D0)) D NA^ONCMPH;194;D MTRAOP^ONCMPH;195;196;83;26; "KRN",.402,1256,"DR",1,165.5,11) I ($$GET1^DIQ(165.5,D0,.01,"E")'="LIVER")&($G(TOP)'=67220) S Y="@251";1010;@251;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y="@27";D TMARKER^ONCOU55 I TM1=0 S Y="@21";D TM^ONCOTM(D0,1);@2510;I $G(TM2)=0 S Y="@22";D TM^ONCOTM(D0,2); "KRN",.402,1256,"DR",1,165.5,12) @2520;I $G(TM3)=0 S Y="@23";D TM^ONCOTM(D0,3);@2530;S Y="@27";@21;25.1///9;W !,"TUMOR MARKER 1: Unknown or no information";@22;25.2///9;W !,"TUMOR MARKER 2: Unknown or no information";@23;25.3///9; "KRN",.402,1256,"DR",1,165.5,13) W !,"TUMOR MARKER 3: Unknown or no information";S Y="@27";25.1;25.2;25.3;@27;120;I X=0 S Y="@1210";I X=9 S Y="@1219";121;S Y="@28";@1210;121////0000000;W !,"DATE OF CANCER CONF: 00/00/0000";S Y="@28";@1219;121////9999999; "KRN",.402,1256,"DR",1,165.5,14) W !,"DATE OF CANCER CONF: 99/99/9999";@28;21;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";I COC'=1 S Y="@105";S PS=$P($G(^ONCO(165.5,D0,2)),U,1);I $E($G(PS),3,4)=34 S Y="@174"; "KRN",.402,1256,"DR",1,165.5,15) I ($E($G(PS),3,4)=18)!($G(PS)=67199)!($G(PS)=67209) S Y="@180";S Y="@105";@174;D ^ONCSYMP;174;I (X=0)!(X=9) S PIECE=18 D STUFF^ONCSYMP S Y=186;174.1;186;I (X=0)!(X=9) S PIECE=33 D STUFF^ONCSYMP S Y=187;186.1;187; "KRN",.402,1256,"DR",1,165.5,16) I (X=0)!(X=9) S PIECE=35 D STUFF^ONCSYMP S Y=188;187.1;188;I (X=0)!(X=9) S PIECE=37 D STUFF^ONCSYMP S Y=189;188.1;189;I (X=0)!(X=9) S PIECE=39 D STUFF^ONCSYMP S Y=190;189.1;190;175;I (X=0)!(X=9) S PIECE=19 D STUFF^ONCSYMP S Y=176; "KRN",.402,1256,"DR",1,165.5,17) 175.1;176;I (X=0)!(X=9) S PIECE=20 D STUFF^ONCSYMP S Y=177;176.1;177;I (X=0)!(X=9) S PIECE=21 D STUFF^ONCSYMP S Y=178;177.1;178;I (X=0)!(X=9) S PIECE=22 D STUFF^ONCSYMP S Y=179;178.1;179; "KRN",.402,1256,"DR",1,165.5,18) I (X=0)!(X=9) S PIECE=23 D STUFF^ONCSYMP S Y="@105";179.1;S Y="@105";@180;D COLON^ONCSYMP;191;711;712;809;713;192;180;I (X=0)!(X=9) S PIECE=24 D STUFF^ONCSYMP S Y=181;180.1;181;I (X=0)!(X=9) S PIECE=25 D STUFF^ONCSYMP S Y=182; "KRN",.402,1256,"DR",1,165.5,19) 181.1;182;I (X=0)!(X=9) S PIECE=27 D STUFF^ONCSYMP S Y=183;182.1;183;I (X=0)!(X=9) S PIECE=28 D STUFF^ONCSYMP S Y=185;183.1;185;I (X=0)!(X=9) S PIECE=30 D STUFF^ONCSYMP S Y=184;185.1;184; "KRN",.402,1256,"DR",1,165.5,20) I (X=0)!(X=9) S PIECE=31 D STUFF^ONCSYMP S Y=179;184.1;179;I (X=0)!(X=9) S PIECE=23 D STUFF^ONCSYMP S Y="@105";179.1;@105;S SECTION="Cancer Identification" D SECTION^ONCOAIP;W !;104;S FLDNUM=104,NODE=10,LIMIT=200 D ^ONCTEXT;W !; "KRN",.402,1256,"DR",1,165.5,21) 105;S FLDNUM=105,NODE=11,LIMIT=250 D ^ONCTEXT;W !;106;S FLDNUM=106,NODE=12,LIMIT=250 D ^ONCTEXT;W !;116;S FLDNUM=116,NODE=22,LIMIT=250 D ^ONCTEXT;W !;103;S FLDNUM=103,NODE=9,LIMIT=250 D ^ONCTEXT;W !;107; "KRN",.402,1256,"DR",1,165.5,22) S FLDNUM=107,NODE=13,LIMIT=250 D ^ONCTEXT;W !;S Y=$S(ONCOANS="A":"@3",1:"@0");@3;D EXT^ONCOAIP;@31;D MO^ONCOAIP2;41;I $G(AWHFLG)=0 S Y=30 K AWHFLG;227;29;I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=30;29.2;30; "KRN",.402,1256,"DR",1,165.5,23) I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y="@305";30.2;29.1;@305;D BLOOD^ONCOAIP2;30.5;@301;D PGPE^ONCOAIP2;30.1;I X=99,$P($G(^ONCO(165.5,D0,0)),U,16)>3031231 S $P(^ONCO(165.5,D0,"CS"),U,7)="097";@231;D LN^ONCOAIP2;31;S L=X; "KRN",.402,1256,"DR",1,165.5,24) I $$LYMPHOMA^ONCFUNC(D0) S $P(^ONCO(165.5,D0,2),U,12,13)="99^99";S X=X;I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y=33;31.1;32.1;33;I X=0 S Y="@24";I X=99 S Y="@25";32;S Y="@26";@24;32////98; "KRN",.402,1256,"DR",1,165.5,25) W !,"REGIONAL LYMPH NODES POSITIVE: No nodes were examined";S Y="@26";@25;32////99;W !,"REGIONAL LYMPH NODES POSITIVE: Unknown if nodes +, NA, not stated";@26;35;I (X'="")&(X'=7) S Y="@310";34;S:X=0 Y="@32";34.1;S:X=0 Y="@33";34.2; "KRN",.402,1256,"DR",1,165.5,26) S Y="@34";@310;34////0;W !,"SITE OF DISTANT METASTASIS #1: None";@32;34.1////0;W !,"SITE OF DISTANT METASTASIS #2: None";@33;34.2////0;W !,"SITE OF DISTANT METASTASIS #3: None";@34; "KRN",.402,1256,"DR",1,165.5,27) I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y="@341";34.3;34.4;@341;D ^ONCOTN;69;W !;S:$E($$HIST^ONCFUNC(D0),1,3)'=951 Y=37.1;69.1;69.2;37.1;D CN2^ONCOTN;37.2;37.3;I '$$GTT^ONCOU55(D0) S Y="@38";134;@38;I '$$T^ONCOU55(D0) S Y="@39"; "KRN",.402,1256,"DR",1,165.5,28) 136;@39;S STGIND="C" D ES^ONCOTN;S X=X;19;W !;69.4;85;D CN4^ONCOTN;86;87;I '$$GTT^ONCOU55(D0) S Y="@311";135;@311;I '$$T^ONCOU55(D0) S Y="@312";136;@312;S STGIND="P" D ES^ONCOTN;S X=X;89;W !;149;151;S Y="@313";@376;38;19;88;89; "KRN",.402,1256,"DR",1,165.5,29) @313;39;W !;65;S:X="" Y="@82";66;@82;W !;25;S X=X;44;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";I $P($G(^ONCO(165.5,DA,0)),U,16)<3040000 S Y="@399";D ^ONCPCS;@292;29.2;30.2;29.1;31.1;32.1;33;I X=0 S Y="@241";I X=99 S Y="@252";32; "KRN",.402,1256,"DR",1,165.5,30) S Y="@261";@241;32////98;W !,"REGIONAL LYMPH NODES POSITIVE: No nodes were examined";S Y="@261";@252;32////99;W !,"REGIONAL LYMPH NODES POSITIVE: Unknown if nodes +, NA, not stated";@261;34.3;34.4;44.1;44.2;44.3;44.4;44.5;44.6; "KRN",.402,1256,"DR",1,165.5,31) D ^ONCCS;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";@399;S Y=$S(ONCOANS="A":"@4",1:"@0");@4;D CHKCOC^ONCATF I (COC=5)!(COC=8) S Y="@7";D NCDS^ONCPTX;58.1;D NCDS^ONCATF;I X="" S TXNUL=1,$P(^ONCO(165.5,D0,3),U,31)="",Y="@35"; "KRN",.402,1256,"DR",1,165.5,32) I (X=0)!(X="00") D NCDS^ONCNTX S TXNO=1 S Y="@35";I (X=9)!(X="09") D NCDS^ONCUTX S TXUNK=1 S Y="@35";58.3;D NCDSDT^ONCATF;@35;D DSPNCDS^ONCATF;W !;58.4;I X="" S $P(^ONCO(165.5,D0,3.1),U,6)="",Y="@36"; "KRN",.402,1256,"DR",1,165.5,33) I (X=0)!(X="00") D NCDSATF^ONCNTX1 S Y="@36";I (X=9)!(X="09") D NCDSATF^ONCUTX1 S Y="@36";58.5;@36;W !;124;I (X="")!(X="0000000")!(X=9999999) S Y="@41";D NTX^ONCOAIP;@41;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y="@429"; "KRN",.402,1256,"DR",1,165.5,34) D ROADS^ONCPTX;58.2;D SPSR^ONCATF;I X="" S TXNUL=1,$P(^ONCO(165.5,D0,3),U,38)="",Y="@426";S X=X;S SPS=$P($G(^ONCO(165.5,D0,3)),U,38);I SPS=("00")!(SPS=1) D SURR^ONCNTX S TXNO=1,Y="@426";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1); "KRN",.402,1256,"DR",1,165.5,35) S SGRP=$P($G(^ONCO(164,TPX,0)),U,16);I $E(TPX,3,4)=77 S SGRP=67422;I $G(^ONCO(164,SGRP,"SPS",SPS,0))[99 D SURR^ONCUTX S TXUNK=1 S Y="@426";D SATFDFR^ONCOCC;74;@426;D DSPSPSR^ONCATF;W !;50.2//^S X=$G(SPSDF);@427;W !; "KRN",.402,1256,"DR",1,165.5,36) D CHKPRMR^ONCUTX1;138;D SCPR^ONCATF;S X=X;S SCOPE=$P($G(^ONCO(165.5,D0,3)),U,40);I SCOPE="" S $P(^ONCO(165.5,D0,3),U,42)="",TXNUL=1,Y="@1381";I SCOPE=1 D NODER^ONCNTX S TXNO=1,Y="@1381"; "KRN",.402,1256,"DR",1,165.5,37) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" S Y="@428";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="" S Y="@428";I $G(^ONCO(164,SGRP,"SC5",SCOPE,0))["Unknown" D NODER^ONCUTX S TXUNK=1,Y="@1381";140;D NUMND^ONCATF;@1381; "KRN",.402,1256,"DR",1,165.5,38) D DSPSCPR^ONCATF;W !;D SCOPER^ONCOCC;138.1//^S X=$G(SCPDF);S X=X;S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,9);I SCPATF="" S $P(^ONCO(165.5,D0,3.1),U,11)="",Y="@139";I SCPATF=1 D NODATFR^ONCNTX1 S Y="@139"; "KRN",.402,1256,"DR",1,165.5,39) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" S Y="@428";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="" S Y="@428";I $G(^ONCO(164,SGRP,"SC5",SCPATF,0))["Unknown" D NODATFR^ONCUTX1 S Y="@139";D NUMN^ONCOCC;140.1//^S X=$G(NUMDF);@139; "KRN",.402,1256,"DR",1,165.5,40) W !;139;D SOSNR^ONCATF;S X=X;S SOSN=$P($G(^ONCO(165.5,D0,3)),U,41) I SOSN="" S TXNUL=1,Y="@1391";I SOSN=1 D SOSNR^ONCNTX S TXNO=1,Y="@1391";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" S Y="@428"; "KRN",.402,1256,"DR",1,165.5,41) S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="" S Y="@428";I $G(^ONCO(164,SGRP,"SO5",SOSN,0))["Unknown" S TXUNK=1;@1391;D DSPSOSR^ONCATF;D SOSNR^ONCOCC;139.1//^S X=$G(SOSNDF);S X=X;@428;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";@429; "KRN",.402,1256,"DR",1,165.5,42) D FORDS^ONCPTX;S X=X;58.6;D SPS^ONCATF;I X="" S TXNUL=1,$P(^ONCO(165.5,D0,3.1),U,29)="",Y="@42";S X=X;S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29);I SPS="00"!(SPS=1) D SUR^ONCNTX,SM^ONCNTX,DSD^ONCNTX S TXNO=1,Y="@42"; "KRN",.402,1256,"DR",1,165.5,43) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1);S SGRP=$P($G(^ONCO(164,TPX,0)),U,16);I $G(^ONCO(164,SGRP,"SPS",SPS,0))[99 D SUR^ONCUTX S TXUNK=1,Y="@42";50;D SPSDT^ONCATF;D SATFDEF^ONCOCC;59;@42;D DSPSPS^ONCATF;W !;58.7//^S X=$G(SPSDF); "KRN",.402,1256,"DR",1,165.5,44) I X="" S $P(^ONCO(165.5,D0,3.1),U,8)="",Y="@43";S X=X;S SPSATF=$P($G(^ONCO(165.5,D0,3.1)),U,30) I SPSATF="" S $P(^ONCO(165.5,D0,3.1),U,8)="",Y="@43";I SPSATF="00"!(SPSATF=1) D SURATF^ONCNTX1 S Y="@43"; "KRN",.402,1256,"DR",1,165.5,45) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" S Y="@44";S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) I SGRP="" S Y="@44";I $G(^ONCO(164,SGRP,"SPS",SPSATF,0))[99 D SURATF^ONCUTX1 S Y="@43";50.3//^S X=$G(SPSDTDF);@43;W !;D RFNS^ONCATF1;58; "KRN",.402,1256,"DR",1,165.5,46) @431;W !;D CHKPRMF^ONCUTX1;138.4;D SCP^ONCATF;S X=X;S SCOPE=$P($G(^ONCO(165.5,D0,3.1)),U,31) I SCOPE="" S $P(^ONCO(165.5,D0,3.1),U,22)="",$P(^ONCO(165.5,D0,3),U,42)="",TXNUL=1,Y="@45";I SCOPE=0 D NODE^ONCNTX S TXNO=1,Y="@45"; "KRN",.402,1256,"DR",1,165.5,47) I SCOPE=9 D NODE^ONCUTX S TXUNK=1,Y="@45";138.2;D SCPDT^ONCATF;@45;D DSPSCP^ONCATF;W !;D SCOPE^ONCOCC;138.5//^S X=$G(SCPDF);S X=X; "KRN",.402,1256,"DR",1,165.5,48) S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,32) I SCPATF="" S $P(^ONCO(165.5,D0,3.1),U,23)="",$P(^ONCO(165.5,D0,3.1),U,11)="",Y="@46";I SCPATF=0 D NODEATF^ONCNTX1 S Y="@46";I SCPATF=9 D NODEATF^ONCUTX1 S Y="@46";138.3//^S X=$G(SCPDTDF); "KRN",.402,1256,"DR",1,165.5,49) @46;W !;139.4;D SOSN^ONCATF;S X=X;S SOSN=$P($G(^ONCO(165.5,D0,3.1)),U,33) I SOSN="" S $P(^ONCO(165.5,D0,3.1),U,24)="",TXNUL=1,Y="@47";I SOSN=0 D SOSN^ONCNTX S TXNO=1,Y="@47";I SOSN=9 D SOSN^ONCUTX S TXUNK=1,Y="@47";139.2; "KRN",.402,1256,"DR",1,165.5,50) D SOSNDT^ONCATF;@47;D DSPSOSN^ONCATF;W !;D SOSN^ONCOCC;139.5//^S X=$G(SOSNDF);S X=X;S SOSNATF=$P($G(^ONCO(165.5,D0,3.1)),U,34) I SOSNATF="" S $P(^ONCO(165.5,D0,3.1),U,25)="",Y="@48";I SOSNATF=0 D SOSNATF^ONCNTX1 S Y="@48"; "KRN",.402,1256,"DR",1,165.5,51) I SOSNATF=9 D SOSNATF^ONCUTX1 S Y="@48";139.3//^S X=$G(SOSNDTDF);@48;W !;170;I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y=435;D DEFAULT^ONCTXSM;23//^S X=$G(RRDF);435;14;W !;108;S FLDNUM=108,NODE=14,LIMIT=150 D ^ONCTEXT;W !;@44;46; "KRN",.402,1256,"DR",1,165.5,52) I (X=1)!(X=9) S $P(^ONCO(165.5,DA,7),U,20)="" S Y="@441";47;@441;228;229;230;231;232;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";D RAD^ONCPTX;51.2;D RAD^ONCATF1;S R=$S(X&(X<7):1,1:0); "KRN",.402,1256,"DR",1,165.5,53) I X="" S $P(^ONCO(165.5,D0,3),U,4)="",TXNUL=1,Y="@49";I (X=0)!(X=7) D RAD1^ONCNTX,RAD2^ONCNTX S TXNO=1,Y="@49";I (X=8)!(X=9) D RAD^ONCUTX S TXUNK=1,Y="@49";51;D RADDT^ONCATF1;D RATFDEF^ONCOCC;126;125;363;442;363.1;443;56;361;@49; "KRN",.402,1256,"DR",1,165.5,54) D DSPRAD^ONCATF1;W !;51.4//^S X=$G(RADDF);I X="" S $P(^ONCO(165.5,D0,3.1),U,13)="",Y="@411";I (X=0)!(X=7) D RADATF^ONCNTX1 S Y="@411";I (X=8)!(X=9) D RADATF^ONCUTX1 S Y="@411";51.5//^S X=$G(RADDTDF);@411;D RS^ONCOAIP;S X=X;W !; "KRN",.402,1256,"DR",1,165.5,55) 51.3;D RFNR^ONCATF1;W !;75;S RFNR=X D ^ONCRFNR W:$G(RFNRMSG)'="" !!,RFNRMSG;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";S RVAR=$P($G(^ONCO(165.5,D0,3)),U,6);I RVAR=""!(RVAR=0)!(RVAR=9) S Y="@413";@412;W !;109; "KRN",.402,1256,"DR",1,165.5,56) S FLDNUM=109,NODE=15,LIMIT=150 D ^ONCTEXT;@413;D ST^ONCPTX;53.2;D CHEM^ONCATF1;I X="" S $P(^ONCO(165.5,D0,3),U,11)="",TXNUL=1,Y="@414";I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D CHE^ONCNTX S TXNO=1,Y="@414"; "KRN",.402,1256,"DR",1,165.5,57) I (X=88)!(X=99) S XX=X D CHE^ONCUTX S TXUNK=1,Y="@414";53;D CHEMDT^ONCATF1;D CATFDEF^ONCOCC;@414;D DSPCHEM^ONCATF1;W !;53.3//^S X=$G(CHEMDF);I X="" S $P(^ONCO(165.5,D0,3.1),U,15)="",Y="@415"; "KRN",.402,1256,"DR",1,165.5,58) I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D CMATFDT^ONCNTX1 S Y="@415";I (X=88)!(X=99) D CHEMATF^ONCUTX1 S Y="@415";53.4//^S X=$G(CHMDTDF);@415;S CVAR=$P($G(^ONCO(165.5,D0,3)),U,13); "KRN",.402,1256,"DR",1,165.5,59) I (CVAR="")!(CVAR="00")!(CVAR=99)!(CVAR=82)!(CVAR=85)!(CVAR=86)!(X=87) S Y="@416";W !;1423;I X="" S Y="@4151";1423.1;I X="" S Y="@4151";1423.2;I X="" S Y="@4151";1423.3;I X="" S Y="@4151";1423.4;@4151;W !;111; "KRN",.402,1256,"DR",1,165.5,60) S FLDNUM=111,NODE=17,LIMIT=200 D ^ONCTEXT;@416;W !;54.2;D HT^ONCATF1;I X="" S $P(^ONCO(165.5,D0,3),U,14)="",TXNUL=1,Y="@417";I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D HOR^ONCNTX1 S TXNO=1,Y="@417"; "KRN",.402,1256,"DR",1,165.5,61) I (X=88)!(X=99) S XX=X D HOR^ONCUTX S TXUNK=1,Y="@417";54;D HTDT^ONCATF1;D HATFDEF^ONCOCC;@417;D DSPHT^ONCATF1;W !;54.3//^S X=$G(HTDF);I X="" S $P(^ONCO(165.5,D0,3.1),U,17)="",Y="@418"; "KRN",.402,1256,"DR",1,165.5,62) I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D HTATFDT^ONCNTX1 S Y="@418";I (X=88)!(X=99) D HTATF^ONCUTX1 S Y="@418";54.4//^S X=$G(HTDTDF);@418;W !;S HVAR=$P($G(^ONCO(165.5,D0,3)),U,16); "KRN",.402,1256,"DR",1,165.5,63) I (HVAR="")!(HVAR="00")!(HVAR=99)!(HVAR=82)!(HVAR=85)!(HVAR=86)!(X=87) S Y="@419";112;S FLDNUM=112,NODE=18,LIMIT=200 D ^ONCTEXT;@419;W !;55.2;D IMM^ONCATF1;I X="" S $P(^ONCO(165.5,D0,3),U,17)="",TXNUL=1,Y="@420"; "KRN",.402,1256,"DR",1,165.5,64) I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D IMM^ONCNTX1 S TXNO=1,Y="@420";I (X=88)!(X=99) S XX=X D IMM^ONCUTX S TXUNK=1,Y="@420";55;D IMMDT^ONCATF1;D IATFDEF^ONCOCC;@420;D DSPIMM^ONCATF1;W !;55.3//^S X=$G(IMMDF); "KRN",.402,1256,"DR",1,165.5,65) I X="" S $P(^ONCO(165.5,D0,3.1),U,19)="",Y="@421";I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D IMATFDT^ONCNTX1 S Y="@421";I (X=88)!(X=99) D IMMATF^ONCUTX1 S Y="@421";55.4//^S X=$G(IMMDTDF);@421;W !; "KRN",.402,1256,"DR",1,165.5,66) S IVAR=$P($G(^ONCO(165.5,D0,3)),U,19);I (IVAR="")!(IVAR="00")!(IVAR=99)!(IVAR=82)!(IVAR=85)!(IVAR=86)!(X=87) S Y="@422";114;S FLDNUM=114,NODE=20,LIMIT=200 D ^ONCTEXT;@422;W !;153; "KRN",.402,1256,"DR",1,165.5,67) I X="" S $P(^ONCO(165.5,D0,3.1),U,35)="",TXNUL=1,Y="@4201";S HE=$P(^ONCO(167,X,0),U,1);I (HE="00")!(HE=82)!(HE=85)!(HE=86)!(HE=87) D HTEP^ONCNTX1 S TXNO=1,Y="@4201";I (HE=88)!(HE=99) D HTEP^ONCUTX S TXUNK=1,Y="@4201";153.1;@4201; "KRN",.402,1256,"DR",1,165.5,68) I $P($G(^ONCO(165.5,DA,0)),U,16)<3060000 S Y="@4202";D SSS^ONCOAIP1;S X=X;W !;15;@4202;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";D OTH^ONCPTX;57.2;D OTH^ONCATF1;I X="" S $P(^ONCO(165.5,D0,3),U,23)="",TXNUL=1,Y="@423"; "KRN",.402,1256,"DR",1,165.5,69) I (X=0)!(X=7) D OTH^ONCNTX1 S TXNO=$S(X=0:1,1:""),Y="@423";I (X=8)!(X=9) D OTH^ONCUTX S TXUNK=$S(X=9:1,1:""),Y="@423";57;D OTHDT^ONCATF1;D OATFDEF^ONCOCC;@423;D DSPOTH^ONCATF1;W !;57.3//^S X=$G(OTHDF); "KRN",.402,1256,"DR",1,165.5,70) I X="" S $P(^ONCO(165.5,D0,3.1),U,21)="" S Y="@424";I X=0!(X=7) D OTHATF^ONCNTX1 S Y="@424";I X=8!(X=9) D OTHATF^ONCUTX1 S Y="@424";57.4//^S X=$G(OTHDTDF);@424;W !;S OVAR=$P($G(^ONCO(165.5,D0,3)),U,25); "KRN",.402,1256,"DR",1,165.5,71) I OVAR=""!(OVAR=0)!(OVAR=9) S Y="@425";115;S FLDNUM=115,NODE=21,LIMIT=100 D ^ONCTEXT;@425;D PRO^ONCPTX;12;@13;D PP^ONCATF1;D PATFDEF^ONCOCC;13//^S X=$G(PPDF);346;I X=9 D PRO^ONCUTX S Y="@113"; "KRN",.402,1256,"DR",1,165.5,72) I (X=0)!(X=2)!(X=3)!(X=4)!(X=5)!(X=6)!(X=7)!(X=8) D PRO^ONCNTX1 S Y="@113";560;133;@113;W !;113;S FLDNUM=113,NODE=19,LIMIT=350 D ^ONCTEXT;S Y=$S(ONCOANS="A":"@5",1:"@0");@5;D ^ONCOPCE;S Y=$S(ONCOANS="A":"@7",1:"@0");@6; "KRN",.402,1256,"DR",1,165.5,73) D ORF^ONCOAIP;205;206;207;208;209;210;211;212;213;214;215;216;217;218;219;220;221;222;223;224;225;226;S Y="@0";@7;D AB^ONCOAIP;91;I $G(EDIT)="YES" S Y="@0";S:$P(^ONCO(165.5,D0,7),U,4)="" Y="@83";W !!?5,"Selected for QA=>",!;63; "KRN",.402,1256,"DR",1,165.5,74) S:X="N" Y="@83";64;64.1;64.2;@83;S Y="";62;@999999;62; "MBREQ") 0 "ORD",5,.4) .4;5;;;EDEOUT^DIFROMSO(.4,DA,"",XPDA);FPRE^DIFROMSI(.4,"",XPDA);EPRE^DIFROMSI(.4,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.4,DA,"",XPDA);DEL^DIFROMSK(.4,"",%) "ORD",5,.4,0) PRINT TEMPLATE "ORD",7,.402) .402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%) "ORD",7,.402,0) INPUT TEMPLATE "PKG",14,-1) 1^1 "PKG",14,0) ONCOLOGY^ONC^Oncology treatment tracking & tumor registry package. "PKG",14,20,0) ^9.402P^^ "PKG",14,22,0) ^9.49I^1^1 "PKG",14,22,1,0) 2.11^3041126^2950417 "PKG",14,22,1,"PAH",1,0) 50^3090930 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") NO "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") NO "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") NO "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 31 "RTN","ONCACD0") 0^53^B89724333 "RTN","ONCACD0",1,0) ONCACD0 ;Hines OIFO/GWB - NAACCR extract driver ;06/11/01 "RTN","ONCACD0",2,0) ;;2.11;Oncology;**9,12,20,24,25,28,29,30,36,37,38,40,41,44,45,47,48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCACD0",3,0) ; "RTN","ONCACD0",4,0) EN1(DEVICE,STEXT) ;Select extract from ONCOLOGY DATA EXTRACT FORMAT (160.16) "RTN","ONCACD0",5,0) EN2 N ACO,EXTRACT,HDRIEN,STAT,STAT1,STAT2,DATE,YESNO,BDT,SDT,EDT,QUEUE,NCDB "RTN","ONCACD0",6,0) N ONCSPIEN "RTN","ONCACD0",7,0) K ^TMP($J) "RTN","ONCACD0",8,0) S DEVICE=$G(DEVICE,0),STEXT=$G(STEXT,0),(EXTRACT,QUEUE)=0,EXT="" "RTN","ONCACD0",9,0) I (STEXT=0)!(STEXT=2) S EXTRACT=$O(^ONCO(160.16,"B","NCDB EXTRACT V11.3",0)) "RTN","ONCACD0",10,0) S (STAT,DATE,OUT,SDT,EDT)=0 "RTN","ONCACD0",11,0) S HDRIEN=EXTRACT "RTN","ONCACD0",12,0) D DISPLAY "RTN","ONCACD0",13,0) I STEXT=1 D GETREC(.EXTRACT,.OUT) "RTN","ONCACD0",14,0) I 'OUT S STAT=$$GETHOSP "RTN","ONCACD0",15,0) I 'STAT S OUT=1 "RTN","ONCACD0",16,0) I 'OUT S STAT1=$P(STAT,U,1),STAT2=$P(STAT,U,2) "RTN","ONCACD0",17,0) I 'OUT D GETDATE(.DATE,.OUT) "RTN","ONCACD0",18,0) I 'OUT,STEXT=1 D GETDT(.SDT,.EDT,DATE,.OUT) "RTN","ONCACD0",19,0) I 'OUT,STEXT=2 D DATEDX(.SDT,.EDT,DATE,.OUT) "RTN","ONCACD0",20,0) I 'OUT D VERIFY(STAT,DATE,SDT,EDT,STEXT,.YESNO,.OUT) "RTN","ONCACD0",21,0) I 'OUT G:'YESNO EN2 "RTN","ONCACD0",22,0) I 'OUT D DEVICE(DEVICE,.OUT) "RTN","ONCACD0",23,0) I 'OUT D:'QUEUE PRINT(DEVICE,.OUT) "RTN","ONCACD0",24,0) D EXIT "RTN","ONCACD0",25,0) Q "RTN","ONCACD0",26,0) ; "RTN","ONCACD0",27,0) GETREC(EXTRACT,OUT) ;Select record layout "RTN","ONCACD0",28,0) W !!," Available record layouts:",! "RTN","ONCACD0",29,0) W !," 1) VACCR Record Layout v11.3 (VA Registry)" "RTN","ONCACD0",30,0) W !," 2) NAACCR State Record Layout v11.3" "RTN","ONCACD0",31,0) W ! "RTN","ONCACD0",32,0) N DIR,X,Y "RTN","ONCACD0",33,0) S DIR(0)="SAO^1:VACCR Record Layout v11.3;2:NAACCR State Record Layout v11.3" "RTN","ONCACD0",34,0) S DIR("A")=" Select record layout: " "RTN","ONCACD0",35,0) S DIR("?")="Select the record layout to use" "RTN","ONCACD0",36,0) D ^DIR "RTN","ONCACD0",37,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",38,0) I +Y<1 S OUT=1 Q "RTN","ONCACD0",39,0) I Y=1 S EXT="VACCR",EXTRACT=$O(^ONCO(160.16,"B","VACCR EXTRACT V11.3",0)) "RTN","ONCACD0",40,0) I Y=2 S EXT="STATE",EXTRACT=$O(^ONCO(160.16,"B","STATE EXTRACT V11.3",0)) "RTN","ONCACD0",41,0) S HDRIEN=EXTRACT "RTN","ONCACD0",42,0) Q "RTN","ONCACD0",43,0) ; "RTN","ONCACD0",44,0) DISPLAY ;Display on-line instructions "RTN","ONCACD0",45,0) N DIR,X,Y "RTN","ONCACD0",46,0) S DIR("A")=" DISPLAY/PRINT on-line instructions" "RTN","ONCACD0",47,0) S DIR("B")="No" "RTN","ONCACD0",48,0) S DIR(0)="Y" "RTN","ONCACD0",49,0) D ^DIR I ($D(DIRUT))!(+Y<1) K DIRUT Q "RTN","ONCACD0",50,0) I X=0 Q "RTN","ONCACD0",51,0) I X<0 S OUT=1 Q "RTN","ONCACD0",52,0) W ! S DIC="^ONCO(160.2,",L=0,DHD="@" "RTN","ONCACD0",53,0) S FLDS="1",BY="@.01" "RTN","ONCACD0",54,0) I STEXT S (FR,TO)="STATE REPORTING ACOS INFOA" "RTN","ONCACD0",55,0) E S (FR,TO)="PRIMARY ACOS INFO (850)" "RTN","ONCACD0",56,0) D EN1^DIP "RTN","ONCACD0",57,0) S:'($D(DTOUT)+$D(DUOUT)=0) OUT=1 "RTN","ONCACD0",58,0) S X=$$ASKY^ONCOU("Continue") "RTN","ONCACD0",59,0) S:X<1 OUT=1 "RTN","ONCACD0",60,0) K DHD,DTOUT,DUOUT "RTN","ONCACD0",61,0) Q "RTN","ONCACD0",62,0) ; "RTN","ONCACD0",63,0) GETDT(SDT,EDT,DATE,OUT) ; Select a date range "RTN","ONCACD0",64,0) K DIR "RTN","ONCACD0",65,0) S DIR(0)="SAO^1:Date Case Completed;2:Date Case Last Changed" "RTN","ONCACD0",66,0) S DIR("A")=" Select date field to be used for Start/End range: " "RTN","ONCACD0",67,0) S DIR("?")="Select the date field you wish to use for this download's Start/End range prompts." "RTN","ONCACD0",68,0) D ^DIR "RTN","ONCACD0",69,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",70,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",71,0) I +Y=2 S STEXT=2 "RTN","ONCACD0",72,0) DCLC K DIR "RTN","ONCACD0",73,0) S DIR(0)="D^::X" "RTN","ONCACD0",74,0) I STEXT=1 D "RTN","ONCACD0",75,0) .S DIR("A")=" Start, Date Case Completed" "RTN","ONCACD0",76,0) .S DIR("?",1)=" Enter the DATE CASE COMPLETED of the" "RTN","ONCACD0",77,0) .S DIR("?",2)=" FIRST abstract you would like to report." "RTN","ONCACD0",78,0) I (STEXT=2)!($G(NCDB)=2) D "RTN","ONCACD0",79,0) .S DIR("A")=" Start, Date Case Last Changed" "RTN","ONCACD0",80,0) .S DIR("?",1)=" Enter the DATE CASE LAST CHANGED of the" "RTN","ONCACD0",81,0) .S DIR("?",2)=" FIRST abstract you would like to report." "RTN","ONCACD0",82,0) S DIR("?")=" " "RTN","ONCACD0",83,0) D ^DIR I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",84,0) S (SDT,BDT)=Y "RTN","ONCACD0",85,0) K DIR "RTN","ONCACD0",86,0) S DIR(0)="D^::X" "RTN","ONCACD0",87,0) I STEXT=1 D "RTN","ONCACD0",88,0) .S DIR("A")=" End, Date Case Completed" "RTN","ONCACD0",89,0) .I EXT="VACCR",$P($G(^ONCO(160.1,ONCSPIEN,0)),U,8)'="" S DIR("B")=$$GET1^DIQ(160.1,ONCSPIEN,61) "RTN","ONCACD0",90,0) .I EXT="STATE",$P($G(^ONCO(160.1,ONCSPIEN,0)),U,9)'="" S DIR("B")=$$GET1^DIQ(160.1,ONCSPIEN,62) "RTN","ONCACD0",91,0) .S DIR("?",1)=" Enter the DATE CASE COMPLETED of the" "RTN","ONCACD0",92,0) .S DIR("?",2)=" LAST abstract you would like to report." "RTN","ONCACD0",93,0) I (STEXT=2)!($G(NCDB)=2) D "RTN","ONCACD0",94,0) .S DIR("A")=" End, Date Case Last Changed" "RTN","ONCACD0",95,0) .I EXT="VACCR",$P($G(^ONCO(160.1,ONCSPIEN,0)),U,10)'="" S DIR("B")=$$GET1^DIQ(160.1,ONCSPIEN,63) "RTN","ONCACD0",96,0) .I EXT="STATE",$P($G(^ONCO(160.1,ONCSPIEN,0)),U,11)'="" S DIR("B")=$$GET1^DIQ(160.1,ONCSPIEN,64) "RTN","ONCACD0",97,0) .S DIR("?",1)=" Enter the DATE CASE LAST CHANGED of the" "RTN","ONCACD0",98,0) .S DIR("?",2)=" LAST abstract you would like to report." "RTN","ONCACD0",99,0) D ^DIR I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",100,0) S EDT=Y "RTN","ONCACD0",101,0) I EXT="" Q "RTN","ONCACD0",102,0) I $G(NCDB)=2 Q "RTN","ONCACD0",103,0) I EXT="VACCR" S ACO=1 Q "RTN","ONCACD0",104,0) K DIR "RTN","ONCACD0",105,0) S DIR("A")=" Analytic cases only" "RTN","ONCACD0",106,0) S DIR("B")="YES" "RTN","ONCACD0",107,0) S DIR(0)="Y" "RTN","ONCACD0",108,0) S DIR("?")=" " "RTN","ONCACD0",109,0) S DIR("?",1)=" Answer 'YES' if you want only analytic cases (CLASS OF CASE 0-2) extracted." "RTN","ONCACD0",110,0) S DIR("?",2)=" Answer 'NO' if you want all cases (analytic and non-analytic) extracted." "RTN","ONCACD0",111,0) D ^DIR "RTN","ONCACD0",112,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",113,0) S ACO=Y "RTN","ONCACD0",114,0) Q "RTN","ONCACD0",115,0) ; "RTN","ONCACD0",116,0) DATEDX(SDT,EDT,DATE,OUT) ;Select DATE DX range "RTN","ONCACD0",117,0) K DIR "RTN","ONCACD0",118,0) S DIR(0)="D^::X" "RTN","ONCACD0",119,0) S DIR("A")=" Start, Date Dx" "RTN","ONCACD0",120,0) S DIR("?",1)=" Enter the DATE DX of the FIRST" "RTN","ONCACD0",121,0) S DIR("?",2)=" abstract you would like to report." "RTN","ONCACD0",122,0) S DIR("?")=" " "RTN","ONCACD0",123,0) D ^DIR I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",124,0) S (SDT,BDT)=Y "RTN","ONCACD0",125,0) K DIR "RTN","ONCACD0",126,0) S DIR(0)="D^::X" "RTN","ONCACD0",127,0) S DIR("A")=" End, Date Dx" "RTN","ONCACD0",128,0) S DIR("?",1)=" Enter the DATE DX of the LAST" "RTN","ONCACD0",129,0) S DIR("?",2)=" abstract you would like to report." "RTN","ONCACD0",130,0) D ^DIR I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",131,0) S EDT=Y "RTN","ONCACD0",132,0) Q "RTN","ONCACD0",133,0) ; "RTN","ONCACD0",134,0) PRINT(DEVICE,OUT) ;Capture output data "RTN","ONCACD0",135,0) I 'DEVICE D Q:OUT "RTN","ONCACD0",136,0) .N X "RTN","ONCACD0",137,0) .W !! "RTN","ONCACD0",138,0) .W !,?6,"--------------------------------------------------------------" "RTN","ONCACD0",139,0) .W !,?6,"|Please activate your PC capture program. The data will be |" "RTN","ONCACD0",140,0) .W !,?6,"|sent in 2 minutes or when you press the return key. |" "RTN","ONCACD0",141,0) .W !,?6,"--------------------------------------------------------------" "RTN","ONCACD0",142,0) .W !!! "RTN","ONCACD0",143,0) .R X:120 "RTN","ONCACD0",144,0) .I X="^" S OUT=1 "RTN","ONCACD0",145,0) U IO D EN1^ONCACD1 "RTN","ONCACD0",146,0) ;K STATE "RTN","ONCACD0",147,0) Q "RTN","ONCACD0",148,0) ; "RTN","ONCACD0",149,0) EXIT ;Exit "RTN","ONCACD0",150,0) K D0,DI,DIC,DISYS,DQ,EXT,FIL,ONCOM,ONCOT,ONCOYR,OUT,ST,STGIND,X,Y "RTN","ONCACD0",151,0) I '$D(^TMP($J)) W !?3,"No records extracted." G EX "RTN","ONCACD0",152,0) W ! "RTN","ONCACD0",153,0) S DIC="^ONCO(165.5,",L=0,FLDS="[ONC EXTRACT]",BY(0)="^TMP($J,",L(0)=1 "RTN","ONCACD0",154,0) S:DEVICE IOP=ION "RTN","ONCACD0",155,0) I STEXT=0 S DHD=$P(^ONCO(160.16,HDRIEN,0),U,1) W ! "RTN","ONCACD0",156,0) I (STEXT=1)!(STEXT=2) S DHD=$P(^ONCO(160.16,HDRIEN,0),U,1)_" "_$$FMTE^XLFDT(BDT,"2D")_" - "_$$FMTE^XLFDT(EDT,"2D") "RTN","ONCACD0",157,0) D EN1^DIP "RTN","ONCACD0",158,0) I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y "RTN","ONCACD0",159,0) EX K ^TMP($J) "RTN","ONCACD0",160,0) K %ZIS "RTN","ONCACD0",161,0) D ^%ZISC "RTN","ONCACD0",162,0) K BY,DHD,FLDS,FR,IOP,L,POP,TO "RTN","ONCACD0",163,0) K ACDANS,EXT,CCEX "RTN","ONCACD0",164,0) Q "RTN","ONCACD0",165,0) ; "RTN","ONCACD0",166,0) DEVICE(DEVICE,OUT) ;Select output device "RTN","ONCACD0",167,0) Q:'DEVICE "RTN","ONCACD0",168,0) S %ZIS="Q" "RTN","ONCACD0",169,0) D ^%ZIS "RTN","ONCACD0",170,0) I POP S OUT=1 Q "RTN","ONCACD0",171,0) I $D(IO("Q")) D "RTN","ONCACD0",172,0) .S ZTRTN="PRINT^ONCACD0(DEVICE,.OUT)" "RTN","ONCACD0",173,0) .S ZTDESC=$S('STEXT:"ONC NCDB Extract",STEXT:"ONC State Extract",1:"") "RTN","ONCACD0",174,0) .S ZTSAVE("STAT1")="" "RTN","ONCACD0",175,0) .S ZTSAVE("DATE")="" "RTN","ONCACD0",176,0) .S ZTSAVE("STEXT")="" "RTN","ONCACD0",177,0) .S ZTSAVE("DEVICE")="" "RTN","ONCACD0",178,0) .S ZTSAVE("OUT")="" "RTN","ONCACD0",179,0) .S ZTSAVE("BDT")="" "RTN","ONCACD0",180,0) .S ZTSAVE("SDT")="" "RTN","ONCACD0",181,0) .S ZTSAVE("EDT")="" "RTN","ONCACD0",182,0) .S ZTSAVE("EXT")="" "RTN","ONCACD0",183,0) .S ZTSAVE("EXTRACT")="" "RTN","ONCACD0",184,0) .S ZTSAVE("HDRIEN")="" "RTN","ONCACD0",185,0) .S ZTSAVE("NCDB")="" "RTN","ONCACD0",186,0) .D ^%ZTLOAD "RTN","ONCACD0",187,0) .I $D(ZTSK)[0 S OUT=1 W !!,?20,"Report Canceled!" "RTN","ONCACD0",188,0) .E W !!,?20,"Report Queued!" S QUEUE=1 "RTN","ONCACD0",189,0) .D HOME^%ZIS "RTN","ONCACD0",190,0) K ZTDESC,ZTRTN,ZTSAVE,ZTSK "RTN","ONCACD0",191,0) Q "RTN","ONCACD0",192,0) ; "RTN","ONCACD0",193,0) VERIFY(STAT,DATE,SDT,EDT,STEXT,YESNO,OUT) ;Verify settings "RTN","ONCACD0",194,0) N DIR,Y,RL "RTN","ONCACD0",195,0) S RL=$P(^ONCO(160.16,HDRIEN,0),U,1) "RTN","ONCACD0",196,0) W !!," These are your current settings:" "RTN","ONCACD0",197,0) W ! "RTN","ONCACD0",198,0) W !," Record layout.......................: ",RL "RTN","ONCACD0",199,0) W !," Facility Identification Number (FIN): ",STAT1 "RTN","ONCACD0",200,0) I EXT="STATE" D "RTN","ONCACD0",201,0) .W !," State to be extracted...............: ",ACDSTATE "RTN","ONCACD0",202,0) I STEXT=0 D "RTN","ONCACD0",203,0) .W !," Accession Year......................: ",DATE "RTN","ONCACD0",204,0) .W !," Selection criterion.................: ",$S(NCDB=1:"All cases",NCDB=2:"Date Case Last Changed date range",1:"") "RTN","ONCACD0",205,0) I (STEXT=1)!(STEXT=2)!($G(NCDB)=2) D "RTN","ONCACD0",206,0) .W !," Start date..........................: ",$$FMTE^XLFDT(SDT,"2D") "RTN","ONCACD0",207,0) .W !," End date............................: ",$$FMTE^XLFDT(EDT,"2D") "RTN","ONCACD0",208,0) I EXT="STATE" D "RTN","ONCACD0",209,0) .W !," Analytic cases only.................: ",$S(ACO=1:"YES",1:"NO") "RTN","ONCACD0",210,0) W ! "RTN","ONCACD0",211,0) S DIR("A")=" Are these settings correct" "RTN","ONCACD0",212,0) S DIR("B")="YES" "RTN","ONCACD0",213,0) S DIR(0)="Y" "RTN","ONCACD0",214,0) D ^DIR "RTN","ONCACD0",215,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",216,0) S YESNO=Y "RTN","ONCACD0",217,0) I STEXT=1,EXT="VACCR" S $P(^ONCO(160.1,ONCSPIEN,0),U,8)=EDT "RTN","ONCACD0",218,0) I STEXT=1,EXT="STATE" S $P(^ONCO(160.1,ONCSPIEN,0),U,9)=EDT "RTN","ONCACD0",219,0) I STEXT=2,EXT="VACCR" S $P(^ONCO(160.1,ONCSPIEN,0),U,10)=EDT "RTN","ONCACD0",220,0) I STEXT=2,EXT="STATE" S $P(^ONCO(160.1,ONCSPIEN,0),U,11)=EDT "RTN","ONCACD0",221,0) Q "RTN","ONCACD0",222,0) ; "RTN","ONCACD0",223,0) GETDATE(DATE,OUT) ;Select ACCESSION YEAR "RTN","ONCACD0",224,0) Q:(STEXT=1)!(STEXT=2) "RTN","ONCACD0",225,0) N CYR,DIR,SCREEN,Y "RTN","ONCACD0",226,0) S DATE=0 "RTN","ONCACD0",227,0) S CYR=1700+($E(DT,1,3)),SCREEN="K:X>CYR X" "RTN","ONCACD0",228,0) S DIR(0)="NAO^1900:"_CYR_":0^"_SCREEN "RTN","ONCACD0",229,0) S DIR("A")=" Accession Year: " "RTN","ONCACD0",230,0) D ^DIR "RTN","ONCACD0",231,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",232,0) S DATE=Y "RTN","ONCACD0",233,0) K DIR "RTN","ONCACD0",234,0) W ! "RTN","ONCACD0",235,0) W !,?6,"Select one of the following:" "RTN","ONCACD0",236,0) W ! "RTN","ONCACD0",237,0) W !,?11,"1 All eligible cases for this year" "RTN","ONCACD0",238,0) W !,?11,"2 Cases within a 'Date Case Last Changed' date range" "RTN","ONCACD0",239,0) W ! "RTN","ONCACD0",240,0) S DIR(0)="SAO^1:All cases;2:Cases within a date range" "RTN","ONCACD0",241,0) S DIR("A")=" Select extraction criterion: " "RTN","ONCACD0",242,0) S DIR("B")="All cases" "RTN","ONCACD0",243,0) S DIR("?")=" " "RTN","ONCACD0",244,0) S DIR("?",1)=" Select 'All cases' if you want to extract all" "RTN","ONCACD0",245,0) S DIR("?",2)=" of the eligible cases for this Accession Year." "RTN","ONCACD0",246,0) S DIR("?",3)="" "RTN","ONCACD0",247,0) S DIR("?",4)=" Select 'Cases within a date range' if you want" "RTN","ONCACD0",248,0) S DIR("?",5)=" to specify a 'Date Case Last Changed' date range" "RTN","ONCACD0",249,0) S DIR("?",6)=" for this Accession Year." "RTN","ONCACD0",250,0) D ^DIR "RTN","ONCACD0",251,0) I $D(DIRUT) S OUT=1 K DIRUT Q "RTN","ONCACD0",252,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",253,0) S NCDB=Y "RTN","ONCACD0",254,0) I NCDB=2 W ! D DCLC "RTN","ONCACD0",255,0) Q "RTN","ONCACD0",256,0) ; "RTN","ONCACD0",257,0) GETHOSP() ;Facility Identification Number (FIN) "RTN","ONCACD0",258,0) N STAT,STATI,ALLOK "RTN","ONCACD0",259,0) S STAT=0,ALLOK=$$GETDXH(.STAT) "RTN","ONCACD0",260,0) I STAT S STATI=6_STAT_0,STAT=STAT_"^"_STATI "RTN","ONCACD0",261,0) Q STAT "RTN","ONCACD0",262,0) ; "RTN","ONCACD0",263,0) GETDXH(DXH) ;INSTITUTION ID NUMBER (160.1,27) "RTN","ONCACD0",264,0) N OKHERE,DIE,DA,DR,ONCOL "RTN","ONCACD0",265,0) W ! "RTN","ONCACD0",266,0) S DIE=160.1 "RTN","ONCACD0",267,0) S DA=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCACD0",268,0) I DA="" S DA=$O(^ONCO(160.1,0)) "RTN","ONCACD0",269,0) S ONCSPIEN=DA "RTN","ONCACD0",270,0) S DR=27_$J("",1)_"Facility Identification Number (FIN)" "RTN","ONCACD0",271,0) S ONCOL=0 "RTN","ONCACD0",272,0) L +^ONCO(160.1,DA):0 I $T D ^DIE L -^ONCO(160.1,DA) S ONCOL=1 "RTN","ONCACD0",273,0) I 'ONCOL W !,"This ONCOLOGY SITE PARAMETERS record is being edited by another user." "RTN","ONCACD0",274,0) K ONCOL,DIE "RTN","ONCACD0",275,0) I $D(Y)=0 S DXH=$$GET1^DIQ(160.19,X,.01,"I") "RTN","ONCACD0",276,0) I X'="" S ACDSTATE=$P($G(^ONCO(160.19,X,0)),U,4) "RTN","ONCACD0",277,0) ;S FACPNT=$P($G(^ONCO(160.1,DA,1)),U,4) D FNPI^ONCNPI "RTN","ONCACD0",278,0) S OKHERE=($D(Y)=0) "RTN","ONCACD0",279,0) Q OKHERE "RTN","ONCACDU2") 0^20^B61562448 "RTN","ONCACDU2",1,0) ONCACDU2 ;Hines OIFO/GWB - UTILITY ROUTINE #1 ;09/20/2000 "RTN","ONCACDU2",2,0) ;;2.11;Oncology;**12,18,20,21,22,24,26,27,29,30,31,32,34,36,37,38,39,41,46,47,49,50**;Mar 07, 1995;Build 29 "RTN","ONCACDU2",3,0) ; "RTN","ONCACDU2",4,0) VAFLD(ACDANS) ;Convert data to NAACCR format "RTN","ONCACDU2",5,0) I ACDANS="N" S ACDANS=0 "RTN","ONCACDU2",6,0) I ACDANS="Y" S ACDANS=1 "RTN","ONCACDU2",7,0) I ACDANS="U" S ACDANS=9 "RTN","ONCACDU2",8,0) Q ACDANS "RTN","ONCACDU2",9,0) ; "RTN","ONCACDU2",10,0) VASIT() ;VISN 1452-1453 "RTN","ONCACDU2",11,0) ;Output: X = VISN "RTN","ONCACDU2",12,0) N X "RTN","ONCACDU2",13,0) S OSPIEN=$O(^ONCO(160.1,0)) "RTN","ONCACDU2",14,0) S X=$P($G(^ONCO(160.1,OSPIEN,1)),U,7) "RTN","ONCACDU2",15,0) K OSPIEN "RTN","ONCACDU2",16,0) Q X "RTN","ONCACDU2",17,0) ; "RTN","ONCACDU2",18,0) SNCNT(IEN) ;Sequence Number--Central [380] 281-282 "RTN","ONCACDU2",19,0) N BEHAV,DATEDX,HIST,PRIMST,X "RTN","ONCACDU2",20,0) S DATEDX=$E($$GET1^DIQ(165.5,IEN,3,"I"),1,3) "RTN","ONCACDU2",21,0) S PRIMST=$$GET1^DIQ(165.5,IEN,20,"I") "RTN","ONCACDU2",22,0) S HIST=$E($$GET1^DIQ(165.5,IEN,22.3,"I"),1,4) "RTN","ONCACDU2",23,0) S BEHAV=$E($$GET1^DIQ(165.5,IEN,22.3,"I"),5) "RTN","ONCACDU2",24,0) S X="" "RTN","ONCACDU2",25,0) I DATEDX>295,DATEDX<303,$E(PRIMST,3,4)=53,HIST<9590,BEHAV=2 S X=98 "RTN","ONCACDU2",26,0) Q X "RTN","ONCACDU2",27,0) ; "RTN","ONCACDU2",28,0) COCO(IEN) ;COC Coding Sys--Original [2150] 1202-1203 "RTN","ONCACDU2",29,0) N X "RTN","ONCACDU2",30,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "RTN","ONCACDU2",31,0) S X=$S(DATEDX>3021231:"08",DATEDX>2951231:"07",1:"05") "RTN","ONCACDU2",32,0) Q X "RTN","ONCACDU2",33,0) ; "RTN","ONCACDU2",34,0) VENDOR() ;Vendor Name [2170] 1204-1213 "RTN","ONCACDU2",35,0) N X,VERSION,EXTR,SUFFIX "RTN","ONCACDU2",36,0) S EXTR=$G(^ONCO(160.16,EXTRACT,0)) "RTN","ONCACDU2",37,0) S SUFFIX=$S(EXTR["VACCR":"A",EXTR["STATE":"B",1:"") "RTN","ONCACDU2",38,0) S VERSION=$P($G(^ONCO(160.16,EXTRACT,0))," ",3) "RTN","ONCACDU2",39,0) S X="VA"_VERSION_$E($T(LOGO+3^ONCODIS),62,64)_SUFFIX "RTN","ONCACDU2",40,0) Q X "RTN","ONCACDU2",41,0) ; "RTN","ONCACDU2",42,0) BDATE(ACD160) ;Birth Date [240] 122-129 "RTN","ONCACDU2",43,0) N D0,X "RTN","ONCACDU2",44,0) S D0=ACD160 "RTN","ONCACDU2",45,0) D DOB^ONCOES "RTN","ONCACDU2",46,0) S X=$G(X) "RTN","ONCACDU2",47,0) Q X "RTN","ONCACDU2",48,0) ; "RTN","ONCACDU2",49,0) WORD(IEN,NODE,LEN) ;Get word processing data "RTN","ONCACDU2",50,0) N X "RTN","ONCACDU2",51,0) S X="" "RTN","ONCACDU2",52,0) I $D(^ONCO(165.5,IEN,NODE,0)) D "RTN","ONCACDU2",53,0) .N CNT,LINE "RTN","ONCACDU2",54,0) .S CNT=0 "RTN","ONCACDU2",55,0) .S LINE="" "RTN","ONCACDU2",56,0) .F S CNT=$O(^ONCO(165.5,IEN,NODE,CNT)) Q:CNT<1 D Q:($L(LINE)>LEN) "RTN","ONCACDU2",57,0) ..Q:'$D(^ONCO(165.5,IEN,NODE,CNT,0)) "RTN","ONCACDU2",58,0) ..S LINE=LINE_^ONCO(165.5,IEN,NODE,CNT,0)_" " "RTN","ONCACDU2",59,0) .S X=LINE "RTN","ONCACDU2",60,0) S X=$TR(X,$C(10,12,13)," ") "RTN","ONCACDU2",61,0) Q X "RTN","ONCACDU2",62,0) ; "RTN","ONCACDU2",63,0) STAGE(IEN,TYPE) ;TNM Descriptors "RTN","ONCACDU2",64,0) ;TNM Path Descriptor [910] 571-571 "RTN","ONCACDU2",65,0) ;TNM Clin Descriptor [980] 581-581 "RTN","ONCACDU2",66,0) N LOC,X "RTN","ONCACDU2",67,0) S X="" "RTN","ONCACDU2",68,0) S LOC=$S(TYPE="P":89.1,TYPE="C":37,1:"") "RTN","ONCACDU2",69,0) I TYPE'="" D "RTN","ONCACDU2",70,0) .N STRING "RTN","ONCACDU2",71,0) .S STRING=$$GET1^DIQ(165.5,IEN,LOC,"E") "RTN","ONCACDU2",72,0) .I ($P(STRING," ")["m")&($P(STRING," ")["y") S X=6 Q "RTN","ONCACDU2",73,0) .I $P(STRING," ")["m" S X=3 Q "RTN","ONCACDU2",74,0) .I $P(STRING," ")["y" S X=4 Q "RTN","ONCACDU2",75,0) Q X "RTN","ONCACDU2",76,0) ; "RTN","ONCACDU2",77,0) CCOUNTY(ACD160) ;County--Current "RTN","ONCACDU2",78,0) N ZIP,X "RTN","ONCACDU2",79,0) S X="" "RTN","ONCACDU2",80,0) S ZIP=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",81,0) I ZIP'="" D "RTN","ONCACDU2",82,0) .N ZIP1,CODE,COUNTY "RTN","ONCACDU2",83,0) .S ZIP1=$P($P(ZIP,",",2)," ",3) S:$L(ZIP1)>5 ZIP1=$E(ZIP1,1,5) "RTN","ONCACDU2",84,0) .Q:$L(ZIP1)<5 "RTN","ONCACDU2",85,0) .S CODE=$O(^VIC(5.11,"C",ZIP1,"")) "RTN","ONCACDU2",86,0) .Q:CODE<1 "RTN","ONCACDU2",87,0) .S COUNTY=$$GET1^DIQ(5.11,CODE,2,"I") "RTN","ONCACDU2",88,0) .Q:COUNTY="" "RTN","ONCACDU2",89,0) .S X=$$GET1^DIQ(5.1,COUNTY,2,"I") "RTN","ONCACDU2",90,0) Q X "RTN","ONCACDU2",91,0) ; "RTN","ONCACDU2",92,0) SUB(IEN,CNT,FIELD) ; "RTN","ONCACDU2",93,0) ;Subsq RX 2nd Course Date [1660] 988-995 "RTN","ONCACDU2",94,0) N HEMA,HEMAPT,I,X "RTN","ONCACDU2",95,0) S CNT=CNT-1 "RTN","ONCACDU2",96,0) S X="" "RTN","ONCACDU2",97,0) I $O(^ONCO(165.5,IEN,4,0)) D "RTN","ONCACDU2",98,0) .N IENS,SUB,SUBFLD,ENTRY,SUBIEN "RTN","ONCACDU2",99,0) .S SUBIEN=0 F I=1:1 S SUBIEN=$O(^ONCO(165.5,IEN,4,SUBIEN)) Q:(I=CNT)!(SUBIEN'>0) "RTN","ONCACDU2",100,0) .I SUBIEN="" S X="" Q "RTN","ONCACDU2",101,0) .S IENS=SUBIEN_","_IEN "RTN","ONCACDU2",102,0) .S ENTRY=$$GET1^DIQ(165.51,IENS,FIELD,"I") I ENTRY="",FIELD'=".07",FIELD'=".08" S X="" Q "RTN","ONCACDU2",103,0) .S HEMA="" "RTN","ONCACDU2",104,0) .S HEMAPT=$$GET1^DIQ(165.51,IENS,.02,"I") "RTN","ONCACDU2",105,0) .S:HEMAPT'="" HEMA=$P($G(^ONCO(167,HEMAPT,0)),U,1) "RTN","ONCACDU2",106,0) .I $S(FIELD=".01":1,FIELD=".05":1,FIELD=".06":1,FIELD=".07":1,FIELD=".08":1,FIELD=".09":1,FIELD="37":1,FIELD=".041":1,FIELD=".051":1,FIELD=".061":1,FIELD=".071":1,FIELD=".081":1,FIELD=".091":1,1:0) D Q "RTN","ONCACDU2",107,0) ..I FIELD=".06" S X=$S(ENTRY="01":1,ENTRY="02":2,ENTRY="03":3,$E(ENTRY,1)=8:0,1:ENTRY) Q "RTN","ONCACDU2",108,0) ..I FIELD=".07" S X=$S(ENTRY="00":0,ENTRY="01":1,$E(ENTRY,1)=8:0,ENTRY=99:9,1:"") Q:X'="" S X=$S(HEMA=30:2,HEMA=40:2,1:"") Q "RTN","ONCACDU2",109,0) ..I FIELD=".08" S X=$S(ENTRY="01":1,ENTRY=87:7,ENTRY=88:8,$E(ENTRY,1)=8:0,ENTRY=99:9,1:ENTRY) Q:X'="" S X=$S(HEMA=10:4,HEMA=11:2,HEMA=12:3,HEMA=20:5,1:"") Q "RTN","ONCACDU2",110,0) ..S X=ENTRY "RTN","ONCACDU2",111,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=ENTRY Q "RTN","ONCACDU2",112,0) .S SUBFLD=$S(FIELD=33:"RR5",FIELD=35:"SC5",FIELD=36:"SO5",FIELD=.04:"SPS",1:"") I SUBFLD="" S X="" Q "RTN","ONCACDU2",113,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",114,0) I FIELD=.04,$L(X)=1 S X="0"_X "RTN","ONCACDU2",115,0) Q X "RTN","ONCACDU2",116,0) ; "RTN","ONCACDU2",117,0) SUB164(IEN,SUBFLD,ENTRY) ;ICDO TOPOGRAPHY (164) "RTN","ONCACDU2",118,0) N X,TOP1,TOP2 "RTN","ONCACDU2",119,0) S X="" "RTN","ONCACDU2",120,0) S TOP1=$$GET1^DIQ(165.5,IEN,20,"I") D:TOP1'="" "RTN","ONCACDU2",121,0) .S TOP2=$$GET1^DIQ(164,TOP1,107,"I") "RTN","ONCACDU2",122,0) .I (TOP1=67420)!(TOP1=67421)!(TOP1=67423)!(TOP1=67424)!($E(TOP1,3,4)=76)!(TOP1=67809),($G(FIELD)=58.6)!($G(FIELD)=58.7) S TOP2=67420 "RTN","ONCACDU2",123,0) .I ($G(FIELD)=58.2)!($G(FIELD)=50.2)!($G(FIELD)=138)!($G(FIELD)=138.1)!($G(FIELD)=139)!($G(FIELD)=139.1)!($G(FIELD)=74)!($G(FIELD)=23),($E(TOP1,3,4)=76)!(TOP1=67809)!(TOP1=67420)!(TOP1=67421)!(TOP1=67423)!(TOP1=67424) S TOP2=67141 "RTN","ONCACDU2",124,0) .I ($G(FIELD)=58.2)!($G(FIELD)=50.2),TOP1=67422 S TOP2=67770 "RTN","ONCACDU2",125,0) .I $G(SUBFLD)="SUA",($E(TOP1,3,4)=77) S TOP2=67141 "RTN","ONCACDU2",126,0) .D:TOP2'="" "RTN","ONCACDU2",127,0) ..S X=$P($G(^ONCO(164,TOP2,SUBFLD,ENTRY,0)),U,2) "RTN","ONCACDU2",128,0) Q X "RTN","ONCACDU2",129,0) ; "RTN","ONCACDU2",130,0) RXPRI(IEN,FIELD,SUBFLD) ; "RTN","ONCACDU2",131,0) ;RX Hosp--Surg Prim Site [670] 457-458 "RTN","ONCACDU2",132,0) ;RX Hosp--Surg Site 98-02 [746] 478-479 "RTN","ONCACDU2",133,0) ;RX Hosp--Scope Reg 98-02 [747] 480-480 "RTN","ONCACDU2",134,0) ;RX Hosp--Surg Oth 98-02 [748] 481-481 "RTN","ONCACDU2",135,0) ;RX Summ--Surg Prim Site [1290] 859-860 "RTN","ONCACDU2",136,0) ;RX Summ--Surgical Approch [1310] 865-865 "RTN","ONCACDU2",137,0) ;RX Summ--Reconstruct 1st [1330] 867-867 "RTN","ONCACDU2",138,0) ;RX Summ--Surg Site 98-02 [1646] 939-940 "RTN","ONCACDU2",139,0) ;RX Summ--Scope Reg 98-02 [1647] 941-941 "RTN","ONCACDU2",140,0) ;RX Summ--Surg Oth 98-02 [1648] 942-942 "RTN","ONCACDU2",141,0) N X,ENTRY "RTN","ONCACDU2",142,0) S X="" "RTN","ONCACDU2",143,0) S TOP1=$$GET1^DIQ(165.5,IEN,20,"I") "RTN","ONCACDU2",144,0) S ENTRY=$$GET1^DIQ(165.5,IEN,FIELD,"I") D:ENTRY'="" "RTN","ONCACDU2",145,0) .I (TOP1=67420)!(TOP1=67421)!(TOP1=67423)!(TOP1=67424)!($E(TOP1,3,4)=76)!(TOP1=67809),($G(FIELD)=58.6)!($G(FIELD)=58.7) S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) Q "RTN","ONCACDU2",146,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000,(FIELD=23)!(FIELD=74)!(FIELD=50.2)!(FIELD=58.2)!(FIELD=58.6)!(FIELD=58.7) S X=$S(FIELD=23:$$GET1^DIQ(160.4,ENTRY,.01,"I"),FIELD=74:$$GET1^DIQ(160.6,ENTRY,.01,"I"),1:ENTRY) Q "RTN","ONCACDU2",147,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",148,0) Q X "RTN","ONCACDU2",149,0) ; "RTN","ONCACDU2",150,0) FNODE(ACD160,FIELD) ;FOLLOW-UP (160,400) "RTN","ONCACDU2",151,0) ;Date of Last Contact [1750] 1294-1301 "RTN","ONCACDU2",152,0) ;Vital Status [1760] 1302-1302 "RTN","ONCACDU2",153,0) ;Quality of Survival [1780] 1304-1304 "RTN","ONCACDU2",154,0) ;Follow-Up Source [1790] 1305-1305 "RTN","ONCACDU2",155,0) ;Next Follow-Up Source [1800] 1306-1306 "RTN","ONCACDU2",156,0) ;Unusual Follow-Up Method [1850] 1341-1341 "RTN","ONCACDU2",157,0) ;Following Registry [2440] 2475-2484 "RTN","ONCACDU2",158,0) N FNODE,X "RTN","ONCACDU2",159,0) S FNODE=$$LAST(ACD160),X="" "RTN","ONCACDU2",160,0) I FNODE'="" D "RTN","ONCACDU2",161,0) .N IENS "RTN","ONCACDU2",162,0) .S IENS=FNODE_","_ACD160_"," "RTN","ONCACDU2",163,0) .S X=$$GET1^DIQ(160.04,IENS,FIELD,"I") "RTN","ONCACDU2",164,0) Q X "RTN","ONCACDU2",165,0) ; "RTN","ONCACDU2",166,0) LAST(ACD160) ;Get last FOLLOW-UP(160,400) "RTN","ONCACDU2",167,0) N DLC "RTN","ONCACDU2",168,0) S X="",DLC=0 "RTN","ONCACDU2",169,0) S DLC=$O(^ONCO(160,ACD160,"F","AA",DLC)) "RTN","ONCACDU2",170,0) S:DLC'="" X=$O(^ONCO(160,ACD160,"F","AA",DLC,0)) "RTN","ONCACDU2",171,0) I X'>0 S X="" "RTN","ONCACDU2",172,0) Q X "RTN","ONCACDU2",173,0) ; "RTN","ONCACDU2",174,0) FCNODE(ACD160,FIELD,IE) ;FOLLOW-UP CONTACT (160,420) "RTN","ONCACDU2",175,0) ;Follow-Up Contact--City [1842] 1357-1376 "RTN","ONCACDU2",176,0) ;Follow-Up Contact--State [1844] 1377-1378 "RTN","ONCACDU2",177,0) ;Follow-Up Contact--Postal[1846] 1379-1387 "RTN","ONCACDU2",178,0) ;Follow-Up Contact--Name [2394] 2284-2313 "RTN","ONCACDU2",179,0) ;Follow-Up Contact--No&St [2392] 2314-2353 "RTN","ONCACDU2",180,0) ;Follow-Up Contact--Suppl [2393] 2354-2393 "RTN","ONCACDU2",181,0) N CONTACT,FCNODE,X "RTN","ONCACDU2",182,0) S X="" "RTN","ONCACDU2",183,0) S FCNODE=$O(^ONCO(160,ACD160,"C","B"),-1) "RTN","ONCACDU2",184,0) I FCNODE'="" D "RTN","ONCACDU2",185,0) .N IENS "RTN","ONCACDU2",186,0) .S IENS=FCNODE_","_ACD160_"," "RTN","ONCACDU2",187,0) .S CONTACT=$$GET1^DIQ(160.03,IENS,1,"I") "RTN","ONCACDU2",188,0) I $G(CONTACT) S X=$$GET1^DIQ(165,CONTACT,FIELD,IE) "RTN","ONCACDU2",189,0) Q X "RTN","ONCACDU2",190,0) ; "RTN","ONCACDU2",191,0) CS(IEN) ;Cancer Status [1770] 1303-1303 "RTN","ONCACDU2",192,0) N X,Z,FNODE "RTN","ONCACDU2",193,0) S FNODE=0 "RTN","ONCACDU2",194,0) S X="" "RTN","ONCACDU2",195,0) S FNODE=$O(^ONCO(165.5,IEN,"TS",FNODE)) "RTN","ONCACDU2",196,0) I FNODE>0 D "RTN","ONCACDU2",197,0) .N IENS,PT "RTN","ONCACDU2",198,0) .S FNODE=$O(^ONCO(165.5,IEN,"TS"," "),-1) "RTN","ONCACDU2",199,0) .Q:FNODE<1 "RTN","ONCACDU2",200,0) .S IENS=FNODE_","_IEN_"," "RTN","ONCACDU2",201,0) .S PT=$$GET1^DIQ(165.573,IENS,.02,"I") "RTN","ONCACDU2",202,0) .Q:PT<1 "RTN","ONCACDU2",203,0) .S X=$$GET1^DIQ(164.42,PT,1,"I") "RTN","ONCACDU2",204,0) Q X "RTN","ONCACDU2",205,0) ; "RTN","ONCACDU2",206,0) CCTST(ACD160) ; "RTN","ONCACDU2",207,0) ;Addr Current--City [1810] 1307-1326 "RTN","ONCACDU2",208,0) N D0,PT,X "RTN","ONCACDU2",209,0) S D0=ACD160 "RTN","ONCACDU2",210,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCACDU2",211,0) I $$DPTLRT^ONCOES(D0)="LRT" S X=$$GET1^DIQ(67,PT,.114,"E") "RTN","ONCACDU2",212,0) I $$DPTLRT^ONCOES(D0)="DPT" S X=$$GET1^DIQ(2,PT,.114,"E") "RTN","ONCACDU2",213,0) S X=$$STRIP^XLFSTR(X,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`") "RTN","ONCACDU2",214,0) Q X "RTN","ONCACDU2",215,0) ; "RTN","ONCACDU2",216,0) CSTST(ACD160) ; "RTN","ONCACDU2",217,0) ;Addr Current--State [1820] 1327-1328 "RTN","ONCACDU2",218,0) N X "RTN","ONCACDU2",219,0) S X=$$GET1^DIQ(160,ACD160,.115,"E") "RTN","ONCACDU2",220,0) S X=$S(X="CANAD":"CD",X="EU":"YY",X="MX":"XX",X="NF":"NL",X="PH":"XX",X="UN":"ZZ",1:X) "RTN","ONCACDU2",221,0) Q X "RTN","ONCACDU2",222,0) ; "RTN","ONCACDU2",223,0) ICD(ICD) ;ICD Code "RTN","ONCACDU2",224,0) N X "RTN","ONCACDU2",225,0) S ICD=$S(ICD'="":$P($G(^ICD9(ICD,0)),U),1:"0000") "RTN","ONCACDU2",226,0) I ICD["." S ICD=$P(ICD,".")_$P(ICD,".",2) "RTN","ONCACDU2",227,0) S:$L(ICD)=3 ICD=ICD_9 "RTN","ONCACDU2",228,0) S:$L(ICD)<4 ICD=$E("0000",1,4-$L(ICD))_ICD "RTN","ONCACDU2",229,0) S:$L(ICD)>4 ICD=$E(ICD,1,4) "RTN","ONCACDU2",230,0) I $E(ICD,4)="X"!($E(ICD,4)="-") S ICD=$E(ICD,1,3)_9 "RTN","ONCACDU2",231,0) Q ICD "RTN","ONCACDU2",232,0) ; "RTN","ONCACDU2",233,0) ICDR(ICD) ;ICD Revision Number [1920] 1392-1392 "RTN","ONCACDU2",234,0) N ICDR "RTN","ONCACDU2",235,0) S ICD=$$ICD(ICD) "RTN","ONCACDU2",236,0) S ICDR=$S(ICD=" ":0,1:$$GET1^DIQ(160,ACD160,20,"I")) "RTN","ONCACDU2",237,0) S:ICDR="" ICDR=0 "RTN","ONCACDU2",238,0) Q ICDR "RTN","ONCACDU2",239,0) ; "RTN","ONCACDU2",240,0) PPAY(IEN) ;PRIMARY PAYER AT DX (165.5,18) "RTN","ONCACDU2",241,0) N X "RTN","ONCACDU2",242,0) S X=$$GET1^DIQ(165.5,IEN,18,"I") "RTN","ONCACDU2",243,0) S X=$$GET1^DIQ(160.3,$S(X'="":X,1:99),.01,"I") "RTN","ONCACDU2",244,0) S X=$S(X<42:X,X>47:X,1:X-1) "RTN","ONCACDU2",245,0) Q X "RTN","ONCACDU2",246,0) ; "RTN","ONCACDU2",247,0) DS(IEN) ;RX Date--Surgery [1200] 755-762 "RTN","ONCACDU2",248,0) N X "RTN","ONCACDU2",249,0) S X=$$GET1^DIQ(165.5,IEN,50,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",250,0) S X=$$GET1^DIQ(165.5,IEN,138.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",251,0) S X=$$GET1^DIQ(165.5,IEN,139.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",252,0) S SURGDT=$O(SURGDT(0)) "RTN","ONCACDU2",253,0) S X=$$DATE^ONCACDU1(SURGDT) "RTN","ONCACDU2",254,0) K SURGDT "RTN","ONCACDU2",255,0) Q X "RTN","ONCACDU2",256,0) STRIP ;Replace punctuation marks with spaces "RTN","ONCACDU2",257,0) S ACDANS=$TR(ACDANS,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`"," ") "RTN","ONCACDU2",258,0) Q "RTN","ONCACDU2",259,0) ; "RTN","ONCACDU2",260,0) STRIP1 ;Strip out punctuation marks "RTN","ONCACDU2",261,0) S ACDANS=$$STRIP^XLFSTR(ACDANS,"!""""#$%&'()*+,-./:;<=>?[>]^_\{|}~`") "RTN","ONCACDU2",262,0) Q "RTN","ONCEDIT") 0^5^B85074888 "RTN","ONCEDIT",1,0) ONCEDIT ;Hines OIFO/GWB - ONCOLOGY INTER-FIELD EDITS ;09/29/00 "RTN","ONCEDIT",2,0) ;;2.11;ONCOLOGY;**27,28,34,36,39,42,43,45,46,47,49,50**;Mar 07, 1995;Build 29 "RTN","ONCEDIT",3,0) ; "RTN","ONCEDIT",4,0) N BCOD,COCE,COCI,HSTE,HSTFLD,HSTI,SSTE,SSTI,STAT,TOPE,TOPI,TRSE,TRSI,X "RTN","ONCEDIT",5,0) K MSG "RTN","ONCEDIT",6,0) S RHSP=$$GET1^DIQ(165.5,PRM,.03,"I") ;REPORTING FACILITY "RTN","ONCEDIT",7,0) S COCI=$$GET1^DIQ(165.5,PRM,.04,"I") ;CLASS OF CASE "RTN","ONCEDIT",8,0) S COCE=$$GET1^DIQ(165.5,PRM,.04,"E") "RTN","ONCEDIT",9,0) S STAT=$$GET1^DIQ(165.5,PRM,.091) ;STATUS "RTN","ONCEDIT",10,0) S TRSI=$$GET1^DIQ(165.5,PRM,1.2,"I") ;TYPE OF REPORTING SOURCE "RTN","ONCEDIT",11,0) S TRSE=$$GET1^DIQ(165.5,PRM,1.2,"E") "RTN","ONCEDIT",12,0) S RFAC=$$GET1^DIQ(165.5,PRM,6,"I") ;FACILITY REFERRED FROM "RTN","ONCEDIT",13,0) S TFAC=$$GET1^DIQ(165.5,PRM,7,"I") ;FACILITY REFERRED TO "RTN","ONCEDIT",14,0) S TOPI=$$GET1^DIQ(165.5,PRM,20,"I") ;PRIMARY SITE "RTN","ONCEDIT",15,0) S TOPE=$$GET1^DIQ(165.5,PRM,20,"E") "RTN","ONCEDIT",16,0) S HSTI=$$HIST^ONCFUNC(PRM,.HSTFLD) ;HISTOLOGY "RTN","ONCEDIT",17,0) S HSTE=$$GET1^DIQ(165.5,PRM,HSTFLD,"E") "RTN","ONCEDIT",18,0) S BCOD=$E(HSTI,5) ;BEHAVIOR CODE "RTN","ONCEDIT",19,0) S SSTI=$$GET1^DIQ(165.5,PRM,35,"I") ;SUMMARY STAGE "RTN","ONCEDIT",20,0) S SSTE=$$GET1^DIQ(165.5,PRM,35,"E") "RTN","ONCEDIT",21,0) ; "RTN","ONCEDIT",22,0) IF02 S SDX="" "RTN","ONCEDIT",23,0) S SDXI=$$GET1^DIQ(165.5,PRM,16,"I") ;STATE AT DX "RTN","ONCEDIT",24,0) S SDXE=$$GET1^DIQ(165.5,PRM,16,"E") "RTN","ONCEDIT",25,0) I SDXI'="" S SDX=$P(^ONCO(160.15,SDXI,0),U,1) "RTN","ONCEDIT",26,0) S PCDX=$$GET1^DIQ(165.5,PRM,9,"I") ;POSTAL CODE AT DX "RTN","ONCEDIT",27,0) I SDX="YY",PCDX'=888888888 D D ERRMSG "RTN","ONCEDIT",28,0) .S MSG(1)="STATE AT DX = YY ("_SDXE_")" "RTN","ONCEDIT",29,0) .S MSG(2)="POSTAL CODE AT DX must be 888888888" "RTN","ONCEDIT",30,0) I SDX="ZZ",PCDX'=999999999 D D ERRMSG "RTN","ONCEDIT",31,0) .S MSG(1)="STATE AT DX = ZZ ("_SDXE_")" "RTN","ONCEDIT",32,0) .S MSG(2)="POSTAL CODE AT DX must be 999999999" "RTN","ONCEDIT",33,0) K MSG,PCDX,SDX,SDXI,SDXE "RTN","ONCEDIT",34,0) ; "RTN","ONCEDIT",35,0) IF03 I RHSP=RFAC D D ERRMSG "RTN","ONCEDIT",36,0) .S MSG(1)="REPORTING HOSPITAL = FACILITY REFERRED FROM" "RTN","ONCEDIT",37,0) I RHSP=TFAC D D ERRMSG "RTN","ONCEDIT",38,0) .S MSG(1)="REPORTING HOSPITAL = FACILITY REFERRED TO" "RTN","ONCEDIT",39,0) ; "RTN","ONCEDIT",40,0) IF10 I ((COCI=2)!(COCI=3)),RFAC="" D D ERRMSG "RTN","ONCEDIT",41,0) .S MSG(1)="CLASS OF CASE = "_COCI_" ("_COCE_")" "RTN","ONCEDIT",42,0) .S MSG(2)="FACILITY REFERRED FROM may not be blank" "RTN","ONCEDIT",43,0) K MSG,RHSP,RFAC,TFAC "RTN","ONCEDIT",44,0) ; "RTN","ONCEDIT",45,0) IF06 N DDXE,DDXI "RTN","ONCEDIT",46,0) S DIAI=$$GET1^DIQ(165.5,PRM,155,"I") ;DATE OF FIRST CONTACT "RTN","ONCEDIT",47,0) S DIAE=$$GET1^DIQ(165.5,PRM,155,"E") "RTN","ONCEDIT",48,0) S DDXI=$$GET1^DIQ(165.5,PRM,3,"I") ;DATE DX "RTN","ONCEDIT",49,0) S DDXE=$$GET1^DIQ(165.5,PRM,3,"E") "RTN","ONCEDIT",50,0) I DIAE="99/99/9999" G IF06EX "RTN","ONCEDIT",51,0) S MSG(1)="CLASS OF CASE = "_COCI_" ("_COCE_")" "RTN","ONCEDIT",52,0) S MSG(2)="DATE OF FIRST CONTACT..: "_DIAE "RTN","ONCEDIT",53,0) S MSG(3)=" later than" "RTN","ONCEDIT",54,0) I COCI=0 D "RTN","ONCEDIT",55,0) .S SPSI=$$GET1^DIQ(165.5,PRM,50,"I") ;MOST DEFINITIVE SURG DATE "RTN","ONCEDIT",56,0) .S SPSE=$$GET1^DIQ(165.5,PRM,50,"E") "RTN","ONCEDIT",57,0) .S RADI=$$GET1^DIQ(165.5,PRM,51,"I") ;DATE RADIATION STARTED "RTN","ONCEDIT",58,0) .S RADE=$$GET1^DIQ(165.5,PRM,51,"E") "RTN","ONCEDIT",59,0) .S CNSI=$$GET1^DIQ(165.5,PRM,52,"I") ;RADIATION THERAPY TO CNS DATE "RTN","ONCEDIT",60,0) .S CNSE=$$GET1^DIQ(165.5,PRM,52,"E") "RTN","ONCEDIT",61,0) .S CHMI=$$GET1^DIQ(165.5,PRM,53,"I") ;CHEMOTHERAPY DATE "RTN","ONCEDIT",62,0) .S CHME=$$GET1^DIQ(165.5,PRM,53,"E") "RTN","ONCEDIT",63,0) .S HORI=$$GET1^DIQ(165.5,PRM,54,"I") ;HORMONE THERAPY DATE "RTN","ONCEDIT",64,0) .S HORE=$$GET1^DIQ(165.5,PRM,54,"E") "RTN","ONCEDIT",65,0) .S BRMI=$$GET1^DIQ(165.5,PRM,55,"I") ;IMMUNOTHERAPY DATE "RTN","ONCEDIT",66,0) .S BRME=$$GET1^DIQ(165.5,PRM,55,"E") "RTN","ONCEDIT",67,0) .S OTHI=$$GET1^DIQ(165.5,PRM,57,"I") ;OTHER TREATMENT START DATE "RTN","ONCEDIT",68,0) .S OTHE=$$GET1^DIQ(165.5,PRM,57,"E") "RTN","ONCEDIT",69,0) .I SPSI'="0000000",DIAI>SPSI D D ERRMSG "RTN","ONCEDIT",70,0) ..S MSG(4)="MOST DEFINITIVE SURG DATE....: "_SPSE "RTN","ONCEDIT",71,0) .I RADI'="0000000",DIAI>RADI D D ERRMSG "RTN","ONCEDIT",72,0) ..S MSG(4)="DATE RADIATION STARTED.......: "_RADE "RTN","ONCEDIT",73,0) .I DDXI<2960000,CNSI'="0000000",DIAI>CNSI D D ERRMSG "RTN","ONCEDIT",74,0) ..S MSG(4)="RADIATION THERAPY TO CNS DATE: "_CNSE "RTN","ONCEDIT",75,0) .I CHMI'="0000000",DIAI>CHMI D D ERRMSG "RTN","ONCEDIT",76,0) ..S MSG(4)="CHEMOTHERAPY DATE............: "_CHME "RTN","ONCEDIT",77,0) .I HORI'="0000000",DIAI>HORI D D ERRMSG "RTN","ONCEDIT",78,0) ..S MSG(4)="HORMONE THERAPY DATE.........: "_HORE "RTN","ONCEDIT",79,0) .I BRMI'="0000000",DIAI>BRMI D D ERRMSG "RTN","ONCEDIT",80,0) ..S MSG(4)="IMMUNOTHERAPY DATE...........: "_BRME "RTN","ONCEDIT",81,0) .I OTHI'="0000000",DIAI>OTHI D D ERRMSG "RTN","ONCEDIT",82,0) ..S MSG(4)="OTHER TREATMENT START DATE...: "_OTHE "RTN","ONCEDIT",83,0) IF06EX K BRME,BRMI,CHME,CHMI,CNSE,CNSI,DIAI,DIAE,HORE,HORI,MSG,OTHE "RTN","ONCEDIT",84,0) K OTHI,RADE,RADI,SPSE,SPSI "RTN","ONCEDIT",85,0) ; "RTN","ONCEDIT",86,0) IF0708 S DXCF=$$GET1^DIQ(165.5,PRM,26,"I") ;DIAGNOSTIC CONFIRMATION "RTN","ONCEDIT",87,0) S SEQ=$$GET1^DIQ(165.5,PRM,.06,"I") ;SEQUENCE NUMBER "RTN","ONCEDIT",88,0) S SEQN=+$$GET1^DIQ(165.5,PRM,.06,"I") "RTN","ONCEDIT",89,0) S PRIM=$$GET1^DIQ(165.5,PRM,20,"I") ;PRIMARY SITE "RTN","ONCEDIT",90,0) S OVER=$$GET1^DIQ(165.5,PRM,223,"I") ;OVER-RIDE HOSPSEQ/DXCONF "RTN","ONCEDIT",91,0) I TRSI=6,COCI'=5 D D ERRMSG "RTN","ONCEDIT",92,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 6 ("_TRSE_")" "RTN","ONCEDIT",93,0) .S MSG(2)="CLASS OF CASE must be 5 (Dx at autopsy)" "RTN","ONCEDIT",94,0) I COCI=5,TRSI'=6 D D ERRMSG "RTN","ONCEDIT",95,0) .S MSG(1)="CLASS OF CASE = 5 ("_COCE_")" "RTN","ONCEDIT",96,0) .S MSG(2)="TYPE OF REPORTING SOURCE must be 6 (Autopsy only)" "RTN","ONCEDIT",97,0) I TRSI=7,DXCF'=9 D D ERRMSG "RTN","ONCEDIT",98,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 7 ("_TRSE_")" "RTN","ONCEDIT",99,0) .S MSG(2)="DIAGNOSTIC CONFIRMATION must be 9 (Unk if microscopically confirmed)" "RTN","ONCEDIT",100,0) I TRSI=6,((DXCF'=1)&(DXCF'=6)) D D ERRMSG "RTN","ONCEDIT",101,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 6 ("_TRSE_")" "RTN","ONCEDIT",102,0) .S MSG(2)="DIAGNOSTIC CONFIRMATION must be 1 (Pos histology) or" "RTN","ONCEDIT",103,0) .S MSG(3)=" 6 (Direct visualization)" "RTN","ONCEDIT",104,0) I ($E(PRIM,3,4)=76)!(PRIM=67809) G IF11 "RTN","ONCEDIT",105,0) I DXCF>5,((SEQN>0)&(SEQN<60))!(SEQN>88),OVER="" D D ERRMSG K DIR S DIR(0)="YA",DIR("A")="Do you wish to set the OVER-RIDE HOSPSEQ/DXCONF flag to 'Reviewed'? ",DIR("B")="Y" D ^DIR W ! I Y=1 S $P(^ONCO(165.5,PRM,"OVRD"),U,19)=1,CMPLT=SAVCMPLT "RTN","ONCEDIT",106,0) .S SAVCMPLT=CMPLT "RTN","ONCEDIT",107,0) .S MSG(1)="DIAGNOSTIC CONFIRMATION > 5 ("_DXCF_")" "RTN","ONCEDIT",108,0) .S MSG(2)="SEQUENCE NUMBER > 00 ("_SEQ_")" "RTN","ONCEDIT",109,0) .S MSG(3)="OVER-RIDE HOSPSEQ/DXCONF is required" "RTN","ONCEDIT",110,0) K MSG,DXCF,SEQ,SEQN,PRIM,OVER,SAVCMPLT,DIR,Y "RTN","ONCEDIT",111,0) ; "RTN","ONCEDIT",112,0) IF11 G:TOPI="" IF11EX "RTN","ONCEDIT",113,0) S PORG=$$GET1^DIQ(164,TOPI,.07,"I") ;PAIRED ORGAN "RTN","ONCEDIT",114,0) S LTRL=$$GET1^DIQ(165.5,PRM,28,"I") ;LATERALITY "RTN","ONCEDIT",115,0) I PORG=1,LTRL=0,DDXI>3031231 D D ERRMSG "RTN","ONCEDIT",116,0) .S MSG(1)=TOPE_" is a paired site" "RTN","ONCEDIT",117,0) .S MSG(2)="LATERALITY must be provided for specified paired organs/sites" "RTN","ONCEDIT",118,0) .S MSG(3)="" "RTN","ONCEDIT",119,0) .S:TOPI=67300 MSG(4)="NOTE: If NASAL CARTILAGE or NASAL SEPTUM, override this warning." "RTN","ONCEDIT",120,0) .S:TOPI=67340 MSG(4)="NOTE: If CARINA, override this warning." "RTN","ONCEDIT",121,0) .S:TOPI=67413 MSG(4)="NOTE: If STERNUM, override this warning." "RTN","ONCEDIT",122,0) .S:TOPI=67414 MSG(4)="NOTE: If SACRUM, COCCYX or SYMPHYSIS PUBIS, override this warning." "RTN","ONCEDIT",123,0) I PORG=1,LTRL="" D D ERRMSG "RTN","ONCEDIT",124,0) .S MSG(1)=TOPE_" is a paired site" "RTN","ONCEDIT",125,0) .S MSG(2)="LATERALITY must be provided for specified paired organs/sites" "RTN","ONCEDIT",126,0) I PORG="",LTRL'=0 D D ERRMSG "RTN","ONCEDIT",127,0) .S MSG(1)=TOPE_" is an unpaired site" "RTN","ONCEDIT",128,0) .S MSG(2)="LATERALITY must be 0 (Not a paired site)" "RTN","ONCEDIT",129,0) IF11EX K MSG,PORG,LTRL "RTN","ONCEDIT",130,0) ; "RTN","ONCEDIT",131,0) S RADI=$$GET1^DIQ(165.5,PRM,51.2,"I") ;RADIATION "RTN","ONCEDIT",132,0) S RADE=$$GET1^DIQ(165.5,PRM,51.2,"E") "RTN","ONCEDIT",133,0) S LRTI=$$GET1^DIQ(165.5,PRM,126,"I") ;LOCATION OF RADIATION TX "RTN","ONCEDIT",134,0) I RADI'=0,LRTI=0 D D ERRMSG "RTN","ONCEDIT",135,0) .S MSG(1)="RADIATION = "_RADI_" ("_RADE_")" "RTN","ONCEDIT",136,0) .S MSG(2)="LOCATION OF RADIATION TX cannot be 0 (No radiation tx)" "RTN","ONCEDIT",137,0) K MSG,RADI,RADE,LRTI "RTN","ONCEDIT",138,0) ; "RTN","ONCEDIT",139,0) ;Treatment codes of 88 or dates of 88/88/8888 will prohibit 'Completion' "RTN","ONCEDIT",140,0) S DRS=$$GET1^DIQ(165.5,PRM,51,"E") ;DATE RADIATION STARTED "RTN","ONCEDIT",141,0) S DRSFAC=$$GET1^DIQ(165.5,PRM,51.5,"E") ;RADIATION @FACILITY DATE "RTN","ONCEDIT",142,0) S DRE=$$GET1^DIQ(165.5,PRM,361,"E") ;DATE RADIATION ENDED "RTN","ONCEDIT",143,0) S CI=$$GET1^DIQ(165.5,PRM,53.2,"I") ;CHEMOTHERAPY "RTN","ONCEDIT",144,0) S CE=$$GET1^DIQ(165.5,PRM,53.2,"E") "RTN","ONCEDIT",145,0) S CFACI=$$GET1^DIQ(165.5,PRM,53.3,"I") ;CHEMOTHERAPY @FAC "RTN","ONCEDIT",146,0) S CFACE=$$GET1^DIQ(165.5,PRM,53.3,"E") ;CHEMOTHERAPY @FAC "RTN","ONCEDIT",147,0) S CD=$$GET1^DIQ(165.5,PRM,53,"E") ;CHEMOTHERAPY DATE "RTN","ONCEDIT",148,0) S CFACD=$$GET1^DIQ(165.5,PRM,53.4,"E") ;CHEMOTHERAPY @FAC DATE "RTN","ONCEDIT",149,0) S HTI=$$GET1^DIQ(165.5,PRM,54.2,"I") ;HORMONE THERAPY "RTN","ONCEDIT",150,0) S HTE=$$GET1^DIQ(165.5,PRM,54.2,"E") "RTN","ONCEDIT",151,0) S HTFACI=$$GET1^DIQ(165.5,PRM,54.3,"I") ;HORMONE THERAPY @FAC "RTN","ONCEDIT",152,0) S HTFACE=$$GET1^DIQ(165.5,PRM,54.3,"E") "RTN","ONCEDIT",153,0) S HTD=$$GET1^DIQ(165.5,PRM,54,"E") ;HORMONE THERAPY DATE "RTN","ONCEDIT",154,0) S HTFACD=$$GET1^DIQ(165.5,PRM,54.4,"E") ;HORMONE THERAPY @FAC DATE "RTN","ONCEDIT",155,0) S ITI=$$GET1^DIQ(165.5,PRM,55.2,"I") ;IMMUNOTHERAPY "RTN","ONCEDIT",156,0) S ITE=$$GET1^DIQ(165.5,PRM,55.2,"E") "RTN","ONCEDIT",157,0) S ITFACI=$$GET1^DIQ(165.5,PRM,55.3,"I") ;IMMUNOTHERAPY @FAC "RTN","ONCEDIT",158,0) S ITFACE=$$GET1^DIQ(165.5,PRM,55.3,"E") "RTN","ONCEDIT",159,0) S ITD=$$GET1^DIQ(165.5,PRM,55,"E") ;IMMUNOTHERAPY DATE "RTN","ONCEDIT",160,0) S ITFACD=$$GET1^DIQ(165.5,PRM,55.4,"E") ;IMMUNOTHERAPY @FAC DATE "RTN","ONCEDIT",161,0) S HTEPI=$$GET1^DIQ(165.5,PRM,153,"I") ;HEMA TRANS/ENDOCRINE PROC "RTN","ONCEDIT",162,0) S HTEPE=$$GET1^DIQ(165.5,PRM,153,"E") "RTN","ONCEDIT",163,0) S HTEPD=$$GET1^DIQ(165.5,PRM,153.1,"E") ;HEMA TRANS/ENDOCRINE PROC DATE "RTN","ONCEDIT",164,0) I DRS="88/88/8888" D D TXDT88,ERRMSG "RTN","ONCEDIT",165,0) .S MSG(1)="DATE RADIATION STARTED = "_DRS "RTN","ONCEDIT",166,0) I DRSFAC="88/88/8888" D D ERRMSG "RTN","ONCEDIT",167,0) .S MSG(1)="RADIATION @FACILITY DATE = "_DRSFAC "RTN","ONCEDIT",168,0) I DRE="88/88/8888" D D ERRMSG "RTN","ONCEDIT",169,0) .S MSG(1)="DATE RADIATION ENDED = "_DRE "RTN","ONCEDIT",170,0) I CI=88 D D ERRMSG "RTN","ONCEDIT",171,0) .S MSG(1)="CHEMOTHERAPY = "_CI_" ("_CE_")" "RTN","ONCEDIT",172,0) I CD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",173,0) .S MSG(1)="CHEMOTHERAPY DATE = "_CD "RTN","ONCEDIT",174,0) I CFACI=88 D D ERRMSG "RTN","ONCEDIT",175,0) .S MSG(1)="CHEMOTHERAPY @FAC = "_CFACI_" ("_CFACE_")" "RTN","ONCEDIT",176,0) I CFACD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",177,0) .S MSG(1)="CHEMOTHERAPY @FAC DATE = "_CFACD "RTN","ONCEDIT",178,0) I HTI=88 D D ERRMSG "RTN","ONCEDIT",179,0) .S MSG(1)="HORMONE THERAPY = "_HTI_" ("_HTE_")" "RTN","ONCEDIT",180,0) I HTD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",181,0) .S MSG(1)="HORMONE THERAPY DATE = "_HTD "RTN","ONCEDIT",182,0) I HTFACI=88 D D ERRMSG "RTN","ONCEDIT",183,0) .S MSG(1)="HORMONE THERAPY @FAC = "_HTFACI_" ("_HTFACE_")" "RTN","ONCEDIT",184,0) I HTFACD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",185,0) .S MSG(1)="HORMONE THERAPY @FAC DATE = "_HTFACD "RTN","ONCEDIT",186,0) I ITI=88 D D ERRMSG "RTN","ONCEDIT",187,0) .S MSG(1)="IMMUNOTHERAPY = "_ITI_" ("_ITE_")" "RTN","ONCEDIT",188,0) I ITD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",189,0) .S MSG(1)="IMMUNOTHERAPY DATE = "_ITD "RTN","ONCEDIT",190,0) I ITFACI=88 D D ERRMSG "RTN","ONCEDIT",191,0) .S MSG(1)="IMMUNOTHERAPY @FAC = "_ITFACI_" ("_ITFACE_")" "RTN","ONCEDIT",192,0) I ITFACD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",193,0) .S MSG(1)="IMMUNOTHERAPY @FAC DATE = "_ITFACD "RTN","ONCEDIT",194,0) I HTEPI=12 D D ERRMSG "RTN","ONCEDIT",195,0) .S MSG(1)="HEMA TRANS/ENDOCRINE PROC = 88 ("_HTEPE_")" "RTN","ONCEDIT",196,0) I HTEPD="88/88/8888" D D ERRMSG "RTN","ONCEDIT",197,0) .S MSG(1)="HEMA TRANS/ENDOCRINE PROC DATE = "_HTEPD "RTN","ONCEDIT",198,0) K CD,CE,CFACD,CFACE,CFACI,CI,DRE,DRS,DRSFAC,HTD,HTE,HTEPD,HTEPE,HTEPI "RTN","ONCEDIT",199,0) K HTFACD,HTFACE,HTFACI,HTI,ITD,ITE,ITFACD,ITFACE,ITFACI,ITI "RTN","ONCEDIT",200,0) ; "RTN","ONCEDIT",201,0) PHCSEQ S SEQ=$$GET1^DIQ(165.5,PRM,.06,"I") "RTN","ONCEDIT",202,0) S PHC=$$GET1^DIQ(165.5,PRM,148,"E") "RTN","ONCEDIT",203,0) I PHC="Yes",(SEQ="00")!(SEQ=60) D D ERRMSG "RTN","ONCEDIT",204,0) .S MSG(1)="OTHER CANCER = Yes" "RTN","ONCEDIT",205,0) .S MSG(2)="SEQUENCE NUMBER = "_SEQ "RTN","ONCEDIT",206,0) .S MSG(3)="SEQUENCE NUMBER cannot not be 00 or 60" "RTN","ONCEDIT",207,0) I PHC="No",(SEQ'="00")&(SEQ'=60) D D ERRMSG "RTN","ONCEDIT",208,0) .S MSG(1)="OTHER CANCER = "_PHC "RTN","ONCEDIT",209,0) .S MSG(2)="SEQUENCE NUMBER = "_SEQ "RTN","ONCEDIT",210,0) .S MSG(3)="SEQUENCE NUMBER must be 00 or 60" "RTN","ONCEDIT",211,0) K SEQ,PHC,MSG "RTN","ONCEDIT",212,0) ; "RTN","ONCEDIT",213,0) G ^ONCEDIT2 "RTN","ONCEDIT",214,0) ; "RTN","ONCEDIT",215,0) ERRMSG ;Error message "RTN","ONCEDIT",216,0) S CMPLT=0 "RTN","ONCEDIT",217,0) W !," WARNING: " "RTN","ONCEDIT",218,0) S MSGSUB=0 F S MSGSUB=$O(MSG(MSGSUB)) Q:MSGSUB'>0 W ?10,MSG(MSGSUB),! "RTN","ONCEDIT",219,0) R Z:10 "RTN","ONCEDIT",220,0) K MSGSUB,Z "RTN","ONCEDIT",221,0) Q "RTN","ONCEDIT",222,0) ; "RTN","ONCEDIT",223,0) TXDT88 ;Treatment date = 88/88/8888 error message "RTN","ONCEDIT",224,0) S MSG(2)="This abstract cannot be 'Complete' without a valid treatment date." "RTN","ONCEDIT",225,0) S MSG(3)="This inter-field edit WARNING may not be overridden." "RTN","ONCEDIT",226,0) S OVERRIDE="NO" "RTN","ONCEDIT",227,0) Q "RTN","ONCGENED") 0^18^B20292699 "RTN","ONCGENED",1,0) ONCGENED ;Hines OIFO/GWB - EDITS API ;3/7/07 4:21pm "RTN","ONCGENED",2,0) ;;2.11;ONCOLOGY;**47,48,49,50**;Mar 07,1995;Build 29 "RTN","ONCGENED",3,0) ; "RTN","ONCGENED",4,0) NAACCR D CLEAR^ONCSAPIE(1) "RTN","ONCGENED",5,0) K ^TMP("ONC",$J) "RTN","ONCGENED",6,0) K ^TMP("ONC1",$J) "RTN","ONCGENED",7,0) N BLANK,DEVICE,DXH,EXT,HDRIEN,IINPNT,MSGLST,NINE,OIEN,ONCEDLST,OSP "RTN","ONCGENED",8,0) N PAGE,PAGEX,STAT1,ZERO,ZNINE "RTN","ONCGENED",9,0) S BLANK=" " "RTN","ONCGENED",10,0) S ZERO=0 "RTN","ONCGENED",11,0) S NINE=9 "RTN","ONCGENED",12,0) S ZNINE="09" "RTN","ONCGENED",13,0) S EXTRACT=$O(^ONCO(160.16,"B","VACCR EXTRACT V11.3",0)) "RTN","ONCGENED",14,0) S EXT="VACCR" "RTN","ONCGENED",15,0) S DEVICE=0,OIEN=0,PAGE=1,HDRIEN=12,OUT=0 "RTN","ONCGENED",16,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCGENED",17,0) I OSP="" S OSP=$O(^ONCO(160.1,0)) "RTN","ONCGENED",18,0) S IINPNT=$P($G(^ONCO(160.1,OSP,1)),U,4) "RTN","ONCGENED",19,0) S DXH=$$GET1^DIQ(160.19,IINPNT,.01,"I") "RTN","ONCGENED",20,0) S STAT1=DXH "RTN","ONCGENED",21,0) S PAGE=1 "RTN","ONCGENED",22,0) S IEN=D0 "RTN","ONCGENED",23,0) S ONCDST=$NA(^TMP("ONC",$J)) "RTN","ONCGENED",24,0) S MSGLST=$NA(^TMP("ONC1",$J)) "RTN","ONCGENED",25,0) ; "RTN","ONCGENED",26,0) ;S RC=$$RBQPREP^ONCSED01(.ONCSAPI,.ONCDST,"DEBUG") "RTN","ONCGENED",27,0) S RC=$$RBQPREP^ONCSED01(.ONCSAPI,.ONCDST) "RTN","ONCGENED",28,0) ;S ERRFLG=RC "RTN","ONCGENED",29,0) I RC<0 D PRTERRS^ONCSAPIE() Q "RTN","ONCGENED",30,0) ; "RTN","ONCGENED",31,0) N D0 "RTN","ONCGENED",32,0) D OUTPUT(IEN,EXTRACT,.OUT) "RTN","ONCGENED",33,0) I $G(EDITS)="NO" D END^ONCSNACR(.ONCDST) Q "RTN","ONCGENED",34,0) ; "RTN","ONCGENED",35,0) EDITS S RC=$$RBQEXEC^ONCSED01(.ONCSAPI,.ONCDST,MSGLST) "RTN","ONCGENED",36,0) S ERRFLG=RC "RTN","ONCGENED",37,0) I RC<0 D PRTERRS^ONCSAPIE() "RTN","ONCGENED",38,0) I RC>0 D Q:RC<0 "RTN","ONCGENED",39,0) . N %ZIS,IOP,POP "RTN","ONCGENED",40,0) . S %ZIS("B")="HOME" "RTN","ONCGENED",41,0) . D ^%ZIS Q:$G(POP) U IO "RTN","ONCGENED",42,0) . S RC=$$REPORT^ONCSED01(.ONCSAPI,MSGLST,"MT") "RTN","ONCGENED",43,0) . D ^%ZISC "RTN","ONCGENED",44,0) Q "RTN","ONCGENED",45,0) ; "RTN","ONCGENED",46,0) OUTPUT(IEN,EXTRACT,OUT) ; "RTN","ONCGENED",47,0) N POS "RTN","ONCGENED",48,0) S ACD160=$P(^ONCO(165.5,IEN,0),U,2) "RTN","ONCGENED",49,0) S POS=0 "RTN","ONCGENED",50,0) F S POS=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS)) Q:POS<1 D Q:OUT "RTN","ONCGENED",51,0) .N NODE "RTN","ONCGENED",52,0) .S NODE=0 "RTN","ONCGENED",53,0) .F S NODE=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS,NODE)) Q:NODE<1 D Q:OUT "RTN","ONCGENED",54,0) ..N STRING,DEFAULT,FILL,LEN "RTN","ONCGENED",55,0) ..Q:$G(^ONCO(160.16,EXTRACT,"FIELD",NODE,0))="" "RTN","ONCGENED",56,0) ..S STRING=$TR(^ONCO(160.16,EXTRACT,"FIELD",NODE,1),"~","^") "RTN","ONCGENED",57,0) ..S DEFAULT=^ONCO(160.16,EXTRACT,"FIELD",NODE,2) "RTN","ONCGENED",58,0) ..S FILL=$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,3),U,1) "RTN","ONCGENED",59,0) ..S LEN=$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,2) "RTN","ONCGENED",60,0) ..D DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,NODE,POS) "RTN","ONCGENED",61,0) Q "RTN","ONCGENED",62,0) ; "RTN","ONCGENED",63,0) DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,NODE,POS) ;Data print "RTN","ONCGENED",64,0) N ACDANS "RTN","ONCGENED",65,0) X STRING "RTN","ONCGENED",66,0) I ACDANS="" D Q "RTN","ONCGENED",67,0) .N X,I "RTN","ONCGENED",68,0) .S X="" "RTN","ONCGENED",69,0) .I DEFAULT=8 D Q "RTN","ONCGENED",70,0) ..F I=1:1:LEN D WRITE^ONCSNACR(.ONCDST,DEFAULT) "RTN","ONCGENED",71,0) .I @DEFAULT="09" D WRITE^ONCSNACR(.ONCDST,@DEFAULT) Q "RTN","ONCGENED",72,0) .F I=1:1:LEN D WRITE^ONCSNACR(.ONCDST,@DEFAULT) "RTN","ONCGENED",73,0) I $L(ACDANS)=LEN D WRITE^ONCSNACR(.ONCDST,ACDANS) Q "RTN","ONCGENED",74,0) I $L(ACDANS)>LEN D WRITE^ONCSNACR(.ONCDST,$E(ACDANS,1,LEN)) Q "RTN","ONCGENED",75,0) E D Q "RTN","ONCGENED",76,0) .N JUST,STUFF,I,REM,CAL "RTN","ONCGENED",77,0) .S JUST=$P(FILL,","),STUFF=$P(FILL,",",2) "RTN","ONCGENED",78,0) .S REM=LEN-$L(ACDANS) "RTN","ONCGENED",79,0) .I JUST="R" D WRITE^ONCSNACR(.ONCDST,ACDANS) "RTN","ONCGENED",80,0) .F I=1:1:REM D WRITE^ONCSNACR(.ONCDST,@STUFF) "RTN","ONCGENED",81,0) .I JUST="L" D WRITE^ONCSNACR(.ONCDST,ACDANS) "RTN","ONCGENED",82,0) Q "RTN","ONCGENED",83,0) ; "RTN","ONCGENED",84,0) CHKSUM ;Compute checksum "RTN","ONCGENED",85,0) N CHECKSUM "RTN","ONCGENED",86,0) Q:'$D(ONCDST) "RTN","ONCGENED",87,0) Q:$P($G(^ONCO(165.5,D0,7)),U,2)'=3 "RTN","ONCGENED",88,0) W !," Computing checksum value for this abstract..." "RTN","ONCGENED",89,0) S CHECKSUM=$$CRC32^ONCSNACR(.ONCDST) "RTN","ONCGENED",90,0) S $P(^ONCO(165.5,D0,"EDITS"),U,1)=CHECKSUM "RTN","ONCGENED",91,0) Q "RTN","ONCGENED",92,0) ; "RTN","ONCGENED",93,0) CHANGE ;Check for change to ONCOLOGY PRIMARY (165.5) record "RTN","ONCGENED",94,0) N CHECKSUM,ERRFLG "RTN","ONCGENED",95,0) S EDITS="NO" D NAACCR K EDITS "RTN","ONCGENED",96,0) S CHECKSUM=$$CRC32^ONCSNACR(.ONCDST) "RTN","ONCGENED",97,0) Q:$P($G(^ONCO(165.5,ONCOD0P,"EDITS")),U,1)="" "RTN","ONCGENED",98,0) I CHECKSUM'=$P($G(^ONCO(165.5,ONCOD0P,"EDITS")),U,1) D "RTN","ONCGENED",99,0) .W ! "RTN","ONCGENED",100,0) .W !," You have made a change to a 'Complete' abstract." "RTN","ONCGENED",101,0) .W !," This abstract needs to be re-run through the EDITS API." "RTN","ONCGENED",102,0) .W !!," Calling EDITS API..." "RTN","ONCGENED",103,0) .D ^ONCGENED "RTN","ONCGENED",104,0) .I ERRFLG'=0 D Q "RTN","ONCGENED",105,0) ..W !!," EDITS errors were encountered." "RTN","ONCGENED",106,0) ..W !!," The ABSTRACT STATUS has been changed to 0 (Incomplete)." "RTN","ONCGENED",107,0) ..S DIE="^ONCO(165.5," "RTN","ONCGENED",108,0) ..S DA=ONCOD0P "RTN","ONCGENED",109,0) ..S DR="91///0;197///@;198///^S X=DT;199////^S X=DUZ" "RTN","ONCGENED",110,0) ..D ^DIE "RTN","ONCGENED",111,0) ..W ! "RTN","ONCGENED",112,0) ..Q:$G(EAFLAG)="YES" "RTN","ONCGENED",113,0) ..K DIR S DIR(0)="YA" "RTN","ONCGENED",114,0) ..S DIR("A")=" Do you wish to return to the Primary Menu Options? " "RTN","ONCGENED",115,0) ..S DIR("B")="Yes" D ^DIR K DIR "RTN","ONCGENED",116,0) ..I Y=1 S Y="@0" "RTN","ONCGENED",117,0) .W !!," No EDITS errors or warnings. ABSTRACT STATUS = 3 (Complete)." "RTN","ONCGENED",118,0) .S DIE="^ONCO(165.5," "RTN","ONCGENED",119,0) .S DA=ONCOD0P "RTN","ONCGENED",120,0) .S DR="197///^S X=CHECKSUM;198///^S X=DT;199////^S X=DUZ" "RTN","ONCGENED",121,0) .D ^DIE "RTN","ONCGENED",122,0) .S EDITS="NO" D NAACCR K EDITS "RTN","ONCGENED",123,0) .S CHECKSUM=$$CRC32^ONCSNACR(.ONCDST) "RTN","ONCGENED",124,0) .S $P(^ONCO(165.5,D0,"EDITS"),U,1)=CHECKSUM "RTN","ONCGENED",125,0) .W ! "RTN","ONCGENED",126,0) .K DIR S DIR(0)="E" D ^DIR "RTN","ONCGENED",127,0) K DA,DIE,DR,RC "RTN","ONCNPI") 0^6^B32186235 "RTN","ONCNPI",1,0) ONCNPI ;Hines OIFO/GWB - National Provider Identifier ;02/16/07 "RTN","ONCNPI",2,0) ;;2.11;ONCOLOGY;**48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCNPI",3,0) ; "RTN","ONCNPI",4,0) FNPI ;Check FACILITY (160.19) for NPI (National Provider Identifier) "RTN","ONCNPI",5,0) N Y "RTN","ONCNPI",6,0) I FACPNT="" G FEXIT "RTN","ONCNPI",7,0) D DTDXCK I DTDXCK="N" G FEXIT "RTN","ONCNPI",8,0) S FAC=$P($G(^ONCO(160.19,FACPNT,0)),U,1) "RTN","ONCNPI",9,0) S FACNAM=$P($G(^ONCO(160.19,FACPNT,0)),U,2) "RTN","ONCNPI",10,0) I (FAC="00000000")!(FAC=9999999) G FEXIT "RTN","ONCNPI",11,0) S NPI=$P($G(^ONCO(160.19,FACPNT,0)),U,6) "RTN","ONCNPI",12,0) I NPI="" D ADDFNPI "RTN","ONCNPI",13,0) FEXIT K DTDXCK,NPI,FACIEN,FAC,FACNAM,FACPNT "RTN","ONCNPI",14,0) Q "RTN","ONCNPI",15,0) ; "RTN","ONCNPI",16,0) DTDXCK ;Check for 2007+ DATE DX (165.5,3) "RTN","ONCNPI",17,0) N PRI "RTN","ONCNPI",18,0) I '$D(ONCOD0) S DTDXCK="Y" Q "RTN","ONCNPI",19,0) S DTDXCK="N" "RTN","ONCNPI",20,0) S PRI=0 F S PRI=$O(^ONCO(165.5,"C",ONCOD0,PRI)) Q:PRI'>0 I $P($G(^ONCO(165.5,PRI,0)),U,16)>3069999 S DTDXCK="Y" Q "RTN","ONCNPI",21,0) Q "RTN","ONCNPI",22,0) ; "RTN","ONCNPI",23,0) ADDFNPI ;Enter Organizational Provider NPI value "RTN","ONCNPI",24,0) W ! "RTN","ONCNPI",25,0) W !," This facility needs to be associated with" "RTN","ONCNPI",26,0) W !," an NPI (National Provider Identifier) code." "RTN","ONCNPI",27,0) W ! "RTN","ONCNPI",28,0) FNPIR K DIR "RTN","ONCNPI",29,0) S DIR("A")=" Select method of NPI entry: " "RTN","ONCNPI",30,0) S DIR(0)="SAO^1:Get NPI from INSTITUTION file;2:Enter NPI code manually" "RTN","ONCNPI",31,0) S DIR("??")="^D FNPIHLP^ONCNPI" "RTN","ONCNPI",32,0) D ^DIR "RTN","ONCNPI",33,0) I $D(DIRUT) S OUT=1 K DIRUT G FNPIEX "RTN","ONCNPI",34,0) I Y<1 S OUT=1 G FNPIEX "RTN","ONCNPI",35,0) S NPIANS=Y "RTN","ONCNPI",36,0) I NPIANS=2 W ! R " Enter 10-digit NPI: ",NPI:60 G FNPICHK "RTN","ONCNPI",37,0) DIC4 N DIC,DTOUT,DUOUT,INSTIEN "RTN","ONCNPI",38,0) S DIC="^DIC(4," "RTN","ONCNPI",39,0) S DIC("A")=" Select INSTITUTION: " "RTN","ONCNPI",40,0) S DIC(0)="AEQM" "RTN","ONCNPI",41,0) S DIC("S")="I $P($G(^(""NPI"")),U,1)'=""""" "RTN","ONCNPI",42,0) D ^DIC "RTN","ONCNPI",43,0) G:($D(DUOUT))!($D(DTOUT))!(Y=-1) FNPIEX "RTN","ONCNPI",44,0) S INSTIEN=+Y "RTN","ONCNPI",45,0) K DIR "RTN","ONCNPI",46,0) S DIR("A")=" Is this the correct institution",DIR("B")="Y",DIR(0)="Y" "RTN","ONCNPI",47,0) D ^DIR "RTN","ONCNPI",48,0) G SETFNPI:Y,DIC4:Y=0 Q "RTN","ONCNPI",49,0) SETFNPI S NPI=$P(^DIC(4,INSTIEN,"NPI"),U,1) "RTN","ONCNPI",50,0) FNPICHK I (NPI="")!(NPI=U) W ! G FNPIEX "RTN","ONCNPI",51,0) I NPI'?10N W !!,"The NPI code must be 10 digits.",!! G FNPIR "RTN","ONCNPI",52,0) I $D(^ONCO(160.19,"F",NPI)) D G FNPIR "RTN","ONCNPI",53,0) .S FACIEN=$O(^ONCO(160.19,"F",NPI,0)) "RTN","ONCNPI",54,0) .S FAC=$P(^ONCO(160.19,FACIEN,0),U,2) "RTN","ONCNPI",55,0) .W !!," This NPI is already being used by ",FAC,".",! "RTN","ONCNPI",56,0) W !!," NPI code ",NPI," has been added for:" "RTN","ONCNPI",57,0) W !," ",FACNAM "RTN","ONCNPI",58,0) S $P(^ONCO(160.19,FACPNT,0),U,6)=NPI "RTN","ONCNPI",59,0) S ^ONCO(160.19,"F",NPI,FACPNT)="" "RTN","ONCNPI",60,0) FNPIEX W ! "RTN","ONCNPI",61,0) K NPIANS Q "RTN","ONCNPI",62,0) ; "RTN","ONCNPI",63,0) FNPIIT ;NPI (160.19,101) INPUT TRANSFORM "RTN","ONCNPI",64,0) I $D(^ONCO(160.19,"F",X)) D "RTN","ONCNPI",65,0) .S FACIEN=$O(^ONCO(160.19,"F",X,0)) "RTN","ONCNPI",66,0) .I FACIEN'=DA D K X "RTN","ONCNPI",67,0) ..S FAC=$P(^ONCO(160.19,FACIEN,0),U,2) "RTN","ONCNPI",68,0) ..W !!," This NPI code is already being used by ",FAC,".",! "RTN","ONCNPI",69,0) K FACIEN,FAC "RTN","ONCNPI",70,0) Q "RTN","ONCNPI",71,0) ; "RTN","ONCNPI",72,0) PNPI ;Check ONCOLOGY CONTACT (165) for NPI (National Provider Identifier) "RTN","ONCNPI",73,0) N Y,DATEDX "RTN","ONCNPI",74,0) I PHYPNT="" G PEXIT "RTN","ONCNPI",75,0) S DATEDX=$$GET1^DIQ(165.5,D0,3,"I") "RTN","ONCNPI",76,0) I (DATEDX<3070000)&(DATEDX'="") G PEXIT "RTN","ONCNPI",77,0) S PHY=$P($G(^ONCO(165,PHYPNT,0)),U,1) "RTN","ONCNPI",78,0) I (PHY="00000000")!(PHY=88888888)!(PHY=99999999) G PEXIT "RTN","ONCNPI",79,0) S NPI=$P($G(^ONCO(165,PHYPNT,0)),U,5) "RTN","ONCNPI",80,0) I NPI="" D ADDPNPI "RTN","ONCNPI",81,0) PEXIT K NPI,FACIEN,FAC,FACPNT,PHY,PHYPNT "RTN","ONCNPI",82,0) Q "RTN","ONCNPI",83,0) ; "RTN","ONCNPI",84,0) ADDPNPI ;Enter Individual Provider NPI value "RTN","ONCNPI",85,0) W ! "RTN","ONCNPI",86,0) W !," This provider needs to be associated with" "RTN","ONCNPI",87,0) W !," an NPI (National Provider Identifier) code." "RTN","ONCNPI",88,0) W ! "RTN","ONCNPI",89,0) ; "RTN","ONCNPI",90,0) PNPIR K DIR "RTN","ONCNPI",91,0) S DIR("A")=" Select method of NPI entry: " "RTN","ONCNPI",92,0) S DIR(0)="SAO^1:Get NPI from NEW PERSON file;2:Enter NPI code manually" "RTN","ONCNPI",93,0) S DIR("??")="^D PNPIHLP^ONCNPI" "RTN","ONCNPI",94,0) D ^DIR "RTN","ONCNPI",95,0) I $D(DIRUT) S OUT=1 K DIRUT G PNPIEX "RTN","ONCNPI",96,0) I Y<1 S OUT=1 G PNPIEX "RTN","ONCNPI",97,0) S NPIANS=Y "RTN","ONCNPI",98,0) I NPIANS=2 W ! R " Enter 10-digit NPI: ",NPI:60 G PNPICHK "RTN","ONCNPI",99,0) DIC200 N DTOUT,DUOUT,VAIEN "RTN","ONCNPI",100,0) S DIC="^VA(200," "RTN","ONCNPI",101,0) S DIC("A")=" Select PROVIDER: " "RTN","ONCNPI",102,0) S DIC(0)="AEQM" "RTN","ONCNPI",103,0) S DIC("S")="I $P($G(^(""NPI"")),U,1)'=""""" "RTN","ONCNPI",104,0) D ^DIC "RTN","ONCNPI",105,0) G:($D(DUOUT))!($D(DTOUT))!(Y=-1) PNPIEX "RTN","ONCNPI",106,0) S VAIEN=+Y "RTN","ONCNPI",107,0) K DIR "RTN","ONCNPI",108,0) S DIR("A")=" Is this the correct provider",DIR("B")="Y",DIR(0)="Y" "RTN","ONCNPI",109,0) D ^DIR "RTN","ONCNPI",110,0) G SETPNPI:Y,DIC200:Y=0 Q "RTN","ONCNPI",111,0) SETPNPI S NPI=$P(^VA(200,VAIEN,"NPI"),U,1) "RTN","ONCNPI",112,0) PNPICHK I (NPI="")!(NPI=U) W ! G PNPIEX "RTN","ONCNPI",113,0) I NPI'?10N W !!,"The NPI code must be 10 digits.",!! G PNPIR "RTN","ONCNPI",114,0) ;I $D(^ONCO(165,"F",NPI)) D G PNPIR "RTN","ONCNPI",115,0) ;.S PHYIEN=$O(^ONCO(165,"F",NPI,0)) "RTN","ONCNPI",116,0) ;.S PHY=$P(^ONCO(165,PHYIEN,0),U,1) "RTN","ONCNPI",117,0) ;.W !!," This NPI code is already being used by ",PHY,".",!! "RTN","ONCNPI",118,0) W !!," NPI code ",NPI," has been added for ",PHY,"." "RTN","ONCNPI",119,0) S $P(^ONCO(165,PHYPNT,0),U,5)=NPI "RTN","ONCNPI",120,0) S ^ONCO(165,"F",NPI,PHYPNT)="" "RTN","ONCNPI",121,0) PNPIEX W ! "RTN","ONCNPI",122,0) K NPIANS,PHY Q "RTN","ONCNPI",123,0) ; "RTN","ONCNPI",124,0) PNPIIT ;NPI (165,101) INPUT TRANSFORM "RTN","ONCNPI",125,0) ;I $D(^ONCO(165,"F",X)) D "RTN","ONCNPI",126,0) ;.S PHYIEN=$O(^ONCO(165,"F",X,0)) "RTN","ONCNPI",127,0) ;.I PHYIEN'=DA D K X "RTN","ONCNPI",128,0) ;..S PHY=$P(^ONCO(165,PHYIEN,0),U,1) "RTN","ONCNPI",129,0) ;..W !!," This NPI code is already being used by ",PHY,".",! "RTN","ONCNPI",130,0) ;K PHYIEN,PHY "RTN","ONCNPI",131,0) Q "RTN","ONCNPI",132,0) ; "RTN","ONCNPI",133,0) FNPIHLP ;"??" NPI help "RTN","ONCNPI",134,0) W !," Select 'Get NPI from INSTITUTION file' if you wish to" "RTN","ONCNPI",135,0) W !," extract the Organizational Provider NPI code from the" "RTN","ONCNPI",136,0) W !," INSTITUTION file." "RTN","ONCNPI",137,0) W ! "RTN","ONCNPI",138,0) W !," Select 'Enter NPI code manually' if you wish to enter" "RTN","ONCNPI",139,0) W !," the 10-digit NPI code manually." "RTN","ONCNPI",140,0) W ! "RTN","ONCNPI",141,0) W !," NPI codes for Organizational Providers can be found by" "RTN","ONCNPI",142,0) W !," searching the NPI Registry at the following websites:" "RTN","ONCNPI",143,0) W ! "RTN","ONCNPI",144,0) W !," https://nppes.cms.hhs.gov" "RTN","ONCNPI",145,0) W !," Click on ""Search the NPI Registry""." "RTN","ONCNPI",146,0) W ! "RTN","ONCNPI",147,0) W !," http://www.npinumberlookup.org/" "RTN","ONCNPI",148,0) Q "RTN","ONCNPI",149,0) ; "RTN","ONCNPI",150,0) PNPIHLP ;"??" NPI help "RTN","ONCNPI",151,0) W !," Select 'Get NPI from NEW PERSON file' if you wish to" "RTN","ONCNPI",152,0) W !," extract the Individual Provider NPI code from the" "RTN","ONCNPI",153,0) W !," NEW PERSON file." "RTN","ONCNPI",154,0) W ! "RTN","ONCNPI",155,0) W !," Select 'Enter NPI code manually' if you wish to enter" "RTN","ONCNPI",156,0) W !," the 10-digit NPI code manually." "RTN","ONCNPI",157,0) W ! "RTN","ONCNPI",158,0) W !," NPI codes for Individual Providers can be found by searching" "RTN","ONCNPI",159,0) W !," the NPI Registry at the following websites:" "RTN","ONCNPI",160,0) W ! "RTN","ONCNPI",161,0) W !," https://nppes.cms.hhs.gov" "RTN","ONCNPI",162,0) W !," Click on ""Search the NPI Registry""." "RTN","ONCNPI",163,0) W ! "RTN","ONCNPI",164,0) W !," http://www.npinumberlookup.org/" "RTN","ONCNPI",165,0) Q "RTN","ONCOAIP") 0^22^B95656022 "RTN","ONCOAIP",1,0) ONCOAIP ;Hines OIFO/GWB [EE Abstract Edit Primary] ;08/29/01 "RTN","ONCOAIP",2,0) ;;2.11;ONCOLOGY;**1,5,6,7,11,13,15,16,18,19,22,24,27,28,32,33,34,35,36,37,38,39,40,42,43,44,45,46,47,48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOAIP",3,0) ; "RTN","ONCOAIP",4,0) ED ;[EE Abstract Edit Primary] "RTN","ONCOAIP",5,0) W @IOF,! "RTN","ONCOAIP",6,0) S DIC="^ONCO(165.5,",DIC(0)="AEQZM" "RTN","ONCOAIP",7,0) S DIC("A")=" Select primary or patient name: " "RTN","ONCOAIP",8,0) D ^DIC K DIC G EX:Y<0 "RTN","ONCOAIP",9,0) S ONCOD0P=+Y "RTN","ONCOAIP",10,0) S ONCOD0=$P(^ONCO(165.5,+Y,0),U,2) "RTN","ONCOAIP",11,0) S ONCONM=$$GET1^DIQ(160,ONCOD0,.01,"E") "RTN","ONCOAIP",12,0) S ONCOEDIT=1 "RTN","ONCOAIP",13,0) ; "RTN","ONCOAIP",14,0) EN S ONCOYR=($$TNMED^ONCOU55(ONCOD0P)>3) "RTN","ONCOAIP",15,0) S ABSTAT=$P($G(^ONCO(165.5,ONCOD0P,7)),U,2) "RTN","ONCOAIP",16,0) S CHECKSUM=$P($G(^ONCO(165.5,ONCOD0P,"EDITS")),U,1) "RTN","ONCOAIP",17,0) I ABSTAT=3,CHECKSUM="" D "RTN","ONCOAIP",18,0) .S EDITS="NO" S D0=ONCOD0P D NAACCR^ONCGENED K EDITS "RTN","ONCOAIP",19,0) .S CHECKSUM=$$CRC32^ONCSNACR(.ONCDST) "RTN","ONCOAIP",20,0) .S $P(^ONCO(165.5,ONCOD0P,"EDITS"),U,1)=CHECKSUM "RTN","ONCOAIP",21,0) S DIE="^ONCO(165.5,",DA=ONCOD0P,DR="[ONCO ABSTRACT-I]",ONCOL1=0 "RTN","ONCOAIP",22,0) L +^ONCO(165.5,DA):0 I $T D ^DIE L -^ONCO(165.5,DA) S ONCOL1=1 "RTN","ONCOAIP",23,0) I 'ONCOL1 W !!,"This primary is being edited by another user" H 3 Q:'$D(ONCOEDIT) K ONCOL1 G ED "RTN","ONCOAIP",24,0) S ABSTAT=$P($G(^ONCO(165.5,ONCOD0P,7)),U,2) "RTN","ONCOAIP",25,0) I ABSTAT'=3 D "RTN","ONCOAIP",26,0) .S DIE="^ONCO(165.5," "RTN","ONCOAIP",27,0) .S DA=ONCOD0P "RTN","ONCOAIP",28,0) .S DR="197///@" "RTN","ONCOAIP",29,0) .D ^DIE "RTN","ONCOAIP",30,0) I ABSTAT=3 D CHANGE^ONCGENED I $G(Y)="@0" G EN "RTN","ONCOAIP",31,0) D FOL^ONCOAI "RTN","ONCOAIP",32,0) K ONCOL1,LYMPHOMA,RFDEF,TFDEF,DFDEF "RTN","ONCOAIP",33,0) I $D(ONCOOUT) Q "RTN","ONCOAIP",34,0) I $D(Y) Q:'$D(ONCOEDIT) G ED "RTN","ONCOAIP",35,0) Q "RTN","ONCOAIP",36,0) ; "RTN","ONCOAIP",37,0) PAIR ;LATERALITY (165.5,28) "RTN","ONCOAIP",38,0) D TOPNAM "RTN","ONCOAIP",39,0) S DATEDX=$P($G(^ONCO(165.5,D0,0)),U,16) "RTN","ONCOAIP",40,0) Q:TOP="" "RTN","ONCOAIP",41,0) I TOP=67342,$P(^ONCO(165.5,D0,2),U,8)="" S $P(^ONCO(165.5,D0,2),U,8)=1 Q "RTN","ONCOAIP",42,0) S PO=$P($G(^ONCO(164,TOP,0)),U,7) "RTN","ONCOAIP",43,0) I PO="",$P(^ONCO(165.5,D0,2),U,8)="" S $P(^ONCO(165.5,D0,2),U,8)=0 "RTN","ONCOAIP",44,0) I DATEDX<3040000,(TOP=67700)!(TOP=67710)!(TOP=67711)!(TOP=67712)!(TOP=67713)!(TOP=67714)!(TOP=67722)!(TOP=67723)!(TOP=67724)!(TOP=67725),$P(^ONCO(165.5,D0,2),U,8)="" S $P(^ONCO(165.5,D0,2),U,8)=0 "RTN","ONCOAIP",45,0) K PO "RTN","ONCOAIP",46,0) ; "RTN","ONCOAIP",47,0) ;Stuff TEXT-PRIMARY SITE TITLE (165.5,100) "RTN","ONCOAIP",48,0) S TEXT=$P($G(^ONCO(164,TOP,0)),U,1) "RTN","ONCOAIP",49,0) S:$P($G(^ONCO(165.5,D0,8)),U,1)="" $P(^ONCO(165.5,D0,8),U,1)=TEXT "RTN","ONCOAIP",50,0) K TEXT "RTN","ONCOAIP",51,0) Q "RTN","ONCOAIP",52,0) ; "RTN","ONCOAIP",53,0) HISTXT ;Stuff TEXT-HISTOLOGY TITLE (165.5,101) "RTN","ONCOAIP",54,0) S HSTI=$$HIST^ONCFUNC(D0,.HSTFLD,.HISTNAM) "RTN","ONCOAIP",55,0) S TEXT=HISTNAM "RTN","ONCOAIP",56,0) S:$P($G(^ONCO(165.5,D0,8)),U,2)="" $P(^ONCO(165.5,D0,8),U,2)=$E(TEXT,1,40) "RTN","ONCOAIP",57,0) K HSTI,TEXT "RTN","ONCOAIP",58,0) D:$P($G(^ONCO(165.5,D0,0)),U,16)>3031231 ^ONCCSSTF "RTN","ONCOAIP",59,0) Q "RTN","ONCOAIP",60,0) ; "RTN","ONCOAIP",61,0) MEN ;Primary Menu Options "RTN","ONCOAIP",62,0) K DXS,ONCOOUT,DASHES,PATNAM,SITEGP,SSN "RTN","ONCOAIP",63,0) S $P(DASHES,"-",80)="-" "RTN","ONCOAIP",64,0) S NODE0=^ONCO(165.5,D0,0) "RTN","ONCOAIP",65,0) S S=$P(NODE0,U,1),SITEGP=$P(^ONCO(164.2,S,0),U,1) "RTN","ONCOAIP",66,0) S Y=$P(NODE0,U,2),C=$P(^DD(165.5,.02,0),U,2) D Y^DIQ S PATNAM=Y "RTN","ONCOAIP",67,0) S SAVED0=D0 S D0=$P(NODE0,U,2) D SSN^ONCOES S SSN=X,D0=SAVED0 "RTN","ONCOAIP",68,0) S DATEDX=$P(NODE0,U,16) "RTN","ONCOAIP",69,0) D ^ONCPHC "RTN","ONCOAIP",70,0) S COC=$P(NODE0,U,4) "RTN","ONCOAIP",71,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCOAIP",72,0) I OSP="" S OSP=$O(^ONCO(160.1,0)) "RTN","ONCOAIP",73,0) S IIN=$P($G(^ONCO(160.1,OSP,1)),U,4) "RTN","ONCOAIP",74,0) S RH=$P($G(^ONCO(160.19,IIN,0)),U,2) "RTN","ONCOAIP",75,0) K OSP "RTN","ONCOAIP",76,0) D TOPNAM "RTN","ONCOAIP",77,0) W @IOF "RTN","ONCOAIP",78,0) W !,?1,PATNAM,?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCOAIP",79,0) W !,?25,"Primary Menu Options",!,DASHES "RTN","ONCOAIP",80,0) W !?22,"1. Patient Identification" "RTN","ONCOAIP",81,0) W !?22,"2. Cancer Identification" "RTN","ONCOAIP",82,0) W !?22,"3. Stage of Disease at Diagnosis" "RTN","ONCOAIP",83,0) W !?22," Collaborative Staging (2004+ cases)" "RTN","ONCOAIP",84,0) W !?22,"4. First Course of Treatment" "RTN","ONCOAIP",85,0) W !?22,"5. Patient Care Evaluation" "RTN","ONCOAIP",86,0) W !?22,"6. Over-ride Flags" "RTN","ONCOAIP",87,0) W !?22,"7. Case Administration" "RTN","ONCOAIP",88,0) W !!?22,"A All - Complete Abstract" "RTN","ONCOAIP",89,0) ; "RTN","ONCOAIP",90,0) A K ONCOANS,X,Y "RTN","ONCOAIP",91,0) R !!?25,"Enter option: All//",X:DTIME "RTN","ONCOAIP",92,0) S:X="" (ONCOANS,X)="A" "RTN","ONCOAIP",93,0) G:X["?" HP "RTN","ONCOAIP",94,0) I X=U!'$T S Y="",ONCOOUT=U Q "RTN","ONCOAIP",95,0) I (X="A")!(X="ALL")!(X="all")!(X="All") S ONCOANS="A",Y=1 G Y "RTN","ONCOAIP",96,0) S (ONCOANS,Y)=X I X<1!(X>7) W *7,"??" G A "RTN","ONCOAIP",97,0) ; "RTN","ONCOAIP",98,0) Y S Y="@"_Y "RTN","ONCOAIP",99,0) Q "RTN","ONCOAIP",100,0) ; "RTN","ONCOAIP",101,0) HP W !!,?10,"Select 'A' for the complete abstract" "RTN","ONCOAIP",102,0) W !?10,"Select 1-7 for the desired subsection",! "RTN","ONCOAIP",103,0) G A "RTN","ONCOAIP",104,0) ; "RTN","ONCOAIP",105,0) PAT ;Patient Identification "RTN","ONCOAIP",106,0) S SECTION="Patient Identification" D SECTION "RTN","ONCOAIP",107,0) K DXS,DIOT D PI^ONCPCI "RTN","ONCOAIP",108,0) Q "RTN","ONCOAIP",109,0) ; "RTN","ONCOAIP",110,0) CAN S SECTION="Cancer Identification" D SECTION "RTN","ONCOAIP",111,0) D PAIR "RTN","ONCOAIP",112,0) K DXS,DIOT S D0=ONCOD0P D CI^ONCPCI "RTN","ONCOAIP",113,0) Q "RTN","ONCOAIP",114,0) ; "RTN","ONCOAIP",115,0) EXT S SECTION="Stage of Disease at Diagnosis" D SECTION "RTN","ONCOAIP",116,0) S SY="@31" "RTN","ONCOAIP",117,0) S S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOAIP",118,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOAIP",119,0) S H=$$HIST^ONCFUNC(D0) "RTN","ONCOAIP",120,0) I (S=35)!($$LEUKEMIA^ONCOAIP2(D0))!((S>64)&(S<71)) D G PSD "RTN","ONCOAIP",121,0) .S N=$S($E(H,1,4)=9731:"999^10^9",1:"999^80^9") ;Plasmacytoma, NOS "RTN","ONCOAIP",122,0) .S N=$S(S=65:"999^99^9^99^99^9^9^9^9",1:N_"^99^99^9^9^9^7") ;Unk primary "RTN","ONCOAIP",123,0) .I (T=67422)&(L'=1)&(H'=91403) S $P(N,U,2)=99,$P(N,U,9)=9 ;Spleen "RTN","ONCOAIP",124,0) .S $P(^ONCO(165.5,D0,2),U,9,17)=N "RTN","ONCOAIP",125,0) .D NOSTAGE "RTN","ONCOAIP",126,0) .S SY="@313" ;Other Staging System (165.5,39) "RTN","ONCOAIP",127,0) .I S=65 W !?18,"====> UNKNOWN PRIMARY - No EOD/TNM coding <====" Q "RTN","ONCOAIP",128,0) .W !?18,"====> SYSTEMIC DISEASE - No EOD/TMN coding <====" "RTN","ONCOAIP",129,0) ; "RTN","ONCOAIP",130,0) PSD K DXS,DIOT S D0=ONCOD0P D ^ONCPSD K DXS "RTN","ONCOAIP",131,0) S Y=SY "RTN","ONCOAIP",132,0) Q "RTN","ONCOAIP",133,0) ; "RTN","ONCOAIP",134,0) NOSTAGE ;No staging "RTN","ONCOAIP",135,0) S $P(^ONCO(165.5,D0,2),U,25)=88 ;37.1 CT "RTN","ONCOAIP",136,0) S $P(^ONCO(165.5,D0,2),U,26)=88 ;37.2 CN "RTN","ONCOAIP",137,0) S $P(^ONCO(165.5,D0,2),U,27)=88 ;37.3 CM "RTN","ONCOAIP",138,0) S $P(^ONCO(165.5,D0,2),U,20)=88 ;38 C Stage Group "RTN","ONCOAIP",139,0) S $P(^ONCO(165.5,D0,3),U,32)=8 ;19 Staged By (C) "RTN","ONCOAIP",140,0) S $P(^ONCO(165.5,D0,7),U,17)="N" ;69.4 Multimodality Therapy (P) "RTN","ONCOAIP",141,0) S $P(^ONCO(165.5,D0,2.1),U,1)=88 ;85 PT "RTN","ONCOAIP",142,0) S $P(^ONCO(165.5,D0,2.1),U,2)=88 ;86 PN "RTN","ONCOAIP",143,0) S $P(^ONCO(165.5,D0,2.1),U,3)=88 ;87 PM "RTN","ONCOAIP",144,0) S $P(^ONCO(165.5,D0,2.1),U,4)=88 ;88 P Stage Group "RTN","ONCOAIP",145,0) S $P(^ONCO(165.5,D0,2.1),U,5)=8 ;89 Staged By (P) "RTN","ONCOAIP",146,0) S $P(^ONCO(165.5,D0,2),U,28)="NA" ;38.5 Stage Grouping-AJCC "RTN","ONCOAIP",147,0) S:$P($G(^ONCO(165.5,D0,7)),U,7)="" $P(^ONCO(165.5,D0,7),U,7)="0000000" "RTN","ONCOAIP",148,0) S:$P($G(^ONCO(165.5,D0,7)),U,14)="" $P(^ONCO(165.5,D0,7),U,14)="0000000" "RTN","ONCOAIP",149,0) Q "RTN","ONCOAIP",150,0) ; "RTN","ONCOAIP",151,0) FST S SECTION="First Course of Treatment" D SECTION "RTN","ONCOAIP",152,0) Q "RTN","ONCOAIP",153,0) ; "RTN","ONCOAIP",154,0) ORF S SECTION="Over-ride Flags" D SECTION "RTN","ONCOAIP",155,0) K DXS,DIOT D ^ONCORF "RTN","ONCOAIP",156,0) Q "RTN","ONCOAIP",157,0) ; "RTN","ONCOAIP",158,0) NTX ;DATE OF NO TREATMENT (165.5,124) "RTN","ONCOAIP",159,0) I '$D(NTDD) S Y="@425" Q "RTN","ONCOAIP",160,0) K NTDD "RTN","ONCOAIP",161,0) W !!?5,"You have entered a DATE OF NO TREATMENT. All treatment fields" "RTN","ONCOAIP",162,0) W !?5,"will be stuffed with the appropriate value indicating no" "RTN","ONCOAIP",163,0) W !?5,"treatment.",! "RTN","ONCOAIP",164,0) K DIR S DIR("A")="Are you sure you want to do this",DIR("B")="No" "RTN","ONCOAIP",165,0) S DIR(0)="Y" D ^DIR "RTN","ONCOAIP",166,0) I (Y=0)!(Y="") D S Y=124 W ! Q "RTN","ONCOAIP",167,0) .S TXDT=$P(^ONCO(165.5,D0,2.1),U,11)_"N" "RTN","ONCOAIP",168,0) .K ^ONCO(165.5,"ATX",D0,TXDT) "RTN","ONCOAIP",169,0) .S $P(^ONCO(165.5,D0,2.1),U,11)="" "RTN","ONCOAIP",170,0) I Y[U S $P(^ONCO(165.5,D0,2.1),U,11)="",Y="@0" Q "RTN","ONCOAIP",171,0) S NTX="" D NTX^ONCNTX K NTX "RTN","ONCOAIP",172,0) Q "RTN","ONCOAIP",173,0) ; "RTN","ONCOAIP",174,0) RS ;RADIATION/SURGERY SEQUENCE (165.5,51.3) "RTN","ONCOAIP",175,0) Q:$P($G(^ONCO(165.5,D0,3)),U,7)'="" "RTN","ONCOAIP",176,0) S S=$E($$GET1^DIQ(165.5,D0,58.6,"E"),1,2) "RTN","ONCOAIP",177,0) S SATF=$E($$GET1^DIQ(165.5,D0,58.7,"E"),1,2) "RTN","ONCOAIP",178,0) S SCP=$P($G(^ONCO(165.5,D0,3.1)),U,31) "RTN","ONCOAIP",179,0) S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,32) "RTN","ONCOAIP",180,0) S SOTH=$P($G(^ONCO(165.5,D0,3.1)),U,33) "RTN","ONCOAIP",181,0) S SOTHATF=$P($G(^ONCO(165.5,D0,3.1)),U,34) "RTN","ONCOAIP",182,0) S R=$$GET1^DIQ(165.5,D0,51.2,"I") "RTN","ONCOAIP",183,0) S RATF=$$GET1^DIQ(165.5,D0,51.4,"I") "RTN","ONCOAIP",184,0) I ((S="00")!(S=99)!(S=98)!(S=""))&((SATF="00")!(SATF=99)!(SATF=98)!(SATF=""))&((SCP=0)!(SCP="")!(SCP=9))&((SCPATF=0)!(SCPATF="")!(SCPATF=9))&((SOTH=0)!(SOTH=""))&((SOTHATF=0)!(SOTHATF="")) S SR=0 "RTN","ONCOAIP",185,0) E S SR=1 "RTN","ONCOAIP",186,0) I ((R=0)!(R=7)!(R=8)!(R=9)!(R=""))&((RATF=0)!(RATF=7)!(RATF=8)!(RATF=9)!(RATF="")) S R=0 "RTN","ONCOAIP",187,0) E S R=1 "RTN","ONCOAIP",188,0) I ($G(SR)&$G(R)) D K S,SATF,SCP,SCPATF,SOTH,SOTHATF,R,RATF,SR,SDT,SATFDT,SCPDT,SCPATFDT,SOTDT,SOTATFDT,RDT,RATFDT,RSSEQ,FSDT,FRDT "RTN","ONCOAIP",189,0) .S SDT=$P($G(^ONCO(165.5,D0,3)),U,1) "RTN","ONCOAIP",190,0) .S:SDT'="" RSSEQ("S",SDT)="S",RSSEQ(SDT)="S" "RTN","ONCOAIP",191,0) .S SATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,8) "RTN","ONCOAIP",192,0) .S:SATFDT'="" RSSEQ("S",SATFDT)="S",RSSEQ(SATFDT)="S" "RTN","ONCOAIP",193,0) .S SCPDT=$P($G(^ONCO(165.5,D0,3.1)),U,22) "RTN","ONCOAIP",194,0) .S:SCPDT'="" RSSEQ("S",SCPDT)="S",RSSEQ(SCPDT)="S" "RTN","ONCOAIP",195,0) .S SCPATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,23) "RTN","ONCOAIP",196,0) .S:SCPATFDT'="" RSSEQ("S",SCPATFDT)="S",RSSEQ(SCPATFDT)="S" "RTN","ONCOAIP",197,0) .S SOTDT=$P($G(^ONCO(165.5,D0,3.1)),U,24) "RTN","ONCOAIP",198,0) .S:SOTDT'="" RSSEQ("S",SOTDT)="S",RSSEQ(SOTDT)="S" "RTN","ONCOAIP",199,0) .S SOTATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,25) "RTN","ONCOAIP",200,0) .S:SOTATFDT'="" RSSEQ("S",SOTATFDT)="S",RSSEQ(SOTATFDT)="S" "RTN","ONCOAIP",201,0) .S RDT=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCOAIP",202,0) .S:RDT'="" RSSEQ("R",RDT)="R",RSSEQ(RDT)="R" "RTN","ONCOAIP",203,0) .S RATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,13) "RTN","ONCOAIP",204,0) .S:RATFDT'="" RSSEQ("R",RATFDT)="R",RSSEQ(RATFDT)="R" "RTN","ONCOAIP",205,0) .S FSDT=$O(RSSEQ("S",0)),FRDT=$O(RSSEQ("R",0)) "RTN","ONCOAIP",206,0) .I FSDT=FRDT Q "RTN","ONCOAIP",207,0) .S RSSEQ=$O(RSSEQ(0)) "RTN","ONCOAIP",208,0) .I RSSEQ(RSSEQ)="R" S $P(^ONCO(165.5,D0,3),U,7)=2 "RTN","ONCOAIP",209,0) .I RSSEQ(RSSEQ)="S" S $P(^ONCO(165.5,D0,3),U,7)=3 "RTN","ONCOAIP",210,0) E D "RTN","ONCOAIP",211,0) .S $P(^ONCO(165.5,D0,3),U,7)=0 "RTN","ONCOAIP",212,0) Q "RTN","ONCOAIP",213,0) ; "RTN","ONCOAIP",214,0) AB ;Abstract Status "RTN","ONCOAIP",215,0) S SECTION="Case Administration" D SECTION "RTN","ONCOAIP",216,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCOAIP",217,0) S DIC="^ONCO(165.5," "RTN","ONCOAIP",218,0) S DR="90:92;198;199;155;157.1" "RTN","ONCOAIP",219,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCOAIP",220,0) S X=ONC(165.5,D0,91) D UCASE^ONCPCI S ONC(165.5,D0,91)=X "RTN","ONCOAIP",221,0) S X=ONC(165.5,D0,157.1) D UCASE^ONCPCI S ONC(165.5,D0,157.1)=X "RTN","ONCOAIP",222,0) W !," Abstract Status.............: ",ONC(165.5,D0,91) "RTN","ONCOAIP",223,0) W !," Date of First Contact.......: ",ONC(165.5,D0,155) "RTN","ONCOAIP",224,0) W !," Date Case Completed.........: ",ONC(165.5,D0,90) "RTN","ONCOAIP",225,0) W !," Elapsed Months to Completion: ",ONC(165.5,D0,157.1) "RTN","ONCOAIP",226,0) W !," Abstracted by...............: ",ONC(165.5,D0,92) "RTN","ONCOAIP",227,0) W !," Date Case Last Changed......: ",ONC(165.5,D0,198) "RTN","ONCOAIP",228,0) W !," Case Last Changed by........: ",ONC(165.5,D0,199) "RTN","ONCOAIP",229,0) W !,DASHES "RTN","ONCOAIP",230,0) Q "RTN","ONCOAIP",231,0) ; "RTN","ONCOAIP",232,0) NAN ;NEW ACC # "RTN","ONCOAIP",233,0) K DIR S DIR(0)="N^:"_($E(DT,1,3)+1700),DIR("A")="YEAR of Accession Number: ",DIR("B")=($E(DT,1,3)+1700) W !! D ^DIR Q:(Y=U)!(Y="") "RTN","ONCOAIP",234,0) NA S YR=Y,MR=YR_"0001",XR=999999-((YR+1)_"0000"),NR=$O(^ONCO(165.5,"AF",XR)) "RTN","ONCOAIP",235,0) I NR<(990002-MR) W *7,!!?5,"SYSTEM appears out of numbers-looking for unassigned ones" G FND "RTN","ONCOAIP",236,0) I NR>(999999-MR) S NR="" "RTN","ONCOAIP",237,0) S AC=$S(NR="":YR_"0001",1:(1000000-NR)),SEQ="00" "RTN","ONCOAIP",238,0) Q "RTN","ONCOAIP",239,0) ; "RTN","ONCOAIP",240,0) FND ;SEARCH for unused #s "RTN","ONCOAIP",241,0) S NR=YR_"0000",MR=(YR+1)_"0000" "RTN","ONCOAIP",242,0) NR S NR=NR+1 I NR2951231:"00",1:0) "RTN","ONCOCC",16,0) S $P(^ONCO(165.5,D0,3.1),U,5)=$S(DTDX>2951231:"00",1:0) "RTN","ONCOCC",17,0) S $P(^ONCO(165.5,D0,3.1),U,29)=1 "RTN","ONCOCC",18,0) S $P(^ONCO(165.5,D0,3.1),U,30)=1 "RTN","ONCOCC",19,0) S $P(^ONCO(165.5,D0,3),U,34)=1 "RTN","ONCOCC",20,0) S $P(^ONCO(165.5,D0,3.1),U,28)=0 "RTN","ONCOCC",21,0) S $P(^ONCO(165.5,D0,3.1),U,39)=0 "RTN","ONCOCC",22,0) S $P(^ONCO(165.5,D0,0),U,10)=6 "RTN","ONCOCC",23,0) S $P(^ONCO(165.5,D0,3),U,26)=9 "RTN","ONCOCC",24,0) S $P(^ONCO(165.5,D0,3),U,28)=8 "RTN","ONCOCC",25,0) S TPG=$P($G(^ONCO(165.5,DA,2)),U,1) "RTN","ONCOCC",26,0) I ($E(TPG,3,4)=76)!(TPG=67809)!(TPG=67420)!(TPG=67421)!(TPG=67423)!(TPG=67424) S $P(^ONCO(165.5,DA,3),U,28)=9 "RTN","ONCOCC",27,0) S MO=$$HIST^ONCFUNC(DA) "RTN","ONCOCC",28,0) S HIST14=$E(MO,1,4) "RTN","ONCOCC",29,0) I (HIST14=9750)!((HIST14>9759)&(HIST14<9765))!((HIST14>9799)&(HIST14<9821))!(HIST14=9826)!((HIST14>9830)&(HIST14<9921))!((HIST14>9930)&(HIST14<9965))!((HIST14>9979)&(HIST14<9990)) S $P(^ONCO(165.5,DA,3),U,28)=9 "RTN","ONCOCC",30,0) I $$LYMPHOMA^ONCFUNC(DA),($E(TPG,3,4)=77) S $P(^ONCO(165.5,DA,3),U,28)=9 "RTN","ONCOCC",31,0) S $P(^ONCO(165.5,D0,3.1),U,31)=0 "RTN","ONCOCC",32,0) S $P(^ONCO(165.5,D0,3.1),U,32)=0 "RTN","ONCOCC",33,0) I ($E(TPG,1,4)=6770)!($E(TPG,1,4)=6771)!($E(TPG,1,4)=6772)!($E(TPG,1,4)=6776)!(($$LYMPHOMA^ONCFUNC(DA)=1)&($E(TPG,1,4)=6777))!($E(TPG,1,4)=6776)!(TPG=67809)!(TPG=67420)!(TPG=67421)!(TPG=67423)!(TPG=67424)!((MO'<97310)&(MO'>99899)) D "RTN","ONCOCC",34,0) .S $P(^ONCO(165.5,D0,3.1),U,31)=9 "RTN","ONCOCC",35,0) .S $P(^ONCO(165.5,D0,3.1),U,32)=9 "RTN","ONCOCC",36,0) S $P(^ONCO(165.5,D0,3.1),U,33)=0 "RTN","ONCOCC",37,0) S $P(^ONCO(165.5,D0,3.1),U,34)=0 "RTN","ONCOCC",38,0) S $P(^ONCO(165.5,D0,3),U,33)=$S(DTDX>2971231:1,1:9) "RTN","ONCOCC",39,0) F P=6,10,25 S $P(^ONCO(165.5,D0,3),U,P)=0 "RTN","ONCOCC",40,0) F P=12,20 S $P(^ONCO(165.5,D0,3.1),U,P)=0 "RTN","ONCOCC",41,0) S $P(^ONCO(165.5,DA,"THY1"),U,43)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",42,0) S $P(^ONCO(165.5,DA,3),U,13)="00" "RTN","ONCOCC",43,0) S $P(^ONCO(165.5,DA,3.1),U,14)="00" "RTN","ONCOCC",44,0) S $P(^ONCO(165.5,DA,3),U,16)="00" "RTN","ONCOCC",45,0) S $P(^ONCO(165.5,DA,3.1),U,16)="00" "RTN","ONCOCC",46,0) S $P(^ONCO(165.5,DA,3),U,19)="00" "RTN","ONCOCC",47,0) S $P(^ONCO(165.5,DA,3.1),U,18)="00" "RTN","ONCOCC",48,0) S $P(^ONCO(165.5,DA,3.1),U,36)=1 "RTN","ONCOCC",49,0) S $P(^ONCO(165.5,DA,3),U,20)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",50,0) S $P(^ONCO(165.5,DA,3),U,21)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",51,0) S $P(^ONCO(165.5,DA,3),U,22)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",52,0) S $P(^ONCO(165.5,DA,3),U,29)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",53,0) S $P(^ONCO(165.5,DA,3),U,39)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",54,0) S $P(^ONCO(165.5,DA,3.1),U,3)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",55,0) S $P(^ONCO(165.5,DA,3.1),U,1)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",56,0) S $P(^ONCO(165.5,DA,"THY1"),U,36)="0000000" "RTN","ONCOCC",57,0) S $P(^ONCO(165.5,DA,"BLA2"),U,16)="0000000" "RTN","ONCOCC",58,0) S $P(^ONCO(165.5,DA,"BLA2"),U,18)=1 "RTN","ONCOCC",59,0) S $P(^ONCO(165.5,DA,3),U,5)="" "RTN","ONCOCC",60,0) F PP=1,4,11,14,17,23,31 S $P(^ONCO(165.5,DA,3),U,PP)="0000000" "RTN","ONCOCC",61,0) F PP=6,8,13:2:19,21:1:25,35,38 S $P(^ONCO(165.5,DA,3.1),U,PP)="0000000" "RTN","ONCOCC",62,0) K ^ONCO(165.5,"ATX",DA) "RTN","ONCOCC",63,0) S ^ONCO(165.5,"ATX",DA,"0000000S1")="" "RTN","ONCOCC",64,0) S ^ONCO(165.5,"ATX",DA,"0000000S2")="" "RTN","ONCOCC",65,0) S ^ONCO(165.5,"ATX",DA,"0000000S3")="" "RTN","ONCOCC",66,0) S ^ONCO(165.5,"ATX",DA,"0000000R")="" "RTN","ONCOCC",67,0) S ^ONCO(165.5,"ATX",DA,"0000000C")="" "RTN","ONCOCC",68,0) S ^ONCO(165.5,"ATX",DA,"0000000H")="" "RTN","ONCOCC",69,0) S ^ONCO(165.5,"ATX",DA,"0000000B")="" "RTN","ONCOCC",70,0) S ^ONCO(165.5,"ATX",DA,"0000000E")="" "RTN","ONCOCC",71,0) S ^ONCO(165.5,"ATX",DA,"0000000O")="" "RTN","ONCOCC",72,0) Q "RTN","ONCOCC",73,0) ; "RTN","ONCOCC",74,0) COC8 ;CLASS OF CASE (165.5,.04) value 8 (Death cert) used by central "RTN","ONCOCC",75,0) ;registries only "RTN","ONCOCC",76,0) Q "RTN","ONCOCC",77,0) ; "RTN","ONCOCC",78,0) SCT I $D(^ONCO(165.5,D0,4)) S SCTIEN=0 F S SCTIEN=$O(^ONCO(165.5,D0,4,SCTIEN)) Q:SCTIEN'>0 D "RTN","ONCOCC",79,0) .S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,4)="00" "RTN","ONCOCC",80,0) .I COC=5 D "RTN","ONCOCC",81,0) ..F P=11,12,13,14,15,16,17 S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,P)="0000000" "RTN","ONCOCC",82,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,5)=0 "RTN","ONCOCC",83,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,6)="00" "RTN","ONCOCC",84,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,7)="00" "RTN","ONCOCC",85,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,9)=0 "RTN","ONCOCC",86,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,10)=0 "RTN","ONCOCC",87,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,3),U,19)=0 "RTN","ONCOCC",88,0) K BRM,FLD,P,REC,RFNR,RFNC,RFNHT,RR "RTN","ONCOCC",89,0) K SA,SC,SM,SO,SPS,SCTIEN,SGRP,TPG "RTN","ONCOCC",90,0) Q "RTN","ONCOCC",91,0) ; "RTN","ONCOCC",92,0) SATFDFR ;SURGERY OF PRIMARY @FAC (R) (165.5,50.2) default "RTN","ONCOCC",93,0) N SPS S SPS=$P($G(^ONCO(165.5,D0,3)),U,38) "RTN","ONCOCC",94,0) D SGROUP I TPG="" Q "RTN","ONCOCC",95,0) I (SPS="00")!(SPS=1)!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S Y="@427" Q "RTN","ONCOCC",96,0) S SPSDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",97,0) .S SPSDF=$P($G(^ONCO(164,SGRP,"SPS",SPS,0)),U,1) "RTN","ONCOCC",98,0) .S DTDX=$P($G(^ONCO(165.5,D0,0)),U,16) S:DTDX<2980000 SPSDF="" "RTN","ONCOCC",99,0) Q "RTN","ONCOCC",100,0) ; "RTN","ONCOCC",101,0) SATFDEF ;SURGERY OF PRIMARY @FAC (F) (165.5,58.7) default "RTN","ONCOCC",102,0) N SPS S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29) "RTN","ONCOCC",103,0) I SPS="" Q "RTN","ONCOCC",104,0) D SGROUP I TPG="" Q "RTN","ONCOCC",105,0) I (SPS="00")!(SPS=1)!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S Y="@43" Q "RTN","ONCOCC",106,0) S (SPSDF,SPSDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",107,0) .S SPSDF=$P($G(^ONCO(164,SGRP,"SPS",SPS,0)),U,1) "RTN","ONCOCC",108,0) .S SPSDTDF=$$GET1^DIQ(165.5,D0,50,"E") "RTN","ONCOCC",109,0) .S DTDX=$P($G(^ONCO(165.5,D0,0)),U,16) S:DTDX<2980000 (SPSDF,SPSDTDF)="" "RTN","ONCOCC",110,0) Q "RTN","ONCOCC",111,0) ; "RTN","ONCOCC",112,0) RATFDEF ;RADIATION @FACILITY (165.5,51.4) default "RTN","ONCOCC",113,0) S RD=$P($G(^ONCO(165.5,D0,3)),U,6) "RTN","ONCOCC",114,0) S RADDF="",RADDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",115,0) .I RD'="" D "RTN","ONCOCC",116,0) ..S XX=$F(^DD(165.5,51.2,0),RD_":") "RTN","ONCOCC",117,0) ..S YY=$F(^DD(165.5,51.2,0),";",XX) "RTN","ONCOCC",118,0) ..S RADDF=$E(^DD(165.5,51.2,0),XX,YY-2) "RTN","ONCOCC",119,0) .S RADDTDF=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCOCC",120,0) Q "RTN","ONCOCC",121,0) ; "RTN","ONCOCC",122,0) CATFDEF ;CHEMOTHERAPY @FAC (165.5,53.3) default "RTN","ONCOCC",123,0) S CH=$P($G(^ONCO(165.5,D0,3)),U,13) "RTN","ONCOCC",124,0) S CHEMDF="",CHMDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",125,0) .I CH'="" D "RTN","ONCOCC",126,0) ..S XX=$F(^DD(165.5,53.2,0),CH_":") "RTN","ONCOCC",127,0) ..S YY=$F(^DD(165.5,53.2,0),";",XX) "RTN","ONCOCC",128,0) ..S CHEMDF=$E(^DD(165.5,53.2,0),XX,YY-2) "RTN","ONCOCC",129,0) .S CHMDTDF=$P($G(^ONCO(165.5,D0,3)),U,11) "RTN","ONCOCC",130,0) Q "RTN","ONCOCC",131,0) ; "RTN","ONCOCC",132,0) HATFDEF ;HORMONE THERAPY @FAC (165.5,54.3) default "RTN","ONCOCC",133,0) S HT=$P($G(^ONCO(165.5,D0,3)),U,16) "RTN","ONCOCC",134,0) S HTDF="",HTDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",135,0) .I HT'="" D "RTN","ONCOCC",136,0) ..S XX=$F(^DD(165.5,54.2,0),HT_":") "RTN","ONCOCC",137,0) ..S YY=$F(^DD(165.5,54.2,0),";",XX) "RTN","ONCOCC",138,0) ..S HTDF=$E(^DD(165.5,54.2,0),XX,YY-2) "RTN","ONCOCC",139,0) .S HTDTDF=$P($G(^ONCO(165.5,D0,3)),U,14) "RTN","ONCOCC",140,0) Q "RTN","ONCOCC",141,0) ; "RTN","ONCOCC",142,0) IATFDEF ;IMMUNOTHERAPY @FAC (165.5,55.3) default "RTN","ONCOCC",143,0) S IMM=$P($G(^ONCO(165.5,D0,3)),U,19) "RTN","ONCOCC",144,0) S IMMDF="",IMMDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",145,0) .I IMM'="" D "RTN","ONCOCC",146,0) ..S XX=$F(^DD(165.5,55.2,0),IMM_":") "RTN","ONCOCC",147,0) ..S YY=$F(^DD(165.5,55.2,0),";",XX) "RTN","ONCOCC",148,0) ..S IMMDF=$E(^DD(165.5,55.2,0),XX,YY-2) "RTN","ONCOCC",149,0) .S IMMDTDF=$P($G(^ONCO(165.5,D0,3)),U,17) "RTN","ONCOCC",150,0) Q "RTN","ONCOCC",151,0) ; "RTN","ONCOCC",152,0) OATFDEF ;OTHER TREATMENT @FAC (165.5,57.3) default "RTN","ONCOCC",153,0) S OTH=$P($G(^ONCO(165.5,D0,3)),U,25) "RTN","ONCOCC",154,0) S OTHDF="",OTHDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",155,0) .I OTH'="" D "RTN","ONCOCC",156,0) ..S XX=$F(^DD(165.5,57.2,0),OTH_":") "RTN","ONCOCC",157,0) ..S YY=$F(^DD(165.5,57.2,0),";",XX) "RTN","ONCOCC",158,0) ..S OTHDF=$E(^DD(165.5,57.2,0),XX,YY-2) "RTN","ONCOCC",159,0) .S OTHDTDF=$P($G(^ONCO(165.5,D0,3)),U,23) "RTN","ONCOCC",160,0) Q "RTN","ONCOCC",161,0) ; "RTN","ONCOCC",162,0) PATFDEF ;PALLIATIVE PROCEDURE @FAC (165.5,13) default "RTN","ONCOCC",163,0) S PP=$P($G(^ONCO(165.5,D0,3.1)),U,26) "RTN","ONCOCC",164,0) S PPDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",165,0) .I PP'="" D "RTN","ONCOCC",166,0) ..S XX=$F(^DD(165.5,12,0),PP_":") "RTN","ONCOCC",167,0) ..S YY=$F(^DD(165.5,12,0),";",XX) "RTN","ONCOCC",168,0) ..S PPDF=$E(^DD(165.5,12,0),XX,YY-2) "RTN","ONCOCC",169,0) Q "RTN","ONCOCC",170,0) ; "RTN","ONCOCC",171,0) SCOPER ;SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) default "RTN","ONCOCC",172,0) N SCOPE S SCOPE=$P($G(^ONCO(165.5,D0,3)),U,40) I SCOPE="" Q "RTN","ONCOCC",173,0) D SGROUP I TPG="" Q "RTN","ONCOCC",174,0) S SCPDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",175,0) .S SCPDF=$P($G(^ONCO(164,SGRP,"SC5",SCOPE,0)),U,1) "RTN","ONCOCC",176,0) Q "RTN","ONCOCC",177,0) ; "RTN","ONCOCC",178,0) SCOPE ;SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) default "RTN","ONCOCC",179,0) ;SCOPE OF LN SURGERY @FAC DATE (165.5,138.3) default "RTN","ONCOCC",180,0) N SCOPE S SCOPE=$P($G(^ONCO(165.5,D0,3.1)),U,31) I SCOPE="" Q "RTN","ONCOCC",181,0) S (SCPDF,SCPDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",182,0) .I SCOPE'="" D "RTN","ONCOCC",183,0) ..S XX=$F(^DD(165.5,138.5,0),SCOPE_":") "RTN","ONCOCC",184,0) ..S YY=$F(^DD(165.5,138.5,0),";",XX) "RTN","ONCOCC",185,0) ..S SCPDF=$E(^DD(165.5,138.5,0),XX,YY-2) "RTN","ONCOCC",186,0) .S SCPDTDF=$P($G(^ONCO(165.5,D0,3.1)),U,22) "RTN","ONCOCC",187,0) Q "RTN","ONCOCC",188,0) ; "RTN","ONCOCC",189,0) NUMN ;NUMBER OF LN REMOVED @FAC (R) (165.5,140.1) default "RTN","ONCOCC",190,0) N NODES S NODES=$P($G(^ONCO(165.5,D0,3)),U,42) "RTN","ONCOCC",191,0) S NUMDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",192,0) .S NUMDF=NODES "RTN","ONCOCC",193,0) .I NUMDF="00" S NUMDF=NUMDF_" No nodes removed" "RTN","ONCOCC",194,0) .I NUMDF="90" S NUMDF=NUMDF_" 90 or more nodes removed" "RTN","ONCOCC",195,0) .I NUMDF="95" S NUMDF=NUMDF_" No nodes removed, aspiration performed" "RTN","ONCOCC",196,0) .I NUMDF="96" S NUMDF=NUMDF_" Node removal as a sampling, number unknown" "RTN","ONCOCC",197,0) .I NUMDF="97" S NUMDF=NUMDF_" Node removal as dissection, number unknown" "RTN","ONCOCC",198,0) .I NUMDF="98" S NUMDF=NUMDF_" Nodes surgically removed, number unknown" "RTN","ONCOCC",199,0) .I NUMDF="99" S NUMDF=NUMDF_" Unknown, not stated, death cert ONLY" "RTN","ONCOCC",200,0) Q "RTN","ONCOCC",201,0) ; "RTN","ONCOCC",202,0) SOSNR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) default "RTN","ONCOCC",203,0) N SOSN S SOSN=$P($G(^ONCO(165.5,D0,3)),U,41) I SOSN="" Q "RTN","ONCOCC",204,0) D SGROUP I TPG="" Q "RTN","ONCOCC",205,0) S SOSNDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",206,0) .S SOSNDF=$P($G(^ONCO(164,SGRP,"SO5",SOSN,0)),U,1) "RTN","ONCOCC",207,0) Q "RTN","ONCOCC",208,0) ; "RTN","ONCOCC",209,0) SOSN ;SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) default "RTN","ONCOCC",210,0) N SOSN S SOSN=$P($G(^ONCO(165.5,D0,3.1)),U,33) I SOSN="" Q "RTN","ONCOCC",211,0) S (SOSNDF,SOSNDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",212,0) .I SOSN'="" D "RTN","ONCOCC",213,0) ..S XX=$F(^DD(165.5,139.5,0),SOSN_":") "RTN","ONCOCC",214,0) ..S YY=$F(^DD(165.5,139.5,0),";",XX) "RTN","ONCOCC",215,0) ..S SOSNDF=$E(^DD(165.5,139.5,0),XX,YY-2) "RTN","ONCOCC",216,0) .S SOSNDTDF=$P($G(^ONCO(165.5,D0,3.1)),U,24) "RTN","ONCOCC",217,0) Q "RTN","ONCOCC",218,0) ; "RTN","ONCOCC",219,0) SGROUP S TPG=$P($G(^ONCO(165.5,D0,2)),U,1) I TPG="" Q "RTN","ONCOCC",220,0) S SGRP=$P($G(^ONCO(164,TPG,0)),U,16) "RTN","ONCOCC",221,0) Q "RTN","ONCOCFR") 0^21^B27939122 "RTN","ONCOCFR",1,0) ONCOCFR ;Hines OIFO/GWB - RADIOLOGY CASEFINDING; 7/21/93 "RTN","ONCOCFR",2,0) ;;2.11;ONCOLOGY;**13,24,25,26,27,34,37,39,46,50**;Mar 07, 1995;Build 29 "RTN","ONCOCFR",3,0) ; "RTN","ONCOCFR",4,0) ST ;Start RAD/NUC MED PATIENT (70) file search "RTN","ONCOCFR",5,0) W @IOF "RTN","ONCOCFR",6,0) W !!!?10,"******** RADIOLOGY: SUSPICIOUS MALIGNANCY SEARCH ********",!! "RTN","ONCOCFR",7,0) W ?10,"This option searches the RAD/NUC MED PATIENT file and will",! "RTN","ONCOCFR",8,0) W ?10,"add to your 'suspense list' in the ONCOLOGY PATIENT file.",! "RTN","ONCOCFR",9,0) MG S MG=0,D0=0 F S D0=$O(^RA(78.3,"B",D0)) Q:D0="" S XX=$TR(D0,"malig","MALIG") I XX["MALIG" S MG=$O(^(D0,0)) Q "RTN","ONCOCFR",10,0) G T:MG W !!?15,"MALIGNACY diagnostic code is not defined in the" "RTN","ONCOCFR",11,0) W !?15,"Radiology Diagnostic Codes File (#78.3). Please" "RTN","ONCOCFR",12,0) W !?15,"REQUEST Radiology to code suspicious MALIGNANCIES" "RTN","ONCOCFR",13,0) W !!!?10,"MUST terminate Radiology Search - no meaningful search code" G EX "RTN","ONCOCFR",14,0) ; "RTN","ONCOCFR",15,0) T ;Start Date/End Date "RTN","ONCOCFR",16,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCOCFR",17,0) K DIR "RTN","ONCOCFR",18,0) S Y=$P(^ONCO(160.1,OSP,0),U,6) "RTN","ONCOCFR",19,0) I Y="" S Y=DT "RTN","ONCOCFR",20,0) S Y=$E(Y,4,5)_"-"_$E(Y,6,7)_"-"_($E(Y,1,3)+1700) "RTN","ONCOCFR",21,0) S DIR("B")=Y "RTN","ONCOCFR",22,0) W ! "RTN","ONCOCFR",23,0) S DIR("A")=" Start Date",DIR(0)="D" D ^DIR "RTN","ONCOCFR",24,0) G EX:Y<1!(Y[U) "RTN","ONCOCFR",25,0) S (SD,X)=Y D DD^%DT W " ",Y S WSD=Y "RTN","ONCOCFR",26,0) K DIR "RTN","ONCOCFR",27,0) S DIR("A")=" End Date",DIR(0)="D" D ^DIR "RTN","ONCOCFR",28,0) G EX:Y=""!(Y[U) "RTN","ONCOCFR",29,0) I YDT) W *7,?40,"Invalid date sequence!!",! G T "RTN","ONCOCFR",30,0) S $P(^ONCO(160.1,OSP,0),U,6)=Y "RTN","ONCOCFR",31,0) S (ED,X)=Y D DD^%DT W " ",Y,! "RTN","ONCOCFR",32,0) S WED=Y "RTN","ONCOCFR",33,0) S DIR("A")=" Dates OK",DIR("B")="Y",DIR(0)="Y" D ^DIR "RTN","ONCOCFR",34,0) G T:'Y,EX:Y[U!(Y="") "RTN","ONCOCFR",35,0) W !!?15,"We will find suspicious malignancies" "RTN","ONCOCFR",36,0) W !?15,"From: ",WSD_" To: "_WED,! "RTN","ONCOCFR",37,0) W ! S ONCO("SD")=SD,ONCO("ED")=ED,ONCO("MG")=MG "RTN","ONCOCFR",38,0) ; "RTN","ONCOCFR",39,0) TSK ;Create task "RTN","ONCOCFR",40,0) K IO("Q") S %ZIS="Q" D ^%ZIS I POP S ONCOUT="" G EX "RTN","ONCOCFR",41,0) I '$D(IO("Q")) D SER^ONCOCFR G EX "RTN","ONCOCFR",42,0) S ZTRTN="SER^ONCOCFR",ZTSAVE("ONCO*")="",ZTDESC="ONCOLOGY RADIOLOGY SEARCH" D ^%ZTLOAD G EX "RTN","ONCOCFR",43,0) ; "RTN","ONCOCFR",44,0) SER ;Search RAD/NUC MED PATIENT (70) file/Set multidivisional variables "RTN","ONCOCFR",45,0) S AFFDIV=$G(DUZ(2)),ONCDIVSP=$O(^ONCO(160.1,"C",AFFDIV,"")) "RTN","ONCOCFR",46,0) I ONCDIVSP="" W !!,"User does not have an associated DIVISION!",!! G EX "RTN","ONCOCFR",47,0) F Z=0:0 S Z=$O(^ONCO(160.1,ONCDIVSP,6,Z)) Q:Z'>0 S AFFDIV=AFFDIV_U_$G(^ONCO(160.1,ONCDIVSP,6,Z,0)) "RTN","ONCOCFR",48,0) K ^TMP("ONCO",$J) S (XSD,XDT)=ONCO("SD")-.1111111,XED=ONCO("ED")+.9999999,MG=ONCO("MG") F J=0,1,2 S ^TMP("ONCO",$J,J)=0 "RTN","ONCOCFR",49,0) F S XDT=$O(^RADPT("AR",XDT)) Q:XDT=""!(XDT>XED) S D0=0 F S D0=$O(^RADPT("AR",XDT,D0)) Q:D0'>0 S D1=$O(^RADPT("AR",XDT,D0,0)) D "RTN","ONCOCFR",50,0) .S D2=0 F S D2=$O(^RADPT(D0,"DT",D1,"P",D2)) Q:D2'>0 D "RTN","ONCOCFR",51,0) ..S RA0=$G(^(D2,0)) I RA0="" Q "RTN","ONCOCFR",52,0) ..S PC13=$P(RA0,U,13) I PC13="" Q "RTN","ONCOCFR",53,0) ..S EXP=$$GET1^DIQ(78.3,PC13,6),EXP=$TR(EXP,"malig","MALIG"),EXP=$TR(EXP,"Suspicious","SUSPICIOUS") "RTN","ONCOCFR",54,0) ..S MG=$P($G(^RA(78.3,PC13,0)),U,1),MG=$TR(MG,"malig","MALIG") "RTN","ONCOCFR",55,0) ..I (MG["MALIG")!(EXP["MALIG")!(EXP["SUSPICIOUS") S RA($P(^RADPT(D0,0),U))=$P(XDT,".")_U_$P(RA0,U,2)_U_D1 "RTN","ONCOCFR",56,0) ..S D3=0 F S D3=$O(^RADPT(D0,"DT",D1,"P",D2,"DX",D3)) Q:D3'>0 D "RTN","ONCOCFR",57,0) ...S RASDC0=$G(^(D3,0)) I RASDC0="" Q "RTN","ONCOCFR",58,0) ...S PC1=$P(RASDC0,U,1) I PC1="" Q "RTN","ONCOCFR",59,0) ...S EXP=$$GET1^DIQ(78.3,PC1,6),EXP=$TR(EXP,"malig","MALIG"),EXP=$TR(EXP,"Suspicious","SUSPICIOUS") "RTN","ONCOCFR",60,0) ...S MG=$P($G(^RA(78.3,PC1,0)),U,1),MG=$TR(MG,"malig","MALIG") "RTN","ONCOCFR",61,0) ...I (MG["MALIG")!(EXP["MALIG")!(EXP["SUSPICIOUS") S RA($P(^RADPT(D0,0),U))=$P(XDT,".")_U_$P(RA0,U,2)_U_D1 "RTN","ONCOCFR",62,0) ; "RTN","ONCOCFR",63,0) CK ;Check ONCOLOGY PATIENT (160) file "RTN","ONCOCFR",64,0) GT S XX=0 F S XX=$O(RA(XX)) Q:XX="" D "RTN","ONCOCFR",65,0) .D DIV Q:DVMTCH=0 "RTN","ONCOCFR",66,0) .S ^TMP("ONCO",$J,0)=^TMP("ONCO",$J,0)+1 "RTN","ONCOCFR",67,0) .S HT=0,X=XX_";DPT(" "RTN","ONCOCFR",68,0) .S XDT=$P(RA(XX),U),XD0=$O(^ONCO(160,"B",X,0)),ONCIEN=XD0 "RTN","ONCOCFR",69,0) .I XD0="" D MR Q "RTN","ONCOCFR",70,0) .I XD0'="" S ONCDIVS="",ONCS="" F S ONCS=$O(^ONCO(160,XD0,"SUS","C",ONCS)) Q:ONCS'>0 S ONCDIVS=ONCDIVS_U_ONCS "RTN","ONCOCFR",71,0) .I ONCDIVS'[DUZ(2) D "RTN","ONCOCFR",72,0) ..S (D0,DA)=XD0 I '$D(^ONCO(165.5,"C",XD0)) D N2 Q "RTN","ONCOCFR",73,0) ..I $D(^ONCO(165.5,"C",XD0)) D CKP I 'HT D N2 Q "RTN","ONCOCFR",74,0) .Q "RTN","ONCOCFR",75,0) ; "RTN","ONCOCFR",76,0) RPT ; Generate report "RTN","ONCOCFR",77,0) I $G(^TMP("ONCO",$J,2))=0 S DIC="^ONCO(160.1,",BY="[ONCO NEG-REPORT]" "RTN","ONCOCFR",78,0) E D "RTN","ONCOCFR",79,0) .S DIC="^ONCO(160," "RTN","ONCOCFR",80,0) .S BY="@75,INTERNAL(#3),75,.01" "RTN","ONCOCFR",81,0) .S FR=DUZ(2)_","_ONCO("SD"),TO=DUZ(2)_","_ONCO("ED") "RTN","ONCOCFR",82,0) .S FLDS="[ONCO RAD-CASEFINDING RPT]" "RTN","ONCOCFR",83,0) .Q "RTN","ONCOCFR",84,0) ; "RTN","ONCOCFR",85,0) PRT ; Call print routine "RTN","ONCOCFR",86,0) S L=0,IOP=ION,DIOEND="D WP^ONCOCFR" "RTN","ONCOCFR",87,0) D EN1^DIP G EX "RTN","ONCOCFR",88,0) ; "RTN","ONCOCFR",89,0) WP ; Wrap-up report "RTN","ONCOCFR",90,0) W !!!?30,"RADIOLOGY CASEFINDING RESULTS" "RTN","ONCOCFR",91,0) W !!?30,^TMP("ONCO",$J,0)_" Cases found",!?30,^TMP("ONCO",$J,1)_" New Patients added",!?30,^TMP("ONCO",$J,2)_" New cases added",!! "RTN","ONCOCFR",92,0) Q "RTN","ONCOCFR",93,0) ; "RTN","ONCOCFR",94,0) CKP ;CHECK Primary File "RTN","ONCOCFR",95,0) S XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $$DIV^ONCFUNC(XD1)=DUZ(2) D "RTN","ONCOCFR",96,0) .S XDX=$P($G(^ONCO(165.5,XD1,0)),U,16) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",97,0) .S XDX=$P($G(^ONCO(165.5,XD1,1)),U,10) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",98,0) .Q "RTN","ONCOCFR",99,0) Q "RTN","ONCOCFR",100,0) ; "RTN","ONCOCFR",101,0) MR ;Create new ONCOLOGY PATIENT (160) record "RTN","ONCOCFR",102,0) S DIC="^ONCO(160,",DIC(0)="Z" D FILE^DICN S (ONCIEN,D0,DA)=+Y,^TMP("ONCO",$J,1)=^TMP("ONCO",$J,1)+1 "RTN","ONCOCFR",103,0) N2 ;Create new SUSPENSE (160,75) record "RTN","ONCOCFR",104,0) K DD,DO "RTN","ONCOCFR",105,0) S DA(1)=ONCIEN,DIC="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",106,0) S DIC(0)="L",DIC("P")=$P(^DD(160,75,0),U,2),X=XDT "RTN","ONCOCFR",107,0) D FILE^DICN "RTN","ONCOCFR",108,0) K DIE S DA(1)=ONCIEN,DIE="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",109,0) S (ONCSUB,DA)=+Y,RDP=$P(RA(XX),U,2) "RTN","ONCOCFR",110,0) S DR="1///^S X=DT;2///^S X=""RA"";3////^S X=DUZ(2);6////^S X=RDP" D ^DIE "RTN","ONCOCFR",111,0) S ^TMP("ONCO",$J,2)=^TMP("ONCO",$J,2)+1 "RTN","ONCOCFR",112,0) Q "RTN","ONCOCFR",113,0) ; "RTN","ONCOCFR",114,0) DIV ;Division match "RTN","ONCOCFR",115,0) S DVMTCH=1,INST="",RE1=$P(RA(XX),U,3) I RE1="" Q "RTN","ONCOCFR",116,0) S INST=$P($G(^RADPT(XX,"DT",RE1,0)),U,3) I INST="" Q "RTN","ONCOCFR",117,0) I AFFDIV'[INST S DVMTCH=0 Q "RTN","ONCOCFR",118,0) Q "RTN","ONCOCFR",119,0) ; "RTN","ONCOCFR",120,0) EX ;EXIT "RTN","ONCOCFR",121,0) K %ZIS,AFFDIV,BY,D0,D1,D2,D3,DA,DIC,DIOEND,DR,DVMTCH,ED,EXP,FLDS,FR,HT "RTN","ONCOCFR",122,0) K INST,IOP,J,L,MG,ONCDIVS,ONCDIVSP,ONCIEN,ONCO,ONCOUT,ONCS,ONCSUB,OSP "RTN","ONCOCFR",123,0) K PC1,PC13,POP,RA,RA0,RASDC0,RDP,RE1,SD,TO,WED,WSD,X,XD0,XD1,XDT,XDX "RTN","ONCOCFR",124,0) K XED,XSD,XX,Y,Z,ZTDESC,ZTRTN,ZTSAVE,ONCDIVSP "RTN","ONCOCFR",125,0) K ^TMP("ONCO",$J) "RTN","ONCOCFR",126,0) D ^%ZISC "RTN","ONCOCFR",127,0) Q "RTN","ONCOCOC") 0^1^B6349998 "RTN","ONCOCOC",1,0) ONCOCOC ;Hines OIFO/GWB - COMPUTED FIELDS FOR CASEFINDING REPORTS ;05/25/00 "RTN","ONCOCOC",2,0) ;;2.11;ONCOLOGY;**13,16,24,26,33,43,50**;Mar 07, 1995;Build 29 "RTN","ONCOCOC",3,0) ; "RTN","ONCOCOC",4,0) LAB ;LAB CASEFINDING REPORT (160,53) "RTN","ONCOCOC",5,0) N X "RTN","ONCOCOC",6,0) D GET G EX:O2="" "RTN","ONCOCOC",7,0) S SR=$P(O2,U,3) G EX:$E(SR,1)'="L" "RTN","ONCOCOC",8,0) S SR=$E(SR,2),LRSS=$S(SR="S":"SP",SR="C":"CY",SR="E":"EM",1:"AU") "RTN","ONCOCOC",9,0) S XDT=$P(O2,U,1),MO=$P(O2,U,5),TO=$P(O2,U,6),DZ=$P(O2,U,14) "RTN","ONCOCOC",10,0) S TO=$S(TO="":"None",1:"T-"_$P(^LAB(61,+TO,0),U,2)_" "_$P(^LAB(61,+TO,0),U,1)) "RTN","ONCOCOC",11,0) S MODZ="None" "RTN","ONCOCOC",12,0) I MO S MODZ=$G(^LAB(61.1,+MO,0)),MODZ=$E($P(MODZ,U,2),1,4)_"/"_$E($P(MODZ,U,2),5)_" "_$P(MODZ,U,1) "RTN","ONCOCOC",13,0) I DZ S MODZ=$G(^LAB(61.4,+DZ,0)),MODZ=$P(MODZ,U,2)_" "_$P(MODZ,U,1) "RTN","ONCOCOC",14,0) D DT "RTN","ONCOCOC",15,0) W $E(XNM,1,20),?22,$E(XSN,1,6),?29,XDT,?44,LRSS "RTN","ONCOCOC",16,0) I $D(^ONCO(165.5,"C",D0)) D DLC^ONCOCRF,DATEOT^ONCOES W ?54,X "RTN","ONCOCOC",17,0) W ! "RTN","ONCOCOC",18,0) W "Topography:",?12,TO,! "RTN","ONCOCOC",19,0) W:MO "Morphology:",?13,MODZ "RTN","ONCOCOC",20,0) W:DZ "Disease:",?15,MODZ "RTN","ONCOCOC",21,0) D SDD^ONCOCOM "RTN","ONCOCOC",22,0) W !,"-------------------------------------------------------------------------------" "RTN","ONCOCOC",23,0) W ! G EX "RTN","ONCOCOC",24,0) ; "RTN","ONCOCOC",25,0) PTF ;PTF CASEFINDING REPORT (160,54) "RTN","ONCOCOC",26,0) D GET G EX:O2="" "RTN","ONCOCOC",27,0) S SR=$P(O2,U,3) G EX:$E(SR,1)'="P" "RTN","ONCOCOC",28,0) S IC=$$ICDDX^ICDCODE(+$P(O2,U,9)) G EX:+IC=-1 "RTN","ONCOCOC",29,0) S XDT=+$P(O2,U,8) "RTN","ONCOCOC",30,0) D DT "RTN","ONCOCOC",31,0) S XDD=XDT,XDT=$P(O2,U,1) "RTN","ONCOCOC",32,0) D DT "RTN","ONCOCOC",33,0) W $E(XNM,1,20),?22,XSN,?29,XDT_" - "_XDD,! "RTN","ONCOCOC",34,0) W "Diagnosis:",?11,$P(IC,U,2),?19,$P(IC,U,4),!! "RTN","ONCOCOC",35,0) G LST "RTN","ONCOCOC",36,0) ; "RTN","ONCOCOC",37,0) RAD ;RADIOLOGY CASEFINDING REPORT (160,58) "RTN","ONCOCOC",38,0) D GET G EX:O2="" "RTN","ONCOCOC",39,0) S SR=$P(O2,U,3) G EX:$E(SR,1)'="R" "RTN","ONCOCOC",40,0) S XDT=$P(O2,U,1),RAD=$P($G(^RAMIS(71,+$P(O2,U,7),0)),U) G EX:RAD="" "RTN","ONCOCOC",41,0) D DT "RTN","ONCOCOC",42,0) ;B "L" "RTN","ONCOCOC",43,0) W $E(XNM,1,29),?31,XSN,?38,XDT,?50,$E(RAD,1,30) "RTN","ONCOCOC",44,0) G LST "RTN","ONCOCOC",45,0) ; "RTN","ONCOCOC",46,0) GET ;Set variables "RTN","ONCOCOC",47,0) S XD0=$G(^ONCO(160,D0,0)),GLO="" I XD0="" Q "RTN","ONCOCOC",48,0) S LRDFN=$P(XD0,U,2) "RTN","ONCOCOC",49,0) S VPR=$P(XD0,U) "RTN","ONCOCOC",50,0) S GLO=U_$P(VPR,";",2)_$P(VPR,";"),GL0=GLO_",0)" "RTN","ONCOCOC",51,0) S XPI=$G(@GL0),XNM=$P(XPI,U),SN=$P(XPI,U,9),XSN=$E(XNM,1)_$E(SN,6,9) "RTN","ONCOCOC",52,0) S O2="" I $D(^ONCO(160,D0,"SUS","C",DUZ(2))) D K SUSIEN "RTN","ONCOCOC",53,0) .S SUSIEN=$O(^ONCO(160,D0,"SUS","C",DUZ(2),0)) "RTN","ONCOCOC",54,0) .S O2=^ONCO(160,D0,"SUS",SUSIEN,0) "RTN","ONCOCOC",55,0) Q "RTN","ONCOCOC",56,0) ; "RTN","ONCOCOC",57,0) DT ;Format date "RTN","ONCOCOC",58,0) S XDT=$E(XDT,4,5)_"/"_$E(XDT,6,7)_"/"_($E(XDT,1,3)+1700) "RTN","ONCOCOC",59,0) Q "RTN","ONCOCOC",60,0) ; "RTN","ONCOCOC",61,0) LST ;Display DATE LAST CONTACT (160,16) and primary list "RTN","ONCOCOC",62,0) G EX:'$D(^ONCO(165.5,"C",D0)) "RTN","ONCOCOC",63,0) D DLC^ONCOCRF,DATEOT^ONCOES "RTN","ONCOCOC",64,0) W !!?25,"Last Contact: ",X "RTN","ONCOCOC",65,0) D SDD^ONCOCOM "RTN","ONCOCOC",66,0) W ! G EX "RTN","ONCOCOC",67,0) ; "RTN","ONCOCOC",68,0) EX ;Exit "RTN","ONCOCOC",69,0) S X="" "RTN","ONCOCOC",70,0) K DZ,GL0,GLO,IC,LRDFN,LRSS,MO,MODZ,O2,RAD,SN,SR,TO,VPR,XDT,XD0,XDD,XMO "RTN","ONCOCOC",71,0) K XM1,XNM,XPI,XSN "RTN","ONCOCOC",72,0) Q "RTN","ONCOCON") 0^16^B14349172 "RTN","ONCOCON",1,0) ONCOCON ;Hines OIFO/GWB - VADPT CALLS ;5/22/00 "RTN","ONCOCON",2,0) ;;2.11;ONCOLOGY;**11,16,26,50**;Mar 07, 1995;Build 29 "RTN","ONCOCON",3,0) ; "RTN","ONCOCON",4,0) NOK ;NEXT OF KIN "RTN","ONCOCON",5,0) S XD0=D0 D VP G EX:OP="" N I,X D OAD^VADPT G EX:VAERR S ST=$S(VAOA(5)="":"",1:$P(^DIC(5,$P(VAOA(5),U),0),U,2)),CSZ=VAOA(4) I CSZ'="" S CSZ=CSZ_", " "RTN","ONCOCON",6,0) S CSZ=CSZ_ST_" "_VAOA(6),SP="?25" S:'$D(NOK) NOK="NOK" D WT G EX "RTN","ONCOCON",7,0) ; "RTN","ONCOCON",8,0) NOK1 ;NEXT OF KIN-1 "RTN","ONCOCON",9,0) S NOK="NOK1" G NOK "RTN","ONCOCON",10,0) ; "RTN","ONCOCON",11,0) NOK2 ;NEXT OF KIN-2 #.2191 "RTN","ONCOCON",12,0) S VAOA("A")=3,NOK="NOK2" G NOK "RTN","ONCOCON",13,0) CON ;Retrieve Contacts (NOK1 and NOK@) "RTN","ONCOCON",14,0) S XD0=D0 D VP G EX:OP="" N I,X D OAD^VADPT F I=1:1:10 S ONCO(I)=VAOA(I) "RTN","ONCOCON",15,0) K VAOA S VAOA("A")=3 D OAD^VADPT F I=1:1:10 S ONCO(I+10)=VAOA(I) "RTN","ONCOCON",16,0) G EX "RTN","ONCOCON",17,0) ; "RTN","ONCOCON",18,0) WT W !,@SP,NOK,": ",@SP,VAOA(10) "RTN","ONCOCON",19,0) 2 ;W !?25,VAOA(10) "RTN","ONCOCON",20,0) 3 W !,@SP,$P(VAOA(9),",",2)_" "_$P(VAOA(9),",") "RTN","ONCOCON",21,0) 4 W !,@SP,VAOA(1) "RTN","ONCOCON",22,0) 5 W:VAOA(2)'="" !,@SP,VAOA(2) "RTN","ONCOCON",23,0) 6 W:VAOA(3)'="" !,@SP,VAOA(3) "RTN","ONCOCON",24,0) W:CSZ'="" !,@SP,CSZ "RTN","ONCOCON",25,0) Q "RTN","ONCOCON",26,0) ; "RTN","ONCOCON",27,0) REL2 ;NOK2 "RTN","ONCOCON",28,0) S VAOA("A")=3 G REL "RTN","ONCOCON",29,0) REL ;NOK relationship and Name "RTN","ONCOCON",30,0) S XD0=D0 D VP G EX:OP="" N I D OAD^VADPT G EX:VAERR S X=$S(VAOA(9)="":"",1:VAOA(10)_": "_$P(VAOA(9),",",2)_" "_$P(VAOA(9),",",1)_" * "_VAOA(1)) K ONCOD0 G EX:X="" I VAOA(2)'="" S X=X_" "_VAOA(2) "RTN","ONCOCON",31,0) S:VAOA(3)'="" X=X_" "_VAOA(3) S X=X_" "_VAOA(4)_", "_$P(VAOA(5),U,2)_" "_VAOA(6) G EX "RTN","ONCOCON",32,0) ; "RTN","ONCOCON",33,0) ADM ;Admission date/Discharge date "RTN","ONCOCON",34,0) ;FOR NON-DHCP (EAST-ORANGE) "RTN","ONCOCON",35,0) S (ONCOAD,ONCODD)="" I $G(^DG(43,1,"VERSION"))<4.6 Q ;FOR NON-DHCP EAST-ORANGE "RTN","ONCOCON",36,0) S XX=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") Q:XX="" S XD0=$P(XX,U,2) D VP Q:OP="" S XD=$P(XX,U,16),VAIP("D")=$S(XD="":"L",1:XD) "RTN","ONCOCON",37,0) A5 I $G(^DG(43,1,"VERSION"))>4.8 N I,X D IN5 G:VAIP(1)'="" SV G:XD="" EX G NO "RTN","ONCOCON",38,0) A4 G:XD="" EX S VAINDT=XD N I,X D INP G:VAIN(1)="" NO G SV "RTN","ONCOCON",39,0) ; "RTN","ONCOCON",40,0) SV S ONCOAD=AD,ONCODD=XD "RTN","ONCOCON",41,0) WE W !!?15,"Admit: ",AD_" Discharge: "_XD,! G EX "RTN","ONCOCON",42,0) NO D DD W !,"No admission for ",XD G EX "RTN","ONCOCON",43,0) ; "RTN","ONCOCON",44,0) INP ;MAS VERSIONS less than 5.0 "RTN","ONCOCON",45,0) N I,X D INP^VADPT Q:VAIN(1)="" S XD=$P($P(VAIN(7),U),".") D DD S AD=XD,XD=$S($D(^DPT(DFN,"DA",VAIN(1),1)):$P(^(1),U),1:"") D DD Q "RTN","ONCOCON",46,0) ; "RTN","ONCOCON",47,0) LST ;LST ADMISSION "RTN","ONCOCON",48,0) S XD0=D0 D VP G:OP="" EX "RTN","ONCOCON",49,0) S VAIP("D")="L" D IN5 Q "RTN","ONCOCON",50,0) ; "RTN","ONCOCON",51,0) SAD ;COMPUTED EXPRESSION for SUSPENSE ADMIT DATE (160,33.1) "RTN","ONCOCON",52,0) D SUS "RTN","ONCOCON",53,0) S X=$S($D(XAD):XAD,1:"") "RTN","ONCOCON",54,0) G EX "RTN","ONCOCON",55,0) ; "RTN","ONCOCON",56,0) SDD ;COMPUTED EXPRESSION for SUSPENSE DISCHARGE DATE (160,33.2) "RTN","ONCOCON",57,0) D SUS "RTN","ONCOCON",58,0) S X=$S($D(XDD):XDD,1:"") "RTN","ONCOCON",59,0) G EX "RTN","ONCOCON",60,0) ; "RTN","ONCOCON",61,0) SUS ;SUSPENSE EPISODE CARE "RTN","ONCOCON",62,0) S XD0=D0,SD="" "RTN","ONCOCON",63,0) S SDIEN=$O(^ONCO(160,XD0,"SUS","C",DUZ(2),"")) "RTN","ONCOCON",64,0) I SDIEN'="" S SD=$P($G(^ONCO(160,XD0,"SUS",SDIEN,0)),"^",1) "RTN","ONCOCON",65,0) Q:SD="" D VP Q:OP="" "RTN","ONCOCON",66,0) S VAIP("D")=SD D IN5 "RTN","ONCOCON",67,0) Q "RTN","ONCOCON",68,0) ; "RTN","ONCOCON",69,0) VP ;Resolve NAME (160,.01) variable pointer "RTN","ONCOCON",70,0) S OP=$S($D(^ONCO(160,XD0,0)):$P(^(0),U),1:"") "RTN","ONCOCON",71,0) S DFN=$P(OP,";",1) "RTN","ONCOCON",72,0) S OF=$P(OP,";",2) "RTN","ONCOCON",73,0) S OP=$S(OF="LRT(67,":"",1:OP) "RTN","ONCOCON",74,0) Q "RTN","ONCOCON",75,0) ; "RTN","ONCOCON",76,0) IN5 ;Call to IN5^VADPT "RTN","ONCOCON",77,0) N I,X "RTN","ONCOCON",78,0) D IN5^VADPT Q:VAIP(1)="" "RTN","ONCOCON",79,0) S (XAD,XD)=$P(VAIP(13,1),".") D DD S XAD=XD "RTN","ONCOCON",80,0) S AD=XD,(XDD,XD)=$P(VAIP(17,1),".") D DD S XDD=XD "RTN","ONCOCON",81,0) Q "RTN","ONCOCON",82,0) ; "RTN","ONCOCON",83,0) DD ;Format date as mm/dd/yy "RTN","ONCOCON",84,0) S XD=$S(XD="":XD,1:$E(XD,4,5)_"/"_$E(XD,6,7)_"/"_$E(XD,2,3)) "RTN","ONCOCON",85,0) Q "RTN","ONCOCON",86,0) ; "RTN","ONCOCON",87,0) SEC ;SUSPENSE EPISODE CARE "RTN","ONCOCON",88,0) D SUS S X="" G:SD="" EX I '$D(AD) S XD=SD G NO "RTN","ONCOCON",89,0) S XD=$S($D(XD):XD,1:"") G WE "RTN","ONCOCON",90,0) LAD ;LAST ADMIT DATE "RTN","ONCOCON",91,0) D LST S X=$S($D(AD):AD,1:"") "RTN","ONCOCON",92,0) I X'="" S X=($E(X,7,10)-1700)_$E(X,1,2)_$E(X,4,5) "RTN","ONCOCON",93,0) G EX "RTN","ONCOCON",94,0) LDD ;LAST DISCHARGE DATE "RTN","ONCOCON",95,0) D LST S X=$S($D(XD):XD,1:"") "RTN","ONCOCON",96,0) I X'="" S X=($E(X,7,10)-1700)_$E(X,1,2)_$E(X,4,5) "RTN","ONCOCON",97,0) G EX "RTN","ONCOCON",98,0) LEC ;LAST EPISODE of CARE "RTN","ONCOCON",99,0) D LST S X="" I '$D(AD) W !?15,"No admission data" G EX "RTN","ONCOCON",100,0) I $D(XD) G:XD'="" WE "RTN","ONCOCON",101,0) W !?15,"Admission: "_AD_" active" G EX "RTN","ONCOCON",102,0) NOKEO ;Print Next of Kin - ONCOX2 East Orange "RTN","ONCOCON",103,0) I $D(^ONCO(160,D0,0)) S RCDT=^(0) I $P(RCDT,";",2)["DPT",$D(^DPT($P(RCDT,";",1),.21)) W $P(^(.21),U)_" ("_$P(^(.21),U,2)_")" "RTN","ONCOCON",104,0) ; "RTN","ONCOCON",105,0) EX ;Exit "RTN","ONCOCON",106,0) K AD,CSZ,DFN,NOK,OF,ONCO,ONCOAD,ONCODD,OP,RCDT,SD,SDIEN,SP,ST,VAERR "RTN","ONCOCON",107,0) K VAIN,VAIP,VAINDT,VAOA,XAD,XD,XDD,XX,XD0 "RTN","ONCOCON",108,0) Q "RTN","ONCODIS") 0^15^B778212 "RTN","ONCODIS",1,0) ONCODIS ;Hines OIFO/GWB - OncoTrax Banner ;05/25/00 "RTN","ONCODIS",2,0) ;;2.11;Oncology;**6,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCODIS",3,0) ; "RTN","ONCODIS",4,0) MAIN ;OncoTrax Banner "RTN","ONCODIS",5,0) S RC=$$CHKVER^ONCSAPIV() "RTN","ONCODIS",6,0) D LOGO "RTN","ONCODIS",7,0) K I,RC "RTN","ONCODIS",8,0) Q "RTN","ONCODIS",9,0) ; "RTN","ONCODIS",10,0) LOGO ;Display banner "RTN","ONCODIS",11,0) W @IOF W !!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) "RTN","ONCODIS",12,0) W !!,?22,"Department of Veterans Affairs" "RTN","ONCODIS",13,0) W !?22,"OncoTraX V2.11 P50" Q "RTN","ONCODIS",14,0) DISP ; "RTN","ONCODIS",15,0) ;;VVVV VVAA "RTN","ONCODIS",16,0) ;; VVVV VVAAAA "RTN","ONCODIS",17,0) ;; VVVV VVAAAAAA "RTN","ONCODIS",18,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",19,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",20,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",21,0) ;; VVVVVVAA AAAA "RTN","ONCODIS",22,0) ;; VVVVAA AAAAAAAAAAA "RTN","ONCODIS",23,0) ;; VVAA AAAAAAAAAAA "RTN","ONCODSR") 0^51^B78005890 "RTN","ONCODSR",1,0) ONCODSR ;Hines OIFO/GWB - SURGERY OF PRIMARY SITE; 12/22/00 "RTN","ONCODSR",2,0) ;;2.11;ONCOLOGY;**1,5,6,7,11,13,15,16,18,27,36,37,42,46,47,48,50**;Mar 07, 1995;Build 29 "RTN","ONCODSR",3,0) ; "RTN","ONCODSR",4,0) ;^ONCO(164.2,9,"S",1-10) hold SURGICAL DX/STAGING PROC codes 0-9 "RTN","ONCODSR",5,0) ;^ONCO(164.2,SITE/GP,"S",11-100) holds surgery coes 10-99 "RTN","ONCODSR",6,0) ; "RTN","ONCODSR",7,0) CDSIT ;SURGERY OF PRIMARY SITE (165.5,58.2) INPUT TRANSFORM "RTN","ONCODSR",8,0) N T,TOPGRPHY,SS "RTN","ONCODSR",9,0) K:$L(X)>2!(X'?1.N) X G EX:'$D(X) "RTN","ONCODSR",10,0) I X="00" W " 00 No surgical procedure" G EX "RTN","ONCODSR",11,0) S TOPGRPHY=$$TOPGRPHY(D0) G ER:TOPGRPHY="" "RTN","ONCODSR",12,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",13,0) I '$D(^ONCO(164.5,SS,1,X+1,0)) K X G EX "RTN","ONCODSR",14,0) I ($P(^ONCO(165.5,D0,0),U,16)>2951231),$E(X,2)=8 K X G EX "RTN","ONCODSR",15,0) W " ",^ONCO(164.5,SS,1,X+1,0) G EX "RTN","ONCODSR",16,0) ; "RTN","ONCODSR",17,0) NCDSIT ;SURGICAL DX/STAGING PROC (165.5,58.1) INPUT TRANSFORM "RTN","ONCODSR",18,0) I '$D(^ONCO(160.14,"B",X)) K X G EX "RTN","ONCODSR",19,0) I $L(X)'=2 K X G EX "RTN","ONCODSR",20,0) S NCDSIEN=$O(^ONCO(160.14,"B",X,0)) "RTN","ONCODSR",21,0) W " ",$P(^ONCO(160.14,NCDSIEN,0),U,2) "RTN","ONCODSR",22,0) K NCDSIEN Q "RTN","ONCODSR",23,0) ; "RTN","ONCODSR",24,0) NCDSOT ;SURGICAL DX/STAGING PROC (165.5,58.1) OUTPUT TRANSFORM "RTN","ONCODSR",25,0) Q:Y="" "RTN","ONCODSR",26,0) S NCDSIEN=$O(^ONCO(160.14,"B",Y,0)) "RTN","ONCODSR",27,0) I NCDSIEN'="" S Y=Y_" "_$P(^ONCO(160.14,NCDSIEN,0),U,2) "RTN","ONCODSR",28,0) G EX "RTN","ONCODSR",29,0) ; "RTN","ONCODSR",30,0) HP0 ;SURGICAL DX/STAGING PROC (165.5,58.1) HELP "RTN","ONCODSR",31,0) F XX="00","01","02","03","04","05","06","07","09" S NCDSIEN=$O(^ONCO(160.14,"B",XX,0)) W !," ",$P(^ONCO(160.14,NCDSIEN,0),U,1)," ",$P(^ONCO(160.14,NCDSIEN,0),U,2) "RTN","ONCODSR",32,0) W ! "RTN","ONCODSR",33,0) K NCDSIEN G EX "RTN","ONCODSR",34,0) ; "RTN","ONCODSR",35,0) CDSOT ;SURGERY OF PRIMARY SITE (165.5,58.2) OUTPUT TRANSFORM "RTN","ONCODSR",36,0) I Y="00" S Y="00 No surgical procedure" G EX "RTN","ONCODSR",37,0) N TOPGRPHY,SS "RTN","ONCODSR",38,0) S TOPGRPHY=$$TOPGRPHY(D0) G EX:TOPGRPHY="" "RTN","ONCODSR",39,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",40,0) S Y=Y_" "_$G(^ONCO(164.5,SS,1,Y+1,0)) G EX "RTN","ONCODSR",41,0) ; "RTN","ONCODSR",42,0) HP1 ;SURGERY OF PRIMARY SITE (165.5,58.2) HELP "RTN","ONCODSR",43,0) N TOPGRPHY,TPGRPHYR,SS,XX "RTN","ONCODSR",44,0) S TOPGRPHY=$$TOPGRPHY(D0) G:TOPGRPHY="" ER "RTN","ONCODSR",45,0) S TPGRPHYR=^ONCO(164,TOPGRPHY,0) "RTN","ONCODSR",46,0) S SS=$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",47,0) W !?5,"SURGERY OF PRIMARY SITE Codes for site ",$P(TPGRPHYR,U,2)," " "RTN","ONCODSR",48,0) W $P(TPGRPHYR,U),!?5,"(",$P(^ONCO(164.5,SS,0),U),")",!! "RTN","ONCODSR",49,0) W " ","00 No surgical procedure",! "RTN","ONCODSR",50,0) S XX=10 F S XX=$O(^ONCO(164.5,SS,1,XX)) Q:XX'=+XX D "RTN","ONCODSR",51,0) .S XXX=XX-1 "RTN","ONCODSR",52,0) .I ($P(^ONCO(165.5,D0,0),U,16)<2960000)!($E(XXX,2)'=8) W " ",(XX-1)_" "_^ONCO(164.5,SS,1,XX,0),! "RTN","ONCODSR",53,0) G EX "RTN","ONCODSR",54,0) ; "RTN","ONCODSR",55,0) ER ;ERROR "RTN","ONCODSR",56,0) W !!,?10,"ICDO CODE NOT defined!! - cannot continue",! G EX "RTN","ONCODSR",57,0) ; "RTN","ONCODSR",58,0) EX ;EXIT "RTN","ONCODSR",59,0) K AN,SS,ONCOSR "RTN","ONCODSR",60,0) Q "RTN","ONCODSR",61,0) ; "RTN","ONCODSR",62,0) TOPGRPHY(PRIMIX) ; returns ICDO-2 topography code for primary site PRIMIX "RTN","ONCODSR",63,0) Q $P($G(^ONCO(165.5,PRIMIX,2)),U) "RTN","ONCODSR",64,0) ; "RTN","ONCODSR",65,0) ESSPIT ;INPUT TRANSFORM FOR EXTRANODAL SITE SURGICAL PROCEDURE #856 "RTN","ONCODSR",66,0) N T,TOPGRPHY,SS "RTN","ONCODSR",67,0) K:$L(X)>2!(X'?1.N) X G EX:'$D(X) "RTN","ONCODSR",68,0) I X="00" W " No additional surgical procedure" G EX "RTN","ONCODSR",69,0) S TOPGRPHY=$P($G(^ONCO(165.5,D0,"NHL2")),U,10) G ER:TOPGRPHY="" "RTN","ONCODSR",70,0) I TOPGRPHY="C888"!(TOPGRPHY="C999") K X G EX "RTN","ONCODSR",71,0) S TOPGRPHY="67"_$E(TOPGRPHY,2,4) "RTN","ONCODSR",72,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",73,0) I '$D(^ONCO(164.5,SS,1,X+1,0)) K X G EX "RTN","ONCODSR",74,0) I ($P(^ONCO(165.5,D0,0),U,16)>2951231),$E(X,2)=8 K X G EX "RTN","ONCODSR",75,0) W " ",^ONCO(164.5,SS,1,X+1,0) G EX "RTN","ONCODSR",76,0) ; "RTN","ONCODSR",77,0) ESSPOT ;OUTPUT TRANSFORM FOR EXTRANODAL SITE SURGICAL PROCEDURE #856 "RTN","ONCODSR",78,0) I Y="00" S Y=Y_" No additional surgical procedure" G EX "RTN","ONCODSR",79,0) N TOPGRPHY,SS "RTN","ONCODSR",80,0) S TOPGRPHY=$P($G(^ONCO(165.5,D0,"NHL2")),U,10) G EX:TOPGRPHY="" "RTN","ONCODSR",81,0) I TOPGRPHY="C888"!(TOPGRPHY="C999") G EX "RTN","ONCODSR",82,0) S TOPGRPHY="67"_$E(TOPGRPHY,2,4) "RTN","ONCODSR",83,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",84,0) S Y=Y_" "_$G(^ONCO(164.5,SS,1,Y+1,0)) G EX "RTN","ONCODSR",85,0) ; "RTN","ONCODSR",86,0) ESSHP ;EXECUTABLE HELP FOR EXTRANODAL SITE SURGICAL PROCEDURE #856 "RTN","ONCODSR",87,0) N TOPGRPHY,TPGRPHYR,SS,XX "RTN","ONCODSR",88,0) S TOPGRPHY=$P($G(^ONCO(165.5,D0,"NHL2")),U,10) G ER:TOPGRPHY="" "RTN","ONCODSR",89,0) I TOPGRPHY="C888"!(TOPGRPHY="C999") W !,?5,"No extranodal site or unknown extranodal site!!",!!,?5,"00 No additional surgical procedure",! G EX "RTN","ONCODSR",90,0) S TOPGRPHY="67"_$E(TOPGRPHY,2,4) "RTN","ONCODSR",91,0) S TPGRPHYR=^ONCO(164,TOPGRPHY,0) "RTN","ONCODSR",92,0) S SS=$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",93,0) W !!,"SURGERY OF PRIMARY SITE Codes for site ",$P(TPGRPHYR,U,2)," " "RTN","ONCODSR",94,0) W $P(TPGRPHYR,U),!,"(",$P(^ONCO(164.5,SS,0),U),")",!! "RTN","ONCODSR",95,0) W " ","00 No additional surgical procedure",! "RTN","ONCODSR",96,0) S XX=10 F S XX=$O(^ONCO(164.5,SS,1,XX)) Q:XX'=+XX D "RTN","ONCODSR",97,0) .S XXX=XX-1 "RTN","ONCODSR",98,0) .I ($P(^ONCO(165.5,D0,0),U,16)<2960000)!($E(XXX,2)'=8) W " ",(XX-1)_" "_^ONCO(164.5,SS,1,XX,0),! "RTN","ONCODSR",99,0) W !,"Enter a code from the above list." G EX "RTN","ONCODSR",100,0) Q "RTN","ONCODSR",101,0) ; "RTN","ONCODSR",102,0) FADIT ;DATE OF FIRST CONTACT (165.5,155) Input Transform "RTN","ONCODSR",103,0) D NINES Q:'$D(X) Q:X=9999999 "RTN","ONCODSR",104,0) I $D(X) S %DT="EP",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) "RTN","ONCODSR",105,0) Q "RTN","ONCODSR",106,0) ; "RTN","ONCODSR",107,0) DSDTIT ;DATE OF INPATIENT DISCHARGE (165.5,1.1) Input Transform "RTN","ONCODSR",108,0) ;Must be >= DATE OF INPATIENT ADMISSION (165.5,1) "RTN","ONCODSR",109,0) D ZS9S Q:'$D(X) Q:(X="0000000")!(X=9999999) "RTN","ONCODSR",110,0) I $D(X) S %DT="EP",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X I $D(X) S FAD=$P($G(^ONCO(165.5,D0,0)),U,8) I FAD'="" K:XSDT K X W !!?3,"DATE FIRST SURGICAL PROCEDURE later than MOST DEFINITIVE SURG DATE",! K %DT(0),SDT Q "RTN","ONCODSR",117,0) I $D(X) S SDT=$P($G(^ONCO(165.5,D0,3.1)),U,8) I SDT'="",SDT'="0000000",SDT'="9999999" I X>SDT K X W !!,"DATE FIRST SURGICAL PROCEDURE later than MOST DEFINITIVE SURG @FAC DATE",! K %DT(0),SDT Q "RTN","ONCODSR",118,0) I $D(X) S SDT=$P($G(^ONCO(165.5,D0,3.1)),U,22) I SDT'="",SDT'="0000000",SDT'="9999999" I X>SDT K X W !!,"DATE FIRST SURGICAL PROCEDURE later than SCOPE OF LN SURGERY DATE",! K %DT(0),SDT Q "RTN","ONCODSR",119,0) I $D(X) S SDT=$P($G(^ONCO(165.5,D0,3.1)),U,23) I SDT'="",SDT'="0000000",SDT'="9999999" I X>SDT K X W !!,"DATE FIRST SURGICAL PROCEDURE later than SCOPE OF LN SURGERY @FAC DATE",! K %DT(0),SDT Q "RTN","ONCODSR",120,0) I $D(X) S SDT=$P($G(^ONCO(165.5,D0,3.1)),U,24) I SDT'="",SDT'="0000000",SDT'="9999999" I X>SDT K X W !!,"DATE FIRST SURGICAL PROCEDURE later than SURG PROC/OTHER SITE DATE",! "RTN","ONCODSR",121,0) I $D(X) S SDT=$P($G(^ONCO(165.5,D0,3.1)),U,25) I SDT'="",SDT'="0000000",SDT'="9999999" I X>SDT K X W !!,"DATE FIRST SURGICAL PROCEDURE later than SURG PROC/OTHER SITE @FAC DATE",! "RTN","ONCODSR",122,0) K %DT(0),SDT "RTN","ONCODSR",123,0) Q "RTN","ONCODSR",124,0) ; "RTN","ONCODSR",125,0) DFIT ;INPUT TRANSFORM for date fields "RTN","ONCODSR",126,0) ;No future dates and date must be > or = DATE DX (165.5,3) "RTN","ONCODSR",127,0) I $G(DIFLD)=124 S NTDD="" "RTN","ONCODSR",128,0) D ZS9S Q:ZS9S=1 "RTN","ONCODSR",129,0) S %DT="EP",%DT(0)="-NOW" D ^%DT "RTN","ONCODSR",130,0) S X=Y I Y<1 K X W !!?5,"Future dates are not allowed.",! K %DT(0) Q "RTN","ONCODSR",131,0) S X=X,DTDX=$P($G(^ONCO(165.5,D0,0)),U,16),FAIL="" "RTN","ONCODSR",132,0) I X= DATE DX) "RTN","ONCODSR",155,0) S NTDD="" "RTN","ONCODSR",156,0) I (X="00/00/00")!(X="00/00/0000")!(X="00000000") K X Q "RTN","ONCODSR",157,0) I (X="99/99/99")!(X="99/99/9999")!(X="99999999") K X Q "RTN","ONCODSR",158,0) S %DT="EP",%DT(0)="-NOW" D ^%DT S X=Y I Y<1 K X W !!?5,"Future dates are not allowed.",! K %DT(0) Q "RTN","ONCODSR",159,0) S DTDX=$P($G(^ONCO(165.5,D0,0)),U,16) I DTDX'="" I XDBE X Q:'$D(X) "RTN","ONCODSR",171,0) I DTDX'="" K:X0 S X=$P(^DPT(PT,.01,ALIAS,0),U,1) "RTN","ONCOES",87,0) G EXIT "RTN","ONCOES",88,0) ; "RTN","ONCOES",89,0) SSN ;'COMPUTED-FIELD' EXPRESSION' for SSN (160,2) "RTN","ONCOES",90,0) S X="",PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",91,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.09,"E") "RTN","ONCOES",92,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.09,"E") "RTN","ONCOES",93,0) I X?9N S X=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9) "RTN","ONCOES",94,0) G EXIT "RTN","ONCOES",95,0) ; "RTN","ONCOES",96,0) DOB ;'COMPUTED-FIELD' EXPRESSION for DOB (160,3) "RTN","ONCOES",97,0) S X="",PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",98,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.03,"I") "RTN","ONCOES",99,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.03,"I") "RTN","ONCOES",100,0) D DATEOT "RTN","ONCOES",101,0) G EXIT "RTN","ONCOES",102,0) ; "RTN","ONCOES",103,0) DOB1 ;DOB (160,3) in internal FileMan format "RTN","ONCOES",104,0) S X="",PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",105,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.03,"I") "RTN","ONCOES",106,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.03,"I") "RTN","ONCOES",107,0) G EXIT "RTN","ONCOES",108,0) ; "RTN","ONCOES",109,0) TRM ;'COMPUTED-FIELD' EXPRESSION for TERMINAL DIGIT (160,4.1) "RTN","ONCOES",110,0) S X="",PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",111,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.09,"E") "RTN","ONCOES",112,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.09,"E") "RTN","ONCOES",113,0) I X?9N S X="T"_$E(X,8,9)_$E(X,6,7)_$E(X,4,5)_$E(X,1,3) "RTN","ONCOES",114,0) E S X="" "RTN","ONCOES",115,0) G EXIT "RTN","ONCOES",116,0) ; "RTN","ONCOES",117,0) OCC ;'COMPUTED-FIELD' EXPRESSION for CURRENT OCCUPATION (160,12) "RTN","ONCOES",118,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",119,0) I $$DPTLRT(D0)="LRT" S X="" "RTN","ONCOES",120,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.07,"E") "RTN","ONCOES",121,0) G EXIT "RTN","ONCOES",122,0) ; "RTN","ONCOES",123,0) REL ;'COMPUTED-FIELD' EXPRESSION for RELIGION (160,13) "RTN","ONCOES",124,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",125,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.08,"E") "RTN","ONCOES",126,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.08,"E") "RTN","ONCOES",127,0) G EXIT "RTN","ONCOES",128,0) ; "RTN","ONCOES",129,0) MS ;'COMPUTED-FIELD' EXPRESSION for MARITAL STATUS (160,14) "RTN","ONCOES",130,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",131,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,PT,.05,"E") "RTN","ONCOES",132,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.05,"E") "RTN","ONCOES",133,0) G EXIT "RTN","ONCOES",134,0) ; "RTN","ONCOES",135,0) EMP ;'COMPUTED-FIELD' EXPRESSION for EMPLOYMENT STATUS (160,47) "RTN","ONCOES",136,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",137,0) I $$DPTLRT(D0)="LRT" S X="" "RTN","ONCOES",138,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.31115,"E") "RTN","ONCOES",139,0) G EXIT "RTN","ONCOES",140,0) ; "RTN","ONCOES",141,0) BS ;'COMPUTED-FIELD' EXPRESSION for BRANCH OF SERVICE (160,68) "RTN","ONCOES",142,0) S X="" S PT=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",143,0) I $$DPTLRT(D0)="LRT" S X="" "RTN","ONCOES",144,0) I $$DPTLRT(D0)="DPT" S X=$$GET1^DIQ(2,PT,.325,"E") "RTN","ONCOES",145,0) G EXIT "RTN","ONCOES",146,0) ; "RTN","ONCOES",147,0) RACE ;RACE 1 (160,8) default "RTN","ONCOES",148,0) N DFN,VADM "RTN","ONCOES",149,0) S X="",DFN=$P($G(^ONCO(160,D0,0)),";",1) "RTN","ONCOES",150,0) I $$DPTLRT(D0)="LRT" S X=$$GET1^DIQ(67,DFN,.06,"E") Q "RTN","ONCOES",151,0) I $$DPTLRT(D0)="DPT" D DEM^VADPT "RTN","ONCOES",152,0) S X=$P($G(VADM(12,1)),U,2) "RTN","ONCOES",153,0) I X="" S X=$P($G(VADM(8)),U,2) "RTN","ONCOES",154,0) Q "RTN","ONCOES",155,0) ; "RTN","ONCOES",156,0) ENVIRON ;Environmental exposure and service indicator defaults "RTN","ONCOES",157,0) ;AGENT ORANGE EXPOSURE (160,48) "RTN","ONCOES",158,0) ;IONIZING RADIATION EXPOSURE (160,50) "RTN","ONCOES",159,0) ;PERSIAN GULF SERVICE (160,51) "RTN","ONCOES",160,0) ;LEBANON SERVICE (160,55) "RTN","ONCOES",161,0) ;SOMALIA SERVICE (160,56) "RTN","ONCOES",162,0) ;VIETNAM SERVICE (160,62) "RTN","ONCOES",163,0) ;GRENADA SERVICE (160,63) "RTN","ONCOES",164,0) ;PANAMA SERVICE (160,64) "RTN","ONCOES",165,0) ;YUGOSLAVIA SERVICE (160,65) "RTN","ONCOES",166,0) ;IRAQ (OIF) SERVICE (160,66) "RTN","ONCOES",167,0) ;AFGHANISTAN (OEF) SERVICE (160,67) "RTN","ONCOES",168,0) I $P(^ONCO(160,D0,0),U,1)["LRT(67," D G EXIT "RTN","ONCOES",169,0) .S (AOE,IRE,PGS,SSI,LSI,VSI,GSI,PSI,YSI,OEF,OIF)="" "RTN","ONCOES",170,0) S DFN=$P(^ONCO(160,D0,0),";",1) "RTN","ONCOES",171,0) S AOE=$$GET1^DIQ(2,DFN,.32102,"E") ;AGENT ORANGE EXPOS. INDICATED? "RTN","ONCOES",172,0) S IRE=$$GET1^DIQ(2,DFN,.32103,"E") ;RADIATION EXPOSURE INDICATED? "RTN","ONCOES",173,0) S PGS=$$GET1^DIQ(2,DFN,.32201,"E") ;PERSIAN GULF SERVICE? "RTN","ONCOES",174,0) S SSI=$$GET1^DIQ(2,DFN,.322016,"E") ;SOMALIA SERVICE INDICATED? "RTN","ONCOES",175,0) S LSI=$$GET1^DIQ(2,DFN,.3221,"E") ;LEBANON SERVICE INDICATED? "RTN","ONCOES",176,0) S VSI=$$GET1^DIQ(2,DFN,.32101,"E") ;VIETNAM SERVICE INDICATED? "RTN","ONCOES",177,0) S GSI=$$GET1^DIQ(2,DFN,.3224,"E") ;GRENADA SERVICE INDICATED? "RTN","ONCOES",178,0) S PSI=$$GET1^DIQ(2,DFN,.3227,"E") ;PANAMA SERVICE INDICATED? "RTN","ONCOES",179,0) S YSI=$$GET1^DIQ(2,DFN,.322019,"E") ;YUGOSLAVIA SERVICE INDICATED? "RTN","ONCOES",180,0) S (OEF,OIF)="No" "RTN","ONCOES",181,0) D SVC^VADPT "RTN","ONCOES",182,0) I $G(VASV(11))>0 S OEF="Yes" ;SERVICE [OEF OR OIF] "RTN","ONCOES",183,0) I $G(VASV(12))>0 S OIF="Yes" ;SERVICE [OEF OR OIF] "RTN","ONCOES",184,0) G EXIT "RTN","ONCOES",185,0) ; "RTN","ONCOES",186,0) TLEEOT ;TUMOR LEVEL-ENDOSCOPIC EXAM (165.5,752) OUTPUT TRANSFORM "RTN","ONCOES",187,0) S:$L(Y)=1 Y="0"_Y "RTN","ONCOES",188,0) I Y="00" S Y="Endoscopic exam not performed" Q "RTN","ONCOES",189,0) I Y=61 S Y="Splenic flexure" Q "RTN","ONCOES",190,0) I Y=62 S Y="Transverse colon" Q "RTN","ONCOES",191,0) I Y=63 S Y="Hepatic flexure" Q "RTN","ONCOES",192,0) I Y=64 S Y="Ascending colon" Q "RTN","ONCOES",193,0) I Y=65 S Y="Cecum" Q "RTN","ONCOES",194,0) I Y=70 S Y="Endoscopic exam, tumor not visualized" Q "RTN","ONCOES",195,0) I Y=80 S Y="Endoscopic exam, results unknown" Q "RTN","ONCOES",196,0) I Y=99 S Y="Unknown if exam done" Q "RTN","ONCOES",197,0) S Y=Y_" centimeters" "RTN","ONCOES",198,0) Q "RTN","ONCOES",199,0) ; "RTN","ONCOES",200,0) ASPIT ;ADDITIONAL SURGICAL PROCEDURES (165.5,763)INPUT TRANSFORM "RTN","ONCOES",201,0) I X<10 K X Q "RTN","ONCOES",202,0) I "10^20^30^40^41^42^43^44^50^60^88^99"'[X K X Q "RTN","ONCOES",203,0) S Y=X D ASPOT W " ",Y "RTN","ONCOES",204,0) K Y "RTN","ONCOES",205,0) Q "RTN","ONCOES",206,0) ; "RTN","ONCOES",207,0) ASPOT ;ADDITIONAL SURGICAL PROCEDURES (165.5,763) OUTPUT TRANSFORM "RTN","ONCOES",208,0) D SETASP "RTN","ONCOES",209,0) I Y'="" S Y=ASP(Y) "RTN","ONCOES",210,0) K ASP "RTN","ONCOES",211,0) Q "RTN","ONCOES",212,0) ; "RTN","ONCOES",213,0) ASPHP ;ADDITIONAL SURGICAL PROCEDURES (165.5,763) EXECUTABLE HELP "RTN","ONCOES",214,0) D SETASP "RTN","ONCOES",215,0) F ASPX=0:0 S ASPX=$O(ASP(ASPX)) Q:ASPX'>0 W !," ",ASPX," ",ASP(ASPX) "RTN","ONCOES",216,0) W ! K ASP,ASPX "RTN","ONCOES",217,0) Q "RTN","ONCOES",218,0) ; "RTN","ONCOES",219,0) SETASP ;Build ADDITIONAL SURGICAL PROCEDURES array "RTN","ONCOES",220,0) S ASP(10)="Transanal excision" "RTN","ONCOES",221,0) S ASP(20)="Posterior sacral" "RTN","ONCOES",222,0) S ASP(30)="Anterior resection w/o anastomosis" "RTN","ONCOES",223,0) S ASP(40)="Anterior resection w anastomosis, NOS" "RTN","ONCOES",224,0) S ASP(41)="Anterior resection w simple anastomosis" "RTN","ONCOES",225,0) S ASP(42)="Ant res w colo pouch coloanal anastomosis" "RTN","ONCOES",226,0) S ASP(43)="Anterior resection w ilioanal anastomosis" "RTN","ONCOES",227,0) S ASP(44)="Anterior resection w coloanal anastomosis" "RTN","ONCOES",228,0) S ASP(50)="Colostomy w/o resection" "RTN","ONCOES",229,0) S ASP(60)="Abdominoperineal resection (APR)" "RTN","ONCOES",230,0) S ASP(88)="NA, none performed" "RTN","ONCOES",231,0) S ASP(99)="Unknown if performed" "RTN","ONCOES",232,0) Q "RTN","ONCOES",233,0) ; "RTN","ONCOES",234,0) PTRDOT ;PRIMARY TUMOR RAD DOSE (cGy) (165.5,786) OUTPUT TRANSFORM "RTN","ONCOES",235,0) S Y=$S($L(Y)=1:"0000"_Y,$L(Y)=2:"000"_Y,$L(Y)=3:"00"_Y,$L(Y)=4:"0"_Y,1:Y) "RTN","ONCOES",236,0) I Y="00000" S Y="No radiation therapy" "RTN","ONCOES",237,0) I Y="88888" S Y="Received radiation therapy, dose unknown" "RTN","ONCOES",238,0) I Y="99999" S Y="Unknown if received radiation therapy" "RTN","ONCOES",239,0) Q "RTN","ONCOES",240,0) ; "RTN","ONCOES",241,0) DPTLRT(D0) ;Determine if patient resides in PATIENT (2) or REFERRAL PATIENT (67) "RTN","ONCOES",242,0) N DPTLRT "RTN","ONCOES",243,0) I $P($G(^ONCO(160,D0,0)),U,1)["LRT" S DPTLRT="LRT" "RTN","ONCOES",244,0) I $P($G(^ONCO(160,D0,0)),U,1)["DPT" S DPTLRT="DPT" "RTN","ONCOES",245,0) Q DPTLRT "RTN","ONCOES",246,0) ; "RTN","ONCOES",247,0) DATEOT ;Date OUTPUT TRANSFORM "RTN","ONCOES",248,0) I X="0000000" D DD Q "RTN","ONCOES",249,0) I $E(X,4,5)="00" S $E(X,4,5)=99 "RTN","ONCOES",250,0) I $E(X,6,7)="00" S $E(X,6,7)=99 "RTN","ONCOES",251,0) D DD "RTN","ONCOES",252,0) Q "RTN","ONCOES",253,0) ; "RTN","ONCOES",254,0) DD ;Format date values "RTN","ONCOES",255,0) S (X,Y)=$S(X="":"",X="0000000":"00/00/0000",X=8888888:"88/88/8888",X=9999999:"99/99/9999",1:$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3))) "RTN","ONCOES",256,0) Q "RTN","ONCOES",257,0) ; "RTN","ONCOES",258,0) EXIT ;Kill variables "RTN","ONCOES",259,0) K ALIAS,CITY,COUNTY,DFN,FNMI,MNI,ONCOX,ONCOX1,NAME,PT,STATE,Z,ZIP "RTN","ONCOES",260,0) Q "RTN","ONCOFLF") 0^17^B17881251 "RTN","ONCOFLF",1,0) ONCOFLF ;Hines OIFO/GWB - FOLLOWUP LETTER FUNCTIONS ;11/1/93 "RTN","ONCOFLF",2,0) ;;2.11;ONCOLOGY;**5,6,11,36,37,48,50**;Mar 07, 1995;Build 29 "RTN","ONCOFLF",3,0) ; "RTN","ONCOFLF",4,0) AED ;[EL Add/Edit Follow-up Letter] "RTN","ONCOFLF",5,0) W ! "RTN","ONCOFLF",6,0) S (DIC,DLAYGO)="^ONCO(165.1," "RTN","ONCOFLF",7,0) S DIC("A")="Select letter to Add/Edit: ",DIC(0)="AELQZ",D="B" "RTN","ONCOFLF",8,0) D IX^DIC G EX:Y<0 "RTN","ONCOFLF",9,0) S DA=+Y,DIE=DIC,DR="[ONCO FOLL ADD/EDIT LETTER]" K DC "RTN","ONCOFLF",10,0) S DIA(1)=+Y,DIA=DIC,DIA("P")="165.1" D ^DIE "RTN","ONCOFLF",11,0) G AED "RTN","ONCOFLF",12,0) ; "RTN","ONCOFLF",13,0) UP ;[UP Update Contact File] "RTN","ONCOFLF",14,0) W @IOF,!?15,"*************** UPDATE CONTACT FILE ***************" "RTN","ONCOFLF",15,0) K DIR "RTN","ONCOFLF",16,0) S DIR("A")=" Select function" "RTN","ONCOFLF",17,0) S DIR(0)="SO^1:Add/Edit;2:Delete;3:Print;4:Cleanup" "RTN","ONCOFLF",18,0) D ^DIR "RTN","ONCOFLF",19,0) G EX:($D(DUOUT))!($D(DTOUT))!($D(DIRUT))!($D(DIROUT)) G @Y "RTN","ONCOFLF",20,0) ; "RTN","ONCOFLF",21,0) 1 ;Edit "RTN","ONCOFLF",22,0) W ! "RTN","ONCOFLF",23,0) S (DIC,DIE)="^ONCO(165," "RTN","ONCOFLF",24,0) S DIC(0)="AELMQZ" "RTN","ONCOFLF",25,0) S DLAYGO=165 "RTN","ONCOFLF",26,0) D ^DIC G UP:Y=-1 S DA=+Y "RTN","ONCOFLF",27,0) W ! S DR="[ONCO UPDATE CONTACT]" D ^DIE G UP:$D(Y)'=0,1 "RTN","ONCOFLF",28,0) ; "RTN","ONCOFLF",29,0) 2 ;Delete "RTN","ONCOFLF",30,0) W ! "RTN","ONCOFLF",31,0) S DIC="^ONCO(165," "RTN","ONCOFLF",32,0) S DIC(0)="AEZQ" "RTN","ONCOFLF",33,0) D ^DIC G EX:Y<0 "RTN","ONCOFLF",34,0) I ($D(^ONCO(165,"ACP",+Y)))!($D(^ONCO(160,"AC",+Y)))!($D(^ONCO(160,"AE",+Y))) W !!?10,"You may only delete contacts which are not being used." G 2 "RTN","ONCOFLF",35,0) S DA=+Y,DIK=DIC W !!?10,"Deleting Contact ",Y(0,0) D ^DIK G 2 "RTN","ONCOFLF",36,0) ; "RTN","ONCOFLF",37,0) 3 ;Print "RTN","ONCOFLF",38,0) K DIR "RTN","ONCOFLF",39,0) S DIR("A")="Type of List" "RTN","ONCOFLF",40,0) S DIR(0)="SO^A:Alphabetic;T:By Type" "RTN","ONCOFLF",41,0) D ^DIR "RTN","ONCOFLF",42,0) G EX:($D(DUOUT))!($D(DTOUT))!($D(DIRUT))!($D(DIROUT)) G @Y "RTN","ONCOFLF",43,0) ; "RTN","ONCOFLF",44,0) A ;Alphabetic "RTN","ONCOFLF",45,0) S BY="[ONCO CONTACT LIST-A]",L=0 "RTN","ONCOFLF",46,0) S DIC="^ONCO(165,",L=0 D EN1^DIP "RTN","ONCOFLF",47,0) G EX "RTN","ONCOFLF",48,0) ; "RTN","ONCOFLF",49,0) T ;By Type "RTN","ONCOFLF",50,0) S BY="[ONCO CONTACT LIST-T]",L=0 "RTN","ONCOFLF",51,0) S DIC="^ONCO(165,",L=0 D EN1^DIP "RTN","ONCOFLF",52,0) G EX "RTN","ONCOFLF",53,0) ; "RTN","ONCOFLF",54,0) 4 ;Cleanup "RTN","ONCOFLF",55,0) W @IOF,?15,"************ Cleanout Unused Contacts ***********",!! "RTN","ONCOFLF",56,0) G DAC^ONCOFDP "RTN","ONCOFLF",57,0) ; "RTN","ONCOFLF",58,0) EX ;Exit "RTN","ONCOFLF",59,0) K ADDED,BY,D,DA,DIC,DIA,DIE,DIK,DIR,DIROUT,DIRUT,DLAYGO,DR,DTOUT,DUOUT "RTN","ONCOFLF",60,0) K FIEN,L,LIEN,NEWIEN,OP,TMP,X,Y "RTN","ONCOFLF",61,0) Q "RTN","ONCOFLF",62,0) ; "RTN","ONCOFLF",63,0) HP ;THE CONTACT (160.06,2) EXECUTABLE HELP "RTN","ONCOFLF",64,0) K DIC,DXS,DIOT "RTN","ONCOFLF",65,0) D ^ONCOXPC "RTN","ONCOFLF",66,0) W ! "RTN","ONCOFLF",67,0) Q "RTN","ONCOFLF",68,0) ; "RTN","ONCOFLF",69,0) EEACOS ;[AC Enter/Edit Facility file] "RTN","ONCOFLF",70,0) W ! "RTN","ONCOFLF",71,0) W !,?3,"E Edit an existing entry" "RTN","ONCOFLF",72,0) W !,?3,"A Add a new entry" "RTN","ONCOFLF",73,0) W ! K DIR "RTN","ONCOFLF",74,0) S DIR(0)="FAO^1:1",DIR("A")="Select Enter/Edit Facility file Option: " "RTN","ONCOFLF",75,0) S DIR("?")=" Enter 'E' to edit an existing FACILITY or 'A' to add a new FACILITY" "RTN","ONCOFLF",76,0) D ^DIR "RTN","ONCOFLF",77,0) I $D(DIRUT) G EX "RTN","ONCOFLF",78,0) I "AE"'[Y G EEACOS "RTN","ONCOFLF",79,0) I Y="A" S ADDED=0 D ADD G EX:ADDED=0 G EEACOS:ADDED=1 "RTN","ONCOFLF",80,0) I Y="E" D EDIT G EX "RTN","ONCOFLF",81,0) ; "RTN","ONCOFLF",82,0) EDIT ;Edit FACILITY file (160.19) "RTN","ONCOFLF",83,0) W ! S (DIC,DIE)="^ONCO(160.19,",DIC(0)="AELMQZ",DLAYGO=160.19 D ^DIC "RTN","ONCOFLF",84,0) Q:Y=-1 "RTN","ONCOFLF",85,0) S DA=+Y "RTN","ONCOFLF",86,0) W ! S DR=".01;.02;.03;.04;101" D ^DIE "RTN","ONCOFLF",87,0) G EDIT "RTN","ONCOFLF",88,0) Q "RTN","ONCOFLF",89,0) ADD ;Add new FACILITY file (160.19) entry "RTN","ONCOFLF",90,0) S FIEN=$O(^ONCO(160.19,"B",6999000,"")) I FIEN="" S NEWIEN=6999000 "RTN","ONCOFLF",91,0) I FIEN'="" S LIEN=6998999 F X=0:0 S LIEN=$O(^ONCO(160.19,"B",LIEN)) Q:LIEN=9999999 S TMP=LIEN "RTN","ONCOFLF",92,0) I $G(TMP) S NEWIEN=TMP+1 "RTN","ONCOFLF",93,0) W !!,"NEXT AVAILABLE LOCAL FIN NUMBER IS ",NEWIEN,"." "RTN","ONCOFLF",94,0) W ! "RTN","ONCOFLF",95,0) K DIR "RTN","ONCOFLF",96,0) S DIR(0)="Y",DIR("A")="Do you want to add a new entry",DIR("B")="NO" "RTN","ONCOFLF",97,0) D ^DIR I $D(DIRUT)!(Y=0) Q "RTN","ONCOFLF",98,0) K DD,DO "RTN","ONCOFLF",99,0) S DIC="^ONCO(160.19,",DIC(0)="L",X=NEWIEN D FILE^DICN K DIC,DLAYGO,DO "RTN","ONCOFLF",100,0) W ! K DIE S DIE="^ONCO(160.19,",DA=+Y,DR=".01;.02;.03;.04" D ^DIE "RTN","ONCOFLF",101,0) S ADDED=1 "RTN","ONCOFLF",102,0) Q "RTN","ONCOFLF",103,0) ; "RTN","ONCOFLF",104,0) HELP ;EXCUTABLE HELP to display next available local FACILITY number "RTN","ONCOFLF",105,0) S FIEN=$O(^ONCO(160.19,"B",6999000,"")) I FIEN="" S NEWIEN=6999000 "RTN","ONCOFLF",106,0) I FIEN'="" S LIEN=6998999 F X=0:0 S LIEN=$O(^ONCO(160.19,"B",LIEN)) Q:LIEN=9999999 S TMP=LIEN "RTN","ONCOFLF",107,0) I $G(TMP) S NEWIEN=TMP+1 "RTN","ONCOFLF",108,0) W ! "RTN","ONCOFLF",109,0) W !?3,"If you wish to add a new facility, enter either the 7-digit" "RTN","ONCOFLF",110,0) W !?3,"(6020009-6953290) or 8-digit (10000000+) assigned COC FIN" "RTN","ONCOFLF",111,0) W !?3,"number." "RTN","ONCOFLF",112,0) W ! "RTN","ONCOFLF",113,0) W !?3,"If the new facility does not have an assigned COC FIN number," "RTN","ONCOFLF",114,0) W !?3,"use the next available local FIN number.",! "RTN","ONCOFLF",115,0) W !?3,"THE NEXT AVAILABLE LOCAL FIN NUMBER IS ",NEWIEN,".",! "RTN","ONCOFLF",116,0) Q "RTN","ONCOPA1") 0^10^B53434032 "RTN","ONCOPA1",1,0) ONCOPA1 ;Hines OIFO/GWB - [PA Print Complete Abstract (132c)] ;08/25/97 "RTN","ONCOPA1",2,0) ;;2.11;ONCOLOGY;**13,15,16,18,28,33,34,36,40,41,42,43,44,45,46,47,48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOPA1",3,0) ; "RTN","ONCOPA1",4,0) ;Replaces print templates ONCOX1-X11. "RTN","ONCOPA1",5,0) ; "RTN","ONCOPA1",6,0) K IOP,%ZIS S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP EXIT "RTN","ONCOPA1",7,0) I $D(IO("Q")) S ONCOLST="ONCOIEN^PTIEN^STARS^LENGTH^TITLE^PRTPCE^ONCODA^ESPD" D TASK G EXIT "RTN","ONCOPA1",8,0) U IO D PRINT D ^%ZISC K %ZIS,IOP G EXIT "RTN","ONCOPA1",9,0) ; "RTN","ONCOPA1",10,0) PRINT ;Print "RTN","ONCOPA1",11,0) Q:$G(ONCOIEN)="" "RTN","ONCOPA1",12,0) W @IOF "RTN","ONCOPA1",13,0) S (IEN,D0)=ONCOIEN,PTIEN=$P($G(^ONCO(165.5,IEN,0)),U,2) "RTN","ONCOPA1",14,0) S PG=0,EX="",LINE=$S(IOST?1"C".E:IOSL-2,1:IOSL-6) "RTN","ONCOPA1",15,0) S STARS="******************************************************************************" "RTN","ONCOPA1",16,0) S DATEDX=$P($G(^ONCO(165.5,IEN,0)),U,16) "RTN","ONCOPA1",17,0) D NOW^%DTC S Y=% K % D DD^%DT S PRTDATE=Y "RTN","ONCOPA1",18,0) K DIQ S DIC="^ONCO(160,",DIQ(0)="C" "RTN","ONCOPA1",19,0) S DR=".111:.131;2;7:10;13;18.9:21;22.9:29;38:44;48;50;51;52;61;55;56;62;63;64;65;66;67" "RTN","ONCOPA1",20,0) S DA=PTIEN,DIQ="ONCAB" D EN^DIQ1 "RTN","ONCOPA1",21,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",22,0) S DR=".01:.07;1.2;2:2.4;3;3.5:19;20.1;22:35.1;37:40.2;41;49:59;62:67;70:71.3;74:79;83;85:92;95;100;101;108;117:130;132;133;137:146;200;346;363;363.1;442;443;560;787;50.2;361;623;684;1010;153;153.1;435;149;151;154:156;170;171:192;711:713;809" "RTN","ONCOPA1",23,0) S DA=ONCOIEN,DIQ="ONCAB" D EN^DIQ1 "RTN","ONCOPA1",24,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="IE" "RTN","ONCOPA1",25,0) S DR="29.2;30.2;29.1;31.1;32.1;32;33;34.3;34.4;44.1;44.2;44.3;44.4;44.5;44.6;160;161;162;163;164;165;166;167;168;148:148.4;15;21;25;44;46;47;96;102;159;193;194;195;196;2.2;227;1423:1423.4;157.1;228;229;230;231;232" "RTN","ONCOPA1",26,0) S DA=ONCOIEN,DIQ="ONCAB" D EN^DIQ1 "RTN","ONCOPA1",27,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",28,0) S DR="72",DA=ONCOIEN,DR(165.572)=".01;.02;.03;.031;.032",DIQ="ONCAB" "RTN","ONCOPA1",29,0) F SR=0:0 S SR=$O(^ONCO(165.5,IEN,23,SR)) Q:SR'>0 D "RTN","ONCOPA1",30,0) .S DA(165.572)=SR D EN^DIQ1 Q "RTN","ONCOPA1",31,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",32,0) S DR="60",DA=ONCOIEN,DR(165.51)=".01:2;33:37",DIQ="ONCAB" "RTN","ONCOPA1",33,0) F SCT=0:0 S SCT=$O(^ONCO(165.5,IEN,4,SCT)) Q:SCT'>0 D "RTN","ONCOPA1",34,0) .S DA(165.51)=SCT D EN^DIQ1 Q "RTN","ONCOPA1",35,0) K DIQ S DIC="^ONCO(160,",DIQ(0)="C" "RTN","ONCOPA1",36,0) S DR="44",DA=PTIEN,DR(160.044)=".01:1",DIQ="ONCAB" "RTN","ONCOPA1",37,0) F CHST=0:0 S CHST=$O(^ONCO(160,PTIEN,9,CHST)) Q:CHST'>0 D "RTN","ONCOPA1",38,0) .S DA(160.044)=CHST D EN^DIQ1 Q "RTN","ONCOPA1",39,0) I $G(ESPD)=1 D "RTN","ONCOPA1",40,0) .S ONCAB(165.5,IEN,.02)="XXXXX,XXXXX" "RTN","ONCOPA1",41,0) .S ONCAB(160,PTIEN,2)="XXX-XX-XXXX" "RTN","ONCOPA1",42,0) .S ONCAB(160,PTIEN,.119)="XXXXXXXXXX" "RTN","ONCOPA1",43,0) .S $P(ONCAB(160,PTIEN,.116),",",1)="XXXXX" "RTN","ONCOPA1",44,0) .S ONCAB(160,PTIEN,.131)="XXX-XXX-XXXX" "RTN","ONCOPA1",45,0) .S ONCAB(165.5,IEN,8)="XXXXXXXXXX" "RTN","ONCOPA1",46,0) .S ONCAB(165.5,IEN,8.2)="XXXXXXXXXX" "RTN","ONCOPA1",47,0) .S ONCAB(165.5,IEN,8.1)="XXXXX" "RTN","ONCOPA1",48,0) S PATNAME=$G(ONCAB(165.5,IEN,.02)),SSAN=$G(ONCAB(160,PTIEN,2)) "RTN","ONCOPA1",49,0) S NAME="CANCER REGISTRY ABSTRACT" D FORMAT "RTN","ONCOPA1",50,0) S CRA=TITLE W !!,TITLE "RTN","ONCOPA1",51,0) W !!?21,$E(ONCAB(165.5,IEN,.03),1,26) "RTN","ONCOPA1",52,0) W " ACOS #: ",ONCAB(165.5,IEN,67) "RTN","ONCOPA1",53,0) W ?76,"Print Date: ",PRTDATE D P Q:EX=U "RTN","ONCOPA1",54,0) W !," Patient Name: ",ONCAB(165.5,IEN,.02),?76,"SSN: ",ONCAB(160,PTIEN,2) D P Q:EX=U "RTN","ONCOPA1",55,0) S DOB="",VRBLPTR=$P($G(^ONCO(160,PTIEN,0)),U,1) I VRBLPTR'="" D "RTN","ONCOPA1",56,0) .S FILE=U_$P(VRBLPTR,";",2)_$P(VRBLPTR,";",1)_",0)" "RTN","ONCOPA1",57,0) .S Y=$S($D(@FILE):$P(@FILE,U,3),1:"") I Y'="" D DD^%DT S DOB=Y Q "RTN","ONCOPA1",58,0) W !," Home Address: ",ONCAB(160,PTIEN,.119) D P Q:EX=U "RTN","ONCOPA1",59,0) W !," ",ONCAB(160,PTIEN,.118) D P Q:EX=U "RTN","ONCOPA1",60,0) W !," County: ",ONCAB(160,PTIEN,.12) D P Q:EX=U "RTN","ONCOPA1",61,0) W !," Sex: ",$E(ONCAB(160,PTIEN,10),1,14),?44,"Race: ",$E(ONCAB(160,PTIEN,8),1,21),?76,"Ethnicity: ",ONCAB(160,PTIEN,9) D P Q:EX=U "RTN","ONCOPA1",62,0) W !," Date of Birth: ",DOB "RTN","ONCOPA1",63,0) W ?38," Age at DX: ",ONCAB(165.5,IEN,4) D P Q:EX=U "RTN","ONCOPA1",64,0) ; "RTN","ONCOPA1",65,0) CI ;Cancer Identification "RTN","ONCOPA1",66,0) S NAME="CANCER IDENTIFICATION" D FORMAT "RTN","ONCOPA1",67,0) W !!,TITLE "RTN","ONCOPA1",68,0) S NODE2=$G(^ONCO(165.5,IEN,2)) "RTN","ONCOPA1",69,0) S COC=$P($G(^ONCO(165.5,IEN,0)),U,4) "RTN","ONCOPA1",70,0) W !!," Accession Number: ",ONCAB(165.5,IEN,.05),?38,"Accession Year: ",ONCAB(165.5,IEN,.07),?76,"Sequence Number: ",ONCAB(165.5,IEN,.06) D P Q:EX=U "RTN","ONCOPA1",71,0) W !," Date Dx: ",ONCAB(165.5,IEN,3) D P Q:EX=U "RTN","ONCOPA1",72,0) I DATEDX>3061231 D "RTN","ONCOPA1",73,0) .W !," Ambiguous Terminology Dx: ",ONCAB(165.5,IEN,159,"E") D P Q:EX=U "RTN","ONCOPA1",74,0) .W !," Date of Conclusive Dx: ",ONCAB(165.5,IEN,193,"E") D P Q:EX=U "RTN","ONCOPA1",75,0) W !," Dx Facility: ",ONCAB(165.5,IEN,5) D P Q:EX=U "RTN","ONCOPA1",76,0) W !," Date of First Contact: ",ONCAB(165.5,IEN,155) D P Q:EX=U "RTN","ONCOPA1",77,0) W !," Class of Case: ",ONCAB(165.5,IEN,.04) D P Q:EX=U "RTN","ONCOPA1",78,0) W !," Date of First Symptoms: ",ONCAB(165.5,IEN,171) D P Q:EX=U "RTN","ONCOPA1",79,0) W !," Date Start Workup Ordered: ",ONCAB(165.5,IEN,172) D P Q:EX=U "RTN","ONCOPA1",80,0) W !," Date Workup Started: ",ONCAB(165.5,IEN,173) D P Q:EX=U "RTN","ONCOPA1",81,0) W !," Type of Reporting Source: ",ONCAB(165.5,IEN,1.2) D P Q:EX=U "RTN","ONCOPA1",82,0) W !," Site/Gp: ",ONCAB(165.5,IEN,.01) D P Q:EX=U "RTN","ONCOPA1",83,0) W !," Primary Site Code: ",ONCAB(165.5,IEN,20.1)," " "RTN","ONCOPA1",84,0) S TOP=$P(NODE2,U,1) I TOP'="" W $P(^ONCO(164,TOP,0),U,1) D P Q:EX=U "RTN","ONCOPA1",85,0) W !," Text-Primary Site Title: ",ONCAB(165.5,IEN,100) D P Q:EX=U "RTN","ONCOPA1",86,0) I DATEDX>3061231 D "RTN","ONCOPA1",87,0) .W !," Mult Tum Rpt as One Prim: ",ONCAB(165.5,IEN,194,"E") D P Q:EX=U "RTN","ONCOPA1",88,0) .W !," Date of Multiple Tumors: ",ONCAB(165.5,IEN,195,"E") D P Q:EX=U "RTN","ONCOPA1",89,0) .W !," Multiplicity Counter: ",ONCAB(165.5,IEN,196,"E") D P Q:EX=U "RTN","ONCOPA1",90,0) W !," Laterality: ",ONCAB(165.5,IEN,28) D P Q:EX=U "RTN","ONCOPA1",91,0) S HIST=$$HIST^ONCFUNC(IEN,.HSTFLD) "RTN","ONCOPA1",92,0) W !," Histology: ",ONCAB(165.5,IEN,HSTFLD) D P Q:EX=U "RTN","ONCOPA1",93,0) W !," Text-Histology Title: ",ONCAB(165.5,IEN,101) D P Q:EX=U "RTN","ONCOPA1",94,0) W:TOP=67619 !," Gleason's Score: ",ONCAB(165.5,IEN,623) "RTN","ONCOPA1",95,0) W:TOP=67619 !," PSA: ",ONCAB(165.5,IEN,684) "RTN","ONCOPA1",96,0) W:TOP=67619 !," PSA Date: ",ONCAB(165.5,IEN,96,"E") "RTN","ONCOPA1",97,0) W:TOP=67619 !," DRE +/-: ",ONCAB(165.5,IEN,102,"E") "RTN","ONCOPA1",98,0) W:TOP=67619 !," DRE Date: ",ONCAB(165.5,IEN,156) "RTN","ONCOPA1",99,0) W !," Grade/Diff/Cell Type: ",ONCAB(165.5,IEN,24)," " "RTN","ONCOPA1",100,0) S GR=$P(NODE2,U,5) I GR'="" W $P(^ONCO(164.43,GR,0),U,2) D P Q:EX=U "RTN","ONCOPA1",101,0) W !," AFIP Submission: ",ONCAB(165.5,IEN,83) D P Q:EX=U "RTN","ONCOPA1",102,0) W !," Diagnostic Confirmation: ",ONCAB(165.5,IEN,26) D P Q:EX=U "RTN","ONCOPA1",103,0) W:TOP=67220 !," Hepatitis C: ",ONCAB(165.5,IEN,1010) "RTN","ONCOPA1",104,0) S TM1=$$PRINT^ONCOTM(IEN,1) "RTN","ONCOPA1",105,0) I TM1["UMOR" S $E(TM1,2,5)="umor" I TM1["ARKER" S $E(TM1,8,12)="arker" "RTN","ONCOPA1",106,0) S TM2=$$PRINT^ONCOTM(IEN,2) "RTN","ONCOPA1",107,0) I TM2["UMOR" S $E(TM2,2,5)="umor" I TM2["ARKER" S $E(TM2,8,12)="arker" "RTN","ONCOPA1",108,0) S TM3=$$PRINT^ONCOTM(IEN,3) "RTN","ONCOPA1",109,0) I TM3["UMOR" S $E(TM3,2,5)="umor" I TM3["ARKER" S $E(TM3,8,12)="arker" "RTN","ONCOPA1",110,0) S LEN=$L(TM1) W !?(27-LEN),TM1,": ",ONCAB(165.5,IEN,25.1) D P Q:EX=U "RTN","ONCOPA1",111,0) S LEN=$L(TM2) W !?(27-LEN),TM2,": ",ONCAB(165.5,IEN,25.2) D P Q:EX=U "RTN","ONCOPA1",112,0) S LEN=$L(TM3) W !?(27-LEN),TM3,": ",ONCAB(165.5,IEN,25.3) D P Q:EX=U "RTN","ONCOPA1",113,0) W !," Referring Facility: ",ONCAB(165.5,IEN,6) D P Q:EX=U "RTN","ONCOPA1",114,0) W !," Transfer Facility: ",ONCAB(165.5,IEN,7) D P Q:EX=U "RTN","ONCOPA1",115,0) W !,"Presentation at Cancer Conf: ",ONCAB(165.5,IEN,120) D P Q:EX=U "RTN","ONCOPA1",116,0) W !," Date of Cancer Conference: ",ONCAB(165.5,IEN,121) D P Q:EX=U "RTN","ONCOPA1",117,0) W !," Casefinding Source: ",ONCAB(165.5,IEN,21,"E") "RTN","ONCOPA1",118,0) ; "RTN","ONCOPA1",119,0) I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA1A "RTN","ONCOPA1",120,0) D P Q:EX=U "RTN","ONCOPA1",121,0) PA1A D ^ONCOPA1A "RTN","ONCOPA1",122,0) ; "RTN","ONCOPA1",123,0) EXIT ;KILL variables "RTN","ONCOPA1",124,0) K CHST,CMIEN,CNTR,COC,CRA,D0,DA,DATEDX,DIC,DIQ,DIR,DOB,DR,DTE,DXDT,EX "RTN","ONCOPA1",125,0) K FHDT,FHIEN,FHZN,FILE,FLG,FM,FOLH,FR,GR,HIST,HSTFLD,IC,ICDCD,IEN,LEN "RTN","ONCOPA1",126,0) K LENGTH,LINE,NAME,NF,NODE2,NOK,NUM,ONCAB,ONCOIEN,ONCOLST,OTHPRI,PATH "RTN","ONCOPA1",127,0) K PATNAME,PG,POP,PRI,PRTDATE,PRTPCE,PRZN,PTIEN,QS,RCDT,REG,REG1,RK,RK1 "RTN","ONCOPA1",128,0) K SCT,SITE,SR,SSAN,ST,STARS,TITLE,TM1,TM2,TM3,TOP,TPX,TSIEN,TSTAT,UF "RTN","ONCOPA1",129,0) K VRBLPTR,VS,Y,ZN "RTN","ONCOPA1",130,0) Q "RTN","ONCOPA1",131,0) ; "RTN","ONCOPA1",132,0) P ;Enter RETURN to continue "RTN","ONCOPA1",133,0) I $Y>(IOSL-10) D Q:EX=U W ! "RTN","ONCOPA1",134,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA1",135,0) .D HDR Q "RTN","ONCOPA1",136,0) Q "RTN","ONCOPA1",137,0) ; "RTN","ONCOPA1",138,0) FORMAT ; "RTN","ONCOPA1",139,0) S LENGTH=$L(NAME),NUM=(((132-LENGTH)/2)\1)-10 "RTN","ONCOPA1",140,0) S TITLE=" "_$E(STARS,1,NUM)_" "_NAME_" "_$E(STARS,1,NUM) "RTN","ONCOPA1",141,0) Q "RTN","ONCOPA1",142,0) ; "RTN","ONCOPA1",143,0) TASK ;Report Queued "RTN","ONCOPA1",144,0) K ZTUCI,ZTDTH,ZTIO,ZTSAVE "RTN","ONCOPA1",145,0) S ZTRTN="PRINT^ONCOPA1",ZTREQ="@",ZTSAVE("ZTREQ")="" "RTN","ONCOPA1",146,0) S ZTDESC="Print Complete Abstract" "RTN","ONCOPA1",147,0) F RK=1:1 S RK1=$P(ONCOLST,U,RK) Q:RK1="" S ZTSAVE(RK1)="" "RTN","ONCOPA1",148,0) D ^%ZTLOAD D ^%ZISC U IO W !,"Report Queued",! "RTN","ONCOPA1",149,0) K ZTDESC,ZTREQ,ZTRTN,ZTSAVE,ZTSK "RTN","ONCOPA1",150,0) Q "RTN","ONCOPA1",151,0) ; "RTN","ONCOPA1",152,0) HDR ;Header "RTN","ONCOPA1",153,0) W @IOF S PG=PG+1 "RTN","ONCOPA1",154,0) W CRA,! "RTN","ONCOPA1",155,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA1",156,0) Q "RTN","ONCOPA1",157,0) ; "RTN","ONCOPA1",158,0) MULT ;Entry point for option ABS...MA...3). "RTN","ONCOPA1",159,0) ;Also called from PCEPRT2^ONCOGEN. "RTN","ONCOPA1",160,0) I $D(IO("Q")) S ONCOLST="ONCOIEN^PTIEN^STARS^LENGTH^TITLE^PRTPCE^ONCODA^ESPD" D TASK G EXIT "RTN","ONCOPA1",161,0) U IO D PRINT K %ZIS,IOP G EXIT "RTN","ONCOPA1",162,0) Q "RTN","ONCOPA2") 0^45^B39079146 "RTN","ONCOPA2",1,0) ONCOPA2 ;Hines OIFO/GWB [PA Print Complete Abstract (132c)] continued ;09/05/97 "RTN","ONCOPA2",2,0) ;;2.11;ONCOLOGY;**13,15,19,22,27,34,36,37,42,44,45,46,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOPA2",3,0) ; "RTN","ONCOPA2",4,0) S NAME="FIRST COURSE OF TREATMENT" D FORMAT^ONCOPA1 "RTN","ONCOPA2",5,0) W !!,TITLE "RTN","ONCOPA2",6,0) W ! D P Q:EX=U "RTN","ONCOPA2",7,0) W !," Surgical Dx/Staging Proc: ",ONCAB(165.5,IEN,58.1) D P Q:EX=U "RTN","ONCOPA2",8,0) W !," Surgical Dx/Staging Proc Date: ",ONCAB(165.5,IEN,58.3) D P Q:EX=U "RTN","ONCOPA2",9,0) W !," Surg Dx/Staging Proc @Fac: ",ONCAB(165.5,IEN,58.4) D P Q:EX=U "RTN","ONCOPA2",10,0) W !," Surg Dx/Staging Proc @Fac Date: ",ONCAB(165.5,IEN,58.5) D P Q:EX=U "RTN","ONCOPA2",11,0) W ! D P Q:EX=U "RTN","ONCOPA2",12,0) W !," Date of no treatment: ",ONCAB(165.5,IEN,124) D P Q:EX=U "RTN","ONCOPA2",13,0) W ! D P Q:EX=U "RTN","ONCOPA2",14,0) W !," Date First Surgical Procedure: ",ONCAB(165.5,IEN,170) D P Q:EX=U "RTN","ONCOPA2",15,0) W !," Surgery of Primary (F): ",ONCAB(165.5,IEN,58.6) D P Q:EX=U "RTN","ONCOPA2",16,0) W !," Most Definitive Surg Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U "RTN","ONCOPA2",17,0) W !," Surgery of Primary @Fac (F): ",ONCAB(165.5,IEN,58.7) D P Q:EX=U "RTN","ONCOPA2",18,0) W !," Most Definitive Surg @Fac Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U "RTN","ONCOPA2",19,0) W !," Surgical Margins: ",ONCAB(165.5,IEN,59) D P Q:EX=U "RTN","ONCOPA2",20,0) W !," Scope of LN Surgery (F): ",ONCAB(165.5,IEN,138.4) D P Q:EX=U "RTN","ONCOPA2",21,0) W !," Scope of LN Surgery Date: ",ONCAB(165.5,IEN,138.2) D P Q:EX=U "RTN","ONCOPA2",22,0) W !," Scope of LN Surgery @Fac (F): ",ONCAB(165.5,IEN,138.5) D P Q:EX=U "RTN","ONCOPA2",23,0) W !," Scope of LN Surgery @Fac Date: ",ONCAB(165.5,IEN,138.3) D P Q:EX=U "RTN","ONCOPA2",24,0) W !," Surg Proc/Other Site (F): ",ONCAB(165.5,IEN,139.4) D P Q:EX=U "RTN","ONCOPA2",25,0) W !," Surg Proc/Other Site Date: ",ONCAB(165.5,IEN,139.2) D P Q:EX=U "RTN","ONCOPA2",26,0) W !," Surg Proc/Other Site @Fac (F): ",ONCAB(165.5,IEN,139.5) D P Q:EX=U "RTN","ONCOPA2",27,0) W !," Surg Proc/Other Site @Fac Date: ",ONCAB(165.5,IEN,139.3) D P Q:EX=U "RTN","ONCOPA2",28,0) W:DATEDX<3030000 !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23) D P Q:EX=U "RTN","ONCOPA2",29,0) W !," Date of Surgical Discharge: ",ONCAB(165.5,IEN,435) D P Q:EX=U "RTN","ONCOPA2",30,0) W !," Readmission w/i 30 Days/Surg: ",ONCAB(165.5,IEN,14) D P Q:EX=U "RTN","ONCOPA2",31,0) W ! D P Q:EX=U "RTN","ONCOPA2",32,0) W !," Reason No Surgery of Primary: ",ONCAB(165.5,IEN,58) D P Q:EX=U "RTN","ONCOPA2",33,0) W !!," RX Text-Surgery: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,14,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,14,TX,0) D P Q:EX=U "RTN","ONCOPA2",34,0) W !," CAP Protocol Review: ",ONCAB(165.5,IEN,46,"E") D P Q:EX=U "RTN","ONCOPA2",35,0) W:ONCAB(165.5,IEN,46,"I")=0 !," CAP Text: ",ONCAB(165.5,IEN,47,"E") D P Q:EX=U "RTN","ONCOPA2",36,0) W !," Treatment Guideline #1: ",ONCAB(165.5,IEN,228,"E") D P Q:EX=U "RTN","ONCOPA2",37,0) W !," Treatment Guideline #2: ",ONCAB(165.5,IEN,229,"E") D P Q:EX=U "RTN","ONCOPA2",38,0) W !," Treatment Guideline #3: ",ONCAB(165.5,IEN,230,"E") D P Q:EX=U "RTN","ONCOPA2",39,0) W !," Treatment Guideline Location: ",ONCAB(165.5,IEN,231,"E") D P Q:EX=U "RTN","ONCOPA2",40,0) W !," Treatment Guideline Doc Date: ",ONCAB(165.5,IEN,232,"E") D P Q:EX=U "RTN","ONCOPA2",41,0) W ! D P Q:EX=U "RTN","ONCOPA2",42,0) W !," Radiation: ",ONCAB(165.5,IEN,51.2) D P Q:EX=U "RTN","ONCOPA2",43,0) W !," Date Radiation Started: ",ONCAB(165.5,IEN,51) D P Q:EX=U "RTN","ONCOPA2",44,0) W !," Location of Radiation Tx: ",ONCAB(165.5,IEN,126) D P Q:EX=U "RTN","ONCOPA2",45,0) W !," Radiation Treatment Volume: ",ONCAB(165.5,IEN,125) D P Q:EX=U "RTN","ONCOPA2",46,0) W !," Regional Treatment Modality: ",ONCAB(165.5,IEN,363) D P Q:EX=U "RTN","ONCOPA2",47,0) W !," Regional Dose: cGy: ",ONCAB(165.5,IEN,442) D P Q:EX=U "RTN","ONCOPA2",48,0) W !," Boost Treatment Modality: ",ONCAB(165.5,IEN,363.1) D P Q:EX=U "RTN","ONCOPA2",49,0) W !," Boost Dose: cGy: ",ONCAB(165.5,IEN,443) D P Q:EX=U "RTN","ONCOPA2",50,0) W !," Number of Txs to this Volume: ",ONCAB(165.5,IEN,56) D P Q:EX=U "RTN","ONCOPA2",51,0) W !," Date Radiation Ended: ",ONCAB(165.5,IEN,361) D P Q:EX=U "RTN","ONCOPA2",52,0) W !," Radiation @Fac: ",ONCAB(165.5,IEN,51.4) D P Q:EX=U "RTN","ONCOPA2",53,0) W !," Radiation @Fac Date: ",ONCAB(165.5,IEN,51.5) D P Q:EX=U "RTN","ONCOPA2",54,0) W !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3) D P Q:EX=U "RTN","ONCOPA2",55,0) W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U "RTN","ONCOPA2",56,0) W !!," RX Text-Radiation (Beam): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,15,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,15,TX,0) D P Q:EX=U "RTN","ONCOPA2",57,0) W !," RX Text-Radiation Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,16,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,16,TX,0) D P Q:EX=U "RTN","ONCOPA2",58,0) CHEM W !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2) D P Q:EX=U "RTN","ONCOPA2",59,0) W !," Chemotherapy Date: ",ONCAB(165.5,IEN,53) D P Q:EX=U "RTN","ONCOPA2",60,0) W !," Chemotherapy @Fac: ",ONCAB(165.5,IEN,53.3) D P Q:EX=U "RTN","ONCOPA2",61,0) W !," Chemotherapy @Fac Date: ",ONCAB(165.5,IEN,53.4) D P Q:EX=U "RTN","ONCOPA2",62,0) W !," Chemotherapeutic Agent #1: ",ONCAB(165.5,IEN,1423,"E") D P Q:EX=U "RTN","ONCOPA2",63,0) W !," Chemotherapeutic Agent #2: ",ONCAB(165.5,IEN,1423.1,"E") D P Q:EX=U "RTN","ONCOPA2",64,0) W !," Chemotherapeutic Agent #3: ",ONCAB(165.5,IEN,1423.2,"E") D P Q:EX=U "RTN","ONCOPA2",65,0) W !," Chemotherapeutic Agent #4: ",ONCAB(165.5,IEN,1423.3,"E") D P Q:EX=U "RTN","ONCOPA2",66,0) W !," Chemotherapeutic Agent #5: ",ONCAB(165.5,IEN,1423.4,"E") D P Q:EX=U "RTN","ONCOPA2",67,0) W !," RX Text-Chemo: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,17,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,17,TX,0) D P Q:EX=U "RTN","ONCOPA2",68,0) HT W !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2) D P Q:EX=U "RTN","ONCOPA2",69,0) W !," Hormone Therapy Date: ",ONCAB(165.5,IEN,54) D P Q:EX=U "RTN","ONCOPA2",70,0) W !," Hormone Therapy @Fac: ",ONCAB(165.5,IEN,54.3) D P Q:EX=U "RTN","ONCOPA2",71,0) W !," Hormone Therapy @Fac Date: ",ONCAB(165.5,IEN,54.4) D P Q:EX=U "RTN","ONCOPA2",72,0) W !," RX Text-Hormone: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,18,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,18,TX,0) D P Q:EX=U "RTN","ONCOPA2",73,0) IMM W !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2) D P Q:EX=U "RTN","ONCOPA2",74,0) I $P($G(^ONCO(165.5,IEN,3)),U,19)=0 G OTH "RTN","ONCOPA2",75,0) W !," Immunotherapy Date: ",ONCAB(165.5,IEN,55) D P Q:EX=U "RTN","ONCOPA2",76,0) W !," Immunotherapy @Fac: ",ONCAB(165.5,IEN,55.3) D P Q:EX=U "RTN","ONCOPA2",77,0) W !," Immunotherapy @Fac Date: ",ONCAB(165.5,IEN,55.4) D P Q:EX=U "RTN","ONCOPA2",78,0) W !," RX Text-BRM: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,20,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,20,TX,0) D P Q:EX=U "RTN","ONCOPA2",79,0) W !," Hema Trans/Endocrine Proc: ",ONCAB(165.5,IEN,153) D P Q:EX=U "RTN","ONCOPA2",80,0) W !," Hema Trans/Endocrine Proc Date: ",ONCAB(165.5,IEN,153.1) D P Q:EX=U "RTN","ONCOPA2",81,0) W ! D P Q:EX=U "RTN","ONCOPA2",82,0) W !," Systemic/Surgery Sequence: ",ONCAB(165.5,IEN,15) D P Q:EX=U "RTN","ONCOPA2",83,0) OTH W !!," Other Treatment: ",ONCAB(165.5,IEN,57.2) D P Q:EX=U "RTN","ONCOPA2",84,0) I $P($G(^ONCO(165.5,IEN,3)),U,25)=0 G PES "RTN","ONCOPA2",85,0) W !," Other Treatment Date: ",ONCAB(165.5,IEN,57) D P Q:EX=U "RTN","ONCOPA2",86,0) W !," Other Treatment @Fac: ",ONCAB(165.5,IEN,57.3) D P Q:EX=U "RTN","ONCOPA2",87,0) W !," Other Treatment @Fac Date: ",ONCAB(165.5,IEN,57.4) D P Q:EX=U "RTN","ONCOPA2",88,0) W !," RX Text-Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,21,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,21,TX,0) D P Q:EX=U "RTN","ONCOPA2",89,0) PES W !," Palliative Care: ",ONCAB(165.5,IEN,12) D P Q:EX=U "RTN","ONCOPA2",90,0) W !," Palliative Care @Fac: ",ONCAB(165.5,IEN,13) D P Q:EX=U "RTN","ONCOPA2",91,0) W !," Protocol Participation: ",ONCAB(165.5,IEN,560) D P Q:EX=U "RTN","ONCOPA2",92,0) W !," Year Put on Protocol: ",ONCAB(165.5,IEN,133) D P Q:EX=U "RTN","ONCOPA2",93,0) ; "RTN","ONCOPA2",94,0) I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA2A "RTN","ONCOPA2",95,0) D P Q:EX=U "RTN","ONCOPA2",96,0) PA2A D ^ONCOPA2A "RTN","ONCOPA2",97,0) ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE... "RTN","ONCOPA2",98,0) Q "RTN","ONCOPA2",99,0) P ; "RTN","ONCOPA2",100,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA2",101,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA2",102,0) .D HDR Q "RTN","ONCOPA2",103,0) Q "RTN","ONCOPA2",104,0) HDR ; Header "RTN","ONCOPA2",105,0) W @IOF S PG=PG+1 "RTN","ONCOPA2",106,0) W CRA,! "RTN","ONCOPA2",107,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA2",108,0) Q "RTN","ONCOPA3") 0^11^B35895924 "RTN","ONCOPA3",1,0) ONCOPA3 ;Hines OIFO/GWB-[PA Print Complete Abstract (132c)]..continued ;05/30/00 "RTN","ONCOPA3",2,0) ;;2.11;ONCOLOGY;**13,15,18,25,26,33,34,36,37,44,45,46,47,48,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOPA3",3,0) ; "RTN","ONCOPA3",4,0) S NAME="PERSONAL DATA" D FORMAT^ONCOPA1 "RTN","ONCOPA3",5,0) W !!,TITLE "RTN","ONCOPA3",6,0) W !!?10," Address at Dx: ",ONCAB(165.5,IEN,8) "RTN","ONCOPA3",7,0) W !?10," Address at Dx - Supp: ",ONCAB(165.5,IEN,8.2) "RTN","ONCOPA3",8,0) W !?10," City/Town at Dx: ",ONCAB(165.5,IEN,8.1),?70," Place of Birth: ",ONCAB(160,PTIEN,7) D P Q:EX=U "RTN","ONCOPA3",9,0) W !?10," State at Dx: ",ONCAB(165.5,IEN,16),?70," Religion: ",$E(ONCAB(160,PTIEN,13),1,14) D P Q:EX=U "RTN","ONCOPA3",10,0) W !?10," Postal Code at Dx: ",ONCAB(165.5,IEN,9),?69,"Marital Status at Dx: ",ONCAB(165.5,IEN,11) D P Q:EX=U "RTN","ONCOPA3",11,0) W !?10," County at Dx: ",ONCAB(165.5,IEN,10),?70,"Primary Payer at Dx: ",ONCAB(165.5,IEN,18) D P Q:EX=U "RTN","ONCOPA3",12,0) W !?10," Telephone: ",ONCAB(160,PTIEN,.131) "RTN","ONCOPA3",13,0) S NOK="" "RTN","ONCOPA3",14,0) I $D(^ONCO(160,PTIEN,0)) S RCDT=$G(^ONCO(160,PTIEN,0)) I $P(RCDT,";",2)["DPT",$D(^DPT($P(RCDT,";",1),.21)) S NOK=$P(^(.21),U)_" ("_$P(^(.21),U,2)_")" "RTN","ONCOPA3",15,0) I ESPD=1 S NOK="XXXXX,XXXXX" "RTN","ONCOPA3",16,0) W ?70," Next of Kin: ",NOK D P Q:EX=U "RTN","ONCOPA3",17,0) W !?10," Abstract Status: ",ONCAB(165.5,IEN,91) D P Q:EX=U "RTN","ONCOPA3",18,0) W !?10," Date of First Contact: ",ONCAB(165.5,IEN,155) D P Q:EX=U "RTN","ONCOPA3",19,0) W !?10," Date Case Completed: ",ONCAB(165.5,IEN,90) D P Q:EX=U "RTN","ONCOPA3",20,0) W !?8,"Elapsed Months to Completion: ",ONCAB(165.5,IEN,157.1,"E") D P Q:EX=U "RTN","ONCOPA3",21,0) W !?10," Abstracted by: ",ONCAB(165.5,IEN,92) D P Q:EX=U "RTN","ONCOPA3",22,0) W ! "RTN","ONCOPA3",23,0) W !?1," Other Cancer: ",ONCAB(165.5,IEN,148,"E") D P Q:EX=U "RTN","ONCOPA3",24,0) W !?1," Cancer #1: ",ONCAB(165.5,IEN,148.1,"E") D P Q:EX=U "RTN","ONCOPA3",25,0) W !?1," Cancer #2: ",ONCAB(165.5,IEN,148.2,"E") D P Q:EX=U "RTN","ONCOPA3",26,0) W !?1," Cancer #3: ",ONCAB(165.5,IEN,148.3,"E") D P Q:EX=U "RTN","ONCOPA3",27,0) W !?1," Cancer #4: ",ONCAB(165.5,IEN,148.4,"E") D P Q:EX=U "RTN","ONCOPA3",28,0) W !!?7,"Agent Orange Exposure: ",ONCAB(160,PTIEN,48) D P Q:EX=U "RTN","ONCOPA3",29,0) W !?1,"Ionizing Radiation Exposure: ",ONCAB(160,PTIEN,50) D P Q:EX=U "RTN","ONCOPA3",30,0) W !?1," Chemical Exposure: ",ONCAB(160,PTIEN,52) D P Q:EX=U "RTN","ONCOPA3",31,0) W !?1," Asbestos Exposure: ",ONCAB(160,PTIEN,61) D P Q:EX=U "RTN","ONCOPA3",32,0) W !?1," Vietnam Service: ",ONCAB(160,PTIEN,62) D P Q:EX=U "RTN","ONCOPA3",33,0) W !?1," Lebanon Service: ",ONCAB(160,PTIEN,55) D P Q:EX=U "RTN","ONCOPA3",34,0) W !?1," Grenada Service: ",ONCAB(160,PTIEN,63) D P Q:EX=U "RTN","ONCOPA3",35,0) W !?1," Panama Service: ",ONCAB(160,PTIEN,64) D P Q:EX=U "RTN","ONCOPA3",36,0) W !?1," Persian Gulf Service: ",ONCAB(160,PTIEN,51) D P Q:EX=U "RTN","ONCOPA3",37,0) W !?1," Somalia Service: ",ONCAB(160,PTIEN,56) D P Q:EX=U "RTN","ONCOPA3",38,0) W !?1," Yugoslavia Service: ",ONCAB(160,PTIEN,65) D P Q:EX=U "RTN","ONCOPA3",39,0) W !?1," Afghanistan (OEF) Service: ",ONCAB(160,PTIEN,67) D P Q:EX=U "RTN","ONCOPA3",40,0) W !?1," Iraq (OIF) Service: ",ONCAB(160,PTIEN,66) D P Q:EX=U "RTN","ONCOPA3",41,0) W !!?1,"Comorbidity/Complication 1: ",ONCAB(160,PTIEN,25) D P Q:EX=U "RTN","ONCOPA3",42,0) W !?1,"Comorbidity/Complication 2: ",ONCAB(160,PTIEN,25.1) D P Q:EX=U "RTN","ONCOPA3",43,0) W !?1,"Comorbidity/Complication 3: ",ONCAB(160,PTIEN,25.2) D P Q:EX=U "RTN","ONCOPA3",44,0) W !?1,"Comorbidity/Complication 4: ",ONCAB(160,PTIEN,25.3) D P Q:EX=U "RTN","ONCOPA3",45,0) W !?1,"Comorbidity/Complication 5: ",ONCAB(160,PTIEN,25.4) D P Q:EX=U "RTN","ONCOPA3",46,0) W !?1,"Comorbidity/Complication 6: ",ONCAB(160,PTIEN,25.5) D P Q:EX=U "RTN","ONCOPA3",47,0) W !?1,"Comorbidity/Complication 7: ",ONCAB(160,PTIEN,25.6) D P Q:EX=U "RTN","ONCOPA3",48,0) W !?1,"Comorbidity/Complication 8: ",ONCAB(160,PTIEN,25.7) D P Q:EX=U "RTN","ONCOPA3",49,0) W !?1,"Comorbidity/Complication 9: ",ONCAB(160,PTIEN,25.8) D P Q:EX=U "RTN","ONCOPA3",50,0) W !?1,"Comorbidity/Complication 10: ",ONCAB(160,PTIEN,25.9) D P Q:EX=U "RTN","ONCOPA3",51,0) S NAME="EMPLOYMENT HISTORY" D FORMAT^ONCOPA1 "RTN","ONCOPA3",52,0) W !!,TITLE,! "RTN","ONCOPA3",53,0) I $D(^ONCO(160,PTIEN,7,0)) F OC=0:0 S OC=$O(^ONCO(160,PTIEN,7,OC)) Q:OC'>0 D "RTN","ONCOPA3",54,0) .S OCCP=$P($G(^ONCO(160,PTIEN,7,OC,0)),U,1) I OCCP="" Q "RTN","ONCOPA3",55,0) .W !," Occupation: ",$E($P($G(^LAB(61.6,OCCP,0)),U,1),1,24) D P Q:EX=U "RTN","ONCOPA3",56,0) .W !,"Usual Industry: ",$E($P($G(^ONCO(160,PTIEN,7,OC,0)),U,4),1,22) D P Q:EX=U "RTN","ONCOPA3",57,0) .W ! D P Q:EX=U "RTN","ONCOPA3",58,0) S NAME="TOBACCO AND ALCOHOL USAGE" D FORMAT^ONCOPA1 "RTN","ONCOPA3",59,0) W !,TITLE "RTN","ONCOPA3",60,0) W !!?15," TOBACCO HISTORY: ",ONCAB(160,PTIEN,38) D P Q:EX=U "RTN","ONCOPA3",61,0) F TBHS=0:0 S TBHS=$O(^ONCO(160,PTIEN,5,TBHS)) Q:TBHS'>0 D "RTN","ONCOPA3",62,0) .S TBZN=$G(^ONCO(160,PTIEN,5,TBHS,0)) S TBTP=$P(TBZN,U,1) I TBTP="" Q "RTN","ONCOPA3",63,0) .W !?3,"Type of Tobacco User: ",$S(TBTP=1:"CIGARETTE",TBTP=2:"CIGARS",TBTP=3:"PIPE",TBTP=4:"CHEWING TOBACCO",TBTP=5:"SNUFF",TBTP=6:"MARIJUANA",TBTP=7:"MORE THAN 1 TYPE",TBTP=8:"UNKNOWN",1:"") "RTN","ONCOPA3",64,0) .W ?55,"Pack-Years: ",$S($P(TBZN,U,2)="U":"UNK",1:$P(TBZN,U,2)) "RTN","ONCOPA3",65,0) .W ?77,"Year Quit Tobacco Use: " S Y=$P(TBZN,U,3) W:Y="U" "UNK" I +Y D DD^%DT W Y "RTN","ONCOPA3",66,0) .Q "RTN","ONCOPA3",67,0) W !!?15," ALCOHOL HISTORY: ",ONCAB(160,PTIEN,39) D P Q:EX=U "RTN","ONCOPA3",68,0) F ALHS=0:0 S ALHS=$O(^ONCO(160,PTIEN,6,ALHS)) Q:ALHS'>0 D "RTN","ONCOPA3",69,0) .S ALZN=$G(^ONCO(160,PTIEN,6,ALHS,0)) S ALTP=$P(ALZN,U,1) I ALTP="" Q "RTN","ONCOPA3",70,0) .W !?3,"Type of Alcohol User: ",$S(ALTP="B":"BEER",ALTP="W":"WINE",ALTP="H":"HARD LIQUOR",ALTP="M":"MODERATE/SOCIAL",ALTP="S":"SERIOUS/HEAVY",ALTP="U":"UNKNOWN",1:"") "RTN","ONCOPA3",71,0) .W ?45,"Years of Alcohol Use: ",$S($P(ALZN,U,2)="U":"UNK",1:$P(ALZN,U,2)) "RTN","ONCOPA3",72,0) .W ?77,"Drinks Per Day: ",$S($P(ALZN,U,3)="U":"UNK",1:$P(ALZN,U,3)) "RTN","ONCOPA3",73,0) .W ?100,"Year Quit Drinking: " S Y=$P(ALZN,U,4) W:Y="U" "UNK" I +Y D DD^%DT W Y "RTN","ONCOPA3",74,0) .Q "RTN","ONCOPA3",75,0) S CFH=ONCAB(160,PTIEN,43),NAME="CANCER FAMILY HISTORY: "_CFH "RTN","ONCOPA3",76,0) D FORMAT^ONCOPA1 W !!,TITLE,! "RTN","ONCOPA3",77,0) F CHST=0:0 S CHST=$O(ONCAB(160.044,CHST)) Q:CHST'>0 D "RTN","ONCOPA3",78,0) .W !," Family member with cancer: ",ONCAB(160.044,CHST,.01) "RTN","ONCOPA3",79,0) .W ?50," Cancer: ",ONCAB(160.044,CHST,1) D P Q:EX=U "RTN","ONCOPA3",80,0) .Q "RTN","ONCOPA3",81,0) S NAME="PHYSICIAN CONTACTS " D FORMAT^ONCOPA1 "RTN","ONCOPA3",82,0) W !!,TITLE "RTN","ONCOPA3",83,0) I DATEDX>3061231 D "RTN","ONCOPA3",84,0) .W !," Managing Physician: ",ONCAB(165.5,IEN,2.2,"E") D P Q:EX=U "RTN","ONCOPA3",85,0) W !," Following Physician: ",ONCAB(165.5,IEN,2.1) D P Q:EX=U "RTN","ONCOPA3",86,0) W !," Primary Surgeon: ",ONCAB(165.5,IEN,2) D P Q:EX=U "RTN","ONCOPA3",87,0) W !," Physician #3: ",ONCAB(165.5,IEN,2.3) D P Q:EX=U "RTN","ONCOPA3",88,0) W !," Physician #4: ",ONCAB(165.5,IEN,2.4) D P Q:EX=U "RTN","ONCOPA3",89,0) W !!," QA Selected: ",ONCAB(165.5,IEN,62) D P Q:EX=U "RTN","ONCOPA3",90,0) W ?25," QA Reviewer: ",ONCAB(165.5,IEN,64.1) D P Q:EX=U "RTN","ONCOPA3",91,0) W ?75," QA Date: ",ONCAB(165.5,IEN,64) D P Q:EX=U "RTN","ONCOPA3",92,0) W ?100," QA Review: ",ONCAB(165.5,IEN,63) D P Q:EX=U "RTN","ONCOPA3",93,0) W !," QA Findings: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,28,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,28,TX,0) D P Q:EX=U "RTN","ONCOPA3",94,0) ; "RTN","ONCOPA3",95,0) I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR Q:'Y D HDR G PA3A "RTN","ONCOPA3",96,0) D P Q:EX=U "RTN","ONCOPA3",97,0) PA3A D ^ONCOPA3A "RTN","ONCOPA3",98,0) Q "RTN","ONCOPA3",99,0) P ; "RTN","ONCOPA3",100,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA3",101,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA3",102,0) .D HDR Q "RTN","ONCOPA3",103,0) Q "RTN","ONCOPA3",104,0) HDR ; Header "RTN","ONCOPA3",105,0) W @IOF S PG=PG+1 "RTN","ONCOPA3",106,0) W CRA,! "RTN","ONCOPA3",107,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA3",108,0) Q "RTN","ONCOPA3A") 0^2^B27481080 "RTN","ONCOPA3A",1,0) ONCOPA3A ;Hines OIFO/RTK - [PA Print Complete Abstract (132c) ;6/14/00 "RTN","ONCOPA3A",2,0) ;;2.11;ONCOLOGY;**15,17,25,26,44,50**;Mar 07, 1995;Build 29 "RTN","ONCOPA3A",3,0) ;[PA Print Complete Abstract (132c)] continued "RTN","ONCOPA3A",4,0) S NAME="FOLLOW-UP HISTORY" D FORMAT^ONCOPA1 "RTN","ONCOPA3A",5,0) W !!,TITLE,! "RTN","ONCOPA3A",6,0) I $D(^ONCO(160,PTIEN,"F",0)) D FH Q:EX=U "RTN","ONCOPA3A",7,0) W !!," Date of Last Contact: ",ONCAB(165.5,IEN,200) "RTN","ONCOPA3A",8,0) W ?50," Last Tumor Status: ",ONCAB(165.5,IEN,95) D P Q:EX=U "RTN","ONCOPA3A",9,0) W !!," Date of Death: ",ONCAB(160,PTIEN,29) D P Q:EX=U "RTN","ONCOPA3A",10,0) W !," Cause of Death: ",ONCAB(160,PTIEN,18.9) D P Q:EX=U "RTN","ONCOPA3A",11,0) W !," ICD Cause of Death: ",ONCAB(160,PTIEN,19)," " "RTN","ONCOPA3A",12,0) S ICDCD=$P($G(^ONCO(160,PTIEN,1)),U,3) I ICDCD'="" S IC=$$ICDDX^ICDCODE(ICDCD) I +IC'=-1 W $P(IC,U,4) D P Q:EX=U "RTN","ONCOPA3A",13,0) I ICDCD="" W !," State Death Cert: ",$P($G(^ONCO(160,PTIEN,1)),U,14)," ",ONCAB(160,PTIEN,19.1) D P Q:EX=U "RTN","ONCOPA3A",14,0) W !," ICD Revision: ",ONCAB(160,PTIEN,20) D P Q:EX=U "RTN","ONCOPA3A",15,0) W !," Place of Death: ",ONCAB(160,PTIEN,21) D P Q:EX=U "RTN","ONCOPA3A",16,0) W !," Care Center at Death: ",ONCAB(160,PTIEN,24.5) D P Q:EX=U "RTN","ONCOPA3A",17,0) W !," Autopsy: ",ONCAB(160,PTIEN,22.9) D P Q:EX=U "RTN","ONCOPA3A",18,0) W !," Autopsy Date/Time: ",ONCAB(160,PTIEN,23) D P Q:EX=U "RTN","ONCOPA3A",19,0) W !," Autopsy No.: ",ONCAB(160,PTIEN,24) D P Q:EX=U "RTN","ONCOPA3A",20,0) W !," Path/Autopsy: " F PATH=0:0 S PATH=$O(^ONCO(160,PTIEN,4,PATH)) Q:PATH'>0 W !?8,$G(^ONCO(160,PTIEN,4,PATH,0)) D P Q:EX=U "RTN","ONCOPA3A",21,0) I $P($G(^ONCO(160,PTIEN,1)),U,1)=0 W !!?30,"TUMOR Status at DEATH (Multiple Primaries)",! S CNTR=1 F PRI=0:0 S PRI=$O(^ONCO(165.5,"C",PTIEN,PRI)) Q:PRI'>0 I $$DIV^ONCFUNC(PRI)=DUZ(2) D "RTN","ONCOPA3A",22,0) .S ZN=$G(^ONCO(165.5,PRI,0)) Q:ZN="" "RTN","ONCOPA3A",23,0) .S CNTR=CNTR+1,ST=$P(ZN,U,1),TOP=$P($G(^ONCO(165.5,PRI,2)),U,1) "RTN","ONCOPA3A",24,0) .S SITE=$S(TOP'="":$P($G(^ONCO(164,TOP,0)),U,1),1:$P($G(^ONCO(164.2,ST,0)),U,1)) "RTN","ONCOPA3A",25,0) .S TSTAT=$P($G(^ONCO(165.5,PRI,7)),U,6) "RTN","ONCOPA3A",26,0) .I CNTR#2=0 W !?3,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),U,1) "RTN","ONCOPA3A",27,0) .I CNTR#2'=0 W ?70,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),U,1) D P Q:EX=U "RTN","ONCOPA3A",28,0) .Q "RTN","ONCOPA3A",29,0) W ! "RTN","ONCOPA3A",30,0) I $G(PRTPCE)=1 D PCEPRT^ONCOGEN "RTN","ONCOPA3A",31,0) Q "RTN","ONCOPA3A",32,0) FH ; Do the Follow-Up History display (#160,#400 multiple "F" node) "RTN","ONCOPA3A",33,0) F FOLH=0:0 S FOLH=$O(^ONCO(160,PTIEN,"F","AA",FOLH)) Q:FOLH'>0!(EX=U) D "RTN","ONCOPA3A",34,0) .S FHIEN=$O(^ONCO(160,PTIEN,"F","AA",FOLH,"")) "RTN","ONCOPA3A",35,0) .S FHZN=$G(^ONCO(160,PTIEN,"F",FHIEN,0)),FHDT=$P(FHZN,U,1) Q:FHDT=""!(EX=U) "RTN","ONCOPA3A",36,0) .W !,"--------------------------------------------------------------------------------------------------------------------------------" D P Q:EX=U "RTN","ONCOPA3A",37,0) .F OTHPRI=0:0 S OTHPRI=$O(^ONCO(165.5,"C",PTIEN,OTHPRI)) Q:OTHPRI'>0 I $$DIV^ONCFUNC(OTHPRI)=DUZ(2) D "RTN","ONCOPA3A",38,0) ..S PRZN=$G(^ONCO(165.5,OTHPRI,0)),DXDT=$P(PRZN,U,16) "RTN","ONCOPA3A",39,0) ..I DXDT=""!(DXDT>FHDT) Q "RTN","ONCOPA3A",40,0) ..S ST=$P(PRZN,U,1),TOP=$P($G(^ONCO(165.5,OTHPRI,2)),U,1) "RTN","ONCOPA3A",41,0) ..S SITE=$S(TOP'="":$P($G(^ONCO(164,TOP,0)),U,1),1:$P($G(^ONCO(164.2,ST,0)),U,1)) "RTN","ONCOPA3A",42,0) ..S TSTAT="",TSIEN=$O(^ONCO(165.5,OTHPRI,"TS","B",FHDT,"")) "RTN","ONCOPA3A",43,0) ..I TSIEN'="" S TSTAT=$P($G(^ONCO(165.5,OTHPRI,"TS",TSIEN,0)),U,2) "RTN","ONCOPA3A",44,0) ..W !?3,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),U,1) D P Q:EX=U "RTN","ONCOPA3A",45,0) ..Q "RTN","ONCOPA3A",46,0) .W !!," Last Contact: " S Y=FHDT D DD^%DT W Y "RTN","ONCOPA3A",47,0) .W ?70," Follow-up Method: " S FM=$P(FHZN,U,4) "RTN","ONCOPA3A",48,0) .W $S(FM=0:"Reported Hospitalization",FM=1:"Readmission (inpatient or outpatient)",FM=2:"Physician",FM=3:"Patient",FM=4:"Department of Motor Vehicles",FM=5:"Medicare/Medicaid file",FM=7:"Death certificate",FM=8:"Other",FM=9:"Unknown",1:"") "RTN","ONCOPA3A",49,0) .D P Q:EX=U "RTN","ONCOPA3A",50,0) .W !," Vital Status: " S VS=$P(FHZN,U,2) W $S(VS=0:"Dead",VS=1:"Alive",1:"") "RTN","ONCOPA3A",51,0) .W ?70," Next Follow-up Method: " S NF=$P(FHZN,U,6) "RTN","ONCOPA3A",52,0) .W $S(NF=0:"Chart requisition",NF=1:"Physician",NF=2:"Contact letter",NF=3:"Phone call",NF=4:"Other hospital contact",NF=5:"Other",NF=8:"Foreign residents (not allowed)",NF=9:"Not followed",1:"") "RTN","ONCOPA3A",53,0) .D P Q:EX=U "RTN","ONCOPA3A",54,0) .W !," Quality of Survival: " S QS=$P(FHZN,U,5) "RTN","ONCOPA3A",55,0) .W $S(QS=0:"Normal",QS=1:"Symptomatic & Ambulatory",QS=2:"More than 50% Ambulatory",QS=3:"Less than 50% Ambulatory",QS=4:"Bedridden",QS=8:"Not applicable, dead",QS=9:"Unknown or unspecified",1:"") "RTN","ONCOPA3A",56,0) .W ?70," Unusual Follow-up Method: " S UF=$P(FHZN,U,7) W $S(UF=0!(UF=1):"1st unusual method",UF=2:"2nd unusual method",1:"") D P Q:EX=U "RTN","ONCOPA3A",57,0) .D P Q:EX=U "RTN","ONCOPA3A",58,0) .W !?3,"Date Entered: " S DTE=$P(FHZN,U,11) I DTE'="" W $E(DTE,4,5)_"/"_$E(DTE,6,7)_"/"_($E(DTE,1,3)+1700) "RTN","ONCOPA3A",59,0) .W ?72,"Registrar: " S REG=$P(FHZN,U,10) I REG'="" S REG1=$P($G(^VA(200,REG,0)),"^",1) W REG1 "RTN","ONCOPA3A",60,0) .D P Q:EX=U "RTN","ONCOPA3A",61,0) .W !," Following Registry: " S FR=$P(FHZN,U,9) I FR'="" W $P($G(^ONCO(160.19,FR,0)),U,2) "RTN","ONCOPA3A",62,0) .D P Q:EX=U "RTN","ONCOPA3A",63,0) .I $D(^ONCO(160,PTIEN,"F",FHIEN,1,0)) D "RTN","ONCOPA3A",64,0) ..W !!," Comments:" "RTN","ONCOPA3A",65,0) ..F CMIEN=0:0 S CMIEN=$O(^ONCO(160,PTIEN,"F",FHIEN,1,CMIEN)) Q:CMIEN'>0 W !?5,$G(^ONCO(160,PTIEN,"F",FHIEN,1,CMIEN,0)) D P Q:EX=U "RTN","ONCOPA3A",66,0) ..Q "RTN","ONCOPA3A",67,0) .Q "RTN","ONCOPA3A",68,0) Q:EX=U W !,"--------------------------------------------------------------------------------------------------------------------------------" "RTN","ONCOPA3A",69,0) Q "RTN","ONCOPA3A",70,0) P ; "RTN","ONCOPA3A",71,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA3A",72,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E",DIR("A")="Enter RETURN to continue with this abstract" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA3A",73,0) .D HDR Q "RTN","ONCOPA3A",74,0) Q "RTN","ONCOPA3A",75,0) HDR ; Header "RTN","ONCOPA3A",76,0) W @IOF S PG=PG+1 "RTN","ONCOPA3A",77,0) W CRA,! "RTN","ONCOPA3A",78,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA3A",79,0) Q "RTN","ONCOPRT") 0^52^B19804911 "RTN","ONCOPRT",1,0) ONCOPRT ;Hines OIFO/GWB - Oncology reports ;05/05/00 "RTN","ONCOPRT",2,0) ;;2.11;ONCOLOGY;**24,25,26,27,36,50**;Mar 07, 1995;Build 29 "RTN","ONCOPRT",3,0) ;This routine invokes Integration Agreement #3151 "RTN","ONCOPRT",4,0) ; "RTN","ONCOPRT",5,0) ;[SUS *..Casefinding/Suspense ...] "RTN","ONCOPRT",6,0) SUS ;[SP Print Suspense List by Suspense Date (132c)] "RTN","ONCOPRT",7,0) S BY="@75,INTERNAL(#3),@75,.01,75,2;C2" "RTN","ONCOPRT",8,0) S (FR,TO)=DUZ(2)_",?" "RTN","ONCOPRT",9,0) S FLDS="[ONCO SUSPENSE]" "RTN","ONCOPRT",10,0) G PRT60 "RTN","ONCOPRT",11,0) ; "RTN","ONCOPRT",12,0) DI ;[DI Disease Index] "RTN","ONCOPRT",13,0) ;Supported by IA #3151 "RTN","ONCOPRT",14,0) S OSPIEN=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCOPRT",15,0) S AFLDIV="" "RTN","ONCOPRT",16,0) I $O(^ONCO(160.1,OSPIEN,6,0)) D "RTN","ONCOPRT",17,0) .S ADIEN=0 F S ADIEN=$O(^ONCO(160.1,OSPIEN,6,ADIEN)) Q:ADIEN'>0 S AFLDIV=AFLDIV_^ONCO(160.1,OSPIEN,6,ADIEN,0)_U "RTN","ONCOPRT",18,0) S DIC="^AUPNVPOV(",L=0 "RTN","ONCOPRT",19,0) S BY="[ONC DISEASE INDEX]" "RTN","ONCOPRT",20,0) S FLDS="[ONC DISEASE INDEX]" "RTN","ONCOPRT",21,0) S DIS(0)="I $$DIDIV^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",22,0) D EN1^DIP "RTN","ONCOPRT",23,0) K AFLDIV,ADIEN,OSPIEN "RTN","ONCOPRT",24,0) G EX "RTN","ONCOPRT",25,0) ; "RTN","ONCOPRT",26,0) STD ;[TD Print Suspense List by Month/Terminal Digit (132c)] "RTN","ONCOPRT",27,0) S BY="@75,INTERNAL(#3),#75,+12;S1;C27,@TERMINAL DIGIT;S1" "RTN","ONCOPRT",28,0) S (FR,TO)=DUZ(2)_",?,?" "RTN","ONCOPRT",29,0) S FLDS="[ONCO SUSPENSE]",DHD="[ONCO SUSPENSE/TERMDIG-HDR]" "RTN","ONCOPRT",30,0) G PRT60 "RTN","ONCOPRT",31,0) ; "RTN","ONCOPRT",32,0) SAT ;[CS Print Complete Suspense List by Term Digit (132c)] "RTN","ONCOPRT",33,0) S BY="@75,INTERNAL(#3),75,.01,@TERMINAL DIGIT;S1" "RTN","ONCOPRT",34,0) S (FR,TO)=DUZ(2) "RTN","ONCOPRT",35,0) S FLDS="[ONCO SUSPENSE]",DHD="[ONCO SUSPENSE-ALL/TERMDIG-HDR]" "RTN","ONCOPRT",36,0) W !!?10,"This option produces a list for requesting all charts" "RTN","ONCOPRT",37,0) W !?10,"that are currently in suspense.",! "RTN","ONCOPRT",38,0) G PRT60 "RTN","ONCOPRT",39,0) ; "RTN","ONCOPRT",40,0) DNP ;[NP Oncology Patient List-NO Primaries/Suspense] "RTN","ONCOPRT",41,0) S BY="@75,INTERNAL(#3),@NO PRIMARY;L1,NAME" "RTN","ONCOPRT",42,0) S (FR,TO)=DUZ(2) "RTN","ONCOPRT",43,0) S FLDS="[ONCO PATIENT ONLY]" "RTN","ONCOPRT",44,0) G PRT60 "RTN","ONCOPRT",45,0) ; "RTN","ONCOPRT",46,0) ;[ABS *..Abstracting/Printing ...] "RTN","ONCOPRT",47,0) ABI ;[NC Print Abstract NOT Complete List] "RTN","ONCOPRT",48,0) S BY="[ONCO ABSTRACT NOT-COMPLETE]" "RTN","ONCOPRT",49,0) G PRT655 "RTN","ONCOPRT",50,0) ; "RTN","ONCOPRT",51,0) ;[FOL *..Follow-up Functions ...] "RTN","ONCOPRT",52,0) PFH ;[FH Patient Follow-up History] "RTN","ONCOPRT",53,0) D PAT I Y'<0 D G EX "RTN","ONCOPRT",54,0) .S BY="@NUMBER" "RTN","ONCOPRT",55,0) .S (FR,TO)=+Y "RTN","ONCOPRT",56,0) .S FLDS="[ONCO FOLLOWUP HISTORY]" "RTN","ONCOPRT",57,0) .D PRT60 "RTN","ONCOPRT",58,0) Q "RTN","ONCOPRT",59,0) ; "RTN","ONCOPRT",60,0) DAD ;[FA Print Due Follow-up/Admission List] "RTN","ONCOPRT",61,0) W ! S (BY,FLDS)="[ONCO DUE FOLLOWUP-ADM/DIS]" "RTN","ONCOPRT",62,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",63,0) G PRT60 "RTN","ONCOPRT",64,0) ; "RTN","ONCOPRT",65,0) DUF ;[DF Print Due Follow-up List by Month Due] "RTN","ONCOPRT",66,0) W ! S (BY,FLDS)="[ONCO DUE FOLLOWUP]" "RTN","ONCOPRT",67,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",68,0) G PRT60 "RTN","ONCOPRT",69,0) ; "RTN","ONCOPRT",70,0) DTD ;[TD Print Due Follow-up List by 'Terminal Digit'] "RTN","ONCOPRT",71,0) W ! S (BY,FLDS)="[ONCO DUE FOLLOWUP/TERMDIG]" "RTN","ONCOPRT",72,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",73,0) G PRT60 "RTN","ONCOPRT",74,0) ; "RTN","ONCOPRT",75,0) DEL ;[LF Print Delinquent (LTF) List] "RTN","ONCOPRT",76,0) W !!?5,"The FOLLOW-UP STATUS will be changed from ACTIVE to (LTF)." "RTN","ONCOPRT",77,0) W !?5,"After 15 months the patient is considered LOST TO FOLLOW-UP." "RTN","ONCOPRT",78,0) W !! S (BY,FLDS)="[ONCO DELINQUENT(LTF) LIST]" "RTN","ONCOPRT",79,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",80,0) G PRT60 "RTN","ONCOPRT",81,0) ; "RTN","ONCOPRT",82,0) FST ;[SR Follow-up Status Report by Patient (132c)] "RTN","ONCOPRT",83,0) W ! S (BY,FLDS)="[ONCO FOLLOWUP STATUS RPT]" "RTN","ONCOPRT",84,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",85,0) G PRT60 "RTN","ONCOPRT",86,0) ; "RTN","ONCOPRT",87,0) ;[FP Follow-up Procedures Menu ...] "RTN","ONCOPRT",88,0) PFR ;[FR Individual Follow-up Report] "RTN","ONCOPRT",89,0) D PAT I Y'<0 D G EX "RTN","ONCOPRT",90,0) .S BY="@NUMBER" "RTN","ONCOPRT",91,0) .S (FR,TO)=+Y "RTN","ONCOPRT",92,0) .S FLDS="[ONCO FOLLOWUP PATIENT RPT]" "RTN","ONCOPRT",93,0) .D PRT60 "RTN","ONCOPRT",94,0) Q "RTN","ONCOPRT",95,0) ; "RTN","ONCOPRT",96,0) ACOS80 ;[AA Accession Register-ACOS (80c)] "RTN","ONCOPRT",97,0) S (BY,FLDS)="[ONCO ACCREG-ACOS80]" D HA G PRT655 "RTN","ONCOPRT",98,0) ; "RTN","ONCOPRT",99,0) AC80ST ;[AS Accession Register-Site (80c)] "RTN","ONCOPRT",100,0) S (BY,FLDS)="[ONCO ACCREG-SITE/GP80]" D HA G PRT655 "RTN","ONCOPRT",101,0) ; "RTN","ONCOPRT",102,0) EOAC ;[AE Accession Register-EOVA (132c)] "RTN","ONCOPRT",103,0) S (BY,FLDS)="[ONCO ACCREG-EOVA132]" D HA G PRT655 "RTN","ONCOPRT",104,0) ; "RTN","ONCOPRT",105,0) HA ;Help for Accession Registers "RTN","ONCOPRT",106,0) W !!?3,"For a complete register:" "RTN","ONCOPRT",107,0) W !?5,"START WITH ACC/SEQ NUMBER: FIRST// " "RTN","ONCOPRT",108,0) W !!?3,"For a single accession year (e.g. 1999):" "RTN","ONCOPRT",109,0) W !,?5,"START WITH ACC/SEQ NUMBER: FIRST// 1999-00000" "RTN","ONCOPRT",110,0) W !,?5,"GO TO ACC/SEQ NUMBER: LAST// 1999-99999" "RTN","ONCOPRT",111,0) W !!?3,"For a single patient (e.g. 1999-00001):" "RTN","ONCOPRT",112,0) W !,?5,"START WITH ACC/SEQ NUMBER: FIRST// 1999-00001/00" "RTN","ONCOPRT",113,0) W !,?5,"GO TO ACC/SEQ NUMBER: LAST// 1999-00001/99" "RTN","ONCOPRT",114,0) W ! "RTN","ONCOPRT",115,0) Q "RTN","ONCOPRT",116,0) ; "RTN","ONCOPRT",117,0) ACOSPT ;[PA Patient Index-ACOS (132c)] "RTN","ONCOPRT",118,0) S BY="NAME",(FR,TO)="" "RTN","ONCOPRT",119,0) S FLDS="[ONCO PATIENT INDX-ACOS]" "RTN","ONCOPRT",120,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",121,0) G PRT60 "RTN","ONCOPRT",122,0) ; "RTN","ONCOPRT",123,0) PAT80 ;[PS Patient Index-Site (80c)] "RTN","ONCOPRT",124,0) S BY="NAME" "RTN","ONCOPRT",125,0) S (FR,TO)="" "RTN","ONCOPRT",126,0) S FLDS="[ONCO PATIENT INDX80]" "RTN","ONCOPRT",127,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",128,0) G PRT60 "RTN","ONCOPRT",129,0) ; "RTN","ONCOPRT",130,0) EOVA ;[PE Patient Index-EOVA (132c)] "RTN","ONCOPRT",131,0) S BY="NAME" "RTN","ONCOPRT",132,0) S (FR,TO)="" "RTN","ONCOPRT",133,0) S FLDS="[ONCO PATIENT INDX-EOVA132]" "RTN","ONCOPRT",134,0) S DIS(0)="I $$PFTD^ONCFUNC(D0)=""Y""" "RTN","ONCOPRT",135,0) G PRT60 "RTN","ONCOPRT",136,0) ; "RTN","ONCOPRT",137,0) ICD80 ;[IN Primary ICDO Listing (80c)] "RTN","ONCOPRT",138,0) S (BY,FLDS)="[ONCO ICDO-SITE80]" "RTN","ONCOPRT",139,0) G PRT655 "RTN","ONCOPRT",140,0) ; "RTN","ONCOPRT",141,0) SIT80 ;[SG Primary Site/GP Listing (80c)] "RTN","ONCOPRT",142,0) S (BY,FLDS)="[ONCO SITE/GP80]" "RTN","ONCOPRT",143,0) G PRT655 "RTN","ONCOPRT",144,0) ; "RTN","ONCOPRT",145,0) ICD132 ;[IW Primary ICDO Listing (132c)] "RTN","ONCOPRT",146,0) S (BY,FLDS)="[ONCO ICDO-SITE132]" "RTN","ONCOPRT",147,0) G PRT655 "RTN","ONCOPRT",148,0) ; "RTN","ONCOPRT",149,0) PAT ;ONCOLOGY PATIENT (160) lookup "RTN","ONCOPRT",150,0) W ! "RTN","ONCOPRT",151,0) S DIC="^ONCO(160,",DIC(0)="AEQM",DIC("A")=" Select Patient Name: " "RTN","ONCOPRT",152,0) D ^DIC K DIC W ! "RTN","ONCOPRT",153,0) Q "RTN","ONCOPRT",154,0) ; "RTN","ONCOPRT",155,0) PRT60 ;Print ONCOLOGY PATIENT (160) file "RTN","ONCOPRT",156,0) S DIC="^ONCO(160,",L=0 D EN1^DIP G EX "RTN","ONCOPRT",157,0) ; "RTN","ONCOPRT",158,0) PRT655 ;Print ONCOLOGY PRIMARY (165.5) file "RTN","ONCOPRT",159,0) S DIC="^ONCO(165.5,",L=0 D EN1^DIP G EX "RTN","ONCOPRT",160,0) ; "RTN","ONCOPRT",161,0) EX K DIC,DIS,BY,FR,TO,FLDS,L,Y "RTN","ONCOPRT",162,0) Q "RTN","ONCOTN") 0^7^B79074344 "RTN","ONCOTN",1,0) ONCOTN ;Hines OIFO/GWB - TNM Staging ;9/27/93 "RTN","ONCOTN",2,0) ;;2.11;ONCOLOGY;**1,3,6,7,11,15,19,22,25,28,29,35,36,37,41,42,43,44,46,47,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOTN",3,0) ; "RTN","ONCOTN",4,0) N DATEDX,H,ONCED,S,YR "RTN","ONCOTN",5,0) S DATEDX=$P(^ONCO(165.5,D0,0),U,16) "RTN","ONCOTN",6,0) S YR=$E(DATEDX,1,3) "RTN","ONCOTN",7,0) S ONCED=$S(YR<283:1,YR<288:2,YR<292:3,YR<298:4,YR<303:5,1:6) "RTN","ONCOTN",8,0) S S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOTN",9,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",10,0) I T="" W !!?5,"PRIMARY SITE not defined.",! S Y=20 Q "RTN","ONCOTN",11,0) S H=$$HIST^ONCFUNC(D0) "RTN","ONCOTN",12,0) I H="" W !!?5,"HISTOLOGY not defined.",! S Y=$S(DATEDX>3001231:22.3,1:22) Q "RTN","ONCOTN",13,0) S Y=69 "RTN","ONCOTN",14,0) ; "RTN","ONCOTN",15,0) ;Mycosis fungoides and Sezary Disease of Skin, Vulva, Penis, Scrotum "RTN","ONCOTN",16,0) I (H=97003)!(H=97013),($E(T,3,4)=44)!($E(T,3,4)=51)!($E(T,3,4)=60)!(T=67632),ONCED>5 Q "RTN","ONCOTN",17,0) ; "RTN","ONCOTN",18,0) I (S=62)!($$LYMPHOMA^ONCFUNC(D0)) D S Y="@376" Q "RTN","ONCOTN",19,0) .W !!?3,"No TNM classification is available for Lymphoid Neoplasms.",! "RTN","ONCOTN",20,0) .D CTNM88,PTNM88 "RTN","ONCOTN",21,0) ; "RTN","ONCOTN",22,0) I (T=67301)!(T=67339)!(T=67379)!($E(T,1,4)=6739)!(T=67630)!(T=67631)!(T=67637)!(T=67638)!(T=67639)!(T=67691)!($E(T,1,4)=6774)!(T=67750)!(T=67754)!(T=67755)!(T=67758)!(T=67759)!($E(T,1,4)=6776)!($E(T,1,4)=6726) D S Y="@313" Q "RTN","ONCOTN",23,0) .W !!?3,"AJCC does not define staging for this site.",! "RTN","ONCOTN",24,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",25,0) ; "RTN","ONCOTN",26,0) I (T=67254)!(T=67312)!(T=67313)!(T=67318)!(T=67319) D S Y="@313" Q "RTN","ONCOTN",27,0) .W !!?3,"AJCC does not define staging for this site.",! "RTN","ONCOTN",28,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",29,0) ; "RTN","ONCOTN",30,0) I ONCED>5,$$MELANOMA^ONCOU55(D0),($E(T,3,4)=44)!($E(T,3,4)=51)!($E(T,3,4)=60)!(T=67632),(H=87233)!(H=87283)!(H=87303)!(H=87403)!(H=87412)!(H=87413)!(H=87463)!(H=87703)!(H=87733)!(H=87743)!(H=87422) D S Y="@313" Q "RTN","ONCOTN",31,0) .W !!?1,"Histology ",$E(H,1,4)_"/"_$E(H,5)," is not appropriate for or relevant to the staging of melanoma.",! "RTN","ONCOTN",32,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",33,0) ; "RTN","ONCOTN",34,0) I ONCED>5,(T=67140)!(T=67142)!(T=67148) D S Y="@313" Q "RTN","ONCOTN",35,0) .W !!?3,"AJCC does not define staging for this site.",! "RTN","ONCOTN",36,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",37,0) ; "RTN","ONCOTN",38,0) I (T=67250)!($E(T,1,4)=6715)!($E(T,1,4)=6716)!($E(T,1,4)=6717)!($E(T,1,4)=6718),$E(H,1,4)=8936,ONCED>5 D S Y="@313" Q "RTN","ONCOTN",39,0) .W !!," No TNM coding/staging available for GASTROINTESTINAL STROMA of ",$S($E(T,1,4)=6715:"ESOPHAGUS",$E(T,1,4)=6716:"STOMACH",$E(T,1,4)=6717:"SMALL INTESTINE",$E(T,1,4)=6718:"COLON",T=67250:"PANCREAS, HEAD",1:""),".",! "RTN","ONCOTN",40,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",41,0) ; "RTN","ONCOTN",42,0) I (T=67199)!(T=67209)!($E(T,3,4)=18)!($E(T,3,4)=21)!($E(T,3,4)=16)!($E(T,3,4)=17)!(T=67239)!($E(T,3,4)=24)!($E(T,3,4)=25),($E(H,1,4)=8240)!($E(H,1,4)=8241)!($E(H,1,4)=8242)!($E(H,1,4)=8243)!($E(H,1,4)=8249)!($E(H,1,4)=9091) D S Y="@313" Q "RTN","ONCOTN",43,0) .W !!?3,"No TNM coding/staging is available for carcinoid tumors" D "RTN","ONCOTN",44,0) ..I ($E(T,3,4)=16)!($E(T,3,4)=17)!($E(T,3,4)=18)!($E(T,3,4)=21)!(T=67239)!($E(T,3,4)=24)!(T=67241)!($E(T,3,4)=25) W !?3,"of the ",$P($G(^ONCO(164,T,0)),U,1),"." "RTN","ONCOTN",45,0) ..W ! "RTN","ONCOTN",46,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",47,0) ; "RTN","ONCOTN",48,0) I $E(T,1,4)=6734 D ^ONCLNG,^ONCLNG1 I $D(ONCLUNG(H)) D S Y="@313" Q "RTN","ONCOTN",49,0) .W !!?3,"No TNM coding/staging available for sarcomas and rare tumors of the lung.",! "RTN","ONCOTN",50,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",51,0) .K ONCLUNG "RTN","ONCOTN",52,0) K ONCLUNG "RTN","ONCOTN",53,0) ; "RTN","ONCOTN",54,0) I (T=67380)!(T=67381)!(T=67382)!(T=67383)!(T=67388)!($E(T,1,4)=6747)!($E(T,1,4)=6748)!($E(T,1,4)=6749),(H=91203)!(H=89903) D S Y="@313" Q "RTN","ONCOTN",55,0) .W !!?3,"No TNM coding/staging available for angiosarcoma or malignant mesenchymoma.",! D "RTN","ONCOTN",56,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",57,0) ; "RTN","ONCOTN",58,0) I (T=67300)!(T=67310)!(T=67311),(H=95223) D S Y="@313" Q "RTN","ONCOTN",59,0) .W !!," No TNM coding available for OLFACTORY NEUROMBLASTOMA of ",$S(T=67300:"NASAL CAVITY",T=67310:"SINUS, MAXILLARY",T=67311:"SINUS ETHMOID",1:""),".",! "RTN","ONCOTN",60,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",61,0) ; "RTN","ONCOTN",62,0) ;Fallopian Tube (C57.0) "RTN","ONCOTN",63,0) ;Other/unspecified female genitalia (C57.1-C57.9) "RTN","ONCOTN",64,0) I ((T=67570)&(ONCED<5))!(($E(T,1,4)=6757)&(T'=67570)) D S Y="@313" Q "RTN","ONCOTN",65,0) .W !!?3,"AJCC does not define staging for this site.",! "RTN","ONCOTN",66,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",67,0) ; "RTN","ONCOTN",68,0) ;Paraurethral gland (C68.1) "RTN","ONCOTN",69,0) ;Overlapping lesion of urinary organs (C68.8) "RTN","ONCOTN",70,0) ;Urinary system, NOS (C68.9) "RTN","ONCOTN",71,0) I ONCED>5,((T=67681)!(T=67688)!(T=67689)) D S Y="@313" Q "RTN","ONCOTN",72,0) .W !!?3,"AJCC does not define staging for this site.",! "RTN","ONCOTN",73,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",74,0) ; "RTN","ONCOTN",75,0) ;Melanoma of the Eyelid "RTN","ONCOTN",76,0) I ONCED<5,T=67441,$$MELANOMA^ONCOU55(D0) D S Y=37.2 Q "RTN","ONCOTN",77,0) .W !!?3,"No classification is recommended at present.",! "RTN","ONCOTN",78,0) .S $P(^ONCO(165.5,D0,2),U,25)=88 "RTN","ONCOTN",79,0) .W !,"CLINICAL T: T88 NA" "RTN","ONCOTN",80,0) ; "RTN","ONCOTN",81,0) ;Brain and Spinal Cord "RTN","ONCOTN",82,0) I ONCED>4,(T=67700)!(T=67701)!(T=67709)!(T=67751)!(T=67752)!(T=67753)!($E(T,3,4)=71)!($E(T,3,4)=72) D S Y="@313" Q "RTN","ONCOTN",83,0) .W !!?3,"Central Nervous System Tumors have no TNM designation.",! "RTN","ONCOTN",84,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",85,0) ; "RTN","ONCOTN",86,0) ;Kaposi's sarcoma "RTN","ONCOTN",87,0) I H=91403 D S Y="@313" Q "RTN","ONCOTN",88,0) .W !!?3,"No TNM classification or staging is available for Kaposi's sarcoma.",! "RTN","ONCOTN",89,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",90,0) ; "RTN","ONCOTN",91,0) I $P(^ONCO(164,T,0),U,11)="" D S Y="@313" Q "RTN","ONCOTN",92,0) .W !!?3,"No stage grouping is presently recommended.",! "RTN","ONCOTN",93,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",94,0) Q "RTN","ONCOTN",95,0) ; "RTN","ONCOTN",96,0) CN2 ;GTT - clinical "RTN","ONCOTN",97,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",98,0) I T=67589 D S Y=37.3 Q "RTN","ONCOTN",99,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",100,0) .S $P(^ONCO(165.5,D0,2),U,26)=88 "RTN","ONCOTN",101,0) .W !,"CLINICAL N: N88 NA" "RTN","ONCOTN",102,0) Q "RTN","ONCOTN",103,0) ; "RTN","ONCOTN",104,0) CN4 ;GTT - pathologic "RTN","ONCOTN",105,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",106,0) I T=67589 D S Y=87 Q "RTN","ONCOTN",107,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",108,0) .S $P(^ONCO(165.5,D0,2.1),U,2)=88 "RTN","ONCOTN",109,0) .W !,"PATHOLOGIC N: N88 NA" "RTN","ONCOTN",110,0) Q "RTN","ONCOTN",111,0) ; "RTN","ONCOTN",112,0) CN5 ;GTT - other "RTN","ONCOTN",113,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",114,0) I T=67589 D S Y=99 Q "RTN","ONCOTN",115,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",116,0) .S $P(^ONCO(165.5,D0,2.1),U,7)=88 "RTN","ONCOTN",117,0) .W !,"OTHER N: N88 NA" "RTN","ONCOTN",118,0) Q "RTN","ONCOTN",119,0) ; "RTN","ONCOTN",120,0) RECN ;GTT - Subsequent Recurrences - other "RTN","ONCOTN",121,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",122,0) I T=67589 D S Y=3 Q "RTN","ONCOTN",123,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",124,0) .S $P(^ONCO(165.5,D0,23,D1,0),U,8)=88 "RTN","ONCOTN",125,0) .W !,"OTHER N: N88 NA" "RTN","ONCOTN",126,0) Q "RTN","ONCOTN",127,0) ; "RTN","ONCOTN",128,0) ES ;Automatic Staging "RTN","ONCOTN",129,0) N CM,G,HT,N,M,SP,STGTYP,T,TX,XX,XXX,YR "RTN","ONCOTN",130,0) S YR=$E($P($G(^ONCO(165.5,D0,0)),U,16),1,3) "RTN","ONCOTN",131,0) S ONCED=$S(YR<283:1,YR<288:2,YR<292:3,YR<298:4,YR<303:5,1:6) "RTN","ONCOTN",132,0) I ONCED<3 D Q "RTN","ONCOTN",133,0) .W !!,"DATE DX prior to 1988. Automatic staging unavailable.",! "RTN","ONCOTN",134,0) S STGTYP=$S(STGIND="C":"CLINICAL",STGIND="P":"PATHOLOGIC",STGIND="O":"OTHER",STGIND="R":"RECURRENCE",1:"") "RTN","ONCOTN",135,0) S XX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTN",136,0) G EX:XX="" "RTN","ONCOTN",137,0) S ST=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOTN",138,0) S G=$P(^ONCO(165.5,D0,2),U,5) "RTN","ONCOTN",139,0) S TX=$P(^ONCO(165.5,D0,2),U,1) "RTN","ONCOTN",140,0) S HT=$$HIST^ONCFUNC(D0) "RTN","ONCOTN",141,0) S SP=$P($G(^ONCO(164,+TX,0)),U,11) "RTN","ONCOTN",142,0) I STGIND="C" D "RTN","ONCOTN",143,0) .S XXX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTN",144,0) .S T=$P(XXX,U,25) "RTN","ONCOTN",145,0) .S N=$P(XXX,U,26) "RTN","ONCOTN",146,0) .S M=$P(XXX,U,27) "RTN","ONCOTN",147,0) I STGIND="P" D "RTN","ONCOTN",148,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTN",149,0) .S T=$P(XXX,U,1) "RTN","ONCOTN",150,0) .S N=$P(XXX,U,2) "RTN","ONCOTN",151,0) .S M=$P(XXX,U,3) "RTN","ONCOTN",152,0) .S CM=$P($G(^ONCO(165.5,D0,2)),U,27) "RTN","ONCOTN",153,0) .I (T'="X")!(N'="X"),$E(M,1)'=1,CM'="X" D "RTN","ONCOTN",154,0) ..S M=CM "RTN","ONCOTN",155,0) ..W !!?12,"CLINICAL M will be used to calculate PATHOLOGIC STAGE GROUPING." "RTN","ONCOTN",156,0) I STGIND="O" D "RTN","ONCOTN",157,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTN",158,0) .S T=$P(XXX,U,6) "RTN","ONCOTN",159,0) .S N=$P(XXX,U,7) "RTN","ONCOTN",160,0) .S M=$P(XXX,U,8) "RTN","ONCOTN",161,0) I STGIND="R" D "RTN","ONCOTN",162,0) .S XXX=$G(^ONCO(165.5,D0,23,DA,0)) "RTN","ONCOTN",163,0) .S T=$P(XXX,U,6) "RTN","ONCOTN",164,0) .S N=$P(XXX,U,7) "RTN","ONCOTN",165,0) .S M=$P(XXX,U,8) "RTN","ONCOTN",166,0) I T="" D G SG "RTN","ONCOTN",167,0) .W !!?3,"No ",STGTYP," T category has been assigned." "RTN","ONCOTN",168,0) .S SG=99 "RTN","ONCOTN",169,0) I N="",ST'=58 D G SG "RTN","ONCOTN",170,0) .W !!?3,"No ",STGTYP," N category has been assigned." "RTN","ONCOTN",171,0) .S SG=99 "RTN","ONCOTN",172,0) I M="" D G SG "RTN","ONCOTN",173,0) .W !?3,"No ",STGTYP," M category has been assigned." "RTN","ONCOTN",174,0) .S SG=99 "RTN","ONCOTN",175,0) ; "RTN","ONCOTN",176,0) ;Melanoma of the Eyelid (C44.1) "RTN","ONCOTN",177,0) I TX=67441,ONCED<5,$$MELANOMA^ONCOU55(D0) S AG=37 G AG "RTN","ONCOTN",178,0) ; "RTN","ONCOTN",179,0) ;Melanoma of the Skin "RTN","ONCOTN",180,0) I $$MELANOMA^ONCOU55(D0),$P($G(^ONCO(164,+TX,0)),U,15) S AG=22 G AG "RTN","ONCOTN",181,0) ; "RTN","ONCOTN",182,0) ;GTT "RTN","ONCOTN",183,0) I TX=67589 S AG=54 G AG "RTN","ONCOTN",184,0) ; "RTN","ONCOTN",185,0) ;Urethra (C68.9) "RTN","ONCOTN",186,0) ;Urothelial (Transitional Cell) Carcinoma of the Prostate "RTN","ONCOTN",187,0) I ONCED>4,TX=67619,(HT=81203)!(HT=81303)!(HT=81223)!(HT=81202) D G AG "RTN","ONCOTN",188,0) .S AG=35 "RTN","ONCOTN",189,0) ; "RTN","ONCOTN",190,0) ;Melanoma of the Conjunctiva "RTN","ONCOTN",191,0) I $$MELANOMA^ONCOU55(D0),TX=67690 S AG=39 G AG "RTN","ONCOTN",192,0) ; "RTN","ONCOTN",193,0) ;Melanoma of the Uvea "RTN","ONCOTN",194,0) I $$MELANOMA^ONCOU55(D0),((TX=67693)!(TX=67694)) S AG=40 G AG "RTN","ONCOTN",195,0) ; "RTN","ONCOTN",196,0) ;Lymphoid Neoplasms "RTN","ONCOTN",197,0) ;Mycosis fungoides (9700/3) "RTN","ONCOTN",198,0) ;Sezary Disease (9701/3) "RTN","ONCOTN",199,0) I ONCED>5,(HT=97003)!(HT=97013) S AG=55 G AG "RTN","ONCOTN",200,0) ; "RTN","ONCOTN",201,0) S AG=$P($G(^ONCO(164,+TX,0)),U,12) "RTN","ONCOTN",202,0) ; "RTN","ONCOTN",203,0) AG ;DO staging subroutine "RTN","ONCOTN",204,0) S SG=99 "RTN","ONCOTN",205,0) I T=88,N=88,M=88 S SG=88 G SG "RTN","ONCOTN",206,0) D @(AG_"^ONCOTN0") "RTN","ONCOTN",207,0) W:SG=99 !!,?12,"TNM combination not in staging table." "RTN","ONCOTN",208,0) ; "RTN","ONCOTN",209,0) SG ;Computed stage "RTN","ONCOTN",210,0) I STGIND="C" S $P(^ONCO(165.5,D0,2),U,20)=SG "RTN","ONCOTN",211,0) I STGIND="P" S $P(^ONCO(165.5,D0,2.1),U,4)=SG "RTN","ONCOTN",212,0) I STGIND="O" S $P(^ONCO(165.5,D0,2.1),U,9)=SG "RTN","ONCOTN",213,0) I STGIND="R" S $P(^ONCO(165.5,D0,23,DA,0),U,9)=SG "RTN","ONCOTN",214,0) I SG'="" S X=SG D KSG^ONCOCRC D "RTN","ONCOTN",215,0) .I STGIND="C" D CSSG^ONCOCRC Q "RTN","ONCOTN",216,0) .I STGIND="P" D PSSG^ONCOCRC Q "RTN","ONCOTN",217,0) N CMPFLG S CMPFLG="COMPUTING TNM" "RTN","ONCOTN",218,0) W !!?12,"Computed "_$S(STGIND="C":"CLINICAL",STGIND="P":"PATHOLOGIC",STGIND="O":"OTHER",STGIND="R":"RECURRENCE",1:"")," STAGE GROUPING: ",$$SGOUT^ONCOTNO(D0),! "RTN","ONCOTN",219,0) EX Q "RTN","ONCOTN",220,0) ; "RTN","ONCOTN",221,0) CTNM88 ;CLINICAL TNM 88 "RTN","ONCOTN",222,0) S $P(^ONCO(165.5,D0,2),U,25)=88 "RTN","ONCOTN",223,0) S $P(^ONCO(165.5,D0,2),U,26)=88 "RTN","ONCOTN",224,0) S $P(^ONCO(165.5,D0,2),U,27)=88 "RTN","ONCOTN",225,0) W !,"CLINICAL T: T88 NA" "RTN","ONCOTN",226,0) W !,"CLINICAL N: N88 NA" "RTN","ONCOTN",227,0) W !,"CLINICAL M: M88 NA",! "RTN","ONCOTN",228,0) I $$LYMPHOMA^ONCFUNC(D0) Q "RTN","ONCOTN",229,0) S:$P($G(^ONCO(165.5,D0,7)),U,7)="" $P(^ONCO(165.5,D0,7),U,7)="0000000" "RTN","ONCOTN",230,0) S:$P($G(^ONCO(165.5,D0,7)),U,14)="" $P(^ONCO(165.5,D0,7),U,14)="0000000" "RTN","ONCOTN",231,0) Q "RTN","ONCOTN",232,0) ; "RTN","ONCOTN",233,0) CSB I DATEDX>2951231 D "RTN","ONCOTN",234,0) .S $P(^ONCO(165.5,D0,3),U,32)=0 "RTN","ONCOTN",235,0) .W !,"STAGED BY (CLINICAL STAGE): Not staged",! "RTN","ONCOTN",236,0) Q "RTN","ONCOTN",237,0) ; "RTN","ONCOTN",238,0) PTNM88 ;PATHOLOGIC TNM 88 "RTN","ONCOTN",239,0) S $P(^ONCO(165.5,D0,7),U,17)="N" "RTN","ONCOTN",240,0) S $P(^ONCO(165.5,D0,2.1),U,1)=88 "RTN","ONCOTN",241,0) S $P(^ONCO(165.5,D0,2.1),U,2)=88 "RTN","ONCOTN",242,0) S $P(^ONCO(165.5,D0,2.1),U,3)=88 "RTN","ONCOTN",243,0) W !,"MULTIMODALITY THERAPY: NO" "RTN","ONCOTN",244,0) W !,"PATHOLOGIC T: T88 NA" "RTN","ONCOTN",245,0) W !,"PATHOLOGIC N: N88 NA" "RTN","ONCOTN",246,0) W !,"PATHOLOGIC M: M88 NA",! "RTN","ONCOTN",247,0) Q "RTN","ONCOTN",248,0) ; "RTN","ONCOTN",249,0) PSB I DATEDX>2951231 D "RTN","ONCOTN",250,0) .S $P(^ONCO(165.5,D0,2.1),U,5)=0 "RTN","ONCOTN",251,0) .W !,"STAGED BY (PATHOLOGIC STAGE): Not staged",! "RTN","ONCOTN",252,0) Q "RTN","ONCOTN",253,0) ; "RTN","ONCOTN",254,0) CSTG88 ;CLINICAL STAGE 88 "RTN","ONCOTN",255,0) S $P(^ONCO(165.5,D0,2),U,20)=88 "RTN","ONCOTN",256,0) W !,"STAGE GROUP CLINICAL: NA",! "RTN","ONCOTN",257,0) S TMP=$G(X),X=88 D CSSG^ONCOCRC S X=TMP "RTN","ONCOTN",258,0) K TMP "RTN","ONCOTN",259,0) Q "RTN","ONCOTN",260,0) ; "RTN","ONCOTN",261,0) PSTG88 ;PATHOLOGIC STAGE 88 "RTN","ONCOTN",262,0) S $P(^ONCO(165.5,D0,2.1),U,4)=88 "RTN","ONCOTN",263,0) W !,"STAGE GROUP PATHOLOGIC: NA",! "RTN","ONCOTN",264,0) S TMP=$G(X),X=88 D PSSG^ONCOCRC S X=TMP "RTN","ONCOTN",265,0) K TMP "RTN","ONCOTN",266,0) Q "RTN","ONCOTN",267,0) ; "RTN","ONCOTN",268,0) CN1 ;No longer used. Called by PCEs. "RTN","ONCOTN",269,0) CN3 ;No longer used. Called by PCEs. "RTN","ONCOTN",270,0) Q "RTN","ONCOTN0") 0^47^B33597702 "RTN","ONCOTN0",1,0) ONCOTN0 ;Hines OIFO/GWB - AUTOMATIC STAGING ;6/11/93 "RTN","ONCOTN0",2,0) ;;2.11;ONCOLOGY;**1,15,28,35,50**;Mar 07, 1995;Build 29 "RTN","ONCOTN0",3,0) ; "RTN","ONCOTN0",4,0) PART2 ;HEAD AND NECK SITES "RTN","ONCOTN0",5,0) ; "RTN","ONCOTN0",6,0) 3 ;Lip and Oral Cavity "RTN","ONCOTN0",7,0) D @$S(ONCOED=6:"LIP6^ONCSG0",ONCOED=5:"LIP5^ONCSG0",ONCOED>2:"LIP34^ONCSG0",1:"LIP12^ONCSG0") "RTN","ONCOTN0",8,0) Q "RTN","ONCOTN0",9,0) ; "RTN","ONCOTN0",10,0) 4 ;Pharynx "RTN","ONCOTN0",11,0) D @$S(ONCOED=6:"PHA6",ONCOED=5:"PHA5",ONCOED>2:"PHA34^ONCSG0",1:"PHA12^ONCSG0") "RTN","ONCOTN0",12,0) Q "RTN","ONCOTN0",13,0) ; "RTN","ONCOTN0",14,0) PHA5 ;Pharynx - 5th edition "RTN","ONCOTN0",15,0) I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx "RTN","ONCOTN0",16,0) E D PHAOH5^ONCSG0 Q "RTN","ONCOTN0",17,0) ; "RTN","ONCOTN0",18,0) PHA6 ;Pharynx - 6th edition "RTN","ONCOTN0",19,0) I SP=67110 D PHAN56^ONCSG0 Q ;C11.0 Superior wall of nasopharynx "RTN","ONCOTN0",20,0) E D PHAOH6^ONCSG0 Q "RTN","ONCOTN0",21,0) ; "RTN","ONCOTN0",22,0) 5 ;Larynx "RTN","ONCOTN0",23,0) D @$S(ONCOED=6:"LAR6^ONCSG0",ONCOED=5:"LAR5^ONCSG0",ONCOED>2:"LAR34^ONCSG0",1:"LAR12^ONCSG0") "RTN","ONCOTN0",24,0) Q "RTN","ONCOTN0",25,0) ; "RTN","ONCOTN0",26,0) 6 ;Nasal Cavity and Paranasal Sinuses "RTN","ONCOTN0",27,0) D @$S(ONCOED=6:"PAR6^ONCSG0A",5:"PAR5^ONCSG0A",ONCOED>2:"PAR34^ONCSG0A",1:"PAR12^ONCSG0A") "RTN","ONCOTN0",28,0) Q "RTN","ONCOTN0",29,0) ; "RTN","ONCOTN0",30,0) 7 ;Major Salivary Glands "RTN","ONCOTN0",31,0) D @$S(ONCOED=6:"SAL6^ONCSG0A",ONCOED=5:"SAL5^ONCSG0A",ONCOED>2:"SAL34^ONCSG0A",1:"SAL12^ONCSG0A") "RTN","ONCOTN0",32,0) Q "RTN","ONCOTN0",33,0) ; "RTN","ONCOTN0",34,0) 8 ;Thyroid "RTN","ONCOTN0",35,0) D @$S(ONCOED=6:"THY6^ONCSG0A",1:"THY15^ONCSG0A") "RTN","ONCOTN0",36,0) Q "RTN","ONCOTN0",37,0) ; "RTN","ONCOTN0",38,0) PART3 ;DIGESTIVE SYSTEM "RTN","ONCOTN0",39,0) ; "RTN","ONCOTN0",40,0) 9 ;Esophogus "RTN","ONCOTN0",41,0) D @$S(ONCOED>4:"ESO56^ONCSG1",1:"ESO1234^ONCSG1") "RTN","ONCOTN0",42,0) Q "RTN","ONCOTN0",43,0) ; "RTN","ONCOTN0",44,0) 10 ;Stomach "RTN","ONCOTN0",45,0) D @$S(ONCOED=6:"STO6^ONCSG1",ONCOED=5:"STO5^ONCSG1",1:"STO34^ONCSG1") "RTN","ONCOTN0",46,0) Q "RTN","ONCOTN0",47,0) ; "RTN","ONCOTN0",48,0) 1 ;Small Intestine "RTN","ONCOTN0",49,0) I ONCOED<4 D Q "RTN","ONCOTN0",50,0) .W:$G(RESTAGE)="" !!?12,"NO AJCC TNM Coding Schema for this edition." "RTN","ONCOTN0",51,0) .S SG=88 "RTN","ONCOTN0",52,0) D SI^ONCSG1 "RTN","ONCOTN0",53,0) Q "RTN","ONCOTN0",54,0) ; "RTN","ONCOTN0",55,0) 11 ;Colon and Rectum "RTN","ONCOTN0",56,0) D @$S(ONCOED=6:"COL6^ONCSG1",ONCOED=5:"COL5^ONCSG1",1:"COL34^ONCSG1") "RTN","ONCOTN0",57,0) Q "RTN","ONCOTN0",58,0) ; "RTN","ONCOTN0",59,0) 12 ;Anal Canal "RTN","ONCOTN0",60,0) D AC^ONCSG1 "RTN","ONCOTN0",61,0) Q "RTN","ONCOTN0",62,0) ; "RTN","ONCOTN0",63,0) 13 ;Liver "RTN","ONCOTN0",64,0) D @$S(ONCOED=6:"LIV6^ONCSG1A",ONCOED=5:"LIV5^ONCSG1A",1:"LIV34^ONCSG1A") "RTN","ONCOTN0",65,0) Q "RTN","ONCOTN0",66,0) ; "RTN","ONCOTN0",67,0) 14 ;Gallbladder "RTN","ONCOTN0",68,0) D @$S(ONCOED=6:"GB6^ONCSG1A",ONCOED=5:"GB45^ONCSG1A",ONCOED=4:"GB45^ONCSG1A",1:"GB3^ONCSG1A") "RTN","ONCOTN0",69,0) Q "RTN","ONCOTN0",70,0) ; "RTN","ONCOTN0",71,0) 15 ;Extrahepatic Bile Ducts "RTN","ONCOTN0",72,0) D @$S(ONCOED=6:"EBD6^ONCSG1A",ONCOED>3:"EBD45^ONCSG1A",1:"EBD3^ONCSG1A") "RTN","ONCOTN0",73,0) Q "RTN","ONCOTN0",74,0) ; "RTN","ONCOTN0",75,0) 16 ;Ampulla of Vater "RTN","ONCOTN0",76,0) D @$S(ONCOED=6:"AV6^ONCSG1A",1:"AV345^ONCSG1A") "RTN","ONCOTN0",77,0) Q "RTN","ONCOTN0",78,0) ; "RTN","ONCOTN0",79,0) 17 ;Exocrine Pancreas "RTN","ONCOTN0",80,0) D @$S(ONCOED=6:"EXO6^ONCSG1A",ONCOED=5:"EXO5^ONCSG1A",1:"EXO34^ONCSG1A") "RTN","ONCOTN0",81,0) Q "RTN","ONCOTN0",82,0) ; "RTN","ONCOTN0",83,0) PART4 ;THORAX "RTN","ONCOTN0",84,0) ; "RTN","ONCOTN0",85,0) 18 ;Lung "RTN","ONCOTN0",86,0) D @$S(ONCOED>4:"LUN56^ONCSG2",1:"LUN34^ONCSG2") "RTN","ONCOTN0",87,0) Q "RTN","ONCOTN0",88,0) ; "RTN","ONCOTN0",89,0) 2 ;Pleural Mesothelioma "RTN","ONCOTN0",90,0) D @$S(ONCOED=6:"PM6^ONCSG2",1:"PM45^ONCSG2") "RTN","ONCOTN0",91,0) Q "RTN","ONCOTN0",92,0) ; "RTN","ONCOTN0",93,0) PART5 ;MUSCULOSKELETAL SITES "RTN","ONCOTN0",94,0) ; "RTN","ONCOTN0",95,0) 19 ;Bone "RTN","ONCOTN0",96,0) D @$S(ONCOED=6:"BONE6^ONCSG2",1:"BONE345^ONCSG2") "RTN","ONCOTN0",97,0) Q "RTN","ONCOTN0",98,0) ; "RTN","ONCOTN0",99,0) 20 ;Soft Tissue Sarcoma "RTN","ONCOTN0",100,0) D @$S(ONCOED=6:"STS6^ONCSG2",ONCOED=5:"STS5^ONCSG2",1:"STS34^ONCSG2") "RTN","ONCOTN0",101,0) Q "RTN","ONCOTN0",102,0) ; "RTN","ONCOTN0",103,0) PART6 ;SKIN "RTN","ONCOTN0",104,0) ; "RTN","ONCOTN0",105,0) 21 ;Carcinoma of the Skin "RTN","ONCOTN0",106,0) D CS^ONCSG3 "RTN","ONCOTN0",107,0) Q "RTN","ONCOTN0",108,0) ; "RTN","ONCOTN0",109,0) 22 ;Melanoma of the Skin "RTN","ONCOTN0",110,0) D @$S(ONCOED=6:"MMS6^ONCSG3",ONCOED=5:"MMS5^ONCSG3",ONCOED=4:"MMS4^ONCSG3",1:"MMS3^ONCSG3") "RTN","ONCOTN0",111,0) Q "RTN","ONCOTN0",112,0) ; "RTN","ONCOTN0",113,0) PART7 ;BREAST "RTN","ONCOTN0",114,0) ; "RTN","ONCOTN0",115,0) 23 ;Breast "RTN","ONCOTN0",116,0) D @$S(ONCOED=6:"BRST6^ONCSG3",1:"BRST345^ONCSG3") "RTN","ONCOTN0",117,0) Q "RTN","ONCOTN0",118,0) ; "RTN","ONCOTN0",119,0) PART8 ;GYNECOLOGIC SITES "RTN","ONCOTN0",120,0) ; "RTN","ONCOTN0",121,0) 28 ;Vulva "RTN","ONCOTN0",122,0) D @$S(ONCOED>4:"VU56^ONCSG4",ONCOED=4:"VU4^ONCSG4",1:"VU3^ONCSG4") "RTN","ONCOTN0",123,0) Q "RTN","ONCOTN0",124,0) ; "RTN","ONCOTN0",125,0) 27 ;Vagina "RTN","ONCOTN0",126,0) D @$S(ONCOED>4:"VA56^ONCSG4",1:"VA34^ONCSG4") "RTN","ONCOTN0",127,0) Q "RTN","ONCOTN0",128,0) ; "RTN","ONCOTN0",129,0) 24 ;Cervix Uteri "RTN","ONCOTN0",130,0) D @$S(ONCOED>4:"CEU56^ONCSG4",1:"CEU34^ONCSG4") "RTN","ONCOTN0",131,0) Q "RTN","ONCOTN0",132,0) ; "RTN","ONCOTN0",133,0) 25 ;Corpus Uteri "RTN","ONCOTN0",134,0) D @$S(ONCOED=6:"COU6^ONCSG4",ONCOED>3:"COU45^ONCSG4",1:"COU3^ONCSG4") "RTN","ONCOTN0",135,0) Q "RTN","ONCOTN0",136,0) ; "RTN","ONCOTN0",137,0) 26 ;Ovary "RTN","ONCOTN0",138,0) D @$S(ONCOED=6:"OVA6^ONCSG4A",1:"OVA345^ONCSG4A") "RTN","ONCOTN0",139,0) Q "RTN","ONCOTN0",140,0) ; "RTN","ONCOTN0",141,0) 53 ;Fallopian Tube "RTN","ONCOTN0",142,0) D @$S(ONCOED=6:"FT6^ONCSG4A",1:"FT5^ONCSG4A") "RTN","ONCOTN0",143,0) Q "RTN","ONCOTN0",144,0) ; "RTN","ONCOTN0",145,0) 54 ;Gestational Trophoblastic Tumors "RTN","ONCOTN0",146,0) D @$S(ONCOED=6:"GTT6^ONCSG4A",1:"GTT5^ONCSG4A") "RTN","ONCOTN0",147,0) Q "RTN","ONCOTN0",148,0) ; "RTN","ONCOTN0",149,0) PART9 ;GENITOURINARY SITES "RTN","ONCOTN0",150,0) ; "RTN","ONCOTN0",151,0) 31 ;Penis "RTN","ONCOTN0",152,0) D PENIS^ONCSG5 "RTN","ONCOTN0",153,0) Q "RTN","ONCOTN0",154,0) ; "RTN","ONCOTN0",155,0) 29 ;Prostate "RTN","ONCOTN0",156,0) D @$S(ONCOED>4:"PROS56^ONCSG5",ONCOED=4:"PROS4^ONCSG5",1:"PROS3^ONCSG5") "RTN","ONCOTN0",157,0) Q "RTN","ONCOTN0",158,0) ; "RTN","ONCOTN0",159,0) 30 ;Testis "RTN","ONCOTN0",160,0) D @$S(ONCOED>4:"TES56^ONCSG5",ONCOED=4:"TES4^ONCSG5",1:"TES3^ONCSG5") "RTN","ONCOTN0",161,0) Q "RTN","ONCOTN0",162,0) ; "RTN","ONCOTN0",163,0) 33 ;Kidney "RTN","ONCOTN0",164,0) D @$S(ONCOED=6:"KID6^ONCSG5",ONCOED=5:"KID5^ONCSG5",1:"KID34^ONCSG5") "RTN","ONCOTN0",165,0) Q "RTN","ONCOTN0",166,0) ; "RTN","ONCOTN0",167,0) 34 ;Renal Pelvis and Ureter "RTN","ONCOTN0",168,0) D @$S(ONCOED>3:"RPU456^ONCSG5A",1:"RPU3^ONCSG5A") "RTN","ONCOTN0",169,0) Q "RTN","ONCOTN0",170,0) ; "RTN","ONCOTN0",171,0) 32 ;Urinary Bladder "RTN","ONCOTN0",172,0) D @$S(ONCOED>4:"UB56^ONCSG5A",ONCOED=4:"UB4^ONCSG5A",1:"UB3^ONCSG5A") "RTN","ONCOTN0",173,0) Q "RTN","ONCOTN0",174,0) ; "RTN","ONCOTN0",175,0) 35 ;Urethra "RTN","ONCOTN0",176,0) D @$S(ONCOED>4:"U56^ONCSG5A",ONCOED=4:"U4^ONCSG5A",1:"U3^ONCSG5A") "RTN","ONCOTN0",177,0) Q "RTN","ONCOTN0",178,0) ; "RTN","ONCOTN0",179,0) PART10 ;OPHTHALMIC SITES "RTN","ONCOTN0",180,0) ; "RTN","ONCOTN0",181,0) 36 ;Carcinoma of the Eyelid "RTN","ONCOTN0",182,0) W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",183,0) S SG=88 Q "RTN","ONCOTN0",184,0) ; "RTN","ONCOTN0",185,0) 37 ;Malignant Melanoma of the Eyelid "RTN","ONCOTN0",186,0) I STGIND="C" D Q "RTN","ONCOTN0",187,0) .W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",188,0) .S SG=88 "RTN","ONCOTN0",189,0) D MME34^ONCSG5A "RTN","ONCOTN0",190,0) Q "RTN","ONCOTN0",191,0) ; "RTN","ONCOTN0",192,0) 38 ;Carcinoma of the Conjunctiva "RTN","ONCOTN0",193,0) W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",194,0) S SG=88 Q "RTN","ONCOTN0",195,0) ; "RTN","ONCOTN0",196,0) 39 ;Malignant Melanoma of the Conjunctiva "RTN","ONCOTN0",197,0) W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",198,0) S SG=88 Q "RTN","ONCOTN0",199,0) ; "RTN","ONCOTN0",200,0) 40 ;Malignant Melanoma of the uvea "RTN","ONCOTN0",201,0) I TX=67693 D @$S(ONCOED=6:"MMU6^ONCSG5A",1:"CHO345^ONCSG5A") Q "RTN","ONCOTN0",202,0) I TX=67694 D @$S(ONCOED=6:"MMU6^ONCSG5A",1:"CBI345^ONCSG5A") Q "RTN","ONCOTN0",203,0) Q "RTN","ONCOTN0",204,0) ; "RTN","ONCOTN0",205,0) 41 ;Retinoblastoma "RTN","ONCOTN0",206,0) I ONCOED=6 D Q "RTN","ONCOTN0",207,0) .W:$G(RESTAGE)="" !!?12,"No stage grouping applies." "RTN","ONCOTN0",208,0) .S SG=88 "RTN","ONCOTN0",209,0) D RET345^ONCSG5A "RTN","ONCOTN0",210,0) Q "RTN","ONCOTN0",211,0) ; "RTN","ONCOTN0",212,0) 43 ;Carcinoma of the Lacrimal Gland "RTN","ONCOTN0",213,0) W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",214,0) S SG=88 Q "RTN","ONCOTN0",215,0) ; "RTN","ONCOTN0",216,0) 42 ;Sarcoma of the orbit "RTN","ONCOTN0",217,0) W:$G(RESTAGE)="" !!?12,"No stage grouping is presently recommended." "RTN","ONCOTN0",218,0) S SG=88 Q "RTN","ONCOTN0",219,0) ; "RTN","ONCOTN0",220,0) PART11 ;CENTRAL NERVOUS SYSTEM "RTN","ONCOTN0",221,0) ; "RTN","ONCOTN0",222,0) 44 ;Brain and Spinal Cord "RTN","ONCOTN0",223,0) D BSC34^ONCSG5A "RTN","ONCOTN0",224,0) Q "RTN","ONCOTN0",225,0) ; "RTN","ONCOTN0",226,0) PART12 ;LYMPHOID NEOPLASMS "RTN","ONCOTN0",227,0) ; "RTN","ONCOTN0",228,0) 55 ;Mycosis fungoides "RTN","ONCOTN0",229,0) D MF6^ONCSG5A "RTN","ONCOTN0",230,0) Q "RTN","ONCOTNO") 0^50^B13554287 "RTN","ONCOTNO",1,0) ONCOTNO ;Hines OIFO/GWB - TNM output formatting ;10/03/00 "RTN","ONCOTNO",2,0) ;;2.11;ONCOLOGY;**1,6,7,11,15,27,32,35,47,49,50**;Mar 07, 1995;Build 29 "RTN","ONCOTNO",3,0) ; "RTN","ONCOTNO",4,0) SGOUT(IEN) ;AJCC stage formatted for display "RTN","ONCOTNO",5,0) N G,SG,XX,XXX "RTN","ONCOTNO",6,0) S XX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTNO",7,0) I STGIND="C" D "RTN","ONCOTNO",8,0) .S XXX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTNO",9,0) .S SG=$P(XXX,U,20) "RTN","ONCOTNO",10,0) I STGIND="P" D "RTN","ONCOTNO",11,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTNO",12,0) .S SG=$P(XXX,U,4) "RTN","ONCOTNO",13,0) I STGIND="O" D "RTN","ONCOTNO",14,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTNO",15,0) .S SG=$P(XXX,U,9) "RTN","ONCOTNO",16,0) I STGIND="R" D "RTN","ONCOTNO",17,0) .S XXX=$G(^ONCO(165.5,D0,23,DA,0)) "RTN","ONCOTNO",18,0) .S SG=$P(XXX,U,9) "RTN","ONCOTNO",19,0) N ONCOZ,XSG S ONCOZ=$E(SG),XSG=$S(ONCOZ=1:"I",ONCOZ=2:"II",ONCOZ=3:"III",ONCOZ=4:"IV",ONCOZ=8:8,ONCOZ=9:9,1:ONCOZ),XSG=XSG_$E(SG,2,$L(SG)) "RTN","ONCOTNO",20,0) S SG=XSG_" ("_$$TNMOUT(IEN)_")" "RTN","ONCOTNO",21,0) I ($G(SP)=67400)!($G(SP)=67490) D ;Bone and Soft Tissue Sarcoma Histopathologic Grade "G" prefix "RTN","ONCOTNO",22,0) .S:($G(G)=9)!($G(G)="") G="X" "RTN","ONCOTNO",23,0) .S SG=XSG_" (G"_G_" "_$$TNMOUT(IEN)_")" "RTN","ONCOTNO",24,0) Q SG "RTN","ONCOTNO",25,0) ; "RTN","ONCOTNO",26,0) TNMOUT(IEN) ;TNM coding formatted for display "RTN","ONCOTNO",27,0) N CM,COC,II,ONCOM,ONCON,ONCOT,ONCOTNM,TOP,XXX "RTN","ONCOTNO",28,0) S ONCOTNM="" "RTN","ONCOTNO",29,0) S TOP=$P($G(^ONCO(165.5,IEN,2)),U,1) "RTN","ONCOTNO",30,0) I STGIND="C" D "RTN","ONCOTNO",31,0) .S XXX(2)=$G(^ONCO(165.5,IEN,2)) "RTN","ONCOTNO",32,0) .S XXX(3)=$G(^ONCO(165.5,IEN,3)) "RTN","ONCOTNO",33,0) .S ONCOT=$P(XXX(2),U,25) "RTN","ONCOTNO",34,0) .S ONCON=$P(XXX(2),U,26) "RTN","ONCOTNO",35,0) .S ONCOM=$P(XXX(2),U,27) "RTN","ONCOTNO",36,0) I STGIND="P" D "RTN","ONCOTNO",37,0) .S XXX(2)=$G(^ONCO(165.5,IEN,2.1)) "RTN","ONCOTNO",38,0) .S XXX(3)=$G(^ONCO(165.5,IEN,3)) "RTN","ONCOTNO",39,0) .S ONCOT=$P(XXX(2),U,1) "RTN","ONCOTNO",40,0) .S ONCON=$P(XXX(2),U,2) "RTN","ONCOTNO",41,0) .S ONCOM=$P(XXX(2),U,3) "RTN","ONCOTNO",42,0) .S CM=$P($G(^ONCO(165.5,IEN,2)),U,27) "RTN","ONCOTNO",43,0) .I $G(CMPFLG)'="COMPUTING TNM" K CMPFLG Q "RTN","ONCOTNO",44,0) .I (ONCOT'="X")!(ONCON'="X"),$E(ONCOM,1)'=1,CM'="X" S ONCOM=CM "RTN","ONCOTNO",45,0) I STGIND="O" D "RTN","ONCOTNO",46,0) .S XXX(2)=$G(^ONCO(165.5,IEN,2.1)) "RTN","ONCOTNO",47,0) .S XXX(3)=$G(^ONCO(165.5,IEN,3)) "RTN","ONCOTNO",48,0) .S ONCOT=$P(XXX(2),U,6) "RTN","ONCOTNO",49,0) .S ONCON=$P(XXX(2),U,7) "RTN","ONCOTNO",50,0) .S ONCOM=$P(XXX(2),U,8) "RTN","ONCOTNO",51,0) I STGIND="R" D "RTN","ONCOTNO",52,0) .S XXX(2)=$G(^ONCO(165.5,IEN,23,DA,0)) "RTN","ONCOTNO",53,0) .S XXX(3)=$G(^ONCO(165.5,IEN,3)) "RTN","ONCOTNO",54,0) .S ONCOT=$P(XXX(2),U,6) "RTN","ONCOTNO",55,0) .S ONCON=$P(XXX(2),U,7) "RTN","ONCOTNO",56,0) .S ONCOM=$P(XXX(2),U,8) "RTN","ONCOTNO",57,0) I ONCOT'="" D "RTN","ONCOTNO",58,0) .S ONCOTNM="T"_ONCOT "RTN","ONCOTNO",59,0) .N ONCOMULT S ONCOMULT=$P($G(^ONCO(165.5,D0,2)),U,31) ;multiple tumors "RTN","ONCOTNO",60,0) .I ONCOMULT S ONCOTNM=ONCOTNM_"m" S:ONCOMULT>1 ONCOTNM=ONCOTNM_ONCOMULT "RTN","ONCOTNO",61,0) .N ONCOMT S ONCOMT="" "RTN","ONCOTNO",62,0) .I STGIND="C" D "RTN","ONCOTNO",63,0) ..S:$P($G(^ONCO(165.5,D0,0)),U,16)<2980000 ONCOMT=$P($G(^ONCO(165.5,D0,7)),U,16) "RTN","ONCOTNO",64,0) .I STGIND="P" D "RTN","ONCOTNO",65,0) ..S ONCOMT=$P($G(^ONCO(165.5,D0,7)),U,17) "RTN","ONCOTNO",66,0) .S COC=$P($G(^ONCO(165.5,D0,0)),U,4) "RTN","ONCOTNO",67,0) .I COC=5 S ONCOTNM="a"_ONCOTNM ;a Prefix "RTN","ONCOTNO",68,0) .I ONCOMT="Y" S ONCOTNM="y"_ONCOTNM ;Multimodality therapy "RTN","ONCOTNO",69,0) .I TOP=67692,$P(XXX(2),U,32) S ONCOTNM=ONCOTNM_"f" ;Family History "RTN","ONCOTNO",70,0) .I TOP=67692,$P(XXX(3),U,30) S ONCOTNM=ONCOTNM_"d" ;Diffuse Retinal Involvement "RTN","ONCOTNO",71,0) S:(ONCOTNM'="")&(ONCON'="") ONCOTNM=ONCOTNM_" " "RTN","ONCOTNO",72,0) S:ONCON'="" ONCOTNM=ONCOTNM_"N"_ONCON "RTN","ONCOTNO",73,0) S:(ONCOTNM'="")&(ONCOM'="") ONCOTNM=ONCOTNM_" " "RTN","ONCOTNO",74,0) S:ONCOM'="" ONCOTNM=ONCOTNM_"M"_ONCOM "RTN","ONCOTNO",75,0) I TOP=67619 S G=$P(^ONCO(165.5,D0,2),U,5),ONCOTNM=ONCOTNM_" G"_G "RTN","ONCOTNO",76,0) I $$GTT^ONCOU55(D0) D K RF "RTN","ONCOTNO",77,0) .S:$G(STGIND)="C" RF=$$GET1^DIQ(165.5,D0,134,"I") "RTN","ONCOTNO",78,0) .S:$G(STGIND)="P" RF=$$GET1^DIQ(165.5,D0,135,"I") "RTN","ONCOTNO",79,0) .S:$G(STGIND)="O" RF=$$GET1^DIQ(165.5,D0,134,"I") "RTN","ONCOTNO",80,0) .S RF=$S(RF=0:"0RF",(RF=1)!(RF=2):"1RF",RF=3:"2RF",RF="U":"Unknown",RF="L":"Low risk",RF="H":"High risk",1:RF) "RTN","ONCOTNO",81,0) .S ONCOTNM=ONCOTNM_" "_RF "RTN","ONCOTNO",82,0) I $$T^ONCOU55(D0) D K STM "RTN","ONCOTNO",83,0) .S STM=$P($G(^ONCO(165.5,D0,24)),U,8) "RTN","ONCOTNO",84,0) .S ONCOTNM=ONCOTNM_" "_STM "RTN","ONCOTNO",85,0) Q ONCOTNM "RTN","ONCPAT") 0^12^B47015316 "RTN","ONCPAT",1,0) ONCPAT ;Hines OIFO/GWB - PATIENT IDENTIFICATION ;12/08/00 "RTN","ONCPAT",2,0) ;;2.11;ONCOLOGY;**27,32,33,34,37,41,45,49,50**;Mar 07, 1995;Build 29 "RTN","ONCPAT",3,0) ; "RTN","ONCPAT",4,0) W ! "RTN","ONCPAT",5,0) K DR "RTN","ONCPAT",6,0) N DA "RTN","ONCPAT",7,0) S DIE="^ONCO(160,",DA=ONCOD0,DR="" "RTN","ONCPAT",8,0) S DR(1,160,1)="7 PLACE OF BIRTH............." "RTN","ONCPAT",9,0) S DR(1,160,2)="8 RACE 1.....................//^S X=RACE" "RTN","ONCPAT",10,0) S DR(1,160,3)="I X'=99 S Y=""@81""" "RTN","ONCPAT",11,0) S DR(1,160,4)="8.1////99" "RTN","ONCPAT",12,0) S DR(1,160,5)="8.2////99" "RTN","ONCPAT",13,0) S DR(1,160,6)="8.3////99" "RTN","ONCPAT",14,0) S DR(1,160,7)="8.4////99" "RTN","ONCPAT",15,0) S DR(1,160,8)="W !,"" RACE 2.....................: Unknown""" "RTN","ONCPAT",16,0) S DR(1,160,9)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",17,0) S DR(1,160,10)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",18,0) S DR(1,160,11)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",19,0) S DR(1,160,12)="S Y=9" "RTN","ONCPAT",20,0) S DR(1,160,13)="@81" "RTN","ONCPAT",21,0) S DR(1,160,14)="8.1 RACE 2.....................//NA" "RTN","ONCPAT",22,0) S DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")" "RTN","ONCPAT",23,0) S DR(1,160,16)="@8288" "RTN","ONCPAT",24,0) S DR(1,160,17)="8.2////88" "RTN","ONCPAT",25,0) S DR(1,160,18)="8.3////88" "RTN","ONCPAT",26,0) S DR(1,160,19)="8.4////88" "RTN","ONCPAT",27,0) S DR(1,160,20)="W !,"" RACE 3.....................: NA""" "RTN","ONCPAT",28,0) S DR(1,160,21)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",29,0) S DR(1,160,22)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",30,0) S DR(1,160,23)="S Y=9" "RTN","ONCPAT",31,0) S DR(1,160,24)="@8299" "RTN","ONCPAT",32,0) S DR(1,160,25)="8.2////99" "RTN","ONCPAT",33,0) S DR(1,160,26)="8.3////99" "RTN","ONCPAT",34,0) S DR(1,160,27)="8.4////99" "RTN","ONCPAT",35,0) S DR(1,160,28)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",36,0) S DR(1,160,29)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",37,0) S DR(1,160,30)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",38,0) S DR(1,160,31)="S Y=9" "RTN","ONCPAT",39,0) S DR(1,160,32)="@8200" "RTN","ONCPAT",40,0) S DR(1,160,33)="8.2////@" "RTN","ONCPAT",41,0) S DR(1,160,34)="8.3////@" "RTN","ONCPAT",42,0) S DR(1,160,35)="8.4////@" "RTN","ONCPAT",43,0) S DR(1,160,36)="W !,"" RACE 3.....................:""" "RTN","ONCPAT",44,0) S DR(1,160,37)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",45,0) S DR(1,160,38)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",46,0) S DR(1,160,39)="S Y=9" "RTN","ONCPAT",47,0) S DR(1,160,40)="@82" "RTN","ONCPAT",48,0) S DR(1,160,41)="8.2 RACE 3.....................//NA" "RTN","ONCPAT",49,0) S DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")" "RTN","ONCPAT",50,0) S DR(1,160,43)="@8388" "RTN","ONCPAT",51,0) S DR(1,160,44)="8.3////88" "RTN","ONCPAT",52,0) S DR(1,160,45)="8.4////88" "RTN","ONCPAT",53,0) S DR(1,160,46)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",54,0) S DR(1,160,47)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",55,0) S DR(1,160,48)="S Y=9" "RTN","ONCPAT",56,0) S DR(1,160,49)="@8399" "RTN","ONCPAT",57,0) S DR(1,160,50)="8.3////99" "RTN","ONCPAT",58,0) S DR(1,160,51)="8.4////99" "RTN","ONCPAT",59,0) S DR(1,160,52)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",60,0) S DR(1,160,53)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",61,0) S DR(1,160,54)="S Y=9" "RTN","ONCPAT",62,0) S DR(1,160,55)="@8300" "RTN","ONCPAT",63,0) S DR(1,160,56)="8.3////@" "RTN","ONCPAT",64,0) S DR(1,160,57)="8.4////@" "RTN","ONCPAT",65,0) S DR(1,160,58)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",66,0) S DR(1,160,59)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",67,0) S DR(1,160,60)="S Y=9" "RTN","ONCPAT",68,0) S DR(1,160,61)="@83" "RTN","ONCPAT",69,0) S DR(1,160,62)="8.3 RACE 4.....................//NA" "RTN","ONCPAT",70,0) S DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")" "RTN","ONCPAT",71,0) S DR(1,160,64)="@8488" "RTN","ONCPAT",72,0) S DR(1,160,65)="8.4////88" "RTN","ONCPAT",73,0) S DR(1,160,66)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",74,0) S DR(1,160,67)="S Y=9" "RTN","ONCPAT",75,0) S DR(1,160,68)="@8499" "RTN","ONCPAT",76,0) S DR(1,160,69)="8.4////99" "RTN","ONCPAT",77,0) S DR(1,160,70)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",78,0) S DR(1,160,71)="S Y=9" "RTN","ONCPAT",79,0) S DR(1,160,72)="@8400" "RTN","ONCPAT",80,0) S DR(1,160,73)="8.4////@" "RTN","ONCPAT",81,0) S DR(1,160,74)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",82,0) S DR(1,160,75)="S Y=9" "RTN","ONCPAT",83,0) S DR(1,160,76)="@84" "RTN","ONCPAT",84,0) S DR(1,160,77)="8.4 RACE 5.....................//NA" "RTN","ONCPAT",85,0) S DR(1,160,78)="9 SPANISH ORIGIN.............//^S X=""Non-Spanish, non-Hispanic""" "RTN","ONCPAT",86,0) S DR(1,160,79)="10 SEX........................" "RTN","ONCPAT",87,0) S DR(1,160,80)="48 AGENT ORANGE EXPOSURE......//^S X=AOE" "RTN","ONCPAT",88,0) S DR(1,160,81)="50 IONIZING RADIATION EXPOSURE//^S X=IRE" "RTN","ONCPAT",89,0) S DR(1,160,82)="52 CHEMICAL EXPOSURE.........." "RTN","ONCPAT",90,0) S DR(1,160,83)="61 ASBESTOS EXPOSURE.........." "RTN","ONCPAT",91,0) S DR(1,160,84)="62 VIETNAM SERVICE............//^S X=VSI" "RTN","ONCPAT",92,0) S DR(1,160,85)="55 LEBANON SERVICE............//^S X=LSI" "RTN","ONCPAT",93,0) S DR(1,160,86)="63 GRENADA SERVICE............//^S X=GSI" "RTN","ONCPAT",94,0) S DR(1,160,86.1)="64 PANAMA SERVICE.............//^S X=PSI" "RTN","ONCPAT",95,0) S DR(1,160,86.2)="51 PERSIAN GULF SERVICE.......//^S X=PGS" "RTN","ONCPAT",96,0) S DR(1,160,86.3)="56 SOMALIA SERVICE............//^S X=SSI" "RTN","ONCPAT",97,0) S DR(1,160,86.4)="65 YUGOSLAVIA SERVICE.........//^S X=YSI" "RTN","ONCPAT",98,0) S DR(1,160,86.5)="67 AFGHANISTAN (OEF) SERVICE..//^S X=OEF" "RTN","ONCPAT",99,0) S DR(1,160,86.6)="66 IRAQ (OIF) SERVICE.........//^S X=OIF" "RTN","ONCPAT",100,0) S DR(1,160,87)="W ! K DIR S DIR(0)=""E"" D ^DIR" "RTN","ONCPAT",101,0) S DR(1,160,88)="I $D(DIRUT) S Y=""@99""" "RTN","ONCPAT",102,0) S DR(1,160,89)="W @IOF" "RTN","ONCPAT",103,0) S DR(1,160,90)="W !?4,""Patient name: "",ONCONAM,!" "RTN","ONCPAT",104,0) S DR(1,160,91)="D CC^ONCPAT1" "RTN","ONCPAT",105,0) S DR(1,160,92)="D ^ONCPL" "RTN","ONCPAT",106,0) S DR(1,160,93)="I $D(DIRUT) S Y=""@99""" "RTN","ONCPAT",107,0) S DR(1,160,94)="25 COMORBIDITY/COMPLICATION #1" "RTN","ONCPAT",108,0) S DR(1,160,95)="I X'="""" S Y=""@251""" "RTN","ONCPAT",109,0) S DR(1,160,96)="25.1////@" "RTN","ONCPAT",110,0) S DR(1,160,97)="25.2////@" "RTN","ONCPAT",111,0) S DR(1,160,98)="25.3////@" "RTN","ONCPAT",112,0) S DR(1,160,99)="25.4////@" "RTN","ONCPAT",113,0) S DR(1,160,100)="25.5////@" "RTN","ONCPAT",114,0) S DR(1,160,101)="25.6////@" "RTN","ONCPAT",115,0) S DR(1,160,102)="25.7////@" "RTN","ONCPAT",116,0) S DR(1,160,103)="25.8////@" "RTN","ONCPAT",117,0) S DR(1,160,104)="25.9////@" "RTN","ONCPAT",118,0) S DR(1,160,105)="D CC2^ONCPAT1" "RTN","ONCPAT",119,0) S DR(1,160,106)="S Y=""@99""" "RTN","ONCPAT",120,0) S DR(1,160,107)="@251" "RTN","ONCPAT",121,0) S DR(1,160,108)="25.1 COMORBIDITY/COMPLICATION #2" "RTN","ONCPAT",122,0) S DR(1,160,109)="I X'="""" S Y=""@252""" "RTN","ONCPAT",123,0) S DR(1,160,110)="25.2////@" "RTN","ONCPAT",124,0) S DR(1,160,111)="25.3////@" "RTN","ONCPAT",125,0) S DR(1,160,112)="25.4////@" "RTN","ONCPAT",126,0) S DR(1,160,113)="25.5////@" "RTN","ONCPAT",127,0) S DR(1,160,114)="25.6////@" "RTN","ONCPAT",128,0) S DR(1,160,115)="25.7////@" "RTN","ONCPAT",129,0) S DR(1,160,116)="25.8////@" "RTN","ONCPAT",130,0) S DR(1,160,117)="25.9////@" "RTN","ONCPAT",131,0) S DR(1,160,118)="D CC3^ONCPAT1" "RTN","ONCPAT",132,0) S DR(1,160,119)="S Y=""@99""" "RTN","ONCPAT",133,0) S DR(1,160,120)="@252" "RTN","ONCPAT",134,0) S DR(1,160,121)="25.2 COMORBIDITY/COMPLICATION #3" "RTN","ONCPAT",135,0) S DR(1,160,122)="I X'="""" S Y=""@253""" "RTN","ONCPAT",136,0) S DR(1,160,123)="25.3////@" "RTN","ONCPAT",137,0) S DR(1,160,124)="25.4////@" "RTN","ONCPAT",138,0) S DR(1,160,125)="25.5////@" "RTN","ONCPAT",139,0) S DR(1,160,126)="25.6////@" "RTN","ONCPAT",140,0) S DR(1,160,127)="25.7////@" "RTN","ONCPAT",141,0) S DR(1,160,128)="25.8////@" "RTN","ONCPAT",142,0) S DR(1,160,129)="25.9////@" "RTN","ONCPAT",143,0) S DR(1,160,130)="D CC4^ONCPAT1" "RTN","ONCPAT",144,0) S DR(1,160,131)="S Y=""@99""" "RTN","ONCPAT",145,0) S DR(1,160,132)="@253" "RTN","ONCPAT",146,0) S DR(1,160,133)="25.3 COMORBIDITY/COMPLICATION #4" "RTN","ONCPAT",147,0) S DR(1,160,134)="I X'="""" S Y=""@254""" "RTN","ONCPAT",148,0) S DR(1,160,135)="25.4////@" "RTN","ONCPAT",149,0) S DR(1,160,136)="25.5////@" "RTN","ONCPAT",150,0) S DR(1,160,137)="25.6////@" "RTN","ONCPAT",151,0) S DR(1,160,138)="25.7////@" "RTN","ONCPAT",152,0) S DR(1,160,139)="25.8////@" "RTN","ONCPAT",153,0) S DR(1,160,140)="25.9////@" "RTN","ONCPAT",154,0) S DR(1,160,141)="D CC5^ONCPAT1" "RTN","ONCPAT",155,0) S DR(1,160,142)="S Y=""@99""" "RTN","ONCPAT",156,0) S DR(1,160,143)="@254" "RTN","ONCPAT",157,0) S DR(1,160,144)="25.4 COMORBIDITY/COMPLICATION #5" "RTN","ONCPAT",158,0) S DR(1,160,145)="I X'="""" S Y=""@255""" "RTN","ONCPAT",159,0) S DR(1,160,146)="25.5////@" "RTN","ONCPAT",160,0) S DR(1,160,147)="25.6////@" "RTN","ONCPAT",161,0) S DR(1,160,148)="25.7////@" "RTN","ONCPAT",162,0) S DR(1,160,149)="25.8////@" "RTN","ONCPAT",163,0) S DR(1,160,150)="25.9////@" "RTN","ONCPAT",164,0) S DR(1,160,151)="D CC6^ONCPAT1" "RTN","ONCPAT",165,0) S DR(1,160,152)="S Y=""@99""" "RTN","ONCPAT",166,0) S DR(1,160,153)="@255" "RTN","ONCPAT",167,0) S DR(1,160,154)="25.5 COMORBIDITY/COMPLICATION #6" "RTN","ONCPAT",168,0) S DR(1,160,155)="I X'="""" S Y=""@256""" "RTN","ONCPAT",169,0) S DR(1,160,156)="25.6////@" "RTN","ONCPAT",170,0) S DR(1,160,157)="25.7////@" "RTN","ONCPAT",171,0) S DR(1,160,158)="25.8////@" "RTN","ONCPAT",172,0) S DR(1,160,159)="25.9////@" "RTN","ONCPAT",173,0) S DR(1,160,160)="D CC7^ONCPAT1" "RTN","ONCPAT",174,0) S DR(1,160,161)="S Y=""@99""" "RTN","ONCPAT",175,0) S DR(1,160,162)="@256" "RTN","ONCPAT",176,0) S DR(1,160,163)="25.6 COMORBIDITY/COMPLICATION #7" "RTN","ONCPAT",177,0) S DR(1,160,164)="I X'="""" S Y=""@257""" "RTN","ONCPAT",178,0) S DR(1,160,165)="25.7////@" "RTN","ONCPAT",179,0) S DR(1,160,166)="25.8////@" "RTN","ONCPAT",180,0) S DR(1,160,167)="25.9////@" "RTN","ONCPAT",181,0) S DR(1,160,168)="D CC8^ONCPAT1" "RTN","ONCPAT",182,0) S DR(1,160,169)="S Y=""@99""" "RTN","ONCPAT",183,0) S DR(1,160,170)="@257" "RTN","ONCPAT",184,0) S DR(1,160,171)="25.7 COMORBIDITY/COMPLICATION #8" "RTN","ONCPAT",185,0) S DR(1,160,172)="I X'="""" S Y=""@258""" "RTN","ONCPAT",186,0) S DR(1,160,173)="25.8////@" "RTN","ONCPAT",187,0) S DR(1,160,174)="25.9////@" "RTN","ONCPAT",188,0) S DR(1,160,175)="D CC9^ONCPAT1" "RTN","ONCPAT",189,0) S DR(1,160,176)="S Y=""@99""" "RTN","ONCPAT",190,0) S DR(1,160,177)="@258" "RTN","ONCPAT",191,0) S DR(1,160,178)="25.8 COMORBIDITY/COMPLICATION #9" "RTN","ONCPAT",192,0) S DR(1,160,179)="I X'="""" S Y=""@259""" "RTN","ONCPAT",193,0) S DR(1,160,180)="25.9////@" "RTN","ONCPAT",194,0) S DR(1,160,181)="D CC10^ONCPAT1" "RTN","ONCPAT",195,0) S DR(1,160,182)="S Y=""@99""" "RTN","ONCPAT",196,0) S DR(1,160,183)="@259" "RTN","ONCPAT",197,0) S DR(1,160,184)="25.9 COMORBIDITY/COMPLICATION #10" "RTN","ONCPAT",198,0) S DR(1,160,185)="@99" "RTN","ONCPAT",199,0) D ^DIE "RTN","ONCPAT",200,0) K AOE,DIE,DR,IRE,GSI,LSI,OEF,OIF,PGS,PSI,SSI,VSI,YSI "RTN","ONCPAT",201,0) Q "RTN","ONCPDI") 0^13^B7271535 "RTN","ONCPDI",1,0) ONCPDI ;Hines OIFO/GWB - Patient information ;9/24/97 "RTN","ONCPDI",2,0) ;;2.11;ONCOLOGY;**18,27,33,34,37,45,49,50**;Mar 07, 1995;Build 29 "RTN","ONCPDI",3,0) ; "RTN","ONCPDI",4,0) PRT N DI,DIC,DR,DA,DIQ "RTN","ONCPDI",5,0) K ONC "RTN","ONCPDI",6,0) S DIC="^ONCO(160,",DR="7;8;8.1;8.2;8.3;8.4;9;10;25;25.1;25.2;25.3;25.4;25.5;25.6;25.7;25.8;25.9;48;50;51;52;61;55;56;62;63;64;65;66;67" "RTN","ONCPDI",7,0) S DA=D0,DIQ="ONC" "RTN","ONCPDI",8,0) D EN^DIQ1 "RTN","ONCPDI",9,0) F I=7,8,8.1,8.2,8.3,8.4,9,10,48,50,51,52,61,55,56,62,63,64,65,66,67 S X=ONC(160,D0,I) D UCASE^ONCPCI S ONC(160,D0,I)=X "RTN","ONCPDI",10,0) W ! "RTN","ONCPDI",11,0) W !," Place of birth.............: ",ONC(160,D0,7) "RTN","ONCPDI",12,0) W !," Race 1.....................: ",ONC(160,D0,8) "RTN","ONCPDI",13,0) W !," Race 2.....................: ",ONC(160,D0,8.1) "RTN","ONCPDI",14,0) W !," Race 3.....................: ",ONC(160,D0,8.2) "RTN","ONCPDI",15,0) W !," Race 4.....................: ",ONC(160,D0,8.3) "RTN","ONCPDI",16,0) W !," Race 5.....................: ",ONC(160,D0,8.4) "RTN","ONCPDI",17,0) W !," Spanish origin.............: ",ONC(160,D0,9) "RTN","ONCPDI",18,0) W !," Sex........................: ",ONC(160,D0,10) "RTN","ONCPDI",19,0) W !," Agent Orange exposure......: ",ONC(160,D0,48) "RTN","ONCPDI",20,0) W !," Ionizing radiation exposure: ",ONC(160,D0,50) "RTN","ONCPDI",21,0) W !," Chemical exposure..........: ",ONC(160,D0,52) "RTN","ONCPDI",22,0) W !," Asbestos exposure..........: ",ONC(160,D0,61) "RTN","ONCPDI",23,0) W !," Vietnam service............: ",ONC(160,D0,62) "RTN","ONCPDI",24,0) W !," Lebanon service............: ",ONC(160,D0,55) "RTN","ONCPDI",25,0) W !," Grenada service............: ",ONC(160,D0,63) "RTN","ONCPDI",26,0) W !," Panama service.............: ",ONC(160,D0,64) "RTN","ONCPDI",27,0) W !," Persian Gulf service.......: ",ONC(160,D0,51) "RTN","ONCPDI",28,0) W !," Somalia service............: ",ONC(160,D0,56) "RTN","ONCPDI",29,0) W !," Yugoslavia service.........: ",ONC(160,D0,65) "RTN","ONCPDI",30,0) W !," Afghanistan (OEF) service..: ",ONC(160,D0,67) "RTN","ONCPDI",31,0) W !," Iraq (OIF) service.........: ",ONC(160,D0,66) "RTN","ONCPDI",32,0) Q "RTN","ONCPDI",33,0) ; "RTN","ONCPDI",34,0) PH ;Patient History "RTN","ONCPDI",35,0) K ONC S IEN=D0_"," "RTN","ONCPDI",36,0) D GETS^DIQ(160,IEN,"38;39;42*;43;44*","","ONC") "RTN","ONCPDI",37,0) F I=38,39,43 S X=ONC(160,D0_",",I) D UCASE^ONCPCI S ONC(160,D0_",",I)=X "RTN","ONCPDI",38,0) W @IOF "RTN","ONCPDI",39,0) S SUB=0 F S SUB=$O(ONC(160.042,SUB)) Q:SUB'>0 D "RTN","ONCPDI",40,0) .W !," Usual Occupation...........: ",ONC(160.042,SUB,.01) "RTN","ONCPDI",41,0) .W !," Usual Industry.............: ",ONC(160.042,SUB,3) "RTN","ONCPDI",42,0) .W ! "RTN","ONCPDI",43,0) W !," Tobacco History............: ",ONC(160,IEN,38) "RTN","ONCPDI",44,0) W !," Alcohol History............: ",ONC(160,IEN,39) "RTN","ONCPDI",45,0) W ! "RTN","ONCPDI",46,0) W !," Family History of Cancer...: ",ONC(160,IEN,43) "RTN","ONCPDI",47,0) S SUB=0 F S SUB=$O(ONC(160.044,SUB)) Q:SUB'>0 D "RTN","ONCPDI",48,0) .W !," Family Member with Cancer..: ",ONC(160.044,SUB,.01),?50,"(",ONC(160.044,SUB,1),")" "RTN","ONCPDI",49,0) W ! "RTN","ONCPDI",50,0) K I,IEN,ONC,SUB,X "RTN","ONCPDI",51,0) Q "RTN","ONCPHC") 0^19^B4459971 "RTN","ONCPHC",1,0) ONCPHC ;Hines OIFO/GWB - OTHER CANCER (165.5,148) ;05/31/02 "RTN","ONCPHC",2,0) ;;2.11;ONCOLOGY;**33,36,50**;Mar 07, 1995;Build 29 "RTN","ONCPHC",3,0) ; "RTN","ONCPHC",4,0) PHCDEF ;OTHER CANCER (165.5,148) defaults "RTN","ONCPHC",5,0) S SEQNO=+$P(^ONCO(165.5,D0,0),U,6) "RTN","ONCPHC",6,0) S PHCDEF="No" "RTN","ONCPHC",7,0) S PHCDEF(1)="NOT APPLICABLE" "RTN","ONCPHC",8,0) S PHCDEF(2)="NOT APPLICABLE" "RTN","ONCPHC",9,0) S PHCDEF(3)="NOT APPLICABLE" "RTN","ONCPHC",10,0) S PHCDEF(4)="NOT APPLICABLE" "RTN","ONCPHC",11,0) S PRIM=0,PRIMCNT=0 "RTN","ONCPHC",12,0) F S PRIM=$O(^ONCO(165.5,"C",ONCOD0,PRIM)) Q:PRIM'>0 D "RTN","ONCPHC",13,0) .I PRIM=D0 Q "RTN","ONCPHC",14,0) .S PHSEQNO=+$P(^ONCO(165.5,PRIM,0),U,6) "RTN","ONCPHC",15,0) .I (PHSEQNO>SEQNO)!(PHSEQNO=SEQNO) Q "RTN","ONCPHC",16,0) .S PRIMCNT=PRIMCNT+1 "RTN","ONCPHC",17,0) .S PHC=$P(^ONCO(165.5,PRIM,0),U,1) "RTN","ONCPHC",18,0) .S PHCDEF(PRIMCNT)=$P(^ONCO(164.2,PHC,0),U,1) "RTN","ONCPHC",19,0) .S PHCDEF="Yes" "RTN","ONCPHC",20,0) S:PHCDEF(1)'="" DIE("PTRIX",165.5,148.1,164.2)="B" "RTN","ONCPHC",21,0) S:PHCDEF(2)'="" DIE("PTRIX",165.5,148.2,164.2)="B" "RTN","ONCPHC",22,0) S:PHCDEF(3)'="" DIE("PTRIX",165.5,148.3,164.2)="B" "RTN","ONCPHC",23,0) S:PHCDEF(4)'="" DIE("PTRIX",165.5,148.4,164.2)="B" "RTN","ONCPHC",24,0) K SEQNO,PRIM,PRIMCNT,PHSEQNO,PHC Q "RTN","ONCPHC",25,0) ; "RTN","ONCPHC",26,0) PHCDSP ;OTHER CANCER (165.5,148) display "RTN","ONCPHC",27,0) N HDL "RTN","ONCPHC",28,0) S HDL=$L("Patient Identification"),TAB=(80-HDL)\2,TAB=TAB-1 "RTN","ONCPHC",29,0) W @IOF,DASHES "RTN","ONCPHC",30,0) W !,?1,PATNAM,?TAB,"Patient Identification",?SITTAB,SITEGP "RTN","ONCPHC",31,0) W !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD "RTN","ONCPHC",32,0) W !,DASHES "RTN","ONCPHC",33,0) W !," OTHER CANCER" "RTN","ONCPHC",34,0) W !," ------------" "RTN","ONCPHC",35,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPHC",36,0) S DIC="^ONCO(165.5," "RTN","ONCPHC",37,0) S DR="148:148.4" "RTN","ONCPHC",38,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPHC",39,0) S X=ONC(165.5,D0,148) D UCASE S ONC(165.5,D0,148)=X "RTN","ONCPHC",40,0) W !," Other Cancer...................: ",ONC(165.5,D0,148) "RTN","ONCPHC",41,0) W !," Cancer #1......................: ",ONC(165.5,D0,148.1) "RTN","ONCPHC",42,0) W !," Cancer #2......................: ",ONC(165.5,D0,148.2) "RTN","ONCPHC",43,0) W !," Cancer #3......................: ",ONC(165.5,D0,148.3) "RTN","ONCPHC",44,0) W !," Cancer #4......................: ",ONC(165.5,D0,148.4) "RTN","ONCPHC",45,0) W !,DASHES "RTN","ONCPHC",46,0) Q "RTN","ONCPHC",47,0) ; "RTN","ONCPHC",48,0) UCASE S X=$TR(X,"abcdefghijklmnopqrstuvwxyz","ABCDEFGHIJKLMNOPQRSTUVWXYZ") "RTN","ONCPHC",49,0) Q "RTN","ONCPL") 0^3^B3168179 "RTN","ONCPL",1,0) ONCPL ;Hines OIFO/GWB - ONCOLOGY PROBLEM LIST ;07/14/04 "RTN","ONCPL",2,0) ;;2.11;ONCOLOGY;**41,42,45,50**;Mar 07, 1995;Build 29 "RTN","ONCPL",3,0) ; "RTN","ONCPL",4,0) K ONCPL,PL "RTN","ONCPL",5,0) N DIR,DPTIEN,ICD,ONS,ONSDT,SAVEY,SUB,X "RTN","ONCPL",6,0) S SAVEY=Y "RTN","ONCPL",7,0) W ! "RTN","ONCPL",8,0) W !," Would you like to see a PROBLEM LIST for this patient to assist" "RTN","ONCPL",9,0) S DIR("A")=" you in entering the COMORBIDITY/COMPLICATION #1-10 prompts" "RTN","ONCPL",10,0) S DIR(0)="Y",DIR("B")="Yes" D ^DIR "RTN","ONCPL",11,0) I (Y=0)!(Y="") W ! S Y=SAVEY Q "RTN","ONCPL",12,0) I Y[U S Y=SAVEY Q "RTN","ONCPL",13,0) I $P(^ONCO(160,D0,0),U,1)["LRT" W !!," No PROBLEM LIST for this patient." W ! S Y=SAVEY Q "RTN","ONCPL",14,0) S DPTIEN=$P(^ONCO(160,D0,0),";",1) "RTN","ONCPL",15,0) ;Supported by IA #928 "RTN","ONCPL",16,0) D ACTIVE^GMPLUTL(DPTIEN,.ONCPL) "RTN","ONCPL",17,0) I ONCPL(0)=0 W !!," No PROBLEM LIST for this patient." W ! S Y=SAVEY Q "RTN","ONCPL",18,0) S SUB=0 F S SUB=$O(ONCPL(SUB)) Q:SUB'>0 D "RTN","ONCPL",19,0) .S ICD=$$ICDDX^ICDCODE($P(ONCPL(SUB,2),U,1)) Q:+ICD=-1 "RTN","ONCPL",20,0) .S ONS=$P(ONCPL(SUB,3),U,1) S:ONS="" ONS="UNKNOWN"_SUB "RTN","ONCPL",21,0) .S PL(ONS)=$P(ICD,U,2)_U_$P(ICD,U,4) "RTN","ONCPL",22,0) I '$D(PL) W !!," No PROBLEM LIST for this patient." W ! S Y=SAVEY Q "RTN","ONCPL",23,0) W ! "RTN","ONCPL",24,0) W !,"DATE OF ONSET"," ","ICD DIAGNOSIS" "RTN","ONCPL",25,0) W !,"------------- -------------------------------------------" "RTN","ONCPL",26,0) S ONS=0 F S ONS=$O(PL(ONS)) Q:ONS="" D "RTN","ONCPL",27,0) .I ONS["UNKNOWN" S ONSDT="UNKNOWN" "RTN","ONCPL",28,0) .I ONS'["UNKNOWN" S Y=ONS D DD^%DT S ONSDT=Y "RTN","ONCPL",29,0) .W !,ONSDT,?15,$P(PL(ONS),U,1),?24,$P(PL(ONS),U,2) "RTN","ONCPL",30,0) W ! "RTN","ONCPL",31,0) S Y=SAVEY Q "RTN","ONCPRE50") 0^14^B271835 "RTN","ONCPRE50",1,0) ONCPRE50 ;Hines OIFO/GWB - PRE-INSTALL routine for patch ONC*2.11*50 "RTN","ONCPRE50",2,0) ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29 "RTN","ONCPRE50",3,0) ; "RTN","ONCPRE50",4,0) ITEM8 ;ADDITIONAL SERVICE INDICATORS "RTN","ONCPRE50",5,0) ;Kill AGENT ORANGE EXPOSURE (160,48) and "RTN","ONCPRE50",6,0) ;IONIZING RADIATION EXPOSURE (160,50) to remove extraneous 9.1 nodes "RTN","ONCPRE50",7,0) S DIK="^DD(160,",DA=48,DA(1)=160 D ^DIK "RTN","ONCPRE50",8,0) S DIK="^DD(160,",DA=50,DA(1)=160 D ^DIK "RTN","ONCPRE50",9,0) K DA,DIK "RTN","ONCPRE50",10,0) ; "RTN","ONCPRE50",11,0) ITEM16 ;ONCOLOGY DATA EXTRACT FORMAT (#160.16) "RTN","ONCPRE50",12,0) K ^ONCO(160.16) "RTN","ONCPRE50",13,0) K ^ONCO(160.17) "RTN","ONCPRE50",14,0) ; "RTN","ONCPRE50",15,0) ;Delete MIDDLE NAME (160,.015) to remove extranious 9.2 and 9.3 nodes "RTN","ONCPRE50",16,0) S DIK="^DD(160,",DA=.015,DA(1)=160 D ^DIK "RTN","ONCPST50") 0^8^B7007227 "RTN","ONCPST50",1,0) ONCPST50 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*50 ;03/27/09 "RTN","ONCPST50",2,0) ;;2.11;ONCOLOGY;**50**;Mar 07, 1995;Build 29 "RTN","ONCPST50",3,0) ; "RTN","ONCPST50",4,0) ITEM6 ;Change FIN (160.19,.01) for NEW YORK VA MEDICAL CENTER from 10000000 "RTN","ONCPST50",5,0) ;to 10000033 "RTN","ONCPST50",6,0) S DIC="^ONCO(160.19,",X=10000000 D ^DIC "RTN","ONCPST50",7,0) I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".01///10000033" D ^DIE "RTN","ONCPST50",8,0) ; "RTN","ONCPST50",9,0) ;Change NAME (160.19,.02) for NEW YORK VA MEDICAL CENTER to ZZNEW YORK "RTN","ONCPST50",10,0) ;VA MEDICAL CENTER "RTN","ONCPST50",11,0) S DIC="^ONCO(160.19,",X=6213585 D ^DIC "RTN","ONCPST50",12,0) I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".02///ZZNEW YORK VA MEDICAL CENTER" D ^DIE "RTN","ONCPST50",13,0) K DA,DIC,DIE,DR,Y "RTN","ONCPST50",14,0) ; "RTN","ONCPST50",15,0) ITEM7 ;Change SEER COUNTY CODE (5.1,2) for MIAMI-DADE from 025 (or null) to "RTN","ONCPST50",16,0) ;086 "RTN","ONCPST50",17,0) ;Change NAME (5.1,.01) values to match PATIENT file COUNTY (2,.117) "RTN","ONCPST50",18,0) ;values "RTN","ONCPST50",19,0) S DIE="^VIC(5.1,",DA=1129,DR="2///086" D ^DIE "RTN","ONCPST50",20,0) S DIE="^VIC(5.1,",DA=1090,DR=".01///ST. JOHNS;2///109" D ^DIE "RTN","ONCPST50",21,0) S DIE="^VIC(5.1,",DA=1695,DR=".01///ST. CLAIR;2///147" D ^DIE "RTN","ONCPST50",22,0) S DIE="^VIC(5.1,",DA=1628,DR=".01///ST. JOSEPH;2///141" D ^DIE "RTN","ONCPST50",23,0) S DIE="^VIC(5.1,",DA=2223,DR=".01///ST. CHARLES;2///183" D ^DIE "RTN","ONCPST50",24,0) S DIE="^VIC(5.1,",DA=2173,DR=".01///ST. CLAIR;2///163" D ^DIE "RTN","ONCPST50",25,0) S DIE="^VIC(5.1,",DA=1808,DR=".01///ST. CROIX;2///109" D ^DIE "RTN","ONCPST50",26,0) S DIE="^VIC(5.1,",DA=1811,DR=".01///ST. CROIX" D ^DIE "RTN","ONCPST50",27,0) S DIE="^VIC(5.1,",DA=2219,DR=".01///ST. FRANCOIS;2///187" D ^DIE "RTN","ONCPST50",28,0) S DIE="^VIC(5.1,",DA=2216,DR=".01///ST. LOUIS;2///189" D ^DIE "RTN","ONCPST50",29,0) S DIE="^VIC(5.1,",DA=2222,DR=".01///ST. LOUIS (CITY);2///510" D ^DIE "RTN","ONCPST50",30,0) S DIE="^VIC(5.1,",DA=374,DR=".01///ST. THOMAS;2///030" D ^DIE "RTN","ONCPST50",31,0) ; "RTN","ONCPST50",32,0) ;Add ST. CROIX, ST. JOHN and ST. GENEVIEVE counties "RTN","ONCPST50",33,0) F IEN=0:0 S IEN=$O(^VIC(5.1,"B","ST. CROIX",IEN)) Q:IEN'>0 D "RTN","ONCPST50",34,0) .S STCROIX($P(^VIC(5.1,IEN,0),U,2))="" "RTN","ONCPST50",35,0) I '$D(STCROIX(78)) D "RTN","ONCPST50",36,0) .K DD,DO "RTN","ONCPST50",37,0) .S DIC="^VIC(5.1," "RTN","ONCPST50",38,0) .S DIC(0)="L" "RTN","ONCPST50",39,0) .S DIC("DR")="1///78;2///010",X="ST. CROIX" D FILE^DICN "RTN","ONCPST50",40,0) K STCROIX "RTN","ONCPST50",41,0) ; "RTN","ONCPST50",42,0) I '$D(^VIC(5.1,"B","ST. JOHN")) D "RTN","ONCPST50",43,0) .K DD,DO "RTN","ONCPST50",44,0) .S DIC="^VIC(5.1," "RTN","ONCPST50",45,0) .S DIC(0)="L" "RTN","ONCPST50",46,0) .S DIC("DR")="1///78;2///020",X="ST. JOHN" D FILE^DICN "RTN","ONCPST50",47,0) ; "RTN","ONCPST50",48,0) I '$D(^VIC(5.1,"B","ST. GENEVIEVE")) D "RTN","ONCPST50",49,0) .K DD,DO "RTN","ONCPST50",50,0) .S DIC="^VIC(5.1," "RTN","ONCPST50",51,0) .S DIC(0)="L" "RTN","ONCPST50",52,0) .S DIC("DR")="1///29;2///186",X="ST. GENEVIEVE" D FILE^DICN "RTN","ONCPST50",53,0) ; "RTN","ONCPST50",54,0) ;Convert COUNTY AT DX (165.5,10) pointer values of 2553 to 187 "RTN","ONCPST50",55,0) F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D "RTN","ONCPST50",56,0) .S CNTDX=$P($G(^ONCO(165.5,IEN,1)),U,3) "RTN","ONCPST50",57,0) .I CNTDX=2553 S $P(^ONCO(165.5,IEN,1),U,3)=187 "RTN","ONCPST50",58,0) ; "RTN","ONCPST50",59,0) ;Delete COUNTY (5.1) entry 2553 (SAINT BERNARD) "RTN","ONCPST50",60,0) S DIK="^VIC(5.1,",DA=2553 D ^DIK "RTN","ONCPST50",61,0) ; "RTN","ONCPST50",62,0) ;Convert COUNTY AT DX (165.5,10) pointer values of 2280 to 2216 "RTN","ONCPST50",63,0) F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D "RTN","ONCPST50",64,0) .S CNTDX=$P($G(^ONCO(165.5,IEN,1)),U,3) "RTN","ONCPST50",65,0) .I CNTDX=2280 S $P(^ONCO(165.5,IEN,1),U,3)=2216 "RTN","ONCPST50",66,0) ; "RTN","ONCPST50",67,0) ;Delete COUNTY (5.1) entry 2280 (SAINT LOUIS) "RTN","ONCPST50",68,0) S DIK="^VIC(5.1,",DA=2280 D ^DIK "RTN","ONCPST50",69,0) ; "RTN","ONCPST50",70,0) ;Convert COUNTY (5.11,2) pointer values of 2280 to 2216 "RTN","ONCPST50",71,0) ;Convert COUNTY (5.11,2) pointer values of 2553 to 187 "RTN","ONCPST50",72,0) S $P(^VIC(5.11,66001,0),U,3)=2216 "RTN","ONCPST50",73,0) S $P(^VIC(5.11,71034,0),U,3)=187 "RTN","ONCPST50",74,0) K CNTDX,DA,DIC,DIE,DIK,DR,IEN,X "RTN","ONCPST50",75,0) ; "RTN","ONCPST50",76,0) ITEM24 ;Re-stage 2003+ cases "RTN","ONCPST50",77,0) D ^ONCRESTG "RTN","ONCPTX") 0^46^B76002886 "RTN","ONCPTX",1,0) ONCPTX ;Hines OIFO/GWB - First Course of Treatment ;9/24/97 "RTN","ONCPTX",2,0) ;;2.11;ONCOLOGY;**13,15,17,19,27,32,34,36,37,39,41,42,45,46,49,50**;Mar 07, 1995;Build 29 "RTN","ONCPTX",3,0) ; "RTN","ONCPTX",4,0) NCDS ;Surgical Diagnostic and Staging Procedures "RTN","ONCPTX",5,0) D FST^ONCOAIP "RTN","ONCPTX",6,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",7,0) S CC=$P($G(^ONCO(165.5,D0,0)),U,4) "RTN","ONCPTX",8,0) I CC=4 D "RTN","ONCPTX",9,0) .W !," **NOTE** CLASS OF CASE = 4 (Dx/1st tx before ref date)" "RTN","ONCPTX",10,0) .W !," The @FAC (at this facility) fields will be stuffed to" "RTN","ONCPTX",11,0) .W !," match the primary treatment fields." "RTN","ONCPTX",12,0) .W !,DASH "RTN","ONCPTX",13,0) I (CC=0)!(CC=3)!(CC=6) D "RTN","ONCPTX",14,0) .S CCTXT=$S(CC=0:"0 (Dx here, 1st tx ew)",CC=3:"3 (Dx ew, 1st tx ew)",CC=6:"6 (Dx/1st tx in MD office)",1:CC) "RTN","ONCPTX",15,0) .W !," **NOTE** CLASS OF CASE = ",CCTXT "RTN","ONCPTX",16,0) .W !," The @FAC (at this facility) fields will be stuffed with the" "RTN","ONCPTX",17,0) .W !," appropriate value indicating that no treatment was given" "RTN","ONCPTX",18,0) .W !," at this facility." "RTN","ONCPTX",19,0) .W !,DASH "RTN","ONCPTX",20,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",21,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",22,0) S DR="58.1;58.3;58.4;58.5" "RTN","ONCPTX",23,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",24,0) F I=58.1,58.4 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",25,0) W !," SURGICAL DIAGNOSTIC AND STAGING PROCEDURES" "RTN","ONCPTX",26,0) W !," ------------------------------------------" "RTN","ONCPTX",27,0) S TXT=ONC(165.5,D0,58.1),LEN=38 D TXT "RTN","ONCPTX",28,0) W !," Surgical Dx/Staging Proc.....: ",ONC(165.5,D0,58.3),?43,TXT1 "RTN","ONCPTX",29,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",30,0) S TXT=ONC(165.5,D0,58.4),LEN=38 D TXT "RTN","ONCPTX",31,0) W !," Surg Dx/Staging Proc @fac....: ",ONC(165.5,D0,58.5),?43,TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",32,0) W !,DASH "RTN","ONCPTX",33,0) D KILL "RTN","ONCPTX",34,0) Q "RTN","ONCPTX",35,0) ; "RTN","ONCPTX",36,0) ROADS ;Surgical Procedures (ROADS) "RTN","ONCPTX",37,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",38,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",39,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",40,0) S DR="50;58.6;50.3;58.7;59;138:138.5;139:139.5;435;14;58;23;74;58.2;50.2;140;140.1" "RTN","ONCPTX",41,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",42,0) F I=58.6,58.7,59,138,138.1,138.4,138.5,139,139.1,139.4,139.5,435,14,58,23,74,58.2,50.2,140,140.1 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",43,0) D FST^ONCOAIP "RTN","ONCPTX",44,0) W !," SURGICAL PROCEDURES (ROADS)" "RTN","ONCPTX",45,0) W !," Pre-2003 cases require the following ROADS surgery items to be coded:" "RTN","ONCPTX",46,0) W !," ---------------------------------------------------------------------" "RTN","ONCPTX",47,0) S TXT=ONC(165.5,D0,58.2),LEN=46 D TXT "RTN","ONCPTX",48,0) W !," Surgery of primary.........(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",49,0) W !," Surgical Approach..........(R): ",ONC(165.5,DA,74) "RTN","ONCPTX",50,0) S TXT=ONC(165.5,D0,50.2),LEN=46 D TXT "RTN","ONCPTX",51,0) W !," Surgery of primary @fac....(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",52,0) S TXT=ONC(165.5,D0,138),LEN=46 D TXT "RTN","ONCPTX",53,0) W !," Scope of ln surgery........(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",54,0) W !," Number of LN removed...... (R): ",ONC(165.5,D0,140) "RTN","ONCPTX",55,0) S TXT=ONC(165.5,D0,138.1),LEN=46 D TXT "RTN","ONCPTX",56,0) W !," Scope of ln surgery @fac...(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",57,0) W !," Number of LN removed @fac..(R): ",ONC(165.5,D0,140.1) "RTN","ONCPTX",58,0) S TXT=ONC(165.5,D0,139),LEN=46 D TXT "RTN","ONCPTX",59,0) W !," Surg proc/other site.......(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",60,0) S TXT=ONC(165.5,D0,139.1),LEN=46 D TXT "RTN","ONCPTX",61,0) W !," Surg proc/other site @fac..(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",62,0) W !,DASH "RTN","ONCPTX",63,0) D KILL "RTN","ONCPTX",64,0) Q "RTN","ONCPTX",65,0) ; "RTN","ONCPTX",66,0) FORDS ;Surgical Procedures (FORDS) "RTN","ONCPTX",67,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",68,0) S TOPX=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCPTX",69,0) I (TOPX=67420)!(TOPX=67421)!(TOPX=67423)!(TOPX=67424)!($E(TOPX,3,4)=76)!(TOPX=67809) D "RTN","ONCPTX",70,0) .S $P(^ONCO(165.5,D0,3.1),U,29)=1 "RTN","ONCPTX",71,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",72,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",73,0) S DR="50;58.6;50.3;58.7;59;138:138.5;139:139.5;435;14;58;23;74;58.2;50.2;140;140.1;170;46;47;228;229;230;231;232" "RTN","ONCPTX",74,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",75,0) F I=58.6,58.7,59,138,138.1,138.4,138.5,139,139.1,139.4,139.5,435,14,58,23,74,58.2,50.2,140,140.1 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",76,0) D FST^ONCOAIP "RTN","ONCPTX",77,0) W !," SURGICAL PROCEDURES (FORDS)" "RTN","ONCPTX",78,0) W !," ---------------------------" "RTN","ONCPTX",79,0) W !," Date First Surgical Procedure.: ",$E(ONC(165.5,D0,170),1,6)_$E(ONC(165.5,D0,170),9,10) "RTN","ONCPTX",80,0) S TXT=ONC(165.5,D0,58.6),LEN=38 D TXT "RTN","ONCPTX",81,0) W !," Surgery of primary.........(F): ",$E(ONC(165.5,D0,50),1,6)_$E(ONC(165.5,D0,50),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",82,0) S TXT=ONC(165.5,D0,58.7),LEN=38 D TXT "RTN","ONCPTX",83,0) W !," Surgery of primary @fac....(F): ",$E(ONC(165.5,D0,50.3),1,6)_$E(ONC(165.5,D0,50.3),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",84,0) W !," Surgical margins..............: ",ONC(165.5,DA,59) "RTN","ONCPTX",85,0) S TXT=ONC(165.5,D0,138.4),LEN=38 D TXT "RTN","ONCPTX",86,0) W !," Scope of ln surgery........(F): ",$E(ONC(165.5,D0,138.2),1,6)_$E(ONC(165.5,D0,138.2),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",87,0) S TXT=ONC(165.5,D0,138.5),LEN=38 D TXT "RTN","ONCPTX",88,0) W !," Scope of ln surgery @fac...(F): ",$E(ONC(165.5,D0,138.3),1,6)_$E(ONC(165.5,D0,138.3),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",89,0) S TXT=ONC(165.5,D0,139.4),LEN=38 D TXT "RTN","ONCPTX",90,0) W !," Surg proc/other site.......(F): ",$E(ONC(165.5,D0,139.2),1,6)_$E(ONC(165.5,D0,139.2),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",91,0) S TXT=ONC(165.5,D0,139.5),LEN=38 D TXT "RTN","ONCPTX",92,0) W !," Surg proc/other site @fac..(F): ",$E(ONC(165.5,D0,139.3),1,6)_$E(ONC(165.5,D0,139.3),9,10),?42,TXT1 W:TXT2'="" !,?42,TXT2 "RTN","ONCPTX",93,0) S TXT=ONC(165.5,D0,23),LEN=38 D TXT "RTN","ONCPTX",94,0) W:DATEDX<3030000 !," Reconstruction/restoration....: ",?33,TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",95,0) W !," Date of surgical discharge....: ",$E(ONC(165.5,D0,435),1,6)_$E(ONC(165.5,D0,435),9,10) "RTN","ONCPTX",96,0) W !," Readmission w/i 30 days/surg..: ",ONC(165.5,D0,14) "RTN","ONCPTX",97,0) W !," Reason no surgery of primary..: ",ONC(165.5,D0,58) "RTN","ONCPTX",98,0) W !," CAP Protocol Review...........: ",ONC(165.5,D0,46) "RTN","ONCPTX",99,0) W:ONC(165.5,D0,46)="Failed" !," CAP Text......................: ",ONC(165.5,D0,47) "RTN","ONCPTX",100,0) S TXGL="" "RTN","ONCPTX",101,0) I ONC(165.5,D0,228)'="" S TXGL=ONC(165.5,D0,228) "RTN","ONCPTX",102,0) I ONC(165.5,D0,229)'="" S TXGL=TXGL_"/"_ONC(165.5,D0,229) "RTN","ONCPTX",103,0) I ONC(165.5,D0,230)'="" S TXGL=TXGL_"/"_ONC(165.5,D0,230) "RTN","ONCPTX",104,0) W !," Treatment Guideline(s)........: ",TXGL "RTN","ONCPTX",105,0) W:TXGL'="" !," Treatment Guideline Location..: ",ONC(165.5,D0,231) "RTN","ONCPTX",106,0) W:TXGL'="" !," Treatment Guideline Doc Date..: ",ONC(165.5,D0,232) "RTN","ONCPTX",107,0) W !,DASH "RTN","ONCPTX",108,0) D KILL "RTN","ONCPTX",109,0) Q "RTN","ONCPTX",110,0) ; "RTN","ONCPTX",111,0) RAD ;Radiation "RTN","ONCPTX",112,0) D FST^ONCOAIP "RTN","ONCPTX",113,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",114,0) W !," RADIATION" "RTN","ONCPTX",115,0) W !," ---------" "RTN","ONCPTX",116,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",117,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",118,0) S DR="51;51.2;51.3;51.4;51.5;56;75;125;126;363;442;363.1;443;361" "RTN","ONCPTX",119,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",120,0) F I=51.2,126,125,363,363.1,56,51.3,51.4,75,442,443 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",121,0) W !," Radiation.....................: ",ONC(165.5,DA,51.2) "RTN","ONCPTX",122,0) W !," Date radiation started........: ",ONC(165.5,DA,51) "RTN","ONCPTX",123,0) W !," Radiation @fac................: ",ONC(165.5,DA,51.5)," ",ONC(165.5,DA,51.4) "RTN","ONCPTX",124,0) W !," Location of radiation tx......: ",ONC(165.5,DA,126) "RTN","ONCPTX",125,0) W !," Radiation treatment volume....: ",ONC(165.5,DA,125) "RTN","ONCPTX",126,0) W !," Regional treatment modality...: ",ONC(165.5,DA,363) "RTN","ONCPTX",127,0) W !," Regional dose:cGy.............: ",ONC(165.5,DA,442) "RTN","ONCPTX",128,0) W !," Boost treatment modality......: ",ONC(165.5,DA,363.1) "RTN","ONCPTX",129,0) W !," Boost dose:cGy................: ",ONC(165.5,DA,443) "RTN","ONCPTX",130,0) W !," Number of txs to this volume..: ",ONC(165.5,DA,56) "RTN","ONCPTX",131,0) W !," Radiation/surgery sequence....: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",132,0) W !," Date radiation ended..........: ",ONC(165.5,DA,361) "RTN","ONCPTX",133,0) W !," Reason for no radiation.......: ",ONC(165.5,DA,75) "RTN","ONCPTX",134,0) W !,DASH "RTN","ONCPTX",135,0) D KILL "RTN","ONCPTX",136,0) Q "RTN","ONCPTX",137,0) ; "RTN","ONCPTX",138,0) ST ;Systemic Therapy "RTN","ONCPTX",139,0) D FST^ONCOAIP "RTN","ONCPTX",140,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",141,0) W !," SYSTEMIC THERAPY" "RTN","ONCPTX",142,0) W !," ----------------" "RTN","ONCPTX",143,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",144,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",145,0) S DR="152;53;53.2;53.3;53.4;54;54.2;54.3;54.4;55;55.2;55.3;55.4;153;153.1;15;1423:1423.4" "RTN","ONCPTX",146,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",147,0) F I=53.2,53.3,54.2,54.3,55.2,55.3,153,15 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",148,0) W !," Date systemic therapy started.: ",ONC(165.5,DA,152) "RTN","ONCPTX",149,0) W !," Chemotherapy..................: ",ONC(165.5,DA,53),?44,$E(ONC(165.5,DA,53.2),1,34) "RTN","ONCPTX",150,0) W !," Chemotherapy @fac.............: ",ONC(165.5,DA,53.4),?44,$E(ONC(165.5,DA,53.3),1,34) "RTN","ONCPTX",151,0) W !," Chemotherapeutic agent #1.....: ",ONC(165.5,DA,1423) "RTN","ONCPTX",152,0) W !," Chemotherapeutic agent #2.....: ",ONC(165.5,DA,1423.1) "RTN","ONCPTX",153,0) W !," Chemotherapeutic agent #3.....: ",ONC(165.5,DA,1423.2) "RTN","ONCPTX",154,0) W !," Chemotherapeutic agent #4.....: ",ONC(165.5,DA,1423.3) "RTN","ONCPTX",155,0) W !," Chemotherapeutic agent #5.....: ",ONC(165.5,DA,1423.4) "RTN","ONCPTX",156,0) W !," Hormone therapy...............: ",ONC(165.5,DA,54),?44,$E(ONC(165.5,DA,54.2),1,34) "RTN","ONCPTX",157,0) W !," Hormone therapy @fac..........: ",ONC(165.5,DA,54.4),?44,$E(ONC(165.5,DA,54.3),1,34) "RTN","ONCPTX",158,0) W !," Immunotherapy.................: ",ONC(165.5,DA,55),?44,$E(ONC(165.5,DA,55.2),1,34) "RTN","ONCPTX",159,0) W !," Immunotherapy @fac............: ",ONC(165.5,DA,55.4),?44,$E(ONC(165.5,DA,55.3),1,34) "RTN","ONCPTX",160,0) W !," Hema Trans/Endocrine Proc.....: ",ONC(165.5,DA,153.1),?44,$E(ONC(165.5,DA,153),1,34) "RTN","ONCPTX",161,0) W:DATEDX>3051231 !," Systemic/Surgery Sequence.....: ",ONC(165.5,DA,15) "RTN","ONCPTX",162,0) W !,DASH "RTN","ONCPTX",163,0) D KILL "RTN","ONCPTX",164,0) Q "RTN","ONCPTX",165,0) ; "RTN","ONCPTX",166,0) OTH ;Other Treatment "RTN","ONCPTX",167,0) D FST^ONCOAIP "RTN","ONCPTX",168,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",169,0) W !," OTHER TREATMENT" "RTN","ONCPTX",170,0) W !," ---------------" "RTN","ONCPTX",171,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",172,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",173,0) S DR="57;57.2;57.3;57.4" "RTN","ONCPTX",174,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",175,0) F I=57,57.2,57.3,57.4 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",176,0) W !," Other treatment...............: ",ONC(165.5,DA,57)," ",ONC(165.5,DA,57.2) "RTN","ONCPTX",177,0) W !," Other treatment @fac..........: ",ONC(165.5,DA,57.4)," ",ONC(165.5,DA,57.3) "RTN","ONCPTX",178,0) W !,DASH "RTN","ONCPTX",179,0) D KILL "RTN","ONCPTX",180,0) Q "RTN","ONCPTX",181,0) ; "RTN","ONCPTX",182,0) PRO ;Palliative Care/Protocol Participation "RTN","ONCPTX",183,0) D FST^ONCOAIP "RTN","ONCPTX",184,0) K DASH S $P(DASH,"-",80)="-" "RTN","ONCPTX",185,0) W !," PALLIATIVE CARE/PROTOCOL PARTICIPATION" "RTN","ONCPTX",186,0) W !," -------------------------------------------" "RTN","ONCPTX",187,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",188,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",189,0) S DR="133;560;154;12;13;346" "RTN","ONCPTX",190,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",191,0) F I=560,154,12,13,346 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",192,0) ;W !," Pain assessment...............: ",ONC(165.5,DA,154) "RTN","ONCPTX",193,0) W !," Palliative care...............: ",ONC(165.5,DA,12) "RTN","ONCPTX",194,0) W !," Palliative care @fac..........: ",ONC(165.5,DA,13) "RTN","ONCPTX",195,0) W ! "RTN","ONCPTX",196,0) W !," Protocol eligibility status...: "_ONC(165.5,DA,346) "RTN","ONCPTX",197,0) W !," Protocol participation........: "_ONC(165.5,DA,560) "RTN","ONCPTX",198,0) W !," Year put on protocol..........: "_ONC(165.5,DA,133) "RTN","ONCPTX",199,0) W !,DASH "RTN","ONCPTX",200,0) K DASH,I,X "RTN","ONCPTX",201,0) Q "RTN","ONCPTX",202,0) ; "RTN","ONCPTX",203,0) TXT ;Text formatting "RTN","ONCPTX",204,0) N LOS,NOP "RTN","ONCPTX",205,0) S (TXT1,TXT2)="",LOS=$L(TXT) I LOS1 K VER Q "RTN","ONCRESTG",8,0) ; "RTN","ONCRESTG",9,0) N D0,RESTAGE,XDT "RTN","ONCRESTG",10,0) S RESTAGE="YES" "RTN","ONCRESTG",11,0) W !!," Restaging 2003+ cases" "RTN","ONCRESTG",12,0) S XDT=3030000 F CNT=1:1 S XDT=$O(^ONCO(165.5,"ADX",XDT)) Q:XDT="" S D0=0 F S D0=$O(^ONCO(165.5,"ADX",XDT,D0)) Q:D0="" D RESTAGE W:CNT#100=0 "." "RTN","ONCRESTG",13,0) Q "RTN","ONCRESTG",14,0) ; "RTN","ONCRESTG",15,0) RESTAGE ;Restage 6th Edition cases "RTN","ONCRESTG",16,0) S STGIND="P" "RTN","ONCRESTG",17,0) S (ONCED,ONCOED)=6 "RTN","ONCRESTG",18,0) S DA=D0 "RTN","ONCRESTG",19,0) S XX=$G(^ONCO(165.5,D0,2)) "RTN","ONCRESTG",20,0) Q:XX="" "RTN","ONCRESTG",21,0) S ST=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCRESTG",22,0) S G=$P(^ONCO(165.5,D0,2),U,5) "RTN","ONCRESTG",23,0) S TX=$P(^ONCO(165.5,D0,2),U,1) "RTN","ONCRESTG",24,0) S HT=$$HIST^ONCFUNC(D0) "RTN","ONCRESTG",25,0) S SP=$P($G(^ONCO(164,+TX,0)),U,11) "RTN","ONCRESTG",26,0) S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCRESTG",27,0) S T=$P(XXX,U,1) "RTN","ONCRESTG",28,0) S N=$P(XXX,U,2) "RTN","ONCRESTG",29,0) S M=$P(XXX,U,3) "RTN","ONCRESTG",30,0) S CM=$P($G(^ONCO(165.5,D0,2)),U,27) "RTN","ONCRESTG",31,0) Q:M=CM "RTN","ONCRESTG",32,0) I (T'="X")!(N'="X"),$E(M,1)'=1 S M=$S(CM="X":M,1:CM) "RTN","ONCRESTG",33,0) E Q "RTN","ONCRESTG",34,0) Q:(T="")!(N="")!(M="") "RTN","ONCRESTG",35,0) I T=88,N=88,M=88 Q "RTN","ONCRESTG",36,0) ; "RTN","ONCRESTG",37,0) ;Melanoma of the Eyelid (C44.1) "RTN","ONCRESTG",38,0) I TX=67441,ONCED<5,$$MELANOMA^ONCOU55(D0) S AG=37 G AG "RTN","ONCRESTG",39,0) ; "RTN","ONCRESTG",40,0) ;Melanoma of the Skin "RTN","ONCRESTG",41,0) I $$MELANOMA^ONCOU55(D0),$P($G(^ONCO(164,+TX,0)),U,15) S AG=22 G AG "RTN","ONCRESTG",42,0) ; "RTN","ONCRESTG",43,0) ;GTT "RTN","ONCRESTG",44,0) I TX=67589 S AG=54 G AG "RTN","ONCRESTG",45,0) ; "RTN","ONCRESTG",46,0) ;Urethra (C68.9) "RTN","ONCRESTG",47,0) ;Urothelial (Transitional Cell) Carcinoma of the Prostate "RTN","ONCRESTG",48,0) I ONCED>4,TX=67619,(HT=81203)!(HT=81303)!(HT=81223)!(HT=81202) D G AG "RTN","ONCRESTG",49,0) .S AG=35 "RTN","ONCRESTG",50,0) ; "RTN","ONCRESTG",51,0) ;Melanoma of the Conjunctiva "RTN","ONCRESTG",52,0) I $$MELANOMA^ONCOU55(D0),TX=67690 S AG=39 G AG "RTN","ONCRESTG",53,0) ; "RTN","ONCRESTG",54,0) ;Melanoma of the Uvea "RTN","ONCRESTG",55,0) I $$MELANOMA^ONCOU55(D0),((TX=67693)!(TX=67694)) S AG=40 G AG "RTN","ONCRESTG",56,0) ; "RTN","ONCRESTG",57,0) ;Lymphoid Neoplasms "RTN","ONCRESTG",58,0) ;Mycosis fungoides (9700/3) "RTN","ONCRESTG",59,0) ;Sezary Disease (9701/3) "RTN","ONCRESTG",60,0) I ONCED>5,(HT=97003)!(HT=97013) S AG=55 G AG "RTN","ONCRESTG",61,0) ; "RTN","ONCRESTG",62,0) S AG=$P($G(^ONCO(164,+TX,0)),U,12) "RTN","ONCRESTG",63,0) ; "RTN","ONCRESTG",64,0) AG ;DO staging subroutine "RTN","ONCRESTG",65,0) S SG=99 "RTN","ONCRESTG",66,0) I T=88,N=88,M=88 S SG=88 G SG "RTN","ONCRESTG",67,0) D @(AG_"^ONCOTN0") "RTN","ONCRESTG",68,0) ; "RTN","ONCRESTG",69,0) SG ;Computed stage "RTN","ONCRESTG",70,0) S $P(^ONCO(165.5,D0,2.1),U,4)=SG "RTN","ONCRESTG",71,0) I SG'="" S X=SG D KSG^ONCOCRC,PSSG^ONCOCRC "RTN","ONCRESTG",72,0) CHKSUM ;Recompute checksum "RTN","ONCRESTG",73,0) I $P($G(^ONCO(165.5,D0,7)),U,2)=3 D "RTN","ONCRESTG",74,0) .S EDITS="NO" D NAACCR^ONCGENED K EDITS "RTN","ONCRESTG",75,0) .S CHECKSUM=$$CRC32^ONCSNACR(.ONCDST) "RTN","ONCRESTG",76,0) .I CHECKSUM'=$P($G(^ONCO(165.5,D0,"EDITS")),U,1) D "RTN","ONCRESTG",77,0) ..S $P(^ONCO(165.5,D0,"EDITS"),U,1)=CHECKSUM "RTN","ONCRESTG",78,0) Q "RTN","ONCSG0A") 0^48^B30033125 "RTN","ONCSG0A",1,0) ONCSG0A ;Hines OIFO/GWB - AUTOMATIC STAGING TABLES ;6/20/02 "RTN","ONCSG0A",2,0) ;;2.11;ONCOLOGY;**35,41,43,50**;Mar 07, 1995;Build 29 "RTN","ONCSG0A",3,0) ; "RTN","ONCSG0A",4,0) ;HEAD AND NECK SITES (continued) "RTN","ONCSG0A",5,0) ; "RTN","ONCSG0A",6,0) PAR12 ;Paranasal Sinuses - 1st and 2nd editions "RTN","ONCSG0A",7,0) I M[1 S SG=4 "RTN","ONCSG0A",8,0) E I M[0 D "RTN","ONCSG0A",9,0) .I (N[2)!(N[3) S SG=4 "RTN","ONCSG0A",10,0) .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3) "RTN","ONCSG0A",11,0) .E I N[0,(T[1)!(T[2)!(T[3)!(T[4) S SG=+T "RTN","ONCSG0A",12,0) Q "RTN","ONCSG0A",13,0) ; "RTN","ONCSG0A",14,0) PAR34 ;Paranasal Sinuses - 3rd and 4th editions "RTN","ONCSG0A",15,0) I M[1 S SG=4 "RTN","ONCSG0A",16,0) E I M[0 D "RTN","ONCSG0A",17,0) .I (N[2)!(N[3) S SG=4 "RTN","ONCSG0A",18,0) .E I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T=4:4,1:3) "RTN","ONCSG0A",19,0) .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3)!(T[4) S SG=+T "RTN","ONCSG0A",20,0) Q "RTN","ONCSG0A",21,0) ; "RTN","ONCSG0A",22,0) PAR5 ;Paranasal Sinuses - 5th edition "RTN","ONCSG0A",23,0) S TNM=T_$E(N,1)_M D K TNM Q "RTN","ONCSG0A",24,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCSG0A",25,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCSG0A",26,0) .I TNM=200 S SG=2 Q ;II T2 N0 M0 "RTN","ONCSG0A",27,0) .I TNM=300 S SG=3 Q ;III T3 N0 M0 "RTN","ONCSG0A",28,0) .I TNM=110 S SG=3 Q ; T1 N1 M0 "RTN","ONCSG0A",29,0) .I TNM=210 S SG=3 Q ; T2 N1 M0 "RTN","ONCSG0A",30,0) .I TNM=310 S SG=3 Q ; T3 N1 M0 "RTN","ONCSG0A",31,0) .I TNM=400 S SG="4A" Q ;IVA T4 N0 M0 "RTN","ONCSG0A",32,0) .I TNM=410 S SG="4A" Q ; T4 N1 M0 "RTN","ONCSG0A",33,0) .I $E(N,1)=2,M=0 S SG="4B" Q ;IVB Any T N2 M0 "RTN","ONCSG0A",34,0) .I $E(N,1)=3,M=0 S SG="4B" Q ; Any T N3 M0 "RTN","ONCSG0A",35,0) .I M=1 S SG="4C" Q ;IVC Any T Any N M1 "RTN","ONCSG0A",36,0) ; "RTN","ONCSG0A",37,0) PAR6 ;Paranasal Sinuses - 6th edition "RTN","ONCSG0A",38,0) S TNM=T_$E(N,1)_M D K TNM Q "RTN","ONCSG0A",39,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCSG0A",40,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCSG0A",41,0) .I TNM=200 S SG=2 Q ;II T2 N0 M0 "RTN","ONCSG0A",42,0) .I TNM=300 S SG=3 Q ;III T3 N0 M0 "RTN","ONCSG0A",43,0) .I TNM=110 S SG=3 Q ; T1 N1 M0 "RTN","ONCSG0A",44,0) .I TNM=210 S SG=3 Q ; T2 N1 M0 "RTN","ONCSG0A",45,0) .I TNM=310 S SG=3 Q ; T3 N1 M0 "RTN","ONCSG0A",46,0) .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0 "RTN","ONCSG0A",47,0) .I TNM="4A10" S SG="4A" Q ; T4a N1 M0 "RTN","ONCSG0A",48,0) .I TNM=120 S SG="4A" Q ; T1 N2 M0 "RTN","ONCSG0A",49,0) .I TNM=220 S SG="4A" Q ; T2 N2 M0 "RTN","ONCSG0A",50,0) .I TNM=320 S SG="4A" Q ; T3 N2 M0 "RTN","ONCSG0A",51,0) .I TNM="4A20" S SG="4A" Q ; T4a N2 M0 "RTN","ONCSG0A",52,0) .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0 "RTN","ONCSG0A",53,0) .I $E(N,1)=3,M=0 S SG="4B" Q ; Any T N3 M0 "RTN","ONCSG0A",54,0) .I M=1 S SG="4C" Q ;IVC Any T Any N M1 "RTN","ONCSG0A",55,0) ; "RTN","ONCSG0A",56,0) SAL12 ;Major Salivary Glands - 1st and 2nd editions "RTN","ONCSG0A",57,0) I M[1 S SG=4 "RTN","ONCSG0A",58,0) E I M[0 D "RTN","ONCSG0A",59,0) .I N[1,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T>2:4,1:3) "RTN","ONCSG0A",60,0) .E I N[0,(T[1)!(T[2)!(T[3)!(T[4) S SG=$S(T[4:3,T[3:2,1:1) "RTN","ONCSG0A",61,0) Q "RTN","ONCSG0A",62,0) ; "RTN","ONCSG0A",63,0) SAL34 ;Major Salivary Glands - 3rd and 4th editions "RTN","ONCSG0A",64,0) I M S SG=4 "RTN","ONCSG0A",65,0) E I (T["4B")!(N[2)!(N[3),M[0 S SG=4 "RTN","ONCSG0A",66,0) E I (T["1A")!(T["2A"),N[0,M[0 S SG=1 "RTN","ONCSG0A",67,0) E I (T["1B")!(T["2B")!(T["3A"),N[0,M[0 S SG=2 "RTN","ONCSG0A",68,0) E I (T["3B")!(T["4A"),N[0,M[0 S SG=3 "RTN","ONCSG0A",69,0) E I N[1,M[0 S SG=3 "RTN","ONCSG0A",70,0) Q "RTN","ONCSG0A",71,0) ; "RTN","ONCSG0A",72,0) SAL5 ;Major Salivary Glands - 5th edition "RTN","ONCSG0A",73,0) S TNM=T_$E(N,1)_M D K TNM Q "RTN","ONCSG0A",74,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCSG0A",75,0) .I TNM=200 S SG=1 Q ; T2 N0 M0 "RTN","ONCSG0A",76,0) .I TNM=300 S SG=2 Q ;II T3 N0 M0 "RTN","ONCSG0A",77,0) .I TNM=110 S SG=3 Q ;III T1 N1 M0 "RTN","ONCSG0A",78,0) .I TNM=210 S SG=3 Q ; T2 N1 M0 "RTN","ONCSG0A",79,0) .I TNM=400 S SG=4 Q ;IV T4 N0 M0 "RTN","ONCSG0A",80,0) .I TNM=310 S SG=4 Q ; T3 N1 M0 "RTN","ONCSG0A",81,0) .I TNM=410 S SG=4 Q ; T4 N1 M0 "RTN","ONCSG0A",82,0) .I $E(N,1)=2,M=0 S SG=4 Q ; Any T N2 M0 "RTN","ONCSG0A",83,0) .I $E(N,1)=3,M=0 S SG=4 Q ; Any T N3 M0 "RTN","ONCSG0A",84,0) .I M=1 S SG=4 Q ; Any T Any N M1 "RTN","ONCSG0A",85,0) ; "RTN","ONCSG0A",86,0) SAL6 ;Major Salivary Glands - 6th edition "RTN","ONCSG0A",87,0) S TNM=T_$E(N,1)_M D K TNM Q "RTN","ONCSG0A",88,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCSG0A",89,0) .I TNM=200 S SG=2 Q ;II T2 N0 M0 "RTN","ONCSG0A",90,0) .I TNM=300 S SG=3 Q ;III T3 N0 M0 "RTN","ONCSG0A",91,0) .I TNM=110 S SG=3 Q ; T1 N1 M0 "RTN","ONCSG0A",92,0) .I TNM=210 S SG=3 Q ; T2 N1 M0 "RTN","ONCSG0A",93,0) .I TNM=310 S SG=3 Q ; T3 N1 M0 "RTN","ONCSG0A",94,0) .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0 "RTN","ONCSG0A",95,0) .I TNM="4A10" S SG="4A" Q ; T4a N1 M0 "RTN","ONCSG0A",96,0) .I TNM=120 S SG="4A" Q ; T1 N2 M0 "RTN","ONCSG0A",97,0) .I TNM=220 S SG="4A" Q ; T2 N2 M0 "RTN","ONCSG0A",98,0) .I TNM=320 S SG="4A" Q ; T3 N2 M0 "RTN","ONCSG0A",99,0) .I TNM="4A20" S SG="4A" Q ; T4a N2 M0 "RTN","ONCSG0A",100,0) .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0 "RTN","ONCSG0A",101,0) .I N=3,M=0 S SG="4B" Q ; Any T N3 M0 "RTN","ONCSG0A",102,0) .I M=1 S SG="4C" Q ;IVC Any T Any N M1 "RTN","ONCSG0A",103,0) ; "RTN","ONCSG0A",104,0) THY15 K SG "RTN","ONCSG0A",105,0) I G=4 S SG=4 "RTN","ONCSG0A",106,0) E D "RTN","ONCSG0A",107,0) .N MO S MO=$$HIST^ONCFUNC(D0) "RTN","ONCSG0A",108,0) .D @$S((MO=85103)!(MO=85113):"THYDM",1:"THYDPF") "RTN","ONCSG0A",109,0) I '$D(SG) S SG=99 "RTN","ONCSG0A",110,0) Q "RTN","ONCSG0A",111,0) ; "RTN","ONCSG0A",112,0) THYDM ;Thyroid - Medullary "RTN","ONCSG0A",113,0) I M S SG=4 "RTN","ONCSG0A",114,0) E I T[1,N[0,M[0 S SG=1 "RTN","ONCSG0A",115,0) E I (T[2)!(T[3)!(T[4),N[0,M[0 S SG=2 "RTN","ONCSG0A",116,0) E I N[1,M[0 S SG=3 "RTN","ONCSG0A",117,0) E S SG=99 "RTN","ONCSG0A",118,0) Q "RTN","ONCSG0A",119,0) ; "RTN","ONCSG0A",120,0) THYDPF ;Thyroid - Papillary or Follicular "RTN","ONCSG0A",121,0) N OKMO "RTN","ONCSG0A",122,0) S OKMO=("^80503^82603^82900^82903^83300^83303^83313^83323^83333^83340^83403^83503^80203^"[(U_MO_U)) "RTN","ONCSG0A",123,0) I 'OKMO W:$G(RESTAGE)="" !!?12,"Histology code is incompatible." Q "RTN","ONCSG0A",124,0) E D "RTN","ONCSG0A",125,0) .D AGE^ONCOCOM "RTN","ONCSG0A",126,0) .I X<45 S SG=$S(M[1:2,M[0:1,1:"E") "RTN","ONCSG0A",127,0) .E D THYDP45 "RTN","ONCSG0A",128,0) Q "RTN","ONCSG0A",129,0) ; "RTN","ONCSG0A",130,0) THYDP45 ;THYROID - Papillary or Follicular - 45 years and older "RTN","ONCSG0A",131,0) I M[1 S SG=4 "RTN","ONCSG0A",132,0) E I M[0 D "RTN","ONCSG0A",133,0) .I N[1 S SG=3 "RTN","ONCSG0A",134,0) .E I N[0 D "RTN","ONCSG0A",135,0) ..I T[1 S SG=1 "RTN","ONCSG0A",136,0) ..E I (T[2)!(T[3) S SG=2 "RTN","ONCSG0A",137,0) ..E I T[4 S SG=3 "RTN","ONCSG0A",138,0) Q "RTN","ONCSG0A",139,0) ; "RTN","ONCSG0A",140,0) THY6 ;Thyroid Gland - 6th edition "RTN","ONCSG0A",141,0) D AGE^ONCOCOM "RTN","ONCSG0A",142,0) S MO=$$HIST^ONCFUNC(D0) "RTN","ONCSG0A",143,0) S OKMO="80503^82603^82903^83303^83313^83323^83353^83403^83413^83423^83433^83443^83503" ;Papillary or Follicular "RTN","ONCSG0A",144,0) I X<45,OKMO[MO S SG=$S(M=0:1,M=1:2,1:99) D Q "RTN","ONCSG0A",145,0) .Q:$G(RESTAGE)="YES" "RTN","ONCSG0A",146,0) .W !!,?12,"NOTE: Papillary or Follicular" "RTN","ONCSG0A",147,0) .W !,?12," Under 45 years" "RTN","ONCSG0A",148,0) S TNM=T_N_M D K TNM Q "RTN","ONCSG0A",149,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCSG0A",150,0) .I TNM=200 S SG=2 Q ;II T2 N0 M0 "RTN","ONCSG0A",151,0) .I TNM=300 S SG=3 Q ;III T3 N0 M0 "RTN","ONCSG0A",152,0) .I TNM="11A0" S SG=3 Q ; T1 N1a M0 "RTN","ONCSG0A",153,0) .I TNM="21A0" S SG=3 Q ; T2 N1a M0 "RTN","ONCSG0A",154,0) .I TNM="31A0" S SG=3 Q ; T3 N1a M0 "RTN","ONCSG0A",155,0) .I TNM="4A00" S SG="4A" Q ;IVA T4a N0 M0 "RTN","ONCSG0A",156,0) .I TNM="4A1A0" S SG="4A" Q ; T4a N1a M0 "RTN","ONCSG0A",157,0) .I TNM="11B0" S SG="4A" Q ; T1 N1b M0 "RTN","ONCSG0A",158,0) .I TNM="21B0" S SG="4A" Q ; T2 N1b M0 "RTN","ONCSG0A",159,0) .I TNM="31B0" S SG="4A" Q ; T3 N1b M0 "RTN","ONCSG0A",160,0) .I TNM="4A1B0" S SG="4A" Q ; T4a N1b M0 "RTN","ONCSG0A",161,0) .I T="4B",M=0 S SG="4B" Q ;IVB T4b Any N M0 "RTN","ONCSG0A",162,0) .I M=1 S SG="4C" Q ;IVC Any T Any N M1 "SEC","^DIC",160.16,160.16,0,"AUDIT") @ "SEC","^DIC",160.16,160.16,0,"DD") @ "SEC","^DIC",160.16,160.16,0,"DEL") @ "SEC","^DIC",160.16,160.16,0,"LAYGO") @ "SEC","^DIC",160.16,160.16,0,"RD") @ "SEC","^DIC",160.16,160.16,0,"WR") @ "SEC","^DIC",160.17,160.17,0,"AUDIT") @ "SEC","^DIC",160.17,160.17,0,"DD") @ "SEC","^DIC",160.17,160.17,0,"DEL") @ "SEC","^DIC",160.17,160.17,0,"LAYGO") @ "SEC","^DIC",160.17,160.17,0,"RD") @ "SEC","^DIC",160.17,160.17,0,"WR") @ "UP",160,160.075,-1) 160^SUS "UP",160,160.075,0) 160.075 "VER") 8.0^22.0 "^DD",160,160,.015,0) MIDDLE NAME^CJ14^^ ; ^D MNI^ONCOES "^DD",160,160,.015,.1) "^DD",160,160,.015,9) ^ "^DD",160,160,.015,9.01) "^DD",160,160,.015,9.1) D MNI^ONCOES "^DD",160,160,.015,21,0) ^.001^3^3^3090529^^^^ "^DD",160,160,.015,21,1,0) Identifies the middle name or middle initial of the patient. "^DD",160,160,.015,21,2,0) "^DD",160,160,.015,21,3,0) For further information see FORDS page 41. "^DD",160,160,.015,"DT") 3090529 "^DD",160,160,.117,0) COUNTY^CJ25^^ ; ^D CTY^ONCOES "^DD",160,160,.117,9) ^ "^DD",160,160,.117,9.01) "^DD",160,160,.117,9.1) D CTY^ONCOES "^DD",160,160,.117,21,0) ^^2^2^3090602^ "^DD",160,160,.117,21,1,0) Computes the patient's current COUNTY of residence. "^DD",160,160,.117,21,2,0) COUNTY is derived from COUNTY (2,.117). "^DD",160,160,.117,"DT") 3090602 "^DD",160,160,33.1,0) SUSPENSE ADMIT DATE^CJ8^^ ; ^D SAD^ONCOCON "^DD",160,160,33.1,9) ^ "^DD",160,160,33.1,9.01) "^DD",160,160,33.1,9.1) D SAD^ONCOCON "^DD",160,160,33.1,21,0) ^.001^1^1^3090826^^^ "^DD",160,160,33.1,21,1,0) This field displays the patient's admission date. "^DD",160,160,33.1,"DT") 3090826 "^DD",160,160,33.2,0) SUSPENSE DISCHARGE DATE^CJ8^^ ; ^D SDD^ONCOCON "^DD",160,160,33.2,9) ^ "^DD",160,160,33.2,9.01) "^DD",160,160,33.2,9.1) D SDD^ONCOCON "^DD",160,160,33.2,21,0) ^^1^1^3090417^ "^DD",160,160,33.2,21,1,0) This field displays the patient's discharge date. "^DD",160,160,33.2,"DT") 3090417 "^DD",160,160,48,0) AGENT ORANGE EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;10^Q "^DD",160,160,48,3) Record if the patient was exposed to Agent Orange. "^DD",160,160,48,21,0) ^.001^3^3^3090409^^^^ "^DD",160,160,48,21,1,0) "^DD",160,160,48,21,2,0) Record if the patient was exposed to Agent Orange. "^DD",160,160,48,21,3,0) "^DD",160,160,48,"DT") 2980701 "^DD",160,160,50,0) IONIZING RADIATION EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;11^Q "^DD",160,160,50,3) Record if the patient was exposed to Ionizing Radiation. "^DD",160,160,50,21,0) ^.001^3^3^3090409^^^ "^DD",160,160,50,21,1,0) "^DD",160,160,50,21,2,0) Record if the patient was exposed to Ionizing Radiation. "^DD",160,160,50,21,3,0) "^DD",160,160,50,"DT") 2980701 "^DD",160,160,66,0) IRAQ (OIF) SERVICE^S^Y:Yes;N:No;U:Unknown;^0;36^Q "^DD",160,160,66,3) Record if the patient served in Iraq (OIF). "^DD",160,160,66,21,0) ^.001^1^1^3090827^^^^ "^DD",160,160,66,21,1,0) Record if the patient served in Iraq (OIF). "^DD",160,160,66,23,0) ^^7^7^3090827^ "^DD",160,160,66,23,1,0) If the patient had OIF service, a default value of "Yes" will be provided. "^DD",160,160,66,23,2,0) "^DD",160,160,66,23,3,0) This default value is derived in the following way: "^DD",160,160,66,23,4,0) "^DD",160,160,66,23,5,0) 1) A call is made to SVC^VADPT. "^DD",160,160,66,23,6,0) 2) If VASV(11) is > 0, the variable OIF is set to "Yes". "^DD",160,160,66,23,7,0) 3) The variable OIF is then used as a default in a ^DIE call from ^ONCPAT. "^DD",160,160,66,"DT") 3090409 "^DD",160,160,67,0) AFGHANISTAN (OEF) SERVICE^S^Y:Yes;N:No;U:Unknown;^0;37^Q "^DD",160,160,67,3) Record if the patient served in Afghanistan (OEF). "^DD",160,160,67,21,0) ^.001^1^1^3090827^^^^ "^DD",160,160,67,21,1,0) Record if the patient served in Afghanistan (OEF). "^DD",160,160,67,23,0) ^^7^7^3090827^ "^DD",160,160,67,23,1,0) If the patient had OEF service, a default value of "Yes" will be provided. "^DD",160,160,67,23,2,0) "^DD",160,160,67,23,3,0) This default value is derived in the following way: "^DD",160,160,67,23,4,0) "^DD",160,160,67,23,5,0) 1) A call is made to SVC^VADPT. "^DD",160,160,67,23,6,0) 2) If VASV(12) is > 0, the variable OEF is set to "Yes". "^DD",160,160,67,23,7,0) 3) The variable OEF is then used as a default in a ^DIE call from ^ONCPAT. "^DD",160,160,67,"DT") 3090409 "^DD",160,160,75,0) SUSPENSE^160.075DA^^SUS;0 "^DD",160,160,75,21,0) ^.001^4^4^3090826^^^^ "^DD",160,160,75,21,1,0) "^DD",160,160,75,21,2,0) This multiple field stores the SUSPENSE data for each division "^DD",160,160,75,21,3,0) where the patient is on SUSPENSE. "^DD",160,160,75,21,4,0) "^DD",160,160,75,"DT") 3000523 "^DD",160,160.075,0) SUSPENSE SUB-FIELD^^13^14 "^DD",160,160.075,0,"NM","SUSPENSE") "^DD",160,160.075,.01,0) SUSPENSE DATE^DXO^^0;1^S %DT="EX",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) "^DD",160,160.075,.01,1,0) ^.1 "^DD",160,160.075,.01,1,1,0) 160.075^B "^DD",160,160.075,.01,1,1,1) S ^ONCO(160,DA(1),"SUS","B",$E(X,1,30),DA)="" "^DD",160,160.075,.01,1,1,2) K ^ONCO(160,DA(1),"SUS","B",$E(X,1,30),DA) "^DD",160,160.075,.01,1,2,0) 160^ADX "^DD",160,160.075,.01,1,2,1) S ^ONCO(160,"ADX",$E(X,1,30),DA(1),DA)="" "^DD",160,160.075,.01,1,2,2) K ^ONCO(160,"ADX",$E(X,1,30),DA(1),DA) "^DD",160,160.075,.01,1,2,3) DO NOT DELETE "^DD",160,160.075,.01,1,2,"%D",0) ^^3^3^3000523^ "^DD",160,160.075,.01,1,2,"%D",1,0) "^DD",160,160.075,.01,1,2,"%D",2,0) This is a REGULAR cross-reference by SUSPENSE DATE multiple on the WHOLE FILE. "^DD",160,160.075,.01,1,2,"%D",3,0) "^DD",160,160.075,.01,1,2,"DT") 3000523 "^DD",160,160.075,.01,1,3,0) ^^TRIGGER^160.075^12 "^DD",160,160.075,.01,1,3,1) K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ONCO(160,D0,"SUS",D1,0)):^(0),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X,1,5)_0_0 S:'X X="" X ^DD(160.075,.01,1,3,1.4) "^DD",160,160.075,.01,1,3,1.4) S DIH=$G(^ONCO(160,DIV(0),"SUS",DIV(1),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=160.075,DIG=12 D ^DICR "^DD",160,160.075,.01,1,3,2) Q "^DD",160,160.075,.01,1,3,"CREATE VALUE") MONTH(SUSPENSE DATE) "^DD",160,160.075,.01,1,3,"DELETE VALUE") NO EFFECT "^DD",160,160.075,.01,1,3,"DT") 3000810 "^DD",160,160.075,.01,1,3,"FIELD") SUSPENSE MONTH "^DD",160,160.075,.01,2) S Y(0)=Y N XD S XD=Y D DD^ONCOCON S Y=XD "^DD",160,160.075,.01,2.1) N XD S XD=Y D DD^ONCOCON S Y=XD "^DD",160,160.075,.01,3) Enter the date the patient was entered into the SUSPENSE sub-file. "^DD",160,160.075,.01,21,0) ^^3^3^3090826^ "^DD",160,160.075,.01,21,1,0) "^DD",160,160.075,.01,21,2,0) Identifies the date the patient was entered as a potential 'case' to be "^DD",160,160.075,.01,21,3,0) registered in the Tumor Registry. "^DD",160,160.075,.01,"DT") 3090827 "^DD",160.16,160.16,0) FIELD^^2^3 "^DD",160.16,160.16,0,"DDA") N "^DD",160.16,160.16,0,"DT") 3031023 "^DD",160.16,160.16,0,"IX","B",160.16,.01) "^DD",160.16,160.16,0,"NM","ONCOLOGY DATA EXTRACT FORMAT") "^DD",160.16,160.16,0,"VRPK") ONC "^DD",160.16,160.16,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",160.16,160.16,.01,1,0) ^.1 "^DD",160.16,160.16,.01,1,1,0) 160.16^B "^DD",160.16,160.16,.01,1,1,1) S ^ONCO(160.16,"B",$E(X,1,30),DA)="" "^DD",160.16,160.16,.01,1,1,2) K ^ONCO(160.16,"B",$E(X,1,30),DA) "^DD",160.16,160.16,.01,3) Answer must be 3-30 characters in length. "^DD",160.16,160.16,.01,21,0) 1 "^DD",160.16,160.16,.01,21,1,0) This contains the name of the extract. "^DD",160.16,160.16,.01,"DT") 2970224 "^DD",160.16,160.16,1,0) FIELD^160.161I^^FIELD;0 "^DD",160.16,160.16,1,21,0) ^.001^1^1^3031023^^^^ "^DD",160.16,160.16,1,21,1,0) List of all the extracted fields. "^DD",160.16,160.16,2,0) RULES^160.162^^RULES;0 "^DD",160.16,160.16,2,21,0) ^^8^8^2970731^ "^DD",160.16,160.16,2,21,1,0) This field is a set of rules based in MUMPS code that the extract must "^DD",160.16,160.16,2,21,2,0) follow for each entry. Values that must be set are: "^DD",160.16,160.16,2,21,3,0) VALID = 1 means that the extract is valid "^DD",160.16,160.16,2,21,4,0) = 0 means that the extract has is not valid and will not "^DD",160.16,160.16,2,21,5,0) extract "^DD",160.16,160.16,2,21,6,0) JUMP = 0 means process all the field in the extract "^DD",160.16,160.16,2,21,7,0) = X^Y means to skip all the fields from position X to "^DD",160.16,160.16,2,21,8,0) position Y in the extract. "^DD",160.16,160.161,0) FIELD SUB-FIELD^^8^9 "^DD",160.16,160.161,0,"DT") 3031023 "^DD",160.16,160.161,0,"ID",3) W " ",$P(^(0),U,4) "^DD",160.16,160.161,0,"IX","B",160.161,.01) "^DD",160.16,160.161,0,"IX","C",160.161,3) "^DD",160.16,160.161,0,"NM","FIELD") "^DD",160.16,160.161,0,"UP") 160.16 "^DD",160.16,160.161,.01,0) STARTING POSITION^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X "^DD",160.16,160.161,.01,1,0) ^.1 "^DD",160.16,160.161,.01,1,1,0) 160.161^B "^DD",160.16,160.161,.01,1,1,1) S ^ONCO(160.16,DA(1),"FIELD","B",$E(X,1,30),DA)="" "^DD",160.16,160.161,.01,1,1,2) K ^ONCO(160.16,DA(1),"FIELD","B",$E(X,1,30),DA) "^DD",160.16,160.161,.01,3) Type a Number between 0 and 999999, 0 Decimal Digits "^DD",160.16,160.161,.01,21,0) ^.001^1^1^3000316^^ "^DD",160.16,160.161,.01,21,1,0) The starting position do the field within the extract. "^DD",160.16,160.161,.01,"DT") 2970731 "^DD",160.16,160.161,1,0) LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.16,160.161,1,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.16,160.161,1,21,0) ^^1^1^2970731^^^ "^DD",160.16,160.161,1,21,1,0) This contains the character length of the field. "^DD",160.16,160.161,1,"DT") 2970430 "^DD",160.16,160.161,2,0) ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.16,160.161,2,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.16,160.161,2,21,0) ^^1^1^2970731^^^ "^DD",160.16,160.161,2,21,1,0) This is the ending position of the field data. "^DD",160.16,160.161,2,"DT") 2970430 "^DD",160.16,160.161,3,0) NAME^RF^^0;4^K:$L(X)>80!($L(X)<1) X "^DD",160.16,160.161,3,1,0) ^.1 "^DD",160.16,160.161,3,1,1,0) 160.161^C "^DD",160.16,160.161,3,1,1,1) S ^ONCO(160.16,DA(1),"FIELD","C",$E(X,1,30),DA)="" "^DD",160.16,160.161,3,1,1,2) K ^ONCO(160.16,DA(1),"FIELD","C",$E(X,1,30),DA) "^DD",160.16,160.161,3,1,1,"%D",0) ^^1^1^2970430^ "^DD",160.16,160.161,3,1,1,"%D",1,0) Name cross reference. "^DD",160.16,160.161,3,1,1,"DT") 2970430 "^DD",160.16,160.161,3,3) Answer must be 1-80 characters in length. "^DD",160.16,160.161,3,21,0) ^^1^1^2970731^ "^DD",160.16,160.161,3,21,1,0) This is the name given to the field within the extract. "^DD",160.16,160.161,3,"DT") 2970430 "^DD",160.16,160.161,4,0) ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X "^DD",160.16,160.161,4,3) Answer must be 1-250 characters in length. "^DD",160.16,160.161,4,21,0) ^^12^12^2970731^ "^DD",160.16,160.161,4,21,1,0) Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE "^" "^DD",160.16,160.161,4,21,2,0) (UP-ARROW). Fileman will not except and up-arrow. Use "~" tilde to "^DD",160.16,160.161,4,21,3,0) replace all up-arrows. The system has been coded to convert the tilde to "^DD",160.16,160.161,4,21,4,0) an up-arrow when it executes the string. "^DD",160.16,160.161,4,21,5,0) For example: "^DD",160.16,160.161,4,21,6,0) S ACDANS=123 "^DD",160.16,160.161,4,21,7,0) S ACDANS=$$FUNCT~ROUTINE(IEN) "^DD",160.16,160.161,4,21,8,0) "^DD",160.16,160.161,4,21,9,0) Preset Varables: "^DD",160.16,160.161,4,21,10,0) IEN=Internal Entry number of the entry in file 165.5 "^DD",160.16,160.161,4,21,11,0) ACD160=Internal Entry number of the entry in file 160 that is "^DD",160.16,160.161,4,21,12,0) link to the entry in file 165.5 "^DD",160.16,160.161,4,"DT") 2970729 "^DD",160.16,160.161,5,0) DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X "^DD",160.16,160.161,5,3) Answer must be 1-200 characters in length. "^DD",160.16,160.161,5,21,0) ^^5^5^2970731^ "^DD",160.16,160.161,5,21,1,0) The default value of a field that is has no data stored. "^DD",160.16,160.161,5,21,2,0) Values can be: "^DD",160.16,160.161,5,21,3,0) BLANK = " " "^DD",160.16,160.161,5,21,4,0) ZERO = "0" "^DD",160.16,160.161,5,21,5,0) NINE = "9" "^DD",160.16,160.161,5,"DT") 2970509 "^DD",160.16,160.161,6,0) FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X "^DD",160.16,160.161,6,3) Answer must be 1-200 characters in length. "^DD",160.16,160.161,6,21,0) ^^12^12^2970731^ "^DD",160.16,160.161,6,21,1,0) The filler that is stuffed in front of or behind the data if it is not the "^DD",160.16,160.161,6,21,2,0) max length. This element is devided into two pieces delimeted by a comma. "^DD",160.16,160.161,6,21,3,0) The first part tell where the fill is to go. Second part tells waht to "^DD",160.16,160.161,6,21,4,0) fill with. "R" means to fill on the right side of the value and "L" means "^DD",160.16,160.161,6,21,5,0) to fill on the left. The fill values are the same as in DEFAULT "^DD",160.16,160.161,6,21,6,0) "^DD",160.16,160.161,6,21,7,0) Example: L,BLANK = Fill the field with blanks then add the value to the "^DD",160.16,160.161,6,21,8,0) remainder "^DD",160.16,160.161,6,21,9,0) "^DD",160.16,160.161,6,21,10,0) BLANK = " " "^DD",160.16,160.161,6,21,11,0) ZERO = "0" "^DD",160.16,160.161,6,21,12,0) NINE = "9" "^DD",160.16,160.161,6,"DT") 2970509 "^DD",160.16,160.161,7,0) ITEM #^NJ4,0^^3;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.16,160.161,7,3) Type a Number between 1 and 9999, 0 Decimal Digits "^DD",160.16,160.161,7,"DT") 3031023 "^DD",160.16,160.161,8,0) DERIVATION^F^^4;1^K:$L(X)>150!($L(X)<1) X "^DD",160.16,160.161,8,3) Answer must be 1-150 characters in length. "^DD",160.16,160.161,8,"DT") 3031023 "^DD",160.16,160.162,0) RULES SUB-FIELD^^.01^1 "^DD",160.16,160.162,0,"DT") 2970618 "^DD",160.16,160.162,0,"NM","RULES") "^DD",160.16,160.162,0,"UP") 160.16 "^DD",160.16,160.162,.01,0) RULES^W^^0;1^Q "^DD",160.16,160.162,.01,"DT") 2970618 "^DD",160.17,160.17,0) FIELD^^2^3 "^DD",160.17,160.17,0,"DT") 2991025 "^DD",160.17,160.17,0,"IX","B",160.17,.01) "^DD",160.17,160.17,0,"NM","ONCOLOGY PCE EXTRACT FORMAT") "^DD",160.17,160.17,0,"VRPK") ONC "^DD",160.17,160.17,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",160.17,160.17,.01,1,0) ^.1 "^DD",160.17,160.17,.01,1,1,0) 160.17^B "^DD",160.17,160.17,.01,1,1,1) S ^ONCO(160.17,"B",$E(X,1,30),DA)="" "^DD",160.17,160.17,.01,1,1,2) K ^ONCO(160.17,"B",$E(X,1,30),DA) "^DD",160.17,160.17,.01,3) Answer must be 3-30 characters in length. "^DD",160.17,160.17,.01,21,0) ^^1^1^2971028^^^^ "^DD",160.17,160.17,.01,21,1,0) This contains the name of the PCE extract. "^DD",160.17,160.17,.01,"DT") 2970224 "^DD",160.17,160.17,1,0) FIELD^160.171I^^FIELD;0 "^DD",160.17,160.17,1,21,0) ^^1^1^2991025^^^^ "^DD",160.17,160.17,1,21,1,0) List of all the PCE extracted fields. "^DD",160.17,160.17,2,0) RULES^160.172^^RULES;0 "^DD",160.17,160.17,2,21,0) ^^8^8^2970731^ "^DD",160.17,160.17,2,21,1,0) This field is a set of rules based in MUMPS code that the extract must "^DD",160.17,160.17,2,21,2,0) follow for each entry. Values that must be set are: "^DD",160.17,160.17,2,21,3,0) VALID = 1 means that the extract is valid "^DD",160.17,160.17,2,21,4,0) = 0 means that the extract has is not valid and will not "^DD",160.17,160.17,2,21,6,0) JUMP = 0 means process all the field in the extract "^DD",160.17,160.17,2,21,7,0) = X^Y means to skip all the fields from position X to "^DD",160.17,160.17,2,21,8,0) position Y in the extract. "^DD",160.17,160.171,0) FIELD SUB-FIELD^^6^7 "^DD",160.17,160.171,0,"DT") 2991025 "^DD",160.17,160.171,0,"ID",3) W " ",$P(^(0),U,4) "^DD",160.17,160.171,0,"IX","B",160.171,.01) "^DD",160.17,160.171,0,"IX","C",160.171,3) "^DD",160.17,160.171,0,"NM","FIELD") "^DD",160.17,160.171,0,"UP") 160.17 "^DD",160.17,160.171,.01,0) STARTING POSITION^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X "^DD",160.17,160.171,.01,1,0) ^.1 "^DD",160.17,160.171,.01,1,1,0) 160.171^B "^DD",160.17,160.171,.01,1,1,1) S ^ONCO(160.17,DA(1),"FIELD","B",$E(X,1,30),DA)="" "^DD",160.17,160.171,.01,1,1,2) K ^ONCO(160.17,DA(1),"FIELD","B",$E(X,1,30),DA) "^DD",160.17,160.171,.01,3) Type a Number between 0 and 999999, 0 Decimal Digits "^DD",160.17,160.171,.01,21,0) ^^1^1^2970731^ "^DD",160.17,160.171,.01,21,1,0) The starting position do the field within the extract. "^DD",160.17,160.171,.01,"DT") 2970731 "^DD",160.17,160.171,1,0) LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.17,160.171,1,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.17,160.171,1,21,0) ^^1^1^2970731^^^ "^DD",160.17,160.171,1,21,1,0) This contains the character length of the field. "^DD",160.17,160.171,1,"DT") 2970430 "^DD",160.17,160.171,2,0) ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.17,160.171,2,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.17,160.171,2,21,0) ^^1^1^2970731^^^ "^DD",160.17,160.171,2,21,1,0) This is the ending position of the field data. "^DD",160.17,160.171,2,"DT") 2970430 "^DD",160.17,160.171,3,0) NAME^RF^^0;4^K:$L(X)>45!($L(X)<1) X "^DD",160.17,160.171,3,1,0) ^.1 "^DD",160.17,160.171,3,1,1,0) 160.171^C "^DD",160.17,160.171,3,1,1,1) S ^ONCO(160.17,DA(1),"FIELD","C",$E(X,1,30),DA)="" "^DD",160.17,160.171,3,1,1,2) K ^ONCO(160.17,DA(1),"FIELD","C",$E(X,1,30),DA) "^DD",160.17,160.171,3,1,1,"%D",0) ^^1^1^2970430^ "^DD",160.17,160.171,3,1,1,"%D",1,0) Name cross reference. "^DD",160.17,160.171,3,1,1,"DT") 2970430 "^DD",160.17,160.171,3,3) Answer must be 1-45 characters in length. "^DD",160.17,160.171,3,21,0) ^^1^1^2991025^^^^ "^DD",160.17,160.171,3,21,1,0) This is the name given to the field within the extract. "^DD",160.17,160.171,3,"DT") 2991025 "^DD",160.17,160.171,4,0) ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X "^DD",160.17,160.171,4,3) Answer must be 1-250 characters in length. "^DD",160.17,160.171,4,21,0) ^^12^12^2970731^ "^DD",160.17,160.171,4,21,1,0) Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE "^" "^DD",160.17,160.171,4,21,2,0) (UP-ARROW). Fileman will not except and up-arrow. Use "~" tilde to "^DD",160.17,160.171,4,21,3,0) replace all up-arrows. The system has been coded to convert the tilde to "^DD",160.17,160.171,4,21,4,0) an up-arrow when it executes the string. "^DD",160.17,160.171,4,21,6,0) S ACDANS=123 "^DD",160.17,160.171,4,21,7,0) S ACDANS=$$FUNCT~ROUTINE(IEN) "^DD",160.17,160.171,4,21,8,0) "^DD",160.17,160.171,4,21,9,0) Preset Varables: "^DD",160.17,160.171,4,21,10,0) IEN=Internal Entry number of the entry in file 165.5 "^DD",160.17,160.171,4,21,11,0) ACD160=Internal Entry number of the entry in file 160 that is "^DD",160.17,160.171,4,21,12,0) link to the entry in file 165.5 "^DD",160.17,160.171,4,"DT") 2970729 "^DD",160.17,160.171,5,0) DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X "^DD",160.17,160.171,5,3) Answer must be 1-200 characters in length. "^DD",160.17,160.171,5,21,0) ^^5^5^2970731^ "^DD",160.17,160.171,5,21,1,0) The default value of a field that is has no data stored. "^DD",160.17,160.171,5,21,2,0) Values can be: "^DD",160.17,160.171,5,21,3,0) BLANK = " " "^DD",160.17,160.171,5,21,4,0) ZERO = "0" "^DD",160.17,160.171,5,"DT") 2970509 "^DD",160.17,160.171,6,0) FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X "^DD",160.17,160.171,6,3) Answer must be 1-200 characters in length. "^DD",160.17,160.171,6,21,0) ^^12^12^2970731^ "^DD",160.17,160.171,6,21,1,0) The filler that is stuffed in front of or behind the data if it is not the "^DD",160.17,160.171,6,21,2,0) max length. This element is devided into two pieces delimeted by a comma. "^DD",160.17,160.171,6,21,3,0) The first part tell where the fill is to go. Second part tells waht to "^DD",160.17,160.171,6,21,4,0) fill with. "R" means to fill on the right side of the value and "L" means "^DD",160.17,160.171,6,21,6,0) "^DD",160.17,160.171,6,21,7,0) Example: L,BLANK = Fill the field with blanks then add the value to the "^DD",160.17,160.171,6,21,8,0) remainder "^DD",160.17,160.171,6,21,9,0) "^DD",160.17,160.171,6,21,10,0) BLANK = " " "^DD",160.17,160.171,6,21,11,0) ZERO = "0" "^DD",160.17,160.171,6,21,12,0) NINE = "9" "^DD",160.17,160.171,6,"DT") 2970509 "^DD",160.17,160.172,0) RULES SUB-FIELD^^.01^1 "^DD",160.17,160.172,0,"NM","RULES") "^DD",160.17,160.172,0,"UP") 160.17 "^DD",160.17,160.172,.01,0) RULES^W^^0;1^Q "^DD",160.17,160.172,.01,"DT") 2970618 "^DD",164,164,0) FIELD^NL^1^54 "^DD",164,164,0,"DDA") N "^DD",164,164,0,"DT") 3060613 "^DD",164,164,0,"ID","WRITE") D EN^DDIOL($P(^(0),U,2)_" "_$P(^(0),U,9),"","?52") "^DD",164,164,0,"IX","B",164,.01) "^DD",164,164,0,"IX","C",164.01,.01) "^DD",164,164,0,"IX","E",164.05,.01) "^DD",164,164,0,"IX","H",164,1) "^DD",164,164,0,"IX","I",164,.065) "^DD",164,164,0,"NM","ICDO TOPOGRAPHY") "^DD",164,164,0,"PT",164,29) "^DD",164,164,0,"PT",164,41) "^DD",164,164,0,"PT",164,51) "^DD",164,164,0,"PT",164,107) "^DD",164,164,0,"PT",164.1,4) "^DD",164,164,0,"PT",164.22,.01) "^DD",164,164,0,"PT",164.512,.01) "^DD",164,164,0,"PT",164.522,.01) "^DD",164,164,0,"PT",164.532,.01) "^DD",164,164,0,"PT",164.552,.01) "^DD",164,164,0,"PT",165.5,20) "^DD",164,164,0,"PT",165.5,803) "^DD",164,164,0,"PT",165.5,805) "^DD",164,164,0,"PT",165.5,1102) "^DD",164,164,0,"PT",165.5,1104) "^DD",164,164,0,"PT",165.5,1403) "^DD",164,164,0,"PT",165.5,1573) "^DD",164,164,0,"PT",165.52,1) "^DD",164,164,0,"PT",169.3,4) "^DD",164,164,0,"PT",169.3,4.1) "^DD",164,164,0,"VER") 2.0 "^DD",164,164,0,"VRPK") ONC "^DD",164,164,.001,0) NUMBER^NJ5,0^^ ^K:+X'=X!(X>67899)!(X<67000)!(X?.E1"."1N.N) X "^DD",164,164,.001,3) Type a Number between 67000 and 67899, 0 Decimal Digits "^DD",164,164,.001,21,0) ^^8^8^2930512^^ "^DD",164,164,.001,21,1,0) This field, artificially created, provides easy direct access to the file. "^DD",164,164,.001,21,2,0) "^DD",164,164,.001,21,3,0) The first two digits are the ASCII value of the first character of the "^DD",164,164,.001,21,4,0) ICD-O code. The last three digits are the numeric portion of the ICD-O "^DD",164,164,.001,21,5,0) code, omitting the decimal point. "^DD",164,164,.001,21,6,0) "^DD",164,164,.001,21,7,0) Do not confuse this code with the 5-digit MORPHOLOGY code. One ICD-O "^DD",164,164,.001,21,8,0) TOPOGRAPHY code may have several corresponding MORPHOLOGY codes. "^DD",164,164,.001,"DT") 2920107 "^DD",164,164,.01,0) NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X "^DD",164,164,.01,1,0) ^.1^^-1 "^DD",164,164,.01,1,1,0) 164^B "^DD",164,164,.01,1,1,1) S ^ONCO(164,"B",$E(X,1,30),DA)="" "^DD",164,164,.01,1,1,2) K ^ONCO(164,"B",$E(X,1,30),DA) "^DD",164,164,.01,3) ANSWER MUST BE 3-30 CHARACTERS IN LENGTH "^DD",164,164,.01,21,0) ^.001^1^1^3020618^^^^ "^DD",164,164,.01,21,1,0) FREE TEXT FIELD FOR NAME. "^DD",164,164,.01,"DT") 3020618 "^DD",164,164,.05,0) SURGERY CODING^P164.2'^ONCO(164.2,^0;5^Q "^DD",164,164,.05,21,0) ^^1^1^2920528^ "^DD",164,164,.05,21,1,0) POINTS TO LIST OF SEER SURGERY CODES. "^DD",164,164,.05,"DT") 2900125 "^DD",164,164,.065,0) REPORTING SITE GROUP^P164.14'^ONCO(164.14,^4;1^Q "^DD",164,164,.065,1,0) ^.1 "^DD",164,164,.065,1,1,0) 164^I "^DD",164,164,.065,1,1,1) S ^ONCO(164,"I",$E(X,1,30),DA)="" "^DD",164,164,.065,1,1,2) K ^ONCO(164,"I",$E(X,1,30),DA) "^DD",164,164,.065,1,1,"%D",0) ^^2^2^2930622^ "^DD",164,164,.065,1,1,"%D",1,0) This cross-reference facilitates a backward pointer from the AJCC SITE "^DD",164,164,.065,1,1,"%D",2,0) GROUP FOR REPORTING File (164.14). "^DD",164,164,.065,1,1,"DT") 2930622 "^DD",164,164,.065,21,0) ^^1^1^2930820^^ "^DD",164,164,.065,21,1,0) This is the site group under which the topography is classified on reports. "^DD",164,164,.065,"DT") 2930622 "^DD",164,164,.07,0) PAIRED ORGAN^S^1:LATERALITY CODE REQUIRED;^0;7^Q "^DD",164,164,.07,21,0) ^^2^2^2920528^ "^DD",164,164,.07,21,1,0) RECORDS THE EXISTENCE OF PAIRED ORGANS, THOSE ORGANS THAT ARE "^DD",164,164,.07,21,2,0) TWO IN NUMBER, SUCH AS KIDNEY, TESTES, ARMS, LEGS, LUNGS, ETC. "^DD",164,164,.07,"DT") 2900516 "^DD",164,164,.08,0) SEX^S^1:MALE ONLY;2:FEMALE ONLY;^0;8^Q "^DD",164,164,.08,21,0) ^^1^1^2920528^ "^DD",164,164,.08,21,1,0) RECORDS THE PATIENT'S SEX. "^DD",164,164,.08,"DT") 2920107 "^DD",164,164,1,0) CODE^RF^^0;2^K:$L(X)>5!($L(X)<5) X "^DD",164,164,1,1,0) ^.1 "^DD",164,164,1,1,1,0) 164^H "^DD",164,164,1,1,1,1) S ^ONCO(164,"H",$E(X,1,30),DA)="" "^DD",164,164,1,1,1,2) K ^ONCO(164,"H",$E(X,1,30),DA) "^DD",164,164,1,1,1,"%D",0) ^^1^1^3020618^ "^DD",164,164,1,1,1,"%D",1,0) Indexes file by CODE. "^DD",164,164,1,1,1,"DT") 3020618 "^DD",164,164,1,3) Answer must be 5 characters in length. "^DD",164,164,1,21,0) ^^1^1^3020618^ "^DD",164,164,1,21,1,0) FREE TEXT FIELD RECORDING CODE NUMBER "^DD",164,164,1,"DT") 3020618 "^DD",164,164,3,0) TYPE^164.01A^^1;0 "^DD",164,164,3,21,0) ^^1^1^2930930^^ "^DD",164,164,3,21,1,0) MULTIPLE FIELD ALLOWING FOR RECORDING OF TYPE. "^DD",164,164,21,0) TNM CODING APPLICABLE^S^Y:Yes;N:No;^0;14^Q "^DD",164,164,21,21,0) ^^4^4^2930812^ "^DD",164,164,21,21,1,0) Enter 'Y' if TNM coding is applicable to this anatomical site, "^DD",164,164,21,21,2,0) or 'N' if TNM coding does not apply. "^DD",164,164,21,21,3,0) "^DD",164,164,21,21,4,0) If no entry is made, it is assumed that TNM coding *is* applicable. "^DD",164,164,21,"DT") 2930812 "^DD",164,164,22,0) MM SKIN^S^1:Applicable;^0;15^Q "^DD",164,164,22,21,0) ^^2^2^2930819^ "^DD",164,164,22,21,1,0) This field contains a flag which, when set to 1, indicates that this "^DD",164,164,22,21,2,0) topographic site is one to which malignant melanoma staging may apply. "^DD",164,164,22,"DT") 2930819 "^DD",164,164,29,0) T & N CODES^P164'^ONCO(164,^0;11^Q "^DD",164,164,29,21,0) ^^1^1^2930713^^ "^DD",164,164,29,21,1,0) POINTER TO FILE CONTAINING THE T(UMOR) AND N(ODES) CODES. "^DD",164,164,29,"DT") 2930713 "^DD",164,164,30,0) AJCC STAGING GROUP^P164.33'^ONCO(164.33,^0;12^Q "^DD",164,164,30,1,0) ^.1^^0 "^DD",164,164,30,3) "^DD",164,164,30,21,0) ^^3^3^2920528^ "^DD",164,164,30,21,1,0) CONTAINS THE POINTERS FOR CHAPTERS IN THE AMERICAN JOINT COMMISSION "^DD",164,164,30,21,2,0) ON CANCER MANUAL FOR THE STAGING OF CANCER, 3RD EDITION. EACH "^DD",164,164,30,21,3,0) CHAPTER DEALS WITH A DIFFERENT PRIMARY SITE. "^DD",164,164,30,"DT") 3021028 "^DD",164,164,31,0) T-CLASS ENCODING^164.06I^^T;0 "^DD",164,164,31,21,0) ^^1^1^2971104^^^^ "^DD",164,164,31,21,1,0) RECORDS THE T(UMOR) DESCRIPTION. "^DD",164,164,32,0) N-CLASS ENCODING^164.065I^^N;0 "^DD",164,164,32,21,0) ^^1^1^2971104^^^^ "^DD",164,164,32,21,1,0) RECORDS THE LYMPH N(ODE) DESCRIPTION. "^DD",164,164,32.1,0) 4TH EDITION N-CLASS ENCODING^164.09I^^N4;0 "^DD",164,164,32.1,21,0) ^^2^2^2971105^^^^ "^DD",164,164,32.1,21,1,0) This multiple contains the N-codes from the AJCC Manual on Staging of "^DD",164,164,32.1,21,2,0) Cancer, 4th edition (1992). "^DD",164,164,33,0) STAGE GROUP^164.066I^^S;0 "^DD",164,164,33,21,0) ^^2^2^2930930^^ "^DD",164,164,33,21,1,0) RECORDS THE STAGING GROUPING IN ACCORDANCE WITH THE AJCC MANUAL "^DD",164,164,33,21,2,0) FOR THE STAGING OF CANCER. "^DD",164,164,41,0) EXTENSION CODING^P164'^ONCO(164,^0;3^Q "^DD",164,164,41,21,0) ^^1^1^2920528^ "^DD",164,164,41,21,1,0) POINTS TO THE FILE CONTAINING THE SEER EXTENSION CODES. "^DD",164,164,41,"DT") 2911227 "^DD",164,164,43,0) EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,43,12) A first edition extension code set may be chosen. "^DD",164,164,43,12.1) S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>1" "^DD",164,164,43,21,0) ^^3^3^2940713^ "^DD",164,164,43,21,1,0) This field identifies the set of codes used to characterize extension for "^DD",164,164,43,21,2,0) this topography in the first edition of SEER Extent of Disease Codes and "^DD",164,164,43,21,3,0) Coding Instructions. "^DD",164,164,43,"DT") 2940713 "^DD",164,164,43.01,0) EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,43.01,12) A first or second edition extension code set may be chosen. "^DD",164,164,43.01,12.1) S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>2" "^DD",164,164,43.01,21,0) ^^5^5^2981201^^^ "^DD",164,164,43.01,21,1,0) "^DD",164,164,43.01,21,2,0) This field identifies the set of codes used to characterize extension for "^DD",164,164,43.01,21,3,0) this topography in the second edition of SEER Extent of Disease Codes and "^DD",164,164,43.01,21,4,0) Coding Instructions. "^DD",164,164,43.01,21,5,0) "^DD",164,164,43.01,"DT") 2940713 "^DD",164,164,43.02,0) EXTENSION CODE SET-3RD ED^*P164.5'^ONCO(164.5,^E;3^S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,43.02,12) A first, second or third edition extension code may be selected. "^DD",164,164,43.02,12.1) S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>3" "^DD",164,164,43.02,21,0) ^^5^5^2981201^^^^ "^DD",164,164,43.02,21,1,0) "^DD",164,164,43.02,21,2,0) This field identifies the set of codes used to characterize extension for "^DD",164,164,43.02,21,3,0) this topography in the third edition of SEER Extent of Disease Codes and "^DD",164,164,43.02,21,4,0) Coding Instructions. "^DD",164,164,43.02,21,5,0) "^DD",164,164,43.02,"DT") 2981201 "^DD",164,164,51,0) LYMPH NODE ENCODING^P164'^ONCO(164,^0;4^Q "^DD",164,164,51,21,0) ^^1^1^2920528^ "^DD",164,164,51,21,1,0) POINTS TO THE FILE CONTAINING THE LYMPH NODE CODES. "^DD",164,164,51,"DT") 2911227 "^DD",164,164,53,0) LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,53,12) A first edition lymph node code may be selected. "^DD",164,164,53,12.1) S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>1" "^DD",164,164,53,21,0) ^^3^3^2981112^^^ "^DD",164,164,53,21,1,0) This field identifies the set of codes used to characterize lymph node "^DD",164,164,53,21,2,0) involvement for this topography in the first edition of SEER Extent of "^DD",164,164,53,21,3,0) Disease Codes and Coding Instructions. "^DD",164,164,53,"DT") 2940713 "^DD",164,164,53.01,0) LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,53.01,12) A first or second edition lymph node code set may be chosen. "^DD",164,164,53.01,12.1) S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>2" "^DD",164,164,53.01,21,0) ^^3^3^2981112^^^ "^DD",164,164,53.01,21,1,0) This field identifies the set of codes used to characterize lymph node "^DD",164,164,53.01,21,2,0) involvement for this topography in the second edition of SEER Extent of "^DD",164,164,53.01,21,3,0) Disease Codes and Coding Instructions. "^DD",164,164,53.01,22) "^DD",164,164,53.01,"DT") 2940713 "^DD",164,164,53.02,0) LYMPH NODE CODE SET-3RD ED^*P164.5'^ONCO(164.5,^L;3^S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>3" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,53.02,12) A first, second or third edition lymph node code set may be chosen. "^DD",164,164,53.02,12.1) S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>3" "^DD",164,164,53.02,21,0) ^^5^5^2981112^^ "^DD",164,164,53.02,21,1,0) "^DD",164,164,53.02,21,2,0) This field identifies the set of codes used to characterize lymph node "^DD",164,164,53.02,21,3,0) involvement for this topography in the third edition of SEER Extent of "^DD",164,164,53.02,21,4,0) Disease Codes and Coding Instructions. "^DD",164,164,53.02,21,5,0) "^DD",164,164,53.02,"DT") 2981112 "^DD",164,164,60,0) SNOMED ENCODING^164.04P^^2;0 "^DD",164,164,60,21,0) ^^1^1^2990601^^^ "^DD",164,164,60,21,1,0) POINTS TO THE FILE CONTAINING THE SNOMED CODES FOR HISTO-MORPHOLOGY. "^DD",164,164,61,0) SNOMED DECODING^164.05^^3;0 "^DD",164,164,61,21,0) ^^1^1^2930930^^ "^DD",164,164,61,21,1,0) RECORDS THE TEXT GENERATED BY THE SNOMED CODES. "^DD",164,164,63,0) SURGERY CODE SET-1ST ED^*P164.5'^ONCO(164.5,^SR;1^S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,5)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,63,12) A first edition surgery code set may be chosen. "^DD",164,164,63,12.1) S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,5)'>1" "^DD",164,164,63,21,0) ^^3^3^2940715^ "^DD",164,164,63,21,1,0) This field identifies the set of codes used to characterize cancer-related "^DD",164,164,63,21,2,0) surgery for this topography in the first edition of the Data Acquisition "^DD",164,164,63,21,3,0) Manual. "^DD",164,164,63,"DT") 2940715 "^DD",164,164,63.01,0) SURGERY CODE SET-2ND ED^*P164.5'^ONCO(164.5,^SR;2^S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,63.01,12) A first or second edition surgery code set may be selected. "^DD",164,164,63.01,12.1) S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,2)'>2" "^DD",164,164,63.01,21,0) ^^3^3^2940715^ "^DD",164,164,63.01,21,1,0) This field identifies the set of codes used to characterize cancer-related "^DD",164,164,63.01,21,2,0) surgery for this topography in the second edition of the Data Acquisition "^DD",164,164,63.01,21,3,0) Manual. "^DD",164,164,63.01,"DT") 2940715 "^DD",164,164,71,0) AJCC CHAP#-NAME^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12) Q:X="" S X=$S($L(X)=1:0_X,1:X),X="#"_X_": "_$P(^ONCO(164.33,+X,0),U) "^DD",164,164,71,9) ^ "^DD",164,164,71,9.01) "^DD",164,164,71,9.1) S X=$P(^ONCO(164,D0,0),U,12) Q:X="" S X=$S($L(X)=1:0_X,1:X),X="#"_X_": "_$P(^ONCO(164.33,+X,0),U) "^DD",164,164,71,21,0) ^^2^2^2920528^ "^DD",164,164,71,21,1,0) RECORDS THE AJCC CHAPTER NUMBER AND THE NAME OF THE SECTION "^DD",164,164,71,21,2,0) IT DESCRIBES. "^DD",164,164,71,"DT") 2920331 "^DD",164,164,72,0) ajcc cp#^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12) "^DD",164,164,72,9) ^ "^DD",164,164,72,9.01) "^DD",164,164,72,9.1) S X=$P(^ONCO(164,D0,0),U,12) "^DD",164,164,72,21,0) ^^2^2^2920528^ "^DD",164,164,72,21,1,0) COMPUTED FIELD FOR THE AJCC CHAPTER NUMBER, EACH NUMBER IS ASSOCIATED "^DD",164,164,72,21,2,0) WITH A DIFFERENT TYPE OF CANCER. "^DD",164,164,101,0) 4TH EDITION T-CLASS ENCODING^164.0101IA^^T4;0 "^DD",164,164,101,21,0) ^^2^2^2971105^^^^ "^DD",164,164,101,21,1,0) This multiple contains T codes from the fourth edition of the AJCC Manual "^DD",164,164,101,21,2,0) on Staging of Cancer. "^DD",164,164,102,0) DEFAULT PRIMARY SITE GROUP^P164.2'^ONCO(164.2,^0;13^Q "^DD",164,164,102,21,0) ^^4^4^2930703^ "^DD",164,164,102,21,1,0) This field maps ICD-O second edition topography codes to the "^DD",164,164,102,21,2,0) SITE-GROUP FOR ONCOLOGY File (#164.2). Its chief purpose is "^DD",164,164,102,21,3,0) to facilitate conversions from non-DHCP databases by creating "^DD",164,164,102,21,4,0) a .01 field for the ONCOLOGY PRIMARY File (#165.5). "^DD",164,164,102,"DT") 2930703 "^DD",164,164,103,0) 5TH EDITION T-CODES^164.0103^^T5;0 "^DD",164,164,104,0) 5TH EDITION N-CODES^164.0104^^N5;0 "^DD",164,164,105,0) 5TH EDITION M-CODES^164.0105^^M5;0 "^DD",164,164,106,0) 5TH EDITION T-CODE HELP^164.0106^^5;0 "^DD",164,164,107,0) SURGERY CODE GROUP-5TH ED^P164'^ONCO(164,^0;16^Q "^DD",164,164,107,21,0) ^.001^3^3^3000707^^^ "^DD",164,164,107,21,1,0) This field contains a pointer to the Topography which has the surgery codes "^DD",164,164,107,21,2,0) for the group that this Topography is in. The Topography which contains the "^DD",164,164,107,21,3,0) codes has this field pointing to itself. "^DD",164,164,107,"DT") 2971212 "^DD",164,164,108,0) 5TH ED-SURGICAL APPROACH CODES^164.0108^^SUA;0 "^DD",164,164,108,"DT") 2971222 "^DD",164,164,109,0) 5TH EDITION N-CODE HELP^164.0109^^6;0 "^DD",164,164,110,0) 5TH EDITION M-CODE HELP^164.02^^7;0 "^DD",164,164,110,"DT") 2971223 "^DD",164,164,111,0) 5TH ED-SURGERY PRIMARY SITE^164.0111^^SPS;0 "^DD",164,164,112,0) 5TH ED-SURGICAL MARGINS^164.0112^^SM5;0 "^DD",164,164,113,0) 5TH ED-SCOPE LYMPH NODE SURG^164.0113^^SC5;0 "^DD",164,164,114,0) 5TH ED-NUMBER LYMPH ND REMOVED^164.0114^^NL5;0 "^DD",164,164,115,0) 5TH ED-SURGERY OTHER REG SITES^164.0115^^SO5;0 "^DD",164,164,116,0) 5TH ED-RECONSTRUCTION^164.0116I^^RR5;0 "^DD",164,164,117,0) 5TH ED-BIOPSY PROCEDURE CODES^164.0117^^BP5;0 "^DD",164,164,118,0) 5TH ED-GUIDANCE CODES^164.0118^^GU5;0 "^DD",164,164,119,0) 6TH EDITION (T) CODES^164.0119^^T6;0 "^DD",164,164,119,21,0) ^.001^2^2^3020702^^^^ "^DD",164,164,119,21,1,0) This field contains the Sixth Edition Primary Tumor (T) codes. T codes "^DD",164,164,119,21,2,0) record the extent of the primary tumor. "^DD",164,164,119,"DT") 3020619 "^DD",164,164,120,0) 6TH EDITION (T) CODE HELP^164.012^^8;0 "^DD",164,164,120,21,0) ^.001^2^2^3020619^^ "^DD",164,164,120,21,1,0) This field contains the full text of the Sixth Edition Primary Tumor "^DD",164,164,120,21,2,0) (T) code definitions. "^DD",164,164,121,0) 6TH EDITION (N) CODES^164.0121^^N6;0 "^DD",164,164,121,21,0) ^.001^3^3^3020716^^^^ "^DD",164,164,121,21,1,0) This field contains the Sixth Edition Regional Lymph Nodes (N) codes. N "^DD",164,164,121,21,2,0) codes record the absence or presence and extent of regional lymph node "^DD",164,164,121,21,3,0) metastasis. "^DD",164,164,121,"DT") 3020619 "^DD",164,164,122,0) 6TH EDITION (N) CODE HELP^164.0122^^9;0 "^DD",164,164,122,21,0) ^.001^2^2^3020619^^^^ "^DD",164,164,122,21,1,0) This field contains the full text of the Sixth Edition Regional Lymph "^DD",164,164,122,21,2,0) Nodes (N) code definitions. "^DD",164,164,122,"DT") 3020619 "^DD",164,164,123,0) 6TH EDITION (M) CODES^164.0123^^M6;0 "^DD",164,164,123,21,0) ^^2^2^3020711^ "^DD",164,164,123,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) codes. "^DD",164,164,123,21,2,0) M codes record the absence or presence of distant metastasis. "^DD",164,164,124,0) 6TH EDITION (M) CODE HELP^164.0124^^10;0 "^DD",164,164,124,21,0) ^^2^2^3020716^ "^DD",164,164,124,21,1,0) This field contains the full text of the Sixth Edition Distant "^DD",164,164,124,21,2,0) Metastasis (M) code definitions. "^DD",164,164.01,0) TYPE SUB-FIELD^NL^.01^1 "^DD",164,164.01,0,"NM","TYPE") "^DD",164,164.01,0,"UP") 164 "^DD",164,164.01,.01,0) TYPE^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>25!($L(X)<3) X "^DD",164,164.01,.01,1,0) ^.1 "^DD",164,164.01,.01,1,1,0) 164^C "^DD",164,164.01,.01,1,1,1) S ^ONCO(164,"C",$E(X,1,30),DA(1),DA)="" "^DD",164,164.01,.01,1,1,2) K ^ONCO(164,"C",$E(X,1,30),DA(1),DA) "^DD",164,164.01,.01,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164.01,.01,1,1,"%D",1,0) Indexes file by TYPE. "^DD",164,164.01,.01,3) ANSWER MUST BE 3-25 CHARACTERS IN LENGTH "^DD",164,164.01,.01,21,0) ^^1^1^2930930^ "^DD",164,164.01,.01,21,1,0) This is the type of topography code. "^DD",164,164.0101,0) 4TH EDITION T-CLASS ENCODING SUB-FIELD^^.03^3 "^DD",164,164.0101,0,"DT") 2971105 "^DD",164,164.0101,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.0101,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.0101,0,"IX","B",164.0101,.01) "^DD",164,164.0101,0,"NM","4TH EDITION T-CLASS ENCODING") "^DD",164,164.0101,0,"UP") 164 "^DD",164,164.0101,.01,0) 4TH EDITION T-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164,164.0101,.01,1,0) ^.1 "^DD",164,164.0101,.01,1,1,0) 164.0101^B "^DD",164,164.0101,.01,1,1,1) S ^ONCO(164,DA(1),"T4","B",$E(X,1,30),DA)="" "^DD",164,164.0101,.01,1,1,2) K ^ONCO(164,DA(1),"T4","B",$E(X,1,30),DA) "^DD",164,164.0101,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.0101,.01,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.01,21,1,0) This is the type of tumor. "^DD",164,164.0101,.01,"DT") 2971105 "^DD",164,164.0101,.02,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q "^DD",164,164.0101,.02,1,0) ^.1^^0 "^DD",164,164.0101,.02,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.02,21,1,0) This is the code as it appears in the AJCC Manual on Staging. "^DD",164,164.0101,.02,"DT") 3041209 "^DD",164,164.0101,.03,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q "^DD",164,164.0101,.03,1,0) ^.1 "^DD",164,164.0101,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.0101,.03,1,1,1) S ^ONCO(164,DA(1),"T4","X",X)=DA "^DD",164,164.0101,.03,1,1,2) K ^ONCO(164,DA(1),"T4","X",X) "^DD",164,164.0101,.03,1,1,"%D",0) ^^1^1^2930702^^ "^DD",164,164.0101,.03,1,1,"%D",1,0) For lookup on output transform "^DD",164,164.0101,.03,1,1,"DT") 2930702 "^DD",164,164.0101,.03,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.03,21,1,0) This is the code as it is transmitted to ACoS. "^DD",164,164.0101,.03,"DT") 2971105 "^DD",164,164.0103,0) 5TH EDITION T-CODES SUB-FIELD^^2^3 "^DD",164,164.0103,0,"DT") 2971121 "^DD",164,164.0103,0,"IX","B",164.0103,.01) "^DD",164,164.0103,0,"IX","X",164.0103,1) "^DD",164,164.0103,0,"IX","X",164.0103,2) "^DD",164,164.0103,0,"NM","5TH EDITION T-CODES") "^DD",164,164.0103,0,"UP") 164 "^DD",164,164.0103,.01,0) 5TH EDITION T-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0103,.01,1,0) ^.1 "^DD",164,164.0103,.01,1,1,0) 164.0103^B "^DD",164,164.0103,.01,1,1,1) S ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA)="" "^DD",164,164.0103,.01,1,1,2) K ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA) "^DD",164,164.0103,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0103,.01,"DT") 2971029 "^DD",164,164.0103,1,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q "^DD",164,164.0103,1,1,0) ^.1 "^DD",164,164.0103,1,1,1,0) 164.0103^X^MUMPS "^DD",164,164.0103,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164,DA(1),"T5","X",X)=DA "^DD",164,164.0103,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164,DA(1),"T5","X",X) "^DD",164,164.0103,1,1,1,"%D",0) ^^1^1^3030206^ "^DD",164,164.0103,1,1,1,"%D",1,0) This cross-reference will allow lookup by CODE. "^DD",164,164.0103,1,1,1,"DT") 3030206 "^DD",164,164.0103,1,"DT") 3030206 "^DD",164,164.0103,2,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;1MIC:T1MIC;1B1:T1B1;1B2:T1B2;^0;3^Q "^DD",164,164.0103,2,1,0) ^.1 "^DD",164,164.0103,2,1,1,0) 164.0103^X^MUMPS "^DD",164,164.0103,2,1,1,1) S ^ONCO(164,DA(1),"T5","X",X)=DA "^DD",164,164.0103,2,1,1,2) K ^ONCO(164,DA(1),"T5","X",X) "^DD",164,164.0103,2,1,1,"DT") 2971022 "^DD",164,164.0103,2,"DT") 2971121 "^DD",164,164.0104,0) 5TH EDITION N-CODES SUB-FIELD^^2^3 "^DD",164,164.0104,0,"DT") 2971029 "^DD",164,164.0104,0,"IX","B",164.0104,.01) "^DD",164,164.0104,0,"IX","X",164.0104,2) "^DD",164,164.0104,0,"NM","5TH EDITION N-CODES") "^DD",164,164.0104,0,"UP") 164 "^DD",164,164.0104,.01,0) 5TH EDITION N-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0104,.01,1,0) ^.1 "^DD",164,164.0104,.01,1,1,0) 164.0104^B "^DD",164,164.0104,.01,1,1,1) S ^ONCO(164,DA(1),"N5","B",$E(X,1,30),DA)="" "^DD",164,164.0104,.01,1,1,2) K ^ONCO(164,DA(1),"N5","B",$E(X,1,30),DA) "^DD",164,164.0104,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0104,.01,"DT") 2971029 "^DD",164,164.0104,1,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.0104,1,"DT") 2971029 "^DD",164,164.0104,2,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.0104,2,1,0) ^.1 "^DD",164,164.0104,2,1,1,0) 164.0104^X^MUMPS "^DD",164,164.0104,2,1,1,1) S ^ONCO(164,DA(1),"N5","X",X)=DA "^DD",164,164.0104,2,1,1,2) K ^ONCO(164,DA(1),"N5","X",X) "^DD",164,164.0104,2,1,1,"DT") 2990323 "^DD",164,164.0104,2,"DT") 2990323 "^DD",164,164.0105,0) 5TH EDITION M-CODES SUB-FIELD^^2^3 "^DD",164,164.0105,0,"DT") 2971031 "^DD",164,164.0105,0,"IX","B",164.0105,.01) "^DD",164,164.0105,0,"IX","X",164.0105,2) "^DD",164,164.0105,0,"NM","5TH EDITION M-CODES") "^DD",164,164.0105,0,"UP") 164 "^DD",164,164.0105,.01,0) 5TH EDITION M-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0105,.01,1,0) ^.1 "^DD",164,164.0105,.01,1,1,0) 164.0105^B "^DD",164,164.0105,.01,1,1,1) S ^ONCO(164,DA(1),"M5","B",$E(X,1,30),DA)="" "^DD",164,164.0105,.01,1,1,2) K ^ONCO(164,DA(1),"M5","B",$E(X,1,30),DA) "^DD",164,164.0105,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0105,.01,"DT") 2971031 "^DD",164,164.0105,1,0) CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;88:NA;^0;2^Q "^DD",164,164.0105,1,"DT") 2971031 "^DD",164,164.0105,2,0) ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;88:NA;^0;3^Q "^DD",164,164.0105,2,1,0) ^.1 "^DD",164,164.0105,2,1,1,0) 164.0105^X^MUMPS "^DD",164,164.0105,2,1,1,1) S ^ONCO(164,DA(1),"M5","X",X)=DA "^DD",164,164.0105,2,1,1,2) K ^ONCO(164,DA(1),"M5","X",X) "^DD",164,164.0105,2,1,1,"DT") 2971031 "^DD",164,164.0105,2,"DT") 2971031 "^DD",164,164.0106,0) 5TH EDITION T-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0106,0,"DT") 2971107 "^DD",164,164.0106,0,"NM","5TH EDITION T-CODE HELP") "^DD",164,164.0106,0,"UP") 164 "^DD",164,164.0106,.01,0) 5TH EDITION T-CODE HELP^W^^0;1^Q "^DD",164,164.0106,.01,"DT") 2971107 "^DD",164,164.0108,0) 5TH ED-SURGICAL APPROACH CODES SUB-FIELD^^1^2 "^DD",164,164.0108,0,"DT") 2971212 "^DD",164,164.0108,0,"IX","B",164.0108,.01) "^DD",164,164.0108,0,"IX","C",164.0108,1) "^DD",164,164.0108,0,"NM","5TH ED-SURGICAL APPROACH CODES") "^DD",164,164.0108,0,"UP") 164 "^DD",164,164.0108,.01,0) 5TH ED-SURGICAL APPROACH CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0108,.01,1,0) ^.1 "^DD",164,164.0108,.01,1,1,0) 164.0108^B "^DD",164,164.0108,.01,1,1,1) S ^ONCO(164,DA(1),"SUA","B",$E(X,1,30),DA)="" "^DD",164,164.0108,.01,1,1,2) K ^ONCO(164,DA(1),"SUA","B",$E(X,1,30),DA) "^DD",164,164.0108,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0108,.01,"DT") 2971222 "^DD",164,164.0108,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0108,1,1,0) ^.1 "^DD",164,164.0108,1,1,1,0) 164.0108^C "^DD",164,164.0108,1,1,1,1) S ^ONCO(164,DA(1),"SUA","C",$E(X,1,30),DA)="" "^DD",164,164.0108,1,1,1,2) K ^ONCO(164,DA(1),"SUA","C",$E(X,1,30),DA) "^DD",164,164.0108,1,1,1,"%D",0) ^^1^1^3020115^ "^DD",164,164.0108,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-SURGICAL APPROACH CODES look-up by CODE. "^DD",164,164.0108,1,1,1,"DT") 3020115 "^DD",164,164.0108,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0108,1,"DT") 3020115 "^DD",164,164.0109,0) 5TH EDITION N-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0109,0,"DT") 2971215 "^DD",164,164.0109,0,"NM","5TH EDITION N-CODE HELP") "^DD",164,164.0109,0,"UP") 164 "^DD",164,164.0109,.01,0) 5TH EDITION N-CODE HELP^W^^0;1^Q "^DD",164,164.0109,.01,"DT") 2971215 "^DD",164,164.0111,0) 5TH ED-SURGERY PRIMARY SITE SUB-FIELD^^1^2 "^DD",164,164.0111,0,"DT") 2971222 "^DD",164,164.0111,0,"IX","B",164.0111,.01) "^DD",164,164.0111,0,"IX","C",164.0111,1) "^DD",164,164.0111,0,"NM","5TH ED-SURGERY PRIMARY SITE") "^DD",164,164.0111,0,"UP") 164 "^DD",164,164.0111,.01,0) 5TH ED-SURGERY PRIMARY SITE^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0111,.01,1,0) ^.1^^-1 "^DD",164,164.0111,.01,1,1,0) 164.0111^B "^DD",164,164.0111,.01,1,1,1) S ^ONCO(164,DA(1),"SPS","B",$E(X,1,30),DA)="" "^DD",164,164.0111,.01,1,1,2) K ^ONCO(164,DA(1),"SPS","B",$E(X,1,30),DA) "^DD",164,164.0111,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0111,.01,"DT") 3000726 "^DD",164,164.0111,1,0) CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0111,1,1,0) ^.1 "^DD",164,164.0111,1,1,1,0) 164.0111^C "^DD",164,164.0111,1,1,1,1) S ^ONCO(164,DA(1),"SPS","C",$E(X,1,30),DA)="" "^DD",164,164.0111,1,1,1,2) K ^ONCO(164,DA(1),"SPS","C",$E(X,1,30),DA) "^DD",164,164.0111,1,1,1,"%D",0) ^^1^1^3020103^ "^DD",164,164.0111,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-SURGERY PRIMARY SITE look-up by CODE. "^DD",164,164.0111,1,1,1,"DT") 3020103 "^DD",164,164.0111,1,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.0111,1,"DT") 3020103 "^DD",164,164.0112,0) 5TH ED-SURGICAL MARGINS SUB-FIELD^^1^2 "^DD",164,164.0112,0,"DT") 2971222 "^DD",164,164.0112,0,"IX","B",164.0112,.01) "^DD",164,164.0112,0,"IX","C",164.0112,1) "^DD",164,164.0112,0,"NM","5TH ED-SURGICAL MARGINS") "^DD",164,164.0112,0,"UP") 164 "^DD",164,164.0112,.01,0) 5TH ED-SURGICAL MARGINS^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0112,.01,1,0) ^.1 "^DD",164,164.0112,.01,1,1,0) 164.0112^B "^DD",164,164.0112,.01,1,1,1) S ^ONCO(164,DA(1),"SM5","B",$E(X,1,30),DA)="" "^DD",164,164.0112,.01,1,1,2) K ^ONCO(164,DA(1),"SM5","B",$E(X,1,30),DA) "^DD",164,164.0112,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0112,.01,"DT") 2971222 "^DD",164,164.0112,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0112,1,1,0) ^.1 "^DD",164,164.0112,1,1,1,0) 164.0112^C "^DD",164,164.0112,1,1,1,1) S ^ONCO(164,DA(1),"SM5","C",$E(X,1,30),DA)="" "^DD",164,164.0112,1,1,1,2) K ^ONCO(164,DA(1),"SM5","C",$E(X,1,30),DA) "^DD",164,164.0112,1,1,1,"%D",0) ^.101^1^1^3020115^^ "^DD",164,164.0112,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-SURGICAL MARGINS look-up by CODE. "^DD",164,164.0112,1,1,1,"DT") 3020115 "^DD",164,164.0112,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0112,1,"DT") 3020115 "^DD",164,164.0113,0) 5TH ED-SCOPE LYMPH NODE SURG SUB-FIELD^^1^2 "^DD",164,164.0113,0,"DT") 2971222 "^DD",164,164.0113,0,"IX","B",164.0113,.01) "^DD",164,164.0113,0,"IX","C",164.0113,1) "^DD",164,164.0113,0,"NM","5TH ED-SCOPE LYMPH NODE SURG") "^DD",164,164.0113,0,"UP") 164 "^DD",164,164.0113,.01,0) 5TH ED-SCOPE LYMPH NODE SURG^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0113,.01,1,0) ^.1 "^DD",164,164.0113,.01,1,1,0) 164.0113^B "^DD",164,164.0113,.01,1,1,1) S ^ONCO(164,DA(1),"SC5","B",$E(X,1,30),DA)="" "^DD",164,164.0113,.01,1,1,2) K ^ONCO(164,DA(1),"SC5","B",$E(X,1,30),DA) "^DD",164,164.0113,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0113,.01,"DT") 2971222 "^DD",164,164.0113,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0113,1,1,0) ^.1 "^DD",164,164.0113,1,1,1,0) 164.0113^C "^DD",164,164.0113,1,1,1,1) S ^ONCO(164,DA(1),"SC5","C",$E(X,1,30),DA)="" "^DD",164,164.0113,1,1,1,2) K ^ONCO(164,DA(1),"SC5","C",$E(X,1,30),DA) "^DD",164,164.0113,1,1,1,"%D",0) ^^1^1^3020103^ "^DD",164,164.0113,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-SCOPE LYMPH NODE SURG look-up by CODE. "^DD",164,164.0113,1,1,1,"DT") 3020103 "^DD",164,164.0113,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0113,1,"DT") 3020103 "^DD",164,164.0114,0) 5TH ED-NUMBER LYMPH ND REMOVED SUB-FIELD^^1^2 "^DD",164,164.0114,0,"DT") 2971222 "^DD",164,164.0114,0,"IX","B",164.0114,.01) "^DD",164,164.0114,0,"NM","5TH ED-NUMBER LYMPH ND REMOVED") "^DD",164,164.0114,0,"UP") 164 "^DD",164,164.0114,.01,0) 5TH ED-NUMBER LYMPH ND REMOVED^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0114,.01,1,0) ^.1 "^DD",164,164.0114,.01,1,1,0) 164.0114^B "^DD",164,164.0114,.01,1,1,1) S ^ONCO(164,DA(1),"NL5","B",$E(X,1,30),DA)="" "^DD",164,164.0114,.01,1,1,2) K ^ONCO(164,DA(1),"NL5","B",$E(X,1,30),DA) "^DD",164,164.0114,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0114,.01,"DT") 2971222 "^DD",164,164.0114,1,0) CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0114,1,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.0114,1,"DT") 2971222 "^DD",164,164.0115,0) 5TH ED-SURGERY OTHER REG SITES SUB-FIELD^^1^2 "^DD",164,164.0115,0,"DT") 2971222 "^DD",164,164.0115,0,"IX","B",164.0115,.01) "^DD",164,164.0115,0,"IX","C",164.0115,1) "^DD",164,164.0115,0,"NM","5TH ED-SURGERY OTHER REG SITES") "^DD",164,164.0115,0,"UP") 164 "^DD",164,164.0115,.01,0) 5TH ED-SURGERY OTHER REG SITES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0115,.01,1,0) ^.1 "^DD",164,164.0115,.01,1,1,0) 164.0115^B "^DD",164,164.0115,.01,1,1,1) S ^ONCO(164,DA(1),"SO5","B",$E(X,1,30),DA)="" "^DD",164,164.0115,.01,1,1,2) K ^ONCO(164,DA(1),"SO5","B",$E(X,1,30),DA) "^DD",164,164.0115,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0115,.01,"DT") 2971222 "^DD",164,164.0115,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0115,1,1,0) ^.1 "^DD",164,164.0115,1,1,1,0) 164.0115^C "^DD",164,164.0115,1,1,1,1) S ^ONCO(164,DA(1),"SO5","C",$E(X,1,30),DA)="" "^DD",164,164.0115,1,1,1,2) K ^ONCO(164,DA(1),"SO5","C",$E(X,1,30),DA) "^DD",164,164.0115,1,1,1,"%D",0) ^^1^1^3020103^ "^DD",164,164.0115,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-SURGERY OTHER REG SITES look-up by CODE. "^DD",164,164.0115,1,1,1,"DT") 3020103 "^DD",164,164.0115,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0115,1,"DT") 3020103 "^DD",164,164.0116,0) 5TH ED-RECONSTRUCTION SUB-FIELD^^1^2 "^DD",164,164.0116,0,"DT") 2971222 "^DD",164,164.0116,0,"IX","B",164.0116,.01) "^DD",164,164.0116,0,"IX","C",164.0116,1) "^DD",164,164.0116,0,"NM","5TH ED-RECONSTRUCTION") "^DD",164,164.0116,0,"UP") 164 "^DD",164,164.0116,.01,0) 5TH ED-RECONSTRUCTION^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0116,.01,1,0) ^.1 "^DD",164,164.0116,.01,1,1,0) 164.0116^B "^DD",164,164.0116,.01,1,1,1) S ^ONCO(164,DA(1),"RR5","B",$E(X,1,30),DA)="" "^DD",164,164.0116,.01,1,1,2) K ^ONCO(164,DA(1),"RR5","B",$E(X,1,30),DA) "^DD",164,164.0116,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0116,.01,"DT") 2971222 "^DD",164,164.0116,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0116,1,1,0) ^.1 "^DD",164,164.0116,1,1,1,0) 164.0116^C "^DD",164,164.0116,1,1,1,1) S ^ONCO(164,DA(1),"RR5","C",$E(X,1,30),DA)="" "^DD",164,164.0116,1,1,1,2) K ^ONCO(164,DA(1),"RR5","C",$E(X,1,30),DA) "^DD",164,164.0116,1,1,1,"%D",0) ^^1^1^3020115^ "^DD",164,164.0116,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-RECONSTRUCTION look-up by CODE. "^DD",164,164.0116,1,1,1,"DT") 3020115 "^DD",164,164.0116,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0116,1,"DT") 3000707 "^DD",164,164.0117,0) 5TH ED-BIOPSY PROCEDURE CODES SUB-FIELD^^1^2 "^DD",164,164.0117,0,"DT") 2980209 "^DD",164,164.0117,0,"IX","B",164.0117,.01) "^DD",164,164.0117,0,"IX","C",164.0117,1) "^DD",164,164.0117,0,"NM","5TH ED-BIOPSY PROCEDURE CODES") "^DD",164,164.0117,0,"UP") 164 "^DD",164,164.0117,.01,0) 5TH ED-BIOPSY PROCEDURE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0117,.01,1,0) ^.1 "^DD",164,164.0117,.01,1,1,0) 164.0117^B "^DD",164,164.0117,.01,1,1,1) S ^ONCO(164,DA(1),"BP5","B",$E(X,1,30),DA)="" "^DD",164,164.0117,.01,1,1,2) K ^ONCO(164,DA(1),"BP5","B",$E(X,1,30),DA) "^DD",164,164.0117,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0117,.01,"DT") 2980209 "^DD",164,164.0117,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0117,1,1,0) ^.1 "^DD",164,164.0117,1,1,1,0) 164.0117^C "^DD",164,164.0117,1,1,1,1) S ^ONCO(164,DA(1),"BP5","C",$E(X,1,30),DA)="" "^DD",164,164.0117,1,1,1,2) K ^ONCO(164,DA(1),"BP5","C",$E(X,1,30),DA) "^DD",164,164.0117,1,1,1,"%D",0) ^^1^1^3020104^ "^DD",164,164.0117,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-BIOPSY PROCEDURE CODES look-up by CODE. "^DD",164,164.0117,1,1,1,"DT") 3020104 "^DD",164,164.0117,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0117,1,"DT") 3020104 "^DD",164,164.0118,0) 5TH ED-GUIDANCE CODES SUB-FIELD^^1^2 "^DD",164,164.0118,0,"DT") 2980209 "^DD",164,164.0118,0,"IX","B",164.0118,.01) "^DD",164,164.0118,0,"IX","C",164.0118,1) "^DD",164,164.0118,0,"NM","5TH ED-GUIDANCE CODES") "^DD",164,164.0118,0,"UP") 164 "^DD",164,164.0118,.01,0) 5TH ED-GUIDANCE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0118,.01,1,0) ^.1 "^DD",164,164.0118,.01,1,1,0) 164.0118^B "^DD",164,164.0118,.01,1,1,1) S ^ONCO(164,DA(1),"GU5","B",$E(X,1,30),DA)="" "^DD",164,164.0118,.01,1,1,2) K ^ONCO(164,DA(1),"GU5","B",$E(X,1,30),DA) "^DD",164,164.0118,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0118,.01,"DT") 2980209 "^DD",164,164.0118,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0118,1,1,0) ^.1 "^DD",164,164.0118,1,1,1,0) 164.0118^C "^DD",164,164.0118,1,1,1,1) S ^ONCO(164,DA(1),"GU5","C",$E(X,1,30),DA)="" "^DD",164,164.0118,1,1,1,2) K ^ONCO(164,DA(1),"GU5","C",$E(X,1,30),DA) "^DD",164,164.0118,1,1,1,"%D",0) ^^1^1^3020104^ "^DD",164,164.0118,1,1,1,"%D",1,0) This cross-reference will allow 5TH ED-GUIDANCE CODES look-up by CODE. "^DD",164,164.0118,1,1,1,"DT") 3020104 "^DD",164,164.0118,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0118,1,"DT") 3020104 "^DD",164,164.0119,0) 6TH EDITION (T) CODES SUB-FIELD^^1^2 "^DD",164,164.0119,0,"DT") 3020702 "^DD",164,164.0119,0,"IX","B",164.0119,.01) "^DD",164,164.0119,0,"IX","X",164.0119,1) "^DD",164,164.0119,0,"NM","6TH EDITION (T) CODES") "^DD",164,164.0119,0,"UP") 164 "^DD",164,164.0119,.01,0) DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164,164.0119,.01,1,0) ^.1 "^DD",164,164.0119,.01,1,1,0) 164.0119^B "^DD",164,164.0119,.01,1,1,1) S ^ONCO(164,DA(1),"T6","B",$E(X,1,30),DA)="" "^DD",164,164.0119,.01,1,1,2) K ^ONCO(164,DA(1),"T6","B",$E(X,1,30),DA) "^DD",164,164.0119,.01,3) Answer must be 1-50 characters in length. "^DD",164,164.0119,.01,21,0) ^.001^1^1^3020702^^^^ "^DD",164,164.0119,.01,21,1,0) This field contains the Sixth Edition Primary Tumor (T) code descriptions. "^DD",164,164.0119,.01,"DT") 3020702 "^DD",164,164.0119,1,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q "^DD",164,164.0119,1,1,0) ^.1 "^DD",164,164.0119,1,1,1,0) 164.0119^X^MUMPS "^DD",164,164.0119,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164,DA(1),"T6","X",X)=DA "^DD",164,164.0119,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164,DA(1),"T6","X",X) "^DD",164,164.0119,1,1,1,"%D",0) ^^2^2^3020619^ "^DD",164,164.0119,1,1,1,"%D",1,0) This cross-reference is an uppercase cross-reference of the 6TH EDITION "^DD",164,164.0119,1,1,1,"%D",2,0) T-CODE values. "^DD",164,164.0119,1,1,1,"DT") 3020619 "^DD",164,164.0119,1,21,0) ^.001^1^1^3020619^^^ "^DD",164,164.0119,1,21,1,0) This field contains the Sixth Edition Primary Tumor (T) codes. "^DD",164,164.0119,1,"DT") 3020619 "^DD",164,164.012,0) 6TH EDITION (T) CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.012,0,"DT") 3020619 "^DD",164,164.012,0,"NM","6TH EDITION (T) CODE HELP") "^DD",164,164.012,0,"UP") 164 "^DD",164,164.012,.01,0) HELP TEXT^W^^0;1^Q "^DD",164,164.012,.01,21,0) ^.001^2^2^3020619^^ "^DD",164,164.012,.01,21,1,0) This field contains the full text of the Sixth Edition Primary Tumor "^DD",164,164.012,.01,21,2,0) (T) code definitions. "^DD",164,164.012,.01,"DT") 3020619 "^DD",164,164.0121,0) 6TH EDITION (N) CODES SUB-FIELD^^1^2 "^DD",164,164.0121,0,"DT") 3020716 "^DD",164,164.0121,0,"IX","B",164.0121,.01) "^DD",164,164.0121,0,"IX","X",164.0121,1) "^DD",164,164.0121,0,"NM","6TH EDITION (N) CODES") "^DD",164,164.0121,0,"UP") 164 "^DD",164,164.0121,.01,0) DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164,164.0121,.01,1,0) ^.1 "^DD",164,164.0121,.01,1,1,0) 164.0121^B "^DD",164,164.0121,.01,1,1,1) S ^ONCO(164,DA(1),"N6","B",$E(X,1,30),DA)="" "^DD",164,164.0121,.01,1,1,2) K ^ONCO(164,DA(1),"N6","B",$E(X,1,30),DA) "^DD",164,164.0121,.01,3) Answer must be 1-50 characters in length. "^DD",164,164.0121,.01,21,0) ^.001^2^2^3020716^^^^ "^DD",164,164.0121,.01,21,1,0) This field contains the Sixth Edition Regional Lymph Nodes (N) code "^DD",164,164.0121,.01,21,2,0) descriptions. "^DD",164,164.0121,.01,"DT") 3020716 "^DD",164,164.0121,1,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.0121,1,1,0) ^.1^^-1 "^DD",164,164.0121,1,1,1,0) 164.0121^X^MUMPS "^DD",164,164.0121,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164,DA(1),"N6","X",X)=DA "^DD",164,164.0121,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164,DA(1),"N6","X",X) "^DD",164,164.0121,1,1,1,"DT") 3020618 "^DD",164,164.0121,1,21,0) ^.001^1^1^3020619^^^ "^DD",164,164.0121,1,21,1,0) This field contains the Sixth Edition Regional Lymph Nodes (N) codes. "^DD",164,164.0121,1,"DT") 3020619 "^DD",164,164.0122,0) 6TH EDITION (N) CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0122,0,"DT") 3020619 "^DD",164,164.0122,0,"NM","6TH EDITION (N) CODE HELP") "^DD",164,164.0122,0,"UP") 164 "^DD",164,164.0122,.01,0) HELP TEXT^W^^0;1^Q "^DD",164,164.0122,.01,21,0) ^.001^2^2^3020619^^^ "^DD",164,164.0122,.01,21,1,0) This field contains the full text of the Sixth Edition Regional Lymph "^DD",164,164.0122,.01,21,2,0) Nodes (N) code definitions. "^DD",164,164.0122,.01,"DT") 3020619 "^DD",164,164.0123,0) 6TH EDITION (M) CODES SUB-FIELD^^1^2 "^DD",164,164.0123,0,"DT") 3020711 "^DD",164,164.0123,0,"IX","B",164.0123,.01) "^DD",164,164.0123,0,"IX","X",164.0123,1) "^DD",164,164.0123,0,"NM","6TH EDITION (M) CODES") "^DD",164,164.0123,0,"UP") 164 "^DD",164,164.0123,.01,0) DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164,164.0123,.01,1,0) ^.1 "^DD",164,164.0123,.01,1,1,0) 164.0123^B "^DD",164,164.0123,.01,1,1,1) S ^ONCO(164,DA(1),"M6","B",$E(X,1,30),DA)="" "^DD",164,164.0123,.01,1,1,2) K ^ONCO(164,DA(1),"M6","B",$E(X,1,30),DA) "^DD",164,164.0123,.01,3) Answer must be 1-50 characters in length. "^DD",164,164.0123,.01,21,0) ^^2^2^3020711^ "^DD",164,164.0123,.01,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) code "^DD",164,164.0123,.01,21,2,0) descriptions. "^DD",164,164.0123,.01,"DT") 3020711 "^DD",164,164.0123,1,0) CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;88:NA;^0;2^Q "^DD",164,164.0123,1,1,0) ^.1 "^DD",164,164.0123,1,1,1,0) 164.0123^X^MUMPS "^DD",164,164.0123,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164,DA(1),"M6","X",X)=DA "^DD",164,164.0123,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164,DA(1),"M6","X",X) "^DD",164,164.0123,1,1,1,"%D",0) ^^2^2^3020711^ "^DD",164,164.0123,1,1,1,"%D",1,0) This cross-reference is an uppercase cross-reference of the 6TH EDITION "^DD",164,164.0123,1,1,1,"%D",2,0) M-CODE values. "^DD",164,164.0123,1,1,1,"DT") 3020711 "^DD",164,164.0123,1,21,0) ^^1^1^3020711^ "^DD",164,164.0123,1,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) codes. "^DD",164,164.0123,1,"DT") 3020711 "^DD",164,164.0124,0) 6TH EDITION (M) CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0124,0,"DT") 3020716 "^DD",164,164.0124,0,"NM","6TH EDITION (M) CODE HELP") "^DD",164,164.0124,0,"UP") 164 "^DD",164,164.0124,.01,0) 6TH EDITION (M) CODE HELP^W^^0;1^Q "^DD",164,164.0124,.01,21,0) ^.001^2^2^3020716^^ "^DD",164,164.0124,.01,21,1,0) This field contains the full text of the Sixth Edition Distant "^DD",164,164.0124,.01,21,2,0) Metastasis (M) code definitions. "^DD",164,164.0124,.01,"DT") 3020716 "^DD",164,164.02,0) 5TH EDITION M-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.02,0,"DT") 2971217 "^DD",164,164.02,0,"NM","5TH EDITION M-CODE HELP") "^DD",164,164.02,0,"UP") 164 "^DD",164,164.02,.01,0) 5TH EDTION M CODE HELP^W^^0;1^Q "^DD",164,164.02,.01,3) Answer must be 3-70 characters in length. "^DD",164,164.02,.01,"DT") 2971217 "^DD",164,164.04,0) SNOMED ENCODING SUB-FIELD^NL^.01^1 "^DD",164,164.04,0,"NM","SNOMED ENCODING") "^DD",164,164.04,0,"UP") 164 "^DD",164,164.04,.01,0) SNOMED ENCODING^MP61'^LAB(61,^0;1^Q "^DD",164,164.04,.01,21,0) ^^1^1^2930930^ "^DD",164,164.04,.01,21,1,0) This is a SNOMED histo-morphology code corresponding to the topography code. "^DD",164,164.05,0) SNOMED DECODING SUB-FIELD^NL^.01^1 "^DD",164,164.05,0,"NM","SNOMED DECODING") "^DD",164,164.05,0,"UP") 164 "^DD",164,164.05,.01,0) SNOMED DECODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X "^DD",164,164.05,.01,1,0) ^.1 "^DD",164,164.05,.01,1,1,0) 164^E "^DD",164,164.05,.01,1,1,1) S ^ONCO(164,"E",$E(X,1,30),DA(1),DA)="" "^DD",164,164.05,.01,1,1,2) K ^ONCO(164,"E",$E(X,1,30),DA(1),DA) "^DD",164,164.05,.01,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164.05,.01,1,1,"%D",1,0) Indexes file by SNOMED DECODING. "^DD",164,164.05,.01,3) ANSWER MUST BE 1-5 CHARACTERS IN LENGTH "^DD",164,164.05,.01,21,0) ^^1^1^2930930^ "^DD",164,164.05,.01,21,1,0) This records the text generated by the SNOMED codes. "^DD",164,164.06,0) T-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.06,0,"DT") 2971104 "^DD",164,164.06,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.06,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.06,0,"IX","B",164.06,.01) "^DD",164,164.06,0,"IX","X",164.06,.03) "^DD",164,164.06,0,"NM","T-CLASS ENCODING") "^DD",164,164.06,0,"UP") 164 "^DD",164,164.06,.001,0) NUMBER^NJ5,2^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."3N.N) X "^DD",164,164.06,.001,3) Type a Number between 1 and 99, 2 Decimal Digits "^DD",164,164.06,.001,21,0) ^^1^1^2930930^ "^DD",164,164.06,.001,21,1,0) This is the numeric sequence of the T code, for display. "^DD",164,164.06,.001,"DT") 2920623 "^DD",164,164.06,.01,0) T-CLASS ENCODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<2) X "^DD",164,164.06,.01,1,0) ^.1 "^DD",164,164.06,.01,1,1,0) 164.06^B "^DD",164,164.06,.01,1,1,1) S ^ONCO(164,DA(1),"T","B",$E(X,1,30),DA)="" "^DD",164,164.06,.01,1,1,2) K ^ONCO(164,DA(1),"T","B",$E(X,1,30),DA) "^DD",164,164.06,.01,1,1,"DT") 2911212 "^DD",164,164.06,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.06,.01,21,0) ^^1^1^2971104^^^^ "^DD",164,164.06,.01,21,1,0) This is the description of the tumor. "^DD",164,164.06,.01,"DT") 2971104 "^DD",164,164.06,.02,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q "^DD",164,164.06,.02,21,0) ^^1^1^2971023^^^^ "^DD",164,164.06,.02,21,1,0) This is the code as recorded in the AJCC Manual on Staging. "^DD",164,164.06,.02,"DT") 2971023 "^DD",164,164.06,.03,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q "^DD",164,164.06,.03,1,0) ^.1 "^DD",164,164.06,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.06,.03,1,1,1) S ^ONCO(164,DA(1),"T","X",X)=DA "^DD",164,164.06,.03,1,1,2) K ^ONCO(164,DA(1),"T","X",X) "^DD",164,164.06,.03,1,1,"%D",0) ^^2^2^2920215^ "^DD",164,164.06,.03,1,1,"%D",1,0) For lookup on output transform "^DD",164,164.06,.03,1,1,"%D",2,0) \ "^DD",164,164.06,.03,1,1,"DT") 2911210 "^DD",164,164.06,.03,21,0) ^^1^1^2971023^^^^ "^DD",164,164.06,.03,21,1,0) This is the T code as transmitted to ACOS. "^DD",164,164.06,.03,"DT") 2971023 "^DD",164,164.065,0) N-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.065,0,"DT") 2971104 "^DD",164,164.065,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.065,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.065,0,"IX","B",164.065,.01) "^DD",164,164.065,0,"IX","X",164.0101,.03) "^DD",164,164.065,0,"IX","X",164.06,.03) "^DD",164,164.065,0,"IX","X",164.065,.03) "^DD",164,164.065,0,"NM","N-CLASS ENCODING") "^DD",164,164.065,0,"UP") 164 "^DD",164,164.065,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",164,164.065,.001,3) Type a Number between 1 and 99, 0 Decimal Digits "^DD",164,164.065,.001,21,0) ^^1^1^2930930^ "^DD",164,164.065,.001,21,1,0) This is the numeric sequence of the N code, for display. "^DD",164,164.065,.001,"DT") 2920130 "^DD",164,164.065,.01,0) N-CLASS ENCODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<2) X "^DD",164,164.065,.01,1,0) ^.1 "^DD",164,164.065,.01,1,1,0) 164.065^B "^DD",164,164.065,.01,1,1,1) S ^ONCO(164,DA(1),"N","B",$E(X,1,30),DA)="" "^DD",164,164.065,.01,1,1,2) K ^ONCO(164,DA(1),"N","B",$E(X,1,30),DA) "^DD",164,164.065,.01,1,1,"DT") 2911212 "^DD",164,164.065,.01,3) Answer must be 2-75 characters in length. "^DD",164,164.065,.01,21,0) ^^1^1^2971104^^^ "^DD",164,164.065,.01,21,1,0) This is the description of regional lymph node involvement. "^DD",164,164.065,.01,"DT") 2971104 "^DD",164,164.065,.02,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.065,.02,21,0) ^^1^1^2971103^^^^ "^DD",164,164.065,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164,164.065,.02,"DT") 2971103 "^DD",164,164.065,.03,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N2C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.065,.03,1,0) ^.1 "^DD",164,164.065,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.065,.03,1,1,1) S ^ONCO(164,DA(1),"N","X",X)=DA "^DD",164,164.065,.03,1,1,2) K ^ONCO(164,DA(1),"N","X",X) "^DD",164,164.065,.03,1,1,"%D",0) ^^1^1^2930910^ "^DD",164,164.065,.03,1,1,"%D",1,0) Indexes the sub-file by ACOS CODE. "^DD",164,164.065,.03,1,1,"DT") 2911210 "^DD",164,164.065,.03,21,0) ^^1^1^2971103^^^^ "^DD",164,164.065,.03,21,1,0) This is the N code as transmitted to ACoS. "^DD",164,164.065,.03,"DT") 2971103 "^DD",164,164.066,0) STAGE GROUP SUB-FIELD^^.02^2 "^DD",164,164.066,0,"DT") 2911211 "^DD",164,164.066,0,"ID",.02) W " ",$P(^(0),U,2) "^DD",164,164.066,0,"IX","B",164.066,.01) "^DD",164,164.066,0,"NM","STAGE GROUP") "^DD",164,164.066,0,"UP") 164 "^DD",164,164.066,.01,0) TNM SEQ^MF^^0;1^K:$L(X)>12!($L(X)<1) X "^DD",164,164.066,.01,1,0) ^.1 "^DD",164,164.066,.01,1,1,0) 164.066^B "^DD",164,164.066,.01,1,1,1) S ^ONCO(164,DA(1),"S","B",$E(X,1,30),DA)="" "^DD",164,164.066,.01,1,1,2) K ^ONCO(164,DA(1),"S","B",$E(X,1,30),DA) "^DD",164,164.066,.01,3) Answer must be 1-12 characters in length. "^DD",164,164.066,.01,21,0) ^^1^1^2930930^ "^DD",164,164.066,.01,21,1,0) This is the sequence number, for display. "^DD",164,164.066,.01,"DT") 2911211 "^DD",164,164.066,.02,0) STAGE GP^RF^^0;2^K:$L(X)>3!($L(X)<1) X "^DD",164,164.066,.02,3) Answer must be 1-3 characters in length. "^DD",164,164.066,.02,21,0) ^^1^1^2930930^ "^DD",164,164.066,.02,21,1,0) This is the stage group. "^DD",164,164.066,.02,"DT") 2911211 "^DD",164,164.09,0) 4TH EDITION N-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.09,0,"DT") 2971105 "^DD",164,164.09,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.09,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.09,0,"IX","B",164.09,.01) "^DD",164,164.09,0,"IX","X",164.09,.03) "^DD",164,164.09,0,"NM","4TH EDITION N-CLASS ENCODING") "^DD",164,164.09,0,"UP") 164 "^DD",164,164.09,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.09,.001,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.09,.001,21,0) ^^1^1^2930930^ "^DD",164,164.09,.001,21,1,0) This is the sequence number for display. "^DD",164,164.09,.001,"DT") 2930517 "^DD",164,164.09,.01,0) 4TH EDITION N-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164,164.09,.01,1,0) ^.1 "^DD",164,164.09,.01,1,1,0) 164.09^B "^DD",164,164.09,.01,1,1,1) S ^ONCO(164,DA(1),"N4","B",$E(X,1,30),DA)="" "^DD",164,164.09,.01,1,1,2) K ^ONCO(164,DA(1),"N4","B",$E(X,1,30),DA) "^DD",164,164.09,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.09,.01,21,0) ^^1^1^2971105^^^^ "^DD",164,164.09,.01,21,1,0) This is a code that describes the degree of regional lymph node metastasis. "^DD",164,164.09,.01,"DT") 2971105 "^DD",164,164.09,.02,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.09,.02,21,0) ^^1^1^2971105^^^ "^DD",164,164.09,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164,164.09,.02,"DT") 2971105 "^DD",164,164.09,.03,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.09,.03,1,0) ^.1 "^DD",164,164.09,.03,1,1,0) 164.09^X^MUMPS "^DD",164,164.09,.03,1,1,1) S ^ONCO(164,DA(1),"N4","X",X)=DA "^DD",164,164.09,.03,1,1,2) K ^ONCO(164,DA(1),"N4","X",X) "^DD",164,164.09,.03,1,1,"%D",0) ^^1^1^2930910^ "^DD",164,164.09,.03,1,1,"%D",1,0) Indexes the sub-file by ACOS CODE. "^DD",164,164.09,.03,21,0) ^^1^1^2971105^^^ "^DD",164,164.09,.03,21,1,0) This is the N code as transmitted to ACoS. "^DD",164,164.09,.03,"DT") 2971105 "^DD",165.5,165.5,44,0) TNM FORM COMPLETED^FXO^^7;14^D ZS9S^ONCODSR Q:ZS9S=1 S %DT="E",%DT(0)=$$GET1^DIQ(165.5,D0,25,"I") S:(%DT(0)="0000000")!(%DT(0)=8888888)!(%DT(0)=9999999) %DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X "^DD",165.5,165.5,44,2) S Y(0)=Y S X=Y D DATEOT^ONCOES "^DD",165.5,165.5,44,2.1) S X=Y D DATEOT^ONCOES "^DD",165.5,165.5,44,3) Enter the date on which the TNM form was completed by the Managing Physician. This date must be greater than or equal to TNM FORM ASSIGNED. "^DD",165.5,165.5,44,21,0) ^.001^3^3^3090324^^ "^DD",165.5,165.5,44,21,1,0) "^DD",165.5,165.5,44,21,2,0) Records the date on which the TNM form was completed by the Managing "^DD",165.5,165.5,44,21,3,0) Physician. "^DD",165.5,165.5,44,"DT") 3090325 "^DD",165.5,165.5,102,0) DRE +/-^S^0:Clinically normal;1:Clinically abnormal;9:Not done/not documented;^24;10^Q "^DD",165.5,165.5,102,3) Enter the DRE (Digital Rectal Examination) results. "^DD",165.5,165.5,102,21,0) ^^9^9^3090713^ "^DD",165.5,165.5,102,21,1,0) "^DD",165.5,165.5,102,21,2,0) A clinically inapparent tumor is one that is neither palpable nor "^DD",165.5,165.5,102,21,3,0) reliably visible by imaging. An apparent tumor is palpable or visible "^DD",165.5,165.5,102,21,4,0) by imaging. "^DD",165.5,165.5,102,21,5,0) "^DD",165.5,165.5,102,21,6,0) DO NOT INFER inapparent or apparent tumor based on the registrar's "^DD",165.5,165.5,102,21,7,0) interpretation of terms in the DRE or imaging reports. A physician "^DD",165.5,165.5,102,21,8,0) assignment of cT1C or cT2 is a clear statement of inapparent or "^DD",165.5,165.5,102,21,9,0) apparent respectively. "^DD",165.5,165.5,102,"DT") 3070815 "^DD",165.5,165.5,148,0) OTHER CANCER^S^0:No;1:Yes;9:Unknown;^0;30^Q "^DD",165.5,165.5,148,3) Answer 'Yes' if the patient has other reportable malignancies. "^DD",165.5,165.5,148,21,0) ^^2^2^3090427^ "^DD",165.5,165.5,148,21,1,0) "^DD",165.5,165.5,148,21,2,0) Records if the patient has other reportable malignancies. "^DD",165.5,165.5,148,"DT") 3090424 "^DD",165.5,165.5,148.1,0) CANCER #1^P164.2'^ONCO(164.2,^0;31^Q "^DD",165.5,165.5,148.1,3) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.1,21,0) ^^4^4^3090424^ "^DD",165.5,165.5,148.1,21,1,0) "^DD",165.5,165.5,148.1,21,2,0) Records the 1st OTHER CANCER associated with this patient. "^DD",165.5,165.5,148.1,21,3,0) "^DD",165.5,165.5,148.1,21,4,0) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.1,"DT") 3090424 "^DD",165.5,165.5,148.2,0) CANCER #2^P164.2'^ONCO(164.2,^0;32^Q "^DD",165.5,165.5,148.2,3) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.2,21,0) ^^4^4^3090424^ "^DD",165.5,165.5,148.2,21,1,0) "^DD",165.5,165.5,148.2,21,2,0) Records the 2nd OTHER CANCER associated with this patient. "^DD",165.5,165.5,148.2,21,3,0) "^DD",165.5,165.5,148.2,21,4,0) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.2,"DT") 3030124 "^DD",165.5,165.5,148.3,0) CANCER #3^P164.2'^ONCO(164.2,^0;33^Q "^DD",165.5,165.5,148.3,3) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.3,21,0) ^^4^4^3090424^ "^DD",165.5,165.5,148.3,21,1,0) "^DD",165.5,165.5,148.3,21,2,0) Records the 3rd OTHER CANCER associated with this patient. "^DD",165.5,165.5,148.3,21,3,0) "^DD",165.5,165.5,148.3,21,4,0) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.3,"DT") 3030124 "^DD",165.5,165.5,148.4,0) CANCER #4^P164.2'^ONCO(164.2,^0;34^Q "^DD",165.5,165.5,148.4,3) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.4,21,0) ^^4^4^3090424^ "^DD",165.5,165.5,148.4,21,1,0) "^DD",165.5,165.5,148.4,21,2,0) Records the 4th OTHER CANCER associated with this patient. "^DD",165.5,165.5,148.4,21,3,0) "^DD",165.5,165.5,148.4,21,4,0) If not applicable for this patient, choose NOT APPLICABLE. "^DD",165.5,165.5,148.4,"DT") 3030124 "^DD",165.5,165.5,205,0) OVER-RIDE AGE/SITE/MORPH^S^1:Reviewed;2:Reviewed, Dx in utero;3:Reviewed, Codes 1 and 2 both apply;^OVRD;1^Q "^DD",165.5,165.5,205,3) Enter the appropriate code to override this edit. "^DD",165.5,165.5,205,21,0) ^.001^6^6^3090325^^^^ "^DD",165.5,165.5,205,21,1,0) "^DD",165.5,165.5,205,21,2,0) Used with CoC Metafile and the EDITS software to override "^DD",165.5,165.5,205,21,3,0) the edit Age, Primary Site, Morphology (Coc) and/or "^DD",165.5,165.5,205,21,4,0) the edit Age, Primary Site, Morphology ICD-O-3 (CoC). "^DD",165.5,165.5,205,21,5,0) "^DD",165.5,165.5,205,21,6,0) For further information see FORDS page 215. "^DD",165.5,165.5,205,"DT") 3090325 "^DD",165.5,165.5,227,0) PERFORMANCE STATUS AT DX^S^0:Score 0;1:Score 1;2:Score 2;3:Score 3;4:Score 4;5:Score 5;9:Unknown/not documented;^1;7^Q "^DD",165.5,165.5,227,3) Enter the score which indicates the patient's general well-being. "^DD",165.5,165.5,227,21,0) ^^24^24^3090616^ "^DD",165.5,165.5,227,21,1,0) "^DD",165.5,165.5,227,21,2,0) Records an attempt to quantify the patient's general well-being. "^DD",165.5,165.5,227,21,3,0) "^DD",165.5,165.5,227,21,4,0) 0 - Asymptomatic (Fully active, able to carry on all predisease "^DD",165.5,165.5,227,21,5,0) activities without restriction) "^DD",165.5,165.5,227,21,6,0) "^DD",165.5,165.5,227,21,7,0) 1 - Symptomatic but completely ambulatory (Restricted in physically "^DD",165.5,165.5,227,21,8,0) strenuous activity but ambulatory and able to carry out work of a "^DD",165.5,165.5,227,21,9,0) light or sedentary nature. For example, light housework, office "^DD",165.5,165.5,227,21,10,0) work) "^DD",165.5,165.5,227,21,11,0) "^DD",165.5,165.5,227,21,12,0) 2 - Symptomatic, <50% in bed during the day (Ambulatory and capable of "^DD",165.5,165.5,227,21,13,0) all self care but unable to carry out any work activities. Up and "^DD",165.5,165.5,227,21,14,0) about more than 50% of waking hours) "^DD",165.5,165.5,227,21,15,0) "^DD",165.5,165.5,227,21,16,0) 3 - Symptomatic, >50% in bed, but not bedbound (Capable of only limited "^DD",165.5,165.5,227,21,17,0) self-care, confined to bed or chair 50% or more of waking hours) "^DD",165.5,165.5,227,21,18,0) "^DD",165.5,165.5,227,21,19,0) 4 - Bedbound (Completely disabled. Cannot carry on any self-care. "^DD",165.5,165.5,227,21,20,0) Totally confined to bed or chair) "^DD",165.5,165.5,227,21,21,0) "^DD",165.5,165.5,227,21,22,0) 5 - Death "^DD",165.5,165.5,227,21,23,0) "^DD",165.5,165.5,227,21,24,0) 9 - Unknown/not documented "^DD",165.5,165.5,227,"DT") 3090616 "^DD",165.5,165.5,228,0) TREATMENT GUIDELINE #1^S^1:NCCN;2:ASCO;3:ASH;4:AUA;5:PDQ;6:SSO;7:Other;99:Unknown;^24;17^Q "^DD",165.5,165.5,228,3) Enter the first guideline used to determine the first course of treatment. "^DD",165.5,165.5,228,21,0) ^.001^10^10^3090701^^^ "^DD",165.5,165.5,228,21,1,0) "^DD",165.5,165.5,228,21,2,0) Identifies the first guideline used to determine the first "^DD",165.5,165.5,228,21,3,0) course of treatment. "^DD",165.5,165.5,228,21,4,0) "^DD",165.5,165.5,228,21,5,0) NCCN (National Comprehensive Cancer Network) "^DD",165.5,165.5,228,21,6,0) ASCO (American Society of Clinical Oncology) "^DD",165.5,165.5,228,21,7,0) ASH (American Society of Hematology) "^DD",165.5,165.5,228,21,8,0) AUA (American Urologic Association) "^DD",165.5,165.5,228,21,9,0) PDQ (Physician Data Query) "^DD",165.5,165.5,228,21,10,0) SSO (The Society of Surgical Oncology) "^DD",165.5,165.5,228,"DT") 3090701 "^DD",165.5,165.5,229,0) TREATMENT GUIDELINE #2^S^1:NCCN;2:ASCO;3:ASH;4:AUA;5:PDQ;6:SSO;7:Other;99:Unknown;^24;18^Q "^DD",165.5,165.5,229,3) Enter the second guideline used to determine the first course of treatment. "^DD",165.5,165.5,229,21,0) ^.001^10^10^3090701^^ "^DD",165.5,165.5,229,21,1,0) "^DD",165.5,165.5,229,21,2,0) Identifies the second guideline used to determine the first "^DD",165.5,165.5,229,21,3,0) course of treatment. "^DD",165.5,165.5,229,21,4,0) "^DD",165.5,165.5,229,21,5,0) NCCN (National Comprehensive Cancer Network) "^DD",165.5,165.5,229,21,6,0) ASCO (American Society of Clinical Oncology) "^DD",165.5,165.5,229,21,7,0) ASH (American Society of Hematology) "^DD",165.5,165.5,229,21,8,0) AUA (American Urologic Association) "^DD",165.5,165.5,229,21,9,0) PDQ (Physician Data Query) "^DD",165.5,165.5,229,21,10,0) SSO (The Society of Surgical Oncology) "^DD",165.5,165.5,229,"DT") 3090701 "^DD",165.5,165.5,230,0) TREATMENT GUIDELINE #3^S^1:NCCN;2:ASCO;3:ASH;4:AUA;5:PDQ;6:SSO;7:Other;99:Unknown;^24;19^Q "^DD",165.5,165.5,230,3) Enter the third guideline used to determine the first course of treatment. "^DD",165.5,165.5,230,21,0) ^.001^10^10^3090701^^ "^DD",165.5,165.5,230,21,1,0) "^DD",165.5,165.5,230,21,2,0) Identifies the third guideline used to determine the first "^DD",165.5,165.5,230,21,3,0) course of treatment. "^DD",165.5,165.5,230,21,4,0) "^DD",165.5,165.5,230,21,5,0) NCCN (National Comprehensive Cancer Network) "^DD",165.5,165.5,230,21,6,0) ASCO (American Society of Clinical Oncology) "^DD",165.5,165.5,230,21,7,0) ASH (American Society of Hematology) "^DD",165.5,165.5,230,21,8,0) AUA (American Urologic Association) "^DD",165.5,165.5,230,21,9,0) PDQ (Physician Data Query) "^DD",165.5,165.5,230,21,10,0) SSO (The Society of Surgical Oncology) "^DD",165.5,165.5,230,"DT") 3090701 "^DD",165.5,165.5,231,0) TREATMENT GUIDELINE LOCATION^F^^24;20^K:$L(X)>30!($L(X)<1) X "^DD",165.5,165.5,231,3) Answer must be 1-30 characters in length. "^DD",165.5,165.5,231,21,0) ^^3^3^3090612^ "^DD",165.5,165.5,231,21,1,0) "^DD",165.5,165.5,231,21,2,0) Identifies where the treatment guidelines used in treatment "^DD",165.5,165.5,231,21,3,0) planning are documented in the medical record. "^DD",165.5,165.5,231,"DT") 3090612 "^DD",165.5,165.5,232,0) TREATMENT GUIDELINE DOC DATE^DO^^24;21^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",165.5,165.5,232,2) S Y(0)=Y S X=Y D DATEOT^ONCOES "^DD",165.5,165.5,232,2.1) S X=Y D DATEOT^ONCOES "^DD",165.5,165.5,232,3) Enter the date treatment guidelines were documented in the medical record. "^DD",165.5,165.5,232,21,0) ^.001^3^3^3090826^^ "^DD",165.5,165.5,232,21,1,0) "^DD",165.5,165.5,232,21,2,0) Records the date when treatment guidelines were documented in the "^DD",165.5,165.5,232,21,3,0) medical record. "^DD",165.5,165.5,232,"DT") 3090707 "^DD",165.5,165.5,684,0) PSA^FXO^^PRO2;28^K:$L(X)>5!($L(X)<1) X I $D(X) D PSA^ONCOIT "^DD",165.5,165.5,684,2) S Y(0)=Y D PSA^ONCOOT "^DD",165.5,165.5,684,2.1) D PSA^ONCOOT "^DD",165.5,165.5,684,3) Answer must be between 000.0 and 999.9, up to 1 decimal digit "^DD",165.5,165.5,684,21,0) ^^12^12^3090710^ "^DD",165.5,165.5,684,21,1,0) "^DD",165.5,165.5,684,21,2,0) Records the results of the highest pre-treatment Prostate Specific "^DD",165.5,165.5,684,21,3,0) Antigen (PSA) test given within the last 12 months. "^DD",165.5,165.5,684,21,4,0) "^DD",165.5,165.5,684,21,5,0) If the first course of treatment was Watchful Waiting, the date the "^DD",165.5,165.5,684,21,6,0) decision was made is considered the first course of treatment. Round "^DD",165.5,165.5,684,21,7,0) the test result to the nearest single decimal point. "^DD",165.5,165.5,684,21,8,0) "^DD",165.5,165.5,684,21,9,0) Record 999.6 if PSA value was 999.6 or higher. "^DD",165.5,165.5,684,21,10,0) Record 999.7 if no PSA test was performed. "^DD",165.5,165.5,684,21,11,0) Record 999.8 if the test was done and results are unknown/not reported. "^DD",165.5,165.5,684,21,12,0) Record 999.9 if it is unknown if the test was performed. "^DD",165.5,165.5,684,"DT") 3021029 "^DIC",160.16,160.16,0) ONCOLOGY DATA EXTRACT FORMAT^160.16 "^DIC",160.16,160.16,0,"GL") ^ONCO(160.16, "^DIC",160.16,160.16,"%D",0) ^^1^1^2990419^^ "^DIC",160.16,160.16,"%D",1,0) This file contains the ONCOLOGY Data Extract Formats. "^DIC",160.16,"B","ONCOLOGY DATA EXTRACT FORMAT",160.16) "^DIC",160.17,160.17,0) ONCOLOGY PCE EXTRACT FORMAT^160.17 "^DIC",160.17,160.17,0,"GL") ^ONCO(160.17, "^DIC",160.17,160.17,"%D",0) ^^1^1^2990419^^ "^DIC",160.17,160.17,"%D",1,0) This file contains the ONCOLOGY PCE Extract Formats. "^DIC",160.17,"B","ONCOLOGY PCE EXTRACT FORMAT",160.17) "^DIC",164,164,0) ICDO TOPOGRAPHY^164I "^DIC",164,164,0,"GL") ^ONCO(164, "^DIC",164,164,"%",0) ^1.005^1^1 "^DIC",164,164,"%",1,0) ONCO "^DIC",164,164,"%","B","ONCO",1) "^DIC",164,164,"%D",0) ^^6^6^2960119^^^^ "^DIC",164,164,"%D",1,0) Complete ICDO-2 Topography from the 1990 International Classification of "^DIC",164,164,"%D",2,0) Diseases for Oncology (2nd edition), World Health Organization. Contains "^DIC",164,164,"%D",3,0) site specific coding for Extent of Disease and AJCC Staging. "^DIC",164,164,"%D",4,0) "^DIC",164,164,"%D",5,0) This file comes with data, which overwrite the site's data. It is not "^DIC",164,164,"%D",6,0) recommended that sites modify this file. "^DIC",164,"B","ICDO TOPOGRAPHY",164) **END** **END**