source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCBPC3.m@ 1204

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

initial load of WorldVistAEHR

File size: 3.8 KB
Line 
1ONCBPC3 ;HIRMFO/GWB - PCE Study of Cancers of the Urinary Bladder Table III;6/19/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("STAGING PROCEDURES")="STA"
5 S TABLE("PRESENCE OF HYDRONEPHROSIS")="POH"
6 S TABLE("TUMOR SIZE (mm)")="TUM"
7 S TABLE("PRESENCE OF MULTIPLE TUMORS")="POMT"
8 S TABLE("REGIONAL NODES EXAMINED")="RNE"
9 S TABLE("REGIONAL NODES POSITIVE")="RNP"
10 S TABLE("SITES OF DISTANT METASTASIS")="SODM"
11 S TABLE("AJCC CLINICAL STAGE (cTNM)")="ACS"
12 S TABLE("AJCC PATHOLOGIC STAGE (pTNM)")="APS"
13 S TABLE("STAGED BY")="SB"
14 S HTABLE(1)="STAGING PROCEDURES"
15 S HTABLE(2)="PRESENCE OF HYDRONEPHROSIS"
16 S HTABLE(3)="TUMOR SIZE (mm)"
17 S HTABLE(4)="PRESENCE OF MULTIPLE TUMORS"
18 S HTABLE(5)="REGIONAL NODES EXAMINED"
19 S HTABLE(6)="REGIONAL NODES POSITIVE"
20 S HTABLE(7)="SITES OF DISTANT METASTASIS"
21 S HTABLE(8)="AJCC CLINICAL STAGE (cTNM)"
22 S HTABLE(9)="AJCC PATHOLOGIC STAGE (pTNM)"
23 S HTABLE(10)="STAGED BY"
24 S CHOICES=10
25 W @IOF D HEAD^ONCBPC0
26 W !?18,"TABLE III- EXTENT OF DISEASE AND AJCC STAGE",!
27STA W !,"STAGING PROCEDURES:",!
28 S DIE="^ONCO(165.5,",DA=ONCONUM
29 S DR="335 ABDOMINAL ULTRASOUND........." D ^DIE G:$D(Y) JUMP
30 S DR="336 BONE IMAGING................." D ^DIE G:$D(Y) JUMP
31 S DR="337 CHEST X-RAY.................." D ^DIE G:$D(Y) JUMP
32 S DR="338 CT CHEST/LUNG................" D ^DIE G:$D(Y) JUMP
33 S DR="339 CT ABDOMEN/PELVIS............" D ^DIE G:$D(Y) JUMP
34 S DR="340 CT OTHER....................." D ^DIE G:$D(Y) JUMP
35 S DR="341 MRI PELVIS/ABDOMEN..........." D ^DIE G:$D(Y) JUMP
36 S DR="342 MRI OTHER...................." D ^DIE G:$D(Y) JUMP
37 S DR="343 OTHER........................" D ^DIE G:$D(Y) JUMP
38 W !
39POH S DR="344PRESENCE OF HYDRONEPHROSIS....." D ^DIE G:$D(Y) JUMP
40TUM S DR="29TUMOR SIZE (mm)................" D ^DIE G:$D(Y) JUMP
41POMT S DR="345PRESENCE OF MULTIPLE TUMORS...." D ^DIE G:$D(Y) JUMP
42RNE S DR="33REGIONAL NODES EXAMINED........" D ^DIE G:$D(Y) JUMP
43RNP S DR="32REGIONAL NODES POSITIVE........" D ^DIE G:$D(Y) JUMP
44SODM W !!,"SITES OF DISTANT METASTASIS:",!
45 S DR="34 SITE OF DISTANT METASTASIS #1" D ^DIE G:$D(Y) JUMP
46 I X=0 D G ACS
47 .S $P(^ONCO(165.5,ONCONUM,2),U,15)=0
48 .W !," SITE OF DISTANT METASTASIS #2: None"
49 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0
50 .W !," SITE OF DISTANT METASTASIS #3: None"
51 S DR="34.1 SITE OF DISTANT METASTASIS #2" D ^DIE G:$D(Y) JUMP
52 I X=0 D G ACS
53 .S $P(^ONCO(165.5,ONCONUM,2),U,16)=0
54 .W !," SITE OF DISTANT METASTASIS #3: None"
55 S DR="34.2 SITE OF DISTANT METASTASIS #3" D ^DIE G:$D(Y) JUMP
56ACS W !!,"AJCC CLINICAL STAGE (cTNM):",!
57 S DR="37.1 T-CODE......................." D ^DIE G:$D(Y) JUMP
58 D CN1^ONCOTN,CN2^ONCOTN
59 S DR="37.2 N-CODE......................." D ^DIE G:$D(Y) JUMP
60 S DR="37.3 M-CODE......................." D ^DIE G:$D(Y) JUMP
61 I '$D(SKAJCC) D CN1^ONCOTN
62 S STGIND="C" D ES^ONCOTN
63 ;W ! S DR="38AJCC STAGE....................." D ^DIE G:$D(Y) JUMP
64APS W !,"AJCC PATHOLOGIC STAGE (pTNM):",!
65 S DR="85 T-CODE......................." D ^DIE G:$D(Y) JUMP
66 D CN3^ONCOTN,CN4^ONCOTN
67 S DR="86 N-CODE......................." D ^DIE G:$D(Y) JUMP
68 S DR="87 M-CODE......................." D ^DIE G:$D(Y) JUMP
69 I '$D(SKAJCC) D CN3^ONCOTN
70 S STGIND="P" D ES^ONCOTN
71 ;W ! S DR="88AJCC STAGE....................." D ^DIE G:$D(Y) JUMP
72SB W !,"STAGED BY:",!
73 S DR="19 CLINICAL STAGE...................." D ^DIE G:$D(Y) JUMP
74 S DR="89 PATHOLOGIC STAGE.................." D ^DIE G:$D(Y) JUMP
75 W ! K DIR S DIR(0)="E" D ^DIR
76 G EXIT
77JUMP ;Jump to prompts
78 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
79 I X["?" D G JUMP
80 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
81 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
82 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
83 S X=TABLE(X)
84 G @X
85EXIT K HTABLE,TABLE,CHOICES
86 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
87 Q
Note: See TracBrowser for help on using the repository browser.