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

BGPM5BBA.m

Go to the documentation of this file.
BGPM5BBA ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 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,"58016086290 ")
 ;;4059
 ;;21,"58016086600 ")
 ;;4060
 ;;21,"58016086602 ")
 ;;4061
 ;;21,"58016086610 ")
 ;;4062
 ;;21,"58016086612 ")
 ;;4063
 ;;21,"58016086615 ")
 ;;4064
 ;;21,"58016086620 ")
 ;;4065
 ;;21,"58016086630 ")
 ;;4066
 ;;21,"58016086660 ")
 ;;4067
 ;;21,"58016086690 ")
 ;;4068
 ;;21,"58016087500 ")
 ;;4069
 ;;21,"58016087501 ")
 ;;4070
 ;;21,"58016087502 ")
 ;;4071
 ;;21,"58016087503 ")
 ;;4072
 ;;21,"58016087504 ")
 ;;4073
 ;;21,"58016087505 ")
 ;;4074
 ;;21,"58016087506 ")
 ;;4075
 ;;21,"58016087507 ")
 ;;4076
 ;;21,"58016087508 ")
 ;;4077
 ;;21,"58016087509 ")
 ;;4078
 ;;21,"58016087510 ")
 ;;4079
 ;;21,"58016087512 ")
 ;;4080
 ;;21,"58016087514 ")
 ;;4081
 ;;21,"58016087515 ")
 ;;4082
 ;;21,"58016087516 ")
 ;;4083
 ;;21,"58016087517 ")
 ;;4084
 ;;21,"58016087518 ")
 ;;4085
 ;;21,"58016087520 ")
 ;;4086
 ;;21,"58016087521 ")
 ;;4087
 ;;21,"58016087524 ")
 ;;4088
 ;;21,"58016087525 ")
 ;;4089
 ;;21,"58016087526 ")
 ;;4090
 ;;21,"58016087527 ")
 ;;4091
 ;;21,"58016087528 ")
 ;;4092
 ;;21,"58016087530 ")
 ;;4093
 ;;21,"58016087532 ")
 ;;4094
 ;;21,"58016087535 ")
 ;;4095
 ;;21,"58016087536 ")
 ;;4096
 ;;21,"58016087540 ")
 ;;4097
 ;;21,"58016087542 ")
 ;;4098
 ;;21,"58016087544 ")
 ;;4099
 ;;21,"58016087545 ")
 ;;4100
 ;;21,"58016087548 ")
 ;;4101
 ;;21,"58016087550 ")
 ;;4102
 ;;21,"58016087556 ")
 ;;4103
 ;;21,"58016087560 ")
 ;;4104
 ;;21,"58016087567 ")
 ;;4105
 ;;21,"58016087569 ")
 ;;4106
 ;;21,"58016087570 ")
 ;;4107
 ;;21,"58016087571 ")
 ;;4108
 ;;21,"58016087572 ")
 ;;4109
 ;;21,"58016087573 ")
 ;;4110
 ;;21,"58016087575 ")
 ;;4111
 ;;21,"58016087576 ")
 ;;4112
 ;;21,"58016087577 ")
 ;;4113
 ;;21,"58016087579 ")
 ;;4114
 ;;21,"58016087580 ")
 ;;4115
 ;;21,"58016087581 ")
 ;;4116
 ;;21,"58016087582 ")
 ;;4117
 ;;21,"58016087583 ")
 ;;4118
 ;;21,"58016087584 ")
 ;;4119
 ;;21,"58016087587 ")
 ;;4120
 ;;21,"58016087589 ")
 ;;4121
 ;;21,"58016087590 ")
 ;;4122
 ;;21,"58016087591 ")
 ;;4123
 ;;21,"58016087592 ")
 ;;4124
 ;;21,"58016087593 ")
 ;;4125
 ;;21,"58016087596 ")
 ;;4126
 ;;21,"58016087597 ")
 ;;4127
 ;;21,"58016087598 ")
 ;;4128
 ;;21,"58016087599 ")
 ;;4129
 ;;21,"58016088000 ")
 ;;4130
 ;;21,"58016088012 ")
 ;;4131
 ;;21,"58016088015 ")
 ;;4132
 ;;21,"58016088020 ")
 ;;4133
 ;;21,"58016088030 ")
 ;;4134
 ;;21,"58016089400 ")
 ;;4135
 ;;21,"58016089401 ")
 ;;4136
 ;;21,"58016089402 ")
 ;;4137
 ;;21,"58016089403 ")
 ;;4138
 ;;21,"58016089404 ")
 ;;4139
 ;;21,"58016089405 ")
 ;;4140
 ;;21,"58016089406 ")
 ;;4141
 ;;21,"58016089407 ")
 ;;4142
 ;;21,"58016089408 ")
 ;;4143
 ;;21,"58016089409 ")
 ;;4144
 ;;21,"58016089410 ")
 ;;4145
 ;;21,"58016089412 ")
 ;;4146
 ;;21,"58016089414 ")
 ;;4147
 ;;21,"58016089415 ")
 ;;4148
 ;;21,"58016089416 ")
 ;;4149
 ;;21,"58016089418 ")
 ;;4150
 ;;21,"58016089420 ")
 ;;4151
 ;;21,"58016089421 ")
 ;;4152
 ;;21,"58016089424 ")
 ;;4153
 ;;21,"58016089425 ")
 ;;4154
 ;;21,"58016089426 ")
 ;;4155
 ;;21,"58016089427 ")
 ;;4156
 ;;21,"58016089428 ")
 ;;4157
 ;;21,"58016089430 ")
 ;;4158
 ;;21,"58016089432 ")
 ;;4159
 ;;21,"58016089435 ")
 ;;4160
 ;;21,"58016089436 ")
 ;;4161
 ;;21,"58016089440 ")
 ;;4162
 ;;21,"58016089442 ")
 ;;4163
 ;;21,"58016089444 ")
 ;;4164
 ;;21,"58016089445 ")
 ;;4165
 ;;21,"58016089448 ")
 ;;4166
 ;;21,"58016089450 ")
 ;;4167
 ;;21,"58016089456 ")
 ;;4168
 ;;21,"58016089460 ")
 ;;4169
 ;;21,"58016089467 ")
 ;;4170
 ;;21,"58016089469 ")
 ;;4171
 ;;21,"58016089470 ")
 ;;4172
 ;;21,"58016089471 ")
 ;;4173
 ;;21,"58016089472 ")
 ;;4174
 ;;21,"58016089473 ")
 ;;4175
 ;;21,"58016089475 ")
 ;;4176
 ;;21,"58016089476 ")
 ;;4177
 ;;21,"58016089477 ")
 ;;4178
 ;;21,"58016089479 ")
 ;;4179
 ;;21,"58016089480 ")
 ;;4180
 ;;21,"58016089481 ")
 ;;4181
 ;;21,"58016089482 ")
 ;;4182
 ;;21,"58016089483 ")
 ;;4183
 ;;21,"58016089484 ")
 ;;4184
 ;;21,"58016089487 ")
 ;;4185
 ;;21,"58016089489 ")
 ;;4186
 ;;21,"58016089490 ")
 ;;4187
 ;;21,"58016089491 ")
 ;;4188
 ;;21,"58016089492 ")
 ;;4189
 ;;21,"58016089493 ")
 ;;4190
 ;;21,"58016089496 ")
 ;;4191
 ;;21,"58016089497 ")
 ;;4192
 ;;21,"58016089498 ")
 ;;4193
 ;;21,"58016089499 ")
 ;;4194
 ;;21,"58016090500 ")
 ;;4195
 ;;21,"58016090501 ")
 ;;4196
 ;;21,"58016090502 ")
 ;;4197
 ;;21,"58016090503 ")
 ;;4198
 ;;21,"58016090504 ")
 ;;4199
 ;;21,"58016090505 ")
 ;;4200
 ;;21,"58016090506 ")
 ;;4201
 ;;21,"58016090507 ")
 ;;4202
 ;;21,"58016090508 ")
 ;;4203
 ;;21,"58016090509 ")
 ;;4204
 ;;21,"58016090510 ")
 ;;4205
 ;;21,"58016090512 ")
 ;;4206
 ;;21,"58016090514 ")
 ;;4207
 ;;21,"58016090515 ")
 ;;4208
 ;;21,"58016090516 ")
 ;;4209
 ;;21,"58016090518 ")
 ;;4210
 ;;21,"58016090520 ")
 ;;4211
 ;;21,"58016090521 ")
 ;;4212
 ;;21,"58016090524 ")
 ;;4213
 ;;21,"58016090525 ")
 ;;4214
 ;;21,"58016090526 ")
 ;;4215
 ;;21,"58016090527 ")
 ;;4216
 ;;21,"58016090528 ")
 ;;4217
 ;;21,"58016090530 ")
 ;;4218
 ;;21,"58016090532 ")
 ;;4219
 ;;21,"58016090535 ")
 ;;4220
 ;;21,"58016090536 ")
 ;;4221
 ;;21,"58016090540 ")
 ;;4222
 ;;21,"58016090542 ")
 ;;4223
 ;;21,"58016090544 ")
 ;;4224
 ;;21,"58016090545 ")
 ;;4225
 ;;21,"58016090548 ")
 ;;4226
 ;;21,"58016090550 ")
 ;;4227
 ;;21,"58016090556 ")
 ;;4228
 ;;21,"58016090560 ")
 ;;4229
 ;;21,"58016090567 ")
 ;;4230
 ;;21,"58016090569 ")
 ;;4231
 ;;21,"58016090570 ")
 ;;4232
 ;;21,"58016090571 ")
 ;;4233
 ;;21,"58016090572 ")
 ;;4234
 ;;21,"58016090573 ")
 ;;4235
 ;;21,"58016090575 ")
 ;;4236
 ;;21,"58016090576 ")
 ;;4237
 ;;21,"58016090577 ")
 ;;4238
 ;;21,"58016090579 ")
 ;;4239
 ;;21,"58016090580 ")
 ;;4240
 ;;21,"58016090581 ")
 ;;4241
 ;;21,"58016090582 ")
 ;;4242
 ;;21,"58016090583 ")
 ;;4243
 ;;21,"58016090584 ")
 ;;4244
 ;;21,"58016090587 ")
 ;;4245
 ;;21,"58016090589 ")
 ;;4246
 ;;21,"58016090590 ")
 ;;4247
 ;;21,"58016090591 ")
 ;;4248
 ;;21,"58016090592 ")
 ;;4249
 ;;21,"58016090593 ")
 ;;4250
 ;;21,"58016090596 ")
 ;;4251
 ;;21,"58016090597 ")
 ;;4252
 ;;21,"58016090598 ")
 ;;4253
 ;;21,"58016090599 ")
 ;;4254
 ;;21,"58016090600 ")
 ;;4255
 ;;21,"58016090601 ")
 ;;4256
 ;;21,"58016090602 ")
 ;;4257
 ;;21,"58016090603 ")
 ;;4258
 ;;21,"58016090604 ")
 ;;4259
 ;;21,"58016090605 ")
 ;;4260
 ;;21,"58016090606 ")
 ;;4261
 ;;21,"58016090607 ")
 ;;4262
 ;;21,"58016090608 ")
 ;;4263
 ;;21,"58016090609 ")
 ;;4264
 ;;21,"58016090610 ")
 ;;4265
 ;;21,"58016090612 ")
 ;;4266
 ;;21,"58016090614 ")
 ;;4267
 ;;21,"58016090615 ")
 ;;4268
 ;;21,"58016090616 ")
 ;;4269
 ;;21,"58016090618 ")
 ;;4270
 ;;21,"58016090620 ")
 ;;4271
 ;;21,"58016090621 ")
 ;;4272
 ;;21,"58016090624 ")
 ;;4273
 ;;21,"58016090625 ")
 ;;4274
 ;;21,"58016090626 ")
 ;;4275
 ;;21,"58016090627 ")
 ;;4276
 ;;21,"58016090628 ")
 ;;4277
 ;;21,"58016090630 ")
 ;;4278
 ;;21,"58016090632 ")
 ;;4279
 ;;21,"58016090635 ")
 ;;4280
 ;;21,"58016090636 ")
 ;;4281
 ;;21,"58016090640 ")
 ;;4282
 ;;21,"58016090642 ")
 ;;4283
 ;;21,"58016090644 ")
 ;;4284
 ;;21,"58016090645 ")
 ;;4285
 ;;21,"58016090648 ")
 ;;4286
 ;;21,"58016090650 ")
 ;;4287
 ;;21,"58016090656 ")
 ;;4288
 ;;21,"58016090660 ")
 ;;4289
 ;;21,"58016090667 ")
 ;;4290
 ;;21,"58016090669 ")
 ;;4291
 ;;21,"58016090670 ")
 ;;4292
 ;;21,"58016090671 ")
 ;;4293
 ;;21,"58016090672 ")
 ;;4294
 ;;21,"58016090673 ")
 ;;4295
 ;;21,"58016090675 ")
 ;;4296
 ;;21,"58016090676 ")
 ;;4297
 ;;21,"58016090677 ")
 ;;4298
 ;;21,"58016090679 ")
 ;;4299
 ;;21,"58016090680 ")
 ;;4300
 ;;21,"58016090681 ")
 ;;4301
 ;;21,"58016090682 ")
 ;;4302
 ;;21,"58016090683 ")
 ;;4303
 ;;21,"58016090684 ")
 ;;4304
 ;;21,"58016090687 ")
 ;;4305
 ;;21,"58016090689 ")
 ;;4306
 ;;21,"58016090690 ")
 ;;4307
 ;;21,"58016090691 ")
 ;;4308
 ;;21,"58016090692 ")
 ;;4309
 ;;21,"58016090693 ")
 ;;4310
 ;;21,"58016090696 ")
 ;;4311
 ;;21,"58016090697 ")
 ;;4312
 ;;21,"58016090698 ")
 ;;4313
 ;;21,"58016090699 ")
 ;;4314
 ;;21,"58016094500 ")
 ;;4315
 ;;21,"58016094512 ")
 ;;4316
 ;;21,"58016094515 ")
 ;;4317
 ;;21,"58016094520 ")
 ;;4318
 ;;21,"58016094530 ")
 ;;4319
 ;;21,"58016098600 ")
 ;;4320
 ;;21,"58016098601 ")
 ;;4321
 ;;21,"58016098602 ")
 ;;4322
 ;;21,"58016098603 ")
 ;;4323
 ;;21,"58016098604 ")
 ;;4324
 ;;21,"58016098605 ")
 ;;4325
 ;;21,"58016098606 ")
 ;;4326
 ;;21,"58016098607 ")
 ;;4327
 ;;21,"58016098608 ")
 ;;4328
 ;;21,"58016098609 ")
 ;;4329
 ;;21,"58016098610 ")
 ;;4330
 ;;21,"58016098612 ")
 ;;4331
 ;;21,"58016098614 ")
 ;;4332
 ;;21,"58016098615 ")
 ;;4333
 ;;21,"58016098616 ")
 ;;4334
 ;;21,"58016098618 ")
 ;;4335
 ;;21,"58016098620 ")
 ;;4336
 ;;21,"58016098621 ")
 ;;4337
 ;;21,"58016098624 ")
 ;;4338
 ;;21,"58016098625 ")
 ;;4339
 ;;21,"58016098626 ")
 ;;4340
 ;;21,"58016098627 ")
 ;;4341
 ;;21,"58016098628 ")
 ;;4342
 ;;21,"58016098630 ")
 ;;4343
 ;;21,"58016098632 ")
 ;;4344
 ;;21,"58016098635 ")
 ;;4345
 ;;21,"58016098636 ")
 ;;4346
 ;;21,"58016098640 ")
 ;;4347
 ;;21,"58016098642 ")
 ;;4348
 ;;21,"58016098644 ")
 ;;4349
 ;;21,"58016098645 ")
 ;;4350
 ;;21,"58016098648 ")
 ;;4351
 ;;21,"58016098650 ")
 ;;4352
 ;;21,"58016098656 ")
 ;;4353
 ;;21,"58016098660 ")
 ;;4354
 ;;21,"58016098667 ")
 ;;4355
 ;;21,"58016098669 ")
 ;;4356
 ;;21,"58016098670 ")
 ;;4357
 ;;21,"58016098671 ")
 ;;4358
 ;;21,"58016098672 ")
 ;;4359
 ;;21,"58016098673 ")
 ;;4360
 ;;21,"58016098675 ")
 ;;4361
 ;;21,"58016098676 ")
 ;;4362
 ;;21,"58016098677 ")
 ;;4363
 ;;21,"58016098679 ")
 ;;4364
 ;;21,"58016098680 ")
 ;;4365
 ;;21,"58016098681 ")
 ;;4366
 ;;21,"58016098682 ")
 ;;4367
 ;;21,"58016098683 ")
 ;;4368
 ;;21,"58016098684 ")
 ;;4369
 ;;21,"58016098687 ")
 ;;4370
 ;;21,"58016098689 ")
 ;;4371
 ;;21,"58016098690 ")
 ;;4372
 ;;21,"58016098691 ")
 ;;4373
 ;;21,"58016098692 ")
 ;;4374
 ;;21,"58016098693 ")
 ;;4375
 ;;21,"58016098696 ")
 ;;4376
 ;;21,"58016098697 ")
 ;;4377
 ;;21,"58016098698 ")
 ;;4378
 ;;21,"58016482501 ")
 ;;4379
 ;;21,"58016482601 ")
 ;;4380
 ;;21,"58087000311 ")
 ;;4381
 ;;21,"58087000330 ")
 ;;4382
 ;;21,"58864002215 ")
 ;;4383
 ;;21,"58864002230 ")
 ;;4384
 ;;21,"58864002260 ")
 ;;4385
 ;;21,"58864002290 ")
 ;;4386
 ;;21,"58864002330 ")
 ;;4387
 ;;21,"58864002360 ")
 ;;4388
 ;;21,"58864002390 ")
 ;;4389
 ;;21,"58864002430 ")
 ;;4390
 ;;21,"58864002501 ")
 ;;4391
 ;;21,"58864002514 ")
 ;;4392
 ;;21,"58864002530 ")
 ;;4393
 ;;21,"58864002560 ")
 ;;4394
 ;;21,"58864010315 ")
 ;;4395
 ;;21,"58864010330 ")
 ;;4396
 ;;21,"58864010360 ")
 ;;4397
 ;;21,"58864029230 ")
 ;;4398
 ;;21,"58864070830 ")
 ;;4399
 ;;21,"58864071615 ")
 ;;4400
 ;;21,"58864071630 ")
 ;;4401
 ;;21,"58864074115 ")
 ;;4402
 ;;21,"58864074130 ")
 ;;4403
 ;;21,"58864075730 ")
 ;;4404
 ;;21,"58864078330 ")
 ;;4405
 ;;21,"58864081215 ")
 ;;4406
 ;;21,"58864081230 ")
 ;;4407
 ;;21,"58864082315 ")
 ;;4408
 ;;21,"58864082330 ")
 ;;4409
 ;;21,"58864087714 ")
 ;;4410