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 Nov 22, 2024@17:32:44 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
