source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCLPC9B.m@ 1800

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

initial load of WorldVistAEHR
File size: 4.8 KB
Line 
1ONCLPC9B ;Hines OIFO/GWB - 2001 Lung (NSCLC) PCE Study ;05/17/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Print (continued)
4V S TABLE="FIRST COURSE OF TREATMENT - SURGERY"
5 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
6 K LINE S $P(LINE,"-",35)="-"
7 W !?4,TABLE,!?4,LINE
8 D P Q:EX=U
9ITEM15 W !,"15. SCOPE OF OPERATIVE MEDIASTINAL LYMPH NODE ASSESSMENT:"
10 D P Q:EX=U
11 W !," HIGHEST MEDIASTINAL (level 1): ",$$GET1^DIQ(165.5,IE,1419)
12 D P Q:EX=U
13 W !," UPPER PARATRACHEAL (level 2): ",$$GET1^DIQ(165.5,IE,1419.1)
14 D P Q:EX=U
15 W !," PREVASCULAR AND RETROTRACHEAL"
16 D P Q:EX=U
17 W !," (level 3): ",$$GET1^DIQ(165.5,IE,1419.2)
18 D P Q:EX=U
19 W !," LOWER PARATRACHEAL (level 4): ",$$GET1^DIQ(165.5,IE,1419.3)
20 D P Q:EX=U
21 W !," SUBAORTIC (level 5): ",$$GET1^DIQ(165.5,IE,1419.4)
22 D P Q:EX=U
23 W !," PARAORTIC (level 6): ",$$GET1^DIQ(165.5,IE,1419.5)
24 D P Q:EX=U
25 W !," SUBCARINAL (level 7): ",$$GET1^DIQ(165.5,IE,1419.6)
26 D P Q:EX=U
27 W !," PARAESOPHAGEAL (level 8): ",$$GET1^DIQ(165.5,IE,1419.7)
28 D P Q:EX=U
29 W !," PULMONARY LIGAMENT (level 9): ",$$GET1^DIQ(165.5,IE,1419.8)
30 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0 G ITEM16
31 W !
32 D P Q:EX=U
33ITEM16 W !,"16. HCT (HEMATOCRIT) VALUES BEFORE"
34 D P Q:EX=U
35 W !," TRANSFUSION..................: ",$$GET1^DIQ(165.5,IE,1430)
36 D P Q:EX=U
37 W !
38 D P Q:EX=U
39ITEM17 W !,"17. TOTAL PERI-OPERATIVE BLOOD"
40 D P Q:EX=U
41 W !," REPLACEMENT..................: ",$$GET1^DIQ(165.5,IE,1420)
42 D P Q:EX=U
43 W !
44 D P Q:EX=U
45ITEM18 W !,"18. PERI-OPERATIVE DEATH..........: ",$$GET1^DIQ(165.5,IE,1421)
46 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
47 S TABLE="FIRST COURSE OF TREATMENT - RADIATION"
48 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
49 K LINE S $P(LINE,"-",37)="-"
50 W !?4,TABLE,!?4,LINE
51 D P Q:EX=U
52ITEM19 W !,"19. REGIONAL DOSE (cGy)...........: ",$$GET1^DIQ(165.5,IE,442)
53 D P Q:EX=U
54 W !
55 D P Q:EX=U
56ITEM20 W !,"20. NUMBER OF TREATMENTS TO THIS"
57 D P Q:EX=U
58 W !," VOLUME.......................: ",$$GET1^DIQ(165.5,IE,56)
59 D P Q:EX=U
60 W !
61 D P Q:EX=U
62ITEM21 W !,"21. REGIONAL TREATMENT MODALITY...: ",$$GET1^DIQ(165.5,IE,363)
63 D P Q:EX=U
64 W !
65 D P Q:EX=U
66ITEM22 W !,"22. RADIATION/SURGERY SEQUENCE....: ",$$GET1^DIQ(165.5,IE,51.3)
67 D P Q:EX=U
68 W !
69 D P Q:EX=U
70ITEM23 W !,"23. BOOST DOSE (cGy)..............: ",$$GET1^DIQ(165.5,IE,1422)
71 D P Q:EX=U
72 W !
73 D P Q:EX=U
74ITEM24 W !,"24. INTENT OF RADIATION TREATMENT.: ",$$GET1^DIQ(165.5,IE,127)
75 D P Q:EX=U
76 W !
77 D P Q:EX=U
78ITEM25 W !,"25. REASON FOR NO RADIATION.......: ",$$GET1^DIQ(165.5,IE,75)
79 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
80 S TABLE="FIRST COURSE OF TREATMENT - CHEMOTHERAPY"
81 I IOST'?1"C".E W ! I ($Y'<(LIN-4)) D HEAD^ONCLPC0
82 K LINE S $P(LINE,"-",40)="-"
83 W !?4,TABLE,!?4,LINE
84 D P Q:EX=U
85ITEM26 W !,"26. TYPE OF CHEMOTHERAPEUTIC AGENTS ADMINISTERED:"
86 D P Q:EX=U
87 W !," AGENT #1.....................: ",$$GET1^DIQ(165.5,IE,1423)
88 D P Q:EX=U
89 W !," AGENT #2.....................: ",$$GET1^DIQ(165.5,IE,1423.1)
90 D P Q:EX=U
91 W !," AGENT #3.....................: ",$$GET1^DIQ(165.5,IE,1423.2)
92 D P Q:EX=U
93 W !
94 D P Q:EX=U
95ITEM27 W !,"27. CHEMOTHERAPEUTIC TOXICITY.....: ",$$GET1^DIQ(165.5,IE,1424)
96 D P Q:EX=U
97 W !
98 D P Q:EX=U
99ITEM28 W !,"28. CHEMOTHERAPY/SURGERY SEQUENCE.: ",$$GET1^DIQ(165.5,IE,1425)
100 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
101VI S TABLE="TREATMENT COMPLICATIONS"
102 I IOST'?1"C".E W !
103 W !?4,TABLE,!?4,"-----------------------"
104 D P Q:EX=U
105ITEM29 W !,"29. COMPLICATIONS:"
106 D P Q:EX=U
107 I TC="No" D G TC2
108 .W !," COMPLICATION #1..............: 000.00 No complications"
109 W !," COMPLICATION #1..............: ",$P($$GET1^DIQ(165.5,IE,1426)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426)," ",2,99)
110TC2 D P Q:EX=U
111 W !," COMPLICATION #2..............: ",$P($$GET1^DIQ(165.5,IE,1426.1)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.1)," ",2,99)
112 D P Q:EX=U
113 W !," COMPLICATION #3..............: ",$P($$GET1^DIQ(165.5,IE,1426.2)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.2)," ",2,99)
114 D P Q:EX=U
115 W !," COMPLICATION #4..............: ",$P($$GET1^DIQ(165.5,IE,1426.3)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.3)," ",2,99)
116 D P Q:EX=U
117 W !," COMPLICATION #5..............: ",$P($$GET1^DIQ(165.5,IE,1426.4)," ",1),?44,$P($$GET1^DIQ(165.5,IE,1426.4)," ",2,99)
118 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR Q:'Y D HEAD^ONCLPC0
119VII S TABLE="CASE REGISTRATION"
120 I IOST'?1"C".E W !
121 W !?4,TABLE,!?4,"-----------------"
122 D P Q:EX=U
123ITEM30 W !,"29. INITIALS OF CASE ABSTRACTOR...: ",$$GET1^DIQ(165.5,IE,81)
124 D P Q:EX=U
125 W !
126 D P Q:EX=U
127ITEM31 W !,"30. DATE CASE WAS ABSTRACTED......: ",$$GET1^DIQ(165.5,IE,90)
128 D P Q:EX=U
129 I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR
130 Q
131P ;Print
132 I ($Y'<(LIN-1)) D Q:EX=U
133 .I IOST?1"C".E W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
134 .D HEAD^ONCLPC0 Q
135 Q
Note: See TracBrowser for help on using the repository browser.