source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCTPC3.m@ 1800

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

initial load of WorldVistAEHR
File size: 3.0 KB
Line 
1ONCTPC3 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table III;6/19/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("SIZE OF TUMOR")="SOT"
5 S TABLE("MULTIFOCAL")="M"
6 S TABLE("REGIONAL NODES EXAMINED")="RNE"
7 S TABLE("REGIONAL NODES POSITIVE")="RNP"
8 S TABLE("LOCATION OF POSITIVE NODES")="LOPN"
9 S TABLE("SITES OF DISTANT METASTASIS")="SODM"
10 S TABLE("AJCC CLINICAL STAGE (cTNM)")="ACS"
11 S TABLE("AJCC PATHOLOGIC STAGE (pTNM)")="APS"
12 S TABLE("STAGED BY")="SB"
13 S HTABLE(1)="SIZE OF TUMOR"
14 S HTABLE(2)="MULTIFOCAL"
15 S HTABLE(3)="REGIONAL NODES EXAMINED"
16 S HTABLE(4)="REGIONAL NODES POSITIVE"
17 S HTABLE(5)="LOCATION OF POSITIVE NODES"
18 S HTABLE(6)="SITES OF DISTANT METASTASIS"
19 S HTABLE(7)="AJCC CLINICAL STAGE (cTNM)"
20 S HTABLE(8)="AJCC PATHOLOGIC STAGE (pTNM)"
21 S HTABLE(9)="STAGED BY"
22 S CHOICES=9
23 W @IOF D HEAD^ONCTPC0
24 W !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE",!
25 S DIE="^ONCO(165.5,",DA=ONCONUM
26SOT S DR="29SIZE OF TUMOR.................." D ^DIE G:$D(Y) JUMP
27M S DR="433MULTIFOCAL....................." D ^DIE G:$D(Y) JUMP
28RNE S DR="33REGIONAL NODES EXAMINED........" D ^DIE G:$D(Y) JUMP
29RNP S DR="32REGIONAL NODES POSITIVE........" D ^DIE G:$D(Y) JUMP
30LOPN S DR="434LOCATION OF POSITIVE NODES....." D ^DIE G:$D(Y) JUMP
31SODM W !!,"SITES OF DISTANT METASTASIS:",!
32 S DR="34 SITE OF DISTANT METASTASIS #1" D ^DIE G:$D(Y) JUMP
33 I X=0 D G ACS
34 .S $P(^ONCO(165.5,ONCONUM,2),U,15)=0
35 .W !," SITE OF DISTANT METASTASIS #2: None"
36 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0
37 .W !," SITE OF DISTANT METASTASIS #3: None"
38 S DR="34.1 SITE OF DISTANT METASTASIS #2" D ^DIE G:$D(Y) JUMP
39 I X=0 D G ACS
40 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0
41 .W !," SITE OF DISTANT METASTASIS #3: None"
42 S DR="34.2 SITE OF DISTANT METASTASIS #3" D ^DIE G:$D(Y) JUMP
43ACS W !!,"AJCC CLINICAL STAGE (cTNM):",!
44 S DR="37.1 T-CODE......................." D ^DIE G:$D(Y) JUMP
45 D CN1^ONCOTN,CN2^ONCOTN
46 S DR="37.2 N-CODE......................." D ^DIE G:$D(Y) JUMP
47 S DR="37.3 M-CODE......................." D ^DIE G:$D(Y) JUMP
48 I '$D(SKAJCC) D CN1^ONCOTN
49 S STGIND="C" D ES^ONCOTN
50 ;S DR="38 AJCC STAGE..................." D ^DIE G:$D(Y) JUMP
51APS W !!,"AJCC PATHOLOGIC STAGE (pTNM):",!
52 S DR="85 T-CODE......................." D ^DIE G:$D(Y) JUMP
53 D CN3^ONCOTN,CN4^ONCOTN
54 S DR="86 N-CODE......................." D ^DIE G:$D(Y) JUMP
55 S DR="87 M-CODE......................." D ^DIE G:$D(Y) JUMP
56 I '$D(SKAJCC) D CN3^ONCOTN
57 S STGIND="P" D ES^ONCOTN
58 ;S DR="88 AJCC STAGE..................." D ^DIE G:$D(Y) JUMP
59SB W !,"STAGED BY:",!
60 S DR="19CLINICAL STAGE.................." D ^DIE G:$D(Y) JUMP
61 S DR="89PATHOLOGIC STAGE................" D ^DIE G:$D(Y) JUMP
62 W ! K DIR S DIR(0)="E" D ^DIR
63 G EXIT
64JUMP ;Jump to prompts
65 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
66 I X["?" D G JUMP
67 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
68 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
69 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
70 S X=TABLE(X)
71 G @X
72EXIT K HTABLE,TABLE,CHOICES
73 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
74 Q
Note: See TracBrowser for help on using the repository browser.