Last change
on this file since 691 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
2.7 KB
|
Rev | Line | |
---|
[613] | 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.