Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPM5AFR

BGPM5AFR.m

Go to the documentation of this file.
BGPM5AFR ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+1
 F ATXI=1:1 S X=$P($T(TMP+ATXI),";;",2,99) Q:X=""  S X="^TMP(""ATX"",$J,"_X,ATXI=ATXI+1,Y=$P($T(TMP+ATXI),";;",2,99) S @X=Y
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;21,"00185012750 ")
 ;;4095
 ;;21,"00185014701 ")
 ;;4096
 ;;21,"00185014710 ")
 ;;4097
 ;;21,"00185014750 ")
 ;;4098
 ;;21,"00185015101 ")
 ;;4099
 ;;21,"00185015110 ")
 ;;4100
 ;;21,"00185015201 ")
 ;;4101
 ;;21,"00185015210 ")
 ;;4102
 ;;21,"00185017201 ")
 ;;4103
 ;;21,"00185017210 ")
 ;;4104
 ;;21,"00185017301 ")
 ;;4105
 ;;21,"00185017310 ")
 ;;4106
 ;;21,"00185021401 ")
 ;;4107
 ;;21,"00185021410 ")
 ;;4108
 ;;21,"00185021450 ")
 ;;4109
 ;;21,"00185034101 ")
 ;;4110
 ;;21,"00185034110 ")
 ;;4111
 ;;21,"00185034201 ")
 ;;4112
 ;;21,"00185034210 ")
 ;;4113
 ;;21,"00185047101 ")
 ;;4114
 ;;21,"00185047110 ")
 ;;4115
 ;;21,"00185540001 ")
 ;;4116
 ;;21,"00185540010 ")
 ;;4117
 ;;21,"00185540033 ")
 ;;4118
 ;;21,"00185710001 ")
 ;;4119
 ;;21,"00185710010 ")
 ;;4120
 ;;21,"00228269511 ")
 ;;4121
 ;;21,"00228269550 ")
 ;;4122
 ;;21,"00228269611 ")
 ;;4123
 ;;21,"00228269650 ")
 ;;4124
 ;;21,"00228269711 ")
 ;;4125
 ;;21,"00228269750 ")
 ;;4126
 ;;21,"00228270603 ")
 ;;4127
 ;;21,"00228270611 ")
 ;;4128
 ;;21,"00228270650 ")
 ;;4129
 ;;21,"00228270696 ")
 ;;4130
 ;;21,"00228270703 ")
 ;;4131
 ;;21,"00228270711 ")
 ;;4132
 ;;21,"00228270750 ")
 ;;4133
 ;;21,"00228270796 ")
 ;;4134
 ;;21,"00228270803 ")
 ;;4135
 ;;21,"00228270811 ")
 ;;4136
 ;;21,"00228270850 ")
 ;;4137
 ;;21,"00228270896 ")
 ;;4138
 ;;21,"00247127700 ")
 ;;4139
 ;;21,"00247163530 ")
 ;;4140
 ;;21,"00247163600 ")
 ;;4141
 ;;21,"00247163601 ")
 ;;4142
 ;;21,"00247163614 ")
 ;;4143
 ;;21,"00247163630 ")
 ;;4144
 ;;21,"00247163660 ")
 ;;4145
 ;;21,"00247163690 ")
 ;;4146
 ;;21,"00247163699 ")
 ;;4147
 ;;21,"00247163700 ")
 ;;4148
 ;;21,"00247163730 ")
 ;;4149
 ;;21,"00247163760 ")
 ;;4150
 ;;21,"00247188102 ")
 ;;4151
 ;;21,"00247188105 ")
 ;;4152
 ;;21,"00247188130 ")
 ;;4153
 ;;21,"00247188160 ")
 ;;4154
 ;;21,"00247188230 ")
 ;;4155
 ;;21,"00247188260 ")
 ;;4156
 ;;21,"00247188299 ")
 ;;4157
 ;;21,"00247200106 ")
 ;;4158
 ;;21,"00247200130 ")
 ;;4159
 ;;21,"00247202100 ")
 ;;4160
 ;;21,"00247202130 ")
 ;;4161
 ;;21,"00247202160 ")
 ;;4162
 ;;21,"00247205830 ")
 ;;4163
 ;;21,"00247210700 ")
 ;;4164
 ;;21,"00247210730 ")
 ;;4165
 ;;21,"00247210760 ")
 ;;4166
 ;;21,"00247210779 ")
 ;;4167
 ;;21,"00247210790 ")
 ;;4168
 ;;21,"00247215530 ")
 ;;4169
 ;;21,"00247215560 ")
 ;;4170
 ;;21,"00247215590 ")
 ;;4171
 ;;21,"00247217130 ")
 ;;4172
 ;;21,"00247223700 ")
 ;;4173
 ;;21,"00247223730 ")
 ;;4174
 ;;21,"00247230530 ")
 ;;4175
 ;;21,"00247230560 ")
 ;;4176
 ;;21,"00247230590 ")
 ;;4177
 ;;21,"00247230630 ")
 ;;4178
 ;;21,"00247230660 ")
 ;;4179
 ;;21,"00247230690 ")
 ;;4180
 ;;21,"00247231830 ")
 ;;4181
 ;;21,"00247231860 ")
 ;;4182
 ;;21,"00247231890 ")
 ;;4183
 ;;21,"00247232030 ")
 ;;4184
 ;;21,"00247232060 ")
 ;;4185
 ;;21,"00247232090 ")
 ;;4186
 ;;21,"00339522511 ")
 ;;4187
 ;;21,"00378001777 ")
 ;;4188
 ;;21,"00378008101 ")
 ;;4189
 ;;21,"00378008301 ")
 ;;4190
 ;;21,"00378008401 ")
 ;;4191
 ;;21,"00378008601 ")
 ;;4192
 ;;21,"00378022605 ")
 ;;4193
 ;;21,"00378022677 ")
 ;;4194
 ;;21,"00378025405 ")
 ;;4195
 ;;21,"00378025477 ")
 ;;4196
 ;;21,"00378027205 ")
 ;;4197
 ;;21,"00378027277 ")
 ;;4198
 ;;21,"00378054277 ")
 ;;4199
 ;;21,"00378054293 ")
 ;;4200
 ;;21,"00378054377 ")
 ;;4201
 ;;21,"00378054393 ")
 ;;4202
 ;;21,"00378054477 ")
 ;;4203
 ;;21,"00378054493 ")
 ;;4204
 ;;21,"00378071201 ")
 ;;4205
 ;;21,"00378072301 ")
 ;;4206
 ;;21,"00378072305 ")
 ;;4207
 ;;21,"00378101201 ")
 ;;4208
 ;;21,"00378101293 ")
 ;;4209
 ;;21,"00378105101 ")
 ;;4210
 ;;21,"00378105105 ")
 ;;4211
 ;;21,"00378105201 ")
 ;;4212
 ;;21,"00378105210 ")
 ;;4213
 ;;21,"00378105301 ")
 ;;4214
 ;;21,"00378105310 ")
 ;;4215
 ;;21,"00378105401 ")
 ;;4216
 ;;21,"00378105405 ")
 ;;4217
 ;;21,"00378111705 ")
 ;;4218
 ;;21,"00378111777 ")
 ;;4219
 ;;21,"00378201201 ")
 ;;4220
 ;;21,"00378201293 ")
 ;;4221
 ;;21,"00378202501 ")
 ;;4222
 ;;21,"00378202593 ")
 ;;4223
 ;;21,"00378207201 ")
 ;;4224
 ;;21,"00378207205 ")
 ;;4225
 ;;21,"00378207301 ")
 ;;4226
 ;;21,"00378207310 ")
 ;;4227
 ;;21,"00378207401 ")
 ;;4228
 ;;21,"00378207410 ")
 ;;4229
 ;;21,"00378207501 ")
 ;;4230
 ;;21,"00378207510 ")
 ;;4231
 ;;21,"00378207601 ")
 ;;4232
 ;;21,"00378207605 ")
 ;;4233
 ;;21,"00378207701 ")
 ;;4234
 ;;21,"00378207705 ")
 ;;4235
 ;;21,"00378300701 ")
 ;;4236
 ;;21,"00378300710 ")
 ;;4237
 ;;21,"00378301201 ")
 ;;4238
 ;;21,"00378301210 ")
 ;;4239
 ;;21,"00378301701 ")
 ;;4240
 ;;21,"00378301710 ")
 ;;4241
 ;;21,"00378302201 ")
 ;;4242
 ;;21,"00378324101 ")
 ;;4243
 ;;21,"00378324105 ")
 ;;4244
 ;;21,"00378324193 ")
 ;;4245
 ;;21,"00378324201 ")
 ;;4246
 ;;21,"00378324205 ")
 ;;4247
 ;;21,"00378324293 ")
 ;;4248
 ;;21,"00440723160 ")
 ;;4249
 ;;21,"00440723190 ")
 ;;4250
 ;;21,"00440723192 ")
 ;;4251
 ;;21,"00440723194 ")
 ;;4252
 ;;21,"00440723260 ")
 ;;4253
 ;;21,"00440723290 ")
 ;;4254
 ;;21,"00440723292 ")
 ;;4255
 ;;21,"00440723294 ")
 ;;4256
 ;;21,"00440767490 ")
 ;;4257
 ;;21,"00440767590 ")
 ;;4258
 ;;21,"00440767690 ")
 ;;4259
 ;;21,"00480104505 ")
 ;;4260
 ;;21,"00480104598 ")
 ;;4261
 ;;21,"00480105005 ")
 ;;4262
 ;;21,"00480105098 ")
 ;;4263
 ;;21,"00480105105 ")
 ;;4264
 ;;21,"00480105198 ")
 ;;4265
 ;;21,"00480105305 ")
 ;;4266
 ;;21,"00480105398 ")
 ;;4267
 ;;21,"00480111101 ")
 ;;4268
 ;;21,"00480111201 ")
 ;;4269
 ;;21,"00480111210 ")
 ;;4270
 ;;21,"00480111301 ")
 ;;4271
 ;;21,"00480111310 ")
 ;;4272
 ;;21,"00480111401 ")
 ;;4273
 ;;21,"00480111410 ")
 ;;4274
 ;;21,"00480111501 ")
 ;;4275
 ;;21,"00480111505 ")
 ;;4276
 ;;21,"00480515701 ")
 ;;4277
 ;;21,"00480722210 ")
 ;;4278
 ;;21,"00480722298 ")
 ;;4279
 ;;21,"00480722310 ")
 ;;4280
 ;;21,"00480722398 ")
 ;;4281
 ;;21,"00480722410 ")
 ;;4282
 ;;21,"00480722498 ")
 ;;4283
 ;;21,"00480732501 ")
 ;;4284
 ;;21,"00480732601 ")
 ;;4285
 ;;21,"00480743601 ")
 ;;4286
 ;;21,"00480743605 ")
 ;;4287
 ;;21,"00480743701 ")
 ;;4288
 ;;21,"00480743705 ")
 ;;4289
 ;;21,"00480743801 ")
 ;;4290
 ;;21,"00480743805 ")
 ;;4291
 ;;21,"00490006700 ")
 ;;4292
 ;;21,"00490006730 ")
 ;;4293
 ;;21,"00490006760 ")
 ;;4294
 ;;21,"00490006790 ")
 ;;4295
 ;;21,"00490022801 ")
 ;;4296
 ;;21,"00490022802 ")
 ;;4297
 ;;21,"00490022803 ")
 ;;4298
 ;;21,"00490022804 ")
 ;;4299
 ;;21,"00490022805 ")
 ;;4300
 ;;21,"00490024230 ")
 ;;4301
 ;;21,"00490703000 ")
 ;;4302
 ;;21,"00490703030 ")
 ;;4303
 ;;21,"00490703060 ")
 ;;4304
 ;;21,"00490703090 ")
 ;;4305
 ;;21,"00574011001 ")
 ;;4306
 ;;21,"00574011215 ")
 ;;4307
 ;;21,"00574013301 ")
 ;;4308
 ;;21,"00574013401 ")
 ;;4309
 ;;21,"00574013501 ")
 ;;4310
 ;;21,"00591040500 ")
 ;;4311
 ;;21,"00591040501 ")
 ;;4312
 ;;21,"00591040505 ")
 ;;4313
 ;;21,"00591040530 ")
 ;;4314
 ;;21,"00591040600 ")
 ;;4315
 ;;21,"00591040601 ")
 ;;4316
 ;;21,"00591040605 ")
 ;;4317
 ;;21,"00591040610 ")
 ;;4318
 ;;21,"00591040633 ")
 ;;4319
 ;;21,"00591040651 ")
 ;;4320
 ;;21,"00591040700 ")
 ;;4321
 ;;21,"00591040701 ")
 ;;4322
 ;;21,"00591040710 ")
 ;;4323
 ;;21,"00591040730 ")
 ;;4324
 ;;21,"00591040733 ")
 ;;4325
 ;;21,"00591040800 ")
 ;;4326
 ;;21,"00591040801 ")
 ;;4327
 ;;21,"00591040810 ")
 ;;4328
 ;;21,"00591040830 ")
 ;;4329
 ;;21,"00591040833 ")
 ;;4330
 ;;21,"00591040900 ")
 ;;4331
 ;;21,"00591040901 ")
 ;;4332
 ;;21,"00591040905 ")
 ;;4333
 ;;21,"00591040910 ")
 ;;4334
 ;;21,"00591040930 ")
 ;;4335
 ;;21,"00591040975 ")
 ;;4336
 ;;21,"00591066801 ")
 ;;4337
 ;;21,"00591066805 ")
 ;;4338
 ;;21,"00591066901 ")
 ;;4339
 ;;21,"00591066905 ")
 ;;4340
 ;;21,"00591067001 ")
 ;;4341
 ;;21,"00591067005 ")
 ;;4342
 ;;21,"00591067101 ")
 ;;4343
 ;;21,"00591067105 ")
 ;;4344
 ;;21,"00591067110 ")
 ;;4345
 ;;21,"00591086001 ")
 ;;4346
 ;;21,"00591086005 ")
 ;;4347
 ;;21,"00591086101 ")
 ;;4348
 ;;21,"00591086105 ")
 ;;4349
 ;;21,"00591086201 ")
 ;;4350
 ;;21,"00591086205 ")
 ;;4351
 ;;21,"00591088500 ")
 ;;4352
 ;;21,"00591088501 ")
 ;;4353
 ;;21,"00591088510 ")
 ;;4354
 ;;21,"00591088530 ")
 ;;4355
 ;;21,"00591088533 ")
 ;;4356
 ;;21,"00603255521 ")
 ;;4357
 ;;21,"00603255532 ")
 ;;4358
 ;;21,"00603255621 ")
 ;;4359
 ;;21,"00603255632 ")
 ;;4360
 ;;21,"00603255721 ")
 ;;4361
 ;;21,"00603255732 ")
 ;;4362
 ;;21,"00603255821 ")
 ;;4363
 ;;21,"00603420921 ")
 ;;4364
 ;;21,"00603420928 ")
 ;;4365
 ;;21,"00603421002 ")
 ;;4366
 ;;21,"00603421016 ")
 ;;4367
 ;;21,"00603421021 ")
 ;;4368
 ;;21,"00603421028 ")
 ;;4369
 ;;21,"00603421032 ")
 ;;4370
 ;;21,"00603421060 ")
 ;;4371
 ;;21,"00603421102 ")
 ;;4372
 ;;21,"00603421121 ")
 ;;4373
 ;;21,"00603421128 ")
 ;;4374
 ;;21,"00603421132 ")
 ;;4375
 ;;21,"00603421134 ")
 ;;4376
 ;;21,"00603421160 ")
 ;;4377
 ;;21,"00603421202 ")
 ;;4378
 ;;21,"00603421221 ")
 ;;4379
 ;;21,"00603421228 ")
 ;;4380
 ;;21,"00603421232 ")
 ;;4381
 ;;21,"00603421234 ")
 ;;4382
 ;;21,"00603421260 ")
 ;;4383
 ;;21,"00603421321 ")
 ;;4384
 ;;21,"00603421328 ")
 ;;4385
 ;;21,"00603421402 ")
 ;;4386
 ;;21,"00603421404 ")
 ;;4387
 ;;21,"00603421421 ")
 ;;4388
 ;;21,"00603421428 ")
 ;;4389
 ;;21,"00603421430 ")
 ;;4390
 ;;21,"00603421432 ")
 ;;4391
 ;;21,"00603421460 ")
 ;;4392
 ;;21,"00615451939 ")
 ;;4393
 ;;21,"00615452039 ")
 ;;4394
 ;;21,"00615452139 ")
 ;;4395
 ;;21,"00615458939 ")
 ;;4396
 ;;21,"00615459031 ")
 ;;4397
 ;;21,"00615459039 ")
 ;;4398
 ;;21,"00615459131 ")
 ;;4399
 ;;21,"00615459139 ")
 ;;4400
 ;;21,"00615459339 ")
 ;;4401
 ;;21,"00615552105 ")
 ;;4402
 ;;21,"00615552131 ")
 ;;4403
 ;;21,"00615552139 ")
 ;;4404
 ;;21,"00615553005 ")
 ;;4405
 ;;21,"00615553031 ")
 ;;4406
 ;;21,"00615553039 ")
 ;;4407
 ;;21,"00615553105 ")
 ;;4408
 ;;21,"00615553131 ")
 ;;4409
 ;;21,"00615553139 ")
 ;;4410
 ;;21,"00615553831 ")
 ;;4411
 ;;21,"00615553839 ")
 ;;4412
 ;;21,"00615553939 ")
 ;;4413
 ;;21,"00615554005 ")
 ;;4414
 ;;21,"00615554031 ")
 ;;4415
 ;;21,"00615554039 ")
 ;;4416
 ;;21,"00615757739 ")
 ;;4417
 ;;21,"00615758139 ")
 ;;4418
 ;;21,"00615758239 ")
 ;;4419
 ;;21,"00615763931 ")
 ;;4420
 ;;21,"00615763939 ")
 ;;4421
 ;;21,"00615764005 ")
 ;;4422
 ;;21,"00615764031 ")
 ;;4423
 ;;21,"00615764039 ")
 ;;4424
 ;;21,"00615764105 ")
 ;;4425
 ;;21,"00615764131 ")
 ;;4426
 ;;21,"00615764139 ")
 ;;4427
 ;;21,"00615764205 ")
 ;;4428
 ;;21,"00615764231 ")
 ;;4429
 ;;21,"00615764239 ")
 ;;4430
 ;;21,"00615764339 ")
 ;;4431
 ;;21,"00615764405 ")
 ;;4432
 ;;21,"00615764431 ")
 ;;4433
 ;;21,"00615764439 ")
 ;;4434
 ;;21,"00781117601 ")
 ;;4435
 ;;21,"00781117610 ")
 ;;4436
 ;;21,"00781117631 ")
 ;;4437
 ;;21,"00781117801 ")
 ;;4438
 ;;21,"00781117810 ")
 ;;4439
 ;;21,"00781117831 ")
 ;;4440
 ;;21,"00781166501 ")
 ;;4441
 ;;21,"00781166510 ")
 ;;4442
 ;;21,"00781166531 ")
 ;;4443
 ;;21,"00781166534 ")
 ;;4444
 ;;21,"00781166592 ")
 ;;4445
 ;;21,"00781166601 ")
 ;;4446