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

BGPM5AIP.m

Go to the documentation of this file.
BGPM5AIP ;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,"23490509601 ")
 ;;251
 ;;21,"23490509602 ")
 ;;252
 ;;21,"23490509603 ")
 ;;253
 ;;21,"23490509701 ")
 ;;254
 ;;21,"23490509702 ")
 ;;255
 ;;21,"23490509703 ")
 ;;256
 ;;21,"23490509801 ")
 ;;257
 ;;21,"23490509802 ")
 ;;258
 ;;21,"23490592000 ")
 ;;259
 ;;21,"23490592001 ")
 ;;260
 ;;21,"23490592101 ")
 ;;261
 ;;21,"23490592102 ")
 ;;262
 ;;21,"23490620303 ")
 ;;263
 ;;21,"23490620306 ")
 ;;264
 ;;21,"23490620309 ")
 ;;265
 ;;21,"23490650303 ")
 ;;266
 ;;21,"23490650403 ")
 ;;267
 ;;21,"23490650406 ")
 ;;268
 ;;21,"23490650409 ")
 ;;269
 ;;21,"23490786103 ")
 ;;270
 ;;21,"24090047088 ")
 ;;271
 ;;21,"24090047188 ")
 ;;272
 ;;21,"24090047388 ")
 ;;273
 ;;21,"24090047988 ")
 ;;274
 ;;21,"24196054901 ")
 ;;275
 ;;21,"24196054905 ")
 ;;276
 ;;21,"24196055001 ")
 ;;277
 ;;21,"24196055005 ")
 ;;278
 ;;21,"24196055101 ")
 ;;279
 ;;21,"24196056801 ")
 ;;280
 ;;21,"24196056810 ")
 ;;281
 ;;21,"24196058001 ")
 ;;282
 ;;21,"24196058010 ")
 ;;283
 ;;21,"24196058101 ")
 ;;284
 ;;21,"24196058110 ")
 ;;285
 ;;21,"24196074430 ")
 ;;286
 ;;21,"24200074051 ")
 ;;287
 ;;21,"24236001402 ")
 ;;288
 ;;21,"24236009002 ")
 ;;289
 ;;21,"24236011202 ")
 ;;290
 ;;21,"24236016202 ")
 ;;291
 ;;21,"24236017602 ")
 ;;292
 ;;21,"24236017902 ")
 ;;293
 ;;21,"24236018502 ")
 ;;294
 ;;21,"24236019502 ")
 ;;295
 ;;21,"24236022002 ")
 ;;296
 ;;21,"24236024302 ")
 ;;297
 ;;21,"24236031802 ")
 ;;298
 ;;21,"24236037002 ")
 ;;299
 ;;21,"24236037402 ")
 ;;300
 ;;21,"24236040302 ")
 ;;301
 ;;21,"24236042802 ")
 ;;302
 ;;21,"24236044302 ")
 ;;303
 ;;21,"24236055302 ")
 ;;304
 ;;21,"24236068802 ")
 ;;305
 ;;21,"24236069802 ")
 ;;306
 ;;21,"24236069902 ")
 ;;307
 ;;21,"24236090102 ")
 ;;308
 ;;21,"24236090702 ")
 ;;309
 ;;21,"24236093402 ")
 ;;310
 ;;21,"25021030020 ")
 ;;311
 ;;21,"25021030040 ")
 ;;312
 ;;21,"25021030305 ")
 ;;313
 ;;21,"26053007201 ")
 ;;314
 ;;21,"26053024001 ")
 ;;315
 ;;21,"29300012601 ")
 ;;316
 ;;21,"29300012613 ")
 ;;317
 ;;21,"29300012701 ")
 ;;318
 ;;21,"29300012713 ")
 ;;319
 ;;21,"29300018701 ")
 ;;320
 ;;21,"29300018705 ")
 ;;321
 ;;21,"29300018713 ")
 ;;322
 ;;21,"29300018801 ")
 ;;323
 ;;21,"29300018805 ")
 ;;324
 ;;21,"29300018813 ")
 ;;325
 ;;21,"29300018901 ")
 ;;326
 ;;21,"29300018905 ")
 ;;327
 ;;21,"29300018913 ")
 ;;328
 ;;21,"33358003700 ")
 ;;329
 ;;21,"33358003730 ")
 ;;330
 ;;21,"33358003760 ")
 ;;331
 ;;21,"33358003800 ")
 ;;332
 ;;21,"33358003830 ")
 ;;333
 ;;21,"33358003860 ")
 ;;334
 ;;21,"33358003890 ")
 ;;335
 ;;21,"33358003900 ")
 ;;336
 ;;21,"33358003930 ")
 ;;337
 ;;21,"33358019230 ")
 ;;338
 ;;21,"33358019330 ")
 ;;339
 ;;21,"33358019430 ")
 ;;340
 ;;21,"33358024200 ")
 ;;341
 ;;21,"33358024201 ")
 ;;342
 ;;21,"33358024230 ")
 ;;343
 ;;21,"33358024260 ")
 ;;344
 ;;21,"33358024290 ")
 ;;345
 ;;21,"33358024300 ")
 ;;346
 ;;21,"33358024330 ")
 ;;347
 ;;21,"35356036260 ")
 ;;348
 ;;21,"35356041530 ")
 ;;349
 ;;21,"42291017190 ")
 ;;350
 ;;21,"42291017290 ")
 ;;351
 ;;21,"42291017390 ")
 ;;352
 ;;21,"42806003801 ")
 ;;353
 ;;21,"42806003810 ")
 ;;354
 ;;21,"42806003901 ")
 ;;355
 ;;21,"42806003910 ")
 ;;356
 ;;21,"43063000601 ")
 ;;357
 ;;21,"43063006201 ")
 ;;358
 ;;21,"43063006401 ")
 ;;359
 ;;21,"43063006406 ")
 ;;360
 ;;21,"43063013430 ")
 ;;361
 ;;21,"43063013490 ")
 ;;362
 ;;21,"43063013590 ")
 ;;363
 ;;21,"43063063090 ")
 ;;364
 ;;21,"43353014930 ")
 ;;365
 ;;21,"43353014960 ")
 ;;366
 ;;21,"43353019230 ")
 ;;367
 ;;21,"43353019260 ")
 ;;368
 ;;21,"43353021060 ")
 ;;369
 ;;21,"43353035160 ")
 ;;370
 ;;21,"43353036060 ")
 ;;371
 ;;21,"43353037660 ")
 ;;372
 ;;21,"43353039845 ")
 ;;373
 ;;21,"43353039860 ")
 ;;374
 ;;21,"43353039960 ")
 ;;375
 ;;21,"43353044860 ")
 ;;376
 ;;21,"43353047530 ")
 ;;377
 ;;21,"43353050860 ")
 ;;378
 ;;21,"43353057645 ")
 ;;379
 ;;21,"43353057653 ")
 ;;380
 ;;21,"43353057660 ")
 ;;381
 ;;21,"43353057670 ")
 ;;382
 ;;21,"43353057680 ")
 ;;383
 ;;21,"43353057692 ")
 ;;384
 ;;21,"43353070160 ")
 ;;385
 ;;21,"43353070660 ")
 ;;386
 ;;21,"43478090088 ")
 ;;387
 ;;21,"43478090188 ")
 ;;388
 ;;21,"43478090288 ")
 ;;389
 ;;21,"43478090388 ")
 ;;390
 ;;21,"43683014230 ")
 ;;391
 ;;21,"43683014330 ")
 ;;392
 ;;21,"43683014430 ")
 ;;393
 ;;21,"43683014630 ")
 ;;394
 ;;21,"43806003940 ")
 ;;395
 ;;21,"43806003970 ")
 ;;396
 ;;21,"43806003980 ")
 ;;397
 ;;21,"43806008840 ")
 ;;398
 ;;21,"43806008870 ")
 ;;399
 ;;21,"43806009340 ")
 ;;400
 ;;21,"43806009370 ")
 ;;401
 ;;21,"43806040140 ")
 ;;402
 ;;21,"43806040170 ")
 ;;403
 ;;21,"43806040180 ")
 ;;404
 ;;21,"43806057027 ")
 ;;405
 ;;21,"43806057127 ")
 ;;406
 ;;21,"43806072740 ")
 ;;407
 ;;21,"43806072770 ")
 ;;408
 ;;21,"43806072780 ")
 ;;409
 ;;21,"43806073440 ")
 ;;410
 ;;21,"43806073470 ")
 ;;411
 ;;21,"43806073480 ")
 ;;412
 ;;21,"43806096140 ")
 ;;413
 ;;21,"43806097240 ")
 ;;414
 ;;21,"43806097270 ")
 ;;415
 ;;21,"43806098440 ")
 ;;416
 ;;21,"44514051418 ")
 ;;417
 ;;21,"44514051518 ")
 ;;418
 ;;21,"44514087618 ")
 ;;419
 ;;21,"44514088518 ")
 ;;420
 ;;21,"45868417900 ")
 ;;421
 ;;21,"49349005702 ")
 ;;422
 ;;21,"49349010002 ")
 ;;423
 ;;21,"49349016602 ")
 ;;424
 ;;21,"49349017602 ")
 ;;425
 ;;21,"49349017624 ")
 ;;426
 ;;21,"49349018002 ")
 ;;427
 ;;21,"49349018020 ")
 ;;428
 ;;21,"49349018502 ")
 ;;429
 ;;21,"49349018602 ")
 ;;430
 ;;21,"49349019002 ")
 ;;431
 ;;21,"49349022702 ")
 ;;432
 ;;21,"49349023502 ")
 ;;433
 ;;21,"49349027802 ")
 ;;434
 ;;21,"49349028002 ")
 ;;435
 ;;21,"49349031502 ")
 ;;436
 ;;21,"49349035002 ")
 ;;437
 ;;21,"49856071700 ")
 ;;438
 ;;21,"49856071701 ")
 ;;439
 ;;21,"49856071702 ")
 ;;440
 ;;21,"49856071703 ")
 ;;441
 ;;21,"49884028201 ")
 ;;442
 ;;21,"49884028210 ")
 ;;443
 ;;21,"49884032801 ")
 ;;444
 ;;21,"49884032810 ")
 ;;445
 ;;21,"49884032901 ")
 ;;446
 ;;21,"49884032910 ")
 ;;447
 ;;21,"49884033001 ")
 ;;448
 ;;21,"49884033010 ")
 ;;449
 ;;21,"49884045600 ")
 ;;450
 ;;21,"49884045601 ")
 ;;451
 ;;21,"49884045610 ")
 ;;452
 ;;21,"49884045701 ")
 ;;453
 ;;21,"49884045710 ")
 ;;454
 ;;21,"49884094401 ")
 ;;455
 ;;21,"49884094410 ")
 ;;456
 ;;21,"49999001000 ")
 ;;457
 ;;21,"49999001030 ")
 ;;458
 ;;21,"49999001040 ")
 ;;459
 ;;21,"49999001060 ")
 ;;460
 ;;21,"49999010400 ")
 ;;461
 ;;21,"49999010430 ")
 ;;462
 ;;21,"49999010460 ")
 ;;463
 ;;21,"49999010490 ")
 ;;464
 ;;21,"49999017800 ")
 ;;465
 ;;21,"49999017830 ")
 ;;466
 ;;21,"49999020130 ")
 ;;467
 ;;21,"49999020230 ")
 ;;468
 ;;21,"49999022600 ")
 ;;469
 ;;21,"49999022630 ")
 ;;470
 ;;21,"49999022660 ")
 ;;471
 ;;21,"49999028660 ")
 ;;472
 ;;21,"49999045400 ")
 ;;473
 ;;21,"49999045410 ")
 ;;474
 ;;21,"49999045430 ")
 ;;475
 ;;21,"49999045460 ")
 ;;476
 ;;21,"49999045490 ")
 ;;477
 ;;21,"49999048230 ")
 ;;478
 ;;21,"49999048300 ")
 ;;479
 ;;21,"49999048330 ")
 ;;480
 ;;21,"49999048400 ")
 ;;481
 ;;21,"49999048430 ")
 ;;482
 ;;21,"49999051230 ")
 ;;483
 ;;21,"49999055590 ")
 ;;484
 ;;21,"49999057510 ")
 ;;485
 ;;21,"49999057520 ")
 ;;486
 ;;21,"49999057530 ")
 ;;487
 ;;21,"49999057720 ")
 ;;488
 ;;21,"49999086600 ")
 ;;489
 ;;21,"49999087230 ")
 ;;490
 ;;21,"49999093830 ")
 ;;491
 ;;21,"49999093930 ")
 ;;492
 ;;21,"49999099600 ")
 ;;493
 ;;21,"50053310201 ")
 ;;494
 ;;21,"50053310203 ")
 ;;495
 ;;21,"50053310901 ")
 ;;496
 ;;21,"50053310902 ")
 ;;497
 ;;21,"50053311001 ")
 ;;498
 ;;21,"50053311002 ")
 ;;499
 ;;21,"50053311101 ")
 ;;500
 ;;21,"50053311102 ")
 ;;501
 ;;21,"50053311201 ")
 ;;502
 ;;21,"50053311202 ")
 ;;503
 ;;21,"50053381603 ")
 ;;504
 ;;21,"50053381608 ")
 ;;505
 ;;21,"50053381703 ")
 ;;506
 ;;21,"50053381708 ")
 ;;507
 ;;21,"50111046701 ")
 ;;508
 ;;21,"50111046703 ")
 ;;509
 ;;21,"50111046801 ")
 ;;510
 ;;21,"50111046803 ")
 ;;511
 ;;21,"50111046901 ")
 ;;512
 ;;21,"50111046903 ")
 ;;513
 ;;21,"50111047001 ")
 ;;514
 ;;21,"50111047003 ")
 ;;515
 ;;21,"50111047101 ")
 ;;516
 ;;21,"50111047102 ")
 ;;517
 ;;21,"50111047103 ")
 ;;518
 ;;21,"50111047201 ")
 ;;519
 ;;21,"50111047202 ")
 ;;520
 ;;21,"50111047203 ")
 ;;521
 ;;21,"50111047204 ")
 ;;522
 ;;21,"50111047301 ")
 ;;523
 ;;21,"50111047401 ")
 ;;524
 ;;21,"50742010101 ")
 ;;525
 ;;21,"50742010110 ")
 ;;526
 ;;21,"50742010201 ")
 ;;527
 ;;21,"50742010210 ")
 ;;528
 ;;21,"50742010301 ")
 ;;529
 ;;21,"50742010310 ")
 ;;530
 ;;21,"50742010701 ")
 ;;531
 ;;21,"50742010705 ")
 ;;532
 ;;21,"50742010801 ")
 ;;533
 ;;21,"50742010810 ")
 ;;534
 ;;21,"50742010901 ")
 ;;535
 ;;21,"50742010910 ")
 ;;536
 ;;21,"51079025501 ")
 ;;537
 ;;21,"51079025517 ")
 ;;538
 ;;21,"51079025519 ")
 ;;539
 ;;21,"51079025520 ")
 ;;540
 ;;21,"51079027701 ")
 ;;541
 ;;21,"51079027717 ")
 ;;542
 ;;21,"51079027719 ")
 ;;543
 ;;21,"51079027720 ")
 ;;544
 ;;21,"51079027801 ")
 ;;545
 ;;21,"51079027820 ")
 ;;546
 ;;21,"51079027901 ")
 ;;547
 ;;21,"51079027920 ")
 ;;548
 ;;21,"51079028001 ")
 ;;549
 ;;21,"51079028020 ")
 ;;550
 ;;21,"51079068401 ")
 ;;551
 ;;21,"51079068417 ")
 ;;552
 ;;21,"51079068419 ")
 ;;553
 ;;21,"51079068420 ")
 ;;554
 ;;21,"51079068463 ")
 ;;555
 ;;21,"51079068501 ")
 ;;556
 ;;21,"51079068520 ")
 ;;557
 ;;21,"51079075901 ")
 ;;558
 ;;21,"51079075917 ")
 ;;559
 ;;21,"51079075919 ")
 ;;560
 ;;21,"51079075920 ")
 ;;561
 ;;21,"51079075963 ")
 ;;562
 ;;21,"51079080101 ")
 ;;563
 ;;21,"51079080117 ")
 ;;564
 ;;21,"51079080119 ")
 ;;565
 ;;21,"51079080120 ")
 ;;566
 ;;21,"51079080130 ")
 ;;567
 ;;21,"51079080156 ")
 ;;568
 ;;21,"51079080157 ")
 ;;569
 ;;21,"51079080201 ")
 ;;570
 ;;21,"51079080217 ")
 ;;571
 ;;21,"51079080219 ")
 ;;572
 ;;21,"51079080220 ")
 ;;573
 ;;21,"51079081201 ")
 ;;574
 ;;21,"51079081220 ")
 ;;575
 ;;21,"51079081301 ")
 ;;576
 ;;21,"51079081320 ")
 ;;577
 ;;21,"51079081401 ")
 ;;578
 ;;21,"51079081420 ")
 ;;579
 ;;21,"51079092801 ")
 ;;580
 ;;21,"51079092820 ")
 ;;581
 ;;21,"51079092901 ")
 ;;582
 ;;21,"51079092920 ")
 ;;583
 ;;21,"51079095401 ")
 ;;584
 ;;21,"51079095420 ")
 ;;585
 ;;21,"51079095501 ")
 ;;586
 ;;21,"51079095520 ")
 ;;587
 ;;21,"51079095601 ")
 ;;588
 ;;21,"51079095620 ")
 ;;589
 ;;21,"51129023201 ")
 ;;590
 ;;21,"51129110901 ")
 ;;591
 ;;21,"51129112601 ")
 ;;592
 ;;21,"51129130401 ")
 ;;593
 ;;21,"51129132801 ")
 ;;594
 ;;21,"51129141901 ")
 ;;595
 ;;21,"51129158501 ")
 ;;596
 ;;21,"51129161901 ")
 ;;597
 ;;21,"51129165201 ")
 ;;598
 ;;21,"51129165301 ")
 ;;599
 ;;21,"51129170001 ")
 ;;600
 ;;21,"51129170201 ")
 ;;601
 ;;21,"51129170301 ")
 ;;602
 ;;21,"51129178501 ")
 ;;603
 ;;21,"51129179701 ")
 ;;604
 ;;21,"51129187401 ")
 ;;605
 ;;21,"51129188401 ")
 ;;606
 ;;21,"51129190901 ")
 ;;607
 ;;21,"51129197501 ")
 ;;608
 ;;21,"51129197601 ")
 ;;609
 ;;21,"51129202801 ")
 ;;610
 ;;21,"51129207001 ")
 ;;611
 ;;21,"51129207101 ")
 ;;612