ONCNPC2 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table II;4/14/97
 ;;2.11;ONCOLOGY;**11**;Mar 07, 1995
 K TABLE,HTABLE
 S TABLE("CLASS OF CASE")="COC"
 S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
 S TABLE("DIAGNOSTIC WORKUP")="DW"
 S TABLE("RESULTS OF LABORATORY TESTS")="ROLT"
 S TABLE("ADDITIONAL TESTS")="AT"
 S TABLE("REVIEW OF PATHOLOGY/OTH INST")="ROP"
 S TABLE("DIAGNOSTIC BIOPSIES")="DB"
 S TABLE("SYSTEMIC SYMPTOMS")="SS"
 S TABLE("DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE")="DTSRTHD"
 S TABLE("HIV VIRAL LOADS")="HVL"
 S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
 S TABLE("PRIMARY SITE")="PS"
 S TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
 S TABLE("SPECIFIC HISTOLOGIC INFORMATION")="SHI"
 S TABLE("CELL TYPE OF LYMPHOMA")="CTOL"
 S TABLE("PATIENT STATUS AT DIAGNOSIS")="PSAD"
 S HTABLE(1)="CLASS OF CASE"
 S HTABLE(2)="DIAGNOSTIC CONFIRMATION"
 S HTABLE(3)="DIAGNOSTIC WORKUP"
 S HTABLE(4)="RESULTS OF LABORATORY TESTS"
 S HTABLE(5)="ADDITIONAL TESTS"
 S HTABLE(6)="REVIEW OF PATHOLOGY/OTH INST"
 S HTABLE(7)="DIAGNOSTIC BIOPSIES"
 S HTABLE(8)="SYSTEMIC SYMPTOMS"
 S HTABLE(9)="DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE"
 S HTABLE(10)="HIV VIRAL LOADS"
 S HTABLE(11)="DATE OF INITIAL DIAGNOSIS"
 S HTABLE(12)="PRIMARY SITE"
 S HTABLE(13)="HISTOLOGY/BEHAVIOR CODE"
 S HTABLE(14)="SPECIFIC HISTOLOGIC INFORMATION"
 S HTABLE(15)="CELL TYPE OF LYMPHOMA"
 S HTABLE(16)="PATIENT STATUS AT DIAGNOSIS"
 S CHOICES=16
 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^ONCNPC0
 W !?26,"TABLE II- INITIAL DIAGNOSIS"
 W !?26,"---------------------------"
 S DIE="^ONCO(165.5,",DA=ONCONUM
COC W !,"CLASS OF CLASS..............: ",ONC(165.5,ONCONUM,.04)
DC S DR="26DIAGNOSTIC CONFIRMATION....." D ^DIE G:$D(Y) JUMP
DW W !!,"DIAGNOSTIC WORKUP:",!
 S DR="505  CHEST X-RAY..............." D ^DIE G:$D(Y) JUMP
 S DR="512  SKELETAL X-RAY............" D ^DIE G:$D(Y) JUMP
 S DR="823  CT SCAN OF BRAIN.........." D ^DIE G:$D(Y) JUMP
 S DR="506  CT SCAN OF CHEST.........." D ^DIE G:$D(Y) JUMP
 S DR="824  CT SCAN OF ABDOMEN/PELVIS." D ^DIE G:$D(Y) JUMP
 S DR="825  MRI OF BRAIN.............." D ^DIE G:$D(Y) JUMP
 S DR="826  MRI OF CHEST.............." D ^DIE G:$D(Y) JUMP
 S DR="827  MRI OF ABDOMEN/PELVIS....." D ^DIE G:$D(Y) JUMP
 S DR="504  BONE SCAN................." D ^DIE G:$D(Y) JUMP
 S DR="828  GALLIUM SCAN.............." D ^DIE G:$D(Y) JUMP
 S DR="829  PET SCAN.................." D ^DIE G:$D(Y) JUMP
 S DR="830  LUMBAR PUNCTURE..........." D ^DIE G:$D(Y) JUMP
ROLT W !!,"RESULTS OF LABORATORY TESTS:",!
 S DR="831  HEMOGLOBIN/HEMATOCRIT....." D ^DIE G:$D(Y) JUMP
 S DR="832  WHITE COUNT..............." D ^DIE G:$D(Y) JUMP
 S DR="833  PLATELET COUNT............" D ^DIE G:$D(Y) JUMP
 S DR="834  LACTIC DEHYDROGENASE (LDH)" D ^DIE G:$D(Y) JUMP
 S DR="835  LIVER FUNCTION STUDIES...." D ^DIE G:$D(Y) JUMP
 S DR="836  TOTAL PROTEIN/ALBUMIN....." D ^DIE G:$D(Y) JUMP
AT W !!,"ADDITIONAL TESTS:",!
 S DR="516  TUMOR SURFACE MARKER......" D ^DIE G:$D(Y) JUMP
 S DR="514  CYTOGENETIC TESTING......." D ^DIE G:$D(Y) JUMP
 S DR="837  GENE REARRANGEMENTS......." D ^DIE G:$D(Y) JUMP
 W !
ROP S DR="838REVIEW OF PATHOLOGY/OTH INST" D ^DIE G:$D(Y) JUMP
DB W !!,"DIAGNOSTIC BIOPSIES:",!
 S DR="839  LYMPH NODE................" D ^DIE G:$D(Y) JUMP
 S DR="840  BONE MARROW..............." D ^DIE G:$D(Y) JUMP
 S DR="841  CSF CYTOLOGY.............." D ^DIE G:$D(Y) JUMP
 S DR="842  OTHER SITE................" D ^DIE G:$D(Y) JUMP
 W !
SS S DR="843SYSTEMIC SYMPTOMS..........." D ^DIE G:$D(Y) JUMP
DTSRTHD W !!,"DIAGNOSTIC TESTS SPECIFICALLY RELATED TO HIV DISEASE:",!
 S DR="844  CD4 COUNT................." D ^DIE G:$D(Y) JUMP
 S DR="845  HIV VIRAL LOADS..........." D ^DIE G:$D(Y) JUMP
DOID W !!,"DATE OF INITIAL DIAGNOSIS...: ",DOID
PS W !,"PRIMARY SITE................: ",TOPCOD
H W !,"HISTOLOGY/BEHAVIOR CODE.....: ",ONC(165.5,ONCONUM,22)
SHI S DR="846SPECIFIC HISTOLOGIC INFO...." D ^DIE G:$D(Y) JUMP
CTOL S DR="847CELL TYPE OF LYMPHOMA......." D ^DIE G:$D(Y) JUMP
PSAD S DR="848PATIENT STATUS AT DIAGNOSIS." 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