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

ONCCS4.m

Go to the documentation of this file.
  1. ONCCS4 ;Hines OIFO/GWB - Collaborative Staging v2 Stuffing ;06/16/11
  1. ;;2.2;ONCOLOGY;**5**;Jul 31, 2013;Build 6
  1. ;
  1. I $G(SCHEMA)="MouthOther" 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 8,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="MycosisFungoides" D Q
  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
  1. ;
  1. I $G(SCHEMA)="MyelomaPlasmaCellDisorder" 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. .D TS
  1. .D EVAL
  1. .S $P(^ONCO(165.5,D0,2),U,12)=99
  1. .S $P(^ONCO(165.5,D0,2),U,13)=99
  1. ;
  1. I $G(SCHEMA)="NasalCavity" 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)="Nasopharynx" 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
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="NETAmpulla" D Q
  1. .D 1,2,3,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 4 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="NETColon" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D 3,4,5,6,7,8,9,10,12,13,14,15,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 11 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="NETRectum" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D 3,4,5,7,8,9,10,12,13,14,15,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 11 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="NETSmallIntestine" D Q
  1. .D 1,2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 6 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="NETStomach" D Q
  1. .D 2,3,4,5,7,8,9,10,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 6 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Orbit" 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)="Oropharynx" 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 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Ovary" 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. .I DATEDX>3131231 S ONCDISC=1 D 4,5 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PalateHard" 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)="PalateSoft" 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 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PancreasBodyTail" 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 1,2,3 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PancreasHead" 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 1,2,3 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PancreasOther" 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 1,2,3 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="ParotidGland" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  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 7,8 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Penis" D Q
  1. .D 1,2,3,4,5,6,7,8,9,13,14,15,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 11,12,16 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Peritoneum" D Q
  1. .D 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
  1. .D SSF25
  1. .I DATEDX>3131231 S ONCDISC=1 D 2,3,4 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PeritoneumFemaleGen" D Q
  1. .D 6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24
  1. .I DATEDX>3131231 S ONCDISC=1 D 4,5 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PharyngealTonsil" 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
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="PharynxOther" 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 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Placenta" 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. .D EVAL2,LN
  1. ;
  1. I $G(SCHEMA)="Pleura" 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. .I DATEDX>3131231 S ONCDISC=1 D 3,4,5 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Prostate" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,9)="" 5
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,10)="" 6
  1. .D 16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 14,15 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Rectum" D Q
  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 5,7,10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="RespiratoryOther" 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. .D EVAL
  1. ;
  1. I $G(SCHEMA)="Retinoblastoma" D Q
  1. .D 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 2,3,4,5,6 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Retroperitoneum" D Q
  1. .D 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 2,3,4 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SalivaryGlandOther" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  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 7,8 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Scrotum" D Q
  1. .D 2,3,4,5,6,7,8,9,13,14,15,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 10,11 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SinusEthmoid" 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)="SinusMaxillary" 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)="SinusOther" 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)="Skin" D Q
  1. .D 2,3,4,5,6,7,8,9,13,14,15,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 10 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SkinEyelid" D Q
  1. .D 17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 1,2,4,5,7,9,11,12,13,14,15,16 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SmallIntestine" 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. .I DATEDX>3131231 S ONCDISC=1 D 4,5 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SoftTissue" D Q
  1. .D 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 2,4 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Stomach" D Q
  1. .D 3,4,5,6,7,8,9,10,11,12,16,17,18,19,20,21,22,23,24
  1. .I DATEDX>3131231 S ONCDISC=1 D 2,13,14,15 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="SubmandibularGland" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D 10,11,12,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 7,8 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Testis" D Q
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,5)="" 1
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,6)="" 2
  1. .D:$P($G(^ONCO(165.5,D0,"CS")),U,7)="" 3
  1. .;D 12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. .D 11,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 12,14 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Thyroid" D Q
  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
  1. ;
  1. I $G(SCHEMA)="TongueAnterior" 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)="TongueBase" 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 ;CS V02.05
  1. ;
  1. I $G(SCHEMA)="Trachea" 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. .D EVAL
  1. ;
  1. I $G(SCHEMA)="Urethra" D Q
  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
  1. ;
  1. I $G(SCHEMA)="UrinaryOther" 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. .D EVAL
  1. ;
  1. I $G(SCHEMA)="Vagina" D Q
  1. .D 8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25
  1. ;
  1. I $G(SCHEMA)="Vulva" D Q
  1. .D 1,2,3,4,5,6,7,8,9,16,17,18,19,20,21,22,23,24,25
  1. .I DATEDX>3131231 S ONCDISC=1 D 12,13,14,15 ;CS V02.05
  1. ;
  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