Released ONC*2.11*17 SEQ #17 Extracted from mail message **KIDS**:ONC*2.11*17^ **INSTALL NAME** ONC*2.11*17 "BLD",271,0) ONC*2.11*17^ONCOLOGY^0^^y "BLD",271,4,0) ^9.64PA^164.6^3 "BLD",271,4,160,0) 160 "BLD",271,4,160,2,0) ^9.641^160^1 "BLD",271,4,160,2,160,0) ONCOLOGY PATIENT (File-top level) "BLD",271,4,160,2,160,1,0) ^9.6411^19.1^2 "BLD",271,4,160,2,160,1,19,0) ICD CAUSE OF DEATH "BLD",271,4,160,2,160,1,19.1,0) STATE DEATH CERT "BLD",271,4,160,222) y^y^p^^^^n "BLD",271,4,164,0) 164 "BLD",271,4,164,222) n^n^f^^n^^y^r^n "BLD",271,4,164,224) I Y=67670 "BLD",271,4,164.6,0) 164.6 "BLD",271,4,164.6,222) y^y^f^^n^^y^o^n "BLD",271,4,"APDD",160,160) "BLD",271,4,"APDD",160,160,19) "BLD",271,4,"APDD",160,160,19.1) "BLD",271,4,"B",160,160) "BLD",271,4,"B",164,164) "BLD",271,4,"B",164.6,164.6) "BLD",271,"ABPKG") n "BLD",271,"INI") ONCPRE17 "BLD",271,"KRN",0) ^9.67PA^19^18 "BLD",271,"KRN",.4,0) .4 "BLD",271,"KRN",.4,"NM",0) ^9.68A^2^2 "BLD",271,"KRN",.4,"NM",1,0) ONCO XDEATH INFO FILE #160^160^0 "BLD",271,"KRN",.4,"NM",2,0) ONCOY58 FILE #165.5^165.5^0 "BLD",271,"KRN",.4,"NM","B","ONCO XDEATH INFO FILE #160",1) "BLD",271,"KRN",.4,"NM","B","ONCOY58 FILE #165.5",2) "BLD",271,"KRN",.401,0) .401 "BLD",271,"KRN",.402,0) .402 "BLD",271,"KRN",.402,"NM",0) ^9.68A^3^3 "BLD",271,"KRN",.402,"NM",1,0) ONCO ABSTRACT-I FILE #165.5^165.5^0 "BLD",271,"KRN",.402,"NM",2,0) ONCO DEATH FILE #160^160^0 "BLD",271,"KRN",.402,"NM",3,0) ONCO RECURRENCE FOLLOWUP FILE #165.5^165.5^0 "BLD",271,"KRN",.402,"NM","B","ONCO ABSTRACT-I FILE #165.5",1) "BLD",271,"KRN",.402,"NM","B","ONCO DEATH FILE #160",2) "BLD",271,"KRN",.402,"NM","B","ONCO RECURRENCE FOLLOWUP FILE #165.5",3) "BLD",271,"KRN",.403,0) .403 "BLD",271,"KRN",.5,0) .5 "BLD",271,"KRN",.84,0) .84 "BLD",271,"KRN",3.6,0) 3.6 "BLD",271,"KRN",3.8,0) 3.8 "BLD",271,"KRN",9.2,0) 9.2 "BLD",271,"KRN",9.8,0) 9.8 "BLD",271,"KRN",9.8,"NM",0) ^9.68A^9^9 "BLD",271,"KRN",9.8,"NM",1,0) ONCOAI^^0^B23055063 "BLD",271,"KRN",9.8,"NM",2,0) ONCODIS^^0^B1484891 "BLD",271,"KRN",9.8,"NM",3,0) ONCOTN2^^0^B47855914 "BLD",271,"KRN",9.8,"NM",4,0) ONCOPA3A^^0^B24481302 "BLD",271,"KRN",9.8,"NM",5,0) ONCOCOS^^0^B18350742 "BLD",271,"KRN",9.8,"NM",6,0) ONCPTX^^0^B51723628 "BLD",271,"KRN",9.8,"NM",7,0) ONCOCOM^^0^B29348086 "BLD",271,"KRN",9.8,"NM",8,0) ONCOGEN^^0^B37530792 "BLD",271,"KRN",9.8,"NM",9,0) ONCPRE17^^0^B115675 "BLD",271,"KRN",9.8,"NM","B","ONCOAI",1) "BLD",271,"KRN",9.8,"NM","B","ONCOCOM",7) "BLD",271,"KRN",9.8,"NM","B","ONCOCOS",5) "BLD",271,"KRN",9.8,"NM","B","ONCODIS",2) "BLD",271,"KRN",9.8,"NM","B","ONCOGEN",8) "BLD",271,"KRN",9.8,"NM","B","ONCOPA3A",4) "BLD",271,"KRN",9.8,"NM","B","ONCOTN2",3) "BLD",271,"KRN",9.8,"NM","B","ONCPRE17",9) "BLD",271,"KRN",9.8,"NM","B","ONCPTX",6) "BLD",271,"KRN",19,0) 19 "BLD",271,"KRN",19.1,0) 19.1 "BLD",271,"KRN",101,0) 101 "BLD",271,"KRN",409.61,0) 409.61 "BLD",271,"KRN",771,0) 771 "BLD",271,"KRN",869.2,0) 869.2 "BLD",271,"KRN",870,0) 870 "BLD",271,"KRN",8994,0) 8994 "BLD",271,"KRN","B",.4,.4) "BLD",271,"KRN","B",.401,.401) "BLD",271,"KRN","B",.402,.402) "BLD",271,"KRN","B",.403,.403) "BLD",271,"KRN","B",.5,.5) "BLD",271,"KRN","B",.84,.84) "BLD",271,"KRN","B",3.6,3.6) "BLD",271,"KRN","B",3.8,3.8) "BLD",271,"KRN","B",9.2,9.2) "BLD",271,"KRN","B",9.8,9.8) "BLD",271,"KRN","B",19,19) "BLD",271,"KRN","B",19.1,19.1) "BLD",271,"KRN","B",101,101) "BLD",271,"KRN","B",409.61,409.61) "BLD",271,"KRN","B",771,771) "BLD",271,"KRN","B",869.2,869.2) "BLD",271,"KRN","B",870,870) "BLD",271,"KRN","B",8994,8994) "BLD",271,"QUES",0) ^9.62^^ "BLD",271,"REQB",0) ^9.611^^ "DATA",164,67670,0) BLADDER, TRIGONE^C67.0^^^54^6767^^^188.0^1880^67670^32^54^^^67670 "DATA",164,67670,1,0) ^164.01A^1^1 "DATA",164,67670,1,1,0) URINARY "DATA",164,67670,4) 13 "DATA",164,67670,5,0) ^^18^18^2980109^ "DATA",164,67670,5,1,0) Primary Tumor (T) "DATA",164,67670,5,2,0) "DATA",164,67670,5,3,0) TX Primary tumor cannot be assessed "DATA",164,67670,5,4,0) T0 No evidence of primary tumor "DATA",164,67670,5,5,0) Ta Noninvasive papillary carcinoma "DATA",164,67670,5,6,0) Tis Carcinoma 'in situ': "flat tumor" "DATA",164,67670,5,7,0) T1 Tumor invades subepithelial connective tissue "DATA",164,67670,5,8,0) T2 Tumor invades muscle "DATA",164,67670,5,9,0) T2a Tumor invades superficial muscle (inner half) "DATA",164,67670,5,10,0) T2b Tumor invades deep muscle (outer half) "DATA",164,67670,5,11,0) T3 Tumor invades perivesical tissue "DATA",164,67670,5,12,0) T3a microscopically "DATA",164,67670,5,13,0) T3b macrospocically (extravesical mass) "DATA",164,67670,5,14,0) T4 Tumor invades any of the following: "DATA",164,67670,5,15,0) prostate, uterus, vagina, pelvic wall, "DATA",164,67670,5,16,0) adominal wall "DATA",164,67670,5,17,0) T4a Tumor invades prostate, uterus, vagina "DATA",164,67670,5,18,0) T4b Tumor invades pelvic wall, abdominal wall "DATA",164,67670,6,0) ^^15^15^2980109^ "DATA",164,67670,6,1,0) Regional Lymph Nodes (N) "DATA",164,67670,6,2,0) "DATA",164,67670,6,3,0) Regional lymph nodes are those within the true "DATA",164,67670,6,4,0) pelvis; all others are distant lymph nodes. "DATA",164,67670,6,5,0) "DATA",164,67670,6,6,0) NX Regional lymph nodes cannot be assessed "DATA",164,67670,6,7,0) N0 No regional lymph node metastasis "DATA",164,67670,6,8,0) N1 Metastasis in a single lymph node, "DATA",164,67670,6,9,0) 2 cm or less in greatest dimension "DATA",164,67670,6,10,0) N2 Metastasis in a single lymph node, more than "DATA",164,67670,6,11,0) 2 cm but not more than 5 cm in greatest "DATA",164,67670,6,12,0) dimension; or multiple lymph nodes, none "DATA",164,67670,6,13,0) more than 5 cm in greatest dimension "DATA",164,67670,6,14,0) N3 Metastasis in a lymph node more than "DATA",164,67670,6,15,0) 5 cm in greatest dimension "DATA",164,67670,"E") 119^119 "DATA",164,67670,"L") 120^120 "DATA",164,67670,"N",0) ^164.065I^6^6 "DATA",164,67670,"N",1,0) NCA^X^X "DATA",164,67670,"N",2,0) NRN^0^0 "DATA",164,67670,"N",3,0) 2 cm or less, single^1^1 "DATA",164,67670,"N",4,0) 2-5 cm, single;<= 5 cm, multiple^2^2 "DATA",164,67670,"N",5,0) > 5 cm^3^3 "DATA",164,67670,"N",6,0) NA^88^88 "DATA",164,67670,"RR5",0) ^164.0116^5^5 "DATA",164,67670,"RR5",1,0) No reconstruction/restoration^0 "DATA",164,67670,"RR5",2,0) Conduit diversion^1 "DATA",164,67670,"RR5",3,0) Continent reservoir (a bladder substitute)^2 "DATA",164,67670,"RR5",4,0) Reconstruction/restoration recommended, unknown if performed^8 "DATA",164,67670,"RR5",5,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67670,"SC5",0) ^164.0113^5^5 "DATA",164,67670,"SC5",1,0) No regional lymph nodes removed^0 "DATA",164,67670,"SC5",2,0) Regional lymph nodes removed, NOS; unk if bi/unilateral^1 "DATA",164,67670,"SC5",3,0) Unilateral regional lymph nodes removed^2 "DATA",164,67670,"SC5",4,0) Bilateral regional lymph nodes removed^3 "DATA",164,67670,"SC5",5,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67670,"SM5",0) ^164.0112^7^7 "DATA",164,67670,"SM5",1,0) All margins grossly and microscopically negative^0 "DATA",164,67670,"SM5",2,0) Margins involved, NOS^1 "DATA",164,67670,"SM5",3,0) Microscopic involvement^2 "DATA",164,67670,"SM5",4,0) Macroscopic involvement^5 "DATA",164,67670,"SM5",5,0) Margins not evaluable^7 "DATA",164,67670,"SM5",6,0) No cancer-directed surgery of primary site^8 "DATA",164,67670,"SM5",7,0) Unk whether margins involved or negative; death cert ONLY^9 "DATA",164,67670,"SO5",0) ^164.0115^7^7 "DATA",164,67670,"SO5",1,0) None^0 "DATA",164,67670,"SO5",2,0) Surg to other sites/nodes, NOS; unk if regional or distant^1 "DATA",164,67670,"SO5",3,0) Other regional site(s)^2 "DATA",164,67670,"SO5",4,0) Distant lymph node(s)^3 "DATA",164,67670,"SO5",5,0) Distant site(s)^4 "DATA",164,67670,"SO5",6,0) Combination of 4 WITH 2 or 3^5 "DATA",164,67670,"SO5",7,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67670,"SPS",0) ^164.0111^25^25 "DATA",164,67670,"SPS",1,0) None^0 "DATA",164,67670,"SPS",2,0) Local tumor destruction, NOS (w/o pathology specimen)^10 "DATA",164,67670,"SPS",3,0) Local tumor destruction, photodynamic therapy (PDT)^11 "DATA",164,67670,"SPS",4,0) Local tumor destruction, electrocautery; fulguration^12 "DATA",164,67670,"SPS",5,0) Local tumor destruction, cryosurgery^13 "DATA",164,67670,"SPS",6,0) Local tumor destruction, laser^14 "DATA",164,67670,"SPS",7,0) Local tumor excision, NOS (w/ pathology specimen)^20 "DATA",164,67670,"SPS",8,0) Local tumor excision, photodynamic therapy (PDT)^21 "DATA",164,67670,"SPS",9,0) Local tumor excision, electrocautery^22 "DATA",164,67670,"SPS",10,0) Local tumor excision, cryosurgery^23 "DATA",164,67670,"SPS",11,0) Local tumor excision, laser ablation^24 "DATA",164,67670,"SPS",12,0) Local tumor excision, laser excision^25 "DATA",164,67670,"SPS",13,0) Local tumor excision, polypectomy^26 "DATA",164,67670,"SPS",14,0) Local tumor excision, excisional biopsy (TURB)^27 "DATA",164,67670,"SPS",15,0) Partial cystectomy^30 "DATA",164,67670,"SPS",16,0) Simple/total/complete cystectomy^50 "DATA",164,67670,"SPS",17,0) Radical cystectomy (male only)^60 "DATA",164,67670,"SPS",18,0) Pelvic exenteration, NOS^70 "DATA",164,67670,"SPS",19,0) Radical cystectomy (female only); anterior exenteration^71 "DATA",164,67670,"SPS",20,0) Posterior exenteration^72 "DATA",164,67670,"SPS",21,0) Total exenteration^73 "DATA",164,67670,"SPS",22,0) Extended exenteration^74 "DATA",164,67670,"SPS",23,0) Cystectomy, NOS^80 "DATA",164,67670,"SPS",24,0) Surgery, NOS^90 "DATA",164,67670,"SPS",25,0) Unknown; death certificate ONLY^99 "DATA",164,67670,"SR") 196^196 "DATA",164,67670,"SUA",0) ^164.0108^8^8 "DATA",164,67670,"SUA",1,0) None^0 "DATA",164,67670,"SUA",2,0) Endoscopy, NOS^1 "DATA",164,67670,"SUA",3,0) Endoscopy, cystoscopy (TURB)^2 "DATA",164,67670,"SUA",4,0) Endoscopy, laparoscopy^3 "DATA",164,67670,"SUA",5,0) Open, NOS^4 "DATA",164,67670,"SUA",6,0) Open, not assisted by endoscopy (laparoscopy)^5 "DATA",164,67670,"SUA",7,0) Open, assisted by endoscopy (laparoscopy)^6 "DATA",164,67670,"SUA",8,0) Unknown; not stated; death certificate ONLY^9 "DATA",164,67670,"T",0) ^164.06I^15^15 "DATA",164,67670,"T",1,0) CBA^X^X "DATA",164,67670,"T",2,0) NET^0^0 "DATA",164,67670,"T",3,0) Carcinoma 'in situ'^is^IS "DATA",164,67670,"T",4,0) Noninvasive papillary carcinoma^a^A "DATA",164,67670,"T",5,0) Inv subepithelial connective tissue^1^1 "DATA",164,67670,"T",6,0) Inv superficial muscle (inner half)^2^2 "DATA",164,67670,"T",7,0) Inv deep muscle/perivesical fat^3^3 "DATA",164,67670,"T",8,0) Inv deep muscle (outer half)^3a^3A "DATA",164,67670,"T",9,0) Inv perivesical fat^3b^3B "DATA",164,67670,"T",10,0) Microscopically^3bi^3BI "DATA",164,67670,"T",11,0) Macroscopically (extravesical mass)^3bii^3BII "DATA",164,67670,"T",12,0) Inv prostate/uterus/vagina/pelvic/ab wall^4^4 "DATA",164,67670,"T",13,0) Inv prostate/uterus/vagina^4a^4A "DATA",164,67670,"T",14,0) Inv pelvic/abdominal wall^4b^4B "DATA",164,67670,"T",15,0) NA^88^88 "DATA",164,67670,"T5",0) ^164.0103^15^15 "DATA",164,67670,"T5",1,0) CBA^X^X "DATA",164,67670,"T5",2,0) NET^0^0 "DATA",164,67670,"T5",3,0) Noninvasive papillary carcinoma^a^A "DATA",164,67670,"T5",4,0) Carcinoma 'in situ'^is^IS "DATA",164,67670,"T5",5,0) Inv subepithelial connective tissue^1^1 "DATA",164,67670,"T5",6,0) Inv muscle^2^2 "DATA",164,67670,"T5",7,0) Inv superficial muscle (inner half)^2a^2A "DATA",164,67670,"T5",8,0) Inv deep muscle (outer half)^2b^2B "DATA",164,67670,"T5",9,0) Inv perivesical tissue^3^3 "DATA",164,67670,"T5",10,0) Microscopically^3a^3A "DATA",164,67670,"T5",11,0) Macroscopically (extravesical mass)^3b^3B "DATA",164,67670,"T5",12,0) Inv prostate/uterus/vagina/pelvic/ab wall^4^4 "DATA",164,67670,"T5",13,0) Inv prostate/uterus/vagina^4a^4A "DATA",164,67670,"T5",14,0) Inv pelvic/abdominal wall^4b^4B "DATA",164,67670,"T5",15,0) NA^88^88 "DATA",164,67670,"X",0) ^164.07P^1^1 "DATA",164,67670,"X",1,0) 1880 "DATA",164.6,1,0) 00^None "DATA",164.6,2,0) 01^AJCC "DATA",164.6,3,0) 02^Ann Arbor "DATA",164.6,4,0) 03^CCG "DATA",164.6,5,0) 04^Evans "DATA",164.6,6,0) 05^General Summary "DATA",164.6,7,0) 06^Intergroup Ewings "DATA",164.6,8,0) 07^Intergroup Hepatoblastoma "DATA",164.6,9,0) 08^Intergroup Rhabdomyosarcoma "DATA",164.6,10,0) 09^International System "DATA",164.6,11,0) 10^Murphy "DATA",164.6,12,0) 11^National Cancer Institute "DATA",164.6,13,0) 12^National Wilms' Tumor Study "DATA",164.6,14,0) 13^POG "DATA",164.6,15,0) 14^Reese-Ellsworth "DATA",164.6,16,0) 15^SEER Extent of Disease "DATA",164.6,17,0) 88^NA "DATA",164.6,18,0) 97^Other "DATA",164.6,19,0) 99^Unknown "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,19) "FIA",160,160,19.1) "FIA",164) ICDO TOPOGRAPHY "FIA",164,0) ^ONCO(164, "FIA",164,0,0) 164I "FIA",164,0,1) n^n^f^^n^^y^r^n "FIA",164,0,10) "FIA",164,0,11) I Y=67670 "FIA",164,0,"RLRO") "FIA",164,0,"VR") 2.11^ONC "FIA",164,164) 0 "FIA",164,164.01) 0 "FIA",164,164.0101) 0 "FIA",164,164.0103) 0 "FIA",164,164.0104) 0 "FIA",164,164.0105) 0 "FIA",164,164.0106) 0 "FIA",164,164.0108) 0 "FIA",164,164.0109) 0 "FIA",164,164.0111) 0 "FIA",164,164.0112) 0 "FIA",164,164.0113) 0 "FIA",164,164.0114) 0 "FIA",164,164.0115) 0 "FIA",164,164.0116) 0 "FIA",164,164.0117) 0 "FIA",164,164.0118) 0 "FIA",164,164.02) 0 "FIA",164,164.04) 0 "FIA",164,164.05) 0 "FIA",164,164.06) 0 "FIA",164,164.065) 0 "FIA",164,164.066) 0 "FIA",164,164.07) 0 "FIA",164,164.09) 0 "FIA",164.6) TYPE OF STAGING SYSTEM (PEDIATRIC) "FIA",164.6,0) ^ONCO(164.6, "FIA",164.6,0,0) 164.6I "FIA",164.6,0,1) y^y^f^^n^^y^o^n "FIA",164.6,0,10) "FIA",164.6,0,11) "FIA",164.6,0,"RLRO") "FIA",164.6,0,"VR") 2.11^ONC "FIA",164.6,164.6) 0 "INI") ONCPRE17 "KRN",.4,705,-1) 0^1 "KRN",.4,705,0) ONCO XDEATH INFO^2980409.1421^^160^^@^2980409 "KRN",.4,705,"DXS",1,"D") Directly related "KRN",.4,705,"DXS",1,"I") Indirectly related "KRN",.4,705,"DXS",1,"N") Not related "KRN",.4,705,"DXS",1,"U") Unknown "KRN",.4,705,"DXS",2,0) Patient alive at last follow-up "KRN",.4,705,"DXS",2,8) ICDA-8 "KRN",.4,705,"DXS",2,9) ICD-9 "KRN",.4,705,"DXS",3,"N") No autopsy "KRN",.4,705,"DXS",3,"U") Unknown "KRN",.4,705,"DXS",3,"Y") Autopsy performed "KRN",.4,705,"F",1) "***********DEATH INFORMATION**********";C20;X~" ";C20;X~"Date: ";C5;X~29;X;~"Place: ";X;C45;L7~21;X~"Cause of Death/Cancer: ";X;C5~18.9;X~ "KRN",.4,705,"F",2) "ICD Cause: ";X;C5~-80,^ICD9(^^S I(0,0)=D0 S DIP(1)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P(DIP(1),U,3),X=X S D(0)=+X;Z;"19:"~-80,3;X~ "KRN",.4,705,"F",3) I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI;Z;"I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI"~"Care Center: ";X;C5;L13~24.5;X~ "KRN",.4,705,"F",4) "ICD Revision: ";X;C45~20;X~"Autopsy: ";C5~22.9;X~" ";X~23;X~" Autopsy #: ";X;C43~24;X~"Path/Autopsy (Gross & Micro):";C5;X~31,.01;C7;X;L66;W~ "KRN",.4,705,"F",5) " ";C20;X~ "KRN",.4,705,"H") @ "KRN",.4,705,"IOM") 80 "KRN",.4,705,"LAST") "KRN",.4,705,"ROU") ^ONCOXDI "KRN",.4,705,"ROUOLD") ONCOXDI "KRN",.4,705,"SUB") 1 "KRN",.4,733,-1) 0^2 "KRN",.4,733,0) ONCOY58^2980410.11^^165.5^^@^2980410 "KRN",.4,733,"DXS",1,9.2) S DIP(102)=$C(59)_$S($D(^DD(160,22.9,0)):$P(^(0),U,3),1:""),DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P($P(DIP(102),$C(59)_$P(DIP(101),U,13)_":",2),$C(59),1) "KRN",.4,733,"DXS",2,0) Patient alive at last follow-up "KRN",.4,733,"DXS",2,8) ICDA-8 "KRN",.4,733,"DXS",2,9) ICD-9 "KRN",.4,733,"F",1) "** FOLLOW-UP HISTORY **";C5;S1;X~150~ "KRN",.4,733,"F",2) -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;"PATIENT NAME:"~-160,"ICD Revision: ";C2~ "KRN",.4,733,"F",3) -160,20;X~-160,"Cause of Death: ";C2~ "KRN",.4,733,"F",4) -160,-80,^ICD9(^^S I(100,0)=D0 S DIP(101)=$S($D(^ONCO(160,D0,1)):^(1),1:"") S X=$P(DIP(101),U,3),X=X S D(0)=+X;Z;"ICD CAUSE OF DEATH:"~ "KRN",.4,733,"F",5) -160,-80,S DIP(201)=$S($D(^ICD9(D0,0)):^(0),1:"") S X=$P(DIP(201),U,3) 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(DIAGNOSIS)"~ "KRN",.4,733,"F",6) -160,I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI;Z;"I $P($G(^ONCO(160,D0,1)),"^",3)="" D WRTSDC^ONCOAI"~-160,"Autopsy: ";C2~ "KRN",.4,733,"F",7) -160,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(AUTOPSY)"~" ";S1~ "KRN",.4,733,"F",8) I $G(PRTPCE)=1 D PCEPRT^ONCOGEN;Z;"I $G(PRTPCE)=1 D PCEPRT^ONCOGEN"~ "KRN",.4,733,"H") @ "KRN",.4,733,"IOM") 80 "KRN",.4,733,"LAST") "KRN",.4,733,"ROU") ^ONCOY58 "KRN",.4,733,"ROUOLD") ONCOY58 "KRN",.4,733,"SUB") 1 "KRN",.402,891,-1) 0^2 "KRN",.402,891,0) ONCO DEATH^2980410.0851^^160^^^2980410 "KRN",.402,891,"%D",0) ^^2^2^2920622^^ "KRN",.402,891,"%D",1,0) Template specific to death information only; input when date of death "KRN",.402,891,"%D",2,0) of patient has been ascertained - final follow-up for patient. "KRN",.402,891,"DR",1,160) 29;18.9;19;S X=X;I $P($G(^ONCO(160,D0,1)),"^",3)'="" S Y=21;19.1;21;K DIE("NO^");24.5;22.9;S:X'="Y" Y="@10";23;24;31;S Y="@20";@10;23///@;24///@;31///@;@20; "KRN",.402,891,"ROUOLD") "KRN",.402,898,-1) 0^3 "KRN",.402,898,0) ONCO RECURRENCE FOLLOWUP^2980410.1033^^165.5^^^2980410 "KRN",.402,898,"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" K XR;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,898,"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,CN6^ONCOTN;98;99;I '$D(SKAJCC) D CN5^ONCOTN; "KRN",.402,898,"DR",1,165.5,2) I SKAJCC S Y="@100";S STGIND="O" D ES^ONCOTN;@100;118;W !;72;@111;D STX^ONCOAIF;60; "KRN",.402,898,"DR",2,165.51) .01;S SSTOP=$P($G(^ONCO(164,TX,0)),U,16);.04;I X="" S Y=.05;S X=X;S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),U,4);I (SPS="00")!(SPS=1) D NO^ONCSTX;S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16); "KRN",.402,898,"DR",2,165.51,1) I SPS'="",DATEDX>2971231,$G(^ONCO(164,SSTOP,"SPS",SPS,0))["Unknown" D UNK^ONCSTX;.041;S Y=$S(DATEDX<2980101:.05,1:"@35");@35;35;I X=1 S Y="@350";S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16); "KRN",.402,898,"DR",2,165.51,2) 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;W !,?2,"NUMBER OF NODES REMOVED: Unknown, not stated, death certificate ONLY";36; "KRN",.402,898,"DR",2,165.51,3) S SPS=$P($G(^ONCO(165.5,D0,4,DA,0)),"^",4);I ($G(SPS)="00")!($G(SPS)=1) S Y=.05;S SSTOP=$P($G(^ONCO(164,TX,0)),"^",16);I SPS'="",DATEDX>2971231,$G(^ONCO(164,SSTOP,"SPS",SPS,0))["Unknown" S Y=.05;33;I X=1 S Y="@330"; "KRN",.402,898,"DR",2,165.51,4) 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;W !,?2,"RECON/RESTORE - DELAYED DATE: 00/00/0000";S Y=.05;@339;34////9999999; "KRN",.402,898,"DR",2,165.51,5) 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;W !,?2,"RADIATION DATE: 00/00/0000";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";S Y=.03;@29; "KRN",.402,898,"DR",2,165.51,6) .051////9999999;W !,?2,"RADIATION DATE: 99/99/9999";1///0;W !,?2,"RADIATION SEQUENCE: Not Applicable";.03;S:(X=0)!(X=7) Y="@30";S:(X=8)!(X=9) Y="@39";.031;S Y=.06;@30;.031////0000000; "KRN",.402,898,"DR",2,165.51,7) W !,?2,"RADIATION THERAPY TO CNS DATE: 00/00/0000";S Y=.06;@39;.031////9999999;W !,?2,"RADIATION THERAPY TO CNS DATE: 99/99/9999";.06;S:(X=0)!(X=7) Y="@40";S:(X=8)!(X=9) Y="@49";.061;S Y=.07;@40;.061////0000000; "KRN",.402,898,"DR",2,165.51,8) 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";.071;S Y=.08;@50;.071////0000000;W !,?2,"HORMONE/STEROID DATE: 00/00/0000"; "KRN",.402,898,"DR",2,165.51,9) 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;W !,?2,"IMMUNOTHERAPY DATE: 00/00/0000";S Y=.09;@69;.081////9999999; "KRN",.402,898,"DR",2,165.51,10) 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;W !,?2,"OTHER CANCER THERAPY DATE: 00/00/0000";S Y=2;@79;.091////9999999; "KRN",.402,898,"DR",2,165.51,11) W !,?2,"OTHER CANCER THERAPY DATE: 99/99/9999";2;3; "KRN",.402,898,"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,898,"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,898,"DR",2,165.572,2) I '$D(SKAJCC) D RECN5^ONCOTN;I SKAJCC S Y="@1105";S STGIND="R" D ES^ONCOTN;@1105;5;@1107; "KRN",.402,899,-1) 0^1 "KRN",.402,899,0) ONCO ABSTRACT-I^2980409.1103^^165.5^^^2980424 "KRN",.402,899,"%D",0) ^^2^2^2960125^^^^ "KRN",.402,899,"%D",1,0) Template for complete abstract for fields in Primary file: data relevant "KRN",.402,899,"%D",2,0) to particular cancer only as opposed to specific to Patient. "KRN",.402,899,"DIAB",1,0,165.5,11) 849;"TYPE OF STAGING SYSTEM (PEDIATRIC)" "KRN",.402,899,"DIAB",1,1,165.52,0) ALL "KRN",.402,899,"DR",1,165.5) @0;D MEN^ONCOAIP;.01;.05;.06;.07;S Y="@0";@1;D PAT^ONCOAIP;.03///^S X=IIN;W !,"REPORTING HOSPITAL: "_RH;11;8;8.1;16;9;10;2;2.1;S:'X Y="@190";2.2;S:'X Y="@190";2.3;S:'X Y="@190";2.4;@190;18;1.2;S Y=$S(ONCOANS="A":"@2",1:"@0");@2; "KRN",.402,899,"DR",1,165.5,1) D CAN^ONCOAIP;3;.04;I (X=5)!(X=8) D ^ONCOCC;6;7;D ADM^ONCOCON;1//^S X=$G(ONCOAD);S X=X;1.1//^S X=$G(ONCODD);123;119;I X'=8 S Y="@79";79////0000000;W !,"SCREENING DATE: 00/00/0000" S Y=5;@79;79;5;20;D PAIR^ONCOAIP;S ONCOICD=X; "KRN",.402,899,"DR",1,165.5,2) S Y=$$TOP^ONCOAIT;21.5;S Y=100;21.51;S Y=100;21.52;100;28;22;101;24;26;D TMARKER^ONCOU55 I TM1=0 S Y="@26";D TM^ONCOTM(D0,1);@2510;I $G(TM2)=0 S Y="@27";D TM^ONCOTM(D0,2);@2520;I $G(TM3)=0 S Y="@28";D TM^ONCOTM(D0,3);@2530;S Y=120; "KRN",.402,899,"DR",1,165.5,3) @26;25.1///9;W !,"TUMOR MARKER 1: Unknown or no information";@27;25.2///9;W !,"TUMOR MARKER 2: Unknown or no information";@28;I DATEDX<2980101 S Y=120;25.3///9;W !,"TUMOR MARKER 3: Unknown or no information";S Y=120;25.1;25.2; "KRN",.402,899,"DR",1,165.5,4) I DATEDX<2980101 S Y=120;25.3;120;I X=0 S Y="@1210";I X=9 S Y="@1219";121;S Y=122;@1210;121////0000000;W !,"DATE OF CANCER CONF: 00/00/0000";S Y=122;@1219;121////9999999;W !,"DATE OF CANCER CONF: 99/99/9999";122;104;105;106;116; "KRN",.402,899,"DR",1,165.5,5) 103;107;S Y=$S(ONCOANS="A":"@3",1:"@0");@3;D EXT^ONCOAIP;@310;20;101;@3105;D MO^ONCOAIP;41;S Y=30;29;30;D AIDS^ONCOAIP2;@301;41;@302;D BLOOD^ONCOAIP2;30.5;@31;D LN^ONCOAIP;31;S L=X;S:X<9 Y="@311";33;S X=X;32;S Y=34;@311;33; "KRN",.402,899,"DR",1,165.5,6) S Y=$S(X=0:32,X=99:"@313",1:"@312");32////98;W !,"REGIONAL NODES POSITIVE: No nodes examined";S Y=34;@313;32;S Y=34;@312;32;34;S:X=0 Y="@320";34.1;S:X=0 Y="@321";34.2;S Y="@322";@320;34.1////0;W !,"METASTASIS 2: None";@321; "KRN",.402,899,"DR",1,165.5,7) 34.2////0;W !,"METASTASIS 3: None";@322;35;D CK^ONCOTN;69;I DATEDX>2971231 S $P(^ONCO(165.5,D0,7),U,16)="",Y="@35";69.3;@35;S:$P($G(^ONCO(165.5,D0,2)),U)'=67692 Y="@36";69.1;69.2;@36;Q;37.1;D CN1^ONCOTN,CN2^ONCOTN;37.2;37.3; "KRN",.402,899,"DR",1,165.5,8) I '$$GTT^ONCOU55(D0) S Y="@361";134;@361;I '$$T^ONCOU55(D0) S Y="@3611";136;@3611;I '$D(SKAJCC) D CN1^ONCOTN;I SKAJCC=1 S Y="@365";S STGIND="C" D ES^ONCOTN;Q;I $$TNMED^ONCOU55(D0)>2 S Y="@365";38;@365;I DATEDX<2960101 S Y="@37";19; "KRN",.402,899,"DR",1,165.5,9) W !;@37;69.4;85;D CN3^ONCOTN,CN4^ONCOTN;86;87;I '$$GTT^ONCOU55(D0) S Y="@362";135;@362;I '$$T^ONCOU55(D0) S Y="@3621";136;@3621;I '$D(SKAJCC) D CN3^ONCOTN;I SKAJCC=1 S Y="@375";S STGIND="P" D ES^ONCOTN; "KRN",.402,899,"DR",1,165.5,10) I $$TNMED^ONCOU55(D0)>2 S Y="@375";88;@375;I DATEDX<2960101 S Y="@38";89;W !;S Y="@38";@376;38;I DATEDX<2960101 S Y=88;19;88;I DATEDX<2960101 S Y="@38";89;@38;39;D AGE^ONCOCOM;I X>21 S Y="@391"; "KRN",.402,899,"DR",1,165.5,11) 849TYPE OF STAGING SYSTEM (PEDIATRIC)~;I X=1 S Y="@8500";850;851;S Y="@392";@8500;850///99;W !,"PEDIATRIC STAGE: Unknown";S Y="@8510";@391;849////88;W !,"TYPE OF STAGING SYSTEM (PEDIATRIC): NA";850///88;W !,"PEDIATRIC STAGE: NA"; "KRN",.402,899,"DR",1,165.5,12) @8510;851///0;W !,"STAGED BY (PEDIATRIC): Not staged";@392;137;I DATEDX<2980101 S Y="@395";D BPCHECK^ONCOTNE;141;I $G(XCODE)=0 D NOBP^ONCOTNE;I $G(XCODE)=9 D UNKBP^ONCOTNE;I BPSITE'=67500 S Y="@1445";142;143;144;@1445; "KRN",.402,899,"DR",1,165.5,13) I BPSITE'=67619 S Y="@395";142;145;146;@395;S Y=$S(ONCOANS="A":"@4",1:"@0");@4;S:$P(^ONCO(165.5,D0,0),U,4)=5 Y="@8";D FST^ONCOAIP;58.1;I X="" S $P(^ONCO(165.5,D0,3),U,31)="",Y="@124";I (X=0)!(X="00") D NCDS^ONCNTX S Y="@124"; "KRN",.402,899,"DR",1,165.5,14) I (X=9)!(X="09") D NCDS^ONCUTX S Y="@124";58.3;@124;W !;124;I (X="")!(X="0000000")!(X=9999999) S Y="@582";D NTX^ONCOAIP;@582;D CDS^ONCPTX;58.2;S SR=$S((X="00")!(X=99):0,1:1);I X="" S Y="@512";S X=X; "KRN",.402,899,"DR",1,165.5,15) S SPS=$P($G(^ONCO(165.5,D0,3)),"^",38);I SPS="00"!(SPS=1) D SUR^ONCNTX S Y="@139";S TPX=$P($G(^ONCO(165.5,D0,2)),"^",1);S SGRP=$P($G(^ONCO(164,TPX,0)),"^",16);I $G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown" D SUR^ONCUTX S Y="@139"; "KRN",.402,899,"DR",1,165.5,16) 58///0;W !,"REASON FOR NO SURGERY.........: Surgery performed";50;S SD=X;50.1;I DATEDX<2960101 S Y=59;74;59;I DATEDX<2980101 S Y="@23";138;S X=X;S SCOPE=$P($G(^ONCO(165.5,D0,3)),"^",40) I SCOPE="" S Y=140; "KRN",.402,899,"DR",1,165.5,17) I SCOPE=1 D NODE^ONCNTX S Y="@139";S TPX=$P($G(^ONCO(165.5,D0,2)),"^",1) I TPX="" S Y="@58";S SGRP=$P($G(^ONCO(164,TPX,0)),"^",16) I SGRP="" S Y="@58";I $G(^ONCO(164,SGRP,"SC5",SCOPE,0))["Unknown" D NODE^ONCUTX S Y="@139";140;@139; "KRN",.402,899,"DR",1,165.5,18) I DATEDX<2980101 S Y="@58";139;S SPS=$P($G(^ONCO(165.5,D0,3)),"^",38) I SPS="" S Y="@58";S TPX=$P($G(^ONCO(165.5,D0,2)),"^",1) I TPX="" S Y="@58";S SGRP=$P($G(^ONCO(164,TPX,0)),"^",16) I SGRP="" S Y="@58"; "KRN",.402,899,"DR",1,165.5,19) I SPS="00"!(SPS=1) S Y="@58";I $G(^ONCO(164,SGRP,"SPS",SPS,0))["Unknown" S Y="@58";@23;I DATEDX<2960101 S Y=108;23;108;S Y="@512";@58;58;@512;I DATEDX<2970101 D RAD1^ONCPTX;I DATEDX>2961231 D RAD2^ONCPTX;51.2;S R=$S(X&(X<7):1,1:0); "KRN",.402,899,"DR",1,165.5,20) I X="" S Y="@522";I (X=0)!(X=7) D RAD^ONCNTX S Y="@75";I (X=8)!(X=9) D RAD^ONCUTX S Y="@522";I DATEDX<2960101 S Y=51;75///0;W !,"REASON FOR NO RADIATION.......: Radiation performed";51;S RD=X;51.1;I DATEDX<2970101 S Y="@80";442;56; "KRN",.402,899,"DR",1,165.5,21) 125;126;127;363;D RS^ONCOAIP;S X=X;51.3;128;132;129;130;131;S Y=109;@80;363;80;D RS^ONCOAIP;S X=X;51.3;109;S Y="@522";@75;I DATEDX<2960101 S Y="@522";75;@522;D CNS^ONCOAIP;@5221;D CNS^ONCPTX;52.2;I X="" S Y="@532"; "KRN",.402,899,"DR",1,165.5,22) I (X=0)!(X=7) D CNS0^ONCNTX S Y="@532";I X=8 D CNS9^ONCUTX S Y="@532";I X=9,(S=31!(S>65&(S<70))) D CNS9^ONCUTX S Y="@532";I X=9 D CNS0^ONCNTX S Y="@532";52;52.1;110;@532;D CHE^ONCPTX;53.2;I X="" S Y="@542"; "KRN",.402,899,"DR",1,165.5,23) I (X=0)!(X=7) D CHE^ONCNTX S Y="@76";I (X=8)!(X=9) D CHE^ONCUTX S Y="@542";I DATEDX<2960101 S Y=53;76///0;W !,"REASON FOR NO CHEMOTHERAPY.....: Chemo administered";53;53.1;111;S Y="@542";@76;I DATEDX<2960101 S Y="@542";76;@542; "KRN",.402,899,"DR",1,165.5,24) D HOR^ONCPTX;54.2;I X="" S Y="@552";I (X=0)!(X=7) D HOR^ONCNTX1 S Y="@77";I (X=8)!(X=9) D HOR^ONCUTX S Y="@552";I DATEDX<2960101 S Y=54;77///0;W !,"REASON FOR NO HORMONE THERAPY.: HT administered";54;54.1;112;S Y="@552";@77; "KRN",.402,899,"DR",1,165.5,25) I DATEDX<2960101 S Y="@552";77;@552;D IMM^ONCPTX;55.2;I X="" S Y="@572";I (X=0)!(X=7) D IMM^ONCNTX1 S Y="@572";I (X=8)!(X=9) D IMM^ONCUTX S Y="@572";55;55.1;114;@572;D OTH^ONCPTX;57.2;I X="" S Y="@346"; "KRN",.402,899,"DR",1,165.5,26) I (X=0)!(X=7) D OTH^ONCNTX1 S Y="@346";I (X=8)!(X=9) D OTH^ONCUTX S Y="@346";57;57.1;115;@346;D PRO^ONCPTX;346;I X=9 D PRO^ONCUTX S Y="@113";I (X=0)!(X=2)!(X=3)!(X=4)!(X=5)!(X=6)!(X=7)!(X=8) D PRO^ONCNTX1 S Y="@113";560;133;@113; "KRN",.402,899,"DR",1,165.5,27) W !;113;S Y=$S(ONCOANS="A":"@5",1:"@0");@5;D ^ONCOPCE;S Y=$S(ONCOANS="A":"@8",1:"@0");@8;D AB^ONCOAIP;90//^S X=$P(DT,".");91;94////^S X=$P(DT,".");W !,"REPORTING DATE: "_$E(DT,4,5)_"/"_$E(DT,6,7)_"/"_($E(DT,1,3)+1700); "KRN",.402,899,"DR",1,165.5,28) S X=$P(^VA(200,DUZ,0),U,1);92//^S X=X;96////^S X=DUZ;W !,"ENTERED BY: "_$P(^VA(200,DUZ,0),U,1);W !!;65;S:X="" Y="@500";66;@500;S:$P(^ONCO(165.5,D0,7),U,4)="" Y="@505";W !!?5,"Selected for QA=>",!;63;S:X="N" Y="@505";64;@505; "KRN",.402,899,"DR",1,165.5,29) D DD^ONCOAIP;S Y="";62;@999999; "KRN",.402,899,"DR",2,165.52) .01:9 "KRN",.402,899,"DR",3,165.529) .01 "OER",123,0) 123^GMRA^1^ "OER",123,1,0) ^100.9951PA^1^1 "OER",123,1,1,0) 115 "OER",123,1,1,1,0) ^100.99511PA^1^1 "OER",123,1,1,1,1,0) 110 "ORD",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",123,-1) 1^1 "PKG",123,0) ONCOLOGY^ONCO^Oncology treatment tracking & tumor registry package. "PKG",123,22,0) ^9.49I^1^1 "PKG",123,22,1,0) 2.11^2950307^2951204 "PKG",123,22,1,"PAH",1,0) 17 "QUES","XPF1",0) Y "QUES","XPF1","??") ^D REP^XPDH "QUES","XPF1","A") Shall I write over your |FLAG| File "QUES","XPF1","B") YES "QUES","XPF1","M") D XPF1^XPDIQ "QUES","XPF2",0) Y "QUES","XPF2","??") ^D DTA^XPDH "QUES","XPF2","A") Want my data |FLAG| yours "QUES","XPF2","B") YES "QUES","XPF2","M") D XPF2^XPDIQ "QUES","XPM1",0) PO^VA(200,:EM "QUES","XPM1","??") ^D MG^XPDH "QUES","XPM1","A") Enter the Coordinator for Mail Group '|FLAG|' "QUES","XPM1","B") "QUES","XPM1","M") D XPM1^XPDIQ "QUES","XPZ1",0) Y "QUES","XPZ1","??") ^D OPT^XPDH "QUES","XPZ1","A") Want to DISABLE Scheduled Options, Menu Options, and Protocols "QUES","XPZ1","B") YES "QUES","XPZ1","M") D XPZ1^XPDIQ "QUES","XPZ2",0) Y "QUES","XPZ2","??") ^D RTN^XPDH "QUES","XPZ2","A") Want to MOVE routines to other CPUs "QUES","XPZ2","B") NO "QUES","XPZ2","M") D XPZ2^XPDIQ "RTN") 9 "RTN","ONCOAI") 0^1^B23055063 "RTN","ONCOAI",1,0) ONCOAI ;WASH ISC/SRR,MLH-BEGIN for ABSTRACT-I ;7/19/93 08:15 "RTN","ONCOAI",2,0) ;;2.11;ONCOLOGY;**6,15,17**;Mar 07, 1995 "RTN","ONCOAI",3,0) BEG ; "RTN","ONCOAI",4,0) D EX W @IOF,!!!!,?10,"************** TUMOR REGISTRY ABSTRACT ENTRY ***************",!!! "RTN","ONCOAI",5,0) S DIC("A")=" Enter Patient name: ",DLAYGO="67",DIC="^ONCO(160,",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 ^ONCOXP1 S SX=$S(SEX=1:"M",SEX=2:"F",1:""),ONCOSX=$S(SX="M":"Male",SX="F":"Female",1:"") "RTN","ONCOAI",10,0) A1 K DIR W ! S DIR("A")="Edit patient data",DIR("B")="YES",DIR(0)="Y" D ^DIR G CONT:Y["^",EX:Y="",HIS:'Y "RTN","ONCOAI",11,0) PAT ;edit patient data file#160 "RTN","ONCOAI",12,0) N RACE S RACE="" D RACE^ONCOES "RTN","ONCOAI",13,0) I X'="" S R1=$P($G(^DIC(10,X,0)),"^",1),RACE=$S(R1["BLACK":"Black",R1["WHITE":"White",1:"") "RTN","ONCOAI",14,0) S ONCOL=0,DA=ONCOD0,DR="[ONCO PAT DATA]",DIE="^ONCO(160," "RTN","ONCOAI",15,0) L +^ONCO(160,DA):0 I $T D ^DIE L -^ONCO(160,DA) S ONCOL=1 "RTN","ONCOAI",16,0) I 'ONCOL W !,"Another user is editing this patient data." "RTN","ONCOAI",17,0) K ONCOL "RTN","ONCOAI",18,0) ; "RTN","ONCOAI",19,0) HIS ;request history "RTN","ONCOAI",20,0) K DIR W ! S DIR("A")=" Continue with Patient History",DIR(0)="Y",DIR("B")="Yes" D ^DIR G CONT:Y["^",EX:Y="",CK:Y=0 "RTN","ONCOAI",21,0) H W @IOF,!!,?15,"************* PATIENT HISTORY MODULE *************",!! "RTN","ONCOAI",22,0) S DA=ONCOD0,DR="[ONCO PAT HISTORY]",DIE="^ONCO(160," "RTN","ONCOAI",23,0) S ONCOL=0 L +^ONCO(160,DA):0 I $T D ^DIE L -^ONCO(160,DA) S ONCOL=1 "RTN","ONCOAI",24,0) I 'ONCOL W !,"Another user is editing this patient history." "RTN","ONCOAI",25,0) K ONCOL "RTN","ONCOAI",26,0) ;CONTINUE W ABSTRACT "RTN","ONCOAI",27,0) CK ;CHECK IF IN PRIMARY "RTN","ONCOAI",28,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",29,0) PRIM1 ;Patient has no Primary record "RTN","ONCOAI",30,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",31,0) PRIM2 ;patient in PRIMARY FILE "RTN","ONCOAI",32,0) W !!?5,ONCONAM," has the following Primary Site(s) entered:",!! D SDD^ONCOCOM "RTN","ONCOAI",33,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:"^",EX "RTN","ONCOAI",34,0) ; "RTN","ONCOAI",35,0) EDT ;Select primary to edit "RTN","ONCOAI",36,0) ;K ^DISV(DUZ,"^ONCO(165.5,") "RTN","ONCOAI",37,0) S D="C",DIC(0)="EZ",DIC="^ONCO(165.5,",X=ONCOD0 D IX^DIC K D,DIC,X W ! G BEG:Y<0 I Y=" " W ?40,"Space bar not allowed!" G EDT "RTN","ONCOAI",38,0) I '$D(^ONCO(160.1,"AJ")) W *7,!!?10,"Define YEAR for 4th AJCC Staging in Site Parameters File",! G EX "RTN","ONCOAI",39,0) S ONCOD0P=+Y D EN^ONCOAIP G FOL "RTN","ONCOAI",40,0) ; "RTN","ONCOAI",41,0) AIP ;Abstract all Primary Data;Return with (D0,ONCOD0P)=Primary Record Number "RTN","ONCOAI",42,0) D @($S(ONCOP0="":"EN^ONCOAIC",ONCOP'="":"EN^ONCOAIM",1:"ER")) G SET:Y,EX:Y="",CONT "RTN","ONCOAI",43,0) SET I '$D(^ONCO(160.1,"AJ")) W *7,!!?10,"You MUST specify YEAR use of AJCC 4th edition begins",!?11,"(See Define Site Parameters under Utility options)",!! G EX "RTN","ONCOAI",44,0) S XS=$G(^ONCO(160,ONCOD0,2)),SR=$P(XS,U,2),XD=$P(XS,U,3),MO=$P(XS,U,10),I9=$P(XS,U,8) K ^ONCO(160,ONCOD0,2) K:SR'="" ^ONCO(160,"D",SR,ONCOD0) K:XD'="" ^ONCO(160,"ADX",+XD,ONCOD0) "RTN","ONCOAI",45,0) S ONCOL=0 "RTN","ONCOAI",46,0) S DIE="^ONCO(165.5,",(D0,DA)=ONCOD0P,DR="3///^S X=XD;91///0;95///2" "RTN","ONCOAI",47,0) L +^ONCO(165.5,DA):0 I $T D ^DIE L -^ONCO(165.5,DA) S ONCOL=1,$P(^ONCO(165.5,D0,2),U,3)=MO D MS^ONCOCOM,EN^ONCOAIP,FOL "RTN","ONCOAI",48,0) I 'ONCOL W !,"Another user is editing this patient data." "RTN","ONCOAI",49,0) K ONCOL "RTN","ONCOAI",50,0) CONT ;Continue another patient "RTN","ONCOAI",51,0) K DIR W !! S DIR("A")=" Abstract another patient",DIR(0)="Y",DIR("B")="Yes" D ^DIR G BEG:Y,EX "RTN","ONCOAI",52,0) Q "RTN","ONCOAI",53,0) FOL ;Go to Post Followup "RTN","ONCOAI",54,0) S ONCOAI=1 D EN^ONCOAIF ;return from Extended follow-up "RTN","ONCOAI",55,0) Q "RTN","ONCOAI",56,0) ;kill variables "RTN","ONCOAI",57,0) KILL K ONCOACN,ONCO,ONCOD0,ONCOD0P,ONCOMR,ONCONM,ONCOOUT,ONCOP,ONCOP0,ONCOSN,ONCOSX,ONCOEDIT "RTN","ONCOAI",58,0) K ONCOPB,ONCOSIT,ONCONAM,ONCOPN,ONCOVP,ONCOVS,ONCOX,ONCOAI,ONCOANS,ONCOT,ONCOYR "RTN","ONCOAI",59,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",60,0) K A,AG,ABS,AN,ANS,C,CC,CT,CTY,DEF,DLAYGO,I2,I9,PT0,PTR,ST,SDD,VP0,VPR,XN "RTN","ONCOAI",61,0) K DXS,FIL,G,I,J,K,L,M,N,N2,NM,O2,VAERR,D0P,ICD,OT,R1,R2,RIPD0,XDT,XS,XTS,ZP,ZIP,RY "RTN","ONCOAI",62,0) K FG,P,MC,MO,KK,OD,ONCOAD,ONCODD,ONCOICD,OS,PR,Q,S,SC,SR,T,TS,UF,XDA,XLC,XY,%ZISOS "RTN","ONCOAI",63,0) Q "RTN","ONCOAI",64,0) ER ;Error "RTN","ONCOAI",65,0) W !!?5,"Something is wrong with database!! - See SiteManger" S Y="" Q "RTN","ONCOAI",66,0) EX D KILL "RTN","ONCOAI",67,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",68,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",69,0) K ONCOAD,ONCODD,VAERR,ONCO,ONCOD0P,ONCONM,OP,ONCOD0,%W,%X,%Y,%ZISOS "RTN","ONCOAI",70,0) Q "RTN","ONCOAI",71,0) ;END ONCOAI - Abstract completed "RTN","ONCOAI",72,0) WRTSDC ; CALLED BY [ONCO DEATH INFO] PRINT TEMPLATE "RTN","ONCOAI",73,0) K DIQ S DIC="^ONCO(160,",DR="19.1",DA=D0,DIQ="ONCDT" D EN^DIQ1 "RTN","ONCOAI",74,0) W !?4,"State Death Cert: ",ONCDT(160,D0,19.1) "RTN","ONCOAI",75,0) Q "RTN","ONCOAI",76,0) KSDC ; IF FIELD #160,#19 IS CHANGED IT WILL GO HERE AND DELETE FIELD 19.1 "RTN","ONCOAI",77,0) S $P(^ONCO(160,D0,1),"^",14)="" "RTN","ONCOAI",78,0) Q "RTN","ONCOAI",79,0) CON ;ADD CONTACTS "RTN","ONCOAI",80,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["^" D DCL^ONCOFUL "RTN","ONCOCOM") 0^7^B29348086 "RTN","ONCOCOM",1,0) ONCOCOM ;WASH ISC/SRR,MLH,RTK-CREATE SPECIAL COMPUTED FIELDS ;7/23/93 08:21 "RTN","ONCOCOM",2,0) ;;2.11;ONCOLOGY;**1,6,11,12,13,14,16,17**;Mar 07, 1995 "RTN","ONCOCOM",3,0) ; "RTN","ONCOCOM",4,0) SIT ;SITE/PG & Diagnosis Date from file 160 "RTN","ONCOCOM",5,0) F XD0=0:0 S XD0=$O(^ONCO(165.5,"C",D0,XD0)) G:XD0'>0 EX S X1=$S($D(^ONCO(165.5,XD0,0)):^(0),1:"") I X1'="" S Y=$P(X1,U,16),X1=$P(^ONCO(164.2,$P(X1,U),0),U) D DD W ?55,$E(X1,1,16),?72,Y,! "RTN","ONCOCOM",6,0) ; "RTN","ONCOCOM",7,0) SDA ;LIST ALL Primaries from 165.5 "RTN","ONCOCOM",8,0) S XD0=$P(^ONCO(165.5,D0,0),U,2) G CX "RTN","ONCOCOM",9,0) ; "RTN","ONCOCOM",10,0) SDP ;get Other Primary Sites & dates Diagnosis: from #165.5 "RTN","ONCOCOM",11,0) D XD0 G:XD0="" EX "RTN","ONCOCOM",12,0) D ;LIST all Primary Sites and Dates of Diagnosis-EXCEPT current primary "RTN","ONCOCOM",13,0) X N J S J=0 F XD1=0:0 S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) G:XD1'>0 NO I $D(^ONCO(165.5,XD1,0)),XD1'=D0 S J=J+1 W:J=1 ?5,"Acc/Seq#",?17,"Primary Site",?39,"Last Tumor Status",?58,"Date DX",?68,"Abst Status",! D LIST "RTN","ONCOCOM",14,0) ; "RTN","ONCOCOM",15,0) NO ;No other primaries "RTN","ONCOCOM",16,0) G:J>0 EX W ?24,"None" G EX "RTN","ONCOCOM",17,0) ; "RTN","ONCOCOM",18,0) SDD ;LIST all Primary Sites and Dates of Diagnosis;XD0=D0=#160,field#100 "RTN","ONCOCOM",19,0) Q:'$D(^ONCO(160,D0)) S XD0=D0 ;XD0,D0=internal #160,patient "RTN","ONCOCOM",20,0) CX ;Display all primaries for given patient;entry point with XD0 defined,not D0 "RTN","ONCOCOM",21,0) N J,XD1 "RTN","ONCOCOM",22,0) S J=0,XD1=0 F S XD1=$O(^ONCO(165.5,"C",XD0,XD1)) Q:XD1'>0 I $D(^ONCO(165.5,XD1,0)) S J=J+1 W:J=1 ?3,"Acc/Seq#",?15,"Primary Site",?37,"Last Tumor Status",?56,"Date DX",?68,"Abst Status",! D LIST "RTN","ONCOCOM",23,0) QUIT "RTN","ONCOCOM",24,0) ; "RTN","ONCOCOM",25,0) LIST D ^ONCOCOML ;list a single primary: show site, CS, DateDX, Abst Stat "RTN","ONCOCOM",26,0) Q "RTN","ONCOCOM",27,0) ; "RTN","ONCOCOM",28,0) CLS ;CLass of Case (ANALYTIC/NON-ANALYTIC) "RTN","ONCOCOM",29,0) ;Computed field #165.5, field#.042 CASE-CLASS "RTN","ONCOCOM",30,0) S XD0=D0,X=$S($D(^ONCO(165.5,XD0,0)):$P(^(0),U,4),1:""),X=$S(X="":"",X<3:"Analytic",1:"Non-Analytic") "RTN","ONCOCOM",31,0) K XD0 Q "RTN","ONCOCOM",32,0) ; "RTN","ONCOCOM",33,0) DFC1 I '$D(^ONCO(165.5,"ATX",D0)) S X="" Q "RTN","ONCOCOM",34,0) S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT="" Q:($E(TDT,1,7)'="0000000")&($E(TDT,1,7)'=9999999) "RTN","ONCOCOM",35,0) I TDT="" S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT="" Q:$E(TDT,1,7)=9999999 "RTN","ONCOCOM",36,0) I TDT="" S TDT=0 F S TDT=$O(^ONCO(165.5,"ATX",D0,TDT)) Q:TDT="" Q:$E(TDT,1,7)="0000000" "RTN","ONCOCOM",37,0) I TDT="" S TDT="9999999X" "RTN","ONCOCOM",38,0) S X=$E(TDT,1,7) "RTN","ONCOCOM",39,0) K TDT Q "RTN","ONCOCOM",40,0) ; "RTN","ONCOCOM",41,0) DFC ;Computed algorithm for FIRST COURSE DATE (165.5,49) "RTN","ONCOCOM",42,0) ;D DFC1 S Y=X D DD S X=Y "RTN","ONCOCOM",43,0) D DFC1,DATEOT^ONCOES "RTN","ONCOCOM",44,0) Q "RTN","ONCOCOM",45,0) DD ;Y=date in FM format (2yrmoda); convert to da/mo/yr "RTN","ONCOCOM",46,0) S Y=$S(Y="":"",1:$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_(1700+$E(Y,1,3))) ;_$S(Y#1:" "_$E(Y_0,9,10)_":"_$E(Y_"0000",11,12),1:"") "RTN","ONCOCOM",47,0) Q "RTN","ONCOCOM",48,0) AGE ;AGE AT DIAGNOSIS "RTN","ONCOCOM",49,0) S X=$P(^ONCO(165.5,D0,0),U,16) Q:X="" S X1=X,XD0=D0,D0=$P(^ONCO(165.5,XD0,0),U,2) D DOB1^ONCOES S X2=X,D0=XD0 D ^%DTC S X=X\365.25 K X1,X2 "RTN","ONCOCOM",50,0) Q "RTN","ONCOCOM",51,0) DEC ;AGE DX DECADE "RTN","ONCOCOM",52,0) D AGE Q:X="" S AG=X,X=$S(AG<20:"0-20",AG<30:"20-29",AG<40:"30-39",AG<50:"40-49",AG<60:"50-59",AG<70:"60-69",AG<80:"70-79",1:"80-99") "RTN","ONCOCOM",53,0) K AG Q "RTN","ONCOCOM",54,0) XD0 S XD0=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,2),1:"") ;XD0=internal #160 "RTN","ONCOCOM",55,0) Q "RTN","ONCOCOM",56,0) PAT ;Get Patient pointer "RTN","ONCOCOM",57,0) V0 S OD0=$S($D(^ONCO(160,XD0,0)):$P(^(0),U),1:"") Q:OD0="" S OF=$P(OD0,";",2),OD0=$P(OD0,";",1),VPR="^"_OF_OD0_",0)",VP0=$S($D(@VPR):^(0),1:"") "RTN","ONCOCOM",58,0) Q "RTN","ONCOCOM",59,0) PID ;PATIENT NAME,SSN,DOB "RTN","ONCOCOM",60,0) S X="" D PAT G EX:OD0="" S ONCONM=$P(VP0,U),SN=$P(VP0,U,9),XD=$P(VP0,U,3),ONCOPID=$E(ONCONM)_$E(SN,6,9) "RTN","ONCOCOM",61,0) Q "RTN","ONCOCOM",62,0) SID ;PID# (A1234) "RTN","ONCOCOM",63,0) PID5 S XD0=$P(^ONCO(165.5,D0,0),U,2) D PAT,PID S X=$E(ONCONM)_$E(SN,6,9) G EX "RTN","ONCOCOM",64,0) PID0 S XD0=D0 D PAT,PID S X=$E(ONCONM)_$E(SN,6,9) G EX "RTN","ONCOCOM",65,0) PIN ;PATIENT INQUIRY FUNCTION "RTN","ONCOCOM",66,0) S XD0=D0 D PAT G EX:OD0="" S XX=$P(VP0,U),ONCONM=$P(XX,",",2)_" "_$P(XX,","),XX=$P(VP0,U,9),ONCOSN=$E(XX,1,3)_"-"_$E(XX,4,5)_"-"_$E(XX,6,9),Y=$P(VP0,U,3) D DD S ONCODB=Y,(ONCOLC,ONCOCA,ONCOVS)="" "RTN","ONCOCOM",67,0) S XX=$O(^ONCO(160,XD0,"F","AA",0)) G W:XX="" S XX=$O(^(XX,0)),LC0=^ONCO(160,XD0,"F",XX,0),Y=$P(LC0,U) D DD S ONCOLC=Y,XX=$P(LC0,U,2),ONCOVS=$S(XX=0:"Dead",XX=1:"Alive",1:"Unstated") "RTN","ONCOCOM",68,0) S XX=$P(LC0,U,3),ONCOCA=$S(XX=1:"No Evidence of CA",XX=2:"Evidence of CA",9:"Unknown",1:"") "RTN","ONCOCOM",69,0) W W !?10,"Name: ",ONCONM,?40,"Date Last Contact: ",ONCOLC "RTN","ONCOCOM",70,0) W !?10,"SSN: ",ONCOSN,?40,"Vital Status: ",ONCOVS "RTN","ONCOCOM",71,0) W !?10,"DOB: ",ONCODB,?40,"Cancer Status: ",ONCOCA "RTN","ONCOCOM",72,0) Q "RTN","ONCOCOM",73,0) ; "RTN","ONCOCOM",74,0) MS ;Marital status at Diagnosis FROM #165.5 "RTN","ONCOCOM",75,0) S X="" D XD0 G:XD0="" EX D PAT G:OD0="" EX S MS=$P(VP0,U,5),MC=$P($G(^DIC(11,+MS,0)),U,3),X1=$S(MC="N":1,MC="M":2,MC="S":3,MC="D":4,MC="W":5,1:9),$P(^ONCO(165.5,D0,1),U,5)=X1 "RTN","ONCOCOM",76,0) ADX ;Address at DX "RTN","ONCOCOM",77,0) PT S GLR="^"_OF_OD0_",",X11=$G(@(GLR_".11)")),CITY=$P(X11,U,4),ST=$P(X11,U,5),CT=$P(X11,U,7),ZIP=$P(X11,U,6),ZP=$O(^VIC(5.11,"B",ZIP_" ",0)) "RTN","ONCOCOM",78,0) I CITY'="" S $P(^ONCO(165.5,D0,1),"^",12)=CITY "RTN","ONCOCOM",79,0) I ST'="" S STDXABV=$P($G(^DIC(5,ST,0)),"^",2),STDXIEN=$O(^ONCO(160.15,"B",STDXABV,"")),$P(^ONCO(165.5,D0,1),"^",4)=STDXIEN "RTN","ONCOCOM",80,0) S ADX=$P(X11,U)_" "_$P(X11,U,2)_U_ZIP,$P(^ONCO(165.5,D0,1),U,1)=$S($P(ADX,U,1)=" ":"",1:$P(ADX,U,1)),$P(^ONCO(165.5,D0,1),U,2)=$P(ADX,U,2) D CTY G EX "RTN","ONCOCOM",81,0) CTY ;Obtain county ptr "RTN","ONCOCOM",82,0) Q:ST=""!(CT="") I $D(^DIC(5,ST,1,CT,0)) S CTY=$P(^(0),U),VI=0 F S VI=$O(^VIC(5.1,"B",CTY,VI)) Q:VI'>0 I $P(^VIC(5.1,VI,0),U,2)=ST S $P(^ONCO(165.5,D0,1),U,3)=VI "RTN","ONCOCOM",83,0) Q "RTN","ONCOCOM",84,0) G EX "RTN","ONCOCOM",85,0) ; "RTN","ONCOCOM",86,0) ONCPRI ;Computed expression for ICD0-TOPOGRAPHY LIST (160,49) "RTN","ONCOCOM",87,0) S XD0=0 F S XD0=$O(^ONCO(165.5,"C",D0,XD0)) Q:XD0'>0 D "RTN","ONCOCOM",88,0) .Q:'$D(^ONCO(165.5,XD0,2)) "RTN","ONCOCOM",89,0) .S TOPIEN=$P(^ONCO(165.5,XD0,2),U,1) "RTN","ONCOCOM",90,0) .Q:TOPIEN="" "RTN","ONCOCOM",91,0) .S TOPNAME=$P(^ONCO(164,TOPIEN,0),U,1) "RTN","ONCOCOM",92,0) .S TOPCODE=$P(^ONCO(164,TOPIEN,0),U,2) "RTN","ONCOCOM",93,0) .S TOP(TOPCODE)=TOPNAME "RTN","ONCOCOM",94,0) I $D(TOP) S TOPCODE="" W ! F S TOPCODE=$O(TOP(TOPCODE)) Q:TOPCODE="" W ?5,TOP(TOPCODE),! "RTN","ONCOCOM",95,0) S X="" K XD0,TOPIEN,TOP,TOPCODE Q "RTN","ONCOCOM",96,0) ; "RTN","ONCOCOM",97,0) SET ;SET VARIABLES "RTN","ONCOCOM",98,0) K SDD,XTS,ABS,SD,ACS,ST Q "RTN","ONCOCOM",99,0) EX ;KILL ALL VARIABLES "RTN","ONCOCOM",100,0) K ACS,ADX,CT,CTY,GLR,OD0,X11,ZIP,ZP,VI,MS,ST,SD,SDD,XD1,X1,X2,XD0,OD0,OF,VPR,VP0,Y "RTN","ONCOCOM",101,0) Q "RTN","ONCOCOS") 0^5^B18350742 "RTN","ONCOCOS",1,0) ONCOCOS ;WASH ISC/SRR-COMPUTED FIELDS for Statistics ;3/28/94 10:58 "RTN","ONCOCOS",2,0) ;;2.11;ONCOLOGY;**5,13,16,17**;Mar 07, 1995 "RTN","ONCOCOS",3,0) ; "RTN","ONCOCOS",4,0) ;ROUTINE written to correct for erroneous computed fields-incomplete "RTN","ONCOCOS",5,0) ;These fields have been defined correctly in #165.5 "RTN","ONCOCOS",6,0) ;This routine will not be completed unless necessary for #17,#18,#22 "RTN","ONCOCOS",7,0) ;Fields #17,#18,#22 will * for deletion "RTN","ONCOCOS",8,0) FYR ;LENGTH FOLLOW-UP YEARS #17 "RTN","ONCOCOS",9,0) ;DATE LAST CONTACT-DATE DX 1ST PRIMARY (fileman dates gives years) "RTN","ONCOCOS",10,0) S X="" Q ;code "RTN","ONCOCOS",11,0) FWK ;LENGTH FOLLOW-UP WEEKS #18 "RTN","ONCOCOS",12,0) ;(DATE LAST CONTACT-DATE DX 1ST PRIMARY)/7 "RTN","ONCOCOS",13,0) S X="" Q ;code "RTN","ONCOCOS",14,0) SMO ;SURVIVAL MONTHS; #22 "RTN","ONCOCOS",15,0) ;(DATE LAST CONTACT-DATE DX 1ST PRIMARY)/30.4375 "RTN","ONCOCOS",16,0) S X="" Q ;code "RTN","ONCOCOS",17,0) ; "RTN","ONCOCOS",18,0) CC ;CASE CLASS/Renamed Class of Case "RTN","ONCOCOS",19,0) S X=$P(^ONCO(165.5,D0,0),U,4),X=$S(X=0:"Dx H,Rx Ew",X=1:"Dx,Rx Here",X=2:"Dx Ew,Rx H",X=3:"Dx,Tx Ew",X=4:"Before Ref Dt",X=5:"Autopsy",X=6:"Death Cert",1:"Unknown") Q "RTN","ONCOCOS",20,0) RSX ;COMBINED RACE & SEX "RTN","ONCOCOS",21,0) ;RACE ONLY "RTN","ONCOCOS",22,0) ;COMING FROM 165.5 with D0=primary "RTN","ONCOCOS",23,0) D GT G EX:XD0="",EX:XP0="" "RTN","ONCOCOS",24,0) 1 S X=$S(SX=1:"M",SX=2:"F",1:""),XRX=$S(RC=1:"White-"_X,RC=2:"Black-"_X,1:"Other-"_X),X=XRX G EX "RTN","ONCOCOS",25,0) ;for Race and Sex data "RTN","ONCOCOS",26,0) SXR ;SEX-RACE "RTN","ONCOCOS",27,0) D GT G EX:XD0="",EX:XP0="" "RTN","ONCOCOS",28,0) S X=$S(RC=1:"WT",RC=2:"BK",1:"OT"),XRX=$S(SX=1:"Male-"_X,SX=2:"Female-"_X,1:""),X=XRX G EX "RTN","ONCOCOS",29,0) GT S XP0="",XD0=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,2),1:"") Q:XD0="" Q:'$D(^ONCO(160,XD0,0)) S XP0=^(0),RC=+$P(XP0,U,6),SX=$P(XP0,U,8) "RTN","ONCOCOS",30,0) Q "RTN","ONCOCOS",31,0) SSG ;AJCC SUMMARY STAGE GROUP (combined 0,I,II,III,IV,U) "RTN","ONCOCOS",32,0) G D SG Q:X="" S X=+X,X=$S(X=0:0,X=1:"I",X=2:"II",X=3:"III",X=4:"IV",1:"U") "RTN","ONCOCOS",33,0) Q "RTN","ONCOCOS",34,0) SSG1 ;AJCC SUMMARY STAGE GROUPI (I,IA,IB,IC) "RTN","ONCOCOS",35,0) D SG S X=$S(+X=1:"I"_$E(X,2),1:"") G EX "RTN","ONCOCOS",36,0) SSG2 ;AJCC SUMMARY STAGE GROUP-II (II,IIA,IIB,IIC) "RTN","ONCOCOS",37,0) D SG S X=$S(+X=2:"II"_$E(X,2),1:"") G EX "RTN","ONCOCOS",38,0) SSG3 ;AJCC SUMMARY STAGE GROUP-III (III,IIIA,IIIB) "RTN","ONCOCOS",39,0) D SG S X=$S(+X=3:"III"_$E(X,2),1:"") G EX "RTN","ONCOCOS",40,0) SSG4 ;AJCC SUMMARY STAGE GROUP-IV (IV,IVA,IVB) "RTN","ONCOCOS",41,0) D SG S X=$S(+X=4:"IV"_$E(X,2),1:"") G EX "RTN","ONCOCOS",42,0) SG S X=$S($D(^ONCO(165.5,D0,2)):$P(^(2),U,20),1:"") "RTN","ONCOCOS",43,0) Q "RTN","ONCOCOS",44,0) TRX ;COMBINATIONS OF THERAPY "RTN","ONCOCOS",45,0) TX ;DETERMINE course of treatment i.e. order of therapies "RTN","ONCOCOS",46,0) S XD0=D0,XX=0 "RTN","ONCOCOS",47,0) F S XX=$O(^ONCO(165.5,"ATX",XD0,XX)) Q:XX="" I ($E(XX,1,7)'="0000000")&($E(XX,1,7)'=9999999) S T=$E(XX,8),TX=$S(T="S":"SUR",T="C":"CMX",T="R":"XRT",T="H":"HOR",T="B":"BRM",T="P":"CNS",T="N":"NTX",1:"OTR"),X=$S(X="":TX,1:X_"/"_TX) "RTN","ONCOCOS",48,0) S X=$S(X="":"NONE",1:X) G EX "RTN","ONCOCOS",49,0) ; "RTN","ONCOCOS",50,0) TXS ;TX SEQ "RTN","ONCOCOS",51,0) S X="",XD0=D0,XX=0 F S XX=$O(^ONCO(165.5,"ATX",XD0,XX)) Q:XX="" I (XX'="0000000")&(XX'=9999999) S X=$S(X="":$E(XX,8),1:X_"/"_$E(XX,8)) "RTN","ONCOCOS",52,0) Q "RTN","ONCOCOS",53,0) ; "RTN","ONCOCOS",54,0) G EX "RTN","ONCOCOS",55,0) ; "RTN","ONCOCOS",56,0) GSS ;GENERAL SUMMARY STAGE 35.1 "RTN","ONCOCOS",57,0) S X=$P($G(^ONCO(165.5,D0,2)),U,17),X=$S(X="":X,X=0:"In Situ",X=1:"Local",X=2:"Reg Ext",X=3:"Reg Nodes",X=4:"Reg Ext/Nodes",X=5:"Reg NOS",X=7:"Dist Met/Sys",X=9:"Unst/Unk") "RTN","ONCOCOS",58,0) Q "RTN","ONCOCOS",59,0) SICD ;SELECTED IDCO-SITE CODES for cross-tabs "RTN","ONCOCOS",60,0) G SS "RTN","ONCOCOS",61,0) ;S Z=$P($G(^ONCO(165.5,D0,0)),U,22) G EX:Z="" "RTN","ONCOCOS",62,0) ;S X=$S(Z=140:"LIP",Z=153:"COLON",Z=154:"RECTUM",Z=160:"NASAL CAVITY",Z=162:"LUNG",Z=188:"BLADDER",Z=193:"THYROID",Z=185:"PROSTATE",Z=186:"TESTES",Z=196:"LYMPH",1:"") Q:X'="" "RTN","ONCOCOS",63,0) SS ;site/gprs "RTN","ONCOCOS",64,0) S X=$P(^ONCO(165.5,D0,0),U),X=$S(X=31:"LUNG",X=62:"LYMPH-H",X=63:"LYMPH-NH",X=54:"BLADDER",X=17:"COLON",X>65&(X<70):"LEUK",X=39:"MELANOMA",X=50:"PROSTATE",X=9:"ORAL CAV",1:"OTHER") "RTN","ONCOCOS",65,0) Q "RTN","ONCOCOS",66,0) S X=$P(^ONCO(165.5,D0,0),U),X=$S(X=63:"LYMPH-NH",1:"ALL OTHERS") G EX "RTN","ONCOCOS",67,0) ; "RTN","ONCOCOS",68,0) MAJ ;MAJOR SITES "RTN","ONCOCOS",69,0) Q "RTN","ONCOCOS",70,0) ; "RTN","ONCOCOS",71,0) OSYS ;ICDO SYSTEMS-OLD "RTN","ONCOCOS",72,0) S X=$P($G(^ONCO(165.5,D0,0)),U,22) Q:X="" "RTN","ONCOCOS",73,0) S X=$S(X<150:40,X=161:40,X=160:40,X=193:90,X=191:90,X<160&(X>149):50,X>184&(X<190):85,X>169&(X<174):70,1:X) "RTN","ONCOCOS",74,0) S X=$S(X=162:"LUNG",X=196:"LYMPH",X=40:"H&N",X=50:"GI",X=70:"MS",X=85:"GU",X=90:"ENDO",X=191!(X=192):"NS",1:"") Q:X'="" S X=$P(^ONCO(165.5,D0,0),U),X=$S(X=63:"LYMPH-H",1:"OTH") Q "RTN","ONCOCOS",75,0) ; "RTN","ONCOCOS",76,0) SYS ;SYSTEMS "RTN","ONCOCOS",77,0) S X=$P(^ONCO(165.5,D0,0),U),X=$S(X=63:"LYMPH-NH",X=62:"LYMPH",1:"") Q:X'="" S X=$P($G(^ONCO(165.5,D0,0)),U,22) "RTN","ONCOCOS",78,0) Q:X="" S X=$S(X<6715:"H&N",X<6726:"DS",X<6739:"RS",X<6747:"MS",(X>6751&(X<6768)):"GU",X=6747!(X>6769&(X<6772)):"NS",1:"OTH") "RTN","ONCOCOS",79,0) Q "RTN","ONCOCOS",80,0) TRS ;VITAL STATUS/TUMOR STATUS "RTN","ONCOCOS",81,0) S XD0=D0 "RTN","ONCOCOS",82,0) S XTS="."_$P($G(^ONCO(165.5,XD0,7)),U,6)_".",XTS=$S(".1.4."[XTS:"NO-Evidence",".2.5.6.7."[XTS:"CA-Evidence",1:"Unknown"),XD1=$P(^(0),U,2) "RTN","ONCOCOS",83,0) S VS=$P($G(^ONCO(160,XD1,1)),U),VS=$S(VS=0:"Dead",1:"Alive") "RTN","ONCOCOS",84,0) S STS=VS_"/"_XTS,X=STS G EX "RTN","ONCOCOS",85,0) EX ;EXIT ROUTINE "RTN","ONCOCOS",86,0) K SG,XD0,XRC,XSX,XRSX "RTN","ONCOCOS",87,0) Q "RTN","ONCODIS") 0^2^B1484891 "RTN","ONCODIS",1,0) ONCODIS ;WASH ISC/SRR-ONCOLOGY DISPLAYS ;6/2/92 22:22 "RTN","ONCODIS",2,0) ;;2.11;Oncology;**6,7,9,10,11,12,13,14,15,16,17**;Mar 07, 1995 "RTN","ONCODIS",3,0) MAIN ;Begin main menu VA display "RTN","ONCODIS",4,0) S VR=$P($T(ONCODIS+1),";",3),NM="ONCOLOGY TUMOR REGISTRY" D LOGO,FUNCT Q "RTN","ONCODIS",5,0) FUNCT ;INTRODUCTION "RTN","ONCODIS",6,0) W !!?10,"Choose among the following functions:" "RTN","ONCODIS",7,0) Q "RTN","ONCODIS",8,0) LOGO ;DISPLAY LOGO "RTN","ONCODIS",9,0) S:'$D(IOF) IOP="HOME" D:'$D(IOF) ^%ZIS W *7,@IOF W !!!!!!! F I=1:1:9 W !,?22,$P($T(DISP+I),";",3) "RTN","ONCODIS",10,0) W !!,?23,"Department of Veterans Affairs",!!?23,NM_" V"_VR_"P17" Q "RTN","ONCODIS",11,0) DISP ; "RTN","ONCODIS",12,0) ;;VVVV VVAA "RTN","ONCODIS",13,0) ;; VVVV VVAAAA "RTN","ONCODIS",14,0) ;; VVVV VVAAAAAA "RTN","ONCODIS",15,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",16,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",17,0) ;; VVVV VVAA AAAA "RTN","ONCODIS",18,0) ;; VVVVVVAA AAAA "RTN","ONCODIS",19,0) ;; VVVVAA AAAAAAAAAAA "RTN","ONCODIS",20,0) ;; VVAA AAAAAAAAAAA "RTN","ONCODIS",21,0) D W !!?30,"INSTALLATION",!!,?20,NM," PACKAGE",!!,?31,"VERSION ",VR Q "RTN","ONCOGEN") 0^8^B37530792 "RTN","ONCOGEN",1,0) ONCOGEN ;WASH ISC/SRR,MLH-GENERAL REPORT DRIVER FOR SELECTED FORMATS ;7/22/93 16:24 "RTN","ONCOGEN",2,0) ;;2.11;ONCOLOGY;**6,7,11,13,16,17**;Mar 07, 1995 "RTN","ONCOGEN",3,0) ; "RTN","ONCOGEN",4,0) ST ;ENTRY POINT FOR FOLLOWUP RECORD PRINT "RTN","ONCOGEN",5,0) S DIC="^ONCO(160,",DIC(0)="AEQM",DA=0 "RTN","ONCOGEN",6,0) D ^DIC G:Y=-1 END S NUMBER=$P(Y,U,1),FLDS="[ONCO FOLLOWUP HISTORY]" "RTN","ONCOGEN",7,0) D PRT1 G END "RTN","ONCOGEN",8,0) SU ;ENTRY POINT FOR SUSPENSE REPORT PRINT "RTN","ONCOGEN",9,0) S DIC="^ONCO(160,",DIC(0)="AEQMZ" D ^DIC G EX:Y<0 S (X,ONCOD0)=+Y "RTN","ONCOGEN",10,0) ;K ^DISV(DUZ,"^ONCO(165.5,") "RTN","ONCOGEN",11,0) S D="C",DIC="^ONCO(165.5,",DIC(0)="EQ" D IX^DIC G EX:Y<0 S D0=+Y W !!! D ^ONCOXU W !!,"You may PRINT a hardcopy",! ;S TEM="ONCO ABSTRACT RECORD" D TEM G EX:TEM="" "RTN","ONCOGEN",12,0) ;K ^DIBT(TEM,1) S ^DIBT(TEM,1,D0)="",BY="[ONCO ABSTRACT RECORD]" "RTN","ONCOGEN",13,0) S BY="NUMBER",(FR,TO)=D0,FLDS="[ONCO XABSTRACT RECORD]",L=0 "RTN","ONCOGEN",14,0) G PRT65 "RTN","ONCOGEN",15,0) SEER ;ENTRY POINT FOR SEER REPORT PRINT "RTN","ONCOGEN",16,0) S DIC="^ONCO(165.5,",DIC(0)="AEQM",DA=0 "RTN","ONCOGEN",17,0) D ^DIC G:Y=-1 END S NUMBER=$P(Y,U,1),DA=+Y "RTN","ONCOGEN",18,0) S DIOEND="S DN=2,D0=ONCODA F II=2,3 K DXS D @(""^ONCOXA""_II)" "RTN","ONCOGEN",19,0) S ONCODA=DA,FLDS="[ONCOXA1]" "RTN","ONCOGEN",20,0) D PRT G END "RTN","ONCOGEN",21,0) ABSEO ;ENTRY POINT FOR ABSTRACT-EAST ORANGE REPORT PRINT "RTN","ONCOGEN",22,0) S DIC="^ONCO(160,",DIC(0)="AEMQ" D ^DIC G:Y=-1 END "RTN","ONCOGEN",23,0) S (HI,DA)=0 I $D(^ONCO(165.5,"C",$P(Y,U,1))) W !,"Choose one : " F I=1:1 S DA=$O(^ONCO(165.5,"C",$P(Y,U,1),DA)) Q:DA'>0 S SI=$P(^ONCO(165.5,DA,0),U,1) W:$D(^ONCO(164.2,SI,0)) !?10,I_". "_$P(^(0),U,1) D TEXT S ^TMP($J,I)=DA S HI=I "RTN","ONCOGEN",24,0) I HI=0 W !,"No Primaries Entered for this Patient" G EX "RTN","ONCOGEN",25,0) ANS ;W !!,"Please select a number from 1 to ",HI R "// ",ANS:DTIME G EX:('$T)!(ANS["^")!(ANS=""&(HI'=1)) S:ANS="" ANS=1 G ANS:(ANS'?.N)!(ANS<1)!(ANS>HI) "RTN","ONCOGEN",26,0) S ANS=$$ASKNUM^ONCOU("Enter your selection","1:"_HI,1) G EX:$D(DIRUT) "RTN","ONCOGEN",27,0) S DA=$P(^TMP($J,ANS),U,1),(Y,DA,NUMBER,HDA)=DA "RTN","ONCOGEN",28,0) S PRTPCE=0 I $P($G(^ONCO(165.5,DA,7)),"^",15)'="" W ! K DIR S DIR(0)="YA",DIR("A")="Print PCE data attached to this primary? ",DIR("B")="NO" D ^DIR S PRTPCE=Y G EX:$D(DIRUT) "RTN","ONCOGEN",29,0) G DS:$D(NS),X:III<49,Y "RTN","ONCOGEN",30,0) X S (ONCODA,ONCOIEN)=DA D ^ONCOPA1 "RTN","ONCOGEN",31,0) G EX "RTN","ONCOGEN",32,0) ; I III<12 S DIOEND="S DN=1,D0=ONCODA F II=III:1:IIII K DXS D @(""^ONCOX""_II)" "RTN","ONCOGEN",33,0) ; G PT "RTN","ONCOGEN",34,0) Y I III<59 S DIOEND="S DN=1,D0=ONCODA F II=III:1:IIII K DXS D @(""^ONCOY""_II)" "RTN","ONCOGEN",35,0) PT S ONCODA=DA,FLDS=$S(III<12:"[ONCOX1]",III<59:"[ONCOY49]",1:"ERROR") "RTN","ONCOGEN",36,0) D PRT G END "RTN","ONCOGEN",37,0) PRT S FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(165.5,",L=0 "RTN","ONCOGEN",38,0) D EN1^DIP "RTN","ONCOGEN",39,0) Q "RTN","ONCOGEN",40,0) ; "RTN","ONCOGEN",41,0) PRT1 S FR=NUMBER,TO=NUMBER,BY="@NUMBER",DIC="^ONCO(160,",L=0 "RTN","ONCOGEN",42,0) D EN1^DIP "RTN","ONCOGEN",43,0) Q "RTN","ONCOGEN",44,0) PRT65 ;PRINT FOR 165.5 "RTN","ONCOGEN",45,0) S DIC="^ONCO(165.5,",L=0 D EN1^DIP G EX "RTN","ONCOGEN",46,0) TEXT W:$D(^ONCO(165.5,DA,8)) " "_$P(^ONCO(165.5,DA,8),U,1) Q "RTN","ONCOGEN",47,0) DD S Y=$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_($E(Y,1,3)+1700)_$S(Y#1:" "_$E(Y_0,9,10)_":"_$E(Y_"0000",11,12),1:"") "RTN","ONCOGEN",48,0) Q "RTN","ONCOGEN",49,0) ; "RTN","ONCOGEN",50,0) DIS ;Dislay Screens "RTN","ONCOGEN",51,0) W @IOF,?20,"************** Select Screen *************",!!! G ABSEO "RTN","ONCOGEN",52,0) K DXS S DIC("A")=" Select patient: ",DIC="^ONCO(160,",DIC(0)="AEMQ" D ^DIC G:Y<0 END "RTN","ONCOGEN",53,0) S ONCOD0P=DA I $D(^ONCO(165.5,"C",+Y)) S X=+Y,DIC="^ONCO(165.5,",D="C",DIC(0)="EX" D IX^DIC G END:Y<0 "RTN","ONCOGEN",54,0) DS S (D0,ONCODA)=DA K DXS I NS=3 W @IOF D ^ONCOY49 K DXS D ^ONCOX3 D RD Q "RTN","ONCOGEN",55,0) S (D0,ONCODA)=DA K DXS S ONCOR="^ONCOY"_NS W @IOF K DXS D ^ONCOY49 K DXS D @ONCOR "RTN","ONCOGEN",56,0) D RD Q:$G(QDS)=1 I $D(NN) S NS=NN K DXS D @("^ONCOY"_NS) D RD Q "RTN","ONCOGEN",57,0) Q:'$D(NF) F NS=51:1:58 K DXS D @("^ONCOY"_NS) D RD:NS'=54 Q:NS=58!($G(QDS)=1) "RTN","ONCOGEN",58,0) Q "RTN","ONCOGEN",59,0) ; "RTN","ONCOGEN",60,0) RD K DIR S DIR(0)="E",DIR("A")="Hit Enter to continue" D ^DIR "RTN","ONCOGEN",61,0) K QDS I Y'=1 S QDS=1 "RTN","ONCOGEN",62,0) Q "RTN","ONCOGEN",63,0) TEM ;GET TEMPLATE "RTN","ONCOGEN",64,0) ;S TEM=$O(^DIBT("B",TEM,0)) "RTN","ONCOGEN",65,0) Q "RTN","ONCOGEN",66,0) END K ANS,BY,DA,DHCOPIES,DHD,DIC,DIOEND,DN,DXS,HDA,I,NUMBER,L,ONCODA,ONCOTEMP,PG,BY,FR,TO,FLDS,HI,ANS,SI,XD0 "RTN","ONCOGEN",67,0) D ^%ZISC S IOP=ION D ^%ZIS "RTN","ONCOGEN",68,0) EX ;Exit and Kill "RTN","ONCOGEN",69,0) K %DT,X,Y,DIC,DIC,DIC1,DISH,II,D,DIJ,DIW,DIWT,DIYS,DP,FIL,ST,XXD1 "RTN","ONCOGEN",70,0) K ONCOX1,ONCOD0,ONCON,ONCOX,%W,%ZISOS,ONTEMP,ONCOX2,ONCOR,ONCOYR "RTN","ONCOGEN",71,0) K TEM,%Y,F,L,O,W,%T,B,LST,O2,OG,OP,OS,OT,P,TL,TX,YY,OIO,%ZISOS,DIP "RTN","ONCOGEN",72,0) K ONCX,PCESEL,M,DIYS,DISH,PRTPCE,PCEABS,QDS,STGP,STGPNM "RTN","ONCOGEN",73,0) Q "RTN","ONCOGEN",74,0) ; "RTN","ONCOGEN",75,0) PCEPRT ; PRINT PCE DATA (IF ANY) FOR A PARTICULAR PRIMARY AFTER COMPLETE "RTN","ONCOGEN",76,0) ; ABSTRACT PRINT. CALLED BY ROUTINE ^ONCOPA3A (FORMERLY CALLED BY "RTN","ONCOGEN",77,0) ; ONCOX11 PRINT TEMPLATE). ALSO CALLED BY [ONCOY58] PRINT TEMPLATE. "RTN","ONCOGEN",78,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="" Q ;IF NO PCE DATA, QUIT "RTN","ONCOGEN",79,0) S STGP=$P($G(^ONCO(165.5,ONCODA,0)),"^",1) "RTN","ONCOGEN",80,0) S STGPNM=$P($G(^ONCO(164.2,STGP,0)),"^",1),SITTAB=79-(STGPNM) "RTN","ONCOGEN",81,0) PRINT ; "RTN","ONCOGEN",82,0) D PCEVARS "RTN","ONCOGEN",83,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="BLA" D PRT^ONCBPC8 Q "RTN","ONCOGEN",84,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="THY" D PRT^ONCTPC8 Q "RTN","ONCOGEN",85,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="STS" D PRT^ONCSPC8 Q "RTN","ONCOGEN",86,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="PRO" D PRT^ONCPPC9 Q "RTN","ONCOGEN",87,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="COL" D PRT^ONCCPC9 Q "RTN","ONCOGEN",88,0) I $P($G(^ONCO(165.5,ONCODA,7)),"^",15)="NHL" D PRT^ONCNPC8 Q "RTN","ONCOGEN",89,0) Q "RTN","ONCOGEN",90,0) PCEPRT2 ; PRINT ALL PCE'S FOR A PARTICULAR SITE. "RTN","ONCOGEN",91,0) S ONCQ=0 "RTN","ONCOGEN",92,0) W !!?5,"Print PCE's for a particular site" "RTN","ONCOGEN",93,0) K DIR S DIR(0)="SM^1:Bladder;2:Thyroid;3:Soft Tissue Sarcoma;4:Prostate;5:Colorectal;6:Non-Hodgkin's Lymphoma" D ^DIR Q:$D(DIRUT) "RTN","ONCOGEN",94,0) S PCESEL=$S(Y=1:"BLA",Y=2:"THY",Y=3:"STS",Y=4:"PRO",Y=5:"COL",Y=6:"NHL",1:"") Q:PCESEL="" "RTN","ONCOGEN",95,0) W ! K DIR S DIR(0)="YA",DIR("A")="Print PCE's AND Abstracts? ",DIR("B")="Y" D ^DIR S PCEABS=Y G EX:$D(DIRUT) "RTN","ONCOGEN",96,0) K IOP,%ZIS S %ZIS="Q" W ! D ^%ZIS S ONCOIO=ION_";"_IOST_";"_IOM_";"_IOSL G:POP EX "RTN","ONCOGEN",97,0) I $D(IO("Q")) S ONCQ=1 D TASK G EX "RTN","ONCOGEN",98,0) RTN ; "RTN","ONCOGEN",99,0) S ONCOQUIT=0,ONCIOST=IOST "RTN","ONCOGEN",100,0) I PCEABS'=1 F ONCX=0:0 S ONCX=$O(^ONCO(165.5,"APCE",PCESEL,ONCX)) Q:ONCX'>"" S ONCODA=ONCX D PRINT Q:$G(Y)=0 "RTN","ONCOGEN",101,0) I PCEABS=1 F ONCX=0:0 S ONCX=$O(^ONCO(165.5,"APCE",PCESEL,ONCX)) Q:ONCX'>""!ONCOQUIT D "RTN","ONCOGEN",102,0) .S ONCODA=ONCX,PRTPCE=1 "RTN","ONCOGEN",103,0) .S ONCOIEN=ONCX D MULT^ONCOPA1 "RTN","ONCOGEN",104,0) .; S DIOEND="S DN=1,D0=ONCODA F RK=2:1:11 K DXS D @(""^ONCOX""_RK)" "RTN","ONCOGEN",105,0) .; S (DA,NUMBER,FR,TO)=ONCODA,BY="@NUMBER",L=0,DIC="^ONCO(165.5," "RTN","ONCOGEN",106,0) .; S FLDS="[ONCOX1]" "RTN","ONCOGEN",107,0) .; S IOP=ONCOIO D EN1^DIP "RTN","ONCOGEN",108,0) .; I $E(ONCIOST)="C" K DIR S DIR(0)="E" D ^DIR S ONCOQUIT=$S(Y'>0:1,1:0) "RTN","ONCOGEN",109,0) .Q "RTN","ONCOGEN",110,0) G EX "RTN","ONCOGEN",111,0) PCEVARS ; SET VARIABLES NEEDED TO PRINT THE PCE(S). "RTN","ONCOGEN",112,0) K DASHES S $P(DASHES,"-",80)="-" "RTN","ONCOGEN",113,0) S D0=ONCODA,NODE0=^ONCO(165.5,D0,0) "RTN","ONCOGEN",114,0) S S=$P(NODE0,U,1),SITEGP=$P(^ONCO(164.2,S,0),U,1),DATEDX=$P(NODE0,U,16) "RTN","ONCOGEN",115,0) S Y=$P(NODE0,U,2),C=$P(^DD(165.5,.02,0),U,2) D Y^DIQ S PATNAM=Y "RTN","ONCOGEN",116,0) S SAVED0=D0 S D0=$P(NODE0,U,2) D SSN^ONCOES S SSN=X,D0=SAVED0 "RTN","ONCOGEN",117,0) S TOP=$P($G(^ONCO(165.5,D0,2)),U,1),TOPCOD="",TOPNAM="" "RTN","ONCOGEN",118,0) I TOP'="" S TOPNAM=$P(^ONCO(164,TOP,0),U,1),TOPCOD=$P(^ONCO(164,TOP,0),U,2) "RTN","ONCOGEN",119,0) S TOPTAB=79-$L(TOPNAM),TTAB=79-$L(TOPCOD) "RTN","ONCOGEN",120,0) S STGP=$P($G(^ONCO(165.5,ONCODA,0)),"^",1) "RTN","ONCOGEN",121,0) S STGPNM=$P($G(^ONCO(164.2,STGP,0)),"^",1),SITTAB=79-(STGPNM) "RTN","ONCOGEN",122,0) S NOS=TOPTAB-$L(PATNAM),NOS=NOS-1 K SPACES S $P(SPACES," ",NOS)=" " "RTN","ONCOGEN",123,0) S ONCONUM=D0,ONCOPA=$P(NODE0,U,2) "RTN","ONCOGEN",124,0) Q "RTN","ONCOGEN",125,0) TASK ;Queue a task "RTN","ONCOGEN",126,0) K IO("Q"),ZTUCI,ZTDTH,ZTIO,ZTSAVE "RTN","ONCOGEN",127,0) S ZTRTN="RTN^ONCOGEN" "RTN","ONCOGEN",128,0) S ZTREQ="@",ZTSAVE("ZTREQ")="",ZTSAVE("ONCODA")="",ZTSAVE("PCESEL")="" "RTN","ONCOGEN",129,0) S ZTSAVE("DATEDX")="",ZTSAVE("PCEABS")="",ZTSAVE("ONCOIO")="" "RTN","ONCOGEN",130,0) S ZTSAVE("ONCQ")="",ZTDESC="Print PCE Data" "RTN","ONCOGEN",131,0) D ^%ZTLOAD W !,"Request Queued",! "RTN","ONCOGEN",132,0) K V1,V2,ONCOLST,ZTSK Q "RTN","ONCOPA3A") 0^4^B24481302 "RTN","ONCOPA3A",1,0) ONCOPA3A ;HIRMFO/RTK-PRINT COMPLETE ABSTRACT (132c)...CONTINUED 09/15/97 "RTN","ONCOPA3A",2,0) ;;2.11;ONCOLOGY;**15,17**;Mar 07, 1995 "RTN","ONCOPA3A",3,0) ; PRINT COMPLETE ABSTRACT CONTINUED "RTN","ONCOPA3A",4,0) S NAME="FOLLOW-UP HISTORY" D FORMAT^ONCOPA1 "RTN","ONCOPA3A",5,0) W !!,TITLE,! "RTN","ONCOPA3A",6,0) I $D(^ONCO(160,PTIEN,"F",0)) D FH "RTN","ONCOPA3A",7,0) W !!," Date of Last Contact: ",ONCAB(165.5,IEN,200) "RTN","ONCOPA3A",8,0) W ?50," Last Tumor Status: ",ONCAB(165.5,IEN,95) D P Q:EX=U "RTN","ONCOPA3A",9,0) W !!," Date of Death: ",ONCAB(160,PTIEN,29) D P Q:EX=U "RTN","ONCOPA3A",10,0) W !," Cause of Death: ",ONCAB(160,PTIEN,18.9) D P Q:EX=U "RTN","ONCOPA3A",11,0) W !," ICD Cause of Death: ",ONCAB(160,PTIEN,19)," " "RTN","ONCOPA3A",12,0) S ICDCD=$P($G(^ONCO(160,PTIEN,1)),"^",3) I ICDCD'="" W $P(^ICD9(ICDCD,0),"^",3) D P Q:EX=U "RTN","ONCOPA3A",13,0) I ICDCD="" W !," State Death Cert: ",$P($G(^ONCO(160,PTIEN,1)),"^",14)," ",ONCAB(160,PTIEN,19.1) D P Q:EX=U "RTN","ONCOPA3A",14,0) W !," ICD Revision: ",ONCAB(160,PTIEN,20) D P Q:EX=U "RTN","ONCOPA3A",15,0) W !," Place of Death: ",ONCAB(160,PTIEN,21) D P Q:EX=U "RTN","ONCOPA3A",16,0) W !," Care Center at Death: ",ONCAB(160,PTIEN,24.5) D P Q:EX=U "RTN","ONCOPA3A",17,0) W !," Autopsy: ",ONCAB(160,PTIEN,22.9) D P Q:EX=U "RTN","ONCOPA3A",18,0) W !," Autopsy Date/Time: ",ONCAB(160,PTIEN,23) D P Q:EX=U "RTN","ONCOPA3A",19,0) W !," Autopsy No.: ",ONCAB(160,PTIEN,24) D P Q:EX=U "RTN","ONCOPA3A",20,0) W !," Path/Autopsy: " F PATH=0:0 S PATH=$O(^ONCO(160,PTIEN,4,PATH)) Q:PATH'>0 W !?8,$G(^ONCO(160,PTIEN,4,PATH,0)) D P Q:EX=U "RTN","ONCOPA3A",21,0) I $P($G(^ONCO(160,PTIEN,1)),"^",1)=0 W !!?30,"TUMOR Status at DEATH (Multiple Primaries)",! S CNTR=1 F PRI=0:0 S PRI=$O(^ONCO(165.5,"C",PTIEN,PRI)) Q:PRI'>0 D "RTN","ONCOPA3A",22,0) .S ZN=$G(^ONCO(165.5,PRI,0)) Q:ZN="" "RTN","ONCOPA3A",23,0) .S CNTR=CNTR+1,ST=$P(ZN,"^",1),TOP=$P($G(^ONCO(165.5,PRI,2)),"^",1) "RTN","ONCOPA3A",24,0) .S SITE=$S(TOP'="":$P($G(^ONCO(164,TOP,0)),"^",1),1:$P($G(^ONCO(164.2,ST,0)),"^",1)) "RTN","ONCOPA3A",25,0) .S TSTAT=$P($G(^ONCO(165.5,PRI,7)),"^",6) "RTN","ONCOPA3A",26,0) .I CNTR#2=0 W !?3,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),"^",1) "RTN","ONCOPA3A",27,0) .I CNTR#2'=0 W ?70,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),"^",1) D P Q:EX=U "RTN","ONCOPA3A",28,0) .Q "RTN","ONCOPA3A",29,0) W ! "RTN","ONCOPA3A",30,0) I $G(PRTPCE)=1 D PCEPRT^ONCOGEN "RTN","ONCOPA3A",31,0) Q "RTN","ONCOPA3A",32,0) FH ; Do the Follow-Up History display (#160,#400 multiple "F" node) "RTN","ONCOPA3A",33,0) F FOLH=0:0 S FOLH=$O(^ONCO(160,PTIEN,"F","AA",FOLH)) Q:FOLH'>0 D "RTN","ONCOPA3A",34,0) .S FHIEN=$O(^ONCO(160,PTIEN,"F","AA",FOLH,"")) "RTN","ONCOPA3A",35,0) .S FHZN=$G(^ONCO(160,PTIEN,"F",FHIEN,0)),FHDT=$P(FHZN,"^",1) Q:FHDT="" "RTN","ONCOPA3A",36,0) .W !,"--------------------------------------------------------------------------------------------------------------------------------" "RTN","ONCOPA3A",37,0) .F OTHPRI=0:0 S OTHPRI=$O(^ONCO(165.5,"C",PTIEN,OTHPRI)) Q:OTHPRI'>0 D "RTN","ONCOPA3A",38,0) ..S PRZN=$G(^ONCO(165.5,OTHPRI,0)),DXDT=$P(PRZN,"^",16) "RTN","ONCOPA3A",39,0) ..I DXDT=""!(DXDT>FHDT) Q "RTN","ONCOPA3A",40,0) ..S ST=$P(PRZN,"^",1),TOP=$P($G(^ONCO(165.5,OTHPRI,2)),"^",1) "RTN","ONCOPA3A",41,0) ..S SITE=$S(TOP'="":$P($G(^ONCO(164,TOP,0)),"^",1),1:$P($G(^ONCO(164.2,ST,0)),"^",1)) "RTN","ONCOPA3A",42,0) ..S TSTAT="",TSIEN=$O(^ONCO(165.5,OTHPRI,"TS","B",FHDT,"")) "RTN","ONCOPA3A",43,0) ..I TSIEN'="" S TSTAT=$P($G(^ONCO(165.5,OTHPRI,"TS",TSIEN,0)),"^",2) "RTN","ONCOPA3A",44,0) ..W !?3,SITE,": " I TSTAT'="" W $P($G(^ONCO(164.42,TSTAT,0)),"^",1) D P Q:EX=U "RTN","ONCOPA3A",45,0) ..Q "RTN","ONCOPA3A",46,0) .W !!," Last Contact: " S Y=FHDT D DD^%DT W Y "RTN","ONCOPA3A",47,0) .W ?70," Follow-up Method: " S FM=$P(FHZN,"^",4) "RTN","ONCOPA3A",48,0) .W $S(FM=0:"Reported Hospitalization",FM=1:"Readmission (inpatient or outpatient)",FM=2:"Physician",FM=3:"Patient",FM=4:"Department of Motor Vehicles",FM=5:"Medicare/Medicaid file",FM=7:"Death certificate",FM=8:"Other",FM=9:"Unknown",1:"") "RTN","ONCOPA3A",49,0) .D P Q:EX=U "RTN","ONCOPA3A",50,0) .W !," Vital Status: " S VS=$P(FHZN,"^",2) W $S(VS=0:"Dead",VS=1:"Alive",1:"") "RTN","ONCOPA3A",51,0) .W ?70," Next Follow-up Method: " S NF=$P(FHZN,"^",6) "RTN","ONCOPA3A",52,0) .W $S(NF=0:"Chart requisition",NF=1:"Physician",NF=2:"Contact letter",NF=3:"Phone call",NF=4:"Other hospital contact",NF=5:"Other",NF=8:"Foreign residents (not allowed)",NF=9:"Not followed",1:"") "RTN","ONCOPA3A",53,0) .D P Q:EX=U "RTN","ONCOPA3A",54,0) .W !," Quality of Survival: " S QS=$P(FHZN,"^",5) "RTN","ONCOPA3A",55,0) .W $S(QS=0:"Normal",QS=1:"Symptomatic & Ambulatory",QS=2:"More than 50% Ambulatory",QS=3:"Less than 50% Ambulatory",QS=4:"Bedridden",QS=8:"Not applicable, dead",QS=9:"Unknown or unspecified",1:"") "RTN","ONCOPA3A",56,0) .W ?70," Unusual Follow-up Method: " S UF=$P(FHZN,"^",7) W $S(UF=0!(UF=1):"1st unusual method",UF=2:"2nd unusual method",1:"") D P Q:EX=U "RTN","ONCOPA3A",57,0) .D P Q:EX=U "RTN","ONCOPA3A",58,0) .W !," Following Registry: " S FR=$P(FHZN,"^",9) I FR'="" W $P($G(^ONCO(160.19,FR,0)),"^",2) "RTN","ONCOPA3A",59,0) .D P Q:EX=U "RTN","ONCOPA3A",60,0) .I $D(^ONCO(160,PTIEN,"F",FHIEN,1,0)) D "RTN","ONCOPA3A",61,0) ..W !!," Comments:" "RTN","ONCOPA3A",62,0) ..F CMIEN=0:0 S CMIEN=$O(^ONCO(160,PTIEN,"F",FHIEN,1,CMIEN)) Q:CMIEN'>0 W !?5,$G(^ONCO(160,PTIEN,"F",FHIEN,1,CMIEN,0)) D P Q:EX=U "RTN","ONCOPA3A",63,0) ..Q "RTN","ONCOPA3A",64,0) .Q "RTN","ONCOPA3A",65,0) W !,"--------------------------------------------------------------------------------------------------------------------------------" "RTN","ONCOPA3A",66,0) Q "RTN","ONCOPA3A",67,0) P ; "RTN","ONCOPA3A",68,0) I ($Y'<(LINE-1)) D Q:EX=U W ! "RTN","ONCOPA3A",69,0) .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q "RTN","ONCOPA3A",70,0) .D HDR Q "RTN","ONCOPA3A",71,0) Q "RTN","ONCOPA3A",72,0) HDR ; Header "RTN","ONCOPA3A",73,0) W @IOF S PG=PG+1 "RTN","ONCOPA3A",74,0) W CRA,! "RTN","ONCOPA3A",75,0) W ?5," Patient Name: ",PATNAME,?84,"SSN: ",SSAN,! "RTN","ONCOPA3A",76,0) Q "RTN","ONCOTN2") 0^3^B47855914 "RTN","ONCOTN2",1,0) ONCOTN2 ;WASH ISC/SRR-AUTO STAGING CH20-29 ;7/6/93 15:43 "RTN","ONCOTN2",2,0) ;;2.11;ONCOLOGY;**1,15,17**;Mar 07, 1995 "RTN","ONCOTN2",3,0) 20 ;Soft Tissue Sarcoma "RTN","ONCOTN2",4,0) D @$S(ONCOED=5:"STS5",1:"STS34") "RTN","ONCOTN2",5,0) Q "RTN","ONCOTN2",6,0) STS34 ;Soft Tissue Sarcoma - 3rd and 4th ed "RTN","ONCOTN2",7,0) I $E(M)=1 S SG="4B" "RTN","ONCOTN2",8,0) E I $E(M)=0 D "RTN","ONCOTN2",9,0) .I $E(N)=1 S SG="4A" "RTN","ONCOTN2",10,0) .E I $E(N)=0,(G=1)!(G=2)!(G=3)!(G=4),(T=1)!(T=2) S SG=$S(G=1:1,G=2:2,1:3)_$S(T=1:"A",1:"B") "RTN","ONCOTN2",11,0) I '$D(SG) S SG=99 "RTN","ONCOTN2",12,0) Q "RTN","ONCOTN2",13,0) STS5 ;Soft Tissue Sarcoma - 5th ed "RTN","ONCOTN2",14,0) S TNM=T_N_M D K TNM Q "RTN","ONCOTN2",15,0) .I ((G=1)!(G=2))&(TNM="1A00") S SG="1A" Q ;IA G1-2 T1a N0 M0 "RTN","ONCOTN2",16,0) .I ((G=1)!(G=2))&(TNM="1B00") S SG="1A" Q ; T1b N0 M0 "RTN","ONCOTN2",17,0) .I ((G=1)!(G=2))&(TNM="2A00") S SG="1B" Q ;IB G1-2 T2a N0 M0 "RTN","ONCOTN2",18,0) .I ((G=1)!(G=2))&(TNM="2B00") S SG="2A" Q ;IIA G1-2 T2b N0 M0 "RTN","ONCOTN2",19,0) .I ((G=3)!(G=4))&(TNM="1A00") S SG="2B" Q ;IIB G3-4 T1a N0 M0 "RTN","ONCOTN2",20,0) .I ((G=3)!(G=4))&(TNM="1B00") S SG="2B" Q ; T1b N0 M0 "RTN","ONCOTN2",21,0) .I ((G=3)!(G=4))&(TNM="2A00") S SG="2C" Q ;IIC G3-4 T2a N0 M0 "RTN","ONCOTN2",22,0) .I ((G=3)!(G=4))&(TNM="2B00") S SG=3 Q ;III G3-4 T2b N0 M0 "RTN","ONCOTN2",23,0) .I N=1,M=0 S SG=4 Q ;IV Any G Any T N1 M0 "RTN","ONCOTN2",24,0) .I N=0,M=1 S SG=4 Q ;IV Any G Any T N0 M1 "RTN","ONCOTN2",25,0) 21 ;Carcinoma of the Skin - All ed "RTN","ONCOTN2",26,0) K SG "RTN","ONCOTN2",27,0) I $E(M)=1 S SG=4 "RTN","ONCOTN2",28,0) E I $E(M)=0 D SKNRP "RTN","ONCOTN2",29,0) I '$D(SG) S SG=99 "RTN","ONCOTN2",30,0) Q "RTN","ONCOTN2",31,0) SKNRP ;Carcinoma of the Skin "RTN","ONCOTN2",32,0) I $E(N)=1 S SG=3 "RTN","ONCOTN2",33,0) E I $E(N)=0 D "RTN","ONCOTN2",34,0) .I T="IS" S SG=0 "RTN","ONCOTN2",35,0) .E I T=1 S SG=1 "RTN","ONCOTN2",36,0) .E I (T=2)!(T=3) S SG=2 "RTN","ONCOTN2",37,0) .E I T=4 S SG=3 "RTN","ONCOTN2",38,0) Q "RTN","ONCOTN2",39,0) 22 ;Malignant Melanoma of the Skin "RTN","ONCOTN2",40,0) D @$S(ONCOED=5:"MMS5",ONCOED=4:"MMS4",1:"MMS3") "RTN","ONCOTN2",41,0) Q "RTN","ONCOTN2",42,0) MMS3 ;Malignant Melanoma of the Skin - 3rd ed "RTN","ONCOTN2",43,0) I M[1 S SG=4 "RTN","ONCOTN2",44,0) E I (T[1)!(T[2)!(T[3),N[0,M[0 S SG=+T "RTN","ONCOTN2",45,0) E I N,M[0 S SG=3 "RTN","ONCOTN2",46,0) E S SG=99 "RTN","ONCOTN2",47,0) Q "RTN","ONCOTN2",48,0) MMS4 ;Malignant Melanoma of the Skin - 4th ed "RTN","ONCOTN2",49,0) S SG=99 "RTN","ONCOTN2",50,0) I M[1 S SG=4 "RTN","ONCOTN2",51,0) E I (N[1)!(N[2),M[0 S SG=3 "RTN","ONCOTN2",52,0) E I N[0,M[0 S SG=$S((T[3)!(T[4):2,(T[1)!(T[2):1,T["IS":0,1:99) "RTN","ONCOTN2",53,0) Q "RTN","ONCOTN2",54,0) MMS5 ;Malignant Melanoma of the Skin - 5th ed "RTN","ONCOTN2",55,0) I T="IS" S TNM=T_$E(N,1)_$E(M,1) "RTN","ONCOTN2",56,0) E S TNM=$E(T,1)_$E(N,1)_$E(M,1) "RTN","ONCOTN2",57,0) D K TNM Q "RTN","ONCOTN2",58,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCOTN2",59,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCOTN2",60,0) .I TNM=200 S SG=1 Q ; T2 N0 M0 "RTN","ONCOTN2",61,0) .I TNM=300 S SG=2 Q ;II T3 N0 M0 "RTN","ONCOTN2",62,0) .I TNM=400 S SG=3 Q ;III T4 N0 M0 "RTN","ONCOTN2",63,0) .I $E(N,1)=1,M=0 S SG=3 Q ; Any T N1 M0 "RTN","ONCOTN2",64,0) .I $E(N,1)=2,M=0 S SG=3 Q ; Any T N2 M0 "RTN","ONCOTN2",65,0) .I $E(M,1)=1 S SG=4 Q ;IV Any T Any N M1 "RTN","ONCOTN2",66,0) 23 ;Breast "RTN","ONCOTN2",67,0) I $E(M)=1 S SG=4 "RTN","ONCOTN2",68,0) E I ($E(N)=3)!($E(T)=4),$E(M)=0 S SG="3B" "RTN","ONCOTN2",69,0) E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0 "RTN","ONCOTN2",70,0) E I $E(T)=1,$E(N)=0,$E(M)=0 S SG=1 "RTN","ONCOTN2",71,0) E I ($E(T)=0)!($E(T)=1),$E(N)=1,$E(M)=0 S SG="2A" "RTN","ONCOTN2",72,0) E I $E(T)=2,$E(N)=0,$E(M)=0 S SG="2A" "RTN","ONCOTN2",73,0) E I $E(T)=2,$E(N)=1,$E(M)=0 S SG="2B" "RTN","ONCOTN2",74,0) E I $E(T)=3,$E(N)=0,$E(M)=0 S SG="2B" "RTN","ONCOTN2",75,0) E I ($E(T)=0)!($E(T)=1)!($E(T)=2)!($E(T)=3),$E(N)=2,$E(M)=0 S SG="3A" "RTN","ONCOTN2",76,0) E I $E(T)=3,$E(N)=1,$E(M)=0 S SG="3A" "RTN","ONCOTN2",77,0) E S SG=99 "RTN","ONCOTN2",78,0) Q "RTN","ONCOTN2",79,0) 24 ;Cervix Uteri "RTN","ONCOTN2",80,0) D @$S(ONCOED=5:"CEU5",1:"CEU34") "RTN","ONCOTN2",81,0) Q "RTN","ONCOTN2",82,0) CEU34 ;Cervix Uteri - 3rd and 4th ed "RTN","ONCOTN2",83,0) I $E(M)=1 S SG="4B" "RTN","ONCOTN2",84,0) E I $E(T)=4,$E(M)=0 S SG="4A" "RTN","ONCOTN2",85,0) E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0 "RTN","ONCOTN2",86,0) E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A" "RTN","ONCOTN2",87,0) E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B" "RTN","ONCOTN2",88,0) E I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A" "RTN","ONCOTN2",89,0) E I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B" "RTN","ONCOTN2",90,0) E I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A" "RTN","ONCOTN2",91,0) E I ($E(T)=1)!($E(T)=2)!($E(T,1,2)="3A"),$E(N)=1,$E(M)=0 S SG="3B" "RTN","ONCOTN2",92,0) E I $E(T,1,2)="3B",$E(M)=0 S SG="3B" "RTN","ONCOTN2",93,0) E S SG=99 "RTN","ONCOTN2",94,0) Q "RTN","ONCOTN2",95,0) CEU5 ;Cervix Uteri - 5th ed "RTN","ONCOTN2",96,0) S TNM=T_N_M D K TNM Q "RTN","ONCOTN2",97,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCOTN2",98,0) .I TNM="1A100" S SG="1A1" Q ;IA1 T1a1 N0 M0 "RTN","ONCOTN2",99,0) .I TNM="1A200" S SG="1A2" Q ;IA2 T1a2 N0 M0 "RTN","ONCOTN2",100,0) .I TNM="1B100" S SG="1B1" Q ;IB1 T1b1 N0 M0 "RTN","ONCOTN2",101,0) .I TNM="1B200" S SG="1B2" Q ;IB2 T1b2 N0 M0 "RTN","ONCOTN2",102,0) .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0 "RTN","ONCOTN2",103,0) .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0 "RTN","ONCOTN2",104,0) .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0 "RTN","ONCOTN2",105,0) .I TNM=110 S SG="3B" Q ;IIIB T1 N1 M0 "RTN","ONCOTN2",106,0) .I TNM=210 S SG="3B" Q ; T2 N1 M0 "RTN","ONCOTN2",107,0) .I TNM="3A10" S SG="3B" Q ; T3a N1 M0 "RTN","ONCOTN2",108,0) .I T="3B",M=0 S SG="3B" Q ; T3b Any N M0 "RTN","ONCOTN2",109,0) .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0 "RTN","ONCOTN2",110,0) .I M=1 S SG="4B" Q ;IVB Any T Any N M1 "RTN","ONCOTN2",111,0) 25 ;Corpus Uteri "RTN","ONCOTN2",112,0) I $P($G(^ONCO(165.5,D0,2)),U,1)=67570 G FT5 "RTN","ONCOTN2",113,0) I (ONCOED=4)!(ONCOED+5) G CO45 "RTN","ONCOTN2",114,0) I $$GTT^ONCOU55(D0) G GTT5 "RTN","ONCOTN2",115,0) CO3 ;Corpus Uteri - 3rd ed "RTN","ONCOTN2",116,0) I $E(M)=1 S SG="4B" "RTN","ONCOTN2",117,0) E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0 "RTN","ONCOTN2",118,0) E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A" "RTN","ONCOTN2",119,0) E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B" "RTN","ONCOTN2",120,0) E I $E(T)=2,$E(N)=0,$E(M)=0 S SG=2 "RTN","ONCOTN2",121,0) E I $E(T)=1,$E(N)=1,$E(M)=0 S SG=3 "RTN","ONCOTN2",122,0) E I $E(T)=2,$E(N)=1,$E(M)=0 S SG=3 "RTN","ONCOTN2",123,0) E I $E(T)=3,$E(M)=0 S SG=3 "RTN","ONCOTN2",124,0) E I $E(T)=4,$E(M)=0 S SG="4A" "RTN","ONCOTN2",125,0) E S SG=99 "RTN","ONCOTN2",126,0) Q "RTN","ONCOTN2",127,0) CO45 ;Corpus Uteri - 4th and 5th ed "RTN","ONCOTN2",128,0) I $E(M)=1 S SG="4B" "RTN","ONCOTN2",129,0) E I $E(T,1,2)="IS",$E(N)=0,$E(M)=0 S SG=0 "RTN","ONCOTN2",130,0) E I $E(T,1,2)="1A",$E(N)=0,$E(M)=0 S SG="1A" "RTN","ONCOTN2",131,0) E I $E(T,1,2)="1B",$E(N)=0,$E(M)=0 S SG="1B" "RTN","ONCOTN2",132,0) E I $E(T,1,2)="1C",$E(N)=0,$E(M)=0 S SG="1C" "RTN","ONCOTN2",133,0) E I $E(T,1,2)="2A",$E(N)=0,$E(M)=0 S SG="2A" "RTN","ONCOTN2",134,0) E I $E(T,1,2)="2B",$E(N)=0,$E(M)=0 S SG="2B" "RTN","ONCOTN2",135,0) E I $E(T,1,2)="3A",$E(N)=0,$E(M)=0 S SG="3A" "RTN","ONCOTN2",136,0) E I $E(T,1,2)="3B",$E(N)=0,$E(M)=0 S SG="3B" "RTN","ONCOTN2",137,0) E I $E(T)=1,$E(N)=1,$E(M)=0 S SG="3C" "RTN","ONCOTN2",138,0) E I $E(T)=2,$E(N)=1,$E(M)=0 S SG="3C" "RTN","ONCOTN2",139,0) E I $E(T)=3,$E(N)=1,$E(M)=0 S SG="3C" "RTN","ONCOTN2",140,0) E I $E(T)=4,$E(M)=0 S SG="4A" "RTN","ONCOTN2",141,0) E S SG=99 "RTN","ONCOTN2",142,0) Q "RTN","ONCOTN2",143,0) FT5 ;Fallopian Tube - 5th ed "RTN","ONCOTN2",144,0) S TNM=T_N_M D K TNM Q "RTN","ONCOTN2",145,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCOTN2",146,0) .I TNM="1A00" S SG="1A" Q ;IA T1a N0 M0 "RTN","ONCOTN2",147,0) .I TNM="1B00" S SG="1B" Q ;IB T1b N0 M0 "RTN","ONCOTN2",148,0) .I TNM="1C00" S SG="1C" Q ;IC T1c N0 M0 "RTN","ONCOTN2",149,0) .I TNM="2A00" S SG="2A" Q ;IIA T2a N0 M0 "RTN","ONCOTN2",150,0) .I TNM="2B00" S SG="2B" Q ;IIB T2b N0 M0 "RTN","ONCOTN2",151,0) .I TNM="2C00" S SG="2C" Q ;IIC T2c N0 M0 "RTN","ONCOTN2",152,0) .I TNM="3A00" S SG="3A" Q ;IIIA T3a N0 M0 "RTN","ONCOTN2",153,0) .I TNM="3B00" S SG="3B" Q ;IIIB T3b N0 M0 "RTN","ONCOTN2",154,0) .I TNM="3C00" S SG="3C" Q ;IIIC T3c N0 M0 "RTN","ONCOTN2",155,0) .I N=1,M=0 S SG="3C" Q ; Any T N1 M0 "RTN","ONCOTN2",156,0) .I M=1 S SG=4 Q ;IV Any T Any N M1 "RTN","ONCOTN2",157,0) GTT5 ;Gestational Trophoblastic Tumors - 5th ed "RTN","ONCOTN2",158,0) S:$G(STGIND)="C" RF=$P($G(^ONCO(165.5,D0,2.1)),"^",12) "RTN","ONCOTN2",159,0) S:$G(STGIND)="P" RF=$P($G(^ONCO(165.5,D0,2.1)),"^",13) "RTN","ONCOTN2",160,0) S TNM=T_M_RF D K TNM,RF Q ; T M Risk Factors "RTN","ONCOTN2",161,0) .I TNM="100" S SG="1A" Q ;IA T1 M0 w/o "RTN","ONCOTN2",162,0) .I TNM="101" S SG="1B" Q ;IB T1 M0 1 "RTN","ONCOTN2",163,0) .I TNM="102" S SG="1B" Q ; T1 M0 1 "RTN","ONCOTN2",164,0) .I TNM="103" S SG="1C" Q ;IC T1 M0 2 "RTN","ONCOTN2",165,0) .I TNM="200" S SG="2A" Q ;IIA T2 M0 w/o "RTN","ONCOTN2",166,0) .I TNM="201" S SG="2B" Q ;IIB T2 M0 1 "RTN","ONCOTN2",167,0) .I TNM="202" S SG="2B" Q ; T2 M0 1 "RTN","ONCOTN2",168,0) .I TNM="203" S SG="2C" Q ;IIC T2 M0 2 "RTN","ONCOTN2",169,0) .I M="1A",RF=0 S SG="3A" Q ;IIIA Any T M1a w/o "RTN","ONCOTN2",170,0) .I M="1A",RF=1 S SG="3B" Q ;IIIB Any T M1a 1 "RTN","ONCOTN2",171,0) .I M="1A",RF=2 S SG="3B" Q ; Any T M1a 1 "RTN","ONCOTN2",172,0) .I M="1A",RF=3 S SG="3C" Q ;IIIC Any T M1a 2 "RTN","ONCOTN2",173,0) .I M="1B",RF=0 S SG="4A" Q ;IVA Any T M1b w/o "RTN","ONCOTN2",174,0) .I M="1B",RF=1 S SG="4B" Q ;IVB Any T M1b 1 "RTN","ONCOTN2",175,0) .I M="1B",RF=2 S SG="4B" Q ; Any T M1b 1 "RTN","ONCOTN2",176,0) .I M="1B",RF=3 S SG="4C" Q ;IVC Any T M1b 2 "RTN","ONCOTN2",177,0) 26 ;Ovary - same for 3rd and 4th ed "RTN","ONCOTN2",178,0) I M S SG=4 "RTN","ONCOTN2",179,0) E I $E(M)=0,$E(N)=0,$L(T)=2,"123"[$E(T),"ABC"[$E(T,2) S SG=T "RTN","ONCOTN2",180,0) E I $E(N)=1,$E(M)=0 S SG="3C" "RTN","ONCOTN2",181,0) E S SG=99 "RTN","ONCOTN2",182,0) Q "RTN","ONCOTN2",183,0) 27 ;Vagina "RTN","ONCOTN2",184,0) D @$S(ONCOED=5:"VA5",1:"VA34") "RTN","ONCOTN2",185,0) Q "RTN","ONCOTN2",186,0) VA34 ;Vagina - 3rd and 4th ed "RTN","ONCOTN2",187,0) S SG=99 "RTN","ONCOTN2",188,0) I M[1 S SG="4B" "RTN","ONCOTN2",189,0) E I M[0 D "RTN","ONCOTN2",190,0) .I T[4 S SG="4A" "RTN","ONCOTN2",191,0) .E I N[2,(T[1)!(T[2)!(T[3) S SG="4A" "RTN","ONCOTN2",192,0) .E I N[1,(T[1)!(T[2)!(T[3) S SG=3 "RTN","ONCOTN2",193,0) .E I N[0,(T["IS")!(T[1)!(T[2)!(T[3) S SG=+T "RTN","ONCOTN2",194,0) Q "RTN","ONCOTN2",195,0) VA5 ;Vagina - 5th ed "RTN","ONCOTN2",196,0) S TNM=T_N_M D K TNM Q "RTN","ONCOTN2",197,0) .I TNM="IS00" S SG=0 Q ;0 Tis N0 M0 "RTN","ONCOTN2",198,0) .I TNM=100 S SG=1 Q ;I T1 N0 M0 "RTN","ONCOTN2",199,0) .I TNM=200 S SG=2 Q ;II T2 N0 M0 "RTN","ONCOTN2",200,0) .I TNM=110 S SG=3 Q ;III T1 N1 M0 "RTN","ONCOTN2",201,0) .I TNM=210 S SG=3 Q ; T2 N1 M0 "RTN","ONCOTN2",202,0) .I TNM=300 S SG=3 Q ; T3 N0 M0 "RTN","ONCOTN2",203,0) .I TNM=310 S SG=3 Q ; T3 N1 M0 "RTN","ONCOTN2",204,0) .I T=4,M=0 S SG="4A" Q ;IVA T4 Any N M0 "RTN","ONCOTN2",205,0) .I M=1 S SG="4B" Q ;IVB Any T Any N M1 "RTN","ONCOTN2",206,0) 28 ;Vulva "RTN","ONCOTN2",207,0) G 28^ONCOTN2A "RTN","ONCOTN2",208,0) 29 ;Prostate "RTN","ONCOTN2",209,0) G 29^ONCOTN2A "RTN","ONCPRE17") 0^9^B115675 "RTN","ONCPRE17",1,0) ONCPRE17 ;HIRMFO/RTK-PRE-INSTALL ROUTINE FOR PATCH ONC*2.11*17 "RTN","ONCPRE17",2,0) ;;2.11;ONCOLOGY;**17**;Mar 07, 1995 "RTN","ONCPRE17",3,0) ; "RTN","ONCPRE17",4,0) ; Kill data in the following Global. New data will be "RTN","ONCPRE17",5,0) ; re-created by the Patch 17 build. "RTN","ONCPRE17",6,0) K ^ONCO(164.6) ;TYPE OF STAGING SYSTEM (PEDIATRIC) "RTN","ONCPRE17",7,0) Q "RTN","ONCPTX") 0^6^B51723628 "RTN","ONCPTX",1,0) ONCPTX ;HIRMFO/GWB - FIRST COURSE OF TREATMENT PRINT;9/24/97 "RTN","ONCPTX",2,0) ;;2.11;ONCOLOGY;**13,15,17**;Mar 07, 1995 "RTN","ONCPTX",3,0) PRT N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",4,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",5,0) S DR="49;58.3;58.1;124;50;58.2;51;51.2;52;52.2;53;53.2;54;54.2;55;55.2;57;57.2;346;133;560" "RTN","ONCPTX",6,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",7,0) W !," First course of treatment...: ",ONC(165.5,D0,49) "RTN","ONCPTX",8,0) S TXT=ONC(165.5,D0,58.1),LEN=38 D TXT "RTN","ONCPTX",9,0) W !," Non cancer-directed surgery.: ",ONC(165.5,D0,58.3)," ",TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",10,0) W !," Date of no treatment........: ",ONC(165.5,D0,124) "RTN","ONCPTX",11,0) S TXT=ONC(165.5,D0,58.2),LEN=38 D TXT "RTN","ONCPTX",12,0) W !," Surgery of primary site.....: ",ONC(165.5,D0,50)," ",TXT1 W:TXT2'="" !,?43,TXT2 "RTN","ONCPTX",13,0) W !," Radiation...................: ",ONC(165.5,D0,51)," ",ONC(165.5,D0,51.2) "RTN","ONCPTX",14,0) W !," Radiation therapy to CNS....: ",ONC(165.5,D0,52)," ",ONC(165.5,D0,52.2) "RTN","ONCPTX",15,0) W !," Chemotherapy................: ",ONC(165.5,D0,53)," ",ONC(165.5,D0,53.2) "RTN","ONCPTX",16,0) W !," Hormone therapy.............: ",ONC(165.5,D0,54)," ",ONC(165.5,D0,54.2) "RTN","ONCPTX",17,0) W !," Immunotherapy...............: ",ONC(165.5,D0,55)," ",ONC(165.5,D0,55.2) "RTN","ONCPTX",18,0) W !," Other treatment.............: ",ONC(165.5,D0,57)," ",ONC(165.5,D0,57.2) "RTN","ONCPTX",19,0) W !," Protocol eligibility status.: ",ONC(165.5,D0,346) "RTN","ONCPTX",20,0) W !," Protocol participation......: ",ONC(165.5,D0,560) "RTN","ONCPTX",21,0) W !," Year put on protocol........: ",ONC(165.5,D0,133) "RTN","ONCPTX",22,0) W !,DASHES "RTN","ONCPTX",23,0) Q "RTN","ONCPTX",24,0) CDS I $P($G(^ONCO(165.5,DA,3)),U,38)="" W ! Q ;58.2;SURGERY OF PRIMARY SITE "RTN","ONCPTX",25,0) W !!," -----------------------" "RTN","ONCPTX",26,0) W !," CANCER DIRECTED SURGERY" "RTN","ONCPTX",27,0) W !," -----------------------" "RTN","ONCPTX",28,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",29,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",30,0) S DR="50;58.2;74;59;23;50.1;58;138;139;140" "RTN","ONCPTX",31,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",32,0) S TXT=ONC(165.5,D0,58.2),LEN=49 D TXT "RTN","ONCPTX",33,0) W !," Surgery of primary site.....: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",34,0) W !," Surgery of primary site date: ",ONC(165.5,D0,50) "RTN","ONCPTX",35,0) S TXT=ONC(165.5,D0,50.1),LEN=49 D TXT "RTN","ONCPTX",36,0) W !," Surgery hospital............: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",37,0) S TXT=ONC(165.5,D0,74),LEN=49 D TXT "RTN","ONCPTX",38,0) W:DATEDX>2951231 !," Surgical approach...........: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",39,0) S TXT=ONC(165.5,D0,59),LEN=49 D TXT "RTN","ONCPTX",40,0) W !," Surgical margins............: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",41,0) S TXT=ONC(165.5,D0,138),LEN=49 D TXT "RTN","ONCPTX",42,0) W:DATEDX>2971231 !," Scope of lymph node surgery.: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",43,0) S TXT=ONC(165.5,D0,140),LEN=49 D TXT "RTN","ONCPTX",44,0) W:DATEDX>2971231 !," Number of nodes removed.....: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",45,0) S TXT=ONC(165.5,D0,139),LEN=49 D TXT "RTN","ONCPTX",46,0) W:DATEDX>2971231 !," Surgery of other sites/nodes: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",47,0) S TXT=ONC(165.5,D0,23),LEN=49 D TXT "RTN","ONCPTX",48,0) W:DATEDX>2951231 !," Reconstruction/restoration..: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",49,0) W !," Reason for no surgery.......: ",ONC(165.5,D0,58) "RTN","ONCPTX",50,0) W !,DASHES "RTN","ONCPTX",51,0) Q "RTN","ONCPTX",52,0) RAD1 I $P($G(^ONCO(165.5,DA,3)),U,6)="" W ! Q ;51.2;RADIATION "RTN","ONCPTX",53,0) W !!," ---------" "RTN","ONCPTX",54,0) W !," RADIATION" "RTN","ONCPTX",55,0) W !," ---------" "RTN","ONCPTX",56,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",57,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",58,0) S DR="51.2;51;51.1;363;51.3;75" "RTN","ONCPTX",59,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",60,0) W !," Radiation...................: ",ONC(165.5,DA,51.2) "RTN","ONCPTX",61,0) W !," Radiation date..............: ",ONC(165.5,DA,51) "RTN","ONCPTX",62,0) S TXT=ONC(165.5,D0,51.1),LEN=49 D TXT "RTN","ONCPTX",63,0) W !," Radiation hospital..........: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",64,0) W !," Regional treatment modality.: ",ONC(165.5,DA,363) "RTN","ONCPTX",65,0) W !," Radiation/surgery sequence..: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",66,0) W:DATEDX>2951231 !," Reason for no radiation.....: ",ONC(165.5,DA,75) "RTN","ONCPTX",67,0) W !,DASHES "RTN","ONCPTX",68,0) Q "RTN","ONCPTX",69,0) RAD2 I $P($G(^ONCO(165.5,DA,3)),U,6)="" W ! Q ;51.2;RADIATION "RTN","ONCPTX",70,0) W !!," ---------" "RTN","ONCPTX",71,0) W !," RADIATION" "RTN","ONCPTX",72,0) W !," ---------" "RTN","ONCPTX",73,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",74,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",75,0) S DR="51.2;51;51.1;442;56;125;126;127;363;51.3;128;132;129;130;75" "RTN","ONCPTX",76,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",77,0) W !," Radiation...................: ",ONC(165.5,DA,51.2) "RTN","ONCPTX",78,0) W !," Radiation date..............: ",ONC(165.5,DA,51) "RTN","ONCPTX",79,0) S TXT=ONC(165.5,D0,51.1),LEN=49 D TXT "RTN","ONCPTX",80,0) W !," Radiation hospital..........: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",81,0) W !," Regional dose:cGy...........: ",ONC(165.5,DA,442) "RTN","ONCPTX",82,0) W !," Number of treatments........: ",ONC(165.5,DA,56) "RTN","ONCPTX",83,0) W !," Radiation treatment volume..: ",ONC(165.5,DA,125) "RTN","ONCPTX",84,0) W !," Location of radiation.......: ",ONC(165.5,DA,126) "RTN","ONCPTX",85,0) W !," Intent of radiation.........: ",ONC(165.5,DA,127) "RTN","ONCPTX",86,0) W !," Regional treatment modality.: ",ONC(165.5,DA,363) "RTN","ONCPTX",87,0) W !," Radiation/surgery sequence..: ",ONC(165.5,DA,51.3) "RTN","ONCPTX",88,0) W !," Radiation completion status.: ",ONC(165.5,DA,128) "RTN","ONCPTX",89,0) W !," Radiation local control stat: ",ONC(165.5,DA,132) "RTN","ONCPTX",90,0) W !," Radiation auxiliary volume..: ",ONC(165.5,DA,129) "RTN","ONCPTX",91,0) W !," Radiation auxiliary date....: ",ONC(165.5,DA,130) "RTN","ONCPTX",92,0) W !," Reason for no radiation.....: ",ONC(165.5,DA,75) "RTN","ONCPTX",93,0) W !,DASHES "RTN","ONCPTX",94,0) Q "RTN","ONCPTX",95,0) CNS I $P($G(^ONCO(165.5,DA,3)),U,10)="" W ! Q ;52.2;RADIATION THERAPY TO CNS "RTN","ONCPTX",96,0) W !!," ------------------------" "RTN","ONCPTX",97,0) W !," RADIATION THERAPY TO CNS" "RTN","ONCPTX",98,0) W !," ------------------------" "RTN","ONCPTX",99,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",100,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",101,0) S DR="52.2;52;52.1;" "RTN","ONCPTX",102,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",103,0) W !," Radiation therapy/CNS.......: "_ONC(165.5,DA,52.2) "RTN","ONCPTX",104,0) W !," Radiation therapy/CNS date..: "_ONC(165.5,DA,52) "RTN","ONCPTX",105,0) S TXT=ONC(165.5,D0,52.1),LEN=49 D TXT "RTN","ONCPTX",106,0) W !," Radiation therapy/CNS hosp..: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",107,0) W !,DASHES "RTN","ONCPTX",108,0) Q "RTN","ONCPTX",109,0) CHE I $P($G(^ONCO(165.5,DA,3)),U,13)="" W ! Q ;53.2;CHEMOTHERAPY "RTN","ONCPTX",110,0) W !!," ------------" "RTN","ONCPTX",111,0) W !," CHEMOTHERAPY" "RTN","ONCPTX",112,0) W !," ------------" "RTN","ONCPTX",113,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",114,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",115,0) S DR="53.2;53;53.1;76" "RTN","ONCPTX",116,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",117,0) W !," Chemotherapy................: "_ONC(165.5,DA,53.2) "RTN","ONCPTX",118,0) W !," Chemotherapy date...........: "_ONC(165.5,DA,53) "RTN","ONCPTX",119,0) S TXT=ONC(165.5,D0,53.1),LEN=49 D TXT "RTN","ONCPTX",120,0) W !," Chemotherapy hospital.......: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",121,0) W:DATEDX>2951231 !," Reason for no chemotherapy..: "_ONC(165.5,DA,76) "RTN","ONCPTX",122,0) W !,DASHES "RTN","ONCPTX",123,0) Q "RTN","ONCPTX",124,0) HOR I $P($G(^ONCO(165.5,DA,3)),U,16)="" W ! Q ;54.2;HORMONE THERAPY "RTN","ONCPTX",125,0) W !!," ---------------" "RTN","ONCPTX",126,0) W !," HORMONE THERAPY" "RTN","ONCPTX",127,0) W !," ---------------" "RTN","ONCPTX",128,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",129,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",130,0) S DR="54.2;54;54.1;77" "RTN","ONCPTX",131,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",132,0) W !," Hormone therapy.............: "_ONC(165.5,DA,54.2) "RTN","ONCPTX",133,0) W !," Hormone therapy date........: "_ONC(165.5,DA,54) "RTN","ONCPTX",134,0) S TXT=ONC(165.5,D0,54.1),LEN=49 D TXT "RTN","ONCPTX",135,0) W !," Hormone therapy hospital....: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",136,0) W:DATEDX>2951231 !," Reason for no hormonetherapy: "_ONC(165.5,DA,77) "RTN","ONCPTX",137,0) W !,DASHES "RTN","ONCPTX",138,0) Q "RTN","ONCPTX",139,0) IMM I $P($G(^ONCO(165.5,DA,3)),U,19)="" W ! Q ;55.2;IMMUNOTHERAPY "RTN","ONCPTX",140,0) W !!," -------------" "RTN","ONCPTX",141,0) W !," IMMUNOTHERAPY" "RTN","ONCPTX",142,0) W !," -------------" "RTN","ONCPTX",143,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",144,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",145,0) S DR="55.2;55;55.1" "RTN","ONCPTX",146,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",147,0) W !," Immunotherapy...............: "_ONC(165.5,DA,55.2) "RTN","ONCPTX",148,0) W !," Immunotherapy date..........: "_ONC(165.5,DA,55) "RTN","ONCPTX",149,0) S TXT=ONC(165.5,D0,55.1),LEN=49 D TXT "RTN","ONCPTX",150,0) W !," Immunotherapy hospital......: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",151,0) W !,DASHES "RTN","ONCPTX",152,0) Q "RTN","ONCPTX",153,0) OTH I $P($G(^ONCO(165.5,DA,3)),U,25)="" W ! Q ;57.2;OTHER TREATMENT "RTN","ONCPTX",154,0) W !!," ---------------" "RTN","ONCPTX",155,0) W !," OTHER TREATMENT" "RTN","ONCPTX",156,0) W !," ---------------" "RTN","ONCPTX",157,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",158,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",159,0) S DR="57.2;57;57.1" "RTN","ONCPTX",160,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",161,0) W !," Other treatment.............: "_ONC(165.5,DA,57.2) "RTN","ONCPTX",162,0) W !," Other treatment date........: "_ONC(165.5,DA,57) "RTN","ONCPTX",163,0) S TXT=ONC(165.5,D0,57.1),LEN=49 D TXT "RTN","ONCPTX",164,0) W !," Other treatment hospital....: ",TXT1 W:TXT2'="" !,?32,TXT2 "RTN","ONCPTX",165,0) W !,DASHES "RTN","ONCPTX",166,0) Q "RTN","ONCPTX",167,0) PRO I $P($G(^ONCO(165.5,DA,"BLA2")),U,1)="" W ! Q ;346;PROTOCOL ELIGIBILITY STATUS "RTN","ONCPTX",168,0) W !!," ----------------------------------" "RTN","ONCPTX",169,0) W !," PROTOCOL ELIGIBILITY/PARTICIPATION" "RTN","ONCPTX",170,0) W !," ----------------------------------" "RTN","ONCPTX",171,0) N DI,DIC,DR,DA,DIQ,ONC "RTN","ONCPTX",172,0) S DIC="^ONCO(165.5," "RTN","ONCPTX",173,0) S DR="346;133;560" "RTN","ONCPTX",174,0) S DA=D0,DIQ="ONC" D EN^DIQ1 "RTN","ONCPTX",175,0) W !," Protocol eligibility status.: "_ONC(165.5,DA,346) "RTN","ONCPTX",176,0) W !," Protocol participation......: "_ONC(165.5,DA,560) "RTN","ONCPTX",177,0) W !," Year put on protocol........: "_ONC(165.5,DA,133) "RTN","ONCPTX",178,0) W !,DASHES "RTN","ONCPTX",179,0) Q "RTN","ONCPTX",180,0) TXT S (TXT1,TXT2)="",LOS=$L(TXT) I LOS67899)!(X<67000)!(X?.E1"."1N.N) X "^DD",164,164,.001,3) Type a Number between 67000 and 67899, 0 Decimal Digits "^DD",164,164,.001,21,0) ^^8^8^2930512^^ "^DD",164,164,.001,21,1,0) This field, artificially created, provides easy direct access to the file. "^DD",164,164,.001,21,2,0) "^DD",164,164,.001,21,3,0) The first two digits are the ASCII value of the first character of the "^DD",164,164,.001,21,4,0) ICD-O code. The last three digits are the numeric portion of the ICD-O "^DD",164,164,.001,21,5,0) code, omitting the decimal point. "^DD",164,164,.001,21,6,0) "^DD",164,164,.001,21,7,0) Do not confuse this code with the 5-digit MORPHOLOGY code. One ICD-O "^DD",164,164,.001,21,8,0) TOPOGRAPHY code may have several corresponding MORPHOLOGY codes. "^DD",164,164,.001,"DT") 2920107 "^DD",164,164,.01,0) NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X "^DD",164,164,.01,1,0) ^.1 "^DD",164,164,.01,1,1,0) 164^B "^DD",164,164,.01,1,1,1) S ^ONCO(164,"B",$E(X,1,30),DA)="" "^DD",164,164,.01,1,1,2) K ^ONCO(164,"B",$E(X,1,30),DA) "^DD",164,164,.01,3) ANSWER MUST BE 3-30 CHARACTERS IN LENGTH "^DD",164,164,.01,21,0) ^^1^1^2920528^ "^DD",164,164,.01,21,1,0) FREE TEXT FIELD FOR NAME. "^DD",164,164,.01,"DT") 2960703 "^DD",164,164,.05,0) SURGERY CODING^P164.2'^ONCO(164.2,^0;5^Q "^DD",164,164,.05,21,0) ^^1^1^2920528^ "^DD",164,164,.05,21,1,0) POINTS TO LIST OF SEER SURGERY CODES. "^DD",164,164,.05,"DT") 2900125 "^DD",164,164,.06,0) *ICDO SITE/GP^RP164.08'^ONCO(164.08,^0;6^Q "^DD",164,164,.06,1,0) ^.1 "^DD",164,164,.06,1,1,0) 164^F "^DD",164,164,.06,1,1,1) S ^ONCO(164,"F",$E(X,1,30),DA)="" "^DD",164,164,.06,1,1,2) K ^ONCO(164,"F",$E(X,1,30),DA) "^DD",164,164,.06,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164,.06,1,1,"%D",1,0) Indexes file by *ICDO SITE/GP. "^DD",164,164,.06,21,0) ^^1^1^2930618^^ "^DD",164,164,.06,21,1,0) RECORDS THE ICDO SITE GROUP, GENERAL TERMS. "^DD",164,164,.06,23,0) ^^2^2^2930618^ "^DD",164,164,.06,23,1,0) This field has been superseded by the REPORTING SITE GROUP Field (#.065). "^DD",164,164,.06,23,2,0) It will be eliminated from releases issued on or after December 18, 1994. "^DD",164,164,.06,"DT") 2930618 "^DD",164,164,.065,0) REPORTING SITE GROUP^P164.14'^ONCO(164.14,^4;1^Q "^DD",164,164,.065,1,0) ^.1 "^DD",164,164,.065,1,1,0) 164^I "^DD",164,164,.065,1,1,1) S ^ONCO(164,"I",$E(X,1,30),DA)="" "^DD",164,164,.065,1,1,2) K ^ONCO(164,"I",$E(X,1,30),DA) "^DD",164,164,.065,1,1,"%D",0) ^^2^2^2930622^ "^DD",164,164,.065,1,1,"%D",1,0) This cross-reference facilitates a backward pointer from the AJCC SITE "^DD",164,164,.065,1,1,"%D",2,0) GROUP FOR REPORTING File (164.14). "^DD",164,164,.065,1,1,"DT") 2930622 "^DD",164,164,.065,21,0) ^^1^1^2930820^^ "^DD",164,164,.065,21,1,0) This is the site group under which the topography is classified on reports. "^DD",164,164,.065,"DT") 2930622 "^DD",164,164,.07,0) PAIRED ORGAN^S^1:LATERALITY CODE REQUIRED;^0;7^Q "^DD",164,164,.07,21,0) ^^2^2^2920528^ "^DD",164,164,.07,21,1,0) RECORDS THE EXISTENCE OF PAIRED ORGANS, THOSE ORGANS THAT ARE "^DD",164,164,.07,21,2,0) TWO IN NUMBER, SUCH AS KIDNEY, TESTES, ARMS, LEGS, LUNGS, ETC. "^DD",164,164,.07,"DT") 2900516 "^DD",164,164,.08,0) SEX^S^1:MALE ONLY;2:FEMALE ONLY;^0;8^Q "^DD",164,164,.08,21,0) ^^1^1^2920528^ "^DD",164,164,.08,21,1,0) RECORDS THE PATIENT'S SEX. "^DD",164,164,.08,"DT") 2920107 "^DD",164,164,.09,0) ICDO-1 CODE^F^^0;9^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X "^DD",164,164,.09,1,0) ^.1 "^DD",164,164,.09,1,1,0) 164^G^MUMPS "^DD",164,164,.09,1,1,1) S ^ONCO(164,"G","T"_X,DA)="" "^DD",164,164,.09,1,1,2) K ^ONCO(164,"G","T"_X,DA) "^DD",164,164,.09,1,1,"%D",0) ^^1^1^2930910^ "^DD",164,164,.09,1,1,"%D",1,0) Indexes the file in string collating sequence order by ICDO-1 CODE. "^DD",164,164,.09,1,1,"DT") 2911209 "^DD",164,164,.09,3) Answer must be 5 characters in length. "^DD",164,164,.09,21,0) ^^2^2^2920528^ "^DD",164,164,.09,21,1,0) OLD CODES, FROM THE INTERNATIONAL CLASSIFICATION OF DISEASE FOR "^DD",164,164,.09,21,2,0) ONCOLOGY 1987 FIELD TRIAL EDITION. "^DD",164,164,.09,"DT") 2911209 "^DD",164,164,1,0) CODE^RF^^0;2^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X "^DD",164,164,1,1,0) ^.1 "^DD",164,164,1,1,1,0) 164^H "^DD",164,164,1,1,1,1) S ^ONCO(164,"H",$E(X,1,30),DA)="" "^DD",164,164,1,1,1,2) K ^ONCO(164,"H",$E(X,1,30),DA) "^DD",164,164,1,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164,1,1,1,"%D",1,0) Indexes file by CODE. "^DD",164,164,1,1,1,"DT") 2911115 "^DD",164,164,1,3) Answer must be 5 characters in length. "^DD",164,164,1,21,0) ^^1^1^2920528^ "^DD",164,164,1,21,1,0) FREE TEXT FIELD RECORDING CODE NUMBER. "^DD",164,164,1,"DT") 2911121 "^DD",164,164,2,0) ICDO-1 TOPOGRAPHY^P169'^ONCO(169,^0;10^Q "^DD",164,164,2,1,0) ^.1 "^DD",164,164,2,1,1,0) 164^ACV^MUMPS "^DD",164,164,2,1,1,1) S ^ONCO(164,"ACV",DA)=X "^DD",164,164,2,1,1,2) Q "^DD",164,164,2,1,1,3) DO NOT DELETE "^DD",164,164,2,1,1,"%D",0) ^^1^1^2920110^ "^DD",164,164,2,1,1,"%D",1,0) Used to link new ICDO-2 to old ICDO-1 CODES. "^DD",164,164,2,1,1,"DT") 2920110 "^DD",164,164,2,21,0) ^^2^2^2930820^^ "^DD",164,164,2,21,1,0) This is the corresponding topography code from the International "^DD",164,164,2,21,2,0) Classification of Diseases for Oncology, first edition. "^DD",164,164,2,"DT") 2920110 "^DD",164,164,3,0) TYPE^164.01A^^1;0 "^DD",164,164,3,21,0) ^^1^1^2930930^^ "^DD",164,164,3,21,1,0) MULTIPLE FIELD ALLOWING FOR RECORDING OF TYPE. "^DD",164,164,21,0) TNM CODING APPLICABLE^S^Y:Yes;N:No;^0;14^Q "^DD",164,164,21,21,0) ^^4^4^2930812^ "^DD",164,164,21,21,1,0) Enter 'Y' if TNM coding is applicable to this anatomical site, "^DD",164,164,21,21,2,0) or 'N' if TNM coding does not apply. "^DD",164,164,21,21,3,0) "^DD",164,164,21,21,4,0) If no entry is made, it is assumed that TNM coding *is* applicable. "^DD",164,164,21,"DT") 2930812 "^DD",164,164,22,0) MM SKIN^S^1:Applicable;^0;15^Q "^DD",164,164,22,21,0) ^^2^2^2930819^ "^DD",164,164,22,21,1,0) This field contains a flag which, when set to 1, indicates that this "^DD",164,164,22,21,2,0) topographic site is one to which malignant melanoma staging may apply. "^DD",164,164,22,"DT") 2930819 "^DD",164,164,29,0) T & N CODES^P164'^ONCO(164,^0;11^Q "^DD",164,164,29,21,0) ^^1^1^2930713^^ "^DD",164,164,29,21,1,0) POINTER TO FILE CONTAINING THE T(UMOR) AND N(ODES) CODES. "^DD",164,164,29,"DT") 2930713 "^DD",164,164,30,0) AJCC STAGING GROUP^P164.33'^ONCO(164.33,^0;12^Q "^DD",164,164,30,1,0) ^.1 "^DD",164,164,30,1,1,0) 164^D "^DD",164,164,30,1,1,1) S ^ONCO(164,"D",$E(X,1,30),DA)="" "^DD",164,164,30,1,1,2) K ^ONCO(164,"D",$E(X,1,30),DA) "^DD",164,164,30,1,1,"DT") 2970528 "^DD",164,164,30,3) "^DD",164,164,30,21,0) ^^3^3^2920528^ "^DD",164,164,30,21,1,0) CONTAINS THE POINTERS FOR CHAPTERS IN THE AMERICAN JOINT COMMISSION "^DD",164,164,30,21,2,0) ON CANCER MANUAL FOR THE STAGING OF CANCER, 3RD EDITION. EACH "^DD",164,164,30,21,3,0) CHAPTER DEALS WITH A DIFFERENT PRIMARY SITE. "^DD",164,164,30,"DT") 2970528 "^DD",164,164,31,0) T-CLASS ENCODING^164.06I^^T;0 "^DD",164,164,31,21,0) ^^1^1^2971104^^^^ "^DD",164,164,31,21,1,0) RECORDS THE T(UMOR) DESCRIPTION. "^DD",164,164,32,0) N-CLASS ENCODING^164.065I^^N;0 "^DD",164,164,32,21,0) ^^1^1^2971104^^^^ "^DD",164,164,32,21,1,0) RECORDS THE LYMPH N(ODE) DESCRIPTION. "^DD",164,164,32.1,0) 4TH EDITION N-CLASS ENCODING^164.09I^^N4;0 "^DD",164,164,32.1,21,0) ^^2^2^2971105^^^^ "^DD",164,164,32.1,21,1,0) This multiple contains the N-codes from the AJCC Manual on Staging of "^DD",164,164,32.1,21,2,0) Cancer, 4th edition (1992). "^DD",164,164,33,0) STAGE GROUP^164.066I^^S;0 "^DD",164,164,33,21,0) ^^2^2^2930930^^ "^DD",164,164,33,21,1,0) RECORDS THE STAGING GROUPING IN ACCORDANCE WITH THE AJCC MANUAL "^DD",164,164,33,21,2,0) FOR THE STAGING OF CANCER. "^DD",164,164,43,0) EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,43,12) A first edition extension code set may be chosen. "^DD",164,164,43,12.1) S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>1" "^DD",164,164,43,21,0) ^^3^3^2940713^ "^DD",164,164,43,21,1,0) This field identifies the set of codes used to characterize extension for "^DD",164,164,43,21,2,0) this topography in the first edition of SEER Extent of Disease Codes and "^DD",164,164,43,21,3,0) Coding Instructions. "^DD",164,164,43,"DT") 2940713 "^DD",164,164,43.01,0) EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,43.01,12) A first or second edition extension code set may be chosen. "^DD",164,164,43.01,12.1) S DIC("S")="I $P(^(0),U,5)=""E"",$P(^(0),U,2)'>2" "^DD",164,164,43.01,21,0) ^^3^3^2940713^ "^DD",164,164,43.01,21,1,0) This field identifies the set of codes used to characterize extension for "^DD",164,164,43.01,21,2,0) this topography in the second edition of SEER Extent of Disease Codes and "^DD",164,164,43.01,21,3,0) Coding Instructions. "^DD",164,164,43.01,"DT") 2940713 "^DD",164,164,53,0) LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,53,12) A first edition lymph node code may be selected. "^DD",164,164,53,12.1) S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>1" "^DD",164,164,53,21,0) ^^3^3^2950301^^ "^DD",164,164,53,21,1,0) This field identifies the set of codes used to characterize lymph node "^DD",164,164,53,21,2,0) involvement for this topography in the first edition of SEER Extent of "^DD",164,164,53,21,3,0) Disease Codes and Coding Instructions. "^DD",164,164,53,"DT") 2940713 "^DD",164,164,53.01,0) LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,53.01,12) A first or second edition lymph node code set may be chosen. "^DD",164,164,53.01,12.1) S DIC("S")="I $P(^(0),U,5)=""L"",$P(^(0),U,2)'>2" "^DD",164,164,53.01,21,0) ^^3^3^2950301^^ "^DD",164,164,53.01,21,1,0) This field identifies the set of codes used to characterize lymph node "^DD",164,164,53.01,21,2,0) involvement for this topography in the second edition of SEER Extent of "^DD",164,164,53.01,21,3,0) Disease Codes and Coding Instructions. "^DD",164,164,53.01,22) "^DD",164,164,53.01,"DT") 2940713 "^DD",164,164,60,0) SNOMED ENCODING^164.04P^^2;0 "^DD",164,164,60,21,0) ^^1^1^2930930^^ "^DD",164,164,60,21,1,0) POINTS TO THE FILE CONTAINING THE SNOMED CODES FOR HISTO-MORPHOLOGY. "^DD",164,164,61,0) SNOMED DECODING^164.05^^3;0 "^DD",164,164,61,21,0) ^^1^1^2930930^^ "^DD",164,164,61,21,1,0) RECORDS THE TEXT GENERATED BY THE SNOMED CODES. "^DD",164,164,63,0) SURGERY CODE SET-1ST ED^*P164.5'^ONCO(164.5,^SR;1^S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,5)'>1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,63,12) A first edition surgery code set may be chosen. "^DD",164,164,63,12.1) S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,5)'>1" "^DD",164,164,63,21,0) ^^3^3^2940715^ "^DD",164,164,63,21,1,0) This field identifies the set of codes used to characterize cancer-related "^DD",164,164,63,21,2,0) surgery for this topography in the first edition of the Data Acquisition "^DD",164,164,63,21,3,0) Manual. "^DD",164,164,63,"DT") 2940715 "^DD",164,164,63.01,0) SURGERY CODE SET-2ND ED^*P164.5'^ONCO(164.5,^SR;2^S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,2)'>2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X "^DD",164,164,63.01,12) A first or second edition surgery code set may be selected. "^DD",164,164,63.01,12.1) S DIC("S")="I $P(^(0),U,5)=""S"",$P(^(0),U,2)'>2" "^DD",164,164,63.01,21,0) ^^3^3^2940715^ "^DD",164,164,63.01,21,1,0) This field identifies the set of codes used to characterize cancer-related "^DD",164,164,63.01,21,2,0) surgery for this topography in the second edition of the Data Acquisition "^DD",164,164,63.01,21,3,0) Manual. "^DD",164,164,63.01,"DT") 2940715 "^DD",164,164,71,0) AJCC CHAP#-NAME^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12) Q:X="" S X=$S($L(X)=1:0_X,1:X),X="#"_X_": "_$P(^ONCO(164.33,+X,0),U) "^DD",164,164,71,9) ^ "^DD",164,164,71,9.01) "^DD",164,164,71,9.1) S X=$P(^ONCO(164,D0,0),U,12) Q:X="" S X=$S($L(X)=1:0_X,1:X),X="#"_X_": "_$P(^ONCO(164.33,+X,0),U) "^DD",164,164,71,21,0) ^^2^2^2920528^ "^DD",164,164,71,21,1,0) RECORDS THE AJCC CHAPTER NUMBER AND THE NAME OF THE SECTION "^DD",164,164,71,21,2,0) IT DESCRIBES. "^DD",164,164,71,"DT") 2920331 "^DD",164,164,72,0) ajcc cp#^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12) "^DD",164,164,72,9) ^ "^DD",164,164,72,9.01) "^DD",164,164,72,9.1) S X=$P(^ONCO(164,D0,0),U,12) "^DD",164,164,72,21,0) ^^2^2^2920528^ "^DD",164,164,72,21,1,0) COMPUTED FIELD FOR THE AJCC CHAPTER NUMBER, EACH NUMBER IS ASSOCIATED "^DD",164,164,72,21,2,0) WITH A DIFFERENT TYPE OF CANCER. "^DD",164,164,100,0) ICDO-1 ENCODING^164.07P^^X;0 "^DD",164,164,100,21,0) ^^1^1^2930930^^ "^DD",164,164,100,21,1,0) POINTS TO FILE CONTAINING THE OLD ICDO CODES FROM THE ICDO-1 1987. "^DD",164,164,100,"DT") 2930930 "^DD",164,164,101,0) 4TH EDITION T-CLASS ENCODING^164.0101IA^^T4;0 "^DD",164,164,101,21,0) ^^2^2^2971105^^^^ "^DD",164,164,101,21,1,0) This multiple contains T codes from the fourth edition of the AJCC Manual "^DD",164,164,101,21,2,0) on Staging of Cancer. "^DD",164,164,102,0) DEFAULT PRIMARY SITE GROUP^P164.2'^ONCO(164.2,^0;13^Q "^DD",164,164,102,21,0) ^^4^4^2930703^ "^DD",164,164,102,21,1,0) This field maps ICD-O second edition topography codes to the "^DD",164,164,102,21,2,0) SITE-GROUP FOR ONCOLOGY File (#164.2). Its chief purpose is "^DD",164,164,102,21,3,0) to facilitate conversions from non-DHCP databases by creating "^DD",164,164,102,21,4,0) a .01 field for the ONCOLOGY PRIMARY File (#165.5). "^DD",164,164,102,"DT") 2930703 "^DD",164,164,103,0) 5TH EDITION T-CODES^164.0103^^T5;0 "^DD",164,164,104,0) 5TH EDITION N-CODES^164.0104^^N5;0 "^DD",164,164,105,0) 5TH EDITION M-CODES^164.0105^^M5;0 "^DD",164,164,106,0) 5TH EDITION T-CODE HELP^164.0106^^5;0 "^DD",164,164,107,0) SURGERY CODE GROUP-5TH ED^P164'^ONCO(164,^0;16^Q "^DD",164,164,107,21,0) ^^3^3^2971212^^ "^DD",164,164,107,21,1,0) This field contains a pointer to the Topography which has the surgery codes "^DD",164,164,107,21,2,0) for the group that this Topography is in. The Topography which contains the "^DD",164,164,107,21,3,0) codes has this field pointing to itself. "^DD",164,164,107,"DT") 2971212 "^DD",164,164,108,0) 5TH ED-SURGICAL APPROACH CODES^164.0108^^SUA;0 "^DD",164,164,108,"DT") 2971222 "^DD",164,164,109,0) 5TH EDITION N-CODE HELP^164.0109^^6;0 "^DD",164,164,110,0) 5TH EDITION M-CODE HELP^164.02^^7;0 "^DD",164,164,110,"DT") 2971223 "^DD",164,164,111,0) 5TH ED-SURGERY PRIMARY SITE^164.0111^^SPS;0 "^DD",164,164,112,0) 5TH ED-SURGICAL MARGINS^164.0112^^SM5;0 "^DD",164,164,113,0) 5TH ED-SCOPE LYMPH NODE SURG^164.0113^^SC5;0 "^DD",164,164,114,0) 5TH ED-NUMBER LYMPH ND REMOVED^164.0114^^NL5;0 "^DD",164,164,115,0) 5TH ED-SURGERY OTHER REG SITES^164.0115^^SO5;0 "^DD",164,164,116,0) 5TH ED-RECONSTRUCTION^164.0116^^RR5;0 "^DD",164,164,117,0) 5TH ED-BIOPSY PROCEDURE CODES^164.0117^^BP5;0 "^DD",164,164,118,0) 5TH ED-GUIDANCE CODES^164.0118^^GU5;0 "^DD",164,164.01,0) TYPE SUB-FIELD^NL^.01^1 "^DD",164,164.01,0,"NM","TYPE") "^DD",164,164.01,0,"UP") 164 "^DD",164,164.01,.01,0) TYPE^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>25!($L(X)<3) X "^DD",164,164.01,.01,1,0) ^.1 "^DD",164,164.01,.01,1,1,0) 164^C "^DD",164,164.01,.01,1,1,1) S ^ONCO(164,"C",$E(X,1,30),DA(1),DA)="" "^DD",164,164.01,.01,1,1,2) K ^ONCO(164,"C",$E(X,1,30),DA(1),DA) "^DD",164,164.01,.01,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164.01,.01,1,1,"%D",1,0) Indexes file by TYPE. "^DD",164,164.01,.01,3) ANSWER MUST BE 3-25 CHARACTERS IN LENGTH "^DD",164,164.01,.01,21,0) ^^1^1^2930930^ "^DD",164,164.01,.01,21,1,0) This is the type of topography code. "^DD",164,164.0101,0) 4TH EDITION T-CLASS ENCODING SUB-FIELD^^.03^3 "^DD",164,164.0101,0,"DT") 2971105 "^DD",164,164.0101,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.0101,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.0101,0,"IX","B",164.0101,.01) "^DD",164,164.0101,0,"NM","4TH EDITION T-CLASS ENCODING") "^DD",164,164.0101,0,"UP") 164 "^DD",164,164.0101,.01,0) 4TH EDITION T-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164,164.0101,.01,1,0) ^.1 "^DD",164,164.0101,.01,1,1,0) 164.0101^B "^DD",164,164.0101,.01,1,1,1) S ^ONCO(164,DA(1),"T4","B",$E(X,1,30),DA)="" "^DD",164,164.0101,.01,1,1,2) K ^ONCO(164,DA(1),"T4","B",$E(X,1,30),DA) "^DD",164,164.0101,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.0101,.01,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.01,21,1,0) This is the type of tumor. "^DD",164,164.0101,.01,"DT") 2971105 "^DD",164,164.0101,.02,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q "^DD",164,164.0101,.02,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.02,21,1,0) This is the code as it appears in the AJCC Manual on Staging. "^DD",164,164.0101,.02,"DT") 2971105 "^DD",164,164.0101,.03,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q "^DD",164,164.0101,.03,1,0) ^.1 "^DD",164,164.0101,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.0101,.03,1,1,1) S ^ONCO(164,DA(1),"T4","X",X)=DA "^DD",164,164.0101,.03,1,1,2) K ^ONCO(164,DA(1),"T4","X",X) "^DD",164,164.0101,.03,1,1,"%D",0) ^^1^1^2930702^^ "^DD",164,164.0101,.03,1,1,"%D",1,0) For lookup on output transform "^DD",164,164.0101,.03,1,1,"DT") 2930702 "^DD",164,164.0101,.03,21,0) ^^1^1^2971105^^^ "^DD",164,164.0101,.03,21,1,0) This is the code as it is transmitted to ACoS. "^DD",164,164.0101,.03,"DT") 2971105 "^DD",164,164.0103,0) 5TH EDITION T-CODES SUB-FIELD^^2^3 "^DD",164,164.0103,0,"DT") 2971121 "^DD",164,164.0103,0,"IX","B",164.0103,.01) "^DD",164,164.0103,0,"IX","X",164.0103,2) "^DD",164,164.0103,0,"NM","5TH EDITION T-CODES") "^DD",164,164.0103,0,"UP") 164 "^DD",164,164.0103,.01,0) 5TH EDITION T-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0103,.01,1,0) ^.1 "^DD",164,164.0103,.01,1,1,0) 164.0103^B "^DD",164,164.0103,.01,1,1,1) S ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA)="" "^DD",164,164.0103,.01,1,1,2) K ^ONCO(164,DA(1),"T5","B",$E(X,1,30),DA) "^DD",164,164.0103,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0103,.01,"DT") 2971029 "^DD",164,164.0103,1,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q "^DD",164,164.0103,1,"DT") 2971121 "^DD",164,164.0103,2,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;1MIC:T1MIC;1B1:T1B1;1B2:T1B2;^0;3^Q "^DD",164,164.0103,2,1,0) ^.1 "^DD",164,164.0103,2,1,1,0) 164.0103^X^MUMPS "^DD",164,164.0103,2,1,1,1) S ^ONCO(164,DA(1),"T5","X",X)=DA "^DD",164,164.0103,2,1,1,2) K ^ONCO(164,DA(1),"T5","X",X) "^DD",164,164.0103,2,1,1,"DT") 2971022 "^DD",164,164.0103,2,"DT") 2971121 "^DD",164,164.0104,0) 5TH EDITION N-CODES SUB-FIELD^^2^3 "^DD",164,164.0104,0,"DT") 2971029 "^DD",164,164.0104,0,"IX","B",164.0104,.01) "^DD",164,164.0104,0,"IX","X",164.0104,2) "^DD",164,164.0104,0,"NM","5TH EDITION N-CODES") "^DD",164,164.0104,0,"UP") 164 "^DD",164,164.0104,.01,0) 5TH EDITION N-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0104,.01,1,0) ^.1 "^DD",164,164.0104,.01,1,1,0) 164.0104^B "^DD",164,164.0104,.01,1,1,1) S ^ONCO(164,DA(1),"N5","B",$E(X,1,30),DA)="" "^DD",164,164.0104,.01,1,1,2) K ^ONCO(164,DA(1),"N5","B",$E(X,1,30),DA) "^DD",164,164.0104,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0104,.01,"DT") 2971029 "^DD",164,164.0104,1,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.0104,1,"DT") 2971029 "^DD",164,164.0104,2,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.0104,2,1,0) ^.1 "^DD",164,164.0104,2,1,1,0) 164.0104^X^MUMPS "^DD",164,164.0104,2,1,1,1) S ^ONCO(164,DA(1),"N5","X",X)=DA "^DD",164,164.0104,2,1,1,2) K ^ONCO(164,DA,(1),"N5","X",X) "^DD",164,164.0104,2,1,1,"DT") 2971023 "^DD",164,164.0104,2,"DT") 2971029 "^DD",164,164.0105,0) 5TH EDITION M-CODES SUB-FIELD^^2^3 "^DD",164,164.0105,0,"DT") 2971031 "^DD",164,164.0105,0,"IX","B",164.0105,.01) "^DD",164,164.0105,0,"IX","X",164.0105,2) "^DD",164,164.0105,0,"NM","5TH EDITION M-CODES") "^DD",164,164.0105,0,"UP") 164 "^DD",164,164.0105,.01,0) 5TH EDITION M-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0105,.01,1,0) ^.1 "^DD",164,164.0105,.01,1,1,0) 164.0105^B "^DD",164,164.0105,.01,1,1,1) S ^ONCO(164,DA(1),"M5","B",$E(X,1,30),DA)="" "^DD",164,164.0105,.01,1,1,2) K ^ONCO(164,DA(1),"M5","B",$E(X,1,30),DA) "^DD",164,164.0105,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0105,.01,"DT") 2971031 "^DD",164,164.0105,1,0) CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;88:NA;^0;2^Q "^DD",164,164.0105,1,"DT") 2971031 "^DD",164,164.0105,2,0) ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;88:NA;^0;3^Q "^DD",164,164.0105,2,1,0) ^.1 "^DD",164,164.0105,2,1,1,0) 164.0105^X^MUMPS "^DD",164,164.0105,2,1,1,1) S ^ONCO(164,DA(1),"M5","X",X)=DA "^DD",164,164.0105,2,1,1,2) K ^ONCO(164,DA(1),"M5","X",X) "^DD",164,164.0105,2,1,1,"DT") 2971031 "^DD",164,164.0105,2,"DT") 2971031 "^DD",164,164.0106,0) 5TH EDITION T-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0106,0,"DT") 2971107 "^DD",164,164.0106,0,"NM","5TH EDITION T-CODE HELP") "^DD",164,164.0106,0,"UP") 164 "^DD",164,164.0106,.01,0) 5TH EDITION T-CODE HELP^W^^0;1^Q "^DD",164,164.0106,.01,"DT") 2971107 "^DD",164,164.0108,0) 5TH ED-SURGICAL APPROACH CODES SUB-FIELD^^1^2 "^DD",164,164.0108,0,"DT") 2971212 "^DD",164,164.0108,0,"IX","B",164.0108,.01) "^DD",164,164.0108,0,"NM","5TH ED-SURGICAL APPROACH CODES") "^DD",164,164.0108,0,"UP") 164 "^DD",164,164.0108,.01,0) 5TH ED-SURGICAL APPROACH CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0108,.01,1,0) ^.1 "^DD",164,164.0108,.01,1,1,0) 164.0108^B "^DD",164,164.0108,.01,1,1,1) S ^ONCO(164,DA(1),"SUA","B",$E(X,1,30),DA)="" "^DD",164,164.0108,.01,1,1,2) K ^ONCO(164,DA(1),"SUA","B",$E(X,1,30),DA) "^DD",164,164.0108,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0108,.01,"DT") 2971222 "^DD",164,164.0108,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0108,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0108,1,"DT") 2971212 "^DD",164,164.0109,0) 5TH EDITION N-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.0109,0,"DT") 2971215 "^DD",164,164.0109,0,"NM","5TH EDITION N-CODE HELP") "^DD",164,164.0109,0,"UP") 164 "^DD",164,164.0109,.01,0) 5TH EDITION N-CODE HELP^W^^0;1^Q "^DD",164,164.0109,.01,"DT") 2971215 "^DD",164,164.0111,0) 5TH ED-SURGERY PRIMARY SITE SUB-FIELD^^1^2 "^DD",164,164.0111,0,"DT") 2971222 "^DD",164,164.0111,0,"IX","B",164.0111,.01) "^DD",164,164.0111,0,"NM","5TH ED-SURGERY PRIMARY SITE") "^DD",164,164.0111,0,"UP") 164 "^DD",164,164.0111,.01,0) 5TH ED-SURGERY PRIMARY SITE^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0111,.01,1,0) ^.1 "^DD",164,164.0111,.01,1,1,0) 164.0111^B "^DD",164,164.0111,.01,1,1,1) S ^ONCO(164,DA(1),"SPS","B",$E(X,1,30),DA)="" "^DD",164,164.0111,.01,1,1,2) K ^ONCO(164,DA(1),"SPS","B",$E(X,1,30),DA) "^DD",164,164.0111,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0111,.01,"DT") 2971222 "^DD",164,164.0111,1,0) CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0111,1,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.0111,1,"DT") 2971222 "^DD",164,164.0112,0) 5TH ED-SURGICAL MARGINS SUB-FIELD^^1^2 "^DD",164,164.0112,0,"DT") 2971222 "^DD",164,164.0112,0,"IX","B",164.0112,.01) "^DD",164,164.0112,0,"NM","5TH ED-SURGICAL MARGINS") "^DD",164,164.0112,0,"UP") 164 "^DD",164,164.0112,.01,0) 5TH ED-SURGICAL MARGINS^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0112,.01,1,0) ^.1 "^DD",164,164.0112,.01,1,1,0) 164.0112^B "^DD",164,164.0112,.01,1,1,1) S ^ONCO(164,DA(1),"SM5","B",$E(X,1,30),DA)="" "^DD",164,164.0112,.01,1,1,2) K ^ONCO(164,DA(1),"SM5","B",$E(X,1,30),DA) "^DD",164,164.0112,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0112,.01,"DT") 2971222 "^DD",164,164.0112,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0112,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0112,1,"DT") 2971222 "^DD",164,164.0113,0) 5TH ED-SCOPE LYMPH NODE SURG SUB-FIELD^^1^2 "^DD",164,164.0113,0,"DT") 2971222 "^DD",164,164.0113,0,"IX","B",164.0113,.01) "^DD",164,164.0113,0,"NM","5TH ED-SCOPE LYMPH NODE SURG") "^DD",164,164.0113,0,"UP") 164 "^DD",164,164.0113,.01,0) 5TH ED-SCOPE LYMPH NODE SURG^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0113,.01,1,0) ^.1 "^DD",164,164.0113,.01,1,1,0) 164.0113^B "^DD",164,164.0113,.01,1,1,1) S ^ONCO(164,DA(1),"SC5","B",$E(X,1,30),DA)="" "^DD",164,164.0113,.01,1,1,2) K ^ONCO(164,DA(1),"SC5","B",$E(X,1,30),DA) "^DD",164,164.0113,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0113,.01,"DT") 2971222 "^DD",164,164.0113,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0113,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0113,1,"DT") 2971222 "^DD",164,164.0114,0) 5TH ED-NUMBER LYMPH ND REMOVED SUB-FIELD^^1^2 "^DD",164,164.0114,0,"DT") 2971222 "^DD",164,164.0114,0,"IX","B",164.0114,.01) "^DD",164,164.0114,0,"NM","5TH ED-NUMBER LYMPH ND REMOVED") "^DD",164,164.0114,0,"UP") 164 "^DD",164,164.0114,.01,0) 5TH ED-NUMBER LYMPH ND REMOVED^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0114,.01,1,0) ^.1 "^DD",164,164.0114,.01,1,1,0) 164.0114^B "^DD",164,164.0114,.01,1,1,1) S ^ONCO(164,DA(1),"NL5","B",$E(X,1,30),DA)="" "^DD",164,164.0114,.01,1,1,2) K ^ONCO(164,DA(1),"NL5","B",$E(X,1,30),DA) "^DD",164,164.0114,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0114,.01,"DT") 2971222 "^DD",164,164.0114,1,0) CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0114,1,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.0114,1,"DT") 2971222 "^DD",164,164.0115,0) 5TH ED-SURGERY OTHER REG SITES SUB-FIELD^^1^2 "^DD",164,164.0115,0,"DT") 2971222 "^DD",164,164.0115,0,"IX","B",164.0115,.01) "^DD",164,164.0115,0,"NM","5TH ED-SURGERY OTHER REG SITES") "^DD",164,164.0115,0,"UP") 164 "^DD",164,164.0115,.01,0) 5TH ED-SURGERY OTHER REG SITES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0115,.01,1,0) ^.1 "^DD",164,164.0115,.01,1,1,0) 164.0115^B "^DD",164,164.0115,.01,1,1,1) S ^ONCO(164,DA(1),"SO5","B",$E(X,1,30),DA)="" "^DD",164,164.0115,.01,1,1,2) K ^ONCO(164,DA(1),"SO5","B",$E(X,1,30),DA) "^DD",164,164.0115,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0115,.01,"DT") 2971222 "^DD",164,164.0115,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0115,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0115,1,"DT") 2971222 "^DD",164,164.0116,0) 5TH ED-RECONSTRUCTION SUB-FIELD^^1^2 "^DD",164,164.0116,0,"DT") 2971222 "^DD",164,164.0116,0,"IX","B",164.0116,.01) "^DD",164,164.0116,0,"NM","5TH ED-RECONSTRUCTION") "^DD",164,164.0116,0,"UP") 164 "^DD",164,164.0116,.01,0) 5TH ED-RECONSTRUCTION^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0116,.01,1,0) ^.1 "^DD",164,164.0116,.01,1,1,0) 164.0116^B "^DD",164,164.0116,.01,1,1,1) S ^ONCO(164,DA(1),"RR5","B",$E(X,1,30),DA)="" "^DD",164,164.0116,.01,1,1,2) K ^ONCO(164,DA(1),"RR5","B",$E(X,1,30),DA) "^DD",164,164.0116,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0116,.01,"DT") 2971222 "^DD",164,164.0116,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0116,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0116,1,"DT") 2971222 "^DD",164,164.0117,0) 5TH ED-BIOPSY PROCEDURE CODES SUB-FIELD^^1^2 "^DD",164,164.0117,0,"DT") 2980209 "^DD",164,164.0117,0,"IX","B",164.0117,.01) "^DD",164,164.0117,0,"NM","5TH ED-BIOPSY PROCEDURE CODES") "^DD",164,164.0117,0,"UP") 164 "^DD",164,164.0117,.01,0) 5TH ED-BIOPSY PROCEDURE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0117,.01,1,0) ^.1 "^DD",164,164.0117,.01,1,1,0) 164.0117^B "^DD",164,164.0117,.01,1,1,1) S ^ONCO(164,DA(1),"BP5","B",$E(X,1,30),DA)="" "^DD",164,164.0117,.01,1,1,2) K ^ONCO(164,DA(1),"BP5","B",$E(X,1,30),DA) "^DD",164,164.0117,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0117,.01,"DT") 2980209 "^DD",164,164.0117,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0117,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0117,1,"DT") 2980209 "^DD",164,164.0118,0) 5TH ED-GUIDANCE CODES SUB-FIELD^^1^2 "^DD",164,164.0118,0,"DT") 2980209 "^DD",164,164.0118,0,"IX","B",164.0118,.01) "^DD",164,164.0118,0,"NM","5TH ED-GUIDANCE CODES") "^DD",164,164.0118,0,"UP") 164 "^DD",164,164.0118,.01,0) 5TH ED-GUIDANCE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X "^DD",164,164.0118,.01,1,0) ^.1 "^DD",164,164.0118,.01,1,1,0) 164.0118^B "^DD",164,164.0118,.01,1,1,1) S ^ONCO(164,DA(1),"GU5","B",$E(X,1,30),DA)="" "^DD",164,164.0118,.01,1,1,2) K ^ONCO(164,DA(1),"GU5","B",$E(X,1,30),DA) "^DD",164,164.0118,.01,3) Answer must be 1-60 characters in length. "^DD",164,164.0118,.01,"DT") 2980209 "^DD",164,164.0118,1,0) CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.0118,1,3) Type a Number between 0 and 9, 0 Decimal Digits "^DD",164,164.0118,1,"DT") 2980209 "^DD",164,164.02,0) 5TH EDITION M-CODE HELP SUB-FIELD^^.01^1 "^DD",164,164.02,0,"DT") 2971217 "^DD",164,164.02,0,"NM","5TH EDITION M-CODE HELP") "^DD",164,164.02,0,"UP") 164 "^DD",164,164.02,.01,0) 5TH EDTION M CODE HELP^W^^0;1^Q "^DD",164,164.02,.01,"DT") 2971217 "^DD",164,164.04,0) SNOMED ENCODING SUB-FIELD^NL^.01^1 "^DD",164,164.04,0,"NM","SNOMED ENCODING") "^DD",164,164.04,0,"UP") 164 "^DD",164,164.04,.01,0) SNOMED ENCODING^MP61'^LAB(61,^0;1^Q "^DD",164,164.04,.01,21,0) ^^1^1^2930930^ "^DD",164,164.04,.01,21,1,0) This is a SNOMED histo-morphology code corresponding to the topography code. "^DD",164,164.05,0) SNOMED DECODING SUB-FIELD^NL^.01^1 "^DD",164,164.05,0,"NM","SNOMED DECODING") "^DD",164,164.05,0,"UP") 164 "^DD",164,164.05,.01,0) SNOMED DECODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X "^DD",164,164.05,.01,1,0) ^.1 "^DD",164,164.05,.01,1,1,0) 164^E "^DD",164,164.05,.01,1,1,1) S ^ONCO(164,"E",$E(X,1,30),DA(1),DA)="" "^DD",164,164.05,.01,1,1,2) K ^ONCO(164,"E",$E(X,1,30),DA(1),DA) "^DD",164,164.05,.01,1,1,"%D",0) ^^1^1^2930909 "^DD",164,164.05,.01,1,1,"%D",1,0) Indexes file by SNOMED DECODING. "^DD",164,164.05,.01,3) ANSWER MUST BE 1-5 CHARACTERS IN LENGTH "^DD",164,164.05,.01,21,0) ^^1^1^2930930^ "^DD",164,164.05,.01,21,1,0) This records the text generated by the SNOMED codes. "^DD",164,164.06,0) T-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.06,0,"DT") 2971104 "^DD",164,164.06,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.06,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.06,0,"IX","B",164.06,.01) "^DD",164,164.06,0,"IX","X",164.06,.03) "^DD",164,164.06,0,"NM","T-CLASS ENCODING") "^DD",164,164.06,0,"UP") 164 "^DD",164,164.06,.001,0) NUMBER^NJ5,2^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."3N.N) X "^DD",164,164.06,.001,3) Type a Number between 1 and 99, 2 Decimal Digits "^DD",164,164.06,.001,21,0) ^^1^1^2930930^ "^DD",164,164.06,.001,21,1,0) This is the numeric sequence of the T code, for display. "^DD",164,164.06,.001,"DT") 2920623 "^DD",164,164.06,.01,0) T-CLASS ENCODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<2) X "^DD",164,164.06,.01,1,0) ^.1 "^DD",164,164.06,.01,1,1,0) 164.06^B "^DD",164,164.06,.01,1,1,1) S ^ONCO(164,DA(1),"T","B",$E(X,1,30),DA)="" "^DD",164,164.06,.01,1,1,2) K ^ONCO(164,DA(1),"T","B",$E(X,1,30),DA) "^DD",164,164.06,.01,1,1,"DT") 2911212 "^DD",164,164.06,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.06,.01,21,0) ^^1^1^2971104^^^^ "^DD",164,164.06,.01,21,1,0) This is the description of the tumor. "^DD",164,164.06,.01,"DT") 2971104 "^DD",164,164.06,.02,0) CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q "^DD",164,164.06,.02,21,0) ^^1^1^2971023^^^^ "^DD",164,164.06,.02,21,1,0) This is the code as recorded in the AJCC Manual on Staging. "^DD",164,164.06,.02,"DT") 2971023 "^DD",164,164.06,.03,0) ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q "^DD",164,164.06,.03,1,0) ^.1 "^DD",164,164.06,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.06,.03,1,1,1) S ^ONCO(164,DA(1),"T","X",X)=DA "^DD",164,164.06,.03,1,1,2) K ^ONCO(164,DA(1),"T","X",X) "^DD",164,164.06,.03,1,1,"%D",0) ^^2^2^2920215^ "^DD",164,164.06,.03,1,1,"%D",1,0) For lookup on output transform "^DD",164,164.06,.03,1,1,"%D",2,0) \ "^DD",164,164.06,.03,1,1,"DT") 2911210 "^DD",164,164.06,.03,21,0) ^^1^1^2971023^^^^ "^DD",164,164.06,.03,21,1,0) This is the T code as transmitted to ACOS. "^DD",164,164.06,.03,"DT") 2971023 "^DD",164,164.065,0) N-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.065,0,"DT") 2971104 "^DD",164,164.065,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.065,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.065,0,"IX","B",164.065,.01) "^DD",164,164.065,0,"IX","X",164.0101,.03) "^DD",164,164.065,0,"IX","X",164.06,.03) "^DD",164,164.065,0,"IX","X",164.065,.03) "^DD",164,164.065,0,"NM","N-CLASS ENCODING") "^DD",164,164.065,0,"UP") 164 "^DD",164,164.065,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X "^DD",164,164.065,.001,3) Type a Number between 1 and 99, 0 Decimal Digits "^DD",164,164.065,.001,21,0) ^^1^1^2930930^ "^DD",164,164.065,.001,21,1,0) This is the numeric sequence of the N code, for display. "^DD",164,164.065,.001,"DT") 2920130 "^DD",164,164.065,.01,0) N-CLASS ENCODING^MF^^0;1^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<2) X "^DD",164,164.065,.01,1,0) ^.1 "^DD",164,164.065,.01,1,1,0) 164.065^B "^DD",164,164.065,.01,1,1,1) S ^ONCO(164,DA(1),"N","B",$E(X,1,30),DA)="" "^DD",164,164.065,.01,1,1,2) K ^ONCO(164,DA(1),"N","B",$E(X,1,30),DA) "^DD",164,164.065,.01,1,1,"DT") 2911212 "^DD",164,164.065,.01,3) Answer must be 2-75 characters in length. "^DD",164,164.065,.01,21,0) ^^1^1^2971104^^^ "^DD",164,164.065,.01,21,1,0) This is the description of regional lymph node involvement. "^DD",164,164.065,.01,"DT") 2971104 "^DD",164,164.065,.02,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.065,.02,21,0) ^^1^1^2971103^^^^ "^DD",164,164.065,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164,164.065,.02,"DT") 2971103 "^DD",164,164.065,.03,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N2C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.065,.03,1,0) ^.1 "^DD",164,164.065,.03,1,1,0) 164.065^X^MUMPS "^DD",164,164.065,.03,1,1,1) S ^ONCO(164,DA(1),"N","X",X)=DA "^DD",164,164.065,.03,1,1,2) K ^ONCO(164,DA(1),"N","X",X) "^DD",164,164.065,.03,1,1,"%D",0) ^^1^1^2930910^ "^DD",164,164.065,.03,1,1,"%D",1,0) Indexes the sub-file by ACOS CODE. "^DD",164,164.065,.03,1,1,"DT") 2911210 "^DD",164,164.065,.03,21,0) ^^1^1^2971103^^^^ "^DD",164,164.065,.03,21,1,0) This is the N code as transmitted to ACoS. "^DD",164,164.065,.03,"DT") 2971103 "^DD",164,164.066,0) STAGE GROUP SUB-FIELD^^.02^2 "^DD",164,164.066,0,"DT") 2911211 "^DD",164,164.066,0,"ID",.02) W " ",$P(^(0),U,2) "^DD",164,164.066,0,"IX","B",164.066,.01) "^DD",164,164.066,0,"NM","STAGE GROUP") "^DD",164,164.066,0,"UP") 164 "^DD",164,164.066,.01,0) TNM SEQ^MF^^0;1^K:$L(X)>12!($L(X)<1) X "^DD",164,164.066,.01,1,0) ^.1 "^DD",164,164.066,.01,1,1,0) 164.066^B "^DD",164,164.066,.01,1,1,1) S ^ONCO(164,DA(1),"S","B",$E(X,1,30),DA)="" "^DD",164,164.066,.01,1,1,2) K ^ONCO(164,DA(1),"S","B",$E(X,1,30),DA) "^DD",164,164.066,.01,3) Answer must be 1-12 characters in length. "^DD",164,164.066,.01,21,0) ^^1^1^2930930^ "^DD",164,164.066,.01,21,1,0) This is the sequence number, for display. "^DD",164,164.066,.01,"DT") 2911211 "^DD",164,164.066,.02,0) STAGE GP^RF^^0;2^K:$L(X)>3!($L(X)<1) X "^DD",164,164.066,.02,3) Answer must be 1-3 characters in length. "^DD",164,164.066,.02,21,0) ^^1^1^2930930^ "^DD",164,164.066,.02,21,1,0) This is the stage group. "^DD",164,164.066,.02,"DT") 2911211 "^DD",164,164.07,0) ICDO-1 ENCODING SUB-FIELD^^.01^1 "^DD",164,164.07,0,"DT") 2911127 "^DD",164,164.07,0,"IX","B",164.07,.01) "^DD",164,164.07,0,"NM","ICDO-1 ENCODING") "^DD",164,164.07,0,"UP") 164 "^DD",164,164.07,.01,0) ICDO-1 ENCODING^MP169'^ONCO(169,^0;1^Q "^DD",164,164.07,.01,1,0) ^.1 "^DD",164,164.07,.01,1,1,0) 164.07^B "^DD",164,164.07,.01,1,1,1) S ^ONCO(164,DA(1),"X","B",$E(X,1,30),DA)="" "^DD",164,164.07,.01,1,1,2) K ^ONCO(164,DA(1),"X","B",$E(X,1,30),DA) "^DD",164,164.07,.01,21,0) ^^1^1^2930930^ "^DD",164,164.07,.01,21,1,0) This is a corresponding ICDO-1 code. "^DD",164,164.07,.01,"DT") 2930930 "^DD",164,164.09,0) 4TH EDITION N-CLASS ENCODING SUB-FIELD^^.03^4 "^DD",164,164.09,0,"DT") 2971105 "^DD",164,164.09,0,"ID",.02) W " ",@("$P($P($C(59)_$S($D(^DD(164.09,.02,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)") "^DD",164,164.09,0,"IX","B",164.09,.01) "^DD",164,164.09,0,"IX","X",164.09,.03) "^DD",164,164.09,0,"NM","4TH EDITION N-CLASS ENCODING") "^DD",164,164.09,0,"UP") 164 "^DD",164,164.09,.001,0) NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X "^DD",164,164.09,.001,3) Type a Number between 0 and 99, 0 Decimal Digits "^DD",164,164.09,.001,21,0) ^^1^1^2930930^ "^DD",164,164.09,.001,21,1,0) This is the sequence number for display. "^DD",164,164.09,.001,"DT") 2930517 "^DD",164,164.09,.01,0) 4TH EDITION N-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X "^DD",164,164.09,.01,1,0) ^.1 "^DD",164,164.09,.01,1,1,0) 164.09^B "^DD",164,164.09,.01,1,1,1) S ^ONCO(164,DA(1),"N4","B",$E(X,1,30),DA)="" "^DD",164,164.09,.01,1,1,2) K ^ONCO(164,DA(1),"N4","B",$E(X,1,30),DA) "^DD",164,164.09,.01,3) Answer must be 2-45 characters in length. "^DD",164,164.09,.01,21,0) ^^1^1^2971105^^^^ "^DD",164,164.09,.01,21,1,0) This is a code that describes the degree of regional lymph node metastasis. "^DD",164,164.09,.01,"DT") 2971105 "^DD",164,164.09,.02,0) CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q "^DD",164,164.09,.02,21,0) ^^1^1^2971105^^^ "^DD",164,164.09,.02,21,1,0) This is the code from the AJCC Manual on Staging. "^DD",164,164.09,.02,"DT") 2971105 "^DD",164,164.09,.03,0) ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q "^DD",164,164.09,.03,1,0) ^.1 "^DD",164,164.09,.03,1,1,0) 164.09^X^MUMPS "^DD",164,164.09,.03,1,1,1) S ^ONCO(164,DA(1),"N4","X",X)=DA "^DD",164,164.09,.03,1,1,2) K ^ONCO(164,DA(1),"N4","X",X) "^DD",164,164.09,.03,1,1,"%D",0) ^^1^1^2930910^ "^DD",164,164.09,.03,1,1,"%D",1,0) Indexes the sub-file by ACOS CODE. "^DD",164,164.09,.03,21,0) ^^1^1^2971105^^^ "^DD",164,164.09,.03,21,1,0) This is the N code as transmitted to ACoS. "^DD",164,164.09,.03,"DT") 2971105 "^DD",164.6,164.6,0) FIELD^^1^2 "^DD",164.6,164.6,0,"DDA") N "^DD",164.6,164.6,0,"DT") 2961203 "^DD",164.6,164.6,0,"ID",1) W " ",$P(^(0),U,2) "^DD",164.6,164.6,0,"IX","B",164.6,.01) "^DD",164.6,164.6,0,"IX","C",164.6,1) "^DD",164.6,164.6,0,"NM","TYPE OF STAGING SYSTEM (PEDIATRIC)") "^DD",164.6,164.6,0,"PT",165.5,849) "^DD",164.6,164.6,.01,0) CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X "^DD",164.6,164.6,.01,1,0) ^.1 "^DD",164.6,164.6,.01,1,1,0) 164.6^B "^DD",164.6,164.6,.01,1,1,1) S ^ONCO(164.6,"B",$E(X,1,30),DA)="" "^DD",164.6,164.6,.01,1,1,2) K ^ONCO(164.6,"B",$E(X,1,30),DA) "^DD",164.6,164.6,.01,3) Answer must be 2 characters in length. "^DD",164.6,164.6,.01,21,0) ^^1^1^2961203^ "^DD",164.6,164.6,.01,21,1,0) This field contains the TYPE OF STAGING SYSTEM (PEDIATRIC) code. "^DD",164.6,164.6,.01,"DT") 2961203 "^DD",164.6,164.6,1,0) DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X "^DD",164.6,164.6,1,1,0) ^.1 "^DD",164.6,164.6,1,1,1,0) 164.6^C "^DD",164.6,164.6,1,1,1,1) S ^ONCO(164.6,"C",$E(X,1,30),DA)="" "^DD",164.6,164.6,1,1,1,2) K ^ONCO(164.6,"C",$E(X,1,30),DA) "^DD",164.6,164.6,1,1,1,"DT") 2970505 "^DD",164.6,164.6,1,3) Answer must be 1-60 characters in length. "^DD",164.6,164.6,1,21,0) ^^1^1^2961203^ "^DD",164.6,164.6,1,21,1,0) This field contains the TYPE OF STAGING SYSTEM (PEDIATRIC) code description. "^DD",164.6,164.6,1,"DT") 2970505 "^DIC",164,164,0) ICDO TOPOGRAPHY^164I "^DIC",164,164,0,"GL") ^ONCO(164, "^DIC",164,164,"%",0) ^1.005^1^1 "^DIC",164,164,"%",1,0) ONCO "^DIC",164,164,"%","B","ONCO",1) "^DIC",164,164,"%D",0) ^^6^6^2960119^^^^ "^DIC",164,164,"%D",1,0) Complete ICDO-2 Topography from the 1990 International Classification of "^DIC",164,164,"%D",2,0) Diseases for Oncology (2nd edition), World Health Organization. Contains "^DIC",164,164,"%D",3,0) site specific coding for Extent of Disease and AJCC Staging. "^DIC",164,164,"%D",4,0) "^DIC",164,164,"%D",5,0) This file comes with data, which overwrite the site's data. It is not "^DIC",164,164,"%D",6,0) recommended that sites modify this file. "^DIC",164,"B","ICDO TOPOGRAPHY",164) "^DIC",164.6,164.6,0) TYPE OF STAGING SYSTEM (PEDIATRIC)^164.6 "^DIC",164.6,164.6,0,"GL") ^ONCO(164.6, "^DIC",164.6,164.6,"%D",0) ^^3^3^2970505^^ "^DIC",164.6,164.6,"%D",1,0) The Commission requires staging of pediatric patients using AJCC or the "^DIC",164.6,164.6,"%D",2,0) staging criteria of the pediatric intergroup studies and the pediatric "^DIC",164.6,164.6,"%D",3,0) cooperative groups. "^DIC",164.6,"B","TYPE OF STAGING SYSTEM (PEDIATRIC)",164.6) **END** **END**