source: FOIAVistA/trunk/r/ONCOLOGY-ONC/ONCGPC3.m@ 1540

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

initial load of FOIAVistA 6/30/08 version
File size: 6.9 KB
Line 
1ONCGPC3 ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;03/08/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;First Course of Treatment
4 S SUR=$$GET1^DIQ(165.5,ONCONUM,58.2)
5 S RAD=$$GET1^DIQ(165.5,ONCONUM,51.2,"I")
6 S CHE=$$GET1^DIQ(165.5,ONCONUM,53.2,"I")
7 S IMM=$$GET1^DIQ(165.5,ONCONUM,55.2,"I")
8 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
9 W @IOF D HEAD^ONCGPC0
10 W !," FIRST COURSE OF TREATMENT - SURGERY"
11 W !," -----------------------------------"
12 S DR(1,165.5,3)="I (SUR="""")!($E(SUR,1,2)=""00"")!($E(SUR,1,2)=99) D NOSUR^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@38"")"
13 S DR(1,165.5,4)="1556 28. ADHERENCE OF RESECTED PRIMARY SPECIMEN....................."
14 S DR(1,165.5,5)="W !"
15 S DR(1,165.5,6)="1557 29. MARGIN STATUS OF RESECTED PRIMARY SPECIMEN............."
16 S DR(1,165.5,7)="W !"
17 S DR(1,165.5,8)="W !,"" 30. EXTENT OF FREE MARGIN:"""
18 S DR(1,165.5,9)="1558 PROXIMAL MARGIN.............."
19 S DR(1,165.5,10)="1558.1 DISTAL MARGIN................"
20 S DR(1,165.5,11)="W !"
21 S DR(1,165.5,12)="W !,"" 31. RESECTION BEYOND STOMACH:"""
22 S DR(1,165.5,13)="1559 SPLEEN......................."
23 S DR(1,165.5,14)="1559.1 TRANVERSE COLON.............."
24 S DR(1,165.5,15)="1559.2 LIVER........................"
25 S DR(1,165.5,16)="1559.3 DIAPHRAGM...................."
26 S DR(1,165.5,17)="1559.4 PANCREAS....................."
27 S DR(1,165.5,18)="1559.5 ABDOMINAL WALL..............."
28 S DR(1,165.5,19)="1559.6 ADRENAL GLAND................"
29 S DR(1,165.5,20)="1559.7 KIDNEY......................."
30 S DR(1,165.5,21)="1559.8 SMALL INTESTINE.............."
31 S DR(1,165.5,22)="1559.9 RETROPERITONEUM.............."
32 S DR(1,165.5,23)="1560 PERIGASTRIC LYMPH NODES......"
33 S DR(1,165.5,24)="1560.1 COMMON HEPATIC LYMPH NODES..."
34 S DR(1,165.5,25)="1560.2 CELIAC LYMPH NODES..........."
35 S DR(1,165.5,26)="1560.3 SPLENIC LYMPH NODES.........."
36 S DR(1,165.5,27)="1560.4 OTHER INTRA-ABDOMINAL NODES.."
37 S DR(1,165.5,28)="W !"
38 S DR(1,165.5,29)="1561 32. GROSSLY INVOLVED REGIONAL LYMPH NODES.................."
39 S DR(1,165.5,30)="W !"
40 S DR(1,165.5,31)="1562 33. HCT (HEMATOCRIT) VALUES BEFORE TRANSFUSION.................."
41 S DR(1,165.5,32)="W !"
42 S DR(1,165.5,33)="1563 34. TOTAL OPERATIVE BLOOD REPLACEMENT.................."
43 S DR(1,165.5,34)="W !"
44 S DR(1,165.5,35)="1564 35. INTRA/PERI-OPERATIVE DEATH...."
45 S DR(1,165.5,36)="W !"
46 S DR(1,165.5,37)="W !,"" 36. COMPLICATIONS REQUIRING RE-OPERATION:"""
47 S DR(1,165.5,38)="1565 ANASTOMOTIC LEAK............."
48 S DR(1,165.5,39)="1565.1 STUMP LEAK..................."
49 S DR(1,165.5,40)="1565.2 BLEEDING....................."
50 S DR(1,165.5,41)="1565.3 WOUND INFECTION.............."
51 S DR(1,165.5,42)="1565.4 SEPSIS......................."
52 S DR(1,165.5,43)="1565.5 PANCREATITIS................."
53 S DR(1,165.5,44)="1565.6 DEAD BOWEL..................."
54 S DR(1,165.5,45)="1565.7 OTHER........................"
55 S DR(1,165.5,46)="W !"
56 S DR(1,165.5,47)="1566 37. DATE OF SURGICAL DISCHARGE...."
57 S DR(1,165.5,48)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@38"" S:$D(DUOUT) Y=""@99"""
58 S DR(1,165.5,49)="@38"
59 S DR(1,165.5,50)="D HEAD^ONCGPC0"
60 S DR(1,165.5,51)="W !,"" FIRST COURSE OF TREATMENT - RADIATION"""
61 S DR(1,165.5,52)="W !,"" -------------------------------------"""
62 S DR(1,165.5,53)="I (RAD="""")!(RAD=0)!(RAD=9) D NORAD^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@42"")"
63 S DR(1,165.5,54)="442 38. REGIONAL DOSE (cGy)..........."
64 S DR(1,165.5,55)="W !"
65 S DR(1,165.5,56)="1575 39. BOOST DOSE (cGy).............."
66 S DR(1,165.5,57)="W !"
67 S DR(1,165.5,58)="1567 40. INTRA-OPERATIVE RADIATION THERAPY, DOSE (cGy).........."
68 S DR(1,165.5,59)="W !"
69 S DR(1,165.5,60)="1568 41. CONCURRENT CHEMOTHERAPY......."
70 S DR(1,165.5,61)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@42"" S:$D(DUOUT) Y=""@99"""
71 S DR(1,165.5,62)="@42"
72 S DR(1,165.5,63)="D HEAD^ONCGPC0"
73 S DR(1,165.5,64)="W !,"" FIRST COURSE OF TREATMENT - CHEMOTHERAPY"""
74 S DR(1,165.5,65)="W !,"" ----------------------------------------"""
75 S DR(1,165.5,66)="I (CHE="""")!(CHE=0)!(CHE=9) D NOCHE^ONCGPC3 S Y=$S($D(DUOUT):""@99"",1:""@46"")"
76 S DR(1,165.5,67)="W !,"" 42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"""
77 S DR(1,165.5,68)="1576 AGENT #1....................."
78 S DR(1,165.5,69)="1576.1 AGENT #2....................."
79 S DR(1,165.5,70)="1576.2 AGENT #3....................."
80 S DR(1,165.5,71)="W !"
81 S DR(1,165.5,72)="1569 43. INTRAPERITONEAL CHEMOTHERAPY.."
82 S DR(1,165.5,73)="W !"
83 S DR(1,165.5,74)="1577 44. CHEMOTHERAPEUTIC TOXICITY....."
84 S DR(1,165.5,75)="W !"
85 S DR(1,165.5,76)="1578 45. CHEMOTHERAPY/SURGERY SEQUENCE."
86 S DR(1,165.5,77)="W ! K DIR S DIR(0)=""E"" D ^DIR S Y=""@46"" S:$D(DUOUT) Y=""@99"""
87 S DR(1,165.5,78)="@46"
88 S DR(1,165.5,79)="D HEAD^ONCGPC0"
89 S DR(1,165.5,80)="W !,"" FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"""
90 S DR(1,165.5,81)="W !,"" -----------------------------------------"""
91 S DR(1,165.5,82)="I (IMM="""")!(IMM=0)!(IMM=9) D NOIMM^ONCGPC3 S Y=""@99"""
92 S DR(1,165.5,83)="1570 46. ADMINSTRATION OF INTERFERON..."
93 S DR(1,165.5,84)="@99"
94 D ^DIE
95 K DR
96 W ! K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
97EXIT K DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
98 K SUR,RAD,CHE,IMM
99 Q
100NOSUR ;No surgery
101 F PIECE=71:1:74 S $P(^ONCO(165.5,D0,"GAS1"),U,PIECE)=""
102 F PIECE=1:1:28 S $P(^ONCO(165.5,D0,"GAS2"),U,PIECE)=""
103 W !," No surgery of the primary site was performed."
104 W !," Proceed to data item 38."
105 W !
106 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
107 K PIECE
108 Q
109NORAD ;No radiation
110 S $P(^ONCO(165.5,D0,"THY1"),U,43)=0
111 S $P(^ONCO(165.5,D0,"GAS2"),U,42)="00000"
112 S $P(^ONCO(165.5,D0,"GAS2"),U,29)="00000"
113 S $P(^ONCO(165.5,D0,"GAS2"),U,30)=""
114 W !," No radiation therapy was administered."
115 W !," Code data items 38-40 to 00000."
116 W !," Do not answer data item 41, and proceed to data item 42."
117 W !
118 W !," 38. REGIONAL DOSE (cGy)...........: 00000"
119 W !
120 W !," 39. BOOST DOSE (cGy)..............: Not administered"
121 W !
122 W !," 40. INTRA-OPERATIVE RADIATION"
123 W !," THERAPY, DOSE (cGy)..........: Not administered"
124 W !
125 W !," 41. CONCURRENT CHEMOTHERAPY.......:"
126 W !
127 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
128 Q
129NOCHE ;No chemotherapy
130 W !," No chemotherapy was administered."
131 W !," Proceed to data item 46."
132 S $P(^ONCO(165.5,D0,"GAS2"),U,43)=""
133 S $P(^ONCO(165.5,D0,"GAS2"),U,44)=""
134 S $P(^ONCO(165.5,D0,"GAS2"),U,45)=""
135 S $P(^ONCO(165.5,D0,"GAS2"),U,31)=""
136 S $P(^ONCO(165.5,D0,"GAS2"),U,46)=""
137 S $P(^ONCO(165.5,D0,"GAS2"),U,47)=""
138 W !
139 K DIR S DIR(0)="E" D ^DIR S:$D(DUOUT) Y="@99"
140 Q
141NOIMM ;No immunotherapy
142 W !," No immunotherapy administered."
143 W !," Proceed to Treatment Complications."
144 S $P(^ONCO(165.5,D0,"GAS2"),U,32)=""
145 Q
Note: See TracBrowser for help on using the repository browser.