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

ONCOU55.m

Go to the documentation of this file.
  1. ONCOU55 ;HINES OIFO/GWB - Utility routine # 1 ;06/23/10
  1. ;;2.2;ONCOLOGY;**1,10,12,13,15,17,20**;Jul 31, 2013;Build 5
  1. ;
  1. LTS(DA,NOTTHIS) ;Sets LAST TUMOR STATUS field (165.5,95)
  1. ;Called by AC cross-reference of CANCER STATUS (165.573,.02)
  1. ;NOTTHIS is defined by CANCER STATUS (165.573,.02) KILL logic
  1. ;If the latest CANCER STATUS is deleted, LAST TUMOR STATUS is updated
  1. ;with the next most recent CANCER STATUS.
  1. N OX,DIE,DR,NTS,OTS
  1. S NTS=""
  1. S OX=$$TSLAST(DA,+$G(NOTTHIS))
  1. S:OX NTS=$P($G(^ONCO(165.5,DA,"TS",OX,0)),U,2)
  1. S OTS=$P($G(^ONCO(165.5,DA,7)),U,6)
  1. S $P(^ONCO(165.5,DA,7),U,6)=NTS
  1. K:$L(OTS) ^ONCO(165.5,"ACS",OTS,DA)
  1. S:$L(NTS) ^ONCO(165.5,"ACS",NTS,DA)=""
  1. Q
  1. ;
  1. TSLAST(DA,NOTTHIS) ;Get last TUMOR STATUS DATE (165.573,.01)
  1. N IEN
  1. S IEN=$O(^ONCO(165.5,DA,"TS","AA",""))
  1. I IEN,$D(NOTTHIS),$D(^ONCO(165.5,DA,"TS","AA",IEN,NOTTHIS)) S IEN=$O(^ONCO(165.5,DA,"TS","AA",IEN))
  1. S:IEN IEN=$O(^ONCO(165.5,DA,"TS","AA",IEN,""))
  1. Q IEN
  1. ;
  1. SETTS(IEN,FOLDATE) ;Set TUMOR STATUS (165.5,73)
  1. ;Called by FINDSET^ONCOAIS
  1. N DA,DO,DIC,PREVENT,PREVTS,SUBENT,TOFR,X,Y
  1. S TOFR=$$GET1^DIQ(165.5,IEN,71)
  1. S PREVTS=""
  1. S PREVENT=$O(^ONCO(165.5,IEN,"TS","AA",9999999-FOLDATE))
  1. I PREVENT D
  1. .I TOFR'="Never disease-free" D
  1. ..S PREVENT=$O(^ONCO(165.5,IEN,"TS","AA",PREVENT,0))
  1. ..S PREVTS=$P($G(^ONCO(165.5,IEN,"TS",PREVENT,0)),U,2)
  1. K DO,DIC
  1. S DA(1)=IEN,DIC="^ONCO(165.5,DA(1),""TS"","
  1. S DIC(0)="L",X=FOLDATE
  1. S DIC("DR")=".02////^S X=PREVTS"
  1. D FILE^DICN
  1. S SUBENT=+Y
  1. D LTS(IEN)
  1. Q SUBENT
  1. ;
  1. TNMED(IEN) ;AJCC Cancer Staging Manual Edition
  1. N CSG,PSG,TNMED,TNMMO,TOP,YR,TNMAJCC
  1. S YR=$E($P($G(^ONCO(165.5,IEN,0)),U,16),1,3)
  1. S TNMED=$S(YR<283:1,YR<288:2,YR<292:3,YR<298:4,YR<303:5,YR<310:6,YR<318:7,1:8)
  1. S TNMMO=$$HIST^ONCFUNC(IEN),TNMMO=$E(TNMMO,1,4)
  1. S TOP=$P($G(^ONCO(165.5,IEN,2)),U,1)
  1. S TNMAJCC=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",1)
  1. I (YR>317)&(TOP=67421)&((TNMMO=9671)!(TNMMO=9724)!(TNMMO=9727)!(TNMMO=9801)!((TNMMO>9805)&(TNMMO<9810))!(TNMMO=9831)!(TNMMO=9833)!(TNMMO=9834)!(TNMMO=9940)!(TNMMO=9948)) D I TNMED=88 G TNMEX
  1. .I (TNMAJCC'="82.1")&(TNMAJCC'="82.2")&($E(TNMAJCC,1,2)'="83") S TNMED=88 Q
  1. I (YR>317)&($P($G(^ONCO(165.5,IEN,"AJCC8")),"^",1)="XX") S TNMED=88 G TNMEX
  1. I $$LYMPHOMA^ONCFUNC(IEN) G TNMEX
  1. I YR>295!($$LEUKEMIA^ONCOAIP2(IEN)) D
  1. .I YR>317 Q ; because this is all new staging for 2018+ 8th edition
  1. .S CSG=$P($G(^ONCO(165.5,IEN,2)),U,20)
  1. .S PSG=$P($G(^ONCO(165.5,IEN,2.1)),U,4)
  1. .I (CSG=88)&(PSG=88) S TNMED=88
  1. I TNMED=5 D
  1. .I (TNMMO>9730)&(TNMMO<9990) S TNMED=88 Q
  1. .I TNMMO=9140 S TNMED=88 Q
  1. .I (TOP=67173)!(TOP=67254)!(TOP=67260)!(TOP=67268)!(TOP=67269)!(TOP=67300)!(TOP=67301)!(TOP=67312)!(TOP=67313)!(TOP=67318)!(TOP=67319)!(TOP=67339)!(TOP=67379)!(TOP=67390)!(TOP=67398)!(TOP=67399)!(TOP=67420)!(TOP=67421) S TNMED=88 Q
  1. .I (TOP=67422)!(TOP=67423)!(TOP=67424)!(TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574)!(TOP=67577)!(TOP=67578)!(TOP=67579)!(TOP=67630)!(TOP=67631)!(TOP=67637)!(TOP=67638)!(TOP=67639)!(TOP=67691)!(TOP=67699)!(TOP=67700) S TNMED=88 Q
  1. .I (TOP=67701)!(TOP=67709)!(TOP=67710)!(TOP=67711)!(TOP=67712)!(TOP=67713)!(TOP=67714)!(TOP=67715)!(TOP=67716)!(TOP=67717)!(TOP=67718)!(TOP=67719)!(TOP=67720)!(TOP=67721)!(TOP=67722)!(TOP=67723)!(TOP=67724)!(TOP=67725) S TNMED=88 Q
  1. .I (TOP=67728)!(TOP=67729)!(TOP=67750)!(TOP=67751)!(TOP=67752)!(TOP=67753)!(TOP=67754)!(TOP=67755)!(TOP=67758)!(TOP=67759)!(TOP=67760)!(TOP=67761)!(TOP=67762)!(TOP=67763)!(TOP=67764) S TNMED=88 Q
  1. .I (TOP=67765)!(TOP=67767)!(TOP=67768)!(TOP=67809) S TNMED=88 Q
  1. I TNMED>5 D
  1. .N TOP3 S TOP3=$E(TOP,3,5)
  1. .I TNMED<7,(TOP=67740)!(TOP=67741)!(TOP=67749) S TNMED=88 Q
  1. .I TNMED<8,(TOP=67379)!(TOP=67750)!($E(TOP,1,4)=6776) S TNMED=88 Q
  1. .I YR>311,$E(TOP,3,4)=77,TNMMO=9823 Q ;SEER 2012 Hematopoitic (Pg 54)
  1. .I YR>311,TNMMO=9823,((TOP3>0)&(TOP3<425)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>469)&(TOP3<510)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>510)&(TOP3<609)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>618)&(TOP3<632)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>636)&(TOP3<690)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>690)&(TOP3<695)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>738)&(TOP3<750)) Q ;Schema 00795,Hist=98233
  1. .I YR>311,TNMMO=9823,((TOP3>759)&(TOP3<810)) Q ;Schema 00795,Hist=98233
  1. .;.I ((TNMMO>9730)&(TNMMO<9990))&((YR>317)&(TNMMO'=9827)) D I TNMED=88 Q
  1. .;..I (TNMAJCC'="82.1")&(TNMAJCC'="82.2")&($E(TNMAJCC,1,2)'="83") S TNMED=88 Q
  1. .;.I TNMMO=9140 S TNMED=88 Q ;removed these 3 lines in Patch 20
  1. .I (TOP=67173)!(TOP=67254)!(TOP=67260)!(TOP=67268)!(TOP=67269)!(TOP=67301)!(TOP=67312)!(TOP=67313)!(TOP=67318)!(TOP=67319)!(TOP=67339)!(TOP=67390) S TNMED=88 Q
  1. .I (TOP=67398)!(TOP=67399)!(TOP=67420)!((YR<318)&(TOP=67421))!(TOP=67422)!(TOP=67423)!(TOP=67424)!(TOP=67571)!(TOP=67572)!(TOP=67573)!(TOP=67574)!(TOP=67577)!(TOP=67578)!(TOP=67579) S TNMED=88 Q
  1. .I (TOP=67630)!(TOP=67638)!(TOP=67639)!(TOP=67681)!(TOP=67688)!(TOP=67689)!(TOP=67691)!(TOP=67699)!(TOP=67701)!(TOP=67709) S TNMED=88 Q
  1. .I (TOP=67754)!(TOP=67758)!(TOP=67759)!(TOP=67809) S TNMED=88 Q
  1. .I (YR>317)&(TOP=67421)&((TNMMO=9724)!(TNMMO=9727)!(TNMMO=9801)!((TNMMO>9805)&(TNMMO<9810))!(TNMMO=9831)!(TNMMO=9833)!(TNMMO=9834)!(TNMMO=9940)!(TNMMO=9948)) D I TNMED=88 Q
  1. ..I (TNMAJCC'="82.1")&(TNMAJCC'="82.2")&($E(TNMAJCC,1,2)'="83") S TNMED=88 Q
  1. .I YR>317,$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",1)="XX" S TNMED=88 Q
  1. .I YR>320,$P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)="09520" S TNMED=9 Q
  1. .I YR>322,$P($G(^ONCO(165.5,IEN,"SSD1")),"^",1)'="","09190^09210^09721^09722^09723^09724"[$P($G(^ONCO(165.5,IEN,"SSD1")),"^",1) S TNMED=9 Q
  1. TNMEX ;
  1. Q TNMED
  1. ;
  1. MELANOMA(IEN) ;Melanoma
  1. N XX
  1. S XX=$$HIST^ONCFUNC(IEN)
  1. Q (XX'<87200)&(XX<87910)
  1. ;
  1. GTT(D0) ;Gestational Trophoblastic Tumors - 5th, 6th and 7th editions
  1. ;
  1. N HIST,HIST14,TNMED,TOP
  1. S TNMED=$$TNMED^ONCOU55(D0)
  1. S TOP=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. S HIST=$$HIST^ONCFUNC(D0)
  1. S HIST14=$E(HIST,1,4)
  1. Q (TNMED>4)&(TOP=67589)&((HIST14>9099)&(HIST14<9106))
  1. ;
  1. T(D0) ;Testis - 5th, 6th and 7th editions
  1. N TNMED,TOP
  1. S TNMED=$$TNMED^ONCOU55(D0)
  1. S TOP=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. Q (TNMED>4)&((TOP=67620)!(TOP=67621)!(TOP=67629))
  1. ;
  1. EDITION(IEN) ;SEER Extent of Disease Edition
  1. Q $S($$DATEDX(IEN)>2980000:3,$$DATEDX(IEN)>2920000:2,1:1)
  1. ;
  1. DATEDX(IEN) ;DATE DX (165.5,3)
  1. Q $P($G(^ONCO(165.5,IEN,0)),U,16)
  1. ;
  1. MYCOSIS(IEN) ;MYCOSIS FUNGOIDES
  1. N XX
  1. S XX=$$HIST^ONCFUNC(IEN)
  1. Q ((XX=97002)!(XX=97003))
  1. ;
  1. NOSTAGE(IEN) ;AUTOMATIC STAGING OVERRIDDEN (165.5,37.9)
  1. Q $P($G(^ONCO(165.5,D0,24)),U)
  1. ;
  1. TMARKER ;TUMOR MARKER 1 (165.5,25.1)
  1. ;TUMOR MARKER 2 (165.5,25.2)
  1. ;TUMOR MARKER 3 (165.5,25.3)
  1. N TOP
  1. S (TM1,TM2,TM3)=0
  1. S TOP=$P($G(^ONCO(165.5,D0,2)),U,1)
  1. I TOP'="" S TOP=$P($G(^ONCO(164,TOP,0)),U,2)
  1. I $E(TOP,2,3)=50 S (TM1,TM2)=1 Q
  1. I $E(TOP,2,3)=18 S TM1=1 Q
  1. I $E(TOP,2,3)=19 S TM1=1 Q
  1. I $E(TOP,2,3)=20 S TM1=1 Q
  1. I $E(TOP,2,3)=22 S TM1=1 Q
  1. I $E(TOP,2,3)=56 S TM1=1 Q
  1. I $E(TOP,2,3)=61 S (TM1,TM2)=1 Q
  1. I $E(TOP,2,3)=62 S (TM1,TM2,TM3)=1 Q
  1. I $$HIST^ONCFUNC(D0)=95003 S TM1=1 Q
  1. Q
  1. ;
  1. CLEANUP ;Cleanup
  1. K TM1,TM2,TM3