KIDS Distribution saved on Dec 03, 2003@09:31:18 ONCOLOGY PATCH ONC*2.11*37 **KIDS**:ONC*2.11*37^ **INSTALL NAME** ONC*2.11*37 "BLD",4593,0) ONC*2.11*37^ONCOLOGY^0^3031203^y "BLD",4593,4,0) ^9.64PA^160.16^5 "BLD",4593,4,160,0) 160 "BLD",4593,4,160,2,0) ^9.641^160.042^2 "BLD",4593,4,160,2,160,0) ONCOLOGY PATIENT (File-top level) "BLD",4593,4,160,2,160,1,0) ^9.6411^15^1 "BLD",4593,4,160,2,160,1,15,0) STATUS "BLD",4593,4,160,2,160.042,0) OCCUPATION (sub-file) "BLD",4593,4,160,2,160.042,1,0) ^9.6411^.01^1 "BLD",4593,4,160,2,160.042,1,.01,0) USUAL OCCUPATION "BLD",4593,4,160,222) y^y^p^^^^n^^n "BLD",4593,4,160,224) "BLD",4593,4,160.16,0) 160.16 "BLD",4593,4,160.16,222) y^y^f^^n^^y^o^n "BLD",4593,4,160.19,0) 160.19 "BLD",4593,4,160.19,222) y^y^f^^^^n^^n "BLD",4593,4,160.19,224) "BLD",4593,4,164.33,0) 164.33 "BLD",4593,4,164.33,222) y^y^f^^n^^y^o^n "BLD",4593,4,165.5,0) 165.5 "BLD",4593,4,165.5,2,0) ^9.641^165.51^2 "BLD",4593,4,165.5,2,165.5,0) ONCOLOGY PRIMARY (File-top level) "BLD",4593,4,165.5,2,165.5,1,0) ^9.6411^29.1^8 "BLD",4593,4,165.5,2,165.5,1,29.1,0) TUMOR SIZE/EXT EVAL "BLD",4593,4,165.5,2,165.5,1,52.2,0) RADIATION THERAPY TO CNS "BLD",4593,4,165.5,2,165.5,1,53.2,0) CHEMOTHERAPY "BLD",4593,4,165.5,2,165.5,1,54.2,0) HORMONE THERAPY "BLD",4593,4,165.5,2,165.5,1,55.2,0) IMMUNOTHERAPY "BLD",4593,4,165.5,2,165.5,1,57.2,0) OTHER TREATMENT "BLD",4593,4,165.5,2,165.5,1,57.3,0) OTHER TREATMENT @FAC "BLD",4593,4,165.5,2,165.5,1,58.7,0) SURGERY OF PRIMARY @FAC (F) "BLD",4593,4,165.5,2,165.51,0) SUBSEQUENT COURSE OF TREATMENT (sub-file) "BLD",4593,4,165.5,2,165.51,1,0) ^9.6411^37^1 "BLD",4593,4,165.5,2,165.51,1,37,0) NUMBER OF NODES REMOVED "BLD",4593,4,165.5,222) y^y^p^^^^n^^n "BLD",4593,4,165.5,224) "BLD",4593,4,"APDD",160,160) "BLD",4593,4,"APDD",160,160,15) "BLD",4593,4,"APDD",160,160.042) "BLD",4593,4,"APDD",160,160.042,.01) "BLD",4593,4,"APDD",165.5,165.5) "BLD",4593,4,"APDD",165.5,165.5,29.1) "BLD",4593,4,"APDD",165.5,165.5,52.2) "BLD",4593,4,"APDD",165.5,165.5,53.2) "BLD",4593,4,"APDD",165.5,165.5,54.2) "BLD",4593,4,"APDD",165.5,165.5,55.2) "BLD",4593,4,"APDD",165.5,165.5,57.2) "BLD",4593,4,"APDD",165.5,165.5,57.3) "BLD",4593,4,"APDD",165.5,165.5,58.7) "BLD",4593,4,"APDD",165.5,165.51) "BLD",4593,4,"APDD",165.5,165.51,37) "BLD",4593,4,"B",160,160) "BLD",4593,4,"B",160.16,160.16) "BLD",4593,4,"B",160.19,160.19) "BLD",4593,4,"B",164.33,164.33) "BLD",4593,4,"B",165.5,165.5) "BLD",4593,"ABPKG") n "BLD",4593,"INI") ONCPRE37 "BLD",4593,"INID") ^y^y "BLD",4593,"INIT") ONCPST37 "BLD",4593,"KRN",0) ^9.67PA^8989.52^19 "BLD",4593,"KRN",.4,0) .4 "BLD",4593,"KRN",.4,"NM",0) ^9.68A^3^3 "BLD",4593,"KRN",.4,"NM",1,0) ONCO XINCIDENCE RPRT FILE #165.5^165.5^0 "BLD",4593,"KRN",.4,"NM",2,0) ONCOY54 FILE #165.5^165.5^0 "BLD",4593,"KRN",.4,"NM",3,0) ONCOY57 FILE #165.5^165.5^0 "BLD",4593,"KRN",.4,"NM","B","ONCO XINCIDENCE RPRT FILE #165.5",1) "BLD",4593,"KRN",.4,"NM","B","ONCOY54 FILE #165.5",2) "BLD",4593,"KRN",.4,"NM","B","ONCOY57 FILE #165.5",3) "BLD",4593,"KRN",.401,0) .401 "BLD",4593,"KRN",.402,0) .402 "BLD",4593,"KRN",.402,"NM",0) ^9.68A^2^2 "BLD",4593,"KRN",.402,"NM",1,0) ONCO ABSTRACT-I FILE #165.5^165.5^0 "BLD",4593,"KRN",.402,"NM",2,0) ONCO RECURRENCE FOLLOWUP FILE #165.5^165.5^0 "BLD",4593,"KRN",.402,"NM","B","ONCO ABSTRACT-I FILE #165.5",1) "BLD",4593,"KRN",.402,"NM","B","ONCO RECURRENCE FOLLOWUP FILE #165.5",2) "BLD",4593,"KRN",.403,0) .403 "BLD",4593,"KRN",.5,0) .5 "BLD",4593,"KRN",.84,0) .84 "BLD",4593,"KRN",3.6,0) 3.6 "BLD",4593,"KRN",3.8,0) 3.8 "BLD",4593,"KRN",9.2,0) 9.2 "BLD",4593,"KRN",9.8,0) 9.8 "BLD",4593,"KRN",9.8,"NM",0) ^9.68A^34^34 "BLD",4593,"KRN",9.8,"NM",1,0) ONCPRE37^^0^B108671 "BLD",4593,"KRN",9.8,"NM",2,0) ONCOAIF^^0^B23187732 "BLD",4593,"KRN",9.8,"NM",3,0) ONCPST37^^0^B3300335 "BLD",4593,"KRN",9.8,"NM",4,0) ONCOFLF^^0^B18920582 "BLD",4593,"KRN",9.8,"NM",5,0) ONCACD0^^0^B38819176 "BLD",4593,"KRN",9.8,"NM",6,0) ONCODIS^^0^B1392425 "BLD",4593,"KRN",9.8,"NM",7,0) ONCPTHST^^0^B2960275 "BLD",4593,"KRN",9.8,"NM",8,0) ONCPDI^^0^B6805296 "BLD",4593,"KRN",9.8,"NM",9,0) ONCOPA3^^0^B23723926 "BLD",4593,"KRN",9.8,"NM",10,0) ONCOCC^^0^B67059745 "BLD",4593,"KRN",9.8,"NM",11,0) ONCOSUR^^0^B79837362 "BLD",4593,"KRN",9.8,"NM",12,0) ONCOAIP^^0^B77045585 "BLD",4593,"KRN",9.8,"NM",13,0) ONCNTX^^0^B66652290 "BLD",4593,"KRN",9.8,"NM",14,0) ONCNTX1^^0^B42127018 "BLD",4593,"KRN",9.8,"NM",15,0) ONCATF1^^0^B44050195 "BLD",4593,"KRN",9.8,"NM",16,0) ONCOOT^^0^B69106253 "BLD",4593,"KRN",9.8,"NM",17,0) ONCTXSM^^0^B17259529 "BLD",4593,"KRN",9.8,"NM",18,0) ONCOAIM^^0^B23828926 "BLD",4593,"KRN",9.8,"NM",19,0) ONCOTNS^^0^B18411275 "BLD",4593,"KRN",9.8,"NM",20,0) ONCOAID^^0^B9170040 "BLD",4593,"KRN",9.8,"NM",21,0) ONCPAT^^0^B30886448 "BLD",4593,"KRN",9.8,"NM",22,0) ONCODSR^^0^B41100230 "BLD",4593,"KRN",9.8,"NM",23,0) ONCUTX1^^0^B22970000 "BLD",4593,"KRN",9.8,"NM",24,0) ONCACDU2^^0^B42053033 "BLD",4593,"KRN",9.8,"NM",25,0) ONCACD1^^0^B35124788 "BLD",4593,"KRN",9.8,"NM",26,0) ONCACDU1^^0^B37683434 "BLD",4593,"KRN",9.8,"NM",27,0) ONCOCFR^^0^B23700807 "BLD",4593,"KRN",9.8,"NM",28,0) ONCOPA2^^0^B30794258 "BLD",4593,"KRN",9.8,"NM",29,0) ONCPTX^^0^B58340298 "BLD",4593,"KRN",9.8,"NM",30,0) ONCOPA2A^^0^B18779086 "BLD",4593,"KRN",9.8,"NM",31,0) ONCSTX^^0^B967309 "BLD",4593,"KRN",9.8,"NM",32,0) ONCOCKI^^0^B5384439 "BLD",4593,"KRN",9.8,"NM",33,0) ONCOTN^^0^B65216270 "BLD",4593,"KRN",9.8,"NM",34,0) ONCSG5A^^0^B30025522 "BLD",4593,"KRN",9.8,"NM","B","ONCACD0",5) "BLD",4593,"KRN",9.8,"NM","B","ONCACD1",25) "BLD",4593,"KRN",9.8,"NM","B","ONCACDU1",26) "BLD",4593,"KRN",9.8,"NM","B","ONCACDU2",24) "BLD",4593,"KRN",9.8,"NM","B","ONCATF1",15) "BLD",4593,"KRN",9.8,"NM","B","ONCNTX",13) "BLD",4593,"KRN",9.8,"NM","B","ONCNTX1",14) "BLD",4593,"KRN",9.8,"NM","B","ONCOAID",20) "BLD",4593,"KRN",9.8,"NM","B","ONCOAIF",2) "BLD",4593,"KRN",9.8,"NM","B","ONCOAIM",18) "BLD",4593,"KRN",9.8,"NM","B","ONCOAIP",12) "BLD",4593,"KRN",9.8,"NM","B","ONCOCC",10) "BLD",4593,"KRN",9.8,"NM","B","ONCOCFR",27) "BLD",4593,"KRN",9.8,"NM","B","ONCOCKI",32) "BLD",4593,"KRN",9.8,"NM","B","ONCODIS",6) "BLD",4593,"KRN",9.8,"NM","B","ONCODSR",22) "BLD",4593,"KRN",9.8,"NM","B","ONCOFLF",4) "BLD",4593,"KRN",9.8,"NM","B","ONCOOT",16) "BLD",4593,"KRN",9.8,"NM","B","ONCOPA2",28) "BLD",4593,"KRN",9.8,"NM","B","ONCOPA2A",30) "BLD",4593,"KRN",9.8,"NM","B","ONCOPA3",9) "BLD",4593,"KRN",9.8,"NM","B","ONCOSUR",11) "BLD",4593,"KRN",9.8,"NM","B","ONCOTN",33) "BLD",4593,"KRN",9.8,"NM","B","ONCOTNS",19) "BLD",4593,"KRN",9.8,"NM","B","ONCPAT",21) "BLD",4593,"KRN",9.8,"NM","B","ONCPDI",8) "BLD",4593,"KRN",9.8,"NM","B","ONCPRE37",1) "BLD",4593,"KRN",9.8,"NM","B","ONCPST37",3) "BLD",4593,"KRN",9.8,"NM","B","ONCPTHST",7) "BLD",4593,"KRN",9.8,"NM","B","ONCPTX",29) "BLD",4593,"KRN",9.8,"NM","B","ONCSG5A",34) "BLD",4593,"KRN",9.8,"NM","B","ONCSTX",31) "BLD",4593,"KRN",9.8,"NM","B","ONCTXSM",17) "BLD",4593,"KRN",9.8,"NM","B","ONCUTX1",23) "BLD",4593,"KRN",19,0) 19 "BLD",4593,"KRN",19,"NM",0) ^9.68A^^ "BLD",4593,"KRN",19.1,0) 19.1 "BLD",4593,"KRN",101,0) 101 "BLD",4593,"KRN",409.61,0) 409.61 "BLD",4593,"KRN",771,0) 771 "BLD",4593,"KRN",870,0) 870 "BLD",4593,"KRN",8989.51,0) 8989.51 "BLD",4593,"KRN",8989.52,0) 8989.52 "BLD",4593,"KRN",8994,0) 8994 "BLD",4593,"KRN","B",.4,.4) "BLD",4593,"KRN","B",.401,.401) "BLD",4593,"KRN","B",.402,.402) "BLD",4593,"KRN","B",.403,.403) "BLD",4593,"KRN","B",.5,.5) "BLD",4593,"KRN","B",.84,.84) "BLD",4593,"KRN","B",3.6,3.6) "BLD",4593,"KRN","B",3.8,3.8) "BLD",4593,"KRN","B",9.2,9.2) "BLD",4593,"KRN","B",9.8,9.8) "BLD",4593,"KRN","B",19,19) "BLD",4593,"KRN","B",19.1,19.1) "BLD",4593,"KRN","B",101,101) "BLD",4593,"KRN","B",409.61,409.61) "BLD",4593,"KRN","B",771,771) "BLD",4593,"KRN","B",870,870) "BLD",4593,"KRN","B",8989.51,8989.51) "BLD",4593,"KRN","B",8989.52,8989.52) "BLD",4593,"KRN","B",8994,8994) "BLD",4593,"QUES",0) ^9.62^^ "BLD",4593,"REQB",0) ^9.611^1^1 "BLD",4593,"REQB",1,0) ONC*2.11*36^2 "BLD",4593,"REQB","B","ONC*2.11*36",1) "DATA",160.16,9,0) ACD EXTRACT V9.1 "DATA",160.16,9,"FIELD",0) ^160.161I^401^301 "DATA",160.16,9,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,9,"FIELD",1,1) S ACDANS="I" "DATA",160.16,9,"FIELD",1,2) BLANK "DATA",160.16,9,"FIELD",1,3) L,BLANK "DATA",160.16,9,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,9,"FIELD",2,1) S ACDANS="" "DATA",160.16,9,"FIELD",2,2) BLANK "DATA",160.16,9,"FIELD",2,3) L,ZERO "DATA",160.16,9,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,9,"FIELD",3,1) S ACDANS=3 "DATA",160.16,9,"FIELD",3,2) BLANK "DATA",160.16,9,"FIELD",3,3) L,BLANK "DATA",160.16,9,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,9,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,9,"FIELD",4,2) BLANK "DATA",160.16,9,"FIELD",4,3) L,BLANK "DATA",160.16,9,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,9,"FIELD",5,1) S ACDANS=9 "DATA",160.16,9,"FIELD",5,2) BLANK "DATA",160.16,9,"FIELD",5,3) L,BLANK "DATA",160.16,9,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,9,"FIELD",6,1) S ACDANS="" "DATA",160.16,9,"FIELD",6,2) BLANK "DATA",160.16,9,"FIELD",6,3) L,BLANK "DATA",160.16,9,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,9,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,9,"FIELD",7,2) BLANK "DATA",160.16,9,"FIELD",7,3) R,BLANK "DATA",160.16,9,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,9,"FIELD",8,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,9,"FIELD",8,2) BLANK "DATA",160.16,9,"FIELD",8,3) L,BLANK "DATA",160.16,9,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,9,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",9,2) BLANK "DATA",160.16,9,"FIELD",9,3) L,ZERO "DATA",160.16,9,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,9,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,9,"FIELD",10,2) BLANK "DATA",160.16,9,"FIELD",10,3) R,BLANK "DATA",160.16,9,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,9,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,9,"FIELD",11,2) BLANK "DATA",160.16,9,"FIELD",11,3) L,ZERO "DATA",160.16,9,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,9,"FIELD",12,1) S ACDANS="" "DATA",160.16,9,"FIELD",12,2) BLANK "DATA",160.16,9,"FIELD",12,3) L,BLANK "DATA",160.16,9,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,9,"FIELD",13,1) S ACDANS="" "DATA",160.16,9,"FIELD",13,2) BLANK "DATA",160.16,9,"FIELD",13,3) L,BLANK "DATA",160.16,9,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,9,"FIELD",14,1) S ACDANS="" "DATA",160.16,9,"FIELD",14,2) BLANK "DATA",160.16,9,"FIELD",14,3) L,BLANK "DATA",160.16,9,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,9,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,9,"FIELD",15,2) BLANK "DATA",160.16,9,"FIELD",15,3) L,BLANK "DATA",160.16,9,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,9,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,9,"FIELD",16,2) BLANK "DATA",160.16,9,"FIELD",16,3) L,ZERO "DATA",160.16,9,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,9,"FIELD",17,1) S ACDANS=6 "DATA",160.16,9,"FIELD",17,2) BLANK "DATA",160.16,9,"FIELD",17,3) L,BLANK "DATA",160.16,9,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,9,"FIELD",18,1) S ACDANS=6 "DATA",160.16,9,"FIELD",18,2) BLANK "DATA",160.16,9,"FIELD",18,3) L,BLANK "DATA",160.16,9,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,9,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,9,"FIELD",19,2) BLANK "DATA",160.16,9,"FIELD",19,3) L,BLANK "DATA",160.16,9,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,9,"FIELD",20,1) S ACDANS="" "DATA",160.16,9,"FIELD",20,2) BLANK "DATA",160.16,9,"FIELD",20,3) L,BLANK "DATA",160.16,9,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,9,"FIELD",21,1) S ACDANS="" "DATA",160.16,9,"FIELD",21,2) BLANK "DATA",160.16,9,"FIELD",21,3) L,BLANK "DATA",160.16,9,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,9,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,9,"FIELD",22,2) BLANK "DATA",160.16,9,"FIELD",22,3) L,BLANK "DATA",160.16,9,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,9,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",23,2) BLANK "DATA",160.16,9,"FIELD",23,3) L,ZERO "DATA",160.16,9,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,9,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,9,"FIELD",24,2) BLANK "DATA",160.16,9,"FIELD",24,3) L,ZERO "DATA",160.16,9,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,9,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,9,"FIELD",25,2) BLANK "DATA",160.16,9,"FIELD",25,3) L,ZERO "DATA",160.16,9,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,9,"FIELD",26,1) S ACDANS=99 "DATA",160.16,9,"FIELD",26,2) BLANK "DATA",160.16,9,"FIELD",26,3) L,ZERO "DATA",160.16,9,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,9,"FIELD",27,1) S ACDANS="" "DATA",160.16,9,"FIELD",27,2) BLANK "DATA",160.16,9,"FIELD",27,3) L,BLANK "DATA",160.16,9,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,9,"FIELD",28,1) S ACDANS="" "DATA",160.16,9,"FIELD",28,2) BLANK "DATA",160.16,9,"FIELD",28,3) L,BLANK "DATA",160.16,9,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,9,"FIELD",29,1) S ACDANS="" "DATA",160.16,9,"FIELD",29,2) BLANK "DATA",160.16,9,"FIELD",29,3) L,BLANK "DATA",160.16,9,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,9,"FIELD",30,1) S ACDANS="" "DATA",160.16,9,"FIELD",30,2) BLANK "DATA",160.16,9,"FIELD",30,3) L,BLANK "DATA",160.16,9,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,9,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",31,2) BLANK "DATA",160.16,9,"FIELD",31,3) R,BLANK "DATA",160.16,9,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,9,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",32,2) BLANK "DATA",160.16,9,"FIELD",32,3) R,BLANK "DATA",160.16,9,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,9,"FIELD",33,1) S ACDANS="" "DATA",160.16,9,"FIELD",33,2) BLANK "DATA",160.16,9,"FIELD",33,3) L,BLANK "DATA",160.16,9,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,9,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",34,2) BLANK "DATA",160.16,9,"FIELD",34,3) L,BLANK "DATA",160.16,9,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,9,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",35,2) BLANK "DATA",160.16,9,"FIELD",35,3) L,BLANK "DATA",160.16,9,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,9,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,9,"FIELD",36,2) BLANK "DATA",160.16,9,"FIELD",36,3) L,BLANK "DATA",160.16,9,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,9,"FIELD",37,1) S ACDANS="" "DATA",160.16,9,"FIELD",37,2) BLANK "DATA",160.16,9,"FIELD",37,3) L,BLANK "DATA",160.16,9,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,9,"FIELD",38,1) S ACDANS=STAT1 "DATA",160.16,9,"FIELD",38,2) ZERO "DATA",160.16,9,"FIELD",38,3) L,ZERO "DATA",160.16,9,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,9,"FIELD",39,1) S ACDANS="" "DATA",160.16,9,"FIELD",39,2) BLANK "DATA",160.16,9,"FIELD",39,3) L,BLANK "DATA",160.16,9,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,9,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",40,2) BLANK "DATA",160.16,9,"FIELD",40,3) L,ZERO "DATA",160.16,9,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,9,"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,9,"FIELD",41,2) BLANK "DATA",160.16,9,"FIELD",41,3) L,ZERO^ "DATA",160.16,9,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,9,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,9,"FIELD",42,2) BLANK "DATA",160.16,9,"FIELD",42,3) L,BLANK "DATA",160.16,9,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,9,"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,9,"FIELD",43,2) BLANK "DATA",160.16,9,"FIELD",43,3) L,ZERO "DATA",160.16,9,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,9,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,9,"FIELD",45,2) BLANK "DATA",160.16,9,"FIELD",45,3) L,ZERO "DATA",160.16,9,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,9,"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,9,"FIELD",46,2) BLANK "DATA",160.16,9,"FIELD",46,3) L,ZERO "DATA",160.16,9,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,9,"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,9,"FIELD",47,2) BLANK "DATA",160.16,9,"FIELD",47,3) L,ZERO "DATA",160.16,9,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,9,"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,9,"FIELD",48,2) BLANK "DATA",160.16,9,"FIELD",48,3) L,ZERO "DATA",160.16,9,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,9,"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,9,"FIELD",49,2) BLANK "DATA",160.16,9,"FIELD",49,3) L,ZERO "DATA",160.16,9,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,9,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,9,"FIELD",50,2) BLANK "DATA",160.16,9,"FIELD",50,3) L,ZERO "DATA",160.16,9,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,9,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,9,"FIELD",51,2) BLANK "DATA",160.16,9,"FIELD",51,3) L,BLANK "DATA",160.16,9,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,9,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",52,2) BLANK "DATA",160.16,9,"FIELD",52,3) L,BLANK "DATA",160.16,9,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,9,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,9,"FIELD",53,2) BLANK "DATA",160.16,9,"FIELD",53,3) L,BLANK "DATA",160.16,9,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,9,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,9,"FIELD",54,2) BLANK "DATA",160.16,9,"FIELD",54,3) L,ZERO "DATA",160.16,9,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,9,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,9,"FIELD",57,2) BLANK "DATA",160.16,9,"FIELD",57,3) L,ZERO "DATA",160.16,9,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,9,"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,9,"FIELD",58,2) BLANK "DATA",160.16,9,"FIELD",58,3) R,BLANK "DATA",160.16,9,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,9,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",59,2) BLANK "DATA",160.16,9,"FIELD",59,3) L,ZERO "DATA",160.16,9,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,9,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",60,2) BLANK "DATA",160.16,9,"FIELD",60,3) L,ZERO "DATA",160.16,9,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,9,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",61,2) BLANK "DATA",160.16,9,"FIELD",61,3) L,ZERO "DATA",160.16,9,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,9,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,9,"FIELD",62,2) BLANK "DATA",160.16,9,"FIELD",62,3) L,ZERO "DATA",160.16,9,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,9,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,9,"FIELD",63,2) BLANK "DATA",160.16,9,"FIELD",63,3) L,ZERO "DATA",160.16,9,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,9,"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,9,"FIELD",64,2) BLANK "DATA",160.16,9,"FIELD",64,3) L,BLANK "DATA",160.16,9,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,9,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,9,"FIELD",65,2) BLANK "DATA",160.16,9,"FIELD",65,3) L,BLANK "DATA",160.16,9,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,9,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,9,"FIELD",66,2) BLANK "DATA",160.16,9,"FIELD",66,3) L,BLANK "DATA",160.16,9,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,9,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",67,2) BLANK "DATA",160.16,9,"FIELD",67,3) L,BLANK "DATA",160.16,9,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,9,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,9,"FIELD",68,2) BLANK "DATA",160.16,9,"FIELD",68,3) L,ZERO "DATA",160.16,9,"FIELD",69,0) 347^4^350^Reserved for Expansion "DATA",160.16,9,"FIELD",69,1) S ACDANS="" "DATA",160.16,9,"FIELD",69,2) BLANK "DATA",160.16,9,"FIELD",69,3) L,BLANK "DATA",160.16,9,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,9,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,9,"FIELD",70,2) BLANK "DATA",160.16,9,"FIELD",70,3) L,ZERO "DATA",160.16,9,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,9,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,9,"FIELD",71,2) BLANK "DATA",160.16,9,"FIELD",71,3) L,ZERO "DATA",160.16,9,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,9,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,9,"FIELD",72,2) BLANK "DATA",160.16,9,"FIELD",72,3) L,ZERO "DATA",160.16,9,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,9,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,9,"FIELD",73,2) BLANK "DATA",160.16,9,"FIELD",73,3) L,ZERO "DATA",160.16,9,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,9,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,9,"FIELD",74,2) BLANK "DATA",160.16,9,"FIELD",74,3) L,ZERO "DATA",160.16,9,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,9,"FIELD",75,2) BLANK "DATA",160.16,9,"FIELD",75,3) L,ZERO "DATA",160.16,9,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,9,"FIELD",76,1) S ACDANS="" "DATA",160.16,9,"FIELD",76,2) BLANK "DATA",160.16,9,"FIELD",76,3) L,BLANK "DATA",160.16,9,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,9,"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,9,"FIELD",77,2) BLANK "DATA",160.16,9,"FIELD",77,3) L,BLANK "DATA",160.16,9,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,9,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",78,2) BLANK "DATA",160.16,9,"FIELD",78,3) L,BLANK "DATA",160.16,9,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,9,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,9,"FIELD",79,2) BLANK "DATA",160.16,9,"FIELD",79,3) L,ZERO "DATA",160.16,9,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,9,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,9,"FIELD",80,2) BLANK "DATA",160.16,9,"FIELD",80,3) L,ZERO "DATA",160.16,9,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,9,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,9,"FIELD",81,2) BLANK "DATA",160.16,9,"FIELD",81,3) L,ZERO "DATA",160.16,9,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,9,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,9,"FIELD",82,2) BLANK "DATA",160.16,9,"FIELD",82,3) L,BLANK "DATA",160.16,9,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,9,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,9,"FIELD",83,2) BLANK "DATA",160.16,9,"FIELD",83,3) L,ZERO "DATA",160.16,9,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,9,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,9,"FIELD",84,2) BLANK "DATA",160.16,9,"FIELD",84,3) L,ZERO "DATA",160.16,9,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,9,"FIELD",85,1) S ACDANS="" "DATA",160.16,9,"FIELD",85,2) BLANK "DATA",160.16,9,"FIELD",85,3) L,BLANK "DATA",160.16,9,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,9,"FIELD",86,1) S ACDANS="" "DATA",160.16,9,"FIELD",86,2) BLANK "DATA",160.16,9,"FIELD",86,3) L,BLANK "DATA",160.16,9,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,9,"FIELD",87,1) S ACDANS="" "DATA",160.16,9,"FIELD",87,2) BLANK "DATA",160.16,9,"FIELD",87,3) L,BLANK "DATA",160.16,9,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,9,"FIELD",88,1) S ACDANS=4 "DATA",160.16,9,"FIELD",88,2) BLANK "DATA",160.16,9,"FIELD",88,3) L,BLANK "DATA",160.16,9,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,9,"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,9,"FIELD",89,2) BLANK "DATA",160.16,9,"FIELD",89,3) R,BLANK "DATA",160.16,9,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,9,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,9,"FIELD",90,2) BLANK "DATA",160.16,9,"FIELD",90,3) R,BLANK "DATA",160.16,9,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,9,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,9,"FIELD",91,2) BLANK "DATA",160.16,9,"FIELD",91,3) R,BLANK "DATA",160.16,9,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,9,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,9,"FIELD",92,2) BLANK "DATA",160.16,9,"FIELD",92,3) R,BLANK "DATA",160.16,9,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,9,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,9,"FIELD",93,2) BLANK "DATA",160.16,9,"FIELD",93,3) L,ZERO "DATA",160.16,9,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,9,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,9,"FIELD",94,2) BLANK "DATA",160.16,9,"FIELD",94,3) L,BLANK "DATA",160.16,9,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,9,"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,9,"FIELD",95,2) BLANK "DATA",160.16,9,"FIELD",95,3) R,BLANK "DATA",160.16,9,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,9,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,9,"FIELD",96,2) BLANK "DATA",160.16,9,"FIELD",96,3) R,BLANK "DATA",160.16,9,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,9,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,9,"FIELD",97,2) BLANK "DATA",160.16,9,"FIELD",97,3) R,BLANK "DATA",160.16,9,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,9,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,9,"FIELD",98,2) BLANK "DATA",160.16,9,"FIELD",98,3) R,BLANK "DATA",160.16,9,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,9,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,9,"FIELD",99,2) BLANK "DATA",160.16,9,"FIELD",99,3) L,ZERO "DATA",160.16,9,"FIELD",100,0) 441^1^441^TNM Clin Staged BY "DATA",160.16,9,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,9,"FIELD",100,2) BLANK "DATA",160.16,9,"FIELD",100,3) L,BLANK "DATA",160.16,9,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,9,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,9,"FIELD",101,2) BLANK "DATA",160.16,9,"FIELD",101,3) R,BLANK "DATA",160.16,9,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,9,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,9,"FIELD",102,2) BLANK "DATA",160.16,9,"FIELD",102,3) R,BLANK "DATA",160.16,9,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,9,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,9,"FIELD",103,2) BLANK "DATA",160.16,9,"FIELD",103,3) R,BLANK "DATA",160.16,9,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,9,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,9,"FIELD",104,2) BLANK "DATA",160.16,9,"FIELD",104,3) R,BLANK "DATA",160.16,9,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,9,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,9,"FIELD",105,2) BLANK "DATA",160.16,9,"FIELD",105,3) L,BLANK "DATA",160.16,9,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,9,"FIELD",106,1) S ACDANS="" "DATA",160.16,9,"FIELD",106,2) BLANK "DATA",160.16,9,"FIELD",106,3) L,BLANK "DATA",160.16,9,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,9,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",107,2) BLANK "DATA",160.16,9,"FIELD",107,3) L,BLANK "DATA",160.16,9,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,9,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",108,2) BLANK "DATA",160.16,9,"FIELD",108,3) R,BLANK "DATA",160.16,9,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,9,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",109,2) BLANK "DATA",160.16,9,"FIELD",109,3) L,BLANK "DATA",160.16,9,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,9,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,9,"FIELD",110,2) BLANK "DATA",160.16,9,"FIELD",110,3) L,BLANK "DATA",160.16,9,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,9,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,9,"FIELD",111,2) BLANK "DATA",160.16,9,"FIELD",111,3) L,BLANK "DATA",160.16,9,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,9,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,9,"FIELD",112,2) BLANK "DATA",160.16,9,"FIELD",112,3) L,BLANK "DATA",160.16,9,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,9,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,9,"FIELD",113,2) BLANK "DATA",160.16,9,"FIELD",113,3) L,BLANK "DATA",160.16,9,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,9,"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,9,"FIELD",114,2) BLANK "DATA",160.16,9,"FIELD",114,3) L,BLANK "DATA",160.16,9,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,9,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,9,"FIELD",115,2) BLANK "DATA",160.16,9,"FIELD",115,3) L,BLANK "DATA",160.16,9,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,9,"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,9,"FIELD",116,2) BLANK "DATA",160.16,9,"FIELD",116,3) L,BLANK "DATA",160.16,9,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,9,"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,9,"FIELD",117,2) BLANK "DATA",160.16,9,"FIELD",117,3) L,BLANK "DATA",160.16,9,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,9,"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,9,"FIELD",118,2) BLANK "DATA",160.16,9,"FIELD",118,3) L,BLANK "DATA",160.16,9,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,9,"FIELD",119,1) S ACDANS="" "DATA",160.16,9,"FIELD",119,2) BLANK "DATA",160.16,9,"FIELD",119,3) L,BLANK "DATA",160.16,9,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,9,"FIELD",120,1) S ACDANS="" "DATA",160.16,9,"FIELD",120,2) BLANK "DATA",160.16,9,"FIELD",120,3) L,BLANK "DATA",160.16,9,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,9,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",121,2) BLANK "DATA",160.16,9,"FIELD",121,3) L,BLANK "DATA",160.16,9,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,9,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,9,"FIELD",122,2) BLANK "DATA",160.16,9,"FIELD",122,3) L,BLANK^840 "DATA",160.16,9,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,9,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,9,"FIELD",123,2) BLANK "DATA",160.16,9,"FIELD",123,3) L,BLANK "DATA",160.16,9,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,9,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,9,"FIELD",124,2) BLANK "DATA",160.16,9,"FIELD",124,3) L,BLANK "DATA",160.16,9,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,9,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,9,"FIELD",125,2) BLANK "DATA",160.16,9,"FIELD",125,3) L,BLANK "DATA",160.16,9,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,9,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,9,"FIELD",126,2) BLANK "DATA",160.16,9,"FIELD",126,3) L,BLANK "DATA",160.16,9,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,9,"FIELD",127,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,9,"FIELD",127,2) BLANK "DATA",160.16,9,"FIELD",127,3) L,ZERO "DATA",160.16,9,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,9,"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,9,"FIELD",128,2) BLANK "DATA",160.16,9,"FIELD",128,3) L,ZERO "DATA",160.16,9,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",129,2) BLANK "DATA",160.16,9,"FIELD",129,3) L,ZERO "DATA",160.16,9,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,9,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,9,"FIELD",130,2) BLANK "DATA",160.16,9,"FIELD",130,3) L,ZERO "DATA",160.16,9,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,9,"FIELD",131,1) S ACDANS="" "DATA",160.16,9,"FIELD",131,2) BLANK "DATA",160.16,9,"FIELD",131,3) L,BLANK "DATA",160.16,9,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approch "DATA",160.16,9,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,9,"FIELD",132,2) BLANK "DATA",160.16,9,"FIELD",132,3) L,BLANK "DATA",160.16,9,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,9,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,9,"FIELD",133,2) BLANK "DATA",160.16,9,"FIELD",133,3) L,BLANK "DATA",160.16,9,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,9,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,9,"FIELD",134,2) BLANK "DATA",160.16,9,"FIELD",134,3) L,BLANK "DATA",160.16,9,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,9,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,9,"FIELD",135,2) BLANK "DATA",160.16,9,"FIELD",135,3) L,BLANK "DATA",160.16,9,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,9,"FIELD",136,2) BLANK "DATA",160.16,9,"FIELD",136,3) L,ZERO "DATA",160.16,9,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,9,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,9,"FIELD",137,2) BLANK "DATA",160.16,9,"FIELD",137,3) L,ZERO "DATA",160.16,9,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,9,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,9,"FIELD",138,2) BLANK "DATA",160.16,9,"FIELD",138,3) L,ZERO "DATA",160.16,9,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,9,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,9,"FIELD",139,2) BLANK "DATA",160.16,9,"FIELD",139,3) L,ZERO "DATA",160.16,9,"FIELD",140,0) 628^1^628^Rx Summ--Chemo "DATA",160.16,9,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,9,"FIELD",140,2) BLANK "DATA",160.16,9,"FIELD",140,3) L,ZERO "DATA",160.16,9,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,9,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,9,"FIELD",141,2) BLANK "DATA",160.16,9,"FIELD",141,3) L,ZERO "DATA",160.16,9,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,9,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,9,"FIELD",142,2) BLANK "DATA",160.16,9,"FIELD",142,3) L,ZERO "DATA",160.16,9,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,9,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,9,"FIELD",143,2) BLANK "DATA",160.16,9,"FIELD",143,3) L,ZERO "DATA",160.16,9,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,9,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,9,"FIELD",144,2) BLANK "DATA",160.16,9,"FIELD",144,3) L,BLANK "DATA",160.16,9,"FIELD",145,0) 633^1^633^Reasons for No Chemo "DATA",160.16,9,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,9,"FIELD",145,2) BLANK "DATA",160.16,9,"FIELD",145,3) L,BLANK "DATA",160.16,9,"FIELD",146,0) 634^1^634^Reasons for No Hormone "DATA",160.16,9,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,9,"FIELD",146,2) BLANK "DATA",160.16,9,"FIELD",146,3) L,BLANK "DATA",160.16,9,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,9,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",147,2) BLANK "DATA",160.16,9,"FIELD",147,3) L,ZERO "DATA",160.16,9,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,9,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,9,"FIELD",148,2) BLANK "DATA",160.16,9,"FIELD",148,3) L,BLANK "DATA",160.16,9,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,9,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,9,"FIELD",149,2) BLANK "DATA",160.16,9,"FIELD",149,3) L,BLANK "DATA",160.16,9,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,9,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,9,"FIELD",150,2) BLANK "DATA",160.16,9,"FIELD",150,3) L,BLANK "DATA",160.16,9,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,9,"FIELD",151,1) S ACDANS=1 "DATA",160.16,9,"FIELD",151,2) BLANK "DATA",160.16,9,"FIELD",151,3) L,BLANK "DATA",160.16,9,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,9,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,9,"FIELD",152,2) BLANK "DATA",160.16,9,"FIELD",152,3) L,ZERO "DATA",160.16,9,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,9,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,9,"FIELD",153,2) BLANK "DATA",160.16,9,"FIELD",153,3) L,ZERO "DATA",160.16,9,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,9,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,9,"FIELD",154,2) BLANK "DATA",160.16,9,"FIELD",154,3) L,ZERO "DATA",160.16,9,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,9,"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,9,"FIELD",155,2) BLANK "DATA",160.16,9,"FIELD",155,3) L,ZERO "DATA",160.16,9,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,9,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,9,"FIELD",156,2) BLANK "DATA",160.16,9,"FIELD",156,3) L,ZERO "DATA",160.16,9,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,9,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,9,"FIELD",157,2) BLANK "DATA",160.16,9,"FIELD",157,3) L,ZERO "DATA",160.16,9,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,9,"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,9,"FIELD",158,2) BLANK "DATA",160.16,9,"FIELD",158,3) L,ZERO "DATA",160.16,9,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,9,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",159,2) BLANK "DATA",160.16,9,"FIELD",159,3) L,ZERO "DATA",160.16,9,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,9,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,9,"FIELD",160,2) BLANK "DATA",160.16,9,"FIELD",160,3) L,ZERO "DATA",160.16,9,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,9,"FIELD",161,1) S ACDANS="" "DATA",160.16,9,"FIELD",161,2) BLANK "DATA",160.16,9,"FIELD",161,3) L,BLANK "DATA",160.16,9,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,9,"FIELD",162,1) S ACDANS="" "DATA",160.16,9,"FIELD",162,2) BLANK "DATA",160.16,9,"FIELD",162,3) L,BLANK "DATA",160.16,9,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,9,"FIELD",163,1) S ACDANS="" "DATA",160.16,9,"FIELD",163,2) BLANK "DATA",160.16,9,"FIELD",163,3) L,BLANK "DATA",160.16,9,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,9,"FIELD",164,1) S ACDANS="" "DATA",160.16,9,"FIELD",164,2) BLANK "DATA",160.16,9,"FIELD",164,3) L,BLANK "DATA",160.16,9,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,9,"FIELD",165,1) S ACDANS="" "DATA",160.16,9,"FIELD",165,2) BLANK "DATA",160.16,9,"FIELD",165,3) L,BLANK "DATA",160.16,9,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,9,"FIELD",166,1) S ACDANS="" "DATA",160.16,9,"FIELD",166,2) BLANK "DATA",160.16,9,"FIELD",166,3) L,BLANK "DATA",160.16,9,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,9,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",167,2) 00000000 "DATA",160.16,9,"FIELD",167,3) L,BLANK "DATA",160.16,9,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,9,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,9,"FIELD",168,2) BLANK "DATA",160.16,9,"FIELD",168,3) L,ZERO "DATA",160.16,9,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,9,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,9,"FIELD",169,2) BLANK "DATA",160.16,9,"FIELD",169,3) L,BLANK "DATA",160.16,9,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,9,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,9,"FIELD",170,2) BLANK "DATA",160.16,9,"FIELD",170,3) L,BLANK "DATA",160.16,9,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,9,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,9,"FIELD",171,2) BLANK "DATA",160.16,9,"FIELD",171,3) L,BLANK "DATA",160.16,9,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,9,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,9,"FIELD",172,2) BLANK "DATA",160.16,9,"FIELD",172,3) L,BLANK "DATA",160.16,9,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,9,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,9,"FIELD",173,2) BLANK "DATA",160.16,9,"FIELD",173,3) L,BLANK "DATA",160.16,9,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,9,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",174,2) 00000000 "DATA",160.16,9,"FIELD",174,3) L,BLANK "DATA",160.16,9,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,9,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,9,"FIELD",175,2) BLANK "DATA",160.16,9,"FIELD",175,3) L,ZERO "DATA",160.16,9,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,9,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,9,"FIELD",176,2) BLANK "DATA",160.16,9,"FIELD",176,3) L,BLANK "DATA",160.16,9,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,9,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,9,"FIELD",177,2) BLANK "DATA",160.16,9,"FIELD",177,3) L,BLANK "DATA",160.16,9,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,9,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,9,"FIELD",178,2) BLANK "DATA",160.16,9,"FIELD",178,3) L,BLANK "DATA",160.16,9,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,9,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,9,"FIELD",179,2) BLANK "DATA",160.16,9,"FIELD",179,3) L,BLANK "DATA",160.16,9,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,9,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,9,"FIELD",180,2) BLANK "DATA",160.16,9,"FIELD",180,3) L,BLANK "DATA",160.16,9,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,9,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",181,2) 00000000 "DATA",160.16,9,"FIELD",181,3) L,BLANK "DATA",160.16,9,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,9,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,9,"FIELD",182,2) BLANK "DATA",160.16,9,"FIELD",182,3) L,ZERO "DATA",160.16,9,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,9,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,9,"FIELD",183,2) BLANK "DATA",160.16,9,"FIELD",183,3) L,BLANK "DATA",160.16,9,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,9,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,9,"FIELD",184,2) BLANK "DATA",160.16,9,"FIELD",184,3) L,BLANK "DATA",160.16,9,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,9,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,9,"FIELD",185,2) BLANK "DATA",160.16,9,"FIELD",185,3) L,BLANK "DATA",160.16,9,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,9,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,9,"FIELD",186,2) BLANK "DATA",160.16,9,"FIELD",186,3) L,BLANK "DATA",160.16,9,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,9,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,9,"FIELD",187,2) BLANK "DATA",160.16,9,"FIELD",187,3) L,BLANK "DATA",160.16,9,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,9,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",188,2) 00000000 "DATA",160.16,9,"FIELD",188,3) L,BLANK "DATA",160.16,9,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,9,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,9,"FIELD",189,2) BLANK "DATA",160.16,9,"FIELD",189,3) L,ZERO "DATA",160.16,9,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,9,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,9,"FIELD",190,2) BLANK "DATA",160.16,9,"FIELD",190,3) L,BLANK "DATA",160.16,9,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,9,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,9,"FIELD",191,2) BLANK "DATA",160.16,9,"FIELD",191,3) L,BLANK "DATA",160.16,9,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,9,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,9,"FIELD",192,2) BLANK "DATA",160.16,9,"FIELD",192,3) L,BLANK "DATA",160.16,9,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,9,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,9,"FIELD",193,2) BLANK "DATA",160.16,9,"FIELD",193,3) L,BLANK "DATA",160.16,9,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,9,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,9,"FIELD",194,2) BLANK "DATA",160.16,9,"FIELD",194,3) L,BLANK "DATA",160.16,9,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,9,"FIELD",195,1) S ACDANS="" "DATA",160.16,9,"FIELD",195,2) BLANK "DATA",160.16,9,"FIELD",195,3) L,BLANK "DATA",160.16,9,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,9,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",196,2) BLANK "DATA",160.16,9,"FIELD",196,3) L,ZERO "DATA",160.16,9,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,9,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,9,"FIELD",197,2) BLANK "DATA",160.16,9,"FIELD",197,3) L,BLANK "DATA",160.16,9,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,9,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",198,2) BLANK "DATA",160.16,9,"FIELD",198,3) L,BLANK "DATA",160.16,9,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,9,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,9,"FIELD",199,2) BLANK "DATA",160.16,9,"FIELD",199,3) L,BLANK "DATA",160.16,9,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,9,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,9,"FIELD",200,2) BLANK "DATA",160.16,9,"FIELD",200,3) L,BLANK "DATA",160.16,9,"FIELD",201,0) 803^1^803^Next Follow-up Source "DATA",160.16,9,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,9,"FIELD",201,2) BLANK "DATA",160.16,9,"FIELD",201,3) L,BLANK "DATA",160.16,9,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,9,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",202,2) BLANK "DATA",160.16,9,"FIELD",202,3) R,BLANK "DATA",160.16,9,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,9,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",203,2) BLANK "DATA",160.16,9,"FIELD",203,3) R,BLANK "DATA",160.16,9,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,9,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",204,2) BLANK "DATA",160.16,9,"FIELD",204,3) R,BLANK "DATA",160.16,9,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,9,"FIELD",205,1) S ACDANS="" "DATA",160.16,9,"FIELD",205,2) BLANK "DATA",160.16,9,"FIELD",205,3) L,BLANK "DATA",160.16,9,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,9,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,9,"FIELD",206,2) BLANK "DATA",160.16,9,"FIELD",206,3) L,BLANK "DATA",160.16,9,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,9,"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,9,"FIELD",207,2) NINE "DATA",160.16,9,"FIELD",207,3) L,NINE "DATA",160.16,9,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,9,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,9,"FIELD",208,2) BLANK "DATA",160.16,9,"FIELD",208,3) L,BLANK "DATA",160.16,9,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,9,"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,9,"FIELD",209,2) NINE "DATA",160.16,9,"FIELD",209,3) L,ZERO "DATA",160.16,9,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,9,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,9,"FIELD",210,2) NINE "DATA",160.16,9,"FIELD",210,3) L,ZERO "DATA",160.16,9,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,9,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",211,2) BLANK "DATA",160.16,9,"FIELD",211,3) L,BLANK "DATA",160.16,9,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,9,"FIELD",212,1) S ACDANS="" "DATA",160.16,9,"FIELD",212,2) BLANK "DATA",160.16,9,"FIELD",212,3) L,BLANK "DATA",160.16,9,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,9,"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,9,"FIELD",213,2) BLANK "DATA",160.16,9,"FIELD",213,3) L,ZERO "DATA",160.16,9,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,9,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,9,"FIELD",214,2) BLANK "DATA",160.16,9,"FIELD",214,3) L,ZERO "DATA",160.16,9,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,9,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,9,"FIELD",215,2) BLANK "DATA",160.16,9,"FIELD",215,3) L,BLANK "DATA",160.16,9,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,9,"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,9,"FIELD",216,2) BLANK "DATA",160.16,9,"FIELD",216,3) L,BLANK "DATA",160.16,9,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,9,"FIELD",217,1) S ACDANS="" "DATA",160.16,9,"FIELD",217,2) BLANK "DATA",160.16,9,"FIELD",217,3) L,BLANK "DATA",160.16,9,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,9,"FIELD",218,1) S ACDANS="" "DATA",160.16,9,"FIELD",218,2) BLANK "DATA",160.16,9,"FIELD",218,3) L,BLANK "DATA",160.16,9,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,9,"FIELD",219,1) S ACDANS="" "DATA",160.16,9,"FIELD",219,2) BLANK "DATA",160.16,9,"FIELD",219,3) L,BLANK "DATA",160.16,9,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,9,"FIELD",220,1) S ACDANS=4 "DATA",160.16,9,"FIELD",220,2) BLANK "DATA",160.16,9,"FIELD",220,3) L,BLANK "DATA",160.16,9,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,9,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,9,"FIELD",221,2) BLANK "DATA",160.16,9,"FIELD",221,3) L,BLANK "DATA",160.16,9,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,9,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,9,"FIELD",222,2) BLANK "DATA",160.16,9,"FIELD",222,3) L,BLANK "DATA",160.16,9,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,9,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,9,"FIELD",223,2) BLANK "DATA",160.16,9,"FIELD",223,3) L,BLANK "DATA",160.16,9,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,9,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,9,"FIELD",224,2) BLANK "DATA",160.16,9,"FIELD",224,3) L,BLANK "DATA",160.16,9,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,9,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,9,"FIELD",225,2) BLANK "DATA",160.16,9,"FIELD",225,3) L,BLANK "DATA",160.16,9,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,9,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,9,"FIELD",226,2) BLANK "DATA",160.16,9,"FIELD",226,3) L,BLANK "DATA",160.16,9,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,9,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,9,"FIELD",227,2) BLANK "DATA",160.16,9,"FIELD",227,3) L,BLANK "DATA",160.16,9,"FIELD",228,0) 920^1^920^Over-ride Ill-define Site "DATA",160.16,9,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,9,"FIELD",228,2) BLANK "DATA",160.16,9,"FIELD",228,3) L,BLANK "DATA",160.16,9,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,9,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,9,"FIELD",229,2) BLANK "DATA",160.16,9,"FIELD",229,3) L,BLANK "DATA",160.16,9,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,9,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",231,2) BLANK "DATA",160.16,9,"FIELD",231,3) L,BLANK "DATA",160.16,9,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,9,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,9,"FIELD",232,2) BLANK "DATA",160.16,9,"FIELD",232,3) L,BLANK "DATA",160.16,9,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,9,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,9,"FIELD",233,2) BLANK "DATA",160.16,9,"FIELD",233,3) L,ZERO "DATA",160.16,9,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,9,"FIELD",234,1) S ACDANS=5 "DATA",160.16,9,"FIELD",234,2) BLANK "DATA",160.16,9,"FIELD",234,3) L,BLANK "DATA",160.16,9,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,9,"FIELD",235,1) S ACDANS=5 "DATA",160.16,9,"FIELD",235,2) BLANK "DATA",160.16,9,"FIELD",235,3) L,BLANK "DATA",160.16,9,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,9,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",236,2) BLANK "DATA",160.16,9,"FIELD",236,3) L,BLANK "DATA",160.16,9,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,9,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",237,2) BLANK "DATA",160.16,9,"FIELD",237,3) L,BLANK "DATA",160.16,9,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,9,"FIELD",238,1) S ACDANS="" "DATA",160.16,9,"FIELD",238,2) BLANK "DATA",160.16,9,"FIELD",238,3) L,BLANK "DATA",160.16,9,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,9,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,9,"FIELD",239,2) BLANK "DATA",160.16,9,"FIELD",239,3) R,BLANK "DATA",160.16,9,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,9,"FIELD",240,1) S ACDANS="" "DATA",160.16,9,"FIELD",240,2) BLANK "DATA",160.16,9,"FIELD",240,3) L,BLANK "DATA",160.16,9,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,9,"FIELD",241,1) S ACDANS="" "DATA",160.16,9,"FIELD",241,2) BLANK "DATA",160.16,9,"FIELD",241,3) L,BLANK "DATA",160.16,9,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,9,"FIELD",242,1) S ACDANS="" "DATA",160.16,9,"FIELD",242,2) BLANK "DATA",160.16,9,"FIELD",242,3) L,BLANK "DATA",160.16,9,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,9,"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,9,"FIELD",243,2) BLANK "DATA",160.16,9,"FIELD",243,3) L,BLANK "DATA",160.16,9,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,9,"FIELD",339,1) S ACDANS="" "DATA",160.16,9,"FIELD",339,2) BLANK "DATA",160.16,9,"FIELD",339,3) L,BLANK "DATA",160.16,9,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,9,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.1,"I") "DATA",160.16,9,"FIELD",340,2) BLANK "DATA",160.16,9,"FIELD",340,3) L,BLANK "DATA",160.16,9,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,9,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,9,"FIELD",341,2) BLANK "DATA",160.16,9,"FIELD",341,3) L,BLANK "DATA",160.16,9,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,9,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,9,"FIELD",342,2) BLANK "DATA",160.16,9,"FIELD",342,3) L,BLANK "DATA",160.16,9,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,9,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,9,"FIELD",343,2) BLANK "DATA",160.16,9,"FIELD",343,3) L,BLANK "DATA",160.16,9,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,9,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,9,"FIELD",344,2) BLANK "DATA",160.16,9,"FIELD",344,3) L,BLANK "DATA",160.16,9,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,9,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,9,"FIELD",345,2) BLANK "DATA",160.16,9,"FIELD",345,3) L,BLANK "DATA",160.16,9,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,9,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,9,"FIELD",346,2) BLANK "DATA",160.16,9,"FIELD",346,3) L,BLANK "DATA",160.16,9,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,9,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,9,"FIELD",347,2) BLANK "DATA",160.16,9,"FIELD",347,3) L,ZERO "DATA",160.16,9,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,9,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,9,"FIELD",348,2) NINE "DATA",160.16,9,"FIELD",348,3) L,NINE "DATA",160.16,9,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,9,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,9,"FIELD",349,2) BLANK "DATA",160.16,9,"FIELD",349,3) L,ZERO "DATA",160.16,9,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,9,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,9,"FIELD",350,2) BLANK "DATA",160.16,9,"FIELD",350,3) L,BLANK "DATA",160.16,9,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,9,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,9,"FIELD",351,2) BLANK "DATA",160.16,9,"FIELD",351,3) L,BLANK "DATA",160.16,9,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,9,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,9,"FIELD",352,2) BLANK "DATA",160.16,9,"FIELD",352,3) L,BLANK "DATA",160.16,9,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,9,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,9,"FIELD",353,2) BLANK "DATA",160.16,9,"FIELD",353,3) L,BLANK "DATA",160.16,9,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope LN Su "DATA",160.16,9,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,9,"FIELD",354,2) BLANK "DATA",160.16,9,"FIELD",354,3) L,BLANK "DATA",160.16,9,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,9,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,9,"FIELD",355,2) BLANK "DATA",160.16,9,"FIELD",355,3) L,BLANK "DATA",160.16,9,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,9,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,9,"FIELD",356,2) BLANK "DATA",160.16,9,"FIELD",356,3) L,BLANK "DATA",160.16,9,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,9,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,9,"FIELD",357,2) BLANK "DATA",160.16,9,"FIELD",357,3) L,BLANK "DATA",160.16,9,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,9,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,9,"FIELD",358,2) BLANK "DATA",160.16,9,"FIELD",358,3) L,BLANK "DATA",160.16,9,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,9,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,9,"FIELD",359,2) BLANK "DATA",160.16,9,"FIELD",359,3) L,BLANK "DATA",160.16,9,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,9,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,9,"FIELD",360,2) BLANK "DATA",160.16,9,"FIELD",360,3) L,BLANK "DATA",160.16,9,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,9,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,9,"FIELD",361,2) BLANK "DATA",160.16,9,"FIELD",361,3) L,BLANK "DATA",160.16,9,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,9,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,9,"FIELD",362,2) BLANK "DATA",160.16,9,"FIELD",362,3) L,BLANK "DATA",160.16,9,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,9,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,9,"FIELD",363,2) BLANK "DATA",160.16,9,"FIELD",363,3) L,BLANK "DATA",160.16,9,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,9,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,9,"FIELD",364,2) BLANK "DATA",160.16,9,"FIELD",364,3) L,BLANK "DATA",160.16,9,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,9,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,9,"FIELD",365,2) BLANK "DATA",160.16,9,"FIELD",365,3) L,BLANK "DATA",160.16,9,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,9,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,9,"FIELD",366,2) NINE "DATA",160.16,9,"FIELD",366,3) L,NINE "DATA",160.16,9,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,9,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",367,2) BLANK "DATA",160.16,9,"FIELD",367,3) R,BLANK "DATA",160.16,9,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,9,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",368,2) BLANK "DATA",160.16,9,"FIELD",368,3) L,BLANK "DATA",160.16,9,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,9,"FIELD",369,1) S ACDANS="" "DATA",160.16,9,"FIELD",369,2) BLANK "DATA",160.16,9,"FIELD",369,3) L,BLANK "DATA",160.16,9,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,9,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,9,"FIELD",370,2) BLANK "DATA",160.16,9,"FIELD",370,3) L,BLANK "DATA",160.16,9,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,9,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,9,"FIELD",371,2) BLANK "DATA",160.16,9,"FIELD",371,3) L,BLANK "DATA",160.16,9,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,9,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,9,"FIELD",372,2) BLANK "DATA",160.16,9,"FIELD",372,3) L,BLANK "DATA",160.16,9,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,9,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,9,"FIELD",373,2) BLANK "DATA",160.16,9,"FIELD",373,3) L,BLANK "DATA",160.16,9,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,9,"FIELD",374,1) S ACDANS="" "DATA",160.16,9,"FIELD",374,2) BLANK "DATA",160.16,9,"FIELD",374,3) L,BLANK "DATA",160.16,9,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,9,"FIELD",375,1) S ACDANS="" "DATA",160.16,9,"FIELD",375,2) BLANK "DATA",160.16,9,"FIELD",375,3) L,BLANK "DATA",160.16,9,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,9,"FIELD",376,1) S ACDANS="" "DATA",160.16,9,"FIELD",376,2) BLANK "DATA",160.16,9,"FIELD",376,3) L,BLANK "DATA",160.16,9,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,9,"FIELD",377,1) S ACDANS="" "DATA",160.16,9,"FIELD",377,2) BLANK "DATA",160.16,9,"FIELD",377,3) L,BLANK "DATA",160.16,9,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,9,"FIELD",378,1) S ACDANS="" "DATA",160.16,9,"FIELD",378,2) BLANK "DATA",160.16,9,"FIELD",378,3) L,BLANK "DATA",160.16,9,"FIELD",379,0) 942^10^951^CRC CHECKSUM "DATA",160.16,9,"FIELD",379,1) S ACDANS="" "DATA",160.16,9,"FIELD",379,2) BLANK "DATA",160.16,9,"FIELD",379,3) L,BLANK "DATA",160.16,9,"FIELD",380,0) 12^7^18^Reserved for Expansion "DATA",160.16,9,"FIELD",380,1) S ACDANS="" "DATA",160.16,9,"FIELD",380,2) BLANK "DATA",160.16,9,"FIELD",380,3) L,BLANK "DATA",160.16,9,"FIELD",381,0) 204^2^205^Race 2 "DATA",160.16,9,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,9,"FIELD",381,2) BLANK "DATA",160.16,9,"FIELD",381,3) L,ZERO "DATA",160.16,9,"FIELD",382,0) 271^15^285^Reporting Hospital "DATA",160.16,9,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",382,2) ZERO "DATA",160.16,9,"FIELD",382,3) L,ZERO "DATA",160.16,9,"FIELD",383,0) 286^9^294^Accession Number--Hosp "DATA",160.16,9,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,9,"FIELD",383,2) BLANK "DATA",160.16,9,"FIELD",383,3) L,ZERO "DATA",160.16,9,"FIELD",384,0) 206^2^207^Race 3 "DATA",160.16,9,"FIELD",384,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,9,"FIELD",384,2) BLANK "DATA",160.16,9,"FIELD",384,3) L,ZERO "DATA",160.16,9,"FIELD",385,0) 208^2^209^Race 4 "DATA",160.16,9,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,9,"FIELD",385,2) BLANK "DATA",160.16,9,"FIELD",385,3) L,ZERO "DATA",160.16,9,"FIELD",386,0) 210^2^211^Race 5 "DATA",160.16,9,"FIELD",386,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,9,"FIELD",386,2) BLANK "DATA",160.16,9,"FIELD",386,3) L,ZERO "DATA",160.16,9,"FIELD",387,0) 212^5^216^Reserved for Expansion "DATA",160.16,9,"FIELD",387,1) S ACDANS="" "DATA",160.16,9,"FIELD",387,2) BLANK "DATA",160.16,9,"FIELD",387,3) L,BLANK "DATA",160.16,9,"FIELD",388,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,9,"FIELD",388,1) S ACDANS="" "DATA",160.16,9,"FIELD",388,2) ZERO "DATA",160.16,9,"FIELD",388,3) L,ZERO "DATA",160.16,9,"FIELD",390,0) 258^3^260^Reserved for Expansion "DATA",160.16,9,"FIELD",390,1) S ACDANS="" "DATA",160.16,9,"FIELD",390,2) BLANK "DATA",160.16,9,"FIELD",390,3) L,BLANK "DATA",160.16,9,"FIELD",391,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,9,"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,9,"FIELD",391,2) BLANK "DATA",160.16,9,"FIELD",391,3) L,ZERO "DATA",160.16,9,"FIELD",392,0) 782^1^782^Over-ride SS/NodesPos "DATA",160.16,9,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,9,"FIELD",392,2) BLANK "DATA",160.16,9,"FIELD",392,3) L,BLANK "DATA",160.16,9,"FIELD",393,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,9,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,9,"FIELD",393,2) BLANK "DATA",160.16,9,"FIELD",393,3) L,BLANK "DATA",160.16,9,"FIELD",394,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,9,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,9,"FIELD",394,2) BLANK "DATA",160.16,9,"FIELD",394,3) L,BLANK "DATA",160.16,9,"FIELD",395,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,9,"FIELD",395,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,9,"FIELD",395,2) BLANK "DATA",160.16,9,"FIELD",395,3) L,BLANK "DATA",160.16,9,"FIELD",396,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,9,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,9,"FIELD",396,2) BLANK "DATA",160.16,9,"FIELD",396,3) L,BLANK "DATA",160.16,9,"FIELD",397,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,9,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,9,"FIELD",397,2) BLANK "DATA",160.16,9,"FIELD",397,3) L,BLANK "DATA",160.16,9,"FIELD",398,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,9,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,9,"FIELD",398,2) BLANK "DATA",160.16,9,"FIELD",398,3) L,BLANK "DATA",160.16,9,"FIELD",399,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,9,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,9,"FIELD",399,2) BLANK "DATA",160.16,9,"FIELD",399,3) L,BLANK "DATA",160.16,9,"FIELD",400,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,9,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,9,"FIELD",400,2) BLANK "DATA",160.16,9,"FIELD",400,3) L,BLANK "DATA",160.16,9,"FIELD",401,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,9,"FIELD",401,1) S ACDANS="" "DATA",160.16,9,"FIELD",401,2) BLANK "DATA",160.16,9,"FIELD",401,3) L,BLANK "DATA",160.16,9,"RULES",0) ^160.162^8^8^3031024^^^^ "DATA",160.16,9,"RULES",1,0) S VALID=1 "DATA",160.16,9,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,9,"RULES",3,0) I "^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,9,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,9,"RULES",5,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,9,"RULES",6,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,9,"RULES",7,0) S JUMP=0 "DATA",160.16,9,"RULES",8,0) K SCREEN "DATA",160.16,10,0) STATE EXTRACT V9.1 "DATA",160.16,10,"FIELD",0) ^160.161I^428^350 "DATA",160.16,10,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,10,"FIELD",1,1) S ACDANS="A" "DATA",160.16,10,"FIELD",1,2) BLANK "DATA",160.16,10,"FIELD",1,3) L,BLANK "DATA",160.16,10,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,10,"FIELD",2,1) S ACDANS="" "DATA",160.16,10,"FIELD",2,2) ZERO "DATA",160.16,10,"FIELD",2,3) L,ZERO "DATA",160.16,10,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,10,"FIELD",3,1) S ACDANS=3 "DATA",160.16,10,"FIELD",3,2) BLANK "DATA",160.16,10,"FIELD",3,3) L,BLANK "DATA",160.16,10,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,10,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,10,"FIELD",4,2) BLANK "DATA",160.16,10,"FIELD",4,3) L,BLANK "DATA",160.16,10,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,10,"FIELD",5,1) S ACDANS=9 "DATA",160.16,10,"FIELD",5,2) BLANK "DATA",160.16,10,"FIELD",5,3) L,BLANK "DATA",160.16,10,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,10,"FIELD",6,1) S ACDANS="" "DATA",160.16,10,"FIELD",6,2) BLANK "DATA",160.16,10,"FIELD",6,3) L,BLANK "DATA",160.16,10,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,10,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,10,"FIELD",7,2) BLANK "DATA",160.16,10,"FIELD",7,3) R,BLANK "DATA",160.16,10,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,10,"FIELD",8,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,10,"FIELD",8,2) BLANK "DATA",160.16,10,"FIELD",8,3) L,BLANK "DATA",160.16,10,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,10,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",9,2) BLANK "DATA",160.16,10,"FIELD",9,3) L,ZERO "DATA",160.16,10,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,10,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,10,"FIELD",10,2) BLANK "DATA",160.16,10,"FIELD",10,3) R,BLANK "DATA",160.16,10,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,10,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,10,"FIELD",11,2) BLANK "DATA",160.16,10,"FIELD",11,3) L,ZERO "DATA",160.16,10,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,10,"FIELD",12,1) S ACDANS="" "DATA",160.16,10,"FIELD",12,2) BLANK "DATA",160.16,10,"FIELD",12,3) L,BLANK "DATA",160.16,10,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,10,"FIELD",13,1) S ACDANS="" "DATA",160.16,10,"FIELD",13,2) BLANK "DATA",160.16,10,"FIELD",13,3) L,BLANK "DATA",160.16,10,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,10,"FIELD",14,1) S ACDANS="" "DATA",160.16,10,"FIELD",14,2) BLANK "DATA",160.16,10,"FIELD",14,3) L,BLANK "DATA",160.16,10,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,10,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,10,"FIELD",15,2) BLANK "DATA",160.16,10,"FIELD",15,3) L,BLANK "DATA",160.16,10,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,10,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,10,"FIELD",16,2) BLANK "DATA",160.16,10,"FIELD",16,3) L,ZERO "DATA",160.16,10,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,10,"FIELD",17,1) S ACDANS=6 "DATA",160.16,10,"FIELD",17,2) BLANK "DATA",160.16,10,"FIELD",17,3) L,BLANK "DATA",160.16,10,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,10,"FIELD",18,1) S ACDANS=6 "DATA",160.16,10,"FIELD",18,2) BLANK "DATA",160.16,10,"FIELD",18,3) L,BLANK "DATA",160.16,10,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,10,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,10,"FIELD",19,2) BLANK "DATA",160.16,10,"FIELD",19,3) L,BLANK "DATA",160.16,10,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,10,"FIELD",20,1) S ACDANS="" "DATA",160.16,10,"FIELD",20,2) BLANK "DATA",160.16,10,"FIELD",20,3) L,BLANK "DATA",160.16,10,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,10,"FIELD",21,1) S ACDANS="" "DATA",160.16,10,"FIELD",21,2) BLANK "DATA",160.16,10,"FIELD",21,3) L,BLANK "DATA",160.16,10,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,10,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,10,"FIELD",22,2) BLANK "DATA",160.16,10,"FIELD",22,3) L,BLANK "DATA",160.16,10,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,10,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",23,2) BLANK "DATA",160.16,10,"FIELD",23,3) L,ZERO "DATA",160.16,10,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,10,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,10,"FIELD",24,2) NINE "DATA",160.16,10,"FIELD",24,3) L,ZERO "DATA",160.16,10,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,10,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,10,"FIELD",25,2) NINE "DATA",160.16,10,"FIELD",25,3) L,ZERO "DATA",160.16,10,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,10,"FIELD",26,1) S ACDANS=99 "DATA",160.16,10,"FIELD",26,2) NINE "DATA",160.16,10,"FIELD",26,3) L,ZERO "DATA",160.16,10,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,10,"FIELD",27,1) S ACDANS="" "DATA",160.16,10,"FIELD",27,2) BLANK "DATA",160.16,10,"FIELD",27,3) L,BLANK "DATA",160.16,10,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,10,"FIELD",28,1) S ACDANS="" "DATA",160.16,10,"FIELD",28,2) BLANK "DATA",160.16,10,"FIELD",28,3) L,BLANK "DATA",160.16,10,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,10,"FIELD",29,1) S ACDANS="" "DATA",160.16,10,"FIELD",29,2) BLANK "DATA",160.16,10,"FIELD",29,3) L,BLANK "DATA",160.16,10,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,10,"FIELD",30,1) S ACDANS="" "DATA",160.16,10,"FIELD",30,2) BLANK "DATA",160.16,10,"FIELD",30,3) L,BLANK "DATA",160.16,10,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,10,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",31,2) BLANK "DATA",160.16,10,"FIELD",31,3) R,BLANK "DATA",160.16,10,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,10,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",32,2) BLANK "DATA",160.16,10,"FIELD",32,3) R,BLANK "DATA",160.16,10,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,10,"FIELD",33,1) S ACDANS="" "DATA",160.16,10,"FIELD",33,2) BLANK "DATA",160.16,10,"FIELD",33,3) L,BLANK "DATA",160.16,10,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,10,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",34,2) BLANK "DATA",160.16,10,"FIELD",34,3) L,BLANK "DATA",160.16,10,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,10,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",35,2) BLANK "DATA",160.16,10,"FIELD",35,3) L,BLANK "DATA",160.16,10,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,10,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,10,"FIELD",36,2) BLANK "DATA",160.16,10,"FIELD",36,3) L,BLANK "DATA",160.16,10,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,10,"FIELD",37,1) S ACDANS="" "DATA",160.16,10,"FIELD",37,2) BLANK "DATA",160.16,10,"FIELD",37,3) L,BLANK "DATA",160.16,10,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,10,"FIELD",38,1) S ACDANS=STAT1 "DATA",160.16,10,"FIELD",38,2) ZERO "DATA",160.16,10,"FIELD",38,3) L,ZERO "DATA",160.16,10,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,10,"FIELD",39,1) S ACDANS="" "DATA",160.16,10,"FIELD",39,2) BLANK "DATA",160.16,10,"FIELD",39,3) L,BLANK "DATA",160.16,10,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,10,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",40,2) ZERO "DATA",160.16,10,"FIELD",40,3) L,ZERO "DATA",160.16,10,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,10,"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,10,"FIELD",41,2) ZERO "DATA",160.16,10,"FIELD",41,3) L,ZERO^ "DATA",160.16,10,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,10,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,10,"FIELD",42,2) BLANK "DATA",160.16,10,"FIELD",42,3) L,BLANK "DATA",160.16,10,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,10,"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,10,"FIELD",43,2) BLANK "DATA",160.16,10,"FIELD",43,3) L,ZERO "DATA",160.16,10,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,10,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,10,"FIELD",45,2) ZERO "DATA",160.16,10,"FIELD",45,3) L,ZERO "DATA",160.16,10,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,10,"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,10,"FIELD",46,2) ZERO "DATA",160.16,10,"FIELD",46,3) L,ZERO "DATA",160.16,10,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,10,"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,10,"FIELD",47,2) ZERO "DATA",160.16,10,"FIELD",47,3) L,ZERO "DATA",160.16,10,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,10,"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,10,"FIELD",48,2) ZERO "DATA",160.16,10,"FIELD",48,3) L,ZERO "DATA",160.16,10,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,10,"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,10,"FIELD",49,2) ZERO "DATA",160.16,10,"FIELD",49,3) L,ZERO "DATA",160.16,10,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,10,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,10,"FIELD",50,2) NINE "DATA",160.16,10,"FIELD",50,3) L,ZERO "DATA",160.16,10,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,10,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,10,"FIELD",51,2) BLANK "DATA",160.16,10,"FIELD",51,3) L,BLANK "DATA",160.16,10,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,10,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",52,2) BLANK "DATA",160.16,10,"FIELD",52,3) L,BLANK "DATA",160.16,10,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,10,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,10,"FIELD",53,2) BLANK "DATA",160.16,10,"FIELD",53,3) L,BLANK "DATA",160.16,10,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,10,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,10,"FIELD",54,2) BLANK "DATA",160.16,10,"FIELD",54,3) L,ZERO "DATA",160.16,10,"FIELD",56,0) 286^9^294^Accession Number--Hosp "DATA",160.16,10,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,10,"FIELD",56,2) ZERO "DATA",160.16,10,"FIELD",56,3) L,ZERO "DATA",160.16,10,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,10,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,10,"FIELD",57,2) ZERO "DATA",160.16,10,"FIELD",57,3) L,ZERO "DATA",160.16,10,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,10,"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,10,"FIELD",58,2) BLANK "DATA",160.16,10,"FIELD",58,3) R,BLANK "DATA",160.16,10,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,10,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",59,2) ZERO "DATA",160.16,10,"FIELD",59,3) L,ZERO "DATA",160.16,10,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,10,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",60,2) ZERO "DATA",160.16,10,"FIELD",60,3) L,ZERO "DATA",160.16,10,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,10,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",61,2) ZERO "DATA",160.16,10,"FIELD",61,3) L,ZERO "DATA",160.16,10,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,10,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,10,"FIELD",62,2) ZERO "DATA",160.16,10,"FIELD",62,3) L,ZERO "DATA",160.16,10,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,10,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,10,"FIELD",63,2) ZERO "DATA",160.16,10,"FIELD",63,3) L,ZERO "DATA",160.16,10,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,10,"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,10,"FIELD",64,2) BLANK "DATA",160.16,10,"FIELD",64,3) L,BLANK "DATA",160.16,10,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,10,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,10,"FIELD",65,2) BLANK "DATA",160.16,10,"FIELD",65,3) L,BLANK "DATA",160.16,10,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,10,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,10,"FIELD",66,2) BLANK "DATA",160.16,10,"FIELD",66,3) L,BLANK "DATA",160.16,10,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,10,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",67,2) BLANK "DATA",160.16,10,"FIELD",67,3) L,BLANK "DATA",160.16,10,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,10,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,10,"FIELD",68,2) NINE "DATA",160.16,10,"FIELD",68,3) L,ZERO "DATA",160.16,10,"FIELD",69,0) 347^4^350^Reserved of Expansion "DATA",160.16,10,"FIELD",69,1) S ACDANS="" "DATA",160.16,10,"FIELD",69,2) BLANK "DATA",160.16,10,"FIELD",69,3) L,BLANK "DATA",160.16,10,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,10,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,10,"FIELD",70,2) BLANK "DATA",160.16,10,"FIELD",70,3) L,ZERO "DATA",160.16,10,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,10,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,10,"FIELD",71,2) BLANK "DATA",160.16,10,"FIELD",71,3) L,ZERO "DATA",160.16,10,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,10,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,10,"FIELD",72,2) BLANK "DATA",160.16,10,"FIELD",72,3) L,ZERO "DATA",160.16,10,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,10,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,10,"FIELD",73,2) BLANK "DATA",160.16,10,"FIELD",73,3) L,ZERO "DATA",160.16,10,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,10,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,10,"FIELD",74,2) BLANK "DATA",160.16,10,"FIELD",74,3) L,ZERO "DATA",160.16,10,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,10,"FIELD",75,2) BLANK "DATA",160.16,10,"FIELD",75,3) L,ZERO "DATA",160.16,10,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,10,"FIELD",76,1) S ACDANS="" "DATA",160.16,10,"FIELD",76,2) BLANK "DATA",160.16,10,"FIELD",76,3) L,BLANK "DATA",160.16,10,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,10,"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,10,"FIELD",77,2) BLANK "DATA",160.16,10,"FIELD",77,3) L,BLANK "DATA",160.16,10,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,10,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",78,2) BLANK "DATA",160.16,10,"FIELD",78,3) L,BLANK "DATA",160.16,10,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,10,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,10,"FIELD",79,2) BLANK "DATA",160.16,10,"FIELD",79,3) L,ZERO "DATA",160.16,10,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,10,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,10,"FIELD",80,2) BLANK "DATA",160.16,10,"FIELD",80,3) L,ZERO "DATA",160.16,10,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,10,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,10,"FIELD",81,2) BLANK "DATA",160.16,10,"FIELD",81,3) L,ZERO "DATA",160.16,10,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,10,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,10,"FIELD",82,2) BLANK "DATA",160.16,10,"FIELD",82,3) L,BLANK "DATA",160.16,10,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,10,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,10,"FIELD",83,2) ZERO "DATA",160.16,10,"FIELD",83,3) L,ZERO "DATA",160.16,10,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,10,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,10,"FIELD",84,2) ZERO "DATA",160.16,10,"FIELD",84,3) L,ZERO "DATA",160.16,10,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,10,"FIELD",85,1) S ACDANS="" "DATA",160.16,10,"FIELD",85,2) BLANK "DATA",160.16,10,"FIELD",85,3) L,BLANK "DATA",160.16,10,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,10,"FIELD",86,1) S ACDANS="" "DATA",160.16,10,"FIELD",86,2) BLANK "DATA",160.16,10,"FIELD",86,3) L,BLANK "DATA",160.16,10,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,10,"FIELD",87,1) S ACDANS="" "DATA",160.16,10,"FIELD",87,2) BLANK "DATA",160.16,10,"FIELD",87,3) L,BLANK "DATA",160.16,10,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,10,"FIELD",88,1) S ACDANS=4 "DATA",160.16,10,"FIELD",88,2) BLANK "DATA",160.16,10,"FIELD",88,3) L,BLANK "DATA",160.16,10,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,10,"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,10,"FIELD",89,2) BLANK "DATA",160.16,10,"FIELD",89,3) R,BLANK "DATA",160.16,10,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,10,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,10,"FIELD",90,2) BLANK "DATA",160.16,10,"FIELD",90,3) R,BLANK "DATA",160.16,10,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,10,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,10,"FIELD",91,2) BLANK "DATA",160.16,10,"FIELD",91,3) R,BLANK "DATA",160.16,10,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,10,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,10,"FIELD",92,2) BLANK "DATA",160.16,10,"FIELD",92,3) R,BLANK "DATA",160.16,10,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,10,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,10,"FIELD",93,2) ZERO "DATA",160.16,10,"FIELD",93,3) L,ZERO "DATA",160.16,10,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,10,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,10,"FIELD",94,2) BLANK "DATA",160.16,10,"FIELD",94,3) L,BLANK "DATA",160.16,10,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,10,"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,10,"FIELD",95,2) BLANK "DATA",160.16,10,"FIELD",95,3) R,BLANK "DATA",160.16,10,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,10,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,10,"FIELD",96,2) BLANK "DATA",160.16,10,"FIELD",96,3) R,BLANK "DATA",160.16,10,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,10,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,10,"FIELD",97,2) BLANK "DATA",160.16,10,"FIELD",97,3) R,BLANK "DATA",160.16,10,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,10,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,10,"FIELD",98,2) BLANK "DATA",160.16,10,"FIELD",98,3) R,BLANK "DATA",160.16,10,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,10,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,10,"FIELD",99,2) ZERO "DATA",160.16,10,"FIELD",99,3) L,ZERO "DATA",160.16,10,"FIELD",100,0) 441^1^441^TNM Clin Staged By "DATA",160.16,10,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,10,"FIELD",100,2) BLANK "DATA",160.16,10,"FIELD",100,3) L,BLANK "DATA",160.16,10,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,10,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,10,"FIELD",101,2) BLANK "DATA",160.16,10,"FIELD",101,3) R,BLANK "DATA",160.16,10,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,10,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,10,"FIELD",102,2) BLANK "DATA",160.16,10,"FIELD",102,3) R,BLANK "DATA",160.16,10,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,10,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,10,"FIELD",103,2) BLANK "DATA",160.16,10,"FIELD",103,3) R,BLANK "DATA",160.16,10,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,10,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,10,"FIELD",104,2) BLANK "DATA",160.16,10,"FIELD",104,3) R,BLANK "DATA",160.16,10,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,10,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,10,"FIELD",105,2) BLANK "DATA",160.16,10,"FIELD",105,3) L,BLANK "DATA",160.16,10,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,10,"FIELD",106,1) S ACDANS="" "DATA",160.16,10,"FIELD",106,2) BLANK "DATA",160.16,10,"FIELD",106,3) L,BLANK "DATA",160.16,10,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,10,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",107,2) BLANK "DATA",160.16,10,"FIELD",107,3) L,BLANK "DATA",160.16,10,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,10,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",108,2) BLANK "DATA",160.16,10,"FIELD",108,3) R,BLANK "DATA",160.16,10,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,10,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",109,2) BLANK "DATA",160.16,10,"FIELD",109,3) L,BLANK "DATA",160.16,10,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,10,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,10,"FIELD",110,2) BLANK "DATA",160.16,10,"FIELD",110,3) L,BLANK "DATA",160.16,10,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,10,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,10,"FIELD",111,2) BLANK "DATA",160.16,10,"FIELD",111,3) L,BLANK "DATA",160.16,10,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,10,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,10,"FIELD",112,2) BLANK "DATA",160.16,10,"FIELD",112,3) L,BLANK "DATA",160.16,10,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,10,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,10,"FIELD",113,2) BLANK "DATA",160.16,10,"FIELD",113,3) L,BLANK "DATA",160.16,10,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,10,"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,10,"FIELD",114,2) BLANK "DATA",160.16,10,"FIELD",114,3) L,BLANK "DATA",160.16,10,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,10,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,10,"FIELD",115,2) BLANK "DATA",160.16,10,"FIELD",115,3) L,BLANK "DATA",160.16,10,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,10,"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,10,"FIELD",116,2) BLANK "DATA",160.16,10,"FIELD",116,3) L,BLANK "DATA",160.16,10,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,10,"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,10,"FIELD",117,2) BLANK "DATA",160.16,10,"FIELD",117,3) L,BLANK "DATA",160.16,10,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,10,"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,10,"FIELD",118,2) BLANK "DATA",160.16,10,"FIELD",118,3) L,BLANK "DATA",160.16,10,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,10,"FIELD",119,1) S ACDANS="" "DATA",160.16,10,"FIELD",119,2) BLANK "DATA",160.16,10,"FIELD",119,3) L,BLANK "DATA",160.16,10,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,10,"FIELD",120,1) S ACDANS="" "DATA",160.16,10,"FIELD",120,2) BLANK "DATA",160.16,10,"FIELD",120,3) L,BLANK "DATA",160.16,10,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,10,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",121,2) NINE "DATA",160.16,10,"FIELD",121,3) L,BLANK "DATA",160.16,10,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,10,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,10,"FIELD",122,2) NINE "DATA",160.16,10,"FIELD",122,3) L,BLANK "DATA",160.16,10,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,10,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,10,"FIELD",123,2) NINE "DATA",160.16,10,"FIELD",123,3) L,BLANK "DATA",160.16,10,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,10,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,10,"FIELD",124,2) NINE "DATA",160.16,10,"FIELD",124,3) L,BLANK "DATA",160.16,10,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,10,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,10,"FIELD",125,2) NINE "DATA",160.16,10,"FIELD",125,3) L,BLANK "DATA",160.16,10,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,10,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,10,"FIELD",126,2) NINE "DATA",160.16,10,"FIELD",126,3) L,BLANK "DATA",160.16,10,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,10,"FIELD",127,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,10,"FIELD",127,2) ZERO "DATA",160.16,10,"FIELD",127,3) L,ZERO "DATA",160.16,10,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,10,"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,10,"FIELD",128,2) ZERO "DATA",160.16,10,"FIELD",128,3) L,ZERO "DATA",160.16,10,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",129,2) ZERO "DATA",160.16,10,"FIELD",129,3) L,ZERO "DATA",160.16,10,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,10,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,10,"FIELD",130,2) ZERO "DATA",160.16,10,"FIELD",130,3) L,ZERO "DATA",160.16,10,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,10,"FIELD",131,1) S ACDANS="" "DATA",160.16,10,"FIELD",131,2) BLANK "DATA",160.16,10,"FIELD",131,3) L,BLANK "DATA",160.16,10,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approach "DATA",160.16,10,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,10,"FIELD",132,2) BLANK "DATA",160.16,10,"FIELD",132,3) L,BLANK "DATA",160.16,10,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,10,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,10,"FIELD",133,2) BLANK "DATA",160.16,10,"FIELD",133,3) L,BLANK "DATA",160.16,10,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,10,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,10,"FIELD",134,2) BLANK "DATA",160.16,10,"FIELD",134,3) L,BLANK "DATA",160.16,10,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,10,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,10,"FIELD",135,2) BLANK "DATA",160.16,10,"FIELD",135,3) L,BLANK "DATA",160.16,10,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,10,"FIELD",136,2) BLANK "DATA",160.16,10,"FIELD",136,3) L,ZERO "DATA",160.16,10,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,10,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,10,"FIELD",137,2) NINE "DATA",160.16,10,"FIELD",137,3) L,ZERO "DATA",160.16,10,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,10,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,10,"FIELD",138,2) NINE "DATA",160.16,10,"FIELD",138,3) L,ZERO "DATA",160.16,10,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,10,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,10,"FIELD",139,2) NINE "DATA",160.16,10,"FIELD",139,3) L,ZERO "DATA",160.16,10,"FIELD",140,0) 628^1^628^RX Summ--Chemo "DATA",160.16,10,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,10,"FIELD",140,2) NINE "DATA",160.16,10,"FIELD",140,3) L,ZERO "DATA",160.16,10,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,10,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,10,"FIELD",141,2) NINE "DATA",160.16,10,"FIELD",141,3) L,ZERO "DATA",160.16,10,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,10,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,10,"FIELD",142,2) NINE "DATA",160.16,10,"FIELD",142,3) L,ZERO "DATA",160.16,10,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,10,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,10,"FIELD",143,2) NINE "DATA",160.16,10,"FIELD",143,3) L,ZERO "DATA",160.16,10,"FIELD",144,0) 632^1^632^Reason for No Radiation "DATA",160.16,10,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,10,"FIELD",144,2) BLANK "DATA",160.16,10,"FIELD",144,3) L,BLANK "DATA",160.16,10,"FIELD",145,0) 633^1^633^Reason for No Chemo "DATA",160.16,10,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,10,"FIELD",145,2) BLANK "DATA",160.16,10,"FIELD",145,3) L,BLANK "DATA",160.16,10,"FIELD",146,0) 634^1^634^Reason for No Hormone "DATA",160.16,10,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,10,"FIELD",146,2) BLANK "DATA",160.16,10,"FIELD",146,3) L,BLANK "DATA",160.16,10,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,10,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",147,2) ZERO "DATA",160.16,10,"FIELD",147,3) L,ZERO "DATA",160.16,10,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,10,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,10,"FIELD",148,2) BLANK "DATA",160.16,10,"FIELD",148,3) L,BLANK "DATA",160.16,10,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,10,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,10,"FIELD",149,2) BLANK "DATA",160.16,10,"FIELD",149,3) L,BLANK "DATA",160.16,10,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,10,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,10,"FIELD",150,2) BLANK "DATA",160.16,10,"FIELD",150,3) L,BLANK "DATA",160.16,10,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,10,"FIELD",151,1) S ACDANS=1 "DATA",160.16,10,"FIELD",151,2) BLANK "DATA",160.16,10,"FIELD",151,3) L,BLANK "DATA",160.16,10,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,10,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,10,"FIELD",152,2) NINE "DATA",160.16,10,"FIELD",152,3) L,ZERO "DATA",160.16,10,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,10,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,10,"FIELD",153,2) NINE "DATA",160.16,10,"FIELD",153,3) L,ZERO "DATA",160.16,10,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,10,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,10,"FIELD",154,2) NINE "DATA",160.16,10,"FIELD",154,3) L,ZERO "DATA",160.16,10,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,10,"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,10,"FIELD",155,2) NINE "DATA",160.16,10,"FIELD",155,3) L,ZERO "DATA",160.16,10,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,10,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,10,"FIELD",156,2) NINE "DATA",160.16,10,"FIELD",156,3) L,ZERO "DATA",160.16,10,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,10,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,10,"FIELD",157,2) NINE "DATA",160.16,10,"FIELD",157,3) L,ZERO "DATA",160.16,10,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,10,"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,10,"FIELD",158,2) NINE "DATA",160.16,10,"FIELD",158,3) L,ZERO "DATA",160.16,10,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,10,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",159,2) NINE "DATA",160.16,10,"FIELD",159,3) L,ZERO "DATA",160.16,10,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,10,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,10,"FIELD",160,2) NINE "DATA",160.16,10,"FIELD",160,3) L,ZERO "DATA",160.16,10,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,10,"FIELD",161,1) S ACDANS="" "DATA",160.16,10,"FIELD",161,2) BLANK "DATA",160.16,10,"FIELD",161,3) L,BLANK "DATA",160.16,10,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,10,"FIELD",162,1) S ACDANS="" "DATA",160.16,10,"FIELD",162,2) BLANK "DATA",160.16,10,"FIELD",162,3) L,BLANK "DATA",160.16,10,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,10,"FIELD",163,1) S ACDANS="" "DATA",160.16,10,"FIELD",163,2) BLANK "DATA",160.16,10,"FIELD",163,3) L,BLANK "DATA",160.16,10,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,10,"FIELD",164,1) S ACDANS="" "DATA",160.16,10,"FIELD",164,2) BLANK "DATA",160.16,10,"FIELD",164,3) L,BLANK "DATA",160.16,10,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,10,"FIELD",165,1) S ACDANS="" "DATA",160.16,10,"FIELD",165,2) BLANK "DATA",160.16,10,"FIELD",165,3) L,BLANK "DATA",160.16,10,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,10,"FIELD",166,1) S ACDANS="" "DATA",160.16,10,"FIELD",166,2) BLANK "DATA",160.16,10,"FIELD",166,3) L,BLANK "DATA",160.16,10,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,10,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",167,2) 00000000 "DATA",160.16,10,"FIELD",167,3) L,BLANK "DATA",160.16,10,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,10,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,10,"FIELD",168,2) BLANK "DATA",160.16,10,"FIELD",168,3) L,ZERO "DATA",160.16,10,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,10,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,10,"FIELD",169,2) BLANK "DATA",160.16,10,"FIELD",169,3) L,BLANK "DATA",160.16,10,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,10,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,10,"FIELD",170,2) BLANK "DATA",160.16,10,"FIELD",170,3) L,BLANK "DATA",160.16,10,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,10,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,10,"FIELD",171,2) BLANK "DATA",160.16,10,"FIELD",171,3) L,BLANK "DATA",160.16,10,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,10,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,10,"FIELD",172,2) BLANK "DATA",160.16,10,"FIELD",172,3) L,BLANK "DATA",160.16,10,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,10,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,10,"FIELD",173,2) BLANK "DATA",160.16,10,"FIELD",173,3) L,BLANK "DATA",160.16,10,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,10,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",174,2) 00000000 "DATA",160.16,10,"FIELD",174,3) L,BLANK "DATA",160.16,10,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,10,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,10,"FIELD",175,2) BLANK "DATA",160.16,10,"FIELD",175,3) L,ZERO "DATA",160.16,10,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,10,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,10,"FIELD",176,2) BLANK "DATA",160.16,10,"FIELD",176,3) L,BLANK "DATA",160.16,10,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,10,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,10,"FIELD",177,2) BLANK "DATA",160.16,10,"FIELD",177,3) L,BLANK "DATA",160.16,10,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,10,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,10,"FIELD",178,2) BLANK "DATA",160.16,10,"FIELD",178,3) L,BLANK "DATA",160.16,10,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,10,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,10,"FIELD",179,2) BLANK "DATA",160.16,10,"FIELD",179,3) L,BLANK "DATA",160.16,10,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,10,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,10,"FIELD",180,2) BLANK "DATA",160.16,10,"FIELD",180,3) L,BLANK "DATA",160.16,10,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,10,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",181,2) 00000000 "DATA",160.16,10,"FIELD",181,3) L,BLANK "DATA",160.16,10,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,10,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,10,"FIELD",182,2) BLANK "DATA",160.16,10,"FIELD",182,3) L,ZERO "DATA",160.16,10,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,10,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,10,"FIELD",183,2) BLANK "DATA",160.16,10,"FIELD",183,3) L,BLANK "DATA",160.16,10,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,10,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,10,"FIELD",184,2) BLANK "DATA",160.16,10,"FIELD",184,3) L,BLANK "DATA",160.16,10,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,10,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,10,"FIELD",185,2) BLANK "DATA",160.16,10,"FIELD",185,3) L,BLANK "DATA",160.16,10,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,10,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,10,"FIELD",186,2) BLANK "DATA",160.16,10,"FIELD",186,3) L,BLANK "DATA",160.16,10,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,10,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,10,"FIELD",187,2) BLANK "DATA",160.16,10,"FIELD",187,3) L,BLANK "DATA",160.16,10,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,10,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",188,2) 00000000 "DATA",160.16,10,"FIELD",188,3) L,BLANK "DATA",160.16,10,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,10,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,10,"FIELD",189,2) BLANK "DATA",160.16,10,"FIELD",189,3) L,ZERO "DATA",160.16,10,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,10,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,10,"FIELD",190,2) BLANK "DATA",160.16,10,"FIELD",190,3) L,BLANK "DATA",160.16,10,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,10,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,10,"FIELD",191,2) BLANK "DATA",160.16,10,"FIELD",191,3) L,BLANK "DATA",160.16,10,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,10,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,10,"FIELD",192,2) BLANK "DATA",160.16,10,"FIELD",192,3) L,BLANK "DATA",160.16,10,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,10,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,10,"FIELD",193,2) BLANK "DATA",160.16,10,"FIELD",193,3) L,BLANK "DATA",160.16,10,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,10,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,10,"FIELD",194,2) BLANK "DATA",160.16,10,"FIELD",194,3) L,BLANK "DATA",160.16,10,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,10,"FIELD",195,1) S ACDANS="" "DATA",160.16,10,"FIELD",195,2) BLANK "DATA",160.16,10,"FIELD",195,3) L,BLANK "DATA",160.16,10,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,10,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",196,2) NINE "DATA",160.16,10,"FIELD",196,3) L,BLANK "DATA",160.16,10,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,10,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,10,"FIELD",197,2) BLANK "DATA",160.16,10,"FIELD",197,3) L,BLANK "DATA",160.16,10,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,10,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",198,2) NINE "DATA",160.16,10,"FIELD",198,3) L,BLANK "DATA",160.16,10,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,10,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,10,"FIELD",199,2) BLANK "DATA",160.16,10,"FIELD",199,3) L,BLANK "DATA",160.16,10,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,10,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,10,"FIELD",200,2) BLANK "DATA",160.16,10,"FIELD",200,3) L,BLANK "DATA",160.16,10,"FIELD",201,0) 803^1^803^Next Follow-Up Source "DATA",160.16,10,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,10,"FIELD",201,2) BLANK "DATA",160.16,10,"FIELD",201,3) L,BLANK "DATA",160.16,10,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,10,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",202,2) BLANK "DATA",160.16,10,"FIELD",202,3) R,BLANK "DATA",160.16,10,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,10,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",203,2) BLANK "DATA",160.16,10,"FIELD",203,3) R,BLANK "DATA",160.16,10,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,10,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",204,2) BLANK "DATA",160.16,10,"FIELD",204,3) R,BLANK "DATA",160.16,10,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,10,"FIELD",205,1) S ACDANS="" "DATA",160.16,10,"FIELD",205,2) BLANK "DATA",160.16,10,"FIELD",205,3) L,BLANK "DATA",160.16,10,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,10,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,10,"FIELD",206,2) BLANK "DATA",160.16,10,"FIELD",206,3) L,BLANK "DATA",160.16,10,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,10,"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,10,"FIELD",207,2) NINE "DATA",160.16,10,"FIELD",207,3) L,NINE "DATA",160.16,10,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,10,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,10,"FIELD",208,2) BLANK "DATA",160.16,10,"FIELD",208,3) L,BLANK "DATA",160.16,10,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,10,"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,10,"FIELD",209,2) NINE "DATA",160.16,10,"FIELD",209,3) L,ZERO "DATA",160.16,10,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,10,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,10,"FIELD",210,2) NINE "DATA",160.16,10,"FIELD",210,3) L,ZERO "DATA",160.16,10,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,10,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",211,2) BLANK "DATA",160.16,10,"FIELD",211,3) L,BLANK "DATA",160.16,10,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,10,"FIELD",212,1) S ACDANS="" "DATA",160.16,10,"FIELD",212,2) BLANK "DATA",160.16,10,"FIELD",212,3) L,BLANK "DATA",160.16,10,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,10,"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,10,"FIELD",213,2) BLANK "DATA",160.16,10,"FIELD",213,3) L,ZERO "DATA",160.16,10,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,10,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,10,"FIELD",214,2) BLANK "DATA",160.16,10,"FIELD",214,3) L,ZERO "DATA",160.16,10,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,10,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,10,"FIELD",215,2) BLANK "DATA",160.16,10,"FIELD",215,3) L,BLANK "DATA",160.16,10,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,10,"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,10,"FIELD",216,2) BLANK "DATA",160.16,10,"FIELD",216,3) L,BLANK "DATA",160.16,10,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,10,"FIELD",217,1) S ACDANS="" "DATA",160.16,10,"FIELD",217,2) BLANK "DATA",160.16,10,"FIELD",217,3) L,BLANK "DATA",160.16,10,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,10,"FIELD",218,1) S ACDANS="" "DATA",160.16,10,"FIELD",218,2) BLANK "DATA",160.16,10,"FIELD",218,3) L,BLANK "DATA",160.16,10,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,10,"FIELD",219,1) S ACDANS="" "DATA",160.16,10,"FIELD",219,2) BLANK "DATA",160.16,10,"FIELD",219,3) L,BLANK "DATA",160.16,10,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,10,"FIELD",220,1) S ACDANS=4 "DATA",160.16,10,"FIELD",220,2) BLANK "DATA",160.16,10,"FIELD",220,3) L,BLANK "DATA",160.16,10,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,10,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,10,"FIELD",221,2) BLANK "DATA",160.16,10,"FIELD",221,3) L,BLANK "DATA",160.16,10,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,10,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,10,"FIELD",222,2) BLANK "DATA",160.16,10,"FIELD",222,3) L,BLANK "DATA",160.16,10,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,10,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,10,"FIELD",223,2) BLANK "DATA",160.16,10,"FIELD",223,3) L,BLANK "DATA",160.16,10,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,10,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,10,"FIELD",224,2) BLANK "DATA",160.16,10,"FIELD",224,3) L,BLANK "DATA",160.16,10,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,10,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,10,"FIELD",225,2) BLANK "DATA",160.16,10,"FIELD",225,3) L,BLANK "DATA",160.16,10,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,10,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,10,"FIELD",226,2) BLANK "DATA",160.16,10,"FIELD",226,3) L,BLANK "DATA",160.16,10,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,10,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,10,"FIELD",227,2) BLANK "DATA",160.16,10,"FIELD",227,3) L,BLANK "DATA",160.16,10,"FIELD",228,0) 920^1^920^Over-ride Ill-Define Site "DATA",160.16,10,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,10,"FIELD",228,2) BLANK "DATA",160.16,10,"FIELD",228,3) L,BLANK "DATA",160.16,10,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,10,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,10,"FIELD",229,2) BLANK "DATA",160.16,10,"FIELD",229,3) L,BLANK "DATA",160.16,10,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,10,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",231,2) BLANK "DATA",160.16,10,"FIELD",231,3) L,BLANK "DATA",160.16,10,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,10,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,10,"FIELD",232,2) BLANK "DATA",160.16,10,"FIELD",232,3) L,BLANK "DATA",160.16,10,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,10,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,10,"FIELD",233,2) BLANK "DATA",160.16,10,"FIELD",233,3) L,ZERO "DATA",160.16,10,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,10,"FIELD",234,1) S ACDANS=5 "DATA",160.16,10,"FIELD",234,2) BLANK "DATA",160.16,10,"FIELD",234,3) L,BLANK "DATA",160.16,10,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,10,"FIELD",235,1) S ACDANS=5 "DATA",160.16,10,"FIELD",235,2) BLANK "DATA",160.16,10,"FIELD",235,3) L,BLANK "DATA",160.16,10,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,10,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",236,2) BLANK "DATA",160.16,10,"FIELD",236,3) L,BLANK "DATA",160.16,10,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,10,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",237,2) BLANK "DATA",160.16,10,"FIELD",237,3) L,BLANK "DATA",160.16,10,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,10,"FIELD",238,1) S ACDANS="" "DATA",160.16,10,"FIELD",238,2) BLANK "DATA",160.16,10,"FIELD",238,3) L,BLANK "DATA",160.16,10,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,10,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,10,"FIELD",239,2) BLANK "DATA",160.16,10,"FIELD",239,3) R,BLANK "DATA",160.16,10,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,10,"FIELD",240,1) S ACDANS="" "DATA",160.16,10,"FIELD",240,2) BLANK "DATA",160.16,10,"FIELD",240,3) L,BLANK "DATA",160.16,10,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,10,"FIELD",241,1) S ACDANS="" "DATA",160.16,10,"FIELD",241,2) BLANK "DATA",160.16,10,"FIELD",241,3) L,BLANK "DATA",160.16,10,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,10,"FIELD",242,1) S ACDANS="" "DATA",160.16,10,"FIELD",242,2) BLANK "DATA",160.16,10,"FIELD",242,3) L,BLANK "DATA",160.16,10,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,10,"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,10,"FIELD",243,2) BLANK "DATA",160.16,10,"FIELD",243,3) L,BLANK "DATA",160.16,10,"FIELD",284,0) 1785^25^1809^Follow-Up Contact--No&St "DATA",160.16,10,"FIELD",284,1) S ACDANS="" "DATA",160.16,10,"FIELD",284,2) BLANK "DATA",160.16,10,"FIELD",284,3) L,BLANK "DATA",160.16,10,"FIELD",285,0) 942^10^951^CRC CHECKSUM "DATA",160.16,10,"FIELD",285,1) S ACDANS="" "DATA",160.16,10,"FIELD",285,2) BLANK "DATA",160.16,10,"FIELD",285,3) L,BLANK "DATA",160.16,10,"FIELD",286,0) 12^7^18^Reserved for Expansion "DATA",160.16,10,"FIELD",286,1) S ACDANS="" "DATA",160.16,10,"FIELD",286,2) BLANK "DATA",160.16,10,"FIELD",286,3) L,BLANK "DATA",160.16,10,"FIELD",287,0) 204^2^205^Race 2 "DATA",160.16,10,"FIELD",287,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,10,"FIELD",287,2) BLANK "DATA",160.16,10,"FIELD",287,3) L,ZERO "DATA",160.16,10,"FIELD",288,0) 271^15^285^Reporting Hospital "DATA",160.16,10,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",288,2) ZERO "DATA",160.16,10,"FIELD",288,3) L,ZERO "DATA",160.16,10,"FIELD",289,0) 1712^15^1726^Institution Referred To "DATA",160.16,10,"FIELD",289,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,10,"FIELD",289,2) ZERO "DATA",160.16,10,"FIELD",289,3) L,ZERO "DATA",160.16,10,"FIELD",290,0) 1828^15^1842^Following Registry "DATA",160.16,10,"FIELD",290,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",290,2) ZERO "DATA",160.16,10,"FIELD",290,3) L,ZERO "DATA",160.16,10,"FIELD",291,0) 1843^4^1846^Reserved for Expansion "DATA",160.16,10,"FIELD",291,1) S ACDANS="" "DATA",160.16,10,"FIELD",291,2) BLANK "DATA",160.16,10,"FIELD",291,3) L,BLANK "DATA",160.16,10,"FIELD",292,0) 206^2^207^Race 3 "DATA",160.16,10,"FIELD",292,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,10,"FIELD",292,2) BLANK "DATA",160.16,10,"FIELD",292,3) L,ZERO "DATA",160.16,10,"FIELD",293,0) 208^2^209^Race 4 "DATA",160.16,10,"FIELD",293,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,10,"FIELD",293,2) BLANK "DATA",160.16,10,"FIELD",293,3) L,ZERO "DATA",160.16,10,"FIELD",294,0) 210^2^211^Race 5 "DATA",160.16,10,"FIELD",294,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,10,"FIELD",294,2) BLANK "DATA",160.16,10,"FIELD",294,3) L,ZERO "DATA",160.16,10,"FIELD",295,0) 212^5^216^Reserved for Expansion "DATA",160.16,10,"FIELD",295,1) S ACDANS="" "DATA",160.16,10,"FIELD",295,2) BLANK "DATA",160.16,10,"FIELD",295,3) L,BLANK "DATA",160.16,10,"FIELD",296,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,10,"FIELD",296,1) S ACDANS="" "DATA",160.16,10,"FIELD",296,2) ZERO "DATA",160.16,10,"FIELD",296,3) L,ZERO "DATA",160.16,10,"FIELD",298,0) 258^3^260^Reserved for Expansion "DATA",160.16,10,"FIELD",298,1) S ACDANS="" "DATA",160.16,10,"FIELD",298,2) BLANK "DATA",160.16,10,"FIELD",298,3) L,BLANK "DATA",160.16,10,"FIELD",299,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,10,"FIELD",299,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,10,"FIELD",299,2) BLANK "DATA",160.16,10,"FIELD",299,3) L,ZERO "DATA",160.16,10,"FIELD",300,0) 782^1^782^Over-ride SS/NodesPos "DATA",160.16,10,"FIELD",300,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,10,"FIELD",300,2) BLANK "DATA",160.16,10,"FIELD",300,3) L,BLANK "DATA",160.16,10,"FIELD",301,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,10,"FIELD",301,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,10,"FIELD",301,2) BLANK "DATA",160.16,10,"FIELD",301,3) L,BLANK "DATA",160.16,10,"FIELD",302,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,10,"FIELD",302,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,10,"FIELD",302,2) BLANK "DATA",160.16,10,"FIELD",302,3) L,BLANK "DATA",160.16,10,"FIELD",303,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,10,"FIELD",303,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,10,"FIELD",303,2) BLANK "DATA",160.16,10,"FIELD",303,3) L,BLANK "DATA",160.16,10,"FIELD",304,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,10,"FIELD",304,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,10,"FIELD",304,2) BLANK "DATA",160.16,10,"FIELD",304,3) L,BLANK "DATA",160.16,10,"FIELD",305,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,10,"FIELD",305,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,10,"FIELD",305,2) BLANK "DATA",160.16,10,"FIELD",305,3) L,BLANK "DATA",160.16,10,"FIELD",306,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,10,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,10,"FIELD",306,2) BLANK "DATA",160.16,10,"FIELD",306,3) L,BLANK "DATA",160.16,10,"FIELD",307,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,10,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,10,"FIELD",307,2) BLANK "DATA",160.16,10,"FIELD",307,3) L,BLANK "DATA",160.16,10,"FIELD",308,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,10,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,10,"FIELD",308,2) BLANK "DATA",160.16,10,"FIELD",308,3) L,BLANK "DATA",160.16,10,"FIELD",309,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,10,"FIELD",309,1) S ACDANS="" "DATA",160.16,10,"FIELD",309,2) BLANK "DATA",160.16,10,"FIELD",309,3) L,BLANK "DATA",160.16,10,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,10,"FIELD",339,1) S ACDANS="" "DATA",160.16,10,"FIELD",339,2) BLANK "DATA",160.16,10,"FIELD",339,3) L,BLANK "DATA",160.16,10,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,10,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.1,"I") "DATA",160.16,10,"FIELD",340,2) BLANK "DATA",160.16,10,"FIELD",340,3) L,ZERO "DATA",160.16,10,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,10,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,10,"FIELD",341,2) BLANK "DATA",160.16,10,"FIELD",341,3) L,BLANK "DATA",160.16,10,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,10,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,10,"FIELD",342,2) BLANK "DATA",160.16,10,"FIELD",342,3) L,ZERO "DATA",160.16,10,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,10,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,10,"FIELD",343,2) BLANK "DATA",160.16,10,"FIELD",343,3) L,BLANK "DATA",160.16,10,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,10,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,10,"FIELD",344,2) BLANK "DATA",160.16,10,"FIELD",344,3) L,BLANK "DATA",160.16,10,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,10,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,10,"FIELD",345,2) BLANK "DATA",160.16,10,"FIELD",345,3) L,BLANK "DATA",160.16,10,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,10,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,10,"FIELD",346,2) BLANK "DATA",160.16,10,"FIELD",346,3) L,BLANK "DATA",160.16,10,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,10,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,10,"FIELD",347,2) NINE "DATA",160.16,10,"FIELD",347,3) L,ZERO "DATA",160.16,10,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,10,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,10,"FIELD",348,2) NINE "DATA",160.16,10,"FIELD",348,3) L,NINE "DATA",160.16,10,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,10,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,10,"FIELD",349,2) NINE "DATA",160.16,10,"FIELD",349,3) L,ZERO "DATA",160.16,10,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,10,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,10,"FIELD",350,2) BLANK "DATA",160.16,10,"FIELD",350,3) L,BLANK "DATA",160.16,10,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,10,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,10,"FIELD",351,2) BLANK "DATA",160.16,10,"FIELD",351,3) L,BLANK "DATA",160.16,10,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,10,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,10,"FIELD",352,2) BLANK "DATA",160.16,10,"FIELD",352,3) L,BLANK "DATA",160.16,10,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,10,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,10,"FIELD",353,2) BLANK "DATA",160.16,10,"FIELD",353,3) L,BLANK "DATA",160.16,10,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope Ln Su "DATA",160.16,10,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,10,"FIELD",354,2) BLANK "DATA",160.16,10,"FIELD",354,3) L,BLANK "DATA",160.16,10,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,10,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,10,"FIELD",355,2) BLANK "DATA",160.16,10,"FIELD",355,3) L,BLANK "DATA",160.16,10,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,10,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,10,"FIELD",356,2) BLANK "DATA",160.16,10,"FIELD",356,3) L,BLANK "DATA",160.16,10,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,10,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,10,"FIELD",357,2) BLANK "DATA",160.16,10,"FIELD",357,3) L,BLANK "DATA",160.16,10,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,10,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,10,"FIELD",358,2) BLANK "DATA",160.16,10,"FIELD",358,3) L,BLANK "DATA",160.16,10,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,10,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,10,"FIELD",359,2) BLANK "DATA",160.16,10,"FIELD",359,3) L,BLANK "DATA",160.16,10,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,10,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,10,"FIELD",360,2) BLANK "DATA",160.16,10,"FIELD",360,3) L,BLANK "DATA",160.16,10,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,10,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,10,"FIELD",361,2) BLANK "DATA",160.16,10,"FIELD",361,3) L,BLANK "DATA",160.16,10,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,10,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,10,"FIELD",362,2) BLANK "DATA",160.16,10,"FIELD",362,3) L,BLANK "DATA",160.16,10,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,10,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,10,"FIELD",363,2) BLANK "DATA",160.16,10,"FIELD",363,3) L,BLANK "DATA",160.16,10,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,10,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,10,"FIELD",364,2) BLANK "DATA",160.16,10,"FIELD",364,3) L,BLANK "DATA",160.16,10,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,10,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,10,"FIELD",365,2) BLANK "DATA",160.16,10,"FIELD",365,3) L,BLANK "DATA",160.16,10,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,10,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,10,"FIELD",366,2) NINE "DATA",160.16,10,"FIELD",366,3) L,NINE "DATA",160.16,10,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,10,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",367,2) BLANK "DATA",160.16,10,"FIELD",367,3) R,BLANK "DATA",160.16,10,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,10,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",368,2) BLANK "DATA",160.16,10,"FIELD",368,3) L,BLANK "DATA",160.16,10,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,10,"FIELD",369,1) S ACDANS="" "DATA",160.16,10,"FIELD",369,2) BLANK "DATA",160.16,10,"FIELD",369,3) L,BLANK "DATA",160.16,10,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,10,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,10,"FIELD",370,2) BLANK "DATA",160.16,10,"FIELD",370,3) L,BLANK "DATA",160.16,10,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,10,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,10,"FIELD",371,2) BLANK "DATA",160.16,10,"FIELD",371,3) L,BLANK "DATA",160.16,10,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,10,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,10,"FIELD",372,2) BLANK "DATA",160.16,10,"FIELD",372,3) L,BLANK "DATA",160.16,10,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,10,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,10,"FIELD",373,2) BLANK "DATA",160.16,10,"FIELD",373,3) L,BLANK "DATA",160.16,10,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,10,"FIELD",374,1) S ACDANS="" "DATA",160.16,10,"FIELD",374,2) BLANK "DATA",160.16,10,"FIELD",374,3) L,BLANK "DATA",160.16,10,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,10,"FIELD",375,1) S ACDANS="" "DATA",160.16,10,"FIELD",375,2) BLANK "DATA",160.16,10,"FIELD",375,3) L,BLANK "DATA",160.16,10,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,10,"FIELD",376,1) S ACDANS="" "DATA",160.16,10,"FIELD",376,2) BLANK "DATA",160.16,10,"FIELD",376,3) L,BLANK "DATA",160.16,10,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,10,"FIELD",377,1) S ACDANS="" "DATA",160.16,10,"FIELD",377,2) BLANK "DATA",160.16,10,"FIELD",377,3) L,BLANK "DATA",160.16,10,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,10,"FIELD",378,1) S ACDANS="" "DATA",160.16,10,"FIELD",378,2) BLANK "DATA",160.16,10,"FIELD",378,3) L,BLANK "DATA",160.16,10,"FIELD",379,0) 1026^500^1525^State/Requestor Items "DATA",160.16,10,"FIELD",379,1) S ACDANS="" "DATA",160.16,10,"FIELD",379,2) BLANK "DATA",160.16,10,"FIELD",379,3) L,BLANK "DATA",160.16,10,"FIELD",381,0) 1526^25^1550^Name--Last "DATA",160.16,10,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,10,"FIELD",381,2) BLANK "DATA",160.16,10,"FIELD",381,3) R,BLANK "DATA",160.16,10,"FIELD",382,0) 1551^14^1564^Name--First "DATA",160.16,10,"FIELD",382,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,10,"FIELD",382,2) BLANK "DATA",160.16,10,"FIELD",382,3) R,BLANK "DATA",160.16,10,"FIELD",383,0) 1565^14^1578^Name--Middle "DATA",160.16,10,"FIELD",383,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,10,"FIELD",383,2) BLANK "DATA",160.16,10,"FIELD",383,3) R,BLANK "DATA",160.16,10,"FIELD",384,0) 1579^3^1581^Name--Prefix "DATA",160.16,10,"FIELD",384,1) S ACDANS="" "DATA",160.16,10,"FIELD",384,2) BLANK "DATA",160.16,10,"FIELD",384,3) R,BLANK "DATA",160.16,10,"FIELD",385,0) 1582^3^1584^Name--Suffix "DATA",160.16,10,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,10,"FIELD",385,2) BLANK "DATA",160.16,10,"FIELD",385,3) R,BLANK "DATA",160.16,10,"FIELD",386,0) 1585^15^1599^Name--Alias "DATA",160.16,10,"FIELD",386,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",386,2) BLANK "DATA",160.16,10,"FIELD",386,3) R,BLANK "DATA",160.16,10,"FIELD",387,0) 1600^50^1649^Name--Spouse/Parent "DATA",160.16,10,"FIELD",387,1) S ACDANS="" "DATA",160.16,10,"FIELD",387,2) BLANK "DATA",160.16,10,"FIELD",387,3) R,BLANK "DATA",160.16,10,"FIELD",388,0) 1650^11^1660^Medical Record Number "DATA",160.16,10,"FIELD",388,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,10,"FIELD",388,2) BLANK "DATA",160.16,10,"FIELD",388,3) L,ZERO "DATA",160.16,10,"FIELD",389,0) 1661^2^1662^Military Record No Suffix "DATA",160.16,10,"FIELD",389,1) S ACDANS="" "DATA",160.16,10,"FIELD",389,2) BLANK "DATA",160.16,10,"FIELD",389,3) L,ZERO "DATA",160.16,10,"FIELD",390,0) 1663^9^1671^Social Security Number "DATA",160.16,10,"FIELD",390,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,10,"FIELD",390,2) NINE "DATA",160.16,10,"FIELD",390,3) L,BLANK "DATA",160.16,10,"FIELD",391,0) 1672^25^1696^Addr at DX--No & Street "DATA",160.16,10,"FIELD",391,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,10,"FIELD",391,2) BLANK "DATA",160.16,10,"FIELD",391,3) R,BLANK "DATA",160.16,10,"FIELD",392,0) 1697^15^1711^Institution Referred From "DATA",160.16,10,"FIELD",392,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,10,"FIELD",392,2) ZERO "DATA",160.16,10,"FIELD",392,3) L,ZERO "DATA",160.16,10,"FIELD",393,0) 1727^25^1751^Addr Current--No & Street "DATA",160.16,10,"FIELD",393,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,10,"FIELD",393,2) BLANK "DATA",160.16,10,"FIELD",393,3) R,BLANK "DATA",160.16,10,"FIELD",394,0) 1752^10^1761^Telephone "DATA",160.16,10,"FIELD",394,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,10,"FIELD",394,2) NINE "DATA",160.16,10,"FIELD",394,3) R,BLANK "DATA",160.16,10,"FIELD",395,0) 1762^2^1763^Reserved for Expansion "DATA",160.16,10,"FIELD",395,1) S ACDANS="" "DATA",160.16,10,"FIELD",395,2) BLANK "DATA",160.16,10,"FIELD",395,3) L,BLANK "DATA",160.16,10,"FIELD",396,0) 1764^6^1769^DC State File Number "DATA",160.16,10,"FIELD",396,1) S ACDANS="" "DATA",160.16,10,"FIELD",396,2) BLANK "DATA",160.16,10,"FIELD",396,3) L,BLANK "DATA",160.16,10,"FIELD",397,0) 1770^15^1784^Name--Maiden "DATA",160.16,10,"FIELD",397,1) S ACDANS="" "DATA",160.16,10,"FIELD",397,2) BLANK "DATA",160.16,10,"FIELD",397,3) R,BLANK "DATA",160.16,10,"FIELD",398,0) 1810^3^1812^Reserved for Expansion "DATA",160.16,10,"FIELD",398,1) S ACDANS="" "DATA",160.16,10,"FIELD",398,2) BLANK "DATA",160.16,10,"FIELD",398,3) L,BLANK "DATA",160.16,10,"FIELD",399,0) 1813^15^1827^Last Follow-Up Hospital "DATA",160.16,10,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",399,2) ZERO "DATA",160.16,10,"FIELD",399,3) L,ZERO "DATA",160.16,10,"FIELD",404,0) 1847^8^1854^Physician--Managing "DATA",160.16,10,"FIELD",404,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,10,"FIELD",404,2) NINE "DATA",160.16,10,"FIELD",404,3) R,BLANK "DATA",160.16,10,"FIELD",405,0) 1855^8^1862^Physician--Follow-up "DATA",160.16,10,"FIELD",405,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,10,"FIELD",405,2) NINE "DATA",160.16,10,"FIELD",405,3) R,BLANK "DATA",160.16,10,"FIELD",406,0) 1863^8^1870^Physician--Primary Surg "DATA",160.16,10,"FIELD",406,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,10,"FIELD",406,2) ZERO "DATA",160.16,10,"FIELD",406,3) R,BLANK "DATA",160.16,10,"FIELD",407,0) 1871^8^1878^Physician 3 "DATA",160.16,10,"FIELD",407,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,10,"FIELD",407,2) ZERO "DATA",160.16,10,"FIELD",407,3) R,BLANK "DATA",160.16,10,"FIELD",408,0) 1879^8^1886^Physician 4 "DATA",160.16,10,"FIELD",408,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,10,"FIELD",408,2) ZERO "DATA",160.16,10,"FIELD",408,3) R,BLANK "DATA",160.16,10,"FIELD",409,0) 1887^30^1916^Follow-Up Contact--Name "DATA",160.16,10,"FIELD",409,1) S ACDANS="" "DATA",160.16,10,"FIELD",409,2) BLANK "DATA",160.16,10,"FIELD",409,3) L,BLANK "DATA",160.16,10,"FIELD",410,0) 1917^200^2116^Text--Dx Proc--PE "DATA",160.16,10,"FIELD",410,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,10,"FIELD",410,2) BLANK "DATA",160.16,10,"FIELD",410,3) R,BLANK "DATA",160.16,10,"FIELD",411,0) 2117^250^2366^Text--Dx Proc--X-ray/scan "DATA",160.16,10,"FIELD",411,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,10,"FIELD",411,2) BLANK "DATA",160.16,10,"FIELD",411,3) R,BLANK "DATA",160.16,10,"FIELD",412,0) 2367^250^2616^Text--Dx Proc--Scopes "DATA",160.16,10,"FIELD",412,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,10,"FIELD",412,2) BLANK "DATA",160.16,10,"FIELD",412,3) R,BLANK "DATA",160.16,10,"FIELD",413,0) 2617^250^2866^Text--Dx Proc--Lab Tests "DATA",160.16,10,"FIELD",413,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,10,"FIELD",413,2) BLANK "DATA",160.16,10,"FIELD",413,3) R,BLANK "DATA",160.16,10,"FIELD",414,0) 2867^250^3116^Text--Dx Proc--Op "DATA",160.16,10,"FIELD",414,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,10,"FIELD",414,2) BLANK "DATA",160.16,10,"FIELD",414,3) R,BLANK "DATA",160.16,10,"FIELD",415,0) 3117^250^3366^Text--Dx Proc--Path "DATA",160.16,10,"FIELD",415,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,10,"FIELD",415,2) BLANK "DATA",160.16,10,"FIELD",415,3) R,BLANK "DATA",160.16,10,"FIELD",416,0) 3367^40^3406^Text--Primary Site Title "DATA",160.16,10,"FIELD",416,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,10,"FIELD",416,2) BLANK "DATA",160.16,10,"FIELD",416,3) R,BLANK "DATA",160.16,10,"FIELD",417,0) 3407^40^3446^Text--Histology Title "DATA",160.16,10,"FIELD",417,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,10,"FIELD",417,2) BLANK "DATA",160.16,10,"FIELD",417,3) R,BLANK "DATA",160.16,10,"FIELD",418,0) 3447^300^3746^Text--Staging "DATA",160.16,10,"FIELD",418,1) S ACDANS="" "DATA",160.16,10,"FIELD",418,2) BLANK "DATA",160.16,10,"FIELD",418,3) R,BLANK "DATA",160.16,10,"FIELD",419,0) 3747^150^3896^RX Text--Surgery "DATA",160.16,10,"FIELD",419,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,10,"FIELD",419,2) BLANK "DATA",160.16,10,"FIELD",419,3) R,BLANK "DATA",160.16,10,"FIELD",420,0) 3897^150^4046^RX Text--Radiation (Beam) "DATA",160.16,10,"FIELD",420,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,10,"FIELD",420,2) BLANK "DATA",160.16,10,"FIELD",420,3) R,BLANK "DATA",160.16,10,"FIELD",421,0) 4047^150^4196^RX Text--Radiation Other "DATA",160.16,10,"FIELD",421,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,10,"FIELD",421,2) BLANK "DATA",160.16,10,"FIELD",421,3) R,BLANK "DATA",160.16,10,"FIELD",422,0) 4197^200^4396^RX Text--Chemo "DATA",160.16,10,"FIELD",422,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,10,"FIELD",422,2) BLANK "DATA",160.16,10,"FIELD",422,3) R,BLANK "DATA",160.16,10,"FIELD",423,0) 4397^200^4596^RX Text--Hormone "DATA",160.16,10,"FIELD",423,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,10,"FIELD",423,2) BLANK "DATA",160.16,10,"FIELD",423,3) R,BLANK "DATA",160.16,10,"FIELD",424,0) 4597^100^4696^RX Text--BRM "DATA",160.16,10,"FIELD",424,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,10,"FIELD",424,2) BLANK "DATA",160.16,10,"FIELD",424,3) R,BLANK "DATA",160.16,10,"FIELD",425,0) 4697^100^4796^RX Text--Other "DATA",160.16,10,"FIELD",425,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,10,"FIELD",425,2) BLANK "DATA",160.16,10,"FIELD",425,3) R,BLANK "DATA",160.16,10,"FIELD",426,0) 4797^350^5146^Text--Remarks "DATA",160.16,10,"FIELD",426,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,10,"FIELD",426,2) BLANK "DATA",160.16,10,"FIELD",426,3) R,BLANK "DATA",160.16,10,"FIELD",427,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,10,"FIELD",427,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,10,"FIELD",427,2) BLANK "DATA",160.16,10,"FIELD",427,3) R,BLANK "DATA",160.16,10,"FIELD",428,0) 5197^770^5966^Reserved for Expansion "DATA",160.16,10,"FIELD",428,1) S ACDANS="" "DATA",160.16,10,"FIELD",428,2) BLANK "DATA",160.16,10,"FIELD",428,3) L,BLANK "DATA",160.16,10,"RULES",0) 4^160.162^6^6^3031118^^^^ "DATA",160.16,10,"RULES",1,0) S VALID=1 "DATA",160.16,10,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,10,"RULES",3,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,10,"RULES",4,0) I VALID S 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,10,"RULES",5,0) S JUMP=0 "DATA",160.16,10,"RULES",6,0) K SCREEN "DATA",160.16,11,0) VACCR EXTRACT V9.1 "DATA",160.16,11,"FIELD",0) ^160.161I^449^371 "DATA",160.16,11,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,11,"FIELD",1,1) S ACDANS="A" "DATA",160.16,11,"FIELD",1,2) BLANK "DATA",160.16,11,"FIELD",1,3) L,BLANK "DATA",160.16,11,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,11,"FIELD",2,1) S ACDANS="" "DATA",160.16,11,"FIELD",2,2) ZERO "DATA",160.16,11,"FIELD",2,3) L,ZERO "DATA",160.16,11,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,11,"FIELD",3,1) S ACDANS=3 "DATA",160.16,11,"FIELD",3,2) BLANK "DATA",160.16,11,"FIELD",3,3) L,BLANK "DATA",160.16,11,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,11,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,11,"FIELD",4,2) BLANK "DATA",160.16,11,"FIELD",4,3) L,BLANK "DATA",160.16,11,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,11,"FIELD",5,1) S ACDANS=9 "DATA",160.16,11,"FIELD",5,2) BLANK "DATA",160.16,11,"FIELD",5,3) L,BLANK "DATA",160.16,11,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,11,"FIELD",6,1) S ACDANS="" "DATA",160.16,11,"FIELD",6,2) BLANK "DATA",160.16,11,"FIELD",6,3) L,BLANK "DATA",160.16,11,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,11,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,11,"FIELD",7,2) BLANK "DATA",160.16,11,"FIELD",7,3) R,BLANK "DATA",160.16,11,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,11,"FIELD",8,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,11,"FIELD",8,2) BLANK "DATA",160.16,11,"FIELD",8,3) L,BLANK "DATA",160.16,11,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,11,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",9,2) BLANK "DATA",160.16,11,"FIELD",9,3) L,ZERO "DATA",160.16,11,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,11,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,11,"FIELD",10,2) BLANK "DATA",160.16,11,"FIELD",10,3) R,BLANK "DATA",160.16,11,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,11,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,11,"FIELD",11,2) BLANK "DATA",160.16,11,"FIELD",11,3) L,ZERO "DATA",160.16,11,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,11,"FIELD",12,1) S ACDANS="" "DATA",160.16,11,"FIELD",12,2) BLANK "DATA",160.16,11,"FIELD",12,3) L,BLANK "DATA",160.16,11,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,11,"FIELD",13,1) S ACDANS="" "DATA",160.16,11,"FIELD",13,2) BLANK "DATA",160.16,11,"FIELD",13,3) L,BLANK "DATA",160.16,11,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,11,"FIELD",14,1) S ACDANS="" "DATA",160.16,11,"FIELD",14,2) BLANK "DATA",160.16,11,"FIELD",14,3) L,BLANK "DATA",160.16,11,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,11,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,11,"FIELD",15,2) BLANK "DATA",160.16,11,"FIELD",15,3) L,BLANK "DATA",160.16,11,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,11,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,11,"FIELD",16,2) BLANK "DATA",160.16,11,"FIELD",16,3) L,ZERO "DATA",160.16,11,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,11,"FIELD",17,1) S ACDANS=6 "DATA",160.16,11,"FIELD",17,2) BLANK "DATA",160.16,11,"FIELD",17,3) L,BLANK "DATA",160.16,11,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,11,"FIELD",18,1) S ACDANS=6 "DATA",160.16,11,"FIELD",18,2) BLANK "DATA",160.16,11,"FIELD",18,3) L,BLANK "DATA",160.16,11,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,11,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,11,"FIELD",19,2) BLANK "DATA",160.16,11,"FIELD",19,3) L,BLANK "DATA",160.16,11,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,11,"FIELD",20,1) S ACDANS="" "DATA",160.16,11,"FIELD",20,2) BLANK "DATA",160.16,11,"FIELD",20,3) L,BLANK "DATA",160.16,11,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,11,"FIELD",21,1) S ACDANS="" "DATA",160.16,11,"FIELD",21,2) BLANK "DATA",160.16,11,"FIELD",21,3) L,BLANK "DATA",160.16,11,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,11,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,11,"FIELD",22,2) BLANK "DATA",160.16,11,"FIELD",22,3) L,BLANK "DATA",160.16,11,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,11,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",23,2) BLANK "DATA",160.16,11,"FIELD",23,3) L,ZERO "DATA",160.16,11,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,11,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,11,"FIELD",24,2) NINE "DATA",160.16,11,"FIELD",24,3) L,ZERO "DATA",160.16,11,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,11,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,11,"FIELD",25,2) NINE "DATA",160.16,11,"FIELD",25,3) L,ZERO "DATA",160.16,11,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,11,"FIELD",26,1) S ACDANS=99 "DATA",160.16,11,"FIELD",26,2) NINE "DATA",160.16,11,"FIELD",26,3) L,ZERO "DATA",160.16,11,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,11,"FIELD",27,1) S ACDANS="" "DATA",160.16,11,"FIELD",27,2) BLANK "DATA",160.16,11,"FIELD",27,3) L,BLANK "DATA",160.16,11,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,11,"FIELD",28,1) S ACDANS="" "DATA",160.16,11,"FIELD",28,2) BLANK "DATA",160.16,11,"FIELD",28,3) L,BLANK "DATA",160.16,11,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,11,"FIELD",29,1) S ACDANS="" "DATA",160.16,11,"FIELD",29,2) BLANK "DATA",160.16,11,"FIELD",29,3) L,BLANK "DATA",160.16,11,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,11,"FIELD",30,1) S ACDANS="" "DATA",160.16,11,"FIELD",30,2) BLANK "DATA",160.16,11,"FIELD",30,3) L,BLANK "DATA",160.16,11,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,11,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",31,2) BLANK "DATA",160.16,11,"FIELD",31,3) R,BLANK "DATA",160.16,11,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,11,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",32,2) BLANK "DATA",160.16,11,"FIELD",32,3) R,BLANK "DATA",160.16,11,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,11,"FIELD",33,1) S ACDANS="" "DATA",160.16,11,"FIELD",33,2) BLANK "DATA",160.16,11,"FIELD",33,3) L,BLANK "DATA",160.16,11,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,11,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",34,2) BLANK "DATA",160.16,11,"FIELD",34,3) L,BLANK "DATA",160.16,11,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,11,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",35,2) BLANK "DATA",160.16,11,"FIELD",35,3) L,BLANK "DATA",160.16,11,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,11,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,11,"FIELD",36,2) BLANK "DATA",160.16,11,"FIELD",36,3) L,BLANK "DATA",160.16,11,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,11,"FIELD",37,1) S ACDANS="" "DATA",160.16,11,"FIELD",37,2) BLANK "DATA",160.16,11,"FIELD",37,3) L,BLANK "DATA",160.16,11,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,11,"FIELD",38,1) S ACDANS=STAT1 "DATA",160.16,11,"FIELD",38,2) ZERO "DATA",160.16,11,"FIELD",38,3) L,ZERO "DATA",160.16,11,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,11,"FIELD",39,1) S ACDANS="" "DATA",160.16,11,"FIELD",39,2) BLANK "DATA",160.16,11,"FIELD",39,3) L,BLANK "DATA",160.16,11,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,11,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",40,2) ZERO "DATA",160.16,11,"FIELD",40,3) L,ZERO "DATA",160.16,11,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,11,"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,11,"FIELD",41,2) ZERO "DATA",160.16,11,"FIELD",41,3) L,ZERO^ "DATA",160.16,11,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,11,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,11,"FIELD",42,2) BLANK "DATA",160.16,11,"FIELD",42,3) L,BLANK "DATA",160.16,11,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,11,"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,11,"FIELD",43,2) BLANK "DATA",160.16,11,"FIELD",43,3) L,ZERO "DATA",160.16,11,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,11,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,11,"FIELD",45,2) ZERO "DATA",160.16,11,"FIELD",45,3) L,ZERO "DATA",160.16,11,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,11,"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,11,"FIELD",46,2) ZERO "DATA",160.16,11,"FIELD",46,3) L,ZERO "DATA",160.16,11,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,11,"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,11,"FIELD",47,2) ZERO "DATA",160.16,11,"FIELD",47,3) L,ZERO "DATA",160.16,11,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,11,"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,11,"FIELD",48,2) ZERO "DATA",160.16,11,"FIELD",48,3) L,ZERO "DATA",160.16,11,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,11,"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,11,"FIELD",49,2) ZERO "DATA",160.16,11,"FIELD",49,3) L,ZERO "DATA",160.16,11,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,11,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,11,"FIELD",50,2) NINE "DATA",160.16,11,"FIELD",50,3) L,ZERO "DATA",160.16,11,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,11,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,11,"FIELD",51,2) BLANK "DATA",160.16,11,"FIELD",51,3) L,BLANK "DATA",160.16,11,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,11,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",52,2) BLANK "DATA",160.16,11,"FIELD",52,3) L,BLANK "DATA",160.16,11,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,11,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,11,"FIELD",53,2) BLANK "DATA",160.16,11,"FIELD",53,3) L,BLANK "DATA",160.16,11,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,11,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,11,"FIELD",54,2) BLANK "DATA",160.16,11,"FIELD",54,3) L,ZERO "DATA",160.16,11,"FIELD",56,0) 286^9^294^Accession Number--Hosp "DATA",160.16,11,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,11,"FIELD",56,2) ZERO "DATA",160.16,11,"FIELD",56,3) L,ZERO "DATA",160.16,11,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,11,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,11,"FIELD",57,2) ZERO "DATA",160.16,11,"FIELD",57,3) L,ZERO "DATA",160.16,11,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,11,"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,11,"FIELD",58,2) BLANK "DATA",160.16,11,"FIELD",58,3) R,BLANK "DATA",160.16,11,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,11,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",59,2) ZERO "DATA",160.16,11,"FIELD",59,3) L,ZERO "DATA",160.16,11,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,11,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",60,2) ZERO "DATA",160.16,11,"FIELD",60,3) L,ZERO "DATA",160.16,11,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,11,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",61,2) ZERO "DATA",160.16,11,"FIELD",61,3) L,ZERO "DATA",160.16,11,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,11,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,11,"FIELD",62,2) ZERO "DATA",160.16,11,"FIELD",62,3) L,ZERO "DATA",160.16,11,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,11,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,11,"FIELD",63,2) ZERO "DATA",160.16,11,"FIELD",63,3) L,ZERO "DATA",160.16,11,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,11,"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,11,"FIELD",64,2) BLANK "DATA",160.16,11,"FIELD",64,3) L,BLANK "DATA",160.16,11,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,11,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,11,"FIELD",65,2) BLANK "DATA",160.16,11,"FIELD",65,3) L,BLANK "DATA",160.16,11,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,11,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,11,"FIELD",66,2) BLANK "DATA",160.16,11,"FIELD",66,3) L,BLANK "DATA",160.16,11,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,11,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",67,2) BLANK "DATA",160.16,11,"FIELD",67,3) L,BLANK "DATA",160.16,11,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,11,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,11,"FIELD",68,2) NINE "DATA",160.16,11,"FIELD",68,3) L,ZERO "DATA",160.16,11,"FIELD",69,0) 347^4^350^Reserved of Expansion "DATA",160.16,11,"FIELD",69,1) S ACDANS="" "DATA",160.16,11,"FIELD",69,2) BLANK "DATA",160.16,11,"FIELD",69,3) L,BLANK "DATA",160.16,11,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,11,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,11,"FIELD",70,2) BLANK "DATA",160.16,11,"FIELD",70,3) L,ZERO "DATA",160.16,11,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,11,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,11,"FIELD",71,2) BLANK "DATA",160.16,11,"FIELD",71,3) L,ZERO "DATA",160.16,11,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,11,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,11,"FIELD",72,2) BLANK "DATA",160.16,11,"FIELD",72,3) L,ZERO "DATA",160.16,11,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,11,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,11,"FIELD",73,2) BLANK "DATA",160.16,11,"FIELD",73,3) L,ZERO "DATA",160.16,11,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,11,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,11,"FIELD",74,2) BLANK "DATA",160.16,11,"FIELD",74,3) L,ZERO "DATA",160.16,11,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,11,"FIELD",75,2) BLANK "DATA",160.16,11,"FIELD",75,3) L,ZERO "DATA",160.16,11,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,11,"FIELD",76,1) S ACDANS="" "DATA",160.16,11,"FIELD",76,2) BLANK "DATA",160.16,11,"FIELD",76,3) L,BLANK "DATA",160.16,11,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,11,"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,11,"FIELD",77,2) BLANK "DATA",160.16,11,"FIELD",77,3) L,BLANK "DATA",160.16,11,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,11,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",78,2) BLANK "DATA",160.16,11,"FIELD",78,3) L,BLANK "DATA",160.16,11,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,11,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,11,"FIELD",79,2) BLANK "DATA",160.16,11,"FIELD",79,3) L,ZERO "DATA",160.16,11,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,11,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,11,"FIELD",80,2) BLANK "DATA",160.16,11,"FIELD",80,3) L,ZERO "DATA",160.16,11,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,11,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,11,"FIELD",81,2) BLANK "DATA",160.16,11,"FIELD",81,3) L,ZERO "DATA",160.16,11,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,11,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,11,"FIELD",82,2) BLANK "DATA",160.16,11,"FIELD",82,3) L,BLANK "DATA",160.16,11,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,11,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,11,"FIELD",83,2) ZERO "DATA",160.16,11,"FIELD",83,3) L,ZERO "DATA",160.16,11,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,11,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,11,"FIELD",84,2) ZERO "DATA",160.16,11,"FIELD",84,3) L,ZERO "DATA",160.16,11,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,11,"FIELD",85,1) S ACDANS="" "DATA",160.16,11,"FIELD",85,2) BLANK "DATA",160.16,11,"FIELD",85,3) L,BLANK "DATA",160.16,11,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,11,"FIELD",86,1) S ACDANS="" "DATA",160.16,11,"FIELD",86,2) BLANK "DATA",160.16,11,"FIELD",86,3) L,BLANK "DATA",160.16,11,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,11,"FIELD",87,1) S ACDANS="" "DATA",160.16,11,"FIELD",87,2) BLANK "DATA",160.16,11,"FIELD",87,3) L,BLANK "DATA",160.16,11,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,11,"FIELD",88,1) S ACDANS=4 "DATA",160.16,11,"FIELD",88,2) BLANK "DATA",160.16,11,"FIELD",88,3) L,BLANK "DATA",160.16,11,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,11,"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,11,"FIELD",89,2) BLANK "DATA",160.16,11,"FIELD",89,3) R,BLANK "DATA",160.16,11,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,11,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,11,"FIELD",90,2) BLANK "DATA",160.16,11,"FIELD",90,3) R,BLANK "DATA",160.16,11,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,11,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,11,"FIELD",91,2) BLANK "DATA",160.16,11,"FIELD",91,3) R,BLANK "DATA",160.16,11,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,11,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,11,"FIELD",92,2) BLANK "DATA",160.16,11,"FIELD",92,3) R,BLANK "DATA",160.16,11,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,11,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,11,"FIELD",93,2) ZERO "DATA",160.16,11,"FIELD",93,3) L,ZERO "DATA",160.16,11,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,11,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,11,"FIELD",94,2) BLANK "DATA",160.16,11,"FIELD",94,3) L,BLANK "DATA",160.16,11,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,11,"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,11,"FIELD",95,2) BLANK "DATA",160.16,11,"FIELD",95,3) R,BLANK "DATA",160.16,11,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,11,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,11,"FIELD",96,2) BLANK "DATA",160.16,11,"FIELD",96,3) R,BLANK "DATA",160.16,11,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,11,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,11,"FIELD",97,2) BLANK "DATA",160.16,11,"FIELD",97,3) R,BLANK "DATA",160.16,11,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,11,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,11,"FIELD",98,2) BLANK "DATA",160.16,11,"FIELD",98,3) R,BLANK "DATA",160.16,11,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,11,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,11,"FIELD",99,2) ZERO "DATA",160.16,11,"FIELD",99,3) L,ZERO "DATA",160.16,11,"FIELD",100,0) 441^1^441^TNM Clin Staged By "DATA",160.16,11,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,11,"FIELD",100,2) BLANK "DATA",160.16,11,"FIELD",100,3) L,BLANK "DATA",160.16,11,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,11,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,11,"FIELD",101,2) BLANK "DATA",160.16,11,"FIELD",101,3) R,BLANK "DATA",160.16,11,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,11,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,11,"FIELD",102,2) BLANK "DATA",160.16,11,"FIELD",102,3) R,BLANK "DATA",160.16,11,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,11,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,11,"FIELD",103,2) BLANK "DATA",160.16,11,"FIELD",103,3) R,BLANK "DATA",160.16,11,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,11,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,11,"FIELD",104,2) BLANK "DATA",160.16,11,"FIELD",104,3) R,BLANK "DATA",160.16,11,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,11,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,11,"FIELD",105,2) BLANK "DATA",160.16,11,"FIELD",105,3) L,BLANK "DATA",160.16,11,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,11,"FIELD",106,1) S ACDANS="" "DATA",160.16,11,"FIELD",106,2) BLANK "DATA",160.16,11,"FIELD",106,3) L,BLANK "DATA",160.16,11,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,11,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",107,2) BLANK "DATA",160.16,11,"FIELD",107,3) L,BLANK "DATA",160.16,11,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,11,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",108,2) BLANK "DATA",160.16,11,"FIELD",108,3) R,BLANK "DATA",160.16,11,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,11,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",109,2) BLANK "DATA",160.16,11,"FIELD",109,3) L,BLANK "DATA",160.16,11,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,11,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,11,"FIELD",110,2) BLANK "DATA",160.16,11,"FIELD",110,3) L,BLANK "DATA",160.16,11,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,11,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,11,"FIELD",111,2) BLANK "DATA",160.16,11,"FIELD",111,3) L,BLANK "DATA",160.16,11,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,11,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,11,"FIELD",112,2) BLANK "DATA",160.16,11,"FIELD",112,3) L,BLANK "DATA",160.16,11,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,11,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,11,"FIELD",113,2) BLANK "DATA",160.16,11,"FIELD",113,3) L,BLANK "DATA",160.16,11,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,11,"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,11,"FIELD",114,2) BLANK "DATA",160.16,11,"FIELD",114,3) L,BLANK "DATA",160.16,11,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,11,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,11,"FIELD",115,2) BLANK "DATA",160.16,11,"FIELD",115,3) L,BLANK "DATA",160.16,11,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,11,"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,11,"FIELD",116,2) BLANK "DATA",160.16,11,"FIELD",116,3) L,BLANK "DATA",160.16,11,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,11,"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,11,"FIELD",117,2) BLANK "DATA",160.16,11,"FIELD",117,3) L,BLANK "DATA",160.16,11,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,11,"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,11,"FIELD",118,2) BLANK "DATA",160.16,11,"FIELD",118,3) L,BLANK "DATA",160.16,11,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,11,"FIELD",119,1) S ACDANS="" "DATA",160.16,11,"FIELD",119,2) BLANK "DATA",160.16,11,"FIELD",119,3) L,BLANK "DATA",160.16,11,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,11,"FIELD",120,1) S ACDANS="" "DATA",160.16,11,"FIELD",120,2) BLANK "DATA",160.16,11,"FIELD",120,3) L,BLANK "DATA",160.16,11,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,11,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",121,2) NINE "DATA",160.16,11,"FIELD",121,3) L,BLANK "DATA",160.16,11,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,11,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,11,"FIELD",122,2) NINE "DATA",160.16,11,"FIELD",122,3) L,BLANK "DATA",160.16,11,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,11,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,11,"FIELD",123,2) NINE "DATA",160.16,11,"FIELD",123,3) L,BLANK "DATA",160.16,11,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,11,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,11,"FIELD",124,2) NINE "DATA",160.16,11,"FIELD",124,3) L,BLANK "DATA",160.16,11,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,11,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,11,"FIELD",125,2) NINE "DATA",160.16,11,"FIELD",125,3) L,BLANK "DATA",160.16,11,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,11,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,11,"FIELD",126,2) NINE "DATA",160.16,11,"FIELD",126,3) L,BLANK "DATA",160.16,11,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,11,"FIELD",127,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,11,"FIELD",127,2) ZERO "DATA",160.16,11,"FIELD",127,3) L,ZERO "DATA",160.16,11,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,11,"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,11,"FIELD",128,2) ZERO "DATA",160.16,11,"FIELD",128,3) L,ZERO "DATA",160.16,11,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",129,2) ZERO "DATA",160.16,11,"FIELD",129,3) L,ZERO "DATA",160.16,11,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,11,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,11,"FIELD",130,2) ZERO "DATA",160.16,11,"FIELD",130,3) L,ZERO "DATA",160.16,11,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,11,"FIELD",131,1) S ACDANS="" "DATA",160.16,11,"FIELD",131,2) BLANK "DATA",160.16,11,"FIELD",131,3) L,BLANK "DATA",160.16,11,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approach "DATA",160.16,11,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,11,"FIELD",132,2) BLANK "DATA",160.16,11,"FIELD",132,3) L,BLANK "DATA",160.16,11,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,11,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,11,"FIELD",133,2) BLANK "DATA",160.16,11,"FIELD",133,3) L,BLANK "DATA",160.16,11,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,11,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,11,"FIELD",134,2) BLANK "DATA",160.16,11,"FIELD",134,3) L,BLANK "DATA",160.16,11,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,11,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,11,"FIELD",135,2) BLANK "DATA",160.16,11,"FIELD",135,3) L,BLANK "DATA",160.16,11,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,11,"FIELD",136,2) BLANK "DATA",160.16,11,"FIELD",136,3) L,ZERO "DATA",160.16,11,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,11,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,11,"FIELD",137,2) NINE "DATA",160.16,11,"FIELD",137,3) L,ZERO "DATA",160.16,11,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,11,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,11,"FIELD",138,2) NINE "DATA",160.16,11,"FIELD",138,3) L,ZERO "DATA",160.16,11,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,11,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,11,"FIELD",139,2) NINE "DATA",160.16,11,"FIELD",139,3) L,ZERO "DATA",160.16,11,"FIELD",140,0) 628^1^628^RX Summ--Chemo "DATA",160.16,11,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,11,"FIELD",140,2) NINE "DATA",160.16,11,"FIELD",140,3) L,ZERO "DATA",160.16,11,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,11,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,11,"FIELD",141,2) NINE "DATA",160.16,11,"FIELD",141,3) L,ZERO "DATA",160.16,11,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,11,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,11,"FIELD",142,2) NINE "DATA",160.16,11,"FIELD",142,3) L,ZERO "DATA",160.16,11,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,11,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,11,"FIELD",143,2) NINE "DATA",160.16,11,"FIELD",143,3) L,ZERO "DATA",160.16,11,"FIELD",144,0) 632^1^632^Reason for No Radiation "DATA",160.16,11,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,11,"FIELD",144,2) BLANK "DATA",160.16,11,"FIELD",144,3) L,BLANK "DATA",160.16,11,"FIELD",145,0) 633^1^633^Reason for No Chemo "DATA",160.16,11,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,11,"FIELD",145,2) BLANK "DATA",160.16,11,"FIELD",145,3) L,BLANK "DATA",160.16,11,"FIELD",146,0) 634^1^634^Reason for No Hormone "DATA",160.16,11,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,11,"FIELD",146,2) BLANK "DATA",160.16,11,"FIELD",146,3) L,BLANK "DATA",160.16,11,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,11,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",147,2) ZERO "DATA",160.16,11,"FIELD",147,3) L,ZERO "DATA",160.16,11,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,11,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,11,"FIELD",148,2) BLANK "DATA",160.16,11,"FIELD",148,3) L,BLANK "DATA",160.16,11,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,11,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,11,"FIELD",149,2) BLANK "DATA",160.16,11,"FIELD",149,3) L,BLANK "DATA",160.16,11,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,11,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,11,"FIELD",150,2) BLANK "DATA",160.16,11,"FIELD",150,3) L,BLANK "DATA",160.16,11,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,11,"FIELD",151,1) S ACDANS=1 "DATA",160.16,11,"FIELD",151,2) BLANK "DATA",160.16,11,"FIELD",151,3) L,BLANK "DATA",160.16,11,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,11,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,11,"FIELD",152,2) NINE "DATA",160.16,11,"FIELD",152,3) L,ZERO "DATA",160.16,11,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,11,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,11,"FIELD",153,2) NINE "DATA",160.16,11,"FIELD",153,3) L,ZERO "DATA",160.16,11,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,11,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,11,"FIELD",154,2) NINE "DATA",160.16,11,"FIELD",154,3) L,ZERO "DATA",160.16,11,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,11,"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,11,"FIELD",155,2) NINE "DATA",160.16,11,"FIELD",155,3) L,ZERO "DATA",160.16,11,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,11,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,11,"FIELD",156,2) NINE "DATA",160.16,11,"FIELD",156,3) L,ZERO "DATA",160.16,11,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,11,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,11,"FIELD",157,2) NINE "DATA",160.16,11,"FIELD",157,3) L,ZERO "DATA",160.16,11,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,11,"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,11,"FIELD",158,2) NINE "DATA",160.16,11,"FIELD",158,3) L,ZERO "DATA",160.16,11,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,11,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",159,2) NINE "DATA",160.16,11,"FIELD",159,3) L,ZERO "DATA",160.16,11,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,11,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,11,"FIELD",160,2) NINE "DATA",160.16,11,"FIELD",160,3) L,ZERO "DATA",160.16,11,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,11,"FIELD",161,1) S ACDANS="" "DATA",160.16,11,"FIELD",161,2) BLANK "DATA",160.16,11,"FIELD",161,3) L,BLANK "DATA",160.16,11,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,11,"FIELD",162,1) S ACDANS="" "DATA",160.16,11,"FIELD",162,2) BLANK "DATA",160.16,11,"FIELD",162,3) L,BLANK "DATA",160.16,11,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,11,"FIELD",163,1) S ACDANS="" "DATA",160.16,11,"FIELD",163,2) BLANK "DATA",160.16,11,"FIELD",163,3) L,BLANK "DATA",160.16,11,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,11,"FIELD",164,1) S ACDANS="" "DATA",160.16,11,"FIELD",164,2) BLANK "DATA",160.16,11,"FIELD",164,3) L,BLANK "DATA",160.16,11,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,11,"FIELD",165,1) S ACDANS="" "DATA",160.16,11,"FIELD",165,2) BLANK "DATA",160.16,11,"FIELD",165,3) L,BLANK "DATA",160.16,11,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,11,"FIELD",166,1) S ACDANS="" "DATA",160.16,11,"FIELD",166,2) BLANK "DATA",160.16,11,"FIELD",166,3) L,BLANK "DATA",160.16,11,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,11,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",167,2) 00000000 "DATA",160.16,11,"FIELD",167,3) L,BLANK "DATA",160.16,11,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,11,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,11,"FIELD",168,2) BLANK "DATA",160.16,11,"FIELD",168,3) L,ZERO "DATA",160.16,11,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,11,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,11,"FIELD",169,2) BLANK "DATA",160.16,11,"FIELD",169,3) L,BLANK "DATA",160.16,11,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,11,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,11,"FIELD",170,2) BLANK "DATA",160.16,11,"FIELD",170,3) L,BLANK "DATA",160.16,11,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,11,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,11,"FIELD",171,2) BLANK "DATA",160.16,11,"FIELD",171,3) L,BLANK "DATA",160.16,11,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,11,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,11,"FIELD",172,2) BLANK "DATA",160.16,11,"FIELD",172,3) L,BLANK "DATA",160.16,11,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,11,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,11,"FIELD",173,2) BLANK "DATA",160.16,11,"FIELD",173,3) L,BLANK "DATA",160.16,11,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,11,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",174,2) 00000000 "DATA",160.16,11,"FIELD",174,3) L,BLANK "DATA",160.16,11,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,11,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,11,"FIELD",175,2) BLANK "DATA",160.16,11,"FIELD",175,3) L,ZERO "DATA",160.16,11,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,11,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,11,"FIELD",176,2) BLANK "DATA",160.16,11,"FIELD",176,3) L,BLANK "DATA",160.16,11,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,11,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,11,"FIELD",177,2) BLANK "DATA",160.16,11,"FIELD",177,3) L,BLANK "DATA",160.16,11,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,11,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,11,"FIELD",178,2) BLANK "DATA",160.16,11,"FIELD",178,3) L,BLANK "DATA",160.16,11,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,11,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,11,"FIELD",179,2) BLANK "DATA",160.16,11,"FIELD",179,3) L,BLANK "DATA",160.16,11,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,11,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,11,"FIELD",180,2) BLANK "DATA",160.16,11,"FIELD",180,3) L,BLANK "DATA",160.16,11,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,11,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",181,2) 00000000 "DATA",160.16,11,"FIELD",181,3) L,BLANK "DATA",160.16,11,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,11,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,11,"FIELD",182,2) BLANK "DATA",160.16,11,"FIELD",182,3) L,ZERO "DATA",160.16,11,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,11,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,11,"FIELD",183,2) BLANK "DATA",160.16,11,"FIELD",183,3) L,BLANK "DATA",160.16,11,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,11,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,11,"FIELD",184,2) BLANK "DATA",160.16,11,"FIELD",184,3) L,BLANK "DATA",160.16,11,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,11,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,11,"FIELD",185,2) BLANK "DATA",160.16,11,"FIELD",185,3) L,BLANK "DATA",160.16,11,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,11,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,11,"FIELD",186,2) BLANK "DATA",160.16,11,"FIELD",186,3) L,BLANK "DATA",160.16,11,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,11,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,11,"FIELD",187,2) BLANK "DATA",160.16,11,"FIELD",187,3) L,BLANK "DATA",160.16,11,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,11,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",188,2) 00000000 "DATA",160.16,11,"FIELD",188,3) L,BLANK "DATA",160.16,11,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,11,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,11,"FIELD",189,2) BLANK "DATA",160.16,11,"FIELD",189,3) L,ZERO "DATA",160.16,11,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,11,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,11,"FIELD",190,2) BLANK "DATA",160.16,11,"FIELD",190,3) L,BLANK "DATA",160.16,11,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,11,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,11,"FIELD",191,2) BLANK "DATA",160.16,11,"FIELD",191,3) L,BLANK "DATA",160.16,11,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,11,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,11,"FIELD",192,2) BLANK "DATA",160.16,11,"FIELD",192,3) L,BLANK "DATA",160.16,11,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,11,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,11,"FIELD",193,2) BLANK "DATA",160.16,11,"FIELD",193,3) L,BLANK "DATA",160.16,11,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,11,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,11,"FIELD",194,2) BLANK "DATA",160.16,11,"FIELD",194,3) L,BLANK "DATA",160.16,11,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,11,"FIELD",195,1) S ACDANS="" "DATA",160.16,11,"FIELD",195,2) BLANK "DATA",160.16,11,"FIELD",195,3) L,BLANK "DATA",160.16,11,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,11,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",196,2) NINE "DATA",160.16,11,"FIELD",196,3) L,BLANK "DATA",160.16,11,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,11,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,11,"FIELD",197,2) BLANK "DATA",160.16,11,"FIELD",197,3) L,BLANK "DATA",160.16,11,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,11,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",198,2) NINE "DATA",160.16,11,"FIELD",198,3) L,BLANK "DATA",160.16,11,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,11,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,11,"FIELD",199,2) BLANK "DATA",160.16,11,"FIELD",199,3) L,BLANK "DATA",160.16,11,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,11,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,11,"FIELD",200,2) BLANK "DATA",160.16,11,"FIELD",200,3) L,BLANK "DATA",160.16,11,"FIELD",201,0) 803^1^803^Next Follow-Up Source "DATA",160.16,11,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,11,"FIELD",201,2) BLANK "DATA",160.16,11,"FIELD",201,3) L,BLANK "DATA",160.16,11,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,11,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",202,2) BLANK "DATA",160.16,11,"FIELD",202,3) R,BLANK "DATA",160.16,11,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,11,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",203,2) BLANK "DATA",160.16,11,"FIELD",203,3) R,BLANK "DATA",160.16,11,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,11,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",204,2) BLANK "DATA",160.16,11,"FIELD",204,3) R,BLANK "DATA",160.16,11,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,11,"FIELD",205,1) S ACDANS="" "DATA",160.16,11,"FIELD",205,2) BLANK "DATA",160.16,11,"FIELD",205,3) L,BLANK "DATA",160.16,11,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,11,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,11,"FIELD",206,2) BLANK "DATA",160.16,11,"FIELD",206,3) L,BLANK "DATA",160.16,11,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,11,"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,11,"FIELD",207,2) NINE "DATA",160.16,11,"FIELD",207,3) L,NINE "DATA",160.16,11,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,11,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,11,"FIELD",208,2) BLANK "DATA",160.16,11,"FIELD",208,3) L,BLANK "DATA",160.16,11,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,11,"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,11,"FIELD",209,2) NINE "DATA",160.16,11,"FIELD",209,3) L,ZERO "DATA",160.16,11,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,11,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,11,"FIELD",210,2) NINE "DATA",160.16,11,"FIELD",210,3) L,ZERO "DATA",160.16,11,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,11,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",211,2) BLANK "DATA",160.16,11,"FIELD",211,3) L,BLANK "DATA",160.16,11,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,11,"FIELD",212,1) S ACDANS="" "DATA",160.16,11,"FIELD",212,2) BLANK "DATA",160.16,11,"FIELD",212,3) L,BLANK "DATA",160.16,11,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,11,"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,11,"FIELD",213,2) BLANK "DATA",160.16,11,"FIELD",213,3) L,ZERO "DATA",160.16,11,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,11,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,11,"FIELD",214,2) BLANK "DATA",160.16,11,"FIELD",214,3) L,ZERO "DATA",160.16,11,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,11,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,11,"FIELD",215,2) BLANK "DATA",160.16,11,"FIELD",215,3) L,BLANK "DATA",160.16,11,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,11,"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,11,"FIELD",216,2) BLANK "DATA",160.16,11,"FIELD",216,3) L,BLANK "DATA",160.16,11,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,11,"FIELD",217,1) S ACDANS="" "DATA",160.16,11,"FIELD",217,2) BLANK "DATA",160.16,11,"FIELD",217,3) L,BLANK "DATA",160.16,11,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,11,"FIELD",218,1) S ACDANS="" "DATA",160.16,11,"FIELD",218,2) BLANK "DATA",160.16,11,"FIELD",218,3) L,BLANK "DATA",160.16,11,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,11,"FIELD",219,1) S ACDANS="" "DATA",160.16,11,"FIELD",219,2) BLANK "DATA",160.16,11,"FIELD",219,3) L,BLANK "DATA",160.16,11,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,11,"FIELD",220,1) S ACDANS=4 "DATA",160.16,11,"FIELD",220,2) BLANK "DATA",160.16,11,"FIELD",220,3) L,BLANK "DATA",160.16,11,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,11,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,11,"FIELD",221,2) BLANK "DATA",160.16,11,"FIELD",221,3) L,BLANK "DATA",160.16,11,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,11,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,11,"FIELD",222,2) BLANK "DATA",160.16,11,"FIELD",222,3) L,BLANK "DATA",160.16,11,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,11,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,11,"FIELD",223,2) BLANK "DATA",160.16,11,"FIELD",223,3) L,BLANK "DATA",160.16,11,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,11,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,11,"FIELD",224,2) BLANK "DATA",160.16,11,"FIELD",224,3) L,BLANK "DATA",160.16,11,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,11,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,11,"FIELD",225,2) BLANK "DATA",160.16,11,"FIELD",225,3) L,BLANK "DATA",160.16,11,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,11,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,11,"FIELD",226,2) BLANK "DATA",160.16,11,"FIELD",226,3) L,BLANK "DATA",160.16,11,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,11,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,11,"FIELD",227,2) BLANK "DATA",160.16,11,"FIELD",227,3) L,BLANK "DATA",160.16,11,"FIELD",228,0) 920^1^920^Over-ride Ill-Define Site "DATA",160.16,11,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,11,"FIELD",228,2) BLANK "DATA",160.16,11,"FIELD",228,3) L,BLANK "DATA",160.16,11,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,11,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,11,"FIELD",229,2) BLANK "DATA",160.16,11,"FIELD",229,3) L,BLANK "DATA",160.16,11,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,11,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",231,2) BLANK "DATA",160.16,11,"FIELD",231,3) L,BLANK "DATA",160.16,11,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,11,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,11,"FIELD",232,2) BLANK "DATA",160.16,11,"FIELD",232,3) L,BLANK "DATA",160.16,11,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,11,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,11,"FIELD",233,2) BLANK "DATA",160.16,11,"FIELD",233,3) L,ZERO "DATA",160.16,11,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,11,"FIELD",234,1) S ACDANS=5 "DATA",160.16,11,"FIELD",234,2) BLANK "DATA",160.16,11,"FIELD",234,3) L,BLANK "DATA",160.16,11,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,11,"FIELD",235,1) S ACDANS=5 "DATA",160.16,11,"FIELD",235,2) BLANK "DATA",160.16,11,"FIELD",235,3) L,BLANK "DATA",160.16,11,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,11,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",236,2) BLANK "DATA",160.16,11,"FIELD",236,3) L,BLANK "DATA",160.16,11,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,11,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",237,2) BLANK "DATA",160.16,11,"FIELD",237,3) L,BLANK "DATA",160.16,11,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,11,"FIELD",238,1) S ACDANS="" "DATA",160.16,11,"FIELD",238,2) BLANK "DATA",160.16,11,"FIELD",238,3) L,BLANK "DATA",160.16,11,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,11,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,11,"FIELD",239,2) BLANK "DATA",160.16,11,"FIELD",239,3) R,BLANK "DATA",160.16,11,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,11,"FIELD",240,1) S ACDANS="" "DATA",160.16,11,"FIELD",240,2) BLANK "DATA",160.16,11,"FIELD",240,3) L,BLANK "DATA",160.16,11,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,11,"FIELD",241,1) S ACDANS="" "DATA",160.16,11,"FIELD",241,2) BLANK "DATA",160.16,11,"FIELD",241,3) L,BLANK "DATA",160.16,11,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,11,"FIELD",242,1) S ACDANS="" "DATA",160.16,11,"FIELD",242,2) BLANK "DATA",160.16,11,"FIELD",242,3) L,BLANK "DATA",160.16,11,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,11,"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,11,"FIELD",243,2) BLANK "DATA",160.16,11,"FIELD",243,3) L,BLANK "DATA",160.16,11,"FIELD",284,0) 1785^25^1809^Follow-Up Contact--No&St "DATA",160.16,11,"FIELD",284,1) S ACDANS="" "DATA",160.16,11,"FIELD",284,2) BLANK "DATA",160.16,11,"FIELD",284,3) L,BLANK "DATA",160.16,11,"FIELD",285,0) 942^10^951^CRC CHECKSUM "DATA",160.16,11,"FIELD",285,1) S ACDANS="" "DATA",160.16,11,"FIELD",285,2) BLANK "DATA",160.16,11,"FIELD",285,3) L,BLANK "DATA",160.16,11,"FIELD",286,0) 12^7^18^Reserved for Expansion "DATA",160.16,11,"FIELD",286,1) S ACDANS="" "DATA",160.16,11,"FIELD",286,2) BLANK "DATA",160.16,11,"FIELD",286,3) L,BLANK "DATA",160.16,11,"FIELD",287,0) 204^2^205^Race 2 "DATA",160.16,11,"FIELD",287,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,11,"FIELD",287,2) BLANK "DATA",160.16,11,"FIELD",287,3) L,ZERO "DATA",160.16,11,"FIELD",288,0) 271^15^285^Reporting Hospital "DATA",160.16,11,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",288,2) ZERO "DATA",160.16,11,"FIELD",288,3) L,ZERO "DATA",160.16,11,"FIELD",289,0) 1712^15^1726^Institution Referred To "DATA",160.16,11,"FIELD",289,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,11,"FIELD",289,2) ZERO "DATA",160.16,11,"FIELD",289,3) L,ZERO "DATA",160.16,11,"FIELD",290,0) 1828^15^1842^Following Registry "DATA",160.16,11,"FIELD",290,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",290,2) ZERO "DATA",160.16,11,"FIELD",290,3) L,ZERO "DATA",160.16,11,"FIELD",291,0) 1843^4^1846^Reserved for Expansion "DATA",160.16,11,"FIELD",291,1) S ACDANS="" "DATA",160.16,11,"FIELD",291,2) BLANK "DATA",160.16,11,"FIELD",291,3) L,BLANK "DATA",160.16,11,"FIELD",292,0) 1027^1^1027^Ionizing Radiation Exposure "DATA",160.16,11,"FIELD",292,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,50,"I")) "DATA",160.16,11,"FIELD",292,2) BLANK "DATA",160.16,11,"FIELD",292,3) L,BLANK "DATA",160.16,11,"FIELD",293,0) 1028^1^1028^Persian Gulf Service "DATA",160.16,11,"FIELD",293,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,51,"I")) "DATA",160.16,11,"FIELD",293,2) BLANK "DATA",160.16,11,"FIELD",293,3) L,BLANK "DATA",160.16,11,"FIELD",294,0) 1029^1^1029^Chemical Exposure "DATA",160.16,11,"FIELD",294,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,52,"I")) "DATA",160.16,11,"FIELD",294,2) BLANK "DATA",160.16,11,"FIELD",294,3) L,BLANK "DATA",160.16,11,"FIELD",295,0) 1030^1^1030^Asbestos Exposure "DATA",160.16,11,"FIELD",295,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,61,"I")) "DATA",160.16,11,"FIELD",295,2) BLANK "DATA",160.16,11,"FIELD",295,3) L,BLANK "DATA",160.16,11,"FIELD",296,0) 1031^2^1032^VISN "DATA",160.16,11,"FIELD",296,1) S ACDANS=$$VASIT~ONCACDU2 "DATA",160.16,11,"FIELD",296,2) BLANK "DATA",160.16,11,"FIELD",296,3) L,ZERO "DATA",160.16,11,"FIELD",297,0) 1033^2^1034^Reserved for DOD usage "DATA",160.16,11,"FIELD",297,1) S ACDANS="" "DATA",160.16,11,"FIELD",297,2) BLANK "DATA",160.16,11,"FIELD",297,3) L,BLANK "DATA",160.16,11,"FIELD",298,0) 206^2^207^Race 3 "DATA",160.16,11,"FIELD",298,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,11,"FIELD",298,2) BLANK "DATA",160.16,11,"FIELD",298,3) L,ZERO "DATA",160.16,11,"FIELD",299,0) 208^2^209^Race 4 "DATA",160.16,11,"FIELD",299,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,11,"FIELD",299,2) BLANK "DATA",160.16,11,"FIELD",299,3) L,ZERO "DATA",160.16,11,"FIELD",300,0) 210^2^211^Race 5 "DATA",160.16,11,"FIELD",300,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,11,"FIELD",300,2) BLANK "DATA",160.16,11,"FIELD",300,3) L,ZERO "DATA",160.16,11,"FIELD",301,0) 212^5^216^Reserved for Expansion "DATA",160.16,11,"FIELD",301,1) S ACDANS="" "DATA",160.16,11,"FIELD",301,2) BLANK "DATA",160.16,11,"FIELD",301,3) L,BLANK "DATA",160.16,11,"FIELD",302,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,11,"FIELD",302,1) S ACDANS="" "DATA",160.16,11,"FIELD",302,2) ZERO "DATA",160.16,11,"FIELD",302,3) L,ZERO "DATA",160.16,11,"FIELD",304,0) 258^3^260^Reserved for Expansion "DATA",160.16,11,"FIELD",304,1) S ACDANS="" "DATA",160.16,11,"FIELD",304,2) BLANK "DATA",160.16,11,"FIELD",304,3) L,BLANK "DATA",160.16,11,"FIELD",305,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,11,"FIELD",305,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,11,"FIELD",305,2) BLANK "DATA",160.16,11,"FIELD",305,3) L,ZERO "DATA",160.16,11,"FIELD",306,0) 782^1^782^Over-ride SS/NodePos "DATA",160.16,11,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,11,"FIELD",306,2) BLANK "DATA",160.16,11,"FIELD",306,3) L,BLANK "DATA",160.16,11,"FIELD",307,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,11,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,11,"FIELD",307,2) BLANK "DATA",160.16,11,"FIELD",307,3) L,BLANK "DATA",160.16,11,"FIELD",308,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,11,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,11,"FIELD",308,2) BLANK "DATA",160.16,11,"FIELD",308,3) L,BLANK "DATA",160.16,11,"FIELD",309,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,11,"FIELD",309,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,11,"FIELD",309,2) BLANK "DATA",160.16,11,"FIELD",309,3) L,BLANK "DATA",160.16,11,"FIELD",310,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,11,"FIELD",310,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,11,"FIELD",310,2) BLANK "DATA",160.16,11,"FIELD",310,3) L,BLANK "DATA",160.16,11,"FIELD",311,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,11,"FIELD",311,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,11,"FIELD",311,2) BLANK "DATA",160.16,11,"FIELD",311,3) L,BLANK "DATA",160.16,11,"FIELD",312,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,11,"FIELD",312,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,11,"FIELD",312,2) BLANK "DATA",160.16,11,"FIELD",312,3) L,BLANK "DATA",160.16,11,"FIELD",313,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,11,"FIELD",313,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,11,"FIELD",313,2) BLANK "DATA",160.16,11,"FIELD",313,3) L,BLANK "DATA",160.16,11,"FIELD",314,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,11,"FIELD",314,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,11,"FIELD",314,2) BLANK "DATA",160.16,11,"FIELD",314,3) L,BLANK "DATA",160.16,11,"FIELD",315,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,11,"FIELD",315,1) S ACDANS="" "DATA",160.16,11,"FIELD",315,2) BLANK "DATA",160.16,11,"FIELD",315,3) L,BLANK "DATA",160.16,11,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,11,"FIELD",339,1) S ACDANS="" "DATA",160.16,11,"FIELD",339,2) BLANK "DATA",160.16,11,"FIELD",339,3) L,BLANK "DATA",160.16,11,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,11,"FIELD",340,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138.1,"I") "DATA",160.16,11,"FIELD",340,2) BLANK "DATA",160.16,11,"FIELD",340,3) L,ZERO "DATA",160.16,11,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,11,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,11,"FIELD",341,2) BLANK "DATA",160.16,11,"FIELD",341,3) L,BLANK "DATA",160.16,11,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,11,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,11,"FIELD",342,2) BLANK "DATA",160.16,11,"FIELD",342,3) L,ZERO "DATA",160.16,11,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,11,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,11,"FIELD",343,2) BLANK "DATA",160.16,11,"FIELD",343,3) L,BLANK "DATA",160.16,11,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,11,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,11,"FIELD",344,2) BLANK "DATA",160.16,11,"FIELD",344,3) L,BLANK "DATA",160.16,11,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,11,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,11,"FIELD",345,2) BLANK "DATA",160.16,11,"FIELD",345,3) L,BLANK "DATA",160.16,11,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,11,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,11,"FIELD",346,2) BLANK "DATA",160.16,11,"FIELD",346,3) L,BLANK "DATA",160.16,11,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,11,"FIELD",347,1) S ACDANS=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,11,"FIELD",347,2) NINE "DATA",160.16,11,"FIELD",347,3) L,ZERO "DATA",160.16,11,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,11,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,11,"FIELD",348,2) NINE "DATA",160.16,11,"FIELD",348,3) L,NINE "DATA",160.16,11,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,11,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,11,"FIELD",349,2) NINE "DATA",160.16,11,"FIELD",349,3) L,ZERO "DATA",160.16,11,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,11,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,11,"FIELD",350,2) BLANK "DATA",160.16,11,"FIELD",350,3) L,BLANK "DATA",160.16,11,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,11,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,11,"FIELD",351,2) BLANK "DATA",160.16,11,"FIELD",351,3) L,BLANK "DATA",160.16,11,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,11,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,11,"FIELD",352,2) BLANK "DATA",160.16,11,"FIELD",352,3) L,BLANK "DATA",160.16,11,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,11,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,11,"FIELD",353,2) BLANK "DATA",160.16,11,"FIELD",353,3) L,BLANK "DATA",160.16,11,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope Ln Su "DATA",160.16,11,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,11,"FIELD",354,2) BLANK "DATA",160.16,11,"FIELD",354,3) L,BLANK "DATA",160.16,11,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,11,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,11,"FIELD",355,2) BLANK "DATA",160.16,11,"FIELD",355,3) L,BLANK "DATA",160.16,11,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,11,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,11,"FIELD",356,2) BLANK "DATA",160.16,11,"FIELD",356,3) L,BLANK "DATA",160.16,11,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,11,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,11,"FIELD",357,2) BLANK "DATA",160.16,11,"FIELD",357,3) L,BLANK "DATA",160.16,11,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,11,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,11,"FIELD",358,2) BLANK "DATA",160.16,11,"FIELD",358,3) L,BLANK "DATA",160.16,11,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,11,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,11,"FIELD",359,2) BLANK "DATA",160.16,11,"FIELD",359,3) L,BLANK "DATA",160.16,11,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,11,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,11,"FIELD",360,2) BLANK "DATA",160.16,11,"FIELD",360,3) L,BLANK "DATA",160.16,11,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,11,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,11,"FIELD",361,2) BLANK "DATA",160.16,11,"FIELD",361,3) L,BLANK "DATA",160.16,11,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,11,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,11,"FIELD",362,2) BLANK "DATA",160.16,11,"FIELD",362,3) L,BLANK "DATA",160.16,11,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,11,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,11,"FIELD",363,2) BLANK "DATA",160.16,11,"FIELD",363,3) L,BLANK "DATA",160.16,11,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,11,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,11,"FIELD",364,2) BLANK "DATA",160.16,11,"FIELD",364,3) L,BLANK "DATA",160.16,11,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,11,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,11,"FIELD",365,2) BLANK "DATA",160.16,11,"FIELD",365,3) L,BLANK "DATA",160.16,11,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,11,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,11,"FIELD",366,2) NINE "DATA",160.16,11,"FIELD",366,3) L,NINE "DATA",160.16,11,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,11,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",367,2) BLANK "DATA",160.16,11,"FIELD",367,3) R,BLANK "DATA",160.16,11,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,11,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",368,2) BLANK "DATA",160.16,11,"FIELD",368,3) L,BLANK "DATA",160.16,11,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,11,"FIELD",369,1) S ACDANS="" "DATA",160.16,11,"FIELD",369,2) BLANK "DATA",160.16,11,"FIELD",369,3) L,BLANK "DATA",160.16,11,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,11,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,11,"FIELD",370,2) BLANK "DATA",160.16,11,"FIELD",370,3) L,BLANK "DATA",160.16,11,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,11,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,11,"FIELD",371,2) BLANK "DATA",160.16,11,"FIELD",371,3) L,BLANK "DATA",160.16,11,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,11,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,11,"FIELD",372,2) BLANK "DATA",160.16,11,"FIELD",372,3) L,BLANK "DATA",160.16,11,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,11,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,11,"FIELD",373,2) BLANK "DATA",160.16,11,"FIELD",373,3) L,BLANK "DATA",160.16,11,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,11,"FIELD",374,1) S ACDANS="" "DATA",160.16,11,"FIELD",374,2) BLANK "DATA",160.16,11,"FIELD",374,3) L,BLANK "DATA",160.16,11,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,11,"FIELD",375,1) S ACDANS="" "DATA",160.16,11,"FIELD",375,2) BLANK "DATA",160.16,11,"FIELD",375,3) L,BLANK "DATA",160.16,11,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,11,"FIELD",376,1) S ACDANS="" "DATA",160.16,11,"FIELD",376,2) BLANK "DATA",160.16,11,"FIELD",376,3) L,BLANK "DATA",160.16,11,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,11,"FIELD",377,1) S ACDANS="" "DATA",160.16,11,"FIELD",377,2) BLANK "DATA",160.16,11,"FIELD",377,3) L,BLANK "DATA",160.16,11,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,11,"FIELD",378,1) S ACDANS="" "DATA",160.16,11,"FIELD",378,2) BLANK "DATA",160.16,11,"FIELD",378,3) L,BLANK "DATA",160.16,11,"FIELD",379,0) 1026^1^1026^Agent Orange Exposure "DATA",160.16,11,"FIELD",379,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,48,"I")) "DATA",160.16,11,"FIELD",379,2) BLANK "DATA",160.16,11,"FIELD",379,3) L,BLANK "DATA",160.16,11,"FIELD",381,0) 1526^25^1550^Name--Last "DATA",160.16,11,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,11,"FIELD",381,2) BLANK "DATA",160.16,11,"FIELD",381,3) R,BLANK "DATA",160.16,11,"FIELD",382,0) 1551^14^1564^Name--First "DATA",160.16,11,"FIELD",382,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,11,"FIELD",382,2) BLANK "DATA",160.16,11,"FIELD",382,3) R,BLANK "DATA",160.16,11,"FIELD",383,0) 1565^14^1578^Name--Middle "DATA",160.16,11,"FIELD",383,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,11,"FIELD",383,2) BLANK "DATA",160.16,11,"FIELD",383,3) R,BLANK "DATA",160.16,11,"FIELD",384,0) 1579^3^1581^Name--Prefix "DATA",160.16,11,"FIELD",384,1) S ACDANS="" "DATA",160.16,11,"FIELD",384,2) BLANK "DATA",160.16,11,"FIELD",384,3) R,BLANK "DATA",160.16,11,"FIELD",385,0) 1582^3^1584^Name--Suffix "DATA",160.16,11,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,11,"FIELD",385,2) BLANK "DATA",160.16,11,"FIELD",385,3) R,BLANK "DATA",160.16,11,"FIELD",386,0) 1585^15^1599^Name--Alias "DATA",160.16,11,"FIELD",386,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",386,2) BLANK "DATA",160.16,11,"FIELD",386,3) R,BLANK "DATA",160.16,11,"FIELD",387,0) 1600^50^1649^Name--Spouse/Parent "DATA",160.16,11,"FIELD",387,1) S ACDANS="" "DATA",160.16,11,"FIELD",387,2) BLANK "DATA",160.16,11,"FIELD",387,3) R,BLANK "DATA",160.16,11,"FIELD",388,0) 1650^11^1660^Medical Record Number "DATA",160.16,11,"FIELD",388,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,11,"FIELD",388,2) BLANK "DATA",160.16,11,"FIELD",388,3) L,ZERO "DATA",160.16,11,"FIELD",389,0) 1661^2^1662^Military Record No Suffix "DATA",160.16,11,"FIELD",389,1) S ACDANS="" "DATA",160.16,11,"FIELD",389,2) BLANK "DATA",160.16,11,"FIELD",389,3) L,ZERO "DATA",160.16,11,"FIELD",390,0) 1663^9^1671^Social Security Number "DATA",160.16,11,"FIELD",390,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,11,"FIELD",390,2) NINE "DATA",160.16,11,"FIELD",390,3) L,BLANK "DATA",160.16,11,"FIELD",391,0) 1672^25^1696^Addr at DX--No & Street "DATA",160.16,11,"FIELD",391,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,11,"FIELD",391,2) BLANK "DATA",160.16,11,"FIELD",391,3) R,BLANK "DATA",160.16,11,"FIELD",392,0) 1697^15^1711^Institution Referred From "DATA",160.16,11,"FIELD",392,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,11,"FIELD",392,2) ZERO "DATA",160.16,11,"FIELD",392,3) L,ZERO "DATA",160.16,11,"FIELD",393,0) 1727^25^1751^Addr Current--No & Street "DATA",160.16,11,"FIELD",393,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,11,"FIELD",393,2) BLANK "DATA",160.16,11,"FIELD",393,3) R,BLANK "DATA",160.16,11,"FIELD",394,0) 1752^10^1761^Telephone "DATA",160.16,11,"FIELD",394,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,11,"FIELD",394,2) NINE "DATA",160.16,11,"FIELD",394,3) R,BLANK "DATA",160.16,11,"FIELD",395,0) 1762^2^1763^Reserved for Expansion "DATA",160.16,11,"FIELD",395,1) S ACDANS="" "DATA",160.16,11,"FIELD",395,2) BLANK "DATA",160.16,11,"FIELD",395,3) L,BLANK "DATA",160.16,11,"FIELD",396,0) 1764^6^1769^DC State File Number "DATA",160.16,11,"FIELD",396,1) S ACDANS="" "DATA",160.16,11,"FIELD",396,2) BLANK "DATA",160.16,11,"FIELD",396,3) L,BLANK "DATA",160.16,11,"FIELD",397,0) 1770^15^1784^Name--Maiden "DATA",160.16,11,"FIELD",397,1) S ACDANS="" "DATA",160.16,11,"FIELD",397,2) BLANK "DATA",160.16,11,"FIELD",397,3) R,BLANK "DATA",160.16,11,"FIELD",398,0) 1810^3^1812^Reserved for Expansion "DATA",160.16,11,"FIELD",398,1) S ACDANS="" "DATA",160.16,11,"FIELD",398,2) BLANK "DATA",160.16,11,"FIELD",398,3) L,BLANK "DATA",160.16,11,"FIELD",399,0) 1813^15^1827^Last Follow-Up Hospital "DATA",160.16,11,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",399,2) ZERO "DATA",160.16,11,"FIELD",399,3) L,ZERO "DATA",160.16,11,"FIELD",404,0) 1847^8^1854^Physician--Managing "DATA",160.16,11,"FIELD",404,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,11,"FIELD",404,2) NINE "DATA",160.16,11,"FIELD",404,3) R,BLANK "DATA",160.16,11,"FIELD",405,0) 1855^8^1862^Physician--Follow-Up "DATA",160.16,11,"FIELD",405,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,11,"FIELD",405,2) NINE "DATA",160.16,11,"FIELD",405,3) R,BLANK "DATA",160.16,11,"FIELD",406,0) 1863^8^1870^Physician--Primary Surg "DATA",160.16,11,"FIELD",406,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,11,"FIELD",406,2) ZERO "DATA",160.16,11,"FIELD",406,3) R,BLANK "DATA",160.16,11,"FIELD",407,0) 1871^8^1878^Physician 3 "DATA",160.16,11,"FIELD",407,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,11,"FIELD",407,2) ZERO "DATA",160.16,11,"FIELD",407,3) R,BLANK "DATA",160.16,11,"FIELD",408,0) 1879^8^1886^Physician 4 "DATA",160.16,11,"FIELD",408,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,11,"FIELD",408,2) ZERO "DATA",160.16,11,"FIELD",408,3) R,BLANK "DATA",160.16,11,"FIELD",409,0) 1887^30^1916^Follow-Up Contact--Name "DATA",160.16,11,"FIELD",409,1) S ACDANS="" "DATA",160.16,11,"FIELD",409,2) BLANK "DATA",160.16,11,"FIELD",409,3) L,BLANK "DATA",160.16,11,"FIELD",410,0) 1917^200^2116^Text--Dx Proc--PE "DATA",160.16,11,"FIELD",410,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,11,"FIELD",410,2) BLANK "DATA",160.16,11,"FIELD",410,3) R,BLANK "DATA",160.16,11,"FIELD",411,0) 2117^250^2366^Text--Dx Proc--X-ray/scan "DATA",160.16,11,"FIELD",411,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,11,"FIELD",411,2) BLANK "DATA",160.16,11,"FIELD",411,3) R,BLANK "DATA",160.16,11,"FIELD",412,0) 2367^250^2616^Text--Dx Proc--Scopes "DATA",160.16,11,"FIELD",412,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,11,"FIELD",412,2) BLANK "DATA",160.16,11,"FIELD",412,3) R,BLANK "DATA",160.16,11,"FIELD",413,0) 2617^250^2866^Text--Dx Proc--Lab Tests "DATA",160.16,11,"FIELD",413,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,11,"FIELD",413,2) BLANK "DATA",160.16,11,"FIELD",413,3) R,BLANK "DATA",160.16,11,"FIELD",414,0) 2867^250^3116^Text--Dx Proc--Op "DATA",160.16,11,"FIELD",414,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,11,"FIELD",414,2) BLANK "DATA",160.16,11,"FIELD",414,3) R,BLANK "DATA",160.16,11,"FIELD",415,0) 3117^250^3366^Text--Dx Proc--Path "DATA",160.16,11,"FIELD",415,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,11,"FIELD",415,2) BLANK "DATA",160.16,11,"FIELD",415,3) R,BLANK "DATA",160.16,11,"FIELD",416,0) 3367^40^3406^Text--Primary Site Title "DATA",160.16,11,"FIELD",416,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,11,"FIELD",416,2) BLANK "DATA",160.16,11,"FIELD",416,3) R,BLANK "DATA",160.16,11,"FIELD",417,0) 3407^40^3446^Text--Histology Title "DATA",160.16,11,"FIELD",417,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,11,"FIELD",417,2) BLANK "DATA",160.16,11,"FIELD",417,3) R,BLANK "DATA",160.16,11,"FIELD",418,0) 3447^300^3746^Text--Staging "DATA",160.16,11,"FIELD",418,1) S ACDANS="" "DATA",160.16,11,"FIELD",418,2) BLANK "DATA",160.16,11,"FIELD",418,3) R,BLANK "DATA",160.16,11,"FIELD",419,0) 3747^150^3896^RX Text--Surgery "DATA",160.16,11,"FIELD",419,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,11,"FIELD",419,2) BLANK "DATA",160.16,11,"FIELD",419,3) R,BLANK "DATA",160.16,11,"FIELD",420,0) 3897^150^4046^RX Text--Radiation (Beam) "DATA",160.16,11,"FIELD",420,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,11,"FIELD",420,2) BLANK "DATA",160.16,11,"FIELD",420,3) R,BLANK "DATA",160.16,11,"FIELD",421,0) 4047^150^4196^RX Text--Radiation Other "DATA",160.16,11,"FIELD",421,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,11,"FIELD",421,2) BLANK "DATA",160.16,11,"FIELD",421,3) R,BLANK "DATA",160.16,11,"FIELD",422,0) 4197^200^4396^RX Text--Chemo "DATA",160.16,11,"FIELD",422,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,11,"FIELD",422,2) BLANK "DATA",160.16,11,"FIELD",422,3) R,BLANK "DATA",160.16,11,"FIELD",423,0) 4397^200^4596^RX Text--Hormone "DATA",160.16,11,"FIELD",423,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,11,"FIELD",423,2) BLANK "DATA",160.16,11,"FIELD",423,3) R,BLANK "DATA",160.16,11,"FIELD",424,0) 4597^100^4696^RX Text--BRM "DATA",160.16,11,"FIELD",424,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,11,"FIELD",424,2) BLANK "DATA",160.16,11,"FIELD",424,3) R,BLANK "DATA",160.16,11,"FIELD",425,0) 4697^100^4796^RX Text--Other "DATA",160.16,11,"FIELD",425,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,11,"FIELD",425,2) BLANK "DATA",160.16,11,"FIELD",425,3) R,BLANK "DATA",160.16,11,"FIELD",426,0) 4797^350^5146^Text--Remarks "DATA",160.16,11,"FIELD",426,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,11,"FIELD",426,2) BLANK "DATA",160.16,11,"FIELD",426,3) R,BLANK "DATA",160.16,11,"FIELD",427,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,11,"FIELD",427,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,11,"FIELD",427,2) BLANK "DATA",160.16,11,"FIELD",427,3) R,BLANK "DATA",160.16,11,"FIELD",428,0) 5197^770^5966^Reserved for Expansion "DATA",160.16,11,"FIELD",428,1) S ACDANS="" "DATA",160.16,11,"FIELD",428,2) BLANK "DATA",160.16,11,"FIELD",428,3) L,BLANK "DATA",160.16,11,"FIELD",434,0) 1363^1^1363^AFIP Submission "DATA",160.16,11,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,11,"FIELD",434,2) BLANK "DATA",160.16,11,"FIELD",434,3) L,BLANK "DATA",160.16,11,"FIELD",435,0) 1385^1^1385^Previous History of Cancer "DATA",160.16,11,"FIELD",435,1) S ACDANS=$$GET1~DIQ(165.5,IEN,148,"I") "DATA",160.16,11,"FIELD",435,2) BLANK "DATA",160.16,11,"FIELD",435,3) L,BLANK "DATA",160.16,11,"FIELD",437,0) 1364^20^1383^Previous History of Cancer Text "DATA",160.16,11,"FIELD",437,1) D PHCT~ONCACDU1 "DATA",160.16,11,"FIELD",437,2) BLANK "DATA",160.16,11,"FIELD",437,3) R,BLANK "DATA",160.16,11,"FIELD",438,0) 1035^50^1084^Family History of Cancer Text "DATA",160.16,11,"FIELD",438,1) D FHCT~ONCACDU1 "DATA",160.16,11,"FIELD",438,2) BLANK "DATA",160.16,11,"FIELD",438,3) R,BLANK "DATA",160.16,11,"FIELD",439,0) 1386^1^1386^Middle East Service "DATA",160.16,11,"FIELD",439,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,55,"I")) "DATA",160.16,11,"FIELD",439,2) BLANK "DATA",160.16,11,"FIELD",439,3) L,BLANK "DATA",160.16,11,"FIELD",440,0) 1387^1^1387^Reserved for DOD usage "DATA",160.16,11,"FIELD",440,1) S ACDANS="" "DATA",160.16,11,"FIELD",440,2) BLANK "DATA",160.16,11,"FIELD",440,3) L,BLANK "DATA",160.16,11,"FIELD",441,0) 1085^278^1362^Reserved for expansion "DATA",160.16,11,"FIELD",441,1) S ACDANS="" "DATA",160.16,11,"FIELD",441,2) BLANK "DATA",160.16,11,"FIELD",441,3) L,BLANK "DATA",160.16,11,"FIELD",442,0) 1388^1^1388^Reserved for DOD usage "DATA",160.16,11,"FIELD",442,1) S ACDANS="" "DATA",160.16,11,"FIELD",442,2) BLANK "DATA",160.16,11,"FIELD",442,3) L,BLANK "DATA",160.16,11,"FIELD",443,0) 1389^71^1459^Reserved for expansion "DATA",160.16,11,"FIELD",443,1) S ACDANS="" "DATA",160.16,11,"FIELD",443,2) BLANK "DATA",160.16,11,"FIELD",443,3) L,BLANK "DATA",160.16,11,"FIELD",444,0) 1460^8^1467^Reserved for DOD usage "DATA",160.16,11,"FIELD",444,1) S ACDANS="" "DATA",160.16,11,"FIELD",444,2) BLANK "DATA",160.16,11,"FIELD",444,3) L,BLANK "DATA",160.16,11,"FIELD",445,0) 1468^9^1476^Reserved for expansion "DATA",160.16,11,"FIELD",445,1) S ACDANS="" "DATA",160.16,11,"FIELD",445,2) BLANK "DATA",160.16,11,"FIELD",445,3) L,BLANK "DATA",160.16,11,"FIELD",446,0) 1477^1^1477^Reserved for DOD usage "DATA",160.16,11,"FIELD",446,1) S ACDANS="" "DATA",160.16,11,"FIELD",446,2) BLANK "DATA",160.16,11,"FIELD",446,3) L,BLANK "DATA",160.16,11,"FIELD",447,0) 1478^11^1488^Reserved for DOD usage "DATA",160.16,11,"FIELD",447,1) S ACDANS="" "DATA",160.16,11,"FIELD",447,2) BLANK "DATA",160.16,11,"FIELD",447,3) L,BLANK "DATA",160.16,11,"FIELD",448,0) 1489^37^1525^Reserved for expansion "DATA",160.16,11,"FIELD",448,1) S ACDANS="" "DATA",160.16,11,"FIELD",448,2) BLANK "DATA",160.16,11,"FIELD",448,3) L,BLANK "DATA",160.16,11,"FIELD",449,0) 1384^1^1384^Somalia Service "DATA",160.16,11,"FIELD",449,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,56,"I")) "DATA",160.16,11,"FIELD",449,2) BLANK "DATA",160.16,11,"FIELD",449,3) L,BLANK "DATA",160.16,11,"RULES",0) 4^160.162^4^4^3031107^^^^ "DATA",160.16,11,"RULES",1,0) S VALID=1 "DATA",160.16,11,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,11,"RULES",3,0) S JUMP=0 "DATA",160.16,11,"RULES",4,0) K SCREEN "DATA",160.16,12,0) ACD EXTRACT V10.1 "DATA",160.16,12,"FIELD",0) ^160.161I^490^351 "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="00000000" "DATA",160.16,12,"FIELD",2,2) BLANK "DATA",160.16,12,"FIELD",2,3) L,ZERO^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) INSTITUTION ID NUMBER (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="A" "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) A 2003 Version (Version 10 and 10.1) "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") "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=$$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) "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^Year First Seen This CA "DATA",160.16,12,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,12,"FIELD",63,2) BLANK "DATA",160.16,12,"FIELD",63,3) L,ZERO^620 "DATA",160.16,12,"FIELD",63,4) ACCESSION YEAR (165.5,.07) "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) BLANK "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^1^447^Inpatient/Outpt Status "DATA",160.16,12,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,12,"FIELD",65,2) BLANK "DATA",160.16,12,"FIELD",65,3) L,BLANK^640 "DATA",160.16,12,"FIELD",65,4) INPATIENT/OUTPATIENT STATUS (165.5,123) "DATA",160.16,12,"FIELD",66,0) 448^1^448^Presentation at CA Conf "DATA",160.16,12,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,12,"FIELD",66,2) BLANK "DATA",160.16,12,"FIELD",66,3) L,BLANK^650 "DATA",160.16,12,"FIELD",66,4) PRESENTATION AT CANCER CONF (165.5,120) "DATA",160.16,12,"FIELD",67,0) 449^8^456^Date of CA Conference "DATA",160.16,12,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",67,2) BLANK "DATA",160.16,12,"FIELD",67,3) L,BLANK^660 "DATA",160.16,12,"FIELD",67,4) DATE OF CANCER CONF (165.5,121) "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) BLANK "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) BLANK "DATA",160.16,12,"FIELD",71,3) L,ZERO^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) BLANK "DATA",160.16,12,"FIELD",72,3) L,ZERO^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) BLANK "DATA",160.16,12,"FIELD",73,3) L,ZERO^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) BLANK "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^Loc/Reg/Distant Stage "DATA",160.16,12,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,12,"FIELD",78,2) BLANK "DATA",160.16,12,"FIELD",78,3) L,BLANK^770 "DATA",160.16,12,"FIELD",78,4) SEER SUMMARY STAGE 2000 (165.5,35) "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 ACDANS=4 "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) 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") "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) BLANK "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) BLANK "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^2^584^TNM Other T "DATA",160.16,12,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,12,"FIELD",101,2) BLANK "DATA",160.16,12,"FIELD",101,3) R,BLANK^1000 "DATA",160.16,12,"FIELD",101,4) OTHER T (165.5,93) "DATA",160.16,12,"FIELD",102,0) 585^2^586^TNM Other N "DATA",160.16,12,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,12,"FIELD",102,2) BLANK "DATA",160.16,12,"FIELD",102,3) R,BLANK^1010 "DATA",160.16,12,"FIELD",102,4) OTHER N (165.5,98) "DATA",160.16,12,"FIELD",103,0) 587^2^588^TNM Other M "DATA",160.16,12,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,12,"FIELD",103,2) BLANK "DATA",160.16,12,"FIELD",103,3) R,BLANK^1020 "DATA",160.16,12,"FIELD",103,4) OTHER M (165.5,99) "DATA",160.16,12,"FIELD",104,0) 589^2^590^TNM Other Stage Group "DATA",160.16,12,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,12,"FIELD",104,2) BLANK "DATA",160.16,12,"FIELD",104,3) R,BLANK^1030 "DATA",160.16,12,"FIELD",104,4) OTHER STAGE GROUP (165.5,117) "DATA",160.16,12,"FIELD",105,0) 591^1^591^TNM Other Staged By "DATA",160.16,12,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,12,"FIELD",105,2) BLANK "DATA",160.16,12,"FIELD",105,3) L,BLANK^1040 "DATA",160.16,12,"FIELD",105,4) STAGED BY (OTHER STAGE) (165.5,118) "DATA",160.16,12,"FIELD",106,0) 592^1^592^TNM Other Descriptor "DATA",160.16,12,"FIELD",106,1) S ACDANS="" "DATA",160.16,12,"FIELD",106,2) BLANK "DATA",160.16,12,"FIELD",106,3) L,BLANK^1050 "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^Other Staging System "DATA",160.16,12,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",108,2) BLANK "DATA",160.16,12,"FIELD",108,3) R,BLANK^1070 "DATA",160.16,12,"FIELD",108,4) OTHER STAGE (165.5,39) "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^38^754^Reserved 05 "DATA",160.16,12,"FIELD",119,1) S ACDANS="" "DATA",160.16,12,"FIELD",119,2) BLANK "DATA",160.16,12,"FIELD",119,3) L,BLANK^1180 "DATA",160.16,12,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,12,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "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) Earliest of SURGERY OF PRIMARY DATE (165.5,50), SCOPE OF LN SURGERY DATE (165.5,138.2) and SURG PROC/OTHER SITE DATE (165.5,139.2) "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=$$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",127,2) BLANK "DATA",160.16,12,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,12,"FIELD",127,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "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) BLANK "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") "DATA",160.16,12,"FIELD",132,2) BLANK "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") "DATA",160.16,12,"FIELD",134,2) BLANK "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) BLANK "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) BLANK "DATA",160.16,12,"FIELD",140,3) L,ZERO^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) BLANK "DATA",160.16,12,"FIELD",141,3) L,ZERO^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) BLANK "DATA",160.16,12,"FIELD",142,3) L,ZERO^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) BLANK "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^1^886^Reason for No Chemo "DATA",160.16,12,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,12,"FIELD",145,2) BLANK "DATA",160.16,12,"FIELD",145,3) L,BLANK^1440 "DATA",160.16,12,"FIELD",145,4) REASON FOR NO CHEMOTHERAPY (165.5,76) "DATA",160.16,12,"FIELD",146,0) 887^1^887^Reason for No Hormone "DATA",160.16,12,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,12,"FIELD",146,2) BLANK "DATA",160.16,12,"FIELD",146,3) L,BLANK^1450 "DATA",160.16,12,"FIELD",146,4) REASON FOR NO HORMONE THERAPY (165.5,77) "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",148,0) 890^1^890^Protocol Eligibility Stat "DATA",160.16,12,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,12,"FIELD",148,2) BLANK "DATA",160.16,12,"FIELD",148,3) L,BLANK^1470 "DATA",160.16,12,"FIELD",148,4) PROTOCOL ELIGIBILITY STATUS (165.5,346) "DATA",160.16,12,"FIELD",149,0) 891^2^892^Protocol Participation "DATA",160.16,12,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,12,"FIELD",149,2) BLANK "DATA",160.16,12,"FIELD",149,3) L,BLANK^1480 "DATA",160.16,12,"FIELD",149,4) PROTOCOL PARTICIPATION (165.5,560) "DATA",160.16,12,"FIELD",150,0) 893^1^893^Referral to Support Serv "DATA",160.16,12,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,12,"FIELD",150,2) BLANK "DATA",160.16,12,"FIELD",150,3) L,BLANK^1490 "DATA",160.16,12,"FIELD",150,4) REFERRAL TO SUPPORT SERVICES (165.5,122) "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) BLANK "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) BLANK "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^Rad--Elapsed RX Days "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^1530 "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) BLANK "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) BLANK "DATA",160.16,12,"FIELD",156,3) L,ZERO^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^Rad--Intent of Treatment "DATA",160.16,12,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,12,"FIELD",157,2) BLANK "DATA",160.16,12,"FIELD",157,3) L,ZERO^1560 "DATA",160.16,12,"FIELD",157,4) INTENT OF RADIATION (165.5,127) "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^1^918^Rad--RX Completion Status "DATA",160.16,12,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,12,"FIELD",159,2) BLANK "DATA",160.16,12,"FIELD",159,3) L,ZERO^1580 "DATA",160.16,12,"FIELD",159,4) RADIATION COMPLETION STATUS (165.5,128) "DATA",160.16,12,"FIELD",160,0) 919^1^919^Rad--Local Control Status "DATA",160.16,12,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,12,"FIELD",160,2) BLANK "DATA",160.16,12,"FIELD",160,3) L,ZERO^1590 "DATA",160.16,12,"FIELD",160,4) RADIATION LOCAL CONTROL STATUS (165.5,132) "DATA",160.16,12,"FIELD",161,0) 920^3^922^Chemotherapy Field 1 (item retired) "DATA",160.16,12,"FIELD",161,1) S ACDANS="" "DATA",160.16,12,"FIELD",161,2) BLANK "DATA",160.16,12,"FIELD",161,3) L,BLANK "DATA",160.16,12,"FIELD",162,0) 923^3^925^Chemotherapy Field 2 (item retired) "DATA",160.16,12,"FIELD",162,1) S ACDANS="" "DATA",160.16,12,"FIELD",162,2) BLANK "DATA",160.16,12,"FIELD",162,3) L,BLANK "DATA",160.16,12,"FIELD",163,0) 926^3^928^Chemotherapy Field 3 (item retired) "DATA",160.16,12,"FIELD",163,1) S ACDANS="" "DATA",160.16,12,"FIELD",163,2) BLANK "DATA",160.16,12,"FIELD",163,3) L,BLANK "DATA",160.16,12,"FIELD",164,0) 929^3^931^Chemotherapy Field 4 (item retired) "DATA",160.16,12,"FIELD",164,1) S ACDANS="" "DATA",160.16,12,"FIELD",164,2) BLANK "DATA",160.16,12,"FIELD",164,3) L,BLANK "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) 00000000 "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) 00000000 "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) 00000000 "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^8^1040^Subsq RX 5th Course Date "DATA",160.16,12,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,12,"FIELD",188,2) 00000000 "DATA",160.16,12,"FIELD",188,3) L,BLANK^1720 "DATA",160.16,12,"FIELD",188,4) INITIATION DATE (165.51,.01) "DATA",160.16,12,"FIELD",189,0) 1041^2^1042^Subsq RX 5th Course Surg "DATA",160.16,12,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,12,"FIELD",189,2) BLANK "DATA",160.16,12,"FIELD",189,3) L,ZERO^1731 "DATA",160.16,12,"FIELD",189,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,12,"FIELD",190,0) 1043^1^1043^Subsq RX 5th Course Rad "DATA",160.16,12,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,12,"FIELD",190,2) BLANK "DATA",160.16,12,"FIELD",190,3) L,BLANK^1732 "DATA",160.16,12,"FIELD",190,4) RADIATION (165.51,.05) "DATA",160.16,12,"FIELD",191,0) 1044^1^1044^Subsq RX 5th Course Chemo "DATA",160.16,12,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,12,"FIELD",191,2) BLANK "DATA",160.16,12,"FIELD",191,3) L,BLANK^1733 "DATA",160.16,12,"FIELD",191,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,12,"FIELD",192,0) 1045^1^1045^Subsq RX 5th Course Horm "DATA",160.16,12,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,12,"FIELD",192,2) BLANK "DATA",160.16,12,"FIELD",192,3) L,BLANK^1734 "DATA",160.16,12,"FIELD",192,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,12,"FIELD",193,0) 1046^1^1046^Subsq RX 5th Course BRM "DATA",160.16,12,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,12,"FIELD",193,2) BLANK "DATA",160.16,12,"FIELD",193,3) L,BLANK^1735 "DATA",160.16,12,"FIELD",193,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,12,"FIELD",194,0) 1047^1^1047^Subsq RX 5th Course Oth "DATA",160.16,12,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,12,"FIELD",194,2) BLANK "DATA",160.16,12,"FIELD",194,3) L,BLANK^1736 "DATA",160.16,12,"FIELD",194,4) OTHER TREATMENT (165.51,.09) "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) "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=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,12,"FIELD",204,2) BLANK "DATA",160.16,12,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,12,"FIELD",204,4) ZIP CODE (2,.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^Recurrence Type--1st--Oth "DATA",160.16,12,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,12,"FIELD",210,2) NINE "DATA",160.16,12,"FIELD",210,3) L,ZERO^1890 "DATA",160.16,12,"FIELD",210,4) OTHER TYPE OF FIRST RECURRENCE (165.5,71.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,"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,12,"FIELD",213,2) BLANK "DATA",160.16,12,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,12,"FIELD",213,4) CAUSE OF DEATH (160,19) "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 ACDANS=4 "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="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "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) Current date "DATA",160.16,12,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,12,"FIELD",233,1) S ACDANS="" 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) 6 January 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) 6 January 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=$$STATE~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. VAV10.1P37 "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) BLANK "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) BLANK "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^1^474^RX Hosp--Screen/BX Proc1 "DATA",160.16,12,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,12,"FIELD",343,2) BLANK "DATA",160.16,12,"FIELD",343,3) L,BLANK^742 "DATA",160.16,12,"FIELD",343,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,12,"FIELD",344,0) 475^1^475^RX Hosp--Screen/BX Proc2 "DATA",160.16,12,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,12,"FIELD",344,2) BLANK "DATA",160.16,12,"FIELD",344,3) L,BLANK^743 "DATA",160.16,12,"FIELD",344,4) GUIDANCE (165.5,142) "DATA",160.16,12,"FIELD",345,0) 476^1^476^RX Hosp--Screen/BX Proc3 "DATA",160.16,12,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,12,"FIELD",345,2) BLANK "DATA",160.16,12,"FIELD",345,3) L,BLANK^744 "DATA",160.16,12,"FIELD",345,4) PALPABILITY OF PRIMARY (165.5,143) for brest cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) for prostate cases. "DATA",160.16,12,"FIELD",346,0) 477^1^477^RX Hosp--Screen/BX Proc4 "DATA",160.16,12,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,12,"FIELD",346,2) BLANK "DATA",160.16,12,"FIELD",346,3) L,BLANK^745 "DATA",160.16,12,"FIELD",346,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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) BLANK "DATA",160.16,12,"FIELD",347,3) L,ZERO^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=$$RXPRI~ONCACDU2(IEN,139.4,"SO5") "DATA",160.16,12,"FIELD",348,2) NINE "DATA",160.16,12,"FIELD",348,3) L,NINE^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^1^934^RX Summ--Screen/BX Proc1 "DATA",160.16,12,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,12,"FIELD",350,2) BLANK "DATA",160.16,12,"FIELD",350,3) L,BLANK^1642 "DATA",160.16,12,"FIELD",350,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,12,"FIELD",351,0) 935^1^935^RX Summ--Screen/BX Proc2 "DATA",160.16,12,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,12,"FIELD",351,2) BLANK "DATA",160.16,12,"FIELD",351,3) L,BLANK^1643 "DATA",160.16,12,"FIELD",351,4) GUIDANCE (165.5,142) "DATA",160.16,12,"FIELD",352,0) 936^1^936^RX Summ--Screen/BX Proc3 "DATA",160.16,12,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,12,"FIELD",352,2) BLANK "DATA",160.16,12,"FIELD",352,3) L,BLANK^1644 "DATA",160.16,12,"FIELD",352,4) PALPABILITY OF PRIMARY (165.5,143) for brest cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) for prostate cases. "DATA",160.16,12,"FIELD",353,0) 937^1^937^RX Summ--Screen/BX Proc4 "DATA",160.16,12,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,12,"FIELD",353,2) BLANK "DATA",160.16,12,"FIELD",353,3) L,BLANK^1645 "DATA",160.16,12,"FIELD",353,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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^1^1060^Subsq RX 5th--Scope LN Su "DATA",160.16,12,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,12,"FIELD",363,2) BLANK "DATA",160.16,12,"FIELD",363,3) L,BLANK^1737 "DATA",160.16,12,"FIELD",363,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,12,"FIELD",364,0) 1061^1^1061^Subsq RX 5th--Surg Oth "DATA",160.16,12,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,12,"FIELD",364,2) BLANK "DATA",160.16,12,"FIELD",364,3) L,BLANK^1738 "DATA",160.16,12,"FIELD",364,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,12,"FIELD",365,0) 1062^2^1063^Subsq RX 5th--Reg LN Rem "DATA",160.16,12,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,12,"FIELD",365,2) BLANK "DATA",160.16,12,"FIELD",365,3) L,BLANK^1739 "DATA",160.16,12,"FIELD",365,4) NUMBER OF NODES REMOVED (165.51,37) "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=$$CCTST~ONCACDU2(ACD160) "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) CITY (2,.114) "DATA",160.16,12,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,12,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,12,"FIELD",368,2) BLANK "DATA",160.16,12,"FIELD",368,3) L,BLANK^1844 "DATA",160.16,12,"FIELD",368,4) STATE (2,.115) "DATA",160.16,12,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,12,"FIELD",369,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "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 (2,.116) "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^8^1155^Future Use Timeliness 1 (item retired) "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",375,0) 1156^8^1163^Future Use Timeliness 2 (item retired) "DATA",160.16,12,"FIELD",375,1) S ACDANS="" "DATA",160.16,12,"FIELD",375,2) BLANK "DATA",160.16,12,"FIELD",375,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 Hospital "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 HOSPITAL (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^Reporting Hospital FAN "DATA",160.16,12,"FIELD",388,1) S ACDANS="" "DATA",160.16,12,"FIELD",388,2) ZERO "DATA",160.16,12,"FIELD",388,3) L,ZERO^538 "DATA",160.16,12,"FIELD",390,0) 322^50^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,ZERO^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) 1397^50^1446^Reserved 09 "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^1740 "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^20^51^Reserved 01 "DATA",160.16,12,"FIELD",403,1) S ACDANS="" "DATA",160.16,12,"FIELD",403,2) BLANK "DATA",160.16,12,"FIELD",403,3) L,BLANK^370 "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") "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) BLANK "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) BLANK "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) BLANK "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) BLANK "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="" "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) 231^50^280^Reserved 02 "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^530 "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) INSTITUTION ID NUMBER (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) BLANK "DATA",160.16,12,"FIELD",439,3) L,ZERO^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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "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 (165.5,29) "DATA",160.16,12,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,12,"FIELD",441,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "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 (165.5,30) "DATA",160.16,12,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,12,"FIELD",442,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29.1,"I") "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 (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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "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 (165.5,31) "DATA",160.16,12,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,12,"FIELD",444,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",444,2) BLANK "DATA",160.16,12,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,12,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,12,"FIELD",445,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",445,2) BLANK "DATA",160.16,12,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,12,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,12,"FIELD",446,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",446,2) BLANK "DATA",160.16,12,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,12,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,12,"FIELD",447,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",447,2) BLANK "DATA",160.16,12,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,12,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,12,"FIELD",448,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",448,2) BLANK "DATA",160.16,12,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,12,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,12,"FIELD",449,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",449,2) BLANK "DATA",160.16,12,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,12,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,12,"FIELD",450,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",450,2) BLANK "DATA",160.16,12,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,12,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,12,"FIELD",451,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",451,2) BLANK "DATA",160.16,12,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,12,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,12,"FIELD",452,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,12,"FIELD",452,2) BLANK "DATA",160.16,12,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,12,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,12,"FIELD",453,1) S ACDANS="" "DATA",160.16,12,"FIELD",453,2) BLANK "DATA",160.16,12,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,12,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,12,"FIELD",454,1) S ACDANS="" "DATA",160.16,12,"FIELD",454,2) BLANK "DATA",160.16,12,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,12,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,12,"FIELD",455,1) S ACDANS="" "DATA",160.16,12,"FIELD",455,2) BLANK "DATA",160.16,12,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,12,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,12,"FIELD",456,1) S ACDANS="" "DATA",160.16,12,"FIELD",456,2) BLANK "DATA",160.16,12,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,12,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,12,"FIELD",457,1) S ACDANS="" "DATA",160.16,12,"FIELD",457,2) BLANK "DATA",160.16,12,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,12,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,12,"FIELD",458,1) S ACDANS="" "DATA",160.16,12,"FIELD",458,2) BLANK "DATA",160.16,12,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,12,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,12,"FIELD",459,1) S ACDANS="" "DATA",160.16,12,"FIELD",459,2) BLANK "DATA",160.16,12,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,12,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,12,"FIELD",460,1) S ACDANS="" "DATA",160.16,12,"FIELD",460,2) BLANK "DATA",160.16,12,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,12,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,12,"FIELD",461,1) S ACDANS="" "DATA",160.16,12,"FIELD",461,2) BLANK "DATA",160.16,12,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,12,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,12,"FIELD",462,1) S ACDANS="" "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 ACDANS="" "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 ACDANS="" "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) 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,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) 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,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) 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,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) 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,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) 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,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) 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,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) BLANK "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) BLANK "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^Pain Assessment (item withdrawn by COC) "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=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,12,"FIELD",487,2) BLANK "DATA",160.16,12,"FIELD",487,3) L,ZERO^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) NINE "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 ACDANS="" "DATA",160.16,12,"FIELD",489,2) BLANK "DATA",160.16,12,"FIELD",489,3) L,BLANK^2935 "DATA",160.16,12,"FIELD",490,0) 711^6^716^CS Version Latest "DATA",160.16,12,"FIELD",490,1) S ACDANS="" "DATA",160.16,12,"FIELD",490,2) BLANK "DATA",160.16,12,"FIELD",490,3) L,BLANK^2936 "DATA",160.16,12,"RULES",0) ^160.162^8^8^3031125^^^^ "DATA",160.16,12,"RULES",1,0) S VALID=1 "DATA",160.16,12,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,12,"RULES",3,0) I "^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,12,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,12,"RULES",5,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,12,"RULES",6,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",7,0) S JUMP=0 "DATA",160.16,12,"RULES",8,0) K SCREEN "DATA",160.16,13,0) STATE EXTRACT V10.1 "DATA",160.16,13,"FIELD",0) ^160.161I^544^405 "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="00000000" "DATA",160.16,13,"FIELD",2,2) BLANK "DATA",160.16,13,"FIELD",2,3) L,ZERO^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) INSTITUTION ID NUMBER (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="A" "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) A 2003 Version (Version 10 and 10.1) "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") "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=$$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) "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^Year First Seen This CA "DATA",160.16,13,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,13,"FIELD",63,2) BLANK "DATA",160.16,13,"FIELD",63,3) L,ZERO^620 "DATA",160.16,13,"FIELD",63,4) ACCESSION YEAR (165.5,.07) "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) BLANK "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^1^447^Inpatient/Outpt Status "DATA",160.16,13,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,13,"FIELD",65,2) BLANK "DATA",160.16,13,"FIELD",65,3) L,BLANK^640 "DATA",160.16,13,"FIELD",65,4) INPATIENT/OUTPATIENT STATUS (165.5,123) "DATA",160.16,13,"FIELD",66,0) 448^1^448^Presentation at CA Conf "DATA",160.16,13,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,13,"FIELD",66,2) BLANK "DATA",160.16,13,"FIELD",66,3) L,BLANK^650 "DATA",160.16,13,"FIELD",66,4) PRESENTATION AT CANCER CONF (165.5,120) "DATA",160.16,13,"FIELD",67,0) 449^8^456^Date of CA Conference "DATA",160.16,13,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",67,2) BLANK "DATA",160.16,13,"FIELD",67,3) L,BLANK^660 "DATA",160.16,13,"FIELD",67,4) DATE OF CANCER CONF (165.5,121) "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) BLANK "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) BLANK "DATA",160.16,13,"FIELD",71,3) L,ZERO^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) BLANK "DATA",160.16,13,"FIELD",72,3) L,ZERO^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) BLANK "DATA",160.16,13,"FIELD",73,3) L,ZERO^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) BLANK "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^Loc/Reg/Distant Stage "DATA",160.16,13,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,13,"FIELD",78,2) BLANK "DATA",160.16,13,"FIELD",78,3) L,BLANK^770 "DATA",160.16,13,"FIELD",78,4) SEER SUMMARY STAGE 2000 (165.5,35) "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 ACDANS=4 "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) 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") "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) BLANK "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) BLANK "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^2^584^TNM Other T "DATA",160.16,13,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,13,"FIELD",101,2) BLANK "DATA",160.16,13,"FIELD",101,3) R,BLANK^1000 "DATA",160.16,13,"FIELD",101,4) OTHER T (165.5,93) "DATA",160.16,13,"FIELD",102,0) 585^2^586^TNM Other N "DATA",160.16,13,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,13,"FIELD",102,2) BLANK "DATA",160.16,13,"FIELD",102,3) R,BLANK^1010 "DATA",160.16,13,"FIELD",102,4) OTHER N (165.5,98) "DATA",160.16,13,"FIELD",103,0) 587^2^588^TNM Other M "DATA",160.16,13,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,13,"FIELD",103,2) BLANK "DATA",160.16,13,"FIELD",103,3) R,BLANK^1020 "DATA",160.16,13,"FIELD",103,4) OTHER M (165.5,99) "DATA",160.16,13,"FIELD",104,0) 589^2^590^TNM Other Stage Group "DATA",160.16,13,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,13,"FIELD",104,2) BLANK "DATA",160.16,13,"FIELD",104,3) R,BLANK^1030 "DATA",160.16,13,"FIELD",104,4) OTHER STAGE GROUP (165.5,117) "DATA",160.16,13,"FIELD",105,0) 591^1^591^TNM Other Staged By "DATA",160.16,13,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,13,"FIELD",105,2) BLANK "DATA",160.16,13,"FIELD",105,3) L,BLANK^1040 "DATA",160.16,13,"FIELD",105,4) STAGED BY (OTHER STAGE) (165.5,118) "DATA",160.16,13,"FIELD",106,0) 592^1^592^TNM Other Descriptor "DATA",160.16,13,"FIELD",106,1) S ACDANS="" "DATA",160.16,13,"FIELD",106,2) BLANK "DATA",160.16,13,"FIELD",106,3) L,BLANK^1050 "DATA",160.16,13,"FIELD",107,0) 593^2^594^TNM Edition Number "DATA",160.16,13,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(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^Other Staging System "DATA",160.16,13,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",108,2) BLANK "DATA",160.16,13,"FIELD",108,3) R,BLANK^1070 "DATA",160.16,13,"FIELD",108,4) OTHER STAGE (165.5,39) "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^38^754^Reserved 05 "DATA",160.16,13,"FIELD",119,1) S ACDANS="" "DATA",160.16,13,"FIELD",119,2) BLANK "DATA",160.16,13,"FIELD",119,3) L,BLANK^1180 "DATA",160.16,13,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,13,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "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) Earliest of SURGERY OF PRIMARY DATE (165.5,50), SCOPE OF LN SURGERY DATE (165.5,138.2) and SURG PROC/OTHER SITE DATE (165.5,139.2) "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=$$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",127,2) BLANK "DATA",160.16,13,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,13,"FIELD",127,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "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) BLANK "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") "DATA",160.16,13,"FIELD",132,2) BLANK "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") "DATA",160.16,13,"FIELD",134,2) BLANK "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) BLANK "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) BLANK "DATA",160.16,13,"FIELD",140,3) L,ZERO^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) BLANK "DATA",160.16,13,"FIELD",141,3) L,ZERO^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) BLANK "DATA",160.16,13,"FIELD",142,3) L,ZERO^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) BLANK "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^1^886^Reason for No Chemo "DATA",160.16,13,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,13,"FIELD",145,2) BLANK "DATA",160.16,13,"FIELD",145,3) L,BLANK^1440 "DATA",160.16,13,"FIELD",145,4) REASON FOR NO CHEMOTHERAPY (165.5,76) "DATA",160.16,13,"FIELD",146,0) 887^1^887^Reason for No Hormone "DATA",160.16,13,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,13,"FIELD",146,2) BLANK "DATA",160.16,13,"FIELD",146,3) L,BLANK^1450 "DATA",160.16,13,"FIELD",146,4) REASON FOR NO HORMONE THERAPY (165.5,77) "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",148,0) 890^1^890^Protocol Eligibility Stat "DATA",160.16,13,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,13,"FIELD",148,2) BLANK "DATA",160.16,13,"FIELD",148,3) L,BLANK^1470 "DATA",160.16,13,"FIELD",148,4) PROTOCOL ELIGIBILITY STATUS (165.5,346) "DATA",160.16,13,"FIELD",149,0) 891^2^892^Protocol Participation "DATA",160.16,13,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,13,"FIELD",149,2) BLANK "DATA",160.16,13,"FIELD",149,3) L,BLANK^1480 "DATA",160.16,13,"FIELD",149,4) PROTOCOL PARTICIPATION (165.5,560) "DATA",160.16,13,"FIELD",150,0) 893^1^893^Referral to Support Serv "DATA",160.16,13,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,13,"FIELD",150,2) BLANK "DATA",160.16,13,"FIELD",150,3) L,BLANK^1490 "DATA",160.16,13,"FIELD",150,4) REFERRAL TO SUPPORT SERVICES (165.5,122) "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) BLANK "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) BLANK "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^Rad--Elapsed RX Days "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^1530 "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) BLANK "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) BLANK "DATA",160.16,13,"FIELD",156,3) L,ZERO^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^Rad--Intent of Treatment "DATA",160.16,13,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,13,"FIELD",157,2) BLANK "DATA",160.16,13,"FIELD",157,3) L,ZERO^1560 "DATA",160.16,13,"FIELD",157,4) INTENT OF RADIATION (165.5,127) "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^1^918^Rad--RX Completion Status "DATA",160.16,13,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",159,2) BLANK "DATA",160.16,13,"FIELD",159,3) L,ZERO^1580 "DATA",160.16,13,"FIELD",159,4) RADIATION COMPLETION STATUS (165.5,128) "DATA",160.16,13,"FIELD",160,0) 919^1^919^Rad--Local Control Status "DATA",160.16,13,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,13,"FIELD",160,2) BLANK "DATA",160.16,13,"FIELD",160,3) L,ZERO^1590 "DATA",160.16,13,"FIELD",160,4) RADIATION LOCAL CONTROL STATUS (165.5,132) "DATA",160.16,13,"FIELD",161,0) 920^3^922^Chemotherapy Field 1 (item retired) "DATA",160.16,13,"FIELD",161,1) S ACDANS="" "DATA",160.16,13,"FIELD",161,2) BLANK "DATA",160.16,13,"FIELD",161,3) L,BLANK "DATA",160.16,13,"FIELD",162,0) 923^3^925^Chemotherapy Field 2 (item retired) "DATA",160.16,13,"FIELD",162,1) S ACDANS="" "DATA",160.16,13,"FIELD",162,2) BLANK "DATA",160.16,13,"FIELD",162,3) L,BLANK "DATA",160.16,13,"FIELD",163,0) 926^3^928^Chemotherapy Field 3 (item retired) "DATA",160.16,13,"FIELD",163,1) S ACDANS="" "DATA",160.16,13,"FIELD",163,2) BLANK "DATA",160.16,13,"FIELD",163,3) L,BLANK "DATA",160.16,13,"FIELD",164,0) 929^3^931^Chemotherapy Field 4 (item retired) "DATA",160.16,13,"FIELD",164,1) S ACDANS="" "DATA",160.16,13,"FIELD",164,2) BLANK "DATA",160.16,13,"FIELD",164,3) L,BLANK "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) 00000000 "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) 00000000 "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) 00000000 "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^8^1040^Subsq RX 5th Course Date "DATA",160.16,13,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,13,"FIELD",188,2) 00000000 "DATA",160.16,13,"FIELD",188,3) L,BLANK^1720 "DATA",160.16,13,"FIELD",188,4) INITIATION DATE (165.51,.01) "DATA",160.16,13,"FIELD",189,0) 1041^2^1042^Subsq RX 5th Course Surg "DATA",160.16,13,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,13,"FIELD",189,2) BLANK "DATA",160.16,13,"FIELD",189,3) L,ZERO^1731 "DATA",160.16,13,"FIELD",189,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,13,"FIELD",190,0) 1043^1^1043^Subsq RX 5th Course Rad "DATA",160.16,13,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,13,"FIELD",190,2) BLANK "DATA",160.16,13,"FIELD",190,3) L,BLANK^1732 "DATA",160.16,13,"FIELD",190,4) RADIATION (165.51,.05) "DATA",160.16,13,"FIELD",191,0) 1044^1^1044^Subsq RX 5th Course Chemo "DATA",160.16,13,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,13,"FIELD",191,2) BLANK "DATA",160.16,13,"FIELD",191,3) L,BLANK^1733 "DATA",160.16,13,"FIELD",191,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,13,"FIELD",192,0) 1045^1^1045^Subsq RX 5th Course Horm "DATA",160.16,13,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,13,"FIELD",192,2) BLANK "DATA",160.16,13,"FIELD",192,3) L,BLANK^1734 "DATA",160.16,13,"FIELD",192,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,13,"FIELD",193,0) 1046^1^1046^Subsq RX 5th Course BRM "DATA",160.16,13,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,13,"FIELD",193,2) BLANK "DATA",160.16,13,"FIELD",193,3) L,BLANK^1735 "DATA",160.16,13,"FIELD",193,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,13,"FIELD",194,0) 1047^1^1047^Subsq RX 5th Course Oth "DATA",160.16,13,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,13,"FIELD",194,2) BLANK "DATA",160.16,13,"FIELD",194,3) L,BLANK^1736 "DATA",160.16,13,"FIELD",194,4) OTHER TREATMENT (165.51,.09) "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) "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=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,13,"FIELD",204,2) BLANK "DATA",160.16,13,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,13,"FIELD",204,4) ZIP CODE (2,.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^Recurrence Type--1st--Oth "DATA",160.16,13,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,13,"FIELD",210,2) NINE "DATA",160.16,13,"FIELD",210,3) L,ZERO^1890 "DATA",160.16,13,"FIELD",210,4) OTHER TYPE OF FIRST RECURRENCE (165.5,71.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,"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,13,"FIELD",213,2) BLANK "DATA",160.16,13,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,13,"FIELD",213,4) CAUSE OF DEATH (160,19) "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 ACDANS=4 "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="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "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) Current date "DATA",160.16,13,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,13,"FIELD",233,1) S ACDANS="" 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) 6 January 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) 6 January 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=$$STATE~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 # e.g. VAV10.1P37 "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) BLANK "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) BLANK "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^1^474^RX Hosp--Screen/BX Proc1 "DATA",160.16,13,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,13,"FIELD",343,2) BLANK "DATA",160.16,13,"FIELD",343,3) L,BLANK^742 "DATA",160.16,13,"FIELD",343,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,13,"FIELD",344,0) 475^1^475^RX Hosp--Screen/BX Proc2 "DATA",160.16,13,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,13,"FIELD",344,2) BLANK "DATA",160.16,13,"FIELD",344,3) L,BLANK^743 "DATA",160.16,13,"FIELD",344,4) GUIDANCE (165.5,142) "DATA",160.16,13,"FIELD",345,0) 476^1^476^RX Hosp--Screen/BX Proc3 "DATA",160.16,13,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,13,"FIELD",345,2) BLANK "DATA",160.16,13,"FIELD",345,3) L,BLANK^744 "DATA",160.16,13,"FIELD",345,4) PALPABILITY OF PRIMARY (165.5,143) for breast cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) for prostate cases. "DATA",160.16,13,"FIELD",346,0) 477^1^477^RX Hosp--Screen/BX Proc4 "DATA",160.16,13,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,13,"FIELD",346,2) BLANK "DATA",160.16,13,"FIELD",346,3) L,BLANK^745 "DATA",160.16,13,"FIELD",346,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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) BLANK "DATA",160.16,13,"FIELD",347,3) L,ZERO^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=$$RXPRI~ONCACDU2(IEN,139.4,"SO5") "DATA",160.16,13,"FIELD",348,2) NINE "DATA",160.16,13,"FIELD",348,3) L,NINE^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^1^934^RX Summ--Screen/BX Proc1 "DATA",160.16,13,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,13,"FIELD",350,2) BLANK "DATA",160.16,13,"FIELD",350,3) L,BLANK^1642 "DATA",160.16,13,"FIELD",350,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,13,"FIELD",351,0) 935^1^935^RX Summ--Screen/BX Proc2 "DATA",160.16,13,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,13,"FIELD",351,2) BLANK "DATA",160.16,13,"FIELD",351,3) L,BLANK^1643 "DATA",160.16,13,"FIELD",351,4) GUIDANCE (165.5,142) "DATA",160.16,13,"FIELD",352,0) 936^1^936^RX Summ--Screen/BX Proc3 "DATA",160.16,13,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,13,"FIELD",352,2) BLANK "DATA",160.16,13,"FIELD",352,3) L,BLANK^1644 "DATA",160.16,13,"FIELD",352,4) PALPABILITY OF PRIMARY (165.5,143) for brest cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) for prostate cases. "DATA",160.16,13,"FIELD",353,0) 937^1^937^RX Summ--Screen/BX Proc4 "DATA",160.16,13,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,13,"FIELD",353,2) BLANK "DATA",160.16,13,"FIELD",353,3) L,BLANK^1645 "DATA",160.16,13,"FIELD",353,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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^1^1060^Subsq RX 5th--Scope LN Su "DATA",160.16,13,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,13,"FIELD",363,2) BLANK "DATA",160.16,13,"FIELD",363,3) L,BLANK^1737 "DATA",160.16,13,"FIELD",363,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,13,"FIELD",364,0) 1061^1^1061^Subsq RX 5th--Surg Oth "DATA",160.16,13,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,13,"FIELD",364,2) BLANK "DATA",160.16,13,"FIELD",364,3) L,BLANK^1738 "DATA",160.16,13,"FIELD",364,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,13,"FIELD",365,0) 1062^2^1063^Subsq RX 5th--Reg LN Rem "DATA",160.16,13,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,13,"FIELD",365,2) BLANK "DATA",160.16,13,"FIELD",365,3) L,BLANK^1739 "DATA",160.16,13,"FIELD",365,4) NUMBER OF NODES REMOVED (165.51,37) "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=$$CCTST~ONCACDU2(ACD160) "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) CITY (2,.114) "DATA",160.16,13,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,13,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,13,"FIELD",368,2) BLANK "DATA",160.16,13,"FIELD",368,3) L,BLANK^1844 "DATA",160.16,13,"FIELD",368,4) STATE (2,.115) "DATA",160.16,13,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,13,"FIELD",369,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "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 (2,.116) "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^8^1155^Future Use Timeliness 1 (item retired) "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",375,0) 1156^8^1163^Future Use Timeliness 2 (item retired) "DATA",160.16,13,"FIELD",375,1) S ACDANS="" "DATA",160.16,13,"FIELD",375,2) BLANK "DATA",160.16,13,"FIELD",375,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 Hospital "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 HOSPITAL (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^Reporting Hospital FAN "DATA",160.16,13,"FIELD",388,1) S ACDANS="" "DATA",160.16,13,"FIELD",388,2) ZERO "DATA",160.16,13,"FIELD",388,3) L,ZERO^538 "DATA",160.16,13,"FIELD",390,0) 322^50^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,ZERO^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) 1397^50^1446^Reserved 09 "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^1740 "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^20^51^Reserved 01 "DATA",160.16,13,"FIELD",403,1) S ACDANS="" "DATA",160.16,13,"FIELD",403,2) BLANK "DATA",160.16,13,"FIELD",403,3) L,BLANK^370 "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") "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) BLANK "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) BLANK "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) BLANK "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) BLANK "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="" "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) 231^50^280^Reserved 02 "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^530 "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) INSTITUTION ID NUMBER (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) BLANK "DATA",160.16,13,"FIELD",439,3) L,ZERO^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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "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 (165.5,29) "DATA",160.16,13,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,13,"FIELD",441,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "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 (165.5,30) "DATA",160.16,13,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,13,"FIELD",442,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29.1,"I") "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 (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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "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 (165.5,31) "DATA",160.16,13,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,13,"FIELD",444,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",444,2) BLANK "DATA",160.16,13,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,13,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,13,"FIELD",445,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",445,2) BLANK "DATA",160.16,13,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,13,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,13,"FIELD",446,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",446,2) BLANK "DATA",160.16,13,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,13,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,13,"FIELD",447,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",447,2) BLANK "DATA",160.16,13,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,13,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,13,"FIELD",448,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",448,2) BLANK "DATA",160.16,13,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,13,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,13,"FIELD",449,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",449,2) BLANK "DATA",160.16,13,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,13,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,13,"FIELD",450,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",450,2) BLANK "DATA",160.16,13,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,13,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,13,"FIELD",451,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",451,2) BLANK "DATA",160.16,13,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,13,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,13,"FIELD",452,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,13,"FIELD",452,2) BLANK "DATA",160.16,13,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,13,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,13,"FIELD",453,1) S ACDANS="" "DATA",160.16,13,"FIELD",453,2) BLANK "DATA",160.16,13,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,13,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,13,"FIELD",454,1) S ACDANS="" "DATA",160.16,13,"FIELD",454,2) BLANK "DATA",160.16,13,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,13,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,13,"FIELD",455,1) S ACDANS="" "DATA",160.16,13,"FIELD",455,2) BLANK "DATA",160.16,13,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,13,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,13,"FIELD",456,1) S ACDANS="" "DATA",160.16,13,"FIELD",456,2) BLANK "DATA",160.16,13,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,13,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,13,"FIELD",457,1) S ACDANS="" "DATA",160.16,13,"FIELD",457,2) BLANK "DATA",160.16,13,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,13,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,13,"FIELD",458,1) S ACDANS="" "DATA",160.16,13,"FIELD",458,2) BLANK "DATA",160.16,13,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,13,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,13,"FIELD",459,1) S ACDANS="" "DATA",160.16,13,"FIELD",459,2) BLANK "DATA",160.16,13,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,13,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,13,"FIELD",460,1) S ACDANS="" "DATA",160.16,13,"FIELD",460,2) BLANK "DATA",160.16,13,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,13,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,13,"FIELD",461,1) S ACDANS="" "DATA",160.16,13,"FIELD",461,2) BLANK "DATA",160.16,13,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,13,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,13,"FIELD",462,1) S ACDANS="" "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 ACDANS="" "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 ACDANS="" "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) 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,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) 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,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) 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,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) 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,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) 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,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) 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,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) BLANK "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) BLANK "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^Pain Assessment (item withdrawn by COC) "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)," ") "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") "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=$$ALIAS~ONCACDU1(ACD160) "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 (2,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") "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") "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") "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 (165.5,.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") "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 (165.5,.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="" "DATA",160.16,13,"FIELD",501,2) BLANK "DATA",160.16,13,"FIELD",501,3) L,BLANK^2394 "DATA",160.16,13,"FIELD",502,0) 2314^40^2353^Follow-Up Contact--No&St "DATA",160.16,13,"FIELD",502,1) S ACDANS="" "DATA",160.16,13,"FIELD",502,2) BLANK "DATA",160.16,13,"FIELD",502,3) L,BLANK^2392 "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^Last Follow-Up Hospital "DATA",160.16,13,"FIELD",507,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,13,"FIELD",507,2) ZERO "DATA",160.16,13,"FIELD",507,3) L,ZERO^2430 "DATA",160.16,13,"FIELD",507,4) REPORTING HOSPITAL (165.5,.03) "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^50^2554^Reserved 11 "DATA",160.16,13,"FIELD",511,1) S ACDANS="" "DATA",160.16,13,"FIELD",511,2) BLANK "DATA",160.16,13,"FIELD",511,3) L,BLANK^1900 "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") "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") "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") "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") "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") "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^50^2644^Reserved 12 "DATA",160.16,13,"FIELD",517,1) S ACDANS="" "DATA",160.16,13,"FIELD",517,2) BLANK "DATA",160.16,13,"FIELD",517,3) L,BLANK^1950 "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,250) "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^770^6694^Reserved 19 "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=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,13,"FIELD",541,2) BLANK "DATA",160.16,13,"FIELD",541,3) L,ZERO^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) NINE "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 ACDANS="" "DATA",160.16,13,"FIELD",543,2) BLANK "DATA",160.16,13,"FIELD",543,3) L,BLANK^2935 "DATA",160.16,13,"FIELD",544,0) 711^6^716^CS Version Latest "DATA",160.16,13,"FIELD",544,1) S ACDANS="" "DATA",160.16,13,"FIELD",544,2) BLANK "DATA",160.16,13,"FIELD",544,3) L,BLANK^2936 "DATA",160.16,13,"RULES",0) ^160.162^8^8^3031124^^^^ "DATA",160.16,13,"RULES",1,0) S VALID=1 "DATA",160.16,13,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,13,"RULES",3,0) I "^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,13,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,13,"RULES",5,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,13,"RULES",6,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",7,0) S JUMP=0 "DATA",160.16,13,"RULES",8,0) K SCREEN "DATA",160.16,14,0) VACCR EXTRACT V10.1 "DATA",160.16,14,"FIELD",0) ^160.161I^560^421 "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="00000000" "DATA",160.16,14,"FIELD",2,2) BLANK "DATA",160.16,14,"FIELD",2,3) L,ZERO^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) INSTITUTION ID NUMBER (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="A" "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) A 2003 Version (Version 10 and 10.1) "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") "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=$$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) "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^Year First Seen This CA "DATA",160.16,14,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,14,"FIELD",63,2) BLANK "DATA",160.16,14,"FIELD",63,3) L,ZERO^620 "DATA",160.16,14,"FIELD",63,4) ACCESSION YEAR (165.5,.07) "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) BLANK "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^1^447^Inpatient/Outpt Status "DATA",160.16,14,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,14,"FIELD",65,2) BLANK "DATA",160.16,14,"FIELD",65,3) L,BLANK^640 "DATA",160.16,14,"FIELD",65,4) INPATIENT/OUTPATIENT STATUS (165.5,123) "DATA",160.16,14,"FIELD",66,0) 448^1^448^Presentation at CA Conf "DATA",160.16,14,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,14,"FIELD",66,2) BLANK "DATA",160.16,14,"FIELD",66,3) L,BLANK^650 "DATA",160.16,14,"FIELD",66,4) PRESENTATION AT CANCER CONF (165.5,120) "DATA",160.16,14,"FIELD",67,0) 449^8^456^Date of CA Conference "DATA",160.16,14,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",67,2) BLANK "DATA",160.16,14,"FIELD",67,3) L,BLANK^660 "DATA",160.16,14,"FIELD",67,4) DATE OF CANCER CONF (165.5,121) "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) BLANK "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) BLANK "DATA",160.16,14,"FIELD",71,3) L,ZERO^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) BLANK "DATA",160.16,14,"FIELD",72,3) L,ZERO^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) BLANK "DATA",160.16,14,"FIELD",73,3) L,ZERO^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) BLANK "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^Loc/Reg/Distant Stage "DATA",160.16,14,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,14,"FIELD",78,2) BLANK "DATA",160.16,14,"FIELD",78,3) L,BLANK^770 "DATA",160.16,14,"FIELD",78,4) SEER SUMMARY STAGE 2000 (165.5,35) "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 ACDANS=4 "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) 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") "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",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) BLANK "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) BLANK "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^2^584^TNM Other T "DATA",160.16,14,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,14,"FIELD",101,2) BLANK "DATA",160.16,14,"FIELD",101,3) R,BLANK^1000 "DATA",160.16,14,"FIELD",101,4) OTHER T (165.5,93) "DATA",160.16,14,"FIELD",102,0) 585^2^586^TNM Other N "DATA",160.16,14,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,14,"FIELD",102,2) BLANK "DATA",160.16,14,"FIELD",102,3) R,BLANK^1010 "DATA",160.16,14,"FIELD",102,4) OTHER N (165.5,98) "DATA",160.16,14,"FIELD",103,0) 587^2^588^TNM Other M "DATA",160.16,14,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,14,"FIELD",103,2) BLANK "DATA",160.16,14,"FIELD",103,3) R,BLANK^1020 "DATA",160.16,14,"FIELD",104,0) 589^2^590^TNM Other Stage Group "DATA",160.16,14,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,14,"FIELD",104,2) BLANK "DATA",160.16,14,"FIELD",104,3) R,BLANK^1030 "DATA",160.16,14,"FIELD",104,4) OTHER STAGE GROUP (165.5,117) "DATA",160.16,14,"FIELD",105,0) 591^1^591^TNM Other Staged By "DATA",160.16,14,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,14,"FIELD",105,2) BLANK "DATA",160.16,14,"FIELD",105,3) L,BLANK^1040 "DATA",160.16,14,"FIELD",105,4) STAGED BY (OTHER STAGE) (165.5,118) "DATA",160.16,14,"FIELD",106,0) 592^1^592^TNM Other Descriptor "DATA",160.16,14,"FIELD",106,1) S ACDANS="" "DATA",160.16,14,"FIELD",106,2) BLANK "DATA",160.16,14,"FIELD",106,3) L,BLANK^1050 "DATA",160.16,14,"FIELD",107,0) 593^2^594^TNM Edition Number "DATA",160.16,14,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(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^Other Staging System "DATA",160.16,14,"FIELD",108,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",108,2) BLANK "DATA",160.16,14,"FIELD",108,3) R,BLANK^1070 "DATA",160.16,14,"FIELD",108,4) OTHER STAGE (165.5,39) "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^38^754^Reserved 05 "DATA",160.16,14,"FIELD",119,1) S ACDANS="" "DATA",160.16,14,"FIELD",119,2) BLANK "DATA",160.16,14,"FIELD",119,3) L,BLANK^1180 "DATA",160.16,14,"FIELD",121,0) 755^8^762^RX Date--Surgery "DATA",160.16,14,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "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) Earliest of SURGERY OF PRIMARY DATE (165.5,50), SCOPE OF LN SURGERY DATE (165.5,138.2) and SURG PROC/OTHER SITE DATE (165.5,139.2) "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=$$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",127,2) BLANK "DATA",160.16,14,"FIELD",127,3) L,ZERO^1260 "DATA",160.16,14,"FIELD",127,4) FIRST COURSE OF TREATMENT DATE (165.5,49) "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) BLANK "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") "DATA",160.16,14,"FIELD",132,2) BLANK "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") "DATA",160.16,14,"FIELD",134,2) BLANK "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) BLANK "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) BLANK "DATA",160.16,14,"FIELD",140,3) L,ZERO^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) BLANK "DATA",160.16,14,"FIELD",141,3) L,ZERO^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) BLANK "DATA",160.16,14,"FIELD",142,3) L,ZERO^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) BLANK "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^1^886^Reason for No Chemo "DATA",160.16,14,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,14,"FIELD",145,2) BLANK "DATA",160.16,14,"FIELD",145,3) L,BLANK^1440 "DATA",160.16,14,"FIELD",145,4) REASON FOR NO CHEMOTHERAPY (165.5,76) "DATA",160.16,14,"FIELD",146,0) 887^1^887^Reason for No Hormone "DATA",160.16,14,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,14,"FIELD",146,2) BLANK "DATA",160.16,14,"FIELD",146,3) L,BLANK^1450 "DATA",160.16,14,"FIELD",146,4) REASON FOR NO HORMONE THERAPY (165.5,77) "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",148,0) 890^1^890^Protocol Eligibility Stat "DATA",160.16,14,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,14,"FIELD",148,2) BLANK "DATA",160.16,14,"FIELD",148,3) L,BLANK^1470 "DATA",160.16,14,"FIELD",148,4) PROTOCOL ELIGIBILITY STATUS (165.5,346) "DATA",160.16,14,"FIELD",149,0) 891^2^892^Protocol Participation "DATA",160.16,14,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,14,"FIELD",149,2) BLANK "DATA",160.16,14,"FIELD",149,3) L,BLANK^1480 "DATA",160.16,14,"FIELD",149,4) PROTOCOL PARTICIPATION (165.5,560) "DATA",160.16,14,"FIELD",150,0) 893^1^893^Referral to Support Serv "DATA",160.16,14,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,14,"FIELD",150,2) BLANK "DATA",160.16,14,"FIELD",150,3) L,BLANK^1490 "DATA",160.16,14,"FIELD",150,4) REFERRAL TO SUPPORT SERVICES (165.5,122) "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) BLANK "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) BLANK "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^Rad--Elapsed RX Days "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^1530 "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) BLANK "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) BLANK "DATA",160.16,14,"FIELD",156,3) L,ZERO^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^Rad--Intent of Treatment "DATA",160.16,14,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,14,"FIELD",157,2) BLANK "DATA",160.16,14,"FIELD",157,3) L,ZERO^1560 "DATA",160.16,14,"FIELD",157,4) INTENT OF RADIATION (165.5,127) "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^1^918^Rad--RX Completion Status "DATA",160.16,14,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",159,2) BLANK "DATA",160.16,14,"FIELD",159,3) L,ZERO^1580 "DATA",160.16,14,"FIELD",159,4) RADIATION COMPLETION STATUS (165.5,128) "DATA",160.16,14,"FIELD",160,0) 919^1^919^Rad--Local Control Status "DATA",160.16,14,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,14,"FIELD",160,2) BLANK "DATA",160.16,14,"FIELD",160,3) L,ZERO^1590 "DATA",160.16,14,"FIELD",160,4) RADIATION LOCAL CONTROL STATUS (165.5,132) "DATA",160.16,14,"FIELD",161,0) 920^3^922^Chemotherapy Field 1 (item retired) "DATA",160.16,14,"FIELD",161,1) S ACDANS="" "DATA",160.16,14,"FIELD",161,2) BLANK "DATA",160.16,14,"FIELD",161,3) L,BLANK "DATA",160.16,14,"FIELD",162,0) 923^3^925^Chemotherapy Field 2 (item retired) "DATA",160.16,14,"FIELD",162,1) S ACDANS="" "DATA",160.16,14,"FIELD",162,2) BLANK "DATA",160.16,14,"FIELD",162,3) L,BLANK "DATA",160.16,14,"FIELD",163,0) 926^3^928^Chemotherapy Field 3 (item retired) "DATA",160.16,14,"FIELD",163,1) S ACDANS="" "DATA",160.16,14,"FIELD",163,2) BLANK "DATA",160.16,14,"FIELD",163,3) L,BLANK "DATA",160.16,14,"FIELD",164,0) 929^3^931^Chemotherapy Field 4 (item retired) "DATA",160.16,14,"FIELD",164,1) S ACDANS="" "DATA",160.16,14,"FIELD",164,2) BLANK "DATA",160.16,14,"FIELD",164,3) L,BLANK "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) 00000000 "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) 00000000 "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) 00000000 "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^8^1040^Subsq RX 5th Course Date "DATA",160.16,14,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,14,"FIELD",188,2) 00000000 "DATA",160.16,14,"FIELD",188,3) L,BLANK^1720 "DATA",160.16,14,"FIELD",188,4) INITIATION DATE (165.51,.01) "DATA",160.16,14,"FIELD",189,0) 1041^2^1042^Subsq RX 5th Course Surg "DATA",160.16,14,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,14,"FIELD",189,2) BLANK "DATA",160.16,14,"FIELD",189,3) L,ZERO^1731 "DATA",160.16,14,"FIELD",189,4) SURGERY OF PRIMARY SITE (165.51,.04) "DATA",160.16,14,"FIELD",190,0) 1043^1^1043^Subsq RX 5th Course Rad "DATA",160.16,14,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,14,"FIELD",190,2) BLANK "DATA",160.16,14,"FIELD",190,3) L,BLANK^1732 "DATA",160.16,14,"FIELD",190,4) RADIATION (165.51,.05) "DATA",160.16,14,"FIELD",191,0) 1044^1^1044^Subsq RX 5th Course Chemo "DATA",160.16,14,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,14,"FIELD",191,2) BLANK "DATA",160.16,14,"FIELD",191,3) L,BLANK^1733 "DATA",160.16,14,"FIELD",191,4) CHEMOTHERAPY (165.51,.06) "DATA",160.16,14,"FIELD",192,0) 1045^1^1045^Subsq RX 5th Course Horm "DATA",160.16,14,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,14,"FIELD",192,2) BLANK "DATA",160.16,14,"FIELD",192,3) L,BLANK^1734 "DATA",160.16,14,"FIELD",192,4) HORMONE THERAPY (165.51,.07) "DATA",160.16,14,"FIELD",193,0) 1046^1^1046^Subsq RX 5th Course BRM "DATA",160.16,14,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,14,"FIELD",193,2) BLANK "DATA",160.16,14,"FIELD",193,3) L,BLANK^1735 "DATA",160.16,14,"FIELD",193,4) IMMUNOTHERAPY (165.51,.08) "DATA",160.16,14,"FIELD",194,0) 1047^1^1047^Subsq RX 5th Course Oth "DATA",160.16,14,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,14,"FIELD",194,2) BLANK "DATA",160.16,14,"FIELD",194,3) L,BLANK^1736 "DATA",160.16,14,"FIELD",194,4) OTHER TREATMENT (165.51,.09) "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) "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=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,14,"FIELD",204,2) BLANK "DATA",160.16,14,"FIELD",204,3) R,BLANK^1830 "DATA",160.16,14,"FIELD",204,4) ZIP CODE (2,.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^Recurrence Type--1st--Oth "DATA",160.16,14,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,14,"FIELD",210,2) NINE "DATA",160.16,14,"FIELD",210,3) L,ZERO^1890 "DATA",160.16,14,"FIELD",210,4) OTHER TYPE OF FIRST RECURRENCE (165.5,71.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,"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,14,"FIELD",213,2) BLANK "DATA",160.16,14,"FIELD",213,3) L,ZERO^1910 "DATA",160.16,14,"FIELD",213,4) CAUSE OF DEATH (160,19) "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",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="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "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) Current date "DATA",160.16,14,"FIELD",233,0) 1190^8^1197^Date Case Report Exported "DATA",160.16,14,"FIELD",233,1) S ACDANS="" 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) 6 January 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) 6 January 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=$$STATE~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 # e.g. VAV10.1P37 "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) BLANK "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) BLANK "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^1^474^RX Hosp--Screen/BX Proc1 "DATA",160.16,14,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,14,"FIELD",343,2) BLANK "DATA",160.16,14,"FIELD",343,3) L,BLANK^742 "DATA",160.16,14,"FIELD",343,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,14,"FIELD",344,0) 475^1^475^RX Hosp--Screen/BX Proc2 "DATA",160.16,14,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,14,"FIELD",344,2) BLANK "DATA",160.16,14,"FIELD",344,3) L,BLANK^743 "DATA",160.16,14,"FIELD",344,4) GUIDANCE (165.5,142) "DATA",160.16,14,"FIELD",345,0) 476^1^476^RX Hosp--Screen/BX Proc3 "DATA",160.16,14,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,14,"FIELD",345,2) BLANK "DATA",160.16,14,"FIELD",345,3) L,BLANK^744 "DATA",160.16,14,"FIELD",345,4) PALPABILITY OF PRIMARY (165.5,143) for breast cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) "DATA",160.16,14,"FIELD",346,0) 477^1^477^RX Hosp--Screen/BX Proc4 "DATA",160.16,14,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,14,"FIELD",346,2) BLANK "DATA",160.16,14,"FIELD",346,3) L,BLANK^745 "DATA",160.16,14,"FIELD",346,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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) BLANK "DATA",160.16,14,"FIELD",347,3) L,ZERO^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=$$RXPRI~ONCACDU2(IEN,139.4,"SO5") "DATA",160.16,14,"FIELD",348,2) NINE "DATA",160.16,14,"FIELD",348,3) L,NINE^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) BLANK "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^1^934^RX Summ--Screen/BX Proc1 "DATA",160.16,14,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,14,"FIELD",350,2) BLANK "DATA",160.16,14,"FIELD",350,3) L,BLANK^1642 "DATA",160.16,14,"FIELD",350,4) BIOPSY PROCEDURE (165.5,141) "DATA",160.16,14,"FIELD",351,0) 935^1^935^RX Summ--Screen/BX Proc2 "DATA",160.16,14,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,14,"FIELD",351,2) BLANK "DATA",160.16,14,"FIELD",351,3) L,BLANK^1643 "DATA",160.16,14,"FIELD",351,4) GUIDANCE (165.5,142) "DATA",160.16,14,"FIELD",352,0) 936^1^936^RX Summ--Screen/BX Proc3 "DATA",160.16,14,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,14,"FIELD",352,2) BLANK "DATA",160.16,14,"FIELD",352,3) L,BLANK^1644 "DATA",160.16,14,"FIELD",352,4) PALPABILITY OF PRIMARY (165.5,143) for brest cases. APPROACH FOR BIOPSY OF PRIMARY (165.5,145) for prostate cases. "DATA",160.16,14,"FIELD",353,0) 937^1^937^RX Summ--Screen/BX Proc4 "DATA",160.16,14,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,14,"FIELD",353,2) BLANK "DATA",160.16,14,"FIELD",353,3) L,BLANK^1645 "DATA",160.16,14,"FIELD",353,4) FIRST DETECTED BY (165.5,144) for breast cases. BIOPSY OF OTHER THAN PRIMARY (165.5,146) for prostate cases. "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^1^1060^Subsq RX 5th--Scope LN Su "DATA",160.16,14,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,14,"FIELD",363,2) BLANK "DATA",160.16,14,"FIELD",363,3) L,BLANK^1737 "DATA",160.16,14,"FIELD",363,4) SCOPE OF LYMPH NODE SURGERY (165.51,35) "DATA",160.16,14,"FIELD",364,0) 1061^1^1061^Subsq RX 5th--Surg Oth "DATA",160.16,14,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,14,"FIELD",364,2) BLANK "DATA",160.16,14,"FIELD",364,3) L,BLANK^1738 "DATA",160.16,14,"FIELD",364,4) SURGICAL PROC/OTHER SITE (165.51,36) "DATA",160.16,14,"FIELD",365,0) 1062^2^1063^Subsq RX 5th--Reg LN Rem "DATA",160.16,14,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,14,"FIELD",365,2) BLANK "DATA",160.16,14,"FIELD",365,3) L,BLANK^1739 "DATA",160.16,14,"FIELD",365,4) NUMBER OF NODES REMOVED (165.51,37) "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=$$CCTST~ONCACDU2(ACD160) "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) CITY (2,.114) "DATA",160.16,14,"FIELD",368,0) 1377^2^1378^Follow-Up Contact--State "DATA",160.16,14,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,14,"FIELD",368,2) BLANK "DATA",160.16,14,"FIELD",368,3) L,BLANK^1844 "DATA",160.16,14,"FIELD",368,4) STATE (2,.115) "DATA",160.16,14,"FIELD",369,0) 1379^9^1387^Follow-Up Contact--Postal "DATA",160.16,14,"FIELD",369,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "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 (2,.116) "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^8^1155^Future Use Timeliness 1 (item retired) "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",375,0) 1156^8^1163^Future Use Timeliness 2 (item retired) "DATA",160.16,14,"FIELD",375,1) S ACDANS="" "DATA",160.16,14,"FIELD",375,2) BLANK "DATA",160.16,14,"FIELD",375,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 Hospital "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 HOSPITAL (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^Reporting Hospital FAN "DATA",160.16,14,"FIELD",388,1) S ACDANS="" "DATA",160.16,14,"FIELD",388,2) ZERO "DATA",160.16,14,"FIELD",388,3) L,ZERO^538 "DATA",160.16,14,"FIELD",390,0) 322^50^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,ZERO^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) 1397^50^1446^Reserved 09 "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^1740 "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",403,0) 32^20^51^Reserved 01 "DATA",160.16,14,"FIELD",403,1) S ACDANS="" "DATA",160.16,14,"FIELD",403,2) BLANK "DATA",160.16,14,"FIELD",403,3) L,BLANK^370 "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") "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) BLANK "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) BLANK "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) BLANK "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) BLANK "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="" "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) 231^50^280^Reserved 02 "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^530 "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) INSTITUTION ID NUMBER (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) BLANK "DATA",160.16,14,"FIELD",439,3) L,ZERO^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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "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 (165.5,29) "DATA",160.16,14,"FIELD",441,0) 632^2^633^CS Extension "DATA",160.16,14,"FIELD",441,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "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 (165.5,30) "DATA",160.16,14,"FIELD",442,0) 634^1^634^CS Tumor Size/Ext Eval "DATA",160.16,14,"FIELD",442,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,29.1,"I") "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 (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 ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "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 (165.5,31) "DATA",160.16,14,"FIELD",444,0) 637^1^637^CS Reg Nodes Eval "DATA",160.16,14,"FIELD",444,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",444,2) BLANK "DATA",160.16,14,"FIELD",444,3) L,BLANK^2840 "DATA",160.16,14,"FIELD",445,0) 638^2^639^CS Mets at DX "DATA",160.16,14,"FIELD",445,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",445,2) BLANK "DATA",160.16,14,"FIELD",445,3) L,BLANK^2850 "DATA",160.16,14,"FIELD",446,0) 640^1^640^CS Mets Eval "DATA",160.16,14,"FIELD",446,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",446,2) BLANK "DATA",160.16,14,"FIELD",446,3) L,BLANK^2860 "DATA",160.16,14,"FIELD",447,0) 641^3^643^CS Site-Specific Factor 1 "DATA",160.16,14,"FIELD",447,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",447,2) BLANK "DATA",160.16,14,"FIELD",447,3) L,BLANK^2880 "DATA",160.16,14,"FIELD",448,0) 644^3^646^CS Site-Specific Factor 2 "DATA",160.16,14,"FIELD",448,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",448,2) BLANK "DATA",160.16,14,"FIELD",448,3) L,BLANK^2890 "DATA",160.16,14,"FIELD",449,0) 647^3^649^CS Site-Specific Factor 3 "DATA",160.16,14,"FIELD",449,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",449,2) BLANK "DATA",160.16,14,"FIELD",449,3) L,BLANK^2900 "DATA",160.16,14,"FIELD",450,0) 650^3^652^CS Site-Specific Factor 4 "DATA",160.16,14,"FIELD",450,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",450,2) BLANK "DATA",160.16,14,"FIELD",450,3) L,BLANK^2910 "DATA",160.16,14,"FIELD",451,0) 653^3^655^CS Site-Specific Factor 5 "DATA",160.16,14,"FIELD",451,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",451,2) BLANK "DATA",160.16,14,"FIELD",451,3) L,BLANK^2920 "DATA",160.16,14,"FIELD",452,0) 656^3^658^CS Site-Specific Factor 6 "DATA",160.16,14,"FIELD",452,1) S ACDANS="",DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") I DATEDX>3031231 S ACDANS="" "DATA",160.16,14,"FIELD",452,2) BLANK "DATA",160.16,14,"FIELD",452,3) L,BLANK^2930 "DATA",160.16,14,"FIELD",453,0) 659^2^660^Derived AJCC T "DATA",160.16,14,"FIELD",453,1) S ACDANS="" "DATA",160.16,14,"FIELD",453,2) BLANK "DATA",160.16,14,"FIELD",453,3) L,BLANK^2940 "DATA",160.16,14,"FIELD",454,0) 661^1^661^Derived AJCC T Desciptor "DATA",160.16,14,"FIELD",454,1) S ACDANS="" "DATA",160.16,14,"FIELD",454,2) BLANK "DATA",160.16,14,"FIELD",454,3) L,BLANK^2950 "DATA",160.16,14,"FIELD",455,0) 662^2^663^Derived AJCC N "DATA",160.16,14,"FIELD",455,1) S ACDANS="" "DATA",160.16,14,"FIELD",455,2) BLANK "DATA",160.16,14,"FIELD",455,3) L,BLANK^2960 "DATA",160.16,14,"FIELD",456,0) 664^1^664^Derived AJCC N Descriptor "DATA",160.16,14,"FIELD",456,1) S ACDANS="" "DATA",160.16,14,"FIELD",456,2) BLANK "DATA",160.16,14,"FIELD",456,3) L,BLANK^2970 "DATA",160.16,14,"FIELD",457,0) 665^2^666^Derived AJCC M "DATA",160.16,14,"FIELD",457,1) S ACDANS="" "DATA",160.16,14,"FIELD",457,2) BLANK "DATA",160.16,14,"FIELD",457,3) L,BLANK^2980 "DATA",160.16,14,"FIELD",458,0) 667^1^667^Derived AJCC M Descriptor "DATA",160.16,14,"FIELD",458,1) S ACDANS="" "DATA",160.16,14,"FIELD",458,2) BLANK "DATA",160.16,14,"FIELD",458,3) L,BLANK^2990 "DATA",160.16,14,"FIELD",459,0) 668^2^669^Derived AJCC Stage Group "DATA",160.16,14,"FIELD",459,1) S ACDANS="" "DATA",160.16,14,"FIELD",459,2) BLANK "DATA",160.16,14,"FIELD",459,3) L,BLANK^3000 "DATA",160.16,14,"FIELD",460,0) 670^1^670^Derived SS1977 "DATA",160.16,14,"FIELD",460,1) S ACDANS="" "DATA",160.16,14,"FIELD",460,2) BLANK "DATA",160.16,14,"FIELD",460,3) L,BLANK^3010 "DATA",160.16,14,"FIELD",461,0) 671^1^671^Derived SS2000 "DATA",160.16,14,"FIELD",461,1) S ACDANS="" "DATA",160.16,14,"FIELD",461,2) BLANK "DATA",160.16,14,"FIELD",461,3) L,BLANK^3020 "DATA",160.16,14,"FIELD",462,0) 672^1^672^Derived AJCC--Flag "DATA",160.16,14,"FIELD",462,1) S ACDANS="" "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 ACDANS="" "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 ACDANS="" "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) SURGERY OF PRIMARY 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) BLANK "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) BLANK "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^Pain Assessment (item withdrawn by COC) "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)," ") "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") "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=$$ALIAS~ONCACDU1(ACD160) "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 (2,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") "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") "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") "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 (165.5,.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") "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 (165.5,.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="" "DATA",160.16,14,"FIELD",501,2) BLANK "DATA",160.16,14,"FIELD",501,3) L,BLANK^2394 "DATA",160.16,14,"FIELD",502,0) 2314^40^2353^Follow-Up Contact--No&St "DATA",160.16,14,"FIELD",502,1) S ACDANS="" "DATA",160.16,14,"FIELD",502,2) BLANK "DATA",160.16,14,"FIELD",502,3) L,BLANK^2392 "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^Last Follow-Up Hospital "DATA",160.16,14,"FIELD",507,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,14,"FIELD",507,2) ZERO "DATA",160.16,14,"FIELD",507,3) L,ZERO^2430 "DATA",160.16,14,"FIELD",507,4) REPORTING HOSPITAL (165.5,.03) "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^50^2554^Reserved 11 "DATA",160.16,14,"FIELD",511,1) S ACDANS="" "DATA",160.16,14,"FIELD",511,2) BLANK "DATA",160.16,14,"FIELD",511,3) L,BLANK^1900 "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") "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") "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") "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") "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") "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^50^2644^Reserved 12 "DATA",160.16,14,"FIELD",517,1) S ACDANS="" "DATA",160.16,14,"FIELD",517,2) BLANK "DATA",160.16,14,"FIELD",517,3) L,BLANK^1950 "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,250) "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^770^6694^Reserved 19 "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) 1506^277^1783^Reserved for Expansion "DATA",160.16,14,"FIELD",544,1) S ACDANS="" "DATA",160.16,14,"FIELD",544,2) BLANK "DATA",160.16,14,"FIELD",544,3) L,BLANK "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^Somalia Service "DATA",160.16,14,"FIELD",548,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,56,"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) SOMALIA SERVICE (160,56) "DATA",160.16,14,"FIELD",549,0) 1807^1^1807^Previous History of Cancer "DATA",160.16,14,"FIELD",549,1) S ACDANS=$$GET1~DIQ(165.5,IEN,148,"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) PREVIOUS HISTORY OF CANCER (165.5,148) "DATA",160.16,14,"FIELD",550,0) 1808^1^1808^Middle East 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) MIDDLE EAST 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^138^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=$$GET1~DIQ(165.5,IEN,138,"I") "DATA",160.16,14,"FIELD",557,2) BLANK "DATA",160.16,14,"FIELD",557,3) L,ZERO^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 ACDANS="" "DATA",160.16,14,"FIELD",559,2) BLANK "DATA",160.16,14,"FIELD",559,3) L,BLANK^2935 "DATA",160.16,14,"FIELD",560,0) 711^6^716^CS Version Latest "DATA",160.16,14,"FIELD",560,1) S ACDANS="" "DATA",160.16,14,"FIELD",560,2) BLANK "DATA",160.16,14,"FIELD",560,3) L,BLANK^2936 "DATA",160.16,14,"RULES",0) ^160.162^8^8^3031124^^^^ "DATA",160.16,14,"RULES",1,0) S VALID=1 "DATA",160.16,14,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,14,"RULES",3,0) I "^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,14,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,14,"RULES",5,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,14,"RULES",6,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",7,0) S JUMP=0 "DATA",160.16,14,"RULES",8,0) K SCREEN "DATA",164.33,1,0) SMALL INTESTINE^^ "DATA",164.33,2,0) PLEURAL MESOTHELIOMA^^ "DATA",164.33,3,0) LIP AND ORAL CAVITY^^ "DATA",164.33,3,"M",0) ^164.334^4^4 "DATA",164.33,3,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,3,"M",2,0) No distant metastasis^0^0 "DATA",164.33,3,"M",3,0) Distant metastasis^1^1 "DATA",164.33,3,"M",4,0) NA^88^88 "DATA",164.33,4,0) PHARYNX^^ "DATA",164.33,5,0) LARYNX^^ "DATA",164.33,6,0) PARANASAL SINUSES^^ "DATA",164.33,7,0) MAJOR SALIVARY GLANDS^^ "DATA",164.33,8,0) THYROID GLAND^^ "DATA",164.33,9,0) ESOPHAGUS^^ "DATA",164.33,10,0) STOMACH^^ "DATA",164.33,11,0) COLON & RECTUM^^ "DATA",164.33,12,0) ANAL CANAL^^ "DATA",164.33,13,0) LIVER^^ "DATA",164.33,14,0) GALLBLADDER^^ "DATA",164.33,14,"N",0) ^164.332^6^6 "DATA",164.33,14,"N",1,0) NCA^X^X "DATA",164.33,14,"N",2,0) NRN^0^0 "DATA",164.33,14,"N",3,0) REGIONAL LYMPH NODE METS^1^1 "DATA",164.33,14,"N",4,0) METS CYSTIC DUCT/PERICHOCHOLEDO/HILAR^1a^1A "DATA",164.33,14,"N",5,0) METS PERIPAN/DUOD/PORT, etc^1b^1B "DATA",164.33,14,"N",6,0) Not Applicable^88^88 "DATA",164.33,15,0) EXTRAHEPATIC BILE DUCTS^^ "DATA",164.33,15,"N",0) ^164.332^6^6 "DATA",164.33,15,"N",1,0) NCA^X^X "DATA",164.33,15,"N",2,0) NRN^0^0 "DATA",164.33,15,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164.33,15,"N",4,0) Cystic duct, pericholedochal/hilar lymph n^1a^1A "DATA",164.33,15,"N",5,0) Peripancreatic, periduodenal, periportal, etc^1b^1B "DATA",164.33,15,"N",6,0) NA^88^88 "DATA",164.33,16,0) AMPULLA OF VATER^^ "DATA",164.33,17,0) EXOCRINE PANCREAS^^ "DATA",164.33,18,0) LUNG^^ "DATA",164.33,19,0) BONE^^ "DATA",164.33,20,0) SOFT TISSUES^^ "DATA",164.33,21,0) SKIN CARCINOMA^^ "DATA",164.33,22,0) SKIN MELANOMA^^ "DATA",164.33,22,1,0) ^164.336^18^18^3020729^^^^ "DATA",164.33,22,1,1,0) Primary Tumor (T) "DATA",164.33,22,1,2,0) "DATA",164.33,22,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,22,1,4,0) T0 No evidence of primary tumor "DATA",164.33,22,1,5,0) Tis Melanoma 'in situ' (atypical melanocytic hyperplasia, severe melanocytic "DATA",164.33,22,1,6,0) dysplasia), not an invasive malignant lesion (Clark's Level I) "DATA",164.33,22,1,7,0) T1 Tumor 0.75 mm or less in thickness and invades the papillary dermis "DATA",164.33,22,1,8,0) (Clark's Level II) "DATA",164.33,22,1,9,0) T2 Tumor more than 0.75 mm but not more than 1.5 mm in thickness and/or "DATA",164.33,22,1,10,0) invades to papillary-reticular dermal interface (Clark's Level III) "DATA",164.33,22,1,11,0) T3 Tumor more than 1.5 mm but not more than 4 mm in thickness and/or "DATA",164.33,22,1,12,0) invades the reticular dermis (Clark's Level IV) "DATA",164.33,22,1,13,0) T3a Tumor more than 1.5 mm but not more than 3 mm in thickness "DATA",164.33,22,1,14,0) T3b Tumor more than 3 mm but not more than 4 mm in thickness "DATA",164.33,22,1,15,0) T4 Tumor more than 4 mm in thickness and/or invades the subcutaneous tissue "DATA",164.33,22,1,16,0) (Clark's Level V) and/or satellite(s) with 2 cm of the primary tumor "DATA",164.33,22,1,17,0) T4a Tumor more than 4 mm in thickness and/or invades the subcutaneous tissue "DATA",164.33,22,1,18,0) T4b Satellite(s) with 2 cm of the primary tumor "DATA",164.33,22,2,0) ^164.337^18^18^3020730^^^^ "DATA",164.33,22,2,1,0) Regional Lymph Nodes (N) "DATA",164.33,22,2,2,0) "DATA",164.33,22,2,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,22,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,22,2,5,0) N1 Metastasis 3 cm or less in greastest dimension "DATA",164.33,22,2,6,0) in any regional lymph node(s) "DATA",164.33,22,2,7,0) N2 Metastasis more than 3 cm in greatest dimension "DATA",164.33,22,2,8,0) in any regional lymph node(s) and/or in-transit "DATA",164.33,22,2,9,0) metastasis "DATA",164.33,22,2,10,0) N2a Metastasis more than 3 cm in greatest dimension "DATA",164.33,22,2,11,0) in any regional lymph node(s) "DATA",164.33,22,2,12,0) N2b In-transit metastasis "DATA",164.33,22,2,13,0) N2c Both (N2a and N2b) "DATA",164.33,22,2,14,0) "DATA",164.33,22,2,15,0) Note: In-transit metastasis involves skin or "DATA",164.33,22,2,16,0) subcutaneous tissue more than 2 cm from the "DATA",164.33,22,2,17,0) primary tumor but not beyond the regional lymph "DATA",164.33,22,2,18,0) nodes. "DATA",164.33,22,3,0) ^164.338^9^9^3020730^^^^ "DATA",164.33,22,3,1,0) Distant Metastasis (M) "DATA",164.33,22,3,2,0) "DATA",164.33,22,3,3,0) MX Distant metastasis cannot be assessed "DATA",164.33,22,3,4,0) M0 No distant metastasis "DATA",164.33,22,3,5,0) M1 Distant metastasis "DATA",164.33,22,3,6,0) M1a Metastasis in skin or subcutaneous "DATA",164.33,22,3,7,0) tissue or lymph node(s) beyond the "DATA",164.33,22,3,8,0) regional lymph nodes "DATA",164.33,22,3,9,0) M1b Visceral metastasis "DATA",164.33,22,4,0) ^164.3311^21^21^3020729^^ "DATA",164.33,22,4,1,0) Primary Tumor (T) "DATA",164.33,22,4,2,0) "DATA",164.33,22,4,3,0) TX Primary tumor cannot be assessed (e.g. shave "DATA",164.33,22,4,4,0) biopsy or regressed melanoma) "DATA",164.33,22,4,5,0) T0 No evidence of primary tumor "DATA",164.33,22,4,6,0) Tis Melanoma 'in situ' "DATA",164.33,22,4,7,0) T1 Melanoma < or = 1.0 mm in thickness with or without ulceration "DATA",164.33,22,4,8,0) T1a Melanoma < or = 1.0 mm in thickness and level II or "DATA",164.33,22,4,9,0) III, no ulceration "DATA",164.33,22,4,10,0) T1b Melanoma < or = 1.0 mm in thickness and level IV or "DATA",164.33,22,4,11,0) V or with ulceration "DATA",164.33,22,4,12,0) T2 Melanoma 1.01 - 2 mm in thickness with or without ulceration "DATA",164.33,22,4,13,0) T2a Melanoma 1.01 - 2 mm in thickness, no ulceration "DATA",164.33,22,4,14,0) T2b Melanoma 1.01 - 2 mm in thickness, with ulceration "DATA",164.33,22,4,15,0) T3 Melanoma 2.01 - 4 mm in thickness with or without ulceration "DATA",164.33,22,4,16,0) T3a Melanoma 2.01 - 4 mm in thickness, no ulceration "DATA",164.33,22,4,17,0) T3b Melanoma 2.01 - 4 mm in thickness, with ulceration "DATA",164.33,22,4,18,0) T4 Melanoma greater than 4.0 mm in thickness with "DATA",164.33,22,4,19,0) or without ulceration "DATA",164.33,22,4,20,0) T4a Melanoma greater than 4.0 mm in thickness, no ulceration "DATA",164.33,22,4,21,0) T4b Melanoma greater than 4.0 mm in thickness, with ulceration "DATA",164.33,22,5,0) ^^16^16^3020730^ "DATA",164.33,22,5,1,0) Regional Lymph Nodes (N) "DATA",164.33,22,5,2,0) "DATA",164.33,22,5,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,22,5,4,0) N0 No regional lymph node metastasis "DATA",164.33,22,5,5,0) N1 Metastasis in one lymph node "DATA",164.33,22,5,6,0) N1a Clinically occult (microscopic) metastasis "DATA",164.33,22,5,7,0) N1b Clinically apparent (macroscopic) metastasis "DATA",164.33,22,5,8,0) N2 Metastasis in 2 or 3 regional nodes or intralymphatic "DATA",164.33,22,5,9,0) regional metastasis without nodal metastases "DATA",164.33,22,5,10,0) N2a Clinically occult (microscopic) metastasis "DATA",164.33,22,5,11,0) N2b Clinically apparent (macroscopic) metastasis "DATA",164.33,22,5,12,0) N2c Satellite or in-transit metastasis without nodal "DATA",164.33,22,5,13,0) metastasis "DATA",164.33,22,5,14,0) N3 Metastasis in four or more regional modes, or matted "DATA",164.33,22,5,15,0) metastatic nodes, or in-transit metastasis or "DATA",164.33,22,5,16,0) satellite(s) with metastasis in regional node(s) "DATA",164.33,22,6,0) ^^11^11^3020730^ "DATA",164.33,22,6,1,0) Distant Metastasis (M) "DATA",164.33,22,6,2,0) "DATA",164.33,22,6,3,0) MX Distant metastasis cannot be assessed "DATA",164.33,22,6,4,0) M0 No distant metastasis "DATA",164.33,22,6,5,0) M1 Distant metastasis "DATA",164.33,22,6,6,0) M1a Metastasis to skin, subcutaneous tissues "DATA",164.33,22,6,7,0) or distant lymph nodes "DATA",164.33,22,6,8,0) M1b Metastasis to lung "DATA",164.33,22,6,9,0) M1c Metastasis to all other visceral sites or distant "DATA",164.33,22,6,10,0) metastasis at any site associated with an elevated "DATA",164.33,22,6,11,0) serum lactic dehydrogenase (LDH) "DATA",164.33,22,"M",0) ^164.334^6^6 "DATA",164.33,22,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,22,"M",2,0) No distant metastasis^0^0 "DATA",164.33,22,"M",3,0) Distant metastasis^1^1 "DATA",164.33,22,"M",4,0) Metastasis beyond regional lymph nodes^1a^1A "DATA",164.33,22,"M",5,0) Visceral metastasis^1b^1B "DATA",164.33,22,"M",6,0) NA^88^88 "DATA",164.33,22,"M6",0) ^164.3314^6^6 "DATA",164.33,22,"M6",1,0) Distant metastasis cannot be assessed^X "DATA",164.33,22,"M6",2,0) No distant metastasis^0 "DATA",164.33,22,"M6",3,0) Distant metastasis^1 "DATA",164.33,22,"M6",4,0) Skin/subcutaneous tissues/distant nodes ^1a "DATA",164.33,22,"M6",5,0) Metastasis to lung^1b "DATA",164.33,22,"M6",6,0) All other visceral/elevated LDH^1c "DATA",164.33,22,"N",0) ^164.332^8^8 "DATA",164.33,22,"N",1,0) NCA^X^X "DATA",164.33,22,"N",2,0) NRN^0^0 "DATA",164.33,22,"N",3,0) 3 cm or less in any reg lymph node(s)^1^1 "DATA",164.33,22,"N",4,0) > 3 cm in reg ln/in-transit metastasis^2^2 "DATA",164.33,22,"N",5,0) > 3 cm in any reg lymph node(s)^2a^2A "DATA",164.33,22,"N",6,0) In-transit metastasis^2b^2B "DATA",164.33,22,"N",7,0) Both (N2a and N2b)^2c^2C "DATA",164.33,22,"N",8,0) NA^88^88 "DATA",164.33,22,"N6",0) ^164.3312^10^10 "DATA",164.33,22,"N6",1,0) NCA^X "DATA",164.33,22,"N6",2,0) NRN^0 "DATA",164.33,22,"N6",3,0) Metastasis in one lymph node^1 "DATA",164.33,22,"N6",4,0) Clinically occult (microscopic) metastasis^1a "DATA",164.33,22,"N6",5,0) Clinically apparent (macroscopic) metastasis^1b "DATA",164.33,22,"N6",6,0) 2 to 3 nodes/intralymphatic regional w/o nodal^2 "DATA",164.33,22,"N6",7,0) Clinically occult (microscopic) metastasis^2a "DATA",164.33,22,"N6",8,0) Clinically apparent (macroscopic) metastasis^2b "DATA",164.33,22,"N6",9,0) Satellite or in-transit metastasis w/o nodal met^2c "DATA",164.33,22,"N6",10,0) 4 or more nodes/matted/in-transit/satellite(s)^3 "DATA",164.33,22,"T",0) ^164.331I^12^12 "DATA",164.33,22,"T",1,0) CBA^X^X "DATA",164.33,22,"T",2,0) NET^0^0 "DATA",164.33,22,"T",3,0) Melanoma 'in situ'^is^IS "DATA",164.33,22,"T",4,0) 0.75 mm or less/inv papillary dermis^1^1 "DATA",164.33,22,"T",5,0) 0.76 to 1.5 mm/inv papillary-reticular^2^2 "DATA",164.33,22,"T",6,0) 1.5 to 4 mm/inv reticular dermis^3^3 "DATA",164.33,22,"T",7,0) 1.5 to 3 mm/inv reticalar dermis^3a^3A "DATA",164.33,22,"T",8,0) 3 to 4 mm/inv reticular dermis^3b^3B "DATA",164.33,22,"T",9,0) > 4 mm/inv subcut tiss/satellites w/i 2 cm^4^4 "DATA",164.33,22,"T",10,0) > 4 mm/inv subcutaneous tiss^4a^4A "DATA",164.33,22,"T",11,0) Satellite(s) w/i 2 cm of primary tumor^4b^4B "DATA",164.33,22,"T",12,0) NA^88^88 "DATA",164.33,22,"T6",0) ^164.34^16^16 "DATA",164.33,22,"T6",1,0) CBA^X "DATA",164.33,22,"T6",2,0) NET^0 "DATA",164.33,22,"T6",3,0) < or = 1.0 mm, w or w/o ulceration^1 "DATA",164.33,22,"T6",4,0) < or = 1.0 mm/level II or III, no ulceration^1a "DATA",164.33,22,"T6",5,0) < or = 1.0 mm/level IV or V, with ulceration^1b "DATA",164.33,22,"T6",6,0) 1.01 - 2 mm, w or w/o ulceration^2 "DATA",164.33,22,"T6",7,0) 1.01 - 2 mm, no ulceration^2a "DATA",164.33,22,"T6",8,0) 1.01 - 2 mm, with ulceration^2b "DATA",164.33,22,"T6",9,0) 2.01 - 4 mm, w or w/o ulceration^3 "DATA",164.33,22,"T6",10,0) 2.01 - 4 mm, no ulceration^3a "DATA",164.33,22,"T6",11,0) 2.01 - 4 mm, with ulceration^3b "DATA",164.33,22,"T6",12,0) > 4.0 mm, w or w/o ulceration^4 "DATA",164.33,22,"T6",13,0) > 4.0 mm, no ulceration^4a "DATA",164.33,22,"T6",14,0) > 4.0 mm, with ulceration^4b "DATA",164.33,22,"T6",15,0) Melanoma 'in situ'^is "DATA",164.33,22,"T6",16,0) NA^88 "DATA",164.33,23,0) BREAST^^ "DATA",164.33,23,2,0) ^^18^18^2971223^ "DATA",164.33,23,2,1,0) Regional Lymph Nodes (N) "DATA",164.33,23,2,2,0) "DATA",164.33,23,2,3,0) NX Regional lymph nodes cannot be assessed (e.g., previously "DATA",164.33,23,2,4,0) removed, or not removed for pathologic study) "DATA",164.33,23,2,5,0) N0 No regional lymph node metastasis "DATA",164.33,23,2,6,0) N1 Metastasis to movable ipsilateral axillary lymph node(s) "DATA",164.33,23,2,7,0) N1a Only micrometastasis (none larger than 0.2 cm) "DATA",164.33,23,2,8,0) N1b Metastasis to lymph node(s), any larger than 0.2 cm "DATA",164.33,23,2,9,0) N1bi Metastasis is 1 to 3 lymph nodes, any more than 0.2 cm "DATA",164.33,23,2,10,0) and all less than 2 cm in greatest dimension "DATA",164.33,23,2,11,0) N1bii Metastasis to 4 or more lymph nodes, any more than 0.2 cm "DATA",164.33,23,2,12,0) and all less than 2 cm in greatest dimension "DATA",164.33,23,2,13,0) N1biii Extension of tumor beyond the capsule of a lymph node "DATA",164.33,23,2,14,0) metastasis less than 2 cm in greatest dimension "DATA",164.33,23,2,15,0) N1biv Metastasis to a lymph node 2 cm or more in greatest dimension "DATA",164.33,23,2,16,0) N2 Metastasis to ipsilateral axillary lymph nodes that are fixed to one "DATA",164.33,23,2,17,0) another or to other structures "DATA",164.33,23,2,18,0) N3 Metastasis to ipsilateral internal mammary lymph node(s) "DATA",164.33,23,5,0) ^164.3313^38^38^3020805^^^^ "DATA",164.33,23,5,1,0) Regional Lymph Nodes (N) Pathologic "DATA",164.33,23,5,2,0) "DATA",164.33,23,5,3,0) NX Regional lymph nodes cannot be assessed (eg, previously removed, or not "DATA",164.33,23,5,4,0) removed for pathologic study) "DATA",164.33,23,5,5,0) N0 No regional lymph node metastasis histologically, no additional "DATA",164.33,23,5,6,0) examination for isolated tumor cells (ITC) "DATA",164.33,23,5,7,0) N1 Metastasis in 1 to 3 axillary lymph nodes, and/or in internal mammary "DATA",164.33,23,5,8,0) nodes with microscopic disease detected by sentinel lymph node "DATA",164.33,23,5,9,0) dissection but not clinically apparent "DATA",164.33,23,5,10,0) N1mi Micrometastasis (greater than 0.2 mm, none greater than 2.0 mm) "DATA",164.33,23,5,11,0) N1a Metastasis in 1 to 3 axillary lymph nodes "DATA",164.33,23,5,12,0) N1b Metastasis in internal mammary nodes with microscopic disease detected "DATA",164.33,23,5,13,0) by sentinel lymph node dissection but not clinically apparent "DATA",164.33,23,5,14,0) N1c Metastasis in 1 to 3 axillary lymph nodes and in internal mammary lymph "DATA",164.33,23,5,15,0) nodes with microscopic disease detected by sentinel lymph node "DATA",164.33,23,5,16,0) dissection but not clinically apparent "DATA",164.33,23,5,17,0) N2 Metastasis in 4 to 9 axillary lymph nodes, or in clinically apparent "DATA",164.33,23,5,18,0) internal mammary lymph nodes in the absence of axillary lymph node "DATA",164.33,23,5,19,0) metastasis "DATA",164.33,23,5,20,0) N2a Metastasis in 4 to 9 axillary lymph nodes (at least one tumor deposit "DATA",164.33,23,5,21,0) greater than 2.0 mm) "DATA",164.33,23,5,22,0) N2b Metastasis in clinically apparent internal mammary lymph nodes in the "DATA",164.33,23,5,23,0) absence of axillary lymph node metastasis "DATA",164.33,23,5,24,0) N3 Metastasis in 10 or more axillary lymph nodes, or in infraclavicular "DATA",164.33,23,5,25,0) lymph nodes, or in clinically apparent ipsilateral internal mammary "DATA",164.33,23,5,26,0) lymph nodes in the presence of 1 or more positive axillary lymph "DATA",164.33,23,5,27,0) nodes; or in more than 3 axillary lymph nodes with clinically negative "DATA",164.33,23,5,28,0) microscopic metastasis in internal mammary lymph nodes; or in "DATA",164.33,23,5,29,0) ipsilateral supraclavicular lymph nodes "DATA",164.33,23,5,30,0) N3a Metastasis in 10 or more axillary lymph nodes (at least one tumor "DATA",164.33,23,5,31,0) deposit greater than 2.0 mm), or metastasis to the infraclavicular "DATA",164.33,23,5,32,0) lymph nodes "DATA",164.33,23,5,33,0) N3b Metastasis in clinically apparent ipsilateral internal mammary lymph "DATA",164.33,23,5,34,0) nodes in the presence of 1 or more positive axillary lymph nodes; or "DATA",164.33,23,5,35,0) in more than 3 axillary lymph nodes and in internal mammary lymph "DATA",164.33,23,5,36,0) nodes with microscopic disease detected by sentiel lymph node "DATA",164.33,23,5,37,0) dissection but not clinically apparent "DATA",164.33,23,5,38,0) N3c Metastasis in ipsilateral supraclavicular lymph nodes "DATA",164.33,23,"N",0) ^164.332^12^12 "DATA",164.33,23,"N",1,0) NCA^X^X "DATA",164.33,23,"N",2,0) NRN^0^0 "DATA",164.33,23,"N",3,0) Movable ipsilateral axillary lymph node(s)^1^1 "DATA",164.33,23,"N",4,0) Micrometastasis (< 0.2 cm)^1a^1A "DATA",164.33,23,"N",5,0) Any > 0.2 cm^1b^1B "DATA",164.33,23,"N",6,0) 1 - 3, any > 0.2/all < 2 cm^1bi^1BI "DATA",164.33,23,"N",7,0) 4 or more, any > 0.2/all < 2 cm^1bii^1BII "DATA",164.33,23,"N",8,0) Beyond capsule < 2 cm^1biii^1BIII "DATA",164.33,23,"N",9,0) 2 cm or more^1biv^1BIV "DATA",164.33,23,"N",10,0) Ipsilateral axillary fixed^2^2 "DATA",164.33,23,"N",11,0) Ipsilateral internal mammary^3^3 "DATA",164.33,23,"N",12,0) NA^88^88 "DATA",164.33,23,"N6",0) ^164.3312^15^15 "DATA",164.33,23,"N6",1,0) NCA^X "DATA",164.33,23,"N6",2,0) NRN^0 "DATA",164.33,23,"N6",3,0) Metastasis in 1 to 3 axillary lymph nodes, etc^1 "DATA",164.33,23,"N6",4,0) Micrometastasis^1mi "DATA",164.33,23,"N6",5,0) Metastasis in 1 to 3 axillary lymph nodes^1a "DATA",164.33,23,"N6",6,0) Metastasis in internal mammary nodes etc^1b "DATA",164.33,23,"N6",7,0) Metastasis in 1 to 3 axillary lymph nodes, etc^1c "DATA",164.33,23,"N6",8,0) Metastasis in 4 to 9 axillary lymph nodes, etc^2 "DATA",164.33,23,"N6",9,0) Metastasis in 4 to 9 axillary lymph nodes, etc^2a "DATA",164.33,23,"N6",10,0) Metastasis in clinically apparent internal, etc^2b "DATA",164.33,23,"N6",11,0) Metastasis in 10 or more axillary lymph nodes, etc^3 "DATA",164.33,23,"N6",12,0) Metastasis in 10 or more axillary lymph nodes, etc^3a "DATA",164.33,23,"N6",13,0) Metastasis in clinically apparent ipsilateral, etc^3b "DATA",164.33,23,"N6",14,0) Metastasis in ipsilateral supraclavicular^3c "DATA",164.33,23,"N6",15,0) NA^88 "DATA",164.33,24,0) CERVIX UTERI^^ "DATA",164.33,25,0) CORPUS UTERI^^ "DATA",164.33,25,1,0) ^^19^19^2971229^^ "DATA",164.33,25,1,1,0) Primary Tumor (T) "DATA",164.33,25,1,2,0) "DATA",164.33,25,1,3,0) TNM FIGO "DATA",164.33,25,1,4,0) TX Primary tumor cannot be assessed "DATA",164.33,25,1,5,0) T0 No evidence of primary tumor "DATA",164.33,25,1,6,0) Tis Carcinoma 'in situ' "DATA",164.33,25,1,7,0) T1 I Tumor confined to corpus uteri "DATA",164.33,25,1,8,0) T1a IA Tumor limited to endometrium "DATA",164.33,25,1,9,0) T1b IB Tumor invades up to or less than one-half of the myometrium "DATA",164.33,25,1,10,0) T1c IC Tumor invades to more than one-half of the myometrium "DATA",164.33,25,1,11,0) T2 II Tumor invades cervix but does not extend beyond uterus "DATA",164.33,25,1,12,0) T2a IIA Endocervical glandular involvement only "DATA",164.33,25,1,13,0) T2b IIB Cervical stromal invasion "DATA",164.33,25,1,14,0) T3 III Local and/or regional spread as specified in T3a, b, and/or N1 and "DATA",164.33,25,1,15,0) FIGO IIIA, B, and C below "DATA",164.33,25,1,16,0) T3a IIIA Tumor involves serosa and/or adnexa (direct extension or meta- "DATA",164.33,25,1,17,0) stasis) and/or cancer cells in ascites or peritoneal washings "DATA",164.33,25,1,18,0) T3b IIIB Vaginal involvement (direct extension or metastasis) "DATA",164.33,25,1,19,0) T4 IVA Tumor invades bladder mucosa and/or bowel mucosa "DATA",164.33,25,2,0) ^^5^5^2980114^ "DATA",164.33,25,2,1,0) Regional Lymph Nodes (N) "DATA",164.33,25,2,2,0) "DATA",164.33,25,2,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,25,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,25,2,5,0) N1 Regional lymph node metastasis "DATA",164.33,25,3,0) ^164.338^5^5^3020702^^ "DATA",164.33,25,3,1,0) Distant Metastasis (M) "DATA",164.33,25,3,2,0) "DATA",164.33,25,3,3,0) MX......Distant metastasis cannot be assessed "DATA",164.33,25,3,4,0) M0......No distant metastasis "DATA",164.33,25,3,5,0) M1......Distant metastasis "DATA",164.33,25,"M",0) ^164.334^4^4 "DATA",164.33,25,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,25,"M",2,0) No distant metastasis^0^0 "DATA",164.33,25,"M",3,0) Distant metastasis^1^1 "DATA",164.33,25,"M",4,0) NA^88^88 "DATA",164.33,25,"N",0) ^164.332^4^4 "DATA",164.33,25,"N",1,0) Regional lymph nodes cannot be assessed^X^X "DATA",164.33,25,"N",2,0) No regional lymph node metastasis^0^0 "DATA",164.33,25,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164.33,25,"N",4,0) NA^88^88 "DATA",164.33,26,0) OVARY^^ "DATA",164.33,27,0) VAGINA^^ "DATA",164.33,28,0) VULVA^^ "DATA",164.33,28,"M",0) ^164.334^5^5 "DATA",164.33,28,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,28,"M",2,0) No clinical metastases^0^0 "DATA",164.33,28,"M",3,0) Palpable deep pelvic lymph nodes^1a^1A "DATA",164.33,28,"M",4,0) Other distant metastases^1b^1B "DATA",164.33,28,"M",5,0) NA^88^88 "DATA",164.33,28,"M4",0) ^164.335A^4^4 "DATA",164.33,28,"M4",1,0) Distant metastasis cannot be assessed^x^X "DATA",164.33,28,"M4",2,0) No distant metastasis^0^0 "DATA",164.33,28,"M4",3,0) Distant metastasis^1^1 "DATA",164.33,28,"M4",4,0) NA^88^88 "DATA",164.33,29,0) PROSTATE^^ "DATA",164.33,29,1,0) ^164.336^12^12^3020809^^^^ "DATA",164.33,29,1,1,0) Primary Tumor, Pathologic (T) "DATA",164.33,29,1,2,0) "DATA",164.33,29,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,29,1,4,0) T2 Organ confined "DATA",164.33,29,1,5,0) T2a Unilateral "DATA",164.33,29,1,6,0) T2b Bilateral "DATA",164.33,29,1,7,0) T3 Extraprostatic extension "DATA",164.33,29,1,8,0) T3a Extraprostatic extension "DATA",164.33,29,1,9,0) T3b Seminal vesicle extension "DATA",164.33,29,1,10,0) T4 Invasion of bladder, rectum "DATA",164.33,29,1,11,0) "DATA",164.33,29,1,12,0) Note: There is no pathologic T1 classification. "DATA",164.33,29,2,0) ^^5^5^3020812^ "DATA",164.33,29,2,1,0) Regional Lymph Nodes, Pathologic (N) "DATA",164.33,29,2,2,0) "DATA",164.33,29,2,3,0) NX Regional nodes cannot be not assessed "DATA",164.33,29,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,29,2,5,0) N1 Metastases in regional lymph node or nodes "DATA",164.33,29,3,0) ^164.338^8^8^3020812^^ "DATA",164.33,29,3,1,0) Distant Metastasis (M) "DATA",164.33,29,3,2,0) "DATA",164.33,29,3,3,0) MX Distant metastasis cannot be assessed "DATA",164.33,29,3,4,0) M0 No distant metastasis "DATA",164.33,29,3,5,0) M1 Distant metastasis "DATA",164.33,29,3,6,0) M1a Nonregional lymph node(s) "DATA",164.33,29,3,7,0) M1b Bone(s) "DATA",164.33,29,3,8,0) M1c Other site(s) "DATA",164.33,29,4,0) ^164.3311^11^11^3020809^^ "DATA",164.33,29,4,1,0) Primary Tumor, Pathologic (T) "DATA",164.33,29,4,2,0) "DATA",164.33,29,4,3,0) T2 Organ confined "DATA",164.33,29,4,4,0) T2a Unilateral, involving one-half of one lobe or less "DATA",164.33,29,4,5,0) T2b Unilateral, involving more than one-half of one "DATA",164.33,29,4,6,0) lobe but not both lobes "DATA",164.33,29,4,7,0) T2c Bilateral disease "DATA",164.33,29,4,8,0) T3 Extraprostatic extension "DATA",164.33,29,4,9,0) T3a Extraprostatic extension "DATA",164.33,29,4,10,0) T3b Seminal vesicle extension "DATA",164.33,29,4,11,0) T4 Invasion of bladder, rectum "DATA",164.33,29,5,0) ^164.3313^5^5^3020812^^ "DATA",164.33,29,5,1,0) Regional Lymph Nodes, Pathologic (N) "DATA",164.33,29,5,2,0) "DATA",164.33,29,5,3,0) NX Regional nodes not sampled "DATA",164.33,29,5,4,0) N0 No positive regional nodes "DATA",164.33,29,5,5,0) N1 Metastases in regional node(s) "DATA",164.33,29,6,0) ^^9^9^3020812^ "DATA",164.33,29,6,1,0) Distant Metastasis (M) "DATA",164.33,29,6,2,0) "DATA",164.33,29,6,3,0) MX Distant metastasis cannot be assessed "DATA",164.33,29,6,4,0) (not evaluated by any modality) "DATA",164.33,29,6,5,0) M0 No distant metastasis "DATA",164.33,29,6,6,0) M1 Distant metastasis "DATA",164.33,29,6,7,0) M1a Non-regional lymph node(s) "DATA",164.33,29,6,8,0) M1b Bone(s) "DATA",164.33,29,6,9,0) M1c Other site(s) with or without bone disease "DATA",164.33,29,"M",0) ^164.334^7^7 "DATA",164.33,29,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,29,"M",2,0) No distant metastasis^0^0 "DATA",164.33,29,"M",3,0) Distant metastasis^1^1 "DATA",164.33,29,"M",4,0) Nonregional lymph node(s)^1a^1A "DATA",164.33,29,"M",5,0) Bone(s)^1b^1B "DATA",164.33,29,"M",6,0) Other site(s)^1c^1C "DATA",164.33,29,"M",7,0) NA^88^88 "DATA",164.33,29,"N6",0) ^164.3312^4^4 "DATA",164.33,29,"N6",1,0) Regional nodes not sampled^X "DATA",164.33,29,"N6",2,0) No positive regional nodes^0 "DATA",164.33,29,"N6",3,0) Metastases in regional node(s)^1 "DATA",164.33,29,"N6",4,0) NA^88 "DATA",164.33,29,"T",0) ^164.331I^13^9 "DATA",164.33,29,"T",1,0) CBA^X^X "DATA",164.33,29,"T",6,0) Organ confined^2^2 "DATA",164.33,29,"T",7,0) Unilateral^2a^2A "DATA",164.33,29,"T",8,0) Bilateral^2b^2B "DATA",164.33,29,"T",9,0) Extraprostatic extension^3^3 "DATA",164.33,29,"T",10,0) Extraprostatic extension^3a^3A "DATA",164.33,29,"T",11,0) Seminal vesicle invasion^3b^3B "DATA",164.33,29,"T",12,0) Invasion of bladder, rectum^4^4 "DATA",164.33,29,"T",13,0) NA^88^88 "DATA",164.33,29,"T6",0) ^164.34^10^10 "DATA",164.33,29,"T6",1,0) CBA^X "DATA",164.33,29,"T6",2,0) Organ confined^2 "DATA",164.33,29,"T6",3,0) Unilateral, involving 1/2 of 1 lobe or less^2a "DATA",164.33,29,"T6",4,0) Unilateral, involving > 1/2 of 1 lobe but not both^2b "DATA",164.33,29,"T6",5,0) Bilateral disease^2c "DATA",164.33,29,"T6",6,0) Extraprostatic extension^3 "DATA",164.33,29,"T6",7,0) Extraprostatic extension^3a "DATA",164.33,29,"T6",8,0) Seminal vesicle invasion^3b "DATA",164.33,29,"T6",9,0) Invasion of bladder, rectum^4 "DATA",164.33,29,"T6",10,0) NA^88 "DATA",164.33,30,0) TESTIS^^ "DATA",164.33,30,2,0) ^^14^14^2980108^ "DATA",164.33,30,2,1,0) Regional Lymph Nodes (N) "DATA",164.33,30,2,2,0) "DATA",164.33,30,2,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,30,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,30,2,5,0) N1 Metastasis with a lymph node mass, 2 cm or less "DATA",164.33,30,2,6,0) in greatest dimension and less than or equal "DATA",164.33,30,2,7,0) to 5 nodes positive, none more than 2 cm in "DATA",164.33,30,2,8,0) greatest dimension "DATA",164.33,30,2,9,0) N2 Metastasis with a lymph node mass, more than 2 "DATA",164.33,30,2,10,0) cm but not more than 5 cm in greatest dimension; "DATA",164.33,30,2,11,0) or more than 5 nodes positive, none more than 5 cm; "DATA",164.33,30,2,12,0) or evidence of extranodal extension of tumor "DATA",164.33,30,2,13,0) N3 Metastasis with a lymph node mass more than 5 "DATA",164.33,30,2,14,0) cm in greatest dimension "DATA",164.33,30,"N",0) ^164.332^6^6 "DATA",164.33,30,"N",1,0) Regional lymph nodes cannot be assessed^X^X "DATA",164.33,30,"N",2,0) No regional lymph node metastasis^0^0 "DATA",164.33,30,"N",3,0) 2 cm or less/<= 5 nodes +^1^1 "DATA",164.33,30,"N",4,0) > 2 but not > 5 cm/> 5 nodes +/extranodal^2^2 "DATA",164.33,30,"N",5,0) > 5 cm^3^3 "DATA",164.33,30,"N",6,0) NA^88^88 "DATA",164.33,31,0) PENIS^^ "DATA",164.33,32,0) URINARY BLADDER^^ "DATA",164.33,32,"T",0) ^164.331I^^0 "DATA",164.33,33,0) KIDNEY^^ "DATA",164.33,33,"T",0) ^164.331I^7^7 "DATA",164.33,33,"T",1,0) CBA^X^X "DATA",164.33,33,"T",2,0) NET^0^0 "DATA",164.33,33,"T",3,0) CIS^is^IS "DATA",164.33,33,"T",4,0) NONINVASIVE PAPILLARY CA^a^A "DATA",164.33,33,"T",5,0) INV SUBEPITHELIAL CONN TISSUE^1^1 "DATA",164.33,33,"T",6,0) INV SUPERFICIAL MUSCLE (INNER HALF)^2^2 "DATA",164.33,33,"T",7,0) Not Applicable^88^88 "DATA",164.33,34,0) RENAL PELVIS & URETER^^ "DATA",164.33,35,0) URETHRA^^ "DATA",164.33,35,1,0) ^164.336^16^16^3020924^^ "DATA",164.33,35,1,1,0) Urothelial (Transitional Cell) Carcinoma of the Prostate "DATA",164.33,35,1,2,0) "DATA",164.33,35,1,3,0) Tis pu Carcinoma 'in situ', involvement of "DATA",164.33,35,1,4,0) the prostatic urethra "DATA",164.33,35,1,5,0) Tis pd Carcinoma 'in situ', involvement of "DATA",164.33,35,1,6,0) the prostatic ducts "DATA",164.33,35,1,7,0) T1 Tumor invades subepithelial connective "DATA",164.33,35,1,8,0) tissue "DATA",164.33,35,1,9,0) T2 Tumor invades any of the following: "DATA",164.33,35,1,10,0) prostatic stroma, corpus spongiosum, "DATA",164.33,35,1,11,0) periurethral muscle "DATA",164.33,35,1,12,0) T3 Tumor invades any of the following: "DATA",164.33,35,1,13,0) corpus cavernosum, beyond prostatic capsule, "DATA",164.33,35,1,14,0) bladder neck (extraprostatic extension) "DATA",164.33,35,1,15,0) T4 Tumor invades other adjacent organs "DATA",164.33,35,1,16,0) (invasion of the bladder) "DATA",164.33,35,"T",0) ^164.331I^7^7 "DATA",164.33,35,"T",1,0) Carcinoma 'in situ', prostatic urethra^is pu^IS PU "DATA",164.33,35,"T",2,0) Carcinoma 'in situ', prostatic ducts^is pd^IS PD "DATA",164.33,35,"T",3,0) Subepithelial connective tissue^1^1 "DATA",164.33,35,"T",4,0) Prostatic stoma/corp spong/periureth musc^2^2 "DATA",164.33,35,"T",5,0) Corpus cavernosum/prostatic cap/bladder neck^3^3 "DATA",164.33,35,"T",6,0) Adj organs (bladder)^4^4 "DATA",164.33,35,"T",7,0) NA^88^88 "DATA",164.33,36,0) EYELID CARCINOMA^^ "DATA",164.33,37,0) EYELID MELANOMA^^ "DATA",164.33,37,"N",0) ^164.332^8^8 "DATA",164.33,37,"N",1,0) NCA^X^X "DATA",164.33,37,"N",2,0) NRN^0^0 "DATA",164.33,37,"N",3,0) MET 3 cm OR LESS IN ANY REG LN^1^1 "DATA",164.33,37,"N",4,0) MET OVER 3 cm IN REG LN/IN TRANS MET^2^2 "DATA",164.33,37,"N",5,0) METASTASIS OVER 3 cm^2a^2A "DATA",164.33,37,"N",6,0) IN TRANSIT METASTASIS^2b^2B "DATA",164.33,37,"N",7,0) METS OVER 3 cm AND IN TRANSIT^2c^2C "DATA",164.33,37,"N",8,0) Not Applicable^88^88 "DATA",164.33,37,"T",0) ^164.331I^12^12 "DATA",164.33,37,"T",1,0) CBA^X^X "DATA",164.33,37,"T",2,0) NET^0^0 "DATA",164.33,37,"T",3,0) MELANOMA IN SITU/CLARKS I^is^IS "DATA",164.33,37,"T",4,0) 0.75 mm OR LESS, INV PAP DERM/CLARKS 2^1^1 "DATA",164.33,37,"T",5,0) .75 TO 1.5 mm, INV PAP-RET DERM/CLARKS 3^2^2 "DATA",164.33,37,"T",6,0) 1.5 TO 4 mm, INV RETIC DERM/CLARKS 4^3^3 "DATA",164.33,37,"T",7,0) 1.5 TO 3 mm, INV RETIC DERMIS^3a^3A "DATA",164.33,37,"T",8,0) 3 TO 4 mm, INV RETIC DERMIS^3b^3B "DATA",164.33,37,"T",9,0) OVER 4 mm, INV SUB TIS/SAT 2 cm/CLARK5^4^4 "DATA",164.33,37,"T",10,0) OVER 4 mm, INV SUBCUTANEOUS TISSUE^4a^4A "DATA",164.33,37,"T",11,0) SATS W/I 2 cm OF THE PRIMARY TUMOR^4b^4B "DATA",164.33,37,"T",12,0) Not Applicable^88^88 "DATA",164.33,38,0) CONJUNCTIVA CARCINOMA^^ "DATA",164.33,39,0) CONJUNCTIVA MELANOMA^^ "DATA",164.33,39,1,0) ^164.336^12^12^3021011^^^ "DATA",164.33,39,1,1,0) Primary Tumor (T) "DATA",164.33,39,1,2,0) "DATA",164.33,39,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,39,1,4,0) T0 No evidence of primary tumor "DATA",164.33,39,1,5,0) T1 Tumor(s) of bulbar conjunctiva occupying "DATA",164.33,39,1,6,0) one quadrant or less "DATA",164.33,39,1,7,0) T2 Tumor(s) of bulbar conjunctiva occupying "DATA",164.33,39,1,8,0) more than one quadrant "DATA",164.33,39,1,9,0) T3 Tumor(s) of conjunctival fornix and/or "DATA",164.33,39,1,10,0) palpebral conjuntiva and/or caruncle "DATA",164.33,39,1,11,0) T4 Tumor invades eyelid, cornea, and/or "DATA",164.33,39,1,12,0) orbit "DATA",164.33,39,2,0) ^164.337^5^5^3020815^^^ "DATA",164.33,39,2,1,0) Regional Lymph Nodes (N) "DATA",164.33,39,2,2,0) "DATA",164.33,39,2,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,39,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,39,2,5,0) N1 Regional lymph node metastasis "DATA",164.33,39,4,0) ^164.3311^11^11^3021011^^ "DATA",164.33,39,4,1,0) Primary Tumor (T) "DATA",164.33,39,4,2,0) "DATA",164.33,39,4,3,0) TX Primary tumor cannot be assessed "DATA",164.33,39,4,4,0) T0 No evidence of primary tumor "DATA",164.33,39,4,5,0) T1 Tumor of the bulbar conjunctiva "DATA",164.33,39,4,6,0) T2 Tumor of bulbar conjunctiva with corneal "DATA",164.33,39,4,7,0) extension "DATA",164.33,39,4,8,0) T3 Tumor extending into the conjunctival fornix, "DATA",164.33,39,4,9,0) palpebral conjuntiva, or caruncle "DATA",164.33,39,4,10,0) T4 Tumor invades the eyelid, globe, orbit, sinuses, "DATA",164.33,39,4,11,0) or central nervous system "DATA",164.33,39,"M",0) ^164.334^3^3 "DATA",164.33,39,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,39,"M",2,0) No distant metastasis^0^0 "DATA",164.33,39,"M",3,0) Distant metastasis^1^1 "DATA",164.33,39,"N",0) ^164.332^4^4 "DATA",164.33,39,"N",1,0) NCA^X^X "DATA",164.33,39,"N",2,0) NRN^0^0 "DATA",164.33,39,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164.33,39,"N",4,0) NA^88^88 "DATA",164.33,39,"T",0) ^164.331I^7^7 "DATA",164.33,39,"T",1,0) CBA^X^X "DATA",164.33,39,"T",2,0) NET^0^0 "DATA",164.33,39,"T",3,0) Bulbar conjunctiva, 1 quad or less^1^1 "DATA",164.33,39,"T",4,0) Bulbar conjunctiva, > 1 quad^2^2 "DATA",164.33,39,"T",5,0) Conjunctival fornix/palpebral/caruncle^3^3 "DATA",164.33,39,"T",6,0) Eyelid/cornea/orbit^4^4 "DATA",164.33,39,"T",7,0) NA^88^88 "DATA",164.33,39,"T6",0) ^164.34^7^7 "DATA",164.33,39,"T6",1,0) CBA^X "DATA",164.33,39,"T6",2,0) NET^0 "DATA",164.33,39,"T6",3,0) Bulbar conjunctiva^1 "DATA",164.33,39,"T6",4,0) Bulbar conjunctiva with corneal extension^2 "DATA",164.33,39,"T6",5,0) Conjunctival fornix/palpebral conjunctiva/caruncle^3 "DATA",164.33,39,"T6",6,0) Eyelid/globe/orbit/sinuses/central nervous system^4 "DATA",164.33,39,"T6",7,0) NA^88 "DATA",164.33,40,0) UVEA MELANOMA^^ "DATA",164.33,41,0) RETINOBLASTOMA (PATH)^^ "DATA",164.33,41,1,0) ^164.336^20^20^3020816^^ "DATA",164.33,41,1,1,0) Primary Tumor Pathologic (T) "DATA",164.33,41,1,2,0) "DATA",164.33,41,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,41,1,4,0) T0 No evidence of primary tumor "DATA",164.33,41,1,5,0) T1 Tumor(s) limited to 25% or less of the retina "DATA",164.33,41,1,6,0) T2 Tumor(s) involve(s) more than 25% but not more "DATA",164.33,41,1,7,0) than 50% of the retina "DATA",164.33,41,1,8,0) T3 Tumor(s) involve(s) more than 50% of the retina and/or "DATA",164.33,41,1,9,0) invade(s) beyond the retina but remain(s) intra-ocular "DATA",164.33,41,1,10,0) T3a Tumor(s) involve(s) more than 50% of the retina "DATA",164.33,41,1,11,0) and/or tumor cells in the vitreous "DATA",164.33,41,1,12,0) T3b Tumor(s) involve(s) optic nerve "DATA",164.33,41,1,13,0) as far as the lamina cribosa "DATA",164.33,41,1,14,0) T3c Tumor(s) in anterior chamber and/or invasion with "DATA",164.33,41,1,15,0) thickening of the uvea and/or intrascleral invasion "DATA",164.33,41,1,16,0) T4 Tumor with extra-ocular invasion "DATA",164.33,41,1,17,0) T4a Intraneural tumor beyond the lamina cribosa "DATA",164.33,41,1,18,0) but not at the line of resection "DATA",164.33,41,1,19,0) T4b Tumor at the line of resection or "DATA",164.33,41,1,20,0) other extra-ocular extension "DATA",164.33,41,2,0) ^164.337^5^5^3020819^^ "DATA",164.33,41,2,1,0) Regional Lymph Nodes Pathologic (N) "DATA",164.33,41,2,2,0) "DATA",164.33,41,2,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,41,2,4,0) N0 No regional lymph node metastasis "DATA",164.33,41,2,5,0) N1 Regional lymph node metastasis "DATA",164.33,41,4,0) ^164.3311^19^19^3021028^^^^ "DATA",164.33,41,4,1,0) Primary Tumor Pathologic (T) "DATA",164.33,41,4,2,0) "DATA",164.33,41,4,3,0) TX Primary tumor cannot be assessed "DATA",164.33,41,4,4,0) T0 No evidence of primary tumor "DATA",164.33,41,4,5,0) T1 Tumor confined to the retina,vitreous, or subretinal space. "DATA",164.33,41,4,6,0) No optic nerve or choroidal invasion. "DATA",164.33,41,4,7,0) T2 Minimal invasion of the optic nerve and/or optic coats "DATA",164.33,41,4,8,0) T2a Tumor invades optic nerve up to, but not through, the level "DATA",164.33,41,4,9,0) of the lamina cribrosa "DATA",164.33,41,4,10,0) T2b Tumor invades choroid focally "DATA",164.33,41,4,11,0) T2c Tumor invades optic nerve up to, but not through, "DATA",164.33,41,4,12,0) the level of the lamina cribrosa and invades the choroid focally "DATA",164.33,41,4,13,0) T3 Significant invasion of the optic nerve and/or optic coats "DATA",164.33,41,4,14,0) T3a Tumor invades optic nerve through the level of the lamina cribrosa "DATA",164.33,41,4,15,0) but not to the line of resection "DATA",164.33,41,4,16,0) T3b Tumor massively invades the choroid "DATA",164.33,41,4,17,0) T3c Tumor invades the optic nerve through the level of the lamina cribrosa "DATA",164.33,41,4,18,0) but not to the line of resection and massively invades the choroid "DATA",164.33,41,4,19,0) T4 Extraocular tumor extension "DATA",164.33,41,6,0) ^^7^7^3020819^ "DATA",164.33,41,6,1,0) Distant Metastasis Pathologic (M) "DATA",164.33,41,6,2,0) "DATA",164.33,41,6,3,0) MX Distant metastasis cannot be assessed "DATA",164.33,41,6,4,0) M0 No distant metastasis "DATA",164.33,41,6,5,0) M1 Distant metastasis "DATA",164.33,41,6,6,0) M1a Bone marrow "DATA",164.33,41,6,7,0) M1b Other sites "DATA",164.33,41,"M",0) ^164.334^3^3 "DATA",164.33,41,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,41,"M",2,0) No distant metastasis^0^0 "DATA",164.33,41,"M",3,0) Distant metastasis^1^1 "DATA",164.33,41,"M6",0) ^164.3314^6^6 "DATA",164.33,41,"M6",1,0) Distant metastasis cannot be assessed^X "DATA",164.33,41,"M6",2,0) No distant metastasis^0 "DATA",164.33,41,"M6",3,0) Distant metastasis^1 "DATA",164.33,41,"M6",4,0) Bone marrow^1a "DATA",164.33,41,"M6",5,0) Other sites^1b "DATA",164.33,41,"M6",6,0) NA^88 "DATA",164.33,41,"N",0) ^164.332^4^4 "DATA",164.33,41,"N",1,0) NCA^X^X "DATA",164.33,41,"N",2,0) NRN^0^0 "DATA",164.33,41,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164.33,41,"N",4,0) NA^88^88 "DATA",164.33,41,"T",0) ^164.331I^12^12 "DATA",164.33,41,"T",1,0) CBA^X^X "DATA",164.33,41,"T",2,0) NET^0^0 "DATA",164.33,41,"T",3,0) 25% or less of retina^1^1 "DATA",164.33,41,"T",4,0) > 25% but not > 50% of retina^2^2 "DATA",164.33,41,"T",5,0) > 50%/beyond retina but intra-ocular^3^3 "DATA",164.33,41,"T",6,0) > 50%/in vitreous^3a^3A "DATA",164.33,41,"T",7,0) Optic nerve to lamina cribrosa^3b^3B "DATA",164.33,41,"T",8,0) Ant chamber/thickening of uvea/intrascleral^3c^3C "DATA",164.33,41,"T",9,0) Extra-ocular^4^4 "DATA",164.33,41,"T",10,0) Intraneural > lamina cribrosa^4a^4A "DATA",164.33,41,"T",11,0) @ line of resection/other extra-ocular^4b^4B "DATA",164.33,41,"T",12,0) NA^88^88 "DATA",164.33,41,"T6",0) ^164.34^13^13 "DATA",164.33,41,"T6",1,0) CBA^X "DATA",164.33,41,"T6",2,0) NET^0 "DATA",164.33,41,"T6",3,0) Confined to retina/vitreous/subretinal space^1 "DATA",164.33,41,"T6",4,0) Minimal invasion of optic nerve/optic coats^2 "DATA",164.33,41,"T6",5,0) Optic nerve up to lamina cribosa^2a "DATA",164.33,41,"T6",6,0) Choroid focally^2b "DATA",164.33,41,"T6",7,0) Optic nerve up to lamina cribosa/choroid focally^2c "DATA",164.33,41,"T6",8,0) Significant invasion of optic nerve/optic coats^3 "DATA",164.33,41,"T6",9,0) Optic nerve through lamina cribosa^3a "DATA",164.33,41,"T6",10,0) Massively invades choroid^3b "DATA",164.33,41,"T6",11,0) Optic nerve through lamima cribosa and choroid^3c "DATA",164.33,41,"T6",12,0) Extraocular tumor extension^4 "DATA",164.33,41,"T6",13,0) NA^88 "DATA",164.33,42,0) ORBIT SARCOMA^^ "DATA",164.33,43,0) LACRIMAL GLAND CARCINOMA^^ "DATA",164.33,44,0) BRAIN^^ "DATA",164.33,45,0) HODGKIN'S DISEASE^^ "DATA",164.33,45,"S",0) ^164.333^9^9 "DATA",164.33,45,"S",1,0) I^SINGLE LN/LOCAL EXTRALYMPH ORGAN/SITE^1 "DATA",164.33,45,"S",2,0) IE^LOCAL INV 1 EXTRALYMPHATIC SITE/ORG^1E "DATA",164.33,45,"S",3,0) II^2/MORE LN REGS/SAME SIDE/SINGLE EXTRA^2 "DATA",164.33,45,"S",4,0) IIE^LOCAL INV EXTRALYMPH SITE & REG LN^2E "DATA",164.33,45,"S",5,0) III^LN BOTH SIDES DIAPHRAGM^3 "DATA",164.33,45,"S",6,0) IIIE^LN BOTH SIDES DIAPH/EXTRALYMPHIC INV^3E "DATA",164.33,45,"S",7,0) IIIS^LN BOTH SIDES DIAPH/INV SPLEEN^3S "DATA",164.33,45,"S",8,0) IIIES^LN BOTH SIDES DIAPH/EXTRALYMPH/SPLEEN^3ES "DATA",164.33,45,"S",9,0) IV^MULTIFOCAL 1/MORE EXTRALYMPHATIC^4 "DATA",164.33,46,0) NON-HODGKIN'S LYMPHOMA^^ "DATA",164.33,46,"S",0) ^164.333^9^9 "DATA",164.33,46,"S",1,0) I^SINGLE LN/LOCAL EXTRALYMPH ORGAN/SITE "DATA",164.33,46,"S",2,0) IE^LOCAL INV 1 EXTRALYMPHATIC SITE/ORG "DATA",164.33,46,"S",3,0) II^2/MORE LN REGS/SAME SIDE/SINGLE EXTRA "DATA",164.33,46,"S",4,0) IIE^LOCAL INV EXTRALYMPH SITE & REG LN "DATA",164.33,46,"S",5,0) III^LN BOTH SIDES DIAPHRAGM "DATA",164.33,46,"S",6,0) IIIE^LN BOTH SIDES DIAPH/EXTRALYMPHIC INV "DATA",164.33,46,"S",7,0) IIIS^LN BOTH SIDES DIAPH/INV SPLEEN "DATA",164.33,46,"S",8,0) IIIES^LN BOTH SIDES DIAPH/EXTRALYMPH/SPLEEN "DATA",164.33,46,"S",9,0) IV^MULTIFOCAL 1/MORE EXTRALYMPHATIC "DATA",164.33,47,0) NEPHROBLASTOMA^^ "DATA",164.33,48,0) NEUROBLASTOMA^^ "DATA",164.33,49,0) SOFT-TISSUE SARCOMA-PED^^ "DATA",164.33,50,0) CONJUNCTIVA MELANOMA (PATH)^^ "DATA",164.33,50,1,0) ^^12^12^3021011^ "DATA",164.33,50,1,1,0) Primary Tumor, Pathologic (T) "DATA",164.33,50,1,2,0) "DATA",164.33,50,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,50,1,4,0) T0 No evidence of primary tumor "DATA",164.33,50,1,5,0) T1 Tumor(s) of the bulbar conjunctiva occupying "DATA",164.33,50,1,6,0) one quadrant or less and 2 mm or less in thickness "DATA",164.33,50,1,7,0) T2 Tumor(s) of the bulbar conjunctiva occupying "DATA",164.33,50,1,8,0) more than one quadrant and 2 mm or less in thickness "DATA",164.33,50,1,9,0) T3 Tumor(s) of the conjunctival fornix and/or "DATA",164.33,50,1,10,0) palpebral conjunctiva and/or caruncle or tumor(s) "DATA",164.33,50,1,11,0) of the bulbar conjucntiva, more than 2 mm in thickness "DATA",164.33,50,1,12,0) T4 Tumor invades eyelid, cornea, and/or orbit "DATA",164.33,50,4,0) ^164.3311^15^15^3021011^^ "DATA",164.33,50,4,1,0) Primary Tumor, Pathologic (T) "DATA",164.33,50,4,2,0) "DATA",164.33,50,4,3,0) TX Primary tumor cannot be assessed "DATA",164.33,50,4,4,0) T0 No evidence of primary tumor "DATA",164.33,50,4,5,0) T1 Tumor of the bulbar conjunctiva confined to the "DATA",164.33,50,4,6,0) epethelium "DATA",164.33,50,4,7,0) T2 Tumor of the bulbar conjunctiva not more than "DATA",164.33,50,4,8,0) 0.8 mm in thickness with invasion of the substantia "DATA",164.33,50,4,9,0) propria "DATA",164.33,50,4,10,0) T3 Tumor of the bulbar conjunctiva more than 0.8 mm "DATA",164.33,50,4,11,0) in thickness with invasion of the substantia "DATA",164.33,50,4,12,0) propria or tumors involving the palpebral or "DATA",164.33,50,4,13,0) caruncular conjunctiva "DATA",164.33,50,4,14,0) T4 Tumor invades the eyelid, globe, orbit, sinuses, "DATA",164.33,50,4,15,0) or central nervous system "DATA",164.33,50,5,0) ^^5^5^3020815^ "DATA",164.33,50,5,1,0) Regional Lymph Nodes (N) "DATA",164.33,50,5,2,0) "DATA",164.33,50,5,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,50,5,4,0) N0 No regional lymph node metastasis "DATA",164.33,50,5,5,0) N1 Regional lymph node metastasis "DATA",164.33,50,"M",0) ^164.334^3^3 "DATA",164.33,50,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,50,"M",2,0) No distant metastasis^0^0 "DATA",164.33,50,"M",3,0) Distant metastasis^1^1 "DATA",164.33,50,"N",0) ^164.332^4^4 "DATA",164.33,50,"N",1,0) NCA^X^X "DATA",164.33,50,"N",2,0) NRN^0^0 "DATA",164.33,50,"N",3,0) REGIONAL LN METASTASIS^1^1 "DATA",164.33,50,"N",4,0) Not Applicable^88^88 "DATA",164.33,50,"T",0) ^164.331I^7^7 "DATA",164.33,50,"T",1,0) CBA^X^X "DATA",164.33,50,"T",2,0) NET^0^0 "DATA",164.33,50,"T",3,0) =< 1 QUADRANT, BULBAR CONJUNC =<2mm THICK^1^1 "DATA",164.33,50,"T",4,0) >1 QUADRANT, BULBAR CONJUNC =<2mm THICK^2^2 "DATA",164.33,50,"T",5,0) TUMORS > 2mm THICK^3^3 "DATA",164.33,50,"T",6,0) INV EYELID / CORNEA / ORBIT^4^4 "DATA",164.33,50,"T",7,0) Not Applicable^88^88 "DATA",164.33,50,"T6",0) ^164.34^7^7 "DATA",164.33,50,"T6",1,0) CBA^X "DATA",164.33,50,"T6",2,0) NET^0 "DATA",164.33,50,"T6",3,0) Bulbar conjunctiva confined to the epithelium^1 "DATA",164.33,50,"T6",4,0) Bulbar conjunctiva not > 0.8mm/substantia propria^2 "DATA",164.33,50,"T6",5,0) Bulbar conjunctiva > 0.8mm/substantia propria^3 "DATA",164.33,50,"T6",6,0) Eyelid/globe/orbit/sinuses/central nervous system^4 "DATA",164.33,50,"T6",7,0) NA^88 "DATA",164.33,51,0) CILIARY BODY^^ "DATA",164.33,51,1,0) ^^8^8^3020816^ "DATA",164.33,51,1,1,0) Primary Tumor (T) "DATA",164.33,51,1,2,0) "DATA",164.33,51,1,3,0) TX Primary tumor cannot be assessed "DATA",164.33,51,1,4,0) T0 No evidence of primary tumor "DATA",164.33,51,1,5,0) T1 Tumor limited to ciliary body "DATA",164.33,51,1,6,0) T2 Tumor invades into anterior chamber and/or iris "DATA",164.33,51,1,7,0) T3 Tumor invades choroid "DATA",164.33,51,1,8,0) T4 Tumor extraocular extension "DATA",164.33,51,4,0) ^164.3311^25^25^3021029^^^ "DATA",164.33,51,4,1,0) Primary Tumor (T) "DATA",164.33,51,4,2,0) Ciliary Body "DATA",164.33,51,4,3,0) "DATA",164.33,51,4,4,0) TX Primary tumor cannot be assessed "DATA",164.33,51,4,5,0) T0 No evidence of primary tumor "DATA",164.33,51,4,6,0) T1 Tumor 10 mm or less in greatest diameter and 2.5 mm or less in greatest "DATA",164.33,51,4,7,0) height (thickness) "DATA",164.33,51,4,8,0) T1a Tumor 10 mm or less in greatest diameter and 2.5 mm or less in greatest "DATA",164.33,51,4,9,0) height (thickness) without microscopic extraocular extension "DATA",164.33,51,4,10,0) T1b Tumor 10 mm or less in greatest diameter and 2.5 mm or less in greatest "DATA",164.33,51,4,11,0) height (thickness) with microscopic extraocular extension "DATA",164.33,51,4,12,0) T1c Tumor 10 mm or less in greatest diameter and 2.5 mm or less in greatest "DATA",164.33,51,4,13,0) height (thickness) with macroscopic extraocular extension "DATA",164.33,51,4,14,0) T2 Tumor greater than 10 mm but not more than 16 mm in greatest basal "DATA",164.33,51,4,15,0) diameter and between 2.5 and 10 mm in maximum height (thickness) "DATA",164.33,51,4,16,0) T2a Tumor 10 mm to 16 mm in greatest basal diameter and between 2.5 and 10 mm "DATA",164.33,51,4,17,0) in maximum height (thickness) without microscopic extraocular extension "DATA",164.33,51,4,18,0) T2b Tumor 10 mm to 16 mm in greatest basal diameter and between 2.5 and 10 mm "DATA",164.33,51,4,19,0) in maximum height (thickness) with microscopic extraocular extension "DATA",164.33,51,4,20,0) T2c Tumor 10 mm to 16 mm in greatest basal diameter and between 2.5 and 10 mm "DATA",164.33,51,4,21,0) in maximum height (thickness) with macroscopic extraocular extension "DATA",164.33,51,4,22,0) T3 Tumor more than 16 mm in greatest diameter and/or greater than 10 mm in "DATA",164.33,51,4,23,0) maximum height (thickness) without extraocular extension "DATA",164.33,51,4,24,0) T4 Tumor more than 16 mm in greatest diameter and/or greater than 10 mm in "DATA",164.33,51,4,25,0) maximum height (thickness) with extraocular extension "DATA",164.33,51,5,0) ^^5^5^3020816^ "DATA",164.33,51,5,1,0) Regional Lymph Nodes (N) "DATA",164.33,51,5,2,0) "DATA",164.33,51,5,3,0) NX Regional lymph nodes cannot be assessed "DATA",164.33,51,5,4,0) N0 No regional lymph node metastasis "DATA",164.33,51,5,5,0) N1 Regional Lymph node metastasis "DATA",164.33,51,"M",0) ^164.334^3^3 "DATA",164.33,51,"M",1,0) Distant metastasis cannot be assessed^X^X "DATA",164.33,51,"M",2,0) No distant metastasis^0^0 "DATA",164.33,51,"M",3,0) Distant metastasis^1^1 "DATA",164.33,51,"N",0) ^164.332^4^4 "DATA",164.33,51,"N",1,0) NCA^X^X "DATA",164.33,51,"N",2,0) NRN^0^0 "DATA",164.33,51,"N",3,0) Regional lymph node metastasis^1^1 "DATA",164.33,51,"N",4,0) Not Applicable^88^88 "DATA",164.33,51,"T",0) ^164.331I^7^7 "DATA",164.33,51,"T",1,0) CBA^X^X "DATA",164.33,51,"T",2,0) NET^0^0 "DATA",164.33,51,"T",3,0) Limited to ciliary body^1^1 "DATA",164.33,51,"T",4,0) Invades anterior chamber and/or iris^2^2 "DATA",164.33,51,"T",5,0) Invades choroid^3^3 "DATA",164.33,51,"T",6,0) Extraocular extension^4^4 "DATA",164.33,51,"T",7,0) Not Applicable^88^88 "DATA",164.33,51,"T6",0) ^164.34^13^13 "DATA",164.33,51,"T6",1,0) CBA^X "DATA",164.33,51,"T6",2,0) NET^0 "DATA",164.33,51,"T6",3,0) 10mm in dia/2.5mm in height^1 "DATA",164.33,51,"T6",4,0) 10mm in dia/2.5mm in height w/o micro extraocular^1a "DATA",164.33,51,"T6",5,0) 10mm in dia/2.5mm in height w micro extraocular^1b "DATA",164.33,51,"T6",6,0) 10mm in dia/2.5mm in height w macro extraocular^1c "DATA",164.33,51,"T6",7,0) 10-16mm in dia/2.5-10mm in height^2 "DATA",164.33,51,"T6",8,0) 10-16mm in dia/2.5-10mm in height w/o micro extra^2a "DATA",164.33,51,"T6",9,0) 10-16mm in dia/2.5-10mm in height w micro extra^2b "DATA",164.33,51,"T6",10,0) 10-16mm in dia/2.5-10mm in height w macro extra^2c "DATA",164.33,51,"T6",11,0) > 16mm in dia/> 10mm in height w/o extraocular^3 "DATA",164.33,51,"T6",12,0) > 16mm in dia/> 10mm in height w extraocular^4 "DATA",164.33,51,"T6",13,0) NA^88 "DATA",164.33,52,0) VAGINA (LOWER 1/3)^^ "DATA",164.33,52,"N",0) ^164.332^6^5 "DATA",164.33,52,"N",1,0) NCA^X^X "DATA",164.33,52,"N",2,0) NRN^0^0 "DATA",164.33,52,"N",4,0) Unilateral inguinal metastasis^1^1 "DATA",164.33,52,"N",5,0) Bilateral inguinal metastasis^2^2 "DATA",164.33,52,"N",6,0) NA^88^88 "DATA",164.33,53,0) FALLOPIAN TUBE^^ "DATA",164.33,54,0) GESTATIONAL TROPHOBLASTIC^^ "DATA",164.33,55,0) MYCOSIS FUNGOIDES "DATA",164.33,55,4,0) ^^6^6^3021028^ "DATA",164.33,55,4,1,0) Primary Tumor (T) "DATA",164.33,55,4,2,0) "DATA",164.33,55,4,3,0) T1 Limited patch/plaque "DATA",164.33,55,4,4,0) T2 Generalized patch/plaque "DATA",164.33,55,4,5,0) T3 Cutaneous tumors "DATA",164.33,55,4,6,0) T4 Generalized erythroderma "DATA",164.33,55,5,0) ^^6^6^3021028^ "DATA",164.33,55,5,1,0) Regional Lymph Nodes (N) "DATA",164.33,55,5,2,0) "DATA",164.33,55,5,3,0) N0 Lymph nodes clinically uninvolved "DATA",164.33,55,5,4,0) N1 Lymph nodes clinically enlarged, histologically uninvolved "DATA",164.33,55,5,5,0) N2 Lymph nodes clinically unenlarged, histologically involved "DATA",164.33,55,5,6,0) N3 Lymph nodes enlarged and histologically involved "DATA",164.33,55,6,0) ^^4^4^3021028^ "DATA",164.33,55,6,1,0) Distant Metastasis (M) "DATA",164.33,55,6,2,0) "DATA",164.33,55,6,3,0) M0 No visceral disease "DATA",164.33,55,6,4,0) M1 Visceral disease present "DATA",164.33,55,"M6",0) ^164.3314^2^2 "DATA",164.33,55,"M6",1,0) No visceral disease^0 "DATA",164.33,55,"M6",2,0) Visceral disease present^1 "DATA",164.33,55,"N6",0) ^164.3312^4^4 "DATA",164.33,55,"N6",1,0) Clinically uninvolved^0 "DATA",164.33,55,"N6",2,0) Clinically enlarged, histologically uninvolved^1 "DATA",164.33,55,"N6",3,0) Clinically unenlarged, histologically involved^2 "DATA",164.33,55,"N6",4,0) Enlarged and histologically involved^3 "DATA",164.33,55,"T6",0) ^164.34^4^4 "DATA",164.33,55,"T6",1,0) Limited patch/plaque^1 "DATA",164.33,55,"T6",2,0) Generalized patch/plaque^2 "DATA",164.33,55,"T6",3,0) Cutaneous tumors^3 "DATA",164.33,55,"T6",4,0) Generalized erythroderma^4 "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,15) "FIA",160,160,42) "FIA",160,160.042) 1 "FIA",160,160.042,.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.19) FACILITY "FIA",160.19,0) ^ONCO(160.19, "FIA",160.19,0,0) 160.19I "FIA",160.19,0,1) y^y^f^^^^n^^n "FIA",160.19,0,10) "FIA",160.19,0,11) "FIA",160.19,0,"RLRO") "FIA",160.19,0,"VR") 2.11^ONC "FIA",160.19,160.19) 0 "FIA",164.33) AJCC STAGING GROUPS "FIA",164.33,0) ^ONCO(164.33, "FIA",164.33,0,0) 164.33 "FIA",164.33,0,1) y^y^f^^n^^y^o^n "FIA",164.33,0,10) "FIA",164.33,0,11) "FIA",164.33,0,"RLRO") "FIA",164.33,0,"VR") 2.11^ONC "FIA",164.33,164.33) 0 "FIA",164.33,164.331) 0 "FIA",164.33,164.3311) 0 "FIA",164.33,164.3312) 0 "FIA",164.33,164.3313) 0 "FIA",164.33,164.3314) 0 "FIA",164.33,164.3315) 0 "FIA",164.33,164.332) 0 "FIA",164.33,164.333) 0 "FIA",164.33,164.334) 0 "FIA",164.33,164.335) 0 "FIA",164.33,164.336) 0 "FIA",164.33,164.337) 0 "FIA",164.33,164.338) 0 "FIA",164.33,164.34) 0 "FIA",165.5) ONCOLOGY PRIMARY "FIA",165.5,0) ^ONCO(165.5, "FIA",165.5,0,0) 165.5IPs "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,29.1) "FIA",165.5,165.5,52.2) "FIA",165.5,165.5,53.2) "FIA",165.5,165.5,54.2) "FIA",165.5,165.5,55.2) "FIA",165.5,165.5,57.2) "FIA",165.5,165.5,57.3) "FIA",165.5,165.5,58.7) "FIA",165.5,165.51) 1 "FIA",165.5,165.51,37) "INI") ONCPRE37 "INIT") ONCPST37 "KRN",.4,1073,-1) 0^2 "KRN",.4,1073,0) ONCOY54^3030513.1428^^165.5^^@^3030513 "KRN",.4,1073,"DXS",1,9.2) S DIP(2)=$C(59)_$P($G(^DD(165.5,58,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,26)_":",2),$C(59)) "KRN",.4,1073,"DXS",2,9.2) S DIP(2)=$C(59)_$P($G(^DD(165.5,51.3,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_":",2),$C(59)) "KRN",.4,1073,"DXS",3,0) None "KRN",.4,1073,"DXS",3,1) Bx/aspiration, NOS "KRN",.4,1073,"DXS",3,2) Sentinel Bx "KRN",.4,1073,"DXS",3,3) Nodes removed, num unk "KRN",.4,1073,"DXS",3,4) 1-3 nodes removed "KRN",.4,1073,"DXS",3,5) 4 or more nodes removed "KRN",.4,1073,"DXS",3,6) Sentinel + 3, 4 or 5, timing not stated "KRN",.4,1073,"DXS",3,7) Sentinel + 3, 4, or 5, diff times "KRN",.4,1073,"DXS",3,9) Unknown/NA "KRN",.4,1073,"DXS",4,0) None "KRN",.4,1073,"DXS",4,1) Bx/aspiration, NOS "KRN",.4,1073,"DXS",4,2) Sentinel Bx "KRN",.4,1073,"DXS",4,3) Nodes removed, num unk "KRN",.4,1073,"DXS",4,4) 1-3 nodes removed "KRN",.4,1073,"DXS",4,5) 4 or more nodes removed "KRN",.4,1073,"DXS",4,6) Sentinel + 3, 4 or 5, timing not stated "KRN",.4,1073,"DXS",4,7) Sentinel + 3, 4, or 5, diff times "KRN",.4,1073,"DXS",4,9) Unknown/NA "KRN",.4,1073,"DXS",5,0) None "KRN",.4,1073,"DXS",5,1) Nonprimary surg proc performed "KRN",.4,1073,"DXS",5,2) Nonprimary surg proc/other regional sites "KRN",.4,1073,"DXS",5,3) Nonprimary surg proc/distant lymph node(s) "KRN",.4,1073,"DXS",5,4) Nonprimary surg proc/distant site "KRN",.4,1073,"DXS",5,5) Combination of codes "KRN",.4,1073,"DXS",5,9) Unknown "KRN",.4,1073,"DXS",6,0) None "KRN",.4,1073,"DXS",6,1) Nonprimary surg proc performed "KRN",.4,1073,"DXS",6,2) Nonprimary surg proc/other regional sites "KRN",.4,1073,"DXS",6,3) Nonprimary surg proc/distant lymph node(s) "KRN",.4,1073,"DXS",6,4) Nonprimary surg proc/distant site "KRN",.4,1073,"DXS",6,5) Combination of codes "KRN",.4,1073,"DXS",6,9) Unknown "KRN",.4,1073,"DXS",7,0) None "KRN",.4,1073,"DXS",7,1) Beam radiation "KRN",.4,1073,"DXS",7,2) Radioactive implants "KRN",.4,1073,"DXS",7,3) Radioisotopes "KRN",.4,1073,"DXS",7,4) Beam rad w implants/radioisotopes "KRN",.4,1073,"DXS",7,5) Radiation therapy, NOS "KRN",.4,1073,"DXS",7,7) Refused radiation therapy "KRN",.4,1073,"DXS",7,8) Recommended, unk if given "KRN",.4,1073,"DXS",7,9) Unk if administered "KRN",.4,1073,"DXS",8,0) None "KRN",.4,1073,"DXS",8,1) Beam radiation "KRN",.4,1073,"DXS",8,2) Radioactive implants "KRN",.4,1073,"DXS",8,3) Radioisotopes "KRN",.4,1073,"DXS",8,4) Beam rad w implants/radioisotopes "KRN",.4,1073,"DXS",8,5) Radiation, NOS "KRN",.4,1073,"DXS",8,7) Refused radiation "KRN",.4,1073,"DXS",8,8) Recommended, unk if given "KRN",.4,1073,"DXS",8,9) Unk if admin "KRN",.4,1073,"F",1) "** FIRST COURSE OF TREATMENT **";S1~"First Course of Treatment Date:";C2;S1~49;C35~" Date of No Treatment: ";C2;S1~124;C35~ "KRN",.4,1073,"F",2) " Surgery of Primary (F): ";C2~50;X;C35~58.6;C35;L45~" Surgery of Primary @Fac (F): ";C2~50.3;C35~58.7;C35;L45~ "KRN",.4,1073,"F",3) " Surgical Margins: ";C2~59;C35~" Scope of LN Surgery (F): ";C2~138.2;X;C35~138.4;C35~" Scope of LN Surgery @Fac (F): ";C2~ "KRN",.4,1073,"F",4) 138.3;C35~138.5;C35~" Surg Proc/Other Site (F): ";C2~139.2;C35~139.4;C35~" Surg Proc/Other Site @Fac (F): ";C2~139.3;C35~139.5;C35~ "KRN",.4,1073,"F",5) " Reconstruction/Restoration: ";C2~23;C35~" Reason for No Surgery: ";C2~ "KRN",.4,1073,"F",6) 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(REASON FOR NO SURGERY)"~ "KRN",.4,1073,"F",7) " Radiation: ";C7;S1~51;X~51.2;C35~" Radiation @Fac: ";C2~51.5;X~51.4;C35;L48~" Sequence: ";C8~ "KRN",.4,1073,"F",8) 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;Z;"LOWERCASE(#51.3)"~ "KRN",.4,1073,"F",9) " Regional Dose: ";C3~442;C35~" Regional Treatment Modality: ";C4~363;C35~" ";C2;S1~ "KRN",.4,1073,"H") @ "KRN",.4,1073,"IOM") 80 "KRN",.4,1073,"LAST") 1 "KRN",.4,1073,"ROU") ^ONCOY54 "KRN",.4,1073,"ROUOLD") ONCOY54 "KRN",.4,1073,"SUB") 1 "KRN",.4,1076,-1) 0^3 "KRN",.4,1076,0) ONCOY57^3031112.1325^^165.5^^@^3031112 "KRN",.4,1076,"DXS",1,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,1076,"DXS",2,0) None "KRN",.4,1076,"DXS",2,1) Beam Radiation "KRN",.4,1076,"DXS",2,2) Radioactive Implants "KRN",.4,1076,"DXS",2,3) Radioisotopes "KRN",.4,1076,"DXS",2,4) Combination of Beam + Implants or Isotopes "KRN",.4,1076,"DXS",2,5) Radiation NOS "KRN",.4,1076,"DXS",2,7) Radiation Therapy Refused "KRN",.4,1076,"DXS",2,8) Recommended, Unknown if Given "KRN",.4,1076,"DXS",2,9) Unknown if Recommended/Given "KRN",.4,1076,"DXS",3,82) Not admin/contraindicated "KRN",.4,1076,"DXS",3,85) Pt died prior to tx "KRN",.4,1076,"DXS",3,86) Not admin, no reason given "KRN",.4,1076,"DXS",3,87) Refused by pt "KRN",.4,1076,"DXS",3,88) Unknown if admin "KRN",.4,1076,"DXS",3,99) Unknown, death cert "KRN",.4,1076,"DXS",3,"00") None "KRN",.4,1076,"DXS",3,"01") Chemotherapy, NOS "KRN",.4,1076,"DXS",3,"02") Single agent "KRN",.4,1076,"DXS",3,"03") Multiagent "KRN",.4,1076,"DXS",4,82) Not admin/contraindicated "KRN",.4,1076,"DXS",4,85) Pt died prior to tx "KRN",.4,1076,"DXS",4,86) Not admin, no reason given "KRN",.4,1076,"DXS",4,87) Refused by pt "KRN",.4,1076,"DXS",4,88) Unknown if admin "KRN",.4,1076,"DXS",4,99) Unknown, death cert "KRN",.4,1076,"DXS",4,"00") None "KRN",.4,1076,"DXS",4,"01") Hormone therapy "KRN",.4,1076,"DXS",5,82) Not admin/contraindicated "KRN",.4,1076,"DXS",5,85) Pt died prior to tx "KRN",.4,1076,"DXS",5,86) Not admin, no reason given "KRN",.4,1076,"DXS",5,87) Refused by pt "KRN",.4,1076,"DXS",5,88) Unknown if admin "KRN",.4,1076,"DXS",5,99) Unknown, death cert "KRN",.4,1076,"DXS",5,"00") None "KRN",.4,1076,"DXS",5,"01") Immunotherapy "KRN",.4,1076,"DXS",6,0) None "KRN",.4,1076,"DXS",6,1) Other "KRN",.4,1076,"DXS",6,2) Other - Experimental "KRN",.4,1076,"DXS",6,3) Other - Double Blind "KRN",.4,1076,"DXS",6,6) Other - Unproven "KRN",.4,1076,"DXS",6,7) Refusal "KRN",.4,1076,"DXS",6,8) Reccommended, unknown if administered "KRN",.4,1076,"DXS",6,9) Unknown "KRN",.4,1076,"F",1) "** SUBSEQUENT THERAPY **";C5;S1;X~60,"Subsequent Treatment Date: ";C2;S1~60,.01;X;L10~ "KRN",.4,1076,"F",2) 60,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;C42;X;Z;"LOWERCASE(PLACE)"~ "KRN",.4,1076,"F",3) 60,"Surgery of Primary Site: ";C2;S~60,.04;X;L42~60," ";X~60,.041;X~60,"Radiation: ";C2~60,.05;X~60," ";X~60,.051;X~60,"Chemotherapy: ";C2~60,.06;X~ "KRN",.4,1076,"F",4) 60," ";X~60,.061;X~60,"Hormone Therapy: ";C2~60,.07;X~60," ";X~60,.071;X~60,"Immunotherapy: ";C2~60,.08;X~60," ";X~60,.081;X~ "KRN",.4,1076,"F",5) 60,"Hema Trans/Endocrine Proc: ";C2~60,.02;X~60," ";X~60,.021;X~60,"Other Cancer Therapy: ";C2~60,.09;X~60," ";X~60,.091;X~ "KRN",.4,1076,"H") @ "KRN",.4,1076,"IOM") 80 "KRN",.4,1076,"LAST") "KRN",.4,1076,"ROU") ^ONCOY57 "KRN",.4,1076,"ROUOLD") ONCOY57 "KRN",.4,1076,"SUB") 1 "KRN",.4,1133,-1) 0^1 "KRN",.4,1133,0) ONCO XINCIDENCE RPRT^3030910.1315^^165.5^^@^3030910 "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.2) S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X="DIAGNOSIS DATE: " "KRN",.4,1133,"DXS",3,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",4,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",5,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",6,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,"DXS",7,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"") S X="ABSTRACT DATE: " "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,.111;C5;X~ "KRN",.4,1133,"F",4) -160,.118;C5;X~-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 " ""~ "KRN",.4,1133,"F",14) X DXS(2,9.2) S DIP(2)=X,X=$$EXTERNAL^DIDU(165.5,3,"",$P(DIP(1),U,16)) S Y=X X ^DD("DD") S X=DIP(2)_Y S Y=X D DT K DIP;C5;X;Z;""DIAGNOSIS DATE: "_#3";d;L18~ "KRN",.4,1133,"F",15) 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",16) 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",17) X DXS(3,9) W X K DIP;C45;X;L36;Z;""LATERALITY: "_#28"~ "KRN",.4,1133,"F",18) 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",19) X DXS(4,9) W X K DIP;C45;X;L36;Z;""CLASS of CASE: "_#.04"~X DXS(5,9) W X K DIP;C5;X;Z;""DX CONFIRMATION: "_#26"~ "KRN",.4,1133,"F",20) X DXS(6,9) W X K DIP;C45;X;L36;Z;""GEN SUMMARY STG: "_#35"~ "KRN",.4,1133,"F",21) 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",22) 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",23) W " ";C1;X;Z;"W " ""~W " ";C1;X;Z;"W " ""~W "***************************************";C20;X;Z;"W "***************************************""~ "KRN",.4,1133,"F",24) 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",25) W "DATE of LAST CONTACT: "_X;C5;X;L18;Z;"W "DATE of LAST CONTACT: "_X"~ "KRN",.4,1133,"F",26) 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",27) W " ";C1;X;Z;"W " ""~W "***************************************";C20;X;Z;"W "***************************************""~W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",28) W " ";C1;X;Z;"W " ""~ "KRN",.4,1133,"F",29) 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",30) X DXS(7,9.2) S DIP(2)=X,X=$$EXTERNAL^DIDU(165.5,90,"",$P(DIP(1),U,1)) S Y=X X ^DD("DD") S X=DIP(2)_Y S Y=X D DT K DIP;C45;X;Z;""ABSTRACT DATE: "_#90";d;L18~ "KRN",.4,1133,"H") @ "KRN",.4,1133,"IOM") 80 "KRN",.4,1133,"LAST") 1 "KRN",.4,1133,"ROU") ^ONCOXNC "KRN",.4,1133,"ROUOLD") ONCOXNC "KRN",.4,1133,"SUB") 1 "KRN",.402,1248,-1) 0^2 "KRN",.402,1248,0) ONCO RECURRENCE FOLLOWUP^3031112.1002^^165.5^^^3031112 "KRN",.402,1248,"DR",1,165.5) D RE^ONCOAIF;71;S:X="" Y="@111";S XR="" I X'="" S XR=$P(^ONCO(160.12,X,0),U,1);70;71.4;S:(XR<40)!(XR>62) Y="@98";71.1;S:X=0 Y="@96";71.2;S:X=0 Y="@97";71.3;S Y="@99";@96;71.2////0;W !,"DISTANT SITE 2: None";@97;71.3////0; "KRN",.402,1248,"DR",1,165.5,1) W !,"DISTANT SITE 3: None";S Y="@99";@98;S $P(^ONCO(165.5,D0,5),U,3,5)="0^0^0";W !,"DISTANT SITE 1: None";W !,"DISTANT SITE 2: None";W !,"DISTANT SITE 3: None";@99;W !;72;@111;D STX^ONCOAIF;60;K XR; "KRN",.402,1248,"DR",2,165.51) .01;I TX="" W !!," ** ICDO-TOPOGRAPHY CODE NOT defined for this primary -- cannot continue **",! S Y="@999";.04;I X="" S Y=$S(DATEDX>2971231:"@35",1:.05);S X=X;S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),"^",4); "KRN",.402,1248,"DR",2,165.51,1) I (SPS="00")!(SPS=1) S $P(^ONCO(165.5,D0,4,D1,0),U,11)="0000000",Y=$S(DATEDX>2971231:"@35",1:.05) W !," SURGERY OF PRIMARY SITE DATE..: 00/00/00";S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16); "KRN",.402,1248,"DR",2,165.51,2) I SPS'="",$G(^ONCO(164,SSTOP,"SPS",SPS,0))["Unknown" S $P(^ONCO(165.5,D0,4,D1,0),U,11)="9999999",Y=$S(DATEDX>2971231:"@35",1:.05) W !," SURGERY OF PRIMARY SITE DATE..: 99/99/99";.041;S Y=$S(DATEDX<2980101:.05,1:"@35");@35;.05; "KRN",.402,1248,"DR",2,165.51,3) S:(X=0)!(X=7) Y="@20";S:(X=8)!(X=9) Y="@29";.051;1;S Y="@03";@20;.051////0000000;W !,?2,"RADIATION DATE: 00/00/0000";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";S Y="@03";@29;.051////9999999; "KRN",.402,1248,"DR",2,165.51,4) W !,?2,"RADIATION DATE: 99/99/9999";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";@03;I DATEDX>2951231 S Y=.06;.03;S:(X=0)!(X=7) Y="@30";S:(X=8)!(X=9) Y="@39";.031;S Y=.06;@30;.031////0000000; "KRN",.402,1248,"DR",2,165.51,5) W !,?2,"RADIATION THERAPY TO CNS DATE: 00/00/0000";S Y=.06;@39;.031////9999999;W !,?2,"RADIATION THERAPY TO CNS DATE: 99/99/9999";.06;S:(X="00")!(X=82)!(X=85)!(X=86)!(X=87) Y="@40";S:(X=88)!(X=99) Y="@49";.061;S Y=.07;@40; "KRN",.402,1248,"DR",2,165.51,6) .061////0000000;W !,?2,"CHEMOTHERAPY DATE: 00/00/0000";S Y=.07;@49;.061////9999999;W !,?2,"CHEMOTHERAPY DATE: 99/99/9999";.07;S:(X="00")!(X=82)!(X=85)!(X=86)!(X=87) Y="@50";S:(X=88)!(X=99) Y="@59";.071;S Y=.08;@50;.071////0000000; "KRN",.402,1248,"DR",2,165.51,7) W !,?2,"HORMONE THERAPY DATE: 00/00/0000";S Y=.08;@59;.071////9999999;W !,?2,"HORMONE THERAPY DATE: 99/99/9999";.08;I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) S Y="@60";I (X=88)!(X=99) S Y="@69";.081;S Y=.02;@60;.081////0000000; "KRN",.402,1248,"DR",2,165.51,8) W !,?2,"IMMUNOTHERAPY DATE: 00/00/0000";S Y=.02;@69;.081////9999999;W !,?2,"IMMUNOTHERAPY DATE: 99/99/9999";.02;I X="" S Y=.021;S HTEP=$P($G(^ONCO(167,X,0)),U,1);I (HTEP="00")!(HTEP=82)!(HTEP=85)!(HTEP=86)!(HTEP=87) S Y="@80"; "KRN",.402,1248,"DR",2,165.51,9) I (HTEP=88)!(HTEP=99) S Y="@89";.021;S Y=.09;@80;.021////0000000;W !,?2,"HEMA TRANS/ENDOCRINE DATE: 00/00/0000";S Y=.09;@89;.021////9999999;W !,?2,"HEMA TRANS/ENDOCRINE DATE: 99/99/9999";.09;S:(X=0)!(X=7) Y="@70"; "KRN",.402,1248,"DR",2,165.51,10) S:(X=8)!(X=9) Y="@79";.091;S Y=2;@70;.091////0000000;W !,?2,"OTHER TREATMENT START DATE: 00/00/0000";S Y=2;@79;.091////9999999;W !,?2,"OTHER TREATMENT START DATE: 99/99/9999";2;3;@999; "KRN",.402,1248,"DR",2,165.572) .01;S:X="" Y="@111";.02;I X'="" S:$P(^ONCO(160.12,X,0),U,1)'=40 Y="@109";S:X="" Y="@110";.03;S:X=0 Y="@107";.031;S:X=0 Y="@108";.032;S Y="@110";@107;.031////0;W !," DISTANT SITE 2: None";@108;.032////0; "KRN",.402,1248,"DR",2,165.572,1) W !," DISTANT SITE 3: None";S Y="@110";@109;S $P(^ONCO(165.5,D0,23,D1,0),U,3,5)="0^0^0";W !," DISTANT SITE 1: None";W !," DISTANT SITE 2: None";W !," DISTANT SITE 3: None";@110; "KRN",.402,1256,-1) 0^1 "KRN",.402,1256,0) ONCO ABSTRACT-I^3031201.1213^^165.5^^^3031203 "KRN",.402,1256,"%D",0) ^^2^2^2960125^^^^ "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);11;8;8.2;8.1;16;9;10;147//^S X="000000";2.1;2;2.3;S:'X Y=18;2.4;18;1.2;D PHCDSP^ONCPHC;148//^S X=PHCDEF;I X=1 S Y="@11"; "KRN",.402,1256,"DR",1,165.5,1) 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;W ! D PAUSE^ONCOPA2A I PAUSE=U S Y="@0";S Y=$S(ONCOANS="A":"@2",1:"@0");@2; "KRN",.402,1256,"DR",1,165.5,2) D CAN^ONCOAIP;.04;S COC=X;I (COC=5)!(COC=8) D ^ONCOCC;I COC=0 S RFDEF="NONE" S Y=6;I COC=1 S RFDEF="NONE",TFDEF="NONE";6//^S X=$G(RFDEF);I COC=2 S TFDEF="NONE";7//^S X=$G(TFDEF);155;3;I (COC=0)!(COC=1) S DFDEF=$E(RH,1,30); "KRN",.402,1256,"DR",1,165.5,3) 5//^S X=$G(DFDEF);20;D PAIR^ONCOAIP;S Y=$$TOP^ONCOAIT;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); "KRN",.402,1256,"DR",1,165.5,4) W !,"HISTOLOGY CODE: ",$$GET1^DIQ(165.5,D0,22.1);D HISTXT^ONCOAIP;S X=X;101;I $G(TOP)'=67619 S Y=24;623;684;24;83;26;I ($$GET1^DIQ(165.5,D0,.01,"E")'="LIVER")&($G(TOP)'=67220) S Y="@251";1010;@251; "KRN",.402,1256,"DR",1,165.5,5) 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);@2520;I $G(TM3)=0 S Y="@23";D TM^ONCOTM(D0,3);@2530;S Y="@27";@21;25.1///9; "KRN",.402,1256,"DR",1,165.5,6) W !,"TUMOR MARKER 1: Unknown or no information";@22;25.2///9;W !,"TUMOR MARKER 2: Unknown or no information";@23;25.3///9;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"; "KRN",.402,1256,"DR",1,165.5,7) 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;W !,"DATE OF CANCER CONF: 99/99/9999";@28;W !;104;S FLDNUM=104,NODE=10,LIMIT=200 D ^ONCTEXT;W !;105; "KRN",.402,1256,"DR",1,165.5,8) 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,9) 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;29;30;D BLOOD^ONCOAIP2;30.5;@301;D PGPE^ONCOAIP2;30.1;@231;D LN^ONCOAIP2;31;S L=X; "KRN",.402,1256,"DR",1,165.5,10) I $$LYMPHOMA^ONCFUNC(D0) S $P(^ONCO(165.5,D0,2),U,12,13)="99^99";S X=X;33;I X=0 S Y="@24";I X=99 S Y="@25";32;S Y="@26";@24;32////98;W !,"REGIONAL LYMPH NODES POSITIVE: No nodes examined";S Y="@26";@25;32////99; "KRN",.402,1256,"DR",1,165.5,11) W !,"REGIONAL LYMPH NODES POSITIVE: Unknown if nodes +, NA, not stated";@26;35;I X'=7 S Y="@310";34;S:X=0 Y="@32";34.1;S:X=0 Y="@33";34.2;S Y="@34";@310;34////0;W !,"SITE OF DISTANT METASTASIS #1: None";@32;34.1////0; "KRN",.402,1256,"DR",1,165.5,12) W !,"SITE OF DISTANT METASTASIS #2: None";@33;34.2////0;W !,"SITE OF DISTANT METASTASIS #3: None";@34;D ^ONCOTN;69;69.3;S:$E($$HIST^ONCFUNC(D0),1,3)'=951 Y=37.1;69.1;69.2;Q;37.1;D CN2^ONCOTN;37.2;37.3; "KRN",.402,1256,"DR",1,165.5,13) I '$$GTT^ONCOU55(D0) S Y="@38";134;@38;I '$$T^ONCOU55(D0) S Y="@39";136;@39;S STGIND="C" D ES^ONCOTN;Q;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; "KRN",.402,1256,"DR",1,165.5,14) S STGIND="P" D ES^ONCOTN;S X=X;89;W !;149;151;S Y="@313";@376;38;19;88;89;@313;39;S Y=$S(ONCOANS="A":"@4",1:"@0");@4;D CHKCOC^ONCATF I (COC=5)!(COC=8) S Y="@8";D NCDS^ONCPTX;58.1;D NCDS^ONCATF; "KRN",.402,1256,"DR",1,165.5,15) I X="" S TXNUL=1,$P(^ONCO(165.5,D0,3),U,31)="",Y="@35";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; "KRN",.402,1256,"DR",1,165.5,16) I X="" S $P(^ONCO(165.5,D0,3.1),U,6)="",Y="@36";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; "KRN",.402,1256,"DR",1,165.5,17) I $P($G(^ONCO(165.5,DA,0)),U,16)>3021231 S Y="@429";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); "KRN",.402,1256,"DR",1,165.5,18) I SPS=("00")!(SPS=1) D SURR^ONCNTX S TXNO=1,Y="@426";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 SURR^ONCUTX S TXUNK=1 S Y="@426";D SATFDFR^ONCOCC;74;@426; "KRN",.402,1256,"DR",1,165.5,19) D DSPSPSR^ONCATF;W !;50.2//^S X=$G(SPSDF);@427;W !;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"; "KRN",.402,1256,"DR",1,165.5,20) I SCOPE=1 D NODER^ONCNTX S TXNO=1,Y="@1381";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"; "KRN",.402,1256,"DR",1,165.5,21) I $G(^ONCO(164,SGRP,"SC5",SCOPE,0))["Unknown" D NODER^ONCUTX S TXUNK=1,Y="@1381";140;D NUMND^ONCATF;@1381;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); "KRN",.402,1256,"DR",1,165.5,22) I SCPATF="" S $P(^ONCO(165.5,D0,3.1),U,11)="",Y="@139";I SCPATF=1 D NODATFR^ONCNTX1 S Y="@139";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"; "KRN",.402,1256,"DR",1,165.5,23) 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;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"; "KRN",.402,1256,"DR",1,165.5,24) 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";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; "KRN",.402,1256,"DR",1,165.5,25) 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;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; "KRN",.402,1256,"DR",1,165.5,26) 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";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1);S SGRP=$P($G(^ONCO(164,TPX,0)),U,16); "KRN",.402,1256,"DR",1,165.5,27) 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);I X="" S $P(^ONCO(165.5,D0,3.1),U,8)="",Y="@43";S X=X; "KRN",.402,1256,"DR",1,165.5,28) 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";S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" S Y="@44"; "KRN",.402,1256,"DR",1,165.5,29) 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 CHKPRMF^ONCUTX1;138.4;D SCP^ONCATF;S X=X; "KRN",.402,1256,"DR",1,165.5,30) 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";I SCOPE=9 D NODE^ONCUTX S TXUNK=1,Y="@45";138.2; "KRN",.402,1256,"DR",1,165.5,31) D SCPDT^ONCATF;@45;D DSPSCP^ONCATF;W !;D SCOPE^ONCOCC;138.5//^S X=$G(SCPDF);S X=X;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"; "KRN",.402,1256,"DR",1,165.5,32) I SCPATF=0 D NODEATF^ONCNTX1 S Y="@46";I SCPATF=9 D NODEATF^ONCUTX1 S Y="@46";138.3//^S X=$G(SCPDTDF);@46;W !;139.4;D SOSN^ONCATF;S X=X; "KRN",.402,1256,"DR",1,165.5,33) 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;D SOSNDT^ONCATF;@47;D DSPSOSN^ONCATF;W !; "KRN",.402,1256,"DR",1,165.5,34) 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";I SOSNATF=9 D SOSNATF^ONCUTX1 S Y="@48"; "KRN",.402,1256,"DR",1,165.5,35) 139.3//^S X=$G(SOSNDTDF);@48;W !;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 !;D SURTXT^ONCATF1;108;S FLDNUM=108,NODE=14,LIMIT=150 D ^ONCTEXT;W !;D RFNS^ONCATF1;58;@44;D RAD^ONCPTX; "KRN",.402,1256,"DR",1,165.5,36) 51.2;D RAD^ONCATF1;S R=$S(X&(X<7):1,1:0);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; "KRN",.402,1256,"DR",1,165.5,37) D RATFDEF^ONCOCC;126;125;363;442;363.1;443;56;361;@49;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"; "KRN",.402,1256,"DR",1,165.5,38) 51.5//^S X=$G(RADDTDF);@411;D RS^ONCOAIP;S X=X;W !;51.3;D RFNR^ONCATF1;W !;75;S RVAR=$P($G(^ONCO(165.5,D0,3)),U,6);I RVAR=""!(RVAR=0)!(RVAR=9) S Y="@413";@412;W !;109;S FLDNUM=109,NODE=15,LIMIT=150 D ^ONCTEXT;@413;D ST^ONCPTX;53.2; "KRN",.402,1256,"DR",1,165.5,39) 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";I (X=88)!(X=99) D CHE^ONCUTX S TXUNK=1,Y="@414";53;D CHEMDT^ONCATF1;D CATFDEF^ONCOCC;@414; "KRN",.402,1256,"DR",1,165.5,40) D DSPCHEM^ONCATF1;W !;53.3//^S X=$G(CHEMDF);I X="" S $P(^ONCO(165.5,D0,3.1),U,15)="",Y="@415";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); "KRN",.402,1256,"DR",1,165.5,41) @415;W !;S CVAR=$P($G(^ONCO(165.5,D0,3)),U,13);I (CVAR="")!(CVAR="00")!(CVAR=99)!(CVAR=82)!(CVAR=85)!(CVAR=86)!(X=87) S Y="@416";111;S FLDNUM=111,NODE=17,LIMIT=200 D ^ONCTEXT;@416;W !;54.2;D HT^ONCATF1; "KRN",.402,1256,"DR",1,165.5,42) 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";I (X=88)!(X=99) D HOR^ONCUTX S TXUNK=1,Y="@417";54;D HTDT^ONCATF1;D HATFDEF^ONCOCC;@417;D DSPHT^ONCATF1; "KRN",.402,1256,"DR",1,165.5,43) W !;54.3//^S X=$G(HTDF);I X="" S $P(^ONCO(165.5,D0,3.1),U,17)="",Y="@418";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 !; "KRN",.402,1256,"DR",1,165.5,44) S HVAR=$P($G(^ONCO(165.5,D0,3)),U,16);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; "KRN",.402,1256,"DR",1,165.5,45) I X="" S $P(^ONCO(165.5,D0,3),U,17)="",TXNUL=1,Y="@420";I (X="00")!(X=82)!(X=85)!(X=86)!(X=87) D IMM^ONCNTX1 S TXNO=1,Y="@420";I (X=88)!(X=99) D IMM^ONCUTX S TXUNK=1,Y="@420";55;D IMMDT^ONCATF1;D IATFDEF^ONCOCC;@420; "KRN",.402,1256,"DR",1,165.5,46) D DSPIMM^ONCATF1;W !;55.3//^S X=$G(IMMDF);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); "KRN",.402,1256,"DR",1,165.5,47) @421;W !;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,48) 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,49) 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";I (X=0)!(X=7) D OTH^ONCNTX1 S TXNO=$S(X=0:1,1:""),Y="@423"; "KRN",.402,1256,"DR",1,165.5,50) 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);I X="" S $P(^ONCO(165.5,D0,3.1),U,21)="" S Y="@424"; "KRN",.402,1256,"DR",1,165.5,51) 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);I OVAR=""!(OVAR=0)!(OVAR=9) D PAUSE^ONCOPA2A S Y="@425";115; "KRN",.402,1256,"DR",1,165.5,52) S FLDNUM=115,NODE=21,LIMIT=100 D ^ONCTEXT;@425;W !;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";I (X=0)!(X=2)!(X=3)!(X=4)!(X=5)!(X=6)!(X=7)!(X=8) D PRO^ONCNTX1 S Y="@113"; "KRN",.402,1256,"DR",1,165.5,53) 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":"@8",1:"@0");@6;D ORF^ONCOAIP;205;206;207;208;209;210;211;212;213;214;215;216;217;218;219;220;221;222; "KRN",.402,1256,"DR",1,165.5,54) 223;224;225;226;S Y="@0";@8;D AB^ONCOAIP;91;I X'=3 S Y="@81";90//^S X=$P(DT,".");@81;S X=$P(^VA(200,DUZ,0),U,1);92//^S X=X;W !!;65;S:X="" Y="@82";66;@82;S:$P(^ONCO(165.5,D0,7),U,4)="" Y="@83";W !!?5,"Selected for QA=>",!;63; "KRN",.402,1256,"DR",1,165.5,55) S:X="N" Y="@83";64;64.1;64.2;@83;S Y="";62;@999999; "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^2950307^2950417 "PKG",14,22,1,"PAH",1,0) 37^3031203 "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") YES "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") YES "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") YES "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") 34 "RTN","ONCACD0") 0^5^B38819176 "RTN","ONCACD0",1,0) ONCACD0 ;Hines OIFO/GWB - Extract driver ;06/11/01 "RTN","ONCACD0",2,0) ;;2.11;Oncology;**9,12,20,24,25,28,29,30,36,37**;Mar 07, 1995 "RTN","ONCACD0",3,0) ; "RTN","ONCACD0",4,0) EN1(DEVICE,STEXT) ;Select the Extract to use from file 160.16 "RTN","ONCACD0",5,0) EN2 N EXTRACT,HDRIEN,STAT,STAT1,STAT2,DATE,YESNO,BDT,SDT,EDT,QUEUE "RTN","ONCACD0",6,0) K ^TMP($J) "RTN","ONCACD0",7,0) S DEVICE=$G(DEVICE,0) "RTN","ONCACD0",8,0) S STEXT=$G(STEXT,0) "RTN","ONCACD0",9,0) S (EXTRACT,QUEUE)=0 "RTN","ONCACD0",10,0) S EXT="" "RTN","ONCACD0",11,0) I STEXT=0 S EXTRACT=$O(^ONCO(160.16,"B","ACD EXTRACT V10.1",0)) "RTN","ONCACD0",12,0) S STAT=0,DATE=0,OUT=0,SDT=0,EDT=0 "RTN","ONCACD0",13,0) S HDRIEN=EXTRACT "RTN","ONCACD0",14,0) D DISPLAY "RTN","ONCACD0",15,0) I STEXT=1 D GETREC(.EXTRACT,.OUT) "RTN","ONCACD0",16,0) I 'OUT S STAT=$$GETHOSP "RTN","ONCACD0",17,0) I 'STAT S OUT=1 "RTN","ONCACD0",18,0) I 'OUT S STAT1=$P(STAT,U,1),STAT2=$P(STAT,U,2) "RTN","ONCACD0",19,0) I 'OUT D GETDATE(.DATE,.OUT) "RTN","ONCACD0",20,0) I 'OUT,STEXT D GETDT(.SDT,.EDT,DATE,.OUT) "RTN","ONCACD0",21,0) I 'OUT D VERIFY(STAT,DATE,SDT,EDT,STEXT,.YESNO,.OUT) "RTN","ONCACD0",22,0) I 'OUT G:'YESNO EN2 "RTN","ONCACD0",23,0) I 'OUT D DEVICE(DEVICE,.OUT) "RTN","ONCACD0",24,0) I 'OUT D:'QUEUE PRINT(DEVICE,.OUT) "RTN","ONCACD0",25,0) D EXIT "RTN","ONCACD0",26,0) Q "RTN","ONCACD0",27,0) ; "RTN","ONCACD0",28,0) GETREC(EXTRACT,OUT) ;Select record layout "RTN","ONCACD0",29,0) W !!," Available record layouts:",! "RTN","ONCACD0",30,0) W !," 1) VAACCR Record Layout Version 10.1 (VA Registry)" "RTN","ONCACD0",31,0) W !," 2) NAACCR State Record Layout Version 10.1" "RTN","ONCACD0",32,0) W ! "RTN","ONCACD0",33,0) N DIR,X,Y "RTN","ONCACD0",34,0) S DIR(0)="SAO^1:VAACCR Record Layout Version 10.1;2:NAACCR State Record Layout Version 10.1" "RTN","ONCACD0",35,0) S DIR("A")=" Select record layout: " "RTN","ONCACD0",36,0) S DIR("?")="Select the record layout to use" "RTN","ONCACD0",37,0) D ^DIR "RTN","ONCACD0",38,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",39,0) I +Y<1 S OUT=1 Q "RTN","ONCACD0",40,0) I Y=1 S EXT="VACCR",EXTRACT=$O(^ONCO(160.16,"B","VACCR EXTRACT V10.1",0)) "RTN","ONCACD0",41,0) I Y=2 S EXT="STATE",EXTRACT=$O(^ONCO(160.16,"B","STATE EXTRACT V10.1",0)) "RTN","ONCACD0",42,0) S HDRIEN=EXTRACT "RTN","ONCACD0",43,0) Q "RTN","ONCACD0",44,0) DISPLAY ;Display help "RTN","ONCACD0",45,0) N X,DIR,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) 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="STATE REPORTING ACOS INFOA",TO="STATE REPORTING ACOS INFOA" "RTN","ONCACD0",55,0) E S FR="PRIMARY ACOS INFO (850)",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) Q "RTN","ONCACD0",61,0) GETDT(SDT,EDT,DATE,OUT) ; Select a start range and an end range for state "RTN","ONCACD0",62,0) N %DT "RTN","ONCACD0",63,0) S %DT="AEPX",%DT("A")=" Select start date: " "RTN","ONCACD0",64,0) D ^%DT "RTN","ONCACD0",65,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",66,0) S (%DT(0),SDT,BDT)=Y "RTN","ONCACD0",67,0) S %DT="AEPX",%DT("A")=" Select end date: " "RTN","ONCACD0",68,0) D ^%DT "RTN","ONCACD0",69,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",70,0) S EDT=Y "RTN","ONCACD0",71,0) I EXT="" Q "RTN","ONCACD0",72,0) I EXT="VACCR" S ACO=1 Q "RTN","ONCACD0",73,0) S DIR("A")=" Analytic cases only" "RTN","ONCACD0",74,0) S DIR("B")="YES" "RTN","ONCACD0",75,0) S DIR(0)="Y" "RTN","ONCACD0",76,0) S DIR("?")=" " "RTN","ONCACD0",77,0) S DIR("?",1)=" Answer 'YES' if you want only analytic cases (CLASS OF CASE 0-2) extracted." "RTN","ONCACD0",78,0) S DIR("?",2)=" Answer 'NO' if you want all cases (analytic and non-analytic) extracted." "RTN","ONCACD0",79,0) D ^DIR "RTN","ONCACD0",80,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",81,0) S ACO=Y "RTN","ONCACD0",82,0) Q "RTN","ONCACD0",83,0) ; "RTN","ONCACD0",84,0) PRINT(DEVICE,OUT) ; Print out data "RTN","ONCACD0",85,0) I 'DEVICE D Q:OUT "RTN","ONCACD0",86,0) .N X "RTN","ONCACD0",87,0) .W !! "RTN","ONCACD0",88,0) .W !,?6,"-----------------------------------------------------------------" "RTN","ONCACD0",89,0) .W !,?6,"|Please activate your PC capture program. The data will be sent|" "RTN","ONCACD0",90,0) .W !,?6,"| in 30 seconds or when you press the return key. |" "RTN","ONCACD0",91,0) .W !,?6,"-----------------------------------------------------------------" "RTN","ONCACD0",92,0) .W !!! "RTN","ONCACD0",93,0) .R X:30 "RTN","ONCACD0",94,0) .I X="^" S OUT=1 "RTN","ONCACD0",95,0) .Q "RTN","ONCACD0",96,0) U IO D EN1^ONCACD1 "RTN","ONCACD0",97,0) Q "RTN","ONCACD0",98,0) EXIT ; Clean up and quit "RTN","ONCACD0",99,0) K D0,DI,DIC,DISYS,DQ,FIL,ONCOM,ONCOT,ONCOYR,OUT,ST,STGIND,X,Y "RTN","ONCACD0",100,0) I '$D(^TMP($J)) W !?3,"No records extracted." G EX "RTN","ONCACD0",101,0) W ! "RTN","ONCACD0",102,0) S DIC="^ONCO(165.5,",L=0,FLDS="[ONC EXTRACT]",BY(0)="^TMP($J,",L(0)=1 "RTN","ONCACD0",103,0) S:DEVICE IOP=ION "RTN","ONCACD0",104,0) I STEXT=0 S DHD=$P(^ONCO(160.16,HDRIEN,0),U,1) W ! "RTN","ONCACD0",105,0) I STEXT=1 S DHD=$P(^ONCO(160.16,HDRIEN,0),U,1)_" "_$$FMTE^XLFDT(BDT,"2D")_" - "_$$FMTE^XLFDT(EDT,"2D") "RTN","ONCACD0",106,0) D EN1^DIP "RTN","ONCACD0",107,0) I IOST?1"C".E K DIR S DIR(0)="E" D ^DIR Q:'Y "RTN","ONCACD0",108,0) EX K ^TMP($J) "RTN","ONCACD0",109,0) K %ZIS "RTN","ONCACD0",110,0) D ^%ZISC "RTN","ONCACD0",111,0) Q "RTN","ONCACD0",112,0) ; "RTN","ONCACD0",113,0) DEVICE(DEVICE,OUT) ;Select output device "RTN","ONCACD0",114,0) Q:'DEVICE "RTN","ONCACD0",115,0) S %ZIS="Q" "RTN","ONCACD0",116,0) D ^%ZIS "RTN","ONCACD0",117,0) I POP S OUT=1 Q "RTN","ONCACD0",118,0) I $D(IO("Q")) D "RTN","ONCACD0",119,0) .S ZTRTN="PRINT^ONCACD0(DEVICE,.OUT)" "RTN","ONCACD0",120,0) .S ZTDESC=$S('STEXT:"ACoS Report Print",STEXT:"State Extract Print",1:"") "RTN","ONCACD0",121,0) .S ZTSAVE("STAT1")="" "RTN","ONCACD0",122,0) .S ZTSAVE("DATE")="" "RTN","ONCACD0",123,0) .S ZTSAVE("STEXT")="" "RTN","ONCACD0",124,0) .S ZTSAVE("DEVICE")="" "RTN","ONCACD0",125,0) .S ZTSAVE("OUT")="" "RTN","ONCACD0",126,0) .S ZTSAVE("BDT")="" "RTN","ONCACD0",127,0) .S ZTSAVE("SDT")="" "RTN","ONCACD0",128,0) .S ZTSAVE("EDT")="" "RTN","ONCACD0",129,0) .S ZTSAVE("EXTRACT")="" "RTN","ONCACD0",130,0) .S ZTSAVE("HDRIEN")="" "RTN","ONCACD0",131,0) .D ^%ZTLOAD "RTN","ONCACD0",132,0) .I $D(ZTSK)[0 S OUT=1 W !!,?20,"Report Canceled!" "RTN","ONCACD0",133,0) .E W !!,?20,"Report Queued!" S QUEUE=1 "RTN","ONCACD0",134,0) .D HOME^%ZIS "RTN","ONCACD0",135,0) .Q "RTN","ONCACD0",136,0) Q "RTN","ONCACD0",137,0) ; "RTN","ONCACD0",138,0) VERIFY(STAT,DATE,SDT,EDT,STEXT,YESNO,OUT) ;Verify settings "RTN","ONCACD0",139,0) N DIR,Y "RTN","ONCACD0",140,0) I STEXT=0 S RL=$P(^ONCO(160.16,HDRIEN,0),U,1) "RTN","ONCACD0",141,0) I STEXT=1 S RL=$P(^ONCO(160.16,HDRIEN,0),U,1) "RTN","ONCACD0",142,0) W !!," These are your current settings:" "RTN","ONCACD0",143,0) W ! "RTN","ONCACD0",144,0) W !," Record layout.......................: ",RL "RTN","ONCACD0",145,0) W !," Facility Identification Number (FIN): ",STAT1 "RTN","ONCACD0",146,0) I STEXT=0 W !," Accession Year......................: ",DATE "RTN","ONCACD0",147,0) I STEXT=1 D "RTN","ONCACD0",148,0) .W !," Start date..........................: ",$$FMTE^XLFDT(SDT,"2D") "RTN","ONCACD0",149,0) .W !," End date............................: ",$$FMTE^XLFDT(EDT,"2D") "RTN","ONCACD0",150,0) I EXT="STATE" D "RTN","ONCACD0",151,0) .W !," Analytic cases only.................: ",$S(ACO=1:"YES",1:"NO") "RTN","ONCACD0",152,0) W ! "RTN","ONCACD0",153,0) S DIR("A")=" Are these settings correct" "RTN","ONCACD0",154,0) S DIR("B")="YES" "RTN","ONCACD0",155,0) S DIR(0)="Y" "RTN","ONCACD0",156,0) D ^DIR "RTN","ONCACD0",157,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",158,0) S YESNO=Y "RTN","ONCACD0",159,0) Q "RTN","ONCACD0",160,0) ; "RTN","ONCACD0",161,0) GETDATE(DATE,OUT) ; Get a valid date. "RTN","ONCACD0",162,0) Q:STEXT=1 "RTN","ONCACD0",163,0) N CYR,DIR,SCREEN,Y "RTN","ONCACD0",164,0) S DATE=0 "RTN","ONCACD0",165,0) S CYR=1700+($E(DT,1,3)),SCREEN="K:X>CYR X" "RTN","ONCACD0",166,0) S DIR(0)="NAO^1900:"_CYR_":0^"_SCREEN,DIR("B")=CYR "RTN","ONCACD0",167,0) S DIR("A")=" Accession Year: " "RTN","ONCACD0",168,0) D ^DIR "RTN","ONCACD0",169,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",170,0) S DATE=Y "RTN","ONCACD0",171,0) Q "RTN","ONCACD0",172,0) ; "RTN","ONCACD0",173,0) GETHOSP() ;Hospital ID number "RTN","ONCACD0",174,0) N STAT,STATI,ALLOK "RTN","ONCACD0",175,0) S STAT=0,ALLOK=$$GETDXH(.STAT) "RTN","ONCACD0",176,0) I STAT S STATI=6_STAT_0,STAT=STAT_"^"_STATI "RTN","ONCACD0",177,0) Q STAT "RTN","ONCACD0",178,0) ; "RTN","ONCACD0",179,0) GETDXH(DXH) ;INSTITUTION ID NUMBER (160.1,27) "RTN","ONCACD0",180,0) N OKHERE,DIE,DA,DR,ONCOL "RTN","ONCACD0",181,0) W ! "RTN","ONCACD0",182,0) S DIE=160.1 "RTN","ONCACD0",183,0) S DA=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCACD0",184,0) I DA="" S DA=$O(^ONCO(160.1,0)) "RTN","ONCACD0",185,0) S DR=27_$J("",1)_"Facility Identification Number (FIN)" "RTN","ONCACD0",186,0) S ONCOL=0 "RTN","ONCACD0",187,0) L +^ONCO(160.1,DA):0 I $T D ^DIE L -^ONCO(160.1,DA) S ONCOL=1 "RTN","ONCACD0",188,0) I 'ONCOL W !,"The site paramaters record is being edited by another user." "RTN","ONCACD0",189,0) K ONCOL,DIE "RTN","ONCACD0",190,0) I $D(Y)=0 S DXH=$$GET1^DIQ(160.19,X,.01,"I") "RTN","ONCACD0",191,0) S OKHERE=($D(Y)=0) "RTN","ONCACD0",192,0) Q OKHERE "RTN","ONCACD1") 0^25^B35124788 "RTN","ONCACD1",1,0) ONCACD1 ;Hines OIFO/GWB - Annual Call for Data; 06/11/01 "RTN","ONCACD1",2,0) ;;2.11;Oncology;**9,12,14,18,20,22,24,25,26,28,29,31,36,37**;Mar 07, 1995 "RTN","ONCACD1",3,0) ;; "RTN","ONCACD1",4,0) EN1 ;Main entry point "RTN","ONCACD1",5,0) K ^TMP($J) "RTN","ONCACD1",6,0) N PAGE,OIEN "RTN","ONCACD1",7,0) S PAGE=1 "RTN","ONCACD1",8,0) S OIEN=0 "RTN","ONCACD1",9,0) D SETUP "RTN","ONCACD1",10,0) I DEVICE S:$D(ZTQUEUED) ZTREQ="@" Q "RTN","ONCACD1",11,0) I 'DEVICE W $C(26) H 30 "RTN","ONCACD1",12,0) Q "RTN","ONCACD1",13,0) ; "RTN","ONCACD1",14,0) HEAD(IEN,OUT) ;Header print "RTN","ONCACD1",15,0) N FLG "RTN","ONCACD1",16,0) I IEN=OIEN S FLG=0 "RTN","ONCACD1",17,0) I IEN'=OIEN S OIEN=IEN,FLG=1 "RTN","ONCACD1",18,0) I 'FLG Q:$Y+4EDT)!(OUT=1) F S IEN=$O(^ONCO(165.5,"AAD",SDT,IEN)) Q:IEN<1 I $$DIV^ONCFUNC(IEN)=DUZ(2) D Q:OUT "RTN","ONCACD1",49,0) .Q:$G(^ONCO(165.5,IEN,0))="" "RTN","ONCACD1",50,0) .I $G(ACO)=1,$$GET1^DIQ(165.5,IEN,.04,"I")>2 Q ;Analytic cases only "RTN","ONCACD1",51,0) .D LOOP "RTN","ONCACD1",52,0) Q "RTN","ONCACD1",53,0) ; "RTN","ONCACD1",54,0) LOOP ;Loop though the data that was given "RTN","ONCACD1",55,0) N RULES,VALID,JUMP "RTN","ONCACD1",56,0) S RULES=0 "RTN","ONCACD1",57,0) F S RULES=$O(^ONCO(160.16,EXTRACT,"RULES",RULES)) Q:RULES<1 D "RTN","ONCACD1",58,0) .N LINE "RTN","ONCACD1",59,0) .S LINE=^ONCO(160.16,EXTRACT,"RULES",RULES,0) "RTN","ONCACD1",60,0) .X LINE "RTN","ONCACD1",61,0) Q:'VALID "RTN","ONCACD1",62,0) S ^TMP($J,IEN)="" "RTN","ONCACD1",63,0) D OUTPUT(IEN,EXTRACT,JUMP,.OUT) "RTN","ONCACD1",64,0) I 'DEVICE W ! "RTN","ONCACD1",65,0) Q "RTN","ONCACD1",66,0) OUTPUT(IEN,EXTRACT,JUMP,OUT) ;Output the data "RTN","ONCACD1",67,0) N POS "RTN","ONCACD1",68,0) S ACD160=$P(^ONCO(165.5,IEN,0),U,2) "RTN","ONCACD1",69,0) I DEVICE D HEAD(IEN,.OUT) Q:OUT "RTN","ONCACD1",70,0) S POS=0 "RTN","ONCACD1",71,0) F S POS=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS)) Q:POS<1 D Q:OUT "RTN","ONCACD1",72,0) .N NODE "RTN","ONCACD1",73,0) .S NODE=0 "RTN","ONCACD1",74,0) .F S NODE=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS,NODE)) Q:NODE<1 D Q:OUT "RTN","ONCACD1",75,0) ..N STRING,DEFAULT,FILL,LEN "RTN","ONCACD1",76,0) ..Q:$G(^ONCO(160.16,EXTRACT,"FIELD",NODE,0))="" "RTN","ONCACD1",77,0) ..D DISPLAY(DEVICE,$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,1)_U_$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,4),.OUT) "RTN","ONCACD1",78,0) ..Q:OUT "RTN","ONCACD1",79,0) ..S STRING=$TR(^ONCO(160.16,EXTRACT,"FIELD",NODE,1),"~","^") "RTN","ONCACD1",80,0) ..S DEFAULT=^ONCO(160.16,EXTRACT,"FIELD",NODE,2) "RTN","ONCACD1",81,0) ..S FILL=$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,3),U,1) "RTN","ONCACD1",82,0) ..S LEN=$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,2) "RTN","ONCACD1",83,0) ..D DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS) "RTN","ONCACD1",84,0) ..I $G(^ONCO(160.16,EXTRACT,0))["ACD" D "RTN","ONCACD1",85,0) ...I $O(^ONCO(160.16,EXTRACT,"FIELD","B",POS))>1 Q ; Search for last "RTN","ONCACD1",86,0) ...N EXTRACT,NODE,POS "RTN","ONCACD1",87,0) ...;============================================ "RTN","ONCACD1",88,0) ...;| This Code is to support the PCE Extract. | "RTN","ONCACD1",89,0) ...;============================================ "RTN","ONCACD1",90,0) ...S EXTRACT=100,JUMP=0 "RTN","ONCACD1",91,0) ...;S:$D(^ONCO(165.5,"APCE","BLA",IEN)) EXTRACT=1 "RTN","ONCACD1",92,0) ...; ^==== Bladder 95,90,85 "RTN","ONCACD1",93,0) ...;S:$D(^ONCO(165.5,"APCE","THY",IEN)) EXTRACT=2 "RTN","ONCACD1",94,0) ...; ^==== Thyroid 96,91,86 "RTN","ONCACD1",95,0) ...;S:$D(^ONCO(165.5,"APCE","STS",IEN)) EXTRACT=3 "RTN","ONCACD1",96,0) ...; ^==== Soft Tissue 96,91,86 "RTN","ONCACD1",97,0) ...;S:$D(^ONCO(165.5,"APCE","COL",IEN)) EXTRACT=4 "RTN","ONCACD1",98,0) ...; ^==== Colorectal 97,92,87 "RTN","ONCACD1",99,0) ...;S:$D(^ONCO(165.5,"APCE","NHL",IEN)) EXTRACT=5 "RTN","ONCACD1",100,0) ...; ^==== Non-Hodgkins 97,92,87 "RTN","ONCACD1",101,0) ...;S:$D(^ONCO(165.5,"APCE","BRE",IEN)) EXTRACT=6 "RTN","ONCACD1",102,0) ...; ^==== Breast 98,93,88 "RTN","ONCACD1",103,0) ...;S:$D(^ONCO(165.5,"APCE","PRO2",IEN)) EXTRACT=7 "RTN","ONCACD1",104,0) ...; ^==== Prostate 98,93,88 "RTN","ONCACD1",105,0) ...;S:$D(^ONCO(165.5,"APCE","MEL",IEN)) EXTRACT=8 "RTN","ONCACD1",106,0) ...; ^==== Melanoma 99,94,89 "RTN","ONCACD1",107,0) ...;S:$D(^ONCO(165.5,"APCE","HEP",IEN)) EXTRACT=9 "RTN","ONCACD1",108,0) ...; ^==== Hepatocellular Cancers 00,95,90 "RTN","ONCACD1",109,0) ...;S:$D(^ONCO(165.5,"APCE","CNS",IEN)) EXTRACT=10 "RTN","ONCACD1",110,0) ...; ^==== Primary Intracranial/CNS Tumors 00,95,90 "RTN","ONCACD1",111,0) ...;S:$D(^ONCO(165.5,"APCE","LNG",IEN)) EXTRACT=11 "RTN","ONCACD1",112,0) ...; ^==== Lung (NSCLC) 01,96,91 "RTN","ONCACD1",113,0) ...;S:$D(^ONCO(165.5,"APCE","GAS",IEN)) EXTRACT=12 "RTN","ONCACD1",114,0) ...; ^==== Gastric Cancers 01,96,91 "RTN","ONCACD1",115,0) ...S POS=0 "RTN","ONCACD1",116,0) ...F S POS=$O(^ONCO(160.17,EXTRACT,"FIELD","B",POS)) Q:POS<1 D Q:OUT "RTN","ONCACD1",117,0) ....N NODE "RTN","ONCACD1",118,0) ....S NODE=0 "RTN","ONCACD1",119,0) ....F S NODE=$O(^ONCO(160.17,EXTRACT,"FIELD","B",POS,NODE)) Q:NODE<1 D Q:OUT "RTN","ONCACD1",120,0) .....N STRING,DEFAULT,FILL,LEN "RTN","ONCACD1",121,0) .....Q:$G(^ONCO(160.17,EXTRACT,"FIELD",NODE,0))="" "RTN","ONCACD1",122,0) .....D DISPLAY(DEVICE,$P(^ONCO(160.17,EXTRACT,"FIELD",NODE,0),U,1)_U_$P(^ONCO(160.17,EXTRACT,"FIELD",NODE,0),U,4),.OUT) "RTN","ONCACD1",123,0) .....Q:OUT "RTN","ONCACD1",124,0) .....S STRING=$TR(^ONCO(160.17,EXTRACT,"FIELD",NODE,1),"~","^") "RTN","ONCACD1",125,0) .....S DEFAULT=^ONCO(160.17,EXTRACT,"FIELD",NODE,2) "RTN","ONCACD1",126,0) .....S FILL=^ONCO(160.17,EXTRACT,"FIELD",NODE,3) "RTN","ONCACD1",127,0) .....S LEN=$P(^ONCO(160.17,EXTRACT,"FIELD",NODE,0),U,2) "RTN","ONCACD1",128,0) .....D DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS) "RTN","ONCACD1",129,0) Q "RTN","ONCACD1",130,0) DISPLAY(DEVICE,WRITE,OUT) ; Display Data "RTN","ONCACD1",131,0) Q:'DEVICE "RTN","ONCACD1",132,0) N DOTS,COL,ITEM "RTN","ONCACD1",133,0) I DEVICE,($Y+5)>IOSL D HEAD(0,.OUT) Q:OUT "RTN","ONCACD1",134,0) S COL=$P(WRITE,U,1) "RTN","ONCACD1",135,0) S COL=$S($L(COL)=1:" "_COL,$L(COL)=2:" "_COL,$L(COL)=3:" "_COL,1:COL) "RTN","ONCACD1",136,0) S ITEM=$P(WRITE,U,2),ITEM=$E(ITEM,1,45) "RTN","ONCACD1",137,0) S DOTS=(46-$L(ITEM)) "RTN","ONCACD1",138,0) W !,COL,?5,ITEM "RTN","ONCACD1",139,0) F I=1:1:DOTS W "." "RTN","ONCACD1",140,0) Q "RTN","ONCACD1",141,0) DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS) ; Data print "RTN","ONCACD1",142,0) N ACDANS,EXIT "RTN","ONCACD1",143,0) S EXIT=0 "RTN","ONCACD1",144,0) I JUMP'="0" D "RTN","ONCACD1",145,0) .I POS<$P(JUMP,U) Q "RTN","ONCACD1",146,0) .I POS>$P(JUMP,U,2) Q "RTN","ONCACD1",147,0) .N I "RTN","ONCACD1",148,0) .S EXIT=1 "RTN","ONCACD1",149,0) .F I=1:1:LEN W BLANK "RTN","ONCACD1",150,0) Q:EXIT "RTN","ONCACD1",151,0) X STRING "RTN","ONCACD1",152,0) I ACDANS="" D Q "RTN","ONCACD1",153,0) .N X,I "RTN","ONCACD1",154,0) .S X="" "RTN","ONCACD1",155,0) .F I=1:1:LEN W @DEFAULT "RTN","ONCACD1",156,0) I $L(ACDANS)=LEN W ACDANS Q "RTN","ONCACD1",157,0) I $L(ACDANS)>LEN W $E(ACDANS,1,LEN) Q "RTN","ONCACD1",158,0) E D Q "RTN","ONCACD1",159,0) .N JUST,STUFF,I,REM,CAL "RTN","ONCACD1",160,0) .S JUST=$P(FILL,","),STUFF=$P(FILL,",",2) "RTN","ONCACD1",161,0) .S REM=LEN-$L(ACDANS) "RTN","ONCACD1",162,0) .I JUST="R" W ACDANS "RTN","ONCACD1",163,0) .F I=1:1:REM W @STUFF "RTN","ONCACD1",164,0) .I JUST="L" W ACDANS "RTN","ONCACD1",165,0) Q "RTN","ONCACDU1") 0^26^B37683434 "RTN","ONCACDU1",1,0) ONCACDU1 ;Hines OIFO/GWB - UTILITY ROUTINE #1;06/23/00 "RTN","ONCACDU1",2,0) ;;2.11;Oncology;**12,14,16,20,21,22,24,26,27,28,33,36,37**;Mar 07, 1995 "RTN","ONCACDU1",3,0) ; "RTN","ONCACDU1",4,0) DATE(FMDT) ;Translate date to needed format "RTN","ONCACDU1",5,0) N DATE "RTN","ONCACDU1",6,0) S DATE="" "RTN","ONCACDU1",7,0) I FMDT'="" D "RTN","ONCACDU1",8,0) .N MM,DD,YYYY,YYYMMDD,MMDDCCYY "RTN","ONCACDU1",9,0) .S YYYMMDD=FMDT "RTN","ONCACDU1",10,0) .I YYYMMDD="0000000" S DATE="00000000" Q "RTN","ONCACDU1",11,0) .I YYYMMDD="9999999" S DATE="99999999" Q "RTN","ONCACDU1",12,0) .D "RTN","ONCACDU1",13,0) ..S YYYY=($E(YYYMMDD,1,3)+1700) "RTN","ONCACDU1",14,0) ..I YYYY=1900,$E(YYYMMDD,4,7)="0000" S YYYY="0000" "RTN","ONCACDU1",15,0) .S MM=$S($E(YYYMMDD,4,5)'="00":$E(YYYMMDD,4,5),1:99) "RTN","ONCACDU1",16,0) .S DD=$S($E(YYYMMDD,6,7)'="00":$E(YYYMMDD,6,7),1:99) "RTN","ONCACDU1",17,0) .S MMDDCCYY=MM_DD_YYYY "RTN","ONCACDU1",18,0) .S DATE=MMDDCCYY "RTN","ONCACDU1",19,0) Q DATE "RTN","ONCACDU1",20,0) ; "RTN","ONCACDU1",21,0) ZIP(ACD160) ;Addr Current--Postal Code [1830] 1329-1337 "RTN","ONCACDU1",22,0) N X,D0,ONCOX1,OIEN,ONCOM,ONCON,ONCOT,ONCOX "RTN","ONCACDU1",23,0) S X="" "RTN","ONCACDU1",24,0) S D0=ACD160 "RTN","ONCACDU1",25,0) I $D(^ONCO(160,D0,0)) D SETUP1^ONCOES "RTN","ONCACDU1",26,0) I $D(ONCOX1) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,6),1:"") "RTN","ONCACDU1",27,0) Q X "RTN","ONCACDU1",28,0) ; "RTN","ONCACDU1",29,0) SSN(DFN) ;SSN "RTN","ONCACDU1",30,0) N VADM,VA "RTN","ONCACDU1",31,0) D DEM^VADPT "RTN","ONCACDU1",32,0) S ACDSSN="000"_$E(VADM(1),1)_VA("BID") "RTN","ONCACDU1",33,0) Q ACDSSN "RTN","ONCACDU1",34,0) ; "RTN","ONCACDU1",35,0) RI(IEN) ;Registry ID. "RTN","ONCACDU1",36,0) N ACDRI "RTN","ONCACDU1",37,0) S ACDRI=STAT1 "RTN","ONCACDU1",38,0) I ACDRI'="" S ACDRI=6_ACDRI_6 "RTN","ONCACDU1",39,0) Q ACDRI "RTN","ONCACDU1",40,0) Q "RTN","ONCACDU1",41,0) ; "RTN","ONCACDU1",42,0) CNTY(IEN) ;County at DX [90] 83-85 "RTN","ONCACDU1",43,0) N COUNTYPT,COUNTYNM,COUNTYIE,STATE,FIPSCODE "RTN","ONCACDU1",44,0) S FIPSCODE="" "RTN","ONCACDU1",45,0) S COUNTYPT=$$GET1^DIQ(165.5,IEN,10,"I") ;Pointer to COUNTY (5.1) "RTN","ONCACDU1",46,0) I COUNTYPT="" G QCNTY "RTN","ONCACDU1",47,0) S FIPSCODE=$$GET1^DIQ(5.1,COUNTYPT,2,"I") ;SEER COUNTY CODE (5.1,2) "RTN","ONCACDU1",48,0) G:FIPSCODE'="" QCNTY ;QUIT if FIPSCODE found "RTN","ONCACDU1",49,0) S COUNTYNM=$$GET1^DIQ(165.5,IEN,10,"E") ;COUNTY (5.1) name "RTN","ONCACDU1",50,0) S STATE=$$GET1^DIQ(5.1,COUNTYPT,1,"I") ;Pointer to STATE (5) "RTN","ONCACDU1",51,0) S COUNTYIE=$O(^DIC(5,STATE,1,"B",COUNTYNM,0)) "RTN","ONCACDU1",52,0) I COUNTYIE'="" S FIPSCODE=$P($G(^DIC(5,STATE,1,COUNTYIE,0)),U,3) "RTN","ONCACDU1",53,0) S:FIPSCODE="" FIPSCODE=999 "RTN","ONCACDU1",54,0) QCNTY Q FIPSCODE "RTN","ONCACDU1",55,0) ; "RTN","ONCACDU1",56,0) AGEDX(IEN) ;Age at Diagnosis [230] 119-121 "RTN","ONCACDU1",57,0) N ACDAGE,D0,X "RTN","ONCACDU1",58,0) S D0=IEN "RTN","ONCACDU1",59,0) D AGE^ONCOCOM S ACDAGE=$S(X=""!(X<0)!(X>999):"",1:X) "RTN","ONCACDU1",60,0) Q ACDAGE "RTN","ONCACDU1",61,0) ; "RTN","ONCACDU1",62,0) OCCUP(ACD160) ;Text--Usual Occupation [310] 143-182 "RTN","ONCACDU1",63,0) N X,OCCUP "RTN","ONCACDU1",64,0) S X="UNKNOWN" "RTN","ONCACDU1",65,0) S OCCUP=$O(^ONCO(160,ACD160,7,0)) "RTN","ONCACDU1",66,0) I OCCUP'<1 D "RTN","ONCACDU1",67,0) .N OCC "RTN","ONCACDU1",68,0) .S OCC=$P($G(^ONCO(160,ACD160,7,OCCUP,0)),U,1) "RTN","ONCACDU1",69,0) .Q:OCC<1 "RTN","ONCACDU1",70,0) .S X=$$GET1^DIQ(61.6,OCC,.01,"I") "RTN","ONCACDU1",71,0) Q X "RTN","ONCACDU1",72,0) ; "RTN","ONCACDU1",73,0) IND(ACD160) ;Text--Usual Industry [320] 183-222 "RTN","ONCACDU1",74,0) N X,OCCUP "RTN","ONCACDU1",75,0) S X="UNKNOWN" "RTN","ONCACDU1",76,0) S OCCUP=$O(^ONCO(160,ACD160,7,0)) "RTN","ONCACDU1",77,0) I OCCUP'<1 D "RTN","ONCACDU1",78,0) .N IND "RTN","ONCACDU1",79,0) .S IND=$P($G(^ONCO(160,ACD160,7,OCCUP,0)),U,4) "RTN","ONCACDU1",80,0) .Q:IND="" "RTN","ONCACDU1",81,0) .S X=IND "RTN","ONCACDU1",82,0) Q X "RTN","ONCACDU1",83,0) ; "RTN","ONCACDU1",84,0) IEN160(IEN) ;IEN "RTN","ONCACDU1",85,0) N Y,Z "RTN","ONCACDU1",86,0) S Y="" "RTN","ONCACDU1",87,0) S Z=$G(^ONCO(165.5,IEN,0)) "RTN","ONCACDU1",88,0) S Y=$P(Z,U,2) "RTN","ONCACDU1",89,0) I $G(^ONCO(160,Y,0))="" S Y="" "RTN","ONCACDU1",90,0) Q Y "RTN","ONCACDU1",91,0) ; "RTN","ONCACDU1",92,0) BLAD(IEN) ;Bladder "RTN","ONCACDU1",93,0) N X,Y,Z,FLG "RTN","ONCACDU1",94,0) S FLG=0 D "RTN","ONCACDU1",95,0) .S X=$$GET1^DIQ(165.5,IEN,20,"I") Q:X="" "RTN","ONCACDU1",96,0) .S Y=$$GET1^DIQ(164,X,1,"E") Q:Y="" "RTN","ONCACDU1",97,0) .I $E(Y,1)'="C" Q "RTN","ONCACDU1",98,0) .S Z=$E(Y,2,$L(Y)) "RTN","ONCACDU1",99,0) .I Z<67.0!(Z>68.0) Q "RTN","ONCACDU1",100,0) .S FLG=1 "RTN","ONCACDU1",101,0) Q FLG "RTN","ONCACDU1",102,0) ; "RTN","ONCACDU1",103,0) TOB(IEN) ;Tobacco History [340] 184-184 "RTN","ONCACDU1",104,0) ;VACCR EXTRACT only "RTN","ONCACDU1",105,0) N X,AASTOB "RTN","ONCACDU1",106,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",107,0) S X=$P($G(^ONCO(160,ACD160,8)),U,2) "RTN","ONCACDU1",108,0) S AASTOB=$S(X="Y":"Y",X="N":0,X="U":9,1:X) "RTN","ONCACDU1",109,0) I AASTOB="Y" D "RTN","ONCACDU1",110,0) .N X S X="" "RTN","ONCACDU1",111,0) .S X=$O(^ONCO(160,ACD160,5,X),-1) "RTN","ONCACDU1",112,0) .I X'<1 I $G(^ONCO(160,ACD160,5,X,0))'="" D "RTN","ONCACDU1",113,0) ..N Y S Y=^ONCO(160,ACD160,5,X,0) "RTN","ONCACDU1",114,0) ..I $P(Y,U,3)'="" S AASTOB=5 Q ;Previous use "RTN","ONCACDU1",115,0) ..S AASTOB=$S($P(Y,U)=1:1,$P(Y,U)=2:2,$P(Y,U)=3:2,$P(Y,U)=4:3,$P(Y,U)=5:3,$P(Y,U)=7:4,1:9) "RTN","ONCACDU1",116,0) .I AASTOB="Y" S AASTOB=9 "RTN","ONCACDU1",117,0) Q AASTOB "RTN","ONCACDU1",118,0) ; "RTN","ONCACDU1",119,0) ALC(IEN) ;Alcohol History [350] 225-225 "RTN","ONCACDU1",120,0) ;VACCR EXTRACT only "RTN","ONCACDU1",121,0) N X,AASALCO "RTN","ONCACDU1",122,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",123,0) S X=$P($G(^ONCO(160,ACD160,8)),U,3) "RTN","ONCACDU1",124,0) S AASALCO=$S(X="Y":"Y",X="N":0,X="U":9,1:X) "RTN","ONCACDU1",125,0) I AASALCO="Y" D "RTN","ONCACDU1",126,0) .N X S X="" "RTN","ONCACDU1",127,0) .S X=$O(^ONCO(160,ACD160,6,X),-1) "RTN","ONCACDU1",128,0) .I X'<1 I $G(^ONCO(160,ACD160,6,X,0))'="" D "RTN","ONCACDU1",129,0) ..N Y S Y=^ONCO(160,ACD160,6,X,0) "RTN","ONCACDU1",130,0) ..I $P(Y,U,4)'="" S AASALCO=2 Q ;Past history of alcohol use "RTN","ONCACDU1",131,0) ..S AASALCO=1 "RTN","ONCACDU1",132,0) .I AASALCO="Y" S AASALCO=9 "RTN","ONCACDU1",133,0) Q AASALCO "RTN","ONCACDU1",134,0) ; "RTN","ONCACDU1",135,0) LRDS(IEN) ;Loc/Reg/Distant Stage [770] 530-530 "RTN","ONCACDU1",136,0) N X,ANS "RTN","ONCACDU1",137,0) S ANS=$$GET1^DIQ(165.5,IEN,35,"I") "RTN","ONCACDU1",138,0) S X=$S(ANS=3:2,ANS=4:2,ANS=5:2,ANS=7:3,1:ANS) "RTN","ONCACDU1",139,0) Q X "RTN","ONCACDU1",140,0) ; "RTN","ONCACDU1",141,0) BEHAV(IEN) ;Behavior Code "RTN","ONCACDU1",142,0) N BEHAV "RTN","ONCACDU1",143,0) S BEHAV=$E($$HIST^ONCFUNC(IEN),5) "RTN","ONCACDU1",144,0) Q BEHAV "RTN","ONCACDU1",145,0) ; "RTN","ONCACDU1",146,0) OLDDATE(X) ;Convert date from FM date to external format "RTN","ONCACDU1",147,0) N DATE "RTN","ONCACDU1",148,0) I X="" S DATE=" " "RTN","ONCACDU1",149,0) E D "RTN","ONCACDU1",150,0) .S DATE=$E(X,4,5)_$E(X,6,7)_(1700+$E(X,1,3)) "RTN","ONCACDU1",151,0) .I $E(DATE,1,4)="9999" S DATE="99999999" "RTN","ONCACDU1",152,0) .I $E(DATE,1,4)="0000" S DATE="00000000" "RTN","ONCACDU1",153,0) Q DATE "RTN","ONCACDU1",154,0) ; "RTN","ONCACDU1",155,0) SG(IEN,TYPE) ;TNM Stage Groups "RTN","ONCACDU1",156,0) ;TNM Path Stage Group [910] 569-570 "RTN","ONCACDU1",157,0) ;TNM Clin Stage Group [970] 579-580 "RTN","ONCACDU1",158,0) ;TNM Other Stage Group [1030] 599-590 "RTN","ONCACDU1",159,0) N GS "RTN","ONCACDU1",160,0) S GS="" "RTN","ONCACDU1",161,0) I TYPE="" Q GS "RTN","ONCACDU1",162,0) I TYPE="P" S GS=$$GET1^DIQ(165.5,IEN,88,"I") "RTN","ONCACDU1",163,0) I TYPE="C" S GS=$$GET1^DIQ(165.5,IEN,38,"I") "RTN","ONCACDU1",164,0) I TYPE="O" S GS=$$GET1^DIQ(165.5,IEN,117,"I") "RTN","ONCACDU1",165,0) I GS'="" S GS=$S("^0^0A^1^1A^1B^1C^2^2A^2B^2C^3^3A^3B^3C^4^4A^4B^4C^9^88^"[("^"_GS_"^"):GS,GS["0":"0",1:"9") "RTN","ONCACDU1",166,0) I GS="9" S GS="99" "RTN","ONCACDU1",167,0) Q GS "RTN","ONCACDU1",168,0) ; "RTN","ONCACDU1",169,0) ALIAS(ACD160) ;Name--Alias [2280] 2006-2020 "RTN","ONCACDU1",170,0) N X,DO,ONCOX,XD0,XD1 "RTN","ONCACDU1",171,0) S X="" "RTN","ONCACDU1",172,0) S D0=ACD160 "RTN","ONCACDU1",173,0) I $D(^ONCO(160,D0,0)) D "RTN","ONCACDU1",174,0) .D SETUP^ONCOES "RTN","ONCACDU1",175,0) .Q:$P(ONCOX,";",2)'="DPT(" S XD0=$P(ONCOX,";") "RTN","ONCACDU1",176,0) .S XD1=0 F S XD1=$O(^DPT(XD0,.01,XD1)) Q:XD1'>0 S X=$P(^(XD1,0),U) Q "RTN","ONCACDU1",177,0) Q X "RTN","ONCACDU1",178,0) ; "RTN","ONCACDU1",179,0) TNM(IEN) ;TNM Coding System "RTN","ONCACDU1",180,0) N CNT,DOD,OUT,OSP "RTN","ONCACDU1",181,0) S CNT=0 "RTN","ONCACDU1",182,0) S DOD=$$GET1^DIQ(165.5,IEN,3,"I") "RTN","ONCACDU1",183,0) S:DOD'="" DOD=($E(DOD,1,3)+1700) "RTN","ONCACDU1",184,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCACDU1",185,0) I OSP="" S OSP=$O(^ONCO(160.1,0)) "RTN","ONCACDU1",186,0) S CNT=$P($G(^ONCO(160.1,OSP,5)),U,1) "RTN","ONCACDU1",187,0) S OUT=$S(DOD<1983:1,DOD<1988:2,DOD<1992:3,DOD=1992:$S(+CNT=92:4,1:3),DOD<1998:4,1:5) "RTN","ONCACDU1",188,0) Q OUT "RTN","ONCACDU1",189,0) ; "RTN","ONCACDU1",190,0) RXCOD(IEN) ;RX Coding System--Current [1460] 888-889 "RTN","ONCACDU1",191,0) N OUT "RTN","ONCACDU1",192,0) S OUT="06" "RTN","ONCACDU1",193,0) Q OUT "RTN","ONCACDU1",194,0) ; "RTN","ONCACDU1",195,0) NL ;Name--Last [2230] 1526-1550 "RTN","ONCACDU1",196,0) S ACDANS=$$STRIP^XLFSTR(ACDANS," !""""#$%&'()*+,./:;<=>?[>]^_\{|}~`") "RTN","ONCACDU1",197,0) Q "RTN","ONCACDU1",198,0) ; "RTN","ONCACDU1",199,0) PHCT ;Patient History of Cancer Text 1785-1804 "RTN","ONCACDU1",200,0) S ACDANS="" "RTN","ONCACDU1",201,0) F I=148.1,148.2,148.3,148.4 S PHCTPT=$$GET1^DIQ(165.5,IEN,I,"I") D "RTN","ONCACDU1",202,0) .Q:PHCTPT="" "RTN","ONCACDU1",203,0) .S PHCT=$$GET1^DIQ(164.2,PHCTPT,.01,"I") "RTN","ONCACDU1",204,0) .Q:PHCT="NOT APPLICABLE" "RTN","ONCACDU1",205,0) .Q:($L(ACDANS)+$L(PHCT))>20 "RTN","ONCACDU1",206,0) .S ACDANS=ACDANS_PHCT_"/" "RTN","ONCACDU1",207,0) S ACDANS=$E(ACDANS,1,$L(ACDANS)-1) "RTN","ONCACDU1",208,0) K I,PHCTPT,PHCT "RTN","ONCACDU1",209,0) Q "RTN","ONCACDU1",210,0) ; "RTN","ONCACDU1",211,0) FHCT ;Family History of Cancer Text 1456-1505 "RTN","ONCACDU1",212,0) K ONC S IEN=ACD160_"," D GETS^DIQ(160,IEN,"44*","","ONC") "RTN","ONCACDU1",213,0) S (ACDANS,FHCTIEN)="" "RTN","ONCACDU1",214,0) F S FHCTIEN=$O(ONC(160.044,FHCTIEN)) Q:FHCTIEN'>0 D "RTN","ONCACDU1",215,0) .S FHCT=ONC(160.044,FHCTIEN,.01)_"("_ONC(160.044,FHCTIEN,1)_")" "RTN","ONCACDU1",216,0) .Q:($L(ACDANS)+$L(FHCT))>50 "RTN","ONCACDU1",217,0) .S ACDANS=ACDANS_FHCT_"/" "RTN","ONCACDU1",218,0) S ACDANS=$E(ACDANS,1,$L(ACDANS)-1) "RTN","ONCACDU1",219,0) K ONC,IEN,FHCTIEN,FHCT "RTN","ONCACDU2") 0^24^B42053033 "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**;Mar 07, 1995 "RTN","ONCACDU2",3,0) ; "RTN","ONCACDU2",4,0) HOSP1(PROC,IEN) ;Check to see if the site is breast or prostate "RTN","ONCACDU2",5,0) ;Inputs: PROC = Process Number to be processed "RTN","ONCACDU2",6,0) ; IEN = Record within File 160.16 "RTN","ONCACDU2",7,0) ;Output; X data for field. "RTN","ONCACDU2",8,0) ; "RTN","ONCACDU2",9,0) N PTR,X,SITE "RTN","ONCACDU2",10,0) S X=0 "RTN","ONCACDU2",11,0) S SITE=$$GET1^DIQ(165.5,IEN,.01,"I") "RTN","ONCACDU2",12,0) S SITE=$$GET1^DIQ(164.2,SITE,.01,"I") "RTN","ONCACDU2",13,0) I SITE="BREAST" D "RTN","ONCACDU2",14,0) .I PROC=1 S PTR=$$GET1^DIQ(165.5,IEN,141,"I") S:PTR'="" X=$P($G(^ONCO(164,67500,"BP5",PTR,0)),U,2) "RTN","ONCACDU2",15,0) .I PROC=2 S PTR=$$GET1^DIQ(165.5,IEN,142,"I") S:PTR'="" X=$P($G(^ONCO(164,67500,"GU5",PTR,0)),U,2) "RTN","ONCACDU2",16,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,143,"I") "RTN","ONCACDU2",17,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,144,"I") "RTN","ONCACDU2",18,0) ; "RTN","ONCACDU2",19,0) I SITE="PROSTATE" D "RTN","ONCACDU2",20,0) .I PROC=1 S PTR=$$GET1^DIQ(165.5,IEN,141,"I") S:PTR'="" X=$P($G(^ONCO(164,67619,"BP5",PTR,0)),U,2) "RTN","ONCACDU2",21,0) .I PROC=2 S PTR=$$GET1^DIQ(165.5,IEN,142,"I") S:PTR'="" X=$P($G(^ONCO(164,67619,"GU5",PTR,0)),U,2) "RTN","ONCACDU2",22,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,145,"I") "RTN","ONCACDU2",23,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,146,"I") "RTN","ONCACDU2",24,0) Q X "RTN","ONCACDU2",25,0) ; "RTN","ONCACDU2",26,0) VAFLD(ACDANS) ;Convert data to valid external format "RTN","ONCACDU2",27,0) ;Input: ACDANS "RTN","ONCACDU2",28,0) ; Y=1 "RTN","ONCACDU2",29,0) ; N=0 "RTN","ONCACDU2",30,0) ; U=9 "RTN","ONCACDU2",31,0) I ACDANS="N" S ACDANS=0 "RTN","ONCACDU2",32,0) I ACDANS="Y" S ACDANS=1 "RTN","ONCACDU2",33,0) I ACDANS="U" S ACDANS=9 "RTN","ONCACDU2",34,0) Q ACDANS "RTN","ONCACDU2",35,0) ; "RTN","ONCACDU2",36,0) VASIT() ;VISN 1452-1453 "RTN","ONCACDU2",37,0) ;Output: X = VISN "RTN","ONCACDU2",38,0) N X "RTN","ONCACDU2",39,0) S OSPIEN=$O(^ONCO(160.1,0)) "RTN","ONCACDU2",40,0) S X=$P($G(^ONCO(160.1,OSPIEN,1)),U,7) "RTN","ONCACDU2",41,0) K OSPIEN "RTN","ONCACDU2",42,0) Q X "RTN","ONCACDU2",43,0) ; "RTN","ONCACDU2",44,0) COCO(IEN) ;COC Coding Sys--Original [2150] 1202-1203 "RTN","ONCACDU2",45,0) N X "RTN","ONCACDU2",46,0) S DATEDX=$$GET1^DIQ(165.5,IEN,3,"I") "RTN","ONCACDU2",47,0) S X=$S(DATEDX>3021231:"08",DATEDX>2951231:"07",1:"05") "RTN","ONCACDU2",48,0) Q X "RTN","ONCACDU2",49,0) ; "RTN","ONCACDU2",50,0) STATE() ;Vendor Name [2170] 1204-1213 "RTN","ONCACDU2",51,0) N X,VERSION "RTN","ONCACDU2",52,0) S VERSION=$P($G(^ONCO(160.16,EXTRACT,0))," ",3) "RTN","ONCACDU2",53,0) S X="VA"_VERSION_$E($T(LOGO+3^ONCODIS),62,64) "RTN","ONCACDU2",54,0) Q X "RTN","ONCACDU2",55,0) ; "RTN","ONCACDU2",56,0) BDATE(ACD160) ;Birth Date [240] 122-129 "RTN","ONCACDU2",57,0) N D0,X "RTN","ONCACDU2",58,0) S D0=ACD160 "RTN","ONCACDU2",59,0) D DOB^ONCOES "RTN","ONCACDU2",60,0) S X=$G(X) "RTN","ONCACDU2",61,0) Q X "RTN","ONCACDU2",62,0) ; "RTN","ONCACDU2",63,0) WORD(IEN,NODE,LEN) ;Get word processing data "RTN","ONCACDU2",64,0) N X "RTN","ONCACDU2",65,0) S X="" "RTN","ONCACDU2",66,0) I $D(^ONCO(165.5,IEN,NODE,0)) D "RTN","ONCACDU2",67,0) .N CNT,LINE "RTN","ONCACDU2",68,0) .S CNT=0 "RTN","ONCACDU2",69,0) .S LINE="" "RTN","ONCACDU2",70,0) .F S CNT=$O(^ONCO(165.5,IEN,NODE,CNT)) Q:CNT<1 D Q:($L(LINE)>LEN) "RTN","ONCACDU2",71,0) ..Q:'$D(^ONCO(165.5,IEN,NODE,CNT,0)) "RTN","ONCACDU2",72,0) ..S LINE=LINE_^ONCO(165.5,IEN,NODE,CNT,0)_" " "RTN","ONCACDU2",73,0) .S X=LINE "RTN","ONCACDU2",74,0) Q X "RTN","ONCACDU2",75,0) ; "RTN","ONCACDU2",76,0) STAGE(IEN,TYPE) ;TNM Descriptors "RTN","ONCACDU2",77,0) ;TNM Path Descriptor [910] 571-571 "RTN","ONCACDU2",78,0) ;TNM Clin Descriptor [980] 581-581 "RTN","ONCACDU2",79,0) N LOC,X "RTN","ONCACDU2",80,0) S X="" "RTN","ONCACDU2",81,0) S LOC=$S(TYPE="P":89.1,TYPE="C":37,1:"") "RTN","ONCACDU2",82,0) I TYPE'="" D "RTN","ONCACDU2",83,0) .N STRING "RTN","ONCACDU2",84,0) .S STRING=$$GET1^DIQ(165.5,IEN,LOC,"E") "RTN","ONCACDU2",85,0) .I ($P(STRING," ")["m")&($P(STRING," ")["y") S X=6 Q "RTN","ONCACDU2",86,0) .I $P(STRING," ")["m" S X=3 Q "RTN","ONCACDU2",87,0) .I $P(STRING," ")["y" S X=4 Q "RTN","ONCACDU2",88,0) Q X "RTN","ONCACDU2",89,0) ; "RTN","ONCACDU2",90,0) CCOUNTY(ACD160) ;County--Current "RTN","ONCACDU2",91,0) N ZIP,X "RTN","ONCACDU2",92,0) S X="" "RTN","ONCACDU2",93,0) S ZIP=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",94,0) I ZIP'="" D "RTN","ONCACDU2",95,0) .N ZIP1,CODE,COUNTY "RTN","ONCACDU2",96,0) .S ZIP1=$P($P(ZIP,",",2)," ",3) S:$L(ZIP1)>5 ZIP1=$E(ZIP1,1,5) "RTN","ONCACDU2",97,0) .Q:$L(ZIP1)<5 "RTN","ONCACDU2",98,0) .S CODE=$O(^VIC(5.11,"C",ZIP1,"")) "RTN","ONCACDU2",99,0) .Q:CODE<1 "RTN","ONCACDU2",100,0) .S COUNTY=$$GET1^DIQ(5.11,CODE,2,"I") "RTN","ONCACDU2",101,0) .Q:COUNTY="" "RTN","ONCACDU2",102,0) .S X=$$GET1^DIQ(5.1,COUNTY,2,"I") "RTN","ONCACDU2",103,0) Q X "RTN","ONCACDU2",104,0) ; "RTN","ONCACDU2",105,0) SUB(IEN,CNT,FIELD) ; "RTN","ONCACDU2",106,0) ;Subsq RX 2nd Course Date [1660] 988-995 "RTN","ONCACDU2",107,0) N X "RTN","ONCACDU2",108,0) S CNT=CNT-1 "RTN","ONCACDU2",109,0) S X="" "RTN","ONCACDU2",110,0) I $O(^ONCO(165.5,IEN,4,0)) D "RTN","ONCACDU2",111,0) .N IENS,SUB,SUBFLD,ENTRY,SUBIEN "RTN","ONCACDU2",112,0) .S SUBIEN=0 F I=1:1 S SUBIEN=$O(^ONCO(165.5,IEN,4,SUBIEN)) Q:(I=CNT)!(SUBIEN'>0) "RTN","ONCACDU2",113,0) .I SUBIEN="" S X="" Q "RTN","ONCACDU2",114,0) .S IENS=SUBIEN_","_IEN "RTN","ONCACDU2",115,0) .S ENTRY=$$GET1^DIQ(165.51,IENS,FIELD,"I") I ENTRY="" S X="" Q "RTN","ONCACDU2",116,0) .I $S(FIELD=".01":1,FIELD=".05":1,FIELD=".06":1,FIELD=".07":1,FIELD=".08":1,FIELD=".09":1,FIELD="37":1,1:0) S X=ENTRY Q "RTN","ONCACDU2",117,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=ENTRY Q "RTN","ONCACDU2",118,0) .S SUBFLD=$S(FIELD=33:"RR5",FIELD=35:"SC5",FIELD=36:"SO5",FIELD=.04:"SPS",1:"") I SUBFLD="" S X="" Q "RTN","ONCACDU2",119,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",120,0) I FIELD=.04,$L(X)=1 S X="0"_X "RTN","ONCACDU2",121,0) Q X "RTN","ONCACDU2",122,0) ; "RTN","ONCACDU2",123,0) SUB164(IEN,SUBFLD,ENTRY) ;Get values out of file 164 "RTN","ONCACDU2",124,0) N X,TOP1,TOP2 "RTN","ONCACDU2",125,0) S X="" "RTN","ONCACDU2",126,0) S TOP1=$$GET1^DIQ(165.5,IEN,20,"I") D:TOP1'="" "RTN","ONCACDU2",127,0) .S TOP2=$$GET1^DIQ(164,TOP1,107,"I") D:TOP2'="" "RTN","ONCACDU2",128,0) ..S X=$P($G(^ONCO(164,TOP2,SUBFLD,ENTRY,0)),U,2) "RTN","ONCACDU2",129,0) Q X "RTN","ONCACDU2",130,0) ; "RTN","ONCACDU2",131,0) RXPRI(IEN,FIELD,SUBFLD) ;This is to collect primary "RTN","ONCACDU2",132,0) N X,ENTRY "RTN","ONCACDU2",133,0) S X="" "RTN","ONCACDU2",134,0) S ENTRY=$$GET1^DIQ(165.5,IEN,FIELD,"I") D:ENTRY'="" "RTN","ONCACDU2",135,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000,(FIELD=23)!(FIELD=74)!(FIELD=50.2) 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",136,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",137,0) Q X "RTN","ONCACDU2",138,0) ; "RTN","ONCACDU2",139,0) LAST(ACD160) ;Get last DATE OF LAST CONTACT OR DEATH (160.04,.01) "RTN","ONCACDU2",140,0) S X="",DLC=0 "RTN","ONCACDU2",141,0) S DLC=$O(^ONCO(160,ACD160,"F","AA",DLC)) "RTN","ONCACDU2",142,0) S:DLC'="" X=$O(^ONCO(160,ACD160,"F","AA",DLC,0)) "RTN","ONCACDU2",143,0) I X'>0 S X="" "RTN","ONCACDU2",144,0) Q X "RTN","ONCACDU2",145,0) ; "RTN","ONCACDU2",146,0) FNODE(ACD160,FIELD) ; "RTN","ONCACDU2",147,0) ;Date of Last Contact [1750] 1294-1301 "RTN","ONCACDU2",148,0) ;Vital Status [1760] 1302-1302 "RTN","ONCACDU2",149,0) ;Quality of Survival [1780] 1304-1304 "RTN","ONCACDU2",150,0) ;Follow-Up Source [1790] 1305-1305 "RTN","ONCACDU2",151,0) ;Next Follow-Up Source [1800] 1306-1306 "RTN","ONCACDU2",152,0) ;Unusual Follow-Up Method [1850] 1341-1341 "RTN","ONCACDU2",153,0) ;Following Registry [2440] 2475-2484 "RTN","ONCACDU2",154,0) N FNODE,X "RTN","ONCACDU2",155,0) S FNODE=$$LAST(ACD160),X="" "RTN","ONCACDU2",156,0) I FNODE'="" D "RTN","ONCACDU2",157,0) .N IENS "RTN","ONCACDU2",158,0) .S IENS=FNODE_","_ACD160_"," "RTN","ONCACDU2",159,0) .S X=$$GET1^DIQ(160.04,IENS,FIELD,"I") "RTN","ONCACDU2",160,0) Q X "RTN","ONCACDU2",161,0) ; "RTN","ONCACDU2",162,0) CS(IEN) ;Cancer Status [1770] 1303-1303 "RTN","ONCACDU2",163,0) N X,Z,FNODE "RTN","ONCACDU2",164,0) S FNODE=0 "RTN","ONCACDU2",165,0) S X="" "RTN","ONCACDU2",166,0) S FNODE=$O(^ONCO(165.5,IEN,"TS",FNODE)) "RTN","ONCACDU2",167,0) I FNODE>0 D "RTN","ONCACDU2",168,0) .N IENS,PT "RTN","ONCACDU2",169,0) .S FNODE=$O(^ONCO(165.5,IEN,"TS"," "),-1) "RTN","ONCACDU2",170,0) .Q:FNODE<1 "RTN","ONCACDU2",171,0) .S IENS=FNODE_","_IEN_"," "RTN","ONCACDU2",172,0) .S PT=$$GET1^DIQ(165.573,IENS,.02,"I") "RTN","ONCACDU2",173,0) .Q:PT<1 "RTN","ONCACDU2",174,0) .S X=$$GET1^DIQ(164.42,PT,1,"I") "RTN","ONCACDU2",175,0) Q X "RTN","ONCACDU2",176,0) ; "RTN","ONCACDU2",177,0) CCTST(ACD160) ; "RTN","ONCACDU2",178,0) ;Addr Current--City [1810] 1307-1326 "RTN","ONCACDU2",179,0) ;Follow-Up Contact--City [1842] 1357-1376 "RTN","ONCACDU2",180,0) N X,D0,ONCOX1,OIEN,INCOM,ONCON,ONCOX "RTN","ONCACDU2",181,0) S X="" "RTN","ONCACDU2",182,0) S D0=ACD160 "RTN","ONCACDU2",183,0) I $D(^ONCO(160,D0,0)) D SETUP1^ONCOES "RTN","ONCACDU2",184,0) I $D(ONCOX1) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,4),1:"") "RTN","ONCACDU2",185,0) Q X "RTN","ONCACDU2",186,0) ; "RTN","ONCACDU2",187,0) CSTST(ACD160) ; "RTN","ONCACDU2",188,0) ;Addr Current--State [1820] 1327-1328 "RTN","ONCACDU2",189,0) ;Follow-Up Contact--State [1844] 1377-1378 "RTN","ONCACDU2",190,0) N X,D0,ONCOX1,OIEN,INCOM,ONCON,ONCOX "RTN","ONCACDU2",191,0) S X="" "RTN","ONCACDU2",192,0) S D0=ACD160 "RTN","ONCACDU2",193,0) I $D(^ONCO(160,D0,0)) D SETUP1^ONCOES "RTN","ONCACDU2",194,0) I $D(ONCOX1) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,5),1:"") "RTN","ONCACDU2",195,0) S:X'="" X=$$GET1^DIQ(5,X,1,"I") "RTN","ONCACDU2",196,0) Q X "RTN","ONCACDU2",197,0) ; "RTN","ONCACDU2",198,0) ICD(ICD) ;ICD Code "RTN","ONCACDU2",199,0) N X "RTN","ONCACDU2",200,0) S ICD=$S(ICD'="":$P($G(^ICD9(ICD,0)),U),1:"0000") "RTN","ONCACDU2",201,0) I ICD["." S ICD=$P(ICD,".")_$P(ICD,".",2) "RTN","ONCACDU2",202,0) S:$L(ICD)=3 ICD=ICD_9 "RTN","ONCACDU2",203,0) S:$L(ICD)<4 ICD=$E("0000",1,4-$L(ICD))_ICD "RTN","ONCACDU2",204,0) S:$L(ICD)>4 ICD=$E(ICD,1,4) "RTN","ONCACDU2",205,0) I $E(ICD,4)="X"!($E(ICD,4)="-") S ICD=$E(ICD,1,3)_9 "RTN","ONCACDU2",206,0) Q ICD "RTN","ONCACDU2",207,0) ; "RTN","ONCACDU2",208,0) ICDR(ICD) ;ICD Revision Number [1920] 1392-1392 "RTN","ONCACDU2",209,0) N ICDR "RTN","ONCACDU2",210,0) S ICD=$$ICD(ICD) "RTN","ONCACDU2",211,0) S ICDR=$S(ICD=" ":0,1:$$GET1^DIQ(160,ACD160,20,"I")) "RTN","ONCACDU2",212,0) S:ICDR="" ICDR=0 "RTN","ONCACDU2",213,0) Q ICDR "RTN","ONCACDU2",214,0) ; "RTN","ONCACDU2",215,0) LINK(ACD160) ;Linkage Name "RTN","ONCACDU2",216,0) N NAME,X "RTN","ONCACDU2",217,0) S DFN=ACD160 D DEM^VADPT "RTN","ONCACDU2",218,0) S NAME=VADM(1) "RTN","ONCACDU2",219,0) D KVAR^VADPT "RTN","ONCACDU2",220,0) S X=($A($E(NAME,1)))+($A($E(NAME,2))) "RTN","ONCACDU2",221,0) S X=X-128 I X<1 S X="" "RTN","ONCACDU2",222,0) Q X "RTN","ONCACDU2",223,0) ; "RTN","ONCACDU2",224,0) PPAY(IEN) ;PRIMARY PAYER AT DX (165.5,18) "RTN","ONCACDU2",225,0) N X "RTN","ONCACDU2",226,0) S X=$$GET1^DIQ(165.5,IEN,18,"I") "RTN","ONCACDU2",227,0) S X=$$GET1^DIQ(160.3,$S(X'="":X,1:99),.01,"I") "RTN","ONCACDU2",228,0) S X=$S(X<42:X,X>47:X,1:X-1) "RTN","ONCACDU2",229,0) Q X "RTN","ONCACDU2",230,0) ; "RTN","ONCACDU2",231,0) DS(IEN) ;RX Date--Surgery [1200] 755-762 "RTN","ONCACDU2",232,0) N X "RTN","ONCACDU2",233,0) S X=$$GET1^DIQ(165.5,IEN,50,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",234,0) S X=$$GET1^DIQ(165.5,IEN,138.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",235,0) S X=$$GET1^DIQ(165.5,IEN,139.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",236,0) S SURGDT=$O(SURGDT(0)) "RTN","ONCACDU2",237,0) S X=$$DATE^ONCACDU1(SURGDT) "RTN","ONCACDU2",238,0) K SURGDT "RTN","ONCACDU2",239,0) Q X "RTN","ONCATF1") 0^15^B44050195 "RTN","ONCATF1",1,0) ONCATF1 ;Hines OIFO/RTK;TREATMENT AT THIS FACILITY STUFFING (CONT.); 08/12/98 "RTN","ONCATF1",2,0) ;;2.11;ONCOLOGY;**19,22,25,36,37**;Mar 07, 1995 "RTN","ONCATF1",3,0) ; "RTN","ONCATF1",4,0) RAD ;Radiation @fac "RTN","ONCATF1",5,0) S RAUP=1 D RFNR^ONCATF1 "RTN","ONCATF1",6,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",7,0) S $P(^ONCO(165.5,D0,3.1),U,12)=$P($G(^ONCO(165.5,D0,3)),U,6) "RTN","ONCATF1",8,0) Q "RTN","ONCATF1",9,0) ; "RTN","ONCATF1",10,0) RADDT ;Radiation @fac date "RTN","ONCATF1",11,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",12,0) S $P(^ONCO(165.5,D0,3.1),U,13)=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCATF1",13,0) Q "RTN","ONCATF1",14,0) ; "RTN","ONCATF1",15,0) DSPRAD ;Display Radiation @fac fields "RTN","ONCATF1",16,0) D CHKCOC I (COC=0)!(COC=3)!(COC=6) D K TXNO,TXUNK,TXNUL S Y="@411" Q "RTN","ONCATF1",17,0) .S NTX=1 W ! D RADATF^ONCNTX1 K NTX "RTN","ONCATF1",18,0) .I $G(DRATF)=1 K DRATF,TXNUL Q "RTN","ONCATF1",19,0) I $G(DRATF)=1 K DRATF,TXNUL S Y="@411" Q "RTN","ONCATF1",20,0) I COC'=4 D Q "RTN","ONCATF1",21,0) .I $G(TXNO)=1 S NTX=1 W ! D RADATF^ONCNTX1 K NTX,TXNO S Y="@411" Q "RTN","ONCATF1",22,0) .I $G(TXUNK)=1 S NTX=1 W ! D RADATF^ONCUTX1 K NTX,TXUNK S Y="@411" Q "RTN","ONCATF1",23,0) .I $G(TXNUL)=1 K TXNUL S Y="@411" Q "RTN","ONCATF1",24,0) N DI,DIC,DA,DR,DIQ,ONC "RTN","ONCATF1",25,0) S DIC="^ONCO(165.5,",DA=D0,DIQ="ONC(",DIQ(0)="E",DR="51.4;51.5" "RTN","ONCATF1",26,0) D EN^DIQ1 "RTN","ONCATF1",27,0) W !!,$P(^DD(165.5,51.4,0),U,1),"...........: "_$E(ONC(165.5,DA,51.4,"E"),1,47) "RTN","ONCATF1",28,0) W !,$P(^DD(165.5,51.5,0),U,1),"......: "_ONC(165.5,DA,51.5,"E") "RTN","ONCATF1",29,0) K TXNO,TXUNK,TXNUL S Y="@411" Q "RTN","ONCATF1",30,0) ; "RTN","ONCATF1",31,0) CHEM ;Chemotherapy @fac "RTN","ONCATF1",32,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",33,0) S $P(^ONCO(165.5,D0,3.1),U,14)=$P($G(^ONCO(165.5,D0,3)),U,13) "RTN","ONCATF1",34,0) Q "RTN","ONCATF1",35,0) ; "RTN","ONCATF1",36,0) CHEMDT ;Chemotherapy @fac date "RTN","ONCATF1",37,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",38,0) S $P(^ONCO(165.5,D0,3.1),U,15)=$P($G(^ONCO(165.5,D0,3)),U,11) "RTN","ONCATF1",39,0) Q "RTN","ONCATF1",40,0) ; "RTN","ONCATF1",41,0) DSPCHEM ;Display Chemotherapy @fac fields "RTN","ONCATF1",42,0) D CHKCOC I (COC=0)!(COC=3)!(COC=6) D K TXNO,TXUNK,TXNUL S Y="@415" Q "RTN","ONCATF1",43,0) .S NTX=1 W ! D CHEMATF^ONCNTX1 K NTX "RTN","ONCATF1",44,0) .I $G(DCATF)=1 K DCATF,TXNUL Q "RTN","ONCATF1",45,0) I $G(DCATF)=1 K DCATF,TXNUL S Y="@415" Q "RTN","ONCATF1",46,0) I COC'=4 D Q "RTN","ONCATF1",47,0) .I $G(TXNO)=1 S NTX=1 W ! D CHEMATF^ONCNTX1 K NTX,TXNO S Y="@415" Q "RTN","ONCATF1",48,0) .I $G(TXUNK)=1 S NTX=1 W ! D CHEMATF^ONCUTX1 K NTX,TXUNK S Y="@415" Q "RTN","ONCATF1",49,0) .I $G(TXNUL)=1 K TXNUL S Y="@415" Q "RTN","ONCATF1",50,0) K DIQ,ONC "RTN","ONCATF1",51,0) S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E",DR="53.3;53.4" "RTN","ONCATF1",52,0) D EN^DIQ1 "RTN","ONCATF1",53,0) W !!,$P(^DD(165.5,53.3,0),U,1),"........: "_$E(ONC(165.5,DA,53.3,"E"),1,47) "RTN","ONCATF1",54,0) W !,$P(^DD(165.5,53.4,0),U,1),"...: "_ONC(165.5,DA,53.4,"E") "RTN","ONCATF1",55,0) K TXNO,TXUNK,TXNUL S Y="@415" Q "RTN","ONCATF1",56,0) ; "RTN","ONCATF1",57,0) HT ;Hormone therapy @fac "RTN","ONCATF1",58,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",59,0) S $P(^ONCO(165.5,D0,3.1),U,16)=$P($G(^ONCO(165.5,D0,3)),U,16) "RTN","ONCATF1",60,0) Q "RTN","ONCATF1",61,0) ; "RTN","ONCATF1",62,0) HTDT ;Hormone therapy @fac date "RTN","ONCATF1",63,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",64,0) S $P(^ONCO(165.5,D0,3.1),U,17)=$P($G(^ONCO(165.5,D0,3)),U,14) "RTN","ONCATF1",65,0) Q "RTN","ONCATF1",66,0) ; "RTN","ONCATF1",67,0) DSPHT ;Display Hormone Therapy @fac fields "RTN","ONCATF1",68,0) D CHKCOC I (COC=0)!(COC=3)!(COC=6) D K TXNO,TXUNK,TXNUL S Y="@418" Q "RTN","ONCATF1",69,0) .S NTX=1 W ! D HTATF^ONCNTX1 K NTX "RTN","ONCATF1",70,0) .I $G(DHATF)=1 K DHATF,TXNUL Q "RTN","ONCATF1",71,0) I $G(DHATF)=1 K DHATF,TXNUL S Y="@418" Q "RTN","ONCATF1",72,0) I COC'=4 D Q "RTN","ONCATF1",73,0) .I $G(TXNO)=1 S NTX=1 W ! D HTATF^ONCNTX1 K NTX,TXNO S Y="@418" Q "RTN","ONCATF1",74,0) .I $G(TXUNK)=1 S NTX=1 W ! D HTATF^ONCUTX1 K NTX,TXUNK S Y="@418" Q "RTN","ONCATF1",75,0) .I $G(TXNUL)=1 K TXNUL S Y="@418" Q "RTN","ONCATF1",76,0) K DIQ,ONC "RTN","ONCATF1",77,0) S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E",DR="54.3;54.4" "RTN","ONCATF1",78,0) D EN^DIQ1 "RTN","ONCATF1",79,0) W !!,$P(^DD(165.5,54.3,0),U,1),".....: "_$E(ONC(165.5,DA,54.3,"E"),1,47) "RTN","ONCATF1",80,0) W !,$P(^DD(165.5,54.4,0),U,1),": "_ONC(165.5,DA,54.4,"E") "RTN","ONCATF1",81,0) K TXNO,TXUNK,TXNUL S Y="@418" "RTN","ONCATF1",82,0) Q "RTN","ONCATF1",83,0) ; "RTN","ONCATF1",84,0) IMM ;Immunotherapy @fac "RTN","ONCATF1",85,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",86,0) S $P(^ONCO(165.5,D0,3.1),U,18)=$P($G(^ONCO(165.5,D0,3)),U,19) "RTN","ONCATF1",87,0) Q "RTN","ONCATF1",88,0) ; "RTN","ONCATF1",89,0) IMMDT ;Immunotherapy @fac date "RTN","ONCATF1",90,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",91,0) S $P(^ONCO(165.5,D0,3.1),U,19)=$P($G(^ONCO(165.5,D0,3)),U,17) "RTN","ONCATF1",92,0) Q "RTN","ONCATF1",93,0) ; "RTN","ONCATF1",94,0) DSPIMM ;Display Immunotherapy @fac fields "RTN","ONCATF1",95,0) D CHKCOC I (COC=0)!(COC=3)!(COC=6) D K TXNO,TXUNK,TXNUL S Y="@421" Q "RTN","ONCATF1",96,0) .S NTX=1 W ! D IMMATF^ONCNTX1 K NTX "RTN","ONCATF1",97,0) .I $G(DIATF)=1 K DIATF,TXNUL Q "RTN","ONCATF1",98,0) I $G(DIATF)=1 K DIATF,TXNUL S Y="@421" Q "RTN","ONCATF1",99,0) I COC'=4 D Q "RTN","ONCATF1",100,0) .I $G(TXNO)=1 S NTX=1 W ! D IMMATF^ONCNTX1 K NTX,TXNO S Y="@421" Q "RTN","ONCATF1",101,0) .I $G(TXUNK)=1 S NTX=1 W ! D IMMATF^ONCUTX1 K NTX,TXUNK S Y="@421" Q "RTN","ONCATF1",102,0) .I $G(TXNUL)=1 K TXNUL S Y="@421" Q "RTN","ONCATF1",103,0) K DIQ,ONC "RTN","ONCATF1",104,0) S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E",DR="55.3;55.4" "RTN","ONCATF1",105,0) D EN^DIQ1 "RTN","ONCATF1",106,0) W !!,$P(^DD(165.5,55.3,0),U,1),".......: "_ONC(165.5,DA,55.3,"E") "RTN","ONCATF1",107,0) W !,$P(^DD(165.5,55.4,0),U,1),"..: "_ONC(165.5,DA,55.4,"E") "RTN","ONCATF1",108,0) K TXNO,TXUNK,TXNUL S Y="@421" Q "RTN","ONCATF1",109,0) ; "RTN","ONCATF1",110,0) OTH ;Other therapy @fac "RTN","ONCATF1",111,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",112,0) S $P(^ONCO(165.5,D0,3.1),U,20)=$P($G(^ONCO(165.5,D0,3)),U,25) "RTN","ONCATF1",113,0) Q "RTN","ONCATF1",114,0) ; "RTN","ONCATF1",115,0) OTHDT ;Other therapy @fac date "RTN","ONCATF1",116,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",117,0) S $P(^ONCO(165.5,D0,3.1),U,21)=$P($G(^ONCO(165.5,D0,3)),U,23) "RTN","ONCATF1",118,0) Q "RTN","ONCATF1",119,0) ; "RTN","ONCATF1",120,0) DSPOTH ;Display Other Treatment @fac fields "RTN","ONCATF1",121,0) D CHKCOC I (COC=0)!(COC=3)!(COC=6) D K TXNO,TXUNK,TXNUL S Y="@424" Q "RTN","ONCATF1",122,0) .S NTX=1 W ! D OTHATF^ONCNTX1 K NTX "RTN","ONCATF1",123,0) .I $G(DOATF)=1 K DOATF,TXNUL Q "RTN","ONCATF1",124,0) I $G(DOATF)=1 K DOATF,TXNUL S Y="@424" Q "RTN","ONCATF1",125,0) I COC'=4 D Q "RTN","ONCATF1",126,0) .I $G(TXNO)=1 S NTX=1 W ! D OTHATF^ONCNTX1 K NTX,TXNO S Y="@424" Q "RTN","ONCATF1",127,0) .I $G(TXUNK)=1 S NTX=1 W ! D OTHATF^ONCUTX1 K NTX,TXUNK S Y="@424" Q "RTN","ONCATF1",128,0) .I $G(TXNUL)=1 K TXNUL S Y="@424" Q "RTN","ONCATF1",129,0) K DIQ,ONC "RTN","ONCATF1",130,0) S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E",DR="57.3;57.4" "RTN","ONCATF1",131,0) D EN^DIQ1 "RTN","ONCATF1",132,0) W !!,$P(^DD(165.5,57.3,0),U,1),".....: "_$E(ONC(165.5,DA,57.3,"E"),1,47) "RTN","ONCATF1",133,0) W !,$P(^DD(165.5,57.4,0),U,1),": "_ONC(165.5,DA,57.4,"E") "RTN","ONCATF1",134,0) K TXNO,TXUNK,TXNUL S Y="@424" Q "RTN","ONCATF1",135,0) ; "RTN","ONCATF1",136,0) PP ;Palliative Procedure @fac "RTN","ONCATF1",137,0) D CHKCOC I COC'=4 Q "RTN","ONCATF1",138,0) S $P(^ONCO(165.5,D0,3.1),U,27)=$P($G(^ONCO(165.5,D0,3.1)),U,26) "RTN","ONCATF1",139,0) Q "RTN","ONCATF1",140,0) ; "RTN","ONCATF1",141,0) CHKCOC ;CLASS OF CASE "RTN","ONCATF1",142,0) S COC=$P($G(^ONCO(165.5,D0,0)),U,4) "RTN","ONCATF1",143,0) Q "RTN","ONCATF1",144,0) ; "RTN","ONCATF1",145,0) RFNS ;Check the 6 SURGERY fields (#58.2,#50.2,#138,#138.1,#139,#139.1) "RTN","ONCATF1",146,0) ;for Reason For No Surgery. If ANY have surgery performed stuff "RTN","ONCATF1",147,0) ;and display RFNS, otherwise prompt for RFNS. "RTN","ONCATF1",148,0) ;REVISED 3/2/00 - check only 2 surgery fields, "RTN","ONCATF1",149,0) ;58.2 & 50.2 (per Raye phone call) "RTN","ONCATF1",150,0) S (FLAG1,FLAG2,FLAG3,FLAG4,FLAG5,FLAG6)=1 "RTN","ONCATF1",151,0) S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29) I SPS="" S FLAG1=0 "RTN","ONCATF1",152,0) S SPSATF=$P($G(^ONCO(165.5,D0,3.1)),U,30) I SPSATF="" S FLAG4=0 "RTN","ONCATF1",153,0) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" W !!,"ICDO-TOPOGRAPHY is not defined" H 3 S Y="@0" Q "RTN","ONCATF1",154,0) S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) "RTN","ONCATF1",155,0) I SPS'="" I SPS=1!(SPS="00")!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S FLAG1=0 "RTN","ONCATF1",156,0) I SPSATF'="" I SPSATF=1!(SPSATF="00")!($G(^ONCO(164,SGRP,"SPS",SPSATF,0))["Unknown") S FLAG4=0 "RTN","ONCATF1",157,0) I FLAG1=0,FLAG4=0 Q "RTN","ONCATF1",158,0) S $P(^ONCO(165.5,D0,3),U,26)=0 "RTN","ONCATF1",159,0) I $G(SUUP)=1 K SUUP Q "RTN","ONCATF1",160,0) W !,$P($G(^DD(165.5,58,0)),U,1)_".........: Surgery performed" "RTN","ONCATF1",161,0) W ! K DIR S DIR(0)="E" D ^DIR I Y=1 S Y="@44" Q "RTN","ONCATF1",162,0) S Y="@0" Q "RTN","ONCATF1",163,0) ; "RTN","ONCATF1",164,0) RFNR ;Check if there was ANY radiation therapy for Reason For No Radiation "RTN","ONCATF1",165,0) S RDTX=$P($G(^ONCO(165.5,D0,3)),U,6) "RTN","ONCATF1",166,0) S RDTXATF=$P($G(^ONCO(165.5,D0,3.1)),U,12) "RTN","ONCATF1",167,0) I ((RDTX="")!(RDTX=0)!(RDTX=9))&((RDTXATF="")!(RDTXATF=0)!(RDTXATF=9)) Q "RTN","ONCATF1",168,0) S $P(^ONCO(165.5,D0,3),U,35)=0 "RTN","ONCATF1",169,0) I $G(RAUP)=1 K RAUP Q "RTN","ONCATF1",170,0) W !,$P($G(^DD(165.5,75,0)),U,1)_".........: Radiation performed" "RTN","ONCATF1",171,0) S Y="@412" Q "RTN","ONCATF1",172,0) ; "RTN","ONCATF1",173,0) SURTXT ;Check if there was any SURGERY, if not skip TEXT-RX-SURGERY "RTN","ONCATF1",174,0) S (FLAG1,FLAG2,FLAG3)=1 "RTN","ONCATF1",175,0) S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29) I SPS="" S FLAG1=0 "RTN","ONCATF1",176,0) S SCOPE=$P($G(^ONCO(165.5,D0,3)),U,40) I SCOPE="" S FLAG2=0 "RTN","ONCATF1",177,0) S SOSN=$P($G(^ONCO(165.5,D0,3)),U,41) I SOSN="" S FLAG3=0 "RTN","ONCATF1",178,0) S TPX=$P($G(^ONCO(165.5,D0,2)),U,1) I TPX="" W !!,"ICDO-TOPOGRAPHY is not defined" H 3 S Y="@0" Q "RTN","ONCATF1",179,0) S SGRP=$P($G(^ONCO(164,TPX,0)),U,16) "RTN","ONCATF1",180,0) I SPS'="" I SPS=1!(SPS="00")!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S FLAG1=0 "RTN","ONCATF1",181,0) I SCOPE'="" I SCOPE=1!($G(^ONCO(164,SGRP,"SC5",SCOPE,0))["Unknown") S FLAG2=0 "RTN","ONCATF1",182,0) I SOSN'="" I SOSN=1!($G(^ONCO(164,SGRP,"SO5",SOSN,0))["Unknown") S FLAG3=0 "RTN","ONCATF1",183,0) I FLAG1=0,FLAG2=0,FLAG3=0 K ^ONCO(165.5,DA,14) S Y=108 "RTN","ONCATF1",184,0) K FLAG1,FLAG2,FLAG3,SPS,SCOPE,SOSN Q "RTN","ONCNTX") 0^13^B66652290 "RTN","ONCNTX",1,0) ONCNTX ;Hines OIFO/GWB,RTK; NO TREATMENT; 08/27/97 "RTN","ONCNTX",2,0) ;;2.11;ONCOLOGY;**13,15,16,19,22,25,26,27,32,33,34,36,37**;Mar 07, 1995 "RTN","ONCNTX",3,0) ; "RTN","ONCNTX",4,0) NTX ;No treatment "RTN","ONCNTX",5,0) ; "RTN","ONCNTX",6,0) ;SURGICAL PROCEDURES (ROADS) "RTN","ONCNTX",7,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCNTX",8,0) I DATEDX<3030000 D "RTN","ONCNTX",9,0) .D HDR,SURR,SURATFR^ONCNTX1,NODER "RTN","ONCNTX",10,0) .I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D NODATFR^ONCUTX1 "RTN","ONCNTX",11,0) .E D NODATFR^ONCNTX1 "RTN","ONCNTX",12,0) .D SOSNR,SOSATFR^ONCNTX1 "RTN","ONCNTX",13,0) .W ! D PAUSE^ONCOPA2A "RTN","ONCNTX",14,0) ; "RTN","ONCNTX",15,0) ;SURGICAL PROCEDURES (FORDS) "RTN","ONCNTX",16,0) D HDR,SUR,SURATF^ONCNTX1,SM,NODE "RTN","ONCNTX",17,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D NODEATF^ONCUTX1 "RTN","ONCNTX",18,0) E D NODEATF^ONCNTX1 "RTN","ONCNTX",19,0) ; "RTN","ONCNTX",20,0) D SOSN,SOSNATF^ONCNTX1,RR,DSD "RTN","ONCNTX",21,0) D RFNS W ! "RTN","ONCNTX",22,0) K ^ONCO(165.5,DA,14) "RTN","ONCNTX",23,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",24,0) S $P(^ONCO(165.5,DA,3),U,6)=0 "RTN","ONCNTX",25,0) S $P(^ONCO(165.5,DA,3.1),U,12)=0 "RTN","ONCNTX",26,0) D HDR,RAD1,RADATF^ONCNTX1,RAD2,RSSQ^ONCNTX1,RFNR W ! "RTN","ONCNTX",27,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",28,0) S $P(^ONCO(165.5,DA,3),U,13)="00" "RTN","ONCNTX",29,0) S $P(^ONCO(165.5,DA,3.1),U,14)="00" "RTN","ONCNTX",30,0) S $P(^ONCO(165.5,DA,3),U,16)="00" "RTN","ONCNTX",31,0) S $P(^ONCO(165.5,DA,3.1),U,16)="00" "RTN","ONCNTX",32,0) S $P(^ONCO(165.5,DA,3),U,19)="00" "RTN","ONCNTX",33,0) S $P(^ONCO(165.5,DA,3.1),U,18)="00" "RTN","ONCNTX",34,0) S $P(^ONCO(165.5,DA,3.1),U,36)=1 "RTN","ONCNTX",35,0) S $P(^ONCO(165.5,DA,3),U,25)=0 "RTN","ONCNTX",36,0) S $P(^ONCO(165.5,DA,3.1),U,20)=0 "RTN","ONCNTX",37,0) D HDR,CHE,CHEMATF^ONCNTX1,HOR^ONCNTX1,HTATF^ONCNTX1,IMM^ONCNTX1,IMMATF^ONCNTX1,HTEP^ONCNTX1,OTH^ONCNTX1,OTHATF^ONCNTX1 "RTN","ONCNTX",38,0) K DIR S DIR(0)="E" D ^DIR I Y=0 S Y="@0" G EXIT "RTN","ONCNTX",39,0) W ! S Y="@425" G EXIT "RTN","ONCNTX",40,0) ; "RTN","ONCNTX",41,0) NCDS ;SURGICAL DX/STAGING PROC (165.5,58.1) "RTN","ONCNTX",42,0) S $P(^ONCO(165.5,D0,3),U,31)="0000000" D NCDSDT^ONCATF "RTN","ONCNTX",43,0) S DR=58.3 D DIQ1 "RTN","ONCNTX",44,0) W !,"SURGICAL DX/STAGING PROC DATE: ",ONC(165.5,DA,58.3,"E") "RTN","ONCNTX",45,0) Q "RTN","ONCNTX",46,0) ; "RTN","ONCNTX",47,0) SURR ;SURGERY OF PRIMARY (R) (165.5,58.2) "RTN","ONCNTX",48,0) S $P(^ONCO(165.5,DA,3),U,38)=$S(DATEDX>2971231:1,1:"00") "RTN","ONCNTX",49,0) S $P(^ONCO(165.5,DA,3),U,34)=1 "RTN","ONCNTX",50,0) S DR="58.2;74" D DIQ1 "RTN","ONCNTX",51,0) I $D(NTX) D "RTN","ONCNTX",52,0) .W !,"SURGICAL PROCEDURES (R)=ROADS" "RTN","ONCNTX",53,0) .W !,"-----------------------------" "RTN","ONCNTX",54,0) .W !,"SURGERY OF PRIMARY..........(R): ",ONC(165.5,DA,58.2,"E") "RTN","ONCNTX",55,0) W !,"SURGICAL APPROACH...........(R): ",ONC(165.5,DA,74,"E") "RTN","ONCNTX",56,0) K ONC "RTN","ONCNTX",57,0) Q "RTN","ONCNTX",58,0) ; "RTN","ONCNTX",59,0) SUR ;SURGERY OF PRIMARY (F) "RTN","ONCNTX",60,0) S $P(^ONCO(165.5,DA,3.1),U,29)=1 "RTN","ONCNTX",61,0) S TXDT=$P($G(^ONCO(165.5,DA,3)),U,1)_"S" "RTN","ONCNTX",62,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",63,0) S $P(^ONCO(165.5,DA,3),U,1)="0000000" D SPSDT^ONCATF "RTN","ONCNTX",64,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",65,0) S $P(^ONCO(165.5,DA,3),U,28)=8 "RTN","ONCNTX",66,0) S $P(^ONCO(165.5,DA,0),U,11)="00000000" "RTN","ONCNTX",67,0) S $P(^ONCO(165.5,DA,"THY1"),U,36)="0000000" "RTN","ONCNTX",68,0) S $P(^ONCO(165.5,DA,3.1),U,28)=0 "RTN","ONCNTX",69,0) S DR="58.6;50;74;59;435;14" D DIQ1 "RTN","ONCNTX",70,0) I $D(NTX) D "RTN","ONCNTX",71,0) .W !,"SURGICAL PROCEDURES (F)=FORDS" "RTN","ONCNTX",72,0) .W !,"-----------------------------" "RTN","ONCNTX",73,0) .W !,"SURGERY OF PRIMARY..........(F): ",ONC(165.5,DA,58.6,"E") "RTN","ONCNTX",74,0) W !,"SURGERY OF PRIMARY DATE........: ",ONC(165.5,DA,50,"E") "RTN","ONCNTX",75,0) K ONC,TXDT "RTN","ONCNTX",76,0) Q "RTN","ONCNTX",77,0) ; "RTN","ONCNTX",78,0) SM ;Surgical margins "RTN","ONCNTX",79,0) S $P(^ONCO(165.5,DA,3),U,28)=8 "RTN","ONCNTX",80,0) S DR="59" D DIQ1 "RTN","ONCNTX",81,0) W !,"SURGICAL MARGINS...............: ",ONC(165.5,DA,59,"E") "RTN","ONCNTX",82,0) K ONC "RTN","ONCNTX",83,0) Q "RTN","ONCNTX",84,0) ; "RTN","ONCNTX",85,0) NODER ;SCOPE OF LN SURGERY (R) (165.5,138) "RTN","ONCNTX",86,0) ;For unknown primary, leukemia, lymphoma, and brain primaries, code 9 "RTN","ONCNTX",87,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCNTX",88,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D D NUMND^ONCATF Q "RTN","ONCNTX",89,0) .D SGRP^ONCUTX1 "RTN","ONCNTX",90,0) .F SC=0:0 S SC=$O(^ONCO(164,SGRP,"SC5",SC)) Q:SC="B" S LAST=SC "RTN","ONCNTX",91,0) .S $P(^ONCO(165.5,DA,3),U,40)=LAST "RTN","ONCNTX",92,0) .W !,"SCOPE OF LN SURGERY.........(R): ",$P(^ONCO(164,SGRP,"SC5",LAST,0),U,1) "RTN","ONCNTX",93,0) .D NODER^ONCUTX "RTN","ONCNTX",94,0) S $P(^ONCO(165.5,DA,3),U,40)=1 "RTN","ONCNTX",95,0) S $P(^ONCO(165.5,DA,3),U,42)="00" "RTN","ONCNTX",96,0) D NUMND^ONCATF "RTN","ONCNTX",97,0) S DR="138;140" D DIQ1 "RTN","ONCNTX",98,0) W:$D(NTX) !,"SCOPE OF LN SURGERY.........(R): ",ONC(165.5,DA,138,"E") "RTN","ONCNTX",99,0) W !,"NUMBER OF LN REMOVED........(R): ",ONC(165.5,DA,140,"E") "RTN","ONCNTX",100,0) Q "RTN","ONCNTX",101,0) ; "RTN","ONCNTX",102,0) NODE ;SCOPE OF LN SURGERY (F) (165.5,138.4) "RTN","ONCNTX",103,0) ;For unknown primary, leukemia, lymphoma, and brain primaries, code 9 "RTN","ONCNTX",104,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCNTX",105,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D D SCPDT^ONCATF Q "RTN","ONCNTX",106,0) .S $P(^ONCO(165.5,DA,3.1),U,31)=9 "RTN","ONCNTX",107,0) .W !,"SCOPE OF LN SURGERY.........(F): Unknown/NA" "RTN","ONCNTX",108,0) .D NODE^ONCUTX "RTN","ONCNTX",109,0) S $P(^ONCO(165.5,DA,3.1),U,31)=0 "RTN","ONCNTX",110,0) S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S" "RTN","ONCNTX",111,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",112,0) S $P(^ONCO(165.5,D0,3.1),U,22)="0000000" D SCPDT^ONCATF "RTN","ONCNTX",113,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",114,0) S DR="138.4;138.2" D DIQ1 "RTN","ONCNTX",115,0) W:$D(NTX) !,"SCOPE OF LN SURGERY.........(F): ",ONC(165.5,DA,138.4,"E") "RTN","ONCNTX",116,0) W !,"SCOPE OF LN SURGERY DATE.......: ",ONC(165.5,DA,138.2,"E") "RTN","ONCNTX",117,0) Q "RTN","ONCNTX",118,0) ; "RTN","ONCNTX",119,0) SOSNR ;SURG PROC/OTHER SITE (R) (165.5,139) "RTN","ONCNTX",120,0) S $P(^ONCO(165.5,DA,3),U,41)=1 "RTN","ONCNTX",121,0) S DR=139 D DIQ1 "RTN","ONCNTX",122,0) W:$D(NTX) !,"SURG PROC/OTHER SITE........(R): ",ONC(165.5,DA,139,"E") "RTN","ONCNTX",123,0) Q "RTN","ONCNTX",124,0) ; "RTN","ONCNTX",125,0) SOSN ;SUR PROC/OTHER SITE (F) (165.5,139.4) "RTN","ONCNTX",126,0) S $P(^ONCO(165.5,DA,3.1),U,33)=0 "RTN","ONCNTX",127,0) S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S" "RTN","ONCNTX",128,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",129,0) S $P(^ONCO(165.5,D0,3.1),U,24)="0000000" D SOSNDT^ONCATF "RTN","ONCNTX",130,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",131,0) S DR="139.4;139.2" D DIQ1 "RTN","ONCNTX",132,0) W:$D(NTX) !,"SURG PROC/OTHER SITE........(F): ",ONC(165.5,DA,139.4,"E") "RTN","ONCNTX",133,0) W !,"SURG PROC/OTHER SITE DATE......: ",ONC(165.5,DA,139.2,"E") "RTN","ONCNTX",134,0) Q "RTN","ONCNTX",135,0) ; "RTN","ONCNTX",136,0) RR ;RECONSTRUCTION/RESTORATION (165.5,23) "RTN","ONCNTX",137,0) I DATEDX>3021231 Q "RTN","ONCNTX",138,0) I DATEDX>2951231 D "RTN","ONCNTX",139,0) .S $P(^ONCO(165.5,DA,3),U,33)=$S(DATEDX>2971231:1,1:9) "RTN","ONCNTX",140,0) .S DR=23 D DIQ1 "RTN","ONCNTX",141,0) .W !,"RECONSTRUCTION/RESTORATION.....: ",ONC(165.5,DA,23,"E") "RTN","ONCNTX",142,0) Q "RTN","ONCNTX",143,0) ; "RTN","ONCNTX",144,0) ; "RTN","ONCNTX",145,0) DSD ;Date of surgical discharge "RTN","ONCNTX",146,0) ;Readmission w/i 30 days/surg "RTN","ONCNTX",147,0) S $P(^ONCO(165.5,DA,"THY1"),U,36)="0000000" "RTN","ONCNTX",148,0) S $P(^ONCO(165.5,DA,3.1),U,28)=0 "RTN","ONCNTX",149,0) S DR="435;14" D DIQ1 "RTN","ONCNTX",150,0) W !,"DATE OF SURGICAL DISCHARGE.....: ",ONC(165.5,DA,435,"E") "RTN","ONCNTX",151,0) W !,"READMISSION W/I 30 DAYS/SURG...: ",ONC(165.5,DA,14,"E") "RTN","ONCNTX",152,0) K ONC "RTN","ONCNTX",153,0) Q "RTN","ONCNTX",154,0) ; "RTN","ONCNTX",155,0) RFNS ;Reason for no surgery "RTN","ONCNTX",156,0) W ! K DIR S DIR(0)="SA^0:Surgery performed;1:Not part of 1st course;2:Contraindicated/risk factors;5:Patient died prior to surgery;6:No reason in record;7:Refused by patient;8:Unknown if performed;9:Unknown/dx at autopsy/death cert" "RTN","ONCNTX",157,0) S DIR("A")="REASON FOR NO SURGERY: " "RTN","ONCNTX",158,0) S DIR("B")="Not part of 1st course" "RTN","ONCNTX",159,0) S DIR("??")="^D RFNSHLP^ONCNTX1" "RTN","ONCNTX",160,0) D ^DIR "RTN","ONCNTX",161,0) I Y[U Q "RTN","ONCNTX",162,0) S $P(^ONCO(165.5,DA,3),U,26)=Y "RTN","ONCNTX",163,0) Q "RTN","ONCNTX",164,0) ; "RTN","ONCNTX",165,0) RAD1 ;Radiation "RTN","ONCNTX",166,0) S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R" "RTN","ONCNTX",167,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",168,0) S $P(^ONCO(165.5,DA,3),U,4)="0000000" "RTN","ONCNTX",169,0) S ^ONCO(165.5,"ATX",DA,"0000000R")="" "RTN","ONCNTX",170,0) S DR="51.2;51" D DIQ1 "RTN","ONCNTX",171,0) W !,"RADIATION" "RTN","ONCNTX",172,0) W !,"---------" "RTN","ONCNTX",173,0) W:$D(NTX) !,"RADIATION:.....................: ",ONC(165.5,DA,51.2,"E") "RTN","ONCNTX",174,0) W !,"DATE RADIATION STARTED:........: ",ONC(165.5,DA,51,"E") "RTN","ONCNTX",175,0) K ONC,TXDT Q "RTN","ONCNTX",176,0) ; "RTN","ONCNTX",177,0) RAD2 ;Radiation (continued) "RTN","ONCNTX",178,0) S $P(^ONCO(165.5,DA,3),U,22)=0 ;126 "RTN","ONCNTX",179,0) S $P(^ONCO(165.5,DA,3),U,21)=1 ;125 "RTN","ONCNTX",180,0) S $P(^ONCO(165.5,DA,"BLA2"),U,18)=1 ;363 "RTN","ONCNTX",181,0) S $P(^ONCO(165.5,DA,"THY1"),U,43)=0 ;442 "RTN","ONCNTX",182,0) S $P(^ONCO(165.5,DA,24),U,9)=1 ;363.1 "RTN","ONCNTX",183,0) S $P(^ONCO(165.5,DA,"THY1"),U,44)=0 ;443 "RTN","ONCNTX",184,0) S $P(^ONCO(165.5,DA,3),U,20)=0 ;56 "RTN","ONCNTX",185,0) S $P(^ONCO(165.5,DA,"BLA2"),U,16)="0000000" ;361 "RTN","ONCNTX",186,0) K ^ONCO(165.5,DA,15) ;109 "RTN","ONCNTX",187,0) K ^ONCO(165.5,DA,16) ;110 "RTN","ONCNTX",188,0) S DR="126;125;363;442;363.1;443;56;361" D DIQ1 "RTN","ONCNTX",189,0) W !,"LOCATION OF RADIATION..........: ",ONC(165.5,DA,126,"E") "RTN","ONCNTX",190,0) W !,"RADIATION TREATMENT VOLUME.....: ",ONC(165.5,DA,125,"E") "RTN","ONCNTX",191,0) W !,"REGIONAL TREATMENT MODALITY....: ",ONC(165.5,DA,363,"E") "RTN","ONCNTX",192,0) W !,"REGIONAL DOSE:cGy..............: ",ONC(165.5,DA,442,"E") "RTN","ONCNTX",193,0) W !,"BOOST TREATMENT MODALITY.......: ",ONC(165.5,DA,363.1,"E") "RTN","ONCNTX",194,0) W !,"BOOST DOSE:cGy.................: ",ONC(165.5,DA,443,"E") "RTN","ONCNTX",195,0) W !,"NUMBER OF TREATMENTS...........: ",ONC(165.5,DA,56,"E") "RTN","ONCNTX",196,0) W !,"DATE RADIATION ENDED...........: ",ONC(165.5,DA,361,"E") "RTN","ONCNTX",197,0) K ONC,TXDT Q "RTN","ONCNTX",198,0) ; "RTN","ONCNTX",199,0) RFNR ;Reason for no radiation "RTN","ONCNTX",200,0) W ! K DIR S DIR(0)="SA^0:Radiation administered;1:Not part of 1st course;2:Contraindicated;5:Patient died prior to tx;6:Not administered, no reason;7:Refused by patient;8:Unknown if administered;9:Unknown, death cert/autopsy cases" "RTN","ONCNTX",201,0) S DIR("A")="REASON FOR NO RADIATION: " "RTN","ONCNTX",202,0) S DIR("B")="Not part of 1st course" "RTN","ONCNTX",203,0) S DIR("??")="^D RFNRHLP^ONCNTX1" "RTN","ONCNTX",204,0) D ^DIR "RTN","ONCNTX",205,0) I Y[U Q "RTN","ONCNTX",206,0) S $P(^ONCO(165.5,DA,3),U,35)=Y "RTN","ONCNTX",207,0) Q "RTN","ONCNTX",208,0) ; "RTN","ONCNTX",209,0) CHE ;Chemotherapy "RTN","ONCNTX",210,0) I $D(NTX) D "RTN","ONCNTX",211,0) .N DR,DP,DL "RTN","ONCNTX",212,0) .S DIE="^ONCO(165.5,",DR=53.2 D ^DIE "RTN","ONCNTX",213,0) S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C" "RTN","ONCNTX",214,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",215,0) S $P(^ONCO(165.5,DA,3),U,11)="0000000" D CHEMDT^ONCATF1 "RTN","ONCNTX",216,0) S ^ONCO(165.5,"ATX",DA,"0000000C")="" "RTN","ONCNTX",217,0) K ^ONCO(165.5,DA,17) "RTN","ONCNTX",218,0) S DR="53.2;53" D DIQ1 "RTN","ONCNTX",219,0) W !,"CHEMOTHERAPY DATE........: ",ONC(165.5,DA,53,"E") "RTN","ONCNTX",220,0) K ONC Q "RTN","ONCNTX",221,0) ; "RTN","ONCNTX",222,0) HDR W @IOF,DASHES,!,?1,PATNAM,?TAB,"First Course of Treatment",?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCNTX",223,0) Q "RTN","ONCNTX",224,0) DIQ1 N DI K ONC S DIC="^ONCO(165.5,",DIQ="ONC(",DIQ(0)="E" D EN^DIQ1 Q "RTN","ONCNTX",225,0) EXIT W ! Q "RTN","ONCNTX1") 0^14^B42127018 "RTN","ONCNTX1",1,0) ONCNTX1 ;Hines OIFO/RTK;NO TREATMENT STUFFING; 02/5/98 "RTN","ONCNTX1",2,0) ;;2.11;ONCOLOGY;**15,16,19,22,25,26,27,32,36,37**;Mar 07, 1995 "RTN","ONCNTX1",3,0) ; "RTN","ONCNTX1",4,0) NCDSATF ;SURG DX/STAGING PROC @FAC (165.5,58.4) "RTN","ONCNTX1",5,0) S $P(^ONCO(165.5,DA,3.1),U,5)=$S(DATEDX>2971231:"00",1:"") "RTN","ONCNTX1",6,0) S $P(^ONCO(165.5,D0,3.1),U,6)="0000000" "RTN","ONCNTX1",7,0) S DR="58.4;58.5" D DIQ1^ONCNTX "RTN","ONCNTX1",8,0) W:$D(NTX) !,"SURGICAL DX/STAGING @FAC: "_ONC(165.5,DA,58.4,"E") "RTN","ONCNTX1",9,0) W !,"SURGICAL DX/STAGING @FAC DATE: ",ONC(165.5,DA,58.5,"E") "RTN","ONCNTX1",10,0) Q "RTN","ONCNTX1",11,0) ; "RTN","ONCNTX1",12,0) SURATFR ;SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "RTN","ONCNTX1",13,0) S $P(^ONCO(165.5,DA,3.1),U,7)=$S(DATEDX>2971231:1,1:"00") "RTN","ONCNTX1",14,0) S DR=50.2 D DIQ1^ONCNTX "RTN","ONCNTX1",15,0) W:$D(NTX) !,"SURGERY OF PRIMARY @FAC.....(R): ",ONC(165.5,DA,50.2,"E") "RTN","ONCNTX1",16,0) K ONC "RTN","ONCNTX1",17,0) Q "RTN","ONCNTX1",18,0) ; "RTN","ONCNTX1",19,0) SURATF ;SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "RTN","ONCNTX1",20,0) S $P(^ONCO(165.5,DA,3.1),U,30)=1 "RTN","ONCNTX1",21,0) S $P(^ONCO(165.5,DA,3.1),U,8)="0000000" "RTN","ONCNTX1",22,0) S DR="58.7;50.3" D DIQ1^ONCNTX "RTN","ONCNTX1",23,0) W:$D(NTX) !,"SURGERY OF PRIMARY @FAC.....(F): ",ONC(165.5,DA,58.7,"E") "RTN","ONCNTX1",24,0) W !,"SURGERY OF PRIMARY @FAC DATE...: ",ONC(165.5,DA,50.3,"E") "RTN","ONCNTX1",25,0) K ONC,TXDT Q "RTN","ONCNTX1",26,0) ; "RTN","ONCNTX1",27,0) NODATFR ;SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "RTN","ONCNTX1",28,0) S $P(^ONCO(165.5,DA,3.1),U,9)=1 "RTN","ONCNTX1",29,0) S $P(^ONCO(165.5,DA,3.1),U,11)="00" "RTN","ONCNTX1",30,0) S DR="138.1;140.1" D DIQ1^ONCNTX "RTN","ONCNTX1",31,0) W:$D(NTX) !,"SCOPE OF LN SURGERY @FAC....(R): ",ONC(165.5,DA,138.1,"E") "RTN","ONCNTX1",32,0) W !,"NUMBER OF LN REMOVED @FAC...(R): ",ONC(165.5,DA,140.1,"E") "RTN","ONCNTX1",33,0) Q "RTN","ONCNTX1",34,0) ; "RTN","ONCNTX1",35,0) NODEATF ;SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "RTN","ONCNTX1",36,0) S $P(^ONCO(165.5,DA,3.1),U,32)=0 "RTN","ONCNTX1",37,0) S $P(^ONCO(165.5,D0,3.1),U,23)="0000000" "RTN","ONCNTX1",38,0) S DR="138.5;138.3" D DIQ1^ONCNTX "RTN","ONCNTX1",39,0) W:$D(NTX) !,"SCOPE OF LN SURGERY @FAC....(F): ",ONC(165.5,DA,138.5,"E") "RTN","ONCNTX1",40,0) W !,"SCOPE OF LN SURGERY @FAC DATE..: ",ONC(165.5,DA,138.3,"E") "RTN","ONCNTX1",41,0) Q "RTN","ONCNTX1",42,0) ; "RTN","ONCNTX1",43,0) SPOATFR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "RTN","ONCNTX1",44,0) S $P(^ONCO(165.5,DA,3.1),U,10)=1 "RTN","ONCNTX1",45,0) S DR=139.1 D DIQ1^ONCNTX "RTN","ONCNTX1",46,0) W:$D(NTX) !,"SURG PROC/OTHER SITE @FAC....(R): ",ONC(165.5,DA,139.1,"E") "RTN","ONCNTX1",47,0) Q "RTN","ONCNTX1",48,0) ; "RTN","ONCNTX1",49,0) SOSATFR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "RTN","ONCNTX1",50,0) S $P(^ONCO(165.5,DA,3.1),U,10)=1 "RTN","ONCNTX1",51,0) S DR=139.1 D DIQ1^ONCNTX "RTN","ONCNTX1",52,0) W:$D(NTX) !,"SURG PROC/OTHER SITE @FAC...(R): ",ONC(165.5,DA,139.1,"E") "RTN","ONCNTX1",53,0) Q "RTN","ONCNTX1",54,0) ; "RTN","ONCNTX1",55,0) SOSNATF ;SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "RTN","ONCNTX1",56,0) S $P(^ONCO(165.5,DA,3.1),U,34)=0 "RTN","ONCNTX1",57,0) S $P(^ONCO(165.5,D0,3.1),U,25)="0000000" "RTN","ONCNTX1",58,0) S DR="139.5;139.3" D DIQ1^ONCNTX "RTN","ONCNTX1",59,0) W:$D(NTX) !,"SURG PROC/OTHER SITE @FAC...(F): ",ONC(165.5,DA,139.5,"E") "RTN","ONCNTX1",60,0) W !,"SURG PROC/OTHER SITE @FAC DATE.: ",ONC(165.5,DA,139.3,"E") "RTN","ONCNTX1",61,0) Q "RTN","ONCNTX1",62,0) ; "RTN","ONCNTX1",63,0) RADATF ;RADIATION @FAC (165.5,51.4) "RTN","ONCNTX1",64,0) S $P(^ONCO(165.5,DA,3.1),U,12)=0 "RTN","ONCNTX1",65,0) S $P(^ONCO(165.5,DA,3.1),U,13)="0000000" "RTN","ONCNTX1",66,0) S DR="51.4;51.5" D DIQ1^ONCNTX "RTN","ONCNTX1",67,0) W:$D(NTX) !,"RADIATION @FAC.................: "_ONC(165.5,DA,51.4,"E") "RTN","ONCNTX1",68,0) W !,"RADIATION @FAC DATE............: ",ONC(165.5,DA,51.5,"E") "RTN","ONCNTX1",69,0) Q "RTN","ONCNTX1",70,0) ; "RTN","ONCNTX1",71,0) RSSQ ;RADIATION/SURGERY SEQUENCE (165.5,51.3) "RTN","ONCNTX1",72,0) S $P(^ONCO(165.5,DA,3),U,7)=0 "RTN","ONCNTX1",73,0) W !,"RADIATION/SURGERY SEQUENCE.....: No rad and/or surg" "RTN","ONCNTX1",74,0) Q "RTN","ONCNTX1",75,0) ; "RTN","ONCNTX1",76,0) CHEMATF ;CHEMOTHERAPY @FAC (165.5,53.3) "RTN","ONCNTX1",77,0) S $P(^ONCO(165.5,DA,3.1),U,14)="00" "RTN","ONCNTX1",78,0) I $D(NTX) D "RTN","ONCNTX1",79,0) .N DR,DP,DL "RTN","ONCNTX1",80,0) .S DIE="^ONCO(165.5,",DR=53.3 D ^DIE "RTN","ONCNTX1",81,0) CMATFDT S $P(^ONCO(165.5,DA,3.1),U,15)="0000000" "RTN","ONCNTX1",82,0) S DR="53.3;53.4" D DIQ1^ONCNTX "RTN","ONCNTX1",83,0) W !,"CHEMOTHERAPY @FAC DATE...: ",ONC(165.5,DA,53.4,"E") "RTN","ONCNTX1",84,0) W ! "RTN","ONCNTX1",85,0) Q "RTN","ONCNTX1",86,0) ; "RTN","ONCNTX1",87,0) HTATF ;HORMONE THERAPY @FAC (165.5,54.3) "RTN","ONCNTX1",88,0) S $P(^ONCO(165.5,DA,3.1),U,16)="00" "RTN","ONCNTX1",89,0) I $D(NTX) D "RTN","ONCNTX1",90,0) .N DR,DP,DL "RTN","ONCNTX1",91,0) .S DIE="^ONCO(165.5,",DR=54.3 D ^DIE "RTN","ONCNTX1",92,0) HTATFDT S $P(^ONCO(165.5,DA,3.1),U,17)="0000000" "RTN","ONCNTX1",93,0) S DR="54.3;54.4" D DIQ1^ONCNTX "RTN","ONCNTX1",94,0) W !,"HORMONE THERAPY @FAC DATE: ",ONC(165.5,DA,54.4,"E") "RTN","ONCNTX1",95,0) W ! "RTN","ONCNTX1",96,0) Q "RTN","ONCNTX1",97,0) ; "RTN","ONCNTX1",98,0) IMMATF ;IMMUNOTHERAPY @FAC (165.5,55.3) "RTN","ONCNTX1",99,0) S $P(^ONCO(165.5,DA,3.1),U,18)="00" "RTN","ONCNTX1",100,0) I $D(NTX) D "RTN","ONCNTX1",101,0) .N DR,DP,DL "RTN","ONCNTX1",102,0) .S DIE="^ONCO(165.5,",DR=55.3 D ^DIE "RTN","ONCNTX1",103,0) IMATFDT S $P(^ONCO(165.5,DA,3.1),U,19)="0000000" "RTN","ONCNTX1",104,0) S DR="55.3;55.4" D DIQ1^ONCNTX "RTN","ONCNTX1",105,0) W !,"IMMUNOTHERAPY @FAC DATE..: ",ONC(165.5,DA,55.4,"E") "RTN","ONCNTX1",106,0) W ! "RTN","ONCNTX1",107,0) Q "RTN","ONCNTX1",108,0) ; "RTN","ONCNTX1",109,0) OTHATF ;OTHER TREATMENT @FAC (165.5,57.3) "RTN","ONCNTX1",110,0) I $G(X)'=7 S $P(^ONCO(165.5,DA,3.1),U,20)=0 "RTN","ONCNTX1",111,0) S $P(^ONCO(165.5,DA,3.1),U,21)="0000000" "RTN","ONCNTX1",112,0) S DR="57.3;57.4" D DIQ1^ONCNTX "RTN","ONCNTX1",113,0) W:$D(NTX) !,"OTHER TREATMENT @FAC...........: "_ONC(165.5,DA,57.3,"E") "RTN","ONCNTX1",114,0) W !,"OTHER TREATMENT @FAC DATE......: ",ONC(165.5,DA,57.4,"E") "RTN","ONCNTX1",115,0) Q "RTN","ONCNTX1",116,0) ; "RTN","ONCNTX1",117,0) HOR ;HORMONE THERAPY (165.5,54.2) "RTN","ONCNTX1",118,0) I $D(NTX) D "RTN","ONCNTX1",119,0) .N DR,DP,DL "RTN","ONCNTX1",120,0) .S DIE="^ONCO(165.5,",DR=54.2 D ^DIE "RTN","ONCNTX1",121,0) S TXDT=$P(^ONCO(165.5,DA,3),U,14)_"H" "RTN","ONCNTX1",122,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX1",123,0) S $P(^ONCO(165.5,DA,3),U,14)="0000000" D HTDT^ONCATF1 "RTN","ONCNTX1",124,0) S ^ONCO(165.5,"ATX",DA,"0000000H")="" "RTN","ONCNTX1",125,0) S $P(^ONCO(165.5,DA,3),U,15)="" "RTN","ONCNTX1",126,0) K ^ONCO(165.5,DA,18) "RTN","ONCNTX1",127,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCNTX1",128,0) S DR="54.2;54" D EN^DIQ1 "RTN","ONCNTX1",129,0) W !,"HORMONE THERAPY DATE.....: ",ONC(165.5,DA,54,"E") "RTN","ONCNTX1",130,0) K ONC Q "RTN","ONCNTX1",131,0) ; "RTN","ONCNTX1",132,0) IMM ;IMMUNOTHERAPY (165.5,55.2) "RTN","ONCNTX1",133,0) I $D(NTX) D "RTN","ONCNTX1",134,0) .N DR,DP,DL "RTN","ONCNTX1",135,0) .S DIE="^ONCO(165.5,",DR=55.2 D ^DIE "RTN","ONCNTX1",136,0) S TXDT=$P(^ONCO(165.5,DA,3),U,17)_"B" "RTN","ONCNTX1",137,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX1",138,0) S $P(^ONCO(165.5,DA,3),U,17)="0000000" D IMMDT^ONCATF1 "RTN","ONCNTX1",139,0) S ^ONCO(165.5,"ATX",DA,"0000000B")="" "RTN","ONCNTX1",140,0) K ^ONCO(165.5,DA,20) "RTN","ONCNTX1",141,0) N DI,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCNTX1",142,0) S DR="55.2;55" D EN^DIQ1 "RTN","ONCNTX1",143,0) W !,"IMMUNOTHERAPY DATE:......: ",ONC(165.5,DA,55,"E") "RTN","ONCNTX1",144,0) K ONC Q "RTN","ONCNTX1",145,0) ; "RTN","ONCNTX1",146,0) HTEP ;HEMA TRANS/ENDOCRINE PROC (165.5,153) "RTN","ONCNTX1",147,0) I $D(NTX) D "RTN","ONCNTX1",148,0) .N DR,DP,DL "RTN","ONCNTX1",149,0) .S DIE="^ONCO(165.5,",DR=153 D ^DIE "RTN","ONCNTX1",150,0) S TXDT=$P(^ONCO(165.5,DA,3.1),U,35)_"E" "RTN","ONCNTX1",151,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX1",152,0) S $P(^ONCO(165.5,DA,3.1),U,35)="0000000" "RTN","ONCNTX1",153,0) S ^ONCO(165.5,"ATX",DA,"0000000E")="" "RTN","ONCNTX1",154,0) S DR="153;153.1" D EN^DIQ1 "RTN","ONCNTX1",155,0) W !,"HEMA TRANS/ENDOCRINE PROC DATE: ",ONC(165.5,DA,153.1,"E") "RTN","ONCNTX1",156,0) K ONC W ! Q "RTN","ONCNTX1",157,0) ; "RTN","ONCNTX1",158,0) OTH ;OTHER TREATMENT (165.5,57.2) "RTN","ONCNTX1",159,0) S TXDT=$P(^ONCO(165.5,DA,3),U,23)_"O" "RTN","ONCNTX1",160,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX1",161,0) S $P(^ONCO(165.5,DA,3),U,23)="0000000" D OTHDT^ONCATF1 "RTN","ONCNTX1",162,0) S ^ONCO(165.5,"ATX",DA,"0000000O")="" "RTN","ONCNTX1",163,0) K ^ONCO(165.5,DA,21) "RTN","ONCNTX1",164,0) N DI,X K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCNTX1",165,0) S DR="57.2;57" D EN^DIQ1 "RTN","ONCNTX1",166,0) W:$D(NTX) !,"OTHER TREATMENT................: ",ONC(165.5,DA,57.2,"E") "RTN","ONCNTX1",167,0) W !,"OTHER TREATMENT DATE:..........: ",ONC(165.5,DA,57,"E") "RTN","ONCNTX1",168,0) K ONC Q "RTN","ONCNTX1",169,0) ; "RTN","ONCNTX1",170,0) PRO ;PROTOCOL PARTICIPATION (165.5,560) "RTN","ONCNTX1",171,0) S $P(^ONCO(165.5,DA,"STS2"),U,31)="00" "RTN","ONCNTX1",172,0) S $P(^ONCO(165.5,DA,3.1),U,4)="0000" "RTN","ONCNTX1",173,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCNTX1",174,0) S DR="133;560" D EN^DIQ1 "RTN","ONCNTX1",175,0) W !,"PROTOCOL PARTICIPATION.........: ",ONC(165.5,DA,560,"E") "RTN","ONCNTX1",176,0) W !,"YEAR PUT ON PROTOCOL...........: ",ONC(165.5,DA,133,"E") "RTN","ONCNTX1",177,0) K ONC Q "RTN","ONCNTX1",178,0) ; "RTN","ONCNTX1",179,0) RR ;RECONSTRUCTION/RESTORATION (165.5,23) "RTN","ONCNTX1",180,0) F RTK=0:0 S RTK=$O(^ONCO(164,RTK)) Q:RTK'>0 D "RTN","ONCNTX1",181,0) .I '$D(^ONCO(164,RTK,"RR5",0)) Q "RTN","ONCNTX1",182,0) .W !,RTK "RTN","ONCNTX1",183,0) .S NUM=$O(^ONCO(164,RTK,"RR5",0)) "RTN","ONCNTX1",184,0) .W !?3,"FIRST:",?11,NUM,?14,$G(^ONCO(164,RTK,"RR5",NUM,0)) "RTN","ONCNTX1",185,0) .F RR=0:0 S RR=$O(^ONCO(164,RTK,"RR5",RR)) Q:RR="B" S LAST=RR "RTN","ONCNTX1",186,0) .W !?3,"LAST :",?11,LAST,?14,$G(^ONCO(164,RTK,"RR5",LAST,0)) "RTN","ONCNTX1",187,0) Q "RTN","ONCNTX1",188,0) ; "RTN","ONCNTX1",189,0) RRDEFIT ;RECONSTRUCTION/RESTORATION default (165.5,23) "RTN","ONCNTX1",190,0) I X="No reconstruction/restoration" S X=0 Q "RTN","ONCNTX1",191,0) I X="NA"!(X["Unknown; not stated") S X=9 Q "RTN","ONCNTX1",192,0) Q "RTN","ONCNTX1",193,0) ; "RTN","ONCNTX1",194,0) RFNSHLP ;REASON FOR NO SURGERY (165.5,58) help "RTN","ONCNTX1",195,0) W !," Record the reason that no surgery was perforned on the primary site." "RTN","ONCNTX1",196,0) Q "RTN","ONCNTX1",197,0) ; "RTN","ONCNTX1",198,0) RFNRHLP ;REASON FOR NO RADIATION (165.5,75) help "RTN","ONCNTX1",199,0) W !," Record the reason that no regional radiation" "RTN","ONCNTX1",200,0) W !," therapy was administered to the primary site." "RTN","ONCNTX1",201,0) Q "RTN","ONCNTX1",202,0) ; "RTN","ONCNTX1",203,0) EXIT W ! S Y="@424" "RTN","ONCNTX1",204,0) Q "RTN","ONCOAID") 0^20^B9170040 "RTN","ONCOAID",1,0) ONCOAID ;Hines OIFO/GWB-PATIENT DEMOGRAPHIC INFORMATION ;7/20/93 "RTN","ONCOAID",2,0) ;;2.11;ONCOLOGY;**23,37**;Mar 07, 1995 "RTN","ONCOAID",3,0) DEM ;Display demographic information "RTN","ONCOAID",4,0) D SET S X=ONCOVP,DFN=$P(X,";",1),FIL=$P(X,";",2) "RTN","ONCOAID",5,0) S ONC="^"_FIL_DFN "RTN","ONCOAID",6,0) S ONCO=ONC_",0)" S ONCO0=$S($D(@ONCO):^(0),1:"") I ONCO0="" W "??dangling pointer" Q "RTN","ONCOAID",7,0) FIL ;name file "RTN","ONCOAID",8,0) S FN=$S(FIL="DPT(":"Patient",1:"Referral") "RTN","ONCOAID",9,0) SN S SN=$P(ONCO0,U,9),ONCOMR=SN,ONCOSN=$E(SN,1,3)_"-"_$E(SN,4,5)_"-"_$E(SN,6,9) "RTN","ONCOAID",10,0) DB S Y=$P(ONCO0,U,3) D DD^%DT S ONCODB=Y "RTN","ONCOAID",11,0) PB S POB=$P(ONCO0,U,12),SOB=$S(POB="":"",1:$P(^DIC(5,POB,0),U)) "RTN","ONCOAID",12,0) ;translate SEX,RACE & code Ethenticity "RTN","ONCOAID",13,0) SX S SX=$P(ONCO0,U,2),SEX=$S(SX="M":"Male",SX="F":"Female",1:"Not Stated") "RTN","ONCOAID",14,0) RC S R=$P(ONCO0,U,6),RC=$G(^ONCO(164.46,+R,0)),R=$P(RC,U,2),RCE=$P(RC,U),RCE=$S(RC="":"Not Stated",1:RCE) "RTN","ONCOAID",15,0) MS ;marital status "RTN","ONCOAID",16,0) S MS=$P(ONCO0,U,5),MS=$S(MS=1:4,MS=4:5,MS=5:3,MS=6:1,MS=7:9,1:MS) ;SAVE for abstract "RTN","ONCOAID",17,0) XD S ONCO=ONC_",.35)" S Y=$S($D(@ONCO):$P(@ONCO,U),1:"") I Y'="" S ONCODD=Y D DD^%DT S XD=Y ; ONC defined in paragraph DEM above "RTN","ONCOAID",18,0) AD S ONCO=ONC_",.11)" S YY=$S($D(@ONCO):^(.11),1:"") I YY F J=1:1:7 S A(J)=$P(YY,U,J) K:A(J)="" A(J) ; ONC defined in paragraph DEM above "RTN","ONCOAID",19,0) TL S ONCO=ONC_",.13)" I $D(@ONCO) S TL=$P(^(.13),U,1) ; ONC defined in paragraph DEM above "RTN","ONCOAID",20,0) W W !!,?6,"The following information is contained in the ",FN," file" "RTN","ONCOAID",21,0) W !?12,"NOT editable - See your MAS department IF in error",! "RTN","ONCOAID",22,0) N W !?20,"Name: ",ONCONM,! "RTN","ONCOAID",23,0) 1 W !,"DOB: ",ONCODB W:$D(A(1)) ?31,"Address: ",A(1) W:$D(A(2)) " ",A(2) "RTN","ONCOAID",24,0) 2 W !,"SSN: ",ONCOSN W:$D(A(4)) ?40,A(4) W:$D(A(5)) ",",$P(^DIC(5,A(5),0),U) "RTN","ONCOAID",25,0) 4 W !,"SEX: ",SEX W:$D(CT) ?40,"County: ",CT "RTN","ONCOAID",26,0) W !,"POB: ",$S(SOB="":"Not Stated",1:SOB) W:$D(TL) ?40,TL "RTN","ONCOAID",27,0) W:$D(XD) !,"DEATH: ",XD "RTN","ONCOAID",28,0) TT S D0=ONCOD0 W ! D NOK^ONCOCON "RTN","ONCOAID",29,0) W4 W !!?10,"************* Oncology Patient file DATA **************" "RTN","ONCOAID",30,0) G PAT "RTN","ONCOAID",31,0) CT ;get county from zipcode (may be different from COUNTY). "RTN","ONCOAID",32,0) K CT S Y=A(6),Y=$O(^VIC(5.11,"B",Y_" ",0)),ZP0=$S($D(^VIC(5.11,+Y,0)):^(0),1:"") Q:ZP0="" S CY=$P(ZP0,U,2),CT=$P(^VIC(5.1,$P(ZP0,U,3),0),U) "RTN","ONCOAID",33,0) Q "RTN","ONCOAID",34,0) ; "RTN","ONCOAID",35,0) PAT S ONCOSX=$S(SX="M":1,SX="F":2,1:9) "RTN","ONCOAID",36,0) ;S ONCOET=$S(R="":9,R<3:6,R>2&(R<7):0,R=7:9,1:9) "RTN","ONCOAID",37,0) XX S RCC=$S(R="":99,R<4:R,R=4:2,R=6:1,1:99) "RTN","ONCOAID",38,0) POB S X=SOB,DIC="^ONCO(165.2,",DIC(0)="ZM" D ^DIC K DIC,X "RTN","ONCOAID",39,0) S ONCOPB=$S(Y=-1:999,+Y=633:33,1:+Y) "RTN","ONCOAID",40,0) S $P(^ONCO(160,ONCOD0,0),U,5,8)=ONCOPB_U_ONCORC_U_ONCOET_U_ONCOSX "RTN","ONCOAID",41,0) S:$D(ONCODD) $P(^ONCO(160,ONCOD0,1),U,8)=ONCODD "RTN","ONCOAID",42,0) D KIL Q "RTN","ONCOAID",43,0) ; "RTN","ONCOAID",44,0) SET S (POB,ET,YY,TL,ONCODB,ONCODD,ONCOET,ONCOMR,ONCOPB,ONCORC,ONCOSN,ONCOSX)="" "RTN","ONCOAID",45,0) Q "RTN","ONCOAID",46,0) KIL ;Kill Variables "RTN","ONCOAID",47,0) K A,DOB,CT,CY,DA,DFN,DIC,DIE,DR,ET,ETH,FIL,FN,J,MS,POB,ONC,ONCO,PRT,R,RC,RCC,RCE,SN,SOB,TL,X,XD,XX,Y,YY,ZP0 "RTN","ONCOAID",48,0) Q "RTN","ONCOAIF") 0^2^B23187732 "RTN","ONCOAIF",1,0) ONCOAIF ;Hines OIFO/GWB - POST FOLLOW-UP; 07/12/00 "RTN","ONCOAIF",2,0) ;;2.11;ONCOLOGY;**11,15,16,24,25,26,27,28,37**;Mar 07, 1995 "RTN","ONCOAIF",3,0) ; "RTN","ONCOAIF",4,0) BEG W @IOF,!," Post/Edit Follow-up" "RTN","ONCOAIF",5,0) W !," -------------------",! "RTN","ONCOAIF",6,0) Q "RTN","ONCOAIF",7,0) ; "RTN","ONCOAIF",8,0) PAT ;[PF Post/Edit Follow-up] "RTN","ONCOAIF",9,0) N ONCDUZ,ONCDT "RTN","ONCOAIF",10,0) S ONCDUZ=DUZ,ONCDT=DT "RTN","ONCOAIF",11,0) D BEG "RTN","ONCOAIF",12,0) S DIC("A")=" Post/Edit Follow-Up for patient: " "RTN","ONCOAIF",13,0) S DIC="^ONCO(160,",DIC(0)="AEMQZ" D ^DIC K DIC "RTN","ONCOAIF",14,0) G EX:Y<0 "RTN","ONCOAIF",15,0) S (ONCOD0,DA,D0)=+Y,ONCONM=Y(0,0) "RTN","ONCOAIF",16,0) D SUM,LST^ONCODLF G DIE "RTN","ONCOAIF",17,0) ; "RTN","ONCOAIF",18,0) LST ;Follow-Up "RTN","ONCOAIF",19,0) W @IOF,!!," **********FOLLOW-UP**********",!! "RTN","ONCOAIF",20,0) W " Patient: ",ONCONM "RTN","ONCOAIF",21,0) W:$D(XDD) !," Date of Inpatient Discharge: ",XDD "RTN","ONCOAIF",22,0) Q "RTN","ONCOAIF",23,0) ; "RTN","ONCOAIF",24,0) EN ;FOLLOW-UP entry when patient has been pre-selected "RTN","ONCOAIF",25,0) K F,DIC,DO,ONCOD1,LC,VS,NF,XDT,XDD,XR "RTN","ONCOAIF",26,0) S ONCDUZ=DUZ,ONCDT=DT "RTN","ONCOAIF",27,0) S PRESEL=1 "RTN","ONCOAIF",28,0) S XDT=$S('$D(ONCOD0P):"",1:$$GET1^DIQ(165.5,ONCOD0P,1.1,"I")) "RTN","ONCOAIF",29,0) I (XDT="")!(XDT="0000000")!(XDT="9999999") D LST G DIE "RTN","ONCOAIF",30,0) D DD S F=$P($G(^ONCO(160,ONCOD0,"F",0)),U,4) "RTN","ONCOAIF",31,0) I F<1 D DLC,LST S F=1 G DIE "RTN","ONCOAIF",32,0) RF S D0=ONCOD0 W !! K DXS,DIOT D BEG W ! D LST^ONCODLF G DIE "RTN","ONCOAIF",33,0) ; "RTN","ONCOAIF",34,0) DIE K DXS S ONCOSTAT=1,DA=ONCOD0,DR="[ONCO FOLLOWUP]",DIE="^ONCO(160,",FG=0 "RTN","ONCOAIF",35,0) W ! D ^DIE I 'FG S ONCOVS="" G UPOUT "RTN","ONCOAIF",36,0) ; "RTN","ONCOAIF",37,0) UPDAT S D0=ONCOD0 K DXS,DIOT D TS^ONCOCOF,LST^ONCODLF,UPD^ONCOCRF "RTN","ONCOAIF",38,0) N Y K DIQ,ONC S DIC="^ONCO(160,",DR=".01;16;15;15.2",DA=ONCOD0,DIQ="ONC" "RTN","ONCOAIF",39,0) D EN^DIQ1 W ! "RTN","ONCOAIF",40,0) W !," Name..: ",ONC(160,ONCOD0,.01) "RTN","ONCOAIF",41,0) W ?35,"Date Last Contact: ",ONC(160,ONCOD0,16) "RTN","ONCOAIF",42,0) W !," Status: ",ONC(160,ONCOD0,15) "RTN","ONCOAIF",43,0) W ?35,"Follow-Up Status.: ",ONC(160,ONCOD0,15.2) "RTN","ONCOAIF",44,0) D SUM "RTN","ONCOAIF",45,0) C K DIR S DIR("A")="DATA OK",DIR("B")="Yes",DIR(0)="Y" "RTN","ONCOAIF",46,0) D ^DIR Q:(Y=U)!(Y="") G DIE:'Y "RTN","ONCOAIF",47,0) I ONCOVS G EX:$D(PRESEL) G PAT:'$D(REC),REC "RTN","ONCOAIF",48,0) W !! D DEAD^ONCOFDP "RTN","ONCOAIF",49,0) Q:$D(ONCOAI) G REC:$D(REC) D KIL K ONCONM S ONCOD=1 G PAT:'$D(QA) Q "RTN","ONCOAIF",50,0) ; "RTN","ONCOAIF",51,0) UPOUT ;Uparrow out check before deleting "RTN","ONCOAIF",52,0) Q:'$D(ONCOD1) "RTN","ONCOAIF",53,0) Q:'$D(^ONCO(160,ONCOD0,"F",ONCOD1,0)) "RTN","ONCOAIF",54,0) Q:$P(^(0),U,8)=1 "RTN","ONCOAIF",55,0) D DEL "RTN","ONCOAIF",56,0) Q "RTN","ONCOAIF",57,0) ; "RTN","ONCOAIF",58,0) DEL ;Delete FOLLOW-UP entry "RTN","ONCOAIF",59,0) S DA(1)=ONCOD0,DA=ONCOD1,DIK="^ONCO(160,"_DA(1)_",""F""," "RTN","ONCOAIF",60,0) D ^DIK S ONCOVS="" "RTN","ONCOAIF",61,0) W:$D(^ONCO(160,ONCOD0,"F",ONCOD1,0)) $P(^(0),U,8) "RTN","ONCOAIF",62,0) W !!," *********************ENTRY DELETED*************************" "RTN","ONCOAIF",63,0) W !!," You have not entered all of the required information." "RTN","ONCOAIF",64,0) W !!,"(Last Tumor Status(es) have been reset for this patient's primary site(s).)",!! "RTN","ONCOAIF",65,0) H 1 "RTN","ONCOAIF",66,0) Q "RTN","ONCOAIF",67,0) ; "RTN","ONCOAIF",68,0) REC ;[RF Recurrence/Sub Tx Follow-up] "RTN","ONCOAIF",69,0) K ^DISV(DUZ,"^ONCO(165.5,") "RTN","ONCOAIF",70,0) N ONCDUZ,ONCDT "RTN","ONCOAIF",71,0) S ONCDUZ=DUZ,ONCDT=DT "RTN","ONCOAIF",72,0) S XR=1,REC="" W @IOF,!," Recurrence/Sub Tx Follow-up" "RTN","ONCOAIF",73,0) W !," ---------------------------",! "RTN","ONCOAIF",74,0) S DIC("A")="Select Patient for Recurrence: " "RTN","ONCOAIF",75,0) S DIC="^ONCO(160,",DIC(0)="AEQMZ" D ^DIC K DIC "RTN","ONCOAIF",76,0) G EX:Y<0 "RTN","ONCOAIF",77,0) S (D0,ONCOD0)=+Y,ONCONM=Y(0,0) "RTN","ONCOAIF",78,0) N Y "RTN","ONCOAIF",79,0) K DIQ,ONC S DIC="^ONCO(160,",DR=".01;2;3;8;10;15",DA=ONCOD0,DIQ="ONC" "RTN","ONCOAIF",80,0) D EN^DIQ1 W ! "RTN","ONCOAIF",81,0) W !?2,"Name.........: ",ONC(160,ONCOD0,.01) "RTN","ONCOAIF",82,0) W ?35,"Race.........: ",ONC(160,ONCOD0,8) "RTN","ONCOAIF",83,0) W !?2,"SSN..........: ",ONC(160,ONCOD0,2) "RTN","ONCOAIF",84,0) W ?35,"Sex..........: ",ONC(160,ONCOD0,10) "RTN","ONCOAIF",85,0) W !?2,"Date of Birth: ",ONC(160,ONCOD0,3) "RTN","ONCOAIF",86,0) W ?35,"Status.......: ",ONC(160,ONCOD0,15) "RTN","ONCOAIF",87,0) D SUM "RTN","ONCOAIF",88,0) K DIC W !?1,"Select Primary for Recurrence: ",! "RTN","ONCOAIF",89,0) S D="C",DIC="^ONCO(165.5,",X=ONCOD0,DIC(0)="EFZ" D IX^DIC G:Y<0 REC "RTN","ONCOAIF",90,0) I Y'=" " S (ONCOD0P,DA)=+Y,DR="[ONCO RECURRENCE FOLLOWUP]",DIE="^ONCO(165.5,",DATEDX=$P(^ONCO(165.5,DA,0),U,16),TX=$P($G(^ONCO(165.5,DA,2)),U,1) D ^DIE S AB=2,ONCOD0P=D0 G EN "RTN","ONCOAIF",91,0) ; "RTN","ONCOAIF",92,0) RE ;Recurrence "RTN","ONCOAIF",93,0) W !!," Recurrence" "RTN","ONCOAIF",94,0) W !," ----------" "RTN","ONCOAIF",95,0) Q "RTN","ONCOAIF",96,0) ; "RTN","ONCOAIF",97,0) STX ;Subsequent Course of Treatment "RTN","ONCOAIF",98,0) W !!," Subsequent Course of Treatment" "RTN","ONCOAIF",99,0) W !," ------------------------------" "RTN","ONCOAIF",100,0) Q "RTN","ONCOAIF",101,0) ; "RTN","ONCOAIF",102,0) KIL ;Kill variables "RTN","ONCOAIF",103,0) K ONCOSTAT,XR,ED0,DA,DIC,DIE,DIK,DIOT,DIR,DO,DR,DQ,DXS,F,FDOC,FG,FS "RTN","ONCOAIF",104,0) K ONCOD1,ONCOLC,TM,TS,CS,K,I,XY,XX,XDA,XD1,XD0,LC,ONCONF,ONCOVS,REC "RTN","ONCOAIF",105,0) K AB,DATEDX,PRESEL "RTN","ONCOAIF",106,0) Q "RTN","ONCOAIF",107,0) ; "RTN","ONCOAIF",108,0) EX ;Exit "RTN","ONCOAIF",109,0) D KIL Q "RTN","ONCOAIF",110,0) ; "RTN","ONCOAIF",111,0) DD ;Date format "RTN","ONCOAIF",112,0) S XDD=$E(XDT,4,5)_"/"_$E(XDT,6,7)_"/"_($E(XDT,1,3)+1700) Q "RTN","ONCOAIF",113,0) ; "RTN","ONCOAIF",114,0) DLC ;Create FOLLOW-UP "RTN","ONCOAIF",115,0) K DA "RTN","ONCOAIF",116,0) S DA(1)=ONCOD0,DIC="^ONCO(160,"_DA(1)_","_"""F"""_"," "RTN","ONCOAIF",117,0) S DLAYGO=160,X=XDT,DIC(0)="ZL" "RTN","ONCOAIF",118,0) I '$D(^ONCO(160,DA(1),"F")) S ^ONCO(160,DA(1),"F",0)="^160.04DAI^^" "RTN","ONCOAIF",119,0) D FILE^DICN S ONCOLC=XDT,DIE=DIC,DR="1////1;2////2;" D ^DIE "RTN","ONCOAIF",120,0) K DA,DIC,DLAYGO,DIE "RTN","ONCOAIF",121,0) Q "RTN","ONCOAIF",122,0) ; "RTN","ONCOAIF",123,0) SUM ;Primary summary "RTN","ONCOAIF",124,0) S XD0=D0 "RTN","ONCOAIF",125,0) N J,XD1,LINE W !! "RTN","ONCOAIF",126,0) S LINE=" ------------- -------------------- ----------------- ---------- ---- -----" "RTN","ONCOAIF",127,0) S J=0,XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $D(^ONCO(165.5,XD1,0)) S J=J+1 W:J=1 " Acc/Sequence",?15,"Topography",?37,"Last Tumor Status",?56,"Date DX",?68,"Stat",?74,"Div",!,LINE,! D FU^ONCOCOML "RTN","ONCOAIF",128,0) Q "RTN","ONCOAIM") 0^18^B23828926 "RTN","ONCOAIM",1,0) ONCOAIM ;Hines OIFO/RTK,GWB - MULTIPLE PRIMARY, CREATE RECORD ;10/1/93 "RTN","ONCOAIM",2,0) ;;2.11;ONCOLOGY;**1,5,6,25,27,36,37**;Mar 07, 1995 "RTN","ONCOAIM",3,0) ; "RTN","ONCOAIM",4,0) PRI W @IOF,!!?8,"********************* ADD PRIMARY *********************",!! "RTN","ONCOAIM",5,0) W:$D(ONCONM) ?30,ONCONM,! "RTN","ONCOAIM",6,0) Q "RTN","ONCOAIM",7,0) ; "RTN","ONCOAIM",8,0) EN ;Entry for existing primaries; ONCOD0 = #160 IEN "RTN","ONCOAIM",9,0) D PRI,KIL "RTN","ONCOAIM",10,0) NXT ;Get next ACESSION NUMBER (165.5,.05)/SEQUENCE NUMBER (165.5,.06) "RTN","ONCOAIM",11,0) ;Loop thru 165.5 "D" cross-reference "RTN","ONCOAIM",12,0) ;Set up 2 ^TMP arrays, 1 for malignants, 1 for benigns "RTN","ONCOAIM",13,0) S (KKM,KKB)=0,AC=$P(ONCOP,U,5),ACN=$E(AC,1,4)_"-"_$E(AC,5,9),ACS=ACN "RTN","ONCOAIM",14,0) F KK=1:1 S ACSL=ACS,ACS=$O(^ONCO(165.5,"D",ACS)) S SQN=$P(ACS,"/",2) D Q:$P(ACS,"/")'=ACN "RTN","ONCOAIM",15,0) .Q:$P(ACS,"/")'=ACN "RTN","ONCOAIM",16,0) .S RECNUM=0 F LL=1:1 S RECNUM=$O(^ONCO(165.5,"D",ACS,RECNUM)) Q:RECNUM="" D "RTN","ONCOAIM",17,0) ..S PRIMIEN=$P(^ONCO(165.5,RECNUM,0),U) "RTN","ONCOAIM",18,0) ..S PRIM=$P(^ONCO(164.2,PRIMIEN,0),U,1) "RTN","ONCOAIM",19,0) ..S SEQDIV=$$GET1^DIQ(165.5,RECNUM,2000) "RTN","ONCOAIM",20,0) ..I ((+SQN>0)&(+SQN<60))!(SQN="00")!(SQN=99) S KKM=KKM+1,^TMP($J,"MAL",KKM)=SQN_U_ACS_U_PRIM_U_RECNUM_U_SEQDIV "RTN","ONCOAIM",21,0) ..E S KKB=KKB+1,^TMP($J,"BEN",KKB)=SQN_U_ACS_U_PRIM_U_RECNUM_U_SEQDIV "RTN","ONCOAIM",22,0) ; "RTN","ONCOAIM",23,0) ;Find last malignant/benign (if any) and determine SEQUENCE NUMBER "RTN","ONCOAIM",24,0) K LASTBEN,LASTMAL,NEXTBEN,NEXTMAL "RTN","ONCOAIM",25,0) S ALPHA=0 F S BEN=ALPHA,ALPHA=$O(^TMP($J,"BEN",ALPHA)) Q:ALPHA'>0 "RTN","ONCOAIM",26,0) S NUM=0 F S MAL=NUM,NUM=$O(^TMP($J,"MAL",NUM)) Q:NUM'>0 "RTN","ONCOAIM",27,0) S LASTBEN=$P($G(^TMP($J,"BEN",BEN)),U,1) "RTN","ONCOAIM",28,0) S LASTMAL=$P($G(^TMP($J,"MAL",MAL)),U,1) "RTN","ONCOAIM",29,0) S NEXTBEN=$S(LASTBEN=60:62,LASTBEN'="":LASTBEN+1,1:60) "RTN","ONCOAIM",30,0) S NEXTMAL=$S(LASTMAL'="":LASTMAL+1,1:"NULL") "RTN","ONCOAIM",31,0) S NEXTMAL=$S(NEXTMAL=1!(NEXTMAL>99):2,NEXTMAL="NULL":"00^99",1:NEXTMAL) "RTN","ONCOAIM",32,0) S NEXTMAL=$S($L(NEXTMAL)<2:"0"_NEXTMAL,1:NEXTMAL) "RTN","ONCOAIM",33,0) ; "RTN","ONCOAIM",34,0) SEQNUM ;SEQUENCE NUMBER (165.5,.06) "RTN","ONCOAIM",35,0) W !,"ACCESSION NUMBER: ",ACN "RTN","ONCOAIM",36,0) PROMPT S DEF=$S(NEXTMAL["00":"00",1:NEXTMAL) "RTN","ONCOAIM",37,0) K DIR S DIR(0)="F^2:2",DIR("A")="SEQUENCE NUMBER.",DIR("B")=DEF "RTN","ONCOAIM",38,0) S DIR("?")="Enter the next SEQUENCE NUMBER. Enter ?? for additional HELP" "RTN","ONCOAIM",39,0) S DIR("??")="^D HLP^ONCOAIM2" D ^DIR I "^^"[Y D KIL Q "RTN","ONCOAIM",40,0) I (Y'?2N)!((Y>35)&(Y<60))!((Y>88)&(Y<99)) W " Allowable Values: 00-35, 60-88, 99" G PROMPT "RTN","ONCOAIM",41,0) S DIEN=ACN_"/"_Y "RTN","ONCOAIM",42,0) ;I $O(^ONCO(165.5,"D",DIEN,""))'="" W " Already assigned to this patient",! D EXPRI^ONCOAIM2 G PROMPT "RTN","ONCOAIM",43,0) S SN=Y,SEQ=SN,AY=$E(DT,1)+17,AY=AY_$E(DT,2,3) "RTN","ONCOAIM",44,0) ;I (SN="00")!((SN>0)&(SN<60)),SN'=NEXTMAL W " Next CoC-Required SEQUENCE NUMBER is ",NEXTMAL G PROMPT "RTN","ONCOAIM",45,0) I SN="02",$D(^TMP($J,"MAL",1)),$P(^TMP($J,"MAL",1),U,1)'="01" D "RTN","ONCOAIM",46,0) .S ACS=$P(^TMP($J,"MAL",1),U,2) "RTN","ONCOAIM",47,0) .S REC00=$P(^TMP($J,"MAL",1),U,4) "RTN","ONCOAIM",48,0) .W !!?1,"You are adding the second CoC-Required primary for this patient" "RTN","ONCOAIM",49,0) .W !!?1,ACS," ","will be changed to ",ACN,"/01",! "RTN","ONCOAIM",50,0) I SN="02",$D(^TMP($J,"MAL",2)),$P(^TMP($J,"MAL",2),U,1)'="01" D "RTN","ONCOAIM",51,0) .S REC002=$P(^TMP($J,"MAL",2),U,4) "RTN","ONCOAIM",52,0) I SN>59,SN<88,SN'=NEXTBEN W ?26,"Next Reportable-By-Agreement SEQUENCE NUMBER is ",NEXTBEN G PROMPT "RTN","ONCOAIM",53,0) I SN=62,$D(^TMP($J,"BEN",1)),$P(^TMP($J,"BEN",1),U)'=61 D "RTN","ONCOAIM",54,0) .S ACS=$P(^TMP($J,"BEN",1),U,2) "RTN","ONCOAIM",55,0) .S REC00=$P(^TMP($J,"BEN",1),U,4) "RTN","ONCOAIM",56,0) .W !!?1,"You are adding the second Reportable-By-Agreement primary for this patient" "RTN","ONCOAIM",57,0) .W !!?1,ACS," ","will be changed to ",ACN,"/61",! "RTN","ONCOAIM",58,0) ; "RTN","ONCOAIM",59,0) PRIM2 ;NEXT PRIMARY "RTN","ONCOAIM",60,0) LOOK2 ;Select Primary Site for MULTIPLE primary "RTN","ONCOAIM",61,0) M K DIC S DIC="^ONCO(164.2,",DIC(0)="AEQM",DIC("A")=" Select another Primary 'SITE/GP': ",DIC("S")="I '$P(^(0),U,3)" W ! D ^DIC K DIC G EX:Y<0 S (XX,X,ONCOSIT)=+Y,ONCOPN=$P(Y,U,2),XD0=ONCOD0 D SEX^ONCOCKI G LOOK2:'$D(X) "RTN","ONCOAIM",62,0) FILE2 ;create new Primary Record for multiple primary patient(MAY update 00 to 01) "RTN","ONCOAIM",63,0) K DIR S DIR("A")=" Ok to ADD:",DIR("B")="Y",DIR(0)="Y" D ^DIR G CR:Y,EN:Y=0 Q "RTN","ONCOAIM",64,0) CR K DIC,DO,DTOUT S (DIC,DLAYGO)="^ONCO(165.5,",X=ONCOSIT,DIC(0)="ZL",DLAYGO=165 W !,?5,"Creating another primary record for ",ONCONM_" "_ACN_"..." "RTN","ONCOAIM",65,0) D FILE^DICN K DIC,X,DLAYGO G EX:Y<0 S ONCOD0P=+Y,$P(^ONCO(165.5,+Y,0),U,2)=ONCOD0,$P(^(7),U,2)=0,^ONCO(165.5,"C",ONCOD0,ONCOD0P)="",$P(^ONCO(165.5,+Y,25),U,1)="Y",$P(^ONCO(165.5,+Y,26),U,1)="Y" "RTN","ONCOAIM",66,0) F S ACAY=$E(DT,1)+17_$E(DT,2,3) "RTN","ONCOAIM",67,0) L +^ONCO(165.5,ONCOD0P,0) "RTN","ONCOAIM",68,0) S DIE="^ONCO(165.5," "RTN","ONCOAIM",69,0) S DR="W !?5;.05////^S X=AC;.06////^S X=SEQ;.07//^S X=ACAY;2000////^S X=DUZ(2)",ACN=AC_"/"_SEQ,DA=ONCOD0P "RTN","ONCOAIM",70,0) D ^DIE "RTN","ONCOAIM",71,0) L -^ONCO(165.5,ONCOD0P,0) "RTN","ONCOAIM",72,0) G PID:$D(Y)=0 D KLN G EX "RTN","ONCOAIM",73,0) ; "RTN","ONCOAIM",74,0) PID ;Continue defining Primary Record => ONCOAIP "RTN","ONCOAIM",75,0) I SN="02",$D(^TMP($J,"MAL",1)),$P(^TMP($J,"MAL",1),U,1)'="01" S UPDATE="01" D UPDT "RTN","ONCOAIM",76,0) I SN=62,$D(^TMP($J,"BEN",1)),$P(^TMP($J,"BEN",1),U,1)'=61 S UPDATE=61 D UPDT "RTN","ONCOAIM",77,0) S ONCOACN=AC_"/"_SEQ,Y=1 D KIL Q "RTN","ONCOAIM",78,0) UPDT ;UPDATE 00 (or 99) TO 01, or UPDATE 60 to 61 "RTN","ONCOAIM",79,0) S SN=UPDATE,DIE="^ONCO(165.5,",DA=REC00,DR=".06///^S X=SN" "RTN","ONCOAIM",80,0) D ^DIE S D0=ONCOD0P "RTN","ONCOAIM",81,0) I $D(REC002) S SN=UPDATE,DIE="^ONCO(165.5,",DA=REC002,DR=".06///^S X=SN" D ^DIE S D0=ONCOD0P "RTN","ONCOAIM",82,0) W !!?10,"The following up-dating has occurred:",!! D SDA^ONCOCOM H 2 "RTN","ONCOAIM",83,0) Q "RTN","ONCOAIM",84,0) KLN ;KILL ENTRY TIMED OUT "RTN","ONCOAIM",85,0) S DA=ONCOD0P,DIK="^ONCO(165.5," D ^DIK,KIL R !?25," - press RETURN to continue->",DA:DTIME Q:'$T!(DA=U) W ! "RTN","ONCOAIM",86,0) D KIL Q "RTN","ONCOAIM",87,0) ; "RTN","ONCOAIM",88,0) ;KILL VARIABLES "RTN","ONCOAIM",89,0) KIL K AC,ACAY,ACN,ACS,ACSL,AY,DA,DD,DIC,DIE,DIK,DIR,D0,DR,DD,DUOUT,DTOUT "RTN","ONCOAIM",90,0) K KK,MR,NR,REC00,SN,SEQ,X,XX,XD0,XR,YR "RTN","ONCOAIM",91,0) K ALPHA,BEN,KKB,KKM,LASTBEN,LASTMAL,MAL,NEXTBEN,NEXTMAL "RTN","ONCOAIM",92,0) K NUM,PRIM,PRIMIEN,RECNUM,SQN,UPDATE "RTN","ONCOAIM",93,0) K ^TMP($J,"BEN"),^TMP($J,"MAL") "RTN","ONCOAIM",94,0) Q "RTN","ONCOAIM",95,0) ; "RTN","ONCOAIM",96,0) EX ;Failed return to ONCOAI "RTN","ONCOAIM",97,0) D KIL S Y=0 "RTN","ONCOAIM",98,0) Q "RTN","ONCOAIP") 0^12^B77045585 "RTN","ONCOAIP",1,0) ONCOAIP ;Hines OIFO/GWB,RTK - [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**;Mar 07, 1995 "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,ONCOD0=$P(^ONCO(165.5,+Y,0),U,2),ONCOEDIT=1 "RTN","ONCOAIP",10,0) EN S ONCOYR=($$TNMED^ONCOU55(ONCOD0P)>3) "RTN","ONCOAIP",11,0) S DIE="^ONCO(165.5,",DA=ONCOD0P,DR="[ONCO ABSTRACT-I]",ONCOL1=0 "RTN","ONCOAIP",12,0) L +^ONCO(165.5,DA):0 I $T D ^DIE L -^ONCO(165.5,DA) S ONCOL1=1 "RTN","ONCOAIP",13,0) I 'ONCOL1 W !!,"This primary is being edited by another user" H 3 Q:'$D(ONCOEDIT) K ONCOL1 G ED "RTN","ONCOAIP",14,0) K ONCOL1,LYMPHOMA,RFDEF,TFDEF,DFDEF "RTN","ONCOAIP",15,0) I $D(ONCOOUT) Q "RTN","ONCOAIP",16,0) I $D(Y) Q:'$D(ONCOEDIT) G ED "RTN","ONCOAIP",17,0) S Y=$P(^ONCO(165.5,D0,0),U,4) "RTN","ONCOAIP",18,0) I (Y<3)!(Y=5)!(Y=8) K DIR S DIR("A")="Data OK",DIR(0)="Y" D ^DIR G EN:Y=0 "RTN","ONCOAIP",19,0) Q "RTN","ONCOAIP",20,0) ; "RTN","ONCOAIP",21,0) PAIR ;PAIRED ORGAN TEST "RTN","ONCOAIP",22,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOAIP",23,0) Q:TOP="" "RTN","ONCOAIP",24,0) S PO=$P($G(^ONCO(164,TOP,0)),U,7) "RTN","ONCOAIP",25,0) I PO="" S $P(^ONCO(165.5,D0,2),U,8)=0 "RTN","ONCOAIP",26,0) K PO "RTN","ONCOAIP",27,0) ;Stuff TEXT-PRIMARY SITE TITLE (165.5,100) "RTN","ONCOAIP",28,0) S TEXT=$P($G(^ONCO(164,TOP,0)),U,1) "RTN","ONCOAIP",29,0) S:$P($G(^ONCO(165.5,D0,8)),U,1)="" $P(^ONCO(165.5,D0,8),U,1)=TEXT "RTN","ONCOAIP",30,0) K TEXT "RTN","ONCOAIP",31,0) Q "RTN","ONCOAIP",32,0) ; "RTN","ONCOAIP",33,0) HISTXT ;Stuff TEXT-HISTOLOGY TITLE (165.5,101) "RTN","ONCOAIP",34,0) S HSTI=$$HIST^ONCFUNC(D0) "RTN","ONCOAIP",35,0) S TEXT=HISTNAM "RTN","ONCOAIP",36,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",37,0) K HSTI,TEXT "RTN","ONCOAIP",38,0) Q "RTN","ONCOAIP",39,0) ; "RTN","ONCOAIP",40,0) MEN ;Primary Menu Options "RTN","ONCOAIP",41,0) K DXS,ONCOOUT,DASHES "RTN","ONCOAIP",42,0) S $P(DASHES,"-",80)="-" "RTN","ONCOAIP",43,0) S NODE0=^ONCO(165.5,D0,0) "RTN","ONCOAIP",44,0) S S=$P(NODE0,U,1),SITEGP=$P(^ONCO(164.2,S,0),U,1) "RTN","ONCOAIP",45,0) S Y=$P(NODE0,U,2),C=$P(^DD(165.5,.02,0),U,2) D Y^DIQ S PATNAM=Y "RTN","ONCOAIP",46,0) S SAVED0=D0 S D0=$P(NODE0,U,2) D SSN^ONCOES S SSN=X,D0=SAVED0 "RTN","ONCOAIP",47,0) S DATEDX=$P(NODE0,U,16) "RTN","ONCOAIP",48,0) D ^ONCPHC "RTN","ONCOAIP",49,0) S COC=$P(NODE0,U,4) "RTN","ONCOAIP",50,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCOAIP",51,0) I OSP="" S OSP=$O(^ONCO(160.1,0)) "RTN","ONCOAIP",52,0) S IIN=$P($G(^ONCO(160.1,OSP,1)),U,4) "RTN","ONCOAIP",53,0) S RH=$P($G(^ONCO(160.19,IIN,0)),U,2) "RTN","ONCOAIP",54,0) K OSP "RTN","ONCOAIP",55,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1),TOPCOD="",TOPNAM="" "RTN","ONCOAIP",56,0) I TOP'="" S TOPNAM=$P(^ONCO(164,TOP,0),U,1),TOPCOD=$P(^ONCO(164,TOP,0),U,2) "RTN","ONCOAIP",57,0) S SITTAB=79-$L(SITEGP),TOPTAB=79-$L(TOPNAM_" "_TOPCOD) "RTN","ONCOAIP",58,0) S NOS=TOPTAB-$L(PATNAM),NOS=NOS-1 K SPACES S $P(SPACES," ",NOS)=" " "RTN","ONCOAIP",59,0) W @IOF "RTN","ONCOAIP",60,0) W !,?1,PATNAM,?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCOAIP",61,0) W !,?25,"Primary Menu Options",!,DASHES "RTN","ONCOAIP",62,0) W !?22,"1. Patient Identification" "RTN","ONCOAIP",63,0) W !?22,"2. Cancer Identification" "RTN","ONCOAIP",64,0) W !?22,"3. Stage of Disease at Diagnosis" "RTN","ONCOAIP",65,0) W !?22,"4. First Course of Treatment" "RTN","ONCOAIP",66,0) W !?22,"5. Patient Care Evaluation" "RTN","ONCOAIP",67,0) W !?22,"6. Over-ride Flags" "RTN","ONCOAIP",68,0) W !!?22,"A All - Complete Abstract" "RTN","ONCOAIP",69,0) ; "RTN","ONCOAIP",70,0) A K AN,ONCOANS,X,Y "RTN","ONCOAIP",71,0) R !!?25,"Enter option: All//",X:DTIME "RTN","ONCOAIP",72,0) S:X="" (ONCOANS,X)="A" "RTN","ONCOAIP",73,0) G:X["?" HP "RTN","ONCOAIP",74,0) I X=U!'$T S Y="",ONCOOUT=U Q "RTN","ONCOAIP",75,0) I (X="A")!(X="ALL")!(X="all")!(X="All") S Y=1 G Y "RTN","ONCOAIP",76,0) S (ONCOANS,Y)=X I X<1!(X>6) W *7,"??" G A "RTN","ONCOAIP",77,0) ; "RTN","ONCOAIP",78,0) Y S Y="@"_Y "RTN","ONCOAIP",79,0) Q "RTN","ONCOAIP",80,0) ; "RTN","ONCOAIP",81,0) HP W !!,?10,"Select 'A' for the complete abstract" "RTN","ONCOAIP",82,0) W !?10,"Select 1-6 for the desired subsection",! "RTN","ONCOAIP",83,0) G A "RTN","ONCOAIP",84,0) ; "RTN","ONCOAIP",85,0) PAT ;Patient Identification "RTN","ONCOAIP",86,0) S SECTION="Patient Identification" D SECTION "RTN","ONCOAIP",87,0) K DXS,DIOT D PI^ONCPCI "RTN","ONCOAIP",88,0) Q "RTN","ONCOAIP",89,0) ; "RTN","ONCOAIP",90,0) CAN S SECTION="Cancer Identification" D SECTION "RTN","ONCOAIP",91,0) D PAIR "RTN","ONCOAIP",92,0) K DXS,DIOT S D0=ONCOD0P D CI^ONCPCI "RTN","ONCOAIP",93,0) Q "RTN","ONCOAIP",94,0) ; "RTN","ONCOAIP",95,0) EXT S SECTION="Stage of Disease at Diagnosis" D SECTION "RTN","ONCOAIP",96,0) S SY="@31" "RTN","ONCOAIP",97,0) S S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOAIP",98,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOAIP",99,0) S H=$$HIST^ONCFUNC(D0) "RTN","ONCOAIP",100,0) I (S=35)!($$LEUKEMIA^ONCOAIP2(D0))!((S>64)&(S<71)) D G PSD "RTN","ONCOAIP",101,0) .S N=$S($E(H,1,4)=9731:"999^10^9",1:"999^80^9") ;Plasmacytoma, NOS "RTN","ONCOAIP",102,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",103,0) .I (T=67422)&(L'=1)&(H'=91403) S $P(N,U,2)=99,$P(N,U,9)=9 ;Spleen "RTN","ONCOAIP",104,0) .S $P(^ONCO(165.5,D0,2),U,9,17)=N "RTN","ONCOAIP",105,0) .D NOSTAGE "RTN","ONCOAIP",106,0) .S SY=39 ;Other Stage "RTN","ONCOAIP",107,0) .I S=65 W !?18,"====> UNKNOWN PRIMARY - No EOD/TNM coding <====" Q "RTN","ONCOAIP",108,0) .W !?18,"====> SYSTEMIC DISEASE - No EOD/TMN coding <====" "RTN","ONCOAIP",109,0) ; "RTN","ONCOAIP",110,0) PSD K DXS,DIOT S D0=ONCOD0P D ^ONCPSD K DXS "RTN","ONCOAIP",111,0) S Y=SY "RTN","ONCOAIP",112,0) Q "RTN","ONCOAIP",113,0) ; "RTN","ONCOAIP",114,0) NOSTAGE ;No staging "RTN","ONCOAIP",115,0) S $P(^ONCO(165.5,D0,2),U,25)=88 ;37.1 Clin T "RTN","ONCOAIP",116,0) S $P(^ONCO(165.5,D0,2),U,26)=88 ;37.2 Clin N "RTN","ONCOAIP",117,0) S $P(^ONCO(165.5,D0,2),U,27)=88 ;37.3 Clin M "RTN","ONCOAIP",118,0) S $P(^ONCO(165.5,D0,2),U,20)=88 ;38 Clin Stage Group "RTN","ONCOAIP",119,0) S $P(^ONCO(165.5,D0,3),U,32)=0 ;19 Staged By (Clin Stage) "RTN","ONCOAIP",120,0) S $P(^ONCO(165.5,D0,7),U,17)="N" ;69.4 Multimodality Therapy (Path) "RTN","ONCOAIP",121,0) S $P(^ONCO(165.5,D0,2.1),U,1)=88 ;85 Path T "RTN","ONCOAIP",122,0) S $P(^ONCO(165.5,D0,2.1),U,2)=88 ;86 Path N "RTN","ONCOAIP",123,0) S $P(^ONCO(165.5,D0,2.1),U,3)=88 ;87 Path M "RTN","ONCOAIP",124,0) S $P(^ONCO(165.5,D0,2.1),U,4)=88 ;88 Path Stage Group "RTN","ONCOAIP",125,0) S $P(^ONCO(165.5,D0,2.1),U,5)=0 ;89 Staged By (Path Stage) "RTN","ONCOAIP",126,0) S $P(^ONCO(165.5,D0,2),U,28)="NA" ;38.5 Stage Grouping-AJCC "RTN","ONCOAIP",127,0) Q "RTN","ONCOAIP",128,0) ; "RTN","ONCOAIP",129,0) FST S SECTION="First Course of Treatment" D SECTION "RTN","ONCOAIP",130,0) Q "RTN","ONCOAIP",131,0) ; "RTN","ONCOAIP",132,0) ORF S SECTION="Over-ride Flags" D SECTION "RTN","ONCOAIP",133,0) K DXS,DIOT D ^ONCORF "RTN","ONCOAIP",134,0) Q "RTN","ONCOAIP",135,0) ; "RTN","ONCOAIP",136,0) NTX ;DATE OF NO TX "RTN","ONCOAIP",137,0) I '$D(NTDD) S Y="@425" Q "RTN","ONCOAIP",138,0) K NTDD "RTN","ONCOAIP",139,0) W !!?5,"You have entered a DATE OF NO TREATMENT. All treatment fields" "RTN","ONCOAIP",140,0) W !?5,"will be stuffed with the appropriate value indicating no treatment.",! "RTN","ONCOAIP",141,0) K DIR S DIR("A")="Are you sure you want to do this",DIR("B")="No" "RTN","ONCOAIP",142,0) S DIR(0)="Y" D ^DIR "RTN","ONCOAIP",143,0) I (Y=0)!(Y="") D S Y=124 W ! Q "RTN","ONCOAIP",144,0) .S TXDT=$P(^ONCO(165.5,D0,2.1),U,11)_"N" "RTN","ONCOAIP",145,0) .K ^ONCO(165.5,"ATX",D0,TXDT) "RTN","ONCOAIP",146,0) .S $P(^ONCO(165.5,D0,2.1),U,11)="" "RTN","ONCOAIP",147,0) I Y[U S $P(^ONCO(165.5,D0,2.1),U,11)="",Y="@0" Q "RTN","ONCOAIP",148,0) S NTX="" D NTX^ONCNTX K NTX "RTN","ONCOAIP",149,0) Q "RTN","ONCOAIP",150,0) ; "RTN","ONCOAIP",151,0) CNS ;Radiation Therapy to CNS "RTN","ONCOAIP",152,0) I DATEDX>2951231 S Y="@521" Q "RTN","ONCOAIP",153,0) S X=9,CC="",S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOAIP",154,0) I (S=31)!(S=35)!($$LEUKEMIA^ONCOAIP2(D0))!((S>65)&(S<70)) S CC=$P(^ONCO(165.5,D0,0),U,4),X=$S(CC=5:0,CC=8:9,1:"") I X="" S Y="@5221" Q "RTN","ONCOAIP",155,0) S $P(^ONCO(165.5,D0,3),U,10)=X "RTN","ONCOAIP",156,0) I CC=8 D W ! K DIR S DIR(0)="E" D ^DIR S Y=$S(Y=1:"@413",1:"@0") Q "RTN","ONCOAIP",157,0) .S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCOAIP",158,0) .K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOAIP",159,0) .S $P(^ONCO(165.5,D0,3),U,8)=9999999 "RTN","ONCOAIP",160,0) .S ^ONCO(165.5,"ATX",DA,"9999999P")="" "RTN","ONCOAIP",161,0) .W !!,"RADIATION THERAPY TO CNS: Unknown/NA" "RTN","ONCOAIP",162,0) .W !,"RADIATION THERAPY TO CNS DATE: 99/99/9999" "RTN","ONCOAIP",163,0) S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCOAIP",164,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOAIP",165,0) S $P(^ONCO(165.5,D0,3),U,8)="0000000" "RTN","ONCOAIP",166,0) S ^ONCO(165.5,"ATX",DA,"0000000P")="" "RTN","ONCOAIP",167,0) W !!,"RADIATION THERAPY TO CNS: No radiation to CNS" "RTN","ONCOAIP",168,0) W !,"RADIATION THERAPY TO CNS DATE: 00/00/0000" "RTN","ONCOAIP",169,0) W ! K DIR S DIR(0)="E" D ^DIR I Y=1 S Y="@413" Q "RTN","ONCOAIP",170,0) S Y="@0" Q "RTN","ONCOAIP",171,0) ; "RTN","ONCOAIP",172,0) RS ;RADIATION/SURGERY SEQUENCE (165.5,51.3) "RTN","ONCOAIP",173,0) S S=$E($$GET1^DIQ(165.5,D0,58.6,"E"),1,2) "RTN","ONCOAIP",174,0) S SATF=$E($$GET1^DIQ(165.5,D0,58.7,"E"),1,2) "RTN","ONCOAIP",175,0) S SCP=$P($G(^ONCO(165.5,D0,3.1)),U,31) "RTN","ONCOAIP",176,0) S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,32) "RTN","ONCOAIP",177,0) S SOTH=$P($G(^ONCO(165.5,D0,3.1)),U,33) "RTN","ONCOAIP",178,0) S SOTHATF=$P($G(^ONCO(165.5,D0,3.1)),U,34) "RTN","ONCOAIP",179,0) S R=$$GET1^DIQ(165.5,D0,51.2,"I") "RTN","ONCOAIP",180,0) S RATF=$$GET1^DIQ(165.5,D0,51.4,"I") "RTN","ONCOAIP",181,0) I ((S="00")!(S=99)!(S=""))&((SATF="00")!(SATF=99)!(SATF=""))&((SCP=1)!(SCP=""))&((SCPATF=1)!(SCPATF=""))&((SOTH=1)!(SOTH=""))&((SOTHATF=1)!(SOTHATF="")) S SR=0 "RTN","ONCOAIP",182,0) E S SR=1 "RTN","ONCOAIP",183,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",184,0) E S R=1 "RTN","ONCOAIP",185,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",186,0) .S SDT=$P($G(^ONCO(165.5,D0,3)),U,1) "RTN","ONCOAIP",187,0) .S:SDT'="" RSSEQ("S",SDT)="S",RSSEQ(SDT)="S" "RTN","ONCOAIP",188,0) .S SATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,8) "RTN","ONCOAIP",189,0) .S:SATFDT'="" RSSEQ("S",SATFDT)="S",RSSEQ(SATFDT)="S" "RTN","ONCOAIP",190,0) .S SCPDT=$P($G(^ONCO(165.5,D0,3.1)),U,22) "RTN","ONCOAIP",191,0) .S:SCPDT'="" RSSEQ("S",SCPDT)="S",RSSEQ(SCPDT)="S" "RTN","ONCOAIP",192,0) .S SCPATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,23) "RTN","ONCOAIP",193,0) .S:SCPATFDT'="" RSSEQ("S",SCPATFDT)="S",RSSEQ(SCPATFDT)="S" "RTN","ONCOAIP",194,0) .S SOTDT=$P($G(^ONCO(165.5,D0,3.1)),U,24) "RTN","ONCOAIP",195,0) .S:SOTDT'="" RSSEQ("S",SOTDT)="S",RSSEQ(SOTDT)="S" "RTN","ONCOAIP",196,0) .S SOTATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,25) "RTN","ONCOAIP",197,0) .S:SOTATFDT'="" RSSEQ("S",SOTATFDT)="S",RSSEQ(SOTATFDT)="S" "RTN","ONCOAIP",198,0) .S RDT=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCOAIP",199,0) .S:RDT'="" RSSEQ("R",RDT)="R",RSSEQ(RDT)="R" "RTN","ONCOAIP",200,0) .S RATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,13) "RTN","ONCOAIP",201,0) .S:RATFDT'="" RSSEQ("R",RATFDT)="R",RSSEQ(RATFDT)="R" "RTN","ONCOAIP",202,0) .S FSDT=$O(RSSEQ("S",0)),FRDT=$O(RSSEQ("R",0)) "RTN","ONCOAIP",203,0) .I FSDT=FRDT Q "RTN","ONCOAIP",204,0) .S RSSEQ=$O(RSSEQ(0)) "RTN","ONCOAIP",205,0) .I RSSEQ(RSSEQ)="R" S $P(^ONCO(165.5,D0,3),U,7)=2 "RTN","ONCOAIP",206,0) .I RSSEQ(RSSEQ)="S" S $P(^ONCO(165.5,D0,3),U,7)=3 "RTN","ONCOAIP",207,0) E D "RTN","ONCOAIP",208,0) .S $P(^ONCO(165.5,D0,3),U,7)=0 "RTN","ONCOAIP",209,0) Q "RTN","ONCOAIP",210,0) ; "RTN","ONCOAIP",211,0) AB ;Abstract Status "RTN","ONCOAIP",212,0) S HDL=$L("Abstract Status"),TAB=(80-HDL)\2,TAB=TAB-1 "RTN","ONCOAIP",213,0) W @IOF,DASHES "RTN","ONCOAIP",214,0) W !,?1,PATNAM,?TAB,"Abstract Status",?SITTAB,SITEGP "RTN","ONCOAIP",215,0) W !,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCOAIP",216,0) Q "RTN","ONCOAIP",217,0) ; "RTN","ONCOAIP",218,0) NAN ;NEW ACC # "RTN","ONCOAIP",219,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",220,0) NA S YR=Y,MR=YR_"0001",XR=999999-((YR+1)_"0000"),NR=$O(^ONCO(165.5,"AF",XR)) "RTN","ONCOAIP",221,0) I NR<(990002-MR) W *7,!!?5,"SYSTEM appears out of numbers-looking for unassigned ones" G FND "RTN","ONCOAIP",222,0) I NR>(999999-MR) S NR="" "RTN","ONCOAIP",223,0) S AC=$S(NR="":YR_"0001",1:(1000000-NR)),SEQ="00" "RTN","ONCOAIP",224,0) Q "RTN","ONCOAIP",225,0) FND ;SEARCH for unused #s "RTN","ONCOAIP",226,0) S NR=YR_"0000",MR=(YR+1)_"0000" "RTN","ONCOAIP",227,0) NR S NR=NR+1 I NR2951231:"00",1:0) "RTN","ONCOCC",17,0) S $P(^ONCO(165.5,D0,3.1),U,5)=$S(DTDX>2951231:"00",1:0) "RTN","ONCOCC",18,0) S $P(^ONCO(165.5,D0,3.1),U,29)=1 "RTN","ONCOCC",19,0) S $P(^ONCO(165.5,D0,3.1),U,30)=1 "RTN","ONCOCC",20,0) S $P(^ONCO(165.5,D0,3),U,34)=1 "RTN","ONCOCC",21,0) S $P(^ONCO(165.5,D0,3),U,28)=8 "RTN","ONCOCC",22,0) S $P(^ONCO(165.5,D0,3.1),U,31)=0 "RTN","ONCOCC",23,0) S $P(^ONCO(165.5,D0,3.1),U,32)=0 "RTN","ONCOCC",24,0) S $P(^ONCO(165.5,D0,3.1),U,33)=0 "RTN","ONCOCC",25,0) S $P(^ONCO(165.5,D0,3.1),U,34)=0 "RTN","ONCOCC",26,0) S $P(^ONCO(165.5,D0,3),U,42)=$S(DTDX>2971231:"00",1:"") "RTN","ONCOCC",27,0) S $P(^ONCO(165.5,D0,3.1),U,11)=$S(DTDX>2971231:"00",1:"") "RTN","ONCOCC",28,0) S $P(^ONCO(165.5,D0,3),U,33)=$S(DTDX>2971231:1,1:9) "RTN","ONCOCC",29,0) ; "RTN","ONCOCC",30,0) F P=6,10,25 S $P(^ONCO(165.5,D0,3),U,P)=0 "RTN","ONCOCC",31,0) F P=12,20 S $P(^ONCO(165.5,D0,3.1),U,P)=0 "RTN","ONCOCC",32,0) S $P(^ONCO(165.5,DA,"THY1"),U,43)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",33,0) S $P(^ONCO(165.5,DA,3),U,13)="00" "RTN","ONCOCC",34,0) S $P(^ONCO(165.5,DA,3.1),U,14)="00" "RTN","ONCOCC",35,0) S $P(^ONCO(165.5,DA,3),U,16)="00" "RTN","ONCOCC",36,0) S $P(^ONCO(165.5,DA,3.1),U,16)="00" "RTN","ONCOCC",37,0) S $P(^ONCO(165.5,DA,3),U,19)="00" "RTN","ONCOCC",38,0) S $P(^ONCO(165.5,DA,3.1),U,18)="00" "RTN","ONCOCC",39,0) S $P(^ONCO(165.5,DA,3.1),U,36)=1 "RTN","ONCOCC",40,0) S $P(^ONCO(165.5,DA,3),U,20)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",41,0) S $P(^ONCO(165.5,DA,3),U,21)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",42,0) S $P(^ONCO(165.5,DA,3),U,22)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",43,0) S $P(^ONCO(165.5,DA,3),U,29)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",44,0) S $P(^ONCO(165.5,DA,3),U,39)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",45,0) S $P(^ONCO(165.5,DA,3.1),U,3)=$S(DTDX>2971231:0,1:"") "RTN","ONCOCC",46,0) S $P(^ONCO(165.5,DA,3.1),U,1)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",47,0) S $P(^ONCO(165.5,DA,"BLA2"),U,18)=1 "RTN","ONCOCC",48,0) S $P(^ONCO(165.5,DA,3),U,5)="" "RTN","ONCOCC",49,0) F PP=1,4,8,11,14,17,23,31 S $P(^ONCO(165.5,DA,3),U,PP)="0000000" "RTN","ONCOCC",50,0) F PP=2,6,8,13:2:19,21:1:25 S $P(^ONCO(165.5,DA,3.1),U,PP)="0000000" "RTN","ONCOCC",51,0) Q "RTN","ONCOCC",52,0) COC8 ; "RTN","ONCOCC",53,0) F P=26,35,36,37 S $P(^ONCO(165.5,D0,3),U,P)="" "RTN","ONCOCC",54,0) F P=6,10,25 S $P(^ONCO(165.5,D0,3),U,P)=9 "RTN","ONCOCC",55,0) F P=12,20 S $P(^ONCO(165.5,D0,3.1),U,P)=9 "RTN","ONCOCC",56,0) S $P(^ONCO(165.5,DA,3),U,13)=99 "RTN","ONCOCC",57,0) S $P(^ONCO(165.5,DA,3.1),U,14)=99 "RTN","ONCOCC",58,0) S $P(^ONCO(165.5,DA,3),U,16)=99 "RTN","ONCOCC",59,0) S $P(^ONCO(165.5,DA,3.1),U,16)=99 "RTN","ONCOCC",60,0) S $P(^ONCO(165.5,DA,3),U,19)=99 "RTN","ONCOCC",61,0) S $P(^ONCO(165.5,DA,3.1),U,18)=99 "RTN","ONCOCC",62,0) S $P(^ONCO(165.5,DA,3.1),U,36)=13 "RTN","ONCOCC",63,0) S $P(^ONCO(165.5,DA,"THY1"),U,43)=$S(DTDX>2971231:99999,1:"") "RTN","ONCOCC",64,0) S $P(^ONCO(165.5,DA,3),U,20)=$S(DTDX>2971231:99,1:"") "RTN","ONCOCC",65,0) S $P(^ONCO(165.5,DA,3),U,21)=$S(DTDX>2971231:42,1:"") "RTN","ONCOCC",66,0) S $P(^ONCO(165.5,DA,3),U,22)=$S(DTDX>2971231:9,1:"") "RTN","ONCOCC",67,0) S $P(^ONCO(165.5,DA,3),U,29)=$S(DTDX>2971231:9,1:"") "RTN","ONCOCC",68,0) S $P(^ONCO(165.5,DA,3),U,39)=$S(DTDX>2971231:1,1:"") "RTN","ONCOCC",69,0) S $P(^ONCO(165.5,DA,3.1),U,3)=$S(DTDX>2971231:9,1:"") "RTN","ONCOCC",70,0) S $P(^ONCO(165.5,DA,3.1),U,1)=$S(DTDX>2971231:42,1:"") "RTN","ONCOCC",71,0) S $P(^ONCO(165.5,DA,"BLA2"),U,18)=19 "RTN","ONCOCC",72,0) S $P(^ONCO(165.5,DA,3),U,5)="" "RTN","ONCOCC",73,0) F PP=1,4,8,11,14,17,23,31 S $P(^ONCO(165.5,DA,3),U,PP)=9999999 "RTN","ONCOCC",74,0) F PP=2,6,8,13:2:19,21:1:25 S $P(^ONCO(165.5,DA,3.1),U,PP)=9999999 "RTN","ONCOCC",75,0) ;SURGICAL DX/STAGING PROC and SURG DX/STAGING PROC @FAC "RTN","ONCOCC",76,0) S $P(^ONCO(165.5,D0,3),U,27)=$S(DTDX>2951231:"09",1:9) "RTN","ONCOCC",77,0) S $P(^ONCO(165.5,D0,3.1),U,5)=$S(DTDX>2951231:"09",1:9) "RTN","ONCOCC",78,0) I SGRP="" Q "RTN","ONCOCC",79,0) ;SURGERY OF PRIMARY SITE (F) and SURGERY OF PRIMARY SITE @FAC (F) "RTN","ONCOCC",80,0) F SPS=0:0 S SPS=$O(^ONCO(164,SGRP,"SPS",SPS)) Q:SPS="B" S LAST=SPS "RTN","ONCOCC",81,0) S $P(^ONCO(165.5,D0,3.1),U,29)=LAST "RTN","ONCOCC",82,0) S $P(^ONCO(165.5,D0,3.1),U,30)=LAST "RTN","ONCOCC",83,0) ;SURGICAL MARGINS (#59) "RTN","ONCOCC",84,0) S $P(^ONCO(165.5,D0,3),U,28)=9 "RTN","ONCOCC",85,0) ;SCOPE OF LYMPH NODE and SCOPE OF LYMPH NODE SURG @FAC "RTN","ONCOCC",86,0) ;SURGICAL PROC/OTHER SITE and SURGICAL PROC/OTHER SITE @FAC "RTN","ONCOCC",87,0) S $P(^ONCO(165.5,D0,3.1),U,31)=9 "RTN","ONCOCC",88,0) S $P(^ONCO(165.5,D0,3.1),U,32)=9 "RTN","ONCOCC",89,0) ;F SO=0:0 S SO=$O(^ONCO(164,SGRP,"SO5",SO)) Q:SO="B" S LAST=SO "RTN","ONCOCC",90,0) S $P(^ONCO(165.5,D0,3.1),U,33)=9 "RTN","ONCOCC",91,0) S $P(^ONCO(165.5,D0,3.1),U,34)=9 "RTN","ONCOCC",92,0) ;RECONSTRUCTION/RESTORATION "RTN","ONCOCC",93,0) F RR=0:0 S RR=$O(^ONCO(164,SGRP,"RR5",RR)) Q:RR="B" S LAST=RR "RTN","ONCOCC",94,0) S $P(^ONCO(165.5,D0,3),U,33)=$S(DTDX>2971231:LAST,1:10) "RTN","ONCOCC",95,0) Q "RTN","ONCOCC",96,0) ; "RTN","ONCOCC",97,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",98,0) .S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,4)="00" "RTN","ONCOCC",99,0) .I COC=5 D "RTN","ONCOCC",100,0) ..F P=11,12,13,14,15,16,17 S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,P)="0000000" "RTN","ONCOCC",101,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,5)=0 "RTN","ONCOCC",102,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,6)="00" "RTN","ONCOCC",103,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,7)="00" "RTN","ONCOCC",104,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,9)=0 "RTN","ONCOCC",105,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,10)=0 "RTN","ONCOCC",106,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,3),U,19)=0 "RTN","ONCOCC",107,0) ..Q "RTN","ONCOCC",108,0) .I COC=8 D "RTN","ONCOCC",109,0) ..F P=11,12,13,14,15,16,17 S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,P)=9999999 "RTN","ONCOCC",110,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,5)=9 "RTN","ONCOCC",111,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,6)=99 "RTN","ONCOCC",112,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,7)=99 "RTN","ONCOCC",113,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,9)=9 "RTN","ONCOCC",114,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,0),U,10)=9 "RTN","ONCOCC",115,0) ..S $P(^ONCO(165.5,D0,4,SCTIEN,3),U,19)=9 "RTN","ONCOCC",116,0) ..Q "RTN","ONCOCC",117,0) .Q "RTN","ONCOCC",118,0) K BRM,FLD,P,REC,RFNR,RFNC,RFNHT,RR "RTN","ONCOCC",119,0) K SA,SC,SM,SO,SPS,SCTIEN,SGRP,TPG "RTN","ONCOCC",120,0) Q "RTN","ONCOCC",121,0) ; "RTN","ONCOCC",122,0) SATFDFR ;SURGERY OF PRIMARY @FAC (R) (165.5,50.2) default "RTN","ONCOCC",123,0) N SPS S SPS=$P($G(^ONCO(165.5,D0,3)),U,38) "RTN","ONCOCC",124,0) D SGROUP I TPG="" Q "RTN","ONCOCC",125,0) I (SPS="00")!(SPS=1)!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S Y="@427" Q "RTN","ONCOCC",126,0) S SPSDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",127,0) .S SPSDF=$P($G(^ONCO(164,SGRP,"SPS",SPS,0)),U,1) "RTN","ONCOCC",128,0) Q "RTN","ONCOCC",129,0) ; "RTN","ONCOCC",130,0) SATFDEF ;SURGERY OF PRIMARY @FAC (F) (165.5,58.7) default "RTN","ONCOCC",131,0) N SPS S SPS=$P($G(^ONCO(165.5,D0,3.1)),U,29) "RTN","ONCOCC",132,0) I SPS="" Q "RTN","ONCOCC",133,0) D SGROUP I TPG="" Q "RTN","ONCOCC",134,0) I (SPS="00")!(SPS=1)!($G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown") S Y="@43" Q "RTN","ONCOCC",135,0) S (SPSDF,SPSDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",136,0) .S SPSDF=$P($G(^ONCO(164,SGRP,"SPS",SPS,0)),U,1) "RTN","ONCOCC",137,0) .S SPSDTDF=$$GET1^DIQ(165.5,D0,50,"E") "RTN","ONCOCC",138,0) Q "RTN","ONCOCC",139,0) ; "RTN","ONCOCC",140,0) RATFDEF ;Radiation @fac default "RTN","ONCOCC",141,0) S RD=$P($G(^ONCO(165.5,D0,3)),U,6) "RTN","ONCOCC",142,0) S RADDF="",RADDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",143,0) .I RD'="" D "RTN","ONCOCC",144,0) ..S XX=$F(^DD(165.5,51.2,0),RD_":") "RTN","ONCOCC",145,0) ..S YY=$F(^DD(165.5,51.2,0),";",XX) "RTN","ONCOCC",146,0) ..S RADDF=$E(^DD(165.5,51.2,0),XX,YY-2) "RTN","ONCOCC",147,0) .S RADDTDF=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCOCC",148,0) Q "RTN","ONCOCC",149,0) ; "RTN","ONCOCC",150,0) CATFDEF ;Chemotherapy @fac default "RTN","ONCOCC",151,0) S CH=$P($G(^ONCO(165.5,D0,3)),U,13) "RTN","ONCOCC",152,0) S CHEMDF="",CHMDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",153,0) .I CH'="" D "RTN","ONCOCC",154,0) ..S XX=$F(^DD(165.5,53.2,0),CH_":") "RTN","ONCOCC",155,0) ..S YY=$F(^DD(165.5,53.2,0),";",XX) "RTN","ONCOCC",156,0) ..S CHEMDF=$E(^DD(165.5,53.2,0),XX,YY-2) "RTN","ONCOCC",157,0) .S CHMDTDF=$P($G(^ONCO(165.5,D0,3)),U,11) "RTN","ONCOCC",158,0) Q "RTN","ONCOCC",159,0) ; "RTN","ONCOCC",160,0) HATFDEF ;Hormone Therapy @fac default "RTN","ONCOCC",161,0) S HT=$P($G(^ONCO(165.5,D0,3)),U,16) "RTN","ONCOCC",162,0) S HTDF="",HTDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",163,0) .I HT'="" D "RTN","ONCOCC",164,0) ..S XX=$F(^DD(165.5,54.2,0),HT_":") "RTN","ONCOCC",165,0) ..S YY=$F(^DD(165.5,54.2,0),";",XX) "RTN","ONCOCC",166,0) ..S HTDF=$E(^DD(165.5,54.2,0),XX,YY-2) "RTN","ONCOCC",167,0) .S HTDTDF=$P($G(^ONCO(165.5,D0,3)),U,14) "RTN","ONCOCC",168,0) Q "RTN","ONCOCC",169,0) ; "RTN","ONCOCC",170,0) IATFDEF ;Immunotherapy @fac default "RTN","ONCOCC",171,0) S IMM=$P($G(^ONCO(165.5,D0,3)),U,19) "RTN","ONCOCC",172,0) S IMMDF="",IMMDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",173,0) .I IMM'="" D "RTN","ONCOCC",174,0) ..S XX=$F(^DD(165.5,55.2,0),IMM_":") "RTN","ONCOCC",175,0) ..S YY=$F(^DD(165.5,55.2,0),";",XX) "RTN","ONCOCC",176,0) ..S IMMDF=$E(^DD(165.5,55.2,0),XX,YY-2) "RTN","ONCOCC",177,0) .S IMMDTDF=$P($G(^ONCO(165.5,D0,3)),U,17) "RTN","ONCOCC",178,0) Q "RTN","ONCOCC",179,0) ; "RTN","ONCOCC",180,0) OATFDEF ;Other Treatment @fac default "RTN","ONCOCC",181,0) S OTH=$P($G(^ONCO(165.5,D0,3)),U,25) "RTN","ONCOCC",182,0) S OTHDF="",OTHDTDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",183,0) .I OTH'="" D "RTN","ONCOCC",184,0) ..S XX=$F(^DD(165.5,57.2,0),OTH_":") "RTN","ONCOCC",185,0) ..S YY=$F(^DD(165.5,57.2,0),";",XX) "RTN","ONCOCC",186,0) ..S OTHDF=$E(^DD(165.5,57.2,0),XX,YY-2) "RTN","ONCOCC",187,0) .S OTHDTDF=$P($G(^ONCO(165.5,D0,3)),U,23) "RTN","ONCOCC",188,0) Q "RTN","ONCOCC",189,0) ; "RTN","ONCOCC",190,0) PATFDEF ;Palliative Procedure @fac default "RTN","ONCOCC",191,0) S PP=$P($G(^ONCO(165.5,D0,3.1)),U,26) "RTN","ONCOCC",192,0) S PPDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",193,0) .I PP'="" D "RTN","ONCOCC",194,0) ..S XX=$F(^DD(165.5,12,0),PP_":") "RTN","ONCOCC",195,0) ..S YY=$F(^DD(165.5,12,0),";",XX) "RTN","ONCOCC",196,0) ..S PPDF=$E(^DD(165.5,12,0),XX,YY-2) "RTN","ONCOCC",197,0) Q "RTN","ONCOCC",198,0) ; "RTN","ONCOCC",199,0) SCOPER ;SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) default "RTN","ONCOCC",200,0) N SCOPE S SCOPE=$P($G(^ONCO(165.5,D0,3)),U,40) I SCOPE="" Q "RTN","ONCOCC",201,0) D SGROUP I TPG="" Q "RTN","ONCOCC",202,0) S SCPDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",203,0) .S SCPDF=$P($G(^ONCO(164,SGRP,"SC5",SCOPE,0)),U,1) "RTN","ONCOCC",204,0) Q "RTN","ONCOCC",205,0) ; "RTN","ONCOCC",206,0) SCOPE ;SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) default "RTN","ONCOCC",207,0) ;SCOPE OF LN SURGERY @FAC DATE (165.5,138.3) default "RTN","ONCOCC",208,0) N SCOPE S SCOPE=$P($G(^ONCO(165.5,D0,3.1)),U,31) I SCOPE="" Q "RTN","ONCOCC",209,0) S (SCPDF,SCPDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",210,0) .I SCOPE'="" D "RTN","ONCOCC",211,0) ..S XX=$F(^DD(165.5,138.5,0),SCOPE_":") "RTN","ONCOCC",212,0) ..S YY=$F(^DD(165.5,138.5,0),";",XX) "RTN","ONCOCC",213,0) ..S SCPDF=$E(^DD(165.5,138.5,0),XX,YY-2) "RTN","ONCOCC",214,0) .S SCPDTDF=$P($G(^ONCO(165.5,D0,3.1)),U,22) "RTN","ONCOCC",215,0) Q "RTN","ONCOCC",216,0) ; "RTN","ONCOCC",217,0) NUMN ;Number of Nodes ATF default "RTN","ONCOCC",218,0) N NODES S NODES=$P($G(^ONCO(165.5,D0,3)),U,42) "RTN","ONCOCC",219,0) S NUMDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",220,0) .S NUMDF=NODES "RTN","ONCOCC",221,0) .I NUMDF="00" S NUMDF=NUMDF_" No nodes removed" "RTN","ONCOCC",222,0) .I NUMDF="90" S NUMDF=NUMDF_" 90 or more nodes removed" "RTN","ONCOCC",223,0) .I NUMDF="95" S NUMDF=NUMDF_" No nodes removed, aspiration performed" "RTN","ONCOCC",224,0) .I NUMDF="96" S NUMDF=NUMDF_" Node removal as a sampling, number unknown" "RTN","ONCOCC",225,0) .I NUMDF="97" S NUMDF=NUMDF_" Node removal as dissection, number unknown" "RTN","ONCOCC",226,0) .I NUMDF="98" S NUMDF=NUMDF_" Nodes surgically removed, number unknown" "RTN","ONCOCC",227,0) .I NUMDF="99" S NUMDF=NUMDF_" Unknown, not stated, death cert ONLY" "RTN","ONCOCC",228,0) Q "RTN","ONCOCC",229,0) ; "RTN","ONCOCC",230,0) SOSNR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) default "RTN","ONCOCC",231,0) N SOSN S SOSN=$P($G(^ONCO(165.5,D0,3)),U,41) I SOSN="" Q "RTN","ONCOCC",232,0) D SGROUP I TPG="" Q "RTN","ONCOCC",233,0) S SOSNDF="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",234,0) .S SOSNDF=$P($G(^ONCO(164,SGRP,"SO5",SOSN,0)),U,1) "RTN","ONCOCC",235,0) Q "RTN","ONCOCC",236,0) ; "RTN","ONCOCC",237,0) SOSN ;SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) default "RTN","ONCOCC",238,0) N SOSN S SOSN=$P($G(^ONCO(165.5,D0,3.1)),U,33) I SOSN="" Q "RTN","ONCOCC",239,0) S (SOSNDF,SOSNDTDF)="" I (COC=1)!(COC=2) D Q "RTN","ONCOCC",240,0) .I SOSN'="" D "RTN","ONCOCC",241,0) ..S XX=$F(^DD(165.5,139.5,0),SOSN_":") "RTN","ONCOCC",242,0) ..S YY=$F(^DD(165.5,139.5,0),";",XX) "RTN","ONCOCC",243,0) ..S SOSNDF=$E(^DD(165.5,139.5,0),XX,YY-2) "RTN","ONCOCC",244,0) .S SOSNDTDF=$P($G(^ONCO(165.5,D0,3.1)),U,24) "RTN","ONCOCC",245,0) Q "RTN","ONCOCC",246,0) ; "RTN","ONCOCC",247,0) SGROUP S TPG=$P($G(^ONCO(165.5,D0,2)),U,1) I TPG="" Q "RTN","ONCOCC",248,0) S SGRP=$P($G(^ONCO(164,TPG,0)),U,16) "RTN","ONCOCC",249,0) Q "RTN","ONCOCFR") 0^27^B23700807 "RTN","ONCOCFR",1,0) ONCOCFR ;Hines OIFO/RTK - CASEFINDING RADIOLOGY ;7/21/93 "RTN","ONCOCFR",2,0) ;;2.11;ONCOLOGY;**13,24,25,26,27,34,37**;Mar 07, 1995 "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/Go to 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")=" Go to 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 for Search "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 RADIOLOGY "RTN","ONCOCFR",45,0) ;SET UP MULTIDIVISIONAL VARIABLES "RTN","ONCOCFR",46,0) S AFFDIV=$G(DUZ(2)),ONCDIVSP=$O(^ONCO(160.1,"C",AFFDIV,"")) "RTN","ONCOCFR",47,0) I ONCDIVSP="" W !!,"User does not have an associated DIVISION!",!! G EX "RTN","ONCOCFR",48,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",49,0) ; "RTN","ONCOCFR",50,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",51,0) F S XDT=$O(^RADPT("AR",XDT)) Q:XDT=""!(XDT>XED) S D0=$O(^(XDT,0)),D1=$O(^(D0,0)) D "RTN","ONCOCFR",52,0) .S D2=0 F S D2=$O(^RADPT(D0,"DT",D1,"P",D2)) Q:D2'>0 D "RTN","ONCOCFR",53,0) ..S RA0=$G(^(D2,0)) I RA0="" Q "RTN","ONCOCFR",54,0) ..S PC13=$P(RA0,U,13) I PC13="" Q "RTN","ONCOCFR",55,0) ..S MG=$P($G(^RA(78.3,PC13,0)),U,1),MG=$TR(MG,"malig","MALIG") "RTN","ONCOCFR",56,0) ..I MG["MALIG" S RA($P(^RADPT(D0,0),U))=$P(XDT,".")_U_$P(RA0,U,2)_U_D1 "RTN","ONCOCFR",57,0) ..S D3=0 F S D3=$O(^RADPT(D0,"DT",D1,"P",D2,"DX",D3)) Q:D3'>0 D "RTN","ONCOCFR",58,0) ...S RASDC0=$G(^(D3,0)) I RASDC0="" Q "RTN","ONCOCFR",59,0) ...S PC1=$P(RASDC0,U,1) I PC1="" Q "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" 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 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) PRT ; Call print routine "RTN","ONCOCFR",85,0) S L=0,IOP=ION,DIOEND="D WP^ONCOCFR" "RTN","ONCOCFR",86,0) D EN1^DIP G EX "RTN","ONCOCFR",87,0) WP ; Wrap-up report "RTN","ONCOCFR",88,0) W !!!?30,"RADIOLOGY CASEFINDING RESULTS" "RTN","ONCOCFR",89,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",90,0) Q "RTN","ONCOCFR",91,0) CKP ;CHECK Primary File "RTN","ONCOCFR",92,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",93,0) .S XDX=$P($G(^ONCO(165.5,XD1,0)),U,16) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",94,0) .S XDX=$P($G(^ONCO(165.5,XD1,1)),U,10) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",95,0) .Q "RTN","ONCOCFR",96,0) Q "RTN","ONCOCFR",97,0) MR ;MAKE NEW RECORD "RTN","ONCOCFR",98,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",99,0) N2 ; "RTN","ONCOCFR",100,0) ; Create the new suspense multiple entry for the patient "RTN","ONCOCFR",101,0) K DD,DO "RTN","ONCOCFR",102,0) S DA(1)=ONCIEN,DIC="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",103,0) S DIC(0)="L",DIC("P")=$P(^DD(160,75,0),U,2),X=XDT "RTN","ONCOCFR",104,0) D FILE^DICN "RTN","ONCOCFR",105,0) ; Set the suspense fields in the multiple "RTN","ONCOCFR",106,0) K DIE S DA(1)=ONCIEN,DIE="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",107,0) S (ONCSUB,DA)=+Y,RDP=$P(RA(XX),U,2) "RTN","ONCOCFR",108,0) S DR="1///^S X=DT;2///^S X=""RA"";3////^S X=DUZ(2);6///^S X=RDP" D ^DIE "RTN","ONCOCFR",109,0) S ^TMP("ONCO",$J,2)=^TMP("ONCO",$J,2)+1 "RTN","ONCOCFR",110,0) Q "RTN","ONCOCFR",111,0) ; "RTN","ONCOCFR",112,0) EX ;EXIT "RTN","ONCOCFR",113,0) K ONCO,ED,HT,MG,OSP,RA,RA0,RASDC0,RAO,SD,WED,WSD,XX,DIJ,DP,D,D0 "RTN","ONCOCFR",114,0) K %T,%ZISOS "RTN","ONCOCFR",115,0) K AFFDIV,DVMTCH,INST,ONCDIVSP,RE1,Z,^TMP("ONCO",$J) D ^%ZISC "RTN","ONCOCFR",116,0) Q "RTN","ONCOCFR",117,0) DIV ; "RTN","ONCOCFR",118,0) S DVMTCH=1,INST="",RE1=$P(RA(XX),U,3) I RE1="" Q "RTN","ONCOCFR",119,0) S INST=$P($G(^RADPT(XX,"DT",RE1,0)),U,3) I INST="" Q "RTN","ONCOCFR",120,0) I AFFDIV'[INST S DVMTCH=0 Q "RTN","ONCOCFR",121,0) Q "RTN","ONCOCKI") 0^32^B5384439 "RTN","ONCOCKI",1,0) ONCOCKI ;Hines OIFO/GWB - EDIT CHECKS/INPUT TRANSFORM EDIT CHECKS ;12/15/99 "RTN","ONCOCKI",2,0) ;;2.11;ONCOLOGY;**1,6,16,25,37**;Mar 07, 1995 "RTN","ONCOCKI",3,0) ; "RTN","ONCOCKI",4,0) 11 S Y=$P(^ONCO(165.5,D0,0),U,2),Y=$S($D(^ONCO(160,+Y,1)):$P(^(1),U,2),1:"") Q:(Y=""!(X^ONCO(165.5,"AGAN",YR) ^(YR)=X G EX "RTN","ONCOCKI",13,0) KGAN ;RESET GREATEST ACCESSION NUMBER @YEAR "RTN","ONCOCKI",14,0) S YR=$E(X,1,2) G RE:'$D(^ONCO(165.5,"AGAN",YR)),EX:X<^(YR),GN:X=^(YR) "RTN","ONCOCKI",15,0) RE W !?10,"NEED TO RE-INITIALIAZE FILE" G EX "RTN","ONCOCKI",16,0) GN ;GET NEXT GREATEST ACCESSION NUMBER "RTN","ONCOCKI",17,0) F AC=X-1:-1:YR_"0001" I $D(^ONCO(165.5,"AE",X)) S ^ONCO(165.5,"AGAN",YR)=AC G EX "RTN","ONCOCKI",18,0) K ^ONCO(165.5,"AGAN",YR) G EX "RTN","ONCOCKI",19,0) KACD ;CHECK DELETED NUMBER "RTN","ONCOCKI",20,0) S ^ONCO(165.5,"ACD",YR,$E(X,3,6))="" G EX ;THIS WILL LEAVE LARGE NUMBER IN DELGLED LIST IF NOT CHECKED "RTN","ONCOCKI",21,0) ; "RTN","ONCOCKI",22,0) SEQ ;SEQUENCE NUMBER (165.5,.06) "RTN","ONCOCKI",23,0) S XX=$P(^ONCO(165.5,D0,0),U,5) "RTN","ONCOCKI",24,0) I XX="" K X,XX W *7,?50,"No ACCESSION NUMBER assigned",!! Q "RTN","ONCOCKI",25,0) ;S XX=$E(XX,1,4)_"-"_$E(XX,5,9)_"/"_X Q:'$D(^ONCO(165.5,"D",XX)) "RTN","ONCOCKI",26,0) ;W *7,?40,XX," is assigned.",! D SDP^ONCOCOM K X,XX Q "RTN","ONCOCKI",27,0) Q "RTN","ONCOCKI",28,0) ; "RTN","ONCOCKI",29,0) TSEX ;CHECK ICDO CODE (FIELD#8 for SEX) "RTN","ONCOCKI",30,0) S XD0=$P(^ONCO(165.5,D0,0),U,2) I XD0="" K X W !!,*7,?10,"Patient name not entered",!! Q "RTN","ONCOCKI",31,0) S SX=$P(^ONCO(160,XD0,0),U,8),TSX=$P(^ONCO(164,X,0),U,8) Q:TSX="" Q:SX=TSX G SERT "RTN","ONCOCKI",32,0) PSEX ;CHECK PRIMARY SITE/GP(#.01) with patient (.02) SEX in #160 (INPUT TRANS ON #.02) "RTN","ONCOCKI",33,0) S XX=$P(^ONCO(165.5,D0,0),U),XD0=X "RTN","ONCOCKI",34,0) SEX ;Look at SEX related SITE/GPs "RTN","ONCOCKI",35,0) Q:(XX<43!(XX>52)) S SX=$P(^ONCO(160,XD0,0),U,8) I SX=1 Q:(XX>49&(XX<53)) G SERP "RTN","ONCOCKI",36,0) I SX=2 Q:(XX>42&(XX<49)) "RTN","ONCOCKI",37,0) SERP ;SEX ERROR MESSAGE "RTN","ONCOCKI",38,0) K X S X2=$P($G(^ONCO(164.47,+SX,0)),U) "RTN","ONCOCKI",39,0) G:SX<3 W "RTN","ONCOCKI",40,0) W !!?10,"WARNING: Sex related SITE/GP.",! Q "RTN","ONCOCKI",41,0) SERT K X S X2=$P($G(^ONCO(164.47,SX,0)),U) "RTN","ONCOCKI",42,0) G:SX<3 W "RTN","ONCOCKI",43,0) W !!?10,"WARNING: Sex related ICDO code",! Q "RTN","ONCOCKI",44,0) W W *7,!!?10,"SEX is ",X2," !!",! Q "RTN","ONCOCKI",45,0) Q "RTN","ONCOCKI",46,0) EX ;Kill variables and Exit "RTN","ONCOCKI",47,0) K AC,YR,XX,XD0,SX "RTN","ONCOCKI",48,0) Q "RTN","ONCODIS") 0^6^B1392425 "RTN","ONCODIS",1,0) ONCODIS ;Hines OIFO/GWB - ONCOLOGY DISPLAYS ;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**;Mar 07, 1995 "RTN","ONCODIS",3,0) MAIN ;Begin main menu VA display "RTN","ONCODIS",4,0) S VR=$P($T(ONCODIS+1),";",3),NM="ONCOLOGY TUMOR REGISTRY" D LOGO,FUNCT Q "RTN","ONCODIS",5,0) FUNCT ;INTRODUCTION "RTN","ONCODIS",6,0) W !!?10,"Choose among the following functions:" "RTN","ONCODIS",7,0) Q "RTN","ONCODIS",8,0) LOGO ;DISPLAY LOGO "RTN","ONCODIS",9,0) S:'$D(IOF) IOP="HOME" D:'$D(IOF) ^%ZIS "RTN","ONCODIS",10,0) W *7,@IOF W !!!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) "RTN","ONCODIS",11,0) W !!,?23,"Department of Veterans Affairs",!!?23,NM_" V"_VR_"P37" Q "RTN","ONCODIS",12,0) DISP ; "RTN","ONCODIS",13,0) ;;VVVV VVAA "RTN","ONCODIS",14,0) ;; VVVV VVAAAA "RTN","ONCODIS",15,0) ;; VVVV VVAAAAAA "RTN","ONCODIS",16,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",17,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",18,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",19,0) ;; VVVVVVAA AAAA "RTN","ONCODIS",20,0) ;; VVVVAA AAAAAAAAAAA "RTN","ONCODIS",21,0) ;; VVAA AAAAAAAAAAA "RTN","ONCODIS",22,0) D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q "RTN","ONCODSR") 0^22^B41100230 "RTN","ONCODSR",1,0) ONCODSR ;Hines OIFO/RTK,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**;Mar 07, 1995 "RTN","ONCODSR",3,0) ; "RTN","ONCODSR",4,0) SS ;SITE SPECIFIC SURGERY "RTN","ONCODSR",5,0) ;^ONCO(164.2,9,"S",1-10) hold SURGICAL DX/STAGING PROC codes 0-9 "RTN","ONCODSR",6,0) ;^ONCO(164.2,SITE/GP,"S",11-100) holds surgery coes 10-99 "RTN","ONCODSR",7,0) ; "RTN","ONCODSR",8,0) CDSIT ;INPUT TRANSFORM FOR SURGERY OF PRIMARY SITE #58.2 "RTN","ONCODSR",9,0) N T,TOPGRPHY,SS "RTN","ONCODSR",10,0) K:$L(X)>2!(X'?1.N) X G EX:'$D(X) "RTN","ONCODSR",11,0) I X="00" W " 00 No surgical procedure" G EX "RTN","ONCODSR",12,0) S TOPGRPHY=$$TOPGRPHY(D0) G ER:TOPGRPHY="" "RTN","ONCODSR",13,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",14,0) I '$D(^ONCO(164.5,SS,1,X+1,0)) K X G EX "RTN","ONCODSR",15,0) I ($P(^ONCO(165.5,D0,0),U,16)>2951231),$E(X,2)=8 K X G EX "RTN","ONCODSR",16,0) W " ",^ONCO(164.5,SS,1,X+1,0) G EX "RTN","ONCODSR",17,0) ; "RTN","ONCODSR",18,0) NCDSIT ;SURGICAL DX/STAGING PROC (165.5,58.1) INPUT TRANSFORM "RTN","ONCODSR",19,0) I '$D(^ONCO(160.14,"B",X)) K X G EX "RTN","ONCODSR",20,0) I $L(X)'=2 K X G EX "RTN","ONCODSR",21,0) S NCDSIEN=$O(^ONCO(160.14,"B",X,0)) "RTN","ONCODSR",22,0) W " ",$P(^ONCO(160.14,NCDSIEN,0),U,2) "RTN","ONCODSR",23,0) K NCDSIEN Q "RTN","ONCODSR",24,0) ; "RTN","ONCODSR",25,0) NCDSOT ;SURGICAL DX/STAGING PROC (165.5,58.1) OUTPUT TRANSFORM "RTN","ONCODSR",26,0) Q:Y="" "RTN","ONCODSR",27,0) S NCDSIEN=$O(^ONCO(160.14,"B",Y,0)) "RTN","ONCODSR",28,0) I NCDSIEN'="" S Y=Y_" "_$P(^ONCO(160.14,NCDSIEN,0),U,2) "RTN","ONCODSR",29,0) G EX "RTN","ONCODSR",30,0) ; "RTN","ONCODSR",31,0) HP0 ;SURGICAL DX/STAGING PROC (165.5,58.1) HELP "RTN","ONCODSR",32,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",33,0) W ! "RTN","ONCODSR",34,0) K NCDSIEN G EX "RTN","ONCODSR",35,0) ; "RTN","ONCODSR",36,0) CDSOT ;OUTPUT TRANSFORM FOR SURGERY OF PRIMARY SITE #58.2 "RTN","ONCODSR",37,0) I Y="00" S Y="00 No surgical procedure" G EX "RTN","ONCODSR",38,0) N TOPGRPHY,SS "RTN","ONCODSR",39,0) S TOPGRPHY=$$TOPGRPHY(D0) G EX:TOPGRPHY="" "RTN","ONCODSR",40,0) S SS=+$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",41,0) S Y=Y_" "_$G(^ONCO(164.5,SS,1,Y+1,0)) G EX "RTN","ONCODSR",42,0) ; "RTN","ONCODSR",43,0) HP1 ;SURGERY OF PRIMARY SITE HELP "RTN","ONCODSR",44,0) N TOPGRPHY,TPGRPHYR,SS,XX "RTN","ONCODSR",45,0) S TOPGRPHY=$$TOPGRPHY(D0) G:TOPGRPHY="" ER "RTN","ONCODSR",46,0) S TPGRPHYR=^ONCO(164,TOPGRPHY,0) "RTN","ONCODSR",47,0) S SS=$P($G(^ONCO(164,TOPGRPHY,"SR")),U,$$EDITION^ONCOU55(D0)) "RTN","ONCODSR",48,0) W !?5,"SURGERY OF PRIMARY SITE Codes for site ",$P(TPGRPHYR,U,2)," " "RTN","ONCODSR",49,0) W $P(TPGRPHYR,U),!?5,"(",$P(^ONCO(164.5,SS,0),U),")",!! "RTN","ONCODSR",50,0) W " ","00 No surgical procedure",! "RTN","ONCODSR",51,0) S XX=10 F S XX=$O(^ONCO(164.5,SS,1,XX)) Q:XX'=+XX D "RTN","ONCODSR",52,0) .S XXX=XX-1 "RTN","ONCODSR",53,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",54,0) G EX "RTN","ONCODSR",55,0) ; "RTN","ONCODSR",56,0) ER ;ERROR "RTN","ONCODSR",57,0) W !!,?10,"ICDO CODE NOT defined!! - cannot continue",! G EX "RTN","ONCODSR",58,0) ; "RTN","ONCODSR",59,0) EX ;EXIT "RTN","ONCODSR",60,0) K AN,SS,ONCOSR "RTN","ONCODSR",61,0) Q "RTN","ONCODSR",62,0) ; "RTN","ONCODSR",63,0) TOPGRPHY(PRIMIX) ; returns ICDO-2 topography code for primary site PRIMIX "RTN","ONCODSR",64,0) Q $P($G(^ONCO(165.5,PRIMIX,2)),U) "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) FADIT ;DATE OF FIRST CONTACT (165.5,155) Input Transform "RTN","ONCODSR",102,0) D NINES Q:'$D(X) Q:X=9999999 "RTN","ONCODSR",103,0) I $D(X) S %DT="EP",%DT(0)="-NOW" D ^%DT S X=Y K:Y<1 X K %DT(0) "RTN","ONCODSR",104,0) Q "RTN","ONCODSR",105,0) ; "RTN","ONCODSR",106,0) DSDTIT ;DATE OF INPATIENT DISCHARGE (165.5,1.1) Input Transform "RTN","ONCODSR",107,0) ;Must be >= DATE OF INPATIENT ADMISSION (165.5,1) "RTN","ONCODSR",108,0) D ZS9S Q:'$D(X) Q:(X="0000000")!(X=9999999) "RTN","ONCODSR",109,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:X or = DATE DX (165.5,3) "RTN","ONCODSR",114,0) I $G(DIFLD)=124 S NTDD="" "RTN","ONCODSR",115,0) D ZS9S Q:ZS9S=1 "RTN","ONCODSR",116,0) S %DT="EP",%DT(0)="-NOW" D ^%DT "RTN","ONCODSR",117,0) S X=Y I Y<1 K X W !!?5,"Future dates are not allowed.",! K %DT(0) Q "RTN","ONCODSR",118,0) S X=X,DTDX=$P($G(^ONCO(165.5,D0,0)),U,16),FAIL="" "RTN","ONCODSR",119,0) I X= DATE DX) "RTN","ONCODSR",129,0) S NTDD="" "RTN","ONCODSR",130,0) I (X="00/00/00")!(X="00/00/0000")!(X="00000000") K X Q "RTN","ONCODSR",131,0) I (X="99/99/99")!(X="99/99/9999")!(X="99999999") K X Q "RTN","ONCODSR",132,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",133,0) S DTDX=$P($G(^ONCO(165.5,D0,0)),U,16) I DTDX'="" I XDBE X Q:'$D(X) "RTN","ONCODSR",145,0) I DTDX'="" K:X0)&(+Y<97) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",9,0) .I Y=97 S Y="97 or more nodes examined" Q "RTN","ONCOOT",10,0) .I Y=98 S Y="Nodes examined, # not specified" Q "RTN","ONCOOT",11,0) .I Y=99 S Y="Unknown if nodes examined, NA" Q "RTN","ONCOOT",12,0) I DXDT>2971231 D "RTN","ONCOOT",13,0) .I Y=0 S Y="No nodes examined" Q "RTN","ONCOOT",14,0) .I (+Y>0)&(+Y<90) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",15,0) .I Y=90 S Y="90 or more nodes examined" Q "RTN","ONCOOT",16,0) .I Y=95 S Y="No nodes removed, aspiration performed" Q "RTN","ONCOOT",17,0) .I Y=96 S Y="Node removal as sampling, # unknown" Q "RTN","ONCOOT",18,0) .I Y=97 S Y="Node removal as dissection, # unknown" Q "RTN","ONCOOT",19,0) .I Y=98 S Y="Nodes surgically removed, # unknown" Q "RTN","ONCOOT",20,0) .I Y=99 S Y="Unknown, NA or -, not stated" Q "RTN","ONCOOT",21,0) Q "RTN","ONCOOT",22,0) ; "RTN","ONCOOT",23,0) RNP ;REGIONAL LYMPH NODES POSITIVE (165.5,32) "RTN","ONCOOT",24,0) I Y=0 S Y="All nodes negative" Q "RTN","ONCOOT",25,0) I (+Y>0)&(+Y<96) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",26,0) I Y=96 S Y="96 or more nodes positive" Q "RTN","ONCOOT",27,0) I Y=97 S Y="Positive nodes, # not specified" Q "RTN","ONCOOT",28,0) I Y=98 S Y="No nodes examined" Q "RTN","ONCOOT",29,0) I Y=99 S Y="Unknown if nodes +, NA, not stated" Q "RTN","ONCOOT",30,0) Q "RTN","ONCOOT",31,0) ; "RTN","ONCOOT",32,0) BP ;BIOPSY PROCEDURE (165.5,141) "RTN","ONCOOT",33,0) Q:Y="" "RTN","ONCOOT",34,0) D BPGUCHK^ONCOTNE "RTN","ONCOOT",35,0) I BPSITE="" Q "RTN","ONCOOT",36,0) S Y=$S($P($G(^ONCO(164,BPSITE,"BP5",Y,0)),U,1)'="":$P($G(^ONCO(164,BPSITE,"BP5",Y,0)),U,1),1:Y) "RTN","ONCOOT",37,0) Q "RTN","ONCOOT",38,0) ; "RTN","ONCOOT",39,0) ;1998 Prostate Cancer Study "RTN","ONCOOT",40,0) ; "RTN","ONCOOT",41,0) PSA ;Item 14. Results of Most Recent Pre-Treatment Prostate Specific "RTN","ONCOOT",42,0) ; Antigen (PSA) Test "RTN","ONCOOT",43,0) ;RESULTS OF PSA TEST (PR98) (165.5,684) "RTN","ONCOOT",44,0) I Y=999.6 S Y=Y_" or higher" "RTN","ONCOOT",45,0) I Y=999.7 S Y=" No PSA test performed" "RTN","ONCOOT",46,0) I Y=999.8 S Y=" Test done, results unknown or not reported" "RTN","ONCOOT",47,0) I Y=999.9 S Y=" Unknown if test performed" "RTN","ONCOOT",48,0) Q "RTN","ONCOOT",49,0) ; "RTN","ONCOOT",50,0) DCISIT ;DCIS PRESENT (165.5,930) INPUT TRANSFORM "RTN","ONCOOT",51,0) I X'?1N K X Q "RTN","ONCOOT",52,0) I X=5!(X=6)!(X=7) K X Q "RTN","ONCOOT",53,0) I X=0 D EN^DDIOL(" No, DCIS not present") "RTN","ONCOOT",54,0) I X=1 D EN^DDIOL(" Yes, separate tumor") "RTN","ONCOOT",55,0) I X=2 D EN^DDIOL(" Yes, mixed histology component") "RTN","ONCOOT",56,0) I X=3 D EN^DDIOL(" Yes, separate tumor and mixed histology") "RTN","ONCOOT",57,0) I X=4 D EN^DDIOL(" Yes, unk if separate tumor/mixed histology") "RTN","ONCOOT",58,0) I X=8 D EN^DDIOL(" NA, reported tumor not invasive DC") "RTN","ONCOOT",59,0) I X=9 D EN^DDIOL(" Unknown if DCIS present") "RTN","ONCOOT",60,0) Q "RTN","ONCOOT",61,0) DCISOT ;DCIS PRESENT (165.5,930) OUTPUT TRANSFORM "RTN","ONCOOT",62,0) I Y=0 S Y="No, DCIS not present" "RTN","ONCOOT",63,0) I Y=1 S Y="Yes, separate tumor" "RTN","ONCOOT",64,0) I Y=2 S Y="Yes, mixed histology component" "RTN","ONCOOT",65,0) I Y=3 S Y="Yes, separate tumor and mixed histology" "RTN","ONCOOT",66,0) I Y=4 S Y="Yes, unk if separate tumor/mixed histology" "RTN","ONCOOT",67,0) I Y=8 S Y="NA, reported tumor not invasive DC" "RTN","ONCOOT",68,0) I Y=9 S Y="Unknown if DCIS present" "RTN","ONCOOT",69,0) Q "RTN","ONCOOT",70,0) DCISHP ;DCIS PRESENT (165.5,930) HELP "RTN","ONCOOT",71,0) W !!?6,"Choose from:" "RTN","ONCOOT",72,0) W !?8,"0 No, DCIS not present" "RTN","ONCOOT",73,0) W !?8,"1 Yes, separate tumor" "RTN","ONCOOT",74,0) W !?8,"2 Yes, mixed histology component" "RTN","ONCOOT",75,0) W !?8,"3 Yes, separate tumor and mixed histology" "RTN","ONCOOT",76,0) W !?8,"4 Yes, unk if separate tumor/mixed histology" "RTN","ONCOOT",77,0) W !?8,"8 NA, reported tumor not invasive DC" "RTN","ONCOOT",78,0) W !?8,"9 Unknown if DCIS present" "RTN","ONCOOT",79,0) Q "RTN","ONCOOT",80,0) DCSZIT ; "RTN","ONCOOT",81,0) I +X=0 D EN^DDIOL(" Invasive DC reported, DCIS not present") "RTN","ONCOOT",82,0) I X="888" D EN^DDIOL(" NA, invasive DC not reported") "RTN","ONCOOT",83,0) I X="988" D EN^DDIOL(" Invasive DC reported, DCIS present, size unknown") "RTN","ONCOOT",84,0) I X="999" D EN^DDIOL(" Invasive DC reported, unknown if DCIS present") "RTN","ONCOOT",85,0) Q "RTN","ONCOOT",86,0) DCSZOT ; "RTN","ONCOOT",87,0) S Y=$S($L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y) "RTN","ONCOOT",88,0) I Y="000" S Y="Invasive DC reported, DCIS not present" "RTN","ONCOOT",89,0) I Y="888" S Y="NA, invasive DC not reported" "RTN","ONCOOT",90,0) I Y="988" S Y="Invasive DC reported, DCIS present, size unknown" "RTN","ONCOOT",91,0) I Y="999" S Y="Invasive DC reported, unknown if DCIS present" "RTN","ONCOOT",92,0) Q "RTN","ONCOOT",93,0) CGYIT ; "RTN","ONCOOT",94,0) I +X=0 D EN^DDIOL(" No radiation given") "RTN","ONCOOT",95,0) I X=88888 D EN^DDIOL(" Radiation given, dose unknown") "RTN","ONCOOT",96,0) I X=99999 D EN^DDIOL(" Unknown if radiation given") "RTN","ONCOOT",97,0) Q "RTN","ONCOOT",98,0) CGYOT ; "RTN","ONCOOT",99,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","ONCOOT",100,0) I Y="00000" S Y="No radiation given" "RTN","ONCOOT",101,0) I Y=88888 S Y="Radiation given, dose unknown" "RTN","ONCOOT",102,0) I Y=99999 S Y="Unknown if radiation given" "RTN","ONCOOT",103,0) Q "RTN","ONCOOT",104,0) STIT ;Tumor Size (165.5,29) "RTN","ONCOOT",105,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOOT",106,0) I (X>999)!(X<0) K X Q "RTN","ONCOOT",107,0) I X="000" W " No mass or no tumor found" Q "RTN","ONCOOT",108,0) I X=990 W " Microscopic focus, no size given" Q "RTN","ONCOOT",109,0) I X=999 W " Unknown; not stated; NA" Q "RTN","ONCOOT",110,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699 D Q "RTN","ONCOOT",111,0) .I X=989 W " Melanoma > or = 9.89 mm in depth" Q "RTN","ONCOOT",112,0) .I X>9.89 W " Use code 989 for melanomas > 9.89 mm in depth" K X Q "RTN","ONCOOT",113,0) .I X?1N S X=X_"00" Q ; 1 -> 100 "RTN","ONCOOT",114,0) .I X?1P1N S X="0"_$P(X,".",2)_"0" Q ; .1 -> 010 "RTN","ONCOOT",115,0) .I X?1P2N S X="0"_$P(X,".",2) Q ; .01 -> 001 "RTN","ONCOOT",116,0) .I X?1N1P1N S X=$P(X,".",1)_$P(X,".",2)_0 Q ; 0.1 -> 010 "RTN","ONCOOT",117,0) .I X?1N1P2N S X=$P(X,".",1)_$P(X,".",2) Q ; 0.01 -> 001 "RTN","ONCOOT",118,0) .I X?1N1P3N W " Too many decimal places" K X Q ;0.012 "RTN","ONCOOT",119,0) I X=989 W " 989 mm or larger" Q "RTN","ONCOOT",120,0) I X["." W " No decimal point allowed" K X Q "RTN","ONCOOT",121,0) S X=$S($L(X)=1:"00"_X,$L(X)=2:"0"_X,1:X) "RTN","ONCOOT",122,0) I X=998 D "RTN","ONCOOT",123,0) .I TOP="" Q "RTN","ONCOOT",124,0) .I TOP>67149,TOP<67160 W " Entire circumference" Q "RTN","ONCOOT",125,0) .I TOP>67159,TOP<67170 W " Diffuse; widespread; linitis plastica" Q "RTN","ONCOOT",126,0) .I TOP>67179,TOP<67210 W " Familial/multiple polyposis" Q "RTN","ONCOOT",127,0) .I TOP>67339,TOP<67350 W " Diffuse, entire lobe of lung" Q "RTN","ONCOOT",128,0) .I TOP>67499,TOP<67510 W " Diffuse; widespread; inflam carcinoma" Q "RTN","ONCOOT",129,0) .W ! "RTN","ONCOOT",130,0) .W !," Code 998 may only be used with the following sites:" "RTN","ONCOOT",131,0) .W ! "RTN","ONCOOT",132,0) .W !," Esophagus (C15.0-C15.9)" "RTN","ONCOOT",133,0) .W !," Stomach (C16.0-C16.9)" "RTN","ONCOOT",134,0) .W !," Colorectal (C18.0-C20.9)" "RTN","ONCOOT",135,0) .W !," Lung (C34.0-C34.9)" "RTN","ONCOOT",136,0) .W !," Breast (C50.0-C50.9)" "RTN","ONCOOT",137,0) .W ! "RTN","ONCOOT",138,0) .K X "RTN","ONCOOT",139,0) Q "RTN","ONCOOT",140,0) ; "RTN","ONCOOT",141,0) STOT ;Size of Tumor "RTN","ONCOOT",142,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOOT",143,0) I Y="000" S Y="No mass or no tumor found" Q "RTN","ONCOOT",144,0) I Y=990 S Y="Microscopic focus, no size given" Q "RTN","ONCOOT",145,0) I Y=999 S Y="Unknown; not stated; NA" Q "RTN","ONCOOT",146,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699,Y=989 D Q "RTN","ONCOOT",147,0) .S Y="Melanoma > or = 9.89 mm in depth" "RTN","ONCOOT",148,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699 D "RTN","ONCOOT",149,0) .S Y=$E(Y,1)_"."_$E(Y,2,3) "RTN","ONCOOT",150,0) I Y=989 S Y="989 mm or larger" Q "RTN","ONCOOT",151,0) I Y=998 D Q "RTN","ONCOOT",152,0) .I TOP="" S Y="" Q "RTN","ONCOOT",153,0) .I TOP>67149,TOP<67160 S Y="Entire circumference" Q "RTN","ONCOOT",154,0) .I TOP>67159,TOP<67170 S Y="Diffuse; widespread; linitis plastica" Q "RTN","ONCOOT",155,0) .I TOP>67179,TOP<67210 S Y="Familial/multiple polyposis" Q "RTN","ONCOOT",156,0) .I TOP>67339,TOP<67350 S Y="Diffuse, entire lobe of lung" Q "RTN","ONCOOT",157,0) .I TOP>67499,TOP<67510 S Y="Diffuse; widespread; inflam carcinoma" Q "RTN","ONCOOT",158,0) .S:Y'="" Y=Y_" mm" "RTN","ONCOOT",159,0) S:Y'="" Y=Y_" mm" "RTN","ONCOOT",160,0) Q "RTN","ONCOOT",161,0) ; "RTN","ONCOOT",162,0) STMIT ;Size of Tumor (Melanoma) Item #23 1999 Melanoma PCE Study "RTN","ONCOOT",163,0) I X'?1.3N K X Q "RTN","ONCOOT",164,0) S X=+X "RTN","ONCOOT",165,0) I X=998 D EN^DDIOL(" Mucosal melanoma") Q "RTN","ONCOOT",166,0) I X=999 D EN^DDIOL(" Unknown; not recorded; NA") "RTN","ONCOOT",167,0) Q "RTN","ONCOOT",168,0) ; "RTN","ONCOOT",169,0) STMOT ;Size of Tumor (Melanoma) Item #23 1999 Melanoma PCE Study "RTN","ONCOOT",170,0) I Y=998 S Y="Mucosal melanoma" Q "RTN","ONCOOT",171,0) I Y=999 S Y="Unknown; not recorded; NA" Q "RTN","ONCOOT",172,0) S Y=Y_" mm" "RTN","ONCOOT",173,0) Q "RTN","ONCOOT",174,0) ; "RTN","ONCOOT",175,0) ;2000 Primary Intracranial/CNS Tumors PCE Study "RTN","ONCOOT",176,0) TSIT ;Item 33. Tumor Size "RTN","ONCOOT",177,0) I X'?1.3N K X Q "RTN","ONCOOT",178,0) S X=+X "RTN","ONCOOT",179,0) I X=999 D EN^DDIOL(" Unknown, cannot be determined, not recorded") "RTN","ONCOOT",180,0) Q "RTN","ONCOOT",181,0) TSOT ;Item 33. Tumor Size "RTN","ONCOOT",182,0) I Y=999 S Y="Unknown, cannot be determined, not recorded" Q "RTN","ONCOOT",183,0) S Y=Y_" mm" "RTN","ONCOOT",184,0) Q "RTN","ONCOOT",185,0) SRPTIT ;Item 46. Size of Residual Primary Tumor Following Cancer-Directed "RTN","ONCOOT",186,0) ;Surgery "RTN","ONCOOT",187,0) I X'?1.3N K X Q "RTN","ONCOOT",188,0) S X=+X "RTN","ONCOOT",189,0) I X=0 D EN^DDIOL(" No residual tumor") Q "RTN","ONCOOT",190,0) I X=995 D EN^DDIOL(" Size not specified, tumor judged smaller") Q "RTN","ONCOOT",191,0) I X=996 D EN^DDIOL(" Size not specified, tumor judged unchanged") Q "RTN","ONCOOT",192,0) I X=997 D EN^DDIOL(" Size not specified, tumor judged larger") Q "RTN","ONCOOT",193,0) I X=998 D EN^DDIOL(" NA, surgical treatment not administered") Q "RTN","ONCOOT",194,0) I X=999 D EN^DDIOL(" Unknown, tumor not evaluated") "RTN","ONCOOT",195,0) Q "RTN","ONCOOT",196,0) SRPTOT ;Item 46. Size of Residual Primary Tumor Following Cancer-Directed "RTN","ONCOOT",197,0) ;Surgery "RTN","ONCOOT",198,0) I Y="000" S Y="No residual tumor" Q "RTN","ONCOOT",199,0) I Y=995 S Y="Size not specified, tumor judged smaller" Q "RTN","ONCOOT",200,0) I Y=996 S Y="Size not specified, tumor judged unchanged" Q "RTN","ONCOOT",201,0) I Y=997 S Y="Size not specified, tumor judged larger" Q "RTN","ONCOOT",202,0) I Y=998 S Y="NA, surgical treatment not administered" Q "RTN","ONCOOT",203,0) I Y=999 S Y="Unknown, tumor not evaluated" Q "RTN","ONCOOT",204,0) S Y=Y_" mm" "RTN","ONCOOT",205,0) Q "RTN","ONCOOT",206,0) ; "RTN","ONCOOT",207,0) SOC ;Sets of codes "RTN","ONCOOT",208,0) Q:Y="" "RTN","ONCOOT",209,0) S SOC=$P(^DD(FILNUM,FLDNUM,0),U,3),YY=Y_":" "RTN","ONCOOT",210,0) S J=$F(SOC,YY),JJ=$F(SOC,";",J)-2,Y=Y_" "_$E(SOC,J,JJ) "RTN","ONCOOT",211,0) K FILNUM,FLDNUM,J,JJ,SOC,YY "RTN","ONCOOT",212,0) Q "RTN","ONCOOT",213,0) ; "RTN","ONCOOT",214,0) TAHIST ;Screen for TOBACCO HISTORY (160,38) and ALCOHOL HISTORY (160,39) "RTN","ONCOOT",215,0) S ACDT=0,NUM=0,ACY=$O(^ONCO(165.5,"AC",DA,"")) "RTN","ONCOOT",216,0) I ACY="" Q "RTN","ONCOOT",217,0) S ACN=$E(ACY,1,4) "RTN","ONCOOT",218,0) I (ACN>1998) S ACDT=1999 "RTN","ONCOOT",219,0) I Y?1N S NUM=1 "RTN","ONCOOT",220,0) Q "RTN","ONCOOT",221,0) ; "RTN","ONCOOT",222,0) RE ;2001 Lung (NSCLC) Cancers PCE Study "RTN","ONCOOT",223,0) ; Item 9. Radiological Evaluation "RTN","ONCOOT",224,0) ; LNG TUMOR SIZE (BONE SCAN) (165.5,1409.4) "RTN","ONCOOT",225,0) ; LNG NUM OF TUMORS (BONE SCAN) (165.5,1409.5) "RTN","ONCOOT",226,0) ; LNG TUMOR SIZE (CHEST CT) (165.5,1410.4) "RTN","ONCOOT",227,0) ; LNG NUM OF TUMORS (CHEST CT) (165.5,1410.5) "RTN","ONCOOT",228,0) ; LNG TUMOR SIZE (BRAIN CT) (165.5,1411.4) "RTN","ONCOOT",229,0) ; LNG NUM OF TUMORS (BRAIN CT) (165.5,1411.5) "RTN","ONCOOT",230,0) ; LNG TUMOR SIZE (CHEST MRI) (165.5,1412.4) "RTN","ONCOOT",231,0) ; LNG NUM OF TUMORS (CHEST MRI) (165.5,1412.5) "RTN","ONCOOT",232,0) ; LNG TUMOR SIZE (BRAIN MRI) (165.5,1413.4) "RTN","ONCOOT",233,0) ; LNG NUM OF TUMORS (BRAIN MRI) (165.5,1413.5) "RTN","ONCOOT",234,0) ; LNG TUMOR SIZE (PET SCAN) (165.5,1414.4) "RTN","ONCOOT",235,0) ; LNG NUM OF TUMORS (PET SCAN) (165.5,1414.5) "RTN","ONCOOT",236,0) ; LNG TUMOR SIZE (CHEST XRAY) (165.5,1415.4) "RTN","ONCOOT",237,0) ; LNG NUM OF TUMORS (CHEST XRAY) (165.5,1415.5) "RTN","ONCOOT",238,0) I +Y=0 S Y="Test not performed" "RTN","ONCOOT",239,0) I Y=999!(Y=99) S Y="Test performed, not documented" "RTN","ONCOOT",240,0) Q "RTN","ONCOPA2") 0^28^B30794258 "RTN","ONCOPA2",1,0) ONCOPA2 ;Hines OIFO/RTK-PRINT COMPLETE ABSTRACT (132c)...CONTINUED; 09/05/97 "RTN","ONCOPA2",2,0) ;;2.11;ONCOLOGY;**13,15,19,22,27,34,36,37**;Mar 07, 1995 "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:DATEDX<3030000 !," Surgery of Primary (R): ",ONCAB(165.5,IEN,58.2) 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 !," Surgery of Primary Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U "RTN","ONCOPA2",17,0) ;W:DATEDX<3030000 !," Surgery of Primary @Fac (R): ",ONCAB(165.5,IEN,50.2) D P Q:EX=U "RTN","ONCOPA2",18,0) W !," Surgery of Primary @Fac (F): ",ONCAB(165.5,IEN,58.7) D P Q:EX=U "RTN","ONCOPA2",19,0) W !," Surgery of Primary @Fac Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U "RTN","ONCOPA2",20,0) ;W:DATEDX<3030000 !," Surgical Approach (R): ",ONCAB(165.5,IEN,74) D P Q:EX=U "RTN","ONCOPA2",21,0) W !," Surgical Margins: ",ONCAB(165.5,IEN,59) D P Q:EX=U "RTN","ONCOPA2",22,0) ;W:DATEDX<3030000 !," Scope of LN Surgery (R): ",ONCAB(165.5,IEN,138) D P Q:EX=U "RTN","ONCOPA2",23,0) W !," Scope of LN Surgery (F): ",ONCAB(165.5,IEN,138.4) D P Q:EX=U "RTN","ONCOPA2",24,0) W !," Scope of LN Surgery Date: ",ONCAB(165.5,IEN,138.2) D P Q:EX=U "RTN","ONCOPA2",25,0) ;W:DATEDX<3030000 !," Scope of LN Surgery @Fac (R): ",ONCAB(165.5,IEN,138.1) D P Q:EX=U "RTN","ONCOPA2",26,0) W !," Scope of LN Surgery @Fac (F): ",ONCAB(165.5,IEN,138.5) D P Q:EX=U "RTN","ONCOPA2",27,0) W !," Scope of LN Surgery @Fac Date: ",ONCAB(165.5,IEN,138.3) D P Q:EX=U "RTN","ONCOPA2",28,0) ;W:DATEDX<3030000 !," Surg Proc/Other Site (R): ",ONCAB(165.5,IEN,139) D P Q:EX=U "RTN","ONCOPA2",29,0) W !," Surg Proc/Other Site (F): ",ONCAB(165.5,IEN,139.4) D P Q:EX=U "RTN","ONCOPA2",30,0) W !," Surg Proc/Other Site Date: ",ONCAB(165.5,IEN,139.2) D P Q:EX=U "RTN","ONCOPA2",31,0) ;W:DATEDX<3030000 !," Surg Proc/Other Site @Fac (R): ",ONCAB(165.5,IEN,139.1) D P Q:EX=U "RTN","ONCOPA2",32,0) W !," Surg Proc/Other Site @Fac (F): ",ONCAB(165.5,IEN,139.5) D P Q:EX=U "RTN","ONCOPA2",33,0) W !," Surg Proc/Other Site @Fac Date: ",ONCAB(165.5,IEN,139.3) D P Q:EX=U "RTN","ONCOPA2",34,0) W:DATEDX<3030000 !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23) D P Q:EX=U "RTN","ONCOPA2",35,0) W !," Date of Surgical Discharge: ",ONCAB(165.5,IEN,435) D P Q:EX=U "RTN","ONCOPA2",36,0) W !," Readmission w/i 30 Days/Surg: ",ONCAB(165.5,IEN,14) D P Q:EX=U "RTN","ONCOPA2",37,0) W ! D P Q:EX=U "RTN","ONCOPA2",38,0) W !," Reason for No Surgery: ",ONCAB(165.5,IEN,58) D P Q:EX=U "RTN","ONCOPA2",39,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",40,0) W ! D P Q:EX=U "RTN","ONCOPA2",41,0) W !," Radiation: ",ONCAB(165.5,IEN,51.2) D P Q:EX=U "RTN","ONCOPA2",42,0) W !," Date Radiation Started: ",ONCAB(165.5,IEN,51) D P Q:EX=U "RTN","ONCOPA2",43,0) W !," Location of Radiation Tx: ",ONCAB(165.5,IEN,126) D P Q:EX=U "RTN","ONCOPA2",44,0) W !," Radiation Treatment Volume: ",ONCAB(165.5,IEN,125) D P Q:EX=U "RTN","ONCOPA2",45,0) W !," Regional Treatment Modality: ",ONCAB(165.5,IEN,363) D P Q:EX=U "RTN","ONCOPA2",46,0) W !," Regional Dose: cGy: ",ONCAB(165.5,IEN,442) D P Q:EX=U "RTN","ONCOPA2",47,0) W !," Boost Treatment Modality: ",ONCAB(165.5,IEN,363.1) D P Q:EX=U "RTN","ONCOPA2",48,0) W !," Boost Dose: cGy: ",ONCAB(165.5,IEN,443) D P Q:EX=U "RTN","ONCOPA2",49,0) W !," Number of Txs to this Volume: ",ONCAB(165.5,IEN,56) D P Q:EX=U "RTN","ONCOPA2",50,0) W !," Date Radiation Ended: ",ONCAB(165.5,IEN,361) D P Q:EX=U "RTN","ONCOPA2",51,0) W !," Radiation @Fac: ",ONCAB(165.5,IEN,51.4) D P Q:EX=U "RTN","ONCOPA2",52,0) W !," Radiation @Fac Date: ",ONCAB(165.5,IEN,51.5) D P Q:EX=U "RTN","ONCOPA2",53,0) W !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3) D P Q:EX=U "RTN","ONCOPA2",54,0) W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U "RTN","ONCOPA2",55,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",56,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",57,0) CHEM W !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2) D P Q:EX=U "RTN","ONCOPA2",58,0) W !," Chemotherapy Date: ",ONCAB(165.5,IEN,53) D P Q:EX=U "RTN","ONCOPA2",59,0) W !," Chemotherapy @Fac: ",ONCAB(165.5,IEN,53.3) D P Q:EX=U "RTN","ONCOPA2",60,0) W !," Chemotherapy @Fac Date: ",ONCAB(165.5,IEN,53.4) D P Q:EX=U "RTN","ONCOPA2",61,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",62,0) HT W !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2) D P Q:EX=U "RTN","ONCOPA2",63,0) W !," Hormone Therapy Date: ",ONCAB(165.5,IEN,54) D P Q:EX=U "RTN","ONCOPA2",64,0) W !," Hormone Therapy @Fac: ",ONCAB(165.5,IEN,54.3) D P Q:EX=U "RTN","ONCOPA2",65,0) W !," Hormone Therapy @Fac Date: ",ONCAB(165.5,IEN,54.4) D P Q:EX=U "RTN","ONCOPA2",66,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",67,0) IMM W !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2) D P Q:EX=U "RTN","ONCOPA2",68,0) I $P($G(^ONCO(165.5,IEN,3)),U,19)=0 G OTH "RTN","ONCOPA2",69,0) W !," Immunotherapy Date: ",ONCAB(165.5,IEN,55) D P Q:EX=U "RTN","ONCOPA2",70,0) W !," Immunotherapy @Fac: ",ONCAB(165.5,IEN,55.3) D P Q:EX=U "RTN","ONCOPA2",71,0) W !," Immunotherapy @Fac Date: ",ONCAB(165.5,IEN,55.4) D P Q:EX=U "RTN","ONCOPA2",72,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",73,0) W !," Hema Trans/Endocrine Proc: ",ONCAB(165.5,IEN,153) D P Q:EX=U "RTN","ONCOPA2",74,0) W !," Hema Trans/Endocrine Proc Date: ",ONCAB(165.5,IEN,153.1) D P Q:EX=U "RTN","ONCOPA2",75,0) OTH W !!," Other Treatment: ",ONCAB(165.5,IEN,57.2) D P Q:EX=U "RTN","ONCOPA2",76,0) I $P($G(^ONCO(165.5,IEN,3)),U,25)=0 G PES "RTN","ONCOPA2",77,0) W !," Other Treatment Date: ",ONCAB(165.5,IEN,57) D P Q:EX=U "RTN","ONCOPA2",78,0) W !," Other Treatment @Fac: ",ONCAB(165.5,IEN,57.3) D P Q:EX=U "RTN","ONCOPA2",79,0) W !," Other Treatment @Fac Date: ",ONCAB(165.5,IEN,57.4) D P Q:EX=U "RTN","ONCOPA2",80,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",81,0) PES ;W !!," Pain Assessment: ",ONCAB(165.5,IEN,154) D P Q:EX=U "RTN","ONCOPA2",82,0) W !," Palliative Procedure: ",ONCAB(165.5,IEN,12) D P Q:EX=U "RTN","ONCOPA2",83,0) W !," Palliative Procedure @Fac: ",ONCAB(165.5,IEN,13) D P Q:EX=U "RTN","ONCOPA2",84,0) W !," Protocol Participation: ",ONCAB(165.5,IEN,560) D P Q:EX=U "RTN","ONCOPA2",85,0) W !," Year Put on Protocol: ",ONCAB(165.5,IEN,133) D P Q:EX=U "RTN","ONCOPA2",86,0) ; "RTN","ONCOPA2",87,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA2A "RTN","ONCOPA2",88,0) D P Q:EX=U "RTN","ONCOPA2",89,0) PA2A D ^ONCOPA2A "RTN","ONCOPA2",90,0) ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE... "RTN","ONCOPA2",91,0) Q "RTN","ONCOPA2",92,0) P ; "RTN","ONCOPA2",93,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA2",94,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA2",95,0) .D HDR Q "RTN","ONCOPA2",96,0) Q "RTN","ONCOPA2",97,0) HDR ; Header "RTN","ONCOPA2",98,0) W @IOF S PG=PG+1 "RTN","ONCOPA2",99,0) W CRA,! "RTN","ONCOPA2",100,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA2",101,0) Q "RTN","ONCOPA2A") 0^30^B18779086 "RTN","ONCOPA2A",1,0) ONCOPA2A ;Hines OIFO/RTK-PRINT COMPLETE ABSTRACT (132c) CONT 09/05/97 "RTN","ONCOPA2A",2,0) ;;2.11;ONCOLOGY;**15,16,22,25,34,36,37**;Mar 07, 1995 "RTN","ONCOPA2A",3,0) ; ONCO PRINT ABSTRACT CONTINUED "RTN","ONCOPA2A",4,0) W !!," Text-Remarks: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,19,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,19,TX,0) D P Q:EX=U "RTN","ONCOPA2A",5,0) W !," Text Dx Proc-Phys.Exam: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,10,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,10,TX,0) D P Q:EX=U "RTN","ONCOPA2A",6,0) W !," Text Dx Proc-Xray/Scan: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,11,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,11,TX,0) D P Q:EX=U "RTN","ONCOPA2A",7,0) W !," Text Dx Proc-Operations: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,9,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,9,TX,0) D P Q:EX=U "RTN","ONCOPA2A",8,0) W !," Text Dx Proc-Lab Tests: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22,TX,0) D P Q:EX=U "RTN","ONCOPA2A",9,0) W !," Text Dx Proc-Endoscopy: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,12,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,12,TX,0) D P Q:EX=U "RTN","ONCOPA2A",10,0) W !," Text Dx Proc-Path/Cyto: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,13,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,13,TX,0) D P Q:EX=U "RTN","ONCOPA2A",11,0) ; "RTN","ONCOPA2A",12,0) S NAME="RECURRENCES" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",13,0) W !!,TITLE "RTN","ONCOPA2A",14,0) W !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70) "RTN","ONCOPA2A",15,0) W ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71) D P Q:EX=U "RTN","ONCOPA2A",16,0) W !," Distant Site 1: ",ONCAB(165.5,IEN,71.1) D P Q:EX=U "RTN","ONCOPA2A",17,0) W !," Distant Site 2: ",ONCAB(165.5,IEN,71.2) D P Q:EX=U "RTN","ONCOPA2A",18,0) W !," Distant Site 3: ",ONCAB(165.5,IEN,71.3) D P Q:EX=U "RTN","ONCOPA2A",19,0) F SR=0:0 S SR=$O(ONCAB(165.572,SR)) Q:SR'>0 D "RTN","ONCOPA2A",20,0) .W !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01) "RTN","ONCOPA2A",21,0) .W ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02) D P Q:EX=U "RTN","ONCOPA2A",22,0) .W !," Distant Site 1: ",ONCAB(165.572,SR,.03) D P Q:EX=U "RTN","ONCOPA2A",23,0) .W !," Distant Site 2: ",ONCAB(165.572,SR,.031) D P Q:EX=U "RTN","ONCOPA2A",24,0) .W !," Distant Site 3: ",ONCAB(165.572,SR,.032) D P Q:EX=U "RTN","ONCOPA2A",25,0) .Q "RTN","ONCOPA2A",26,0) S NAME="SUBSEQUENT COURSE OF THERAPY" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",27,0) W !!,TITLE "RTN","ONCOPA2A",28,0) F SCT=0:0 S SCT=$O(ONCAB(165.51,SCT)) Q:SCT'>0 D "RTN","ONCOPA2A",29,0) .W !!?30," Date Started: ",ONCAB(165.51,SCT,.01) D P Q:EX=U "RTN","ONCOPA2A",30,0) .W !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041) "RTN","ONCOPA2A",31,0) .W " ",ONCAB(165.51,SCT,.04) D P Q:EX=U "RTN","ONCOPA2A",32,0) .;W !?8," Scope of Lymph Node Surg: ",ONCAB(165.51,SCT,35) D P Q:EX=U "RTN","ONCOPA2A",33,0) .;W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U "RTN","ONCOPA2A",34,0) .;W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U "RTN","ONCOPA2A",35,0) .;W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34) "RTN","ONCOPA2A",36,0) .;W " ",ONCAB(165.51,SCT,33) D P Q:EX=U "RTN","ONCOPA2A",37,0) .W !?8," Radiation: ",ONCAB(165.51,SCT,.051) "RTN","ONCOPA2A",38,0) .W " ",ONCAB(165.51,SCT,.05) D P Q:EX=U "RTN","ONCOPA2A",39,0) .W !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1) D P Q:EX=U "RTN","ONCOPA2A",40,0) .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031) "RTN","ONCOPA2A",41,0) .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 " ",ONCAB(165.51,SCT,.03) D P Q:EX=U "RTN","ONCOPA2A",42,0) .W !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061) "RTN","ONCOPA2A",43,0) .W " ",ONCAB(165.51,SCT,.06) D P Q:EX=U "RTN","ONCOPA2A",44,0) .W !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071) "RTN","ONCOPA2A",45,0) .W " ",ONCAB(165.51,SCT,.07) D P Q:EX=U "RTN","ONCOPA2A",46,0) .W !?8," Immunotherapy: ",ONCAB(165.51,SCT,.081) "RTN","ONCOPA2A",47,0) .W " ",ONCAB(165.51,SCT,.08) D P Q:EX=U "RTN","ONCOPA2A",48,0) .W !?8," Hema Trans/Endocrine Proc: ",ONCAB(165.51,SCT,.021) "RTN","ONCOPA2A",49,0) .W " ",ONCAB(165.51,SCT,.02) D P Q:EX=U "RTN","ONCOPA2A",50,0) .W !?8," Other Treatment: ",ONCAB(165.51,SCT,.091) "RTN","ONCOPA2A",51,0) .W " ",ONCAB(165.51,SCT,.09) D P Q:EX=U "RTN","ONCOPA2A",52,0) .W !," Place: ",ONCAB(165.51,SCT,2) D P Q:EX=U "RTN","ONCOPA2A",53,0) .W !," Comment(s): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,4,SCT,1,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,4,SCT,1,TX,0) D P Q:EX=U "RTN","ONCOPA2A",54,0) .Q "RTN","ONCOPA2A",55,0) S NAME="OTHER PRIMARY SITES" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",56,0) W !!,TITLE,! "RTN","ONCOPA2A",57,0) S XDX=$O(^ONCO(165.5,"C",PTIEN,"")) I $O(^ONCO(165.5,"C",PTIEN,XDX)) W !?1,"Acc/Seq#",?15,"Primary Site",?37,"Last Tumor Status",?56,"Date DX",?68,"Abst Status",! "RTN","ONCOPA2A",58,0) S (FLG,J)=0 F XD1=0:0 S XD1=$O(^ONCO(165.5,"C",PTIEN,XD1)) Q:XD1'>""!(FLG=1) I $$DIV^ONCFUNC(XD1)=DUZ(2) D "RTN","ONCOPA2A",59,0) .I $D(^ONCO(165.5,XD1,0)),XD1'=IEN S J=J+1 D ^ONCOCOML D P I EX=U S FLG=1 "RTN","ONCOPA2A",60,0) .Q "RTN","ONCOPA2A",61,0) I J=0 W !?24,"No Other Primary Sites" "RTN","ONCOPA2A",62,0) ; "RTN","ONCOPA2A",63,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA3 "RTN","ONCOPA2A",64,0) D P Q:EX=U "RTN","ONCOPA2A",65,0) PA3 D ^ONCOPA3 "RTN","ONCOPA2A",66,0) ; WILL CALL ONCOPA3 ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA2A",67,0) Q "RTN","ONCOPA2A",68,0) P ; "RTN","ONCOPA2A",69,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA2A",70,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA2A",71,0) .D HDR Q "RTN","ONCOPA2A",72,0) Q "RTN","ONCOPA2A",73,0) HDR ; Header "RTN","ONCOPA2A",74,0) W @IOF S PG=PG+1 "RTN","ONCOPA2A",75,0) W CRA,! "RTN","ONCOPA2A",76,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA2A",77,0) Q "RTN","ONCOPA2A",78,0) PAUSE ; "RTN","ONCOPA2A",79,0) W ! R "Enter RETURN to continue or '^' to exit: ",PAUSE:30 "RTN","ONCOPA2A",80,0) I PAUSE="" Q "RTN","ONCOPA2A",81,0) I PAUSE=U Q "RTN","ONCOPA2A",82,0) G PAUSE "RTN","ONCOPA3") 0^9^B23723926 "RTN","ONCOPA3",1,0) ONCOPA3 ;Hines OIFO/RTK - PRINT COMPLETE ABSTRACT (132c)...CONTINUED ;05/30/00 "RTN","ONCOPA3",2,0) ;;2.11;ONCOLOGY;**13,15,18,25,26,33,34,36,37**;Mar 07, 1995 "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) W ?70," Next of Kin: ",NOK D P Q:EX=U "RTN","ONCOPA3",16,0) W !?10," Abstract Status : ",ONCAB(165.5,IEN,91),?47," Abstract Date: ",ONCAB(165.5,IEN,90),?76,"Abstracted by: ",ONCAB(165.5,IEN,92) D P Q:EX=U "RTN","ONCOPA3",17,0) W !!?7,"Agent Orange Exposure: ",ONCAB(160,PTIEN,48) D P Q:EX=U "RTN","ONCOPA3",18,0) W !?1,"Ionizing Radiation Exposure: ",ONCAB(160,PTIEN,50) D P Q:EX=U "RTN","ONCOPA3",19,0) W !?1," Chemical Exposure: ",ONCAB(160,PTIEN,52) D P Q:EX=U "RTN","ONCOPA3",20,0) W !?1," Asbestos Exposure: ",ONCAB(160,PTIEN,61) D P Q:EX=U "RTN","ONCOPA3",21,0) W !?1," Persian Gulf Service: ",ONCAB(160,PTIEN,51) D P Q:EX=U "RTN","ONCOPA3",22,0) W !?1," Middle East Service: ",ONCAB(160,PTIEN,55) D P Q:EX=U "RTN","ONCOPA3",23,0) W !?1," Somalia Service: ",ONCAB(160,PTIEN,56) D P Q:EX=U "RTN","ONCOPA3",24,0) W !!?1,"Comorbidity/Complication #1: ",ONCAB(160,PTIEN,25) D P Q:EX=U "RTN","ONCOPA3",25,0) W !?1,"Comorbidity/Complication #2: ",ONCAB(160,PTIEN,25.1) D P Q:EX=U "RTN","ONCOPA3",26,0) W !?1,"Comorbidity/Complication #3: ",ONCAB(160,PTIEN,25.2) D P Q:EX=U "RTN","ONCOPA3",27,0) W !?1,"Comorbidity/Complication #4: ",ONCAB(160,PTIEN,25.3) D P Q:EX=U "RTN","ONCOPA3",28,0) W !?1,"Comorbidity/Complication #5: ",ONCAB(160,PTIEN,25.4) D P Q:EX=U "RTN","ONCOPA3",29,0) W !?1,"Comorbidity/Complication #6: ",ONCAB(160,PTIEN,25.5) D P Q:EX=U "RTN","ONCOPA3",30,0) S NAME="EMPLOYMENT HISTORY" D FORMAT^ONCOPA1 "RTN","ONCOPA3",31,0) W !!,TITLE,! "RTN","ONCOPA3",32,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",33,0) .S OCCP=$P($G(^ONCO(160,PTIEN,7,OC,0)),U,1) I OCCP="" Q "RTN","ONCOPA3",34,0) .W !," Occupation: ",$E($P($G(^LAB(61.6,OCCP,0)),U,1),1,24) D P Q:EX=U "RTN","ONCOPA3",35,0) .W !,"Usual Industry: ",$E($P($G(^ONCO(160,PTIEN,7,OC,0)),U,4),1,22) D P Q:EX=U "RTN","ONCOPA3",36,0) .W ! D P Q:EX=U "RTN","ONCOPA3",37,0) S NAME="TOBACCO AND ALCOHOL USAGE" D FORMAT^ONCOPA1 "RTN","ONCOPA3",38,0) W !,TITLE "RTN","ONCOPA3",39,0) W !!?15," TOBACCO HISTORY: ",ONCAB(160,PTIEN,38) D P Q:EX=U "RTN","ONCOPA3",40,0) F TBHS=0:0 S TBHS=$O(^ONCO(160,PTIEN,5,TBHS)) Q:TBHS'>0 D "RTN","ONCOPA3",41,0) .S TBZN=$G(^ONCO(160,PTIEN,5,TBHS,0)) S TBTP=$P(TBZN,U,1) I TBTP="" Q "RTN","ONCOPA3",42,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",43,0) .W ?55,"Pack-Years: ",$S($P(TBZN,U,2)="U":"UNK",1:$P(TBZN,U,2)) "RTN","ONCOPA3",44,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",45,0) .Q "RTN","ONCOPA3",46,0) W !!?15," ALCOHOL HISTORY: ",ONCAB(160,PTIEN,39) D P Q:EX=U "RTN","ONCOPA3",47,0) F ALHS=0:0 S ALHS=$O(^ONCO(160,PTIEN,6,ALHS)) Q:ALHS'>0 D "RTN","ONCOPA3",48,0) .S ALZN=$G(^ONCO(160,PTIEN,6,ALHS,0)) S ALTP=$P(ALZN,U,1) I ALTP="" Q "RTN","ONCOPA3",49,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",50,0) .W ?45,"Years of Alcohol Use: ",$S($P(ALZN,U,2)="U":"UNK",1:$P(ALZN,U,2)) "RTN","ONCOPA3",51,0) .W ?77,"Drinks Per Day: ",$S($P(ALZN,U,3)="U":"UNK",1:$P(ALZN,U,3)) "RTN","ONCOPA3",52,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",53,0) .Q "RTN","ONCOPA3",54,0) S CFH=ONCAB(160,PTIEN,43),NAME="CANCER FAMILY HISTORY: "_CFH "RTN","ONCOPA3",55,0) D FORMAT^ONCOPA1 W !!,TITLE,! "RTN","ONCOPA3",56,0) F CHST=0:0 S CHST=$O(ONCAB(160.044,CHST)) Q:CHST'>0 D "RTN","ONCOPA3",57,0) .W !," Family member with cancer: ",ONCAB(160.044,CHST,.01) "RTN","ONCOPA3",58,0) .W ?50," Cancer: ",ONCAB(160.044,CHST,1) D P Q:EX=U "RTN","ONCOPA3",59,0) .Q "RTN","ONCOPA3",60,0) S NAME="PHYSICIAN CONTACTS " D FORMAT^ONCOPA1 "RTN","ONCOPA3",61,0) W !!,TITLE "RTN","ONCOPA3",62,0) W !," Following Physician: ",ONCAB(165.5,IEN,2.1) D P Q:EX=U "RTN","ONCOPA3",63,0) W !," Primary Surgeon: ",ONCAB(165.5,IEN,2) D P Q:EX=U "RTN","ONCOPA3",64,0) W !," Physician #3: ",ONCAB(165.5,IEN,2.3) D P Q:EX=U "RTN","ONCOPA3",65,0) W !," Physician #4: ",ONCAB(165.5,IEN,2.4) D P Q:EX=U "RTN","ONCOPA3",66,0) W !!," QA Selected: ",ONCAB(165.5,IEN,62) D P Q:EX=U "RTN","ONCOPA3",67,0) W ?25," QA Reviewer: ",ONCAB(165.5,IEN,64.1) D P Q:EX=U "RTN","ONCOPA3",68,0) W ?75," QA Date: ",ONCAB(165.5,IEN,64) D P Q:EX=U "RTN","ONCOPA3",69,0) W ?100," QA Review: ",ONCAB(165.5,IEN,63) D P Q:EX=U "RTN","ONCOPA3",70,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",71,0) ; "RTN","ONCOPA3",72,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA3A "RTN","ONCOPA3",73,0) D P Q:EX=U "RTN","ONCOPA3",74,0) PA3A D ^ONCOPA3A "RTN","ONCOPA3",75,0) ; WILL CALL ONCOPA3A ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA3",76,0) Q "RTN","ONCOPA3",77,0) P ; "RTN","ONCOPA3",78,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA3",79,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA3",80,0) .D HDR Q "RTN","ONCOPA3",81,0) Q "RTN","ONCOPA3",82,0) HDR ; Header "RTN","ONCOPA3",83,0) W @IOF S PG=PG+1 "RTN","ONCOPA3",84,0) W CRA,! "RTN","ONCOPA3",85,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA3",86,0) Q "RTN","ONCOSUR") 0^11^B79837362 "RTN","ONCOSUR",1,0) ONCOSUR ;Hines OIFO/RTK - SURGERY CODE INPUT,OUTPUT TRANSFORMS ;12/17/97 "RTN","ONCOSUR",2,0) ;;2.11;ONCOLOGY;**15,18,19,22,36,37**;Mar 07, 1995 "RTN","ONCOSUR",3,0) ; "RTN","ONCOSUR",4,0) ;SURGICAL APPROACH (165.5,74) "RTN","ONCOSUR",5,0) SAIT ;INPUT TRANSFORM "RTN","ONCOSUR",6,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" K X Q "RTN","ONCOSUR",7,0) I SCDXDT<2980000 D I $D(X) S V=1 D NT^ONCODSR "RTN","ONCOSUR",8,0) .K DIC S DIC="^ONCO(160.6," D ^DIC "RTN","ONCOSUR",9,0) .I Y=-1 K X Q "RTN","ONCOSUR",10,0) .S X=$P(Y,U,1) W " ",$P(^ONCO(160.6,X,0),U,2) "RTN","ONCOSUR",11,0) I SCDXDT>2971231 D "RTN","ONCOSUR",12,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W " No TOPOGRAPHY!" K X Q "RTN","ONCOSUR",13,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" K X Q "RTN","ONCOSUR",14,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",15,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",16,0) .S FOUND=0 "RTN","ONCOSUR",17,0) .F XSA=0:0 S XSA=$O(^ONCO(164,ICD,"SUA",XSA)) Q:XSA'>0!(FOUND=1) D "RTN","ONCOSUR",18,0) ..I $P(^ONCO(164,ICD,"SUA",XSA,0),U,2)=X S X=XSA,FOUND=1 Q "RTN","ONCOSUR",19,0) .I FOUND=0 K X Q "RTN","ONCOSUR",20,0) .W " ",$P(^ONCO(164,ICD,"SUA",X,0),U,1) "RTN","ONCOSUR",21,0) I $D(X) S V=1 D NT^ONCODSR "RTN","ONCOSUR",22,0) K SCDXDT,FOUND,ICD,TOP,XSA Q "RTN","ONCOSUR",23,0) ; "RTN","ONCOSUR",24,0) SAOT ;OUTPUT TRANSFORM "RTN","ONCOSUR",25,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",26,0) I SCDXDT<2980000 D "RTN","ONCOSUR",27,0) .S:Y'="" Y=$P($G(^ONCO(160.6,Y,0)),U,2) "RTN","ONCOSUR",28,0) I SCDXDT>2971231 D "RTN","ONCOSUR",29,0) .Q:Y="" "RTN","ONCOSUR",30,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" S Y="" Q "RTN","ONCOSUR",31,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" S Y="" Q "RTN","ONCOSUR",32,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",33,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",34,0) .S Y=$P($G(^ONCO(164,ICD,"SUA",Y,0)),U,2)_" "_$P($G(^ONCO(164,ICD,"SUA",Y,0)),U,1) "RTN","ONCOSUR",35,0) K SCDXDT,ICD,TOP Q "RTN","ONCOSUR",36,0) ; "RTN","ONCOSUR",37,0) SAHP ;HELP "RTN","ONCOSUR",38,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",39,0) I SCDXDT<2980000 D "RTN","ONCOSUR",40,0) .W !?3,"Select from the following list:" "RTN","ONCOSUR",41,0) .F XSA=0:0 S XSA=$O(^ONCO(160.6,XSA)) Q:XSA'>0 W !?6,$P($G(^ONCO(160.6,XSA,0)),U,1),?12,$P($G(^ONCO(160.6,XSA,0)),U,2) "RTN","ONCOSUR",42,0) I SCDXDT>2971231 D "RTN","ONCOSUR",43,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W !,"No TOPOGRAPHY!" Q "RTN","ONCOSUR",44,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" W !,"No ICD Codes!" Q "RTN","ONCOSUR",45,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",46,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",47,0) .W !?3,"Select from the following list:",! "RTN","ONCOSUR",48,0) .F XSA=0:0 S XSA=$O(^ONCO(164,ICD,"SUA",XSA)) Q:XSA'>0 W !?6,$P($G(^ONCO(164,ICD,"SUA",XSA,0)),U,2),?12,$P($G(^ONCO(164,ICD,"SUA",XSA,0)),U,1) "RTN","ONCOSUR",49,0) K SCDXDT,ICD,TOP,XSA Q "RTN","ONCOSUR",50,0) ; "RTN","ONCOSUR",51,0) ;SURGERY OF PRIMARY (R) (165.5,58.2) "RTN","ONCOSUR",52,0) ;SURGERY OF PRIMARY (F) (165.5,58.6) "RTN","ONCOSUR",53,0) SPSIT ;INPUT TRANSFORM "RTN","ONCOSUR",54,0) S NTXDD=$G(NTXDD) I NTXDD="" Q "RTN","ONCOSUR",55,0) S SR=+X "RTN","ONCOSUR",56,0) I $L(X)>2!(X'?1.N) K X Q "RTN","ONCOSUR",57,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" K X Q "RTN","ONCOSUR",58,0) I SCDXDT<2980000,($G(FIELD)=58.2)!($G(FIELD)=50.2) D CDSIT^ONCODSR Q:'$D(X) I NTXDD=1 S V="00" D NT^ONCODSR K SCDXDT Q "RTN","ONCOSUR",59,0) D "RTN","ONCOSUR",60,0) .I X="00" S X=0 "RTN","ONCOSUR",61,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W " No TOPOGRAPHY!" K X Q "RTN","ONCOSUR",62,0) .S HIST14=$E($$GET1^DIQ(165.5,D0,22.1),1,4) "RTN","ONCOSUR",63,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 ICD=67420 "RTN","ONCOSUR",64,0) .E S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" K X Q "RTN","ONCOSUR",65,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",66,0) .I ($G(FIELD)=58.2)!($G(FIELD)=50.2),($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",67,0) .S FOUND=0 "RTN","ONCOSUR",68,0) .F XSP=0:0 S XSP=$O(^ONCO(164,ICD,"SPS",XSP)) Q:XSP'>0!(FOUND=1) D "RTN","ONCOSUR",69,0) ..I ($G(FIELD)=58.6)!($G(FIELD)=58.7),$P(^ONCO(164,ICD,"SPS",XSP,0),U,1)["ROADS" Q "RTN","ONCOSUR",70,0) ..I $P(^ONCO(164,ICD,"SPS",XSP,0),U,2)=X S X=XSP,FOUND=1 Q "RTN","ONCOSUR",71,0) .I FOUND=0 K X Q "RTN","ONCOSUR",72,0) .W " ",$P(^ONCO(164,ICD,"SPS",X,0),U,1) "RTN","ONCOSUR",73,0) I $D(X),NTXDD=1 S V=0 D NT^ONCODSR Q "RTN","ONCOSUR",74,0) K SCDXDT,FOUND,ICD,TOP,XSP Q "RTN","ONCOSUR",75,0) ; "RTN","ONCOSUR",76,0) SPSOT ;OUTPUT TRANSFORM "RTN","ONCOSUR",77,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",78,0) I SCDXDT<2980000,($G(FIELD)=58.2)!($G(FIELD)=50.2) D CDSOT^ONCODSR Q "RTN","ONCOSUR",79,0) D "RTN","ONCOSUR",80,0) .Q:Y="" "RTN","ONCOSUR",81,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" S Y="" Q "RTN","ONCOSUR",82,0) .S HIST14=$E($$GET1^DIQ(165.5,D0,22.1),1,4) "RTN","ONCOSUR",83,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 ICD=67420 "RTN","ONCOSUR",84,0) .E S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" S Y="" Q "RTN","ONCOSUR",85,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",86,0) .I ($G(FIELD)=58.2)!($G(FIELD)=50.2),($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",87,0) .S Y=$S($P($G(^ONCO(164,ICD,"SPS",Y,0)),U,2)=0:"0",1:"")_$P($G(^ONCO(164,ICD,"SPS",Y,0)),U,2)_" "_$P($G(^ONCO(164,ICD,"SPS",Y,0)),U,1) "RTN","ONCOSUR",88,0) K SCDXDT,ICD,TOP "RTN","ONCOSUR",89,0) Q "RTN","ONCOSUR",90,0) ; "RTN","ONCOSUR",91,0) SPSHP ;HELP "RTN","ONCOSUR",92,0) S SYSDIS="" "RTN","ONCOSUR",93,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",94,0) I SCDXDT<2980000,($G(FIELD)=58.2)!($G(FIELD)=50.2) D HP1^ONCODSR Q "RTN","ONCOSUR",95,0) D "RTN","ONCOSUR",96,0) .S (EX,CTR)=0 "RTN","ONCOSUR",97,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W !,"No TOPOGRAPHY!" Q "RTN","ONCOSUR",98,0) .S HIST14=$E($$GET1^DIQ(165.5,D0,22.1),1,4) "RTN","ONCOSUR",99,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 ICD=67420,SYSDIS=1 "RTN","ONCOSUR",100,0) .E S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" W !,"No ICD Codes!" Q "RTN","ONCOSUR",101,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",102,0) .I ($G(FIELD)=58.2)!($G(FIELD)=50.2),($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",103,0) .I $G(SYSDIS)=1 W !?3,"SURGICAL PROCEDURE codes for systemic disease: ",! "RTN","ONCOSUR",104,0) .E W !?3,"SURGICAL PROCEDURE codes for site ",$P($G(^ONCO(164,TOP,0)),U,2)," ",$P($G(^ONCO(164,TOP,0)),U,1),": ",! "RTN","ONCOSUR",105,0) .S XSP="" F S XSP=$O(^ONCO(164,ICD,"SPS","C",XSP)) Q:XSP="" S SPSIEN=$O(^ONCO(164,ICD,"SPS","C",XSP,0)) D Q:EX=U "RTN","ONCOSUR",106,0) ..S CTR=CTR+1 I CTR#20=0 D P Q:EX=U "RTN","ONCOSUR",107,0) ..I $P($G(^ONCO(164,ICD,"SPS",SPSIEN,0)),U,2)=0 W !?6,"00",?12,$P($G(^ONCO(164,ICD,"SPS",SPSIEN,0)),U,1) Q "RTN","ONCOSUR",108,0) ..I ($G(FIELD)=58.6)!($G(FIELD)=58.7),$P($G(^ONCO(164,ICD,"SPS",SPSIEN,0)),U,1)["ROADS" Q "RTN","ONCOSUR",109,0) ..W !?6,$P($G(^ONCO(164,ICD,"SPS",SPSIEN,0)),U,2),?12,$P($G(^ONCO(164,ICD,"SPS",SPSIEN,0)),U,1) "RTN","ONCOSUR",110,0) W ! K CTR,SCDXDT,EX,ICD,TOP,XSP,SPSIEN Q "RTN","ONCOSUR",111,0) ; "RTN","ONCOSUR",112,0) P D Q:EX=U W ! "RTN","ONCOSUR",113,0) .W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOSUR",114,0) Q "RTN","ONCOSUR",115,0) ; "RTN","ONCOSUR",116,0) SMIT ;SURGICAL MARGINS (165.5,59) "RTN","ONCOSUR",117,0) ;INPUT TRANSFORM "RTN","ONCOSUR",118,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" K X Q "RTN","ONCOSUR",119,0) I SCDXDT<2980000 D I $D(X) S V=8 D NT^ONCODSR Q "RTN","ONCOSUR",120,0) .I X>2,X<8 K X Q "RTN","ONCOSUR",121,0) .W " ",$S(X=0:"No residual tumor",X=1:"Microscopic residual tumor",X=2:"Macroscopic residual tumor",X=8:"Not applicable",X=9:"Unknown",1:"") "RTN","ONCOSUR",122,0) I SCDXDT>2971231 D "RTN","ONCOSUR",123,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W " No TOPOGRAPHY!" K X Q "RTN","ONCOSUR",124,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" K X Q "RTN","ONCOSUR",125,0) .S FOUND=0 "RTN","ONCOSUR",126,0) .F XSM=0:0 S XSM=$O(^ONCO(164,ICD,"SM5",XSM)) Q:XSM'>0!(FOUND=1) D "RTN","ONCOSUR",127,0) ..I $P(^ONCO(164,ICD,"SM5",XSM,0),U,2)=X S X=XSM,FOUND=1 Q "RTN","ONCOSUR",128,0) .I FOUND=0 K X Q "RTN","ONCOSUR",129,0) .W " ",$P(^ONCO(164,ICD,"SM5",X,0),U,1) "RTN","ONCOSUR",130,0) I $D(X) S V=6 D NT^ONCODSR "RTN","ONCOSUR",131,0) K SCDXDT,FOUND,ICD,TOP,XSM Q "RTN","ONCOSUR",132,0) ; "RTN","ONCOSUR",133,0) SMOT ;OUTPUT TRANSFORM "RTN","ONCOSUR",134,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",135,0) I SCDXDT<2980000 D "RTN","ONCOSUR",136,0) .S Y=$S(Y=0:"0 No residual tumor",Y=1:"1 Microscopic residual tumor",Y=2:"2 Macroscopic residual tumor",Y=8:"8 Not applicable",Y=9:"9 Unknown",1:"") "RTN","ONCOSUR",137,0) I SCDXDT>2971231 D "RTN","ONCOSUR",138,0) .Q:Y="" "RTN","ONCOSUR",139,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" S Y="" Q "RTN","ONCOSUR",140,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" S Y="" Q "RTN","ONCOSUR",141,0) .S Y=$P($G(^ONCO(164,ICD,"SM5",Y,0)),U,2)_" "_$P($G(^ONCO(164,ICD,"SM5",Y,0)),U,1) "RTN","ONCOSUR",142,0) K SCDXDT,ICD,TOP Q "RTN","ONCOSUR",143,0) ; "RTN","ONCOSUR",144,0) SMHP ;HELP "RTN","ONCOSUR",145,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",146,0) I SCDXDT<2980000 D "RTN","ONCOSUR",147,0) .W !?3,"Select from the following list:" "RTN","ONCOSUR",148,0) .W !?6,"0",?12,"No residual tumor" "RTN","ONCOSUR",149,0) .W !?6,"1",?12,"Microscopic residual tumor" "RTN","ONCOSUR",150,0) .W !?6,"2",?12,"Macroscopic residual tumor" "RTN","ONCOSUR",151,0) .W !?6,"8",?12,"Not applicable" "RTN","ONCOSUR",152,0) .W !?6,"9",?12,"Unknown" "RTN","ONCOSUR",153,0) I SCDXDT>2971231 D "RTN","ONCOSUR",154,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W !,"No TOPOGRAPHY!" Q "RTN","ONCOSUR",155,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" W !,"No ICD Codes!" Q "RTN","ONCOSUR",156,0) .W !?3,"Select from the following list:",! "RTN","ONCOSUR",157,0) .F XSM=0:0 S XSM=$O(^ONCO(164,ICD,"SM5",XSM)) Q:XSM'>0 W !?6,$P($G(^ONCO(164,ICD,"SM5",XSM,0)),U,2),?12,$P($G(^ONCO(164,ICD,"SM5",XSM,0)),U,1) "RTN","ONCOSUR",158,0) K SCDXDT,ICD,TOP,XSM Q "RTN","ONCOSUR",159,0) ; "RTN","ONCOSUR",160,0) RRIT ;RECONSTRUCTION/RESTORATION (165.5,23) "RTN","ONCOSUR",161,0) ;INPUT TRANSFORM "RTN","ONCOSUR",162,0) S NTXDD=$G(NTXDD) I NTXDD="" Q "RTN","ONCOSUR",163,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" K X Q "RTN","ONCOSUR",164,0) I SCDXDT<2980000 D I $D(X),NTXDD=1 S V=1 D NT^ONCODSR "RTN","ONCOSUR",165,0) .K DIC S DIC="^ONCO(160.4," D ^DIC "RTN","ONCOSUR",166,0) .I Y=-1 K X Q "RTN","ONCOSUR",167,0) .S X=$P(Y,U,1) W " ",$P(^ONCO(160.4,X,0),U,2) "RTN","ONCOSUR",168,0) I SCDXDT>2971231 D "RTN","ONCOSUR",169,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W " No TOPOGRAPHY!" K X Q "RTN","ONCOSUR",170,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" K X Q "RTN","ONCOSUR",171,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",172,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",173,0) .S FOUND=0 "RTN","ONCOSUR",174,0) .F XRR=0:0 S XRR=$O(^ONCO(164,ICD,"RR5",XRR)) Q:XRR'>0!(FOUND=1) D "RTN","ONCOSUR",175,0) ..I $P(^ONCO(164,ICD,"RR5",XRR,0),U,2)=X S X=XRR,FOUND=1 Q "RTN","ONCOSUR",176,0) .I FOUND=0 K X Q "RTN","ONCOSUR",177,0) .W " ",$P(^ONCO(164,ICD,"RR5",X,0),U,1) "RTN","ONCOSUR",178,0) I $D(X),NTXDD=1 S V=1 D NT^ONCODSR "RTN","ONCOSUR",179,0) K SCDXDT,FOUND,ICD,TOP,XRR Q "RTN","ONCOSUR",180,0) ; "RTN","ONCOSUR",181,0) RROT ;OUTPUT TRANSFORM "RTN","ONCOSUR",182,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",183,0) I SCDXDT<2980000 D "RTN","ONCOSUR",184,0) .S:Y'="" Y=$P($G(^ONCO(160.4,Y,0)),U,2) "RTN","ONCOSUR",185,0) I SCDXDT>2971231 D "RTN","ONCOSUR",186,0) .Q:Y="" "RTN","ONCOSUR",187,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" S Y="" Q "RTN","ONCOSUR",188,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" S Y="" Q "RTN","ONCOSUR",189,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",190,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",191,0) .S Y=$P($G(^ONCO(164,ICD,"RR5",Y,0)),U,1) "RTN","ONCOSUR",192,0) K SCDXDT,ICD,TOP Q "RTN","ONCOSUR",193,0) ; "RTN","ONCOSUR",194,0) RRHP ;HELP "RTN","ONCOSUR",195,0) S SCDXDT=$P($G(^ONCO(165.5,D0,0)),U,16) I SCDXDT="" Q "RTN","ONCOSUR",196,0) I SCDXDT<2980000 D "RTN","ONCOSUR",197,0) .W !?3,"Select from the following list:" "RTN","ONCOSUR",198,0) .F XRR=0:0 S XRR=$O(^ONCO(160.4,XRR)) Q:XRR'>0 W !?6,$P($G(^ONCO(160.4,XRR,0)),U,1),?12,$P($G(^ONCO(160.4,XRR,0)),U,2) "RTN","ONCOSUR",199,0) I SCDXDT>2971231 D "RTN","ONCOSUR",200,0) .S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) I TOP="" W !,"No TOPOGRAPHY!" Q "RTN","ONCOSUR",201,0) .S ICD=$P($G(^ONCO(164,TOP,0)),U,16) I ICD="" W !,"No ICD Codes!" Q "RTN","ONCOSUR",202,0) .;see ROADS page D-cxliii "RTN","ONCOSUR",203,0) .I ($E(TOP,3,4)=76)!(TOP=67809)!(TOP=67420)!(TOP=67421)!(TOP=67423)!(TOP=67424) S ICD=67141 "RTN","ONCOSUR",204,0) .W !?3,"Select from the following list:",! "RTN","ONCOSUR",205,0) .F XRR=0:0 S XRR=$O(^ONCO(164,ICD,"RR5",XRR)) Q:XRR'>0 W !?6,$P($G(^ONCO(164,ICD,"RR5",XRR,0)),U,2),?12,$P($G(^ONCO(164,ICD,"RR5",XRR,0)),U,1) "RTN","ONCOSUR",206,0) K SCDXDT,ICD,TOP,XRR Q "RTN","ONCOTN") 0^33^B65216270 "RTN","ONCOTN",1,0) ONCOTN ;Hines OIFO/GWB,RTK - 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**;Mar 07, 1995 "RTN","ONCOTN",3,0) S ONCOED=$$TNMED^ONCOU55(D0) ;AJCC Staging Manual edition "RTN","ONCOTN",4,0) S S=$P(^ONCO(165.5,D0,0),U,1) ;SITE/GP "RTN","ONCOTN",5,0) S DATEDX=$P(^ONCO(165.5,D0,0),U,16) ;DATE DX "RTN","ONCOTN",6,0) S ONCT=$P($G(^ONCO(165.5,D0,2)),U,1) ;ICDO-TOPOGRAPHY "RTN","ONCOTN",7,0) I ONCT="" W !!?5,"Topography not Defined!!",! S Y=20 Q "RTN","ONCOTN",8,0) S ONCOH=$$HIST^ONCFUNC(D0) ;HISTOLOGY "RTN","ONCOTN",9,0) S Y=69 ;MULTIPLE TUMORS "RTN","ONCOTN",10,0) ; "RTN","ONCOTN",11,0) ;EAR, MIDDLE (C30.1) "RTN","ONCOTN",12,0) ;TRACHEA (C33.9) "RTN","ONCOTN",13,0) ;THYMUS (C37.9) "RTN","ONCOTN",14,0) ;RESPIRATORY TRACT, UPPER (C39.0) "RTN","ONCOTN",15,0) ;RESPIRATORY TRACT OVERLAP (C39.8) "RTN","ONCOTN",16,0) ;RESPIRATORY TRACT, ILL-DEFINED (C39.9) "RTN","ONCOTN",17,0) ;EPIDIDYMIS (C63.0) "RTN","ONCOTN",18,0) ;SPERMATIC CORD (C63.1) "RTN","ONCOTN",19,0) ;CORNEA NOS (C69.1) "RTN","ONCOTN",20,0) ;ADRENAL GLAND, CORTEX (C74.0) "RTN","ONCOTN",21,0) ;ADRENAL GLAND, MEDULLA (C74.1) "RTN","ONCOTN",22,0) ;ADRENAL GLAND, NOS (C74.9) "RTN","ONCOTN",23,0) ;PARATHYROID GLAND (C75.0) "RTN","ONCOTN",24,0) ;CAROTID BODY (C75.4) "RTN","ONCOTN",25,0) ;AORTIC BODY/PARAGANGLIA (C75.5) "RTN","ONCOTN",26,0) ;GLANDS, ENDOCRINE OVERLAP (C75.8) "RTN","ONCOTN",27,0) ;GLAND, ENDOCRINE NOS (C75.9) "RTN","ONCOTN",28,0) ;HEAD,FACE,NECK NOS (C76.0) "RTN","ONCOTN",29,0) ;THORAX NOS (C76.1) "RTN","ONCOTN",30,0) ;ABDOMEN NOS (C76.2) "RTN","ONCOTN",31,0) ;PELVIS NOS (C76.3) "RTN","ONCOTN",32,0) ;UPPER LIMB NOS (C76.4) "RTN","ONCOTN",33,0) ;LOWER LIMB NOS (C76.5) "RTN","ONCOTN",34,0) ;OTHER NOS (C76.7) "RTN","ONCOTN",35,0) ;OVERLAP NOS (C76.8) "RTN","ONCOTN",36,0) I (ONCT=67301)!(ONCT=67339)!(ONCT=67379)!($E(ONCT,1,4)=6739)!(ONCT=67630)!(ONCT=67631)!(ONCT=67691)!($E(ONCT,1,4)=6774)!(ONCT=67750)!(ONCT=67754)!(ONCT=67755)!(ONCT=67758)!(ONCT=67759)!($E(ONCT,1,4)=6776)!($E(ONCT,1,4)=6726) D S Y="@313" Q "RTN","ONCOTN",37,0) .W !!?3,"No TNM coding or staging available for this site.",! "RTN","ONCOTN",38,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",39,0) ; "RTN","ONCOTN",40,0) ;PART II: HEAD AND NECK SITES "RTN","ONCOTN",41,0) ;4. Pharynx (Including Base of Tongue, Soft Palate, and Uvula) "RTN","ONCOTN",42,0) ;C14.0 PHARYNX NOS "RTN","ONCOTN",43,0) ;C14.2 WALDEYER'S RING NOS "RTN","ONCOTN",44,0) ;C14.8 ORAL CAVITY OVERLAP "RTN","ONCOTN",45,0) I (ONCT=67140)!(ONCT=67142)!(ONCT=67142),ONCOED>5 D S Y="@313" Q "RTN","ONCOTN",46,0) .W:ONCT=67140 !!?6,"C14.0 has been excluded from 6th edition staging.",! "RTN","ONCOTN",47,0) .W:ONCT=67142 !!?6,"C14.2 has been excluded from 6th edition staging.",! "RTN","ONCOTN",48,0) .W:ONCT=67148 !!?6,"C14.8 has been excluded from 6th edition staging.",! "RTN","ONCOTN",49,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",50,0) ; "RTN","ONCOTN",51,0) ;PART VIII: GYNECOLOGIC SITES "RTN","ONCOTN",52,0) ;31. Fallopian Tube "RTN","ONCOTN",53,0) ;Fallopian Tube (C57.0) - 3rd and 4th editions "RTN","ONCOTN",54,0) ;Other/unspecified female genitalia (C57.1-C57.9) "RTN","ONCOTN",55,0) I ((ONCT=67570)&(ONCOED<5))!(($E(ONCT,1,4)=6757)&(ONCT'=67570)) D S Y="@313" Q "RTN","ONCOTN",56,0) .W !!?3,"No TNM coding or staging available for this site.",! "RTN","ONCOTN",57,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",58,0) ; "RTN","ONCOTN",59,0) ;PART IX: GENITOURINARY SITES "RTN","ONCOTN",60,0) ;39. Urethra "RTN","ONCOTN",61,0) ;C68.1 Paraurethral gland - 6th Edition "RTN","ONCOTN",62,0) ;C68.8 Overlapping lesion of urinary organs - 6th Edition "RTN","ONCOTN",63,0) ;C68.9 Urinary system, NOS - 6th Edition "RTN","ONCOTN",64,0) I ((ONCT=67681)!(ONCT=67688)!(ONCT=67689)),ONCOED>5 D S Y="@313" Q "RTN","ONCOTN",65,0) .W !!?6,"C68.1, C68.8 and C68.9 have been excluded from staging.",! "RTN","ONCOTN",66,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",67,0) ; "RTN","ONCOTN",68,0) ;PART 10: OPHTHALMIC SITES "RTN","ONCOTN",69,0) ;Malignant Melanoma of the Eyelid - 3rd and 4th editions "RTN","ONCOTN",70,0) I ONCT=67441,$$MELANOMA^ONCOU55(D0),ONCOED<5 D S Y=37.2 Q "RTN","ONCOTN",71,0) .W !!?6,"No classification is recommended at present.",! "RTN","ONCOTN",72,0) .S $P(^ONCO(165.5,D0,2),U,25)=88 "RTN","ONCOTN",73,0) .W !,"CLINICAL T: T88 NA" "RTN","ONCOTN",74,0) ; "RTN","ONCOTN",75,0) ;PART XI: CENTRAL NERVOUS SYSTEM "RTN","ONCOTN",76,0) ;Brain and Spinal Cord - "RTN","ONCOTN",77,0) I (ONCT=67700)!(ONCT=67701)!(ONCT=67709)!(ONCT=67751)!(ONCT=67752)!(ONCT=67753)!($E(ONCT,3,4)=71)!($E(ONCT,3,4)=72),ONCOED>4 D S Y="@313" Q "RTN","ONCOTN",78,0) .W !!?5,"Central Nervous System Tumors have no TNM designation.",! "RTN","ONCOTN",79,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",80,0) ; "RTN","ONCOTN",81,0) ; "RTN","ONCOTN",82,0) ;PART XII: LYMPHOID NEOPLASMS "RTN","ONCOTN",83,0) ;Mycosis fungoides (9700/3) "RTN","ONCOTN",84,0) I ONCOH=97003,ONCOED>5 Q "RTN","ONCOTN",85,0) ; "RTN","ONCOTN",86,0) I (S=62)!($$LYMPHOMA^ONCFUNC(D0)) D S Y="@376" Q "RTN","ONCOTN",87,0) .W !!?5,"No TNM classification is available for Lymphoid Neoplasms.",! "RTN","ONCOTN",88,0) .D CTNM88,PTNM88 "RTN","ONCOTN",89,0) ; "RTN","ONCOTN",90,0) ;Kaposi's sarcoma "RTN","ONCOTN",91,0) I ONCOH=91403 D S Y="@313" Q "RTN","ONCOTN",92,0) .W !!?5,"No TNM classification or staging is available for Kaposi's sarcoma.",! "RTN","ONCOTN",93,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",94,0) ; "RTN","ONCOTN",95,0) I $P(^ONCO(164,ONCT,0),U,11)="" D S Y="@313" Q "RTN","ONCOTN",96,0) .W !!?5,"No stage grouping is presently recommended.",! "RTN","ONCOTN",97,0) .D CTNM88,CSTG88,CSB,PTNM88,PSTG88,PSB "RTN","ONCOTN",98,0) Q "RTN","ONCOTN",99,0) ; "RTN","ONCOTN",100,0) CN1 ;No longer needed but still called by several PCE routines "RTN","ONCOTN",101,0) Q "RTN","ONCOTN",102,0) ; "RTN","ONCOTN",103,0) CN2 ;Gestational Trophoblastic Tumors - clinical "RTN","ONCOTN",104,0) S ONCT=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",105,0) I ONCT=67589 D S Y=37.3 Q "RTN","ONCOTN",106,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",107,0) .S $P(^ONCO(165.5,D0,2),U,26)=88 "RTN","ONCOTN",108,0) .W !,"CLINICAL N: N88 NA" "RTN","ONCOTN",109,0) Q "RTN","ONCOTN",110,0) ; "RTN","ONCOTN",111,0) CN3 ;No longer needed but still called by several PCE routines "RTN","ONCOTN",112,0) Q "RTN","ONCOTN",113,0) ; "RTN","ONCOTN",114,0) CN4 ;Gestational Trophoblastic Tumors - pathologic "RTN","ONCOTN",115,0) S ONCT=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",116,0) I ONCT=67589 D S Y=87 Q "RTN","ONCOTN",117,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",118,0) .S $P(^ONCO(165.5,D0,2.1),U,2)=88 "RTN","ONCOTN",119,0) .W !,"PATHOLOGIC N: N88 NA" "RTN","ONCOTN",120,0) Q "RTN","ONCOTN",121,0) ; "RTN","ONCOTN",122,0) CN5 ;Gestational Trophoblastic Tumors - other "RTN","ONCOTN",123,0) S ONCT=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",124,0) I ONCT=67589 D S Y=99 Q "RTN","ONCOTN",125,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",126,0) .S $P(^ONCO(165.5,D0,2.1),U,7)=88 "RTN","ONCOTN",127,0) .W !,"OTHER N: N88 NA" "RTN","ONCOTN",128,0) Q "RTN","ONCOTN",129,0) ; "RTN","ONCOTN",130,0) RECN ;Gestational Trophoblastic Tumors - Subsequent Recurrences - other "RTN","ONCOTN",131,0) S ONCT=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOTN",132,0) I ONCT=67589 D S Y=3 Q "RTN","ONCOTN",133,0) .W !!," Regional lymph node (N) classification does not apply to these tumors.",! "RTN","ONCOTN",134,0) .S $P(^ONCO(165.5,D0,23,D1,0),U,8)=88 "RTN","ONCOTN",135,0) .W !,"OTHER N: N88 NA" "RTN","ONCOTN",136,0) Q "RTN","ONCOTN",137,0) ; "RTN","ONCOTN",138,0) ES ;Automatic Staging "RTN","ONCOTN",139,0) S ONCOED=$$TNMED^ONCOU55(D0) I ONCOED<3 D Q "RTN","ONCOTN",140,0) .W !!,"DATE DX prior to 1988. Automatic staging unavailable.",! "RTN","ONCOTN",141,0) S STGTYP=$S(STGIND="C":"CLINICAL",STGIND="P":"PATHOLOGIC",STGIND="O":"OTHER",STGIND="R":"RECURRENCE",1:"") "RTN","ONCOTN",142,0) S XX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTN",143,0) G EX:XX="" "RTN","ONCOTN",144,0) S ST=$P(^ONCO(165.5,D0,0),U,1) ;SITE/GP "RTN","ONCOTN",145,0) S G=$P(^ONCO(165.5,D0,2),U,5) ;GRADE/DIFFERENTIATION "RTN","ONCOTN",146,0) S TX=$P(^ONCO(165.5,D0,2),U,1) ;ICDO-TOPOGRAPHY "RTN","ONCOTN",147,0) S HT=$$HIST^ONCFUNC(D0) ;HISTOLOGY "RTN","ONCOTN",148,0) S SP=$P($G(^ONCO(164,+TX,0)),U,11) ;T & N CODES "RTN","ONCOTN",149,0) I STGIND="C" D "RTN","ONCOTN",150,0) .S XXX=$G(^ONCO(165.5,D0,2)) "RTN","ONCOTN",151,0) .S T=$P(XXX,U,25) ;cT "RTN","ONCOTN",152,0) .S N=$P(XXX,U,26) ;cN "RTN","ONCOTN",153,0) .S M=$P(XXX,U,27) ;cM "RTN","ONCOTN",154,0) I STGIND="P" D "RTN","ONCOTN",155,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTN",156,0) .S T=$P(XXX,U,1) ;pT "RTN","ONCOTN",157,0) .S N=$P(XXX,U,2) ;pN "RTN","ONCOTN",158,0) .S M=$P(XXX,U,3) ;pM "RTN","ONCOTN",159,0) I STGIND="O" D "RTN","ONCOTN",160,0) .S XXX=$G(^ONCO(165.5,D0,2.1)) "RTN","ONCOTN",161,0) .S T=$P(XXX,U,6) ;oT "RTN","ONCOTN",162,0) .S N=$P(XXX,U,7) ;oN "RTN","ONCOTN",163,0) .S M=$P(XXX,U,8) ;oM "RTN","ONCOTN",164,0) I STGIND="R" D "RTN","ONCOTN",165,0) .S XXX=$G(^ONCO(165.5,D0,23,DA,0)) "RTN","ONCOTN",166,0) .S T=$P(XXX,U,6) ;Subsequent recurrence - oT "RTN","ONCOTN",167,0) .S N=$P(XXX,U,7) ; - oN "RTN","ONCOTN",168,0) .S M=$P(XXX,U,8) ; - oM "RTN","ONCOTN",169,0) I T="" D G SG "RTN","ONCOTN",170,0) .W !!?5,"No ",STGTYP," T category has been assigned." "RTN","ONCOTN",171,0) .S SG=99 "RTN","ONCOTN",172,0) I N="",ST'=58 D G SG "RTN","ONCOTN",173,0) .W !!?5,"No ",STGTYP," N category has been assigned." "RTN","ONCOTN",174,0) .S SG=99 "RTN","ONCOTN",175,0) I M="" D G SG "RTN","ONCOTN",176,0) .W !?5,"No ",STGTYP," M category has been assigned." "RTN","ONCOTN",177,0) .S SG=99 "RTN","ONCOTN",178,0) ; "RTN","ONCOTN",179,0) ;Malignant Melanoma of the Eyelid (C44.1) - 3rd and 4th editions "RTN","ONCOTN",180,0) I TX=67441,ONCOED<5,$$MELANOMA^ONCOU55(D0) S AG=37 G AG "RTN","ONCOTN",181,0) ; "RTN","ONCOTN",182,0) ;Melanoma of the Skin "RTN","ONCOTN",183,0) I $$MELANOMA^ONCOU55(D0),$P($G(^ONCO(164,+TX,0)),U,15) S AG=22 G AG "RTN","ONCOTN",184,0) ; "RTN","ONCOTN",185,0) ;Gestational Trophoblastic Tumors "RTN","ONCOTN",186,0) I TX=67589 S AG=54 G AG "RTN","ONCOTN",187,0) ; "RTN","ONCOTN",188,0) ;Urethra (C68.9) "RTN","ONCOTN",189,0) ;Urothelial (Transitional Cell) Carcinoma of the Prostate "RTN","ONCOTN",190,0) I ONCOED>4,TX=67619,(HT=81203)!(HT=81303)!(HT=81223)!(HT=81202) D G AG "RTN","ONCOTN",191,0) .S AG=35 "RTN","ONCOTN",192,0) ; "RTN","ONCOTN",193,0) ;Malignant Melanoma of the Conjunctiva "RTN","ONCOTN",194,0) I $$MELANOMA^ONCOU55(D0),TX=67690 S AG=39 G AG "RTN","ONCOTN",195,0) ; "RTN","ONCOTN",196,0) ;Malignant Melanoma of the Uvea "RTN","ONCOTN",197,0) I $$MELANOMA^ONCOU55(D0),((TX=67693)!(TX=67694)) S AG=40 G AG "RTN","ONCOTN",198,0) ; "RTN","ONCOTN",199,0) ;Lymphoid Neoplasms "RTN","ONCOTN",200,0) ;Mycosis fungoides (9700/3) - 6th edition "RTN","ONCOTN",201,0) I ONCOED>5,HT=97003 S AG=55 G AG "RTN","ONCOTN",202,0) ; "RTN","ONCOTN",203,0) S AG=$P($G(^ONCO(164,+TX,0)),U,12) "RTN","ONCOTN",204,0) ; "RTN","ONCOTN",205,0) AG ;DO appropriate staging subroutine "RTN","ONCOTN",206,0) S SG=99 "RTN","ONCOTN",207,0) I T=88,N=88,M=88 S SG=88 G SG "RTN","ONCOTN",208,0) D @(AG_"^ONCOTN0") "RTN","ONCOTN",209,0) W:SG=99 !!,?12,"TNM combination not in staging table." "RTN","ONCOTN",210,0) ; "RTN","ONCOTN",211,0) SG ;Computed stage "RTN","ONCOTN",212,0) I STGIND="C" S $P(^ONCO(165.5,D0,2),U,20)=SG "RTN","ONCOTN",213,0) I STGIND="P" S $P(^ONCO(165.5,D0,2.1),U,4)=SG "RTN","ONCOTN",214,0) I STGIND="O" S $P(^ONCO(165.5,D0,2.1),U,9)=SG "RTN","ONCOTN",215,0) I STGIND="R" S $P(^ONCO(165.5,D0,23,DA,0),U,9)=SG "RTN","ONCOTN",216,0) I SG'="" S X=SG D KSG^ONCOCRC D "RTN","ONCOTN",217,0) .I STGIND="C" D CSSG^ONCOCRC Q "RTN","ONCOTN",218,0) .I STGIND="P" D PSSG^ONCOCRC Q "RTN","ONCOTN",219,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",220,0) EX Q "RTN","ONCOTN",221,0) ; "RTN","ONCOTN",222,0) CTNM88 ;CLINICAL TNM 88 "RTN","ONCOTN",223,0) S $P(^ONCO(165.5,D0,2),U,25)=88 "RTN","ONCOTN",224,0) S $P(^ONCO(165.5,D0,2),U,26)=88 "RTN","ONCOTN",225,0) S $P(^ONCO(165.5,D0,2),U,27)=88 "RTN","ONCOTN",226,0) W !,"CLINICAL T: T88 NA" "RTN","ONCOTN",227,0) W !,"CLINICAL N: N88 NA" "RTN","ONCOTN",228,0) W !,"CLINICAL M: M88 NA",! "RTN","ONCOTN",229,0) Q "RTN","ONCOTN",230,0) ; "RTN","ONCOTN",231,0) CSB I DATEDX>2951231 D "RTN","ONCOTN",232,0) .S $P(^ONCO(165.5,D0,3),U,32)=0 "RTN","ONCOTN",233,0) .W !,"STAGED BY (CLINICAL STAGE): Not staged",! "RTN","ONCOTN",234,0) Q "RTN","ONCOTN",235,0) ; "RTN","ONCOTN",236,0) PTNM88 ;PATHOLOGIC TNM 88 "RTN","ONCOTN",237,0) S $P(^ONCO(165.5,D0,7),U,17)="N" "RTN","ONCOTN",238,0) S $P(^ONCO(165.5,D0,2.1),U,1)=88 "RTN","ONCOTN",239,0) S $P(^ONCO(165.5,D0,2.1),U,2)=88 "RTN","ONCOTN",240,0) S $P(^ONCO(165.5,D0,2.1),U,3)=88 "RTN","ONCOTN",241,0) W !,"MULTIMODALITY THERAPY (PATH): NO" "RTN","ONCOTN",242,0) W !,"PATHOLOGIC T: T88 NA" "RTN","ONCOTN",243,0) W !,"PATHOLOGIC N: N88 NA" "RTN","ONCOTN",244,0) W !,"PATHOLOGIC M: M88 NA",! "RTN","ONCOTN",245,0) Q "RTN","ONCOTN",246,0) ; "RTN","ONCOTN",247,0) PSB I DATEDX>2951231 D "RTN","ONCOTN",248,0) .S $P(^ONCO(165.5,D0,2.1),U,5)=0 "RTN","ONCOTN",249,0) .W !,"STAGED BY (PATHOLOGIC STAGE): Not staged",! "RTN","ONCOTN",250,0) Q "RTN","ONCOTN",251,0) ; "RTN","ONCOTN",252,0) CSTG88 ;CLINICAL STAGE 88 "RTN","ONCOTN",253,0) S $P(^ONCO(165.5,D0,2),U,20)=88 "RTN","ONCOTN",254,0) W !,"CLINICAL STAGE GROUP: NA",! "RTN","ONCOTN",255,0) S TMP=$G(X),X=88 D CSSG^ONCOCRC S X=TMP "RTN","ONCOTN",256,0) Q "RTN","ONCOTN",257,0) ; "RTN","ONCOTN",258,0) PSTG88 ;PATHOLOGIC STAGE 88 "RTN","ONCOTN",259,0) S $P(^ONCO(165.5,D0,2.1),U,4)=88 "RTN","ONCOTN",260,0) W !,"PATHOLOGIC STAGE GROUP: NA",! "RTN","ONCOTN",261,0) S TMP=$G(X),X=88 D PSSG^ONCOCRC S X=TMP "RTN","ONCOTN",262,0) Q "RTN","ONCOTNS") 0^19^B18411275 "RTN","ONCOTNS",1,0) ONCOTNS ;Hines OIFO/GWB,RTK - AJCC TNM STAGING ;8/26/93 "RTN","ONCOTNS",2,0) ;;2.11;ONCOLOGY;**6,7,11,13,28,36,37**;Mar 07, 1995 "RTN","ONCOTNS",3,0) ;CLINICAL STAGE GROUP (165.5,38) "RTN","ONCOTNS",4,0) ;PATHOLOGIC STAGE GROUP (165.5,88) "RTN","ONCOTNS",5,0) ;OTHER STAGE GROUP (165.5,117) "RTN","ONCOTNS",6,0) ; "RTN","ONCOTNS",7,0) IN ;Input transform "RTN","ONCOTNS",8,0) N ONCOS S ONCOS=$P($G(^ONCO(165.5,D0,0)),U,1) "RTN","ONCOTNS",9,0) N ONCOH S ONCOH=$$HIST^ONCFUNC(D0) "RTN","ONCOTNS",10,0) I STGIND="X" G IN1 "RTN","ONCOTNS",11,0) I $$LYMPHOMA^ONCFUNC(D0)!(ONCOS=62)!(ONCOS=63) D "RTN","ONCOTNS",12,0) .S STGIND="L" "RTN","ONCOTNS",13,0) ; "RTN","ONCOTNS",14,0) IN1 S DIC="^ONCO(164.45,",DIC(0)="EMQ",DIC("S")="I $P(^(0),U,3)[STGIND" "RTN","ONCOTNS",15,0) D ^DIC "RTN","ONCOTNS",16,0) I (X["(A)")!(X["(B)") D "RTN","ONCOTNS",17,0) .W !!,"Enter systemic symptom suffixes at the LYMPH NODES prompt." "RTN","ONCOTNS",18,0) I Y=-1 K X Q "RTN","ONCOTNS",19,0) S X=$P(^ONCO(164.45,+Y,0),U,2) "RTN","ONCOTNS",20,0) Q "RTN","ONCOTNS",21,0) ; "RTN","ONCOTNS",22,0) INNUM S X=$S(X["NA":88,X["Unk":99,X["Occ":"0C",X="0a":"0A",X="0is":"0S",1:X) "RTN","ONCOTNS",23,0) I X="IIIE+S" S X="3ES" Q "RTN","ONCOTNS",24,0) I X="V" S X=5 Q "RTN","ONCOTNS",25,0) I $E(X,1,2)="IV" S X=4_$E(X,3) Q "RTN","ONCOTNS",26,0) I $E(X,1,3)="III" S X=3_$E(X,4) Q "RTN","ONCOTNS",27,0) I $E(X,1,2)="II" S X=2_$E(X,3) Q "RTN","ONCOTNS",28,0) I $E(X,1)="I" S X=1_$E(X,2) Q "RTN","ONCOTNS",29,0) Q "RTN","ONCOTNS",30,0) ; "RTN","ONCOTNS",31,0) HP ;HELP "RTN","ONCOTNS",32,0) N ONCOI,ONCOX,ONCOXS,ONCOH,ONCOS,SG1,SG2,SGT "RTN","ONCOTNS",33,0) S ONCOI=0,ONCOXS="" "RTN","ONCOTNS",34,0) I STGIND="X" G HP1 "RTN","ONCOTNS",35,0) N ONCOS S ONCOS=$P($G(^ONCO(165.5,D0,0)),U,1) "RTN","ONCOTNS",36,0) N ONCOH S ONCOH=$$HIST^ONCFUNC(D0) "RTN","ONCOTNS",37,0) I $$LYMPHOMA^ONCFUNC(D0)!(ONCOS=62)!(ONCOS=63) D "RTN","ONCOTNS",38,0) .S STGIND="L" "RTN","ONCOTNS",39,0) HP1 W !,"Select one of the following:",! "RTN","ONCOTNS",40,0) F S ONCOXS=$O(^ONCO(164.45,"B",ONCOXS)) Q:ONCOXS="" D "RTN","ONCOTNS",41,0) .S ONCOI=$O(^ONCO(164.45,"B",ONCOXS,0)),ONCOX=^ONCO(164.45,ONCOI,0) "RTN","ONCOTNS",42,0) .S SG1=$P(ONCOX,U,1),SG2=$P(ONCOX,U,2),SGT=$P(ONCOX,U,3) "RTN","ONCOTNS",43,0) .W:SGT[STGIND !?5,SG1,?10,SG2 "RTN","ONCOTNS",44,0) Q "RTN","ONCOTNS",45,0) OT ;Output transform "RTN","ONCOTNS",46,0) I Y'="" D "RTN","ONCOTNS",47,0) .S STG=$O(^ONCO(164.45,"B",Y,"")) "RTN","ONCOTNS",48,0) .I STG'="" S Y=$P($G(^ONCO(164.45,STG,0)),U,2) "RTN","ONCOTNS",49,0) .S ONCS=$P($G(^ONCO(165.5,D0,0)),U,1) "RTN","ONCOTNS",50,0) .S ONCH=$$HIST^ONCFUNC(D0) "RTN","ONCOTNS",51,0) .I $$LYMPHOMA^ONCFUNC(D0)!(ONCS=62)!(ONCS=63) D "RTN","ONCOTNS",52,0) ..S SSIN=$P($G(^ONCO(165.5,D0,2)),U,11),SSOT="" "RTN","ONCOTNS",53,0) ..I SSIN=0 S SSOT="(A)" "RTN","ONCOTNS",54,0) ..I (SSIN=1)!(SSIN=2)!(SSIN=3) S SSOT="(B)" "RTN","ONCOTNS",55,0) ..I SSIN'=9 S Y=Y_" "_SSOT "RTN","ONCOTNS",56,0) K STG,ONCS,ONCH,SSIN,SSOT Q "RTN","ONCOTNS",57,0) RS S XX=$G(^ONCO(165.5,D0,2)),TX=$P(XX,U) G EX:TX="",EX:$P(^ONCO(164,+TX,0),U,11)="" S N=$E(Y),N=$S(N=1:"I",N=2:"II",N=3:"III",N=4:"IV",1:N),Y=N_$E(Y,2,4),Y=Y_" (T"_$P(XX,U,25)_" N"_$P(XX,U,26)_" M"_$P(XX,U,27)_")" G EX "RTN","ONCOTNS",58,0) OT1 ;CODE TO SET COMPUTED FIELD AJCC STAGE (165.5,40) "RTN","ONCOTNS",59,0) S PATHSG=$P($G(^ONCO(165.5,D0,2.1)),U,4) "RTN","ONCOTNS",60,0) S PATHT=$P($G(^ONCO(165.5,D0,2.1)),U,1) "RTN","ONCOTNS",61,0) S PATHN=$P($G(^ONCO(165.5,D0,2.1)),U,2) "RTN","ONCOTNS",62,0) S PATHM=$P($G(^ONCO(165.5,D0,2.1)),U,3) "RTN","ONCOTNS",63,0) S CLINSG=$P($G(^ONCO(165.5,D0,2)),U,20) "RTN","ONCOTNS",64,0) S CLINT=$P($G(^ONCO(165.5,D0,2)),U,25) "RTN","ONCOTNS",65,0) S CLINN=$P($G(^ONCO(165.5,D0,2)),U,26) "RTN","ONCOTNS",66,0) S CLINM=$P($G(^ONCO(165.5,D0,2)),U,27) "RTN","ONCOTNS",67,0) S (AJSG,HIERT,HIERN,HIERM,HIERFLG)="" "RTN","ONCOTNS",68,0) S AJSG=PATHSG,HIERFLG="P" "RTN","ONCOTNS",69,0) I "88^99"[PATHSG,CLINSG<6,CLINSG'="" S AJSG=CLINSG,HIERFLG="C" "RTN","ONCOTNS",70,0) I PATHSG="",CLINSG'="" S AJSG=CLINSG,HIERFLG="C" "RTN","ONCOTNS",71,0) I "88^99"[PATHSG!(PATHSG="") D "RTN","ONCOTNS",72,0) .I CLINSG<6,CLINSG'="" Q "RTN","ONCOTNS",73,0) .I PATHT'="X",PATHT'=88,PATHT'="" Q "RTN","ONCOTNS",74,0) .I PATHN'="X",PATHN'=88,PATHN'="" Q "RTN","ONCOTNS",75,0) .I PATHM'="X",PATHM'=88,PATHM'="" Q "RTN","ONCOTNS",76,0) .I CLINT'="X",CLINT'=88,CLINT'="" S HIERFLG="C" Q "RTN","ONCOTNS",77,0) .I CLINN'="X",CLINN'=88,CLINN'="" S HIERFLG="C" Q "RTN","ONCOTNS",78,0) .I CLINM'="X",CLINM'=88,CLINM'="" S HIERFLG="C" Q "RTN","ONCOTNS",79,0) I HIERFLG="P" D "RTN","ONCOTNS",80,0) .S HIERT=$P($G(^ONCO(165.5,D0,2.1)),U,1) "RTN","ONCOTNS",81,0) .S HIERN=$P($G(^ONCO(165.5,D0,2.1)),U,2) "RTN","ONCOTNS",82,0) .S HIERM=$P($G(^ONCO(165.5,D0,2.1)),U,3) Q "RTN","ONCOTNS",83,0) I HIERFLG="C" D "RTN","ONCOTNS",84,0) .S HIERT=$P($G(^ONCO(165.5,D0,2)),U,25) "RTN","ONCOTNS",85,0) .S HIERN=$P($G(^ONCO(165.5,D0,2)),U,26) "RTN","ONCOTNS",86,0) .S HIERM=$P($G(^ONCO(165.5,D0,2)),U,27) "RTN","ONCOTNS",87,0) I AJSG'="" S Y=AJSG D OT S X=Y "RTN","ONCOTNS",88,0) K AJSG,CLINM,CLINN,CLINT,CLINSG,PATHM,PATHN,PATHT,PATHSG Q "RTN","ONCOTNS",89,0) ; "RTN","ONCOTNS",90,0) STGBY ;STAGED BY (165.5,40.2) "RTN","ONCOTNS",91,0) D OT1 "RTN","ONCOTNS",92,0) I HIERFLG'="" S Y=$S(HIERFLG="C":$P($G(^ONCO(165.5,D0,3)),U,32),1:$P($G(^ONCO(165.5,D0,2.1)),U,5)) "RTN","ONCOTNS",93,0) D STGBOT S X=Y "RTN","ONCOTNS",94,0) Q "RTN","ONCOTNS",95,0) ; "RTN","ONCOTNS",96,0) STGBOT ;STAGED BY (165.5,40.2) OUTPUT TRANSFORM "RTN","ONCOTNS",97,0) I Y'="" D "RTN","ONCOTNS",98,0) .I Y=0 S Y="Not staged" Q "RTN","ONCOTNS",99,0) .I Y=1 S Y="Managing MD" Q "RTN","ONCOTNS",100,0) .I Y=2 S Y="Pathologist" Q "RTN","ONCOTNS",101,0) .I Y=3 S Y="Pathologist & managing MD" Q "RTN","ONCOTNS",102,0) .I Y=4 S Y="Committee chair, liaison MD, registry advisor" Q "RTN","ONCOTNS",103,0) .I Y=5 S Y="Registrar" Q "RTN","ONCOTNS",104,0) .I Y=6 S Y="Registrar & MD" Q "RTN","ONCOTNS",105,0) .I Y=7 S Y="Another facility" Q "RTN","ONCOTNS",106,0) .I Y=8 S Y="NA" Q "RTN","ONCOTNS",107,0) .I Y=9 S Y="Unknown" Q "RTN","ONCOTNS",108,0) Q "RTN","ONCOTNS",109,0) ; "RTN","ONCOTNS",110,0) TR ;Translate code "RTN","ONCOTNS",111,0) S XS=$P(XX,U,20),XG=$P(XX,U,28),X=XG_$E(XS,2,5) "RTN","ONCOTNS",112,0) EX ;EXIT "RTN","ONCOTNS",113,0) K ST,SC,XD0,ONCOX,XX,ONCOYR "RTN","ONCPAT") 0^21^B30886448 "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**;Mar 07, 1995 "RTN","ONCPAT",3,0) W ! "RTN","ONCPAT",4,0) K DR "RTN","ONCPAT",5,0) S DIE="^ONCO(160,",DA=ONCOD0,DR="" "RTN","ONCPAT",6,0) S DR(1,160,1)="7 PLACE OF BIRTH............." "RTN","ONCPAT",7,0) S DR(1,160,2)="8 RACE 1.....................//^S X=RACE" "RTN","ONCPAT",8,0) S DR(1,160,3)="I X'=99 S Y=""@81""" "RTN","ONCPAT",9,0) S DR(1,160,4)="8.1////99" "RTN","ONCPAT",10,0) S DR(1,160,5)="8.2////99" "RTN","ONCPAT",11,0) S DR(1,160,6)="8.3////99" "RTN","ONCPAT",12,0) S DR(1,160,7)="8.4////99" "RTN","ONCPAT",13,0) S DR(1,160,8)="W !,"" RACE 2.....................: Unknown""" "RTN","ONCPAT",14,0) S DR(1,160,9)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",15,0) S DR(1,160,10)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",16,0) S DR(1,160,11)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",17,0) S DR(1,160,12)="S Y=9" "RTN","ONCPAT",18,0) S DR(1,160,13)="@81" "RTN","ONCPAT",19,0) S DR(1,160,14)="8.1 RACE 2.....................//NA" "RTN","ONCPAT",20,0) S DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")" "RTN","ONCPAT",21,0) S DR(1,160,16)="@8288" "RTN","ONCPAT",22,0) S DR(1,160,17)="8.2////88" "RTN","ONCPAT",23,0) S DR(1,160,18)="8.3////88" "RTN","ONCPAT",24,0) S DR(1,160,19)="8.4////88" "RTN","ONCPAT",25,0) S DR(1,160,20)="W !,"" RACE 3.....................: NA""" "RTN","ONCPAT",26,0) S DR(1,160,21)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",27,0) S DR(1,160,22)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",28,0) S DR(1,160,23)="S Y=9" "RTN","ONCPAT",29,0) S DR(1,160,24)="@8299" "RTN","ONCPAT",30,0) S DR(1,160,25)="8.2////99" "RTN","ONCPAT",31,0) S DR(1,160,26)="8.3////99" "RTN","ONCPAT",32,0) S DR(1,160,27)="8.4////99" "RTN","ONCPAT",33,0) S DR(1,160,28)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",34,0) S DR(1,160,29)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",35,0) S DR(1,160,30)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",36,0) S DR(1,160,31)="S Y=9" "RTN","ONCPAT",37,0) S DR(1,160,32)="@8200" "RTN","ONCPAT",38,0) S DR(1,160,33)="8.2////@" "RTN","ONCPAT",39,0) S DR(1,160,34)="8.3////@" "RTN","ONCPAT",40,0) S DR(1,160,35)="8.4////@" "RTN","ONCPAT",41,0) S DR(1,160,36)="W !,"" RACE 3.....................:""" "RTN","ONCPAT",42,0) S DR(1,160,37)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",43,0) S DR(1,160,38)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",44,0) S DR(1,160,39)="S Y=9" "RTN","ONCPAT",45,0) S DR(1,160,40)="@82" "RTN","ONCPAT",46,0) S DR(1,160,41)="8.2 RACE 3.....................//NA" "RTN","ONCPAT",47,0) S DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")" "RTN","ONCPAT",48,0) S DR(1,160,43)="@8388" "RTN","ONCPAT",49,0) S DR(1,160,44)="8.3////88" "RTN","ONCPAT",50,0) S DR(1,160,45)="8.4////88" "RTN","ONCPAT",51,0) S DR(1,160,46)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",52,0) S DR(1,160,47)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",53,0) S DR(1,160,48)="S Y=9" "RTN","ONCPAT",54,0) S DR(1,160,49)="@8399" "RTN","ONCPAT",55,0) S DR(1,160,50)="8.3////99" "RTN","ONCPAT",56,0) S DR(1,160,51)="8.4////99" "RTN","ONCPAT",57,0) S DR(1,160,52)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",58,0) S DR(1,160,53)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",59,0) S DR(1,160,54)="S Y=9" "RTN","ONCPAT",60,0) S DR(1,160,55)="@8300" "RTN","ONCPAT",61,0) S DR(1,160,56)="8.3////@" "RTN","ONCPAT",62,0) S DR(1,160,57)="8.4////@" "RTN","ONCPAT",63,0) S DR(1,160,58)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",64,0) S DR(1,160,59)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",65,0) S DR(1,160,60)="S Y=9" "RTN","ONCPAT",66,0) S DR(1,160,61)="@83" "RTN","ONCPAT",67,0) S DR(1,160,62)="8.3 RACE 4.....................//NA" "RTN","ONCPAT",68,0) S DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")" "RTN","ONCPAT",69,0) S DR(1,160,64)="@8488" "RTN","ONCPAT",70,0) S DR(1,160,65)="8.4////88" "RTN","ONCPAT",71,0) S DR(1,160,66)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",72,0) S DR(1,160,67)="S Y=9" "RTN","ONCPAT",73,0) S DR(1,160,68)="@8499" "RTN","ONCPAT",74,0) S DR(1,160,69)="8.4////99" "RTN","ONCPAT",75,0) S DR(1,160,70)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",76,0) S DR(1,160,71)="S Y=9" "RTN","ONCPAT",77,0) S DR(1,160,72)="@8400" "RTN","ONCPAT",78,0) S DR(1,160,73)="8.4////@" "RTN","ONCPAT",79,0) S DR(1,160,74)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",80,0) S DR(1,160,75)="S Y=9" "RTN","ONCPAT",81,0) S DR(1,160,76)="@84" "RTN","ONCPAT",82,0) S DR(1,160,77)="8.4 RACE 5.....................//NA" "RTN","ONCPAT",83,0) S DR(1,160,78)="9 SPANISH ORIGIN.............//^S X=""Non-Spanish, non-Hispanic""" "RTN","ONCPAT",84,0) S DR(1,160,79)="10 SEX........................" "RTN","ONCPAT",85,0) S DR(1,160,80)="48 AGENT ORANGE EXPOSURE......//^S X=AOE" "RTN","ONCPAT",86,0) S DR(1,160,81)="50 IONIZING RADIATION EXPOSURE//^S X=IRE" "RTN","ONCPAT",87,0) S DR(1,160,82)="52 CHEMICAL EXPOSURE.........." "RTN","ONCPAT",88,0) S DR(1,160,83)="61 ASBESTOS EXPOSURE.........." "RTN","ONCPAT",89,0) S DR(1,160,84)="51 PERSIAN GULF SERVICE.......//^S X=PGS" "RTN","ONCPAT",90,0) S DR(1,160,84.1)="55 MIDDLE EAST SERVICE........//^S X=MES" "RTN","ONCPAT",91,0) S DR(1,160,84.2)="56 SOMALIA SERVICE............//^S X=SS" "RTN","ONCPAT",92,0) S DR(1,160,85)="25 COMORBIDITY/COMPLICATION #1" "RTN","ONCPAT",93,0) S DR(1,160,86)="I X'="""" S Y=""@251""" "RTN","ONCPAT",94,0) S DR(1,160,87)="25.1////@" "RTN","ONCPAT",95,0) S DR(1,160,88)="25.2////@" "RTN","ONCPAT",96,0) S DR(1,160,89)="25.3////@" "RTN","ONCPAT",97,0) S DR(1,160,90)="25.4////@" "RTN","ONCPAT",98,0) S DR(1,160,91)="25.5////@" "RTN","ONCPAT",99,0) S DR(1,160,92)="W !,"" COMORBIDITY/COMPLICATION #2:""" "RTN","ONCPAT",100,0) S DR(1,160,93)="W !,"" COMORBIDITY/COMPLICATION #3:""" "RTN","ONCPAT",101,0) S DR(1,160,94)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",102,0) S DR(1,160,95)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",103,0) S DR(1,160,96)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",104,0) S DR(1,160,97)="S Y=""@99""" "RTN","ONCPAT",105,0) S DR(1,160,98)="@251" "RTN","ONCPAT",106,0) S DR(1,160,99)="25.1 COMORBIDITY/COMPLICATION #2" "RTN","ONCPAT",107,0) S DR(1,160,100)="I X'="""" S Y=""@252""" "RTN","ONCPAT",108,0) S DR(1,160,101)="25.2////@" "RTN","ONCPAT",109,0) S DR(1,160,102)="25.3////@" "RTN","ONCPAT",110,0) S DR(1,160,103)="25.4////@" "RTN","ONCPAT",111,0) S DR(1,160,104)="25.5////@" "RTN","ONCPAT",112,0) S DR(1,160,105)="W !,"" COMORBIDITY/COMPLICATION #3:""" "RTN","ONCPAT",113,0) S DR(1,160,106)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",114,0) S DR(1,160,107)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",115,0) S DR(1,160,108)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",116,0) S DR(1,160,109)="S Y=""@99""" "RTN","ONCPAT",117,0) S DR(1,160,110)="@252" "RTN","ONCPAT",118,0) S DR(1,160,111)="25.2 COMORBIDITY/COMPLICATION #3" "RTN","ONCPAT",119,0) S DR(1,160,112)="I X'="""" S Y=""@253""" "RTN","ONCPAT",120,0) S DR(1,160,113)="25.3////@" "RTN","ONCPAT",121,0) S DR(1,160,114)="25.4////@" "RTN","ONCPAT",122,0) S DR(1,160,115)="25.5////@" "RTN","ONCPAT",123,0) S DR(1,160,116)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",124,0) S DR(1,160,117)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",125,0) S DR(1,160,118)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",126,0) S DR(1,160,119)="S Y=""@99""" "RTN","ONCPAT",127,0) S DR(1,160,120)="@253" "RTN","ONCPAT",128,0) S DR(1,160,121)="25.3 COMORBIDITY/COMPLICATION #4" "RTN","ONCPAT",129,0) S DR(1,160,122)="I X'="""" S Y=""@254""" "RTN","ONCPAT",130,0) S DR(1,160,123)="25.4////@" "RTN","ONCPAT",131,0) S DR(1,160,124)="25.5////@" "RTN","ONCPAT",132,0) S DR(1,160,125)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",133,0) S DR(1,160,126)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",134,0) S DR(1,160,127)="S Y=""@99""" "RTN","ONCPAT",135,0) S DR(1,160,128)="@254" "RTN","ONCPAT",136,0) S DR(1,160,129)="25.4 COMORBIDITY/COMPLICATION #5" "RTN","ONCPAT",137,0) S DR(1,160,130)="I X'="""" S Y=""@255""" "RTN","ONCPAT",138,0) S DR(1,160,131)="25.5////@" "RTN","ONCPAT",139,0) S DR(1,160,132)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",140,0) S DR(1,160,133)="S Y=""@99""" "RTN","ONCPAT",141,0) S DR(1,160,134)="@255" "RTN","ONCPAT",142,0) S DR(1,160,135)="25.5 COMORBIDITY/COMPLICATION #6" "RTN","ONCPAT",143,0) S DR(1,160,136)="@99" "RTN","ONCPAT",144,0) D ^DIE "RTN","ONCPAT",145,0) K DR "RTN","ONCPAT",146,0) Q "RTN","ONCPDI") 0^8^B6805296 "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**;Mar 07, 1995 "RTN","ONCPDI",3,0) PRT N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPDI",4,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;48;50;51;52;61;55;56" "RTN","ONCPDI",5,0) S DA=D0,DIQ="ONC" "RTN","ONCPDI",6,0) D EN^DIQ1 "RTN","ONCPDI",7,0) F I=7,8,8.1,8.2,8.3,8.4,9,10,48,50,51,52,61,55,56 S X=ONC(160,D0,I) D UCASE^ONCPCI S ONC(160,D0,I)=X "RTN","ONCPDI",8,0) W ! "RTN","ONCPDI",9,0) W !," Place of birth.............: ",ONC(160,D0,7) "RTN","ONCPDI",10,0) W !," Race 1.....................: ",ONC(160,D0,8) "RTN","ONCPDI",11,0) W !," Race 2.....................: ",ONC(160,D0,8.1) "RTN","ONCPDI",12,0) W !," Race 3.....................: ",ONC(160,D0,8.2) "RTN","ONCPDI",13,0) W !," Race 4.....................: ",ONC(160,D0,8.3) "RTN","ONCPDI",14,0) W !," Race 5.....................: ",ONC(160,D0,8.4) "RTN","ONCPDI",15,0) W !," Spanish origin.............: ",ONC(160,D0,9) "RTN","ONCPDI",16,0) W !," Sex........................: ",ONC(160,D0,10) "RTN","ONCPDI",17,0) W !," Agent Orange exposure......: ",ONC(160,D0,48) "RTN","ONCPDI",18,0) W !," Ionizing radiation exposure: ",ONC(160,D0,50) "RTN","ONCPDI",19,0) W !," Chemical exposure..........: ",ONC(160,D0,52) "RTN","ONCPDI",20,0) W !," Asbestos exposure..........: ",ONC(160,D0,61) "RTN","ONCPDI",21,0) W !," Persian Gulf service.......: ",ONC(160,D0,51) "RTN","ONCPDI",22,0) W !," Middle East service........: ",ONC(160,D0,55) "RTN","ONCPDI",23,0) W !," Somalia service............: ",ONC(160,D0,56) "RTN","ONCPDI",24,0) W !," Comorbidity/Complication #1: ",ONC(160,D0,25) "RTN","ONCPDI",25,0) W !," Comorbidity/Complication #2: ",ONC(160,D0,25.1) "RTN","ONCPDI",26,0) W !," Comorbidity/Complication #3: ",ONC(160,D0,25.2) "RTN","ONCPDI",27,0) W !," Comorbidity/complication #4: ",ONC(160,D0,25.3) "RTN","ONCPDI",28,0) W !," Comorbidity/Complication #5: ",ONC(160,D0,25.4) "RTN","ONCPDI",29,0) W !," Comorbidity/Complication #6: ",ONC(160,D0,25.5) "RTN","ONCPDI",30,0) Q "RTN","ONCPDI",31,0) PH ;Patient History "RTN","ONCPDI",32,0) K ONC S IEN=D0_"," "RTN","ONCPDI",33,0) D GETS^DIQ(160,IEN,"38;39;42*;43;44*","","ONC") "RTN","ONCPDI",34,0) F I=38,39,43 S X=ONC(160,D0_",",I) D UCASE^ONCPCI S ONC(160,D0_",",I)=X "RTN","ONCPDI",35,0) W @IOF "RTN","ONCPDI",36,0) S SUB=0 F S SUB=$O(ONC(160.042,SUB)) Q:SUB'>0 D "RTN","ONCPDI",37,0) .W !," Usual Occupation...........: ",ONC(160.042,SUB,.01) "RTN","ONCPDI",38,0) .W !," Usual Industry.............: ",ONC(160.042,SUB,3) "RTN","ONCPDI",39,0) .W ! "RTN","ONCPDI",40,0) W !," Tobacco History............: ",ONC(160,IEN,38) "RTN","ONCPDI",41,0) W !," Alcohol History............: ",ONC(160,IEN,39) "RTN","ONCPDI",42,0) W ! "RTN","ONCPDI",43,0) W !," Family History of Cancer...: ",ONC(160,IEN,43) "RTN","ONCPDI",44,0) S SUB=0 F S SUB=$O(ONC(160.044,SUB)) Q:SUB'>0 D "RTN","ONCPDI",45,0) .W !," Family Member with Cancer..: ",ONC(160.044,SUB,.01),?50,"(",ONC(160.044,SUB,1),")" "RTN","ONCPDI",46,0) W ! "RTN","ONCPDI",47,0) K ONC,IEN,SUB "RTN","ONCPDI",48,0) Q "RTN","ONCPRE37") 0^1^B108671 "RTN","ONCPRE37",1,0) ONCPRE37 ;Hines OIFO/GWB - PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*37 "RTN","ONCPRE37",2,0) ;;2.11;ONCOLOGY;**37**;Mar 07, 1995 "RTN","ONCPRE37",3,0) ; "RTN","ONCPRE37",4,0) ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data "RTN","ONCPRE37",5,0) ;Data will be restored by the install "RTN","ONCPRE37",6,0) K ^ONCO(160.16) "RTN","ONCPRE37",7,0) ; "RTN","ONCPRE37",8,0) ;NOIS POR-0803-50617 (No line error) "RTN","ONCPRE37",9,0) ;Delete RADIATION THERAPY TO CNS (165.5,52.2) to remove AL "RTN","ONCPRE37",10,0) ;cross-reference "RTN","ONCPRE37",11,0) ;It will be re-established by the install "RTN","ONCPRE37",12,0) S DIK="^DD(165.5,",DA=52.2,DA(1)=165.5 D ^DIK "RTN","ONCPRE37",13,0) ; "RTN","ONCPRE37",14,0) Q "RTN","ONCPST37") 0^3^B3300335 "RTN","ONCPST37",1,0) ONCPST37 ;Hines OIFO/GWB - POST-INSTALL ROUTINE FOR PATCH ONC*2.11*37 "RTN","ONCPST37",2,0) ;;2.11;ONCOLOGY;**37**;Mar 07, 1995 "RTN","ONCPST37",3,0) ; "RTN","ONCPST37",4,0) K DIE S DA(1)=100,DIE="^ONCO(160.17,"_DA(1)_",""FIELD""," "RTN","ONCPST37",5,0) S DA=1 "RTN","ONCPST37",6,0) S DR=".01///1447;2///1946" D ^DIE "RTN","ONCPST37",7,0) ; "RTN","ONCPST37",8,0) ITEM1 ;NOIS NYH-0503-10540 (Data Submission Error re: Annual Call for Data) "RTN","ONCPST37",9,0) S IEN=0 "RTN","ONCPST37",10,0) F I=1:1 S IEN=$O(^ONCO(160.19,IEN)) Q:IEN'>0 S IIN=$P(^ONCO(160.19,IEN,0),U,1) I $L(IIN)=6 D "RTN","ONCPST37",11,0) .S DIE="^ONCO(160.19," "RTN","ONCPST37",12,0) .S DA=IEN "RTN","ONCPST37",13,0) .S NEWIIN=$S(IIN="000000":"00000000",IIN=999999:9999999,1:6_IIN) "RTN","ONCPST37",14,0) .S DR=".01///^S X=NEWIIN" D ^DIE "RTN","ONCPST37",15,0) .D ^DIE "RTN","ONCPST37",16,0) K IEN,I,IIN,DIE,DA,NEWIIN,DR "RTN","ONCPST37",17,0) ; "RTN","ONCPST37",18,0) ITEM3 ;Delete YEARS IN OCCUPATION (160.042,1) and "RTN","ONCPST37",19,0) ; LAST DATE IN OCCUPATION (160.042,2) "RTN","ONCPST37",20,0) ;Delete Data Dictionary and data "RTN","ONCPST37",21,0) ;S DIK="^DD(160.042,",DA=1,DA(1)=160.042 D ^DIK "RTN","ONCPST37",22,0) ;S DIK="^DD(160.042,",DA=2,DA(1)=160.042 D ^DIK "RTN","ONCPST37",23,0) ;F ONCIEN=0:0 S ONCIEN=$O(^ONCO(160,ONCIEN)) Q:ONCIEN'>0 D "RTN","ONCPST37",24,0) ;.I ONCIEN#500=0 W "." "RTN","ONCPST37",25,0) ;.F ONCOCC=0:0 S ONCOCC=$O(^ONCO(160,ONCIEN,7,ONCOCC)) Q:ONCOCC'>0 S $P(^ONCO(160,ONCIEN,7,ONCOCC,0),U,2)="",$P(^ONCO(160,ONCIEN,7,ONCOCC,0),U,3)="" "RTN","ONCPST37",26,0) ;K DIK,DA,ONCIEN,ONCOCC "RTN","ONCPST37",27,0) ; "RTN","ONCPST37",28,0) ITEM5 ;Create new entry SACRAMENTO VA HCS in FACILITY (160.19) file "RTN","ONCPST37",29,0) ;Change the NAME (160.19,.02) of MARION MEMORIAL HOSPITAL to HEARTLAND "RTN","ONCPST37",30,0) ;REGIONAL MEDICAL CENTER "RTN","ONCPST37",31,0) I '$D(^ONCO(160.19,"B",6340185)) D "RTN","ONCPST37",32,0) .K DD,DO "RTN","ONCPST37",33,0) .S DIC="^ONCO(160.19,",DIC(0)="L" "RTN","ONCPST37",34,0) .S DIC("DR")=".02///SACRAMENTO VA HCS;.03///SACRAMENTO;.04///CA" "RTN","ONCPST37",35,0) .S X=6340185 D FILE^DICN "RTN","ONCPST37",36,0) S DIC="^ONCO(160.19,",X=6432165 D ^DIC "RTN","ONCPST37",37,0) I Y'=-1 S DIE="^ONCO(160.19,",DA=+Y,DR=".02///HEARTLAND REGIONAL MEDICAL CENTER" D ^DIE "RTN","ONCPST37",38,0) K DIC,X,Y,DIE,DR,DA "RTN","ONCPST37",39,0) ; "RTN","ONCPST37",40,0) MISC S DIC="^ONCO(164.7,",X=60 D ^DIC "RTN","ONCPST37",41,0) I Y'=-1 S DIE="^ONCO(164.7,",DA=+Y,DR="1///Lymph node region, NOS" D ^DIE "RTN","ONCPST37",42,0) K DIC,X,Y,DIE,DR,DA "RTN","ONCPST37",43,0) ; "RTN","ONCPST37",44,0) ;Delete REASON FOR NO CHEMOTHERAPY (165.5,36) and "RTN","ONCPST37",45,0) ; REASON FOR NO HORMONE THERAPY (165.5,37) data "RTN","ONCPST37",46,0) S CT=0 F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D "RTN","ONCPST37",47,0) .S CT=CT+1 I CT#100=0 W "." "RTN","ONCPST37",48,0) .I '$D(^ONCO(165.5,IEN,3)) Q "RTN","ONCPST37",49,0) .S $P(^ONCO(165.5,IEN,3),U,36)="" "RTN","ONCPST37",50,0) .S $P(^ONCO(165.5,IEN,3),U,37)="" "RTN","ONCPTHST") 0^7^B2960275 "RTN","ONCPTHST",1,0) ONCPTHST ;Hines OIFO/GWB - PATIENT HISTORY ;03/08/02 "RTN","ONCPTHST",2,0) ;;2.11;ONCOLOGY;**33,34,37**;Mar 07, 1995 "RTN","ONCPTHST",3,0) K DR "RTN","ONCPTHST",4,0) S DIE="^ONCO(160,",DA=ONCOD0,DR="" "RTN","ONCPTHST",5,0) S DR(1,160,1)="42" "RTN","ONCPTHST",6,0) S DR(2,160.042)="S X=X" "RTN","ONCPTHST",7,0) S DR(2,160.042,1)=".01 USUAL OCCUPATION..........." "RTN","ONCPTHST",8,0) S DR(2,160.042,4)="3 USUAL INDUSTRY............." "RTN","ONCPTHST",9,0) S DR(1,160,2)="W !" "RTN","ONCPTHST",10,0) S DR(1,160,3)="38 TOBACCO HISTORY............" "RTN","ONCPTHST",11,0) S DR(1,160,4)="I X'=""Y"" K ^ONCO(160,D0,5) S Y=39" "RTN","ONCPTHST",12,0) S DR(1,160,5)="W !" "RTN","ONCPTHST",13,0) S DR(1,160,6)="40" "RTN","ONCPTHST",14,0) S DR(2,160.02)="S X=X" "RTN","ONCPTHST",15,0) S DR(2,160.02,1)=".01 TYPE OF TOBACCO USER......." "RTN","ONCPTHST",16,0) S DR(2,160.02,2)="1 PACK-YEARS................." "RTN","ONCPTHST",17,0) S DR(2,160.02,3)="2 YR QUIT TOBACCO USE........" "RTN","ONCPTHST",18,0) S DR(1,160,7)="W !" "RTN","ONCPTHST",19,0) S DR(1,160,8)="39 ALCOHOL HISTORY............" "RTN","ONCPTHST",20,0) S DR(1,160,9)="I X'=""Y"" K ^ONCO(160,D0,6) S Y=43" "RTN","ONCPTHST",21,0) S DR(1,160,10)="W !" "RTN","ONCPTHST",22,0) S DR(1,160,11)="41" "RTN","ONCPTHST",23,0) S DR(2,160.041)="S X=X" "RTN","ONCPTHST",24,0) S DR(2,160.041,1)=".01 TYPE OF ALCOHOL USER......." "RTN","ONCPTHST",25,0) S DR(2,160.041,2)="1 YRS OF ALCOHOL USE........." "RTN","ONCPTHST",26,0) S DR(2,160.041,3)="2 DRINKS PER DAY............." "RTN","ONCPTHST",27,0) S DR(2,160.041,4)="3 YR QUIT DRINKING..........." "RTN","ONCPTHST",28,0) S DR(1,160,12)="W !" "RTN","ONCPTHST",29,0) S DR(1,160,13)="43 FAMILY HISTORY OF CANCER..." "RTN","ONCPTHST",30,0) S DR(1,160,14)="I X=1 S Y=""@44""" "RTN","ONCPTHST",31,0) S DR(1,160,15)="K ^ONCO(160,DA,9)" "RTN","ONCPTHST",32,0) S DR(1,160,16)="S Y=""""" "RTN","ONCPTHST",33,0) S DR(1,160,17)="@44" "RTN","ONCPTHST",34,0) S DR(1,160,18)="W !" "RTN","ONCPTHST",35,0) S DR(1,160,19)="44" "RTN","ONCPTHST",36,0) S DR(2,160.044)="S X=X" "RTN","ONCPTHST",37,0) S DR(2,160.044,1)=".01 FAMILY MEMBER WITH CANCER.." "RTN","ONCPTHST",38,0) S DR(2,160.044,2)="1 CANCER....................." "RTN","ONCPTHST",39,0) D ^DIE "RTN","ONCPTHST",40,0) K DR "RTN","ONCPTHST",41,0) Q "RTN","ONCPTX") 0^29^B58340298 "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**;Mar 07, 1995 "RTN","ONCPTX",3,0) ; "RTN","ONCPTX",4,0) NCDS D FST^ONCOAIP "RTN","ONCPTX",5,0) S CC=$P($G(^ONCO(165.5,D0,0)),U,4) "RTN","ONCPTX",6,0) I CC=4 D "RTN","ONCPTX",7,0) .W !," **NOTE** CLASS OF CASE = 4 (Dx/1st tx before ref date)" "RTN","ONCPTX",8,0) .W !," The @FAC (at this facility) fields will be stuffed to" "RTN","ONCPTX",9,0) .W !," match the primary treatment fields." "RTN","ONCPTX",10,0) .W !,DASHES "RTN","ONCPTX",11,0) I (CC=0)!(CC=3)!(CC=6) D "RTN","ONCPTX",12,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",13,0) .W !," **NOTE** CLASS OF CASE = ",CCTXT "RTN","ONCPTX",14,0) .W !," The @FAC (at this facility) fields will be stuffed with the" "RTN","ONCPTX",15,0) .W !," appropriate value indicating that no treatment was given" "RTN","ONCPTX",16,0) .W !," at this facility." "RTN","ONCPTX",17,0) .W !,DASHES "RTN","ONCPTX",18,0) K CC,CCTXT "RTN","ONCPTX",19,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",20,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",21,0) S DR="58.1;58.3;58.4;58.5" "RTN","ONCPTX",22,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",23,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",24,0) W !," SURGICAL DIAGNOSTIC AND STAGING PROCEDURES" "RTN","ONCPTX",25,0) W !," ------------------------------------------" "RTN","ONCPTX",26,0) S TXT=ONC(165.5,D0,58.1),LEN=40 D TXT "RTN","ONCPTX",27,0) W !," Surgical Dx/Staging Proc.....: ",ONC(165.5,D0,58.3),?43,TXT1 "RTN","ONCPTX",28,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",29,0) S TXT=ONC(165.5,D0,58.4),LEN=40 D TXT "RTN","ONCPTX",30,0) I DATEDX>2971231 W !," Surg Dx/Staging Proc @fac....: ",ONC(165.5,D0,58.5),?43,TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",31,0) W !,DASHES "RTN","ONCPTX",32,0) Q "RTN","ONCPTX",33,0) ; "RTN","ONCPTX",34,0) ROADS ;SURGICAL PROCEDURES (ROADS) "RTN","ONCPTX",35,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",36,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",37,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",38,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",39,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",40,0) D FST^ONCOAIP "RTN","ONCPTX",41,0) W !," SURGICAL PROCEDURES (ROADS)" "RTN","ONCPTX",42,0) W !," Pre-2003 cases require the following ROADS surgery items to be coded:" "RTN","ONCPTX",43,0) W !," ---------------------------------------------------------------------" "RTN","ONCPTX",44,0) S TXT=ONC(165.5,D0,58.2),LEN=46 D TXT "RTN","ONCPTX",45,0) W !," Surgery of primary.........(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",46,0) W !," Surgical Approach..........(R): ",ONC(165.5,DA,74) "RTN","ONCPTX",47,0) S TXT=ONC(165.5,D0,50.2),LEN=46 D TXT "RTN","ONCPTX",48,0) W !," Surgery of primary @fac....(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",49,0) S TXT=ONC(165.5,D0,138),LEN=46 D TXT "RTN","ONCPTX",50,0) W !," Scope of ln surgery........(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",51,0) W !," Number of LN removed...... (R): ",ONC(165.5,D0,140) "RTN","ONCPTX",52,0) S TXT=ONC(165.5,D0,138.1),LEN=46 D TXT "RTN","ONCPTX",53,0) W !," Scope of ln surgery @fac...(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",54,0) W !," Number of LN removed @fac..(R): ",ONC(165.5,D0,140.1) "RTN","ONCPTX",55,0) S TXT=ONC(165.5,D0,139),LEN=46 D TXT "RTN","ONCPTX",56,0) W !," Surg proc/other site.......(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",57,0) S TXT=ONC(165.5,D0,139.1),LEN=46 D TXT "RTN","ONCPTX",58,0) W !," Surg proc/other site @fac..(R): ",TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",59,0) W !,DASHES "RTN","ONCPTX",60,0) Q "RTN","ONCPTX",61,0) ; "RTN","ONCPTX",62,0) FORDS ;SURGICAL PROCEDURES (FORDS) "RTN","ONCPTX",63,0) S TOPX=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCPTX",64,0) I (TOPX=67420)!(TOPX=67421)!(TOPX=67423)!(TOPX=67424)!($E(TOPX,3,4)=76)!(TOPX=67809) D "RTN","ONCPTX",65,0) .S $P(^ONCO(165.5,D0,3.1),U,29)=1 "RTN","ONCPTX",66,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",67,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",68,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",69,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",70,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",71,0) S DFSP=$$DS^ONCACDU2(D0) "RTN","ONCPTX",72,0) D FST^ONCOAIP "RTN","ONCPTX",73,0) W !," SURGICAL PROCEDURES (FORDS)" "RTN","ONCPTX",74,0) W !," ---------------------------" "RTN","ONCPTX",75,0) W !," Date of 1st Surgical Procedure: " W:DFSP'="" $E(DFSP,1,2)_"/"_$E(DFSP,3,4)_"/"_$E(DFSP,7,8) "RTN","ONCPTX",76,0) S TXT=ONC(165.5,D0,58.6),LEN=38 D TXT "RTN","ONCPTX",77,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",78,0) S TXT=ONC(165.5,D0,58.7),LEN=38 D TXT "RTN","ONCPTX",79,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",80,0) W !," Surgical margins..............: ",ONC(165.5,DA,59) "RTN","ONCPTX",81,0) S TXT=ONC(165.5,D0,138.4),LEN=38 D TXT "RTN","ONCPTX",82,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",83,0) S TXT=ONC(165.5,D0,138.5),LEN=38 D TXT "RTN","ONCPTX",84,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",85,0) S TXT=ONC(165.5,D0,139.4),LEN=38 D TXT "RTN","ONCPTX",86,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",87,0) S TXT=ONC(165.5,D0,139.5),LEN=38 D TXT "RTN","ONCPTX",88,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",89,0) S TXT=ONC(165.5,D0,23),LEN=38 D TXT "RTN","ONCPTX",90,0) W:DATEDX<3030000 !," Reconstruction/restoration....: ",?33,TXT1 W:TXT2'="" !,?33,TXT2 "RTN","ONCPTX",91,0) W !," Date of surgical discharge....: ",$E(ONC(165.5,D0,435),1,6)_$E(ONC(165.5,D0,435),9,10) "RTN","ONCPTX",92,0) W !," Readmission w/i 30 days/surg..: ",ONC(165.5,D0,14) "RTN","ONCPTX",93,0) W !," Reason for no surgery.........: ",ONC(165.5,D0,58) "RTN","ONCPTX",94,0) W !,DASHES "RTN","ONCPTX",95,0) Q "RTN","ONCPTX",96,0) ; "RTN","ONCPTX",97,0) RAD D FST^ONCOAIP "RTN","ONCPTX",98,0) W !," RADIATION" "RTN","ONCPTX",99,0) W !," ---------" "RTN","ONCPTX",100,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",101,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",102,0) S DR="51;51.2;51.3;51.4;51.5;56;75;125;126;363;442;363.1;443;361" "RTN","ONCPTX",103,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",104,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",105,0) W !," Radiation.....................: ",ONC(165.5,DA,51.2) "RTN","ONCPTX",106,0) W !," Date radiation started........: ",ONC(165.5,DA,51) "RTN","ONCPTX",107,0) W !," Radiation @fac................: ",ONC(165.5,DA,51.5)," ",ONC(165.5,DA,51.4) "RTN","ONCPTX",108,0) W !," Location of radiation tx......: ",ONC(165.5,DA,126) "RTN","ONCPTX",109,0) W !," Radiation treatment volume....: ",ONC(165.5,DA,125) "RTN","ONCPTX",110,0) W !," Regional treatment modality...: ",ONC(165.5,DA,363) "RTN","ONCPTX",111,0) W !," Regional dose:cGy.............: ",ONC(165.5,DA,442) "RTN","ONCPTX",112,0) W !," Boost treatment modality......: ",ONC(165.5,DA,363.1) "RTN","ONCPTX",113,0) W !," Boost dose:cGy................: ",ONC(165.5,DA,443) "RTN","ONCPTX",114,0) W !," Number of txs to this volume..: ",ONC(165.5,DA,56) "RTN","ONCPTX",115,0) W !," Radiation/surgery sequence....: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",116,0) W !," Date radiation ended..........: ",ONC(165.5,DA,361) "RTN","ONCPTX",117,0) W !," Reason for no radiation.......: ",ONC(165.5,DA,75) "RTN","ONCPTX",118,0) W !,DASHES "RTN","ONCPTX",119,0) Q "RTN","ONCPTX",120,0) ; "RTN","ONCPTX",121,0) ST D FST^ONCOAIP "RTN","ONCPTX",122,0) W !," SYSTEMIC THERAPY" "RTN","ONCPTX",123,0) W !," ----------------" "RTN","ONCPTX",124,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",125,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",126,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" "RTN","ONCPTX",127,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",128,0) F I=53.2,53.3,54.2,54.3,55.2,55.3,153 S X=ONC(165.5,D0,I) D UCASE S ONC(165.5,D0,I)=X "RTN","ONCPTX",129,0) W !," Date systemic therapy started.: ",ONC(165.5,DA,152) "RTN","ONCPTX",130,0) W !," Chemotherapy..................: ",ONC(165.5,DA,53),?44,ONC(165.5,DA,53.2) "RTN","ONCPTX",131,0) W !," Chemotherapy @fac.............: ",ONC(165.5,DA,53.4),?44,ONC(165.5,DA,53.3) "RTN","ONCPTX",132,0) W !," Hormone therapy...............: ",ONC(165.5,DA,54),?44,ONC(165.5,DA,54.2) "RTN","ONCPTX",133,0) W !," Hormone therapy @fac..........: ",ONC(165.5,DA,54.4),?44,ONC(165.5,DA,54.3) "RTN","ONCPTX",134,0) W !," Immunotherapy.................: ",ONC(165.5,DA,55),?44,ONC(165.5,DA,55.2) "RTN","ONCPTX",135,0) W !," Immunotherapy @fac............: ",ONC(165.5,DA,55.4),?44,ONC(165.5,DA,55.3) "RTN","ONCPTX",136,0) W !," Hema Trans/Endocrine Proc.....: ",ONC(165.5,DA,153.1),?44,ONC(165.5,DA,153) "RTN","ONCPTX",137,0) W !,DASHES "RTN","ONCPTX",138,0) Q "RTN","ONCPTX",139,0) OTH D FST^ONCOAIP "RTN","ONCPTX",140,0) W !," OTHER TREATMENT" "RTN","ONCPTX",141,0) W !," ---------------" "RTN","ONCPTX",142,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",143,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",144,0) S DR="57;57.2;57.3;57.4" "RTN","ONCPTX",145,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",146,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",147,0) W !," Other treatment...............: ",ONC(165.5,DA,57)," ",ONC(165.5,DA,57.2) "RTN","ONCPTX",148,0) W !," Other treatment @fac..........: ",ONC(165.5,DA,57.4)," ",ONC(165.5,DA,57.3) "RTN","ONCPTX",149,0) W !,DASHES "RTN","ONCPTX",150,0) Q "RTN","ONCPTX",151,0) PRO D FST^ONCOAIP "RTN","ONCPTX",152,0) W !," PALLIATIVE PROCEDURE/PROTOCOL PARTICIPATION" "RTN","ONCPTX",153,0) W !," -------------------------------------------" "RTN","ONCPTX",154,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",155,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",156,0) S DR="133;560;154;12;13;346" "RTN","ONCPTX",157,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",158,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",159,0) ;W !," Pain assessment...............: ",ONC(165.5,DA,154) "RTN","ONCPTX",160,0) W !," Palliative procedure..........: ",ONC(165.5,DA,12) "RTN","ONCPTX",161,0) W !," Palliative procedure @fac.....: ",ONC(165.5,DA,13) "RTN","ONCPTX",162,0) W ! "RTN","ONCPTX",163,0) W !," Protocol eligibility status...: "_ONC(165.5,DA,346) "RTN","ONCPTX",164,0) W !," Protocol participation........: "_ONC(165.5,DA,560) "RTN","ONCPTX",165,0) W !," Year put on protocol..........: "_ONC(165.5,DA,133) "RTN","ONCPTX",166,0) W !,DASHES "RTN","ONCPTX",167,0) Q "RTN","ONCPTX",168,0) ; "RTN","ONCPTX",169,0) TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS2971231:1,1:"") "RTN","ONCSTX",8,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:"0000000",1:"") "RTN","ONCSTX",9,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:1,1:"") "RTN","ONCSTX",10,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:0,1:"") "RTN","ONCSTX",11,0) D WRITE "RTN","ONCSTX",12,0) S Y=.05 "RTN","ONCSTX",13,0) Q "RTN","ONCSTX",14,0) UNK ; "RTN","ONCSTX",15,0) N DA,DR,DIQ,DIC,DI "RTN","ONCSTX",16,0) S SCTIEN=D1 "RTN","ONCSTX",17,0) S $P(^ONCO(165.5,D0,4,D1,0),U,11)=9999999 "RTN","ONCSTX",18,0) ;F RR=0:0 S RR=$O(^ONCO(164,SSTOP,"RR5",RR)) Q:RR="B" S LASTRR=RR "RTN","ONCSTX",19,0) ;F SC=0:0 S SC=$O(^ONCO(164,SSTOP,"SC5",SC)) Q:SC="B" S LASTSC=SC "RTN","ONCSTX",20,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,30)=$S(DATEDX>2971231:LASTRR,1:"") "RTN","ONCSTX",21,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,31)=$S(DATEDX>2971231:9999999,1:"") "RTN","ONCSTX",22,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,32)=$S(DATEDX>2971231:LASTSC,1:"") "RTN","ONCSTX",23,0) ;S $P(^ONCO(165.5,D0,4,D1,2),U,34)=$S(DATEDX>2971231:99,1:"") "RTN","ONCSTX",24,0) D WRITE "RTN","ONCSTX",25,0) S Y=.05 "RTN","ONCSTX",26,0) K SCTIEN,RR,LASTRR,SC,LASTSC Q "RTN","ONCSTX",27,0) WRITE ; "RTN","ONCSTX",28,0) K ONC,DIQ S DIC="^ONCO(165.5," "RTN","ONCSTX",29,0) S DR=60,DA=D0,DR(165.51)=".041",DA(165.51)=SCTIEN "RTN","ONCSTX",30,0) S DIQ="ONC" D EN^DIQ1 "RTN","ONCSTX",31,0) W !?2,"SURGERY OF PRIMARY SITE DATE...: "_ONC(165.51,SCTIEN,.041) "RTN","ONCSTX",32,0) ;I DATEDX>2971231 D "RTN","ONCSTX",33,0) ;.W !?2,"SCOPE OF LYMPH NODE SURGERY...: "_ONC(165.51,SCTIEN,35) "RTN","ONCSTX",34,0) ;.W !?2,"RECON/RESTORE - DELAYED.......: "_ONC(165.51,SCTIEN,33) "RTN","ONCSTX",35,0) ;.W !?2,"RECON/RESTORE - DELAYED DATE..: "_ONC(165.51,SCTIEN,34) "RTN","ONCSTX",36,0) K ONC,SCTIEN "RTN","ONCTXSM") 0^17^B17259529 "RTN","ONCTXSM",1,0) ONCTXSM ;Hines OIFO/GWB - TREATMENT SUMMARY SCREEN;10/14/98 "RTN","ONCTXSM",2,0) ;;2.11;ONCOLOGY;**19,26,27,32,34,36,37**;Mar 07, 1995 "RTN","ONCTXSM",3,0) D CHECKCC "RTN","ONCTXSM",4,0) D DEFAULT "RTN","ONCTXSM",5,0) N DI,DIC,DR,DA,DIQ S SAVEY=Y K ONC "RTN","ONCTXSM",6,0) S DR="49:58.7;124;133;346;560" "RTN","ONCTXSM",7,0) S DIC="^ONCO(165.5," "RTN","ONCTXSM",8,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCTXSM",9,0) W !," Date of 1st course of tx....: ",$E(ONC(165.5,D0,49),1,6)_$E(ONC(165.5,D0,49),9,10) "RTN","ONCTXSM",10,0) S DFSP=$$DS^ONCACDU2(D0) "RTN","ONCTXSM",11,0) W !," Date of 1st Surgical Proc...: ",$E(DFSP,1,2)_"/"_$E(DFSP,3,4)_"/"_$E(DFSP,7,8) "RTN","ONCTXSM",12,0) S TXT=ONC(165.5,D0,58.6),LEN=40 D TXT^ONCPTX "RTN","ONCTXSM",13,0) W !," Surgery of primary site F...: ",$E(ONC(165.5,D0,50),1,6)_$E(ONC(165.5,D0,50),9,10),?40,TXT1 "RTN","ONCTXSM",14,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCTXSM",15,0) S TXT=ONC(165.5,D0,58.7),LEN=40 D TXT^ONCPTX "RTN","ONCTXSM",16,0) I DATEDX>2971231 D "RTN","ONCTXSM",17,0) .W !," Surgery of primary site @fac F: ",$E(ONC(165.5,D0,50.3),1,6)_$E(ONC(165.5,D0,50.3),9,10),?40,TXT1 "RTN","ONCTXSM",18,0) .W:TXT2'="" !,?43,TXT2 "RTN","ONCTXSM",19,0) W !," Radiation...................: ",$E(ONC(165.5,D0,51),1,6)_$E(ONC(165.5,D0,51),9,10),?40,ONC(165.5,D0,51.2) "RTN","ONCTXSM",20,0) W:DATEDX>2971231 !," Radiation @fac..............: ",$E(ONC(165.5,D0,51.5),1,6)_$E(ONC(165.5,D0,51.5),9,10),?40,ONC(165.5,DA,51.4) "RTN","ONCTXSM",21,0) W:DATEDX<2960000 !," Radiation therapy to CNS....: ",$E(ONC(165.5,D0,52),1,6)_$E(ONC(165.5,D0,52),9,10),?40,ONC(165.5,D0,52.2) "RTN","ONCTXSM",22,0) W !," Chemotherapy................: ",$E(ONC(165.5,D0,53),1,6)_$E(ONC(165.5,D0,53),9,10),?40,ONC(165.5,D0,53.2) "RTN","ONCTXSM",23,0) W:DATEDX>2971231 !," Chemotherapy @fac...........: ",$E(ONC(165.5,D0,53.4),1,6)_$E(ONC(165.5,D0,53.4),9,10),?40,ONC(165.5,DA,53.3) "RTN","ONCTXSM",24,0) W !," Hormone therapy.............: ",$E(ONC(165.5,D0,54),1,6)_$E(ONC(165.5,D0,54),9,10),?40,ONC(165.5,D0,54.2) "RTN","ONCTXSM",25,0) W:DATEDX>2971231 !," Hormone therapy @fac........: ",$E(ONC(165.5,D0,54.4),1,6)_$E(ONC(165.5,D0,54.4),9,10),?40,ONC(165.5,DA,54.3) "RTN","ONCTXSM",26,0) W !," Immunotherapy...............: ",$E(ONC(165.5,D0,55),1,6)_$E(ONC(165.5,D0,55),9,10),?40,ONC(165.5,D0,55.2) "RTN","ONCTXSM",27,0) W:DATEDX>2971231 !," Immunotherapy @fac..........: ",$E(ONC(165.5,D0,55.4),1,6)_$E(ONC(165.5,D0,55.4),9,10),?40,ONC(165.5,DA,55.3) "RTN","ONCTXSM",28,0) W !," Other treatment.............: ",$E(ONC(165.5,D0,57),1,6)_$E(ONC(165.5,D0,57),9,10),?40,ONC(165.5,D0,57.2) "RTN","ONCTXSM",29,0) W:DATEDX>2971231 !," Other treatment @fac........: ",$E(ONC(165.5,D0,57.4),1,6)_$E(ONC(165.5,D0,57.4),9,10),?40,ONC(165.5,DA,57.3) "RTN","ONCTXSM",30,0) W !,DASHES "RTN","ONCTXSM",31,0) K TXT,TXT1,TXT2 "RTN","ONCTXSM",32,0) K DIR S DIR(0)="E" D ^DIR I Y=0 S Y="@0" K SAVEY Q "RTN","ONCTXSM",33,0) S Y=SAVEY K SAVEY "RTN","ONCTXSM",34,0) Q "RTN","ONCTXSM",35,0) ; "RTN","ONCTXSM",36,0) CHECKCC ;Check the class of case - if 0,3,6 stuff @FAC fields with zeroes "RTN","ONCTXSM",37,0) S DATEDX=$P($G(^ONCO(165.5,DA,0)),U,16) I DATEDX<2980000 Q "RTN","ONCTXSM",38,0) S COC=$P($G(^ONCO(165.5,D0,0)),U,4) "RTN","ONCTXSM",39,0) I COC=0!(COC=3)!(COC=6) D "RTN","ONCTXSM",40,0) .S $P(^ONCO(165.5,DA,3.1),U,11)="00" "RTN","ONCTXSM",41,0) .F PP=7,9,10 S $P(^ONCO(165.5,DA,3.1),U,PP)=1 "RTN","ONCTXSM",42,0) .F PP=12:2:20 S $P(^ONCO(165.5,DA,3.1),U,PP)=0 "RTN","ONCTXSM",43,0) .F PP=8,13:2:25 S $P(^ONCO(165.5,DA,3.1),U,PP)="0000000" "RTN","ONCTXSM",44,0) I COC=2!(COC=3) D "RTN","ONCTXSM",45,0) .S $P(^ONCO(165.5,DA,3.1),U,5)="00" "RTN","ONCTXSM",46,0) .S $P(^ONCO(165.5,DA,3.1),U,6)="0000000" "RTN","ONCTXSM",47,0) K PP Q "RTN","ONCTXSM",48,0) ; "RTN","ONCTXSM",49,0) DEFAULT ;RECONSTRUCTION/RESTORATION (165.5,23) default "RTN","ONCTXSM",50,0) S RRDF="",SURGPS=$P($G(^ONCO(165.5,D0,3.1)),U,29),CONTFLG=0 "RTN","ONCTXSM",51,0) S SITE=$P($G(^ONCO(165.5,D0,0)),U,1) "RTN","ONCTXSM",52,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",53,0) I (SITE=35)!($$LEUKEMIA^ONCOAIP2(D0))!((SITE>65)&(SITE<70)) D Q "RTN","ONCTXSM",54,0) .S RRDF="NA" "RTN","ONCTXSM",55,0) I DATEDX<2980000,SURGPS="00" S CONTFLG=1 "RTN","ONCTXSM",56,0) I DATEDX>2971231,SURGPS=1 S CONTFLG=1 "RTN","ONCTXSM",57,0) I CONTFLG=0 Q "RTN","ONCTXSM",58,0) S RRDF="No reconstruction/restoration" "RTN","ONCTXSM",59,0) I SCG=67141!(SCG=67250)!(SCG=67422)!(SCG=67700)!(SCG=67739)!(SCG=67770) S RRDF="NA" "RTN","ONCTXSM",60,0) Q "RTN","ONCTXSM",61,0) ; "RTN","ONCTXSM",62,0) RRDEFIT ;Special default code for field #23 called from input transform "RTN","ONCTXSM",63,0) I X="No reconstruction/restoration" S X=0 Q "RTN","ONCTXSM",64,0) I X="NA"!(X["Unknown; not stated") S X=9 Q "RTN","ONCTXSM",65,0) Q "RTN","ONCTXSM",66,0) SPSDFIT ;Special default code for field #50.2 called from input transform "RTN","ONCTXSM",67,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",68,0) I X?1.2N Q "RTN","ONCTXSM",69,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SPS",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",70,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SPS",SUB,0)),U,1) S DFCODE=SUB Q "RTN","ONCTXSM",71,0) S X=DFCODE,SPSFLG=1 Q "RTN","ONCTXSM",72,0) SCPDFIT ;Special default code for field #138.1 called from input transform "RTN","ONCTXSM",73,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",74,0) I X?1N Q "RTN","ONCTXSM",75,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SC5",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",76,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SC5",SUB,0)),U,1) S DFCODE=SUB Q "RTN","ONCTXSM",77,0) S X=DFCODE,SCPFLG=1 Q "RTN","ONCTXSM",78,0) Q "RTN","ONCTXSM",79,0) NUMDFIT ;Special default code for field #140.1 called from input transform "RTN","ONCTXSM",80,0) S X=+X "RTN","ONCTXSM",81,0) Q "RTN","ONCTXSM",82,0) SOSDFIT ;Special default code for field #139.1 called from input transform "RTN","ONCTXSM",83,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",84,0) I X?1.2N Q "RTN","ONCTXSM",85,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SO5",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",86,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SO5",SUB,0)),U,1) S DFCODE=SUB Q "RTN","ONCTXSM",87,0) S X=DFCODE,SOSFLG=1 Q "RTN","ONCTXSM",88,0) Q "RTN","ONCTXSM",89,0) SETVARS ; "RTN","ONCTXSM",90,0) S SCG="",TPG=$P($G(^ONCO(165.5,D0,2)),U,1) I TPG="" Q "RTN","ONCTXSM",91,0) S SCG=$P($G(^ONCO(164,TPG,0)),U,16) "RTN","ONCTXSM",92,0) S DFTXT=X,DFCODE="" Q "RTN","ONCUTX1") 0^23^B22970000 "RTN","ONCUTX1",1,0) ONCUTX1 ;Hines OIFO/RTK; UNKNOWN TREATMENT STUFFING; 08/11/98 "RTN","ONCUTX1",2,0) ;;2.11;ONCOLOGY;**19,22,27,29,33,36,37**;Mar 07, 1995 "RTN","ONCUTX1",3,0) ; "RTN","ONCUTX1",4,0) NCDSATF ;SURG DX/STAGING PROC @FAC (165.5,58.4) "RTN","ONCUTX1",5,0) S $P(^ONCO(165.5,D0,3.1),U,5)=$S(DATEDX>2971231:"09",1:"") "RTN","ONCUTX1",6,0) S $P(^ONCO(165.5,D0,3.1),U,6)=9999999 "RTN","ONCUTX1",7,0) S DR="58.4;58.5" D DIQ1^ONCNTX "RTN","ONCUTX1",8,0) W:$D(NTX) !,"SURGICAL DX/STAGING @FAC: "_ONC(165.5,DA,58.4,"E") "RTN","ONCUTX1",9,0) W !,"SURGICAL DX/STAGING @FAC DATE: "_ONC(165.5,DA,58.5,"E") "RTN","ONCUTX1",10,0) Q "RTN","ONCUTX1",11,0) ; "RTN","ONCUTX1",12,0) SURATFR ;SURGERY OF PRIMARY @FAC (R) (165.5,50.2) "RTN","ONCUTX1",13,0) D SGRP "RTN","ONCUTX1",14,0) F SPS=0:0 S SPS=$O(^ONCO(164,SGRP,"SPS",SPS)) Q:$P(^ONCO(164,SGRP,"SPS",SPS,0),U,1)["Unknown;" "RTN","ONCUTX1",15,0) S $P(^ONCO(165.5,DA,3.1),U,7)=$S(DATEDX>2971231:SPS,1:"00") "RTN","ONCUTX1",16,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCUTX1",17,0) S DR=50.2 D EN^DIQ1 "RTN","ONCUTX1",18,0) W:$D(NTX) !,"SURGERY OF PRIMARY @FAC.....(R): "_ONC(165.5,DA,50.2,"E") "RTN","ONCUTX1",19,0) Q "RTN","ONCUTX1",20,0) ; "RTN","ONCUTX1",21,0) SURATF ;SURGERY OF PRIMARY @FAC (F) (165.5,58.7) "RTN","ONCUTX1",22,0) D SGRP "RTN","ONCUTX1",23,0) F SPS=0:0 S SPS=$O(^ONCO(164,SGRP,"SPS",SPS)) Q:$P(^ONCO(164,SGRP,"SPS",SPS,0),U,1)["Unknown;" "RTN","ONCUTX1",24,0) S $P(^ONCO(165.5,DA,3.1),U,30)=SPS "RTN","ONCUTX1",25,0) S $P(^ONCO(165.5,DA,3.1),U,8)=9999999 "RTN","ONCUTX1",26,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCUTX1",27,0) S DR="58.7;50.3" D EN^DIQ1 "RTN","ONCUTX1",28,0) W:$D(NTX) !,"SURGERY OF PRIMARY @FAC.....(F): "_ONC(165.5,DA,58.7,"E") "RTN","ONCUTX1",29,0) W !,"SURGERY OF PRIMARY @FAC DATE...: "_ONC(165.5,DA,50.3,"E") "RTN","ONCUTX1",30,0) Q "RTN","ONCUTX1",31,0) ; "RTN","ONCUTX1",32,0) NODATFR ;SCOPE OF LN SURGERY @FAC (R) (165.5,138.1) "RTN","ONCUTX1",33,0) D SGRP "RTN","ONCUTX1",34,0) F SC=0:0 S SC=$O(^ONCO(164,SGRP,"SC5",SC)) Q:SC="B" S LAST=SC "RTN","ONCUTX1",35,0) S $P(^ONCO(165.5,DA,3.1),U,9)=LAST "RTN","ONCUTX1",36,0) S $P(^ONCO(165.5,D0,3.1),U,11)=99 "RTN","ONCUTX1",37,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCUTX1",38,0) S DR="138.1;140.1" D DIQ1^ONCNTX "RTN","ONCUTX1",39,0) W:$D(NTX) !,"SCOPE OF LN SURGERY @FAC....(R): "_ONC(165.5,DA,138.1,"E") "RTN","ONCUTX1",40,0) W !,"NUMBER OF LN REMOVED @FAC...(R): "_ONC(165.5,DA,140.1,"E") "RTN","ONCUTX1",41,0) Q "RTN","ONCUTX1",42,0) ; "RTN","ONCUTX1",43,0) NODEATF ;SCOPE OF LN SURGERY @FAC (F) (165.5,138.5) "RTN","ONCUTX1",44,0) D SGRP "RTN","ONCUTX1",45,0) S $P(^ONCO(165.5,DA,3.1),U,32)=9 "RTN","ONCUTX1",46,0) S $P(^ONCO(165.5,DA,3.1),U,23)="0000000" "RTN","ONCUTX1",47,0) N DI K ONC S DIC="^ONCO(165.5,",DA=DA,DIQ="ONC(",DIQ(0)="E" "RTN","ONCUTX1",48,0) S DR="138.5;138.3" D DIQ1^ONCNTX "RTN","ONCUTX1",49,0) W:$D(NTX) !,"SCOPE OF LN SURGERY @FAC....(F): "_ONC(165.5,DA,138.5,"E") "RTN","ONCUTX1",50,0) W !,"SCOPE OF LN SURGERY @FAC DATE..: "_ONC(165.5,DA,138.3,"E") "RTN","ONCUTX1",51,0) Q "RTN","ONCUTX1",52,0) ; "RTN","ONCUTX1",53,0) SOSATFR ;SURG PROC/OTHER SITE @FAC (R) (165.5,139.1) "RTN","ONCUTX1",54,0) D SGRP "RTN","ONCUTX1",55,0) F SO=0:0 S SO=$O(^ONCO(164,SGRP,"SO5",SO)) Q:SO="B" S LAST=SO "RTN","ONCUTX1",56,0) S $P(^ONCO(165.5,DA,3.1),U,10)=$S(DATEDX>2971231:LAST,1:"") "RTN","ONCUTX1",57,0) S DR=139.1 D DIQ1^ONCNTX "RTN","ONCUTX1",58,0) W:$D(NTX) !,"SURG PROC/OTHER SIT @FAC...(R): "_ONC(165.5,DA,139.1,"E") "RTN","ONCUTX1",59,0) Q "RTN","ONCUTX1",60,0) ; "RTN","ONCUTX1",61,0) SOSNATF ;SURG PROC/OTHER SITE @FAC (F) (165.5,139.5) "RTN","ONCUTX1",62,0) S $P(^ONCO(165.5,DA,3.1),U,34)=9 "RTN","ONCUTX1",63,0) S $P(^ONCO(165.5,D0,3.1),U,25)=9999999 "RTN","ONCUTX1",64,0) S DR="139.5;139.3" D DIQ1^ONCNTX "RTN","ONCUTX1",65,0) W:$D(NTX) !,"SURGICAL PROC/OTHER SITE @FAC..: "_ONC(165.5,DA,139.5,"E") "RTN","ONCUTX1",66,0) W !,"SURG PROC/OTHER SITE @FAC DATE.: "_ONC(165.5,DA,139.3,"E") "RTN","ONCUTX1",67,0) Q "RTN","ONCUTX1",68,0) ; "RTN","ONCUTX1",69,0) RADATF ;RADIATION @FAC (165.5,51.4) "RTN","ONCUTX1",70,0) S $P(^ONCO(165.5,DA,3.1),U,12)=9 "RTN","ONCUTX1",71,0) S $P(^ONCO(165.5,DA,3.1),U,13)=9999999 "RTN","ONCUTX1",72,0) S DR="51.4;51.5" D DIQ1^ONCNTX "RTN","ONCUTX1",73,0) W:$D(NTX) !,"RADIATION @FAC...............: "_ONC(165.5,DA,51.4,"E") "RTN","ONCUTX1",74,0) W !,"RADIATION @FAC DATE..........: ",ONC(165.5,DA,51.5,"E") "RTN","ONCUTX1",75,0) Q "RTN","ONCUTX1",76,0) ; "RTN","ONCUTX1",77,0) CHEMATF ;CHEMOTHERAPY @FAC (165.5,53.3) "RTN","ONCUTX1",78,0) S $P(^ONCO(165.5,DA,3.1),U,14)=99 "RTN","ONCUTX1",79,0) S $P(^ONCO(165.5,DA,3.1),U,15)=9999999 "RTN","ONCUTX1",80,0) S DR="53.3;53.4" D DIQ1^ONCNTX "RTN","ONCUTX1",81,0) W:$D(NTX) !,"CHEMOTHERAPY @FAC..............: "_ONC(165.5,DA,53.3,"E") "RTN","ONCUTX1",82,0) W !,"CHEMOTHERAPY @FAC DATE.........: ",ONC(165.5,DA,53.4,"E") "RTN","ONCUTX1",83,0) Q "RTN","ONCUTX1",84,0) ; "RTN","ONCUTX1",85,0) HTATF ;HORMONE THERAPY @FAC (165.5,54.3) "RTN","ONCUTX1",86,0) S $P(^ONCO(165.5,DA,3.1),U,16)=99 "RTN","ONCUTX1",87,0) S $P(^ONCO(165.5,DA,3.1),U,17)=9999999 "RTN","ONCUTX1",88,0) S DR="54.3;54.4" D DIQ1^ONCNTX "RTN","ONCUTX1",89,0) W:$D(NTX) !,"HORMONE THERAPY @FAC...........: "_ONC(165.5,DA,54.3,"E") "RTN","ONCUTX1",90,0) W !,"HORMONE THERAPY @FAC DATE......: ",ONC(165.5,DA,54.4,"E") "RTN","ONCUTX1",91,0) Q "RTN","ONCUTX1",92,0) ; "RTN","ONCUTX1",93,0) IMMATF ;IMMUNOTHERAPY @FAC (165.5,55.3) "RTN","ONCUTX1",94,0) I $G(X)'=8 S $P(^ONCO(165.5,DA,3.1),U,18)=99 "RTN","ONCUTX1",95,0) S $P(^ONCO(165.5,DA,3.1),U,19)=9999999 "RTN","ONCUTX1",96,0) S DR="55.3;55.4" D DIQ1^ONCNTX "RTN","ONCUTX1",97,0) W:$D(NTX) !,"IMMUNOTHERAPY @FAC.............: "_ONC(165.5,DA,55.3,"E") "RTN","ONCUTX1",98,0) W !,"IMMUNOTHERAPY @FAC DATE........: ",ONC(165.5,DA,55.4,"E") "RTN","ONCUTX1",99,0) Q "RTN","ONCUTX1",100,0) ; "RTN","ONCUTX1",101,0) OTHATF ;OTHE TREATMENT @FAC (165.5,57.3) "RTN","ONCUTX1",102,0) I $G(X)'=8 S $P(^ONCO(165.5,DA,3.1),U,20)=9 "RTN","ONCUTX1",103,0) S $P(^ONCO(165.5,DA,3.1),U,21)=9999999 "RTN","ONCUTX1",104,0) S DR="57.3;57.4" D DIQ1^ONCNTX "RTN","ONCUTX1",105,0) W:$D(NTX) !,"OTHER TREATMENT @FAC...........: "_ONC(165.5,DA,57.3,"E") "RTN","ONCUTX1",106,0) W !,"OTHER TREATMENT @FAC DATE......: ",ONC(165.5,DA,57.4,"E") "RTN","ONCUTX1",107,0) Q "RTN","ONCUTX1",108,0) ; "RTN","ONCUTX1",109,0) CHKPRIM ;If Primary Site UNKNOWN, BRAIN, HEMATOPOIETIC or LEUKEMIA, "RTN","ONCUTX1",110,0) ;stuff SCOPE OF LN SURGERY (R) (165.5,138) and "RTN","ONCUTX1",111,0) ; SCOPE OF LN SURGERY (F) (165.5,138.4) with 9s "RTN","ONCUTX1",112,0) CHKPRMR ;ROADS "RTN","ONCUTX1",113,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCUTX1",114,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D "RTN","ONCUTX1",115,0) .D SGRP "RTN","ONCUTX1",116,0) .F SC=0:0 S SC=$O(^ONCO(164,SGRP,"SC5",SC)) Q:SC="B" S LAST=SC "RTN","ONCUTX1",117,0) .S $P(^ONCO(165.5,DA,3),U,40)=LAST "RTN","ONCUTX1",118,0) .W !,"SCOPE OF LN SURGERY.........(R): ",$P(^ONCO(164,SGRP,"SC5",LAST,0),U) "RTN","ONCUTX1",119,0) .D NODER^ONCUTX W ! "RTN","ONCUTX1",120,0) .S NTX=1 D NODATFR K NTX "RTN","ONCUTX1",121,0) .S Y="@139" "RTN","ONCUTX1",122,0) Q "RTN","ONCUTX1",123,0) ; "RTN","ONCUTX1",124,0) CHKPRMF ;FORDS "RTN","ONCUTX1",125,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCUTX1",126,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D "RTN","ONCUTX1",127,0) .S $P(^ONCO(165.5,DA,3.1),U,31)=9 "RTN","ONCUTX1",128,0) .W !,"SCOPE OF LN SURGERY.........(F): Unknown/NA" "RTN","ONCUTX1",129,0) .D NODE^ONCUTX W ! "RTN","ONCUTX1",130,0) .S NTX=1 D NODEATF K NTX "RTN","ONCUTX1",131,0) .S Y="@46" "RTN","ONCUTX1",132,0) Q "RTN","ONCUTX1",133,0) ; "RTN","ONCUTX1",134,0) SGRP S TPG=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCUTX1",135,0) S SGRP=$P($G(^ONCO(164,TPG,0)),U,16) "RTN","ONCUTX1",136,0) ;pre-2003 C76.0-C76.8, C80.9 cases "RTN","ONCUTX1",137,0) ;see ROADS page D-cxliii "RTN","ONCUTX1",138,0) I DATEDX<3030000,($E(TPG,3,4)=76)!(TPG=67809) S SGRP=67141 "RTN","ONCUTX1",139,0) Q "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.19,160.19,0,"AUDIT") @ "SEC","^DIC",160.19,160.19,0,"DD") @ "UP",160,160.042,-1) 160^7 "UP",160,160.042,0) 160.042 "UP",165.5,165.51,-1) 165.5^4 "UP",165.5,165.51,0) 165.51 "VER") 8.0^22 "^DD",160,160,15,0) STATUS^S^0:Dead;1:Alive;^1;1^Q "^DD",160,160,15,1,0) ^.1 "^DD",160,160,15,1,1,0) 160^AS "^DD",160,160,15,1,1,1) S ^ONCO(160,"AS",$E(X,1,30),DA)="" "^DD",160,160,15,1,1,2) K ^ONCO(160,"AS",$E(X,1,30),DA) "^DD",160,160,15,1,1,"%D",0) ^^1^1^2930909 "^DD",160,160,15,1,1,"%D",1,0) Indexes file by STATUS. "^DD",160,160,15,1,1,"DT") 2900722 "^DD",160,160,15,21,0) ^.001^1^1^3031117^^^^ "^DD",160,160,15,21,1,0) Record whether the patient is alive or dead. "^DD",160,160,15,23,0) ^.001^2^2^3031117^^^^ "^DD",160,160,15,23,1,0) This field is referenced directly by UVS^ONCOCRF. "^DD",160,160,15,23,2,0) This field is referenced directly by TRS^ONCOCOS. "^DD",160,160,15,"DT") 3030924 "^DD",160,160,42,0) OCCUPATION^160.042PA^^7;0 "^DD",160,160,42,21,0) ^.001^1^1^3020321^^^^ "^DD",160,160,42,21,1,0) RECORDS THAT PATIENTS JOB/OCCUPATION. "^DD",160,160.042,0) OCCUPATION SUB-FIELD^^3^2 "^DD",160,160.042,0,"NM","OCCUPATION") "^DD",160,160.042,.01,0) USUAL OCCUPATION^MP61.6^LAB(61.6,^0;1^Q "^DD",160,160.042,.01,1,0) ^.1 "^DD",160,160.042,.01,1,1,0) 160.042^B "^DD",160,160.042,.01,1,1,1) S ^ONCO(160,DA(1),7,"B",$E(X,1,30),DA)="" "^DD",160,160.042,.01,1,1,2) K ^ONCO(160,DA(1),7,"B",$E(X,1,30),DA) "^DD",160,160.042,.01,3) Record the patient's usual occupation. Do not record "retired". "^DD",160,160.042,.01,21,0) ^.001^8^8^3020321^^^ "^DD",160,160.042,.01,21,1,0) "^DD",160,160.042,.01,21,2,0) Record the patient's usual occupation (that is, the kind of work performed "^DD",160,160.042,.01,21,3,0) during most of the patient's working life before diagnosis of this tumor). "^DD",160,160.042,.01,21,4,0) Do NOT record "retired". "^DD",160,160.042,.01,21,5,0) "^DD",160,160.042,.01,21,6,0) If usual occupation is not available or is unknown, record the patient's "^DD",160,160.042,.01,21,7,0) current or most recent occupation or any known occupation. "^DD",160,160.042,.01,21,8,0) "^DD",160,160.042,.01,"DT") 3020321 "^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.19,160.19,0) FIELD^^99^5 "^DD",160.19,160.19,0,"DDA") N "^DD",160.19,160.19,0,"DT") 3030812 "^DD",160.19,160.19,0,"ID",.02) W $E($P(^(0),U,2),1,37) "^DD",160.19,160.19,0,"ID",.03) W ?54,$P(^(0),U,3) "^DD",160.19,160.19,0,"ID",.04) W ?77,$P(^(0),U,4) "^DD",160.19,160.19,0,"IX","B",160.19,.01) "^DD",160.19,160.19,0,"IX","BA",160.19,.01) "^DD",160.19,160.19,0,"IX","C",160.19,.02) "^DD",160.19,160.19,0,"IX","D",160.19,.03) "^DD",160.19,160.19,0,"IX","E",160.19,.02) "^DD",160.19,160.19,0,"NM","FACILITY") "^DD",160.19,160.19,0,"PT",160,24.5) "^DD",160.19,160.19,0,"PT",160.04,10) "^DD",160.19,160.19,0,"PT",160.1,27) "^DD",160.19,160.19,0,"PT",165.5,.03) "^DD",160.19,160.19,0,"PT",165.5,5) "^DD",160.19,160.19,0,"PT",165.5,6) "^DD",160.19,160.19,0,"PT",165.5,7) "^DD",160.19,160.19,0,"PT",165.5,50.1) "^DD",160.19,160.19,0,"PT",165.5,51.1) "^DD",160.19,160.19,0,"PT",165.5,52.1) "^DD",160.19,160.19,0,"PT",165.5,53.1) "^DD",160.19,160.19,0,"PT",165.5,54.1) "^DD",160.19,160.19,0,"PT",165.5,55.1) "^DD",160.19,160.19,0,"PT",165.5,57.1) "^DD",160.19,160.19,0,"PT",165.51,2) "^DD",160.19,160.19,0,"VRPK") ONC "^DD",160.19,160.19,.01,0) FIN^RFX^^0;1^K:($L(X)>8)!($L(X)<7) X "^DD",160.19,160.19,.01,1,0) ^.1 "^DD",160.19,160.19,.01,1,1,0) 160.19^B "^DD",160.19,160.19,.01,1,1,1) S ^ONCO(160.19,"B",$E(X,1,30),DA)="" "^DD",160.19,160.19,.01,1,1,2) K ^ONCO(160.19,"B",$E(X,1,30),DA) "^DD",160.19,160.19,.01,1,2,0) 160.19^BA^MUMPS "^DD",160.19,160.19,.01,1,2,1) S ^ONCO(160.19,"BA",X_" ",DA)="" "^DD",160.19,160.19,.01,1,2,2) K ^ONCO(160.19,"BA",X_" ",DA) "^DD",160.19,160.19,.01,1,2,"%D",0) ^.101^2^2^3030814^^ "^DD",160.19,160.19,.01,1,2,"%D",1,0) This cross-reference will concatinate a space onto "^DD",160.19,160.19,.01,1,2,"%D",2,0) the FIN to allow for partial entry lookups. "^DD",160.19,160.19,.01,1,2,"DT") 2960409 "^DD",160.19,160.19,.01,3) Enter either 7-digit pre-2001 FIN or 8-digit 2001+ FIN. "^DD",160.19,160.19,.01,21,0) ^.001^15^15^3030814^^^^ "^DD",160.19,160.19,.01,21,1,0) "^DD",160.19,160.19,.01,21,2,0) A code assigned to each facility identifying who is sending the "^DD",160.19,160.19,.01,21,3,0) record. "^DD",160.19,160.19,.01,21,4,0) "^DD",160.19,160.19,.01,21,5,0) For facilities with a 7-digit FIN, enter the 7-digit facility- "^DD",160.19,160.19,.01,21,6,0) specific code in the range 6020009-6953290 that was assigned by "^DD",160.19,160.19,.01,21,7,0) the COC before January 1, 2001. "^DD",160.19,160.19,.01,21,8,0) "^DD",160.19,160.19,.01,21,9,0) NOTE: 7-digit FIN codes consist of a constant "6" following a "^DD",160.19,160.19,.01,21,10,0) 6-digit facility-specific code (e.g. 6_020009 = 6020009). "^DD",160.19,160.19,.01,21,11,0) Enter all 7 digits, including the "6" prefix. "^DD",160.19,160.19,.01,21,12,0) "^DD",160.19,160.19,.01,21,13,0) For facilities with a 8-digit FIN greater than or equal to 10000000 "^DD",160.19,160.19,.01,21,14,0) that was assigned by the COC after January 1, 2001, enter the full "^DD",160.19,160.19,.01,21,15,0) 8-digit code. "^DD",160.19,160.19,.01,"DT") 3030814 "^DD",160.19,160.19,.02,0) NAME^RF^^0;2^K:$L(X)>65!($L(X)<3) X "^DD",160.19,160.19,.02,1,0) ^.1 "^DD",160.19,160.19,.02,1,1,0) 160.19^C^KWIC "^DD",160.19,160.19,.02,1,1,1) S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^ONCO(160.19,"C",I,DA)="" "^DD",160.19,160.19,.02,1,1,2) S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ONCO(160.19,"C",I,DA) "^DD",160.19,160.19,.02,1,1,"%D",0) ^^2^2^2960129^ "^DD",160.19,160.19,.02,1,1,"%D",1,0) Key word in context reference to allow lookup of a hospital by using "^DD",160.19,160.19,.02,1,1,"%D",2,0) part of its name. "^DD",160.19,160.19,.02,1,1,"DT") 2960129 "^DD",160.19,160.19,.02,1,2,0) 160.19^E "^DD",160.19,160.19,.02,1,2,1) S ^ONCO(160.19,"E",$E(X,1,30),DA)="" "^DD",160.19,160.19,.02,1,2,2) K ^ONCO(160.19,"E",$E(X,1,30),DA) "^DD",160.19,160.19,.02,1,2,"DT") 2960206 "^DD",160.19,160.19,.02,3) Answer must be 3-65 characters in length. "^DD",160.19,160.19,.02,21,0) ^.001^1^1^3000324^^^ "^DD",160.19,160.19,.02,21,1,0) This is the full name of the facility. "^DD",160.19,160.19,.02,"DT") 2970206 "^DD",160.19,160.19,.03,0) CITY^F^^0;3^K:$L(X)>25!($L(X)<2) X "^DD",160.19,160.19,.03,1,0) ^.1 "^DD",160.19,160.19,.03,1,1,0) 160.19^D "^DD",160.19,160.19,.03,1,1,1) S ^ONCO(160.19,"D",$E(X,1,30),DA)="" "^DD",160.19,160.19,.03,1,1,2) K ^ONCO(160.19,"D",$E(X,1,30),DA) "^DD",160.19,160.19,.03,1,1,"DT") 2960129 "^DD",160.19,160.19,.03,3) Answer must be 2-25 characters in length. "^DD",160.19,160.19,.03,21,0) ^^1^1^2960206^^ "^DD",160.19,160.19,.03,21,1,0) City where the hospital is located. "^DD",160.19,160.19,.03,"DT") 2960206 "^DD",160.19,160.19,.04,0) STATE^FX^^0;4^K:$L(X)>2!($L(X)<2)!'(X?2A)!'$D(^ONCO(160.15,"B",X)) X "^DD",160.19,160.19,.04,1,0) ^.1^^0 "^DD",160.19,160.19,.04,3) Enter the 2 character state abbreviation. "^DD",160.19,160.19,.04,4) "^DD",160.19,160.19,.04,21,0) ^.001^20^20^3030813^^^^ "^DD",160.19,160.19,.04,21,1,0) "^DD",160.19,160.19,.04,21,2,0) Enter the 2 character state abbreviation. "^DD",160.19,160.19,.04,21,3,0) "^DD",160.19,160.19,.04,21,4,0) AK Alaska KY Kentucky NY New York "^DD",160.19,160.19,.04,21,5,0) AL Alabama LA Louisiana OH Ohio "^DD",160.19,160.19,.04,21,6,0) AR Arkansas MA Massachusetts OK Oklahoma "^DD",160.19,160.19,.04,21,7,0) AZ Arizona MD Maryland OR Oregon "^DD",160.19,160.19,.04,21,8,0) CA California ME Maine PA Pennsylvania "^DD",160.19,160.19,.04,21,9,0) CO Colorado MI Michigan RI Rhode Island "^DD",160.19,160.19,.04,21,10,0) CT Connecticut MN Minnesota SC South Carolina "^DD",160.19,160.19,.04,21,11,0) DC Dist of Columbia MO Missouri SD South Dakota "^DD",160.19,160.19,.04,21,12,0) DE Delaware MS Mississippi TN Tennessee "^DD",160.19,160.19,.04,21,13,0) FL Florida MT Montana TX Texas "^DD",160.19,160.19,.04,21,14,0) GA Georgia NC North Carolina UT Utah "^DD",160.19,160.19,.04,21,15,0) HI Hawaii ND North Dakota VA Virginia "^DD",160.19,160.19,.04,21,16,0) IA Iowa NE Nebraska VT Vermont "^DD",160.19,160.19,.04,21,17,0) ID Idaho NH New Hampshire WA Washington "^DD",160.19,160.19,.04,21,18,0) IL Illinois NJ New Jersey WI Wisconsin "^DD",160.19,160.19,.04,21,19,0) IN Indiana NM New Mexico WV West Virginia "^DD",160.19,160.19,.04,21,20,0) KS Kansas NV Nevada WY Wyoming "^DD",160.19,160.19,.04,"DT") 3030812 "^DD",160.19,160.19,99,0) STATUS^S^0:NOT ACTIVE;^99;1^Q "^DD",160.19,160.19,99,3) Enter '0' (NOT ACTIVE) if the ACOS Number is no longer valid. "^DD",160.19,160.19,99,21,0) ^^2^2^2960126^^ "^DD",160.19,160.19,99,21,1,0) Denotes wheather or not an ACOS NUMBER is active or not. "^DD",160.19,160.19,99,21,2,0) No data means the entry is active. "^DD",160.19,160.19,99,"DT") 2960126 "^DD",164.33,164.33,0) FIELD^^15^16 "^DD",164.33,164.33,0,"DDA") N "^DD",164.33,164.33,0,"DT") 3020801 "^DD",164.33,164.33,0,"IX","B",164.33,.01) "^DD",164.33,164.33,0,"IX","X",164.34,1) "^DD",164.33,164.33,0,"NM","AJCC STAGING GROUPS") "^DD",164.33,164.33,0,"PT",164,30) "^DD",164.33,164.33,0,"VER") 2.0 "^DD",164.33,164.33,0,"VRPK") ONC "^DD",164.33,164.33,.001,0) NUMBER^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"."1N.N) X "^DD",164.33,164.33,.001,3) Type a Number between 1 and 100, 0 Decimal Digits "^DD",164.33,164.33,.001,21,0) ^^1^1^2920528^ "^DD",164.33,164.33,.001,21,1,0) RECORDS NUMERIC VALUE. "^DD",164.33,164.33,.001,"DT") 2920624 "^DD",164.33,164.33,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",164.33,164.33,.01,1,0) ^.1 "^DD",164.33,164.33,.01,1,1,0) 164.33^B "^DD",164.33,164.33,.01,1,1,1) S ^ONCO(164.33,"B",$E(X,1,30),DA)="" "^DD",164.33,164.33,.01,1,1,2) K ^ONCO(164.33,"B",$E(X,1,30),DA) "^DD",164.33,164.33,.01,3) Answer must be 3-30 characters in length. "^DD",164.33,164.33,.01,21,0) ^.001^1^1^3020730^^^ "^DD",164.33,164.33,.01,21,1,0) FREE TEXT FIELD RECORDING NAME. "^DD",164.33,164.33,.01,"DT") 3020730 "^DD",164.33,164.33,1,0) T-CLASS ENCODING^164.331I^^T;0 "^DD",164.33,164.33,1,21,0) ^^1^1^2980109^^^^ "^DD",164.33,164.33,1,21,1,0) FREE TEXT FIELD CONTAINING TUMOR CLASS ENCODING INFOMATION. "^DD",164.33,164.33,2,0) N-CLASS ENCODING^164.332^^N;0 "^DD",164.33,164.33,2,21,0) ^^1^1^2971107^^^^ "^DD",164.33,164.33,2,21,1,0) FREE TEXT FIELD CONTAINING LYMPH NODE CLASS ENCODING INFORMATION. "^DD",164.33,164.33,3,0) STAGE GROUPING^164.333^^S;0 "^DD",164.33,164.33,3,21,0) ^.001^1^1^3020625^^^ "^DD",164.33,164.33,3,21,1,0) FREE TEXT FIELD FOR RECORDING STAGE GROUPING INFORMATION. "^DD",164.33,164.33,4,0) M-CLASS ENCODING^164.334^^M;0 "^DD",164.33,164.33,4,21,0) ^^1^1^2971118^^^^ "^DD",164.33,164.33,4,21,1,0) FREE TEXT FIELD CONTAINING METASTASIS CLASS ENCODING INFORMATION. "^DD",164.33,164.33,5,0) 4TH EDITION M-CLASS ENCODING^164.335A^^M4;0 "^DD",164.33,164.33,5,21,0) ^^2^2^2971224^^^^ "^DD",164.33,164.33,5,21,1,0) This multiple contains the M (distant metastasis) codes from the fourth "^DD",164.33,164.33,5,21,2,0) edition of the AJCC Manual on Staging of Cancer. "^DD",164.33,164.33,6,0) 5TH EDITION T-CODE HELP^164.336^^1;0 "^DD",164.33,164.33,7,0) 5TH EDITION N-CODE HELP^164.337^^2;0 "^DD",164.33,164.33,8,0) 5TH EDITION M-CODE HELP^164.338^^3;0 "^DD",164.33,164.33,10,0) 6TH EDITION (T) CODES^164.34^^T6;0 "^DD",164.33,164.33,11,0) 6TH EDITION (T) CODE HELP^164.3311^^4;0 "^DD",164.33,164.33,12,0) 6TH EDITION (N) CODES^164.3312^^N6;0 "^DD",164.33,164.33,13,0) 6TH EDITION (N) CODE HELP^164.3313^^5;0 "^DD",164.33,164.33,14,0) 6TH EDITION (M) CODES^164.3314^^M6;0 "^DD",164.33,164.33,14,21,0) ^.001^2^2^3020730^^^ "^DD",164.33,164.33,14,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) codes. "^DD",164.33,164.33,14,21,2,0) M codes record the absence or presence of distant metastasis. "^DD",164.33,164.33,15,0) 6TH EDITION (M) CODE HELP^164.3315^^6;0 "^DD",164.33,164.331,0) T-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164.33,164.331,0,"DT") 2980109 "^DD",164.33,164.331,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.331,.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.33,164.331,0,"IX","ATX",164.331,.03) "^DD",164.33,164.331,0,"IX","B",164.331,.01) "^DD",164.33,164.331,0,"NM","T-CLASS ENCODING") "^DD",164.33,164.331,0,"UP") 164.33 "^DD",164.33,164.331,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",164.33,164.331,.001,3) Type a Number between 1 and 99, 0 Decimal Digits "^DD",164.33,164.331,.001,21,0) ^^1^1^2930930^ "^DD",164.33,164.331,.001,21,1,0) This is the sequence number for display. "^DD",164.33,164.331,.001,"DT") 2920130 "^DD",164.33,164.331,.01,0) T-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164.33,164.331,.01,1,0) ^.1 "^DD",164.33,164.331,.01,1,1,0) 164.331^B "^DD",164.33,164.331,.01,1,1,1) S ^ONCO(164.33,DA(1),"T","B",$E(X,1,30),DA)="" "^DD",164.33,164.331,.01,1,1,2) K ^ONCO(164.33,DA(1),"T","B",$E(X,1,30),DA) "^DD",164.33,164.331,.01,3) Answer must be 2-45 characters in length. "^DD",164.33,164.331,.01,21,0) ^^1^1^2971118^^ "^DD",164.33,164.331,.01,21,1,0) This is the description of the tumor. "^DD",164.33,164.331,.01,"DT") 2971118 "^DD",164.33,164.331,.02,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;88:NA;is pu:Tis pu;is pd:Tis pd;^0;2^Q "^DD",164.33,164.331,.02,21,0) ^^1^1^2980109^^^^ "^DD",164.33,164.331,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164.33,164.331,.02,"DT") 2980109 "^DD",164.33,164.331,.03,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;88:NA;IS PU:TIS PU;IS PD:TIS PD;^0;3^Q "^DD",164.33,164.331,.03,1,0) ^.1 "^DD",164.33,164.331,.03,1,1,0) 164.331^ATX^MUMPS "^DD",164.33,164.331,.03,1,1,1) S ^ONCO(164.33,DA(1),"T","X",X)=DA "^DD",164.33,164.331,.03,1,1,2) K ^ONCO(164.33,DA(1),"T","X",X) "^DD",164.33,164.331,.03,1,1,"%D",0) ^^1^1^2920215^ "^DD",164.33,164.331,.03,1,1,"%D",1,0) For lookup on output of code. "^DD",164.33,164.331,.03,1,1,"DT") 2920213 "^DD",164.33,164.331,.03,21,0) ^^1^1^2980109^^^^ "^DD",164.33,164.331,.03,21,1,0) This is the T code as transmitted to ACOS. "^DD",164.33,164.331,.03,"DT") 2980109 "^DD",164.33,164.3311,0) 6TH EDITION (T) CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.3311,0,"DT") 3020729 "^DD",164.33,164.3311,0,"NM","6TH EDITION (T) CODE HELP") "^DD",164.33,164.3311,0,"UP") 164.33 "^DD",164.33,164.3311,.01,0) 6TH EDITION (T) CODE HELP^W^^0;1^Q "^DD",164.33,164.3311,.01,21,0) ^^2^2^3020729^ "^DD",164.33,164.3311,.01,21,1,0) This field contains the full text of the Sixth Edition Primary Tumor (T) "^DD",164.33,164.3311,.01,21,2,0) code definitions. "^DD",164.33,164.3311,.01,"DT") 3020729 "^DD",164.33,164.3312,0) 6TH EDITION (N) CODES SUB-FIELD^^1^2 "^DD",164.33,164.3312,0,"DT") 3020801 "^DD",164.33,164.3312,0,"IX","B",164.3312,.01) "^DD",164.33,164.3312,0,"IX","X",164.3312,1) "^DD",164.33,164.3312,0,"NM","6TH EDITION (N) CODES") "^DD",164.33,164.3312,0,"UP") 164.33 "^DD",164.33,164.3312,.01,0) DESCRIPTION^MRF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164.33,164.3312,.01,1,0) ^.1 "^DD",164.33,164.3312,.01,1,1,0) 164.3312^B "^DD",164.33,164.3312,.01,1,1,1) S ^ONCO(164.33,DA(1),"N6","B",$E(X,1,30),DA)="" "^DD",164.33,164.3312,.01,1,1,2) K ^ONCO(164.33,DA(1),"N6","B",$E(X,1,30),DA) "^DD",164.33,164.3312,.01,3) Answer must be 1-50 characters in length. "^DD",164.33,164.3312,.01,21,0) ^.001^2^2^3020729^^ "^DD",164.33,164.3312,.01,21,1,0) This field contains the Sixth Edition Regional Lymph Nodes (N) code "^DD",164.33,164.3312,.01,21,2,0) descriptions. "^DD",164.33,164.3312,.01,"DT") 3020729 "^DD",164.33,164.3312,1,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1bi:N1bi;1bii:N1bii;1biii:N1biii;1biv:N1biv;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;1mi:N1mi;^0;2^Q "^DD",164.33,164.3312,1,1,0) ^.1 "^DD",164.33,164.3312,1,1,1,0) 164.3312^X^MUMPS "^DD",164.33,164.3312,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164.33,DA(1),"N6","X",X)=DA "^DD",164.33,164.3312,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164.33,DA(1),"N6","X",X) "^DD",164.33,164.3312,1,1,1,"%D",0) ^^2^2^3020729^ "^DD",164.33,164.3312,1,1,1,"%D",1,0) This cross-reference is an uppercase cross-reference of the 6TH EDITION "^DD",164.33,164.3312,1,1,1,"%D",2,0) T-CODE values. "^DD",164.33,164.3312,1,1,1,"DT") 3020729 "^DD",164.33,164.3312,1,21,0) ^.001^1^1^3020801^^ "^DD",164.33,164.3312,1,21,1,0) This field contains the Sixth Edition Regional Lymph Nodes (N) codes. "^DD",164.33,164.3312,1,"DT") 3020801 "^DD",164.33,164.3313,0) 6TH EDITION (N) CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.3313,0,"DT") 3020730 "^DD",164.33,164.3313,0,"NM","6TH EDITION (N) CODE HELP") "^DD",164.33,164.3313,0,"UP") 164.33 "^DD",164.33,164.3313,.01,0) 6TH EDITION (N) CODE HELP^W^^0;1^Q "^DD",164.33,164.3313,.01,21,0) ^^2^2^3020730^ "^DD",164.33,164.3313,.01,21,1,0) This field contains the full text of the Sixth Edition Regional Lymph "^DD",164.33,164.3313,.01,21,2,0) Nodes (N) code definitions. "^DD",164.33,164.3313,.01,"DT") 3020730 "^DD",164.33,164.3314,0) 6TH EDITION (M) CODES SUB-FIELD^^1^2 "^DD",164.33,164.3314,0,"DT") 3020730 "^DD",164.33,164.3314,0,"IX","B",164.3314,.01) "^DD",164.33,164.3314,0,"IX","M6",164.3314,1) "^DD",164.33,164.3314,0,"NM","6TH EDITION (M) CODES") "^DD",164.33,164.3314,0,"UP") 164.33 "^DD",164.33,164.3314,.01,0) DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164.33,164.3314,.01,1,0) ^.1 "^DD",164.33,164.3314,.01,1,1,0) 164.3314^B "^DD",164.33,164.3314,.01,1,1,1) S ^ONCO(164.33,DA(1),"M6","B",$E(X,1,30),DA)="" "^DD",164.33,164.3314,.01,1,1,2) K ^ONCO(164.33,DA(1),"M6","B",$E(X,1,30),DA) "^DD",164.33,164.3314,.01,3) Answer must be 1-50 characters in length. "^DD",164.33,164.3314,.01,21,0) ^^2^2^3020730^ "^DD",164.33,164.3314,.01,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) code "^DD",164.33,164.3314,.01,21,2,0) descriptions. "^DD",164.33,164.3314,.01,"DT") 3020730 "^DD",164.33,164.3314,1,0) CODE^S^X:MX;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q "^DD",164.33,164.3314,1,1,0) ^.1 "^DD",164.33,164.3314,1,1,1,0) 164.3314^M6^MUMPS "^DD",164.33,164.3314,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164.33,DA(1),"M6","X",X)=DA "^DD",164.33,164.3314,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164.33,DA(1),"M6","X",X) "^DD",164.33,164.3314,1,1,1,"%D",0) ^^2^2^3020730^ "^DD",164.33,164.3314,1,1,1,"%D",1,0) This cross-reference is an uppercase cross-reference of the 6TH EDITION "^DD",164.33,164.3314,1,1,1,"%D",2,0) M-CODE values. "^DD",164.33,164.3314,1,1,1,"DT") 3020730 "^DD",164.33,164.3314,1,21,0) ^^1^1^3020730^ "^DD",164.33,164.3314,1,21,1,0) This field contains the Sixth Edition Distant Metastasis (M) codes. "^DD",164.33,164.3314,1,"DT") 3020730 "^DD",164.33,164.3315,0) 6TH EDITION (M) CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.3315,0,"DT") 3020730 "^DD",164.33,164.3315,0,"NM","6TH EDITION (M) CODE HELP") "^DD",164.33,164.3315,0,"UP") 164.33 "^DD",164.33,164.3315,.01,0) 6TH EDITION (M) CODE HELP^W^^0;1^Q "^DD",164.33,164.3315,.01,21,0) ^^2^2^3020730^ "^DD",164.33,164.3315,.01,21,1,0) This field contains the full text of the Sixth Edition Distant Metastasis "^DD",164.33,164.3315,.01,21,2,0) (M) code definitions. "^DD",164.33,164.3315,.01,"DT") 3020730 "^DD",164.33,164.332,0) N-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164.33,164.332,0,"DT") 2971107 "^DD",164.33,164.332,0,"IX","ANX",164.332,.03) "^DD",164.33,164.332,0,"IX","B",164.332,.01) "^DD",164.33,164.332,0,"NM","N-CLASS ENCODING") "^DD",164.33,164.332,0,"UP") 164.33 "^DD",164.33,164.332,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",164.33,164.332,.001,3) Type a Number between 1 and 99, 0 Decimal Digits "^DD",164.33,164.332,.001,21,0) ^^1^1^2930930^ "^DD",164.33,164.332,.001,21,1,0) This is the sequence number for display. "^DD",164.33,164.332,.001,"DT") 2920130 "^DD",164.33,164.332,.01,0) N-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164.33,164.332,.01,1,0) ^.1 "^DD",164.33,164.332,.01,1,1,0) 164.332^B "^DD",164.33,164.332,.01,1,1,1) S ^ONCO(164.33,DA(1),"N","B",$E(X,1,30),DA)="" "^DD",164.33,164.332,.01,1,1,2) K ^ONCO(164.33,DA(1),"N","B",$E(X,1,30),DA) "^DD",164.33,164.332,.01,3) Answer must be 2-45 characters in length. "^DD",164.33,164.332,.01,21,0) ^^1^1^2971107^^ "^DD",164.33,164.332,.01,21,1,0) This is the description of regional lymph node involvement. "^DD",164.33,164.332,.01,"DT") 2971107 "^DD",164.33,164.332,.02,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1bi:N1bi;1bii:N1bii;1biii:N1biii;1biv:N1biv;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.33,164.332,.02,21,0) ^^1^1^2971107^^^ "^DD",164.33,164.332,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164.33,164.332,.02,"DT") 2971107 "^DD",164.33,164.332,.03,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1BI:N1BI;1BII:N1BII;1BIII:N1BIII;1BIV:N1BIV;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.33,164.332,.03,1,0) ^.1 "^DD",164.33,164.332,.03,1,1,0) 164.332^ANX^MUMPS "^DD",164.33,164.332,.03,1,1,1) S ^ONCO(164.33,DA(1),"N","X",X)=DA "^DD",164.33,164.332,.03,1,1,2) K ^ONCO(164.33,DA(1),"N","X",X) "^DD",164.33,164.332,.03,1,1,"%D",0) ^^1^1^2920215^ "^DD",164.33,164.332,.03,1,1,"%D",1,0) Used for lookup on output of code. "^DD",164.33,164.332,.03,1,1,"DT") 2920213 "^DD",164.33,164.332,.03,21,0) ^^1^1^2971107^^^^ "^DD",164.33,164.332,.03,21,1,0) This is the code in ACOS reporting format. "^DD",164.33,164.332,.03,"DT") 2971107 "^DD",164.33,164.333,0) STAGE GROUPING SUB-FIELD^^.03^4 "^DD",164.33,164.333,0,"DT") 2921003 "^DD",164.33,164.333,0,"IX","B",164.333,.01) "^DD",164.33,164.333,0,"IX","X",164.333,.03) "^DD",164.33,164.333,0,"NM","STAGE GROUPING") "^DD",164.33,164.333,0,"UP") 164.33 "^DD",164.33,164.333,.001,0) NUMBER^NJ4,1^^ ^K:+X'=X!(X>10)!(X<1)!(X?.E1"."2N.N) X "^DD",164.33,164.333,.001,3) Type a Number between 1 and 10, 1 Decimal Digit "^DD",164.33,164.333,.001,21,0) ^^1^1^2930930^ "^DD",164.33,164.333,.001,21,1,0) This is the sequence number for display. "^DD",164.33,164.333,.001,"DT") 2920720 "^DD",164.33,164.333,.01,0) STAGE GROUPING^MF^^0;1^K:$L(X)>10!($L(X)<1) X "^DD",164.33,164.333,.01,1,0) ^.1 "^DD",164.33,164.333,.01,1,1,0) 164.333^B "^DD",164.33,164.333,.01,1,1,1) S ^ONCO(164.33,DA(1),"S","B",$E(X,1,30),DA)="" "^DD",164.33,164.333,.01,1,1,2) K ^ONCO(164.33,DA(1),"S","B",$E(X,1,30),DA) "^DD",164.33,164.333,.01,3) Answer must be 1-10 characters in length. "^DD",164.33,164.333,.01,21,0) ^^1^1^2930930^^ "^DD",164.33,164.333,.01,21,1,0) This is the stage group code. "^DD",164.33,164.333,.01,"DT") 2920130 "^DD",164.33,164.333,.02,0) DESCRIPTION^F^^0;2^K:$L(X)>100!($L(X)<3) X "^DD",164.33,164.333,.02,3) Answer must be 3-100 characters in length. "^DD",164.33,164.333,.02,21,0) ^^1^1^2930930^ "^DD",164.33,164.333,.02,21,1,0) This is the description of the stage grouping. "^DD",164.33,164.333,.02,"DT") 2920130 "^DD",164.33,164.333,.03,0) FIELD#20^RS^1:I;1E:IE;2:II;2E:IIE;3:III;3E:IIIE;3S:IIIS;3ES:IIIES;4:IV;^0;3^Q "^DD",164.33,164.333,.03,1,0) ^.1 "^DD",164.33,164.333,.03,1,1,0) 164.333^X "^DD",164.33,164.333,.03,1,1,1) S ^ONCO(164.33,DA(1),"S","X",$E(X,1,30),DA)="" "^DD",164.33,164.333,.03,1,1,2) K ^ONCO(164.33,DA(1),"S","X",$E(X,1,30),DA) "^DD",164.33,164.333,.03,1,1,"%D",0) ^^1^1^2921003^ "^DD",164.33,164.333,.03,1,1,"%D",1,0) Select proper code. "^DD",164.33,164.333,.03,1,1,"DT") 2921003 "^DD",164.33,164.333,.03,3) Code stored in field #20 file 165.5 "^DD",164.33,164.333,.03,21,0) ^^1^1^2930930^ "^DD",164.33,164.333,.03,21,1,0) This is the ICDO-Topography Code from the ONCOLOGY PRIMARY File. "^DD",164.33,164.333,.03,"DT") 2921003 "^DD",164.33,164.334,0) M-CLASS ENCODING SUB-FIELD^^.03^3 "^DD",164.33,164.334,0,"DT") 2971118 "^DD",164.33,164.334,0,"IX","AMX",164.334,.03) "^DD",164.33,164.334,0,"IX","B",164.334,.01) "^DD",164.33,164.334,0,"NM","M-CLASS ENCODING") "^DD",164.33,164.334,0,"UP") 164.33 "^DD",164.33,164.334,.01,0) M-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164.33,164.334,.01,1,0) ^.1 "^DD",164.33,164.334,.01,1,1,0) 164.334^B "^DD",164.33,164.334,.01,1,1,1) S ^ONCO(164.33,DA(1),"M","B",$E(X,1,30),DA)="" "^DD",164.33,164.334,.01,1,1,2) K ^ONCO(164.33,DA(1),"M","B",$E(X,1,30),DA) "^DD",164.33,164.334,.01,3) Answer must be 2-45 characters in length. "^DD",164.33,164.334,.01,21,0) ^^1^1^2971118^^ "^DD",164.33,164.334,.01,21,1,0) This is the description of distant metastasis "^DD",164.33,164.334,.01,"DT") 2971118 "^DD",164.33,164.334,.02,0) CODE^S^X:MX;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q "^DD",164.33,164.334,.02,21,0) ^^1^1^2971118^^^^ "^DD",164.33,164.334,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164.33,164.334,.02,"DT") 2971118 "^DD",164.33,164.334,.03,0) ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;1C:M1C;88:NA;^0;3^Q "^DD",164.33,164.334,.03,1,0) ^.1 "^DD",164.33,164.334,.03,1,1,0) 164.334^AMX^MUMPS "^DD",164.33,164.334,.03,1,1,1) S ^ONCO(164.33,DA(1),"M","X",X)=DA "^DD",164.33,164.334,.03,1,1,2) K ^ONCO(164.33,DA(1),"M","X",X) "^DD",164.33,164.334,.03,1,1,3) DO NOT DELETE "^DD",164.33,164.334,.03,1,1,"%D",0) ^^1^1^2920215^ "^DD",164.33,164.334,.03,1,1,"%D",1,0) Used for output for M code. "^DD",164.33,164.334,.03,1,1,"DT") 2920215 "^DD",164.33,164.334,.03,21,0) ^^1^1^2971118^^^ "^DD",164.33,164.334,.03,21,1,0) This is the code as transmitted to ACoS. "^DD",164.33,164.334,.03,"DT") 2971118 "^DD",164.33,164.335,0) 4TH EDITION M-CLASS ENCODING SUB-FIELD^^2^3 "^DD",164.33,164.335,0,"DT") 2971224 "^DD",164.33,164.335,0,"IX","AC",164.335,2) "^DD",164.33,164.335,0,"IX","B",164.335,.01) "^DD",164.33,164.335,0,"NM","4TH EDITION M-CLASS ENCODING") "^DD",164.33,164.335,0,"UP") 164.33 "^DD",164.33,164.335,.01,0) 4TH EDITION M-CLASS ENCODING^MF^^0;1^K:$L(X)>60!($L(X)<2) X "^DD",164.33,164.335,.01,1,0) ^.1 "^DD",164.33,164.335,.01,1,1,0) 164.335^B "^DD",164.33,164.335,.01,1,1,1) S ^ONCO(164.33,DA(1),"M4","B",$E(X,1,30),DA)="" "^DD",164.33,164.335,.01,1,1,2) K ^ONCO(164.33,DA(1),"M4","B",$E(X,1,30),DA) "^DD",164.33,164.335,.01,3) Answer must be 2-60 characters in length. "^DD",164.33,164.335,.01,21,0) ^^2^2^2971224^^^ "^DD",164.33,164.335,.01,21,1,0) This is the description of distant metastases from the 4th edition of "^DD",164.33,164.335,.01,21,2,0) the AJCC Manual on Staging of Cancer. "^DD",164.33,164.335,.01,"DT") 2971224 "^DD",164.33,164.335,1,0) CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q "^DD",164.33,164.335,1,21,0) ^^1^1^2960301^^ "^DD",164.33,164.335,1,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164.33,164.335,1,"DT") 2960301 "^DD",164.33,164.335,2,0) ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;1C:M1C;88:NA;^0;3^Q "^DD",164.33,164.335,2,1,0) ^.1 "^DD",164.33,164.335,2,1,1,0) 164.335^AC^MUMPS "^DD",164.33,164.335,2,1,1,1) S ^ONCO(164.33,DA(1),"M4","X",X)=DA "^DD",164.33,164.335,2,1,1,2) K ^ONCO(164.33,DA(1),"M4","X",X) "^DD",164.33,164.335,2,1,1,"%D",0) ^^1^1^2930910^ "^DD",164.33,164.335,2,1,1,"%D",1,0) Indexes the sub-file by AJCC Manual 4th edition M codes. "^DD",164.33,164.335,2,1,1,"DT") 2930609 "^DD",164.33,164.335,2,21,0) ^^1^1^2960301^^ "^DD",164.33,164.335,2,21,1,0) This is the M code as transmitted to ACoS. "^DD",164.33,164.335,2,"DT") 2960301 "^DD",164.33,164.336,0) 5TH EDITION T-CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.336,0,"DT") 2971222 "^DD",164.33,164.336,0,"NM","5TH EDITION T-CODE HELP") "^DD",164.33,164.336,0,"UP") 164.33 "^DD",164.33,164.336,.01,0) 5TH EDITION T-CODE HELP^W^^0;1^Q "^DD",164.33,164.336,.01,"DT") 2971222 "^DD",164.33,164.337,0) 5TH EDITION N-CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.337,0,"DT") 2971223 "^DD",164.33,164.337,0,"NM","5TH EDITION N-CODE HELP") "^DD",164.33,164.337,0,"UP") 164.33 "^DD",164.33,164.337,.01,0) 5TH EDITION N-CODE HELP^W^^0;1^Q "^DD",164.33,164.337,.01,"DT") 2971223 "^DD",164.33,164.338,0) 5TH EDITION M-CODE HELP SUB-FIELD^^.01^1 "^DD",164.33,164.338,0,"DT") 2971223 "^DD",164.33,164.338,0,"NM","5TH EDITION M-CODE HELP") "^DD",164.33,164.338,0,"UP") 164.33 "^DD",164.33,164.338,.01,0) 5TH EDITION M-CODE HELP^W^^0;1^Q "^DD",164.33,164.338,.01,"DT") 2971223 "^DD",164.33,164.34,0) 6TH EDITION (T) CODES SUB-FIELD^^1^2 "^DD",164.33,164.34,0,"DT") 3020717 "^DD",164.33,164.34,0,"IX","B",164.34,.01) "^DD",164.33,164.34,0,"NM","6TH EDITION (T) CODES") "^DD",164.33,164.34,0,"UP") 164.33 "^DD",164.33,164.34,.01,0) DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X "^DD",164.33,164.34,.01,1,0) ^.1 "^DD",164.33,164.34,.01,1,1,0) 164.34^B "^DD",164.33,164.34,.01,1,1,1) S ^ONCO(164.33,DA(1),"T6","B",$E(X,1,30),DA)="" "^DD",164.33,164.34,.01,1,1,2) K ^ONCO(164.33,DA(1),"T6","B",$E(X,1,30),DA) "^DD",164.33,164.34,.01,3) Answer must be 1-50 characters in length. "^DD",164.33,164.34,.01,"DT") 3020717 "^DD",164.33,164.34,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.33,164.34,1,1,0) ^.1 "^DD",164.33,164.34,1,1,1,0) 164.33^X^MUMPS "^DD",164.33,164.34,1,1,1,1) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") S ^ONCO(164.33,DA(1),"T6","X",X)=DA "^DD",164.33,164.34,1,1,1,2) S X=$TR(X,"abcdimpsuvx","ABCDIMPSUVX") K ^ONCO(164.33,DA(1),"T6","X",X) "^DD",164.33,164.34,1,1,1,"%D",0) ^^2^2^3020717^ "^DD",164.33,164.34,1,1,1,"%D",1,0) This cross-reference is an uppercase cross-reference of the 6TH EDITION "^DD",164.33,164.34,1,1,1,"%D",2,0) T-CODE values. "^DD",164.33,164.34,1,1,1,"DT") 3020717 "^DD",164.33,164.34,1,"DT") 3020717 "^DD",165.5,165.5,29.1,0) TUMOR SIZE/EXT EVAL^S^0:No resection, non-invasive;1:No resection, invasive;2:No resection, autopsy;3:Resection, W/O systemic/rad tx;5:Resection, W systemic/rad tx, clin evid;6:Resection, W systemic/rad tx, path evid;8:Autopsy;9:Unk/NA;^CS;1^Q "^DD",165.5,165.5,29.1,21,0) ^.001^44^44^3030924^^^^ "^DD",165.5,165.5,29.1,21,1,0) "^DD",165.5,165.5,29.1,21,2,0) This belongs to the set of Collaborative Staging (CS) data items. "^DD",165.5,165.5,29.1,21,3,0) TUMOR SIZE/EXT EVAL records the validity of the classification of "^DD",165.5,165.5,29.1,21,4,0) the items TUMOR SIZE and EXTENSION only according to the diagnostic "^DD",165.5,165.5,29.1,21,5,0) methods employed. This data item is used in CS to identify whether "^DD",165.5,165.5,29.1,21,6,0) the T (of AJCC TNM) was clinically or pathologically diagnosed and "^DD",165.5,165.5,29.1,21,7,0) by what methods. "^DD",165.5,165.5,29.1,21,8,0) "^DD",165.5,165.5,29.1,21,9,0) 0 No surgical resection done. Evaluation based on physical "^DD",165.5,165.5,29.1,21,10,0) examination, imaging examination, or other non-invasive "^DD",165.5,165.5,29.1,21,11,0) clinical evidence. No autopsy evidence used. "^DD",165.5,165.5,29.1,21,12,0) "^DD",165.5,165.5,29.1,21,13,0) 1 No surgical resection done. Evaluation based on endoscopic "^DD",165.5,165.5,29.1,21,14,0) examination, diagnostic biopsy, including fine needle "^DD",165.5,165.5,29.1,21,15,0) aspiration biopsy, or other invasive techniques including "^DD",165.5,165.5,29.1,21,16,0) surgical observation without biopsy. "^DD",165.5,165.5,29.1,21,17,0) No autopsy evidence used. Does not meet criteria for AJCC "^DD",165.5,165.5,29.1,21,18,0) pathological T staging. "^DD",165.5,165.5,29.1,21,19,0) "^DD",165.5,165.5,29.1,21,20,0) 2 No surgical resection done, but evidence derived from autopsy "^DD",165.5,165.5,29.1,21,21,0) (tumor was suspected or diagnosed prior to autopsy). "^DD",165.5,165.5,29.1,21,22,0) "^DD",165.5,165.5,29.1,21,23,0) 3 Surgical resection performed WITHOUT presurgical systemic "^DD",165.5,165.5,29.1,21,24,0) treatment or radiation OR surgical resection performed, "^DD",165.5,165.5,29.1,21,25,0) unknown if pre-surgical treatment or radiation performed. "^DD",165.5,165.5,29.1,21,26,0) Evidence acquired before treatment, supplemented or modified "^DD",165.5,165.5,29.1,21,27,0) by the the additional evidence acquired during and from surgery, "^DD",165.5,165.5,29.1,21,28,0) particularly from pathologic examination of the resected specimen. "^DD",165.5,165.5,29.1,21,29,0) Meets criteria for AJCC pathological T staging. "^DD",165.5,165.5,29.1,21,30,0) "^DD",165.5,165.5,29.1,21,31,0) 5 Surgical resection performed WITH presurgical systemic treatment "^DD",165.5,165.5,29.1,21,32,0) or radiation, BUT tumor size/extension based on clincial evidence. "^DD",165.5,165.5,29.1,21,33,0) "^DD",165.5,165.5,29.1,21,34,0) 6 Surgical resection performed WITH presurgical systemic treatment "^DD",165.5,165.5,29.1,21,35,0) or radiation; tumor size/extension based on pathologic evidence. "^DD",165.5,165.5,29.1,21,36,0) "^DD",165.5,165.5,29.1,21,37,0) 8 Evidence from autopsy only (tumor was unsuspected or undiagnosed "^DD",165.5,165.5,29.1,21,38,0) prior to autopsy). "^DD",165.5,165.5,29.1,21,39,0) "^DD",165.5,165.5,29.1,21,40,0) 9 Unknown if surgical resection done. "^DD",165.5,165.5,29.1,21,41,0) Not assessed; cannot be assessed. "^DD",165.5,165.5,29.1,21,42,0) Unknown if assessed. "^DD",165.5,165.5,29.1,21,43,0) Not documented in patient record. "^DD",165.5,165.5,29.1,21,44,0) Not applicable for this site. "^DD",165.5,165.5,29.1,"DT") 3030924 "^DD",165.5,165.5,52.2,0) RADIATION THERAPY TO CNS^SX^0:No radiation to CNS;1:Radiation;7:Patient refused radiation;8:Radiation recommended, unk if admin;9:Unknown/NA;^3;10^S V=0 D NT^ONCODSR "^DD",165.5,165.5,52.2,.1) "^DD",165.5,165.5,52.2,1,0) ^.1^^0 "^DD",165.5,165.5,52.2,3) Code '9' unless this is a lung or leukemia case "^DD",165.5,165.5,52.2,10) "^DD",165.5,165.5,52.2,20,0) ^.3LA^^0 "^DD",165.5,165.5,52.2,20,1,0) SEER "^DD",165.5,165.5,52.2,21,0) ^^9^9^2970821^^^^ "^DD",165.5,165.5,52.2,21,1,0) "^DD",165.5,165.5,52.2,21,2,0) These data are being kept for historical purposes. Do not code for "^DD",165.5,165.5,52.2,21,3,0) cases diagnosed as of January 1, 1996. Case diagnosed on or after "^DD",165.5,165.5,52.2,21,4,0) January 1, 1996 should be coded in the field RADIATION. "^DD",165.5,165.5,52.2,21,5,0) "^DD",165.5,165.5,52.2,21,6,0) Radiation treatment to the central nervous system (CNS) codes 0-8 "^DD",165.5,165.5,52.2,21,7,0) are valid only for patients with lung or leukemia primaries. Code "^DD",165.5,165.5,52.2,21,8,0) 9 (Unknown/NA) for all other cases. "^DD",165.5,165.5,52.2,21,9,0) "^DD",165.5,165.5,52.2,"DT") 3030811 "^DD",165.5,165.5,53.2,0) CHEMOTHERAPY^SX^00:None;01:Chemotherapy, NOS;02:Single agent;03:Multiagent;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert^3;13^Q "^DD",165.5,165.5,53.2,.1) "^DD",165.5,165.5,53.2,1,0) ^.1 "^DD",165.5,165.5,53.2,1,1,0) 165.5^AM^MUMPS "^DD",165.5,165.5,53.2,1,1,1) Q "^DD",165.5,165.5,53.2,1,1,2) D CHE^ONCDTX "^DD",165.5,165.5,53.2,1,1,"DT") 2970923 "^DD",165.5,165.5,53.2,10) "^DD",165.5,165.5,53.2,21,0) ^.001^9^9^3030910^^^^ "^DD",165.5,165.5,53.2,21,1,0) "^DD",165.5,165.5,53.2,21,2,0) Records the type of chemotherapy administered as first course of "^DD",165.5,165.5,53.2,21,3,0) treatment at this and at all other facilities. If chemotherapy "^DD",165.5,165.5,53.2,21,4,0) was not administered, then this item records the reason it was not "^DD",165.5,165.5,53.2,21,5,0) administered to the patient. Chemotherapy consists of a group of "^DD",165.5,165.5,53.2,21,6,0) anticancer drugs that inhibit the reproduction of cancer cells by "^DD",165.5,165.5,53.2,21,7,0) interfering with DNA synthesis and mitosis. "^DD",165.5,165.5,53.2,21,8,0) "^DD",165.5,165.5,53.2,21,9,0) For further information see FORDS pages 171-172. "^DD",165.5,165.5,53.2,"DT") 3030909 "^DD",165.5,165.5,54.2,0) HORMONE THERAPY^SX^00:None;01:Hormone therapy;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert^3;16^Q "^DD",165.5,165.5,54.2,.1) "^DD",165.5,165.5,54.2,1,0) ^.1 "^DD",165.5,165.5,54.2,1,1,0) 165.5^AN^MUMPS "^DD",165.5,165.5,54.2,1,1,1) Q "^DD",165.5,165.5,54.2,1,1,2) D HOR^ONCDTX "^DD",165.5,165.5,54.2,1,1,"DT") 2970923 "^DD",165.5,165.5,54.2,10) "^DD",165.5,165.5,54.2,21,0) 1^.001^9^9^3030225^^^^ "^DD",165.5,165.5,54.2,21,1,0) "^DD",165.5,165.5,54.2,21,2,0) Records the type of hormone therapy administered as first course "^DD",165.5,165.5,54.2,21,3,0) treatment at this and all other facilities. If hormone therapy "^DD",165.5,165.5,54.2,21,4,0) was not administered, then this item records the reason it was "^DD",165.5,165.5,54.2,21,5,0) not administered to the patient. Hormone therapy consists of a "^DD",165.5,165.5,54.2,21,6,0) group of drugs that may affect the long-term control of a cancer's "^DD",165.5,165.5,54.2,21,7,0) growth. It is not usually used as a curative measure. "^DD",165.5,165.5,54.2,21,8,0) "^DD",165.5,165.5,54.2,21,9,0) For further information see FORDS pages 175-176. "^DD",165.5,165.5,54.2,"DT") 3030909 "^DD",165.5,165.5,55.2,0) IMMUNOTHERAPY^SX^00:None;01:Immunotherapy;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert^3;19^Q "^DD",165.5,165.5,55.2,.1) "^DD",165.5,165.5,55.2,1,0) ^.1 "^DD",165.5,165.5,55.2,1,1,0) 165.5^AO^MUMPS "^DD",165.5,165.5,55.2,1,1,1) Q "^DD",165.5,165.5,55.2,1,1,2) D IMM^ONCDTX "^DD",165.5,165.5,55.2,1,1,"DT") 2970923 "^DD",165.5,165.5,55.2,3) "^DD",165.5,165.5,55.2,4) "^DD",165.5,165.5,55.2,10) "^DD",165.5,165.5,55.2,20,0) ^.3LA^^0 "^DD",165.5,165.5,55.2,21,0) ^.001^9^9^3030225^^^^ "^DD",165.5,165.5,55.2,21,1,0) "^DD",165.5,165.5,55.2,21,2,0) Records the type of immunotherapy administered as first course "^DD",165.5,165.5,55.2,21,3,0) treatment at this and all other facilities. If immunotherapy "^DD",165.5,165.5,55.2,21,4,0) was not administered, then this item records the reason it was "^DD",165.5,165.5,55.2,21,5,0) not administered to the patient. Immunotherapy consists of "^DD",165.5,165.5,55.2,21,6,0) biological or chemical agents that alter the immune system or "^DD",165.5,165.5,55.2,21,7,0) change the host's response to the tumor cells. "^DD",165.5,165.5,55.2,21,8,0) "^DD",165.5,165.5,55.2,21,9,0) For further information see FORDS pages 179-180. "^DD",165.5,165.5,55.2,"DT") 3030909 "^DD",165.5,165.5,57.2,0) OTHER TREATMENT^SX^0:None;1:Other;2:Other - Experimental;3:Other - Double Blind;6:Other - Unproven;7:Refusal;8:Recommended, unknown if administered;9:Unkown;^3;25^Q "^DD",165.5,165.5,57.2,.1) "^DD",165.5,165.5,57.2,1,0) ^.1 "^DD",165.5,165.5,57.2,1,1,0) 165.5^AP^MUMPS "^DD",165.5,165.5,57.2,1,1,1) Q "^DD",165.5,165.5,57.2,1,1,2) D OTH^ONCDTX "^DD",165.5,165.5,57.2,1,1,"DT") 2970923 "^DD",165.5,165.5,57.2,10) "^DD",165.5,165.5,57.2,20,0) ^.3LA^^0 "^DD",165.5,165.5,57.2,21,0) ^.001^6^6^3030131^^^^ "^DD",165.5,165.5,57.2,21,1,0) "^DD",165.5,165.5,57.2,21,2,0) Identifies other treatment that cannot be defined as surgery, "^DD",165.5,165.5,57.2,21,3,0) radiation, or systemic therapy according to the defined data "^DD",165.5,165.5,57.2,21,4,0) elements in the FORDS manual. "^DD",165.5,165.5,57.2,21,5,0) "^DD",165.5,165.5,57.2,21,6,0) For further information see FORDS page 186. "^DD",165.5,165.5,57.2,"DT") 3030909 "^DD",165.5,165.5,57.3,0) OTHER TREATMENT @FAC^SX^0:None;1:Other;2:Other - Experimental;3:Other - Double Blind;6:Other - Unproven;7:Refusal;8:Recommended, unknown if administered;9:Unkown;^3.1;20^Q "^DD",165.5,165.5,57.3,1,0) ^.1 "^DD",165.5,165.5,57.3,1,1,0) 165.5^AZ^MUMPS "^DD",165.5,165.5,57.3,1,1,1) Q "^DD",165.5,165.5,57.3,1,1,2) D OTHATF^ONCDTX1 "^DD",165.5,165.5,57.3,1,1,"%D",0) ^^2^2^2981029^ "^DD",165.5,165.5,57.3,1,1,"%D",1,0) When the value of this field is deleted, the KILL logic will delete all of "^DD",165.5,165.5,57.3,1,1,"%D",2,0) the associated field values. "^DD",165.5,165.5,57.3,1,1,"DT") 2981001 "^DD",165.5,165.5,57.3,21,0) ^.001^6^6^3030131^^^^ "^DD",165.5,165.5,57.3,21,1,0) "^DD",165.5,165.5,57.3,21,2,0) Identifies other treatment given at this facility that cannot be "^DD",165.5,165.5,57.3,21,3,0) defined as surgery, radiation, or systemic therapy according to "^DD",165.5,165.5,57.3,21,4,0) the defined data elements in the FORDS manual. "^DD",165.5,165.5,57.3,21,5,0) "^DD",165.5,165.5,57.3,21,6,0) For further information see FORDS page 187. "^DD",165.5,165.5,57.3,"DT") 3030909 "^DD",165.5,165.5,58.7,0) SURGERY OF PRIMARY @FAC (F)^FOX^^3.1;30^S SPSFLG=0 D SPSDFIT^ONCTXSM K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X),SPSFLG=0 S FIELD=58.7,NTXDD=1 D SPSIT^ONCOSUR "^DD",165.5,165.5,58.7,1,0) ^.1 "^DD",165.5,165.5,58.7,1,1,0) 165.5^AT^MUMPS "^DD",165.5,165.5,58.7,1,1,1) Q "^DD",165.5,165.5,58.7,1,1,2) D SPSATF^ONCDTX1 "^DD",165.5,165.5,58.7,1,1,"%D",0) ^^2^2^3030117^ "^DD",165.5,165.5,58.7,1,1,"%D",1,0) If SURGICAL PROC OF PRIMARY @FAC is deleted, the "^DD",165.5,165.5,58.7,1,1,"%D",2,0) associated surgery @FAC fields are also deleted. "^DD",165.5,165.5,58.7,1,1,"DT") 3030117 "^DD",165.5,165.5,58.7,2) S Y(0)=Y S FIELD=58.7 D SPSOT^ONCOSUR "^DD",165.5,165.5,58.7,2.1) S FIELD=58.7 D SPSOT^ONCOSUR "^DD",165.5,165.5,58.7,3) "^DD",165.5,165.5,58.7,4) S FIELD=58.7 D SPSHP^ONCOSUR "^DD",165.5,165.5,58.7,21,0) ^.001^5^5^3031010^^^^ "^DD",165.5,165.5,58.7,21,1,0) "^DD",165.5,165.5,58.7,21,2,0) Records the surgical procedure(s) performed "^DD",165.5,165.5,58.7,21,3,0) to the primary at this facility. "^DD",165.5,165.5,58.7,21,4,0) "^DD",165.5,165.5,58.7,21,5,0) For further information see FORDS page 136. "^DD",165.5,165.5,58.7,"DT") 3031010 "^DD",165.5,165.51,37,0) NUMBER OF NODES REMOVED^NJ2,0XO^^2;34^K:X'?1.2N X I $D(X) S NTXDD=0 S X=+X K:X>99!(X<0) X I $D(X) D NRIT^ONCOSUR1 "^DD",165.5,165.51,37,2) S Y(0)=Y D NROT^ONCOSUR1 "^DD",165.5,165.51,37,2.1) D NROT^ONCOSUR1 "^DD",165.5,165.51,37,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",165.5,165.51,37,4) "^DD",165.5,165.51,37,21,0) ^.001^12^12^3030909^^^^ "^DD",165.5,165.51,37,21,1,0) Enter the number of regional lymph nodes removed. "^DD",165.5,165.51,37,21,2,0) "^DD",165.5,165.51,37,21,3,0) 00 for No nodes removed "^DD",165.5,165.51,37,21,4,0) 01 for 1 node removed "^DD",165.5,165.51,37,21,5,0) 02 for 2 nodes removed "^DD",165.5,165.51,37,21,6,0) ... "^DD",165.5,165.51,37,21,7,0) 90 for 90 or more nodes removed "^DD",165.5,165.51,37,21,8,0) 95 for No nodes removed, aspiration performed "^DD",165.5,165.51,37,21,9,0) 96 for Node removal as a sampling, number unknown "^DD",165.5,165.51,37,21,10,0) 97 for Node removal as dissection, number unknown "^DD",165.5,165.51,37,21,11,0) 98 for Nodes surgically removed, number unknown "^DD",165.5,165.51,37,21,12,0) 99 for Unknown; not stated; death certificate only "^DD",165.5,165.51,37,"DT") 2981204 "^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.19,160.19,0) FACILITY^160.19 "^DIC",160.19,160.19,0,"GL") ^ONCO(160.19, "^DIC",160.19,160.19,"%D",0) ^^2^2^2990802^^^^ "^DIC",160.19,160.19,"%D",1,0) The American College of Surgeons identification number. "^DIC",160.19,160.19,"%D",2,0) This file contains 5000+ medical locations nationwide. "^DIC",160.19,"B","FACILITY",160.19) "^DIC",164.33,164.33,0) AJCC STAGING GROUPS^164.33 "^DIC",164.33,164.33,0,"GL") ^ONCO(164.33, "^DIC",164.33,164.33,"%",0) ^1.005^1^1 "^DIC",164.33,164.33,"%",1,0) ONCO "^DIC",164.33,164.33,"%","B","ONCO",1) "^DIC",164.33,164.33,"%D",0) 2^^2^2^2960119^^^ "^DIC",164.33,164.33,"%D",1,0) File contains the AJCC Staging Groups and the TNM coding schema. "^DIC",164.33,164.33,"%D",2,0) This is a very important data file and should not be modified. "^DIC",164.33,"B","AJCC STAGING GROUPS",164.33) **END** **END**