source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCNPC2.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.5 KB
Line 
1ONCNPC2 ;HIRMFO/GWB - PCE Study of Non-Hodgkin's Lymphoma - Table II;4/14/97
2 ;;2.11;ONCOLOGY;**11**;Mar 07, 1995
3 K TABLE,HTABLE
4 S TABLE("CLASS OF CASE")="COC"
5 S TABLE("DIAGNOSTIC CONFIRMATION")="DC"
6 S TABLE("DIAGNOSTIC WORKUP")="DW"
7 S TABLE("RESULTS OF LABORATORY TESTS")="ROLT"
8 S TABLE("ADDITIONAL TESTS")="AT"
9 S TABLE("REVIEW OF PATHOLOGY/OTH INST")="ROP"
10 S TABLE("DIAGNOSTIC BIOPSIES")="DB"
11 S TABLE("SYSTEMIC SYMPTOMS")="SS"
12 S TABLE("DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE")="DTSRTHD"
13 S TABLE("HIV VIRAL LOADS")="HVL"
14 S TABLE("DATE OF INITIAL DIAGNOSIS")="DOID"
15 S TABLE("PRIMARY SITE")="PS"
16 S TABLE("HISTOLOGY/BEHAVIOR CODE")="H"
17 S TABLE("SPECIFIC HISTOLOGIC INFORMATION")="SHI"
18 S TABLE("CELL TYPE OF LYMPHOMA")="CTOL"
19 S TABLE("PATIENT STATUS AT DIAGNOSIS")="PSAD"
20 S HTABLE(1)="CLASS OF CASE"
21 S HTABLE(2)="DIAGNOSTIC CONFIRMATION"
22 S HTABLE(3)="DIAGNOSTIC WORKUP"
23 S HTABLE(4)="RESULTS OF LABORATORY TESTS"
24 S HTABLE(5)="ADDITIONAL TESTS"
25 S HTABLE(6)="REVIEW OF PATHOLOGY/OTH INST"
26 S HTABLE(7)="DIAGNOSTIC BIOPSIES"
27 S HTABLE(8)="SYSTEMIC SYMPTOMS"
28 S HTABLE(9)="DIAGNOSTIC TEST SPECIFICALLY RELATED TO HIV DISEASE"
29 S HTABLE(10)="HIV VIRAL LOADS"
30 S HTABLE(11)="DATE OF INITIAL DIAGNOSIS"
31 S HTABLE(12)="PRIMARY SITE"
32 S HTABLE(13)="HISTOLOGY/BEHAVIOR CODE"
33 S HTABLE(14)="SPECIFIC HISTOLOGIC INFORMATION"
34 S HTABLE(15)="CELL TYPE OF LYMPHOMA"
35 S HTABLE(16)="PATIENT STATUS AT DIAGNOSIS"
36 S CHOICES=16
37 K DIQ S DIC="^ONCO(165.5,",DR=".04;22;24;26",DA=ONCONUM,DIQ="ONC"
38 D EN^DIQ1
39 S Y=$P(^ONCO(165.5,ONCONUM,0),U,16) D DATEOT^ONCOPCE S DOID=Y
40 W @IOF D HEAD^ONCNPC0
41 W !?26,"TABLE II- INITIAL DIAGNOSIS"
42 W !?26,"---------------------------"
43 S DIE="^ONCO(165.5,",DA=ONCONUM
44COC W !,"CLASS OF CLASS..............: ",ONC(165.5,ONCONUM,.04)
45DC S DR="26DIAGNOSTIC CONFIRMATION....." D ^DIE G:$D(Y) JUMP
46DW W !!,"DIAGNOSTIC WORKUP:",!
47 S DR="505 CHEST X-RAY..............." D ^DIE G:$D(Y) JUMP
48 S DR="512 SKELETAL X-RAY............" D ^DIE G:$D(Y) JUMP
49 S DR="823 CT SCAN OF BRAIN.........." D ^DIE G:$D(Y) JUMP
50 S DR="506 CT SCAN OF CHEST.........." D ^DIE G:$D(Y) JUMP
51 S DR="824 CT SCAN OF ABDOMEN/PELVIS." D ^DIE G:$D(Y) JUMP
52 S DR="825 MRI OF BRAIN.............." D ^DIE G:$D(Y) JUMP
53 S DR="826 MRI OF CHEST.............." D ^DIE G:$D(Y) JUMP
54 S DR="827 MRI OF ABDOMEN/PELVIS....." D ^DIE G:$D(Y) JUMP
55 S DR="504 BONE SCAN................." D ^DIE G:$D(Y) JUMP
56 S DR="828 GALLIUM SCAN.............." D ^DIE G:$D(Y) JUMP
57 S DR="829 PET SCAN.................." D ^DIE G:$D(Y) JUMP
58 S DR="830 LUMBAR PUNCTURE..........." D ^DIE G:$D(Y) JUMP
59ROLT W !!,"RESULTS OF LABORATORY TESTS:",!
60 S DR="831 HEMOGLOBIN/HEMATOCRIT....." D ^DIE G:$D(Y) JUMP
61 S DR="832 WHITE COUNT..............." D ^DIE G:$D(Y) JUMP
62 S DR="833 PLATELET COUNT............" D ^DIE G:$D(Y) JUMP
63 S DR="834 LACTIC DEHYDROGENASE (LDH)" D ^DIE G:$D(Y) JUMP
64 S DR="835 LIVER FUNCTION STUDIES...." D ^DIE G:$D(Y) JUMP
65 S DR="836 TOTAL PROTEIN/ALBUMIN....." D ^DIE G:$D(Y) JUMP
66AT W !!,"ADDITIONAL TESTS:",!
67 S DR="516 TUMOR SURFACE MARKER......" D ^DIE G:$D(Y) JUMP
68 S DR="514 CYTOGENETIC TESTING......." D ^DIE G:$D(Y) JUMP
69 S DR="837 GENE REARRANGEMENTS......." D ^DIE G:$D(Y) JUMP
70 W !
71ROP S DR="838REVIEW OF PATHOLOGY/OTH INST" D ^DIE G:$D(Y) JUMP
72DB W !!,"DIAGNOSTIC BIOPSIES:",!
73 S DR="839 LYMPH NODE................" D ^DIE G:$D(Y) JUMP
74 S DR="840 BONE MARROW..............." D ^DIE G:$D(Y) JUMP
75 S DR="841 CSF CYTOLOGY.............." D ^DIE G:$D(Y) JUMP
76 S DR="842 OTHER SITE................" D ^DIE G:$D(Y) JUMP
77 W !
78SS S DR="843SYSTEMIC SYMPTOMS..........." D ^DIE G:$D(Y) JUMP
79DTSRTHD W !!,"DIAGNOSTIC TESTS SPECIFICALLY RELATED TO HIV DISEASE:",!
80 S DR="844 CD4 COUNT................." D ^DIE G:$D(Y) JUMP
81 S DR="845 HIV VIRAL LOADS..........." D ^DIE G:$D(Y) JUMP
82DOID W !!,"DATE OF INITIAL DIAGNOSIS...: ",DOID
83PS W !,"PRIMARY SITE................: ",TOPCOD
84H W !,"HISTOLOGY/BEHAVIOR CODE.....: ",ONC(165.5,ONCONUM,22)
85SHI S DR="846SPECIFIC HISTOLOGIC INFO...." D ^DIE G:$D(Y) JUMP
86CTOL S DR="847CELL TYPE OF LYMPHOMA......." D ^DIE G:$D(Y) JUMP
87PSAD S DR="848PATIENT STATUS AT DIAGNOSIS." D ^DIE G:$D(Y) JUMP
88 W ! K DIR S DIR(0)="E" D ^DIR
89 G EXIT
90JUMP ;Jump to prompts
91 S XX="" R !!,"GO TO: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
92 I X["?" D G JUMP
93 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
94 I '$D(TABLE(X)) S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
95 .W !,"CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
96 S X=TABLE(X)
97 G @X
98EXIT K HTABLE,TABLE,CHOICES
99 K DOID,HST,HSTCD,HSTNAM,PRINODE0,PRINODE2,TOPOG,TOPCD,SITE
100 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
101 Q
Note: See TracBrowser for help on using the repository browser.