ONCSPC2 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma 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("DIAGNOSTIC WORKUP")="DW"
S TABLE("HISTOLOGIC WORKUP")="HW"
S TABLE("BIOPSIES")="B"
S TABLE("OUTSIDE CONFIRMATION OF BIOPSY")="OCOB"
S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
S TABLE("PRIMARY SITE")="PS"
S TABLE("SUBSITE")="S"
S TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
S TABLE("GRADE")="G"
S TABLE("ADDNL GRADE CODING SYSTEM")="AGCS"
S TABLE("VALUE OF ADDNL CODING SYSTEM")="VOACS"
S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
S HTABLE(1)="CLASS OF CASE"
S HTABLE(2)="DIAGNOSTIC WORKUP"
S HTABLE(3)="HISTOLOGIC WORKUP"
S HTABLE(4)="BIOPSIES"
S HTABLE(5)="OUTSIDE CONFIRMATION OF BIOPSY"
S HTABLE(6)="DATE OF INITIAL DIAGNOSIS"
S HTABLE(7)="PRIMARY SITE"
S HTABLE(8)="SUBSITE"
S HTABLE(9)="HISTOLOGY/BEHAVIOR CODE"
S HTABLE(10)="GRADE"
S HTABLE(11)="ADDNL GRADE CODING SYSTEM"
S HTABLE(12)="VALUE OF ADDNL CODING SYSTEM"
S HTABLE(13)="DIAGNOSTIC CONFIRMATION"
S CHOICES=13
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^ONCSPC0
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)
DW W !!,"DIAGNOSTIC WORKUP:",!
S DR="502 ANGIOGRAM OF PRIMARY........" D ^DIE G:$D(Y) JUMP
S DR="503 BONE MARROW ASPIRATE/BIOPSY." D ^DIE G:$D(Y) JUMP
S DR="504 BONE SCAN..................." D ^DIE G:$D(Y) JUMP
S DR="505 CHEST X-RAY................." D ^DIE G:$D(Y) JUMP
S DR="506 CT SCAN OF CHEST............" D ^DIE G:$D(Y) JUMP
S DR="507 CT SCAN OF PRIMARY.........." D ^DIE G:$D(Y) JUMP
S DR="508 LIVER FUNCTION STUDIES......" D ^DIE G:$D(Y) JUMP
S DR="509 LYMPHANGIOGRAM.............." D ^DIE G:$D(Y) JUMP
S DR="510 MRI OF PRIMARY.............." D ^DIE G:$D(Y) JUMP
S DR="511 MRI OF OTHER................" D ^DIE G:$D(Y) JUMP
S DR="512 SKELETAL X-RAY.............." D ^DIE G:$D(Y) JUMP
S DR="513 SONOGRAM...................." D ^DIE G:$D(Y) JUMP
HW W !!,"HISTOLOGIC WORKUP:",!
S DR="514 CYTOGENETICS................" D ^DIE G:$D(Y) JUMP
S DR="515 ELECTRON MICROSCOPY........." D ^DIE G:$D(Y) JUMP
S DR="329 FLOW CYTOMETRY.............." D ^DIE G:$D(Y) JUMP
S DR="516 IMMUNOHISTOCHEMISTRY........" D ^DIE G:$D(Y) JUMP
S DR="517 IN SITU HYBRIDIZATION......." D ^DIE G:$D(Y) JUMP
B W !!,"BIOPSIES:",!
W !," TYPE HISTOLOGY/BEHAVIOR/GRADE",!
S DR="528 FINE NEEDLE ASPIRATION......" D ^DIE G:$D(Y) JUMP
S DR="529 CORE NEEDLE BIOPSY.........." D ^DIE G:$D(Y) JUMP
S DR="530 INCISIONAL BIOPSY..........." D ^DIE G:$D(Y) JUMP
S DR="531 EXCISIONAL BIOPSY..........." D ^DIE G:$D(Y) JUMP
W !
OCOB S DR="518OUTSIDE CONFIRMATION OF BIOPSY" D ^DIE G:$D(Y) JUMP
DOID W !,"DATE OF INITIAL DIAGNOSIS.....: ",DOID
PS W !,"PRIMARY SITE..................: ",TOPCOD
S S DR="519SUBSITE" D ^DIE G:$D(Y) JUMP
H W !,"HISTOLOGY/BEHAVIOR CODE.......: ",ONC(165.5,ONCONUM,22)
G S DR="24GRADE........................." D ^DIE G:$D(Y) JUMP
AGCS S DR="520ADDNL GRADE CODING SYSTEM....." D ^DIE G:$D(Y) JUMP
VOACS S DR="521VALUE OF ADDNL CODING SYSTEM.." 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[HONCSPC2 3951 printed Apr 09, 2024@21:27:18 Page 2
ONCSPC2 ;HIRMFO/GWB - PCE Study of Soft Tissue Sarcoma 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("DIAGNOSTIC WORKUP")="DW"
+5 SET TABLE("HISTOLOGIC WORKUP")="HW"
+6 SET TABLE("BIOPSIES")="B"
+7 SET TABLE("OUTSIDE CONFIRMATION OF BIOPSY")="OCOB"
+8 SET TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
+9 SET TABLE("PRIMARY SITE")="PS"
+10 SET TABLE("SUBSITE")="S"
+11 SET TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
+12 SET TABLE("GRADE")="G"
+13 SET TABLE("ADDNL GRADE CODING SYSTEM")="AGCS"
+14 SET TABLE("VALUE OF ADDNL CODING SYSTEM")="VOACS"
+15 SET TABLE("DIAGNOSTIC CONFIRMATION")="DC"
+16 SET HTABLE(1)="CLASS OF CASE"
+17 SET HTABLE(2)="DIAGNOSTIC WORKUP"
+18 SET HTABLE(3)="HISTOLOGIC WORKUP"
+19 SET HTABLE(4)="BIOPSIES"
+20 SET HTABLE(5)="OUTSIDE CONFIRMATION OF BIOPSY"
+21 SET HTABLE(6)="DATE OF INITIAL DIAGNOSIS"
+22 SET HTABLE(7)="PRIMARY SITE"
+23 SET HTABLE(8)="SUBSITE"
+24 SET HTABLE(9)="HISTOLOGY/BEHAVIOR CODE"
+25 SET HTABLE(10)="GRADE"
+26 SET HTABLE(11)="ADDNL GRADE CODING SYSTEM"
+27 SET HTABLE(12)="VALUE OF ADDNL CODING SYSTEM"
+28 SET HTABLE(13)="DIAGNOSTIC CONFIRMATION"
+29 SET CHOICES=13
+30 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR=".04;22;24;26"
SET DA=ONCONUM
SET DIQ="ONC"
+31 DO EN^DIQ1
+32 SET Y=$PIECE(^ONCO(165.5,ONCONUM,0),U,16)
DO DATEOT^ONCOPCE
SET DOID=Y
+33 WRITE @IOF
DO HEAD^ONCSPC0
+34 WRITE !?24,"TABLE II- INITIAL DIAGNOSIS/CANCER IDENTIFICATION",!
+35 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
COC WRITE !,"CLASS OF CLASS................:",ONC(165.5,ONCONUM,.04)
DW WRITE !!,"DIAGNOSTIC WORKUP:",!
+1 SET DR="502 ANGIOGRAM OF PRIMARY........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="503 BONE MARROW ASPIRATE/BIOPSY."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="504 BONE SCAN..................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="505 CHEST X-RAY................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="506 CT SCAN OF CHEST............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="507 CT SCAN OF PRIMARY.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="508 LIVER FUNCTION STUDIES......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="509 LYMPHANGIOGRAM.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="510 MRI OF PRIMARY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="511 MRI OF OTHER................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="512 SKELETAL X-RAY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="513 SONOGRAM...................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
HW WRITE !!,"HISTOLOGIC WORKUP:",!
+1 SET DR="514 CYTOGENETICS................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="515 ELECTRON MICROSCOPY........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="329 FLOW CYTOMETRY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="516 IMMUNOHISTOCHEMISTRY........"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="517 IN SITU HYBRIDIZATION......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
B WRITE !!,"BIOPSIES:",!
+1 WRITE !," TYPE HISTOLOGY/BEHAVIOR/GRADE",!
+2 SET DR="528 FINE NEEDLE ASPIRATION......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="529 CORE NEEDLE BIOPSY.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="530 INCISIONAL BIOPSY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="531 EXCISIONAL BIOPSY..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 WRITE !
OCOB SET DR="518OUTSIDE CONFIRMATION OF BIOPSY"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOID WRITE !,"DATE OF INITIAL DIAGNOSIS.....: ",DOID
PS WRITE !,"PRIMARY SITE..................: ",TOPCOD
S SET DR="519SUBSITE"
DO ^DIE
if $DATA(Y)
GOTO JUMP
H WRITE !,"HISTOLOGY/BEHAVIOR CODE.......: ",ONC(165.5,ONCONUM,22)
G SET DR="24GRADE........................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
AGCS SET DR="520ADDNL GRADE CODING SYSTEM....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
VOACS SET DR="521VALUE OF ADDNL CODING SYSTEM.."
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
