source: FOIAVistA/tag/r/ONCOLOGY-ONC/ONCLPC3.m@ 826

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

initial load of FOIAVistA 6/30/08 version
File size: 7.3 KB
Line 
1ONCLPC3 ;Hines OIFO/GWB - 2001 Lung (NSCLC) Cancers PCE Study ;05/04/01
2 ;;2.11;ONCOLOGY;**29**;Mar 07, 1995
3 ;Tumor Evaluation
4 K DR S DIE="^ONCO(165.5,",DA=ONCONUM,DR=""
5 W @IOF D HEAD^ONCLPC0
6 W !," TUMOR EVALUATION"
7 W !," ----------------"
8 S DR(1,165.5,1)="W !,"" 7. PULMONARY FUNCTION TESTS:"""
9 S DR(1,165.5,2)="1407 FVC (forced vital capacity).."
10 S DR(1,165.5,3)="1407.1 FEV (forced expiratory vol).."
11 S DR(1,165.5,4)="W !"
12 S DR(1,165.5,5)="1408 8. LIVER FUNCTION TESTS.........."
13 S DR(1,165.5,6)="W !"
14 S DR(1,165.5,7)="W !,"" 9. RADIOLOGIC EVALUATION:"""
15 S DR(1,165.5,8)="W !"
16 ;S DR(1,165.5,8.1)="W !,"" BONE SCAN:"""
17 S DR(1,165.5,9)="1409 BONE SCAN...................."
18 S DR(1,165.5,10)="I ($G(X)=2)!($G(X)=9) S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""
19 ;S DR(1,165.5,11)="I $G(X)=9 S PIECE=27 D ITEM9^ONCLPC3 S Y=""@1410"""
20 S DR(1,165.5,12)="1409.1 EMPHYSEMA..................."
21 S DR(1,165.5,13)="1409.2 VASCULAR INVASION..........."
22 S DR(1,165.5,14)="1409.3 MEDIASTINAL LYMPH NODES....."
23 S DR(1,165.5,15)="1409.4 SIZE OF DOMINANT TUMOR (mm)."
24 S DR(1,165.5,16)="1409.5 NUMBER OF TUMORS............"
25 S DR(1,165.5,17)="1409.6 EVIDENCE OF METASTASIS......"
26 S DR(1,165.5,18)="@1410"
27 S DR(1,165.5,19)="W !"
28 ;S DR(1,165.5,20)="W !,"" CT SCAN OF CHEST:"""
29 S DR(1,165.5,21)="1410 CT SCAN OF CHEST............."
30 S DR(1,165.5,22)="I $G(X)=2 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""
31 S DR(1,165.5,23)="I $G(X)=9 S PIECE=34 D ITEM9^ONCLPC3 S Y=""@1411"""
32 S DR(1,165.5,24)="1410.1 EMPHYSEMA..................."
33 S DR(1,165.5,25)="1410.2 VASCULAR INVASION..........."
34 S DR(1,165.5,26)="1410.3 MEDIASTINAL LYMPH NODES....."
35 S DR(1,165.5,27)="1410.4 SIZE OF DOMINANT TUMOR (mm)."
36 S DR(1,165.5,28)="1410.5 NUMBER OF TUMORS............"
37 S DR(1,165.5,29)="1410.6 EVIDENCE OF METASTASIS......"
38 S DR(1,165.5,30)="@1411"
39 S DR(1,165.5,31)="W !"
40 ;S DR(1,165.5,32)="W !,"" CT SCAN OF BRAIN:"""
41 S DR(1,165.5,33)="1411 CT SCAN OF BRAIN............."
42 S DR(1,165.5,34)="I $G(X)=2 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""
43 S DR(1,165.5,35)="I $G(X)=9 S PIECE=41 D ITEM9^ONCLPC3 S Y=""@1412"""
44 S DR(1,165.5,36)="1411.1 EMPHYSEMA..................."
45 S DR(1,165.5,37)="1411.2 VASCULAR INVASION..........."
46 S DR(1,165.5,38)="1411.3 MEDIASTINAL LYMPH NODES....."
47 S DR(1,165.5,39)="1411.4 SIZE OF DOMINANT TUMOR (mm)."
48 S DR(1,165.5,40)="1411.5 NUMBER OF TUMORS............"
49 S DR(1,165.5,41)="1411.6 EVIDENCE OF METASTASIS......"
50 S DR(1,165.5,42)="@1412"
51 S DR(1,165.5,43)="W !"
52 ;S DR(1,165.5,44)="W !,"" MRI SCAN OF CHEST:"""
53 S DR(1,165.5,45)="1412 MRI SCAN OF CHEST............"
54 S DR(1,165.5,46)="I $G(X)=2 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""
55 S DR(1,165.5,47)="I $G(X)=9 S PIECE=48 D ITEM9^ONCLPC3 S Y=""@1413"""
56 S DR(1,165.5,48)="1412.1 EMPHYSEMA..................."
57 S DR(1,165.5,49)="1412.2 VASCULAR INVASION..........."
58 S DR(1,165.5,50)="1412.3 MEDIASTINAL LYMPH NODES....."
59 S DR(1,165.5,51)="1412.4 SIZE OF DOMINANT TUMOR (mm)."
60 S DR(1,165.5,52)="1412.5 NUMBER OF TUMORS............"
61 S DR(1,165.5,53)="1412.6 EVIDENCE OF METASTASIS......"
62 S DR(1,165.5,54)="@1413"
63 S DR(1,165.5,55)="W !"
64 ;S DR(1,165.5,56)="W !,"" MRI SCAN OF BRAIN:"""
65 S DR(1,165.5,57)="1413 MRI SCAN OF BRAIN............"
66 S DR(1,165.5,58)="I $G(X)=2 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""
67 S DR(1,165.5,59)="I $G(X)=9 S PIECE=55 D ITEM9^ONCLPC3 S Y=""@1414"""
68 S DR(1,165.5,60)="1413.1 EMPHYSEMA..................."
69 S DR(1,165.5,61)="1413.2 VASCULAR INVASION..........."
70 S DR(1,165.5,62)="1413.3 MEDIASTINAL LYMPH NODES....."
71 S DR(1,165.5,63)="1413.4 SIZE OF DOMINANT TUMOR (mm)."
72 S DR(1,165.5,64)="1413.5 NUMBER OF TUMORS............"
73 S DR(1,165.5,65)="1413.6 EVIDENCE OF METASTASIS......"
74 S DR(1,165.5,66)="@1414"
75 S DR(1,165.5,67)="W !"
76 ;S DR(1,165.5,68)="W !,"" PET SCAN:"""
77 S DR(1,165.5,69)="1414 PET SCAN....................."
78 S DR(1,165.5,70)="I $G(X)=2 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""
79 S DR(1,165.5,71)="I $G(X)=9 S PIECE=62 D ITEM9^ONCLPC3 S Y=""@1415"""
80 S DR(1,165.5,72)="1414.1 EMPHYSEMA..................."
81 S DR(1,165.5,73)="1414.2 VASCULAR INVASION..........."
82 S DR(1,165.5,74)="1414.3 MEDIASTINAL LYMPH NODES....."
83 S DR(1,165.5,75)="1414.4 SIZE OF DOMINANT TUMOR (mm)."
84 S DR(1,165.5,76)="1414.5 NUMBER OF TUMORS............"
85 S DR(1,165.5,77)="1414.6 EVIDENCE OF METASTASIS......"
86 S DR(1,165.5,78)="@1415"
87 S DR(1,165.5,79)="W !"
88 ;S DR(1,165.5,80)="W !,"" X-RAY OF CHEST:"""
89 S DR(1,165.5,81)="1415 X-RAY OF CHEST..............."
90 S DR(1,165.5,82)="I $G(X)=2 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""
91 S DR(1,165.5,83)="I $G(X)=9 S PIECE=69 D ITEM9^ONCLPC3 S Y=""@1416"""
92 S DR(1,165.5,84)="1415.1 EMPHYSEMA..................."
93 S DR(1,165.5,85)="1415.2 VASCULAR INVASION..........."
94 S DR(1,165.5,86)="1415.3 MEDIASTINAL LYMPH NODES....."
95 S DR(1,165.5,87)="1415.4 SIZE OF DOMINANT TUMOR (mm)."
96 S DR(1,165.5,88)="1415.5 NUMBER OF TUMORS............"
97 S DR(1,165.5,89)="1415.6 EVIDENCE OF METASTASIS......"
98 S DR(1,165.5,90)="@1416"
99 S DR(1,165.5,91)="W !"
100 S DR(1,165.5,92)="W !,"" 10. PRE-OP LYMPH NODE MAPPING:"""
101 S DR(1,165.5,93)="1416 HIGHEST MEDIASTINAL (level 1)"
102 S DR(1,165.5,94)="1416.1 UPPER PARATRACHEAL (level 2)."
103 S DR(1,165.5,95)="1416.2 PREVASCULAR AND RETROTRACHEAL (level 3)..................."
104 S DR(1,165.5,96)="1416.3 LOWER PARATRACHEAL (level 4)."
105 S DR(1,165.5,97)="1416.4 SUBAORTIC (level 5).........."
106 S DR(1,165.5,98)="1416.5 PARAORTIC (level 6).........."
107 S DR(1,165.5,99)="1416.6 SUBCARINAL (level 7)........."
108 S DR(1,165.5,100)="1416.7 PARAESOPHAGEAL (level 8)....."
109 S DR(1,165.5,101)="1416.8 PULMONARY LIGAMENT (level 9)."
110 D ^DIE
111 W !
112 K DIR S DIR(0)="E" D ^DIR S:$D(DIRUT) OUT="Y"
113EXIT K P,PIECE,DIC,DR,DA,DIQ,DIE,DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
114 Q
115ITEM9 ;RADIOLOGIC EVALUATION
116 F P=1:1:6 S PIECE=PIECE+1,P(P)=PIECE
117 I X=2 D Q
118 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(1))=8
119 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(2))=8
120 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(3))=8
121 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"
122 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"
123 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(6))=8
124 .W !," EMPHYSEMA...................: NA, test not performed"
125 .W !," VASCULAR INVASION...........: NA, test not performed"
126 .W !," MEDIASTINAL LYMPH NODES.....: NA, test not performed"
127 .W !," SIZE OF DOMINANT TUMOR (mm).: Test not performed"
128 .W !," NUMBER OF TUMORS............: Test not performed"
129 .W !," EVIDENCE OF METASTASIS......: NA, test not performed"
130 I X=9 D Q
131 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(1))=9
132 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(2))=9
133 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(3))=9
134 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(4))="000"
135 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(5))="00"
136 .S $P(^ONCO(165.5,D0,"LUN1"),U,P(6))=9
137 .W !," EMPHYSEMA...................: Not documented"
138 .W !," VASCULAR INVASION...........: Not documented"
139 .W !," MEDIASTINAL LYMPH NODES.....: Not documented"
140 .W !," SIZE OF DOMINANT TUMOR (mm).: Test not performed"
141 .W !," NUMBER OF TUMORS............: Test not performed"
142 .W !," EVIDENCE OF METASTASIS......: Not documented"
143 Q
Note: See TracBrowser for help on using the repository browser.