- 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 Feb 18, 2025@23:50:24 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