ONCNPC2 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table II;4/14/97
;;2.2;ONCOLOGY;**1**;Jul 31, 2013;Build 8
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCNPC2 4753 printed Oct 16, 2024@18:24:36 Page 2
ONCNPC2 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table II;4/14/97
+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 CONFIRMATION")="DC"
+5 SET TABLE("DIAGNOSTIC WORKUP")="DW"
+6 SET TABLE("RESULTS OF LABORATORY TESTS")="ROLT"
+7 SET TABLE("ADDITIONAL TESTS")="AT"
+8 SET TABLE("REVIEW OF PATHOLOGY/OTH INST")="ROP"
+9 SET TABLE("DIAGNOSTIC BIOPSIES")="DB"
+10 SET TABLE("SYSTEMIC SYMPTOMS")="SS"
+11 SET TABLE("DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE")="DTSRTHD"
+12 SET TABLE("HIV VIRAL LOADS")="HVL"
+13 SET TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
+14 SET TABLE("PRIMARY SITE")="PS"
+15 SET TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
+16 SET TABLE("SPECIFIC HISTOLOGIC INFORMATION")="SHI"
+17 SET TABLE("CELL TYPE OF LYMPHOMA")="CTOL"
+18 SET TABLE("PATIENT STATUS AT DIAGNOSIS")="PSAD"
+19 SET HTABLE(1)="CLASS OF CASE"
+20 SET HTABLE(2)="DIAGNOSTIC CONFIRMATION"
+21 SET HTABLE(3)="DIAGNOSTIC WORKUP"
+22 SET HTABLE(4)="RESULTS OF LABORATORY TESTS"
+23 SET HTABLE(5)="ADDITIONAL TESTS"
+24 SET HTABLE(6)="REVIEW OF PATHOLOGY/OTH INST"
+25 SET HTABLE(7)="DIAGNOSTIC BIOPSIES"
+26 SET HTABLE(8)="SYSTEMIC SYMPTOMS"
+27 SET HTABLE(9)="DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE"
+28 SET HTABLE(10)="HIV VIRAL LOADS"
+29 SET HTABLE(11)="DATE OF INITIAL DIAGNOSIS"
+30 SET HTABLE(12)="PRIMARY SITE"
+31 SET HTABLE(13)="HISTOLOGY/BEHAVIOR CODE"
+32 SET HTABLE(14)="SPECIFIC HISTOLOGIC INFORMATION"
+33 SET HTABLE(15)="CELL TYPE OF LYMPHOMA"
+34 SET HTABLE(16)="PATIENT STATUS AT DIAGNOSIS"
+35 SET CHOICES=16
+36 KILL DIQ
SET DIC="^ONCO(165.5,"
SET DR=".04;22;24;26"
SET DA=ONCONUM
SET DIQ="ONC"
+37 DO EN^DIQ1
+38 SET Y=$PIECE(^ONCO(165.5,ONCONUM,0),U,16)
DO DATEOT^ONCOPCE
SET DOID=Y
+39 WRITE @IOF
DO HEAD^ONCNPC0
+40 WRITE !?26,"TABLE II- INITIAL DIAGNOSIS"
+41 WRITE !?26,"---------------------------"
+42 SET DIE="^ONCO(165.5,"
SET DA=ONCONUM
COC WRITE !,"CLASS OF CLASS..............: ",ONC(165.5,ONCONUM,.04)
DC SET DR="26DIAGNOSTIC CONFIRMATION....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DW WRITE !!,"DIAGNOSTIC WORKUP:",!
+1 SET DR="505 CHEST X-RAY..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="512 SKELETAL X-RAY............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="823 CT SCAN OF BRAIN.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="506 CT SCAN OF CHEST.........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="824 CT SCAN OF ABDOMEN/PELVIS."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="825 MRI OF BRAIN.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+7 SET DR="826 MRI OF CHEST.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+8 SET DR="827 MRI OF ABDOMEN/PELVIS....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+9 SET DR="504 BONE SCAN................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+10 SET DR="828 GALLIUM SCAN.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+11 SET DR="829 PET SCAN.................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+12 SET DR="830 LUMBAR PUNCTURE..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
ROLT WRITE !!,"RESULTS OF LABORATORY TESTS:",!
+1 SET DR="831 HEMOGLOBIN/HEMATOCRIT....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="832 WHITE COUNT..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="833 PLATELET COUNT............"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="834 LACTIC DEHYDROGENASE (LDH)"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 SET DR="835 LIVER FUNCTION STUDIES...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+6 SET DR="836 TOTAL PROTEIN/ALBUMIN....."
DO ^DIE
if $DATA(Y)
GOTO JUMP
AT WRITE !!,"ADDITIONAL TESTS:",!
+1 SET DR="516 TUMOR SURFACE MARKER......"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="514 CYTOGENETIC TESTING......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="837 GENE REARRANGEMENTS......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 WRITE !
ROP SET DR="838REVIEW OF PATHOLOGY/OTH INST"
DO ^DIE
if $DATA(Y)
GOTO JUMP
DB WRITE !!,"DIAGNOSTIC BIOPSIES:",!
+1 SET DR="839 LYMPH NODE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="840 BONE MARROW..............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+3 SET DR="841 CSF CYTOLOGY.............."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+4 SET DR="842 OTHER SITE................"
DO ^DIE
if $DATA(Y)
GOTO JUMP
+5 WRITE !
SS SET DR="843SYSTEMIC SYMPTOMS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DTSRTHD WRITE !!,"DIAGNOSTIC TESTS SPECIFICALLY RELATED TO HIV DISEASE:",!
+1 SET DR="844 CD4 COUNT................."
DO ^DIE
if $DATA(Y)
GOTO JUMP
+2 SET DR="845 HIV VIRAL LOADS..........."
DO ^DIE
if $DATA(Y)
GOTO JUMP
DOID WRITE !!,"DATE OF INITIAL DIAGNOSIS...: ",DOID
PS WRITE !,"PRIMARY SITE................: ",TOPCOD
H WRITE !,"HISTOLOGY/BEHAVIOR CODE.....: ",ONC(165.5,ONCONUM,22)
SHI SET DR="846SPECIFIC HISTOLOGIC INFO...."
DO ^DIE
if $DATA(Y)
GOTO JUMP
CTOL SET DR="847CELL TYPE OF LYMPHOMA......."
DO ^DIE
if $DATA(Y)
GOTO JUMP
PSAD SET DR="848PATIENT STATUS AT DIAGNOSIS."
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
