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

BGP82Z17.m

Go to the documentation of this file.
BGP82Z17 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"67544-0023-15 ")
 ;;5353
 ;;21,"67544-0023-20 ")
 ;;5354
 ;;21,"67544-0023-25 ")
 ;;5355
 ;;21,"67544-0023-28 ")
 ;;5356
 ;;21,"67544-0023-30 ")
 ;;5357
 ;;21,"67544-0023-40 ")
 ;;5358
 ;;21,"67544-0023-45 ")
 ;;5359
 ;;21,"67544-0023-46 ")
 ;;5360
 ;;21,"67544-0023-50 ")
 ;;5361
 ;;21,"67544-0023-53 ")
 ;;5362
 ;;21,"67544-0023-54 ")
 ;;5363
 ;;21,"67544-0023-55 ")
 ;;5364
 ;;21,"67544-0023-57 ")
 ;;5365
 ;;21,"67544-0023-60 ")
 ;;5366
 ;;21,"67544-0023-61 ")
 ;;5367
 ;;21,"67544-0023-63 ")
 ;;5368
 ;;21,"67544-0023-67 ")
 ;;5369
 ;;21,"67544-0023-70 ")
 ;;5370
 ;;21,"67544-0023-72 ")
 ;;5371
 ;;21,"67544-0023-75 ")
 ;;5372
 ;;21,"67544-0023-77 ")
 ;;5373
 ;;21,"67544-0023-80 ")
 ;;5374
 ;;21,"67544-0023-90 ")
 ;;5375
 ;;21,"67544-0023-94 ")
 ;;5376
 ;;21,"67544-0024-20 ")
 ;;5377
 ;;21,"67544-0024-28 ")
 ;;5378
 ;;21,"67544-0024-30 ")
 ;;5379
 ;;21,"67544-0024-40 ")
 ;;5380
 ;;21,"67544-0024-45 ")
 ;;5381
 ;;21,"67544-0024-46 ")
 ;;5382
 ;;21,"67544-0024-50 ")
 ;;5383
 ;;21,"67544-0024-53 ")
 ;;5384
 ;;21,"67544-0024-54 ")
 ;;5385
 ;;21,"67544-0024-55 ")
 ;;5386
 ;;21,"67544-0024-57 ")
 ;;5387
 ;;21,"67544-0024-60 ")
 ;;5388
 ;;21,"67544-0024-70 ")
 ;;5389
 ;;21,"67544-0024-72 ")
 ;;5390
 ;;21,"67544-0024-75 ")
 ;;5391
 ;;21,"67544-0024-80 ")
 ;;5392
 ;;21,"67544-0024-90 ")
 ;;5393
 ;;21,"67544-0025-30 ")
 ;;5394
 ;;21,"67544-0025-40 ")
 ;;5395
 ;;21,"67544-0025-45 ")
 ;;5396
 ;;21,"67544-0025-53 ")
 ;;5397
 ;;21,"67544-0025-54 ")
 ;;5398
 ;;21,"67544-0025-60 ")
 ;;5399
 ;;21,"67544-0025-70 ")
 ;;5400
 ;;21,"67544-0025-72 ")
 ;;5401
 ;;21,"67544-0025-75 ")
 ;;5402
 ;;21,"67544-0025-80 ")
 ;;5403
 ;;21,"67544-0025-90 ")
 ;;5404
 ;;21,"67544-0026-30 ")
 ;;5405
 ;;21,"67544-0026-40 ")
 ;;5406
 ;;21,"67544-0026-45 ")
 ;;5407
 ;;21,"67544-0026-53 ")
 ;;5408
 ;;21,"67544-0026-60 ")
 ;;5409
 ;;21,"67544-0026-70 ")
 ;;5410
 ;;21,"67544-0026-72 ")
 ;;5411
 ;;21,"67544-0026-75 ")
 ;;5412
 ;;21,"67544-0026-80 ")
 ;;5413
 ;;21,"67544-0345-80 ")
 ;;5414
 ;;21,"67544-0474-53 ")
 ;;5415
 ;;21,"67544-0474-60 ")
 ;;5416
 ;;21,"67544-0474-70 ")
 ;;5417
 ;;21,"67544-0474-80 ")
 ;;5418
 ;;21,"67544-0474-90 ")
 ;;5419
 ;;21,"67544-0669-60 ")
 ;;5420
 ;;21,"67544-0669-70 ")
 ;;5421
 ;;21,"67544-0670-30 ")
 ;;5422
 ;;21,"67544-0670-40 ")
 ;;5423
 ;;21,"67544-0670-45 ")
 ;;5424
 ;;21,"67544-0670-46 ")
 ;;5425
 ;;21,"67544-0670-50 ")
 ;;5426
 ;;21,"67544-0670-53 ")
 ;;5427
 ;;21,"67544-0670-54 ")
 ;;5428
 ;;21,"67544-0670-55 ")
 ;;5429
 ;;21,"67544-0670-60 ")
 ;;5430
 ;;21,"67544-0670-67 ")
 ;;5431
 ;;21,"67544-0670-70 ")
 ;;5432
 ;;21,"67544-0670-72 ")
 ;;5433
 ;;21,"67544-0670-75 ")
 ;;5434
 ;;21,"67544-0670-80 ")
 ;;5435
 ;;21,"67544-0670-85 ")
 ;;5436
 ;;21,"67544-0670-90 ")
 ;;5437
 ;;21,"67544-0882-20 ")
 ;;5438
 ;;21,"67544-0882-30 ")
 ;;5439
 ;;21,"67544-0882-40 ")
 ;;5440
 ;;21,"67544-0882-45 ")
 ;;5441
 ;;21,"67544-0882-50 ")
 ;;5442
 ;;21,"67544-0882-53 ")
 ;;5443
 ;;21,"67544-0882-55 ")
 ;;5444
 ;;21,"67544-0882-60 ")
 ;;5445
 ;;21,"67544-0882-70 ")
 ;;5446
 ;;21,"67544-0882-75 ")
 ;;5447
 ;;21,"67544-0882-80 ")
 ;;5448
 ;;21,"67544-0882-90 ")
 ;;5449
 ;;21,"67877-0116-01 ")
 ;;5450
 ;;21,"67877-0322-01 ")
 ;;5451
 ;;21,"67877-0322-05 ")
 ;;5452
 ;;21,"68025-0053-30 ")
 ;;5453
 ;;21,"68025-0055-30 ")
 ;;5454
 ;;21,"68025-0056-30 ")
 ;;5455
 ;;21,"68025-0069-10 ")
 ;;5456
 ;;21,"68025-0071-30 ")
 ;;5457
 ;;21,"68025-0072-30 ")
 ;;5458
 ;;21,"68025-0073-30 ")
 ;;5459
 ;;21,"68047-0720-01 ")
 ;;5460
 ;;21,"68071-0158-10 ")
 ;;5461
 ;;21,"68071-0158-12 ")
 ;;5462
 ;;21,"68071-0158-20 ")
 ;;5463
 ;;21,"68071-0158-30 ")
 ;;5464
 ;;21,"68071-0158-40 ")
 ;;5465
 ;;21,"68071-0158-60 ")
 ;;5466
 ;;21,"68071-0158-90 ")
 ;;5467
 ;;21,"68071-0158-91 ")
 ;;5468
 ;;21,"68071-0159-06 ")
 ;;5469
 ;;21,"68071-0177-04 ")
 ;;5470
 ;;21,"68071-0177-06 ")
 ;;5471
 ;;21,"68071-0178-04 ")
 ;;5472
 ;;21,"68071-0178-06 ")
 ;;5473
 ;;21,"68071-0179-04 ")
 ;;5474
 ;;21,"68071-0203-06 ")
 ;;5475
 ;;21,"68071-0224-20 ")
 ;;5476
 ;;21,"68071-0224-30 ")
 ;;5477
 ;;21,"68071-0270-30 ")
 ;;5478
 ;;21,"68071-0274-30 ")
 ;;5479
 ;;21,"68071-0274-60 ")
 ;;5480
 ;;21,"68071-0274-90 ")
 ;;5481
 ;;21,"68071-0284-30 ")
 ;;5482
 ;;21,"68071-0284-60 ")
 ;;5483
 ;;21,"68071-0284-90 ")
 ;;5484
 ;;21,"68071-0284-91 ")
 ;;5485
 ;;21,"68071-0285-30 ")
 ;;5486
 ;;21,"68071-0285-56 ")
 ;;5487
 ;;21,"68071-0285-60 ")
 ;;5488
 ;;21,"68071-0285-84 ")
 ;;5489
 ;;21,"68071-0285-90 ")
 ;;5490
 ;;21,"68071-0285-91 ")
 ;;5491
 ;;21,"68071-0286-60 ")
 ;;5492
 ;;21,"68071-0286-90 ")
 ;;5493
 ;;21,"68071-0287-00 ")
 ;;5494
 ;;21,"68071-0287-20 ")
 ;;5495
 ;;21,"68071-0287-30 ")
 ;;5496
 ;;21,"68071-0287-40 ")
 ;;5497
 ;;21,"68071-0287-60 ")
 ;;5498
 ;;21,"68071-0287-90 ")
 ;;5499
 ;;21,"68071-0287-91 ")
 ;;5500
 ;;21,"68071-0296-15 ")
 ;;5501
 ;;21,"68071-0296-20 ")
 ;;5502
 ;;21,"68071-0296-25 ")
 ;;5503
 ;;21,"68071-0296-30 ")
 ;;5504
 ;;21,"68071-0296-40 ")
 ;;5505
 ;;21,"68071-0296-50 ")
 ;;5506
 ;;21,"68071-0296-60 ")
 ;;5507
 ;;21,"68071-0296-81 ")
 ;;5508
 ;;21,"68071-0296-84 ")
 ;;5509
 ;;21,"68071-0296-90 ")
 ;;5510
 ;;21,"68071-0296-91 ")
 ;;5511
 ;;21,"68071-0296-92 ")
 ;;5512
 ;;21,"68071-0301-30 ")
 ;;5513
 ;;21,"68071-0301-40 ")
 ;;5514
 ;;21,"68071-0301-60 ")
 ;;5515
 ;;21,"68071-0301-90 ")
 ;;5516
 ;;21,"68071-0301-91 ")
 ;;5517
 ;;21,"68071-0342-30 ")
 ;;5518
 ;;21,"68071-0342-60 ")
 ;;5519
 ;;21,"68071-0344-10 ")
 ;;5520
 ;;21,"68071-0344-20 ")
 ;;5521
 ;;21,"68071-0344-30 ")
 ;;5522
 ;;21,"68071-0344-40 ")
 ;;5523
 ;;21,"68071-0344-60 ")
 ;;5524
 ;;21,"68071-0344-81 ")
 ;;5525
 ;;21,"68071-0344-90 ")
 ;;5526
 ;;21,"68071-0344-91 ")
 ;;5527
 ;;21,"68071-0344-92 ")
 ;;5528
 ;;21,"68071-0345-30 ")
 ;;5529
 ;;21,"68071-0352-30 ")
 ;;5530
 ;;21,"68071-0352-56 ")
 ;;5531
 ;;21,"68071-0352-60 ")
 ;;5532
 ;;21,"68071-0352-84 ")
 ;;5533
 ;;21,"68071-0352-90 ")
 ;;5534
 ;;21,"68071-0352-91 ")
 ;;5535
 ;;21,"68071-0447-90 ")
 ;;5536
 ;;21,"68071-0453-60 ")
 ;;5537
 ;;21,"68071-0453-81 ")
 ;;5538
 ;;21,"68071-0453-90 ")
 ;;5539
 ;;21,"68071-0454-60 ")
 ;;5540
 ;;21,"68071-0454-81 ")
 ;;5541
 ;;21,"68071-0454-88 ")
 ;;5542
 ;;21,"68071-0454-90 ")
 ;;5543
 ;;21,"68071-0454-91 ")
 ;;5544
 ;;21,"68071-0454-92 ")
 ;;5545
 ;;21,"68071-0457-56 ")
 ;;5546
 ;;21,"68071-0457-60 ")
 ;;5547
 ;;21,"68071-0457-84 ")
 ;;5548
 ;;21,"68071-0457-90 ")
 ;;5549
 ;;21,"68071-0480-30 ")
 ;;5550
 ;;21,"68071-0484-30 ")
 ;;5551
 ;;21,"68071-0484-56 ")
 ;;5552
 ;;21,"68071-0484-60 ")
 ;;5553
 ;;21,"68071-0484-90 ")
 ;;5554
 ;;21,"68071-0484-91 ")
 ;;5555
 ;;21,"68071-0490-30 ")
 ;;5556
 ;;21,"68071-0490-60 ")
 ;;5557
 ;;21,"68071-0490-90 ")
 ;;5558
 ;;21,"68071-0697-60 ")
 ;;5559
 ;;21,"68071-0738-30 ")
 ;;5560
 ;;21,"68071-0738-60 ")
 ;;5561
 ;;21,"68071-0760-30 ")
 ;;5562
 ;;21,"68071-0832-91 ")
 ;;5563
 ;;21,"68071-0833-91 ")
 ;;5564
 ;;21,"68071-0834-91 ")
 ;;5565
 ;;21,"68071-0909-30 ")
 ;;5566
 ;;21,"68071-0909-60 ")
 ;;5567
 ;;21,"68071-0909-90 ")
 ;;5568
 ;;21,"68071-0918-30 ")
 ;;5569
 ;;21,"68071-0918-60 ")
 ;;5570
 ;;21,"68071-0918-90 ")
 ;;5571
 ;;21,"68071-1320-00 ")
 ;;5572
 ;;21,"68071-1359-00 ")
 ;;5573
 ;;21,"68071-1361-00 ")
 ;;5574
 ;;21,"68071-1373-05 ")
 ;;5575
 ;;21,"68071-1374-05 ")
 ;;5576
 ;;21,"68071-1375-05 ")
 ;;5577
 ;;21,"68071-1376-03 ")
 ;;5578
 ;;21,"68071-2001-03 ")
 ;;5579
 ;;21,"68071-2001-06 ")
 ;;5580
 ;;21,"68071-2001-09 ")
 ;;5581
 ;;21,"68071-2010-06 ")
 ;;5582
 ;;21,"68084-0048-01 ")
 ;;5583
 ;;21,"68084-0048-11 ")
 ;;5584
 ;;21,"68084-0100-01 ")
 ;;5585
 ;;21,"68084-0100-11 ")
 ;;5586
 ;;21,"68084-0157-01 ")
 ;;5587
 ;;21,"68084-0157-11 ")
 ;;5588
 ;;21,"68084-0158-01 ")
 ;;5589
 ;;21,"68084-0158-11 ")
 ;;5590
 ;;21,"68084-0159-01 ")
 ;;5591
 ;;21,"68084-0159-11 ")
 ;;5592
 ;;21,"68084-0184-01 ")
 ;;5593
 ;;21,"68084-0184-11 ")
 ;;5594
 ;;21,"68084-0185-01 ")
 ;;5595
 ;;21,"68084-0185-11 ")
 ;;5596
 ;;21,"68084-0227-01 ")
 ;;5597
 ;;21,"68084-0227-11 ")
 ;;5598
 ;;21,"68084-0354-01 ")
 ;;5599
 ;;21,"68084-0354-11 ")
 ;;5600
 ;;21,"68084-0355-01 ")
 ;;5601
 ;;21,"68084-0355-11 ")
 ;;5602
 ;;21,"68084-0368-01 ")
 ;;5603
 ;;21,"68084-0368-11 ")
 ;;5604
 ;;21,"68084-0372-01 ")
 ;;5605
 ;;21,"68084-0372-11 ")
 ;;5606
 ;;21,"68084-0373-01 ")
 ;;5607
 ;;21,"68084-0373-11 ")
 ;;5608
 ;;21,"68084-0378-01 ")
 ;;5609
 ;;21,"68084-0378-11 ")
 ;;5610
 ;;21,"68084-0379-01 ")
 ;;5611
 ;;21,"68084-0379-11 ")
 ;;5612
 ;;21,"68084-0403-01 ")
 ;;5613
 ;;21,"68084-0403-11 ")
 ;;5614
 ;;21,"68084-0404-01 ")
 ;;5615
 ;;21,"68084-0404-11 ")
 ;;5616
 ;;21,"68084-0405-01 ")
 ;;5617
 ;;21,"68084-0405-11 ")
 ;;5618
 ;;21,"68084-0406-01 ")
 ;;5619
 ;;21,"68084-0406-11 ")
 ;;5620
 ;;21,"68084-0423-01 ")
 ;;5621
 ;;21,"68084-0423-11 ")
 ;;5622
 ;;21,"68084-0472-01 ")
 ;;5623
 ;;21,"68084-0472-11 ")
 ;;5624
 ;;21,"68084-0601-01 ")
 ;;5625
 ;;21,"68084-0601-11 ")
 ;;5626
 ;;21,"68084-0699-01 ")
 ;;5627
 ;;21,"68084-0699-11 ")
 ;;5628
 ;;21,"68084-0710-01 ")
 ;;5629
 ;;21,"68084-0710-11 ")
 ;;5630
 ;;21,"68084-0738-01 ")
 ;;5631
 ;;21,"68084-0738-11 ")
 ;;5632
 ;;21,"68084-0796-25 ")
 ;;5633
 ;;21,"68084-0796-95 ")
 ;;5634
 ;;21,"68084-0798-11 ")
 ;;5635
 ;;21,"68084-0798-21 ")
 ;;5636
 ;;21,"68084-0808-01 ")
 ;;5637
 ;;21,"68084-0808-11 ")
 ;;5638
 ;;21,"68084-0825-01 ")
 ;;5639
 ;;21,"68084-0825-11 ")
 ;;5640
 ;;21,"68084-0828-11 ")
 ;;5641
 ;;21,"68084-0828-21 ")
 ;;5642
 ;;21,"68084-0841-01 ")
 ;;5643
 ;;21,"68084-0841-09 ")
 ;;5644
 ;;21,"68084-0841-11 ")
 ;;5645
 ;;21,"68084-0852-25 ")
 ;;5646
 ;;21,"68084-0852-95 ")
 ;;5647
 ;;21,"68084-0863-01 ")
 ;;5648
 ;;21,"68084-0863-09 ")
 ;;5649
 ;;21,"68084-0863-11 ")
 ;;5650
 ;;21,"68084-0884-01 ")
 ;;5651
 ;;21,"68084-0884-09 ")
 ;;5652
 ;;21,"68084-0884-11 ")
 ;;5653
 ;;21,"68084-0895-01 ")
 ;;5654
 ;;21,"68084-0895-09 ")
 ;;5655
 ;;21,"68084-0895-11 ")
 ;;5656
 ;;21,"68084-0963-11 ")
 ;;5657
 ;;21,"68084-0963-21 ")
 ;;5658
 ;;21,"68084-0977-32 ")
 ;;5659
 ;;21,"68084-0977-33 ")
 ;;5660
 ;;21,"68084-0990-11 ")
 ;;5661
 ;;21,"68084-0990-21 ")
 ;;5662
 ;;21,"68094-0001-59 ")
 ;;5663
 ;;21,"68094-0001-62 ")
 ;;5664
 ;;21,"68094-0005-59 ")
 ;;5665
 ;;21,"68094-0005-61 ")
 ;;5666
 ;;21,"68094-0006-59 ")
 ;;5667
 ;;21,"68094-0006-61 ")
 ;;5668
 ;;21,"68094-0714-59 ")
 ;;5669
 ;;21,"68094-0714-62 ")
 ;;5670
 ;;21,"68094-0754-01 ")
 ;;5671
 ;;21,"68094-0754-58 ")
 ;;5672
 ;;21,"68094-0755-01 ")
 ;;5673
 ;;21,"68094-0755-58 ")
 ;;5674
 ;;21,"68094-0760-59 ")
 ;;5675
 ;;21,"68094-0760-62 ")
 ;;5676
 ;;21,"68094-0761-59 ")
 ;;5677
 ;;21,"68094-0761-62 ")
 ;;5678
 ;;21,"68094-0801-01 ")
 ;;5679
 ;;21,"68094-0801-58 ")
 ;;5680
 ;;21,"68094-0852-61 ")
 ;;5681
 ;;21,"68180-0383-06 ")
 ;;5682
 ;;21,"68180-0384-06 ")
 ;;5683
 ;;21,"68180-0385-06 ")
 ;;5684
 ;;21,"68180-0697-06 ")
 ;;5685