Released ONC*2.11*12 SEQ #12 Extracted from mail message **KIDS**:ONC*2.11*12^ **INSTALL NAME** ONC*2.11*12 "BLD",184,0) ONC*2.11*12^ONCOLOGY^0^^n "BLD",184,1,0) ^^4^4^2970819^^^^ "BLD",184,1,1,0) North American Association of Central Cancer Registries (NAACCR) Annual "BLD",184,1,2,0) Call for Data and State Data for the years 1985, 1990, 1995. This patch "BLD",184,1,3,0) is to update the NAACCR Annual Call for Data and the State Data to the "BLD",184,1,4,0) 1995 Data extract. "BLD",184,4,0) ^9.64PA^160.2^2 "BLD",184,4,160.16,0) 160.16 "BLD",184,4,160.16,222) y^y^f^^n^^y^o^n "BLD",184,4,160.2,0) 160.2 "BLD",184,4,160.2,222) y^y^f^^n^^y^o^n "BLD",184,4,"B",160.16,160.16) "BLD",184,4,"B",160.2,160.2) "BLD",184,"ABPKG") n^n "BLD",184,"INI") EN1^ONCPRE12 "BLD",184,"KRN",0) ^9.67PA^19^18 "BLD",184,"KRN",.4,0) .4 "BLD",184,"KRN",.4,"NM",0) ^9.68A^^0 "BLD",184,"KRN",.401,0) .401 "BLD",184,"KRN",.401,"NM",0) ^9.68A^^0 "BLD",184,"KRN",.402,0) .402 "BLD",184,"KRN",.402,"NM",0) ^9.68A^^0 "BLD",184,"KRN",.403,0) .403 "BLD",184,"KRN",.5,0) .5 "BLD",184,"KRN",.5,"NM",0) ^9.68A^^0 "BLD",184,"KRN",.84,0) .84 "BLD",184,"KRN",3.6,0) 3.6 "BLD",184,"KRN",3.8,0) 3.8 "BLD",184,"KRN",9.2,0) 9.2 "BLD",184,"KRN",9.2,"NM",0) ^9.68A^^0 "BLD",184,"KRN",9.8,0) 9.8 "BLD",184,"KRN",9.8,"NM",0) ^9.68A^17^17 "BLD",184,"KRN",9.8,"NM",1) ^^^ "BLD",184,"KRN",9.8,"NM",1,0) ONCPRE9^^1^B263602 "BLD",184,"KRN",9.8,"NM",2,0) ONCACD0^^0^B27224677 "BLD",184,"KRN",9.8,"NM",3,0) ONCACD1^^0^B14997069 "BLD",184,"KRN",9.8,"NM",4) ^^^ "BLD",184,"KRN",9.8,"NM",4,0) ONCACD2^^1^B29243112 "BLD",184,"KRN",9.8,"NM",5) ^^^ "BLD",184,"KRN",9.8,"NM",5,0) ONCACD3^^1^B47575767 "BLD",184,"KRN",9.8,"NM",6) ^^^ "BLD",184,"KRN",9.8,"NM",6,0) ONCACD4^^1^B17444718 "BLD",184,"KRN",9.8,"NM",7) ^^^ "BLD",184,"KRN",9.8,"NM",7,0) ONCACD5^^1^B11158078 "BLD",184,"KRN",9.8,"NM",8) ^^^ "BLD",184,"KRN",9.8,"NM",8,0) ONCACD6^^1^B27553252 "BLD",184,"KRN",9.8,"NM",9) ^^^ "BLD",184,"KRN",9.8,"NM",9,0) ONCACD7^^1^B3320417 "BLD",184,"KRN",9.8,"NM",10) ^^^ "BLD",184,"KRN",9.8,"NM",10,0) ONCACD9^^1^B4152260 "BLD",184,"KRN",9.8,"NM",11) ^^^ "BLD",184,"KRN",9.8,"NM",11,0) ONCACDF^^1^B3535242 "BLD",184,"KRN",9.8,"NM",12) ^^^ "BLD",184,"KRN",9.8,"NM",12,0) ONCACDQ^^1^B25484911 "BLD",184,"KRN",9.8,"NM",13,0) ONCODIS^^0^B1484521 "BLD",184,"KRN",9.8,"NM",14,0) ONCACDU1^^0^B19523306 "BLD",184,"KRN",9.8,"NM",15,0) ONCACDU2^^0^B12171996 "BLD",184,"KRN",9.8,"NM",16,0) ONCPRE12^^0^B28583 "BLD",184,"KRN",9.8,"NM",17,0) ONCOCOM^^0^B29231430 "BLD",184,"KRN",9.8,"NM","B","ONCACD0",2) "BLD",184,"KRN",9.8,"NM","B","ONCACD1",3) "BLD",184,"KRN",9.8,"NM","B","ONCACD2",4) "BLD",184,"KRN",9.8,"NM","B","ONCACD3",5) "BLD",184,"KRN",9.8,"NM","B","ONCACD4",6) "BLD",184,"KRN",9.8,"NM","B","ONCACD5",7) "BLD",184,"KRN",9.8,"NM","B","ONCACD6",8) "BLD",184,"KRN",9.8,"NM","B","ONCACD7",9) "BLD",184,"KRN",9.8,"NM","B","ONCACD9",10) "BLD",184,"KRN",9.8,"NM","B","ONCACDF",11) "BLD",184,"KRN",9.8,"NM","B","ONCACDQ",12) "BLD",184,"KRN",9.8,"NM","B","ONCACDU1",14) "BLD",184,"KRN",9.8,"NM","B","ONCACDU2",15) "BLD",184,"KRN",9.8,"NM","B","ONCOCOM",17) "BLD",184,"KRN",9.8,"NM","B","ONCODIS",13) "BLD",184,"KRN",9.8,"NM","B","ONCPRE12",16) "BLD",184,"KRN",9.8,"NM","B","ONCPRE9",1) "BLD",184,"KRN",19,0) 19 "BLD",184,"KRN",19,"NM",0) ^9.68A^4^5 "BLD",184,"KRN",19,"NM",1,0) ONCO #SITE-CREATE ACOS DISK^^0 "BLD",184,"KRN",19,"NM",2,0) ONCO #SITE-CREATE ACOS REPORT^^0 "BLD",184,"KRN",19,"NM",3,0) ONCO #STATE DATA DISK^^0 "BLD",184,"KRN",19,"NM",4,0) ONCO #STATE DATA REPORT^^0 "BLD",184,"KRN",19,"NM",5,0) ONCO UTIL MENU^^2 "BLD",184,"KRN",19,"NM","B","ONCO #SITE-CREATE ACOS DISK",1) "BLD",184,"KRN",19,"NM","B","ONCO #SITE-CREATE ACOS REPORT",2) "BLD",184,"KRN",19,"NM","B","ONCO #STATE DATA DISK",3) "BLD",184,"KRN",19,"NM","B","ONCO #STATE DATA REPORT",4) "BLD",184,"KRN",19,"NM","B","ONCO UTIL MENU",5) "BLD",184,"KRN",19.1,0) 19.1 "BLD",184,"KRN",19.1,"NM",0) ^9.68A^^ "BLD",184,"KRN",101,0) 101 "BLD",184,"KRN",409.61,0) 409.61 "BLD",184,"KRN",409.61,"NM",0) ^9.68A^^ "BLD",184,"KRN",771,0) 771 "BLD",184,"KRN",869.2,0) 869.2 "BLD",184,"KRN",870,0) 870 "BLD",184,"KRN",8994,0) 8994 "BLD",184,"KRN","B",.4,.4) "BLD",184,"KRN","B",.401,.401) "BLD",184,"KRN","B",.402,.402) "BLD",184,"KRN","B",.403,.403) "BLD",184,"KRN","B",.5,.5) "BLD",184,"KRN","B",.84,.84) "BLD",184,"KRN","B",3.6,3.6) "BLD",184,"KRN","B",3.8,3.8) "BLD",184,"KRN","B",9.2,9.2) "BLD",184,"KRN","B",9.8,9.8) "BLD",184,"KRN","B",19,19) "BLD",184,"KRN","B",19.1,19.1) "BLD",184,"KRN","B",101,101) "BLD",184,"KRN","B",409.61,409.61) "BLD",184,"KRN","B",771,771) "BLD",184,"KRN","B",869.2,869.2) "BLD",184,"KRN","B",870,870) "BLD",184,"KRN","B",8994,8994) "BLD",184,"QUES",0) ^9.62^^ "BLD",184,"REQB",0) ^9.611^^ "DATA",160.16,1,0) NAACCR ACD EXTRACT^^ "DATA",160.16,1,"FIELD",0) ^160.161^337^337 "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,BLANK "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=STAT1 "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=5 "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) ZERO "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) ZERO "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(IEN) "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") "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) 188^29^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=4 "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="" "DATA",160.16,1,"FIELD",68,2) BLANK "DATA",160.16,1,"FIELD",68,3) L,BLANK "DATA",160.16,1,"FIELD",69,0) 343^8^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="" "DATA",160.16,1,"FIELD",70,2) BLANK "DATA",160.16,1,"FIELD",70,3) L,BLANK "DATA",160.16,1,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,1,"FIELD",71,1) S ACDANS="" "DATA",160.16,1,"FIELD",71,2) BLANK "DATA",160.16,1,"FIELD",71,3) L,BLANK "DATA",160.16,1,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,1,"FIELD",72,1) S ACDANS="" "DATA",160.16,1,"FIELD",72,2) BLANK "DATA",160.16,1,"FIELD",72,3) L,BLANK "DATA",160.16,1,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,1,"FIELD",73,1) S ACDANS="" "DATA",160.16,1,"FIELD",73,2) BLANK "DATA",160.16,1,"FIELD",73,3) L,BLANK "DATA",160.16,1,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,1,"FIELD",74,1) S ACDANS="" "DATA",160.16,1,"FIELD",74,2) BLANK "DATA",160.16,1,"FIELD",74,3) L,BLANK "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="" "DATA",160.16,1,"FIELD",75,2) BLANK "DATA",160.16,1,"FIELD",75,3) L,BLANK "DATA",160.16,1,"FIELD",76,0) 358^30^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="" "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,BLANK "DATA",160.16,1,"FIELD",81,0) 395^2^396^EOD Pathologic for Prostate "DATA",160.16,1,"FIELD",81,1) S ACDANS="" "DATA",160.16,1,"FIELD",81,2) BLANK "DATA",160.16,1,"FIELD",81,3) L,BLANK "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) BLANK "DATA",160.16,1,"FIELD",83,3) L,BLANK "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) BLANK "DATA",160.16,1,"FIELD",84,3) L,BLANK "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="" "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) L,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) L,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) L,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) NINE "DATA",160.16,1,"FIELD",92,3) L,NINE "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) L,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) L,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) L,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) NINE "DATA",160.16,1,"FIELD",98,3) L,ZERO "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) L,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) L,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) L,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) NINE "DATA",160.16,1,"FIELD",104,3) L,NINE "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="" "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=$$GET1~DIQ(165.5,IEN,58.2,"I") "DATA",160.16,1,"FIELD",130,2) ZERO "DATA",160.16,1,"FIELD",130,3) L,ZERO "DATA",160.16,1,"FIELD",131,0) 611^8^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=$$GET1~DIQ(165.5,IEN,74,"I") "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=$$GET1~DIQ(165.5,IEN,59,"I") "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=$$GET1~DIQ(165.5,IEN,23,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.4,ACDANS,.01,"I") "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.1,"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") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.5,ACDANS,.01,"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="3" "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="" "DATA",160.16,1,"FIELD",152,2) BLANK "DATA",160.16,1,"FIELD",152,3) L,BLANK "DATA",160.16,1,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,1,"FIELD",153,1) S ACDANS="" "DATA",160.16,1,"FIELD",153,2) BLANK "DATA",160.16,1,"FIELD",153,3) L,BLANK "DATA",160.16,1,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,1,"FIELD",154,1) S ACDANS="" "DATA",160.16,1,"FIELD",154,2) BLANK "DATA",160.16,1,"FIELD",154,3) L,BLANK "DATA",160.16,1,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,1,"FIELD",155,1) S ACDANS="" "DATA",160.16,1,"FIELD",155,2) BLANK "DATA",160.16,1,"FIELD",155,3) L,BLANK "DATA",160.16,1,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,1,"FIELD",156,1) S ACDANS="" "DATA",160.16,1,"FIELD",156,2) BLANK "DATA",160.16,1,"FIELD",156,3) L,BLANK "DATA",160.16,1,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,1,"FIELD",157,1) S ACDANS="" "DATA",160.16,1,"FIELD",157,2) BLANK "DATA",160.16,1,"FIELD",157,3) L,BLANK "DATA",160.16,1,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,1,"FIELD",158,1) S ACDANS="" "DATA",160.16,1,"FIELD",158,2) BLANK "DATA",160.16,1,"FIELD",158,3) L,BLANK "DATA",160.16,1,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,1,"FIELD",159,1) S ACDANS="" "DATA",160.16,1,"FIELD",159,2) BLANK "DATA",160.16,1,"FIELD",159,3) L,BLANK "DATA",160.16,1,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,1,"FIELD",160,1) S ACDANS="" "DATA",160.16,1,"FIELD",160,2) BLANK "DATA",160.16,1,"FIELD",160,3) L,BLANK "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) 673^28^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,.071) "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,.071) "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,.071) "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,.071) "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) 761^30^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) BLANK "DATA",160.16,1,"FIELD",196,3) L,BLANK "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) BLANK "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) BLANK "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") "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) 856^27^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) "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(165.5,IEN,83,"I") "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,11,21,"E") "DATA",160.16,1,"FIELD",216,2) BLANK "DATA",160.16,1,"FIELD",216,3) L,BLANK "DATA",160.16,1,"FIELD",217,0) 892^10^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",230,0) 922^30^951^Reserved "DATA",160.16,1,"FIELD",230,1) S ACDANS="" "DATA",160.16,1,"FIELD",230,2) BLANK "DATA",160.16,1,"FIELD",230,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 ACDANS'="" S ACDANS=$$DATE~ONCACDU1(($P(ACDANS,"/",3)+200)_$P(ACDANS,"/")_$P(ACDANS,"/",2)) "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="" "DATA",160.16,1,"FIELD",233,2) BLANK "DATA",160.16,1,"FIELD",233,3) L,BLANK "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=6 "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^Subseq Report for Primary "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="VETAFFAIRS" "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) 996^30^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",244,0) 1026^1^1026^PB Referred for Treatment To "DATA",160.16,1,"FIELD",244,1) S ACDANS=$$GET1~DIQ(165.5,IEN,300,"I") "DATA",160.16,1,"FIELD",244,2) NINE "DATA",160.16,1,"FIELD",244,3) L,ZERO "DATA",160.16,1,"FIELD",245,0) 1027^2^1028^PB Primary Payer "DATA",160.16,1,"FIELD",245,1) S ACDANS=$$PPAY~ONCACDU2(IEN) "DATA",160.16,1,"FIELD",245,2) ZERO "DATA",160.16,1,"FIELD",245,3) L,ZERO "DATA",160.16,1,"FIELD",246,0) 1029^3^1031^PB Length of Stay "DATA",160.16,1,"FIELD",246,1) S ACDANS=$$GET1~DIQ(165.5,IEN,301,"I") "DATA",160.16,1,"FIELD",246,2) BLANK "DATA",160.16,1,"FIELD",246,3) R,BLANK "DATA",160.16,1,"FIELD",247,0) 1032^1^1032^PB Cervix "DATA",160.16,1,"FIELD",247,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.16,1,"FIELD",247,2) BLANK "DATA",160.16,1,"FIELD",247,3) L,BLANK "DATA",160.16,1,"FIELD",248,0) 1033^1^1033^PB Colon "DATA",160.16,1,"FIELD",248,1) S ACDANS=$$GET1~DIQ(165.5,IEN,303,"I") "DATA",160.16,1,"FIELD",248,2) BLANK "DATA",160.16,1,"FIELD",248,3) L,BLANK "DATA",160.16,1,"FIELD",249,0) 1034^1^1034^PB Bladder "DATA",160.16,1,"FIELD",249,1) S ACDANS=$$GET1~DIQ(165.5,IEN,304,"I") "DATA",160.16,1,"FIELD",249,2) BLANK "DATA",160.16,1,"FIELD",249,3) L,BLANK "DATA",160.16,1,"FIELD",250,0) 1035^1^1035^PB Head and Neck "DATA",160.16,1,"FIELD",250,1) S ACDANS=$$GET1~DIQ(165.5,IEN,305,"I") "DATA",160.16,1,"FIELD",250,2) BLANK "DATA",160.16,1,"FIELD",250,3) L,BLANK "DATA",160.16,1,"FIELD",251,0) 1036^1^1036^PB Kidney "DATA",160.16,1,"FIELD",251,1) S ACDANS=$$GET1~DIQ(165.5,IEN,306,"I") "DATA",160.16,1,"FIELD",251,2) BLANK "DATA",160.16,1,"FIELD",251,3) L,BLANK "DATA",160.16,1,"FIELD",252,0) 1037^1^1037^PB Prostate "DATA",160.16,1,"FIELD",252,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.16,1,"FIELD",252,2) BLANK "DATA",160.16,1,"FIELD",252,3) L,BLANK "DATA",160.16,1,"FIELD",253,0) 1038^1^1038^PB Other "DATA",160.16,1,"FIELD",253,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.16,1,"FIELD",253,2) BLANK "DATA",160.16,1,"FIELD",253,3) L,BLANK "DATA",160.16,1,"FIELD",254,0) 1039^1^1039^PB Bladder "DATA",160.16,1,"FIELD",254,1) S ACDANS=$$GET1~DIQ(165.5,IEN,309,"I") "DATA",160.16,1,"FIELD",254,2) BLANK "DATA",160.16,1,"FIELD",254,3) L,BLANK "DATA",160.16,1,"FIELD",255,0) 1040^1^1040^PB Colon "DATA",160.16,1,"FIELD",255,1) S ACDANS=$$GET1~DIQ(165.5,IEN,310,"I") "DATA",160.16,1,"FIELD",255,2) BLANK "DATA",160.16,1,"FIELD",255,3) L,BLANK "DATA",160.16,1,"FIELD",256,0) 1041^1^1041^PB Lung "DATA",160.16,1,"FIELD",256,1) S ACDANS=$$GET1~DIQ(165.5,IEN,311,"I") "DATA",160.16,1,"FIELD",256,2) BLANK "DATA",160.16,1,"FIELD",256,3) L,BLANK "DATA",160.16,1,"FIELD",257,0) 1042^1^1042^PB Prostate "DATA",160.16,1,"FIELD",257,1) S ACDANS=$$GET1~DIQ(165.5,IEN,312,"I") "DATA",160.16,1,"FIELD",257,2) BLANK "DATA",160.16,1,"FIELD",257,3) L,BLANK "DATA",160.16,1,"FIELD",258,0) 1043^1^1043^PB Other "DATA",160.16,1,"FIELD",258,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.16,1,"FIELD",258,2) BLANK "DATA",160.16,1,"FIELD",258,3) L,BLANK "DATA",160.16,1,"FIELD",259,0) 1044^2^1045^PB Smoking History (Pack Per Day) "DATA",160.16,1,"FIELD",259,1) S ACDANS=$$GET1~DIQ(165.5,IEN,314,"I") "DATA",160.16,1,"FIELD",259,2) BLANK "DATA",160.16,1,"FIELD",259,3) L,ZERO "DATA",160.16,1,"FIELD",260,0) 1046^2^1047^PB Duration of Smoking History (Yr.) "DATA",160.16,1,"FIELD",260,1) S ACDANS=$$GET1~DIQ(165.5,IEN,315,"I") "DATA",160.16,1,"FIELD",260,2) BLANK "DATA",160.16,1,"FIELD",260,3) L,ZERO "DATA",160.16,1,"FIELD",261,0) 1048^2^1049^PB Duration of Smoking-Free Hist. (Yr.) "DATA",160.16,1,"FIELD",261,1) S ACDANS=$$GET1~DIQ(165.5,IEN,316,"I") "DATA",160.16,1,"FIELD",261,2) BLANK "DATA",160.16,1,"FIELD",261,3) L,ZERO "DATA",160.16,1,"FIELD",262,0) 1050^1^1050^PB Gross Hematuria "DATA",160.16,1,"FIELD",262,1) S ACDANS=$$GET1~DIQ(165.5,IEN,317,"I") "DATA",160.16,1,"FIELD",262,2) BLANK "DATA",160.16,1,"FIELD",262,3) L,BLANK "DATA",160.16,1,"FIELD",263,0) 1051^1^1051^PB Microscopic Hematuria "DATA",160.16,1,"FIELD",263,1) S ACDANS=$$GET1~DIQ(165.5,IEN,318,"I") "DATA",160.16,1,"FIELD",263,2) BLANK "DATA",160.16,1,"FIELD",263,3) L,BLANK "DATA",160.16,1,"FIELD",264,0) 1052^1^1052^PB Urinary Frequency "DATA",160.16,1,"FIELD",264,1) S ACDANS=$$GET1~DIQ(165.5,IEN,319,"I") "DATA",160.16,1,"FIELD",264,2) BLANK "DATA",160.16,1,"FIELD",264,3) L,BLANK "DATA",160.16,1,"FIELD",265,0) 1053^1^1053^PB Bladder Irritability "DATA",160.16,1,"FIELD",265,1) S ACDANS=$$GET1~DIQ(165.5,IEN,320,"I") "DATA",160.16,1,"FIELD",265,2) BLANK "DATA",160.16,1,"FIELD",265,3) L,BLANK "DATA",160.16,1,"FIELD",266,0) 1054^1^1054^PB Dysuria "DATA",160.16,1,"FIELD",266,1) S ACDANS=$$GET1~DIQ(165.5,IEN,321,"I") "DATA",160.16,1,"FIELD",266,2) BLANK "DATA",160.16,1,"FIELD",266,3) L,BLANK "DATA",160.16,1,"FIELD",267,0) 1055^1^1055^PB Other "DATA",160.16,1,"FIELD",267,1) S ACDANS=$$GET1~DIQ(165.5,IEN,322,"I") "DATA",160.16,1,"FIELD",267,2) BLANK "DATA",160.16,1,"FIELD",267,3) L,BLANK "DATA",160.16,1,"FIELD",268,0) 1056^8^1063^PB Date of onset of Symptoms "DATA",160.16,1,"FIELD",268,1) S ACDANS=$$GET1~DIQ(165.5,IEN,323,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",268,2) BLANK "DATA",160.16,1,"FIELD",268,3) L,BLANK "DATA",160.16,1,"FIELD",269,0) 1064^2^1065^PB Gross Hematuria "DATA",160.16,1,"FIELD",269,1) S ACDANS=$$GET1~DIQ(165.5,IEN,324,"I") "DATA",160.16,1,"FIELD",269,2) BLANK "DATA",160.16,1,"FIELD",269,3) L,ZERO "DATA",160.16,1,"FIELD",270,0) 1066^2^1067^PB Dysuria "DATA",160.16,1,"FIELD",270,1) S ACDANS=$$GET1~DIQ(165.5,IEN,325,"I") "DATA",160.16,1,"FIELD",270,2) BLANK "DATA",160.16,1,"FIELD",270,3) L,ZERO "DATA",160.16,1,"FIELD",271,0) 1068^1^1068^PB Bimanual Examination of Bladder "DATA",160.16,1,"FIELD",271,1) S ACDANS=$$GET1~DIQ(165.5,IEN,326,"I") "DATA",160.16,1,"FIELD",271,2) BLANK "DATA",160.16,1,"FIELD",271,3) L,BLANK "DATA",160.16,1,"FIELD",272,0) 1069^1^1069^PB Cystoscopy with biopsy "DATA",160.16,1,"FIELD",272,1) S ACDANS=$$GET1~DIQ(165.5,IEN,327,"I") "DATA",160.16,1,"FIELD",272,2) BLANK "DATA",160.16,1,"FIELD",272,3) L,BLANK "DATA",160.16,1,"FIELD",273,0) 1070^1^1070^PB Cystoscopy without biopsy "DATA",160.16,1,"FIELD",273,1) S ACDANS=$$GET1~DIQ(165.5,IEN,328,"I") "DATA",160.16,1,"FIELD",273,2) BLANK "DATA",160.16,1,"FIELD",273,3) L,BLANK "DATA",160.16,1,"FIELD",274,0) 1071^1^1071^PB Flow Cytometry "DATA",160.16,1,"FIELD",274,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.16,1,"FIELD",274,2) BLANK "DATA",160.16,1,"FIELD",274,3) L,BLANK "DATA",160.16,1,"FIELD",275,0) 1072^1^1072^PB Intravenous Pyelogram "DATA",160.16,1,"FIELD",275,1) S ACDANS=$$GET1~DIQ(165.5,IEN,330,"I") "DATA",160.16,1,"FIELD",275,2) BLANK "DATA",160.16,1,"FIELD",275,3) L,BLANK "DATA",160.16,1,"FIELD",276,0) 1073^1^1073^PB Urine Cytology "DATA",160.16,1,"FIELD",276,1) S ACDANS=$$GET1~DIQ(165.5,IEN,331,"I") "DATA",160.16,1,"FIELD",276,2) BLANK "DATA",160.16,1,"FIELD",276,3) L,BLANK "DATA",160.16,1,"FIELD",277,0) 1074^1^1074^PB Urinalysis "DATA",160.16,1,"FIELD",277,1) S ACDANS=$$GET1~DIQ(165.5,IEN,332,"I") "DATA",160.16,1,"FIELD",277,2) BLANK "DATA",160.16,1,"FIELD",277,3) L,BLANK "DATA",160.16,1,"FIELD",278,0) 1075^1^1075^PB Other "DATA",160.16,1,"FIELD",278,1) S ACDANS=$$GET1~DIQ(165.5,IEN,333,"I") "DATA",160.16,1,"FIELD",278,2) BLANK "DATA",160.16,1,"FIELD",278,3) L,BLANK "DATA",160.16,1,"FIELD",279,0) 1076^1^1076^PB Specialty Making Diagnosis "DATA",160.16,1,"FIELD",279,1) S ACDANS=$$GET1~DIQ(165.5,IEN,334,"I") "DATA",160.16,1,"FIELD",279,2) BLANK "DATA",160.16,1,"FIELD",279,3) L,BLANK "DATA",160.16,1,"FIELD",280,0) 1077^1^1077^PB Abdominal Ultrasound "DATA",160.16,1,"FIELD",280,1) S ACDANS=$$GET1~DIQ(165.5,IEN,335,"I") "DATA",160.16,1,"FIELD",280,2) BLANK "DATA",160.16,1,"FIELD",280,3) L,BLANK "DATA",160.16,1,"FIELD",281,0) 1078^1^1078^PB Bone Imaging "DATA",160.16,1,"FIELD",281,1) S ACDANS=$$GET1~DIQ(165.5,IEN,336,"I") "DATA",160.16,1,"FIELD",281,2) BLANK "DATA",160.16,1,"FIELD",281,3) L,BLANK "DATA",160.16,1,"FIELD",282,0) 1079^1^1079^PB Chest X-Ray "DATA",160.16,1,"FIELD",282,1) S ACDANS=$$GET1~DIQ(165.5,IEN,337,"I") "DATA",160.16,1,"FIELD",282,2) BLANK "DATA",160.16,1,"FIELD",282,3) L,BLANK "DATA",160.16,1,"FIELD",283,0) 1080^1^1080^PB CT Chest/Lung "DATA",160.16,1,"FIELD",283,1) S ACDANS=$$GET1~DIQ(165.5,IEN,338,"I") "DATA",160.16,1,"FIELD",283,2) BLANK "DATA",160.16,1,"FIELD",283,3) L,BLANK "DATA",160.16,1,"FIELD",284,0) 1081^1^1081^PB CT Abdomen/Pelvis "DATA",160.16,1,"FIELD",284,1) S ACDANS=$$GET1~DIQ(165.5,IEN,339,"I") "DATA",160.16,1,"FIELD",284,2) BLANK "DATA",160.16,1,"FIELD",284,3) L,BLANK "DATA",160.16,1,"FIELD",285,0) 1082^1^1082^PB CT Other "DATA",160.16,1,"FIELD",285,1) S ACDANS=$$GET1~DIQ(165.5,IEN,340,"I") "DATA",160.16,1,"FIELD",285,2) BLANK "DATA",160.16,1,"FIELD",285,3) L,BLANK "DATA",160.16,1,"FIELD",286,0) 1083^1^1083^PB MRI Pelvis/Abdomen "DATA",160.16,1,"FIELD",286,1) S ACDANS=$$GET1~DIQ(165.5,IEN,341,"I") "DATA",160.16,1,"FIELD",286,2) BLANK "DATA",160.16,1,"FIELD",286,3) L,BLANK "DATA",160.16,1,"FIELD",287,0) 1084^1^1084^PB MRI Other "DATA",160.16,1,"FIELD",287,1) S ACDANS=$$GET1~DIQ(165.5,IEN,342,"I") "DATA",160.16,1,"FIELD",287,2) BLANK "DATA",160.16,1,"FIELD",287,3) L,BLANK "DATA",160.16,1,"FIELD",288,0) 1085^1^1085^PB Other "DATA",160.16,1,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,343,"I") "DATA",160.16,1,"FIELD",288,2) BLANK "DATA",160.16,1,"FIELD",288,3) L,BLANK "DATA",160.16,1,"FIELD",289,0) 1086^1^1086^PB Presence of Hydronephrosis "DATA",160.16,1,"FIELD",289,1) S ACDANS=$$GET1~DIQ(165.5,IEN,344,"I") "DATA",160.16,1,"FIELD",289,2) BLANK "DATA",160.16,1,"FIELD",289,3) L,BLANK "DATA",160.16,1,"FIELD",290,0) 1087^1^1087^PB Presence of Multiple Tumors "DATA",160.16,1,"FIELD",290,1) S ACDANS=$$GET1~DIQ(165.5,IEN,345,"I") "DATA",160.16,1,"FIELD",290,2) BLANK "DATA",160.16,1,"FIELD",290,3) L,BLANK "DATA",160.16,1,"FIELD",291,0) 1088^1^1088^PB Clinical Stage "DATA",160.16,1,"FIELD",291,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,1,"FIELD",291,2) BLANK "DATA",160.16,1,"FIELD",291,3) L,BLANK "DATA",160.16,1,"FIELD",292,0) 1089^1^1089^PB Pathologic Stage "DATA",160.16,1,"FIELD",292,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,1,"FIELD",292,2) BLANK "DATA",160.16,1,"FIELD",292,3) L,BLANK "DATA",160.16,1,"FIELD",293,0) 1090^1^1090^PB Protocol Eligibility Status "DATA",160.16,1,"FIELD",293,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,1,"FIELD",293,2) BLANK "DATA",160.16,1,"FIELD",293,3) L,BLANK "DATA",160.16,1,"FIELD",294,0) 1091^2^1092^PB Primary Physician "DATA",160.16,1,"FIELD",294,1) S ACDANS=$$GET1~DIQ(165.5,IEN,347,"I") "DATA",160.16,1,"FIELD",294,2) BLANK "DATA",160.16,1,"FIELD",294,3) L,ZERO "DATA",160.16,1,"FIELD",295,0) 1093^2^1094^PB Secondary Physician "DATA",160.16,1,"FIELD",295,1) S ACDANS=$$GET1~DIQ(165.5,IEN,348,"I") "DATA",160.16,1,"FIELD",295,2) BLANK "DATA",160.16,1,"FIELD",295,3) L,ZERO "DATA",160.16,1,"FIELD",296,0) 1095^1^1095^PB Tumor Resection During TURB (Surgery Type 10) "DATA",160.16,1,"FIELD",296,1) S ACDANS=$$GET1~DIQ(165.5,IEN,349,"I") "DATA",160.16,1,"FIELD",296,2) BLANK "DATA",160.16,1,"FIELD",296,3) L,BLANK "DATA",160.16,1,"FIELD",297,0) 1096^1^1096^PB Type of Urinary Diversion (Surgery Type 20-70) "DATA",160.16,1,"FIELD",297,1) S ACDANS=$$GET1~DIQ(165.5,IEN,350,"I") "DATA",160.16,1,"FIELD",297,2) BLANK "DATA",160.16,1,"FIELD",297,3) L,BLANK "DATA",160.16,1,"FIELD",298,0) 1097^1^1097^PB Pelvic Lymph Node Dis. Rad. Surg. (Surg. Type 70) "DATA",160.16,1,"FIELD",298,1) S ACDANS=$$GET1~DIQ(165.5,IEN,351,"I") "DATA",160.16,1,"FIELD",298,2) BLANK "DATA",160.16,1,"FIELD",298,3) L,BLANK "DATA",160.16,1,"FIELD",299,0) 1098^1^1098^PB Bleeding Requiring Transfusion "DATA",160.16,1,"FIELD",299,1) S ACDANS=$$GET1~DIQ(165.5,IEN,352,"I") "DATA",160.16,1,"FIELD",299,2) BLANK "DATA",160.16,1,"FIELD",299,3) L,BLANK "DATA",160.16,1,"FIELD",300,0) 1099^1^1099^PB Deep venous Thrombosis "DATA",160.16,1,"FIELD",300,1) S ACDANS=$$GET1~DIQ(165.5,IEN,353,"I") "DATA",160.16,1,"FIELD",300,2) BLANK "DATA",160.16,1,"FIELD",300,3) L,BLANK "DATA",160.16,1,"FIELD",301,0) 1100^1^1100^PB Myocardial Infarction/arrhythmia "DATA",160.16,1,"FIELD",301,1) S ACDANS=$$GET1~DIQ(165.5,IEN,354,"I") "DATA",160.16,1,"FIELD",301,2) BLANK "DATA",160.16,1,"FIELD",301,3) L,BLANK "DATA",160.16,1,"FIELD",302,0) 1101^1^1101^PB Pelvic Abscess "DATA",160.16,1,"FIELD",302,1) S ACDANS=$$GET1~DIQ(165.5,IEN,355,"I") "DATA",160.16,1,"FIELD",302,2) BLANK "DATA",160.16,1,"FIELD",302,3) L,BLANK "DATA",160.16,1,"FIELD",303,0) 1102^1^1102^PB Pneumonia Requiring Antibiotics "DATA",160.16,1,"FIELD",303,1) S ACDANS=$$GET1~DIQ(165.5,IEN,356,"I") "DATA",160.16,1,"FIELD",303,2) BLANK "DATA",160.16,1,"FIELD",303,3) L,BLANK "DATA",160.16,1,"FIELD",304,0) 1103^1^1103^PB Postoperative death (30 Days) "DATA",160.16,1,"FIELD",304,1) S ACDANS=$$GET1~DIQ(165.5,IEN,357,"I") "DATA",160.16,1,"FIELD",304,2) BLANK "DATA",160.16,1,"FIELD",304,3) L,BLANK "DATA",160.16,1,"FIELD",305,0) 1104^1^1104^PB Pulmonary Embolism/Thrombosis "DATA",160.16,1,"FIELD",305,1) S ACDANS=$$GET1~DIQ(165.5,IEN,358,"I") "DATA",160.16,1,"FIELD",305,2) BLANK "DATA",160.16,1,"FIELD",305,3) L,BLANK "DATA",160.16,1,"FIELD",306,0) 1105^1^1105^PB Re-Operation "DATA",160.16,1,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,359,"I") "DATA",160.16,1,"FIELD",306,2) BLANK "DATA",160.16,1,"FIELD",306,3) L,BLANK "DATA",160.16,1,"FIELD",307,0) 1106^1^1106^PB Other "DATA",160.16,1,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,360,"I") "DATA",160.16,1,"FIELD",307,2) BLANK "DATA",160.16,1,"FIELD",307,3) L,BLANK "DATA",160.16,1,"FIELD",308,0) 1107^8^1114^PB Date Radiation Therapy Ended "DATA",160.16,1,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",308,2) BLANK "DATA",160.16,1,"FIELD",308,3) L,ZERO "DATA",160.16,1,"FIELD",309,0) 1115^5^1119^PB Total Radiation (cGy/Rad.) Dose "DATA",160.16,1,"FIELD",309,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.16,1,"FIELD",309,2) BLANK "DATA",160.16,1,"FIELD",309,3) L,ZERO "DATA",160.16,1,"FIELD",310,0) 1120^2^1121^PB Regional Treatment Modality "DATA",160.16,1,"FIELD",310,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",310,2) BLANK "DATA",160.16,1,"FIELD",310,3) L,ZERO "DATA",160.16,1,"FIELD",311,0) 1122^1^1122^PB Urinary Incontinence "DATA",160.16,1,"FIELD",311,1) S ACDANS=$$GET1~DIQ(165.5,IEN,364,"I") "DATA",160.16,1,"FIELD",311,2) BLANK "DATA",160.16,1,"FIELD",311,3) L,BLANK "DATA",160.16,1,"FIELD",312,0) 1123^1^1123^PB Hematuria "DATA",160.16,1,"FIELD",312,1) S ACDANS=$$GET1~DIQ(165.5,IEN,365,"I") "DATA",160.16,1,"FIELD",312,2) BLANK "DATA",160.16,1,"FIELD",312,3) L,BLANK "DATA",160.16,1,"FIELD",313,0) 1124^1^1124^PB Radiation Bowel Injury "DATA",160.16,1,"FIELD",313,1) S ACDANS=$$GET1~DIQ(165.5,IEN,366,"I") "DATA",160.16,1,"FIELD",313,2) BLANK "DATA",160.16,1,"FIELD",313,3) L,BLANK "DATA",160.16,1,"FIELD",314,0) 1125^8^1132^PB Date Chemotherapy Ended "DATA",160.16,1,"FIELD",314,1) S ACDANS=$$GET1~DIQ(165.5,IEN,367,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,1,"FIELD",314,2) ZERO "DATA",160.16,1,"FIELD",314,3) L,ZERO "DATA",160.16,1,"FIELD",315,0) 1133^1^1133^PB Route Chemotherapy Administered "DATA",160.16,1,"FIELD",315,1) S ACDANS=$$GET1~DIQ(165.5,IEN,368,"I") "DATA",160.16,1,"FIELD",315,2) BLANK "DATA",160.16,1,"FIELD",315,3) L,BLANK "DATA",160.16,1,"FIELD",316,0) 1134^1^1134^PB Adriamycin "DATA",160.16,1,"FIELD",316,1) S ACDANS=$$GET1~DIQ(165.5,IEN,369,"I") "DATA",160.16,1,"FIELD",316,2) BLANK "DATA",160.16,1,"FIELD",316,3) L,BLANK "DATA",160.16,1,"FIELD",317,0) 1135^1^1135^PB Carboplatinum "DATA",160.16,1,"FIELD",317,1) S ACDANS=$$GET1~DIQ(165.5,IEN,370,"I") "DATA",160.16,1,"FIELD",317,2) BLANK "DATA",160.16,1,"FIELD",317,3) L,BLANK "DATA",160.16,1,"FIELD",318,0) 1136^1^1136^PB Cisplatin "DATA",160.16,1,"FIELD",318,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.16,1,"FIELD",318,2) BLANK "DATA",160.16,1,"FIELD",318,3) L,BLANK "DATA",160.16,1,"FIELD",319,0) 1137^1^1137^PB Cyclophosphamide "DATA",160.16,1,"FIELD",319,1) S ACDANS=$$GET1~DIQ(165.5,IEN,372,"I") "DATA",160.16,1,"FIELD",319,2) BLANK "DATA",160.16,1,"FIELD",319,3) L,BLANK "DATA",160.16,1,"FIELD",320,0) 1138^1^1138^PB 5-fluorouracil "DATA",160.16,1,"FIELD",320,1) S ACDANS=$$GET1~DIQ(165.5,IEN,373,"I") "DATA",160.16,1,"FIELD",320,2) BLANK "DATA",160.16,1,"FIELD",320,3) L,BLANK "DATA",160.16,1,"FIELD",321,0) 1139^1^1139^PB Gallium Nitrate "DATA",160.16,1,"FIELD",321,1) S ACDANS=$$GET1~DIQ(165.5,IEN,374,"I") "DATA",160.16,1,"FIELD",321,2) BLANK "DATA",160.16,1,"FIELD",321,3) L,BLANK "DATA",160.16,1,"FIELD",322,0) 1140^1^1140^PB Ifosfamide "DATA",160.16,1,"FIELD",322,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.16,1,"FIELD",322,2) BLANK "DATA",160.16,1,"FIELD",322,3) L,BLANK "DATA",160.16,1,"FIELD",323,0) 1141^1^1141^PB Methotrexate "DATA",160.16,1,"FIELD",323,1) S ACDANS=$$GET1~DIQ(165.5,IEN,376,"I") "DATA",160.16,1,"FIELD",323,2) BLANK "DATA",160.16,1,"FIELD",323,3) L,BLANK "DATA",160.16,1,"FIELD",324,0) 1142^1^1142^PB Taxol "DATA",160.16,1,"FIELD",324,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.16,1,"FIELD",324,2) BLANK "DATA",160.16,1,"FIELD",324,3) L,BLANK "DATA",160.16,1,"FIELD",325,0) 1143^1^1143^PB Thiotepa "DATA",160.16,1,"FIELD",325,1) S ACDANS=$$GET1~DIQ(165.5,IEN,378,"I") "DATA",160.16,1,"FIELD",325,2) BLANK "DATA",160.16,1,"FIELD",325,3) L,BLANK "DATA",160.16,1,"FIELD",326,0) 1144^1^1144^PB Vinblastine "DATA",160.16,1,"FIELD",326,1) S ACDANS=$$GET1~DIQ(165.5,IEN,379,"I") "DATA",160.16,1,"FIELD",326,2) BLANK "DATA",160.16,1,"FIELD",326,3) L,BLANK "DATA",160.16,1,"FIELD",327,0) 1145^1^1145^PB Other "DATA",160.16,1,"FIELD",327,1) S ACDANS=$$GET1~DIQ(165.5,IEN,380,"I") "DATA",160.16,1,"FIELD",327,2) BLANK "DATA",160.16,1,"FIELD",327,3) L,BLANK "DATA",160.16,1,"FIELD",328,0) 1146^1^1146^PB Indication for Admin. of Agent "DATA",160.16,1,"FIELD",328,1) S ACDANS=$$GET1~DIQ(165.5,IEN,381,"I") "DATA",160.16,1,"FIELD",328,2) BLANK "DATA",160.16,1,"FIELD",328,3) L,BLANK "DATA",160.16,1,"FIELD",329,0) 1147^1^1147^PB Reason Chemotherapy Stopped "DATA",160.16,1,"FIELD",329,1) S ACDANS=$$GET1~DIQ(165.5,IEN,382,"I") "DATA",160.16,1,"FIELD",329,2) BLANK "DATA",160.16,1,"FIELD",329,3) L,BLANK "DATA",160.16,1,"FIELD",330,0) 1148^1^1148^PB BCG "DATA",160.16,1,"FIELD",330,1) S ACDANS=$$GET1~DIQ(165.5,IEN,383,"I") "DATA",160.16,1,"FIELD",330,2) BLANK "DATA",160.16,1,"FIELD",330,3) L,BLANK "DATA",160.16,1,"FIELD",331,0) 1149^1^1149^PB Interferon "DATA",160.16,1,"FIELD",331,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.16,1,"FIELD",331,2) BLANK "DATA",160.16,1,"FIELD",331,3) L,BLANK "DATA",160.16,1,"FIELD",332,0) 1150^1^1150^PB Interleukin-II "DATA",160.16,1,"FIELD",332,1) S ACDANS=$$GET1~DIQ(165.5,IEN,385,"I") "DATA",160.16,1,"FIELD",332,2) BLANK "DATA",160.16,1,"FIELD",332,3) L,BLANK "DATA",160.16,1,"FIELD",333,0) 1151^1^1151^PB Other "DATA",160.16,1,"FIELD",333,1) S ACDANS=$$GET1~DIQ(165.5,IEN,386,"I") "DATA",160.16,1,"FIELD",333,2) BLANK "DATA",160.16,1,"FIELD",333,3) L,BLANK "DATA",160.16,1,"FIELD",334,0) 1152^1^1152^PB Type of First Recurrence "DATA",160.16,1,"FIELD",334,1) S ACDANS=$$GET1~DIQ(165.5,IEN,387,"I") "DATA",160.16,1,"FIELD",334,2) BLANK "DATA",160.16,1,"FIELD",334,3) L,BLANK "DATA",160.16,1,"FIELD",335,0) 1153^2^1154^PB Completed By "DATA",160.16,1,"FIELD",335,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.16,1,"FIELD",335,2) BLANK "DATA",160.16,1,"FIELD",335,3) L,BLANK "DATA",160.16,1,"FIELD",336,0) 1155^2^1156^PB Reviewed by Cancer Committee "DATA",160.16,1,"FIELD",336,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.16,1,"FIELD",336,2) BLANK "DATA",160.16,1,"FIELD",336,3) L,BLANK "DATA",160.16,1,"FIELD",337,0) 1157^367^1523^PB Reserved "DATA",160.16,1,"FIELD",337,1) S ACDANS="" "DATA",160.16,1,"FIELD",337,2) BLANK "DATA",160.16,1,"FIELD",337,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,"RULES",0) ^^7^7^2970902^^^^ "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) I $G(^ONCO(165.5,IEN,"BLA1"))="" S JUMP=1026_"^"_1223 "DATA",160.16,1,"RULES",7,0) K SCREEN "DATA",160.16,2,0) NAACCR STATE EXTRACT V5.1 "DATA",160.16,2,"FIELD",0) ^160.161^387^385 "DATA",160.16,2,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,2,"FIELD",1,1) S ACDANS="A" "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) BLANK "DATA",160.16,2,"FIELD",2,3) L,BLANK "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=STAT1 "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) ZERO "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) ZERO "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(IEN) "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") "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=4 "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="" "DATA",160.16,2,"FIELD",68,2) BLANK "DATA",160.16,2,"FIELD",68,3) L,BLANK "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="" "DATA",160.16,2,"FIELD",70,2) BLANK "DATA",160.16,2,"FIELD",70,3) L,BLANK "DATA",160.16,2,"FIELD",71,0) 352^1^352^RX Hosp. Chemo. "DATA",160.16,2,"FIELD",71,1) S ACDANS="" "DATA",160.16,2,"FIELD",71,2) BLANK "DATA",160.16,2,"FIELD",71,3) L,BLANK "DATA",160.16,2,"FIELD",72,0) 353^1^353^RX Hosp. Hormone/steroid "DATA",160.16,2,"FIELD",72,1) S ACDANS="" "DATA",160.16,2,"FIELD",72,2) BLANK "DATA",160.16,2,"FIELD",72,3) L,BLANK "DATA",160.16,2,"FIELD",73,0) 354^1^354^RX Hosp. Bio Response Mod. "DATA",160.16,2,"FIELD",73,1) S ACDANS="" "DATA",160.16,2,"FIELD",73,2) BLANK "DATA",160.16,2,"FIELD",73,3) L,BLANK "DATA",160.16,2,"FIELD",74,0) 355^1^355^RX Hosp. Other Cancer Dir. "DATA",160.16,2,"FIELD",74,1) S ACDANS="" "DATA",160.16,2,"FIELD",74,2) BLANK "DATA",160.16,2,"FIELD",74,3) L,BLANK "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="" "DATA",160.16,2,"FIELD",75,2) BLANK "DATA",160.16,2,"FIELD",75,3) L,BLANK "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="" "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="" "DATA",160.16,2,"FIELD",81,2) BLANK "DATA",160.16,2,"FIELD",81,3) L,BLANK "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) BLANK "DATA",160.16,2,"FIELD",83,3) L,BLANK "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) BLANK "DATA",160.16,2,"FIELD",84,3) L,BLANK "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="" "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) L,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) L,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) L,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) NINE "DATA",160.16,2,"FIELD",92,3) L,NINE "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) L,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) L,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) L,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) NINE "DATA",160.16,2,"FIELD",98,3) L,ZERO "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) L,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) L,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) L,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) NINE "DATA",160.16,2,"FIELD",104,3) L,NINE "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="" "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=$$GET1~DIQ(165.5,IEN,58.2,"I") "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=$$GET1~DIQ(165.5,IEN,74,"I") "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=$$GET1~DIQ(165.5,IEN,59,"I") "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=$$GET1~DIQ(165.5,IEN,23,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.4,ACDANS,.01,"I") "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.1,"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") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.5,ACDANS,.01,"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="3" "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="1" "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="" "DATA",160.16,2,"FIELD",152,2) BLANK "DATA",160.16,2,"FIELD",152,3) L,BLANK "DATA",160.16,2,"FIELD",153,0) 646^2^647^Number of Treatments to Volume "DATA",160.16,2,"FIELD",153,1) S ACDANS="" "DATA",160.16,2,"FIELD",153,2) BLANK "DATA",160.16,2,"FIELD",153,3) L,BLANK "DATA",160.16,2,"FIELD",154,0) 648^3^650^Radiation: Elapsed RX Time (Days) "DATA",160.16,2,"FIELD",154,1) S ACDANS="" "DATA",160.16,2,"FIELD",154,2) BLANK "DATA",160.16,2,"FIELD",154,3) L,BLANK "DATA",160.16,2,"FIELD",155,0) 651^2^652^Radiation Treatment Volume "DATA",160.16,2,"FIELD",155,1) S ACDANS="" "DATA",160.16,2,"FIELD",155,2) BLANK "DATA",160.16,2,"FIELD",155,3) L,BLANK "DATA",160.16,2,"FIELD",156,0) 653^1^653^Location of Radiation Treatment "DATA",160.16,2,"FIELD",156,1) S ACDANS="" "DATA",160.16,2,"FIELD",156,2) BLANK "DATA",160.16,2,"FIELD",156,3) L,BLANK "DATA",160.16,2,"FIELD",157,0) 654^1^654^Intent of Treatment (Radiation) "DATA",160.16,2,"FIELD",157,1) S ACDANS="" "DATA",160.16,2,"FIELD",157,2) BLANK "DATA",160.16,2,"FIELD",157,3) L,BLANK "DATA",160.16,2,"FIELD",158,0) 655^2^656^Regional Treatment Modality "DATA",160.16,2,"FIELD",158,1) S ACDANS="" "DATA",160.16,2,"FIELD",158,2) BLANK "DATA",160.16,2,"FIELD",158,3) L,BLANK "DATA",160.16,2,"FIELD",159,0) 657^1^657^Radiation RX Completion Status "DATA",160.16,2,"FIELD",159,1) S ACDANS="" "DATA",160.16,2,"FIELD",159,2) BLANK "DATA",160.16,2,"FIELD",159,3) L,BLANK "DATA",160.16,2,"FIELD",160,0) 658^1^658^Radiation Local Control Status "DATA",160.16,2,"FIELD",160,1) S ACDANS="" "DATA",160.16,2,"FIELD",160,2) BLANK "DATA",160.16,2,"FIELD",160,3) L,BLANK "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,.071) "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,.071) "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,.071) "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,.071) "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) BLANK "DATA",160.16,2,"FIELD",196,3) L,BLANK "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) BLANK "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) BLANK "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") "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) "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(165.5,IEN,83,"I") "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,11,21,"E") "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 ACDANS'="" S ACDANS=$$DATE~ONCACDU1(($P(ACDANS,"/",3)+200)_$P(ACDANS,"/")_$P(ACDANS,"/",2)) "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="" "DATA",160.16,2,"FIELD",233,2) BLANK "DATA",160.16,2,"FIELD",233,3) L,BLANK "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="VETAFFAIRS" "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",244,0) 1026^1^1026^PB Referred for Treatment To "DATA",160.16,2,"FIELD",244,1) S ACDANS=$$GET1~DIQ(165.5,IEN,300,"I") "DATA",160.16,2,"FIELD",244,2) NINE "DATA",160.16,2,"FIELD",244,3) L,ZERO "DATA",160.16,2,"FIELD",245,0) 1027^2^1028^PB Primary Payer "DATA",160.16,2,"FIELD",245,1) S ACDANS=$$PPAY~ONCACDU2(IEN) "DATA",160.16,2,"FIELD",245,2) ZERO "DATA",160.16,2,"FIELD",245,3) L,ZERO "DATA",160.16,2,"FIELD",246,0) 1029^3^1031^PB Length of Stay "DATA",160.16,2,"FIELD",246,1) S ACDANS=$$GET1~DIQ(165.5,IEN,301,"I") "DATA",160.16,2,"FIELD",246,2) BLANK "DATA",160.16,2,"FIELD",246,3) R,BLANK "DATA",160.16,2,"FIELD",247,0) 1032^1^1032^PB Cervix "DATA",160.16,2,"FIELD",247,1) S ACDANS=$$GET1~DIQ(165.5,IEN,302,"I") "DATA",160.16,2,"FIELD",247,2) BLANK "DATA",160.16,2,"FIELD",247,3) L,BLANK "DATA",160.16,2,"FIELD",248,0) 1033^1^1033^PB Colon "DATA",160.16,2,"FIELD",248,1) S ACDANS=$$GET1~DIQ(165.5,IEN,303,"I") "DATA",160.16,2,"FIELD",248,2) BLANK "DATA",160.16,2,"FIELD",248,3) L,BLANK "DATA",160.16,2,"FIELD",249,0) 1034^1^1034^PB Bladder "DATA",160.16,2,"FIELD",249,1) S ACDANS=$$GET1~DIQ(165.5,IEN,304,"I") "DATA",160.16,2,"FIELD",249,2) BLANK "DATA",160.16,2,"FIELD",249,3) L,BLANK "DATA",160.16,2,"FIELD",250,0) 1035^1^1035^PB Head and Neck "DATA",160.16,2,"FIELD",250,1) S ACDANS=$$GET1~DIQ(165.5,IEN,305,"I") "DATA",160.16,2,"FIELD",250,2) BLANK "DATA",160.16,2,"FIELD",250,3) L,BLANK "DATA",160.16,2,"FIELD",251,0) 1036^1^1036^PB Kidney "DATA",160.16,2,"FIELD",251,1) S ACDANS=$$GET1~DIQ(165.5,IEN,306,"I") "DATA",160.16,2,"FIELD",251,2) BLANK "DATA",160.16,2,"FIELD",251,3) L,BLANK "DATA",160.16,2,"FIELD",252,0) 1037^1^1037^PB Prostate "DATA",160.16,2,"FIELD",252,1) S ACDANS=$$GET1~DIQ(165.5,IEN,307,"I") "DATA",160.16,2,"FIELD",252,2) BLANK "DATA",160.16,2,"FIELD",252,3) L,BLANK "DATA",160.16,2,"FIELD",253,0) 1038^1^1038^PB Other "DATA",160.16,2,"FIELD",253,1) S ACDANS=$$GET1~DIQ(165.5,IEN,308,"I") "DATA",160.16,2,"FIELD",253,2) BLANK "DATA",160.16,2,"FIELD",253,3) L,BLANK "DATA",160.16,2,"FIELD",254,0) 1039^1^1039^PB Bladder "DATA",160.16,2,"FIELD",254,1) S ACDANS=$$GET1~DIQ(165.5,IEN,309,"I") "DATA",160.16,2,"FIELD",254,2) BLANK "DATA",160.16,2,"FIELD",254,3) L,BLANK "DATA",160.16,2,"FIELD",255,0) 1040^1^1040^PB Colon "DATA",160.16,2,"FIELD",255,1) S ACDANS=$$GET1~DIQ(165.5,IEN,310,"I") "DATA",160.16,2,"FIELD",255,2) BLANK "DATA",160.16,2,"FIELD",255,3) L,BLANK "DATA",160.16,2,"FIELD",256,0) 1041^1^1041^PB Lung "DATA",160.16,2,"FIELD",256,1) S ACDANS=$$GET1~DIQ(165.5,IEN,311,"I") "DATA",160.16,2,"FIELD",256,2) BLANK "DATA",160.16,2,"FIELD",256,3) L,BLANK "DATA",160.16,2,"FIELD",257,0) 1042^1^1042^PB Prostate "DATA",160.16,2,"FIELD",257,1) S ACDANS=$$GET1~DIQ(165.5,IEN,312,"I") "DATA",160.16,2,"FIELD",257,2) BLANK "DATA",160.16,2,"FIELD",257,3) L,BLANK "DATA",160.16,2,"FIELD",258,0) 1043^1^1043^PB Other "DATA",160.16,2,"FIELD",258,1) S ACDANS=$$GET1~DIQ(165.5,IEN,313,"I") "DATA",160.16,2,"FIELD",258,2) BLANK "DATA",160.16,2,"FIELD",258,3) L,BLANK "DATA",160.16,2,"FIELD",259,0) 1044^2^1045^PB Smoking History (Pack Per Day) "DATA",160.16,2,"FIELD",259,1) S ACDANS=$$GET1~DIQ(165.5,IEN,314,"I") "DATA",160.16,2,"FIELD",259,2) BLANK "DATA",160.16,2,"FIELD",259,3) L,ZERO "DATA",160.16,2,"FIELD",260,0) 1046^2^1047^PB Duration of Smoking History (Yr.) "DATA",160.16,2,"FIELD",260,1) S ACDANS=$$GET1~DIQ(165.5,IEN,315,"I") "DATA",160.16,2,"FIELD",260,2) BLANK "DATA",160.16,2,"FIELD",260,3) L,ZERO "DATA",160.16,2,"FIELD",261,0) 1048^2^1049^PB Duration of Smoking-Free Hist. (Yr.) "DATA",160.16,2,"FIELD",261,1) S ACDANS=$$GET1~DIQ(165.5,IEN,316,"I") "DATA",160.16,2,"FIELD",261,2) BLANK "DATA",160.16,2,"FIELD",261,3) L,ZERO "DATA",160.16,2,"FIELD",262,0) 1050^1^1050^PB Gross Hematuria "DATA",160.16,2,"FIELD",262,1) S ACDANS=$$GET1~DIQ(165.5,IEN,317,"I") "DATA",160.16,2,"FIELD",262,2) BLANK "DATA",160.16,2,"FIELD",262,3) L,BLANK "DATA",160.16,2,"FIELD",263,0) 1051^1^1051^PB Microscopic Hematuria "DATA",160.16,2,"FIELD",263,1) S ACDANS=$$GET1~DIQ(165.5,IEN,318,"I") "DATA",160.16,2,"FIELD",263,2) BLANK "DATA",160.16,2,"FIELD",263,3) L,BLANK "DATA",160.16,2,"FIELD",264,0) 1052^1^1052^PB Urinary Frequency "DATA",160.16,2,"FIELD",264,1) S ACDANS=$$GET1~DIQ(165.5,IEN,319,"I") "DATA",160.16,2,"FIELD",264,2) BLANK "DATA",160.16,2,"FIELD",264,3) L,BLANK "DATA",160.16,2,"FIELD",265,0) 1053^1^1053^PB Bladder Irritability "DATA",160.16,2,"FIELD",265,1) S ACDANS=$$GET1~DIQ(165.5,IEN,320,"I") "DATA",160.16,2,"FIELD",265,2) BLANK "DATA",160.16,2,"FIELD",265,3) L,BLANK "DATA",160.16,2,"FIELD",266,0) 1054^1^1054^PB Dysuria "DATA",160.16,2,"FIELD",266,1) S ACDANS=$$GET1~DIQ(165.5,IEN,321,"I") "DATA",160.16,2,"FIELD",266,2) BLANK "DATA",160.16,2,"FIELD",266,3) L,BLANK "DATA",160.16,2,"FIELD",267,0) 1055^1^1055^PB Other "DATA",160.16,2,"FIELD",267,1) S ACDANS=$$GET1~DIQ(165.5,IEN,322,"I") "DATA",160.16,2,"FIELD",267,2) BLANK "DATA",160.16,2,"FIELD",267,3) L,BLANK "DATA",160.16,2,"FIELD",268,0) 1056^8^1063^PB Date of onset of Symptoms "DATA",160.16,2,"FIELD",268,1) S ACDANS=$$GET1~DIQ(165.5,IEN,323,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",268,2) BLANK "DATA",160.16,2,"FIELD",268,3) L,BLANK "DATA",160.16,2,"FIELD",269,0) 1064^2^1065^PB Gross Hematuria "DATA",160.16,2,"FIELD",269,1) S ACDANS=$$GET1~DIQ(165.5,IEN,324,"I") "DATA",160.16,2,"FIELD",269,2) BLANK "DATA",160.16,2,"FIELD",269,3) L,ZERO "DATA",160.16,2,"FIELD",270,0) 1066^2^1067^PB Dysuria "DATA",160.16,2,"FIELD",270,1) S ACDANS=$$GET1~DIQ(165.5,IEN,325,"I") "DATA",160.16,2,"FIELD",270,2) BLANK "DATA",160.16,2,"FIELD",270,3) L,ZERO "DATA",160.16,2,"FIELD",271,0) 1068^1^1068^PB Bimanual Examination of Bladder "DATA",160.16,2,"FIELD",271,1) S ACDANS=$$GET1~DIQ(165.5,IEN,326,"I") "DATA",160.16,2,"FIELD",271,2) BLANK "DATA",160.16,2,"FIELD",271,3) L,BLANK "DATA",160.16,2,"FIELD",272,0) 1069^1^1069^PB Cystoscopy with biopsy "DATA",160.16,2,"FIELD",272,1) S ACDANS=$$GET1~DIQ(165.5,IEN,327,"I") "DATA",160.16,2,"FIELD",272,2) BLANK "DATA",160.16,2,"FIELD",272,3) L,BLANK "DATA",160.16,2,"FIELD",273,0) 1070^1^1070^PB Cystoscopy without biopsy "DATA",160.16,2,"FIELD",273,1) S ACDANS=$$GET1~DIQ(165.5,IEN,328,"I") "DATA",160.16,2,"FIELD",273,2) BLANK "DATA",160.16,2,"FIELD",273,3) L,BLANK "DATA",160.16,2,"FIELD",274,0) 1071^1^1071^PB Flow Cytometry "DATA",160.16,2,"FIELD",274,1) S ACDANS=$$GET1~DIQ(165.5,IEN,329,"I") "DATA",160.16,2,"FIELD",274,2) BLANK "DATA",160.16,2,"FIELD",274,3) L,BLANK "DATA",160.16,2,"FIELD",275,0) 1072^1^1072^PB Intravenous Pyelogram "DATA",160.16,2,"FIELD",275,1) S ACDANS=$$GET1~DIQ(165.5,IEN,330,"I") "DATA",160.16,2,"FIELD",275,2) BLANK "DATA",160.16,2,"FIELD",275,3) L,BLANK "DATA",160.16,2,"FIELD",276,0) 1073^1^1073^PB Urine Cytology "DATA",160.16,2,"FIELD",276,1) S ACDANS=$$GET1~DIQ(165.5,IEN,331,"I") "DATA",160.16,2,"FIELD",276,2) BLANK "DATA",160.16,2,"FIELD",276,3) L,BLANK "DATA",160.16,2,"FIELD",277,0) 1074^1^1074^PB Urinalysis "DATA",160.16,2,"FIELD",277,1) S ACDANS=$$GET1~DIQ(165.5,IEN,332,"I") "DATA",160.16,2,"FIELD",277,2) BLANK "DATA",160.16,2,"FIELD",277,3) L,BLANK "DATA",160.16,2,"FIELD",278,0) 1075^1^1075^PB Other "DATA",160.16,2,"FIELD",278,1) S ACDANS=$$GET1~DIQ(165.5,IEN,333,"I") "DATA",160.16,2,"FIELD",278,2) BLANK "DATA",160.16,2,"FIELD",278,3) L,BLANK "DATA",160.16,2,"FIELD",279,0) 1076^1^1076^PB Specialty Making Diagnosis "DATA",160.16,2,"FIELD",279,1) S ACDANS=$$GET1~DIQ(165.5,IEN,334,"I") "DATA",160.16,2,"FIELD",279,2) BLANK "DATA",160.16,2,"FIELD",279,3) L,BLANK "DATA",160.16,2,"FIELD",280,0) 1077^1^1077^PB Abdominal Ultrasound "DATA",160.16,2,"FIELD",280,1) S ACDANS=$$GET1~DIQ(165.5,IEN,335,"I") "DATA",160.16,2,"FIELD",280,2) BLANK "DATA",160.16,2,"FIELD",280,3) L,BLANK "DATA",160.16,2,"FIELD",281,0) 1078^1^1078^PB Bone Imaging "DATA",160.16,2,"FIELD",281,1) S ACDANS=$$GET1~DIQ(165.5,IEN,336,"I") "DATA",160.16,2,"FIELD",281,2) BLANK "DATA",160.16,2,"FIELD",281,3) L,BLANK "DATA",160.16,2,"FIELD",282,0) 1079^1^1079^PB Chest X-Ray "DATA",160.16,2,"FIELD",282,1) S ACDANS=$$GET1~DIQ(165.5,IEN,337,"I") "DATA",160.16,2,"FIELD",282,2) BLANK "DATA",160.16,2,"FIELD",282,3) L,BLANK "DATA",160.16,2,"FIELD",283,0) 1080^1^1080^PB CT Chest/Lung "DATA",160.16,2,"FIELD",283,1) S ACDANS=$$GET1~DIQ(165.5,IEN,338,"I") "DATA",160.16,2,"FIELD",283,2) BLANK "DATA",160.16,2,"FIELD",283,3) L,BLANK "DATA",160.16,2,"FIELD",284,0) 1081^1^1081^PB CT Abdomen/Pelvis "DATA",160.16,2,"FIELD",284,1) S ACDANS=$$GET1~DIQ(165.5,IEN,339,"I") "DATA",160.16,2,"FIELD",284,2) BLANK "DATA",160.16,2,"FIELD",284,3) L,BLANK "DATA",160.16,2,"FIELD",285,0) 1082^1^1082^PB CT Other "DATA",160.16,2,"FIELD",285,1) S ACDANS=$$GET1~DIQ(165.5,IEN,340,"I") "DATA",160.16,2,"FIELD",285,2) BLANK "DATA",160.16,2,"FIELD",285,3) L,BLANK "DATA",160.16,2,"FIELD",286,0) 1083^1^1083^PB MRI Pelvis/Abdomen "DATA",160.16,2,"FIELD",286,1) S ACDANS=$$GET1~DIQ(165.5,IEN,341,"I") "DATA",160.16,2,"FIELD",286,2) BLANK "DATA",160.16,2,"FIELD",286,3) L,BLANK "DATA",160.16,2,"FIELD",287,0) 1084^1^1084^PB MRI Other "DATA",160.16,2,"FIELD",287,1) S ACDANS=$$GET1~DIQ(165.5,IEN,342,"I") "DATA",160.16,2,"FIELD",287,2) BLANK "DATA",160.16,2,"FIELD",287,3) L,BLANK "DATA",160.16,2,"FIELD",288,0) 1085^1^1085^PB Other "DATA",160.16,2,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,343,"I") "DATA",160.16,2,"FIELD",288,2) BLANK "DATA",160.16,2,"FIELD",288,3) L,BLANK "DATA",160.16,2,"FIELD",289,0) 1086^1^1086^PB Presence of Hydronephrosis "DATA",160.16,2,"FIELD",289,1) S ACDANS=$$GET1~DIQ(165.5,IEN,344,"I") "DATA",160.16,2,"FIELD",289,2) BLANK "DATA",160.16,2,"FIELD",289,3) L,BLANK "DATA",160.16,2,"FIELD",290,0) 1087^1^1087^PB Presence of Multiple Tumors "DATA",160.16,2,"FIELD",290,1) S ACDANS=$$GET1~DIQ(165.5,IEN,345,"I") "DATA",160.16,2,"FIELD",290,2) BLANK "DATA",160.16,2,"FIELD",290,3) L,BLANK "DATA",160.16,2,"FIELD",291,0) 1088^1^1088^PB Clinical Stage "DATA",160.16,2,"FIELD",291,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,2,"FIELD",291,2) BLANK "DATA",160.16,2,"FIELD",291,3) L,BLANK "DATA",160.16,2,"FIELD",292,0) 1089^1^1089^PB Pathologic Stage "DATA",160.16,2,"FIELD",292,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,2,"FIELD",292,2) BLANK "DATA",160.16,2,"FIELD",292,3) L,BLANK "DATA",160.16,2,"FIELD",293,0) 1090^1^1090^PB Protocol Eligibility Status "DATA",160.16,2,"FIELD",293,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,2,"FIELD",293,2) BLANK "DATA",160.16,2,"FIELD",293,3) L,BLANK "DATA",160.16,2,"FIELD",294,0) 1091^2^1092^PB Primary Physician "DATA",160.16,2,"FIELD",294,1) S ACDANS=$$GET1~DIQ(165.5,IEN,347,"I") "DATA",160.16,2,"FIELD",294,2) BLANK "DATA",160.16,2,"FIELD",294,3) L,ZERO "DATA",160.16,2,"FIELD",295,0) 1093^2^1094^PB Secondary Physician "DATA",160.16,2,"FIELD",295,1) S ACDANS=$$GET1~DIQ(165.5,IEN,348,"I") "DATA",160.16,2,"FIELD",295,2) BLANK "DATA",160.16,2,"FIELD",295,3) L,ZERO "DATA",160.16,2,"FIELD",296,0) 1095^1^1095^PB Tumor Resection During TURB (Surgery Type 10) "DATA",160.16,2,"FIELD",296,1) S ACDANS=$$GET1~DIQ(165.5,IEN,349,"I") "DATA",160.16,2,"FIELD",296,2) BLANK "DATA",160.16,2,"FIELD",296,3) L,BLANK "DATA",160.16,2,"FIELD",297,0) 1096^1^1096^PB Type of Urinary Diversion (Surgery Type 20-70) "DATA",160.16,2,"FIELD",297,1) S ACDANS=$$GET1~DIQ(165.5,IEN,350,"I") "DATA",160.16,2,"FIELD",297,2) BLANK "DATA",160.16,2,"FIELD",297,3) L,BLANK "DATA",160.16,2,"FIELD",298,0) 1097^1^1097^PB Pelvic Lymph Node Dis. Rad. Surg. (Surg. Type 70) "DATA",160.16,2,"FIELD",298,1) S ACDANS=$$GET1~DIQ(165.5,IEN,351,"I") "DATA",160.16,2,"FIELD",298,2) BLANK "DATA",160.16,2,"FIELD",298,3) L,BLANK "DATA",160.16,2,"FIELD",299,0) 1098^1^1098^PB Bleeding Requiring Transfusion "DATA",160.16,2,"FIELD",299,1) S ACDANS=$$GET1~DIQ(165.5,IEN,352,"I") "DATA",160.16,2,"FIELD",299,2) BLANK "DATA",160.16,2,"FIELD",299,3) L,BLANK "DATA",160.16,2,"FIELD",300,0) 1099^1^1099^PB Deep venous Thrombosis "DATA",160.16,2,"FIELD",300,1) S ACDANS=$$GET1~DIQ(165.5,IEN,353,"I") "DATA",160.16,2,"FIELD",300,2) BLANK "DATA",160.16,2,"FIELD",300,3) L,BLANK "DATA",160.16,2,"FIELD",301,0) 1100^1^1100^PB Myocardial Infarction/arrhythmia "DATA",160.16,2,"FIELD",301,1) S ACDANS=$$GET1~DIQ(165.5,IEN,354,"I") "DATA",160.16,2,"FIELD",301,2) BLANK "DATA",160.16,2,"FIELD",301,3) L,BLANK "DATA",160.16,2,"FIELD",302,0) 1101^1^1101^PB Pelvic Abscess "DATA",160.16,2,"FIELD",302,1) S ACDANS=$$GET1~DIQ(165.5,IEN,355,"I") "DATA",160.16,2,"FIELD",302,2) BLANK "DATA",160.16,2,"FIELD",302,3) L,BLANK "DATA",160.16,2,"FIELD",303,0) 1102^1^1102^PB Pneumonia Requiring Antibiotics "DATA",160.16,2,"FIELD",303,1) S ACDANS=$$GET1~DIQ(165.5,IEN,356,"I") "DATA",160.16,2,"FIELD",303,2) BLANK "DATA",160.16,2,"FIELD",303,3) L,BLANK "DATA",160.16,2,"FIELD",304,0) 1103^1^1103^PB Postoperative death (30 Days) "DATA",160.16,2,"FIELD",304,1) S ACDANS=$$GET1~DIQ(165.5,IEN,357,"I") "DATA",160.16,2,"FIELD",304,2) BLANK "DATA",160.16,2,"FIELD",304,3) L,BLANK "DATA",160.16,2,"FIELD",305,0) 1104^1^1104^PB Pulmonary Embolism/Thrombosis "DATA",160.16,2,"FIELD",305,1) S ACDANS=$$GET1~DIQ(165.5,IEN,358,"I") "DATA",160.16,2,"FIELD",305,2) BLANK "DATA",160.16,2,"FIELD",305,3) L,BLANK "DATA",160.16,2,"FIELD",306,0) 1105^1^1105^PB Re-Operation "DATA",160.16,2,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,359,"I") "DATA",160.16,2,"FIELD",306,2) BLANK "DATA",160.16,2,"FIELD",306,3) L,BLANK "DATA",160.16,2,"FIELD",307,0) 1106^1^1106^PB Other "DATA",160.16,2,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,360,"I") "DATA",160.16,2,"FIELD",307,2) BLANK "DATA",160.16,2,"FIELD",307,3) L,BLANK "DATA",160.16,2,"FIELD",308,0) 1107^8^1114^PB Date Radiation Therapy Ended "DATA",160.16,2,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,361,"I") S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",308,2) BLANK "DATA",160.16,2,"FIELD",308,3) L,ZERO "DATA",160.16,2,"FIELD",309,0) 1115^5^1119^PB Total Radiation (cGy/Rad.) Dose "DATA",160.16,2,"FIELD",309,1) S ACDANS=$$GET1~DIQ(165.5,IEN,362,"I") "DATA",160.16,2,"FIELD",309,2) BLANK "DATA",160.16,2,"FIELD",309,3) L,ZERO "DATA",160.16,2,"FIELD",310,0) 1120^2^1121^PB Regional Treatment Modality "DATA",160.16,2,"FIELD",310,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",310,2) BLANK "DATA",160.16,2,"FIELD",310,3) L,ZERO "DATA",160.16,2,"FIELD",311,0) 1122^1^1122^PB Urinary Incontinence "DATA",160.16,2,"FIELD",311,1) S ACDANS=$$GET1~DIQ(165.5,IEN,364,"I") "DATA",160.16,2,"FIELD",311,2) BLANK "DATA",160.16,2,"FIELD",311,3) L,BLANK "DATA",160.16,2,"FIELD",312,0) 1123^1^1123^PB Hematuria "DATA",160.16,2,"FIELD",312,1) S ACDANS=$$GET1~DIQ(165.5,IEN,365,"I") "DATA",160.16,2,"FIELD",312,2) BLANK "DATA",160.16,2,"FIELD",312,3) L,BLANK "DATA",160.16,2,"FIELD",313,0) 1124^1^1124^PB Radiation Bowel Injury "DATA",160.16,2,"FIELD",313,1) S ACDANS=$$GET1~DIQ(165.5,IEN,366,"I") "DATA",160.16,2,"FIELD",313,2) BLANK "DATA",160.16,2,"FIELD",313,3) L,BLANK "DATA",160.16,2,"FIELD",314,0) 1125^8^1132^PB Date Chemotherapy Ended "DATA",160.16,2,"FIELD",314,1) S ACDANS=$$GET1~DIQ(165.5,IEN,367,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,2,"FIELD",314,2) ZERO "DATA",160.16,2,"FIELD",314,3) L,ZERO "DATA",160.16,2,"FIELD",315,0) 1133^1^1133^PB Route Chemotherapy Administered "DATA",160.16,2,"FIELD",315,1) S ACDANS=$$GET1~DIQ(165.5,IEN,368,"I") "DATA",160.16,2,"FIELD",315,2) BLANK "DATA",160.16,2,"FIELD",315,3) L,BLANK "DATA",160.16,2,"FIELD",316,0) 1134^1^1134^PB Adriamycin "DATA",160.16,2,"FIELD",316,1) S ACDANS=$$GET1~DIQ(165.5,IEN,369,"I") "DATA",160.16,2,"FIELD",316,2) BLANK "DATA",160.16,2,"FIELD",316,3) L,BLANK "DATA",160.16,2,"FIELD",317,0) 1135^1^1135^PB Carboplatinum "DATA",160.16,2,"FIELD",317,1) S ACDANS=$$GET1~DIQ(165.5,IEN,370,"I") "DATA",160.16,2,"FIELD",317,2) BLANK "DATA",160.16,2,"FIELD",317,3) L,BLANK "DATA",160.16,2,"FIELD",318,0) 1136^1^1136^PB Cisplatin "DATA",160.16,2,"FIELD",318,1) S ACDANS=$$GET1~DIQ(165.5,IEN,371,"I") "DATA",160.16,2,"FIELD",318,2) BLANK "DATA",160.16,2,"FIELD",318,3) L,BLANK "DATA",160.16,2,"FIELD",319,0) 1137^1^1137^PB Cyclophosphamide "DATA",160.16,2,"FIELD",319,1) S ACDANS=$$GET1~DIQ(165.5,IEN,372,"I") "DATA",160.16,2,"FIELD",319,2) BLANK "DATA",160.16,2,"FIELD",319,3) L,BLANK "DATA",160.16,2,"FIELD",320,0) 1138^1^1138^PB 5-fluorouracil "DATA",160.16,2,"FIELD",320,1) S ACDANS=$$GET1~DIQ(165.5,IEN,373,"I") "DATA",160.16,2,"FIELD",320,2) BLANK "DATA",160.16,2,"FIELD",320,3) L,BLANK "DATA",160.16,2,"FIELD",321,0) 1139^1^1139^PB Gallium Nitrate "DATA",160.16,2,"FIELD",321,1) S ACDANS=$$GET1~DIQ(165.5,IEN,374,"I") "DATA",160.16,2,"FIELD",321,2) BLANK "DATA",160.16,2,"FIELD",321,3) L,BLANK "DATA",160.16,2,"FIELD",322,0) 1140^1^1140^PB Ifosfamide "DATA",160.16,2,"FIELD",322,1) S ACDANS=$$GET1~DIQ(165.5,IEN,375,"I") "DATA",160.16,2,"FIELD",322,2) BLANK "DATA",160.16,2,"FIELD",322,3) L,BLANK "DATA",160.16,2,"FIELD",323,0) 1141^1^1141^PB Methotrexate "DATA",160.16,2,"FIELD",323,1) S ACDANS=$$GET1~DIQ(165.5,IEN,376,"I") "DATA",160.16,2,"FIELD",323,2) BLANK "DATA",160.16,2,"FIELD",323,3) L,BLANK "DATA",160.16,2,"FIELD",324,0) 1142^1^1142^PB Taxol "DATA",160.16,2,"FIELD",324,1) S ACDANS=$$GET1~DIQ(165.5,IEN,377,"I") "DATA",160.16,2,"FIELD",324,2) BLANK "DATA",160.16,2,"FIELD",324,3) L,BLANK "DATA",160.16,2,"FIELD",325,0) 1143^1^1143^PB Thiotepa "DATA",160.16,2,"FIELD",325,1) S ACDANS=$$GET1~DIQ(165.5,IEN,378,"I") "DATA",160.16,2,"FIELD",325,2) BLANK "DATA",160.16,2,"FIELD",325,3) L,BLANK "DATA",160.16,2,"FIELD",326,0) 1144^1^1144^PB Vinblastine "DATA",160.16,2,"FIELD",326,1) S ACDANS=$$GET1~DIQ(165.5,IEN,379,"I") "DATA",160.16,2,"FIELD",326,2) BLANK "DATA",160.16,2,"FIELD",326,3) L,BLANK "DATA",160.16,2,"FIELD",327,0) 1145^1^1145^PB Other "DATA",160.16,2,"FIELD",327,1) S ACDANS=$$GET1~DIQ(165.5,IEN,380,"I") "DATA",160.16,2,"FIELD",327,2) BLANK "DATA",160.16,2,"FIELD",327,3) L,BLANK "DATA",160.16,2,"FIELD",328,0) 1146^1^1146^PB Indication for Admin. of Agent "DATA",160.16,2,"FIELD",328,1) S ACDANS=$$GET1~DIQ(165.5,IEN,381,"I") "DATA",160.16,2,"FIELD",328,2) BLANK "DATA",160.16,2,"FIELD",328,3) L,BLANK "DATA",160.16,2,"FIELD",329,0) 1147^1^1147^PB Reason Chemotherapy Stopped "DATA",160.16,2,"FIELD",329,1) S ACDANS=$$GET1~DIQ(165.5,IEN,382,"I") "DATA",160.16,2,"FIELD",329,2) BLANK "DATA",160.16,2,"FIELD",329,3) L,BLANK "DATA",160.16,2,"FIELD",330,0) 1148^1^1148^PB BCG "DATA",160.16,2,"FIELD",330,1) S ACDANS=$$GET1~DIQ(165.5,IEN,383,"I") "DATA",160.16,2,"FIELD",330,2) BLANK "DATA",160.16,2,"FIELD",330,3) L,BLANK "DATA",160.16,2,"FIELD",331,0) 1149^1^1149^PB Interferon "DATA",160.16,2,"FIELD",331,1) S ACDANS=$$GET1~DIQ(165.5,IEN,384,"I") "DATA",160.16,2,"FIELD",331,2) BLANK "DATA",160.16,2,"FIELD",331,3) L,BLANK "DATA",160.16,2,"FIELD",332,0) 1150^1^1150^PB Interleukin-II "DATA",160.16,2,"FIELD",332,1) S ACDANS=$$GET1~DIQ(165.5,IEN,385,"I") "DATA",160.16,2,"FIELD",332,2) BLANK "DATA",160.16,2,"FIELD",332,3) L,BLANK "DATA",160.16,2,"FIELD",333,0) 1151^1^1151^PB Other "DATA",160.16,2,"FIELD",333,1) S ACDANS=$$GET1~DIQ(165.5,IEN,386,"I") "DATA",160.16,2,"FIELD",333,2) BLANK "DATA",160.16,2,"FIELD",333,3) L,BLANK "DATA",160.16,2,"FIELD",334,0) 1152^1^1152^PB Type of First Recurrence "DATA",160.16,2,"FIELD",334,1) S ACDANS=$$GET1~DIQ(165.5,IEN,387,"I") "DATA",160.16,2,"FIELD",334,2) BLANK "DATA",160.16,2,"FIELD",334,3) L,BLANK "DATA",160.16,2,"FIELD",335,0) 1153^2^1154^PB Completed By "DATA",160.16,2,"FIELD",335,1) S ACDANS=$$GET1~DIQ(165.5,IEN,81,"I") "DATA",160.16,2,"FIELD",335,2) BLANK "DATA",160.16,2,"FIELD",335,3) L,BLANK "DATA",160.16,2,"FIELD",336,0) 1155^2^1156^PB Reviewed by Cancer Committee "DATA",160.16,2,"FIELD",336,1) S ACDANS=$$GET1~DIQ(165.5,IEN,82,"I") "DATA",160.16,2,"FIELD",336,2) BLANK "DATA",160.16,2,"FIELD",336,3) L,BLANK "DATA",160.16,2,"FIELD",337,0) 1157^367^1523^PB Reserved "DATA",160.16,2,"FIELD",337,1) S ACDANS="" "DATA",160.16,2,"FIELD",337,2) BLANK "DATA",160.16,2,"FIELD",337,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,"FIELD",339,0) 1526^25^1550^Name-Last "DATA",160.16,2,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,2,"FIELD",339,2) BLANK "DATA",160.16,2,"FIELD",339,3) R,BLANK "DATA",160.16,2,"FIELD",340,0) 1551^14^1564^Name-First "DATA",160.16,2,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,2,"FIELD",340,2) BLANK "DATA",160.16,2,"FIELD",340,3) R,BLANK "DATA",160.16,2,"FIELD",341,0) 1565^14^1578^Name-Middle "DATA",160.16,2,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,2,"FIELD",341,2) BLANK "DATA",160.16,2,"FIELD",341,3) R,BLANK "DATA",160.16,2,"FIELD",342,0) 1579^3^1581^Name-Prefix "DATA",160.16,2,"FIELD",342,1) S ACDANS="" "DATA",160.16,2,"FIELD",342,2) BLANK "DATA",160.16,2,"FIELD",342,3) R,BLANK "DATA",160.16,2,"FIELD",343,0) 1582^3^1584^Name-Suffix "DATA",160.16,2,"FIELD",343,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,2,"FIELD",343,2) BLANK "DATA",160.16,2,"FIELD",343,3) R,BLANK "DATA",160.16,2,"FIELD",344,0) 1585^15^1599^Name-Alias "DATA",160.16,2,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,2,"FIELD",344,2) BLANK "DATA",160.16,2,"FIELD",344,3) R,BLANK "DATA",160.16,2,"FIELD",345,0) 1600^50^1649^Name-Spouse "DATA",160.16,2,"FIELD",345,1) S ACDANS="" "DATA",160.16,2,"FIELD",345,2) BLANK "DATA",160.16,2,"FIELD",345,3) R,BLANK "DATA",160.16,2,"FIELD",346,0) 1650^11^1660^Medical Record NBR "DATA",160.16,2,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,2,"FIELD",346,2) BLANK "DATA",160.16,2,"FIELD",346,3) L,BLANK "DATA",160.16,2,"FIELD",347,0) 1661^2^1662^Military Suffix "DATA",160.16,2,"FIELD",347,1) S ACDANS="" "DATA",160.16,2,"FIELD",347,2) BLANK "DATA",160.16,2,"FIELD",347,3) L,ZERO "DATA",160.16,2,"FIELD",348,0) 1663^9^1671^Social Security NBR "DATA",160.16,2,"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,2,"FIELD",348,2) BLANK "DATA",160.16,2,"FIELD",348,3) L,BLANK "DATA",160.16,2,"FIELD",349,0) 1672^25^1696^Address at DX-Street "DATA",160.16,2,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,2,"FIELD",349,2) BLANK "DATA",160.16,2,"FIELD",349,3) R,BLANK "DATA",160.16,2,"FIELD",351,0) 1727^25^1751^Address-Current Street "DATA",160.16,2,"FIELD",351,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,2,"FIELD",351,2) BLANK "DATA",160.16,2,"FIELD",351,3) R,BLANK "DATA",160.16,2,"FIELD",352,0) 1752^10^1761^Telephone Number "DATA",160.16,2,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") "DATA",160.16,2,"FIELD",352,2) ZERO "DATA",160.16,2,"FIELD",352,3) R,BLANK "DATA",160.16,2,"FIELD",353,0) 1762^2^1763^DC State "DATA",160.16,2,"FIELD",353,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,2,"FIELD",353,2) BLANK "DATA",160.16,2,"FIELD",353,3) L,BLANK "DATA",160.16,2,"FIELD",354,0) 1764^6^1769^DC State File NBR "DATA",160.16,2,"FIELD",354,1) S ACDANS="" "DATA",160.16,2,"FIELD",354,2) BLANK "DATA",160.16,2,"FIELD",354,3) L,BLANK "DATA",160.16,2,"FIELD",355,0) 1770^15^1784^Maiden-Name "DATA",160.16,2,"FIELD",355,1) S ACDANS="" "DATA",160.16,2,"FIELD",355,2) BLANK "DATA",160.16,2,"FIELD",355,3) R,BLANK "DATA",160.16,2,"FIELD",356,0) 1785^28^1812^Reserved "DATA",160.16,2,"FIELD",356,1) S ACDANS="" "DATA",160.16,2,"FIELD",356,2) BLANK "DATA",160.16,2,"FIELD",356,3) L,BLANK "DATA",160.16,2,"FIELD",357,0) 1813^6^1818^Institution Referred from "DATA",160.16,2,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,2,"FIELD",357,2) ZERO "DATA",160.16,2,"FIELD",357,3) L,BLANK "DATA",160.16,2,"FIELD",358,0) 1819^6^1824^Institution Referred to "DATA",160.16,2,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,2,"FIELD",358,2) ZERO "DATA",160.16,2,"FIELD",358,3) L,ZERO "DATA",160.16,2,"FIELD",359,0) 1825^6^1830^Last Follow up Hospital "DATA",160.16,2,"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,2,"FIELD",359,2) BLANK "DATA",160.16,2,"FIELD",359,3) L,ZERO "DATA",160.16,2,"FIELD",360,0) 1831^6^1836^Following Registry "DATA",160.16,2,"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,2,"FIELD",360,2) BLANK "DATA",160.16,2,"FIELD",360,3) L,ZERO "DATA",160.16,2,"FIELD",361,0) 1837^10^1846^Reserved "DATA",160.16,2,"FIELD",361,1) S ACDANS="" "DATA",160.16,2,"FIELD",361,2) BLANK "DATA",160.16,2,"FIELD",361,3) L,BLANK "DATA",160.16,2,"FIELD",362,0) 1847^8^1854^Managing Physician "DATA",160.16,2,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,2,"FIELD",362,2) NINE "DATA",160.16,2,"FIELD",362,3) L,BLANK "DATA",160.16,2,"FIELD",363,0) 1855^8^1862^Following Physician "DATA",160.16,2,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,2,"FIELD",363,2) BLANK "DATA",160.16,2,"FIELD",363,3) L,BLANK "DATA",160.16,2,"FIELD",364,0) 1863^8^1870^Primary Surgeon "DATA",160.16,2,"FIELD",364,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,2,"FIELD",364,2) ZERO "DATA",160.16,2,"FIELD",364,3) L,ZERO "DATA",160.16,2,"FIELD",365,0) 1871^8^1878^Other Physician 3 "DATA",160.16,2,"FIELD",365,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,2,"FIELD",365,2) ZERO "DATA",160.16,2,"FIELD",365,3) L,ZERO "DATA",160.16,2,"FIELD",366,0) 1879^8^1886^Other Physician 4 "DATA",160.16,2,"FIELD",366,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,2,"FIELD",366,2) ZERO "DATA",160.16,2,"FIELD",366,3) L,ZERO "DATA",160.16,2,"FIELD",367,0) 1887^30^1916^Reserved "DATA",160.16,2,"FIELD",367,1) S ACDANS="" "DATA",160.16,2,"FIELD",367,2) BLANK "DATA",160.16,2,"FIELD",367,3) L,BLANK "DATA",160.16,2,"FIELD",368,0) 1917^200^2116^Text-DX Proc-PE "DATA",160.16,2,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,2,"FIELD",368,2) BLANK "DATA",160.16,2,"FIELD",368,3) R,BLANK "DATA",160.16,2,"FIELD",369,0) 2117^250^2366^Text-DX Proc-XRAY "DATA",160.16,2,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,2,"FIELD",369,2) BLANK "DATA",160.16,2,"FIELD",369,3) R,BLANK "DATA",160.16,2,"FIELD",370,0) 2367^250^2616^Text-DX Proc-Scopes "DATA",160.16,2,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,2,"FIELD",370,2) BLANK "DATA",160.16,2,"FIELD",370,3) R,BLANK "DATA",160.16,2,"FIELD",371,0) 2617^250^2866^Text-DX Proc-Lab "DATA",160.16,2,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,2,"FIELD",371,2) BLANK "DATA",160.16,2,"FIELD",371,3) R,BLANK "DATA",160.16,2,"FIELD",372,0) 2867^250^3116^Text-DX Proc-OPS "DATA",160.16,2,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,2,"FIELD",372,2) BLANK "DATA",160.16,2,"FIELD",372,3) R,BLANK "DATA",160.16,2,"FIELD",373,0) 3117^250^3366^Text-DX Proc-PATH "DATA",160.16,2,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,2,"FIELD",373,2) BLANK "DATA",160.16,2,"FIELD",373,3) R,BLANK "DATA",160.16,2,"FIELD",374,0) 3367^40^3406^Text-Primary Site "DATA",160.16,2,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,2,"FIELD",374,2) BLANK "DATA",160.16,2,"FIELD",374,3) R,BLANK "DATA",160.16,2,"FIELD",375,0) 3407^40^3446^Text-Histology "DATA",160.16,2,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,2,"FIELD",375,2) BLANK "DATA",160.16,2,"FIELD",375,3) R,BLANK "DATA",160.16,2,"FIELD",376,0) 3447^300^3746^Text-Staging "DATA",160.16,2,"FIELD",376,1) S ACDANS="" "DATA",160.16,2,"FIELD",376,2) BLANK "DATA",160.16,2,"FIELD",376,3) R,BLANK "DATA",160.16,2,"FIELD",377,0) 3747^150^3896^Text-RX-Surgery "DATA",160.16,2,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,2,"FIELD",377,2) BLANK "DATA",160.16,2,"FIELD",377,3) R,BLANK "DATA",160.16,2,"FIELD",378,0) 3897^150^4046^Text-RX-RAD(Beam) "DATA",160.16,2,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,2,"FIELD",378,2) BLANK "DATA",160.16,2,"FIELD",378,3) R,BLANK "DATA",160.16,2,"FIELD",379,0) 4047^150^4196^Text-RX-RAD-Other "DATA",160.16,2,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,2,"FIELD",379,2) BLANK "DATA",160.16,2,"FIELD",379,3) R,BLANK "DATA",160.16,2,"FIELD",380,0) 4197^200^4396^Text-RX-Chemo "DATA",160.16,2,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,2,"FIELD",380,2) BLANK "DATA",160.16,2,"FIELD",380,3) R,BLANK "DATA",160.16,2,"FIELD",381,0) 4397^200^4596^Text-RX-Hormone "DATA",160.16,2,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,2,"FIELD",381,2) BLANK "DATA",160.16,2,"FIELD",381,3) R,BLANK "DATA",160.16,2,"FIELD",382,0) 4597^100^4696^Text-RX-Immunotherapy "DATA",160.16,2,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,2,"FIELD",382,2) BLANK "DATA",160.16,2,"FIELD",382,3) R,BLANK "DATA",160.16,2,"FIELD",383,0) 4697^100^4796^Text-RX-Other "DATA",160.16,2,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,2,"FIELD",383,2) BLANK "DATA",160.16,2,"FIELD",383,3) R,BLANK "DATA",160.16,2,"FIELD",384,0) 4797^350^5146^Text-Remarks "DATA",160.16,2,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,2,"FIELD",384,2) BLANK "DATA",160.16,2,"FIELD",384,3) R,BLANK "DATA",160.16,2,"FIELD",385,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,2,"FIELD",385,1) S ACDANS="" "DATA",160.16,2,"FIELD",385,2) BLANK "DATA",160.16,2,"FIELD",385,3) R,BLANK "DATA",160.16,2,"FIELD",386,0) 5197^770^5966^Reserved "DATA",160.16,2,"FIELD",386,1) S ACDANS="" "DATA",160.16,2,"FIELD",386,2) BLANK "DATA",160.16,2,"FIELD",386,3) L,BLANK "DATA",160.16,2,"FIELD",387,0) 1697^30^1726^Reserved for Expansion "DATA",160.16,2,"FIELD",387,1) S ACDANS="" "DATA",160.16,2,"FIELD",387,2) BLANK "DATA",160.16,2,"FIELD",387,3) L,BLANK "DATA",160.16,2,"RULES",0) ^^4^4^2970902^^^^ "DATA",160.16,2,"RULES",1,0) S VALID=1 "DATA",160.16,2,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,2,"RULES",3,0) S JUMP=1026_"^"_1525 "DATA",160.16,2,"RULES",4,0) K SCREEN "DATA",160.16,3,0) NAACCR STATE EXTRACT V5.0 "DATA",160.16,3,"FIELD",0) ^160.161^405^399 "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) BLANK "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=STAT1 "DATA",160.16,3,"FIELD",4,2) BLANK "DATA",160.16,3,"FIELD",4,3) L,BLANK "DATA",160.16,3,"FIELD",6,0) 107^2^108^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) 19^20^38^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) 39^2^40^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) 41^3^43^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) 44^9^52^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) 53^6^58^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) 59^1^59^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",15,0) 60^1^60^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) 61^2^62^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) 63^1^63^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) 64^1^64^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) 65^1^65^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) 99^1^99^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) 100^1^100^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) 66^1^66^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) 67^3^69^Age at Diagnosis "DATA",160.16,3,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",23,2) ZERO "DATA",160.16,3,"FIELD",23,3) L,ZERO "DATA",160.16,3,"FIELD",24,0) 70^8^77^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) ZERO "DATA",160.16,3,"FIELD",24,3) L,ZERO "DATA",160.16,3,"FIELD",25,0) 78^3^80^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) 81^2^82^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) 83^3^85^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) 86^3^88^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) 89^4^92^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) 93^4^96^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) 4381^50^4430^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) 4431^50^4480^Usual Industry (Text) "DATA",160.16,3,"FIELD",32,1) S ACDANS=$$OCCUP~ONCACDU1(IEN) "DATA",160.16,3,"FIELD",32,2) BLANK "DATA",160.16,3,"FIELD",32,3) R,BLANK "DATA",160.16,3,"FIELD",33,0) 97^1^97^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) 98^1^98^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",39,0) 109^2^110^Sequence Number-Central "DATA",160.16,3,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,3,"FIELD",39,2) BLANK "DATA",160.16,3,"FIELD",39,3) L,BLANK "DATA",160.16,3,"FIELD",40,0) 111^8^118^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) 119^4^122^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) 123^1^123^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) 124^4^127^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) 128^1^128^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) 129^1^129^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) 130^1^130^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) 131^1^131^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) 132^1^132^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) 133^1^133^Morph. Coding System-Org. "DATA",160.16,3,"FIELD",49,1) S ACDANS=4 "DATA",160.16,3,"FIELD",49,2) ZERO "DATA",160.16,3,"FIELD",49,3) L,ZERO "DATA",160.16,3,"FIELD",50,0) 134^1^134^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) 135^1^135^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",55,0) 142^8^149^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) 150^6^155^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",58,0) 156^3^158^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) 159^8^166^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",61,0) 167^8^174^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) 175^1^175^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",68,0) 176^2^177^RX Hospital-CA Directed Surgery "DATA",160.16,3,"FIELD",68,1) S ACDANS="" "DATA",160.16,3,"FIELD",68,2) BLANK "DATA",160.16,3,"FIELD",68,3) L,BLANK "DATA",160.16,3,"FIELD",70,0) 178^1^178^RX Hosp. Radiation "DATA",160.16,3,"FIELD",70,1) S ACDANS="" "DATA",160.16,3,"FIELD",70,2) BLANK "DATA",160.16,3,"FIELD",70,3) L,BLANK "DATA",160.16,3,"FIELD",71,0) 179^1^179^RX Hosp. Chemo. "DATA",160.16,3,"FIELD",71,1) S ACDANS="" "DATA",160.16,3,"FIELD",71,2) BLANK "DATA",160.16,3,"FIELD",71,3) L,BLANK "DATA",160.16,3,"FIELD",72,0) 180^1^180^RX Hosp. Hormone/steroid "DATA",160.16,3,"FIELD",72,1) S ACDANS="" "DATA",160.16,3,"FIELD",72,2) BLANK "DATA",160.16,3,"FIELD",72,3) L,BLANK "DATA",160.16,3,"FIELD",73,0) 181^1^181^RX Hosp. Bio Response Mod. "DATA",160.16,3,"FIELD",73,1) S ACDANS="" "DATA",160.16,3,"FIELD",73,2) BLANK "DATA",160.16,3,"FIELD",73,3) L,BLANK "DATA",160.16,3,"FIELD",74,0) 182^1^182^RX Hosp. Other Cancer Dir. "DATA",160.16,3,"FIELD",74,1) S ACDANS="" "DATA",160.16,3,"FIELD",74,2) BLANK "DATA",160.16,3,"FIELD",74,3) L,BLANK "DATA",160.16,3,"FIELD",77,0) 183^1^183^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) 184^1^184^Local/Regional/Distant Stage "DATA",160.16,3,"FIELD",78,1) S ACDANS="" "DATA",160.16,3,"FIELD",78,2) BLANK "DATA",160.16,3,"FIELD",78,3) L,BLANK "DATA",160.16,3,"FIELD",79,0) 185^3^187^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) 188^2^189^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) 239^2^240^EOD Pathologic for Prostate "DATA",160.16,3,"FIELD",81,1) S ACDANS="" "DATA",160.16,3,"FIELD",81,2) BLANK "DATA",160.16,3,"FIELD",81,3) L,BLANK "DATA",160.16,3,"FIELD",82,0) 190^1^190^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) 191^2^192^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) BLANK "DATA",160.16,3,"FIELD",83,3) L,BLANK "DATA",160.16,3,"FIELD",84,0) 193^2^194^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) BLANK "DATA",160.16,3,"FIELD",84,3) L,BLANK "DATA",160.16,3,"FIELD",85,0) 195^13^207^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) 208^2^209^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) 210^4^213^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",89,0) 214^2^215^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) L,BLANK "DATA",160.16,3,"FIELD",90,0) 216^2^217^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) L,BLANK "DATA",160.16,3,"FIELD",91,0) 218^1^218^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) L,BLANK "DATA",160.16,3,"FIELD",92,0) 219^2^220^Pathologic Stage Group "DATA",160.16,3,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,3,"FIELD",92,2) NINE "DATA",160.16,3,"FIELD",92,3) L,NINE "DATA",160.16,3,"FIELD",95,0) 221^2^222^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) L,BLANK "DATA",160.16,3,"FIELD",96,0) 223^2^224^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) L,BLANK "DATA",160.16,3,"FIELD",97,0) 225^1^225^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) L,BLANK "DATA",160.16,3,"FIELD",98,0) 226^2^227^Clinical Stage Group "DATA",160.16,3,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,3,"FIELD",98,2) NINE "DATA",160.16,3,"FIELD",98,3) L,ZERO "DATA",160.16,3,"FIELD",107,0) 228^1^228^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",110,0) 229^1^229^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) 230^1^230^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) 231^1^231^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",116,0) 237^1^237^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) 238^1^238^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",121,0) 252^8^259^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) 260^8^267^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) 268^8^275^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) 276^8^283^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) 284^8^291^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) 292^8^299^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) 300^8^307^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",130,0) 308^2^309^RX Summary-Surgery Type "DATA",160.16,3,"FIELD",130,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.2,"I") "DATA",160.16,3,"FIELD",130,2) ZERO "DATA",160.16,3,"FIELD",130,3) L,ZERO "DATA",160.16,3,"FIELD",133,0) 232^1^232^Residual Tumor "DATA",160.16,3,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,3,"FIELD",133,2) BLANK "DATA",160.16,3,"FIELD",133,3) L,BLANK "DATA",160.16,3,"FIELD",135,0) 310^1^310^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",137,0) 311^1^311^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) 312^1^312^RX Summary-Rad. to CNS "DATA",160.16,3,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.1,"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) 313^1^313^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) 314^1^314^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) 315^1^315^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) 316^1^316^RX Summary- BRM "DATA",160.16,3,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.5,ACDANS,.01,"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) 317^1^317^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",147,0) 251^1^251^RX Coding System-Current "DATA",160.16,3,"FIELD",147,1) S ACDANS="3" "DATA",160.16,3,"FIELD",147,2) ZERO "DATA",160.16,3,"FIELD",147,3) L,ZERO "DATA",160.16,3,"FIELD",151,0) 318^1^318^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",167,0) 338^8^345^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) 346^2^347^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) 348^1^348^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) 349^1^349^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) 350^1^350^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) 351^1^351^Subseq RX - Code (#2) Biological "DATA",160.16,3,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.071) "DATA",160.16,3,"FIELD",172,2) BLANK "DATA",160.16,3,"FIELD",172,3) L,BLANK "DATA",160.16,3,"FIELD",173,0) 352^1^352^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) 353^8^360^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) 361^2^362^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) 363^1^363^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) 364^1^364^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) 365^1^365^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) 366^1^366^Subseq RX - Code (#3) Biological "DATA",160.16,3,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.071) "DATA",160.16,3,"FIELD",179,2) BLANK "DATA",160.16,3,"FIELD",179,3) L,BLANK "DATA",160.16,3,"FIELD",180,0) 367^1^367^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) 368^8^375^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) 376^2^377^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) 378^1^378^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) 379^1^379^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) 380^1^380^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) 381^1^381^Subseq RX - Code (#4) Biological "DATA",160.16,3,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.071) "DATA",160.16,3,"FIELD",186,2) BLANK "DATA",160.16,3,"FIELD",186,3) L,BLANK "DATA",160.16,3,"FIELD",187,0) 382^1^382^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) 383^8^390^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) 391^2^392^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) 393^1^393^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) 394^1^394^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) 395^1^395^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) 396^1^396^Subseq RX - Code (#5) Biological "DATA",160.16,3,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.071) "DATA",160.16,3,"FIELD",193,2) BLANK "DATA",160.16,3,"FIELD",193,3) L,BLANK "DATA",160.16,3,"FIELD",194,0) 397^1^397^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",196,0) 418^8^425^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) BLANK "DATA",160.16,3,"FIELD",196,3) L,BLANK "DATA",160.16,3,"FIELD",197,0) 426^1^426^Vital Status "DATA",160.16,3,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,3,"FIELD",197,2) BLANK "DATA",160.16,3,"FIELD",197,3) L,BLANK "DATA",160.16,3,"FIELD",198,0) 427^1^427^Cancer Status "DATA",160.16,3,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,3,"FIELD",198,2) BLANK "DATA",160.16,3,"FIELD",198,3) L,BLANK "DATA",160.16,3,"FIELD",199,0) 428^1^428^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) 429^1^429^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",202,0) 430^20^449^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) 450^2^451^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) 452^9^460^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",207,0) 461^8^468^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) 470^3^472^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) 469^1^469^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",213,0) 473^4^476^Cause of Death "DATA",160.16,3,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) "DATA",160.16,3,"FIELD",213,2) ZERO "DATA",160.16,3,"FIELD",213,3) L,ZERO "DATA",160.16,3,"FIELD",214,0) 477^1^477^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) 478^1^478^Autopsy "DATA",160.16,3,"FIELD",215,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,3,"FIELD",215,2) BLANK "DATA",160.16,3,"FIELD",215,3) L,BLANK "DATA",160.16,3,"FIELD",216,0) 479^3^481^Place of death "DATA",160.16,3,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,11,21,"E") "DATA",160.16,3,"FIELD",216,2) BLANK "DATA",160.16,3,"FIELD",216,3) L,BLANK "DATA",160.16,3,"FIELD",218,0) 491^4^494^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) 495^6^500^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) 501^1^501^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) 482^1^482^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) 483^1^483^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) 484^1^484^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) 485^1^485^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) 486^1^486^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) 487^1^487^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) 488^1^488^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) 489^1^489^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) 490^1^490^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",231,0) 503^8^510^Date Case Completed "DATA",160.16,3,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90) I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(($P(ACDANS,"/",3)+200)_$P(ACDANS,"/")_$P(ACDANS,"/",2)) "DATA",160.16,3,"FIELD",231,2) BLANK "DATA",160.16,3,"FIELD",231,3) L,BLANK "DATA",160.16,3,"FIELD",232,0) 511^8^518^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",234,0) 521^1^521^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) 522^1^522^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) 523^1^523^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) 524^1^524^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) 525^1^525^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) 526^10^535^Vender Name "DATA",160.16,3,"FIELD",239,1) S ACDANS="VETAFFAIRS" "DATA",160.16,3,"FIELD",239,2) BLANK "DATA",160.16,3,"FIELD",239,3) L,BLANK "DATA",160.16,3,"FIELD",240,0) 537^1^537^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) 538^2^539^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) 540^2^541^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",339,0) 851^15^865^Name-Last "DATA",160.16,3,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,3,"FIELD",339,2) BLANK "DATA",160.16,3,"FIELD",339,3) R,BLANK "DATA",160.16,3,"FIELD",340,0) 866^14^879^Name-First "DATA",160.16,3,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,3,"FIELD",340,2) BLANK "DATA",160.16,3,"FIELD",340,3) R,BLANK "DATA",160.16,3,"FIELD",341,0) 880^1^880^Name-Middle "DATA",160.16,3,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,3,"FIELD",341,2) BLANK "DATA",160.16,3,"FIELD",341,3) R,BLANK "DATA",160.16,3,"FIELD",344,0) 881^15^895^Name-Alias "DATA",160.16,3,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,3,"FIELD",344,2) BLANK "DATA",160.16,3,"FIELD",344,3) R,BLANK "DATA",160.16,3,"FIELD",345,0) 896^50^945^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) 946^11^956^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",348,0) 957^9^965^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) BLANK "DATA",160.16,3,"FIELD",348,3) L,BLANK "DATA",160.16,3,"FIELD",349,0) 966^25^990^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",352,0) 1046^10^1055^Telephone Number "DATA",160.16,3,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") "DATA",160.16,3,"FIELD",352,2) ZERO "DATA",160.16,3,"FIELD",352,3) R,BLANK "DATA",160.16,3,"FIELD",354,0) 1056^6^1061^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) 1062^15^1076^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) 1077^5^1081^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) 1082^8^1089^Institution Referred from "DATA",160.16,3,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,3,"FIELD",357,2) ZERO "DATA",160.16,3,"FIELD",357,3) L,BLANK "DATA",160.16,3,"FIELD",358,0) 1090^8^1097^Institution Referred to "DATA",160.16,3,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,3,"FIELD",358,2) ZERO "DATA",160.16,3,"FIELD",358,3) L,ZERO "DATA",160.16,3,"FIELD",359,0) 1098^8^1105^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",362,0) 1114^8^1121^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) 1122^8^1129^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",368,0) 1151^200^1350^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) 1351^250^1600^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) 1601^250^1850^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) 1851^250^2100^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) 2101^250^2350^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) 2351^250^2600^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) 2601^40^2640^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) 2641^40^2680^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) 2681^300^2980^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) 2981^150^3130^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) 3131^150^3280^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) 3281^150^3430^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) 3431^200^3630^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) 3631^200^3830^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) 3831^100^3930^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) 3931^100^4030^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) 4031^350^4380^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) 4481^50^4530^Place of Diagnosis "DATA",160.16,3,"FIELD",385,1) S ACDANS="" "DATA",160.16,3,"FIELD",385,2) BLANK "DATA",160.16,3,"FIELD",385,3) R,BLANK "DATA",160.16,3,"FIELD",386,0) 4531^770^5300^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",388,0) 101^6^106^Reserved for expansion "DATA",160.16,3,"FIELD",388,1) S ACDANS="" "DATA",160.16,3,"FIELD",388,2) BLANK "DATA",160.16,3,"FIELD",388,3) L,BLANK "DATA",160.16,3,"FIELD",389,0) 136^2^137^Accession Year "DATA",160.16,3,"FIELD",389,1) S ACDANS=$E(DATE,3,4) "DATA",160.16,3,"FIELD",389,2) BLANK "DATA",160.16,3,"FIELD",389,3) L,BLANK "DATA",160.16,3,"FIELD",390,0) 138^4^141^Reserved for expansion "DATA",160.16,3,"FIELD",390,1) S ACDANS="" "DATA",160.16,3,"FIELD",390,2) BLANK "DATA",160.16,3,"FIELD",390,3) L,BLANK "DATA",160.16,3,"FIELD",391,0) 233^4^236^Alternate Staging Scheme "DATA",160.16,3,"FIELD",391,1) S ACDANS="" "DATA",160.16,3,"FIELD",391,2) BLANK "DATA",160.16,3,"FIELD",391,3) L,BLANK "DATA",160.16,3,"FIELD",392,0) 241^10^250^Reserved for expansion "DATA",160.16,3,"FIELD",392,1) S ACDANS="" "DATA",160.16,3,"FIELD",392,2) BLANK "DATA",160.16,3,"FIELD",392,3) L,BLANK "DATA",160.16,3,"FIELD",393,0) 319^19^337^Reserved for expansion "DATA",160.16,3,"FIELD",393,1) S ACDANS="" "DATA",160.16,3,"FIELD",393,2) BLANK "DATA",160.16,3,"FIELD",393,3) L,BLANK "DATA",160.16,3,"FIELD",394,0) 398^20^417^Reserved for expansion "DATA",160.16,3,"FIELD",394,1) S ACDANS="" "DATA",160.16,3,"FIELD",394,2) BLANK "DATA",160.16,3,"FIELD",394,3) BLANK "DATA",160.16,3,"FIELD",395,0) 502^1^502^Reserved for expansion "DATA",160.16,3,"FIELD",395,1) S ACDANS="" "DATA",160.16,3,"FIELD",395,2) BLANK "DATA",160.16,3,"FIELD",395,3) L,BLANK "DATA",160.16,3,"FIELD",396,0) 519^2^520^General Coding Procedure "DATA",160.16,3,"FIELD",396,1) S ACDANS="" "DATA",160.16,3,"FIELD",396,2) BLANK "DATA",160.16,3,"FIELD",396,3) L,BLANK "DATA",160.16,3,"FIELD",397,0) 536^1^536^NAACCR Record version "DATA",160.16,3,"FIELD",397,1) S ACDANS="4" "DATA",160.16,3,"FIELD",397,2) BLANK "DATA",160.16,3,"FIELD",397,3) L,BLANK "DATA",160.16,3,"FIELD",398,0) 542^1^542^Coding System for EOD "DATA",160.16,3,"FIELD",398,1) S ACDANS="" "DATA",160.16,3,"FIELD",398,2) BLANK "DATA",160.16,3,"FIELD",398,3) L,BLANK "DATA",160.16,3,"FIELD",399,0) 543^8^550^Reserved for expansion "DATA",160.16,3,"FIELD",399,1) S ACDANS="" "DATA",160.16,3,"FIELD",399,2) BLANK "DATA",160.16,3,"FIELD",399,3) L,BLANK "DATA",160.16,3,"FIELD",400,0) 551^200^750^Site-Specific Studies "DATA",160.16,3,"FIELD",400,1) S ACDANS="" "DATA",160.16,3,"FIELD",400,2) BLANK "DATA",160.16,3,"FIELD",400,3) L,BLANK "DATA",160.16,3,"FIELD",401,0) 751^100^850^State-Specific Studies "DATA",160.16,3,"FIELD",401,1) S ACDANS="" "DATA",160.16,3,"FIELD",401,2) BLANK "DATA",160.16,3,"FIELD",401,3) L,BLANK "DATA",160.16,3,"FIELD",402,0) 991^30^1020^Followup Contact Name "DATA",160.16,3,"FIELD",402,1) S ACDANS="" "DATA",160.16,3,"FIELD",402,2) BLANK "DATA",160.16,3,"FIELD",402,3) L,BLANK "DATA",160.16,3,"FIELD",403,0) 1021^25^1045^Followup Contact Address "DATA",160.16,3,"FIELD",403,1) S ACDANS="" "DATA",160.16,3,"FIELD",403,2) BLANK "DATA",160.16,3,"FIELD",403,3) L,BLANK "DATA",160.16,3,"FIELD",404,0) 1106^8^1113^Next Followup Hospital "DATA",160.16,3,"FIELD",404,1) S ACDANS="" "DATA",160.16,3,"FIELD",404,2) BLANK "DATA",160.16,3,"FIELD",404,3) L,BLANK "DATA",160.16,3,"FIELD",405,0) 1130^21^1150^Reserved for expansion "DATA",160.16,3,"FIELD",405,1) S ACDANS="" "DATA",160.16,3,"FIELD",405,2) BLANK "DATA",160.16,3,"FIELD",405,3) L,BLANK "DATA",160.16,3,"RULES",0) ^^4^4^2970826^^^^ "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 V4.0 "DATA",160.16,4,"FIELD",0) ^160.161^406^392 "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) BLANK "DATA",160.16,4,"FIELD",2,3) L,BLANK "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=STAT1 "DATA",160.16,4,"FIELD",4,2) BLANK "DATA",160.16,4,"FIELD",4,3) L,BLANK "DATA",160.16,4,"FIELD",6,0) 107^2^108^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) 19^20^38^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) 39^2^40^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) 41^3^43^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) 44^9^52^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) 53^6^58^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) 59^1^59^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",15,0) 60^1^60^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) 61^2^62^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) 63^1^63^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) 64^1^64^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) 65^1^65^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) 99^2^100^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",22,0) 66^1^66^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) 67^3^69^Age at Diagnosis "DATA",160.16,4,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,4,"FIELD",23,2) ZERO "DATA",160.16,4,"FIELD",23,3) L,ZERO "DATA",160.16,4,"FIELD",24,0) 70^8^77^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) ZERO "DATA",160.16,4,"FIELD",24,3) L,ZERO "DATA",160.16,4,"FIELD",25,0) 78^3^80^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) 81^2^82^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) 83^3^85^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) 86^3^88^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) 89^4^92^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) 93^4^96^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) 4381^100^4480^Usual Occupation/Industry (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",33,0) 97^1^97^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) 98^1^98^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",39,0) 109^2^110^Sequence Number "DATA",160.16,4,"FIELD",39,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,4,"FIELD",39,2) BLANK "DATA",160.16,4,"FIELD",39,3) L,BLANK "DATA",160.16,4,"FIELD",40,0) 111^8^118^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) 119^4^122^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) 123^1^123^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) 124^4^127^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) 128^1^128^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) 129^1^129^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) 130^1^130^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) 131^1^131^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) 132^1^132^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) 133^1^133^Morph. Coding System-Org. "DATA",160.16,4,"FIELD",49,1) S ACDANS=4 "DATA",160.16,4,"FIELD",49,2) ZERO "DATA",160.16,4,"FIELD",49,3) L,ZERO "DATA",160.16,4,"FIELD",50,0) 134^1^134^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) 135^1^135^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",55,0) 142^8^149^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) 150^6^155^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",58,0) 156^3^158^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) 159^8^166^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",61,0) 167^8^174^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) 175^1^175^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",68,0) 176^2^177^RX Hospital-CA Directed Surgery "DATA",160.16,4,"FIELD",68,1) S ACDANS="" "DATA",160.16,4,"FIELD",68,2) BLANK "DATA",160.16,4,"FIELD",68,3) L,BLANK "DATA",160.16,4,"FIELD",70,0) 178^1^178^RX Hosp. Radiation "DATA",160.16,4,"FIELD",70,1) S ACDANS="" "DATA",160.16,4,"FIELD",70,2) BLANK "DATA",160.16,4,"FIELD",70,3) L,BLANK "DATA",160.16,4,"FIELD",71,0) 179^1^179^RX Hosp. Chemo. "DATA",160.16,4,"FIELD",71,1) S ACDANS="" "DATA",160.16,4,"FIELD",71,2) BLANK "DATA",160.16,4,"FIELD",71,3) L,BLANK "DATA",160.16,4,"FIELD",72,0) 180^1^180^RX Hosp. Hormone/steroid "DATA",160.16,4,"FIELD",72,1) S ACDANS="" "DATA",160.16,4,"FIELD",72,2) BLANK "DATA",160.16,4,"FIELD",72,3) L,BLANK "DATA",160.16,4,"FIELD",73,0) 181^1^181^RX Hosp. Bio Response Mod. "DATA",160.16,4,"FIELD",73,1) S ACDANS="" "DATA",160.16,4,"FIELD",73,2) BLANK "DATA",160.16,4,"FIELD",73,3) L,BLANK "DATA",160.16,4,"FIELD",74,0) 182^1^182^RX Hosp. Other Cancer Dir. "DATA",160.16,4,"FIELD",74,1) S ACDANS="" "DATA",160.16,4,"FIELD",74,2) BLANK "DATA",160.16,4,"FIELD",74,3) L,BLANK "DATA",160.16,4,"FIELD",77,0) 183^1^183^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) 184^1^184^Local/Regional/Distant Stage "DATA",160.16,4,"FIELD",78,1) S ACDANS="" "DATA",160.16,4,"FIELD",78,2) BLANK "DATA",160.16,4,"FIELD",78,3) L,BLANK "DATA",160.16,4,"FIELD",79,0) 185^3^187^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) 188^2^189^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",82,0) 190^1^190^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) 191^2^192^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) BLANK "DATA",160.16,4,"FIELD",83,3) L,BLANK "DATA",160.16,4,"FIELD",84,0) 193^2^194^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) BLANK "DATA",160.16,4,"FIELD",84,3) L,BLANK "DATA",160.16,4,"FIELD",85,0) 195^13^207^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) 208^2^209^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) 210^4^213^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",89,0) 214^2^215^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) L,BLANK "DATA",160.16,4,"FIELD",90,0) 216^2^217^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) L,BLANK "DATA",160.16,4,"FIELD",91,0) 218^1^218^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) L,BLANK "DATA",160.16,4,"FIELD",92,0) 219^2^220^Pathologic Stage Group "DATA",160.16,4,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,4,"FIELD",92,2) NINE "DATA",160.16,4,"FIELD",92,3) L,NINE "DATA",160.16,4,"FIELD",95,0) 221^2^222^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) L,BLANK "DATA",160.16,4,"FIELD",96,0) 223^2^224^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) L,BLANK "DATA",160.16,4,"FIELD",97,0) 225^1^225^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) L,BLANK "DATA",160.16,4,"FIELD",107,0) 226^1^226^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",110,0) 229^1^229^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) 230^1^230^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) 231^1^231^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",116,0) 237^1^237^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) 238^1^238^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",121,0) 252^8^259^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) 260^8^267^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) 268^8^275^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) 276^8^283^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) 284^8^291^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) 292^8^299^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) 300^8^307^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",130,0) 308^2^309^RX Summary-Surgery Type "DATA",160.16,4,"FIELD",130,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.2,"I") "DATA",160.16,4,"FIELD",130,2) ZERO "DATA",160.16,4,"FIELD",130,3) L,ZERO "DATA",160.16,4,"FIELD",133,0) 232^1^232^Residual Tumor "DATA",160.16,4,"FIELD",133,1) S ACDANS=$$GET1~DIQ(165.5,IEN,59,"I") "DATA",160.16,4,"FIELD",133,2) BLANK "DATA",160.16,4,"FIELD",133,3) L,BLANK "DATA",160.16,4,"FIELD",135,0) 310^1^310^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",137,0) 311^1^311^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) 312^1^312^RX Summary-Rad. to CNS "DATA",160.16,4,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.1,"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) 313^1^313^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) 314^1^314^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) 315^1^315^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) 316^1^316^RX Summary- BRM "DATA",160.16,4,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.5,ACDANS,.01,"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) 317^1^317^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",147,0) 251^1^251^RX Coding System-Current "DATA",160.16,4,"FIELD",147,1) S ACDANS="3" "DATA",160.16,4,"FIELD",147,2) ZERO "DATA",160.16,4,"FIELD",147,3) L,ZERO "DATA",160.16,4,"FIELD",151,0) 318^1^318^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",167,0) 338^8^345^Subseq RX - Date (#1) "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) 346^2^347^Subseq RX - Code (#1) 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) 348^1^348^Subseq RX - Code (#1) 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) 349^1^349^Subseq RX - Code (#1) 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) 350^1^350^Subseq RX - Code (#1) 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) 351^1^351^Subseq RX - Code (#1) Biological "DATA",160.16,4,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.071) "DATA",160.16,4,"FIELD",172,2) BLANK "DATA",160.16,4,"FIELD",172,3) L,BLANK "DATA",160.16,4,"FIELD",173,0) 352^1^352^Subseq RX - Code (#1) 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) 353^8^360^Subseq RX - Date (#2) "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) 361^2^362^Subseq RX - Code (#2) 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) 363^1^363^Subseq RX - Code (#2) 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) 364^1^364^Subseq RX - Code (#2) 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) 365^1^365^Subseq RX - Code (#2) 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) 366^1^366^Subseq RX - Code (#2) Biological "DATA",160.16,4,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.071) "DATA",160.16,4,"FIELD",179,2) BLANK "DATA",160.16,4,"FIELD",179,3) L,BLANK "DATA",160.16,4,"FIELD",180,0) 367^1^367^Subseq RX - Code (#2) 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) 368^8^375^Subseq RX - Date (#3) "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) 376^2^377^Subseq RX - Code (#3) 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) 378^1^378^Subseq RX - Code (#3) 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) 379^1^379^Subseq RX - Code (#3) 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) 380^1^380^Subseq RX - Code (#3) 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) 381^1^381^Subseq RX - Code (#3) Biological "DATA",160.16,4,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.071) "DATA",160.16,4,"FIELD",186,2) BLANK "DATA",160.16,4,"FIELD",186,3) L,BLANK "DATA",160.16,4,"FIELD",187,0) 382^1^382^Subseq RX - Code (#3) 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) 383^8^390^Subseq RX - Date (#4) "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) 391^2^392^Subseq RX - Code (#4) 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) 393^1^393^Subseq RX - Code (#4) 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) 394^1^394^Subseq RX - Code (#4) 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) 395^1^395^Subseq RX - Code (#4) 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) 396^1^396^Subseq RX - Code (#4) Biological "DATA",160.16,4,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.071) "DATA",160.16,4,"FIELD",193,2) BLANK "DATA",160.16,4,"FIELD",193,3) L,BLANK "DATA",160.16,4,"FIELD",194,0) 397^1^397^Subseq RX - Code (#4) 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",196,0) 418^8^425^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) BLANK "DATA",160.16,4,"FIELD",196,3) L,BLANK "DATA",160.16,4,"FIELD",197,0) 426^1^426^Vital Status "DATA",160.16,4,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1) "DATA",160.16,4,"FIELD",197,2) BLANK "DATA",160.16,4,"FIELD",197,3) L,BLANK "DATA",160.16,4,"FIELD",198,0) 427^1^427^Cancer Status "DATA",160.16,4,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,4,"FIELD",198,2) BLANK "DATA",160.16,4,"FIELD",198,3) L,BLANK "DATA",160.16,4,"FIELD",199,0) 428^1^428^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) 429^1^429^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",202,0) 430^20^449^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) 450^2^451^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) 452^9^460^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",207,0) 461^8^468^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) 470^3^472^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) 469^1^469^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",213,0) 473^4^476^Cause of Death "DATA",160.16,4,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) "DATA",160.16,4,"FIELD",213,2) ZERO "DATA",160.16,4,"FIELD",213,3) L,ZERO "DATA",160.16,4,"FIELD",214,0) 477^1^477^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) 478^1^478^Autopsy "DATA",160.16,4,"FIELD",215,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,4,"FIELD",215,2) BLANK "DATA",160.16,4,"FIELD",215,3) L,BLANK "DATA",160.16,4,"FIELD",216,0) 479^3^481^Place of death "DATA",160.16,4,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,11,21,"E") "DATA",160.16,4,"FIELD",216,2) BLANK "DATA",160.16,4,"FIELD",216,3) L,BLANK "DATA",160.16,4,"FIELD",218,0) 491^4^494^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) 495^6^500^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) 501^1^501^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) 482^1^482^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) 483^1^483^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) 484^1^484^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) 485^1^485^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) 486^1^486^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) 487^1^487^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) 488^1^488^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) 489^1^489^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) 490^1^490^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) 503^8^510^Date Case Completed "DATA",160.16,4,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90) I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(($P(ACDANS,"/",3)+200)_$P(ACDANS,"/")_$P(ACDANS,"/",2)) "DATA",160.16,4,"FIELD",231,2) BLANK "DATA",160.16,4,"FIELD",231,3) L,BLANK "DATA",160.16,4,"FIELD",232,0) 511^8^518^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",234,0) 521^1^521^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) 522^1^522^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) 523^1^523^COC Coding System Current "DATA",160.16,4,"FIELD",236,1) S ACDANS=6 "DATA",160.16,4,"FIELD",236,2) BLANK "DATA",160.16,4,"FIELD",236,3) L,BLANK "DATA",160.16,4,"FIELD",237,0) 524^1^524^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) 525^1^525^Subseq Report for Primary "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) 526^10^535^Vender Name "DATA",160.16,4,"FIELD",239,1) S ACDANS="VETAFFAIRS" "DATA",160.16,4,"FIELD",239,2) BLANK "DATA",160.16,4,"FIELD",239,3) L,BLANK "DATA",160.16,4,"FIELD",339,0) 851^15^865^Name-Last "DATA",160.16,4,"FIELD",339,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") "DATA",160.16,4,"FIELD",339,2) BLANK "DATA",160.16,4,"FIELD",339,3) R,BLANK "DATA",160.16,4,"FIELD",340,0) 866^14^879^Name-First "DATA",160.16,4,"FIELD",340,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,4,"FIELD",340,2) BLANK "DATA",160.16,4,"FIELD",340,3) R,BLANK "DATA",160.16,4,"FIELD",341,0) 880^1^880^Name-Middle "DATA",160.16,4,"FIELD",341,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,4,"FIELD",341,2) BLANK "DATA",160.16,4,"FIELD",341,3) R,BLANK "DATA",160.16,4,"FIELD",344,0) 881^15^895^Name-Alias "DATA",160.16,4,"FIELD",344,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,4,"FIELD",344,2) BLANK "DATA",160.16,4,"FIELD",344,3) R,BLANK "DATA",160.16,4,"FIELD",345,0) 896^50^945^Name-Spouse "DATA",160.16,4,"FIELD",345,1) S ACDANS="" "DATA",160.16,4,"FIELD",345,2) BLANK "DATA",160.16,4,"FIELD",345,3) R,BLANK "DATA",160.16,4,"FIELD",346,0) 946^11^956^Medical Record NBR "DATA",160.16,4,"FIELD",346,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E") "DATA",160.16,4,"FIELD",346,2) BLANK "DATA",160.16,4,"FIELD",346,3) L,BLANK "DATA",160.16,4,"FIELD",348,0) 957^9^965^Social Security NBR "DATA",160.16,4,"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,4,"FIELD",348,2) BLANK "DATA",160.16,4,"FIELD",348,3) L,BLANK "DATA",160.16,4,"FIELD",349,0) 966^25^990^Address at DX-Street "DATA",160.16,4,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,4,"FIELD",349,2) BLANK "DATA",160.16,4,"FIELD",349,3) R,BLANK "DATA",160.16,4,"FIELD",352,0) 1046^10^1055^Telephone Number "DATA",160.16,4,"FIELD",352,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") "DATA",160.16,4,"FIELD",352,2) ZERO "DATA",160.16,4,"FIELD",352,3) R,BLANK "DATA",160.16,4,"FIELD",354,0) 1056^6^1061^DC State File NBR "DATA",160.16,4,"FIELD",354,1) S ACDANS="" "DATA",160.16,4,"FIELD",354,2) BLANK "DATA",160.16,4,"FIELD",354,3) L,BLANK "DATA",160.16,4,"FIELD",355,0) 1062^15^1076^Maiden-Name "DATA",160.16,4,"FIELD",355,1) S ACDANS="" "DATA",160.16,4,"FIELD",355,2) BLANK "DATA",160.16,4,"FIELD",355,3) R,BLANK "DATA",160.16,4,"FIELD",356,0) 1077^5^1081^Reserved "DATA",160.16,4,"FIELD",356,1) S ACDANS="" "DATA",160.16,4,"FIELD",356,2) BLANK "DATA",160.16,4,"FIELD",356,3) L,BLANK "DATA",160.16,4,"FIELD",357,0) 1082^8^1089^Institution Referred from "DATA",160.16,4,"FIELD",357,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") "DATA",160.16,4,"FIELD",357,2) ZERO "DATA",160.16,4,"FIELD",357,3) L,BLANK "DATA",160.16,4,"FIELD",358,0) 1090^8^1097^Institution Referred to "DATA",160.16,4,"FIELD",358,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") "DATA",160.16,4,"FIELD",358,2) ZERO "DATA",160.16,4,"FIELD",358,3) L,ZERO "DATA",160.16,4,"FIELD",359,0) 1098^8^1105^Last Follow up Hospital "DATA",160.16,4,"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,4,"FIELD",359,2) BLANK "DATA",160.16,4,"FIELD",359,3) L,ZERO "DATA",160.16,4,"FIELD",362,0) 1114^8^1121^Managing Physician "DATA",160.16,4,"FIELD",362,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,4,"FIELD",362,2) NINE "DATA",160.16,4,"FIELD",362,3) L,BLANK "DATA",160.16,4,"FIELD",363,0) 1122^8^1129^Following Physician "DATA",160.16,4,"FIELD",363,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,4,"FIELD",363,2) BLANK "DATA",160.16,4,"FIELD",363,3) L,BLANK "DATA",160.16,4,"FIELD",368,0) 1151^200^1350^Text-DX Proc-PE "DATA",160.16,4,"FIELD",368,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,4,"FIELD",368,2) BLANK "DATA",160.16,4,"FIELD",368,3) R,BLANK "DATA",160.16,4,"FIELD",369,0) 1351^250^1600^Text-DX Proc-XRAY "DATA",160.16,4,"FIELD",369,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,4,"FIELD",369,2) BLANK "DATA",160.16,4,"FIELD",369,3) R,BLANK "DATA",160.16,4,"FIELD",370,0) 1601^250^1850^Text-DX Proc-Scopes "DATA",160.16,4,"FIELD",370,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,4,"FIELD",370,2) BLANK "DATA",160.16,4,"FIELD",370,3) R,BLANK "DATA",160.16,4,"FIELD",371,0) 1851^250^2100^Text-DX Proc-Lab "DATA",160.16,4,"FIELD",371,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,4,"FIELD",371,2) BLANK "DATA",160.16,4,"FIELD",371,3) R,BLANK "DATA",160.16,4,"FIELD",372,0) 2101^250^2350^Text-DX Proc-OPS "DATA",160.16,4,"FIELD",372,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,4,"FIELD",372,2) BLANK "DATA",160.16,4,"FIELD",372,3) R,BLANK "DATA",160.16,4,"FIELD",373,0) 2351^250^2600^Text-DX Proc-PATH "DATA",160.16,4,"FIELD",373,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,4,"FIELD",373,2) BLANK "DATA",160.16,4,"FIELD",373,3) R,BLANK "DATA",160.16,4,"FIELD",374,0) 2601^40^2640^Text-Primary Site "DATA",160.16,4,"FIELD",374,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,4,"FIELD",374,2) BLANK "DATA",160.16,4,"FIELD",374,3) R,BLANK "DATA",160.16,4,"FIELD",375,0) 2641^40^2680^Text-Histology "DATA",160.16,4,"FIELD",375,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,4,"FIELD",375,2) BLANK "DATA",160.16,4,"FIELD",375,3) R,BLANK "DATA",160.16,4,"FIELD",376,0) 2681^300^2980^Text-Staging "DATA",160.16,4,"FIELD",376,1) S ACDANS="" "DATA",160.16,4,"FIELD",376,2) BLANK "DATA",160.16,4,"FIELD",376,3) R,BLANK "DATA",160.16,4,"FIELD",377,0) 2981^150^3130^Text-RX-Surgery "DATA",160.16,4,"FIELD",377,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,4,"FIELD",377,2) BLANK "DATA",160.16,4,"FIELD",377,3) R,BLANK "DATA",160.16,4,"FIELD",378,0) 3131^150^3280^Text-RX-RAD(Beam) "DATA",160.16,4,"FIELD",378,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,4,"FIELD",378,2) BLANK "DATA",160.16,4,"FIELD",378,3) R,BLANK "DATA",160.16,4,"FIELD",379,0) 3281^150^3430^Text-RX-RAD-Other "DATA",160.16,4,"FIELD",379,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,4,"FIELD",379,2) BLANK "DATA",160.16,4,"FIELD",379,3) R,BLANK "DATA",160.16,4,"FIELD",380,0) 3431^200^3630^Text-RX-Chemo "DATA",160.16,4,"FIELD",380,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,4,"FIELD",380,2) BLANK "DATA",160.16,4,"FIELD",380,3) R,BLANK "DATA",160.16,4,"FIELD",381,0) 3631^200^3830^Text-RX-Hormone "DATA",160.16,4,"FIELD",381,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,4,"FIELD",381,2) BLANK "DATA",160.16,4,"FIELD",381,3) R,BLANK "DATA",160.16,4,"FIELD",382,0) 3831^100^3930^Text-RX-Immunotherapy "DATA",160.16,4,"FIELD",382,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,4,"FIELD",382,2) BLANK "DATA",160.16,4,"FIELD",382,3) R,BLANK "DATA",160.16,4,"FIELD",383,0) 3931^100^4030^Text-RX-Other "DATA",160.16,4,"FIELD",383,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,4,"FIELD",383,2) BLANK "DATA",160.16,4,"FIELD",383,3) R,BLANK "DATA",160.16,4,"FIELD",384,0) 4031^350^4380^Text-Remarks "DATA",160.16,4,"FIELD",384,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,4,"FIELD",384,2) BLANK "DATA",160.16,4,"FIELD",384,3) R,BLANK "DATA",160.16,4,"FIELD",385,0) 4481^50^4530^Place of Diagnosis "DATA",160.16,4,"FIELD",385,1) S ACDANS="" "DATA",160.16,4,"FIELD",385,2) BLANK "DATA",160.16,4,"FIELD",385,3) R,BLANK "DATA",160.16,4,"FIELD",386,0) 4531^770^5300^Reserved "DATA",160.16,4,"FIELD",386,1) S ACDANS="" "DATA",160.16,4,"FIELD",386,2) BLANK "DATA",160.16,4,"FIELD",386,3) L,BLANK "DATA",160.16,4,"FIELD",388,0) 101^6^106^Reserved for expansion "DATA",160.16,4,"FIELD",388,1) S ACDANS="" "DATA",160.16,4,"FIELD",388,2) BLANK "DATA",160.16,4,"FIELD",388,3) L,BLANK "DATA",160.16,4,"FIELD",389,0) 136^2^137^Accession Year "DATA",160.16,4,"FIELD",389,1) S ACDANS=$E(DATE,3,4) "DATA",160.16,4,"FIELD",389,2) BLANK "DATA",160.16,4,"FIELD",389,3) L,BLANK "DATA",160.16,4,"FIELD",390,0) 138^4^141^Reserved for expansion "DATA",160.16,4,"FIELD",390,1) S ACDANS="" "DATA",160.16,4,"FIELD",390,2) BLANK "DATA",160.16,4,"FIELD",390,3) L,BLANK "DATA",160.16,4,"FIELD",391,0) 233^4^236^Alternate Staging Scheme "DATA",160.16,4,"FIELD",391,1) S ACDANS="" "DATA",160.16,4,"FIELD",391,2) BLANK "DATA",160.16,4,"FIELD",391,3) L,BLANK "DATA",160.16,4,"FIELD",392,0) 239^12^250^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) 319^19^337^Reserved for expansion "DATA",160.16,4,"FIELD",393,1) S ACDANS="" "DATA",160.16,4,"FIELD",393,2) BLANK "DATA",160.16,4,"FIELD",393,3) L,BLANK "DATA",160.16,4,"FIELD",394,0) 398^20^417^Reserved for expansion "DATA",160.16,4,"FIELD",394,1) S ACDANS="" "DATA",160.16,4,"FIELD",394,2) BLANK "DATA",160.16,4,"FIELD",394,3) BLANK "DATA",160.16,4,"FIELD",395,0) 502^1^502^Reserved for expansion "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) 519^2^520^General Coding Procedure "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) 536^1^536^NAACCR Record version "DATA",160.16,4,"FIELD",397,1) S ACDANS="4" "DATA",160.16,4,"FIELD",397,2) BLANK "DATA",160.16,4,"FIELD",397,3) L,BLANK "DATA",160.16,4,"FIELD",399,0) 537^14^550^Reserved for expansion "DATA",160.16,4,"FIELD",399,1) S ACDANS="" "DATA",160.16,4,"FIELD",399,2) BLANK "DATA",160.16,4,"FIELD",399,3) L,BLANK "DATA",160.16,4,"FIELD",400,0) 551^200^750^Site-Specific Studies "DATA",160.16,4,"FIELD",400,1) S ACDANS="" "DATA",160.16,4,"FIELD",400,2) BLANK "DATA",160.16,4,"FIELD",400,3) L,BLANK "DATA",160.16,4,"FIELD",401,0) 751^100^850^State-Specific Studies "DATA",160.16,4,"FIELD",401,1) S ACDANS="" "DATA",160.16,4,"FIELD",401,2) BLANK "DATA",160.16,4,"FIELD",401,3) L,BLANK "DATA",160.16,4,"FIELD",402,0) 991^30^1020^Followup Contact Name "DATA",160.16,4,"FIELD",402,1) S ACDANS="" "DATA",160.16,4,"FIELD",402,2) BLANK "DATA",160.16,4,"FIELD",402,3) L,BLANK "DATA",160.16,4,"FIELD",403,0) 1021^25^1045^Followup Contact Address "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) 1106^8^1113^Next Followup Hospital "DATA",160.16,4,"FIELD",404,1) S ACDANS="" "DATA",160.16,4,"FIELD",404,2) BLANK "DATA",160.16,4,"FIELD",404,3) L,BLANK "DATA",160.16,4,"FIELD",405,0) 1130^21^1150^Reserved for expansion "DATA",160.16,4,"FIELD",405,1) S ACDANS="" "DATA",160.16,4,"FIELD",405,2) BLANK "DATA",160.16,4,"FIELD",405,3) L,BLANK "DATA",160.16,4,"FIELD",406,0) 227^2^228^AJCC State Group (Clin) "DATA",160.16,4,"FIELD",406,1) S ACDANS="" "DATA",160.16,4,"FIELD",406,2) BLANK "DATA",160.16,4,"FIELD",406,3) L,BLANK "DATA",160.16,4,"RULES",0) ^^4^4^2970818^^^ "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.2,1,0) 10% QA REPORT-1^1^Y "DATA",160.2,1,1,0) 90^^94^94^2960212^^^^ "DATA",160.2,1,1,1,0) |NOWRAP| "DATA",160.2,1,1,2,0) MONTHLY QUALITATIVE/QUANTITATIVE REVIEW OF TUMOR REGISTRY "DATA",160.2,1,1,3,0) + YES - NO N/A DATA NOT AVAILABLE "DATA",160.2,1,1,4,0) DATE REVIEWED:______________ REVIEWER:_______________ "DATA",160.2,1,1,5,0) "DATA",160.2,1,1,6,0) "DATA",160.2,1,1,7,0) (OR IF TOTALLY RANDOM, REVIEW BY MONTHLY:) "DATA",160.2,1,1,8,0) "DATA",160.2,1,1,9,0) |TOTAL CASES| TOTAL CASES REVIEWED PAGE 1 "DATA",160.2,1,1,10,0) From: |START DATE| To: |END DATE| "DATA",160.2,1,1,11,0) "DATA",160.2,1,1,12,0) "DATA",160.2,1,1,13,0) "DATA",160.2,1,1,14,0) |ID1_" "_ID2_" "_ID3_" "_ID4| "DATA",160.2,1,1,15,0) "DATA",160.2,1,1,16,0) **PATIENT IDENTIFICATION**** "DATA",160.2,1,1,17,0) Patient Name Present? "DATA",160.2,1,1,18,0) SSN Present? "DATA",160.2,1,1,19,0) DOB Present? "DATA",160.2,1,1,20,0) Address Present? "DATA",160.2,1,1,21,0) Accession Number Present? "DATA",160.2,1,1,22,0) Accession Year Present? "DATA",160.2,1,1,23,0) Primary Sequence Number Present? "DATA",160.2,1,1,24,0) Hospital Chart Number Present? "DATA",160.2,1,1,25,0) "DATA",160.2,1,1,26,0) ****PERSONAL DATA**** "DATA",160.2,1,1,27,0) Phone Number Present? "DATA",160.2,1,1,28,0) Marital Status Present? "DATA",160.2,1,1,29,0) Sex Present? "DATA",160.2,1,1,30,0) Race Present? "DATA",160.2,1,1,31,0) Age at DX Present? "DATA",160.2,1,1,32,0) Employement History? "DATA",160.2,1,1,33,0) Tobacco Usage? "DATA",160.2,1,1,34,0) Alcohol Usage? "DATA",160.2,1,1,35,0) Family History? "DATA",160.2,1,1,36,0) "DATA",160.2,1,1,37,0) ****PHYSICIAN CONTACT**** "DATA",160.2,1,1,38,0) Primary Surgeon (if seen)? "DATA",160.2,1,1,39,0) Other Physician? "DATA",160.2,1,1,40,0) "DATA",160.2,1,1,41,0) ****CANCER IDENTIFICATION**** "DATA",160.2,1,1,42,0) Dx Date correct? "DATA",160.2,1,1,43,0) Histology correct? "DATA",160.2,1,1,44,0) Grade correct? "DATA",160.2,1,1,45,0) ICDO site correct? "DATA",160.2,1,1,46,0) Laterality correct? "DATA",160.2,1,1,47,0) Diagnostic Confirmation correct? "DATA",160.2,1,1,48,0) Primary Site stated? "DATA",160.2,1,1,49,0) Class of Case correct? "DATA",160.2,1,1,50,0) Dx Facility stated? "DATA",160.2,1,1,51,0) "DATA",160.2,1,1,52,0) ****EXTENT OF DISEASE**** "DATA",160.2,1,1,53,0) TNM Stage present/correct? "DATA",160.2,1,1,54,0) Tumor Size present/correct? "DATA",160.2,1,1,55,0) Positive Nodes present/correct? "DATA",160.2,1,1,56,0) Nodes Examined present/correct? "DATA",160.2,1,1,57,0) Extension present/correct? "DATA",160.2,1,1,58,0) Lymph Nodes present/correct? "DATA",160.2,1,1,59,0) General Summary Stage present/correct? "DATA",160.2,1,1,60,0) AJCC Stage group present/correct? "DATA",160.2,1,1,61,0) AJCC Staging Basis present/correct? "DATA",160.2,1,1,62,0) Other Stage correct ? "DATA",160.2,1,1,63,0) "DATA",160.2,1,1,64,0) ****FIRST COURSE OF TREATMENT**** "DATA",160.2,1,1,65,0) Surgery date correct? "DATA",160.2,1,1,66,0) Type of Surgery correct? "DATA",160.2,1,1,67,0) Radiation Therapy date correct? "DATA",160.2,1,1,68,0) Type of Radiation correct? "DATA",160.2,1,1,69,0) Site of Radiation correct? "DATA",160.2,1,1,70,0) Chemotherapy date correct? "DATA",160.2,1,1,71,0) Type of Chemotherapy correct? "DATA",160.2,1,1,72,0) Hormone Therapy date correct? "DATA",160.2,1,1,73,0) Type of Hormone Therapy correct? "DATA",160.2,1,1,74,0) BRM date correct? "DATA",160.2,1,1,75,0) Type of BRM correct? "DATA",160.2,1,1,76,0) Date of Other Therapy correct? "DATA",160.2,1,1,77,0) Type of Other Therapy correct? "DATA",160.2,1,1,78,0) Residual Tumor correct? "DATA",160.2,1,1,79,0) "DATA",160.2,1,1,80,0) ****RECURRENCE**** "DATA",160.2,1,1,81,0) Is there Recurrence Data recorded? "DATA",160.2,1,1,82,0) Type of 1st Recurrence stated? "DATA",160.2,1,1,83,0) Recurrence site correct? "DATA",160.2,1,1,84,0) "DATA",160.2,1,1,85,0) ****SUBSEQUENT THERAPY**** "DATA",160.2,1,1,86,0) Is there Subsequent Therapy recorded? "DATA",160.2,1,1,87,0) Date correct? "DATA",160.2,1,1,88,0) Type of Subsequent Therapy correct? "DATA",160.2,1,1,89,0) "DATA",160.2,1,1,90,0) ****FOLLOW-UP HISTORY**** "DATA",160.2,1,1,91,0) Last Contact Date correct? "DATA",160.2,1,1,92,0) Vital Status correct? "DATA",160.2,1,1,93,0) Cancer Status correct? "DATA",160.2,1,1,94,0) Quality of Survival correct? "DATA",160.2,1,2,0) ^^1^1^2960212^^^^ "DATA",160.2,1,2,1,0) QA Form printed with first 1-6 abstracts printed for QA. "DATA",160.2,2,0) 10% QA REPORT-2^1^Y "DATA",160.2,2,1,0) 94^^94^94^2920711^^^ "DATA",160.2,2,1,1,0) |NOWRAP| "DATA",160.2,2,1,2,0) MONTHLY QUALITATIVE/QUANTITATIVE REVIEW OF TUMOR REGISTRY "DATA",160.2,2,1,3,0) + YES - NO N/A DATA NOT AVAILABLE "DATA",160.2,2,1,4,0) DATE REVIEWED:______________ REVIEWER:_______________ "DATA",160.2,2,1,5,0) "DATA",160.2,2,1,6,0) "DATA",160.2,2,1,7,0) (OR IF TOTALLY RANDOM, REVIEW BY MONTHLY:) "DATA",160.2,2,1,8,0) "DATA",160.2,2,1,9,0) |TOTAL CASES| TOTAL CASES REVIEWED PAGE 2 "DATA",160.2,2,1,10,0) From: |START DATE| To: |END DATE| "DATA",160.2,2,1,11,0) "DATA",160.2,2,1,12,0) "DATA",160.2,2,1,13,0) "DATA",160.2,2,1,14,0) |ID5_" "_ID6_" "_ID7_" "_ID8| "DATA",160.2,2,1,15,0) "DATA",160.2,2,1,16,0) **PATIENT IDENTIFICATION**** "DATA",160.2,2,1,17,0) Patient Name Present? "DATA",160.2,2,1,18,0) SSN Present? "DATA",160.2,2,1,19,0) DOB Present? "DATA",160.2,2,1,20,0) Address Present? "DATA",160.2,2,1,21,0) Accession Number Present? "DATA",160.2,2,1,22,0) Accession Year Present? "DATA",160.2,2,1,23,0) Primary Sequence Number Present? "DATA",160.2,2,1,24,0) Hospital Chart Number Present? "DATA",160.2,2,1,25,0) "DATA",160.2,2,1,26,0) ****PERSONAL DATA**** "DATA",160.2,2,1,27,0) Phone Number Present? "DATA",160.2,2,1,28,0) Marital Status Present? "DATA",160.2,2,1,29,0) Sex Present? "DATA",160.2,2,1,30,0) Race Present? "DATA",160.2,2,1,31,0) Age at DX Present? "DATA",160.2,2,1,32,0) Employement History? "DATA",160.2,2,1,33,0) Tobacco Usage? "DATA",160.2,2,1,34,0) Alcohol Usage? "DATA",160.2,2,1,35,0) Family History? "DATA",160.2,2,1,36,0) "DATA",160.2,2,1,37,0) ****PHYSICIAN CONTACT**** "DATA",160.2,2,1,38,0) Primary Surgeon (if seen)? "DATA",160.2,2,1,39,0) Other Physician? "DATA",160.2,2,1,40,0) "DATA",160.2,2,1,41,0) ****CANCER IDENTIFICATION**** "DATA",160.2,2,1,42,0) Dx Date correct? "DATA",160.2,2,1,43,0) Histology correct? "DATA",160.2,2,1,44,0) Grade correct? "DATA",160.2,2,1,45,0) ICDO site correct? "DATA",160.2,2,1,46,0) Laterality correct? "DATA",160.2,2,1,47,0) Diagnostic Confirmation correct? "DATA",160.2,2,1,48,0) Primary Site stated? "DATA",160.2,2,1,49,0) Class of Case correct? "DATA",160.2,2,1,50,0) Dx Facility stated? "DATA",160.2,2,1,51,0) "DATA",160.2,2,1,52,0) ****EXTENT OF DISEASE**** "DATA",160.2,2,1,53,0) TNM Stage present/correct? "DATA",160.2,2,1,54,0) Tumor Size present/correct? "DATA",160.2,2,1,55,0) Positive Nodes present/correct? "DATA",160.2,2,1,56,0) Nodes Examined present/correct? "DATA",160.2,2,1,57,0) Extension present/correct? "DATA",160.2,2,1,58,0) Lymph Nodes present/correct? "DATA",160.2,2,1,59,0) General Summary Stage present/correct? "DATA",160.2,2,1,60,0) AJCC Stage group present/correct? "DATA",160.2,2,1,61,0) AJCC Staging Basis present/correct? "DATA",160.2,2,1,62,0) Other Stage correct ? "DATA",160.2,2,1,63,0) "DATA",160.2,2,1,64,0) ****FIRST COURSE OF TREATMENT**** "DATA",160.2,2,1,65,0) Surgery date correct? "DATA",160.2,2,1,66,0) Type of Surgery correct? "DATA",160.2,2,1,67,0) Radiation Therapy date correct? "DATA",160.2,2,1,68,0) Type of Radiation correct? "DATA",160.2,2,1,69,0) Site of Radiation correct? "DATA",160.2,2,1,70,0) Chemotherapy date correct? "DATA",160.2,2,1,71,0) Type of Chemotherapy correct? "DATA",160.2,2,1,72,0) Hormone Therapy date correct? "DATA",160.2,2,1,73,0) Type of Hormone Therapy correct? "DATA",160.2,2,1,74,0) BRM date correct? "DATA",160.2,2,1,75,0) Type of BRM correct? "DATA",160.2,2,1,76,0) Date of Other Therapy correct? "DATA",160.2,2,1,77,0) Type of Other Therapy correct? "DATA",160.2,2,1,78,0) Residual Tumor correct? "DATA",160.2,2,1,79,0) "DATA",160.2,2,1,80,0) ****RECURRENCE**** "DATA",160.2,2,1,81,0) Is there Recurrence Data recorded? "DATA",160.2,2,1,82,0) Type of 1st Recurrence stated? "DATA",160.2,2,1,83,0) Recurrence site correct? "DATA",160.2,2,1,84,0) "DATA",160.2,2,1,85,0) ****SUBSEQUENT THERAPY**** "DATA",160.2,2,1,86,0) Is there Subsequent Therapy recorded? "DATA",160.2,2,1,87,0) Date correct? "DATA",160.2,2,1,88,0) Type of Subsequent Therapy correct? "DATA",160.2,2,1,89,0) "DATA",160.2,2,1,90,0) ****FOLLOW-UP HISTORY**** "DATA",160.2,2,1,91,0) Last Contact Date correct? "DATA",160.2,2,1,92,0) Vital Status correct? "DATA",160.2,2,1,93,0) Cancer Status correct? "DATA",160.2,2,1,94,0) Quality of Survival correct? "DATA",160.2,2,2,0) ^^1^1^2920711^^^^ "DATA",160.2,2,2,1,0) QA Review report which will print when 7-12 QA abstracts are printed. "DATA",160.2,4,0) STATE REPORTING ACOS INFOA^1^Y "DATA",160.2,4,1,0) ^^211^211^2970814^^ "DATA",160.2,4,1,1,0) RETRIEVING DHCP ONCOLOGY PACKAGE INFORMATION "DATA",160.2,4,1,2,0) "DATA",160.2,4,1,3,0) FOR STATE REPORTING "DATA",160.2,4,1,4,0) "DATA",160.2,4,1,5,0) "DATA",160.2,4,1,6,0) The Oncology Package includes an option that will search the ONCOLOGY "DATA",160.2,4,1,7,0) PRIMARY File (#165.5) and the ONCOLOGY PATIENT File (#160) for the "DATA",160.2,4,1,8,0) information needed for the State Central Registry. To create the file "DATA",160.2,4,1,9,0) for the State Central Registry use the CC option under the UTL *..Utility "DATA",160.2,4,1,10,0) Options menu. The six-digit Institution ID number and the accession year "DATA",160.2,4,1,11,0) are required. "DATA",160.2,4,1,12,0) "DATA",160.2,4,1,13,0) Contact your IRM Service if you are not sure how to save the text from "DATA",160.2,4,1,14,0) the screen to a file using your terminal emulation program such as Procomm, "DATA",160.2,4,1,15,0) Smarterm, or Keaterm. The following uses the word CAPTURE to indicate "DATA",160.2,4,1,16,0) the creation of a text file. "DATA",160.2,4,1,17,0) "DATA",160.2,4,1,18,0) Example Session Showing Data Capture "DATA",160.2,4,1,19,0) "DATA",160.2,4,1,20,0) Below is part of an actual DHCP session. You will type in the "DATA",160.2,4,1,21,0) double-underlined responses. "DATA",160.2,4,1,22,0) "DATA",160.2,4,1,23,0) *************** [ Beginning of DHCP Session] *************** "DATA",160.2,4,1,24,0) "DATA",160.2,4,1,25,0) "DATA",160.2,4,1,26,0) "DATA",160.2,4,1,27,0) "DATA",160.2,4,1,28,0) VVVV VVAA "DATA",160.2,4,1,29,0) VVVV VVAAAA "DATA",160.2,4,1,30,0) VVVV VVAAAAAA "DATA",160.2,4,1,31,0) VVVV VVAA AAAA "DATA",160.2,4,1,32,0) VVVV VVAA AAAA "DATA",160.2,4,1,33,0) VVVV VVAA AAAA "DATA",160.2,4,1,34,0) VVVVVVAA AAAA "DATA",160.2,4,1,35,0) VVVVAA AAAAAAAAAAA "DATA",160.2,4,1,36,0) VVAA AAAAAAAAAAA "DATA",160.2,4,1,37,0) "DATA",160.2,4,1,38,0) Department of Veterans Affairs "DATA",160.2,4,1,39,0) "DATA",160.2,4,1,40,0) ONCOLOGY TUMOR REGISTRY V2.11P12 "DATA",160.2,4,1,41,0) "DATA",160.2,4,1,42,0) Choose among the following functions: "DATA",160.2,4,1,43,0) "DATA",160.2,4,1,44,0) "DATA",160.2,4,1,45,0) SUS *..Casefinding/Suspense ... "DATA",160.2,4,1,46,0) ABS *..Abstracting/Printing ... "DATA",160.2,4,1,47,0) FOL *..Follow-up Functions ... "DATA",160.2,4,1,48,0) LIS *..Registry Lists ... "DATA",160.2,4,1,49,0) ANN *..Annual Reports ... "DATA",160.2,4,1,50,0) STA *..Statistical Reports ... "DATA",160.2,4,1,51,0) UTL *..Utility Options ... "DATA",160.2,4,1,52,0) "DATA",160.2,4,1,53,0) Select DHCP Tumor Registry Option: UTL *..Utility Options "DATA",160.2,4,1,54,0) ======== "DATA",160.2,4,1,55,0) "DATA",160.2,4,1,56,0) "DATA",160.2,4,1,57,0) "DATA",160.2,4,1,58,0) ***************UTILITY OPTIONS************* "DATA",160.2,4,1,59,0) "DATA",160.2,4,1,60,0) "DATA",160.2,4,1,61,0) "DATA",160.2,4,1,62,0) "DATA",160.2,4,1,63,0) PI Patient/Primary Inquiry "DATA",160.2,4,1,64,0) RD Print Oncology Patient Record "DATA",160.2,4,1,65,0) RS Registry Summary Reports "DATA",160.2,4,1,66,0) DP Delete Oncology Patient "DATA",160.2,4,1,67,0) DS Delete Primary Site/GP Record "DATA",160.2,4,1,68,0) EA Edit Site/AccSeq# Data "DATA",160.2,4,1,69,0) ES Edit Surgery Codes "DATA",160.2,4,1,70,0) LG List Topographic Site Groups "DATA",160.2,4,1,71,0) LT List Topography Codes by Site Group "DATA",160.2,4,1,72,0) ER Report of accessions requiring additional input "DATA",160.2,4,1,73,0) AR Create a report to preview ACOS output "DATA",160.2,4,1,74,0) CT Create ACOS Data Disk "DATA",160.2,4,1,75,0) CC Create State Data Disk "DATA",160.2,4,1,76,0) TR Define Tumor Registry Parameters "DATA",160.2,4,1,77,0) FA Enter/Edit Facility file "DATA",160.2,4,1,78,0) "DATA",160.2,4,1,79,0) Select *..Utility Options Option: CC Create State Data Disk "DATA",160.2,4,1,80,0) ======= "DATA",160.2,4,1,81,0) DISPLAY/PRINT on-line instructions for Help? Yes// NO "DATA",160.2,4,1,82,0) ====== "DATA",160.2,4,1,83,0) Select the NAACCR Record layout to use: "DATA",160.2,4,1,84,0) 1) Version 5.1 of the NAACR 5966 Characters "DATA",160.2,4,1,85,0) 2) Version 5 of the NAACR 5300 Characters "DATA",160.2,4,1,86,0) 3) Version 4.0 of the NAACR 5300 Characters "DATA",160.2,4,1,87,0) Select Layout: 3// 1 "DATA",160.2,4,1,88,0) ===== "DATA",160.2,4,1,89,0) Enter the Hospital ACoS Number. "DATA",160.2,4,1,90,0) ACOS Number: 431910// "DATA",160.2,4,1,96,0) ========== "DATA",160.2,4,1,97,0) Select Abstract Start Date: Jan 01, 1995// (JAN 01, 1995) "DATA",160.2,4,1,98,0) ===== "DATA",160.2,4,1,99,0) Select Abstract End Date: Dec 31, 1995// (DEC 31, 1995) "DATA",160.2,4,1,100,0) ===== "DATA",160.2,4,1,101,0) These are your current settings: "DATA",160.2,4,1,102,0) "DATA",160.2,4,1,103,0) Hospital ACoS Number: "DATA",160.2,4,1,104,0) Year: 1995 "DATA",160.2,4,1,105,0) Abstract Starting From: 1/1/95 To: 12/31/95 "DATA",160.2,4,1,106,0) "DATA",160.2,4,1,107,0) Are these definitions correct? YES// "DATA",160.2,4,1,108,0) ===== "DATA",160.2,4,1,109,0) "DATA",160.2,4,1,110,0) "DATA",160.2,4,1,111,0) I will hang for 30 seconds while you set up the log file. (Hit to "DATA",160.2,4,1,112,0) start sooner, or enter '^' to abort): "DATA",160.2,4,1,113,0) "DATA",160.2,4,1,114,0) ******************************************************************* "DATA",160.2,4,1,115,0) * At this point you will need to tell your terminal emulation * "DATA",160.2,4,1,116,0) * program to set up a CAPTURE file. Please name the file * "DATA",160.2,4,1,117,0) * "C:\VADATAYR.DAT". Where the letters YR are replaced by the * "DATA",160.2,4,1,118,0) * last two digits of the year being CAPTURED. "C:\VADATA95.DAT" * "DATA",160.2,4,1,119,0) * would be the name of this CAPTURE file. Then after you have * "DATA",160.2,4,1,120,0) * opened the CAPTURE file press the return key. * "DATA",160.2,4,1,121,0) ******************************************************************* "DATA",160.2,4,1,122,0) "DATA",160.2,4,1,123,0) "DATA",160.2,4,1,124,0) "DATA",160.2,4,1,125,0) ===== "DATA",160.2,4,1,126,0) "DATA",160.2,4,1,127,0) I000D34443643191005 HOFFMAN ID08928347 499331 "DATA",160.2,4,1,128,0) I000N32443643191005 MENTOR AZ02756736 207330 "DATA",160.2,4,1,129,0) I000N32443643191005 MENTOR AZ02756736 207330 "DATA",160.2,4,1,130,0) I000T22223643191005 HONOLULU HI00339484 201339 "DATA",160.2,4,1,131,0) I000T22223643191005 HONOLULU HI00339484 201339 "DATA",160.2,4,1,132,0) I000Z67883643191005 KJDSFLK NY02914215 298330 "DATA",160.2,4,1,133,0) I000H6-003643191005 BOSTON MA02502130 101330 "DATA",160.2,4,1,134,0) I000F14153643191005 TOPEKA KS02948394 501330 "DATA",160.2,4,1,135,0) I000F14153643191005 TOPEKA KS02948394 501330 "DATA",160.2,4,1,136,0) "DATA",160.2,4,1,137,0) (etc.) "DATA",160.2,4,1,138,0) . "DATA",160.2,4,1,139,0) . "DATA",160.2,4,1,140,0) . "DATA",160.2,4,1,141,0) "DATA",160.2,4,1,142,0) << Total records created: 336 >> "DATA",160.2,4,1,143,0) "DATA",160.2,4,1,144,0) "DATA",160.2,4,1,145,0) ***************** [ End of Terminal Session ] ***************** "DATA",160.2,4,1,146,0) "DATA",160.2,4,1,147,0) At this point, you will need to close the CAPTURE file. Next, you will "DATA",160.2,4,1,148,0) need to log out of DHCP. This can be done by typing the word HALT at the "DATA",160.2,4,1,149,0) menu prompt. Now you will need to quit out of the terminal emulation "DATA",160.2,4,1,150,0) program and exit to DOS. At the DOS prompt, type the following "CD C:\". "DATA",160.2,4,1,151,0) This will put you at the root level of DOS on the "C" drive where the "DATA",160.2,4,1,152,0) file should be stored. "DATA",160.2,4,1,153,0) "DATA",160.2,4,1,154,0) For example: "DATA",160.2,4,1,155,0) "DATA",160.2,4,1,156,0) C:\> CD C:\ "DATA",160.2,4,1,157,0) =========== "DATA",160.2,4,1,158,0) C:\> "DATA",160.2,4,1,159,0) "DATA",160.2,4,1,160,0) "DATA",160.2,4,1,161,0) Next you will need to find out the size of the file. Type the following "DATA",160.2,4,1,162,0) "DIR VADATA95.DAT" followed by a return. The computer will respond with "DATA",160.2,4,1,163,0) the following: "DATA",160.2,4,1,164,0) "DATA",160.2,4,1,165,0) C:\> DIR VADATA95.DAT "DATA",160.2,4,1,166,0) ===================== "DATA",160.2,4,1,167,0) "DATA",160.2,4,1,168,0) Volume in drive C is MICRON "DATA",160.2,4,1,169,0) Volume Serial Number is 2432-0F07 "DATA",160.2,4,1,170,0) Directory of C:\ "DATA",160.2,4,1,171,0) "DATA",160.2,4,1,172,0) VADATA95 DAT 251,671 02-12-97 12:51p "DATA",160.2,4,1,173,0) 1 file(s) 251,671 bytes "DATA",160.2,4,1,174,0) 0 dir(s) 1,196,556,288 bytes free "DATA",160.2,4,1,175,0) "DATA",160.2,4,1,176,0) C:\> "DATA",160.2,4,1,177,0) "DATA",160.2,4,1,178,0) If the file size is smaller than 1,400,000 (1.4 meg) all you will need to do "DATA",160.2,4,1,179,0) is copy the file to a formatted blank high density 3.5 inch floppy diskette. "DATA",160.2,4,1,180,0) Insert the 3.5 disk into the drive. Type the following "DATA",160.2,4,1,181,0) "COPY C:\VADATA95.DAT :" followed by a return. "DATA",160.2,4,1,182,0) "DATA",160.2,4,1,183,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,4,1,184,0) ! ! "DATA",160.2,4,1,185,0) ! Replace with the letter of the disk drive ! "DATA",160.2,4,1,186,0) ! that has the blank disk. ! "DATA",160.2,4,1,187,0) ! ! "DATA",160.2,4,1,188,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,4,1,189,0) "DATA",160.2,4,1,190,0) For this example the "A" indicates that the "A drive" is the 3.5 inch "DATA",160.2,4,1,191,0) drive. The computer will respond with the following: "DATA",160.2,4,1,192,0) "DATA",160.2,4,1,193,0) C:\> COPY C:\VADATA95.DAT A: "DATA",160.2,4,1,194,0) ============================ "DATA",160.2,4,1,195,0) 1 file(s) copied "DATA",160.2,4,1,196,0) C:\> "DATA",160.2,4,1,197,0) "DATA",160.2,4,1,198,0) Last, remove the 3.5 disk from the drive and place a label on it. The label "DATA",160.2,4,1,199,0) should have: the file name (VADATA95.DAT); the hospital name and ID#; and "DATA",160.2,4,1,200,0) contact person and phone number written on it. "DATA",160.2,4,1,201,0) "DATA",160.2,4,1,202,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,4,1,203,0) ! ! "DATA",160.2,4,1,204,0) ! DO NOT PUT THE LABEL OVER SHUTTER OF THE DISKETTE ! "DATA",160.2,4,1,205,0) ! THIS WILL DESTROY THE DISK AND MAKE THE DATA UNREADABLE ! "DATA",160.2,4,1,206,0) ! ! "DATA",160.2,4,1,207,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,4,1,208,0) "DATA",160.2,4,1,209,0) If the file size is greater than 1,400,000 (1.4 meg) then contact someone in "DATA",160.2,4,1,210,0) IRM Service to COMPRESS the file prior to sending it to your State Central "DATA",160.2,4,1,211,0) Registry. "DATA",160.2,4,2,0) ^^2^2^2970814^^^^ "DATA",160.2,4,2,1,0) This form supplies directions for the gathering of the State Central Registry "DATA",160.2,4,2,2,0) data. "DATA",160.2,5,0) WORK-SHEET^^N "DATA",160.2,5,1,0) ^^468^468^2961030^^^ "DATA",160.2,5,1,1,0) DHCP ONCOLOGY V2.11 WORKSHEET "DATA",160.2,5,1,2,0) "DATA",160.2,5,1,3,0) "DATA",160.2,5,1,4,0) "DATA",160.2,5,1,5,0) "DATA",160.2,5,1,6,0) "DATA",160.2,5,1,7,0) "DATA",160.2,5,1,8,0) "DATA",160.2,5,1,9,0) "DATA",160.2,5,1,10,0) "DATA",160.2,5,1,11,0) PATIENT___________________________________________ "DATA",160.2,5,1,12,0) "DATA",160.2,5,1,13,0) PATIENT HISTORY "DATA",160.2,5,1,14,0) "DATA",160.2,5,1,15,0) OCCUPATION______________________ YRS IN OCCUPATION____ "DATA",160.2,5,1,16,0) "DATA",160.2,5,1,17,0) LAST DATE IN OCCUPATION_______ "DATA",160.2,5,1,18,0) "DATA",160.2,5,1,19,0) INDUSTRY ADDRESS____________________________________ "DATA",160.2,5,1,20,0) "DATA",160.2,5,1,21,0) "DATA",160.2,5,1,22,0) "DATA",160.2,5,1,23,0) TOBACCO HX: YES NO UNKNOWN "DATA",160.2,5,1,24,0) "DATA",160.2,5,1,25,0) TYPE OF TOBACCO: 1. CIGARETTE 2. CIGARS 3. PIPE "DATA",160.2,5,1,26,0) 4. CHEWING 5. SNUFF 6. MARIJUANA "DATA",160.2,5,1,27,0) 7. MORE THAN ONE TYPE 8. UNK "DATA",160.2,5,1,28,0) "DATA",160.2,5,1,29,0) PACK YEARS______ YR. QUIT______ "DATA",160.2,5,1,30,0) "DATA",160.2,5,1,31,0) ALCOHOL HISTORY: YES NO UNKNOWN "DATA",160.2,5,1,32,0) "DATA",160.2,5,1,33,0) TYPE OF ALCOHOL USE: (B) BEER (W) WINE "DATA",160.2,5,1,34,0) (H) HARD LIQUOR (M) MODERATE/SOCIAL "DATA",160.2,5,1,35,0) (S) SERIOUS/HEAVY (U) UNKNOW "DATA",160.2,5,1,36,0) "DATA",160.2,5,1,37,0) YRS OF USE_____ DRINKS PER DAY_____ YR QUIT_____ "DATA",160.2,5,1,38,0) "DATA",160.2,5,1,39,0) CA IN FAMILY: YES NO UNKNOWN FAMILY MEMBER______________ "DATA",160.2,5,1,40,0) "DATA",160.2,5,1,41,0) LOCATION OF CANCER IN FAMILY MEMBER_____________________ "DATA",160.2,5,1,42,0) "DATA",160.2,5,1,43,0) (The system allows for as many members and locations as needed.) "DATA",160.2,5,1,44,0) "DATA",160.2,5,1,45,0) "DATA",160.2,5,1,46,0) "DATA",160.2,5,1,47,0) REGISTER A PRIMARY YES N0 "DATA",160.2,5,1,48,0) "DATA",160.2,5,1,49,0) "DATA",160.2,5,1,50,0) SELECT (FIRST) PRIMARY SITE/GP________________________ "DATA",160.2,5,1,51,0) "DATA",160.2,5,1,52,0) ACCESSION YEAR_______ ACCESSION NO.________________ "DATA",160.2,5,1,53,0) SEQUENCE NO______ "DATA",160.2,5,1,54,0) "DATA",160.2,5,1,55,0) "DATA",160.2,5,1,56,0) "DATA",160.2,5,1,57,0) "DATA",160.2,5,1,58,0) ADDITIONAL PATIENT IDENTIFICATION "DATA",160.2,5,1,59,0) "DATA",160.2,5,1,60,0) "DATA",160.2,5,1,61,0) "DATA",160.2,5,1,62,0) "DATA",160.2,5,1,63,0) "DATA",160.2,5,1,64,0) "DATA",160.2,5,1,65,0) DEMOGRAPHICS AT DX: PHYSICIANS: "DATA",160.2,5,1,66,0) "DATA",160.2,5,1,67,0) MARITAL STATUS___ PRIMARY SURGEON_____________ "DATA",160.2,5,1,68,0) "DATA",160.2,5,1,69,0) ADDRESS_______________________ MANAGING PHYSICIAN______________ "DATA",160.2,5,1,70,0) "DATA",160.2,5,1,71,0) _______________________ FOLLOWING PHYSICIAN______________ "DATA",160.2,5,1,72,0) "DATA",160.2,5,1,73,0) _______________________ PHYSICIAN______________ "DATA",160.2,5,1,74,0) "DATA",160.2,5,1,75,0) COUNTY_____________ PHYSICIAN______________ "DATA",160.2,5,1,76,0) "DATA",160.2,5,1,77,0) PRIMARY PAYOR AT DX: ___________________ "DATA",160.2,5,1,78,0) "DATA",160.2,5,1,79,0) "DATA",160.2,5,1,80,0) "DATA",160.2,5,1,81,0) CANCER IDENTIFICATION "DATA",160.2,5,1,82,0) "DATA",160.2,5,1,83,0) "DATA",160.2,5,1,84,0) DATE DX _____________ "DATA",160.2,5,1,85,0) "DATA",160.2,5,1,86,0) CLASS OF CASE ______________ "DATA",160.2,5,1,87,0) "DATA",160.2,5,1,88,0) REFERRING FACILITY__________________ "DATA",160.2,5,1,89,0) "DATA",160.2,5,1,90,0) TRANSFER FACILITY___________________ "DATA",160.2,5,1,91,0) "DATA",160.2,5,1,92,0) FIRST ADMISSION DATE _____________ "DATA",160.2,5,1,93,0) "DATA",160.2,5,1,94,0) DISCHARGE DATE ____________________ "DATA",160.2,5,1,95,0) "DATA",160.2,5,1,96,0) TYPE OF REPORTING SOURCE ___________ "DATA",160.2,5,1,97,0) "DATA",160.2,5,1,98,0) DX FACILITY_________________________ "DATA",160.2,5,1,99,0) "DATA",160.2,5,1,100,0) ICDO TOPOGRAPHY____________________________ "DATA",160.2,5,1,101,0) "DATA",160.2,5,1,102,0) TEXT-PRIMARY SITE_________________________ "DATA",160.2,5,1,103,0) "DATA",160.2,5,1,104,0) LATERALITY______________ "DATA",160.2,5,1,105,0) "DATA",160.2,5,1,106,0) HISTOLOGY__________________________________ "DATA",160.2,5,1,107,0) "DATA",160.2,5,1,108,0) TEXT-HISTOLOGY____________________________ "DATA",160.2,5,1,109,0) "DATA",160.2,5,1,110,0) GRADE_________ DIAGNOSTIC CONFIRMATION_________ "DATA",160.2,5,1,111,0) "DATA",160.2,5,1,112,0) TUMOR MARKER 1 (ERA) _________ "DATA",160.2,5,1,113,0) "DATA",160.2,5,1,114,0) TUMOR MARKER 2 (PRA) _________ "DATA",160.2,5,1,115,0) "DATA",160.2,5,1,116,0) "DATA",160.2,5,1,117,0) "DATA",160.2,5,1,118,0) "DATA",160.2,5,1,119,0) "DATA",160.2,5,1,120,0) "DATA",160.2,5,1,121,0) "DATA",160.2,5,1,122,0) "DATA",160.2,5,1,123,0) DIAGNOSTIC WORK UP "DATA",160.2,5,1,124,0) "DATA",160.2,5,1,125,0) "DATA",160.2,5,1,126,0) "DATA",160.2,5,1,127,0) "DATA",160.2,5,1,128,0) "DATA",160.2,5,1,129,0) "DATA",160.2,5,1,130,0) TEXT-DX PROC-PE___________________________________________ "DATA",160.2,5,1,131,0) _____________________________________________________ "DATA",160.2,5,1,132,0) _____________________________________________________ "DATA",160.2,5,1,133,0) _____________________________________________________ "DATA",160.2,5,1,134,0) _____________________________________________________ "DATA",160.2,5,1,135,0) _____________________________________________________ "DATA",160.2,5,1,136,0) "DATA",160.2,5,1,137,0) TEXT-DX PROC- XRAY/SCAN___________________________________ "DATA",160.2,5,1,138,0) _____________________________________________________ "DATA",160.2,5,1,139,0) _____________________________________________________ "DATA",160.2,5,1,140,0) _____________________________________________________ "DATA",160.2,5,1,141,0) _____________________________________________________ "DATA",160.2,5,1,142,0) _____________________________________________________ "DATA",160.2,5,1,143,0) "DATA",160.2,5,1,144,0) TEXT-DX PROC- SCOPES______________________________________ "DATA",160.2,5,1,145,0) _____________________________________________________ "DATA",160.2,5,1,146,0) _____________________________________________________ "DATA",160.2,5,1,147,0) _____________________________________________________ "DATA",160.2,5,1,148,0) _____________________________________________________ "DATA",160.2,5,1,149,0) _____________________________________________________ "DATA",160.2,5,1,150,0) _____________________________________________________ "DATA",160.2,5,1,151,0) "DATA",160.2,5,1,152,0) TEXT-DX- LAB TESTS_______________________________________ "DATA",160.2,5,1,153,0) _____________________________________________________ "DATA",160.2,5,1,154,0) _____________________________________________________ "DATA",160.2,5,1,155,0) _____________________________________________________ "DATA",160.2,5,1,156,0) _____________________________________________________ "DATA",160.2,5,1,157,0) _____________________________________________________ "DATA",160.2,5,1,158,0) "DATA",160.2,5,1,159,0) TEXT-DX PROC- OP__________________________________________ "DATA",160.2,5,1,160,0) _____________________________________________________ "DATA",160.2,5,1,161,0) _____________________________________________________ "DATA",160.2,5,1,162,0) _____________________________________________________ "DATA",160.2,5,1,163,0) _____________________________________________________ "DATA",160.2,5,1,164,0) _____________________________________________________ "DATA",160.2,5,1,165,0) _____________________________________________________ "DATA",160.2,5,1,166,0) "DATA",160.2,5,1,167,0) "DATA",160.2,5,1,168,0) TEXT-DX PROC- PATH________________________________________ "DATA",160.2,5,1,169,0) _____________________________________________________ "DATA",160.2,5,1,170,0) _____________________________________________________ "DATA",160.2,5,1,171,0) _____________________________________________________ "DATA",160.2,5,1,172,0) _____________________________________________________ "DATA",160.2,5,1,173,0) _____________________________________________________ "DATA",160.2,5,1,174,0) _____________________________________________________ "DATA",160.2,5,1,175,0) "DATA",160.2,5,1,176,0) "DATA",160.2,5,1,177,0) "DATA",160.2,5,1,178,0) "DATA",160.2,5,1,179,0) "DATA",160.2,5,1,180,0) "DATA",160.2,5,1,181,0) "DATA",160.2,5,1,182,0) EXTENT OF DISEASE AT DIAGNOSIS "DATA",160.2,5,1,183,0) "DATA",160.2,5,1,184,0) "DATA",160.2,5,1,185,0) "DATA",160.2,5,1,186,0) "DATA",160.2,5,1,187,0) "DATA",160.2,5,1,188,0) "DATA",160.2,5,1,189,0) AJCC STAGING BASIS_____ "DATA",160.2,5,1,190,0) SIZE/DEPTH(MM)_______ "DATA",160.2,5,1,191,0) "DATA",160.2,5,1,192,0) EXTENSION _____________ "DATA",160.2,5,1,193,0) "DATA",160.2,5,1,194,0) LYMPH NODES________ NODES EXAMINED__________ "DATA",160.2,5,1,195,0) "DATA",160.2,5,1,196,0) NODES POSITIVE___________ "DATA",160.2,5,1,197,0) "DATA",160.2,5,1,198,0) METASTASIS:_____________, _______________,_______________ "DATA",160.2,5,1,199,0) "DATA",160.2,5,1,200,0) 0-NONE, 1-PERITONEUM, 2-LUNG, 3-PLEURA, 4-LIVER, "DATA",160.2,5,1,201,0) 5-BONE, 6-CNS, 7-SKIN, 8-LYMPH NODES(DISTANT), "DATA",160.2,5,1,202,0) 9-OTHER/GEN/CARCINOMATOSIS/UNK "DATA",160.2,5,1,203,0) "DATA",160.2,5,1,204,0) SUMMARY STAGE_______ "DATA",160.2,5,1,205,0) "DATA",160.2,5,1,206,0) MULTIPLE TUMORS ___________ "DATA",160.2,5,1,207,0) "DATA",160.2,5,1,208,0) "DATA",160.2,5,1,209,0) AJCC: T______ N______ M_____ STAGE______ "DATA",160.2,5,1,210,0) "DATA",160.2,5,1,211,0) STAGED BY __________ "DATA",160.2,5,1,212,0) "DATA",160.2,5,1,213,0) OTHER STAGE ____________________ "DATA",160.2,5,1,214,0) "DATA",160.2,5,1,215,0) "DATA",160.2,5,1,216,0) "DATA",160.2,5,1,217,0) "DATA",160.2,5,1,218,0) "DATA",160.2,5,1,219,0) "DATA",160.2,5,1,220,0) TREATMENT-FIRST COURSE OF THERAPY "DATA",160.2,5,1,221,0) "DATA",160.2,5,1,222,0) "DATA",160.2,5,1,223,0) NON CANCER DIRECTED SURGERY DATE ______________ "DATA",160.2,5,1,224,0) "DATA",160.2,5,1,225,0) CANCER-DIRECTED SURGERY ____________ "DATA",160.2,5,1,226,0) CANCER DIRECTED SURGERY DATE _________ "DATA",160.2,5,1,227,0) "DATA",160.2,5,1,228,0) SURGERY HOSPITAL________________________________ "DATA",160.2,5,1,229,0) TEXT-RX-SURGERY___________________________________________ "DATA",160.2,5,1,230,0) ___________________________________________________________ "DATA",160.2,5,1,231,0) ___________________________________________________________ "DATA",160.2,5,1,232,0) ___________________________________________________________ "DATA",160.2,5,1,233,0) ___________________________________________________________ "DATA",160.2,5,1,234,0) ___________________________________________________________ "DATA",160.2,5,1,235,0) "DATA",160.2,5,1,236,0) RECONSTRUCTIVE SURGERY ___________ "DATA",160.2,5,1,237,0) "DATA",160.2,5,1,238,0) SURGICAL APPROACH ____________ "DATA",160.2,5,1,239,0) "DATA",160.2,5,1,240,0) RESIDUAL TUMOR______ "DATA",160.2,5,1,241,0) "DATA",160.2,5,1,242,0) REASON FOR NO CANCER DIRECTED SURGERY ___________ "DATA",160.2,5,1,243,0) "DATA",160.2,5,1,244,0) "DATA",160.2,5,1,245,0) RADIATION THERAPY_______ RT DATE__________ "DATA",160.2,5,1,246,0) "DATA",160.2,5,1,247,0) RT HOSPITAL_____________________________________ "DATA",160.2,5,1,248,0) TEXT- RX RADIATION________________________________________ "DATA",160.2,5,1,249,0) ___________________________________________________________ "DATA",160.2,5,1,250,0) ___________________________________________________________ "DATA",160.2,5,1,251,0) ___________________________________________________________ "DATA",160.2,5,1,252,0) "DATA",160.2,5,1,253,0) TARGET PLACE________________ TARGET SITE____________ "DATA",160.2,5,1,254,0) "DATA",160.2,5,1,255,0) RADIATION SOURCE______ TOTAL DOSE TO TARGET _______ "DATA",160.2,5,1,256,0) "DATA",160.2,5,1,257,0) # FRACTIONS_______ PREDOMINANT FXN SIZE___________ "DATA",160.2,5,1,258,0) "DATA",160.2,5,1,259,0) #DAYS_____ START DATE________ STOP DATE________ "DATA",160.2,5,1,260,0) "DATA",160.2,5,1,261,0) TEXT_____________________________________________________ "DATA",160.2,5,1,262,0) _________________________________________________________ "DATA",160.2,5,1,263,0) "DATA",160.2,5,1,264,0) "DATA",160.2,5,1,265,0) TARGET PLACE________________ TARGET SITE____________ "DATA",160.2,5,1,266,0) "DATA",160.2,5,1,267,0) RADIATION SOURCE_____ TOTAL DOSE TO TARGET ________ "DATA",160.2,5,1,268,0) "DATA",160.2,5,1,269,0) # FRACTIONS_______ PREDOMINANT FXN SIZE____________ "DATA",160.2,5,1,270,0) "DATA",160.2,5,1,271,0) # DAYS______ START DATE________ STOP DATE________ "DATA",160.2,5,1,272,0) "DATA",160.2,5,1,273,0) "DATA",160.2,5,1,274,0) TEXT_______________________________________________________ "DATA",160.2,5,1,275,0) ___________________________________________________________ "DATA",160.2,5,1,276,0) "DATA",160.2,5,1,277,0) REASON FOR NO RADIATION _______________ "DATA",160.2,5,1,278,0) "DATA",160.2,5,1,279,0) RADIATION SEQUENCE____________ "DATA",160.2,5,1,280,0) "DATA",160.2,5,1,281,0) RADIATION TO BRAIN/CNS_______ DATE______________ "DATA",160.2,5,1,282,0) "DATA",160.2,5,1,283,0) FACILITY WHERE GIVEN_______________________ "DATA",160.2,5,1,284,0) "DATA",160.2,5,1,285,0) CHEMO______ CHEMO DATE ______________ "DATA",160.2,5,1,286,0) "DATA",160.2,5,1,287,0) CHEMO HOSPITAL___________________ "DATA",160.2,5,1,288,0) "DATA",160.2,5,1,289,0) TEXT-RX CHEMO_____________________________________________ "DATA",160.2,5,1,290,0) __________________________________________________________ "DATA",160.2,5,1,291,0) "DATA",160.2,5,1,292,0) REASON FOR NO CHEMOTHERAPY __________ "DATA",160.2,5,1,293,0) "DATA",160.2,5,1,294,0) "DATA",160.2,5,1,295,0) HORMONE THERAPY______ HORMONE THERAPY DATE________ "DATA",160.2,5,1,296,0) "DATA",160.2,5,1,297,0) HORMONE THERAPY HOSPITAL_____________________ "DATA",160.2,5,1,298,0) "DATA",160.2,5,1,299,0) TEXT- RX HORMONE__________________________________________ "DATA",160.2,5,1,300,0) ___________________________________________________________ "DATA",160.2,5,1,301,0) "DATA",160.2,5,1,302,0) REASON FOR NO HORMONE THERAPY ____________ "DATA",160.2,5,1,303,0) "DATA",160.2,5,1,304,0) "DATA",160.2,5,1,305,0) IMMUNOTHERAPY (BRM)_________ IMMUNO DATE____________ "DATA",160.2,5,1,306,0) "DATA",160.2,5,1,307,0) IMMUNO HOSPITAL______________________ "DATA",160.2,5,1,308,0) "DATA",160.2,5,1,309,0) TEXT-RX IMMUNO ______________________________________________ "DATA",160.2,5,1,310,0) ___________________________________________________________ "DATA",160.2,5,1,311,0) "DATA",160.2,5,1,312,0) "DATA",160.2,5,1,313,0) OTHER CANCER DIRECTED THERAPY ________ DATE___________ "DATA",160.2,5,1,314,0) "DATA",160.2,5,1,315,0) OTHER CANCER DIRECTED THERAPY HOSPITAL_____________ "DATA",160.2,5,1,316,0) "DATA",160.2,5,1,317,0) TEXT- RX OTHER____________________________________________ "DATA",160.2,5,1,318,0) ___________________________________________________________ "DATA",160.2,5,1,319,0) "DATA",160.2,5,1,320,0) "DATA",160.2,5,1,321,0) "DATA",160.2,5,1,322,0) "DATA",160.2,5,1,323,0) TEXT-(GENERAL) "DATA",160.2,5,1,324,0) REMARKS_____________________________________ "DATA",160.2,5,1,325,0) ___________________________________________________________ "DATA",160.2,5,1,326,0) ___________________________________________________________ "DATA",160.2,5,1,327,0) ___________________________________________________________ "DATA",160.2,5,1,328,0) ___________________________________________________________ "DATA",160.2,5,1,329,0) ___________________________________________________________ "DATA",160.2,5,1,330,0) ___________________________________________________________ "DATA",160.2,5,1,331,0) ___________________________________________________________ "DATA",160.2,5,1,332,0) ___________________________________________________________ "DATA",160.2,5,1,333,0) ___________________________________________________________ "DATA",160.2,5,1,334,0) ___________________________________________________________ "DATA",160.2,5,1,335,0) ___________________________________________________________ "DATA",160.2,5,1,336,0) ___________________________________________________________ "DATA",160.2,5,1,337,0) "DATA",160.2,5,1,338,0) "DATA",160.2,5,1,339,0) "DATA",160.2,5,1,340,0) "DATA",160.2,5,1,341,0) ABSTRACT DATE___________________ ABSTRACT STATUS_________ "DATA",160.2,5,1,342,0) "DATA",160.2,5,1,343,0) ABSTRACTER_____________________________ "DATA",160.2,5,1,344,0) "DATA",160.2,5,1,345,0) "DATA",160.2,5,1,346,0) PHYSICIAN'S STAGE ______________________ "DATA",160.2,5,1,347,0) "DATA",160.2,5,1,348,0) PHYSICIAN STAGING ___________________________ "DATA",160.2,5,1,349,0) "DATA",160.2,5,1,350,0) "DATA",160.2,5,1,351,0) "DATA",160.2,5,1,352,0) "DATA",160.2,5,1,353,0) "DATA",160.2,5,1,354,0) "DATA",160.2,5,1,355,0) "DATA",160.2,5,1,356,0) "DATA",160.2,5,1,357,0) "DATA",160.2,5,1,358,0) "DATA",160.2,5,1,359,0) "DATA",160.2,5,1,360,0) "DATA",160.2,5,1,361,0) "DATA",160.2,5,1,362,0) "DATA",160.2,5,1,363,0) FOLLOW-UP WORKSHEET "DATA",160.2,5,1,364,0) "DATA",160.2,5,1,365,0) "DATA",160.2,5,1,366,0) "DATA",160.2,5,1,367,0) "DATA",160.2,5,1,368,0) "DATA",160.2,5,1,369,0) "DATA",160.2,5,1,370,0) LAST CONTACT DATE __________________ "DATA",160.2,5,1,371,0) "DATA",160.2,5,1,372,0) VITAL STATUS __________ "DATA",160.2,5,1,373,0) "DATA",160.2,5,1,374,0) FOLLOW-UP METHOD _____________________ "DATA",160.2,5,1,375,0) "DATA",160.2,5,1,376,0) QUALITY OF SURVIVAL _________________________ "DATA",160.2,5,1,377,0) "DATA",160.2,5,1,378,0) NXT FOLLOW-UP METHOD _______________ "DATA",160.2,5,1,379,0) "DATA",160.2,5,1,380,0) 1ST PRIMARY SITE __________ CANCER STATUS ________ "DATA",160.2,5,1,381,0) "DATA",160.2,5,1,382,0) 2ND PRIMARY SITE __________ CANCER STATUS ________ "DATA",160.2,5,1,383,0) "DATA",160.2,5,1,384,0) 3RD PRIMARY SITE __________ CANCER STATUS ________ "DATA",160.2,5,1,385,0) "DATA",160.2,5,1,386,0) "DATA",160.2,5,1,387,0) RECURRENCE DATE ______________________ "DATA",160.2,5,1,388,0) "DATA",160.2,5,1,389,0) TYPE OF RECURRENCE _______________ "DATA",160.2,5,1,390,0) "DATA",160.2,5,1,391,0) DISTANT SITE 1 ___________________ "DATA",160.2,5,1,392,0) "DATA",160.2,5,1,393,0) DISTANT SITE 2 ___________________ "DATA",160.2,5,1,394,0) "DATA",160.2,5,1,395,0) DISTANT SITE 3 ___________________ "DATA",160.2,5,1,396,0) "DATA",160.2,5,1,397,0) "DATA",160.2,5,1,398,0) SUBSEQUENT COURSE OF THERAPY "DATA",160.2,5,1,399,0) "DATA",160.2,5,1,400,0) INITIATION DATE __________________ "DATA",160.2,5,1,401,0) "DATA",160.2,5,1,402,0) SURGERY CODE __________ DATE ______________ "DATA",160.2,5,1,403,0) "DATA",160.2,5,1,404,0) RADIATION CODE ________ DATE ______________ "DATA",160.2,5,1,405,0) "DATA",160.2,5,1,406,0) RADIATION SEQUENCE ________ "DATA",160.2,5,1,407,0) "DATA",160.2,5,1,408,0) RADIATION TO BRAIN/CNS ____ DATE ______________ "DATA",160.2,5,1,409,0) "DATA",160.2,5,1,410,0) CHEMOTHERAPY ______________ DATE ______________ "DATA",160.2,5,1,411,0) "DATA",160.2,5,1,412,0) HORMONE/THERAPY ___________ DATE ______________ "DATA",160.2,5,1,413,0) "DATA",160.2,5,1,414,0) IMMUNOTHERAPY (BRM) _______ DATE ______________ "DATA",160.2,5,1,415,0) "DATA",160.2,5,1,416,0) OTHER CANCER THERAPY ______ DATE ______________ "DATA",160.2,5,1,417,0) "DATA",160.2,5,1,418,0) PLACE ________________________________________ "DATA",160.2,5,1,419,0) "DATA",160.2,5,1,420,0) COMMENTS ______________________________________________ "DATA",160.2,5,1,421,0) "DATA",160.2,5,1,422,0) _______________________________________________________ "DATA",160.2,5,1,423,0) "DATA",160.2,5,1,424,0) _______________________________________________________ "DATA",160.2,5,1,425,0) "DATA",160.2,5,1,426,0) "DATA",160.2,5,1,427,0) "DATA",160.2,5,1,428,0) "DATA",160.2,5,1,429,0) "DATA",160.2,5,1,430,0) DEATH INFORMATION "DATA",160.2,5,1,431,0) "DATA",160.2,5,1,432,0) "DATA",160.2,5,1,433,0) "DATA",160.2,5,1,434,0) "DATA",160.2,5,1,435,0) "DATA",160.2,5,1,436,0) DATE@TIME OF DEATH _________________________ "DATA",160.2,5,1,437,0) "DATA",160.2,5,1,438,0) CAUSE OF DEATH: DIRECTLY RELATED INDIRECTLY RELATED "DATA",160.2,5,1,439,0) "DATA",160.2,5,1,440,0) NOT RELATED UNKNOWN IF RELATED "DATA",160.2,5,1,441,0) "DATA",160.2,5,1,442,0) ICD-9 CODE _________________________________ "DATA",160.2,5,1,443,0) "DATA",160.2,5,1,444,0) PLACE OF DEATH _________________________________ "DATA",160.2,5,1,445,0) "DATA",160.2,5,1,446,0) CARE CENTER AT DEATH __________________ "DATA",160.2,5,1,447,0) "DATA",160.2,5,1,448,0) AUTOPSY PERFORMED YES NO UNKNOWN "DATA",160.2,5,1,449,0) "DATA",160.2,5,1,450,0) AUTOPSY DATE/TIME ___________________ "DATA",160.2,5,1,451,0) "DATA",160.2,5,1,452,0) AUTOPSY NO. __________________ "DATA",160.2,5,1,453,0) "DATA",160.2,5,1,454,0) PATH/AUTOPSY (GROSS & MICRO): "DATA",160.2,5,1,455,0) "DATA",160.2,5,1,456,0) _______________________________________________________________ "DATA",160.2,5,1,457,0) "DATA",160.2,5,1,458,0) _______________________________________________________________ "DATA",160.2,5,1,459,0) "DATA",160.2,5,1,460,0) _______________________________________________________________ "DATA",160.2,5,1,461,0) "DATA",160.2,5,1,462,0) _______________________________________________________________ "DATA",160.2,5,1,463,0) "DATA",160.2,5,1,464,0) _______________________________________________________________ "DATA",160.2,5,1,465,0) "DATA",160.2,5,1,466,0) _______________________________________________________________ "DATA",160.2,5,1,467,0) "DATA",160.2,5,1,468,0) _______________________________________________________________ "DATA",160.2,5,2,0) 1 "DATA",160.2,5,2,1,0) Worksheet for Abstracting "DATA",160.2,6,0) FOLLOWUP RATE REPORT^1^Y "DATA",160.2,6,1,0) ^^34^34^2970319^^^^ "DATA",160.2,6,1,1,0) |SETTAB(68)| "DATA",160.2,6,1,2,0) |NOW| "DATA",160.2,6,1,3,0) FOLLOW-UP RATE FOR ALL PATIENTS (LIVING AND DEAD) NUMBER PERCENT "DATA",160.2,6,1,4,0) "DATA",160.2,6,1,5,0) Total cases in registry since reference date |TOTAL#||TAB|100% "DATA",160.2,6,1,6,0) "DATA",160.2,6,1,7,0) 1. Less benign/borderline (behavior code 0/1) - |BENIGN| "DATA",160.2,6,1,8,0) 2. Less Carcinoma in situ CERVIX cases - |CERVIX| "DATA",160.2,6,1,9,0) 3. Less cases of in situ/localized basal and - |LOCAL BASAL| "DATA",160.2,6,1,10,0) squamous cell carcinoma of skin "DATA",160.2,6,1,11,0) 4. Less foreign residents - |FOREIGN| "DATA",160.2,6,1,12,0) 5. Less nonanalytic (includes recurrent cases - |NONANALYTIC| "DATA",160.2,6,1,13,0) class of case 3,4,5, 8 & 9) "DATA",160.2,6,1,14,0) "DATA",160.2,6,1,15,0) SUBTOTAL CASES = ANALYTIC CASES (A) |ANALYTIC||TAB|100% "DATA",160.2,6,1,16,0) (class of case 0, 1, 2) "DATA",160.2,6,1,17,0) "DATA",160.2,6,1,18,0) 1. Less number dead (B) |DEAD||TAB||%DEAD|% "DATA",160.2,6,1,19,0) "DATA",160.2,6,1,20,0) SUBTOTAL CASES (NUMBER LIVING) (C) |LIVING||TAB||%LIVING|% "DATA",160.2,6,1,21,0) "DATA",160.2,6,1,22,0) 1. Less number current (known to be alive "DATA",160.2,6,1,23,0) in the last 15 months) (D) |CURRENT||TAB||%CURRENT-TOTAL|% "DATA",160.2,6,1,24,0) "DATA",160.2,6,1,25,0) TOTAL (LOST TO FOLLOW UP OR NOT CURRENT) (E) |LTF| *|TAB||%LTF-TOTAL|% "DATA",160.2,6,1,26,0) (* should be less than 10%) "DATA",160.2,6,1,27,0) ======================================================================== "DATA",160.2,6,1,28,0) "DATA",160.2,6,1,29,0) FOLLOW UP RATE FOR LIVING PATIENTS ONLY NUMBER PERCENT "DATA",160.2,6,1,30,0) "DATA",160.2,6,1,31,0) Enter the total number from Line C |LIVING||TAB|100% "DATA",160.2,6,1,32,0) Subtract the total number from Line D - |CURRENT||TAB||%CURRENT-ALIVE|% "DATA",160.2,6,1,33,0) "DATA",160.2,6,1,34,0) Total lost/not current of living patients - |LTF||TAB||%LTF-ALIVE|% "DATA",160.2,6,2,0) ^^3^3^2960424^^^^ "DATA",160.2,6,2,1,0) This form produces the Follow-Up Summary Report from data contained in the "DATA",160.2,6,2,2,0) ONCOLOGY SITE PARAMETERS File (#160.1). It is invoked from Utility "DATA",160.2,6,2,3,0) Options, Registry Summary, Follow-Up. "DATA",160.2,7,0) PRIMARY ACOS INFO (850)^1^Y "DATA",160.2,7,1,0) ^^200^200^2970804^^ "DATA",160.2,7,1,1,0) RETRIEVING DHCP ONCOLOGY PACKAGE INFORMATION "DATA",160.2,7,1,2,0) "DATA",160.2,7,1,3,0) FOR THE ACOS CALL FOR DATA "DATA",160.2,7,1,4,0) "DATA",160.2,7,1,5,0) "DATA",160.2,7,1,6,0) The Oncology Package includes an option that will search the ONCOLOGY "DATA",160.2,7,1,7,0) PRIMARY File (#165.5) and the ONCOLOGY PATIENT File (#160) for the "DATA",160.2,7,1,8,0) information needed to respond to the Commission on Cancer's Annual "DATA",160.2,7,1,9,0) Call for Data. To create the file for the Annual Call for Data use "DATA",160.2,7,1,10,0) the CT option under the UTL *..Utility Options menu. The six-digit "DATA",160.2,7,1,11,0) Institution ID number and the accession year are required. "DATA",160.2,7,1,12,0) "DATA",160.2,7,1,13,0) Contact your IRM Service if you are not sure how to save the text from "DATA",160.2,7,1,14,0) the screen to a file using your terminal emulation program such as Procomm, "DATA",160.2,7,1,15,0) Smarterm, or Keaterm. The following uses the word CAPTURE to indicate "DATA",160.2,7,1,16,0) the creation of a text file. "DATA",160.2,7,1,17,0) "DATA",160.2,7,1,18,0) Example Session Showing Data Capture "DATA",160.2,7,1,19,0) "DATA",160.2,7,1,20,0) Below is part of an actual DHCP session. You will type in the "DATA",160.2,7,1,21,0) double-underlined responses. "DATA",160.2,7,1,22,0) "DATA",160.2,7,1,23,0) *************** [ Beginning of DHCP Session] *************** "DATA",160.2,7,1,24,0) "DATA",160.2,7,1,25,0) "DATA",160.2,7,1,26,0) "DATA",160.2,7,1,27,0) "DATA",160.2,7,1,28,0) VVVV VVAA "DATA",160.2,7,1,29,0) VVVV VVAAAA "DATA",160.2,7,1,30,0) VVVV VVAAAAAA "DATA",160.2,7,1,31,0) VVVV VVAA AAAA "DATA",160.2,7,1,32,0) VVVV VVAA AAAA "DATA",160.2,7,1,33,0) VVVV VVAA AAAA "DATA",160.2,7,1,34,0) VVVVVVAA AAAA "DATA",160.2,7,1,35,0) VVVVAA AAAAAAAAAAA "DATA",160.2,7,1,36,0) VVAA AAAAAAAAAAA "DATA",160.2,7,1,37,0) "DATA",160.2,7,1,38,0) Department of Veterans Affairs "DATA",160.2,7,1,39,0) "DATA",160.2,7,1,40,0) ONCOLOGY TUMOR REGISTRY V2.11P9T1 "DATA",160.2,7,1,41,0) "DATA",160.2,7,1,42,0) Choose among the following functions: "DATA",160.2,7,1,43,0) "DATA",160.2,7,1,44,0) "DATA",160.2,7,1,45,0) SUS *..Casefinding/Suspense ... "DATA",160.2,7,1,46,0) ABS *..Abstracting/Printing ... "DATA",160.2,7,1,47,0) FOL *..Follow-up Functions ... "DATA",160.2,7,1,48,0) LIS *..Registry Lists ... "DATA",160.2,7,1,49,0) ANN *..Annual Reports ... "DATA",160.2,7,1,50,0) STA *..Statistical Reports ... "DATA",160.2,7,1,51,0) UTL *..Utility Options ... "DATA",160.2,7,1,52,0) "DATA",160.2,7,1,53,0) Select DHCP Tumor Registry Option: UTL *..Utility Options "DATA",160.2,7,1,54,0) ======== "DATA",160.2,7,1,55,0) "DATA",160.2,7,1,56,0) "DATA",160.2,7,1,57,0) "DATA",160.2,7,1,58,0) ***************UTILITY OPTIONS************* "DATA",160.2,7,1,59,0) "DATA",160.2,7,1,60,0) "DATA",160.2,7,1,61,0) "DATA",160.2,7,1,62,0) "DATA",160.2,7,1,63,0) PI Patient/Primary Inquiry "DATA",160.2,7,1,64,0) RD Print Oncology Patient Record "DATA",160.2,7,1,65,0) RS Registry Summary Reports "DATA",160.2,7,1,66,0) DP Delete Oncology Patient "DATA",160.2,7,1,67,0) DS Delete Primary Site/GP Record "DATA",160.2,7,1,68,0) EA Edit Site/AccSeq# Data "DATA",160.2,7,1,69,0) ES Edit Surgery Codes "DATA",160.2,7,1,70,0) LG List Topographic Site Groups "DATA",160.2,7,1,71,0) LT List Topography Codes by Site Group "DATA",160.2,7,1,72,0) ER Report of accessions requiring additional input "DATA",160.2,7,1,73,0) AR Create a report to preview ACOS output "DATA",160.2,7,1,74,0) CT Create ACOS Data Disk "DATA",160.2,7,1,75,0) CC Create State Data Disk "DATA",160.2,7,1,76,0) TR Define Tumor Registry Parameters "DATA",160.2,7,1,77,0) FA Enter/Edit Facility file "DATA",160.2,7,1,78,0) "DATA",160.2,7,1,79,0) Select *..Utility Options Option: CT Create ACOS Data Disk "DATA",160.2,7,1,80,0) ======= "DATA",160.2,7,1,81,0) DISPLAY/PRINT on-line instructions for Help? Yes// NO "DATA",160.2,7,1,82,0) == "DATA",160.2,7,1,83,0) Enter the Hospital ACoS Number. "DATA",160.2,7,1,84,0) ACOS Number: 431910// "DATA",160.2,7,1,85,0) ========================= "DATA",160.2,7,1,86,0) "DATA",160.2,7,1,87,0) Enter the accession year to be used by the extract. "DATA",160.2,7,1,88,0) Accession year: 1997// 1995 "DATA",160.2,7,1,89,0) ========== "DATA",160.2,7,1,90,0) "DATA",160.2,7,1,91,0) These are your current settings: "DATA",160.2,7,1,92,0) "DATA",160.2,7,1,93,0) Hospital ACoS Number: "DATA",160.2,7,1,94,0) Year: 1995 "DATA",160.2,7,1,95,0) "DATA",160.2,7,1,96,0) Are these definitions correct? Yes// "DATA",160.2,7,1,97,0) ===== "DATA",160.2,7,1,98,0) "DATA",160.2,7,1,99,0) "DATA",160.2,7,1,100,0) I will hang for 30 seconds while you set up the log file. (Hit to "DATA",160.2,7,1,101,0) start sooner, or enter '^' to abort): "DATA",160.2,7,1,102,0) "DATA",160.2,7,1,103,0) ******************************************************************* "DATA",160.2,7,1,104,0) * At this point you will need to tell your terminal emulation * "DATA",160.2,7,1,105,0) * program to set up a CAPTURE file. Please name the file * "DATA",160.2,7,1,106,0) * "C:\VADATAYR.DAT". Where the letters YR are replaced by the * "DATA",160.2,7,1,107,0) * last two digits of the year being CAPTURED. "C:\VADATA95.DAT" * "DATA",160.2,7,1,108,0) * would be the name of this CAPTURE file. Then after you have * "DATA",160.2,7,1,109,0) * opened the CAPTURE file press the return key. * "DATA",160.2,7,1,110,0) ******************************************************************* "DATA",160.2,7,1,111,0) "DATA",160.2,7,1,112,0) "DATA",160.2,7,1,113,0) "DATA",160.2,7,1,114,0) ===== "DATA",160.2,7,1,115,0) "DATA",160.2,7,1,116,0) I000D34443643191005 HOFFMAN ID08928347 499331 "DATA",160.2,7,1,117,0) I000N32443643191005 MENTOR AZ02756736 207330 "DATA",160.2,7,1,118,0) I000N32443643191005 MENTOR AZ02756736 207330 "DATA",160.2,7,1,119,0) I000T22223643191005 HONOLULU HI00339484 201339 "DATA",160.2,7,1,120,0) I000T22223643191005 HONOLULU HI00339484 201339 "DATA",160.2,7,1,121,0) I000Z67883643191005 KJDSFLK NY02914215 298330 "DATA",160.2,7,1,122,0) I000H6-003643191005 BOSTON MA02502130 101330 "DATA",160.2,7,1,123,0) I000F14153643191005 TOPEKA KS02948394 501330 "DATA",160.2,7,1,124,0) I000F14153643191005 TOPEKA KS02948394 501330 "DATA",160.2,7,1,125,0) "DATA",160.2,7,1,126,0) (etc.) "DATA",160.2,7,1,127,0) . "DATA",160.2,7,1,128,0) . "DATA",160.2,7,1,129,0) . "DATA",160.2,7,1,130,0) "DATA",160.2,7,1,131,0) << Total records created: 336 >> "DATA",160.2,7,1,132,0) "DATA",160.2,7,1,133,0) "DATA",160.2,7,1,134,0) ***************** [ End of Terminal Session ] ***************** "DATA",160.2,7,1,135,0) "DATA",160.2,7,1,136,0) At this point, you will need to close the CAPTURE file. Next, you will "DATA",160.2,7,1,137,0) need to log out of DHCP. This can be done by typing the word HALT at the "DATA",160.2,7,1,138,0) menu prompt. Now you will need to quit out of the terminal emulation "DATA",160.2,7,1,139,0) program and exit to DOS. At the DOS prompt, type the following "CD C:\". "DATA",160.2,7,1,140,0) This will put you at the root level of DOS on the "C" drive where the "DATA",160.2,7,1,141,0) file should be stored. "DATA",160.2,7,1,142,0) "DATA",160.2,7,1,143,0) For example: "DATA",160.2,7,1,144,0) "DATA",160.2,7,1,145,0) C:\> CD C:\ "DATA",160.2,7,1,146,0) =========== "DATA",160.2,7,1,147,0) C:\> "DATA",160.2,7,1,148,0) "DATA",160.2,7,1,149,0) "DATA",160.2,7,1,150,0) Next you will need to find out the size of the file. Type the following "DATA",160.2,7,1,151,0) "DIR VADATA95.DAT" followed by a return. The computer will respond with "DATA",160.2,7,1,152,0) the following: "DATA",160.2,7,1,153,0) "DATA",160.2,7,1,154,0) C:\> DIR VADATA95.DAT "DATA",160.2,7,1,155,0) ===================== "DATA",160.2,7,1,156,0) "DATA",160.2,7,1,157,0) Volume in drive C is MICRON "DATA",160.2,7,1,158,0) Volume Serial Number is 2432-0F07 "DATA",160.2,7,1,159,0) Directory of C:\ "DATA",160.2,7,1,160,0) "DATA",160.2,7,1,161,0) VADATA95 DAT 251,671 02-12-97 12:51p "DATA",160.2,7,1,162,0) 1 file(s) 251,671 bytes "DATA",160.2,7,1,163,0) 0 dir(s) 1,196,556,288 bytes free "DATA",160.2,7,1,164,0) "DATA",160.2,7,1,165,0) C:\> "DATA",160.2,7,1,166,0) "DATA",160.2,7,1,167,0) If the file size is smaller than 1,400,000 (1.4 meg) all you will need to do "DATA",160.2,7,1,168,0) is copy the file to a formatted blank high density 3.5 inch floppy diskette. "DATA",160.2,7,1,169,0) Insert the 3.5 disk into the drive. Type the following "DATA",160.2,7,1,170,0) "COPY C:\VADATA95.DAT :" followed by a return. "DATA",160.2,7,1,171,0) "DATA",160.2,7,1,172,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,7,1,173,0) ! ! "DATA",160.2,7,1,174,0) ! Replace with the letter of the disk drive ! "DATA",160.2,7,1,175,0) ! that has the blank disk. ! "DATA",160.2,7,1,176,0) ! ! "DATA",160.2,7,1,177,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,7,1,178,0) "DATA",160.2,7,1,179,0) For this example the "A" indicates that the "A drive" is the 3.5 inch "DATA",160.2,7,1,180,0) drive. The computer will respond with the following: "DATA",160.2,7,1,181,0) "DATA",160.2,7,1,182,0) C:\> COPY C:\VADATA95.DAT A: "DATA",160.2,7,1,183,0) ============================ "DATA",160.2,7,1,184,0) 1 file(s) copied "DATA",160.2,7,1,185,0) C:\> "DATA",160.2,7,1,186,0) "DATA",160.2,7,1,187,0) Last, remove the 3.5 disk from the drive and place a label on it. The label "DATA",160.2,7,1,188,0) should have: the file name (VADATA95.DAT); the hospital name and ID#; and "DATA",160.2,7,1,189,0) contact person and phone number written on it. "DATA",160.2,7,1,190,0) "DATA",160.2,7,1,191,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,7,1,192,0) ! ! "DATA",160.2,7,1,193,0) ! DO NOT PUT THE LABEL OVER SHUTTER OF THE DISKETTE ! "DATA",160.2,7,1,194,0) ! THIS WILL DESTROY THE DISK AND MAKE THE DATA UNREADABLE ! "DATA",160.2,7,1,195,0) ! ! "DATA",160.2,7,1,196,0) !NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE!NOTE! "DATA",160.2,7,1,197,0) "DATA",160.2,7,1,198,0) If the file size is greater than 1,400,000 (1.4 meg) then contact someone in "DATA",160.2,7,1,199,0) IRM Service to COMPRESS the file prior to sending it to the American College "DATA",160.2,7,1,200,0) of Surgeons. "DATA",160.2,7,2,0) ^^2^2^2970804^^^^ "DATA",160.2,7,2,1,0) This form supplies directions for the gathering of the ACOS data to be sent "DATA",160.2,7,2,2,0) to DAM for their annual call for data. "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.2) FORMS/INSTRUCTIONS "FIA",160.2,0) ^ONCO(160.2, "FIA",160.2,0,0) 160.2I "FIA",160.2,0,1) y^y^f^^n^^y^o^n "FIA",160.2,0,10) "FIA",160.2,0,11) "FIA",160.2,0,"RLRO") "FIA",160.2,0,"VR") 2.11^ONC "FIA",160.2,160.2) 0 "FIA",160.2,160.21) 0 "FIA",160.2,160.23) 0 "INI") EN1^ONCPRE12 "KRN",19,5191,-1) 0^3 "KRN",19,5191,0) ONCO #STATE DATA DISK^Create State Data Disk^^R^^^^^^^^^^^ "KRN",19,5191,1,0) ^^6^6^2970725^^^^ "KRN",19,5191,1,1,0) This option will allow for the creation of a disk to be "KRN",19,5191,1,2,0) for transmission of cancer registry information "KRN",19,5191,1,3,0) including confidential patient identity data to the State "KRN",19,5191,1,4,0) collecting agencies. The length of the strings gathered "KRN",19,5191,1,5,0) here are 1150 characters as opposed to the 850 character "KRN",19,5191,1,6,0) ACOS data strings. "KRN",19,5191,15) "KRN",19,5191,25) EN1^ONCACD0(0,1) "KRN",19,5191,"U") CREATE STATE DATA DISK "KRN",19,5220,-1) 2^5 "KRN",19,5220,0) ONCO UTIL MENU^*..Utility Options^^M^10002^^^^^^^^^1^1 "KRN",19,5220,10,0) ^19.01PI^17^17 "KRN",19,5220,10,13,0) 5288^AR^11 "KRN",19,5220,10,13,"^") ONCO #SITE-CREATE ACOS REPORT "KRN",19,5220,10,14,0) 5296^CT^12 "KRN",19,5220,10,14,"^") ONCO #SITE-CREATE ACOS DISK "KRN",19,5220,10,15,0) 5191^CC^13 "KRN",19,5220,10,15,"^") ONCO #STATE DATA DISK "KRN",19,5220,10,17,0) 6156^SR^14 "KRN",19,5220,10,17,"^") ONCO #STATE DATA REPORT "KRN",19,5220,"U") *..UTILITY OPTIONS "KRN",19,5288,-1) 0^2 "KRN",19,5288,0) ONCO #SITE-CREATE ACOS REPORT^Create a report to preview ACOS output^^R^^^^^^^^ "KRN",19,5288,1,0) ^^4^4^2970725^^^^ "KRN",19,5288,1,1,0) Report which allows the tumor registrar to preview the contents of the "KRN",19,5288,1,2,0) specified accessions intended for output to the ACOS disk. This option is "KRN",19,5288,1,3,0) independent of the disk capture function but uses the precise database "KRN",19,5288,1,4,0) selection criteria. "KRN",19,5288,25) EN1^ONCACD0(1,0) "KRN",19,5288,"U") CREATE A REPORT TO PREVIEW ACO "KRN",19,5296,-1) 0^1 "KRN",19,5296,0) ONCO #SITE-CREATE ACOS DISK^Create ACOS Data Disk^^R^^^^^^^^ONCOLOGY^^^ "KRN",19,5296,1,0) ^^3^3^2970725^^^^ "KRN",19,5296,1,1,0) This option will allow for the creation of a disk to be submitted "KRN",19,5296,1,2,0) to the American College of Surgeons (ACOS) in response to the "KRN",19,5296,1,3,0) annual call for data. FOR USE BY IRM ONLY. "KRN",19,5296,10.1) Non-Confidential ACOS Tape "KRN",19,5296,15) "KRN",19,5296,20) "KRN",19,5296,25) EN1^ONCACD0(0,0) "KRN",19,5296,"U") CREATE ACOS DATA DISK "KRN",19,6156,-1) 0^4 "KRN",19,6156,0) ONCO #STATE DATA REPORT^Create a report to preview State output^^R^^^^^^^^ONCOLOGY "KRN",19,6156,1,0) ^^1^1^2970728^^ "KRN",19,6156,1,1,0) Print out state extract data in a report format. "KRN",19,6156,25) EN1^ONCACD0(1,1) "KRN",19,6156,"U") CREATE A REPORT TO PREVIEW STA "OER",123,0) 123^GMRA^1^ "OER",123,1,0) ^100.9951PA^1^1 "OER",123,1,1,0) 115 "OER",123,1,1,1,0) ^100.99511PA^1^1 "OER",123,1,1,1,1,0) 110 "ORD",0,9.8) 9.8;;1;RTNF^XPDTA;RTNE^XPDTA "ORD",0,9.8,0) ROUTINE "ORD",18,19) 19;18;;;OPT^XPDTA;OPTF1^XPDIA;OPTE1^XPDIA;OPTF2^XPDIA;;OPTDEL^XPDIA "ORD",18,19,0) OPTION "PKG",123,-1) 1^1 "PKG",123,0) ONCOLOGY^ONCO^Oncology treatment tracking & tumor registry package. "PKG",123,22,0) ^9.49I^1^1 "PKG",123,22,1,0) 2.11^2950307^2951204 "PKG",123,22,1,"PAH",1,0) 12 "PKG",123,22,1,"PAH",1,1,0) ^^4^4^2970902 "PKG",123,22,1,"PAH",1,1,1,0) North American Association of Central Cancer Registries (NAACCR) Annual "PKG",123,22,1,"PAH",1,1,2,0) Call for Data and State Data for the years 1985, 1990, 1995. This patch "PKG",123,22,1,"PAH",1,1,3,0) is to update the NAACCR Annual Call for Data and the State Data to the "PKG",123,22,1,"PAH",1,1,4,0) 1995 Data extract. "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","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") 17 "RTN","ONCACD0") 0^2^B27224677 "RTN","ONCACD0",1,0) ONCACD0 ;HIRMFO/WAA - Select parameter Annual Call for Data routine;5/9/97 10:14 "RTN","ONCACD0",2,0) ;;2.11;Oncology;**9,12**;Mar 07, 1995 "RTN","ONCACD0",3,0) EN1(DEVICE,STEXT) ; Main entry point "RTN","ONCACD0",4,0) ; Select the Extract to use from file 160.16 "RTN","ONCACD0",5,0) EN2 N EXTRACT,STAT,STAT1,STAT2,DATE,YESNO,SDT,EDT,QUEUE "RTN","ONCACD0",6,0) S DEVICE=$G(DEVICE,0) "RTN","ONCACD0",7,0) S STEXT=$G(STEXT,0) "RTN","ONCACD0",8,0) S QUEUE=0 "RTN","ONCACD0",9,0) I '$D(^ONCO(160.16,1,0))#2 D Q "RTN","ONCACD0",10,0) .W !,"There is no on Extract file 160.16." "RTN","ONCACD0",11,0) .Q "RTN","ONCACD0",12,0) S EXTRACT=(1+STEXT),STAT=0,DATE=0,OUT=0,SDT=0,EDT=0 "RTN","ONCACD0",13,0) D DISPLAY(.OUT) "RTN","ONCACD0",14,0) I STEXT D GETREC(.EXTRACT,.OUT) "RTN","ONCACD0",15,0) I 'OUT S STAT=$$GETHOSP "RTN","ONCACD0",16,0) I 'STAT S OUT=1 "RTN","ONCACD0",17,0) I 'OUT S STAT1=$P(STAT,U,1),STAT2=$P(STAT,U,2) "RTN","ONCACD0",18,0) I 'OUT D GETDATE(.DATE,.OUT) "RTN","ONCACD0",19,0) I 'OUT,STEXT D GETDT(.SDT,.EDT,DATE,.OUT) "RTN","ONCACD0",20,0) I 'OUT D VERIFY(STAT,DATE,SDT,EDT,STEXT,.YESNO,.OUT) "RTN","ONCACD0",21,0) I 'OUT G:'YESNO EN2 "RTN","ONCACD0",22,0) I 'OUT D DEVICE(DEVICE,.OUT) "RTN","ONCACD0",23,0) I 'OUT D:'QUEUE PRINT(DEVICE,.OUT) "RTN","ONCACD0",24,0) D EXIT "RTN","ONCACD0",25,0) Q "RTN","ONCACD0",26,0) GETREC(EXTRACT,OUT) ; Ask the user what version if the record layout to use "RTN","ONCACD0",27,0) W !,"Select the NAACCR Record layout to use:" "RTN","ONCACD0",28,0) W !," 1) Version 5.1 of the NAACCR 5966 Characters" "RTN","ONCACD0",29,0) W !," 2) Version 5.0 of the NAACCR 5300 Characters" "RTN","ONCACD0",30,0) W !," 3) Version 4.0 of the NAACCR 5300 Characters" "RTN","ONCACD0",31,0) N DIR,X,Y "RTN","ONCACD0",32,0) S DIR(0)="SAO^1:V5.1 5966 Characters;2:V5.0 5300 Characters;3:V4.0 5300 Characters" "RTN","ONCACD0",33,0) S DIR("B")=3 "RTN","ONCACD0",34,0) S DIR("A")=" Select Layout: " "RTN","ONCACD0",35,0) S DIR("?")="Select the Version of the NAACCR Record layout to use." "RTN","ONCACD0",36,0) D ^DIR "RTN","ONCACD0",37,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",38,0) I +Y<1 S OUT=1 Q "RTN","ONCACD0",39,0) S EXTRACT=EXTRACT+(Y-1) "RTN","ONCACD0",40,0) Q "RTN","ONCACD0",41,0) DISPLAY(OUT) ; This is to display help "RTN","ONCACD0",42,0) N X "RTN","ONCACD0",43,0) S X=$$ASKY^ONCOU(" DISPLAY/PRINT on-line instructions for Help") "RTN","ONCACD0",44,0) I X=0 Q "RTN","ONCACD0",45,0) I X<0 S OUT=1 Q "RTN","ONCACD0",46,0) W !! S DIC="^ONCO(160.2,",L=0,DHD="@" "RTN","ONCACD0",47,0) S FLDS="1",BY="@.01" "RTN","ONCACD0",48,0) I STEXT S FR="STATE REPORTING ACOS INFOA",TO="STATE REPORTING ACOS INFOA" "RTN","ONCACD0",49,0) E S FR="PRIMARY ACOS INFO (850)",TO="PRIMARY ACOS INFO (850)" "RTN","ONCACD0",50,0) D EN1^DIP "RTN","ONCACD0",51,0) S:'($D(DTOUT)+$D(DUOUT)=0) OUT=1 "RTN","ONCACD0",52,0) S X=$$ASKY^ONCOU("Continue") "RTN","ONCACD0",53,0) S:X<1 OUT=1 "RTN","ONCACD0",54,0) Q "RTN","ONCACD0",55,0) GETDT(SDT,EDT,DATE,OUT) ; Select a start range and an end range for state "RTN","ONCACD0",56,0) N %DT "RTN","ONCACD0",57,0) S %DT="AEPX",%DT("A")=" Select Abstract Start Date: " "RTN","ONCACD0",58,0) S %DT("B")=$$FMTE^XLFDT((DATE-1700)_"0101",1) "RTN","ONCACD0",59,0) D ^%DT "RTN","ONCACD0",60,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",61,0) S (%DT(0),SDT)=Y "RTN","ONCACD0",62,0) S %DT="AEPX",%DT("A")=" Select Abstract End Date: " "RTN","ONCACD0",63,0) S %DT("B")=$$FMTE^XLFDT((DATE-1700)_"1231",1) "RTN","ONCACD0",64,0) D ^%DT "RTN","ONCACD0",65,0) I Y<1 S OUT=1 Q "RTN","ONCACD0",66,0) S EDT=Y "RTN","ONCACD0",67,0) Q "RTN","ONCACD0",68,0) PRINT(DEVICE,OUT) ; Print out data "RTN","ONCACD0",69,0) I 'DEVICE D Q:OUT "RTN","ONCACD0",70,0) .N X "RTN","ONCACD0",71,0) .W !! "RTN","ONCACD0",72,0) .W !,?6,"-----------------------------------------------------------------" "RTN","ONCACD0",73,0) .W !,?6,"|Please activate your PC capture program. The data will be sent|" "RTN","ONCACD0",74,0) .W !,?6,"| in 30 seconds or when you press the return key. |" "RTN","ONCACD0",75,0) .W !,?6,"-----------------------------------------------------------------" "RTN","ONCACD0",76,0) .W !!! "RTN","ONCACD0",77,0) .R X:30 "RTN","ONCACD0",78,0) .I X="^" S OUT=1 "RTN","ONCACD0",79,0) .Q "RTN","ONCACD0",80,0) D EN1^ONCACD1 "RTN","ONCACD0",81,0) Q "RTN","ONCACD0",82,0) EXIT ; Clean up and quit "RTN","ONCACD0",83,0) K D0,DI,DIC,DISYS,DQ,FIL,ONCOM,ONCOT,ONCOYR,OUT,ST,STGIND,X,Y "RTN","ONCACD0",84,0) K ^TMP($J) "RTN","ONCACD0",85,0) K %ZIS "RTN","ONCACD0",86,0) D ^%ZISC "RTN","ONCACD0",87,0) Q "RTN","ONCACD0",88,0) DEVICE(DEVICE,OUT) ; select output device if print to device "RTN","ONCACD0",89,0) Q:'DEVICE "RTN","ONCACD0",90,0) S %ZIS="Q" "RTN","ONCACD0",91,0) D ^%ZIS "RTN","ONCACD0",92,0) I POP S OUT=1 Q "RTN","ONCACD0",93,0) I $D(IO("Q")) D "RTN","ONCACD0",94,0) .S ZTRTN="PRINT^ONCACD0(DEVICE,.OUT)" "RTN","ONCACD0",95,0) .S ZTDESC=$S('STEXT:"ACoS Report Print",STEXT:"State Extract Print",1:"") "RTN","ONCACD0",96,0) .S ZTSAVE("STAT1")="" "RTN","ONCACD0",97,0) .S ZTSAVE("DATE")="" "RTN","ONCACD0",98,0) .S ZTSAVE("STEXT")="" "RTN","ONCACD0",99,0) .S ZTSAVE("DEVICE")="" "RTN","ONCACD0",100,0) .S ZTSAVE("OUT")="" "RTN","ONCACD0",101,0) .S ZTSAVE("SDT")="" "RTN","ONCACD0",102,0) .S ZTSAVE("EDT")="" "RTN","ONCACD0",103,0) .S ZTSAVE("EXTRACT")="" "RTN","ONCACD0",104,0) .D ^%ZTLOAD "RTN","ONCACD0",105,0) .I $D(ZTSK)[0 S OUT=1 W !!,?20,"Report Canceled!" "RTN","ONCACD0",106,0) .E W !!,?20,"Report Queued!" S QUEUE=1 "RTN","ONCACD0",107,0) .D HOME^%ZIS "RTN","ONCACD0",108,0) .Q "RTN","ONCACD0",109,0) Q "RTN","ONCACD0",110,0) VERIFY(STAT,DATE,SDT,EDT,STEXT,YESNO,OUT) ; Verify the setting "RTN","ONCACD0",111,0) N DIR,Y "RTN","ONCACD0",112,0) W !,?10,"These are your current settings:" "RTN","ONCACD0",113,0) W !!,?10," Hospital ACoS Number: ",STAT1 "RTN","ONCACD0",114,0) W !,?10," Year: ",DATE "RTN","ONCACD0",115,0) I STEXT W !,?11,"Abstract Starting from: ",$$FMTE^XLFDT(SDT,"2D"),?30," To: ",$$FMTE^XLFDT(EDT,"2D") "RTN","ONCACD0",116,0) W !! "RTN","ONCACD0",117,0) S DIR(0)="Y",DIR("B")="YES",DIR("A")=" Are these definitions correct: " "RTN","ONCACD0",118,0) D ^DIR "RTN","ONCACD0",119,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",120,0) S YESNO=Y "RTN","ONCACD0",121,0) Q "RTN","ONCACD0",122,0) GETDATE(DATE,OUT) ; Get a valid date. "RTN","ONCACD0",123,0) N CYR,DIR,SCREEN,Y "RTN","ONCACD0",124,0) W !!,?10,"Enter the accession year to be used by the extract." "RTN","ONCACD0",125,0) S DATE=0 "RTN","ONCACD0",126,0) S CYR=1700+($E(DT,1,3)),SCREEN="K:X>CYR X" "RTN","ONCACD0",127,0) S DIR(0)="NAO^1900:"_CYR_":0^"_SCREEN,DIR("B")=CYR "RTN","ONCACD0",128,0) S DIR("A")=" Accession year: " "RTN","ONCACD0",129,0) D ^DIR "RTN","ONCACD0",130,0) I $D(DIRUT) S OUT=1 Q "RTN","ONCACD0",131,0) S DATE=Y "RTN","ONCACD0",132,0) Q "RTN","ONCACD0",133,0) GETHOSP() ; Get the Hospital ID number "RTN","ONCACD0",134,0) N STAT,STATI,ALLOK "RTN","ONCACD0",135,0) W !,?20,"Enter the Hospital ACoS Number." "RTN","ONCACD0",136,0) S STAT=0,ALLOK=$$GETDXH(.STAT) "RTN","ONCACD0",137,0) I STAT S:$L(STAT)<6 STAT=$E(AASZERO,1,6-$L(STAT))_STAT "RTN","ONCACD0",138,0) I S STATI=6_STAT_0,STAT=STAT_"^"_STATI "RTN","ONCACD0",139,0) Q STAT "RTN","ONCACD0",140,0) GETDXH(DXH) ; get the ACoS hospital number "RTN","ONCACD0",141,0) N OKHERE,DIE,DA,DR,ONCOL "RTN","ONCACD0",142,0) S DIE=160.1,DA=$O(^ONCO(160.1,0)),DR=27_$J("",20)_"ACOS Number",ONCOL=0 "RTN","ONCACD0",143,0) L +^ONCO(160.1,DA):0 I $T D ^DIE L -^ONCO(160.1,DA) S ONCOL=1 "RTN","ONCACD0",144,0) I 'ONCOL W !,"The Site paramaters file record is being edited by another user." "RTN","ONCACD0",145,0) K ONCOL "RTN","ONCACD0",146,0) K DIE S DXH=+X "RTN","ONCACD0",147,0) S OKHERE=($D(Y)=0) ; Y is defined if user answered all prompts "RTN","ONCACD0",148,0) Q OKHERE "RTN","ONCACD1") 0^3^B14997069 "RTN","ONCACD1",1,0) ONCACD1 ;HIRMFO/WAA - Output Annual Call for Data routine;5/9/97 10:14 "RTN","ONCACD1",2,0) ;;2.11;Oncology;**9,12**;Mar 07, 1995 "RTN","ONCACD1",3,0) ;; "RTN","ONCACD1",4,0) EN1 ; Main entry point "RTN","ONCACD1",5,0) N PAGE,OIEN "RTN","ONCACD1",6,0) S PAGE=1 "RTN","ONCACD1",7,0) S OIEN=0 "RTN","ONCACD1",8,0) D SETUP "RTN","ONCACD1",9,0) I DEVICE S:$D(ZTQUEUED) ZTREQ="@" Q "RTN","ONCACD1",10,0) I 'DEVICE W $C(26) "RTN","ONCACD1",11,0) Q "RTN","ONCACD1",12,0) HEAD(IEN,OUT) ; Header print "RTN","ONCACD1",13,0) N FLG "RTN","ONCACD1",14,0) I IEN=OIEN S FLG=0 "RTN","ONCACD1",15,0) I IEN'=OIEN S OIEN=IEN,FLG=1 "RTN","ONCACD1",16,0) I 'FLG Q:$Y+4EDT)) Q "RTN","ONCACD1",60,0) D OUTPUT(IEN,EXTRACT,JUMP,.OUT) "RTN","ONCACD1",61,0) I 'DEVICE W ! "RTN","ONCACD1",62,0) Q "RTN","ONCACD1",63,0) OUTPUT(IEN,EXTRACT,JUMP,OUT) ; Output the data "RTN","ONCACD1",64,0) N POS "RTN","ONCACD1",65,0) S ACD160=$P(^ONCO(165.5,IEN,0),U,2) "RTN","ONCACD1",66,0) I DEVICE D HEAD(IEN,.OUT) Q:OUT "RTN","ONCACD1",67,0) S POS=0 "RTN","ONCACD1",68,0) F S POS=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS)) Q:POS<1 D Q:OUT "RTN","ONCACD1",69,0) . N NODE "RTN","ONCACD1",70,0) . S NODE=0 "RTN","ONCACD1",71,0) . F S NODE=$O(^ONCO(160.16,EXTRACT,"FIELD","B",POS,NODE)) Q:NODE<1 D Q:OUT "RTN","ONCACD1",72,0) . . N STRING,DEFAULT,FILL,LEN "RTN","ONCACD1",73,0) . . Q:$G(^ONCO(160.16,EXTRACT,"FIELD",NODE,0))="" "RTN","ONCACD1",74,0) . . D DISPLAY(DEVICE,$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,4),.OUT) "RTN","ONCACD1",75,0) . . Q:OUT "RTN","ONCACD1",76,0) . . S STRING=$TR(^ONCO(160.16,EXTRACT,"FIELD",NODE,1),"~","^") "RTN","ONCACD1",77,0) . . S DEFAULT=^ONCO(160.16,EXTRACT,"FIELD",NODE,2) "RTN","ONCACD1",78,0) . . S FILL=^ONCO(160.16,EXTRACT,"FIELD",NODE,3) "RTN","ONCACD1",79,0) . . S LEN=$P(^ONCO(160.16,EXTRACT,"FIELD",NODE,0),U,2) "RTN","ONCACD1",80,0) . . D DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS) "RTN","ONCACD1",81,0) . . Q "RTN","ONCACD1",82,0) . Q "RTN","ONCACD1",83,0) Q "RTN","ONCACD1",84,0) DISPLAY(DEVICE,WRITE,OUT) ; Display Data "RTN","ONCACD1",85,0) Q:'DEVICE "RTN","ONCACD1",86,0) N DOTS "RTN","ONCACD1",87,0) I DEVICE,($Y+4)>IOSL D HEAD(0,.OUT) Q:OUT "RTN","ONCACD1",88,0) S WRITE=$E(WRITE,1,45) "RTN","ONCACD1",89,0) S DOTS=(50-$L(WRITE)) "RTN","ONCACD1",90,0) W !,WRITE "RTN","ONCACD1",91,0) F I=1:1:DOTS W "." "RTN","ONCACD1",92,0) Q "RTN","ONCACD1",93,0) DATA(IEN,ACD160,STRING,DEFAULT,FILL,LEN,JUMP,NODE,POS) ; Data print "RTN","ONCACD1",94,0) N ACDANS,EXIT "RTN","ONCACD1",95,0) S EXIT=0 "RTN","ONCACD1",96,0) I JUMP'="0" D "RTN","ONCACD1",97,0) .I POS<$P(JUMP,U) Q "RTN","ONCACD1",98,0) .I POS>$P(JUMP,U,2) Q "RTN","ONCACD1",99,0) .N I "RTN","ONCACD1",100,0) .S EXIT=1 "RTN","ONCACD1",101,0) .F I=1:1:LEN W BLANK "RTN","ONCACD1",102,0) .Q "RTN","ONCACD1",103,0) Q:EXIT "RTN","ONCACD1",104,0) X STRING "RTN","ONCACD1",105,0) I ACDANS="" D Q "RTN","ONCACD1",106,0) .N X,I "RTN","ONCACD1",107,0) .S X="" "RTN","ONCACD1",108,0) .F I=1:1:LEN W @DEFAULT "RTN","ONCACD1",109,0) .Q "RTN","ONCACD1",110,0) I $L(ACDANS)=LEN W ACDANS Q "RTN","ONCACD1",111,0) I $L(ACDANS)>LEN W $E(ACDANS,1,LEN) Q "RTN","ONCACD1",112,0) E D Q "RTN","ONCACD1",113,0) .N JUST,STUFF,I,REM,CAL "RTN","ONCACD1",114,0) .S JUST=$P(FILL,","),STUFF=$P(FILL,",",2) "RTN","ONCACD1",115,0) .S REM=LEN-$L(ACDANS) ; Find out how meny charcter need to be filled "RTN","ONCACD1",116,0) .I JUST="R" W ACDANS ; Fill to the right of the data "RTN","ONCACD1",117,0) .F I=1:1:REM W @STUFF ; Fill in the filler data "RTN","ONCACD1",118,0) .I JUST="L" W ACDANS ; Fill to the left of the data "RTN","ONCACD1",119,0) .Q "RTN","ONCACD1",120,0) Q "RTN","ONCACD2") 1^4 "RTN","ONCACD3") 1^5 "RTN","ONCACD4") 1^6 "RTN","ONCACD5") 1^7 "RTN","ONCACD6") 1^8 "RTN","ONCACD7") 1^9 "RTN","ONCACD9") 1^10 "RTN","ONCACDF") 1^11 "RTN","ONCACDQ") 1^12 "RTN","ONCACDU1") 0^14^B19523306 "RTN","ONCACDU1",1,0) ONCACDU1 ;HIRMFO/WAA - UTILITY ROUTINE #1;5/9/97 10:14 "RTN","ONCACDU1",2,0) ;;2.11;Oncology;**12**;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) . S YYYY=$S($E(YYYMMDD,1,3)="200":"0000",1:1700+$E(YYYMMDD,1,3)) "RTN","ONCACDU1",10,0) . S MM=$E(YYYMMDD,4,5) "RTN","ONCACDU1",11,0) . S DD=$E(YYYMMDD,6,7) "RTN","ONCACDU1",12,0) . I MM>12,DD>31 S YYYY=9999 "RTN","ONCACDU1",13,0) . S MMDDCCYY=MM_DD_YYYY "RTN","ONCACDU1",14,0) . S DATE=MMDDCCYY "RTN","ONCACDU1",15,0) . Q "RTN","ONCACDU1",16,0) Q DATE "RTN","ONCACDU1",17,0) SSN(DFN) ; This function will return the patient ssn for a given record "RTN","ONCACDU1",18,0) N VADM,VA "RTN","ONCACDU1",19,0) D DEM^VADPT "RTN","ONCACDU1",20,0) S ACDSSN="000"_$E(VADM(1),1)_VA("BID") "RTN","ONCACDU1",21,0) Q ACDSSN "RTN","ONCACDU1",22,0) RI(IEN) ; This function will return the registry ID. "RTN","ONCACDU1",23,0) N ACDRI "RTN","ONCACDU1",24,0) S ACDRI=STAT1 "RTN","ONCACDU1",25,0) I ACDRI'="" S ACDRI=6_ACDRI_6 "RTN","ONCACDU1",26,0) Q ACDRI "RTN","ONCACDU1",27,0) Q "RTN","ONCACDU1",28,0) CNTY(IEN) ; County Code at dx "RTN","ONCACDU1",29,0) N ACDCNTY "RTN","ONCACDU1",30,0) S ACDCNTY=$$GET1^DIQ(165.5,IEN,10,"I") "RTN","ONCACDU1",31,0) I ACDCNTY'="" D "RTN","ONCACDU1",32,0) .S ACDCNTY=$$GET1^DIQ(5.1,ACDCNTY,2,"I") "RTN","ONCACDU1",33,0) .S ACDCNTY=$S((ACDCNTY>0):ACDCNTY,1:999) "RTN","ONCACDU1",34,0) .S ACDCNTY="T"_$E(000000,1,3-$L(ACDCNTY))_ACDCNTY "RTN","ONCACDU1",35,0) .Q "RTN","ONCACDU1",36,0) Q $E(ACDCNTY,2,4) "RTN","ONCACDU1",37,0) AGEDX(IEN) ; Get age at Diagnosis "RTN","ONCACDU1",38,0) N ACDAGE,D0,X "RTN","ONCACDU1",39,0) S D0=IEN "RTN","ONCACDU1",40,0) D AGE^ONCOCOM S ACDAGE=$S(X=""!(X<0)!(X>999):"",1:X) "RTN","ONCACDU1",41,0) Q ACDAGE "RTN","ONCACDU1",42,0) OCCUP(ACD160) ; Get Occupation "RTN","ONCACDU1",43,0) N X,OCCUP "RTN","ONCACDU1",44,0) S X="" "RTN","ONCACDU1",45,0) S OCCUP=$O(^ONCO(160,ACD160,7,0)) "RTN","ONCACDU1",46,0) I OCCUP'<1 D "RTN","ONCACDU1",47,0) .N OCP "RTN","ONCACDU1",48,0) .S OCP=$P($G(^ONCO(160,ACD160,7,OCCUP,0)),U) "RTN","ONCACDU1",49,0) .Q:OCP<1 "RTN","ONCACDU1",50,0) .S X=$$GET1^DIQ(61.6,OCP,.01,"I") "RTN","ONCACDU1",51,0) .Q "RTN","ONCACDU1",52,0) Q X "RTN","ONCACDU1",53,0) IEN160(IEN) ; Get the IEN number for and entry from 165.5 to 160 "RTN","ONCACDU1",54,0) N Y,Z "RTN","ONCACDU1",55,0) S Y="" "RTN","ONCACDU1",56,0) S Z=$G(^ONCO(165.5,IEN,0)) "RTN","ONCACDU1",57,0) S Y=$P(Z,U,2) "RTN","ONCACDU1",58,0) I $G(^ONCO(160,Y,0))="" S Y="" "RTN","ONCACDU1",59,0) Q Y "RTN","ONCACDU1",60,0) BLAD(IEN) ; This will determine if bladder "RTN","ONCACDU1",61,0) N X,Y,Z,FLG "RTN","ONCACDU1",62,0) S FLG=0 D "RTN","ONCACDU1",63,0) .S X=$$GET1^DIQ(165.5,IEN,20,"I") Q:X="" "RTN","ONCACDU1",64,0) .S Y=$$GET1^DIQ(164,X,1,"E") Q:Y="" "RTN","ONCACDU1",65,0) .I $E(Y,1)'="C" Q "RTN","ONCACDU1",66,0) .S Z=$E(Y,2,$L(Y)) "RTN","ONCACDU1",67,0) .I Z<67.0!(Z>68.0) Q "RTN","ONCACDU1",68,0) .S FLG=1 "RTN","ONCACDU1",69,0) .Q "RTN","ONCACDU1",70,0) Q FLG "RTN","ONCACDU1",71,0) TOB(IEN) ; Patient Tobacco History "RTN","ONCACDU1",72,0) N X,AASTOB "RTN","ONCACDU1",73,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",74,0) S X=$G(^ONCO(160,ACD160,8)) "RTN","ONCACDU1",75,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",76,0) I AASTOB="Y" D ; Tobacco "RTN","ONCACDU1",77,0) . N X S X="" "RTN","ONCACDU1",78,0) . S X=$O(^ONCO(160,ACD160,5,X),-1) "RTN","ONCACDU1",79,0) . I X'<1 I $G(^ONCO(160,ACD160,5,X,0))'="" D "RTN","ONCACDU1",80,0) . . N Y S Y=^ONCO(160,ACD160,5,X,0) "RTN","ONCACDU1",81,0) . . I $P(Y,U,3)'="" S AASTOB=5 Q ; Previous use "RTN","ONCACDU1",82,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",83,0) . . Q "RTN","ONCACDU1",84,0) . I AASTOB="Y" S AASTOB=9 "RTN","ONCACDU1",85,0) . Q "RTN","ONCACDU1",86,0) Q AASTOB "RTN","ONCACDU1",87,0) ALC(IEN) ; Alcohol History "RTN","ONCACDU1",88,0) N X,AASALCO "RTN","ONCACDU1",89,0) S ACD160=$$IEN160^ONCACDU1(IEN) "RTN","ONCACDU1",90,0) S X=$G(^ONCO(160,ACD160,8)) "RTN","ONCACDU1",91,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",92,0) I AASALCO="Y" D ; Alcohol "RTN","ONCACDU1",93,0) . N X S X="" "RTN","ONCACDU1",94,0) . S X=$O(^ONCO(160,ACD160,6,X),-1) "RTN","ONCACDU1",95,0) . I X'<1 I $G(^ONCO(160,ACD160,6,X,0))'="" D "RTN","ONCACDU1",96,0) . . N Y S Y=^ONCO(160,ACD160,6,X,0) "RTN","ONCACDU1",97,0) . . I $P(Y,U,4)'="" S AASALCO=2 Q ; Previous use "RTN","ONCACDU1",98,0) . . S AASALCO=1 "RTN","ONCACDU1",99,0) . . Q "RTN","ONCACDU1",100,0) . I AASALCO="Y" S AASALCO=9 "RTN","ONCACDU1",101,0) . Q "RTN","ONCACDU1",102,0) Q AASALCO "RTN","ONCACDU1",103,0) HIST(IEN,FLAG) ;Get patient Histology "RTN","ONCACDU1",104,0) N HIST "RTN","ONCACDU1",105,0) S FLAG=$G(FLAG,0) "RTN","ONCACDU1",106,0) S HIST=$$GET1^DIQ(165.5,IEN,221,"I") "RTN","ONCACDU1",107,0) I HIST="" S HIST=$$GET1^DIQ(165.5,IEN,22,"I") "RTN","ONCACDU1",108,0) S:$L(HIST)<5 HIST=$E(ZERO,1,5-$L(HIST)) "RTN","ONCACDU1",109,0) I 'FLAG S HIST=$E(HIST,1,4) "RTN","ONCACDU1",110,0) E S HIST=$E(HIST,5) "RTN","ONCACDU1",111,0) K FLAG "RTN","ONCACDU1",112,0) Q HIST "RTN","ONCACDU1",113,0) BEHAV(IEN) ;Get Patient Behavor "RTN","ONCACDU1",114,0) N BEHAV "RTN","ONCACDU1",115,0) S BEHAV=$$HIST(IEN,1) "RTN","ONCACDU1",116,0) Q BEHAV "RTN","ONCACDU1",117,0) OLDDATE(X) ;CONVERT A DATE FROM A FILE MANAGER DATE TO A EXTERNAL FORMAT "RTN","ONCACDU1",118,0) N DATE "RTN","ONCACDU1",119,0) I X="" S DATE=" " "RTN","ONCACDU1",120,0) E D "RTN","ONCACDU1",121,0) . S DATE=$E(X,4,5)_$E(X,6,7)_(1700+$E(X,1,3)) "RTN","ONCACDU1",122,0) . I $E(DATE,1,4)="9999" S DATE="99999999" "RTN","ONCACDU1",123,0) . I $E(DATE,1,4)="0000" S DATE="00000000" "RTN","ONCACDU1",124,0) . Q "RTN","ONCACDU1",125,0) Q DATE "RTN","ONCACDU1",126,0) SG(IEN,TYPE) ; Stage Group "RTN","ONCACDU1",127,0) N GS "RTN","ONCACDU1",128,0) S GS="" "RTN","ONCACDU1",129,0) I TYPE="" Q GS "RTN","ONCACDU1",130,0) I TYPE="P" S GS=$$GET1^DIQ(165.5,IEN,88,"I") "RTN","ONCACDU1",131,0) I TYPE="O" S GS=$$GET1^DIQ(165.5,IEN,117,"I") "RTN","ONCACDU1",132,0) I TYPE="C" S GS=$$GET1^DIQ(165.5,IEN,38,"I") "RTN","ONCACDU1",133,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",134,0) I GS="9" S GS="99" "RTN","ONCACDU1",135,0) Q GS "RTN","ONCACDU1",136,0) ALIAS(ACD160) ; get the patient alias "RTN","ONCACDU1",137,0) N X,DO,ONCOX,XD0,XD1 "RTN","ONCACDU1",138,0) S X="" "RTN","ONCACDU1",139,0) S D0=ACD160 "RTN","ONCACDU1",140,0) I $D(^ONCO(160,D0,0)) D "RTN","ONCACDU1",141,0) .D SETUP^ONCOES "RTN","ONCACDU1",142,0) .Q:$P(ONCOX,";",2)'="DPT(" S XD0=$P(ONCOX,";") "RTN","ONCACDU1",143,0) .S XD1=0 F S XD1=$O(^DPT(XD0,.01,XD1)) Q:XD1'>0 S X=$P(^(XD1,0),U) Q "RTN","ONCACDU1",144,0) .Q "RTN","ONCACDU1",145,0) Q X "RTN","ONCACDU1",146,0) TNM(IEN) ; TNM Coding System "RTN","ONCACDU1",147,0) N CNT,DOD "RTN","ONCACDU1",148,0) S CNT=0 "RTN","ONCACDU1",149,0) S DOD=$$GET1^DIQ(165.5,IEN,16,"I") "RTN","ONCACDU1",150,0) S:DOD'="" DOD=$E(DOD,2,3) "RTN","ONCACDU1",151,0) S CNT=$P($G(^ONCO(160.1,+$O(^ONCO(160.1,0)),5)),U) "RTN","ONCACDU1",152,0) Q $S(DOD<88:2,DOD<+CNT:3,DOD<93:3,1:4) "RTN","ONCACDU2") 0^15^B12171996 "RTN","ONCACDU2",1,0) ONCACDU2 ;HIRMFO/WAA - UTILITY ROUTINE #1;6/11/97 10:14 "RTN","ONCACDU2",2,0) ;;2.11;Oncology;**12**;Mar 07, 1995 "RTN","ONCACDU2",3,0) BDATE(ACD160) ; Get birthdate "RTN","ONCACDU2",4,0) N X,DAT "RTN","ONCACDU2",5,0) S X="" "RTN","ONCACDU2",6,0) S DAT=$$GET1^DIQ(160,ACD160,3,"E") "RTN","ONCACDU2",7,0) I DAT'="" D "RTN","ONCACDU2",8,0) .N Y,M,D "RTN","ONCACDU2",9,0) .S Y=($P(DAT," ",3)-1700) "RTN","ONCACDU2",10,0) .Q:Y<0 "RTN","ONCACDU2",11,0) .S D=$P($P(DAT," ",2),",") "RTN","ONCACDU2",12,0) .S M=$P(DAT," ") "RTN","ONCACDU2",13,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",14,0) .S X=Y_M_D "RTN","ONCACDU2",15,0) .Q "RTN","ONCACDU2",16,0) Q X "RTN","ONCACDU2",17,0) WORD(IEN,NODE,LEN) ; Get word processing data "RTN","ONCACDU2",18,0) N X "RTN","ONCACDU2",19,0) S X="" "RTN","ONCACDU2",20,0) I $D(^ONCO(165.5,IEN,NODE,0)) D "RTN","ONCACDU2",21,0) .N CNT,LINE "RTN","ONCACDU2",22,0) .S CNT=0 "RTN","ONCACDU2",23,0) .S LINE="" "RTN","ONCACDU2",24,0) .F S CNT=$O(^ONCO(165.5,IEN,NODE,CNT)) Q:CNT<1 D Q:($L(LINE)>LEN) "RTN","ONCACDU2",25,0) ..Q:'$D(^ONCO(165.5,IEN,NODE,CNT,0)) "RTN","ONCACDU2",26,0) ..S LINE=LINE_^ONCO(165.5,IEN,NODE,CNT,0)_" " "RTN","ONCACDU2",27,0) ..Q "RTN","ONCACDU2",28,0) .S X=LINE "RTN","ONCACDU2",29,0) .Q "RTN","ONCACDU2",30,0) Q X "RTN","ONCACDU2",31,0) STAGE(IEN,TYPE) ; Get the stage. this will ony get a stage of "Y" "RTN","ONCACDU2",32,0) N LOC,X "RTN","ONCACDU2",33,0) S X="" "RTN","ONCACDU2",34,0) S LOC=$S(TYPE="P":89.1,TYPE="C":37.1,1:"") "RTN","ONCACDU2",35,0) I TYPE'="" D "RTN","ONCACDU2",36,0) .N STRING "RTN","ONCACDU2",37,0) .S STRING=$$GET1^DIQ(165.5,IEN,LOC,"E") "RTN","ONCACDU2",38,0) .I "y"'[$P(STRING," ") Q "RTN","ONCACDU2",39,0) .S X=4 "RTN","ONCACDU2",40,0) .I "m"'[$P(STRING," ") Q "RTN","ONCACDU2",41,0) .S X=6 "RTN","ONCACDU2",42,0) .Q "RTN","ONCACDU2",43,0) Q X "RTN","ONCACDU2",44,0) CCOUNTY(ACD160) ;Get County Code for Current County "RTN","ONCACDU2",45,0) N ZIP,X "RTN","ONCACDU2",46,0) S X="" "RTN","ONCACDU2",47,0) S ZIP=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",48,0) I ZIP'="" D "RTN","ONCACDU2",49,0) .N ZIP1,CODE,COUNTY "RTN","ONCACDU2",50,0) .S ZIP1=$P($P(ZIP,",",2)," ",3) S:$L(ZIP1)>5 ZIP1=$E(ZIP1,1,5) "RTN","ONCACDU2",51,0) .Q:$L(ZIP1)<5 "RTN","ONCACDU2",52,0) .S CODE=$O(^VIC(5.11,"C",ZIP1,"")) "RTN","ONCACDU2",53,0) .Q:CODE<1 "RTN","ONCACDU2",54,0) .S COUNTY=$$GET1^DIQ(5.11,CODE,2,"I") "RTN","ONCACDU2",55,0) .Q:COUNTY="" "RTN","ONCACDU2",56,0) .S X=$$GET1^DIQ(5.1,COUNTY,2,"I") "RTN","ONCACDU2",57,0) .Q "RTN","ONCACDU2",58,0) Q X "RTN","ONCACDU2",59,0) SUB(IEN,CNT,FIELD) ;Subsequent Therapies "RTN","ONCACDU2",60,0) N X,NODE "RTN","ONCACDU2",61,0) S X="" "RTN","ONCACDU2",62,0) I $O(^ONCO(165.5,IEN,4,0)) D "RTN","ONCACDU2",63,0) .N IENS "RTN","ONCACDU2",64,0) .S IENS=CNT_","_IEN "RTN","ONCACDU2",65,0) .S X=$$GET1^DIQ(165.51,IENS,FIELD,"I") "RTN","ONCACDU2",66,0) .Q "RTN","ONCACDU2",67,0) Q X "RTN","ONCACDU2",68,0) LAST(ACD160) ; Last contact information "RTN","ONCACDU2",69,0) N X "RTN","ONCACDU2",70,0) S X="A" "RTN","ONCACDU2",71,0) S X=$O(^ONCO(160,ACD160,"F",X),-1) "RTN","ONCACDU2",72,0) I X'>0 S X="" "RTN","ONCACDU2",73,0) Q X "RTN","ONCACDU2",74,0) FNODE(ACD160,FIELD) ;Get F Node data "RTN","ONCACDU2",75,0) N FNODE,X "RTN","ONCACDU2",76,0) S FNODE=$$LAST(ACD160),X="" "RTN","ONCACDU2",77,0) I FNODE'="" D "RTN","ONCACDU2",78,0) .N IENS "RTN","ONCACDU2",79,0) .S IENS=FNODE_","_ACD160_"," "RTN","ONCACDU2",80,0) .S X=$$GET1^DIQ(160.04,IENS,FIELD,"I") "RTN","ONCACDU2",81,0) .Q "RTN","ONCACDU2",82,0) Q X "RTN","ONCACDU2",83,0) CS(IEN) ;Cancer Status "RTN","ONCACDU2",84,0) N X,Z,FNODE "RTN","ONCACDU2",85,0) S FNODE=0 "RTN","ONCACDU2",86,0) S X="" "RTN","ONCACDU2",87,0) S FNODE=$O(^ONCO(165.5,IEN,"TS",FNODE)) "RTN","ONCACDU2",88,0) I FNODE>0 D "RTN","ONCACDU2",89,0) .N IENS,PT "RTN","ONCACDU2",90,0) .S FNODE=$O(^ONCO(165.5,IEN,"TS"," "),-1) "RTN","ONCACDU2",91,0) .Q:FNODE<1 "RTN","ONCACDU2",92,0) .S IENS=FNODE_","_IEN_"," "RTN","ONCACDU2",93,0) .S PT=$$GET1^DIQ(165.573,IENS,.02,"I") "RTN","ONCACDU2",94,0) .Q:PT<1 "RTN","ONCACDU2",95,0) .S X=$$GET1^DIQ(164.42,PT,1,"I") "RTN","ONCACDU2",96,0) .Q "RTN","ONCACDU2",97,0) Q X "RTN","ONCACDU2",98,0) CCTST(ACD160) ;Current City "RTN","ONCACDU2",99,0) N X "RTN","ONCACDU2",100,0) S X=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",101,0) Q X "RTN","ONCACDU2",102,0) ICD(ICD) ;Convert ICD Code "RTN","ONCACDU2",103,0) N X "RTN","ONCACDU2",104,0) S ICD=$S(ICD'="":$P($G(^ICD9(ICD,0)),U),1:"0000") "RTN","ONCACDU2",105,0) I ICD["." S ICD=$P(ICD,".")_$P(ICD,".",2) "RTN","ONCACDU2",106,0) S:$L(ICD)=3 ICD=ICD_9 "RTN","ONCACDU2",107,0) S:$L(ICD)<4 ICD=$E("0000",1,4-$L(ICD))_ICD "RTN","ONCACDU2",108,0) S:$L(ICD)>4 ICD=$E(ICD,1,4) "RTN","ONCACDU2",109,0) I $E(ICD,4)="X"!($E(ICD,4)="-") S ICD=$E(ICD,1,3)_9 "RTN","ONCACDU2",110,0) Q ICD "RTN","ONCACDU2",111,0) ICDR(ICD) ; Revision Number "RTN","ONCACDU2",112,0) N ICDR "RTN","ONCACDU2",113,0) S ICD=$$ICD(ICD) "RTN","ONCACDU2",114,0) S ICDR=$S(ICD=" ":0,1:$$GET1^DIQ(160,ACD160,20,"I")) "RTN","ONCACDU2",115,0) S:ICDR="" ICDR=0 "RTN","ONCACDU2",116,0) Q ICDR "RTN","ONCACDU2",117,0) LINK(ACD160) ; Linkage Name "RTN","ONCACDU2",118,0) N NAME,X "RTN","ONCACDU2",119,0) S DFN=ACD160 D DEM^VADPT "RTN","ONCACDU2",120,0) S NAME=VADM(1) "RTN","ONCACDU2",121,0) D KVAR^VADPT "RTN","ONCACDU2",122,0) S X=($A($E(NAME,1)))+($A($E(NAME,2))) "RTN","ONCACDU2",123,0) S X=X-128 I X<1 S X="" "RTN","ONCACDU2",124,0) Q X "RTN","ONCACDU2",125,0) PPAY(IEN) ; Primary Payor "RTN","ONCACDU2",126,0) N X "RTN","ONCACDU2",127,0) S X=$$GET1^DIQ(165.5,IEN,18,"I") "RTN","ONCACDU2",128,0) S X=$$GET1^DIQ(160.3,$S(X'="":X,1:99),.01,"I") "RTN","ONCACDU2",129,0) S X=$S(X<42:X,X>47:X,1:X-1) "RTN","ONCACDU2",130,0) Q X "RTN","ONCOCOM") 0^17^B29231430 "RTN","ONCOCOM",1,0) ONCOCOM ;WASH ISC/SRR,MLH,RTK-CREATE SPECIAL COMPUTED FIELDS ;7/23/93 08:21 "RTN","ONCOCOM",2,0) ;;2.11;ONCOLOGY;**1,6,11,12**;Mar 07, 1995 "RTN","ONCOCOM",3,0) ; "RTN","ONCOCOM",4,0) SIT ;SITE/PG & Diagnosis Date from file 160 "RTN","ONCOCOM",5,0) F XD0=0:0 S XD0=$O(^ONCO(165.5,"C",D0,XD0)) G:XD0'>0 EX S X1=$S($D(^ONCO(165.5,XD0,0)):^(0),1:"") I X1'="" S Y=$P(X1,U,16),X1=$P(^ONCO(164.2,$P(X1,U),0),U) D DD W ?55,$E(X1,1,16),?72,Y,! "RTN","ONCOCOM",6,0) ; "RTN","ONCOCOM",7,0) SDA ;LIST ALL Primaries from 165.5 "RTN","ONCOCOM",8,0) S XD0=$P(^ONCO(165.5,D0,0),U,2) G CX "RTN","ONCOCOM",9,0) ; "RTN","ONCOCOM",10,0) SDP ;get Other Primary Sites & dates Diagnosis: from #165.5 "RTN","ONCOCOM",11,0) D XD0 G:XD0="" EX "RTN","ONCOCOM",12,0) D ;LIST all Primary Sites and Dates of Diagnosis-EXCEPT current primary "RTN","ONCOCOM",13,0) X N J S J=0 F XD1=0:0 S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) G:XD1'>0 NO I $D(^ONCO(165.5,XD1,0)),XD1'=D0 S J=J+1 W:J=1 ?5,"Acc/Seq#",?17,"Primary Site",?39,"Last Tumor Status",?58,"Date DX",?68,"Abst Status",! D LIST "RTN","ONCOCOM",14,0) ; "RTN","ONCOCOM",15,0) NO ;No other primaries "RTN","ONCOCOM",16,0) G:J>0 EX W ?24,"None" G EX "RTN","ONCOCOM",17,0) ; "RTN","ONCOCOM",18,0) SDD ;LIST all Primary Sites and Dates of Diagnosis;XD0=D0=#160,field#100 "RTN","ONCOCOM",19,0) Q:'$D(^ONCO(160,D0)) S XD0=D0 ;XD0,D0=internal #160,patient "RTN","ONCOCOM",20,0) CX ;Display all primaries for given patient;entry point with XD0 defined,not D0 "RTN","ONCOCOM",21,0) N J,XD1 "RTN","ONCOCOM",22,0) S J=0,XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $D(^ONCO(165.5,XD1,0)) S J=J+1 W:J=1 ?5,"Acc/Seq#",?17,"Primary Site",?39,"Last Tumor Status",?58,"Date DX",?68,"Abst Status",! D LIST "RTN","ONCOCOM",23,0) QUIT "RTN","ONCOCOM",24,0) ; "RTN","ONCOCOM",25,0) LIST D ^ONCOCOML ;list a single primary: show site, CS, DateDX, Abst Stat "RTN","ONCOCOM",26,0) Q "RTN","ONCOCOM",27,0) ; "RTN","ONCOCOM",28,0) CLS ;CLass of Case (ANALYTIC/NON-ANALYTIC) "RTN","ONCOCOM",29,0) ;Computed field #165.5, field#.042 CASE-CLASS "RTN","ONCOCOM",30,0) S XD0=D0,X=$S($D(^ONCO(165.5,XD0,0)):$P(^(0),U,4),1:""),X=$S(X="":"",X<3:"Analytic",1:"Non-Analytic") "RTN","ONCOCOM",31,0) K XD0 Q "RTN","ONCOCOM",32,0) ; "RTN","ONCOCOM",33,0) DFC1 I '$D(^ONCO(165.5,"ATX",D0)) S X="" Q "RTN","ONCOCOM",34,0) S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT'>0 Q:($E(TDT,1,7)'=2000000)&($E(TDT,1,7)'=2999999) "RTN","ONCOCOM",35,0) I TDT="" S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT'>0 Q:$E(TDT,1,7)=2999999 "RTN","ONCOCOM",36,0) I TDT="" S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT'>0 Q:$E(TDT,1,7)=2000000 "RTN","ONCOCOM",37,0) I TDT="" S TDT="2999999X" "RTN","ONCOCOM",38,0) S X=$E(TDT,1,7) "RTN","ONCOCOM",39,0) K TDT Q "RTN","ONCOCOM",40,0) ; "RTN","ONCOCOM",41,0) DFC ;Computed algorithm for FIRST COURSE DATE (165.5,49) "RTN","ONCOCOM",42,0) D DFC1 S Y=X D DD S X=Y "RTN","ONCOCOM",43,0) Q "RTN","ONCOCOM",44,0) DD ;Y=date in FM format (2yrmoda); convert to da/mo/yr "RTN","ONCOCOM",45,0) S Y=$S(Y="":"",1:$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)) ;_$S(Y#1:" "_$E(Y_0,9,10)_":"_$E(Y_"0000",11,12),1:"") "RTN","ONCOCOM",46,0) Q "RTN","ONCOCOM",47,0) AGE ;AGE AT DIAGNOSIS "RTN","ONCOCOM",48,0) S X=$P(^ONCO(165.5,D0,0),U,16) Q:X="" S X1=X,XD0=D0,D0=$P(^ONCO(165.5,XD0,0),U,2) D DOB1^ONCOES S X2=X,D0=XD0 D ^%DTC S X=X\365.25 K X1,X2 "RTN","ONCOCOM",49,0) Q "RTN","ONCOCOM",50,0) DEC ;AGE DX DECADE "RTN","ONCOCOM",51,0) D AGE Q:X="" S AG=X,X=$S(AG<20:"0-20",AG<30:"20-29",AG<40:"30-39",AG<50:"40-49",AG<60:"50-59",AG<70:"60-69",AG<80:"70-79",1:"80-99") "RTN","ONCOCOM",52,0) K AG Q "RTN","ONCOCOM",53,0) XD0 S XD0=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,2),1:"") ;XD0=internal #160 "RTN","ONCOCOM",54,0) Q "RTN","ONCOCOM",55,0) PAT ;Get Patient pointer "RTN","ONCOCOM",56,0) V0 S OD0=$S($D(^ONCO(160,XD0,0)):$P(^(0),U),1:"") Q:OD0="" S OF=$P(OD0,";",2),OD0=$P(OD0,";",1),VPR="^"_OF_OD0_",0)",VP0=$S($D(@VPR):^(0),1:"") "RTN","ONCOCOM",57,0) Q "RTN","ONCOCOM",58,0) PID ;PATIENT NAME,SSN,DOB "RTN","ONCOCOM",59,0) S X="" D PAT G EX:OD0="" S ONCONM=$P(VP0,U),SN=$P(VP0,U,9),XD=$P(VP0,U,3),ONCOPID=$E(ONCONM)_$E(SN,6,9) "RTN","ONCOCOM",60,0) Q "RTN","ONCOCOM",61,0) SID ;PID# (A1234) "RTN","ONCOCOM",62,0) PID5 S XD0=$P(^ONCO(165.5,D0,0),U,2) D PAT,PID S X=$E(ONCONM)_$E(SN,6,9) G EX "RTN","ONCOCOM",63,0) PID0 S XD0=D0 D PAT,PID S X=$E(ONCONM)_$E(SN,6,9) G EX "RTN","ONCOCOM",64,0) PIN ;PATIENT INQUIRY FUNCTION "RTN","ONCOCOM",65,0) S XD0=D0 D PAT G EX:OD0="" S XX=$P(VP0,U),ONCONM=$P(XX,",",2)_" "_$P(XX,","),XX=$P(VP0,U,9),ONCOSN=$E(XX,1,3)_"-"_$E(XX,4,5)_"-"_$E(XX,6,9),Y=$P(VP0,U,3) D DD S ONCODB=Y,(ONCOLC,ONCOCA,ONCOVS)="" "RTN","ONCOCOM",66,0) S XX=$O(^ONCO(160,XD0,"F","AA",0)) G W:XX="" S XX=$O(^(XX,0)),LC0=^ONCO(160,XD0,"F",XX,0),Y=$P(LC0,U) D DD S ONCOLC=Y,XX=$P(LC0,U,2),ONCOVS=$S(XX=0:"Dead",XX=1:"Alive",1:"Unstated") "RTN","ONCOCOM",67,0) S XX=$P(LC0,U,3),ONCOCA=$S(XX=1:"No Evidence of CA",XX=2:"Evidence of CA",9:"Unknown",1:"") "RTN","ONCOCOM",68,0) W W !?10,"Name: ",ONCONM,?40,"Date Last Contact: ",ONCOLC "RTN","ONCOCOM",69,0) W !?10,"SSN: ",ONCOSN,?40,"Vital Status: ",ONCOVS "RTN","ONCOCOM",70,0) W !?10,"DOB: ",ONCODB,?40,"Cancer Status: ",ONCOCA "RTN","ONCOCOM",71,0) Q "RTN","ONCOCOM",72,0) ; "RTN","ONCOCOM",73,0) MS ;Marital status at Diagnosis FROM #165.5 "RTN","ONCOCOM",74,0) S X="" D XD0 G:XD0="" EX D PAT G:OD0="" EX S MS=$P(VP0,U,5),MC=$P($G(^DIC(11,+MS,0)),U,3),X1=$S(MC="N":1,MC="M":2,MC="S":3,MC="D":4,MC="W":5,1:9),$P(^ONCO(165.5,D0,1),U,5)=X1 "RTN","ONCOCOM",75,0) ADX ;Address at DX "RTN","ONCOCOM",76,0) PT S GLR="^"_OF_OD0_",",X11=$G(@(GLR_".11)")),CITY=$P(X11,U,4),ST=$P(X11,U,5),CT=$P(X11,U,7),ZIP=$P(X11,U,6),ZP=$O(^VIC(5.11,"B",ZIP_" ",0)) "RTN","ONCOCOM",77,0) I CITY'="" S $P(^ONCO(165.5,D0,1),"^",12)=CITY "RTN","ONCOCOM",78,0) I ST'="" S STDXABV=$P($G(^DIC(5,ST,0)),"^",2),STDXIEN=$O(^ONCO(160.15,"B",STDXABV,"")),$P(^ONCO(165.5,D0,1),"^",4)=STDXIEN "RTN","ONCOCOM",79,0) S ADX=$P(X11,U)_" "_$P(X11,U,2)_U_ZIP,$P(^ONCO(165.5,D0,1),U,1)=$S($P(ADX,U,1)=" ":"",1:$P(ADX,U,1)),$P(^ONCO(165.5,D0,1),U,2)=$P(ADX,U,2) D CTY G EX "RTN","ONCOCOM",80,0) CTY ;Obtain county ptr "RTN","ONCOCOM",81,0) Q:ST=""!(CT="") I $D(^DIC(5,ST,1,CT,0)) S CTY=$P(^(0),U),VI=0 F S VI=$O(^VIC(5.1,"B",CTY,VI)) Q:VI'>0 I $P(^VIC(5.1,VI,0),U,2)=ST S $P(^ONCO(165.5,D0,1),U,3)=VI "RTN","ONCOCOM",82,0) Q "RTN","ONCOCOM",83,0) G EX "RTN","ONCOCOM",84,0) ; "RTN","ONCOCOM",85,0) ONCPRI ;Computed expression for ICD0-TOPOGRAPHY LIST (160,49) "RTN","ONCOCOM",86,0) S XD0=0 F S XD0=$O(^ONCO(165.5,"C",D0,XD0)) Q:XD0'>0 D "RTN","ONCOCOM",87,0) .Q:'$D(^ONCO(165.5,XD0,2)) "RTN","ONCOCOM",88,0) .S TOPIEN=$P(^ONCO(165.5,XD0,2),U,1) "RTN","ONCOCOM",89,0) .Q:TOPIEN="" "RTN","ONCOCOM",90,0) .S TOPNAME=$P(^ONCO(164,TOPIEN,0),U,1) "RTN","ONCOCOM",91,0) .S TOPCODE=$P(^ONCO(164,TOPIEN,0),U,2) "RTN","ONCOCOM",92,0) .S TOP(TOPCODE)=TOPNAME "RTN","ONCOCOM",93,0) I $D(TOP) S TOPCODE="" F S TOPCODE=$O(TOP(TOPCODE)) Q:TOPCODE="" W ?5,TOPCODE_" "_TOP(TOPCODE),! "RTN","ONCOCOM",94,0) S X="" K XD0,TOPIEN,TOP,TOPCODE Q "RTN","ONCOCOM",95,0) ; "RTN","ONCOCOM",96,0) SET ;SET VARIABLES "RTN","ONCOCOM",97,0) K SDD,XTS,ABS,SD,ACS,ST Q "RTN","ONCOCOM",98,0) EX ;KILL ALL VARIABLES "RTN","ONCOCOM",99,0) K ACS,ADX,CT,CTY,GLR,OD0,X11,ZIP,ZP,VI,MS,ST,SD,SDD,XD1,X1,X2,XD0,OD0,OF,VPR,VP0,Y "RTN","ONCOCOM",100,0) Q "RTN","ONCODIS") 0^13^B1484521 "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**;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_"P12" 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","ONCPRE12") 0^16^B28583 "RTN","ONCPRE12",1,0) ONCPRE12 ;HIRMFO/WAA - Pre-INIT for Patch ONC*2.11*12;2/28/97 13:00 "RTN","ONCPRE12",2,0) ;;2.11;Oncology;**12**;Mar 07, 1995 "RTN","ONCPRE12",3,0) EN1 ; This is to Delete the old 160.2 global prior to installation "RTN","ONCPRE12",4,0) ; of the new copy of the data. "RTN","ONCPRE12",5,0) K ^ONCO(160.2) "RTN","ONCPRE12",6,0) K ^ONCO(160.16) "RTN","ONCPRE12",7,0) Q "RTN","ONCPRE9") 1^1 "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") @ "VER") 8.0^21.0 "^DD",160.16,160.16,0) FIELD^^2^3 "^DD",160.16,160.16,0,"DT") 2970729 "^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,.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.2,160.2,0) FIELD^NL^3^4 "^DD",160.2,160.2,0,"DDA") N "^DD",160.2,160.2,0,"DT") 2920711 "^DD",160.2,160.2,0,"IX","AP",160.2,.02) "^DD",160.2,160.2,0,"IX","B",160.2,.01) "^DD",160.2,160.2,0,"NM","FORMS/INSTRUCTIONS") "^DD",160.2,160.2,0,"VRPK") ONC "^DD",160.2,160.2,.01,0) NAME^RF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X "^DD",160.2,160.2,.01,1,0) ^.1^^-1 "^DD",160.2,160.2,.01,1,1,0) 160.2^B "^DD",160.2,160.2,.01,1,1,1) S ^ONCO(160.2,"B",$E(X,1,30),DA)="" "^DD",160.2,160.2,.01,1,1,2) K ^ONCO(160.2,"B",$E(X,1,30),DA) "^DD",160.2,160.2,.01,1,1,"DT") 2920710 "^DD",160.2,160.2,.01,3) ANSWER MUST BE 3-30 CHARACTERS IN LENGTH "^DD",160.2,160.2,.01,21,0) ^^1^1^2920523^^ "^DD",160.2,160.2,.01,21,1,0) Enter contact MD, Institution, or non-kin Oncology related contact. "^DD",160.2,160.2,.01,"DT") 2930903 "^DD",160.2,160.2,.02,0) PROTECTION^RS^Y:PROTECT ENTRY FROM DELETION;N:DO NOT PROTECT ENTRY;^0;3^Q "^DD",160.2,160.2,.02,1,0) ^.1 "^DD",160.2,160.2,.02,1,1,0) 160.2^AP^MUMPS "^DD",160.2,160.2,.02,1,1,1) S $P(^ONCO(160.2,DA,0),U,2)=$S(X="Y":1,1:"") "^DD",160.2,160.2,.02,1,1,2) Q "^DD",160.2,160.2,.02,1,1,3) DO NOT DELETE "^DD",160.2,160.2,.02,1,1,"%D",0) ^^1^1^2920711^ "^DD",160.2,160.2,.02,1,1,"%D",1,0) ALLOWS user to protect new entries from deletion. "^DD",160.2,160.2,.02,1,1,"DT") 2920711 "^DD",160.2,160.2,.02,3) Protect entry if you do not want to lose it! "^DD",160.2,160.2,.02,21,0) ^^1^1^2930819^ "^DD",160.2,160.2,.02,21,1,0) This field is used to protect entries from being deleted. "^DD",160.2,160.2,.02,"DT") 2920711 "^DD",160.2,160.2,1,0) MAIN FORM BODY^160.21^^1;0 "^DD",160.2,160.2,1,21,0) ^^1^1^2950301^^^ "^DD",160.2,160.2,1,21,1,0) This is the main body of the follow-up form letter. "^DD",160.2,160.2,3,0) DESCRIPTION^160.23^^2;0 "^DD",160.2,160.2,3,21,0) ^^2^2^2920523^^ "^DD",160.2,160.2,3,21,1,0) This field allows the Tumor Registrar to define and describe each "^DD",160.2,160.2,3,21,2,0) letter. Also it allows for the description of letters exported. "^DD",160.2,160.21,0) MAIN FORM BODY SUB-FIELD^^.01^1 "^DD",160.2,160.21,0,"NM","MAIN FORM BODY") "^DD",160.2,160.21,0,"UP") 160.2 "^DD",160.2,160.21,.01,0) MAIN FORM BODY^W^^0;1^Q "^DD",160.2,160.21,.01,21,0) ^^1^1^2950301^ "^DD",160.2,160.21,.01,21,1,0) This is the main body of the follow-up form letter. "^DD",160.2,160.21,.01,"DT") 2871223 "^DD",160.2,160.23,0) DESCRIPTION SUB-FIELD^^.01^1 "^DD",160.2,160.23,0,"NM","DESCRIPTION") "^DD",160.2,160.23,0,"UP") 160.2 "^DD",160.2,160.23,.01,0) DESCRIPTION^W^^0;1^Q "^DD",160.2,160.23,.01,21,0) ^^1^1^2910507^ "^DD",160.2,160.23,.01,21,1,0) Describes purpose of letter. "^DD",160.2,160.23,.01,"DT") 2910507 "^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.2,160.2,0) FORMS/INSTRUCTIONS^160.2I "^DIC",160.2,160.2,0,"GL") ^ONCO(160.2, "^DIC",160.2,160.2,"%",0) ^1.005^1^1 "^DIC",160.2,160.2,"%",1,0) ONCO "^DIC",160.2,160.2,"%","B","ONCO",1) "^DIC",160.2,160.2,"%D",0) ^^4^4^2920519^^^^ "^DIC",160.2,160.2,"%D",1,0) File contains Forms used by the Tumor Registry as well as on line "^DIC",160.2,160.2,"%D",2,0) instructions for procedures that must be followed such as making a "^DIC",160.2,160.2,"%D",3,0) disk for ACOS. It comes with at least one form, but can be added to by "^DIC",160.2,160.2,"%D",4,0) the IRM as needed, and used in later versions of the package. "^DIC",160.2,"B","FORMS/INSTRUCTIONS",160.2) **END** **END**