source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCTPC2.m@ 1141

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

initial load of FOIAVistA 6/30/08 version

File size: 3.7 KB
Line 
1ONCTPC2 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table II;6/19/96
2 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("CLASS OF CASE")="COC"
5 S TABLE("SYMPTOMS/SIGNS PRESENT")="SSP"
6 S TABLE("DIAGNOSTIC/SURGICAL WORKUP")="DSW"
7 S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
8 S TABLE("PRIMARY SITE (ICD-O-2)")="PS"
9 S TABLE("HISTOLOGY/BEHAVIOR CODE (ICD-O-2)")="H"
10 S TABLE("GRADE")="G"
11 S TABLE("BLOOD VESSEL INVASION")="BVI"
12 S TABLE("EXTRA-THYROID EXTENSION")="ETE"
13 S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
14 S HTABLE(1)="CLASS OF CASE"
15 S HTABLE(2)="SYMPTOMS/SIGNS PRESENT"
16 S HTABLE(3)="DIAGNOSTIC/SURGICAL WORKUP"
17 S HTABLE(4)="DATE OF INITIAL DIAGNOSIS"
18 S HTABLE(5)="PRIMARY SITE (ICD-O-2)"
19 S HTABLE(6)="HISTOLOGY/BEHAVIOR CODE (ICD-O-2)"
20 S HTABLE(7)="GRADE"
21 S HTABLE(8)="BLOOD VESSEL INVASION"
22 S HTABLE(9)="EXTRA-THYROID EXTENSION"
23 S HTABLE(10)="DIAGNOSTIC CONFIRMATION"
24 S CHOICES=10
25 K DIQ S DIC="^ONCO(165.5,",DR=".04;22;24;26",DA=ONCONUM,DIQ="ONC"
26 D EN^DIQ1
27 S Y=$P(^ONCO(165.5,ONCONUM,0),U,16) D DATEOT^ONCOPCE S DOID=Y
28 W @IOF D HEAD^ONCTPC0
29 W !?24,"TABLE II- INITIAL DIAGNOSIS/CANCER IDENTIFICATION",!
30 S DIE="^ONCO(165.5,",DA=ONCONUM
31COC W !,"CLASS OF CLASS...................: ",ONC(165.5,ONCONUM,.04)
32SSP W !!,"SYMPTOMS/SIGNS PRESENT:",!
33 S DR="408 DYSPHAGIA......................" D ^DIE G:$D(Y) JUMP
34 S DR="409 HOARSENESS OR VOICE CHANGE....." D ^DIE G:$D(Y) JUMP
35 S DR="410 NECK NODAL MASS................" D ^DIE G:$D(Y) JUMP
36 S DR="411 PAIN, BONE....................." D ^DIE G:$D(Y) JUMP
37 S DR="412 PAIN, NECK....................." D ^DIE G:$D(Y) JUMP
38 S DR="413 PATHOLOGIC FRACTURE............" D ^DIE G:$D(Y) JUMP
39 S DR="414 STRIDOR OR DIFFICULTY BREATHING" D ^DIE G:$D(Y) JUMP
40 S DR="415 THYROID MASS..................." D ^DIE G:$D(Y) JUMP
41 S DR="416 WEIGHT LOSS...................." D ^DIE G:$D(Y) JUMP
42 S DR="417 OTHER.........................." D ^DIE G:$D(Y) JUMP
43DSW W !!,"DIAGNOSTIC/SURGICAL WORKUP:",!
44 S DR="418 BONE SCAN......................" D ^DIE G:$D(Y) JUMP
45 S DR="419 CHEST X-RAY...................." D ^DIE G:$D(Y) JUMP
46 S DR="420 CT SCAN OF NECK................" D ^DIE G:$D(Y) JUMP
47 S DR="421 CT SCAN OF CHEST..............." D ^DIE G:$D(Y) JUMP
48 S DR="422 INCISIONAL BIOPSY.............." D ^DIE G:$D(Y) JUMP
49 S DR="423 LARYNGOSCOPY..................." D ^DIE G:$D(Y) JUMP
50 S DR="424 NECK X-RAY (AP & LATERAL)......" D ^DIE G:$D(Y) JUMP
51 S DR="425 NEEDLE ASPIRATION OF NECK NODE." D ^DIE G:$D(Y) JUMP
52 S DR="426 NEEDLE ASPIRATION OF THYROID..." D ^DIE G:$D(Y) JUMP
53 S DR="427 MRI OF NECK...................." D ^DIE G:$D(Y) JUMP
54 S DR="428 THYROID SCAN..................." D ^DIE G:$D(Y) JUMP
55 S DR="429 ULTRASOUND OF THYROID.........." D ^DIE G:$D(Y) JUMP
56 S DR="430 OTHER.........................." D ^DIE G:$D(Y) JUMP
57DOID W !!,"DATE OF INITIAL DIAGNOSIS........: ",DOID
58PS W !,"PRIMARY SITE (ICD-O-2)...........: ",TOPCOD
59H W !,"HISTOLOGY/BEHAVIOR CODE (ICD-O-2): ",ONC(165.5,ONCONUM,22)
60G S DR="24GRADE............................" D ^DIE G:$D(Y) JUMP
61BVI S DR="431BLOOD VESSEL INVASION............" D ^DIE G:$D(Y) JUMP
62ETT S DR="432EXTRA-THYROIDAL EXTENSION........" D ^DIE G:$D(Y) JUMP
63DC S DR="26DIAGNOSTIC CONFIRMATION.........." D ^DIE G:$D(Y) JUMP
64 W ! K DIR S DIR(0)="E" D ^DIR
65 G EXIT
66JUMP ;Jump to prompts
67 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
68 I X["?" D G JUMP
69 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
70 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
71 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
72 S X=TABLE(X)
73 G @X
74EXIT K HTABLE,TABLE,CHOICES
75 K DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
76 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
77 Q
Note: See TracBrowser for help on using the repository browser.