Last change
on this file since 1154 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
2.7 KB
|
Line | |
---|
1 | ABSVMLC1 ;OAKLANDFO/DPC-VSS MIGRATION;8/20/2002
|
---|
2 | ;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
|
---|
3 | ;
|
---|
4 | SAVE ;Saves the list of orgs to Organization Code multiple in Migration Log file
|
---|
5 | ;
|
---|
6 | N ABSFDA,ABSIEN,ABSIENS,ORGCD
|
---|
7 | D ABSIEN^ABSVMUT1 Q:'ABSIEN
|
---|
8 | F I=1:1 S ORGCD=$P($T(ORGS+I),";;",2) Q:ORGCD="" D
|
---|
9 | . S ABSFDA(503339.53,"+"_I_","_ABSIEN_",",.01)=ORGCD
|
---|
10 | D UPDATE^DIE("E","ABSFDA","ABSIENS")
|
---|
11 | Q
|
---|
12 | ;Loads IENS for national codes.
|
---|
13 | LDORGS ;
|
---|
14 | N ABSIEN,ORGCD,I
|
---|
15 | D ABSIEN^ABSVMUT1 Q:'ABSIEN
|
---|
16 | K OCDS ;Array of IENs of valid org codes.
|
---|
17 | S ORGCD=""
|
---|
18 | F S ORGCD=$O(^ABS(503339.5,ABSIEN,3,"B",ORGCD)) Q:ORGCD="" D
|
---|
19 | . N ORGIEN,FOUNDIEN
|
---|
20 | . D FIND^DIC(503334,,"@","X",ORGCD,,"B",,,"FOUNDIEN")
|
---|
21 | . F I=1:1 S ORGIEN=$G(FOUNDIEN("DILIST",2,I)) Q:ORGIEN="" D
|
---|
22 | . . S OCDS(ORGIEN)=""
|
---|
23 | . . Q
|
---|
24 | . Q
|
---|
25 | Q
|
---|
26 | ;
|
---|
27 | ORGS ;
|
---|
28 | ;;100
|
---|
29 | ;;101
|
---|
30 | ;;102
|
---|
31 | ;;103
|
---|
32 | ;;104
|
---|
33 | ;;105
|
---|
34 | ;;106
|
---|
35 | ;;107
|
---|
36 | ;;108
|
---|
37 | ;;109
|
---|
38 | ;;110
|
---|
39 | ;;111
|
---|
40 | ;;112
|
---|
41 | ;;113
|
---|
42 | ;;114
|
---|
43 | ;;115
|
---|
44 | ;;116
|
---|
45 | ;;117
|
---|
46 | ;;118
|
---|
47 | ;;119
|
---|
48 | ;;120
|
---|
49 | ;;121
|
---|
50 | ;;122
|
---|
51 | ;;123
|
---|
52 | ;;124
|
---|
53 | ;;126
|
---|
54 | ;;127
|
---|
55 | ;;128
|
---|
56 | ;;129
|
---|
57 | ;;130
|
---|
58 | ;;131
|
---|
59 | ;;132
|
---|
60 | ;;133
|
---|
61 | ;;134
|
---|
62 | ;;135
|
---|
63 | ;;136
|
---|
64 | ;;137
|
---|
65 | ;;138
|
---|
66 | ;;139
|
---|
67 | ;;140
|
---|
68 | ;;141
|
---|
69 | ;;142
|
---|
70 | ;;143
|
---|
71 | ;;144
|
---|
72 | ;;145
|
---|
73 | ;;146
|
---|
74 | ;;147
|
---|
75 | ;;148
|
---|
76 | ;;149
|
---|
77 | ;;150
|
---|
78 | ;;151
|
---|
79 | ;;152
|
---|
80 | ;;153
|
---|
81 | ;;154
|
---|
82 | ;;155
|
---|
83 | ;;156
|
---|
84 | ;;157
|
---|
85 | ;;158
|
---|
86 | ;;159
|
---|
87 | ;;160
|
---|
88 | ;;161
|
---|
89 | ;;162
|
---|
90 | ;;163
|
---|
91 | ;;164
|
---|
92 | ;;165
|
---|
93 | ;;166
|
---|
94 | ;;167
|
---|
95 | ;;168
|
---|
96 | ;;169
|
---|
97 | ;;170
|
---|
98 | ;;171
|
---|
99 | ;;172
|
---|
100 | ;;173
|
---|
101 | ;;174
|
---|
102 | ;;175
|
---|
103 | ;;176
|
---|
104 | ;;177
|
---|
105 | ;;178
|
---|
106 | ;;179
|
---|
107 | ;;180
|
---|
108 | ;;181
|
---|
109 | ;;182
|
---|
110 | ;;183
|
---|
111 | ;;184
|
---|
112 | ;;185
|
---|
113 | ;;186
|
---|
114 | ;;187
|
---|
115 | ;;188
|
---|
116 | ;;189
|
---|
117 | ;;190
|
---|
118 | ;;191
|
---|
119 | ;;192
|
---|
120 | ;;193
|
---|
121 | ;;194
|
---|
122 | ;;195
|
---|
123 | ;;196
|
---|
124 | ;;197
|
---|
125 | ;;198
|
---|
126 | ;;199
|
---|
127 | ;;200
|
---|
128 | ;;201
|
---|
129 | ;;202
|
---|
130 | ;;203
|
---|
131 | ;;204
|
---|
132 | ;;205
|
---|
133 | ;;206
|
---|
134 | ;;207
|
---|
135 | ;;208
|
---|
136 | ;;209
|
---|
137 | ;;210
|
---|
138 | ;;211
|
---|
139 | ;;212
|
---|
140 | ;;213
|
---|
141 | ;;214
|
---|
142 | ;;215
|
---|
143 | ;;216
|
---|
144 | ;;217
|
---|
145 | ;;218
|
---|
146 | ;;220
|
---|
147 | ;;221
|
---|
148 | ;;222
|
---|
149 | ;;223
|
---|
150 | ;;224
|
---|
151 | ;;225
|
---|
152 | ;;226
|
---|
153 | ;;227
|
---|
154 | ;;228
|
---|
155 | ;;229
|
---|
156 | ;;230
|
---|
157 | ;;231
|
---|
158 | ;;232
|
---|
159 | ;;233
|
---|
160 | ;;234
|
---|
161 | ;;235
|
---|
162 | ;;236
|
---|
163 | ;;237
|
---|
164 | ;;238
|
---|
165 | ;;239
|
---|
166 | ;;240
|
---|
167 | ;;241
|
---|
168 | ;;242
|
---|
169 | ;;243
|
---|
170 | ;;244
|
---|
171 | ;;245
|
---|
172 | ;;246
|
---|
173 | ;;247
|
---|
174 | ;;248
|
---|
175 | ;;249
|
---|
176 | ;;250
|
---|
177 | ;;251
|
---|
178 | ;;252
|
---|
179 | ;;253
|
---|
180 | ;;254
|
---|
181 | ;;255
|
---|
182 | ;;256
|
---|
183 | ;;257
|
---|
184 | ;;258
|
---|
185 | ;;259
|
---|
186 | ;;260
|
---|
187 | ;;261
|
---|
188 | ;;262
|
---|
189 | ;;263
|
---|
190 | ;;264
|
---|
191 | ;;265
|
---|
192 | ;;266
|
---|
193 | ;;267
|
---|
194 | ;;268
|
---|
195 | ;;269
|
---|
196 | ;;270
|
---|
197 | ;;271
|
---|
198 | ;;272
|
---|
199 | ;;274
|
---|
200 | ;;275
|
---|
201 | ;;276
|
---|
202 | ;;277
|
---|
203 | ;;278
|
---|
204 | ;;279
|
---|
205 | ;;280
|
---|
206 | ;;281
|
---|
207 | ;;282
|
---|
208 | ;;283
|
---|
209 | ;;284
|
---|
210 | ;;286
|
---|
211 | ;;301
|
---|
212 | ;;303
|
---|
213 | ;;305
|
---|
214 | ;;307
|
---|
215 | ;;309
|
---|
216 | ;;311
|
---|
217 | ;;313
|
---|
218 | ;;315
|
---|
219 | ;;317
|
---|
220 | ;;318
|
---|
221 | ;;319
|
---|
222 | ;;320
|
---|
223 | ;;321
|
---|
224 | ;;322
|
---|
225 | ;;323
|
---|
226 | ;;324
|
---|
227 | ;;325
|
---|
228 | ;;400
|
---|
229 | ;;401
|
---|
230 | ;;001
|
---|
231 | ;;002
|
---|
232 | ;;003
|
---|
233 | ;;004
|
---|
234 | ;;005
|
---|
235 | ;;006
|
---|
236 | ;;007
|
---|
237 | ;;008
|
---|
238 | ;;009
|
---|
239 | ;;010
|
---|
240 | ;;011
|
---|
241 | ;;012
|
---|
242 | ;;013
|
---|
243 | ;;014
|
---|
244 | ;;015
|
---|
245 | ;;016
|
---|
246 | ;;017
|
---|
247 | ;;018
|
---|
248 | ;;019
|
---|
249 | ;;020
|
---|
250 | ;;021
|
---|
251 | ;;022
|
---|
252 | ;;023
|
---|
253 | ;;024
|
---|
254 | ;;025
|
---|
255 | ;;026
|
---|
256 | ;;027
|
---|
257 | ;;028
|
---|
258 | ;;029
|
---|
259 | ;;030
|
---|
260 | ;;031
|
---|
261 | ;;032
|
---|
262 | ;;033
|
---|
263 | ;;034
|
---|
264 | ;;035
|
---|
265 | ;;036
|
---|
266 | ;;037
|
---|
267 | ;;038
|
---|
268 | ;;039
|
---|
269 | ;;040
|
---|
270 | ;;041
|
---|
271 | ;;042
|
---|
272 | ;;043
|
---|
273 | ;;044
|
---|
274 | ;;045
|
---|
275 | ;;046
|
---|
276 | ;;057
|
---|
277 | ;;058
|
---|
278 | ;;059
|
---|
279 | ;;060
|
---|
280 | ;;061
|
---|
281 | ;;062
|
---|
282 | ;;063
|
---|
283 | ;;064
|
---|
284 | ;;065
|
---|
285 | ;;066
|
---|
286 | ;;067
|
---|
287 | ;;078
|
---|
288 | ;;079
|
---|
289 | ;;080
|
---|
290 | ;;081
|
---|
291 | ;;082
|
---|
292 | ;;083
|
---|
293 | ;;084
|
---|
294 | ;;085
|
---|
295 | ;;086
|
---|
296 | ;;087
|
---|
297 | ;;088
|
---|
298 | ;;089
|
---|
299 | ;;090
|
---|
300 | ;;091
|
---|
301 | ;;092
|
---|
302 | ;;093
|
---|
303 | ;;094
|
---|
304 | ;;095
|
---|
305 | ;;096
|
---|
306 | ;;097
|
---|
307 | ;;098
|
---|
308 | ;;099
|
---|
309 | ;;
|
---|
310 | ;END OF ORG CODES
|
---|
Note:
See
TracBrowser
for help on using the repository browser.