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

BGP82Z2.m

Go to the documentation of this file.
  1. BGP82Z2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
  1. ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
  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,"00406-0484-50 ")
  1. ;;340
  1. ;;21,"00406-0484-62 ")
  1. ;;341
  1. ;;21,"00406-0485-01 ")
  1. ;;342
  1. ;;21,"00406-0485-05 ")
  1. ;;343
  1. ;;21,"00406-0512-01 ")
  1. ;;344
  1. ;;21,"00406-0512-05 ")
  1. ;;345
  1. ;;21,"00406-0512-23 ")
  1. ;;346
  1. ;;21,"00406-0512-62 ")
  1. ;;347
  1. ;;21,"00406-0512-91 ")
  1. ;;348
  1. ;;21,"00406-0522-01 ")
  1. ;;349
  1. ;;21,"00406-0522-05 ")
  1. ;;350
  1. ;;21,"00406-0522-23 ")
  1. ;;351
  1. ;;21,"00406-0522-62 ")
  1. ;;352
  1. ;;21,"00406-0523-01 ")
  1. ;;353
  1. ;;21,"00406-0523-05 ")
  1. ;;354
  1. ;;21,"00406-0523-23 ")
  1. ;;355
  1. ;;21,"00406-0523-62 ")
  1. ;;356
  1. ;;21,"00406-0527-10 ")
  1. ;;357
  1. ;;21,"00406-0532-01 ")
  1. ;;358
  1. ;;21,"00406-0532-05 ")
  1. ;;359
  1. ;;21,"00406-0540-34 ")
  1. ;;360
  1. ;;21,"00406-0552-01 ")
  1. ;;361
  1. ;;21,"00406-0552-23 ")
  1. ;;362
  1. ;;21,"00406-0552-62 ")
  1. ;;363
  1. ;;21,"00406-1009-01 ")
  1. ;;364
  1. ;;21,"00406-1010-01 ")
  1. ;;365
  1. ;;21,"00406-2540-01 ")
  1. ;;366
  1. ;;21,"00406-3243-01 ")
  1. ;;367
  1. ;;21,"00406-3244-01 ")
  1. ;;368
  1. ;;21,"00406-3249-01 ")
  1. ;;369
  1. ;;21,"00406-3308-01 ")
  1. ;;370
  1. ;;21,"00406-3312-01 ")
  1. ;;371
  1. ;;21,"00406-3316-01 ")
  1. ;;372
  1. ;;21,"00406-3332-01 ")
  1. ;;373
  1. ;;21,"00406-5755-01 ")
  1. ;;374
  1. ;;21,"00406-5755-23 ")
  1. ;;375
  1. ;;21,"00406-5755-62 ")
  1. ;;376
  1. ;;21,"00406-5771-01 ")
  1. ;;377
  1. ;;21,"00406-5771-23 ")
  1. ;;378
  1. ;;21,"00406-5771-62 ")
  1. ;;379
  1. ;;21,"00406-8003-12 ")
  1. ;;380
  1. ;;21,"00406-8003-15 ")
  1. ;;381
  1. ;;21,"00406-8003-24 ")
  1. ;;382
  1. ;;21,"00406-8003-30 ")
  1. ;;383
  1. ;;21,"00406-8315-01 ")
  1. ;;384
  1. ;;21,"00406-8315-23 ")
  1. ;;385
  1. ;;21,"00406-8315-62 ")
  1. ;;386
  1. ;;21,"00406-8320-01 ")
  1. ;;387
  1. ;;21,"00406-8330-01 ")
  1. ;;388
  1. ;;21,"00406-8330-23 ")
  1. ;;389
  1. ;;21,"00406-8330-62 ")
  1. ;;390
  1. ;;21,"00406-8380-01 ")
  1. ;;391
  1. ;;21,"00406-8380-23 ")
  1. ;;392
  1. ;;21,"00406-8380-62 ")
  1. ;;393
  1. ;;21,"00406-8390-01 ")
  1. ;;394
  1. ;;21,"00406-8390-23 ")
  1. ;;395
  1. ;;21,"00406-8390-62 ")
  1. ;;396
  1. ;;21,"00406-8515-01 ")
  1. ;;397
  1. ;;21,"00406-8515-23 ")
  1. ;;398
  1. ;;21,"00406-8515-62 ")
  1. ;;399
  1. ;;21,"00406-8530-01 ")
  1. ;;400
  1. ;;21,"00406-8530-23 ")
  1. ;;401
  1. ;;21,"00406-8530-62 ")
  1. ;;402
  1. ;;21,"00406-8553-50 ")
  1. ;;403
  1. ;;21,"00406-8725-10 ")
  1. ;;404
  1. ;;21,"00406-9000-76 ")
  1. ;;405
  1. ;;21,"00406-9012-76 ")
  1. ;;406
  1. ;;21,"00406-9025-76 ")
  1. ;;407
  1. ;;21,"00406-9050-76 ")
  1. ;;408
  1. ;;21,"00406-9075-76 ")
  1. ;;409
  1. ;;21,"00406-9202-30 ")
  1. ;;410
  1. ;;21,"00406-9204-30 ")
  1. ;;411
  1. ;;21,"00406-9206-30 ")
  1. ;;412
  1. ;;21,"00406-9208-30 ")
  1. ;;413
  1. ;;21,"00406-9212-30 ")
  1. ;;414
  1. ;;21,"00406-9216-30 ")
  1. ;;415
  1. ;;21,"00440-7020-10 ")
  1. ;;416
  1. ;;21,"00440-7020-12 ")
  1. ;;417
  1. ;;21,"00440-7020-15 ")
  1. ;;418
  1. ;;21,"00440-7020-20 ")
  1. ;;419
  1. ;;21,"00440-7020-30 ")
  1. ;;420
  1. ;;21,"00440-7020-81 ")
  1. ;;421
  1. ;;21,"00440-7020-85 ")
  1. ;;422
  1. ;;21,"00440-7026-03 ")
  1. ;;423
  1. ;;21,"00440-7026-04 ")
  1. ;;424
  1. ;;21,"00440-7026-06 ")
  1. ;;425
  1. ;;21,"00440-7026-10 ")
  1. ;;426
  1. ;;21,"00440-7026-12 ")
  1. ;;427
  1. ;;21,"00440-7026-15 ")
  1. ;;428
  1. ;;21,"00440-7026-20 ")
  1. ;;429
  1. ;;21,"00440-7026-30 ")
  1. ;;430
  1. ;;21,"00440-7026-40 ")
  1. ;;431
  1. ;;21,"00440-7026-50 ")
  1. ;;432
  1. ;;21,"00440-7026-60 ")
  1. ;;433
  1. ;;21,"00440-7026-81 ")
  1. ;;434
  1. ;;21,"00440-7026-85 ")
  1. ;;435
  1. ;;21,"00440-7026-90 ")
  1. ;;436
  1. ;;21,"00440-7026-91 ")
  1. ;;437
  1. ;;21,"00440-7211-30 ")
  1. ;;438
  1. ;;21,"00440-7605-10 ")
  1. ;;439
  1. ;;21,"00440-7605-20 ")
  1. ;;440
  1. ;;21,"00440-7605-30 ")
  1. ;;441
  1. ;;21,"00440-7607-10 ")
  1. ;;442
  1. ;;21,"00440-7610-10 ")
  1. ;;443
  1. ;;21,"00440-7611-20 ")
  1. ;;444
  1. ;;21,"00440-7650-15 ")
  1. ;;445
  1. ;;21,"00440-8002-04 ")
  1. ;;446
  1. ;;21,"00440-8002-06 ")
  1. ;;447
  1. ;;21,"00440-8002-10 ")
  1. ;;448
  1. ;;21,"00440-8002-12 ")
  1. ;;449
  1. ;;21,"00440-8002-15 ")
  1. ;;450
  1. ;;21,"00440-8002-20 ")
  1. ;;451
  1. ;;21,"00440-8002-30 ")
  1. ;;452
  1. ;;21,"00440-8002-91 ")
  1. ;;453
  1. ;;21,"00440-8002-93 ")
  1. ;;454
  1. ;;21,"00440-8002-94 ")
  1. ;;455
  1. ;;21,"00440-8570-06 ")
  1. ;;456
  1. ;;21,"00440-8570-18 ")
  1. ;;457
  1. ;;21,"00440-8570-20 ")
  1. ;;458
  1. ;;21,"00440-8570-30 ")
  1. ;;459
  1. ;;21,"00440-8570-40 ")
  1. ;;460
  1. ;;21,"00440-8570-60 ")
  1. ;;461
  1. ;;21,"00440-8570-90 ")
  1. ;;462
  1. ;;21,"00440-8570-91 ")
  1. ;;463
  1. ;;21,"00440-8570-92 ")
  1. ;;464
  1. ;;21,"00440-8570-94 ")
  1. ;;465
  1. ;;21,"00440-8571-00 ")
  1. ;;466
  1. ;;21,"00440-8571-05 ")
  1. ;;467
  1. ;;21,"00440-8571-18 ")
  1. ;;468
  1. ;;21,"00440-8571-20 ")
  1. ;;469
  1. ;;21,"00440-8571-30 ")
  1. ;;470
  1. ;;21,"00440-8571-40 ")
  1. ;;471
  1. ;;21,"00440-8571-60 ")
  1. ;;472
  1. ;;21,"00440-8571-81 ")
  1. ;;473
  1. ;;21,"00440-8571-85 ")
  1. ;;474
  1. ;;21,"00440-8571-90 ")
  1. ;;475
  1. ;;21,"00440-8571-91 ")
  1. ;;476
  1. ;;21,"00440-8572-06 ")
  1. ;;477
  1. ;;21,"00440-8572-15 ")
  1. ;;478
  1. ;;21,"00472-1030-16 ")
  1. ;;479
  1. ;;21,"00472-1627-04 ")
  1. ;;480
  1. ;;21,"00472-1627-08 ")
  1. ;;481
  1. ;;21,"00472-1627-16 ")
  1. ;;482
  1. ;;21,"00486-0771-16 ")
  1. ;;483
  1. ;;21,"00527-1312-01 ")
  1. ;;484
  1. ;;21,"00527-1353-01 ")
  1. ;;485
  1. ;;21,"00527-1354-01 ")
  1. ;;486
  1. ;;21,"00527-1355-01 ")
  1. ;;487
  1. ;;21,"00527-1425-35 ")
  1. ;;488
  1. ;;21,"00527-1425-36 ")
  1. ;;489
  1. ;;21,"00527-1425-62 ")
  1. ;;490
  1. ;;21,"00527-1425-63 ")
  1. ;;491
  1. ;;21,"00527-1426-35 ")
  1. ;;492
  1. ;;21,"00527-1426-36 ")
  1. ;;493
  1. ;;21,"00527-1698-01 ")
  1. ;;494
  1. ;;21,"00527-1698-91 ")
  1. ;;495
  1. ;;21,"00527-1699-01 ")
  1. ;;496
  1. ;;21,"00527-1727-91 ")
  1. ;;497
  1. ;;21,"00527-1774-01 ")
  1. ;;498
  1. ;;21,"00527-1906-35 ")
  1. ;;499
  1. ;;21,"00527-1906-36 ")
  1. ;;500
  1. ;;21,"00527-1906-62 ")
  1. ;;501
  1. ;;21,"00527-1906-63 ")
  1. ;;502
  1. ;;21,"00555-0381-02 ")
  1. ;;503
  1. ;;21,"00555-0382-02 ")
  1. ;;504
  1. ;;21,"00555-0392-02 ")
  1. ;;505
  1. ;;21,"00555-0658-02 ")
  1. ;;506
  1. ;;21,"00555-0778-02 ")
  1. ;;507
  1. ;;21,"00574-0153-12 ")
  1. ;;508
  1. ;;21,"00574-0153-30 ")
  1. ;;509
  1. ;;21,"00574-0293-01 ")
  1. ;;510
  1. ;;21,"00574-0294-01 ")
  1. ;;511
  1. ;;21,"00574-0295-01 ")
  1. ;;512
  1. ;;21,"00574-1103-16 ")
  1. ;;513
  1. ;;21,"00574-7040-12 ")
  1. ;;514
  1. ;;21,"00574-7045-12 ")
  1. ;;515
  1. ;;21,"00574-7110-12 ")
  1. ;;516
  1. ;;21,"00574-7112-12 ")
  1. ;;517
  1. ;;21,"00574-7114-12 ")
  1. ;;518
  1. ;;21,"00574-7116-12 ")
  1. ;;519
  1. ;;21,"00574-7224-06 ")
  1. ;;520
  1. ;;21,"00591-0349-01 ")
  1. ;;521
  1. ;;21,"00591-0349-05 ")
  1. ;;522
  1. ;;21,"00591-0385-01 ")
  1. ;;523
  1. ;;21,"00591-0385-05 ")
  1. ;;524
  1. ;;21,"00591-0387-01 ")
  1. ;;525
  1. ;;21,"00591-0387-05 ")
  1. ;;526
  1. ;;21,"00591-0388-01 ")
  1. ;;527
  1. ;;21,"00591-0395-01 ")
  1. ;;528
  1. ;;21,"00591-0737-01 ")
  1. ;;529
  1. ;;21,"00591-0737-05 ")
  1. ;;530
  1. ;;21,"00591-0749-01 ")
  1. ;;531
  1. ;;21,"00591-0749-05 ")
  1. ;;532
  1. ;;21,"00591-0824-01 ")
  1. ;;533
  1. ;;21,"00591-0825-01 ")
  1. ;;534
  1. ;;21,"00591-0932-01 ")
  1. ;;535
  1. ;;21,"00591-0933-01 ")
  1. ;;536
  1. ;;21,"00591-2171-01 ")
  1. ;;537
  1. ;;21,"00591-2172-01 ")
  1. ;;538
  1. ;;21,"00591-2172-05 ")
  1. ;;539
  1. ;;21,"00591-2174-01 ")
  1. ;;540
  1. ;;21,"00591-2174-05 ")
  1. ;;541
  1. ;;21,"00591-2175-01 ")
  1. ;;542
  1. ;;21,"00591-2175-05 ")
  1. ;;543
  1. ;;21,"00591-2176-01 ")
  1. ;;544
  1. ;;21,"00591-2176-05 ")
  1. ;;545
  1. ;;21,"00591-2605-01 ")
  1. ;;546
  1. ;;21,"00591-2605-05 ")
  1. ;;547
  1. ;;21,"00591-2607-01 ")
  1. ;;548
  1. ;;21,"00591-2609-01 ")
  1. ;;549
  1. ;;21,"00591-2609-05 ")
  1. ;;550
  1. ;;21,"00591-2610-01 ")
  1. ;;551
  1. ;;21,"00591-2610-05 ")
  1. ;;552
  1. ;;21,"00591-2611-01 ")
  1. ;;553
  1. ;;21,"00591-2611-05 ")
  1. ;;554
  1. ;;21,"00591-2612-01 ")
  1. ;;555
  1. ;;21,"00591-2612-05 ")
  1. ;;556
  1. ;;21,"00591-2641-01 ")
  1. ;;557
  1. ;;21,"00591-2693-01 ")
  1. ;;558
  1. ;;21,"00591-2708-01 ")
  1. ;;559
  1. ;;21,"00591-3198-54 ")
  1. ;;560
  1. ;;21,"00591-3198-72 ")
  1. ;;561
  1. ;;21,"00591-3202-01 ")
  1. ;;562
  1. ;;21,"00591-3202-05 ")
  1. ;;563
  1. ;;21,"00591-3212-54 ")
  1. ;;564
  1. ;;21,"00591-3212-72 ")
  1. ;;565
  1. ;;21,"00591-3213-54 ")
  1. ;;566
  1. ;;21,"00591-3213-72 ")
  1. ;;567
  1. ;;21,"00591-3214-54 ")
  1. ;;568
  1. ;;21,"00591-3214-72 ")
  1. ;;569
  1. ;;21,"00591-3220-01 ")
  1. ;;570
  1. ;;21,"00591-3449-01 ")
  1. ;;571
  1. ;;21,"00591-3450-01 ")
  1. ;;572
  1. ;;21,"00591-3451-01 ")
  1. ;;573
  1. ;;21,"00591-3452-01 ")
  1. ;;574
  1. ;;21,"00591-3453-01 ")
  1. ;;575
  1. ;;21,"00591-3546-01 ")
  1. ;;576
  1. ;;21,"00591-3546-05 ")
  1. ;;577
  1. ;;21,"00591-3551-01 ")
  1. ;;578
  1. ;;21,"00591-3576-01 ")
  1. ;;579
  1. ;;21,"00591-3600-54 ")
  1. ;;580
  1. ;;21,"00591-3600-72 ")
  1. ;;581
  1. ;;21,"00591-3601-54 ")
  1. ;;582
  1. ;;21,"00591-3601-72 ")
  1. ;;583
  1. ;;21,"00591-3602-54 ")
  1. ;;584
  1. ;;21,"00591-3602-72 ")
  1. ;;585
  1. ;;21,"00591-3603-54 ")
  1. ;;586
  1. ;;21,"00591-3603-72 ")
  1. ;;587
  1. ;;21,"00591-3629-01 ")
  1. ;;588
  1. ;;21,"00591-3630-01 ")
  1. ;;589
  1. ;;21,"00591-3631-01 ")
  1. ;;590
  1. ;;21,"00591-3739-01 ")
  1. ;;591
  1. ;;21,"00603-1020-58 ")
  1. ;;592
  1. ;;21,"00603-1585-54 ")
  1. ;;593
  1. ;;21,"00603-1585-58 ")
  1. ;;594
  1. ;;21,"00603-1588-54 ")
  1. ;;595
  1. ;;21,"00603-1588-58 ")
  1. ;;596
  1. ;;21,"00603-2337-21 ")
  1. ;;597
  1. ;;21,"00603-2338-02 ")
  1. ;;598
  1. ;;21,"00603-2338-04 ")
  1. ;;599
  1. ;;21,"00603-2338-16 ")
  1. ;;600
  1. ;;21,"00603-2338-20 ")
  1. ;;601
  1. ;;21,"00603-2338-21 ")
  1. ;;602
  1. ;;21,"00603-2338-22 ")
  1. ;;603
  1. ;;21,"00603-2338-32 ")
  1. ;;604
  1. ;;21,"00603-2339-21 ")
  1. ;;605
  1. ;;21,"00603-2339-28 ")
  1. ;;606
  1. ;;21,"00603-2553-21 ")
  1. ;;607
  1. ;;21,"00603-3584-21 ")
  1. ;;608
  1. ;;21,"00603-3586-21 ")
  1. ;;609
  1. ;;21,"00603-3609-21 ")
  1. ;;610
  1. ;;21,"00603-3887-02 ")
  1. ;;611
  1. ;;21,"00603-3887-04 ")
  1. ;;612
  1. ;;21,"00603-3887-12 ")
  1. ;;613
  1. ;;21,"00603-3887-20 ")
  1. ;;614
  1. ;;21,"00603-3887-21 ")
  1. ;;615
  1. ;;21,"00603-3887-22 ")
  1. ;;616
  1. ;;21,"00603-3887-26 ")
  1. ;;617
  1. ;;21,"00603-3887-28 ")
  1. ;;618
  1. ;;21,"00603-3887-32 ")
  1. ;;619
  1. ;;21,"00603-3890-02 ")
  1. ;;620
  1. ;;21,"00603-3890-04 ")
  1. ;;621
  1. ;;21,"00603-3890-16 ")
  1. ;;622
  1. ;;21,"00603-3890-20 ")
  1. ;;623
  1. ;;21,"00603-3890-21 ")
  1. ;;624
  1. ;;21,"00603-3890-22 ")
  1. ;;625
  1. ;;21,"00603-3890-28 ")
  1. ;;626
  1. ;;21,"00603-3890-32 ")
  1. ;;627
  1. ;;21,"00603-3891-02 ")
  1. ;;628
  1. ;;21,"00603-3891-21 ")
  1. ;;629
  1. ;;21,"00603-3891-22 ")
  1. ;;630
  1. ;;21,"00603-3891-28 ")
  1. ;;631
  1. ;;21,"00603-3891-32 ")
  1. ;;632
  1. ;;21,"00603-3897-21 ")
  1. ;;633
  1. ;;21,"00603-3897-28 ")
  1. ;;634
  1. ;;21,"00603-4415-21 ")
  1. ;;635
  1. ;;21,"00603-4416-21 ")
  1. ;;636
  1. ;;21,"00603-4978-21 ")
  1. ;;637
  1. ;;21,"00603-4979-21 ")
  1. ;;638
  1. ;;21,"00603-4979-28 ")
  1. ;;639
  1. ;;21,"00603-4982-21 ")
  1. ;;640
  1. ;;21,"00603-4982-28 ")
  1. ;;641
  1. ;;21,"00603-4990-21 ")
  1. ;;642
  1. ;;21,"00603-4990-28 ")
  1. ;;643
  1. ;;21,"00603-4991-21 ")
  1. ;;644
  1. ;;21,"00603-4991-28 ")
  1. ;;645
  1. ;;21,"00603-4992-21 ")
  1. ;;646
  1. ;;21,"00603-4992-28 ")
  1. ;;647
  1. ;;21,"00603-4993-21 ")
  1. ;;648
  1. ;;21,"00603-4994-21 ")
  1. ;;649
  1. ;;21,"00603-4998-21 ")
  1. ;;650
  1. ;;21,"00603-4998-28 ")
  1. ;;651
  1. ;;21,"00603-9013-54 ")
  1. ;;652
  1. ;;21,"00603-9013-58 ")
  1. ;;653
  1. ;;21,"00713-0703-89 ")
  1. ;;654
  1. ;;21,"00713-0704-89 ")
  1. ;;655
  1. ;;21,"00781-5703-01 ")
  1. ;;656
  1. ;;21,"00781-5726-01 ")
  1. ;;657
  1. ;;21,"00781-5767-01 ")
  1. ;;658
  1. ;;21,"00781-5785-01 ")
  1. ;;659
  1. ;;21,"00781-7240-55 ")
  1. ;;660
  1. ;;21,"00781-7241-55 ")
  1. ;;661
  1. ;;21,"00781-7242-55 ")
  1. ;;662
  1. ;;21,"00781-7243-55 ")
  1. ;;663
  1. ;;21,"00781-7244-55 ")
  1. ;;664
  1. ;;21,"00832-0225-00 ")
  1. ;;665
  1. ;;21,"00832-0225-50 ")
  1. ;;666
  1. ;;21,"00832-0226-00 ")
  1. ;;667
  1. ;;21,"00832-0226-50 ")
  1. ;;668
  1. ;;21,"00832-0227-00 ")
  1. ;;669
  1. ;;21,"00832-0227-50 ")
  1. ;;670
  1. ;;21,"00832-0228-00 ")
  1. ;;671
  1. ;;21,"00832-0228-50 ")
  1. ;;672
  1. ;;21,"00832-0229-00 ")
  1. ;;673
  1. ;;21,"00832-0229-50 ")
  1. ;;674
  1. ;;21,"00832-0230-00 ")
  1. ;;675
  1. ;;21,"00832-0230-50 ")
  1. ;;676
  1. ;;21,"00832-0233-00 ")
  1. ;;677
  1. ;;21,"00832-0233-50 ")
  1. ;;678
  1. ;;21,"00904-5065-16 ")
  1. ;;679
  1. ;;21,"00904-6119-61 ")
  1. ;;680
  1. ;;21,"00904-6365-61 ")
  1. ;;681