- 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 Feb 18, 2025@23:55:31 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
