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