source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC3A.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: 8.8 KB
Line 
1ONCIPC3A ;Hines OIFO/GWB - Primary Intracranial/CNS Tumors PCE Study ;03/10/00
2 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
3 ;First Course of Treatment (continued)
4S W @IOF
5 W !," SURGERY"
6 W !," -------"
7 W !," NON CANCER-DIRECTED SURGERY"
8DNCDS W !!," 41. DATE OF NON CA-DIR SURGERY...: ",$$GET1^DIQ(165.5,IE,58.3)
9DEPS W !!," 42. DIAGNOSTIC/EVALUATIVE/PALLIATIVE (NON CA-DIRECTED) SURGERY:"
10NCDS00 I $E(NCDS,1,2)="00" D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CDS
11 .S $P(^ONCO(165.5,IE,"CNS2"),U,29)=1
12 .F PIECE=30:1:40 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
13 .W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Yes"
14 .W !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: No"
15 .W !," CSF SHUNT, VENTRICULOPERITONEAL...............: No"
16 .W !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: No"
17 .W !," CSF SHUNT, OTHER..............................: No"
18 .W !," STEREOTACTIC BIOPSY...........................: No"
19 .W !," OPEN BRAIN BIOPSY.............................: No"
20 .W !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: No"
21 .W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: No"
22 .W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: No"
23 .W !," SURGERY, NOS..................................: No"
24 .W !," UNKNOWN IF SURGERY DONE.......................: No"
25NCDS09 I $E(NCDS,1,2)="09" D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CDS
26 .F PIECE=29:1:39 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
27 .S $P(^ONCO(165.5,IE,"CNS2"),U,40)=1
28 .W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE...: Unknown"
29 .W !," VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN: Unknown"
30 .W !," CSF SHUNT, VENTRICULOPERITONEAL...............: Unknown"
31 .W !," CSF SHUNT, THIRD VENTRICULOSTOMY..............: Unknown"
32 .W !," CSF SHUNT, OTHER..............................: Unknown"
33 .W !," STEREOTACTIC BIOPSY...........................: Unknown"
34 .W !," OPEN BRAIN BIOPSY.............................: Unknown"
35 .W !," OPEN BIOPSY OF SPINAL CORD TUMOR..............: Unknown"
36 .W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA........: Unknown"
37 .W !," LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA..........: Unknown"
38 .W !," SURGERY, NOS..................................: Unknown"
39 .W !," UNKNOWN IF SURGERY DONE.......................: Yes"
40 I NCDS'="" D G DEPS1
41 .S $P(^ONCO(165.5,IE,"CNS2"),U,29)=0
42 .W !," NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE..........: No"
43 S DR="1314 NONE, NO NON CA-DIRECTED SURGICAL PROCEDURE.........." D ^DIE G:$D(Y) JUMP
44 I X=1 S NCDS="00" G NCDS00
45 I X=9 S NCDS="09" G NCDS09
46DEPS1 S DR="1315 VENTRICULOSTOMY, OR EXTERNAL VENTRICULAR DRAIN..........." D ^DIE G:$D(Y) JUMP
47 S DR="1316 CSF SHUNT, VENTRICULOPERITONEAL........" D ^DIE G:$D(Y) JUMP
48 S DR="1317 CSF SHUNT, THIRD VENTRICULOSTOMY......." D ^DIE G:$D(Y) JUMP
49 S DR="1318 CSF SHUNT, OTHER......................." D ^DIE G:$D(Y) JUMP
50 S DR="1319 STEREOTACTIC BIOPSY.........." D ^DIE G:$D(Y) JUMP
51 S DR="1320 OPEN BRAIN BIOPSY............" D ^DIE G:$D(Y) JUMP
52 S DR="1321 OPEN BIOPSY OF SPINAL CORD TUMOR......................." D ^DIE G:$D(Y) JUMP
53 S DR="1322 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W/O OPENING DURA..........." D ^DIE G:$D(Y) JUMP
54 S DR="1323 LAMINECTOMY FOR SPINAL CORD TUMOR, W/O TUMOR RESECTION, W OPENING DURA............." D ^DIE G:$D(Y) JUMP
55 S DR="1324 SURGERY, NOS................." D ^DIE G:$D(Y) JUMP
56 S DR="1325 UNKNOWN IF SURGERY DONE......" D ^DIE G:$D(Y) JUMP
57CDS W !!," CANCER-DIRECTED SURGERY",!
58DCDS W !," 43. DATE OF CA-DIRECTED SURGERY...: ",$$GET1^DIQ(165.5,IE,50)
59 I $E(CDS,1,2)="00" D G RFNS
60 .F PIECE=41,42,44 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=0
61 .S $P(^ONCO(165.5,IE,"CNS2"),U,43)=998
62 .F PIECE=45,46,47,48,49,50 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
63 .S $P(^ONCO(165.5,IE,"BLA2"),U,15)=8
64 .W !," 44. SURGICAL APPROACH.............: None, no ca-directed surgery"
65 .W !," 45. EXTENT OF SURGICAL RESECTION..: None, no surgery performed"
66 .W !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: NA, surgical treatment not administered"
67 .W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
68 .W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
69 .W !," ANESTHETIC PROBLEM...........: NA, surgery not performed"
70 .W !," HEMORRHAGE AT OPERATIVE SITE.: NA, surgery not performed"
71 .W !," SEIZURE......................: NA, surgery not performed"
72 .W !," INFECTION(S).................: NA, surgery not performed"
73 .W !," DVT (DEEP VENOUS THROMBOSIS..: NA, surgery not performed"
74 .W !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: NA, surgery not performed"
75 .W !," OTHER........................: NA, surgery not performed"
76 I $E(CDS,1,2)=99 D G RFNS
77 .F PIECE=41,42 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
78 .S $P(^ONCO(165.5,IE,"CNS2"),U,43)=999
79 .S $P(^ONCO(165.5,IE,"CNS2"),U,44)=0
80 .F PIECE=45,46,47,48,49,50 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
81 .S $P(^ONCO(165.5,IE,"BLA2"),U,15)=9
82 .W !," 44. SURGICAL APPROACH.............: Surgical approach unknown"
83 .W !," 45. EXTENT OF SURGICAL RESECTION..: Unknown if surgery performed"
84 .W !," 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY.........: Unknown, tumor not evaluated"
85 .W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
86 .W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
87 .W !," ANESTHETIC PROBLEM...........: Unknown"
88 .W !," HEMORRHAGE AT OPERATIVE SITE.: Unknown"
89 .W !," SEIZURE......................: Unknown"
90 .W !," INFECTION(S).................: Unknown"
91 .W !," DVT (DEEP VENOUS THROMBOSIS..: Unknown"
92 .W !," PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP.........: Unknown"
93 .W !," OTHER........................: Unknown"
94SA S DR="1326 44. SURGICAL APPROACH............." D ^DIE G:$D(Y) JUMP
95ESR S DR="1327 45. EXTENT OF SURGICAL RESECTION.." D ^DIE G:$D(Y) JUMP
96SRPT S DR="1328 46. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY........." D ^DIE G:$D(Y) JUMP
97 I (X<1)!(X>997) D G SCPSE
98 .S $P(^ONCO(165.5,IE,"CNS2"),U,44)=0
99 .W !," 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE): Size not recorded"
100SRPTS S DR="1329 47. SIZE OF RESIDUAL PRIMARY TUMOR AFTER CA-DIR SURGERY (SOURCE)" D ^DIE G:$D(Y) JUMP
101SCPSE W !!," 48. SURGICAL COMPLICATIONS/POST SURGICAL EVENTS:"
102 S DR="1330 ANESTHETIC PROBLEM..........." D ^DIE G:$D(Y) JUMP
103 S DR="1331 HEMORRHAGE AT OPERATIVE SITE." D ^DIE G:$D(Y) JUMP
104 S DR="1332 SEIZURE......................" D ^DIE G:$D(Y) JUMP
105 S DR="1333 INFECTION(S)................." D ^DIE G:$D(Y) JUMP
106 S DR="1334 DVT (DEEP VENOUS THROMBOSIS)." D ^DIE G:$D(Y) JUMP
107 S DR="1335 PERSISTENT NEUROLOGICAL WORSENING OVER 4 DAYS POST-OP........." D ^DIE G:$D(Y) JUMP
108 S DR="360 OTHER........................" D ^DIE G:$D(Y) JUMP
109RFNS W ! S DR="58 49. REASON FOR NO SURGERY........." D ^DIE G:$D(Y) JUMP
110RT G RT^ONCIPC3B
111JUMP ;Jump to prompts
112 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
113 I X["?" D G JUMP
114 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
115 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
116 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !," ",HTABLE(I)
117 S X=TABLE(X)
118 G @X
119EXIT S:$D(DIRUT) OUT="Y"
120 G EXIT^ONCIPC3
Note: See TracBrowser for help on using the repository browser.