VistA-WorldVistAEHR/r/VOLUNTARY_TIMEKEEPING-ABSV/ABSVMLC1.m

ABSVMLC1 ;OAKLANDFO/DPC-VSS MIGRATION;8/20/2002
 ;;4.0;VOLUNTARY TIMEKEEPING;**31,33**;Jul 1994
 ;
SAVE ;Saves the list of orgs to Organization Code multiple in Migration Log file
 ;
 N ABSFDA,ABSIEN,ABSIENS,ORGCD
 D ABSIEN^ABSVMUT1 Q:'ABSIEN
 F I=1:1 S ORGCD=$P($T(ORGS+I),";;",2) Q:ORGCD=""  D
 . S ABSFDA(503339.53,"+"_I_","_ABSIEN_",",.01)=ORGCD
 D UPDATE^DIE("E","ABSFDA","ABSIENS")
 Q
 ;Loads IENS for national codes.
LDORGS ;
 N ABSIEN,ORGCD,I
 D ABSIEN^ABSVMUT1 Q:'ABSIEN
 K OCDS ;Array of IENs of valid org codes.
 S ORGCD=""
 F  S ORGCD=$O(^ABS(503339.5,ABSIEN,3,"B",ORGCD)) Q:ORGCD=""  D
 . N ORGIEN,FOUNDIEN
 . D FIND^DIC(503334,,"@","X",ORGCD,,"B",,,"FOUNDIEN")
 . F I=1:1 S ORGIEN=$G(FOUNDIEN("DILIST",2,I)) Q:ORGIEN=""  D
 . . S OCDS(ORGIEN)=""
 . . Q
 . Q
 Q
 ;
ORGS ;
 ;;100
 ;;101
 ;;102
 ;;103
 ;;104
 ;;105
 ;;106
 ;;107
 ;;108
 ;;109
 ;;110
 ;;111
 ;;112
 ;;113
 ;;114
 ;;115
 ;;116
 ;;117
 ;;118
 ;;119
 ;;120
 ;;121
 ;;122
 ;;123
 ;;124
 ;;126
 ;;127
 ;;128
 ;;129
 ;;130
 ;;131
 ;;132
 ;;133
 ;;134
 ;;135
 ;;136
 ;;137
 ;;138
 ;;139
 ;;140
 ;;141
 ;;142
 ;;143
 ;;144
 ;;145
 ;;146
 ;;147
 ;;148
 ;;149
 ;;150
 ;;151
 ;;152
 ;;153
 ;;154
 ;;155
 ;;156
 ;;157
 ;;158
 ;;159
 ;;160
 ;;161
 ;;162
 ;;163
 ;;164
 ;;165
 ;;166
 ;;167
 ;;168
 ;;169
 ;;170
 ;;171
 ;;172
 ;;173
 ;;174
 ;;175
 ;;176
 ;;177
 ;;178
 ;;179
 ;;180
 ;;181
 ;;182
 ;;183
 ;;184
 ;;185
 ;;186
 ;;187
 ;;188
 ;;189
 ;;190
 ;;191
 ;;192
 ;;193
 ;;194
 ;;195
 ;;196
 ;;197
 ;;198
 ;;199
 ;;200
 ;;201
 ;;202
 ;;203
 ;;204
 ;;205
 ;;206
 ;;207
 ;;208
 ;;209
 ;;210
 ;;211
 ;;212
 ;;213
 ;;214
 ;;215
 ;;216
 ;;217
 ;;218
 ;;220
 ;;221
 ;;222
 ;;223
 ;;224
 ;;225
 ;;226
 ;;227
 ;;228
 ;;229
 ;;230
 ;;231
 ;;232
 ;;233
 ;;234
 ;;235
 ;;236
 ;;237
 ;;238
 ;;239
 ;;240
 ;;241
 ;;242
 ;;243
 ;;244
 ;;245
 ;;246
 ;;247
 ;;248
 ;;249
 ;;250
 ;;251
 ;;252
 ;;253
 ;;254
 ;;255
 ;;256
 ;;257
 ;;258
 ;;259
 ;;260
 ;;261
 ;;262
 ;;263
 ;;264
 ;;265
 ;;266
 ;;267
 ;;268
 ;;269
 ;;270
 ;;271
 ;;272
 ;;274
 ;;275
 ;;276
 ;;277
 ;;278
 ;;279
 ;;280
 ;;281
 ;;282
 ;;283
 ;;284
 ;;286
 ;;301
 ;;303
 ;;305
 ;;307
 ;;309
 ;;311
 ;;313
 ;;315
 ;;317
 ;;318
 ;;319
 ;;320
 ;;321
 ;;322
 ;;323
 ;;324
 ;;325
 ;;400
 ;;401
 ;;001
 ;;002
 ;;003
 ;;004
 ;;005
 ;;006
 ;;007
 ;;008
 ;;009
 ;;010
 ;;011
 ;;012
 ;;013
 ;;014
 ;;015
 ;;016
 ;;017
 ;;018
 ;;019
 ;;020
 ;;021
 ;;022
 ;;023
 ;;024
 ;;025
 ;;026
 ;;027
 ;;028
 ;;029
 ;;030
 ;;031
 ;;032
 ;;033
 ;;034
 ;;035
 ;;036
 ;;037
 ;;038
 ;;039
 ;;040
 ;;041
 ;;042
 ;;043
 ;;044
 ;;045
 ;;046
 ;;057
 ;;058
 ;;059
 ;;060
 ;;061
 ;;062
 ;;063
 ;;064
 ;;065
 ;;066
 ;;067
 ;;078
 ;;079
 ;;080
 ;;081
 ;;082
 ;;083
 ;;084
 ;;085
 ;;086
 ;;087
 ;;088
 ;;089
 ;;090
 ;;091
 ;;092
 ;;093
 ;;094
 ;;095
 ;;096
 ;;097
 ;;098
 ;;099
 ;;
 ;END OF ORG CODES