Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ONCCS3

ONCCS3.m

Go to the documentation of this file.
  1. ONCCS3 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
  1. ;;2.2;ONCOLOGY;**1,5**;Jul 31, 2013;Build 6
  1. ;
  1. I $G(SCHEMA)="KidneyParenchyma" D Q
  1. .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 5,7 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="KidneyRenalPelvis" D Q
  1. .D 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. ;
  1. I $G(SCHEMA)="LacrimalGland" D Q
  1. .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
  1. .I DATEDX>3131231 S ONCDISC=1 D 1,2,3,5,7 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LacrimalSac" D Q
  1. .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
  1. ;
  1. I $G(SCHEMA)="LarynxGlottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LarynxOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LarynxSubglottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LarynxSupraglottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LipLower" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LipOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LipUpper" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Liver" D Q
  1. .D 9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. ;
  1. I $G(SCHEMA)="Lung" D Q
  1. .D 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. ;
  1. I $G(SCHEMA)="Lymphoma" D Q
  1. .D 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .D TS,EVAL1,LN,METS
  1. .I DATEDX>3131231 S ONCDISC=1 D 4,5 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="LymphomaOcularAdnexa" D Q
  1. .D 14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 4,5,7,8,9,10,11,12,13 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaBuccalMucosa" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaChoroid" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D 15,16,17,18,19,20,21,22,23,24,25
  1. .D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
  1. .I DATEDX>3131231 S ONCDISC=1 D 8,14 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaCiliaryBody" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D 15,16,17,18,19,20,21,22,23,24
  1. .D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
  1. .I DATEDX>3131231 S ONCDISC=1 D 8,14 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaConjunctiva" D Q
  1. .D 4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 3 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaEpiglottisAnterior" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaEyeOther" D Q
  1. .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
  1. ;
  1. I $G(SCHEMA)="MelanomaFloorMouth" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaGumLower" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaGumOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaGumUpper" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaHypopharynx" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaIris" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D 15,16,17,18,19,20,21,22,23,24
  1. .D:$P($G(^ONCO(165.5,D0,"CS1")),U,10)="" TS
  1. .I DATEDX>3131231 S ONCDISC=1 D 2,8,14 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLarynxGlottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLarynxOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLarynxSubglottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLarynxSupraglottic" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLipLower" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLipOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaLipUpper" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaMouthOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaNasalCavity" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaNasopharynx" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaOropharynx" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaPalateHard" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaPalateSoft" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaPharynxOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaSinusEthmoid" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaSinusMaxillary" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaSinusOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .D EVAL
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaSkin" D Q
  1. .D 10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 8,9 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaTongueAnterior" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MelanomaTongueBase" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MerkelCellPenis" D Q
  1. .D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MerkelCellScrotum" D Q
  1. .D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MerkelCellSkin" D Q
  1. .D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MerkelCellVulva" D Q
  1. .D 2,4,5,6,7,8,9,10,11,12,13,14,15,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 19,20,21 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MiddleEar" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .D EVAL
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8,10 ;CS V02.05
  1. ;
  1. D ^ONCCS4
  1. Q
  1. ;
  1. 1 ;SSF1 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,5)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,5)=988
  1. Q
  1. ;
  1. 2 ;SSF2 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,6)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,6)=988
  1. Q
  1. ;
  1. 3 ;SSF3 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,7)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,7)=988
  1. Q
  1. ;
  1. 4 ;SSF4 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,8)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,8)=988
  1. Q
  1. ;
  1. 5 ;SSF5 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,9)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,9)=988
  1. Q
  1. ;
  1. 6 ;SSF6 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS")),U,10)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS"),U,10)=988
  1. Q
  1. ;
  1. 7 ;SSF7 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,1)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,1)=988
  1. Q
  1. ;
  1. 8 ;SSF8 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,2)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,2)=988
  1. Q
  1. ;
  1. 9 ;SSF9 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,3)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,3)=988
  1. Q
  1. ;
  1. 10 ;SSF10 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,4)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,4)=988
  1. Q
  1. ;
  1. 11 ;SSF11 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,5)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,5)=988
  1. Q
  1. ;
  1. 12 ;SSF12 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,6)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,6)=988
  1. Q
  1. ;
  1. 13 ;SSF13 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,7)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,7)=988
  1. Q
  1. ;
  1. 14 ;SSF14 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,8)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,8)=988
  1. Q
  1. ;
  1. 15 ;SSF15 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,9)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,9)=988
  1. Q
  1. ;
  1. 16 ;SSF16 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,10)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,10)=988
  1. Q
  1. ;
  1. 17 ;SSF17 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,11)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,11)=988
  1. Q
  1. ;
  1. 18 ;SSF18 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,12)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,12)=988
  1. Q
  1. ;
  1. 19 ;SSF19 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,13)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,13)=988
  1. Q
  1. ;
  1. 20 ;SSF20 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,14)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,14)=988
  1. Q
  1. ;
  1. 21 ;SSF21 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,15)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,15)=988
  1. Q
  1. ;
  1. 22 ;SSF22 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,16)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,16)=988
  1. Q
  1. ;
  1. 23 ;SSF23 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,17)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,17)=988
  1. Q
  1. ;
  1. 24 ;SSF24 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,18)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,18)=988
  1. Q
  1. ;
  1. 25 ;SSF25 = 988
  1. I ONCDISC=1,$P($G(^ONCO(165.5,D0,"CS2")),U,19)'="" Q
  1. S $P(^ONCO(165.5,D0,"CS2"),U,19)=988
  1. Q
  1. ;
  1. TS ;TUMOR SIZE (CS) = 988
  1. S $P(^ONCO(165.5,D0,"CS1"),U,10)=988
  1. Q
  1. ;
  1. EXT ;EXTENSION (CS) = 988
  1. S $P(^ONCO(165.5,D0,"CS"),U,11)=988
  1. Q
  1. ;
  1. EVAL ;TUMOR SIZE/EXT EVAL (CS) = 9
  1. ;LYMPH NODES EVAL (CS) = 9
  1. ;METS EVAL (CS) = 9
  1. S $P(^ONCO(165.5,D0,"CS"),U,1)=9
  1. S $P(^ONCO(165.5,D0,"CS"),U,2)=9
  1. S $P(^ONCO(165.5,D0,"CS"),U,4)=9
  1. Q
  1. ;
  1. EVAL1 ;LYMPH NODES EVAL (CS) = 9
  1. ;METS EVAL (CS) = 9
  1. S $P(^ONCO(165.5,D0,"CS"),U,2)=9
  1. S $P(^ONCO(165.5,D0,"CS"),U,4)=9
  1. Q
  1. ;
  1. EVAL2 ;LYMPH NODES EVAL (CS) = 9
  1. S $P(^ONCO(165.5,D0,"CS"),U,2)=9
  1. Q
  1. ;
  1. LN ;LYMPH NODES (CS) = 988
  1. ;REGIONAL LYMPH NODES EXAMINED = 99
  1. ;REGIONAL LYMPH NODES POSITIVE = 99
  1. S $P(^ONCO(165.5,D0,"CS"),U,12)=988
  1. S $P(^ONCO(165.5,D0,2),U,12)=99
  1. S $P(^ONCO(165.5,D0,2),U,13)=99
  1. Q
  1. ;
  1. METS ;METS AT DX (CS) = 98
  1. S $P(^ONCO(165.5,D0,"CS"),U,3)=98
  1. Q
  1. ;
  1. SSF25 ;SSF25 = CS SCHEMA DISCRIMINATOR (165.5,240)
  1. S $P(^ONCO(165.5,D0,"CS2"),U,19)=$P($G(^ONCO(165.5,D0,"CS3")),U,1)
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K D0,SCHEMA