source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC2A.m@ 808

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

initial load of WorldVistAEHR
File size: 4.0 KB
Line 
1ONCIPC2A ;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)
4PTDS 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
17TLI 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
34SIDE 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
38NT W !
39 S DR="1305 23. NUMBER OF TUMORS.............." D ^DIE G:$D(Y) JUMP
40DFS S DR="1306 24. DATE OF FIRST SYMPTOMS........" D ^DIE G:$D(Y) JUMP
41DID S IDX=$E(DATEDX,4,5)_"/"_$E(DATEDX,6,7)_"/"_(1700+$E(DATEDX,1,3))
42 W !," 25. DATE OF INITIAL DIAGNOSIS.....: ",IDX
43DPD S DR="1307 26. DATE OF PATHOLOGIC DIAGNOSIS.." D ^DIE G:$D(Y) JUMP
44PS W !," 27. PRIMARY SITE (ICD-O-2)........: ",$$GET1^DIQ(165.5,IE,20.1)
45WHCT S DR="1308 28. WHO HISTOLOGICAL CLASSIFICATION OF TUMOR....................." D ^DIE G:$D(Y) JUMP
46BC W !," 29. BEHAVIOR CODE (ICD-O-2).......: ",$E($$GET1^DIQ(165.5,IE,22,"I"),5)
47GRADE S DR="24 30. GRADE........................." D ^DIE G:$D(Y) JUMP
48DC W !," 31. DIAGNOSTIC CONFIRMAITON.......: ",$$GET1^DIQ(165.5,IE,26)
49MM S DR="1309 32. MOLECULAR MARKERS............." D ^DIE G:$D(Y) JUMP
50TS 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"
54TSS S DR="1310 34. TUMOR SIZE (SOURCE)..........." D ^DIE G:$D(Y) JUMP
55KRPT S DR="1311 35. KARNOFSKY'S RATING PRIOR TO THERAPY......................" D ^DIE G:$D(Y) JUMP
56PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
57 G EXIT
58JUMP ;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
67EXIT G EXIT^ONCIPC2
Note: See TracBrowser for help on using the repository browser.