source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCHPC4A.m@ 789

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

initial load of WorldVistAEHR
File size: 4.9 KB
Line 
1ONCHPC4A ;Hines OIFO/GWB - 2000 Hepatocellular Cancers PCE Study ;01/10/00
2 ;;2.11;ONCOLOGY;**26**;Mar 07, 1995
3 ;First Course of Treatment (continued)
4R W @IOF D HEAD^ONCHPC0
5 W !," RADIATION THERAPY"
6 W !," -----------------"
7DRS W !," 44. DATE RADIATION STARTED........: ",$$GET1^DIQ(165.5,IE,51)
8RT W !," 45. RADIATION THERAPY.............: ",$$GET1^DIQ(165.5,IE,51.2)
9 W ! K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
10C W @IOF D HEAD^ONCHPC0
11 W !," CHEMOTHERAPY"
12 W !," ------------"
13DCS W !," 46. DATE CHEMOTHERAPY STARTED.....: ",$$GET1^DIQ(165.5,IE,53)
14CT W !," 47. CHEMOTHERAPY..................: ",$$GET1^DIQ(165.5,IE,53.2)
15TCAA W !!," 48. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
16 I CHE=0 D G RCA
17 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=0
18 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=0
19 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=0
20 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=0
21 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=0
22 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=0
23 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=0
24 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=0
25 .W !," CISPLATIN....................: No"
26 .W !," FUDR.........................: No"
27 .W !," 5-FU.........................: No"
28 .W !," FU & LEUCOVORIN..............: No"
29 .W !," IRINOTECAN (CPT-11)..........: No"
30 .W !," MITOMYCIN C..................: No"
31 .W !," OXALIPLATIN..................: No"
32 .W !," GEMCITABINE..................: No"
33 I CHE=9 D G RCA
34 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,62)=9
35 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,63)=9
36 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,64)=9
37 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,65)=9
38 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,66)=9
39 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,67)=9
40 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,68)=9
41 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,69)=9
42 .W !," CISPLATIN....................: Unknown if recommended or administered"
43 .W !," FUDR.........................: Unknown if recommended or administered"
44 .W !," 5-FU.........................: Unknown if recommended or administered"
45 .W !," FU & LEUCOVORIN..............: Unknown if recommended or administered"
46 .W !," IRINOTECAN (CPT-11)..........: Unknown if recommended or administered"
47 .W !," MITOMYCIN C..................: Unknown if recommended or administered"
48 .W !," OXALIPLATIN..................: Unknown if recommended or administered"
49 .W !," GEMCITABINE..................: Unknown if recommended or administered"
50 S DR="1061 CISPLATIN...................." D ^DIE G:$D(Y) JUMP
51 S DR="1062 FUDR........................." D ^DIE G:$D(Y) JUMP
52 S DR="1063 5-FU........................." D ^DIE G:$D(Y) JUMP
53 S DR="1064 FU & LEUCOVORIN.............." D ^DIE G:$D(Y) JUMP
54 S DR="1065 IRINOTECAN (CPT-11).........." D ^DIE G:$D(Y) JUMP
55 S DR="1066 MITOMYCIN C.................." D ^DIE G:$D(Y) JUMP
56 S DR="1067 OXALIPLATIN.................." D ^DIE G:$D(Y) JUMP
57 S DR="1068 GEMCITABINE.................." D ^DIE G:$D(Y) JUMP
58RCA W !
59 I (CHE=0)!(CHE=9) D G CSS
60 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,70)=88
61 .W !," 49. ROUTE CHEMOTHERAPY ADMIN......: NA"
62 S DR="1069 49. ROUTE CHEMOTHERAPY ADMIN" D ^DIE G:$D(Y) JUMP
63CSS I (CDS="00")!(CDS=99)!(CHE=0)!(CHE=9) D G DIR
64 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=0
65 .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: No chemotherapy and/or no surgery"
66 S CDSDT=$$GET1^DIQ(165.5,IE,50,"I")
67 S CHEDT=$$GET1^DIQ(165.5,IE,53,"I")
68 I (CDSDT="")!(CHEDT="") G CSS1
69 I CHEDT<CDSDT D G DIR
70 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=1
71 .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy before surgery"
72 I CHEDT>CDSDT D G DIR
73 .S $P(^ONCO(165.5,ONCONUM,"HEP1"),U,71)=2
74 .W !," 50. CHEMOTHERAPY/SURGERY SEQUENCE.: Chemotherapy after surgery"
75CSS1 S DR="1070 50. CHEMOTHERAPY/SURGERY SEQUENCE." D ^DIE G:$D(Y) JUMP
76DIR K DIR S DIR(0)="E" D ^DIR G:$D(DIRUT) EXIT
77O W @IOF D HEAD^ONCHPC0
78 W !," OTHER THERAPY"
79 W !," -------------"
80DOTS W !," 51. DATE OTHER TREATMENT STARTED..: ",$$GET1^DIQ(165.5,IE,57)
81OT W !," 52. OTHER TREATMENT...............: ",$$GET1^DIQ(165.5,IE,57.2)
82AE S DR="1071 53. ARTERIAL EMBOLIZATION........." D ^DIE G:$D(Y) JUMP
83DWTD S DR="1072 54. DEATH WITHIN 30 DAYS OF START OF INITIAL COURSE OF THERAPY." D ^DIE G:$D(Y) JUMP
84PRTC W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
85 G EXIT
86JUMP ;Jump to prompts
87 S XX="" R !!," GO TO ITEM: ",X:DTIME I (X="")!(X[U) S OUT="Y" G EXIT
88 I X["?" D G:$D(DIRUT) EXIT G JUMP
89 .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:"
90 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
91 .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:"
92 S X=TABLE(X)
93 G @X
94EXIT S:$D(DIRUT) OUT="Y"
95 K CHOICES,PIECE,HTABLE,TABLE
96 K CDS,CHE,LOS,NCDS,NOP,RAD,SA,SA1,SA2,SM,SM1,SM2
97 K DA,DIE,DIR,DIROUT,DIRUT,DR,DTOUT,DUOUT,X,XX,Y
98 Q
Note: See TracBrowser for help on using the repository browser.