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