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

BGP73K2.m

Go to the documentation of this file.
  1. BGP73K2 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"00247-1882-99 ")
  1. ;;340
  1. ;;21,"00247-1919-30 ")
  1. ;;341
  1. ;;21,"00247-1920-30 ")
  1. ;;342
  1. ;;21,"00247-1921-30 ")
  1. ;;343
  1. ;;21,"00247-1955-30 ")
  1. ;;344
  1. ;;21,"00247-1955-60 ")
  1. ;;345
  1. ;;21,"00247-1955-90 ")
  1. ;;346
  1. ;;21,"00247-1956-30 ")
  1. ;;347
  1. ;;21,"00247-1956-60 ")
  1. ;;348
  1. ;;21,"00247-1956-90 ")
  1. ;;349
  1. ;;21,"00247-1957-30 ")
  1. ;;350
  1. ;;21,"00247-1957-60 ")
  1. ;;351
  1. ;;21,"00247-1957-90 ")
  1. ;;352
  1. ;;21,"00247-2001-06 ")
  1. ;;353
  1. ;;21,"00247-2001-30 ")
  1. ;;354
  1. ;;21,"00247-2021-00 ")
  1. ;;355
  1. ;;21,"00247-2021-30 ")
  1. ;;356
  1. ;;21,"00247-2021-60 ")
  1. ;;357
  1. ;;21,"00247-2058-30 ")
  1. ;;358
  1. ;;21,"00247-2107-00 ")
  1. ;;359
  1. ;;21,"00247-2107-30 ")
  1. ;;360
  1. ;;21,"00247-2107-60 ")
  1. ;;361
  1. ;;21,"00247-2107-79 ")
  1. ;;362
  1. ;;21,"00247-2107-90 ")
  1. ;;363
  1. ;;21,"00247-2136-30 ")
  1. ;;364
  1. ;;21,"00247-2136-60 ")
  1. ;;365
  1. ;;21,"00247-2137-30 ")
  1. ;;366
  1. ;;21,"00247-2151-30 ")
  1. ;;367
  1. ;;21,"00247-2151-60 ")
  1. ;;368
  1. ;;21,"00247-2155-30 ")
  1. ;;369
  1. ;;21,"00247-2155-60 ")
  1. ;;370
  1. ;;21,"00247-2155-90 ")
  1. ;;371
  1. ;;21,"00247-2171-30 ")
  1. ;;372
  1. ;;21,"00247-2237-00 ")
  1. ;;373
  1. ;;21,"00247-2237-30 ")
  1. ;;374
  1. ;;21,"00247-2305-30 ")
  1. ;;375
  1. ;;21,"00247-2305-60 ")
  1. ;;376
  1. ;;21,"00247-2305-90 ")
  1. ;;377
  1. ;;21,"00247-2306-30 ")
  1. ;;378
  1. ;;21,"00247-2306-60 ")
  1. ;;379
  1. ;;21,"00247-2306-90 ")
  1. ;;380
  1. ;;21,"00247-2318-30 ")
  1. ;;381
  1. ;;21,"00247-2318-60 ")
  1. ;;382
  1. ;;21,"00247-2318-90 ")
  1. ;;383
  1. ;;21,"00247-2320-30 ")
  1. ;;384
  1. ;;21,"00247-2320-60 ")
  1. ;;385
  1. ;;21,"00247-2320-90 ")
  1. ;;386
  1. ;;21,"00310-0130-11 ")
  1. ;;387
  1. ;;21,"00310-0131-11 ")
  1. ;;388
  1. ;;21,"00310-0132-11 ")
  1. ;;389
  1. ;;21,"00310-0133-11 ")
  1. ;;390
  1. ;;21,"00310-0134-10 ")
  1. ;;391
  1. ;;21,"00310-0134-11 ")
  1. ;;392
  1. ;;21,"00310-0135-10 ")
  1. ;;393
  1. ;;21,"00310-0135-11 ")
  1. ;;394
  1. ;;21,"00310-0141-11 ")
  1. ;;395
  1. ;;21,"00310-0142-10 ")
  1. ;;396
  1. ;;21,"00310-0142-11 ")
  1. ;;397
  1. ;;21,"00310-0145-11 ")
  1. ;;398
  1. ;;21,"00378-0017-77 ")
  1. ;;399
  1. ;;21,"00378-0081-01 ")
  1. ;;400
  1. ;;21,"00378-0083-01 ")
  1. ;;401
  1. ;;21,"00378-0084-01 ")
  1. ;;402
  1. ;;21,"00378-0086-01 ")
  1. ;;403
  1. ;;21,"00378-0226-77 ")
  1. ;;404
  1. ;;21,"00378-0254-77 ")
  1. ;;405
  1. ;;21,"00378-0272-77 ")
  1. ;;406
  1. ;;21,"00378-0441-01 ")
  1. ;;407
  1. ;;21,"00378-0443-01 ")
  1. ;;408
  1. ;;21,"00378-0444-01 ")
  1. ;;409
  1. ;;21,"00378-0447-01 ")
  1. ;;410
  1. ;;21,"00378-0542-77 ")
  1. ;;411
  1. ;;21,"00378-0543-77 ")
  1. ;;412
  1. ;;21,"00378-0544-77 ")
  1. ;;413
  1. ;;21,"00378-0712-01 ")
  1. ;;414
  1. ;;21,"00378-0723-01 ")
  1. ;;415
  1. ;;21,"00378-1012-01 ")
  1. ;;416
  1. ;;21,"00378-1051-01 ")
  1. ;;417
  1. ;;21,"00378-1051-05 ")
  1. ;;418
  1. ;;21,"00378-1052-01 ")
  1. ;;419
  1. ;;21,"00378-1052-10 ")
  1. ;;420
  1. ;;21,"00378-1053-01 ")
  1. ;;421
  1. ;;21,"00378-1053-10 ")
  1. ;;422
  1. ;;21,"00378-1054-01 ")
  1. ;;423
  1. ;;21,"00378-1054-05 ")
  1. ;;424
  1. ;;21,"00378-1117-77 ")
  1. ;;425
  1. ;;21,"00378-2012-01 ")
  1. ;;426
  1. ;;21,"00378-2025-01 ")
  1. ;;427
  1. ;;21,"00378-2072-01 ")
  1. ;;428
  1. ;;21,"00378-2073-01 ")
  1. ;;429
  1. ;;21,"00378-2073-10 ")
  1. ;;430
  1. ;;21,"00378-2074-01 ")
  1. ;;431
  1. ;;21,"00378-2074-10 ")
  1. ;;432
  1. ;;21,"00378-2075-01 ")
  1. ;;433
  1. ;;21,"00378-2075-10 ")
  1. ;;434
  1. ;;21,"00378-2076-01 ")
  1. ;;435
  1. ;;21,"00378-2076-05 ")
  1. ;;436
  1. ;;21,"00378-2077-01 ")
  1. ;;437
  1. ;;21,"00378-3007-01 ")
  1. ;;438
  1. ;;21,"00378-3007-10 ")
  1. ;;439
  1. ;;21,"00378-3012-01 ")
  1. ;;440
  1. ;;21,"00378-3012-10 ")
  1. ;;441
  1. ;;21,"00378-3017-01 ")
  1. ;;442
  1. ;;21,"00378-3017-10 ")
  1. ;;443
  1. ;;21,"00378-3022-01 ")
  1. ;;444
  1. ;;21,"00378-3241-01 ")
  1. ;;445
  1. ;;21,"00378-3242-01 ")
  1. ;;446
  1. ;;21,"00378-3243-01 ")
  1. ;;447
  1. ;;21,"00378-4725-01 ")
  1. ;;448
  1. ;;21,"00378-4735-01 ")
  1. ;;449
  1. ;;21,"00378-4745-01 ")
  1. ;;450
  1. ;;21,"00378-4775-01 ")
  1. ;;451
  1. ;;21,"00378-6895-01 ")
  1. ;;452
  1. ;;21,"00378-6896-01 ")
  1. ;;453
  1. ;;21,"00378-6896-05 ")
  1. ;;454
  1. ;;21,"00378-6897-01 ")
  1. ;;455
  1. ;;21,"00378-6897-05 ")
  1. ;;456
  1. ;;21,"00378-6898-01 ")
  1. ;;457
  1. ;;21,"00378-6898-05 ")
  1. ;;458
  1. ;;21,"00378-6899-01 ")
  1. ;;459
  1. ;;21,"00378-6900-01 ")
  1. ;;460
  1. ;;21,"00440-7231-60 ")
  1. ;;461
  1. ;;21,"00440-7232-60 ")
  1. ;;462
  1. ;;21,"00440-7674-90 ")
  1. ;;463
  1. ;;21,"00440-7675-90 ")
  1. ;;464
  1. ;;21,"00440-7676-90 ")
  1. ;;465
  1. ;;21,"00490-0067-00 ")
  1. ;;466
  1. ;;21,"00490-0067-30 ")
  1. ;;467
  1. ;;21,"00490-0067-60 ")
  1. ;;468
  1. ;;21,"00490-0067-90 ")
  1. ;;469
  1. ;;21,"00490-7030-00 ")
  1. ;;470
  1. ;;21,"00490-7030-30 ")
  1. ;;471
  1. ;;21,"00490-7030-60 ")
  1. ;;472
  1. ;;21,"00490-7030-90 ")
  1. ;;473
  1. ;;21,"00574-0110-01 ")
  1. ;;474
  1. ;;21,"00574-0112-15 ")
  1. ;;475
  1. ;;21,"00574-0133-01 ")
  1. ;;476
  1. ;;21,"00574-0134-01 ")
  1. ;;477
  1. ;;21,"00574-0135-01 ")
  1. ;;478
  1. ;;21,"00591-0405-01 ")
  1. ;;479
  1. ;;21,"00591-0405-05 ")
  1. ;;480
  1. ;;21,"00591-0406-01 ")
  1. ;;481
  1. ;;21,"00591-0406-10 ")
  1. ;;482
  1. ;;21,"00591-0407-01 ")
  1. ;;483
  1. ;;21,"00591-0407-10 ")
  1. ;;484
  1. ;;21,"00591-0408-01 ")
  1. ;;485
  1. ;;21,"00591-0408-10 ")
  1. ;;486
  1. ;;21,"00591-0409-01 ")
  1. ;;487
  1. ;;21,"00591-0409-05 ")
  1. ;;488
  1. ;;21,"00591-0409-75 ")
  1. ;;489
  1. ;;21,"00591-0668-01 ")
  1. ;;490
  1. ;;21,"00591-0668-05 ")
  1. ;;491
  1. ;;21,"00591-0671-01 ")
  1. ;;492
  1. ;;21,"00591-0671-05 ")
  1. ;;493
  1. ;;21,"00591-0671-10 ")
  1. ;;494
  1. ;;21,"00591-0860-01 ")
  1. ;;495
  1. ;;21,"00591-0860-05 ")
  1. ;;496
  1. ;;21,"00591-0861-01 ")
  1. ;;497
  1. ;;21,"00591-0861-05 ")
  1. ;;498
  1. ;;21,"00591-0862-01 ")
  1. ;;499
  1. ;;21,"00591-0862-05 ")
  1. ;;500
  1. ;;21,"00591-0885-01 ")
  1. ;;501
  1. ;;21,"00591-3757-01 ")
  1. ;;502
  1. ;;21,"00591-3758-01 ")
  1. ;;503
  1. ;;21,"00591-3758-05 ")
  1. ;;504
  1. ;;21,"00591-3759-01 ")
  1. ;;505
  1. ;;21,"00591-3759-05 ")
  1. ;;506
  1. ;;21,"00591-3760-01 ")
  1. ;;507
  1. ;;21,"00591-3760-05 ")
  1. ;;508
  1. ;;21,"00591-3761-01 ")
  1. ;;509
  1. ;;21,"00591-3762-01 ")
  1. ;;510
  1. ;;21,"00603-4209-21 ")
  1. ;;511
  1. ;;21,"00603-4209-28 ")
  1. ;;512
  1. ;;21,"00603-4210-02 ")
  1. ;;513
  1. ;;21,"00603-4210-16 ")
  1. ;;514
  1. ;;21,"00603-4210-21 ")
  1. ;;515
  1. ;;21,"00603-4210-28 ")
  1. ;;516
  1. ;;21,"00603-4210-30 ")
  1. ;;517
  1. ;;21,"00603-4210-32 ")
  1. ;;518
  1. ;;21,"00603-4210-60 ")
  1. ;;519
  1. ;;21,"00603-4211-02 ")
  1. ;;520
  1. ;;21,"00603-4211-21 ")
  1. ;;521
  1. ;;21,"00603-4211-28 ")
  1. ;;522
  1. ;;21,"00603-4211-32 ")
  1. ;;523
  1. ;;21,"00603-4211-34 ")
  1. ;;524
  1. ;;21,"00603-4211-60 ")
  1. ;;525
  1. ;;21,"00603-4212-02 ")
  1. ;;526
  1. ;;21,"00603-4212-21 ")
  1. ;;527
  1. ;;21,"00603-4212-28 ")
  1. ;;528
  1. ;;21,"00603-4212-32 ")
  1. ;;529
  1. ;;21,"00603-4212-34 ")
  1. ;;530
  1. ;;21,"00603-4212-60 ")
  1. ;;531
  1. ;;21,"00603-4213-21 ")
  1. ;;532
  1. ;;21,"00603-4213-28 ")
  1. ;;533
  1. ;;21,"00603-4214-02 ")
  1. ;;534
  1. ;;21,"00603-4214-04 ")
  1. ;;535
  1. ;;21,"00603-4214-21 ")
  1. ;;536
  1. ;;21,"00603-4214-28 ")
  1. ;;537
  1. ;;21,"00603-4214-30 ")
  1. ;;538
  1. ;;21,"00603-4214-32 ")
  1. ;;539
  1. ;;21,"00603-4214-60 ")
  1. ;;540
  1. ;;21,"00781-1667-92 ")
  1. ;;541
  1. ;;21,"00781-1668-92 ")
  1. ;;542
  1. ;;21,"00781-1891-01 ")
  1. ;;543
  1. ;;21,"00781-1892-01 ")
  1. ;;544
  1. ;;21,"00781-1893-01 ")
  1. ;;545
  1. ;;21,"00781-2271-01 ")
  1. ;;546
  1. ;;21,"00781-2272-01 ")
  1. ;;547
  1. ;;21,"00781-2272-10 ")
  1. ;;548
  1. ;;21,"00781-2272-64 ")
  1. ;;549
  1. ;;21,"00781-2273-01 ")
  1. ;;550
  1. ;;21,"00781-2273-10 ")
  1. ;;551
  1. ;;21,"00781-2274-01 ")
  1. ;;552
  1. ;;21,"00781-2274-10 ")
  1. ;;553
  1. ;;21,"00781-2277-01 ")
  1. ;;554
  1. ;;21,"00781-2279-01 ")
  1. ;;555
  1. ;;21,"00781-5083-10 ")
  1. ;;556
  1. ;;21,"00781-5083-92 ")
  1. ;;557
  1. ;;21,"00781-5084-10 ")
  1. ;;558
  1. ;;21,"00781-5084-92 ")
  1. ;;559
  1. ;;21,"00781-5131-01 ")
  1. ;;560
  1. ;;21,"00781-5132-01 ")
  1. ;;561
  1. ;;21,"00781-5133-01 ")
  1. ;;562
  1. ;;21,"00781-5134-01 ")
  1. ;;563
  1. ;;21,"00781-5320-01 ")
  1. ;;564
  1. ;;21,"00781-5321-01 ")
  1. ;;565
  1. ;;21,"00781-5322-01 ")
  1. ;;566
  1. ;;21,"00781-5441-01 ")
  1. ;;567
  1. ;;21,"00781-5441-10 ")
  1. ;;568
  1. ;;21,"00781-5442-01 ")
  1. ;;569
  1. ;;21,"00781-5442-10 ")
  1. ;;570
  1. ;;21,"00781-5443-01 ")
  1. ;;571
  1. ;;21,"00781-5443-10 ")
  1. ;;572
  1. ;;21,"00781-5444-01 ")
  1. ;;573
  1. ;;21,"00781-5444-10 ")
  1. ;;574
  1. ;;21,"00832-0483-11 ")
  1. ;;575
  1. ;;21,"00832-0484-11 ")
  1. ;;576
  1. ;;21,"00832-0485-11 ")
  1. ;;577
  1. ;;21,"00904-5045-61 ")
  1. ;;578
  1. ;;21,"00904-5046-61 ")
  1. ;;579
  1. ;;21,"00904-5047-61 ")
  1. ;;580
  1. ;;21,"00904-5502-61 ")
  1. ;;581
  1. ;;21,"00904-5502-80 ")
  1. ;;582
  1. ;;21,"00904-5609-61 ")
  1. ;;583
  1. ;;21,"00904-5610-61 ")
  1. ;;584
  1. ;;21,"00904-5611-61 ")
  1. ;;585
  1. ;;21,"00904-5638-43 ")
  1. ;;586
  1. ;;21,"00904-5638-89 ")
  1. ;;587
  1. ;;21,"00904-5639-43 ")
  1. ;;588
  1. ;;21,"00904-5639-46 ")
  1. ;;589
  1. ;;21,"00904-5639-48 ")
  1. ;;590
  1. ;;21,"00904-5639-89 ")
  1. ;;591
  1. ;;21,"00904-5640-43 ")
  1. ;;592
  1. ;;21,"00904-5640-46 ")
  1. ;;593
  1. ;;21,"00904-5640-48 ")
  1. ;;594
  1. ;;21,"00904-5640-89 ")
  1. ;;595
  1. ;;21,"00904-5640-93 ")
  1. ;;596
  1. ;;21,"00904-5808-43 ")
  1. ;;597
  1. ;;21,"00904-5808-46 ")
  1. ;;598
  1. ;;21,"00904-5808-48 ")
  1. ;;599
  1. ;;21,"00904-5808-61 ")
  1. ;;600
  1. ;;21,"00904-5808-80 ")
  1. ;;601
  1. ;;21,"00904-5808-89 ")
  1. ;;602
  1. ;;21,"00904-5808-93 ")
  1. ;;603
  1. ;;21,"00904-5809-43 ")
  1. ;;604
  1. ;;21,"00904-5809-46 ")
  1. ;;605
  1. ;;21,"00904-5809-48 ")
  1. ;;606
  1. ;;21,"00904-5809-61 ")
  1. ;;607
  1. ;;21,"00904-5809-80 ")
  1. ;;608
  1. ;;21,"00904-5809-89 ")
  1. ;;609
  1. ;;21,"00904-5809-93 ")
  1. ;;610
  1. ;;21,"00904-5810-43 ")
  1. ;;611
  1. ;;21,"00904-5810-46 ")
  1. ;;612
  1. ;;21,"00904-5810-48 ")
  1. ;;613
  1. ;;21,"00904-5810-52 ")
  1. ;;614
  1. ;;21,"00904-5810-61 ")
  1. ;;615
  1. ;;21,"00904-5810-80 ")
  1. ;;616
  1. ;;21,"00904-5810-89 ")
  1. ;;617
  1. ;;21,"00904-5810-93 ")
  1. ;;618
  1. ;;21,"00904-5811-43 ")
  1. ;;619
  1. ;;21,"00904-5811-46 ")
  1. ;;620
  1. ;;21,"00904-5811-61 ")
  1. ;;621
  1. ;;21,"00904-5811-80 ")
  1. ;;622
  1. ;;21,"00904-5811-89 ")
  1. ;;623
  1. ;;21,"00904-6189-40 ")
  1. ;;624
  1. ;;21,"00904-6190-40 ")
  1. ;;625
  1. ;;21,"00904-6191-40 ")
  1. ;;626
  1. ;;21,"00904-6192-40 ")
  1. ;;627
  1. ;;21,"00904-6484-80 ")
  1. ;;628
  1. ;;21,"00904-6485-61 ")
  1. ;;629
  1. ;;21,"00904-6485-80 ")
  1. ;;630
  1. ;;21,"00904-6486-61 ")
  1. ;;631
  1. ;;21,"00904-6486-80 ")
  1. ;;632
  1. ;;21,"00904-6487-61 ")
  1. ;;633
  1. ;;21,"00904-6487-80 ")
  1. ;;634
  1. ;;21,"10135-0599-01 ")
  1. ;;635
  1. ;;21,"10135-0600-01 ")
  1. ;;636
  1. ;;21,"12280-0033-00 ")
  1. ;;637
  1. ;;21,"12280-0129-60 ")
  1. ;;638
  1. ;;21,"12280-0144-00 ")
  1. ;;639
  1. ;;21,"13811-0627-10 ")
  1. ;;640
  1. ;;21,"13811-0628-10 ")
  1. ;;641
  1. ;;21,"13811-0628-50 ")
  1. ;;642
  1. ;;21,"13811-0629-10 ")
  1. ;;643
  1. ;;21,"13811-0629-50 ")
  1. ;;644
  1. ;;21,"13811-0630-10 ")
  1. ;;645
  1. ;;21,"13811-0630-50 ")
  1. ;;646
  1. ;;21,"15338-0200-30 ")
  1. ;;647
  1. ;;21,"15338-0211-30 ")
  1. ;;648
  1. ;;21,"15338-0220-30 ")
  1. ;;649
  1. ;;21,"15338-0233-30 ")
  1. ;;650
  1. ;;21,"16252-0541-30 ")
  1. ;;651
  1. ;;21,"16252-0542-90 ")
  1. ;;652
  1. ;;21,"16252-0543-90 ")
  1. ;;653
  1. ;;21,"16252-0570-30 ")
  1. ;;654
  1. ;;21,"16252-0571-01 ")
  1. ;;655
  1. ;;21,"16252-0571-50 ")
  1. ;;656
  1. ;;21,"16252-0572-01 ")
  1. ;;657
  1. ;;21,"16252-0572-50 ")
  1. ;;658
  1. ;;21,"16252-0573-01 ")
  1. ;;659
  1. ;;21,"16252-0573-50 ")
  1. ;;660
  1. ;;21,"16252-0610-01 ")
  1. ;;661
  1. ;;21,"16252-0611-01 ")
  1. ;;662
  1. ;;21,"16252-0612-01 ")
  1. ;;663
  1. ;;21,"16252-0613-01 ")
  1. ;;664
  1. ;;21,"16252-0614-01 ")
  1. ;;665
  1. ;;21,"16590-0309-30 ")
  1. ;;666
  1. ;;21,"16590-0309-60 ")
  1. ;;667
  1. ;;21,"16590-0309-72 ")
  1. ;;668
  1. ;;21,"16590-0309-90 ")
  1. ;;669
  1. ;;21,"16714-0442-01 ")
  1. ;;670
  1. ;;21,"16714-0442-02 ")
  1. ;;671
  1. ;;21,"16714-0443-01 ")
  1. ;;672
  1. ;;21,"16714-0443-02 ")
  1. ;;673
  1. ;;21,"16714-0444-01 ")
  1. ;;674
  1. ;;21,"16714-0444-02 ")
  1. ;;675
  1. ;;21,"16714-0445-01 ")
  1. ;;676
  1. ;;21,"16714-0445-02 ")
  1. ;;677
  1. ;;21,"16729-0152-01 ")
  1. ;;678
  1. ;;21,"16729-0153-01 ")
  1. ;;679
  1. ;;21,"16729-0153-16 ")
  1. ;;680
  1. ;;21,"16729-0154-01 ")
  1. ;;681