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