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

ONCSGA8U.m

Go to the documentation of this file.
  1. ONCSGA8U ;HINES OIFO/RTK - AJCC 8th Ed Staging Utilities ;02/04/19
  1. ;;2.2;ONCOLOGY;**10,12,13**;Jul 31, 2013;Build 7
  1. ;
  1. ;
  1. TNMSET ;Set the value of 8th Ed+ TNM in HIERTNM variable, but don't display
  1. D GETFLD
  1. S HIERTNM=T_$S(TSFX'="":TSFX,1:"")_" "_N_$S(NSFX'="":NSFX,1:"")_" "_M
  1. Q
  1. TNMDSP ;Display the 8th Ed TNM fields
  1. D GETFLD
  1. W T,$S(TSFX'="":TSFX,1:"")," ",N,$S(NSFX'="":NSFX,1:"")," ",M
  1. Q
  1. GETFLD ;Get the TNM (Clin/Path/Post-Th) from the record
  1. I STGIND="C" D
  1. .S T=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",2)
  1. .S TSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",14)
  1. .S N=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",3)
  1. .S NSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",15)
  1. .S M=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",4)
  1. I STGIND="P" D
  1. .S T=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",6)
  1. .S TSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",16)
  1. .S N=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",7)
  1. .S NSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",17)
  1. .S M=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",8)
  1. I STGIND="Y" D
  1. .S T=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",20)
  1. .S TSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",24)
  1. .S N=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",21)
  1. .S NSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",25)
  1. .S M=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",22)
  1. I STGIND="T" D
  1. .S T=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",10)
  1. .S TSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",18)
  1. .S N=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",11)
  1. .S NSFX=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",19)
  1. .S M=$P($G(^ONCO(165.5,IEN,"AJCC8")),"^",12)
  1. Q