source: FOIAVistA/trunk/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVMLC1.m

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

initial load of FOIAVistA 6/30/08 version
File size: 2.7 KB
Line 
1ABSVMLC1 ;OAKLANDFO/DPC-VSS MIGRATION;8/20/2002
2 ;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
3 ;
4SAVE ;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.
13LDORGS ;
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 ;
27ORGS ;
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.