| [613] | 1 | ONCIPC2A ;HINES OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;01/18/00
|
|---|
| 2 | ;;2.11;ONCOLOGY;**26,27**;Mar 07, 1995
|
|---|
| 3 | ;Tumor Identification (continued)
|
|---|
| 4 | PTDS W !," 20. PRE-THERAPY DIAGNOSTIC STUDIES:"
|
|---|
| 5 | S DR="1274 ANGIOGRAPHY.................." D ^DIE G:$D(Y) JUMP
|
|---|
| 6 | S DR="1275 CT SCAN OF BRAIN............." D ^DIE G:$D(Y) JUMP
|
|---|
| 7 | S DR="1276 CT SCAN OF SPINE............." D ^DIE G:$D(Y) JUMP
|
|---|
| 8 | S DR="1277 EEG.........................." D ^DIE G:$D(Y) JUMP
|
|---|
| 9 | S DR="1278 ISOTOPE BRAIN SCAN..........." D ^DIE G:$D(Y) JUMP
|
|---|
| 10 | S DR="1279 PET SCAN....................." D ^DIE G:$D(Y) JUMP
|
|---|
| 11 | S DR="1280 SPECT SCAN..................." D ^DIE G:$D(Y) JUMP
|
|---|
| 12 | S DR="1281 MRI OF BRAIN................." D ^DIE G:$D(Y) JUMP
|
|---|
| 13 | S DR="1282 MRI OF SPINE................." D ^DIE G:$D(Y) JUMP
|
|---|
| 14 | S DR="1283 FUNCTIONAL MRI..............." D ^DIE G:$D(Y) JUMP
|
|---|
| 15 | S DR="1284 MYELOGRAPHY.................." D ^DIE G:$D(Y) JUMP
|
|---|
| 16 | S DR="1285 MRS.........................." D ^DIE G:$D(Y) JUMP
|
|---|
| 17 | TLI W !!," 21. TUMOR LOCATION/INVOLVEMENT:"
|
|---|
| 18 | S DR="1286 FRONTAL LOBE................." D ^DIE G:$D(Y) JUMP
|
|---|
| 19 | S DR="1287 TEMPORAL LOBE................" D ^DIE G:$D(Y) JUMP
|
|---|
| 20 | S DR="1288 PARIETAL LOBE................" D ^DIE G:$D(Y) JUMP
|
|---|
| 21 | S DR="1289 OCCIPITAL LOBE..............." D ^DIE G:$D(Y) JUMP
|
|---|
| 22 | S DR="1290 OPTIC NERVES................." D ^DIE G:$D(Y) JUMP
|
|---|
| 23 | S DR="1291 PITUITARY GLAND.............." D ^DIE G:$D(Y) JUMP
|
|---|
| 24 | S DR="1292 PINEAL GLAND................." D ^DIE G:$D(Y) JUMP
|
|---|
| 25 | S DR="1293 CEREBELLUM..................." D ^DIE G:$D(Y) JUMP
|
|---|
| 26 | S DR="1294 BRAIN STEM..................." D ^DIE G:$D(Y) JUMP
|
|---|
| 27 | S DR="1295 SKULL BASE..................." D ^DIE G:$D(Y) JUMP
|
|---|
| 28 | S DR="1296 OTHER SKULL.................." D ^DIE G:$D(Y) JUMP
|
|---|
| 29 | S DR="1297 SPINAL CORD.................." D ^DIE G:$D(Y) JUMP
|
|---|
| 30 | S DR="1298 CEREBRAL SPINAL FLUID (CSF).." D ^DIE G:$D(Y) JUMP
|
|---|
| 31 | S DR="1299 CRANIAL MENINGES............." D ^DIE G:$D(Y) JUMP
|
|---|
| 32 | S DR="1300 SPINAL MENINGES.............." D ^DIE G:$D(Y) JUMP
|
|---|
| 33 | S DR="1301 OTHER........................" D ^DIE G:$D(Y) JUMP
|
|---|
| 34 | SIDE W !!," 22. SIDE:"
|
|---|
| 35 | S DR="1302 LEFT........................." D ^DIE G:$D(Y) JUMP
|
|---|
| 36 | S DR="1303 RIGHT........................" D ^DIE G:$D(Y) JUMP
|
|---|
| 37 | S DR="1304 MIDLINE......................" D ^DIE G:$D(Y) JUMP
|
|---|
| 38 | NT W !
|
|---|
| 39 | S DR="1305 23. NUMBER OF TUMORS.............." D ^DIE G:$D(Y) JUMP
|
|---|
| 40 | DFS S DR="1306 24. DATE OF FIRST SYMPTOMS........" D ^DIE G:$D(Y) JUMP
|
|---|
| 41 | DID S IDX=$E(DATEDX,4,5)_"/"_$E(DATEDX,6,7)_"/"_(1700+$E(DATEDX,1,3))
|
|---|
| 42 | W !," 25. DATE OF INITIAL DIAGNOSIS.....: ",IDX
|
|---|
| 43 | DPD S DR="1307 26. DATE OF PATHOLOGIC DIAGNOSIS.." D ^DIE G:$D(Y) JUMP
|
|---|
| 44 | PS W !," 27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
|
|---|
| 45 | WHCT S DR="1308 28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR....................." D ^DIE G:$D(Y) JUMP
|
|---|
| 46 | BC W !," 29. BEHAVIOR CODE (ICD-O-2).......: ",$E($$GET1^DIQ(165.5,IE,22,"I"),5)
|
|---|
| 47 | GRADE S DR="24 30. GRADE........................." D ^DIE G:$D(Y) JUMP
|
|---|
| 48 | DC W !," 31. DIAGNOSTIC CONFIRMAITON.......: ",$$GET1^DIQ(165.5,IE,26)
|
|---|
| 49 | MM S DR="1309 32. MOLECULAR MARKERS............." D ^DIE G:$D(Y) JUMP
|
|---|
| 50 | TS S DR="1394 33. TUMOR SIZE...................." D ^DIE G:$D(Y) JUMP
|
|---|
| 51 | I X=999 D G KRPT
|
|---|
| 52 | .S $P(^ONCO(165.5,ONCONUM,"CNS2"),U,25)=0
|
|---|
| 53 | .W !," 34. TUMOR SIZE (SOURCE)...........: Size not recorded"
|
|---|
| 54 | TSS S DR="1310 34. TUMOR SIZE (SOURCE)..........." D ^DIE G:$D(Y) JUMP
|
|---|
| 55 | KRPT S DR="1311 35. KARNOFSKY'S RATING PRIOR TO THERAPY......................" D ^DIE G:$D(Y) JUMP
|
|---|
| 56 | PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
|
|---|
| 57 | G EXIT
|
|---|
| 58 | JUMP ;Jump to prompts
|
|---|
| 59 | S XX="" R !!," GO TO ITEM NUMBER: ",X:DTIME
|
|---|
| 60 | I (X="")!(X[U) S OUT="Y" G EXIT
|
|---|
| 61 | I X["?" D G JUMP
|
|---|
| 62 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
|---|
| 63 | I '$D(TABLE(X)) S:X?1.2N X=X_"." S XX=X,X=$O(TABLE(X)) I ($P(X,XX,1)'="")!(X="") W *7,"??" D G JUMP
|
|---|
| 64 | .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I)
|
|---|
| 65 | S X=TABLE(X)
|
|---|
| 66 | G @X
|
|---|
| 67 | EXIT G EXIT^ONCIPC2
|
|---|
