KIDS Distribution saved on Oct 30, 2002@15:27:50 ONCOLOGY PATCH ONC*2.11*34 **KIDS**:ONC*2.11*34^ **INSTALL NAME** ONC*2.11*34 "BLD",3855,0) ONC*2.11*34^ONCOLOGY^0^3021030^y "BLD",3855,4,0) ^9.64PA^160.1^4 "BLD",3855,4,160,0) 160 "BLD",3855,4,160,2,0) ^9.641^160^1 "BLD",3855,4,160,2,160,0) ONCOLOGY PATIENT (File-top level) "BLD",3855,4,160,2,160,1,0) ^9.6411^56^2 "BLD",3855,4,160,2,160,1,55,0) MIDDLE EAST SERVICE "BLD",3855,4,160,2,160,1,56,0) SOMALIA SERVICE "BLD",3855,4,160,222) y^y^p^^^^n "BLD",3855,4,160.1,0) 160.1 "BLD",3855,4,160.1,2,0) ^9.641^160.1^1 "BLD",3855,4,160.1,2,160.1,0) ONCOLOGY SITE PARAMETERS (File-top level) "BLD",3855,4,160.1,2,160.1,1,0) ^9.6411^18^3 "BLD",3855,4,160.1,2,160.1,1,4,0) LABORATORY CASEFINDING DATE "BLD",3855,4,160.1,2,160.1,1,10,0) RADIOLOGY CASEFINDING DATE "BLD",3855,4,160.1,2,160.1,1,18,0) PTF CASEFINDING DATE "BLD",3855,4,160.1,222) y^y^p^^^^n "BLD",3855,4,160.16,0) 160.16 "BLD",3855,4,160.16,222) y^y^f^^n^^y^o^n "BLD",3855,4,165.5,0) 165.5 "BLD",3855,4,165.5,2,0) ^9.641^165.5^1 "BLD",3855,4,165.5,2,165.5,0) ONCOLOGY PRIMARY (File-top level) "BLD",3855,4,165.5,2,165.5,1,0) ^9.6411^29^5 "BLD",3855,4,165.5,2,165.5,1,22,0) HISTOLOGY (ICD-O-2) "BLD",3855,4,165.5,2,165.5,1,22.3,0) HISTOLOGY (ICD-O-3) "BLD",3855,4,165.5,2,165.5,1,29,0) TUMOR SIZE "BLD",3855,4,165.5,2,165.5,1,59,0) SURGICAL MARGINS "BLD",3855,4,165.5,2,165.5,1,85,0) PATHOLOGIC T "BLD",3855,4,165.5,222) y^y^p^^^^n "BLD",3855,4,"APDD",160,160) "BLD",3855,4,"APDD",160,160,55) "BLD",3855,4,"APDD",160,160,56) "BLD",3855,4,"APDD",160.1,160.1) "BLD",3855,4,"APDD",160.1,160.1,4) "BLD",3855,4,"APDD",160.1,160.1,10) "BLD",3855,4,"APDD",160.1,160.1,18) "BLD",3855,4,"APDD",165.5,165.5) "BLD",3855,4,"APDD",165.5,165.5,22) "BLD",3855,4,"APDD",165.5,165.5,22.3) "BLD",3855,4,"APDD",165.5,165.5,29) "BLD",3855,4,"APDD",165.5,165.5,59) "BLD",3855,4,"APDD",165.5,165.5,85) "BLD",3855,4,"B",160,160) "BLD",3855,4,"B",160.1,160.1) "BLD",3855,4,"B",160.16,160.16) "BLD",3855,4,"B",165.5,165.5) "BLD",3855,"INI") ONCPRE34 "BLD",3855,"INID") ^y^y "BLD",3855,"INIT") ONCPST34 "BLD",3855,"KRN",0) ^9.67PA^8989.52^19 "BLD",3855,"KRN",.4,0) .4 "BLD",3855,"KRN",.4,"NM",0) ^9.68A^6^6 "BLD",3855,"KRN",.4,"NM",1,0) ONCOY50 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM",2,0) ONCOY57 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM",3,0) ONCOY54 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM",4,0) ONCOXA3 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM",5,0) ONCOX6 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM",6,0) ONCOY53 FILE #165.5^165.5^0 "BLD",3855,"KRN",.4,"NM","B","ONCOX6 FILE #165.5",5) "BLD",3855,"KRN",.4,"NM","B","ONCOXA3 FILE #165.5",4) "BLD",3855,"KRN",.4,"NM","B","ONCOY50 FILE #165.5",1) "BLD",3855,"KRN",.4,"NM","B","ONCOY53 FILE #165.5",6) "BLD",3855,"KRN",.4,"NM","B","ONCOY54 FILE #165.5",3) "BLD",3855,"KRN",.4,"NM","B","ONCOY57 FILE #165.5",2) "BLD",3855,"KRN",.401,0) .401 "BLD",3855,"KRN",.402,0) .402 "BLD",3855,"KRN",.402,"NM",0) ^9.68A^2^2 "BLD",3855,"KRN",.402,"NM",1,0) ONCO RECURRENCE FOLLOWUP FILE #165.5^165.5^0 "BLD",3855,"KRN",.402,"NM",2,0) ONCO UTL CORRECT DATA FILE #165.5^165.5^0 "BLD",3855,"KRN",.402,"NM","B","ONCO RECURRENCE FOLLOWUP FILE #165.5",1) "BLD",3855,"KRN",.402,"NM","B","ONCO UTL CORRECT DATA FILE #165.5",2) "BLD",3855,"KRN",.403,0) .403 "BLD",3855,"KRN",.5,0) .5 "BLD",3855,"KRN",.84,0) .84 "BLD",3855,"KRN",3.6,0) 3.6 "BLD",3855,"KRN",3.8,0) 3.8 "BLD",3855,"KRN",9.2,0) 9.2 "BLD",3855,"KRN",9.8,0) 9.8 "BLD",3855,"KRN",9.8,"NM",0) ^9.68A^56^28 "BLD",3855,"KRN",9.8,"NM",8,0) ONCEDIT^^0^B30885316 "BLD",3855,"KRN",9.8,"NM",16,0) ONCPRE34^^0^B653063 "BLD",3855,"KRN",9.8,"NM",17,0) ONCOAI^^0^B24236265 "BLD",3855,"KRN",9.8,"NM",18,0) ONCOES^^0^B44144077 "BLD",3855,"KRN",9.8,"NM",19,0) ONCOPA1^^0^B33925094 "BLD",3855,"KRN",9.8,"NM",20,0) ONCOPA3^^0^B24230361 "BLD",3855,"KRN",9.8,"NM",21,0) ONCPAT^^0^B30442258 "BLD",3855,"KRN",9.8,"NM",22,0) ONCPDI^^0^B7386889 "BLD",3855,"KRN",9.8,"NM",23,0) ONCTXSM^^0^B19866586 "BLD",3855,"KRN",9.8,"NM",24,0) ONCOEDC1^^0^B37772333 "BLD",3855,"KRN",9.8,"NM",25,0) ONCPTX^^0^B58263192 "BLD",3855,"KRN",9.8,"NM",26,0) ONCOPA2A^^0^B18213747 "BLD",3855,"KRN",9.8,"NM",27,0) ONCOPA2^^0^B55522309 "BLD",3855,"KRN",9.8,"NM",28,0) ONCNTX^^0^B81360687 "BLD",3855,"KRN",9.8,"NM",29,0) ONCOAIP^^0^B79199547 "BLD",3855,"KRN",9.8,"NM",43,0) ONCOOT^^0^B63106413 "BLD",3855,"KRN",9.8,"NM",44,0) ONCOPA1A^^0^B12524919 "BLD",3855,"KRN",9.8,"NM",45,0) ONCPSD^^0^B3660314 "BLD",3855,"KRN",9.8,"NM",46,0) ONCOSCT1^^0^B8403389 "BLD",3855,"KRN",9.8,"NM",48,0) ONCACDU2^^0^B38563459 "BLD",3855,"KRN",9.8,"NM",49,0) ONCPTHST^^0^B3290122 "BLD",3855,"KRN",9.8,"NM",50,0) ONCOHICD^^0^B39487351 "BLD",3855,"KRN",9.8,"NM",51,0) ONCODIS^^0^B1392200 "BLD",3855,"KRN",9.8,"NM",52,0) ONCOSUR2^^0^B57891742 "BLD",3855,"KRN",9.8,"NM",53,0) ONCOCFP^^0^B28249731 "BLD",3855,"KRN",9.8,"NM",54,0) ONCOCFR^^0^B21803427 "BLD",3855,"KRN",9.8,"NM",55,0) ONCOLRU^^0^B7113449 "BLD",3855,"KRN",9.8,"NM",56,0) ONCPST34^^0^B3301769 "BLD",3855,"KRN",9.8,"NM","B","ONCACDU2",48) "BLD",3855,"KRN",9.8,"NM","B","ONCEDIT",8) "BLD",3855,"KRN",9.8,"NM","B","ONCNTX",28) "BLD",3855,"KRN",9.8,"NM","B","ONCOAI",17) "BLD",3855,"KRN",9.8,"NM","B","ONCOAIP",29) "BLD",3855,"KRN",9.8,"NM","B","ONCOCFP",53) "BLD",3855,"KRN",9.8,"NM","B","ONCOCFR",54) "BLD",3855,"KRN",9.8,"NM","B","ONCODIS",51) "BLD",3855,"KRN",9.8,"NM","B","ONCOEDC1",24) "BLD",3855,"KRN",9.8,"NM","B","ONCOES",18) "BLD",3855,"KRN",9.8,"NM","B","ONCOHICD",50) "BLD",3855,"KRN",9.8,"NM","B","ONCOLRU",55) "BLD",3855,"KRN",9.8,"NM","B","ONCOOT",43) "BLD",3855,"KRN",9.8,"NM","B","ONCOPA1",19) "BLD",3855,"KRN",9.8,"NM","B","ONCOPA1A",44) "BLD",3855,"KRN",9.8,"NM","B","ONCOPA2",27) "BLD",3855,"KRN",9.8,"NM","B","ONCOPA2A",26) "BLD",3855,"KRN",9.8,"NM","B","ONCOPA3",20) "BLD",3855,"KRN",9.8,"NM","B","ONCOSCT1",46) "BLD",3855,"KRN",9.8,"NM","B","ONCOSUR2",52) "BLD",3855,"KRN",9.8,"NM","B","ONCPAT",21) "BLD",3855,"KRN",9.8,"NM","B","ONCPDI",22) "BLD",3855,"KRN",9.8,"NM","B","ONCPRE34",16) "BLD",3855,"KRN",9.8,"NM","B","ONCPSD",45) "BLD",3855,"KRN",9.8,"NM","B","ONCPST34",56) "BLD",3855,"KRN",9.8,"NM","B","ONCPTHST",49) "BLD",3855,"KRN",9.8,"NM","B","ONCPTX",25) "BLD",3855,"KRN",9.8,"NM","B","ONCTXSM",23) "BLD",3855,"KRN",19,0) 19 "BLD",3855,"KRN",19.1,0) 19.1 "BLD",3855,"KRN",101,0) 101 "BLD",3855,"KRN",409.61,0) 409.61 "BLD",3855,"KRN",771,0) 771 "BLD",3855,"KRN",870,0) 870 "BLD",3855,"KRN",8989.51,0) 8989.51 "BLD",3855,"KRN",8989.52,0) 8989.52 "BLD",3855,"KRN",8994,0) 8994 "BLD",3855,"KRN","B",.4,.4) "BLD",3855,"KRN","B",.401,.401) "BLD",3855,"KRN","B",.402,.402) "BLD",3855,"KRN","B",.403,.403) "BLD",3855,"KRN","B",.5,.5) "BLD",3855,"KRN","B",.84,.84) "BLD",3855,"KRN","B",3.6,3.6) "BLD",3855,"KRN","B",3.8,3.8) "BLD",3855,"KRN","B",9.2,9.2) "BLD",3855,"KRN","B",9.8,9.8) "BLD",3855,"KRN","B",19,19) "BLD",3855,"KRN","B",19.1,19.1) "BLD",3855,"KRN","B",101,101) "BLD",3855,"KRN","B",409.61,409.61) "BLD",3855,"KRN","B",771,771) "BLD",3855,"KRN","B",870,870) "BLD",3855,"KRN","B",8989.51,8989.51) "BLD",3855,"KRN","B",8989.52,8989.52) "BLD",3855,"KRN","B",8994,8994) "DATA",160.16,9,0) ACD EXTRACT V9.1 "DATA",160.16,9,"FIELD",0) ^160.161I^401^301 "DATA",160.16,9,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,9,"FIELD",1,1) S ACDANS="I" "DATA",160.16,9,"FIELD",1,2) BLANK "DATA",160.16,9,"FIELD",1,3) L,BLANK "DATA",160.16,9,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,9,"FIELD",2,1) S ACDANS="" "DATA",160.16,9,"FIELD",2,2) BLANK "DATA",160.16,9,"FIELD",2,3) L,ZERO "DATA",160.16,9,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,9,"FIELD",3,1) S ACDANS=3 "DATA",160.16,9,"FIELD",3,2) BLANK "DATA",160.16,9,"FIELD",3,3) L,BLANK "DATA",160.16,9,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,9,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,9,"FIELD",4,2) BLANK "DATA",160.16,9,"FIELD",4,3) L,BLANK "DATA",160.16,9,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,9,"FIELD",5,1) S ACDANS=9 "DATA",160.16,9,"FIELD",5,2) BLANK "DATA",160.16,9,"FIELD",5,3) L,BLANK "DATA",160.16,9,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,9,"FIELD",6,1) S ACDANS="" "DATA",160.16,9,"FIELD",6,2) BLANK "DATA",160.16,9,"FIELD",6,3) L,BLANK "DATA",160.16,9,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,9,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,9,"FIELD",7,2) BLANK "DATA",160.16,9,"FIELD",7,3) R,BLANK "DATA",160.16,9,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,9,"FIELD",8,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,9,"FIELD",8,2) BLANK "DATA",160.16,9,"FIELD",8,3) L,BLANK "DATA",160.16,9,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,9,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",9,2) BLANK "DATA",160.16,9,"FIELD",9,3) L,ZERO "DATA",160.16,9,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,9,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,9,"FIELD",10,2) BLANK "DATA",160.16,9,"FIELD",10,3) R,BLANK "DATA",160.16,9,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,9,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,9,"FIELD",11,2) BLANK "DATA",160.16,9,"FIELD",11,3) L,ZERO "DATA",160.16,9,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,9,"FIELD",12,1) S ACDANS="" "DATA",160.16,9,"FIELD",12,2) BLANK "DATA",160.16,9,"FIELD",12,3) L,BLANK "DATA",160.16,9,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,9,"FIELD",13,1) S ACDANS="" "DATA",160.16,9,"FIELD",13,2) BLANK "DATA",160.16,9,"FIELD",13,3) L,BLANK "DATA",160.16,9,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,9,"FIELD",14,1) S ACDANS="" "DATA",160.16,9,"FIELD",14,2) BLANK "DATA",160.16,9,"FIELD",14,3) L,BLANK "DATA",160.16,9,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,9,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,9,"FIELD",15,2) BLANK "DATA",160.16,9,"FIELD",15,3) L,BLANK "DATA",160.16,9,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,9,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,9,"FIELD",16,2) BLANK "DATA",160.16,9,"FIELD",16,3) L,ZERO "DATA",160.16,9,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,9,"FIELD",17,1) S ACDANS=6 "DATA",160.16,9,"FIELD",17,2) BLANK "DATA",160.16,9,"FIELD",17,3) L,BLANK "DATA",160.16,9,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,9,"FIELD",18,1) S ACDANS=6 "DATA",160.16,9,"FIELD",18,2) BLANK "DATA",160.16,9,"FIELD",18,3) L,BLANK "DATA",160.16,9,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,9,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,9,"FIELD",19,2) BLANK "DATA",160.16,9,"FIELD",19,3) L,BLANK "DATA",160.16,9,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,9,"FIELD",20,1) S ACDANS="" "DATA",160.16,9,"FIELD",20,2) BLANK "DATA",160.16,9,"FIELD",20,3) L,BLANK "DATA",160.16,9,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,9,"FIELD",21,1) S ACDANS="" "DATA",160.16,9,"FIELD",21,2) BLANK "DATA",160.16,9,"FIELD",21,3) L,BLANK "DATA",160.16,9,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,9,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,9,"FIELD",22,2) BLANK "DATA",160.16,9,"FIELD",22,3) L,BLANK "DATA",160.16,9,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,9,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",23,2) BLANK "DATA",160.16,9,"FIELD",23,3) L,ZERO "DATA",160.16,9,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,9,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,9,"FIELD",24,2) BLANK "DATA",160.16,9,"FIELD",24,3) L,ZERO "DATA",160.16,9,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,9,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,9,"FIELD",25,2) BLANK "DATA",160.16,9,"FIELD",25,3) L,ZERO "DATA",160.16,9,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,9,"FIELD",26,1) S ACDANS=99 "DATA",160.16,9,"FIELD",26,2) BLANK "DATA",160.16,9,"FIELD",26,3) L,ZERO "DATA",160.16,9,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,9,"FIELD",27,1) S ACDANS="" "DATA",160.16,9,"FIELD",27,2) BLANK "DATA",160.16,9,"FIELD",27,3) L,BLANK "DATA",160.16,9,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,9,"FIELD",28,1) S ACDANS="" "DATA",160.16,9,"FIELD",28,2) BLANK "DATA",160.16,9,"FIELD",28,3) L,BLANK "DATA",160.16,9,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,9,"FIELD",29,1) S ACDANS="" "DATA",160.16,9,"FIELD",29,2) BLANK "DATA",160.16,9,"FIELD",29,3) L,BLANK "DATA",160.16,9,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,9,"FIELD",30,1) S ACDANS="" "DATA",160.16,9,"FIELD",30,2) BLANK "DATA",160.16,9,"FIELD",30,3) L,BLANK "DATA",160.16,9,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,9,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",31,2) BLANK "DATA",160.16,9,"FIELD",31,3) R,BLANK "DATA",160.16,9,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,9,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",32,2) BLANK "DATA",160.16,9,"FIELD",32,3) R,BLANK "DATA",160.16,9,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,9,"FIELD",33,1) S ACDANS="" "DATA",160.16,9,"FIELD",33,2) BLANK "DATA",160.16,9,"FIELD",33,3) L,BLANK "DATA",160.16,9,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,9,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",34,2) BLANK "DATA",160.16,9,"FIELD",34,3) L,BLANK "DATA",160.16,9,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,9,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",35,2) BLANK "DATA",160.16,9,"FIELD",35,3) L,BLANK "DATA",160.16,9,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,9,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,9,"FIELD",36,2) BLANK "DATA",160.16,9,"FIELD",36,3) L,BLANK "DATA",160.16,9,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,9,"FIELD",37,1) S ACDANS="" "DATA",160.16,9,"FIELD",37,2) BLANK "DATA",160.16,9,"FIELD",37,3) L,BLANK "DATA",160.16,9,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,9,"FIELD",38,1) S ACDANS="6"_STAT1 "DATA",160.16,9,"FIELD",38,2) ZERO "DATA",160.16,9,"FIELD",38,3) L,ZERO "DATA",160.16,9,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,9,"FIELD",39,1) S ACDANS="" "DATA",160.16,9,"FIELD",39,2) BLANK "DATA",160.16,9,"FIELD",39,3) L,BLANK "DATA",160.16,9,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,9,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",40,2) BLANK "DATA",160.16,9,"FIELD",40,3) L,ZERO "DATA",160.16,9,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,9,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,9,"FIELD",41,2) BLANK "DATA",160.16,9,"FIELD",41,3) L,ZERO "DATA",160.16,9,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,9,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,9,"FIELD",42,2) BLANK "DATA",160.16,9,"FIELD",42,3) L,BLANK "DATA",160.16,9,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,9,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,9,"FIELD",43,2) BLANK "DATA",160.16,9,"FIELD",43,3) L,ZERO "DATA",160.16,9,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,9,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,9,"FIELD",45,2) BLANK "DATA",160.16,9,"FIELD",45,3) L,ZERO "DATA",160.16,9,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,9,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,9,"FIELD",46,2) BLANK "DATA",160.16,9,"FIELD",46,3) L,ZERO "DATA",160.16,9,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,9,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,9,"FIELD",47,2) BLANK "DATA",160.16,9,"FIELD",47,3) L,ZERO "DATA",160.16,9,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,9,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,9,"FIELD",48,2) BLANK "DATA",160.16,9,"FIELD",48,3) L,ZERO "DATA",160.16,9,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,9,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,9,"FIELD",49,2) BLANK "DATA",160.16,9,"FIELD",49,3) L,ZERO "DATA",160.16,9,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,9,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,9,"FIELD",50,2) BLANK "DATA",160.16,9,"FIELD",50,3) L,ZERO "DATA",160.16,9,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,9,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,9,"FIELD",51,2) BLANK "DATA",160.16,9,"FIELD",51,3) L,BLANK "DATA",160.16,9,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,9,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",52,2) BLANK "DATA",160.16,9,"FIELD",52,3) L,BLANK "DATA",160.16,9,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,9,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,9,"FIELD",53,2) BLANK "DATA",160.16,9,"FIELD",53,3) L,BLANK "DATA",160.16,9,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,9,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,9,"FIELD",54,2) BLANK "DATA",160.16,9,"FIELD",54,3) L,ZERO "DATA",160.16,9,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,9,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,9,"FIELD",57,2) BLANK "DATA",160.16,9,"FIELD",57,3) L,ZERO "DATA",160.16,9,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,9,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,9,"FIELD",58,2) BLANK "DATA",160.16,9,"FIELD",58,3) R,BLANK "DATA",160.16,9,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,9,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",59,2) BLANK "DATA",160.16,9,"FIELD",59,3) L,ZERO "DATA",160.16,9,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,9,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",60,2) BLANK "DATA",160.16,9,"FIELD",60,3) L,ZERO "DATA",160.16,9,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,9,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",61,2) BLANK "DATA",160.16,9,"FIELD",61,3) L,ZERO "DATA",160.16,9,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,9,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,9,"FIELD",62,2) BLANK "DATA",160.16,9,"FIELD",62,3) L,ZERO "DATA",160.16,9,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,9,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,9,"FIELD",63,2) BLANK "DATA",160.16,9,"FIELD",63,3) L,ZERO "DATA",160.16,9,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,9,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",64,2) BLANK "DATA",160.16,9,"FIELD",64,3) L,BLANK "DATA",160.16,9,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,9,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,9,"FIELD",65,2) BLANK "DATA",160.16,9,"FIELD",65,3) L,BLANK "DATA",160.16,9,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,9,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,9,"FIELD",66,2) BLANK "DATA",160.16,9,"FIELD",66,3) L,BLANK "DATA",160.16,9,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,9,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",67,2) BLANK "DATA",160.16,9,"FIELD",67,3) L,BLANK "DATA",160.16,9,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,9,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,9,"FIELD",68,2) BLANK "DATA",160.16,9,"FIELD",68,3) L,ZERO "DATA",160.16,9,"FIELD",69,0) 347^4^350^Reserved for Expansion "DATA",160.16,9,"FIELD",69,1) S ACDANS="" "DATA",160.16,9,"FIELD",69,2) BLANK "DATA",160.16,9,"FIELD",69,3) L,BLANK "DATA",160.16,9,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,9,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,9,"FIELD",70,2) BLANK "DATA",160.16,9,"FIELD",70,3) L,ZERO "DATA",160.16,9,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,9,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,9,"FIELD",71,2) BLANK "DATA",160.16,9,"FIELD",71,3) L,ZERO "DATA",160.16,9,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,9,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,9,"FIELD",72,2) BLANK "DATA",160.16,9,"FIELD",72,3) L,ZERO "DATA",160.16,9,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,9,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,9,"FIELD",73,2) BLANK "DATA",160.16,9,"FIELD",73,3) L,ZERO "DATA",160.16,9,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,9,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,9,"FIELD",74,2) BLANK "DATA",160.16,9,"FIELD",74,3) L,ZERO "DATA",160.16,9,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,9,"FIELD",75,2) BLANK "DATA",160.16,9,"FIELD",75,3) L,ZERO "DATA",160.16,9,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,9,"FIELD",76,1) S ACDANS="" "DATA",160.16,9,"FIELD",76,2) BLANK "DATA",160.16,9,"FIELD",76,3) L,BLANK "DATA",160.16,9,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,9,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,9,"FIELD",77,2) BLANK "DATA",160.16,9,"FIELD",77,3) L,BLANK "DATA",160.16,9,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,9,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",78,2) BLANK "DATA",160.16,9,"FIELD",78,3) L,BLANK "DATA",160.16,9,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,9,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,9,"FIELD",79,2) BLANK "DATA",160.16,9,"FIELD",79,3) L,ZERO "DATA",160.16,9,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,9,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,9,"FIELD",80,2) BLANK "DATA",160.16,9,"FIELD",80,3) L,ZERO "DATA",160.16,9,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,9,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,9,"FIELD",81,2) BLANK "DATA",160.16,9,"FIELD",81,3) L,ZERO "DATA",160.16,9,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,9,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,9,"FIELD",82,2) BLANK "DATA",160.16,9,"FIELD",82,3) L,BLANK "DATA",160.16,9,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,9,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,9,"FIELD",83,2) BLANK "DATA",160.16,9,"FIELD",83,3) L,ZERO "DATA",160.16,9,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,9,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,9,"FIELD",84,2) BLANK "DATA",160.16,9,"FIELD",84,3) L,ZERO "DATA",160.16,9,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,9,"FIELD",85,1) S ACDANS="" "DATA",160.16,9,"FIELD",85,2) BLANK "DATA",160.16,9,"FIELD",85,3) L,BLANK "DATA",160.16,9,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,9,"FIELD",86,1) S ACDANS="" "DATA",160.16,9,"FIELD",86,2) BLANK "DATA",160.16,9,"FIELD",86,3) L,BLANK "DATA",160.16,9,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,9,"FIELD",87,1) S ACDANS="" "DATA",160.16,9,"FIELD",87,2) BLANK "DATA",160.16,9,"FIELD",87,3) L,BLANK "DATA",160.16,9,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,9,"FIELD",88,1) S ACDANS=4 "DATA",160.16,9,"FIELD",88,2) BLANK "DATA",160.16,9,"FIELD",88,3) L,BLANK "DATA",160.16,9,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,9,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,9,"FIELD",89,2) BLANK "DATA",160.16,9,"FIELD",89,3) R,BLANK "DATA",160.16,9,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,9,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,9,"FIELD",90,2) BLANK "DATA",160.16,9,"FIELD",90,3) R,BLANK "DATA",160.16,9,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,9,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,9,"FIELD",91,2) BLANK "DATA",160.16,9,"FIELD",91,3) R,BLANK "DATA",160.16,9,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,9,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,9,"FIELD",92,2) BLANK "DATA",160.16,9,"FIELD",92,3) R,BLANK "DATA",160.16,9,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,9,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,9,"FIELD",93,2) BLANK "DATA",160.16,9,"FIELD",93,3) L,ZERO "DATA",160.16,9,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,9,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,9,"FIELD",94,2) BLANK "DATA",160.16,9,"FIELD",94,3) L,BLANK "DATA",160.16,9,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,9,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,9,"FIELD",95,2) BLANK "DATA",160.16,9,"FIELD",95,3) R,BLANK "DATA",160.16,9,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,9,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,9,"FIELD",96,2) BLANK "DATA",160.16,9,"FIELD",96,3) R,BLANK "DATA",160.16,9,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,9,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,9,"FIELD",97,2) BLANK "DATA",160.16,9,"FIELD",97,3) R,BLANK "DATA",160.16,9,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,9,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,9,"FIELD",98,2) BLANK "DATA",160.16,9,"FIELD",98,3) R,BLANK "DATA",160.16,9,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,9,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,9,"FIELD",99,2) BLANK "DATA",160.16,9,"FIELD",99,3) L,ZERO "DATA",160.16,9,"FIELD",100,0) 441^1^441^TNM Clin Staged BY "DATA",160.16,9,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,9,"FIELD",100,2) BLANK "DATA",160.16,9,"FIELD",100,3) L,BLANK "DATA",160.16,9,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,9,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,9,"FIELD",101,2) BLANK "DATA",160.16,9,"FIELD",101,3) R,BLANK "DATA",160.16,9,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,9,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,9,"FIELD",102,2) BLANK "DATA",160.16,9,"FIELD",102,3) R,BLANK "DATA",160.16,9,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,9,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,9,"FIELD",103,2) BLANK "DATA",160.16,9,"FIELD",103,3) R,BLANK "DATA",160.16,9,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,9,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,9,"FIELD",104,2) BLANK "DATA",160.16,9,"FIELD",104,3) R,BLANK "DATA",160.16,9,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,9,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,9,"FIELD",105,2) BLANK "DATA",160.16,9,"FIELD",105,3) L,BLANK "DATA",160.16,9,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,9,"FIELD",106,1) S ACDANS="" "DATA",160.16,9,"FIELD",106,2) BLANK "DATA",160.16,9,"FIELD",106,3) L,BLANK "DATA",160.16,9,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,9,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",107,2) BLANK "DATA",160.16,9,"FIELD",107,3) L,BLANK "DATA",160.16,9,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,9,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",108,2) BLANK "DATA",160.16,9,"FIELD",108,3) R,BLANK "DATA",160.16,9,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,9,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",109,2) BLANK "DATA",160.16,9,"FIELD",109,3) L,BLANK "DATA",160.16,9,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,9,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,9,"FIELD",110,2) BLANK "DATA",160.16,9,"FIELD",110,3) L,BLANK "DATA",160.16,9,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,9,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,9,"FIELD",111,2) BLANK "DATA",160.16,9,"FIELD",111,3) L,BLANK "DATA",160.16,9,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,9,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,9,"FIELD",112,2) BLANK "DATA",160.16,9,"FIELD",112,3) L,BLANK "DATA",160.16,9,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,9,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,9,"FIELD",113,2) BLANK "DATA",160.16,9,"FIELD",113,3) L,BLANK "DATA",160.16,9,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,9,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",114,2) BLANK "DATA",160.16,9,"FIELD",114,3) L,BLANK "DATA",160.16,9,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,9,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,9,"FIELD",115,2) BLANK "DATA",160.16,9,"FIELD",115,3) L,BLANK "DATA",160.16,9,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,9,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",116,2) BLANK "DATA",160.16,9,"FIELD",116,3) L,BLANK "DATA",160.16,9,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,9,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",117,2) BLANK "DATA",160.16,9,"FIELD",117,3) L,BLANK "DATA",160.16,9,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,9,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",118,2) BLANK "DATA",160.16,9,"FIELD",118,3) L,BLANK "DATA",160.16,9,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,9,"FIELD",119,1) S ACDANS="" "DATA",160.16,9,"FIELD",119,2) BLANK "DATA",160.16,9,"FIELD",119,3) L,BLANK "DATA",160.16,9,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,9,"FIELD",120,1) S ACDANS="" "DATA",160.16,9,"FIELD",120,2) BLANK "DATA",160.16,9,"FIELD",120,3) L,BLANK "DATA",160.16,9,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,9,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",121,2) BLANK "DATA",160.16,9,"FIELD",121,3) L,BLANK "DATA",160.16,9,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,9,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,9,"FIELD",122,2) BLANK "DATA",160.16,9,"FIELD",122,3) L,BLANK "DATA",160.16,9,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,9,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,9,"FIELD",123,2) BLANK "DATA",160.16,9,"FIELD",123,3) L,BLANK "DATA",160.16,9,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,9,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,9,"FIELD",124,2) BLANK "DATA",160.16,9,"FIELD",124,3) L,BLANK "DATA",160.16,9,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,9,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,9,"FIELD",125,2) BLANK "DATA",160.16,9,"FIELD",125,3) L,BLANK "DATA",160.16,9,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,9,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,9,"FIELD",126,2) BLANK "DATA",160.16,9,"FIELD",126,3) L,BLANK "DATA",160.16,9,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,9,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,9,"FIELD",127,2) BLANK "DATA",160.16,9,"FIELD",127,3) L,ZERO "DATA",160.16,9,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,9,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,9,"FIELD",128,2) BLANK "DATA",160.16,9,"FIELD",128,3) L,ZERO "DATA",160.16,9,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",129,2) BLANK "DATA",160.16,9,"FIELD",129,3) L,ZERO "DATA",160.16,9,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,9,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,9,"FIELD",130,2) BLANK "DATA",160.16,9,"FIELD",130,3) L,ZERO "DATA",160.16,9,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,9,"FIELD",131,1) S ACDANS="" "DATA",160.16,9,"FIELD",131,2) BLANK "DATA",160.16,9,"FIELD",131,3) L,BLANK "DATA",160.16,9,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approch "DATA",160.16,9,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,9,"FIELD",132,2) BLANK "DATA",160.16,9,"FIELD",132,3) L,BLANK "DATA",160.16,9,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,9,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,9,"FIELD",133,2) BLANK "DATA",160.16,9,"FIELD",133,3) L,BLANK "DATA",160.16,9,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,9,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,9,"FIELD",134,2) BLANK "DATA",160.16,9,"FIELD",134,3) L,BLANK "DATA",160.16,9,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,9,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,9,"FIELD",135,2) BLANK "DATA",160.16,9,"FIELD",135,3) L,BLANK "DATA",160.16,9,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,9,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,9,"FIELD",136,2) BLANK "DATA",160.16,9,"FIELD",136,3) L,ZERO "DATA",160.16,9,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,9,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,9,"FIELD",137,2) BLANK "DATA",160.16,9,"FIELD",137,3) L,ZERO "DATA",160.16,9,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,9,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,9,"FIELD",138,2) BLANK "DATA",160.16,9,"FIELD",138,3) L,ZERO "DATA",160.16,9,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,9,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,9,"FIELD",139,2) BLANK "DATA",160.16,9,"FIELD",139,3) L,ZERO "DATA",160.16,9,"FIELD",140,0) 628^1^628^Rx Summ--Chemo "DATA",160.16,9,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,9,"FIELD",140,2) BLANK "DATA",160.16,9,"FIELD",140,3) L,ZERO "DATA",160.16,9,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,9,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,9,"FIELD",141,2) BLANK "DATA",160.16,9,"FIELD",141,3) L,ZERO "DATA",160.16,9,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,9,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,9,"FIELD",142,2) BLANK "DATA",160.16,9,"FIELD",142,3) L,ZERO "DATA",160.16,9,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,9,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,9,"FIELD",143,2) BLANK "DATA",160.16,9,"FIELD",143,3) L,ZERO "DATA",160.16,9,"FIELD",144,0) 632^1^632^Reasons for No Radiation "DATA",160.16,9,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,9,"FIELD",144,2) BLANK "DATA",160.16,9,"FIELD",144,3) L,BLANK "DATA",160.16,9,"FIELD",145,0) 633^1^633^Reasons for No Chemo "DATA",160.16,9,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,9,"FIELD",145,2) BLANK "DATA",160.16,9,"FIELD",145,3) L,BLANK "DATA",160.16,9,"FIELD",146,0) 634^1^634^Reasons for No Hormone "DATA",160.16,9,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,9,"FIELD",146,2) BLANK "DATA",160.16,9,"FIELD",146,3) L,BLANK "DATA",160.16,9,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,9,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,9,"FIELD",147,2) BLANK "DATA",160.16,9,"FIELD",147,3) L,ZERO "DATA",160.16,9,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,9,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,9,"FIELD",148,2) BLANK "DATA",160.16,9,"FIELD",148,3) L,BLANK "DATA",160.16,9,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,9,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,9,"FIELD",149,2) BLANK "DATA",160.16,9,"FIELD",149,3) L,BLANK "DATA",160.16,9,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,9,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,9,"FIELD",150,2) BLANK "DATA",160.16,9,"FIELD",150,3) L,BLANK "DATA",160.16,9,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,9,"FIELD",151,1) S ACDANS=1 "DATA",160.16,9,"FIELD",151,2) BLANK "DATA",160.16,9,"FIELD",151,3) L,BLANK "DATA",160.16,9,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,9,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,9,"FIELD",152,2) BLANK "DATA",160.16,9,"FIELD",152,3) L,ZERO "DATA",160.16,9,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,9,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,9,"FIELD",153,2) BLANK "DATA",160.16,9,"FIELD",153,3) L,ZERO "DATA",160.16,9,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,9,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,9,"FIELD",154,2) BLANK "DATA",160.16,9,"FIELD",154,3) L,ZERO "DATA",160.16,9,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,9,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",155,2) BLANK "DATA",160.16,9,"FIELD",155,3) L,ZERO "DATA",160.16,9,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,9,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,9,"FIELD",156,2) BLANK "DATA",160.16,9,"FIELD",156,3) L,ZERO "DATA",160.16,9,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,9,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,9,"FIELD",157,2) BLANK "DATA",160.16,9,"FIELD",157,3) L,ZERO "DATA",160.16,9,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,9,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",158,2) BLANK "DATA",160.16,9,"FIELD",158,3) L,ZERO "DATA",160.16,9,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,9,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",159,2) BLANK "DATA",160.16,9,"FIELD",159,3) L,ZERO "DATA",160.16,9,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,9,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,9,"FIELD",160,2) BLANK "DATA",160.16,9,"FIELD",160,3) L,ZERO "DATA",160.16,9,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,9,"FIELD",161,1) S ACDANS="" "DATA",160.16,9,"FIELD",161,2) BLANK "DATA",160.16,9,"FIELD",161,3) L,BLANK "DATA",160.16,9,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,9,"FIELD",162,1) S ACDANS="" "DATA",160.16,9,"FIELD",162,2) BLANK "DATA",160.16,9,"FIELD",162,3) L,BLANK "DATA",160.16,9,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,9,"FIELD",163,1) S ACDANS="" "DATA",160.16,9,"FIELD",163,2) BLANK "DATA",160.16,9,"FIELD",163,3) L,BLANK "DATA",160.16,9,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,9,"FIELD",164,1) S ACDANS="" "DATA",160.16,9,"FIELD",164,2) BLANK "DATA",160.16,9,"FIELD",164,3) L,BLANK "DATA",160.16,9,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,9,"FIELD",165,1) S ACDANS="" "DATA",160.16,9,"FIELD",165,2) BLANK "DATA",160.16,9,"FIELD",165,3) L,BLANK "DATA",160.16,9,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,9,"FIELD",166,1) S ACDANS="" "DATA",160.16,9,"FIELD",166,2) BLANK "DATA",160.16,9,"FIELD",166,3) L,BLANK "DATA",160.16,9,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,9,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",167,2) 00000000 "DATA",160.16,9,"FIELD",167,3) L,BLANK "DATA",160.16,9,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,9,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,9,"FIELD",168,2) BLANK "DATA",160.16,9,"FIELD",168,3) L,ZERO "DATA",160.16,9,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,9,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,9,"FIELD",169,2) BLANK "DATA",160.16,9,"FIELD",169,3) L,BLANK "DATA",160.16,9,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,9,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,9,"FIELD",170,2) BLANK "DATA",160.16,9,"FIELD",170,3) L,BLANK "DATA",160.16,9,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,9,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,9,"FIELD",171,2) BLANK "DATA",160.16,9,"FIELD",171,3) L,BLANK "DATA",160.16,9,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,9,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,9,"FIELD",172,2) BLANK "DATA",160.16,9,"FIELD",172,3) L,BLANK "DATA",160.16,9,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,9,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,9,"FIELD",173,2) BLANK "DATA",160.16,9,"FIELD",173,3) L,BLANK "DATA",160.16,9,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,9,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",174,2) 00000000 "DATA",160.16,9,"FIELD",174,3) L,BLANK "DATA",160.16,9,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,9,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,9,"FIELD",175,2) BLANK "DATA",160.16,9,"FIELD",175,3) L,ZERO "DATA",160.16,9,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,9,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,9,"FIELD",176,2) BLANK "DATA",160.16,9,"FIELD",176,3) L,BLANK "DATA",160.16,9,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,9,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,9,"FIELD",177,2) BLANK "DATA",160.16,9,"FIELD",177,3) L,BLANK "DATA",160.16,9,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,9,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,9,"FIELD",178,2) BLANK "DATA",160.16,9,"FIELD",178,3) L,BLANK "DATA",160.16,9,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,9,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,9,"FIELD",179,2) BLANK "DATA",160.16,9,"FIELD",179,3) L,BLANK "DATA",160.16,9,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,9,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,9,"FIELD",180,2) BLANK "DATA",160.16,9,"FIELD",180,3) L,BLANK "DATA",160.16,9,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,9,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",181,2) 00000000 "DATA",160.16,9,"FIELD",181,3) L,BLANK "DATA",160.16,9,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,9,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,9,"FIELD",182,2) BLANK "DATA",160.16,9,"FIELD",182,3) L,ZERO "DATA",160.16,9,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,9,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,9,"FIELD",183,2) BLANK "DATA",160.16,9,"FIELD",183,3) L,BLANK "DATA",160.16,9,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,9,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,9,"FIELD",184,2) BLANK "DATA",160.16,9,"FIELD",184,3) L,BLANK "DATA",160.16,9,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,9,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,9,"FIELD",185,2) BLANK "DATA",160.16,9,"FIELD",185,3) L,BLANK "DATA",160.16,9,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,9,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,9,"FIELD",186,2) BLANK "DATA",160.16,9,"FIELD",186,3) L,BLANK "DATA",160.16,9,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,9,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,9,"FIELD",187,2) BLANK "DATA",160.16,9,"FIELD",187,3) L,BLANK "DATA",160.16,9,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,9,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",188,2) 00000000 "DATA",160.16,9,"FIELD",188,3) L,BLANK "DATA",160.16,9,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,9,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,9,"FIELD",189,2) BLANK "DATA",160.16,9,"FIELD",189,3) L,ZERO "DATA",160.16,9,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,9,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,9,"FIELD",190,2) BLANK "DATA",160.16,9,"FIELD",190,3) L,BLANK "DATA",160.16,9,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,9,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,9,"FIELD",191,2) BLANK "DATA",160.16,9,"FIELD",191,3) L,BLANK "DATA",160.16,9,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,9,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,9,"FIELD",192,2) BLANK "DATA",160.16,9,"FIELD",192,3) L,BLANK "DATA",160.16,9,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,9,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,9,"FIELD",193,2) BLANK "DATA",160.16,9,"FIELD",193,3) L,BLANK "DATA",160.16,9,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,9,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,9,"FIELD",194,2) BLANK "DATA",160.16,9,"FIELD",194,3) L,BLANK "DATA",160.16,9,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,9,"FIELD",195,1) S ACDANS="" "DATA",160.16,9,"FIELD",195,2) BLANK "DATA",160.16,9,"FIELD",195,3) L,BLANK "DATA",160.16,9,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,9,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",196,2) BLANK "DATA",160.16,9,"FIELD",196,3) L,ZERO "DATA",160.16,9,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,9,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,9,"FIELD",197,2) BLANK "DATA",160.16,9,"FIELD",197,3) L,BLANK "DATA",160.16,9,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,9,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",198,2) BLANK "DATA",160.16,9,"FIELD",198,3) L,BLANK "DATA",160.16,9,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,9,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,9,"FIELD",199,2) BLANK "DATA",160.16,9,"FIELD",199,3) L,BLANK "DATA",160.16,9,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,9,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,9,"FIELD",200,2) BLANK "DATA",160.16,9,"FIELD",200,3) L,BLANK "DATA",160.16,9,"FIELD",201,0) 803^1^803^Next Follow-up Source "DATA",160.16,9,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,9,"FIELD",201,2) BLANK "DATA",160.16,9,"FIELD",201,3) L,BLANK "DATA",160.16,9,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,9,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",202,2) BLANK "DATA",160.16,9,"FIELD",202,3) R,BLANK "DATA",160.16,9,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,9,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",203,2) BLANK "DATA",160.16,9,"FIELD",203,3) R,BLANK "DATA",160.16,9,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,9,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,9,"FIELD",204,2) BLANK "DATA",160.16,9,"FIELD",204,3) R,BLANK "DATA",160.16,9,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,9,"FIELD",205,1) S ACDANS="" "DATA",160.16,9,"FIELD",205,2) BLANK "DATA",160.16,9,"FIELD",205,3) L,BLANK "DATA",160.16,9,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,9,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,9,"FIELD",206,2) BLANK "DATA",160.16,9,"FIELD",206,3) L,BLANK "DATA",160.16,9,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,9,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,9,"FIELD",207,2) NINE "DATA",160.16,9,"FIELD",207,3) L,NINE "DATA",160.16,9,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,9,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,9,"FIELD",208,2) BLANK "DATA",160.16,9,"FIELD",208,3) L,BLANK "DATA",160.16,9,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,9,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",209,2) NINE "DATA",160.16,9,"FIELD",209,3) L,ZERO "DATA",160.16,9,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,9,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,9,"FIELD",210,2) NINE "DATA",160.16,9,"FIELD",210,3) L,ZERO "DATA",160.16,9,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,9,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",211,2) BLANK "DATA",160.16,9,"FIELD",211,3) L,BLANK "DATA",160.16,9,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,9,"FIELD",212,1) S ACDANS="" "DATA",160.16,9,"FIELD",212,2) BLANK "DATA",160.16,9,"FIELD",212,3) L,BLANK "DATA",160.16,9,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,9,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) S:ACDANS="" ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,9,"FIELD",213,2) BLANK "DATA",160.16,9,"FIELD",213,3) L,ZERO "DATA",160.16,9,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,9,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,9,"FIELD",214,2) BLANK "DATA",160.16,9,"FIELD",214,3) L,ZERO "DATA",160.16,9,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,9,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,9,"FIELD",215,2) BLANK "DATA",160.16,9,"FIELD",215,3) L,BLANK "DATA",160.16,9,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,9,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,9,"FIELD",216,2) BLANK "DATA",160.16,9,"FIELD",216,3) L,BLANK "DATA",160.16,9,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,9,"FIELD",217,1) S ACDANS="" "DATA",160.16,9,"FIELD",217,2) BLANK "DATA",160.16,9,"FIELD",217,3) L,BLANK "DATA",160.16,9,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,9,"FIELD",218,1) S ACDANS="" "DATA",160.16,9,"FIELD",218,2) BLANK "DATA",160.16,9,"FIELD",218,3) L,BLANK "DATA",160.16,9,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,9,"FIELD",219,1) S ACDANS="" "DATA",160.16,9,"FIELD",219,2) BLANK "DATA",160.16,9,"FIELD",219,3) L,BLANK "DATA",160.16,9,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,9,"FIELD",220,1) S ACDANS=4 "DATA",160.16,9,"FIELD",220,2) BLANK "DATA",160.16,9,"FIELD",220,3) L,BLANK "DATA",160.16,9,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,9,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,9,"FIELD",221,2) BLANK "DATA",160.16,9,"FIELD",221,3) L,BLANK "DATA",160.16,9,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,9,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,9,"FIELD",222,2) BLANK "DATA",160.16,9,"FIELD",222,3) L,BLANK "DATA",160.16,9,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,9,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,9,"FIELD",223,2) BLANK "DATA",160.16,9,"FIELD",223,3) L,BLANK "DATA",160.16,9,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,9,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,9,"FIELD",224,2) BLANK "DATA",160.16,9,"FIELD",224,3) L,BLANK "DATA",160.16,9,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,9,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,9,"FIELD",225,2) BLANK "DATA",160.16,9,"FIELD",225,3) L,BLANK "DATA",160.16,9,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,9,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,9,"FIELD",226,2) BLANK "DATA",160.16,9,"FIELD",226,3) L,BLANK "DATA",160.16,9,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,9,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,9,"FIELD",227,2) BLANK "DATA",160.16,9,"FIELD",227,3) L,BLANK "DATA",160.16,9,"FIELD",228,0) 920^1^920^Over-ride Ill-define Site "DATA",160.16,9,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,9,"FIELD",228,2) BLANK "DATA",160.16,9,"FIELD",228,3) L,BLANK "DATA",160.16,9,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,9,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,9,"FIELD",229,2) BLANK "DATA",160.16,9,"FIELD",229,3) L,BLANK "DATA",160.16,9,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,9,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,9,"FIELD",231,2) BLANK "DATA",160.16,9,"FIELD",231,3) L,BLANK "DATA",160.16,9,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,9,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,9,"FIELD",232,2) BLANK "DATA",160.16,9,"FIELD",232,3) L,BLANK "DATA",160.16,9,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,9,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,9,"FIELD",233,2) BLANK "DATA",160.16,9,"FIELD",233,3) L,ZERO "DATA",160.16,9,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,9,"FIELD",234,1) S ACDANS=5 "DATA",160.16,9,"FIELD",234,2) BLANK "DATA",160.16,9,"FIELD",234,3) L,BLANK "DATA",160.16,9,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,9,"FIELD",235,1) S ACDANS=5 "DATA",160.16,9,"FIELD",235,2) BLANK "DATA",160.16,9,"FIELD",235,3) L,BLANK "DATA",160.16,9,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,9,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",236,2) BLANK "DATA",160.16,9,"FIELD",236,3) L,BLANK "DATA",160.16,9,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,9,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,9,"FIELD",237,2) BLANK "DATA",160.16,9,"FIELD",237,3) L,BLANK "DATA",160.16,9,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,9,"FIELD",238,1) S ACDANS="" "DATA",160.16,9,"FIELD",238,2) BLANK "DATA",160.16,9,"FIELD",238,3) L,BLANK "DATA",160.16,9,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,9,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,9,"FIELD",239,2) BLANK "DATA",160.16,9,"FIELD",239,3) R,BLANK "DATA",160.16,9,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,9,"FIELD",240,1) S ACDANS="" "DATA",160.16,9,"FIELD",240,2) BLANK "DATA",160.16,9,"FIELD",240,3) L,BLANK "DATA",160.16,9,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,9,"FIELD",241,1) S ACDANS="" "DATA",160.16,9,"FIELD",241,2) BLANK "DATA",160.16,9,"FIELD",241,3) L,BLANK "DATA",160.16,9,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,9,"FIELD",242,1) S ACDANS="" "DATA",160.16,9,"FIELD",242,2) BLANK "DATA",160.16,9,"FIELD",242,3) L,BLANK "DATA",160.16,9,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,9,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,9,"FIELD",243,2) BLANK "DATA",160.16,9,"FIELD",243,3) L,BLANK "DATA",160.16,9,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,9,"FIELD",339,1) S ACDANS="" "DATA",160.16,9,"FIELD",339,2) BLANK "DATA",160.16,9,"FIELD",339,3) L,BLANK "DATA",160.16,9,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,9,"FIELD",340,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,9,"FIELD",340,2) BLANK "DATA",160.16,9,"FIELD",340,3) L,BLANK "DATA",160.16,9,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,9,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,9,"FIELD",341,2) BLANK "DATA",160.16,9,"FIELD",341,3) L,BLANK "DATA",160.16,9,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,9,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,9,"FIELD",342,2) BLANK "DATA",160.16,9,"FIELD",342,3) L,BLANK "DATA",160.16,9,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,9,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,9,"FIELD",343,2) BLANK "DATA",160.16,9,"FIELD",343,3) L,BLANK "DATA",160.16,9,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,9,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,9,"FIELD",344,2) BLANK "DATA",160.16,9,"FIELD",344,3) L,BLANK "DATA",160.16,9,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,9,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,9,"FIELD",345,2) BLANK "DATA",160.16,9,"FIELD",345,3) L,BLANK "DATA",160.16,9,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,9,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,9,"FIELD",346,2) BLANK "DATA",160.16,9,"FIELD",346,3) L,BLANK "DATA",160.16,9,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,9,"FIELD",347,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,9,"FIELD",347,2) BLANK "DATA",160.16,9,"FIELD",347,3) L,ZERO "DATA",160.16,9,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,9,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,9,"FIELD",348,2) NINE "DATA",160.16,9,"FIELD",348,3) L,NINE "DATA",160.16,9,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,9,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,9,"FIELD",349,2) BLANK "DATA",160.16,9,"FIELD",349,3) L,ZERO "DATA",160.16,9,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,9,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,9,"FIELD",350,2) BLANK "DATA",160.16,9,"FIELD",350,3) L,BLANK "DATA",160.16,9,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,9,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,9,"FIELD",351,2) BLANK "DATA",160.16,9,"FIELD",351,3) L,BLANK "DATA",160.16,9,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,9,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,9,"FIELD",352,2) BLANK "DATA",160.16,9,"FIELD",352,3) L,BLANK "DATA",160.16,9,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,9,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,9,"FIELD",353,2) BLANK "DATA",160.16,9,"FIELD",353,3) L,BLANK "DATA",160.16,9,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope LN Su "DATA",160.16,9,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,9,"FIELD",354,2) BLANK "DATA",160.16,9,"FIELD",354,3) L,BLANK "DATA",160.16,9,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,9,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,9,"FIELD",355,2) BLANK "DATA",160.16,9,"FIELD",355,3) L,BLANK "DATA",160.16,9,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,9,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,9,"FIELD",356,2) BLANK "DATA",160.16,9,"FIELD",356,3) L,BLANK "DATA",160.16,9,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,9,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,9,"FIELD",357,2) BLANK "DATA",160.16,9,"FIELD",357,3) L,BLANK "DATA",160.16,9,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,9,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,9,"FIELD",358,2) BLANK "DATA",160.16,9,"FIELD",358,3) L,BLANK "DATA",160.16,9,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,9,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,9,"FIELD",359,2) BLANK "DATA",160.16,9,"FIELD",359,3) L,BLANK "DATA",160.16,9,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,9,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,9,"FIELD",360,2) BLANK "DATA",160.16,9,"FIELD",360,3) L,BLANK "DATA",160.16,9,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,9,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,9,"FIELD",361,2) BLANK "DATA",160.16,9,"FIELD",361,3) L,BLANK "DATA",160.16,9,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,9,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,9,"FIELD",362,2) BLANK "DATA",160.16,9,"FIELD",362,3) L,BLANK "DATA",160.16,9,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,9,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,9,"FIELD",363,2) BLANK "DATA",160.16,9,"FIELD",363,3) L,BLANK "DATA",160.16,9,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,9,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,9,"FIELD",364,2) BLANK "DATA",160.16,9,"FIELD",364,3) L,BLANK "DATA",160.16,9,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,9,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,9,"FIELD",365,2) BLANK "DATA",160.16,9,"FIELD",365,3) L,BLANK "DATA",160.16,9,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,9,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,9,"FIELD",366,2) NINE "DATA",160.16,9,"FIELD",366,3) L,NINE "DATA",160.16,9,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,9,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",367,2) BLANK "DATA",160.16,9,"FIELD",367,3) R,BLANK "DATA",160.16,9,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,9,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,9,"FIELD",368,2) BLANK "DATA",160.16,9,"FIELD",368,3) L,BLANK "DATA",160.16,9,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,9,"FIELD",369,1) S ACDANS="" "DATA",160.16,9,"FIELD",369,2) BLANK "DATA",160.16,9,"FIELD",369,3) L,BLANK "DATA",160.16,9,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,9,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,9,"FIELD",370,2) BLANK "DATA",160.16,9,"FIELD",370,3) L,BLANK "DATA",160.16,9,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,9,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,9,"FIELD",371,2) BLANK "DATA",160.16,9,"FIELD",371,3) L,BLANK "DATA",160.16,9,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,9,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,9,"FIELD",372,2) BLANK "DATA",160.16,9,"FIELD",372,3) L,BLANK "DATA",160.16,9,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,9,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,9,"FIELD",373,2) BLANK "DATA",160.16,9,"FIELD",373,3) L,BLANK "DATA",160.16,9,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,9,"FIELD",374,1) S ACDANS="" "DATA",160.16,9,"FIELD",374,2) BLANK "DATA",160.16,9,"FIELD",374,3) L,BLANK "DATA",160.16,9,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,9,"FIELD",375,1) S ACDANS="" "DATA",160.16,9,"FIELD",375,2) BLANK "DATA",160.16,9,"FIELD",375,3) L,BLANK "DATA",160.16,9,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,9,"FIELD",376,1) S ACDANS="" "DATA",160.16,9,"FIELD",376,2) BLANK "DATA",160.16,9,"FIELD",376,3) L,BLANK "DATA",160.16,9,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,9,"FIELD",377,1) S ACDANS="" "DATA",160.16,9,"FIELD",377,2) BLANK "DATA",160.16,9,"FIELD",377,3) L,BLANK "DATA",160.16,9,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,9,"FIELD",378,1) S ACDANS="" "DATA",160.16,9,"FIELD",378,2) BLANK "DATA",160.16,9,"FIELD",378,3) L,BLANK "DATA",160.16,9,"FIELD",379,0) 942^10^951^CRC CHECKSUM "DATA",160.16,9,"FIELD",379,1) S ACDANS="" "DATA",160.16,9,"FIELD",379,2) BLANK "DATA",160.16,9,"FIELD",379,3) L,BLANK "DATA",160.16,9,"FIELD",380,0) 12^7^18^Reserved for Expansion "DATA",160.16,9,"FIELD",380,1) S ACDANS="" "DATA",160.16,9,"FIELD",380,2) BLANK "DATA",160.16,9,"FIELD",380,3) L,BLANK "DATA",160.16,9,"FIELD",381,0) 204^2^205^Race 2 "DATA",160.16,9,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,9,"FIELD",381,2) BLANK "DATA",160.16,9,"FIELD",381,3) L,ZERO "DATA",160.16,9,"FIELD",382,0) 271^15^285^Reporting Hospital "DATA",160.16,9,"FIELD",382,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,9,"FIELD",382,2) ZERO "DATA",160.16,9,"FIELD",382,3) L,ZERO "DATA",160.16,9,"FIELD",383,0) 286^9^294^Accession Number--Hosp "DATA",160.16,9,"FIELD",383,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,9,"FIELD",383,2) BLANK "DATA",160.16,9,"FIELD",383,3) L,ZERO "DATA",160.16,9,"FIELD",384,0) 206^2^207^Race 3 "DATA",160.16,9,"FIELD",384,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,9,"FIELD",384,2) BLANK "DATA",160.16,9,"FIELD",384,3) L,ZERO "DATA",160.16,9,"FIELD",385,0) 208^2^209^Race 4 "DATA",160.16,9,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,9,"FIELD",385,2) BLANK "DATA",160.16,9,"FIELD",385,3) L,ZERO "DATA",160.16,9,"FIELD",386,0) 210^2^211^Race 5 "DATA",160.16,9,"FIELD",386,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,9,"FIELD",386,2) BLANK "DATA",160.16,9,"FIELD",386,3) L,ZERO "DATA",160.16,9,"FIELD",387,0) 212^5^216^Reserved for Expansion "DATA",160.16,9,"FIELD",387,1) S ACDANS="" "DATA",160.16,9,"FIELD",387,2) BLANK "DATA",160.16,9,"FIELD",387,3) L,BLANK "DATA",160.16,9,"FIELD",388,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,9,"FIELD",388,1) S ACDANS="" "DATA",160.16,9,"FIELD",388,2) ZERO "DATA",160.16,9,"FIELD",388,3) L,ZERO "DATA",160.16,9,"FIELD",390,0) 258^3^260^Reserved for Expansion "DATA",160.16,9,"FIELD",390,1) S ACDANS="" "DATA",160.16,9,"FIELD",390,2) BLANK "DATA",160.16,9,"FIELD",390,3) L,BLANK "DATA",160.16,9,"FIELD",391,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,9,"FIELD",391,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,9,"FIELD",391,2) BLANK "DATA",160.16,9,"FIELD",391,3) L,ZERO "DATA",160.16,9,"FIELD",392,0) 782^1^782^Over-ride SS/NodesPos "DATA",160.16,9,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,9,"FIELD",392,2) BLANK "DATA",160.16,9,"FIELD",392,3) L,BLANK "DATA",160.16,9,"FIELD",393,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,9,"FIELD",393,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,9,"FIELD",393,2) BLANK "DATA",160.16,9,"FIELD",393,3) L,BLANK "DATA",160.16,9,"FIELD",394,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,9,"FIELD",394,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,9,"FIELD",394,2) BLANK "DATA",160.16,9,"FIELD",394,3) L,BLANK "DATA",160.16,9,"FIELD",395,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,9,"FIELD",395,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,9,"FIELD",395,2) BLANK "DATA",160.16,9,"FIELD",395,3) L,BLANK "DATA",160.16,9,"FIELD",396,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,9,"FIELD",396,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,9,"FIELD",396,2) BLANK "DATA",160.16,9,"FIELD",396,3) L,BLANK "DATA",160.16,9,"FIELD",397,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,9,"FIELD",397,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,9,"FIELD",397,2) BLANK "DATA",160.16,9,"FIELD",397,3) L,BLANK "DATA",160.16,9,"FIELD",398,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,9,"FIELD",398,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,9,"FIELD",398,2) BLANK "DATA",160.16,9,"FIELD",398,3) L,BLANK "DATA",160.16,9,"FIELD",399,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,9,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,9,"FIELD",399,2) BLANK "DATA",160.16,9,"FIELD",399,3) L,BLANK "DATA",160.16,9,"FIELD",400,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,9,"FIELD",400,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,9,"FIELD",400,2) BLANK "DATA",160.16,9,"FIELD",400,3) L,BLANK "DATA",160.16,9,"FIELD",401,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,9,"FIELD",401,1) S ACDANS="" "DATA",160.16,9,"FIELD",401,2) BLANK "DATA",160.16,9,"FIELD",401,3) L,BLANK "DATA",160.16,9,"RULES",0) ^160.162^8^8^3020904^^^^ "DATA",160.16,9,"RULES",1,0) S VALID=1 "DATA",160.16,9,"RULES",2,0) S SCREEN="^"_$$GET1^DIQ(165.5,IEN,.04,"I")_"^" "DATA",160.16,9,"RULES",3,0) I "^0^1^2^6^"'[SCREEN S VALID=0 "DATA",160.16,9,"RULES",4,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,9,"RULES",5,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,9,"RULES",6,0) S:VALID VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,9,"RULES",7,0) S JUMP=0 "DATA",160.16,9,"RULES",8,0) K SCREEN "DATA",160.16,10,0) STATE EXTRACT V9.1 "DATA",160.16,10,"FIELD",0) ^160.161I^428^350 "DATA",160.16,10,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,10,"FIELD",1,1) S ACDANS="A" "DATA",160.16,10,"FIELD",1,2) BLANK "DATA",160.16,10,"FIELD",1,3) L,BLANK "DATA",160.16,10,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,10,"FIELD",2,1) S ACDANS="" "DATA",160.16,10,"FIELD",2,2) ZERO "DATA",160.16,10,"FIELD",2,3) L,ZERO "DATA",160.16,10,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,10,"FIELD",3,1) S ACDANS=3 "DATA",160.16,10,"FIELD",3,2) BLANK "DATA",160.16,10,"FIELD",3,3) L,BLANK "DATA",160.16,10,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,10,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,10,"FIELD",4,2) BLANK "DATA",160.16,10,"FIELD",4,3) L,BLANK "DATA",160.16,10,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,10,"FIELD",5,1) S ACDANS=9 "DATA",160.16,10,"FIELD",5,2) BLANK "DATA",160.16,10,"FIELD",5,3) L,BLANK "DATA",160.16,10,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,10,"FIELD",6,1) S ACDANS="" "DATA",160.16,10,"FIELD",6,2) BLANK "DATA",160.16,10,"FIELD",6,3) L,BLANK "DATA",160.16,10,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,10,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,10,"FIELD",7,2) BLANK "DATA",160.16,10,"FIELD",7,3) R,BLANK "DATA",160.16,10,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,10,"FIELD",8,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,10,"FIELD",8,2) BLANK "DATA",160.16,10,"FIELD",8,3) L,BLANK "DATA",160.16,10,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,10,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",9,2) BLANK "DATA",160.16,10,"FIELD",9,3) L,ZERO "DATA",160.16,10,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,10,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,10,"FIELD",10,2) BLANK "DATA",160.16,10,"FIELD",10,3) R,BLANK "DATA",160.16,10,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,10,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,10,"FIELD",11,2) BLANK "DATA",160.16,10,"FIELD",11,3) L,ZERO "DATA",160.16,10,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,10,"FIELD",12,1) S ACDANS="" "DATA",160.16,10,"FIELD",12,2) BLANK "DATA",160.16,10,"FIELD",12,3) L,BLANK "DATA",160.16,10,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,10,"FIELD",13,1) S ACDANS="" "DATA",160.16,10,"FIELD",13,2) BLANK "DATA",160.16,10,"FIELD",13,3) L,BLANK "DATA",160.16,10,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,10,"FIELD",14,1) S ACDANS="" "DATA",160.16,10,"FIELD",14,2) BLANK "DATA",160.16,10,"FIELD",14,3) L,BLANK "DATA",160.16,10,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,10,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,10,"FIELD",15,2) BLANK "DATA",160.16,10,"FIELD",15,3) L,BLANK "DATA",160.16,10,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,10,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,10,"FIELD",16,2) BLANK "DATA",160.16,10,"FIELD",16,3) L,ZERO "DATA",160.16,10,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,10,"FIELD",17,1) S ACDANS=6 "DATA",160.16,10,"FIELD",17,2) BLANK "DATA",160.16,10,"FIELD",17,3) L,BLANK "DATA",160.16,10,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,10,"FIELD",18,1) S ACDANS=6 "DATA",160.16,10,"FIELD",18,2) BLANK "DATA",160.16,10,"FIELD",18,3) L,BLANK "DATA",160.16,10,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,10,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,10,"FIELD",19,2) BLANK "DATA",160.16,10,"FIELD",19,3) L,BLANK "DATA",160.16,10,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,10,"FIELD",20,1) S ACDANS="" "DATA",160.16,10,"FIELD",20,2) BLANK "DATA",160.16,10,"FIELD",20,3) L,BLANK "DATA",160.16,10,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,10,"FIELD",21,1) S ACDANS="" "DATA",160.16,10,"FIELD",21,2) BLANK "DATA",160.16,10,"FIELD",21,3) L,BLANK "DATA",160.16,10,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,10,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,10,"FIELD",22,2) BLANK "DATA",160.16,10,"FIELD",22,3) L,BLANK "DATA",160.16,10,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,10,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",23,2) BLANK "DATA",160.16,10,"FIELD",23,3) L,ZERO "DATA",160.16,10,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,10,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,10,"FIELD",24,2) NINE "DATA",160.16,10,"FIELD",24,3) L,ZERO "DATA",160.16,10,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,10,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,10,"FIELD",25,2) NINE "DATA",160.16,10,"FIELD",25,3) L,ZERO "DATA",160.16,10,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,10,"FIELD",26,1) S ACDANS=99 "DATA",160.16,10,"FIELD",26,2) NINE "DATA",160.16,10,"FIELD",26,3) L,ZERO "DATA",160.16,10,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,10,"FIELD",27,1) S ACDANS="" "DATA",160.16,10,"FIELD",27,2) BLANK "DATA",160.16,10,"FIELD",27,3) L,BLANK "DATA",160.16,10,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,10,"FIELD",28,1) S ACDANS="" "DATA",160.16,10,"FIELD",28,2) BLANK "DATA",160.16,10,"FIELD",28,3) L,BLANK "DATA",160.16,10,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,10,"FIELD",29,1) S ACDANS="" "DATA",160.16,10,"FIELD",29,2) BLANK "DATA",160.16,10,"FIELD",29,3) L,BLANK "DATA",160.16,10,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,10,"FIELD",30,1) S ACDANS="" "DATA",160.16,10,"FIELD",30,2) BLANK "DATA",160.16,10,"FIELD",30,3) L,BLANK "DATA",160.16,10,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,10,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",31,2) BLANK "DATA",160.16,10,"FIELD",31,3) R,BLANK "DATA",160.16,10,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,10,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",32,2) BLANK "DATA",160.16,10,"FIELD",32,3) R,BLANK "DATA",160.16,10,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,10,"FIELD",33,1) S ACDANS="" "DATA",160.16,10,"FIELD",33,2) BLANK "DATA",160.16,10,"FIELD",33,3) L,BLANK "DATA",160.16,10,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,10,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",34,2) BLANK "DATA",160.16,10,"FIELD",34,3) L,BLANK "DATA",160.16,10,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,10,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",35,2) BLANK "DATA",160.16,10,"FIELD",35,3) L,BLANK "DATA",160.16,10,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,10,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,10,"FIELD",36,2) BLANK "DATA",160.16,10,"FIELD",36,3) L,BLANK "DATA",160.16,10,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,10,"FIELD",37,1) S ACDANS="" "DATA",160.16,10,"FIELD",37,2) BLANK "DATA",160.16,10,"FIELD",37,3) L,BLANK "DATA",160.16,10,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,10,"FIELD",38,1) S ACDANS="6"_STAT1 "DATA",160.16,10,"FIELD",38,2) ZERO "DATA",160.16,10,"FIELD",38,3) L,ZERO "DATA",160.16,10,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,10,"FIELD",39,1) S ACDANS="" "DATA",160.16,10,"FIELD",39,2) BLANK "DATA",160.16,10,"FIELD",39,3) L,BLANK "DATA",160.16,10,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,10,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",40,2) ZERO "DATA",160.16,10,"FIELD",40,3) L,ZERO "DATA",160.16,10,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,10,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,10,"FIELD",41,2) ZERO "DATA",160.16,10,"FIELD",41,3) L,ZERO "DATA",160.16,10,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,10,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,10,"FIELD",42,2) BLANK "DATA",160.16,10,"FIELD",42,3) L,BLANK "DATA",160.16,10,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,10,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,10,"FIELD",43,2) BLANK "DATA",160.16,10,"FIELD",43,3) L,ZERO "DATA",160.16,10,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,10,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,10,"FIELD",45,2) ZERO "DATA",160.16,10,"FIELD",45,3) L,ZERO "DATA",160.16,10,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,10,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,10,"FIELD",46,2) ZERO "DATA",160.16,10,"FIELD",46,3) L,ZERO "DATA",160.16,10,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,10,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,10,"FIELD",47,2) ZERO "DATA",160.16,10,"FIELD",47,3) L,ZERO "DATA",160.16,10,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,10,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,10,"FIELD",48,2) ZERO "DATA",160.16,10,"FIELD",48,3) L,ZERO "DATA",160.16,10,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,10,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,10,"FIELD",49,2) ZERO "DATA",160.16,10,"FIELD",49,3) L,ZERO "DATA",160.16,10,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,10,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,10,"FIELD",50,2) NINE "DATA",160.16,10,"FIELD",50,3) L,ZERO "DATA",160.16,10,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,10,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,10,"FIELD",51,2) BLANK "DATA",160.16,10,"FIELD",51,3) L,BLANK "DATA",160.16,10,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,10,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",52,2) BLANK "DATA",160.16,10,"FIELD",52,3) L,BLANK "DATA",160.16,10,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,10,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,10,"FIELD",53,2) BLANK "DATA",160.16,10,"FIELD",53,3) L,BLANK "DATA",160.16,10,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,10,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,10,"FIELD",54,2) BLANK "DATA",160.16,10,"FIELD",54,3) L,ZERO "DATA",160.16,10,"FIELD",56,0) 286^9^294^Accession Number--Hosp "DATA",160.16,10,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,10,"FIELD",56,2) ZERO "DATA",160.16,10,"FIELD",56,3) L,ZERO "DATA",160.16,10,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,10,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,10,"FIELD",57,2) ZERO "DATA",160.16,10,"FIELD",57,3) L,ZERO "DATA",160.16,10,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,10,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,10,"FIELD",58,2) BLANK "DATA",160.16,10,"FIELD",58,3) R,BLANK "DATA",160.16,10,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,10,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",59,2) ZERO "DATA",160.16,10,"FIELD",59,3) L,ZERO "DATA",160.16,10,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,10,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",60,2) ZERO "DATA",160.16,10,"FIELD",60,3) L,ZERO "DATA",160.16,10,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,10,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",61,2) ZERO "DATA",160.16,10,"FIELD",61,3) L,ZERO "DATA",160.16,10,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,10,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,10,"FIELD",62,2) ZERO "DATA",160.16,10,"FIELD",62,3) L,ZERO "DATA",160.16,10,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,10,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,10,"FIELD",63,2) ZERO "DATA",160.16,10,"FIELD",63,3) L,ZERO "DATA",160.16,10,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,10,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",64,2) BLANK "DATA",160.16,10,"FIELD",64,3) L,BLANK "DATA",160.16,10,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,10,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,10,"FIELD",65,2) BLANK "DATA",160.16,10,"FIELD",65,3) L,BLANK "DATA",160.16,10,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,10,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,10,"FIELD",66,2) BLANK "DATA",160.16,10,"FIELD",66,3) L,BLANK "DATA",160.16,10,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,10,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",67,2) BLANK "DATA",160.16,10,"FIELD",67,3) L,BLANK "DATA",160.16,10,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,10,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,10,"FIELD",68,2) NINE "DATA",160.16,10,"FIELD",68,3) L,ZERO "DATA",160.16,10,"FIELD",69,0) 347^4^350^Reserved of Expansion "DATA",160.16,10,"FIELD",69,1) S ACDANS="" "DATA",160.16,10,"FIELD",69,2) BLANK "DATA",160.16,10,"FIELD",69,3) L,BLANK "DATA",160.16,10,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,10,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,10,"FIELD",70,2) BLANK "DATA",160.16,10,"FIELD",70,3) L,ZERO "DATA",160.16,10,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,10,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,10,"FIELD",71,2) BLANK "DATA",160.16,10,"FIELD",71,3) L,ZERO "DATA",160.16,10,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,10,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,10,"FIELD",72,2) BLANK "DATA",160.16,10,"FIELD",72,3) L,ZERO "DATA",160.16,10,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,10,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,10,"FIELD",73,2) BLANK "DATA",160.16,10,"FIELD",73,3) L,ZERO "DATA",160.16,10,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,10,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,10,"FIELD",74,2) BLANK "DATA",160.16,10,"FIELD",74,3) L,ZERO "DATA",160.16,10,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,10,"FIELD",75,2) BLANK "DATA",160.16,10,"FIELD",75,3) L,ZERO "DATA",160.16,10,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,10,"FIELD",76,1) S ACDANS="" "DATA",160.16,10,"FIELD",76,2) BLANK "DATA",160.16,10,"FIELD",76,3) L,BLANK "DATA",160.16,10,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,10,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,10,"FIELD",77,2) BLANK "DATA",160.16,10,"FIELD",77,3) L,BLANK "DATA",160.16,10,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,10,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",78,2) BLANK "DATA",160.16,10,"FIELD",78,3) L,BLANK "DATA",160.16,10,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,10,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,10,"FIELD",79,2) BLANK "DATA",160.16,10,"FIELD",79,3) L,ZERO "DATA",160.16,10,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,10,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,10,"FIELD",80,2) BLANK "DATA",160.16,10,"FIELD",80,3) L,ZERO "DATA",160.16,10,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,10,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,10,"FIELD",81,2) BLANK "DATA",160.16,10,"FIELD",81,3) L,ZERO "DATA",160.16,10,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,10,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,10,"FIELD",82,2) BLANK "DATA",160.16,10,"FIELD",82,3) L,BLANK "DATA",160.16,10,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,10,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,10,"FIELD",83,2) ZERO "DATA",160.16,10,"FIELD",83,3) L,ZERO "DATA",160.16,10,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,10,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,10,"FIELD",84,2) ZERO "DATA",160.16,10,"FIELD",84,3) L,ZERO "DATA",160.16,10,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,10,"FIELD",85,1) S ACDANS="" "DATA",160.16,10,"FIELD",85,2) BLANK "DATA",160.16,10,"FIELD",85,3) L,BLANK "DATA",160.16,10,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,10,"FIELD",86,1) S ACDANS="" "DATA",160.16,10,"FIELD",86,2) BLANK "DATA",160.16,10,"FIELD",86,3) L,BLANK "DATA",160.16,10,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,10,"FIELD",87,1) S ACDANS="" "DATA",160.16,10,"FIELD",87,2) BLANK "DATA",160.16,10,"FIELD",87,3) L,BLANK "DATA",160.16,10,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,10,"FIELD",88,1) S ACDANS=4 "DATA",160.16,10,"FIELD",88,2) BLANK "DATA",160.16,10,"FIELD",88,3) L,BLANK "DATA",160.16,10,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,10,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,10,"FIELD",89,2) BLANK "DATA",160.16,10,"FIELD",89,3) R,BLANK "DATA",160.16,10,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,10,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,10,"FIELD",90,2) BLANK "DATA",160.16,10,"FIELD",90,3) R,BLANK "DATA",160.16,10,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,10,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,10,"FIELD",91,2) BLANK "DATA",160.16,10,"FIELD",91,3) R,BLANK "DATA",160.16,10,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,10,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,10,"FIELD",92,2) BLANK "DATA",160.16,10,"FIELD",92,3) R,BLANK "DATA",160.16,10,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,10,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,10,"FIELD",93,2) ZERO "DATA",160.16,10,"FIELD",93,3) L,ZERO "DATA",160.16,10,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,10,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,10,"FIELD",94,2) BLANK "DATA",160.16,10,"FIELD",94,3) L,BLANK "DATA",160.16,10,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,10,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,10,"FIELD",95,2) BLANK "DATA",160.16,10,"FIELD",95,3) R,BLANK "DATA",160.16,10,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,10,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,10,"FIELD",96,2) BLANK "DATA",160.16,10,"FIELD",96,3) R,BLANK "DATA",160.16,10,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,10,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,10,"FIELD",97,2) BLANK "DATA",160.16,10,"FIELD",97,3) R,BLANK "DATA",160.16,10,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,10,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,10,"FIELD",98,2) BLANK "DATA",160.16,10,"FIELD",98,3) R,BLANK "DATA",160.16,10,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,10,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,10,"FIELD",99,2) ZERO "DATA",160.16,10,"FIELD",99,3) L,ZERO "DATA",160.16,10,"FIELD",100,0) 441^1^441^TNM Clin Staged By "DATA",160.16,10,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,10,"FIELD",100,2) BLANK "DATA",160.16,10,"FIELD",100,3) L,BLANK "DATA",160.16,10,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,10,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,10,"FIELD",101,2) BLANK "DATA",160.16,10,"FIELD",101,3) R,BLANK "DATA",160.16,10,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,10,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,10,"FIELD",102,2) BLANK "DATA",160.16,10,"FIELD",102,3) R,BLANK "DATA",160.16,10,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,10,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,10,"FIELD",103,2) BLANK "DATA",160.16,10,"FIELD",103,3) R,BLANK "DATA",160.16,10,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,10,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,10,"FIELD",104,2) BLANK "DATA",160.16,10,"FIELD",104,3) R,BLANK "DATA",160.16,10,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,10,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,10,"FIELD",105,2) BLANK "DATA",160.16,10,"FIELD",105,3) L,BLANK "DATA",160.16,10,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,10,"FIELD",106,1) S ACDANS="" "DATA",160.16,10,"FIELD",106,2) BLANK "DATA",160.16,10,"FIELD",106,3) L,BLANK "DATA",160.16,10,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,10,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",107,2) BLANK "DATA",160.16,10,"FIELD",107,3) L,BLANK "DATA",160.16,10,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,10,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",108,2) BLANK "DATA",160.16,10,"FIELD",108,3) R,BLANK "DATA",160.16,10,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,10,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",109,2) BLANK "DATA",160.16,10,"FIELD",109,3) L,BLANK "DATA",160.16,10,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,10,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,10,"FIELD",110,2) BLANK "DATA",160.16,10,"FIELD",110,3) L,BLANK "DATA",160.16,10,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,10,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,10,"FIELD",111,2) BLANK "DATA",160.16,10,"FIELD",111,3) L,BLANK "DATA",160.16,10,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,10,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,10,"FIELD",112,2) BLANK "DATA",160.16,10,"FIELD",112,3) L,BLANK "DATA",160.16,10,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,10,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,10,"FIELD",113,2) BLANK "DATA",160.16,10,"FIELD",113,3) L,BLANK "DATA",160.16,10,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,10,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",114,2) BLANK "DATA",160.16,10,"FIELD",114,3) L,BLANK "DATA",160.16,10,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,10,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,10,"FIELD",115,2) BLANK "DATA",160.16,10,"FIELD",115,3) L,BLANK "DATA",160.16,10,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,10,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",116,2) BLANK "DATA",160.16,10,"FIELD",116,3) L,BLANK "DATA",160.16,10,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,10,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",117,2) BLANK "DATA",160.16,10,"FIELD",117,3) L,BLANK "DATA",160.16,10,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,10,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",118,2) BLANK "DATA",160.16,10,"FIELD",118,3) L,BLANK "DATA",160.16,10,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,10,"FIELD",119,1) S ACDANS="" "DATA",160.16,10,"FIELD",119,2) BLANK "DATA",160.16,10,"FIELD",119,3) L,BLANK "DATA",160.16,10,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,10,"FIELD",120,1) S ACDANS="" "DATA",160.16,10,"FIELD",120,2) BLANK "DATA",160.16,10,"FIELD",120,3) L,BLANK "DATA",160.16,10,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,10,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",121,2) NINE "DATA",160.16,10,"FIELD",121,3) L,BLANK "DATA",160.16,10,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,10,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,10,"FIELD",122,2) NINE "DATA",160.16,10,"FIELD",122,3) L,BLANK "DATA",160.16,10,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,10,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,10,"FIELD",123,2) NINE "DATA",160.16,10,"FIELD",123,3) L,BLANK "DATA",160.16,10,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,10,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,10,"FIELD",124,2) NINE "DATA",160.16,10,"FIELD",124,3) L,BLANK "DATA",160.16,10,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,10,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,10,"FIELD",125,2) NINE "DATA",160.16,10,"FIELD",125,3) L,BLANK "DATA",160.16,10,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,10,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,10,"FIELD",126,2) NINE "DATA",160.16,10,"FIELD",126,3) L,BLANK "DATA",160.16,10,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,10,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,10,"FIELD",127,2) ZERO "DATA",160.16,10,"FIELD",127,3) L,ZERO "DATA",160.16,10,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,10,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,10,"FIELD",128,2) ZERO "DATA",160.16,10,"FIELD",128,3) L,ZERO "DATA",160.16,10,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",129,2) ZERO "DATA",160.16,10,"FIELD",129,3) L,ZERO "DATA",160.16,10,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,10,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,10,"FIELD",130,2) ZERO "DATA",160.16,10,"FIELD",130,3) L,ZERO "DATA",160.16,10,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,10,"FIELD",131,1) S ACDANS="" "DATA",160.16,10,"FIELD",131,2) BLANK "DATA",160.16,10,"FIELD",131,3) L,BLANK "DATA",160.16,10,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approach "DATA",160.16,10,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,10,"FIELD",132,2) BLANK "DATA",160.16,10,"FIELD",132,3) L,BLANK "DATA",160.16,10,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,10,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,10,"FIELD",133,2) BLANK "DATA",160.16,10,"FIELD",133,3) L,BLANK "DATA",160.16,10,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,10,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,10,"FIELD",134,2) BLANK "DATA",160.16,10,"FIELD",134,3) L,BLANK "DATA",160.16,10,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,10,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,10,"FIELD",135,2) BLANK "DATA",160.16,10,"FIELD",135,3) L,BLANK "DATA",160.16,10,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,10,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,10,"FIELD",136,2) BLANK "DATA",160.16,10,"FIELD",136,3) L,ZERO "DATA",160.16,10,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,10,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,10,"FIELD",137,2) NINE "DATA",160.16,10,"FIELD",137,3) L,ZERO "DATA",160.16,10,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,10,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,10,"FIELD",138,2) NINE "DATA",160.16,10,"FIELD",138,3) L,ZERO "DATA",160.16,10,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,10,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,10,"FIELD",139,2) NINE "DATA",160.16,10,"FIELD",139,3) L,ZERO "DATA",160.16,10,"FIELD",140,0) 628^1^628^RX Summ--Chemo "DATA",160.16,10,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,10,"FIELD",140,2) NINE "DATA",160.16,10,"FIELD",140,3) L,ZERO "DATA",160.16,10,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,10,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,10,"FIELD",141,2) NINE "DATA",160.16,10,"FIELD",141,3) L,ZERO "DATA",160.16,10,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,10,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,10,"FIELD",142,2) NINE "DATA",160.16,10,"FIELD",142,3) L,ZERO "DATA",160.16,10,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,10,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,10,"FIELD",143,2) NINE "DATA",160.16,10,"FIELD",143,3) L,ZERO "DATA",160.16,10,"FIELD",144,0) 632^1^632^Reason for No Radiation "DATA",160.16,10,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,10,"FIELD",144,2) BLANK "DATA",160.16,10,"FIELD",144,3) L,BLANK "DATA",160.16,10,"FIELD",145,0) 633^1^633^Reason for No Chemo "DATA",160.16,10,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,10,"FIELD",145,2) BLANK "DATA",160.16,10,"FIELD",145,3) L,BLANK "DATA",160.16,10,"FIELD",146,0) 634^1^634^Reason for No Hormone "DATA",160.16,10,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,10,"FIELD",146,2) BLANK "DATA",160.16,10,"FIELD",146,3) L,BLANK "DATA",160.16,10,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,10,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,10,"FIELD",147,2) ZERO "DATA",160.16,10,"FIELD",147,3) L,ZERO "DATA",160.16,10,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,10,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,10,"FIELD",148,2) BLANK "DATA",160.16,10,"FIELD",148,3) L,BLANK "DATA",160.16,10,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,10,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,10,"FIELD",149,2) BLANK "DATA",160.16,10,"FIELD",149,3) L,BLANK "DATA",160.16,10,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,10,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,10,"FIELD",150,2) BLANK "DATA",160.16,10,"FIELD",150,3) L,BLANK "DATA",160.16,10,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,10,"FIELD",151,1) S ACDANS=1 "DATA",160.16,10,"FIELD",151,2) BLANK "DATA",160.16,10,"FIELD",151,3) L,BLANK "DATA",160.16,10,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,10,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,10,"FIELD",152,2) NINE "DATA",160.16,10,"FIELD",152,3) L,ZERO "DATA",160.16,10,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,10,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,10,"FIELD",153,2) NINE "DATA",160.16,10,"FIELD",153,3) L,ZERO "DATA",160.16,10,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,10,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,10,"FIELD",154,2) NINE "DATA",160.16,10,"FIELD",154,3) L,ZERO "DATA",160.16,10,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,10,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",155,2) NINE "DATA",160.16,10,"FIELD",155,3) L,ZERO "DATA",160.16,10,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,10,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,10,"FIELD",156,2) NINE "DATA",160.16,10,"FIELD",156,3) L,ZERO "DATA",160.16,10,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,10,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,10,"FIELD",157,2) NINE "DATA",160.16,10,"FIELD",157,3) L,ZERO "DATA",160.16,10,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,10,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",158,2) NINE "DATA",160.16,10,"FIELD",158,3) L,ZERO "DATA",160.16,10,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,10,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",159,2) NINE "DATA",160.16,10,"FIELD",159,3) L,ZERO "DATA",160.16,10,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,10,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,10,"FIELD",160,2) NINE "DATA",160.16,10,"FIELD",160,3) L,ZERO "DATA",160.16,10,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,10,"FIELD",161,1) S ACDANS="" "DATA",160.16,10,"FIELD",161,2) BLANK "DATA",160.16,10,"FIELD",161,3) L,BLANK "DATA",160.16,10,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,10,"FIELD",162,1) S ACDANS="" "DATA",160.16,10,"FIELD",162,2) BLANK "DATA",160.16,10,"FIELD",162,3) L,BLANK "DATA",160.16,10,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,10,"FIELD",163,1) S ACDANS="" "DATA",160.16,10,"FIELD",163,2) BLANK "DATA",160.16,10,"FIELD",163,3) L,BLANK "DATA",160.16,10,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,10,"FIELD",164,1) S ACDANS="" "DATA",160.16,10,"FIELD",164,2) BLANK "DATA",160.16,10,"FIELD",164,3) L,BLANK "DATA",160.16,10,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,10,"FIELD",165,1) S ACDANS="" "DATA",160.16,10,"FIELD",165,2) BLANK "DATA",160.16,10,"FIELD",165,3) L,BLANK "DATA",160.16,10,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,10,"FIELD",166,1) S ACDANS="" "DATA",160.16,10,"FIELD",166,2) BLANK "DATA",160.16,10,"FIELD",166,3) L,BLANK "DATA",160.16,10,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,10,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",167,2) 00000000 "DATA",160.16,10,"FIELD",167,3) L,BLANK "DATA",160.16,10,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,10,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,10,"FIELD",168,2) BLANK "DATA",160.16,10,"FIELD",168,3) L,ZERO "DATA",160.16,10,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,10,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,10,"FIELD",169,2) BLANK "DATA",160.16,10,"FIELD",169,3) L,BLANK "DATA",160.16,10,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,10,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,10,"FIELD",170,2) BLANK "DATA",160.16,10,"FIELD",170,3) L,BLANK "DATA",160.16,10,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,10,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,10,"FIELD",171,2) BLANK "DATA",160.16,10,"FIELD",171,3) L,BLANK "DATA",160.16,10,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,10,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,10,"FIELD",172,2) BLANK "DATA",160.16,10,"FIELD",172,3) L,BLANK "DATA",160.16,10,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,10,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,10,"FIELD",173,2) BLANK "DATA",160.16,10,"FIELD",173,3) L,BLANK "DATA",160.16,10,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,10,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",174,2) 00000000 "DATA",160.16,10,"FIELD",174,3) L,BLANK "DATA",160.16,10,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,10,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,10,"FIELD",175,2) BLANK "DATA",160.16,10,"FIELD",175,3) L,ZERO "DATA",160.16,10,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,10,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,10,"FIELD",176,2) BLANK "DATA",160.16,10,"FIELD",176,3) L,BLANK "DATA",160.16,10,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,10,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,10,"FIELD",177,2) BLANK "DATA",160.16,10,"FIELD",177,3) L,BLANK "DATA",160.16,10,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,10,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,10,"FIELD",178,2) BLANK "DATA",160.16,10,"FIELD",178,3) L,BLANK "DATA",160.16,10,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,10,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,10,"FIELD",179,2) BLANK "DATA",160.16,10,"FIELD",179,3) L,BLANK "DATA",160.16,10,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,10,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,10,"FIELD",180,2) BLANK "DATA",160.16,10,"FIELD",180,3) L,BLANK "DATA",160.16,10,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,10,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",181,2) 00000000 "DATA",160.16,10,"FIELD",181,3) L,BLANK "DATA",160.16,10,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,10,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,10,"FIELD",182,2) BLANK "DATA",160.16,10,"FIELD",182,3) L,ZERO "DATA",160.16,10,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,10,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,10,"FIELD",183,2) BLANK "DATA",160.16,10,"FIELD",183,3) L,BLANK "DATA",160.16,10,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,10,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,10,"FIELD",184,2) BLANK "DATA",160.16,10,"FIELD",184,3) L,BLANK "DATA",160.16,10,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,10,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,10,"FIELD",185,2) BLANK "DATA",160.16,10,"FIELD",185,3) L,BLANK "DATA",160.16,10,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,10,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,10,"FIELD",186,2) BLANK "DATA",160.16,10,"FIELD",186,3) L,BLANK "DATA",160.16,10,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,10,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,10,"FIELD",187,2) BLANK "DATA",160.16,10,"FIELD",187,3) L,BLANK "DATA",160.16,10,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,10,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",188,2) 00000000 "DATA",160.16,10,"FIELD",188,3) L,BLANK "DATA",160.16,10,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,10,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,10,"FIELD",189,2) BLANK "DATA",160.16,10,"FIELD",189,3) L,ZERO "DATA",160.16,10,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,10,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,10,"FIELD",190,2) BLANK "DATA",160.16,10,"FIELD",190,3) L,BLANK "DATA",160.16,10,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,10,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,10,"FIELD",191,2) BLANK "DATA",160.16,10,"FIELD",191,3) L,BLANK "DATA",160.16,10,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,10,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,10,"FIELD",192,2) BLANK "DATA",160.16,10,"FIELD",192,3) L,BLANK "DATA",160.16,10,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,10,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,10,"FIELD",193,2) BLANK "DATA",160.16,10,"FIELD",193,3) L,BLANK "DATA",160.16,10,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,10,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,10,"FIELD",194,2) BLANK "DATA",160.16,10,"FIELD",194,3) L,BLANK "DATA",160.16,10,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,10,"FIELD",195,1) S ACDANS="" "DATA",160.16,10,"FIELD",195,2) BLANK "DATA",160.16,10,"FIELD",195,3) L,BLANK "DATA",160.16,10,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,10,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",196,2) NINE "DATA",160.16,10,"FIELD",196,3) L,BLANK "DATA",160.16,10,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,10,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,10,"FIELD",197,2) BLANK "DATA",160.16,10,"FIELD",197,3) L,BLANK "DATA",160.16,10,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,10,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",198,2) NINE "DATA",160.16,10,"FIELD",198,3) L,BLANK "DATA",160.16,10,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,10,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,10,"FIELD",199,2) BLANK "DATA",160.16,10,"FIELD",199,3) L,BLANK "DATA",160.16,10,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,10,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,10,"FIELD",200,2) BLANK "DATA",160.16,10,"FIELD",200,3) L,BLANK "DATA",160.16,10,"FIELD",201,0) 803^1^803^Next Follow-Up Source "DATA",160.16,10,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,10,"FIELD",201,2) BLANK "DATA",160.16,10,"FIELD",201,3) L,BLANK "DATA",160.16,10,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,10,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",202,2) BLANK "DATA",160.16,10,"FIELD",202,3) R,BLANK "DATA",160.16,10,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,10,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",203,2) BLANK "DATA",160.16,10,"FIELD",203,3) R,BLANK "DATA",160.16,10,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,10,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",204,2) BLANK "DATA",160.16,10,"FIELD",204,3) R,BLANK "DATA",160.16,10,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,10,"FIELD",205,1) S ACDANS="" "DATA",160.16,10,"FIELD",205,2) BLANK "DATA",160.16,10,"FIELD",205,3) L,BLANK "DATA",160.16,10,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,10,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,10,"FIELD",206,2) BLANK "DATA",160.16,10,"FIELD",206,3) L,BLANK "DATA",160.16,10,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,10,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,10,"FIELD",207,2) NINE "DATA",160.16,10,"FIELD",207,3) L,NINE "DATA",160.16,10,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,10,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,10,"FIELD",208,2) BLANK "DATA",160.16,10,"FIELD",208,3) L,BLANK "DATA",160.16,10,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,10,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",209,2) NINE "DATA",160.16,10,"FIELD",209,3) L,ZERO "DATA",160.16,10,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,10,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,10,"FIELD",210,2) NINE "DATA",160.16,10,"FIELD",210,3) L,ZERO "DATA",160.16,10,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,10,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",211,2) BLANK "DATA",160.16,10,"FIELD",211,3) L,BLANK "DATA",160.16,10,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,10,"FIELD",212,1) S ACDANS="" "DATA",160.16,10,"FIELD",212,2) BLANK "DATA",160.16,10,"FIELD",212,3) L,BLANK "DATA",160.16,10,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,10,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) S:ACDANS="" ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,10,"FIELD",213,2) BLANK "DATA",160.16,10,"FIELD",213,3) L,ZERO "DATA",160.16,10,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,10,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,10,"FIELD",214,2) BLANK "DATA",160.16,10,"FIELD",214,3) L,ZERO "DATA",160.16,10,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,10,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,10,"FIELD",215,2) BLANK "DATA",160.16,10,"FIELD",215,3) L,BLANK "DATA",160.16,10,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,10,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,10,"FIELD",216,2) BLANK "DATA",160.16,10,"FIELD",216,3) L,BLANK "DATA",160.16,10,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,10,"FIELD",217,1) S ACDANS="" "DATA",160.16,10,"FIELD",217,2) BLANK "DATA",160.16,10,"FIELD",217,3) L,BLANK "DATA",160.16,10,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,10,"FIELD",218,1) S ACDANS="" "DATA",160.16,10,"FIELD",218,2) BLANK "DATA",160.16,10,"FIELD",218,3) L,BLANK "DATA",160.16,10,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,10,"FIELD",219,1) S ACDANS="" "DATA",160.16,10,"FIELD",219,2) BLANK "DATA",160.16,10,"FIELD",219,3) L,BLANK "DATA",160.16,10,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,10,"FIELD",220,1) S ACDANS=4 "DATA",160.16,10,"FIELD",220,2) BLANK "DATA",160.16,10,"FIELD",220,3) L,BLANK "DATA",160.16,10,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,10,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,10,"FIELD",221,2) BLANK "DATA",160.16,10,"FIELD",221,3) L,BLANK "DATA",160.16,10,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,10,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,10,"FIELD",222,2) BLANK "DATA",160.16,10,"FIELD",222,3) L,BLANK "DATA",160.16,10,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,10,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,10,"FIELD",223,2) BLANK "DATA",160.16,10,"FIELD",223,3) L,BLANK "DATA",160.16,10,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,10,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,10,"FIELD",224,2) BLANK "DATA",160.16,10,"FIELD",224,3) L,BLANK "DATA",160.16,10,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,10,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,10,"FIELD",225,2) BLANK "DATA",160.16,10,"FIELD",225,3) L,BLANK "DATA",160.16,10,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,10,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,10,"FIELD",226,2) BLANK "DATA",160.16,10,"FIELD",226,3) L,BLANK "DATA",160.16,10,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,10,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,10,"FIELD",227,2) BLANK "DATA",160.16,10,"FIELD",227,3) L,BLANK "DATA",160.16,10,"FIELD",228,0) 920^1^920^Over-ride Ill-Define Site "DATA",160.16,10,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,10,"FIELD",228,2) BLANK "DATA",160.16,10,"FIELD",228,3) L,BLANK "DATA",160.16,10,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,10,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,10,"FIELD",229,2) BLANK "DATA",160.16,10,"FIELD",229,3) L,BLANK "DATA",160.16,10,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,10,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,10,"FIELD",231,2) BLANK "DATA",160.16,10,"FIELD",231,3) L,BLANK "DATA",160.16,10,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,10,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,10,"FIELD",232,2) BLANK "DATA",160.16,10,"FIELD",232,3) L,BLANK "DATA",160.16,10,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,10,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,10,"FIELD",233,2) BLANK "DATA",160.16,10,"FIELD",233,3) L,ZERO "DATA",160.16,10,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,10,"FIELD",234,1) S ACDANS=5 "DATA",160.16,10,"FIELD",234,2) BLANK "DATA",160.16,10,"FIELD",234,3) L,BLANK "DATA",160.16,10,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,10,"FIELD",235,1) S ACDANS=5 "DATA",160.16,10,"FIELD",235,2) BLANK "DATA",160.16,10,"FIELD",235,3) L,BLANK "DATA",160.16,10,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,10,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",236,2) BLANK "DATA",160.16,10,"FIELD",236,3) L,BLANK "DATA",160.16,10,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,10,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,10,"FIELD",237,2) BLANK "DATA",160.16,10,"FIELD",237,3) L,BLANK "DATA",160.16,10,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,10,"FIELD",238,1) S ACDANS="" "DATA",160.16,10,"FIELD",238,2) BLANK "DATA",160.16,10,"FIELD",238,3) L,BLANK "DATA",160.16,10,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,10,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,10,"FIELD",239,2) BLANK "DATA",160.16,10,"FIELD",239,3) R,BLANK "DATA",160.16,10,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,10,"FIELD",240,1) S ACDANS="" "DATA",160.16,10,"FIELD",240,2) BLANK "DATA",160.16,10,"FIELD",240,3) L,BLANK "DATA",160.16,10,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,10,"FIELD",241,1) S ACDANS="" "DATA",160.16,10,"FIELD",241,2) BLANK "DATA",160.16,10,"FIELD",241,3) L,BLANK "DATA",160.16,10,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,10,"FIELD",242,1) S ACDANS="" "DATA",160.16,10,"FIELD",242,2) BLANK "DATA",160.16,10,"FIELD",242,3) L,BLANK "DATA",160.16,10,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,10,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,10,"FIELD",243,2) BLANK "DATA",160.16,10,"FIELD",243,3) L,BLANK "DATA",160.16,10,"FIELD",284,0) 1785^25^1809^Follow-Up Contact--No&St "DATA",160.16,10,"FIELD",284,1) S ACDANS="" "DATA",160.16,10,"FIELD",284,2) BLANK "DATA",160.16,10,"FIELD",284,3) L,BLANK "DATA",160.16,10,"FIELD",285,0) 942^10^951^CRC CHECKSUM "DATA",160.16,10,"FIELD",285,1) S ACDANS="" "DATA",160.16,10,"FIELD",285,2) BLANK "DATA",160.16,10,"FIELD",285,3) L,BLANK "DATA",160.16,10,"FIELD",286,0) 12^7^18^Reserved for Expansion "DATA",160.16,10,"FIELD",286,1) S ACDANS="" "DATA",160.16,10,"FIELD",286,2) BLANK "DATA",160.16,10,"FIELD",286,3) L,BLANK "DATA",160.16,10,"FIELD",287,0) 204^2^205^Race 2 "DATA",160.16,10,"FIELD",287,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,10,"FIELD",287,2) BLANK "DATA",160.16,10,"FIELD",287,3) L,ZERO "DATA",160.16,10,"FIELD",288,0) 271^15^285^Reporting Hospital "DATA",160.16,10,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",288,2) ZERO "DATA",160.16,10,"FIELD",288,3) L,ZERO "DATA",160.16,10,"FIELD",289,0) 1712^15^1726^Institution Referred To "DATA",160.16,10,"FIELD",289,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:"6"_ACDANS) "DATA",160.16,10,"FIELD",289,2) ZERO "DATA",160.16,10,"FIELD",289,3) L,ZERO "DATA",160.16,10,"FIELD",290,0) 1828^15^1842^Following Registry "DATA",160.16,10,"FIELD",290,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",290,2) ZERO "DATA",160.16,10,"FIELD",290,3) L,ZERO "DATA",160.16,10,"FIELD",291,0) 1843^4^1846^Reserved for Expansion "DATA",160.16,10,"FIELD",291,1) S ACDANS="" "DATA",160.16,10,"FIELD",291,2) BLANK "DATA",160.16,10,"FIELD",291,3) L,BLANK "DATA",160.16,10,"FIELD",292,0) 206^2^207^Race 3 "DATA",160.16,10,"FIELD",292,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,10,"FIELD",292,2) BLANK "DATA",160.16,10,"FIELD",292,3) L,ZERO "DATA",160.16,10,"FIELD",293,0) 208^2^209^Race 4 "DATA",160.16,10,"FIELD",293,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,10,"FIELD",293,2) BLANK "DATA",160.16,10,"FIELD",293,3) L,ZERO "DATA",160.16,10,"FIELD",294,0) 210^2^211^Race 5 "DATA",160.16,10,"FIELD",294,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,10,"FIELD",294,2) BLANK "DATA",160.16,10,"FIELD",294,3) L,ZERO "DATA",160.16,10,"FIELD",295,0) 212^5^216^Reserved for Expansion "DATA",160.16,10,"FIELD",295,1) S ACDANS="" "DATA",160.16,10,"FIELD",295,2) BLANK "DATA",160.16,10,"FIELD",295,3) L,BLANK "DATA",160.16,10,"FIELD",296,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,10,"FIELD",296,1) S ACDANS="" "DATA",160.16,10,"FIELD",296,2) ZERO "DATA",160.16,10,"FIELD",296,3) L,ZERO "DATA",160.16,10,"FIELD",298,0) 258^3^260^Reserved for Expansion "DATA",160.16,10,"FIELD",298,1) S ACDANS="" "DATA",160.16,10,"FIELD",298,2) BLANK "DATA",160.16,10,"FIELD",298,3) L,BLANK "DATA",160.16,10,"FIELD",299,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,10,"FIELD",299,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,10,"FIELD",299,2) BLANK "DATA",160.16,10,"FIELD",299,3) L,ZERO "DATA",160.16,10,"FIELD",300,0) 782^1^782^Over-ride SS/NodesPos "DATA",160.16,10,"FIELD",300,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,10,"FIELD",300,2) BLANK "DATA",160.16,10,"FIELD",300,3) L,BLANK "DATA",160.16,10,"FIELD",301,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,10,"FIELD",301,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,10,"FIELD",301,2) BLANK "DATA",160.16,10,"FIELD",301,3) L,BLANK "DATA",160.16,10,"FIELD",302,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,10,"FIELD",302,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,10,"FIELD",302,2) BLANK "DATA",160.16,10,"FIELD",302,3) L,BLANK "DATA",160.16,10,"FIELD",303,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,10,"FIELD",303,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,10,"FIELD",303,2) BLANK "DATA",160.16,10,"FIELD",303,3) L,BLANK "DATA",160.16,10,"FIELD",304,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,10,"FIELD",304,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,10,"FIELD",304,2) BLANK "DATA",160.16,10,"FIELD",304,3) L,BLANK "DATA",160.16,10,"FIELD",305,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,10,"FIELD",305,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,10,"FIELD",305,2) BLANK "DATA",160.16,10,"FIELD",305,3) L,BLANK "DATA",160.16,10,"FIELD",306,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,10,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,10,"FIELD",306,2) BLANK "DATA",160.16,10,"FIELD",306,3) L,BLANK "DATA",160.16,10,"FIELD",307,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,10,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,10,"FIELD",307,2) BLANK "DATA",160.16,10,"FIELD",307,3) L,BLANK "DATA",160.16,10,"FIELD",308,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,10,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,10,"FIELD",308,2) BLANK "DATA",160.16,10,"FIELD",308,3) L,BLANK "DATA",160.16,10,"FIELD",309,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,10,"FIELD",309,1) S ACDANS="" "DATA",160.16,10,"FIELD",309,2) BLANK "DATA",160.16,10,"FIELD",309,3) L,BLANK "DATA",160.16,10,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,10,"FIELD",339,1) S ACDANS="" "DATA",160.16,10,"FIELD",339,2) BLANK "DATA",160.16,10,"FIELD",339,3) L,BLANK "DATA",160.16,10,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,10,"FIELD",340,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,10,"FIELD",340,2) BLANK "DATA",160.16,10,"FIELD",340,3) L,ZERO "DATA",160.16,10,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,10,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,10,"FIELD",341,2) BLANK "DATA",160.16,10,"FIELD",341,3) L,BLANK "DATA",160.16,10,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,10,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,10,"FIELD",342,2) BLANK "DATA",160.16,10,"FIELD",342,3) L,ZERO "DATA",160.16,10,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,10,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,10,"FIELD",343,2) BLANK "DATA",160.16,10,"FIELD",343,3) L,BLANK "DATA",160.16,10,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,10,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,10,"FIELD",344,2) BLANK "DATA",160.16,10,"FIELD",344,3) L,BLANK "DATA",160.16,10,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,10,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,10,"FIELD",345,2) BLANK "DATA",160.16,10,"FIELD",345,3) L,BLANK "DATA",160.16,10,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,10,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,10,"FIELD",346,2) BLANK "DATA",160.16,10,"FIELD",346,3) L,BLANK "DATA",160.16,10,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,10,"FIELD",347,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,10,"FIELD",347,2) NINE "DATA",160.16,10,"FIELD",347,3) L,ZERO "DATA",160.16,10,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,10,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,10,"FIELD",348,2) NINE "DATA",160.16,10,"FIELD",348,3) L,NINE "DATA",160.16,10,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,10,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,10,"FIELD",349,2) NINE "DATA",160.16,10,"FIELD",349,3) L,ZERO "DATA",160.16,10,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,10,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,10,"FIELD",350,2) BLANK "DATA",160.16,10,"FIELD",350,3) L,BLANK "DATA",160.16,10,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,10,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,10,"FIELD",351,2) BLANK "DATA",160.16,10,"FIELD",351,3) L,BLANK "DATA",160.16,10,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,10,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,10,"FIELD",352,2) BLANK "DATA",160.16,10,"FIELD",352,3) L,BLANK "DATA",160.16,10,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,10,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,10,"FIELD",353,2) BLANK "DATA",160.16,10,"FIELD",353,3) L,BLANK "DATA",160.16,10,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope Ln Su "DATA",160.16,10,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,10,"FIELD",354,2) BLANK "DATA",160.16,10,"FIELD",354,3) L,BLANK "DATA",160.16,10,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,10,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,10,"FIELD",355,2) BLANK "DATA",160.16,10,"FIELD",355,3) L,BLANK "DATA",160.16,10,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,10,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,10,"FIELD",356,2) BLANK "DATA",160.16,10,"FIELD",356,3) L,BLANK "DATA",160.16,10,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,10,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,10,"FIELD",357,2) BLANK "DATA",160.16,10,"FIELD",357,3) L,BLANK "DATA",160.16,10,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,10,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,10,"FIELD",358,2) BLANK "DATA",160.16,10,"FIELD",358,3) L,BLANK "DATA",160.16,10,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,10,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,10,"FIELD",359,2) BLANK "DATA",160.16,10,"FIELD",359,3) L,BLANK "DATA",160.16,10,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,10,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,10,"FIELD",360,2) BLANK "DATA",160.16,10,"FIELD",360,3) L,BLANK "DATA",160.16,10,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,10,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,10,"FIELD",361,2) BLANK "DATA",160.16,10,"FIELD",361,3) L,BLANK "DATA",160.16,10,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,10,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,10,"FIELD",362,2) BLANK "DATA",160.16,10,"FIELD",362,3) L,BLANK "DATA",160.16,10,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,10,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,10,"FIELD",363,2) BLANK "DATA",160.16,10,"FIELD",363,3) L,BLANK "DATA",160.16,10,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,10,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,10,"FIELD",364,2) BLANK "DATA",160.16,10,"FIELD",364,3) L,BLANK "DATA",160.16,10,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,10,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,10,"FIELD",365,2) BLANK "DATA",160.16,10,"FIELD",365,3) L,BLANK "DATA",160.16,10,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,10,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,10,"FIELD",366,2) NINE "DATA",160.16,10,"FIELD",366,3) L,NINE "DATA",160.16,10,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,10,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",367,2) BLANK "DATA",160.16,10,"FIELD",367,3) R,BLANK "DATA",160.16,10,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,10,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,10,"FIELD",368,2) BLANK "DATA",160.16,10,"FIELD",368,3) L,BLANK "DATA",160.16,10,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,10,"FIELD",369,1) S ACDANS="" "DATA",160.16,10,"FIELD",369,2) BLANK "DATA",160.16,10,"FIELD",369,3) L,BLANK "DATA",160.16,10,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,10,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,10,"FIELD",370,2) BLANK "DATA",160.16,10,"FIELD",370,3) L,BLANK "DATA",160.16,10,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,10,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,10,"FIELD",371,2) BLANK "DATA",160.16,10,"FIELD",371,3) L,BLANK "DATA",160.16,10,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,10,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,10,"FIELD",372,2) BLANK "DATA",160.16,10,"FIELD",372,3) L,BLANK "DATA",160.16,10,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,10,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,10,"FIELD",373,2) BLANK "DATA",160.16,10,"FIELD",373,3) L,BLANK "DATA",160.16,10,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,10,"FIELD",374,1) S ACDANS="" "DATA",160.16,10,"FIELD",374,2) BLANK "DATA",160.16,10,"FIELD",374,3) L,BLANK "DATA",160.16,10,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,10,"FIELD",375,1) S ACDANS="" "DATA",160.16,10,"FIELD",375,2) BLANK "DATA",160.16,10,"FIELD",375,3) L,BLANK "DATA",160.16,10,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,10,"FIELD",376,1) S ACDANS="" "DATA",160.16,10,"FIELD",376,2) BLANK "DATA",160.16,10,"FIELD",376,3) L,BLANK "DATA",160.16,10,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,10,"FIELD",377,1) S ACDANS="" "DATA",160.16,10,"FIELD",377,2) BLANK "DATA",160.16,10,"FIELD",377,3) L,BLANK "DATA",160.16,10,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,10,"FIELD",378,1) S ACDANS="" "DATA",160.16,10,"FIELD",378,2) BLANK "DATA",160.16,10,"FIELD",378,3) L,BLANK "DATA",160.16,10,"FIELD",379,0) 1026^500^1525^State/Requestor Items "DATA",160.16,10,"FIELD",379,1) S ACDANS="" "DATA",160.16,10,"FIELD",379,2) BLANK "DATA",160.16,10,"FIELD",379,3) L,BLANK "DATA",160.16,10,"FIELD",381,0) 1526^25^1550^Name--Last "DATA",160.16,10,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,10,"FIELD",381,2) BLANK "DATA",160.16,10,"FIELD",381,3) R,BLANK "DATA",160.16,10,"FIELD",382,0) 1551^14^1564^Name--First "DATA",160.16,10,"FIELD",382,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,10,"FIELD",382,2) BLANK "DATA",160.16,10,"FIELD",382,3) R,BLANK "DATA",160.16,10,"FIELD",383,0) 1565^14^1578^Name--Middle "DATA",160.16,10,"FIELD",383,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,10,"FIELD",383,2) BLANK "DATA",160.16,10,"FIELD",383,3) R,BLANK "DATA",160.16,10,"FIELD",384,0) 1579^3^1581^Name--Prefix "DATA",160.16,10,"FIELD",384,1) S ACDANS="" "DATA",160.16,10,"FIELD",384,2) BLANK "DATA",160.16,10,"FIELD",384,3) R,BLANK "DATA",160.16,10,"FIELD",385,0) 1582^3^1584^Name--Suffix "DATA",160.16,10,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,10,"FIELD",385,2) BLANK "DATA",160.16,10,"FIELD",385,3) R,BLANK "DATA",160.16,10,"FIELD",386,0) 1585^15^1599^Name--Alias "DATA",160.16,10,"FIELD",386,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,10,"FIELD",386,2) BLANK "DATA",160.16,10,"FIELD",386,3) R,BLANK "DATA",160.16,10,"FIELD",387,0) 1600^50^1649^Name--Spouse/Parent "DATA",160.16,10,"FIELD",387,1) S ACDANS="" "DATA",160.16,10,"FIELD",387,2) BLANK "DATA",160.16,10,"FIELD",387,3) R,BLANK "DATA",160.16,10,"FIELD",388,0) 1650^11^1660^Medical Record Number "DATA",160.16,10,"FIELD",388,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5,6)_$E(ACDANS,8,11) "DATA",160.16,10,"FIELD",388,2) BLANK "DATA",160.16,10,"FIELD",388,3) L,BLANK "DATA",160.16,10,"FIELD",389,0) 1661^2^1662^Military Record No Suffix "DATA",160.16,10,"FIELD",389,1) S ACDANS="" "DATA",160.16,10,"FIELD",389,2) BLANK "DATA",160.16,10,"FIELD",389,3) L,ZERO "DATA",160.16,10,"FIELD",390,0) 1663^9^1671^Social Security Number "DATA",160.16,10,"FIELD",390,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,10,"FIELD",390,2) NINE "DATA",160.16,10,"FIELD",390,3) L,BLANK "DATA",160.16,10,"FIELD",391,0) 1672^25^1696^Addr at DX--No & Street "DATA",160.16,10,"FIELD",391,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,10,"FIELD",391,2) BLANK "DATA",160.16,10,"FIELD",391,3) R,BLANK "DATA",160.16,10,"FIELD",392,0) 1697^15^1711^Institution Referred From "DATA",160.16,10,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:"6"_ACDANS) "DATA",160.16,10,"FIELD",392,2) ZERO "DATA",160.16,10,"FIELD",392,3) L,ZERO "DATA",160.16,10,"FIELD",393,0) 1727^25^1751^Addr Current--No & Street "DATA",160.16,10,"FIELD",393,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,10,"FIELD",393,2) BLANK "DATA",160.16,10,"FIELD",393,3) R,BLANK "DATA",160.16,10,"FIELD",394,0) 1752^10^1761^Telephone "DATA",160.16,10,"FIELD",394,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,10,"FIELD",394,2) ZERO "DATA",160.16,10,"FIELD",394,3) R,BLANK "DATA",160.16,10,"FIELD",395,0) 1762^2^1763^Reserved for Expansion "DATA",160.16,10,"FIELD",395,1) S ACDANS="" "DATA",160.16,10,"FIELD",395,2) BLANK "DATA",160.16,10,"FIELD",395,3) L,BLANK "DATA",160.16,10,"FIELD",396,0) 1764^6^1769^DC State File Number "DATA",160.16,10,"FIELD",396,1) S ACDANS="" "DATA",160.16,10,"FIELD",396,2) BLANK "DATA",160.16,10,"FIELD",396,3) L,BLANK "DATA",160.16,10,"FIELD",397,0) 1770^15^1784^Name--Maiden "DATA",160.16,10,"FIELD",397,1) S ACDANS="" "DATA",160.16,10,"FIELD",397,2) BLANK "DATA",160.16,10,"FIELD",397,3) R,BLANK "DATA",160.16,10,"FIELD",398,0) 1810^3^1812^Reserved for Expansion "DATA",160.16,10,"FIELD",398,1) S ACDANS="" "DATA",160.16,10,"FIELD",398,2) BLANK "DATA",160.16,10,"FIELD",398,3) L,BLANK "DATA",160.16,10,"FIELD",399,0) 1813^15^1827^Last Follow-Up Hospital "DATA",160.16,10,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,10,"FIELD",399,2) ZERO "DATA",160.16,10,"FIELD",399,3) L,ZERO "DATA",160.16,10,"FIELD",404,0) 1847^8^1854^Physician--Managing "DATA",160.16,10,"FIELD",404,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,10,"FIELD",404,2) NINE "DATA",160.16,10,"FIELD",404,3) R,BLANK "DATA",160.16,10,"FIELD",405,0) 1855^8^1862^Physician--Follow-up "DATA",160.16,10,"FIELD",405,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,10,"FIELD",405,2) NINE "DATA",160.16,10,"FIELD",405,3) R,BLANK "DATA",160.16,10,"FIELD",406,0) 1863^8^1870^Physician--Primary Surg "DATA",160.16,10,"FIELD",406,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,10,"FIELD",406,2) ZERO "DATA",160.16,10,"FIELD",406,3) R,BLANK "DATA",160.16,10,"FIELD",407,0) 1871^8^1878^Physician 3 "DATA",160.16,10,"FIELD",407,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,10,"FIELD",407,2) ZERO "DATA",160.16,10,"FIELD",407,3) R,BLANK "DATA",160.16,10,"FIELD",408,0) 1879^8^1886^Physician 4 "DATA",160.16,10,"FIELD",408,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,10,"FIELD",408,2) ZERO "DATA",160.16,10,"FIELD",408,3) R,BLANK "DATA",160.16,10,"FIELD",409,0) 1887^30^1916^Follow-Up Contact--Name "DATA",160.16,10,"FIELD",409,1) S ACDANS="" "DATA",160.16,10,"FIELD",409,2) BLANK "DATA",160.16,10,"FIELD",409,3) L,BLANK "DATA",160.16,10,"FIELD",410,0) 1917^200^2116^Text--Dx Proc--PE "DATA",160.16,10,"FIELD",410,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,10,"FIELD",410,2) BLANK "DATA",160.16,10,"FIELD",410,3) R,BLANK "DATA",160.16,10,"FIELD",411,0) 2117^250^2366^Text--Dx Proc--X-ray/scan "DATA",160.16,10,"FIELD",411,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,10,"FIELD",411,2) BLANK "DATA",160.16,10,"FIELD",411,3) R,BLANK "DATA",160.16,10,"FIELD",412,0) 2367^250^2616^Text--Dx Proc--Scopes "DATA",160.16,10,"FIELD",412,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,10,"FIELD",412,2) BLANK "DATA",160.16,10,"FIELD",412,3) R,BLANK "DATA",160.16,10,"FIELD",413,0) 2617^250^2866^Text--Dx Proc--Lab Tests "DATA",160.16,10,"FIELD",413,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,10,"FIELD",413,2) BLANK "DATA",160.16,10,"FIELD",413,3) R,BLANK "DATA",160.16,10,"FIELD",414,0) 2867^250^3116^Text--Dx Proc--Op "DATA",160.16,10,"FIELD",414,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,10,"FIELD",414,2) BLANK "DATA",160.16,10,"FIELD",414,3) R,BLANK "DATA",160.16,10,"FIELD",415,0) 3117^250^3366^Text--Dx Proc--Path "DATA",160.16,10,"FIELD",415,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,10,"FIELD",415,2) BLANK "DATA",160.16,10,"FIELD",415,3) R,BLANK "DATA",160.16,10,"FIELD",416,0) 3367^40^3406^Text--Primary Site Title "DATA",160.16,10,"FIELD",416,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,10,"FIELD",416,2) BLANK "DATA",160.16,10,"FIELD",416,3) R,BLANK "DATA",160.16,10,"FIELD",417,0) 3407^40^3446^Text--Histology Title "DATA",160.16,10,"FIELD",417,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,10,"FIELD",417,2) BLANK "DATA",160.16,10,"FIELD",417,3) R,BLANK "DATA",160.16,10,"FIELD",418,0) 3447^300^3746^Text--Staging "DATA",160.16,10,"FIELD",418,1) S ACDANS="" "DATA",160.16,10,"FIELD",418,2) BLANK "DATA",160.16,10,"FIELD",418,3) R,BLANK "DATA",160.16,10,"FIELD",419,0) 3747^150^3896^RX Text--Surgery "DATA",160.16,10,"FIELD",419,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,10,"FIELD",419,2) BLANK "DATA",160.16,10,"FIELD",419,3) R,BLANK "DATA",160.16,10,"FIELD",420,0) 3897^150^4046^RX Text--Radiation (Beam) "DATA",160.16,10,"FIELD",420,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,10,"FIELD",420,2) BLANK "DATA",160.16,10,"FIELD",420,3) R,BLANK "DATA",160.16,10,"FIELD",421,0) 4047^150^4196^RX Text--Radiation Other "DATA",160.16,10,"FIELD",421,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,10,"FIELD",421,2) BLANK "DATA",160.16,10,"FIELD",421,3) R,BLANK "DATA",160.16,10,"FIELD",422,0) 4197^200^4396^RX Text--Chemo "DATA",160.16,10,"FIELD",422,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,10,"FIELD",422,2) BLANK "DATA",160.16,10,"FIELD",422,3) R,BLANK "DATA",160.16,10,"FIELD",423,0) 4397^200^4596^RX Text--Hormone "DATA",160.16,10,"FIELD",423,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,10,"FIELD",423,2) BLANK "DATA",160.16,10,"FIELD",423,3) R,BLANK "DATA",160.16,10,"FIELD",424,0) 4597^100^4696^RX Text--BRM "DATA",160.16,10,"FIELD",424,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,10,"FIELD",424,2) BLANK "DATA",160.16,10,"FIELD",424,3) R,BLANK "DATA",160.16,10,"FIELD",425,0) 4697^100^4796^RX Text--Other "DATA",160.16,10,"FIELD",425,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,10,"FIELD",425,2) BLANK "DATA",160.16,10,"FIELD",425,3) R,BLANK "DATA",160.16,10,"FIELD",426,0) 4797^350^5146^Text--Remarks "DATA",160.16,10,"FIELD",426,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,10,"FIELD",426,2) BLANK "DATA",160.16,10,"FIELD",426,3) R,BLANK "DATA",160.16,10,"FIELD",427,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,10,"FIELD",427,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,10,"FIELD",427,2) BLANK "DATA",160.16,10,"FIELD",427,3) R,BLANK "DATA",160.16,10,"FIELD",428,0) 5197^770^5966^Reserved for Expansion "DATA",160.16,10,"FIELD",428,1) S ACDANS="" "DATA",160.16,10,"FIELD",428,2) BLANK "DATA",160.16,10,"FIELD",428,3) L,BLANK "DATA",160.16,10,"RULES",0) 4^160.162^6^6^3021021^^^^ "DATA",160.16,10,"RULES",1,0) S VALID=1 "DATA",160.16,10,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,10,"RULES",3,0) S TPG=$P($G(^ONCO(165.5,IEN,2)),U,1) "DATA",160.16,10,"RULES",4,0) I VALID S VALID=$S($E(TPG,3,4)=71:1,$E(TPG,3,4)=72:1,$E(TPG,3,5)=751:1,$E(TPG,3,5)=753:1,$$BEHAV^ONCACDU1(IEN)=2:1,$$BEHAV^ONCACDU1(IEN)=3:1,1:0) "DATA",160.16,10,"RULES",5,0) S JUMP=0 "DATA",160.16,10,"RULES",6,0) K SCREEN "DATA",160.16,11,0) VACCR EXTRACT V9.1 "DATA",160.16,11,"FIELD",0) ^160.161I^449^371 "DATA",160.16,11,"FIELD",1,0) 1^1^1^Record Type "DATA",160.16,11,"FIELD",1,1) S ACDANS="A" "DATA",160.16,11,"FIELD",1,2) BLANK "DATA",160.16,11,"FIELD",1,3) L,BLANK "DATA",160.16,11,"FIELD",2,0) 2^8^9^Patient ID Number "DATA",160.16,11,"FIELD",2,1) S ACDANS="" "DATA",160.16,11,"FIELD",2,2) ZERO "DATA",160.16,11,"FIELD",2,3) L,ZERO "DATA",160.16,11,"FIELD",3,0) 10^1^10^Registry Type "DATA",160.16,11,"FIELD",3,1) S ACDANS=3 "DATA",160.16,11,"FIELD",3,2) BLANK "DATA",160.16,11,"FIELD",3,3) L,BLANK "DATA",160.16,11,"FIELD",4,0) 11^1^11^FIN Coding System "DATA",160.16,11,"FIELD",4,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>2991231:2,1:1) K DATEDX "DATA",160.16,11,"FIELD",4,2) BLANK "DATA",160.16,11,"FIELD",4,3) L,BLANK "DATA",160.16,11,"FIELD",5,0) 19^1^19^NAACCR Record Version "DATA",160.16,11,"FIELD",5,1) S ACDANS=9 "DATA",160.16,11,"FIELD",5,2) BLANK "DATA",160.16,11,"FIELD",5,3) L,BLANK "DATA",160.16,11,"FIELD",6,0) 20^2^21^Tumor Record Number "DATA",160.16,11,"FIELD",6,1) S ACDANS="" "DATA",160.16,11,"FIELD",6,2) BLANK "DATA",160.16,11,"FIELD",6,3) L,BLANK "DATA",160.16,11,"FIELD",7,0) 22^20^41^Addr at DX--City "DATA",160.16,11,"FIELD",7,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,8.1,"E")'="":$$GET1~DIQ(165.5,IEN,8.1,"E"),1:"CITY UNKNOWN") "DATA",160.16,11,"FIELD",7,2) BLANK "DATA",160.16,11,"FIELD",7,3) R,BLANK "DATA",160.16,11,"FIELD",8,0) 42^2^43^Addr at DX--State "DATA",160.16,11,"FIELD",8,1) S ACDANS=$S($$GET1~DIQ(165.5,IEN,16,"I")'="":$$GET1~DIQ(160.15,$$GET1~DIQ(165.5,IEN,16,"I"),.01,"I"),1:"") "DATA",160.16,11,"FIELD",8,2) BLANK "DATA",160.16,11,"FIELD",8,3) L,BLANK "DATA",160.16,11,"FIELD",9,0) 44^3^46^County at DX "DATA",160.16,11,"FIELD",9,1) S ACDANS=$$CNTY~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",9,2) BLANK "DATA",160.16,11,"FIELD",9,3) L,ZERO "DATA",160.16,11,"FIELD",10,0) 47^9^55^Addr at DX--Postal Code "DATA",160.16,11,"FIELD",10,1) S ACDANS=$$GET1~DIQ(165.5,IEN,9,"I") "DATA",160.16,11,"FIELD",10,2) BLANK "DATA",160.16,11,"FIELD",10,3) R,BLANK "DATA",160.16,11,"FIELD",11,0) 56^6^61^Census Tract "DATA",160.16,11,"FIELD",11,1) S ACDANS=$$GET1~DIQ(165.5,IEN,147,"I") "DATA",160.16,11,"FIELD",11,2) BLANK "DATA",160.16,11,"FIELD",11,3) L,ZERO "DATA",160.16,11,"FIELD",12,0) 62^1^62^Census Tract Coding Sys "DATA",160.16,11,"FIELD",12,1) S ACDANS="" "DATA",160.16,11,"FIELD",12,2) BLANK "DATA",160.16,11,"FIELD",12,3) L,BLANK "DATA",160.16,11,"FIELD",13,0) 63^6^68^Census Tract--Alternate "DATA",160.16,11,"FIELD",13,1) S ACDANS="" "DATA",160.16,11,"FIELD",13,2) BLANK "DATA",160.16,11,"FIELD",13,3) L,BLANK "DATA",160.16,11,"FIELD",14,0) 69^1^69^Census Tract Cod Sys--Alt "DATA",160.16,11,"FIELD",14,1) S ACDANS="" "DATA",160.16,11,"FIELD",14,2) BLANK "DATA",160.16,11,"FIELD",14,3) L,BLANK "DATA",160.16,11,"FIELD",15,0) 70^1^70^Marital Status at DX "DATA",160.16,11,"FIELD",15,1) S ACDANS=$$GET1~DIQ(165.5,IEN,11,"I") "DATA",160.16,11,"FIELD",15,2) BLANK "DATA",160.16,11,"FIELD",15,3) L,BLANK "DATA",160.16,11,"FIELD",16,0) 71^2^72^Race 1 "DATA",160.16,11,"FIELD",16,1) S ACDANS=$$GET1~DIQ(160,ACD160,8,"I") "DATA",160.16,11,"FIELD",16,2) BLANK "DATA",160.16,11,"FIELD",16,3) L,ZERO "DATA",160.16,11,"FIELD",17,0) 73^1^73^Race Coding Sys--Current "DATA",160.16,11,"FIELD",17,1) S ACDANS=6 "DATA",160.16,11,"FIELD",17,2) BLANK "DATA",160.16,11,"FIELD",17,3) L,BLANK "DATA",160.16,11,"FIELD",18,0) 74^1^74^Race Coding Sys--Original "DATA",160.16,11,"FIELD",18,1) S ACDANS=6 "DATA",160.16,11,"FIELD",18,2) BLANK "DATA",160.16,11,"FIELD",18,3) L,BLANK "DATA",160.16,11,"FIELD",19,0) 75^1^75^Spanish/Hispanic Origin "DATA",160.16,11,"FIELD",19,1) S ACDANS=$$GET1~DIQ(160,ACD160,9,"I") "DATA",160.16,11,"FIELD",19,2) BLANK "DATA",160.16,11,"FIELD",19,3) L,BLANK "DATA",160.16,11,"FIELD",20,0) 76^1^76^Computed Ethnicity "DATA",160.16,11,"FIELD",20,1) S ACDANS="" "DATA",160.16,11,"FIELD",20,2) BLANK "DATA",160.16,11,"FIELD",20,3) L,BLANK "DATA",160.16,11,"FIELD",21,0) 77^1^77^Computed Ethnicity Source "DATA",160.16,11,"FIELD",21,1) S ACDANS="" "DATA",160.16,11,"FIELD",21,2) BLANK "DATA",160.16,11,"FIELD",21,3) L,BLANK "DATA",160.16,11,"FIELD",22,0) 78^1^78^Sex "DATA",160.16,11,"FIELD",22,1) S ACDANS=$$GET1~DIQ(160,ACD160,10,"I") "DATA",160.16,11,"FIELD",22,2) BLANK "DATA",160.16,11,"FIELD",22,3) L,BLANK "DATA",160.16,11,"FIELD",23,0) 79^3^81^Age at Diagnosis "DATA",160.16,11,"FIELD",23,1) S ACDANS=$$AGEDX~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",23,2) BLANK "DATA",160.16,11,"FIELD",23,3) L,ZERO "DATA",160.16,11,"FIELD",24,0) 82^8^89^Birth Date "DATA",160.16,11,"FIELD",24,1) S ACDANS=$$BDATE~ONCACDU2(ACD160) S ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,11,"FIELD",24,2) NINE "DATA",160.16,11,"FIELD",24,3) L,ZERO "DATA",160.16,11,"FIELD",25,0) 90^3^92^Birthplace "DATA",160.16,11,"FIELD",25,1) S ACDANS=$$GET1~DIQ(160,ACD160,7,"I") "DATA",160.16,11,"FIELD",25,2) NINE "DATA",160.16,11,"FIELD",25,3) L,ZERO "DATA",160.16,11,"FIELD",26,0) 93^2^94^Religion "DATA",160.16,11,"FIELD",26,1) S ACDANS=99 "DATA",160.16,11,"FIELD",26,2) NINE "DATA",160.16,11,"FIELD",26,3) L,ZERO "DATA",160.16,11,"FIELD",27,0) 95^3^97^Occupation Code--Census "DATA",160.16,11,"FIELD",27,1) S ACDANS="" "DATA",160.16,11,"FIELD",27,2) BLANK "DATA",160.16,11,"FIELD",27,3) L,BLANK "DATA",160.16,11,"FIELD",28,0) 98^3^100^Industry Code--Census "DATA",160.16,11,"FIELD",28,1) S ACDANS="" "DATA",160.16,11,"FIELD",28,2) BLANK "DATA",160.16,11,"FIELD",28,3) L,BLANK "DATA",160.16,11,"FIELD",29,0) 101^1^101^Occupation Source "DATA",160.16,11,"FIELD",29,1) S ACDANS="" "DATA",160.16,11,"FIELD",29,2) BLANK "DATA",160.16,11,"FIELD",29,3) L,BLANK "DATA",160.16,11,"FIELD",30,0) 102^1^102^Industry Source "DATA",160.16,11,"FIELD",30,1) S ACDANS="" "DATA",160.16,11,"FIELD",30,2) BLANK "DATA",160.16,11,"FIELD",30,3) L,BLANK "DATA",160.16,11,"FIELD",31,0) 103^40^142^Text--Usual Occupation "DATA",160.16,11,"FIELD",31,1) S ACDANS=$$OCCUP~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",31,2) BLANK "DATA",160.16,11,"FIELD",31,3) R,BLANK "DATA",160.16,11,"FIELD",32,0) 143^40^182^Text--Usual Industry "DATA",160.16,11,"FIELD",32,1) S ACDANS=$$IND~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",32,2) BLANK "DATA",160.16,11,"FIELD",32,3) R,BLANK "DATA",160.16,11,"FIELD",33,0) 183^1^183^Occup/Ind Coding System "DATA",160.16,11,"FIELD",33,1) S ACDANS="" "DATA",160.16,11,"FIELD",33,2) BLANK "DATA",160.16,11,"FIELD",33,3) L,BLANK "DATA",160.16,11,"FIELD",34,0) 184^1^184^Tobacco History "DATA",160.16,11,"FIELD",34,1) S ACDANS=$$TOB~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",34,2) BLANK "DATA",160.16,11,"FIELD",34,3) L,BLANK "DATA",160.16,11,"FIELD",35,0) 185^1^185^Alcohol History "DATA",160.16,11,"FIELD",35,1) S ACDANS=$$ALC~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",35,2) BLANK "DATA",160.16,11,"FIELD",35,3) L,BLANK "DATA",160.16,11,"FIELD",36,0) 186^1^186^Family History of Cancer "DATA",160.16,11,"FIELD",36,1) S ACDANS=$$GET1~DIQ(160,ACD160,43,"I") "DATA",160.16,11,"FIELD",36,2) BLANK "DATA",160.16,11,"FIELD",36,3) L,BLANK "DATA",160.16,11,"FIELD",37,0) 187^1^187^Census Tract Block Group "DATA",160.16,11,"FIELD",37,1) S ACDANS="" "DATA",160.16,11,"FIELD",37,2) BLANK "DATA",160.16,11,"FIELD",37,3) L,BLANK "DATA",160.16,11,"FIELD",38,0) 189^15^203^Registry ID "DATA",160.16,11,"FIELD",38,1) S ACDANS="6"_STAT1 "DATA",160.16,11,"FIELD",38,2) ZERO "DATA",160.16,11,"FIELD",38,3) L,ZERO "DATA",160.16,11,"FIELD",39,0) 217^2^218^Sequence Number--Central "DATA",160.16,11,"FIELD",39,1) S ACDANS="" "DATA",160.16,11,"FIELD",39,2) BLANK "DATA",160.16,11,"FIELD",39,3) L,BLANK "DATA",160.16,11,"FIELD",40,0) 219^8^226^Date of Diagnosis "DATA",160.16,11,"FIELD",40,1) S ACDANS=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",40,2) ZERO "DATA",160.16,11,"FIELD",40,3) L,ZERO "DATA",160.16,11,"FIELD",41,0) 227^4^230^Primary Site "DATA",160.16,11,"FIELD",41,1) S ACDANS=$$GET1~DIQ(165.5,IEN,20,"I") S:ACDANS'="" ACDANS=$TR($$GET1~DIQ(164,ACDANS,1,"I"),".","") "DATA",160.16,11,"FIELD",41,2) ZERO "DATA",160.16,11,"FIELD",41,3) L,ZERO "DATA",160.16,11,"FIELD",42,0) 231^1^231^Laterality "DATA",160.16,11,"FIELD",42,1) S ACDANS=$$GET1~DIQ(165.5,IEN,28,"I") "DATA",160.16,11,"FIELD",42,2) BLANK "DATA",160.16,11,"FIELD",42,3) L,BLANK "DATA",160.16,11,"FIELD",43,0) 232^5^236^Morph--Type&Behav ICD-O-2 "DATA",160.16,11,"FIELD",43,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,22,"I"),1:"") K DATEDX "DATA",160.16,11,"FIELD",43,2) BLANK "DATA",160.16,11,"FIELD",43,3) L,ZERO "DATA",160.16,11,"FIELD",45,0) 237^1^237^Grade "DATA",160.16,11,"FIELD",45,1) S ACDANS=$$GET1~DIQ(165.5,IEN,24,"I") "DATA",160.16,11,"FIELD",45,2) ZERO "DATA",160.16,11,"FIELD",45,3) L,ZERO "DATA",160.16,11,"FIELD",46,0) 238^1^238^Site Coding Sys--Current "DATA",160.16,11,"FIELD",46,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,11,"FIELD",46,2) ZERO "DATA",160.16,11,"FIELD",46,3) L,ZERO "DATA",160.16,11,"FIELD",47,0) 239^1^239^Site Coding Sys--Original "DATA",160.16,11,"FIELD",47,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:5,1:4) K DATEDX "DATA",160.16,11,"FIELD",47,2) ZERO "DATA",160.16,11,"FIELD",47,3) L,ZERO "DATA",160.16,11,"FIELD",48,0) 240^1^240^Morph Coding Sys--Current "DATA",160.16,11,"FIELD",48,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,11,"FIELD",48,2) ZERO "DATA",160.16,11,"FIELD",48,3) L,ZERO "DATA",160.16,11,"FIELD",49,0) 241^1^241^Morph Coding Sys--Originl "DATA",160.16,11,"FIELD",49,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:7,1:6) K DATEDX "DATA",160.16,11,"FIELD",49,2) ZERO "DATA",160.16,11,"FIELD",49,3) L,ZERO "DATA",160.16,11,"FIELD",50,0) 242^1^242^Diagnostic Confirmation "DATA",160.16,11,"FIELD",50,1) S ACDANS=$$GET1~DIQ(165.5,IEN,26,"I") "DATA",160.16,11,"FIELD",50,2) NINE "DATA",160.16,11,"FIELD",50,3) L,ZERO "DATA",160.16,11,"FIELD",51,0) 243^1^243^Type of Reporting Source "DATA",160.16,11,"FIELD",51,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.2,"I") "DATA",160.16,11,"FIELD",51,2) BLANK "DATA",160.16,11,"FIELD",51,3) L,BLANK "DATA",160.16,11,"FIELD",52,0) 244^8^251^Screening Date "DATA",160.16,11,"FIELD",52,1) S ACDANS=$$GET1~DIQ(165.5,IEN,79,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",52,2) BLANK "DATA",160.16,11,"FIELD",52,3) L,BLANK "DATA",160.16,11,"FIELD",53,0) 252^1^252^Screening Result "DATA",160.16,11,"FIELD",53,1) S ACDANS=$$GET1~DIQ(165.5,IEN,119,"I") "DATA",160.16,11,"FIELD",53,2) BLANK "DATA",160.16,11,"FIELD",53,3) L,BLANK "DATA",160.16,11,"FIELD",54,0) 253^5^257^Morph--Type&Behav ICD-O-3 "DATA",160.16,11,"FIELD",54,1) S ACDANS=$$GET1~DIQ(165.5,IEN,22.3,"I") "DATA",160.16,11,"FIELD",54,2) BLANK "DATA",160.16,11,"FIELD",54,3) L,ZERO "DATA",160.16,11,"FIELD",56,0) 286^9^294^Accession Number--Hosp "DATA",160.16,11,"FIELD",56,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.05,"I") "DATA",160.16,11,"FIELD",56,2) ZERO "DATA",160.16,11,"FIELD",56,3) L,ZERO "DATA",160.16,11,"FIELD",57,0) 295^2^296^Sequence Number--Hospital "DATA",160.16,11,"FIELD",57,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.06,"I") "DATA",160.16,11,"FIELD",57,2) ZERO "DATA",160.16,11,"FIELD",57,3) L,ZERO "DATA",160.16,11,"FIELD",58,0) 297^3^299^Abstracted By "DATA",160.16,11,"FIELD",58,1) S ACDANS=$$GET1~DIQ(165.5,IEN,92,"I") S:ACDANS'="" ACDANS=$E($$GET1~DIQ(200,ACDANS,1,"I"),1,3) "DATA",160.16,11,"FIELD",58,2) BLANK "DATA",160.16,11,"FIELD",58,3) R,BLANK "DATA",160.16,11,"FIELD",59,0) 300^8^307^Date of 1st Contact "DATA",160.16,11,"FIELD",59,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",59,2) ZERO "DATA",160.16,11,"FIELD",59,3) L,ZERO "DATA",160.16,11,"FIELD",60,0) 308^8^315^Date of Inpatient Adm "DATA",160.16,11,"FIELD",60,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",60,2) ZERO "DATA",160.16,11,"FIELD",60,3) L,ZERO "DATA",160.16,11,"FIELD",61,0) 316^8^323^Date of Inpatient Disch "DATA",160.16,11,"FIELD",61,1) S ACDANS=$$GET1~DIQ(165.5,IEN,1.1,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",61,2) ZERO "DATA",160.16,11,"FIELD",61,3) L,ZERO "DATA",160.16,11,"FIELD",62,0) 324^1^324^Class of Case "DATA",160.16,11,"FIELD",62,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.04,"I") "DATA",160.16,11,"FIELD",62,2) ZERO "DATA",160.16,11,"FIELD",62,3) L,ZERO "DATA",160.16,11,"FIELD",63,0) 325^4^328^Year First Seen This CA "DATA",160.16,11,"FIELD",63,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.07,"I") "DATA",160.16,11,"FIELD",63,2) ZERO "DATA",160.16,11,"FIELD",63,3) L,ZERO "DATA",160.16,11,"FIELD",64,0) 329^2^330^Primary Payer at Diagnosis "DATA",160.16,11,"FIELD",64,1) S ACDANS=$$GET1~DIQ(165.5,IEN,18,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.3,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",64,2) BLANK "DATA",160.16,11,"FIELD",64,3) L,BLANK "DATA",160.16,11,"FIELD",65,0) 331^1^331^Inpatient/Outpt Status "DATA",160.16,11,"FIELD",65,1) S ACDANS=$$GET1~DIQ(165.5,IEN,123,"I") "DATA",160.16,11,"FIELD",65,2) BLANK "DATA",160.16,11,"FIELD",65,3) L,BLANK "DATA",160.16,11,"FIELD",66,0) 332^1^332^Presentation at CA Conf "DATA",160.16,11,"FIELD",66,1) S ACDANS=$$GET1~DIQ(165.5,IEN,120,"I") "DATA",160.16,11,"FIELD",66,2) BLANK "DATA",160.16,11,"FIELD",66,3) L,BLANK "DATA",160.16,11,"FIELD",67,0) 333^8^340^Date of CA Conference "DATA",160.16,11,"FIELD",67,1) S ACDANS=$$GET1~DIQ(165.5,IEN,121,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",67,2) BLANK "DATA",160.16,11,"FIELD",67,3) L,BLANK "DATA",160.16,11,"FIELD",68,0) 341^2^342^RX Hosp--Surg Prim Site "DATA",160.16,11,"FIELD",68,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,50.2,"SPS") "DATA",160.16,11,"FIELD",68,2) NINE "DATA",160.16,11,"FIELD",68,3) L,ZERO "DATA",160.16,11,"FIELD",69,0) 347^4^350^Reserved of Expansion "DATA",160.16,11,"FIELD",69,1) S ACDANS="" "DATA",160.16,11,"FIELD",69,2) BLANK "DATA",160.16,11,"FIELD",69,3) L,BLANK "DATA",160.16,11,"FIELD",70,0) 351^1^351^RX Hosp--Radiation "DATA",160.16,11,"FIELD",70,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.4,"I") "DATA",160.16,11,"FIELD",70,2) BLANK "DATA",160.16,11,"FIELD",70,3) L,ZERO "DATA",160.16,11,"FIELD",71,0) 352^1^352^RX Hosp--Chemo "DATA",160.16,11,"FIELD",71,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.3,"I") "DATA",160.16,11,"FIELD",71,2) BLANK "DATA",160.16,11,"FIELD",71,3) L,ZERO "DATA",160.16,11,"FIELD",72,0) 353^1^353^RX Hosp--Hormone "DATA",160.16,11,"FIELD",72,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.3,"I") "DATA",160.16,11,"FIELD",72,2) BLANK "DATA",160.16,11,"FIELD",72,3) L,ZERO "DATA",160.16,11,"FIELD",73,0) 354^1^354^RX Hosp--BRM "DATA",160.16,11,"FIELD",73,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.3,"I") "DATA",160.16,11,"FIELD",73,2) BLANK "DATA",160.16,11,"FIELD",73,3) L,ZERO "DATA",160.16,11,"FIELD",74,0) 355^1^355^RX Hosp--Other "DATA",160.16,11,"FIELD",74,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.3,"I") "DATA",160.16,11,"FIELD",74,2) BLANK "DATA",160.16,11,"FIELD",74,3) L,ZERO "DATA",160.16,11,"FIELD",75,0) 356^2^357^RX Hosp--DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",75,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.4,"I") "DATA",160.16,11,"FIELD",75,2) BLANK "DATA",160.16,11,"FIELD",75,3) L,ZERO "DATA",160.16,11,"FIELD",76,0) 362^25^386^Reserved for Expansion "DATA",160.16,11,"FIELD",76,1) S ACDANS="" "DATA",160.16,11,"FIELD",76,2) BLANK "DATA",160.16,11,"FIELD",76,3) L,BLANK "DATA",160.16,11,"FIELD",77,0) 388^1^388^SEER Summary Stage 1977 "DATA",160.16,11,"FIELD",77,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX<3010000:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,11,"FIELD",77,2) BLANK "DATA",160.16,11,"FIELD",77,3) L,BLANK "DATA",160.16,11,"FIELD",78,0) 389^1^389^Loc/Reg/Distant Stage "DATA",160.16,11,"FIELD",78,1) S ACDANS=$$LRDS~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",78,2) BLANK "DATA",160.16,11,"FIELD",78,3) L,BLANK "DATA",160.16,11,"FIELD",79,0) 390^3^392^EOD--Tumor Size "DATA",160.16,11,"FIELD",79,1) S ACDANS=$$GET1~DIQ(165.5,IEN,29,"I") "DATA",160.16,11,"FIELD",79,2) BLANK "DATA",160.16,11,"FIELD",79,3) L,ZERO "DATA",160.16,11,"FIELD",80,0) 393^2^394^EOD--Extension "DATA",160.16,11,"FIELD",80,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30,"I") "DATA",160.16,11,"FIELD",80,2) BLANK "DATA",160.16,11,"FIELD",80,3) L,ZERO "DATA",160.16,11,"FIELD",81,0) 395^2^396^EOD--Extension Prost Path "DATA",160.16,11,"FIELD",81,1) S ACDANS=$$GET1~DIQ(165.5,IEN,30.1,"I") "DATA",160.16,11,"FIELD",81,2) BLANK "DATA",160.16,11,"FIELD",81,3) L,ZERO "DATA",160.16,11,"FIELD",82,0) 397^1^397^EOD--Lymph Node Involv "DATA",160.16,11,"FIELD",82,1) S ACDANS=$$GET1~DIQ(165.5,IEN,31,"I") "DATA",160.16,11,"FIELD",82,2) BLANK "DATA",160.16,11,"FIELD",82,3) L,BLANK "DATA",160.16,11,"FIELD",83,0) 398^2^399^Regional Nodes Positive "DATA",160.16,11,"FIELD",83,1) S ACDANS=$$GET1~DIQ(165.5,IEN,32,"I") "DATA",160.16,11,"FIELD",83,2) ZERO "DATA",160.16,11,"FIELD",83,3) L,ZERO "DATA",160.16,11,"FIELD",84,0) 400^2^401^Regional Nodes Examined "DATA",160.16,11,"FIELD",84,1) S ACDANS=$$GET1~DIQ(165.5,IEN,33,"I") "DATA",160.16,11,"FIELD",84,2) ZERO "DATA",160.16,11,"FIELD",84,3) L,ZERO "DATA",160.16,11,"FIELD",85,0) 402^13^414^EOD--Old 13 Digit "DATA",160.16,11,"FIELD",85,1) S ACDANS="" "DATA",160.16,11,"FIELD",85,2) BLANK "DATA",160.16,11,"FIELD",85,3) L,BLANK "DATA",160.16,11,"FIELD",86,0) 415^2^416^EOD--Old 2 Digit "DATA",160.16,11,"FIELD",86,1) S ACDANS="" "DATA",160.16,11,"FIELD",86,2) BLANK "DATA",160.16,11,"FIELD",86,3) L,BLANK "DATA",160.16,11,"FIELD",87,0) 417^4^420^EOD--Old 4 Digit "DATA",160.16,11,"FIELD",87,1) S ACDANS="" "DATA",160.16,11,"FIELD",87,2) BLANK "DATA",160.16,11,"FIELD",87,3) L,BLANK "DATA",160.16,11,"FIELD",88,0) 421^1^421^Coding System for EOD "DATA",160.16,11,"FIELD",88,1) S ACDANS=4 "DATA",160.16,11,"FIELD",88,2) BLANK "DATA",160.16,11,"FIELD",88,3) L,BLANK "DATA",160.16,11,"FIELD",89,0) 422^2^423^TNM Path T "DATA",160.16,11,"FIELD",89,1) S ACDANS=$$GET1~DIQ(165.5,IEN,85,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,11,"FIELD",89,2) BLANK "DATA",160.16,11,"FIELD",89,3) R,BLANK "DATA",160.16,11,"FIELD",90,0) 424^2^425^TNM Path N "DATA",160.16,11,"FIELD",90,1) S ACDANS=$$GET1~DIQ(165.5,IEN,86,"I") "DATA",160.16,11,"FIELD",90,2) BLANK "DATA",160.16,11,"FIELD",90,3) R,BLANK "DATA",160.16,11,"FIELD",91,0) 426^2^427^TNM Path M "DATA",160.16,11,"FIELD",91,1) S ACDANS=$$GET1~DIQ(165.5,IEN,87,"I") "DATA",160.16,11,"FIELD",91,2) BLANK "DATA",160.16,11,"FIELD",91,3) R,BLANK "DATA",160.16,11,"FIELD",92,0) 428^2^429^TNM Path Stage Group "DATA",160.16,11,"FIELD",92,1) S ACDANS=$$SG~ONCACDU1(IEN,"P") "DATA",160.16,11,"FIELD",92,2) BLANK "DATA",160.16,11,"FIELD",92,3) R,BLANK "DATA",160.16,11,"FIELD",93,0) 430^1^430^TNM Path Descriptor "DATA",160.16,11,"FIELD",93,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"P") "DATA",160.16,11,"FIELD",93,2) ZERO "DATA",160.16,11,"FIELD",93,3) L,ZERO "DATA",160.16,11,"FIELD",94,0) 431^1^431^TNM Path Staged By "DATA",160.16,11,"FIELD",94,1) S ACDANS=$$GET1~DIQ(165.5,IEN,89,"I") "DATA",160.16,11,"FIELD",94,2) BLANK "DATA",160.16,11,"FIELD",94,3) L,BLANK "DATA",160.16,11,"FIELD",95,0) 432^2^433^TNM Clin T "DATA",160.16,11,"FIELD",95,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.1,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,11,"FIELD",95,2) BLANK "DATA",160.16,11,"FIELD",95,3) R,BLANK "DATA",160.16,11,"FIELD",96,0) 434^2^435^TNM Clin N "DATA",160.16,11,"FIELD",96,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.2,"I") "DATA",160.16,11,"FIELD",96,2) BLANK "DATA",160.16,11,"FIELD",96,3) R,BLANK "DATA",160.16,11,"FIELD",97,0) 436^2^437^TNM Clin M "DATA",160.16,11,"FIELD",97,1) S ACDANS=$$GET1~DIQ(165.5,IEN,37.3,"I") "DATA",160.16,11,"FIELD",97,2) BLANK "DATA",160.16,11,"FIELD",97,3) R,BLANK "DATA",160.16,11,"FIELD",98,0) 438^2^439^TNM Clin Stage Group "DATA",160.16,11,"FIELD",98,1) S ACDANS=$$SG~ONCACDU1(IEN,"C") "DATA",160.16,11,"FIELD",98,2) BLANK "DATA",160.16,11,"FIELD",98,3) R,BLANK "DATA",160.16,11,"FIELD",99,0) 440^1^440^TNM Clin Descriptor "DATA",160.16,11,"FIELD",99,1) S ACDANS=$$STAGE~ONCACDU2(IEN,"C") "DATA",160.16,11,"FIELD",99,2) ZERO "DATA",160.16,11,"FIELD",99,3) L,ZERO "DATA",160.16,11,"FIELD",100,0) 441^1^441^TNM Clin Staged By "DATA",160.16,11,"FIELD",100,1) S ACDANS=$$GET1~DIQ(165.5,IEN,19,"I") "DATA",160.16,11,"FIELD",100,2) BLANK "DATA",160.16,11,"FIELD",100,3) L,BLANK "DATA",160.16,11,"FIELD",101,0) 442^2^443^TNM Other T "DATA",160.16,11,"FIELD",101,1) S ACDANS=$$GET1~DIQ(165.5,IEN,93,"I") S:ACDANS'="" ACDANS=$S(ACDANS="1A1":"A1",ACDANS="1A2":"A2",ACDANS="1B1":"B1",ACDANS="1B2":"B2",1:ACDANS) "DATA",160.16,11,"FIELD",101,2) BLANK "DATA",160.16,11,"FIELD",101,3) R,BLANK "DATA",160.16,11,"FIELD",102,0) 444^2^445^TNM Other N "DATA",160.16,11,"FIELD",102,1) S ACDANS=$$GET1~DIQ(165.5,IEN,98,"I") "DATA",160.16,11,"FIELD",102,2) BLANK "DATA",160.16,11,"FIELD",102,3) R,BLANK "DATA",160.16,11,"FIELD",103,0) 446^2^447^TNM Other M "DATA",160.16,11,"FIELD",103,1) S ACDANS=$$GET1~DIQ(165.5,IEN,99,"I") "DATA",160.16,11,"FIELD",103,2) BLANK "DATA",160.16,11,"FIELD",103,3) R,BLANK "DATA",160.16,11,"FIELD",104,0) 448^2^449^TNM Other Stage Group "DATA",160.16,11,"FIELD",104,1) S ACDANS=$$SG~ONCACDU1(IEN,"O") "DATA",160.16,11,"FIELD",104,2) BLANK "DATA",160.16,11,"FIELD",104,3) R,BLANK "DATA",160.16,11,"FIELD",105,0) 450^1^450^TNM Other Staged By "DATA",160.16,11,"FIELD",105,1) S ACDANS=$$GET1~DIQ(165.5,IEN,118,"I") "DATA",160.16,11,"FIELD",105,2) BLANK "DATA",160.16,11,"FIELD",105,3) L,BLANK "DATA",160.16,11,"FIELD",106,0) 451^1^451^TNM Other Descriptor "DATA",160.16,11,"FIELD",106,1) S ACDANS="" "DATA",160.16,11,"FIELD",106,2) BLANK "DATA",160.16,11,"FIELD",106,3) L,BLANK "DATA",160.16,11,"FIELD",107,0) 452^1^452^TNM Edition Number "DATA",160.16,11,"FIELD",107,1) S ACDANS=$$TNM~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",107,2) BLANK "DATA",160.16,11,"FIELD",107,3) L,BLANK "DATA",160.16,11,"FIELD",108,0) 453^15^467^Other Staging System "DATA",160.16,11,"FIELD",108,1) S ACDANS=$$GET1~DIQ(165.5,IEN,39,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.3,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",108,2) BLANK "DATA",160.16,11,"FIELD",108,3) R,BLANK "DATA",160.16,11,"FIELD",109,0) 468^8^475^Date of 1st Positive BX "DATA",160.16,11,"FIELD",109,1) S ACDANS=$$GET1~DIQ(165.5,IEN,137,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",109,2) BLANK "DATA",160.16,11,"FIELD",109,3) L,BLANK "DATA",160.16,11,"FIELD",110,0) 476^1^476^Site of Distant Met 1 "DATA",160.16,11,"FIELD",110,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34,"I") "DATA",160.16,11,"FIELD",110,2) BLANK "DATA",160.16,11,"FIELD",110,3) L,BLANK "DATA",160.16,11,"FIELD",111,0) 477^1^477^Site of Distant Met 2 "DATA",160.16,11,"FIELD",111,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.1,"I") "DATA",160.16,11,"FIELD",111,2) BLANK "DATA",160.16,11,"FIELD",111,3) L,BLANK "DATA",160.16,11,"FIELD",112,0) 478^1^478^Site of Distant Met 3 "DATA",160.16,11,"FIELD",112,1) S ACDANS=$$GET1~DIQ(165.5,IEN,34.2,"I") "DATA",160.16,11,"FIELD",112,2) BLANK "DATA",160.16,11,"FIELD",112,3) L,BLANK "DATA",160.16,11,"FIELD",113,0) 479^2^480^Pediatric Stage "DATA",160.16,11,"FIELD",113,1) S ACDANS=$$GET1~DIQ(165.5,IEN,850,"I") "DATA",160.16,11,"FIELD",113,2) BLANK "DATA",160.16,11,"FIELD",113,3) L,BLANK "DATA",160.16,11,"FIELD",114,0) 481^2^482^Pediatric Staging System "DATA",160.16,11,"FIELD",114,1) S ACDANS=$$GET1~DIQ(165.5,IEN,849,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.6,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",114,2) BLANK "DATA",160.16,11,"FIELD",114,3) L,BLANK "DATA",160.16,11,"FIELD",115,0) 483^1^483^Pediatric Staged By "DATA",160.16,11,"FIELD",115,1) S ACDANS=$$GET1~DIQ(165.5,IEN,851,"I") "DATA",160.16,11,"FIELD",115,2) BLANK "DATA",160.16,11,"FIELD",115,3) L,BLANK "DATA",160.16,11,"FIELD",116,0) 484^1^484^Tumor Marker 1 "DATA",160.16,11,"FIELD",116,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.1,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",116,2) BLANK "DATA",160.16,11,"FIELD",116,3) L,BLANK "DATA",160.16,11,"FIELD",117,0) 485^1^485^Tumor Marker 2 "DATA",160.16,11,"FIELD",117,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.2,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",117,2) BLANK "DATA",160.16,11,"FIELD",117,3) L,BLANK "DATA",160.16,11,"FIELD",118,0) 486^1^486^Tumor Marker 3 "DATA",160.16,11,"FIELD",118,1) S ACDANS=$$GET1~DIQ(165.5,IEN,25.3,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.15,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",118,2) BLANK "DATA",160.16,11,"FIELD",118,3) L,BLANK "DATA",160.16,11,"FIELD",119,0) 487^49^535^Reserved for Expansion "DATA",160.16,11,"FIELD",119,1) S ACDANS="" "DATA",160.16,11,"FIELD",119,2) BLANK "DATA",160.16,11,"FIELD",119,3) L,BLANK "DATA",160.16,11,"FIELD",120,0) 536^1^536^Reserved (old Record Version) "DATA",160.16,11,"FIELD",120,1) S ACDANS="" "DATA",160.16,11,"FIELD",120,2) BLANK "DATA",160.16,11,"FIELD",120,3) L,BLANK "DATA",160.16,11,"FIELD",121,0) 537^8^544^RX Date--Surgery "DATA",160.16,11,"FIELD",121,1) S ACDANS=$$DS~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",121,2) NINE "DATA",160.16,11,"FIELD",121,3) L,BLANK "DATA",160.16,11,"FIELD",122,0) 545^8^552^RX Date--Radiation "DATA",160.16,11,"FIELD",122,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,51,"I")) "DATA",160.16,11,"FIELD",122,2) NINE "DATA",160.16,11,"FIELD",122,3) L,BLANK "DATA",160.16,11,"FIELD",123,0) 553^8^560^RX Date--Chemo "DATA",160.16,11,"FIELD",123,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,53,"I")) "DATA",160.16,11,"FIELD",123,2) NINE "DATA",160.16,11,"FIELD",123,3) L,BLANK "DATA",160.16,11,"FIELD",124,0) 561^8^568^RX Date--Hormone "DATA",160.16,11,"FIELD",124,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,54,"I")) "DATA",160.16,11,"FIELD",124,2) NINE "DATA",160.16,11,"FIELD",124,3) L,BLANK "DATA",160.16,11,"FIELD",125,0) 569^8^576^RX Date--BRM "DATA",160.16,11,"FIELD",125,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,55,"I")) "DATA",160.16,11,"FIELD",125,2) NINE "DATA",160.16,11,"FIELD",125,3) L,BLANK "DATA",160.16,11,"FIELD",126,0) 577^8^584^RX Date--Other "DATA",160.16,11,"FIELD",126,1) S ACDANS=$$DATE~ONCACDU1($$GET1~DIQ(165.5,IEN,57,"I")) "DATA",160.16,11,"FIELD",126,2) NINE "DATA",160.16,11,"FIELD",126,3) L,BLANK "DATA",160.16,11,"FIELD",127,0) 585^8^592^Date of Initial RX--SEER "DATA",160.16,11,"FIELD",127,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,11,"FIELD",127,2) ZERO "DATA",160.16,11,"FIELD",127,3) L,ZERO "DATA",160.16,11,"FIELD",128,0) 593^8^600^Date of 1st Crs RX--COC "DATA",160.16,11,"FIELD",128,1) S ACDANS=$$GET1~DIQ(165.5,IEN,49,"E") S:ACDANS'="" ACDANS=$E(ACDANS,1,2)_$E(ACDANS,4,5)_$E(ACDANS,7,10) "DATA",160.16,11,"FIELD",128,2) ZERO "DATA",160.16,11,"FIELD",128,3) L,ZERO "DATA",160.16,11,"FIELD",129,0) 601^8^608^RX Date--DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",129,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.3,"I") S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",129,2) ZERO "DATA",160.16,11,"FIELD",129,3) L,ZERO "DATA",160.16,11,"FIELD",130,0) 609^2^610^RX Summ--Surg Prim Site "DATA",160.16,11,"FIELD",130,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,58.2,"SPS") "DATA",160.16,11,"FIELD",130,2) ZERO "DATA",160.16,11,"FIELD",130,3) L,ZERO "DATA",160.16,11,"FIELD",131,0) 615^4^618^Reserved for Expansion "DATA",160.16,11,"FIELD",131,1) S ACDANS="" "DATA",160.16,11,"FIELD",131,2) BLANK "DATA",160.16,11,"FIELD",131,3) L,BLANK "DATA",160.16,11,"FIELD",132,0) 619^1^619^RX Summ--Surgical Approach "DATA",160.16,11,"FIELD",132,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,74,"SUA") "DATA",160.16,11,"FIELD",132,2) BLANK "DATA",160.16,11,"FIELD",132,3) L,BLANK "DATA",160.16,11,"FIELD",133,0) 620^1^620^RX Summ--Surgical Margins "DATA",160.16,11,"FIELD",133,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,59,"SM5") "DATA",160.16,11,"FIELD",133,2) BLANK "DATA",160.16,11,"FIELD",133,3) L,BLANK "DATA",160.16,11,"FIELD",134,0) 621^1^621^RX Summ--Reconstruct 1st "DATA",160.16,11,"FIELD",134,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,23,"RR5") "DATA",160.16,11,"FIELD",134,2) BLANK "DATA",160.16,11,"FIELD",134,3) L,BLANK "DATA",160.16,11,"FIELD",135,0) 622^1^622^Reason for No Surgery "DATA",160.16,11,"FIELD",135,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58,"I") "DATA",160.16,11,"FIELD",135,2) BLANK "DATA",160.16,11,"FIELD",135,3) L,BLANK "DATA",160.16,11,"FIELD",136,0) 623^2^624^RX Summ-DX/Stg/Pall Proc "DATA",160.16,11,"FIELD",136,1) S ACDANS=$$GET1~DIQ(165.5,IEN,58.1,"I") "DATA",160.16,11,"FIELD",136,2) BLANK "DATA",160.16,11,"FIELD",136,3) L,ZERO "DATA",160.16,11,"FIELD",137,0) 625^1^625^RX Summ--Radiation "DATA",160.16,11,"FIELD",137,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.2,"I") "DATA",160.16,11,"FIELD",137,2) NINE "DATA",160.16,11,"FIELD",137,3) L,ZERO "DATA",160.16,11,"FIELD",138,0) 626^1^626^RX Summ--Rad to CNS "DATA",160.16,11,"FIELD",138,1) S ACDANS=$$GET1~DIQ(165.5,IEN,52.2,"I") "DATA",160.16,11,"FIELD",138,2) NINE "DATA",160.16,11,"FIELD",138,3) L,ZERO "DATA",160.16,11,"FIELD",139,0) 627^1^627^RX Summ--Surg/Rad Seq "DATA",160.16,11,"FIELD",139,1) S ACDANS=$$GET1~DIQ(165.5,IEN,51.3,"I") "DATA",160.16,11,"FIELD",139,2) NINE "DATA",160.16,11,"FIELD",139,3) L,ZERO "DATA",160.16,11,"FIELD",140,0) 628^1^628^RX Summ--Chemo "DATA",160.16,11,"FIELD",140,1) S ACDANS=$$GET1~DIQ(165.5,IEN,53.2,"I") "DATA",160.16,11,"FIELD",140,2) NINE "DATA",160.16,11,"FIELD",140,3) L,ZERO "DATA",160.16,11,"FIELD",141,0) 629^1^629^RX Summ--Hormone "DATA",160.16,11,"FIELD",141,1) S ACDANS=$$GET1~DIQ(165.5,IEN,54.2,"I") "DATA",160.16,11,"FIELD",141,2) NINE "DATA",160.16,11,"FIELD",141,3) L,ZERO "DATA",160.16,11,"FIELD",142,0) 630^1^630^RX Summ--BRM "DATA",160.16,11,"FIELD",142,1) S ACDANS=$$GET1~DIQ(165.5,IEN,55.2,"I") "DATA",160.16,11,"FIELD",142,2) NINE "DATA",160.16,11,"FIELD",142,3) L,ZERO "DATA",160.16,11,"FIELD",143,0) 631^1^631^RX Summ--Other "DATA",160.16,11,"FIELD",143,1) S ACDANS=$$GET1~DIQ(165.5,IEN,57.2,"I") "DATA",160.16,11,"FIELD",143,2) NINE "DATA",160.16,11,"FIELD",143,3) L,ZERO "DATA",160.16,11,"FIELD",144,0) 632^1^632^Reason for No Radiation "DATA",160.16,11,"FIELD",144,1) S ACDANS=$$GET1~DIQ(165.5,IEN,75,"I") "DATA",160.16,11,"FIELD",144,2) BLANK "DATA",160.16,11,"FIELD",144,3) L,BLANK "DATA",160.16,11,"FIELD",145,0) 633^1^633^Reason for No Chemo "DATA",160.16,11,"FIELD",145,1) S ACDANS=$$GET1~DIQ(165.5,IEN,76,"I") "DATA",160.16,11,"FIELD",145,2) BLANK "DATA",160.16,11,"FIELD",145,3) L,BLANK "DATA",160.16,11,"FIELD",146,0) 634^1^634^Reason for No Hormone "DATA",160.16,11,"FIELD",146,1) S ACDANS=$$GET1~DIQ(165.5,IEN,77,"I") "DATA",160.16,11,"FIELD",146,2) BLANK "DATA",160.16,11,"FIELD",146,3) L,BLANK "DATA",160.16,11,"FIELD",147,0) 635^1^635^RX Coding System--Current "DATA",160.16,11,"FIELD",147,1) S ACDANS=$$RXCOD~ONCACDU1(IEN) "DATA",160.16,11,"FIELD",147,2) ZERO "DATA",160.16,11,"FIELD",147,3) L,ZERO "DATA",160.16,11,"FIELD",148,0) 636^1^636^Protocol Eligibility Stat "DATA",160.16,11,"FIELD",148,1) S ACDANS=$$GET1~DIQ(165.5,IEN,346,"I") "DATA",160.16,11,"FIELD",148,2) BLANK "DATA",160.16,11,"FIELD",148,3) L,BLANK "DATA",160.16,11,"FIELD",149,0) 637^2^638^Protocol Participation "DATA",160.16,11,"FIELD",149,1) S ACDANS=$$GET1~DIQ(165.5,IEN,560,"I") "DATA",160.16,11,"FIELD",149,2) BLANK "DATA",160.16,11,"FIELD",149,3) L,BLANK "DATA",160.16,11,"FIELD",150,0) 639^1^639^Referral to Support Serv "DATA",160.16,11,"FIELD",150,1) S ACDANS=$$GET1~DIQ(165.5,IEN,122,"I") "DATA",160.16,11,"FIELD",150,2) BLANK "DATA",160.16,11,"FIELD",150,3) L,BLANK "DATA",160.16,11,"FIELD",151,0) 640^1^640^First Course Calc Method "DATA",160.16,11,"FIELD",151,1) S ACDANS=1 "DATA",160.16,11,"FIELD",151,2) BLANK "DATA",160.16,11,"FIELD",151,3) L,BLANK "DATA",160.16,11,"FIELD",152,0) 641^5^645^Rad--Regional Dose:cGy "DATA",160.16,11,"FIELD",152,1) S ACDANS=$$GET1~DIQ(165.5,IEN,442,"I") "DATA",160.16,11,"FIELD",152,2) NINE "DATA",160.16,11,"FIELD",152,3) L,ZERO "DATA",160.16,11,"FIELD",153,0) 646^2^647^Rad--No of Treatments Vol "DATA",160.16,11,"FIELD",153,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,11,"FIELD",153,2) NINE "DATA",160.16,11,"FIELD",153,3) L,ZERO "DATA",160.16,11,"FIELD",154,0) 648^3^650^Rad--Elapsed RX Days "DATA",160.16,11,"FIELD",154,1) S ACDANS=$$GET1~DIQ(165.5,IEN,56,"I") "DATA",160.16,11,"FIELD",154,2) NINE "DATA",160.16,11,"FIELD",154,3) L,ZERO "DATA",160.16,11,"FIELD",155,0) 651^2^652^Rad--Treatment Volume "DATA",160.16,11,"FIELD",155,1) S ACDANS=$$GET1~DIQ(165.5,IEN,125,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.7,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",155,2) NINE "DATA",160.16,11,"FIELD",155,3) L,ZERO "DATA",160.16,11,"FIELD",156,0) 653^1^653^Rad--Location of RX "DATA",160.16,11,"FIELD",156,1) S ACDANS=$$GET1~DIQ(165.5,IEN,126,"I") "DATA",160.16,11,"FIELD",156,2) NINE "DATA",160.16,11,"FIELD",156,3) L,ZERO "DATA",160.16,11,"FIELD",157,0) 654^1^654^Rad--Intent of Treatment "DATA",160.16,11,"FIELD",157,1) S ACDANS=$$GET1~DIQ(165.5,IEN,127,"I") "DATA",160.16,11,"FIELD",157,2) NINE "DATA",160.16,11,"FIELD",157,3) L,ZERO "DATA",160.16,11,"FIELD",158,0) 655^2^656^Rad--Regional RX Modality "DATA",160.16,11,"FIELD",158,1) S ACDANS=$$GET1~DIQ(165.5,IEN,363,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(166.13,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",158,2) NINE "DATA",160.16,11,"FIELD",158,3) L,ZERO "DATA",160.16,11,"FIELD",159,0) 657^1^657^Rad--RX Completion Status "DATA",160.16,11,"FIELD",159,1) S ACDANS=$$GET1~DIQ(165.5,IEN,128,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(164.8,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",159,2) NINE "DATA",160.16,11,"FIELD",159,3) L,ZERO "DATA",160.16,11,"FIELD",160,0) 658^1^658^Rad--Local Control Status "DATA",160.16,11,"FIELD",160,1) S ACDANS=$$GET1~DIQ(165.5,IEN,132,"I") "DATA",160.16,11,"FIELD",160,2) NINE "DATA",160.16,11,"FIELD",160,3) L,ZERO "DATA",160.16,11,"FIELD",161,0) 659^3^661^Chemotherapy Field 1 "DATA",160.16,11,"FIELD",161,1) S ACDANS="" "DATA",160.16,11,"FIELD",161,2) BLANK "DATA",160.16,11,"FIELD",161,3) L,BLANK "DATA",160.16,11,"FIELD",162,0) 662^3^664^Chemotherapy Field 2 "DATA",160.16,11,"FIELD",162,1) S ACDANS="" "DATA",160.16,11,"FIELD",162,2) BLANK "DATA",160.16,11,"FIELD",162,3) L,BLANK "DATA",160.16,11,"FIELD",163,0) 665^3^667^Chemotherapy Field 3 "DATA",160.16,11,"FIELD",163,1) S ACDANS="" "DATA",160.16,11,"FIELD",163,2) BLANK "DATA",160.16,11,"FIELD",163,3) L,BLANK "DATA",160.16,11,"FIELD",164,0) 668^3^670^Chemotherapy Field 4 "DATA",160.16,11,"FIELD",164,1) S ACDANS="" "DATA",160.16,11,"FIELD",164,2) BLANK "DATA",160.16,11,"FIELD",164,3) L,BLANK "DATA",160.16,11,"FIELD",165,0) 671^2^672^RX Summ--Surgery Type "DATA",160.16,11,"FIELD",165,1) S ACDANS="" "DATA",160.16,11,"FIELD",165,2) BLANK "DATA",160.16,11,"FIELD",165,3) L,BLANK "DATA",160.16,11,"FIELD",166,0) 677^24^700^Reserved for Expansion "DATA",160.16,11,"FIELD",166,1) S ACDANS="" "DATA",160.16,11,"FIELD",166,2) BLANK "DATA",160.16,11,"FIELD",166,3) L,BLANK "DATA",160.16,11,"FIELD",167,0) 701^8^708^Subsq RX 2nd Course Date "DATA",160.16,11,"FIELD",167,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",167,2) 00000000 "DATA",160.16,11,"FIELD",167,3) L,BLANK "DATA",160.16,11,"FIELD",168,0) 709^2^710^Subsq RX 2nd Course Surg "DATA",160.16,11,"FIELD",168,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.04) "DATA",160.16,11,"FIELD",168,2) BLANK "DATA",160.16,11,"FIELD",168,3) L,ZERO "DATA",160.16,11,"FIELD",169,0) 711^1^711^Subsq RX 2nd Course Rad "DATA",160.16,11,"FIELD",169,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.05) "DATA",160.16,11,"FIELD",169,2) BLANK "DATA",160.16,11,"FIELD",169,3) L,BLANK "DATA",160.16,11,"FIELD",170,0) 712^1^712^Subsq RX 2nd Course Chemo "DATA",160.16,11,"FIELD",170,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.06) "DATA",160.16,11,"FIELD",170,2) BLANK "DATA",160.16,11,"FIELD",170,3) L,BLANK "DATA",160.16,11,"FIELD",171,0) 713^1^713^Subsq RX 2nd Course Horm "DATA",160.16,11,"FIELD",171,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.07) "DATA",160.16,11,"FIELD",171,2) BLANK "DATA",160.16,11,"FIELD",171,3) L,BLANK "DATA",160.16,11,"FIELD",172,0) 714^1^714^Subsq RX 2nd Course BRM "DATA",160.16,11,"FIELD",172,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.08) "DATA",160.16,11,"FIELD",172,2) BLANK "DATA",160.16,11,"FIELD",172,3) L,BLANK "DATA",160.16,11,"FIELD",173,0) 715^1^715^Subsq RX 2nd Course Oth "DATA",160.16,11,"FIELD",173,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,.09) "DATA",160.16,11,"FIELD",173,2) BLANK "DATA",160.16,11,"FIELD",173,3) L,BLANK "DATA",160.16,11,"FIELD",174,0) 716^8^723^Subsq RX 3rd Course Date "DATA",160.16,11,"FIELD",174,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",174,2) 00000000 "DATA",160.16,11,"FIELD",174,3) L,BLANK "DATA",160.16,11,"FIELD",175,0) 724^2^725^Subsq RX 3rd Course Surg "DATA",160.16,11,"FIELD",175,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.04) "DATA",160.16,11,"FIELD",175,2) BLANK "DATA",160.16,11,"FIELD",175,3) L,ZERO "DATA",160.16,11,"FIELD",176,0) 726^1^726^Subsq RX 3rd Course Rad "DATA",160.16,11,"FIELD",176,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.05) "DATA",160.16,11,"FIELD",176,2) BLANK "DATA",160.16,11,"FIELD",176,3) L,BLANK "DATA",160.16,11,"FIELD",177,0) 727^1^727^Subsq RX 3rd Course Chemo "DATA",160.16,11,"FIELD",177,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.06) "DATA",160.16,11,"FIELD",177,2) BLANK "DATA",160.16,11,"FIELD",177,3) L,BLANK "DATA",160.16,11,"FIELD",178,0) 728^1^728^Subsq RX 3rd Course Horm "DATA",160.16,11,"FIELD",178,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.07) "DATA",160.16,11,"FIELD",178,2) BLANK "DATA",160.16,11,"FIELD",178,3) L,BLANK "DATA",160.16,11,"FIELD",179,0) 729^1^729^Subsq RX 3rd Course BRM "DATA",160.16,11,"FIELD",179,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.08) "DATA",160.16,11,"FIELD",179,2) BLANK "DATA",160.16,11,"FIELD",179,3) L,BLANK "DATA",160.16,11,"FIELD",180,0) 730^1^730^Subsq RX 3rd Course Oth "DATA",160.16,11,"FIELD",180,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,.09) "DATA",160.16,11,"FIELD",180,2) BLANK "DATA",160.16,11,"FIELD",180,3) L,BLANK "DATA",160.16,11,"FIELD",181,0) 731^8^738^Subsq RX 4th Course Date "DATA",160.16,11,"FIELD",181,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",181,2) 00000000 "DATA",160.16,11,"FIELD",181,3) L,BLANK "DATA",160.16,11,"FIELD",182,0) 739^2^740^Subsq RX 4th Course Surg "DATA",160.16,11,"FIELD",182,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.04) "DATA",160.16,11,"FIELD",182,2) BLANK "DATA",160.16,11,"FIELD",182,3) L,ZERO "DATA",160.16,11,"FIELD",183,0) 741^1^741^Subsq RX 4th Course Rad "DATA",160.16,11,"FIELD",183,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.05) "DATA",160.16,11,"FIELD",183,2) BLANK "DATA",160.16,11,"FIELD",183,3) L,BLANK "DATA",160.16,11,"FIELD",184,0) 742^1^742^Subsq RX 4th Course Chemo "DATA",160.16,11,"FIELD",184,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.06) "DATA",160.16,11,"FIELD",184,2) BLANK "DATA",160.16,11,"FIELD",184,3) L,BLANK "DATA",160.16,11,"FIELD",185,0) 743^1^743^Subsq RX 4th Course Horm "DATA",160.16,11,"FIELD",185,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.07) "DATA",160.16,11,"FIELD",185,2) BLANK "DATA",160.16,11,"FIELD",185,3) L,BLANK "DATA",160.16,11,"FIELD",186,0) 744^1^744^Subsq RX 4th Course BRM "DATA",160.16,11,"FIELD",186,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.08) "DATA",160.16,11,"FIELD",186,2) BLANK "DATA",160.16,11,"FIELD",186,3) L,BLANK "DATA",160.16,11,"FIELD",187,0) 745^1^745^Subsq RX 4th Course Oth "DATA",160.16,11,"FIELD",187,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,.09) "DATA",160.16,11,"FIELD",187,2) BLANK "DATA",160.16,11,"FIELD",187,3) L,BLANK "DATA",160.16,11,"FIELD",188,0) 746^8^753^Subsq RX 5th Course Date "DATA",160.16,11,"FIELD",188,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",188,2) 00000000 "DATA",160.16,11,"FIELD",188,3) L,BLANK "DATA",160.16,11,"FIELD",189,0) 754^2^755^Subsq RX 5th Course Surg "DATA",160.16,11,"FIELD",189,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.04) "DATA",160.16,11,"FIELD",189,2) BLANK "DATA",160.16,11,"FIELD",189,3) L,ZERO "DATA",160.16,11,"FIELD",190,0) 756^1^756^Subsq RX 5th Course Rad "DATA",160.16,11,"FIELD",190,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.05) "DATA",160.16,11,"FIELD",190,2) BLANK "DATA",160.16,11,"FIELD",190,3) L,BLANK "DATA",160.16,11,"FIELD",191,0) 757^1^757^Subsq RX 5th Course Chemo "DATA",160.16,11,"FIELD",191,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.06) "DATA",160.16,11,"FIELD",191,2) BLANK "DATA",160.16,11,"FIELD",191,3) L,BLANK "DATA",160.16,11,"FIELD",192,0) 758^1^758^Subsq RX 5th Course Horm "DATA",160.16,11,"FIELD",192,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.07) "DATA",160.16,11,"FIELD",192,2) BLANK "DATA",160.16,11,"FIELD",192,3) L,BLANK "DATA",160.16,11,"FIELD",193,0) 759^1^759^Subsq RX 5th Course BRM "DATA",160.16,11,"FIELD",193,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.08) "DATA",160.16,11,"FIELD",193,2) BLANK "DATA",160.16,11,"FIELD",193,3) L,BLANK "DATA",160.16,11,"FIELD",194,0) 760^1^760^Subsq RX 5th Course Oth "DATA",160.16,11,"FIELD",194,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,.09) "DATA",160.16,11,"FIELD",194,2) BLANK "DATA",160.16,11,"FIELD",194,3) L,BLANK "DATA",160.16,11,"FIELD",195,0) 778^4^781^Reserved for Expansion "DATA",160.16,11,"FIELD",195,1) S ACDANS="" "DATA",160.16,11,"FIELD",195,2) BLANK "DATA",160.16,11,"FIELD",195,3) L,BLANK "DATA",160.16,11,"FIELD",196,0) 791^8^798^Date of Last Contact "DATA",160.16,11,"FIELD",196,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,.01) S:ACDANS'="" ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",196,2) NINE "DATA",160.16,11,"FIELD",196,3) L,BLANK "DATA",160.16,11,"FIELD",197,0) 799^1^799^Vital Status "DATA",160.16,11,"FIELD",197,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,1),VS=ACDANS "DATA",160.16,11,"FIELD",197,2) BLANK "DATA",160.16,11,"FIELD",197,3) L,BLANK "DATA",160.16,11,"FIELD",198,0) 800^1^800^Cancer Status "DATA",160.16,11,"FIELD",198,1) S ACDANS=$$CS~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",198,2) NINE "DATA",160.16,11,"FIELD",198,3) L,BLANK "DATA",160.16,11,"FIELD",199,0) 801^1^801^Quality of Survival "DATA",160.16,11,"FIELD",199,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,4) "DATA",160.16,11,"FIELD",199,2) BLANK "DATA",160.16,11,"FIELD",199,3) L,BLANK "DATA",160.16,11,"FIELD",200,0) 802^1^802^Follow-Up Source "DATA",160.16,11,"FIELD",200,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,3) "DATA",160.16,11,"FIELD",200,2) BLANK "DATA",160.16,11,"FIELD",200,3) L,BLANK "DATA",160.16,11,"FIELD",201,0) 803^1^803^Next Follow-Up Source "DATA",160.16,11,"FIELD",201,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,6) "DATA",160.16,11,"FIELD",201,2) BLANK "DATA",160.16,11,"FIELD",201,3) L,BLANK "DATA",160.16,11,"FIELD",202,0) 804^20^823^Addr Current--City "DATA",160.16,11,"FIELD",202,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",202,2) BLANK "DATA",160.16,11,"FIELD",202,3) R,BLANK "DATA",160.16,11,"FIELD",203,0) 824^2^825^Addr Current--State "DATA",160.16,11,"FIELD",203,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",203,2) BLANK "DATA",160.16,11,"FIELD",203,3) R,BLANK "DATA",160.16,11,"FIELD",204,0) 826^9^834^Addr Current--Postal Code "DATA",160.16,11,"FIELD",204,1) S ACDANS=$$ZIP~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",204,2) BLANK "DATA",160.16,11,"FIELD",204,3) R,BLANK "DATA",160.16,11,"FIELD",205,0) 835^2^836^Reserved for Expansion "DATA",160.16,11,"FIELD",205,1) S ACDANS="" "DATA",160.16,11,"FIELD",205,2) BLANK "DATA",160.16,11,"FIELD",205,3) L,BLANK "DATA",160.16,11,"FIELD",206,0) 837^1^837^Unusual Follow-Up Method "DATA",160.16,11,"FIELD",206,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,7) "DATA",160.16,11,"FIELD",206,2) BLANK "DATA",160.16,11,"FIELD",206,3) L,BLANK "DATA",160.16,11,"FIELD",207,0) 838^8^845^Recurrence Date--1st "DATA",160.16,11,"FIELD",207,1) S RT=$$GET1~DIQ(165.5,IEN,71,"I") S:RT'="" RT=$$GET1~DIQ(160.12,RT,.01,"I") S ACDANS=$$GET1~DIQ(165.5,IEN,70,"I") S ACDANS=$S(ACDANS'="":$$DATE~ONCACDU1(ACDANS),(RT="00")!(RT=70):"00000000",1:"") K RT "DATA",160.16,11,"FIELD",207,2) NINE "DATA",160.16,11,"FIELD",207,3) L,NINE "DATA",160.16,11,"FIELD",208,0) 846^3^848^Recurrence Distant Sites "DATA",160.16,11,"FIELD",208,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.1,"I")_$$GET1~DIQ(165.5,IEN,71.2,"I")_$$GET1~DIQ(165.5,IEN,71.3,"I") "DATA",160.16,11,"FIELD",208,2) BLANK "DATA",160.16,11,"FIELD",208,3) L,BLANK "DATA",160.16,11,"FIELD",209,0) 849^2^850^Recurrence Type--1st "DATA",160.16,11,"FIELD",209,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",209,2) NINE "DATA",160.16,11,"FIELD",209,3) L,ZERO "DATA",160.16,11,"FIELD",210,0) 851^2^852^Recurrence Type--1st--Oth "DATA",160.16,11,"FIELD",210,1) S ACDANS=$$GET1~DIQ(165.5,IEN,71.4,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(160.12,ACDANS,.01,"1") "DATA",160.16,11,"FIELD",210,2) NINE "DATA",160.16,11,"FIELD",210,3) L,ZERO "DATA",160.16,11,"FIELD",211,0) 853^3^855^County--Current "DATA",160.16,11,"FIELD",211,1) S ACDANS=$$CCOUNTY~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",211,2) BLANK "DATA",160.16,11,"FIELD",211,3) L,BLANK "DATA",160.16,11,"FIELD",212,0) 878^5^882^Reserved for Expansion "DATA",160.16,11,"FIELD",212,1) S ACDANS="" "DATA",160.16,11,"FIELD",212,2) BLANK "DATA",160.16,11,"FIELD",212,3) L,BLANK "DATA",160.16,11,"FIELD",213,0) 883^4^886^Cause of Death "DATA",160.16,11,"FIELD",213,1) S ACDANS=$$GET1~DIQ(160,ACD160,19,"I") S:ACDANS'="" ACDANS=$$ICD~ONCACDU2(ACDANS) S:ACDANS="" ACDANS=$$GET1~DIQ(160,ACD160,19.1,"I") I ACDANS="",VS=1 S ACDANS="0000" "DATA",160.16,11,"FIELD",213,2) BLANK "DATA",160.16,11,"FIELD",213,3) L,ZERO "DATA",160.16,11,"FIELD",214,0) 887^1^887^ICD Revision Number "DATA",160.16,11,"FIELD",214,1) S ACDANS=$$ICDR~ONCACDU2($$GET1~DIQ(160,ACD160,19,"I")) I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,11,"FIELD",214,2) BLANK "DATA",160.16,11,"FIELD",214,3) L,ZERO "DATA",160.16,11,"FIELD",215,0) 888^1^888^Autopsy "DATA",160.16,11,"FIELD",215,1) S ACDANS=$$GET1~DIQ(160,ACD160,22.9,"I") I ACDANS="",VS=1 S ACDANS=0 "DATA",160.16,11,"FIELD",215,2) BLANK "DATA",160.16,11,"FIELD",215,3) L,BLANK "DATA",160.16,11,"FIELD",216,0) 889^3^891^Place of Death "DATA",160.16,11,"FIELD",216,1) S ACDANS=$$GET1~DIQ(160,ACD160,21,"I") S:ACDANS'="" ACDANS=$$GET1~DIQ(165.2,ACDANS,.02,"I") I ACDANS="",VS=1 S ACDANS=997 "DATA",160.16,11,"FIELD",216,2) BLANK "DATA",160.16,11,"FIELD",216,3) L,BLANK "DATA",160.16,11,"FIELD",217,0) 901^1^901^Reserved for Expansion "DATA",160.16,11,"FIELD",217,1) S ACDANS="" "DATA",160.16,11,"FIELD",217,2) BLANK "DATA",160.16,11,"FIELD",217,3) L,BLANK "DATA",160.16,11,"FIELD",218,0) 902^4^905^Site (73-91) ICD-O-1 "DATA",160.16,11,"FIELD",218,1) S ACDANS="" "DATA",160.16,11,"FIELD",218,2) BLANK "DATA",160.16,11,"FIELD",218,3) L,BLANK "DATA",160.16,11,"FIELD",219,0) 906^6^911^Morph (73-91) ICD-O-1 "DATA",160.16,11,"FIELD",219,1) S ACDANS="" "DATA",160.16,11,"FIELD",219,2) BLANK "DATA",160.16,11,"FIELD",219,3) L,BLANK "DATA",160.16,11,"FIELD",220,0) 912^1^912^ICD-O-2 Conversion Flag "DATA",160.16,11,"FIELD",220,1) S ACDANS=4 "DATA",160.16,11,"FIELD",220,2) BLANK "DATA",160.16,11,"FIELD",220,3) L,BLANK "DATA",160.16,11,"FIELD",221,0) 913^1^913^Over-ride Age/Site/Morph "DATA",160.16,11,"FIELD",221,1) S ACDANS=$$GET1~DIQ(165.5,IEN,205,"I") "DATA",160.16,11,"FIELD",221,2) BLANK "DATA",160.16,11,"FIELD",221,3) L,BLANK "DATA",160.16,11,"FIELD",222,0) 914^1^914^Over-ride SeqNo/DxConf "DATA",160.16,11,"FIELD",222,1) S ACDANS=$$GET1~DIQ(165.5,IEN,206,"I") "DATA",160.16,11,"FIELD",222,2) BLANK "DATA",160.16,11,"FIELD",222,3) L,BLANK "DATA",160.16,11,"FIELD",223,0) 915^1^915^Over-ride Site/Lat/SeqNo "DATA",160.16,11,"FIELD",223,1) S ACDANS=$$GET1~DIQ(165.5,IEN,207,"I") "DATA",160.16,11,"FIELD",223,2) BLANK "DATA",160.16,11,"FIELD",223,3) L,BLANK "DATA",160.16,11,"FIELD",224,0) 916^1^916^Over-ride Surg/DxConf "DATA",160.16,11,"FIELD",224,1) S ACDANS=$$GET1~DIQ(165.5,IEN,208,"I") "DATA",160.16,11,"FIELD",224,2) BLANK "DATA",160.16,11,"FIELD",224,3) L,BLANK "DATA",160.16,11,"FIELD",225,0) 917^1^917^Over-ride Site/Type "DATA",160.16,11,"FIELD",225,1) S ACDANS=$$GET1~DIQ(165.5,IEN,209,"I") "DATA",160.16,11,"FIELD",225,2) BLANK "DATA",160.16,11,"FIELD",225,3) L,BLANK "DATA",160.16,11,"FIELD",226,0) 918^1^918^Over-ride Histology "DATA",160.16,11,"FIELD",226,1) S ACDANS=$$GET1~DIQ(165.5,IEN,210,"I") "DATA",160.16,11,"FIELD",226,2) BLANK "DATA",160.16,11,"FIELD",226,3) L,BLANK "DATA",160.16,11,"FIELD",227,0) 919^1^919^Over-ride Report Source "DATA",160.16,11,"FIELD",227,1) S ACDANS=$$GET1~DIQ(165.5,IEN,211,"I") "DATA",160.16,11,"FIELD",227,2) BLANK "DATA",160.16,11,"FIELD",227,3) L,BLANK "DATA",160.16,11,"FIELD",228,0) 920^1^920^Over-ride Ill-Define Site "DATA",160.16,11,"FIELD",228,1) S ACDANS=$$GET1~DIQ(165.5,IEN,212,"I") "DATA",160.16,11,"FIELD",228,2) BLANK "DATA",160.16,11,"FIELD",228,3) L,BLANK "DATA",160.16,11,"FIELD",229,0) 921^1^921^Over-ride Leuk, Lymphoma "DATA",160.16,11,"FIELD",229,1) S ACDANS=$$GET1~DIQ(165.5,IEN,213,"I") "DATA",160.16,11,"FIELD",229,2) BLANK "DATA",160.16,11,"FIELD",229,3) L,BLANK "DATA",160.16,11,"FIELD",231,0) 952^8^959^Date Case Completed "DATA",160.16,11,"FIELD",231,1) S ACDANS=$$GET1~DIQ(165.5,IEN,90,"I") I ACDANS'="" S ACDANS=$$DATE~ONCACDU1(ACDANS) "DATA",160.16,11,"FIELD",231,2) BLANK "DATA",160.16,11,"FIELD",231,3) L,BLANK "DATA",160.16,11,"FIELD",232,0) 960^8^967^Date Case Last Changed "DATA",160.16,11,"FIELD",232,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,11,"FIELD",232,2) BLANK "DATA",160.16,11,"FIELD",232,3) L,BLANK "DATA",160.16,11,"FIELD",233,0) 968^8^975^Date Case Report Exported "DATA",160.16,11,"FIELD",233,1) S ACDANS="" S:$G(DT)'="" ACDANS=$E(DT,4,5)_$E(DT,6,7)_(1700+$E(DT,1,3)) "DATA",160.16,11,"FIELD",233,2) BLANK "DATA",160.16,11,"FIELD",233,3) L,ZERO "DATA",160.16,11,"FIELD",234,0) 976^1^976^SEER Coding Sys--Current "DATA",160.16,11,"FIELD",234,1) S ACDANS=5 "DATA",160.16,11,"FIELD",234,2) BLANK "DATA",160.16,11,"FIELD",234,3) L,BLANK "DATA",160.16,11,"FIELD",235,0) 977^1^977^SEER Coding Sys--Original "DATA",160.16,11,"FIELD",235,1) S ACDANS=5 "DATA",160.16,11,"FIELD",235,2) BLANK "DATA",160.16,11,"FIELD",235,3) L,BLANK "DATA",160.16,11,"FIELD",236,0) 978^1^978^COC Coding Sys--Current "DATA",160.16,11,"FIELD",236,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",236,2) BLANK "DATA",160.16,11,"FIELD",236,3) L,BLANK "DATA",160.16,11,"FIELD",237,0) 979^1^979^COC Coding Sys--Original "DATA",160.16,11,"FIELD",237,1) S ACDANS=$$VER~ONCACDU2(IEN) "DATA",160.16,11,"FIELD",237,2) BLANK "DATA",160.16,11,"FIELD",237,3) L,BLANK "DATA",160.16,11,"FIELD",238,0) 980^1^980^Reserved for Expansion "DATA",160.16,11,"FIELD",238,1) S ACDANS="" "DATA",160.16,11,"FIELD",238,2) BLANK "DATA",160.16,11,"FIELD",238,3) L,BLANK "DATA",160.16,11,"FIELD",239,0) 981^10^990^Vendor Name "DATA",160.16,11,"FIELD",239,1) S ACDANS=$$STATE~ONCACDU2 "DATA",160.16,11,"FIELD",239,2) BLANK "DATA",160.16,11,"FIELD",239,3) R,BLANK "DATA",160.16,11,"FIELD",240,0) 991^1^991^SEER Type of Follow-Up "DATA",160.16,11,"FIELD",240,1) S ACDANS="" "DATA",160.16,11,"FIELD",240,2) BLANK "DATA",160.16,11,"FIELD",240,3) L,BLANK "DATA",160.16,11,"FIELD",241,0) 992^2^993^SEER Record Number "DATA",160.16,11,"FIELD",241,1) S ACDANS="" "DATA",160.16,11,"FIELD",241,2) BLANK "DATA",160.16,11,"FIELD",241,3) L,BLANK "DATA",160.16,11,"FIELD",242,0) 994^2^995^Diagnostic Proc 73-87 "DATA",160.16,11,"FIELD",242,1) S ACDANS="" "DATA",160.16,11,"FIELD",242,2) BLANK "DATA",160.16,11,"FIELD",242,3) L,BLANK "DATA",160.16,11,"FIELD",243,0) 1020^1^1020^ICD-O-3 Conversion Flag "DATA",160.16,11,"FIELD",243,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:0,1:1) K DATEDX "DATA",160.16,11,"FIELD",243,2) BLANK "DATA",160.16,11,"FIELD",243,3) L,BLANK "DATA",160.16,11,"FIELD",284,0) 1785^25^1809^Follow-Up Contact--No&St "DATA",160.16,11,"FIELD",284,1) S ACDANS="" "DATA",160.16,11,"FIELD",284,2) BLANK "DATA",160.16,11,"FIELD",284,3) L,BLANK "DATA",160.16,11,"FIELD",285,0) 942^10^951^CRC CHECKSUM "DATA",160.16,11,"FIELD",285,1) S ACDANS="" "DATA",160.16,11,"FIELD",285,2) BLANK "DATA",160.16,11,"FIELD",285,3) L,BLANK "DATA",160.16,11,"FIELD",286,0) 12^7^18^Reserved for Expansion "DATA",160.16,11,"FIELD",286,1) S ACDANS="" "DATA",160.16,11,"FIELD",286,2) BLANK "DATA",160.16,11,"FIELD",286,3) L,BLANK "DATA",160.16,11,"FIELD",287,0) 204^2^205^Race 2 "DATA",160.16,11,"FIELD",287,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.1,"I") "DATA",160.16,11,"FIELD",287,2) BLANK "DATA",160.16,11,"FIELD",287,3) L,ZERO "DATA",160.16,11,"FIELD",288,0) 271^15^285^Reporting Hospital "DATA",160.16,11,"FIELD",288,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",288,2) ZERO "DATA",160.16,11,"FIELD",288,3) L,ZERO "DATA",160.16,11,"FIELD",289,0) 1712^15^1726^Institution Referred To "DATA",160.16,11,"FIELD",289,1) S ACDANS=$$GET1~DIQ(165.5,IEN,7,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:"6"_ACDANS) "DATA",160.16,11,"FIELD",289,2) ZERO "DATA",160.16,11,"FIELD",289,3) L,ZERO "DATA",160.16,11,"FIELD",290,0) 1828^15^1842^Following Registry "DATA",160.16,11,"FIELD",290,1) S ACDANS=$$FNODE~ONCACDU2(ACD160,10) S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",290,2) ZERO "DATA",160.16,11,"FIELD",290,3) L,ZERO "DATA",160.16,11,"FIELD",291,0) 1843^4^1846^Reserved for Expansion "DATA",160.16,11,"FIELD",291,1) S ACDANS="" "DATA",160.16,11,"FIELD",291,2) BLANK "DATA",160.16,11,"FIELD",291,3) L,BLANK "DATA",160.16,11,"FIELD",292,0) 1027^1^1027^Ionizing Radiation Exposure "DATA",160.16,11,"FIELD",292,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,50,"I")) "DATA",160.16,11,"FIELD",292,2) BLANK "DATA",160.16,11,"FIELD",292,3) L,BLANK "DATA",160.16,11,"FIELD",293,0) 1028^1^1028^Persian Gulf Service "DATA",160.16,11,"FIELD",293,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,51,"I")) "DATA",160.16,11,"FIELD",293,2) BLANK "DATA",160.16,11,"FIELD",293,3) L,BLANK "DATA",160.16,11,"FIELD",294,0) 1029^1^1029^Chemical Exposure "DATA",160.16,11,"FIELD",294,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,52,"I")) "DATA",160.16,11,"FIELD",294,2) BLANK "DATA",160.16,11,"FIELD",294,3) L,BLANK "DATA",160.16,11,"FIELD",295,0) 1030^1^1030^Asbestos Exposure "DATA",160.16,11,"FIELD",295,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,61,"I")) "DATA",160.16,11,"FIELD",295,2) BLANK "DATA",160.16,11,"FIELD",295,3) L,BLANK "DATA",160.16,11,"FIELD",296,0) 1031^2^1032^VISN "DATA",160.16,11,"FIELD",296,1) S ACDANS=$$VASIT~ONCACDU2 "DATA",160.16,11,"FIELD",296,2) BLANK "DATA",160.16,11,"FIELD",296,3) L,ZERO "DATA",160.16,11,"FIELD",297,0) 1033^2^1034^Reserved for DOD usage "DATA",160.16,11,"FIELD",297,1) S ACDANS="" "DATA",160.16,11,"FIELD",297,2) BLANK "DATA",160.16,11,"FIELD",297,3) L,BLANK "DATA",160.16,11,"FIELD",298,0) 206^2^207^Race 3 "DATA",160.16,11,"FIELD",298,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.2,"I") "DATA",160.16,11,"FIELD",298,2) BLANK "DATA",160.16,11,"FIELD",298,3) L,ZERO "DATA",160.16,11,"FIELD",299,0) 208^2^209^Race 4 "DATA",160.16,11,"FIELD",299,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.3,"I") "DATA",160.16,11,"FIELD",299,2) BLANK "DATA",160.16,11,"FIELD",299,3) L,ZERO "DATA",160.16,11,"FIELD",300,0) 210^2^211^Race 5 "DATA",160.16,11,"FIELD",300,1) S ACDANS=$$GET1~DIQ(160,ACD160,8.4,"I") "DATA",160.16,11,"FIELD",300,2) BLANK "DATA",160.16,11,"FIELD",300,3) L,ZERO "DATA",160.16,11,"FIELD",301,0) 212^5^216^Reserved for Expansion "DATA",160.16,11,"FIELD",301,1) S ACDANS="" "DATA",160.16,11,"FIELD",301,2) BLANK "DATA",160.16,11,"FIELD",301,3) L,BLANK "DATA",160.16,11,"FIELD",302,0) 261^10^270^Reporting Hospital FAN "DATA",160.16,11,"FIELD",302,1) S ACDANS="" "DATA",160.16,11,"FIELD",302,2) ZERO "DATA",160.16,11,"FIELD",302,3) L,ZERO "DATA",160.16,11,"FIELD",304,0) 258^3^260^Reserved for Expansion "DATA",160.16,11,"FIELD",304,1) S ACDANS="" "DATA",160.16,11,"FIELD",304,2) BLANK "DATA",160.16,11,"FIELD",304,3) L,BLANK "DATA",160.16,11,"FIELD",305,0) 387^1^387^SEER Summary Stage 2000 "DATA",160.16,11,"FIELD",305,1) S DATEDX=$$GET1~DIQ(165.5,IEN,3,"I") S ACDANS=$S(DATEDX>3001231:$$GET1~DIQ(165.5,IEN,35,"I"),1:"") K DATEDX "DATA",160.16,11,"FIELD",305,2) BLANK "DATA",160.16,11,"FIELD",305,3) L,ZERO "DATA",160.16,11,"FIELD",306,0) 782^1^782^Over-ride SS/NodePos "DATA",160.16,11,"FIELD",306,1) S ACDANS=$$GET1~DIQ(165.5,IEN,218,"I") "DATA",160.16,11,"FIELD",306,2) BLANK "DATA",160.16,11,"FIELD",306,3) L,BLANK "DATA",160.16,11,"FIELD",307,0) 783^1^783^Over-ride SS/TNM-N "DATA",160.16,11,"FIELD",307,1) S ACDANS=$$GET1~DIQ(165.5,IEN,219,"I") "DATA",160.16,11,"FIELD",307,2) BLANK "DATA",160.16,11,"FIELD",307,3) L,BLANK "DATA",160.16,11,"FIELD",308,0) 784^1^784^Over-ride SS/TNM-M "DATA",160.16,11,"FIELD",308,1) S ACDANS=$$GET1~DIQ(165.5,IEN,220,"I") "DATA",160.16,11,"FIELD",308,2) BLANK "DATA",160.16,11,"FIELD",308,3) L,BLANK "DATA",160.16,11,"FIELD",309,0) 785^1^785^Over-ride SS/DisMet1 "DATA",160.16,11,"FIELD",309,1) S ACDANS=$$GET1~DIQ(165.5,IEN,221,"I") "DATA",160.16,11,"FIELD",309,2) BLANK "DATA",160.16,11,"FIELD",309,3) L,BLANK "DATA",160.16,11,"FIELD",310,0) 786^1^786^Over-ride Acsn/Class/Seq "DATA",160.16,11,"FIELD",310,1) S ACDANS=$$GET1~DIQ(165.5,IEN,222,"I") "DATA",160.16,11,"FIELD",310,2) BLANK "DATA",160.16,11,"FIELD",310,3) L,BLANK "DATA",160.16,11,"FIELD",311,0) 787^1^787^Over-ride HospSeq/DxConf "DATA",160.16,11,"FIELD",311,1) S ACDANS=$$GET1~DIQ(165.5,IEN,223,"I") "DATA",160.16,11,"FIELD",311,2) BLANK "DATA",160.16,11,"FIELD",311,3) L,BLANK "DATA",160.16,11,"FIELD",312,0) 788^1^788^Over-ride COC-Site/Type "DATA",160.16,11,"FIELD",312,1) S ACDANS=$$GET1~DIQ(165.5,IEN,224,"I") "DATA",160.16,11,"FIELD",312,2) BLANK "DATA",160.16,11,"FIELD",312,3) L,BLANK "DATA",160.16,11,"FIELD",313,0) 789^1^789^Over-ride HospSeq/Site "DATA",160.16,11,"FIELD",313,1) S ACDANS=$$GET1~DIQ(165.5,IEN,225,"I") "DATA",160.16,11,"FIELD",313,2) BLANK "DATA",160.16,11,"FIELD",313,3) L,BLANK "DATA",160.16,11,"FIELD",314,0) 790^1^790^Over-ride Site/TNM-StgGrp "DATA",160.16,11,"FIELD",314,1) S ACDANS=$$GET1~DIQ(165.5,IEN,226,"I") "DATA",160.16,11,"FIELD",314,2) BLANK "DATA",160.16,11,"FIELD",314,3) L,BLANK "DATA",160.16,11,"FIELD",315,0) 1021^5^1025^Reserved for Expansion "DATA",160.16,11,"FIELD",315,1) S ACDANS="" "DATA",160.16,11,"FIELD",315,2) BLANK "DATA",160.16,11,"FIELD",315,3) L,BLANK "DATA",160.16,11,"FIELD",339,0) 188^1^188^Census Tract Certainty "DATA",160.16,11,"FIELD",339,1) S ACDANS="" "DATA",160.16,11,"FIELD",339,2) BLANK "DATA",160.16,11,"FIELD",339,3) L,BLANK "DATA",160.16,11,"FIELD",340,0) 343^1^343^RX Hosp--Scope Reg LN Sur "DATA",160.16,11,"FIELD",340,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138.1,"SC5") "DATA",160.16,11,"FIELD",340,2) BLANK "DATA",160.16,11,"FIELD",340,3) L,ZERO "DATA",160.16,11,"FIELD",341,0) 344^1^344^RX Hosp--Surg Oth Reg/Dis "DATA",160.16,11,"FIELD",341,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139.1,"SO5") "DATA",160.16,11,"FIELD",341,2) BLANK "DATA",160.16,11,"FIELD",341,3) L,BLANK "DATA",160.16,11,"FIELD",342,0) 345^2^346^RX Hosp--Reg LN Removed "DATA",160.16,11,"FIELD",342,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140.1,"I") "DATA",160.16,11,"FIELD",342,2) BLANK "DATA",160.16,11,"FIELD",342,3) L,ZERO "DATA",160.16,11,"FIELD",343,0) 358^1^358^RX Hosp--Screen/BX Proc1 "DATA",160.16,11,"FIELD",343,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,11,"FIELD",343,2) BLANK "DATA",160.16,11,"FIELD",343,3) L,BLANK "DATA",160.16,11,"FIELD",344,0) 359^1^359^RX Hosp--Screen/BX Proc2 "DATA",160.16,11,"FIELD",344,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,11,"FIELD",344,2) BLANK "DATA",160.16,11,"FIELD",344,3) L,BLANK "DATA",160.16,11,"FIELD",345,0) 360^1^360^RX Hosp--Screen/BX Proc3 "DATA",160.16,11,"FIELD",345,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,11,"FIELD",345,2) BLANK "DATA",160.16,11,"FIELD",345,3) L,BLANK "DATA",160.16,11,"FIELD",346,0) 361^1^361^RX Hosp--Screen/BX Proc4 "DATA",160.16,11,"FIELD",346,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,11,"FIELD",346,2) BLANK "DATA",160.16,11,"FIELD",346,3) L,BLANK "DATA",160.16,11,"FIELD",347,0) 611^1^611^RX Summ--Scope Reg LN Sur "DATA",160.16,11,"FIELD",347,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,138,"SC5") "DATA",160.16,11,"FIELD",347,2) NINE "DATA",160.16,11,"FIELD",347,3) L,ZERO "DATA",160.16,11,"FIELD",348,0) 612^1^612^RX Summ--Surg Oth Reg/Dis "DATA",160.16,11,"FIELD",348,1) S ACDANS=$$RXPRI~ONCACDU2(IEN,139,"SO5") "DATA",160.16,11,"FIELD",348,2) NINE "DATA",160.16,11,"FIELD",348,3) L,NINE "DATA",160.16,11,"FIELD",349,0) 613^2^614^RX Summ--Reg LN Examined "DATA",160.16,11,"FIELD",349,1) S ACDANS=$$GET1~DIQ(165.5,IEN,140,"I") "DATA",160.16,11,"FIELD",349,2) NINE "DATA",160.16,11,"FIELD",349,3) L,ZERO "DATA",160.16,11,"FIELD",350,0) 673^1^673^RX Summ--Screen/BX Proc1 "DATA",160.16,11,"FIELD",350,1) S ACDANS=$$HOSP1~ONCACDU2(1,IEN) "DATA",160.16,11,"FIELD",350,2) BLANK "DATA",160.16,11,"FIELD",350,3) L,BLANK "DATA",160.16,11,"FIELD",351,0) 674^1^674^RX Summ--Screen/BX Proc2 "DATA",160.16,11,"FIELD",351,1) S ACDANS=$$HOSP1~ONCACDU2(2,IEN) "DATA",160.16,11,"FIELD",351,2) BLANK "DATA",160.16,11,"FIELD",351,3) L,BLANK "DATA",160.16,11,"FIELD",352,0) 675^1^675^RX Summ--Screen/BX Proc3 "DATA",160.16,11,"FIELD",352,1) S ACDANS=$$HOSP1~ONCACDU2(3,IEN) "DATA",160.16,11,"FIELD",352,2) BLANK "DATA",160.16,11,"FIELD",352,3) L,BLANK "DATA",160.16,11,"FIELD",353,0) 676^1^676^RX Summ--Screen/BX Proc4 "DATA",160.16,11,"FIELD",353,1) S ACDANS=$$HOSP1~ONCACDU2(4,IEN) "DATA",160.16,11,"FIELD",353,2) BLANK "DATA",160.16,11,"FIELD",353,3) L,BLANK "DATA",160.16,11,"FIELD",354,0) 761^1^761^Subsq RX 2nd--Scope Ln Su "DATA",160.16,11,"FIELD",354,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,35) "DATA",160.16,11,"FIELD",354,2) BLANK "DATA",160.16,11,"FIELD",354,3) L,BLANK "DATA",160.16,11,"FIELD",355,0) 762^1^762^Subsq RX 2nd--Surg Oth "DATA",160.16,11,"FIELD",355,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,36) "DATA",160.16,11,"FIELD",355,2) BLANK "DATA",160.16,11,"FIELD",355,3) L,BLANK "DATA",160.16,11,"FIELD",356,0) 763^2^764^Subsq RX 2nd--Reg LN Rem "DATA",160.16,11,"FIELD",356,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,37) "DATA",160.16,11,"FIELD",356,2) BLANK "DATA",160.16,11,"FIELD",356,3) L,BLANK "DATA",160.16,11,"FIELD",357,0) 765^1^765^Subsq RX 3rd--Scope LN Su "DATA",160.16,11,"FIELD",357,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,35) "DATA",160.16,11,"FIELD",357,2) BLANK "DATA",160.16,11,"FIELD",357,3) L,BLANK "DATA",160.16,11,"FIELD",358,0) 766^1^766^Subsq RX 3rd--Surg Oth "DATA",160.16,11,"FIELD",358,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,36) "DATA",160.16,11,"FIELD",358,2) BLANK "DATA",160.16,11,"FIELD",358,3) L,BLANK "DATA",160.16,11,"FIELD",359,0) 767^2^768^Subsq RX 3rd--Reg LN Rem "DATA",160.16,11,"FIELD",359,1) S ACDANS=$$SUB~ONCACDU2(IEN,3,37) "DATA",160.16,11,"FIELD",359,2) BLANK "DATA",160.16,11,"FIELD",359,3) L,BLANK "DATA",160.16,11,"FIELD",360,0) 769^1^769^Subsq RX 4th--Scope LN Su "DATA",160.16,11,"FIELD",360,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,35) "DATA",160.16,11,"FIELD",360,2) BLANK "DATA",160.16,11,"FIELD",360,3) L,BLANK "DATA",160.16,11,"FIELD",361,0) 770^1^770^Subsq RX 4th--Surg Oth "DATA",160.16,11,"FIELD",361,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,36) "DATA",160.16,11,"FIELD",361,2) BLANK "DATA",160.16,11,"FIELD",361,3) L,BLANK "DATA",160.16,11,"FIELD",362,0) 771^2^772^Subsq RX 4th--Reg LN Rem "DATA",160.16,11,"FIELD",362,1) S ACDANS=$$SUB~ONCACDU2(IEN,4,37) "DATA",160.16,11,"FIELD",362,2) BLANK "DATA",160.16,11,"FIELD",362,3) L,BLANK "DATA",160.16,11,"FIELD",363,0) 773^1^773^Subsq RX 5th--Scope LN Su "DATA",160.16,11,"FIELD",363,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,35) "DATA",160.16,11,"FIELD",363,2) BLANK "DATA",160.16,11,"FIELD",363,3) L,BLANK "DATA",160.16,11,"FIELD",364,0) 774^1^774^Subsq RX 5th--Surg Oth "DATA",160.16,11,"FIELD",364,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,36) "DATA",160.16,11,"FIELD",364,2) BLANK "DATA",160.16,11,"FIELD",364,3) L,BLANK "DATA",160.16,11,"FIELD",365,0) 775^2^776^Subsq RX 5th--Reg LN Rem "DATA",160.16,11,"FIELD",365,1) S ACDANS=$$SUB~ONCACDU2(IEN,5,37) "DATA",160.16,11,"FIELD",365,2) BLANK "DATA",160.16,11,"FIELD",365,3) L,BLANK "DATA",160.16,11,"FIELD",366,0) 777^1^777^Subsq RX--Reconstruct Del "DATA",160.16,11,"FIELD",366,1) S ACDANS=$$SUB~ONCACDU2(IEN,2,33) "DATA",160.16,11,"FIELD",366,2) NINE "DATA",160.16,11,"FIELD",366,3) L,NINE "DATA",160.16,11,"FIELD",367,0) 856^20^875^Follow-Up Contact--City "DATA",160.16,11,"FIELD",367,1) S ACDANS=$$CCTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",367,2) BLANK "DATA",160.16,11,"FIELD",367,3) R,BLANK "DATA",160.16,11,"FIELD",368,0) 876^2^877^Follow-Up Contact--State "DATA",160.16,11,"FIELD",368,1) S ACDANS=$$CSTST~ONCACDU2(ACD160) "DATA",160.16,11,"FIELD",368,2) BLANK "DATA",160.16,11,"FIELD",368,3) L,BLANK "DATA",160.16,11,"FIELD",369,0) 892^9^900^Follow-Up Contact--Postal "DATA",160.16,11,"FIELD",369,1) S ACDANS="" "DATA",160.16,11,"FIELD",369,2) BLANK "DATA",160.16,11,"FIELD",369,3) L,BLANK "DATA",160.16,11,"FIELD",370,0) 922^1^922^Over-ride Site/Behavior "DATA",160.16,11,"FIELD",370,1) S ACDANS=$$GET1~DIQ(165.5,IEN,214,"I") "DATA",160.16,11,"FIELD",370,2) BLANK "DATA",160.16,11,"FIELD",370,3) L,BLANK "DATA",160.16,11,"FIELD",371,0) 923^1^923^Over-ride Site/EOD/DX Dt "DATA",160.16,11,"FIELD",371,1) S ACDANS=$$GET1~DIQ(165.5,IEN,215,"I") "DATA",160.16,11,"FIELD",371,2) BLANK "DATA",160.16,11,"FIELD",371,3) L,BLANK "DATA",160.16,11,"FIELD",372,0) 924^1^924^Over-ride Site/Lat/EOD "DATA",160.16,11,"FIELD",372,1) S ACDANS=$$GET1~DIQ(165.5,IEN,216,"I") "DATA",160.16,11,"FIELD",372,2) BLANK "DATA",160.16,11,"FIELD",372,3) L,BLANK "DATA",160.16,11,"FIELD",373,0) 925^1^925^Over-ride Site/Lat/Morph "DATA",160.16,11,"FIELD",373,1) S ACDANS=$$GET1~DIQ(165.5,IEN,217,"I") "DATA",160.16,11,"FIELD",373,2) BLANK "DATA",160.16,11,"FIELD",373,3) L,BLANK "DATA",160.16,11,"FIELD",374,0) 926^8^933^Future Use Timeliness 1 "DATA",160.16,11,"FIELD",374,1) S ACDANS="" "DATA",160.16,11,"FIELD",374,2) BLANK "DATA",160.16,11,"FIELD",374,3) L,BLANK "DATA",160.16,11,"FIELD",375,0) 934^8^941^Future Use Timeliness 2 "DATA",160.16,11,"FIELD",375,1) S ACDANS="" "DATA",160.16,11,"FIELD",375,2) BLANK "DATA",160.16,11,"FIELD",375,3) L,BLANK "DATA",160.16,11,"FIELD",376,0) 996^8^1003^Date Case Report Received "DATA",160.16,11,"FIELD",376,1) S ACDANS="" "DATA",160.16,11,"FIELD",376,2) BLANK "DATA",160.16,11,"FIELD",376,3) L,BLANK "DATA",160.16,11,"FIELD",377,0) 1004^8^1011^Date Case Report Loaded "DATA",160.16,11,"FIELD",377,1) S ACDANS="" "DATA",160.16,11,"FIELD",377,2) BLANK "DATA",160.16,11,"FIELD",377,3) L,BLANK "DATA",160.16,11,"FIELD",378,0) 1012^8^1019^Date Tumor Record Availbl "DATA",160.16,11,"FIELD",378,1) S ACDANS="" "DATA",160.16,11,"FIELD",378,2) BLANK "DATA",160.16,11,"FIELD",378,3) L,BLANK "DATA",160.16,11,"FIELD",379,0) 1026^1^1026^Agent Orange Exposure "DATA",160.16,11,"FIELD",379,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,48,"I")) "DATA",160.16,11,"FIELD",379,2) BLANK "DATA",160.16,11,"FIELD",379,3) L,BLANK "DATA",160.16,11,"FIELD",381,0) 1526^25^1550^Name--Last "DATA",160.16,11,"FIELD",381,1) S ACDANS=$$GET1~DIQ(160,ACD160,.011,"E") D NL~ONCACDU1 "DATA",160.16,11,"FIELD",381,2) BLANK "DATA",160.16,11,"FIELD",381,3) R,BLANK "DATA",160.16,11,"FIELD",382,0) 1551^14^1564^Name--First "DATA",160.16,11,"FIELD",382,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P($P(ACDANS,",",2)," ") "DATA",160.16,11,"FIELD",382,2) BLANK "DATA",160.16,11,"FIELD",382,3) R,BLANK "DATA",160.16,11,"FIELD",383,0) 1565^14^1578^Name--Middle "DATA",160.16,11,"FIELD",383,1) S ACDANS=$$GET1~DIQ(160,ACD160,.015,"E") "DATA",160.16,11,"FIELD",383,2) BLANK "DATA",160.16,11,"FIELD",383,3) R,BLANK "DATA",160.16,11,"FIELD",384,0) 1579^3^1581^Name--Prefix "DATA",160.16,11,"FIELD",384,1) S ACDANS="" "DATA",160.16,11,"FIELD",384,2) BLANK "DATA",160.16,11,"FIELD",384,3) R,BLANK "DATA",160.16,11,"FIELD",385,0) 1582^3^1584^Name--Suffix "DATA",160.16,11,"FIELD",385,1) S ACDANS=$$GET1~DIQ(160,ACD160,.01,"E") S:ACDANS'="" ACDANS=$P(ACDANS," ",3) "DATA",160.16,11,"FIELD",385,2) BLANK "DATA",160.16,11,"FIELD",385,3) R,BLANK "DATA",160.16,11,"FIELD",386,0) 1585^15^1599^Name--Alias "DATA",160.16,11,"FIELD",386,1) S ACDANS=$$ALIAS~ONCACDU1(ACD160) "DATA",160.16,11,"FIELD",386,2) BLANK "DATA",160.16,11,"FIELD",386,3) R,BLANK "DATA",160.16,11,"FIELD",387,0) 1600^50^1649^Name--Spouse/Parent "DATA",160.16,11,"FIELD",387,1) S ACDANS="" "DATA",160.16,11,"FIELD",387,2) BLANK "DATA",160.16,11,"FIELD",387,3) R,BLANK "DATA",160.16,11,"FIELD",388,0) 1650^11^1660^Medical Record Number "DATA",160.16,11,"FIELD",388,1) S ACDANS=$$GET1~DIQ(160,ACD160,2,"E"),ACDANS=$E(ACDANS,1,3)_$E(ACDANS,5,6)_$E(ACDANS,8,11) "DATA",160.16,11,"FIELD",388,2) BLANK "DATA",160.16,11,"FIELD",388,3) L,BLANK "DATA",160.16,11,"FIELD",389,0) 1661^2^1662^Military Record No Suffix "DATA",160.16,11,"FIELD",389,1) S ACDANS="" "DATA",160.16,11,"FIELD",389,2) BLANK "DATA",160.16,11,"FIELD",389,3) L,ZERO "DATA",160.16,11,"FIELD",390,0) 1663^9^1671^Social Security Number "DATA",160.16,11,"FIELD",390,1) S ACDANS=$P($$GET1~DIQ(160,ACD160,2,"E"),"-")_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",2)_$P($$GET1~DIQ(160,ACD160,2,"E"),"-",3) "DATA",160.16,11,"FIELD",390,2) NINE "DATA",160.16,11,"FIELD",390,3) L,BLANK "DATA",160.16,11,"FIELD",391,0) 1672^25^1696^Addr at DX--No & Street "DATA",160.16,11,"FIELD",391,1) S ACDANS=$$GET1~DIQ(165.5,IEN,8,"E") "DATA",160.16,11,"FIELD",391,2) BLANK "DATA",160.16,11,"FIELD",391,3) R,BLANK "DATA",160.16,11,"FIELD",392,0) 1697^15^1711^Institution Referred From "DATA",160.16,11,"FIELD",392,1) S ACDANS=$$GET1~DIQ(165.5,IEN,6,"I") I ACDANS'="" S ACDANS=$$GET1~DIQ(160.19,ACDANS,.01,"I") S ACDANS=$S(+ACDANS=0:ACDANS,1:"6"_ACDANS) "DATA",160.16,11,"FIELD",392,2) ZERO "DATA",160.16,11,"FIELD",392,3) L,ZERO "DATA",160.16,11,"FIELD",393,0) 1727^25^1751^Addr Current--No & Street "DATA",160.16,11,"FIELD",393,1) S ACDANS=$$GET1~DIQ(160,ACD160,.119,"E") "DATA",160.16,11,"FIELD",393,2) BLANK "DATA",160.16,11,"FIELD",393,3) R,BLANK "DATA",160.16,11,"FIELD",394,0) 1752^10^1761^Telephone "DATA",160.16,11,"FIELD",394,1) S ACDANS=$$GET1~DIQ(160,ACD160,.131,"E") S:ACDANS'="" ACDANS=$TR(ACDANS,"() -","") "DATA",160.16,11,"FIELD",394,2) ZERO "DATA",160.16,11,"FIELD",394,3) R,BLANK "DATA",160.16,11,"FIELD",395,0) 1762^2^1763^Reserved for Expansion "DATA",160.16,11,"FIELD",395,1) S ACDANS="" "DATA",160.16,11,"FIELD",395,2) BLANK "DATA",160.16,11,"FIELD",395,3) L,BLANK "DATA",160.16,11,"FIELD",396,0) 1764^6^1769^DC State File Number "DATA",160.16,11,"FIELD",396,1) S ACDANS="" "DATA",160.16,11,"FIELD",396,2) BLANK "DATA",160.16,11,"FIELD",396,3) L,BLANK "DATA",160.16,11,"FIELD",397,0) 1770^15^1784^Name--Maiden "DATA",160.16,11,"FIELD",397,1) S ACDANS="" "DATA",160.16,11,"FIELD",397,2) BLANK "DATA",160.16,11,"FIELD",397,3) R,BLANK "DATA",160.16,11,"FIELD",398,0) 1810^3^1812^Reserved for Expansion "DATA",160.16,11,"FIELD",398,1) S ACDANS="" "DATA",160.16,11,"FIELD",398,2) BLANK "DATA",160.16,11,"FIELD",398,3) L,BLANK "DATA",160.16,11,"FIELD",399,0) 1813^15^1827^Last Follow-Up Hospital "DATA",160.16,11,"FIELD",399,1) S ACDANS=$$GET1~DIQ(165.5,IEN,.03,"I") S:ACDANS'="" ACDANS="6"_$$GET1~DIQ(160.19,ACDANS,.01,"I") "DATA",160.16,11,"FIELD",399,2) ZERO "DATA",160.16,11,"FIELD",399,3) L,ZERO "DATA",160.16,11,"FIELD",404,0) 1847^8^1854^Physician--Managing "DATA",160.16,11,"FIELD",404,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.2,"E") "DATA",160.16,11,"FIELD",404,2) NINE "DATA",160.16,11,"FIELD",404,3) R,BLANK "DATA",160.16,11,"FIELD",405,0) 1855^8^1862^Physician--Follow-Up "DATA",160.16,11,"FIELD",405,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.1,"E") "DATA",160.16,11,"FIELD",405,2) NINE "DATA",160.16,11,"FIELD",405,3) R,BLANK "DATA",160.16,11,"FIELD",406,0) 1863^8^1870^Physician--Primary Surg "DATA",160.16,11,"FIELD",406,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2,"E") "DATA",160.16,11,"FIELD",406,2) ZERO "DATA",160.16,11,"FIELD",406,3) R,BLANK "DATA",160.16,11,"FIELD",407,0) 1871^8^1878^Physician 3 "DATA",160.16,11,"FIELD",407,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.3,"E") "DATA",160.16,11,"FIELD",407,2) ZERO "DATA",160.16,11,"FIELD",407,3) R,BLANK "DATA",160.16,11,"FIELD",408,0) 1879^8^1886^Physician 4 "DATA",160.16,11,"FIELD",408,1) S ACDANS=$$GET1~DIQ(165.5,IEN,2.4,"E") "DATA",160.16,11,"FIELD",408,2) ZERO "DATA",160.16,11,"FIELD",408,3) R,BLANK "DATA",160.16,11,"FIELD",409,0) 1887^30^1916^Follow-Up Contact--Name "DATA",160.16,11,"FIELD",409,1) S ACDANS="" "DATA",160.16,11,"FIELD",409,2) BLANK "DATA",160.16,11,"FIELD",409,3) L,BLANK "DATA",160.16,11,"FIELD",410,0) 1917^200^2116^Text--Dx Proc--PE "DATA",160.16,11,"FIELD",410,1) S ACDANS=$$WORD~ONCACDU2(IEN,10,200) "DATA",160.16,11,"FIELD",410,2) BLANK "DATA",160.16,11,"FIELD",410,3) R,BLANK "DATA",160.16,11,"FIELD",411,0) 2117^250^2366^Text--Dx Proc--X-ray/scan "DATA",160.16,11,"FIELD",411,1) S ACDANS=$$WORD~ONCACDU2(IEN,11,250) "DATA",160.16,11,"FIELD",411,2) BLANK "DATA",160.16,11,"FIELD",411,3) R,BLANK "DATA",160.16,11,"FIELD",412,0) 2367^250^2616^Text--Dx Proc--Scopes "DATA",160.16,11,"FIELD",412,1) S ACDANS=$$WORD~ONCACDU2(IEN,12,250) "DATA",160.16,11,"FIELD",412,2) BLANK "DATA",160.16,11,"FIELD",412,3) R,BLANK "DATA",160.16,11,"FIELD",413,0) 2617^250^2866^Text--Dx Proc--Lab Tests "DATA",160.16,11,"FIELD",413,1) S ACDANS=$$WORD~ONCACDU2(IEN,22,250) "DATA",160.16,11,"FIELD",413,2) BLANK "DATA",160.16,11,"FIELD",413,3) R,BLANK "DATA",160.16,11,"FIELD",414,0) 2867^250^3116^Text--Dx Proc--Op "DATA",160.16,11,"FIELD",414,1) S ACDANS=$$WORD~ONCACDU2(IEN,9,250) "DATA",160.16,11,"FIELD",414,2) BLANK "DATA",160.16,11,"FIELD",414,3) R,BLANK "DATA",160.16,11,"FIELD",415,0) 3117^250^3366^Text--Dx Proc--Path "DATA",160.16,11,"FIELD",415,1) S ACDANS=$$WORD~ONCACDU2(IEN,13,250) "DATA",160.16,11,"FIELD",415,2) BLANK "DATA",160.16,11,"FIELD",415,3) R,BLANK "DATA",160.16,11,"FIELD",416,0) 3367^40^3406^Text--Primary Site Title "DATA",160.16,11,"FIELD",416,1) S ACDANS=$$GET1~DIQ(165.5,IEN,100,"E") "DATA",160.16,11,"FIELD",416,2) BLANK "DATA",160.16,11,"FIELD",416,3) R,BLANK "DATA",160.16,11,"FIELD",417,0) 3407^40^3446^Text--Histology Title "DATA",160.16,11,"FIELD",417,1) S ACDANS=$$GET1~DIQ(165.5,IEN,101,"E") "DATA",160.16,11,"FIELD",417,2) BLANK "DATA",160.16,11,"FIELD",417,3) R,BLANK "DATA",160.16,11,"FIELD",418,0) 3447^300^3746^Text--Staging "DATA",160.16,11,"FIELD",418,1) S ACDANS="" "DATA",160.16,11,"FIELD",418,2) BLANK "DATA",160.16,11,"FIELD",418,3) R,BLANK "DATA",160.16,11,"FIELD",419,0) 3747^150^3896^RX Text--Surgery "DATA",160.16,11,"FIELD",419,1) S ACDANS=$$WORD~ONCACDU2(IEN,14,150) "DATA",160.16,11,"FIELD",419,2) BLANK "DATA",160.16,11,"FIELD",419,3) R,BLANK "DATA",160.16,11,"FIELD",420,0) 3897^150^4046^RX Text--Radiation (Beam) "DATA",160.16,11,"FIELD",420,1) S ACDANS=$$WORD~ONCACDU2(IEN,15,150) "DATA",160.16,11,"FIELD",420,2) BLANK "DATA",160.16,11,"FIELD",420,3) R,BLANK "DATA",160.16,11,"FIELD",421,0) 4047^150^4196^RX Text--Radiation Other "DATA",160.16,11,"FIELD",421,1) S ACDANS=$$WORD~ONCACDU2(IEN,16,150) "DATA",160.16,11,"FIELD",421,2) BLANK "DATA",160.16,11,"FIELD",421,3) R,BLANK "DATA",160.16,11,"FIELD",422,0) 4197^200^4396^RX Text--Chemo "DATA",160.16,11,"FIELD",422,1) S ACDANS=$$WORD~ONCACDU2(IEN,17,200) "DATA",160.16,11,"FIELD",422,2) BLANK "DATA",160.16,11,"FIELD",422,3) R,BLANK "DATA",160.16,11,"FIELD",423,0) 4397^200^4596^RX Text--Hormone "DATA",160.16,11,"FIELD",423,1) S ACDANS=$$WORD~ONCACDU2(IEN,18,200) "DATA",160.16,11,"FIELD",423,2) BLANK "DATA",160.16,11,"FIELD",423,3) R,BLANK "DATA",160.16,11,"FIELD",424,0) 4597^100^4696^RX Text--BRM "DATA",160.16,11,"FIELD",424,1) S ACDANS=$$WORD~ONCACDU2(IEN,20,100) "DATA",160.16,11,"FIELD",424,2) BLANK "DATA",160.16,11,"FIELD",424,3) R,BLANK "DATA",160.16,11,"FIELD",425,0) 4697^100^4796^RX Text--Other "DATA",160.16,11,"FIELD",425,1) S ACDANS=$$WORD~ONCACDU2(IEN,21,100) "DATA",160.16,11,"FIELD",425,2) BLANK "DATA",160.16,11,"FIELD",425,3) R,BLANK "DATA",160.16,11,"FIELD",426,0) 4797^350^5146^Text--Remarks "DATA",160.16,11,"FIELD",426,1) S ACDANS=$$WORD~ONCACDU2(IEN,19,250) "DATA",160.16,11,"FIELD",426,2) BLANK "DATA",160.16,11,"FIELD",426,3) R,BLANK "DATA",160.16,11,"FIELD",427,0) 5147^50^5196^Place of Diagnosis "DATA",160.16,11,"FIELD",427,1) S ACDANS=$$GET1~DIQ(165.5,IEN,5,"E") "DATA",160.16,11,"FIELD",427,2) BLANK "DATA",160.16,11,"FIELD",427,3) R,BLANK "DATA",160.16,11,"FIELD",428,0) 5197^770^5966^Reserved for Expansion "DATA",160.16,11,"FIELD",428,1) S ACDANS="" "DATA",160.16,11,"FIELD",428,2) BLANK "DATA",160.16,11,"FIELD",428,3) L,BLANK "DATA",160.16,11,"FIELD",434,0) 1363^1^1363^AFIP Submission "DATA",160.16,11,"FIELD",434,1) S ACDANS=$$GET1~DIQ(165.5,IEN,83,"I") "DATA",160.16,11,"FIELD",434,2) BLANK "DATA",160.16,11,"FIELD",434,3) L,BLANK "DATA",160.16,11,"FIELD",435,0) 1385^1^1385^Previous History of Cancer "DATA",160.16,11,"FIELD",435,1) S ACDANS=$$GET1~DIQ(165.5,IEN,148,"I") "DATA",160.16,11,"FIELD",435,2) BLANK "DATA",160.16,11,"FIELD",435,3) L,BLANK "DATA",160.16,11,"FIELD",437,0) 1364^20^1383^Previous History of Cancer Text "DATA",160.16,11,"FIELD",437,1) D PHCT~ONCACDU1 "DATA",160.16,11,"FIELD",437,2) BLANK "DATA",160.16,11,"FIELD",437,3) R,BLANK "DATA",160.16,11,"FIELD",438,0) 1035^50^1084^Family History of Cancer Text "DATA",160.16,11,"FIELD",438,1) D FHCT~ONCACDU1 "DATA",160.16,11,"FIELD",438,2) BLANK "DATA",160.16,11,"FIELD",438,3) R,BLANK "DATA",160.16,11,"FIELD",439,0) 1386^1^1386^Middle East Service "DATA",160.16,11,"FIELD",439,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,55,"I")) "DATA",160.16,11,"FIELD",439,2) BLANK "DATA",160.16,11,"FIELD",439,3) L,BLANK "DATA",160.16,11,"FIELD",440,0) 1387^1^1387^Reserved for DOD usage "DATA",160.16,11,"FIELD",440,1) S ACDANS="" "DATA",160.16,11,"FIELD",440,2) BLANK "DATA",160.16,11,"FIELD",440,3) L,BLANK "DATA",160.16,11,"FIELD",441,0) 1085^278^1362^Reserved for expansion "DATA",160.16,11,"FIELD",441,1) S ACDANS="" "DATA",160.16,11,"FIELD",441,2) BLANK "DATA",160.16,11,"FIELD",441,3) L,BLANK "DATA",160.16,11,"FIELD",442,0) 1388^1^1388^Reserved for DOD usage "DATA",160.16,11,"FIELD",442,1) S ACDANS="" "DATA",160.16,11,"FIELD",442,2) BLANK "DATA",160.16,11,"FIELD",442,3) L,BLANK "DATA",160.16,11,"FIELD",443,0) 1389^71^1459^Reserved for expansion "DATA",160.16,11,"FIELD",443,1) S ACDANS="" "DATA",160.16,11,"FIELD",443,2) BLANK "DATA",160.16,11,"FIELD",443,3) L,BLANK "DATA",160.16,11,"FIELD",444,0) 1460^8^1467^Reserved for DOD usage "DATA",160.16,11,"FIELD",444,1) S ACDANS="" "DATA",160.16,11,"FIELD",444,2) BLANK "DATA",160.16,11,"FIELD",444,3) L,BLANK "DATA",160.16,11,"FIELD",445,0) 1468^9^1476^Reserved for expansion "DATA",160.16,11,"FIELD",445,1) S ACDANS="" "DATA",160.16,11,"FIELD",445,2) BLANK "DATA",160.16,11,"FIELD",445,3) L,BLANK "DATA",160.16,11,"FIELD",446,0) 1477^1^1477^Reserved for DOD usage "DATA",160.16,11,"FIELD",446,1) S ACDANS="" "DATA",160.16,11,"FIELD",446,2) BLANK "DATA",160.16,11,"FIELD",446,3) L,BLANK "DATA",160.16,11,"FIELD",447,0) 1478^11^1488^Reserved for DOD usage "DATA",160.16,11,"FIELD",447,1) S ACDANS="" "DATA",160.16,11,"FIELD",447,2) BLANK "DATA",160.16,11,"FIELD",447,3) L,BLANK "DATA",160.16,11,"FIELD",448,0) 1489^37^1525^Reserved for expansion "DATA",160.16,11,"FIELD",448,1) S ACDANS="" "DATA",160.16,11,"FIELD",448,2) BLANK "DATA",160.16,11,"FIELD",448,3) L,BLANK "DATA",160.16,11,"FIELD",449,0) 1384^1^1384^Somalia Service "DATA",160.16,11,"FIELD",449,1) S ACDANS=$$VAFLD~ONCACDU2($$GET1~DIQ(160,ACD160,56,"I")) "DATA",160.16,11,"FIELD",449,2) BLANK "DATA",160.16,11,"FIELD",449,3) L,BLANK "DATA",160.16,11,"RULES",0) 4^160.162^4^4^3021030^^^^ "DATA",160.16,11,"RULES",1,0) S VALID=1 "DATA",160.16,11,"RULES",2,0) I $$GET1^DIQ(165.5,IEN,91,"I")<3 S VALID=0 "DATA",160.16,11,"RULES",3,0) S JUMP=0 "DATA",160.16,11,"RULES",4,0) K SCREEN "FIA",160) ONCOLOGY PATIENT "FIA",160,0) ^ONCO(160, "FIA",160,0,0) 160V "FIA",160,0,1) y^y^p^^^^n "FIA",160,0,10) "FIA",160,0,11) "FIA",160,0,"RLRO") "FIA",160,0,"VR") 2.11^ONC "FIA",160,160) 1 "FIA",160,160,55) "FIA",160,160,56) "FIA",160.1) ONCOLOGY SITE PARAMETERS "FIA",160.1,0) ^ONCO(160.1, "FIA",160.1,0,0) 160.1I "FIA",160.1,0,1) y^y^p^^^^n "FIA",160.1,0,10) "FIA",160.1,0,11) "FIA",160.1,0,"RLRO") "FIA",160.1,0,"VR") 2.11^ONC "FIA",160.1,160.1) 1 "FIA",160.1,160.1,4) "FIA",160.1,160.1,10) "FIA",160.1,160.1,18) "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",165.5) ONCOLOGY PRIMARY "FIA",165.5,0) ^ONCO(165.5, "FIA",165.5,0,0) 165.5IPs "FIA",165.5,0,1) y^y^p^^^^n "FIA",165.5,0,10) "FIA",165.5,0,11) "FIA",165.5,0,"RLRO") "FIA",165.5,0,"VR") 2.11^ONC "FIA",165.5,165.5) 1 "FIA",165.5,165.5,22) "FIA",165.5,165.5,22.3) "FIA",165.5,165.5,29) "FIA",165.5,165.5,59) "FIA",165.5,165.5,85) "INI") ONCPRE34 "INIT") ONCPST34 "KRN",.4,1073,-1) 0^3 "KRN",.4,1073,0) ONCOY54^3020724.1407^^165.5^^@^3020724 "KRN",.4,1073,"DXS",1,9.2) S DIP(2)=$C(59)_$P($G(^DD(165.5,58,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,26)_":",2),$C(59),1) "KRN",.4,1073,"DXS",2,9.2) S DIP(2)=$C(59)_$P($G(^DD(165.5,51.3,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,3)):^(3),1:"") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,7)_":",2),$C(59),1) "KRN",.4,1073,"DXS",3,0) None "KRN",.4,1073,"DXS",3,1) Beam radiation "KRN",.4,1073,"DXS",3,2) Radioactive implants "KRN",.4,1073,"DXS",3,3) Radioisotopes "KRN",.4,1073,"DXS",3,4) Beam rad w implants/radioisotopes "KRN",.4,1073,"DXS",3,5) Radiation therapy, NOS "KRN",.4,1073,"DXS",3,7) Refused radiation therapy "KRN",.4,1073,"DXS",3,8) Recommended, unk if given "KRN",.4,1073,"DXS",3,9) Unk if administered "KRN",.4,1073,"DXS",4,0) None "KRN",.4,1073,"DXS",4,1) Beam radiation "KRN",.4,1073,"DXS",4,2) Radioactive implants "KRN",.4,1073,"DXS",4,3) Radioisotopes "KRN",.4,1073,"DXS",4,4) Beam rad w implants/radioisotopes "KRN",.4,1073,"DXS",4,5) Radiation, NOS "KRN",.4,1073,"DXS",4,7) Refused radiation "KRN",.4,1073,"DXS",4,8) Recommended, unk if given "KRN",.4,1073,"DXS",4,9) Unk if admin "KRN",.4,1073,"F",1) "** FIRST COURSE OF TREATMENT **";S1~"First Course of Treatment Date:";C2;S1~49;C34~"Date of No Treatment: ";C2;S1~124;X~ "KRN",.4,1073,"F",2) "Surgery of Primary Site: ";C2;S1~50;X~58.2;C41;L39~"Surg of Primary Site @Facility: ";C2~50.3;X~50.2;C48;L32~"Surgical Margins: ";C2~59;X~ "KRN",.4,1073,"F",3) "Surgical Approach: ";C2~74;X~"Scope of Lymph Node Surgery: ";C2~138.2;X~138;C45;L35~"Scope of Lymph Node Surg @Facility: ";C2~138.3;X~ "KRN",.4,1073,"F",4) 138.1;C52;L28~"Number of Lymph Nodes removed: ";C2~140;X~"Number of Lymph Nodes Removed @Facility: ";C2~140.1;X~"Surgery of Other Sites/Nodes: ";C2~ "KRN",.4,1073,"F",5) 139.2;X~139;C46;L34~"Surgery of Oth Sites/Nodes @Facility: ";C2~139.3;X~139.1;C54;L26~"Reconstruction/Restoration: ";C2~23;C31;L49~ "KRN",.4,1073,"F",6) "Reason for No Surgery: ";C2~ "KRN",.4,1073,"F",7) X DXS(1,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(REASON FOR NO SURGERY)"~ "KRN",.4,1073,"F",8) "Radiation: ";C7;S1~51;X~51.2;C32;L48~"Radiation @Fac: ";C2~51.5;X~51.4;C32;L48~"Sequence: ";C8~ "KRN",.4,1073,"F",9) X DXS(2,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(#51.3)"~ "KRN",.4,1073,"F",10) "Regional Dose: ";C3~442;X~"Regional Treatment Modality: ";C4~363;X;L40~"Radiation Auxiliary Volume: ";C5~129;X~"Radiation Auxiliary Date: ";C7~ "KRN",.4,1073,"F",11) 130;X~" ";C2;S1~ "KRN",.4,1073,"H") @ "KRN",.4,1073,"IOM") 80 "KRN",.4,1073,"LAST") 1 "KRN",.4,1073,"ROU") ^ONCOY54 "KRN",.4,1073,"ROUOLD") ONCOY54 "KRN",.4,1073,"SUB") 1 "KRN",.4,1076,-1) 0^2 "KRN",.4,1076,0) ONCOY57^3020724.1415^^165.5^^@^3020724 "KRN",.4,1076,"DXS",1,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,4,D1,0)):^(0),1:""),Y=$P(DIP(1),U,3) X:$D(^DD(165.51,2,2)) ^(2) S X=Y "KRN",.4,1076,"DXS",2,0) None "KRN",.4,1076,"DXS",2,1) Beam Radiation "KRN",.4,1076,"DXS",2,2) Radioactive Implants "KRN",.4,1076,"DXS",2,3) Radioisotopes "KRN",.4,1076,"DXS",2,4) Combination of Beam + Implants or Isotopes "KRN",.4,1076,"DXS",2,5) Radiation NOS "KRN",.4,1076,"DXS",2,7) Radiation Therapy Refused "KRN",.4,1076,"DXS",2,8) Recommended, Unknown if Given "KRN",.4,1076,"DXS",2,9) Unknown if Recommended/Given "KRN",.4,1076,"DXS",3,0) None "KRN",.4,1076,"DXS",3,1) Chemotherapy NOS "KRN",.4,1076,"DXS",3,2) Chemotherapy, single agent "KRN",.4,1076,"DXS",3,3) Chemotherapy, multiple agents "KRN",.4,1076,"DXS",3,7) Chemotherapy refused "KRN",.4,1076,"DXS",3,8) Recommended, unknown if given "KRN",.4,1076,"DXS",3,9) Unknown if Recommended/Given "KRN",.4,1076,"DXS",4,0) None "KRN",.4,1076,"DXS",4,1) Hormones (inc NOS & antihormones) "KRN",.4,1076,"DXS",4,2) Endocrine surgery and/or Radiation Therapy "KRN",.4,1076,"DXS",4,3) Comb. Hormones/Endocrine Surgery +/ Rad. Ther. "KRN",.4,1076,"DXS",4,7) Hormonal therapy refused "KRN",.4,1076,"DXS",4,8) Recommended, unknown if given "KRN",.4,1076,"DXS",4,9) Unknown "KRN",.4,1076,"DXS",5,0) None "KRN",.4,1076,"DXS",5,1) BRM "KRN",.4,1076,"DXS",5,2) Bone marrow trans-autologous "KRN",.4,1076,"DXS",5,3) Bone marrow trans-allogenic "KRN",.4,1076,"DXS",5,4) Bone marrow trans, NOS "KRN",.4,1076,"DXS",5,5) Stem cell transplant "KRN",.4,1076,"DXS",5,6) Combination 1 and 2,3,4 or 5 "KRN",.4,1076,"DXS",5,7) Patient refused "KRN",.4,1076,"DXS",5,8) BRM recommended "KRN",.4,1076,"DXS",5,9) Unknown "KRN",.4,1076,"DXS",6,0) None "KRN",.4,1076,"DXS",6,1) Other Cancer-directed therapy "KRN",.4,1076,"DXS",6,2) Experimental therapy given "KRN",.4,1076,"DXS",6,3) Double-blind clinical trial, code not broken "KRN",.4,1076,"DXS",6,6) Unproven therapy given "KRN",.4,1076,"DXS",6,7) Refused therapy of codes 1-3 "KRN",.4,1076,"DXS",6,8) Recommended, unknown if given "KRN",.4,1076,"DXS",6,9) Unknown "KRN",.4,1076,"F",1) "** SUBSEQUENT THERAPY **";C5;S1;X~60,"Subsequent Treatment Date: ";C2;S1~60,.01;X;L10~ "KRN",.4,1076,"F",2) 60,X DXS(1,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C42;X;Z;"LOWERCASE(PLACE)"~ "KRN",.4,1076,"F",3) 60,"Surgery of Primary Site: ";C2;S~60,.04;X;L42~60," ";X~60,.041;X~60,"Scope of Lymph Node Surgery: ";C2~60,35;X;L42~60,"Number of Nodes Removed: ";C2~ "KRN",.4,1076,"F",4) 60,37;X~60,"Surgery of Other Sites/Nodes: ";C2~60,36;X;L42~60,"Recon/Restore - Delayed: ";C2~60,34~60," ";X~60,33;X;L42~60,"Radiation: ";C2~60,.05;X~ "KRN",.4,1076,"F",5) 60," ";X~60,.051;X~60,"Chemotherapy: ";C2~60,.06;X~60," ";X~60,.061;X~60,"Hormone Therapy: ";C2~60,.07;X~60," ";X~60,.071;X~60,"Immunotherapy: ";C2~ "KRN",.4,1076,"F",6) 60,.08;X~60," ";X~60,.081;X~60,"Other Cancer Therapy: ";C2~60,.09;X~60," ";X~60,.091;X~ "KRN",.4,1076,"H") @ "KRN",.4,1076,"IOM") 80 "KRN",.4,1076,"LAST") "KRN",.4,1076,"ROU") ^ONCOY57 "KRN",.4,1076,"ROUOLD") ONCOY57 "KRN",.4,1076,"SUB") 1 "KRN",.4,1090,-1) 0^4 "KRN",.4,1090,0) ONCOXA3^3020410.1623^^165.5^^@^3020410 "KRN",.4,1090,"DXS",1,1) Positive Histology "KRN",.4,1090,"DXS",1,2) Positive Cytology "KRN",.4,1090,"DXS",1,4) Positive Microscopic, method NOS "KRN",.4,1090,"DXS",1,5) Positive lab test "KRN",.4,1090,"DXS",1,6) Direct visualization "KRN",.4,1090,"DXS",1,7) Radiography/other imaging techniques "KRN",.4,1090,"DXS",1,8) Clinical diagnosis only "KRN",.4,1090,"DXS",1,9) Unknown if microscopically confirmed "KRN",.4,1090,"DXS",2,0) In situ "KRN",.4,1090,"DXS",2,1) Localized "KRN",.4,1090,"DXS",2,2) Regional Extension "KRN",.4,1090,"DXS",2,3) Regional Nodes "KRN",.4,1090,"DXS",2,4) Regional Extension & Nodes "KRN",.4,1090,"DXS",2,5) Regional NOS "KRN",.4,1090,"DXS",2,7) Distant Mets/systemic disease "KRN",.4,1090,"DXS",2,9) Unknown/Unstaged "KRN",.4,1090,"DXS",3,0) None "KRN",.4,1090,"DXS",3,1) Peritoneum "KRN",.4,1090,"DXS",3,2) Lung "KRN",.4,1090,"DXS",3,3) Pleura "KRN",.4,1090,"DXS",3,4) Liver "KRN",.4,1090,"DXS",3,5) Bone "KRN",.4,1090,"DXS",3,6) Central nervous sys "KRN",.4,1090,"DXS",3,7) Skin "KRN",.4,1090,"DXS",3,8) Lymph nodes (distan "KRN",.4,1090,"DXS",3,9) Other/Gen/Carcinoma "KRN",.4,1090,"DXS",4,0) None "KRN",.4,1090,"DXS",4,1) Peritoneum "KRN",.4,1090,"DXS",4,2) Lung "KRN",.4,1090,"DXS",4,3) Pleura "KRN",.4,1090,"DXS",4,4) Liver "KRN",.4,1090,"DXS",4,5) Bone "KRN",.4,1090,"DXS",4,6) Central nervous sys "KRN",.4,1090,"DXS",4,7) Skin "KRN",.4,1090,"DXS",4,8) Lymph nodes (distan "KRN",.4,1090,"DXS",4,9) Other/Gen/Carcinoma "KRN",.4,1090,"DXS",5,0) None "KRN",.4,1090,"DXS",5,1) Peritoneum "KRN",.4,1090,"DXS",5,2) Lung "KRN",.4,1090,"DXS",5,3) Pleura "KRN",.4,1090,"DXS",5,4) Liver "KRN",.4,1090,"DXS",5,5) Bone "KRN",.4,1090,"DXS",5,6) Central nervous "KRN",.4,1090,"DXS",5,7) Skin "KRN",.4,1090,"DXS",5,8) Lymph nodes (di "KRN",.4,1090,"DXS",5,9) Other/Gen/Carci "KRN",.4,1090,"DXS",6,0) Surgery performed "KRN",.4,1090,"DXS",6,1) Surgery not recommended "KRN",.4,1090,"DXS",6,2) Contraindicated, autopsy-only cases "KRN",.4,1090,"DXS",6,6) Reason unk "KRN",.4,1090,"DXS",6,7) Pt refused surgery "KRN",.4,1090,"DXS",6,8) Surgery recommended, unk if done "KRN",.4,1090,"DXS",6,9) Unk if performed, death cert-only cases "KRN",.4,1090,"DXS",7,0) None "KRN",.4,1090,"DXS",7,1) Beam radiation "KRN",.4,1090,"DXS",7,2) Radioactive implants "KRN",.4,1090,"DXS",7,3) Radioisotopes "KRN",.4,1090,"DXS",7,4) Beam rad w implants/radioisotopes "KRN",.4,1090,"DXS",7,5) Radiation therapy, NOS "KRN",.4,1090,"DXS",7,7) Refused radiation therapy "KRN",.4,1090,"DXS",7,8) Recommended, unk if given "KRN",.4,1090,"DXS",7,9) Unk if administered "KRN",.4,1090,"DXS",8,0) No rad and/or surg "KRN",.4,1090,"DXS",8,2) Rad before surg "KRN",.4,1090,"DXS",8,3) Rad after surg "KRN",.4,1090,"DXS",8,4) Rad both before/after surg "KRN",.4,1090,"DXS",8,5) Intraoperative rad "KRN",.4,1090,"DXS",8,6) Intraoperative rad w rad before/after surg "KRN",.4,1090,"DXS",8,9) Sequence unknown "KRN",.4,1090,"DXS",9,0) No radiation to CNS "KRN",.4,1090,"DXS",9,1) Radiation "KRN",.4,1090,"DXS",9,7) Patient refused radiation "KRN",.4,1090,"DXS",9,8) Radiation recommended, unk if admin "KRN",.4,1090,"DXS",9,9) Unknown/NA "KRN",.4,1090,"DXS",10,0) Radiation performed "KRN",.4,1090,"DXS",10,1) Radiation not recommended "KRN",.4,1090,"DXS",10,2) Contraindicated, autopsy-only cases "KRN",.4,1090,"DXS",10,6) Reason unk "KRN",.4,1090,"DXS",10,7) Pt refused radiation "KRN",.4,1090,"DXS",10,8) Radiation recommended, unk if performed "KRN",.4,1090,"DXS",10,9) Unk if performed, death cert-only cases "KRN",.4,1090,"DXS",11,0) None "KRN",.4,1090,"DXS",11,1) Chemotherapy, NOS "KRN",.4,1090,"DXS",11,2) Chemotherapy, single agent "KRN",.4,1090,"DXS",11,3) Chemotherapy, multiple agents "KRN",.4,1090,"DXS",11,7) Refused Chemotherapy "KRN",.4,1090,"DXS",11,8) Recommended, unknown if administered "KRN",.4,1090,"DXS",11,9) Unknown if administered "KRN",.4,1090,"DXS",12,0) Chemo administered "KRN",.4,1090,"DXS",12,1) Chemo not recommended "KRN",.4,1090,"DXS",12,2) Contraindicated, autopsy-only cases "KRN",.4,1090,"DXS",12,6) Reason unk "KRN",.4,1090,"DXS",12,7) Pt refused chemo "KRN",.4,1090,"DXS",12,8) Chemo recommended, unk if administered "KRN",.4,1090,"DXS",12,9) Unk if administered, death cert-only cases "KRN",.4,1090,"DXS",13,0) None "KRN",.4,1090,"DXS",13,1) Hormone "KRN",.4,1090,"DXS",13,2) Endocrine surgery and/or radiation "KRN",.4,1090,"DXS",13,3) Comb of hormone/endocrine therapy "KRN",.4,1090,"DXS",13,7) Refused hormone therapy "KRN",.4,1090,"DXS",13,8) Recommended, unk if given "KRN",.4,1090,"DXS",13,9) Unknown, death cert cases only "KRN",.4,1090,"DXS",14,0) HT administered "KRN",.4,1090,"DXS",14,1) HT not recommended "KRN",.4,1090,"DXS",14,2) Contraindicated, autopsy-only cases "KRN",.4,1090,"DXS",14,6) Reason unk "KRN",.4,1090,"DXS",14,7) Pt refused HT "KRN",.4,1090,"DXS",14,8) HT recommended, unk if administered "KRN",.4,1090,"DXS",14,9) Unk if administered, death cert-only cases "KRN",.4,1090,"DXS",15,0) None "KRN",.4,1090,"DXS",15,1) BRM "KRN",.4,1090,"DXS",15,2) Bone marrow trans-autologous "KRN",.4,1090,"DXS",15,3) Bone marrow trans-allogenic "KRN",.4,1090,"DXS",15,4) Bone marrow trans, NOS "KRN",.4,1090,"DXS",15,5) Stem cell trans "KRN",.4,1090,"DXS",15,6) Combination 1 and 2,3,4 or 5 "KRN",.4,1090,"DXS",15,7) Patient refused "KRN",.4,1090,"DXS",15,8) BRM recommended "KRN",.4,1090,"DXS",15,9) Unknown "KRN",.4,1090,"DXS",16,0) No other therapy "KRN",.4,1090,"DXS",16,1) Other therapy "KRN",.4,1090,"DXS",16,2) Experimental therapy "KRN",.4,1090,"DXS",16,3) Double-blind clinical trial "KRN",.4,1090,"DXS",16,6) Unproven therapy "KRN",.4,1090,"DXS",16,7) Patient refused therapy "KRN",.4,1090,"DXS",16,8) Other therapy rec, unk if admin "KRN",.4,1090,"DXS",16,9) Unk if administered "KRN",.4,1090,"F",1) "Diagnostic confirmation: ";C3~26;X~"Size of Tumor: ";C3~29;X~"Extension: ";C3~30;X~"Nodes positive: ";C3~32;X~"Nodes examined: ";C3~33;X~ "KRN",.4,1090,"F",2) "Nodes overall: ";C3~31;X~"Summary stage: ";C3~35;X~"Sites of metastases: ";C3~34;C24;L19~34.1;C44;L19~34.2;C64;L15~"Clinical TNM: ";C3~ "KRN",.4,1090,"F",3) 37;C21;L12;X~"Pathologic TNM: ";C40~89.1;C60;L12;X~"AJCC Stage (Clin): ";C3~38;C24;X~"AJCC Stage (Path): ";C40~88;C60;X~"Surgical Margins: ";C3~ "KRN",.4,1090,"F",4) 59;X;L23~W " ";C30;Z;"W " ""~"FIRST COURSE OF TREATMENT SUMMARY:";C3~"Dx/Staging/Palliative Proc: ";C3~58.1;C34~"Surgery of primary site: ";C3~ "KRN",.4,1090,"F",5) 58.2;C34~"Reason for no surgery: ";C3~58;C34~"Radiation: ";C3~51.2;C34~"Radiation Sequence: ";C3~51.3;C34;L45~"Radiation Therapy to CNS: ";C3~52.2;C34~ "KRN",.4,1090,"F",6) "Reason for no radiation: ";C3~75;C34~"Chemotherapy: ";C3~53.2;C34~"Reason for no chemotherapy: ";C3~76;C34~"Hormone Therapy: ";C3~54.2;C34~ "KRN",.4,1090,"F",7) "Reason for no hormone therapy: ";C3~77;C34~"Immunotherapy (BRM): ";C3~55.2;C34~"Other treatment: ";C3~57.2;C34~ "KRN",.4,1090,"H") @ "KRN",.4,1090,"IOM") 80 "KRN",.4,1090,"LAST") "KRN",.4,1090,"ROU") ^ONCOXA3 "KRN",.4,1090,"ROUOLD") ONCOXA3 "KRN",.4,1090,"SUB") 1 "KRN",.4,1108,-1) 0^5 "KRN",.4,1108,0) ONCOX6^2990204.1521^^165.5^^@^2990204 "KRN",.4,1108,"DXS",1,9) X DXS(1,9.2) S X=$J("",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X "KRN",.4,1108,"DXS",1,9.2) S X="***************** STAGE of DISEASE at DIAGNOSIS ******************" "KRN",.4,1108,"DXS",2,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""),Y=$P(DIP(1),U,10) X:$D(^DD(165.5,30,2)) ^(2) S X=Y "KRN",.4,1108,"DXS",3,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""),Y=$P(DIP(1),U,11) X:$D(^DD(165.5,31,2)) ^(2) S X=Y "KRN",.4,1108,"DXS",4,0) Not staged "KRN",.4,1108,"DXS",4,1) Managing physician "KRN",.4,1108,"DXS",4,2) Pathologist "KRN",.4,1108,"DXS",4,3) Other physician "KRN",.4,1108,"DXS",4,4) 1, 2, or 3 "KRN",.4,1108,"DXS",4,5) Registrar "KRN",.4,1108,"DXS",4,6) 5 with 1, 2, or 3 "KRN",.4,1108,"DXS",4,7) Other "KRN",.4,1108,"DXS",4,8) Staged, indiv unspecified "KRN",.4,1108,"DXS",4,9) Unknown if staged "KRN",.4,1108,"DXS",5,0) Not staged "KRN",.4,1108,"DXS",5,1) Managing physician "KRN",.4,1108,"DXS",5,2) Pathologist "KRN",.4,1108,"DXS",5,3) Other physician "KRN",.4,1108,"DXS",5,4) 1, 2, or 3 "KRN",.4,1108,"DXS",5,5) Registrar "KRN",.4,1108,"DXS",5,6) 5 with 1, 2, or 3 "KRN",.4,1108,"DXS",5,7) Other "KRN",.4,1108,"DXS",5,8) Staged, indiv unspecified "KRN",.4,1108,"DXS",5,9) Unknown if staged "KRN",.4,1108,"DXS",6,0) Not staged "KRN",.4,1108,"DXS",6,1) Managing physician "KRN",.4,1108,"DXS",6,2) Pathologist "KRN",.4,1108,"DXS",6,3) Other physician "KRN",.4,1108,"DXS",6,4) Any combination of 1,2 or 3 "KRN",.4,1108,"DXS",6,5) Registrar "KRN",.4,1108,"DXS",6,6) Any combination of 5 w/ 1,2 or 3 "KRN",.4,1108,"DXS",6,7) Other "KRN",.4,1108,"DXS",6,8) Staged, individual not specified "KRN",.4,1108,"DXS",6,9) Unknown if staged "KRN",.4,1108,"DXS",7,999) NA "KRN",.4,1108,"DXS",7,"000") No peripheral blood involvement "KRN",.4,1108,"DXS",7,"001") <5% atypical circulating cells in blood "KRN",.4,1108,"DXS",7,"002") >5% atypical circulating cells in blood "KRN",.4,1108,"DXS",7,"003") % not stated "KRN",.4,1108,"DXS",8,1) Yes "KRN",.4,1108,"DXS",8,2) No "KRN",.4,1108,"DXS",8,999) Unknown "KRN",.4,1108,"DXS",9,0) None "KRN",.4,1108,"DXS",9,1) Peritoneum "KRN",.4,1108,"DXS",9,2) Lung "KRN",.4,1108,"DXS",9,3) Pleura "KRN",.4,1108,"DXS",9,4) Liver "KRN",.4,1108,"DXS",9,5) Bone "KRN",.4,1108,"DXS",9,6) Central nervous system "KRN",.4,1108,"DXS",9,7) Skin "KRN",.4,1108,"DXS",9,8) Lymph nodes (distant) "KRN",.4,1108,"DXS",9,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1108,"DXS",10,0) None "KRN",.4,1108,"DXS",10,1) Peritoneum "KRN",.4,1108,"DXS",10,2) Lung "KRN",.4,1108,"DXS",10,3) Pleura "KRN",.4,1108,"DXS",10,4) Liver "KRN",.4,1108,"DXS",10,5) Bone "KRN",.4,1108,"DXS",10,6) Central nervous system "KRN",.4,1108,"DXS",10,7) Skin "KRN",.4,1108,"DXS",10,8) Lymph nodes (distant) "KRN",.4,1108,"DXS",10,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1108,"DXS",11,0) In situ "KRN",.4,1108,"DXS",11,1) Localized "KRN",.4,1108,"DXS",11,2) Regional Extension "KRN",.4,1108,"DXS",11,3) Regional Nodes "KRN",.4,1108,"DXS",11,4) Regional Extension & Nodes "KRN",.4,1108,"DXS",11,5) Regional NOS "KRN",.4,1108,"DXS",11,7) Distant Mets/systemic disease "KRN",.4,1108,"DXS",11,9) Unknown/Unstaged "KRN",.4,1108,"DXS",12,0) None "KRN",.4,1108,"DXS",12,1) Peritoneum "KRN",.4,1108,"DXS",12,2) Lung "KRN",.4,1108,"DXS",12,3) Pleura "KRN",.4,1108,"DXS",12,4) Liver "KRN",.4,1108,"DXS",12,5) Bone "KRN",.4,1108,"DXS",12,6) Central nervous system "KRN",.4,1108,"DXS",12,7) Skin "KRN",.4,1108,"DXS",12,8) Lymph nodes (distant) "KRN",.4,1108,"DXS",12,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1108,"F",1) X DXS(1,9) W X K DIP;S1;X;Z;"CENTER("***************** STAGE of DISEASE at DIAGNOSIS ******************")"~" ";C30~"Clinical TNM: ";C2~37;C17;X~ "KRN",.4,1108,"F",2) "Pathologic TNM: ";C55~89.1;C72;;X~"Clinical T: ";C2~37.1;C18;X~"Pathologic T: ";C55~85;C73;X~"Clinical N: ";C2~37.2;C18;X~ "KRN",.4,1108,"F",3) "Pathologic N: ";C55~86;C73;X~"Clinical M: ";C2~37.3;C18;X~"Pathologic M: ";C55~87;C73;X~"Clinical Stage Group: ";C2~38;C28;X~ "KRN",.4,1108,"F",4) "Pathologic Stage Group: ";C55~88;C81;X~"Staged By (Clin): ";C2~19;C21;L32;X~"Staged By (Path): ";C55~89;C74;X~"Other Stage: ";C2~39;C18;X~ "KRN",.4,1108,"F",5) "Type of Staging System (Pediatric): ";C2~849;X;L40~"Pediatric Stage Group: ";C2~850;X;L8~"Staged By (Pediatric): ";C55~851;X~"Size of Tumor: ";C2~ "KRN",.4,1108,"F",6) 29;C17~"Positive nodes: ";C2~32;C20;X~"Peripheral Blood Inv.: ";C50~30.5;C73;X~"Nodes Examined: ";C2~33;C20;X~"Associated with HIV: ";C50~41;C71;X~ "KRN",.4,1108,"F",7) "Extension: ";C2~ "KRN",.4,1108,"F",8) X DXS(2,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C15;X;Z;"LOWERCASE(EXTENSION)"~ "KRN",.4,1108,"F",9) "Metastasis-1: ";C50~34;X~"Lymph Nodes: ";C2~ "KRN",.4,1108,"F",10) X DXS(3,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;C16;X;Z;"LOWERCASE(LYMPH NODES)"~ "KRN",.4,1108,"F",11) "Metastasis-2: ";C50~34.1;X~"General Summary Stage: ";C2~35;C26;X~"Metastasis-3: ";C50~34.2;X~ "KRN",.4,1108,"H") @ "KRN",.4,1108,"IOM") 132 "KRN",.4,1108,"LAST") 1 "KRN",.4,1108,"ROU") ^ONCOX6 "KRN",.4,1108,"ROUOLD") ONCOX6 "KRN",.4,1108,"SUB") 1 "KRN",.4,1121,-1) 0^1 "KRN",.4,1121,0) ONCOY50^3020719.0928^^165.5^^@^3020719 "KRN",.4,1121,"DXS",1,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X "N I,Y "_$P(^DD(160,1,0),U,5,99) S DIP(101)=X "KRN",.4,1121,"DXS",2,9) S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"") S X=$P(DIP(1),U,1) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" "KRN",.4,1121,"DXS",3,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"") S X=$S('$D(^VIC(5.1,+$P(DIP(1),U,3),0)):"",1:$P(^(0),U,1)) "KRN",.4,1121,"DXS",4,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X "N I,Y "_$P(^DD(160,.131,0),U,5,99) S DIP(101)=X "KRN",.4,1121,"DXS",5,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,10,0)),U,3) "KRN",.4,1121,"DXS",6,9.2) S DIP(2)=$C(59)_$P($G(^DD(165.5,11,0)),U,3),DIP(1)=$S($D(^ONCO(165.5,D0,1)):^(1),1:"") S X=$P($P(DIP(2),$C(59)_$P(DIP(1),U,5)_":",2),$C(59),1),DIP(3)=X S X="(" "KRN",.4,1121,"DXS",7,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") "KRN",.4,1121,"DXS",8,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,9,0)),U,3) "KRN",.4,1121,"DXS",9,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,48,0)),U,3) "KRN",.4,1121,"DXS",10,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 X "N I,Y "_$P(^DD(160,3,0),U,5,99) S DIP(101)=X "KRN",.4,1121,"DXS",11,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,50,0)),U,3) "KRN",.4,1121,"DXS",12,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") "KRN",.4,1121,"DXS",13,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,52,0)),U,3) "KRN",.4,1121,"DXS",14,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,61,0)),U,3) "KRN",.4,1121,"DXS",15,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,51,0)),U,3) "KRN",.4,1121,"DXS",16,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,55,0)),U,3) "KRN",.4,1121,"DXS",17,9.2) S I(0,0)=$G(D0),DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""),D0=$P(DIP(1),U,2) S:'D0!'$D(^ONCO(160,+D0,0)) D0=-1 S DIP(102)=$C(59)_$P($G(^DD(160,56,0)),U,3) "KRN",.4,1121,"DXS",18,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,19) X:$D(^DD(160,25,2)) ^(2) S X=Y "KRN",.4,1121,"DXS",19,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,20) X:$D(^DD(160,25.1,2)) ^(2) S X=Y "KRN",.4,1121,"DXS",20,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,21) X:$D(^DD(160,25.2,2)) ^(2) S X=Y "KRN",.4,1121,"DXS",21,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,22) X:$D(^DD(160,25.3,2)) ^(2) S X=Y "KRN",.4,1121,"DXS",22,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,23) X:$D(^DD(160,25.4,2)) ^(2) S X=Y "KRN",.4,1121,"DXS",23,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:""),Y=$P(DIP(101),U,24) X:$D(^DD(160,25.5,2)) ^(2) S X=Y "KRN",.4,1121,"F",1) "** PATIENT IDENTIFICATION **";S1;X~" Patient Name: ";C7;S1~.02;X~"Alias: ";C15~X DXS(1,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;X;Z;".02:1"~ "KRN",.4,1121,"F",2) "Address at Dx: ";C7~X DXS(2,9) W X K DIP;X;Z;"LOWERCASE(PATIENT ADDRESS AT DX)"~D AAD^ONCOES,W17AAD^ONCOES;Z;"D AAD^ONCOES,W17AAD^ONCOES"~ "KRN",.4,1121,"F",3) "County: ";C14~ "KRN",.4,1121,"F",4) X DXS(3,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COUNTY AT DX)"~ "KRN",.4,1121,"F",5) "Accession No: ";C8~.05;X~"Hospital No: ";C43~S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X=$P(DIP(1),U,3),X=X W X K DIP;X;Z;"INTERNAL(#.03)"~ "KRN",.4,1121,"F",6) "Accession Yr: ";C8~.07;X~"Primary Sequence No: ";C1~.06;X~"Phone Residence: ";C5;S1~X DXS(4,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;X;Z;".02:.131"~ "KRN",.4,1121,"F",7) "Sex: ";C51~ "KRN",.4,1121,"F",8) X DXS(5,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,8)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:10"~ "KRN",.4,1121,"F",9) "Marital Status DX: ";C3~X DXS(6,9.2) S DIP(4)=X S X=1,X=$P(DIP(3),DIP(4),X) W X K DIP;X;Z;"$P(MARITAL STATUS AT DX,"(",1)"~"Race: ";C50~ "KRN",.4,1121,"F",10) X DXS(7,9.2) S X=$S('$D(^ONCO(164.46,+$P(DIP(101),U,6),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;X;Z;".02:8"~"Ethnicity: ";C45~ "KRN",.4,1121,"F",11) X DXS(8,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,7)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:9"~ "KRN",.4,1121,"F",12) "Agent Orange Exp: ";C4~ "KRN",.4,1121,"F",13) X DXS(9,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,10)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:48"~ "KRN",.4,1121,"F",14) "Date of Birth:";C41~X DXS(10,9.2) S X=DIP(101) S D0=I(0,0) W X K DIP;C56;Z;".02:3"~"Ionizing Rad Exp: ";C4~ "KRN",.4,1121,"F",15) X DXS(11,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,11)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:50"~ "KRN",.4,1121,"F",16) "Birthplace: ";C44~X DXS(12,9.2) S X=$S('$D(^ONCO(165.2,+$P(DIP(101),U,5),0)):"",1:$P(^(0),U,1)) S D0=I(0,0) W X K DIP;X;Z;".02:7"~"Chemical Exp: ";C8~ "KRN",.4,1121,"F",17) X DXS(13,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,13)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:52"~ "KRN",.4,1121,"F",18) "Age at Dx: ";C45~4;C56~"Asbestos Exp: ";C8~ "KRN",.4,1121,"F",19) X DXS(14,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,14)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:61"~ "KRN",.4,1121,"F",20) "Persian Gulf Svc: ";C4~ "KRN",.4,1121,"F",21) X DXS(15,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,12)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:51"~ "KRN",.4,1121,"F",22) "Middle East Svc: ";C5~ "KRN",.4,1121,"F",23) X DXS(16,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,25)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:55"~ "KRN",.4,1121,"F",24) "Somalia Svc: ";C9~ "KRN",.4,1121,"F",25) X DXS(17,9.2) S DIP(101)=$S($D(^ONCO(160,D0,0)):^(0),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,26)_":",2),$C(59),1) S D0=I(0,0) W X K DIP;X;Z;".02:56"~ "KRN",.4,1121,"F",26) "Comorbidity/Complication #1: ";C1;S1~-160,^ONCO(160,^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"") S X=$P(DIP(1),U,2),X=X S D(0)=+X;Z;".02:"~ "KRN",.4,1121,"F",27) -160,X DXS(18,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #1)"~ "KRN",.4,1121,"F",28) -160,"Comorbidity/Complication #2: ";C1~ "KRN",.4,1121,"F",29) -160,X DXS(19,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #2)"~ "KRN",.4,1121,"F",30) -160,"Comorbidity/Complication #3: ";C1~ "KRN",.4,1121,"F",31) -160,X DXS(20,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #3)"~ "KRN",.4,1121,"F",32) -160,"Comorbidity/Complication #4: ";C1~ "KRN",.4,1121,"F",33) -160,X DXS(21,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #4)"~ "KRN",.4,1121,"F",34) -160,"Comorbidity/Complication #5: ";C1~ "KRN",.4,1121,"F",35) -160,X DXS(22,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #5)"~ "KRN",.4,1121,"F",36) -160,"Comorbidity/Complication #6: ";C1~ "KRN",.4,1121,"F",37) -160,X DXS(23,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;X;Z;"LOWERCASE(COMORBIDITY/COMPLICATION #6)"~ "KRN",.4,1121,"F",38) -160," ";C1~ "KRN",.4,1121,"H") @ "KRN",.4,1121,"IOM") 80 "KRN",.4,1121,"LAST") 1 "KRN",.4,1121,"ROU") ^ONCOY50 "KRN",.4,1121,"ROUOLD") ONCOY50 "KRN",.4,1121,"SUB") 1 "KRN",.4,1124,-1) 0^6 "KRN",.4,1124,0) ONCOY53^2990204.1524^^165.5^^@^3010327 "KRN",.4,1124,"DXS",1,9.2) S DIP(1)=$S($D(^ONCO(165.5,D0,2)):^(2),1:""),Y=$P(DIP(1),U,11) X:$D(^DD(165.5,31,2)) ^(2) S X=Y "KRN",.4,1124,"DXS",2,0) Not staged "KRN",.4,1124,"DXS",2,1) Managing physician "KRN",.4,1124,"DXS",2,2) Pathologist "KRN",.4,1124,"DXS",2,3) Other physician "KRN",.4,1124,"DXS",2,4) 1, 2, or 3 "KRN",.4,1124,"DXS",2,5) Registrar "KRN",.4,1124,"DXS",2,6) 5 with 1, 2, or 3 "KRN",.4,1124,"DXS",2,7) Other "KRN",.4,1124,"DXS",2,8) Staged, indiv unspecified "KRN",.4,1124,"DXS",2,9) Unknown if staged "KRN",.4,1124,"DXS",3,0) Not staged "KRN",.4,1124,"DXS",3,1) Managing physician "KRN",.4,1124,"DXS",3,2) Pathologist "KRN",.4,1124,"DXS",3,3) Other physician "KRN",.4,1124,"DXS",3,4) 1, 2, or 3 "KRN",.4,1124,"DXS",3,5) Registrar "KRN",.4,1124,"DXS",3,6) 5 with 1, 2, or 3 "KRN",.4,1124,"DXS",3,7) Other "KRN",.4,1124,"DXS",3,8) Staged, indiv unspecified "KRN",.4,1124,"DXS",3,9) Unknown if staged "KRN",.4,1124,"DXS",4,0) Not staged "KRN",.4,1124,"DXS",4,1) Managing physician "KRN",.4,1124,"DXS",4,2) Pathologist "KRN",.4,1124,"DXS",4,3) Other physician "KRN",.4,1124,"DXS",4,4) Any combination of 1,2 or 3 "KRN",.4,1124,"DXS",4,5) Registrar "KRN",.4,1124,"DXS",4,6) Any combination of 5 w/ 1,2 or 3 "KRN",.4,1124,"DXS",4,7) Other "KRN",.4,1124,"DXS",4,8) Staged, individual not specified "KRN",.4,1124,"DXS",4,9) Unknown if staged "KRN",.4,1124,"DXS",5,0) In situ "KRN",.4,1124,"DXS",5,1) Localized "KRN",.4,1124,"DXS",5,2) Regional Extension "KRN",.4,1124,"DXS",5,3) Regional Nodes "KRN",.4,1124,"DXS",5,4) Regional Extension & Nodes "KRN",.4,1124,"DXS",5,5) Regional NOS "KRN",.4,1124,"DXS",5,7) Distant Mets/systemic disease "KRN",.4,1124,"DXS",5,9) Unknown/Unstaged "KRN",.4,1124,"DXS",6,0) None "KRN",.4,1124,"DXS",6,1) Peritoneum "KRN",.4,1124,"DXS",6,2) Lung "KRN",.4,1124,"DXS",6,3) Pleura "KRN",.4,1124,"DXS",6,4) Liver "KRN",.4,1124,"DXS",6,5) Bone "KRN",.4,1124,"DXS",6,6) Central nervous system "KRN",.4,1124,"DXS",6,7) Skin "KRN",.4,1124,"DXS",6,8) Lymph nodes (distant) "KRN",.4,1124,"DXS",6,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1124,"DXS",7,0) None "KRN",.4,1124,"DXS",7,1) Peritoneum "KRN",.4,1124,"DXS",7,2) Lung "KRN",.4,1124,"DXS",7,3) Pleura "KRN",.4,1124,"DXS",7,4) Liver "KRN",.4,1124,"DXS",7,5) Bone "KRN",.4,1124,"DXS",7,6) Central nervous system "KRN",.4,1124,"DXS",7,7) Skin "KRN",.4,1124,"DXS",7,8) Lymph nodes (distant) "KRN",.4,1124,"DXS",7,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1124,"DXS",8,0) None "KRN",.4,1124,"DXS",8,1) Peritoneum "KRN",.4,1124,"DXS",8,2) Lung "KRN",.4,1124,"DXS",8,3) Pleura "KRN",.4,1124,"DXS",8,4) Liver "KRN",.4,1124,"DXS",8,5) Bone "KRN",.4,1124,"DXS",8,6) Central nervous system "KRN",.4,1124,"DXS",8,7) Skin "KRN",.4,1124,"DXS",8,8) Lymph nodes (distant) "KRN",.4,1124,"DXS",8,9) Other/Gen/Carcinomatosis/Unkn "KRN",.4,1124,"F",1) "** STAGE OF DISEASE AT DIAGNOSIS **";S1~"Clinical TNM: ";C3;S1~37;C25~"Pathologic TNM: ";C40~89.1;C64~"Clinical Stage Group: ";C3~38;C25~ "KRN",.4,1124,"F",2) "Pathologic Stage Group: ";C40~88;C64;L14~"Staged By (Clinical Stage): ";C3;S1~19~"Staged By (Pathologic Stage): ";C3~89;C33~"Other Stage: ";C3;S1~39~ "KRN",.4,1124,"F",3) "Type of Staging System (Pediatric): ";C3~849;X;L38~"Pediatric Stage: ";C3~850;X;L30~"Staged By (Pediatric Stage): ";C3~851;X;L40~ "KRN",.4,1124,"F",4) "Size of Tumor: ";S1;C3~29;C18~"Extension: ";C40~30;C54;L24~"Pathologic Extension: ";C3~30.1;C26;L52~"Positive nodes: ";C3~32;X~"Nodes Examined: ";C3~ "KRN",.4,1124,"F",5) 33;X~"Lymph Nodes: ";C3~ "KRN",.4,1124,"F",6) X DXS(1,9.2) X "F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)" W X K DIP;Z;"LOWERCASE(LYMPH NODES)"~" ";C2~ "KRN",.4,1124,"F",7) "General Summary Stage: ";C3~35;X~"Metastasis-1: ";C12~34;X~"Metastasis-2: ";C12~34.1;X~"Metastasis-3: ";C12~34.2;X~ "KRN",.4,1124,"H") @ "KRN",.4,1124,"IOM") 80 "KRN",.4,1124,"LAST") "KRN",.4,1124,"ROU") ^ONCOY53 "KRN",.4,1124,"ROUOLD") ONCOY53 "KRN",.4,1124,"SUB") 1 "KRN",.402,1247,-1) 0^2 "KRN",.402,1247,0) ONCO UTL CORRECT DATA^3020814.135^^165.5^^^3021029 "KRN",.402,1247,"%D",0) ^^1^1^2920528^ "KRN",.402,1247,"%D",1,0) Utility tempate allowing for the correction of data entries in primary file. "KRN",.402,1247,"DR",1,165.5) W !;.01;20;.07;.05;.06;.04;3;S X=X;I $P($G(^ONCO(165.5,DA,0)),"^",16)>3001231 S Y=22.3;22;S Y="@1";22.3;@1;W !! D SDA^ONCOCOM; "KRN",.402,1248,-1) 0^1 "KRN",.402,1248,0) ONCO RECURRENCE FOLLOWUP^3021001.1123^^165.5^^^3021023 "KRN",.402,1248,"DR",1,165.5) D RE^ONCOAIF;71;S:X="" Y="@111";S XR="" I X'="" S XR=$P(^ONCO(160.12,X,0),"^",1);70;71.4;S:XR'=40 Y="@98";71.1;S:X=0 Y="@96";71.2;S:X=0 Y="@97";71.3;S Y="@99";@96;71.2////0;W !,"DISTANT SITE 2: None";@97;71.3////0; "KRN",.402,1248,"DR",1,165.5,1) W !,"DISTANT SITE 3: None";S Y="@99";@98;S $P(^ONCO(165.5,D0,5),U,3,5)="0^0^0";W !,"DISTANT SITE 1: None";W !,"DISTANT SITE 2: None";W !,"DISTANT SITE 3: None";@99;93;D CN5^ONCOTN;98;99;S STGIND="O" D ES^ONCOTN;@100;118;W !;72; "KRN",.402,1248,"DR",1,165.5,2) @111;D STX^ONCOAIF;60;K XR; "KRN",.402,1248,"DR",2,165.51) .01;I TX="" W !!," ** ICDO-TOPOGRAPHY CODE NOT defined for this primary -- cannot continue **",! S Y="@999";.04;I X="" S Y=$S(DATEDX>2971231:"@35",1:.05);S X=X;S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),"^",4); "KRN",.402,1248,"DR",2,165.51,1) I (SPS="00")!(SPS=1) S $P(^ONCO(165.5,D0,4,D1,0),U,11)="0000000",Y=$S(DATEDX>2971231:"@35",1:.05) W !," SURGERY OF PRIMARY SITE DATE..: 00/00/00";S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16); "KRN",.402,1248,"DR",2,165.51,2) I SPS'="",$G(^ONCO(164,SSTOP,"SPS",SPS,0))["Unknown" S $P(^ONCO(165.5,D0,4,D1,0),U,11)="9999999",Y=$S(DATEDX>2971231:"@35",1:.05) W !," SURGERY OF PRIMARY SITE DATE..: 99/99/99";.041;S Y=$S(DATEDX<2980101:.05,1:"@35");@35;35; "KRN",.402,1248,"DR",2,165.51,3) I X=1 S Y="@350";S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16);I X'="",^ONCO(164,SSTOP,"SC5",X,0)["Unknown" S Y="@359";37;S Y=36;@350;37///00;W !,?2,"NUMBER OF NODES REMOVED: No nodes removed";S Y=36;@359;37///99; "KRN",.402,1248,"DR",2,165.51,4) W !,?2,"NUMBER OF NODES REMOVED: Unknown, not stated, death certificate ONLY";36;S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),"^",4);I ($G(SPS)="00")!($G(SPS)=1) S Y=33;S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16); "KRN",.402,1248,"DR",2,165.51,5) I SPS'="",DATEDX>2971231,$G(^ONCO(164,SSTOP,"SPS",SPS,0))["Unknown" S Y=33;33;I X=1 S Y="@330";S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16);I X'="",^ONCO(164,SSTOP,"RR5",X,0)["Unknown" S Y="@339";34;S Y=.05;@330;34////0000000; "KRN",.402,1248,"DR",2,165.51,6) W !,?2,"RECON/RESTORE - DELAYED DATE: 00/00/0000";S Y=.05;@339;34////9999999;W !,?2,"RECON/RESTORE - DELAYED DATE: 99/99/9999";.05;S:(X=0)!(X=7) Y="@20";S:(X=8)!(X=9) Y="@29";.051;1;S Y="@03";@20;.051////0000000; "KRN",.402,1248,"DR",2,165.51,7) W !,?2,"RADIATION DATE: 00/00/0000";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";S Y="@03";@29;.051////9999999;W !,?2,"RADIATION DATE: 99/99/9999";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";@03;I DATEDX>2951231 S Y=.06; "KRN",.402,1248,"DR",2,165.51,8) .03;S:(X=0)!(X=7) Y="@30";S:(X=8)!(X=9) Y="@39";.031;S Y=.06;@30;.031////0000000;W !,?2,"RADIATION THERAPY TO CNS DATE: 00/00/0000";S Y=.06;@39;.031////9999999;W !,?2,"RADIATION THERAPY TO CNS DATE: 99/99/9999";.06; "KRN",.402,1248,"DR",2,165.51,9) S:(X=0)!(X=7) Y="@40";S:(X=8)!(X=9) Y="@49";.061;S Y=.07;@40;.061////0000000;W !,?2,"CHEMOTHERAPY DATE: 00/00/0000";S Y=.07;@49;.061////9999999;W !,?2,"CHEMOTHERAPY DATE: 99/99/9999";.07;S:(X=0)!(X=7) Y="@50";S:(X=8)!(X=9) Y="@59"; "KRN",.402,1248,"DR",2,165.51,10) .071;S Y=.08;@50;.071////0000000;W !,?2,"HORMONE/STEROID DATE: 00/00/0000";S Y=.08;@59;.071////9999999;W !,?2,"HORMONE/STEROID DATE: 99/99/9999";.08;I (X=0)!(X=7) S Y="@60";I (X=8)!(X=9) S Y="@69";.081;S Y=.09;@60;.081////0000000; "KRN",.402,1248,"DR",2,165.51,11) W !,?2,"IMMUNOTHERAPY DATE: 00/00/0000";S Y=.09;@69;.081////9999999;W !,?2,"IMMUNOTHERAPY DATE: 99/99/9999";.09;S:(X=0)!(X=7) Y="@70";S:(X=8)!(X=9) Y="@79";.091;S Y=2;@70;.091////0000000; "KRN",.402,1248,"DR",2,165.51,12) W !,?2,"OTHER CANCER THERAPY DATE: 00/00/0000";S Y=2;@79;.091////9999999;W !,?2,"OTHER CANCER THERAPY DATE: 99/99/9999";2;3;@999; "KRN",.402,1248,"DR",2,165.572) .01;S:X="" Y="@111";.02;I X'="" S:$P(^ONCO(160.12,X,0),"^",1)'=40 Y="@109";S:X="" Y="@110";.03;S:X=0 Y="@107";.031;S:X=0 Y="@108";.032;S Y="@110";@107;.031////0;W !," DISTANT SITE 2: None";@108;.032////0; "KRN",.402,1248,"DR",2,165.572,1) W !," DISTANT SITE 3: None";S Y="@110";@109;S $P(^ONCO(165.5,D0,23,D1,0),U,3,5)="0^0^0";W !," DISTANT SITE 1: None";W !," DISTANT SITE 2: None";W !," DISTANT SITE 3: None";@110;1;D RECN5^ONCOTN,RECN6^ONCOTN;2;3; "KRN",.402,1248,"DR",2,165.572,2) S STGIND="R" D ES^ONCOTN;@1105;5;@1107; "MBREQ") 0 "ORD",5,.4) .4;5;;;EDEOUT^DIFROMSO(.4,DA,"",XPDA);FPRE^DIFROMSI(.4,"",XPDA);EPRE^DIFROMSI(.4,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.4,DA,"",XPDA);DEL^DIFROMSK(.4,"",%) "ORD",5,.4,0) PRINT TEMPLATE "ORD",7,.402) .402;7;;;EDEOUT^DIFROMSO(.402,DA,"",XPDA);FPRE^DIFROMSI(.402,"",XPDA);EPRE^DIFROMSI(.402,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.402,DA,"",XPDA);DEL^DIFROMSK(.402,"",%) "ORD",7,.402,0) INPUT TEMPLATE "PKG",14,-1) 1^1 "PKG",14,0) ONCOLOGY^ONC^Oncology treatment tracking & tumor registry package. "PKG",14,20,0) ^9.402P^^ "PKG",14,22,0) ^9.49I^1^1 "PKG",14,22,1,0) 2.11^2950307^2950417 "PKG",14,22,1,"PAH",1,0) 34^3021030 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPI1",0) YO "QUES","XPI1","??") ^D INHIBIT^XPDH "QUES","XPI1","A") Want KIDS to INHIBIT LOGONs during the install "QUES","XPI1","B") YES "QUES","XPI1","M") D XPI1^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPO1",0) Y "QUES","XPO1","??") ^D MENU^XPDH "QUES","XPO1","A") Want KIDS to Rebuild Menu Trees Upon Completion of Install "QUES","XPO1","B") YES "QUES","XPO1","M") D XPO1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 28 "RTN","ONCACDU2") 0^48^B38563459 "RTN","ONCACDU2",1,0) ONCACDU2 ;Hines OIFO/GWB - UTILITY ROUTINE #1;09/20/2000 "RTN","ONCACDU2",2,0) ;;2.11;Oncology;**12,18,20,21,22,24,26,27,29,30,31,32,34**;Mar 07, 1995 "RTN","ONCACDU2",3,0) ; "RTN","ONCACDU2",4,0) HOSP1(PROC,IEN) ;Check to see if the site is breast or prostate "RTN","ONCACDU2",5,0) ;Inputs: PROC = Process Number to be processed "RTN","ONCACDU2",6,0) ; IEN = Record within File 160.16 "RTN","ONCACDU2",7,0) ;Output; X data for field. "RTN","ONCACDU2",8,0) ; "RTN","ONCACDU2",9,0) N PTR,X,SITE "RTN","ONCACDU2",10,0) S X=0 "RTN","ONCACDU2",11,0) S SITE=$$GET1^DIQ(165.5,IEN,.01,"I") "RTN","ONCACDU2",12,0) S SITE=$$GET1^DIQ(164.2,SITE,.01,"I") "RTN","ONCACDU2",13,0) I SITE="BREAST" D "RTN","ONCACDU2",14,0) .I PROC=1 S PTR=$$GET1^DIQ(165.5,IEN,141,"I") S:PTR'="" X=$P($G(^ONCO(164,67500,"BP5",PTR,0)),U,2) "RTN","ONCACDU2",15,0) .I PROC=2 S PTR=$$GET1^DIQ(165.5,IEN,142,"I") S:PTR'="" X=$P($G(^ONCO(164,67500,"GU5",PTR,0)),U,2) "RTN","ONCACDU2",16,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,143,"I") "RTN","ONCACDU2",17,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,144,"I") "RTN","ONCACDU2",18,0) ; "RTN","ONCACDU2",19,0) I SITE="PROSTATE" D "RTN","ONCACDU2",20,0) .I PROC=1 S PTR=$$GET1^DIQ(165.5,IEN,141,"I") S:PTR'="" X=$P($G(^ONCO(164,67619,"BP5",PTR,0)),U,2) "RTN","ONCACDU2",21,0) .I PROC=2 S PTR=$$GET1^DIQ(165.5,IEN,142,"I") S:PTR'="" X=$P($G(^ONCO(164,67619,"GU5",PTR,0)),U,2) "RTN","ONCACDU2",22,0) .I PROC=3 S X=$$GET1^DIQ(165.5,IEN,145,"I") "RTN","ONCACDU2",23,0) .I PROC=4 S X=$$GET1^DIQ(165.5,IEN,146,"I") "RTN","ONCACDU2",24,0) Q X "RTN","ONCACDU2",25,0) ; "RTN","ONCACDU2",26,0) VAFLD(ACDANS) ;Convert data to valid external format "RTN","ONCACDU2",27,0) ;Input: ACDANS "RTN","ONCACDU2",28,0) ; Y=1 "RTN","ONCACDU2",29,0) ; N=0 "RTN","ONCACDU2",30,0) ; U=9 "RTN","ONCACDU2",31,0) I ACDANS="N" S ACDANS=0 "RTN","ONCACDU2",32,0) I ACDANS="Y" S ACDANS=1 "RTN","ONCACDU2",33,0) I ACDANS="U" S ACDANS=9 "RTN","ONCACDU2",34,0) Q ACDANS "RTN","ONCACDU2",35,0) ; "RTN","ONCACDU2",36,0) VASIT() ;This function will pass back the VISN value "RTN","ONCACDU2",37,0) ;Output: X = VISN "RTN","ONCACDU2",38,0) N X "RTN","ONCACDU2",39,0) S OSPIEN=$O(^ONCO(160.1,0)) "RTN","ONCACDU2",40,0) S X=$P($G(^ONCO(160.1,OSPIEN,1)),U,7) "RTN","ONCACDU2",41,0) K OSPIEN "RTN","ONCACDU2",42,0) Q X "RTN","ONCACDU2",43,0) VER(IEN) ;This function will return the COC Coding System "RTN","ONCACDU2",44,0) N X "RTN","ONCACDU2",45,0) S X=$S($$GET1^DIQ(165.5,IEN,3,"I")<2980000:6,1:7) "RTN","ONCACDU2",46,0) Q X "RTN","ONCACDU2",47,0) STATE() ;Vendor Name [2170] 981-990 "RTN","ONCACDU2",48,0) N X,VERSION "RTN","ONCACDU2",49,0) S VERSION=$P($G(^ONCO(160.16,EXTRACT,0))," ",3) "RTN","ONCACDU2",50,0) S X="VA"_VERSION_$E($T(LOGO+3^ONCODIS),62,64) "RTN","ONCACDU2",51,0) Q X "RTN","ONCACDU2",52,0) BDATE(ACD160) ;Get birthdate "RTN","ONCACDU2",53,0) N D0,X "RTN","ONCACDU2",54,0) S D0=ACD160 "RTN","ONCACDU2",55,0) D DOB^ONCOES "RTN","ONCACDU2",56,0) S X=$G(X) "RTN","ONCACDU2",57,0) Q X "RTN","ONCACDU2",58,0) WORD(IEN,NODE,LEN) ;Get word processing data "RTN","ONCACDU2",59,0) N X "RTN","ONCACDU2",60,0) S X="" "RTN","ONCACDU2",61,0) I $D(^ONCO(165.5,IEN,NODE,0)) D "RTN","ONCACDU2",62,0) .N CNT,LINE "RTN","ONCACDU2",63,0) .S CNT=0 "RTN","ONCACDU2",64,0) .S LINE="" "RTN","ONCACDU2",65,0) .F S CNT=$O(^ONCO(165.5,IEN,NODE,CNT)) Q:CNT<1 D Q:($L(LINE)>LEN) "RTN","ONCACDU2",66,0) ..Q:'$D(^ONCO(165.5,IEN,NODE,CNT,0)) "RTN","ONCACDU2",67,0) ..S LINE=LINE_^ONCO(165.5,IEN,NODE,CNT,0)_" " "RTN","ONCACDU2",68,0) ..Q "RTN","ONCACDU2",69,0) .S X=LINE "RTN","ONCACDU2",70,0) .Q "RTN","ONCACDU2",71,0) Q X "RTN","ONCACDU2",72,0) STAGE(IEN,TYPE) ; "RTN","ONCACDU2",73,0) ;TNM Path Descriptor [910] 430-430 "RTN","ONCACDU2",74,0) ;TNM Clin Descriptor [980] 440-440 "RTN","ONCACDU2",75,0) N LOC,X "RTN","ONCACDU2",76,0) S X="" "RTN","ONCACDU2",77,0) S LOC=$S(TYPE="P":89.1,TYPE="C":37,1:"") "RTN","ONCACDU2",78,0) I TYPE'="" D "RTN","ONCACDU2",79,0) .N STRING "RTN","ONCACDU2",80,0) .S STRING=$$GET1^DIQ(165.5,IEN,LOC,"E") "RTN","ONCACDU2",81,0) .I ($P(STRING," ")["m")&($P(STRING," ")["y") S X=6 Q "RTN","ONCACDU2",82,0) .I $P(STRING," ")["m" S X=3 Q "RTN","ONCACDU2",83,0) .I $P(STRING," ")["y" S X=4 Q "RTN","ONCACDU2",84,0) Q X "RTN","ONCACDU2",85,0) CCOUNTY(ACD160) ;Get County Code for Current County "RTN","ONCACDU2",86,0) N ZIP,X "RTN","ONCACDU2",87,0) S X="" "RTN","ONCACDU2",88,0) S ZIP=$$GET1^DIQ(160,ACD160,.116,"E") "RTN","ONCACDU2",89,0) I ZIP'="" D "RTN","ONCACDU2",90,0) .N ZIP1,CODE,COUNTY "RTN","ONCACDU2",91,0) .S ZIP1=$P($P(ZIP,",",2)," ",3) S:$L(ZIP1)>5 ZIP1=$E(ZIP1,1,5) "RTN","ONCACDU2",92,0) .Q:$L(ZIP1)<5 "RTN","ONCACDU2",93,0) .S CODE=$O(^VIC(5.11,"C",ZIP1,"")) "RTN","ONCACDU2",94,0) .Q:CODE<1 "RTN","ONCACDU2",95,0) .S COUNTY=$$GET1^DIQ(5.11,CODE,2,"I") "RTN","ONCACDU2",96,0) .Q:COUNTY="" "RTN","ONCACDU2",97,0) .S X=$$GET1^DIQ(5.1,COUNTY,2,"I") "RTN","ONCACDU2",98,0) .Q "RTN","ONCACDU2",99,0) Q X "RTN","ONCACDU2",100,0) SUB(IEN,CNT,FIELD) ;Treatment - Subsq & Other "RTN","ONCACDU2",101,0) N X "RTN","ONCACDU2",102,0) S CNT=CNT-1 "RTN","ONCACDU2",103,0) S X="" "RTN","ONCACDU2",104,0) I $O(^ONCO(165.5,IEN,4,0)) D "RTN","ONCACDU2",105,0) .N IENS,SUB,SUBFLD,ENTRY,SUBIEN "RTN","ONCACDU2",106,0) .S SUBIEN=0 F I=1:1 S SUBIEN=$O(^ONCO(165.5,IEN,4,SUBIEN)) Q:(I=CNT)!(SUBIEN'>0) "RTN","ONCACDU2",107,0) .I SUBIEN="" S X="" Q "RTN","ONCACDU2",108,0) .S IENS=SUBIEN_","_IEN "RTN","ONCACDU2",109,0) .S ENTRY=$$GET1^DIQ(165.51,IENS,FIELD,"I") I ENTRY="" S X="" Q "RTN","ONCACDU2",110,0) .I $S(FIELD=".01":1,FIELD=".05":1,FIELD=".06":1,FIELD=".07":1,FIELD=".08":1,FIELD=".09":1,FIELD="37":1,1:0) S X=ENTRY Q "RTN","ONCACDU2",111,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=ENTRY Q "RTN","ONCACDU2",112,0) .S SUBFLD=$S(FIELD=33:"RR5",FIELD=35:"SC5",FIELD=36:"SO5",FIELD=.04:"SPS",1:"") I SUBFLD="" S X="" Q "RTN","ONCACDU2",113,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",114,0) .Q "RTN","ONCACDU2",115,0) I FIELD=.04,$L(X)=1 S X="0"_X "RTN","ONCACDU2",116,0) Q X "RTN","ONCACDU2",117,0) SUB164(IEN,SUBFLD,ENTRY) ;Get values out of file 164 "RTN","ONCACDU2",118,0) N X,TOP1,TOP2 "RTN","ONCACDU2",119,0) S X="" "RTN","ONCACDU2",120,0) S TOP1=$$GET1^DIQ(165.5,IEN,20,"I") D:TOP1'="" "RTN","ONCACDU2",121,0) .S TOP2=$$GET1^DIQ(164,TOP1,107,"I") D:TOP2'="" "RTN","ONCACDU2",122,0) ..S X=$P($G(^ONCO(164,TOP2,SUBFLD,ENTRY,0)),U,2) "RTN","ONCACDU2",123,0) ..Q "RTN","ONCACDU2",124,0) .Q "RTN","ONCACDU2",125,0) Q X "RTN","ONCACDU2",126,0) RXPRI(IEN,FIELD,SUBFLD) ;This is to collect primary "RTN","ONCACDU2",127,0) N X,ENTRY "RTN","ONCACDU2",128,0) S X="" "RTN","ONCACDU2",129,0) S ENTRY=$$GET1^DIQ(165.5,IEN,FIELD,"I") D:ENTRY'="" "RTN","ONCACDU2",130,0) .I $$GET1^DIQ(165.5,IEN,3,"I")<2980000 S X=$S(FIELD=23:$$GET1^DIQ(160.4,ENTRY,.01,"I"),FIELD=74:$$GET1^DIQ(160.6,ENTRY,.01,"I"),1:ENTRY) Q "RTN","ONCACDU2",131,0) .S X=$$SUB164^ONCACDU2(IEN,SUBFLD,ENTRY) "RTN","ONCACDU2",132,0) .Q "RTN","ONCACDU2",133,0) Q X "RTN","ONCACDU2",134,0) LAST(ACD160) ;Last contact information "RTN","ONCACDU2",135,0) N X "RTN","ONCACDU2",136,0) S X="A" "RTN","ONCACDU2",137,0) S X=$O(^ONCO(160,ACD160,"F",X),-1) "RTN","ONCACDU2",138,0) I X'>0 S X="" "RTN","ONCACDU2",139,0) Q X "RTN","ONCACDU2",140,0) FNODE(ACD160,FIELD) ;Get F Node data "RTN","ONCACDU2",141,0) N FNODE,X "RTN","ONCACDU2",142,0) S FNODE=$$LAST(ACD160),X="" "RTN","ONCACDU2",143,0) I FNODE'="" D "RTN","ONCACDU2",144,0) .N IENS "RTN","ONCACDU2",145,0) .S IENS=FNODE_","_ACD160_"," "RTN","ONCACDU2",146,0) .S X=$$GET1^DIQ(160.04,IENS,FIELD,"I") "RTN","ONCACDU2",147,0) .Q "RTN","ONCACDU2",148,0) Q X "RTN","ONCACDU2",149,0) CS(IEN) ;Cancer Status "RTN","ONCACDU2",150,0) N X,Z,FNODE "RTN","ONCACDU2",151,0) S FNODE=0 "RTN","ONCACDU2",152,0) S X="" "RTN","ONCACDU2",153,0) S FNODE=$O(^ONCO(165.5,IEN,"TS",FNODE)) "RTN","ONCACDU2",154,0) I FNODE>0 D "RTN","ONCACDU2",155,0) .N IENS,PT "RTN","ONCACDU2",156,0) .S FNODE=$O(^ONCO(165.5,IEN,"TS"," "),-1) "RTN","ONCACDU2",157,0) .Q:FNODE<1 "RTN","ONCACDU2",158,0) .S IENS=FNODE_","_IEN_"," "RTN","ONCACDU2",159,0) .S PT=$$GET1^DIQ(165.573,IENS,.02,"I") "RTN","ONCACDU2",160,0) .Q:PT<1 "RTN","ONCACDU2",161,0) .S X=$$GET1^DIQ(164.42,PT,1,"I") "RTN","ONCACDU2",162,0) .Q "RTN","ONCACDU2",163,0) Q X "RTN","ONCACDU2",164,0) CCTST(ACD160) ;Current City "RTN","ONCACDU2",165,0) N X,D0,ONCOX1,OIEN,INCOM,ONCON,ONCOX "RTN","ONCACDU2",166,0) S X="" "RTN","ONCACDU2",167,0) S D0=ACD160 "RTN","ONCACDU2",168,0) I $D(^ONCO(160,D0,0)) D SETUP1^ONCOES "RTN","ONCACDU2",169,0) I $D(ONCOX1) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,4),1:"") "RTN","ONCACDU2",170,0) Q X "RTN","ONCACDU2",171,0) CSTST(ACD160) ;Current State "RTN","ONCACDU2",172,0) N X,D0,ONCOX1,OIEN,INCOM,ONCON,ONCOX "RTN","ONCACDU2",173,0) S X="" "RTN","ONCACDU2",174,0) S D0=ACD160 "RTN","ONCACDU2",175,0) I $D(^ONCO(160,D0,0)) D SETUP1^ONCOES "RTN","ONCACDU2",176,0) I $D(ONCOX1) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,5),1:"") "RTN","ONCACDU2",177,0) S:X'="" X=$$GET1^DIQ(5,X,1,"I") "RTN","ONCACDU2",178,0) Q X "RTN","ONCACDU2",179,0) ICD(ICD) ;Convert ICD Code "RTN","ONCACDU2",180,0) N X "RTN","ONCACDU2",181,0) S ICD=$S(ICD'="":$P($G(^ICD9(ICD,0)),U),1:"0000") "RTN","ONCACDU2",182,0) I ICD["." S ICD=$P(ICD,".")_$P(ICD,".",2) "RTN","ONCACDU2",183,0) S:$L(ICD)=3 ICD=ICD_9 "RTN","ONCACDU2",184,0) S:$L(ICD)<4 ICD=$E("0000",1,4-$L(ICD))_ICD "RTN","ONCACDU2",185,0) S:$L(ICD)>4 ICD=$E(ICD,1,4) "RTN","ONCACDU2",186,0) I $E(ICD,4)="X"!($E(ICD,4)="-") S ICD=$E(ICD,1,3)_9 "RTN","ONCACDU2",187,0) Q ICD "RTN","ONCACDU2",188,0) ICDR(ICD) ;Revision Number "RTN","ONCACDU2",189,0) N ICDR "RTN","ONCACDU2",190,0) S ICD=$$ICD(ICD) "RTN","ONCACDU2",191,0) S ICDR=$S(ICD=" ":0,1:$$GET1^DIQ(160,ACD160,20,"I")) "RTN","ONCACDU2",192,0) S:ICDR="" ICDR=0 "RTN","ONCACDU2",193,0) Q ICDR "RTN","ONCACDU2",194,0) LINK(ACD160) ;Linkage Name "RTN","ONCACDU2",195,0) N NAME,X "RTN","ONCACDU2",196,0) S DFN=ACD160 D DEM^VADPT "RTN","ONCACDU2",197,0) S NAME=VADM(1) "RTN","ONCACDU2",198,0) D KVAR^VADPT "RTN","ONCACDU2",199,0) S X=($A($E(NAME,1)))+($A($E(NAME,2))) "RTN","ONCACDU2",200,0) S X=X-128 I X<1 S X="" "RTN","ONCACDU2",201,0) Q X "RTN","ONCACDU2",202,0) ; "RTN","ONCACDU2",203,0) PPAY(IEN) ;PRIMARY PAYER AT DX (165.5,18) "RTN","ONCACDU2",204,0) N X "RTN","ONCACDU2",205,0) S X=$$GET1^DIQ(165.5,IEN,18,"I") "RTN","ONCACDU2",206,0) S X=$$GET1^DIQ(160.3,$S(X'="":X,1:99),.01,"I") "RTN","ONCACDU2",207,0) S X=$S(X<42:X,X>47:X,1:X-1) "RTN","ONCACDU2",208,0) Q X "RTN","ONCACDU2",209,0) ; "RTN","ONCACDU2",210,0) DS(IEN) ;RX Date--Surgery [1200] 537-544 "RTN","ONCACDU2",211,0) N X "RTN","ONCACDU2",212,0) S X=$$GET1^DIQ(165.5,IEN,50,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",213,0) S X=$$GET1^DIQ(165.5,IEN,138.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",214,0) S X=$$GET1^DIQ(165.5,IEN,139.2,"I") I X'="" S SURGDT(X)="" "RTN","ONCACDU2",215,0) S SURGDT=$O(SURGDT(0)) "RTN","ONCACDU2",216,0) S X=$$DATE^ONCACDU1(SURGDT) "RTN","ONCACDU2",217,0) K SURGDT "RTN","ONCACDU2",218,0) Q X "RTN","ONCEDIT") 0^8^B30885316 "RTN","ONCEDIT",1,0) ONCEDIT ;Hines OIFO/GWB - ONCOLOGY INTERFIELD EDITS ;09/29/00 "RTN","ONCEDIT",2,0) ;;2.11;ONCOLOGY;**27,28,34**;Mar 07, 1995 "RTN","ONCEDIT",3,0) ; "RTN","ONCEDIT",4,0) K MSG "RTN","ONCEDIT",5,0) S RHSP=$$GET1^DIQ(165.5,PRM,.03,"I") ;REPORTING HOSPITAL "RTN","ONCEDIT",6,0) S COCI=$$GET1^DIQ(165.5,PRM,.04,"I") ;CLASS OF CASE "RTN","ONCEDIT",7,0) S COCE=$$GET1^DIQ(165.5,PRM,.04,"E") "RTN","ONCEDIT",8,0) S STAT=$$GET1^DIQ(165.5,PRM,.091) ;STATUS "RTN","ONCEDIT",9,0) S TRSI=$$GET1^DIQ(165.5,PRM,1.2,"I") ;TYPE OF REPORTING SOURCE "RTN","ONCEDIT",10,0) S TRSE=$$GET1^DIQ(165.5,PRM,1.2,"E") "RTN","ONCEDIT",11,0) S RFAC=$$GET1^DIQ(165.5,PRM,6,"I") ;REFERRING FACILITY "RTN","ONCEDIT",12,0) S TFAC=$$GET1^DIQ(165.5,PRM,7,"I") ;TRANSFER FACILITY "RTN","ONCEDIT",13,0) S TOPI=$$GET1^DIQ(165.5,PRM,20,"I") ;ICDO-TOPOGRAPHY "RTN","ONCEDIT",14,0) S TOPE=$$GET1^DIQ(165.5,PRM,20,"E") "RTN","ONCEDIT",15,0) S HSTI=$$HIST^ONCFUNC(PRM) ;HISTOLOGY "RTN","ONCEDIT",16,0) S HSTE=$$GET1^DIQ(165.5,PRM,HSTFLD,"E") "RTN","ONCEDIT",17,0) S BCOD=$E(HSTI,5) ;BEHAVIOR CODE "RTN","ONCEDIT",18,0) S SSTI=$$GET1^DIQ(165.5,PRM,35,"I") ;SUMMARY STAGE "RTN","ONCEDIT",19,0) S SSTE=$$GET1^DIQ(165.5,PRM,35,"E") "RTN","ONCEDIT",20,0) ; "RTN","ONCEDIT",21,0) IF02 S SDX="" "RTN","ONCEDIT",22,0) S SDXI=$$GET1^DIQ(165.5,PRM,16,"I") ;STATE AT DX "RTN","ONCEDIT",23,0) S SDXE=$$GET1^DIQ(165.5,PRM,16,"E") "RTN","ONCEDIT",24,0) I SDXI'="" S SDX=$P(^ONCO(160.15,SDXI,0),U,1) "RTN","ONCEDIT",25,0) S PCDX=$$GET1^DIQ(165.5,PRM,9,"I") ;POSTAL CODE AT DX "RTN","ONCEDIT",26,0) I SDX="YY",PCDX'=888888888 D D ERRMSG "RTN","ONCEDIT",27,0) .S MSG(1)="STATE AT DX = YY ("_SDXE_")" "RTN","ONCEDIT",28,0) .S MSG(2)="POSTAL CODE AT DX must be 888888888" "RTN","ONCEDIT",29,0) I SDX="ZZ",PCDX'=999999999 D D ERRMSG "RTN","ONCEDIT",30,0) .S MSG(1)="STATE AT DX = ZZ ("_SDXE_")" "RTN","ONCEDIT",31,0) .S MSG(2)="POSTAL CODE AT DX must be 999999999" "RTN","ONCEDIT",32,0) K MSG,PCDX,SDX,SDXI,SDXE "RTN","ONCEDIT",33,0) ; "RTN","ONCEDIT",34,0) IF03 I RHSP=RFAC D D ERRMSG "RTN","ONCEDIT",35,0) .S MSG(1)="REPORTING HOSPITAL = REFERRING FACILITY" "RTN","ONCEDIT",36,0) I RHSP=TFAC D D ERRMSG "RTN","ONCEDIT",37,0) .S MSG(1)="REPORTING HOSPITAL = TRANSFER FACILITY" "RTN","ONCEDIT",38,0) ; "RTN","ONCEDIT",39,0) IF10 I ((COCI=2)!(COCI=3)),RFAC="" D D ERRMSG "RTN","ONCEDIT",40,0) .S MSG(1)="CLASS OF CASE = "_COCI_" ("_COCE_")" "RTN","ONCEDIT",41,0) .S MSG(2)="REFERRING FACILITY may not be blank" "RTN","ONCEDIT",42,0) K MSG,RHSP,RFAC,TFAC "RTN","ONCEDIT",43,0) ; "RTN","ONCEDIT",44,0) IF06 S DIAI=$$GET1^DIQ(165.5,PRM,1,"I") ;DATE OF INPATIENT ADMISSION "RTN","ONCEDIT",45,0) S DIAE=$$GET1^DIQ(165.5,PRM,1,"E") "RTN","ONCEDIT",46,0) S DDXI=$$GET1^DIQ(165.5,PRM,3,"I") ;DATE DX "RTN","ONCEDIT",47,0) S DDXE=$$GET1^DIQ(165.5,PRM,3,"E") "RTN","ONCEDIT",48,0) S MSG(1)="CLASS OF CASE = "_COCI_" ("_COCE_")" "RTN","ONCEDIT",49,0) S MSG(2)="DATE OF INPATIENT ADMISSION..: "_DIAE "RTN","ONCEDIT",50,0) S MSG(3)=" later than" "RTN","ONCEDIT",51,0) I COCI=0 D "RTN","ONCEDIT",52,0) .S SPSI=$$GET1^DIQ(165.5,PRM,50,"I") ;SURGERY OF PRIMARY SITE DATE "RTN","ONCEDIT",53,0) .S SPSE=$$GET1^DIQ(165.5,PRM,50,"E") "RTN","ONCEDIT",54,0) .S RADI=$$GET1^DIQ(165.5,PRM,51,"I") ;RADIATION DATE "RTN","ONCEDIT",55,0) .S RADE=$$GET1^DIQ(165.5,PRM,51,"E") "RTN","ONCEDIT",56,0) .S CNSI=$$GET1^DIQ(165.5,PRM,52,"I") ;RADIATION THERAPY TO CNS DATE "RTN","ONCEDIT",57,0) .S CNSE=$$GET1^DIQ(165.5,PRM,52,"E") "RTN","ONCEDIT",58,0) .S CHMI=$$GET1^DIQ(165.5,PRM,53,"I") ;CHEMOTHERAPY DATE "RTN","ONCEDIT",59,0) .S CHME=$$GET1^DIQ(165.5,PRM,53,"E") "RTN","ONCEDIT",60,0) .S HORI=$$GET1^DIQ(165.5,PRM,54,"I") ;HORMONE THERAPY DATE "RTN","ONCEDIT",61,0) .S HORE=$$GET1^DIQ(165.5,PRM,54,"E") "RTN","ONCEDIT",62,0) .S BRMI=$$GET1^DIQ(165.5,PRM,55,"I") ;IMMUNOTHERAPY DATE "RTN","ONCEDIT",63,0) .S BRME=$$GET1^DIQ(165.5,PRM,55,"E") "RTN","ONCEDIT",64,0) .S OTHI=$$GET1^DIQ(165.5,PRM,57,"I") ;OTHER TREATMENT DATE "RTN","ONCEDIT",65,0) .S OTHE=$$GET1^DIQ(165.5,PRM,57,"E") "RTN","ONCEDIT",66,0) .I SPSI'="0000000",DIAI>SPSI D D ERRMSG "RTN","ONCEDIT",67,0) ..S MSG(4)="SURGERY OF PRIMARY SITE DATE.: "_SPSE "RTN","ONCEDIT",68,0) .I RADI'="0000000",DIAI>RADI D D ERRMSG "RTN","ONCEDIT",69,0) ..S MSG(4)="RADIATION DATE...............: "_RADE "RTN","ONCEDIT",70,0) .I DDXI<2960000,CNSI'="0000000",DIAI>CNSI D D ERRMSG "RTN","ONCEDIT",71,0) ..S MSG(4)="RADIATION THERAPY TO CNS DATE: "_CNSE "RTN","ONCEDIT",72,0) .I CHMI'="0000000",DIAI>CHMI D D ERRMSG "RTN","ONCEDIT",73,0) ..S MSG(4)="CHEMOTHERAPY DATE............: "_CHME "RTN","ONCEDIT",74,0) .I HORI'="0000000",DIAI>HORI D D ERRMSG "RTN","ONCEDIT",75,0) ..S MSG(4)="HORMONE THERAPY DATE.........: "_HORE "RTN","ONCEDIT",76,0) .I BRMI'="0000000",DIAI>BRMI D D ERRMSG "RTN","ONCEDIT",77,0) ..S MSG(4)="IMMUNOTHERAPY DATE...........: "_BRME "RTN","ONCEDIT",78,0) .I OTHI'="0000000",DIAI>OTHI D D ERRMSG "RTN","ONCEDIT",79,0) ..S MSG(4)="OTHER TREATMENT DATE.........: "_OTHE "RTN","ONCEDIT",80,0) I (COCI=2)!(COCI=3) D "RTN","ONCEDIT",81,0) .I DIAI'="0000000",DDXI>DIAI D D ERRMSG "RTN","ONCEDIT",82,0) ..S MSG(3)=" earlier than" "RTN","ONCEDIT",83,0) ..S MSG(4)="DATE DX......................: "_DDXE "RTN","ONCEDIT",84,0) K MSG,DIAI,DIAE "RTN","ONCEDIT",85,0) K SPSI,SPSE,RADI,RADE,CNSI,CNSE,CHMI,CHME,HORI,HORE,BRMI,BRME,OTHI,OTHE "RTN","ONCEDIT",86,0) ; "RTN","ONCEDIT",87,0) IF0708 S DXCF=$$GET1^DIQ(165.5,PRM,26,"I") ;DIAGNOSTIC CONFIRMATION "RTN","ONCEDIT",88,0) I TRSI=6,COCI'=5 D D ERRMSG "RTN","ONCEDIT",89,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 6 ("_TRSE_")" "RTN","ONCEDIT",90,0) .S MSG(2)="CLASS OF CASE must be 5 (Dx at autopsy)" "RTN","ONCEDIT",91,0) I COCI=5,TRSI'=6 D D ERRMSG "RTN","ONCEDIT",92,0) .S MSG(1)="CLASS OF CASE = 5 ("_COCE_")" "RTN","ONCEDIT",93,0) .S MSG(2)="TYPE OF REPORTING SOURCE must be 6 (Autopsy only)" "RTN","ONCEDIT",94,0) I TRSI=7,DXCF'=9 D D ERRMSG "RTN","ONCEDIT",95,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 7 ("_TRSE_")" "RTN","ONCEDIT",96,0) .S MSG(2)="DIAGNOSTIC CONFIRMATION must be 9 (Unk if microscopically confirmed)" "RTN","ONCEDIT",97,0) I TRSI=6,((DXCF'=1)&(DXCF'=6)) D D ERRMSG "RTN","ONCEDIT",98,0) .S MSG(1)="TYPE OF REPORTING SOURCE = 6 ("_TRSE_")" "RTN","ONCEDIT",99,0) .S MSG(2)="DIAGNOSTIC CONFIRMATION must be 1 (Pos histology) or" "RTN","ONCEDIT",100,0) .S MSG(3)=" 6 (Direct visualization)" "RTN","ONCEDIT",101,0) K MSG,DXCF "RTN","ONCEDIT",102,0) ; "RTN","ONCEDIT",103,0) IF11 G:TOPI="" IF11EX "RTN","ONCEDIT",104,0) S PORG=$$GET1^DIQ(164,TOPI,.07,"I") ;PAIRED ORGAN "RTN","ONCEDIT",105,0) S LTRL=$$GET1^DIQ(165.5,PRM,28,"I") ;LATERALITY "RTN","ONCEDIT",106,0) I PORG=1,LTRL=0 D D ERRMSG "RTN","ONCEDIT",107,0) .S MSG(1)=TOPE_" is a paired site" "RTN","ONCEDIT",108,0) .S MSG(2)="LATERALITY must be provided for specified paired organs/sites" "RTN","ONCEDIT",109,0) .S MSG(3)="" "RTN","ONCEDIT",110,0) .S:TOPI=67300 MSG(4)="NOTE: If NASAL CARTILAGE or NASAL SEPTUM, override this warning." "RTN","ONCEDIT",111,0) .S:TOPI=67340 MSG(4)="NOTE: If CARINA, override this warning." "RTN","ONCEDIT",112,0) .S:TOPI=67413 MSG(4)="NOTE: If STERNUM, override this warning." "RTN","ONCEDIT",113,0) .S:TOPI=67414 MSG(4)="NOTE: If SACRUM, COCCYX or SYMPHYSIS PUBIS, override this warning." "RTN","ONCEDIT",114,0) I PORG=1,LTRL="" D D ERRMSG "RTN","ONCEDIT",115,0) .S MSG(1)=TOPE_" is a paired site" "RTN","ONCEDIT",116,0) .S MSG(2)="LATERALITY must be provided for specified paired organs/sites" "RTN","ONCEDIT",117,0) I PORG="",LTRL'=0 D D ERRMSG "RTN","ONCEDIT",118,0) .S MSG(1)=TOPE_" is an unpaired site" "RTN","ONCEDIT",119,0) .S MSG(2)="LATERALITY must be 0 (Not a paired site)" "RTN","ONCEDIT",120,0) IF11EX K MSG,PORG,LTRL "RTN","ONCEDIT",121,0) ; "RTN","ONCEDIT",122,0) G ^ONCEDIT2 "RTN","ONCEDIT",123,0) ; "RTN","ONCEDIT",124,0) ERRMSG ;Error message "RTN","ONCEDIT",125,0) S CMPLT=0 "RTN","ONCEDIT",126,0) W !," WARNING: " "RTN","ONCEDIT",127,0) S MSGSUB=0 F S MSGSUB=$O(MSG(MSGSUB)) Q:MSGSUB'>0 W ?10,MSG(MSGSUB),! "RTN","ONCEDIT",128,0) R Z:10 "RTN","ONCEDIT",129,0) Q "RTN","ONCNTX") 0^28^B81360687 "RTN","ONCNTX",1,0) ONCNTX ;Hines OIFO/GWB,RTK;NO TREATMENT STUFFING; 08/27/97 "RTN","ONCNTX",2,0) ;;2.11;ONCOLOGY;**13,15,16,19,22,25,26,27,32,33,34**;Mar 07, 1995 "RTN","ONCNTX",3,0) NTX ;No treatment "RTN","ONCNTX",4,0) D HDR,SUR,NODE,SOSN,RR,SURATF^ONCNTX1 "RTN","ONCNTX",5,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCNTX",6,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D NODEATF^ONCUTX1 "RTN","ONCNTX",7,0) E D NODEATF^ONCNTX1 "RTN","ONCNTX",8,0) D SOSNATF^ONCNTX1,RFNS W ! "RTN","ONCNTX",9,0) K ^ONCO(165.5,DA,14) "RTN","ONCNTX",10,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",11,0) S $P(^ONCO(165.5,DA,3),U,6)=0 "RTN","ONCNTX",12,0) S $P(^ONCO(165.5,DA,3.1),U,12)=0 "RTN","ONCNTX",13,0) D HDR,RAD,RADATF^ONCNTX1,RSSQ^ONCNTX1,RFNR,CNS W ! "RTN","ONCNTX",14,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",15,0) S $P(^ONCO(165.5,DA,3),U,13)=0 "RTN","ONCNTX",16,0) S $P(^ONCO(165.5,DA,3.1),U,14)=0 "RTN","ONCNTX",17,0) D HDR,CHE,CHEMATF^ONCNTX1,RFNC W ! "RTN","ONCNTX",18,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",19,0) S $P(^ONCO(165.5,DA,3),U,16)=0 "RTN","ONCNTX",20,0) S $P(^ONCO(165.5,DA,3.1),U,16)=0 "RTN","ONCNTX",21,0) D HDR,HOR^ONCNTX1,HTATF^ONCNTX1,RFNH^ONCNTX1 W ! "RTN","ONCNTX",22,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",23,0) S $P(^ONCO(165.5,DA,3),U,19)=0 "RTN","ONCNTX",24,0) S $P(^ONCO(165.5,DA,3.1),U,18)=0 "RTN","ONCNTX",25,0) D HDR,IMM^ONCNTX1,IMMATF^ONCNTX1 W ! "RTN","ONCNTX",26,0) K DIR S DIR(0)="E" D ^DIR "RTN","ONCNTX",27,0) S $P(^ONCO(165.5,DA,3),U,25)=0 "RTN","ONCNTX",28,0) S $P(^ONCO(165.5,DA,3.1),U,20)=0 "RTN","ONCNTX",29,0) D HDR,OTH^ONCNTX1,OTHATF^ONCNTX1 W ! "RTN","ONCNTX",30,0) K DIR S DIR(0)="E" D ^DIR I Y=0 S Y="@0" G EXIT "RTN","ONCNTX",31,0) W ! S Y="@347" G EXIT "RTN","ONCNTX",32,0) NCDS ;Diagnostic, Staging, or Palliative Procedures "RTN","ONCNTX",33,0) S $P(^ONCO(165.5,D0,3),U,31)="0000000" D NCDSDT^ONCATF "RTN","ONCNTX",34,0) S DR=58.3 D DIQ1 "RTN","ONCNTX",35,0) W !,"DX/STGING/PALLIATIVE PROC DATE: ",ONC(165.5,DA,58.3,"E") "RTN","ONCNTX",36,0) Q "RTN","ONCNTX",37,0) SUR ;Cancer directed surgery "RTN","ONCNTX",38,0) S $P(^ONCO(165.5,DA,3),U,38)=$S(DATEDX>2971231:1,1:"00") "RTN","ONCNTX",39,0) S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S" "RTN","ONCNTX",40,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",41,0) S $P(^ONCO(165.5,DA,3),U,1)="0000000" D SPSDT^ONCATF "RTN","ONCNTX",42,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",43,0) I DATEDX>2951231 D "RTN","ONCNTX",44,0) .S $P(^ONCO(165.5,DA,3),U,34)=1 "RTN","ONCNTX",45,0) S SMTOP=$P(^ONCO(165.5,DA,2),U,1) "RTN","ONCNTX",46,0) S SURMAR=$S($P(^ONCO(164,SMTOP,0),U,16)=67500:8,$P(^ONCO(164,SMTOP,0),U,16)=67619:8,1:6) "RTN","ONCNTX",47,0) S $P(^ONCO(165.5,DA,3),U,28)=$S(DATEDX>2971231:SURMAR,1:8) "RTN","ONCNTX",48,0) S $P(^ONCO(165.5,DA,3),U,2)="" "RTN","ONCNTX",49,0) S $P(^ONCO(165.5,DA,0),U,11)="00000000" "RTN","ONCNTX",50,0) S DR="58.2;50;2;74;59" D DIQ1 "RTN","ONCNTX",51,0) W:$D(NTX) !,"SURGERY OF PRIMARY SITE.......: ",ONC(165.5,DA,58.2,"E") "RTN","ONCNTX",52,0) W !,"SURGERY OF PRIMARY SITE DATE..: ",ONC(165.5,DA,50,"E") "RTN","ONCNTX",53,0) W !,"PRIMARY SURGEON...............: ",ONC(165.5,DA,2,"E") "RTN","ONCNTX",54,0) I DATEDX>2951231 D "RTN","ONCNTX",55,0) .W !,"SURGICAL APPROACH.............: ",ONC(165.5,DA,74,"E") "RTN","ONCNTX",56,0) W !,"SURGICAL MARGINS..............: ",ONC(165.5,DA,59,"E") "RTN","ONCNTX",57,0) K ONC,SMTOP,SURMAR,TXDT Q "RTN","ONCNTX",58,0) NODE ;Scope of lymph node surgery "RTN","ONCNTX",59,0) Q:DATEDX<2980000 "RTN","ONCNTX",60,0) ;For unknown primary, leukemia, lymphoma, and brain primaries, code 9 "RTN","ONCNTX",61,0) S SITE=$P(^ONCO(165.5,DA,0),U,1) "RTN","ONCNTX",62,0) I (SITE=35)!(SITE=58)!(SITE=63)!(SITE=65)!($$LYMPHOMA^ONCFUNC(DA)=1) D D SCPDT^ONCATF,NUMND^ONCATF Q "RTN","ONCNTX",63,0) .D SGRP^ONCUTX1 F SC=0:0 S SC=$O(^ONCO(164,SGRP,"SC5",SC)) Q:SC="B" S LAST=SC "RTN","ONCNTX",64,0) .S $P(^ONCO(165.5,DA,3),U,40)=LAST "RTN","ONCNTX",65,0) .W !,"SCOPE OF LYMPH NODE SURGERY...: ",$P(^ONCO(164,SGRP,"SC5",LAST,0),U) "RTN","ONCNTX",66,0) .D NODE^ONCUTX "RTN","ONCNTX",67,0) S $P(^ONCO(165.5,DA,3),U,40)=$S(DATEDX>2971231:1,1:"") "RTN","ONCNTX",68,0) S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S" "RTN","ONCNTX",69,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",70,0) S $P(^ONCO(165.5,D0,3.1),U,22)="0000000" D SCPDT^ONCATF "RTN","ONCNTX",71,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",72,0) S $P(^ONCO(165.5,DA,3),U,42)=$S(DATEDX>2971231:"00",1:"") "RTN","ONCNTX",73,0) D NUMND^ONCATF "RTN","ONCNTX",74,0) S DR="138;138.2;140" D DIQ1 "RTN","ONCNTX",75,0) W:$D(NTX) !,"SCOPE OF LYMPH NODE SURGERY...: ",ONC(165.5,DA,138,"E") "RTN","ONCNTX",76,0) W !,"SCOPE OF LYMPH NODE SURG DATE.: ",ONC(165.5,DA,138.2,"E") "RTN","ONCNTX",77,0) W !,"NUMBER OF NODES REMOVED.......: ",ONC(165.5,DA,140,"E") "RTN","ONCNTX",78,0) Q "RTN","ONCNTX",79,0) SOSN ;Surgery of other sites/nodes "RTN","ONCNTX",80,0) Q:DATEDX<2980000 "RTN","ONCNTX",81,0) S $P(^ONCO(165.5,DA,3),U,41)=$S(DATEDX>2971231:1,1:"") "RTN","ONCNTX",82,0) S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,24)_"S" "RTN","ONCNTX",83,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",84,0) S $P(^ONCO(165.5,D0,3.1),U,24)="0000000" D SOSNDT^ONCATF "RTN","ONCNTX",85,0) S ^ONCO(165.5,"ATX",DA,"0000000S")="" "RTN","ONCNTX",86,0) S DR="139;139.2" D DIQ1 "RTN","ONCNTX",87,0) W:$D(NTX) !,"SURGERY OF OTHER SITE/NODES...: ",ONC(165.5,DA,139,"E") "RTN","ONCNTX",88,0) W !,"SURGERY OTH SITES/NODES DATE..: ",ONC(165.5,DA,139.2,"E") "RTN","ONCNTX",89,0) Q "RTN","ONCNTX",90,0) RR ;Reconstruction/restoration "RTN","ONCNTX",91,0) I DATEDX>2951231 D "RTN","ONCNTX",92,0) .S $P(^ONCO(165.5,DA,3),U,33)=$S(DATEDX>2971231:1,1:9) "RTN","ONCNTX",93,0) .S DR=23 D DIQ1 "RTN","ONCNTX",94,0) .W !,"RECONSTRUCTION/RESTORATION....: ",ONC(165.5,DA,23,"E") "RTN","ONCNTX",95,0) Q "RTN","ONCNTX",96,0) RFNS ;Reason for no surgery "RTN","ONCNTX",97,0) W ! K DIR S DIR(0)="SA^0:Surgery performed;1:Surgery not recommended;2:Contraindicated, autopsy-only cases;6:Reason unk;7:Pt refused surgery;8:Surgery recommended, unk if done;9:Unk if performed, death cert-only cases" "RTN","ONCNTX",98,0) S DIR("A")="REASON FOR NO SURGERY: ",DIR("B")="Surgery not recommended",DIR("??")="^D RFNSHLP^ONCNTX1" D ^DIR "RTN","ONCNTX",99,0) I Y[U Q "RTN","ONCNTX",100,0) S $P(^ONCO(165.5,DA,3),U,26)=Y "RTN","ONCNTX",101,0) Q "RTN","ONCNTX",102,0) RAD ;Radiation "RTN","ONCNTX",103,0) S TXDT=$P(^ONCO(165.5,DA,3),U,4)_"R" "RTN","ONCNTX",104,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",105,0) S $P(^ONCO(165.5,DA,3),U,4)="0000000" D RADDT^ONCATF "RTN","ONCNTX",106,0) S ^ONCO(165.5,"ATX",DA,"0000000R")="" "RTN","ONCNTX",107,0) I DATEDX<2970000 D "RTN","ONCNTX",108,0) .S $P(^ONCO(165.5,DA,"THY1"),U,43)="" ;442 REGIONAL DOSE:cGy "RTN","ONCNTX",109,0) .S $P(^ONCO(165.5,DA,3),U,20)="" ;56 NUM OF TREATMENTS "RTN","ONCNTX",110,0) .S $P(^ONCO(165.5,DA,3),U,21)="" ;125 RAD TREATMENT VOLUME "RTN","ONCNTX",111,0) .S $P(^ONCO(165.5,DA,3),U,22)="" ;126 LOCATION OF RAD "RTN","ONCNTX",112,0) .S $P(^ONCO(165.5,DA,3),U,29)="" ;127 INTENT OF RAD "RTN","ONCNTX",113,0) .S $P(^ONCO(165.5,DA,3),U,39)="" ;128 RAD COMPLETION STATUS "RTN","ONCNTX",114,0) .S $P(^ONCO(165.5,DA,3.1),U,3)="" ;132 RAD LOCAL CONTROL ST "RTN","ONCNTX",115,0) .S $P(^ONCO(165.5,DA,3.1),U,1)="" ;129 RAD AUX VOLUME "RTN","ONCNTX",116,0) .S $P(^ONCO(165.5,DA,3.1),U,2)="" ;130 RAD AUX DT "RTN","ONCNTX",117,0) E D "RTN","ONCNTX",118,0) .S $P(^ONCO(165.5,DA,"THY1"),U,43)=0 ;442 REGIONAL DOSE:cGy "RTN","ONCNTX",119,0) .S $P(^ONCO(165.5,DA,3),U,20)=0 ;56 NUM OF TREATMENTS "RTN","ONCNTX",120,0) .S $P(^ONCO(165.5,DA,3),U,21)=1 ;125 RAD TREATMENT VOLUME "RTN","ONCNTX",121,0) .S $P(^ONCO(165.5,DA,3),U,22)=0 ;126 LOCATION OF RAD "RTN","ONCNTX",122,0) .S $P(^ONCO(165.5,DA,3),U,29)=0 ;127 INTENT OF RAD "RTN","ONCNTX",123,0) .S $P(^ONCO(165.5,DA,3),U,39)=1 ;128 RAD COMPLETION STATUS "RTN","ONCNTX",124,0) .S $P(^ONCO(165.5,DA,3.1),U,3)=0 ;132 RAD LOCAL CONTROL ST "RTN","ONCNTX",125,0) .S $P(^ONCO(165.5,DA,3.1),U,1)=1 ;129 RAD AUX VOLUME "RTN","ONCNTX",126,0) .S $P(^ONCO(165.5,DA,3.1),U,2)="0000000" ;130 RAD AUX DT "RTN","ONCNTX",127,0) S $P(^ONCO(165.5,DA,"BLA2"),U,18)=1 ;363 REGIONAL TREATMENT MODALITY "RTN","ONCNTX",128,0) S $P(^ONCO(165.5,DA,3),U,5)="" ;51.1 RAD HOSPITAL "RTN","ONCNTX",129,0) K ^ONCO(165.5,DA,6) ;80 RAD TREATMENT "RTN","ONCNTX",130,0) K ^ONCO(165.5,DA,15) ;109 TEXT-RX-RAD (BEAM) "RTN","ONCNTX",131,0) K ^ONCO(165.5,DA,15.1) ;131 RADIATION AUX TEXT "RTN","ONCNTX",132,0) S DR="51.2;51;442;56;125:130;363;52.2;52;128;132" D DIQ1 "RTN","ONCNTX",133,0) W:$D(NTX) !,"RADIATION:....................: ",ONC(165.5,DA,51.2,"E") "RTN","ONCNTX",134,0) W !,"RADIATION DATE:...............: ",ONC(165.5,DA,51,"E") "RTN","ONCNTX",135,0) I DATEDX>2961231 D "RTN","ONCNTX",136,0) .W !,"REGIONAL DOSE:cGy.............: ",ONC(165.5,DA,442,"E") "RTN","ONCNTX",137,0) .W !,"NUMBER OF TREATMENTS..........: ",ONC(165.5,DA,56,"E") "RTN","ONCNTX",138,0) .W !,"RADIATION TREATMENT VOLUME....: ",ONC(165.5,DA,125,"E") "RTN","ONCNTX",139,0) .W !,"LOCATION OF RADIATION.........: ",ONC(165.5,DA,126,"E") "RTN","ONCNTX",140,0) .W !,"INTENT OF RADIATION...........: ",ONC(165.5,DA,127,"E") "RTN","ONCNTX",141,0) W !,"REGIONAL TREATMENT MODALITY...: ",ONC(165.5,DA,363,"E") "RTN","ONCNTX",142,0) I DATEDX>2961231 D "RTN","ONCNTX",143,0) .W !,"RADIATION COMPLETION STATUS...: ",ONC(165.5,DA,128,"E") "RTN","ONCNTX",144,0) .W !,"RADIATION LOCAL CONTROL STATUS: ",ONC(165.5,DA,132,"E") "RTN","ONCNTX",145,0) .W !,"RADIATION AUXILIARY VOLUME....: ",ONC(165.5,DA,129,"E") "RTN","ONCNTX",146,0) .W !,"RADIATION AUXILIARY DATE......: ",ONC(165.5,DA,130,"E") "RTN","ONCNTX",147,0) W !,"TEXT-RX-RAD...................: " "RTN","ONCNTX",148,0) K ONC,TXDT Q "RTN","ONCNTX",149,0) RFNR ;Reason for no radiation "RTN","ONCNTX",150,0) W ! K DIR S DIR(0)="SA^0:Radiation performed;1:Radiation not recommended;2:Contraindicated, autopsy-only cases;6:Reason unk;7:Pt refused radiation;8:Radiation recommended, unk if performed;9:Unk if performed, death cert-only cases" "RTN","ONCNTX",151,0) S DIR("A")="REASON FOR NO RADIATION: ",DIR("B")="Radiation not recommended",DIR("??")="^D RFNRHLP^ONCNTX1" D ^DIR "RTN","ONCNTX",152,0) I Y[U Q "RTN","ONCNTX",153,0) S $P(^ONCO(165.5,DA,3),U,35)=Y "RTN","ONCNTX",154,0) Q "RTN","ONCNTX",155,0) CNS ;Radiation therapy to CNS "RTN","ONCNTX",156,0) I DATEDX>2951231 S NTDEL="" D CNS^ONCDTX K NTDEL Q "RTN","ONCNTX",157,0) S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCNTX",158,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",159,0) S SITE=$P(^ONCO(165.5,D0,0),U) "RTN","ONCNTX",160,0) I (SITE=31)!(SITE=35)!($$LEUKEMIA^ONCOAIP2(D0))!((SITE>65)&(SITE<70)) D "RTN","ONCNTX",161,0) .S $P(^ONCO(165.5,DA,3),U,10)=0 ;52.2 RADIATION THERAPY TO CNS "RTN","ONCNTX",162,0) .S $P(^ONCO(165.5,DA,3),U,8)="0000000" ;52 RAD THERAPY TO CNS DATE "RTN","ONCNTX",163,0) .S ^ONCO(165.5,"ATX",DA,"0000000P")="" "RTN","ONCNTX",164,0) E D "RTN","ONCNTX",165,0) .S $P(^ONCO(165.5,DA,3),U,10)=9 ;52.2 RADIATION THERAPY TO CNS "RTN","ONCNTX",166,0) .S $P(^ONCO(165.5,DA,3),U,8)=9999999 ;52 RAD THERAPY TO CNS DATE "RTN","ONCNTX",167,0) .S ^ONCO(165.5,"ATX",DA,"9999999P")="" "RTN","ONCNTX",168,0) S $P(^ONCO(165.5,DA,3),U,9)="" ;52.1 RAD THERAPY TO CNS HOSP "RTN","ONCNTX",169,0) K ^ONCO(165.5,DA,16) ;110 TEXT-RX-RAD/CNS "RTN","ONCNTX",170,0) S DR="52.2;52" D DIQ1 "RTN","ONCNTX",171,0) W:$D(NTX) !,"RADIATION THERAPY TO CNS .....: ",ONC(165.5,DA,52.2,"E") "RTN","ONCNTX",172,0) W !,"RADIATION THERAPY TO CNS DATE.: ",ONC(165.5,DA,52,"E") "RTN","ONCNTX",173,0) W !,"TEXT-RX-RAD/CNS...............:" "RTN","ONCNTX",174,0) K SITE,ONC,TXDT Q "RTN","ONCNTX",175,0) CNS0 ;Radiation therapy to CNS "RTN","ONCNTX",176,0) S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCNTX",177,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",178,0) S $P(^ONCO(165.5,DA,3),U,8)="0000000" "RTN","ONCNTX",179,0) S ^ONCO(165.5,"ATX",DA,"0000000P")="" "RTN","ONCNTX",180,0) S $P(^ONCO(165.5,DA,3),U,9)="" "RTN","ONCNTX",181,0) K ^ONCO(165.5,DA,16) "RTN","ONCNTX",182,0) S DR="52" D DIQ1 "RTN","ONCNTX",183,0) W !,"RADIATION THERAPY TO CNS DATE.: ",ONC(165.5,DA,52,"E") "RTN","ONCNTX",184,0) K ONC,TXDT Q "RTN","ONCNTX",185,0) CHE ;Chemotherapy "RTN","ONCNTX",186,0) S TXDT=$P(^ONCO(165.5,DA,3),U,11)_"C" "RTN","ONCNTX",187,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCNTX",188,0) S $P(^ONCO(165.5,DA,3),U,11)="0000000" D CHEMDT^ONCATF "RTN","ONCNTX",189,0) S ^ONCO(165.5,"ATX",DA,"0000000C")="" "RTN","ONCNTX",190,0) S $P(^ONCO(165.5,DA,3),U,12)="" "RTN","ONCNTX",191,0) K ^ONCO(165.5,DA,17) "RTN","ONCNTX",192,0) S DR="53.2;53" D DIQ1 "RTN","ONCNTX",193,0) W:$D(NTX) !,"CHEMOTHERAPY..................: ",ONC(165.5,DA,53.2,"E") "RTN","ONCNTX",194,0) W !,"CHEMOTHERAPY DATE:............: ",ONC(165.5,DA,53,"E") "RTN","ONCNTX",195,0) W !,"TEXT-RX-CHEMO.................: " "RTN","ONCNTX",196,0) K ONC Q "RTN","ONCNTX",197,0) RFNC ;Reason for no chemotherapy "RTN","ONCNTX",198,0) W ! K DIR S DIR(0)="SA^0:Chemo administered;1:Chemo not recommended;2:Contraindicated, autopsy-only cases;6:Reason unk;7:Pt refused chemo;8:Chemo recommended, unk if administered;9:Unk if administered, death cert-only cases" "RTN","ONCNTX",199,0) S DIR("A")="REASON FOR NO CHEMOTHERAPY: ",DIR("B")="Chemo not recommended",DIR("??")="^D RFNCHLP^ONCNTX1" D ^DIR "RTN","ONCNTX",200,0) I Y[U Q "RTN","ONCNTX",201,0) S $P(^ONCO(165.5,DA,3),U,36)=Y "RTN","ONCNTX",202,0) Q "RTN","ONCNTX",203,0) HDR W @IOF,DASHES,!,?1,PATNAM,?TAB,"First Course of Treatment",?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCNTX",204,0) Q "RTN","ONCNTX",205,0) DIQ1 N DI K ONC S DIC="^ONCO(165.5,",DIQ="ONC(",DIQ(0)="E" D EN^DIQ1 Q "RTN","ONCNTX",206,0) EXIT W ! Q "RTN","ONCOAI") 0^17^B24236265 "RTN","ONCOAI",1,0) ONCOAI ;Hines OIFO/RTK,GWB - BEGIN ABSTRACT ENTRY ;7/19/93 "RTN","ONCOAI",2,0) ;;2.11;ONCOLOGY;**6,15,17,18,19,25,26,27,28,29,32,33,34**;Mar 07, 1995 "RTN","ONCOAI",3,0) BEG D EX W @IOF,!!! "RTN","ONCOAI",4,0) S DIC("A")=" Enter patient name: ",DLAYGO=160,DIC="^ONCO(160," "RTN","ONCOAI",5,0) S DIC(0)="AELMQZ" D ^DIC K DIC,DLAYGO G EX:Y<0 "RTN","ONCOAI",6,0) S (D0,ONCOD0)=+Y,ONCOVP=$P(Y,U,2),ONCONM=Y(0,0),ONCONAM=$P(ONCONM,",",2)_" "_$P(ONCONM,",",1),PT0=Y(0),SEX=$P(PT0,U,8) G:SEX'="" PD "RTN","ONCOAI",7,0) DEM ;Display demographic information "RTN","ONCOAI",8,0) D ^ONCOAID G BEG:ONCO0="" "RTN","ONCOAI",9,0) PD K DXS,DIOT S D0=ONCOD0 D PRT^ONCPDI "RTN","ONCOAI",10,0) S SX=$S(SEX=1:"M",SEX=2:"F",1:"") "RTN","ONCOAI",11,0) S ONCOSX=$S(SX="M":"Male",SX="F":"Female",1:"") "RTN","ONCOAI",12,0) A1 K DIR W ! S DIR("A")=" Edit patient data",DIR("B")="YES",DIR(0)="Y" "RTN","ONCOAI",13,0) D ^DIR G CONT:Y[U,EX:Y="",HIS:'Y "RTN","ONCOAI",14,0) ; "RTN","ONCOAI",15,0) PAT ;Edit ONCOLOGY PATIENT (160) data "RTN","ONCOAI",16,0) N RACE,R1 S RACE="" D RACE^ONCOES "RTN","ONCOAI",17,0) I X'="" D "RTN","ONCOAI",18,0) .S R1=$P($G(^DIC(10,X,0)),U,1) "RTN","ONCOAI",19,0) .S RACE=$S(R1["BLACK":"Black",R1["WHITE":"White",1:"") "RTN","ONCOAI",20,0) N AOE,IRE,PGS "RTN","ONCOAI",21,0) D ENVIRON^ONCOES "RTN","ONCOAI",22,0) S ONCOL=0,DA=ONCOD0 "RTN","ONCOAI",23,0) L +^ONCO(160,DA):0 I $T D ^ONCPAT L -^ONCO(160,DA) S ONCOL=1 "RTN","ONCOAI",24,0) I 'ONCOL W !,"Another user is editing this patient." "RTN","ONCOAI",25,0) K ONCOL "RTN","ONCOAI",26,0) ; "RTN","ONCOAI",27,0) HIS ;Patient History "RTN","ONCOAI",28,0) K DIR W ! "RTN","ONCOAI",29,0) S DIR("A")=" Continue with Patient History",DIR(0)="Y",DIR("B")="Yes" "RTN","ONCOAI",30,0) D ^DIR G CONT:Y[U,EX:Y="",CK:Y=0 "RTN","ONCOAI",31,0) S D0=ONCOD0 D PH^ONCPDI "RTN","ONCOAI",32,0) S ONCOL=0,DA=ONCOD0 "RTN","ONCOAI",33,0) L +^ONCO(160,DA):0 I $T D ^ONCPTHST L -^ONCO(160,DA) S ONCOL=1 "RTN","ONCOAI",34,0) I 'ONCOL W !,"Another user is editing this patient" "RTN","ONCOAI",35,0) K ONCOL "RTN","ONCOAI",36,0) ; "RTN","ONCOAI",37,0) CK ;CHECK IF IN PRIMARY "RTN","ONCOAI",38,0) S ONCOP0=$O(^ONCO(165.5,"C",ONCOD0,0)) I ONCOP0'="" S ONCOP=$S($D(^ONCO(165.5,ONCOP0,0)):^(0),1:"") I ONCOP'="" G PRIM2 "RTN","ONCOAI",39,0) PRIM1 ;Patient has no Primary record "RTN","ONCOAI",40,0) REG D KIL S DIR("B")="Yes",DIR(0)="Y",DIR("A")=" Register a Primary for this patient" W !! D ^DIR G AIP:Y,EX:Y="",CONT "RTN","ONCOAI",41,0) PRIM2 ;patient in PRIMARY FILE "RTN","ONCOAI",42,0) D SDD^ONCOCOM "RTN","ONCOAI",43,0) ASK K DIR,Y S DIR(0)="S^E:EDIT existing Primary;A:ADD another Primary;F:Follow-Up;Q:Quit Patient",DIR("A")=" EDIT/ADD primary for this patient",DIR("B")="Edit" D ^DIR G EDT:Y="E",AIP:Y="A",FOL:Y="F",CONT:Y="Q",CONT:U,EX "RTN","ONCOAI",44,0) EDT ;Select primary to edit "RTN","ONCOAI",45,0) S D="C",DIC(0)="EZ",DIC="^ONCO(165.5,",X=ONCONM D IX^DIC K D,DIC,X W ! G BEG:Y<0 I Y=" " W ?40,"Space bar not allowed!" G EDT "RTN","ONCOAI",46,0) S ONCOD0P=+Y D EN^ONCOAIP G FOL "RTN","ONCOAI",47,0) AIP ;Abstract all Primary Data;Return with (D0,ONCOD0P)=Primary Record Number "RTN","ONCOAI",48,0) D @($S(ONCOP0="":"EN^ONCOAIC",ONCOP'="":"EN^ONCOAIM",1:"ER")) G SET:Y,EX:Y="",CONT "RTN","ONCOAI",49,0) ; "RTN","ONCOAI",50,0) SET S (SR,XD,MO)="" "RTN","ONCOAI",51,0) S SSPIEN=$O(^ONCO(160,ONCOD0,"SUS","C",DUZ(2),"")) I SSPIEN'="" D "RTN","ONCOAI",52,0) .S XD=$P(^ONCO(160,ONCOD0,"SUS",SSPIEN,0),U,1) "RTN","ONCOAI",53,0) .S SR=$P(^ONCO(160,ONCOD0,"SUS",SSPIEN,0),U,3) "RTN","ONCOAI",54,0) .S MO=$P(^ONCO(160,ONCOD0,"SUS",SSPIEN,0),U,11) "RTN","ONCOAI",55,0) .S DA(1)=ONCOD0,DA=SSPIEN,DIK="^ONCO(160,"_DA(1)_",""SUS""," D ^DIK "RTN","ONCOAI",56,0) .Q "RTN","ONCOAI",57,0) S ONCOL=0 "RTN","ONCOAI",58,0) S DIE="^ONCO(165.5,",(D0,DA)=ONCOD0P,DR="3///^S X=XD;91///0;95///2" "RTN","ONCOAI",59,0) L +^ONCO(165.5,DA):0 I $T D ^DIE L -^ONCO(165.5,DA) S ONCOL=1 "RTN","ONCOAI",60,0) I MO="" G SET1 "RTN","ONCOAI",61,0) I ((XD<3010000)&('$D(^ONCO(164.1,MO,0))))!((XD>3001231)&('$D(^ONCO(169.3,MO,0)))) D W ! K DIR S DIR(0)="E" D ^DIR G:Y=0 EX G SET1 "RTN","ONCOAI",62,0) .W !!,"WARNING:" "RTN","ONCOAI",63,0) .W !,"The morphology code ",$E(MO,1,4)_"/"_$E(MO,5,6)," found by lab casefinding is not a valid ICD-O code." "RTN","ONCOAI",64,0) .W !,"Enter the correct morphology code at the appropriate HISTOLOGY (ICD-O) prompt." "RTN","ONCOAI",65,0) S:XD<3010000 $P(^ONCO(165.5,D0,2),U,3)=MO,$P(^ONCO(165.5,D0,2.2),U,3)=MO "RTN","ONCOAI",66,0) S:XD>3001231 $P(^ONCO(165.5,D0,2.2),U,3)=MO "RTN","ONCOAI",67,0) SET1 D MS^ONCOCOM,EN^ONCOAIP,FOL "RTN","ONCOAI",68,0) I 'ONCOL W !,"Another user is editing this patient data." "RTN","ONCOAI",69,0) K ONCOL "RTN","ONCOAI",70,0) ; "RTN","ONCOAI",71,0) CONT ;Continue another patient "RTN","ONCOAI",72,0) K DIR W !! S DIR("A")=" Abstract another patient",DIR(0)="Y",DIR("B")="Yes" D ^DIR G BEG:Y,EX "RTN","ONCOAI",73,0) Q "RTN","ONCOAI",74,0) FOL ;Go to Post Followup "RTN","ONCOAI",75,0) S ONCOAI=1 D EN^ONCOAIF ;return from Extended follow-up "RTN","ONCOAI",76,0) Q "RTN","ONCOAI",77,0) KILL ;Kill variables "RTN","ONCOAI",78,0) K ONCOACN,ONCO,ONCOD0,ONCOD0P,ONCOMR,ONCONM,ONCOOUT,ONCOP,ONCOP0,ONCOSN "RTN","ONCOAI",79,0) K ONCOSX,ONCOEDIT,ONCOPB,ONCOSIT,ONCONAM,ONCOPN,ONCOVP,ONCOVS,ONCOX "RTN","ONCOAI",80,0) K ONCOAI,ONCOANS,ONCOT,ONCOYR,COC,IIN "RTN","ONCOAI",81,0) KIL K D1,DI,DN,DIR,DIC,DIE,COB,D,DA,D0,DIR,DR,NM,R,RC,RCC,SEX,SX,POB,SN,TL,X "RTN","ONCOAI",82,0) K A,AG,ABS,AN,ANS,C,CC,CT,CTY,DEF,DLAYGO,I2,I9,PT0,PTR,ST,SDD,VP0,VPR,XN "RTN","ONCOAI",83,0) K DXS,FIL,G,I,J,K,L,M,N,N2,NM,O2,VAERR,D0P,ICD,OT,R1,R2,RIPD0,XDT,XS "RTN","ONCOAI",84,0) K XTS,ZP,ZIP,RY,FG,P,MC,MO,KK,OD,ONCOAD,ONCODD,ONCOICD,OS,PR,Q,S,SC,SR "RTN","ONCOAI",85,0) K T,TS,UF,XDA,XLC,XY,%ZISOS "RTN","ONCOAI",86,0) Q "RTN","ONCOAI",87,0) ER ;Error "RTN","ONCOAI",88,0) W !!?5,"Something is wrong with database!! - See SiteManger" S Y="" Q "RTN","ONCOAI",89,0) EX D KILL "RTN","ONCOAI",90,0) K ONCOANS,D0,DA,DIC,DIE,DIR,DQ,DR,MS,PR,R1,R2,RS,RIP,SR,ST,SY,T,S,Z,ER,TM,CS,XD0,XD1 "RTN","ONCOAI",91,0) K A,AG,D0,D1,DA,DXS,FIL,G,I,J,K,L,M,N,NM,O2,TD,TX,OT,DOP,ICD,C,XX,ONCOYR "RTN","ONCOAI",92,0) K ONCOAD,ONCODD,VAERR,ONCO,ONCOD0P,ONCONM,OP,ONCOD0,%W,%X,%Y,%ZISOS "RTN","ONCOAI",93,0) Q "RTN","ONCOAI",94,0) ; "RTN","ONCOAI",95,0) WRTSDC ;CALLED BY [ONCO DEATH INFO] PRINT TEMPLATE "RTN","ONCOAI",96,0) K DIQ S DIC="^ONCO(160,",DR="19.1",DA=D0,DIQ="ONCSDC" D EN^DIQ1 "RTN","ONCOAI",97,0) W !?4,"State Death Cert: ",ONCSDC(160,D0,19.1) "RTN","ONCOAI",98,0) K ONCSDC "RTN","ONCOAI",99,0) Q "RTN","ONCOAI",100,0) ; "RTN","ONCOAI",101,0) CON ;ADD CONTACTS "RTN","ONCOAI",102,0) ;G BEG:$P($G(^ONCO(160,ONCOD0,1)),U)=0,BEG:$D(^ONCO(160,"APC",ONCOD0)) S,EX:Y="" DIR("A")=" ADD CONTACTS at this time",DIR(0)="Y" W !! D ^DIR G BEG:'Y,CONT:Y[U D DCL^ONCOFUL "RTN","ONCOAIP") 0^29^B79199547 "RTN","ONCOAIP",1,0) ONCOAIP ;Hines OIFO/GWB,RTK - [EE Abstract Edit Primary]; 08/29/01 "RTN","ONCOAIP",2,0) ;;2.11;ONCOLOGY;**1,5,6,7,11,13,15,16,18,19,22,24,27,28,32,33,34**;Mar 07, 1995 "RTN","ONCOAIP",3,0) ED ;[EE Abstract Edit Primary] "RTN","ONCOAIP",4,0) W @IOF,! "RTN","ONCOAIP",5,0) S DIC="^ONCO(165.5,",DIC(0)="AEQZM" "RTN","ONCOAIP",6,0) S DIC("A")=" Select primary or patient name: " "RTN","ONCOAIP",7,0) D ^DIC K DIC G EX:Y<0 "RTN","ONCOAIP",8,0) S ONCOD0P=+Y,ONCOD0=$P(^ONCO(165.5,+Y,0),U,2),ONCOEDIT=1 "RTN","ONCOAIP",9,0) EN S ONCOYR=($$TNMED^ONCOU55(ONCOD0P)>3) "RTN","ONCOAIP",10,0) S DIE="^ONCO(165.5,",DA=ONCOD0P,DR="[ONCO ABSTRACT-I]",ONCOL1=0 "RTN","ONCOAIP",11,0) L +^ONCO(165.5,DA):0 I $T D ^DIE L -^ONCO(165.5,DA) S ONCOL1=1 "RTN","ONCOAIP",12,0) I 'ONCOL1 W !!,"This primary is being edited by another user" H 3 Q:'$D(ONCOEDIT) K ONCOL1 G ED "RTN","ONCOAIP",13,0) K ONCOL1,LYMPHOMA,RFDEF,TFDEF,DFDEF "RTN","ONCOAIP",14,0) I $D(ONCOOUT) Q "RTN","ONCOAIP",15,0) I $D(Y) Q:'$D(ONCOEDIT) G ED "RTN","ONCOAIP",16,0) S Y=$P(^ONCO(165.5,D0,0),U,4) "RTN","ONCOAIP",17,0) I (Y<3)!(Y=5)!(Y=8) K DIR S DIR("A")="Data OK",DIR(0)="Y" D ^DIR G EN:Y=0 "RTN","ONCOAIP",18,0) Q "RTN","ONCOAIP",19,0) ; "RTN","ONCOAIP",20,0) PAIR ;PAIRED ORGAN TEST "RTN","ONCOAIP",21,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOAIP",22,0) Q:TOP="" "RTN","ONCOAIP",23,0) S PO=$P($G(^ONCO(164,TOP,0)),U,7) "RTN","ONCOAIP",24,0) I PO="" S $P(^ONCO(165.5,D0,2),U,8)=0 "RTN","ONCOAIP",25,0) K PO Q "RTN","ONCOAIP",26,0) ; "RTN","ONCOAIP",27,0) MEN ;Primary Menu Options "RTN","ONCOAIP",28,0) K DXS,ONCOOUT,DASHES "RTN","ONCOAIP",29,0) S $P(DASHES,"-",80)="-" "RTN","ONCOAIP",30,0) S NODE0=^ONCO(165.5,D0,0) "RTN","ONCOAIP",31,0) S S=$P(NODE0,U,1),SITEGP=$P(^ONCO(164.2,S,0),U,1) "RTN","ONCOAIP",32,0) S Y=$P(NODE0,U,2),C=$P(^DD(165.5,.02,0),U,2) D Y^DIQ S PATNAM=Y "RTN","ONCOAIP",33,0) S SAVED0=D0 S D0=$P(NODE0,U,2) D SSN^ONCOES S SSN=X,D0=SAVED0 "RTN","ONCOAIP",34,0) S DATEDX=$P(NODE0,U,16) "RTN","ONCOAIP",35,0) D ^ONCPHC "RTN","ONCOAIP",36,0) S COC=$P(NODE0,U,4) "RTN","ONCOAIP",37,0) S OSP=$O(^ONCO(160.1,"C",DUZ(2),0)) "RTN","ONCOAIP",38,0) I OSP="" S OSP=$O(^ONCO(160.1,0)) "RTN","ONCOAIP",39,0) S IIN=$P($G(^ONCO(160.1,OSP,1)),U,4) "RTN","ONCOAIP",40,0) S RH=$P($G(^ONCO(160.19,IIN,0)),U,2) "RTN","ONCOAIP",41,0) K OSP "RTN","ONCOAIP",42,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1),TOPCOD="",TOPNAM="" "RTN","ONCOAIP",43,0) I TOP'="" S TOPNAM=$P(^ONCO(164,TOP,0),U,1),TOPCOD=$P(^ONCO(164,TOP,0),U,2) "RTN","ONCOAIP",44,0) S SITTAB=79-$L(SITEGP),TOPTAB=79-$L(TOPNAM_" "_TOPCOD) "RTN","ONCOAIP",45,0) S NOS=TOPTAB-$L(PATNAM),NOS=NOS-1 K SPACES S $P(SPACES," ",NOS)=" " "RTN","ONCOAIP",46,0) W @IOF "RTN","ONCOAIP",47,0) W !,?1,PATNAM,?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCOAIP",48,0) W !,?25,"Primary Menu Options",!,DASHES "RTN","ONCOAIP",49,0) W !?22,"1. Patient Identification" "RTN","ONCOAIP",50,0) W !?22,"2. Cancer Identification" "RTN","ONCOAIP",51,0) W !?22,"3. Stage of Disease at Diagnosis" "RTN","ONCOAIP",52,0) W !?22,"4. First Course of Treatment" "RTN","ONCOAIP",53,0) W !?22,"5. Patient Care Evaluation" "RTN","ONCOAIP",54,0) W !?22,"6. Over-ride Flags" "RTN","ONCOAIP",55,0) W !!?22,"A All - Complete Abstract" "RTN","ONCOAIP",56,0) ; "RTN","ONCOAIP",57,0) A K AN,ONCOANS,X,Y "RTN","ONCOAIP",58,0) R !!?25,"Enter option: All//",X:DTIME "RTN","ONCOAIP",59,0) S:X="" (ONCOANS,X)="A" "RTN","ONCOAIP",60,0) G:X["?" HP "RTN","ONCOAIP",61,0) I X=U!'$T S Y="",ONCOOUT=U Q "RTN","ONCOAIP",62,0) I (X="A")!(X="ALL")!(X="all")!(X="All") S Y=1 G Y "RTN","ONCOAIP",63,0) S (ONCOANS,Y)=X I X<1!(X>6) W *7,"??" G A "RTN","ONCOAIP",64,0) ; "RTN","ONCOAIP",65,0) Y S Y="@"_Y "RTN","ONCOAIP",66,0) Q "RTN","ONCOAIP",67,0) ; "RTN","ONCOAIP",68,0) HP W !!,?10,"Select 'A' for the complete abstract" "RTN","ONCOAIP",69,0) W !?10,"Select 1-6 for the desired subsection",! "RTN","ONCOAIP",70,0) G A "RTN","ONCOAIP",71,0) ; "RTN","ONCOAIP",72,0) PAT ;Patient Identification "RTN","ONCOAIP",73,0) S SECTION="Patient Identification" D SECTION "RTN","ONCOAIP",74,0) K DXS,DIOT D PI^ONCPCI "RTN","ONCOAIP",75,0) Q "RTN","ONCOAIP",76,0) ; "RTN","ONCOAIP",77,0) CAN S SECTION="Cancer Identification" D SECTION "RTN","ONCOAIP",78,0) D PAIR "RTN","ONCOAIP",79,0) K DXS,DIOT S D0=ONCOD0P D CI^ONCPCI "RTN","ONCOAIP",80,0) Q "RTN","ONCOAIP",81,0) ; "RTN","ONCOAIP",82,0) EXT S SECTION="Stage of Disease at Diagnosis" D SECTION "RTN","ONCOAIP",83,0) S SY="@3105" "RTN","ONCOAIP",84,0) S S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOAIP",85,0) S T=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOAIP",86,0) S H=$$HIST^ONCFUNC(D0) "RTN","ONCOAIP",87,0) I (S=35)!($$LEUKEMIA^ONCOAIP2(D0))!((S>64)&(S<71)) D G PSD "RTN","ONCOAIP",88,0) .S N=$S($E(H,1,4)=9731:"999^10^9",1:"999^80^9") ;Plasmacytoma, NOS "RTN","ONCOAIP",89,0) .S N=$S(S=65:"999^99^9^99^99^9^9^9^9",1:N_"^99^99^9^9^9^7") ;Unk primary "RTN","ONCOAIP",90,0) .I (T=67422)&(L'=1)&(H'=91403) S $P(N,U,2)=99,$P(N,U,9)=9 ;Spleen "RTN","ONCOAIP",91,0) .S $P(^ONCO(165.5,D0,2),U,9,17)=N "RTN","ONCOAIP",92,0) .D NOSTAGE "RTN","ONCOAIP",93,0) .S SY=39 ;Other Stage "RTN","ONCOAIP",94,0) .I S=65 W !?18,"====> UNKNOWN PRIMARY - No EOD/TNM coding <====" Q "RTN","ONCOAIP",95,0) .W !?18,"====> SYSTEMIC DISEASE - No EOD/TMN coding <====" "RTN","ONCOAIP",96,0) ; "RTN","ONCOAIP",97,0) PSD K DXS,DIOT S D0=ONCOD0P D ^ONCPSD K DXS "RTN","ONCOAIP",98,0) S Y=SY "RTN","ONCOAIP",99,0) Q "RTN","ONCOAIP",100,0) ; "RTN","ONCOAIP",101,0) NOSTAGE ;No staging "RTN","ONCOAIP",102,0) S $P(^ONCO(165.5,D0,2),U,25)=88 ;37.1 Clin T "RTN","ONCOAIP",103,0) S $P(^ONCO(165.5,D0,2),U,26)=88 ;37.2 Clin N "RTN","ONCOAIP",104,0) S $P(^ONCO(165.5,D0,2),U,27)=88 ;37.3 Clin M "RTN","ONCOAIP",105,0) S $P(^ONCO(165.5,D0,2),U,20)=88 ;38 Clin Stage Group "RTN","ONCOAIP",106,0) S $P(^ONCO(165.5,D0,3),U,32)=0 ;19 Staged By (Clin Stage) "RTN","ONCOAIP",107,0) S $P(^ONCO(165.5,D0,7),U,17)="N" ;69.4 Multimodality Therapy (Path) "RTN","ONCOAIP",108,0) S $P(^ONCO(165.5,D0,2.1),U,1)=88 ;85 Path T "RTN","ONCOAIP",109,0) S $P(^ONCO(165.5,D0,2.1),U,2)=88 ;86 Path N "RTN","ONCOAIP",110,0) S $P(^ONCO(165.5,D0,2.1),U,3)=88 ;87 Path M "RTN","ONCOAIP",111,0) S $P(^ONCO(165.5,D0,2.1),U,4)=88 ;88 Path Stage Group "RTN","ONCOAIP",112,0) S $P(^ONCO(165.5,D0,2.1),U,5)=0 ;89 Staged By (Path Stage) "RTN","ONCOAIP",113,0) S $P(^ONCO(165.5,D0,2),U,28)="NA" ;38.5 Stage Grouping-AJCC "RTN","ONCOAIP",114,0) Q "RTN","ONCOAIP",115,0) ; "RTN","ONCOAIP",116,0) LN ;BRAIN AND CEREBRAL MENINGES (SEER EOD) "RTN","ONCOAIP",117,0) ;OTHER PARTS OF CENTRAL NERVOUS SYSTEM (SEER EOD) "RTN","ONCOAIP",118,0) S T=$P(^ONCO(165.5,D0,2),U,1) "RTN","ONCOAIP",119,0) I (T=67700)!($E(T,3,4)=71)!($E(T,3,4)=72) D S Y=34 Q "RTN","ONCOAIP",120,0) .S $P(^ONCO(165.5,D0,2),U,11)=9 ;Lymph Nodes "RTN","ONCOAIP",121,0) .S $P(^ONCO(165.5,D0,2),U,12)=99 ;Regional Nodes Positive "RTN","ONCOAIP",122,0) .S $P(^ONCO(165.5,D0,2),U,13)=99 ;Regional Nodes Examined "RTN","ONCOAIP",123,0) .W !,"LYMPH NODES............: Not Applicable" "RTN","ONCOAIP",124,0) .W !,"REGIONAL NODES EXAMINED: Unk; not stated; death cert only" "RTN","ONCOAIP",125,0) .W !,"REGIONAL NODES POSITIVE: Unk if nodes + or -, NA" "RTN","ONCOAIP",126,0) S Y=31 Q "RTN","ONCOAIP",127,0) ; "RTN","ONCOAIP",128,0) FST S SECTION="First Course of Treatment" D SECTION "RTN","ONCOAIP",129,0) Q "RTN","ONCOAIP",130,0) ORF S SECTION="Over-ride Flags" D SECTION "RTN","ONCOAIP",131,0) K DXS,DIOT D ^ONCORF "RTN","ONCOAIP",132,0) Q "RTN","ONCOAIP",133,0) NTX ;DATE OF NO TX "RTN","ONCOAIP",134,0) I '$D(NTDD) S Y="@347" Q "RTN","ONCOAIP",135,0) K NTDD "RTN","ONCOAIP",136,0) W !!?5,"You have entered a DATE OF NO TREATMENT. All treatment fields" "RTN","ONCOAIP",137,0) W !?5,"will be stuffed with the appropriate value indicating no treatment.",! "RTN","ONCOAIP",138,0) K DIR S DIR("A")="Are you sure you want to do this",DIR("B")="No" "RTN","ONCOAIP",139,0) S DIR(0)="Y" D ^DIR "RTN","ONCOAIP",140,0) I (Y=0)!(Y="") D S Y=124 W ! Q "RTN","ONCOAIP",141,0) .S TXDT=$P(^ONCO(165.5,D0,2.1),U,11)_"N" "RTN","ONCOAIP",142,0) .K ^ONCO(165.5,"ATX",D0,TXDT) "RTN","ONCOAIP",143,0) .S $P(^ONCO(165.5,D0,2.1),U,11)="" "RTN","ONCOAIP",144,0) I Y[U S $P(^ONCO(165.5,D0,2.1),U,11)="",Y="@0" Q "RTN","ONCOAIP",145,0) S NTX="" D NTX^ONCNTX K NTX "RTN","ONCOAIP",146,0) Q "RTN","ONCOAIP",147,0) ; "RTN","ONCOAIP",148,0) CNS ;Radiation Therapy to CNS "RTN","ONCOAIP",149,0) I DATEDX>2951231 S Y="@521" Q "RTN","ONCOAIP",150,0) S X=9,CC="",S=$P(^ONCO(165.5,D0,0),U,1) "RTN","ONCOAIP",151,0) I (S=31)!(S=35)!($$LEUKEMIA^ONCOAIP2(D0))!((S>65)&(S<70)) S CC=$P(^ONCO(165.5,D0,0),U,4),X=$S(CC=5:0,CC=8:9,1:"") I X="" S Y="@5221" Q "RTN","ONCOAIP",152,0) S $P(^ONCO(165.5,D0,3),U,10)=X "RTN","ONCOAIP",153,0) I CC=8 D W ! K DIR S DIR(0)="E" D ^DIR S Y=$S(Y=1:"@532",1:"@0") Q "RTN","ONCOAIP",154,0) .S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCOAIP",155,0) .K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOAIP",156,0) .S $P(^ONCO(165.5,D0,3),U,8)=9999999 "RTN","ONCOAIP",157,0) .S ^ONCO(165.5,"ATX",DA,"9999999P")="" "RTN","ONCOAIP",158,0) .W !!,"RADIATION THERAPY TO CNS: Unknown/NA" "RTN","ONCOAIP",159,0) .W !,"RADIATION THERAPY TO CNS DATE: 99/99/9999" "RTN","ONCOAIP",160,0) S TXDT=$P(^ONCO(165.5,DA,3),U,8)_"P" "RTN","ONCOAIP",161,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOAIP",162,0) S $P(^ONCO(165.5,D0,3),U,8)="0000000" "RTN","ONCOAIP",163,0) S ^ONCO(165.5,"ATX",DA,"0000000P")="" "RTN","ONCOAIP",164,0) W !!,"RADIATION THERAPY TO CNS: No radiation to CNS" "RTN","ONCOAIP",165,0) W !,"RADIATION THERAPY TO CNS DATE: 00/00/0000" "RTN","ONCOAIP",166,0) W ! K DIR S DIR(0)="E" D ^DIR I Y=1 S Y="@532" Q "RTN","ONCOAIP",167,0) S Y="@0" Q "RTN","ONCOAIP",168,0) ; "RTN","ONCOAIP",169,0) RS ;Rad/Surg Seq "RTN","ONCOAIP",170,0) S S=$E($$GET1^DIQ(165.5,D0,58.2,"E"),1,2) "RTN","ONCOAIP",171,0) S SATF=$E($$GET1^DIQ(165.5,D0,50.2,"E"),1,2) "RTN","ONCOAIP",172,0) S SCP=$P($G(^ONCO(165.5,D0,3)),U,40) "RTN","ONCOAIP",173,0) S SCPATF=$P($G(^ONCO(165.5,D0,3.1)),U,9) "RTN","ONCOAIP",174,0) S SOTH=$P($G(^ONCO(165.5,D0,3)),U,41) "RTN","ONCOAIP",175,0) S SOTHATF=$P($G(^ONCO(165.5,D0,3.1)),U,10) "RTN","ONCOAIP",176,0) S R=$$GET1^DIQ(165.5,D0,51.2,"I") "RTN","ONCOAIP",177,0) S RATF=$$GET1^DIQ(165.5,D0,51.4,"I") "RTN","ONCOAIP",178,0) I ((S="00")!(S=99)!(S=""))&((SATF="00")!(SATF=99)!(SATF=""))&((SCP=1)!(SCP=""))&((SCPATF=1)!(SCPATF=""))&((SOTH=1)!(SOTH=""))&((SOTHATF=1)!(SOTHATF="")) S SR=0 "RTN","ONCOAIP",179,0) E S SR=1 "RTN","ONCOAIP",180,0) I ((R=0)!(R=7)!(R=8)!(R=9)!(R=""))&((RATF=0)!(RATF=7)!(RATF=8)!(RATF=9)!(RATF="")) S R=0 "RTN","ONCOAIP",181,0) E S R=1 "RTN","ONCOAIP",182,0) I ($G(SR)&$G(R)) D K S,SATF,SCP,SCPATF,SOTH,SOTHATF,R,RATF,SR,SDT,SATFDT,SCPDT,SCPATFDT,SOTDT,SOTATFDT,RDT,RATFDT,RSSEQ,FSDT,FRDT "RTN","ONCOAIP",183,0) .S SDT=$P($G(^ONCO(165.5,D0,3)),U,1) "RTN","ONCOAIP",184,0) .S:SDT'="" RSSEQ("S",SDT)="S",RSSEQ(SDT)="S" "RTN","ONCOAIP",185,0) .S SATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,8) "RTN","ONCOAIP",186,0) .S:SATFDT'="" RSSEQ("S",SATFDT)="S",RSSEQ(SATFDT)="S" "RTN","ONCOAIP",187,0) .S SCPDT=$P($G(^ONCO(165.5,D0,3.1)),U,22) "RTN","ONCOAIP",188,0) .S:SCPDT'="" RSSEQ("S",SCPDT)="S",RSSEQ(SCPDT)="S" "RTN","ONCOAIP",189,0) .S SCPATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,23) "RTN","ONCOAIP",190,0) .S:SCPATFDT'="" RSSEQ("S",SCPATFDT)="S",RSSEQ(SCPATFDT)="S" "RTN","ONCOAIP",191,0) .S SOTDT=$P($G(^ONCO(165.5,D0,3.1)),U,24) "RTN","ONCOAIP",192,0) .S:SOTDT'="" RSSEQ("S",SOTDT)="S",RSSEQ(SOTDT)="S" "RTN","ONCOAIP",193,0) .S SOTATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,25) "RTN","ONCOAIP",194,0) .S:SOTATFDT'="" RSSEQ("S",SOTATFDT)="S",RSSEQ(SOTATFDT)="S" "RTN","ONCOAIP",195,0) .S RDT=$P($G(^ONCO(165.5,D0,3)),U,4) "RTN","ONCOAIP",196,0) .S:RDT'="" RSSEQ("R",RDT)="R",RSSEQ(RDT)="R" "RTN","ONCOAIP",197,0) .S RATFDT=$P($G(^ONCO(165.5,D0,3.1)),U,13) "RTN","ONCOAIP",198,0) .S:RATFDT'="" RSSEQ("R",RATFDT)="R",RSSEQ(RATFDT)="R" "RTN","ONCOAIP",199,0) .S FSDT=$O(RSSEQ("S",0)),FRDT=$O(RSSEQ("R",0)) "RTN","ONCOAIP",200,0) .I FSDT=FRDT Q "RTN","ONCOAIP",201,0) .S RSSEQ=$O(RSSEQ(0)) "RTN","ONCOAIP",202,0) .I RSSEQ(RSSEQ)="R" S $P(^ONCO(165.5,D0,3),U,7)=2 "RTN","ONCOAIP",203,0) .I RSSEQ(RSSEQ)="S" S $P(^ONCO(165.5,D0,3),U,7)=3 "RTN","ONCOAIP",204,0) E D "RTN","ONCOAIP",205,0) .S $P(^ONCO(165.5,D0,3),U,7)=0 "RTN","ONCOAIP",206,0) Q "RTN","ONCOAIP",207,0) C ; "RTN","ONCOAIP",208,0) AB S HDL=$L("Abstract Status"),TAB=(80-HDL)\2,TAB=TAB-1 "RTN","ONCOAIP",209,0) W @IOF,DASHES,!,?1,PATNAM,?TAB,"Abstract Status",?SITTAB,SITEGP,!,?1,SSN,?TOPTAB,TOPNAM," ",TOPCOD,!,DASHES "RTN","ONCOAIP",210,0) DD S X=$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_($E(DT,1,3)+1700) "RTN","ONCOAIP",211,0) W !!,"Abstracted by: "_$P(^VA(200,DUZ,0),U),!,"Reporting date: ",X,! "RTN","ONCOAIP",212,0) Q "RTN","ONCOAIP",213,0) NAN ;NEW ACC # "RTN","ONCOAIP",214,0) K DIR S DIR(0)="N^:"_($E(DT,1,3)+1700),DIR("A")="YEAR of Accession Number: ",DIR("B")=($E(DT,1,3)+1700) W !! D ^DIR Q:(Y=U)!(Y="") "RTN","ONCOAIP",215,0) NA S YR=Y,MR=YR_"0001",XR=999999-((YR+1)_"0000"),NR=$O(^ONCO(165.5,"AF",XR)) "RTN","ONCOAIP",216,0) I NR<(990002-MR) W *7,!!?5,"SYSTEM appears out of numbers-looking for unassigned ones" G FND "RTN","ONCOAIP",217,0) I NR>(999999-MR) S NR="" "RTN","ONCOAIP",218,0) S AC=$S(NR="":YR_"0001",1:(1000000-NR)),SEQ="00" "RTN","ONCOAIP",219,0) Q "RTN","ONCOAIP",220,0) FND ;SEARCH for unused #s "RTN","ONCOAIP",221,0) S NR=YR_"0000",MR=(YR+1)_"0000" "RTN","ONCOAIP",222,0) NR S NR=NR+1 I NRDT) W *7,?40,"Invalid date sequence!!",! G T "RTN","ONCOCFP",25,0) S $P(^ONCO(160.1,OSP,0),U,7)=Y "RTN","ONCOCFP",26,0) S (ED,X)=Y D DD^%DT W " ",Y,! "RTN","ONCOCFP",27,0) S WED=Y "RTN","ONCOCFP",28,0) S DIR("A")=" Dates ok",DIR("B")="Y",DIR(0)="Y" D ^DIR "RTN","ONCOCFP",29,0) G T:'Y,EX:Y[U!(Y="") "RTN","ONCOCFP",30,0) W !!?20,"We will capture codes 140.0 to 239.9" "RTN","ONCOCFP",31,0) W !?20,"From: ",WSD_" To: "_WED,! "RTN","ONCOCFP",32,0) A W !?30,"Including codes:" "RTN","ONCOCFP",33,0) 8 W !?10,"042.2,259.2,273.1,273.2,273.3,273.9,284.9,288.3 & 289.8" "RTN","ONCOCFP",34,0) 1 W !?10,"V-Codes: 07.3,07.8,10.0-9,58.0-1,66.1,66.2,67.1-2,76,77.1" "RTN","ONCOCFP",35,0) 9 W !?20,"(Eliminating BENIGN 209.0-229.9)" "RTN","ONCOCFP",36,0) S ONCO("SD")=SD,ONCO("ED")=ED "RTN","ONCOCFP",37,0) ; "RTN","ONCOCFP",38,0) TSK ;Create task "RTN","ONCOCFP",39,0) K IO("Q") S %ZIS="Q" D ^%ZIS I POP S ONCOUT="" G EX "RTN","ONCOCFP",40,0) I '$D(IO("Q")) D SER^ONCOCFP G EX "RTN","ONCOCFP",41,0) S ZTRTN="SER^ONCOCFP",ZTSAVE("ONCO*")="",ZTDESC="ONCOLOGY PTF SEARCH" D ^%ZTLOAD G EX "RTN","ONCOCFP",42,0) ; "RTN","ONCOCFP",43,0) SER ;Search PTF "RTN","ONCOCFP",44,0) ;Set multidivisional variables "RTN","ONCOCFP",45,0) S AFFDIV=$G(DUZ(2)),ONCDIVSP=$O(^ONCO(160.1,"C",AFFDIV,"")) "RTN","ONCOCFP",46,0) I ONCDIVSP="" W !!,"User does not have an associated DIVISION!",!! G EX "RTN","ONCOCFP",47,0) F Z=0:0 S Z=$O(^ONCO(160.1,ONCDIVSP,6,Z)) Q:Z'>0 S AFFDIV=AFFDIV_U_$G(^ONCO(160.1,ONCDIVSP,6,Z,0)) "RTN","ONCOCFP",48,0) ; "RTN","ONCOCFP",49,0) K ^TMP("ONCO",$J) S XST=ONCO("SD"),(XSD,XDT)=ONCO("SD")-.1111111,XED=ONCO("ED")+.9999999 F J=0,1,2 S ^TMP("ONCO",$J,J)=0 "RTN","ONCOCFP",50,0) F S XDT=$O(^DGPT("ADS",XDT)) Q:XDT>XED!(XDT="") S D0=$O(^(XDT,0)),X70=$G(^DGPT(D0,70)) D IC:X70'="" "RTN","ONCOCFP",51,0) ; "RTN","ONCOCFP",52,0) RPT ; Generate Report "RTN","ONCOCFP",53,0) I $G(^TMP("ONCO",$J,2))=0 S DIC="^ONCO(160.1,",BY="[ONCO NEG-REPORT]" "RTN","ONCOCFP",54,0) E D "RTN","ONCOCFP",55,0) .S DIC="^ONCO(160," "RTN","ONCOCFP",56,0) .S BY="@75,INTERNAL(#3),75,.01" "RTN","ONCOCFP",57,0) .S FR=DUZ(2)_","_ONCO("SD"),TO=DUZ(2)_","_ONCO("ED") "RTN","ONCOCFP",58,0) .S FLDS="[ONCO PTF-CASEFINDING RPT]" "RTN","ONCOCFP",59,0) .Q "RTN","ONCOCFP",60,0) PRT ; Call print routine "RTN","ONCOCFP",61,0) S L=0,IOP=ION,DIOEND="D WP^ONCOCFP" "RTN","ONCOCFP",62,0) D EN1^DIP G EX "RTN","ONCOCFP",63,0) WP ; Wrap-up report "RTN","ONCOCFP",64,0) W !!!?30,"PTF CASEFINDING RESULTS" "RTN","ONCOCFP",65,0) W !!?30,$G(^TMP("ONCO",$J,0))_" Cases found",!?30,$G(^TMP("ONCO",$J,1))_" New Patients added",!?30,$G(^TMP("ONCO",$J,2))_" New cases added",!! "RTN","ONCOCFP",66,0) Q "RTN","ONCOCFP",67,0) ; "RTN","ONCOCFP",68,0) IC ;Search for ICD9 codes "RTN","ONCOCFP",69,0) K HT,IC9,IC,ICD,ICP S P="",CI=0 F F=10,16:1:24 S ICP=+$P(X70,U,F) I ICP S ICD=$G(^ICD9(ICP,0)),IC9=$P(ICD,U) D FD "RTN","ONCOCFP",70,0) Q:CI=0 G CK:CI=2,XY "RTN","ONCOCFP",71,0) FD I ((IC9>139.9)&(IC9<209))!((IC9>229.9)&(IC9<240)) S CI=1 D I Q "RTN","ONCOCFP",72,0) I (IC9=259.2)!(IC9=273.1)!(IC9=273.2)!(IC9=273.3)!(IC9=273.9)!(IC9=284.9)!(IC9=288.3)!(IC9=289.8)!(IC9="042.2") S CI=2,P=IC9 D I Q "RTN","ONCOCFP",73,0) I $E(IC9)="V" S CD=$E(IC9,2,5) I CD>9&(CD<11)!(CD=58.0)!(CD=58.1)!(CD=66.1)!(CD=66.2)!(CD=67.1)!(CD=67.2)!(CD=71.1)!(CD="07.3")!(CD="07.8")!(CD=76) S CI=2,P=IC9 D I Q "RTN","ONCOCFP",74,0) I I CI S IC(IC9)=ICP_U_$P(ICD,U,3)_U_F "RTN","ONCOCFP",75,0) Q "RTN","ONCOCFP",76,0) ; "RTN","ONCOCFP",77,0) XY ;ALTERNATE METHOD "RTN","ONCOCFP",78,0) S P=0 F S P=$O(IC(P)) Q:P="" G CK:P<195.9,CK:(P>199.9&(P<209)) "RTN","ONCOCFP",79,0) S P=0 F S P=$O(IC(P)) Q:P="" G CK:(P>229.9&(P<235)) "RTN","ONCOCFP",80,0) S P=0 F S P=$O(IC(P)) Q:P="" G CK:(P>234.9&(P<240)) "RTN","ONCOCFP",81,0) S P=0 F S P=$O(IC(P)) Q:P="" G CK:(P>195.9&(P<199.2)) "RTN","ONCOCFP",82,0) CK ;check ONCOLOGY file "RTN","ONCOCFP",83,0) Q:P="" "RTN","ONCOCFP",84,0) D DIV Q:DVMTCH=0 "RTN","ONCOCFP",85,0) S ^TMP("ONCO",$J,0)=^TMP("ONCO",$J,0)+1 "RTN","ONCOCFP",86,0) S X=^DGPT(D0,0),ADT=$P($P(X,U,2),"."),X=$P(X,U)_";DPT(" "RTN","ONCOCFP",87,0) S XD0=$O(^ONCO(160,"B",X,0)),ONCIEN=XD0 I XD0="" G MR "RTN","ONCOCFP",88,0) I XD0'="" S ONCDIVS="",ONCS="" F S ONCS=$O(^ONCO(160,XD0,"SUS","C",ONCS)) Q:ONCS'>0 S ONCDIVS=ONCDIVS_U_ONCS "RTN","ONCOCFP",89,0) I ONCDIVS[DUZ(2) Q "RTN","ONCOCFP",90,0) S DA=XD0 I '$D(^ONCO(165.5,"C",XD0)) G N2 "RTN","ONCOCFP",91,0) CKP ;CHECK Primary File "RTN","ONCOCFP",92,0) S XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $$DIV^ONCFUNC(XD1)=DUZ(2) D "RTN","ONCOCFP",93,0) .S XDX=$P($G(^ONCO(165.5,XD1,0)),U,16) I XDT>(ADT-1)&(XDX<($P(XDT,".")+1)) S HT=1 Q "RTN","ONCOCFP",94,0) .S XDX=$P($G(^ONCO(165.5,XD1,1)),U,10) I XDX=XDT S HT=1 Q "RTN","ONCOCFP",95,0) .Q "RTN","ONCOCFP",96,0) Q "RTN","ONCOCFP",97,0) MR ; MAKE NEW RECORD "RTN","ONCOCFP",98,0) ; "RTN","ONCOCFP",99,0) Q:$D(HT) S DIC="^ONCO(160,",DIC(0)="Z" D FILE^DICN S (ONCIEN,XD0,DA)=+Y,^TMP("ONCO",$J,1)=^TMP("ONCO",$J,1)+1 "RTN","ONCOCFP",100,0) N2 ; Create the new suspense multiple entry for the patient "RTN","ONCOCFP",101,0) S ICD=IC(P),F=$P(ICD,U,3),F=$S(F=10:1,1:F-14) "RTN","ONCOCFP",102,0) K DD,DO "RTN","ONCOCFP",103,0) S X1=ADT,X2=1 D C^%DTC S SDT=X "RTN","ONCOCFP",104,0) S X1=ONCO("SD"),X2=1 D C^%DTC S WSD=X "RTN","ONCOCFP",105,0) S DA(1)=ONCIEN,DIC="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFP",106,0) S DIC(0)="L",DIC("P")=$P(^DD(160,75,0),U,2),X=$S(SDTDT) W *7,?40,"Invalid date sequence!!",! G T "RTN","ONCOCFR",30,0) S $P(^ONCO(160.1,OSP,0),U,6)=Y "RTN","ONCOCFR",31,0) S (ED,X)=Y D DD^%DT W " ",Y,! "RTN","ONCOCFR",32,0) S WED=Y "RTN","ONCOCFR",33,0) S DIR("A")=" Dates ok",DIR("B")="Y",DIR(0)="Y" D ^DIR "RTN","ONCOCFR",34,0) G T:'Y,EX:Y[U!(Y="") "RTN","ONCOCFR",35,0) W !!?15,"We will find suspicious malignancies" "RTN","ONCOCFR",36,0) W !?15,"From: ",WSD_" To: "_WED,! "RTN","ONCOCFR",37,0) W ! S ONCO("SD")=SD,ONCO("ED")=ED,ONCO("MG")=MG "RTN","ONCOCFR",38,0) ; "RTN","ONCOCFR",39,0) TSK ;CREATE TASK for Search "RTN","ONCOCFR",40,0) K IO("Q") S %ZIS="Q" D ^%ZIS I POP S ONCOUT="" G EX "RTN","ONCOCFR",41,0) I '$D(IO("Q")) D SER^ONCOCFR G EX "RTN","ONCOCFR",42,0) S ZTRTN="SER^ONCOCFR",ZTSAVE("ONCO*")="",ZTDESC="ONCOLOGY RADIOLOGY SEARCH" D ^%ZTLOAD G EX "RTN","ONCOCFR",43,0) ; "RTN","ONCOCFR",44,0) SER ;SEARCH RADIOLOGY "RTN","ONCOCFR",45,0) ;SET UP MULTIDIVISIONAL VARIABLES "RTN","ONCOCFR",46,0) S AFFDIV=$G(DUZ(2)),ONCDIVSP=$O(^ONCO(160.1,"C",AFFDIV,"")) "RTN","ONCOCFR",47,0) I ONCDIVSP="" W !!,"User does not have an associated DIVISION!",!! G EX "RTN","ONCOCFR",48,0) F Z=0:0 S Z=$O(^ONCO(160.1,ONCDIVSP,6,Z)) Q:Z'>0 S AFFDIV=AFFDIV_U_$G(^ONCO(160.1,ONCDIVSP,6,Z,0)) "RTN","ONCOCFR",49,0) ; "RTN","ONCOCFR",50,0) K ^TMP("ONCO",$J) S (XSD,XDT)=ONCO("SD")-.1111111,XED=ONCO("ED")+.9999999,MG=ONCO("MG") F J=0,1,2 S ^TMP("ONCO",$J,J)=0 "RTN","ONCOCFR",51,0) F S XDT=$O(^RADPT("AR",XDT)) Q:XDT=""!(XDT>XED) S D0=$O(^(XDT,0)),D1=$O(^(D0,0)) D "RTN","ONCOCFR",52,0) .S D2=0 F S D2=$O(^RADPT(D0,"DT",D1,"P",D2)) Q:D2'>0 D "RTN","ONCOCFR",53,0) ..S RA0=$G(^(D2,0)) I RA0="" Q "RTN","ONCOCFR",54,0) ..S PC13=$P(RA0,U,13) I PC13="" Q "RTN","ONCOCFR",55,0) ..S MG=$P($G(^RA(78.3,PC13,0)),U,1),MG=$TR(MG,"malig","MALIG") "RTN","ONCOCFR",56,0) ..I MG["MALIG" S RA($P(^RADPT(D0,0),U))=$P(XDT,".")_U_$P(RA0,U,2)_U_D1 "RTN","ONCOCFR",57,0) ..Q "RTN","ONCOCFR",58,0) .Q "RTN","ONCOCFR",59,0) CK ;check ONCOLOGY file "RTN","ONCOCFR",60,0) GT S XX=0 F S XX=$O(RA(XX)) Q:XX="" D "RTN","ONCOCFR",61,0) .D DIV Q:DVMTCH=0 "RTN","ONCOCFR",62,0) .S ^TMP("ONCO",$J,0)=^TMP("ONCO",$J,0)+1 "RTN","ONCOCFR",63,0) .S HT=0,X=XX_";DPT(" "RTN","ONCOCFR",64,0) .S XDT=$P(RA(XX),U),XD0=$O(^ONCO(160,"B",X,0)),ONCIEN=XD0 "RTN","ONCOCFR",65,0) .I XD0="" D MR Q "RTN","ONCOCFR",66,0) .I XD0'="" S ONCDIVS="",ONCS="" F S ONCS=$O(^ONCO(160,XD0,"SUS","C",ONCS)) Q:ONCS'>0 S ONCDIVS=ONCDIVS_U_ONCS "RTN","ONCOCFR",67,0) .I ONCDIVS'[DUZ(2) D "RTN","ONCOCFR",68,0) ..S (D0,DA)=XD0 I '$D(^ONCO(165.5,"C",XD0)) D N2 Q "RTN","ONCOCFR",69,0) ..I $D(^ONCO(165.5,"C",XD0)) D CKP I 'HT D N2 Q "RTN","ONCOCFR",70,0) .Q "RTN","ONCOCFR",71,0) ; "RTN","ONCOCFR",72,0) RPT ; Generate Report "RTN","ONCOCFR",73,0) I $G(^TMP("ONCO",$J,2))=0 S DIC="^ONCO(160.1,",BY="[ONCO NEG-REPORT]" "RTN","ONCOCFR",74,0) E D "RTN","ONCOCFR",75,0) .S DIC="^ONCO(160," "RTN","ONCOCFR",76,0) .S BY="@75,INTERNAL(#3),75,.01" "RTN","ONCOCFR",77,0) .S FR=DUZ(2)_","_ONCO("SD"),TO=DUZ(2)_","_ONCO("ED") "RTN","ONCOCFR",78,0) .S FLDS="[ONCO RAD-CASEFINDING RPT]" "RTN","ONCOCFR",79,0) .Q "RTN","ONCOCFR",80,0) PRT ; Call print routine "RTN","ONCOCFR",81,0) S L=0,IOP=ION,DIOEND="D WP^ONCOCFR" "RTN","ONCOCFR",82,0) D EN1^DIP G EX "RTN","ONCOCFR",83,0) WP ; Wrap-up report "RTN","ONCOCFR",84,0) W !!!?30,"RADIOLOGY CASEFINDING RESULTS" "RTN","ONCOCFR",85,0) W !!?30,^TMP("ONCO",$J,0)_" Cases found",!?30,^TMP("ONCO",$J,1)_" New Patients added",!?30,^TMP("ONCO",$J,2)_" New cases added",!! "RTN","ONCOCFR",86,0) Q "RTN","ONCOCFR",87,0) CKP ;CHECK Primary File "RTN","ONCOCFR",88,0) S XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $$DIV^ONCFUNC(XD1)=DUZ(2) D "RTN","ONCOCFR",89,0) .S XDX=$P($G(^ONCO(165.5,XD1,0)),U,16) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",90,0) .S XDX=$P($G(^ONCO(165.5,XD1,1)),U,10) I XDX=XDT S HT=1 Q "RTN","ONCOCFR",91,0) .Q "RTN","ONCOCFR",92,0) Q "RTN","ONCOCFR",93,0) MR ;MAKE NEW RECORD "RTN","ONCOCFR",94,0) S DIC="^ONCO(160,",DIC(0)="Z" D FILE^DICN S (ONCIEN,D0,DA)=+Y,^TMP("ONCO",$J,1)=^TMP("ONCO",$J,1)+1 "RTN","ONCOCFR",95,0) N2 ; "RTN","ONCOCFR",96,0) ; Create the new suspense multiple entry for the patient "RTN","ONCOCFR",97,0) K DD,DO "RTN","ONCOCFR",98,0) S DA(1)=ONCIEN,DIC="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",99,0) S DIC(0)="L",DIC("P")=$P(^DD(160,75,0),U,2),X=XDT "RTN","ONCOCFR",100,0) D FILE^DICN "RTN","ONCOCFR",101,0) ; Set the suspense fields in the multiple "RTN","ONCOCFR",102,0) K DIE S DA(1)=ONCIEN,DIE="^ONCO(160,"_DA(1)_",""SUS""," "RTN","ONCOCFR",103,0) S (ONCSUB,DA)=+Y,RDP=$P(RA(XX),U,2) "RTN","ONCOCFR",104,0) S DR="1///^S X=DT;2///^S X=""RA"";3////^S X=DUZ(2);6///^S X=RDP" D ^DIE "RTN","ONCOCFR",105,0) S ^TMP("ONCO",$J,2)=^TMP("ONCO",$J,2)+1 "RTN","ONCOCFR",106,0) Q "RTN","ONCOCFR",107,0) ; "RTN","ONCOCFR",108,0) EX ;EXIT "RTN","ONCOCFR",109,0) K ONCO,ED,HT,MG,OSP,RA,RA0,RAO,SD,WED,WSD,XX,DIJ,DP,D,D0,%T,%ZISOS "RTN","ONCOCFR",110,0) K AFFDIV,DVMTCH,INST,ONCDIVSP,RE1,Z,^TMP("ONCO",$J) D ^%ZISC "RTN","ONCOCFR",111,0) Q "RTN","ONCOCFR",112,0) DIV ; "RTN","ONCOCFR",113,0) S DVMTCH=1,INST="",RE1=$P(RA(XX),U,3) I RE1="" Q "RTN","ONCOCFR",114,0) S INST=$P($G(^RADPT(XX,"DT",RE1,0)),U,3) I INST="" Q "RTN","ONCOCFR",115,0) I AFFDIV'[INST S DVMTCH=0 Q "RTN","ONCOCFR",116,0) Q "RTN","ONCODIS") 0^51^B1392200 "RTN","ONCODIS",1,0) ONCODIS ;Hines OIFO/GWB - ONCOLOGY DISPLAYS ;05/25/00 "RTN","ONCODIS",2,0) ;;2.11;Oncology;**6,7,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34**;Mar 07, 1995 "RTN","ONCODIS",3,0) MAIN ;Begin main menu VA display "RTN","ONCODIS",4,0) S VR=$P($T(ONCODIS+1),";",3),NM="ONCOLOGY TUMOR REGISTRY" D LOGO,FUNCT Q "RTN","ONCODIS",5,0) FUNCT ;INTRODUCTION "RTN","ONCODIS",6,0) W !!?10,"Choose among the following functions:" "RTN","ONCODIS",7,0) Q "RTN","ONCODIS",8,0) LOGO ;DISPLAY LOGO "RTN","ONCODIS",9,0) S:'$D(IOF) IOP="HOME" D:'$D(IOF) ^%ZIS "RTN","ONCODIS",10,0) W *7,@IOF W !!!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) "RTN","ONCODIS",11,0) W !!,?23,"Department of Veterans Affairs",!!?23,NM_" V"_VR_"P34" Q "RTN","ONCODIS",12,0) DISP ; "RTN","ONCODIS",13,0) ;;VVVV VVAA "RTN","ONCODIS",14,0) ;; VVVV VVAAAA "RTN","ONCODIS",15,0) ;; VVVV VVAAAAAA "RTN","ONCODIS",16,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",17,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",18,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",19,0) ;; VVVVVVAA AAAA "RTN","ONCODIS",20,0) ;; VVVVAA AAAAAAAAAAA "RTN","ONCODIS",21,0) ;; VVAA AAAAAAAAAAA "RTN","ONCODIS",22,0) D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q "RTN","ONCOEDC1") 0^24^B37772333 "RTN","ONCOEDC1",1,0) ONCOEDC1 ;HINES OIFO/RTK-EDIT CHECKS FOR ABSTRACT STATUS ;10/30/00 "RTN","ONCOEDC1",2,0) ;;2.11;ONCOLOGY;**27,28,29,34**;Mar 07,1995 "RTN","ONCOEDC1",3,0) ; "RTN","ONCOEDC1",4,0) F1655 ;If any fields not filled in S CMPLT=0 and add that field to LIST array "RTN","ONCOEDC1",5,0) S FLD=$$GET1^DIQ(165.5,PRM,.03,"I") I FLD="" S FDNUM=.03 D CMPLT "RTN","ONCOEDC1",6,0) S FLD=$$GET1^DIQ(165.5,PRM,.05,"I") I FLD="" S FDNUM=.05 D CMPLT "RTN","ONCOEDC1",7,0) S FLD=$$GET1^DIQ(165.5,PRM,.06,"I") I FLD="" S FDNUM=.06 D CMPLT "RTN","ONCOEDC1",8,0) S FLD=$$GET1^DIQ(165.5,PRM,.07,"I") I FLD="" S FDNUM=.07 D CMPLT "RTN","ONCOEDC1",9,0) S FLD=$$GET1^DIQ(165.5,PRM,8,"I") I FLD="" S FDNUM=8 D CMPLT "RTN","ONCOEDC1",10,0) S FLD=$$GET1^DIQ(165.5,PRM,8.1,"I") I FLD="" S FDNUM=8.1 D CMPLT "RTN","ONCOEDC1",11,0) S FLD=$$GET1^DIQ(165.5,PRM,16,"I") I FLD="" S FDNUM=16 D CMPLT "RTN","ONCOEDC1",12,0) S FLD=$$GET1^DIQ(165.5,PRM,11,"I") I FLD="" S FDNUM=11 D CMPLT "RTN","ONCOEDC1",13,0) S FLD=$$GET1^DIQ(165.5,PRM,9,"I") I FLD="" S FDNUM=9 D CMPLT "RTN","ONCOEDC1",14,0) S FLD=$$GET1^DIQ(165.5,PRM,10,"I") I FLD="" S FDNUM=10 D CMPLT "RTN","ONCOEDC1",15,0) S FLD=$$GET1^DIQ(165.5,PRM,4,"E") I FLD="" S FDNUM=4 D CMPLT "RTN","ONCOEDC1",16,0) S FLD=$$GET1^DIQ(165.5,PRM,1,"I") I FLD="" S FDNUM=1 D CMPLT "RTN","ONCOEDC1",17,0) S FLD=$$GET1^DIQ(165.5,PRM,1.1,"I") I FLD="" S FDNUM=1.1 D CMPLT "RTN","ONCOEDC1",18,0) S FLD=$$GET1^DIQ(165.5,PRM,1.2,"I") I FLD="" S FDNUM=1.2 D CMPLT "RTN","ONCOEDC1",19,0) S FLD=$$GET1^DIQ(165.5,PRM,2.1,"I") I FLD="" S FDNUM=2.1 D CMPLT "RTN","ONCOEDC1",20,0) S FLD=$$GET1^DIQ(165.5,PRM,18,"I") I FLD="" S FDNUM=18 D CMPLT "RTN","ONCOEDC1",21,0) S FLD=$$GET1^DIQ(165.5,PRM,.04,"I") I FLD="" S FDNUM=.04 D CMPLT "RTN","ONCOEDC1",22,0) S FLD=$$GET1^DIQ(165.5,PRM,3,"I") I FLD="" S FDNUM=3 D CMPLT "RTN","ONCOEDC1",23,0) S FLD=$$GET1^DIQ(165.5,PRM,147,"I") I FLD="" S FDNUM=147 D CMPLT "RTN","ONCOEDC1",24,0) S FLD=$$GET1^DIQ(165.5,PRM,20,"I") I FLD="" S FDNUM=20 D CMPLT "RTN","ONCOEDC1",25,0) S FLD=$$GET1^DIQ(165.5,PRM,28,"I") I FLD="" S FDNUM=28 D CMPLT "RTN","ONCOEDC1",26,0) ; Note: with patch 28, no need to check field #22 anymore - use #22.3 "RTN","ONCOEDC1",27,0) S FLD=$$GET1^DIQ(165.5,PRM,22.3,"I") I FLD="" S FDNUM=22.3 D CMPLT "RTN","ONCOEDC1",28,0) S FLD=$$GET1^DIQ(165.5,PRM,24,"I") I FLD="" S FDNUM=24 D CMPLT "RTN","ONCOEDC1",29,0) S FLD=$$GET1^DIQ(165.5,PRM,26,"I") I FLD="" S FDNUM=26 D CMPLT "RTN","ONCOEDC1",30,0) S FLD=$$GET1^DIQ(165.5,PRM,29,"I") I FLD="" S FDNUM=29 D CMPLT "RTN","ONCOEDC1",31,0) S FLD=$$GET1^DIQ(165.5,PRM,30,"I") I FLD="" S FDNUM=30 D CMPLT "RTN","ONCOEDC1",32,0) S FLD=$$GET1^DIQ(165.5,PRM,31,"I") I FLD="" S FDNUM=31 D CMPLT "RTN","ONCOEDC1",33,0) S FLD=$$GET1^DIQ(165.5,PRM,33,"I") I FLD="" S FDNUM=33 D CMPLT "RTN","ONCOEDC1",34,0) S FLD=$$GET1^DIQ(165.5,PRM,34,"I") I FLD="" S FDNUM=34 D CMPLT "RTN","ONCOEDC1",35,0) S FLD=$$GET1^DIQ(165.5,PRM,34.1,"I") I FLD="" S FDNUM=34.1 D CMPLT "RTN","ONCOEDC1",36,0) S FLD=$$GET1^DIQ(165.5,PRM,34.2,"I") I FLD="" S FDNUM=34.2 D CMPLT "RTN","ONCOEDC1",37,0) S FLD=$$GET1^DIQ(165.5,PRM,35,"I") I FLD="" S FDNUM=35 D CMPLT "RTN","ONCOEDC1",38,0) S FLD=$$GET1^DIQ(165.5,PRM,32,"I") I FLD="" S FDNUM=32 D CMPLT "RTN","ONCOEDC1",39,0) S FLD=$$GET1^DIQ(165.5,PRM,37.1,"I") I FLD="" S FDNUM=37.1 D CMPLT "RTN","ONCOEDC1",40,0) S FLD=$$GET1^DIQ(165.5,PRM,85,"I") I FLD="" S FDNUM=85 D CMPLT "RTN","ONCOEDC1",41,0) S FLD=$$GET1^DIQ(165.5,PRM,37.2,"I") I FLD="" S FDNUM=37.2 D CMPLT "RTN","ONCOEDC1",42,0) S FLD=$$GET1^DIQ(165.5,PRM,86,"I") I FLD="" S FDNUM=86 D CMPLT "RTN","ONCOEDC1",43,0) S FLD=$$GET1^DIQ(165.5,PRM,37.3,"I") I FLD="" S FDNUM=37.3 D CMPLT "RTN","ONCOEDC1",44,0) S FLD=$$GET1^DIQ(165.5,PRM,87,"I") I FLD="" S FDNUM=87 D CMPLT "RTN","ONCOEDC1",45,0) S FLD=$$GET1^DIQ(165.5,PRM,25.1,"I") I FLD="" S FDNUM=25.1 D CMPLT "RTN","ONCOEDC1",46,0) S FLD=$$GET1^DIQ(165.5,PRM,25.2,"I") I FLD="" S FDNUM=25.2 D CMPLT "RTN","ONCOEDC1",47,0) S FLD=$$GET1^DIQ(165.5,PRM,25.3,"I") I FLD="" S FDNUM=25.3 D CMPLT "RTN","ONCOEDC1",48,0) S FLD=$$GET1^DIQ(165.5,PRM,90,"I") I FLD="" S FDNUM=90 D CMPLT "RTN","ONCOEDC1",49,0) S FLD=$$GET1^DIQ(165.5,PRM,79,"I") I FLD="" S FDNUM=79 D CMPLT "RTN","ONCOEDC1",50,0) S FLD=$$GET1^DIQ(165.5,PRM,119,"I") I FLD="" S FDNUM=119 D CMPLT "RTN","ONCOEDC1",51,0) S FLD=$$GET1^DIQ(165.5,PRM,38,"I") I FLD="" S FDNUM=38 D CMPLT "RTN","ONCOEDC1",52,0) S FLD=$$GET1^DIQ(165.5,PRM,88,"I") I FLD="" S FDNUM=88 D CMPLT "RTN","ONCOEDC1",53,0) S FLD=$$GET1^DIQ(165.5,PRM,19,"I") I FLD="" S FDNUM=19 D CMPLT "RTN","ONCOEDC1",54,0) S FLD=$$GET1^DIQ(165.5,PRM,89,"I") I FLD="" S FDNUM=89 D CMPLT "RTN","ONCOEDC1",55,0) S FLD=$$GET1^DIQ(165.5,PRM,58.3,"I") I FLD="" S FDNUM=58.3 D CMPLT "RTN","ONCOEDC1",56,0) S FLD=$$GET1^DIQ(165.5,PRM,58.1,"I") I FLD="" S FDNUM=58.1 D CMPLT "RTN","ONCOEDC1",57,0) S FLD=$$GET1^DIQ(165.5,PRM,120,"I") I FLD="" S FDNUM=120 D CMPLT "RTN","ONCOEDC1",58,0) S FLD=$$GET1^DIQ(165.5,PRM,121,"I") I FLD="" S FDNUM=121 D CMPLT "RTN","ONCOEDC1",59,0) S FLD=$$GET1^DIQ(165.5,PRM,123,"I") I FLD="" S FDNUM=123 D CMPLT "RTN","ONCOEDC1",60,0) S FLD=$$GET1^DIQ(165.5,PRM,137,"I") I FLD="" S FDNUM=137 D CMPLT "RTN","ONCOEDC1",61,0) S FLD=$$GET1^DIQ(165.5,PRM,849,"I") I FLD="" S FDNUM=849 D CMPLT "RTN","ONCOEDC1",62,0) S FLD=$$GET1^DIQ(165.5,PRM,850,"I") I FLD="" S FDNUM=850 D CMPLT "RTN","ONCOEDC1",63,0) S FLD=$$GET1^DIQ(165.5,PRM,851,"I") I FLD="" S FDNUM=851 D CMPLT "RTN","ONCOEDC1",64,0) S FLD=$$GET1^DIQ(165.5,PRM,122,"I") I FLD="" S FDNUM=122 D CMPLT "RTN","ONCOEDC1",65,0) S FLD=$$GET1^DIQ(165.5,PRM,346,"I") I FLD="" S FDNUM=346 D CMPLT "RTN","ONCOEDC1",66,0) S FLD=$$GET1^DIQ(165.5,PRM,560,"I") I FLD="" S FDNUM=560 D CMPLT "RTN","ONCOEDC1",67,0) S FLD=$$GET1^DIQ(165.5,PRM,49,"E") I FLD="" S FDNUM=49 D CMPLT "RTN","ONCOEDC1",68,0) S FLD=$$GET1^DIQ(165.5,PRM,50,"I") I FLD="" S FDNUM=50 D CMPLT "RTN","ONCOEDC1",69,0) S FLD=$$GET1^DIQ(165.5,PRM,58,"I") I FLD="" S FDNUM=58 D CMPLT "RTN","ONCOEDC1",70,0) S FLD=$$GET1^DIQ(165.5,PRM,58.2,"I") I FLD="" S FDNUM=58.2 D CMPLT "RTN","ONCOEDC1",71,0) S FLD=$$GET1^DIQ(165.5,PRM,74,"I") I FLD="" S FDNUM=74 D CMPLT "RTN","ONCOEDC1",72,0) S FLD=$$GET1^DIQ(165.5,PRM,75,"I") I FLD="" S FDNUM=75 D CMPLT "RTN","ONCOEDC1",73,0) S FLD=$$GET1^DIQ(165.5,PRM,76,"I") I FLD="" S FDNUM=76 D CMPLT "RTN","ONCOEDC1",74,0) S FLD=$$GET1^DIQ(165.5,PRM,77,"I") I FLD="" S FDNUM=77 D CMPLT "RTN","ONCOEDC1",75,0) S FLD=$$GET1^DIQ(165.5,PRM,59,"I") I FLD="" S FDNUM=59 D CMPLT "RTN","ONCOEDC1",76,0) S FLD=$$GET1^DIQ(165.5,PRM,23,"I") I FLD="" S FDNUM=23 D CMPLT "RTN","ONCOEDC1",77,0) S FLD=$$GET1^DIQ(165.5,PRM,51,"I") I FLD="" S FDNUM=51 D CMPLT "RTN","ONCOEDC1",78,0) S FLD=$$GET1^DIQ(165.5,PRM,51.2,"I") I FLD="" S FDNUM=51.2 D CMPLT "RTN","ONCOEDC1",79,0) S FLD=$$GET1^DIQ(165.5,PRM,51.3,"I") I FLD="" S FDNUM=51.3 D CMPLT "RTN","ONCOEDC1",80,0) S FLD=$$GET1^DIQ(165.5,PRM,53,"I") I FLD="" S FDNUM=53 D CMPLT "RTN","ONCOEDC1",81,0) S FLD=$$GET1^DIQ(165.5,PRM,53.2,"I") I FLD="" S FDNUM=53.2 D CMPLT "RTN","ONCOEDC1",82,0) S FLD=$$GET1^DIQ(165.5,PRM,54,"I") I FLD="" S FDNUM=54 D CMPLT "RTN","ONCOEDC1",83,0) S FLD=$$GET1^DIQ(165.5,PRM,54.2,"I") I FLD="" S FDNUM=54.2 D CMPLT "RTN","ONCOEDC1",84,0) S FLD=$$GET1^DIQ(165.5,PRM,55,"I") I FLD="" S FDNUM=55 D CMPLT "RTN","ONCOEDC1",85,0) S FLD=$$GET1^DIQ(165.5,PRM,55.2,"I") I FLD="" S FDNUM=55.2 D CMPLT "RTN","ONCOEDC1",86,0) S FLD=$$GET1^DIQ(165.5,PRM,57,"I") I FLD="" S FDNUM=57 D CMPLT "RTN","ONCOEDC1",87,0) S FLD=$$GET1^DIQ(165.5,PRM,57.2,"I") I FLD="" S FDNUM=57.2 D CMPLT "RTN","ONCOEDC1",88,0) I DTDX>2971231 D "RTN","ONCOEDC1",89,0) .S FLD=$$GET1^DIQ(165.5,PRM,138,"I") I FLD="" S FDNUM=138 D CMPLT "RTN","ONCOEDC1",90,0) .S FLD=$$GET1^DIQ(165.5,PRM,139,"I") I FLD="" S FDNUM=139 D CMPLT "RTN","ONCOEDC1",91,0) .S FLD=$$GET1^DIQ(165.5,PRM,140,"I") I FLD="" S FDNUM=140 D CMPLT "RTN","ONCOEDC1",92,0) .S FLD=$$GET1^DIQ(165.5,PRM,138.1,"I") I FLD="" S FDNUM=138.1 D CMPLT "RTN","ONCOEDC1",93,0) .S FLD=$$GET1^DIQ(165.5,PRM,139.1,"I") I FLD="" S FDNUM=139.1 D CMPLT "RTN","ONCOEDC1",94,0) .S FLD=$$GET1^DIQ(165.5,PRM,140.1,"I") I FLD="" S FDNUM=140.1 D CMPLT "RTN","ONCOEDC1",95,0) .S FLD=$$GET1^DIQ(165.5,PRM,50.2,"I") I FLD="" S FDNUM=50.2 D CMPLT "RTN","ONCOEDC1",96,0) .S FLD=$$GET1^DIQ(165.5,PRM,51.4,"I") I FLD="" S FDNUM=51.4 D CMPLT "RTN","ONCOEDC1",97,0) .S FLD=$$GET1^DIQ(165.5,PRM,53.3,"I") I FLD="" S FDNUM=53.3 D CMPLT "RTN","ONCOEDC1",98,0) .S FLD=$$GET1^DIQ(165.5,PRM,54.3,"I") I FLD="" S FDNUM=54.3 D CMPLT "RTN","ONCOEDC1",99,0) .S FLD=$$GET1^DIQ(165.5,PRM,55.3,"I") I FLD="" S FDNUM=55.3 D CMPLT "RTN","ONCOEDC1",100,0) .S FLD=$$GET1^DIQ(165.5,PRM,57.3,"I") I FLD="" S FDNUM=57.3 D CMPLT "RTN","ONCOEDC1",101,0) .S FLD=$$GET1^DIQ(165.5,PRM,58.4,"I") I FLD="" S FDNUM=58.4 D CMPLT "RTN","ONCOEDC1",102,0) .D BP "RTN","ONCOEDC1",103,0) .Q "RTN","ONCOEDC1",104,0) I DTDX>2961231 S FLD=$$GET1^DIQ(165.5,PRM,442,"I") I FLD="" S FDNUM=442 D CMPLT "RTN","ONCOEDC1",105,0) Q "RTN","ONCOEDC1",106,0) ; "RTN","ONCOEDC1",107,0) BP S TOPFLD=$$GET1^DIQ(165.5,PRM,20,"I"),ONCSITE="" "RTN","ONCOEDC1",108,0) I TOPFLD=67619 S ONCSITE="P" "RTN","ONCOEDC1",109,0) I TOPFLD>67499,TOPFLD<67510 S ONCSITE="B" "RTN","ONCOEDC1",110,0) I ONCSITE'="" D "RTN","ONCOEDC1",111,0) .S FLD=$$GET1^DIQ(165.5,PRM,141,"I") I FLD="" S FDNUM=141 D CMPLT "RTN","ONCOEDC1",112,0) .S FLD=$$GET1^DIQ(165.5,PRM,142,"I") I FLD="" S FDNUM=142 D CMPLT Q "RTN","ONCOEDC1",113,0) I ONCSITE="B" D "RTN","ONCOEDC1",114,0) .S FLD=$$GET1^DIQ(165.5,PRM,143,"I") I FLD="" S FDNUM=143 D CMPLT "RTN","ONCOEDC1",115,0) .S FLD=$$GET1^DIQ(165.5,PRM,144,"I") I FLD="" S FDNUM=144 D CMPLT Q "RTN","ONCOEDC1",116,0) I ONCSITE="P" D "RTN","ONCOEDC1",117,0) .S FLD=$$GET1^DIQ(165.5,PRM,145,"I") I FLD="" S FDNUM=145 D CMPLT "RTN","ONCOEDC1",118,0) .S FLD=$$GET1^DIQ(165.5,PRM,146,"I") I FLD="" S FDNUM=146 D CMPLT Q "RTN","ONCOEDC1",119,0) Q "RTN","ONCOEDC1",120,0) CMPLT ; set CMPLT = 0 and add FLD to LIST of fields needed to be filled in. "RTN","ONCOEDC1",121,0) S FLDNAME=$P($G(^DD(ONCFILE,FDNUM,0)),"^",1) S FDNUM="" "RTN","ONCOEDC1",122,0) S CMPLT=0,LIST(FLDNAME)="" "RTN","ONCOEDC1",123,0) Q "RTN","ONCOES") 0^18^B44144077 "RTN","ONCOES",1,0) ONCOES ;Hines OIFO/GWB - ONCOLOGY PATIENT (160) COMPUTED FIELDS ;08/10/00 "RTN","ONCOES",2,0) ;;2.11;ONCOLOGY;**1,5,6,11,15,16,18,26,27,33,34**;Mar 07, 1995 "RTN","ONCOES",3,0) ; "RTN","ONCOES",4,0) SETUP ;SETUP INITIAL PARAMETERS "RTN","ONCOES",5,0) S X="",ONCON=^ONCO(160,D0,0),ONCOX=$P(ONCON,U),ONCOX1="^"_$P(ONCOX,";",2)_+ONCOX_",0)" "RTN","ONCOES",6,0) Q "RTN","ONCOES",7,0) SETUP1 I $D(^ONCO(160,D0,0)) D SETUP S ONCOX1=$P(ONCOX,";",2)_+ONCOX_",.11)",ONCOX1=U_ONCOX1 "RTN","ONCOES",8,0) Q "RTN","ONCOES",9,0) SETUP2 I $D(^ONCO(160,D0,0)) D SETUP S ONCOX1=$P(ONCOX,";",2)_+ONCOX_",.13)",ONCOX1=U_ONCOX1 "RTN","ONCOES",10,0) Q "RTN","ONCOES",11,0) SETUP3 I $D(^ONCO(160,D0,0)) D SETUP S ONCOX1=$P(ONCOX,";",2)_+ONCOX_",.321)",ONCOX1=U_ONCOX1 "RTN","ONCOES",12,0) Q "RTN","ONCOES",13,0) SSN ;SSN (160,2) "RTN","ONCOES",14,0) S X="" Q:'$D(^ONCO(160,D0,0)) D SETUP "RTN","ONCOES",15,0) S X=$S($D(@ONCOX1):$P(@ONCOX1,U,9),1:"") G:X="" END1 "RTN","ONCOES",16,0) I X?9N S X=$E(X,1,3)_"-"_$E(X,4,5)_"-"_$E(X,6,9) "RTN","ONCOES",17,0) G END1 "RTN","ONCOES",18,0) TRM ;TERMINAL DIGIT FILING, TO SORT BY FOR MEDICAL RECORDS "RTN","ONCOES",19,0) I $D(^ONCO(160,D0,0)) D SETUP S X=$S($D(@ONCOX1):$P(@ONCOX1,U,9),1:"") I X'="" S X="T"_$E(X,8,9)_$E(X,6,7)_$E(X,4,5)_$E(X,1,3) "RTN","ONCOES",20,0) G END1 "RTN","ONCOES",21,0) DOB ;DOB "RTN","ONCOES",22,0) I $D(^ONCO(160,D0,0)) D SETUP S X=$S($D(@ONCOX1):$P(@ONCOX1,U,3),1:"") "RTN","ONCOES",23,0) D DATEOT S Y=X "RTN","ONCOES",24,0) G END1 "RTN","ONCOES",25,0) RACE ;RACE "RTN","ONCOES",26,0) I $D(^ONCO(160,D0,0)) D SETUP S X=$S($D(@ONCOX1):$P(@ONCOX1,U,6),1:"") "RTN","ONCOES",27,0) G END1 "RTN","ONCOES",28,0) DATEOT ;Date output transform "RTN","ONCOES",29,0) I X="0000000" D DD Q "RTN","ONCOES",30,0) I $E(X,4,5)="00" S $E(X,4,5)=99 "RTN","ONCOES",31,0) I $E(X,6,7)="00" S $E(X,6,7)=99 "RTN","ONCOES",32,0) D DD "RTN","ONCOES",33,0) Q "RTN","ONCOES",34,0) ; "RTN","ONCOES",35,0) DOB1 ;date of birth returned in X in File Manager format "RTN","ONCOES",36,0) I $D(^ONCO(160,D0,0)) D SETUP S X=$S($D(@ONCOX1):$P(@ONCOX1,U,3),1:"") "RTN","ONCOES",37,0) G END "RTN","ONCOES",38,0) MS ; "RTN","ONCOES",39,0) I $D(^ONCO(160,D0,0)) D SETUP S ONCOX2=$S($D(@ONCOX1):$P(@ONCOX1,U,5),1:""),X=$S((ONCOX2>0):$P(^DIC(11,ONCOX2,0),U,1),1:"") "RTN","ONCOES",40,0) G END "RTN","ONCOES",41,0) REL ; "RTN","ONCOES",42,0) I $D(^ONCO(160,D0,0)) D SETUP S ONCOX2=$S($D(@ONCOX1):$P(@ONCOX1,U,8),1:""),X=$S((ONCOX2>0):$P(^DIC(13,ONCOX2,0),U,1),1:"") "RTN","ONCOES",43,0) G END "RTN","ONCOES",44,0) ; "RTN","ONCOES",45,0) OCC ;Current Occupation from MAS "RTN","ONCOES",46,0) I $D(^ONCO(160,D0,0)) D SETUP S X=$S($D(@ONCOX1):$P(@ONCOX1,U,7),1:"") "RTN","ONCOES",47,0) G END "RTN","ONCOES",48,0) ; "RTN","ONCOES",49,0) ALIAS ; "RTN","ONCOES",50,0) Q:'$D(^ONCO(160,D0,0)) D SETUP Q:$P(ONCOX,";",2)'="DPT(" S XD0=$P(ONCOX,";") "RTN","ONCOES",51,0) S XD1=0 F S XD1=$O(^DPT(XD0,.01,XD1)) Q:XD1'>0 W !,$P(^(XD1,0),U) "RTN","ONCOES",52,0) Q "RTN","ONCOES",53,0) G EXIT "RTN","ONCOES",54,0) SA1 ; "RTN","ONCOES",55,0) D SETUP1 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,1),1:"") "RTN","ONCOES",56,0) G END "RTN","ONCOES",57,0) SA2 ; "RTN","ONCOES",58,0) D SETUP1 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,2),1:"") "RTN","ONCOES",59,0) G END "RTN","ONCOES",60,0) SA3 ; "RTN","ONCOES",61,0) D SETUP1 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,3),1:"") "RTN","ONCOES",62,0) G END "RTN","ONCOES",63,0) NOTE ;NONE OF THE COMPUTED FIELDS BELOW USING ZIPCODE FILE CAN BE USED SO LONG AS MAS DOES NOT USE THE ZICODE FILE;THE ZIPCODE PICKED WILL BE THE FIRST IF THE LIST IF MORE THAN ONE SELECTION "RTN","ONCOES",64,0) ZIPCT ;gets City, State ZIP County "RTN","ONCOES",65,0) D ZIP1 S X=Z_" "_$P($G(^VIC(5.1,+($P($G(^VIC(5.11,+Y,0)),U,3)),0)),U) "RTN","ONCOES",66,0) G END "RTN","ONCOES",67,0) ; "RTN","ONCOES",68,0) ADD ;Address from MAS "RTN","ONCOES",69,0) D SETUP1 S X=$G(@ONCOX1),X=$P(X,U)_" "_$P(X,U,2) "RTN","ONCOES",70,0) G END "RTN","ONCOES",71,0) ZIP ;gets City, State ZIP "RTN","ONCOES",72,0) ;get fields from MAS fields "RTN","ONCOES",73,0) I $D(^ONCO(160,D0,0)) D SETUP1 S Y=$S($D(@ONCOX1):$P(@ONCOX1,U,4,6),1:""),X=$P(Y,U,2),X=$S(X="":"",1:", "_$P(^DIC(5,X,0),U,2)),X=$P(Y,U)_X_" "_$P(Y,U,3) "RTN","ONCOES",74,0) G END "RTN","ONCOES",75,0) ; "RTN","ONCOES",76,0) CTY ;County from MAS (State file) "RTN","ONCOES",77,0) I $D(^ONCO(160,D0,0)) D SETUP1 S Y=$S($D(@ONCOX1):$P(@ONCOX1,U,5,7),1:""),X=$P(Y,U),Y=+$P(Y,U,3),X=$S(X="":"",1:$P($G(^DIC(5,X,1,Y,0)),U)) "RTN","ONCOES",78,0) G END "RTN","ONCOES",79,0) ZIP1 I $D(^ONCO(160,D0,0)) D SETUP1 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,6),1:"") "RTN","ONCOES",80,0) S Y=$O(^VIC(5.11,"B",X_" ",0)),Z=$S(Y="":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_","_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_" "_$P(^VIC(5.11,Y,0),U,1),1:"") Q "RTN","ONCOES",81,0) G END "RTN","ONCOES",82,0) CT ;Get County from Zipcode "RTN","ONCOES",83,0) I $D(^ONCO(160,D0,0)) D SETUP1 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,6),1:"") Q:X="" S X=$O(^VIC(5.11,"B",X_" ",0)) Q:X="" S X=$P(^VIC(5.1,$P(^VIC(5.11,X,0),U,3),0),U) "RTN","ONCOES",84,0) G END "RTN","ONCOES",85,0) ZCTY ;Gets County from Zipcode "RTN","ONCOES",86,0) D ZIP1 S X=$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U) "RTN","ONCOES",87,0) G END "RTN","ONCOES",88,0) ST ;gets State #.11:5 "RTN","ONCOES",89,0) I $D(^ONCO(160,D0,0)) D SETUP1 S Y=$P($G(@ONCOX1),U,5),X=$P($G(^DIC(5,+Y,0)),U,2) "RTN","ONCOES",90,0) G END "RTN","ONCOES",91,0) PH ; "RTN","ONCOES",92,0) S X="" Q:'$D(^ONCO(160,D0,0)) D SETUP2 S X=$S($D(@ONCOX1):$P(@ONCOX1,U,1),1:9999999999) "RTN","ONCOES",93,0) G END "RTN","ONCOES",94,0) ; "RTN","ONCOES",95,0) EMP ;Employment Status "RTN","ONCOES",96,0) I $D(^ONCO(160,D0,0)) D SETUP S X1=$P(ONCOX1,";",2) G END:X1="LRT(" S X1="^DPT("_$P(ONCOX,";")_",.311)",X=$P($G(@X1),U,15),X=$P($P($P(^DD(2,.31115,0),U,3),";",X),":",2) G END "RTN","ONCOES",97,0) ; "RTN","ONCOES",98,0) ENVIRON ;Environmental exposure defaults "RTN","ONCOES",99,0) I $P(^ONCO(160,D0,0),U,1)["LRT(67," S (AOE,IRE,PGS,SS,MES)="" Q "RTN","ONCOES",100,0) S DPTIEN=$P(^ONCO(160,D0,0),";",1) "RTN","ONCOES",101,0) S AOE=$$GET1^DIQ(2,DPTIEN,.32102,"E") ;Agent Orange Exposure "RTN","ONCOES",102,0) S IRE=$$GET1^DIQ(2,DPTIEN,.32103,"E") ;Ionizing Radiation Exposure "RTN","ONCOES",103,0) S PGS=$$GET1^DIQ(2,DPTIEN,.32201,"E") ;Persian Gulf Service "RTN","ONCOES",104,0) S SS=$$GET1^DIQ(2,DPTIEN,.322016,"E") ;Somalia Service "RTN","ONCOES",105,0) S MES=$$GET1^DIQ(2,DPTIEN,.3221,"E") ;Middle East Service "RTN","ONCOES",106,0) K DPTIEN "RTN","ONCOES",107,0) Q "RTN","ONCOES",108,0) ; "RTN","ONCOES",109,0) DD S (X,Y)=$S(X="":"",X="0000000":"00/00/0000",X="9999999":"99/99/9999",1:$E(X,4,5)_"/"_$E(X,6,7)_"/"_(1700+$E(X,1,3))) "RTN","ONCOES",110,0) Q "RTN","ONCOES",111,0) END ; "RTN","ONCOES",112,0) K ONCON,ONCOX,ONCOX1,ONCOX2,ONCODIWL,Z "RTN","ONCOES",113,0) END1 ; "RTN","ONCOES",114,0) K ONCOX1 "RTN","ONCOES",115,0) Q "RTN","ONCOES",116,0) EXIT ; "RTN","ONCOES",117,0) S X="" G END "RTN","ONCOES",118,0) AAD ;ADDRESS AT DX "RTN","ONCOES",119,0) S PCAD=$P($G(^ONCO(165.5,D0,1)),U,2) "RTN","ONCOES",120,0) S SADP=$P($G(^ONCO(165.5,D0,1)),U,4) "RTN","ONCOES",121,0) S SAD="" I SADP'="" S SAD=$P($G(^ONCO(160.15,SADP,0)),U,1) "RTN","ONCOES",122,0) S CTAD=$P($G(^ONCO(165.5,D0,1)),U,12) "RTN","ONCOES",123,0) S AAD=CTAD_" "_SAD_" "_PCAD "RTN","ONCOES",124,0) S AAD=$$LCASE^ONCOU(AAD) "RTN","ONCOES",125,0) Q "RTN","ONCOES",126,0) W17AAD W !,?21,AAD G AADEX "RTN","ONCOES",127,0) W9AAD W !,?9,AAD G AADEX "RTN","ONCOES",128,0) AADEX K PCAD,SADP,SAD,CTAD,AAD "RTN","ONCOES",129,0) Q "RTN","ONCOES",130,0) TLEEOT ;TUMOR LEVEL FROM ENDOSCOPIC EXAM OUTPUT TRANSFORM "RTN","ONCOES",131,0) S:$L(Y)=1 Y="0"_Y "RTN","ONCOES",132,0) I Y="00" S Y="Endoscopic exam not performed" Q "RTN","ONCOES",133,0) I Y=61 S Y="Splenic flexure" Q "RTN","ONCOES",134,0) I Y=62 S Y="Transverse colon" Q "RTN","ONCOES",135,0) I Y=63 S Y="Hepatic flexure" Q "RTN","ONCOES",136,0) I Y=64 S Y="Ascending colon" Q "RTN","ONCOES",137,0) I Y=65 S Y="Cecum" Q "RTN","ONCOES",138,0) I Y=70 S Y="Endoscopic exam, tumor not visualized" Q "RTN","ONCOES",139,0) I Y=80 S Y="Endoscopic exam, results unknown" Q "RTN","ONCOES",140,0) I Y=99 S Y="Unknown if exam done" Q "RTN","ONCOES",141,0) S Y=Y_" centimeters" Q "RTN","ONCOES",142,0) ASPIT ;ADDITIONAL SURGICAL PROCEDURES INPUT TRANSFORM "RTN","ONCOES",143,0) I X<10 K X Q "RTN","ONCOES",144,0) I "10^20^30^40^41^42^43^44^50^60^88^99"'[X K X Q "RTN","ONCOES",145,0) S Y=X D ASPOT W " ",Y K Y Q "RTN","ONCOES",146,0) ASPOT ;ADDITIONAL SURGICAL PROCEDURES OUTPUT TRANSFORM "RTN","ONCOES",147,0) D SETASP "RTN","ONCOES",148,0) S Y=ASP(Y) K ASP Q "RTN","ONCOES",149,0) ASPHP D SETASP "RTN","ONCOES",150,0) F ASPX=0:0 S ASPX=$O(ASP(ASPX)) Q:ASPX'>0 W !," ",ASPX," ",ASP(ASPX) "RTN","ONCOES",151,0) W ! K ASP,ASPX Q "RTN","ONCOES",152,0) SETASP ; "RTN","ONCOES",153,0) S ASP(10)="Transanal excision" "RTN","ONCOES",154,0) S ASP(20)="Posterior sacral" "RTN","ONCOES",155,0) S ASP(30)="Anterior resection w/o anastomosis" "RTN","ONCOES",156,0) S ASP(40)="Anterior resection w anastomosis, NOS" "RTN","ONCOES",157,0) S ASP(41)="Anterior resection w simple anastomosis" "RTN","ONCOES",158,0) S ASP(42)="Ant res w colo pouch coloanal anastomosis" "RTN","ONCOES",159,0) S ASP(43)="Anterior resection w ilioanal anastomosis" "RTN","ONCOES",160,0) S ASP(44)="Anterior resection w coloanal anastomosis" "RTN","ONCOES",161,0) S ASP(50)="Colostomy w/o resection" "RTN","ONCOES",162,0) S ASP(60)="Abdomino perineal resection (APR)" "RTN","ONCOES",163,0) S ASP(88)="NA, none performed" "RTN","ONCOES",164,0) S ASP(99)="Unknown if performed" Q "RTN","ONCOES",165,0) PTRDOT ;PRIMARY TUMOR RAD DOSE (cGy) OUTPUT TRANSFORM "RTN","ONCOES",166,0) S Y=$S($L(Y)=1:"0000"_Y,$L(Y)=2:"000"_Y,$L(Y)=3:"00"_Y,$L(Y)=4:"0"_Y,1:Y) "RTN","ONCOES",167,0) I Y="00000" S Y="No radiation therapy" "RTN","ONCOES",168,0) I Y="88888" S Y="Received radiation therapy, dose unknown" "RTN","ONCOES",169,0) I Y="99999" S Y="Unknown if received radiation therapy" "RTN","ONCOES",170,0) Q "RTN","ONCOHICD") 0^50^B39487351 "RTN","ONCOHICD",1,0) ONCOHICD ;Hines OIFO GWB-ICD-O HELP ;5/18/92 "RTN","ONCOHICD",2,0) ;;2.11;ONCOLOGY;**28,32,34**;Mar 07, 1995 "RTN","ONCOHICD",3,0) ;Display of appropriate codes for either Topography #20 - file #164.2 or "RTN","ONCOHICD",4,0) ;Display of appropriate codes for Morphology #22 - file #164.3 "RTN","ONCOHICD",5,0) ; "RTN","ONCOHICD",6,0) HP ;EXTENDED HELP "RTN","ONCOHICD",7,0) Q:'$D(ONCOX) S ONCOY=$S(ONCOX=164:2,1:3),ONCOS=$P(^ONCO(165.5,D0,0),U) "RTN","ONCOHICD",8,0) W:$X ! "RTN","ONCOHICD",9,0) S XI=0 F S XI=$O(^ONCO(164.2,ONCOS,ONCOY,"B",XI)) Q:XI'>0 S Y=^ONCO(ONCOX,XI,0) W !,?3,$P(Y,U,2),?12,$P(Y,U),?45,$P(Y,U,9) "RTN","ONCOHICD",10,0) W:$X ! "RTN","ONCOHICD",11,0) K ONCOX,ONCOS,ONCOY "RTN","ONCOHICD",12,0) Q "RTN","ONCOHICD",13,0) ICDO3 ;ICD-O-3 MORPHOLOGY help "RTN","ONCOHICD",14,0) S ICDTOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOHICD",15,0) I ICDTOP="" G ICDO3EX "RTN","ONCOHICD",16,0) S ICDTOP=$E(ICDTOP,1,4) "RTN","ONCOHICD",17,0) W:$X ! "RTN","ONCOHICD",18,0) S XI=0 F I=1:1 S XI=$O(^ONCO(169.3,"AC",ICDTOP,XI)) Q:XI'>0 S Y=^ONCO(169.3,XI,0) W:I=1 !,?3,"Common morpholgies for topography ","(C",$E(ICDTOP,3,4),"._)",! W !,?3,$P(Y,U,2)," ",$P(Y,U,1) I I#20=0 K DIR S DIR(0)="E" D ^DIR Q:'Y W @IOF "RTN","ONCOHICD",19,0) W:$X ! "RTN","ONCOHICD",20,0) ICDO3EX K ICDTOP,XI,I "RTN","ONCOHICD",21,0) Q "RTN","ONCOHICD",22,0) ; "RTN","ONCOHICD",23,0) HIST23 ;If HISTOLOGY (ICD-O-2) (165.5,22) value is changed and DATE DX is "RTN","ONCOHICD",24,0) ;prior to 2001, delete HISTOLOGY (ICD-O-3) (165.5,22.3) value "RTN","ONCOHICD",25,0) S:$P(^ONCO(165.5,DA,0),U,16)<3010000 $P(^ONCO(165.5,DA,2.2),U,3)="" "RTN","ONCOHICD",26,0) Q "RTN","ONCOHICD",27,0) ; "RTN","ONCOHICD",28,0) DEFH3 ;HISTOLOGY (ICD-O-3) (165.5,22.3) default "RTN","ONCOHICD",29,0) S H3DEF="",DATEDX=$P($G(^ONCO(165.5,D0,0)),U,16) I DATEDX>3001231 Q "RTN","ONCOHICD",30,0) S H2VAL=$P($G(^ONCO(165.5,D0,2)),U,3),FND=0 "RTN","ONCOHICD",31,0) I H2VAL="" D Q "RTN","ONCOHICD",32,0) .S $P(^ONCO(165.5,D0,2.2),U,3)="",Y=101 "RTN","ONCOHICD",33,0) .W !,"HISTOLOGY (ICD-O-3): " Q "RTN","ONCOHICD",34,0) F NNN=1:1 S VAL=$P($T(TABLE+NNN),";;",2) D Q:VAL=""!(FND=1) "RTN","ONCOHICD",35,0) .I $P(VAL,U,1)=H2VAL S H3DEF=$E($P(VAL,U,2),1,5),FND=1 "RTN","ONCOHICD",36,0) I H3DEF'="" S H3DEF=$P($G(^ONCO(169.3,H3DEF,0)),U,1) Q "RTN","ONCOHICD",37,0) I H3DEF="" S H3DEF=$P($G(^ONCO(169.3,H2VAL,0)),U,1) Q "RTN","ONCOHICD",38,0) ; "RTN","ONCOHICD",39,0) TABLE ;Histology ICD-O-2 to ICD-O-3 Table "RTN","ONCOHICD",40,0) ;;82411^82401 ;CARCINOID TUMOR OF UNCERTAIN MALIG POTENTIAL "RTN","ONCOHICD",41,0) ;;85113^83453 ;MEDULLARY CARCINOMA WITH AMYLOID STROMA "RTN","ONCOHICD",42,0) ;;85112^83452 ;MEDULLARY CARCINOMA WITH AMYLOID STROMA IN SITU "RTN","ONCOHICD",43,0) ;;87240^91600 ;ANGIOFIBROMA, NOS "RTN","ONCOHICD",44,0) ;;91341^91333 ;EPITHELIOID HEMANGIOENDOTHELIOMA, MALIGNANT "RTN","ONCOHICD",45,0) ;;91260^91250 ;EPITHELIOID HEMANGIOMA "RTN","ONCOHICD",46,0) ;;91903^91923 ;PAROSTEAL OSTEOSARCOMA "RTN","ONCOHICD",47,0) ;;91902^91922 ;PAROSTEAL OSTEOSARCOMA IN SITU "RTN","ONCOHICD",48,0) ;;94223^94211 ;PILOCYTIC ASTROCYTOMA "RTN","ONCOHICD",49,0) ;;94222^94212 ;JUVENILE ASTROCYTOMA IN SITU "RTN","ONCOHICD",50,0) ;;94433^94233 ;POLAR SPONGIOBLASTOMA "RTN","ONCOHICD",51,0) ;;94432^94232 ;POLAR SPONGIOBLASTOMA IN SITU "RTN","ONCOHICD",52,0) ;;94813^94413 ;GIANT CELL GLIOBLASTOMA "RTN","ONCOHICD",53,0) ;;94812^94412 ;GIANT CELL GLIOBLASTOMA IN SITU "RTN","ONCOHICD",54,0) ;;95360^91501 ;HEMANGIOPERICYTOMA, NOS "RTN","ONCOHICD",55,0) ;;95923^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",56,0) ;;95933^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",57,0) ;;95943^95903 ;MALIGNANT LYMPHOMA, NOS "RTN","ONCOHICD",58,0) ;;95953^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",59,0) ;;96573^96513 ;HODGKIN LYMPHOMA, LYMPHOCYTE-RICH "RTN","ONCOHICD",60,0) ;;96583^96513 ;HODGKIN LYMPHOMA, LYMPHOCYTE-RICH "RTN","ONCOHICD",61,0) ;;96603^96593 ;HODGKIN LYMPHOMA, NODULAR LYMPHOCYTE PREDOMIN "RTN","ONCOHICD",62,0) ;;96663^96653 ;HODGKIN LYMPHOMA, NODULAR SCLEROSIS, GRADE 1 "RTN","ONCOHICD",63,0) ;;96723^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",64,0) ;;96743^96733 ;MANTLE CELL LYMPHOMA "RTN","ONCOHICD",65,0) ;;96763^96753 ;MALIGNANT LYMPHOMA, MIXED SMALL/LARGE, DIFF "RTN","ONCOHICD",66,0) ;;96773^96733 ;MANTLE CELL LYMPHOMA "RTN","ONCOHICD",67,0) ;;96813^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS "RTN","ONCOHICD",68,0) ;;96823^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS "RTN","ONCOHICD",69,0) ;;96833^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS "RTN","ONCOHICD",70,0) ;;96853^97273 ;PRECURSOR CELL LYMPHOBLASTIC LYMPHOMA, NOS "RTN","ONCOHICD",71,0) ;;96863^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",72,0) ;;96883^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS "RTN","ONCOHICD",73,0) ;;96923^96903 ;FOLLICULAR LYMPHOMA, NOS "RTN","ONCOHICD",74,0) ;;96933^96983 ;FOLLICULAR LYMPHOMA, GRADE 3 "RTN","ONCOHICD",75,0) ;;96943^95913 ;MALIGNANT LYMPHOMA, NON-HODGKIN, NOS "RTN","ONCOHICD",76,0) ;;96963^96953 ;FOLLICULAR LYMPHOMA, GRADE 1 "RTN","ONCOHICD",77,0) ;;96973^96983 ;FOLLICULAR LYMPHOMA, GRADE 3 "RTN","ONCOHICD",78,0) ;;97033^97023 ;MATURE T-CELL LYMPHOMA, NOS "RTN","ONCOHICD",79,0) ;;97043^97023 ;MATURE T-CELL LYMPHOMA, NOS "RTN","ONCOHICD",80,0) ;;97063^97023 ;MATURE T-CELL LYMPHOMA, NOS "RTN","ONCOHICD",81,0) ;;97073^97023 ;MATURE T-CELL LYMPHOMA, NOS "RTN","ONCOHICD",82,0) ;;97103^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS "RTN","ONCOHICD",83,0) ;;97113^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS "RTN","ONCOHICD",84,0) ;;97123^96803 ;MALIGNANT LYMPHOMA, LRGE B-CELL, DIFFUSE, NOS "RTN","ONCOHICD",85,0) ;;97133^97193 ;NK/T-CELL LYMPHOMA, NASAL AND NASAL-TYPE "RTN","ONCOHICD",86,0) ;;97153^96993 ;MARGINAL ZONE B-CELL LYMPHOMA, NOS "RTN","ONCOHICD",87,0) ;;97203^97503 ;MALIGNANT HISTIOCYTOSIS "RTN","ONCOHICD",88,0) ;;97223^97543 ;LANGERHANS CELL HISTIOCYTOSIS, DISSEMINATED "RTN","ONCOHICD",89,0) ;;97233^97553 ;HISTIOCYTIC SARCOMA "RTN","ONCOHICD",90,0) ;;97633^97623 ;HEAVY CHAIN DISEASE, NOS "RTN","ONCOHICD",91,0) ;;98023^98003 ;LEUKEMIA, NOS "RTN","ONCOHICD",92,0) ;;98033^98003 ;LEUKEMIA, NOS "RTN","ONCOHICD",93,0) ;;98043^98003 ;LEUKEMIA, NOS "RTN","ONCOHICD",94,0) ;;98213^98353 ;PRECURSOR CELL LYMPHOBLASTIC LEUKEMIA, NOS "RTN","ONCOHICD",95,0) ;;98223^98203 ;LYMPHOID LEUKEMIA, NOS "RTN","ONCOHICD",96,0) ;;98243^98203 ;LYMPHOID LEUKEMIA, NOS "RTN","ONCOHICD",97,0) ;;98253^98323 ;PROLYMPHOCYTIC LEUKEMIA, NOS "RTN","ONCOHICD",98,0) ;;98283^98353 ;PRECURSOR CELL LYMPHOBLASTIC LEUKEMIA, NOS "RTN","ONCOHICD",99,0) ;;98303^97333 ;PLASMA CELL LEUKEMIA "RTN","ONCOHICD",100,0) ;;98413^98403 ;ACUTE MYELOID LEUKEMIA, M6 TYPE "RTN","ONCOHICD",101,0) ;;98423^99503 ;POLYCYTHEMIA VERA "RTN","ONCOHICD",102,0) ;;98503^98203 ;LYMPHOID LEUKEMIA, NOS "RTN","ONCOHICD",103,0) ;;98623^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",104,0) ;;98643^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",105,0) ;;98653^98743 ;ACUTE MYELOID LEUKEMIA WITH MATURATION "RTN","ONCOHICD",106,0) ;;98683^99453 ;CHRONIC MYELOMONOCYTIC LEUKEMIA, NOS "RTN","ONCOHICD",107,0) ;;98693^98723 ;ACUTE MYELOID LEUKEMIA, MINIMAL DIFF "RTN","ONCOHICD",108,0) ;;98803^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",109,0) ;;98903^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",110,0) ;;98923^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",111,0) ;;98933^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",112,0) ;;98943^98603 ;MYELOID LEUKEMIA, NOS "RTN","ONCOHICD",113,0) ;;99003^97423 ;MAST CELL LEUKEMIA "RTN","ONCOHICD",114,0) ;;99323^99313 ;ACUTE PANMYELOSIS WITH MYELOFIBROSIS "RTN","ONCOHICD",115,0) ;;99413^99403 ;HAIRY CELL LEUKEMIA "RTN","ONCOHICD",116,0) ;;99811^99803 ;REFRACTORY ANEMIA "RTN","ONCOHICD",117,0) ;;89311^89313 ;ENDOMETRIAL STROMAL SARCOMA, LOW GRADE "RTN","ONCOHICD",118,0) ;;93931^93933 ;PAPILLARY EPENDYMOMA "RTN","ONCOHICD",119,0) ;;95381^95383 ;PAPILLARY MENINGIOMA "RTN","ONCOHICD",120,0) ;;99501^99503 ;POLYCYTHEMIA VERA "RTN","ONCOHICD",121,0) ;;99601^99603 ;CHRONIC MYELOPROLIFERATIVE DISEASE, NOS "RTN","ONCOHICD",122,0) ;;99611^99613 ;MYELOSCLEROSIS WITH MYELOID METAPLASIA "RTN","ONCOHICD",123,0) ;;99621^99623 ;ESSENTIAL THROMBOCYTHEMIA "RTN","ONCOHICD",124,0) ;;99801^99803 ;REFRACTORY ANEMIA "RTN","ONCOHICD",125,0) ;;99821^99823 ;REFRACTORY ANEMIA WITH SIDEROBLASTS "RTN","ONCOHICD",126,0) ;;99831^99833 ;REFRACTORY ANEMIA WITH EXCESS BLASTS "RTN","ONCOHICD",127,0) ;;99841^99843 ;REFRACTORY ANEMIA W EXCESS BLASTS IN TRANS "RTN","ONCOHICD",128,0) ;;99891^99893 ;MYELODYSPLASTIC SYNDROME, NOS "RTN","ONCOHICD",129,0) ;;84423^84421 ;SEROUS CYSTADENOMA, BORDERLINE "RTN","ONCOHICD",130,0) ;;84513^84511 ;PAPILLARY CYSTADENOMA, BORDERLINE "RTN","ONCOHICD",131,0) ;;84623^84621 ;SEROUS PAPILLARY CYSTIC TUMOR, BORDERLINE "RTN","ONCOHICD",132,0) ;;84723^84721 ;MUCINOUS CYSTIC TUMOR, BORDERLINE "RTN","ONCOHICD",133,0) ;;84733^84731 ;PAPILLARY MUCINOUS CYSTADENOMA, BORDERLINE "RTN","ONCOHICD",134,0) ;;94213^94211 ;PILOCYTIC ASTROCYTOMA *** SEE APPENDIX E "RTN","ONCOHICD",135,0) ;;81200^81201 ;UROTHELIAL PAPILLOMA, NOS "RTN","ONCOHICD",136,0) ;;81520^81521 ;GLUCAGONOMA, NOS "RTN","ONCOHICD",137,0) ;;86400^86401 ;SERTOLI CELL TUMOR, NOS "RTN","ONCOHICD",138,0) ;;95060^95061 ;CENTRAL NEUROCYTOMA "RTN","ONCOHICD",139,0) ;;82611^82610 ;VILLOUS ADENOMA, NOS "RTN","ONCOHICD",140,0) ;;83611^83610 ;JUXTAGLOMERULAR TUMOR "RTN","ONCOHICD",141,0) ;;88231^88230 ;DESMOPLASTIC FIBROMA "RTN","ONCOHICD",142,0) ;;90801^90800 ;MATURE TERATOMA "RTN","ONCOLRU") 0^55^B7113449 "RTN","ONCOLRU",1,0) ONCOLRU ;HInes OIFO/GWB - LAB UTILITY ;8/21/93 "RTN","ONCOLRU",2,0) ;;2.11;ONCOLOGY;**16,34**;Mar 07, 1995 "RTN","ONCOLRU",3,0) ; "RTN","ONCOLRU",4,0) D S %=$E(Y,4,5)*3 "RTN","ONCOLRU",5,0) S Y=$E("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",%-2,%)_" "_$S($E(Y,6,7):$J(+$E(Y,6,7),2)_", ",1:"")_($E(Y,1,3)+1700)_$S(Y[".":" "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12),1:"") "RTN","ONCOLRU",6,0) S:Y[1700 Y="" "RTN","ONCOLRU",7,0) Q "RTN","ONCOLRU",8,0) ; "RTN","ONCOLRU",9,0) SSN S SSN(2)=SSN "RTN","ONCOLRU",10,0) I $L(DUZ("AG")),"NAFARMY"[DUZ("AG") S SSN=$S($L(SSN)<11:$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,10),1:$E(SSN,10,11)_"/"_$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,9)) S SSN(1)=$S($P(SSN,"-",3):$P(SSN,"-",3),1:$E(SSN,9,12)) Q "RTN","ONCOLRU",11,0) S:$L(SSN)>8 SSN=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,99) "RTN","ONCOLRU",12,0) S SSN(1)=$S($P(SSN,"-",3):$P(SSN,"-",3),1:"????") S:'$L(SSN) SSN="?" Q "RTN","ONCOLRU",13,0) ; "RTN","ONCOLRU",14,0) B ;Start Date/Go to Date "RTN","ONCOLRU",15,0) S Y=$P(^ONCO(160.1,OSP,0),U,5) "RTN","ONCOLRU",16,0) I Y="" S Y=DT "RTN","ONCOLRU",17,0) S Y=$E(Y,4,5)_"-"_$E(Y,6,7)_"-"_($E(Y,1,3)+1700) "RTN","ONCOLRU",18,0) S %DT="AEX",%DT(0)="-"_DT,%DT("A")="Start Date: ",%DT("B")=Y "RTN","ONCOLRU",19,0) D ^%DT K %DT "RTN","ONCOLRU",20,0) Q:Y<1 S LRSDT=Y "RTN","ONCOLRU",21,0) S %DT="AEX",%DT(0)="-"_DT,%DT("A")="Go to Date: ",%DT("B")="TODAY" "RTN","ONCOLRU",22,0) D ^%DT K %DT "RTN","ONCOLRU",23,0) Q:Y<1 S LRLDT=Y I LRSDT>LRLDT S X=LRSDT,LRSDT=LRLDT,LRLDT=X "RTN","ONCOLRU",24,0) S $P(^ONCO(160.1,OSP,0),U,5)=LRLDT "RTN","ONCOLRU",25,0) S Y=LRSDT D D S LRSTR=Y,Y=LRLDT D D S LRLST=Y Q "RTN","ONCOLRU",26,0) ; "RTN","ONCOLRU",27,0) ; "RTN","ONCOLRU",28,0) V K A,B,C,D,DEF,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,V,W,X,Y,Z "RTN","ONCOLRU",29,0) K AGE,DOB,PNM,POP,SEX "RTN","ONCOLRU",30,0) K DIC,DIE,DR,DFN,DIWF,D0,DQ,DA,DX,DE,DG "RTN","ONCOLRU",31,0) K %Y,%X "RTN","ONCOLRU",32,0) K ZTSK,ZTRTN,ZTSAVE,ZTDESC "RTN","ONCOLRU",33,0) K LRWHO,LRSDT,LRLDT,LRSTR,LRLST,LRXR,LRXREF,LRADM,LRADX,LRABV,LRAWRD "RTN","ONCOLRU",34,0) K LRAX,LRAD,LRDPAF,LRFNAM,LRMD,LRPF,LRPFN,LRSVC,LRID,LRAP,LRSAV,LREP "RTN","ONCOLRU",35,0) K LRDTI,LRODT,LRSN,LRBL,LRCPT,LRFND,LRPPT,LRIDT,LRPMD,LRRMD,LR,LRA,LRB "RTN","ONCOLRU",36,0) K LRC,LRD,LRE,LRF,LRG,LRH,LRI,LRJ,LRK,LRL,LRM,LRN,LRO,LRP,LRQ,LRR,LRS "RTN","ONCOLRU",37,0) K LRT,LRU,LRV,LRW,LRX,LRY,LRZ,LRAU,LRFLN,LRLIDT,LRND,LRST,LRTK,LRWW "RTN","ONCOLRU",38,0) K LRAC,DIWL,DIWR,DIWF,LROLLOC,LRCAPLOC,LRDFN,LRSF,LR,LRAN,LRAA,LRSOP "RTN","ONCOLRU",39,0) K LROPT,LRRH,SSN,LRLLOC,LRDPF,LREND,LREXP,LRTOD,LRABO,LRPABO,LRPRH,LRSS "RTN","ONCOLRU",40,0) K LRCS,LRRC,LRSIT,LRWHN,LRSA,LRIFN,LRBLT "RTN","ONCOLRU",41,0) K ^TMP($J),^TMP("LRBL",$J) "RTN","ONCOLRU",42,0) Q "RTN","ONCOOT") 0^43^B63106413 "RTN","ONCOOT",1,0) ONCOOT ;HIRMFO/GWB - Miscellaneous Output Transforms ;7/10/96 "RTN","ONCOOT",2,0) ;;2.11;ONCOLOGY;**6,11,15,18,22,24,25,27,29,34**;Mar 07, 1995 "RTN","ONCOOT",3,0) ; "RTN","ONCOOT",4,0) RNP ;REGIONAL NODES POSITIVE (165.5,32) "RTN","ONCOOT",5,0) I Y=0 S Y="All nodes negative" Q "RTN","ONCOOT",6,0) I (+Y>0)&(+Y<96) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",7,0) I Y=96 S Y="96 or more positive nodes" Q "RTN","ONCOOT",8,0) I Y=97 S Y="Positive nodes, # not specified" Q "RTN","ONCOOT",9,0) I Y=98 S Y="No nodes examined" Q "RTN","ONCOOT",10,0) I Y=99 S Y="Unk if nodes + or -, NA" Q "RTN","ONCOOT",11,0) Q "RTN","ONCOOT",12,0) ; "RTN","ONCOOT",13,0) RNE ;REGIONAL NODES EXAMINED (165.5,33) "RTN","ONCOOT",14,0) S DXDT=$P($G(^ONCO(165.5,D0,0)),U,16) "RTN","ONCOOT",15,0) I DXDT<2980000 D "RTN","ONCOOT",16,0) .I Y=0 S Y="No nodes examined" Q "RTN","ONCOOT",17,0) .I (+Y>0)&(+Y<97) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",18,0) .I Y=97 S Y="97 or more nodes examined" Q "RTN","ONCOOT",19,0) .I Y=98 S Y="Nodes examined, # not specified" Q "RTN","ONCOOT",20,0) .I Y=99 S Y="Unknown if nodes examined, NA" Q "RTN","ONCOOT",21,0) I DXDT>2971231 D "RTN","ONCOOT",22,0) .I Y=0 S Y="No nodes removed" Q "RTN","ONCOOT",23,0) .I (+Y>0)&(+Y<90) S:$L(Y)=1 Y=0_Y Q "RTN","ONCOOT",24,0) .I Y=90 S Y="90 or more nodes removed" Q "RTN","ONCOOT",25,0) .I Y=95 S Y="No nodes removed, aspiration performed" Q "RTN","ONCOOT",26,0) .I Y=96 S Y="Node removal as a sampling, # unk" Q "RTN","ONCOOT",27,0) .I Y=97 S Y="Node removal as dissection, # unk" Q "RTN","ONCOOT",28,0) .I Y=98 S Y="Nodes surgically removed, # unk" Q "RTN","ONCOOT",29,0) .I Y=99 S Y="Unk; not stated; death cert only" Q "RTN","ONCOOT",30,0) Q "RTN","ONCOOT",31,0) ; "RTN","ONCOOT",32,0) BP ;BIOPSY PROCEDURE (165.5,141) "RTN","ONCOOT",33,0) Q:Y="" "RTN","ONCOOT",34,0) D BPGUCHK^ONCOTNE "RTN","ONCOOT",35,0) I BPSITE="" Q "RTN","ONCOOT",36,0) S Y=$S($P($G(^ONCO(164,BPSITE,"BP5",Y,0)),U,1)'="":$P($G(^ONCO(164,BPSITE,"BP5",Y,0)),U,1),1:Y) "RTN","ONCOOT",37,0) Q "RTN","ONCOOT",38,0) ; "RTN","ONCOOT",39,0) ;1998 Prostate Cancer Study "RTN","ONCOOT",40,0) ; "RTN","ONCOOT",41,0) PSA ;Item 14. Results of Most Recent Pre-Treatment Prostate Specific "RTN","ONCOOT",42,0) ; Antigen (PSA) Test "RTN","ONCOOT",43,0) ;RESULTS OF PSA TEST (PR98) (165.5,684) "RTN","ONCOOT",44,0) I Y=999.6 S Y=Y_" or higher" "RTN","ONCOOT",45,0) I Y=999.7 S Y=" No PSA test performed" "RTN","ONCOOT",46,0) I Y=999.8 S Y=" Test done, results unknown or not reported" "RTN","ONCOOT",47,0) I Y=999.9 S Y=" Unknown if test performed" "RTN","ONCOOT",48,0) Q "RTN","ONCOOT",49,0) ; "RTN","ONCOOT",50,0) DCISIT ;DCIS PRESENT (165.5,930) INPUT TRANSFORM "RTN","ONCOOT",51,0) I X'?1N K X Q "RTN","ONCOOT",52,0) I X=5!(X=6)!(X=7) K X Q "RTN","ONCOOT",53,0) I X=0 D EN^DDIOL(" No, DCIS not present") "RTN","ONCOOT",54,0) I X=1 D EN^DDIOL(" Yes, separate tumor") "RTN","ONCOOT",55,0) I X=2 D EN^DDIOL(" Yes, mixed histology component") "RTN","ONCOOT",56,0) I X=3 D EN^DDIOL(" Yes, separate tumor and mixed histology") "RTN","ONCOOT",57,0) I X=4 D EN^DDIOL(" Yes, unk if separate tumor/mixed histology") "RTN","ONCOOT",58,0) I X=8 D EN^DDIOL(" NA, reported tumor not invasive DC") "RTN","ONCOOT",59,0) I X=9 D EN^DDIOL(" Unknown if DCIS present") "RTN","ONCOOT",60,0) Q "RTN","ONCOOT",61,0) DCISOT ;DCIS PRESENT (165.5,930) OUTPUT TRANSFORM "RTN","ONCOOT",62,0) I Y=0 S Y="No, DCIS not present" "RTN","ONCOOT",63,0) I Y=1 S Y="Yes, separate tumor" "RTN","ONCOOT",64,0) I Y=2 S Y="Yes, mixed histology component" "RTN","ONCOOT",65,0) I Y=3 S Y="Yes, separate tumor and mixed histology" "RTN","ONCOOT",66,0) I Y=4 S Y="Yes, unk if separate tumor/mixed histology" "RTN","ONCOOT",67,0) I Y=8 S Y="NA, reported tumor not invasive DC" "RTN","ONCOOT",68,0) I Y=9 S Y="Unknown if DCIS present" "RTN","ONCOOT",69,0) Q "RTN","ONCOOT",70,0) DCISHP ;DCIS PRESENT (165.5,930) HELP "RTN","ONCOOT",71,0) W !!?6,"Choose from:" "RTN","ONCOOT",72,0) W !?8,"0 No, DCIS not present" "RTN","ONCOOT",73,0) W !?8,"1 Yes, separate tumor" "RTN","ONCOOT",74,0) W !?8,"2 Yes, mixed histology component" "RTN","ONCOOT",75,0) W !?8,"3 Yes, separate tumor and mixed histology" "RTN","ONCOOT",76,0) W !?8,"4 Yes, unk if separate tumor/mixed histology" "RTN","ONCOOT",77,0) W !?8,"8 NA, reported tumor not invasive DC" "RTN","ONCOOT",78,0) W !?8,"9 Unknown if DCIS present" "RTN","ONCOOT",79,0) Q "RTN","ONCOOT",80,0) DCSZIT ; "RTN","ONCOOT",81,0) I +X=0 D EN^DDIOL(" Invasive DC reported, DCIS not present") "RTN","ONCOOT",82,0) I X="888" D EN^DDIOL(" NA, invasive DC not reported") "RTN","ONCOOT",83,0) I X="988" D EN^DDIOL(" Invasive DC reported, DCIS present, size unknown") "RTN","ONCOOT",84,0) I X="999" D EN^DDIOL(" Invasive DC reported, unknown if DCIS present") "RTN","ONCOOT",85,0) Q "RTN","ONCOOT",86,0) DCSZOT ; "RTN","ONCOOT",87,0) S Y=$S($L(Y)=1:"00"_Y,$L(Y)=2:"0"_Y,1:Y) "RTN","ONCOOT",88,0) I Y="000" S Y="Invasive DC reported, DCIS not present" "RTN","ONCOOT",89,0) I Y="888" S Y="NA, invasive DC not reported" "RTN","ONCOOT",90,0) I Y="988" S Y="Invasive DC reported, DCIS present, size unknown" "RTN","ONCOOT",91,0) I Y="999" S Y="Invasive DC reported, unknown if DCIS present" "RTN","ONCOOT",92,0) Q "RTN","ONCOOT",93,0) CGYIT ; "RTN","ONCOOT",94,0) I +X=0 D EN^DDIOL(" No radiation given") "RTN","ONCOOT",95,0) I X=88888 D EN^DDIOL(" Radiation given, dose unknown") "RTN","ONCOOT",96,0) I X=99999 D EN^DDIOL(" Unknown if radiation given") "RTN","ONCOOT",97,0) Q "RTN","ONCOOT",98,0) CGYOT ; "RTN","ONCOOT",99,0) S Y=$S($L(Y)=1:"0000"_Y,$L(Y)=2:"000"_Y,$L(Y)=3:"00"_Y,$L(Y)=4:"0"_Y,1:Y) "RTN","ONCOOT",100,0) I Y="00000" S Y="No radiation given" "RTN","ONCOOT",101,0) I Y=88888 S Y="Radiation given, dose unknown" "RTN","ONCOOT",102,0) I Y=99999 S Y="Unknown if radiation given" "RTN","ONCOOT",103,0) Q "RTN","ONCOOT",104,0) STIT ;Size of Tumor (165.5,29) "RTN","ONCOOT",105,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOOT",106,0) I (X>999)!(X<0) K X Q "RTN","ONCOOT",107,0) I X="000" D EN^DDIOL(" No mass; no tumor found") Q "RTN","ONCOOT",108,0) I X=999 D EN^DDIOL(" Not stated; NA") Q "RTN","ONCOOT",109,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699 D Q "RTN","ONCOOT",110,0) .I X=990 D EN^DDIOL(" Melanoma > or = 10 mm in depth") Q "RTN","ONCOOT",111,0) .I X>9.98 D EN^DDIOL(" Melanoma may not be > 9.98 mm in thickness") K X Q "RTN","ONCOOT",112,0) .I X?1N S X=X_"00" Q ; 1 -> 100 "RTN","ONCOOT",113,0) .I X?1P1N S X="0"_$P(X,".",2)_"0" Q ; .1 -> 010 "RTN","ONCOOT",114,0) .I X?1P2N S X="0"_$P(X,".",2) Q ; .01 -> 001 "RTN","ONCOOT",115,0) .I X?1N1P1N S X=$P(X,".",1)_$P(X,".",2)_0 Q ; 0.1 -> 010 "RTN","ONCOOT",116,0) .I X?1N1P2N S X=$P(X,".",1)_$P(X,".",2) Q ; 0.01 -> 001 "RTN","ONCOOT",117,0) .I X?1N1P3N D EN^DDIOL(" Too many decimal places") K X Q ;0.012 "RTN","ONCOOT",118,0) I X["." D EN^DDIOL(" No decimal point allowed") K X Q "RTN","ONCOOT",119,0) S X=$S($L(X)=1:"00"_X,$L(X)=2:"0"_X,1:X) "RTN","ONCOOT",120,0) I X=998 D "RTN","ONCOOT",121,0) .S I TOP="" Q "RTN","ONCOOT",122,0) .I TOP>67149,TOP<67160 D EN^DDIOL(" Entire circumference") Q "RTN","ONCOOT",123,0) .I TOP>67159,TOP<67170 D EN^DDIOL(" Diffuse; widespread; linitis plastica") Q "RTN","ONCOOT",124,0) .I TOP>67179,TOP<67210 D EN^DDIOL(" Familial/multiple polyposis") Q "RTN","ONCOOT",125,0) .I TOP>67339,TOP<67350 D EN^DDIOL(" Diffuse, entire lobe of lung") Q "RTN","ONCOOT",126,0) .I TOP>67499,TOP<67510 D EN^DDIOL(" Diffuse; widespread; inflam carcinoma") Q "RTN","ONCOOT",127,0) Q "RTN","ONCOOT",128,0) STOT ;Size of Tumor "RTN","ONCOOT",129,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCOOT",130,0) I Y="000" S Y="No mass; no tumor found" Q "RTN","ONCOOT",131,0) I Y=999 S Y="Not stated; NA" Q "RTN","ONCOOT",132,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699,Y=990 D Q "RTN","ONCOOT",133,0) .S Y="Melanoma > or = 10 mm in depth" "RTN","ONCOOT",134,0) I $$MELANOMA^ONCOU55(D0),TOP'=67691,TOP'=67692,TOP'=67693,TOP'=67694,TOP'=67698,TOP'=67699 D "RTN","ONCOOT",135,0) .S Y=$E(Y,1)_"."_$E(Y,2,3) "RTN","ONCOOT",136,0) I Y="998" D Q "RTN","ONCOOT",137,0) .S I TOP="" S Y="" Q "RTN","ONCOOT",138,0) .I TOP>67149,TOP<67160 S Y="Entire circumference" Q "RTN","ONCOOT",139,0) .I TOP>67159,TOP<67170 S Y="Diffuse; widespread; linitis plastica" Q "RTN","ONCOOT",140,0) .I TOP>67179,TOP<67210 S Y="Familial/multiple polyposis" Q "RTN","ONCOOT",141,0) .I TOP>67339,TOP<67350 S Y="Diffuse, entire lobe of lung" Q "RTN","ONCOOT",142,0) .I TOP>67499,TOP<67510 S Y="Diffuse; widespread; inflam carcinoma" Q "RTN","ONCOOT",143,0) .S:Y'="" Y=Y_" mm" "RTN","ONCOOT",144,0) S:Y'="" Y=Y_" mm" "RTN","ONCOOT",145,0) Q "RTN","ONCOOT",146,0) STMIT ;Size of Tumor (Melanoma) Item #23 1999 Melanoma PCE Study "RTN","ONCOOT",147,0) I X'?1.3N K X Q "RTN","ONCOOT",148,0) S X=+X "RTN","ONCOOT",149,0) I X=998 D EN^DDIOL(" Mucosal melanoma") Q "RTN","ONCOOT",150,0) I X=999 D EN^DDIOL(" Unknown; not recorded; NA") "RTN","ONCOOT",151,0) Q "RTN","ONCOOT",152,0) STMOT ;Size of Tumor (Melanoma) Item #23 1999 Melanoma PCE Study "RTN","ONCOOT",153,0) I Y=998 S Y="Mucosal melanoma" Q "RTN","ONCOOT",154,0) I Y=999 S Y="Unknown; not recorded; NA" Q "RTN","ONCOOT",155,0) S Y=Y_" mm" "RTN","ONCOOT",156,0) Q "RTN","ONCOOT",157,0) ; "RTN","ONCOOT",158,0) ;2000 Primary Intracranial/CNS Tumors PCE Study "RTN","ONCOOT",159,0) TSIT ;Item 33. Tumor Size "RTN","ONCOOT",160,0) I X'?1.3N K X Q "RTN","ONCOOT",161,0) S X=+X "RTN","ONCOOT",162,0) I X=999 D EN^DDIOL(" Unknown, cannot be determined, not recorded") "RTN","ONCOOT",163,0) Q "RTN","ONCOOT",164,0) TSOT ;Item 33. Tumor Size "RTN","ONCOOT",165,0) I Y=999 S Y="Unknown, cannot be determined, not recorded" Q "RTN","ONCOOT",166,0) S Y=Y_" mm" "RTN","ONCOOT",167,0) Q "RTN","ONCOOT",168,0) SRPTIT ;Item 46. Size of Residual Primary Tumor Following Cancer-Directed "RTN","ONCOOT",169,0) ;Surgery "RTN","ONCOOT",170,0) I X'?1.3N K X Q "RTN","ONCOOT",171,0) S X=+X "RTN","ONCOOT",172,0) I X=0 D EN^DDIOL(" No residual tumor") Q "RTN","ONCOOT",173,0) I X=995 D EN^DDIOL(" Size not specified, tumor judged smaller") Q "RTN","ONCOOT",174,0) I X=996 D EN^DDIOL(" Size not specified, tumor judged unchanged") Q "RTN","ONCOOT",175,0) I X=997 D EN^DDIOL(" Size not specified, tumor judged larger") Q "RTN","ONCOOT",176,0) I X=998 D EN^DDIOL(" NA, surgical treatment not administered") Q "RTN","ONCOOT",177,0) I X=999 D EN^DDIOL(" Unknown, tumor not evaluated") "RTN","ONCOOT",178,0) Q "RTN","ONCOOT",179,0) SRPTOT ;Item 46. Size of Residual Primary Tumor Following Cancer-Directed "RTN","ONCOOT",180,0) ;Surgery "RTN","ONCOOT",181,0) I Y="000" S Y="No residual tumor" Q "RTN","ONCOOT",182,0) I Y=995 S Y="Size not specified, tumor judged smaller" Q "RTN","ONCOOT",183,0) I Y=996 S Y="Size not specified, tumor judged unchanged" Q "RTN","ONCOOT",184,0) I Y=997 S Y="Size not specified, tumor judged larger" Q "RTN","ONCOOT",185,0) I Y=998 S Y="NA, surgical treatment not administered" Q "RTN","ONCOOT",186,0) I Y=999 S Y="Unknown, tumor not evaluated" Q "RTN","ONCOOT",187,0) S Y=Y_" mm" "RTN","ONCOOT",188,0) Q "RTN","ONCOOT",189,0) ; "RTN","ONCOOT",190,0) SOC ;Sets of codes "RTN","ONCOOT",191,0) Q:Y="" "RTN","ONCOOT",192,0) S SOC=$P(^DD(FILNUM,FLDNUM,0),U,3),YY=Y_":" "RTN","ONCOOT",193,0) S J=$F(SOC,YY),JJ=$F(SOC,";",J)-2,Y=Y_" "_$E(SOC,J,JJ) "RTN","ONCOOT",194,0) K FILNUM,FLDNUM,J,JJ,SOC,YY "RTN","ONCOOT",195,0) Q "RTN","ONCOOT",196,0) TAHIST ;Screen for TOBACCO HISTORY (160,38) and ALCOHOL HISTORY (160,39) "RTN","ONCOOT",197,0) S ACDT=0,NUM=0,ACY=$O(^ONCO(165.5,"AC",DA,"")) "RTN","ONCOOT",198,0) I ACY="" Q "RTN","ONCOOT",199,0) S ACN=$E(ACY,1,4) "RTN","ONCOOT",200,0) I (ACN>1998) S ACDT=1999 "RTN","ONCOOT",201,0) I Y?1N S NUM=1 "RTN","ONCOOT",202,0) Q "RTN","ONCOOT",203,0) ; "RTN","ONCOOT",204,0) RE ;2001 Lung (NSCLC) Cancers PCE Study "RTN","ONCOOT",205,0) ; Item 9. Radiological Evaluation "RTN","ONCOOT",206,0) ; LNG TUMOR SIZE (BONE SCAN) (165.5,1409.4) "RTN","ONCOOT",207,0) ; LNG NUM OF TUMORS (BONE SCAN) (165.5,1409.5) "RTN","ONCOOT",208,0) ; LNG TUMOR SIZE (CHEST CT) (165.5,1410.4) "RTN","ONCOOT",209,0) ; LNG NUM OF TUMORS (CHEST CT) (165.5,1410.5) "RTN","ONCOOT",210,0) ; LNG TUMOR SIZE (BRAIN CT) (165.5,1411.4) "RTN","ONCOOT",211,0) ; LNG NUM OF TUMORS (BRAIN CT) (165.5,1411.5) "RTN","ONCOOT",212,0) ; LNG TUMOR SIZE (CHEST MRI) (165.5,1412.4) "RTN","ONCOOT",213,0) ; LNG NUM OF TUMORS (CHEST MRI) (165.5,1412.5) "RTN","ONCOOT",214,0) ; LNG TUMOR SIZE (BRAIN MRI) (165.5,1413.4) "RTN","ONCOOT",215,0) ; LNG NUM OF TUMORS (BRAIN MRI) (165.5,1413.5) "RTN","ONCOOT",216,0) ; LNG TUMOR SIZE (PET SCAN) (165.5,1414.4) "RTN","ONCOOT",217,0) ; LNG NUM OF TUMORS (PET SCAN) (165.5,1414.5) "RTN","ONCOOT",218,0) ; LNG TUMOR SIZE (CHEST XRAY) (165.5,1415.4) "RTN","ONCOOT",219,0) ; LNG NUM OF TUMORS (CHEST XRAY) (165.5,1415.5) "RTN","ONCOOT",220,0) I +Y=0 S Y="Test not performed" "RTN","ONCOOT",221,0) I Y=999!(Y=99) S Y="Test performed, not documented" "RTN","ONCOOT",222,0) Q "RTN","ONCOPA1") 0^19^B33925094 "RTN","ONCOPA1",1,0) ONCOPA1 ;Hines OIFO/RTK-PRINT COMPLETE ABSTRACT (132c); 08/25/97 "RTN","ONCOPA1",2,0) ;;2.11;ONCOLOGY;**13,15,16,18,28,33,34**;Mar 07, 1995 "RTN","ONCOPA1",3,0) ;Routines for PRINT COMPLETE ABSTRACT, replacing templates ONCOX1-X11. "RTN","ONCOPA1",4,0) K IOP,%ZIS S %ZIS="MQ" W ! D ^%ZIS K %ZIS,IOP G:POP EXIT "RTN","ONCOPA1",5,0) I $D(IO("Q")) S ONCOLST="ONCOIEN^PTIEN^STARS^LENGTH^TITLE^PRTPCE^ONCODA" D TASK G EXIT "RTN","ONCOPA1",6,0) U IO D PRINT D ^%ZISC K %ZIS,IOP G EXIT "RTN","ONCOPA1",7,0) PRINT ; "RTN","ONCOPA1",8,0) Q:$G(ONCOIEN)="" "RTN","ONCOPA1",9,0) W @IOF "RTN","ONCOPA1",10,0) S (IEN,D0)=ONCOIEN,PTIEN=$P($G(^ONCO(165.5,IEN,0)),U,2) "RTN","ONCOPA1",11,0) S PG=0,EX="",LINE=$S(IOST?1"C".E:IOSL-2,1:IOSL-6) "RTN","ONCOPA1",12,0) S STARS="******************************************************************************" "RTN","ONCOPA1",13,0) D NOW^%DTC S Y=% D DD^%DT S PRTDATE=Y "RTN","ONCOPA1",14,0) K DIQ S DIC="^ONCO(160,",DIQ(0)="C" "RTN","ONCOPA1",15,0) S DR=".111:.131;2;7:10;13;18.9:21;22.9:29;38:44;48;50;51;52;61;55;56" "RTN","ONCOPA1",16,0) S DA=PTIEN,DIQ="ONCAB" D EN^DIQ1 "RTN","ONCOPA1",17,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",18,0) S DR=".01;.02;.03;.04;.05;.06;.07;1;1.1;1.2;2:2.4;3;4:11;16;18;19;20.1;22:26;28:35.1;37;37.1;37.2;37.3;38;39;40.2;41;49:59;62:67;70:71.3;74:79;83;85:92;95;100;101;108;117:130;132;133;137:146;200;346;363;442;560;787;849:851" "RTN","ONCOPA1",19,0) S DA=ONCOIEN,DIQ="ONCAB" D EN^DIQ1 "RTN","ONCOPA1",20,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",21,0) S DR="72",DA=ONCOIEN,DR(165.572)=".01;.02;.03;.031;.032",DIQ="ONCAB" "RTN","ONCOPA1",22,0) F SR=0:0 S SR=$O(^ONCO(165.5,IEN,23,SR)) Q:SR'>0 D "RTN","ONCOPA1",23,0) .S DA(165.572)=SR D EN^DIQ1 Q "RTN","ONCOPA1",24,0) K DIQ S DIC="^ONCO(165.5,",DIQ(0)="C" "RTN","ONCOPA1",25,0) S DR="60",DA=ONCOIEN,DR(165.51)=".01:2;33:37",DIQ="ONCAB" "RTN","ONCOPA1",26,0) F SCT=0:0 S SCT=$O(^ONCO(165.5,IEN,4,SCT)) Q:SCT'>0 D "RTN","ONCOPA1",27,0) .S DA(165.51)=SCT D EN^DIQ1 Q "RTN","ONCOPA1",28,0) K DIQ S DIC="^ONCO(160,",DIQ(0)="C" "RTN","ONCOPA1",29,0) S DR="44",DA=PTIEN,DR(160.044)=".01:1",DIQ="ONCAB" "RTN","ONCOPA1",30,0) F CHST=0:0 S CHST=$O(^ONCO(160,PTIEN,9,CHST)) Q:CHST'>0 D "RTN","ONCOPA1",31,0) .S DA(160.044)=CHST D EN^DIQ1 Q "RTN","ONCOPA1",32,0) CRA ; "RTN","ONCOPA1",33,0) S PATNAME=$G(ONCAB(165.5,IEN,.02)),SSAN=$G(ONCAB(160,PTIEN,2)) "RTN","ONCOPA1",34,0) S NAME="CANCER REGISTRY ABSTRACT" D FORMAT "RTN","ONCOPA1",35,0) S CRA=TITLE W !!,TITLE "RTN","ONCOPA1",36,0) W !!?21,$E(ONCAB(165.5,IEN,.03),1,26) "RTN","ONCOPA1",37,0) W " ACOS #: ",ONCAB(165.5,IEN,67) "RTN","ONCOPA1",38,0) W ?76,"Print Date: ",PRTDATE D P Q:EX=U "RTN","ONCOPA1",39,0) W !," Patient Name: ",ONCAB(165.5,IEN,.02),?76,"SSN: ",ONCAB(160,PTIEN,2) D P Q:EX=U "RTN","ONCOPA1",40,0) S DOB="",VRBLPTR=$P($G(^ONCO(160,PTIEN,0)),U,1) I VRBLPTR'="" D "RTN","ONCOPA1",41,0) .S FILE=U_$P(VRBLPTR,";",2)_$P(VRBLPTR,";",1)_",0)" "RTN","ONCOPA1",42,0) .S Y=$S($D(@FILE):$P(@FILE,U,3),1:"") I Y'="" D DD^%DT S DOB=Y Q "RTN","ONCOPA1",43,0) W !," Home Address: ",ONCAB(160,PTIEN,.119) D P Q:EX=U "RTN","ONCOPA1",44,0) W !," ",ONCAB(160,PTIEN,.116) D P Q:EX=U "RTN","ONCOPA1",45,0) W !," County: ",ONCAB(160,PTIEN,.12) D P Q:EX=U "RTN","ONCOPA1",46,0) W !," Sex: ",$E(ONCAB(160,PTIEN,10),1,14),?44,"Race: ",$E(ONCAB(160,PTIEN,8),1,21),?76,"Ethnicity: ",ONCAB(160,PTIEN,9) D P Q:EX=U "RTN","ONCOPA1",47,0) W !," Date of Birth: ",DOB "RTN","ONCOPA1",48,0) W ?38," Age at DX: ",ONCAB(165.5,IEN,4) D P Q:EX=U "RTN","ONCOPA1",49,0) ; "RTN","ONCOPA1",50,0) CI ; "RTN","ONCOPA1",51,0) S NAME="CANCER IDENTIFICATION" D FORMAT "RTN","ONCOPA1",52,0) W !!,TITLE "RTN","ONCOPA1",53,0) S NODE2=$G(^ONCO(165.5,IEN,2)) "RTN","ONCOPA1",54,0) W !!," Accession Number: ",ONCAB(165.5,IEN,.05),?38,"Accession Year: ",ONCAB(165.5,IEN,.07),?76,"Sequence Number: ",ONCAB(165.5,IEN,.06) D P Q:EX=U "RTN","ONCOPA1",55,0) W !," Date Dx: ",ONCAB(165.5,IEN,3),?38," Dx Facility: ",ONCAB(165.5,IEN,5) D P Q:EX=U "RTN","ONCOPA1",56,0) W !," Admission Date: ",ONCAB(165.5,IEN,1),?38,"Discharge Date: ",ONCAB(165.5,IEN,1.1) D P Q:EX=U "RTN","ONCOPA1",57,0) W !," Class of Case: ",ONCAB(165.5,IEN,.04) D P Q:EX=U "RTN","ONCOPA1",58,0) W !," Type of Reporting Source: ",ONCAB(165.5,IEN,1.2) D P Q:EX=U "RTN","ONCOPA1",59,0) W !," IP/OP Status: ",ONCAB(165.5,IEN,123) D P Q:EX=U "RTN","ONCOPA1",60,0) W !," Screening Date: ",ONCAB(165.5,IEN,79) D P Q:EX=U "RTN","ONCOPA1",61,0) W !," Screening Result: ",ONCAB(165.5,IEN,119) D P Q:EX=U "RTN","ONCOPA1",62,0) W !," Site/Group: ",ONCAB(165.5,IEN,.01) D P Q:EX=U "RTN","ONCOPA1",63,0) W !," ICDO-Site: ",ONCAB(165.5,IEN,20.1)," " "RTN","ONCOPA1",64,0) S TOP=$P(NODE2,U,1) I TOP'="" W $P(^ONCO(164,TOP,0),U,1) D P Q:EX=U "RTN","ONCOPA1",65,0) W !," Text-Primary Site: ",ONCAB(165.5,IEN,100) D P Q:EX=U "RTN","ONCOPA1",66,0) W !," Laterality: ",ONCAB(165.5,IEN,28) D P Q:EX=U "RTN","ONCOPA1",67,0) S HIST=$$HIST^ONCFUNC(IEN) "RTN","ONCOPA1",68,0) W !," Histology: ",ONCAB(165.5,IEN,HSTFLD) D P Q:EX=U "RTN","ONCOPA1",69,0) W !," Text-Histology: ",ONCAB(165.5,IEN,101) D P Q:EX=U "RTN","ONCOPA1",70,0) W !," Grade/Differentiation: ",ONCAB(165.5,IEN,24)," " "RTN","ONCOPA1",71,0) S GR=$P(NODE2,U,5) I GR'="" W $P(^ONCO(164.43,GR,0),U,2) D P Q:EX=U "RTN","ONCOPA1",72,0) W !," AFIP Submission: ",ONCAB(165.5,IEN,83) D P Q:EX=U "RTN","ONCOPA1",73,0) W !," Diagnostic Confirmation: ",ONCAB(165.5,IEN,26) D P Q:EX=U "RTN","ONCOPA1",74,0) S TM1=$$PRINT^ONCOTM(IEN,1) "RTN","ONCOPA1",75,0) I TM1["UMOR" S $E(TM1,2,5)="umor" I TM1["ARKER" S $E(TM1,8,12)="arker" "RTN","ONCOPA1",76,0) S TM2=$$PRINT^ONCOTM(IEN,2) "RTN","ONCOPA1",77,0) I TM2["UMOR" S $E(TM2,2,5)="umor" I TM2["ARKER" S $E(TM2,8,12)="arker" "RTN","ONCOPA1",78,0) S TM3=$$PRINT^ONCOTM(IEN,3) "RTN","ONCOPA1",79,0) I TM3["UMOR" S $E(TM3,2,5)="umor" I TM3["ARKER" S $E(TM3,8,12)="arker" "RTN","ONCOPA1",80,0) S LEN=$L(TM1) W !?(26-LEN),TM1,": ",ONCAB(165.5,IEN,25.1) D P Q:EX=U "RTN","ONCOPA1",81,0) S LEN=$L(TM2) W !?(26-LEN),TM2,": ",ONCAB(165.5,IEN,25.2) D P Q:EX=U "RTN","ONCOPA1",82,0) S LEN=$L(TM3) W !?(26-LEN),TM3,": ",ONCAB(165.5,IEN,25.3) D P Q:EX=U "RTN","ONCOPA1",83,0) W !," Referring Facility: ",ONCAB(165.5,IEN,6) D P Q:EX=U "RTN","ONCOPA1",84,0) W !," Transfer Facility: ",ONCAB(165.5,IEN,7) D P Q:EX=U "RTN","ONCOPA1",85,0) W !," Presentation at Cancer Conference: ",ONCAB(165.5,IEN,120) D P Q:EX=U "RTN","ONCOPA1",86,0) W !," Date of Cancer Conference: ",ONCAB(165.5,IEN,121) D P Q:EX=U "RTN","ONCOPA1",87,0) W !," Referred to Support Services: ",ONCAB(165.5,IEN,122) "RTN","ONCOPA1",88,0) ; "RTN","ONCOPA1",89,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA1A "RTN","ONCOPA1",90,0) D P Q:EX=U "RTN","ONCOPA1",91,0) PA1A D ^ONCOPA1A "RTN","ONCOPA1",92,0) ;WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA1",93,0) ; "RTN","ONCOPA1",94,0) EXIT K CHF,CHST,CRA,DOB,DXDT,EX,FHDT,FHIEN,FHZN,FILE,FLG,FM,FOLH,FR,GR "RTN","ONCOPA1",95,0) K HIST,IEN,J,LEN,LENGTH,LINE,NAME,NF,NODE2,NOK,NUM,ONCAB,ONCOIEN,OTHPRI "RTN","ONCOPA1",96,0) K PATNAME,PG,PRTDATE,PRZN,PTIEN,QS,RCDT,SCT,SITE,SR,SSAN,ST,STARS "RTN","ONCOPA1",97,0) K TITLE,TM1,TM2,TM3,TOP,TSTAT,TX,VRBLPTR,VS,XDX,XD1 "RTN","ONCOPA1",98,0) Q "RTN","ONCOPA1",99,0) P ; "RTN","ONCOPA1",100,0) ;I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA1",101,0) I $Y>(IOSL-10) D Q:EX=U W ! "RTN","ONCOPA1",102,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA1",103,0) .D HDR Q "RTN","ONCOPA1",104,0) Q "RTN","ONCOPA1",105,0) FORMAT ; "RTN","ONCOPA1",106,0) S LENGTH=$L(NAME),NUM=(((132-LENGTH)/2)\1)-10 "RTN","ONCOPA1",107,0) S TITLE=" "_$E(STARS,1,NUM)_" "_NAME_" "_$E(STARS,1,NUM) "RTN","ONCOPA1",108,0) Q "RTN","ONCOPA1",109,0) TASK ;If report is queued "RTN","ONCOPA1",110,0) K IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE "RTN","ONCOPA1",111,0) S ZTRTN="PRINT^ONCOPA1",ZTREQ="@",ZTSAVE("ZTREQ")="" "RTN","ONCOPA1",112,0) S ZTDESC="Print Complete Abstract" "RTN","ONCOPA1",113,0) F RK=1:1 S RK1=$P(ONCOLST,U,RK) Q:RK1="" S ZTSAVE(RK1)="" "RTN","ONCOPA1",114,0) D ^%ZTLOAD D ^%ZISC U IO W !,"Report Queued",! "RTN","ONCOPA1",115,0) K RK,RK1,ONCOLST,ZTSK Q "RTN","ONCOPA1",116,0) HDR ;Header "RTN","ONCOPA1",117,0) W @IOF S PG=PG+1 "RTN","ONCOPA1",118,0) W CRA,! "RTN","ONCOPA1",119,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA1",120,0) Q "RTN","ONCOPA1",121,0) MULT ;Entry point from routine ONCOPMA. This is for printing MULTIPLE "RTN","ONCOPA1",122,0) ;abstracts (option ABS...MA...3). The ONCOPM routines do the device "RTN","ONCOPA1",123,0) ;prompt code so we don't need it here, just the following. "RTN","ONCOPA1",124,0) ;Also called from PCEPRT2^ONCOGEN. This is for printing all PCE's and "RTN","ONCOPA1",125,0) ;attached abstracts for a particular site (option ABS...MA...5). "RTN","ONCOPA1",126,0) ;ONCOGEN does the device prompt code so it is not needed here. "RTN","ONCOPA1",127,0) I $D(IO("Q")) S ONCOLST="ONCOIEN^PTIEN^STARS^LENGTH^TITLE^PRTPCE^ONCODA" D TASK G EXIT "RTN","ONCOPA1",128,0) U IO D PRINT K %ZIS,IOP G EXIT "RTN","ONCOPA1",129,0) Q "RTN","ONCOPA1A") 0^44^B12524919 "RTN","ONCOPA1A",1,0) ONCOPA1A ;Hines OIFO/RTK-PRINT COMPLETE ABSTRACT (132c); 08/25/97 "RTN","ONCOPA1A",2,0) ;;2.11;ONCOLOGY;**15,19,27,33,34**;Mar 07, 1995 "RTN","ONCOPA1A",3,0) ; Routines for PRINT COMPLETE ABSTRACT, continued... "RTN","ONCOPA1A",4,0) EODAD ; "RTN","ONCOPA1A",5,0) S NAME="EXTENT OF DISEASE AT DIAGNOSIS" D FORMAT^ONCOPA1 "RTN","ONCOPA1A",6,0) W !!,TITLE "RTN","ONCOPA1A",7,0) W !!," Clinical TNM: ",ONCAB(165.5,IEN,37),?67,"Pathologic TNM: ",ONCAB(165.5,IEN,89.1) D P Q:EX=U "RTN","ONCOPA1A",8,0) W !," Clinical T: ",$E(ONCAB(165.5,IEN,37.1),1,48),?67,"Pathologic T: ",$E(ONCAB(165.5,IEN,85),1,48) D P Q:EX=U "RTN","ONCOPA1A",9,0) W !," Clinical N: ",$E(ONCAB(165.5,IEN,37.2),1,48),?67,"Pathologic N: ",$E(ONCAB(165.5,IEN,86),1,48) D P Q:EX=U "RTN","ONCOPA1A",10,0) W !," Clinical M: ",$E(ONCAB(165.5,IEN,37.3),1,48),?67,"Pathologic M: ",$E(ONCAB(165.5,IEN,87),1,48) D P Q:EX=U "RTN","ONCOPA1A",11,0) W !," Clinical Stage Group: ",ONCAB(165.5,IEN,38),?67,"Pathologic Stage Group: ",ONCAB(165.5,IEN,88) D P Q:EX=U "RTN","ONCOPA1A",12,0) W !," Staged By (Clin): ",ONCAB(165.5,IEN,19),?67,"Staged By (Path): ",ONCAB(165.5,IEN,89) D P Q:EX=U "RTN","ONCOPA1A",13,0) W !," Other Stage: ",ONCAB(165.5,IEN,39) D P Q:EX=U "RTN","ONCOPA1A",14,0) W !," Type of Staging System (Pediatric): ",ONCAB(165.5,IEN,849) D P Q:EX=U "RTN","ONCOPA1A",15,0) W !," Pediatric Stage Group: ",ONCAB(165.5,IEN,850),?67,"Staged By (Pediatric): ",ONCAB(165.5,IEN,851) D P Q:EX=U "RTN","ONCOPA1A",16,0) W !," Physician's Stage: ",ONCAB(165.5,IEN,65),?67,"Physician Staging: ",ONCAB(165.5,IEN,66) D P Q:EX=U "RTN","ONCOPA1A",17,0) W !!," Date of 1st Positive Biopsy: ",ONCAB(165.5,IEN,137) D P Q:EX=U "RTN","ONCOPA1A",18,0) I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D "RTN","ONCOPA1A",19,0) .S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) "RTN","ONCOPA1A",20,0) .I TPX<67500!(TPX>67509) Q "RTN","ONCOPA1A",21,0) .W !," Biopsy Procedure: ",ONCAB(165.5,IEN,141) D P Q:EX=U "RTN","ONCOPA1A",22,0) .W !," Guidance: ",ONCAB(165.5,IEN,142) D P Q:EX=U "RTN","ONCOPA1A",23,0) .W !," Palpability of Primary: ",ONCAB(165.5,IEN,143) D P Q:EX=U "RTN","ONCOPA1A",24,0) .W !," First Detected By: ",ONCAB(165.5,IEN,144) D P Q:EX=U "RTN","ONCOPA1A",25,0) .Q "RTN","ONCOPA1A",26,0) I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D "RTN","ONCOPA1A",27,0) .S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) I TPX'=67619 Q "RTN","ONCOPA1A",28,0) .W !," Biopsy Procedure: ",ONCAB(165.5,IEN,141) D P Q:EX=U "RTN","ONCOPA1A",29,0) .W !," Guidance: ",ONCAB(165.5,IEN,142) D P Q:EX=U "RTN","ONCOPA1A",30,0) .W !," Approach for Biopsy of Primary: ",ONCAB(165.5,IEN,145) D P Q:EX=U "RTN","ONCOPA1A",31,0) .W !," Biopsy of other than Primary: ",ONCAB(165.5,IEN,146) D P Q:EX=U "RTN","ONCOPA1A",32,0) .Q "RTN","ONCOPA1A",33,0) W !!," Tumor Size: ",ONCAB(165.5,IEN,29) D P Q:EX=U "RTN","ONCOPA1A",34,0) W !," Extension: ",ONCAB(165.5,IEN,30) D P Q:EX=U "RTN","ONCOPA1A",35,0) I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D "RTN","ONCOPA1A",36,0) .S TPX=$P($G(^ONCO(165.5,IEN,2)),U,1) I TPX'=67619 Q "RTN","ONCOPA1A",37,0) .W !," Pathologic Extension: ",ONCAB(165.5,IEN,30.1) D P Q:EX=U "RTN","ONCOPA1A",38,0) W !," Lymph Nodes: ",ONCAB(165.5,IEN,31),?67,"Metastasis 1: ",ONCAB(165.5,IEN,34) D P Q:EX=U "RTN","ONCOPA1A",39,0) W !," Regional Nodes Examined: ",$E(ONCAB(165.5,IEN,33),1,34),?67,"Metastasis 2: ",ONCAB(165.5,IEN,34.1) D P Q:EX=U "RTN","ONCOPA1A",40,0) W !," Regional Nodes Positive: ",$E(ONCAB(165.5,IEN,32),1,34),?67,"Metastasis 3: ",ONCAB(165.5,IEN,34.2) D P Q:EX=U "RTN","ONCOPA1A",41,0) W !," General Summary Stage: ",ONCAB(165.5,IEN,35) D P Q:EX=U "RTN","ONCOPA1A",42,0) W !," Peripheral Blood Involvement: ",ONCAB(165.5,IEN,30.5) D P Q:EX=U "RTN","ONCOPA1A",43,0) W !," Associated With HIV: ",ONCAB(165.5,IEN,41) D P Q:EX=U "RTN","ONCOPA1A",44,0) ; "RTN","ONCOPA1A",45,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA2 "RTN","ONCOPA1A",46,0) D P Q:EX=U "RTN","ONCOPA1A",47,0) PA2 D ^ONCOPA2 "RTN","ONCOPA1A",48,0) ; WILL CALL ONCOPA2 ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA1A",49,0) ; "RTN","ONCOPA1A",50,0) Q "RTN","ONCOPA1A",51,0) P ; "RTN","ONCOPA1A",52,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA1A",53,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA1A",54,0) .D HDR Q "RTN","ONCOPA1A",55,0) Q "RTN","ONCOPA1A",56,0) HDR ; Header "RTN","ONCOPA1A",57,0) W @IOF S PG=PG+1 "RTN","ONCOPA1A",58,0) W CRA,! "RTN","ONCOPA1A",59,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA1A",60,0) Q "RTN","ONCOPA2") 0^27^B55522309 "RTN","ONCOPA2",1,0) ONCOPA2 ;HINES OIFO/RTK-PRINT COMPLETE ABSTRACT (132c)...CONTINUED 09/05/97 "RTN","ONCOPA2",2,0) ;;2.11;ONCOLOGY;**13,15,19,22,27,34**;Mar 07, 1995 "RTN","ONCOPA2",3,0) ; "RTN","ONCOPA2",4,0) S NAME="FIRST COURSE OF TREATMENT" D FORMAT^ONCOPA1 "RTN","ONCOPA2",5,0) W !!,TITLE "RTN","ONCOPA2",6,0) W !!," Dx/Staging/Palliative Proc: ",ONCAB(165.5,IEN,58.1) D P Q:EX=U "RTN","ONCOPA2",7,0) I $P($G(^ONCO(165.5,IEN,3)),U,27)=0!($P($G(^ONCO(165.5,IEN,3)),U,27)="00") G DNT "RTN","ONCOPA2",8,0) W !," Dx/Stging/Palliative Proc Date: ",ONCAB(165.5,IEN,58.3) D P Q:EX=U "RTN","ONCOPA2",9,0) W !," Dx/Staging/Pall Proc @Facility: ",ONCAB(165.5,IEN,58.4) D P Q:EX=U "RTN","ONCOPA2",10,0) W !," Dx/Staging/Pall @Facility Date: ",ONCAB(165.5,IEN,58.5) D P Q:EX=U "RTN","ONCOPA2",11,0) DNT W !!," Date of no treatment: ",ONCAB(165.5,IEN,124) D P Q:EX=U "RTN","ONCOPA2",12,0) W !!," Surgery of Primary Site: ",ONCAB(165.5,IEN,58.2) D P Q:EX=U "RTN","ONCOPA2",13,0) I $P($G(^ONCO(165.5,IEN,3)),U,38)="00"!($P($G(^ONCO(165.5,IEN,3)),U,38)=1) W ! G SCP "RTN","ONCOPA2",14,0) W !," Surgery of Primary Site Date: ",ONCAB(165.5,IEN,50) D P Q:EX=U "RTN","ONCOPA2",15,0) W !," Surgery of Primary Site @Facility: ",ONCAB(165.5,IEN,50.2) D P Q:EX=U "RTN","ONCOPA2",16,0) W !," Surgery of Primary Site @Facility Date: ",ONCAB(165.5,IEN,50.3) D P Q:EX=U "RTN","ONCOPA2",17,0) W !," Surgery Hospital: ",ONCAB(165.5,IEN,50.1) D P Q:EX=U "RTN","ONCOPA2",18,0) W !," Surgical Approach: ",ONCAB(165.5,IEN,74) D P Q:EX=U "RTN","ONCOPA2",19,0) W !," Surgical Margins: ",ONCAB(165.5,IEN,59) D P Q:EX=U "RTN","ONCOPA2",20,0) SCP I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D Q:EX=U "RTN","ONCOPA2",21,0) .W !," Scope of Lymph Node Surgery: ",ONCAB(165.5,IEN,138) D P Q:EX=U "RTN","ONCOPA2",22,0) .I $P($G(^ONCO(165.5,IEN,3)),U,40)=1 W ! Q "RTN","ONCOPA2",23,0) .W !," Scope of Lymph Node Surgery Date: ",ONCAB(165.5,IEN,138.2) D P Q:EX=U "RTN","ONCOPA2",24,0) .W !," Scope of Lymph Node Surgery @Facility: ",ONCAB(165.5,IEN,138.1) D P Q:EX=U "RTN","ONCOPA2",25,0) .W !," Scope of Lymph Node Surgery @Facility Date: ",ONCAB(165.5,IEN,138.3) D P Q:EX=U "RTN","ONCOPA2",26,0) I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D Q:EX=U "RTN","ONCOPA2",27,0) .W !," Number of Nodes Removed: ",ONCAB(165.5,IEN,140) D P Q:EX=U "RTN","ONCOPA2",28,0) .I $P($G(^ONCO(165.5,IEN,3)),U,42)=0!($P($G(^ONCO(165.5,IEN,3)),U,42)="00") W ! Q "RTN","ONCOPA2",29,0) .W !," Number of Nodes Removed @Facility: ",ONCAB(165.5,IEN,140.1) D P Q:EX=U "RTN","ONCOPA2",30,0) I $P($G(^ONCO(165.5,IEN,0)),U,16)>2971231 D Q:EX=U "RTN","ONCOPA2",31,0) .W !," Surgery of Other Sites/Nodes: ",ONCAB(165.5,IEN,139) D P Q:EX=U "RTN","ONCOPA2",32,0) .I $P($G(^ONCO(165.5,IEN,3)),U,41)=1 W ! Q "RTN","ONCOPA2",33,0) .W !," Surgery of Other Sites/Nodes Date: ",ONCAB(165.5,IEN,139.2) D P Q:EX=U "RTN","ONCOPA2",34,0) .W !," Surgery of Other Sites/Nodes @Facility: ",ONCAB(165.5,IEN,139.1) D P Q:EX=U "RTN","ONCOPA2",35,0) .W !," Surgery of Other Sites/Nodes @Facility Date: ",ONCAB(165.5,IEN,139.3) D P Q:EX=U "RTN","ONCOPA2",36,0) W !," Reconstruction/Restoration: ",ONCAB(165.5,IEN,23) D P Q:EX=U "RTN","ONCOPA2",37,0) W !!," Reason for No Surgery: ",ONCAB(165.5,IEN,58) D P Q:EX=U "RTN","ONCOPA2",38,0) I $P($G(^ONCO(165.5,IEN,3)),U,38)="00"!($P($G(^ONCO(165.5,IEN,3)),U,38)=1),$P($G(^ONCO(165.5,IEN,3)),U,40)=1,$P($G(^ONCO(165.5,IEN,3)),U,41)=1 G RAD "RTN","ONCOPA2",39,0) W !!," RX Text-Surgery: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,14,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,14,TX,0) D P Q:EX=U "RTN","ONCOPA2",40,0) RAD W !!," Radiation: ",ONCAB(165.5,IEN,51.2) D P Q:EX=U "RTN","ONCOPA2",41,0) I $P($G(^ONCO(165.5,IEN,3)),U,6)=0 W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U G CNS "RTN","ONCOPA2",42,0) W !," Radiation Start Date: ",ONCAB(165.5,IEN,51) D P Q:EX=U "RTN","ONCOPA2",43,0) W !," Radiation Hospital: ",ONCAB(165.5,IEN,51.1) D P Q:EX=U "RTN","ONCOPA2",44,0) W !," Radiation @Facility: ",ONCAB(165.5,IEN,51.4) D P Q:EX=U "RTN","ONCOPA2",45,0) W !," Radiation @Facility Date: ",ONCAB(165.5,IEN,51.5) D P Q:EX=U "RTN","ONCOPA2",46,0) W !," Regional Dose: ",ONCAB(165.5,IEN,442) D P Q:EX=U "RTN","ONCOPA2",47,0) W !," Number of Treatments: ",ONCAB(165.5,IEN,56) D P Q:EX=U "RTN","ONCOPA2",48,0) W !," Radiation Treatment Volume: ",ONCAB(165.5,IEN,125) D P Q:EX=U "RTN","ONCOPA2",49,0) W !," Location of Radiation Treatment: ",ONCAB(165.5,IEN,126) D P Q:EX=U "RTN","ONCOPA2",50,0) W !," Intent of Treatment: ",ONCAB(165.5,IEN,127) D P Q:EX=U "RTN","ONCOPA2",51,0) W !," Regional Treatment Modality: ",ONCAB(165.5,IEN,363) D P Q:EX=U "RTN","ONCOPA2",52,0) W !," Radiation Treatment Completion Status: ",ONCAB(165.5,IEN,128) D P Q:EX=U "RTN","ONCOPA2",53,0) W !," Radiation Local Control Status: ",ONCAB(165.5,IEN,132) D P Q:EX=U "RTN","ONCOPA2",54,0) W !," Reason for No Radiation: ",ONCAB(165.5,IEN,75) D P Q:EX=U "RTN","ONCOPA2",55,0) W !," Radiation/Surgery Sequence: ",ONCAB(165.5,IEN,51.3) D P Q:EX=U "RTN","ONCOPA2",56,0) F RDIEN=0:0 S RDIEN=$O(^ONCO(165.5,IEN,6,RDIEN)) Q:RDIEN'>0 D "RTN","ONCOPA2",57,0) .S RDZN=$G(^ONCO(165.5,IEN,6,RDIEN,0)) I $P(RDZN,U,1)="" Q "RTN","ONCOPA2",58,0) .W !?6,"Radiation Treatment - (either radiation or prophylactic)" "RTN","ONCOPA2",59,0) .W !?10,"Target Place: ",$P(RDZN,U,1) "RTN","ONCOPA2",60,0) .W ?50,"Target Site: " S RDTS=$P(RDZN,U,2) I RDTS'="" W $E($P($G(^ONCO(164,RDTS,0)),U,1),1,24) "RTN","ONCOPA2",61,0) .W ?90,"Radiation Source: " S RDS=$P(RDZN,U,3) W $S(RDS="EB":"EXTERNAL BEAM",RDS="SS":"SEALED SOURCES",RDS="US":"UNSEALED SYSTEMIC",RDS="C":"COMBINATION",RDS="O":"OTHER",RDS="U":"UNKNOWN",1:"") D P Q:EX=U "RTN","ONCOPA2",62,0) .W !?10,"Total Due to Target: ",$P(RDZN,U,4) "RTN","ONCOPA2",63,0) .W ?50,"Number of Fractions: ",$P(RDZN,U,5) "RTN","ONCOPA2",64,0) .W ?90,"Predominant FXN Size: ",$P(RDZN,U,6) D P Q:EX=U "RTN","ONCOPA2",65,0) .W !?10,"Number of Days: ",$P(RDZN,U,7) "RTN","ONCOPA2",66,0) .W ?50,"Start Date: " S X=$P(RDZN,U,8) D DATEOT^ONCOES W X "RTN","ONCOPA2",67,0) .W ?90,"Stop Date: " S X=$P(RDZN,U,9) D DATEOT^ONCOES W X D P Q:EX=U "RTN","ONCOPA2",68,0) .F RDTX=0:0 S RDTX=$O(^ONCO(165.5,IEN,6,RDIEN,1,RDTX)) Q:RDTX'>0 W !?14,$G(^ONCO(165.5,IEN,6,RDIEN,1,RDTX,0)) D P Q:EX=U "RTN","ONCOPA2",69,0) .Q "RTN","ONCOPA2",70,0) W !!," Radiation Auxiliary Volume: ",ONCAB(165.5,IEN,129) D P Q:EX=U "RTN","ONCOPA2",71,0) W !," Radiation Auxiliary Date: ",ONCAB(165.5,IEN,130) D P Q:EX=U "RTN","ONCOPA2",72,0) W !," Radiation Auxiliary Text: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,15.1,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,15.1,TX,0) D P Q:EX=U "RTN","ONCOPA2",73,0) W !!," RX Text-Radiation (Beam): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,15,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,15,TX,0) D P Q:EX=U "RTN","ONCOPA2",74,0) W !," RX Text-Radiation Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,16,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,16,TX,0) D P Q:EX=U "RTN","ONCOPA2",75,0) CNS I $P($G(^ONCO(165.5,IEN,0)),U,16)>2951231 G CHEM "RTN","ONCOPA2",76,0) W !!," Radiation Therapy to CNS: ",ONCAB(165.5,IEN,52.2) D P Q:EX=U "RTN","ONCOPA2",77,0) I $P($G(^ONCO(165.5,IEN,3)),U,10)=0 G CHEM "RTN","ONCOPA2",78,0) W !," Prophylactic Radiation Date: ",ONCAB(165.5,IEN,52) D P Q:EX=U "RTN","ONCOPA2",79,0) W !," Radiation Therapy to CNS Hospital: ",ONCAB(165.5,IEN,52.1) D P Q:EX=U "RTN","ONCOPA2",80,0) CHEM W !!," Chemotherapy: ",ONCAB(165.5,IEN,53.2) D P Q:EX=U "RTN","ONCOPA2",81,0) I $P($G(^ONCO(165.5,IEN,3)),U,13)=0 W !," Reason for No Chemotherapy: ",ONCAB(165.5,IEN,76) D P Q:EX=U G HT "RTN","ONCOPA2",82,0) W !," Chemotherapy Start Date: ",ONCAB(165.5,IEN,53) D P Q:EX=U "RTN","ONCOPA2",83,0) W !," Chemotherapy Hospital: ",ONCAB(165.5,IEN,53.1) D P Q:EX=U "RTN","ONCOPA2",84,0) W !," Chemotherapy @Facility: ",ONCAB(165.5,IEN,53.3) D P Q:EX=U "RTN","ONCOPA2",85,0) W !," Chemotherapy @Facility Date: ",ONCAB(165.5,IEN,53.4) D P Q:EX=U "RTN","ONCOPA2",86,0) W !," Reason for No Chemotherapy: ",ONCAB(165.5,IEN,76) D P Q:EX=U "RTN","ONCOPA2",87,0) W !," RX Text-Chemo: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,17,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,17,TX,0) D P Q:EX=U "RTN","ONCOPA2",88,0) HT W !!," Hormone Therapy: ",ONCAB(165.5,IEN,54.2) D P Q:EX=U "RTN","ONCOPA2",89,0) I $P($G(^ONCO(165.5,IEN,3)),U,16)=0 W !," Reason for No Hormone Therapy: ",ONCAB(165.5,IEN,77) D P Q:EX=U G IMM "RTN","ONCOPA2",90,0) W !," Hormone Therapy Start Date: ",ONCAB(165.5,IEN,54) D P Q:EX=U "RTN","ONCOPA2",91,0) W !," Hormone Therapy Hospital: ",ONCAB(165.5,IEN,54.1) D P Q:EX=U "RTN","ONCOPA2",92,0) W !," Hormone Therapy @Facility: ",ONCAB(165.5,IEN,54.3) D P Q:EX=U "RTN","ONCOPA2",93,0) W !," Hormone Therapy @Facility Date: ",ONCAB(165.5,IEN,54.4) D P Q:EX=U "RTN","ONCOPA2",94,0) W !," Reason for No Hormone Therapy: ",ONCAB(165.5,IEN,77) D P Q:EX=U "RTN","ONCOPA2",95,0) W !," RX Text-Hormone: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,18,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,18,TX,0) D P Q:EX=U "RTN","ONCOPA2",96,0) IMM W !!," Immunotherapy: ",ONCAB(165.5,IEN,55.2) D P Q:EX=U "RTN","ONCOPA2",97,0) I $P($G(^ONCO(165.5,IEN,3)),U,19)=0 G OTH "RTN","ONCOPA2",98,0) W !," Immunotherapy Start Date: ",ONCAB(165.5,IEN,55) D P Q:EX=U "RTN","ONCOPA2",99,0) W !," Immunotherapy Hospital: ",ONCAB(165.5,IEN,55.1) D P Q:EX=U "RTN","ONCOPA2",100,0) W !," Immunotherapy @Facility: ",ONCAB(165.5,IEN,55.3) D P Q:EX=U "RTN","ONCOPA2",101,0) W !," Immunotherapy @Facility Date: ",ONCAB(165.5,IEN,55.4) D P Q:EX=U "RTN","ONCOPA2",102,0) W !," RX Text-BRM: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,20,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,20,TX,0) D P Q:EX=U "RTN","ONCOPA2",103,0) OTH W !!," Other Treatment: ",ONCAB(165.5,IEN,57.2) D P Q:EX=U "RTN","ONCOPA2",104,0) I $P($G(^ONCO(165.5,IEN,3)),U,25)=0 G PES "RTN","ONCOPA2",105,0) W !," Other Treatment Date: ",ONCAB(165.5,IEN,57) D P Q:EX=U "RTN","ONCOPA2",106,0) W !," Other Treatment Hospital: ",ONCAB(165.5,IEN,57.1) D P Q:EX=U "RTN","ONCOPA2",107,0) W !," Other Treatment @Facility: ",ONCAB(165.5,IEN,57.3) D P Q:EX=U "RTN","ONCOPA2",108,0) W !," Other Treatment @Facility Date: ",ONCAB(165.5,IEN,57.4) D P Q:EX=U "RTN","ONCOPA2",109,0) W !," RX Text-Other: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,21,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,21,TX,0) D P Q:EX=U "RTN","ONCOPA2",110,0) PES W !!," Protocol Eligibility Status: ",ONCAB(165.5,IEN,346) D P Q:EX=U "RTN","ONCOPA2",111,0) W !," Year Put on Protocol: ",ONCAB(165.5,IEN,133) D P Q:EX=U "RTN","ONCOPA2",112,0) W !," Protocol Participation: ",ONCAB(165.5,IEN,560) D P Q:EX=U "RTN","ONCOPA2",113,0) ; "RTN","ONCOPA2",114,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA2A "RTN","ONCOPA2",115,0) D P Q:EX=U "RTN","ONCOPA2",116,0) PA2A D ^ONCOPA2A "RTN","ONCOPA2",117,0) ; WILL CALL ONCOPA2A ROUTINE TO CONTINUE... "RTN","ONCOPA2",118,0) Q "RTN","ONCOPA2",119,0) P ; "RTN","ONCOPA2",120,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA2",121,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA2",122,0) .D HDR Q "RTN","ONCOPA2",123,0) Q "RTN","ONCOPA2",124,0) HDR ; Header "RTN","ONCOPA2",125,0) W @IOF S PG=PG+1 "RTN","ONCOPA2",126,0) W CRA,! "RTN","ONCOPA2",127,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA2",128,0) Q "RTN","ONCOPA2A") 0^26^B18213747 "RTN","ONCOPA2A",1,0) ONCOPA2A ;HIRMFO/RTK-PRINT COMPLETE ABSTRACT (132c)...CONTINUED 09/05/97 "RTN","ONCOPA2A",2,0) ;;2.11;ONCOLOGY;**15,16,22,25,34**;Mar 07, 1995 "RTN","ONCOPA2A",3,0) ; ONCO PRINT ABSTRACT CONTINUED "RTN","ONCOPA2A",4,0) W !!," Text-Remarks: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,19,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,19,TX,0) D P Q:EX=U "RTN","ONCOPA2A",5,0) W !," Text Dx Proc-Phys.Exam: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,10,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,10,TX,0) D P Q:EX=U "RTN","ONCOPA2A",6,0) W !," Text Dx Proc-Xray/Scan: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,11,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,11,TX,0) D P Q:EX=U "RTN","ONCOPA2A",7,0) W !," Text Dx Proc-Operations: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,9,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,9,TX,0) D P Q:EX=U "RTN","ONCOPA2A",8,0) W !," Text Dx Proc-Lab Tests: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,22,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,22,TX,0) D P Q:EX=U "RTN","ONCOPA2A",9,0) W !," Text Dx Proc-Endoscopy: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,12,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,12,TX,0) D P Q:EX=U "RTN","ONCOPA2A",10,0) W !," Text Dx Proc-Path/Cyto: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,13,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,13,TX,0) D P Q:EX=U "RTN","ONCOPA2A",11,0) ; "RTN","ONCOPA2A",12,0) S NAME="RECURRENCES" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",13,0) W !!,TITLE "RTN","ONCOPA2A",14,0) W !!," Date of First Recurrence: ",ONCAB(165.5,IEN,70) "RTN","ONCOPA2A",15,0) W ?50," Type of First Recurrence: ",ONCAB(165.5,IEN,71) D P Q:EX=U "RTN","ONCOPA2A",16,0) W !," Distant Site 1: ",ONCAB(165.5,IEN,71.1) D P Q:EX=U "RTN","ONCOPA2A",17,0) W !," Distant Site 2: ",ONCAB(165.5,IEN,71.2) D P Q:EX=U "RTN","ONCOPA2A",18,0) W !," Distant Site 3: ",ONCAB(165.5,IEN,71.3) D P Q:EX=U "RTN","ONCOPA2A",19,0) F SR=0:0 S SR=$O(ONCAB(165.572,SR)) Q:SR'>0 D "RTN","ONCOPA2A",20,0) .W !!," Subsequent Recurrence Date: ",ONCAB(165.572,SR,.01) "RTN","ONCOPA2A",21,0) .W ?50," Type of Subsequent Recurrence: ",ONCAB(165.572,SR,.02) D P Q:EX=U "RTN","ONCOPA2A",22,0) .W !," Distant Site 1: ",ONCAB(165.572,SR,.03) D P Q:EX=U "RTN","ONCOPA2A",23,0) .W !," Distant Site 2: ",ONCAB(165.572,SR,.031) D P Q:EX=U "RTN","ONCOPA2A",24,0) .W !," Distant Site 3: ",ONCAB(165.572,SR,.032) D P Q:EX=U "RTN","ONCOPA2A",25,0) .Q "RTN","ONCOPA2A",26,0) S NAME="SUBSEQUENT COURSE OF THERAPY" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",27,0) W !!,TITLE "RTN","ONCOPA2A",28,0) F SCT=0:0 S SCT=$O(ONCAB(165.51,SCT)) Q:SCT'>0 D "RTN","ONCOPA2A",29,0) .W !!?30," Date Started: ",ONCAB(165.51,SCT,.01) D P Q:EX=U "RTN","ONCOPA2A",30,0) .W !?8," Surgery of Primary Site: ",ONCAB(165.51,SCT,.041) "RTN","ONCOPA2A",31,0) .W " ",ONCAB(165.51,SCT,.04) D P Q:EX=U "RTN","ONCOPA2A",32,0) .W !?8," Scope of Lymph Node Surgery: ",ONCAB(165.51,SCT,35) D P Q:EX=U "RTN","ONCOPA2A",33,0) .W !?8," Number of Nodes Removed: ",ONCAB(165.51,SCT,37) D P Q:EX=U "RTN","ONCOPA2A",34,0) .W !?8," Surgery of Other Sites/Nodes: ",ONCAB(165.51,SCT,36) D P Q:EX=U "RTN","ONCOPA2A",35,0) .W !?8," Recon/Restore - Delayed: ",ONCAB(165.51,SCT,34) "RTN","ONCOPA2A",36,0) .W " ",ONCAB(165.51,SCT,33) D P Q:EX=U "RTN","ONCOPA2A",37,0) .W !?8," Radiation: ",ONCAB(165.51,SCT,.051) "RTN","ONCOPA2A",38,0) .W " ",ONCAB(165.51,SCT,.05) D P Q:EX=U "RTN","ONCOPA2A",39,0) .W !?8," Radiation Sequence: ",ONCAB(165.51,SCT,1) D P Q:EX=U "RTN","ONCOPA2A",40,0) .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 !?8," Radiation Therapy to CNS: ",ONCAB(165.51,SCT,.031) "RTN","ONCOPA2A",41,0) .W:$P($G(^ONCO(165.5,IEN,0)),U,16)<2960000 " ",ONCAB(165.51,SCT,.03) D P Q:EX=U "RTN","ONCOPA2A",42,0) .W !?8," Chemotherapy: ",ONCAB(165.51,SCT,.061) "RTN","ONCOPA2A",43,0) .W " ",ONCAB(165.51,SCT,.06) D P Q:EX=U "RTN","ONCOPA2A",44,0) .W !?8," Hormone Therapy: ",ONCAB(165.51,SCT,.071) "RTN","ONCOPA2A",45,0) .W " ",ONCAB(165.51,SCT,.07) D P Q:EX=U "RTN","ONCOPA2A",46,0) .W !?8," Immunotherapy (BRM): ",ONCAB(165.51,SCT,.081) "RTN","ONCOPA2A",47,0) .W " ",ONCAB(165.51,SCT,.08) D P Q:EX=U "RTN","ONCOPA2A",48,0) .W !?8," Other Cancer Therapy: ",ONCAB(165.51,SCT,.091) "RTN","ONCOPA2A",49,0) .W " ",ONCAB(165.51,SCT,.09) D P Q:EX=U "RTN","ONCOPA2A",50,0) .W !," Place: ",ONCAB(165.51,SCT,2) D P Q:EX=U "RTN","ONCOPA2A",51,0) .W !," Comment(s): " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,4,SCT,1,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,4,SCT,1,TX,0) D P Q:EX=U "RTN","ONCOPA2A",52,0) .Q "RTN","ONCOPA2A",53,0) S NAME="OTHER PRIMARY SITES" D FORMAT^ONCOPA1 "RTN","ONCOPA2A",54,0) W !!,TITLE,! "RTN","ONCOPA2A",55,0) S XDX=$O(^ONCO(165.5,"C",PTIEN,"")) I $O(^ONCO(165.5,"C",PTIEN,XDX)) W !?1,"Acc/Seq#",?15,"Primary Site",?37,"Last Tumor Status",?56,"Date DX",?68,"Abst Status",! "RTN","ONCOPA2A",56,0) S (FLG,J)=0 F XD1=0:0 S XD1=$O(^ONCO(165.5,"C",PTIEN,XD1)) Q:XD1'>""!(FLG=1) I $$DIV^ONCFUNC(XD1)=DUZ(2) D "RTN","ONCOPA2A",57,0) .I $D(^ONCO(165.5,XD1,0)),XD1'=IEN S J=J+1 D ^ONCOCOML D P I EX=U S FLG=1 "RTN","ONCOPA2A",58,0) .Q "RTN","ONCOPA2A",59,0) I J=0 W !?24,"No Other Primary Sites" "RTN","ONCOPA2A",60,0) ; "RTN","ONCOPA2A",61,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA3 "RTN","ONCOPA2A",62,0) D P Q:EX=U "RTN","ONCOPA2A",63,0) PA3 D ^ONCOPA3 "RTN","ONCOPA2A",64,0) ; WILL CALL ONCOPA3 ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA2A",65,0) Q "RTN","ONCOPA2A",66,0) P ; "RTN","ONCOPA2A",67,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA2A",68,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA2A",69,0) .D HDR Q "RTN","ONCOPA2A",70,0) Q "RTN","ONCOPA2A",71,0) HDR ; Header "RTN","ONCOPA2A",72,0) W @IOF S PG=PG+1 "RTN","ONCOPA2A",73,0) W CRA,! "RTN","ONCOPA2A",74,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA2A",75,0) Q "RTN","ONCOPA2A",76,0) PAUSE ; "RTN","ONCOPA2A",77,0) W ! R "Enter RETURN to continue or '^' to exit: ",PAUSE:30 "RTN","ONCOPA2A",78,0) I PAUSE="" Q "RTN","ONCOPA2A",79,0) I PAUSE="^" Q "RTN","ONCOPA2A",80,0) G PAUSE "RTN","ONCOPA3") 0^20^B24230361 "RTN","ONCOPA3",1,0) ONCOPA3 ;Hines OIFO/RTK - PRINT COMPLETE ABSTRACT (132c)...CONTINUED ;05/30/00 "RTN","ONCOPA3",2,0) ;;2.11;ONCOLOGY;**13,15,18,25,26,33,34**;Mar 07, 1995 "RTN","ONCOPA3",3,0) ;PRINT COMPLETE ABSTRACT CONTINUED "RTN","ONCOPA3",4,0) S NAME="PERSONAL DATA" D FORMAT^ONCOPA1 "RTN","ONCOPA3",5,0) W !!,TITLE "RTN","ONCOPA3",6,0) W !!?10," Address at DX: ",ONCAB(165.5,IEN,8) "RTN","ONCOPA3",7,0) W !?10," City/Town: ",ONCAB(165.5,IEN,8.1),?70," Birthplace: ",ONCAB(160,PTIEN,7) D P Q:EX=U "RTN","ONCOPA3",8,0) W !?10," State at DX: ",ONCAB(165.5,IEN,16),?70," Religion: ",$E(ONCAB(160,PTIEN,13),1,14) D P Q:EX=U "RTN","ONCOPA3",9,0) W !?10," Postal Code at DX: ",ONCAB(165.5,IEN,9),?70," Marital Status: ",ONCAB(165.5,IEN,11) D P Q:EX=U "RTN","ONCOPA3",10,0) W !?10," County at DX: ",ONCAB(165.5,IEN,10),?70,"Primary Payer at DX: ",ONCAB(165.5,IEN,18) D P Q:EX=U "RTN","ONCOPA3",11,0) W !?10," Home Telephone: ",ONCAB(160,PTIEN,.131) "RTN","ONCOPA3",12,0) S NOK="" "RTN","ONCOPA3",13,0) I $D(^ONCO(160,PTIEN,0)) S RCDT=$G(^ONCO(160,PTIEN,0)) I $P(RCDT,";",2)["DPT",$D(^DPT($P(RCDT,";",1),.21)) S NOK=$P(^(.21),U)_" ("_$P(^(.21),U,2)_")" "RTN","ONCOPA3",14,0) W ?70," Next of Kin: ",NOK D P Q:EX=U "RTN","ONCOPA3",15,0) W !?10," Abstract Status: ",ONCAB(165.5,IEN,91),?47,"Abstract Date: ",ONCAB(165.5,IEN,90),?76,"Abstracted by: ",ONCAB(165.5,IEN,92) D P Q:EX=U "RTN","ONCOPA3",16,0) W !!?7,"Agent Orange Exposure: ",ONCAB(160,PTIEN,48) D P Q:EX=U "RTN","ONCOPA3",17,0) W !?1,"Ionizing Radiation Exposure: ",ONCAB(160,PTIEN,50) D P Q:EX=U "RTN","ONCOPA3",18,0) W !?1," Chemical Exposure: ",ONCAB(160,PTIEN,52) D P Q:EX=U "RTN","ONCOPA3",19,0) W !?1," Asbestos Exposure: ",ONCAB(160,PTIEN,61) D P Q:EX=U "RTN","ONCOPA3",20,0) W !?1," Persian Gulf Service: ",ONCAB(160,PTIEN,51) D P Q:EX=U "RTN","ONCOPA3",21,0) W !?1," Middle East Service: ",ONCAB(160,PTIEN,55) D P Q:EX=U "RTN","ONCOPA3",22,0) W !?1," Somalia Service: ",ONCAB(160,PTIEN,56) D P Q:EX=U "RTN","ONCOPA3",23,0) W !!?1,"Comorbidity/Complication #1: ",ONCAB(160,PTIEN,25) D P Q:EX=U "RTN","ONCOPA3",24,0) W !?1,"Comorbidity/Complication #2: ",ONCAB(160,PTIEN,25.1) D P Q:EX=U "RTN","ONCOPA3",25,0) W !?1,"Comorbidity/Complication #3: ",ONCAB(160,PTIEN,25.2) D P Q:EX=U "RTN","ONCOPA3",26,0) W !?1,"Comorbidity/Complication #4: ",ONCAB(160,PTIEN,25.3) D P Q:EX=U "RTN","ONCOPA3",27,0) W !?1,"Comorbidity/Complication #5: ",ONCAB(160,PTIEN,25.4) D P Q:EX=U "RTN","ONCOPA3",28,0) W !?1,"Comorbidity/Complication #6: ",ONCAB(160,PTIEN,25.5) D P Q:EX=U "RTN","ONCOPA3",29,0) S NAME="EMPLOYMENT HISTORY" D FORMAT^ONCOPA1 "RTN","ONCOPA3",30,0) W !!,TITLE,! "RTN","ONCOPA3",31,0) I $D(^ONCO(160,PTIEN,7,0)) F OC=0:0 S OC=$O(^ONCO(160,PTIEN,7,OC)) Q:OC'>0 D "RTN","ONCOPA3",32,0) .S OCCP=$P($G(^ONCO(160,PTIEN,7,OC,0)),"^",1) I OCCP="" Q "RTN","ONCOPA3",33,0) .W !," Occupation: ",$E($P($G(^LAB(61.6,OCCP,0)),"^",1),1,24) "RTN","ONCOPA3",34,0) .W ?41,"Number of Years: ",$P($G(^ONCO(160,PTIEN,7,OC,0)),"^",2) "RTN","ONCOPA3",35,0) .W ?63,"Last Date: " S Y=$P(^ONCO(160,PTIEN,7,OC,0),"^",3) D DD^%DT W Y "RTN","ONCOPA3",36,0) .W ?89,"Industry/Address: ",$E($P($G(^ONCO(160,PTIEN,7,OC,0)),"^",4),1,22) D P Q:EX=U "RTN","ONCOPA3",37,0) S NAME="TOBACCO AND ALCOHOL USAGE" D FORMAT^ONCOPA1 "RTN","ONCOPA3",38,0) W !!,TITLE "RTN","ONCOPA3",39,0) W !!?15," TOBACCO HISTORY: ",ONCAB(160,PTIEN,38) D P Q:EX=U "RTN","ONCOPA3",40,0) F TBHS=0:0 S TBHS=$O(^ONCO(160,PTIEN,5,TBHS)) Q:TBHS'>0 D "RTN","ONCOPA3",41,0) .S TBZN=$G(^ONCO(160,PTIEN,5,TBHS,0)) S TBTP=$P(TBZN,"^",1) I TBTP="" Q "RTN","ONCOPA3",42,0) .W !?3,"Type of Tobacco User: ",$S(TBTP=1:"CIGARETTE",TBTP=2:"CIGARS",TBTP=3:"PIPE",TBTP=4:"CHEWING TOBACCO",TBTP=5:"SNUFF",TBTP=6:"MARIJUANA",TBTP=7:"MORE THAN 1 TYPE",TBTP=8:"UNKNOWN",1:"") "RTN","ONCOPA3",43,0) .W ?55,"Pack-Years: ",$S($P(TBZN,"^",2)="U":"UNK",1:$P(TBZN,"^",2)) "RTN","ONCOPA3",44,0) .W ?77,"Year Quit Tobacco Use: " S Y=$P(TBZN,"^",3) W:Y="U" "UNK" I +Y D DD^%DT W Y "RTN","ONCOPA3",45,0) .Q "RTN","ONCOPA3",46,0) W !!?15," ALCOHOL HISTORY: ",ONCAB(160,PTIEN,39) D P Q:EX=U "RTN","ONCOPA3",47,0) F ALHS=0:0 S ALHS=$O(^ONCO(160,PTIEN,6,ALHS)) Q:ALHS'>0 D "RTN","ONCOPA3",48,0) .S ALZN=$G(^ONCO(160,PTIEN,6,ALHS,0)) S ALTP=$P(ALZN,"^",1) I ALTP="" Q "RTN","ONCOPA3",49,0) .W !?3,"Type of Alcohol User: ",$S(ALTP="B":"BEER",ALTP="W":"WINE",ALTP="H":"HARD LIQUOR",ALTP="M":"MODERATE/SOCIAL",ALTP="S":"SERIOUS/HEAVY",ALTP="U":"UNKNOWN",1:"") "RTN","ONCOPA3",50,0) .W ?45,"Years of Alcohol Use: ",$S($P(ALZN,"^",2)="U":"UNK",1:$P(ALZN,"^",2)) "RTN","ONCOPA3",51,0) .W ?77,"Drinks Per Day: ",$S($P(ALZN,"^",3)="U":"UNK",1:$P(ALZN,"^",3)) "RTN","ONCOPA3",52,0) .W ?100,"Year Quit Drinking: " S Y=$P(ALZN,"^",4) W:Y="U" "UNK" I +Y D DD^%DT W Y "RTN","ONCOPA3",53,0) .Q "RTN","ONCOPA3",54,0) S CFH=ONCAB(160,PTIEN,43),NAME="CANCER FAMILY HISTORY: "_CFH "RTN","ONCOPA3",55,0) D FORMAT^ONCOPA1 W !!,TITLE,! "RTN","ONCOPA3",56,0) F CHST=0:0 S CHST=$O(ONCAB(160.044,CHST)) Q:CHST'>0 D "RTN","ONCOPA3",57,0) .W !," Family member with cancer: ",ONCAB(160.044,CHST,.01) "RTN","ONCOPA3",58,0) .W ?50," Cancer: ",ONCAB(160.044,CHST,1) D P Q:EX=U "RTN","ONCOPA3",59,0) .Q "RTN","ONCOPA3",60,0) S NAME="PHYSICIAN CONTACTS " D FORMAT^ONCOPA1 "RTN","ONCOPA3",61,0) W !!,TITLE "RTN","ONCOPA3",62,0) W !!," Primary Surgeon: ",ONCAB(165.5,IEN,2) D P Q:EX=U "RTN","ONCOPA3",63,0) W !," Managing Physician: ",ONCAB(165.5,IEN,2.2) D P Q:EX=U "RTN","ONCOPA3",64,0) W !," Following Physician: ",ONCAB(165.5,IEN,2.1) D P Q:EX=U "RTN","ONCOPA3",65,0) W !," Other Physician (3): ",ONCAB(165.5,IEN,2.3) D P Q:EX=U "RTN","ONCOPA3",66,0) W !," Other Physician (4): ",ONCAB(165.5,IEN,2.4) D P Q:EX=U "RTN","ONCOPA3",67,0) W !!," QA Selected: ",ONCAB(165.5,IEN,62) D P Q:EX=U "RTN","ONCOPA3",68,0) W ?25," QA Reviewer: ",ONCAB(165.5,IEN,64.1) D P Q:EX=U "RTN","ONCOPA3",69,0) W ?75," QA Date: ",ONCAB(165.5,IEN,64) D P Q:EX=U "RTN","ONCOPA3",70,0) W ?100," QA Review: ",ONCAB(165.5,IEN,63) D P Q:EX=U "RTN","ONCOPA3",71,0) W !," QA Findings: " F TX=0:0 S TX=$O(^ONCO(165.5,IEN,28,TX)) Q:TX'>0 W !?6,^ONCO(165.5,IEN,28,TX,0) D P Q:EX=U "RTN","ONCOPA3",72,0) ; "RTN","ONCOPA3",73,0) I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HDR G PA3A "RTN","ONCOPA3",74,0) D P Q:EX=U "RTN","ONCOPA3",75,0) PA3A D ^ONCOPA3A "RTN","ONCOPA3",76,0) ; WILL CALL ONCOPA3A ROUTINE FROM HERE TO CONTINUE... "RTN","ONCOPA3",77,0) Q "RTN","ONCOPA3",78,0) P ; "RTN","ONCOPA3",79,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA3",80,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA3",81,0) .D HDR Q "RTN","ONCOPA3",82,0) Q "RTN","ONCOPA3",83,0) HDR ; Header "RTN","ONCOPA3",84,0) W @IOF S PG=PG+1 "RTN","ONCOPA3",85,0) W CRA,! "RTN","ONCOPA3",86,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA3",87,0) Q "RTN","ONCOSCT1") 0^46^B8403389 "RTN","ONCOSCT1",1,0) ONCOSCT1 ;Hines OIFO/GWB - CROSS TAB SETUP ;7/27/92 "RTN","ONCOSCT1",2,0) ;;2.11;ONCOLOGY;**5,22,34**;Mar 07, 1995 "RTN","ONCOSCT1",3,0) GC ;GET CUTS "RTN","ONCOSCT1",4,0) ; "RTN","ONCOSCT1",5,0) ABORT S ROWDD="" "RTN","ONCOSCT1",6,0) Q "RTN","ONCOSCT1",7,0) ; "RTN","ONCOSCT1",8,0) CHISQ ;Chi-square test "RTN","ONCOSCT1",9,0) ;Commented out in patch ONC*2.11*34 "RTN","ONCOSCT1",10,0) ;The "Do a Chi-square test? No//" prompt was causing a problem when "RTN","ONCOSCT1",11,0) ;the cross-tab report was queued. "RTN","ONCOSCT1",12,0) ;I $D(ONCOS("Y")) G:+ONCOS("Y") XTAB^ONCOSCSQ Q "RTN","ONCOSCT1",13,0) ;S Y="Do a Chi-square test? No// ",Z="Chi-square is a statistical test for tables" "RTN","ONCOSCT1",14,0) ;D GETYES^ONCOSINP G:$T XTAB^ONCOSCSQ "RTN","ONCOSCT1",15,0) Q "RTN","ONCOSCT1",16,0) ; "RTN","ONCOSCT1",17,0) SETUP ;get options "RTN","ONCOSCT1",18,0) ;in: ^DD,^DIPT,FNUM,ONCOS,TEMPL "RTN","ONCOSCT1",19,0) ;out: COLCUTS,COLDD,HEADER,PCT,ROWCUTS,ROWDD "RTN","ONCOSCT1",20,0) ;do: ^ONCOSINP,^DIC "RTN","ONCOSCT1",21,0) N CUTS,DIC,FDD,FLD "RTN","ONCOSCT1",22,0) S1 S ROWDD="",DIC="^DD("_FNUM_",",DIC("S")="I +$P(^(0),U,2)=0 " "RTN","ONCOSCT1",23,0) F FLD="COLUMN","ROW" D GETFLD Q:FDD(F)="" "RTN","ONCOSCT1",24,0) Q:FDD(F)="" S COLDD=FDD("C"),ROWDD=FDD("R") "RTN","ONCOSCT1",25,0) S COLCUTS=CUTS("C"),ROWCUTS=CUTS("R") "RTN","ONCOSCT1",26,0) I $D(ONCOS("P")) S PCT=ONCOS("P") G W "RTN","ONCOSCT1",27,0) W ! S DIR("A")=" Print Percents",DIR("B")="No",DIR(0)="Y",DIR("?")="Enter 'Y' to include total percents" D ^DIR Q:Y="^"!(Y="") S PCT=Y "RTN","ONCOSCT1",28,0) W U IO W !!,$S(COLDD="":"One",1:"Two"),"-Way Table with ",$P(ROWDD,U,1)_" Values" "RTN","ONCOSCT1",29,0) I COLDD]"" W " for Rows ",!,"and ",$P(COLDD,U,1)," Values for Columns" "RTN","ONCOSCT1",30,0) W !,"For ",$S(TEMPL:"Entries in Search Template "_HEADER,1:"ALL Cases") "RTN","ONCOSCT1",31,0) Q:$D(ONCOS("Y")) S Y="OK? Yes// ",Z="" D GETYES^ONCOSINP "RTN","ONCOSCT1",32,0) E G ABORT:Y=-1,S1 "RTN","ONCOSCT1",33,0) Q "RTN","ONCOSCT1",34,0) ; "RTN","ONCOSCT1",35,0) GETFLD ;get field & cuts "RTN","ONCOSCT1",36,0) ;N F "RTN","ONCOSCT1",37,0) S F=$E(FLD,1),CUTS(F)="",FDD(F)="" "RTN","ONCOSCT1",38,0) I $D(ONCOS(F)) S X=$P(ONCOS(F),U,1),DIC(0)="EOQ",FDD(F)=X Q:FDD(F)="" "RTN","ONCOSCT1",39,0) E S DIC(0)="AEQ",DIC("A")="Select "_FLD_" field: " "RTN","ONCOSCT1",40,0) D ^DIC Q:Y="^"!(Y=-1) "RTN","ONCOSCT1",41,0) S X=^DD(FNUM,+Y,0),FDD(F)=X,X=$P(X,U,2) Q:X["N"!(X["J")!(X["C")=0 "RTN","ONCOSCT1",42,0) I $D(ONCOS(F)) S X=$P(ONCOS(F),U,2) S:X]"" CUTS(F)=X_":99999999" Q "RTN","ONCOSCT1",43,0) CUTS W !!?10,"You may enter cutpoints for this variable: "_$P(FDD(F),U) "RTN","ONCOSCT1",44,0) W !?10,"E.g., enter '4:7:12:30' to count the values" "RTN","ONCOSCT1",45,0) W !?10,"in 5 categories (LE 4),(GT4-LE7),...,(GT30)" "RTN","ONCOSCT1",46,0) C R !!?5,"Define CUTPOINTS: ",X:DTIME G ABORT:'$T!(X="^") Q:X="" I X["?" D HLP G CUTS "RTN","ONCOSCT1",47,0) CK ;Check cutpoint format "RTN","ONCOSCT1",48,0) F I=1:1:$L(X) S Y=$E(X,I) I Y'?1N.N&(Y'=":") W ?50,*7,"ERROR = '"_Y_"' ~ Try Again!" G CUTS "RTN","ONCOSCT1",49,0) S NC=$L(X,":") F I=1:1:NC S X(I)=$P(X,":",I) I I>2 Q:X(I)'>X(I-1) "RTN","ONCOSCT1",50,0) ; I I=NC F I=1:1:NC I I>2,X(I)'67509) D BRS1 Q "RTN","ONCOSUR2",66,0) I X>67499,X<67510 Q "RTN","ONCOSUR2",67,0) S $P(^ONCO(165.5,DA,2.1),U,14)=1 ;141 ;BIOPSY PROCEDURE "RTN","ONCOSUR2",68,0) S $P(^ONCO(165.5,DA,2.1),U,15)=1 ;142 ;GUIDANCE "RTN","ONCOSUR2",69,0) S $P(^ONCO(165.5,DA,2.1),U,16)=0 ;143 ;PALPABILITY OF PRIMARY "RTN","ONCOSUR2",70,0) S $P(^ONCO(165.5,DA,2.1),U,17)=0 ;144 ;FIRST DETECTED BY "RTN","ONCOSUR2",71,0) S $P(^ONCO(165.5,DA,2.1),U,18)=0 ;145 ;APPROACH FOR BIOPSY OF PRIMARY "RTN","ONCOSUR2",72,0) S $P(^ONCO(165.5,DA,2.1),U,19)=0 ;146 ;BIOPSY OF OTHER THAN PRIMARY "RTN","ONCOSUR2",73,0) Q "RTN","ONCOSUR2",74,0) ; "RTN","ONCOSUR2",75,0) BRS1 ;SCREENING OR BIOPSY PROCEDURES (Breast) "RTN","ONCOSUR2",76,0) I X<67500!(X>67509) Q "RTN","ONCOSUR2",77,0) D MESSAGE "RTN","ONCOSUR2",78,0) W !?5,"SCREENING OR BIOPSY PROCEDURES",?41,"(all fields)" "RTN","ONCOSUR2",79,0) S COC=$P($G(^ONCO(165.5,DA,0)),U,4) "RTN","ONCOSUR2",80,0) I (COC=5)!(COC=8) D Q "RTN","ONCOSUR2",81,0) .S $P(^ONCO(165.5,DA,2.1),U,14)=6 "RTN","ONCOSUR2",82,0) .S:(X>67499)&(X<67510) $P(^ONCO(165.5,DA,2.1),U,15)=9 "RTN","ONCOSUR2",83,0) .S:X=67619 $P(^ONCO(165.5,DA,2.1),U,15)=5 "RTN","ONCOSUR2",84,0) .S $P(^ONCO(165.5,DA,2.1),U,16)=9 "RTN","ONCOSUR2",85,0) .S $P(^ONCO(165.5,DA,2.1),U,17)=9 "RTN","ONCOSUR2",86,0) .S $P(^ONCO(165.5,DA,2.1),U,18)=9 "RTN","ONCOSUR2",87,0) .S $P(^ONCO(165.5,DA,2.1),U,19)=9 "RTN","ONCOSUR2",88,0) S $P(^ONCO(165.5,DA,2.1),U,14)="" ;141 ;BIOPSY PROCEDURE "RTN","ONCOSUR2",89,0) S $P(^ONCO(165.5,DA,2.1),U,15)="" ;142 ;GUIDANCE "RTN","ONCOSUR2",90,0) S $P(^ONCO(165.5,DA,2.1),U,16)="" ;143 ;PALPABILITY OF PRIMARY "RTN","ONCOSUR2",91,0) S $P(^ONCO(165.5,DA,2.1),U,17)="" ;144 ;FIRST DETECTED BY "RTN","ONCOSUR2",92,0) S $P(^ONCO(165.5,DA,2.1),U,18)="" ;145 ;APPROACH FOR BIOPSY OF PRIMARY "RTN","ONCOSUR2",93,0) S $P(^ONCO(165.5,DA,2.1),U,19)="" ;146 ;BIOPSY OF OTHER THAN PRIMARY "RTN","ONCOSUR2",94,0) Q "RTN","ONCOSUR2",95,0) ; "RTN","ONCOSUR2",96,0) PRS ;SCREENING OR BIOPSY PROCEDURES (Prostate) "RTN","ONCOSUR2",97,0) I (OLDTOP'=67619)!((X>67499)&(X<67510)) D PRS1 Q "RTN","ONCOSUR2",98,0) S $P(^ONCO(165.5,DA,2.1),U,14)=1 ;141 ;BIOPSY PROCEDURE "RTN","ONCOSUR2",99,0) S $P(^ONCO(165.5,DA,2.1),U,15)=1 ;142 ;GUIDANCE "RTN","ONCOSUR2",100,0) S $P(^ONCO(165.5,DA,2.1),U,16)=0 ;143 ;PALPABILITY OF PRIMARY "RTN","ONCOSUR2",101,0) S $P(^ONCO(165.5,DA,2.1),U,17)=0 ;144 ;FIRST DETECTED BY "RTN","ONCOSUR2",102,0) S $P(^ONCO(165.5,DA,2.1),U,18)=0 ;145 ;APPROACH FOR BIOPSY OF PRIMARY "RTN","ONCOSUR2",103,0) S $P(^ONCO(165.5,DA,2.1),U,19)=0 ;146 ;BIOPSY OF OTHER THAN PRIMARY "RTN","ONCOSUR2",104,0) Q "RTN","ONCOSUR2",105,0) ; "RTN","ONCOSUR2",106,0) PRS1 ;SCREENING OR BIOPSY PROCEDURES (Prostate) "RTN","ONCOSUR2",107,0) I X'=67619 Q "RTN","ONCOSUR2",108,0) D MESSAGE "RTN","ONCOSUR2",109,0) W !?5,"SCREENING OR BIOPSY PROCEDURES",?41,"(all fields)" "RTN","ONCOSUR2",110,0) S COC=$P($G(^ONCO(165.5,DA,0)),U,4) "RTN","ONCOSUR2",111,0) I (COC=5)!(COC=8) D Q "RTN","ONCOSUR2",112,0) .S $P(^ONCO(165.5,DA,2.1),U,14)=6 "RTN","ONCOSUR2",113,0) .S:(X>67499)&(X<67510) $P(^ONCO(165.5,DA,2.1),U,15)=9 "RTN","ONCOSUR2",114,0) .S:X=67619 $P(^ONCO(165.5,DA,2.1),U,15)=5 "RTN","ONCOSUR2",115,0) .S $P(^ONCO(165.5,DA,2.1),U,16)=9 "RTN","ONCOSUR2",116,0) .S $P(^ONCO(165.5,DA,2.1),U,17)=9 "RTN","ONCOSUR2",117,0) .S $P(^ONCO(165.5,DA,2.1),U,18)=9 "RTN","ONCOSUR2",118,0) .S $P(^ONCO(165.5,DA,2.1),U,19)=9 "RTN","ONCOSUR2",119,0) S $P(^ONCO(165.5,DA,2.1),U,14)="" ;141 ;BIOPSY PROCEDURE "RTN","ONCOSUR2",120,0) S $P(^ONCO(165.5,DA,2.1),U,15)="" ;142 ;GUIDANCE "RTN","ONCOSUR2",121,0) S $P(^ONCO(165.5,DA,2.1),U,16)="" ;143 ;PALPABILITY OF PRIMARY "RTN","ONCOSUR2",122,0) S $P(^ONCO(165.5,DA,2.1),U,17)="" ;144 ;FIRST DETECTED BY "RTN","ONCOSUR2",123,0) S $P(^ONCO(165.5,DA,2.1),U,18)="" ;145 ;APPROACH FOR BIOPSY OF PRIMARY "RTN","ONCOSUR2",124,0) S $P(^ONCO(165.5,DA,2.1),U,19)="" ;146 ;BIOPSY OF OTHER THAN PRIMARY "RTN","ONCOSUR2",125,0) Q "RTN","ONCOSUR2",126,0) ; "RTN","ONCOSUR2",127,0) SUR ; "RTN","ONCOSUR2",128,0) S OLDSCG=$P($G(^ONCO(164,OLDTOP,0)),"^",16) I OLDSCG="" Q "RTN","ONCOSUR2",129,0) S NEWSCG=$P($G(^ONCO(164,X,0)),"^",16) I NEWSCG="" Q "RTN","ONCOSUR2",130,0) I OLDSCG=NEWSCG Q "RTN","ONCOSUR2",131,0) D MESSAGE "RTN","ONCOSUR2",132,0) W !?5,"SURGERY",?41,"(all fields)" "RTN","ONCOSUR2",133,0) S $P(^ONCO(165.5,D0,3),"^",38)="" ;58.2;SURGERY OF PRIMARY SITE "RTN","ONCOSUR2",134,0) S TXDT=$P(^ONCO(165.5,DA,3),U,1)_"S" "RTN","ONCOSUR2",135,0) S $P(^ONCO(165.5,DA,3),U,1)="" ;50 ;SURGERY OF PRIM SITE DT "RTN","ONCOSUR2",136,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOSUR2",137,0) S TXDT=$P($G(^ONCO(165.5,DA,3.1)),U,22)_"S" "RTN","ONCOSUR2",138,0) S $P(^ONCO(165.5,DA,3.1),U,22)="" ;138.2;SCOPE OF LN SURGERY DT "RTN","ONCOSUR2",139,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOSUR2",140,0) S TXDT=$P(^ONCO(165.5,DA,3.1),U,24)_"S" "RTN","ONCOSUR2",141,0) S $P(^ONCO(165.5,DA,3.1),U,24)="" ;139.2;SURG OTH SITE/NODE DT "RTN","ONCOSUR2",142,0) K ^ONCO(165.5,"ATX",DA,TXDT) "RTN","ONCOSUR2",143,0) S $P(^ONCO(165.5,DA,3),U,2)="" ;50.1;SURGERY HOSPITAL "RTN","ONCOSUR2",144,0) S $P(^ONCO(165.5,DA,3),U,34)="" ;74 ;SURGICAL APPROACH "RTN","ONCOSUR2",145,0) S $P(^ONCO(165.5,DA,3),U,28)="" ;59 ;SURGICAL MARGINS "RTN","ONCOSUR2",146,0) S $P(^ONCO(165.5,DA,3),U,40)="" ;138 ;SCOPE OF LYMPH NODE SURG "RTN","ONCOSUR2",147,0) S $P(^ONCO(165.5,DA,3),U,42)="" ;140 ;NUMBER OF NODES REMOVED "RTN","ONCOSUR2",148,0) S $P(^ONCO(165.5,DA,3),U,41)="" ;139 ;SURGERY OF OTHER ST/ND "RTN","ONCOSUR2",149,0) S $P(^ONCO(165.5,D0,3.1),"^",7)="" ;58.2;SURG PRIM SITE ATF "RTN","ONCOSUR2",150,0) S $P(^ONCO(165.5,DA,3.1),U,8)="" ;50 ;SURG PRIM SITE DT ATF "RTN","ONCOSUR2",151,0) S $P(^ONCO(165.5,DA,3.1),U,23)="" ;138.2;SCOPE OF LN SURG ATF DT "RTN","ONCOSUR2",152,0) S $P(^ONCO(165.5,DA,3.1),U,25)="" ;139.2;SURG OTH ST/ND ATF DT "RTN","ONCOSUR2",153,0) S $P(^ONCO(165.5,DA,3.1),U,9)="" ;138.1;SCOPE OF LN SURG ATF "RTN","ONCOSUR2",154,0) S $P(^ONCO(165.5,DA,3.1),U,10)="" ;140.1;NUM NODES REMOVED ATF "RTN","ONCOSUR2",155,0) S $P(^ONCO(165.5,DA,3.1),U,11)="" ;139.1;SURG OTHER ST/ND ATF "RTN","ONCOSUR2",156,0) S $P(^ONCO(165.5,DA,3),U,33)="" ;23 ;RECONSTRUCTION/REST "RTN","ONCOSUR2",157,0) K ^ONCO(165.5,DA,14) ;108 ;TEXT-RX-SURGERY "RTN","ONCOSUR2",158,0) S $P(^ONCO(165.5,DA,3),U,26)="" ;58 ;REASON FOR NO SURGERY "RTN","ONCOSUR2",159,0) Q "RTN","ONCOSUR2",160,0) SCT ; "RTN","ONCOSUR2",161,0) S OLDSCG=$P($G(^ONCO(164,OLDTOP,0)),"^",16) I OLDSCG="" Q "RTN","ONCOSUR2",162,0) S NEWSCG=$P($G(^ONCO(164,X,0)),"^",16) I NEWSCG="" Q "RTN","ONCOSUR2",163,0) I OLDSCG=NEWSCG Q "RTN","ONCOSUR2",164,0) D MESSAGE "RTN","ONCOSUR2",165,0) W !?5,"SUBSEQUENT COURSE OF TREATMENT",?41,"(surgery fields)" "RTN","ONCOSUR2",166,0) F SCT=0:0 S SCT=$O(^ONCO(165.5,DA,4,SCT)) Q:SCT'>0 D "RTN","ONCOSUR2",167,0) .S $P(^ONCO(165.5,DA,4,SCT,0),"^",4)="" ;.04 ;SURGERY OF PRIMARY SITE "RTN","ONCOSUR2",168,0) .S $P(^ONCO(165.5,DA,4,SCT,0),"^",11)="" ;.041;SURGERY OF PRIM SITE DT "RTN","ONCOSUR2",169,0) .S $P(^ONCO(165.5,DA,4,SCT,2),"^",32)="" ;35 ;SCOPE OF LYMPH ND SURG "RTN","ONCOSUR2",170,0) .S $P(^ONCO(165.5,DA,4,SCT,2),"^",34)="" ;37 ;NUMBER OF NDS REMOVED "RTN","ONCOSUR2",171,0) .S $P(^ONCO(165.5,DA,4,SCT,2),"^",33)="" ;36 ;SURGERY OF OTHER ST/ND "RTN","ONCOSUR2",172,0) .S $P(^ONCO(165.5,DA,4,SCT,2),"^",30)="" ;33 ;RECON/RESTORE DELAYED "RTN","ONCOSUR2",173,0) .S $P(^ONCO(165.5,DA,4,SCT,2),"^",31)="" ;34 ;RECON/RESTORE DELAY DT "RTN","ONCOSUR2",174,0) .Q "RTN","ONCOSUR2",175,0) W ! Q "RTN","ONCOSUR2",176,0) MESSAGE ; "RTN","ONCOSUR2",177,0) I MSSG=1 Q "RTN","ONCOSUR2",178,0) W !!?3,"You have changed the ICDO-TOPOGRAPHY. The new topography" "RTN","ONCOSUR2",179,0) W !?3,"is outside of the old topography's site group. This change" "RTN","ONCOSUR2",180,0) W !?3,"may affect the validity of all site-specific fields. Therefore," "RTN","ONCOSUR2",181,0) W !?3,"these fields have been initialized and need to be re-entered:" "RTN","ONCOSUR2",182,0) W ! S MSSG=1 Q "RTN","ONCOSUR2",183,0) Q "RTN","ONCPAT") 0^21^B30442258 "RTN","ONCPAT",1,0) ONCPAT ;Hines OIFO/GWB - PATIENT IDENTIFICATION ;12/08/00 "RTN","ONCPAT",2,0) ;;2.11;ONCOLOGY;**27,32,33,34**;Mar 07, 1995 "RTN","ONCPAT",3,0) W ! "RTN","ONCPAT",4,0) K DR "RTN","ONCPAT",5,0) S DIE="^ONCO(160,",DA=ONCOD0,DR="" "RTN","ONCPAT",6,0) S DR(1,160,1)="7 PLACE OF BIRTH............." "RTN","ONCPAT",7,0) S DR(1,160,2)="8 RACE 1.....................//^S X=RACE" "RTN","ONCPAT",8,0) S DR(1,160,3)="I X'=99 S Y=""@81""" "RTN","ONCPAT",9,0) S DR(1,160,4)="8.1////99" "RTN","ONCPAT",10,0) S DR(1,160,5)="8.2////99" "RTN","ONCPAT",11,0) S DR(1,160,6)="8.3////99" "RTN","ONCPAT",12,0) S DR(1,160,7)="8.4////99" "RTN","ONCPAT",13,0) S DR(1,160,8)="W !,"" RACE 2.....................: Unknown""" "RTN","ONCPAT",14,0) S DR(1,160,9)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",15,0) S DR(1,160,10)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",16,0) S DR(1,160,11)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",17,0) S DR(1,160,12)="S Y=9" "RTN","ONCPAT",18,0) S DR(1,160,13)="@81" "RTN","ONCPAT",19,0) S DR(1,160,14)="8.1 RACE 2.....................//NA" "RTN","ONCPAT",20,0) S DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")" "RTN","ONCPAT",21,0) S DR(1,160,16)="@8288" "RTN","ONCPAT",22,0) S DR(1,160,17)="8.2////88" "RTN","ONCPAT",23,0) S DR(1,160,18)="8.3////88" "RTN","ONCPAT",24,0) S DR(1,160,19)="8.4////88" "RTN","ONCPAT",25,0) S DR(1,160,20)="W !,"" RACE 3.....................: NA""" "RTN","ONCPAT",26,0) S DR(1,160,21)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",27,0) S DR(1,160,22)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",28,0) S DR(1,160,23)="S Y=9" "RTN","ONCPAT",29,0) S DR(1,160,24)="@8299" "RTN","ONCPAT",30,0) S DR(1,160,25)="8.2////99" "RTN","ONCPAT",31,0) S DR(1,160,26)="8.3////99" "RTN","ONCPAT",32,0) S DR(1,160,27)="8.4////99" "RTN","ONCPAT",33,0) S DR(1,160,28)="W !,"" RACE 3.....................: Unknown""" "RTN","ONCPAT",34,0) S DR(1,160,29)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",35,0) S DR(1,160,30)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",36,0) S DR(1,160,31)="S Y=9" "RTN","ONCPAT",37,0) S DR(1,160,32)="@8200" "RTN","ONCPAT",38,0) S DR(1,160,33)="8.2////@" "RTN","ONCPAT",39,0) S DR(1,160,34)="8.3////@" "RTN","ONCPAT",40,0) S DR(1,160,35)="8.4////@" "RTN","ONCPAT",41,0) S DR(1,160,36)="W !,"" RACE 3.....................:""" "RTN","ONCPAT",42,0) S DR(1,160,37)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",43,0) S DR(1,160,38)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",44,0) S DR(1,160,39)="S Y=9" "RTN","ONCPAT",45,0) S DR(1,160,40)="@82" "RTN","ONCPAT",46,0) S DR(1,160,41)="8.2 RACE 3.....................//NA" "RTN","ONCPAT",47,0) S DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")" "RTN","ONCPAT",48,0) S DR(1,160,43)="@8388" "RTN","ONCPAT",49,0) S DR(1,160,44)="8.3////88" "RTN","ONCPAT",50,0) S DR(1,160,45)="8.4////88" "RTN","ONCPAT",51,0) S DR(1,160,46)="W !,"" RACE 4.....................: NA""" "RTN","ONCPAT",52,0) S DR(1,160,47)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",53,0) S DR(1,160,48)="S Y=9" "RTN","ONCPAT",54,0) S DR(1,160,49)="@8399" "RTN","ONCPAT",55,0) S DR(1,160,50)="8.3////99" "RTN","ONCPAT",56,0) S DR(1,160,51)="8.4////99" "RTN","ONCPAT",57,0) S DR(1,160,52)="W !,"" RACE 4.....................: Unknown""" "RTN","ONCPAT",58,0) S DR(1,160,53)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",59,0) S DR(1,160,54)="S Y=9" "RTN","ONCPAT",60,0) S DR(1,160,55)="@8300" "RTN","ONCPAT",61,0) S DR(1,160,56)="8.3////@" "RTN","ONCPAT",62,0) S DR(1,160,57)="8.4////@" "RTN","ONCPAT",63,0) S DR(1,160,58)="W !,"" RACE 4.....................:""" "RTN","ONCPAT",64,0) S DR(1,160,59)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",65,0) S DR(1,160,60)="S Y=9" "RTN","ONCPAT",66,0) S DR(1,160,61)="@83" "RTN","ONCPAT",67,0) S DR(1,160,62)="8.3 RACE 4.....................//NA" "RTN","ONCPAT",68,0) S DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")" "RTN","ONCPAT",69,0) S DR(1,160,64)="@8488" "RTN","ONCPAT",70,0) S DR(1,160,65)="8.4////88" "RTN","ONCPAT",71,0) S DR(1,160,66)="W !,"" RACE 5.....................: NA""" "RTN","ONCPAT",72,0) S DR(1,160,67)="S Y=9" "RTN","ONCPAT",73,0) S DR(1,160,68)="@8499" "RTN","ONCPAT",74,0) S DR(1,160,69)="8.4////99" "RTN","ONCPAT",75,0) S DR(1,160,70)="W !,"" RACE 5.....................: Unknown""" "RTN","ONCPAT",76,0) S DR(1,160,71)="S Y=9" "RTN","ONCPAT",77,0) S DR(1,160,72)="@8400" "RTN","ONCPAT",78,0) S DR(1,160,73)="8.4////@" "RTN","ONCPAT",79,0) S DR(1,160,74)="W !,"" RACE 5.....................:""" "RTN","ONCPAT",80,0) S DR(1,160,75)="S Y=9" "RTN","ONCPAT",81,0) S DR(1,160,76)="@84" "RTN","ONCPAT",82,0) S DR(1,160,77)="8.4 RACE 5.....................//NA" "RTN","ONCPAT",83,0) S DR(1,160,78)="9 SPANISH ORIGIN............." "RTN","ONCPAT",84,0) S DR(1,160,79)="10 SEX........................" "RTN","ONCPAT",85,0) S DR(1,160,80)="48 AGENT ORANGE EXPOSURE......//^S X=AOE" "RTN","ONCPAT",86,0) S DR(1,160,81)="50 IONIZING RADIATION EXPOSURE//^S X=IRE" "RTN","ONCPAT",87,0) S DR(1,160,82)="52 CHEMICAL EXPOSURE.........." "RTN","ONCPAT",88,0) S DR(1,160,83)="61 ASBESTOS EXPOSURE.........." "RTN","ONCPAT",89,0) S DR(1,160,84)="51 PERSIAN GULF SERVICE.......//^S X=PGS" "RTN","ONCPAT",90,0) S DR(1,160,84.1)="55 MIDDLE EAST SERVICE........//^S X=MES" "RTN","ONCPAT",91,0) S DR(1,160,84.2)="56 SOMALIA SERVICE............//^S X=SS" "RTN","ONCPAT",92,0) S DR(1,160,85)="25 COMORBIDITY/COMPLICATION #1" "RTN","ONCPAT",93,0) S DR(1,160,86)="I X'="""" S Y=""@251""" "RTN","ONCPAT",94,0) S DR(1,160,87)="25.1////@" "RTN","ONCPAT",95,0) S DR(1,160,88)="25.2////@" "RTN","ONCPAT",96,0) S DR(1,160,89)="25.3////@" "RTN","ONCPAT",97,0) S DR(1,160,90)="25.4////@" "RTN","ONCPAT",98,0) S DR(1,160,91)="25.5////@" "RTN","ONCPAT",99,0) S DR(1,160,92)="W !,"" COMORBIDITY/COMPLICATION #2:""" "RTN","ONCPAT",100,0) S DR(1,160,93)="W !,"" COMORBIDITY/COMPLICATION #3:""" "RTN","ONCPAT",101,0) S DR(1,160,94)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",102,0) S DR(1,160,95)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",103,0) S DR(1,160,96)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",104,0) S DR(1,160,97)="S Y=""@99""" "RTN","ONCPAT",105,0) S DR(1,160,98)="@251" "RTN","ONCPAT",106,0) S DR(1,160,99)="25.1 COMORBIDITY/COMPLICATION #2" "RTN","ONCPAT",107,0) S DR(1,160,100)="I X'="""" S Y=""@252""" "RTN","ONCPAT",108,0) S DR(1,160,101)="25.2////@" "RTN","ONCPAT",109,0) S DR(1,160,102)="25.3////@" "RTN","ONCPAT",110,0) S DR(1,160,103)="25.4////@" "RTN","ONCPAT",111,0) S DR(1,160,104)="25.5////@" "RTN","ONCPAT",112,0) S DR(1,160,105)="W !,"" COMORBIDITY/COMPLICATION #3:""" "RTN","ONCPAT",113,0) S DR(1,160,106)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",114,0) S DR(1,160,107)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",115,0) S DR(1,160,108)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",116,0) S DR(1,160,109)="S Y=""@99""" "RTN","ONCPAT",117,0) S DR(1,160,110)="@252" "RTN","ONCPAT",118,0) S DR(1,160,111)="25.2 COMORBIDITY/COMPLICATION #3" "RTN","ONCPAT",119,0) S DR(1,160,112)="I X'="""" S Y=""@253""" "RTN","ONCPAT",120,0) S DR(1,160,113)="25.3////@" "RTN","ONCPAT",121,0) S DR(1,160,114)="25.4////@" "RTN","ONCPAT",122,0) S DR(1,160,115)="25.5////@" "RTN","ONCPAT",123,0) S DR(1,160,116)="W !,"" COMORBIDITY/COMPLICATION #4:""" "RTN","ONCPAT",124,0) S DR(1,160,117)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",125,0) S DR(1,160,118)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",126,0) S DR(1,160,119)="S Y=""@99""" "RTN","ONCPAT",127,0) S DR(1,160,120)="@253" "RTN","ONCPAT",128,0) S DR(1,160,121)="25.3 COMORBIDITY/COMPLICATION #4" "RTN","ONCPAT",129,0) S DR(1,160,122)="I X'="""" S Y=""@254""" "RTN","ONCPAT",130,0) S DR(1,160,123)="25.4////@" "RTN","ONCPAT",131,0) S DR(1,160,124)="25.5////@" "RTN","ONCPAT",132,0) S DR(1,160,125)="W !,"" COMORBIDITY/COMPLICATION #5:""" "RTN","ONCPAT",133,0) S DR(1,160,126)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",134,0) S DR(1,160,127)="S Y=""@99""" "RTN","ONCPAT",135,0) S DR(1,160,128)="@254" "RTN","ONCPAT",136,0) S DR(1,160,129)="25.4 COMORBIDITY/COMPLICATION #5" "RTN","ONCPAT",137,0) S DR(1,160,130)="I X'="""" S Y=""@255""" "RTN","ONCPAT",138,0) S DR(1,160,131)="25.5////@" "RTN","ONCPAT",139,0) S DR(1,160,132)="W !,"" COMORBIDITY/COMPLICATION #6:""" "RTN","ONCPAT",140,0) S DR(1,160,133)="S Y=""@99""" "RTN","ONCPAT",141,0) S DR(1,160,134)="@255" "RTN","ONCPAT",142,0) S DR(1,160,135)="25.5 COMORBIDITY/COMPLICATION #6" "RTN","ONCPAT",143,0) S DR(1,160,136)="@99" "RTN","ONCPAT",144,0) D ^DIE "RTN","ONCPAT",145,0) K DR "RTN","ONCPAT",146,0) Q "RTN","ONCPDI") 0^22^B7386889 "RTN","ONCPDI",1,0) ONCPDI ;Hines OIFO/GWB - Patient information; 9/24/97 "RTN","ONCPDI",2,0) ;;2.11;ONCOLOGY;**18,27,33,34**;Mar 07, 1995 "RTN","ONCPDI",3,0) PRT N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPDI",4,0) S DIC="^ONCO(160,",DR="7;8;8.1;8.2;8.3;8.4;9;10;25;25.1;25.2;25.3;25.4;25.5;48;50;51;52;61;55;56" "RTN","ONCPDI",5,0) S DA=D0,DIQ="ONC" "RTN","ONCPDI",6,0) D EN^DIQ1 "RTN","ONCPDI",7,0) F I=7,8,8.1,8.2,8.3,8.4,9,10,48,50,51,52,61,55,56 S X=ONC(160,D0,I) D UCASE^ONCPCI S ONC(160,D0,I)=X "RTN","ONCPDI",8,0) W ! "RTN","ONCPDI",9,0) W !," Place of birth.............: ",ONC(160,D0,7) "RTN","ONCPDI",10,0) W !," Race 1.....................: ",ONC(160,D0,8) "RTN","ONCPDI",11,0) W !," Race 2.....................: ",ONC(160,D0,8.1) "RTN","ONCPDI",12,0) W !," Race 3.....................: ",ONC(160,D0,8.2) "RTN","ONCPDI",13,0) W !," Race 4.....................: ",ONC(160,D0,8.3) "RTN","ONCPDI",14,0) W !," Race 5.....................: ",ONC(160,D0,8.4) "RTN","ONCPDI",15,0) W !," Spanish origin.............: ",ONC(160,D0,9) "RTN","ONCPDI",16,0) W !," Sex........................: ",ONC(160,D0,10) "RTN","ONCPDI",17,0) W !," Agent Orange exposure......: ",ONC(160,D0,48) "RTN","ONCPDI",18,0) W !," Ionizing radiation exposure: ",ONC(160,D0,50) "RTN","ONCPDI",19,0) W !," Chemical exposure..........: ",ONC(160,D0,52) "RTN","ONCPDI",20,0) W !," Asbestos exposure..........: ",ONC(160,D0,61) "RTN","ONCPDI",21,0) W !," Persian Gulf service.......: ",ONC(160,D0,51) "RTN","ONCPDI",22,0) W !," Middle East service........: ",ONC(160,D0,55) "RTN","ONCPDI",23,0) W !," Somalia service............: ",ONC(160,D0,56) "RTN","ONCPDI",24,0) W !," Comorbidity/Complication #1: ",ONC(160,D0,25) "RTN","ONCPDI",25,0) W !," Comorbidity/Complication #2: ",ONC(160,D0,25.1) "RTN","ONCPDI",26,0) W !," Comorbidity/Complication #3: ",ONC(160,D0,25.2) "RTN","ONCPDI",27,0) W !," Comorbidity/complication #4: ",ONC(160,D0,25.3) "RTN","ONCPDI",28,0) W !," Comorbidity/Complication #5: ",ONC(160,D0,25.4) "RTN","ONCPDI",29,0) W !," Comorbidity/Complication #6: ",ONC(160,D0,25.5) "RTN","ONCPDI",30,0) Q "RTN","ONCPDI",31,0) PH ;Patient History "RTN","ONCPDI",32,0) K ONC S IEN=D0_"," "RTN","ONCPDI",33,0) D GETS^DIQ(160,IEN,"38;39;42*;43;44*","","ONC") "RTN","ONCPDI",34,0) F I=38,39,43 S X=ONC(160,D0_",",I) D UCASE^ONCPCI S ONC(160,D0_",",I)=X "RTN","ONCPDI",35,0) W @IOF "RTN","ONCPDI",36,0) S SUB=0 F S SUB=$O(ONC(160.042,SUB)) Q:SUB'>0 D "RTN","ONCPDI",37,0) .W !," Usual Occupation...........: ",ONC(160.042,SUB,.01) "RTN","ONCPDI",38,0) .W !," Years in Occupation........: ",ONC(160.042,SUB,1) "RTN","ONCPDI",39,0) .W !," Last Date in Occupation....: ",ONC(160.042,SUB,2) "RTN","ONCPDI",40,0) .W !," Usual Industry.............: ",ONC(160.042,SUB,3) "RTN","ONCPDI",41,0) .W ! "RTN","ONCPDI",42,0) W !," Tobacco History............: ",ONC(160,IEN,38) "RTN","ONCPDI",43,0) W !," Alcohol History............: ",ONC(160,IEN,39) "RTN","ONCPDI",44,0) W ! "RTN","ONCPDI",45,0) W !," Family History of Cancer...: ",ONC(160,IEN,43) "RTN","ONCPDI",46,0) S SUB=0 F S SUB=$O(ONC(160.044,SUB)) Q:SUB'>0 D "RTN","ONCPDI",47,0) .W !," Family Member with Cancer..: ",ONC(160.044,SUB,.01),?50,"(",ONC(160.044,SUB,1),")" "RTN","ONCPDI",48,0) W ! "RTN","ONCPDI",49,0) K ONC,IEN,SUB "RTN","ONCPDI",50,0) Q "RTN","ONCPRE34") 0^16^B653063 "RTN","ONCPRE34",1,0) ONCPRE34 ;Hines OIFO/GWB-PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*34 "RTN","ONCPRE34",2,0) ;;2.11;ONCOLOGY;**34**;Mar 07, 1995 "RTN","ONCPRE34",3,0) ; "RTN","ONCPRE34",4,0) ITEM5 ;Kill ONCOLOGY DATA EXTRACT FORMAT (160.16) data "RTN","ONCPRE34",5,0) ITEM8 ;Data will be restored by the install "RTN","ONCPRE34",6,0) K ^ONCO(160.16) "RTN","ONCPRE34",7,0) ; "RTN","ONCPRE34",8,0) MISC1 ;Delete HISTOLOGY (ICD-O-2) (165.5,22) to remove AH23 cross-reference "RTN","ONCPRE34",9,0) ;It will be re-established by the install "RTN","ONCPRE34",10,0) S DIK="^DD(165.5,",DA=22,DA(1)=165.5 D ^DIK "RTN","ONCPRE34",11,0) ; "RTN","ONCPRE34",12,0) CU ;Cleanup extraneous (2.2) nodes "RTN","ONCPRE34",13,0) S CNT=0 F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D "RTN","ONCPRE34",14,0) .S CNT=CNT+1 I CNT#100=0 W "." "RTN","ONCPRE34",15,0) .I $G(^ONCO(165.5,IEN,2.2))="^^" K ^ONCO(165.5,IEN,2.2) "RTN","ONCPRE34",16,0) ; "RTN","ONCPRE34",17,0) ;Modify NAME (164.1,.01) of ICD-O-2 MORPHOLOGY entry 9764/1 "RTN","ONCPRE34",18,0) S DR=".01///IMMUNOPROLIFERATIVE SMALL INTESTINAL" "RTN","ONCPRE34",19,0) S DIE="^ONCO(164.1," "RTN","ONCPRE34",20,0) S DA=97641 D ^DIE "RTN","ONCPSD") 0^45^B3660314 "RTN","ONCPSD",1,0) ONCPSD ;HIRMFO/GWB - STAGE OF DISEASE AT DIAGNOSIS PRINT;9/24/97 "RTN","ONCPSD",2,0) ;;2.11;ONCOLOGY;**15,19,22,28,34**;Mar 07, 1995 "RTN","ONCPSD",3,0) PRT N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPSD",4,0) S DIC="^ONCO(165.5," "RTN","ONCPSD",5,0) S DR="29;30;30.1;31;33;32;34;34.1;34.2;35;37;89.1;38;88;19;89;39;137" "RTN","ONCPSD",6,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPSD",7,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1) "RTN","ONCPSD",8,0) W !," Tumor Size....: ",ONC(165.5,D0,29) "RTN","ONCPSD",9,0) W !," Extension.....: ",ONC(165.5,D0,30) "RTN","ONCPSD",10,0) W:TOP=67619 !," Path Extension: ",ONC(165.5,D0,30.1) ;Prostate "RTN","ONCPSD",11,0) W !," Lymph Nodes...: ",ONC(165.5,D0,31) "RTN","ONCPSD",12,0) W !," Nodes Examined: ",ONC(165.5,D0,33) "RTN","ONCPSD",13,0) W !," Nodes Positive: ",ONC(165.5,D0,32) "RTN","ONCPSD",14,0) W !," Metastasis #1.: ",ONC(165.5,D0,34) "RTN","ONCPSD",15,0) W !," Metastasis #2.: ",ONC(165.5,D0,34.1) "RTN","ONCPSD",16,0) W !," Metastasis #3.: ",ONC(165.5,D0,34.2) "RTN","ONCPSD",17,0) W !," Summary Stage.: ",ONC(165.5,D0,35) "RTN","ONCPSD",18,0) W:TOP'=67619 ! "RTN","ONCPSD",19,0) W !," Clinical Staging",?22,"TNM edition: ",$$TNMED^ONCOU55(D0),?41,"Pathologic Staging" "RTN","ONCPSD",20,0) W !," ----------------",?41,"------------------" "RTN","ONCPSD",21,0) W !," TNM........: ",ONC(165.5,D0,37),?41,"TNM........: ",ONC(165.5,D0,89.1) "RTN","ONCPSD",22,0) W !," Stage Group: ",ONC(165.5,D0,38),?41,"Stage Group: ",ONC(165.5,D0,88) "RTN","ONCPSD",23,0) W !," Staged By..: ",ONC(165.5,D0,19),?41,"Staged By..: ",ONC(165.5,D0,89) "RTN","ONCPSD",24,0) W !!," Other Stage: ",ONC(165.5,D0,39),?41,"1st Positive Biopsy: ",$E(ONC(165.5,D0,137),1,6)_$E(ONC(165.5,D0,137),9,10) "RTN","ONCPSD",25,0) W !,DASHES "RTN","ONCPSD",26,0) Q "RTN","ONCPSD",27,0) TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS2971231,CC=4 D "RTN","ONCPTX",6,0) .S CCTXT=$S(CC=1:"Dx here & 1st rx here",2:"Dx ew, 1st rx here",1:CC) "RTN","ONCPTX",7,0) .W !," **NOTE** CLASS OF CASE: 4 Dx or 1st rx before ref date" "RTN","ONCPTX",8,0) .W !," The ""@FACILITY"" (AT THIS FACILITY) fields will be stuffed to" "RTN","ONCPTX",9,0) .W !," match the primary treatment fields." "RTN","ONCPTX",10,0) .W !,DASHES "RTN","ONCPTX",11,0) I DATEDX>2971231,CC=0!(CC=3)!(CC=6) D "RTN","ONCPTX",12,0) .S CCTXT=$S(CC=0:"0 Dx here, 1st rx ew",CC=3:"3 Dx ew, 1st rx ew",CC=6:"6 Dx & [1st] rx in staff MD office",1:CC) "RTN","ONCPTX",13,0) .W !," **NOTE** CLASS OF CASE: ",CCTXT "RTN","ONCPTX",14,0) .W !," The ""@FACILITY"" (AT THIS FACILITY) fields will be stuffed with 0 (None)." "RTN","ONCPTX",15,0) .W !,DASHES "RTN","ONCPTX",16,0) K CC,CCTXT "RTN","ONCPTX",17,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",18,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",19,0) S DR="58.1;58.3;58.4;58.5" "RTN","ONCPTX",20,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",21,0) W !," DIAGNOSTIC, STAGING, OR PALLIATIVE PROCEDURES" "RTN","ONCPTX",22,0) W !," ---------------------------------------------" "RTN","ONCPTX",23,0) S TXT=ONC(165.5,D0,58.1),LEN=40 D TXT "RTN","ONCPTX",24,0) W !," Dx/Staging/Palliative Proc..: ",$E(ONC(165.5,D0,58.3),1,6)_$E(ONC(165.5,D0,58.3),9,10),?40,TXT1 "RTN","ONCPTX",25,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",26,0) S TXT=ONC(165.5,D0,58.4),LEN=40 D TXT "RTN","ONCPTX",27,0) I DATEDX>2971231 W !," Dx/Staging/Pall @facility...: ",$E(ONC(165.5,D0,58.5),1,6)_$E(ONC(165.5,D0,58.5),9,10),?40,TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",28,0) W !,DASHES "RTN","ONCPTX",29,0) Q "RTN","ONCPTX",30,0) CDS D FST^ONCOAIP "RTN","ONCPTX",31,0) W !," SURGERY" "RTN","ONCPTX",32,0) W !," -------" "RTN","ONCPTX",33,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",34,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",35,0) S DR="50;58;58.2;74;59;23;50.1;138;138.2;139;139.2;140;50.2;50.3;138.1;138.3;139.1;139.3;140.1" "RTN","ONCPTX",36,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",37,0) S TXT=ONC(165.5,D0,58.2),LEN=40 D TXT "RTN","ONCPTX",38,0) W !," Surgery of primary site.....: ",$E(ONC(165.5,D0,50),1,6)_$E(ONC(165.5,D0,50),9,10),?40,TXT1 "RTN","ONCPTX",39,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",40,0) S TXT=ONC(165.5,D0,50.1),LEN=50 D TXT "RTN","ONCPTX",41,0) W !," Surgery hospital............: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",42,0) S TXT=ONC(165.5,D0,74),LEN=50 D TXT "RTN","ONCPTX",43,0) I DATEDX>2951231 W !," Surgical approach...........: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",44,0) S TXT=ONC(165.5,D0,59),LEN=50 D TXT "RTN","ONCPTX",45,0) W !," Surgical margins............: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",46,0) S TXT=ONC(165.5,D0,50.2),LEN=40 D TXT "RTN","ONCPTX",47,0) I DATEDX>2971231 W !," Surg primary site @facility.: ",$E(ONC(165.5,D0,50.3),1,6)_$E(ONC(165.5,D0,50.3),9,10),?40,TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",48,0) S TXT=ONC(165.5,D0,138),LEN=40 D TXT "RTN","ONCPTX",49,0) I DATEDX>2971231 W !," Scope of lymph node surgery.: ",$E(ONC(165.5,D0,138.2),1,6)_$E(ONC(165.5,D0,138.2),9,10),?40,TXT1 W:TXT2'="" !,?40,TXT2 "RTN","ONCPTX",50,0) S TXT=ONC(165.5,D0,140),LEN=50 D TXT "RTN","ONCPTX",51,0) I DATEDX>2971231 W !," Number of nodes removed.....: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",52,0) S TXT=ONC(165.5,D0,138.1),LEN=40 D TXT "RTN","ONCPTX",53,0) I DATEDX>2971231 W !," Scope of ln surg @facility..: ",$E(ONC(165.5,D0,138.3),1,6)_$E(ONC(165.5,D0,138.3),9,10),?40,TXT1 W:TXT2'="" !,?40,TXT2 "RTN","ONCPTX",54,0) I DATEDX>2971231 W !," Num nodes removed @facility.: ",ONC(165.5,D0,140.1) "RTN","ONCPTX",55,0) S TXT=ONC(165.5,D0,139),LEN=40 D TXT "RTN","ONCPTX",56,0) I DATEDX>2971231 W !," Surgery of other sites/nodes: ",$E(ONC(165.5,D0,139.2),1,6)_$E(ONC(165.5,D0,139.2),9,10),?40,TXT1 W:TXT2'="" !,?40,TXT2 "RTN","ONCPTX",57,0) S TXT=ONC(165.5,D0,139.1),LEN=40 D TXT "RTN","ONCPTX",58,0) I DATEDX>2971231 W !," Surg oth site/node @facility: ",$E(ONC(165.5,D0,139.3),1,6)_$E(ONC(165.5,D0,139.3),9,10),?40,TXT1 W:TXT2'="" !,?40,TXT2 "RTN","ONCPTX",59,0) S TXT=ONC(165.5,D0,23),LEN=50 D TXT "RTN","ONCPTX",60,0) I DATEDX>2951231 W !," Reconstruction/restoration..: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",61,0) W !," Reason for no surgery.......: "_ONC(165.5,DA,58) "RTN","ONCPTX",62,0) W !,DASHES "RTN","ONCPTX",63,0) Q "RTN","ONCPTX",64,0) RAD1 D FST^ONCOAIP "RTN","ONCPTX",65,0) W !," RADIATION" "RTN","ONCPTX",66,0) W !," ---------" "RTN","ONCPTX",67,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",68,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",69,0) S DR="51.2;51;51.1;363;51.3;75" "RTN","ONCPTX",70,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",71,0) W !," Radiation...................: ",ONC(165.5,DA,51),?44,ONC(165.5,DA,51.2) "RTN","ONCPTX",72,0) S TXT=ONC(165.5,D0,51.1),LEN=49 D TXT "RTN","ONCPTX",73,0) W !," Radiation hospital..........: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",74,0) W !," Regional treatment modality.: ",ONC(165.5,DA,363) "RTN","ONCPTX",75,0) W !," Radiation/surgery sequence..: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",76,0) I DATEDX>2951231 W !," Reason for no radiation.....: ",ONC(165.5,DA,75) "RTN","ONCPTX",77,0) W !,DASHES "RTN","ONCPTX",78,0) Q "RTN","ONCPTX",79,0) RAD2 D FST^ONCOAIP "RTN","ONCPTX",80,0) W !," RADIATION" "RTN","ONCPTX",81,0) W !," ---------" "RTN","ONCPTX",82,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",83,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",84,0) S DR="51;51.1;51.2;51.3;51.4;51.5;56;75;125;126;127;128;129;130;132;363;442" "RTN","ONCPTX",85,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",86,0) W !," Radiation...................: ",ONC(165.5,DA,51),?44,ONC(165.5,DA,51.2) "RTN","ONCPTX",87,0) S TXT=ONC(165.5,D0,51.1),LEN=49 D TXT "RTN","ONCPTX",88,0) W !," Radiation hospital..........: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",89,0) W !," Regional dose:cGy...........: ",ONC(165.5,DA,442) "RTN","ONCPTX",90,0) W !," Number of treatments........: ",ONC(165.5,DA,56) "RTN","ONCPTX",91,0) W !," Radiation treatment volume..: ",ONC(165.5,DA,125) "RTN","ONCPTX",92,0) W !," Location of radiation.......: ",ONC(165.5,DA,126) "RTN","ONCPTX",93,0) W !," Intent of radiation.........: ",ONC(165.5,DA,127) "RTN","ONCPTX",94,0) W !," Regional treatment modality.: ",ONC(165.5,DA,363) "RTN","ONCPTX",95,0) W !," Radiation/surgery sequence..: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",96,0) W !," Radiation completion status.: ",ONC(165.5,DA,128) "RTN","ONCPTX",97,0) W !," Radiation local control stat: ",ONC(165.5,DA,132) "RTN","ONCPTX",98,0) W !," Radiation auxiliary volume..: ",ONC(165.5,DA,130),?44,ONC(165.5,DA,129) "RTN","ONCPTX",99,0) I DATEDX>2971231 W !," Radiation @facility.........: ",ONC(165.5,DA,51.5),?44,ONC(165.5,DA,51.4) "RTN","ONCPTX",100,0) W !," Reason for no radiation.....: ",ONC(165.5,DA,75) "RTN","ONCPTX",101,0) W !,DASHES "RTN","ONCPTX",102,0) Q "RTN","ONCPTX",103,0) ; "RTN","ONCPTX",104,0) CNS D FST^ONCOAIP "RTN","ONCPTX",105,0) W !," RADIATION THERAPY TO CNS" "RTN","ONCPTX",106,0) W !," ------------------------" "RTN","ONCPTX",107,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",108,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",109,0) S DR="52;52.1;52.2" "RTN","ONCPTX",110,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",111,0) W !," Radiation therapy/CNS.......: ",ONC(165.5,DA,52),?44,ONC(165.5,DA,52.2) "RTN","ONCPTX",112,0) S TXT=ONC(165.5,D0,52.1),LEN=49 D TXT "RTN","ONCPTX",113,0) W !," Radiation therapy/CNS hosp..: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",114,0) W !,DASHES "RTN","ONCPTX",115,0) Q "RTN","ONCPTX",116,0) ; "RTN","ONCPTX",117,0) CHE D FST^ONCOAIP "RTN","ONCPTX",118,0) W !," CHEMOTHERAPY" "RTN","ONCPTX",119,0) W !," ------------" "RTN","ONCPTX",120,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",121,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",122,0) S DR="53;53.1;53.2;53.3;53.4;76" "RTN","ONCPTX",123,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",124,0) W !," Chemotherapy................: ",ONC(165.5,DA,53),?44,ONC(165.5,DA,53.2) "RTN","ONCPTX",125,0) S TXT=ONC(165.5,D0,53.1),LEN=49 D TXT "RTN","ONCPTX",126,0) W !," Chemotherapy hospital.......: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",127,0) I DATEDX>2971231 W !," Chemotherapy @facility......: ",ONC(165.5,DA,53.4),?44,ONC(165.5,DA,53.3) "RTN","ONCPTX",128,0) I DATEDX>2951231 W !," Reason for no chemotherapy..: "_ONC(165.5,DA,76) "RTN","ONCPTX",129,0) W !,DASHES "RTN","ONCPTX",130,0) Q "RTN","ONCPTX",131,0) HOR D FST^ONCOAIP "RTN","ONCPTX",132,0) W !," HORMONE THERAPY" "RTN","ONCPTX",133,0) W !," ---------------" "RTN","ONCPTX",134,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",135,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",136,0) S DR="54;54.1;54.2;54.3;54.4;77" "RTN","ONCPTX",137,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",138,0) W !," Hormone therapy.............: ",ONC(165.5,DA,54),?44,ONC(165.5,DA,54.2) "RTN","ONCPTX",139,0) S TXT=ONC(165.5,D0,54.1),LEN=49 D TXT "RTN","ONCPTX",140,0) W !," Hormone therapy hospital....: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",141,0) I DATEDX>2971231 W !," Hormone therapy @facility...: ",ONC(165.5,DA,54.4),?44,ONC(165.5,DA,54.3) "RTN","ONCPTX",142,0) I DATEDX>2951231 W !," Reason for no hormone tpy...: "_ONC(165.5,DA,77) "RTN","ONCPTX",143,0) W !,DASHES "RTN","ONCPTX",144,0) Q "RTN","ONCPTX",145,0) IMM D FST^ONCOAIP "RTN","ONCPTX",146,0) W !," IMMUNOTHERAPY" "RTN","ONCPTX",147,0) W !," -------------" "RTN","ONCPTX",148,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",149,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",150,0) S DR="55;55.1;55.2;55.3;55.4" "RTN","ONCPTX",151,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",152,0) W !," Immunotherapy...............: ",ONC(165.5,DA,55),?44,ONC(165.5,DA,55.2) "RTN","ONCPTX",153,0) S TXT=ONC(165.5,D0,55.1),LEN=49 D TXT "RTN","ONCPTX",154,0) W !," Immunotherapy hospital......: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",155,0) I DATEDX>2971231 W !," Immunotherapy @facility.....: ",ONC(165.5,DA,55.4),?44,ONC(165.5,DA,55.3) "RTN","ONCPTX",156,0) W !,DASHES "RTN","ONCPTX",157,0) Q "RTN","ONCPTX",158,0) OTH D FST^ONCOAIP "RTN","ONCPTX",159,0) W !," OTHER TREATMENT" "RTN","ONCPTX",160,0) W !," ---------------" "RTN","ONCPTX",161,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",162,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",163,0) S DR="57;57.1;57.2;57.3;57.4" "RTN","ONCPTX",164,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",165,0) W !," Other treatment.............: ",ONC(165.5,DA,57),?44,ONC(165.5,DA,57.2) "RTN","ONCPTX",166,0) S TXT=ONC(165.5,D0,57.1),LEN=49 D TXT "RTN","ONCPTX",167,0) W !," Other treatment hospital....: ",TXT1 W:TXT2'="" !,?31,TXT2 "RTN","ONCPTX",168,0) I DATEDX>2971231 W !," Other treatment @facility...: ",ONC(165.5,DA,57.4),?44,ONC(165.5,DA,57.3) "RTN","ONCPTX",169,0) W !,DASHES "RTN","ONCPTX",170,0) Q "RTN","ONCPTX",171,0) PRO D FST^ONCOAIP "RTN","ONCPTX",172,0) W !," PROTOCOL ELIGIBILITY/PARTICIPATION" "RTN","ONCPTX",173,0) W !," ----------------------------------" "RTN","ONCPTX",174,0) N DI,DIC,DR,DA,DIQ K ONC "RTN","ONCPTX",175,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",176,0) S DR="346;133;560" "RTN","ONCPTX",177,0) S DA=D0,DIQ="ONC(" D EN^DIQ1 "RTN","ONCPTX",178,0) W !," Protocol eligibility status.: "_ONC(165.5,DA,346) "RTN","ONCPTX",179,0) W !," Protocol participation......: "_ONC(165.5,DA,560) "RTN","ONCPTX",180,0) W !," Year put on protocol........: "_ONC(165.5,DA,133) "RTN","ONCPTX",181,0) W !,DASHES "RTN","ONCPTX",182,0) Q "RTN","ONCPTX",183,0) TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS2971231 D "RTN","ONCTXSM",15,0) .W !," Dx/Staging/Pall @facility...: ",$E(ONC(165.5,D0,58.5),1,6)_$E(ONC(165.5,D0,58.5),9,10),?40,TXT1 "RTN","ONCTXSM",16,0) .W:TXT2'="" !,?43,TXT2 "RTN","ONCTXSM",17,0) S TXT=ONC(165.5,D0,58.2),LEN=40 D TXT^ONCPTX "RTN","ONCTXSM",18,0) W !," Surgery of primary site.....: ",$E(ONC(165.5,D0,50),1,6)_$E(ONC(165.5,D0,50),9,10),?40,TXT1 "RTN","ONCTXSM",19,0) W:TXT2'="" !,?43,TXT2 "RTN","ONCTXSM",20,0) S TXT=ONC(165.5,D0,50.2),LEN=40 D TXT^ONCPTX "RTN","ONCTXSM",21,0) I DATEDX>2971231 D "RTN","ONCTXSM",22,0) .W !," Surg primary site @facility.: ",$E(ONC(165.5,D0,50.3),1,6)_$E(ONC(165.5,D0,50.3),9,10),?40,TXT1 "RTN","ONCTXSM",23,0) .W:TXT2'="" !,?43,TXT2 "RTN","ONCTXSM",24,0) W !," Radiation...................: ",$E(ONC(165.5,D0,51),1,6)_$E(ONC(165.5,D0,51),9,10),?40,ONC(165.5,D0,51.2) "RTN","ONCTXSM",25,0) W:DATEDX>2971231 !," Radiation @facility.........: ",$E(ONC(165.5,D0,51.5),1,6)_$E(ONC(165.5,D0,51.5),9,10),?40,ONC(165.5,DA,51.4) "RTN","ONCTXSM",26,0) W:DATEDX<2960000 !," Radiation therapy to CNS....: ",$E(ONC(165.5,D0,52),1,6)_$E(ONC(165.5,D0,52),9,10),?40,ONC(165.5,D0,52.2) "RTN","ONCTXSM",27,0) W !," Chemotherapy................: ",$E(ONC(165.5,D0,53),1,6)_$E(ONC(165.5,D0,53),9,10),?40,ONC(165.5,D0,53.2) "RTN","ONCTXSM",28,0) W:DATEDX>2971231 !," Chemotherapy @facility......: ",$E(ONC(165.5,D0,53.4),1,6)_$E(ONC(165.5,D0,53.4),9,10),?40,ONC(165.5,DA,53.3) "RTN","ONCTXSM",29,0) W !," Hormone therapy.............: ",$E(ONC(165.5,D0,54),1,6)_$E(ONC(165.5,D0,54),9,10),?40,ONC(165.5,D0,54.2) "RTN","ONCTXSM",30,0) W:DATEDX>2971231 !," Hormone therapy @facility...: ",$E(ONC(165.5,D0,54.4),1,6)_$E(ONC(165.5,D0,54.4),9,10),?40,ONC(165.5,DA,54.3) "RTN","ONCTXSM",31,0) W !," Immunotherapy...............: ",$E(ONC(165.5,D0,55),1,6)_$E(ONC(165.5,D0,55),9,10),?40,ONC(165.5,D0,55.2) "RTN","ONCTXSM",32,0) W:DATEDX>2971231 !," Immunotherapy @facility.....: ",$E(ONC(165.5,D0,55.4),1,6)_$E(ONC(165.5,D0,55.4),9,10),?40,ONC(165.5,DA,55.3) "RTN","ONCTXSM",33,0) W !," Other treatment.............: ",$E(ONC(165.5,D0,57),1,6)_$E(ONC(165.5,D0,57),9,10),?40,ONC(165.5,D0,57.2) "RTN","ONCTXSM",34,0) W:DATEDX>2971231 !," Other treatment @facility...: ",$E(ONC(165.5,D0,57.4),1,6)_$E(ONC(165.5,D0,57.4),9,10),?40,ONC(165.5,DA,57.3) "RTN","ONCTXSM",35,0) W !,DASHES "RTN","ONCTXSM",36,0) K TXT,TXT1,TXT2 "RTN","ONCTXSM",37,0) K DIR S DIR(0)="E" D ^DIR I Y=0 S Y="@0" K SAVEY Q "RTN","ONCTXSM",38,0) S Y=SAVEY K SAVEY "RTN","ONCTXSM",39,0) Q "RTN","ONCTXSM",40,0) CHECKCC ;Check the class of case - if 0,3,6 stuff @FACILITY fields with zeroes "RTN","ONCTXSM",41,0) S DATEDX=$P($G(^ONCO(165.5,DA,0)),"^",16) I DATEDX<2980000 Q "RTN","ONCTXSM",42,0) S COC=$P($G(^ONCO(165.5,D0,0)),"^",4) "RTN","ONCTXSM",43,0) I COC=0!(COC=3)!(COC=6) D "RTN","ONCTXSM",44,0) .S $P(^ONCO(165.5,DA,3.1),"^",11)="00" "RTN","ONCTXSM",45,0) .F PP=7,9,10 S $P(^ONCO(165.5,DA,3.1),"^",PP)=1 "RTN","ONCTXSM",46,0) .F PP=12:2:20 S $P(^ONCO(165.5,DA,3.1),"^",PP)=0 "RTN","ONCTXSM",47,0) .F PP=8,13:2:25 S $P(^ONCO(165.5,DA,3.1),"^",PP)="0000000" "RTN","ONCTXSM",48,0) .Q "RTN","ONCTXSM",49,0) I COC=2!(COC=3) D "RTN","ONCTXSM",50,0) .S $P(^ONCO(165.5,DA,3.1),"^",5)="00" "RTN","ONCTXSM",51,0) .S $P(^ONCO(165.5,DA,3.1),"^",6)="0000000" "RTN","ONCTXSM",52,0) .Q "RTN","ONCTXSM",53,0) K PP Q "RTN","ONCTXSM",54,0) DEFAULT ;Set default(s) for treatment fields Reconstr/Restoration (#23) "RTN","ONCTXSM",55,0) S RRDF="",SURGPS=$P($G(^ONCO(165.5,D0,3)),U,38),CONTFLG=0 "RTN","ONCTXSM",56,0) S SITE=$P($G(^ONCO(165.5,D0,0)),U,1) "RTN","ONCTXSM",57,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",58,0) I (SITE=35)!($$LEUKEMIA^ONCOAIP2(D0))!((SITE>65)&(SITE<70)) D Q "RTN","ONCTXSM",59,0) .S RRDF="Unknown; not stated; death certificate ONLY" "RTN","ONCTXSM",60,0) .I SCG=67141!(SCG=67250)!(SCG=67422)!(SCG=67700)!(SCG=67739) S RRDF="NA" "RTN","ONCTXSM",61,0) I DATEDX<2980000,SURGPS="00" S CONTFLG=1 "RTN","ONCTXSM",62,0) I DATEDX>2971231,SURGPS=1 S CONTFLG=1 "RTN","ONCTXSM",63,0) I CONTFLG=0 Q "RTN","ONCTXSM",64,0) S RRDF="No reconstruction/restoration" "RTN","ONCTXSM",65,0) I SCG=67141!(SCG=67250)!(SCG=67422)!(SCG=67700)!(SCG=67739) S RRDF="NA" "RTN","ONCTXSM",66,0) Q "RTN","ONCTXSM",67,0) RRDEFIT ;Special default code for field #23 called from input transform "RTN","ONCTXSM",68,0) I X="No reconstruction/restoration" S X=0 Q "RTN","ONCTXSM",69,0) I X="NA"!(X["Unknown; not stated") S X=9 Q "RTN","ONCTXSM",70,0) Q "RTN","ONCTXSM",71,0) SPSDFIT ;Special default code for field #50.2 called from input transform "RTN","ONCTXSM",72,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",73,0) I X?1.2N Q "RTN","ONCTXSM",74,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SPS",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",75,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SPS",SUB,0)),"^",1) S DFCODE=SUB Q "RTN","ONCTXSM",76,0) S X=DFCODE,SPSFLG=1 Q "RTN","ONCTXSM",77,0) SCPDFIT ;Special default code for field #138.1 called from input transform "RTN","ONCTXSM",78,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",79,0) I X?1N Q "RTN","ONCTXSM",80,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SC5",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",81,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SC5",SUB,0)),"^",1) S DFCODE=SUB Q "RTN","ONCTXSM",82,0) S X=DFCODE,SCPFLG=1 Q "RTN","ONCTXSM",83,0) NUMDFIT ;Special default code for field #140.1 called from input transform "RTN","ONCTXSM",84,0) S X=+X "RTN","ONCTXSM",85,0) Q "RTN","ONCTXSM",86,0) SOSDFIT ;Special default code for field #139.1 called from input transform "RTN","ONCTXSM",87,0) D SETVARS I TPG="" Q "RTN","ONCTXSM",88,0) I X?1.2N Q "RTN","ONCTXSM",89,0) F SUB=0:0 S SUB=$O(^ONCO(164,SCG,"SO5",SUB)) Q:SUB'>0!(DFCODE'="") D "RTN","ONCTXSM",90,0) .I DFTXT=$P($G(^ONCO(164,SCG,"SO5",SUB,0)),"^",1) S DFCODE=SUB Q "RTN","ONCTXSM",91,0) S X=DFCODE,SOSFLG=1 Q "RTN","ONCTXSM",92,0) SETVARS ; "RTN","ONCTXSM",93,0) S SCG="",TPG=$P($G(^ONCO(165.5,D0,2)),U,1) I TPG="" Q "RTN","ONCTXSM",94,0) S SCG=$P($G(^ONCO(164,TPG,0)),U,16) "RTN","ONCTXSM",95,0) S DFTXT=X,DFCODE="" Q "SEC","^DIC",160.16,160.16,0,"AUDIT") @ "SEC","^DIC",160.16,160.16,0,"DD") @ "SEC","^DIC",160.16,160.16,0,"DEL") @ "SEC","^DIC",160.16,160.16,0,"LAYGO") @ "SEC","^DIC",160.16,160.16,0,"RD") @ "SEC","^DIC",160.16,160.16,0,"WR") @ "VER") 8.0^22 "^DD",160,160,55,0) MIDDLE EAST SERVICE^S^Y:Yes;N:No;U:Unknown;^0;25^Q "^DD",160,160,55,21,0) ^.001^1^1^3020718^^^ "^DD",160,160,55,21,1,0) Record if the patient served in the Middle East. "^DD",160,160,55,"DT") 3020718 "^DD",160,160,56,0) SOMALIA SERVICE^S^Y:Yes;N:No;U:Unknown;^0;26^Q "^DD",160,160,56,21,0) ^^1^1^3020718^ "^DD",160,160,56,21,1,0) Record if the patient served in Somalia. "^DD",160,160,56,"DT") 3020718 "^DD",160.1,160.1,4,0) LABORATORY CASEFINDING DATE^D^^0;5^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",160.1,160.1,4,21,0) ^.001^3^3^3020920^^ "^DD",160.1,160.1,4,21,1,0) LABORATORY CASEFINDIND DATE is the "Start Date" value from the previous "^DD",160.1,160.1,4,21,2,0) "Automatic Casefinding-Lab Search" to be used as a "Start Date" default "^DD",160.1,160.1,4,21,3,0) for the next search. "^DD",160.1,160.1,4,"DT") 3020919 "^DD",160.1,160.1,10,0) RADIOLOGY CASEFINDING DATE^D^^0;6^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",160.1,160.1,10,21,0) ^^3^3^3020919^ "^DD",160.1,160.1,10,21,1,0) RADIOLOGY CASEFINDIND DATE is the "Start Date" value from the previous "^DD",160.1,160.1,10,21,2,0) "Automatic Casefinding-Radiology Search" to be used as a "Start Date" "^DD",160.1,160.1,10,21,3,0) default for the next search. "^DD",160.1,160.1,10,"DT") 3020919 "^DD",160.1,160.1,18,0) PTF CASEFINDING DATE^D^^0;7^S %DT="E" D ^%DT S X=Y K:Y<1 X "^DD",160.1,160.1,18,21,0) ^.001^3^3^3020920^^ "^DD",160.1,160.1,18,21,1,0) PTF CASEFINDING DATE is the "Start Date" value from the previous "^DD",160.1,160.1,18,21,2,0) "Automatic Casefinding-PTF Search" to be used as a "Start Date" "^DD",160.1,160.1,18,21,3,0) default for the next search. "^DD",160.1,160.1,18,"DT") 3020919 "^DD",160.16,160.16,0) FIELD^^2^3 "^DD",160.16,160.16,0,"DDA") N "^DD",160.16,160.16,0,"DT") 2971028 "^DD",160.16,160.16,0,"IX","B",160.16,.01) "^DD",160.16,160.16,0,"NM","ONCOLOGY DATA EXTRACT FORMAT") "^DD",160.16,160.16,0,"VRPK") ONC "^DD",160.16,160.16,.01,0) NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X "^DD",160.16,160.16,.01,1,0) ^.1 "^DD",160.16,160.16,.01,1,1,0) 160.16^B "^DD",160.16,160.16,.01,1,1,1) S ^ONCO(160.16,"B",$E(X,1,30),DA)="" "^DD",160.16,160.16,.01,1,1,2) K ^ONCO(160.16,"B",$E(X,1,30),DA) "^DD",160.16,160.16,.01,3) Answer must be 3-30 characters in length. "^DD",160.16,160.16,.01,21,0) 1 "^DD",160.16,160.16,.01,21,1,0) This contains the name of the extract. "^DD",160.16,160.16,.01,"DT") 2970224 "^DD",160.16,160.16,1,0) FIELD^160.161I^^FIELD;0 "^DD",160.16,160.16,1,21,0) ^.001^1^1^3000316^^ "^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) ^.001^1^1^3000316^^ "^DD",160.16,160.161,.01,21,1,0) The starting position do the field within the extract. "^DD",160.16,160.161,.01,"DT") 2970731 "^DD",160.16,160.161,1,0) LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.16,160.161,1,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.16,160.161,1,21,0) ^^1^1^2970731^^^ "^DD",160.16,160.161,1,21,1,0) This contains the character length of the field. "^DD",160.16,160.161,1,"DT") 2970430 "^DD",160.16,160.161,2,0) ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X "^DD",160.16,160.161,2,3) Type a Number between 1 and 999999, 0 Decimal Digits "^DD",160.16,160.161,2,21,0) ^^1^1^2970731^^^ "^DD",160.16,160.161,2,21,1,0) This is the ending position of the field data. "^DD",160.16,160.161,2,"DT") 2970430 "^DD",160.16,160.161,3,0) NAME^RF^^0;4^K:$L(X)>80!($L(X)<1) X "^DD",160.16,160.161,3,1,0) ^.1 "^DD",160.16,160.161,3,1,1,0) 160.161^C "^DD",160.16,160.161,3,1,1,1) S ^ONCO(160.16,DA(1),"FIELD","C",$E(X,1,30),DA)="" "^DD",160.16,160.161,3,1,1,2) K ^ONCO(160.16,DA(1),"FIELD","C",$E(X,1,30),DA) "^DD",160.16,160.161,3,1,1,"%D",0) ^^1^1^2970430^ "^DD",160.16,160.161,3,1,1,"%D",1,0) Name cross reference. "^DD",160.16,160.161,3,1,1,"DT") 2970430 "^DD",160.16,160.161,3,3) Answer must be 1-80 characters in length. "^DD",160.16,160.161,3,21,0) ^^1^1^2970731^ "^DD",160.16,160.161,3,21,1,0) This is the name given to the field within the extract. "^DD",160.16,160.161,3,"DT") 2970430 "^DD",160.16,160.161,4,0) ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X "^DD",160.16,160.161,4,3) Answer must be 1-250 characters in length. "^DD",160.16,160.161,4,21,0) ^^12^12^2970731^ "^DD",160.16,160.161,4,21,1,0) Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE "^" "^DD",160.16,160.161,4,21,2,0) (UP-ARROW). Fileman will not except and up-arrow. Use "~" tilde to "^DD",160.16,160.161,4,21,3,0) replace all up-arrows. The system has been coded to convert the tilde to "^DD",160.16,160.161,4,21,4,0) an up-arrow when it executes the string. "^DD",160.16,160.161,4,21,5,0) For example: "^DD",160.16,160.161,4,21,6,0) S ACDANS=123 "^DD",160.16,160.161,4,21,7,0) S ACDANS=$$FUNCT~ROUTINE(IEN) "^DD",160.16,160.161,4,21,8,0) "^DD",160.16,160.161,4,21,9,0) Preset Varables: "^DD",160.16,160.161,4,21,10,0) IEN=Internal Entry number of the entry in file 165.5 "^DD",160.16,160.161,4,21,11,0) ACD160=Internal Entry number of the entry in file 160 that is "^DD",160.16,160.161,4,21,12,0) link to the entry in file 165.5 "^DD",160.16,160.161,4,"DT") 2970729 "^DD",160.16,160.161,5,0) DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X "^DD",160.16,160.161,5,3) Answer must be 1-200 characters in length. "^DD",160.16,160.161,5,21,0) ^^5^5^2970731^ "^DD",160.16,160.161,5,21,1,0) The default value of a field that is has no data stored. "^DD",160.16,160.161,5,21,2,0) Values can be: "^DD",160.16,160.161,5,21,3,0) BLANK = " " "^DD",160.16,160.161,5,21,4,0) ZERO = "0" "^DD",160.16,160.161,5,21,5,0) NINE = "9" "^DD",160.16,160.161,5,"DT") 2970509 "^DD",160.16,160.161,6,0) FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X "^DD",160.16,160.161,6,3) Answer must be 1-200 characters in length. "^DD",160.16,160.161,6,21,0) ^^12^12^2970731^ "^DD",160.16,160.161,6,21,1,0) The filler that is stuffed in front of or behind the data if it is not the "^DD",160.16,160.161,6,21,2,0) max length. This element is devided into two pieces delimeted by a comma. "^DD",160.16,160.161,6,21,3,0) The first part tell where the fill is to go. Second part tells waht to "^DD",160.16,160.161,6,21,4,0) fill with. "R" means to fill on the right side of the value and "L" means "^DD",160.16,160.161,6,21,5,0) to fill on the left. The fill values are the same as in DEFAULT "^DD",160.16,160.161,6,21,6,0) "^DD",160.16,160.161,6,21,7,0) Example: L,BLANK = Fill the field with blanks then add the value to the "^DD",160.16,160.161,6,21,8,0) remainder "^DD",160.16,160.161,6,21,9,0) "^DD",160.16,160.161,6,21,10,0) BLANK = " " "^DD",160.16,160.161,6,21,11,0) ZERO = "0" "^DD",160.16,160.161,6,21,12,0) NINE = "9" "^DD",160.16,160.161,6,"DT") 2970509 "^DD",160.16,160.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",165.5,165.5,22,0) HISTOLOGY (ICD-O-2)^*P164.1'X^ONCO(164.1,^2;3^S DIC("S")="I ($P(^ONCO(165.5,DA,0),U,16)<2980101)!((Y<96002)!(Y>96423))&($P(^ONCO(165.5,DA,0),U,16)<3010101)" D ^DIC K DIC S DIC=DIE,X=+Y D HIST23^ONCOHICD K:Y<0 X "^DD",165.5,165.5,22,.1) "^DD",165.5,165.5,22,1,0) ^.1^^-1 "^DD",165.5,165.5,22,1,1,0) 165.5^AH "^DD",165.5,165.5,22,1,1,1) S ^ONCO(165.5,"AH",$E(X,1,30),DA)="" "^DD",165.5,165.5,22,1,1,2) K ^ONCO(165.5,"AH",$E(X,1,30),DA) "^DD",165.5,165.5,22,1,1,3) DO NOT DELETE "^DD",165.5,165.5,22,1,1,"%D",0) ^^2^2^2910725^ "^DD",165.5,165.5,22,1,1,"%D",1,0) Cross Reference Histology, (pointer) used in hard-coded routines as "^DD",165.5,165.5,22,1,1,"%D",2,0) FM will not use this index being a pointer. "^DD",165.5,165.5,22,1,1,"DT") 2910725 "^DD",165.5,165.5,22,1,2,0) 165.5^AGSS^MUMPS "^DD",165.5,165.5,22,1,2,1) S OB=$E(X,5),OB=$S(OB=2:0,OB=6:7,1:"") S:OB'="" $P(^ONCO(165.5,DA,2),U,17)=OB K OB "^DD",165.5,165.5,22,1,2,2) S GS=$P(^ONCO(165.5,DA,2),U,17) S:'GS!(GS=7) $P(^(2),U,17)="" K GS "^DD",165.5,165.5,22,1,2,3) DO NOT DELETE "^DD",165.5,165.5,22,1,2,"%D",0) ^.101^1^1^3010405^^ "^DD",165.5,165.5,22,1,2,"%D",1,0) Edit check for Histology behavior code and General Summary Stage. "^DD",165.5,165.5,22,1,2,"DT") 2920214 "^DD",165.5,165.5,22,3) Enter the code, e.g. 81203 or 8120/3, or name, e.g. TRANSITIONAL CELL CA. "^DD",165.5,165.5,22,4) S ONCOX=164.1 D HP^ONCOHICD "^DD",165.5,165.5,22,10) "^DD",165.5,165.5,22,12) Codes 9600-9642 are not selectable for 1998 or later cases and this field is not editable at all for 2001 or later cases. "^DD",165.5,165.5,22,12.1) S DIC("S")="I ($P(^ONCO(165.5,DA,0),U,16)<2980101)!((Y<96002)!(Y>96423))&($P(^ONCO(165.5,DA,0),U,16)<3010101)" "^DD",165.5,165.5,22,20,0) ^.3LA^^0 "^DD",165.5,165.5,22,21,0) ^.001^3^3^3010412^^^^ "^DD",165.5,165.5,22,21,1,0) "^DD",165.5,165.5,22,21,2,0) Record the histology using the ICD-O-2 codes. "^DD",165.5,165.5,22,21,3,0) "^DD",165.5,165.5,22,"DT") 3020912 "^DD",165.5,165.5,22.3,0) HISTOLOGY (ICD-O-3)^P169.3'X^ONCO(169.3,^2.2;3^Q "^DD",165.5,165.5,22.3,1,0) ^.1 "^DD",165.5,165.5,22.3,1,1,0) 165.5^AGSS3^MUMPS "^DD",165.5,165.5,22.3,1,1,1) S OB=$E(X,5),OB=$S(OB=2:0,OB=6:7,1:"") S:OB'="" $P(^ONCO(165.5,DA,2),U,17)=OB K OB "^DD",165.5,165.5,22.3,1,1,2) S GS=$P($G(^ONCO(165.5,DA,2)),U,17) S:'GS!(GS=7) $P(^(2),U,17)="" K GS "^DD",165.5,165.5,22.3,1,1,3) DO NOT DELETE "^DD",165.5,165.5,22.3,1,1,"%D",0) ^.101^2^2^3020725^^ "^DD",165.5,165.5,22.3,1,1,"%D",1,0) Cross reference to set the General Summary Stage field for certain "^DD",165.5,165.5,22.3,1,1,"%D",2,0) Histology ICD-O-3 behavior codes. "^DD",165.5,165.5,22.3,1,1,"DT") 3020725 "^DD",165.5,165.5,22.3,3) "^DD",165.5,165.5,22.3,4) D ICDO3^ONCOHICD "^DD",165.5,165.5,22.3,21,0) ^.001^4^4^3010403^^^^ "^DD",165.5,165.5,22.3,21,1,0) "^DD",165.5,165.5,22.3,21,2,0) This field contains the ICD-O-3 morphology for primaries diagnosed after "^DD",165.5,165.5,22.3,21,3,0) 2/1/01. "^DD",165.5,165.5,22.3,21,4,0) "^DD",165.5,165.5,22.3,"DT") 3020725 "^DD",165.5,165.5,29,0) TUMOR SIZE^NJ6,2OX^^2;9^D STIT^ONCOOT "^DD",165.5,165.5,29,.1) "^DD",165.5,165.5,29,2) S Y(0)=Y D STOT^ONCOOT "^DD",165.5,165.5,29,2.1) D STOT^ONCOOT "^DD",165.5,165.5,29,3) Code the exact size of the primary in millimeters (mm). "^DD",165.5,165.5,29,4) "^DD",165.5,165.5,29,10) "^DD",165.5,165.5,29,20,0) ^.3LA^^0 "^DD",165.5,165.5,29,21,0) ^.001^60^60^3020822^^^^ "^DD",165.5,165.5,29,21,1,0) TUMOR SIZE describes the largest dimension of the diameter of the "^DD",165.5,165.5,29,21,2,0) primary tumor in millimeters (mm). "^DD",165.5,165.5,29,21,3,0) "^DD",165.5,165.5,29,21,4,0) Code the exact size of the primary tumor in millimeters (mm). "^DD",165.5,165.5,29,21,5,0) "^DD",165.5,165.5,29,21,6,0) EXCEPTION: "^DD",165.5,165.5,29,21,7,0) For melanomas of the skin (C44.0-C44.9), vulva (C51.0-C51.9), penis "^DD",165.5,165.5,29,21,8,0) (C60.0-C60.9), scrotum (C63.3), and conjunctiva (C69.0): "^DD",165.5,165.5,29,21,9,0) - code the depth of invasion in HUNDRETHS of millimeters. "^DD",165.5,165.5,29,21,10,0) - code 990 for melanomas which are 1 cm (10mm) or greater in depth. "^DD",165.5,165.5,29,21,11,0) "^DD",165.5,165.5,29,21,12,0) Code 998 when the following terms describe tumor involvement in these "^DD",165.5,165.5,29,21,13,0) specific sites: "^DD",165.5,165.5,29,21,14,0) "^DD",165.5,165.5,29,21,15,0) Esophagus (C15.0-C15.9): Entire circumference "^DD",165.5,165.5,29,21,16,0) Stomach (C16.0-C16.9): Diffuse, widespread, 3/4 or more, "^DD",165.5,165.5,29,21,17,0) linitis plastica "^DD",165.5,165.5,29,21,18,0) Colorectal (C18.0-C20.9): Familial/multiple polyposis "^DD",165.5,165.5,29,21,19,0) Lung (C34.0-C34.9): Diffuse, entire lobe of lung "^DD",165.5,165.5,29,21,20,0) Breast (C50.0-C50.9): Inflammatory carcinoma; diffuse, widespread, "^DD",165.5,165.5,29,21,21,0) 3/4 or more of breast "^DD",165.5,165.5,29,21,22,0) "^DD",165.5,165.5,29,21,23,0) Code 999, unknown, if only one size is given for a mixed in situ and "^DD",165.5,165.5,29,21,24,0) invasive tumor. "^DD",165.5,165.5,29,21,25,0) "^DD",165.5,165.5,29,21,26,0) Code 999 if the size of the tumor is unknown or the tumor size is not "^DD",165.5,165.5,29,21,27,0) documented in the patient record. "^DD",165.5,165.5,29,21,28,0) "^DD",165.5,165.5,29,21,29,0) Code 999 for histologies or sites where size in not applicable: "^DD",165.5,165.5,29,21,30,0) "^DD",165.5,165.5,29,21,31,0) Unknown or ill-defined primary (C76.0-C76.8, C80.9) "^DD",165.5,165.5,29,21,32,0) Hematopoietic, reticuloendothelial, immunoproliferative or "^DD",165.5,165.5,29,21,33,0) myeloproliferative disease "^DD",165.5,165.5,29,21,34,0) Multiple myeloma (9732) "^DD",165.5,165.5,29,21,35,0) Letterer-Siwe disease (9754) "^DD",165.5,165.5,29,21,36,0) "^DD",165.5,165.5,29,21,37,0) Use the following list for size conversion when tumor size is described. "^DD",165.5,165.5,29,21,38,0) "^DD",165.5,165.5,29,21,39,0) Fruits Hazel.............020 Money "^DD",165.5,165.5,29,21,40,0) Apple.............070 Hickory...........030 Dime..............010 "^DD",165.5,165.5,29,21,41,0) Apricot...........040 Peanut............010 Dollar, silver....040 "^DD",165.5,165.5,29,21,42,0) Cherry............020 Pecan.............030 Dollar, half......030 "^DD",165.5,165.5,29,21,43,0) Date..............040 Walnut............030 Nickel............020 "^DD",165.5,165.5,29,21,44,0) Fig, dried........040 Vegetables Quarter...........020 "^DD",165.5,165.5,29,21,45,0) Grape.............020 Bean..............010 Penny.............010 "^DD",165.5,165.5,29,21,46,0) Grapefruit........100 Bean, lima........020 Other "^DD",165.5,165.5,29,21,47,0) Kumquat...........050 Pea...............009 Ball, golf........040 "^DD",165.5,165.5,29,21,48,0) Lemon.............080 Pea, split........009 Ball, ping pong...030 "^DD",165.5,165.5,29,21,49,0) Olive.............020 Miscellaneous Food Ball, tennis......060 "^DD",165.5,165.5,29,21,50,0) Orange............090 Doughnut..........090 Baseball..........070 "^DD",165.5,165.5,29,21,51,0) Peach.............060 Egg...............050 Fist..............090 "^DD",165.5,165.5,29,21,52,0) Pear..............090 Egg, bantam.......040 Marble............010 "^DD",165.5,165.5,29,21,53,0) Plum..............030 Egg, goose........070 Match head........010 "^DD",165.5,165.5,29,21,54,0) Tangerine.........060 Egg, hen..........030 Pencil eraser.....010 "^DD",165.5,165.5,29,21,55,0) Nuts Egg, pigeon.......030 1 cm..............010 "^DD",165.5,165.5,29,21,56,0) Almond............030 Egg, robin........020 1 inch............025 "^DD",165.5,165.5,29,21,57,0) Chestnut..........040 Lentil............009 .394 inches.......010 "^DD",165.5,165.5,29,21,58,0) Chestnut, horse...040 Millet............009 Microscopic focus.001 "^DD",165.5,165.5,29,21,59,0) "^DD",165.5,165.5,29,21,60,0) For further information see FORDS page 100. "^DD",165.5,165.5,29,"DT") 3020822 "^DD",165.5,165.5,59,0) SURGICAL MARGINS^NJ1,0OX^^3;28^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X I $D(X) D SMIT^ONCOSUR "^DD",165.5,165.5,59,.1) "^DD",165.5,165.5,59,2) S Y(0)=Y D SMOT^ONCOSUR "^DD",165.5,165.5,59,2.1) D SMOT^ONCOSUR "^DD",165.5,165.5,59,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",165.5,165.5,59,4) D SMHP^ONCOSUR "^DD",165.5,165.5,59,10) "^DD",165.5,165.5,59,20,0) ^.3LA^^0 "^DD",165.5,165.5,59,20,1,0) ACOS-RECOMMENDED "^DD",165.5,165.5,59,21,0) 31^.001^10^10^3020624^^^^ "^DD",165.5,165.5,59,21,1,0) "^DD",165.5,165.5,59,21,2,0) SURGICAL MARGINS (formerly RESIDUAL TUMOR) refers to the primary "^DD",165.5,165.5,59,21,3,0) tumor only, not to metastatic or regional disease. Surgical margins "^DD",165.5,165.5,59,21,4,0) describes the amount of remaining primary tumor AFTER the most "^DD",165.5,165.5,59,21,5,0) definitive resection. Use information only from the operative and "^DD",165.5,165.5,59,21,6,0) pathology reports to evaluate this field. "^DD",165.5,165.5,59,21,7,0) "^DD",165.5,165.5,59,21,8,0) This is a hierarchial code with microscopic confirmation taking "^DD",165.5,165.5,59,21,9,0) precedence over macroscopic. "^DD",165.5,165.5,59,21,10,0) "^DD",165.5,165.5,59,"DT") 2980115 "^DD",165.5,165.5,85,0) PATHOLOGIC T^FXO^^2.1;1^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX="T",STGIND="P" D IN^ONCOTNM "^DD",165.5,165.5,85,2) S Y(0)=Y S ONCOX="T",STGIND="P" D OT^ONCOTNM "^DD",165.5,165.5,85,2.1) S ONCOX="T",STGIND="P" D OT^ONCOTNM "^DD",165.5,165.5,85,3) "^DD",165.5,165.5,85,4) S ONCOX="T",STGIND="P" D HP^ONCOTNM "^DD",165.5,165.5,85,21,0) ^.001^3^3^3020612^^ "^DD",165.5,165.5,85,21,1,0) PATHOLOGIC T evaluates the primary tumor and identifies tumor size "^DD",165.5,165.5,85,21,2,0) and/or extension. "^DD",165.5,165.5,85,21,3,0) "^DD",165.5,165.5,85,"DT") 2961010 "^DIC",160.16,160.16,0) ONCOLOGY DATA EXTRACT FORMAT^160.16 "^DIC",160.16,160.16,0,"GL") ^ONCO(160.16, "^DIC",160.16,160.16,"%D",0) ^^1^1^2990419^^ "^DIC",160.16,160.16,"%D",1,0) This file contains the ONCOLOGY Data Extract Formats. "^DIC",160.16,"B","ONCOLOGY DATA EXTRACT FORMAT",160.16) **END** **END**