source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCOCOS.m@ 812

ONCOCOS ;Hines OIFO/GWB 'COMPUTED-FIELD' EXPRESSIONS; 11/09/99
 ;;2.11;ONCOLOGY;**5,13,16,17,19,22,24,36,42,45,47**;Mar 07, 1995;Build 19
 ;
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)
 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",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="":"NONE",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