- ONCCS2 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/23/10
- ;;2.2;ONCOLOGY;**1,4,5,10**;Jul 31, 2013;Build 20
- ;
- S SCHEMA="Unable to compute schema"
- N ONCDISC S ONCDISC="" ;variable for discontinued items, set=1 if D/C
- Q:$G(TOP)=""
- N DISCRIM,HIST,MO,SCHNAME,SITE
- S MO=$$HIST^ONCFUNC(D0)
- S SITE=$TR($$GET1^DIQ(164,TOP,1,"I"),".","")
- S HIST=$E(MO,1,4)
- S DISCRIM=$$GET1^DIQ(165.5,D0,240)
- S SCHEMA=+$$SCHEMA^ONCSAPIS(.ONCSAPI,SITE,HIST,DISCRIM)
- Q:SCHEMA<0
- S SCHEMA=SCHNAME
- I DATEDX>3171231 Q ;don't stuff for 2018+ cases
- ;
- I $G(SCHEMA)="AdnexaUterineOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="AdrenalGland" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 2,3 ;CS V02.05
- ;
- I $G(SCHEMA)="AmpullaVater" D Q
- .D 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 1,2,3 ;CS V02.05
- ;
- I $G(SCHEMA)="Anus" D Q
- .D 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 1 ;CS V02.05
- ;
- I $G(SCHEMA)="Appendix" D Q
- .D 5,6,8,9,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 4,7,10,12 ;CS V02.05
- ;
- I $G(SCHEMA)="BileDuctsDistal" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,15,16,17,18,19,20,21,22,23,24
- .I DATEDX>3131231 S ONCDISC=1 D 12,13,14 ;CS V02.05
- ;
- I $G(SCHEMA)="BileDuctsIntraHepat" D Q
- .D 4,5,6,7,8,9,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 3,12 ;CS V02.05
- ;
- I $G(SCHEMA)="BileDuctsPerihilar" D Q
- .D 1,2,3,4,5,6,7,8,9,15,16,17,18,19,20,21,22,23,24
- .I DATEDX>3131231 S ONCDISC=1 D 10,12,13,14 ;CS V02.05
- ;
- I $G(SCHEMA)="BiliaryOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- ;
- I $G(SCHEMA)="Bladder" D Q
- .D 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- ;
- I $G(SCHEMA)="Bone" D Q
- .D 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 1,2,4 ;CS V02.05
- ;
- I $G(SCHEMA)="Brain" D Q
- .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL,LN
- .I DATEDX>3131231 S ONCDISC=1 D 2,3,7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="Breast" D Q
- .D 25
- .I DATEDX>3131231 S ONCDISC=1 D 17,18,19,20,24 ;CS V02.05
- ;
- I $G(SCHEMA)="BuccalMucosa" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="CarcinoidAppendix" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 3,4,5,6,7,8,9,10,11,12,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 13 ;CS V02.05
- ;
- I $G(SCHEMA)="Cervix" D Q
- .D 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 2,3,4,5,6,7,8,9 ;CS V02.05
- ;
- I $G(SCHEMA)="CNSOther" D Q
- .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL,LN
- .I DATEDX>3131231 S ONCDISC=1 D 2,3,7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="Colon" D Q
- .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 5,7,10 ;CS V02.05
- ;
- I $G(SCHEMA)="Conjunctiva" D Q
- .D 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
- .I DATEDX>3131231 S ONCDISC=1 D 2 ;CS V02.05
- ;
- I $G(SCHEMA)="CorpusAdenosarcoma" D Q
- .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="CorpusCarcinoma" D Q
- .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="CorpusSarcoma" D Q
- .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="CysticDuct" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
- ;
- I $G(SCHEMA)="DigestiveOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="EndocrineOther" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="EpiglottisAnterior" D Q
- .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="Esophagus" D Q
- .D 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 2,3,4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="EsophagusGEJunction" D Q
- .D 2,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
- .I DATEDX>3131231 S ONCDISC=1 D 3,4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="EyeOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="FallopianTube" D Q
- .D 8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 2,3 ;CS V02.05
- ;
- I $G(SCHEMA)="FloorMouth" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="Gallbladder" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 15,16 ;CS V02.05
- ;
- I $G(SCHEMA)="GenitalFemaleOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="GenitalMaleOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- ;
- I $G(SCHEMA)="GISTAppendix" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 3,4,5,6,7,8,9,10,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 13,14,15 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTColon" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 3,4,5,6,7,8,9,10,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 13,14,15 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTEsophagus" D Q
- .D 1,2,3,4,5,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 8,9,10 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTPeritoneum" D Q
- .D 1,2,3,4,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,9 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTRectum" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 3,4,5,6,7,8,9,10,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 13,14,15 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTSmallIntestine" D Q
- .D 1,2,3,4,5,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 8,9,10 ;CS V02.05
- ;
- I $G(SCHEMA)="GISTStomach" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 2,3,4,5,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 8,9,10 ;CS V02.05
- ;
- I $G(SCHEMA)="GumLower" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="GumOther" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="GumUpper" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="HeartMediastinum" D Q
- .D 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 2,4 ;CS V02.05
- ;
- I $G(SCHEMA)="HemeRetic" D Q
- .D 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D TS,EVAL,LN,METS
- ;
- I $G(SCHEMA)="Hypopharynx" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="IllDefinedOther" D Q
- .D 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EXT,EVAL,LN,METS
- ;
- I $G(SCHEMA)="IntracranialGland" D Q
- .D 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D EVAL
- .I DATEDX>3131231 S ONCDISC=1 D 2 ;CS V02.05
- ;
- I $G(SCHEMA)="KaposiSarcoma" D Q
- .D 2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D TS,EVAL
- .I DATEDX>3131231 S ONCDISC=1 D 2,3 ;CS V02.05
- ;
- D ^ONCCS3
- K ONCDISC Q
- ;
- 1 ;SSF1 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,5)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,5)=988
- Q
- ;
- 2 ;SSF2 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,6)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,6)=988
- Q
- ;
- 3 ;SSF3 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,7)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,7)=988
- Q
- ;
- 4 ;SSF4 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,8)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,8)=988
- Q
- ;
- 5 ;SSF5 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,9)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,9)=988
- Q
- ;
- 6 ;SSF6 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,10)'="" Q
- S $P(^ONCO(165.5,D0,"CS"),U,10)=988
- Q
- ;
- 7 ;SSF7 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,1)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,1)=988
- Q
- ;
- 8 ;SSF8 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,2)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,2)=988
- Q
- ;
- 9 ;SSF9 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,3)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,3)=988
- Q
- ;
- 10 ;SSF10 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,4)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,4)=988
- Q
- ;
- 11 ;SSF11 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,5)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,5)=988
- Q
- ;
- 12 ;SSF12 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,6)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,6)=988
- Q
- ;
- 13 ;SSF13 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,7)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,7)=988
- Q
- ;
- 14 ;SSF14 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,8)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,8)=988
- Q
- ;
- 15 ;SSF15 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,9)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,9)=988
- Q
- ;
- 16 ;SSF16 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,10)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,10)=988
- Q
- ;
- 17 ;SSF17 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,11)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,11)=988
- Q
- ;
- 18 ;SSF18 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,12)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,12)=988
- Q
- ;
- 19 ;SSF19 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,13)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,13)=988
- Q
- ;
- 20 ;SSF20 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,14)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,14)=988
- Q
- ;
- 21 ;SSF21 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,15)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,15)=988
- Q
- ;
- 22 ;SSF22 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,16)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,16)=988
- Q
- ;
- 23 ;SSF23 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,17)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,17)=988
- Q
- ;
- 24 ;SSF24 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,18)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,18)=988
- Q
- ;
- 25 ;SSF25 = 988
- I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,19)'="" Q
- S $P(^ONCO(165.5,D0,"CS2"),U,19)=988
- Q
- ;
- TS ;TUMOR SIZE (CS) = 988
- S $P(^ONCO(165.5,D0,"CS1"),U,10)=988
- Q
- ;
- EXT ;EXTENSION (CS) = 988
- S $P(^ONCO(165.5,D0,"CS"),U,11)=988
- Q
- ;
- EVAL ;TUMOR SIZE/EXT EVAL (CS) = 9
- ;LYMPH NODES EVAL (CS) = 9
- ;METS EVAL (CS) = 9
- S $P(^ONCO(165.5,D0,"CS"),U,1)=9
- S $P(^ONCO(165.5,D0,"CS"),U,2)=9
- S $P(^ONCO(165.5,D0,"CS"),U,4)=9
- Q
- ;
- EVAL1 ;LYMPH NODES EVAL (CS) = 9
- ;METS EVAL (CS) = 9
- S $P(^ONCO(165.5,D0,"CS"),U,2)=9
- S $P(^ONCO(165.5,D0,"CS"),U,4)=9
- Q
- ;
- EVAL2 ;LYMPH NODES EVAL (CS) = 9
- S $P(^ONCO(165.5,D0,"CS"),U,2)=9
- Q
- ;
- LN ;LYMPH NODES (CS) = 988
- ;REGIONAL LYMPH NODES EXAMINED = 99
- ;REGIONAL LYMPH NODES POSITIVE = 99
- S $P(^ONCO(165.5,D0,"CS"),U,12)=988
- S $P(^ONCO(165.5,D0,2),U,12)=99
- S $P(^ONCO(165.5,D0,2),U,13)=99
- Q
- ;
- METS ;METS AT DX (CS) = 98
- S $P(^ONCO(165.5,D0,"CS"),U,3)=98
- Q
- ;
- CLEANUP ;Cleanup
- K D0,ONCSAPI,SCHEMA,TOP
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCS2 12298 printed Feb 18, 2025@23:49:01 Page 2
- ONCCS2 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/23/10
- +1 ;;2.2;ONCOLOGY;**1,4,5,10**;Jul 31, 2013;Build 20
- +2 ;
- +3 SET SCHEMA="Unable to compute schema"
- +4 ;variable for discontinued items, set=1 if D/C
- NEW ONCDISC
- SET ONCDISC=""
- +5 if $GET(TOP)=""
- QUIT
- +6 NEW DISCRIM,HIST,MO,SCHNAME,SITE
- +7 SET MO=$$HIST^ONCFUNC(D0)
- +8 SET SITE=$TRANSLATE($$GET1^DIQ(164,TOP,1,"I"),".","")
- +9 SET HIST=$EXTRACT(MO,1,4)
- +10 SET DISCRIM=$$GET1^DIQ(165.5,D0,240)
- +11 SET SCHEMA=+$$SCHEMA^ONCSAPIS(.ONCSAPI,SITE,HIST,DISCRIM)
- +12 if SCHEMA<0
- QUIT
- +13 SET SCHEMA=SCHNAME
- +14 ;don't stuff for 2018+ cases
- IF DATEDX>3171231
- QUIT
- +15 ;
- +16 IF $GET(SCHEMA)="AdnexaUterineOther"
- Begin DoDot:1
- +17 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +18 DO EVAL
- End DoDot:1
- QUIT
- +19 ;
- +20 IF $GET(SCHEMA)="AdrenalGland"
- Begin DoDot:1
- +21 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +22 DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +23 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +24 ;
- +25 IF $GET(SCHEMA)="AmpullaVater"
- Begin DoDot:1
- +26 DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +27 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +28 ;
- +29 IF $GET(SCHEMA)="Anus"
- Begin DoDot:1
- +30 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +31 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- End DoDot:1
- QUIT
- +32 ;
- +33 IF $GET(SCHEMA)="Appendix"
- Begin DoDot:1
- +34 DO 5
- DO 6
- DO 8
- DO 9
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +35 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 4
- DO 7
- DO 10
- DO 12
- End DoDot:1
- QUIT
- +36 ;
- +37 IF $GET(SCHEMA)="BileDuctsDistal"
- Begin DoDot:1
- +38 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- +39 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 12
- DO 13
- DO 14
- End DoDot:1
- QUIT
- +40 ;
- +41 IF $GET(SCHEMA)="BileDuctsIntraHepat"
- Begin DoDot:1
- +42 DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +43 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 3
- DO 12
- End DoDot:1
- QUIT
- +44 ;
- +45 IF $GET(SCHEMA)="BileDuctsPerihilar"
- Begin DoDot:1
- +46 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- +47 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 10
- DO 12
- DO 13
- DO 14
- End DoDot:1
- QUIT
- +48 ;
- +49 IF $GET(SCHEMA)="BiliaryOther"
- Begin DoDot:1
- +50 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- End DoDot:1
- QUIT
- +51 ;
- +52 IF $GET(SCHEMA)="Bladder"
- Begin DoDot:1
- +53 DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- End DoDot:1
- QUIT
- +54 ;
- +55 IF $GET(SCHEMA)="Bone"
- Begin DoDot:1
- +56 DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +57 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 4
- End DoDot:1
- QUIT
- +58 ;
- +59 IF $GET(SCHEMA)="Brain"
- Begin DoDot:1
- +60 DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +61 DO EVAL
- DO LN
- +62 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +63 ;
- +64 IF $GET(SCHEMA)="Breast"
- Begin DoDot:1
- +65 DO 25
- +66 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 17
- DO 18
- DO 19
- DO 20
- DO 24
- End DoDot:1
- QUIT
- +67 ;
- +68 IF $GET(SCHEMA)="BuccalMucosa"
- Begin DoDot:1
- +69 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +70 DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +71 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +72 ;
- +73 IF $GET(SCHEMA)="CarcinoidAppendix"
- Begin DoDot:1
- +74 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +75 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +76 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 13
- End DoDot:1
- QUIT
- +77 ;
- +78 IF $GET(SCHEMA)="Cervix"
- Begin DoDot:1
- +79 DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +80 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- End DoDot:1
- QUIT
- +81 ;
- +82 IF $GET(SCHEMA)="CNSOther"
- Begin DoDot:1
- +83 DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +84 DO EVAL
- DO LN
- +85 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +86 ;
- +87 IF $GET(SCHEMA)="Colon"
- Begin DoDot:1
- +88 DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +89 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 5
- DO 7
- DO 10
- End DoDot:1
- QUIT
- +90 ;
- +91 IF $GET(SCHEMA)="Conjunctiva"
- Begin DoDot:1
- +92 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +93 if $PIECE($GET(^ONCO(165.5,D0,"CS1")),U,10)=""
- DO TS
- +94 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- End DoDot:1
- QUIT
- +95 ;
- +96 IF $GET(SCHEMA)="CorpusAdenosarcoma"
- Begin DoDot:1
- +97 DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +98 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +99 ;
- +100 IF $GET(SCHEMA)="CorpusCarcinoma"
- Begin DoDot:1
- +101 DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +102 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +103 ;
- +104 IF $GET(SCHEMA)="CorpusSarcoma"
- Begin DoDot:1
- +105 DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +106 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +107 ;
- +108 IF $GET(SCHEMA)="CysticDuct"
- Begin DoDot:1
- +109 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- End DoDot:1
- QUIT
- +110 ;
- +111 IF $GET(SCHEMA)="DigestiveOther"
- Begin DoDot:1
- +112 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +113 DO EVAL
- End DoDot:1
- QUIT
- +114 ;
- +115 IF $GET(SCHEMA)="EndocrineOther"
- Begin DoDot:1
- +116 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +117 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +118 DO EVAL
- End DoDot:1
- QUIT
- +119 ;
- +120 IF $GET(SCHEMA)="EpiglottisAnterior"
- Begin DoDot:1
- +121 DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +122 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +123 ;
- +124 IF $GET(SCHEMA)="Esophagus"
- Begin DoDot:1
- +125 DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +126 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +127 ;
- +128 IF $GET(SCHEMA)="EsophagusGEJunction"
- Begin DoDot:1
- +129 DO 2
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- +130 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 3
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +131 ;
- +132 IF $GET(SCHEMA)="EyeOther"
- Begin DoDot:1
- +133 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +134 DO EVAL
- End DoDot:1
- QUIT
- +135 ;
- +136 IF $GET(SCHEMA)="FallopianTube"
- Begin DoDot:1
- +137 DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +138 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +139 ;
- +140 IF $GET(SCHEMA)="FloorMouth"
- Begin DoDot:1
- +141 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +142 DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +143 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +144 ;
- +145 IF $GET(SCHEMA)="Gallbladder"
- Begin DoDot:1
- +146 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +147 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 15
- DO 16
- End DoDot:1
- QUIT
- +148 ;
- +149 IF $GET(SCHEMA)="GenitalFemaleOther"
- Begin DoDot:1
- +150 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +151 DO EVAL
- End DoDot:1
- QUIT
- +152 ;
- +153 IF $GET(SCHEMA)="GenitalMaleOther"
- Begin DoDot:1
- +154 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +155 DO EVAL
- End DoDot:1
- QUIT
- +156 ;
- +157 IF $GET(SCHEMA)="GISTAppendix"
- Begin DoDot:1
- +158 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +159 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +160 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +161 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 13
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +162 ;
- +163 IF $GET(SCHEMA)="GISTColon"
- Begin DoDot:1
- +164 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +165 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +166 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +167 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 13
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +168 ;
- +169 IF $GET(SCHEMA)="GISTEsophagus"
- Begin DoDot:1
- +170 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +171 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 8
- DO 9
- DO 10
- End DoDot:1
- QUIT
- +172 ;
- +173 IF $GET(SCHEMA)="GISTPeritoneum"
- Begin DoDot:1
- +174 DO 1
- DO 2
- DO 3
- DO 4
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +175 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 9
- End DoDot:1
- QUIT
- +176 ;
- +177 IF $GET(SCHEMA)="GISTRectum"
- Begin DoDot:1
- +178 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +179 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +180 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +181 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 13
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +182 ;
- +183 IF $GET(SCHEMA)="GISTSmallIntestine"
- Begin DoDot:1
- +184 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +185 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 8
- DO 9
- DO 10
- End DoDot:1
- QUIT
- +186 ;
- +187 IF $GET(SCHEMA)="GISTStomach"
- Begin DoDot:1
- +188 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +189 DO 2
- DO 3
- DO 4
- DO 5
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +190 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 8
- DO 9
- DO 10
- End DoDot:1
- QUIT
- +191 ;
- +192 IF $GET(SCHEMA)="GumLower"
- Begin DoDot:1
- +193 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +194 DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +195 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +196 ;
- +197 IF $GET(SCHEMA)="GumOther"
- Begin DoDot:1
- +198 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +199 DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +200 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +201 ;
- +202 IF $GET(SCHEMA)="GumUpper"
- Begin DoDot:1
- +203 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +204 DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +205 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +206 ;
- +207 IF $GET(SCHEMA)="HeartMediastinum"
- Begin DoDot:1
- +208 DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +209 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 4
- End DoDot:1
- QUIT
- +210 ;
- +211 IF $GET(SCHEMA)="HemeRetic"
- Begin DoDot:1
- +212 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +213 DO TS
- DO EVAL
- DO LN
- DO METS
- End DoDot:1
- QUIT
- +214 ;
- +215 IF $GET(SCHEMA)="Hypopharynx"
- Begin DoDot:1
- +216 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +217 DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +218 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +219 ;
- +220 IF $GET(SCHEMA)="IllDefinedOther"
- Begin DoDot:1
- +221 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +222 DO EXT
- DO EVAL
- DO LN
- DO METS
- End DoDot:1
- QUIT
- +223 ;
- +224 IF $GET(SCHEMA)="IntracranialGland"
- Begin DoDot:1
- +225 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +226 DO EVAL
- +227 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- End DoDot:1
- QUIT
- +228 ;
- +229 IF $GET(SCHEMA)="KaposiSarcoma"
- Begin DoDot:1
- +230 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +231 DO TS
- DO EVAL
- +232 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +233 ;
- +234 DO ^ONCCS3
- +235 KILL ONCDISC
- QUIT
- +236 ;
- 1 ;SSF1 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,5)=988
- +3 QUIT
- +4 ;
- 2 ;SSF2 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,6)=988
- +3 QUIT
- +4 ;
- 3 ;SSF3 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,7)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,7)=988
- +3 QUIT
- +4 ;
- 4 ;SSF4 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,8)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,8)=988
- +3 QUIT
- +4 ;
- 5 ;SSF5 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,9)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,9)=988
- +3 QUIT
- +4 ;
- 6 ;SSF6 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS")),U,10)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,10)=988
- +3 QUIT
- +4 ;
- 7 ;SSF7 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,1)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,1)=988
- +3 QUIT
- +4 ;
- 8 ;SSF8 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,2)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,2)=988
- +3 QUIT
- +4 ;
- 9 ;SSF9 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,3)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,3)=988
- +3 QUIT
- +4 ;
- 10 ;SSF10 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,4)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,4)=988
- +3 QUIT
- +4 ;
- 11 ;SSF11 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,5)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,5)=988
- +3 QUIT
- +4 ;
- 12 ;SSF12 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,6)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,6)=988
- +3 QUIT
- +4 ;
- 13 ;SSF13 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,7)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,7)=988
- +3 QUIT
- +4 ;
- 14 ;SSF14 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,8)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,8)=988
- +3 QUIT
- +4 ;
- 15 ;SSF15 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,9)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,9)=988
- +3 QUIT
- +4 ;
- 16 ;SSF16 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,10)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,10)=988
- +3 QUIT
- +4 ;
- 17 ;SSF17 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,11)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,11)=988
- +3 QUIT
- +4 ;
- 18 ;SSF18 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,12)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,12)=988
- +3 QUIT
- +4 ;
- 19 ;SSF19 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,13)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,13)=988
- +3 QUIT
- +4 ;
- 20 ;SSF20 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,14)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,14)=988
- +3 QUIT
- +4 ;
- 21 ;SSF21 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,15)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,15)=988
- +3 QUIT
- +4 ;
- 22 ;SSF22 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,16)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,16)=988
- +3 QUIT
- +4 ;
- 23 ;SSF23 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,17)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,17)=988
- +3 QUIT
- +4 ;
- 24 ;SSF24 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,18)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,18)=988
- +3 QUIT
- +4 ;
- 25 ;SSF25 = 988
- +1 IF ONCDISC=1
- IF $PIECE($GET(^ONCO(165.5,D0,"CS2")),U,19)'=""
- QUIT
- +2 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,19)=988
- +3 QUIT
- +4 ;
- TS ;TUMOR SIZE (CS) = 988
- +1 SET $PIECE(^ONCO(165.5,D0,"CS1"),U,10)=988
- +2 QUIT
- +3 ;
- EXT ;EXTENSION (CS) = 988
- +1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,11)=988
- +2 QUIT
- +3 ;
- EVAL ;TUMOR SIZE/EXT EVAL (CS) = 9
- +1 ;LYMPH NODES EVAL (CS) = 9
- +2 ;METS EVAL (CS) = 9
- +3 SET $PIECE(^ONCO(165.5,D0,"CS"),U,1)=9
- +4 SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
- +5 SET $PIECE(^ONCO(165.5,D0,"CS"),U,4)=9
- +6 QUIT
- +7 ;
- EVAL1 ;LYMPH NODES EVAL (CS) = 9
- +1 ;METS EVAL (CS) = 9
- +2 SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
- +3 SET $PIECE(^ONCO(165.5,D0,"CS"),U,4)=9
- +4 QUIT
- +5 ;
- EVAL2 ;LYMPH NODES EVAL (CS) = 9
- +1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,2)=9
- +2 QUIT
- +3 ;
- LN ;LYMPH NODES (CS) = 988
- +1 ;REGIONAL LYMPH NODES EXAMINED = 99
- +2 ;REGIONAL LYMPH NODES POSITIVE = 99
- +3 SET $PIECE(^ONCO(165.5,D0,"CS"),U,12)=988
- +4 SET $PIECE(^ONCO(165.5,D0,2),U,12)=99
- +5 SET $PIECE(^ONCO(165.5,D0,2),U,13)=99
- +6 QUIT
- +7 ;
- METS ;METS AT DX (CS) = 98
- +1 SET $PIECE(^ONCO(165.5,D0,"CS"),U,3)=98
- +2 QUIT
- +3 ;
- CLEANUP ;Cleanup
- +1 KILL D0,ONCSAPI,SCHEMA,TOP