- ONCCS4 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
- ;;2.2;ONCOLOGY;**5**;Jul 31, 2013;Build 6
- ;
- I $G(SCHEMA)="MouthOther" 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 8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="MycosisFungoides" 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 $G(SCHEMA)="MyelomaPlasmaCellDisorder" 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
- .D TS
- .D EVAL
- .S $P(^ONCO(165.5,D0,2),U,12)=99
- .S $P(^ONCO(165.5,D0,2),U,13)=99
- ;
- I $G(SCHEMA)="NasalCavity" 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)="Nasopharynx" 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
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="NETAmpulla" D Q
- .D 1,2,3,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 4 ;CS V02.05
- ;
- I $G(SCHEMA)="NETColon" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 3,4,5,6,7,8,9,10,12,13,14,15,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 11 ;CS V02.05
- ;
- I $G(SCHEMA)="NETRectum" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
- .D 3,4,5,7,8,9,10,12,13,14,15,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 11 ;CS V02.05
- ;
- I $G(SCHEMA)="NETSmallIntestine" D Q
- .D 1,2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 6 ;CS V02.05
- ;
- I $G(SCHEMA)="NETStomach" D Q
- .D 2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 6 ;CS V02.05
- ;
- I $G(SCHEMA)="Orbit" 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)="Oropharynx" 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)="Ovary" 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 4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="PalateHard" 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)="PalateSoft" 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)="PancreasBodyTail" 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)="PancreasHead" 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)="PancreasOther" 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)="ParotidGland" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 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)="Penis" D Q
- .D 1,2,3,4,5,6,7,8,9,13,14,15,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 11,12,16 ;CS V02.05
- ;
- I $G(SCHEMA)="Peritoneum" D Q
- .D 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
- .D SSF25
- .I DATEDX>3131231 S ONCDISC=1 D 2,3,4 ;CS V02.05
- ;
- I $G(SCHEMA)="PeritoneumFemaleGen" D Q
- .D 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 4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="PharyngealTonsil" 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
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="PharynxOther" 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
- .D EVAL
- .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
- ;
- I $G(SCHEMA)="Placenta" 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 EVAL2,LN
- ;
- I $G(SCHEMA)="Pleura" 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 3,4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="Prostate" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,9)="" 5
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,10)="" 6
- .D 16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 14,15 ;CS V02.05
- ;
- I $G(SCHEMA)="Rectum" 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)="RespiratoryOther" 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)="Retinoblastoma" D Q
- .D 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,6 ;CS V02.05
- ;
- I $G(SCHEMA)="Retroperitoneum" 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,3,4 ;CS V02.05
- ;
- I $G(SCHEMA)="SalivaryGlandOther" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 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)="Scrotum" D Q
- .D 2,3,4,5,6,7,8,9,13,14,15,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 10,11 ;CS V02.05
- ;
- I $G(SCHEMA)="SinusEthmoid" 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)="SinusMaxillary" 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)="SinusOther" 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
- .D EVAL
- .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
- ;
- I $G(SCHEMA)="Skin" D Q
- .D 2,3,4,5,6,7,8,9,13,14,15,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 10 ;CS V02.05
- ;
- I $G(SCHEMA)="SkinEyelid" D Q
- .D 17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 1,2,4,5,7,9,11,12,13,14,15,16 ;CS V02.05
- ;
- I $G(SCHEMA)="SmallIntestine" 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 4,5 ;CS V02.05
- ;
- I $G(SCHEMA)="SoftTissue" 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)="Stomach" D Q
- .D 3,4,5,6,7,8,9,10,11,12,16,17,18,19,20,21,22,23,24
- .I DATEDX>3131231 S ONCDISC=1 D 2,13,14,15 ;CS V02.05
- ;
- I $G(SCHEMA)="SubmandibularGland" D Q
- .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
- .D 10,11,12,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)="Testis" 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:$P($G(^ONCO(165.5,D0,"CS")),U,7)="" 3
- .;D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- .D 11,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 12,14 ;CS V02.05
- ;
- I $G(SCHEMA)="Thyroid" 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 $G(SCHEMA)="TongueAnterior" 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)="TongueBase" 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)="Trachea" 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)="Urethra" 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 $G(SCHEMA)="UrinaryOther" 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)="Vagina" D Q
- .D 8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
- ;
- I $G(SCHEMA)="Vulva" D Q
- .D 1,2,3,4,5,6,7,8,9,16,17,18,19,20,21,22,23,24,25
- .I DATEDX>3131231 S ONCDISC=1 D 12,13,14,15 ;CS V02.05
- ;
- 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
- ;
- SSF25 ;SSF25 = CS SCHEMA DISCRIMINATOR (165.5,240)
- S $P(^ONCO(165.5,D0,"CS2"),U,19)=$P($G(^ONCO(165.5,D0,"CS3")),U,1)
- Q
- ;
- CLEANUP ;Cleanup
- K D0,SCHEMA
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCCS4 12262 printed Feb 18, 2025@23:49:03 Page 2
- ONCCS4 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
- +1 ;;2.2;ONCOLOGY;**5**;Jul 31, 2013;Build 6
- +2 ;
- +3 IF $GET(SCHEMA)="MouthOther"
- Begin DoDot:1
- +4 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +5 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
- +6 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +7 ;
- +8 IF $GET(SCHEMA)="MycosisFungoides"
- Begin DoDot:1
- +9 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
- +10 ;
- +11 IF $GET(SCHEMA)="MyelomaPlasmaCellDisorder"
- Begin DoDot:1
- +12 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
- +13 DO TS
- +14 DO EVAL
- +15 SET $PIECE(^ONCO(165.5,D0,2),U,12)=99
- +16 SET $PIECE(^ONCO(165.5,D0,2),U,13)=99
- End DoDot:1
- QUIT
- +17 ;
- +18 IF $GET(SCHEMA)="NasalCavity"
- Begin DoDot:1
- +19 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +20 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
- +21 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +22 ;
- +23 IF $GET(SCHEMA)="Nasopharynx"
- Begin DoDot:1
- +24 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +25 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
- +26 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +27 ;
- +28 IF $GET(SCHEMA)="NETAmpulla"
- Begin DoDot:1
- +29 DO 1
- DO 2
- DO 3
- 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
- +30 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 4
- End DoDot:1
- QUIT
- +31 ;
- +32 IF $GET(SCHEMA)="NETColon"
- Begin DoDot:1
- +33 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +34 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 12
- DO 13
- DO 14
- DO 15
- 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 11
- End DoDot:1
- QUIT
- +36 ;
- +37 IF $GET(SCHEMA)="NETRectum"
- Begin DoDot:1
- +38 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +39 DO 3
- DO 4
- DO 5
- DO 7
- DO 8
- DO 9
- DO 10
- DO 12
- DO 13
- DO 14
- DO 15
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +40 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 11
- End DoDot:1
- QUIT
- +41 ;
- +42 IF $GET(SCHEMA)="NETSmallIntestine"
- Begin DoDot:1
- +43 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 7
- DO 8
- DO 9
- DO 10
- 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
- +44 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 6
- End DoDot:1
- QUIT
- +45 ;
- +46 IF $GET(SCHEMA)="NETStomach"
- Begin DoDot:1
- +47 DO 2
- DO 3
- DO 4
- DO 5
- DO 7
- DO 8
- DO 9
- DO 10
- 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
- +48 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 6
- End DoDot:1
- QUIT
- +49 ;
- +50 IF $GET(SCHEMA)="Orbit"
- Begin DoDot:1
- +51 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
- +52 ;
- +53 IF $GET(SCHEMA)="Oropharynx"
- Begin DoDot:1
- +54 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +55 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
- +56 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +57 ;
- +58 IF $GET(SCHEMA)="Ovary"
- Begin DoDot:1
- +59 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
- +60 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +61 ;
- +62 IF $GET(SCHEMA)="PalateHard"
- Begin DoDot:1
- +63 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +64 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
- +65 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +66 ;
- +67 IF $GET(SCHEMA)="PalateSoft"
- Begin DoDot:1
- +68 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +69 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
- +70 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +71 ;
- +72 IF $GET(SCHEMA)="PancreasBodyTail"
- Begin DoDot:1
- +73 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
- +74 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +75 ;
- +76 IF $GET(SCHEMA)="PancreasHead"
- Begin DoDot:1
- +77 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
- +78 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +79 ;
- +80 IF $GET(SCHEMA)="PancreasOther"
- Begin DoDot:1
- +81 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
- +82 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 3
- End DoDot:1
- QUIT
- +83 ;
- +84 IF $GET(SCHEMA)="ParotidGland"
- Begin DoDot:1
- +85 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +86 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
- +87 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +88 ;
- +89 IF $GET(SCHEMA)="Penis"
- Begin DoDot:1
- +90 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 13
- DO 14
- DO 15
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +91 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 11
- DO 12
- DO 16
- End DoDot:1
- QUIT
- +92 ;
- +93 IF $GET(SCHEMA)="Peritoneum"
- Begin DoDot:1
- +94 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
- +95 DO SSF25
- +96 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 4
- End DoDot:1
- QUIT
- +97 ;
- +98 IF $GET(SCHEMA)="PeritoneumFemaleGen"
- Begin DoDot:1
- +99 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
- +100 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +101 ;
- +102 IF $GET(SCHEMA)="PharyngealTonsil"
- Begin DoDot:1
- +103 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +104 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
- +105 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +106 ;
- +107 IF $GET(SCHEMA)="PharynxOther"
- Begin DoDot:1
- +108 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +109 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
- +110 DO EVAL
- +111 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +112 ;
- +113 IF $GET(SCHEMA)="Placenta"
- Begin DoDot:1
- +114 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
- +115 DO EVAL2
- DO LN
- End DoDot:1
- QUIT
- +116 ;
- +117 IF $GET(SCHEMA)="Pleura"
- Begin DoDot:1
- +118 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
- +119 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 3
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +120 ;
- +121 IF $GET(SCHEMA)="Prostate"
- Begin DoDot:1
- +122 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,9)=""
- DO 5
- +123 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,10)=""
- DO 6
- +124 DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +125 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +126 ;
- +127 IF $GET(SCHEMA)="Rectum"
- Begin DoDot:1
- +128 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
- +129 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 5
- DO 7
- DO 10
- End DoDot:1
- QUIT
- +130 ;
- +131 IF $GET(SCHEMA)="RespiratoryOther"
- Begin DoDot:1
- +132 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
- +133 DO EVAL
- End DoDot:1
- QUIT
- +134 ;
- +135 IF $GET(SCHEMA)="Retinoblastoma"
- Begin DoDot:1
- +136 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
- +137 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- End DoDot:1
- QUIT
- +138 ;
- +139 IF $GET(SCHEMA)="Retroperitoneum"
- Begin DoDot:1
- +140 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
- +141 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 3
- DO 4
- End DoDot:1
- QUIT
- +142 ;
- +143 IF $GET(SCHEMA)="SalivaryGlandOther"
- Begin DoDot:1
- +144 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +145 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
- +146 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +147 ;
- +148 IF $GET(SCHEMA)="Scrotum"
- Begin DoDot:1
- +149 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 13
- DO 14
- DO 15
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +150 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 10
- DO 11
- End DoDot:1
- QUIT
- +151 ;
- +152 IF $GET(SCHEMA)="SinusEthmoid"
- Begin DoDot:1
- +153 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +154 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 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +156 ;
- +157 IF $GET(SCHEMA)="SinusMaxillary"
- Begin DoDot:1
- +158 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +159 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
- +160 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +161 ;
- +162 IF $GET(SCHEMA)="SinusOther"
- Begin DoDot:1
- +163 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +164 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
- +165 DO EVAL
- +166 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +167 ;
- +168 IF $GET(SCHEMA)="Skin"
- Begin DoDot:1
- +169 DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 13
- DO 14
- DO 15
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +170 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 10
- End DoDot:1
- QUIT
- +171 ;
- +172 IF $GET(SCHEMA)="SkinEyelid"
- Begin DoDot:1
- +173 DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +174 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 1
- DO 2
- DO 4
- DO 5
- DO 7
- DO 9
- DO 11
- DO 12
- DO 13
- DO 14
- DO 15
- DO 16
- End DoDot:1
- QUIT
- +175 ;
- +176 IF $GET(SCHEMA)="SmallIntestine"
- Begin DoDot:1
- +177 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
- +178 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 4
- DO 5
- End DoDot:1
- QUIT
- +179 ;
- +180 IF $GET(SCHEMA)="SoftTissue"
- Begin DoDot:1
- +181 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
- +182 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 4
- End DoDot:1
- QUIT
- +183 ;
- +184 IF $GET(SCHEMA)="Stomach"
- Begin DoDot:1
- +185 DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 10
- DO 11
- DO 12
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- +186 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 2
- DO 13
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +187 ;
- +188 IF $GET(SCHEMA)="SubmandibularGland"
- Begin DoDot:1
- +189 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +190 DO 10
- DO 11
- DO 12
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +191 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +192 ;
- +193 IF $GET(SCHEMA)="Testis"
- Begin DoDot:1
- +194 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
- DO 1
- +195 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +196 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,7)=""
- DO 3
- +197 ;D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
- +198 DO 11
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +199 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 12
- DO 14
- End DoDot:1
- QUIT
- +200 ;
- +201 IF $GET(SCHEMA)="Thyroid"
- Begin DoDot:1
- +202 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
- +203 ;
- +204 IF $GET(SCHEMA)="TongueAnterior"
- Begin DoDot:1
- +205 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +206 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
- +207 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- DO 10
- End DoDot:1
- QUIT
- +208 ;
- +209 IF $GET(SCHEMA)="TongueBase"
- Begin DoDot:1
- +210 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
- DO 2
- +211 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
- +212 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 7
- DO 8
- End DoDot:1
- QUIT
- +213 ;
- +214 IF $GET(SCHEMA)="Trachea"
- Begin DoDot:1
- +215 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
- +216 DO EVAL
- End DoDot:1
- QUIT
- +217 ;
- +218 IF $GET(SCHEMA)="Urethra"
- Begin DoDot:1
- +219 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
- +220 ;
- +221 IF $GET(SCHEMA)="UrinaryOther"
- Begin DoDot:1
- +222 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
- +223 DO EVAL
- End DoDot:1
- QUIT
- +224 ;
- +225 IF $GET(SCHEMA)="Vagina"
- Begin DoDot:1
- +226 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
- +227 ;
- +228 IF $GET(SCHEMA)="Vulva"
- Begin DoDot:1
- +229 DO 1
- DO 2
- DO 3
- DO 4
- DO 5
- DO 6
- DO 7
- DO 8
- DO 9
- DO 16
- DO 17
- DO 18
- DO 19
- DO 20
- DO 21
- DO 22
- DO 23
- DO 24
- DO 25
- +230 ;CS V02.05
- IF DATEDX>3131231
- SET ONCDISC=1
- DO 12
- DO 13
- DO 14
- DO 15
- End DoDot:1
- QUIT
- +231 ;
- +232 QUIT
- +233 ;
- 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 ;
- SSF25 ;SSF25 = CS SCHEMA DISCRIMINATOR (165.5,240)
- +1 SET $PIECE(^ONCO(165.5,D0,"CS2"),U,19)=$PIECE($GET(^ONCO(165.5,D0,"CS3")),U,1)
- +2 QUIT
- +3 ;
- CLEANUP ;Cleanup
- +1 KILL D0,SCHEMA