ONCMPC3 ;HIRMFO/GWB - 1999 Melanoma Study - Table III; 1/20/99
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
K TABLE,HTABLE
S TABLE("23. SIZE OF TUMOR (MELANOMA)")="SOT"
S TABLE("24. REGIONAL NODES EXAMINED")="RNE"
S TABLE("25. REGIONAL NODES POSITIVE")="RNP"
S TABLE("26. EXTRANODAL EXTENSION")="EE"
S TABLE("27. MICROSATELLITOSIS")="M"
S TABLE("28. NUMBER OF SATELLITE NODULES")="NOSN"
S TABLE("29. LOCATION OF IN-TRANSIT NODULES")="LOIN"
S TABLE("30. BRESLOW'S THICKNESS")="BT"
S TABLE("31. CLARK'S LEVEL OF INVASION")="CLOI"
S TABLE("32. ANGIOLYMPHATIC INVASION")="AI"
S TABLE("33. PERINEURAL INVASION")="PI"
S TABLE("34. GENERAL SUMMARY STAGE")="GSS"
S TABLE("35. AJCC CLINICAL STAGE (cTNM)")="ACS"
S TABLE("36. ULCERATION")="U"
S TABLE("37. CLINICALLY AMELANOTIC")="CA"
S TABLE("38. AJCC PATHOLOGIC STAGE (pTNM)")="APS"
S TABLE("39. STAGED BY")="SB"
S HTABLE(1)="23. SIZE OF TUMOR (MELANOMA)"
S HTABLE(2)="24. REGIONAL NODES EXAMINED"
S HTABLE(3)="25. REGIONAL NODES POSITIVE"
S HTABLE(4)="26. EXTRANODAL EXTENSION"
S HTABLE(5)="27. MICROSATELLITOSIS"
S HTABLE(6)="28. NUMBER OF SATELLITE NODULES"
S HTABLE(7)="29. LOCATION OF IN-TRANSIT NODULES"
S HTABLE(8)="30. BRESLOW'S THICKNESS"
S HTABLE(9)="31. CLARK'S LEVEL OF INVASION"
S HTABLE(10)="32. ANGIOLYMPHATIC INVASION"
S HTABLE(11)="33. PERINEURAL INVASION"
S HTABLE(12)="34. GENERAL SUMMARY STAGE"
S HTABLE(13)="35. AJCC CLINICAL STAGE (cTNM)"
S HTABLE(14)="36. ULCERATION"
S HTABLE(15)="37. CLINICALLY AMELANOTIC"
S HTABLE(16)="38. AJCC PATHOLOGIC STAGE (pTNM)"
S HTABLE(17)="39. STAGED BY"
S CHOICES=17
K DIQ S DIC="^ONCO(165.5,",DR="38;88",DA=ONCONUM,DIQ="ONC" D EN^DIQ1
W @IOF D HEAD^ONCMPC0
W !," TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
W !," -------------------------------------------"
S DIE="^ONCO(165.5,",DA=ONCONUM
SOT S DR="1132 23. SIZE OF TUMOR (MELANOMA)....." D ^DIE G:$D(Y) JUMP
RNE S DR="33 24. REGIONAL NODES EXAMINED......" D ^DIE G:$D(Y) JUMP
RNP S DR="32 25. REGIONAL NODES POSITIVE......" D ^DIE G:$D(Y) JUMP
EE S DR="1110 26. EXTRANODAL EXTENSION........." D ^DIE G:$D(Y) JUMP
SNOSOST W !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
M S DR="1111 27. MICROSATELLITOSIS............" D ^DIE G:$D(Y) JUMP
I X=0 D G LOIN
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)="00"
.W !," 28. NUMBER OF SATELLITE NODES....: No satellite nodules"
I X=8 D G LOIN
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=98
.W !," 28. NUMBER OF SATELLITE NODES....: NA, non-cutaneous melanoma"
I X=9 D G LOIN
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=99
.W !," 28. NUMBER OF SATELLITE NODES....: Unknown"
NOSN S DR="1112 28. NUMBER OF SATELLITE NODULES.." D ^DIE G:$D(Y) JUMP
LOIN S DR="1113 29. LOC OF IN-TRANSIT NODULES...." D ^DIE G:$D(Y) JUMP
BT S BTST=$P($G(^ONCO(165.5,ONCONUM,2)),U,9),BTST=$J(BTST,0,0)
S DR="1114 30. BRESLOW'S THICKNESS..........//"_BTST D ^DIE G:$D(Y) JUMP
CLOI I TOPCOD="C44.9" D G AI
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,16)=8
.W !," 31. CLARK'S LEVEL OF INVASION....: NA, primary site unknown"
S DR="1115 31. CLARK'S LEVEL OF INVASION...." D ^DIE G:$D(Y) JUMP
AI I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G PI
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,17)=8
.W !," 32. ANGIOLYMPHATIC INVASION......: NA, site unknown or ocular"
S DR="1116 32. ANGIOLYMPHATIC INVASION......" D ^DIE G:$D(Y) JUMP
PI I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G GSS
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,18)=8
.W !," 33. PERINEURAL INVASION..........: NA, site unknown or ocular"
S DR="1117 33. PERINEURAL INVASION.........." D ^DIE G:$D(Y) JUMP
GSS S DR="35 34. GENERAL SUMMARY STAGE........" D ^DIE G:$D(Y) JUMP
ACS W !!," 35. AJCC CLINICAL STAGE (cTNM):",!
CTCODE S DR="37.1 T-CODE......................." D ^DIE G:$D(Y) JUMP
D CN1^ONCOTN,CN2^ONCOTN
CNCODE S DR="37.2 N-CODE......................." D ^DIE G:$D(Y) JUMP
CMCODE S DR="37.3 M-CODE......................." D ^DIE G:$D(Y) JUMP
I '$D(SKAJCC) D CN1^ONCOTN
S STGIND="C" D ES^ONCOTN
U I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G CA
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,19)=8
.W !," 36. ULCERATION,,,,,,,,,..........: NA, site unknown or ocular"
S DR="1118 36. ULCERATION..................." D ^DIE G:$D(Y) JUMP
CA I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G APS
.S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,20)=8
.W !," 37. CLINICALLY AMELANOTIC........: NA, site unknown or ocular"
S DR="1119 37. CLINICALLY AMELANOTIC........" D ^DIE G:$D(Y) JUMP
APS W !!," 38. AJCC PATHOLOGIC STAGE (pTNM):",!
PTCODE S DR="85 T-CODE......................." D ^DIE G:$D(Y) JUMP
D CN3^ONCOTN,CN4^ONCOTN
PNCODE S DR="86 N-CODE......................." D ^DIE G:$D(Y) JUMP
PMCODE S DR="87 M-CODE......................." D ^DIE G:$D(Y) JUMP
I '$D(SKAJCC) D CN3^ONCOTN
S STGIND="P" D ES^ONCOTN
SB W !," 39. STAGED BY:",!
CSB S DR="19 CLINICAL STAGE..............." D ^DIE G:$D(Y) JUMP
PSB S DR="89 PATHOLOGIC STAGE............." D ^DIE G:$D(Y) JUMP
PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
G EXIT
JUMP ;Jump to prompts
S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
I X["?" D G JUMP
.W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
I '$D(TABLE(X)) S:X?1.2N X=X_"." S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
.W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
S X=TABLE(X)
G @X
EXIT K HTABLE,TABLE,CHOICES
K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y,BTST
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCMPC3 5562 printed Apr 09, 2024@21:31:35 Page 2
ONCMPC3 ;HIRMFO/GWB - 1999 Melanoma Study - Table III; 1/20/99
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL TABLE,HTABLE
+3 SET TABLE("23. SIZE OF TUMOR (MELANOMA)")="SOT"
+4 SET TABLE("24. REGIONAL NODES EXAMINED")="RNE"
+5 SET TABLE("25. REGIONAL NODES POSITIVE")="RNP"
+6 SET TABLE("26. EXTRANODAL EXTENSION")="EE"
+7 SET TABLE("27. MICROSATELLITOSIS")="M"
+8 SET TABLE("28. NUMBER OF SATELLITE NODULES")="NOSN"
+9 SET TABLE("29. LOCATION OF IN-TRANSIT NODULES")="LOIN"
+10 SET TABLE("30. BRESLOW'S THICKNESS")="BT"
+11 SET TABLE("31. CLARK'S LEVEL OF INVASION")="CLOI"
+12 SET TABLE("32. ANGIOLYMPHATIC INVASION")="AI"
+13 SET TABLE("33. PERINEURAL INVASION")="PI"
+14 SET TABLE("34. GENERAL SUMMARY STAGE")="GSS"
+15 SET TABLE("35. AJCC CLINICAL STAGE (cTNM)")="ACS"
+16 SET TABLE("36. ULCERATION")="U"
+17 SET TABLE("37. CLINICALLY AMELANOTIC")="CA"
+18 SET TABLE("38. AJCC PATHOLOGIC STAGE (pTNM)")="APS"
+19 SET TABLE("39. STAGED BY")="SB"
+20 SET HTABLE(1)="23. SIZE OF TUMOR (MELANOMA)"
+21 SET HTABLE(2)="24. REGIONAL NODES EXAMINED"
+22 SET HTABLE(3)="25. REGIONAL NODES POSITIVE"
+23 SET HTABLE(4)="26. EXTRANODAL EXTENSION"
+24 SET HTABLE(5)="27. MICROSATELLITOSIS"
+25 SET HTABLE(6)="28. NUMBER OF SATELLITE NODULES"
+26 SET HTABLE(7)="29. LOCATION OF IN-TRANSIT NODULES"
+27 SET HTABLE(8)="30. BRESLOW'S THICKNESS"
+28 SET HTABLE(9)="31. CLARK'S LEVEL OF INVASION"
+29 SET HTABLE(10)="32. ANGIOLYMPHATIC INVASION"
+30 SET HTABLE(11)="33. PERINEURAL INVASION"
+31 SET HTABLE(12)="34. GENERAL SUMMARY STAGE"
+32 SET HTABLE(13)="35. AJCC CLINICAL STAGE (cTNM)"
+33 SET HTABLE(14)="36. ULCERATION"
+34 SET HTABLE(15)="37. CLINICALLY AMELANOTIC"
+35 SET HTABLE(16)="38. AJCC PATHOLOGIC STAGE (pTNM)"
+36 SET HTABLE(17)="39. STAGED BY"
+37 SET CHOICES=17
+38 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR="38;88"
SET DA=ONCONUM
SET DIQ="ONC"
DO EN^DIQ1
+39 WRITE @IOF
DO HEAD^ONCMPC0
+40 WRITE !," TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
+41 WRITE !," -------------------------------------------"
+42 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
SOT SET DR="1132 23. SIZE OF TUMOR (MELANOMA)....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
RNE SET DR="33 24. REGIONAL NODES EXAMINED......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
RNP SET DR="32 25. REGIONAL NODES POSITIVE......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
EE SET DR="1110 26. EXTRANODAL EXTENSION........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
SNOSOST WRITE !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
M SET DR="1111 27. MICROSATELLITOSIS............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF X=0
Begin DoDot:1
+2 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,13)="00"
+3 WRITE !," 28. NUMBER OF SATELLITE NODES....: No satellite nodules"
End DoDot:1
GOTO LOIN
+4 IF X=8
Begin DoDot:1
+5 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=98
+6 WRITE !," 28. NUMBER OF SATELLITE NODES....: NA, non-cutaneous melanoma"
End DoDot:1
GOTO LOIN
+7 IF X=9
Begin DoDot:1
+8 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=99
+9 WRITE !," 28. NUMBER OF SATELLITE NODES....: Unknown"
End DoDot:1
GOTO LOIN
NOSN SET DR="1112 28. NUMBER OF SATELLITE NODULES.."
DO ^DIE
if $DATA(Y)
GOTO JUMP
LOIN SET DR="1113 29. LOC OF IN-TRANSIT NODULES...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
BT SET BTST=$PIECE($GET(^ONCO(165.5,ONCONUM,2)),U,9)
SET BTST=$JUSTIFY(BTST,0,0)
+1 SET DR="1114 30. BRESLOW'S THICKNESS..........//"_BTST
DO ^DIE
if $DATA(Y)
GOTO JUMP
CLOI IF TOPCOD="C44.9"
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,16)=8
+2 WRITE !," 31. CLARK'S LEVEL OF INVASION....: NA, primary site unknown"
End DoDot:1
GOTO AI
+3 SET DR="1115 31. CLARK'S LEVEL OF INVASION...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
AI IF (TOPCOD="C44.9")!($EXTRACT(TOPCOD,1,3)="C69")
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,17)=8
+2 WRITE !," 32. ANGIOLYMPHATIC INVASION......: NA, site unknown or ocular"
End DoDot:1
GOTO PI
+3 SET DR="1116 32. ANGIOLYMPHATIC INVASION......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
PI IF (TOPCOD="C44.9")!($EXTRACT(TOPCOD,1,3)="C69")
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,18)=8
+2 WRITE !," 33. PERINEURAL INVASION..........: NA, site unknown or ocular"
End DoDot:1
GOTO GSS
+3 SET DR="1117 33. PERINEURAL INVASION.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
GSS SET DR="35 34. GENERAL SUMMARY STAGE........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
ACS WRITE !!," 35. AJCC CLINICAL STAGE (cTNM):",!
CTCODE SET DR="37.1 T-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 DO CN1^ONCOTN
DO CN2^ONCOTN
CNCODE SET DR="37.2 N-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
CMCODE SET DR="37.3 M-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF '$DATA(SKAJCC)
DO CN1^ONCOTN
+2 SET STGIND="C"
DO ES^ONCOTN
U IF (TOPCOD="C44.9")!($EXTRACT(TOPCOD,1,3)="C69")
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,19)=8
+2 WRITE !," 36. ULCERATION,,,,,,,,,..........: NA, site unknown or ocular"
End DoDot:1
GOTO CA
+3 SET DR="1118 36. ULCERATION..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
CA IF (TOPCOD="C44.9")!($EXTRACT(TOPCOD,1,3)="C69")
Begin DoDot:1
+1 SET $PIECE(^ONCO(165.5,ONCONUM,"MEL1"),U,20)=8
+2 WRITE !," 37. CLINICALLY AMELANOTIC........: NA, site unknown or ocular"
End DoDot:1
GOTO APS
+3 SET DR="1119 37. CLINICALLY AMELANOTIC........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
APS WRITE !!," 38. AJCC PATHOLOGIC STAGE (pTNM):",!
PTCODE SET DR="85 T-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 DO CN3^ONCOTN
DO CN4^ONCOTN
PNCODE SET DR="86 N-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PMCODE SET DR="87 M-CODE......................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 IF '$DATA(SKAJCC)
DO CN3^ONCOTN
+2 SET STGIND="P"
DO ES^ONCOTN
SB WRITE !," 39. STAGED BY:",!
CSB SET DR="19 CLINICAL STAGE..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PSB SET DR="89 PATHOLOGIC STAGE............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PRTC WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
if $DATA(DIRUT)
SET OUT="Y"
+1 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!," GO TO ITEM NUMBER: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
if X?1.2N
SET X=X_"."
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !," CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL HTABLE,TABLE,CHOICES
+1 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y,BTST
+2 QUIT
