source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCMPC3.m@ 703

Last change on this file since 703 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 5.3 KB
Line 
1ONCMPC3 ;HIRMFO/GWB - 1999 Melanoma Study - Table III; 1/20/99
2 ;;2.11;ONCOLOGY;**22**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("23. SIZE OF TUMOR (MELANOMA)")="SOT"
5 S TABLE("24. REGIONAL NODES EXAMINED")="RNE"
6 S TABLE("25. REGIONAL NODES POSITIVE")="RNP"
7 S TABLE("26. EXTRANODAL EXTENSION")="EE"
8 S TABLE("27. MICROSATELLITOSIS")="M"
9 S TABLE("28. NUMBER OF SATELLITE NODULES")="NOSN"
10 S TABLE("29. LOCATION OF IN-TRANSIT NODULES")="LOIN"
11 S TABLE("30. BRESLOW'S THICKNESS")="BT"
12 S TABLE("31. CLARK'S LEVEL OF INVASION")="CLOI"
13 S TABLE("32. ANGIOLYMPHATIC INVASION")="AI"
14 S TABLE("33. PERINEURAL INVASION")="PI"
15 S TABLE("34. GENERAL SUMMARY STAGE")="GSS"
16 S TABLE("35. AJCC CLINICAL STAGE (cTNM)")="ACS"
17 S TABLE("36. ULCERATION")="U"
18 S TABLE("37. CLINICALLY AMELANOTIC")="CA"
19 S TABLE("38. AJCC PATHOLOGIC STAGE (pTNM)")="APS"
20 S TABLE("39. STAGED BY")="SB"
21 S HTABLE(1)="23. SIZE OF TUMOR (MELANOMA)"
22 S HTABLE(2)="24. REGIONAL NODES EXAMINED"
23 S HTABLE(3)="25. REGIONAL NODES POSITIVE"
24 S HTABLE(4)="26. EXTRANODAL EXTENSION"
25 S HTABLE(5)="27. MICROSATELLITOSIS"
26 S HTABLE(6)="28. NUMBER OF SATELLITE NODULES"
27 S HTABLE(7)="29. LOCATION OF IN-TRANSIT NODULES"
28 S HTABLE(8)="30. BRESLOW'S THICKNESS"
29 S HTABLE(9)="31. CLARK'S LEVEL OF INVASION"
30 S HTABLE(10)="32. ANGIOLYMPHATIC INVASION"
31 S HTABLE(11)="33. PERINEURAL INVASION"
32 S HTABLE(12)="34. GENERAL SUMMARY STAGE"
33 S HTABLE(13)="35. AJCC CLINICAL STAGE (cTNM)"
34 S HTABLE(14)="36. ULCERATION"
35 S HTABLE(15)="37. CLINICALLY AMELANOTIC"
36 S HTABLE(16)="38. AJCC PATHOLOGIC STAGE (pTNM)"
37 S HTABLE(17)="39. STAGED BY"
38 S CHOICES=17
39 K DIQ S DIC="^ONCO(165.5,",DR="38;88",DA=ONCONUM,DIQ="ONC" D EN^DIQ1
40 W @IOF D HEAD^ONCMPC0
41 W !," TABLE III- EXTENT OF DISEASE AND AJCC STAGE"
42 W !," -------------------------------------------"
43 S DIE="^ONCO(165.5,",DA=ONCONUM
44SOT S DR="1132 23. SIZE OF TUMOR (MELANOMA)....." D ^DIE G:$D(Y) JUMP
45RNE S DR="33 24. REGIONAL NODES EXAMINED......" D ^DIE G:$D(Y) JUMP
46RNP S DR="32 25. REGIONAL NODES POSITIVE......" D ^DIE G:$D(Y) JUMP
47EE S DR="1110 26. EXTRANODAL EXTENSION........." D ^DIE G:$D(Y) JUMP
48SNOSOST W !!," SATELLITE NODULES OF SKIN OR SUBCUTANEOUS TISSUE",!
49M S DR="1111 27. MICROSATELLITOSIS............" D ^DIE G:$D(Y) JUMP
50 I X=0 D G LOIN
51 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)="00"
52 .W !," 28. NUMBER OF SATELLITE NODES....: No satellite nodules"
53 I X=8 D G LOIN
54 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=98
55 .W !," 28. NUMBER OF SATELLITE NODES....: NA, non-cutaneous melanoma"
56 I X=9 D G LOIN
57 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,13)=99
58 .W !," 28. NUMBER OF SATELLITE NODES....: Unknown"
59NOSN S DR="1112 28. NUMBER OF SATELLITE NODULES.." D ^DIE G:$D(Y) JUMP
60LOIN S DR="1113 29. LOC OF IN-TRANSIT NODULES...." D ^DIE G:$D(Y) JUMP
61BT S BTST=$P($G(^ONCO(165.5,ONCONUM,2)),U,9),BTST=$J(BTST,0,0)
62 S DR="1114 30. BRESLOW'S THICKNESS..........//"_BTST D ^DIE G:$D(Y) JUMP
63CLOI I TOPCOD="C44.9" D G AI
64 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,16)=8
65 .W !," 31. CLARK'S LEVEL OF INVASION....: NA, primary site unknown"
66 S DR="1115 31. CLARK'S LEVEL OF INVASION...." D ^DIE G:$D(Y) JUMP
67AI I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G PI
68 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,17)=8
69 .W !," 32. ANGIOLYMPHATIC INVASION......: NA, site unknown or ocular"
70 S DR="1116 32. ANGIOLYMPHATIC INVASION......" D ^DIE G:$D(Y) JUMP
71PI I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G GSS
72 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,18)=8
73 .W !," 33. PERINEURAL INVASION..........: NA, site unknown or ocular"
74 S DR="1117 33. PERINEURAL INVASION.........." D ^DIE G:$D(Y) JUMP
75GSS S DR="35 34. GENERAL SUMMARY STAGE........" D ^DIE G:$D(Y) JUMP
76ACS W !!," 35. AJCC CLINICAL STAGE (cTNM):",!
77CTCODE S DR="37.1 T-CODE......................." D ^DIE G:$D(Y) JUMP
78 D CN1^ONCOTN,CN2^ONCOTN
79CNCODE S DR="37.2 N-CODE......................." D ^DIE G:$D(Y) JUMP
80CMCODE S DR="37.3 M-CODE......................." D ^DIE G:$D(Y) JUMP
81 I '$D(SKAJCC) D CN1^ONCOTN
82 S STGIND="C" D ES^ONCOTN
83U I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G CA
84 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,19)=8
85 .W !," 36. ULCERATION,,,,,,,,,..........: NA, site unknown or ocular"
86 S DR="1118 36. ULCERATION..................." D ^DIE G:$D(Y) JUMP
87CA I (TOPCOD="C44.9")!($E(TOPCOD,1,3)="C69") D G APS
88 .S $P(^ONCO(165.5,ONCONUM,"MEL1"),U,20)=8
89 .W !," 37. CLINICALLY AMELANOTIC........: NA, site unknown or ocular"
90 S DR="1119 37. CLINICALLY AMELANOTIC........" D ^DIE G:$D(Y) JUMP
91APS W !!," 38. AJCC PATHOLOGIC STAGE (pTNM):",!
92PTCODE S DR="85 T-CODE......................." D ^DIE G:$D(Y) JUMP
93 D CN3^ONCOTN,CN4^ONCOTN
94PNCODE S DR="86 N-CODE......................." D ^DIE G:$D(Y) JUMP
95PMCODE S DR="87 M-CODE......................." D ^DIE G:$D(Y) JUMP
96 I '$D(SKAJCC) D CN3^ONCOTN
97 S STGIND="P" D ES^ONCOTN
98SB W !," 39. STAGED BY:",!
99CSB S DR="19 CLINICAL STAGE..............." D ^DIE G:$D(Y) JUMP
100PSB S DR="89 PATHOLOGIC STAGE............." D ^DIE G:$D(Y) JUMP
101PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
102 G EXIT
103JUMP ;Jump to prompts
104 S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
105 I X["?" D G JUMP
106 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
107 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
108 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
109 S X=TABLE(X)
110 G @X
111EXIT K HTABLE,TABLE,CHOICES
112 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y,BTST
113 Q
Note: See TracBrowser for help on using the repository browser.