ONCTPC2 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table II;6/19/96
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCTPC2 3825 printed Apr 09, 2024@21:30:20 Page 2
ONCTPC2 ;HIRMFO/GWB - PCE Study of Thyroid Cancer Table II;6/19/96
+1 ;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
+2 KILL TABLE,HTABLE
+3 SET TABLE("CLASS OF CASE")="COC"
+4 SET TABLE("SYMPTOMS/SIGNS PRESENT")="SSP"
+5 SET TABLE("DIAGNOSTIC/SURGICAL WORKUP")="DSW"
+6 SET TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
+7 SET TABLE("PRIMARY SITE (ICD-O-2)")="PS"
+8 SET TABLE("HISTOLOGY/BEHAVIOR CODE (ICD-O-2)")="H"
+9 SET TABLE("GRADE")="G"
+10 SET TABLE("BLOOD VESSEL INVASION")="BVI"
+11 SET TABLE("EXTRA-THYROID EXTENSION")="ETE"
+12 SET TABLE("DIAGNOSTIC CONFIRMATION")="DC"
+13 SET HTABLE(1)="CLASS OF CASE"
+14 SET HTABLE(2)="SYMPTOMS/SIGNS PRESENT"
+15 SET HTABLE(3)="DIAGNOSTIC/SURGICAL WORKUP"
+16 SET HTABLE(4)="DATE OF INITIAL DIAGNOSIS"
+17 SET HTABLE(5)="PRIMARY SITE (ICD-O-2)"
+18 SET HTABLE(6)="HISTOLOGY/BEHAVIOR CODE (ICD-O-2)"
+19 SET HTABLE(7)="GRADE"
+20 SET HTABLE(8)="BLOOD VESSEL INVASION"
+21 SET HTABLE(9)="EXTRA-THYROID EXTENSION"
+22 SET HTABLE(10)="DIAGNOSTIC CONFIRMATION"
+23 SET CHOICES=10
+24 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR=".04;22;24;26"
SET DA=ONCONUM
SET DIQ="ONC"
+25 DO EN^DIQ1
+26 SET Y=$PIECE(^ONCO(165.5,ONCONUM,0),U,16)
DO DATEOT^ONCOPCE
SET DOID=Y
+27 WRITE @IOF
DO HEAD^ONCTPC0
+28 WRITE !?24,"TABLE II- INITIAL DIAGNOSIS/CANCER IDENTIFICATION",!
+29 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
COC WRITE !,"CLASS OF CLASS...................: ",ONC(165.5,ONCONUM,.04)
SSP WRITE !!,"SYMPTOMS/SIGNS PRESENT:",!
+1 SET DR="408 DYSPHAGIA......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="409 HOARSENESS OR VOICE CHANGE....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="410 NECK NODAL MASS................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="411 PAIN, BONE....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="412 PAIN, NECK....................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="413 PATHOLOGIC FRACTURE............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="414 STRIDOR OR DIFFICULTY BREATHING"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="415 THYROID MASS..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="416 WEIGHT LOSS...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="417 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DSW WRITE !!,"DIAGNOSTIC/SURGICAL WORKUP:",!
+1 SET DR="418 BONE SCAN......................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="419 CHEST X-RAY...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="420 CT SCAN OF NECK................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="421 CT SCAN OF CHEST..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="422 INCISIONAL BIOPSY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="423 LARYNGOSCOPY..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="424 NECK X-RAY (AP & LATERAL)......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="425 NEEDLE ASPIRATION OF NECK NODE."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="426 NEEDLE ASPIRATION OF THYROID..."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="427 MRI OF NECK...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="428 THYROID SCAN..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="429 ULTRASOUND OF THYROID.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+13 SET DR="430 OTHER.........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOID WRITE !!,"DATE OF INITIAL DIAGNOSIS........: ",DOID
PS WRITE !,"PRIMARY SITE (ICD-O-2)...........: ",TOPCOD
H WRITE !,"HISTOLOGY/BEHAVIOR CODE (ICD-O-2): ",ONC(165.5,ONCONUM,22)
G SET DR="24GRADE............................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
BVI SET DR="431BLOOD VESSEL INVASION............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
ETT SET DR="432EXTRA-THYROIDAL EXTENSION........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DC SET DR="26DIAGNOSTIC CONFIRMATION.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+1 WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
+2 GOTO EXIT
JUMP ;Jump to prompts
+1 SET XX=""
READ !!,"GO TO: ",X:DTIME
IF (X="")!(X[U)
SET OUT="Y"
GOTO EXIT
+2 IF X["?"
Begin DoDot:1
+3 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+4 IF '$DATA(TABLE(X))
SET XX=X
SET X=$ORDER(TABLE(X))
IF ($PIECE(X,XX,1)'="")!(X="")
WRITE *7,"??"
Begin DoDot:1
+5 WRITE !,"CHOOSE FROM:"
FOR I=1:1:CHOICES
WRITE !,?5,HTABLE(I)
End DoDot:1
GOTO JUMP
+6 SET X=TABLE(X)
+7 GOTO @X
EXIT KILL HTABLE,TABLE,CHOICES
+1 KILL DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
+2 KILL DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
+3 QUIT
