ONCTPC2 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table II;6/19/96
 ;;2.11;ONCOLOGY;**6**;Mar 07, 1995
 K TABLE,HTABLE
 S TABLE("CLASS OF CASE")="COC"
 S TABLE("SYMPTOMS/SIGNS PRESENT")="SSP"
 S TABLE("DIAGNOSTIC/SURGICAL WORKUP")="DSW"
 S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
 S TABLE("PRIMARY SITE (ICD-O-2)")="PS"
 S TABLE("HISTOLOGY/BEHAVIOR CODE (ICD-O-2)")="H"
 S TABLE("GRADE")="G"
 S TABLE("BLOOD VESSEL INVASION")="BVI"
 S TABLE("EXTRA-THYROID EXTENSION")="ETE"
 S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
 S HTABLE(1)="CLASS OF CASE"
 S HTABLE(2)="SYMPTOMS/SIGNS PRESENT"
 S HTABLE(3)="DIAGNOSTIC/SURGICAL WORKUP"
 S HTABLE(4)="DATE OF INITIAL DIAGNOSIS"
 S HTABLE(5)="PRIMARY SITE (ICD-O-2)"
 S HTABLE(6)="HISTOLOGY/BEHAVIOR CODE (ICD-O-2)"
 S HTABLE(7)="GRADE"
 S HTABLE(8)="BLOOD VESSEL INVASION"
 S HTABLE(9)="EXTRA-THYROID EXTENSION"
 S HTABLE(10)="DIAGNOSTIC CONFIRMATION"
 S CHOICES=10
 K DIQ S DIC="^ONCO(165.5,",DR=".04;22;24;26",DA=ONCONUM,DIQ="ONC"
 D EN^DIQ1
 S Y=$P(^ONCO(165.5,ONCONUM,0),U,16) D DATEOT^ONCOPCE S DOID=Y
 W @IOF D HEAD^ONCTPC0
 W !?24,"TABLE II- INITIAL DIAGNOSIS/CANCER IDENTIFICATION",!
 S DIE="^ONCO(165.5,",DA=ONCONUM
COC W !,"CLASS OF CLASS...................: ",ONC(165.5,ONCONUM,.04)
SSP W !!,"SYMPTOMS/SIGNS PRESENT:",!
 S DR="408  DYSPHAGIA......................" D ^DIE G:$D(Y) JUMP
 S DR="409  HOARSENESS OR VOICE CHANGE....." D ^DIE G:$D(Y) JUMP
 S DR="410  NECK NODAL MASS................" D ^DIE G:$D(Y) JUMP
 S DR="411  PAIN, BONE....................." D ^DIE G:$D(Y) JUMP
 S DR="412  PAIN, NECK....................." D ^DIE G:$D(Y) JUMP
 S DR="413  PATHOLOGIC FRACTURE............" D ^DIE G:$D(Y) JUMP
 S DR="414  STRIDOR OR DIFFICULTY BREATHING" D ^DIE G:$D(Y) JUMP
 S DR="415  THYROID MASS..................." D ^DIE G:$D(Y) JUMP
 S DR="416  WEIGHT LOSS...................." D ^DIE G:$D(Y) JUMP
 S DR="417  OTHER.........................." D ^DIE G:$D(Y) JUMP
DSW W !!,"DIAGNOSTIC/SURGICAL WORKUP:",!
 S DR="418  BONE SCAN......................" D ^DIE G:$D(Y) JUMP
 S DR="419  CHEST X-RAY...................." D ^DIE G:$D(Y) JUMP
 S DR="420  CT SCAN OF NECK................" D ^DIE G:$D(Y) JUMP
 S DR="421  CT SCAN OF CHEST..............." D ^DIE G:$D(Y) JUMP
 S DR="422  INCISIONAL BIOPSY.............." D ^DIE G:$D(Y) JUMP
 S DR="423  LARYNGOSCOPY..................." D ^DIE G:$D(Y) JUMP
 S DR="424  NECK X-RAY (AP & LATERAL)......" D ^DIE G:$D(Y) JUMP
 S DR="425  NEEDLE ASPIRATION OF NECK NODE." D ^DIE G:$D(Y) JUMP
 S DR="426  NEEDLE ASPIRATION OF THYROID..." D ^DIE G:$D(Y) JUMP
 S DR="427  MRI OF NECK...................." D ^DIE G:$D(Y) JUMP
 S DR="428  THYROID SCAN..................." D ^DIE G:$D(Y) JUMP
 S DR="429  ULTRASOUND OF THYROID.........." D ^DIE G:$D(Y) JUMP
 S DR="430  OTHER.........................." D ^DIE G:$D(Y) JUMP
DOID W !!,"DATE OF INITIAL DIAGNOSIS........: ",DOID
PS W !,"PRIMARY SITE (ICD-O-2)...........: ",TOPCOD
H W !,"HISTOLOGY/BEHAVIOR CODE (ICD-O-2): ",ONC(165.5,ONCONUM,22)
G S DR="24GRADE............................" D ^DIE G:$D(Y) JUMP
BVI S DR="431BLOOD VESSEL INVASION............" D ^DIE G:$D(Y) JUMP
ETT S DR="432EXTRA-THYROIDAL EXTENSION........" D ^DIE G:$D(Y) JUMP
DC S DR="26DIAGNOSTIC CONFIRMATION.........." D ^DIE G:$D(Y) JUMP
 W ! K DIR S DIR(0)="E" D ^DIR
 G EXIT
JUMP ;Jump to prompts
 S XX="" R !!,"GO TO: ",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 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 DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
 Q