source: FOIAVistA/trunk/r/HEALTH_SUMMARY-GMTS/GMTSONE1.m@ 1397

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

initial load of FOIAVistA 6/30/08 version
File size: 8.6 KB
Line 
1GMTSONE1 ; HIN/GWB - Oncology Health Summary Comp ; 1/11/05 8:53am
2 ;;2.7;Health Summary;**72**;Oct 20, 1995
3 ;
4DISPLAY ; Display Extracted Data
5 S IEN=0 F CNT=1:1 S IEN=$O(^UTILITY("DIQ1",$J,165.5,IEN)) Q:IEN="" D
6 . D CKP^GMTSUP Q:$D(GMTSQIT)
7 . W " #",CNT," Cancer Identification"
8 . D CKP^GMTSUP Q:$D(GMTSQIT)
9 . W !," ------------------------"
10 . D CKP^GMTSUP Q:$D(GMTSQIT)
11 . W:$D(^UTILITY("DIQ1",$J,165.5,IEN,2000)) !," Division...................: ",^UTILITY("DIQ1",$J,165.5,IEN,2000)
12 . D CKP^GMTSUP Q:$D(GMTSQIT)
13 . W !," Class of Case..............: ",^UTILITY("DIQ1",$J,165.5,IEN,.04)
14 . D CKP^GMTSUP Q:$D(GMTSQIT)
15 . W !," Date Dx....................: ",^UTILITY("DIQ1",$J,165.5,IEN,3)
16 . D CKP^GMTSUP Q:$D(GMTSQIT)
17 . W !," Primary Site...............: ",^UTILITY("DIQ1",$J,165.5,IEN,20)
18 . I ^UTILITY("DIQ1",$J,165.5,IEN,91)'="Complete" D Q
19 . . D CKP^GMTSUP Q:$D(GMTSQIT)
20 . . W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
21 . . D CKP^GMTSUP Q:$D(GMTSQIT)
22 . . W !!
23 . D CKP^GMTSUP Q:$D(GMTSQIT)
24 . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")<3010000 D
25 . . W !," Histology (ICD-O-2)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22)
26 . . D CKP^GMTSUP Q:$D(GMTSQIT)
27 . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3001231 D
28 . . W !," Histology (ICD-O-3)........: ",^UTILITY("DIQ1",$J,165.5,IEN,22.3)
29 . . D CKP^GMTSUP Q:$D(GMTSQIT)
30 . W !," Grade/Differentiation......: ",^UTILITY("DIQ1",$J,165.5,IEN,24)
31 . D CKP^GMTSUP Q:$D(GMTSQIT)
32 . W !," Abstract Status............: ",^UTILITY("DIQ1",$J,165.5,IEN,91)
33 . D CKP^GMTSUP Q:$D(GMTSQIT)
34 . W !
35 . D CKP^GMTSUP Q:$D(GMTSQIT)
36 . W !," #",CNT," Stage of Disease at Diagnosis"
37 . D CKP^GMTSUP Q:$D(GMTSQIT)
38 . W !," --------------------------------"
39 . D CKP^GMTSUP Q:$D(GMTSQIT)
40 . W !," Tumor Size.................: ",^UTILITY("DIQ1",$J,165.5,IEN,29)
41 . D CKP^GMTSUP Q:$D(GMTSQIT)
42 . W !," Regional Nodes Examined....: ",^UTILITY("DIQ1",$J,165.5,IEN,33)
43 . D CKP^GMTSUP Q:$D(GMTSQIT)
44 . W !," Regional Nodes Positive....: ",^UTILITY("DIQ1",$J,165.5,IEN,32)
45 . D CKP^GMTSUP Q:$D(GMTSQIT)
46 . W !," Clinical T.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.1)
47 . D CKP^GMTSUP Q:$D(GMTSQIT)
48 . W !," Clinical N.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.2)
49 . D CKP^GMTSUP Q:$D(GMTSQIT)
50 . W !," Clinical M.................: ",^UTILITY("DIQ1",$J,165.5,IEN,37.3)
51 . D CKP^GMTSUP Q:$D(GMTSQIT)
52 . W !," Clinical Stage Group.......: ",^UTILITY("DIQ1",$J,165.5,IEN,38)
53 . D CKP^GMTSUP Q:$D(GMTSQIT)
54 . W !," Pathologic T...............: ",^UTILITY("DIQ1",$J,165.5,IEN,85)
55 . D CKP^GMTSUP Q:$D(GMTSQIT)
56 . W !," Pathologic N...............: ",^UTILITY("DIQ1",$J,165.5,IEN,86)
57 . D CKP^GMTSUP Q:$D(GMTSQIT)
58 . W !," Pathologic M...............: ",^UTILITY("DIQ1",$J,165.5,IEN,87)
59 . D CKP^GMTSUP Q:$D(GMTSQIT)
60 . W !," Pathologic Stage Group.....: ",^UTILITY("DIQ1",$J,165.5,IEN,88)
61 . D CKP^GMTSUP Q:$D(GMTSQIT)
62 . W !
63 . D CKP^GMTSUP Q:$D(GMTSQIT)
64 . I ^UTILITY("DIQ1",$J,165.5,IEN,3,"I")>3031231 D
65 . . W !," #",CNT," Collaborative Staging"
66 . . D CKP^GMTSUP Q:$D(GMTSQIT)
67 . . W !," ------------------------"
68 . . D CKP^GMTSUP Q:$D(GMTSQIT)
69 . . W !," Derived AJCC T.............: ",^UTILITY("DIQ1",$J,165.5,IEN,160)
70 . . D CKP^GMTSUP Q:$D(GMTSQIT)
71 . . W !," Derived AJCC T Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,161)
72 . . D CKP^GMTSUP Q:$D(GMTSQIT)
73 . . W !," Derived AJCC N.............: ",^UTILITY("DIQ1",$J,165.5,IEN,162)
74 . . D CKP^GMTSUP Q:$D(GMTSQIT)
75 . . W !," Derived AJCC N Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,163)
76 . . D CKP^GMTSUP Q:$D(GMTSQIT)
77 . . W !," Derived AJCC M.............: ",^UTILITY("DIQ1",$J,165.5,IEN,164)
78 . . D CKP^GMTSUP Q:$D(GMTSQIT)
79 . . W !," Derived AJCC M Descriptor..: ",^UTILITY("DIQ1",$J,165.5,IEN,165)
80 . . D CKP^GMTSUP Q:$D(GMTSQIT)
81 . . W !," Derived AJCC Stage Group...: ",^UTILITY("DIQ1",$J,165.5,IEN,166)
82 . . D CKP^GMTSUP Q:$D(GMTSQIT)
83 . . W !," Derived SS2000.............: ",^UTILITY("DIQ1",$J,165.5,IEN,168)
84 . . D CKP^GMTSUP Q:$D(GMTSQIT)
85 . . W !
86 . . D CKP^GMTSUP Q:$D(GMTSQIT)
87 . W !," #",CNT," First Course of Treatment"
88 . D CKP^GMTSUP Q:$D(GMTSQIT)
89 . W !," ----------------------------"
90 . D CKP^GMTSUP Q:$D(GMTSQIT)
91 . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.1) D TXT
92 . W !," Surgical Dx/Staging Proc...: ",^UTILITY("DIQ1",$J,165.5,IEN,58.3)," ",TXT1
93 . D CKP^GMTSUP Q:$D(GMTSQIT)
94 . W:TXT2'="" !,?41,TXT2
95 . D CKP^GMTSUP Q:$D(GMTSQIT)
96 . S TXT=^UTILITY("DIQ1",$J,165.5,IEN,58.6) D TXT
97 . W !," Surgery of primary site....: ",^UTILITY("DIQ1",$J,165.5,IEN,50)," ",TXT1
98 . D CKP^GMTSUP Q:$D(GMTSQIT)
99 . W:TXT2'="" !,?41,TXT2
100 . D CKP^GMTSUP Q:$D(GMTSQIT)
101 . W !," Reason for no surgery......: ",^UTILITY("DIQ1",$J,165.5,IEN,58)
102 . D CKP^GMTSUP Q:$D(GMTSQIT)
103 . W !," Radiation..................: ",^UTILITY("DIQ1",$J,165.5,IEN,51)," ",^UTILITY("DIQ1",$J,165.5,IEN,51.2)
104 . D CKP^GMTSUP Q:$D(GMTSQIT)
105 . W !," Regional dose:cGy..........: ",^UTILITY("DIQ1",$J,165.5,IEN,442)
106 . D CKP^GMTSUP Q:$D(GMTSQIT)
107 . W !," Boost dose:cGy.............: ",^UTILITY("DIQ1",$J,165.5,IEN,443)
108 . D CKP^GMTSUP Q:$D(GMTSQIT)
109 . W !," Radiation treatment volume.: ",^UTILITY("DIQ1",$J,165.5,IEN,125)
110 . D CKP^GMTSUP Q:$D(GMTSQIT)
111 . W !," Reason for no radiation....: ",^UTILITY("DIQ1",$J,165.5,IEN,75)
112 . D CKP^GMTSUP Q:$D(GMTSQIT)
113 . W !," Chemotherapy...............: ",^UTILITY("DIQ1",$J,165.5,IEN,53)," ",^UTILITY("DIQ1",$J,165.5,IEN,53.2)
114 . D CKP^GMTSUP Q:$D(GMTSQIT)
115 . W !," Hormone therapy............: ",^UTILITY("DIQ1",$J,165.5,IEN,54)," ",^UTILITY("DIQ1",$J,165.5,IEN,54.2)
116 . D CKP^GMTSUP Q:$D(GMTSQIT)
117 . W !," Immunotherapy..............: ",^UTILITY("DIQ1",$J,165.5,IEN,55)," ",^UTILITY("DIQ1",$J,165.5,IEN,55.2)
118 . D CKP^GMTSUP Q:$D(GMTSQIT)
119 . W !," Hema Trans/Endocrine Proc..: ",^UTILITY("DIQ1",$J,165.5,IEN,153.1)," ",^UTILITY("DIQ1",$J,165.5,IEN,153)
120 . D CKP^GMTSUP Q:$D(GMTSQIT)
121 . W !," Other treatment............: ",^UTILITY("DIQ1",$J,165.5,IEN,57)," ",^UTILITY("DIQ1",$J,165.5,IEN,57.2)
122 . D CKP^GMTSUP Q:$D(GMTSQIT)
123 . W !," Palliative Care............: ",^UTILITY("DIQ1",$J,165.5,IEN,12)
124 . D CKP^GMTSUP Q:$D(GMTSQIT)
125 . W !," Protocol eligibility status: ",^UTILITY("DIQ1",$J,165.5,IEN,346)
126 . D CKP^GMTSUP Q:$D(GMTSQIT)
127 . W !," Protocol participation.....: ",^UTILITY("DIQ1",$J,165.5,IEN,560)
128 . D CKP^GMTSUP Q:$D(GMTSQIT)
129 . W !
130 . D CKP^GMTSUP Q:$D(GMTSQIT)
131 . I $D(ONC("SUB",IEN)) D
132 . . W !," #",CNT," Subsequent Treatment"
133 . . D CKP^GMTSUP Q:$D(GMTSQIT)
134 . . W !," -----------------------"
135 . . D CKP^GMTSUP Q:$D(GMTSQIT)
136 . . S SUBIEN=0
137 . . F SUBCNT=1:1 S SUBIEN=$O(ONC("SUB",IEN,SUBIEN)) Q:SUBIEN="" D
138 . . . S SUBLET=$E(SUB,SUBCNT)
139 . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.04)) D TXT
140 . . . W !," ",SUBLET_"."," Surgery of primary site.: ",$G(ONC("SUB",IEN,SUBIEN,.041))," ",TXT1
141 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
142 . . . W:TXT2'="" !,?41,TXT2
143 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
144 . . . W !," Radiation...............: ",$G(ONC("SUB",IEN,SUBIEN,.051))," ",$G(ONC("SUB",IEN,SUBIEN,.05))
145 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
146 . . . W !," Chemotherapy............: ",$G(ONC("SUB",IEN,SUBIEN,.061))," ",$G(ONC("SUB",IEN,SUBIEN,.06))
147 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
148 . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.07)) D TXT
149 . . . W !," Hormone therapy.........: ",$G(ONC("SUB",IEN,SUBIEN,.071))," ",TXT1
150 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
151 . . . W:TXT2'="" !,?41,TXT2
152 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
153 . . . W !," Immunotherapy...........: ",$G(ONC("SUB",IEN,SUBIEN,.081))," ",$G(ONC("SUB",IEN,SUBIEN,.08))
154 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
155 . . . S TXT=$G(ONC("SUB",IEN,SUBIEN,.09)) D TXT
156 . . . W !," Other Treatment.........: ",$G(ONC("SUB",IEN,SUBIEN,.091))," ",TXT1
157 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
158 . . . W:TXT2'="" !,?41,TXT2
159 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
160 . . . W !
161 . . . D CKP^GMTSUP Q:$D(GMTSQIT)
162 . W !," Cancer Status..............: ",^UTILITY("DIQ1",$J,165.5,IEN,95)
163 . D CKP^GMTSUP Q:$D(GMTSQIT)
164 . W !
165 . D CKP^GMTSUP Q:$D(GMTSQIT)
166 . W !
167 . D CKP^GMTSUP Q:$D(GMTSQIT)
168 I '$D(ONC(160.04)) W ! Q
169 D CKP^GMTSUP Q:$D(GMTSQIT)
170 W " Follow-up"
171 D CKP^GMTSUP Q:$D(GMTSQIT)
172 W !," ---------"
173 D CKP^GMTSUP Q:$D(GMTSQIT)
174 S IEN=0 F CNT=1:1 S IEN=$O(ONC(160.04,IEN)) Q:IEN="" D
175 . Q:ONC(160.04,IEN,.01)'=ONC(160,PTIEN_",",16)
176 . D CKP^GMTSUP Q:$D(GMTSQIT)
177 . W !," Last Contact or Death......: ",$G(ONC(160.04,IEN,.01))
178 . D CKP^GMTSUP Q:$D(GMTSQIT)
179 . W !," Vital Status...............: ",$G(ONC(160.04,IEN,1))
180 . D CKP^GMTSUP Q:$D(GMTSQIT)
181 . W !," Following Registry.........: ",$G(ONC(160.04,IEN,10))
182 . D CKP^GMTSUP Q:$D(GMTSQIT)
183 . W !
184 . D CKP^GMTSUP Q:$D(GMTSQIT)
185 W !
186 D CKP^GMTSUP Q:$D(GMTSQIT)
187 Q
188TXT ; Print Formatted Text
189 S (TXT1,TXT2)="",LOS=$L($G(TXT)) I LOS<40 S TXT1=$G(TXT) Q
190 S NOP=$L($E($G(TXT),1,40)," ")
191 S TXT1=$P($G(TXT)," ",1,NOP-1),TXT2=$P($G(TXT)," ",NOP,999)
192 Q
Note: See TracBrowser for help on using the repository browser.