ONCOCOS ;Hines OIFO/GWB 'COMPUTED-FIELD' EXPRESSIONS ;11/30/11
;;2.2;ONCOLOGY;**1,5**;Jul 31, 2013;Build 6
;
SICD ;SELECTED SITES (165.5,.015)
S X=$P(^ONCO(165.5,D0,0),U,1)
S X=$S(X=31:"LUNG NOS",X=62:"LYMPHOMA",X=63:"N-H LYMPHOMA",X=54:"BLADDER",X=17:"COLON",X>65&(X<70):"LEUKEMIA",X=39:"MELANOMA",X=50:"PROSTATE",X=9:"ORAL CAVITY",1:"OTHER")
Q
;
SYS ;SYSTEMS (165.5,.017)
S X=$P(^ONCO(165.5,D0,0),U,1)
S X=$S(X=63:"LYMPH-NH",X=62:"LYMPH",1:"") Q:X'=""
S X=$P($G(^ONCO(165.5,D0,0)),U,22) Q:X=""
S X=$S(X<6715:"H&N",X<6726:"DS",X<6739:"RS",X<6747:"MS",(X>6751&(X<6768)):"GU",X=6747!(X>6769&(X<6772)):"NS",1:"OTH")
Q
;
RSX ;RACE-SEX (165.5,.13)
D GT G RSXEX:XD0=""
S X=$S(SX=1:"-M",SX=2:"-F",1:"")
S XRX=$S(RC=1:"White"_X,RC=2:"Black"_X,1:"Other"_X)
S X=XRX
RSXEX K XD0,SX,RC,XRX
Q
;
SXR ;SEX-RACE (165.5,.14)
D GT G SXREX:XD0=""
S X=$S(RC=1:"W",RC=2:"B",1:"O")
S XRX=$S(SX=1:"Male-"_X,SX=2:"Female-"_X,1:X)
S X=XRX
SXREX K XD0,SX,RC,XRX
Q
;
GT ;RACE 1 (160,8)
;SEX (160,10)
N XP0
S XD0=$S($D(^ONCO(165.5,D0,0)):$P(^(0),U,2),1:"") Q:XD0=""
Q:'$D(^ONCO(160,XD0,0))
S XP0=^ONCO(160,XD0,0)
S RC=$P(XP0,U,6)
S SX=$P(XP0,U,8)
Q
;
GSS ;SEER SUMMARY STAGE ABBREVIATED (165.5,35.1)
S X=$P($G(^ONCO(165.5,D0,2)),U,17)
S X=$S(X=0:"In Situ",X=1:"Local",X=2:"Reg Ext",X=3:"Reg Nodes",X=4:"Reg Ext/Nodes",X=5:"Reg NOS",X=7:"Dist Met/Sys",X=8:"NA/Benign",X=9:"Unk",1:"")
Q
;
SSG1 ;GP-I AJCC SUMMARY STAGE (165.5,38.1)
D SG
S X=$S(+X=1:"I"_$E(X,2),1:"")
Q
;
SSG2 ;GP-II AJCC SUMMARY STAGE (165.5,38.2)
D SG
S X=$S(+X=2:"II"_$E(X,2),1:"")
Q
;
SSG3 ;GP-III AJCC SUMMARY STAGE (165.5,38.3)
D SG
S X=$S(+X=3:"III"_$E(X,2),1:"")
Q
;
SSG4 ;GP-IV AJCC SUMMARY STAGE (165.5,38.4)
D SG
S X=$S(+X=4:"IV"_$E(X,2),1:"")
Q
;
SG ;STAGE GROUP CLINICAL (165.5,38)
S X=$S($D(^ONCO(165.5,D0,2)):$P(^(2),U,20),1:"")
Q
;
TXS ;TREATMENT ABBREVIATED (165.5,42)
S XD0=D0,XX=0
F S XX=$O(^ONCO(165.5,"ATX",XD0,XX)) Q:XX="" D
.I $E(XX,1,7)="0000000" Q
.I $E(XX,1,7)=9999999 Q
.S T=$E(XX,8,9)
.I T["S",T'="S1" Q
.I T["S",X["S" Q
.S X=$S(X="":$E(XX,8),1:X_"/"_$E(XX,8))
S X=$S(X="":"UNKNOWN",1:X)
K XD0,XX,T
Q
;
TX ;TREATMENT (165.5,43)
S XD0=D0,XX=0
F S XX=$O(^ONCO(165.5,"ATX",XD0,XX)) Q:XX="" D
.I $E(XX,1,7)="0000000" Q
.I $E(XX,1,7)=9999999 Q
.S T=$E(XX,8,9)
.I T["S",X["SUR" Q
.S TX=$S(T="S1":"SUR",T="C":"CMX",T="R":"XRT",T="H":"HOR",T="B":"BRM",T="P":"CNS",T="N":"NTX",T="E":"HEM",T="O":"OTR",1:"XXX")
.S:TX'="XXX" X=$S(X="":TX,1:X_"/"_TX)
S X=$S(X="":"NONE",1:X)
K XD0,XX,T,TX
Q
;
TRS ;STATUS/LAST TUMOR STATUS (165.5,95.1)
S XD0=D0
S XTS=$P($G(^ONCO(165.5,XD0,7)),U,6)
S XTS=$S(XTS=1:"No Evidence",XTS=2:"CA Evidence",1:"Unknown")
S XD1=$P(^ONCO(165.5,XD0,0),U,2)
S VS=$$GET1^DIQ(160,XD1,15)
S X=VS_"/"_XTS
K XD0,XTS,XD1,VS
Q
;
CLEANUP ;Cleanup
K D0,X
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCOCOS 2920 printed Dec 13, 2024@02:24:42 Page 2
ONCOCOS ;Hines OIFO/GWB 'COMPUTED-FIELD' EXPRESSIONS ;11/30/11
+1 ;;2.2;ONCOLOGY;**1,5**;Jul 31, 2013;Build 6
+2 ;
SICD ;SELECTED SITES (165.5,.015)
+1 SET X=$PIECE(^ONCO(165.5,D0,0),U,1)
+2 SET X=$SELECT(X=31:"LUNG NOS",X=62:"LYMPHOMA",X=63:"N-H LYMPHOMA",X=54:"BLADDER",X=17:"COLON",X>65&(X<70):"LEUKEMIA",X=39:"MELANOMA",X=50:"PROSTATE",X=9:"ORAL CAVITY",1:"OTHER")
+3 QUIT
+4 ;
SYS ;SYSTEMS (165.5,.017)
+1 SET X=$PIECE(^ONCO(165.5,D0,0),U,1)
+2 SET X=$SELECT(X=63:"LYMPH-NH",X=62:"LYMPH",1:"")
if X'=""
QUIT
+3 SET X=$PIECE($GET(^ONCO(165.5,D0,0)),U,22)
if X=""
QUIT
+4 SET X=$SELECT(X<6715:"H&N",X<6726:"DS",X<6739:"RS",X<6747:"MS",(X>6751&(X<6768)):"GU",X=6747!(X>6769&(X<6772)):"NS",1:"OTH")
+5 QUIT
+6 ;
RSX ;RACE-SEX (165.5,.13)
+1 DO GT
if XD0=""
GOTO RSXEX
+2 SET X=$SELECT(SX=1:"-M",SX=2:"-F",1:"")
+3 SET XRX=$SELECT(RC=1:"White"_X,RC=2:"Black"_X,1:"Other"_X)
+4 SET X=XRX
RSXEX KILL XD0,SX,RC,XRX
+1 QUIT
+2 ;
SXR ;SEX-RACE (165.5,.14)
+1 DO GT
if XD0=""
GOTO SXREX
+2 SET X=$SELECT(RC=1:"W",RC=2:"B",1:"O")
+3 SET XRX=$SELECT(SX=1:"Male-"_X,SX=2:"Female-"_X,1:X)
+4 SET X=XRX
SXREX KILL XD0,SX,RC,XRX
+1 QUIT
+2 ;
GT ;RACE 1 (160,8)
+1 ;SEX (160,10)
+2 NEW XP0
+3 SET XD0=$SELECT($DATA(^ONCO(165.5,D0,0)):$PIECE(^(0),U,2),1:"")
if XD0=""
QUIT
+4 if '$DATA(^ONCO(160,XD0,0))
QUIT
+5 SET XP0=^ONCO(160,XD0,0)
+6 SET RC=$PIECE(XP0,U,6)
+7 SET SX=$PIECE(XP0,U,8)
+8 QUIT
+9 ;
GSS ;SEER SUMMARY STAGE ABBREVIATED (165.5,35.1)
+1 SET X=$PIECE($GET(^ONCO(165.5,D0,2)),U,17)
+2 SET X=$SELECT(X=0:"In Situ",X=1:"Local",X=2:"Reg Ext",X=3:"Reg Nodes",X=4:"Reg Ext/Nodes",X=5:"Reg NOS",X=7:"Dist Met/Sys",X=8:"NA/Benign",X=9:"Unk",1:"")
+3 QUIT
+4 ;
SSG1 ;GP-I AJCC SUMMARY STAGE (165.5,38.1)
+1 DO SG
+2 SET X=$SELECT(+X=1:"I"_$EXTRACT(X,2),1:"")
+3 QUIT
+4 ;
SSG2 ;GP-II AJCC SUMMARY STAGE (165.5,38.2)
+1 DO SG
+2 SET X=$SELECT(+X=2:"II"_$EXTRACT(X,2),1:"")
+3 QUIT
+4 ;
SSG3 ;GP-III AJCC SUMMARY STAGE (165.5,38.3)
+1 DO SG
+2 SET X=$SELECT(+X=3:"III"_$EXTRACT(X,2),1:"")
+3 QUIT
+4 ;
SSG4 ;GP-IV AJCC SUMMARY STAGE (165.5,38.4)
+1 DO SG
+2 SET X=$SELECT(+X=4:"IV"_$EXTRACT(X,2),1:"")
+3 QUIT
+4 ;
SG ;STAGE GROUP CLINICAL (165.5,38)
+1 SET X=$SELECT($DATA(^ONCO(165.5,D0,2)):$PIECE(^(2),U,20),1:"")
+2 QUIT
+3 ;
TXS ;TREATMENT ABBREVIATED (165.5,42)
+1 SET XD0=D0
SET XX=0
+2 FOR
SET XX=$ORDER(^ONCO(165.5,"ATX",XD0,XX))
if XX=""
QUIT
Begin DoDot:1
+3 IF $EXTRACT(XX,1,7)="0000000"
QUIT
+4 IF $EXTRACT(XX,1,7)=9999999
QUIT
+5 SET T=$EXTRACT(XX,8,9)
+6 IF T["S"
IF T'="S1"
QUIT
+7 IF T["S"
IF X["S"
QUIT
+8 SET X=$SELECT(X="":$EXTRACT(XX,8),1:X_"/"_$EXTRACT(XX,8))
End DoDot:1
+9 SET X=$SELECT(X="":"UNKNOWN",1:X)
+10 KILL XD0,XX,T
+11 QUIT
+12 ;
TX ;TREATMENT (165.5,43)
+1 SET XD0=D0
SET XX=0
+2 FOR
SET XX=$ORDER(^ONCO(165.5,"ATX",XD0,XX))
if XX=""
QUIT
Begin DoDot:1
+3 IF $EXTRACT(XX,1,7)="0000000"
QUIT
+4 IF $EXTRACT(XX,1,7)=9999999
QUIT
+5 SET T=$EXTRACT(XX,8,9)
+6 IF T["S"
IF X["SUR"
QUIT
+7 SET TX=$SELECT(T="S1":"SUR",T="C":"CMX",T="R":"XRT",T="H":"HOR",T="B":"BRM",T="P":"CNS",T="N":"NTX",T="E":"HEM",T="O":"OTR",1:"XXX")
+8 if TX'="XXX"
SET X=$SELECT(X="":TX,1:X_"/"_TX)
End DoDot:1
+9 SET X=$SELECT(X="":"NONE",1:X)
+10 KILL XD0,XX,T,TX
+11 QUIT
+12 ;
TRS ;STATUS/LAST TUMOR STATUS (165.5,95.1)
+1 SET XD0=D0
+2 SET XTS=$PIECE($GET(^ONCO(165.5,XD0,7)),U,6)
+3 SET XTS=$SELECT(XTS=1:"No Evidence",XTS=2:"CA Evidence",1:"Unknown")
+4 SET XD1=$PIECE(^ONCO(165.5,XD0,0),U,2)
+5 SET VS=$$GET1^DIQ(160,XD1,15)
+6 SET X=VS_"/"_XTS
+7 KILL XD0,XTS,XD1,VS
+8 QUIT
+9 ;
CLEANUP ;Cleanup
+1 KILL D0,X
