KIDS Distribution saved on Mar 15, 1999@15:05:13 ONCOLOGY PATCH ONC*2.11*21 **KIDS**:ONC*2.11*21^ **INSTALL NAME** ONC*2.11*21 "BLD",1415,0) ONC*2.11*21^ONCOLOGY^0^^y "BLD",1415,4,0) ^9.64PA^160.17^2 "BLD",1415,4,160.16,0) 160.16 "BLD",1415,4,160.16,222) y^y^f^^n^^y^o^n "BLD",1415,4,160.17,0) 160.17 "BLD",1415,4,160.17,222) y^y^f^^n^^y^o^n "BLD",1415,4,"B",160.16,160.16) "BLD",1415,4,"B",160.17,160.17) "BLD",1415,"ABPKG") n "BLD",1415,"INI") EN1^ONCPRE21 "BLD",1415,"KRN",0) ^9.67PA^19^18 "BLD",1415,"KRN",.4,0) .4 "BLD",1415,"KRN",.4,"NM",0) ^9.68A^^ "BLD",1415,"KRN",.401,0) .401 "BLD",1415,"KRN",.402,0) .402 "BLD",1415,"KRN",.403,0) .403 "BLD",1415,"KRN",.5,0) .5 "BLD",1415,"KRN",.84,0) .84 "BLD",1415,"KRN",3.6,0) 3.6 "BLD",1415,"KRN",3.8,0) 3.8 "BLD",1415,"KRN",9.2,0) 9.2 "BLD",1415,"KRN",9.8,0) 9.8 "BLD",1415,"KRN",9.8,"NM",0) ^9.68A^5^5 "BLD",1415,"KRN",9.8,"NM",1,0) ONCENV21^^0^B745894 "BLD",1415,"KRN",9.8,"NM",2,0) ONCPRE21^^0^B33263 "BLD",1415,"KRN",9.8,"NM",3,0) ONCODIS^^0^B1484520 "BLD",1415,"KRN",9.8,"NM",4,0) ONCACDU1^^0^B23999295 "BLD",1415,"KRN",9.8,"NM",5,0) ONCACDU2^^0^B28581609 "BLD",1415,"KRN",9.8,"NM","B","ONCACDU1",4) "BLD",1415,"KRN",9.8,"NM","B","ONCACDU2",5) "BLD",1415,"KRN",9.8,"NM","B","ONCENV21",1) "BLD",1415,"KRN",9.8,"NM","B","ONCODIS",3) "BLD",1415,"KRN",9.8,"NM","B","ONCPRE21",2) "BLD",1415,"KRN",19,0) 19 "BLD",1415,"KRN",19.1,0) 19.1 "BLD",1415,"KRN",101,0) 101 "BLD",1415,"KRN",409.61,0) 409.61 "BLD",1415,"KRN",771,0) 771 "BLD",1415,"KRN",869.2,0) 869.2 "BLD",1415,"KRN",870,0) 870 "BLD",1415,"KRN",8994,0) 8994 "BLD",1415,"KRN","B",.4,.4) "BLD",1415,"KRN","B",.401,.401) "BLD",1415,"KRN","B",.402,.402) "BLD",1415,"KRN","B",.403,.403) "BLD",1415,"KRN","B",.5,.5) "BLD",1415,"KRN","B",.84,.84) "BLD",1415,"KRN","B",3.6,3.6) "BLD",1415,"KRN","B",3.8,3.8) "BLD",1415,"KRN","B",9.2,9.2) "BLD",1415,"KRN","B",9.8,9.8) "BLD",1415,"KRN","B",19,19) "BLD",1415,"KRN","B",19.1,19.1) "BLD",1415,"KRN","B",101,101) "BLD",1415,"KRN","B",409.61,409.61) "BLD",1415,"KRN","B",771,771) "BLD",1415,"KRN","B",869.2,869.2) "BLD",1415,"KRN","B",870,870) "BLD",1415,"KRN","B",8994,8994) "BLD",1415,"PRE") ONCENV21 "BLD",1415,"QUES",0) ^9.62^^ "BLD",1415,"REQB",0) ^9.611^1^1 "BLD",1415,"REQB",1,0) ONC*2.11*20^0 "BLD",1415,"REQB","B","ONC*2.11*20",1) "DATA",160.16,1,0) NAACCR ACD EXTRACT V6.0 "DATA",160.16,1,"FIELD",0) ^160.161I^379^284 "DATA",160.16,1,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,1,"FIELD",1,1) S ACDANS="I" "DATA",160.16,1,"FIELD",1,2) BLANK "DATA",160.16,1,"FIELD",1,3) L,BLANK "DATA",160.16,1,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,1,"FIELD",2,1) S ACDANS="" "DATA",160.16,1,"FIELD",2,2) BLANK "DATA",160.16,1,"FIELD",2,3) L,ZERO "DATA",160.16,1,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,1,"FIELD",3,1) S ACDANS=3 "DATA",160.16,1,"FIELD",3,2) BLANK "DATA",160.16,1,"FIELD",3,3) L,BLANK "DATA",160.16,1,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,1,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,1,"FIELD",4,2) BLANK "DATA",160.16,1,"FIELD",4,3) L,BLANK "DATA",160.16,1,"FIELD",5,0) 19^1^19^NAACCR Record Number "DATA",160.16,1,"FIELD",5,1) S ACDANS=6 "DATA",160.16,1,"FIELD",5,2) BLANK "DATA",160.16,1,"FIELD",5,3) L,BLANK "DATA",160.16,1,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,1,"FIELD",6,1) S ACDANS="" "DATA",160.16,1,"FIELD",6,2) BLANK "DATA",160.16,1,"FIELD",6,3) L,BLANK "DATA",160.16,1,"FIELD",7,0) 22^20^41^Add at Dx City "DATA",160.16,1,"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,1,"FIELD",7,2) BLANK "DATA",160.16,1,"FIELD",7,3) R,BLANK "DATA",160.16,1,"FIELD",8,0) 42^2^43^Add at Dx State "DATA",160.16,1,"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,1,"FIELD",8,2) BLANK "DATA",160.16,1,"FIELD",8,3) L,BLANK "DATA",160.16,1,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,1,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",9,2) ZERO "DATA",160.16,1,"FIELD",9,3) L,ZERO "DATA",160.16,1,"FIELD",10,0) 47^9^55^Add at DX ZIP "DATA",160.16,1,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,1,"FIELD",10,2) BLANK "DATA",160.16,1,"FIELD",10,3) R,BLANK "DATA",160.16,1,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,1,"FIELD",11,1) S ACDANS="" "DATA",160.16,1,"FIELD",11,2) BLANK "DATA",160.16,1,"FIELD",11,3) L,BLANK "DATA",160.16,1,"FIELD",12,0) 62^1^62^Census Tract Coding System "DATA",160.16,1,"FIELD",12,1) S ACDANS="" "DATA",160.16,1,"FIELD",12,2) BLANK "DATA",160.16,1,"FIELD",12,3) L,BLANK "DATA",160.16,1,"FIELD",13,0) 63^6^68^Census Tract- Alternate "DATA",160.16,1,"FIELD",13,1) S ACDANS="" "DATA",160.16,1,"FIELD",13,2) BLANK "DATA",160.16,1,"FIELD",13,3) L,BLANK "DATA",160.16,1,"FIELD",14,0) 69^1^69^Census Tract Coding System-Alt. "DATA",160.16,1,"FIELD",14,1) S ACDANS="" "DATA",160.16,1,"FIELD",14,2) BLANK "DATA",160.16,1,"FIELD",14,3) L,BLANK "DATA",160.16,1,"FIELD",15,0) 70^1^70^Marital Status "DATA",160.16,1,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,1,"FIELD",15,2) BLANK "DATA",160.16,1,"FIELD",15,3) L,BLANK "DATA",160.16,1,"FIELD",16,0) 71^2^72^Race "DATA",160.16,1,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,1,"FIELD",16,2) BLANK "DATA",160.16,1,"FIELD",16,3) L,ZERO "DATA",160.16,1,"FIELD",17,0) 73^1^73^Race Coding-Current "DATA",160.16,1,"FIELD",17,1) S ACDANS="5" "DATA",160.16,1,"FIELD",17,2) BLANK "DATA",160.16,1,"FIELD",17,3) L,BLANK "DATA",160.16,1,"FIELD",18,0) 74^1^74^Race Coding-Original "DATA",160.16,1,"FIELD",18,1) S ACDANS="5" "DATA",160.16,1,"FIELD",18,2) BLANK "DATA",160.16,1,"FIELD",18,3) L,BLANK "DATA",160.16,1,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,1,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,1,"FIELD",19,2) BLANK "DATA",160.16,1,"FIELD",19,3) L,BLANK "DATA",160.16,1,"FIELD",20,0) 76^1^76^Computer-Derived Ethnicity "DATA",160.16,1,"FIELD",20,1) S ACDANS="" "DATA",160.16,1,"FIELD",20,2) BLANK "DATA",160.16,1,"FIELD",20,3) L,BLANK "DATA",160.16,1,"FIELD",21,0) 77^1^77^Computer-Derived Ethnicity Src "DATA",160.16,1,"FIELD",21,1) S ACDANS="" "DATA",160.16,1,"FIELD",21,2) BLANK "DATA",160.16,1,"FIELD",21,3) L,BLANK "DATA",160.16,1,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,1,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,1,"FIELD",22,2) BLANK "DATA",160.16,1,"FIELD",22,3) L,BLANK "DATA",160.16,1,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,1,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",23,2) BLANK "DATA",160.16,1,"FIELD",23,3) L,ZERO "DATA",160.16,1,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,1,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",24,2) NINE "DATA",160.16,1,"FIELD",24,3) L,ZERO "DATA",160.16,1,"FIELD",25,0) 90^3^92^Birth Place "DATA",160.16,1,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,1,"FIELD",25,2) NINE "DATA",160.16,1,"FIELD",25,3) L,ZERO "DATA",160.16,1,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,1,"FIELD",26,1) S ACDANS=99 "DATA",160.16,1,"FIELD",26,2) NINE "DATA",160.16,1,"FIELD",26,3) L,ZERO "DATA",160.16,1,"FIELD",27,0) 95^3^97^Occupation (Census) "DATA",160.16,1,"FIELD",27,1) S ACDANS="" "DATA",160.16,1,"FIELD",27,2) BLANK "DATA",160.16,1,"FIELD",27,3) L,BLANK "DATA",160.16,1,"FIELD",28,0) 98^3^100^Industry (Census) "DATA",160.16,1,"FIELD",28,1) S ACDANS="" "DATA",160.16,1,"FIELD",28,2) BLANK "DATA",160.16,1,"FIELD",28,3) L,BLANK "DATA",160.16,1,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,1,"FIELD",29,1) S ACDANS="" "DATA",160.16,1,"FIELD",29,2) BLANK "DATA",160.16,1,"FIELD",29,3) L,BLANK "DATA",160.16,1,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,1,"FIELD",30,1) S ACDANS="" "DATA",160.16,1,"FIELD",30,2) BLANK "DATA",160.16,1,"FIELD",30,3) L,BLANK "DATA",160.16,1,"FIELD",31,0) 103^40^142^Usual Occupation (Text) "DATA",160.16,1,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,1,"FIELD",31,2) BLANK "DATA",160.16,1,"FIELD",31,3) R,BLANK "DATA",160.16,1,"FIELD",32,0) 143^40^182^Usual Industry (Text) "DATA",160.16,1,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,1,"FIELD",32,2) BLANK "DATA",160.16,1,"FIELD",32,3) R,BLANK "DATA",160.16,1,"FIELD",33,0) 183^1^183^Occup/Ind. Coding System "DATA",160.16,1,"FIELD",33,1) S ACDANS="" "DATA",160.16,1,"FIELD",33,2) BLANK "DATA",160.16,1,"FIELD",33,3) L,BLANK "DATA",160.16,1,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,1,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",34,2) BLANK "DATA",160.16,1,"FIELD",34,3) L,BLANK "DATA",160.16,1,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,1,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",35,2) BLANK "DATA",160.16,1,"FIELD",35,3) L,BLANK "DATA",160.16,1,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,1,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") S:ACDANS'="" ACDANS=$S(ACDANS="Y":1,ACDANS="N":0,1:"") "DATA",160.16,1,"FIELD",36,2) BLANK "DATA",160.16,1,"FIELD",36,3) L,BLANK "DATA",160.16,1,"FIELD",37,0) 187^1^187^Census Tract Block Number "DATA",160.16,1,"FIELD",37,1) S ACDANS="" "DATA",160.16,1,"FIELD",37,2) BLANK "DATA",160.16,1,"FIELD",37,3) L,BLANK "DATA",160.16,1,"FIELD",38,0) 189^28^216^Reserved "DATA",160.16,1,"FIELD",38,1) S ACDANS="" "DATA",160.16,1,"FIELD",38,2) BLANK "DATA",160.16,1,"FIELD",38,3) L,BLANK "DATA",160.16,1,"FIELD",39,0) 217^2^218^Sequence Number-Central "DATA",160.16,1,"FIELD",39,1) S ACDANS="" "DATA",160.16,1,"FIELD",39,2) BLANK "DATA",160.16,1,"FIELD",39,3) L,BLANK "DATA",160.16,1,"FIELD",40,0) 219^8^226^Date Of Diagnosis "DATA",160.16,1,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",40,2) ZERO "DATA",160.16,1,"FIELD",40,3) L,ZERO "DATA",160.16,1,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,1,"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,1,"FIELD",41,2) ZERO "DATA",160.16,1,"FIELD",41,3) L,ZERO "DATA",160.16,1,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,1,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,1,"FIELD",42,2) BLANK "DATA",160.16,1,"FIELD",42,3) L,BLANK "DATA",160.16,1,"FIELD",43,0) 232^4^235^Histologic Type "DATA",160.16,1,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",43,2) ZERO "DATA",160.16,1,"FIELD",43,3) L,ZERO "DATA",160.16,1,"FIELD",44,0) 236^1^236^Behavior "DATA",160.16,1,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",44,2) ZERO "DATA",160.16,1,"FIELD",44,3) L,ZERO "DATA",160.16,1,"FIELD",45,0) 237^1^237^Grade or Differentiation "DATA",160.16,1,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,1,"FIELD",45,2) ZERO "DATA",160.16,1,"FIELD",45,3) L,ZERO "DATA",160.16,1,"FIELD",46,0) 238^1^238^Site Coding System-Cur.. "DATA",160.16,1,"FIELD",46,1) S ACDANS=4 "DATA",160.16,1,"FIELD",46,2) ZERO "DATA",160.16,1,"FIELD",46,3) L,ZERO "DATA",160.16,1,"FIELD",47,0) 239^1^239^Site Coding System-Org. "DATA",160.16,1,"FIELD",47,1) S ACDANS=4 "DATA",160.16,1,"FIELD",47,2) ZERO "DATA",160.16,1,"FIELD",47,3) L,ZERO "DATA",160.16,1,"FIELD",48,0) 240^1^240^Morph. Coding System-Cur "DATA",160.16,1,"FIELD",48,1) S ACDANS=5 "DATA",160.16,1,"FIELD",48,2) ZERO "DATA",160.16,1,"FIELD",48,3) L,ZERO "DATA",160.16,1,"FIELD",49,0) 241^1^241^Morph. Coding System-Org. "DATA",160.16,1,"FIELD",49,1) S ACDANS=5 "DATA",160.16,1,"FIELD",49,2) ZERO "DATA",160.16,1,"FIELD",49,3) L,ZERO "DATA",160.16,1,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,1,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,1,"FIELD",50,2) NINE "DATA",160.16,1,"FIELD",50,3) L,ZERO "DATA",160.16,1,"FIELD",51,0) 243^1^243^Type of reporting Source "DATA",160.16,1,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,1,"FIELD",51,2) BLANK "DATA",160.16,1,"FIELD",51,3) L,BLANK "DATA",160.16,1,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,1,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",52,2) BLANK "DATA",160.16,1,"FIELD",52,3) L,BLANK "DATA",160.16,1,"FIELD",53,0) 252^1^252^Screening Results "DATA",160.16,1,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,1,"FIELD",53,2) BLANK "DATA",160.16,1,"FIELD",53,3) L,BLANK "DATA",160.16,1,"FIELD",54,0) 253^30^282^Reserved "DATA",160.16,1,"FIELD",54,1) S ACDANS="" "DATA",160.16,1,"FIELD",54,2) BLANK "DATA",160.16,1,"FIELD",54,3) L,BLANK "DATA",160.16,1,"FIELD",55,0) 283^6^288^Reporting Hospital "DATA",160.16,1,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,1,"FIELD",55,2) ZERO "DATA",160.16,1,"FIELD",55,3) L,ZERO "DATA",160.16,1,"FIELD",56,0) 289^6^294^Accession Number (Hospital) "DATA",160.16,1,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,1,"FIELD",56,2) ZERO "DATA",160.16,1,"FIELD",56,3) L,ZERO "DATA",160.16,1,"FIELD",57,0) 295^2^296^Sequence Number-Hospital "DATA",160.16,1,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,1,"FIELD",57,2) ZERO "DATA",160.16,1,"FIELD",57,3) L,ZERO "DATA",160.16,1,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,1,"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,1,"FIELD",58,2) BLANK "DATA",160.16,1,"FIELD",58,3) L,BLANK "DATA",160.16,1,"FIELD",59,0) 300^8^307^Date of Admission/First Contact "DATA",160.16,1,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",59,2) ZERO "DATA",160.16,1,"FIELD",59,3) L,ZERO "DATA",160.16,1,"FIELD",60,0) 308^8^315^Date of Inpatient Admission (COC) "DATA",160.16,1,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",60,2) ZERO "DATA",160.16,1,"FIELD",60,3) L,ZERO "DATA",160.16,1,"FIELD",61,0) 316^8^323^Date of Inpatient Discharge "DATA",160.16,1,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",61,2) ZERO "DATA",160.16,1,"FIELD",61,3) L,ZERO "DATA",160.16,1,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,1,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,1,"FIELD",62,2) ZERO "DATA",160.16,1,"FIELD",62,3) L,ZERO "DATA",160.16,1,"FIELD",63,0) 325^4^328^Year 1st Seen for Primary (Acc Yr.) "DATA",160.16,1,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,1,"FIELD",63,2) ZERO "DATA",160.16,1,"FIELD",63,3) L,ZERO "DATA",160.16,1,"FIELD",64,0) 329^2^330^Primary Payer At Diagnosis "DATA",160.16,1,"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,1,"FIELD",64,2) BLANK "DATA",160.16,1,"FIELD",64,3) L,BLANK "DATA",160.16,1,"FIELD",65,0) 331^1^331^In/Out Patient Status "DATA",160.16,1,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,1,"FIELD",65,2) BLANK "DATA",160.16,1,"FIELD",65,3) L,BLANK "DATA",160.16,1,"FIELD",66,0) 332^1^332^Presentation At Cancer Conference "DATA",160.16,1,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,1,"FIELD",66,2) BLANK "DATA",160.16,1,"FIELD",66,3) L,BLANK "DATA",160.16,1,"FIELD",67,0) 333^8^340^Date of Conference "DATA",160.16,1,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",67,2) BLANK "DATA",160.16,1,"FIELD",67,3) L,BLANK "DATA",160.16,1,"FIELD",68,0) 341^2^342^RX Hospital-CA Directed Surgery "DATA",160.16,1,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,1,"FIELD",68,2) BLANK "DATA",160.16,1,"FIELD",68,3) L,ZERO "DATA",160.16,1,"FIELD",69,0) 347^4^350^Reserved "DATA",160.16,1,"FIELD",69,1) S ACDANS="" "DATA",160.16,1,"FIELD",69,2) BLANK "DATA",160.16,1,"FIELD",69,3) L,BLANK "DATA",160.16,1,"FIELD",70,0) 351^1^351^RX Hosp. Radiation "DATA",160.16,1,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,1,"FIELD",70,2) BLANK "DATA",160.16,1,"FIELD",70,3) L,ZERO "DATA",160.16,1,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,1,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,1,"FIELD",71,2) BLANK "DATA",160.16,1,"FIELD",71,3) L,ZERO "DATA",160.16,1,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,1,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,1,"FIELD",72,2) BLANK "DATA",160.16,1,"FIELD",72,3) L,ZERO "DATA",160.16,1,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,1,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,1,"FIELD",73,2) BLANK "DATA",160.16,1,"FIELD",73,3) L,ZERO "DATA",160.16,1,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,1,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,1,"FIELD",74,2) BLANK "DATA",160.16,1,"FIELD",74,3) L,ZERO "DATA",160.16,1,"FIELD",75,0) 356^2^357^RX Hosp.-Non CA Directed Surgery "DATA",160.16,1,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,1,"FIELD",75,2) BLANK "DATA",160.16,1,"FIELD",75,3) L,ZERO "DATA",160.16,1,"FIELD",76,0) 362^26^387^Reserved "DATA",160.16,1,"FIELD",76,1) S ACDANS="" "DATA",160.16,1,"FIELD",76,2) BLANK "DATA",160.16,1,"FIELD",76,3) L,BLANK "DATA",160.16,1,"FIELD",77,0) 388^1^388^General Summary Stage "DATA",160.16,1,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,1,"FIELD",77,2) BLANK "DATA",160.16,1,"FIELD",77,3) L,BLANK "DATA",160.16,1,"FIELD",78,0) 389^1^389^Local/Regional/Distant Stage "DATA",160.16,1,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",78,2) BLANK "DATA",160.16,1,"FIELD",78,3) L,BLANK "DATA",160.16,1,"FIELD",79,0) 390^3^392^EOD Tumor Size "DATA",160.16,1,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,1,"FIELD",79,2) BLANK "DATA",160.16,1,"FIELD",79,3) L,ZERO "DATA",160.16,1,"FIELD",80,0) 393^2^394^EOD Extension "DATA",160.16,1,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,1,"FIELD",80,2) BLANK "DATA",160.16,1,"FIELD",80,3) L,ZERO "DATA",160.16,1,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,1,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,1,"FIELD",81,2) BLANK "DATA",160.16,1,"FIELD",81,3) L,ZERO "DATA",160.16,1,"FIELD",82,0) 397^1^397^EOD Lymph Nodes "DATA",160.16,1,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,1,"FIELD",82,2) BLANK "DATA",160.16,1,"FIELD",82,3) L,BLANK "DATA",160.16,1,"FIELD",83,0) 398^2^399^Regional Nodes Pos. "DATA",160.16,1,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,1,"FIELD",83,2) ZERO "DATA",160.16,1,"FIELD",83,3) L,ZERO "DATA",160.16,1,"FIELD",84,0) 400^2^401^Regional Nodes Exam. "DATA",160.16,1,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,1,"FIELD",84,2) ZERO "DATA",160.16,1,"FIELD",84,3) L,ZERO "DATA",160.16,1,"FIELD",85,0) 402^13^414^EOD-old 13 Digit "DATA",160.16,1,"FIELD",85,1) S ACDANS="" "DATA",160.16,1,"FIELD",85,2) BLANK "DATA",160.16,1,"FIELD",85,3) L,BLANK "DATA",160.16,1,"FIELD",86,0) 415^2^416^EOD-old 2 Digit "DATA",160.16,1,"FIELD",86,1) S ACDANS="" "DATA",160.16,1,"FIELD",86,2) BLANK "DATA",160.16,1,"FIELD",86,3) L,BLANK "DATA",160.16,1,"FIELD",87,0) 417^4^420^EOD-old 4 Digit "DATA",160.16,1,"FIELD",87,1) S ACDANS="" "DATA",160.16,1,"FIELD",87,2) BLANK "DATA",160.16,1,"FIELD",87,3) L,BLANK "DATA",160.16,1,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,1,"FIELD",88,1) S ACDANS="1" "DATA",160.16,1,"FIELD",88,2) BLANK "DATA",160.16,1,"FIELD",88,3) L,BLANK "DATA",160.16,1,"FIELD",89,0) 422^2^423^T Code of TNM (Pathologic) "DATA",160.16,1,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,1,"FIELD",89,2) BLANK "DATA",160.16,1,"FIELD",89,3) R,BLANK "DATA",160.16,1,"FIELD",90,0) 424^2^425^N Code of TNM (Pathologic) "DATA",160.16,1,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,1,"FIELD",90,2) BLANK "DATA",160.16,1,"FIELD",90,3) R,BLANK "DATA",160.16,1,"FIELD",91,0) 426^2^427^M Code of TNM (Pathologic) "DATA",160.16,1,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,1,"FIELD",91,2) BLANK "DATA",160.16,1,"FIELD",91,3) R,BLANK "DATA",160.16,1,"FIELD",92,0) 428^2^429^Pathologic Stage Group "DATA",160.16,1,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,1,"FIELD",92,2) BLANK "DATA",160.16,1,"FIELD",92,3) R,BLANK "DATA",160.16,1,"FIELD",93,0) 430^1^430^Pathologic Stage(Pref./Suf.)Desc. "DATA",160.16,1,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,1,"FIELD",93,2) ZERO "DATA",160.16,1,"FIELD",93,3) L,ZERO "DATA",160.16,1,"FIELD",94,0) 431^1^431^Pathologic Stage By "DATA",160.16,1,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,1,"FIELD",94,2) BLANK "DATA",160.16,1,"FIELD",94,3) L,BLANK "DATA",160.16,1,"FIELD",95,0) 432^2^433^Clinical T Code "DATA",160.16,1,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,1,"FIELD",95,2) BLANK "DATA",160.16,1,"FIELD",95,3) R,BLANK "DATA",160.16,1,"FIELD",96,0) 434^2^435^Clinical N Code "DATA",160.16,1,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,1,"FIELD",96,2) BLANK "DATA",160.16,1,"FIELD",96,3) R,BLANK "DATA",160.16,1,"FIELD",97,0) 436^2^437^Clinical M Code "DATA",160.16,1,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,1,"FIELD",97,2) BLANK "DATA",160.16,1,"FIELD",97,3) R,BLANK "DATA",160.16,1,"FIELD",98,0) 438^2^439^Clinical Stage Group "DATA",160.16,1,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,1,"FIELD",98,2) BLANK "DATA",160.16,1,"FIELD",98,3) R,BLANK "DATA",160.16,1,"FIELD",99,0) 440^1^440^Clinical Stage (Pref./Suf.) Desc. "DATA",160.16,1,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,1,"FIELD",99,2) ZERO "DATA",160.16,1,"FIELD",99,3) L,ZERO "DATA",160.16,1,"FIELD",100,0) 441^1^441^Clinical Staged By "DATA",160.16,1,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,1,"FIELD",100,2) BLANK "DATA",160.16,1,"FIELD",100,3) L,BLANK "DATA",160.16,1,"FIELD",101,0) 442^2^443^Other T Code "DATA",160.16,1,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") "DATA",160.16,1,"FIELD",101,2) BLANK "DATA",160.16,1,"FIELD",101,3) R,BLANK "DATA",160.16,1,"FIELD",102,0) 444^2^445^Other N Code "DATA",160.16,1,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,1,"FIELD",102,2) BLANK "DATA",160.16,1,"FIELD",102,3) R,BLANK "DATA",160.16,1,"FIELD",103,0) 446^2^447^Other M Code "DATA",160.16,1,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,1,"FIELD",103,2) BLANK "DATA",160.16,1,"FIELD",103,3) R,BLANK "DATA",160.16,1,"FIELD",104,0) 448^2^449^Other Stage Group "DATA",160.16,1,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,1,"FIELD",104,2) BLANK "DATA",160.16,1,"FIELD",104,3) R,BLANK "DATA",160.16,1,"FIELD",105,0) 450^1^450^Other Stage By "DATA",160.16,1,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,1,"FIELD",105,2) BLANK "DATA",160.16,1,"FIELD",105,3) L,BLANK "DATA",160.16,1,"FIELD",106,0) 451^1^451^Other Stage (Pref./Suf.) Desc. "DATA",160.16,1,"FIELD",106,1) S ACDANS="" "DATA",160.16,1,"FIELD",106,2) BLANK "DATA",160.16,1,"FIELD",106,3) L,BLANK "DATA",160.16,1,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,1,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",107,2) BLANK "DATA",160.16,1,"FIELD",107,3) L,BLANK "DATA",160.16,1,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,1,"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,1,"FIELD",108,2) BLANK "DATA",160.16,1,"FIELD",108,3) L,BLANK "DATA",160.16,1,"FIELD",109,0) 468^8^475^Date of 1st Positive Biopsy "DATA",160.16,1,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",109,2) BLANK "DATA",160.16,1,"FIELD",109,3) L,BLANK "DATA",160.16,1,"FIELD",110,0) 476^1^476^Site of Distant Mets. #1 "DATA",160.16,1,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,1,"FIELD",110,2) BLANK "DATA",160.16,1,"FIELD",110,3) L,BLANK "DATA",160.16,1,"FIELD",111,0) 477^1^477^Site of Distant Mets. #2 "DATA",160.16,1,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,1,"FIELD",111,2) BLANK "DATA",160.16,1,"FIELD",111,3) L,BLANK "DATA",160.16,1,"FIELD",112,0) 478^1^478^Site of Distant Mets. #3 "DATA",160.16,1,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,1,"FIELD",112,2) BLANK "DATA",160.16,1,"FIELD",112,3) L,BLANK "DATA",160.16,1,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,1,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,1,"FIELD",113,2) BLANK "DATA",160.16,1,"FIELD",113,3) L,BLANK "DATA",160.16,1,"FIELD",114,0) 481^2^482^Pediatric Staging System Type "DATA",160.16,1,"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,1,"FIELD",114,2) BLANK "DATA",160.16,1,"FIELD",114,3) L,BLANK "DATA",160.16,1,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,1,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,1,"FIELD",115,2) BLANK "DATA",160.16,1,"FIELD",115,3) L,BLANK "DATA",160.16,1,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,1,"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,1,"FIELD",116,2) BLANK "DATA",160.16,1,"FIELD",116,3) L,BLANK "DATA",160.16,1,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,1,"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,1,"FIELD",117,2) BLANK "DATA",160.16,1,"FIELD",117,3) L,BLANK "DATA",160.16,1,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,1,"FIELD",118,1) S ACDANS="" "DATA",160.16,1,"FIELD",118,2) BLANK "DATA",160.16,1,"FIELD",118,3) L,BLANK "DATA",160.16,1,"FIELD",119,0) 487^49^535^Reserved "DATA",160.16,1,"FIELD",119,1) S ACDANS="" "DATA",160.16,1,"FIELD",119,2) BLANK "DATA",160.16,1,"FIELD",119,3) L,BLANK "DATA",160.16,1,"FIELD",120,0) 536^1^536^Reserved Old Record Version "DATA",160.16,1,"FIELD",120,1) S ACDANS="" "DATA",160.16,1,"FIELD",120,2) BLANK "DATA",160.16,1,"FIELD",120,3) L,BLANK "DATA",160.16,1,"FIELD",121,0) 537^8^544^RX Date - Surgery "DATA",160.16,1,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,1,"FIELD",121,2) NINE "DATA",160.16,1,"FIELD",121,3) L,BLANK "DATA",160.16,1,"FIELD",122,0) 545^8^552^RX Date - Radiation "DATA",160.16,1,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,1,"FIELD",122,2) NINE "DATA",160.16,1,"FIELD",122,3) L,BLANK "DATA",160.16,1,"FIELD",123,0) 553^8^560^RX Date - Chemo. "DATA",160.16,1,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,1,"FIELD",123,2) NINE "DATA",160.16,1,"FIELD",123,3) L,BLANK "DATA",160.16,1,"FIELD",124,0) 561^8^568^RX Date - Hormone/Steroid "DATA",160.16,1,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,1,"FIELD",124,2) NINE "DATA",160.16,1,"FIELD",124,3) L,BLANK "DATA",160.16,1,"FIELD",125,0) 569^8^576^RX Date - Biological Resp. Mod. "DATA",160.16,1,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,1,"FIELD",125,2) NINE "DATA",160.16,1,"FIELD",125,3) L,BLANK "DATA",160.16,1,"FIELD",126,0) 577^8^584^RX Date - Other Cancer Dir. "DATA",160.16,1,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,1,"FIELD",126,2) NINE "DATA",160.16,1,"FIELD",126,3) L,BLANK "DATA",160.16,1,"FIELD",127,0) 585^8^592^Date of Initial Treatment "DATA",160.16,1,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",127,2) ZERO "DATA",160.16,1,"FIELD",127,3) L,ZERO "DATA",160.16,1,"FIELD",128,0) 593^8^600^Date of 1st Course RX (COC) "DATA",160.16,1,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",128,2) ZERO "DATA",160.16,1,"FIELD",128,3) L,ZERO "DATA",160.16,1,"FIELD",129,0) 601^8^608^RX Date-Non Cancer Dir. Surgery "DATA",160.16,1,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",129,2) ZERO "DATA",160.16,1,"FIELD",129,3) L,ZERO "DATA",160.16,1,"FIELD",130,0) 609^2^610^RX Summary-Surgery Type "DATA",160.16,1,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,1,"FIELD",130,2) NINE "DATA",160.16,1,"FIELD",130,3) L,ZERO "DATA",160.16,1,"FIELD",131,0) 615^4^618^Reserved For 1997 "DATA",160.16,1,"FIELD",131,1) S ACDANS="" "DATA",160.16,1,"FIELD",131,2) BLANK "DATA",160.16,1,"FIELD",131,3) L,BLANK "DATA",160.16,1,"FIELD",132,0) 619^1^619^Surgical Approach "DATA",160.16,1,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,1,"FIELD",132,2) BLANK "DATA",160.16,1,"FIELD",132,3) L,BLANK "DATA",160.16,1,"FIELD",133,0) 620^1^620^Residual Tumor "DATA",160.16,1,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,1,"FIELD",133,2) BLANK "DATA",160.16,1,"FIELD",133,3) L,BLANK "DATA",160.16,1,"FIELD",134,0) 621^1^621^Re-constructive Surgery "DATA",160.16,1,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,1,"FIELD",134,2) BLANK "DATA",160.16,1,"FIELD",134,3) L,BLANK "DATA",160.16,1,"FIELD",135,0) 622^1^622^Reason for no Surgery "DATA",160.16,1,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,1,"FIELD",135,2) BLANK "DATA",160.16,1,"FIELD",135,3) L,BLANK "DATA",160.16,1,"FIELD",136,0) 623^2^624^RX Summary Non-Can. Dir. Surg. "DATA",160.16,1,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,1,"FIELD",136,2) NINE "DATA",160.16,1,"FIELD",136,3) L,ZERO "DATA",160.16,1,"FIELD",137,0) 625^1^625^RX Summary-Radiation "DATA",160.16,1,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,1,"FIELD",137,2) NINE "DATA",160.16,1,"FIELD",137,3) L,ZERO "DATA",160.16,1,"FIELD",138,0) 626^1^626^RX Summary-Rad. to CNS "DATA",160.16,1,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,1,"FIELD",138,2) NINE "DATA",160.16,1,"FIELD",138,3) L,ZERO "DATA",160.16,1,"FIELD",139,0) 627^1^627^RX Summary-Surg./Rad. Type "DATA",160.16,1,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,1,"FIELD",139,2) NINE "DATA",160.16,1,"FIELD",139,3) L,ZERO "DATA",160.16,1,"FIELD",140,0) 628^1^628^RX Summary- Chemo "DATA",160.16,1,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,1,"FIELD",140,2) NINE "DATA",160.16,1,"FIELD",140,3) L,ZERO "DATA",160.16,1,"FIELD",141,0) 629^1^629^RX Summary- Hormone "DATA",160.16,1,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,1,"FIELD",141,2) NINE "DATA",160.16,1,"FIELD",141,3) L,ZERO "DATA",160.16,1,"FIELD",142,0) 630^1^630^RX Summary- BRM "DATA",160.16,1,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,1,"FIELD",142,2) NINE "DATA",160.16,1,"FIELD",142,3) L,ZERO "DATA",160.16,1,"FIELD",143,0) 631^1^631^RX Summary- Other "DATA",160.16,1,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,1,"FIELD",143,2) NINE "DATA",160.16,1,"FIELD",143,3) L,ZERO "DATA",160.16,1,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,1,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,1,"FIELD",144,2) BLANK "DATA",160.16,1,"FIELD",144,3) L,BLANK "DATA",160.16,1,"FIELD",145,0) 633^1^633^Reasons for No Chemotherapy "DATA",160.16,1,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,1,"FIELD",145,2) BLANK "DATA",160.16,1,"FIELD",145,3) L,BLANK "DATA",160.16,1,"FIELD",146,0) 634^1^634^Reasons for No Hormone Therapy "DATA",160.16,1,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,1,"FIELD",146,2) BLANK "DATA",160.16,1,"FIELD",146,3) L,BLANK "DATA",160.16,1,"FIELD",147,0) 635^1^635^RX Coding System-Current "DATA",160.16,1,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,1,"FIELD",147,2) ZERO "DATA",160.16,1,"FIELD",147,3) L,ZERO "DATA",160.16,1,"FIELD",148,0) 636^1^636^Protocol Eligibility Status "DATA",160.16,1,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,1,"FIELD",148,2) BLANK "DATA",160.16,1,"FIELD",148,3) L,BLANK "DATA",160.16,1,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,1,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,1,"FIELD",149,2) BLANK "DATA",160.16,1,"FIELD",149,3) L,BLANK "DATA",160.16,1,"FIELD",150,0) 639^1^639^Referral to Support Service "DATA",160.16,1,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,1,"FIELD",150,2) BLANK "DATA",160.16,1,"FIELD",150,3) L,BLANK "DATA",160.16,1,"FIELD",151,0) 640^1^640^First Course Calc. Method "DATA",160.16,1,"FIELD",151,1) S ACDANS="1" "DATA",160.16,1,"FIELD",151,2) BLANK "DATA",160.16,1,"FIELD",151,3) L,BLANK "DATA",160.16,1,"FIELD",152,0) 641^5^645^Regional Dose: cGy "DATA",160.16,1,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,1,"FIELD",152,2) NINE "DATA",160.16,1,"FIELD",152,3) L,ZERO "DATA",160.16,1,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,1,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,1,"FIELD",153,2) NINE "DATA",160.16,1,"FIELD",153,3) L,ZERO "DATA",160.16,1,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,1,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,1,"FIELD",154,2) NINE "DATA",160.16,1,"FIELD",154,3) L,ZERO "DATA",160.16,1,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,1,"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,1,"FIELD",155,2) NINE "DATA",160.16,1,"FIELD",155,3) L,ZERO "DATA",160.16,1,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,1,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,1,"FIELD",156,2) NINE "DATA",160.16,1,"FIELD",156,3) L,ZERO "DATA",160.16,1,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,1,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,1,"FIELD",157,2) NINE "DATA",160.16,1,"FIELD",157,3) L,ZERO "DATA",160.16,1,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,1,"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,1,"FIELD",158,2) NINE "DATA",160.16,1,"FIELD",158,3) L,ZERO "DATA",160.16,1,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,1,"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,1,"FIELD",159,2) NINE "DATA",160.16,1,"FIELD",159,3) L,ZERO "DATA",160.16,1,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,1,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,1,"FIELD",160,2) NINE "DATA",160.16,1,"FIELD",160,3) L,ZERO "DATA",160.16,1,"FIELD",161,0) 659^3^661^Chem. Related Field #1 "DATA",160.16,1,"FIELD",161,1) S ACDANS="" "DATA",160.16,1,"FIELD",161,2) BLANK "DATA",160.16,1,"FIELD",161,3) L,BLANK "DATA",160.16,1,"FIELD",162,0) 662^3^664^Chem. Related Field #2 "DATA",160.16,1,"FIELD",162,1) S ACDANS="" "DATA",160.16,1,"FIELD",162,2) BLANK "DATA",160.16,1,"FIELD",162,3) L,BLANK "DATA",160.16,1,"FIELD",163,0) 665^3^667^Chem. Related Field #3 "DATA",160.16,1,"FIELD",163,1) S ACDANS="" "DATA",160.16,1,"FIELD",163,2) BLANK "DATA",160.16,1,"FIELD",163,3) L,BLANK "DATA",160.16,1,"FIELD",164,0) 668^3^670^Chem. Related Field #4 "DATA",160.16,1,"FIELD",164,1) S ACDANS="" "DATA",160.16,1,"FIELD",164,2) BLANK "DATA",160.16,1,"FIELD",164,3) L,BLANK "DATA",160.16,1,"FIELD",165,0) 671^2^672^RX Summary-Surgery (pre-96 Cod) "DATA",160.16,1,"FIELD",165,1) S ACDANS="" "DATA",160.16,1,"FIELD",165,2) BLANK "DATA",160.16,1,"FIELD",165,3) L,BLANK "DATA",160.16,1,"FIELD",166,0) 677^24^700^Reserved "DATA",160.16,1,"FIELD",166,1) S ACDANS="" "DATA",160.16,1,"FIELD",166,2) BLANK "DATA",160.16,1,"FIELD",166,3) L,BLANK "DATA",160.16,1,"FIELD",167,0) 701^8^708^Subseq RX - Date (#2) "DATA",160.16,1,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",167,2) BLANK "DATA",160.16,1,"FIELD",167,3) L,BLANK "DATA",160.16,1,"FIELD",168,0) 709^2^710^Subseq RX - Code (#2) Surgery "DATA",160.16,1,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,1,"FIELD",168,2) BLANK "DATA",160.16,1,"FIELD",168,3) L,BLANK "DATA",160.16,1,"FIELD",169,0) 711^1^711^Subseq RX - Code (#2) Radiation "DATA",160.16,1,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,1,"FIELD",169,2) BLANK "DATA",160.16,1,"FIELD",169,3) L,BLANK "DATA",160.16,1,"FIELD",170,0) 712^1^712^Subseq RX - Code (#2) Chem. "DATA",160.16,1,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,1,"FIELD",170,2) BLANK "DATA",160.16,1,"FIELD",170,3) L,BLANK "DATA",160.16,1,"FIELD",171,0) 713^1^713^Subseq RX - Code (#2) Hormone "DATA",160.16,1,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,1,"FIELD",171,2) BLANK "DATA",160.16,1,"FIELD",171,3) L,BLANK "DATA",160.16,1,"FIELD",172,0) 714^1^714^Subseq RX - Code (#2) Biological "DATA",160.16,1,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,1,"FIELD",172,2) BLANK "DATA",160.16,1,"FIELD",172,3) L,BLANK "DATA",160.16,1,"FIELD",173,0) 715^1^715^Subseq RX - Code (#2) Other "DATA",160.16,1,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,1,"FIELD",173,2) BLANK "DATA",160.16,1,"FIELD",173,3) L,BLANK "DATA",160.16,1,"FIELD",174,0) 716^8^723^Subseq RX - Date (#3) "DATA",160.16,1,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",174,2) BLANK "DATA",160.16,1,"FIELD",174,3) L,BLANK "DATA",160.16,1,"FIELD",175,0) 724^2^725^Subseq RX - Code (#3) Surgery "DATA",160.16,1,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,1,"FIELD",175,2) BLANK "DATA",160.16,1,"FIELD",175,3) L,BLANK "DATA",160.16,1,"FIELD",176,0) 726^1^726^Subseq RX - Code (#3) Radiation "DATA",160.16,1,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,1,"FIELD",176,2) BLANK "DATA",160.16,1,"FIELD",176,3) L,BLANK "DATA",160.16,1,"FIELD",177,0) 727^1^727^Subseq RX - Code (#3) Chemo. "DATA",160.16,1,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,1,"FIELD",177,2) BLANK "DATA",160.16,1,"FIELD",177,3) L,BLANK "DATA",160.16,1,"FIELD",178,0) 728^1^728^Subseq RX - Code (#3) Hormone "DATA",160.16,1,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,1,"FIELD",178,2) BLANK "DATA",160.16,1,"FIELD",178,3) L,BLANK "DATA",160.16,1,"FIELD",179,0) 729^1^729^Subseq RX - Code (#3) Biological "DATA",160.16,1,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,1,"FIELD",179,2) BLANK "DATA",160.16,1,"FIELD",179,3) L,BLANK "DATA",160.16,1,"FIELD",180,0) 730^1^730^Subseq RX - Code (#3) Other "DATA",160.16,1,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,1,"FIELD",180,2) BLANK "DATA",160.16,1,"FIELD",180,3) L,BLANK "DATA",160.16,1,"FIELD",181,0) 731^8^738^Subseq RX - Date (#4) "DATA",160.16,1,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",181,2) BLANK "DATA",160.16,1,"FIELD",181,3) L,BLANK "DATA",160.16,1,"FIELD",182,0) 739^2^740^Subseq RX - Code (#4) Surgery "DATA",160.16,1,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,1,"FIELD",182,2) BLANK "DATA",160.16,1,"FIELD",182,3) L,BLANK "DATA",160.16,1,"FIELD",183,0) 741^1^741^Subseq RX - Code (#4) Radiation "DATA",160.16,1,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,1,"FIELD",183,2) BLANK "DATA",160.16,1,"FIELD",183,3) L,BLANK "DATA",160.16,1,"FIELD",184,0) 742^1^742^Subseq RX - Code (#4) Chemo. "DATA",160.16,1,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,1,"FIELD",184,2) BLANK "DATA",160.16,1,"FIELD",184,3) L,BLANK "DATA",160.16,1,"FIELD",185,0) 743^1^743^Subseq RX - Code (#4) Hormone "DATA",160.16,1,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,1,"FIELD",185,2) BLANK "DATA",160.16,1,"FIELD",185,3) L,BLANK "DATA",160.16,1,"FIELD",186,0) 744^1^744^Subseq RX - Code (#4) Biological "DATA",160.16,1,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,1,"FIELD",186,2) BLANK "DATA",160.16,1,"FIELD",186,3) L,BLANK "DATA",160.16,1,"FIELD",187,0) 745^1^745^Subseq RX - Code (#4) Other "DATA",160.16,1,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,1,"FIELD",187,2) BLANK "DATA",160.16,1,"FIELD",187,3) L,BLANK "DATA",160.16,1,"FIELD",188,0) 746^8^753^Subseq RX - Date (#5) "DATA",160.16,1,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",188,2) BLANK "DATA",160.16,1,"FIELD",188,3) L,BLANK "DATA",160.16,1,"FIELD",189,0) 754^2^755^Subseq RX - Code (#5) Surgery "DATA",160.16,1,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,1,"FIELD",189,2) BLANK "DATA",160.16,1,"FIELD",189,3) L,BLANK "DATA",160.16,1,"FIELD",190,0) 756^1^756^Subseq RX - Code (#5) Radiation "DATA",160.16,1,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,1,"FIELD",190,2) BLANK "DATA",160.16,1,"FIELD",190,3) L,BLANK "DATA",160.16,1,"FIELD",191,0) 757^1^757^Subseq RX - Code (#5) Chemo. "DATA",160.16,1,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,1,"FIELD",191,2) BLANK "DATA",160.16,1,"FIELD",191,3) L,BLANK "DATA",160.16,1,"FIELD",192,0) 758^1^758^Subseq RX - Code (#5) Hormone "DATA",160.16,1,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,1,"FIELD",192,2) BLANK "DATA",160.16,1,"FIELD",192,3) L,BLANK "DATA",160.16,1,"FIELD",193,0) 759^1^759^Subseq RX - Code (#5) Biological "DATA",160.16,1,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,1,"FIELD",193,2) BLANK "DATA",160.16,1,"FIELD",193,3) L,BLANK "DATA",160.16,1,"FIELD",194,0) 760^1^760^Subseq RX - Code (#5) Other "DATA",160.16,1,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,1,"FIELD",194,2) BLANK "DATA",160.16,1,"FIELD",194,3) L,BLANK "DATA",160.16,1,"FIELD",195,0) 778^13^790^Reserved "DATA",160.16,1,"FIELD",195,1) S ACDANS="" "DATA",160.16,1,"FIELD",195,2) BLANK "DATA",160.16,1,"FIELD",195,3) L,BLANK "DATA",160.16,1,"FIELD",196,0) 791^8^798^Date of last Contact "DATA",160.16,1,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",196,2) NINE "DATA",160.16,1,"FIELD",196,3) L,ZERO "DATA",160.16,1,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,1,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,1,"FIELD",197,2) NINE "DATA",160.16,1,"FIELD",197,3) L,BLANK "DATA",160.16,1,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,1,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,1,"FIELD",198,2) NINE "DATA",160.16,1,"FIELD",198,3) L,BLANK "DATA",160.16,1,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,1,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,1,"FIELD",199,2) BLANK "DATA",160.16,1,"FIELD",199,3) L,BLANK "DATA",160.16,1,"FIELD",200,0) 802^1^802^Last Type of Follow-up "DATA",160.16,1,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,1,"FIELD",200,2) BLANK "DATA",160.16,1,"FIELD",200,3) L,BLANK "DATA",160.16,1,"FIELD",201,0) 803^1^803^Next Follow-up Method "DATA",160.16,1,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,1,"FIELD",201,2) BLANK "DATA",160.16,1,"FIELD",201,3) L,BLANK "DATA",160.16,1,"FIELD",202,0) 804^20^823^City/Town - Current "DATA",160.16,1,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,1,"FIELD",202,2) BLANK "DATA",160.16,1,"FIELD",202,3) R,BLANK "DATA",160.16,1,"FIELD",203,0) 824^2^825^State - Current "DATA",160.16,1,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,1,"FIELD",203,2) BLANK "DATA",160.16,1,"FIELD",203,3) R,BLANK "DATA",160.16,1,"FIELD",204,0) 826^9^834^Postal Code "DATA",160.16,1,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,1,"FIELD",204,2) BLANK "DATA",160.16,1,"FIELD",204,3) R,BLANK "DATA",160.16,1,"FIELD",205,0) 835^2^836^Reserved "DATA",160.16,1,"FIELD",205,1) S ACDANS="" "DATA",160.16,1,"FIELD",205,2) BLANK "DATA",160.16,1,"FIELD",205,3) L,BLANK "DATA",160.16,1,"FIELD",206,0) 837^1^837^Unusual Follow-up Method "DATA",160.16,1,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,1,"FIELD",206,2) BLANK "DATA",160.16,1,"FIELD",206,3) L,BLANK "DATA",160.16,1,"FIELD",207,0) 838^8^845^Date of First Recurrence "DATA",160.16,1,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",207,2) ZERO "DATA",160.16,1,"FIELD",207,3) L,ZERO "DATA",160.16,1,"FIELD",208,0) 846^3^848^Site of First Recurrence "DATA",160.16,1,"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,1,"FIELD",208,2) BLANK "DATA",160.16,1,"FIELD",208,3) L,BLANK "DATA",160.16,1,"FIELD",209,0) 849^2^850^Type of First Recurrence "DATA",160.16,1,"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,1,"FIELD",209,2) ZERO "DATA",160.16,1,"FIELD",209,3) L,ZERO "DATA",160.16,1,"FIELD",210,0) 851^2^852^Other Type of First Recurrence "DATA",160.16,1,"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,1,"FIELD",210,2) BLANK "DATA",160.16,1,"FIELD",210,3) L,BLANK "DATA",160.16,1,"FIELD",211,0) 853^3^855^County - Current "DATA",160.16,1,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,1,"FIELD",211,2) BLANK "DATA",160.16,1,"FIELD",211,3) L,BLANK "DATA",160.16,1,"FIELD",212,0) 878^5^882^Reserved "DATA",160.16,1,"FIELD",212,1) S ACDANS="" "DATA",160.16,1,"FIELD",212,2) BLANK "DATA",160.16,1,"FIELD",212,3) L,BLANK "DATA",160.16,1,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,1,"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") "DATA",160.16,1,"FIELD",213,2) ZERO "DATA",160.16,1,"FIELD",213,3) L,ZERO "DATA",160.16,1,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,1,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,1,"FIELD",214,2) ZERO "DATA",160.16,1,"FIELD",214,3) L,ZERO "DATA",160.16,1,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,1,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,1,"FIELD",215,2) BLANK "DATA",160.16,1,"FIELD",215,3) L,BLANK "DATA",160.16,1,"FIELD",216,0) 889^3^891^Place of death "DATA",160.16,1,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,1,"FIELD",216,2) BLANK "DATA",160.16,1,"FIELD",216,3) L,BLANK "DATA",160.16,1,"FIELD",217,0) 901^1^901^Reserved "DATA",160.16,1,"FIELD",217,1) S ACDANS="" "DATA",160.16,1,"FIELD",217,2) BLANK "DATA",160.16,1,"FIELD",217,3) L,BLANK "DATA",160.16,1,"FIELD",218,0) 902^4^905^Site (1973-91) "DATA",160.16,1,"FIELD",218,1) S ACDANS="" "DATA",160.16,1,"FIELD",218,2) BLANK "DATA",160.16,1,"FIELD",218,3) L,BLANK "DATA",160.16,1,"FIELD",219,0) 906^6^911^Morph. (1973-91) "DATA",160.16,1,"FIELD",219,1) S ACDANS="" "DATA",160.16,1,"FIELD",219,2) BLANK "DATA",160.16,1,"FIELD",219,3) L,BLANK "DATA",160.16,1,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,1,"FIELD",220,1) S ACDANS=4 "DATA",160.16,1,"FIELD",220,2) BLANK "DATA",160.16,1,"FIELD",220,3) L,BLANK "DATA",160.16,1,"FIELD",221,0) 913^1^913^Over-Ride Age/Site "DATA",160.16,1,"FIELD",221,1) S ACDANS="" "DATA",160.16,1,"FIELD",221,2) BLANK "DATA",160.16,1,"FIELD",221,3) L,BLANK "DATA",160.16,1,"FIELD",222,0) 914^1^914^Over-Ride SeqNo/DxConf "DATA",160.16,1,"FIELD",222,1) S ACDANS="" "DATA",160.16,1,"FIELD",222,2) BLANK "DATA",160.16,1,"FIELD",222,3) L,BLANK "DATA",160.16,1,"FIELD",223,0) 915^1^915^Over-Ride Site/Lat/SeqNo "DATA",160.16,1,"FIELD",223,1) S ACDANS="" "DATA",160.16,1,"FIELD",223,2) BLANK "DATA",160.16,1,"FIELD",223,3) L,BLANK "DATA",160.16,1,"FIELD",224,0) 916^1^916^Over-Ride Surg./DxConf "DATA",160.16,1,"FIELD",224,1) S ACDANS="" "DATA",160.16,1,"FIELD",224,2) BLANK "DATA",160.16,1,"FIELD",224,3) L,BLANK "DATA",160.16,1,"FIELD",225,0) 917^1^917^Over-Ride Site/Type "DATA",160.16,1,"FIELD",225,1) S ACDANS="" "DATA",160.16,1,"FIELD",225,2) BLANK "DATA",160.16,1,"FIELD",225,3) L,BLANK "DATA",160.16,1,"FIELD",226,0) 918^1^918^Over-Ride Histology "DATA",160.16,1,"FIELD",226,1) S ACDANS="" "DATA",160.16,1,"FIELD",226,2) BLANK "DATA",160.16,1,"FIELD",226,3) L,BLANK "DATA",160.16,1,"FIELD",227,0) 919^1^919^Over-Ride Report Source "DATA",160.16,1,"FIELD",227,1) S ACDANS="" "DATA",160.16,1,"FIELD",227,2) BLANK "DATA",160.16,1,"FIELD",227,3) L,BLANK "DATA",160.16,1,"FIELD",228,0) 920^1^920^Over-Ride Ill-Defined Site "DATA",160.16,1,"FIELD",228,1) S ACDANS="" "DATA",160.16,1,"FIELD",228,2) BLANK "DATA",160.16,1,"FIELD",228,3) L,BLANK "DATA",160.16,1,"FIELD",229,0) 921^1^921^Over-Ride Leuk, Lymphoma "DATA",160.16,1,"FIELD",229,1) S ACDANS="" "DATA",160.16,1,"FIELD",229,2) BLANK "DATA",160.16,1,"FIELD",229,3) L,BLANK "DATA",160.16,1,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,1,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",231,2) BLANK "DATA",160.16,1,"FIELD",231,3) L,BLANK "DATA",160.16,1,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,1,"FIELD",232,1) S ACDANS="" "DATA",160.16,1,"FIELD",232,2) BLANK "DATA",160.16,1,"FIELD",232,3) L,BLANK "DATA",160.16,1,"FIELD",233,0) 968^8^975^Date Case Transmitted "DATA",160.16,1,"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,1,"FIELD",233,2) BLANK "DATA",160.16,1,"FIELD",233,3) L,ZERO "DATA",160.16,1,"FIELD",234,0) 976^1^976^SEER Coding Sys-Current "DATA",160.16,1,"FIELD",234,1) S ACDANS=4 "DATA",160.16,1,"FIELD",234,2) BLANK "DATA",160.16,1,"FIELD",234,3) L,BLANK "DATA",160.16,1,"FIELD",235,0) 977^1^977^SEER Coding Sys-Original "DATA",160.16,1,"FIELD",235,1) S ACDANS=4 "DATA",160.16,1,"FIELD",235,2) BLANK "DATA",160.16,1,"FIELD",235,3) L,BLANK "DATA",160.16,1,"FIELD",236,0) 978^1^978^COC Coding System Current "DATA",160.16,1,"FIELD",236,1) S ACDANS=7 "DATA",160.16,1,"FIELD",236,2) BLANK "DATA",160.16,1,"FIELD",236,3) L,BLANK "DATA",160.16,1,"FIELD",237,0) 979^1^979^COC Coding System Original "DATA",160.16,1,"FIELD",237,1) S ACDANS=6 "DATA",160.16,1,"FIELD",237,2) BLANK "DATA",160.16,1,"FIELD",237,3) L,BLANK "DATA",160.16,1,"FIELD",238,0) 980^1^980^Reserved "DATA",160.16,1,"FIELD",238,1) S ACDANS="" "DATA",160.16,1,"FIELD",238,2) BLANK "DATA",160.16,1,"FIELD",238,3) L,BLANK "DATA",160.16,1,"FIELD",239,0) 981^10^990^Vender Name "DATA",160.16,1,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,1,"FIELD",239,2) BLANK "DATA",160.16,1,"FIELD",239,3) L,BLANK "DATA",160.16,1,"FIELD",240,0) 991^1^991^SEER Type of Follow-up "DATA",160.16,1,"FIELD",240,1) S ACDANS="" "DATA",160.16,1,"FIELD",240,2) BLANK "DATA",160.16,1,"FIELD",240,3) L,BLANK "DATA",160.16,1,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,1,"FIELD",241,1) S ACDANS="" "DATA",160.16,1,"FIELD",241,2) BLANK "DATA",160.16,1,"FIELD",241,3) L,BLANK "DATA",160.16,1,"FIELD",242,0) 994^2^995^Diagnostic Procedures '73-'87 "DATA",160.16,1,"FIELD",242,1) S ACDANS="" "DATA",160.16,1,"FIELD",242,2) BLANK "DATA",160.16,1,"FIELD",242,3) L,BLANK "DATA",160.16,1,"FIELD",243,0) 1020^6^1025^Reserved "DATA",160.16,1,"FIELD",243,1) S ACDANS="" "DATA",160.16,1,"FIELD",243,2) BLANK "DATA",160.16,1,"FIELD",243,3) L,BLANK "DATA",160.16,1,"FIELD",338,0) 1524^2^1525^Linkage Name Sum "DATA",160.16,1,"FIELD",338,1) S ACDANS=$$LINK~ONCACDU2(ACD160) "DATA",160.16,1,"FIELD",338,2) ZERO "DATA",160.16,1,"FIELD",338,3) L,ZERO "DATA",160.16,1,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,1,"FIELD",339,1) S ACDANS="" "DATA",160.16,1,"FIELD",339,2) BLANK "DATA",160.16,1,"FIELD",339,3) L,BLANK "DATA",160.16,1,"FIELD",340,0) 343^1^343^RX Scope reg LN Sur "DATA",160.16,1,"FIELD",340,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,1,"FIELD",340,2) BLANK "DATA",160.16,1,"FIELD",340,3) L,BLANK "DATA",160.16,1,"FIELD",341,0) 344^1^344^RX Hosp Surg Other Reg/Dis "DATA",160.16,1,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,1,"FIELD",341,2) BLANK "DATA",160.16,1,"FIELD",341,3) L,BLANK "DATA",160.16,1,"FIELD",342,0) 345^2^346^RX Hosp Reg LN Examined "DATA",160.16,1,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,1,"FIELD",342,2) BLANK "DATA",160.16,1,"FIELD",342,3) L,BLANK "DATA",160.16,1,"FIELD",343,0) 358^1^358^RX Hosp Diag/Stage Proc1 "DATA",160.16,1,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,1,"FIELD",343,2) BLANK "DATA",160.16,1,"FIELD",343,3) L,BLANK "DATA",160.16,1,"FIELD",344,0) 359^1^359^RX Hosp Diag/Stage Proc2 "DATA",160.16,1,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,1,"FIELD",344,2) BLANK "DATA",160.16,1,"FIELD",344,3) L,BLANK "DATA",160.16,1,"FIELD",345,0) 360^1^360^RX Hosp Diag/Stage Proc3 "DATA",160.16,1,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,1,"FIELD",345,2) BLANK "DATA",160.16,1,"FIELD",345,3) L,BLANK "DATA",160.16,1,"FIELD",346,0) 361^1^361^RX Hosp Diag/Stage Proc4 "DATA",160.16,1,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,1,"FIELD",346,2) BLANK "DATA",160.16,1,"FIELD",346,3) L,BLANK "DATA",160.16,1,"FIELD",347,0) 611^1^611^RX Summ Scope Reg LN Sur "DATA",160.16,1,"FIELD",347,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,1,"FIELD",347,2) NINE "DATA",160.16,1,"FIELD",347,3) L,ZERO "DATA",160.16,1,"FIELD",348,0) 612^1^612^RX Summ Surg Other Reg/Dis "DATA",160.16,1,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,1,"FIELD",348,2) NINE "DATA",160.16,1,"FIELD",348,3) L,ZERO "DATA",160.16,1,"FIELD",349,0) 613^2^614^RX Summ Reg LN "DATA",160.16,1,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,1,"FIELD",349,2) NINE "DATA",160.16,1,"FIELD",349,3) L,ZERO "DATA",160.16,1,"FIELD",350,0) 673^1^673^RX Summ Diag/Stage Proc1 "DATA",160.16,1,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,1,"FIELD",350,2) BLANK "DATA",160.16,1,"FIELD",350,3) L,BLANK "DATA",160.16,1,"FIELD",351,0) 674^1^674^RX Summ Diag/Stage Proc2 "DATA",160.16,1,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,1,"FIELD",351,2) BLANK "DATA",160.16,1,"FIELD",351,3) L,BLANK "DATA",160.16,1,"FIELD",352,0) 675^1^675^RX Summ Diag/Stage Proc3 "DATA",160.16,1,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,1,"FIELD",352,2) BLANK "DATA",160.16,1,"FIELD",352,3) L,BLANK "DATA",160.16,1,"FIELD",353,0) 676^1^676^RX Summ Diag/Stage Proc4 "DATA",160.16,1,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,1,"FIELD",353,2) BLANK "DATA",160.16,1,"FIELD",353,3) L,BLANK "DATA",160.16,1,"FIELD",354,0) 761^1^761^Subsq RX 2nd Scope LN Su "DATA",160.16,1,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,1,"FIELD",354,2) BLANK "DATA",160.16,1,"FIELD",354,3) L,BLANK "DATA",160.16,1,"FIELD",355,0) 762^1^762^Subsq RX 2nd Surg Oth "DATA",160.16,1,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,1,"FIELD",355,2) BLANK "DATA",160.16,1,"FIELD",355,3) L,BLANK "DATA",160.16,1,"FIELD",356,0) 763^2^764^Subsq RX 2nd Reg LN Rem "DATA",160.16,1,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,1,"FIELD",356,2) BLANK "DATA",160.16,1,"FIELD",356,3) L,BLANK "DATA",160.16,1,"FIELD",357,0) 765^1^765^Subsq RX 3rd Scope LN Su "DATA",160.16,1,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,1,"FIELD",357,2) BLANK "DATA",160.16,1,"FIELD",357,3) L,BLANK "DATA",160.16,1,"FIELD",358,0) 766^1^766^Subsq RX 3rd Surg Oth "DATA",160.16,1,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,1,"FIELD",358,2) BLANK "DATA",160.16,1,"FIELD",358,3) L,BLANK "DATA",160.16,1,"FIELD",359,0) 767^2^768^Subsq RX 3rd Reg LN Rem "DATA",160.16,1,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,1,"FIELD",359,2) BLANK "DATA",160.16,1,"FIELD",359,3) L,BLANK "DATA",160.16,1,"FIELD",360,0) 769^1^769^Subsq RX 4th Scope LN Su "DATA",160.16,1,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,1,"FIELD",360,2) BLANK "DATA",160.16,1,"FIELD",360,3) L,BLANK "DATA",160.16,1,"FIELD",361,0) 770^1^770^Subsq RX 4th Surg Oth "DATA",160.16,1,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,1,"FIELD",361,2) BLANK "DATA",160.16,1,"FIELD",361,3) L,BLANK "DATA",160.16,1,"FIELD",362,0) 771^2^772^Subsq RX 4th Reg LN Rem "DATA",160.16,1,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,1,"FIELD",362,2) BLANK "DATA",160.16,1,"FIELD",362,3) L,BLANK "DATA",160.16,1,"FIELD",363,0) 773^1^773^Subsq RX 5th Scope LN Su "DATA",160.16,1,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,1,"FIELD",363,2) BLANK "DATA",160.16,1,"FIELD",363,3) L,BLANK "DATA",160.16,1,"FIELD",364,0) 774^1^774^Subsq RX 5th Surg Oth "DATA",160.16,1,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,1,"FIELD",364,2) BLANK "DATA",160.16,1,"FIELD",364,3) L,BLANK "DATA",160.16,1,"FIELD",365,0) 775^2^776^Subsq RX 5th Reg LN Rem "DATA",160.16,1,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,1,"FIELD",365,2) BLANK "DATA",160.16,1,"FIELD",365,3) L,BLANK "DATA",160.16,1,"FIELD",366,0) 777^1^777^Subsq RX Reconstruct Del "DATA",160.16,1,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,1,"FIELD",366,2) BLANK "DATA",160.16,1,"FIELD",366,3) L,BLANK "DATA",160.16,1,"FIELD",367,0) 856^20^875^Follow-Up Contact City "DATA",160.16,1,"FIELD",367,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,1,"FIELD",367,2) BLANK "DATA",160.16,1,"FIELD",367,3) L,BLANK "DATA",160.16,1,"FIELD",368,0) 876^2^877^Follow-Up Contact State "DATA",160.16,1,"FIELD",368,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,1,"FIELD",368,2) BLANK "DATA",160.16,1,"FIELD",368,3) L,BLANK "DATA",160.16,1,"FIELD",369,0) 892^9^900^Follow-Up Contact Postal "DATA",160.16,1,"FIELD",369,1) S ACDANS="" "DATA",160.16,1,"FIELD",369,2) BLANK "DATA",160.16,1,"FIELD",369,3) L,BLANK "DATA",160.16,1,"FIELD",370,0) 922^1^922^Over-Ride Site/Behavior "DATA",160.16,1,"FIELD",370,1) S ACDANS="" "DATA",160.16,1,"FIELD",370,2) BLANK "DATA",160.16,1,"FIELD",370,3) L,BLANK "DATA",160.16,1,"FIELD",371,0) 923^1^923^Over-Ride Site/EOD/DX DT "DATA",160.16,1,"FIELD",371,1) S ACDANS="" "DATA",160.16,1,"FIELD",371,2) BLANK "DATA",160.16,1,"FIELD",371,3) L,BLANK "DATA",160.16,1,"FIELD",372,0) 924^1^924^Over-Ride Site/Lat/EOD "DATA",160.16,1,"FIELD",372,1) S ACDANS="" "DATA",160.16,1,"FIELD",372,2) BLANK "DATA",160.16,1,"FIELD",372,3) L,BLANK "DATA",160.16,1,"FIELD",373,0) 925^1^925^Over-Ride Site/Lat/Morph "DATA",160.16,1,"FIELD",373,1) S ACDANS="" "DATA",160.16,1,"FIELD",373,2) BLANK "DATA",160.16,1,"FIELD",373,3) L,BLANK "DATA",160.16,1,"FIELD",374,0) 926^8^933^Future Use Timelines 1 "DATA",160.16,1,"FIELD",374,1) S ACDANS="" "DATA",160.16,1,"FIELD",374,2) BLANK "DATA",160.16,1,"FIELD",374,3) L,BLANK "DATA",160.16,1,"FIELD",375,0) 934^8^941^Future Use Timelines 2 "DATA",160.16,1,"FIELD",375,1) S ACDANS="" "DATA",160.16,1,"FIELD",375,2) BLANK "DATA",160.16,1,"FIELD",375,3) L,BLANK "DATA",160.16,1,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,1,"FIELD",376,1) S ACDANS="" "DATA",160.16,1,"FIELD",376,2) BLANK "DATA",160.16,1,"FIELD",376,3) L,BLANK "DATA",160.16,1,"FIELD",377,0) 1004^8^1011^Date Case Report Load "DATA",160.16,1,"FIELD",377,1) S ACDANS="" "DATA",160.16,1,"FIELD",377,2) BLANK "DATA",160.16,1,"FIELD",377,3) L,BLANK "DATA",160.16,1,"FIELD",378,0) 1012^8^1019^Date Tumor Record Avail "DATA",160.16,1,"FIELD",378,1) S ACDANS="" "DATA",160.16,1,"FIELD",378,2) BLANK "DATA",160.16,1,"FIELD",378,3) L,BLANK "DATA",160.16,1,"FIELD",379,0) 942^10^951^CRC CHECKSUM "DATA",160.16,1,"FIELD",379,1) S ACDANS="" "DATA",160.16,1,"FIELD",379,2) BLANK "DATA",160.16,1,"FIELD",379,3) L,BLANK "DATA",160.16,1,"RULES",0) ^^6^6^2990312^^^^ "DATA",160.16,1,"RULES",1,0) S VALID=1 "DATA",160.16,1,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,1,"RULES",3,0) I "^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,1,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,1,"RULES",5,0) S JUMP=0 "DATA",160.16,1,"RULES",6,0) K SCREEN "DATA",160.16,2) ^^^^11^^^ "DATA",160.16,2,0) NAACCR ACD EXTRACT V5.1 "DATA",160.16,2,"FIELD",0) ^160.161I^338^244 "DATA",160.16,2,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,2,"FIELD",1,1) S ACDANS="I" "DATA",160.16,2,"FIELD",1,2) BLANK "DATA",160.16,2,"FIELD",1,3) L,BLANK "DATA",160.16,2,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,2,"FIELD",2,1) S ACDANS="" "DATA",160.16,2,"FIELD",2,2) ZERO "DATA",160.16,2,"FIELD",2,3) L,ZERO "DATA",160.16,2,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,2,"FIELD",3,1) S ACDANS=3 "DATA",160.16,2,"FIELD",3,2) BLANK "DATA",160.16,2,"FIELD",3,3) L,BLANK "DATA",160.16,2,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,2,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,2,"FIELD",4,2) BLANK "DATA",160.16,2,"FIELD",4,3) L,BLANK "DATA",160.16,2,"FIELD",5,0) 19^1^19^NAACCR Record Number "DATA",160.16,2,"FIELD",5,1) S ACDANS=5 "DATA",160.16,2,"FIELD",5,2) BLANK "DATA",160.16,2,"FIELD",5,3) L,BLANK "DATA",160.16,2,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,2,"FIELD",6,1) S ACDANS="" "DATA",160.16,2,"FIELD",6,2) BLANK "DATA",160.16,2,"FIELD",6,3) L,BLANK "DATA",160.16,2,"FIELD",7,0) 22^20^41^Add at Dx City "DATA",160.16,2,"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,2,"FIELD",7,2) BLANK "DATA",160.16,2,"FIELD",7,3) R,BLANK "DATA",160.16,2,"FIELD",8,0) 42^2^43^Add at Dx State "DATA",160.16,2,"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,2,"FIELD",8,2) BLANK "DATA",160.16,2,"FIELD",8,3) L,BLANK "DATA",160.16,2,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,2,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",9,2) ZERO "DATA",160.16,2,"FIELD",9,3) L,ZERO "DATA",160.16,2,"FIELD",10,0) 47^9^55^Add at DX ZIP "DATA",160.16,2,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,2,"FIELD",10,2) BLANK "DATA",160.16,2,"FIELD",10,3) R,BLANK "DATA",160.16,2,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,2,"FIELD",11,1) S ACDANS="" "DATA",160.16,2,"FIELD",11,2) BLANK "DATA",160.16,2,"FIELD",11,3) L,BLANK "DATA",160.16,2,"FIELD",12,0) 62^1^62^Census Tract Coding System "DATA",160.16,2,"FIELD",12,1) S ACDANS="" "DATA",160.16,2,"FIELD",12,2) BLANK "DATA",160.16,2,"FIELD",12,3) L,BLANK "DATA",160.16,2,"FIELD",13,0) 63^6^68^Census Tract- Alternate "DATA",160.16,2,"FIELD",13,1) S ACDANS="" "DATA",160.16,2,"FIELD",13,2) BLANK "DATA",160.16,2,"FIELD",13,3) L,BLANK "DATA",160.16,2,"FIELD",14,0) 69^1^69^Census Tract Coding System-Alt. "DATA",160.16,2,"FIELD",14,1) S ACDANS="" "DATA",160.16,2,"FIELD",14,2) BLANK "DATA",160.16,2,"FIELD",14,3) L,BLANK "DATA",160.16,2,"FIELD",15,0) 70^1^70^Marital Status "DATA",160.16,2,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,2,"FIELD",15,2) BLANK "DATA",160.16,2,"FIELD",15,3) L,BLANK "DATA",160.16,2,"FIELD",16,0) 71^2^72^Race "DATA",160.16,2,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,2,"FIELD",16,2) BLANK "DATA",160.16,2,"FIELD",16,3) L,ZERO "DATA",160.16,2,"FIELD",17,0) 73^1^73^Race Coding-Current "DATA",160.16,2,"FIELD",17,1) S ACDANS="5" "DATA",160.16,2,"FIELD",17,2) BLANK "DATA",160.16,2,"FIELD",17,3) L,BLANK "DATA",160.16,2,"FIELD",18,0) 74^1^74^Race Coding-Original "DATA",160.16,2,"FIELD",18,1) S ACDANS="5" "DATA",160.16,2,"FIELD",18,2) BLANK "DATA",160.16,2,"FIELD",18,3) L,BLANK "DATA",160.16,2,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,2,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,2,"FIELD",19,2) BLANK "DATA",160.16,2,"FIELD",19,3) L,BLANK "DATA",160.16,2,"FIELD",20,0) 76^1^76^Computer-Derived Ethnicity "DATA",160.16,2,"FIELD",20,1) S ACDANS="" "DATA",160.16,2,"FIELD",20,2) BLANK "DATA",160.16,2,"FIELD",20,3) L,BLANK "DATA",160.16,2,"FIELD",21,0) 77^1^77^Computer-Derived Ethnicity Src "DATA",160.16,2,"FIELD",21,1) S ACDANS="" "DATA",160.16,2,"FIELD",21,2) BLANK "DATA",160.16,2,"FIELD",21,3) L,BLANK "DATA",160.16,2,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,2,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,2,"FIELD",22,2) BLANK "DATA",160.16,2,"FIELD",22,3) L,BLANK "DATA",160.16,2,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,2,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",23,2) BLANK "DATA",160.16,2,"FIELD",23,3) L,ZERO "DATA",160.16,2,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,2,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",24,2) NINE "DATA",160.16,2,"FIELD",24,3) L,ZERO "DATA",160.16,2,"FIELD",25,0) 90^3^92^Birth Place "DATA",160.16,2,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,2,"FIELD",25,2) NINE "DATA",160.16,2,"FIELD",25,3) L,ZERO "DATA",160.16,2,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,2,"FIELD",26,1) S ACDANS=99 "DATA",160.16,2,"FIELD",26,2) NINE "DATA",160.16,2,"FIELD",26,3) L,ZERO "DATA",160.16,2,"FIELD",27,0) 95^3^97^Occupation (Census) "DATA",160.16,2,"FIELD",27,1) S ACDANS="" "DATA",160.16,2,"FIELD",27,2) BLANK "DATA",160.16,2,"FIELD",27,3) L,BLANK "DATA",160.16,2,"FIELD",28,0) 98^3^100^Industry (Census) "DATA",160.16,2,"FIELD",28,1) S ACDANS="" "DATA",160.16,2,"FIELD",28,2) BLANK "DATA",160.16,2,"FIELD",28,3) L,BLANK "DATA",160.16,2,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,2,"FIELD",29,1) S ACDANS="" "DATA",160.16,2,"FIELD",29,2) BLANK "DATA",160.16,2,"FIELD",29,3) L,BLANK "DATA",160.16,2,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,2,"FIELD",30,1) S ACDANS="" "DATA",160.16,2,"FIELD",30,2) BLANK "DATA",160.16,2,"FIELD",30,3) L,BLANK "DATA",160.16,2,"FIELD",31,0) 103^40^142^Usual Occupation (Text) "DATA",160.16,2,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,2,"FIELD",31,2) BLANK "DATA",160.16,2,"FIELD",31,3) R,BLANK "DATA",160.16,2,"FIELD",32,0) 143^40^182^Usual Industry (Text) "DATA",160.16,2,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,2,"FIELD",32,2) BLANK "DATA",160.16,2,"FIELD",32,3) R,BLANK "DATA",160.16,2,"FIELD",33,0) 183^1^183^Occup/Ind. Coding System "DATA",160.16,2,"FIELD",33,1) S ACDANS="" "DATA",160.16,2,"FIELD",33,2) BLANK "DATA",160.16,2,"FIELD",33,3) L,BLANK "DATA",160.16,2,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,2,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",34,2) BLANK "DATA",160.16,2,"FIELD",34,3) L,BLANK "DATA",160.16,2,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,2,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",35,2) BLANK "DATA",160.16,2,"FIELD",35,3) L,BLANK "DATA",160.16,2,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,2,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") S:ACDANS'="" ACDANS=$S(ACDANS="Y":1,ACDANS="N":0,1:"") "DATA",160.16,2,"FIELD",36,2) BLANK "DATA",160.16,2,"FIELD",36,3) L,BLANK "DATA",160.16,2,"FIELD",37,0) 187^1^187^Census Tract Block Number "DATA",160.16,2,"FIELD",37,1) S ACDANS="" "DATA",160.16,2,"FIELD",37,2) BLANK "DATA",160.16,2,"FIELD",37,3) L,BLANK "DATA",160.16,2,"FIELD",38,0) 188^29^216^Reserved "DATA",160.16,2,"FIELD",38,1) S ACDANS="" "DATA",160.16,2,"FIELD",38,2) BLANK "DATA",160.16,2,"FIELD",38,3) L,BLANK "DATA",160.16,2,"FIELD",39,0) 217^2^218^Sequence Number-Central "DATA",160.16,2,"FIELD",39,1) S ACDANS="" "DATA",160.16,2,"FIELD",39,2) BLANK "DATA",160.16,2,"FIELD",39,3) L,BLANK "DATA",160.16,2,"FIELD",40,0) 219^8^226^Date Of Diagnosis "DATA",160.16,2,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",40,2) ZERO "DATA",160.16,2,"FIELD",40,3) L,ZERO "DATA",160.16,2,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,2,"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,2,"FIELD",41,2) ZERO "DATA",160.16,2,"FIELD",41,3) L,ZERO "DATA",160.16,2,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,2,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,2,"FIELD",42,2) BLANK "DATA",160.16,2,"FIELD",42,3) L,BLANK "DATA",160.16,2,"FIELD",43,0) 232^4^235^Histologic Type "DATA",160.16,2,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",43,2) ZERO "DATA",160.16,2,"FIELD",43,3) L,ZERO "DATA",160.16,2,"FIELD",44,0) 236^1^236^Behavior "DATA",160.16,2,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",44,2) ZERO "DATA",160.16,2,"FIELD",44,3) L,ZERO "DATA",160.16,2,"FIELD",45,0) 237^1^237^Grade or Differentiation "DATA",160.16,2,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,2,"FIELD",45,2) ZERO "DATA",160.16,2,"FIELD",45,3) L,ZERO "DATA",160.16,2,"FIELD",46,0) 238^1^238^Site Coding System-Cur.. "DATA",160.16,2,"FIELD",46,1) S ACDANS=4 "DATA",160.16,2,"FIELD",46,2) ZERO "DATA",160.16,2,"FIELD",46,3) L,ZERO "DATA",160.16,2,"FIELD",47,0) 239^1^239^Site Coding System-Org. "DATA",160.16,2,"FIELD",47,1) S ACDANS=4 "DATA",160.16,2,"FIELD",47,2) ZERO "DATA",160.16,2,"FIELD",47,3) L,ZERO "DATA",160.16,2,"FIELD",48,0) 240^1^240^Morph. Coding System-Cur "DATA",160.16,2,"FIELD",48,1) S ACDANS=5 "DATA",160.16,2,"FIELD",48,2) ZERO "DATA",160.16,2,"FIELD",48,3) L,ZERO "DATA",160.16,2,"FIELD",49,0) 241^1^241^Morph. Coding System-Org. "DATA",160.16,2,"FIELD",49,1) S ACDANS=5 "DATA",160.16,2,"FIELD",49,2) ZERO "DATA",160.16,2,"FIELD",49,3) L,ZERO "DATA",160.16,2,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,2,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,2,"FIELD",50,2) NINE "DATA",160.16,2,"FIELD",50,3) L,ZERO "DATA",160.16,2,"FIELD",51,0) 243^1^243^Type of reporting Source "DATA",160.16,2,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,2,"FIELD",51,2) BLANK "DATA",160.16,2,"FIELD",51,3) L,BLANK "DATA",160.16,2,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,2,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",52,2) BLANK "DATA",160.16,2,"FIELD",52,3) L,BLANK "DATA",160.16,2,"FIELD",53,0) 252^1^252^Screening Results "DATA",160.16,2,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,2,"FIELD",53,2) BLANK "DATA",160.16,2,"FIELD",53,3) L,BLANK "DATA",160.16,2,"FIELD",54,0) 253^30^282^Reserved "DATA",160.16,2,"FIELD",54,1) S ACDANS="" "DATA",160.16,2,"FIELD",54,2) BLANK "DATA",160.16,2,"FIELD",54,3) L,BLANK "DATA",160.16,2,"FIELD",55,0) 283^6^288^Reporting Hospital "DATA",160.16,2,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,2,"FIELD",55,2) ZERO "DATA",160.16,2,"FIELD",55,3) L,ZERO "DATA",160.16,2,"FIELD",56,0) 289^6^294^Accession Number (Hospital) "DATA",160.16,2,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,2,"FIELD",56,2) ZERO "DATA",160.16,2,"FIELD",56,3) L,ZERO "DATA",160.16,2,"FIELD",57,0) 295^2^296^Sequence Number-Hospital "DATA",160.16,2,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,2,"FIELD",57,2) ZERO "DATA",160.16,2,"FIELD",57,3) L,ZERO "DATA",160.16,2,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,2,"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,2,"FIELD",58,2) BLANK "DATA",160.16,2,"FIELD",58,3) L,BLANK "DATA",160.16,2,"FIELD",59,0) 300^8^307^Date of Admission/First Contact "DATA",160.16,2,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",59,2) ZERO "DATA",160.16,2,"FIELD",59,3) L,ZERO "DATA",160.16,2,"FIELD",60,0) 308^8^315^Date of Inpatient Admission (COC) "DATA",160.16,2,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",60,2) ZERO "DATA",160.16,2,"FIELD",60,3) L,ZERO "DATA",160.16,2,"FIELD",61,0) 316^8^323^Date of Inpatient Discharge "DATA",160.16,2,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",61,2) ZERO "DATA",160.16,2,"FIELD",61,3) L,ZERO "DATA",160.16,2,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,2,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,2,"FIELD",62,2) ZERO "DATA",160.16,2,"FIELD",62,3) L,ZERO "DATA",160.16,2,"FIELD",63,0) 325^4^328^Year 1st Seen for Primary (Acc Yr.) "DATA",160.16,2,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,2,"FIELD",63,2) ZERO "DATA",160.16,2,"FIELD",63,3) L,ZERO "DATA",160.16,2,"FIELD",64,0) 329^2^330^Primary Payer At Diagnosis "DATA",160.16,2,"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,2,"FIELD",64,2) BLANK "DATA",160.16,2,"FIELD",64,3) L,BLANK "DATA",160.16,2,"FIELD",65,0) 331^1^331^In/Out Patient Status "DATA",160.16,2,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,2,"FIELD",65,2) BLANK "DATA",160.16,2,"FIELD",65,3) L,BLANK "DATA",160.16,2,"FIELD",66,0) 332^1^332^Presentation At Cancer Conference "DATA",160.16,2,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,2,"FIELD",66,2) BLANK "DATA",160.16,2,"FIELD",66,3) L,BLANK "DATA",160.16,2,"FIELD",67,0) 333^8^340^Date of Conference "DATA",160.16,2,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",67,2) BLANK "DATA",160.16,2,"FIELD",67,3) L,BLANK "DATA",160.16,2,"FIELD",68,0) 341^2^342^RX Hospital-CA Directed Surgery "DATA",160.16,2,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,2,"FIELD",68,2) ZERO "DATA",160.16,2,"FIELD",68,3) L,ZERO "DATA",160.16,2,"FIELD",69,0) 343^8^350^Reserved "DATA",160.16,2,"FIELD",69,1) S ACDANS="" "DATA",160.16,2,"FIELD",69,2) BLANK "DATA",160.16,2,"FIELD",69,3) L,BLANK "DATA",160.16,2,"FIELD",70,0) 351^1^351^RX Hosp. Radiation "DATA",160.16,2,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,2,"FIELD",70,2) BLANK "DATA",160.16,2,"FIELD",70,3) L,ZERO "DATA",160.16,2,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,2,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,2,"FIELD",71,2) BLANK "DATA",160.16,2,"FIELD",71,3) L,ZERO "DATA",160.16,2,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,2,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,2,"FIELD",72,2) BLANK "DATA",160.16,2,"FIELD",72,3) L,ZERO "DATA",160.16,2,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,2,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,2,"FIELD",73,2) BLANK "DATA",160.16,2,"FIELD",73,3) L,ZERO "DATA",160.16,2,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,2,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,2,"FIELD",74,2) BLANK "DATA",160.16,2,"FIELD",74,3) L,ZERO "DATA",160.16,2,"FIELD",75,0) 356^2^357^RX Hosp.-Non CA Directed Surgery "DATA",160.16,2,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,2,"FIELD",75,2) BLANK "DATA",160.16,2,"FIELD",75,3) L,ZERO "DATA",160.16,2,"FIELD",76,0) 358^30^387^Reserved "DATA",160.16,2,"FIELD",76,1) S ACDANS="" "DATA",160.16,2,"FIELD",76,2) BLANK "DATA",160.16,2,"FIELD",76,3) L,BLANK "DATA",160.16,2,"FIELD",77,0) 388^1^388^General Summary Stage "DATA",160.16,2,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,2,"FIELD",77,2) BLANK "DATA",160.16,2,"FIELD",77,3) L,BLANK "DATA",160.16,2,"FIELD",78,0) 389^1^389^Local/Regional/Distant Stage "DATA",160.16,2,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",78,2) BLANK "DATA",160.16,2,"FIELD",78,3) L,BLANK "DATA",160.16,2,"FIELD",79,0) 390^3^392^EOD Tumor Size "DATA",160.16,2,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,2,"FIELD",79,2) BLANK "DATA",160.16,2,"FIELD",79,3) L,ZERO "DATA",160.16,2,"FIELD",80,0) 393^2^394^EOD Extension "DATA",160.16,2,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,2,"FIELD",80,2) BLANK "DATA",160.16,2,"FIELD",80,3) L,BLANK "DATA",160.16,2,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,2,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,2,"FIELD",81,2) BLANK "DATA",160.16,2,"FIELD",81,3) L,ZERO "DATA",160.16,2,"FIELD",82,0) 397^1^397^EOD Lymph Nodes "DATA",160.16,2,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,2,"FIELD",82,2) BLANK "DATA",160.16,2,"FIELD",82,3) L,BLANK "DATA",160.16,2,"FIELD",83,0) 398^2^399^Regional Nodes Pos. "DATA",160.16,2,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,2,"FIELD",83,2) ZERO "DATA",160.16,2,"FIELD",83,3) L,ZERO "DATA",160.16,2,"FIELD",84,0) 400^2^401^Regional Nodes Exam. "DATA",160.16,2,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,2,"FIELD",84,2) ZERO "DATA",160.16,2,"FIELD",84,3) L,ZERO "DATA",160.16,2,"FIELD",85,0) 402^13^414^EOD-old 13 Digit "DATA",160.16,2,"FIELD",85,1) S ACDANS="" "DATA",160.16,2,"FIELD",85,2) BLANK "DATA",160.16,2,"FIELD",85,3) L,BLANK "DATA",160.16,2,"FIELD",86,0) 415^2^416^EOD-old 2 Digit "DATA",160.16,2,"FIELD",86,1) S ACDANS="" "DATA",160.16,2,"FIELD",86,2) BLANK "DATA",160.16,2,"FIELD",86,3) L,BLANK "DATA",160.16,2,"FIELD",87,0) 417^4^420^EOD-old 4 Digit "DATA",160.16,2,"FIELD",87,1) S ACDANS="" "DATA",160.16,2,"FIELD",87,2) BLANK "DATA",160.16,2,"FIELD",87,3) L,BLANK "DATA",160.16,2,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,2,"FIELD",88,1) S ACDANS="1" "DATA",160.16,2,"FIELD",88,2) BLANK "DATA",160.16,2,"FIELD",88,3) L,BLANK "DATA",160.16,2,"FIELD",89,0) 422^2^423^T Code of TNM (Pathologic) "DATA",160.16,2,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,2,"FIELD",89,2) BLANK "DATA",160.16,2,"FIELD",89,3) R,BLANK "DATA",160.16,2,"FIELD",90,0) 424^2^425^N Code of TNM (Pathologic) "DATA",160.16,2,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,2,"FIELD",90,2) BLANK "DATA",160.16,2,"FIELD",90,3) R,BLANK "DATA",160.16,2,"FIELD",91,0) 426^2^427^M Code of TNM (Pathologic) "DATA",160.16,2,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,2,"FIELD",91,2) BLANK "DATA",160.16,2,"FIELD",91,3) R,BLANK "DATA",160.16,2,"FIELD",92,0) 428^2^429^Pathologic Stage Group "DATA",160.16,2,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,2,"FIELD",92,2) BLANK "DATA",160.16,2,"FIELD",92,3) R,BLANK "DATA",160.16,2,"FIELD",93,0) 430^1^430^Pathologic Stage(Pref./Suf.)Desc. "DATA",160.16,2,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,2,"FIELD",93,2) ZERO "DATA",160.16,2,"FIELD",93,3) L,ZERO "DATA",160.16,2,"FIELD",94,0) 431^1^431^Pathologic Stage By "DATA",160.16,2,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,2,"FIELD",94,2) BLANK "DATA",160.16,2,"FIELD",94,3) L,BLANK "DATA",160.16,2,"FIELD",95,0) 432^2^433^Clinical T Code "DATA",160.16,2,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,2,"FIELD",95,2) BLANK "DATA",160.16,2,"FIELD",95,3) R,BLANK "DATA",160.16,2,"FIELD",96,0) 434^2^435^Clinical N Code "DATA",160.16,2,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,2,"FIELD",96,2) BLANK "DATA",160.16,2,"FIELD",96,3) R,BLANK "DATA",160.16,2,"FIELD",97,0) 436^2^437^Clinical M Code "DATA",160.16,2,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,2,"FIELD",97,2) BLANK "DATA",160.16,2,"FIELD",97,3) R,BLANK "DATA",160.16,2,"FIELD",98,0) 438^2^439^Clinical Stage Group "DATA",160.16,2,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,2,"FIELD",98,2) BLANK "DATA",160.16,2,"FIELD",98,3) R,BLANK "DATA",160.16,2,"FIELD",99,0) 440^1^440^Clinical Stage (Pref./Suf.) Desc. "DATA",160.16,2,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,2,"FIELD",99,2) ZERO "DATA",160.16,2,"FIELD",99,3) L,ZERO "DATA",160.16,2,"FIELD",100,0) 441^1^441^Clinical Staged By "DATA",160.16,2,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,2,"FIELD",100,2) BLANK "DATA",160.16,2,"FIELD",100,3) L,BLANK "DATA",160.16,2,"FIELD",101,0) 442^2^443^Other T Code "DATA",160.16,2,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") "DATA",160.16,2,"FIELD",101,2) BLANK "DATA",160.16,2,"FIELD",101,3) R,BLANK "DATA",160.16,2,"FIELD",102,0) 444^2^445^Other N Code "DATA",160.16,2,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,2,"FIELD",102,2) BLANK "DATA",160.16,2,"FIELD",102,3) R,BLANK "DATA",160.16,2,"FIELD",103,0) 446^2^447^Other M Code "DATA",160.16,2,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,2,"FIELD",103,2) BLANK "DATA",160.16,2,"FIELD",103,3) R,BLANK "DATA",160.16,2,"FIELD",104,0) 448^2^449^Other Stage Group "DATA",160.16,2,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,2,"FIELD",104,2) BLANK "DATA",160.16,2,"FIELD",104,3) R,BLANK "DATA",160.16,2,"FIELD",105,0) 450^1^450^Other Stage By "DATA",160.16,2,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,2,"FIELD",105,2) BLANK "DATA",160.16,2,"FIELD",105,3) L,BLANK "DATA",160.16,2,"FIELD",106,0) 451^1^451^Other Stage (Pref./Suf.) Desc. "DATA",160.16,2,"FIELD",106,1) S ACDANS="" "DATA",160.16,2,"FIELD",106,2) BLANK "DATA",160.16,2,"FIELD",106,3) L,BLANK "DATA",160.16,2,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,2,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",107,2) BLANK "DATA",160.16,2,"FIELD",107,3) L,BLANK "DATA",160.16,2,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,2,"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,2,"FIELD",108,2) BLANK "DATA",160.16,2,"FIELD",108,3) L,BLANK "DATA",160.16,2,"FIELD",109,0) 468^8^475^Date of 1st Positive Biopsy "DATA",160.16,2,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",109,2) BLANK "DATA",160.16,2,"FIELD",109,3) L,BLANK "DATA",160.16,2,"FIELD",110,0) 476^1^476^Site of Distant Mets. #1 "DATA",160.16,2,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,2,"FIELD",110,2) BLANK "DATA",160.16,2,"FIELD",110,3) L,BLANK "DATA",160.16,2,"FIELD",111,0) 477^1^477^Site of Distant Mets. #2 "DATA",160.16,2,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,2,"FIELD",111,2) BLANK "DATA",160.16,2,"FIELD",111,3) L,BLANK "DATA",160.16,2,"FIELD",112,0) 478^1^478^Site of Distant Mets. #3 "DATA",160.16,2,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,2,"FIELD",112,2) BLANK "DATA",160.16,2,"FIELD",112,3) L,BLANK "DATA",160.16,2,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,2,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,2,"FIELD",113,2) BLANK "DATA",160.16,2,"FIELD",113,3) L,BLANK "DATA",160.16,2,"FIELD",114,0) 481^2^482^Pediatric Staging System Type "DATA",160.16,2,"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,2,"FIELD",114,2) BLANK "DATA",160.16,2,"FIELD",114,3) L,BLANK "DATA",160.16,2,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,2,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,2,"FIELD",115,2) BLANK "DATA",160.16,2,"FIELD",115,3) L,BLANK "DATA",160.16,2,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,2,"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,2,"FIELD",116,2) BLANK "DATA",160.16,2,"FIELD",116,3) L,BLANK "DATA",160.16,2,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,2,"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,2,"FIELD",117,2) BLANK "DATA",160.16,2,"FIELD",117,3) L,BLANK "DATA",160.16,2,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,2,"FIELD",118,1) S ACDANS="" "DATA",160.16,2,"FIELD",118,2) BLANK "DATA",160.16,2,"FIELD",118,3) L,BLANK "DATA",160.16,2,"FIELD",119,0) 487^49^535^Reserved "DATA",160.16,2,"FIELD",119,1) S ACDANS="" "DATA",160.16,2,"FIELD",119,2) BLANK "DATA",160.16,2,"FIELD",119,3) L,BLANK "DATA",160.16,2,"FIELD",120,0) 536^1^536^Reserved Old Record Version "DATA",160.16,2,"FIELD",120,1) S ACDANS="" "DATA",160.16,2,"FIELD",120,2) BLANK "DATA",160.16,2,"FIELD",120,3) L,BLANK "DATA",160.16,2,"FIELD",121,0) 537^8^544^RX Date - Surgery "DATA",160.16,2,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,2,"FIELD",121,2) NINE "DATA",160.16,2,"FIELD",121,3) L,BLANK "DATA",160.16,2,"FIELD",122,0) 545^8^552^RX Date - Radiation "DATA",160.16,2,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,2,"FIELD",122,2) NINE "DATA",160.16,2,"FIELD",122,3) L,BLANK "DATA",160.16,2,"FIELD",123,0) 553^8^560^RX Date - Chemo. "DATA",160.16,2,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,2,"FIELD",123,2) NINE "DATA",160.16,2,"FIELD",123,3) L,BLANK "DATA",160.16,2,"FIELD",124,0) 561^8^568^RX Date - Hormone/Steroid "DATA",160.16,2,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,2,"FIELD",124,2) NINE "DATA",160.16,2,"FIELD",124,3) L,BLANK "DATA",160.16,2,"FIELD",125,0) 569^8^576^RX Date - Biological Resp. Mod. "DATA",160.16,2,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,2,"FIELD",125,2) NINE "DATA",160.16,2,"FIELD",125,3) L,BLANK "DATA",160.16,2,"FIELD",126,0) 577^8^584^RX Date - Other Cancer Dir. "DATA",160.16,2,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,2,"FIELD",126,2) NINE "DATA",160.16,2,"FIELD",126,3) L,BLANK "DATA",160.16,2,"FIELD",127,0) 585^8^592^Date of Initial Treatment "DATA",160.16,2,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",127,2) ZERO "DATA",160.16,2,"FIELD",127,3) L,ZERO "DATA",160.16,2,"FIELD",128,0) 593^8^600^Date of 1st Course RX (COC) "DATA",160.16,2,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",128,2) ZERO "DATA",160.16,2,"FIELD",128,3) L,ZERO "DATA",160.16,2,"FIELD",129,0) 601^8^608^RX Date-Non Cancer Dir. Surgery "DATA",160.16,2,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",129,2) ZERO "DATA",160.16,2,"FIELD",129,3) L,ZERO "DATA",160.16,2,"FIELD",130,0) 609^2^610^RX Summary-Surgery Type "DATA",160.16,2,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,2,"FIELD",130,2) ZERO "DATA",160.16,2,"FIELD",130,3) L,ZERO "DATA",160.16,2,"FIELD",131,0) 611^8^618^Reserved For 1997 "DATA",160.16,2,"FIELD",131,1) S ACDANS="" "DATA",160.16,2,"FIELD",131,2) BLANK "DATA",160.16,2,"FIELD",131,3) L,BLANK "DATA",160.16,2,"FIELD",132,0) 619^1^619^Surgical Approach "DATA",160.16,2,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,2,"FIELD",132,2) BLANK "DATA",160.16,2,"FIELD",132,3) L,BLANK "DATA",160.16,2,"FIELD",133,0) 620^1^620^Residual Tumor "DATA",160.16,2,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,2,"FIELD",133,2) BLANK "DATA",160.16,2,"FIELD",133,3) L,BLANK "DATA",160.16,2,"FIELD",134,0) 621^1^621^Re-constructive Surgery "DATA",160.16,2,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,2,"FIELD",134,2) BLANK "DATA",160.16,2,"FIELD",134,3) L,BLANK "DATA",160.16,2,"FIELD",135,0) 622^1^622^Reason for no Surgery "DATA",160.16,2,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,2,"FIELD",135,2) BLANK "DATA",160.16,2,"FIELD",135,3) L,BLANK "DATA",160.16,2,"FIELD",136,0) 623^2^624^RX Summary Non-Can. Dir. Surg. "DATA",160.16,2,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,2,"FIELD",136,2) NINE "DATA",160.16,2,"FIELD",136,3) L,ZERO "DATA",160.16,2,"FIELD",137,0) 625^1^625^RX Summary-Radiation "DATA",160.16,2,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,2,"FIELD",137,2) NINE "DATA",160.16,2,"FIELD",137,3) L,ZERO "DATA",160.16,2,"FIELD",138,0) 626^1^626^RX Summary-Rad. to CNS "DATA",160.16,2,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,2,"FIELD",138,2) NINE "DATA",160.16,2,"FIELD",138,3) L,ZERO "DATA",160.16,2,"FIELD",139,0) 627^1^627^RX Summary-Surg./Rad. Type "DATA",160.16,2,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,2,"FIELD",139,2) NINE "DATA",160.16,2,"FIELD",139,3) L,ZERO "DATA",160.16,2,"FIELD",140,0) 628^1^628^RX Summary- Chemo "DATA",160.16,2,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,2,"FIELD",140,2) NINE "DATA",160.16,2,"FIELD",140,3) L,ZERO "DATA",160.16,2,"FIELD",141,0) 629^1^629^RX Summary- Hormone "DATA",160.16,2,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,2,"FIELD",141,2) NINE "DATA",160.16,2,"FIELD",141,3) L,ZERO "DATA",160.16,2,"FIELD",142,0) 630^1^630^RX Summary- BRM "DATA",160.16,2,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,2,"FIELD",142,2) NINE "DATA",160.16,2,"FIELD",142,3) L,ZERO "DATA",160.16,2,"FIELD",143,0) 631^1^631^RX Summary- Other "DATA",160.16,2,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,2,"FIELD",143,2) NINE "DATA",160.16,2,"FIELD",143,3) L,ZERO "DATA",160.16,2,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,2,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,2,"FIELD",144,2) BLANK "DATA",160.16,2,"FIELD",144,3) L,BLANK "DATA",160.16,2,"FIELD",145,0) 633^1^633^Reasons for No Chemotherapy "DATA",160.16,2,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,2,"FIELD",145,2) BLANK "DATA",160.16,2,"FIELD",145,3) L,BLANK "DATA",160.16,2,"FIELD",146,0) 634^1^634^Reasons for No Hormone Therapy "DATA",160.16,2,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,2,"FIELD",146,2) BLANK "DATA",160.16,2,"FIELD",146,3) L,BLANK "DATA",160.16,2,"FIELD",147,0) 635^1^635^RX Coding System-Current "DATA",160.16,2,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,2,"FIELD",147,2) ZERO "DATA",160.16,2,"FIELD",147,3) L,ZERO "DATA",160.16,2,"FIELD",148,0) 636^1^636^Protocol Eligibility Status "DATA",160.16,2,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,2,"FIELD",148,2) BLANK "DATA",160.16,2,"FIELD",148,3) L,BLANK "DATA",160.16,2,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,2,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,2,"FIELD",149,2) BLANK "DATA",160.16,2,"FIELD",149,3) L,BLANK "DATA",160.16,2,"FIELD",150,0) 639^1^639^Referral to Support Service "DATA",160.16,2,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,2,"FIELD",150,2) BLANK "DATA",160.16,2,"FIELD",150,3) L,BLANK "DATA",160.16,2,"FIELD",151,0) 640^1^640^First Course Calc. Method "DATA",160.16,2,"FIELD",151,1) S ACDANS="2" "DATA",160.16,2,"FIELD",151,2) BLANK "DATA",160.16,2,"FIELD",151,3) L,BLANK "DATA",160.16,2,"FIELD",152,0) 641^5^645^Regional Dose: cGy "DATA",160.16,2,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,2,"FIELD",152,2) NINE "DATA",160.16,2,"FIELD",152,3) L,ZERO "DATA",160.16,2,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,2,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,2,"FIELD",153,2) NINE "DATA",160.16,2,"FIELD",153,3) L,ZERO "DATA",160.16,2,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,2,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,2,"FIELD",154,2) NINE "DATA",160.16,2,"FIELD",154,3) L,ZERO "DATA",160.16,2,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,2,"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,2,"FIELD",155,2) NINE "DATA",160.16,2,"FIELD",155,3) L,ZERO "DATA",160.16,2,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,2,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,2,"FIELD",156,2) NINE "DATA",160.16,2,"FIELD",156,3) L,ZERO "DATA",160.16,2,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,2,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,2,"FIELD",157,2) NINE "DATA",160.16,2,"FIELD",157,3) L,ZERO "DATA",160.16,2,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,2,"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,2,"FIELD",158,2) NINE "DATA",160.16,2,"FIELD",158,3) L,ZERO "DATA",160.16,2,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,2,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.O1,"I") "DATA",160.16,2,"FIELD",159,2) NINE "DATA",160.16,2,"FIELD",159,3) L,ZERO "DATA",160.16,2,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,2,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,2,"FIELD",160,2) NINE "DATA",160.16,2,"FIELD",160,3) L,ZERO "DATA",160.16,2,"FIELD",161,0) 659^3^661^Chem. Related Field #1 "DATA",160.16,2,"FIELD",161,1) S ACDANS="" "DATA",160.16,2,"FIELD",161,2) BLANK "DATA",160.16,2,"FIELD",161,3) L,BLANK "DATA",160.16,2,"FIELD",162,0) 662^3^664^Chem. Related Field #2 "DATA",160.16,2,"FIELD",162,1) S ACDANS="" "DATA",160.16,2,"FIELD",162,2) BLANK "DATA",160.16,2,"FIELD",162,3) L,BLANK "DATA",160.16,2,"FIELD",163,0) 665^3^667^Chem. Related Field #3 "DATA",160.16,2,"FIELD",163,1) S ACDANS="" "DATA",160.16,2,"FIELD",163,2) BLANK "DATA",160.16,2,"FIELD",163,3) L,BLANK "DATA",160.16,2,"FIELD",164,0) 668^3^670^Chem. Related Field #4 "DATA",160.16,2,"FIELD",164,1) S ACDANS="" "DATA",160.16,2,"FIELD",164,2) BLANK "DATA",160.16,2,"FIELD",164,3) L,BLANK "DATA",160.16,2,"FIELD",165,0) 671^2^672^RX Summary-Surgery (pre-96 Cod) "DATA",160.16,2,"FIELD",165,1) S ACDANS="" "DATA",160.16,2,"FIELD",165,2) BLANK "DATA",160.16,2,"FIELD",165,3) L,BLANK "DATA",160.16,2,"FIELD",166,0) 673^28^700^Reserved "DATA",160.16,2,"FIELD",166,1) S ACDANS="" "DATA",160.16,2,"FIELD",166,2) BLANK "DATA",160.16,2,"FIELD",166,3) L,BLANK "DATA",160.16,2,"FIELD",167,0) 701^8^708^Subseq RX - Date (#2) "DATA",160.16,2,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",167,2) BLANK "DATA",160.16,2,"FIELD",167,3) L,BLANK "DATA",160.16,2,"FIELD",168,0) 709^2^710^Subseq RX - Code (#2) Surgery "DATA",160.16,2,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,2,"FIELD",168,2) BLANK "DATA",160.16,2,"FIELD",168,3) L,BLANK "DATA",160.16,2,"FIELD",169,0) 711^1^711^Subseq RX - Code (#2) Radiation "DATA",160.16,2,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,2,"FIELD",169,2) BLANK "DATA",160.16,2,"FIELD",169,3) L,BLANK "DATA",160.16,2,"FIELD",170,0) 712^1^712^Subseq RX - Code (#2) Chem. "DATA",160.16,2,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,2,"FIELD",170,2) BLANK "DATA",160.16,2,"FIELD",170,3) L,BLANK "DATA",160.16,2,"FIELD",171,0) 713^1^713^Subseq RX - Code (#2) Hormone "DATA",160.16,2,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,2,"FIELD",171,2) BLANK "DATA",160.16,2,"FIELD",171,3) L,BLANK "DATA",160.16,2,"FIELD",172,0) 714^1^714^Subseq RX - Code (#2) Biological "DATA",160.16,2,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,2,"FIELD",172,2) BLANK "DATA",160.16,2,"FIELD",172,3) L,BLANK "DATA",160.16,2,"FIELD",173,0) 715^1^715^Subseq RX - Code (#2) Other "DATA",160.16,2,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,2,"FIELD",173,2) BLANK "DATA",160.16,2,"FIELD",173,3) L,BLANK "DATA",160.16,2,"FIELD",174,0) 716^8^723^Subseq RX - Date (#3) "DATA",160.16,2,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",174,2) BLANK "DATA",160.16,2,"FIELD",174,3) L,BLANK "DATA",160.16,2,"FIELD",175,0) 724^2^725^Subseq RX - Code (#3) Surgery "DATA",160.16,2,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,2,"FIELD",175,2) BLANK "DATA",160.16,2,"FIELD",175,3) L,BLANK "DATA",160.16,2,"FIELD",176,0) 726^1^726^Subseq RX - Code (#3) Radiation "DATA",160.16,2,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,2,"FIELD",176,2) BLANK "DATA",160.16,2,"FIELD",176,3) L,BLANK "DATA",160.16,2,"FIELD",177,0) 727^1^727^Subseq RX - Code (#3) Chemo. "DATA",160.16,2,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,2,"FIELD",177,2) BLANK "DATA",160.16,2,"FIELD",177,3) L,BLANK "DATA",160.16,2,"FIELD",178,0) 728^1^728^Subseq RX - Code (#3) Hormone "DATA",160.16,2,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,2,"FIELD",178,2) BLANK "DATA",160.16,2,"FIELD",178,3) L,BLANK "DATA",160.16,2,"FIELD",179,0) 729^1^729^Subseq RX - Code (#3) Biological "DATA",160.16,2,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,2,"FIELD",179,2) BLANK "DATA",160.16,2,"FIELD",179,3) L,BLANK "DATA",160.16,2,"FIELD",180,0) 730^1^730^Subseq RX - Code (#3) Other "DATA",160.16,2,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,2,"FIELD",180,2) BLANK "DATA",160.16,2,"FIELD",180,3) L,BLANK "DATA",160.16,2,"FIELD",181,0) 731^8^738^Subseq RX - Date (#4) "DATA",160.16,2,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",181,2) BLANK "DATA",160.16,2,"FIELD",181,3) L,BLANK "DATA",160.16,2,"FIELD",182,0) 739^2^740^Subseq RX - Code (#4) Surgery "DATA",160.16,2,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,2,"FIELD",182,2) BLANK "DATA",160.16,2,"FIELD",182,3) L,BLANK "DATA",160.16,2,"FIELD",183,0) 741^1^741^Subseq RX - Code (#4) Radiation "DATA",160.16,2,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,2,"FIELD",183,2) BLANK "DATA",160.16,2,"FIELD",183,3) L,BLANK "DATA",160.16,2,"FIELD",184,0) 742^1^742^Subseq RX - Code (#4) Chemo. "DATA",160.16,2,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,2,"FIELD",184,2) BLANK "DATA",160.16,2,"FIELD",184,3) L,BLANK "DATA",160.16,2,"FIELD",185,0) 743^1^743^Subseq RX - Code (#4) Hormone "DATA",160.16,2,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,2,"FIELD",185,2) BLANK "DATA",160.16,2,"FIELD",185,3) L,BLANK "DATA",160.16,2,"FIELD",186,0) 744^1^744^Subseq RX - Code (#4) Biological "DATA",160.16,2,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,2,"FIELD",186,2) BLANK "DATA",160.16,2,"FIELD",186,3) L,BLANK "DATA",160.16,2,"FIELD",187,0) 745^1^745^Subseq RX - Code (#4) Other "DATA",160.16,2,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,2,"FIELD",187,2) BLANK "DATA",160.16,2,"FIELD",187,3) L,BLANK "DATA",160.16,2,"FIELD",188,0) 746^8^753^Subseq RX - Date (#5) "DATA",160.16,2,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",188,2) BLANK "DATA",160.16,2,"FIELD",188,3) L,BLANK "DATA",160.16,2,"FIELD",189,0) 754^2^755^Subseq RX - Code (#5) Surgery "DATA",160.16,2,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,2,"FIELD",189,2) BLANK "DATA",160.16,2,"FIELD",189,3) L,BLANK "DATA",160.16,2,"FIELD",190,0) 756^1^756^Subseq RX - Code (#5) Radiation "DATA",160.16,2,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,2,"FIELD",190,2) BLANK "DATA",160.16,2,"FIELD",190,3) L,BLANK "DATA",160.16,2,"FIELD",191,0) 757^1^757^Subseq RX - Code (#5) Chemo. "DATA",160.16,2,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,2,"FIELD",191,2) BLANK "DATA",160.16,2,"FIELD",191,3) L,BLANK "DATA",160.16,2,"FIELD",192,0) 758^1^758^Subseq RX - Code (#5) Hormone "DATA",160.16,2,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,2,"FIELD",192,2) BLANK "DATA",160.16,2,"FIELD",192,3) L,BLANK "DATA",160.16,2,"FIELD",193,0) 759^1^759^Subseq RX - Code (#5) Biological "DATA",160.16,2,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,2,"FIELD",193,2) BLANK "DATA",160.16,2,"FIELD",193,3) L,BLANK "DATA",160.16,2,"FIELD",194,0) 760^1^760^Subseq RX - Code (#5) Other "DATA",160.16,2,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,2,"FIELD",194,2) BLANK "DATA",160.16,2,"FIELD",194,3) L,BLANK "DATA",160.16,2,"FIELD",195,0) 761^30^790^Reserved "DATA",160.16,2,"FIELD",195,1) S ACDANS="" "DATA",160.16,2,"FIELD",195,2) BLANK "DATA",160.16,2,"FIELD",195,3) L,BLANK "DATA",160.16,2,"FIELD",196,0) 791^8^798^Date of last Contact "DATA",160.16,2,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",196,2) NINE "DATA",160.16,2,"FIELD",196,3) L,ZERO "DATA",160.16,2,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,2,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,2,"FIELD",197,2) NINE "DATA",160.16,2,"FIELD",197,3) L,BLANK "DATA",160.16,2,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,2,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,2,"FIELD",198,2) NINE "DATA",160.16,2,"FIELD",198,3) L,BLANK "DATA",160.16,2,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,2,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,2,"FIELD",199,2) BLANK "DATA",160.16,2,"FIELD",199,3) L,BLANK "DATA",160.16,2,"FIELD",200,0) 802^1^802^Last Type of Follow-up "DATA",160.16,2,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,2,"FIELD",200,2) BLANK "DATA",160.16,2,"FIELD",200,3) L,BLANK "DATA",160.16,2,"FIELD",201,0) 803^1^803^Next Follow-up Method "DATA",160.16,2,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,2,"FIELD",201,2) BLANK "DATA",160.16,2,"FIELD",201,3) L,BLANK "DATA",160.16,2,"FIELD",202,0) 804^20^823^City/Town - Current "DATA",160.16,2,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,2,"FIELD",202,2) BLANK "DATA",160.16,2,"FIELD",202,3) R,BLANK "DATA",160.16,2,"FIELD",203,0) 824^2^825^State - Current "DATA",160.16,2,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,2,"FIELD",203,2) BLANK "DATA",160.16,2,"FIELD",203,3) R,BLANK "DATA",160.16,2,"FIELD",204,0) 826^9^834^Postal Code "DATA",160.16,2,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,2,"FIELD",204,2) BLANK "DATA",160.16,2,"FIELD",204,3) R,BLANK "DATA",160.16,2,"FIELD",205,0) 835^2^836^Reserved "DATA",160.16,2,"FIELD",205,1) S ACDANS="" "DATA",160.16,2,"FIELD",205,2) BLANK "DATA",160.16,2,"FIELD",205,3) L,BLANK "DATA",160.16,2,"FIELD",206,0) 837^1^837^Unusual Follow-up Method "DATA",160.16,2,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,2,"FIELD",206,2) BLANK "DATA",160.16,2,"FIELD",206,3) L,BLANK "DATA",160.16,2,"FIELD",207,0) 838^8^845^Date of First Recurrence "DATA",160.16,2,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",207,2) ZERO "DATA",160.16,2,"FIELD",207,3) L,ZERO "DATA",160.16,2,"FIELD",208,0) 846^3^848^Site of First Recurrence "DATA",160.16,2,"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,2,"FIELD",208,2) BLANK "DATA",160.16,2,"FIELD",208,3) L,BLANK "DATA",160.16,2,"FIELD",209,0) 849^2^850^Type of First Recurrence "DATA",160.16,2,"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,2,"FIELD",209,2) ZERO "DATA",160.16,2,"FIELD",209,3) L,ZERO "DATA",160.16,2,"FIELD",210,0) 851^2^852^Other Type of First Recurrence "DATA",160.16,2,"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,2,"FIELD",210,2) BLANK "DATA",160.16,2,"FIELD",210,3) L,BLANK "DATA",160.16,2,"FIELD",211,0) 853^3^855^County - Current "DATA",160.16,2,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,2,"FIELD",211,2) BLANK "DATA",160.16,2,"FIELD",211,3) L,BLANK "DATA",160.16,2,"FIELD",212,0) 856^27^882^Reserved "DATA",160.16,2,"FIELD",212,1) S ACDANS="" "DATA",160.16,2,"FIELD",212,2) BLANK "DATA",160.16,2,"FIELD",212,3) L,BLANK "DATA",160.16,2,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,2,"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") "DATA",160.16,2,"FIELD",213,2) ZERO "DATA",160.16,2,"FIELD",213,3) L,ZERO "DATA",160.16,2,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,2,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,2,"FIELD",214,2) ZERO "DATA",160.16,2,"FIELD",214,3) L,ZERO "DATA",160.16,2,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,2,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,2,"FIELD",215,2) BLANK "DATA",160.16,2,"FIELD",215,3) L,BLANK "DATA",160.16,2,"FIELD",216,0) 889^3^891^Place of death "DATA",160.16,2,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,2,"FIELD",216,2) BLANK "DATA",160.16,2,"FIELD",216,3) L,BLANK "DATA",160.16,2,"FIELD",217,0) 892^10^901^Reserved "DATA",160.16,2,"FIELD",217,1) S ACDANS="" "DATA",160.16,2,"FIELD",217,2) BLANK "DATA",160.16,2,"FIELD",217,3) L,BLANK "DATA",160.16,2,"FIELD",218,0) 902^4^905^Site (1973-91) "DATA",160.16,2,"FIELD",218,1) S ACDANS="" "DATA",160.16,2,"FIELD",218,2) BLANK "DATA",160.16,2,"FIELD",218,3) L,BLANK "DATA",160.16,2,"FIELD",219,0) 906^6^911^Morph. (1973-91) "DATA",160.16,2,"FIELD",219,1) S ACDANS="" "DATA",160.16,2,"FIELD",219,2) BLANK "DATA",160.16,2,"FIELD",219,3) L,BLANK "DATA",160.16,2,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,2,"FIELD",220,1) S ACDANS=4 "DATA",160.16,2,"FIELD",220,2) BLANK "DATA",160.16,2,"FIELD",220,3) L,BLANK "DATA",160.16,2,"FIELD",221,0) 913^1^913^Over-Ride Age/Site "DATA",160.16,2,"FIELD",221,1) S ACDANS="" "DATA",160.16,2,"FIELD",221,2) BLANK "DATA",160.16,2,"FIELD",221,3) L,BLANK "DATA",160.16,2,"FIELD",222,0) 914^1^914^Over-Ride SeqNo/DxConf "DATA",160.16,2,"FIELD",222,1) S ACDANS="" "DATA",160.16,2,"FIELD",222,2) BLANK "DATA",160.16,2,"FIELD",222,3) L,BLANK "DATA",160.16,2,"FIELD",223,0) 915^1^915^Over-Ride Site/Lat/SeqNo "DATA",160.16,2,"FIELD",223,1) S ACDANS="" "DATA",160.16,2,"FIELD",223,2) BLANK "DATA",160.16,2,"FIELD",223,3) L,BLANK "DATA",160.16,2,"FIELD",224,0) 916^1^916^Over-Ride Surg./DxConf "DATA",160.16,2,"FIELD",224,1) S ACDANS="" "DATA",160.16,2,"FIELD",224,2) BLANK "DATA",160.16,2,"FIELD",224,3) L,BLANK "DATA",160.16,2,"FIELD",225,0) 917^1^917^Over-Ride Site/Type "DATA",160.16,2,"FIELD",225,1) S ACDANS="" "DATA",160.16,2,"FIELD",225,2) BLANK "DATA",160.16,2,"FIELD",225,3) L,BLANK "DATA",160.16,2,"FIELD",226,0) 918^1^918^Over-Ride Histology "DATA",160.16,2,"FIELD",226,1) S ACDANS="" "DATA",160.16,2,"FIELD",226,2) BLANK "DATA",160.16,2,"FIELD",226,3) L,BLANK "DATA",160.16,2,"FIELD",227,0) 919^1^919^Over-Ride Report Source "DATA",160.16,2,"FIELD",227,1) S ACDANS="" "DATA",160.16,2,"FIELD",227,2) BLANK "DATA",160.16,2,"FIELD",227,3) L,BLANK "DATA",160.16,2,"FIELD",228,0) 920^1^920^Over-Ride Ill-Defined Site "DATA",160.16,2,"FIELD",228,1) S ACDANS="" "DATA",160.16,2,"FIELD",228,2) BLANK "DATA",160.16,2,"FIELD",228,3) L,BLANK "DATA",160.16,2,"FIELD",229,0) 921^1^921^Over-Ride Leuk, Lymphoma "DATA",160.16,2,"FIELD",229,1) S ACDANS="" "DATA",160.16,2,"FIELD",229,2) BLANK "DATA",160.16,2,"FIELD",229,3) L,BLANK "DATA",160.16,2,"FIELD",230,0) 922^30^951^Reserved "DATA",160.16,2,"FIELD",230,1) S ACDANS="" "DATA",160.16,2,"FIELD",230,2) BLANK "DATA",160.16,2,"FIELD",230,3) L,BLANK "DATA",160.16,2,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,2,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",231,2) BLANK "DATA",160.16,2,"FIELD",231,3) L,BLANK "DATA",160.16,2,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,2,"FIELD",232,1) S ACDANS="" "DATA",160.16,2,"FIELD",232,2) BLANK "DATA",160.16,2,"FIELD",232,3) L,BLANK "DATA",160.16,2,"FIELD",233,0) 968^8^975^Date Case Transmitted "DATA",160.16,2,"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,2,"FIELD",233,2) BLANK "DATA",160.16,2,"FIELD",233,3) L,ZERO "DATA",160.16,2,"FIELD",234,0) 976^1^976^SEER Coding Sys-Current "DATA",160.16,2,"FIELD",234,1) S ACDANS=4 "DATA",160.16,2,"FIELD",234,2) BLANK "DATA",160.16,2,"FIELD",234,3) L,BLANK "DATA",160.16,2,"FIELD",235,0) 977^1^977^SEER Coding Sys-Original "DATA",160.16,2,"FIELD",235,1) S ACDANS=4 "DATA",160.16,2,"FIELD",235,2) BLANK "DATA",160.16,2,"FIELD",235,3) L,BLANK "DATA",160.16,2,"FIELD",236,0) 978^1^978^COC Coding System Current "DATA",160.16,2,"FIELD",236,1) S ACDANS=6 "DATA",160.16,2,"FIELD",236,2) BLANK "DATA",160.16,2,"FIELD",236,3) L,BLANK "DATA",160.16,2,"FIELD",237,0) 979^1^979^COC Coding System Original "DATA",160.16,2,"FIELD",237,1) S ACDANS=6 "DATA",160.16,2,"FIELD",237,2) BLANK "DATA",160.16,2,"FIELD",237,3) L,BLANK "DATA",160.16,2,"FIELD",238,0) 980^1^980^Subseq Report for Primary "DATA",160.16,2,"FIELD",238,1) S ACDANS="" "DATA",160.16,2,"FIELD",238,2) BLANK "DATA",160.16,2,"FIELD",238,3) L,BLANK "DATA",160.16,2,"FIELD",239,0) 981^10^990^Vender Name "DATA",160.16,2,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,2,"FIELD",239,2) BLANK "DATA",160.16,2,"FIELD",239,3) L,BLANK "DATA",160.16,2,"FIELD",240,0) 991^1^991^SEER Type of Follow-up "DATA",160.16,2,"FIELD",240,1) S ACDANS="" "DATA",160.16,2,"FIELD",240,2) BLANK "DATA",160.16,2,"FIELD",240,3) L,BLANK "DATA",160.16,2,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,2,"FIELD",241,1) S ACDANS="" "DATA",160.16,2,"FIELD",241,2) BLANK "DATA",160.16,2,"FIELD",241,3) L,BLANK "DATA",160.16,2,"FIELD",242,0) 994^2^995^Diagnostic Procedures '73-'87 "DATA",160.16,2,"FIELD",242,1) S ACDANS="" "DATA",160.16,2,"FIELD",242,2) BLANK "DATA",160.16,2,"FIELD",242,3) L,BLANK "DATA",160.16,2,"FIELD",243,0) 996^30^1025^Reserved "DATA",160.16,2,"FIELD",243,1) S ACDANS="" "DATA",160.16,2,"FIELD",243,2) BLANK "DATA",160.16,2,"FIELD",243,3) L,BLANK "DATA",160.16,2,"FIELD",338,0) 1524^2^1525^Linkage Name Sum "DATA",160.16,2,"FIELD",338,1) S ACDANS=$$LINK~ONCACDU2(ACD160) "DATA",160.16,2,"FIELD",338,2) ZERO "DATA",160.16,2,"FIELD",338,3) L,ZERO "DATA",160.16,2,"RULES",0) ^^6^6^2990310^^^^ "DATA",160.16,2,"RULES",1,0) S VALID=1 "DATA",160.16,2,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,2,"RULES",3,0) I "^0^1^2^"'[SCREEN S VALID=0 "DATA",160.16,2,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,2,"RULES",5,0) S JUMP=0 "DATA",160.16,2,"RULES",6,0) K SCREEN "DATA",160.16,3,0) NAACCR VACCR EXTRACT V5.1 "DATA",160.16,3,"FIELD",0) ^160.161I^344^250 "DATA",160.16,3,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,3,"FIELD",1,1) S ACDANS="A" "DATA",160.16,3,"FIELD",1,2) BLANK "DATA",160.16,3,"FIELD",1,3) L,BLANK "DATA",160.16,3,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,3,"FIELD",2,1) S ACDANS="" "DATA",160.16,3,"FIELD",2,2) ZERO "DATA",160.16,3,"FIELD",2,3) L,BLANK "DATA",160.16,3,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,3,"FIELD",3,1) S ACDANS=3 "DATA",160.16,3,"FIELD",3,2) BLANK "DATA",160.16,3,"FIELD",3,3) L,BLANK "DATA",160.16,3,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,3,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,3,"FIELD",4,2) BLANK "DATA",160.16,3,"FIELD",4,3) L,BLANK "DATA",160.16,3,"FIELD",5,0) 19^1^19^NAACCR Record Number "DATA",160.16,3,"FIELD",5,1) S ACDANS=5 "DATA",160.16,3,"FIELD",5,2) BLANK "DATA",160.16,3,"FIELD",5,3) L,BLANK "DATA",160.16,3,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,3,"FIELD",6,1) S ACDANS="" "DATA",160.16,3,"FIELD",6,2) BLANK "DATA",160.16,3,"FIELD",6,3) L,BLANK "DATA",160.16,3,"FIELD",7,0) 22^20^41^Add at Dx City "DATA",160.16,3,"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,3,"FIELD",7,2) BLANK "DATA",160.16,3,"FIELD",7,3) R,BLANK "DATA",160.16,3,"FIELD",8,0) 42^2^43^Add at Dx State "DATA",160.16,3,"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,3,"FIELD",8,2) BLANK "DATA",160.16,3,"FIELD",8,3) L,BLANK "DATA",160.16,3,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,3,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",9,2) ZERO "DATA",160.16,3,"FIELD",9,3) L,ZERO "DATA",160.16,3,"FIELD",10,0) 47^9^55^Add at DX ZIP "DATA",160.16,3,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,3,"FIELD",10,2) BLANK "DATA",160.16,3,"FIELD",10,3) R,BLANK "DATA",160.16,3,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,3,"FIELD",11,1) S ACDANS="" "DATA",160.16,3,"FIELD",11,2) BLANK "DATA",160.16,3,"FIELD",11,3) L,BLANK "DATA",160.16,3,"FIELD",12,0) 62^1^62^Census Tract Coding System "DATA",160.16,3,"FIELD",12,1) S ACDANS="" "DATA",160.16,3,"FIELD",12,2) BLANK "DATA",160.16,3,"FIELD",12,3) L,BLANK "DATA",160.16,3,"FIELD",13,0) 63^6^68^Census Tract- Alternate "DATA",160.16,3,"FIELD",13,1) S ACDANS="" "DATA",160.16,3,"FIELD",13,2) BLANK "DATA",160.16,3,"FIELD",13,3) L,BLANK "DATA",160.16,3,"FIELD",14,0) 69^1^69^Census Tract Coding System-Alt. "DATA",160.16,3,"FIELD",14,1) S ACDANS="" "DATA",160.16,3,"FIELD",14,2) BLANK "DATA",160.16,3,"FIELD",14,3) L,BLANK "DATA",160.16,3,"FIELD",15,0) 70^1^70^Marital Status "DATA",160.16,3,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,3,"FIELD",15,2) BLANK "DATA",160.16,3,"FIELD",15,3) L,BLANK "DATA",160.16,3,"FIELD",16,0) 71^2^72^Race "DATA",160.16,3,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,3,"FIELD",16,2) BLANK "DATA",160.16,3,"FIELD",16,3) L,ZERO "DATA",160.16,3,"FIELD",17,0) 73^1^73^Race Coding-Current "DATA",160.16,3,"FIELD",17,1) S ACDANS="5" "DATA",160.16,3,"FIELD",17,2) BLANK "DATA",160.16,3,"FIELD",17,3) L,BLANK "DATA",160.16,3,"FIELD",18,0) 74^1^74^Race Coding-Original "DATA",160.16,3,"FIELD",18,1) S ACDANS="5" "DATA",160.16,3,"FIELD",18,2) BLANK "DATA",160.16,3,"FIELD",18,3) L,BLANK "DATA",160.16,3,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,3,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,3,"FIELD",19,2) BLANK "DATA",160.16,3,"FIELD",19,3) L,BLANK "DATA",160.16,3,"FIELD",20,0) 76^1^76^Computer-Derived Ethnicity "DATA",160.16,3,"FIELD",20,1) S ACDANS="" "DATA",160.16,3,"FIELD",20,2) BLANK "DATA",160.16,3,"FIELD",20,3) L,BLANK "DATA",160.16,3,"FIELD",21,0) 77^1^77^Computer-Derived Ethnicity Src "DATA",160.16,3,"FIELD",21,1) S ACDANS="" "DATA",160.16,3,"FIELD",21,2) BLANK "DATA",160.16,3,"FIELD",21,3) L,BLANK "DATA",160.16,3,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,3,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,3,"FIELD",22,2) BLANK "DATA",160.16,3,"FIELD",22,3) L,BLANK "DATA",160.16,3,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,3,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",23,2) BLANK "DATA",160.16,3,"FIELD",23,3) L,ZERO "DATA",160.16,3,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,3,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",24,2) NINE "DATA",160.16,3,"FIELD",24,3) L,ZERO "DATA",160.16,3,"FIELD",25,0) 90^3^92^Birth Place "DATA",160.16,3,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,3,"FIELD",25,2) NINE "DATA",160.16,3,"FIELD",25,3) L,ZERO "DATA",160.16,3,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,3,"FIELD",26,1) S ACDANS=99 "DATA",160.16,3,"FIELD",26,2) NINE "DATA",160.16,3,"FIELD",26,3) L,ZERO "DATA",160.16,3,"FIELD",27,0) 95^3^97^Occupation (Census) "DATA",160.16,3,"FIELD",27,1) S ACDANS="" "DATA",160.16,3,"FIELD",27,2) BLANK "DATA",160.16,3,"FIELD",27,3) L,BLANK "DATA",160.16,3,"FIELD",28,0) 98^3^100^Industry (Census) "DATA",160.16,3,"FIELD",28,1) S ACDANS="" "DATA",160.16,3,"FIELD",28,2) BLANK "DATA",160.16,3,"FIELD",28,3) L,BLANK "DATA",160.16,3,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,3,"FIELD",29,1) S ACDANS="" "DATA",160.16,3,"FIELD",29,2) BLANK "DATA",160.16,3,"FIELD",29,3) L,BLANK "DATA",160.16,3,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,3,"FIELD",30,1) S ACDANS="" "DATA",160.16,3,"FIELD",30,2) BLANK "DATA",160.16,3,"FIELD",30,3) L,BLANK "DATA",160.16,3,"FIELD",31,0) 103^40^142^Usual Occupation (Text) "DATA",160.16,3,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,3,"FIELD",31,2) BLANK "DATA",160.16,3,"FIELD",31,3) R,BLANK "DATA",160.16,3,"FIELD",32,0) 143^40^182^Usual Industry (Text) "DATA",160.16,3,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,3,"FIELD",32,2) BLANK "DATA",160.16,3,"FIELD",32,3) R,BLANK "DATA",160.16,3,"FIELD",33,0) 183^1^183^Occup/Ind. Coding System "DATA",160.16,3,"FIELD",33,1) S ACDANS="" "DATA",160.16,3,"FIELD",33,2) BLANK "DATA",160.16,3,"FIELD",33,3) L,BLANK "DATA",160.16,3,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,3,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",34,2) BLANK "DATA",160.16,3,"FIELD",34,3) L,BLANK "DATA",160.16,3,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,3,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",35,2) BLANK "DATA",160.16,3,"FIELD",35,3) L,BLANK "DATA",160.16,3,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,3,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") S:ACDANS'="" ACDANS=$S(ACDANS="Y":1,ACDANS="N":0,1:"") "DATA",160.16,3,"FIELD",36,2) BLANK "DATA",160.16,3,"FIELD",36,3) L,BLANK "DATA",160.16,3,"FIELD",37,0) 187^1^187^Census Tract Block Number "DATA",160.16,3,"FIELD",37,1) S ACDANS="" "DATA",160.16,3,"FIELD",37,2) BLANK "DATA",160.16,3,"FIELD",37,3) L,BLANK "DATA",160.16,3,"FIELD",38,0) 188^29^216^Reserved "DATA",160.16,3,"FIELD",38,1) S ACDANS="" "DATA",160.16,3,"FIELD",38,2) BLANK "DATA",160.16,3,"FIELD",38,3) L,BLANK "DATA",160.16,3,"FIELD",39,0) 217^2^218^Sequence Number-Central "DATA",160.16,3,"FIELD",39,1) S ACDANS="" "DATA",160.16,3,"FIELD",39,2) BLANK "DATA",160.16,3,"FIELD",39,3) L,BLANK "DATA",160.16,3,"FIELD",40,0) 219^8^226^Date Of Diagnosis "DATA",160.16,3,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",40,2) ZERO "DATA",160.16,3,"FIELD",40,3) L,ZERO "DATA",160.16,3,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,3,"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,3,"FIELD",41,2) ZERO "DATA",160.16,3,"FIELD",41,3) L,ZERO "DATA",160.16,3,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,3,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,3,"FIELD",42,2) BLANK "DATA",160.16,3,"FIELD",42,3) L,BLANK "DATA",160.16,3,"FIELD",43,0) 232^4^235^Histologic Type "DATA",160.16,3,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",43,2) ZERO "DATA",160.16,3,"FIELD",43,3) L,ZERO "DATA",160.16,3,"FIELD",44,0) 236^1^236^Behavior "DATA",160.16,3,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",44,2) ZERO "DATA",160.16,3,"FIELD",44,3) L,ZERO "DATA",160.16,3,"FIELD",45,0) 237^1^237^Grade or Differentiation "DATA",160.16,3,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,3,"FIELD",45,2) ZERO "DATA",160.16,3,"FIELD",45,3) L,ZERO "DATA",160.16,3,"FIELD",46,0) 238^1^238^Site Coding System-Cur.. "DATA",160.16,3,"FIELD",46,1) S ACDANS=4 "DATA",160.16,3,"FIELD",46,2) ZERO "DATA",160.16,3,"FIELD",46,3) L,ZERO "DATA",160.16,3,"FIELD",47,0) 239^1^239^Site Coding System-Org. "DATA",160.16,3,"FIELD",47,1) S ACDANS=4 "DATA",160.16,3,"FIELD",47,2) ZERO "DATA",160.16,3,"FIELD",47,3) L,ZERO "DATA",160.16,3,"FIELD",48,0) 240^1^240^Morph. Coding System-Cur "DATA",160.16,3,"FIELD",48,1) S ACDANS=5 "DATA",160.16,3,"FIELD",48,2) ZERO "DATA",160.16,3,"FIELD",48,3) L,ZERO "DATA",160.16,3,"FIELD",49,0) 241^1^241^Morph. Coding System-Org. "DATA",160.16,3,"FIELD",49,1) S ACDANS=5 "DATA",160.16,3,"FIELD",49,2) ZERO "DATA",160.16,3,"FIELD",49,3) L,ZERO "DATA",160.16,3,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,3,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,3,"FIELD",50,2) NINE "DATA",160.16,3,"FIELD",50,3) L,ZERO "DATA",160.16,3,"FIELD",51,0) 243^1^243^Type of reporting Source "DATA",160.16,3,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,3,"FIELD",51,2) BLANK "DATA",160.16,3,"FIELD",51,3) L,BLANK "DATA",160.16,3,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,3,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",52,2) BLANK "DATA",160.16,3,"FIELD",52,3) L,BLANK "DATA",160.16,3,"FIELD",53,0) 252^1^252^Screening Results "DATA",160.16,3,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,3,"FIELD",53,2) BLANK "DATA",160.16,3,"FIELD",53,3) L,BLANK "DATA",160.16,3,"FIELD",54,0) 253^30^282^Reserved "DATA",160.16,3,"FIELD",54,1) S ACDANS="" "DATA",160.16,3,"FIELD",54,2) BLANK "DATA",160.16,3,"FIELD",54,3) L,BLANK "DATA",160.16,3,"FIELD",55,0) 283^6^288^Reporting Hospital "DATA",160.16,3,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,3,"FIELD",55,2) ZERO "DATA",160.16,3,"FIELD",55,3) L,ZERO "DATA",160.16,3,"FIELD",56,0) 289^6^294^Accession Number (Hospital) "DATA",160.16,3,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,3,"FIELD",56,2) ZERO "DATA",160.16,3,"FIELD",56,3) L,ZERO "DATA",160.16,3,"FIELD",57,0) 295^2^296^Sequence Number-Hospital "DATA",160.16,3,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,3,"FIELD",57,2) ZERO "DATA",160.16,3,"FIELD",57,3) L,ZERO "DATA",160.16,3,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,3,"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,3,"FIELD",58,2) BLANK "DATA",160.16,3,"FIELD",58,3) L,BLANK "DATA",160.16,3,"FIELD",59,0) 300^8^307^Date of Admission/First Contact "DATA",160.16,3,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",59,2) ZERO "DATA",160.16,3,"FIELD",59,3) L,ZERO "DATA",160.16,3,"FIELD",60,0) 308^8^315^Date of Inpatient Admission (COC) "DATA",160.16,3,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",60,2) ZERO "DATA",160.16,3,"FIELD",60,3) L,ZERO "DATA",160.16,3,"FIELD",61,0) 316^8^323^Date of Inpatient Discharge "DATA",160.16,3,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",61,2) ZERO "DATA",160.16,3,"FIELD",61,3) L,ZERO "DATA",160.16,3,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,3,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,3,"FIELD",62,2) ZERO "DATA",160.16,3,"FIELD",62,3) L,ZERO "DATA",160.16,3,"FIELD",63,0) 325^4^328^Year 1st Seen for Primary (Acc Yr.) "DATA",160.16,3,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,3,"FIELD",63,2) ZERO "DATA",160.16,3,"FIELD",63,3) L,ZERO "DATA",160.16,3,"FIELD",64,0) 329^2^330^Primary Payer At Diagnosis "DATA",160.16,3,"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,3,"FIELD",64,2) BLANK "DATA",160.16,3,"FIELD",64,3) L,BLANK "DATA",160.16,3,"FIELD",65,0) 331^1^331^In/Out Patient Status "DATA",160.16,3,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,3,"FIELD",65,2) BLANK "DATA",160.16,3,"FIELD",65,3) L,BLANK "DATA",160.16,3,"FIELD",66,0) 332^1^332^Presentation At Cancer Conference "DATA",160.16,3,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,3,"FIELD",66,2) BLANK "DATA",160.16,3,"FIELD",66,3) L,BLANK "DATA",160.16,3,"FIELD",67,0) 333^8^340^Date of Conference "DATA",160.16,3,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",67,2) BLANK "DATA",160.16,3,"FIELD",67,3) L,BLANK "DATA",160.16,3,"FIELD",68,0) 341^2^342^RX Hospital-CA Directed Surgery "DATA",160.16,3,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,3,"FIELD",68,2) NINE "DATA",160.16,3,"FIELD",68,3) L,ZERO "DATA",160.16,3,"FIELD",69,0) 343^8^350^Reserved "DATA",160.16,3,"FIELD",69,1) S ACDANS="" "DATA",160.16,3,"FIELD",69,2) BLANK "DATA",160.16,3,"FIELD",69,3) L,BLANK "DATA",160.16,3,"FIELD",70,0) 351^1^351^RX Hosp. Radiation "DATA",160.16,3,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,3,"FIELD",70,2) BLANK "DATA",160.16,3,"FIELD",70,3) L,ZERO "DATA",160.16,3,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,3,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,3,"FIELD",71,2) BLANK "DATA",160.16,3,"FIELD",71,3) L,ZERO "DATA",160.16,3,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,3,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,3,"FIELD",72,2) BLANK "DATA",160.16,3,"FIELD",72,3) L,ZERO "DATA",160.16,3,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,3,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,3,"FIELD",73,2) BLANK "DATA",160.16,3,"FIELD",73,3) L,ZERO "DATA",160.16,3,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,3,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,3,"FIELD",74,2) BLANK "DATA",160.16,3,"FIELD",74,3) L,ZERO "DATA",160.16,3,"FIELD",75,0) 356^2^357^RX Hosp.-Non CA Directed Surgery "DATA",160.16,3,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,3,"FIELD",75,2) NINE "DATA",160.16,3,"FIELD",75,3) L,ZERO "DATA",160.16,3,"FIELD",76,0) 358^30^387^Reserved "DATA",160.16,3,"FIELD",76,1) S ACDANS="" "DATA",160.16,3,"FIELD",76,2) BLANK "DATA",160.16,3,"FIELD",76,3) L,BLANK "DATA",160.16,3,"FIELD",77,0) 388^1^388^General Summary Stage "DATA",160.16,3,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,3,"FIELD",77,2) BLANK "DATA",160.16,3,"FIELD",77,3) L,BLANK "DATA",160.16,3,"FIELD",78,0) 389^1^389^Local/Regional/Distant Stage "DATA",160.16,3,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",78,2) BLANK "DATA",160.16,3,"FIELD",78,3) L,BLANK "DATA",160.16,3,"FIELD",79,0) 390^3^392^EOD Tumor Size "DATA",160.16,3,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,3,"FIELD",79,2) BLANK "DATA",160.16,3,"FIELD",79,3) L,ZERO "DATA",160.16,3,"FIELD",80,0) 393^2^394^EOD Extension "DATA",160.16,3,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,3,"FIELD",80,2) BLANK "DATA",160.16,3,"FIELD",80,3) L,BLANK "DATA",160.16,3,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,3,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,3,"FIELD",81,2) BLANK "DATA",160.16,3,"FIELD",81,3) L,ZERO "DATA",160.16,3,"FIELD",82,0) 397^1^397^EOD Lymph Nodes "DATA",160.16,3,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,3,"FIELD",82,2) BLANK "DATA",160.16,3,"FIELD",82,3) L,BLANK "DATA",160.16,3,"FIELD",83,0) 398^2^399^Regional Nodes Pos. "DATA",160.16,3,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,3,"FIELD",83,2) ZERO "DATA",160.16,3,"FIELD",83,3) L,ZERO "DATA",160.16,3,"FIELD",84,0) 400^2^401^Regional Nodes Exam. "DATA",160.16,3,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,3,"FIELD",84,2) ZERO "DATA",160.16,3,"FIELD",84,3) L,ZERO "DATA",160.16,3,"FIELD",85,0) 402^13^414^EOD-old 13 Digit "DATA",160.16,3,"FIELD",85,1) S ACDANS="" "DATA",160.16,3,"FIELD",85,2) BLANK "DATA",160.16,3,"FIELD",85,3) L,BLANK "DATA",160.16,3,"FIELD",86,0) 415^2^416^EOD-old 2 Digit "DATA",160.16,3,"FIELD",86,1) S ACDANS="" "DATA",160.16,3,"FIELD",86,2) BLANK "DATA",160.16,3,"FIELD",86,3) L,BLANK "DATA",160.16,3,"FIELD",87,0) 417^4^420^EOD-old 4 Digit "DATA",160.16,3,"FIELD",87,1) S ACDANS="" "DATA",160.16,3,"FIELD",87,2) BLANK "DATA",160.16,3,"FIELD",87,3) L,BLANK "DATA",160.16,3,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,3,"FIELD",88,1) S ACDANS="1" "DATA",160.16,3,"FIELD",88,2) BLANK "DATA",160.16,3,"FIELD",88,3) L,BLANK "DATA",160.16,3,"FIELD",89,0) 422^2^423^T Code of TNM (Pathologic) "DATA",160.16,3,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,3,"FIELD",89,2) BLANK "DATA",160.16,3,"FIELD",89,3) R,BLANK "DATA",160.16,3,"FIELD",90,0) 424^2^425^N Code of TNM (Pathologic) "DATA",160.16,3,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,3,"FIELD",90,2) BLANK "DATA",160.16,3,"FIELD",90,3) R,BLANK "DATA",160.16,3,"FIELD",91,0) 426^2^427^M Code of TNM (Pathologic) "DATA",160.16,3,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,3,"FIELD",91,2) BLANK "DATA",160.16,3,"FIELD",91,3) R,BLANK "DATA",160.16,3,"FIELD",92,0) 428^2^429^Pathologic Stage Group "DATA",160.16,3,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,3,"FIELD",92,2) BLANK "DATA",160.16,3,"FIELD",92,3) R,BLANK "DATA",160.16,3,"FIELD",93,0) 430^1^430^Pathologic Stage(Pref./Suf.)Desc. "DATA",160.16,3,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,3,"FIELD",93,2) ZERO "DATA",160.16,3,"FIELD",93,3) L,ZERO "DATA",160.16,3,"FIELD",94,0) 431^1^431^Pathologic Stage By "DATA",160.16,3,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,3,"FIELD",94,2) BLANK "DATA",160.16,3,"FIELD",94,3) L,BLANK "DATA",160.16,3,"FIELD",95,0) 432^2^433^Clinical T Code "DATA",160.16,3,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,3,"FIELD",95,2) BLANK "DATA",160.16,3,"FIELD",95,3) R,BLANK "DATA",160.16,3,"FIELD",96,0) 434^2^435^Clinical N Code "DATA",160.16,3,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,3,"FIELD",96,2) BLANK "DATA",160.16,3,"FIELD",96,3) R,BLANK "DATA",160.16,3,"FIELD",97,0) 436^2^437^Clinical M Code "DATA",160.16,3,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,3,"FIELD",97,2) BLANK "DATA",160.16,3,"FIELD",97,3) R,BLANK "DATA",160.16,3,"FIELD",98,0) 438^2^439^Clinical Stage Group "DATA",160.16,3,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,3,"FIELD",98,2) BLANK "DATA",160.16,3,"FIELD",98,3) R,BLANK "DATA",160.16,3,"FIELD",99,0) 440^1^440^Clinical Stage (Pref./Suf.) Desc. "DATA",160.16,3,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,3,"FIELD",99,2) ZERO "DATA",160.16,3,"FIELD",99,3) L,ZERO "DATA",160.16,3,"FIELD",100,0) 441^1^441^Clinical Staged By "DATA",160.16,3,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,3,"FIELD",100,2) BLANK "DATA",160.16,3,"FIELD",100,3) L,BLANK "DATA",160.16,3,"FIELD",101,0) 442^2^443^Other T Code "DATA",160.16,3,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") "DATA",160.16,3,"FIELD",101,2) BLANK "DATA",160.16,3,"FIELD",101,3) R,BLANK "DATA",160.16,3,"FIELD",102,0) 444^2^445^Other N Code "DATA",160.16,3,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,3,"FIELD",102,2) BLANK "DATA",160.16,3,"FIELD",102,3) R,BLANK "DATA",160.16,3,"FIELD",103,0) 446^2^447^Other M Code "DATA",160.16,3,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,3,"FIELD",103,2) BLANK "DATA",160.16,3,"FIELD",103,3) R,BLANK "DATA",160.16,3,"FIELD",104,0) 448^2^449^Other Stage Group "DATA",160.16,3,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,3,"FIELD",104,2) BLANK "DATA",160.16,3,"FIELD",104,3) R,BLANK "DATA",160.16,3,"FIELD",105,0) 450^1^450^Other Stage By "DATA",160.16,3,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,3,"FIELD",105,2) BLANK "DATA",160.16,3,"FIELD",105,3) L,BLANK "DATA",160.16,3,"FIELD",106,0) 451^1^451^Other Stage (Pref./Suf.) Desc. "DATA",160.16,3,"FIELD",106,1) S ACDANS="" "DATA",160.16,3,"FIELD",106,2) BLANK "DATA",160.16,3,"FIELD",106,3) L,BLANK "DATA",160.16,3,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,3,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",107,2) BLANK "DATA",160.16,3,"FIELD",107,3) L,BLANK "DATA",160.16,3,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,3,"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,3,"FIELD",108,2) BLANK "DATA",160.16,3,"FIELD",108,3) L,BLANK "DATA",160.16,3,"FIELD",109,0) 468^8^475^Date of 1st Positive Biopsy "DATA",160.16,3,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",109,2) BLANK "DATA",160.16,3,"FIELD",109,3) L,BLANK "DATA",160.16,3,"FIELD",110,0) 476^1^476^Site of Distant Mets. #1 "DATA",160.16,3,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,3,"FIELD",110,2) BLANK "DATA",160.16,3,"FIELD",110,3) L,BLANK "DATA",160.16,3,"FIELD",111,0) 477^1^477^Site of Distant Mets. #2 "DATA",160.16,3,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,3,"FIELD",111,2) BLANK "DATA",160.16,3,"FIELD",111,3) L,BLANK "DATA",160.16,3,"FIELD",112,0) 478^1^478^Site of Distant Mets. #3 "DATA",160.16,3,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,3,"FIELD",112,2) BLANK "DATA",160.16,3,"FIELD",112,3) L,BLANK "DATA",160.16,3,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,3,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,3,"FIELD",113,2) BLANK "DATA",160.16,3,"FIELD",113,3) L,BLANK "DATA",160.16,3,"FIELD",114,0) 481^2^482^Pediatric Staging System Type "DATA",160.16,3,"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,3,"FIELD",114,2) BLANK "DATA",160.16,3,"FIELD",114,3) L,BLANK "DATA",160.16,3,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,3,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,3,"FIELD",115,2) BLANK "DATA",160.16,3,"FIELD",115,3) L,BLANK "DATA",160.16,3,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,3,"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,3,"FIELD",116,2) BLANK "DATA",160.16,3,"FIELD",116,3) L,BLANK "DATA",160.16,3,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,3,"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,3,"FIELD",117,2) BLANK "DATA",160.16,3,"FIELD",117,3) L,BLANK "DATA",160.16,3,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,3,"FIELD",118,1) S ACDANS="" "DATA",160.16,3,"FIELD",118,2) BLANK "DATA",160.16,3,"FIELD",118,3) L,BLANK "DATA",160.16,3,"FIELD",119,0) 487^49^535^Reserved "DATA",160.16,3,"FIELD",119,1) S ACDANS="" "DATA",160.16,3,"FIELD",119,2) BLANK "DATA",160.16,3,"FIELD",119,3) L,BLANK "DATA",160.16,3,"FIELD",120,0) 536^1^536^Reserved Old Record Version "DATA",160.16,3,"FIELD",120,1) S ACDANS="" "DATA",160.16,3,"FIELD",120,2) BLANK "DATA",160.16,3,"FIELD",120,3) L,BLANK "DATA",160.16,3,"FIELD",121,0) 537^8^544^RX Date - Surgery "DATA",160.16,3,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,3,"FIELD",121,2) NINE "DATA",160.16,3,"FIELD",121,3) L,BLANK "DATA",160.16,3,"FIELD",122,0) 545^8^552^RX Date - Radiation "DATA",160.16,3,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,3,"FIELD",122,2) NINE "DATA",160.16,3,"FIELD",122,3) L,BLANK "DATA",160.16,3,"FIELD",123,0) 553^8^560^RX Date - Chemo. "DATA",160.16,3,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,3,"FIELD",123,2) NINE "DATA",160.16,3,"FIELD",123,3) L,BLANK "DATA",160.16,3,"FIELD",124,0) 561^8^568^RX Date - Hormone/Steroid "DATA",160.16,3,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,3,"FIELD",124,2) NINE "DATA",160.16,3,"FIELD",124,3) L,BLANK "DATA",160.16,3,"FIELD",125,0) 569^8^576^RX Date - Biological Resp. Mod. "DATA",160.16,3,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,3,"FIELD",125,2) NINE "DATA",160.16,3,"FIELD",125,3) L,BLANK "DATA",160.16,3,"FIELD",126,0) 577^8^584^RX Date - Other Cancer Dir. "DATA",160.16,3,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,3,"FIELD",126,2) NINE "DATA",160.16,3,"FIELD",126,3) L,BLANK "DATA",160.16,3,"FIELD",127,0) 585^8^592^Date of Initial Treatment "DATA",160.16,3,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",127,2) ZERO "DATA",160.16,3,"FIELD",127,3) L,ZERO "DATA",160.16,3,"FIELD",128,0) 593^8^600^Date of 1st Course RX (COC) "DATA",160.16,3,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",128,2) ZERO "DATA",160.16,3,"FIELD",128,3) L,ZERO "DATA",160.16,3,"FIELD",129,0) 601^8^608^RX Date-Non Cancer Dir. Surgery "DATA",160.16,3,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",129,2) ZERO "DATA",160.16,3,"FIELD",129,3) L,ZERO "DATA",160.16,3,"FIELD",130,0) 609^2^610^RX Summary-Surgery Type "DATA",160.16,3,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,3,"FIELD",130,2) ZERO "DATA",160.16,3,"FIELD",130,3) L,ZERO "DATA",160.16,3,"FIELD",131,0) 611^8^618^Reserved For 1997 "DATA",160.16,3,"FIELD",131,1) S ACDANS="" "DATA",160.16,3,"FIELD",131,2) BLANK "DATA",160.16,3,"FIELD",131,3) L,BLANK "DATA",160.16,3,"FIELD",132,0) 619^1^619^Surgical Approach "DATA",160.16,3,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,3,"FIELD",132,2) BLANK "DATA",160.16,3,"FIELD",132,3) L,BLANK "DATA",160.16,3,"FIELD",133,0) 620^1^620^Residual Tumor "DATA",160.16,3,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,3,"FIELD",133,2) BLANK "DATA",160.16,3,"FIELD",133,3) L,BLANK "DATA",160.16,3,"FIELD",134,0) 621^1^621^Re-constructive Surgery "DATA",160.16,3,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,3,"FIELD",134,2) BLANK "DATA",160.16,3,"FIELD",134,3) L,BLANK "DATA",160.16,3,"FIELD",135,0) 622^1^622^Reason for no Surgery "DATA",160.16,3,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,3,"FIELD",135,2) BLANK "DATA",160.16,3,"FIELD",135,3) L,BLANK "DATA",160.16,3,"FIELD",136,0) 623^2^624^RX Summary Non-Can. Dir. Surg. "DATA",160.16,3,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,3,"FIELD",136,2) NINE "DATA",160.16,3,"FIELD",136,3) L,ZERO "DATA",160.16,3,"FIELD",137,0) 625^1^625^RX Summary-Radiation "DATA",160.16,3,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,3,"FIELD",137,2) NINE "DATA",160.16,3,"FIELD",137,3) L,ZERO "DATA",160.16,3,"FIELD",138,0) 626^1^626^RX Summary-Rad. to CNS "DATA",160.16,3,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,3,"FIELD",138,2) NINE "DATA",160.16,3,"FIELD",138,3) L,ZERO "DATA",160.16,3,"FIELD",139,0) 627^1^627^RX Summary-Surg./Rad. Type "DATA",160.16,3,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,3,"FIELD",139,2) NINE "DATA",160.16,3,"FIELD",139,3) L,ZERO "DATA",160.16,3,"FIELD",140,0) 628^1^628^RX Summary- Chemo "DATA",160.16,3,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,3,"FIELD",140,2) NINE "DATA",160.16,3,"FIELD",140,3) L,ZERO "DATA",160.16,3,"FIELD",141,0) 629^1^629^RX Summary- Hormone "DATA",160.16,3,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,3,"FIELD",141,2) NINE "DATA",160.16,3,"FIELD",141,3) L,ZERO "DATA",160.16,3,"FIELD",142,0) 630^1^630^RX Summary- BRM "DATA",160.16,3,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,3,"FIELD",142,2) NINE "DATA",160.16,3,"FIELD",142,3) L,ZERO "DATA",160.16,3,"FIELD",143,0) 631^1^631^RX Summary- Other "DATA",160.16,3,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,3,"FIELD",143,2) NINE "DATA",160.16,3,"FIELD",143,3) L,ZERO "DATA",160.16,3,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,3,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,3,"FIELD",144,2) BLANK "DATA",160.16,3,"FIELD",144,3) L,BLANK "DATA",160.16,3,"FIELD",145,0) 633^1^633^Reasons for No Chemotherapy "DATA",160.16,3,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,3,"FIELD",145,2) BLANK "DATA",160.16,3,"FIELD",145,3) L,BLANK "DATA",160.16,3,"FIELD",146,0) 634^1^634^Reasons for No Hormone Therapy "DATA",160.16,3,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,3,"FIELD",146,2) BLANK "DATA",160.16,3,"FIELD",146,3) L,BLANK "DATA",160.16,3,"FIELD",147,0) 635^1^635^RX Coding System-Current "DATA",160.16,3,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",147,2) ZERO "DATA",160.16,3,"FIELD",147,3) L,ZERO "DATA",160.16,3,"FIELD",148,0) 636^1^636^Protocol Eligibility Status "DATA",160.16,3,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,3,"FIELD",148,2) BLANK "DATA",160.16,3,"FIELD",148,3) L,BLANK "DATA",160.16,3,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,3,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,3,"FIELD",149,2) BLANK "DATA",160.16,3,"FIELD",149,3) L,BLANK "DATA",160.16,3,"FIELD",150,0) 639^1^639^Referral to Support Service "DATA",160.16,3,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,3,"FIELD",150,2) BLANK "DATA",160.16,3,"FIELD",150,3) L,BLANK "DATA",160.16,3,"FIELD",151,0) 640^1^640^First Course Calc. Method "DATA",160.16,3,"FIELD",151,1) S ACDANS="1" "DATA",160.16,3,"FIELD",151,2) BLANK "DATA",160.16,3,"FIELD",151,3) L,BLANK "DATA",160.16,3,"FIELD",152,0) 641^5^645^Regional Dose: cGy "DATA",160.16,3,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,3,"FIELD",152,2) NINE "DATA",160.16,3,"FIELD",152,3) L,ZERO "DATA",160.16,3,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,3,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,3,"FIELD",153,2) NINE "DATA",160.16,3,"FIELD",153,3) L,ZERO "DATA",160.16,3,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,3,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,3,"FIELD",154,2) NINE "DATA",160.16,3,"FIELD",154,3) L,ZERO "DATA",160.16,3,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,3,"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,3,"FIELD",155,2) NINE "DATA",160.16,3,"FIELD",155,3) L,ZERO "DATA",160.16,3,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,3,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,3,"FIELD",156,2) NINE "DATA",160.16,3,"FIELD",156,3) L,ZERO "DATA",160.16,3,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,3,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,3,"FIELD",157,2) NINE "DATA",160.16,3,"FIELD",157,3) L,ZERO "DATA",160.16,3,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,3,"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,3,"FIELD",158,2) NINE "DATA",160.16,3,"FIELD",158,3) L,ZERO "DATA",160.16,3,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,3,"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,3,"FIELD",159,2) NINE "DATA",160.16,3,"FIELD",159,3) L,ZERO "DATA",160.16,3,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,3,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,3,"FIELD",160,2) NINE "DATA",160.16,3,"FIELD",160,3) L,ZERO "DATA",160.16,3,"FIELD",161,0) 659^3^661^Chem. Related Field #1 "DATA",160.16,3,"FIELD",161,1) S ACDANS="" "DATA",160.16,3,"FIELD",161,2) BLANK "DATA",160.16,3,"FIELD",161,3) L,BLANK "DATA",160.16,3,"FIELD",162,0) 662^3^664^Chem. Related Field #2 "DATA",160.16,3,"FIELD",162,1) S ACDANS="" "DATA",160.16,3,"FIELD",162,2) BLANK "DATA",160.16,3,"FIELD",162,3) L,BLANK "DATA",160.16,3,"FIELD",163,0) 665^3^667^Chem. Related Field #3 "DATA",160.16,3,"FIELD",163,1) S ACDANS="" "DATA",160.16,3,"FIELD",163,2) BLANK "DATA",160.16,3,"FIELD",163,3) L,BLANK "DATA",160.16,3,"FIELD",164,0) 668^3^670^Chem. Related Field #4 "DATA",160.16,3,"FIELD",164,1) S ACDANS="" "DATA",160.16,3,"FIELD",164,2) BLANK "DATA",160.16,3,"FIELD",164,3) L,BLANK "DATA",160.16,3,"FIELD",165,0) 671^2^672^RX Summary-Surgery (pre-96 Cod) "DATA",160.16,3,"FIELD",165,1) S ACDANS="" "DATA",160.16,3,"FIELD",165,2) BLANK "DATA",160.16,3,"FIELD",165,3) L,BLANK "DATA",160.16,3,"FIELD",166,0) 673^28^700^Reserved "DATA",160.16,3,"FIELD",166,1) S ACDANS="" "DATA",160.16,3,"FIELD",166,2) BLANK "DATA",160.16,3,"FIELD",166,3) L,BLANK "DATA",160.16,3,"FIELD",167,0) 701^8^708^Subseq RX - Date (#2) "DATA",160.16,3,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",167,2) BLANK "DATA",160.16,3,"FIELD",167,3) L,BLANK "DATA",160.16,3,"FIELD",168,0) 709^2^710^Subseq RX - Code (#2) Surgery "DATA",160.16,3,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,3,"FIELD",168,2) BLANK "DATA",160.16,3,"FIELD",168,3) L,BLANK "DATA",160.16,3,"FIELD",169,0) 711^1^711^Subseq RX - Code (#2) Radiation "DATA",160.16,3,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,3,"FIELD",169,2) BLANK "DATA",160.16,3,"FIELD",169,3) L,BLANK "DATA",160.16,3,"FIELD",170,0) 712^1^712^Subseq RX - Code (#2) Chem. "DATA",160.16,3,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,3,"FIELD",170,2) BLANK "DATA",160.16,3,"FIELD",170,3) L,BLANK "DATA",160.16,3,"FIELD",171,0) 713^1^713^Subseq RX - Code (#2) Hormone "DATA",160.16,3,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,3,"FIELD",171,2) BLANK "DATA",160.16,3,"FIELD",171,3) L,BLANK "DATA",160.16,3,"FIELD",172,0) 714^1^714^Subseq RX - Code (#2) Biological "DATA",160.16,3,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,3,"FIELD",172,2) BLANK "DATA",160.16,3,"FIELD",172,3) L,BLANK "DATA",160.16,3,"FIELD",173,0) 715^1^715^Subseq RX - Code (#2) Other "DATA",160.16,3,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,3,"FIELD",173,2) BLANK "DATA",160.16,3,"FIELD",173,3) L,BLANK "DATA",160.16,3,"FIELD",174,0) 716^8^723^Subseq RX - Date (#3) "DATA",160.16,3,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",174,2) BLANK "DATA",160.16,3,"FIELD",174,3) L,BLANK "DATA",160.16,3,"FIELD",175,0) 724^2^725^Subseq RX - Code (#3) Surgery "DATA",160.16,3,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,3,"FIELD",175,2) BLANK "DATA",160.16,3,"FIELD",175,3) L,BLANK "DATA",160.16,3,"FIELD",176,0) 726^1^726^Subseq RX - Code (#3) Radiation "DATA",160.16,3,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,3,"FIELD",176,2) BLANK "DATA",160.16,3,"FIELD",176,3) L,BLANK "DATA",160.16,3,"FIELD",177,0) 727^1^727^Subseq RX - Code (#3) Chemo. "DATA",160.16,3,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,3,"FIELD",177,2) BLANK "DATA",160.16,3,"FIELD",177,3) L,BLANK "DATA",160.16,3,"FIELD",178,0) 728^1^728^Subseq RX - Code (#3) Hormone "DATA",160.16,3,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,3,"FIELD",178,2) BLANK "DATA",160.16,3,"FIELD",178,3) L,BLANK "DATA",160.16,3,"FIELD",179,0) 729^1^729^Subseq RX - Code (#3) Biological "DATA",160.16,3,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,3,"FIELD",179,2) BLANK "DATA",160.16,3,"FIELD",179,3) L,BLANK "DATA",160.16,3,"FIELD",180,0) 730^1^730^Subseq RX - Code (#3) Other "DATA",160.16,3,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,3,"FIELD",180,2) BLANK "DATA",160.16,3,"FIELD",180,3) L,BLANK "DATA",160.16,3,"FIELD",181,0) 731^8^738^Subseq RX - Date (#4) "DATA",160.16,3,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",181,2) BLANK "DATA",160.16,3,"FIELD",181,3) L,BLANK "DATA",160.16,3,"FIELD",182,0) 739^2^740^Subseq RX - Code (#4) Surgery "DATA",160.16,3,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,3,"FIELD",182,2) BLANK "DATA",160.16,3,"FIELD",182,3) L,BLANK "DATA",160.16,3,"FIELD",183,0) 741^1^741^Subseq RX - Code (#4) Radiation "DATA",160.16,3,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,3,"FIELD",183,2) BLANK "DATA",160.16,3,"FIELD",183,3) L,BLANK "DATA",160.16,3,"FIELD",184,0) 742^1^742^Subseq RX - Code (#4) Chemo. "DATA",160.16,3,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,3,"FIELD",184,2) BLANK "DATA",160.16,3,"FIELD",184,3) L,BLANK "DATA",160.16,3,"FIELD",185,0) 743^1^743^Subseq RX - Code (#4) Hormone "DATA",160.16,3,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,3,"FIELD",185,2) BLANK "DATA",160.16,3,"FIELD",185,3) L,BLANK "DATA",160.16,3,"FIELD",186,0) 744^1^744^Subseq RX - Code (#4) Biological "DATA",160.16,3,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,3,"FIELD",186,2) BLANK "DATA",160.16,3,"FIELD",186,3) L,BLANK "DATA",160.16,3,"FIELD",187,0) 745^1^745^Subseq RX - Code (#4) Other "DATA",160.16,3,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,3,"FIELD",187,2) BLANK "DATA",160.16,3,"FIELD",187,3) L,BLANK "DATA",160.16,3,"FIELD",188,0) 746^8^753^Subseq RX - Date (#5) "DATA",160.16,3,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",188,2) BLANK "DATA",160.16,3,"FIELD",188,3) L,BLANK "DATA",160.16,3,"FIELD",189,0) 754^2^755^Subseq RX - Code (#5) Surgery "DATA",160.16,3,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,3,"FIELD",189,2) BLANK "DATA",160.16,3,"FIELD",189,3) L,BLANK "DATA",160.16,3,"FIELD",190,0) 756^1^756^Subseq RX - Code (#5) Radiation "DATA",160.16,3,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,3,"FIELD",190,2) BLANK "DATA",160.16,3,"FIELD",190,3) L,BLANK "DATA",160.16,3,"FIELD",191,0) 757^1^757^Subseq RX - Code (#5) Chemo. "DATA",160.16,3,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,3,"FIELD",191,2) BLANK "DATA",160.16,3,"FIELD",191,3) L,BLANK "DATA",160.16,3,"FIELD",192,0) 758^1^758^Subseq RX - Code (#5) Hormone "DATA",160.16,3,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,3,"FIELD",192,2) BLANK "DATA",160.16,3,"FIELD",192,3) L,BLANK "DATA",160.16,3,"FIELD",193,0) 759^1^759^Subseq RX - Code (#5) Biological "DATA",160.16,3,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,3,"FIELD",193,2) BLANK "DATA",160.16,3,"FIELD",193,3) L,BLANK "DATA",160.16,3,"FIELD",194,0) 760^1^760^Subseq RX - Code (#5) Other "DATA",160.16,3,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,3,"FIELD",194,2) BLANK "DATA",160.16,3,"FIELD",194,3) L,BLANK "DATA",160.16,3,"FIELD",195,0) 761^30^790^Reserved "DATA",160.16,3,"FIELD",195,1) S ACDANS="" "DATA",160.16,3,"FIELD",195,2) BLANK "DATA",160.16,3,"FIELD",195,3) L,BLANK "DATA",160.16,3,"FIELD",196,0) 791^8^798^Date of last Contact "DATA",160.16,3,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",196,2) NINE "DATA",160.16,3,"FIELD",196,3) L,BLANK "DATA",160.16,3,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,3,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,3,"FIELD",197,2) NINE "DATA",160.16,3,"FIELD",197,3) L,BLANK "DATA",160.16,3,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,3,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,3,"FIELD",198,2) NINE "DATA",160.16,3,"FIELD",198,3) L,BLANK "DATA",160.16,3,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,3,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,3,"FIELD",199,2) BLANK "DATA",160.16,3,"FIELD",199,3) L,BLANK "DATA",160.16,3,"FIELD",200,0) 802^1^802^Last Type of Follow-up "DATA",160.16,3,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,3,"FIELD",200,2) BLANK "DATA",160.16,3,"FIELD",200,3) L,BLANK "DATA",160.16,3,"FIELD",201,0) 803^1^803^Next Follow-up Method "DATA",160.16,3,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,3,"FIELD",201,2) BLANK "DATA",160.16,3,"FIELD",201,3) L,BLANK "DATA",160.16,3,"FIELD",202,0) 804^20^823^City/Town - Current "DATA",160.16,3,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,3,"FIELD",202,2) BLANK "DATA",160.16,3,"FIELD",202,3) R,BLANK "DATA",160.16,3,"FIELD",203,0) 824^2^825^State - Current "DATA",160.16,3,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,3,"FIELD",203,2) BLANK "DATA",160.16,3,"FIELD",203,3) R,BLANK "DATA",160.16,3,"FIELD",204,0) 826^9^834^Postal Code "DATA",160.16,3,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,3,"FIELD",204,2) BLANK "DATA",160.16,3,"FIELD",204,3) R,BLANK "DATA",160.16,3,"FIELD",205,0) 835^2^836^Reserved "DATA",160.16,3,"FIELD",205,1) S ACDANS="" "DATA",160.16,3,"FIELD",205,2) BLANK "DATA",160.16,3,"FIELD",205,3) L,BLANK "DATA",160.16,3,"FIELD",206,0) 837^1^837^Unusual Follow-up Method "DATA",160.16,3,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,3,"FIELD",206,2) BLANK "DATA",160.16,3,"FIELD",206,3) L,BLANK "DATA",160.16,3,"FIELD",207,0) 838^8^845^Date of First Recurrence "DATA",160.16,3,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",207,2) ZERO "DATA",160.16,3,"FIELD",207,3) L,ZERO "DATA",160.16,3,"FIELD",208,0) 846^3^848^Site of First Recurrence "DATA",160.16,3,"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,3,"FIELD",208,2) BLANK "DATA",160.16,3,"FIELD",208,3) L,BLANK "DATA",160.16,3,"FIELD",209,0) 849^2^850^Type of First Recurrence "DATA",160.16,3,"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,3,"FIELD",209,2) ZERO "DATA",160.16,3,"FIELD",209,3) L,ZERO "DATA",160.16,3,"FIELD",210,0) 851^2^852^Other Type of First Recurrence "DATA",160.16,3,"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,3,"FIELD",210,2) BLANK "DATA",160.16,3,"FIELD",210,3) L,BLANK "DATA",160.16,3,"FIELD",211,0) 853^3^855^County - Current "DATA",160.16,3,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,3,"FIELD",211,2) BLANK "DATA",160.16,3,"FIELD",211,3) L,BLANK "DATA",160.16,3,"FIELD",212,0) 856^27^882^Reserved "DATA",160.16,3,"FIELD",212,1) S ACDANS="" "DATA",160.16,3,"FIELD",212,2) BLANK "DATA",160.16,3,"FIELD",212,3) L,BLANK "DATA",160.16,3,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,3,"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") "DATA",160.16,3,"FIELD",213,2) ZERO "DATA",160.16,3,"FIELD",213,3) L,ZERO "DATA",160.16,3,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,3,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,3,"FIELD",214,2) ZERO "DATA",160.16,3,"FIELD",214,3) L,ZERO "DATA",160.16,3,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,3,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,3,"FIELD",215,2) BLANK "DATA",160.16,3,"FIELD",215,3) L,BLANK "DATA",160.16,3,"FIELD",216,0) 889^3^891^Place of death "DATA",160.16,3,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,3,"FIELD",216,2) BLANK "DATA",160.16,3,"FIELD",216,3) L,BLANK "DATA",160.16,3,"FIELD",217,0) 892^10^901^Reserved "DATA",160.16,3,"FIELD",217,1) S ACDANS="" "DATA",160.16,3,"FIELD",217,2) BLANK "DATA",160.16,3,"FIELD",217,3) L,BLANK "DATA",160.16,3,"FIELD",218,0) 902^4^905^Site (1973-91) "DATA",160.16,3,"FIELD",218,1) S ACDANS="" "DATA",160.16,3,"FIELD",218,2) BLANK "DATA",160.16,3,"FIELD",218,3) L,BLANK "DATA",160.16,3,"FIELD",219,0) 906^6^911^Morph. (1973-91) "DATA",160.16,3,"FIELD",219,1) S ACDANS="" "DATA",160.16,3,"FIELD",219,2) BLANK "DATA",160.16,3,"FIELD",219,3) L,BLANK "DATA",160.16,3,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,3,"FIELD",220,1) S ACDANS=4 "DATA",160.16,3,"FIELD",220,2) BLANK "DATA",160.16,3,"FIELD",220,3) L,BLANK "DATA",160.16,3,"FIELD",221,0) 913^1^913^Over-Ride Age/Site "DATA",160.16,3,"FIELD",221,1) S ACDANS="" "DATA",160.16,3,"FIELD",221,2) BLANK "DATA",160.16,3,"FIELD",221,3) L,BLANK "DATA",160.16,3,"FIELD",222,0) 914^1^914^Over-Ride SeqNo/DxConf "DATA",160.16,3,"FIELD",222,1) S ACDANS="" "DATA",160.16,3,"FIELD",222,2) BLANK "DATA",160.16,3,"FIELD",222,3) L,BLANK "DATA",160.16,3,"FIELD",223,0) 915^1^915^Over-Ride Site/Lat/SeqNo "DATA",160.16,3,"FIELD",223,1) S ACDANS="" "DATA",160.16,3,"FIELD",223,2) BLANK "DATA",160.16,3,"FIELD",223,3) L,BLANK "DATA",160.16,3,"FIELD",224,0) 916^1^916^Over-Ride Surg./DxConf "DATA",160.16,3,"FIELD",224,1) S ACDANS="" "DATA",160.16,3,"FIELD",224,2) BLANK "DATA",160.16,3,"FIELD",224,3) L,BLANK "DATA",160.16,3,"FIELD",225,0) 917^1^917^Over-Ride Site/Type "DATA",160.16,3,"FIELD",225,1) S ACDANS="" "DATA",160.16,3,"FIELD",225,2) BLANK "DATA",160.16,3,"FIELD",225,3) L,BLANK "DATA",160.16,3,"FIELD",226,0) 918^1^918^Over-Ride Histology "DATA",160.16,3,"FIELD",226,1) S ACDANS="" "DATA",160.16,3,"FIELD",226,2) BLANK "DATA",160.16,3,"FIELD",226,3) L,BLANK "DATA",160.16,3,"FIELD",227,0) 919^1^919^Over-Ride Report Source "DATA",160.16,3,"FIELD",227,1) S ACDANS="" "DATA",160.16,3,"FIELD",227,2) BLANK "DATA",160.16,3,"FIELD",227,3) L,BLANK "DATA",160.16,3,"FIELD",228,0) 920^1^920^Over-Ride Ill-Defined Site "DATA",160.16,3,"FIELD",228,1) S ACDANS="" "DATA",160.16,3,"FIELD",228,2) BLANK "DATA",160.16,3,"FIELD",228,3) L,BLANK "DATA",160.16,3,"FIELD",229,0) 921^1^921^Over-Ride Leuk, Lymphoma "DATA",160.16,3,"FIELD",229,1) S ACDANS="" "DATA",160.16,3,"FIELD",229,2) BLANK "DATA",160.16,3,"FIELD",229,3) L,BLANK "DATA",160.16,3,"FIELD",230,0) 922^30^951^Reserved "DATA",160.16,3,"FIELD",230,1) S ACDANS="" "DATA",160.16,3,"FIELD",230,2) BLANK "DATA",160.16,3,"FIELD",230,3) L,BLANK "DATA",160.16,3,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,3,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,3,"FIELD",231,2) BLANK "DATA",160.16,3,"FIELD",231,3) L,BLANK "DATA",160.16,3,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,3,"FIELD",232,1) S ACDANS="" "DATA",160.16,3,"FIELD",232,2) BLANK "DATA",160.16,3,"FIELD",232,3) L,BLANK "DATA",160.16,3,"FIELD",233,0) 968^8^975^Date Case Transmitted "DATA",160.16,3,"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,3,"FIELD",233,2) BLANK "DATA",160.16,3,"FIELD",233,3) L,ZERO "DATA",160.16,3,"FIELD",234,0) 976^1^976^SEER Coding Sys-Current "DATA",160.16,3,"FIELD",234,1) S ACDANS=4 "DATA",160.16,3,"FIELD",234,2) BLANK "DATA",160.16,3,"FIELD",234,3) L,BLANK "DATA",160.16,3,"FIELD",235,0) 977^1^977^SEER Coding Sys-Original "DATA",160.16,3,"FIELD",235,1) S ACDANS=4 "DATA",160.16,3,"FIELD",235,2) BLANK "DATA",160.16,3,"FIELD",235,3) L,BLANK "DATA",160.16,3,"FIELD",236,0) 978^1^978^COC Coding System Current "DATA",160.16,3,"FIELD",236,1) S ACDANS=6 "DATA",160.16,3,"FIELD",236,2) BLANK "DATA",160.16,3,"FIELD",236,3) L,BLANK "DATA",160.16,3,"FIELD",237,0) 979^1^979^COC Coding System Original "DATA",160.16,3,"FIELD",237,1) S ACDANS=6 "DATA",160.16,3,"FIELD",237,2) BLANK "DATA",160.16,3,"FIELD",237,3) L,BLANK "DATA",160.16,3,"FIELD",238,0) 980^1^980^Subseq Report for Primary "DATA",160.16,3,"FIELD",238,1) S ACDANS="" "DATA",160.16,3,"FIELD",238,2) BLANK "DATA",160.16,3,"FIELD",238,3) L,BLANK "DATA",160.16,3,"FIELD",239,0) 981^10^990^Vender Name "DATA",160.16,3,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,3,"FIELD",239,2) BLANK "DATA",160.16,3,"FIELD",239,3) L,BLANK "DATA",160.16,3,"FIELD",240,0) 991^1^991^SEER Type of Follow-up "DATA",160.16,3,"FIELD",240,1) S ACDANS="" "DATA",160.16,3,"FIELD",240,2) BLANK "DATA",160.16,3,"FIELD",240,3) L,BLANK "DATA",160.16,3,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,3,"FIELD",241,1) S ACDANS="" "DATA",160.16,3,"FIELD",241,2) BLANK "DATA",160.16,3,"FIELD",241,3) L,BLANK "DATA",160.16,3,"FIELD",242,0) 994^2^995^Diagnostic Procedures '73-'87 "DATA",160.16,3,"FIELD",242,1) S ACDANS="" "DATA",160.16,3,"FIELD",242,2) BLANK "DATA",160.16,3,"FIELD",242,3) L,BLANK "DATA",160.16,3,"FIELD",243,0) 996^30^1025^Reserved "DATA",160.16,3,"FIELD",243,1) S ACDANS="" "DATA",160.16,3,"FIELD",243,2) BLANK "DATA",160.16,3,"FIELD",243,3) L,BLANK "DATA",160.16,3,"FIELD",338,0) 1524^2^1525^Linkage Name Sum "DATA",160.16,3,"FIELD",338,1) S ACDANS=$$LINK~ONCACDU2(ACD160) "DATA",160.16,3,"FIELD",338,2) ZERO "DATA",160.16,3,"FIELD",338,3) L,ZERO "DATA",160.16,3,"FIELD",339,0) 1026^1^1026^Agent Orange Exposure "DATA",160.16,3,"FIELD",339,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,48,"I")) "DATA",160.16,3,"FIELD",339,2) BLANK "DATA",160.16,3,"FIELD",339,3) L,BLANK "DATA",160.16,3,"FIELD",340,0) 1027^1^1027^Ionization Radiation "DATA",160.16,3,"FIELD",340,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,50,"I")) "DATA",160.16,3,"FIELD",340,2) BLANK "DATA",160.16,3,"FIELD",340,3) L,BLANK "DATA",160.16,3,"FIELD",341,0) 1028^1^1028^Persian Gulf Veteran "DATA",160.16,3,"FIELD",341,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,51,"I")) "DATA",160.16,3,"FIELD",341,2) BLANK "DATA",160.16,3,"FIELD",341,3) L,BLANK "DATA",160.16,3,"FIELD",342,0) 1029^1^1029^Chemical Exposure "DATA",160.16,3,"FIELD",342,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,52,"I")) "DATA",160.16,3,"FIELD",342,2) BLANK "DATA",160.16,3,"FIELD",342,3) L,BLANK "DATA",160.16,3,"FIELD",343,0) 1030^1^1030^Asbestos Exposure "DATA",160.16,3,"FIELD",343,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,61,"I")) "DATA",160.16,3,"FIELD",343,2) BLANK "DATA",160.16,3,"FIELD",343,3) L,BLANK "DATA",160.16,3,"FIELD",344,0) 1031^493^1523^PCE Position (BLANK) "DATA",160.16,3,"FIELD",344,1) S ACDANS="" "DATA",160.16,3,"FIELD",344,2) BLANK "DATA",160.16,3,"FIELD",344,3) L,BLANK "DATA",160.16,3,"FIELD",345,0) 1600^50^1649^Name-Spouse "DATA",160.16,3,"FIELD",345,1) S ACDANS="" "DATA",160.16,3,"FIELD",345,2) BLANK "DATA",160.16,3,"FIELD",345,3) R,BLANK "DATA",160.16,3,"FIELD",346,0) 1650^11^1660^Medical Record NBR "DATA",160.16,3,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,3,"FIELD",346,2) BLANK "DATA",160.16,3,"FIELD",346,3) L,BLANK "DATA",160.16,3,"FIELD",347,0) 1661^2^1662^Military Suffix "DATA",160.16,3,"FIELD",347,1) S ACDANS="" "DATA",160.16,3,"FIELD",347,2) BLANK "DATA",160.16,3,"FIELD",347,3) L,ZERO "DATA",160.16,3,"FIELD",348,0) 1663^9^1671^Social Security NBR "DATA",160.16,3,"FIELD",348,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,3,"FIELD",348,2) NINE "DATA",160.16,3,"FIELD",348,3) L,BLANK "DATA",160.16,3,"FIELD",349,0) 1672^25^1696^Address at DX-Street "DATA",160.16,3,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,3,"FIELD",349,2) BLANK "DATA",160.16,3,"FIELD",349,3) R,BLANK "DATA",160.16,3,"FIELD",351,0) 1727^25^1751^Address-Current Street "DATA",160.16,3,"FIELD",351,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,3,"FIELD",351,2) BLANK "DATA",160.16,3,"FIELD",351,3) R,BLANK "DATA",160.16,3,"FIELD",352,0) 1752^10^1761^Telephone Number "DATA",160.16,3,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,3,"FIELD",352,2) ZERO "DATA",160.16,3,"FIELD",352,3) R,BLANK "DATA",160.16,3,"FIELD",353,0) 1762^2^1763^DC State "DATA",160.16,3,"FIELD",353,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,3,"FIELD",353,2) BLANK "DATA",160.16,3,"FIELD",353,3) L,BLANK "DATA",160.16,3,"FIELD",354,0) 1764^6^1769^DC State File NBR "DATA",160.16,3,"FIELD",354,1) S ACDANS="" "DATA",160.16,3,"FIELD",354,2) BLANK "DATA",160.16,3,"FIELD",354,3) L,BLANK "DATA",160.16,3,"FIELD",355,0) 1770^15^1784^Maiden-Name "DATA",160.16,3,"FIELD",355,1) S ACDANS="" "DATA",160.16,3,"FIELD",355,2) BLANK "DATA",160.16,3,"FIELD",355,3) R,BLANK "DATA",160.16,3,"FIELD",356,0) 1785^28^1812^Reserved "DATA",160.16,3,"FIELD",356,1) S ACDANS="" "DATA",160.16,3,"FIELD",356,2) BLANK "DATA",160.16,3,"FIELD",356,3) L,BLANK "DATA",160.16,3,"FIELD",357,0) 1813^6^1818^Institution Referred from "DATA",160.16,3,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,3,"FIELD",357,2) BLANK "DATA",160.16,3,"FIELD",357,3) L,BLANK "DATA",160.16,3,"FIELD",358,0) 1819^6^1824^Institution Referred to "DATA",160.16,3,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,3,"FIELD",358,2) BLANK "DATA",160.16,3,"FIELD",358,3) L,BLANK "DATA",160.16,3,"FIELD",359,0) 1825^6^1830^Last Follow up Hospital "DATA",160.16,3,"FIELD",359,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,3,"FIELD",359,2) BLANK "DATA",160.16,3,"FIELD",359,3) L,ZERO "DATA",160.16,3,"FIELD",360,0) 1831^6^1836^Following Registry "DATA",160.16,3,"FIELD",360,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,3,"FIELD",360,2) BLANK "DATA",160.16,3,"FIELD",360,3) L,ZERO "DATA",160.16,3,"FIELD",361,0) 1837^10^1846^Reserved "DATA",160.16,3,"FIELD",361,1) S ACDANS="" "DATA",160.16,3,"FIELD",361,2) BLANK "DATA",160.16,3,"FIELD",361,3) L,BLANK "DATA",160.16,3,"FIELD",362,0) 1847^8^1854^Managing Physician "DATA",160.16,3,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,3,"FIELD",362,2) NINE "DATA",160.16,3,"FIELD",362,3) L,BLANK "DATA",160.16,3,"FIELD",363,0) 1855^8^1862^Following Physician "DATA",160.16,3,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,3,"FIELD",363,2) BLANK "DATA",160.16,3,"FIELD",363,3) L,BLANK "DATA",160.16,3,"FIELD",364,0) 1863^8^1870^Primary Surgeon "DATA",160.16,3,"FIELD",364,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,3,"FIELD",364,2) ZERO "DATA",160.16,3,"FIELD",364,3) L,ZERO "DATA",160.16,3,"FIELD",365,0) 1871^8^1878^Other Physician 3 "DATA",160.16,3,"FIELD",365,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,3,"FIELD",365,2) ZERO "DATA",160.16,3,"FIELD",365,3) L,ZERO "DATA",160.16,3,"FIELD",366,0) 1879^8^1886^Other Physician 4 "DATA",160.16,3,"FIELD",366,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,3,"FIELD",366,2) ZERO "DATA",160.16,3,"FIELD",366,3) L,ZERO "DATA",160.16,3,"FIELD",367,0) 1887^30^1916^Reserved "DATA",160.16,3,"FIELD",367,1) S ACDANS="" "DATA",160.16,3,"FIELD",367,2) BLANK "DATA",160.16,3,"FIELD",367,3) L,BLANK "DATA",160.16,3,"FIELD",368,0) 1917^200^2116^Text-DX Proc-PE "DATA",160.16,3,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,3,"FIELD",368,2) BLANK "DATA",160.16,3,"FIELD",368,3) R,BLANK "DATA",160.16,3,"FIELD",369,0) 2117^250^2366^Text-DX Proc-XRAY "DATA",160.16,3,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,3,"FIELD",369,2) BLANK "DATA",160.16,3,"FIELD",369,3) R,BLANK "DATA",160.16,3,"FIELD",370,0) 2367^250^2616^Text-DX Proc-Scopes "DATA",160.16,3,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,3,"FIELD",370,2) BLANK "DATA",160.16,3,"FIELD",370,3) R,BLANK "DATA",160.16,3,"FIELD",371,0) 2617^250^2866^Text-DX Proc-Lab "DATA",160.16,3,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,3,"FIELD",371,2) BLANK "DATA",160.16,3,"FIELD",371,3) R,BLANK "DATA",160.16,3,"FIELD",372,0) 2867^250^3116^Text-DX Proc-OPS "DATA",160.16,3,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,3,"FIELD",372,2) BLANK "DATA",160.16,3,"FIELD",372,3) R,BLANK "DATA",160.16,3,"FIELD",373,0) 3117^250^3366^Text-DX Proc-PATH "DATA",160.16,3,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,3,"FIELD",373,2) BLANK "DATA",160.16,3,"FIELD",373,3) R,BLANK "DATA",160.16,3,"FIELD",374,0) 3367^40^3406^Text-Primary Site "DATA",160.16,3,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,3,"FIELD",374,2) BLANK "DATA",160.16,3,"FIELD",374,3) R,BLANK "DATA",160.16,3,"FIELD",375,0) 3407^40^3446^Text-Histology "DATA",160.16,3,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,3,"FIELD",375,2) BLANK "DATA",160.16,3,"FIELD",375,3) R,BLANK "DATA",160.16,3,"FIELD",376,0) 3447^300^3746^Text-Staging "DATA",160.16,3,"FIELD",376,1) S ACDANS="" "DATA",160.16,3,"FIELD",376,2) BLANK "DATA",160.16,3,"FIELD",376,3) R,BLANK "DATA",160.16,3,"FIELD",377,0) 3747^150^3896^Text-RX-Surgery "DATA",160.16,3,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,3,"FIELD",377,2) BLANK "DATA",160.16,3,"FIELD",377,3) R,BLANK "DATA",160.16,3,"FIELD",378,0) 3897^150^4046^Text-RX-RAD(Beam) "DATA",160.16,3,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,3,"FIELD",378,2) BLANK "DATA",160.16,3,"FIELD",378,3) R,BLANK "DATA",160.16,3,"FIELD",379,0) 4047^150^4196^Text-RX-RAD-Other "DATA",160.16,3,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,3,"FIELD",379,2) BLANK "DATA",160.16,3,"FIELD",379,3) R,BLANK "DATA",160.16,3,"FIELD",380,0) 4197^200^4396^Text-RX-Chemo "DATA",160.16,3,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,3,"FIELD",380,2) BLANK "DATA",160.16,3,"FIELD",380,3) R,BLANK "DATA",160.16,3,"FIELD",381,0) 4397^200^4596^Text-RX-Hormone "DATA",160.16,3,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,3,"FIELD",381,2) BLANK "DATA",160.16,3,"FIELD",381,3) R,BLANK "DATA",160.16,3,"FIELD",382,0) 4597^100^4696^Text-RX-Immunotherapy "DATA",160.16,3,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,3,"FIELD",382,2) BLANK "DATA",160.16,3,"FIELD",382,3) R,BLANK "DATA",160.16,3,"FIELD",383,0) 4697^100^4796^Text-RX-Other "DATA",160.16,3,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,3,"FIELD",383,2) BLANK "DATA",160.16,3,"FIELD",383,3) R,BLANK "DATA",160.16,3,"FIELD",384,0) 4797^350^5146^Text-Remarks "DATA",160.16,3,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,3,"FIELD",384,2) BLANK "DATA",160.16,3,"FIELD",384,3) R,BLANK "DATA",160.16,3,"FIELD",385,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,3,"FIELD",385,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,3,"FIELD",385,2) BLANK "DATA",160.16,3,"FIELD",385,3) R,BLANK "DATA",160.16,3,"FIELD",386,0) 5197^770^5966^Reserved "DATA",160.16,3,"FIELD",386,1) S ACDANS="" "DATA",160.16,3,"FIELD",386,2) BLANK "DATA",160.16,3,"FIELD",386,3) L,BLANK "DATA",160.16,3,"FIELD",387,0) 1697^30^1726^Reserved for Expansion "DATA",160.16,3,"FIELD",387,1) S ACDANS="" "DATA",160.16,3,"FIELD",387,2) BLANK "DATA",160.16,3,"FIELD",387,3) L,BLANK "DATA",160.16,3,"FIELD",1000,0) 1526^25^1550^Name-Last "DATA",160.16,3,"FIELD",1000,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,3,"FIELD",1000,2) BLANK "DATA",160.16,3,"FIELD",1000,3) R,BLANK "DATA",160.16,3,"FIELD",1001,0) 1551^14^1564^Name-First "DATA",160.16,3,"FIELD",1001,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,3,"FIELD",1001,2) BLANK "DATA",160.16,3,"FIELD",1001,3) R,BLANK "DATA",160.16,3,"FIELD",1002,0) 1565^14^1578^Name-Middle "DATA",160.16,3,"FIELD",1002,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,3,"FIELD",1002,2) BLANK "DATA",160.16,3,"FIELD",1002,3) R,BLANK "DATA",160.16,3,"FIELD",1003,0) 1579^3^1581^Name-Prefix "DATA",160.16,3,"FIELD",1003,1) S ACDANS="" "DATA",160.16,3,"FIELD",1003,2) BLANK "DATA",160.16,3,"FIELD",1003,3) R,BLANK "DATA",160.16,3,"FIELD",1004,0) 1582^3^1584^Name-Suffix "DATA",160.16,3,"FIELD",1004,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,3,"FIELD",1004,2) BLANK "DATA",160.16,3,"FIELD",1004,3) R,BLANK "DATA",160.16,3,"FIELD",1005,0) 1585^15^1599^Name-Alias "DATA",160.16,3,"FIELD",1005,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,3,"FIELD",1005,2) BLANK "DATA",160.16,3,"FIELD",1005,3) R,BLANK "DATA",160.16,3,"RULES",0) ^^4^4^2990310^^^^ "DATA",160.16,3,"RULES",1,0) S VALID=1 "DATA",160.16,3,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,3,"RULES",3,0) S JUMP=0 "DATA",160.16,3,"RULES",4,0) K SCREEN "DATA",160.16,4,0) NAACCR STATE EXTRACT V6.0 "DATA",160.16,4,"FIELD",0) ^160.161I^285^429 "DATA",160.16,4,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,4,"FIELD",1,1) S ACDANS="A" "DATA",160.16,4,"FIELD",1,2) BLANK "DATA",160.16,4,"FIELD",1,3) L,BLANK "DATA",160.16,4,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,4,"FIELD",2,1) S ACDANS="" "DATA",160.16,4,"FIELD",2,2) ZERO "DATA",160.16,4,"FIELD",2,3) L,ZERO "DATA",160.16,4,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,4,"FIELD",3,1) S ACDANS=3 "DATA",160.16,4,"FIELD",3,2) BLANK "DATA",160.16,4,"FIELD",3,3) L,BLANK "DATA",160.16,4,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,4,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,4,"FIELD",4,2) BLANK "DATA",160.16,4,"FIELD",4,3) L,BLANK "DATA",160.16,4,"FIELD",5,0) 19^1^19^NAACCR Record Number "DATA",160.16,4,"FIELD",5,1) S ACDANS=6 "DATA",160.16,4,"FIELD",5,2) BLANK "DATA",160.16,4,"FIELD",5,3) L,BLANK "DATA",160.16,4,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,4,"FIELD",6,1) S ACDANS="" "DATA",160.16,4,"FIELD",6,2) BLANK "DATA",160.16,4,"FIELD",6,3) L,BLANK "DATA",160.16,4,"FIELD",7,0) 22^20^41^Add at Dx City "DATA",160.16,4,"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,4,"FIELD",7,2) BLANK "DATA",160.16,4,"FIELD",7,3) R,BLANK "DATA",160.16,4,"FIELD",8,0) 42^2^43^Add at Dx State "DATA",160.16,4,"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,4,"FIELD",8,2) BLANK "DATA",160.16,4,"FIELD",8,3) L,BLANK "DATA",160.16,4,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,4,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",9,2) ZERO "DATA",160.16,4,"FIELD",9,3) L,ZERO "DATA",160.16,4,"FIELD",10,0) 47^9^55^Add at DX ZIP "DATA",160.16,4,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,4,"FIELD",10,2) BLANK "DATA",160.16,4,"FIELD",10,3) R,BLANK "DATA",160.16,4,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,4,"FIELD",11,1) S ACDANS="" "DATA",160.16,4,"FIELD",11,2) BLANK "DATA",160.16,4,"FIELD",11,3) L,BLANK "DATA",160.16,4,"FIELD",12,0) 62^1^62^Census Tract Coding System "DATA",160.16,4,"FIELD",12,1) S ACDANS="" "DATA",160.16,4,"FIELD",12,2) BLANK "DATA",160.16,4,"FIELD",12,3) L,BLANK "DATA",160.16,4,"FIELD",13,0) 63^6^68^Census Tract- Alternate "DATA",160.16,4,"FIELD",13,1) S ACDANS="" "DATA",160.16,4,"FIELD",13,2) BLANK "DATA",160.16,4,"FIELD",13,3) L,BLANK "DATA",160.16,4,"FIELD",14,0) 69^1^69^Census Tract Coding System-Alt. "DATA",160.16,4,"FIELD",14,1) S ACDANS="" "DATA",160.16,4,"FIELD",14,2) BLANK "DATA",160.16,4,"FIELD",14,3) L,BLANK "DATA",160.16,4,"FIELD",15,0) 70^1^70^Marital Status "DATA",160.16,4,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,4,"FIELD",15,2) BLANK "DATA",160.16,4,"FIELD",15,3) L,BLANK "DATA",160.16,4,"FIELD",16,0) 71^2^72^Race "DATA",160.16,4,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,4,"FIELD",16,2) BLANK "DATA",160.16,4,"FIELD",16,3) L,ZERO "DATA",160.16,4,"FIELD",17,0) 73^1^73^Race Coding-Current "DATA",160.16,4,"FIELD",17,1) S ACDANS="5" "DATA",160.16,4,"FIELD",17,2) BLANK "DATA",160.16,4,"FIELD",17,3) L,BLANK "DATA",160.16,4,"FIELD",18,0) 74^1^74^Race Coding-Original "DATA",160.16,4,"FIELD",18,1) S ACDANS="5" "DATA",160.16,4,"FIELD",18,2) BLANK "DATA",160.16,4,"FIELD",18,3) L,BLANK "DATA",160.16,4,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,4,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,4,"FIELD",19,2) BLANK "DATA",160.16,4,"FIELD",19,3) L,BLANK "DATA",160.16,4,"FIELD",20,0) 76^1^76^Computer-Derived Ethnicity "DATA",160.16,4,"FIELD",20,1) S ACDANS="" "DATA",160.16,4,"FIELD",20,2) BLANK "DATA",160.16,4,"FIELD",20,3) L,BLANK "DATA",160.16,4,"FIELD",21,0) 77^1^77^Computer-Derived Ethnicity Src "DATA",160.16,4,"FIELD",21,1) S ACDANS="" "DATA",160.16,4,"FIELD",21,2) BLANK "DATA",160.16,4,"FIELD",21,3) L,BLANK "DATA",160.16,4,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,4,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,4,"FIELD",22,2) BLANK "DATA",160.16,4,"FIELD",22,3) L,BLANK "DATA",160.16,4,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,4,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",23,2) BLANK "DATA",160.16,4,"FIELD",23,3) L,ZERO "DATA",160.16,4,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,4,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",24,2) NINE "DATA",160.16,4,"FIELD",24,3) L,ZERO "DATA",160.16,4,"FIELD",25,0) 90^3^92^Birth Place "DATA",160.16,4,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,4,"FIELD",25,2) NINE "DATA",160.16,4,"FIELD",25,3) L,ZERO "DATA",160.16,4,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,4,"FIELD",26,1) S ACDANS=99 "DATA",160.16,4,"FIELD",26,2) NINE "DATA",160.16,4,"FIELD",26,3) L,ZERO "DATA",160.16,4,"FIELD",27,0) 95^3^97^Occupation (Census) "DATA",160.16,4,"FIELD",27,1) S ACDANS="" "DATA",160.16,4,"FIELD",27,2) BLANK "DATA",160.16,4,"FIELD",27,3) L,BLANK "DATA",160.16,4,"FIELD",28,0) 98^3^100^Industry (Census) "DATA",160.16,4,"FIELD",28,1) S ACDANS="" "DATA",160.16,4,"FIELD",28,2) BLANK "DATA",160.16,4,"FIELD",28,3) L,BLANK "DATA",160.16,4,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,4,"FIELD",29,1) S ACDANS="" "DATA",160.16,4,"FIELD",29,2) BLANK "DATA",160.16,4,"FIELD",29,3) L,BLANK "DATA",160.16,4,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,4,"FIELD",30,1) S ACDANS="" "DATA",160.16,4,"FIELD",30,2) BLANK "DATA",160.16,4,"FIELD",30,3) L,BLANK "DATA",160.16,4,"FIELD",31,0) 103^40^142^Usual Occupation (Text) "DATA",160.16,4,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,4,"FIELD",31,2) BLANK "DATA",160.16,4,"FIELD",31,3) R,BLANK "DATA",160.16,4,"FIELD",32,0) 143^40^182^Usual Industry (Text) "DATA",160.16,4,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,4,"FIELD",32,2) BLANK "DATA",160.16,4,"FIELD",32,3) R,BLANK "DATA",160.16,4,"FIELD",33,0) 183^1^183^Occup/Ind. Coding System "DATA",160.16,4,"FIELD",33,1) S ACDANS="" "DATA",160.16,4,"FIELD",33,2) BLANK "DATA",160.16,4,"FIELD",33,3) L,BLANK "DATA",160.16,4,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,4,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",34,2) BLANK "DATA",160.16,4,"FIELD",34,3) L,BLANK "DATA",160.16,4,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,4,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",35,2) BLANK "DATA",160.16,4,"FIELD",35,3) L,BLANK "DATA",160.16,4,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,4,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") S:ACDANS'="" ACDANS=$S(ACDANS="Y":1,ACDANS="N":0,1:"") "DATA",160.16,4,"FIELD",36,2) BLANK "DATA",160.16,4,"FIELD",36,3) L,BLANK "DATA",160.16,4,"FIELD",37,0) 187^1^187^Census Tract Block Number "DATA",160.16,4,"FIELD",37,1) S ACDANS="" "DATA",160.16,4,"FIELD",37,2) BLANK "DATA",160.16,4,"FIELD",37,3) L,BLANK "DATA",160.16,4,"FIELD",38,0) 189^28^216^Reserved "DATA",160.16,4,"FIELD",38,1) S ACDANS="" "DATA",160.16,4,"FIELD",38,2) BLANK "DATA",160.16,4,"FIELD",38,3) L,BLANK "DATA",160.16,4,"FIELD",39,0) 217^2^218^Sequence Number-Central "DATA",160.16,4,"FIELD",39,1) S ACDANS="" "DATA",160.16,4,"FIELD",39,2) BLANK "DATA",160.16,4,"FIELD",39,3) L,BLANK "DATA",160.16,4,"FIELD",40,0) 219^8^226^Date Of Diagnosis "DATA",160.16,4,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",40,2) ZERO "DATA",160.16,4,"FIELD",40,3) L,ZERO "DATA",160.16,4,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,4,"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,4,"FIELD",41,2) ZERO "DATA",160.16,4,"FIELD",41,3) L,ZERO "DATA",160.16,4,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,4,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,4,"FIELD",42,2) BLANK "DATA",160.16,4,"FIELD",42,3) L,BLANK "DATA",160.16,4,"FIELD",43,0) 232^4^235^Histologic Type "DATA",160.16,4,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",43,2) ZERO "DATA",160.16,4,"FIELD",43,3) L,ZERO "DATA",160.16,4,"FIELD",44,0) 236^1^236^Behavior "DATA",160.16,4,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",44,2) ZERO "DATA",160.16,4,"FIELD",44,3) L,ZERO "DATA",160.16,4,"FIELD",45,0) 237^1^237^Grade or Differentiation "DATA",160.16,4,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,4,"FIELD",45,2) ZERO "DATA",160.16,4,"FIELD",45,3) L,ZERO "DATA",160.16,4,"FIELD",46,0) 238^1^238^Site Coding System-Cur.. "DATA",160.16,4,"FIELD",46,1) S ACDANS=4 "DATA",160.16,4,"FIELD",46,2) ZERO "DATA",160.16,4,"FIELD",46,3) L,ZERO "DATA",160.16,4,"FIELD",47,0) 239^1^239^Site Coding System-Org. "DATA",160.16,4,"FIELD",47,1) S ACDANS=4 "DATA",160.16,4,"FIELD",47,2) ZERO "DATA",160.16,4,"FIELD",47,3) L,ZERO "DATA",160.16,4,"FIELD",48,0) 240^1^240^Morph. Coding System-Cur "DATA",160.16,4,"FIELD",48,1) S ACDANS=5 "DATA",160.16,4,"FIELD",48,2) ZERO "DATA",160.16,4,"FIELD",48,3) L,ZERO "DATA",160.16,4,"FIELD",49,0) 241^1^241^Morph. Coding System-Org. "DATA",160.16,4,"FIELD",49,1) S ACDANS=5 "DATA",160.16,4,"FIELD",49,2) ZERO "DATA",160.16,4,"FIELD",49,3) L,ZERO "DATA",160.16,4,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,4,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,4,"FIELD",50,2) NINE "DATA",160.16,4,"FIELD",50,3) L,ZERO "DATA",160.16,4,"FIELD",51,0) 243^1^243^Type of reporting Source "DATA",160.16,4,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,4,"FIELD",51,2) BLANK "DATA",160.16,4,"FIELD",51,3) L,BLANK "DATA",160.16,4,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,4,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",52,2) BLANK "DATA",160.16,4,"FIELD",52,3) L,BLANK "DATA",160.16,4,"FIELD",53,0) 252^1^252^Screening Results "DATA",160.16,4,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,4,"FIELD",53,2) BLANK "DATA",160.16,4,"FIELD",53,3) L,BLANK "DATA",160.16,4,"FIELD",54,0) 253^30^282^Reserved "DATA",160.16,4,"FIELD",54,1) S ACDANS="" "DATA",160.16,4,"FIELD",54,2) BLANK "DATA",160.16,4,"FIELD",54,3) L,BLANK "DATA",160.16,4,"FIELD",55,0) 283^6^288^Reporting Hospital "DATA",160.16,4,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,4,"FIELD",55,2) ZERO "DATA",160.16,4,"FIELD",55,3) L,ZERO "DATA",160.16,4,"FIELD",56,0) 289^6^294^Accession Number (Hospital) "DATA",160.16,4,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,4,"FIELD",56,2) ZERO "DATA",160.16,4,"FIELD",56,3) L,ZERO "DATA",160.16,4,"FIELD",57,0) 295^2^296^Sequence Number-Hospital "DATA",160.16,4,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,4,"FIELD",57,2) ZERO "DATA",160.16,4,"FIELD",57,3) L,ZERO "DATA",160.16,4,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,4,"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,4,"FIELD",58,2) BLANK "DATA",160.16,4,"FIELD",58,3) L,BLANK "DATA",160.16,4,"FIELD",59,0) 300^8^307^Date of Admission/First Contact "DATA",160.16,4,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",59,2) ZERO "DATA",160.16,4,"FIELD",59,3) L,ZERO "DATA",160.16,4,"FIELD",60,0) 308^8^315^Date of Inpatient Admission (COC) "DATA",160.16,4,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",60,2) ZERO "DATA",160.16,4,"FIELD",60,3) L,ZERO "DATA",160.16,4,"FIELD",61,0) 316^8^323^Date of Inpatient Discharge "DATA",160.16,4,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",61,2) ZERO "DATA",160.16,4,"FIELD",61,3) L,ZERO "DATA",160.16,4,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,4,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,4,"FIELD",62,2) ZERO "DATA",160.16,4,"FIELD",62,3) L,ZERO "DATA",160.16,4,"FIELD",63,0) 325^4^328^Year 1st Seen for Primary (Acc Yr.) "DATA",160.16,4,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,4,"FIELD",63,2) ZERO "DATA",160.16,4,"FIELD",63,3) L,ZERO "DATA",160.16,4,"FIELD",64,0) 329^2^330^Primary Payer At Diagnosis "DATA",160.16,4,"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,4,"FIELD",64,2) BLANK "DATA",160.16,4,"FIELD",64,3) L,BLANK "DATA",160.16,4,"FIELD",65,0) 331^1^331^In/Out Patient Status "DATA",160.16,4,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,4,"FIELD",65,2) BLANK "DATA",160.16,4,"FIELD",65,3) L,BLANK "DATA",160.16,4,"FIELD",66,0) 332^1^332^Presentation At Cancer Conference "DATA",160.16,4,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,4,"FIELD",66,2) BLANK "DATA",160.16,4,"FIELD",66,3) L,BLANK "DATA",160.16,4,"FIELD",67,0) 333^8^340^Date of Conference "DATA",160.16,4,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",67,2) BLANK "DATA",160.16,4,"FIELD",67,3) L,BLANK "DATA",160.16,4,"FIELD",68,0) 341^2^342^RX Hospital-CA Directed Surgery "DATA",160.16,4,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,4,"FIELD",68,2) NINE "DATA",160.16,4,"FIELD",68,3) L,ZERO "DATA",160.16,4,"FIELD",69,0) 347^4^350^Reserved "DATA",160.16,4,"FIELD",69,1) S ACDANS="" "DATA",160.16,4,"FIELD",69,2) BLANK "DATA",160.16,4,"FIELD",69,3) L,BLANK "DATA",160.16,4,"FIELD",70,0) 351^1^351^RX Hosp. Radiation "DATA",160.16,4,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,4,"FIELD",70,2) BLANK "DATA",160.16,4,"FIELD",70,3) L,ZERO "DATA",160.16,4,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,4,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,4,"FIELD",71,2) BLANK "DATA",160.16,4,"FIELD",71,3) L,ZERO "DATA",160.16,4,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,4,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,4,"FIELD",72,2) BLANK "DATA",160.16,4,"FIELD",72,3) L,ZERO "DATA",160.16,4,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,4,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,4,"FIELD",73,2) BLANK "DATA",160.16,4,"FIELD",73,3) L,ZERO "DATA",160.16,4,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,4,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,4,"FIELD",74,2) BLANK "DATA",160.16,4,"FIELD",74,3) L,ZERO "DATA",160.16,4,"FIELD",75,0) 356^2^357^RX Hosp.-Non CA Directed Surgery "DATA",160.16,4,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,4,"FIELD",75,2) BLANK "DATA",160.16,4,"FIELD",75,3) L,ZERO "DATA",160.16,4,"FIELD",76,0) 362^26^387^Reserved "DATA",160.16,4,"FIELD",76,1) S ACDANS="" "DATA",160.16,4,"FIELD",76,2) BLANK "DATA",160.16,4,"FIELD",76,3) L,BLANK "DATA",160.16,4,"FIELD",77,0) 388^1^388^General Summary Stage "DATA",160.16,4,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,4,"FIELD",77,2) BLANK "DATA",160.16,4,"FIELD",77,3) L,BLANK "DATA",160.16,4,"FIELD",78,0) 389^1^389^Local/Regional/Distant Stage "DATA",160.16,4,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",78,2) BLANK "DATA",160.16,4,"FIELD",78,3) L,BLANK "DATA",160.16,4,"FIELD",79,0) 390^3^392^EOD Tumor Size "DATA",160.16,4,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,4,"FIELD",79,2) BLANK "DATA",160.16,4,"FIELD",79,3) L,ZERO "DATA",160.16,4,"FIELD",80,0) 393^2^394^EOD Extension "DATA",160.16,4,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,4,"FIELD",80,2) BLANK "DATA",160.16,4,"FIELD",80,3) L,BLANK "DATA",160.16,4,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,4,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,4,"FIELD",81,2) BLANK "DATA",160.16,4,"FIELD",81,3) L,ZERO "DATA",160.16,4,"FIELD",82,0) 397^1^397^EOD Lymph Nodes "DATA",160.16,4,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,4,"FIELD",82,2) BLANK "DATA",160.16,4,"FIELD",82,3) L,BLANK "DATA",160.16,4,"FIELD",83,0) 398^2^399^Regional Nodes Pos. "DATA",160.16,4,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,4,"FIELD",83,2) ZERO "DATA",160.16,4,"FIELD",83,3) L,ZERO "DATA",160.16,4,"FIELD",84,0) 400^2^401^Regional Nodes Exam. "DATA",160.16,4,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,4,"FIELD",84,2) ZERO "DATA",160.16,4,"FIELD",84,3) L,ZERO "DATA",160.16,4,"FIELD",85,0) 402^13^414^EOD-old 13 Digit "DATA",160.16,4,"FIELD",85,1) S ACDANS="" "DATA",160.16,4,"FIELD",85,2) BLANK "DATA",160.16,4,"FIELD",85,3) L,BLANK "DATA",160.16,4,"FIELD",86,0) 415^2^416^EOD-old 2 Digit "DATA",160.16,4,"FIELD",86,1) S ACDANS="" "DATA",160.16,4,"FIELD",86,2) BLANK "DATA",160.16,4,"FIELD",86,3) L,BLANK "DATA",160.16,4,"FIELD",87,0) 417^4^420^EOD-old 4 Digit "DATA",160.16,4,"FIELD",87,1) S ACDANS="" "DATA",160.16,4,"FIELD",87,2) BLANK "DATA",160.16,4,"FIELD",87,3) L,BLANK "DATA",160.16,4,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,4,"FIELD",88,1) S ACDANS="1" "DATA",160.16,4,"FIELD",88,2) BLANK "DATA",160.16,4,"FIELD",88,3) L,BLANK "DATA",160.16,4,"FIELD",89,0) 422^2^423^T Code of TNM (Pathologic) "DATA",160.16,4,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,4,"FIELD",89,2) BLANK "DATA",160.16,4,"FIELD",89,3) R,BLANK "DATA",160.16,4,"FIELD",90,0) 424^2^425^N Code of TNM (Pathologic) "DATA",160.16,4,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,4,"FIELD",90,2) BLANK "DATA",160.16,4,"FIELD",90,3) R,BLANK "DATA",160.16,4,"FIELD",91,0) 426^2^427^M Code of TNM (Pathologic) "DATA",160.16,4,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,4,"FIELD",91,2) BLANK "DATA",160.16,4,"FIELD",91,3) R,BLANK "DATA",160.16,4,"FIELD",92,0) 428^2^429^Pathologic Stage Group "DATA",160.16,4,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,4,"FIELD",92,2) BLANK "DATA",160.16,4,"FIELD",92,3) R,BLANK "DATA",160.16,4,"FIELD",93,0) 430^1^430^Pathologic Stage(Pref./Suf.)Desc. "DATA",160.16,4,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,4,"FIELD",93,2) ZERO "DATA",160.16,4,"FIELD",93,3) L,ZERO "DATA",160.16,4,"FIELD",94,0) 431^1^431^Pathologic Stage By "DATA",160.16,4,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,4,"FIELD",94,2) BLANK "DATA",160.16,4,"FIELD",94,3) L,BLANK "DATA",160.16,4,"FIELD",95,0) 432^2^433^Clinical T Code "DATA",160.16,4,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,4,"FIELD",95,2) BLANK "DATA",160.16,4,"FIELD",95,3) R,BLANK "DATA",160.16,4,"FIELD",96,0) 434^2^435^Clinical N Code "DATA",160.16,4,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,4,"FIELD",96,2) BLANK "DATA",160.16,4,"FIELD",96,3) R,BLANK "DATA",160.16,4,"FIELD",97,0) 436^2^437^Clinical M Code "DATA",160.16,4,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,4,"FIELD",97,2) BLANK "DATA",160.16,4,"FIELD",97,3) R,BLANK "DATA",160.16,4,"FIELD",98,0) 438^2^439^Clinical Stage Group "DATA",160.16,4,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,4,"FIELD",98,2) BLANK "DATA",160.16,4,"FIELD",98,3) R,BLANK "DATA",160.16,4,"FIELD",99,0) 440^1^440^Clinical Stage (Pref./Suf.) Desc. "DATA",160.16,4,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,4,"FIELD",99,2) ZERO "DATA",160.16,4,"FIELD",99,3) L,ZERO "DATA",160.16,4,"FIELD",100,0) 441^1^441^Clinical Staged By "DATA",160.16,4,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,4,"FIELD",100,2) BLANK "DATA",160.16,4,"FIELD",100,3) L,BLANK "DATA",160.16,4,"FIELD",101,0) 442^2^443^Other T Code "DATA",160.16,4,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") "DATA",160.16,4,"FIELD",101,2) BLANK "DATA",160.16,4,"FIELD",101,3) R,BLANK "DATA",160.16,4,"FIELD",102,0) 444^2^445^Other N Code "DATA",160.16,4,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,4,"FIELD",102,2) BLANK "DATA",160.16,4,"FIELD",102,3) R,BLANK "DATA",160.16,4,"FIELD",103,0) 446^2^447^Other M Code "DATA",160.16,4,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,4,"FIELD",103,2) BLANK "DATA",160.16,4,"FIELD",103,3) R,BLANK "DATA",160.16,4,"FIELD",104,0) 448^2^449^Other Stage Group "DATA",160.16,4,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,4,"FIELD",104,2) BLANK "DATA",160.16,4,"FIELD",104,3) R,BLANK "DATA",160.16,4,"FIELD",105,0) 450^1^450^Other Stage By "DATA",160.16,4,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,4,"FIELD",105,2) BLANK "DATA",160.16,4,"FIELD",105,3) L,BLANK "DATA",160.16,4,"FIELD",106,0) 451^1^451^Other Stage (Pref./Suf.) Desc. "DATA",160.16,4,"FIELD",106,1) S ACDANS="" "DATA",160.16,4,"FIELD",106,2) BLANK "DATA",160.16,4,"FIELD",106,3) L,BLANK "DATA",160.16,4,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,4,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",107,2) BLANK "DATA",160.16,4,"FIELD",107,3) L,BLANK "DATA",160.16,4,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,4,"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,4,"FIELD",108,2) BLANK "DATA",160.16,4,"FIELD",108,3) L,BLANK "DATA",160.16,4,"FIELD",109,0) 468^8^475^Date of 1st Positive Biopsy "DATA",160.16,4,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",109,2) BLANK "DATA",160.16,4,"FIELD",109,3) L,BLANK "DATA",160.16,4,"FIELD",110,0) 476^1^476^Site of Distant Mets. #1 "DATA",160.16,4,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,4,"FIELD",110,2) BLANK "DATA",160.16,4,"FIELD",110,3) L,BLANK "DATA",160.16,4,"FIELD",111,0) 477^1^477^Site of Distant Mets. #2 "DATA",160.16,4,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,4,"FIELD",111,2) BLANK "DATA",160.16,4,"FIELD",111,3) L,BLANK "DATA",160.16,4,"FIELD",112,0) 478^1^478^Site of Distant Mets. #3 "DATA",160.16,4,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,4,"FIELD",112,2) BLANK "DATA",160.16,4,"FIELD",112,3) L,BLANK "DATA",160.16,4,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,4,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,4,"FIELD",113,2) BLANK "DATA",160.16,4,"FIELD",113,3) L,BLANK "DATA",160.16,4,"FIELD",114,0) 481^2^482^Pediatric Staging System Type "DATA",160.16,4,"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,4,"FIELD",114,2) BLANK "DATA",160.16,4,"FIELD",114,3) L,BLANK "DATA",160.16,4,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,4,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,4,"FIELD",115,2) BLANK "DATA",160.16,4,"FIELD",115,3) L,BLANK "DATA",160.16,4,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,4,"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,4,"FIELD",116,2) BLANK "DATA",160.16,4,"FIELD",116,3) L,BLANK "DATA",160.16,4,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,4,"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,4,"FIELD",117,2) BLANK "DATA",160.16,4,"FIELD",117,3) L,BLANK "DATA",160.16,4,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,4,"FIELD",118,1) S ACDANS="" "DATA",160.16,4,"FIELD",118,2) BLANK "DATA",160.16,4,"FIELD",118,3) L,BLANK "DATA",160.16,4,"FIELD",119,0) 487^49^535^Reserved "DATA",160.16,4,"FIELD",119,1) S ACDANS="" "DATA",160.16,4,"FIELD",119,2) BLANK "DATA",160.16,4,"FIELD",119,3) L,BLANK "DATA",160.16,4,"FIELD",120,0) 536^1^536^Reserved Old Record Version "DATA",160.16,4,"FIELD",120,1) S ACDANS="" "DATA",160.16,4,"FIELD",120,2) BLANK "DATA",160.16,4,"FIELD",120,3) L,BLANK "DATA",160.16,4,"FIELD",121,0) 537^8^544^RX Date - Surgery "DATA",160.16,4,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,4,"FIELD",121,2) NINE "DATA",160.16,4,"FIELD",121,3) L,BLANK "DATA",160.16,4,"FIELD",122,0) 545^8^552^RX Date - Radiation "DATA",160.16,4,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,4,"FIELD",122,2) NINE "DATA",160.16,4,"FIELD",122,3) L,BLANK "DATA",160.16,4,"FIELD",123,0) 553^8^560^RX Date - Chemo. "DATA",160.16,4,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,4,"FIELD",123,2) NINE "DATA",160.16,4,"FIELD",123,3) L,BLANK "DATA",160.16,4,"FIELD",124,0) 561^8^568^RX Date - Hormone/Steroid "DATA",160.16,4,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,4,"FIELD",124,2) NINE "DATA",160.16,4,"FIELD",124,3) L,BLANK "DATA",160.16,4,"FIELD",125,0) 569^8^576^RX Date - Biological Resp. Mod. "DATA",160.16,4,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,4,"FIELD",125,2) NINE "DATA",160.16,4,"FIELD",125,3) L,BLANK "DATA",160.16,4,"FIELD",126,0) 577^8^584^RX Date - Other Cancer Dir. "DATA",160.16,4,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,4,"FIELD",126,2) NINE "DATA",160.16,4,"FIELD",126,3) L,BLANK "DATA",160.16,4,"FIELD",127,0) 585^8^592^Date of Initial Treatment "DATA",160.16,4,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",127,2) ZERO "DATA",160.16,4,"FIELD",127,3) L,ZERO "DATA",160.16,4,"FIELD",128,0) 593^8^600^Date of 1st Course RX (COC) "DATA",160.16,4,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",128,2) ZERO "DATA",160.16,4,"FIELD",128,3) L,ZERO "DATA",160.16,4,"FIELD",129,0) 601^8^608^RX Date-Non Cancer Dir. Surgery "DATA",160.16,4,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",129,2) ZERO "DATA",160.16,4,"FIELD",129,3) L,ZERO "DATA",160.16,4,"FIELD",130,0) 609^2^610^RX Summary-Surgery Type "DATA",160.16,4,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,4,"FIELD",130,2) ZERO "DATA",160.16,4,"FIELD",130,3) L,ZERO "DATA",160.16,4,"FIELD",131,0) 615^4^618^Reserved For 1997 "DATA",160.16,4,"FIELD",131,1) S ACDANS="" "DATA",160.16,4,"FIELD",131,2) BLANK "DATA",160.16,4,"FIELD",131,3) L,BLANK "DATA",160.16,4,"FIELD",132,0) 619^1^619^Surgical Approach "DATA",160.16,4,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,4,"FIELD",132,2) BLANK "DATA",160.16,4,"FIELD",132,3) L,BLANK "DATA",160.16,4,"FIELD",133,0) 620^1^620^Residual Tumor "DATA",160.16,4,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,4,"FIELD",133,2) BLANK "DATA",160.16,4,"FIELD",133,3) L,BLANK "DATA",160.16,4,"FIELD",134,0) 621^1^621^Re-constructive Surgery "DATA",160.16,4,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,4,"FIELD",134,2) BLANK "DATA",160.16,4,"FIELD",134,3) L,BLANK "DATA",160.16,4,"FIELD",135,0) 622^1^622^Reason for no Surgery "DATA",160.16,4,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,4,"FIELD",135,2) BLANK "DATA",160.16,4,"FIELD",135,3) L,BLANK "DATA",160.16,4,"FIELD",136,0) 623^2^624^RX Summary Non-Can. Dir. Surg. "DATA",160.16,4,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,4,"FIELD",136,2) BLANK "DATA",160.16,4,"FIELD",136,3) L,ZERO "DATA",160.16,4,"FIELD",137,0) 625^1^625^RX Summary-Radiation "DATA",160.16,4,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,4,"FIELD",137,2) NINE "DATA",160.16,4,"FIELD",137,3) L,ZERO "DATA",160.16,4,"FIELD",138,0) 626^1^626^RX Summary-Rad. to CNS "DATA",160.16,4,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,4,"FIELD",138,2) NINE "DATA",160.16,4,"FIELD",138,3) L,ZERO "DATA",160.16,4,"FIELD",139,0) 627^1^627^RX Summary-Surg./Rad. Type "DATA",160.16,4,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,4,"FIELD",139,2) NINE "DATA",160.16,4,"FIELD",139,3) L,ZERO "DATA",160.16,4,"FIELD",140,0) 628^1^628^RX Summary- Chemo "DATA",160.16,4,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,4,"FIELD",140,2) NINE "DATA",160.16,4,"FIELD",140,3) L,ZERO "DATA",160.16,4,"FIELD",141,0) 629^1^629^RX Summary- Hormone "DATA",160.16,4,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,4,"FIELD",141,2) NINE "DATA",160.16,4,"FIELD",141,3) L,ZERO "DATA",160.16,4,"FIELD",142,0) 630^1^630^RX Summary- BRM "DATA",160.16,4,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,4,"FIELD",142,2) NINE "DATA",160.16,4,"FIELD",142,3) L,ZERO "DATA",160.16,4,"FIELD",143,0) 631^1^631^RX Summary- Other "DATA",160.16,4,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,4,"FIELD",143,2) NINE "DATA",160.16,4,"FIELD",143,3) L,ZERO "DATA",160.16,4,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,4,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,4,"FIELD",144,2) BLANK "DATA",160.16,4,"FIELD",144,3) L,BLANK "DATA",160.16,4,"FIELD",145,0) 633^1^633^Reasons for No Chemotherapy "DATA",160.16,4,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,4,"FIELD",145,2) BLANK "DATA",160.16,4,"FIELD",145,3) L,BLANK "DATA",160.16,4,"FIELD",146,0) 634^1^634^Reasons for No Hormone Therapy "DATA",160.16,4,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,4,"FIELD",146,2) BLANK "DATA",160.16,4,"FIELD",146,3) L,BLANK "DATA",160.16,4,"FIELD",147,0) 635^1^635^RX Coding System-Current "DATA",160.16,4,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",147,2) ZERO "DATA",160.16,4,"FIELD",147,3) L,ZERO "DATA",160.16,4,"FIELD",148,0) 636^1^636^Protocol Eligibility Status "DATA",160.16,4,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,4,"FIELD",148,2) BLANK "DATA",160.16,4,"FIELD",148,3) L,BLANK "DATA",160.16,4,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,4,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,4,"FIELD",149,2) BLANK "DATA",160.16,4,"FIELD",149,3) L,BLANK "DATA",160.16,4,"FIELD",150,0) 639^1^639^Referral to Support Service "DATA",160.16,4,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,4,"FIELD",150,2) BLANK "DATA",160.16,4,"FIELD",150,3) L,BLANK "DATA",160.16,4,"FIELD",151,0) 640^1^640^First Course Calc. Method "DATA",160.16,4,"FIELD",151,1) S ACDANS="1" "DATA",160.16,4,"FIELD",151,2) BLANK "DATA",160.16,4,"FIELD",151,3) L,BLANK "DATA",160.16,4,"FIELD",152,0) 641^5^645^Regional Dose: cGy "DATA",160.16,4,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,4,"FIELD",152,2) NINE "DATA",160.16,4,"FIELD",152,3) L,ZERO "DATA",160.16,4,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,4,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,4,"FIELD",153,2) NINE "DATA",160.16,4,"FIELD",153,3) L,ZERO "DATA",160.16,4,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,4,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,4,"FIELD",154,2) NINE "DATA",160.16,4,"FIELD",154,3) L,ZERO "DATA",160.16,4,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,4,"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,4,"FIELD",155,2) NINE "DATA",160.16,4,"FIELD",155,3) L,ZERO "DATA",160.16,4,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,4,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,4,"FIELD",156,2) NINE "DATA",160.16,4,"FIELD",156,3) L,ZERO "DATA",160.16,4,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,4,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,4,"FIELD",157,2) NINE "DATA",160.16,4,"FIELD",157,3) L,ZERO "DATA",160.16,4,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,4,"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,4,"FIELD",158,2) NINE "DATA",160.16,4,"FIELD",158,3) L,ZERO "DATA",160.16,4,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,4,"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,4,"FIELD",159,2) NINE "DATA",160.16,4,"FIELD",159,3) L,ZERO "DATA",160.16,4,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,4,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,4,"FIELD",160,2) NINE "DATA",160.16,4,"FIELD",160,3) L,ZERO "DATA",160.16,4,"FIELD",161,0) 659^3^661^Chem. Related Field #1 "DATA",160.16,4,"FIELD",161,1) S ACDANS="" "DATA",160.16,4,"FIELD",161,2) BLANK "DATA",160.16,4,"FIELD",161,3) L,BLANK "DATA",160.16,4,"FIELD",162,0) 662^3^664^Chem. Related Field #2 "DATA",160.16,4,"FIELD",162,1) S ACDANS="" "DATA",160.16,4,"FIELD",162,2) BLANK "DATA",160.16,4,"FIELD",162,3) L,BLANK "DATA",160.16,4,"FIELD",163,0) 665^3^667^Chem. Related Field #3 "DATA",160.16,4,"FIELD",163,1) S ACDANS="" "DATA",160.16,4,"FIELD",163,2) BLANK "DATA",160.16,4,"FIELD",163,3) L,BLANK "DATA",160.16,4,"FIELD",164,0) 668^3^670^Chem. Related Field #4 "DATA",160.16,4,"FIELD",164,1) S ACDANS="" "DATA",160.16,4,"FIELD",164,2) BLANK "DATA",160.16,4,"FIELD",164,3) L,BLANK "DATA",160.16,4,"FIELD",165,0) 671^2^672^RX Summary-Surgery (pre-96 Cod) "DATA",160.16,4,"FIELD",165,1) S ACDANS="" "DATA",160.16,4,"FIELD",165,2) BLANK "DATA",160.16,4,"FIELD",165,3) L,BLANK "DATA",160.16,4,"FIELD",166,0) 677^24^700^Reserved "DATA",160.16,4,"FIELD",166,1) S ACDANS="" "DATA",160.16,4,"FIELD",166,2) BLANK "DATA",160.16,4,"FIELD",166,3) L,BLANK "DATA",160.16,4,"FIELD",167,0) 701^8^708^Subseq RX - Date (#2) "DATA",160.16,4,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",167,2) BLANK "DATA",160.16,4,"FIELD",167,3) L,BLANK "DATA",160.16,4,"FIELD",168,0) 709^2^710^Subseq RX - Code (#2) Surgery "DATA",160.16,4,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,4,"FIELD",168,2) BLANK "DATA",160.16,4,"FIELD",168,3) L,BLANK "DATA",160.16,4,"FIELD",169,0) 711^1^711^Subseq RX - Code (#2) Radiation "DATA",160.16,4,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,4,"FIELD",169,2) BLANK "DATA",160.16,4,"FIELD",169,3) L,BLANK "DATA",160.16,4,"FIELD",170,0) 712^1^712^Subseq RX - Code (#2) Chem. "DATA",160.16,4,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,4,"FIELD",170,2) BLANK "DATA",160.16,4,"FIELD",170,3) L,BLANK "DATA",160.16,4,"FIELD",171,0) 713^1^713^Subseq RX - Code (#2) Hormone "DATA",160.16,4,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,4,"FIELD",171,2) BLANK "DATA",160.16,4,"FIELD",171,3) L,BLANK "DATA",160.16,4,"FIELD",172,0) 714^1^714^Subseq RX - Code (#2) Biological "DATA",160.16,4,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,4,"FIELD",172,2) BLANK "DATA",160.16,4,"FIELD",172,3) L,BLANK "DATA",160.16,4,"FIELD",173,0) 715^1^715^Subseq RX - Code (#2) Other "DATA",160.16,4,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,4,"FIELD",173,2) BLANK "DATA",160.16,4,"FIELD",173,3) L,BLANK "DATA",160.16,4,"FIELD",174,0) 716^8^723^Subseq RX - Date (#3) "DATA",160.16,4,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",174,2) BLANK "DATA",160.16,4,"FIELD",174,3) L,BLANK "DATA",160.16,4,"FIELD",175,0) 724^2^725^Subseq RX - Code (#3) Surgery "DATA",160.16,4,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,4,"FIELD",175,2) BLANK "DATA",160.16,4,"FIELD",175,3) L,BLANK "DATA",160.16,4,"FIELD",176,0) 726^1^726^Subseq RX - Code (#3) Radiation "DATA",160.16,4,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,4,"FIELD",176,2) BLANK "DATA",160.16,4,"FIELD",176,3) L,BLANK "DATA",160.16,4,"FIELD",177,0) 727^1^727^Subseq RX - Code (#3) Chemo. "DATA",160.16,4,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,4,"FIELD",177,2) BLANK "DATA",160.16,4,"FIELD",177,3) L,BLANK "DATA",160.16,4,"FIELD",178,0) 728^1^728^Subseq RX - Code (#3) Hormone "DATA",160.16,4,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,4,"FIELD",178,2) BLANK "DATA",160.16,4,"FIELD",178,3) L,BLANK "DATA",160.16,4,"FIELD",179,0) 729^1^729^Subseq RX - Code (#3) Biological "DATA",160.16,4,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,4,"FIELD",179,2) BLANK "DATA",160.16,4,"FIELD",179,3) L,BLANK "DATA",160.16,4,"FIELD",180,0) 730^1^730^Subseq RX - Code (#3) Other "DATA",160.16,4,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,4,"FIELD",180,2) BLANK "DATA",160.16,4,"FIELD",180,3) L,BLANK "DATA",160.16,4,"FIELD",181,0) 731^8^738^Subseq RX - Date (#4) "DATA",160.16,4,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",181,2) BLANK "DATA",160.16,4,"FIELD",181,3) L,BLANK "DATA",160.16,4,"FIELD",182,0) 739^2^740^Subseq RX - Code (#4) Surgery "DATA",160.16,4,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,4,"FIELD",182,2) BLANK "DATA",160.16,4,"FIELD",182,3) L,BLANK "DATA",160.16,4,"FIELD",183,0) 741^1^741^Subseq RX - Code (#4) Radiation "DATA",160.16,4,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,4,"FIELD",183,2) BLANK "DATA",160.16,4,"FIELD",183,3) L,BLANK "DATA",160.16,4,"FIELD",184,0) 742^1^742^Subseq RX - Code (#4) Chemo. "DATA",160.16,4,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,4,"FIELD",184,2) BLANK "DATA",160.16,4,"FIELD",184,3) L,BLANK "DATA",160.16,4,"FIELD",185,0) 743^1^743^Subseq RX - Code (#4) Hormone "DATA",160.16,4,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,4,"FIELD",185,2) BLANK "DATA",160.16,4,"FIELD",185,3) L,BLANK "DATA",160.16,4,"FIELD",186,0) 744^1^744^Subseq RX - Code (#4) Biological "DATA",160.16,4,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,4,"FIELD",186,2) BLANK "DATA",160.16,4,"FIELD",186,3) L,BLANK "DATA",160.16,4,"FIELD",187,0) 745^1^745^Subseq RX - Code (#4) Other "DATA",160.16,4,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,4,"FIELD",187,2) BLANK "DATA",160.16,4,"FIELD",187,3) L,BLANK "DATA",160.16,4,"FIELD",188,0) 746^8^753^Subseq RX - Date (#5) "DATA",160.16,4,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",188,2) BLANK "DATA",160.16,4,"FIELD",188,3) L,BLANK "DATA",160.16,4,"FIELD",189,0) 754^2^755^Subseq RX - Code (#5) Surgery "DATA",160.16,4,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,4,"FIELD",189,2) BLANK "DATA",160.16,4,"FIELD",189,3) L,BLANK "DATA",160.16,4,"FIELD",190,0) 756^1^756^Subseq RX - Code (#5) Radiation "DATA",160.16,4,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,4,"FIELD",190,2) BLANK "DATA",160.16,4,"FIELD",190,3) L,BLANK "DATA",160.16,4,"FIELD",191,0) 757^1^757^Subseq RX - Code (#5) Chemo. "DATA",160.16,4,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,4,"FIELD",191,2) BLANK "DATA",160.16,4,"FIELD",191,3) L,BLANK "DATA",160.16,4,"FIELD",192,0) 758^1^758^Subseq RX - Code (#5) Hormone "DATA",160.16,4,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,4,"FIELD",192,2) BLANK "DATA",160.16,4,"FIELD",192,3) L,BLANK "DATA",160.16,4,"FIELD",193,0) 759^1^759^Subseq RX - Code (#5) Biological "DATA",160.16,4,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,4,"FIELD",193,2) BLANK "DATA",160.16,4,"FIELD",193,3) L,BLANK "DATA",160.16,4,"FIELD",194,0) 760^1^760^Subseq RX - Code (#5) Other "DATA",160.16,4,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,4,"FIELD",194,2) BLANK "DATA",160.16,4,"FIELD",194,3) L,BLANK "DATA",160.16,4,"FIELD",195,0) 778^13^790^Reserved "DATA",160.16,4,"FIELD",195,1) S ACDANS="" "DATA",160.16,4,"FIELD",195,2) BLANK "DATA",160.16,4,"FIELD",195,3) L,BLANK "DATA",160.16,4,"FIELD",196,0) 791^8^798^Date of last Contact "DATA",160.16,4,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",196,2) NINE "DATA",160.16,4,"FIELD",196,3) L,BLANK "DATA",160.16,4,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,4,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,4,"FIELD",197,2) NINE "DATA",160.16,4,"FIELD",197,3) L,BLANK "DATA",160.16,4,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,4,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,4,"FIELD",198,2) NINE "DATA",160.16,4,"FIELD",198,3) L,BLANK "DATA",160.16,4,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,4,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,4,"FIELD",199,2) BLANK "DATA",160.16,4,"FIELD",199,3) L,BLANK "DATA",160.16,4,"FIELD",200,0) 802^1^802^Last Type of Follow-up "DATA",160.16,4,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,4,"FIELD",200,2) BLANK "DATA",160.16,4,"FIELD",200,3) L,BLANK "DATA",160.16,4,"FIELD",201,0) 803^1^803^Next Follow-up Method "DATA",160.16,4,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,4,"FIELD",201,2) BLANK "DATA",160.16,4,"FIELD",201,3) L,BLANK "DATA",160.16,4,"FIELD",202,0) 804^20^823^City/Town - Current "DATA",160.16,4,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,4,"FIELD",202,2) BLANK "DATA",160.16,4,"FIELD",202,3) R,BLANK "DATA",160.16,4,"FIELD",203,0) 824^2^825^State - Current "DATA",160.16,4,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,4,"FIELD",203,2) BLANK "DATA",160.16,4,"FIELD",203,3) R,BLANK "DATA",160.16,4,"FIELD",204,0) 826^9^834^Postal Code "DATA",160.16,4,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,4,"FIELD",204,2) BLANK "DATA",160.16,4,"FIELD",204,3) R,BLANK "DATA",160.16,4,"FIELD",205,0) 835^2^836^Reserved "DATA",160.16,4,"FIELD",205,1) S ACDANS="" "DATA",160.16,4,"FIELD",205,2) BLANK "DATA",160.16,4,"FIELD",205,3) L,BLANK "DATA",160.16,4,"FIELD",206,0) 837^1^837^Unusual Follow-up Method "DATA",160.16,4,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,4,"FIELD",206,2) BLANK "DATA",160.16,4,"FIELD",206,3) L,BLANK "DATA",160.16,4,"FIELD",207,0) 838^8^845^Date of First Recurrence "DATA",160.16,4,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",207,2) ZERO "DATA",160.16,4,"FIELD",207,3) L,ZERO "DATA",160.16,4,"FIELD",208,0) 846^3^848^Site of First Recurrence "DATA",160.16,4,"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,4,"FIELD",208,2) BLANK "DATA",160.16,4,"FIELD",208,3) L,BLANK "DATA",160.16,4,"FIELD",209,0) 849^2^850^Type of First Recurrence "DATA",160.16,4,"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,4,"FIELD",209,2) ZERO "DATA",160.16,4,"FIELD",209,3) L,ZERO "DATA",160.16,4,"FIELD",210,0) 851^2^852^Other Type of First Recurrence "DATA",160.16,4,"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,4,"FIELD",210,2) BLANK "DATA",160.16,4,"FIELD",210,3) L,BLANK "DATA",160.16,4,"FIELD",211,0) 853^3^855^County - Current "DATA",160.16,4,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,4,"FIELD",211,2) BLANK "DATA",160.16,4,"FIELD",211,3) L,BLANK "DATA",160.16,4,"FIELD",212,0) 878^5^882^Reserved "DATA",160.16,4,"FIELD",212,1) S ACDANS="" "DATA",160.16,4,"FIELD",212,2) BLANK "DATA",160.16,4,"FIELD",212,3) L,BLANK "DATA",160.16,4,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,4,"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") "DATA",160.16,4,"FIELD",213,2) ZERO "DATA",160.16,4,"FIELD",213,3) L,ZERO "DATA",160.16,4,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,4,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,4,"FIELD",214,2) ZERO "DATA",160.16,4,"FIELD",214,3) L,ZERO "DATA",160.16,4,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,4,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,4,"FIELD",215,2) BLANK "DATA",160.16,4,"FIELD",215,3) L,BLANK "DATA",160.16,4,"FIELD",216,0) 889^3^891^Place of death "DATA",160.16,4,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,4,"FIELD",216,2) BLANK "DATA",160.16,4,"FIELD",216,3) L,BLANK "DATA",160.16,4,"FIELD",217,0) 901^1^901^Reserved "DATA",160.16,4,"FIELD",217,1) S ACDANS="" "DATA",160.16,4,"FIELD",217,2) BLANK "DATA",160.16,4,"FIELD",217,3) L,BLANK "DATA",160.16,4,"FIELD",218,0) 902^4^905^Site (1973-91) "DATA",160.16,4,"FIELD",218,1) S ACDANS="" "DATA",160.16,4,"FIELD",218,2) BLANK "DATA",160.16,4,"FIELD",218,3) L,BLANK "DATA",160.16,4,"FIELD",219,0) 906^6^911^Morph. (1973-91) "DATA",160.16,4,"FIELD",219,1) S ACDANS="" "DATA",160.16,4,"FIELD",219,2) BLANK "DATA",160.16,4,"FIELD",219,3) L,BLANK "DATA",160.16,4,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,4,"FIELD",220,1) S ACDANS=4 "DATA",160.16,4,"FIELD",220,2) BLANK "DATA",160.16,4,"FIELD",220,3) L,BLANK "DATA",160.16,4,"FIELD",221,0) 913^1^913^Over-Ride Age/Site "DATA",160.16,4,"FIELD",221,1) S ACDANS="" "DATA",160.16,4,"FIELD",221,2) BLANK "DATA",160.16,4,"FIELD",221,3) L,BLANK "DATA",160.16,4,"FIELD",222,0) 914^1^914^Over-Ride SeqNo/DxConf "DATA",160.16,4,"FIELD",222,1) S ACDANS="" "DATA",160.16,4,"FIELD",222,2) BLANK "DATA",160.16,4,"FIELD",222,3) L,BLANK "DATA",160.16,4,"FIELD",223,0) 915^1^915^Over-Ride Site/Lat/SeqNo "DATA",160.16,4,"FIELD",223,1) S ACDANS="" "DATA",160.16,4,"FIELD",223,2) BLANK "DATA",160.16,4,"FIELD",223,3) L,BLANK "DATA",160.16,4,"FIELD",224,0) 916^1^916^Over-Ride Surg./DxConf "DATA",160.16,4,"FIELD",224,1) S ACDANS="" "DATA",160.16,4,"FIELD",224,2) BLANK "DATA",160.16,4,"FIELD",224,3) L,BLANK "DATA",160.16,4,"FIELD",225,0) 917^1^917^Over-Ride Site/Type "DATA",160.16,4,"FIELD",225,1) S ACDANS="" "DATA",160.16,4,"FIELD",225,2) BLANK "DATA",160.16,4,"FIELD",225,3) L,BLANK "DATA",160.16,4,"FIELD",226,0) 918^1^918^Over-Ride Histology "DATA",160.16,4,"FIELD",226,1) S ACDANS="" "DATA",160.16,4,"FIELD",226,2) BLANK "DATA",160.16,4,"FIELD",226,3) L,BLANK "DATA",160.16,4,"FIELD",227,0) 919^1^919^Over-Ride Report Source "DATA",160.16,4,"FIELD",227,1) S ACDANS="" "DATA",160.16,4,"FIELD",227,2) BLANK "DATA",160.16,4,"FIELD",227,3) L,BLANK "DATA",160.16,4,"FIELD",228,0) 920^1^920^Over-Ride Ill-Defined Site "DATA",160.16,4,"FIELD",228,1) S ACDANS="" "DATA",160.16,4,"FIELD",228,2) BLANK "DATA",160.16,4,"FIELD",228,3) L,BLANK "DATA",160.16,4,"FIELD",229,0) 921^1^921^Over-Ride Leuk, Lymphoma "DATA",160.16,4,"FIELD",229,1) S ACDANS="" "DATA",160.16,4,"FIELD",229,2) BLANK "DATA",160.16,4,"FIELD",229,3) L,BLANK "DATA",160.16,4,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,4,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,4,"FIELD",231,2) BLANK "DATA",160.16,4,"FIELD",231,3) L,BLANK "DATA",160.16,4,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,4,"FIELD",232,1) S ACDANS="" "DATA",160.16,4,"FIELD",232,2) BLANK "DATA",160.16,4,"FIELD",232,3) L,BLANK "DATA",160.16,4,"FIELD",233,0) 968^8^975^Date Case Transmitted "DATA",160.16,4,"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,4,"FIELD",233,2) BLANK "DATA",160.16,4,"FIELD",233,3) L,ZERO "DATA",160.16,4,"FIELD",234,0) 976^1^976^SEER Coding Sys-Current "DATA",160.16,4,"FIELD",234,1) S ACDANS=4 "DATA",160.16,4,"FIELD",234,2) BLANK "DATA",160.16,4,"FIELD",234,3) L,BLANK "DATA",160.16,4,"FIELD",235,0) 977^1^977^SEER Coding Sys-Original "DATA",160.16,4,"FIELD",235,1) S ACDANS=4 "DATA",160.16,4,"FIELD",235,2) BLANK "DATA",160.16,4,"FIELD",235,3) L,BLANK "DATA",160.16,4,"FIELD",236,0) 978^1^978^COC Coding System Current "DATA",160.16,4,"FIELD",236,1) S ACDANS=7 "DATA",160.16,4,"FIELD",236,2) BLANK "DATA",160.16,4,"FIELD",236,3) L,BLANK "DATA",160.16,4,"FIELD",237,0) 979^1^979^COC Coding System Original "DATA",160.16,4,"FIELD",237,1) S ACDANS=6 "DATA",160.16,4,"FIELD",237,2) BLANK "DATA",160.16,4,"FIELD",237,3) L,BLANK "DATA",160.16,4,"FIELD",238,0) 980^1^980^Reserved "DATA",160.16,4,"FIELD",238,1) S ACDANS="" "DATA",160.16,4,"FIELD",238,2) BLANK "DATA",160.16,4,"FIELD",238,3) L,BLANK "DATA",160.16,4,"FIELD",239,0) 981^10^990^Vender Name "DATA",160.16,4,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,4,"FIELD",239,2) BLANK "DATA",160.16,4,"FIELD",239,3) L,BLANK "DATA",160.16,4,"FIELD",240,0) 991^1^991^SEER Type of Follow-up "DATA",160.16,4,"FIELD",240,1) S ACDANS="" "DATA",160.16,4,"FIELD",240,2) BLANK "DATA",160.16,4,"FIELD",240,3) L,BLANK "DATA",160.16,4,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,4,"FIELD",241,1) S ACDANS="" "DATA",160.16,4,"FIELD",241,2) BLANK "DATA",160.16,4,"FIELD",241,3) L,BLANK "DATA",160.16,4,"FIELD",242,0) 994^2^995^Diagnostic Procedures '73-'87 "DATA",160.16,4,"FIELD",242,1) S ACDANS="" "DATA",160.16,4,"FIELD",242,2) BLANK "DATA",160.16,4,"FIELD",242,3) L,BLANK "DATA",160.16,4,"FIELD",243,0) 1020^6^1025^Reserved "DATA",160.16,4,"FIELD",243,1) S ACDANS="" "DATA",160.16,4,"FIELD",243,2) BLANK "DATA",160.16,4,"FIELD",243,3) L,BLANK "DATA",160.16,4,"FIELD",284,0) 1785^25^1809^Follow-Up Contact No&ST "DATA",160.16,4,"FIELD",284,1) S ACDANS="" "DATA",160.16,4,"FIELD",284,2) BLANK "DATA",160.16,4,"FIELD",284,3) L,BLANK "DATA",160.16,4,"FIELD",285,0) 942^10^951^CRC CHECKSUM "DATA",160.16,4,"FIELD",285,1) S ACDANS="" "DATA",160.16,4,"FIELD",285,2) BLANK "DATA",160.16,4,"FIELD",285,3) L,BLANK "DATA",160.16,4,"FIELD",338,0) 1524^2^1525^Linkage Name Sum "DATA",160.16,4,"FIELD",338,1) S ACDANS=$$LINK~ONCACDU2(ACD160) "DATA",160.16,4,"FIELD",338,2) ZERO "DATA",160.16,4,"FIELD",338,3) L,ZERO "DATA",160.16,4,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,4,"FIELD",339,1) S ACDANS="" "DATA",160.16,4,"FIELD",339,2) BLANK "DATA",160.16,4,"FIELD",339,3) L,BLANK "DATA",160.16,4,"FIELD",340,0) 343^1^343^RX Scope reg LN Sur "DATA",160.16,4,"FIELD",340,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,4,"FIELD",340,2) BLANK "DATA",160.16,4,"FIELD",340,3) L,ZERO "DATA",160.16,4,"FIELD",341,0) 344^1^344^RX Hosp Surg Other Reg/Dis "DATA",160.16,4,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,4,"FIELD",341,2) BLANK "DATA",160.16,4,"FIELD",341,3) L,BLANK "DATA",160.16,4,"FIELD",342,0) 345^2^346^RX Hosp Reg LN Examined "DATA",160.16,4,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,4,"FIELD",342,2) BLANK "DATA",160.16,4,"FIELD",342,3) L,ZERO "DATA",160.16,4,"FIELD",343,0) 358^1^358^RX Hosp Diag/Stage Proc1 "DATA",160.16,4,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,4,"FIELD",343,2) BLANK "DATA",160.16,4,"FIELD",343,3) L,BLANK "DATA",160.16,4,"FIELD",344,0) 359^1^359^RX Hosp Diag/Stage Proc2 "DATA",160.16,4,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,4,"FIELD",344,2) BLANK "DATA",160.16,4,"FIELD",344,3) L,BLANK "DATA",160.16,4,"FIELD",345,0) 360^1^360^RX Hosp Diag/Stage Proc3 "DATA",160.16,4,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,4,"FIELD",345,2) BLANK "DATA",160.16,4,"FIELD",345,3) L,BLANK "DATA",160.16,4,"FIELD",346,0) 361^1^361^RX Hosp Diag/Stage Proc4 "DATA",160.16,4,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,4,"FIELD",346,2) BLANK "DATA",160.16,4,"FIELD",346,3) L,BLANK "DATA",160.16,4,"FIELD",347,0) 611^1^611^RX Summ Scope Reg LN Sur "DATA",160.16,4,"FIELD",347,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,4,"FIELD",347,2) NINE "DATA",160.16,4,"FIELD",347,3) L,ZERO "DATA",160.16,4,"FIELD",348,0) 612^1^612^RX Summ Surg Other Reg/Dis "DATA",160.16,4,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,4,"FIELD",348,2) NINE "DATA",160.16,4,"FIELD",348,3) L,ZERO "DATA",160.16,4,"FIELD",349,0) 613^2^614^RX Summ Reg LN "DATA",160.16,4,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,4,"FIELD",349,2) NINE "DATA",160.16,4,"FIELD",349,3) L,ZERO "DATA",160.16,4,"FIELD",350,0) 673^1^673^RX Summ Diag/Stage Proc1 "DATA",160.16,4,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,4,"FIELD",350,2) BLANK "DATA",160.16,4,"FIELD",350,3) L,BLANK "DATA",160.16,4,"FIELD",351,0) 674^1^674^RX Summ Diag/Stage Proc2 "DATA",160.16,4,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,4,"FIELD",351,2) BLANK "DATA",160.16,4,"FIELD",351,3) L,BLANK "DATA",160.16,4,"FIELD",352,0) 675^1^675^RX Summ Diag/Stage Proc3 "DATA",160.16,4,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,4,"FIELD",352,2) BLANK "DATA",160.16,4,"FIELD",352,3) L,BLANK "DATA",160.16,4,"FIELD",353,0) 676^1^676^RX Summ Diag/Stage Proc4 "DATA",160.16,4,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,4,"FIELD",353,2) BLANK "DATA",160.16,4,"FIELD",353,3) L,BLANK "DATA",160.16,4,"FIELD",354,0) 761^1^761^Subsq RX 2nd Scope LN Su "DATA",160.16,4,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,4,"FIELD",354,2) BLANK "DATA",160.16,4,"FIELD",354,3) L,BLANK "DATA",160.16,4,"FIELD",355,0) 762^1^762^Subsq RX 2nd Surg Oth "DATA",160.16,4,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,4,"FIELD",355,2) BLANK "DATA",160.16,4,"FIELD",355,3) L,BLANK "DATA",160.16,4,"FIELD",356,0) 763^2^764^Subsq RX 2nd Reg LN Rem "DATA",160.16,4,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,4,"FIELD",356,2) BLANK "DATA",160.16,4,"FIELD",356,3) L,BLANK "DATA",160.16,4,"FIELD",357,0) 765^1^765^Subsq RX 3rd Scope LN Su "DATA",160.16,4,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,4,"FIELD",357,2) BLANK "DATA",160.16,4,"FIELD",357,3) L,BLANK "DATA",160.16,4,"FIELD",358,0) 766^1^766^Subsq RX 3rd Surg Oth "DATA",160.16,4,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,4,"FIELD",358,2) BLANK "DATA",160.16,4,"FIELD",358,3) L,BLANK "DATA",160.16,4,"FIELD",359,0) 767^2^768^Subsq RX 3rd Reg LN Rem "DATA",160.16,4,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,4,"FIELD",359,2) BLANK "DATA",160.16,4,"FIELD",359,3) L,BLANK "DATA",160.16,4,"FIELD",360,0) 769^1^769^Subsq RX 4th Scope LN Su "DATA",160.16,4,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,4,"FIELD",360,2) BLANK "DATA",160.16,4,"FIELD",360,3) L,BLANK "DATA",160.16,4,"FIELD",361,0) 770^1^770^Subsq RX 4th Surg Oth "DATA",160.16,4,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,4,"FIELD",361,2) BLANK "DATA",160.16,4,"FIELD",361,3) L,BLANK "DATA",160.16,4,"FIELD",362,0) 771^2^772^Subsq RX 4th Reg LN Rem "DATA",160.16,4,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,4,"FIELD",362,2) BLANK "DATA",160.16,4,"FIELD",362,3) L,BLANK "DATA",160.16,4,"FIELD",363,0) 773^1^773^Subsq RX 5th Scope LN Su "DATA",160.16,4,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,4,"FIELD",363,2) BLANK "DATA",160.16,4,"FIELD",363,3) L,BLANK "DATA",160.16,4,"FIELD",364,0) 774^1^774^Subsq RX 5th Surg Oth "DATA",160.16,4,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,4,"FIELD",364,2) BLANK "DATA",160.16,4,"FIELD",364,3) L,BLANK "DATA",160.16,4,"FIELD",365,0) 775^2^776^Subsq RX 5th Reg LN Rem "DATA",160.16,4,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,4,"FIELD",365,2) BLANK "DATA",160.16,4,"FIELD",365,3) L,BLANK "DATA",160.16,4,"FIELD",366,0) 777^1^777^Subsq RX Reconstruct Del "DATA",160.16,4,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,4,"FIELD",366,2) BLANK "DATA",160.16,4,"FIELD",366,3) L,BLANK "DATA",160.16,4,"FIELD",367,0) 856^20^875^Follow-Up Contact City "DATA",160.16,4,"FIELD",367,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,4,"FIELD",367,2) BLANK "DATA",160.16,4,"FIELD",367,3) L,BLANK "DATA",160.16,4,"FIELD",368,0) 876^2^877^Follow-Up Contact State "DATA",160.16,4,"FIELD",368,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,4,"FIELD",368,2) BLANK "DATA",160.16,4,"FIELD",368,3) L,BLANK "DATA",160.16,4,"FIELD",369,0) 892^9^900^Follow-Up Contact Postal "DATA",160.16,4,"FIELD",369,1) S ACDANS="" "DATA",160.16,4,"FIELD",369,2) BLANK "DATA",160.16,4,"FIELD",369,3) L,BLANK "DATA",160.16,4,"FIELD",370,0) 922^1^922^Over-Ride Site/Behavior "DATA",160.16,4,"FIELD",370,1) S ACDANS="" "DATA",160.16,4,"FIELD",370,2) BLANK "DATA",160.16,4,"FIELD",370,3) L,BLANK "DATA",160.16,4,"FIELD",371,0) 923^1^923^Over-Ride Site/EOD/DX DT "DATA",160.16,4,"FIELD",371,1) S ACDANS="" "DATA",160.16,4,"FIELD",371,2) BLANK "DATA",160.16,4,"FIELD",371,3) L,BLANK "DATA",160.16,4,"FIELD",372,0) 924^1^924^Over-Ride Site/Lat/EOD "DATA",160.16,4,"FIELD",372,1) S ACDANS="" "DATA",160.16,4,"FIELD",372,2) BLANK "DATA",160.16,4,"FIELD",372,3) L,BLANK "DATA",160.16,4,"FIELD",373,0) 925^1^925^Over-Ride Site/Lat/Morph "DATA",160.16,4,"FIELD",373,1) S ACDANS="" "DATA",160.16,4,"FIELD",373,2) BLANK "DATA",160.16,4,"FIELD",373,3) L,BLANK "DATA",160.16,4,"FIELD",374,0) 926^8^933^Future Use Timelines 1 "DATA",160.16,4,"FIELD",374,1) S ACDANS="" "DATA",160.16,4,"FIELD",374,2) BLANK "DATA",160.16,4,"FIELD",374,3) L,BLANK "DATA",160.16,4,"FIELD",375,0) 934^8^941^Future Use Timelines 2 "DATA",160.16,4,"FIELD",375,1) S ACDANS="" "DATA",160.16,4,"FIELD",375,2) BLANK "DATA",160.16,4,"FIELD",375,3) L,BLANK "DATA",160.16,4,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,4,"FIELD",376,1) S ACDANS="" "DATA",160.16,4,"FIELD",376,2) BLANK "DATA",160.16,4,"FIELD",376,3) L,BLANK "DATA",160.16,4,"FIELD",377,0) 1004^8^1011^Date Case Report Load "DATA",160.16,4,"FIELD",377,1) S ACDANS="" "DATA",160.16,4,"FIELD",377,2) BLANK "DATA",160.16,4,"FIELD",377,3) L,BLANK "DATA",160.16,4,"FIELD",378,0) 1012^8^1019^Date Tumor Record Avail "DATA",160.16,4,"FIELD",378,1) S ACDANS="" "DATA",160.16,4,"FIELD",378,2) BLANK "DATA",160.16,4,"FIELD",378,3) L,BLANK "DATA",160.16,4,"FIELD",379,0) 1026^498^1523^PCE Position (BLANK) "DATA",160.16,4,"FIELD",379,1) S ACDANS="" "DATA",160.16,4,"FIELD",379,2) BLANK "DATA",160.16,4,"FIELD",379,3) L,BLANK "DATA",160.16,4,"FIELD",381,0) 1526^25^1550^Name-Last "DATA",160.16,4,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,4,"FIELD",381,2) BLANK "DATA",160.16,4,"FIELD",381,3) R,BLANK "DATA",160.16,4,"FIELD",382,0) 1551^14^1564^Name-First "DATA",160.16,4,"FIELD",382,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,4,"FIELD",382,2) BLANK "DATA",160.16,4,"FIELD",382,3) R,BLANK "DATA",160.16,4,"FIELD",383,0) 1565^14^1578^Name-Middle "DATA",160.16,4,"FIELD",383,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,4,"FIELD",383,2) BLANK "DATA",160.16,4,"FIELD",383,3) R,BLANK "DATA",160.16,4,"FIELD",384,0) 1579^3^1581^Name-Prefix "DATA",160.16,4,"FIELD",384,1) S ACDANS="" "DATA",160.16,4,"FIELD",384,2) BLANK "DATA",160.16,4,"FIELD",384,3) R,BLANK "DATA",160.16,4,"FIELD",385,0) 1582^3^1584^Name-Suffix "DATA",160.16,4,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,4,"FIELD",385,2) BLANK "DATA",160.16,4,"FIELD",385,3) R,BLANK "DATA",160.16,4,"FIELD",386,0) 1585^15^1599^Name-Alias "DATA",160.16,4,"FIELD",386,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,4,"FIELD",386,2) BLANK "DATA",160.16,4,"FIELD",386,3) R,BLANK "DATA",160.16,4,"FIELD",387,0) 1600^50^1649^Name-Spouse "DATA",160.16,4,"FIELD",387,1) S ACDANS="" "DATA",160.16,4,"FIELD",387,2) BLANK "DATA",160.16,4,"FIELD",387,3) R,BLANK "DATA",160.16,4,"FIELD",388,0) 1650^11^1660^Medical Record NBR "DATA",160.16,4,"FIELD",388,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,4,"FIELD",388,2) BLANK "DATA",160.16,4,"FIELD",388,3) L,BLANK "DATA",160.16,4,"FIELD",389,0) 1661^2^1662^Military Suffix "DATA",160.16,4,"FIELD",389,1) S ACDANS="" "DATA",160.16,4,"FIELD",389,2) BLANK "DATA",160.16,4,"FIELD",389,3) L,ZERO "DATA",160.16,4,"FIELD",390,0) 1663^9^1671^Social Security NBR "DATA",160.16,4,"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,4,"FIELD",390,2) NINE "DATA",160.16,4,"FIELD",390,3) L,BLANK "DATA",160.16,4,"FIELD",391,0) 1672^25^1696^Address at DX-Street "DATA",160.16,4,"FIELD",391,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,4,"FIELD",391,2) BLANK "DATA",160.16,4,"FIELD",391,3) R,BLANK "DATA",160.16,4,"FIELD",392,0) 1697^30^1726^Reserved for Expansion "DATA",160.16,4,"FIELD",392,1) S ACDANS="" "DATA",160.16,4,"FIELD",392,2) BLANK "DATA",160.16,4,"FIELD",392,3) L,BLANK "DATA",160.16,4,"FIELD",393,0) 1727^25^1751^Address-Current Street "DATA",160.16,4,"FIELD",393,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,4,"FIELD",393,2) BLANK "DATA",160.16,4,"FIELD",393,3) R,BLANK "DATA",160.16,4,"FIELD",394,0) 1752^10^1761^Telephone Number "DATA",160.16,4,"FIELD",394,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,4,"FIELD",394,2) ZERO "DATA",160.16,4,"FIELD",394,3) R,BLANK "DATA",160.16,4,"FIELD",395,0) 1762^2^1763^Reserved "DATA",160.16,4,"FIELD",395,1) S ACDANS="" "DATA",160.16,4,"FIELD",395,2) BLANK "DATA",160.16,4,"FIELD",395,3) L,BLANK "DATA",160.16,4,"FIELD",396,0) 1764^6^1769^DC State File NBR "DATA",160.16,4,"FIELD",396,1) S ACDANS="" "DATA",160.16,4,"FIELD",396,2) BLANK "DATA",160.16,4,"FIELD",396,3) L,BLANK "DATA",160.16,4,"FIELD",397,0) 1770^15^1784^Maiden-Name "DATA",160.16,4,"FIELD",397,1) S ACDANS="" "DATA",160.16,4,"FIELD",397,2) BLANK "DATA",160.16,4,"FIELD",397,3) R,BLANK "DATA",160.16,4,"FIELD",398,0) 1810^3^1812^Reserved "DATA",160.16,4,"FIELD",398,1) S ACDANS="" "DATA",160.16,4,"FIELD",398,2) BLANK "DATA",160.16,4,"FIELD",398,3) L,BLANK "DATA",160.16,4,"FIELD",399,0) 1813^6^1818^Institution Referred from "DATA",160.16,4,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,4,"FIELD",399,2) ZERO "DATA",160.16,4,"FIELD",399,3) L,ZERO "DATA",160.16,4,"FIELD",400,0) 1819^6^1824^Institution Referred to "DATA",160.16,4,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,4,"FIELD",400,2) ZERO "DATA",160.16,4,"FIELD",400,3) L,ZERO "DATA",160.16,4,"FIELD",401,0) 1825^6^1830^Last Follow up Hospital "DATA",160.16,4,"FIELD",401,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,4,"FIELD",401,2) BLANK "DATA",160.16,4,"FIELD",401,3) L,ZERO "DATA",160.16,4,"FIELD",402,0) 1831^6^1836^Following Registry "DATA",160.16,4,"FIELD",402,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,4,"FIELD",402,2) BLANK "DATA",160.16,4,"FIELD",402,3) L,ZERO "DATA",160.16,4,"FIELD",403,0) 1837^10^1846^Reserved "DATA",160.16,4,"FIELD",403,1) S ACDANS="" "DATA",160.16,4,"FIELD",403,2) BLANK "DATA",160.16,4,"FIELD",403,3) L,BLANK "DATA",160.16,4,"FIELD",404,0) 1847^8^1854^Managing Physician "DATA",160.16,4,"FIELD",404,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,4,"FIELD",404,2) NINE "DATA",160.16,4,"FIELD",404,3) L,BLANK "DATA",160.16,4,"FIELD",405,0) 1855^8^1862^Following Physician "DATA",160.16,4,"FIELD",405,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,4,"FIELD",405,2) BLANK "DATA",160.16,4,"FIELD",405,3) L,BLANK "DATA",160.16,4,"FIELD",406,0) 1863^8^1870^Primary Surgeon "DATA",160.16,4,"FIELD",406,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,4,"FIELD",406,2) ZERO "DATA",160.16,4,"FIELD",406,3) L,ZERO "DATA",160.16,4,"FIELD",407,0) 1871^8^1878^Other Physician 3 "DATA",160.16,4,"FIELD",407,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,4,"FIELD",407,2) ZERO "DATA",160.16,4,"FIELD",407,3) L,ZERO "DATA",160.16,4,"FIELD",408,0) 1879^8^1886^Other Physician 4 "DATA",160.16,4,"FIELD",408,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,4,"FIELD",408,2) ZERO "DATA",160.16,4,"FIELD",408,3) L,ZERO "DATA",160.16,4,"FIELD",409,0) 1887^30^1916^Follow-Up Contact Name "DATA",160.16,4,"FIELD",409,1) S ACDANS="" "DATA",160.16,4,"FIELD",409,2) BLANK "DATA",160.16,4,"FIELD",409,3) L,BLANK "DATA",160.16,4,"FIELD",410,0) 1917^200^2116^Text-DX Proc-PE "DATA",160.16,4,"FIELD",410,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,4,"FIELD",410,2) BLANK "DATA",160.16,4,"FIELD",410,3) R,BLANK "DATA",160.16,4,"FIELD",411,0) 2117^250^2366^Text-DX Proc-XRAY "DATA",160.16,4,"FIELD",411,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,4,"FIELD",411,2) BLANK "DATA",160.16,4,"FIELD",411,3) R,BLANK "DATA",160.16,4,"FIELD",412,0) 2367^250^2616^Text-DX Proc-Scopes "DATA",160.16,4,"FIELD",412,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,4,"FIELD",412,2) BLANK "DATA",160.16,4,"FIELD",412,3) R,BLANK "DATA",160.16,4,"FIELD",413,0) 2617^250^2866^Text-DX Proc-Lab "DATA",160.16,4,"FIELD",413,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,4,"FIELD",413,2) BLANK "DATA",160.16,4,"FIELD",413,3) R,BLANK "DATA",160.16,4,"FIELD",414,0) 2867^250^3116^Text-DX Proc-OPS "DATA",160.16,4,"FIELD",414,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,4,"FIELD",414,2) BLANK "DATA",160.16,4,"FIELD",414,3) R,BLANK "DATA",160.16,4,"FIELD",415,0) 3117^250^3366^Text-DX Proc-PATH "DATA",160.16,4,"FIELD",415,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,4,"FIELD",415,2) BLANK "DATA",160.16,4,"FIELD",415,3) R,BLANK "DATA",160.16,4,"FIELD",416,0) 3367^40^3406^Text-Primary Site "DATA",160.16,4,"FIELD",416,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,4,"FIELD",416,2) BLANK "DATA",160.16,4,"FIELD",416,3) R,BLANK "DATA",160.16,4,"FIELD",417,0) 3407^40^3446^Text-Histology "DATA",160.16,4,"FIELD",417,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,4,"FIELD",417,2) BLANK "DATA",160.16,4,"FIELD",417,3) R,BLANK "DATA",160.16,4,"FIELD",418,0) 3447^300^3746^Text-Staging "DATA",160.16,4,"FIELD",418,1) S ACDANS="" "DATA",160.16,4,"FIELD",418,2) BLANK "DATA",160.16,4,"FIELD",418,3) R,BLANK "DATA",160.16,4,"FIELD",419,0) 3747^150^3896^Text-RX-Surgery "DATA",160.16,4,"FIELD",419,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,4,"FIELD",419,2) BLANK "DATA",160.16,4,"FIELD",419,3) R,BLANK "DATA",160.16,4,"FIELD",420,0) 3897^150^4046^Text-RX-RAD(Beam) "DATA",160.16,4,"FIELD",420,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,4,"FIELD",420,2) BLANK "DATA",160.16,4,"FIELD",420,3) R,BLANK "DATA",160.16,4,"FIELD",421,0) 4047^150^4196^Text-RX-RAD-Other "DATA",160.16,4,"FIELD",421,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,4,"FIELD",421,2) BLANK "DATA",160.16,4,"FIELD",421,3) R,BLANK "DATA",160.16,4,"FIELD",422,0) 4197^200^4396^Text-RX-Chemo "DATA",160.16,4,"FIELD",422,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,4,"FIELD",422,2) BLANK "DATA",160.16,4,"FIELD",422,3) R,BLANK "DATA",160.16,4,"FIELD",423,0) 4397^200^4596^Text-RX-Hormone "DATA",160.16,4,"FIELD",423,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,4,"FIELD",423,2) BLANK "DATA",160.16,4,"FIELD",423,3) R,BLANK "DATA",160.16,4,"FIELD",424,0) 4597^100^4696^Text-RX-Immunotherapy "DATA",160.16,4,"FIELD",424,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,4,"FIELD",424,2) BLANK "DATA",160.16,4,"FIELD",424,3) R,BLANK "DATA",160.16,4,"FIELD",425,0) 4697^100^4796^Text-RX-Other "DATA",160.16,4,"FIELD",425,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,4,"FIELD",425,2) BLANK "DATA",160.16,4,"FIELD",425,3) R,BLANK "DATA",160.16,4,"FIELD",426,0) 4797^350^5146^Text-Remarks "DATA",160.16,4,"FIELD",426,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,4,"FIELD",426,2) BLANK "DATA",160.16,4,"FIELD",426,3) R,BLANK "DATA",160.16,4,"FIELD",427,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,4,"FIELD",427,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,4,"FIELD",427,2) BLANK "DATA",160.16,4,"FIELD",427,3) R,BLANK "DATA",160.16,4,"FIELD",428,0) 5197^770^5966^Reserved "DATA",160.16,4,"FIELD",428,1) S ACDANS="" "DATA",160.16,4,"FIELD",428,2) BLANK "DATA",160.16,4,"FIELD",428,3) L,BLANK "DATA",160.16,4,"RULES",0) 4^^4^4^2990310^ "DATA",160.16,4,"RULES",1,0) S VALID=1 "DATA",160.16,4,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,4,"RULES",3,0) S JUMP=0 "DATA",160.16,4,"RULES",4,0) K SCREEN "DATA",160.16,5,0) NAACCR STATE EXTRACT V5.1 "DATA",160.16,5,"FIELD",0) ^160.161I^388^293 "DATA",160.16,5,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,5,"FIELD",1,1) S ACDANS="A" "DATA",160.16,5,"FIELD",1,2) BLANK "DATA",160.16,5,"FIELD",1,3) L,BLANK "DATA",160.16,5,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,5,"FIELD",2,1) S ACDANS="" "DATA",160.16,5,"FIELD",2,2) ZERO "DATA",160.16,5,"FIELD",2,3) L,BLANK "DATA",160.16,5,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,5,"FIELD",3,1) S ACDANS=3 "DATA",160.16,5,"FIELD",3,2) BLANK "DATA",160.16,5,"FIELD",3,3) L,BLANK "DATA",160.16,5,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,5,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,5,"FIELD",4,2) BLANK "DATA",160.16,5,"FIELD",4,3) L,BLANK "DATA",160.16,5,"FIELD",5,0) 19^1^19^NAACCR Record Number "DATA",160.16,5,"FIELD",5,1) S ACDANS=5 "DATA",160.16,5,"FIELD",5,2) BLANK "DATA",160.16,5,"FIELD",5,3) L,BLANK "DATA",160.16,5,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,5,"FIELD",6,1) S ACDANS="" "DATA",160.16,5,"FIELD",6,2) BLANK "DATA",160.16,5,"FIELD",6,3) L,BLANK "DATA",160.16,5,"FIELD",7,0) 22^20^41^Add at Dx City "DATA",160.16,5,"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,5,"FIELD",7,2) BLANK "DATA",160.16,5,"FIELD",7,3) R,BLANK "DATA",160.16,5,"FIELD",8,0) 42^2^43^Add at Dx State "DATA",160.16,5,"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,5,"FIELD",8,2) BLANK "DATA",160.16,5,"FIELD",8,3) L,BLANK "DATA",160.16,5,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,5,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",9,2) ZERO "DATA",160.16,5,"FIELD",9,3) L,ZERO "DATA",160.16,5,"FIELD",10,0) 47^9^55^Add at DX ZIP "DATA",160.16,5,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,5,"FIELD",10,2) BLANK "DATA",160.16,5,"FIELD",10,3) R,BLANK "DATA",160.16,5,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,5,"FIELD",11,1) S ACDANS="" "DATA",160.16,5,"FIELD",11,2) BLANK "DATA",160.16,5,"FIELD",11,3) L,BLANK "DATA",160.16,5,"FIELD",12,0) 62^1^62^Census Tract Coding System "DATA",160.16,5,"FIELD",12,1) S ACDANS="" "DATA",160.16,5,"FIELD",12,2) BLANK "DATA",160.16,5,"FIELD",12,3) L,BLANK "DATA",160.16,5,"FIELD",13,0) 63^6^68^Census Tract- Alternate "DATA",160.16,5,"FIELD",13,1) S ACDANS="" "DATA",160.16,5,"FIELD",13,2) BLANK "DATA",160.16,5,"FIELD",13,3) L,BLANK "DATA",160.16,5,"FIELD",14,0) 69^1^69^Census Tract Coding System-Alt. "DATA",160.16,5,"FIELD",14,1) S ACDANS="" "DATA",160.16,5,"FIELD",14,2) BLANK "DATA",160.16,5,"FIELD",14,3) L,BLANK "DATA",160.16,5,"FIELD",15,0) 70^1^70^Marital Status "DATA",160.16,5,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,5,"FIELD",15,2) BLANK "DATA",160.16,5,"FIELD",15,3) L,BLANK "DATA",160.16,5,"FIELD",16,0) 71^2^72^Race "DATA",160.16,5,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,5,"FIELD",16,2) BLANK "DATA",160.16,5,"FIELD",16,3) L,ZERO "DATA",160.16,5,"FIELD",17,0) 73^1^73^Race Coding-Current "DATA",160.16,5,"FIELD",17,1) S ACDANS="5" "DATA",160.16,5,"FIELD",17,2) BLANK "DATA",160.16,5,"FIELD",17,3) L,BLANK "DATA",160.16,5,"FIELD",18,0) 74^1^74^Race Coding-Original "DATA",160.16,5,"FIELD",18,1) S ACDANS="5" "DATA",160.16,5,"FIELD",18,2) BLANK "DATA",160.16,5,"FIELD",18,3) L,BLANK "DATA",160.16,5,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,5,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,5,"FIELD",19,2) BLANK "DATA",160.16,5,"FIELD",19,3) L,BLANK "DATA",160.16,5,"FIELD",20,0) 76^1^76^Computer-Derived Ethnicity "DATA",160.16,5,"FIELD",20,1) S ACDANS="" "DATA",160.16,5,"FIELD",20,2) BLANK "DATA",160.16,5,"FIELD",20,3) L,BLANK "DATA",160.16,5,"FIELD",21,0) 77^1^77^Computer-Derived Ethnicity Src "DATA",160.16,5,"FIELD",21,1) S ACDANS="" "DATA",160.16,5,"FIELD",21,2) BLANK "DATA",160.16,5,"FIELD",21,3) L,BLANK "DATA",160.16,5,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,5,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,5,"FIELD",22,2) BLANK "DATA",160.16,5,"FIELD",22,3) L,BLANK "DATA",160.16,5,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,5,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",23,2) BLANK "DATA",160.16,5,"FIELD",23,3) L,ZERO "DATA",160.16,5,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,5,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",24,2) NINE "DATA",160.16,5,"FIELD",24,3) L,ZERO "DATA",160.16,5,"FIELD",25,0) 90^3^92^Birth Place "DATA",160.16,5,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,5,"FIELD",25,2) NINE "DATA",160.16,5,"FIELD",25,3) L,ZERO "DATA",160.16,5,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,5,"FIELD",26,1) S ACDANS=99 "DATA",160.16,5,"FIELD",26,2) NINE "DATA",160.16,5,"FIELD",26,3) L,ZERO "DATA",160.16,5,"FIELD",27,0) 95^3^97^Occupation (Census) "DATA",160.16,5,"FIELD",27,1) S ACDANS="" "DATA",160.16,5,"FIELD",27,2) BLANK "DATA",160.16,5,"FIELD",27,3) L,BLANK "DATA",160.16,5,"FIELD",28,0) 98^3^100^Industry (Census) "DATA",160.16,5,"FIELD",28,1) S ACDANS="" "DATA",160.16,5,"FIELD",28,2) BLANK "DATA",160.16,5,"FIELD",28,3) L,BLANK "DATA",160.16,5,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,5,"FIELD",29,1) S ACDANS="" "DATA",160.16,5,"FIELD",29,2) BLANK "DATA",160.16,5,"FIELD",29,3) L,BLANK "DATA",160.16,5,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,5,"FIELD",30,1) S ACDANS="" "DATA",160.16,5,"FIELD",30,2) BLANK "DATA",160.16,5,"FIELD",30,3) L,BLANK "DATA",160.16,5,"FIELD",31,0) 103^40^142^Usual Occupation (Text) "DATA",160.16,5,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,5,"FIELD",31,2) BLANK "DATA",160.16,5,"FIELD",31,3) R,BLANK "DATA",160.16,5,"FIELD",32,0) 143^40^182^Usual Industry (Text) "DATA",160.16,5,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,5,"FIELD",32,2) BLANK "DATA",160.16,5,"FIELD",32,3) R,BLANK "DATA",160.16,5,"FIELD",33,0) 183^1^183^Occup/Ind. Coding System "DATA",160.16,5,"FIELD",33,1) S ACDANS="" "DATA",160.16,5,"FIELD",33,2) BLANK "DATA",160.16,5,"FIELD",33,3) L,BLANK "DATA",160.16,5,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,5,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",34,2) BLANK "DATA",160.16,5,"FIELD",34,3) L,BLANK "DATA",160.16,5,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,5,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",35,2) BLANK "DATA",160.16,5,"FIELD",35,3) L,BLANK "DATA",160.16,5,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,5,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") S:ACDANS'="" ACDANS=$S(ACDANS="Y":1,ACDANS="N":0,1:"") "DATA",160.16,5,"FIELD",36,2) BLANK "DATA",160.16,5,"FIELD",36,3) L,ZERO "DATA",160.16,5,"FIELD",37,0) 187^1^187^Census Tract Block Number "DATA",160.16,5,"FIELD",37,1) S ACDANS="" "DATA",160.16,5,"FIELD",37,2) BLANK "DATA",160.16,5,"FIELD",37,3) L,BLANK "DATA",160.16,5,"FIELD",38,0) 188^29^216^Reserved "DATA",160.16,5,"FIELD",38,1) S ACDANS="" "DATA",160.16,5,"FIELD",38,2) BLANK "DATA",160.16,5,"FIELD",38,3) L,BLANK "DATA",160.16,5,"FIELD",39,0) 217^2^218^Sequence Number-Central "DATA",160.16,5,"FIELD",39,1) S ACDANS="" "DATA",160.16,5,"FIELD",39,2) BLANK "DATA",160.16,5,"FIELD",39,3) L,BLANK "DATA",160.16,5,"FIELD",40,0) 219^8^226^Date Of Diagnosis "DATA",160.16,5,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",40,2) ZERO "DATA",160.16,5,"FIELD",40,3) L,ZERO "DATA",160.16,5,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,5,"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,5,"FIELD",41,2) ZERO "DATA",160.16,5,"FIELD",41,3) L,ZERO "DATA",160.16,5,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,5,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,5,"FIELD",42,2) BLANK "DATA",160.16,5,"FIELD",42,3) L,BLANK "DATA",160.16,5,"FIELD",43,0) 232^4^235^Histologic Type "DATA",160.16,5,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",43,2) ZERO "DATA",160.16,5,"FIELD",43,3) L,ZERO "DATA",160.16,5,"FIELD",44,0) 236^1^236^Behavior "DATA",160.16,5,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",44,2) ZERO "DATA",160.16,5,"FIELD",44,3) L,ZERO "DATA",160.16,5,"FIELD",45,0) 237^1^237^Grade or Differentiation "DATA",160.16,5,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,5,"FIELD",45,2) ZERO "DATA",160.16,5,"FIELD",45,3) L,ZERO "DATA",160.16,5,"FIELD",46,0) 238^1^238^Site Coding System-Cur.. "DATA",160.16,5,"FIELD",46,1) S ACDANS=4 "DATA",160.16,5,"FIELD",46,2) ZERO "DATA",160.16,5,"FIELD",46,3) L,ZERO "DATA",160.16,5,"FIELD",47,0) 239^1^239^Site Coding System-Org. "DATA",160.16,5,"FIELD",47,1) S ACDANS=4 "DATA",160.16,5,"FIELD",47,2) ZERO "DATA",160.16,5,"FIELD",47,3) L,ZERO "DATA",160.16,5,"FIELD",48,0) 240^1^240^Morph. Coding System-Cur "DATA",160.16,5,"FIELD",48,1) S ACDANS=5 "DATA",160.16,5,"FIELD",48,2) ZERO "DATA",160.16,5,"FIELD",48,3) L,ZERO "DATA",160.16,5,"FIELD",49,0) 241^1^241^Morph. Coding System-Org. "DATA",160.16,5,"FIELD",49,1) S ACDANS=5 "DATA",160.16,5,"FIELD",49,2) ZERO "DATA",160.16,5,"FIELD",49,3) L,ZERO "DATA",160.16,5,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,5,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,5,"FIELD",50,2) NINE "DATA",160.16,5,"FIELD",50,3) L,ZERO "DATA",160.16,5,"FIELD",51,0) 243^1^243^Type of reporting Source "DATA",160.16,5,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,5,"FIELD",51,2) BLANK "DATA",160.16,5,"FIELD",51,3) L,BLANK "DATA",160.16,5,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,5,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",52,2) BLANK "DATA",160.16,5,"FIELD",52,3) L,BLANK "DATA",160.16,5,"FIELD",53,0) 252^1^252^Screening Results "DATA",160.16,5,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,5,"FIELD",53,2) BLANK "DATA",160.16,5,"FIELD",53,3) L,BLANK "DATA",160.16,5,"FIELD",54,0) 253^30^282^Reserved "DATA",160.16,5,"FIELD",54,1) S ACDANS="" "DATA",160.16,5,"FIELD",54,2) BLANK "DATA",160.16,5,"FIELD",54,3) L,BLANK "DATA",160.16,5,"FIELD",55,0) 283^6^288^Reporting Hospital "DATA",160.16,5,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,5,"FIELD",55,2) ZERO "DATA",160.16,5,"FIELD",55,3) L,ZERO "DATA",160.16,5,"FIELD",56,0) 289^6^294^Accession Number (Hospital) "DATA",160.16,5,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,5,"FIELD",56,2) ZERO "DATA",160.16,5,"FIELD",56,3) L,ZERO "DATA",160.16,5,"FIELD",57,0) 295^2^296^Sequence Number-Hospital "DATA",160.16,5,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,5,"FIELD",57,2) ZERO "DATA",160.16,5,"FIELD",57,3) L,ZERO "DATA",160.16,5,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,5,"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,5,"FIELD",58,2) BLANK "DATA",160.16,5,"FIELD",58,3) L,BLANK "DATA",160.16,5,"FIELD",59,0) 300^8^307^Date of Admission/First Contact "DATA",160.16,5,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",59,2) ZERO "DATA",160.16,5,"FIELD",59,3) L,ZERO "DATA",160.16,5,"FIELD",60,0) 308^8^315^Date of Inpatient Admission (COC) "DATA",160.16,5,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",60,2) ZERO "DATA",160.16,5,"FIELD",60,3) L,ZERO "DATA",160.16,5,"FIELD",61,0) 316^8^323^Date of Inpatient Discharge "DATA",160.16,5,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",61,2) ZERO "DATA",160.16,5,"FIELD",61,3) L,ZERO "DATA",160.16,5,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,5,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,5,"FIELD",62,2) ZERO "DATA",160.16,5,"FIELD",62,3) L,ZERO "DATA",160.16,5,"FIELD",63,0) 325^4^328^Year 1st Seen for Primary (Acc Yr.) "DATA",160.16,5,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,5,"FIELD",63,2) ZERO "DATA",160.16,5,"FIELD",63,3) L,ZERO "DATA",160.16,5,"FIELD",64,0) 329^2^330^Primary Payer At Diagnosis "DATA",160.16,5,"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,5,"FIELD",64,2) BLANK "DATA",160.16,5,"FIELD",64,3) L,BLANK "DATA",160.16,5,"FIELD",65,0) 331^1^331^In/Out Patient Status "DATA",160.16,5,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,5,"FIELD",65,2) BLANK "DATA",160.16,5,"FIELD",65,3) L,BLANK "DATA",160.16,5,"FIELD",66,0) 332^1^332^Presentation At Cancer Conference "DATA",160.16,5,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,5,"FIELD",66,2) BLANK "DATA",160.16,5,"FIELD",66,3) L,BLANK "DATA",160.16,5,"FIELD",67,0) 333^8^340^Date of Conference "DATA",160.16,5,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",67,2) BLANK "DATA",160.16,5,"FIELD",67,3) L,BLANK "DATA",160.16,5,"FIELD",68,0) 341^2^342^RX Hospital-CA Directed Surgery "DATA",160.16,5,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,5,"FIELD",68,2) NINE "DATA",160.16,5,"FIELD",68,3) L,ZERO "DATA",160.16,5,"FIELD",69,0) 343^8^350^Reserved "DATA",160.16,5,"FIELD",69,1) S ACDANS="" "DATA",160.16,5,"FIELD",69,2) BLANK "DATA",160.16,5,"FIELD",69,3) L,BLANK "DATA",160.16,5,"FIELD",70,0) 351^1^351^RX Hosp. Radiation "DATA",160.16,5,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,5,"FIELD",70,2) BLANK "DATA",160.16,5,"FIELD",70,3) L,ZERO "DATA",160.16,5,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,5,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,5,"FIELD",71,2) BLANK "DATA",160.16,5,"FIELD",71,3) L,ZERO "DATA",160.16,5,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,5,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,5,"FIELD",72,2) BLANK "DATA",160.16,5,"FIELD",72,3) L,ZERO "DATA",160.16,5,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,5,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,5,"FIELD",73,2) BLANK "DATA",160.16,5,"FIELD",73,3) L,ZERO "DATA",160.16,5,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,5,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,5,"FIELD",74,2) BLANK "DATA",160.16,5,"FIELD",74,3) L,ZERO "DATA",160.16,5,"FIELD",75,0) 356^2^357^RX Hosp.-Non CA Directed Surgery "DATA",160.16,5,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,5,"FIELD",75,2) NINE "DATA",160.16,5,"FIELD",75,3) L,ZERO "DATA",160.16,5,"FIELD",76,0) 358^30^387^Reserved "DATA",160.16,5,"FIELD",76,1) S ACDANS="" "DATA",160.16,5,"FIELD",76,2) BLANK "DATA",160.16,5,"FIELD",76,3) L,BLANK "DATA",160.16,5,"FIELD",77,0) 388^1^388^General Summary Stage "DATA",160.16,5,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,5,"FIELD",77,2) BLANK "DATA",160.16,5,"FIELD",77,3) L,BLANK "DATA",160.16,5,"FIELD",78,0) 389^1^389^Local/Regional/Distant Stage "DATA",160.16,5,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",78,2) BLANK "DATA",160.16,5,"FIELD",78,3) L,BLANK "DATA",160.16,5,"FIELD",79,0) 390^3^392^EOD Tumor Size "DATA",160.16,5,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,5,"FIELD",79,2) BLANK "DATA",160.16,5,"FIELD",79,3) L,ZERO "DATA",160.16,5,"FIELD",80,0) 393^2^394^EOD Extension "DATA",160.16,5,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,5,"FIELD",80,2) BLANK "DATA",160.16,5,"FIELD",80,3) L,ZERO "DATA",160.16,5,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,5,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,5,"FIELD",81,2) BLANK "DATA",160.16,5,"FIELD",81,3) L,ZERO "DATA",160.16,5,"FIELD",82,0) 397^1^397^EOD Lymph Nodes "DATA",160.16,5,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,5,"FIELD",82,2) BLANK "DATA",160.16,5,"FIELD",82,3) L,BLANK "DATA",160.16,5,"FIELD",83,0) 398^2^399^Regional Nodes Pos. "DATA",160.16,5,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,5,"FIELD",83,2) ZERO "DATA",160.16,5,"FIELD",83,3) L,ZERO "DATA",160.16,5,"FIELD",84,0) 400^2^401^Regional Nodes Exam. "DATA",160.16,5,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,5,"FIELD",84,2) ZERO "DATA",160.16,5,"FIELD",84,3) L,ZERO "DATA",160.16,5,"FIELD",85,0) 402^13^414^EOD-old 13 Digit "DATA",160.16,5,"FIELD",85,1) S ACDANS="" "DATA",160.16,5,"FIELD",85,2) BLANK "DATA",160.16,5,"FIELD",85,3) L,BLANK "DATA",160.16,5,"FIELD",86,0) 415^2^416^EOD-old 2 Digit "DATA",160.16,5,"FIELD",86,1) S ACDANS="" "DATA",160.16,5,"FIELD",86,2) BLANK "DATA",160.16,5,"FIELD",86,3) L,BLANK "DATA",160.16,5,"FIELD",87,0) 417^4^420^EOD-old 4 Digit "DATA",160.16,5,"FIELD",87,1) S ACDANS="" "DATA",160.16,5,"FIELD",87,2) BLANK "DATA",160.16,5,"FIELD",87,3) L,BLANK "DATA",160.16,5,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,5,"FIELD",88,1) S ACDANS="1" "DATA",160.16,5,"FIELD",88,2) BLANK "DATA",160.16,5,"FIELD",88,3) L,BLANK "DATA",160.16,5,"FIELD",89,0) 422^2^423^T Code of TNM (Pathologic) "DATA",160.16,5,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,5,"FIELD",89,2) BLANK "DATA",160.16,5,"FIELD",89,3) R,BLANK "DATA",160.16,5,"FIELD",90,0) 424^2^425^N Code of TNM (Pathologic) "DATA",160.16,5,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,5,"FIELD",90,2) BLANK "DATA",160.16,5,"FIELD",90,3) R,BLANK "DATA",160.16,5,"FIELD",91,0) 426^2^427^M Code of TNM (Pathologic) "DATA",160.16,5,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,5,"FIELD",91,2) BLANK "DATA",160.16,5,"FIELD",91,3) R,BLANK "DATA",160.16,5,"FIELD",92,0) 428^2^429^Pathologic Stage Group "DATA",160.16,5,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,5,"FIELD",92,2) BLANK "DATA",160.16,5,"FIELD",92,3) R,BLANK "DATA",160.16,5,"FIELD",93,0) 430^1^430^Pathologic Stage(Pref./Suf.)Desc. "DATA",160.16,5,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,5,"FIELD",93,2) ZERO "DATA",160.16,5,"FIELD",93,3) L,ZERO "DATA",160.16,5,"FIELD",94,0) 431^1^431^Pathologic Stage By "DATA",160.16,5,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,5,"FIELD",94,2) BLANK "DATA",160.16,5,"FIELD",94,3) L,BLANK "DATA",160.16,5,"FIELD",95,0) 432^2^433^Clinical T Code "DATA",160.16,5,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,5,"FIELD",95,2) BLANK "DATA",160.16,5,"FIELD",95,3) R,BLANK "DATA",160.16,5,"FIELD",96,0) 434^2^435^Clinical N Code "DATA",160.16,5,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,5,"FIELD",96,2) BLANK "DATA",160.16,5,"FIELD",96,3) R,BLANK "DATA",160.16,5,"FIELD",97,0) 436^2^437^Clinical M Code "DATA",160.16,5,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,5,"FIELD",97,2) BLANK "DATA",160.16,5,"FIELD",97,3) R,BLANK "DATA",160.16,5,"FIELD",98,0) 438^2^439^Clinical Stage Group "DATA",160.16,5,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,5,"FIELD",98,2) BLANK "DATA",160.16,5,"FIELD",98,3) R,BLANK "DATA",160.16,5,"FIELD",99,0) 440^1^440^Clinical Stage (Pref./Suf.) Desc. "DATA",160.16,5,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,5,"FIELD",99,2) ZERO "DATA",160.16,5,"FIELD",99,3) L,ZERO "DATA",160.16,5,"FIELD",100,0) 441^1^441^Clinical Staged By "DATA",160.16,5,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,5,"FIELD",100,2) BLANK "DATA",160.16,5,"FIELD",100,3) L,BLANK "DATA",160.16,5,"FIELD",101,0) 442^2^443^Other T Code "DATA",160.16,5,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") "DATA",160.16,5,"FIELD",101,2) BLANK "DATA",160.16,5,"FIELD",101,3) R,BLANK "DATA",160.16,5,"FIELD",102,0) 444^2^445^Other N Code "DATA",160.16,5,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,5,"FIELD",102,2) BLANK "DATA",160.16,5,"FIELD",102,3) R,BLANK "DATA",160.16,5,"FIELD",103,0) 446^2^447^Other M Code "DATA",160.16,5,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,5,"FIELD",103,2) BLANK "DATA",160.16,5,"FIELD",103,3) R,BLANK "DATA",160.16,5,"FIELD",104,0) 448^2^449^Other Stage Group "DATA",160.16,5,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,5,"FIELD",104,2) BLANK "DATA",160.16,5,"FIELD",104,3) R,BLANK "DATA",160.16,5,"FIELD",105,0) 450^1^450^Other Stage By "DATA",160.16,5,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,5,"FIELD",105,2) BLANK "DATA",160.16,5,"FIELD",105,3) L,BLANK "DATA",160.16,5,"FIELD",106,0) 451^1^451^Other Stage (Pref./Suf.) Desc. "DATA",160.16,5,"FIELD",106,1) S ACDANS="" "DATA",160.16,5,"FIELD",106,2) BLANK "DATA",160.16,5,"FIELD",106,3) L,BLANK "DATA",160.16,5,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,5,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",107,2) BLANK "DATA",160.16,5,"FIELD",107,3) L,BLANK "DATA",160.16,5,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,5,"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,5,"FIELD",108,2) BLANK "DATA",160.16,5,"FIELD",108,3) L,BLANK "DATA",160.16,5,"FIELD",109,0) 468^8^475^Date of 1st Positive Biopsy "DATA",160.16,5,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",109,2) BLANK "DATA",160.16,5,"FIELD",109,3) L,BLANK "DATA",160.16,5,"FIELD",110,0) 476^1^476^Site of Distant Mets. #1 "DATA",160.16,5,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,5,"FIELD",110,2) BLANK "DATA",160.16,5,"FIELD",110,3) L,BLANK "DATA",160.16,5,"FIELD",111,0) 477^1^477^Site of Distant Mets. #2 "DATA",160.16,5,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,5,"FIELD",111,2) BLANK "DATA",160.16,5,"FIELD",111,3) L,BLANK "DATA",160.16,5,"FIELD",112,0) 478^1^478^Site of Distant Mets. #3 "DATA",160.16,5,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,5,"FIELD",112,2) BLANK "DATA",160.16,5,"FIELD",112,3) L,BLANK "DATA",160.16,5,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,5,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,5,"FIELD",113,2) BLANK "DATA",160.16,5,"FIELD",113,3) L,BLANK "DATA",160.16,5,"FIELD",114,0) 481^2^482^Pediatric Staging System Type "DATA",160.16,5,"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,5,"FIELD",114,2) BLANK "DATA",160.16,5,"FIELD",114,3) L,BLANK "DATA",160.16,5,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,5,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,5,"FIELD",115,2) BLANK "DATA",160.16,5,"FIELD",115,3) L,BLANK "DATA",160.16,5,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,5,"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,5,"FIELD",116,2) BLANK "DATA",160.16,5,"FIELD",116,3) L,BLANK "DATA",160.16,5,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,5,"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,5,"FIELD",117,2) BLANK "DATA",160.16,5,"FIELD",117,3) L,BLANK "DATA",160.16,5,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,5,"FIELD",118,1) S ACDANS="" "DATA",160.16,5,"FIELD",118,2) BLANK "DATA",160.16,5,"FIELD",118,3) L,BLANK "DATA",160.16,5,"FIELD",119,0) 487^49^535^Reserved "DATA",160.16,5,"FIELD",119,1) S ACDANS="" "DATA",160.16,5,"FIELD",119,2) BLANK "DATA",160.16,5,"FIELD",119,3) L,BLANK "DATA",160.16,5,"FIELD",120,0) 536^1^536^Reserved Old Record Version "DATA",160.16,5,"FIELD",120,1) S ACDANS="" "DATA",160.16,5,"FIELD",120,2) BLANK "DATA",160.16,5,"FIELD",120,3) L,BLANK "DATA",160.16,5,"FIELD",121,0) 537^8^544^RX Date - Surgery "DATA",160.16,5,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,5,"FIELD",121,2) NINE "DATA",160.16,5,"FIELD",121,3) L,BLANK "DATA",160.16,5,"FIELD",122,0) 545^8^552^RX Date - Radiation "DATA",160.16,5,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,5,"FIELD",122,2) NINE "DATA",160.16,5,"FIELD",122,3) L,BLANK "DATA",160.16,5,"FIELD",123,0) 553^8^560^RX Date - Chemo. "DATA",160.16,5,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,5,"FIELD",123,2) NINE "DATA",160.16,5,"FIELD",123,3) L,BLANK "DATA",160.16,5,"FIELD",124,0) 561^8^568^RX Date - Hormone/Steroid "DATA",160.16,5,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,5,"FIELD",124,2) NINE "DATA",160.16,5,"FIELD",124,3) L,BLANK "DATA",160.16,5,"FIELD",125,0) 569^8^576^RX Date - Biological Resp. Mod. "DATA",160.16,5,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,5,"FIELD",125,2) NINE "DATA",160.16,5,"FIELD",125,3) L,BLANK "DATA",160.16,5,"FIELD",126,0) 577^8^584^RX Date - Other Cancer Dir. "DATA",160.16,5,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,5,"FIELD",126,2) NINE "DATA",160.16,5,"FIELD",126,3) L,BLANK "DATA",160.16,5,"FIELD",127,0) 585^8^592^Date of Initial Treatment "DATA",160.16,5,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",127,2) ZERO "DATA",160.16,5,"FIELD",127,3) L,ZERO "DATA",160.16,5,"FIELD",128,0) 593^8^600^Date of 1st Course RX (COC) "DATA",160.16,5,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",128,2) ZERO "DATA",160.16,5,"FIELD",128,3) L,ZERO "DATA",160.16,5,"FIELD",129,0) 601^8^608^RX Date-Non Cancer Dir. Surgery "DATA",160.16,5,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",129,2) ZERO "DATA",160.16,5,"FIELD",129,3) L,ZERO "DATA",160.16,5,"FIELD",130,0) 609^2^610^RX Summary-Surgery Type "DATA",160.16,5,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,5,"FIELD",130,2) ZERO "DATA",160.16,5,"FIELD",130,3) L,ZERO "DATA",160.16,5,"FIELD",131,0) 611^8^618^Reserved For 1997 "DATA",160.16,5,"FIELD",131,1) S ACDANS="" "DATA",160.16,5,"FIELD",131,2) BLANK "DATA",160.16,5,"FIELD",131,3) L,BLANK "DATA",160.16,5,"FIELD",132,0) 619^1^619^Surgical Approach "DATA",160.16,5,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,5,"FIELD",132,2) BLANK "DATA",160.16,5,"FIELD",132,3) L,BLANK "DATA",160.16,5,"FIELD",133,0) 620^1^620^Residual Tumor "DATA",160.16,5,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,5,"FIELD",133,2) BLANK "DATA",160.16,5,"FIELD",133,3) L,BLANK "DATA",160.16,5,"FIELD",134,0) 621^1^621^Re-constructive Surgery "DATA",160.16,5,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,5,"FIELD",134,2) BLANK "DATA",160.16,5,"FIELD",134,3) L,BLANK "DATA",160.16,5,"FIELD",135,0) 622^1^622^Reason for no Surgery "DATA",160.16,5,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,5,"FIELD",135,2) BLANK "DATA",160.16,5,"FIELD",135,3) L,BLANK "DATA",160.16,5,"FIELD",136,0) 623^2^624^RX Summary Non-Can. Dir. Surg. "DATA",160.16,5,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,5,"FIELD",136,2) NINE "DATA",160.16,5,"FIELD",136,3) L,ZERO "DATA",160.16,5,"FIELD",137,0) 625^1^625^RX Summary-Radiation "DATA",160.16,5,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,5,"FIELD",137,2) NINE "DATA",160.16,5,"FIELD",137,3) L,ZERO "DATA",160.16,5,"FIELD",138,0) 626^1^626^RX Summary-Rad. to CNS "DATA",160.16,5,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,5,"FIELD",138,2) NINE "DATA",160.16,5,"FIELD",138,3) L,ZERO "DATA",160.16,5,"FIELD",139,0) 627^1^627^RX Summary-Surg./Rad. Type "DATA",160.16,5,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,5,"FIELD",139,2) NINE "DATA",160.16,5,"FIELD",139,3) L,ZERO "DATA",160.16,5,"FIELD",140,0) 628^1^628^RX Summary- Chemo "DATA",160.16,5,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,5,"FIELD",140,2) NINE "DATA",160.16,5,"FIELD",140,3) L,ZERO "DATA",160.16,5,"FIELD",141,0) 629^1^629^RX Summary- Hormone "DATA",160.16,5,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,5,"FIELD",141,2) NINE "DATA",160.16,5,"FIELD",141,3) L,ZERO "DATA",160.16,5,"FIELD",142,0) 630^1^630^RX Summary- BRM "DATA",160.16,5,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,5,"FIELD",142,2) NINE "DATA",160.16,5,"FIELD",142,3) L,ZERO "DATA",160.16,5,"FIELD",143,0) 631^1^631^RX Summary- Other "DATA",160.16,5,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,5,"FIELD",143,2) NINE "DATA",160.16,5,"FIELD",143,3) L,ZERO "DATA",160.16,5,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,5,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,5,"FIELD",144,2) BLANK "DATA",160.16,5,"FIELD",144,3) L,BLANK "DATA",160.16,5,"FIELD",145,0) 633^1^633^Reasons for No Chemotherapy "DATA",160.16,5,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,5,"FIELD",145,2) BLANK "DATA",160.16,5,"FIELD",145,3) L,BLANK "DATA",160.16,5,"FIELD",146,0) 634^1^634^Reasons for No Hormone Therapy "DATA",160.16,5,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,5,"FIELD",146,2) BLANK "DATA",160.16,5,"FIELD",146,3) L,BLANK "DATA",160.16,5,"FIELD",147,0) 635^1^635^RX Coding System-Current "DATA",160.16,5,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,5,"FIELD",147,2) ZERO "DATA",160.16,5,"FIELD",147,3) L,ZERO "DATA",160.16,5,"FIELD",148,0) 636^1^636^Protocol Eligibility Status "DATA",160.16,5,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,5,"FIELD",148,2) BLANK "DATA",160.16,5,"FIELD",148,3) L,BLANK "DATA",160.16,5,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,5,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,5,"FIELD",149,2) BLANK "DATA",160.16,5,"FIELD",149,3) L,BLANK "DATA",160.16,5,"FIELD",150,0) 639^1^639^Referral to Support Service "DATA",160.16,5,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,5,"FIELD",150,2) BLANK "DATA",160.16,5,"FIELD",150,3) L,BLANK "DATA",160.16,5,"FIELD",151,0) 640^1^640^First Course Calc. Method "DATA",160.16,5,"FIELD",151,1) S ACDANS="1" "DATA",160.16,5,"FIELD",151,2) BLANK "DATA",160.16,5,"FIELD",151,3) L,BLANK "DATA",160.16,5,"FIELD",152,0) 641^5^645^Regional Dose: cGy "DATA",160.16,5,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,5,"FIELD",152,2) NINE "DATA",160.16,5,"FIELD",152,3) L,ZERO "DATA",160.16,5,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,5,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,5,"FIELD",153,2) NINE "DATA",160.16,5,"FIELD",153,3) L,ZERO "DATA",160.16,5,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,5,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,5,"FIELD",154,2) NINE "DATA",160.16,5,"FIELD",154,3) L,ZERO "DATA",160.16,5,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,5,"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,5,"FIELD",155,2) NINE "DATA",160.16,5,"FIELD",155,3) L,ZERO "DATA",160.16,5,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,5,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,5,"FIELD",156,2) NINE "DATA",160.16,5,"FIELD",156,3) L,ZERO "DATA",160.16,5,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,5,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,5,"FIELD",157,2) NINE "DATA",160.16,5,"FIELD",157,3) L,ZERO "DATA",160.16,5,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,5,"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,5,"FIELD",158,2) NINE "DATA",160.16,5,"FIELD",158,3) L,ZERO "DATA",160.16,5,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,5,"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,5,"FIELD",159,2) NINE "DATA",160.16,5,"FIELD",159,3) L,ZERO "DATA",160.16,5,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,5,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,5,"FIELD",160,2) NINE "DATA",160.16,5,"FIELD",160,3) L,ZERO "DATA",160.16,5,"FIELD",161,0) 659^3^661^Chem. Related Field #1 "DATA",160.16,5,"FIELD",161,1) S ACDANS="" "DATA",160.16,5,"FIELD",161,2) BLANK "DATA",160.16,5,"FIELD",161,3) L,BLANK "DATA",160.16,5,"FIELD",162,0) 662^3^664^Chem. Related Field #2 "DATA",160.16,5,"FIELD",162,1) S ACDANS="" "DATA",160.16,5,"FIELD",162,2) BLANK "DATA",160.16,5,"FIELD",162,3) L,BLANK "DATA",160.16,5,"FIELD",163,0) 665^3^667^Chem. Related Field #3 "DATA",160.16,5,"FIELD",163,1) S ACDANS="" "DATA",160.16,5,"FIELD",163,2) BLANK "DATA",160.16,5,"FIELD",163,3) L,BLANK "DATA",160.16,5,"FIELD",164,0) 668^3^670^Chem. Related Field #4 "DATA",160.16,5,"FIELD",164,1) S ACDANS="" "DATA",160.16,5,"FIELD",164,2) BLANK "DATA",160.16,5,"FIELD",164,3) L,BLANK "DATA",160.16,5,"FIELD",165,0) 671^2^672^RX Summary-Surgery (pre-96 Cod) "DATA",160.16,5,"FIELD",165,1) S ACDANS="" "DATA",160.16,5,"FIELD",165,2) BLANK "DATA",160.16,5,"FIELD",165,3) L,BLANK "DATA",160.16,5,"FIELD",166,0) 673^28^700^Reserved "DATA",160.16,5,"FIELD",166,1) S ACDANS="" "DATA",160.16,5,"FIELD",166,2) BLANK "DATA",160.16,5,"FIELD",166,3) L,BLANK "DATA",160.16,5,"FIELD",167,0) 701^8^708^Subseq RX - Date (#2) "DATA",160.16,5,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",167,2) BLANK "DATA",160.16,5,"FIELD",167,3) L,BLANK "DATA",160.16,5,"FIELD",168,0) 709^2^710^Subseq RX - Code (#2) Surgery "DATA",160.16,5,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,5,"FIELD",168,2) BLANK "DATA",160.16,5,"FIELD",168,3) L,BLANK "DATA",160.16,5,"FIELD",169,0) 711^1^711^Subseq RX - Code (#2) Radiation "DATA",160.16,5,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,5,"FIELD",169,2) BLANK "DATA",160.16,5,"FIELD",169,3) L,BLANK "DATA",160.16,5,"FIELD",170,0) 712^1^712^Subseq RX - Code (#2) Chem. "DATA",160.16,5,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,5,"FIELD",170,2) BLANK "DATA",160.16,5,"FIELD",170,3) L,BLANK "DATA",160.16,5,"FIELD",171,0) 713^1^713^Subseq RX - Code (#2) Hormone "DATA",160.16,5,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,5,"FIELD",171,2) BLANK "DATA",160.16,5,"FIELD",171,3) L,BLANK "DATA",160.16,5,"FIELD",172,0) 714^1^714^Subseq RX - Code (#2) Biological "DATA",160.16,5,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,5,"FIELD",172,2) BLANK "DATA",160.16,5,"FIELD",172,3) L,BLANK "DATA",160.16,5,"FIELD",173,0) 715^1^715^Subseq RX - Code (#2) Other "DATA",160.16,5,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,5,"FIELD",173,2) BLANK "DATA",160.16,5,"FIELD",173,3) L,BLANK "DATA",160.16,5,"FIELD",174,0) 716^8^723^Subseq RX - Date (#3) "DATA",160.16,5,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",174,2) BLANK "DATA",160.16,5,"FIELD",174,3) L,BLANK "DATA",160.16,5,"FIELD",175,0) 724^2^725^Subseq RX - Code (#3) Surgery "DATA",160.16,5,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,5,"FIELD",175,2) BLANK "DATA",160.16,5,"FIELD",175,3) L,BLANK "DATA",160.16,5,"FIELD",176,0) 726^1^726^Subseq RX - Code (#3) Radiation "DATA",160.16,5,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,5,"FIELD",176,2) BLANK "DATA",160.16,5,"FIELD",176,3) L,BLANK "DATA",160.16,5,"FIELD",177,0) 727^1^727^Subseq RX - Code (#3) Chemo. "DATA",160.16,5,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,5,"FIELD",177,2) BLANK "DATA",160.16,5,"FIELD",177,3) L,BLANK "DATA",160.16,5,"FIELD",178,0) 728^1^728^Subseq RX - Code (#3) Hormone "DATA",160.16,5,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,5,"FIELD",178,2) BLANK "DATA",160.16,5,"FIELD",178,3) L,BLANK "DATA",160.16,5,"FIELD",179,0) 729^1^729^Subseq RX - Code (#3) Biological "DATA",160.16,5,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,5,"FIELD",179,2) BLANK "DATA",160.16,5,"FIELD",179,3) L,BLANK "DATA",160.16,5,"FIELD",180,0) 730^1^730^Subseq RX - Code (#3) Other "DATA",160.16,5,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,5,"FIELD",180,2) BLANK "DATA",160.16,5,"FIELD",180,3) L,BLANK "DATA",160.16,5,"FIELD",181,0) 731^8^738^Subseq RX - Date (#4) "DATA",160.16,5,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",181,2) BLANK "DATA",160.16,5,"FIELD",181,3) L,BLANK "DATA",160.16,5,"FIELD",182,0) 739^2^740^Subseq RX - Code (#4) Surgery "DATA",160.16,5,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,5,"FIELD",182,2) BLANK "DATA",160.16,5,"FIELD",182,3) L,BLANK "DATA",160.16,5,"FIELD",183,0) 741^1^741^Subseq RX - Code (#4) Radiation "DATA",160.16,5,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,5,"FIELD",183,2) BLANK "DATA",160.16,5,"FIELD",183,3) L,BLANK "DATA",160.16,5,"FIELD",184,0) 742^1^742^Subseq RX - Code (#4) Chemo. "DATA",160.16,5,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,5,"FIELD",184,2) BLANK "DATA",160.16,5,"FIELD",184,3) L,BLANK "DATA",160.16,5,"FIELD",185,0) 743^1^743^Subseq RX - Code (#4) Hormone "DATA",160.16,5,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,5,"FIELD",185,2) BLANK "DATA",160.16,5,"FIELD",185,3) L,BLANK "DATA",160.16,5,"FIELD",186,0) 744^1^744^Subseq RX - Code (#4) Biological "DATA",160.16,5,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,5,"FIELD",186,2) BLANK "DATA",160.16,5,"FIELD",186,3) L,BLANK "DATA",160.16,5,"FIELD",187,0) 745^1^745^Subseq RX - Code (#4) Other "DATA",160.16,5,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,5,"FIELD",187,2) BLANK "DATA",160.16,5,"FIELD",187,3) L,BLANK "DATA",160.16,5,"FIELD",188,0) 746^8^753^Subseq RX - Date (#5) "DATA",160.16,5,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",188,2) BLANK "DATA",160.16,5,"FIELD",188,3) L,BLANK "DATA",160.16,5,"FIELD",189,0) 754^2^755^Subseq RX - Code (#5) Surgery "DATA",160.16,5,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,5,"FIELD",189,2) BLANK "DATA",160.16,5,"FIELD",189,3) L,BLANK "DATA",160.16,5,"FIELD",190,0) 756^1^756^Subseq RX - Code (#5) Radiation "DATA",160.16,5,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,5,"FIELD",190,2) BLANK "DATA",160.16,5,"FIELD",190,3) L,BLANK "DATA",160.16,5,"FIELD",191,0) 757^1^757^Subseq RX - Code (#5) Chemo. "DATA",160.16,5,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,5,"FIELD",191,2) BLANK "DATA",160.16,5,"FIELD",191,3) L,BLANK "DATA",160.16,5,"FIELD",192,0) 758^1^758^Subseq RX - Code (#5) Hormone "DATA",160.16,5,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,5,"FIELD",192,2) BLANK "DATA",160.16,5,"FIELD",192,3) L,BLANK "DATA",160.16,5,"FIELD",193,0) 759^1^759^Subseq RX - Code (#5) Biological "DATA",160.16,5,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,5,"FIELD",193,2) BLANK "DATA",160.16,5,"FIELD",193,3) L,BLANK "DATA",160.16,5,"FIELD",194,0) 760^1^760^Subseq RX - Code (#5) Other "DATA",160.16,5,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,5,"FIELD",194,2) BLANK "DATA",160.16,5,"FIELD",194,3) L,BLANK "DATA",160.16,5,"FIELD",195,0) 761^30^790^Reserved "DATA",160.16,5,"FIELD",195,1) S ACDANS="" "DATA",160.16,5,"FIELD",195,2) BLANK "DATA",160.16,5,"FIELD",195,3) L,BLANK "DATA",160.16,5,"FIELD",196,0) 791^8^798^Date of last Contact "DATA",160.16,5,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",196,2) NINE "DATA",160.16,5,"FIELD",196,3) L,BLANK "DATA",160.16,5,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,5,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,5,"FIELD",197,2) NINE "DATA",160.16,5,"FIELD",197,3) L,BLANK "DATA",160.16,5,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,5,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,5,"FIELD",198,2) NINE "DATA",160.16,5,"FIELD",198,3) L,BLANK "DATA",160.16,5,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,5,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,5,"FIELD",199,2) BLANK "DATA",160.16,5,"FIELD",199,3) L,BLANK "DATA",160.16,5,"FIELD",200,0) 802^1^802^Last Type of Follow-up "DATA",160.16,5,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,5,"FIELD",200,2) BLANK "DATA",160.16,5,"FIELD",200,3) L,BLANK "DATA",160.16,5,"FIELD",201,0) 803^1^803^Next Follow-up Method "DATA",160.16,5,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,5,"FIELD",201,2) BLANK "DATA",160.16,5,"FIELD",201,3) L,BLANK "DATA",160.16,5,"FIELD",202,0) 804^20^823^City/Town - Current "DATA",160.16,5,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,5,"FIELD",202,2) BLANK "DATA",160.16,5,"FIELD",202,3) R,BLANK "DATA",160.16,5,"FIELD",203,0) 824^2^825^State - Current "DATA",160.16,5,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,5,"FIELD",203,2) BLANK "DATA",160.16,5,"FIELD",203,3) R,BLANK "DATA",160.16,5,"FIELD",204,0) 826^9^834^Postal Code "DATA",160.16,5,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,5,"FIELD",204,2) BLANK "DATA",160.16,5,"FIELD",204,3) R,BLANK "DATA",160.16,5,"FIELD",205,0) 835^2^836^Reserved "DATA",160.16,5,"FIELD",205,1) S ACDANS="" "DATA",160.16,5,"FIELD",205,2) BLANK "DATA",160.16,5,"FIELD",205,3) L,BLANK "DATA",160.16,5,"FIELD",206,0) 837^1^837^Unusual Follow-up Method "DATA",160.16,5,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,5,"FIELD",206,2) BLANK "DATA",160.16,5,"FIELD",206,3) L,BLANK "DATA",160.16,5,"FIELD",207,0) 838^8^845^Date of First Recurrence "DATA",160.16,5,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",207,2) ZERO "DATA",160.16,5,"FIELD",207,3) L,ZERO "DATA",160.16,5,"FIELD",208,0) 846^3^848^Site of First Recurrence "DATA",160.16,5,"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,5,"FIELD",208,2) BLANK "DATA",160.16,5,"FIELD",208,3) L,BLANK "DATA",160.16,5,"FIELD",209,0) 849^2^850^Type of First Recurrence "DATA",160.16,5,"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,5,"FIELD",209,2) ZERO "DATA",160.16,5,"FIELD",209,3) L,ZERO "DATA",160.16,5,"FIELD",210,0) 851^2^852^Other Type of First Recurrence "DATA",160.16,5,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") "DATA",160.16,5,"FIELD",210,2) BLANK "DATA",160.16,5,"FIELD",210,3) L,BLANK "DATA",160.16,5,"FIELD",211,0) 853^3^855^County - Current "DATA",160.16,5,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,5,"FIELD",211,2) BLANK "DATA",160.16,5,"FIELD",211,3) L,BLANK "DATA",160.16,5,"FIELD",212,0) 856^27^882^Reserved "DATA",160.16,5,"FIELD",212,1) S ACDANS="" "DATA",160.16,5,"FIELD",212,2) BLANK "DATA",160.16,5,"FIELD",212,3) L,BLANK "DATA",160.16,5,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,5,"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") "DATA",160.16,5,"FIELD",213,2) ZERO "DATA",160.16,5,"FIELD",213,3) L,ZERO "DATA",160.16,5,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,5,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,5,"FIELD",214,2) ZERO "DATA",160.16,5,"FIELD",214,3) L,ZERO "DATA",160.16,5,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,5,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,5,"FIELD",215,2) BLANK "DATA",160.16,5,"FIELD",215,3) L,BLANK "DATA",160.16,5,"FIELD",216,0) 889^3^891^Place of death "DATA",160.16,5,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,5,"FIELD",216,2) BLANK "DATA",160.16,5,"FIELD",216,3) L,BLANK "DATA",160.16,5,"FIELD",217,0) 892^10^901^Reserved "DATA",160.16,5,"FIELD",217,1) S ACDANS="" "DATA",160.16,5,"FIELD",217,2) BLANK "DATA",160.16,5,"FIELD",217,3) L,BLANK "DATA",160.16,5,"FIELD",218,0) 902^4^905^Site (1973-91) "DATA",160.16,5,"FIELD",218,1) S ACDANS="" "DATA",160.16,5,"FIELD",218,2) BLANK "DATA",160.16,5,"FIELD",218,3) L,BLANK "DATA",160.16,5,"FIELD",219,0) 906^6^911^Morph. (1973-91) "DATA",160.16,5,"FIELD",219,1) S ACDANS="" "DATA",160.16,5,"FIELD",219,2) BLANK "DATA",160.16,5,"FIELD",219,3) L,BLANK "DATA",160.16,5,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,5,"FIELD",220,1) S ACDANS=4 "DATA",160.16,5,"FIELD",220,2) BLANK "DATA",160.16,5,"FIELD",220,3) L,BLANK "DATA",160.16,5,"FIELD",221,0) 913^1^913^Over-Ride Age/Site "DATA",160.16,5,"FIELD",221,1) S ACDANS="" "DATA",160.16,5,"FIELD",221,2) BLANK "DATA",160.16,5,"FIELD",221,3) L,BLANK "DATA",160.16,5,"FIELD",222,0) 914^1^914^Over-Ride SeqNo/DxConf "DATA",160.16,5,"FIELD",222,1) S ACDANS="" "DATA",160.16,5,"FIELD",222,2) BLANK "DATA",160.16,5,"FIELD",222,3) L,BLANK "DATA",160.16,5,"FIELD",223,0) 915^1^915^Over-Ride Site/Lat/SeqNo "DATA",160.16,5,"FIELD",223,1) S ACDANS="" "DATA",160.16,5,"FIELD",223,2) BLANK "DATA",160.16,5,"FIELD",223,3) L,BLANK "DATA",160.16,5,"FIELD",224,0) 916^1^916^Over-Ride Surg./DxConf "DATA",160.16,5,"FIELD",224,1) S ACDANS="" "DATA",160.16,5,"FIELD",224,2) BLANK "DATA",160.16,5,"FIELD",224,3) L,BLANK "DATA",160.16,5,"FIELD",225,0) 917^1^917^Over-Ride Site/Type "DATA",160.16,5,"FIELD",225,1) S ACDANS="" "DATA",160.16,5,"FIELD",225,2) BLANK "DATA",160.16,5,"FIELD",225,3) L,BLANK "DATA",160.16,5,"FIELD",226,0) 918^1^918^Over-Ride Histology "DATA",160.16,5,"FIELD",226,1) S ACDANS="" "DATA",160.16,5,"FIELD",226,2) BLANK "DATA",160.16,5,"FIELD",226,3) L,BLANK "DATA",160.16,5,"FIELD",227,0) 919^1^919^Over-Ride Report Source "DATA",160.16,5,"FIELD",227,1) S ACDANS="" "DATA",160.16,5,"FIELD",227,2) BLANK "DATA",160.16,5,"FIELD",227,3) L,BLANK "DATA",160.16,5,"FIELD",228,0) 920^1^920^Over-Ride Ill-Defined Site "DATA",160.16,5,"FIELD",228,1) S ACDANS="" "DATA",160.16,5,"FIELD",228,2) BLANK "DATA",160.16,5,"FIELD",228,3) L,BLANK "DATA",160.16,5,"FIELD",229,0) 921^1^921^Over-Ride Leuk, Lymphoma "DATA",160.16,5,"FIELD",229,1) S ACDANS="" "DATA",160.16,5,"FIELD",229,2) BLANK "DATA",160.16,5,"FIELD",229,3) L,BLANK "DATA",160.16,5,"FIELD",230,0) 922^30^951^Reserved "DATA",160.16,5,"FIELD",230,1) S ACDANS="" "DATA",160.16,5,"FIELD",230,2) BLANK "DATA",160.16,5,"FIELD",230,3) L,BLANK "DATA",160.16,5,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,5,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,5,"FIELD",231,2) BLANK "DATA",160.16,5,"FIELD",231,3) L,BLANK "DATA",160.16,5,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,5,"FIELD",232,1) S ACDANS="" "DATA",160.16,5,"FIELD",232,2) BLANK "DATA",160.16,5,"FIELD",232,3) L,BLANK "DATA",160.16,5,"FIELD",233,0) 968^8^975^Date Case Transmitted "DATA",160.16,5,"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,5,"FIELD",233,2) BLANK "DATA",160.16,5,"FIELD",233,3) L,ZERO "DATA",160.16,5,"FIELD",234,0) 976^1^976^SEER Coding Sys-Current "DATA",160.16,5,"FIELD",234,1) S ACDANS=4 "DATA",160.16,5,"FIELD",234,2) BLANK "DATA",160.16,5,"FIELD",234,3) L,BLANK "DATA",160.16,5,"FIELD",235,0) 977^1^977^SEER Coding Sys-Original "DATA",160.16,5,"FIELD",235,1) S ACDANS=4 "DATA",160.16,5,"FIELD",235,2) BLANK "DATA",160.16,5,"FIELD",235,3) L,BLANK "DATA",160.16,5,"FIELD",236,0) 978^1^978^COC Coding System Current "DATA",160.16,5,"FIELD",236,1) S ACDANS=6 "DATA",160.16,5,"FIELD",236,2) BLANK "DATA",160.16,5,"FIELD",236,3) L,BLANK "DATA",160.16,5,"FIELD",237,0) 979^1^979^COC Coding System Original "DATA",160.16,5,"FIELD",237,1) S ACDANS=6 "DATA",160.16,5,"FIELD",237,2) BLANK "DATA",160.16,5,"FIELD",237,3) L,BLANK "DATA",160.16,5,"FIELD",238,0) 980^1^980^Subseq Report for Primary "DATA",160.16,5,"FIELD",238,1) S ACDANS="" "DATA",160.16,5,"FIELD",238,2) BLANK "DATA",160.16,5,"FIELD",238,3) L,BLANK "DATA",160.16,5,"FIELD",239,0) 981^10^990^Vender Name "DATA",160.16,5,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,5,"FIELD",239,2) BLANK "DATA",160.16,5,"FIELD",239,3) L,BLANK "DATA",160.16,5,"FIELD",240,0) 991^1^991^SEER Type of Follow-up "DATA",160.16,5,"FIELD",240,1) S ACDANS="" "DATA",160.16,5,"FIELD",240,2) BLANK "DATA",160.16,5,"FIELD",240,3) L,BLANK "DATA",160.16,5,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,5,"FIELD",241,1) S ACDANS="" "DATA",160.16,5,"FIELD",241,2) BLANK "DATA",160.16,5,"FIELD",241,3) L,BLANK "DATA",160.16,5,"FIELD",242,0) 994^2^995^Diagnostic Procedures '73-'87 "DATA",160.16,5,"FIELD",242,1) S ACDANS="" "DATA",160.16,5,"FIELD",242,2) BLANK "DATA",160.16,5,"FIELD",242,3) L,BLANK "DATA",160.16,5,"FIELD",243,0) 996^30^1025^Reserved "DATA",160.16,5,"FIELD",243,1) S ACDANS="" "DATA",160.16,5,"FIELD",243,2) BLANK "DATA",160.16,5,"FIELD",243,3) L,BLANK "DATA",160.16,5,"FIELD",338,0) 1524^2^1525^Linkage Name Sum "DATA",160.16,5,"FIELD",338,1) S ACDANS=$$LINK~ONCACDU2(ACD160) "DATA",160.16,5,"FIELD",338,2) ZERO "DATA",160.16,5,"FIELD",338,3) L,ZERO "DATA",160.16,5,"FIELD",339,0) 1526^25^1550^Name-Last "DATA",160.16,5,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,5,"FIELD",339,2) BLANK "DATA",160.16,5,"FIELD",339,3) R,BLANK "DATA",160.16,5,"FIELD",340,0) 1551^14^1564^Name-First "DATA",160.16,5,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,5,"FIELD",340,2) BLANK "DATA",160.16,5,"FIELD",340,3) R,BLANK "DATA",160.16,5,"FIELD",341,0) 1565^14^1578^Name-Middle "DATA",160.16,5,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,5,"FIELD",341,2) BLANK "DATA",160.16,5,"FIELD",341,3) R,BLANK "DATA",160.16,5,"FIELD",342,0) 1579^3^1581^Name-Prefix "DATA",160.16,5,"FIELD",342,1) S ACDANS="" "DATA",160.16,5,"FIELD",342,2) BLANK "DATA",160.16,5,"FIELD",342,3) R,BLANK "DATA",160.16,5,"FIELD",343,0) 1582^3^1584^Name-Suffix "DATA",160.16,5,"FIELD",343,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,5,"FIELD",343,2) BLANK "DATA",160.16,5,"FIELD",343,3) R,BLANK "DATA",160.16,5,"FIELD",344,0) 1585^15^1599^Name-Alias "DATA",160.16,5,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,5,"FIELD",344,2) BLANK "DATA",160.16,5,"FIELD",344,3) R,BLANK "DATA",160.16,5,"FIELD",345,0) 1600^50^1649^Name-Spouse "DATA",160.16,5,"FIELD",345,1) S ACDANS="" "DATA",160.16,5,"FIELD",345,2) BLANK "DATA",160.16,5,"FIELD",345,3) R,BLANK "DATA",160.16,5,"FIELD",346,0) 1650^11^1660^Medical Record NBR "DATA",160.16,5,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,5,"FIELD",346,2) BLANK "DATA",160.16,5,"FIELD",346,3) L,BLANK "DATA",160.16,5,"FIELD",347,0) 1661^2^1662^Military Suffix "DATA",160.16,5,"FIELD",347,1) S ACDANS="" "DATA",160.16,5,"FIELD",347,2) BLANK "DATA",160.16,5,"FIELD",347,3) L,ZERO "DATA",160.16,5,"FIELD",348,0) 1663^9^1671^Social Security NBR "DATA",160.16,5,"FIELD",348,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,5,"FIELD",348,2) NINE "DATA",160.16,5,"FIELD",348,3) L,BLANK "DATA",160.16,5,"FIELD",349,0) 1672^25^1696^Address at DX-Street "DATA",160.16,5,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,5,"FIELD",349,2) BLANK "DATA",160.16,5,"FIELD",349,3) R,BLANK "DATA",160.16,5,"FIELD",351,0) 1727^25^1751^Address-Current Street "DATA",160.16,5,"FIELD",351,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,5,"FIELD",351,2) BLANK "DATA",160.16,5,"FIELD",351,3) R,BLANK "DATA",160.16,5,"FIELD",352,0) 1752^10^1761^Telephone Number "DATA",160.16,5,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,5,"FIELD",352,2) ZERO "DATA",160.16,5,"FIELD",352,3) R,BLANK "DATA",160.16,5,"FIELD",353,0) 1762^2^1763^DC State "DATA",160.16,5,"FIELD",353,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,5,"FIELD",353,2) BLANK "DATA",160.16,5,"FIELD",353,3) L,BLANK "DATA",160.16,5,"FIELD",354,0) 1764^6^1769^DC State File NBR "DATA",160.16,5,"FIELD",354,1) S ACDANS="" "DATA",160.16,5,"FIELD",354,2) BLANK "DATA",160.16,5,"FIELD",354,3) L,BLANK "DATA",160.16,5,"FIELD",355,0) 1770^15^1784^Maiden-Name "DATA",160.16,5,"FIELD",355,1) S ACDANS="" "DATA",160.16,5,"FIELD",355,2) BLANK "DATA",160.16,5,"FIELD",355,3) R,BLANK "DATA",160.16,5,"FIELD",356,0) 1785^28^1812^Reserved "DATA",160.16,5,"FIELD",356,1) S ACDANS="" "DATA",160.16,5,"FIELD",356,2) BLANK "DATA",160.16,5,"FIELD",356,3) L,BLANK "DATA",160.16,5,"FIELD",357,0) 1813^6^1818^Institution Referred from "DATA",160.16,5,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,5,"FIELD",357,2) BLANK "DATA",160.16,5,"FIELD",357,3) L,BLANK "DATA",160.16,5,"FIELD",358,0) 1819^6^1824^Institution Referred to "DATA",160.16,5,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,5,"FIELD",358,2) BLANK "DATA",160.16,5,"FIELD",358,3) L,BLANK "DATA",160.16,5,"FIELD",359,0) 1825^6^1830^Last Follow up Hospital "DATA",160.16,5,"FIELD",359,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,5,"FIELD",359,2) BLANK "DATA",160.16,5,"FIELD",359,3) L,ZERO "DATA",160.16,5,"FIELD",360,0) 1831^6^1836^Following Registry "DATA",160.16,5,"FIELD",360,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,5,"FIELD",360,2) BLANK "DATA",160.16,5,"FIELD",360,3) L,ZERO "DATA",160.16,5,"FIELD",361,0) 1837^10^1846^Reserved "DATA",160.16,5,"FIELD",361,1) S ACDANS="" "DATA",160.16,5,"FIELD",361,2) BLANK "DATA",160.16,5,"FIELD",361,3) L,BLANK "DATA",160.16,5,"FIELD",362,0) 1847^8^1854^Managing Physician "DATA",160.16,5,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,5,"FIELD",362,2) NINE "DATA",160.16,5,"FIELD",362,3) L,BLANK "DATA",160.16,5,"FIELD",363,0) 1855^8^1862^Following Physician "DATA",160.16,5,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,5,"FIELD",363,2) BLANK "DATA",160.16,5,"FIELD",363,3) L,BLANK "DATA",160.16,5,"FIELD",364,0) 1863^8^1870^Primary Surgeon "DATA",160.16,5,"FIELD",364,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,5,"FIELD",364,2) ZERO "DATA",160.16,5,"FIELD",364,3) L,ZERO "DATA",160.16,5,"FIELD",365,0) 1871^8^1878^Other Physician 3 "DATA",160.16,5,"FIELD",365,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,5,"FIELD",365,2) ZERO "DATA",160.16,5,"FIELD",365,3) L,ZERO "DATA",160.16,5,"FIELD",366,0) 1879^8^1886^Other Physician 4 "DATA",160.16,5,"FIELD",366,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,5,"FIELD",366,2) ZERO "DATA",160.16,5,"FIELD",366,3) L,ZERO "DATA",160.16,5,"FIELD",367,0) 1887^30^1916^Reserved "DATA",160.16,5,"FIELD",367,1) S ACDANS="" "DATA",160.16,5,"FIELD",367,2) BLANK "DATA",160.16,5,"FIELD",367,3) L,BLANK "DATA",160.16,5,"FIELD",368,0) 1917^200^2116^Text-DX Proc-PE "DATA",160.16,5,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,5,"FIELD",368,2) BLANK "DATA",160.16,5,"FIELD",368,3) R,BLANK "DATA",160.16,5,"FIELD",369,0) 2117^250^2366^Text-DX Proc-XRAY "DATA",160.16,5,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,5,"FIELD",369,2) BLANK "DATA",160.16,5,"FIELD",369,3) R,BLANK "DATA",160.16,5,"FIELD",370,0) 2367^250^2616^Text-DX Proc-Scopes "DATA",160.16,5,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,5,"FIELD",370,2) BLANK "DATA",160.16,5,"FIELD",370,3) R,BLANK "DATA",160.16,5,"FIELD",371,0) 2617^250^2866^Text-DX Proc-Lab "DATA",160.16,5,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,5,"FIELD",371,2) BLANK "DATA",160.16,5,"FIELD",371,3) R,BLANK "DATA",160.16,5,"FIELD",372,0) 2867^250^3116^Text-DX Proc-OPS "DATA",160.16,5,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,5,"FIELD",372,2) BLANK "DATA",160.16,5,"FIELD",372,3) R,BLANK "DATA",160.16,5,"FIELD",373,0) 3117^250^3366^Text-DX Proc-PATH "DATA",160.16,5,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,5,"FIELD",373,2) BLANK "DATA",160.16,5,"FIELD",373,3) R,BLANK "DATA",160.16,5,"FIELD",374,0) 3367^40^3406^Text-Primary Site "DATA",160.16,5,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,5,"FIELD",374,2) BLANK "DATA",160.16,5,"FIELD",374,3) R,BLANK "DATA",160.16,5,"FIELD",375,0) 3407^40^3446^Text-Histology "DATA",160.16,5,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,5,"FIELD",375,2) BLANK "DATA",160.16,5,"FIELD",375,3) R,BLANK "DATA",160.16,5,"FIELD",376,0) 3447^300^3746^Text-Staging "DATA",160.16,5,"FIELD",376,1) S ACDANS="" "DATA",160.16,5,"FIELD",376,2) BLANK "DATA",160.16,5,"FIELD",376,3) R,BLANK "DATA",160.16,5,"FIELD",377,0) 3747^150^3896^Text-RX-Surgery "DATA",160.16,5,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,5,"FIELD",377,2) BLANK "DATA",160.16,5,"FIELD",377,3) R,BLANK "DATA",160.16,5,"FIELD",378,0) 3897^150^4046^Text-RX-RAD(Beam) "DATA",160.16,5,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,5,"FIELD",378,2) BLANK "DATA",160.16,5,"FIELD",378,3) R,BLANK "DATA",160.16,5,"FIELD",379,0) 4047^150^4196^Text-RX-RAD-Other "DATA",160.16,5,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,5,"FIELD",379,2) BLANK "DATA",160.16,5,"FIELD",379,3) R,BLANK "DATA",160.16,5,"FIELD",380,0) 4197^200^4396^Text-RX-Chemo "DATA",160.16,5,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,5,"FIELD",380,2) BLANK "DATA",160.16,5,"FIELD",380,3) R,BLANK "DATA",160.16,5,"FIELD",381,0) 4397^200^4596^Text-RX-Hormone "DATA",160.16,5,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,5,"FIELD",381,2) BLANK "DATA",160.16,5,"FIELD",381,3) R,BLANK "DATA",160.16,5,"FIELD",382,0) 4597^100^4696^Text-RX-Immunotherapy "DATA",160.16,5,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,5,"FIELD",382,2) BLANK "DATA",160.16,5,"FIELD",382,3) R,BLANK "DATA",160.16,5,"FIELD",383,0) 4697^100^4796^Text-RX-Other "DATA",160.16,5,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,5,"FIELD",383,2) BLANK "DATA",160.16,5,"FIELD",383,3) R,BLANK "DATA",160.16,5,"FIELD",384,0) 4797^350^5146^Text-Remarks "DATA",160.16,5,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,5,"FIELD",384,2) BLANK "DATA",160.16,5,"FIELD",384,3) R,BLANK "DATA",160.16,5,"FIELD",385,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,5,"FIELD",385,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,5,"FIELD",385,2) BLANK "DATA",160.16,5,"FIELD",385,3) R,BLANK "DATA",160.16,5,"FIELD",386,0) 5197^770^5966^Reserved "DATA",160.16,5,"FIELD",386,1) S ACDANS="" "DATA",160.16,5,"FIELD",386,2) BLANK "DATA",160.16,5,"FIELD",386,3) L,BLANK "DATA",160.16,5,"FIELD",387,0) 1697^30^1726^Reserved for Expansion "DATA",160.16,5,"FIELD",387,1) S ACDANS="" "DATA",160.16,5,"FIELD",387,2) BLANK "DATA",160.16,5,"FIELD",387,3) L,BLANK "DATA",160.16,5,"FIELD",388,0) 1026^498^1523^PCE Position (BLANK) "DATA",160.16,5,"FIELD",388,1) S ACDANS="" "DATA",160.16,5,"FIELD",388,2) BLANK "DATA",160.16,5,"FIELD",388,3) L,BLANK "DATA",160.16,5,"RULES",0) ^^4^4^2990310^^^^ "DATA",160.16,5,"RULES",1,0) S VALID=1 "DATA",160.16,5,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,5,"RULES",3,0) S JUMP=0 "DATA",160.16,5,"RULES",4,0) K SCREEN "DATA",160.16,6,0) NAACCR STATE EXTRACT V5.0 "DATA",160.16,6,"FIELD",0) ^160.161I^405^220 "DATA",160.16,6,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,6,"FIELD",1,1) S ACDANS="A" "DATA",160.16,6,"FIELD",1,2) BLANK "DATA",160.16,6,"FIELD",1,3) L,BLANK "DATA",160.16,6,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,6,"FIELD",2,1) S ACDANS="" "DATA",160.16,6,"FIELD",2,2) ZERO "DATA",160.16,6,"FIELD",2,3) L,BLANK "DATA",160.16,6,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,6,"FIELD",3,1) S ACDANS=3 "DATA",160.16,6,"FIELD",3,2) BLANK "DATA",160.16,6,"FIELD",3,3) L,BLANK "DATA",160.16,6,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,6,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,6,"FIELD",4,2) BLANK "DATA",160.16,6,"FIELD",4,3) L,BLANK "DATA",160.16,6,"FIELD",6,0) 107^2^108^Tumor Record Number "DATA",160.16,6,"FIELD",6,1) S ACDANS="" "DATA",160.16,6,"FIELD",6,2) BLANK "DATA",160.16,6,"FIELD",6,3) L,BLANK "DATA",160.16,6,"FIELD",7,0) 19^20^38^Add at Dx City "DATA",160.16,6,"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,6,"FIELD",7,2) BLANK "DATA",160.16,6,"FIELD",7,3) R,BLANK "DATA",160.16,6,"FIELD",8,0) 39^2^40^Add at Dx State "DATA",160.16,6,"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,6,"FIELD",8,2) BLANK "DATA",160.16,6,"FIELD",8,3) L,BLANK "DATA",160.16,6,"FIELD",9,0) 41^3^43^County at DX "DATA",160.16,6,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",9,2) ZERO "DATA",160.16,6,"FIELD",9,3) L,ZERO "DATA",160.16,6,"FIELD",10,0) 44^9^52^Add at DX ZIP "DATA",160.16,6,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,6,"FIELD",10,2) BLANK "DATA",160.16,6,"FIELD",10,3) R,BLANK "DATA",160.16,6,"FIELD",11,0) 53^6^58^Census Tract "DATA",160.16,6,"FIELD",11,1) S ACDANS="" "DATA",160.16,6,"FIELD",11,2) BLANK "DATA",160.16,6,"FIELD",11,3) L,BLANK "DATA",160.16,6,"FIELD",12,0) 59^1^59^Census Tract Coding System "DATA",160.16,6,"FIELD",12,1) S ACDANS="" "DATA",160.16,6,"FIELD",12,2) BLANK "DATA",160.16,6,"FIELD",12,3) L,BLANK "DATA",160.16,6,"FIELD",15,0) 60^1^60^Marital Status "DATA",160.16,6,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,6,"FIELD",15,2) BLANK "DATA",160.16,6,"FIELD",15,3) L,BLANK "DATA",160.16,6,"FIELD",16,0) 61^2^62^Race "DATA",160.16,6,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,6,"FIELD",16,2) BLANK "DATA",160.16,6,"FIELD",16,3) L,ZERO "DATA",160.16,6,"FIELD",17,0) 63^1^63^Race Coding-Current "DATA",160.16,6,"FIELD",17,1) S ACDANS="5" "DATA",160.16,6,"FIELD",17,2) BLANK "DATA",160.16,6,"FIELD",17,3) L,BLANK "DATA",160.16,6,"FIELD",18,0) 64^1^64^Race Coding-Original "DATA",160.16,6,"FIELD",18,1) S ACDANS="5" "DATA",160.16,6,"FIELD",18,2) BLANK "DATA",160.16,6,"FIELD",18,3) L,BLANK "DATA",160.16,6,"FIELD",19,0) 65^1^65^Spanish/Hispanic Origin "DATA",160.16,6,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,6,"FIELD",19,2) BLANK "DATA",160.16,6,"FIELD",19,3) L,BLANK "DATA",160.16,6,"FIELD",20,0) 99^1^99^Computer-Derived Ethnicity "DATA",160.16,6,"FIELD",20,1) S ACDANS="" "DATA",160.16,6,"FIELD",20,2) BLANK "DATA",160.16,6,"FIELD",20,3) L,BLANK "DATA",160.16,6,"FIELD",21,0) 100^1^100^Computer-Derived Ethnicity Src "DATA",160.16,6,"FIELD",21,1) S ACDANS="" "DATA",160.16,6,"FIELD",21,2) BLANK "DATA",160.16,6,"FIELD",21,3) L,BLANK "DATA",160.16,6,"FIELD",22,0) 66^1^66^Sex "DATA",160.16,6,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,6,"FIELD",22,2) BLANK "DATA",160.16,6,"FIELD",22,3) L,BLANK "DATA",160.16,6,"FIELD",23,0) 67^3^69^Age at Diagnosis "DATA",160.16,6,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",23,2) BLANK "DATA",160.16,6,"FIELD",23,3) L,ZERO "DATA",160.16,6,"FIELD",24,0) 70^8^77^Birth Date "DATA",160.16,6,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",24,2) NINE "DATA",160.16,6,"FIELD",24,3) L,ZERO "DATA",160.16,6,"FIELD",25,0) 78^3^80^Birth Place "DATA",160.16,6,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,6,"FIELD",25,2) NINE "DATA",160.16,6,"FIELD",25,3) L,ZERO "DATA",160.16,6,"FIELD",26,0) 81^2^82^Religion "DATA",160.16,6,"FIELD",26,1) S ACDANS=99 "DATA",160.16,6,"FIELD",26,2) NINE "DATA",160.16,6,"FIELD",26,3) L,ZERO "DATA",160.16,6,"FIELD",27,0) 83^3^85^Occupation (Census) "DATA",160.16,6,"FIELD",27,1) S ACDANS="" "DATA",160.16,6,"FIELD",27,2) BLANK "DATA",160.16,6,"FIELD",27,3) L,BLANK "DATA",160.16,6,"FIELD",28,0) 86^3^88^Industry (Census) "DATA",160.16,6,"FIELD",28,1) S ACDANS="" "DATA",160.16,6,"FIELD",28,2) BLANK "DATA",160.16,6,"FIELD",28,3) L,BLANK "DATA",160.16,6,"FIELD",29,0) 89^4^92^Occupation Source "DATA",160.16,6,"FIELD",29,1) S ACDANS="" "DATA",160.16,6,"FIELD",29,2) BLANK "DATA",160.16,6,"FIELD",29,3) L,BLANK "DATA",160.16,6,"FIELD",30,0) 93^4^96^Industry Source "DATA",160.16,6,"FIELD",30,1) S ACDANS="" "DATA",160.16,6,"FIELD",30,2) BLANK "DATA",160.16,6,"FIELD",30,3) L,BLANK "DATA",160.16,6,"FIELD",31,0) 4381^50^4430^Usual Occupation (Text) "DATA",160.16,6,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,6,"FIELD",31,2) BLANK "DATA",160.16,6,"FIELD",31,3) R,BLANK "DATA",160.16,6,"FIELD",32,0) 4431^50^4480^Usual Industry (Text) "DATA",160.16,6,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",32,2) BLANK "DATA",160.16,6,"FIELD",32,3) R,BLANK "DATA",160.16,6,"FIELD",33,0) 97^1^97^Occup/Ind. Coding System "DATA",160.16,6,"FIELD",33,1) S ACDANS="" "DATA",160.16,6,"FIELD",33,2) BLANK "DATA",160.16,6,"FIELD",33,3) L,BLANK "DATA",160.16,6,"FIELD",34,0) 98^1^98^Tobacco History "DATA",160.16,6,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",34,2) BLANK "DATA",160.16,6,"FIELD",34,3) L,BLANK "DATA",160.16,6,"FIELD",39,0) 109^2^110^Sequence Number-Central "DATA",160.16,6,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,6,"FIELD",39,2) BLANK "DATA",160.16,6,"FIELD",39,3) L,BLANK "DATA",160.16,6,"FIELD",40,0) 111^8^118^Date Of Diagnosis "DATA",160.16,6,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",40,2) ZERO "DATA",160.16,6,"FIELD",40,3) L,ZERO "DATA",160.16,6,"FIELD",41,0) 119^4^122^Primary Site "DATA",160.16,6,"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,6,"FIELD",41,2) ZERO "DATA",160.16,6,"FIELD",41,3) L,ZERO "DATA",160.16,6,"FIELD",42,0) 123^1^123^Laterality "DATA",160.16,6,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,6,"FIELD",42,2) BLANK "DATA",160.16,6,"FIELD",42,3) L,BLANK "DATA",160.16,6,"FIELD",43,0) 124^4^127^Histologic Type "DATA",160.16,6,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",43,2) ZERO "DATA",160.16,6,"FIELD",43,3) L,ZERO "DATA",160.16,6,"FIELD",44,0) 128^1^128^Behavior "DATA",160.16,6,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",44,2) ZERO "DATA",160.16,6,"FIELD",44,3) L,ZERO "DATA",160.16,6,"FIELD",45,0) 129^1^129^Grade or Differentiation "DATA",160.16,6,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,6,"FIELD",45,2) ZERO "DATA",160.16,6,"FIELD",45,3) L,ZERO "DATA",160.16,6,"FIELD",46,0) 130^1^130^Site Coding System-Cur.. "DATA",160.16,6,"FIELD",46,1) S ACDANS=4 "DATA",160.16,6,"FIELD",46,2) ZERO "DATA",160.16,6,"FIELD",46,3) L,ZERO "DATA",160.16,6,"FIELD",47,0) 131^1^131^Site Coding System-Org. "DATA",160.16,6,"FIELD",47,1) S ACDANS=4 "DATA",160.16,6,"FIELD",47,2) ZERO "DATA",160.16,6,"FIELD",47,3) L,ZERO "DATA",160.16,6,"FIELD",48,0) 132^1^132^Morph. Coding System-Cur "DATA",160.16,6,"FIELD",48,1) S ACDANS=4 "DATA",160.16,6,"FIELD",48,2) ZERO "DATA",160.16,6,"FIELD",48,3) L,ZERO "DATA",160.16,6,"FIELD",49,0) 133^1^133^Morph. Coding System-Org. "DATA",160.16,6,"FIELD",49,1) S ACDANS=4 "DATA",160.16,6,"FIELD",49,2) ZERO "DATA",160.16,6,"FIELD",49,3) L,ZERO "DATA",160.16,6,"FIELD",50,0) 134^1^134^Diagnostic Confirmation "DATA",160.16,6,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,6,"FIELD",50,2) NINE "DATA",160.16,6,"FIELD",50,3) L,ZERO "DATA",160.16,6,"FIELD",51,0) 135^1^135^Type of reporting Source "DATA",160.16,6,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,6,"FIELD",51,2) BLANK "DATA",160.16,6,"FIELD",51,3) L,BLANK "DATA",160.16,6,"FIELD",55,0) 142^8^149^Reporting Hospital "DATA",160.16,6,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,6,"FIELD",55,2) ZERO "DATA",160.16,6,"FIELD",55,3) L,ZERO "DATA",160.16,6,"FIELD",56,0) 150^6^155^Accession Number (Hospital) "DATA",160.16,6,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,6,"FIELD",56,2) ZERO "DATA",160.16,6,"FIELD",56,3) L,ZERO "DATA",160.16,6,"FIELD",58,0) 156^3^158^Abstracted By "DATA",160.16,6,"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,6,"FIELD",58,2) BLANK "DATA",160.16,6,"FIELD",58,3) L,BLANK "DATA",160.16,6,"FIELD",59,0) 159^8^166^Date of Admission/First Contact "DATA",160.16,6,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",59,2) ZERO "DATA",160.16,6,"FIELD",59,3) L,ZERO "DATA",160.16,6,"FIELD",61,0) 167^8^174^Date of Inpatient Discharge "DATA",160.16,6,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",61,2) ZERO "DATA",160.16,6,"FIELD",61,3) L,ZERO "DATA",160.16,6,"FIELD",62,0) 175^1^175^Class of Case "DATA",160.16,6,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,6,"FIELD",62,2) ZERO "DATA",160.16,6,"FIELD",62,3) L,ZERO "DATA",160.16,6,"FIELD",68,0) 176^2^177^RX Hospital-CA Directed Surgery "DATA",160.16,6,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,6,"FIELD",68,2) ZERO "DATA",160.16,6,"FIELD",68,3) L,ZERO "DATA",160.16,6,"FIELD",70,0) 178^1^178^RX Hosp. Radiation "DATA",160.16,6,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,6,"FIELD",70,2) BLANK "DATA",160.16,6,"FIELD",70,3) L,ZERO "DATA",160.16,6,"FIELD",71,0) 179^1^179^RX Hosp. Chemo. "DATA",160.16,6,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,6,"FIELD",71,2) BLANK "DATA",160.16,6,"FIELD",71,3) L,ZERO "DATA",160.16,6,"FIELD",72,0) 180^1^180^RX Hosp. Hormone/steroid "DATA",160.16,6,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,6,"FIELD",72,2) BLANK "DATA",160.16,6,"FIELD",72,3) L,ZERO "DATA",160.16,6,"FIELD",73,0) 181^1^181^RX Hosp. Bio Response Mod. "DATA",160.16,6,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,6,"FIELD",73,2) BLANK "DATA",160.16,6,"FIELD",73,3) L,ZERO "DATA",160.16,6,"FIELD",74,0) 182^1^182^RX Hosp. Other Cancer Dir. "DATA",160.16,6,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,6,"FIELD",74,2) BLANK "DATA",160.16,6,"FIELD",74,3) L,ZERO "DATA",160.16,6,"FIELD",77,0) 183^1^183^General Summary Stage "DATA",160.16,6,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,6,"FIELD",77,2) BLANK "DATA",160.16,6,"FIELD",77,3) L,BLANK "DATA",160.16,6,"FIELD",78,0) 184^1^184^Local/Regional/Distant Stage "DATA",160.16,6,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",78,2) BLANK "DATA",160.16,6,"FIELD",78,3) L,BLANK "DATA",160.16,6,"FIELD",79,0) 185^3^187^EOD Tumor Size "DATA",160.16,6,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,6,"FIELD",79,2) BLANK "DATA",160.16,6,"FIELD",79,3) L,ZERO "DATA",160.16,6,"FIELD",80,0) 188^2^189^EOD Extension "DATA",160.16,6,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,6,"FIELD",80,2) BLANK "DATA",160.16,6,"FIELD",80,3) L,BLANK "DATA",160.16,6,"FIELD",81,0) 239^2^240^EOD Pathologic for Prostate "DATA",160.16,6,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,6,"FIELD",81,2) BLANK "DATA",160.16,6,"FIELD",81,3) L,ZERO "DATA",160.16,6,"FIELD",82,0) 190^1^190^EOD Lymph Nodes "DATA",160.16,6,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,6,"FIELD",82,2) BLANK "DATA",160.16,6,"FIELD",82,3) L,BLANK "DATA",160.16,6,"FIELD",83,0) 191^2^192^Regional Nodes Pos. "DATA",160.16,6,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,6,"FIELD",83,2) ZERO "DATA",160.16,6,"FIELD",83,3) L,ZERO "DATA",160.16,6,"FIELD",84,0) 193^2^194^Regional Nodes Exam. "DATA",160.16,6,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,6,"FIELD",84,2) ZERO "DATA",160.16,6,"FIELD",84,3) L,ZERO "DATA",160.16,6,"FIELD",85,0) 195^13^207^EOD-old 13 Digit "DATA",160.16,6,"FIELD",85,1) S ACDANS="" "DATA",160.16,6,"FIELD",85,2) BLANK "DATA",160.16,6,"FIELD",85,3) L,BLANK "DATA",160.16,6,"FIELD",86,0) 208^2^209^EOD-old 2 Digit "DATA",160.16,6,"FIELD",86,1) S ACDANS="" "DATA",160.16,6,"FIELD",86,2) BLANK "DATA",160.16,6,"FIELD",86,3) L,BLANK "DATA",160.16,6,"FIELD",87,0) 210^4^213^EOD-old 4 Digit "DATA",160.16,6,"FIELD",87,1) S ACDANS="" "DATA",160.16,6,"FIELD",87,2) BLANK "DATA",160.16,6,"FIELD",87,3) L,BLANK "DATA",160.16,6,"FIELD",89,0) 214^2^215^T Code of TNM (Pathologic) "DATA",160.16,6,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,6,"FIELD",89,2) BLANK "DATA",160.16,6,"FIELD",89,3) R,BLANK "DATA",160.16,6,"FIELD",90,0) 216^2^217^N Code of TNM (Pathologic) "DATA",160.16,6,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,6,"FIELD",90,2) BLANK "DATA",160.16,6,"FIELD",90,3) R,BLANK "DATA",160.16,6,"FIELD",91,0) 218^1^218^M Code of TNM (Pathologic) "DATA",160.16,6,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,6,"FIELD",91,2) BLANK "DATA",160.16,6,"FIELD",91,3) R,BLANK "DATA",160.16,6,"FIELD",92,0) 219^2^220^Pathologic Stage Group "DATA",160.16,6,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,6,"FIELD",92,2) BLANK "DATA",160.16,6,"FIELD",92,3) R,BLANK "DATA",160.16,6,"FIELD",95,0) 221^2^222^Clinical T Code "DATA",160.16,6,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,6,"FIELD",95,2) BLANK "DATA",160.16,6,"FIELD",95,3) R,BLANK "DATA",160.16,6,"FIELD",96,0) 223^2^224^Clinical N Code "DATA",160.16,6,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,6,"FIELD",96,2) BLANK "DATA",160.16,6,"FIELD",96,3) R,BLANK "DATA",160.16,6,"FIELD",97,0) 225^1^225^Clinical M Code "DATA",160.16,6,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,6,"FIELD",97,2) BLANK "DATA",160.16,6,"FIELD",97,3) R,BLANK "DATA",160.16,6,"FIELD",98,0) 226^2^227^Clinical Stage Group "DATA",160.16,6,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,6,"FIELD",98,2) BLANK "DATA",160.16,6,"FIELD",98,3) R,BLANK "DATA",160.16,6,"FIELD",107,0) 228^1^228^TNM Edition Number "DATA",160.16,6,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,6,"FIELD",107,2) BLANK "DATA",160.16,6,"FIELD",107,3) L,BLANK "DATA",160.16,6,"FIELD",110,0) 229^1^229^Site of Distant Mets. #1 "DATA",160.16,6,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,6,"FIELD",110,2) BLANK "DATA",160.16,6,"FIELD",110,3) L,BLANK "DATA",160.16,6,"FIELD",111,0) 230^1^230^Site of Distant Mets. #2 "DATA",160.16,6,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,6,"FIELD",111,2) BLANK "DATA",160.16,6,"FIELD",111,3) L,BLANK "DATA",160.16,6,"FIELD",112,0) 231^1^231^Site of Distant Mets. #3 "DATA",160.16,6,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,6,"FIELD",112,2) BLANK "DATA",160.16,6,"FIELD",112,3) L,BLANK "DATA",160.16,6,"FIELD",116,0) 237^1^237^Tumor Marker 1 "DATA",160.16,6,"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,6,"FIELD",116,2) BLANK "DATA",160.16,6,"FIELD",116,3) L,BLANK "DATA",160.16,6,"FIELD",117,0) 238^1^238^Tumor Marker 2 "DATA",160.16,6,"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,6,"FIELD",117,2) BLANK "DATA",160.16,6,"FIELD",117,3) L,BLANK "DATA",160.16,6,"FIELD",121,0) 252^8^259^RX Date - Surgery "DATA",160.16,6,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,6,"FIELD",121,2) NINE "DATA",160.16,6,"FIELD",121,3) L,BLANK "DATA",160.16,6,"FIELD",122,0) 260^8^267^RX Date - Radiation "DATA",160.16,6,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,6,"FIELD",122,2) NINE "DATA",160.16,6,"FIELD",122,3) L,BLANK "DATA",160.16,6,"FIELD",123,0) 268^8^275^RX Date - Chemo. "DATA",160.16,6,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,6,"FIELD",123,2) NINE "DATA",160.16,6,"FIELD",123,3) L,BLANK "DATA",160.16,6,"FIELD",124,0) 276^8^283^RX Date - Hormone/Steroid "DATA",160.16,6,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,6,"FIELD",124,2) NINE "DATA",160.16,6,"FIELD",124,3) L,BLANK "DATA",160.16,6,"FIELD",125,0) 284^8^291^RX Date - Biological Resp. Mod. "DATA",160.16,6,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,6,"FIELD",125,2) NINE "DATA",160.16,6,"FIELD",125,3) L,BLANK "DATA",160.16,6,"FIELD",126,0) 292^8^299^RX Date - Other Cancer Dir. "DATA",160.16,6,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,6,"FIELD",126,2) NINE "DATA",160.16,6,"FIELD",126,3) L,BLANK "DATA",160.16,6,"FIELD",127,0) 300^8^307^Date of Initial Treatment "DATA",160.16,6,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",127,2) ZERO "DATA",160.16,6,"FIELD",127,3) L,ZERO "DATA",160.16,6,"FIELD",130,0) 308^2^309^RX Summary-Surgery Type "DATA",160.16,6,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,6,"FIELD",130,2) ZERO "DATA",160.16,6,"FIELD",130,3) L,ZERO "DATA",160.16,6,"FIELD",133,0) 232^1^232^Residual Tumor "DATA",160.16,6,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,6,"FIELD",133,2) BLANK "DATA",160.16,6,"FIELD",133,3) L,BLANK "DATA",160.16,6,"FIELD",135,0) 310^1^310^Reason for no Surgery "DATA",160.16,6,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,6,"FIELD",135,2) BLANK "DATA",160.16,6,"FIELD",135,3) L,BLANK "DATA",160.16,6,"FIELD",137,0) 311^1^311^RX Summary-Radiation "DATA",160.16,6,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,6,"FIELD",137,2) NINE "DATA",160.16,6,"FIELD",137,3) L,ZERO "DATA",160.16,6,"FIELD",138,0) 312^1^312^RX Summary-Rad. to CNS "DATA",160.16,6,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.1,"I") "DATA",160.16,6,"FIELD",138,2) NINE "DATA",160.16,6,"FIELD",138,3) L,ZERO "DATA",160.16,6,"FIELD",139,0) 313^1^313^RX Summary-Surg./Rad. Type "DATA",160.16,6,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,6,"FIELD",139,2) NINE "DATA",160.16,6,"FIELD",139,3) L,ZERO "DATA",160.16,6,"FIELD",140,0) 314^1^314^RX Summary- Chemo "DATA",160.16,6,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,6,"FIELD",140,2) NINE "DATA",160.16,6,"FIELD",140,3) L,ZERO "DATA",160.16,6,"FIELD",141,0) 315^1^315^RX Summary- Hormone "DATA",160.16,6,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,6,"FIELD",141,2) NINE "DATA",160.16,6,"FIELD",141,3) L,ZERO "DATA",160.16,6,"FIELD",142,0) 316^1^316^RX Summary- BRM "DATA",160.16,6,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,6,"FIELD",142,2) NINE "DATA",160.16,6,"FIELD",142,3) L,ZERO "DATA",160.16,6,"FIELD",143,0) 317^1^317^RX Summary- Other "DATA",160.16,6,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,6,"FIELD",143,2) NINE "DATA",160.16,6,"FIELD",143,3) L,ZERO "DATA",160.16,6,"FIELD",147,0) 251^1^251^RX Coding System-Current "DATA",160.16,6,"FIELD",147,1) S ACDANS="3" "DATA",160.16,6,"FIELD",147,2) ZERO "DATA",160.16,6,"FIELD",147,3) L,ZERO "DATA",160.16,6,"FIELD",151,0) 318^1^318^First Course Calc. Method "DATA",160.16,6,"FIELD",151,1) S ACDANS="2" "DATA",160.16,6,"FIELD",151,2) BLANK "DATA",160.16,6,"FIELD",151,3) L,BLANK "DATA",160.16,6,"FIELD",167,0) 338^8^345^Subseq RX - Date (#2) "DATA",160.16,6,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",167,2) BLANK "DATA",160.16,6,"FIELD",167,3) L,BLANK "DATA",160.16,6,"FIELD",168,0) 346^2^347^Subseq RX - Code (#2) Surgery "DATA",160.16,6,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,6,"FIELD",168,2) BLANK "DATA",160.16,6,"FIELD",168,3) L,BLANK "DATA",160.16,6,"FIELD",169,0) 348^1^348^Subseq RX - Code (#2) Radiation "DATA",160.16,6,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,6,"FIELD",169,2) BLANK "DATA",160.16,6,"FIELD",169,3) L,BLANK "DATA",160.16,6,"FIELD",170,0) 349^1^349^Subseq RX - Code (#2) Chem. "DATA",160.16,6,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,6,"FIELD",170,2) BLANK "DATA",160.16,6,"FIELD",170,3) L,BLANK "DATA",160.16,6,"FIELD",171,0) 350^1^350^Subseq RX - Code (#2) Hormone "DATA",160.16,6,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,6,"FIELD",171,2) BLANK "DATA",160.16,6,"FIELD",171,3) L,BLANK "DATA",160.16,6,"FIELD",172,0) 351^1^351^Subseq RX - Code (#2) Biological "DATA",160.16,6,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,6,"FIELD",172,2) BLANK "DATA",160.16,6,"FIELD",172,3) L,BLANK "DATA",160.16,6,"FIELD",173,0) 352^1^352^Subseq RX - Code (#2) Other "DATA",160.16,6,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,6,"FIELD",173,2) BLANK "DATA",160.16,6,"FIELD",173,3) L,BLANK "DATA",160.16,6,"FIELD",174,0) 353^8^360^Subseq RX - Date (#3) "DATA",160.16,6,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",174,2) BLANK "DATA",160.16,6,"FIELD",174,3) L,BLANK "DATA",160.16,6,"FIELD",175,0) 361^2^362^Subseq RX - Code (#3) Surgery "DATA",160.16,6,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,6,"FIELD",175,2) BLANK "DATA",160.16,6,"FIELD",175,3) L,BLANK "DATA",160.16,6,"FIELD",176,0) 363^1^363^Subseq RX - Code (#3) Radiation "DATA",160.16,6,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,6,"FIELD",176,2) BLANK "DATA",160.16,6,"FIELD",176,3) L,BLANK "DATA",160.16,6,"FIELD",177,0) 364^1^364^Subseq RX - Code (#3) Chemo. "DATA",160.16,6,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,6,"FIELD",177,2) BLANK "DATA",160.16,6,"FIELD",177,3) L,BLANK "DATA",160.16,6,"FIELD",178,0) 365^1^365^Subseq RX - Code (#3) Hormone "DATA",160.16,6,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,6,"FIELD",178,2) BLANK "DATA",160.16,6,"FIELD",178,3) L,BLANK "DATA",160.16,6,"FIELD",179,0) 366^1^366^Subseq RX - Code (#3) Biological "DATA",160.16,6,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,6,"FIELD",179,2) BLANK "DATA",160.16,6,"FIELD",179,3) L,BLANK "DATA",160.16,6,"FIELD",180,0) 367^1^367^Subseq RX - Code (#3) Other "DATA",160.16,6,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,6,"FIELD",180,2) BLANK "DATA",160.16,6,"FIELD",180,3) L,BLANK "DATA",160.16,6,"FIELD",181,0) 368^8^375^Subseq RX - Date (#4) "DATA",160.16,6,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",181,2) BLANK "DATA",160.16,6,"FIELD",181,3) L,BLANK "DATA",160.16,6,"FIELD",182,0) 376^2^377^Subseq RX - Code (#4) Surgery "DATA",160.16,6,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,6,"FIELD",182,2) BLANK "DATA",160.16,6,"FIELD",182,3) L,BLANK "DATA",160.16,6,"FIELD",183,0) 378^1^378^Subseq RX - Code (#4) Radiation "DATA",160.16,6,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,6,"FIELD",183,2) BLANK "DATA",160.16,6,"FIELD",183,3) L,BLANK "DATA",160.16,6,"FIELD",184,0) 379^1^379^Subseq RX - Code (#4) Chemo. "DATA",160.16,6,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,6,"FIELD",184,2) BLANK "DATA",160.16,6,"FIELD",184,3) L,BLANK "DATA",160.16,6,"FIELD",185,0) 380^1^380^Subseq RX - Code (#4) Hormone "DATA",160.16,6,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,6,"FIELD",185,2) BLANK "DATA",160.16,6,"FIELD",185,3) L,BLANK "DATA",160.16,6,"FIELD",186,0) 381^1^381^Subseq RX - Code (#4) Biological "DATA",160.16,6,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,6,"FIELD",186,2) BLANK "DATA",160.16,6,"FIELD",186,3) L,BLANK "DATA",160.16,6,"FIELD",187,0) 382^1^382^Subseq RX - Code (#4) Other "DATA",160.16,6,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,6,"FIELD",187,2) BLANK "DATA",160.16,6,"FIELD",187,3) L,BLANK "DATA",160.16,6,"FIELD",188,0) 383^8^390^Subseq RX - Date (#5) "DATA",160.16,6,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",188,2) BLANK "DATA",160.16,6,"FIELD",188,3) L,BLANK "DATA",160.16,6,"FIELD",189,0) 391^2^392^Subseq RX - Code (#5) Surgery "DATA",160.16,6,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,6,"FIELD",189,2) BLANK "DATA",160.16,6,"FIELD",189,3) L,BLANK "DATA",160.16,6,"FIELD",190,0) 393^1^393^Subseq RX - Code (#5) Radiation "DATA",160.16,6,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,6,"FIELD",190,2) BLANK "DATA",160.16,6,"FIELD",190,3) L,BLANK "DATA",160.16,6,"FIELD",191,0) 394^1^394^Subseq RX - Code (#5) Chemo. "DATA",160.16,6,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,6,"FIELD",191,2) BLANK "DATA",160.16,6,"FIELD",191,3) L,BLANK "DATA",160.16,6,"FIELD",192,0) 395^1^395^Subseq RX - Code (#5) Hormone "DATA",160.16,6,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,6,"FIELD",192,2) BLANK "DATA",160.16,6,"FIELD",192,3) L,BLANK "DATA",160.16,6,"FIELD",193,0) 396^1^396^Subseq RX - Code (#5) Biological "DATA",160.16,6,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,6,"FIELD",193,2) BLANK "DATA",160.16,6,"FIELD",193,3) L,BLANK "DATA",160.16,6,"FIELD",194,0) 397^1^397^Subseq RX - Code (#5) Other "DATA",160.16,6,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,6,"FIELD",194,2) BLANK "DATA",160.16,6,"FIELD",194,3) L,BLANK "DATA",160.16,6,"FIELD",196,0) 418^8^425^Date of last Contact "DATA",160.16,6,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",196,2) NINE "DATA",160.16,6,"FIELD",196,3) L,BLANK "DATA",160.16,6,"FIELD",197,0) 426^1^426^Vital Status "DATA",160.16,6,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,6,"FIELD",197,2) NINE "DATA",160.16,6,"FIELD",197,3) L,BLANK "DATA",160.16,6,"FIELD",198,0) 427^1^427^Cancer Status "DATA",160.16,6,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,6,"FIELD",198,2) NINE "DATA",160.16,6,"FIELD",198,3) L,BLANK "DATA",160.16,6,"FIELD",199,0) 428^1^428^Quality of Survival "DATA",160.16,6,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,6,"FIELD",199,2) BLANK "DATA",160.16,6,"FIELD",199,3) L,BLANK "DATA",160.16,6,"FIELD",200,0) 429^1^429^Last Type of Follow-up "DATA",160.16,6,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,6,"FIELD",200,2) BLANK "DATA",160.16,6,"FIELD",200,3) L,BLANK "DATA",160.16,6,"FIELD",202,0) 430^20^449^City/Town - Current "DATA",160.16,6,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,6,"FIELD",202,2) BLANK "DATA",160.16,6,"FIELD",202,3) R,BLANK "DATA",160.16,6,"FIELD",203,0) 450^2^451^State - Current "DATA",160.16,6,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,6,"FIELD",203,2) BLANK "DATA",160.16,6,"FIELD",203,3) R,BLANK "DATA",160.16,6,"FIELD",204,0) 452^9^460^Postal Code "DATA",160.16,6,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,6,"FIELD",204,2) BLANK "DATA",160.16,6,"FIELD",204,3) R,BLANK "DATA",160.16,6,"FIELD",207,0) 461^8^468^Date of First Recurrence "DATA",160.16,6,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",207,2) ZERO "DATA",160.16,6,"FIELD",207,3) L,ZERO "DATA",160.16,6,"FIELD",208,0) 470^3^472^Site of First Recurrence "DATA",160.16,6,"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,6,"FIELD",208,2) BLANK "DATA",160.16,6,"FIELD",208,3) L,BLANK "DATA",160.16,6,"FIELD",209,0) 469^1^469^Type of First Recurrence "DATA",160.16,6,"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,6,"FIELD",209,2) ZERO "DATA",160.16,6,"FIELD",209,3) L,ZERO "DATA",160.16,6,"FIELD",213,0) 473^4^476^Cause of Death "DATA",160.16,6,"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") "DATA",160.16,6,"FIELD",213,2) ZERO "DATA",160.16,6,"FIELD",213,3) L,ZERO "DATA",160.16,6,"FIELD",214,0) 477^1^477^ICD Revision Number "DATA",160.16,6,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,6,"FIELD",214,2) ZERO "DATA",160.16,6,"FIELD",214,3) L,ZERO "DATA",160.16,6,"FIELD",215,0) 478^1^478^Autopsy "DATA",160.16,6,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,6,"FIELD",215,2) BLANK "DATA",160.16,6,"FIELD",215,3) L,BLANK "DATA",160.16,6,"FIELD",216,0) 479^3^481^Place of death "DATA",160.16,6,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,6,"FIELD",216,2) BLANK "DATA",160.16,6,"FIELD",216,3) L,BLANK "DATA",160.16,6,"FIELD",218,0) 491^4^494^Site (1973-91) "DATA",160.16,6,"FIELD",218,1) S ACDANS="" "DATA",160.16,6,"FIELD",218,2) BLANK "DATA",160.16,6,"FIELD",218,3) L,BLANK "DATA",160.16,6,"FIELD",219,0) 495^6^500^Morph. (1973-91) "DATA",160.16,6,"FIELD",219,1) S ACDANS="" "DATA",160.16,6,"FIELD",219,2) BLANK "DATA",160.16,6,"FIELD",219,3) L,BLANK "DATA",160.16,6,"FIELD",220,0) 501^1^501^ICD-O-2 Conversion Flag "DATA",160.16,6,"FIELD",220,1) S ACDANS=4 "DATA",160.16,6,"FIELD",220,2) BLANK "DATA",160.16,6,"FIELD",220,3) L,BLANK "DATA",160.16,6,"FIELD",221,0) 482^1^482^Over-Ride Age/Site "DATA",160.16,6,"FIELD",221,1) S ACDANS="" "DATA",160.16,6,"FIELD",221,2) BLANK "DATA",160.16,6,"FIELD",221,3) L,BLANK "DATA",160.16,6,"FIELD",222,0) 483^1^483^Over-Ride SeqNo/DxConf "DATA",160.16,6,"FIELD",222,1) S ACDANS="" "DATA",160.16,6,"FIELD",222,2) BLANK "DATA",160.16,6,"FIELD",222,3) L,BLANK "DATA",160.16,6,"FIELD",223,0) 484^1^484^Over-Ride Site/Lat/SeqNo "DATA",160.16,6,"FIELD",223,1) S ACDANS="" "DATA",160.16,6,"FIELD",223,2) BLANK "DATA",160.16,6,"FIELD",223,3) L,BLANK "DATA",160.16,6,"FIELD",224,0) 485^1^485^Over-Ride Surg./DxConf "DATA",160.16,6,"FIELD",224,1) S ACDANS="" "DATA",160.16,6,"FIELD",224,2) BLANK "DATA",160.16,6,"FIELD",224,3) L,BLANK "DATA",160.16,6,"FIELD",225,0) 486^1^486^Over-Ride Site/Type "DATA",160.16,6,"FIELD",225,1) S ACDANS="" "DATA",160.16,6,"FIELD",225,2) BLANK "DATA",160.16,6,"FIELD",225,3) L,BLANK "DATA",160.16,6,"FIELD",226,0) 487^1^487^Over-Ride Histology "DATA",160.16,6,"FIELD",226,1) S ACDANS="" "DATA",160.16,6,"FIELD",226,2) BLANK "DATA",160.16,6,"FIELD",226,3) L,BLANK "DATA",160.16,6,"FIELD",227,0) 488^1^488^Over-Ride Report Source "DATA",160.16,6,"FIELD",227,1) S ACDANS="" "DATA",160.16,6,"FIELD",227,2) BLANK "DATA",160.16,6,"FIELD",227,3) L,BLANK "DATA",160.16,6,"FIELD",228,0) 489^1^489^Over-Ride Ill-Defined Site "DATA",160.16,6,"FIELD",228,1) S ACDANS="" "DATA",160.16,6,"FIELD",228,2) BLANK "DATA",160.16,6,"FIELD",228,3) L,BLANK "DATA",160.16,6,"FIELD",229,0) 490^1^490^Over-Ride Leuk, Lymphoma "DATA",160.16,6,"FIELD",229,1) S ACDANS="" "DATA",160.16,6,"FIELD",229,2) BLANK "DATA",160.16,6,"FIELD",229,3) L,BLANK "DATA",160.16,6,"FIELD",231,0) 503^8^510^Date Case Completed "DATA",160.16,6,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,6,"FIELD",231,2) BLANK "DATA",160.16,6,"FIELD",231,3) L,BLANK "DATA",160.16,6,"FIELD",232,0) 511^8^518^Date Case Last Changed "DATA",160.16,6,"FIELD",232,1) S ACDANS="" "DATA",160.16,6,"FIELD",232,2) BLANK "DATA",160.16,6,"FIELD",232,3) L,BLANK "DATA",160.16,6,"FIELD",234,0) 521^1^521^SEER Coding Sys-Current "DATA",160.16,6,"FIELD",234,1) S ACDANS=4 "DATA",160.16,6,"FIELD",234,2) BLANK "DATA",160.16,6,"FIELD",234,3) L,BLANK "DATA",160.16,6,"FIELD",235,0) 522^1^522^SEER Coding Sys-Original "DATA",160.16,6,"FIELD",235,1) S ACDANS=4 "DATA",160.16,6,"FIELD",235,2) BLANK "DATA",160.16,6,"FIELD",235,3) L,BLANK "DATA",160.16,6,"FIELD",236,0) 523^1^523^COC Coding System Current "DATA",160.16,6,"FIELD",236,1) S ACDANS=6 "DATA",160.16,6,"FIELD",236,2) BLANK "DATA",160.16,6,"FIELD",236,3) L,BLANK "DATA",160.16,6,"FIELD",237,0) 524^1^524^COC Coding System Original "DATA",160.16,6,"FIELD",237,1) S ACDANS=6 "DATA",160.16,6,"FIELD",237,2) BLANK "DATA",160.16,6,"FIELD",237,3) L,BLANK "DATA",160.16,6,"FIELD",238,0) 525^1^525^Subseq Report for Primary "DATA",160.16,6,"FIELD",238,1) S ACDANS="" "DATA",160.16,6,"FIELD",238,2) BLANK "DATA",160.16,6,"FIELD",238,3) L,BLANK "DATA",160.16,6,"FIELD",239,0) 526^10^535^Vender Name "DATA",160.16,6,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,6,"FIELD",239,2) BLANK "DATA",160.16,6,"FIELD",239,3) L,BLANK "DATA",160.16,6,"FIELD",240,0) 537^1^537^SEER Type of Follow-up "DATA",160.16,6,"FIELD",240,1) S ACDANS="" "DATA",160.16,6,"FIELD",240,2) BLANK "DATA",160.16,6,"FIELD",240,3) L,BLANK "DATA",160.16,6,"FIELD",241,0) 538^2^539^SEER Record Number "DATA",160.16,6,"FIELD",241,1) S ACDANS="" "DATA",160.16,6,"FIELD",241,2) BLANK "DATA",160.16,6,"FIELD",241,3) L,BLANK "DATA",160.16,6,"FIELD",242,0) 540^2^541^Diagnostic Procedures '73-'87 "DATA",160.16,6,"FIELD",242,1) S ACDANS="" "DATA",160.16,6,"FIELD",242,2) BLANK "DATA",160.16,6,"FIELD",242,3) L,BLANK "DATA",160.16,6,"FIELD",339,0) 851^15^865^Name-Last "DATA",160.16,6,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,6,"FIELD",339,2) BLANK "DATA",160.16,6,"FIELD",339,3) R,BLANK "DATA",160.16,6,"FIELD",340,0) 866^14^879^Name-First "DATA",160.16,6,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,6,"FIELD",340,2) BLANK "DATA",160.16,6,"FIELD",340,3) R,BLANK "DATA",160.16,6,"FIELD",341,0) 880^1^880^Name-Middle "DATA",160.16,6,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,6,"FIELD",341,2) BLANK "DATA",160.16,6,"FIELD",341,3) R,BLANK "DATA",160.16,6,"FIELD",344,0) 881^15^895^Name-Alias "DATA",160.16,6,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,6,"FIELD",344,2) BLANK "DATA",160.16,6,"FIELD",344,3) R,BLANK "DATA",160.16,6,"FIELD",345,0) 896^50^945^Name-Spouse "DATA",160.16,6,"FIELD",345,1) S ACDANS="" "DATA",160.16,6,"FIELD",345,2) BLANK "DATA",160.16,6,"FIELD",345,3) R,BLANK "DATA",160.16,6,"FIELD",346,0) 946^11^956^Medical Record NBR "DATA",160.16,6,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,6,"FIELD",346,2) BLANK "DATA",160.16,6,"FIELD",346,3) L,BLANK "DATA",160.16,6,"FIELD",348,0) 957^9^965^Social Security NBR "DATA",160.16,6,"FIELD",348,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,6,"FIELD",348,2) NINE "DATA",160.16,6,"FIELD",348,3) L,BLANK "DATA",160.16,6,"FIELD",349,0) 966^25^990^Address at DX-Street "DATA",160.16,6,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,6,"FIELD",349,2) BLANK "DATA",160.16,6,"FIELD",349,3) R,BLANK "DATA",160.16,6,"FIELD",352,0) 1046^10^1055^Telephone Number "DATA",160.16,6,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,6,"FIELD",352,2) ZERO "DATA",160.16,6,"FIELD",352,3) R,BLANK "DATA",160.16,6,"FIELD",354,0) 1056^6^1061^DC State File NBR "DATA",160.16,6,"FIELD",354,1) S ACDANS="" "DATA",160.16,6,"FIELD",354,2) BLANK "DATA",160.16,6,"FIELD",354,3) L,BLANK "DATA",160.16,6,"FIELD",355,0) 1062^15^1076^Maiden-Name "DATA",160.16,6,"FIELD",355,1) S ACDANS="" "DATA",160.16,6,"FIELD",355,2) BLANK "DATA",160.16,6,"FIELD",355,3) R,BLANK "DATA",160.16,6,"FIELD",356,0) 1077^5^1081^Reserved "DATA",160.16,6,"FIELD",356,1) S ACDANS="" "DATA",160.16,6,"FIELD",356,2) BLANK "DATA",160.16,6,"FIELD",356,3) L,BLANK "DATA",160.16,6,"FIELD",357,0) 1082^8^1089^Institution Referred from "DATA",160.16,6,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,6,"FIELD",357,2) ZERO "DATA",160.16,6,"FIELD",357,3) L,BLANK "DATA",160.16,6,"FIELD",358,0) 1090^8^1097^Institution Referred to "DATA",160.16,6,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,6,"FIELD",358,2) ZERO "DATA",160.16,6,"FIELD",358,3) L,ZERO "DATA",160.16,6,"FIELD",359,0) 1098^8^1105^Last Follow up Hospital "DATA",160.16,6,"FIELD",359,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,6,"FIELD",359,2) BLANK "DATA",160.16,6,"FIELD",359,3) L,ZERO "DATA",160.16,6,"FIELD",362,0) 1114^8^1121^Managing Physician "DATA",160.16,6,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,6,"FIELD",362,2) NINE "DATA",160.16,6,"FIELD",362,3) L,BLANK "DATA",160.16,6,"FIELD",363,0) 1122^8^1129^Following Physician "DATA",160.16,6,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,6,"FIELD",363,2) BLANK "DATA",160.16,6,"FIELD",363,3) L,BLANK "DATA",160.16,6,"FIELD",368,0) 1151^200^1350^Text-DX Proc-PE "DATA",160.16,6,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,6,"FIELD",368,2) BLANK "DATA",160.16,6,"FIELD",368,3) R,BLANK "DATA",160.16,6,"FIELD",369,0) 1351^250^1600^Text-DX Proc-XRAY "DATA",160.16,6,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,6,"FIELD",369,2) BLANK "DATA",160.16,6,"FIELD",369,3) R,BLANK "DATA",160.16,6,"FIELD",370,0) 1601^250^1850^Text-DX Proc-Scopes "DATA",160.16,6,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,6,"FIELD",370,2) BLANK "DATA",160.16,6,"FIELD",370,3) R,BLANK "DATA",160.16,6,"FIELD",371,0) 1851^250^2100^Text-DX Proc-Lab "DATA",160.16,6,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,6,"FIELD",371,2) BLANK "DATA",160.16,6,"FIELD",371,3) R,BLANK "DATA",160.16,6,"FIELD",372,0) 2101^250^2350^Text-DX Proc-OPS "DATA",160.16,6,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,6,"FIELD",372,2) BLANK "DATA",160.16,6,"FIELD",372,3) R,BLANK "DATA",160.16,6,"FIELD",373,0) 2351^250^2600^Text-DX Proc-PATH "DATA",160.16,6,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,6,"FIELD",373,2) BLANK "DATA",160.16,6,"FIELD",373,3) R,BLANK "DATA",160.16,6,"FIELD",374,0) 2601^40^2640^Text-Primary Site "DATA",160.16,6,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,6,"FIELD",374,2) BLANK "DATA",160.16,6,"FIELD",374,3) R,BLANK "DATA",160.16,6,"FIELD",375,0) 2641^40^2680^Text-Histology "DATA",160.16,6,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,6,"FIELD",375,2) BLANK "DATA",160.16,6,"FIELD",375,3) R,BLANK "DATA",160.16,6,"FIELD",376,0) 2681^300^2980^Text-Staging "DATA",160.16,6,"FIELD",376,1) S ACDANS="" "DATA",160.16,6,"FIELD",376,2) BLANK "DATA",160.16,6,"FIELD",376,3) R,BLANK "DATA",160.16,6,"FIELD",377,0) 2981^150^3130^Text-RX-Surgery "DATA",160.16,6,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,6,"FIELD",377,2) BLANK "DATA",160.16,6,"FIELD",377,3) R,BLANK "DATA",160.16,6,"FIELD",378,0) 3131^150^3280^Text-RX-RAD(Beam) "DATA",160.16,6,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,6,"FIELD",378,2) BLANK "DATA",160.16,6,"FIELD",378,3) R,BLANK "DATA",160.16,6,"FIELD",379,0) 3281^150^3430^Text-RX-RAD-Other "DATA",160.16,6,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,6,"FIELD",379,2) BLANK "DATA",160.16,6,"FIELD",379,3) R,BLANK "DATA",160.16,6,"FIELD",380,0) 3431^200^3630^Text-RX-Chemo "DATA",160.16,6,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,6,"FIELD",380,2) BLANK "DATA",160.16,6,"FIELD",380,3) R,BLANK "DATA",160.16,6,"FIELD",381,0) 3631^200^3830^Text-RX-Hormone "DATA",160.16,6,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,6,"FIELD",381,2) BLANK "DATA",160.16,6,"FIELD",381,3) R,BLANK "DATA",160.16,6,"FIELD",382,0) 3831^100^3930^Text-RX-Immunotherapy "DATA",160.16,6,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,6,"FIELD",382,2) BLANK "DATA",160.16,6,"FIELD",382,3) R,BLANK "DATA",160.16,6,"FIELD",383,0) 3931^100^4030^Text-RX-Other "DATA",160.16,6,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,6,"FIELD",383,2) BLANK "DATA",160.16,6,"FIELD",383,3) R,BLANK "DATA",160.16,6,"FIELD",384,0) 4031^350^4380^Text-Remarks "DATA",160.16,6,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,6,"FIELD",384,2) BLANK "DATA",160.16,6,"FIELD",384,3) R,BLANK "DATA",160.16,6,"FIELD",385,0) 4481^50^4530^Place of Diagnosis "DATA",160.16,6,"FIELD",385,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,6,"FIELD",385,2) BLANK "DATA",160.16,6,"FIELD",385,3) R,BLANK "DATA",160.16,6,"FIELD",386,0) 4531^770^5300^Reserved "DATA",160.16,6,"FIELD",386,1) S ACDANS="" "DATA",160.16,6,"FIELD",386,2) BLANK "DATA",160.16,6,"FIELD",386,3) L,BLANK "DATA",160.16,6,"FIELD",388,0) 101^6^106^Reserved for expansion "DATA",160.16,6,"FIELD",388,1) S ACDANS="" "DATA",160.16,6,"FIELD",388,2) BLANK "DATA",160.16,6,"FIELD",388,3) L,BLANK "DATA",160.16,6,"FIELD",389,0) 136^2^137^Accession Year "DATA",160.16,6,"FIELD",389,1) S ACDANS=$E(DATE,3,4) "DATA",160.16,6,"FIELD",389,2) BLANK "DATA",160.16,6,"FIELD",389,3) L,BLANK "DATA",160.16,6,"FIELD",390,0) 138^4^141^Reserved for expansion "DATA",160.16,6,"FIELD",390,1) S ACDANS="" "DATA",160.16,6,"FIELD",390,2) BLANK "DATA",160.16,6,"FIELD",390,3) L,BLANK "DATA",160.16,6,"FIELD",391,0) 233^4^236^Alternate Staging Scheme "DATA",160.16,6,"FIELD",391,1) S ACDANS="" "DATA",160.16,6,"FIELD",391,2) BLANK "DATA",160.16,6,"FIELD",391,3) L,BLANK "DATA",160.16,6,"FIELD",392,0) 241^10^250^Reserved for expansion "DATA",160.16,6,"FIELD",392,1) S ACDANS="" "DATA",160.16,6,"FIELD",392,2) BLANK "DATA",160.16,6,"FIELD",392,3) L,BLANK "DATA",160.16,6,"FIELD",393,0) 319^19^337^Reserved for expansion "DATA",160.16,6,"FIELD",393,1) S ACDANS="" "DATA",160.16,6,"FIELD",393,2) BLANK "DATA",160.16,6,"FIELD",393,3) L,BLANK "DATA",160.16,6,"FIELD",394,0) 398^20^417^Reserved for expansion "DATA",160.16,6,"FIELD",394,1) S ACDANS="" "DATA",160.16,6,"FIELD",394,2) BLANK "DATA",160.16,6,"FIELD",394,3) L,BLANK "DATA",160.16,6,"FIELD",395,0) 502^1^502^Reserved for expansion "DATA",160.16,6,"FIELD",395,1) S ACDANS="" "DATA",160.16,6,"FIELD",395,2) BLANK "DATA",160.16,6,"FIELD",395,3) L,BLANK "DATA",160.16,6,"FIELD",396,0) 519^2^520^General Coding Procedure "DATA",160.16,6,"FIELD",396,1) S ACDANS="" "DATA",160.16,6,"FIELD",396,2) BLANK "DATA",160.16,6,"FIELD",396,3) L,BLANK "DATA",160.16,6,"FIELD",397,0) 536^1^536^NAACCR Record version "DATA",160.16,6,"FIELD",397,1) S ACDANS="4" "DATA",160.16,6,"FIELD",397,2) BLANK "DATA",160.16,6,"FIELD",397,3) L,BLANK "DATA",160.16,6,"FIELD",398,0) 542^1^542^Coding System for EOD "DATA",160.16,6,"FIELD",398,1) S ACDANS="" "DATA",160.16,6,"FIELD",398,2) BLANK "DATA",160.16,6,"FIELD",398,3) L,BLANK "DATA",160.16,6,"FIELD",399,0) 543^8^550^Reserved for expansion "DATA",160.16,6,"FIELD",399,1) S ACDANS="" "DATA",160.16,6,"FIELD",399,2) BLANK "DATA",160.16,6,"FIELD",399,3) L,BLANK "DATA",160.16,6,"FIELD",400,0) 551^200^750^Site-Specific Studies "DATA",160.16,6,"FIELD",400,1) S ACDANS="" "DATA",160.16,6,"FIELD",400,2) BLANK "DATA",160.16,6,"FIELD",400,3) L,BLANK "DATA",160.16,6,"FIELD",401,0) 751^100^850^State-Specific Studies "DATA",160.16,6,"FIELD",401,1) S ACDANS="" "DATA",160.16,6,"FIELD",401,2) BLANK "DATA",160.16,6,"FIELD",401,3) L,BLANK "DATA",160.16,6,"FIELD",402,0) 991^30^1020^Followup Contact Name "DATA",160.16,6,"FIELD",402,1) S ACDANS="" "DATA",160.16,6,"FIELD",402,2) BLANK "DATA",160.16,6,"FIELD",402,3) L,BLANK "DATA",160.16,6,"FIELD",403,0) 1021^25^1045^Followup Contact Address "DATA",160.16,6,"FIELD",403,1) S ACDANS="" "DATA",160.16,6,"FIELD",403,2) BLANK "DATA",160.16,6,"FIELD",403,3) L,BLANK "DATA",160.16,6,"FIELD",404,0) 1106^8^1113^Next Followup Hospital "DATA",160.16,6,"FIELD",404,1) S ACDANS="" "DATA",160.16,6,"FIELD",404,2) BLANK "DATA",160.16,6,"FIELD",404,3) L,BLANK "DATA",160.16,6,"FIELD",405,0) 1130^21^1150^Reserved for expansion "DATA",160.16,6,"FIELD",405,1) S ACDANS="" "DATA",160.16,6,"FIELD",405,2) BLANK "DATA",160.16,6,"FIELD",405,3) L,BLANK "DATA",160.16,6,"RULES",0) ^^4^4^2990310^^^^ "DATA",160.16,6,"RULES",1,0) S VALID=1 "DATA",160.16,6,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,6,"RULES",3,0) S JUMP=0 "DATA",160.16,6,"RULES",4,0) K SCREEN "DATA",160.16,7,0) NAACCR STATE EXTRACT V4.0 "DATA",160.16,7,"FIELD",0) ^160.161I^406^213 "DATA",160.16,7,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,7,"FIELD",1,1) S ACDANS="A" "DATA",160.16,7,"FIELD",1,2) BLANK "DATA",160.16,7,"FIELD",1,3) L,BLANK "DATA",160.16,7,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,7,"FIELD",2,1) S ACDANS="" "DATA",160.16,7,"FIELD",2,2) ZERO "DATA",160.16,7,"FIELD",2,3) L,BLANK "DATA",160.16,7,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,7,"FIELD",3,1) S ACDANS=3 "DATA",160.16,7,"FIELD",3,2) BLANK "DATA",160.16,7,"FIELD",3,3) L,BLANK "DATA",160.16,7,"FIELD",4,0) 11^8^18^Registry ID "DATA",160.16,7,"FIELD",4,1) S ACDANS="6"_STAT1_"0" "DATA",160.16,7,"FIELD",4,2) BLANK "DATA",160.16,7,"FIELD",4,3) L,BLANK "DATA",160.16,7,"FIELD",6,0) 107^2^108^Tumor Record Number "DATA",160.16,7,"FIELD",6,1) S ACDANS="" "DATA",160.16,7,"FIELD",6,2) BLANK "DATA",160.16,7,"FIELD",6,3) L,BLANK "DATA",160.16,7,"FIELD",7,0) 19^20^38^Add at Dx City "DATA",160.16,7,"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,7,"FIELD",7,2) BLANK "DATA",160.16,7,"FIELD",7,3) R,BLANK "DATA",160.16,7,"FIELD",8,0) 39^2^40^Add at Dx State "DATA",160.16,7,"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,7,"FIELD",8,2) BLANK "DATA",160.16,7,"FIELD",8,3) L,BLANK "DATA",160.16,7,"FIELD",9,0) 41^3^43^County at DX "DATA",160.16,7,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",9,2) ZERO "DATA",160.16,7,"FIELD",9,3) L,ZERO "DATA",160.16,7,"FIELD",10,0) 44^9^52^Add at DX ZIP "DATA",160.16,7,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,7,"FIELD",10,2) BLANK "DATA",160.16,7,"FIELD",10,3) R,BLANK "DATA",160.16,7,"FIELD",11,0) 53^6^58^Census Tract "DATA",160.16,7,"FIELD",11,1) S ACDANS="" "DATA",160.16,7,"FIELD",11,2) BLANK "DATA",160.16,7,"FIELD",11,3) L,BLANK "DATA",160.16,7,"FIELD",12,0) 59^1^59^Census Tract Coding System "DATA",160.16,7,"FIELD",12,1) S ACDANS="" "DATA",160.16,7,"FIELD",12,2) BLANK "DATA",160.16,7,"FIELD",12,3) L,BLANK "DATA",160.16,7,"FIELD",15,0) 60^1^60^Marital Status "DATA",160.16,7,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") S ACDANS=$S(ACDANS>0!(ACDANS<6):ACDANS,1:"") "DATA",160.16,7,"FIELD",15,2) BLANK "DATA",160.16,7,"FIELD",15,3) L,BLANK "DATA",160.16,7,"FIELD",16,0) 61^2^62^Race "DATA",160.16,7,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,7,"FIELD",16,2) BLANK "DATA",160.16,7,"FIELD",16,3) L,ZERO "DATA",160.16,7,"FIELD",17,0) 63^1^63^Race Coding-Current "DATA",160.16,7,"FIELD",17,1) S ACDANS="5" "DATA",160.16,7,"FIELD",17,2) BLANK "DATA",160.16,7,"FIELD",17,3) L,BLANK "DATA",160.16,7,"FIELD",18,0) 64^1^64^Race Coding-Original "DATA",160.16,7,"FIELD",18,1) S ACDANS="5" "DATA",160.16,7,"FIELD",18,2) BLANK "DATA",160.16,7,"FIELD",18,3) L,BLANK "DATA",160.16,7,"FIELD",19,0) 65^1^65^Spanish/Hispanic Origin "DATA",160.16,7,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,7,"FIELD",19,2) BLANK "DATA",160.16,7,"FIELD",19,3) L,BLANK "DATA",160.16,7,"FIELD",20,0) 99^2^100^Computer-Derived Ethnicity "DATA",160.16,7,"FIELD",20,1) S ACDANS="" "DATA",160.16,7,"FIELD",20,2) BLANK "DATA",160.16,7,"FIELD",20,3) L,BLANK "DATA",160.16,7,"FIELD",22,0) 66^1^66^Sex "DATA",160.16,7,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,7,"FIELD",22,2) BLANK "DATA",160.16,7,"FIELD",22,3) L,BLANK "DATA",160.16,7,"FIELD",23,0) 67^3^69^Age at Diagnosis "DATA",160.16,7,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",23,2) BLANK "DATA",160.16,7,"FIELD",23,3) L,ZERO "DATA",160.16,7,"FIELD",24,0) 70^8^77^Birth Date "DATA",160.16,7,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",24,2) NINE "DATA",160.16,7,"FIELD",24,3) L,ZERO "DATA",160.16,7,"FIELD",25,0) 78^3^80^Birth Place "DATA",160.16,7,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,7,"FIELD",25,2) NINE "DATA",160.16,7,"FIELD",25,3) L,ZERO "DATA",160.16,7,"FIELD",26,0) 81^2^82^Religion "DATA",160.16,7,"FIELD",26,1) S ACDANS=99 "DATA",160.16,7,"FIELD",26,2) NINE "DATA",160.16,7,"FIELD",26,3) L,ZERO "DATA",160.16,7,"FIELD",27,0) 83^3^85^Occupation (Census) "DATA",160.16,7,"FIELD",27,1) S ACDANS="" "DATA",160.16,7,"FIELD",27,2) BLANK "DATA",160.16,7,"FIELD",27,3) L,BLANK "DATA",160.16,7,"FIELD",28,0) 86^3^88^Industry (Census) "DATA",160.16,7,"FIELD",28,1) S ACDANS="" "DATA",160.16,7,"FIELD",28,2) BLANK "DATA",160.16,7,"FIELD",28,3) L,BLANK "DATA",160.16,7,"FIELD",29,0) 89^4^92^Occupation Source "DATA",160.16,7,"FIELD",29,1) S ACDANS="" "DATA",160.16,7,"FIELD",29,2) BLANK "DATA",160.16,7,"FIELD",29,3) L,BLANK "DATA",160.16,7,"FIELD",30,0) 93^4^96^Industry Source "DATA",160.16,7,"FIELD",30,1) S ACDANS="" "DATA",160.16,7,"FIELD",30,2) BLANK "DATA",160.16,7,"FIELD",30,3) L,BLANK "DATA",160.16,7,"FIELD",31,0) 4381^100^4480^Usual Occupation/Industry (Text) "DATA",160.16,7,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,7,"FIELD",31,2) BLANK "DATA",160.16,7,"FIELD",31,3) R,BLANK "DATA",160.16,7,"FIELD",33,0) 97^1^97^Occup/Ind. Coding System "DATA",160.16,7,"FIELD",33,1) S ACDANS="" "DATA",160.16,7,"FIELD",33,2) BLANK "DATA",160.16,7,"FIELD",33,3) L,BLANK "DATA",160.16,7,"FIELD",34,0) 98^1^98^Tobacco History "DATA",160.16,7,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",34,2) BLANK "DATA",160.16,7,"FIELD",34,3) L,BLANK "DATA",160.16,7,"FIELD",39,0) 109^2^110^Sequence Number "DATA",160.16,7,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,7,"FIELD",39,2) BLANK "DATA",160.16,7,"FIELD",39,3) L,BLANK "DATA",160.16,7,"FIELD",40,0) 111^8^118^Date Of Diagnosis "DATA",160.16,7,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",40,2) ZERO "DATA",160.16,7,"FIELD",40,3) L,ZERO "DATA",160.16,7,"FIELD",41,0) 119^4^122^Primary Site "DATA",160.16,7,"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,7,"FIELD",41,2) ZERO "DATA",160.16,7,"FIELD",41,3) L,ZERO "DATA",160.16,7,"FIELD",42,0) 123^1^123^Laterality "DATA",160.16,7,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,7,"FIELD",42,2) BLANK "DATA",160.16,7,"FIELD",42,3) L,BLANK "DATA",160.16,7,"FIELD",43,0) 124^4^127^Histologic Type "DATA",160.16,7,"FIELD",43,1) S ACDANS=$$HIST~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",43,2) ZERO "DATA",160.16,7,"FIELD",43,3) L,ZERO "DATA",160.16,7,"FIELD",44,0) 128^1^128^Behavior "DATA",160.16,7,"FIELD",44,1) S ACDANS=$$BEHAV~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",44,2) ZERO "DATA",160.16,7,"FIELD",44,3) L,ZERO "DATA",160.16,7,"FIELD",45,0) 129^1^129^Grade or Differentiation "DATA",160.16,7,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,7,"FIELD",45,2) ZERO "DATA",160.16,7,"FIELD",45,3) L,ZERO "DATA",160.16,7,"FIELD",46,0) 130^1^130^Site Coding System-Cur.. "DATA",160.16,7,"FIELD",46,1) S ACDANS=4 "DATA",160.16,7,"FIELD",46,2) ZERO "DATA",160.16,7,"FIELD",46,3) L,ZERO "DATA",160.16,7,"FIELD",47,0) 131^1^131^Site Coding System-Org. "DATA",160.16,7,"FIELD",47,1) S ACDANS=4 "DATA",160.16,7,"FIELD",47,2) ZERO "DATA",160.16,7,"FIELD",47,3) L,ZERO "DATA",160.16,7,"FIELD",48,0) 132^1^132^Morph. Coding System-Cur "DATA",160.16,7,"FIELD",48,1) S ACDANS=5 "DATA",160.16,7,"FIELD",48,2) ZERO "DATA",160.16,7,"FIELD",48,3) L,ZERO "DATA",160.16,7,"FIELD",49,0) 133^1^133^Morph. Coding System-Org. "DATA",160.16,7,"FIELD",49,1) S ACDANS=4 "DATA",160.16,7,"FIELD",49,2) ZERO "DATA",160.16,7,"FIELD",49,3) L,ZERO "DATA",160.16,7,"FIELD",50,0) 134^1^134^Diagnostic Confirmation "DATA",160.16,7,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,7,"FIELD",50,2) NINE "DATA",160.16,7,"FIELD",50,3) L,ZERO "DATA",160.16,7,"FIELD",51,0) 135^1^135^Type of reporting Source "DATA",160.16,7,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,7,"FIELD",51,2) BLANK "DATA",160.16,7,"FIELD",51,3) L,BLANK "DATA",160.16,7,"FIELD",55,0) 142^8^149^Reporting Hospital "DATA",160.16,7,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") "DATA",160.16,7,"FIELD",55,2) ZERO "DATA",160.16,7,"FIELD",55,3) L,ZERO "DATA",160.16,7,"FIELD",56,0) 150^6^155^Accession Number (Hospital) "DATA",160.16,7,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,7,"FIELD",56,2) ZERO "DATA",160.16,7,"FIELD",56,3) L,ZERO "DATA",160.16,7,"FIELD",58,0) 156^3^158^Abstracted By "DATA",160.16,7,"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,7,"FIELD",58,2) BLANK "DATA",160.16,7,"FIELD",58,3) L,BLANK "DATA",160.16,7,"FIELD",59,0) 159^8^166^Date of Admission/First Contact "DATA",160.16,7,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",59,2) ZERO "DATA",160.16,7,"FIELD",59,3) L,ZERO "DATA",160.16,7,"FIELD",61,0) 167^8^174^Date of Inpatient Discharge "DATA",160.16,7,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",61,2) ZERO "DATA",160.16,7,"FIELD",61,3) L,ZERO "DATA",160.16,7,"FIELD",62,0) 175^1^175^Class of Case "DATA",160.16,7,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,7,"FIELD",62,2) ZERO "DATA",160.16,7,"FIELD",62,3) L,ZERO "DATA",160.16,7,"FIELD",68,0) 176^2^177^RX Hospital-CA Directed Surgery "DATA",160.16,7,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,7,"FIELD",68,2) ZERO "DATA",160.16,7,"FIELD",68,3) L,ZERO "DATA",160.16,7,"FIELD",70,0) 178^1^178^RX Hosp. Radiation "DATA",160.16,7,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,7,"FIELD",70,2) BLANK "DATA",160.16,7,"FIELD",70,3) L,ZERO "DATA",160.16,7,"FIELD",71,0) 179^1^179^RX Hosp. Chemo. "DATA",160.16,7,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,7,"FIELD",71,2) BLANK "DATA",160.16,7,"FIELD",71,3) L,ZERO "DATA",160.16,7,"FIELD",72,0) 180^1^180^RX Hosp. Hormone/steroid "DATA",160.16,7,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,7,"FIELD",72,2) BLANK "DATA",160.16,7,"FIELD",72,3) L,ZERO "DATA",160.16,7,"FIELD",73,0) 181^1^181^RX Hosp. Bio Response Mod. "DATA",160.16,7,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,7,"FIELD",73,2) BLANK "DATA",160.16,7,"FIELD",73,3) L,ZERO "DATA",160.16,7,"FIELD",74,0) 182^1^182^RX Hosp. Other Cancer Dir. "DATA",160.16,7,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,7,"FIELD",74,2) BLANK "DATA",160.16,7,"FIELD",74,3) L,ZERO "DATA",160.16,7,"FIELD",77,0) 183^1^183^General Summary Stage "DATA",160.16,7,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,35,"I") "DATA",160.16,7,"FIELD",77,2) BLANK "DATA",160.16,7,"FIELD",77,3) L,BLANK "DATA",160.16,7,"FIELD",78,0) 184^1^184^Local/Regional/Distant Stage "DATA",160.16,7,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",78,2) BLANK "DATA",160.16,7,"FIELD",78,3) L,BLANK "DATA",160.16,7,"FIELD",79,0) 185^3^187^EOD Tumor Size "DATA",160.16,7,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,7,"FIELD",79,2) BLANK "DATA",160.16,7,"FIELD",79,3) L,ZERO "DATA",160.16,7,"FIELD",80,0) 188^2^189^EOD Extension "DATA",160.16,7,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,7,"FIELD",80,2) BLANK "DATA",160.16,7,"FIELD",80,3) L,BLANK "DATA",160.16,7,"FIELD",82,0) 190^1^190^EOD Lymph Nodes "DATA",160.16,7,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,7,"FIELD",82,2) BLANK "DATA",160.16,7,"FIELD",82,3) L,BLANK "DATA",160.16,7,"FIELD",83,0) 191^2^192^Regional Nodes Pos. "DATA",160.16,7,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,7,"FIELD",83,2) ZERO "DATA",160.16,7,"FIELD",83,3) L,ZERO "DATA",160.16,7,"FIELD",84,0) 193^2^194^Regional Nodes Exam. "DATA",160.16,7,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,7,"FIELD",84,2) ZERO "DATA",160.16,7,"FIELD",84,3) L,ZERO "DATA",160.16,7,"FIELD",85,0) 195^13^207^EOD-old 13 Digit "DATA",160.16,7,"FIELD",85,1) S ACDANS="" "DATA",160.16,7,"FIELD",85,2) BLANK "DATA",160.16,7,"FIELD",85,3) L,BLANK "DATA",160.16,7,"FIELD",86,0) 208^2^209^EOD-old 2 Digit "DATA",160.16,7,"FIELD",86,1) S ACDANS="" "DATA",160.16,7,"FIELD",86,2) BLANK "DATA",160.16,7,"FIELD",86,3) L,BLANK "DATA",160.16,7,"FIELD",87,0) 210^4^213^EOD-old 4 Digit "DATA",160.16,7,"FIELD",87,1) S ACDANS="" "DATA",160.16,7,"FIELD",87,2) BLANK "DATA",160.16,7,"FIELD",87,3) L,BLANK "DATA",160.16,7,"FIELD",89,0) 214^2^215^T Code of TNM (Pathologic) "DATA",160.16,7,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") "DATA",160.16,7,"FIELD",89,2) BLANK "DATA",160.16,7,"FIELD",89,3) R,BLANK "DATA",160.16,7,"FIELD",90,0) 216^2^217^N Code of TNM (Pathologic) "DATA",160.16,7,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,7,"FIELD",90,2) BLANK "DATA",160.16,7,"FIELD",90,3) R,BLANK "DATA",160.16,7,"FIELD",91,0) 218^1^218^M Code of TNM (Pathologic) "DATA",160.16,7,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,7,"FIELD",91,2) BLANK "DATA",160.16,7,"FIELD",91,3) R,BLANK "DATA",160.16,7,"FIELD",92,0) 219^2^220^Pathologic Stage Group "DATA",160.16,7,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,7,"FIELD",92,2) BLANK "DATA",160.16,7,"FIELD",92,3) R,BLANK "DATA",160.16,7,"FIELD",95,0) 221^2^222^Clinical T Code "DATA",160.16,7,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") "DATA",160.16,7,"FIELD",95,2) BLANK "DATA",160.16,7,"FIELD",95,3) R,BLANK "DATA",160.16,7,"FIELD",96,0) 223^2^224^Clinical N Code "DATA",160.16,7,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,7,"FIELD",96,2) BLANK "DATA",160.16,7,"FIELD",96,3) R,BLANK "DATA",160.16,7,"FIELD",97,0) 225^1^225^Clinical M Code "DATA",160.16,7,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,7,"FIELD",97,2) BLANK "DATA",160.16,7,"FIELD",97,3) R,BLANK "DATA",160.16,7,"FIELD",107,0) 226^1^226^TNM Edition Number "DATA",160.16,7,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,7,"FIELD",107,2) BLANK "DATA",160.16,7,"FIELD",107,3) L,BLANK "DATA",160.16,7,"FIELD",110,0) 229^1^229^Site of Distant Mets. #1 "DATA",160.16,7,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,7,"FIELD",110,2) BLANK "DATA",160.16,7,"FIELD",110,3) L,BLANK "DATA",160.16,7,"FIELD",111,0) 230^1^230^Site of Distant Mets. #2 "DATA",160.16,7,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,7,"FIELD",111,2) BLANK "DATA",160.16,7,"FIELD",111,3) L,BLANK "DATA",160.16,7,"FIELD",112,0) 231^1^231^Site of Distant Mets. #3 "DATA",160.16,7,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,7,"FIELD",112,2) BLANK "DATA",160.16,7,"FIELD",112,3) L,BLANK "DATA",160.16,7,"FIELD",116,0) 237^1^237^Tumor Marker 1 "DATA",160.16,7,"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,7,"FIELD",116,2) BLANK "DATA",160.16,7,"FIELD",116,3) L,BLANK "DATA",160.16,7,"FIELD",117,0) 238^1^238^Tumor Marker 2 "DATA",160.16,7,"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,7,"FIELD",117,2) BLANK "DATA",160.16,7,"FIELD",117,3) L,BLANK "DATA",160.16,7,"FIELD",121,0) 252^8^259^RX Date - Surgery "DATA",160.16,7,"FIELD",121,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,50,"I")) "DATA",160.16,7,"FIELD",121,2) NINE "DATA",160.16,7,"FIELD",121,3) L,BLANK "DATA",160.16,7,"FIELD",122,0) 260^8^267^RX Date - Radiation "DATA",160.16,7,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,7,"FIELD",122,2) NINE "DATA",160.16,7,"FIELD",122,3) L,BLANK "DATA",160.16,7,"FIELD",123,0) 268^8^275^RX Date - Chemo. "DATA",160.16,7,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,7,"FIELD",123,2) NINE "DATA",160.16,7,"FIELD",123,3) L,BLANK "DATA",160.16,7,"FIELD",124,0) 276^8^283^RX Date - Hormone/Steroid "DATA",160.16,7,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,7,"FIELD",124,2) NINE "DATA",160.16,7,"FIELD",124,3) L,BLANK "DATA",160.16,7,"FIELD",125,0) 284^8^291^RX Date - Biological Resp. Mod. "DATA",160.16,7,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,7,"FIELD",125,2) NINE "DATA",160.16,7,"FIELD",125,3) L,BLANK "DATA",160.16,7,"FIELD",126,0) 292^8^299^RX Date - Other Cancer Dir. "DATA",160.16,7,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,7,"FIELD",126,2) NINE "DATA",160.16,7,"FIELD",126,3) L,BLANK "DATA",160.16,7,"FIELD",127,0) 300^8^307^Date of Initial Treatment "DATA",160.16,7,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",127,2) ZERO "DATA",160.16,7,"FIELD",127,3) L,ZERO "DATA",160.16,7,"FIELD",130,0) 308^2^309^RX Summary-Surgery Type "DATA",160.16,7,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,7,"FIELD",130,2) ZERO "DATA",160.16,7,"FIELD",130,3) L,ZERO "DATA",160.16,7,"FIELD",133,0) 232^1^232^Residual Tumor "DATA",160.16,7,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,7,"FIELD",133,2) BLANK "DATA",160.16,7,"FIELD",133,3) L,BLANK "DATA",160.16,7,"FIELD",135,0) 310^1^310^Reason for no Surgery "DATA",160.16,7,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,7,"FIELD",135,2) BLANK "DATA",160.16,7,"FIELD",135,3) L,BLANK "DATA",160.16,7,"FIELD",137,0) 311^1^311^RX Summary-Radiation "DATA",160.16,7,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,7,"FIELD",137,2) NINE "DATA",160.16,7,"FIELD",137,3) L,ZERO "DATA",160.16,7,"FIELD",138,0) 312^1^312^RX Summary-Rad. to CNS "DATA",160.16,7,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.1,"I") "DATA",160.16,7,"FIELD",138,2) NINE "DATA",160.16,7,"FIELD",138,3) L,ZERO "DATA",160.16,7,"FIELD",139,0) 313^1^313^RX Summary-Surg./Rad. Type "DATA",160.16,7,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,7,"FIELD",139,2) NINE "DATA",160.16,7,"FIELD",139,3) L,ZERO "DATA",160.16,7,"FIELD",140,0) 314^1^314^RX Summary- Chemo "DATA",160.16,7,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,7,"FIELD",140,2) NINE "DATA",160.16,7,"FIELD",140,3) L,ZERO "DATA",160.16,7,"FIELD",141,0) 315^1^315^RX Summary- Hormone "DATA",160.16,7,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,7,"FIELD",141,2) NINE "DATA",160.16,7,"FIELD",141,3) L,ZERO "DATA",160.16,7,"FIELD",142,0) 316^1^316^RX Summary- BRM "DATA",160.16,7,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,7,"FIELD",142,2) NINE "DATA",160.16,7,"FIELD",142,3) L,ZERO "DATA",160.16,7,"FIELD",143,0) 317^1^317^RX Summary- Other "DATA",160.16,7,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,7,"FIELD",143,2) NINE "DATA",160.16,7,"FIELD",143,3) L,ZERO "DATA",160.16,7,"FIELD",147,0) 251^1^251^RX Coding System-Current "DATA",160.16,7,"FIELD",147,1) S ACDANS="3" "DATA",160.16,7,"FIELD",147,2) ZERO "DATA",160.16,7,"FIELD",147,3) L,ZERO "DATA",160.16,7,"FIELD",151,0) 318^1^318^First Course Calc. Method "DATA",160.16,7,"FIELD",151,1) S ACDANS="2" "DATA",160.16,7,"FIELD",151,2) BLANK "DATA",160.16,7,"FIELD",151,3) L,BLANK "DATA",160.16,7,"FIELD",167,0) 338^8^345^Subseq RX - Date (#1) "DATA",160.16,7,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",167,2) BLANK "DATA",160.16,7,"FIELD",167,3) L,BLANK "DATA",160.16,7,"FIELD",168,0) 346^2^347^Subseq RX - Code (#1) Surgery "DATA",160.16,7,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,7,"FIELD",168,2) BLANK "DATA",160.16,7,"FIELD",168,3) L,BLANK "DATA",160.16,7,"FIELD",169,0) 348^1^348^Subseq RX - Code (#1) Radiation "DATA",160.16,7,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,7,"FIELD",169,2) BLANK "DATA",160.16,7,"FIELD",169,3) L,BLANK "DATA",160.16,7,"FIELD",170,0) 349^1^349^Subseq RX - Code (#1) Chem. "DATA",160.16,7,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,7,"FIELD",170,2) BLANK "DATA",160.16,7,"FIELD",170,3) L,BLANK "DATA",160.16,7,"FIELD",171,0) 350^1^350^Subseq RX - Code (#1) Hormone "DATA",160.16,7,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,7,"FIELD",171,2) BLANK "DATA",160.16,7,"FIELD",171,3) L,BLANK "DATA",160.16,7,"FIELD",172,0) 351^1^351^Subseq RX - Code (#1) Biological "DATA",160.16,7,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,7,"FIELD",172,2) BLANK "DATA",160.16,7,"FIELD",172,3) L,BLANK "DATA",160.16,7,"FIELD",173,0) 352^1^352^Subseq RX - Code (#1) Other "DATA",160.16,7,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,7,"FIELD",173,2) BLANK "DATA",160.16,7,"FIELD",173,3) L,BLANK "DATA",160.16,7,"FIELD",174,0) 353^8^360^Subseq RX - Date (#2) "DATA",160.16,7,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",174,2) BLANK "DATA",160.16,7,"FIELD",174,3) L,BLANK "DATA",160.16,7,"FIELD",175,0) 361^2^362^Subseq RX - Code (#2) Surgery "DATA",160.16,7,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,7,"FIELD",175,2) BLANK "DATA",160.16,7,"FIELD",175,3) L,BLANK "DATA",160.16,7,"FIELD",176,0) 363^1^363^Subseq RX - Code (#2) Radiation "DATA",160.16,7,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,7,"FIELD",176,2) BLANK "DATA",160.16,7,"FIELD",176,3) L,BLANK "DATA",160.16,7,"FIELD",177,0) 364^1^364^Subseq RX - Code (#2) Chemo. "DATA",160.16,7,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,7,"FIELD",177,2) BLANK "DATA",160.16,7,"FIELD",177,3) L,BLANK "DATA",160.16,7,"FIELD",178,0) 365^1^365^Subseq RX - Code (#2) Hormone "DATA",160.16,7,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,7,"FIELD",178,2) BLANK "DATA",160.16,7,"FIELD",178,3) L,BLANK "DATA",160.16,7,"FIELD",179,0) 366^1^366^Subseq RX - Code (#2) Biological "DATA",160.16,7,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,7,"FIELD",179,2) BLANK "DATA",160.16,7,"FIELD",179,3) L,BLANK "DATA",160.16,7,"FIELD",180,0) 367^1^367^Subseq RX - Code (#2) Other "DATA",160.16,7,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,7,"FIELD",180,2) BLANK "DATA",160.16,7,"FIELD",180,3) L,BLANK "DATA",160.16,7,"FIELD",181,0) 368^8^375^Subseq RX - Date (#3) "DATA",160.16,7,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",181,2) BLANK "DATA",160.16,7,"FIELD",181,3) L,BLANK "DATA",160.16,7,"FIELD",182,0) 376^2^377^Subseq RX - Code (#3) Surgery "DATA",160.16,7,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,7,"FIELD",182,2) BLANK "DATA",160.16,7,"FIELD",182,3) L,BLANK "DATA",160.16,7,"FIELD",183,0) 378^1^378^Subseq RX - Code (#3) Radiation "DATA",160.16,7,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,7,"FIELD",183,2) BLANK "DATA",160.16,7,"FIELD",183,3) L,BLANK "DATA",160.16,7,"FIELD",184,0) 379^1^379^Subseq RX - Code (#3) Chemo. "DATA",160.16,7,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,7,"FIELD",184,2) BLANK "DATA",160.16,7,"FIELD",184,3) L,BLANK "DATA",160.16,7,"FIELD",185,0) 380^1^380^Subseq RX - Code (#3) Hormone "DATA",160.16,7,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,7,"FIELD",185,2) BLANK "DATA",160.16,7,"FIELD",185,3) L,BLANK "DATA",160.16,7,"FIELD",186,0) 381^1^381^Subseq RX - Code (#3) Biological "DATA",160.16,7,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,7,"FIELD",186,2) BLANK "DATA",160.16,7,"FIELD",186,3) L,BLANK "DATA",160.16,7,"FIELD",187,0) 382^1^382^Subseq RX - Code (#3) Other "DATA",160.16,7,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,7,"FIELD",187,2) BLANK "DATA",160.16,7,"FIELD",187,3) L,BLANK "DATA",160.16,7,"FIELD",188,0) 383^8^390^Subseq RX - Date (#4) "DATA",160.16,7,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",188,2) BLANK "DATA",160.16,7,"FIELD",188,3) L,BLANK "DATA",160.16,7,"FIELD",189,0) 391^2^392^Subseq RX - Code (#4) Surgery "DATA",160.16,7,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,7,"FIELD",189,2) BLANK "DATA",160.16,7,"FIELD",189,3) L,BLANK "DATA",160.16,7,"FIELD",190,0) 393^1^393^Subseq RX - Code (#4) Radiation "DATA",160.16,7,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,7,"FIELD",190,2) BLANK "DATA",160.16,7,"FIELD",190,3) L,BLANK "DATA",160.16,7,"FIELD",191,0) 394^1^394^Subseq RX - Code (#4) Chemo. "DATA",160.16,7,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,7,"FIELD",191,2) BLANK "DATA",160.16,7,"FIELD",191,3) L,BLANK "DATA",160.16,7,"FIELD",192,0) 395^1^395^Subseq RX - Code (#4) Hormone "DATA",160.16,7,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,7,"FIELD",192,2) BLANK "DATA",160.16,7,"FIELD",192,3) L,BLANK "DATA",160.16,7,"FIELD",193,0) 396^1^396^Subseq RX - Code (#4) Biological "DATA",160.16,7,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,7,"FIELD",193,2) BLANK "DATA",160.16,7,"FIELD",193,3) L,BLANK "DATA",160.16,7,"FIELD",194,0) 397^1^397^Subseq RX - Code (#4) Other "DATA",160.16,7,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,7,"FIELD",194,2) BLANK "DATA",160.16,7,"FIELD",194,3) L,BLANK "DATA",160.16,7,"FIELD",196,0) 418^8^425^Date of last Contact "DATA",160.16,7,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",196,2) NINE "DATA",160.16,7,"FIELD",196,3) L,BLANK "DATA",160.16,7,"FIELD",197,0) 426^1^426^Vital Status "DATA",160.16,7,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,7,"FIELD",197,2) NINE "DATA",160.16,7,"FIELD",197,3) L,BLANK "DATA",160.16,7,"FIELD",198,0) 427^1^427^Cancer Status "DATA",160.16,7,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,7,"FIELD",198,2) NINE "DATA",160.16,7,"FIELD",198,3) L,BLANK "DATA",160.16,7,"FIELD",199,0) 428^1^428^Quality of Survival "DATA",160.16,7,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,7,"FIELD",199,2) BLANK "DATA",160.16,7,"FIELD",199,3) L,BLANK "DATA",160.16,7,"FIELD",200,0) 429^1^429^Last Type of Follow-up "DATA",160.16,7,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,7,"FIELD",200,2) BLANK "DATA",160.16,7,"FIELD",200,3) L,BLANK "DATA",160.16,7,"FIELD",202,0) 430^20^449^City/Town - Current "DATA",160.16,7,"FIELD",202,1) S ACDANS=$P($$CCTST~ONCACDU2(ACD160),",") "DATA",160.16,7,"FIELD",202,2) BLANK "DATA",160.16,7,"FIELD",202,3) R,BLANK "DATA",160.16,7,"FIELD",203,0) 450^2^451^State - Current "DATA",160.16,7,"FIELD",203,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",2) "DATA",160.16,7,"FIELD",203,2) BLANK "DATA",160.16,7,"FIELD",203,3) R,BLANK "DATA",160.16,7,"FIELD",204,0) 452^9^460^Postal Code "DATA",160.16,7,"FIELD",204,1) S ACDANS=$P($P($$CCTST~ONCACDU2(ACD160),",",2)," ",3) "DATA",160.16,7,"FIELD",204,2) BLANK "DATA",160.16,7,"FIELD",204,3) R,BLANK "DATA",160.16,7,"FIELD",207,0) 461^8^468^Date of First Recurrence "DATA",160.16,7,"FIELD",207,1) S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",207,2) ZERO "DATA",160.16,7,"FIELD",207,3) L,ZERO "DATA",160.16,7,"FIELD",208,0) 470^3^472^Site of First Recurrence "DATA",160.16,7,"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,7,"FIELD",208,2) BLANK "DATA",160.16,7,"FIELD",208,3) L,BLANK "DATA",160.16,7,"FIELD",209,0) 469^1^469^Type of First Recurrence "DATA",160.16,7,"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,7,"FIELD",209,2) ZERO "DATA",160.16,7,"FIELD",209,3) L,ZERO "DATA",160.16,7,"FIELD",213,0) 473^4^476^Cause of Death "DATA",160.16,7,"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") "DATA",160.16,7,"FIELD",213,2) ZERO "DATA",160.16,7,"FIELD",213,3) L,ZERO "DATA",160.16,7,"FIELD",214,0) 477^1^477^ICD Revision Number "DATA",160.16,7,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) "DATA",160.16,7,"FIELD",214,2) ZERO "DATA",160.16,7,"FIELD",214,3) L,ZERO "DATA",160.16,7,"FIELD",215,0) 478^1^478^Autopsy "DATA",160.16,7,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") S:ACDANS'="" ACDANS=$$VAFLD~ONCACDU2(ACDANS) "DATA",160.16,7,"FIELD",215,2) BLANK "DATA",160.16,7,"FIELD",215,3) L,BLANK "DATA",160.16,7,"FIELD",216,0) 479^3^481^Place of death "DATA",160.16,7,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") "DATA",160.16,7,"FIELD",216,2) BLANK "DATA",160.16,7,"FIELD",216,3) L,BLANK "DATA",160.16,7,"FIELD",218,0) 491^4^494^Site (1973-91) "DATA",160.16,7,"FIELD",218,1) S ACDANS="" "DATA",160.16,7,"FIELD",218,2) BLANK "DATA",160.16,7,"FIELD",218,3) L,BLANK "DATA",160.16,7,"FIELD",219,0) 495^6^500^Morph. (1973-91) "DATA",160.16,7,"FIELD",219,1) S ACDANS="" "DATA",160.16,7,"FIELD",219,2) BLANK "DATA",160.16,7,"FIELD",219,3) L,BLANK "DATA",160.16,7,"FIELD",220,0) 501^1^501^ICD-O-2 Conversion Flag "DATA",160.16,7,"FIELD",220,1) S ACDANS=4 "DATA",160.16,7,"FIELD",220,2) BLANK "DATA",160.16,7,"FIELD",220,3) L,BLANK "DATA",160.16,7,"FIELD",221,0) 482^1^482^Over-Ride Age/Site "DATA",160.16,7,"FIELD",221,1) S ACDANS="" "DATA",160.16,7,"FIELD",221,2) BLANK "DATA",160.16,7,"FIELD",221,3) L,BLANK "DATA",160.16,7,"FIELD",222,0) 483^1^483^Over-Ride SeqNo/DxConf "DATA",160.16,7,"FIELD",222,1) S ACDANS="" "DATA",160.16,7,"FIELD",222,2) BLANK "DATA",160.16,7,"FIELD",222,3) L,BLANK "DATA",160.16,7,"FIELD",223,0) 484^1^484^Over-Ride Site/Lat/SeqNo "DATA",160.16,7,"FIELD",223,1) S ACDANS="" "DATA",160.16,7,"FIELD",223,2) BLANK "DATA",160.16,7,"FIELD",223,3) L,BLANK "DATA",160.16,7,"FIELD",224,0) 485^1^485^Over-Ride Surg./DxConf "DATA",160.16,7,"FIELD",224,1) S ACDANS="" "DATA",160.16,7,"FIELD",224,2) BLANK "DATA",160.16,7,"FIELD",224,3) L,BLANK "DATA",160.16,7,"FIELD",225,0) 486^1^486^Over-Ride Site/Type "DATA",160.16,7,"FIELD",225,1) S ACDANS="" "DATA",160.16,7,"FIELD",225,2) BLANK "DATA",160.16,7,"FIELD",225,3) L,BLANK "DATA",160.16,7,"FIELD",226,0) 487^1^487^Over-Ride Histology "DATA",160.16,7,"FIELD",226,1) S ACDANS="" "DATA",160.16,7,"FIELD",226,2) BLANK "DATA",160.16,7,"FIELD",226,3) L,BLANK "DATA",160.16,7,"FIELD",227,0) 488^1^488^Over-Ride Report Source "DATA",160.16,7,"FIELD",227,1) S ACDANS="" "DATA",160.16,7,"FIELD",227,2) BLANK "DATA",160.16,7,"FIELD",227,3) L,BLANK "DATA",160.16,7,"FIELD",228,0) 489^1^489^Over-Ride Ill-Defined Site "DATA",160.16,7,"FIELD",228,1) S ACDANS="" "DATA",160.16,7,"FIELD",228,2) BLANK "DATA",160.16,7,"FIELD",228,3) L,BLANK "DATA",160.16,7,"FIELD",229,0) 490^1^490^Over-Ride Leuk, Lymphoma "DATA",160.16,7,"FIELD",229,1) S ACDANS="" "DATA",160.16,7,"FIELD",229,2) BLANK "DATA",160.16,7,"FIELD",229,3) L,BLANK "DATA",160.16,7,"FIELD",231,0) 503^8^510^Date Case Completed "DATA",160.16,7,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,7,"FIELD",231,2) BLANK "DATA",160.16,7,"FIELD",231,3) L,BLANK "DATA",160.16,7,"FIELD",232,0) 511^8^518^Date Case Last Changed "DATA",160.16,7,"FIELD",232,1) S ACDANS="" "DATA",160.16,7,"FIELD",232,2) BLANK "DATA",160.16,7,"FIELD",232,3) L,BLANK "DATA",160.16,7,"FIELD",234,0) 521^1^521^SEER Coding Sys-Current "DATA",160.16,7,"FIELD",234,1) S ACDANS=4 "DATA",160.16,7,"FIELD",234,2) BLANK "DATA",160.16,7,"FIELD",234,3) L,BLANK "DATA",160.16,7,"FIELD",235,0) 522^1^522^SEER Coding Sys-Original "DATA",160.16,7,"FIELD",235,1) S ACDANS=4 "DATA",160.16,7,"FIELD",235,2) BLANK "DATA",160.16,7,"FIELD",235,3) L,BLANK "DATA",160.16,7,"FIELD",236,0) 523^1^523^COC Coding System Current "DATA",160.16,7,"FIELD",236,1) S ACDANS=6 "DATA",160.16,7,"FIELD",236,2) BLANK "DATA",160.16,7,"FIELD",236,3) L,BLANK "DATA",160.16,7,"FIELD",237,0) 524^1^524^COC Coding System Original "DATA",160.16,7,"FIELD",237,1) S ACDANS=6 "DATA",160.16,7,"FIELD",237,2) BLANK "DATA",160.16,7,"FIELD",237,3) L,BLANK "DATA",160.16,7,"FIELD",238,0) 525^1^525^Subseq Report for Primary "DATA",160.16,7,"FIELD",238,1) S ACDANS="" "DATA",160.16,7,"FIELD",238,2) BLANK "DATA",160.16,7,"FIELD",238,3) L,BLANK "DATA",160.16,7,"FIELD",239,0) 526^10^535^Vender Name "DATA",160.16,7,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,7,"FIELD",239,2) BLANK "DATA",160.16,7,"FIELD",239,3) L,BLANK "DATA",160.16,7,"FIELD",339,0) 851^15^865^Name-Last "DATA",160.16,7,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,7,"FIELD",339,2) BLANK "DATA",160.16,7,"FIELD",339,3) R,BLANK "DATA",160.16,7,"FIELD",340,0) 866^14^879^Name-First "DATA",160.16,7,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,7,"FIELD",340,2) BLANK "DATA",160.16,7,"FIELD",340,3) R,BLANK "DATA",160.16,7,"FIELD",341,0) 880^1^880^Name-Middle "DATA",160.16,7,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,7,"FIELD",341,2) BLANK "DATA",160.16,7,"FIELD",341,3) R,BLANK "DATA",160.16,7,"FIELD",344,0) 881^15^895^Name-Alias "DATA",160.16,7,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,7,"FIELD",344,2) BLANK "DATA",160.16,7,"FIELD",344,3) R,BLANK "DATA",160.16,7,"FIELD",345,0) 896^50^945^Name-Spouse "DATA",160.16,7,"FIELD",345,1) S ACDANS="" "DATA",160.16,7,"FIELD",345,2) BLANK "DATA",160.16,7,"FIELD",345,3) R,BLANK "DATA",160.16,7,"FIELD",346,0) 946^11^956^Medical Record NBR "DATA",160.16,7,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,7,"FIELD",346,2) BLANK "DATA",160.16,7,"FIELD",346,3) L,BLANK "DATA",160.16,7,"FIELD",348,0) 957^9^965^Social Security NBR "DATA",160.16,7,"FIELD",348,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,7,"FIELD",348,2) BLANK "DATA",160.16,7,"FIELD",348,3) L,BLANK "DATA",160.16,7,"FIELD",349,0) 966^25^990^Address at DX-Street "DATA",160.16,7,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,7,"FIELD",349,2) BLANK "DATA",160.16,7,"FIELD",349,3) R,BLANK "DATA",160.16,7,"FIELD",352,0) 1046^10^1055^Telephone Number "DATA",160.16,7,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,7,"FIELD",352,2) ZERO "DATA",160.16,7,"FIELD",352,3) R,BLANK "DATA",160.16,7,"FIELD",354,0) 1056^6^1061^DC State File NBR "DATA",160.16,7,"FIELD",354,1) S ACDANS="" "DATA",160.16,7,"FIELD",354,2) BLANK "DATA",160.16,7,"FIELD",354,3) L,BLANK "DATA",160.16,7,"FIELD",355,0) 1062^15^1076^Maiden-Name "DATA",160.16,7,"FIELD",355,1) S ACDANS="" "DATA",160.16,7,"FIELD",355,2) BLANK "DATA",160.16,7,"FIELD",355,3) R,BLANK "DATA",160.16,7,"FIELD",356,0) 1077^5^1081^Reserved "DATA",160.16,7,"FIELD",356,1) S ACDANS="" "DATA",160.16,7,"FIELD",356,2) BLANK "DATA",160.16,7,"FIELD",356,3) L,BLANK "DATA",160.16,7,"FIELD",357,0) 1082^8^1089^Institution Referred from "DATA",160.16,7,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,7,"FIELD",357,2) ZERO "DATA",160.16,7,"FIELD",357,3) L,BLANK "DATA",160.16,7,"FIELD",358,0) 1090^8^1097^Institution Referred to "DATA",160.16,7,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,7,"FIELD",358,2) ZERO "DATA",160.16,7,"FIELD",358,3) L,ZERO "DATA",160.16,7,"FIELD",359,0) 1098^8^1105^Last Follow up Hospital "DATA",160.16,7,"FIELD",359,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,7,"FIELD",359,2) BLANK "DATA",160.16,7,"FIELD",359,3) L,ZERO "DATA",160.16,7,"FIELD",362,0) 1114^8^1121^Managing Physician "DATA",160.16,7,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,7,"FIELD",362,2) NINE "DATA",160.16,7,"FIELD",362,3) L,BLANK "DATA",160.16,7,"FIELD",363,0) 1122^8^1129^Following Physician "DATA",160.16,7,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,7,"FIELD",363,2) BLANK "DATA",160.16,7,"FIELD",363,3) L,BLANK "DATA",160.16,7,"FIELD",368,0) 1151^200^1350^Text-DX Proc-PE "DATA",160.16,7,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,7,"FIELD",368,2) BLANK "DATA",160.16,7,"FIELD",368,3) R,BLANK "DATA",160.16,7,"FIELD",369,0) 1351^250^1600^Text-DX Proc-XRAY "DATA",160.16,7,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,7,"FIELD",369,2) BLANK "DATA",160.16,7,"FIELD",369,3) R,BLANK "DATA",160.16,7,"FIELD",370,0) 1601^250^1850^Text-DX Proc-Scopes "DATA",160.16,7,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,7,"FIELD",370,2) BLANK "DATA",160.16,7,"FIELD",370,3) R,BLANK "DATA",160.16,7,"FIELD",371,0) 1851^250^2100^Text-DX Proc-Lab "DATA",160.16,7,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,7,"FIELD",371,2) BLANK "DATA",160.16,7,"FIELD",371,3) R,BLANK "DATA",160.16,7,"FIELD",372,0) 2101^250^2350^Text-DX Proc-OPS "DATA",160.16,7,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,7,"FIELD",372,2) BLANK "DATA",160.16,7,"FIELD",372,3) R,BLANK "DATA",160.16,7,"FIELD",373,0) 2351^250^2600^Text-DX Proc-PATH "DATA",160.16,7,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,7,"FIELD",373,2) BLANK "DATA",160.16,7,"FIELD",373,3) R,BLANK "DATA",160.16,7,"FIELD",374,0) 2601^40^2640^Text-Primary Site "DATA",160.16,7,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,7,"FIELD",374,2) BLANK "DATA",160.16,7,"FIELD",374,3) R,BLANK "DATA",160.16,7,"FIELD",375,0) 2641^40^2680^Text-Histology "DATA",160.16,7,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,7,"FIELD",375,2) BLANK "DATA",160.16,7,"FIELD",375,3) R,BLANK "DATA",160.16,7,"FIELD",376,0) 2681^300^2980^Text-Staging "DATA",160.16,7,"FIELD",376,1) S ACDANS="" "DATA",160.16,7,"FIELD",376,2) BLANK "DATA",160.16,7,"FIELD",376,3) R,BLANK "DATA",160.16,7,"FIELD",377,0) 2981^150^3130^Text-RX-Surgery "DATA",160.16,7,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,7,"FIELD",377,2) BLANK "DATA",160.16,7,"FIELD",377,3) R,BLANK "DATA",160.16,7,"FIELD",378,0) 3131^150^3280^Text-RX-RAD(Beam) "DATA",160.16,7,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,7,"FIELD",378,2) BLANK "DATA",160.16,7,"FIELD",378,3) R,BLANK "DATA",160.16,7,"FIELD",379,0) 3281^150^3430^Text-RX-RAD-Other "DATA",160.16,7,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,7,"FIELD",379,2) BLANK "DATA",160.16,7,"FIELD",379,3) R,BLANK "DATA",160.16,7,"FIELD",380,0) 3431^200^3630^Text-RX-Chemo "DATA",160.16,7,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,7,"FIELD",380,2) BLANK "DATA",160.16,7,"FIELD",380,3) R,BLANK "DATA",160.16,7,"FIELD",381,0) 3631^200^3830^Text-RX-Hormone "DATA",160.16,7,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,7,"FIELD",381,2) BLANK "DATA",160.16,7,"FIELD",381,3) R,BLANK "DATA",160.16,7,"FIELD",382,0) 3831^100^3930^Text-RX-Immunotherapy "DATA",160.16,7,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,7,"FIELD",382,2) BLANK "DATA",160.16,7,"FIELD",382,3) R,BLANK "DATA",160.16,7,"FIELD",383,0) 3931^100^4030^Text-RX-Other "DATA",160.16,7,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,7,"FIELD",383,2) BLANK "DATA",160.16,7,"FIELD",383,3) R,BLANK "DATA",160.16,7,"FIELD",384,0) 4031^350^4380^Text-Remarks "DATA",160.16,7,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,7,"FIELD",384,2) BLANK "DATA",160.16,7,"FIELD",384,3) R,BLANK "DATA",160.16,7,"FIELD",385,0) 4481^50^4530^Place of Diagnosis "DATA",160.16,7,"FIELD",385,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,7,"FIELD",385,2) BLANK "DATA",160.16,7,"FIELD",385,3) R,BLANK "DATA",160.16,7,"FIELD",386,0) 4531^770^5300^Reserved "DATA",160.16,7,"FIELD",386,1) S ACDANS="" "DATA",160.16,7,"FIELD",386,2) BLANK "DATA",160.16,7,"FIELD",386,3) L,BLANK "DATA",160.16,7,"FIELD",388,0) 101^6^106^Reserved for expansion "DATA",160.16,7,"FIELD",388,1) S ACDANS="" "DATA",160.16,7,"FIELD",388,2) BLANK "DATA",160.16,7,"FIELD",388,3) L,BLANK "DATA",160.16,7,"FIELD",389,0) 136^2^137^Accession Year "DATA",160.16,7,"FIELD",389,1) S ACDANS=$E(DATE,3,4) "DATA",160.16,7,"FIELD",389,2) BLANK "DATA",160.16,7,"FIELD",389,3) L,BLANK "DATA",160.16,7,"FIELD",390,0) 138^4^141^Reserved for expansion "DATA",160.16,7,"FIELD",390,1) S ACDANS="" "DATA",160.16,7,"FIELD",390,2) BLANK "DATA",160.16,7,"FIELD",390,3) L,BLANK "DATA",160.16,7,"FIELD",391,0) 233^4^236^Alternate Staging Scheme "DATA",160.16,7,"FIELD",391,1) S ACDANS="" "DATA",160.16,7,"FIELD",391,2) BLANK "DATA",160.16,7,"FIELD",391,3) L,BLANK "DATA",160.16,7,"FIELD",392,0) 239^12^250^Reserved for expansion "DATA",160.16,7,"FIELD",392,1) S ACDANS="" "DATA",160.16,7,"FIELD",392,2) BLANK "DATA",160.16,7,"FIELD",392,3) L,BLANK "DATA",160.16,7,"FIELD",393,0) 319^19^337^Reserved for expansion "DATA",160.16,7,"FIELD",393,1) S ACDANS="" "DATA",160.16,7,"FIELD",393,2) BLANK "DATA",160.16,7,"FIELD",393,3) L,BLANK "DATA",160.16,7,"FIELD",394,0) 398^20^417^Reserved for expansion "DATA",160.16,7,"FIELD",394,1) S ACDANS="" "DATA",160.16,7,"FIELD",394,2) BLANK "DATA",160.16,7,"FIELD",394,3) L,BLANK "DATA",160.16,7,"FIELD",395,0) 502^1^502^Reserved for expansion "DATA",160.16,7,"FIELD",395,1) S ACDANS="" "DATA",160.16,7,"FIELD",395,2) BLANK "DATA",160.16,7,"FIELD",395,3) L,BLANK "DATA",160.16,7,"FIELD",396,0) 519^2^520^General Coding Procedure "DATA",160.16,7,"FIELD",396,1) S ACDANS="" "DATA",160.16,7,"FIELD",396,2) BLANK "DATA",160.16,7,"FIELD",396,3) L,BLANK "DATA",160.16,7,"FIELD",397,0) 536^1^536^NAACCR Record version "DATA",160.16,7,"FIELD",397,1) S ACDANS="4" "DATA",160.16,7,"FIELD",397,2) BLANK "DATA",160.16,7,"FIELD",397,3) L,BLANK "DATA",160.16,7,"FIELD",399,0) 537^14^550^Reserved for expansion "DATA",160.16,7,"FIELD",399,1) S ACDANS="" "DATA",160.16,7,"FIELD",399,2) BLANK "DATA",160.16,7,"FIELD",399,3) L,BLANK "DATA",160.16,7,"FIELD",400,0) 551^200^750^Site-Specific Studies "DATA",160.16,7,"FIELD",400,1) S ACDANS="" "DATA",160.16,7,"FIELD",400,2) BLANK "DATA",160.16,7,"FIELD",400,3) L,BLANK "DATA",160.16,7,"FIELD",401,0) 751^100^850^State-Specific Studies "DATA",160.16,7,"FIELD",401,1) S ACDANS="" "DATA",160.16,7,"FIELD",401,2) BLANK "DATA",160.16,7,"FIELD",401,3) L,BLANK "DATA",160.16,7,"FIELD",402,0) 991^30^1020^Followup Contact Name "DATA",160.16,7,"FIELD",402,1) S ACDANS="" "DATA",160.16,7,"FIELD",402,2) BLANK "DATA",160.16,7,"FIELD",402,3) L,BLANK "DATA",160.16,7,"FIELD",403,0) 1021^25^1045^Followup Contact Address "DATA",160.16,7,"FIELD",403,1) S ACDANS="" "DATA",160.16,7,"FIELD",403,2) BLANK "DATA",160.16,7,"FIELD",403,3) L,BLANK "DATA",160.16,7,"FIELD",404,0) 1106^8^1113^Next Followup Hospital "DATA",160.16,7,"FIELD",404,1) S ACDANS="" "DATA",160.16,7,"FIELD",404,2) BLANK "DATA",160.16,7,"FIELD",404,3) L,BLANK "DATA",160.16,7,"FIELD",405,0) 1130^21^1150^Reserved for expansion "DATA",160.16,7,"FIELD",405,1) S ACDANS="" "DATA",160.16,7,"FIELD",405,2) BLANK "DATA",160.16,7,"FIELD",405,3) L,BLANK "DATA",160.16,7,"FIELD",406,0) 227^2^228^AJCC State Group (Clin) "DATA",160.16,7,"FIELD",406,1) S ACDANS="" "DATA",160.16,7,"FIELD",406,2) BLANK "DATA",160.16,7,"FIELD",406,3) R,BLANK "DATA",160.16,7,"RULES",0) ^^4^4^2990310^^^^ "DATA",160.16,7,"RULES",1,0) S VALID=1 "DATA",160.16,7,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,7,"RULES",3,0) S JUMP=0 "DATA",160.16,7,"RULES",4,0) K SCREEN "DATA",160.17,1,0) PCE BLADDER "DATA",160.17,1,"FIELD",0) ^160.171I^94^94 "DATA",160.17,1,"FIELD",1,0) 1026^1^1026^PB Referred for Treatment To "DATA",160.17,1,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,300,"I") "DATA",160.17,1,"FIELD",1,2) NINE "DATA",160.17,1,"FIELD",1,3) L,ZERO "DATA",160.17,1,"FIELD",2,0) 1027^2^1028^PB Primary Payer "DATA",160.17,1,"FIELD",2,1) S ACDANS=$$PPAY~ONCACDU2(IEN) "DATA",160.17,1,"FIELD",2,2) ZERO "DATA",160.17,1,"FIELD",2,3) L,ZERO "DATA",160.17,1,"FIELD",3,0) 1029^3^1031^PB Length of Stay "DATA",160.17,1,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,301,"I") "DATA",160.17,1,"FIELD",3,2) BLANK "DATA",160.17,1,"FIELD",3,3) R,BLANK "DATA",160.17,1,"FIELD",4,0) 1032^1^1032^PB Cervix "DATA",160.17,1,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.17,1,"FIELD",4,2) BLANK "DATA",160.17,1,"FIELD",4,3) L,BLANK "DATA",160.17,1,"FIELD",5,0) 1033^1^1033^PB Colon "DATA",160.17,1,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,303,"I") "DATA",160.17,1,"FIELD",5,2) BLANK "DATA",160.17,1,"FIELD",5,3) L,BLANK "DATA",160.17,1,"FIELD",6,0) 1034^1^1034^PB Bladder "DATA",160.17,1,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,304,"I") "DATA",160.17,1,"FIELD",6,2) BLANK "DATA",160.17,1,"FIELD",6,3) L,BLANK "DATA",160.17,1,"FIELD",7,0) 1035^1^1035^PB Head and Neck "DATA",160.17,1,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,305,"I") "DATA",160.17,1,"FIELD",7,2) BLANK "DATA",160.17,1,"FIELD",7,3) L,BLANK "DATA",160.17,1,"FIELD",8,0) 1036^1^1036^PB Kidney "DATA",160.17,1,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,306,"I") "DATA",160.17,1,"FIELD",8,2) BLANK "DATA",160.17,1,"FIELD",8,3) L,BLANK "DATA",160.17,1,"FIELD",9,0) 1037^1^1037^PB Prostate "DATA",160.17,1,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.17,1,"FIELD",9,2) BLANK "DATA",160.17,1,"FIELD",9,3) L,BLANK "DATA",160.17,1,"FIELD",10,0) 1038^1^1038^PB Other "DATA",160.17,1,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,1,"FIELD",10,2) BLANK "DATA",160.17,1,"FIELD",10,3) L,BLANK "DATA",160.17,1,"FIELD",11,0) 1039^1^1039^PB Bladder "DATA",160.17,1,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,309,"I") "DATA",160.17,1,"FIELD",11,2) BLANK "DATA",160.17,1,"FIELD",11,3) L,BLANK "DATA",160.17,1,"FIELD",12,0) 1040^1^1040^PB Colon "DATA",160.17,1,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,310,"I") "DATA",160.17,1,"FIELD",12,2) BLANK "DATA",160.17,1,"FIELD",12,3) L,BLANK "DATA",160.17,1,"FIELD",13,0) 1041^1^1041^PB Lung "DATA",160.17,1,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,311,"I") "DATA",160.17,1,"FIELD",13,2) BLANK "DATA",160.17,1,"FIELD",13,3) L,BLANK "DATA",160.17,1,"FIELD",14,0) 1042^1^1042^PB Prostate "DATA",160.17,1,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,312,"I") "DATA",160.17,1,"FIELD",14,2) BLANK "DATA",160.17,1,"FIELD",14,3) L,BLANK "DATA",160.17,1,"FIELD",15,0) 1043^1^1043^PB Other "DATA",160.17,1,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.17,1,"FIELD",15,2) BLANK "DATA",160.17,1,"FIELD",15,3) L,BLANK "DATA",160.17,1,"FIELD",16,0) 1044^2^1045^PB Smoking History (Pack Per Day) "DATA",160.17,1,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,314,"I") "DATA",160.17,1,"FIELD",16,2) BLANK "DATA",160.17,1,"FIELD",16,3) L,ZERO "DATA",160.17,1,"FIELD",17,0) 1046^2^1047^PB Duration of Smoking History (Yr.) "DATA",160.17,1,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,315,"I") "DATA",160.17,1,"FIELD",17,2) BLANK "DATA",160.17,1,"FIELD",17,3) L,ZERO "DATA",160.17,1,"FIELD",18,0) 1048^2^1049^PB Duration of Smoking-Free Hist. (Yr.) "DATA",160.17,1,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,316,"I") "DATA",160.17,1,"FIELD",18,2) BLANK "DATA",160.17,1,"FIELD",18,3) L,ZERO "DATA",160.17,1,"FIELD",19,0) 1050^1^1050^PB Gross Hematuria "DATA",160.17,1,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,317,"I") "DATA",160.17,1,"FIELD",19,2) BLANK "DATA",160.17,1,"FIELD",19,3) L,BLANK "DATA",160.17,1,"FIELD",20,0) 1051^1^1051^PB Microscopic Hematuria "DATA",160.17,1,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,318,"I") "DATA",160.17,1,"FIELD",20,2) BLANK "DATA",160.17,1,"FIELD",20,3) L,BLANK "DATA",160.17,1,"FIELD",21,0) 1052^1^1052^PB Urinary Frequency "DATA",160.17,1,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,319,"I") "DATA",160.17,1,"FIELD",21,2) BLANK "DATA",160.17,1,"FIELD",21,3) L,BLANK "DATA",160.17,1,"FIELD",22,0) 1053^1^1053^PB Bladder Irritability "DATA",160.17,1,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,320,"I") "DATA",160.17,1,"FIELD",22,2) BLANK "DATA",160.17,1,"FIELD",22,3) L,BLANK "DATA",160.17,1,"FIELD",23,0) 1054^1^1054^PB Dysuria "DATA",160.17,1,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,321,"I") "DATA",160.17,1,"FIELD",23,2) BLANK "DATA",160.17,1,"FIELD",23,3) L,BLANK "DATA",160.17,1,"FIELD",24,0) 1055^1^1055^PB Other "DATA",160.17,1,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,322,"I") "DATA",160.17,1,"FIELD",24,2) BLANK "DATA",160.17,1,"FIELD",24,3) L,BLANK "DATA",160.17,1,"FIELD",25,0) 1056^8^1063^PB Date of onset of Symptoms "DATA",160.17,1,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,323,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",25,2) BLANK "DATA",160.17,1,"FIELD",25,3) L,BLANK "DATA",160.17,1,"FIELD",26,0) 1064^2^1065^PB Gross Hematuria "DATA",160.17,1,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,324,"I") "DATA",160.17,1,"FIELD",26,2) BLANK "DATA",160.17,1,"FIELD",26,3) L,ZERO "DATA",160.17,1,"FIELD",27,0) 1066^2^1067^PB Dysuria "DATA",160.17,1,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,325,"I") "DATA",160.17,1,"FIELD",27,2) BLANK "DATA",160.17,1,"FIELD",27,3) L,ZERO "DATA",160.17,1,"FIELD",28,0) 1068^1^1068^PB Bimanual Examination of Bladder "DATA",160.17,1,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,326,"I") "DATA",160.17,1,"FIELD",28,2) BLANK "DATA",160.17,1,"FIELD",28,3) L,BLANK "DATA",160.17,1,"FIELD",29,0) 1069^1^1069^PB Cystoscopy with biopsy "DATA",160.17,1,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,327,"I") "DATA",160.17,1,"FIELD",29,2) BLANK "DATA",160.17,1,"FIELD",29,3) L,BLANK "DATA",160.17,1,"FIELD",30,0) 1070^1^1070^PB Cystoscopy without biopsy "DATA",160.17,1,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,328,"I") "DATA",160.17,1,"FIELD",30,2) BLANK "DATA",160.17,1,"FIELD",30,3) L,BLANK "DATA",160.17,1,"FIELD",31,0) 1071^1^1071^PB Flow Cytometry "DATA",160.17,1,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.17,1,"FIELD",31,2) BLANK "DATA",160.17,1,"FIELD",31,3) L,BLANK "DATA",160.17,1,"FIELD",32,0) 1072^1^1072^PB Intravenous Pyelogram "DATA",160.17,1,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,330,"I") "DATA",160.17,1,"FIELD",32,2) BLANK "DATA",160.17,1,"FIELD",32,3) L,BLANK "DATA",160.17,1,"FIELD",33,0) 1073^1^1073^PB Urine Cytology "DATA",160.17,1,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,331,"I") "DATA",160.17,1,"FIELD",33,2) BLANK "DATA",160.17,1,"FIELD",33,3) L,BLANK "DATA",160.17,1,"FIELD",34,0) 1074^1^1074^PB Urinalysis "DATA",160.17,1,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,332,"I") "DATA",160.17,1,"FIELD",34,2) BLANK "DATA",160.17,1,"FIELD",34,3) L,BLANK "DATA",160.17,1,"FIELD",35,0) 1075^1^1075^PB Other "DATA",160.17,1,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,333,"I") "DATA",160.17,1,"FIELD",35,2) BLANK "DATA",160.17,1,"FIELD",35,3) L,BLANK "DATA",160.17,1,"FIELD",36,0) 1076^1^1076^PB Specialty Making Diagnosis "DATA",160.17,1,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,334,"I") "DATA",160.17,1,"FIELD",36,2) BLANK "DATA",160.17,1,"FIELD",36,3) L,BLANK "DATA",160.17,1,"FIELD",37,0) 1077^1^1077^PB Abdominal Ultrasound "DATA",160.17,1,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,335,"I") "DATA",160.17,1,"FIELD",37,2) BLANK "DATA",160.17,1,"FIELD",37,3) L,BLANK "DATA",160.17,1,"FIELD",38,0) 1078^1^1078^PB Bone Imaging "DATA",160.17,1,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,336,"I") "DATA",160.17,1,"FIELD",38,2) BLANK "DATA",160.17,1,"FIELD",38,3) L,BLANK "DATA",160.17,1,"FIELD",39,0) 1079^1^1079^PB Chest X-Ray "DATA",160.17,1,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,337,"I") "DATA",160.17,1,"FIELD",39,2) BLANK "DATA",160.17,1,"FIELD",39,3) L,BLANK "DATA",160.17,1,"FIELD",40,0) 1080^1^1080^PB CT Chest/Lung "DATA",160.17,1,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,338,"I") "DATA",160.17,1,"FIELD",40,2) BLANK "DATA",160.17,1,"FIELD",40,3) L,BLANK "DATA",160.17,1,"FIELD",41,0) 1081^1^1081^PB CT Abdomen/Pelvis "DATA",160.17,1,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,339,"I") "DATA",160.17,1,"FIELD",41,2) BLANK "DATA",160.17,1,"FIELD",41,3) L,BLANK "DATA",160.17,1,"FIELD",42,0) 1082^1^1082^PB CT Other "DATA",160.17,1,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,340,"I") "DATA",160.17,1,"FIELD",42,2) BLANK "DATA",160.17,1,"FIELD",42,3) L,BLANK "DATA",160.17,1,"FIELD",43,0) 1083^1^1083^PB MRI Pelvis/Abdomen "DATA",160.17,1,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,341,"I") "DATA",160.17,1,"FIELD",43,2) BLANK "DATA",160.17,1,"FIELD",43,3) L,BLANK "DATA",160.17,1,"FIELD",44,0) 1084^1^1084^PB MRI Other "DATA",160.17,1,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,342,"I") "DATA",160.17,1,"FIELD",44,2) BLANK "DATA",160.17,1,"FIELD",44,3) L,BLANK "DATA",160.17,1,"FIELD",45,0) 1085^1^1085^PB Other "DATA",160.17,1,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,343,"I") "DATA",160.17,1,"FIELD",45,2) BLANK "DATA",160.17,1,"FIELD",45,3) L,BLANK "DATA",160.17,1,"FIELD",46,0) 1086^1^1086^PB Presence of Hydronephrosis "DATA",160.17,1,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,344,"I") "DATA",160.17,1,"FIELD",46,2) BLANK "DATA",160.17,1,"FIELD",46,3) L,BLANK "DATA",160.17,1,"FIELD",47,0) 1087^1^1087^PB Presence of Multiple Tumors "DATA",160.17,1,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,345,"I") "DATA",160.17,1,"FIELD",47,2) BLANK "DATA",160.17,1,"FIELD",47,3) L,BLANK "DATA",160.17,1,"FIELD",48,0) 1088^1^1088^PB Clinical Stage "DATA",160.17,1,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.17,1,"FIELD",48,2) BLANK "DATA",160.17,1,"FIELD",48,3) L,BLANK "DATA",160.17,1,"FIELD",49,0) 1089^1^1089^PB Pathologic Stage "DATA",160.17,1,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.17,1,"FIELD",49,2) BLANK "DATA",160.17,1,"FIELD",49,3) L,BLANK "DATA",160.17,1,"FIELD",50,0) 1090^1^1090^PB Protocol Eligibility Status "DATA",160.17,1,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.17,1,"FIELD",50,2) BLANK "DATA",160.17,1,"FIELD",50,3) L,BLANK "DATA",160.17,1,"FIELD",51,0) 1091^2^1092^PB Primary Physician "DATA",160.17,1,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,347,"I") "DATA",160.17,1,"FIELD",51,2) BLANK "DATA",160.17,1,"FIELD",51,3) L,ZERO "DATA",160.17,1,"FIELD",52,0) 1093^2^1094^PB Secondary Physician "DATA",160.17,1,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,348,"I") "DATA",160.17,1,"FIELD",52,2) BLANK "DATA",160.17,1,"FIELD",52,3) L,ZERO "DATA",160.17,1,"FIELD",53,0) 1095^1^1095^PB Tumor Resection During TURB (Surgery Type 10) "DATA",160.17,1,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,349,"I") "DATA",160.17,1,"FIELD",53,2) BLANK "DATA",160.17,1,"FIELD",53,3) L,BLANK "DATA",160.17,1,"FIELD",54,0) 1096^1^1096^PB Type of Urinary Diversion (Surgery Type 20-70) "DATA",160.17,1,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,350,"I") "DATA",160.17,1,"FIELD",54,2) BLANK "DATA",160.17,1,"FIELD",54,3) L,BLANK "DATA",160.17,1,"FIELD",55,0) 1097^1^1097^PB Pelvic Lymph Node Dis. Rad. Surg. (Surg. Type 70) "DATA",160.17,1,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,351,"I") "DATA",160.17,1,"FIELD",55,2) BLANK "DATA",160.17,1,"FIELD",55,3) L,BLANK "DATA",160.17,1,"FIELD",56,0) 1098^1^1098^PB Bleeding Requiring Transfusion "DATA",160.17,1,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,352,"I") "DATA",160.17,1,"FIELD",56,2) BLANK "DATA",160.17,1,"FIELD",56,3) L,BLANK "DATA",160.17,1,"FIELD",57,0) 1099^1^1099^PB Deep venous Thrombosis "DATA",160.17,1,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,353,"I") "DATA",160.17,1,"FIELD",57,2) BLANK "DATA",160.17,1,"FIELD",57,3) L,BLANK "DATA",160.17,1,"FIELD",58,0) 1100^1^1100^PB Myocardial Infarction/arrhythmia "DATA",160.17,1,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,354,"I") "DATA",160.17,1,"FIELD",58,2) BLANK "DATA",160.17,1,"FIELD",58,3) L,BLANK "DATA",160.17,1,"FIELD",59,0) 1101^1^1101^PB Pelvic Abscess "DATA",160.17,1,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,355,"I") "DATA",160.17,1,"FIELD",59,2) BLANK "DATA",160.17,1,"FIELD",59,3) L,BLANK "DATA",160.17,1,"FIELD",60,0) 1102^1^1102^PB Pneumonia Requiring Antibiotics "DATA",160.17,1,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,356,"I") "DATA",160.17,1,"FIELD",60,2) BLANK "DATA",160.17,1,"FIELD",60,3) L,BLANK "DATA",160.17,1,"FIELD",61,0) 1103^1^1103^PB Postoperative death (30 Days) "DATA",160.17,1,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,357,"I") "DATA",160.17,1,"FIELD",61,2) BLANK "DATA",160.17,1,"FIELD",61,3) L,BLANK "DATA",160.17,1,"FIELD",62,0) 1104^1^1104^PB Pulmonary Embolism/Thrombosis "DATA",160.17,1,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,358,"I") "DATA",160.17,1,"FIELD",62,2) BLANK "DATA",160.17,1,"FIELD",62,3) L,BLANK "DATA",160.17,1,"FIELD",63,0) 1105^1^1105^PB Re-Operation "DATA",160.17,1,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,359,"I") "DATA",160.17,1,"FIELD",63,2) BLANK "DATA",160.17,1,"FIELD",63,3) L,BLANK "DATA",160.17,1,"FIELD",64,0) 1106^1^1106^PB Other "DATA",160.17,1,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,360,"I") "DATA",160.17,1,"FIELD",64,2) BLANK "DATA",160.17,1,"FIELD",64,3) L,BLANK "DATA",160.17,1,"FIELD",65,0) 1107^8^1114^PB Date Radiation Therapy Ended "DATA",160.17,1,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",65,2) BLANK "DATA",160.17,1,"FIELD",65,3) L,ZERO "DATA",160.17,1,"FIELD",66,0) 1115^5^1119^PB Total Radiation (cGy/Rad.) Dose "DATA",160.17,1,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.17,1,"FIELD",66,2) BLANK "DATA",160.17,1,"FIELD",66,3) L,ZERO "DATA",160.17,1,"FIELD",67,0) 1120^2^1121^PB Regional Treatment Modality "DATA",160.17,1,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.17,1,"FIELD",67,2) BLANK "DATA",160.17,1,"FIELD",67,3) L,ZERO "DATA",160.17,1,"FIELD",68,0) 1122^1^1122^PB Urinary Incontinence "DATA",160.17,1,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,364,"I") "DATA",160.17,1,"FIELD",68,2) BLANK "DATA",160.17,1,"FIELD",68,3) L,BLANK "DATA",160.17,1,"FIELD",69,0) 1123^1^1123^PB Hematuria "DATA",160.17,1,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,365,"I") "DATA",160.17,1,"FIELD",69,2) BLANK "DATA",160.17,1,"FIELD",69,3) L,BLANK "DATA",160.17,1,"FIELD",70,0) 1124^1^1124^PB Radiation Bowel Injury "DATA",160.17,1,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,366,"I") "DATA",160.17,1,"FIELD",70,2) BLANK "DATA",160.17,1,"FIELD",70,3) L,BLANK "DATA",160.17,1,"FIELD",71,0) 1125^8^1132^PB Date Chemotherapy Ended "DATA",160.17,1,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,367,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,1,"FIELD",71,2) ZERO "DATA",160.17,1,"FIELD",71,3) L,ZERO "DATA",160.17,1,"FIELD",72,0) 1133^1^1133^PB Route Chemotherapy Administered "DATA",160.17,1,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,368,"I") "DATA",160.17,1,"FIELD",72,2) BLANK "DATA",160.17,1,"FIELD",72,3) L,BLANK "DATA",160.17,1,"FIELD",73,0) 1134^1^1134^PB Adriamycin "DATA",160.17,1,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,369,"I") "DATA",160.17,1,"FIELD",73,2) BLANK "DATA",160.17,1,"FIELD",73,3) L,BLANK "DATA",160.17,1,"FIELD",74,0) 1135^1^1135^PB Carboplatinum "DATA",160.17,1,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,370,"I") "DATA",160.17,1,"FIELD",74,2) BLANK "DATA",160.17,1,"FIELD",74,3) L,BLANK "DATA",160.17,1,"FIELD",75,0) 1136^1^1136^PB Cisplatin "DATA",160.17,1,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.17,1,"FIELD",75,2) BLANK "DATA",160.17,1,"FIELD",75,3) L,BLANK "DATA",160.17,1,"FIELD",76,0) 1137^1^1137^PB Cyclophosphamide "DATA",160.17,1,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,372,"I") "DATA",160.17,1,"FIELD",76,2) BLANK "DATA",160.17,1,"FIELD",76,3) L,BLANK "DATA",160.17,1,"FIELD",77,0) 1138^1^1138^PB 5-fluorouracil "DATA",160.17,1,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,373,"I") "DATA",160.17,1,"FIELD",77,2) BLANK "DATA",160.17,1,"FIELD",77,3) L,BLANK "DATA",160.17,1,"FIELD",78,0) 1139^1^1139^PB Gallium Nitrate "DATA",160.17,1,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,374,"I") "DATA",160.17,1,"FIELD",78,2) BLANK "DATA",160.17,1,"FIELD",78,3) L,BLANK "DATA",160.17,1,"FIELD",79,0) 1140^1^1140^PB Ifosfamide "DATA",160.17,1,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.17,1,"FIELD",79,2) BLANK "DATA",160.17,1,"FIELD",79,3) L,BLANK "DATA",160.17,1,"FIELD",80,0) 1141^1^1141^PB Methotrexate "DATA",160.17,1,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,376,"I") "DATA",160.17,1,"FIELD",80,2) BLANK "DATA",160.17,1,"FIELD",80,3) L,BLANK "DATA",160.17,1,"FIELD",81,0) 1142^1^1142^PB Taxol "DATA",160.17,1,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.17,1,"FIELD",81,2) BLANK "DATA",160.17,1,"FIELD",81,3) L,BLANK "DATA",160.17,1,"FIELD",82,0) 1143^1^1143^PB Thiotepa "DATA",160.17,1,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,378,"I") "DATA",160.17,1,"FIELD",82,2) BLANK "DATA",160.17,1,"FIELD",82,3) L,BLANK "DATA",160.17,1,"FIELD",83,0) 1144^1^1144^PB Vinblastine "DATA",160.17,1,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,379,"I") "DATA",160.17,1,"FIELD",83,2) BLANK "DATA",160.17,1,"FIELD",83,3) L,BLANK "DATA",160.17,1,"FIELD",84,0) 1145^1^1145^PB Other "DATA",160.17,1,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,380,"I") "DATA",160.17,1,"FIELD",84,2) BLANK "DATA",160.17,1,"FIELD",84,3) L,BLANK "DATA",160.17,1,"FIELD",85,0) 1146^1^1146^PB Indication for Admin. of Agent "DATA",160.17,1,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,381,"I") "DATA",160.17,1,"FIELD",85,2) BLANK "DATA",160.17,1,"FIELD",85,3) L,BLANK "DATA",160.17,1,"FIELD",86,0) 1147^1^1147^PB Reason Chemotherapy Stopped "DATA",160.17,1,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,382,"I") "DATA",160.17,1,"FIELD",86,2) BLANK "DATA",160.17,1,"FIELD",86,3) L,BLANK "DATA",160.17,1,"FIELD",87,0) 1148^1^1148^PB BCG "DATA",160.17,1,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,383,"I") "DATA",160.17,1,"FIELD",87,2) BLANK "DATA",160.17,1,"FIELD",87,3) L,BLANK "DATA",160.17,1,"FIELD",88,0) 1149^1^1149^PB Interferon "DATA",160.17,1,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.17,1,"FIELD",88,2) BLANK "DATA",160.17,1,"FIELD",88,3) L,BLANK "DATA",160.17,1,"FIELD",89,0) 1150^1^1150^PB Interleukin-II "DATA",160.17,1,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,385,"I") "DATA",160.17,1,"FIELD",89,2) BLANK "DATA",160.17,1,"FIELD",89,3) L,BLANK "DATA",160.17,1,"FIELD",90,0) 1151^1^1151^PB Other "DATA",160.17,1,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,386,"I") "DATA",160.17,1,"FIELD",90,2) BLANK "DATA",160.17,1,"FIELD",90,3) L,BLANK "DATA",160.17,1,"FIELD",91,0) 1152^1^1152^PB Type of First Recurrence "DATA",160.17,1,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,387,"I") "DATA",160.17,1,"FIELD",91,2) BLANK "DATA",160.17,1,"FIELD",91,3) L,BLANK "DATA",160.17,1,"FIELD",92,0) 1153^2^1154^PB Completed By "DATA",160.17,1,"FIELD",92,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,1,"FIELD",92,2) BLANK "DATA",160.17,1,"FIELD",92,3) L,BLANK "DATA",160.17,1,"FIELD",93,0) 1155^2^1156^PB Reviewed by Cancer Committee "DATA",160.17,1,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,1,"FIELD",93,2) BLANK "DATA",160.17,1,"FIELD",93,3) L,BLANK "DATA",160.17,1,"FIELD",94,0) 1157^367^1523^PB Reserved "DATA",160.17,1,"FIELD",94,1) S ACDANS="" "DATA",160.17,1,"FIELD",94,2) BLANK "DATA",160.17,1,"FIELD",94,3) L,BLANK "DATA",160.17,2,0) PCE THYROID "DATA",160.17,2,"FIELD",0) ^160.171I^51^51 "DATA",160.17,2,"FIELD",1,0) 1026^1^1026^Family History of Thyroid Cancer "DATA",160.17,2,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,400,"I") "DATA",160.17,2,"FIELD",1,2) NINE "DATA",160.17,2,"FIELD",1,3) L,BLANK "DATA",160.17,2,"FIELD",2,0) 1027^1^1027^Lymphoma, including Hodgkin's Disease "DATA",160.17,2,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,401,"I") "DATA",160.17,2,"FIELD",2,2) NINE "DATA",160.17,2,"FIELD",2,3) L,ZERO "DATA",160.17,2,"FIELD",3,0) 1028^1^1028^Childhood malignancy other than lymphoma "DATA",160.17,2,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,402,"I") "DATA",160.17,2,"FIELD",3,2) NINE "DATA",160.17,2,"FIELD",3,3) L,BLANK "DATA",160.17,2,"FIELD",4,0) 1029^1^1029^Other "DATA",160.17,2,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,2,"FIELD",4,2) NINE "DATA",160.17,2,"FIELD",4,3) L,ZERO "DATA",160.17,2,"FIELD",5,0) 1030^1^1030^Personal Prior Exposure to Radiation "DATA",160.17,2,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,403,"I") "DATA",160.17,2,"FIELD",5,2) NINE "DATA",160.17,2,"FIELD",5,3) L,BLANK "DATA",160.17,2,"FIELD",6,0) 1031^1^1031^Personal History of Goiter "DATA",160.17,2,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,405,"I") "DATA",160.17,2,"FIELD",6,2) NINE "DATA",160.17,2,"FIELD",6,3) L,ZERO "DATA",160.17,2,"FIELD",7,0) 1032^1^1032^Family History of Goiter "DATA",160.17,2,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,405,"I") "DATA",160.17,2,"FIELD",7,2) NINE "DATA",160.17,2,"FIELD",7,3) L,ZERO "DATA",160.17,2,"FIELD",8,0) 1041^1^1041^Stridor or Difficulty Breathing "DATA",160.17,2,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,414,"I") "DATA",160.17,2,"FIELD",8,2) NINE "DATA",160.17,2,"FIELD",8,3) L,BLANK "DATA",160.17,2,"FIELD",9,0) 1042^1^1042^Thyroid Mass "DATA",160.17,2,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,415,"I") "DATA",160.17,2,"FIELD",9,2) NINE "DATA",160.17,2,"FIELD",9,3) L,BLANK "DATA",160.17,2,"FIELD",10,0) 1043^1^1043^Weight Loss "DATA",160.17,2,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,416,"I") "DATA",160.17,2,"FIELD",10,2) NINE "DATA",160.17,2,"FIELD",10,3) L,BLANK "DATA",160.17,2,"FIELD",11,0) 1044^1^1044^Other "DATA",160.17,2,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,417,"I") "DATA",160.17,2,"FIELD",11,2) NINE "DATA",160.17,2,"FIELD",11,3) L,BLANK "DATA",160.17,2,"FIELD",12,0) 1045^1^1045^D/S Bone Scan "DATA",160.17,2,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,418,"I") "DATA",160.17,2,"FIELD",12,2) NINE "DATA",160.17,2,"FIELD",12,3) L,BLANK "DATA",160.17,2,"FIELD",13,0) 1046^1^1046^D/S Chest X-Ray "DATA",160.17,2,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,419,"I") "DATA",160.17,2,"FIELD",13,2) NINE "DATA",160.17,2,"FIELD",13,3) L,BLANK "DATA",160.17,2,"FIELD",14,0) 1047^1^1047^D/S CT Scan of neck "DATA",160.17,2,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,420,"I") "DATA",160.17,2,"FIELD",14,2) NINE "DATA",160.17,2,"FIELD",14,3) L,BLANK "DATA",160.17,2,"FIELD",15,0) 1048^1^1048^D/S CT Scan of chest "DATA",160.17,2,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,421,"I") "DATA",160.17,2,"FIELD",15,2) NINE "DATA",160.17,2,"FIELD",15,3) L,BLANK "DATA",160.17,2,"FIELD",16,0) 1049^1^1049^D/S Incisional Biopsy of Thyroid or Neck "DATA",160.17,2,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,422,"I") "DATA",160.17,2,"FIELD",16,2) NINE "DATA",160.17,2,"FIELD",16,3) L,BLANK "DATA",160.17,2,"FIELD",17,0) 1050^1^1050^D/S Laryngoscopy "DATA",160.17,2,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,423,"I") "DATA",160.17,2,"FIELD",17,2) NINE "DATA",160.17,2,"FIELD",17,3) L,BLANK "DATA",160.17,2,"FIELD",18,0) 1051^1^1051^D/S Neck X-Ray (AP & Lateral) "DATA",160.17,2,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,424,"I") "DATA",160.17,2,"FIELD",18,2) NINE "DATA",160.17,2,"FIELD",18,3) L,BLANK "DATA",160.17,2,"FIELD",19,0) 1052^1^1052^D/S Needle Aspiration of Neck Node "DATA",160.17,2,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,425,"I") "DATA",160.17,2,"FIELD",19,2) NINE "DATA",160.17,2,"FIELD",19,3) L,BLANK "DATA",160.17,2,"FIELD",20,0) 1053^1^1053^D/S Needle Aspiration of Thyroid "DATA",160.17,2,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,426,"I") "DATA",160.17,2,"FIELD",20,2) NINE "DATA",160.17,2,"FIELD",20,3) L,BLANK "DATA",160.17,2,"FIELD",21,0) 1054^1^1054^D/S MRI of Neck "DATA",160.17,2,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,427,"I") "DATA",160.17,2,"FIELD",21,2) NINE "DATA",160.17,2,"FIELD",21,3) L,BLANK "DATA",160.17,2,"FIELD",22,0) 1055^1^1055^D/S Thyroid Scan "DATA",160.17,2,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,428,"I") "DATA",160.17,2,"FIELD",22,2) NINE "DATA",160.17,2,"FIELD",22,3) L,BLANK "DATA",160.17,2,"FIELD",23,0) 1056^1^1056^D/S Ultrasound of Thyroid "DATA",160.17,2,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,429,"I") "DATA",160.17,2,"FIELD",23,2) NINE "DATA",160.17,2,"FIELD",23,3) L,BLANK "DATA",160.17,2,"FIELD",24,0) 1057^1^1057^D/S Other "DATA",160.17,2,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,430,"I") "DATA",160.17,2,"FIELD",24,2) NINE "DATA",160.17,2,"FIELD",24,3) L,BLANK "DATA",160.17,2,"FIELD",25,0) 1058^1^1058^Blood Vessel Invasion "DATA",160.17,2,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,431,"I") "DATA",160.17,2,"FIELD",25,2) NINE "DATA",160.17,2,"FIELD",25,3) L,ZERO "DATA",160.17,2,"FIELD",26,0) 1062^8^1069^Date of Discharge After Surgery "DATA",160.17,2,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,435,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,2,"FIELD",26,2) BLANK "DATA",160.17,2,"FIELD",26,3) L,BLANK "DATA",160.17,2,"FIELD",27,0) 1070^1^1070^SC Airway Problem Requiring Tracheostomy "DATA",160.17,2,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,436,"I") "DATA",160.17,2,"FIELD",27,2) NINE "DATA",160.17,2,"FIELD",27,3) L,BLANK "DATA",160.17,2,"FIELD",28,0) 1071^1^1071^SC Bleeding/Hematoma "DATA",160.17,2,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,437,"I") "DATA",160.17,2,"FIELD",28,2) NINE "DATA",160.17,2,"FIELD",28,3) L,BLANK "DATA",160.17,2,"FIELD",29,0) 1072^1^1072^SC Hypocalcemia (needs oral calcium) "DATA",160.17,2,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,438,"I") "DATA",160.17,2,"FIELD",29,2) NINE "DATA",160.17,2,"FIELD",29,3) L,BLANK "DATA",160.17,2,"FIELD",30,0) 1073^1^1073^SC Recurrent Nerve Injury (or vocal cord paresis) "DATA",160.17,2,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,439,"I") "DATA",160.17,2,"FIELD",30,2) NINE "DATA",160.17,2,"FIELD",30,3) L,BLANK "DATA",160.17,2,"FIELD",31,0) 1074^1^1074^SC Wound Infection "DATA",160.17,2,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,440,"I") "DATA",160.17,2,"FIELD",31,2) NINE "DATA",160.17,2,"FIELD",31,3) L,BLANK "DATA",160.17,2,"FIELD",32,0) 1075^1^1075^Postoperative Death "DATA",160.17,2,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,2,"FIELD",32,2) NINE "DATA",160.17,2,"FIELD",32,3) L,ZERO "DATA",160.17,2,"FIELD",33,0) 1092^1^1092^Thyroid Hormone Therapy "DATA",160.17,2,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.17,2,"FIELD",33,2) NINE "DATA",160.17,2,"FIELD",33,3) L,BLANK "DATA",160.17,2,"FIELD",34,0) 1093^2^1094^Completed By "DATA",160.17,2,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,2,"FIELD",34,2) BLANK "DATA",160.17,2,"FIELD",34,3) L,BLANK "DATA",160.17,2,"FIELD",35,0) 1095^2^1096^Reviewed By Cancer Committee "DATA",160.17,2,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,2,"FIELD",35,2) BLANK "DATA",160.17,2,"FIELD",35,3) L,BLANK "DATA",160.17,2,"FIELD",36,0) 1097^427^1523^Reserved "DATA",160.17,2,"FIELD",36,1) S ACDANS="" "DATA",160.17,2,"FIELD",36,2) BLANK "DATA",160.17,2,"FIELD",36,3) L,BLANK "DATA",160.17,2,"FIELD",37,0) 1061^1^1061^Location of Positive Nodes "DATA",160.17,2,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,434,"I") "DATA",160.17,2,"FIELD",37,2) NINE "DATA",160.17,2,"FIELD",37,3) L,BLANK "DATA",160.17,2,"FIELD",38,0) 1033^1^1033^Personal History of Graves' Disease "DATA",160.17,2,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,406,"I") "DATA",160.17,2,"FIELD",38,2) NINE "DATA",160.17,2,"FIELD",38,3) L,ZERO "DATA",160.17,2,"FIELD",39,0) 1034^1^1034^Personal History of Thyroiditis "DATA",160.17,2,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,407,"I") "DATA",160.17,2,"FIELD",39,2) NINE "DATA",160.17,2,"FIELD",39,3) L,ZERO "DATA",160.17,2,"FIELD",40,0) 1035^1^1035^S/S Present Dysphagia "DATA",160.17,2,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,408,"I") "DATA",160.17,2,"FIELD",40,2) NINE "DATA",160.17,2,"FIELD",40,3) L,ZERO "DATA",160.17,2,"FIELD",41,0) 1036^1^1036^S/S Present Hoarseness of voice change "DATA",160.17,2,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,409,"I") "DATA",160.17,2,"FIELD",41,2) NINE "DATA",160.17,2,"FIELD",41,3) L,ZERO "DATA",160.17,2,"FIELD",42,0) 1037^1^1037^S/S Present Neck nodal mass "DATA",160.17,2,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,410,"I") "DATA",160.17,2,"FIELD",42,2) NINE "DATA",160.17,2,"FIELD",42,3) L,ZERO "DATA",160.17,2,"FIELD",43,0) 1038^1^1038^S/S Present Pain, Bone "DATA",160.17,2,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,411,"I") "DATA",160.17,2,"FIELD",43,2) NINE "DATA",160.17,2,"FIELD",43,3) L,ZERO "DATA",160.17,2,"FIELD",44,0) 1039^1^1039^S/S Present Pain, neck "DATA",160.17,2,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,412,"I") "DATA",160.17,2,"FIELD",44,2) NINE "DATA",160.17,2,"FIELD",44,3) L,ZERO "DATA",160.17,2,"FIELD",45,0) 1040^1^1040^S/S Present Pathologic Fracture "DATA",160.17,2,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,413,"I") "DATA",160.17,2,"FIELD",45,2) NINE "DATA",160.17,2,"FIELD",45,3) L,ZERO "DATA",160.17,2,"FIELD",46,0) 1059^1^1059^Extra-Throidal Extension "DATA",160.17,2,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,432,"I") "DATA",160.17,2,"FIELD",46,2) NINE "DATA",160.17,2,"FIELD",46,3) L,ZERO "DATA",160.17,2,"FIELD",47,0) 1060^1^1060^Multifocal "DATA",160.17,2,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,433,"I") "DATA",160.17,2,"FIELD",47,2) NINE "DATA",160.17,2,"FIELD",47,3) L,ZERO "DATA",160.17,2,"FIELD",48,0) 1076^5^1080^Radiation Boost Dosage "DATA",160.17,2,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,443,"I") "DATA",160.17,2,"FIELD",48,2) NINE "DATA",160.17,2,"FIELD",48,3) L,ZERO "DATA",160.17,2,"FIELD",49,0) 1081^5^1085^Initial Dose of Radioiodine "DATA",160.17,2,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,444,"I") "DATA",160.17,2,"FIELD",49,2) NINE "DATA",160.17,2,"FIELD",49,3) L,ZERO "DATA",160.17,2,"FIELD",50,0) 1086^5^1090^Second Dose of Radioiodine "DATA",160.17,2,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,445,"I") "DATA",160.17,2,"FIELD",50,2) NINE "DATA",160.17,2,"FIELD",50,3) L,ZERO "DATA",160.17,2,"FIELD",51,0) 1091^1^1091^Adjuvant Chemo. with External Beam "DATA",160.17,2,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,446,"I") "DATA",160.17,2,"FIELD",51,2) NINE "DATA",160.17,2,"FIELD",51,3) L,ZERO "DATA",160.17,3,0) PCE SOFT TISSUE SARCOMA "DATA",160.17,3,"FIELD",0) ^160.171I^85^85 "DATA",160.17,3,"FIELD",1,0) 1026^1^1026^Family History of Soft Tissue Sarcoma "DATA",160.17,3,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,500,"I") "DATA",160.17,3,"FIELD",1,2) NINE "DATA",160.17,3,"FIELD",1,3) L,BLANK "DATA",160.17,3,"FIELD",2,0) 1027^1^1027^Personal History of Any Cancer "DATA",160.17,3,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,501,"I") "DATA",160.17,3,"FIELD",2,2) NINE "DATA",160.17,3,"FIELD",2,3) L,BLANK "DATA",160.17,3,"FIELD",3,0) 1028^1^1028^D/W Angiogram of Primary "DATA",160.17,3,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,502,"I") "DATA",160.17,3,"FIELD",3,2) NINE "DATA",160.17,3,"FIELD",3,3) L,BLANK "DATA",160.17,3,"FIELD",4,0) 1029^1^1029^D/W Bone marrow Aspirate and/or biopsy "DATA",160.17,3,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,503,"I") "DATA",160.17,3,"FIELD",4,2) NINE "DATA",160.17,3,"FIELD",4,3) L,BLANK "DATA",160.17,3,"FIELD",5,0) 1030^1^1030^D/W Bone Scan "DATA",160.17,3,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,504,"I") "DATA",160.17,3,"FIELD",5,2) NINE "DATA",160.17,3,"FIELD",5,3) L,BLANK "DATA",160.17,3,"FIELD",6,0) 1031^1^1031^D/W Chest X-Ray "DATA",160.17,3,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,505,"I") "DATA",160.17,3,"FIELD",6,2) NINE "DATA",160.17,3,"FIELD",6,3) L,BLANK "DATA",160.17,3,"FIELD",7,0) 1032^1^1032^D/W CT scan of chest "DATA",160.17,3,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,506,"I") "DATA",160.17,3,"FIELD",7,2) NINE "DATA",160.17,3,"FIELD",7,3) L,BLANK "DATA",160.17,3,"FIELD",8,0) 1033^1^1033^D/W CT scan of primary "DATA",160.17,3,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,507,"I") "DATA",160.17,3,"FIELD",8,2) NINE "DATA",160.17,3,"FIELD",8,3) L,BLANK "DATA",160.17,3,"FIELD",9,0) 1034^1^1034^D/W Liver Function Studies "DATA",160.17,3,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,508,"I") "DATA",160.17,3,"FIELD",9,2) NINE "DATA",160.17,3,"FIELD",9,3) L,BLANK "DATA",160.17,3,"FIELD",10,0) 1035^1^1035^D/W Lymphangiogram "DATA",160.17,3,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,509,"I") "DATA",160.17,3,"FIELD",10,2) NINE "DATA",160.17,3,"FIELD",10,3) L,BLANK "DATA",160.17,3,"FIELD",11,0) 1036^1^1036^D/W MRI of primary "DATA",160.17,3,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,510,"I") "DATA",160.17,3,"FIELD",11,2) NINE "DATA",160.17,3,"FIELD",11,3) L,BLANK "DATA",160.17,3,"FIELD",12,0) 1037^1^1037^D/W MRI of Other "DATA",160.17,3,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,511,"I") "DATA",160.17,3,"FIELD",12,2) NINE "DATA",160.17,3,"FIELD",12,3) L,BLANK "DATA",160.17,3,"FIELD",13,0) 1038^1^1038^D/W Skeletal X-Ray "DATA",160.17,3,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,512,"I") "DATA",160.17,3,"FIELD",13,2) NINE "DATA",160.17,3,"FIELD",13,3) L,BLANK "DATA",160.17,3,"FIELD",14,0) 1039^1^1039^D/W Sonogram "DATA",160.17,3,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,513,"I") "DATA",160.17,3,"FIELD",14,2) NINE "DATA",160.17,3,"FIELD",14,3) L,BLANK "DATA",160.17,3,"FIELD",15,0) 1040^1^1040^H/W Cytogenetics "DATA",160.17,3,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,514,"I") "DATA",160.17,3,"FIELD",15,2) NINE "DATA",160.17,3,"FIELD",15,3) L,BLANK "DATA",160.17,3,"FIELD",16,0) 1041^1^1041^H/W Electron Microscopy "DATA",160.17,3,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,515,"I") "DATA",160.17,3,"FIELD",16,2) NINE "DATA",160.17,3,"FIELD",16,3) L,BLANK "DATA",160.17,3,"FIELD",17,0) 1042^1^1042^H/W Flow Cytometry "DATA",160.17,3,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.17,3,"FIELD",17,2) NINE "DATA",160.17,3,"FIELD",17,3) L,BLANK "DATA",160.17,3,"FIELD",18,0) 1043^1^1043^H/W Immunohistochemistry "DATA",160.17,3,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,516,"I") "DATA",160.17,3,"FIELD",18,2) NINE "DATA",160.17,3,"FIELD",18,3) L,BLANK "DATA",160.17,3,"FIELD",19,0) 1044^1^1044^H/W In Situ Hybridization "DATA",160.17,3,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,517,"I") "DATA",160.17,3,"FIELD",19,2) NINE "DATA",160.17,3,"FIELD",19,3) L,BLANK "DATA",160.17,3,"FIELD",20,0) 1045^4^1048^B. Fine needle aspiration histology "DATA",160.17,3,"FIELD",20,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),1,4) "DATA",160.17,3,"FIELD",20,2) NINE "DATA",160.17,3,"FIELD",20,3) L,ZERO "DATA",160.17,3,"FIELD",21,0) 1049^1^1049^B. Fine needle aspiration behavior "DATA",160.17,3,"FIELD",21,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),5) "DATA",160.17,3,"FIELD",21,2) NINE "DATA",160.17,3,"FIELD",21,3) L,ZERO "DATA",160.17,3,"FIELD",22,0) 1050^1^1050^B. Fine needle aspiration grade "DATA",160.17,3,"FIELD",22,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,528,"I"),6) "DATA",160.17,3,"FIELD",22,2) NINE "DATA",160.17,3,"FIELD",22,3) L,ZERO "DATA",160.17,3,"FIELD",23,0) 1051^4^1054^B. Core needle biopsy Histology "DATA",160.17,3,"FIELD",23,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),1,4) "DATA",160.17,3,"FIELD",23,2) NINE "DATA",160.17,3,"FIELD",23,3) L,ZERO "DATA",160.17,3,"FIELD",24,0) 1055^1^1055^B. Core needle biopsy behavior "DATA",160.17,3,"FIELD",24,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),5) "DATA",160.17,3,"FIELD",24,2) NINE "DATA",160.17,3,"FIELD",24,3) L,ZERO "DATA",160.17,3,"FIELD",25,0) 1056^1^1056^B. Core needle biopsy grade "DATA",160.17,3,"FIELD",25,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,529,"I"),6) "DATA",160.17,3,"FIELD",25,2) NINE "DATA",160.17,3,"FIELD",25,3) L,ZERO "DATA",160.17,3,"FIELD",26,0) 1057^4^1060^B. Incisional Biopsy Histology "DATA",160.17,3,"FIELD",26,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),1,4) "DATA",160.17,3,"FIELD",26,2) NINE "DATA",160.17,3,"FIELD",26,3) L,ZERO "DATA",160.17,3,"FIELD",27,0) 1061^1^1061^B. Incisional Biopsy Behavior "DATA",160.17,3,"FIELD",27,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),5) "DATA",160.17,3,"FIELD",27,2) NINE "DATA",160.17,3,"FIELD",27,3) L,ZERO "DATA",160.17,3,"FIELD",28,0) 1062^1^1062^B. Incisional Biopsy Grade "DATA",160.17,3,"FIELD",28,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,530,"I"),6) "DATA",160.17,3,"FIELD",28,2) NINE "DATA",160.17,3,"FIELD",28,3) L,ZERO "DATA",160.17,3,"FIELD",29,0) 1063^4^1066^B. Excisional Biopsy Histology "DATA",160.17,3,"FIELD",29,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),1,4) "DATA",160.17,3,"FIELD",29,2) NINE "DATA",160.17,3,"FIELD",29,3) L,ZERO "DATA",160.17,3,"FIELD",30,0) 1067^1^1067^B. Excisional Biopsy Behavior "DATA",160.17,3,"FIELD",30,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),5) "DATA",160.17,3,"FIELD",30,2) NINE "DATA",160.17,3,"FIELD",30,3) L,ZERO "DATA",160.17,3,"FIELD",31,0) 1068^1^1068^B. Excisional Biopsy Grade "DATA",160.17,3,"FIELD",31,1) S ACDANS=$E($$GET1~DIQ(165.5,IEN,531,"I"),6) "DATA",160.17,3,"FIELD",31,2) NINE "DATA",160.17,3,"FIELD",31,3) L,ZERO "DATA",160.17,3,"FIELD",32,0) 1069^1^1069^Was an Outside Confirmation of a Biopsy Requested "DATA",160.17,3,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,518,"I") "DATA",160.17,3,"FIELD",32,2) NINE "DATA",160.17,3,"FIELD",32,3) L,BLANK "DATA",160.17,3,"FIELD",33,0) 1070^2^1071^Subsite "DATA",160.17,3,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,519,"I") "DATA",160.17,3,"FIELD",33,2) BLANK "DATA",160.17,3,"FIELD",33,3) L,ZERO "DATA",160.17,3,"FIELD",34,0) 1072^1^1072^Additional Type of Grade Coding System "DATA",160.17,3,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,520,"I") "DATA",160.17,3,"FIELD",34,2) NINE "DATA",160.17,3,"FIELD",34,3) L,BLANK "DATA",160.17,3,"FIELD",35,0) 1073^1^1073^Value of Additional Coding System "DATA",160.17,3,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,521,"I") "DATA",160.17,3,"FIELD",35,2) NINE "DATA",160.17,3,"FIELD",35,3) L,BLANK "DATA",160.17,3,"FIELD",36,0) 1074^3^1076^Pretreatment Tumor Size "DATA",160.17,3,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.17,3,"FIELD",36,2) BLANK "DATA",160.17,3,"FIELD",36,3) L,ZERO "DATA",160.17,3,"FIELD",37,0) 1077^1^1077^Depth of Tumor "DATA",160.17,3,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,523,"I") "DATA",160.17,3,"FIELD",37,2) NINE "DATA",160.17,3,"FIELD",37,3) L,BLANK "DATA",160.17,3,"FIELD",38,0) 1078^1^1078^Multifocal "DATA",160.17,3,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,433,"I") "DATA",160.17,3,"FIELD",38,2) NINE "DATA",160.17,3,"FIELD",38,3) L,BLANK "DATA",160.17,3,"FIELD",39,0) 1079^1^1079^Consultation Medical Oncology "DATA",160.17,3,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,524,"I") "DATA",160.17,3,"FIELD",39,2) NINE "DATA",160.17,3,"FIELD",39,3) L,BLANK "DATA",160.17,3,"FIELD",40,0) 1080^1^1080^Consultation Radiation Oncology "DATA",160.17,3,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,525,"I") "DATA",160.17,3,"FIELD",40,2) NINE "DATA",160.17,3,"FIELD",40,3) L,BLANK "DATA",160.17,3,"FIELD",41,0) 1081^1^1081^Treating Surgeon "DATA",160.17,3,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,526,"I") "DATA",160.17,3,"FIELD",41,2) NINE "DATA",160.17,3,"FIELD",41,3) L,BLANK "DATA",160.17,3,"FIELD",42,0) 1082^1^1082^ASA Class "DATA",160.17,3,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,527,"I") "DATA",160.17,3,"FIELD",42,2) NINE "DATA",160.17,3,"FIELD",42,3) L,BLANK "DATA",160.17,3,"FIELD",43,0) 1083^1^1083^Postoperative Death Within 30 Days "DATA",160.17,3,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,3,"FIELD",43,2) NINE "DATA",160.17,3,"FIELD",43,3) L,BLANK "DATA",160.17,3,"FIELD",44,0) 1084^1^1084^Performance "DATA",160.17,3,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,532,"I") "DATA",160.17,3,"FIELD",44,2) NINE "DATA",160.17,3,"FIELD",44,3) L,BLANK "DATA",160.17,3,"FIELD",45,0) 1085^3^1087^Number of Fractions "DATA",160.17,3,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,533,"I") "DATA",160.17,3,"FIELD",45,2) ZERO "DATA",160.17,3,"FIELD",45,3) L,ZERO "DATA",160.17,3,"FIELD",46,0) 1088^5^1092^Dose "DATA",160.17,3,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.17,3,"FIELD",46,2) ZERO "DATA",160.17,3,"FIELD",46,3) L,ZERO "DATA",160.17,3,"FIELD",47,0) 1093^2^1094^Radiation Energy (MV) "DATA",160.17,3,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,534,"I") "DATA",160.17,3,"FIELD",47,2) ZERO "DATA",160.17,3,"FIELD",47,3) L,ZERO "DATA",160.17,3,"FIELD",48,0) 1095^8^1102^Date Started "DATA",160.17,3,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,567,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",48,2) BLANK "DATA",160.17,3,"FIELD",48,3) L,ZERO "DATA",160.17,3,"FIELD",49,0) 1103^8^1110^Date Ended "DATA",160.17,3,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",49,2) BLANK "DATA",160.17,3,"FIELD",49,3) L,ZERO "DATA",160.17,3,"FIELD",50,0) 1111^1^1111^Intraoperative Radiation Performance "DATA",160.17,3,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,535,"I") "DATA",160.17,3,"FIELD",50,2) NINE "DATA",160.17,3,"FIELD",50,3) L,BLANK "DATA",160.17,3,"FIELD",51,0) 1112^5^1116^Intraoperative Radiation Dose "DATA",160.17,3,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,536,"I") "DATA",160.17,3,"FIELD",51,2) ZERO "DATA",160.17,3,"FIELD",51,3) L,ZERO "DATA",160.17,3,"FIELD",52,0) 1117^2^1118^Intraoperative Radiation Radiation Energy (MV) "DATA",160.17,3,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,537,"I") "DATA",160.17,3,"FIELD",52,2) ZERO "DATA",160.17,3,"FIELD",52,3) L,ZERO "DATA",160.17,3,"FIELD",53,0) 1119^1^1119^Brachytherapy Preformance "DATA",160.17,3,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,538,"I") "DATA",160.17,3,"FIELD",53,2) NINE "DATA",160.17,3,"FIELD",53,3) L,BLANK "DATA",160.17,3,"FIELD",54,0) 1120^3^1122^Brachytherapy Number of Days Given "DATA",160.17,3,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,539,"I") "DATA",160.17,3,"FIELD",54,2) ZERO "DATA",160.17,3,"FIELD",54,3) L,ZERO "DATA",160.17,3,"FIELD",55,0) 1123^5^1127^Brachytherapy Dose "DATA",160.17,3,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,540,"I") "DATA",160.17,3,"FIELD",55,2) ZERO "DATA",160.17,3,"FIELD",55,3) L,ZERO "DATA",160.17,3,"FIELD",56,0) 1128^8^1135^Brachytherapy Date Started "DATA",160.17,3,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,541,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",56,2) BLANK "DATA",160.17,3,"FIELD",56,3) L,ZERO "DATA",160.17,3,"FIELD",57,0) 1136^8^1143^Brachytherapy Date Ended "DATA",160.17,3,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,542,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.17,3,"FIELD",57,2) BLANK "DATA",160.17,3,"FIELD",57,3) L,ZERO "DATA",160.17,3,"FIELD",58,0) 1144^1^1144^Chemotherapy, A/A Cisplatin "DATA",160.17,3,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.17,3,"FIELD",58,2) NINE "DATA",160.17,3,"FIELD",58,3) L,BLANK "DATA",160.17,3,"FIELD",59,0) 1145^1^1145^Chemotherapy, A/A Cytoxan "DATA",160.17,3,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,543,"I") "DATA",160.17,3,"FIELD",59,2) NINE "DATA",160.17,3,"FIELD",59,3) L,BLANK "DATA",160.17,3,"FIELD",60,0) 1146^1^1146^Chemotherapy, A/A DTIC "DATA",160.17,3,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,544,"I") "DATA",160.17,3,"FIELD",60,2) NINE "DATA",160.17,3,"FIELD",60,3) L,BLANK "DATA",160.17,3,"FIELD",61,0) 1147^1^1147^Chemotherapy, A/A Doxorubicin "DATA",160.17,3,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,545,"I") "DATA",160.17,3,"FIELD",61,2) NINE "DATA",160.17,3,"FIELD",61,3) L,BLANK "DATA",160.17,3,"FIELD",62,0) 1148^1^1148^Chemotherapy, A/A Etoposide "DATA",160.17,3,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,546,"I") "DATA",160.17,3,"FIELD",62,2) NINE "DATA",160.17,3,"FIELD",62,3) L,BLANK "DATA",160.17,3,"FIELD",63,0) 1149^1^1149^Chemotherapy, A/A Ifosfamide "DATA",160.17,3,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.17,3,"FIELD",63,2) NINE "DATA",160.17,3,"FIELD",63,3) L,BLANK "DATA",160.17,3,"FIELD",64,0) 1150^1^1150^Chemotherapy, MD Cisplatin "DATA",160.17,3,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,547,"I") "DATA",160.17,3,"FIELD",64,2) NINE "DATA",160.17,3,"FIELD",64,3) L,BLANK "DATA",160.17,3,"FIELD",65,0) 1151^1^1151^Chemotherapy, MD Cytoxan "DATA",160.17,3,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,548,"I") "DATA",160.17,3,"FIELD",65,2) NINE "DATA",160.17,3,"FIELD",65,3) L,BLANK "DATA",160.17,3,"FIELD",66,0) 1152^1^1152^Chemotherapy, MD DTIC "DATA",160.17,3,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,549,"I") "DATA",160.17,3,"FIELD",66,2) NINE "DATA",160.17,3,"FIELD",66,3) L,BLANK "DATA",160.17,3,"FIELD",67,0) 1153^1^1153^Chemotherapy, MD Doxorubicin "DATA",160.17,3,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,550,"I") "DATA",160.17,3,"FIELD",67,2) NINE "DATA",160.17,3,"FIELD",67,3) L,BLANK "DATA",160.17,3,"FIELD",68,0) 1154^1^1154^Chemotherapy, MD Etoposide "DATA",160.17,3,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,551,"I") "DATA",160.17,3,"FIELD",68,2) NINE "DATA",160.17,3,"FIELD",68,3) L,BLANK "DATA",160.17,3,"FIELD",69,0) 1155^1^1155^Chemotherapy, MD Ifosfamide "DATA",160.17,3,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,552,"I") "DATA",160.17,3,"FIELD",69,2) NINE "DATA",160.17,3,"FIELD",69,3) L,BLANK "DATA",160.17,3,"FIELD",70,0) 1156^1^1156^Chemotherapy, Location Cisplatin "DATA",160.17,3,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,553,"I") "DATA",160.17,3,"FIELD",70,2) NINE "DATA",160.17,3,"FIELD",70,3) L,BLANK "DATA",160.17,3,"FIELD",71,0) 1157^1^1157^Chemotherapy, Location Cytoxan "DATA",160.17,3,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,554,"I") "DATA",160.17,3,"FIELD",71,2) NINE "DATA",160.17,3,"FIELD",71,3) L,BLANK "DATA",160.17,3,"FIELD",72,0) 1158^1^1158^Chemotherapy, Location DTIC "DATA",160.17,3,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,555,"I") "DATA",160.17,3,"FIELD",72,2) NINE "DATA",160.17,3,"FIELD",72,3) L,BLANK "DATA",160.17,3,"FIELD",73,0) 1159^1^1159^Chemotherapy, Location Doxorubicin "DATA",160.17,3,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,556,"I") "DATA",160.17,3,"FIELD",73,2) NINE "DATA",160.17,3,"FIELD",73,3) L,BLANK "DATA",160.17,3,"FIELD",74,0) 1160^1^1160^Chemotherapy, Location Etoposide "DATA",160.17,3,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,557,"I") "DATA",160.17,3,"FIELD",74,2) NINE "DATA",160.17,3,"FIELD",74,3) L,BLANK "DATA",160.17,3,"FIELD",75,0) 1161^1^1161^Chemotherapy, Location Ifosfamide "DATA",160.17,3,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,558,"I") "DATA",160.17,3,"FIELD",75,2) NINE "DATA",160.17,3,"FIELD",75,3) L,BLANK "DATA",160.17,3,"FIELD",76,0) 1162^1^1162^Colony Stimulating Factors "DATA",160.17,3,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,559,"I") "DATA",160.17,3,"FIELD",76,2) NINE "DATA",160.17,3,"FIELD",76,3) L,BLANK "DATA",160.17,3,"FIELD",77,0) 1163^1^1163^Other Protocol "DATA",160.17,3,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,561,"I") "DATA",160.17,3,"FIELD",77,2) NINE "DATA",160.17,3,"FIELD",77,3) L,BLANK "DATA",160.17,3,"FIELD",78,0) 1164^1^1164^Referred to Rehabilitation Service "DATA",160.17,3,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,562,"I") "DATA",160.17,3,"FIELD",78,2) NINE "DATA",160.17,3,"FIELD",78,3) L,BLANK "DATA",160.17,3,"FIELD",79,0) 1165^1^1165^Consultation with Physical Therapy/Rehabilitation "DATA",160.17,3,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,563,"I") "DATA",160.17,3,"FIELD",79,2) NINE "DATA",160.17,3,"FIELD",79,3) L,BLANK "DATA",160.17,3,"FIELD",80,0) 1166^1^1166^Transferred to Rehabilitation Facility "DATA",160.17,3,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,564,"I") "DATA",160.17,3,"FIELD",80,2) NINE "DATA",160.17,3,"FIELD",80,3) L,BLANK "DATA",160.17,3,"FIELD",81,0) 1167^2^1168^# of Hospitalizations Within 6 Months of Diagnosis "DATA",160.17,3,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,565,"I") "DATA",160.17,3,"FIELD",81,2) NINE "DATA",160.17,3,"FIELD",81,3) L,ZERO "DATA",160.17,3,"FIELD",82,0) 1169^3^1171^Total Length of Stays "DATA",160.17,3,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,566,"I") "DATA",160.17,3,"FIELD",82,2) NINE "DATA",160.17,3,"FIELD",82,3) L,ZERO "DATA",160.17,3,"FIELD",83,0) 1172^2^1173^Completed By "DATA",160.17,3,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,3,"FIELD",83,2) BLANK "DATA",160.17,3,"FIELD",83,3) L,BLANK "DATA",160.17,3,"FIELD",84,0) 1174^2^1175^Reviewed By Cancer Committee "DATA",160.17,3,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,3,"FIELD",84,2) BLANK "DATA",160.17,3,"FIELD",84,3) L,BLANK "DATA",160.17,3,"FIELD",85,0) 1176^348^1523^Reserved "DATA",160.17,3,"FIELD",85,1) S ACDANS="" "DATA",160.17,3,"FIELD",85,2) BLANK "DATA",160.17,3,"FIELD",85,3) L,BLANK "DATA",160.17,4,0) PCE COLORECTAL "DATA",160.17,4,"FIELD",0) ^160.171I^113^113 "DATA",160.17,4,"FIELD",1,0) 1026^1^1026^Family History of Colorectal Cancer "DATA",160.17,4,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,700,"I") "DATA",160.17,4,"FIELD",1,2) NINE "DATA",160.17,4,"FIELD",1,3) L,BLANK "DATA",160.17,4,"FIELD",2,0) 1027^1^1027^Personal History of Colorectal Cancer "DATA",160.17,4,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,701,"I") "DATA",160.17,4,"FIELD",2,2) NINE "DATA",160.17,4,"FIELD",2,3) L,BLANK "DATA",160.17,4,"FIELD",3,0) 1028^1^1028^Multi Prim within Col/Rect Assession in 1997 "DATA",160.17,4,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,702,"I") "DATA",160.17,4,"FIELD",3,2) NINE "DATA",160.17,4,"FIELD",3,3) L,BLANK "DATA",160.17,4,"FIELD",4,0) 1029^1^1029^PH Breast "DATA",160.17,4,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,703,"I") "DATA",160.17,4,"FIELD",4,2) NINE "DATA",160.17,4,"FIELD",4,3) L,BLANK "DATA",160.17,4,"FIELD",5,0) 1030^1^1030^PH Cervix "DATA",160.17,4,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.17,4,"FIELD",5,2) NINE "DATA",160.17,4,"FIELD",5,3) L,BLANK "DATA",160.17,4,"FIELD",6,0) 1031^1^1031^PH Lung "DATA",160.17,4,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,704,"I") "DATA",160.17,4,"FIELD",6,2) NINE "DATA",160.17,4,"FIELD",6,3) L,BLANK "DATA",160.17,4,"FIELD",7,0) 1032^1^1032^PH Ovary "DATA",160.17,4,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,705,"I") "DATA",160.17,4,"FIELD",7,2) NINE "DATA",160.17,4,"FIELD",7,3) L,BLANK "DATA",160.17,4,"FIELD",8,0) 1033^1^1033^PH Ovarian carcinoma, peritoneal site "DATA",160.17,4,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,706,"I") "DATA",160.17,4,"FIELD",8,2) NINE "DATA",160.17,4,"FIELD",8,3) L,BLANK "DATA",160.17,4,"FIELD",9,0) 1034^1^1034^PH Prostate "DATA",160.17,4,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.17,4,"FIELD",9,2) NINE "DATA",160.17,4,"FIELD",9,3) L,BLANK "DATA",160.17,4,"FIELD",10,0) 1035^1^1035^PH Stomach "DATA",160.17,4,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,707,"I") "DATA",160.17,4,"FIELD",10,2) NINE "DATA",160.17,4,"FIELD",10,3) L,BLANK "DATA",160.17,4,"FIELD",11,0) 1036^1^1036^PH Thyroid "DATA",160.17,4,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,708,"I") "DATA",160.17,4,"FIELD",11,2) NINE "DATA",160.17,4,"FIELD",11,3) L,BLANK "DATA",160.17,4,"FIELD",12,0) 1037^1^1037^PH Uterus "DATA",160.17,4,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,709,"I") "DATA",160.17,4,"FIELD",12,2) NINE "DATA",160.17,4,"FIELD",12,3) L,BLANK "DATA",160.17,4,"FIELD",13,0) 1038^1^1038^PH Other "DATA",160.17,4,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.17,4,"FIELD",13,2) NINE "DATA",160.17,4,"FIELD",13,3) L,BLANK "DATA",160.17,4,"FIELD",14,0) 1039^1^1039^Previous TAH/BSO "DATA",160.17,4,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,710,"I") "DATA",160.17,4,"FIELD",14,2) NINE "DATA",160.17,4,"FIELD",14,3) L,BLANK "DATA",160.17,4,"FIELD",15,0) 1040^1^1040^Other Prior Cond. FAP "DATA",160.17,4,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,711,"I") "DATA",160.17,4,"FIELD",15,2) NINE "DATA",160.17,4,"FIELD",15,3) L,BLANK "DATA",160.17,4,"FIELD",16,0) 1041^1^1041^Other Prior Cond. HNPCC "DATA",160.17,4,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,712,"I") "DATA",160.17,4,"FIELD",16,2) NINE "DATA",160.17,4,"FIELD",16,3) L,BLANK "DATA",160.17,4,"FIELD",17,0) 1042^1^1042^Other Prior Cond. IBD "DATA",160.17,4,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,713,"I") "DATA",160.17,4,"FIELD",17,2) NINE "DATA",160.17,4,"FIELD",17,3) L,BLANK "DATA",160.17,4,"FIELD",18,0) 1043^1^1043^Other Prior Cond. Polyps "DATA",160.17,4,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,714,"I") "DATA",160.17,4,"FIELD",18,2) NINE "DATA",160.17,4,"FIELD",18,3) L,BLANK "DATA",160.17,4,"FIELD",19,0) 1044^2^1045^Polyps "DATA",160.17,4,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,715,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",19,2) NINE "DATA",160.17,4,"FIELD",19,3) L,ZERO "DATA",160.17,4,"FIELD",20,0) 1046^2^1047^Duration of Signs/Symp Anemia "DATA",160.17,4,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,716,"I") "DATA",160.17,4,"FIELD",20,2) NINE "DATA",160.17,4,"FIELD",20,3) L,ZERO "DATA",160.17,4,"FIELD",21,0) 1048^2^1049^Duration of Signs/Symp Bowel obstruction "DATA",160.17,4,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,717,"I") "DATA",160.17,4,"FIELD",21,2) NINE "DATA",160.17,4,"FIELD",21,3) L,ZERO "DATA",160.17,4,"FIELD",22,0) 1050^2^1051^Duration of Signs/Symp Change in bowel habit "DATA",160.17,4,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,718,"I") "DATA",160.17,4,"FIELD",22,2) NINE "DATA",160.17,4,"FIELD",22,3) L,ZERO "DATA",160.17,4,"FIELD",23,0) 1052^2^1053^Duration of Signs/Symp Emergency Pres-Obs "DATA",160.17,4,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,719,"I") "DATA",160.17,4,"FIELD",23,2) NINE "DATA",160.17,4,"FIELD",23,3) L,ZERO "DATA",160.17,4,"FIELD",24,0) 1054^2^1055^Duration of Signs/Symp Jaundice "DATA",160.17,4,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,720,"I") "DATA",160.17,4,"FIELD",24,2) NINE "DATA",160.17,4,"FIELD",24,3) L,ZERO "DATA",160.17,4,"FIELD",25,0) 1056^2^1057^Duration of Signs/Symp Malaise "DATA",160.17,4,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,721,"I") "DATA",160.17,4,"FIELD",25,2) NINE "DATA",160.17,4,"FIELD",25,3) L,ZERO "DATA",160.17,4,"FIELD",26,0) 1058^2^1059^Duration of Signs/Symp Occult Blood only in stool "DATA",160.17,4,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,722,"I") "DATA",160.17,4,"FIELD",26,2) NINE "DATA",160.17,4,"FIELD",26,3) L,ZERO "DATA",160.17,4,"FIELD",27,0) 1060^2^1061^Duration of Signs/Symp Pain (abdominal) "DATA",160.17,4,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,723,"I") "DATA",160.17,4,"FIELD",27,2) NINE "DATA",160.17,4,"FIELD",27,3) L,ZERO "DATA",160.17,4,"FIELD",28,0) 1062^2^1063^Duration of Signs/Symp Pain (pelvic) "DATA",160.17,4,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,724,"I") "DATA",160.17,4,"FIELD",28,2) NINE "DATA",160.17,4,"FIELD",28,3) L,ZERO "DATA",160.17,4,"FIELD",29,0) 1064^2^1065^Duration of Signs/Symp Rectal Bleeding (melana) "DATA",160.17,4,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,725,"I") "DATA",160.17,4,"FIELD",29,2) NINE "DATA",160.17,4,"FIELD",29,3) L,ZERO "DATA",160.17,4,"FIELD",30,0) 1066^2^1067^Duration of Signs/Symp Other "DATA",160.17,4,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,726,"I") "DATA",160.17,4,"FIELD",30,2) NINE "DATA",160.17,4,"FIELD",30,3) L,ZERO "DATA",160.17,4,"FIELD",31,0) 1068^1^1068^Inital Methods of Diag Endoscopic "DATA",160.17,4,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,727,"I") "DATA",160.17,4,"FIELD",31,2) NINE "DATA",160.17,4,"FIELD",31,3) L,BLANK "DATA",160.17,4,"FIELD",32,0) 1069^1^1069^Inital Methods of Diag Radiographic "DATA",160.17,4,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,728,"I") "DATA",160.17,4,"FIELD",32,2) NINE "DATA",160.17,4,"FIELD",32,3) L,BLANK "DATA",160.17,4,"FIELD",33,0) 1070^1^1070^Inital Methods of Diag Screening Digital Rectal Exam "DATA",160.17,4,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,729,"I") "DATA",160.17,4,"FIELD",33,2) NINE "DATA",160.17,4,"FIELD",33,3) L,BLANK "DATA",160.17,4,"FIELD",34,0) 1071^1^1071^Inital Methods of Diag Screening Physical Exam "DATA",160.17,4,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,730,"I") "DATA",160.17,4,"FIELD",34,2) NINE "DATA",160.17,4,"FIELD",34,3) L,BLANK "DATA",160.17,4,"FIELD",35,0) 1072^1^1072^Inital Methods of Diag Other "DATA",160.17,4,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,731,"I") "DATA",160.17,4,"FIELD",35,2) NINE "DATA",160.17,4,"FIELD",35,3) L,BLANK "DATA",160.17,4,"FIELD",36,0) 1073^1^1073^Precipitation Reason WHich Led to Eventual Diagnosis "DATA",160.17,4,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,732,"I") "DATA",160.17,4,"FIELD",36,2) NINE "DATA",160.17,4,"FIELD",36,3) L,BLANK "DATA",160.17,4,"FIELD",37,0) 1074^1^1074^Diag Eval Barium Enema, Double Contrast "DATA",160.17,4,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,733,"I") "DATA",160.17,4,"FIELD",37,2) NINE "DATA",160.17,4,"FIELD",37,3) L,BLANK "DATA",160.17,4,"FIELD",38,0) 1075^1^1075^Diag Eval Barium Enema, Single Contrast "DATA",160.17,4,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,734,"I") "DATA",160.17,4,"FIELD",38,2) NINE "DATA",160.17,4,"FIELD",38,3) L,BLANK "DATA",160.17,4,"FIELD",39,0) 1076^1^1076^Diag Eval Barium Enema, NOS "DATA",160.17,4,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,735,"I") "DATA",160.17,4,"FIELD",39,2) NINE "DATA",160.17,4,"FIELD",39,3) L,BLANK "DATA",160.17,4,"FIELD",40,0) 1077^1^1077^Diag Eval Biopsy of primary site "DATA",160.17,4,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,736,"I") "DATA",160.17,4,"FIELD",40,2) NINE "DATA",160.17,4,"FIELD",40,3) L,BLANK "DATA",160.17,4,"FIELD",41,0) 1078^1^1078^Diag Eval Biopsy of metastatic site "DATA",160.17,4,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,737,"I") "DATA",160.17,4,"FIELD",41,2) NINE "DATA",160.17,4,"FIELD",41,3) L,BLANK "DATA",160.17,4,"FIELD",42,0) 1079^1^1079^Diag Eval CT scan of chest "DATA",160.17,4,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,421,"I") "DATA",160.17,4,"FIELD",42,2) NINE "DATA",160.17,4,"FIELD",42,3) L,BLANK "DATA",160.17,4,"FIELD",43,0) 1080^1^1080^Diag Eval CT scan of liver "DATA",160.17,4,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,738,"I") "DATA",160.17,4,"FIELD",43,2) NINE "DATA",160.17,4,"FIELD",43,3) L,BLANK "DATA",160.17,4,"FIELD",44,0) 1081^1^1081^Diag Eval CT scan of primary site "DATA",160.17,4,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,739,"I") "DATA",160.17,4,"FIELD",44,2) NINE "DATA",160.17,4,"FIELD",44,3) L,BLANK "DATA",160.17,4,"FIELD",45,0) 1082^1^1082^Diag Eval CEA (preoperative) "DATA",160.17,4,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,740,"I") "DATA",160.17,4,"FIELD",45,2) NINE "DATA",160.17,4,"FIELD",45,3) L,BLANK "DATA",160.17,4,"FIELD",46,0) 1083^1^1083^Diag Eval Chest roentgenogram "DATA",160.17,4,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,741,"I") "DATA",160.17,4,"FIELD",46,2) NINE "DATA",160.17,4,"FIELD",46,3) L,BLANK "DATA",160.17,4,"FIELD",47,0) 1084^1^1084^Diag Eval Colonoscopy "DATA",160.17,4,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,742,"I") "DATA",160.17,4,"FIELD",47,2) NINE "DATA",160.17,4,"FIELD",47,3) L,BLANK "DATA",160.17,4,"FIELD",48,0) 1085^1^1085^Diag Eval Digital Rectal Exam "DATA",160.17,4,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,743,"I") "DATA",160.17,4,"FIELD",48,2) NINE "DATA",160.17,4,"FIELD",48,3) L,BLANK "DATA",160.17,4,"FIELD",49,0) 1086^1^1086^Diag Eval Flexible Sigmoidoscopy "DATA",160.17,4,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,744,"I") "DATA",160.17,4,"FIELD",49,2) NINE "DATA",160.17,4,"FIELD",49,3) L,BLANK "DATA",160.17,4,"FIELD",50,0) 1087^1^1087^Diag Eval Intravenous pyelogram (IVP) "DATA",160.17,4,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,745,"I") "DATA",160.17,4,"FIELD",50,2) NINE "DATA",160.17,4,"FIELD",50,3) L,BLANK "DATA",160.17,4,"FIELD",51,0) 1088^1^1088^Diag Eval Serum-Liver function test "DATA",160.17,4,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,746,"I") "DATA",160.17,4,"FIELD",51,2) NINE "DATA",160.17,4,"FIELD",51,3) L,BLANK "DATA",160.17,4,"FIELD",52,0) 1089^1^1089^Diag Eval MRI "DATA",160.17,4,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,747,"I") "DATA",160.17,4,"FIELD",52,2) NINE "DATA",160.17,4,"FIELD",52,3) L,BLANK "DATA",160.17,4,"FIELD",53,0) 1090^1^1090^Diag Eval Proctoscopy "DATA",160.17,4,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,748,"I") "DATA",160.17,4,"FIELD",53,2) NINE "DATA",160.17,4,"FIELD",53,3) L,BLANK "DATA",160.17,4,"FIELD",54,0) 1091^1^1091^Diag Eval Stool Guaiac(Occult Blood) "DATA",160.17,4,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,749,"I") "DATA",160.17,4,"FIELD",54,2) NINE "DATA",160.17,4,"FIELD",54,3) L,BLANK "DATA",160.17,4,"FIELD",55,0) 1092^1^1092^Diag Eval Ultrasound, Liver, Abdomen "DATA",160.17,4,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,750,"I") "DATA",160.17,4,"FIELD",55,2) NINE "DATA",160.17,4,"FIELD",55,3) L,BLANK "DATA",160.17,4,"FIELD",56,0) 1093^1^1093^Diag Eval Ultrasound, Endorectal "DATA",160.17,4,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,751,"I") "DATA",160.17,4,"FIELD",56,2) NINE "DATA",160.17,4,"FIELD",56,3) L,BLANK "DATA",160.17,4,"FIELD",57,0) 1094^1^1094^Diag Eval Other "DATA",160.17,4,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,430,"I") "DATA",160.17,4,"FIELD",57,2) NINE "DATA",160.17,4,"FIELD",57,3) L,BLANK "DATA",160.17,4,"FIELD",58,0) 1095^2^1096^Level of Tumor from Anal Verge bu Endoscopic Exam "DATA",160.17,4,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,752,"I") "DATA",160.17,4,"FIELD",58,2) NINE "DATA",160.17,4,"FIELD",58,3) L,ZERO "DATA",160.17,4,"FIELD",59,0) 1097^1^1097^Level of Rectal Tumor "DATA",160.17,4,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,753,"I") "DATA",160.17,4,"FIELD",59,2) NINE "DATA",160.17,4,"FIELD",59,3) L,BLANK "DATA",160.17,4,"FIELD",60,0) 1098^1^1098^Margin of Resection Proximal "DATA",160.17,4,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,754,"I") "DATA",160.17,4,"FIELD",60,2) NINE "DATA",160.17,4,"FIELD",60,3) L,BLANK "DATA",160.17,4,"FIELD",61,0) 1099^1^1099^Margin of Resection Distal "DATA",160.17,4,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,755,"I") "DATA",160.17,4,"FIELD",61,2) NINE "DATA",160.17,4,"FIELD",61,3) L,BLANK "DATA",160.17,4,"FIELD",62,0) 1100^1^1100^Margin of Resection Radial "DATA",160.17,4,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,756,"I") "DATA",160.17,4,"FIELD",62,2) NINE "DATA",160.17,4,"FIELD",62,3) L,BLANK "DATA",160.17,4,"FIELD",63,0) 1101^2^1102^Distance in mm to Closest Mucosal Margin "DATA",160.17,4,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,757,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",63,2) NINE "DATA",160.17,4,"FIELD",63,3) L,ZERO "DATA",160.17,4,"FIELD",64,0) 1103^2^1104^Distance in mm to Closest Radial Margin "DATA",160.17,4,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,758,"I") S:ACDANS=0 ACDANS=88 "DATA",160.17,4,"FIELD",64,2) NINE "DATA",160.17,4,"FIELD",64,3) L,ZERO "DATA",160.17,4,"FIELD",65,0) 1105^1^1105^Blood Vessel of Lymphatic Invasion "DATA",160.17,4,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,759,"I") "DATA",160.17,4,"FIELD",65,2) NINE "DATA",160.17,4,"FIELD",65,3) L,BLANK "DATA",160.17,4,"FIELD",66,0) 1106^1^1106^Extramural Venous Invasion "DATA",160.17,4,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,760,"I") "DATA",160.17,4,"FIELD",66,2) NINE "DATA",160.17,4,"FIELD",66,3) L,BLANK "DATA",160.17,4,"FIELD",67,0) 1107^1^1107^Prominent Lymphoid Infiltrate "DATA",160.17,4,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,761,"I") "DATA",160.17,4,"FIELD",67,2) NINE "DATA",160.17,4,"FIELD",67,3) L,BLANK "DATA",160.17,4,"FIELD",68,0) 1108^1^1108^Physician Providing Definitive Treatment "DATA",160.17,4,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,762,"I") "DATA",160.17,4,"FIELD",68,2) NINE "DATA",160.17,4,"FIELD",68,3) L,BLANK "DATA",160.17,4,"FIELD",69,0) 1109^2^1110^Mod/Add Surg Proc. for Primary Rec. "DATA",160.17,4,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,763,"I") "DATA",160.17,4,"FIELD",69,2) NINE "DATA",160.17,4,"FIELD",69,3) R,ZERO "DATA",160.17,4,"FIELD",70,0) 1111^1^1111^Laparoscopy Used During CA-Directed Surgery "DATA",160.17,4,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,764,"I") "DATA",160.17,4,"FIELD",70,2) NINE "DATA",160.17,4,"FIELD",70,3) L,BLANK "DATA",160.17,4,"FIELD",71,0) 1112^1^1112^Method of Anastomosis "DATA",160.17,4,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,765,"I") "DATA",160.17,4,"FIELD",71,2) NINE "DATA",160.17,4,"FIELD",71,3) L,BLANK "DATA",160.17,4,"FIELD",72,0) 1113^3^1115^Distance of Anastomosis from Dentate "DATA",160.17,4,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,766,"I") "DATA",160.17,4,"FIELD",72,2) NINE "DATA",160.17,4,"FIELD",72,3) L,ZERO "DATA",160.17,4,"FIELD",73,0) 1116^1^1116^Other Surgery Colostomy "DATA",160.17,4,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,767,"I") "DATA",160.17,4,"FIELD",73,2) NINE "DATA",160.17,4,"FIELD",73,3) L,BLANK "DATA",160.17,4,"FIELD",74,0) 1117^1^1117^Other Surgery Oophorectomy "DATA",160.17,4,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,768,"I") "DATA",160.17,4,"FIELD",74,2) NINE "DATA",160.17,4,"FIELD",74,3) L,BLANK "DATA",160.17,4,"FIELD",75,0) 1118^1^1118^Pathology Status "DATA",160.17,4,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,769,"I") "DATA",160.17,4,"FIELD",75,2) NINE "DATA",160.17,4,"FIELD",75,3) L,BLANK "DATA",160.17,4,"FIELD",76,0) 1119^1^1119^Complications after 1st RX Abdominal infection "DATA",160.17,4,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,770,"I") "DATA",160.17,4,"FIELD",76,2) NINE "DATA",160.17,4,"FIELD",76,3) L,BLANK "DATA",160.17,4,"FIELD",77,0) 1120^1^1120^Complications after 1st RX Abscess "DATA",160.17,4,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,771,"I") "DATA",160.17,4,"FIELD",77,2) NINE "DATA",160.17,4,"FIELD",77,3) L,BLANK "DATA",160.17,4,"FIELD",78,0) 1121^1^1121^Complications after 1st RX Admission for Neutronenia "DATA",160.17,4,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,772,"I") "DATA",160.17,4,"FIELD",78,2) NINE "DATA",160.17,4,"FIELD",78,3) L,BLANK "DATA",160.17,4,"FIELD",79,0) 1122^1^1122^Complications after 1st RX Anastomotic Dehiscence "DATA",160.17,4,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,773,"I") "DATA",160.17,4,"FIELD",79,2) NINE "DATA",160.17,4,"FIELD",79,3) L,BLANK "DATA",160.17,4,"FIELD",80,0) 1123^1^1123^Complications after 1st RX Bleeding/hematoma "DATA",160.17,4,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,437,"I") "DATA",160.17,4,"FIELD",80,2) NINE "DATA",160.17,4,"FIELD",80,3) L,BLANK "DATA",160.17,4,"FIELD",81,0) 1124^1^1124^Complications after 1st RX Dehvdration "DATA",160.17,4,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,774,"I") "DATA",160.17,4,"FIELD",81,2) NINE "DATA",160.17,4,"FIELD",81,3) L,BLANK "DATA",160.17,4,"FIELD",82,0) 1125^1^1125^Complications after 1st RX Diarrhea "DATA",160.17,4,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,775,"I") "DATA",160.17,4,"FIELD",82,2) NINE "DATA",160.17,4,"FIELD",82,3) L,BLANK "DATA",160.17,4,"FIELD",83,0) 1126^1^1126^Complications after 1st RX Early bowel obstruction "DATA",160.17,4,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,776,"I") "DATA",160.17,4,"FIELD",83,2) NINE "DATA",160.17,4,"FIELD",83,3) L,BLANK "DATA",160.17,4,"FIELD",84,0) 1127^1^1127^Complications after 1st RX Perineal infection "DATA",160.17,4,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,777,"I") "DATA",160.17,4,"FIELD",84,2) NINE "DATA",160.17,4,"FIELD",84,3) L,BLANK "DATA",160.17,4,"FIELD",85,0) 1128^1^1128^Complications after 1st RX Pneumonia "DATA",160.17,4,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,778,"I") "DATA",160.17,4,"FIELD",85,2) NINE "DATA",160.17,4,"FIELD",85,3) L,BLANK "DATA",160.17,4,"FIELD",86,0) 1129^1^1129^Complications after 1st RX Proctits "DATA",160.17,4,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,779,"I") "DATA",160.17,4,"FIELD",86,2) NINE "DATA",160.17,4,"FIELD",86,3) L,BLANK "DATA",160.17,4,"FIELD",87,0) 1130^1^1130^Complications after 1st RX Pulmonary embolism "DATA",160.17,4,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,780,"I") "DATA",160.17,4,"FIELD",87,2) NINE "DATA",160.17,4,"FIELD",87,3) L,BLANK "DATA",160.17,4,"FIELD",88,0) 1131^1^1131^Complications after 1st RX Radiation enteritis "DATA",160.17,4,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,781,"I") "DATA",160.17,4,"FIELD",88,2) NINE "DATA",160.17,4,"FIELD",88,3) L,BLANK "DATA",160.17,4,"FIELD",89,0) 1132^1^1132^Complications after 1st RX Stoma complication "DATA",160.17,4,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,782,"I") "DATA",160.17,4,"FIELD",89,2) NINE "DATA",160.17,4,"FIELD",89,3) L,BLANK "DATA",160.17,4,"FIELD",90,0) 1133^1^1133^Complications after 1st RX Urinary tract infection "DATA",160.17,4,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,783,"I") "DATA",160.17,4,"FIELD",90,2) NINE "DATA",160.17,4,"FIELD",90,3) L,BLANK "DATA",160.17,4,"FIELD",91,0) 1134^1^1134^Postoperative Death within 30 Days "DATA",160.17,4,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,441,"I") "DATA",160.17,4,"FIELD",91,2) NINE "DATA",160.17,4,"FIELD",91,3) L,BLANK "DATA",160.17,4,"FIELD",92,0) 1135^8^1142^Date Radiation Ended "DATA",160.17,4,"FIELD",92,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,361,"I")) "DATA",160.17,4,"FIELD",92,2) NINE "DATA",160.17,4,"FIELD",92,3) L,BLANK "DATA",160.17,4,"FIELD",93,0) 1143^1^1143^Endocavitary Radiation(ECRT) "DATA",160.17,4,"FIELD",93,1) S ACDANS=$$GET1~DIQ(165.5,IEN,784,"I") "DATA",160.17,4,"FIELD",93,2) NINE "DATA",160.17,4,"FIELD",93,3) L,BLANK "DATA",160.17,4,"FIELD",94,0) 1144^1^1144^Intra-Operative Radiation Therapy (IORT) "DATA",160.17,4,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,785,"I") "DATA",160.17,4,"FIELD",94,2) NINE "DATA",160.17,4,"FIELD",94,3) L,BLANK "DATA",160.17,4,"FIELD",95,0) 1145^5^1149^Primary Tumor Rad Dose (cGy) "DATA",160.17,4,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,786,"I") "DATA",160.17,4,"FIELD",95,2) NINE "DATA",160.17,4,"FIELD",95,3) L,ZERO "DATA",160.17,4,"FIELD",96,0) 1150^2^1151^Number of Radiation RX "DATA",160.17,4,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,787,"I") "DATA",160.17,4,"FIELD",96,2) NINE "DATA",160.17,4,"FIELD",96,3) L,ZERO "DATA",160.17,4,"FIELD",97,0) 1152^1^1152^Adjuvant Chemo. with Conco. External Beam Radiation "DATA",160.17,4,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,788,"I") "DATA",160.17,4,"FIELD",97,2) NINE "DATA",160.17,4,"FIELD",97,3) L,BLANK "DATA",160.17,4,"FIELD",98,0) 1153^1^1153^Adjuvant Therapy 5 FU "DATA",160.17,4,"FIELD",98,1) S ACDANS=$$GET1~DIQ(165.5,IEN,789,"I") "DATA",160.17,4,"FIELD",98,2) NINE "DATA",160.17,4,"FIELD",98,3) L,BLANK "DATA",160.17,4,"FIELD",99,0) 1154^1^1154^Adjuvant Therapy Leucovorin "DATA",160.17,4,"FIELD",99,1) S ACDANS=$$GET1~DIQ(165.5,IEN,790,"I") "DATA",160.17,4,"FIELD",99,2) NINE "DATA",160.17,4,"FIELD",99,3) L,BLANK "DATA",160.17,4,"FIELD",100,0) 1155^1^1155^Adjuvant Therapy Levamisole "DATA",160.17,4,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,791,"I") "DATA",160.17,4,"FIELD",100,2) NINE "DATA",160.17,4,"FIELD",100,3) L,BLANK "DATA",160.17,4,"FIELD",101,0) 1156^1^1156^Adjuvant Therapy CPT 11 "DATA",160.17,4,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,792,"I") "DATA",160.17,4,"FIELD",101,2) NINE "DATA",160.17,4,"FIELD",101,3) L,BLANK "DATA",160.17,4,"FIELD",102,0) 1157^1^1157^Adjuvant Therapy Taxol "DATA",160.17,4,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.17,4,"FIELD",102,2) NINE "DATA",160.17,4,"FIELD",102,3) L,BLANK "DATA",160.17,4,"FIELD",103,0) 1158^1^1158^Adjuvant Therapy Other "DATA",160.17,4,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,793,"I") "DATA",160.17,4,"FIELD",103,2) NINE "DATA",160.17,4,"FIELD",103,3) L,BLANK "DATA",160.17,4,"FIELD",104,0) 1159^1^1159^Duration of Adjuvant Therapy "DATA",160.17,4,"FIELD",104,1) S ACDANS=$$GET1~DIQ(165.5,IEN,794,"I") "DATA",160.17,4,"FIELD",104,2) NINE "DATA",160.17,4,"FIELD",104,3) L,BLANK "DATA",160.17,4,"FIELD",105,0) 1160^1^1160^Completed Duration of Therapy "DATA",160.17,4,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,795,"I") "DATA",160.17,4,"FIELD",105,2) NINE "DATA",160.17,4,"FIELD",105,3) L,BLANK "DATA",160.17,4,"FIELD",106,0) 1161^1^1161^Were Other Referrals Made Nutritional Consultation "DATA",160.17,4,"FIELD",106,1) S ACDANS=$$GET1~DIQ(165.5,IEN,796,"I") "DATA",160.17,4,"FIELD",106,2) NINE "DATA",160.17,4,"FIELD",106,3) L,BLANK "DATA",160.17,4,"FIELD",107,0) 1162^1^1162^Were Other Referrals Made Occupational therapy "DATA",160.17,4,"FIELD",107,1) S ACDANS=$$GET1~DIQ(165.5,IEN,797,"I") "DATA",160.17,4,"FIELD",107,2) NINE "DATA",160.17,4,"FIELD",107,3) L,BLANK "DATA",160.17,4,"FIELD",108,0) 1163^1^1163^Were Other Referrals Made Physical therapy "DATA",160.17,4,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,563,"I") "DATA",160.17,4,"FIELD",108,2) NINE "DATA",160.17,4,"FIELD",108,3) L,BLANK "DATA",160.17,4,"FIELD",109,0) 1164^1^1164^Were Other Referrals Made Ostomy consultation "DATA",160.17,4,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,798,"I") "DATA",160.17,4,"FIELD",109,2) NINE "DATA",160.17,4,"FIELD",109,3) L,BLANK "DATA",160.17,4,"FIELD",110,0) 1165^1^1165^Were Other Referrals Made Psychosocial "DATA",160.17,4,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,799,"I") "DATA",160.17,4,"FIELD",110,2) NINE "DATA",160.17,4,"FIELD",110,3) L,BLANK "DATA",160.17,4,"FIELD",111,0) 1166^2^1167^PB Completed By "DATA",160.17,4,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,4,"FIELD",111,2) BLANK "DATA",160.17,4,"FIELD",111,3) L,BLANK "DATA",160.17,4,"FIELD",112,0) 1168^2^1169^PB Reviewed by Cancer Committee "DATA",160.17,4,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,4,"FIELD",112,2) BLANK "DATA",160.17,4,"FIELD",112,3) L,BLANK "DATA",160.17,4,"FIELD",113,0) 1170^354^1523^PB Reserved "DATA",160.17,4,"FIELD",113,1) S ACDANS="" "DATA",160.17,4,"FIELD",113,2) BLANK "DATA",160.17,4,"FIELD",113,3) L,BLANK "DATA",160.17,5,0) PCE NON-HODGKIN'S LYMPHOMA "DATA",160.17,5,"FIELD",0) ^160.171I^92^92 "DATA",160.17,5,"FIELD",1,0) 1026^1^1026^Family History of Leukemia "DATA",160.17,5,"FIELD",1,1) S ACDANS=$$GET1~DIQ(165.5,IEN,800,"I") "DATA",160.17,5,"FIELD",1,2) NINE "DATA",160.17,5,"FIELD",1,3) L,BLANK "DATA",160.17,5,"FIELD",2,0) 1027^1^1027^Family History of Non-Hodgkin's Lymphoma "DATA",160.17,5,"FIELD",2,1) S ACDANS=$$GET1~DIQ(165.5,IEN,801,"I") "DATA",160.17,5,"FIELD",2,2) NINE "DATA",160.17,5,"FIELD",2,3) L,BLANK "DATA",160.17,5,"FIELD",3,0) 1028^1^1028^Family History of Hodgkin's Lymphoma "DATA",160.17,5,"FIELD",3,1) S ACDANS=$$GET1~DIQ(165.5,IEN,802,"I") "DATA",160.17,5,"FIELD",3,2) NINE "DATA",160.17,5,"FIELD",3,3) L,BLANK "DATA",160.17,5,"FIELD",4,0) 1029^1^1029^Family History of Other Cancer "DATA",160.17,5,"FIELD",4,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.17,5,"FIELD",4,2) NINE "DATA",160.17,5,"FIELD",4,3) L,BLANK "DATA",160.17,5,"FIELD",5,0) 1030^3^1032^PH 1st primary site "DATA",160.17,5,"FIELD",5,1) S ACDANS=$$GET1~DIQ(165.5,IEN,803,"I") S:ACDANS'="" ACDANS=$E(ACDANS,3,5) "DATA",160.17,5,"FIELD",5,2) NINE "DATA",160.17,5,"FIELD",5,3) L,ZERO "DATA",160.17,5,"FIELD",6,0) 1033^5^1037^PH 1st primary histology "DATA",160.17,5,"FIELD",6,1) S ACDANS=$$GET1~DIQ(165.5,IEN,804,"I") "DATA",160.17,5,"FIELD",6,2) NINE "DATA",160.17,5,"FIELD",6,3) L,ZERO "DATA",160.17,5,"FIELD",7,0) 1038^3^1040^PH 2nd primary site "DATA",160.17,5,"FIELD",7,1) S ACDANS=$$GET1~DIQ(165.5,IEN,805,"I") S:ACDANS'="" ACDANS=$E(ACDANS,3,5) "DATA",160.17,5,"FIELD",7,2) NINE "DATA",160.17,5,"FIELD",7,3) L,ZERO "DATA",160.17,5,"FIELD",8,0) 1041^5^1045^PH 2nd primary Histology "DATA",160.17,5,"FIELD",8,1) S ACDANS=$$GET1~DIQ(165.5,IEN,806,"I") "DATA",160.17,5,"FIELD",8,2) NINE "DATA",160.17,5,"FIELD",8,3) L,ZERO "DATA",160.17,5,"FIELD",9,0) 1046^1^1046^Pre-Existing Conditions Organ transplant "DATA",160.17,5,"FIELD",9,1) S ACDANS=$$GET1~DIQ(165.5,IEN,807,"I") "DATA",160.17,5,"FIELD",9,2) NINE "DATA",160.17,5,"FIELD",9,3) L,BLANK "DATA",160.17,5,"FIELD",10,0) 1047^1^1047^Pre-Existing Conditions HIV positive "DATA",160.17,5,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,808,"I") "DATA",160.17,5,"FIELD",10,2) NINE "DATA",160.17,5,"FIELD",10,3) L,BLANK "DATA",160.17,5,"FIELD",11,0) 1048^1^1048^Pre-Existing Conditions Crohn's disease "DATA",160.17,5,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,809,"I") "DATA",160.17,5,"FIELD",11,2) NINE "DATA",160.17,5,"FIELD",11,3) L,BLANK "DATA",160.17,5,"FIELD",12,0) 1049^1^1049^Pre-Existing Conditions Hashimoto's thyroiditis "DATA",160.17,5,"FIELD",12,1) S ACDANS=$$GET1~DIQ(165.5,IEN,810,"I") "DATA",160.17,5,"FIELD",12,2) NINE "DATA",160.17,5,"FIELD",12,3) L,BLANK "DATA",160.17,5,"FIELD",13,0) 1050^1^1050^Pre-Existing Conditions Systemic lupus erythematosus "DATA",160.17,5,"FIELD",13,1) S ACDANS=$$GET1~DIQ(165.5,IEN,811,"I") "DATA",160.17,5,"FIELD",13,2) NINE "DATA",160.17,5,"FIELD",13,3) L,BLANK "DATA",160.17,5,"FIELD",14,0) 1051^1^1051^Pre-Existing Conditions Rheumatoid arthritis incl. Sjogren's syndrome "DATA",160.17,5,"FIELD",14,1) S ACDANS=$$GET1~DIQ(165.5,IEN,812,"I") "DATA",160.17,5,"FIELD",14,2) NINE "DATA",160.17,5,"FIELD",14,3) L,BLANK "DATA",160.17,5,"FIELD",15,0) 1052^1^1052^Pre-Existing Conditions Pneumocystis carinii "DATA",160.17,5,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,813,"I") "DATA",160.17,5,"FIELD",15,2) NINE "DATA",160.17,5,"FIELD",15,3) L,BLANK "DATA",160.17,5,"FIELD",16,0) 1053^1^1053^Pre-Existing Conditions CMV infection "DATA",160.17,5,"FIELD",16,1) S ACDANS=$$GET1~DIQ(165.5,IEN,814,"I") "DATA",160.17,5,"FIELD",16,2) NINE "DATA",160.17,5,"FIELD",16,3) L,BLANK "DATA",160.17,5,"FIELD",17,0) 1054^1^1054^Pre-Existing Conditions Tuberculosis "DATA",160.17,5,"FIELD",17,1) S ACDANS=$$GET1~DIQ(165.5,IEN,815,"I") "DATA",160.17,5,"FIELD",17,2) NINE "DATA",160.17,5,"FIELD",17,3) L,BLANK "DATA",160.17,5,"FIELD",18,0) 1055^1^1055^Pre-Existing Conditions Mycobacterium Avium "DATA",160.17,5,"FIELD",18,1) S ACDANS=$$GET1~DIQ(165.5,IEN,816,"I") "DATA",160.17,5,"FIELD",18,2) NINE "DATA",160.17,5,"FIELD",18,3) L,BLANK "DATA",160.17,5,"FIELD",19,0) 1056^1^1056^Pre-Existing Conditions Other parasitic infections "DATA",160.17,5,"FIELD",19,1) S ACDANS=$$GET1~DIQ(165.5,IEN,817,"I") "DATA",160.17,5,"FIELD",19,2) NINE "DATA",160.17,5,"FIELD",19,3) L,BLANK "DATA",160.17,5,"FIELD",20,0) 1057^1^1057^Pre-Existing Conditions Other congenital diseases "DATA",160.17,5,"FIELD",20,1) S ACDANS=$$GET1~DIQ(165.5,IEN,818,"I") "DATA",160.17,5,"FIELD",20,2) NINE "DATA",160.17,5,"FIELD",20,3) L,BLANK "DATA",160.17,5,"FIELD",21,0) 1058^1^1058^Pre-Existing Conditions Opportunistic diseases (w/in last 2 years) "DATA",160.17,5,"FIELD",21,1) S ACDANS=$$GET1~DIQ(165.5,IEN,819,"I") "DATA",160.17,5,"FIELD",21,2) NINE "DATA",160.17,5,"FIELD",21,3) L,BLANK "DATA",160.17,5,"FIELD",22,0) 1059^1^1059^Previous Chemotherapy "DATA",160.17,5,"FIELD",22,1) S ACDANS=$$GET1~DIQ(165.5,IEN,820,"I") "DATA",160.17,5,"FIELD",22,2) NINE "DATA",160.17,5,"FIELD",22,3) L,BLANK "DATA",160.17,5,"FIELD",23,0) 1060^1^1060^Previous Radiation Therapy "DATA",160.17,5,"FIELD",23,1) S ACDANS=$$GET1~DIQ(165.5,IEN,821,"I") "DATA",160.17,5,"FIELD",23,2) NINE "DATA",160.17,5,"FIELD",23,3) L,BLANK "DATA",160.17,5,"FIELD",24,0) 1061^1^1061^AIDS Risk Category of HIV Positive Patients "DATA",160.17,5,"FIELD",24,1) S ACDANS=$$GET1~DIQ(165.5,IEN,822,"I") "DATA",160.17,5,"FIELD",24,2) NINE "DATA",160.17,5,"FIELD",24,3) L,BLANK "DATA",160.17,5,"FIELD",25,0) 1062^1^1062^DX Workup Chest x-ray "DATA",160.17,5,"FIELD",25,1) S ACDANS=$$GET1~DIQ(165.5,IEN,505,"I") "DATA",160.17,5,"FIELD",25,2) NINE "DATA",160.17,5,"FIELD",25,3) L,BLANK "DATA",160.17,5,"FIELD",26,0) 1063^1^1063^DX Workup Skeletal x-ray "DATA",160.17,5,"FIELD",26,1) S ACDANS=$$GET1~DIQ(165.5,IEN,512,"I") "DATA",160.17,5,"FIELD",26,2) NINE "DATA",160.17,5,"FIELD",26,3) L,BLANK "DATA",160.17,5,"FIELD",27,0) 1064^1^1064^DX Workup CT scan of brain "DATA",160.17,5,"FIELD",27,1) S ACDANS=$$GET1~DIQ(165.5,IEN,823,"I") "DATA",160.17,5,"FIELD",27,2) NINE "DATA",160.17,5,"FIELD",27,3) L,BLANK "DATA",160.17,5,"FIELD",28,0) 1065^1^1065^DX Workup CT scan of chest "DATA",160.17,5,"FIELD",28,1) S ACDANS=$$GET1~DIQ(165.5,IEN,506,"I") "DATA",160.17,5,"FIELD",28,2) NINE "DATA",160.17,5,"FIELD",28,3) L,BLANK "DATA",160.17,5,"FIELD",29,0) 1066^1^1066^DX Workup CT scan of abdomen/pelvis "DATA",160.17,5,"FIELD",29,1) S ACDANS=$$GET1~DIQ(165.5,IEN,824,"I") "DATA",160.17,5,"FIELD",29,2) NINE "DATA",160.17,5,"FIELD",29,3) L,BLANK "DATA",160.17,5,"FIELD",30,0) 1067^1^1067^DX Workup MRI of brain "DATA",160.17,5,"FIELD",30,1) S ACDANS=$$GET1~DIQ(165.5,IEN,825,"I") "DATA",160.17,5,"FIELD",30,2) NINE "DATA",160.17,5,"FIELD",30,3) L,BLANK "DATA",160.17,5,"FIELD",31,0) 1068^1^1068^DX Workup MRI of chest "DATA",160.17,5,"FIELD",31,1) S ACDANS=$$GET1~DIQ(165.5,IEN,826,"I") "DATA",160.17,5,"FIELD",31,2) NINE "DATA",160.17,5,"FIELD",31,3) L,BLANK "DATA",160.17,5,"FIELD",32,0) 1069^1^1069^DX Workup MRI of abdomen/pelvis "DATA",160.17,5,"FIELD",32,1) S ACDANS=$$GET1~DIQ(165.5,IEN,827,"I") "DATA",160.17,5,"FIELD",32,2) NINE "DATA",160.17,5,"FIELD",32,3) L,BLANK "DATA",160.17,5,"FIELD",33,0) 1070^1^1070^DX Workup Bone scan "DATA",160.17,5,"FIELD",33,1) S ACDANS=$$GET1~DIQ(165.5,IEN,504,"I") "DATA",160.17,5,"FIELD",33,2) NINE "DATA",160.17,5,"FIELD",33,3) L,BLANK "DATA",160.17,5,"FIELD",34,0) 1071^1^1071^DX Workup Gallium Scan "DATA",160.17,5,"FIELD",34,1) S ACDANS=$$GET1~DIQ(165.5,IEN,828,"I") "DATA",160.17,5,"FIELD",34,2) NINE "DATA",160.17,5,"FIELD",34,3) L,BLANK "DATA",160.17,5,"FIELD",35,0) 1072^1^1072^DX Workup PET scan "DATA",160.17,5,"FIELD",35,1) S ACDANS=$$GET1~DIQ(165.5,IEN,829,"I") "DATA",160.17,5,"FIELD",35,2) NINE "DATA",160.17,5,"FIELD",35,3) L,BLANK "DATA",160.17,5,"FIELD",36,0) 1073^1^1073^DX Workup Lumbar puncture "DATA",160.17,5,"FIELD",36,1) S ACDANS=$$GET1~DIQ(165.5,IEN,830,"I") "DATA",160.17,5,"FIELD",36,2) NINE "DATA",160.17,5,"FIELD",36,3) L,BLANK "DATA",160.17,5,"FIELD",37,0) 1074^1^1074^Lab Test Results Hemoglobin/hematocrit "DATA",160.17,5,"FIELD",37,1) S ACDANS=$$GET1~DIQ(165.5,IEN,831,"I") "DATA",160.17,5,"FIELD",37,2) NINE "DATA",160.17,5,"FIELD",37,3) L,BLANK "DATA",160.17,5,"FIELD",38,0) 1075^1^1075^Lab Test Results White count "DATA",160.17,5,"FIELD",38,1) S ACDANS=$$GET1~DIQ(165.5,IEN,832,"I") "DATA",160.17,5,"FIELD",38,2) NINE "DATA",160.17,5,"FIELD",38,3) L,BLANK "DATA",160.17,5,"FIELD",39,0) 1076^1^1076^Lab Test Results Platelet count "DATA",160.17,5,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,833,"I") "DATA",160.17,5,"FIELD",39,2) NINE "DATA",160.17,5,"FIELD",39,3) L,BLANK "DATA",160.17,5,"FIELD",40,0) 1077^1^1077^Lab Test Results Lactic dehydrogenase (LDH) "DATA",160.17,5,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,834,"I") "DATA",160.17,5,"FIELD",40,2) NINE "DATA",160.17,5,"FIELD",40,3) L,BLANK "DATA",160.17,5,"FIELD",41,0) 1078^1^1078^Lab Test Results Liver function studies "DATA",160.17,5,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,835,"I") "DATA",160.17,5,"FIELD",41,2) NINE "DATA",160.17,5,"FIELD",41,3) L,BLANK "DATA",160.17,5,"FIELD",42,0) 1079^1^1079^Lab Test Results Total protein/albumin "DATA",160.17,5,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,836,"I") "DATA",160.17,5,"FIELD",42,2) NINE "DATA",160.17,5,"FIELD",42,3) L,BLANK "DATA",160.17,5,"FIELD",43,0) 1080^1^1080^Additional Test Tumor Surface Marker/immunohistochemistry "DATA",160.17,5,"FIELD",43,1) S ACDANS=$$GET1~DIQ(165.5,IEN,516,"I") "DATA",160.17,5,"FIELD",43,2) NINE "DATA",160.17,5,"FIELD",43,3) L,BLANK "DATA",160.17,5,"FIELD",44,0) 1081^1^1081^Additional Test Cytogenic testing "DATA",160.17,5,"FIELD",44,1) S ACDANS=$$GET1~DIQ(165.5,IEN,514,"I") "DATA",160.17,5,"FIELD",44,2) NINE "DATA",160.17,5,"FIELD",44,3) L,BLANK "DATA",160.17,5,"FIELD",45,0) 1082^1^1082^Additional Test Gene rearrangements "DATA",160.17,5,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,837,"I") "DATA",160.17,5,"FIELD",45,2) NINE "DATA",160.17,5,"FIELD",45,3) L,BLANK "DATA",160.17,5,"FIELD",46,0) 1083^1^1083^Review of Path. at another Inst. by another Path. "DATA",160.17,5,"FIELD",46,1) S ACDANS=$$GET1~DIQ(165.5,IEN,838,"I") "DATA",160.17,5,"FIELD",46,2) NINE "DATA",160.17,5,"FIELD",46,3) L,BLANK "DATA",160.17,5,"FIELD",47,0) 1084^1^1084^DX Biopsies Lymph node "DATA",160.17,5,"FIELD",47,1) S ACDANS=$$GET1~DIQ(165.5,IEN,839,"I") "DATA",160.17,5,"FIELD",47,2) NINE "DATA",160.17,5,"FIELD",47,3) L,BLANK "DATA",160.17,5,"FIELD",48,0) 1085^1^1085^DX Biopsies Bone marrow "DATA",160.17,5,"FIELD",48,1) S ACDANS=$$GET1~DIQ(165.5,IEN,840,"I") "DATA",160.17,5,"FIELD",48,2) NINE "DATA",160.17,5,"FIELD",48,3) L,BLANK "DATA",160.17,5,"FIELD",49,0) 1086^1^1086^DX Biopsies CSF cytology "DATA",160.17,5,"FIELD",49,1) S ACDANS=$$GET1~DIQ(165.5,IEN,841,"I") "DATA",160.17,5,"FIELD",49,2) NINE "DATA",160.17,5,"FIELD",49,3) L,BLANK "DATA",160.17,5,"FIELD",50,0) 1087^1^1087^DX Biopsies Other site "DATA",160.17,5,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,842,"I") "DATA",160.17,5,"FIELD",50,2) NINE "DATA",160.17,5,"FIELD",50,3) L,BLANK "DATA",160.17,5,"FIELD",51,0) 1088^1^1088^Systemic Symptoms "DATA",160.17,5,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,843,"I") "DATA",160.17,5,"FIELD",51,2) NINE "DATA",160.17,5,"FIELD",51,3) L,BLANK "DATA",160.17,5,"FIELD",52,0) 1089^1^1089^DX Testing Specifically related to HIV Disease CD4 Count "DATA",160.17,5,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,844,"I") "DATA",160.17,5,"FIELD",52,2) NINE "DATA",160.17,5,"FIELD",52,3) L,BLANK "DATA",160.17,5,"FIELD",53,0) 1090^1^1090^DX Testing Specifically related to HIV Disease HIV Viral Loads "DATA",160.17,5,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,845,"I") "DATA",160.17,5,"FIELD",53,2) NINE "DATA",160.17,5,"FIELD",53,3) L,BLANK "DATA",160.17,5,"FIELD",54,0) 1091^1^1091^Specific Histologic Information "DATA",160.17,5,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,846,"I") "DATA",160.17,5,"FIELD",54,2) NINE "DATA",160.17,5,"FIELD",54,3) L,BLANK "DATA",160.17,5,"FIELD",55,0) 1092^1^1092^Cell type of Lymphoma "DATA",160.17,5,"FIELD",55,1) S ACDANS=$$GET1~DIQ(165.5,IEN,847,"I") "DATA",160.17,5,"FIELD",55,2) NINE "DATA",160.17,5,"FIELD",55,3) L,BLANK "DATA",160.17,5,"FIELD",56,0) 1093^1^1093^Patient Status at DX "DATA",160.17,5,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,848,"I") "DATA",160.17,5,"FIELD",56,2) NINE "DATA",160.17,5,"FIELD",56,3) L,BLANK "DATA",160.17,5,"FIELD",57,0) 1094^3^1096^Extranodal Site 1 "DATA",160.17,5,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,852,"I") "DATA",160.17,5,"FIELD",57,2) NINE "DATA",160.17,5,"FIELD",57,3) L,BLANK "DATA",160.17,5,"FIELD",58,0) 1097^3^1099^Extranodal Site 2 "DATA",160.17,5,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,853,"I") "DATA",160.17,5,"FIELD",58,2) NINE "DATA",160.17,5,"FIELD",58,3) L,BLANK "DATA",160.17,5,"FIELD",59,0) 1100^3^1102^Extranodal Site 3 "DATA",160.17,5,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,854,"I") "DATA",160.17,5,"FIELD",59,2) NINE "DATA",160.17,5,"FIELD",59,3) L,BLANK "DATA",160.17,5,"FIELD",60,0) 1103^3^1105^Site of add. CA-Dir. Surgery to an Extranodal Site "DATA",160.17,5,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,855,"I") "DATA",160.17,5,"FIELD",60,2) NINE "DATA",160.17,5,"FIELD",60,3) L,BLANK "DATA",160.17,5,"FIELD",61,0) 1106^2^1107^Surgical Proc. for the Add. CA-Dir. Surgery to Extranodal Site "DATA",160.17,5,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,856,"I") "DATA",160.17,5,"FIELD",61,2) NINE "DATA",160.17,5,"FIELD",61,3) L,BLANK "DATA",160.17,5,"FIELD",62,0) 1108^1^1108^Irradiated Fields Lymph nodes above the diaphragm "DATA",160.17,5,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,857,"I") "DATA",160.17,5,"FIELD",62,2) NINE "DATA",160.17,5,"FIELD",62,3) L,BLANK "DATA",160.17,5,"FIELD",63,0) 1109^1^1109^Irradiated Fields Lymph nodes below the diaphragm "DATA",160.17,5,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,858,"I") "DATA",160.17,5,"FIELD",63,2) NINE "DATA",160.17,5,"FIELD",63,3) L,BLANK "DATA",160.17,5,"FIELD",64,0) 1110^1^1110^Irradiated Fields Brain "DATA",160.17,5,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,859,"I") "DATA",160.17,5,"FIELD",64,2) NINE "DATA",160.17,5,"FIELD",64,3) L,BLANK "DATA",160.17,5,"FIELD",65,0) 1111^1^1111^Irradiated Fields Other extranodal site(s) "DATA",160.17,5,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,860,"I") "DATA",160.17,5,"FIELD",65,2) NINE "DATA",160.17,5,"FIELD",65,3) L,BLANK "DATA",160.17,5,"FIELD",66,0) 1112^1^1112^Irradiated Fields Total body "DATA",160.17,5,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,861,"I") "DATA",160.17,5,"FIELD",66,2) NINE "DATA",160.17,5,"FIELD",66,3) L,BLANK "DATA",160.17,5,"FIELD",67,0) 1113^1^1113^Rad./Chemo. Sequence "DATA",160.17,5,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,862,"I") "DATA",160.17,5,"FIELD",67,2) NINE "DATA",160.17,5,"FIELD",67,3) L,BLANK "DATA",160.17,5,"FIELD",68,0) 1114^1^1114^Protocol "DATA",160.17,5,"FIELD",68,1) S ACDANS=$$GET1~DIQ(165.5,IEN,863,"I") "DATA",160.17,5,"FIELD",68,2) NINE "DATA",160.17,5,"FIELD",68,3) L,BLANK "DATA",160.17,5,"FIELD",69,0) 1115^1^1115^Systemic Chemo. Administration "DATA",160.17,5,"FIELD",69,1) S ACDANS=$$GET1~DIQ(165.5,IEN,864,"I") "DATA",160.17,5,"FIELD",69,2) NINE "DATA",160.17,5,"FIELD",69,3) L,BLANK "DATA",160.17,5,"FIELD",70,0) 1116^8^1123^Date Systemic Chemo. Started "DATA",160.17,5,"FIELD",70,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,865,"I")) "DATA",160.17,5,"FIELD",70,2) NINE "DATA",160.17,5,"FIELD",70,3) L,BLANK "DATA",160.17,5,"FIELD",71,0) 1124^2^1125^No. of planned Cycles of Systemic Chemo. "DATA",160.17,5,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,866,"I") "DATA",160.17,5,"FIELD",71,2) NINE "DATA",160.17,5,"FIELD",71,3) L,BLANK "DATA",160.17,5,"FIELD",72,0) 1126^1^1126^Single Agent Chemo. Chorambucil "DATA",160.17,5,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,867,"I") "DATA",160.17,5,"FIELD",72,2) NINE "DATA",160.17,5,"FIELD",72,3) L,BLANK "DATA",160.17,5,"FIELD",73,0) 1127^1^1127^Single Agent Chemo. Cyclophosphamide "DATA",160.17,5,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,868,"I") "DATA",160.17,5,"FIELD",73,2) NINE "DATA",160.17,5,"FIELD",73,3) L,BLANK "DATA",160.17,5,"FIELD",74,0) 1128^1^1128^Single Agent Chemo. Doxorubicin "DATA",160.17,5,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,869,"I") "DATA",160.17,5,"FIELD",74,2) NINE "DATA",160.17,5,"FIELD",74,3) L,BLANK "DATA",160.17,5,"FIELD",75,0) 1129^1^1129^Single Agent Chemo. Fludarabine "DATA",160.17,5,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,870,"I") "DATA",160.17,5,"FIELD",75,2) NINE "DATA",160.17,5,"FIELD",75,3) L,BLANK "DATA",160.17,5,"FIELD",76,0) 1130^1^1130^Combination Chemo. CHOP "DATA",160.17,5,"FIELD",76,1) S ACDANS=$$GET1~DIQ(165.5,IEN,871,"I") "DATA",160.17,5,"FIELD",76,2) NINE "DATA",160.17,5,"FIELD",76,3) L,BLANK "DATA",160.17,5,"FIELD",77,0) 1131^1^1131^Combination Chemo. CVP "DATA",160.17,5,"FIELD",77,1) S ACDANS=$$GET1~DIQ(165.5,IEN,872,"I") "DATA",160.17,5,"FIELD",77,2) NINE "DATA",160.17,5,"FIELD",77,3) L,BLANK "DATA",160.17,5,"FIELD",78,0) 1132^1^1132^Combination Chemo. COMLA "DATA",160.17,5,"FIELD",78,1) S ACDANS=$$GET1~DIQ(165.5,IEN,873,"I") "DATA",160.17,5,"FIELD",78,2) NINE "DATA",160.17,5,"FIELD",78,3) L,BLANK "DATA",160.17,5,"FIELD",79,0) 1133^1^1133^Combination Chemo. MACOP-B "DATA",160.17,5,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,874,"I") "DATA",160.17,5,"FIELD",79,2) NINE "DATA",160.17,5,"FIELD",79,3) L,BLANK "DATA",160.17,5,"FIELD",80,0) 1134^1^1134^Combination Chemo. M-BACOD "DATA",160.17,5,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,875,"I") "DATA",160.17,5,"FIELD",80,2) NINE "DATA",160.17,5,"FIELD",80,3) L,BLANK "DATA",160.17,5,"FIELD",81,0) 1135^1^1135^Combination Chemo. PRO-MACE-Cyta BOM "DATA",160.17,5,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,876,"I") "DATA",160.17,5,"FIELD",81,2) NINE "DATA",160.17,5,"FIELD",81,3) L,BLANK "DATA",160.17,5,"FIELD",82,0) 1136^1^1136^Combination Chemo. Other "DATA",160.17,5,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,877,"I") "DATA",160.17,5,"FIELD",82,2) NINE "DATA",160.17,5,"FIELD",82,3) L,BLANK "DATA",160.17,5,"FIELD",83,0) 1137^1^1137^High Dose System Treatment with Stem Cell Rescue "DATA",160.17,5,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,878,"I") "DATA",160.17,5,"FIELD",83,2) NINE "DATA",160.17,5,"FIELD",83,3) L,BLANK "DATA",160.17,5,"FIELD",84,0) 1138^1^1138^Intrathecal Chemo. Administration "DATA",160.17,5,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,879,"I") "DATA",160.17,5,"FIELD",84,2) NINE "DATA",160.17,5,"FIELD",84,3) L,BLANK "DATA",160.17,5,"FIELD",85,0) 1139^1^1139^Purpose of Intrathecal Chemo. "DATA",160.17,5,"FIELD",85,1) S ACDANS=$$GET1~DIQ(165.5,IEN,880,"I") "DATA",160.17,5,"FIELD",85,2) NINE "DATA",160.17,5,"FIELD",85,3) L,BLANK "DATA",160.17,5,"FIELD",86,0) 1140^1^1140^Immunotherapy IL-2 "DATA",160.17,5,"FIELD",86,1) S ACDANS=$$GET1~DIQ(165.5,IEN,881,"I") "DATA",160.17,5,"FIELD",86,2) NINE "DATA",160.17,5,"FIELD",86,3) L,BLANK "DATA",160.17,5,"FIELD",87,0) 1141^1^1141^Immunotherapy Interferon "DATA",160.17,5,"FIELD",87,1) S ACDANS=$$GET1~DIQ(165.5,IEN,882,"I") "DATA",160.17,5,"FIELD",87,2) NINE "DATA",160.17,5,"FIELD",87,3) L,BLANK "DATA",160.17,5,"FIELD",88,0) 1142^1^1142^Immunotherapy Monoclonal Antibodies "DATA",160.17,5,"FIELD",88,1) S ACDANS=$$GET1~DIQ(165.5,IEN,883,"I") "DATA",160.17,5,"FIELD",88,2) NINE "DATA",160.17,5,"FIELD",88,3) L,BLANK "DATA",160.17,5,"FIELD",89,0) 1143^1^1143^Immunotherapy Vaccine Therapy "DATA",160.17,5,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,884,"I") "DATA",160.17,5,"FIELD",89,2) NINE "DATA",160.17,5,"FIELD",89,3) L,BLANK "DATA",160.17,5,"FIELD",90,0) 1144^2^1145^Completed By "DATA",160.17,5,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.17,5,"FIELD",90,2) BLANK "DATA",160.17,5,"FIELD",90,3) L,BLANK "DATA",160.17,5,"FIELD",91,0) 1146^2^1147^Reviewed by Cancer Committee "DATA",160.17,5,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.17,5,"FIELD",91,2) BLANK "DATA",160.17,5,"FIELD",91,3) L,BLANK "DATA",160.17,5,"FIELD",92,0) 1148^376^1523^Reserved "DATA",160.17,5,"FIELD",92,1) S ACDANS="" "DATA",160.17,5,"FIELD",92,2) BLANK "DATA",160.17,5,"FIELD",92,3) L,BLANK "DATA",160.17,100,0) PCE BLANK RECORD "DATA",160.17,100,"FIELD",0) ^160.171I^1^1 "DATA",160.17,100,"FIELD",1,0) 1026^498^1523^Blank "DATA",160.17,100,"FIELD",1,1) S ACDANS="" "DATA",160.17,100,"FIELD",1,2) BLANK "DATA",160.17,100,"FIELD",1,3) L,BLANK "FIA",160.16) ONCOLOGY DATA EXTRACT FORMAT "FIA",160.16,0) ^ONCO(160.16, "FIA",160.16,0,0) 160.16 "FIA",160.16,0,1) y^y^f^^n^^y^o^n "FIA",160.16,0,10) "FIA",160.16,0,11) "FIA",160.16,0,"RLRO") "FIA",160.16,0,"VR") 2.11^ONC "FIA",160.16,160.16) 0 "FIA",160.16,160.161) 0 "FIA",160.16,160.162) 0 "FIA",160.17) ONCOLOGY PCE EXTRACT FORMAT "FIA",160.17,0) ^ONCO(160.17, "FIA",160.17,0,0) 160.17 "FIA",160.17,0,1) y^y^f^^n^^y^o^n "FIA",160.17,0,10) "FIA",160.17,0,11) "FIA",160.17,0,"RLRO") "FIA",160.17,0,"VR") 2.11^ONC "FIA",160.17,160.17) 0 "FIA",160.17,160.171) 0 "FIA",160.17,160.172) 0 "INI") EN1^ONCPRE21 "MBREQ") 0 "PKG",14,-1) 1^1 "PKG",14,0) ONCOLOGY^ONCO^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) 21 "PRE") ONCENV21 "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","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") 5 "RTN","ONCACDU1") 0^4^B23999295 "RTN","ONCACDU1",1,0) ONCACDU1 ;HIRMFO/WAA - UTILITY ROUTINE #1;5/9/97 10:14 "RTN","ONCACDU1",2,0) ;;2.11;Oncology;**12,14,16,20,21**;Mar 07, 1995 "RTN","ONCACDU1",3,0) DATE(FMDT) ; Translate date to needed format "RTN","ONCACDU1",4,0) N DATE "RTN","ONCACDU1",5,0) S DATE="" "RTN","ONCACDU1",6,0) I FMDT'="" D "RTN","ONCACDU1",7,0) . N MM,DD,YYYY,YYYMMDD,MMDDCCYY "RTN","ONCACDU1",8,0) . S YYYMMDD=FMDT "RTN","ONCACDU1",9,0) . I YYYMMDD="0000000" S DATE="00000000" Q ; 2/2/98 WAA "RTN","ONCACDU1",10,0) . I YYYMMDD="9999999" S DATE="99999999" Q ; 2/2/98 WAA "RTN","ONCACDU1",11,0) . D "RTN","ONCACDU1",12,0) . . S YYYY=($E(YYYMMDD,1,3)+1700) "RTN","ONCACDU1",13,0) . . I YYYY=1900,$E(YYYMMDD,4,7)="0000" S YYYY="0000" "RTN","ONCACDU1",14,0) . . Q "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 "RTN","ONCACDU1",20,0) Q DATE "RTN","ONCACDU1",21,0) SSN(DFN) ; This function will return the patient ssn for a given record "RTN","ONCACDU1",22,0) N VADM,VA "RTN","ONCACDU1",23,0) D DEM^VADPT "RTN","ONCACDU1",24,0) S ACDSSN="000"_$E(VADM(1),1)_VA("BID") "RTN","ONCACDU1",25,0) Q ACDSSN "RTN","ONCACDU1",26,0) RI(IEN) ; This function will return the registry ID. "RTN","ONCACDU1",27,0) N ACDRI "RTN","ONCACDU1",28,0) S ACDRI=STAT1 "RTN","ONCACDU1",29,0) I ACDRI'="" S ACDRI=6_ACDRI_6 "RTN","ONCACDU1",30,0) Q ACDRI "RTN","ONCACDU1",31,0) Q "RTN","ONCACDU1",32,0) CNTY(IEN) ; County Code at dx "RTN","ONCACDU1",33,0) N ACDCNTY "RTN","ONCACDU1",34,0) S ACDCNTY=$$GET1^DIQ(165.5,IEN,10,"I") "RTN","ONCACDU1",35,0) I ACDCNTY'="" D "RTN","ONCACDU1",36,0) .S ACDCNTY=$$GET1^DIQ(5.1,ACDCNTY,2,"I") "RTN","ONCACDU1",37,0) .S ACDCNTY=$S((ACDCNTY>0):ACDCNTY,1:999) "RTN","ONCACDU1",38,0) .S ACDCNTY="T"_$E(000000,1,3-$L(ACDCNTY))_ACDCNTY "RTN","ONCACDU1",39,0) .Q "RTN","ONCACDU1",40,0) Q $E(ACDCNTY,2,4) "RTN","ONCACDU1",41,0) AGEDX(IEN) ; Get age at Diagnosis "RTN","ONCACDU1",42,0) N ACDAGE,D0,X "RTN","ONCACDU1",43,0) S D0=IEN "RTN","ONCACDU1",44,0) D AGE^ONCOCOM S ACDAGE=$S(X=""!(X<0)!(X>999):"",1:X) "RTN","ONCACDU1",45,0) Q ACDAGE "RTN","ONCACDU1",46,0) OCCUP(ACD160) ; Get Occupation "RTN","ONCACDU1",47,0) N X,OCCUP "RTN","ONCACDU1",48,0) S X="" "RTN","ONCACDU1",49,0) S OCCUP=$O(^ONCO(160,ACD160,7,0)) "RTN","ONCACDU1",50,0) I OCCUP'<1 D "RTN","ONCACDU1",51,0) .N OCP "RTN","ONCACDU1",52,0) .S OCP=$P($G(^ONCO(160,ACD160,7,OCCUP,0)),U) "RTN","ONCACDU1",53,0) .Q:OCP<1 "RTN","ONCACDU1",54,0) .S X=$$GET1^DIQ(61.6,OCP,.01,"I") "RTN","ONCACDU1",55,0) .Q "RTN","ONCACDU1",56,0) Q X "RTN","ONCACDU1",57,0) IEN160(IEN) ; Get the IEN number for and entry from 165.5 to 160 "RTN","ONCACDU1",58,0) N Y,Z "RTN","ONCACDU1",59,0) S Y="" "RTN","ONCACDU1",60,0) S Z=$G(^ONCO(165.5,IEN,0)) "RTN","ONCACDU1",61,0) S Y=$P(Z,U,2) "RTN","ONCACDU1",62,0) I $G(^ONCO(160,Y,0))="" S Y="" "RTN","ONCACDU1",63,0) Q Y "RTN","ONCACDU1",64,0) BLAD(IEN) ; This will determine if bladder "RTN","ONCACDU1",65,0) N X,Y,Z,FLG "RTN","ONCACDU1",66,0) S FLG=0 D "RTN","ONCACDU1",67,0) .S X=$$GET1^DIQ(165.5,IEN,20,"I") Q:X="" "RTN","ONCACDU1",68,0) .S Y=$$GET1^DIQ(164,X,1,"E") Q:Y="" "RTN","ONCACDU1",69,0) .I $E(Y,1)'="C" Q "RTN","ONCACDU1",70,0) .S Z=$E(Y,2,$L(Y)) "RTN","ONCACDU1",71,0) .I Z<67.0!(Z>68.0) Q "RTN","ONCACDU1",72,0) .S FLG=1 "RTN","ONCACDU1",73,0) .Q "RTN","ONCACDU1",74,0) Q FLG "RTN","ONCACDU1",75,0) LRDS(IEN) ; Local/Regional/Distant Stage "RTN","ONCACDU1",76,0) N X,ANS "RTN","ONCACDU1",77,0) S ANS=$$GET1^DIQ(165.5,IEN,35,"I") "RTN","ONCACDU1",78,0) S X=$S(ANS=3:2,ANS=4:2,ANS=5:2,ANS=7:3,1:ANS) "RTN","ONCACDU1",79,0) Q X "RTN","ONCACDU1",80,0) TOB(IEN) ; Patient Tobacco History "RTN","ONCACDU1",81,0) N X,AASTOB "RTN","ONCACDU1",82,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",83,0) S X=$G(^ONCO(160,ACD160,8)) "RTN","ONCACDU1",84,0) S AASTOB=$S($P(X,U,2)="Y":"Y",$P(X,U,2)="N":0,$P(X,U,2)="U":9,1:" ") "RTN","ONCACDU1",85,0) I AASTOB="Y" D ; Tobacco "RTN","ONCACDU1",86,0) . N X S X="" "RTN","ONCACDU1",87,0) . S X=$O(^ONCO(160,ACD160,5,X),-1) "RTN","ONCACDU1",88,0) . I X'<1 I $G(^ONCO(160,ACD160,5,X,0))'="" D "RTN","ONCACDU1",89,0) . . N Y S Y=^ONCO(160,ACD160,5,X,0) "RTN","ONCACDU1",90,0) . . I $P(Y,U,3)'="" S AASTOB=5 Q ; Previous use "RTN","ONCACDU1",91,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",92,0) . . Q "RTN","ONCACDU1",93,0) . I AASTOB="Y" S AASTOB=9 "RTN","ONCACDU1",94,0) . Q "RTN","ONCACDU1",95,0) Q AASTOB "RTN","ONCACDU1",96,0) ALC(IEN) ; Alcohol History "RTN","ONCACDU1",97,0) N X,AASALCO "RTN","ONCACDU1",98,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",99,0) S X=$G(^ONCO(160,ACD160,8)) "RTN","ONCACDU1",100,0) S AASALCO=$S($P(X,U,3)="Y":"Y",$P(X,U,3)="N":0,$P(X,U,3)="U":9,1:" ") "RTN","ONCACDU1",101,0) I AASALCO="Y" D ; Alcohol "RTN","ONCACDU1",102,0) . N X S X="" "RTN","ONCACDU1",103,0) . S X=$O(^ONCO(160,ACD160,6,X),-1) "RTN","ONCACDU1",104,0) . I X'<1 I $G(^ONCO(160,ACD160,6,X,0))'="" D "RTN","ONCACDU1",105,0) . . N Y S Y=^ONCO(160,ACD160,6,X,0) "RTN","ONCACDU1",106,0) . . I $P(Y,U,4)'="" S AASALCO=2 Q ; Previous use "RTN","ONCACDU1",107,0) . . S AASALCO=1 "RTN","ONCACDU1",108,0) . . Q "RTN","ONCACDU1",109,0) . I AASALCO="Y" S AASALCO=9 "RTN","ONCACDU1",110,0) . Q "RTN","ONCACDU1",111,0) Q AASALCO "RTN","ONCACDU1",112,0) HIST(IEN,FLAG) ;Get patient Histology "RTN","ONCACDU1",113,0) N HIST "RTN","ONCACDU1",114,0) S FLAG=$G(FLAG,0) "RTN","ONCACDU1",115,0) S HIST=$$GET1^DIQ(165.5,IEN,221,"I") "RTN","ONCACDU1",116,0) I HIST="" S HIST=$$GET1^DIQ(165.5,IEN,22,"I") "RTN","ONCACDU1",117,0) S:$L(HIST)<5 HIST=$E(ZERO,1,5-$L(HIST)) "RTN","ONCACDU1",118,0) I 'FLAG S HIST=$E(HIST,1,4) "RTN","ONCACDU1",119,0) E S HIST=$E(HIST,5) "RTN","ONCACDU1",120,0) K FLAG "RTN","ONCACDU1",121,0) Q HIST "RTN","ONCACDU1",122,0) BEHAV(IEN) ;Get Patient Behavor "RTN","ONCACDU1",123,0) N BEHAV "RTN","ONCACDU1",124,0) S BEHAV=$$HIST(IEN,1) "RTN","ONCACDU1",125,0) Q BEHAV "RTN","ONCACDU1",126,0) OLDDATE(X) ;CONVERT A DATE FROM A FILE MANAGER DATE TO A EXTERNAL FORMAT "RTN","ONCACDU1",127,0) N DATE "RTN","ONCACDU1",128,0) I X="" S DATE=" " "RTN","ONCACDU1",129,0) E D "RTN","ONCACDU1",130,0) . S DATE=$E(X,4,5)_$E(X,6,7)_(1700+$E(X,1,3)) "RTN","ONCACDU1",131,0) . I $E(DATE,1,4)="9999" S DATE="99999999" "RTN","ONCACDU1",132,0) . I $E(DATE,1,4)="0000" S DATE="00000000" "RTN","ONCACDU1",133,0) . Q "RTN","ONCACDU1",134,0) Q DATE "RTN","ONCACDU1",135,0) SG(IEN,TYPE) ; Stage Group "RTN","ONCACDU1",136,0) N GS "RTN","ONCACDU1",137,0) S GS="" "RTN","ONCACDU1",138,0) I TYPE="" Q GS "RTN","ONCACDU1",139,0) I TYPE="P" S GS=$$GET1^DIQ(165.5,IEN,88,"I") "RTN","ONCACDU1",140,0) I TYPE="O" S GS=$$GET1^DIQ(165.5,IEN,117,"I") "RTN","ONCACDU1",141,0) I TYPE="C" S GS=$$GET1^DIQ(165.5,IEN,38,"I") "RTN","ONCACDU1",142,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^"[("^"_GS_"^"):GS,GS["0":"0",1:"9") "RTN","ONCACDU1",143,0) I GS="9" S GS="99" "RTN","ONCACDU1",144,0) Q GS "RTN","ONCACDU1",145,0) ALIAS(ACD160) ; get the patient alias "RTN","ONCACDU1",146,0) N X,DO,ONCOX,XD0,XD1 "RTN","ONCACDU1",147,0) S X="" "RTN","ONCACDU1",148,0) S D0=ACD160 "RTN","ONCACDU1",149,0) I $D(^ONCO(160,D0,0)) D "RTN","ONCACDU1",150,0) .D SETUP^ONCOES "RTN","ONCACDU1",151,0) .Q:$P(ONCOX,";",2)'="DPT(" S XD0=$P(ONCOX,";") "RTN","ONCACDU1",152,0) .S XD1=0 F S XD1=$O(^DPT(XD0,.01,XD1)) Q:XD1'>0 S X=$P(^(XD1,0),U) Q "RTN","ONCACDU1",153,0) .Q "RTN","ONCACDU1",154,0) Q X "RTN","ONCACDU1",155,0) TNM(IEN) ; TNM Coding System "RTN","ONCACDU1",156,0) N CNT,DOD,OUT "RTN","ONCACDU1",157,0) S CNT=0 "RTN","ONCACDU1",158,0) S DOD=$$GET1^DIQ(165.5,IEN,3,"I") "RTN","ONCACDU1",159,0) S:DOD'="" DOD=($E(DOD,1,3)+1700) "RTN","ONCACDU1",160,0) S CNT=$P($G(^ONCO(160.1,+$O(^ONCO(160.1,0)),5)),U) "RTN","ONCACDU1",161,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",162,0) Q OUT "RTN","ONCACDU1",163,0) RXCOD(IEN) ; RX Coding System "RTN","ONCACDU1",164,0) N CNT,DOD,OUT "RTN","ONCACDU1",165,0) S CNT=0 "RTN","ONCACDU1",166,0) S DOD=$$GET1^DIQ(165.5,IEN,3,"I") "RTN","ONCACDU1",167,0) S:DOD'="" DOD=($E(DOD,1,3)+1700) "RTN","ONCACDU1",168,0) ;S CNT=$P($G(^ONCO(160.1,+$O(^ONCO(160.1,0)),5)),U) "RTN","ONCACDU1",169,0) S OUT=$S(DOD<1998:3,1:4) "RTN","ONCACDU1",170,0) ;DOD<1988:2,DOD<1992:3,DOD=1992:$S(+CNT=92:4,1:3),DOD<1998:4,1:5) "RTN","ONCACDU1",171,0) Q OUT "RTN","ONCACDU2") 0^5^B28581609 "RTN","ONCACDU2",1,0) ONCACDU2 ;HIRMFO/WAA - UTILITY ROUTINE #1;6/11/97 10:14 "RTN","ONCACDU2",2,0) ;;2.11;Oncology;**12,18,20,21**;Mar 07, 1995 "RTN","ONCACDU2",3,0) ; "RTN","ONCACDU2",4,0) HOSP1(PROC,IEN) ; Check to see if the site is brest or prostate "RTN","ONCACDU2",5,0) ; Inputs: "RTN","ONCACDU2",6,0) ; PROC = Process Number to be processed "RTN","ONCACDU2",7,0) ; IEN = Record within File 160.16 "RTN","ONCACDU2",8,0) ; Output; "RTN","ONCACDU2",9,0) ; X data for field. "RTN","ONCACDU2",10,0) ; "RTN","ONCACDU2",11,0) N X,SITE "RTN","ONCACDU2",12,0) S X=0 "RTN","ONCACDU2",13,0) S SITE=$$GET1^DIQ(165.5,IEN,.01,"I") "RTN","ONCACDU2",14,0) S SITE=$$GET1^DIQ(164.2,SITE,.01,"I") "RTN","ONCACDU2",15,0) I SITE="BREAST" D "RTN","ONCACDU2",16,0) .I PROC=1 S X=$$GET1^DIQ(165.5,IEN,141,"I") "RTN","ONCACDU2",17,0) .I PROC=2 S X=$$GET1^DIQ(165.5,IEN,142,"I") "RTN","ONCACDU2",18,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,143,"I") "RTN","ONCACDU2",19,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,144,"I") "RTN","ONCACDU2",20,0) .Q "RTN","ONCACDU2",21,0) I SITE="PROSTATE" D "RTN","ONCACDU2",22,0) .I PROC=1 S X=$$GET1^DIQ(165.5,IEN,141,"I") "RTN","ONCACDU2",23,0) .I PROC=2 S X=$$GET1^DIQ(165.5,IEN,142,"I") "RTN","ONCACDU2",24,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,145,"I") "RTN","ONCACDU2",25,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,146,"I") "RTN","ONCACDU2",26,0) .Q "RTN","ONCACDU2",27,0) Q X "RTN","ONCACDU2",28,0) VAFLD(ACDANS) ; Convert data to valid external format "RTN","ONCACDU2",29,0) ; Input: "RTN","ONCACDU2",30,0) ; ACDANS: "RTN","ONCACDU2",31,0) ; "Y"=1 "RTN","ONCACDU2",32,0) ; "N"=0 "RTN","ONCACDU2",33,0) ; "U"=9 "RTN","ONCACDU2",34,0) ; Null=Null "RTN","ONCACDU2",35,0) I ACDANS="N" S ACDANS=0 "RTN","ONCACDU2",36,0) I ACDANS="Y" S ACDANS=1 "RTN","ONCACDU2",37,0) I ACDANS="U" S ACDANS=9 "RTN","ONCACDU2",38,0) Q ACDANS "RTN","ONCACDU2",39,0) ; "RTN","ONCACDU2",40,0) STATE() ; This function will give the current ACD version and patch "RTN","ONCACDU2",41,0) ;; OUTPUT: "RTN","ONCACDU2",42,0) ;; X="VAV5.1P20" "RTN","ONCACDU2",43,0) N X,VERSION "RTN","ONCACDU2",44,0) S VERSION=$P($G(^ONCO(160.16,EXTRACT,0))," ",4) "RTN","ONCACDU2",45,0) S X="VA"_VERSION_"P20" "RTN","ONCACDU2",46,0) Q X "RTN","ONCACDU2",47,0) BDATE(ACD160) ; Get birthdate "RTN","ONCACDU2",48,0) N X,DAT "RTN","ONCACDU2",49,0) S X="" "RTN","ONCACDU2",50,0) S DAT=$$GET1^DIQ(160,ACD160,3,"E") "RTN","ONCACDU2",51,0) I DAT'="" D "RTN","ONCACDU2",52,0) .N Y,M,D "RTN","ONCACDU2",53,0) .S Y=($P(DAT," ",3)-1700) "RTN","ONCACDU2",54,0) .Q:Y<0 "RTN","ONCACDU2",55,0) .S D=$P($P(DAT," ",2),",") "RTN","ONCACDU2",56,0) .S M=$P(DAT," ") "RTN","ONCACDU2",57,0) .S M=$S(M="JAN":"01",M="FEB":"02",M="MAR":"03",M="APR":"04",M="MAY":"05",M="JUN":"06",M="JUL":"07",M="AUG":"08",M="SEP":"09",M="OCT":10,M="NOV":11,M="DEC":12,1:"") "RTN","ONCACDU2",58,0) .S X=Y_M_D "RTN","ONCACDU2",59,0) .Q "RTN","ONCACDU2",60,0) Q X "RTN","ONCACDU2",61,0) WORD(IEN,NODE,LEN) ; Get word processing data "RTN","ONCACDU2",62,0) N X "RTN","ONCACDU2",63,0) S X="" "RTN","ONCACDU2",64,0) I $D(^ONCO(165.5,IEN,NODE,0)) D "RTN","ONCACDU2",65,0) .N CNT,LINE "RTN","ONCACDU2",66,0) .S CNT=0 "RTN","ONCACDU2",67,0) .S LINE="" "RTN","ONCACDU2",68,0) .F S CNT=$O(^ONCO(165.5,IEN,NODE,CNT)) Q:CNT<1 D Q:($L(LINE)>LEN) "RTN","ONCACDU2",69,0) ..Q:'$D(^ONCO(165.5,IEN,NODE,CNT,0)) "RTN","ONCACDU2",70,0) ..S LINE=LINE_^ONCO(165.5,IEN,NODE,CNT,0)_" " "RTN","ONCACDU2",71,0) ..Q "RTN","ONCACDU2",72,0) .S X=LINE "RTN","ONCACDU2",73,0) .Q "RTN","ONCACDU2",74,0) Q X "RTN","ONCACDU2",75,0) STAGE(IEN,TYPE) ; Get the stage. this will ony get a stage of "Y" "RTN","ONCACDU2",76,0) N LOC,X "RTN","ONCACDU2",77,0) S X="" "RTN","ONCACDU2",78,0) S LOC=$S(TYPE="P":89.1,TYPE="C":37.1,1:"") "RTN","ONCACDU2",79,0) I TYPE'="" D "RTN","ONCACDU2",80,0) .N STRING "RTN","ONCACDU2",81,0) .S STRING=$$GET1^DIQ(165.5,IEN,LOC,"E") "RTN","ONCACDU2",82,0) .I "y"'[$P(STRING," ") Q "RTN","ONCACDU2",83,0) .S X=4 "RTN","ONCACDU2",84,0) .I "m"'[$P(STRING," ") Q "RTN","ONCACDU2",85,0) .S X=6 "RTN","ONCACDU2",86,0) .Q "RTN","ONCACDU2",87,0) Q X "RTN","ONCACDU2",88,0) CCOUNTY(ACD160) ;Get County Code for Current County "RTN","ONCACDU2",89,0) N ZIP,X "RTN","ONCACDU2",90,0) S X="" "RTN","ONCACDU2",91,0) S ZIP=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",92,0) I ZIP'="" D "RTN","ONCACDU2",93,0) .N ZIP1,CODE,COUNTY "RTN","ONCACDU2",94,0) .S ZIP1=$P($P(ZIP,",",2)," ",3) S:$L(ZIP1)>5 ZIP1=$E(ZIP1,1,5) "RTN","ONCACDU2",95,0) .Q:$L(ZIP1)<5 "RTN","ONCACDU2",96,0) .S CODE=$O(^VIC(5.11,"C",ZIP1,"")) "RTN","ONCACDU2",97,0) .Q:CODE<1 "RTN","ONCACDU2",98,0) .S COUNTY=$$GET1^DIQ(5.11,CODE,2,"I") "RTN","ONCACDU2",99,0) .Q:COUNTY="" "RTN","ONCACDU2",100,0) .S X=$$GET1^DIQ(5.1,COUNTY,2,"I") "RTN","ONCACDU2",101,0) .Q "RTN","ONCACDU2",102,0) Q X "RTN","ONCACDU2",103,0) SUB(IEN,CNT,FIELD) ;Subsequent Therapies "RTN","ONCACDU2",104,0) N X "RTN","ONCACDU2",105,0) S CNT=CNT-1 "RTN","ONCACDU2",106,0) S X="" "RTN","ONCACDU2",107,0) I $O(^ONCO(165.5,IEN,4,0)) D "RTN","ONCACDU2",108,0) .N IENS,SUB,SUBFLD,ENTRY "RTN","ONCACDU2",109,0) .S IENS=CNT_","_IEN "RTN","ONCACDU2",110,0) .S ENTRY=$$GET1^DIQ(165.51,IENS,FIELD,"I") I ENTRY="" S X="" Q "RTN","ONCACDU2",111,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",112,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=ENTRY Q "RTN","ONCACDU2",113,0) .S SUBFLD=$S(FIELD=33:"RR5",FIELD=35:"SC5",FIELD=36:"SO5",FIELD=.04:"SPS",1:"") I SUBFLD="" S X="" Q "RTN","ONCACDU2",114,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",115,0) .Q "RTN","ONCACDU2",116,0) Q X "RTN","ONCACDU2",117,0) SUB164(IEN,SUBFLD,ENTRY) ; Get values out of file 164 "RTN","ONCACDU2",118,0) N X,TOP1,TOP2 "RTN","ONCACDU2",119,0) S X="" "RTN","ONCACDU2",120,0) S TOP1=$$GET1^DIQ(165.5,IEN,20,"I") D:TOP1'="" "RTN","ONCACDU2",121,0) .S TOP2=$$GET1^DIQ(164,TOP1,107,"I") D:TOP2'="" "RTN","ONCACDU2",122,0) ..S X=$P($G(^ONCO(164,TOP2,SUBFLD,ENTRY,0)),U,2) "RTN","ONCACDU2",123,0) ..Q "RTN","ONCACDU2",124,0) .Q "RTN","ONCACDU2",125,0) Q X "RTN","ONCACDU2",126,0) RXPRI(IEN,FIELD,SUBFLD) ;This is to collect primary "RTN","ONCACDU2",127,0) N X,ENTRY "RTN","ONCACDU2",128,0) S X="" "RTN","ONCACDU2",129,0) S ENTRY=$$GET1^DIQ(165.5,IEN,FIELD,"I") D:ENTRY'="" "RTN","ONCACDU2",130,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=ENTRY Q "RTN","ONCACDU2",131,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",132,0) .Q "RTN","ONCACDU2",133,0) Q X "RTN","ONCACDU2",134,0) LAST(ACD160) ; Last contact information "RTN","ONCACDU2",135,0) N X "RTN","ONCACDU2",136,0) S X="A" "RTN","ONCACDU2",137,0) S X=$O(^ONCO(160,ACD160,"F",X),-1) "RTN","ONCACDU2",138,0) I X'>0 S X="" "RTN","ONCACDU2",139,0) Q X "RTN","ONCACDU2",140,0) FNODE(ACD160,FIELD) ;Get F Node data "RTN","ONCACDU2",141,0) N FNODE,X "RTN","ONCACDU2",142,0) S FNODE=$$LAST(ACD160),X="" "RTN","ONCACDU2",143,0) I FNODE'="" D "RTN","ONCACDU2",144,0) .N IENS "RTN","ONCACDU2",145,0) .S IENS=FNODE_","_ACD160_"," "RTN","ONCACDU2",146,0) .S X=$$GET1^DIQ(160.04,IENS,FIELD,"I") "RTN","ONCACDU2",147,0) .Q "RTN","ONCACDU2",148,0) Q X "RTN","ONCACDU2",149,0) CS(IEN) ;Cancer Status "RTN","ONCACDU2",150,0) N X,Z,FNODE "RTN","ONCACDU2",151,0) S FNODE=0 "RTN","ONCACDU2",152,0) S X="" "RTN","ONCACDU2",153,0) S FNODE=$O(^ONCO(165.5,IEN,"TS",FNODE)) "RTN","ONCACDU2",154,0) I FNODE>0 D "RTN","ONCACDU2",155,0) .N IENS,PT "RTN","ONCACDU2",156,0) .S FNODE=$O(^ONCO(165.5,IEN,"TS"," "),-1) "RTN","ONCACDU2",157,0) .Q:FNODE<1 "RTN","ONCACDU2",158,0) .S IENS=FNODE_","_IEN_"," "RTN","ONCACDU2",159,0) .S PT=$$GET1^DIQ(165.573,IENS,.02,"I") "RTN","ONCACDU2",160,0) .Q:PT<1 "RTN","ONCACDU2",161,0) .S X=$$GET1^DIQ(164.42,PT,1,"I") "RTN","ONCACDU2",162,0) .Q "RTN","ONCACDU2",163,0) Q X "RTN","ONCACDU2",164,0) CCTST(ACD160) ;Current City "RTN","ONCACDU2",165,0) N X "RTN","ONCACDU2",166,0) S X=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",167,0) Q X "RTN","ONCACDU2",168,0) ICD(ICD) ;Convert ICD Code "RTN","ONCACDU2",169,0) N X "RTN","ONCACDU2",170,0) S ICD=$S(ICD'="":$P($G(^ICD9(ICD,0)),U),1:"0000") "RTN","ONCACDU2",171,0) I ICD["." S ICD=$P(ICD,".")_$P(ICD,".",2) "RTN","ONCACDU2",172,0) S:$L(ICD)=3 ICD=ICD_9 "RTN","ONCACDU2",173,0) S:$L(ICD)<4 ICD=$E("0000",1,4-$L(ICD))_ICD "RTN","ONCACDU2",174,0) S:$L(ICD)>4 ICD=$E(ICD,1,4) "RTN","ONCACDU2",175,0) I $E(ICD,4)="X"!($E(ICD,4)="-") S ICD=$E(ICD,1,3)_9 "RTN","ONCACDU2",176,0) Q ICD "RTN","ONCACDU2",177,0) ICDR(ICD) ; Revision Number "RTN","ONCACDU2",178,0) N ICDR "RTN","ONCACDU2",179,0) S ICD=$$ICD(ICD) "RTN","ONCACDU2",180,0) S ICDR=$S(ICD=" ":0,1:$$GET1^DIQ(160,ACD160,20,"I")) "RTN","ONCACDU2",181,0) S:ICDR="" ICDR=0 "RTN","ONCACDU2",182,0) Q ICDR "RTN","ONCACDU2",183,0) LINK(ACD160) ; Linkage Name "RTN","ONCACDU2",184,0) N NAME,X "RTN","ONCACDU2",185,0) S DFN=ACD160 D DEM^VADPT "RTN","ONCACDU2",186,0) S NAME=VADM(1) "RTN","ONCACDU2",187,0) D KVAR^VADPT "RTN","ONCACDU2",188,0) S X=($A($E(NAME,1)))+($A($E(NAME,2))) "RTN","ONCACDU2",189,0) S X=X-128 I X<1 S X="" "RTN","ONCACDU2",190,0) Q X "RTN","ONCACDU2",191,0) PPAY(IEN) ; Primary Payor "RTN","ONCACDU2",192,0) N X "RTN","ONCACDU2",193,0) S X=$$GET1^DIQ(165.5,IEN,18,"I") "RTN","ONCACDU2",194,0) S X=$$GET1^DIQ(160.3,$S(X'="":X,1:99),.01,"I") "RTN","ONCACDU2",195,0) S X=$S(X<42:X,X>47:X,1:X-1) "RTN","ONCACDU2",196,0) Q X "RTN","ONCENV21") 0^1^B745894 "RTN","ONCENV21",1,0) ONCENV21 ;Hines CIOFO/WAA - Enviroment Check for Patch ONC*2.11*21;3/20/98 "RTN","ONCENV21",2,0) ;;2.11;Oncology;**21**;Mar 07, 1995 "RTN","ONCENV21",3,0) EN1 ;Enviroment check routine "RTN","ONCENV21",4,0) ; "RTN","ONCENV21",5,0) N PATCH1,PATCH2 "RTN","ONCENV21",6,0) S PATCH1=$$PATCH^XPDUTL("ONC*2.11*20") "RTN","ONCENV21",7,0) S PATCH2=$$PATCH^XPDUTL("ONCO*2.11*20") ; fix for package file "RTN","ONCENV21",8,0) I 'PATCH1,'PATCH2 D BMES^XPDUTL("Please install ONC*2.11*20 first. Installation Halted.") S XPDABORT=2 "RTN","ONCENV21",9,0) Q "RTN","ONCODIS") 0^3^B1484520 "RTN","ONCODIS",1,0) ONCODIS ;WASH ISC/SRR-ONCOLOGY DISPLAYS ;6/2/92 22:22 "RTN","ONCODIS",2,0) ;;2.11;Oncology;**6,7,9,10,11,12,13,14,15,16,17,18,19,20,21**;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 W *7,@IOF W !!!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) "RTN","ONCODIS",10,0) W !!,?23,"Department of Veterans Affairs",!!?23,NM_" V"_VR_"P21" Q "RTN","ONCODIS",11,0) DISP ; "RTN","ONCODIS",12,0) ;;VVVV VVAA "RTN","ONCODIS",13,0) ;; VVVV VVAAAA "RTN","ONCODIS",14,0) ;; VVVV VVAAAAAA "RTN","ONCODIS",15,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",16,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",17,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",18,0) ;; VVVVVVAA AAAA "RTN","ONCODIS",19,0) ;; VVVVAA AAAAAAAAAAA "RTN","ONCODIS",20,0) ;; VVAA AAAAAAAAAAA "RTN","ONCODIS",21,0) D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q "RTN","ONCPRE21") 0^2^B33263 "RTN","ONCPRE21",1,0) ONCPRE21 ;HIRMFO/WAA - Pre-INIT for Patch ONC*2.11*20;12/1/98 13:00 "RTN","ONCPRE21",2,0) ;;2.11;Oncology;**21**;Mar 07, 1995 "RTN","ONCPRE21",3,0) EN1 ; This is to Delete the old 160.16 global prior to installation "RTN","ONCPRE21",4,0) ; of the new copy of the data. "RTN","ONCPRE21",5,0) K ^ONCO(160.16) "RTN","ONCPRE21",6,0) K ^ONCO(160.17) "RTN","ONCPRE21",7,0) Q "RTN","ONCPRE21",8,0) ENV ; Patch 21 check "RTN","ONCPRE21",9,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.17,160.17,0,"AUDIT") @ "SEC","^DIC",160.17,160.17,0,"DD") @ "SEC","^DIC",160.17,160.17,0,"DEL") @ "SEC","^DIC",160.17,160.17,0,"LAYGO") @ "SEC","^DIC",160.17,160.17,0,"RD") @ "SEC","^DIC",160.17,160.17,0,"WR") @ "VER") 8.0^21.0 "^DD",160.16,160.16,0) FIELD^^2^3 "^DD",160.16,160.16,0,"DT") 2971028 "^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^1^2970731^^^ "^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) ^^1^1^2970731^ "^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^^6^7 "^DD",160.16,160.161,0,"DT") 2970729 "^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) ^^1^1^2970731^ "^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.162,0) RULES SUB-FIELD^^.01^1 "^DD",160.16,160.162,0,"DT") 2970618 "^DD",160.16,160.162,0,"NM","RULES") "^DD",160.16,160.162,0,"UP") 160.16 "^DD",160.16,160.162,.01,0) RULES^W^^0;1^Q "^DD",160.16,160.162,.01,"DT") 2970618 "^DD",160.17,160.17,0) FIELD^^2^3 "^DD",160.17,160.17,0,"IX","B",160.17,.01) "^DD",160.17,160.17,0,"NM","ONCOLOGY PCE EXTRACT FORMAT") "^DD",160.17,160.17,0,"VRPK") ONC "^DD",160.17,160.17,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",160.17,160.17,.01,1,0) ^.1 "^DD",160.17,160.17,.01,1,1,0) 160.17^B "^DD",160.17,160.17,.01,1,1,1) S ^ONCO(160.17,"B",$E(X,1,30),DA)="" "^DD",160.17,160.17,.01,1,1,2) K ^ONCO(160.17,"B",$E(X,1,30),DA) "^DD",160.17,160.17,.01,3) Answer must be 3-30 characters in length. "^DD",160.17,160.17,.01,21,0) ^^1^1^2971028^^^^ "^DD",160.17,160.17,.01,21,1,0) This contains the name of the PCE extract. "^DD",160.17,160.17,.01,"DT") 2970224 "^DD",160.17,160.17,1,0) FIELD^160.171I^^FIELD;0 "^DD",160.17,160.17,1,21,0) ^^1^1^2971028^^ "^DD",160.17,160.17,1,21,1,0) List of all the PCE extracted fields. "^DD",160.17,160.17,2,0) RULES^160.172^^RULES;0 "^DD",160.17,160.17,2,21,0) ^^8^8^2970731^ "^DD",160.17,160.17,2,21,1,0) This field is a set of rules based in MUMPS code that the extract must "^DD",160.17,160.17,2,21,2,0) follow for each entry. Values that must be set are: "^DD",160.17,160.17,2,21,3,0) VALID = 1 means that the extract is valid "^DD",160.17,160.17,2,21,4,0) = 0 means that the extract has is not valid and will not "^DD",160.17,160.17,2,21,6,0) JUMP = 0 means process all the field in the extract "^DD",160.17,160.17,2,21,7,0) = X^Y means to skip all the fields from position X to "^DD",160.17,160.17,2,21,8,0) position Y in the extract. "^DD",160.17,160.171,0) FIELD SUB-FIELD^^6^7 "^DD",160.17,160.171,0,"ID",3) W " ",$P(^(0),U,4) "^DD",160.17,160.171,0,"IX","B",160.171,.01) "^DD",160.17,160.171,0,"IX","C",160.171,3) "^DD",160.17,160.171,0,"NM","FIELD") "^DD",160.17,160.171,0,"UP") 160.17 "^DD",160.17,160.171,.01,0) STARTING POSITION^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X "^DD",160.17,160.171,.01,1,0) ^.1 "^DD",160.17,160.171,.01,1,1,0) 160.171^B "^DD",160.17,160.171,.01,1,1,1) S ^ONCO(160.17,DA(1),"FIELD","B",$E(X,1,30),DA)="" "^DD",160.17,160.171,.01,1,1,2) K ^ONCO(160.17,DA(1),"FIELD","B",$E(X,1,30),DA) "^DD",160.17,160.171,.01,3) Type a Number between 0 and 999999, 0 Decimal Digits "^DD",160.17,160.171,.01,21,0) ^^1^1^2970731^ "^DD",160.17,160.171,.01,21,1,0) The starting position do the field within the extract. "^DD",160.17,160.171,.01,"DT") 2970731 "^DD",160.17,160.171,1,0) LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.17,160.171,1,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.17,160.171,1,21,0) ^^1^1^2970731^^^ "^DD",160.17,160.171,1,21,1,0) This contains the character length of the field. "^DD",160.17,160.171,1,"DT") 2970430 "^DD",160.17,160.171,2,0) ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.17,160.171,2,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.17,160.171,2,21,0) ^^1^1^2970731^^^ "^DD",160.17,160.171,2,21,1,0) This is the ending position of the field data. "^DD",160.17,160.171,2,"DT") 2970430 "^DD",160.17,160.171,3,0) NAME^RF^^0;4^K:$L(X)>80!($L(X)<1) X "^DD",160.17,160.171,3,1,0) ^.1 "^DD",160.17,160.171,3,1,1,0) 160.171^C "^DD",160.17,160.171,3,1,1,1) S ^ONCO(160.17,DA(1),"FIELD","C",$E(X,1,30),DA)="" "^DD",160.17,160.171,3,1,1,2) K ^ONCO(160.17,DA(1),"FIELD","C",$E(X,1,30),DA) "^DD",160.17,160.171,3,1,1,"%D",0) ^^1^1^2970430^ "^DD",160.17,160.171,3,1,1,"%D",1,0) Name cross reference. "^DD",160.17,160.171,3,1,1,"DT") 2970430 "^DD",160.17,160.171,3,3) Answer must be 1-80 characters in length. "^DD",160.17,160.171,3,21,0) ^^1^1^2970731^ "^DD",160.17,160.171,3,21,1,0) This is the name given to the field within the extract. "^DD",160.17,160.171,3,"DT") 2970430 "^DD",160.17,160.171,4,0) ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X "^DD",160.17,160.171,4,3) Answer must be 1-250 characters in length. "^DD",160.17,160.171,4,21,0) ^^12^12^2970731^ "^DD",160.17,160.171,4,21,1,0) Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE "^" "^DD",160.17,160.171,4,21,2,0) (UP-ARROW). Fileman will not except and up-arrow. Use "~" tilde to "^DD",160.17,160.171,4,21,3,0) replace all up-arrows. The system has been coded to convert the tilde to "^DD",160.17,160.171,4,21,4,0) an up-arrow when it executes the string. "^DD",160.17,160.171,4,21,6,0) S ACDANS=123 "^DD",160.17,160.171,4,21,7,0) S ACDANS=$$FUNCT~ROUTINE(IEN) "^DD",160.17,160.171,4,21,8,0) "^DD",160.17,160.171,4,21,9,0) Preset Varables: "^DD",160.17,160.171,4,21,10,0) IEN=Internal Entry number of the entry in file 165.5 "^DD",160.17,160.171,4,21,11,0) ACD160=Internal Entry number of the entry in file 160 that is "^DD",160.17,160.171,4,21,12,0) link to the entry in file 165.5 "^DD",160.17,160.171,4,"DT") 2970729 "^DD",160.17,160.171,5,0) DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X "^DD",160.17,160.171,5,3) Answer must be 1-200 characters in length. "^DD",160.17,160.171,5,21,0) ^^5^5^2970731^ "^DD",160.17,160.171,5,21,1,0) The default value of a field that is has no data stored. "^DD",160.17,160.171,5,21,2,0) Values can be: "^DD",160.17,160.171,5,21,3,0) BLANK = " " "^DD",160.17,160.171,5,21,4,0) ZERO = "0" "^DD",160.17,160.171,5,"DT") 2970509 "^DD",160.17,160.171,6,0) FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X "^DD",160.17,160.171,6,3) Answer must be 1-200 characters in length. "^DD",160.17,160.171,6,21,0) ^^12^12^2970731^ "^DD",160.17,160.171,6,21,1,0) The filler that is stuffed in front of or behind the data if it is not the "^DD",160.17,160.171,6,21,2,0) max length. This element is devided into two pieces delimeted by a comma. "^DD",160.17,160.171,6,21,3,0) The first part tell where the fill is to go. Second part tells waht to "^DD",160.17,160.171,6,21,4,0) fill with. "R" means to fill on the right side of the value and "L" means "^DD",160.17,160.171,6,21,6,0) "^DD",160.17,160.171,6,21,7,0) Example: L,BLANK = Fill the field with blanks then add the value to the "^DD",160.17,160.171,6,21,8,0) remainder "^DD",160.17,160.171,6,21,9,0) "^DD",160.17,160.171,6,21,10,0) BLANK = " " "^DD",160.17,160.171,6,21,11,0) ZERO = "0" "^DD",160.17,160.171,6,21,12,0) NINE = "9" "^DD",160.17,160.171,6,"DT") 2970509 "^DD",160.17,160.172,0) RULES SUB-FIELD^^.01^1 "^DD",160.17,160.172,0,"NM","RULES") "^DD",160.17,160.172,0,"UP") 160.17 "^DD",160.17,160.172,.01,0) RULES^W^^0;1^Q "^DD",160.17,160.172,.01,"DT") 2970618 "^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,"B","ONCOLOGY DATA EXTRACT FORMAT",160.16) "^DIC",160.17,160.17,0) ONCOLOGY PCE EXTRACT FORMAT^160.17 "^DIC",160.17,160.17,0,"GL") ^ONCO(160.17, "^DIC",160.17,"B","ONCOLOGY PCE EXTRACT FORMAT",160.17) **END** **END**