source: WorldVistAEHR/trunk/r/ONCOLOGY-ONC/ONCPAT.m@ 1476

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

initial load of WorldVistAEHR
File size: 7.0 KB
Line 
1ONCPAT ;Hines OIFO/GWB - PATIENT IDENTIFICATION ;12/08/00
2 ;;2.11;ONCOLOGY;**27,32,33,34,37,41,45**;Mar 07, 1995
3 W !
4 K DR
5 S DIE="^ONCO(160,",DA=ONCOD0,DR=""
6 S DR(1,160,1)="7 PLACE OF BIRTH............."
7 S DR(1,160,2)="8 RACE 1.....................//^S X=RACE"
8 S DR(1,160,3)="I X'=99 S Y=""@81"""
9 S DR(1,160,4)="8.1////99"
10 S DR(1,160,5)="8.2////99"
11 S DR(1,160,6)="8.3////99"
12 S DR(1,160,7)="8.4////99"
13 S DR(1,160,8)="W !,"" RACE 2.....................: Unknown"""
14 S DR(1,160,9)="W !,"" RACE 3.....................: Unknown"""
15 S DR(1,160,10)="W !,"" RACE 4.....................: Unknown"""
16 S DR(1,160,11)="W !,"" RACE 5.....................: Unknown"""
17 S DR(1,160,12)="S Y=9"
18 S DR(1,160,13)="@81"
19 S DR(1,160,14)="8.1 RACE 2.....................//NA"
20 S DR(1,160,15)="S Y=$S(X=88:""@8288"",X=99:""@8299"",X="""":""@8200"",1:""@82"")"
21 S DR(1,160,16)="@8288"
22 S DR(1,160,17)="8.2////88"
23 S DR(1,160,18)="8.3////88"
24 S DR(1,160,19)="8.4////88"
25 S DR(1,160,20)="W !,"" RACE 3.....................: NA"""
26 S DR(1,160,21)="W !,"" RACE 4.....................: NA"""
27 S DR(1,160,22)="W !,"" RACE 5.....................: NA"""
28 S DR(1,160,23)="S Y=9"
29 S DR(1,160,24)="@8299"
30 S DR(1,160,25)="8.2////99"
31 S DR(1,160,26)="8.3////99"
32 S DR(1,160,27)="8.4////99"
33 S DR(1,160,28)="W !,"" RACE 3.....................: Unknown"""
34 S DR(1,160,29)="W !,"" RACE 4.....................: Unknown"""
35 S DR(1,160,30)="W !,"" RACE 5.....................: Unknown"""
36 S DR(1,160,31)="S Y=9"
37 S DR(1,160,32)="@8200"
38 S DR(1,160,33)="8.2////@"
39 S DR(1,160,34)="8.3////@"
40 S DR(1,160,35)="8.4////@"
41 S DR(1,160,36)="W !,"" RACE 3.....................:"""
42 S DR(1,160,37)="W !,"" RACE 4.....................:"""
43 S DR(1,160,38)="W !,"" RACE 5.....................:"""
44 S DR(1,160,39)="S Y=9"
45 S DR(1,160,40)="@82"
46 S DR(1,160,41)="8.2 RACE 3.....................//NA"
47 S DR(1,160,42)="S Y=$S(X=88:""@8388"",X=99:""@8399"",X="""":""@8300"",1:""@83"")"
48 S DR(1,160,43)="@8388"
49 S DR(1,160,44)="8.3////88"
50 S DR(1,160,45)="8.4////88"
51 S DR(1,160,46)="W !,"" RACE 4.....................: NA"""
52 S DR(1,160,47)="W !,"" RACE 5.....................: NA"""
53 S DR(1,160,48)="S Y=9"
54 S DR(1,160,49)="@8399"
55 S DR(1,160,50)="8.3////99"
56 S DR(1,160,51)="8.4////99"
57 S DR(1,160,52)="W !,"" RACE 4.....................: Unknown"""
58 S DR(1,160,53)="W !,"" RACE 5.....................: Unknown"""
59 S DR(1,160,54)="S Y=9"
60 S DR(1,160,55)="@8300"
61 S DR(1,160,56)="8.3////@"
62 S DR(1,160,57)="8.4////@"
63 S DR(1,160,58)="W !,"" RACE 4.....................:"""
64 S DR(1,160,59)="W !,"" RACE 5.....................:"""
65 S DR(1,160,60)="S Y=9"
66 S DR(1,160,61)="@83"
67 S DR(1,160,62)="8.3 RACE 4.....................//NA"
68 S DR(1,160,63)="S Y=$S(X=88:""@8488"",X=99:""@8499"",X="""":""@8400"",1:""@84"")"
69 S DR(1,160,64)="@8488"
70 S DR(1,160,65)="8.4////88"
71 S DR(1,160,66)="W !,"" RACE 5.....................: NA"""
72 S DR(1,160,67)="S Y=9"
73 S DR(1,160,68)="@8499"
74 S DR(1,160,69)="8.4////99"
75 S DR(1,160,70)="W !,"" RACE 5.....................: Unknown"""
76 S DR(1,160,71)="S Y=9"
77 S DR(1,160,72)="@8400"
78 S DR(1,160,73)="8.4////@"
79 S DR(1,160,74)="W !,"" RACE 5.....................:"""
80 S DR(1,160,75)="S Y=9"
81 S DR(1,160,76)="@84"
82 S DR(1,160,77)="8.4 RACE 5.....................//NA"
83 S DR(1,160,78)="9 SPANISH ORIGIN.............//^S X=""Non-Spanish, non-Hispanic"""
84 S DR(1,160,79)="10 SEX........................"
85 S DR(1,160,80)="48 AGENT ORANGE EXPOSURE......//^S X=AOE"
86 S DR(1,160,81)="50 IONIZING RADIATION EXPOSURE//^S X=IRE"
87 S DR(1,160,82)="52 CHEMICAL EXPOSURE.........."
88 S DR(1,160,83)="61 ASBESTOS EXPOSURE.........."
89 S DR(1,160,84)="51 PERSIAN GULF SERVICE.......//^S X=PGS"
90 S DR(1,160,85)="55 MIDDLE EAST SERVICE........//^S X=MES"
91 S DR(1,160,86)="56 SOMALIA SERVICE............//^S X=SS"
92 S DR(1,160,87)="W ! K DIR S DIR(0)=""E"" D ^DIR"
93 S DR(1,160,88)="I $D(DIRUT) S Y=""@99"""
94 S DR(1,160,89)="W @IOF"
95 S DR(1,160,90)="W !?4,""Patient name: "",ONCONAM,!"
96 S DR(1,160,91)="D CC^ONCPAT1"
97 S DR(1,160,92)="D ^ONCPL"
98 S DR(1,160,93)="I $D(DIRUT) S Y=""@99"""
99 S DR(1,160,94)="25 COMORBIDITY/COMPLICATION #1"
100 S DR(1,160,95)="I X'="""" S Y=""@251"""
101 S DR(1,160,96)="25.1////@"
102 S DR(1,160,97)="25.2////@"
103 S DR(1,160,98)="25.3////@"
104 S DR(1,160,99)="25.4////@"
105 S DR(1,160,100)="25.5////@"
106 S DR(1,160,101)="25.6////@"
107 S DR(1,160,102)="25.7////@"
108 S DR(1,160,103)="25.8////@"
109 S DR(1,160,104)="25.9////@"
110 S DR(1,160,105)="D CC2^ONCPAT1"
111 S DR(1,160,106)="S Y=""@99"""
112 S DR(1,160,107)="@251"
113 S DR(1,160,108)="25.1 COMORBIDITY/COMPLICATION #2"
114 S DR(1,160,109)="I X'="""" S Y=""@252"""
115 S DR(1,160,110)="25.2////@"
116 S DR(1,160,111)="25.3////@"
117 S DR(1,160,112)="25.4////@"
118 S DR(1,160,113)="25.5////@"
119 S DR(1,160,114)="25.6////@"
120 S DR(1,160,115)="25.7////@"
121 S DR(1,160,116)="25.8////@"
122 S DR(1,160,117)="25.9////@"
123 S DR(1,160,118)="D CC3^ONCPAT1"
124 S DR(1,160,119)="S Y=""@99"""
125 S DR(1,160,120)="@252"
126 S DR(1,160,121)="25.2 COMORBIDITY/COMPLICATION #3"
127 S DR(1,160,122)="I X'="""" S Y=""@253"""
128 S DR(1,160,123)="25.3////@"
129 S DR(1,160,124)="25.4////@"
130 S DR(1,160,125)="25.5////@"
131 S DR(1,160,126)="25.6////@"
132 S DR(1,160,127)="25.7////@"
133 S DR(1,160,128)="25.8////@"
134 S DR(1,160,129)="25.9////@"
135 S DR(1,160,130)="D CC4^ONCPAT1"
136 S DR(1,160,131)="S Y=""@99"""
137 S DR(1,160,132)="@253"
138 S DR(1,160,133)="25.3 COMORBIDITY/COMPLICATION #4"
139 S DR(1,160,134)="I X'="""" S Y=""@254"""
140 S DR(1,160,135)="25.4////@"
141 S DR(1,160,136)="25.5////@"
142 S DR(1,160,137)="25.6////@"
143 S DR(1,160,138)="25.7////@"
144 S DR(1,160,139)="25.8////@"
145 S DR(1,160,140)="25.9////@"
146 S DR(1,160,141)="D CC5^ONCPAT1"
147 S DR(1,160,142)="S Y=""@99"""
148 S DR(1,160,143)="@254"
149 S DR(1,160,144)="25.4 COMORBIDITY/COMPLICATION #5"
150 S DR(1,160,145)="I X'="""" S Y=""@255"""
151 S DR(1,160,146)="25.5////@"
152 S DR(1,160,147)="25.6////@"
153 S DR(1,160,148)="25.7////@"
154 S DR(1,160,149)="25.8////@"
155 S DR(1,160,150)="25.9////@"
156 S DR(1,160,151)="D CC6^ONCPAT1"
157 S DR(1,160,152)="S Y=""@99"""
158 S DR(1,160,153)="@255"
159 S DR(1,160,154)="25.5 COMORBIDITY/COMPLICATION #6"
160 S DR(1,160,155)="I X'="""" S Y=""@256"""
161 S DR(1,160,156)="25.6////@"
162 S DR(1,160,157)="25.7////@"
163 S DR(1,160,158)="25.8////@"
164 S DR(1,160,159)="25.9////@"
165 S DR(1,160,160)="D CC7^ONCPAT1"
166 S DR(1,160,161)="S Y=""@99"""
167 S DR(1,160,162)="@256"
168 S DR(1,160,163)="25.6 COMORBIDITY/COMPLICATION #7"
169 S DR(1,160,164)="I X'="""" S Y=""@257"""
170 S DR(1,160,165)="25.7////@"
171 S DR(1,160,166)="25.8////@"
172 S DR(1,160,167)="25.9////@"
173 S DR(1,160,168)="D CC8^ONCPAT1"
174 S DR(1,160,169)="S Y=""@99"""
175 S DR(1,160,170)="@257"
176 S DR(1,160,171)="25.7 COMORBIDITY/COMPLICATION #8"
177 S DR(1,160,172)="I X'="""" S Y=""@258"""
178 S DR(1,160,173)="25.8////@"
179 S DR(1,160,174)="25.9////@"
180 S DR(1,160,175)="D CC9^ONCPAT1"
181 S DR(1,160,176)="S Y=""@99"""
182 S DR(1,160,177)="@258"
183 S DR(1,160,178)="25.8 COMORBIDITY/COMPLICATION #9"
184 S DR(1,160,179)="I X'="""" S Y=""@259"""
185 S DR(1,160,180)="25.9////@"
186 S DR(1,160,181)="D CC10^ONCPAT1"
187 S DR(1,160,182)="S Y=""@99"""
188 S DR(1,160,183)="@259"
189 S DR(1,160,184)="25.9 COMORBIDITY/COMPLICATION #10"
190 S DR(1,160,185)="@99"
191 D ^DIE
192 K DR
193 Q
Note: See TracBrowser for help on using the repository browser.