ONCCS3 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
;;2.2;ONCOLOGY;**1,5**;Jul 31, 2013;Build 6
;
I $G(SCHEMA)="KidneyParenchyma" 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 5,7 ;CS V02.05
;
I $G(SCHEMA)="KidneyRenalPelvis" 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
;
I $G(SCHEMA)="LacrimalGland" D Q
.D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
.I DATEDX>3131231 S ONCDISC=1 D 1,2,3,5,7 ;CS V02.05
;
I $G(SCHEMA)="LacrimalSac" 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)="LarynxGlottic" 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,10 ;CS V02.05
;
I $G(SCHEMA)="LarynxOther" 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,10 ;CS V02.05
;
I $G(SCHEMA)="LarynxSubglottic" 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,10 ;CS V02.05
;
I $G(SCHEMA)="LarynxSupraglottic" 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,10 ;CS V02.05
;
I $G(SCHEMA)="LipLower" 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)="LipOther" 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)="LipUpper" 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)="Liver" D Q
.D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
;
I $G(SCHEMA)="Lung" 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
;
I $G(SCHEMA)="Lymphoma" D Q
.D 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
.D TS,EVAL1,LN,METS
.I DATEDX>3131231 S ONCDISC=1 D 4,5 ;CS V02.05
;
I $G(SCHEMA)="LymphomaOcularAdnexa" D Q
.D 14,15,16,17,18,19,20,21,22,23,24,25
.I DATEDX>3131231 S ONCDISC=1 D 4,5,7,8,9,10,11,12,13 ;CS V02.05
;
I $G(SCHEMA)="MelanomaBuccalMucosa" 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)="MelanomaChoroid" D Q
.D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
.D 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 8,14 ;CS V02.05
;
I $G(SCHEMA)="MelanomaCiliaryBody" D Q
.D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
.D 15,16,17,18,19,20,21,22,23,24
.D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
.I DATEDX>3131231 S ONCDISC=1 D 8,14 ;CS V02.05
;
I $G(SCHEMA)="MelanomaConjunctiva" 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 3 ;CS V02.05
;
I $G(SCHEMA)="MelanomaEpiglottisAnterior" 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)="MelanomaEyeOther" 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)="MelanomaFloorMouth" 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)="MelanomaGumLower" 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)="MelanomaGumOther" 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)="MelanomaGumUpper" 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)="MelanomaHypopharynx" 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)="MelanomaIris" D Q
.D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
.D 15,16,17,18,19,20,21,22,23,24
.D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
.I DATEDX>3131231 S ONCDISC=1 D 2,8,14 ;CS V02.05
;
I $G(SCHEMA)="MelanomaLarynxGlottic" 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)="MelanomaLarynxOther" 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)="MelanomaLarynxSubglottic" 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)="MelanomaLarynxSupraglottic" 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)="MelanomaLipLower" 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)="MelanomaLipOther" 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)="MelanomaLipUpper" 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)="MelanomaMouthOther" 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)="MelanomaNasalCavity" 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)="MelanomaNasopharynx" 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)="MelanomaOropharynx" 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)="MelanomaPalateHard" 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)="MelanomaPalateSoft" 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)="MelanomaPharynxOther" 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)="MelanomaSinusEthmoid" 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)="MelanomaSinusMaxillary" 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)="MelanomaSinusOther" 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)="MelanomaSkin" 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 8,9 ;CS V02.05
;
I $G(SCHEMA)="MelanomaTongueAnterior" 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)="MelanomaTongueBase" 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)="MerkelCellPenis" D Q
.D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
.I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
;
I $G(SCHEMA)="MerkelCellScrotum" D Q
.D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
.I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
;
I $G(SCHEMA)="MerkelCellSkin" D Q
.D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
.I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
;
I $G(SCHEMA)="MerkelCellVulva" D Q
.D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
.I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
;
I $G(SCHEMA)="MiddleEar" 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,10 ;CS V02.05
;
D ^ONCCS4
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[HONCCS3 13232 printed Apr 09, 2024@21:24:08 Page 2
ONCCS3 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
+1 ;;2.2;ONCOLOGY;**1,5**;Jul 31, 2013;Build 6
+2 ;
+3 IF $GET(SCHEMA)="KidneyParenchyma"
Begin DoDot:1
+4 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
+5 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 5
DO 7
End DoDot:1
QUIT
+6 ;
+7 IF $GET(SCHEMA)="KidneyRenalPelvis"
Begin DoDot:1
+8 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
+9 ;
+10 IF $GET(SCHEMA)="LacrimalGland"
Begin DoDot:1
+11 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
+12 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 1
DO 2
DO 3
DO 5
DO 7
End DoDot:1
QUIT
+13 ;
+14 IF $GET(SCHEMA)="LacrimalSac"
Begin DoDot:1
+15 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
+16 ;
+17 IF $GET(SCHEMA)="LarynxGlottic"
Begin DoDot:1
+18 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+19 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
+20 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+21 ;
+22 IF $GET(SCHEMA)="LarynxOther"
Begin DoDot:1
+23 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+24 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
+25 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+26 ;
+27 IF $GET(SCHEMA)="LarynxSubglottic"
Begin DoDot:1
+28 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+29 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 7
DO 8
DO 10
End DoDot:1
QUIT
+31 ;
+32 IF $GET(SCHEMA)="LarynxSupraglottic"
Begin DoDot:1
+33 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+34 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
+35 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+36 ;
+37 IF $GET(SCHEMA)="LipLower"
Begin DoDot:1
+38 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+39 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
+40 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+41 ;
+42 IF $GET(SCHEMA)="LipOther"
Begin DoDot:1
+43 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+44 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
+45 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+46 ;
+47 IF $GET(SCHEMA)="LipUpper"
Begin DoDot:1
+48 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+49 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
+50 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+51 ;
+52 IF $GET(SCHEMA)="Liver"
Begin DoDot:1
+53 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)="Lung"
Begin DoDot:1
+56 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
+57 ;
+58 IF $GET(SCHEMA)="Lymphoma"
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 DO TS
DO EVAL1
DO LN
DO METS
+61 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 4
DO 5
End DoDot:1
QUIT
+62 ;
+63 IF $GET(SCHEMA)="LymphomaOcularAdnexa"
Begin DoDot:1
+64 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 4
DO 5
DO 7
DO 8
DO 9
DO 10
DO 11
DO 12
DO 13
End DoDot:1
QUIT
+66 ;
+67 IF $GET(SCHEMA)="MelanomaBuccalMucosa"
Begin DoDot:1
+68 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+69 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
DO 10
End DoDot:1
QUIT
+71 ;
+72 IF $GET(SCHEMA)="MelanomaChoroid"
Begin DoDot:1
+73 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
DO 1
+74 DO 15
DO 16
DO 17
DO 18
DO 19
DO 20
DO 21
DO 22
DO 23
DO 24
DO 25
+75 if $PIECE($GET(^ONCO(165.5,D0,"CS1")),U,10)=""
DO TS
+76 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 8
DO 14
End DoDot:1
QUIT
+77 ;
+78 IF $GET(SCHEMA)="MelanomaCiliaryBody"
Begin DoDot:1
+79 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
DO 1
+80 DO 15
DO 16
DO 17
DO 18
DO 19
DO 20
DO 21
DO 22
DO 23
DO 24
+81 if $PIECE($GET(^ONCO(165.5,D0,"CS1")),U,10)=""
DO TS
+82 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 8
DO 14
End DoDot:1
QUIT
+83 ;
+84 IF $GET(SCHEMA)="MelanomaConjunctiva"
Begin DoDot:1
+85 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
+86 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 3
End DoDot:1
QUIT
+87 ;
+88 IF $GET(SCHEMA)="MelanomaEpiglottisAnterior"
Begin DoDot:1
+89 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+90 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
+91 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+92 ;
+93 IF $GET(SCHEMA)="MelanomaEyeOther"
Begin DoDot:1
+94 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
+95 ;
+96 IF $GET(SCHEMA)="MelanomaFloorMouth"
Begin DoDot:1
+97 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+98 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
+99 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+100 ;
+101 IF $GET(SCHEMA)="MelanomaGumLower"
Begin DoDot:1
+102 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+103 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
+104 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+105 ;
+106 IF $GET(SCHEMA)="MelanomaGumOther"
Begin DoDot:1
+107 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+108 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
+109 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+110 ;
+111 IF $GET(SCHEMA)="MelanomaGumUpper"
Begin DoDot:1
+112 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+113 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
+114 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+115 ;
+116 IF $GET(SCHEMA)="MelanomaHypopharynx"
Begin DoDot:1
+117 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+118 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 7
DO 8
DO 10
End DoDot:1
QUIT
+120 ;
+121 IF $GET(SCHEMA)="MelanomaIris"
Begin DoDot:1
+122 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,5)=""
DO 1
+123 DO 15
DO 16
DO 17
DO 18
DO 19
DO 20
DO 21
DO 22
DO 23
DO 24
+124 if $PIECE($GET(^ONCO(165.5,D0,"CS1")),U,10)=""
DO TS
+125 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 2
DO 8
DO 14
End DoDot:1
QUIT
+126 ;
+127 IF $GET(SCHEMA)="MelanomaLarynxGlottic"
Begin DoDot:1
+128 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+129 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
+130 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+131 ;
+132 IF $GET(SCHEMA)="MelanomaLarynxOther"
Begin DoDot:1
+133 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+134 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
+135 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+136 ;
+137 IF $GET(SCHEMA)="MelanomaLarynxSubglottic"
Begin DoDot:1
+138 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+139 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
+140 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+141 ;
+142 IF $GET(SCHEMA)="MelanomaLarynxSupraglottic"
Begin DoDot:1
+143 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+144 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
+145 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+146 ;
+147 IF $GET(SCHEMA)="MelanomaLipLower"
Begin DoDot:1
+148 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+149 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
+150 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+151 ;
+152 IF $GET(SCHEMA)="MelanomaLipOther"
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)="MelanomaLipUpper"
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)="MelanomaMouthOther"
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 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+166 ;
+167 IF $GET(SCHEMA)="MelanomaNasalCavity"
Begin DoDot:1
+168 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+169 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
+170 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+171 ;
+172 IF $GET(SCHEMA)="MelanomaNasopharynx"
Begin DoDot:1
+173 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+174 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 10
End DoDot:1
QUIT
+176 ;
+177 IF $GET(SCHEMA)="MelanomaOropharynx"
Begin DoDot:1
+178 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+179 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
+180 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+181 ;
+182 IF $GET(SCHEMA)="MelanomaPalateHard"
Begin DoDot:1
+183 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+184 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 7
DO 8
DO 10
End DoDot:1
QUIT
+186 ;
+187 IF $GET(SCHEMA)="MelanomaPalateSoft"
Begin DoDot:1
+188 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+189 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 7
DO 8
DO 10
End DoDot:1
QUIT
+191 ;
+192 IF $GET(SCHEMA)="MelanomaPharynxOther"
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)="MelanomaSinusEthmoid"
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)="MelanomaSinusMaxillary"
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)="MelanomaSinusOther"
Begin DoDot:1
+208 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+209 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
+210 DO EVAL
+211 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+212 ;
+213 IF $GET(SCHEMA)="MelanomaSkin"
Begin DoDot:1
+214 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
+215 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 8
DO 9
End DoDot:1
QUIT
+216 ;
+217 IF $GET(SCHEMA)="MelanomaTongueAnterior"
Begin DoDot:1
+218 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+219 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
+220 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+221 ;
+222 IF $GET(SCHEMA)="MelanomaTongueBase"
Begin DoDot:1
+223 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+224 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
+225 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+226 ;
+227 IF $GET(SCHEMA)="MerkelCellPenis"
Begin DoDot:1
+228 DO 2
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 23
DO 24
DO 25
+229 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 19
DO 20
DO 21
End DoDot:1
QUIT
+230 ;
+231 IF $GET(SCHEMA)="MerkelCellScrotum"
Begin DoDot:1
+232 DO 2
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 23
DO 24
DO 25
+233 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 19
DO 20
DO 21
End DoDot:1
QUIT
+234 ;
+235 IF $GET(SCHEMA)="MerkelCellSkin"
Begin DoDot:1
+236 DO 2
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 23
DO 24
DO 25
+237 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 19
DO 20
DO 21
End DoDot:1
QUIT
+238 ;
+239 IF $GET(SCHEMA)="MerkelCellVulva"
Begin DoDot:1
+240 DO 2
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 23
DO 24
DO 25
+241 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 19
DO 20
DO 21
End DoDot:1
QUIT
+242 ;
+243 IF $GET(SCHEMA)="MiddleEar"
Begin DoDot:1
+244 if $PIECE($GET(^ONCO(165.5,D0,"CS")),U,6)=""
DO 2
+245 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
+246 DO EVAL
+247 ;CS V02.05
IF DATEDX>3131231
SET ONCDISC=1
DO 7
DO 8
DO 10
End DoDot:1
QUIT
+248 ;
+249 DO ^ONCCS4
+250 QUIT
+251 ;
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
