| 1 | ONCGPC7B ;Hines OIFO/GWB - 2001 Gastric Cancers PCE Study ;05/02/01
|
---|
| 2 | ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
|
---|
| 3 | ;Print (continued)
|
---|
| 4 | III S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
|
---|
| 5 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
|
---|
| 6 | K LINE S $P(LINE,"-",35)="-"
|
---|
| 7 | W !?4,TABLE,!?4,LINE
|
---|
| 8 | D P Q:EX=U
|
---|
| 9 | ITEM28 W !,"28. ADHERENCE OF RESECTED PRIMARY"
|
---|
| 10 | D P Q:EX=U
|
---|
| 11 | W !," SPECIMEN.....................: ",$$GET1^DIQ(165.5,IE,1556)
|
---|
| 12 | D P Q:EX=U
|
---|
| 13 | W !
|
---|
| 14 | D P Q:EX=U
|
---|
| 15 | ITEM29 W !,"29. MARGIN STATUS OF RESECTED"
|
---|
| 16 | W !," PRIMARY SPECIMAN.............: ",$$GET1^DIQ(165.5,IE,1557)
|
---|
| 17 | D P Q:EX=U
|
---|
| 18 | W !
|
---|
| 19 | D P Q:EX=U
|
---|
| 20 | ITEM30 W !,"30. EXTENT OF FREE MARGIN:"
|
---|
| 21 | D P Q:EX=U
|
---|
| 22 | W !," PROXIMAL MARGIN..............: ",$$GET1^DIQ(165.5,IE,1558)
|
---|
| 23 | D P Q:EX=U
|
---|
| 24 | W !," DISTAL MARGIN................: ",$$GET1^DIQ(165.5,IE,1558.1)
|
---|
| 25 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM31
|
---|
| 26 | W !
|
---|
| 27 | D P Q:EX=U
|
---|
| 28 | ITEM31 W !,"31. RESECTION BEYOND STOMACH:"
|
---|
| 29 | D P Q:EX=U
|
---|
| 30 | W !," SPLEEN.......................: ",$$GET1^DIQ(165.5,IE,1559)
|
---|
| 31 | D P Q:EX=U
|
---|
| 32 | W !," TRANVERSE COLON..............: ",$$GET1^DIQ(165.5,IE,1559.1)
|
---|
| 33 | D P Q:EX=U
|
---|
| 34 | W !," LIVER........................: ",$$GET1^DIQ(165.5,IE,1559.2)
|
---|
| 35 | D P Q:EX=U
|
---|
| 36 | W !," DIAPHRAGM....................: ",$$GET1^DIQ(165.5,IE,1559.3)
|
---|
| 37 | D P Q:EX=U
|
---|
| 38 | W !," PANCREAS.....................: ",$$GET1^DIQ(165.5,IE,1559.4)
|
---|
| 39 | D P Q:EX=U
|
---|
| 40 | W !," ABDOMINAL WALL...............: ",$$GET1^DIQ(165.5,IE,1559.5)
|
---|
| 41 | D P Q:EX=U
|
---|
| 42 | W !," ADRENAL GLAND................: ",$$GET1^DIQ(165.5,IE,1559.6)
|
---|
| 43 | D P Q:EX=U
|
---|
| 44 | W !," KIDNEY.......................: ",$$GET1^DIQ(165.5,IE,1559.7)
|
---|
| 45 | D P Q:EX=U
|
---|
| 46 | W !," SMALL INTESTINE..............: ",$$GET1^DIQ(165.5,IE,1559.8)
|
---|
| 47 | D P Q:EX=U
|
---|
| 48 | W !," RETROPERITONEUM..............: ",$$GET1^DIQ(165.5,IE,1559.9)
|
---|
| 49 | D P Q:EX=U
|
---|
| 50 | W !," PERIGASTRIC LYMPH NODES......: ",$$GET1^DIQ(165.5,IE,1560)
|
---|
| 51 | D P Q:EX=U
|
---|
| 52 | W !," COMMON HEPATIC LYMPH NODES...: ",$$GET1^DIQ(165.5,IE,1560.1)
|
---|
| 53 | D P Q:EX=U
|
---|
| 54 | W !," CELIAC LYMPH NODES...........: ",$$GET1^DIQ(165.5,IE,1560.2)
|
---|
| 55 | D P Q:EX=U
|
---|
| 56 | W !," SPLENIC LYMPH NODES..........: ",$$GET1^DIQ(165.5,IE,1560.3)
|
---|
| 57 | D P Q:EX=U
|
---|
| 58 | W !," OTHER INTRA-ABDOMINAL NODES..: ",$$GET1^DIQ(165.5,IE,1560.4)
|
---|
| 59 | D P Q:EX=U
|
---|
| 60 | W !
|
---|
| 61 | D P Q:EX=U
|
---|
| 62 | ITEM32 W !,"32. GROSSLY INVOLVED REGIONAL"
|
---|
| 63 | D P Q:EX=U
|
---|
| 64 | W !," LYMPH NODES..................: ",$$GET1^DIQ(165.5,IE,1561)
|
---|
| 65 | D P Q:EX=U
|
---|
| 66 | W !
|
---|
| 67 | D P Q:EX=U
|
---|
| 68 | ITEM33 W !,"33. HCT (HEMATOCRIT) VALUES BEFORE"
|
---|
| 69 | D P Q:EX=U
|
---|
| 70 | W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1562)
|
---|
| 71 | D P Q:EX=U
|
---|
| 72 | W !
|
---|
| 73 | D P Q:EX=U
|
---|
| 74 | ITEM34 W !,"34. TOTAL OPERATIVE BLOOD"
|
---|
| 75 | D P Q:EX=U
|
---|
| 76 | W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1563)
|
---|
| 77 | D P Q:EX=U
|
---|
| 78 | W !
|
---|
| 79 | D P Q:EX=U
|
---|
| 80 | ITEM35 W !,"35. INTRA/PERI-OPERATIVE DEATH....: ",$$GET1^DIQ(165.5,IE,1564)
|
---|
| 81 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0 G ITEM36
|
---|
| 82 | W !
|
---|
| 83 | D P Q:EX=U
|
---|
| 84 | ITEM36 W !,"36. COMPLICATIONS REQUIRING RE-OPERATION:"
|
---|
| 85 | D P Q:EX=U
|
---|
| 86 | W !," ANASTOMOTIC LEAK.............: ",$$GET1^DIQ(165.5,IE,1565)
|
---|
| 87 | D P Q:EX=U
|
---|
| 88 | W !," STUMP LEAK...................: ",$$GET1^DIQ(165.5,IE,1565.1)
|
---|
| 89 | D P Q:EX=U
|
---|
| 90 | W !," BLEEDING.....................: ",$$GET1^DIQ(165.5,IE,1565.2)
|
---|
| 91 | D P Q:EX=U
|
---|
| 92 | W !," WOUND INFECTION..............: ",$$GET1^DIQ(165.5,IE,1565.3)
|
---|
| 93 | D P Q:EX=U
|
---|
| 94 | W !," SEPSIS.......................: ",$$GET1^DIQ(165.5,IE,1565.4)
|
---|
| 95 | D P Q:EX=U
|
---|
| 96 | W !," PANCREATITIS.................: ",$$GET1^DIQ(165.5,IE,1565.5)
|
---|
| 97 | D P Q:EX=U
|
---|
| 98 | W !," DEAD BOWEL...................: ",$$GET1^DIQ(165.5,IE,1565.6)
|
---|
| 99 | D P Q:EX=U
|
---|
| 100 | W !," OTHER........................: ",$$GET1^DIQ(165.5,IE,1565.7)
|
---|
| 101 | D P Q:EX=U
|
---|
| 102 | W !
|
---|
| 103 | D P Q:EX=U
|
---|
| 104 | ITEM37 W !,"37. DATE OF SURGICAL DISCHARGE....: ",$$GET1^DIQ(165.5,IE,1566)
|
---|
| 105 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
|
---|
| 106 | S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
|
---|
| 107 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
|
---|
| 108 | K LINE S $P(LINE,"-",37)="-"
|
---|
| 109 | W !?4,TABLE,!?4,LINE
|
---|
| 110 | D P Q:EX=U
|
---|
| 111 | ITEM38 W !,"38. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
|
---|
| 112 | D P Q:EX=U
|
---|
| 113 | W !
|
---|
| 114 | D P Q:EX=U
|
---|
| 115 | ITEM39 W !,"39. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1575)
|
---|
| 116 | D P Q:EX=U
|
---|
| 117 | W !
|
---|
| 118 | D P Q:EX=U
|
---|
| 119 | ITEM40 W !,"40. INTRA-OPERATIVE RADIATION"
|
---|
| 120 | D P Q:EX=U
|
---|
| 121 | W !," THERAPY, DOSE (cGy)..........: ",$$GET1^DIQ(165.5,IE,1567)
|
---|
| 122 | D P Q:EX=U
|
---|
| 123 | W !
|
---|
| 124 | D P Q:EX=U
|
---|
| 125 | ITEM41 W !,"41. CONCURRENT CHEMOTHERAPY.......: ",$$GET1^DIQ(165.5,IE,1568)
|
---|
| 126 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
|
---|
| 127 | S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
|
---|
| 128 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
|
---|
| 129 | K LINE S $P(LINE,"-",40)="-"
|
---|
| 130 | W !?4,TABLE,!?4,LINE
|
---|
| 131 | D P Q:EX=U
|
---|
| 132 | ITEM42 W !,"42. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
|
---|
| 133 | D P Q:EX=U
|
---|
| 134 | W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1576)
|
---|
| 135 | D P Q:EX=U
|
---|
| 136 | W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1576.1)
|
---|
| 137 | D P Q:EX=U
|
---|
| 138 | W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1576.2)
|
---|
| 139 | D P Q:EX=U
|
---|
| 140 | W !
|
---|
| 141 | D P Q:EX=U
|
---|
| 142 | ITEM43 W !,"43. INTRAPERITONEAL CHEMOTHERAPY..: ",$$GET1^DIQ(165.5,IE,1569)
|
---|
| 143 | D P Q:EX=U
|
---|
| 144 | W !
|
---|
| 145 | D P Q:EX=U
|
---|
| 146 | ITEM44 W !,"44. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1577)
|
---|
| 147 | D P Q:EX=U
|
---|
| 148 | W !
|
---|
| 149 | D P Q:EX=U
|
---|
| 150 | ITEM45 W !,"45. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1578)
|
---|
| 151 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
|
---|
| 152 | S TABLE="FIRST COURSE OF TREATMENT - IMMUNOTHERAPY"
|
---|
| 153 | I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCGPC0
|
---|
| 154 | K LINE S $P(LINE,"-",41)="-"
|
---|
| 155 | W !?4,TABLE,!?4,LINE
|
---|
| 156 | D P Q:EX=U
|
---|
| 157 | ITEM46 W !,"46. ADMINISTRATION OF INTERFERON..: ",$$GET1^DIQ(165.5,IE,1570)
|
---|
| 158 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
|
---|
| 159 | IV S TABLE="TREATMENT COMPLICATIONS"
|
---|
| 160 | I IOST'?1"C".E W !
|
---|
| 161 | W !?4,TABLE,!?4,"-----------------------"
|
---|
| 162 | ITEM47 W !,"47. COMPLICATIONS:"
|
---|
| 163 | D P Q:EX=U
|
---|
| 164 | I TC="No" D G TC2
|
---|
| 165 | .W !," CO-MORBID CONDITION #1.......: 000.00 No co-morbidities"
|
---|
| 166 | W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1579)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579)," ",2,99)
|
---|
| 167 | TC2 D P Q:EX=U
|
---|
| 168 | W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1579.1)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.1)," ",2,99)
|
---|
| 169 | D P Q:EX=U
|
---|
| 170 | W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1579.2)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.2)," ",2,99)
|
---|
| 171 | D P Q:EX=U
|
---|
| 172 | W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1579.3)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.3)," ",2,99)
|
---|
| 173 | D P Q:EX=U
|
---|
| 174 | W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1579.4)," ",1),?43,$P($$GET1^DIQ(165.5,IE,1579.4)," ",2,99)
|
---|
| 175 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCGPC0
|
---|
| 176 | V S TABLE="CASE REGISTRATION"
|
---|
| 177 | I IOST'?1"C".E W !
|
---|
| 178 | W !?4,TABLE,!?4,"-----------------"
|
---|
| 179 | D P Q:EX=U
|
---|
| 180 | ITEM48 W !,"48. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
|
---|
| 181 | D P Q:EX=U
|
---|
| 182 | W !
|
---|
| 183 | D P Q:EX=U
|
---|
| 184 | ITEM49 W !,"49. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
|
---|
| 185 | D P Q:EX=U
|
---|
| 186 | I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
|
---|
| 187 | Q
|
---|
| 188 | P ;Print
|
---|
| 189 | I ($Y'<(LIN-1)) D Q:EX=U
|
---|
| 190 | .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
|
---|
| 191 | .D HEAD^ONCGPC0 Q
|
---|
| 192 | Q
|
---|