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

ONCSCHMH.m

Go to the documentation of this file.
  1. ONCSCHMH ;HINES OIFO/RTK - TNM CODE CALLED FROM SCHMG ROUTINE ;05/19/20
  1. ;;2.2;ONCOLOGY;**12,13,20**;Jul 31, 2013;Build 5
  1. ;
  1. CCODES ;IT code for PATH T/N to also accept CLIN T/N codes
  1. I ($G(ONCTNMTP)="P")&((ONCNODE=1)!(ONCNODE=6)) S ONCTNMTP="C" D ADDN1CS S ONCTNMTP="P" Q ; reset ONCTNMTP when done
  1. I ($G(ONCTNMTP)="P")&((ONCNODE=2)!(ONCNODE=7)) S ONCTNMTP="C" D ADDN2CS S ONCTNMTP="P" Q ; reset ONCTNMTP when done
  1. Q
  1. ADDN1CS ;code to add the Clin T codes from Node 1 to ONCAJVAL
  1. F IEN=0:0 S IEN=$O(^ONCO(165.8,ONCAJIEN,1,IEN)) Q:IEN'>0 D
  1. .S ONCCODE=$P($G(^ONCO(165.8,ONCAJIEN,1,IEN,0)),U,1)
  1. .D PRFX^ONCSCHMG S ONCAJVAL=ONCAJVAL_ONCPRFX_ONCCODE_"^"
  1. Q
  1. ADDN2CS ;code to add the Clin N codes from Node 2 to ONCAJVAL
  1. F IEN=0:0 S IEN=$O(^ONCO(165.8,ONCAJIEN,2,IEN)) Q:IEN'>0 D
  1. .S ONCCODE=$P($G(^ONCO(165.8,ONCAJIEN,2,IEN,0)),U,1)
  1. .D PRFX^ONCSCHMG S ONCAJVAL=ONCAJVAL_ONCPRFX_ONCCODE_"^"
  1. Q
  1. ;
  1. YPCHECK ;code for yp to match Path instead of Clin codes where there is 6/7 node
  1. I ($G(ONCTNMTP)="Y")&((ONCAJIEN=62)!(ONCAJIEN=63)!(ONCAJIEN=75)!(ONCAJIEN=78)) D
  1. .I ONCNODE=1 S ONCNODE=6
  1. .Q
  1. I ($G(ONCTNMTP)="Y")&((ONCAJIEN=1)!(ONCAJIEN=5)!(ONCAJIEN=6)!(ONCAJIEN=50)!(ONCAJIEN=52)!(ONCAJIEN=61)!(ONCAJIEN=63)!(ONCAJIEN=78)) D
  1. .I ONCNODE=2 S ONCNODE=7
  1. Q
  1. ;
  1. CFORPATH ;HELP code for PATH T/N to also display CLIN T/N codes
  1. ; Set ONCTNMTP="C" to list Clin codes, then set back to "P" before exiting
  1. I ($G(ONCTNMTP)="P")&((ONCNODE=1)!(ONCNODE=6)) S ONCTNMTP="C" D NODE1CS S ONCTNMTP="P" Q ; reset ONCTNMTP when done
  1. I ($G(ONCTNMTP)="P")&((ONCNODE=2)!(ONCNODE=7)) S ONCTNMTP="C" D NODE2CS S ONCTNMTP="P" Q ; reset ONCTNMTP when done
  1. Q
  1. NODE1CS ;1 node
  1. F IEN=0:0 S IEN=$O(^ONCO(165.8,ONCAJIEN,1,IEN)) Q:IEN'>0 D
  1. .S ONCDES=$P($G(^ONCO(165.8,ONCAJIEN,1,IEN,1)),U,1)
  1. .S ONCCODE=$P($G(^ONCO(165.8,ONCAJIEN,1,IEN,0)),U,1)
  1. .D PRFX^ONCSCHMG W !,ONCPRFX,ONCCODE D WORDWRP^ONCSCHMG
  1. Q
  1. NODE2CS ;2 node
  1. F IEN=0:0 S IEN=$O(^ONCO(165.8,ONCAJIEN,2,IEN)) Q:IEN'>0 D
  1. .S ONCDES=$P($G(^ONCO(165.8,ONCAJIEN,2,IEN,1)),U,1)
  1. .S ONCCODE=$P($G(^ONCO(165.8,ONCAJIEN,2,IEN,0)),U,1)
  1. .D PRFX^ONCSCHMG W !,ONCPRFX,ONCCODE D WORDWRP^ONCSCHMG
  1. Q
  1. ;
  1. NONXX9724 ;special code for Medulloblastoma schema 09724
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,2)=88 ;5001 AJCC TNM CLIN T
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,3)=88 ;5002 AJCC TNM CLIN N
  1. W !!,"AJCC TNM CLIN T: 88"
  1. W !,"AJCC TNM CLIN N: 88"
  1. I ONCSCMA="09724" S Y=5003 Q
  1. NONXX5003 ;
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,5)=88 ;5004 AJCC TNM CLIN STAGE GROUP
  1. S TMP=$G(X),X=88 D CSSG^ONCOCRC S X=TMP K TMP ;set "ASG" for field 38.5
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,6)=88 ;5011 AJCC TNM PATH T
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,7)=88 ;5012 AJCC TNM PATH N
  1. W !,"AJCC TNM CLIN STAGE GROUP: 88"
  1. W !!,"AJCC TNM PATH T: 88"
  1. W !,"AJCC TNM PATH N: 88"
  1. I ONCSCMA="09724" S Y=5013 Q
  1. NONXX5013 ;
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,9)=88 ;5014 AJCC TNM PATH STAGE GROUP
  1. S TMP=$G(X),X=88 D PSSG^ONCOCRC S X=TMP K TMP ;set "ASG" for field 38.5
  1. W !,"AJCC TNM PATH STAGE GROUP: 88"
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,20)="" ;5025 AJCC TNM POST THERAPY (yc) T
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,21)="" ;5026 AJCC TNM POST THERAPY (yc) N
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,22)="" ;5027 AJCC TNM POST THERAPY (yc) M
  1. ;S $P(^ONCO(165.5,D0,"AJCC8"),U,23)="" ;5028 AJCC TNM PT STAGE GROUP (yc) N/A
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,10)="" ;5021 AJCC TNM POST THERAPY T
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,11)="" ;5022 AJCC TNM POST THERAPY N
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,12)="" ;5023 AJCC TNM POST THERAPY M
  1. S $P(^ONCO(165.5,D0,"AJCC8"),U,13)="" ;5024 AJCC TNM PT STAGE GROUP
  1. I $P($G(^ONCO(165.5,D0,0)),U,16)>3210000 W !!,"AJCC TNM POST THERAPY (yc) T="
  1. I $P($G(^ONCO(165.5,D0,0)),U,16)>3210000 W !,"AJCC TNM POST THERAPY (yc) N="
  1. I $P($G(^ONCO(165.5,D0,0)),U,16)>3210000 W !,"AJCC TNM POST THERAPY (yc) M="
  1. ;W !,"AJCC TNM POST THERAPY (yc) STAGE GROUP=",!
  1. W !!,"AJCC TNM POST THERAPY (yp) T="
  1. W !,"AJCC TNM POST THERAPY (yp) N="
  1. W !,"AJCC TNM POST THERAPY (yp) M="
  1. W !,"AJCC TNM POST THERAPY (yp) STAGE GROUP=",!
  1. S Y="@149" Q
  1. ;
  1. STGVRCHK ;check the AJCC edition (version) and set correct node
  1. I DATEDX<3210000 Q
  1. I DATEDX>3201231 D ;2021 v9 update-Cervix
  1. .I ONCAJIEN=55 D
  1. ..I (ONCNODE=1)!(ONCNODE=6) S ONCNODE="V9T"
  1. ..I (ONCNODE=2)!(ONCNODE=7) S ONCNODE="V9N"
  1. ..I ONCNODE=3 S ONCNODE="V9M"
  1. I DATEDX>3221231 D ;2023 v9 update-Appendix, Anus, Brain & Spinal Cord
  1. .I ONCAJIEN=21 D ; appendix
  1. ..I ONCNODE=3 S ONCNODE="V9M"
  1. .I ONCAJIEN=23 D ; anus
  1. ..I (ONCNODE=1)!(ONCNODE=6) S ONCNODE="V9T"
  1. .I ONCAJIEN=108 D ; medulloblastoma (new 72.9 chapter)
  1. ..I ONCNODE=3 S ONCNODE="V9M"
  1. Q