source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCIPC3C.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: 8.0 KB
Line 
1ONCIPC3C ;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)
4C W @IOF
5 W !," CHEMOTHERAPY"
6 W !," ------------"
7DCS W !," 61. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
8CT W !," 62. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
9 I (CHE=0)!(CHE=9) W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF
10TCAA W !!," 63. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
11 I CHE=0 D G CR
12 .F PIECE=61:1:72 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
13 .F PIECE=26,27,31,35,38 S $P(^ONCO(165.5,IE,"BLA2"),U,PIECE)=8
14 .W !," PROCARBAZINE.................: NA, chemotherapy not administered"
15 .W !," CCNU.........................: NA, chemotherapy not administered"
16 .W !," VINCRISTINE..................: NA, chemotherapy not administered"
17 .W !," HYDROXYUREA..................: NA, chemotherapy not administered"
18 .W !," METHOTREXATE.................: NA, chemotherapy not administered"
19 .W !," CISPLATIN....................: NA, chemotherapy not administered"
20 .W !," BCNU.........................: NA, chemotherapy not administered"
21 .W !," BCNU WAFER IMPLANT...........: NA, chemotherapy not administered"
22 .W !," VP-16........................: NA, chemotherapy not administered"
23 .W !," CARBOPLATIN..................: NA, chemotherapy not administered"
24 .W !," TEMOZOLOMIDE.................: NA, chemotherapy not administered"
25 .W !," CYCLOPHOSPHAMIDE.............: NA, chemotherapy not administered"
26 .W !," CPT-11.......................: NA, chemotherapy not administered"
27 .W !," TAMOXIFEN....................: NA, chemotherapy not administered"
28 .W !," INTERFERON...................: NA, chemotherapy not administered"
29 .W !," CYTARABINE (ARA-C)...........: NA, chemotherapy not administered"
30 .W !," OTHER........................: NA, chemotherapy not administered"
31 I CHE=9 D G CR
32 .F PIECE=61:1:72 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
33 .F PIECE=26,27,31,35,38 S $P(^ONCO(165.5,IE,"BLA2"),U,PIECE)=9
34 .W !," PROCARBAZINE.................: Unknown"
35 .W !," CCNU.........................: Unknown"
36 .W !," VINCRISTINE..................: Unknown"
37 .W !," HYDROXYUREA..................: Unknown"
38 .W !," METHOTREXATE.................: Unknown"
39 .W !," CISPLATIN....................: Unknown"
40 .W !," BCNU.........................: Unknown"
41 .W !," BCNU WAFER IMPLANT...........: Unknown"
42 .W !," VP-16........................: Unknown"
43 .W !," CARBOPLATIN..................: Unknown"
44 .W !," TEMOZOLOMIDE.................: Unknown"
45 .W !," CYCLOPHOSPHAMIDE.............: Unknown"
46 .W !," CPT-11.......................: Unknown"
47 .W !," TAMOXIFEN....................: Unknown"
48 .W !," INTERFERON...................: Unknown"
49 .W !," CYTARABINE (ARA-C)...........: Unknown"
50 .W !," OTHER........................: Unknown"
51 S DR="1346 PROCARBAZINE................." D ^DIE G:$D(Y) JUMP
52 S DR="1347 CCNU........................." D ^DIE G:$D(Y) JUMP
53 S DR="1348 VINCRISTINE.................." D ^DIE G:$D(Y) JUMP
54 S DR="1349 HYDROXYUREA.................." D ^DIE G:$D(Y) JUMP
55 S DR="376 METHOTREXATE................." D ^DIE G:$D(Y) JUMP
56 S DR="371 CISPLATIN...................." D ^DIE G:$D(Y) JUMP
57 S DR="1350 BCNU........................." D ^DIE G:$D(Y) JUMP
58 S DR="1351 BCNU WAFER IMPLANT..........." D ^DIE G:$D(Y) JUMP
59 S DR="1352 VP-16........................" D ^DIE G:$D(Y) JUMP
60 S DR="1353 CARBOPLATIN.................." D ^DIE G:$D(Y) JUMP
61 S DR="1354 TEMOZOLOMIDE................." D ^DIE G:$D(Y) JUMP
62 S DR="372 CYCLOPHOSPHAMIDE............." D ^DIE G:$D(Y) JUMP
63 S DR="1355 CPT-11......................." D ^DIE G:$D(Y) JUMP
64 S DR="1356 TAMOXIFEN...................." D ^DIE G:$D(Y) JUMP
65 S DR="384 INTERFERON..................." D ^DIE G:$D(Y) JUMP
66 S DR="1357 CYTARABINE (ARA-C)..........." D ^DIE G:$D(Y) JUMP
67 S DR="380 OTHER........................" D ^DIE G:$D(Y) JUMP
68CR W !
69 I CHE=0 D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CC
70 .S $P(^ONCO(165.5,IE,"CNS2"),U,73)=8
71 .W !," 64. CHEMOTHERAPEUTIC ROUTE........: NA, chemotherapy not administered"
72 I CHE=9 D W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT W @IOF G CC
73 .S $P(^ONCO(165.5,IE,"CNS2"),U,73)=9
74 .W !," 64. CHEMOTHERAPEUTIC ROUTE........: Unknown"
75 S DR="1358 64. CHEMOTHERAPEUTIC ROUTE........" D ^DIE G:$D(Y) JUMP
76CC W !!," 65. CHEMOTHERAPY COMPLICATIONS:"
77 I CHE=0 D G RFNC
78 .F PIECE=74:1:82 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=8
79 .W !," HEARING LOSS.................: NA, chemotherapy not administered"
80 .W !," INFECTION....................: NA, chemotherapy not administered"
81 .W !," NAUSEA AND VOMITING REQUIRING CESSATION OF CHEMOTHERAPY....: NA, chemotherapy not administered"
82 .W !," PERIPHERAL BLOOD COUNT DROP/ BLEEDING/CESSATION OF CHEMO- THERAPY AND/OR TRANSFUSION.: NA, chemotherapy not administered"
83 .W !," PERIPHERAL NEUROPATHY........: NA, chemotherapy not administered"
84 .W !," RENAL FAILURE................: NA, chemotherapy not administered"
85 .W !," PULMONARY TOXICITY...........: NA, chemotherapy not administered"
86 .W !," OTHER........................: NA, chemotherapy not administered"
87 I CHE=9 D G RFNC
88 .F PIECE=74:1:82 S $P(^ONCO(165.5,IE,"CNS2"),U,PIECE)=9
89 .W !," HEARING LOSS.................: Unknown"
90 .W !," INFECTION....................: Unknown"
91 .W !," NAUSEA AND VOMITING REQUIRING CESSATION OF CHEMOTHERAPY....: Unknown"
92 .W !," PERIPHERAL BLOOD COUNT DROP/ BLEEDING/CESSATION OF CHEMO- THERAPY AND/OR TRANSFUSION.: Unknown"
93 .W !," PERIPHERAL NEUROPATHY........: Unknown"
94 .W !," RENAL FAILURE................: Unknown"
95 .W !," PULMONARY TOXICITY...........: Unknown"
96 .W !," OTHER........................: Unknown"
97 S DR="1359 HEARING LOSS................." D ^DIE G:$D(Y) JUMP
98 S DR="1360 INFECTION...................." D ^DIE G:$D(Y) JUMP
99 S DR="1361 NAUSEA AND VOMITING REQUIRING CESSATION OF CHEMOTHERAPY..." D ^DIE G:$D(Y) JUMP
100 S DR="1362 PERIPHERAL BLOOD COUNT DROP/ BLEEDING/CESSATION OF CHEMO- THERAPY AND/OR TRANSFUSION." D ^DIE G:$D(Y) JUMP
101 S DR="1363 PERIPHERAL NEUROPATHY........" D ^DIE G:$D(Y) JUMP
102 S DR="1364 RENAL FAILURE................" D ^DIE G:$D(Y) JUMP
103 S DR="1365 PULMONARY TOXICITY..........." D ^DIE G:$D(Y) JUMP
104 S DR="1366 OTHER........................" D ^DIE G:$D(Y) JUMP
105RFNC W !
106 S DR="76 66. REASON FOR NO CHEMOTHERAPY...." D ^DIE G:$D(Y) JUMP
107O W @IOF
108 W !," OTHER THERAPY"
109 W !," -------------"
110DOTS W !," 67. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
111OT W !," 68. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
112KRTDT S DR="1367 69. KARNOFSKY'S RATING AT TIME OF DISCHARGE/TRANSFER..........." D ^DIE G:$D(Y) JUMP
113PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
114 G EXIT
115JUMP ;Jump to prompts
116 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
117 I X["?" D G:$D(DIRUT) EXIT G JUMP
118 .W @IOF,!," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
119 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
120 .W !," CHOOSE FROM:" F I=1:1:CHOICES W !,?5,HTABLE(I) I I=18 W ! K DIR S DIR(0)="E" D ^DIR Q:$D(DIRUT) W @IOF,!," CHOOSE FROM:"
121 S X=TABLE(X)
122 G @X
123EXIT S:$D(DIRUT) OUT="Y"
124 G EXIT^ONCIPC3
Note: See TracBrowser for help on using the repository browser.