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 Apr 09, 2024@21:28:30 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
