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

BGP33J15.m

Go to the documentation of this file.
BGP33J15 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"58016-0643-24 ")
 ;;5427
 ;;21,"58016-0643-30 ")
 ;;5428
 ;;21,"58016-0643-40 ")
 ;;5429
 ;;21,"58016-0643-50 ")
 ;;5430
 ;;21,"58016-0643-60 ")
 ;;5431
 ;;21,"58016-0643-89 ")
 ;;5432
 ;;21,"58016-0643-90 ")
 ;;5433
 ;;21,"58016-0643-99 ")
 ;;5434
 ;;21,"58016-0810-00 ")
 ;;5435
 ;;21,"58016-0810-12 ")
 ;;5436
 ;;21,"58016-0810-15 ")
 ;;5437
 ;;21,"58016-0810-30 ")
 ;;5438
 ;;21,"58016-0872-12 ")
 ;;5439
 ;;21,"58016-0872-15 ")
 ;;5440
 ;;21,"58016-0872-18 ")
 ;;5441
 ;;21,"58016-0872-20 ")
 ;;5442
 ;;21,"58016-0872-24 ")
 ;;5443
 ;;21,"58016-0872-30 ")
 ;;5444
 ;;21,"58016-0873-00 ")
 ;;5445
 ;;21,"58016-0873-15 ")
 ;;5446
 ;;21,"58016-0873-20 ")
 ;;5447
 ;;21,"58016-0873-30 ")
 ;;5448
 ;;21,"58016-0924-00 ")
 ;;5449
 ;;21,"58016-0924-30 ")
 ;;5450
 ;;21,"58016-0924-60 ")
 ;;5451
 ;;21,"58016-0924-90 ")
 ;;5452
 ;;21,"58016-0953-00 ")
 ;;5453
 ;;21,"58016-0953-02 ")
 ;;5454
 ;;21,"58016-0953-10 ")
 ;;5455
 ;;21,"58016-0953-12 ")
 ;;5456
 ;;21,"58016-0953-15 ")
 ;;5457
 ;;21,"58016-0953-20 ")
 ;;5458
 ;;21,"58016-0953-30 ")
 ;;5459
 ;;21,"58016-0953-60 ")
 ;;5460
 ;;21,"58016-0953-90 ")
 ;;5461
 ;;21,"58016-0955-00 ")
 ;;5462
 ;;21,"58016-0955-30 ")
 ;;5463
 ;;21,"58016-0955-60 ")
 ;;5464
 ;;21,"58016-0955-90 ")
 ;;5465
 ;;21,"58016-0957-00 ")
 ;;5466
 ;;21,"58016-0957-02 ")
 ;;5467
 ;;21,"58016-0957-10 ")
 ;;5468
 ;;21,"58016-0957-12 ")
 ;;5469
 ;;21,"58016-0957-15 ")
 ;;5470
 ;;21,"58016-0957-20 ")
 ;;5471
 ;;21,"58016-0957-30 ")
 ;;5472
 ;;21,"58016-0957-60 ")
 ;;5473
 ;;21,"58016-0957-90 ")
 ;;5474
 ;;21,"58016-0964-00 ")
 ;;5475
 ;;21,"58016-0964-30 ")
 ;;5476
 ;;21,"58016-0964-60 ")
 ;;5477
 ;;21,"58016-0964-90 ")
 ;;5478
 ;;21,"58016-0975-00 ")
 ;;5479
 ;;21,"58016-0975-30 ")
 ;;5480
 ;;21,"58016-0975-60 ")
 ;;5481
 ;;21,"58016-0975-90 ")
 ;;5482
 ;;21,"58016-1004-01 ")
 ;;5483
 ;;21,"58016-1005-01 ")
 ;;5484
 ;;21,"58016-1006-01 ")
 ;;5485
 ;;21,"58016-1007-01 ")
 ;;5486
 ;;21,"58016-1011-01 ")
 ;;5487
 ;;21,"58016-1019-01 ")
 ;;5488
 ;;21,"58016-1021-01 ")
 ;;5489
 ;;21,"58016-1023-01 ")
 ;;5490
 ;;21,"58016-1024-01 ")
 ;;5491
 ;;21,"58016-1025-01 ")
 ;;5492
 ;;21,"58016-1026-01 ")
 ;;5493
 ;;21,"58016-1027-01 ")
 ;;5494
 ;;21,"58016-1028-01 ")
 ;;5495
 ;;21,"58016-1029-01 ")
 ;;5496
 ;;21,"58016-1033-01 ")
 ;;5497
 ;;21,"58016-1034-01 ")
 ;;5498
 ;;21,"58016-1035-01 ")
 ;;5499
 ;;21,"58016-1036-01 ")
 ;;5500
 ;;21,"58016-1037-01 ")
 ;;5501
 ;;21,"58016-1038-01 ")
 ;;5502
 ;;21,"58016-1039-01 ")
 ;;5503
 ;;21,"58016-1045-01 ")
 ;;5504
 ;;21,"58016-1046-01 ")
 ;;5505
 ;;21,"58016-4147-01 ")
 ;;5506
 ;;21,"58016-4148-01 ")
 ;;5507
 ;;21,"58016-4192-01 ")
 ;;5508
 ;;21,"58016-4193-01 ")
 ;;5509
 ;;21,"58016-4786-01 ")
 ;;5510
 ;;21,"58016-4790-01 ")
 ;;5511
 ;;21,"58016-4804-01 ")
 ;;5512
 ;;21,"58016-4807-01 ")
 ;;5513
 ;;21,"58016-4814-01 ")
 ;;5514
 ;;21,"58016-4834-01 ")
 ;;5515
 ;;21,"58016-4842-01 ")
 ;;5516
 ;;21,"58016-4847-01 ")
 ;;5517
 ;;21,"58016-4869-01 ")
 ;;5518
 ;;21,"58016-4873-01 ")
 ;;5519
 ;;21,"58016-4990-01 ")
 ;;5520
 ;;21,"58016-9438-01 ")
 ;;5521
 ;;21,"58016-9453-01 ")
 ;;5522
 ;;21,"58016-9551-01 ")
 ;;5523
 ;;21,"58854-0848-30 ")
 ;;5524
 ;;21,"58864-0029-30 ")
 ;;5525
 ;;21,"58864-0029-40 ")
 ;;5526
 ;;21,"58864-0034-10 ")
 ;;5527
 ;;21,"58864-0034-14 ")
 ;;5528
 ;;21,"58864-0067-20 ")
 ;;5529
 ;;21,"58864-0072-30 ")
 ;;5530
 ;;21,"58864-0072-40 ")
 ;;5531
 ;;21,"58864-0073-20 ")
 ;;5532
 ;;21,"58864-0073-28 ")
 ;;5533
 ;;21,"58864-0073-30 ")
 ;;5534
 ;;21,"58864-0073-40 ")
 ;;5535
 ;;21,"58864-0073-56 ")
 ;;5536
 ;;21,"58864-0149-40 ")
 ;;5537
 ;;21,"58864-0150-30 ")
 ;;5538
 ;;21,"58864-0189-10 ")
 ;;5539
 ;;21,"58864-0189-20 ")
 ;;5540
 ;;21,"58864-0189-28 ")
 ;;5541
 ;;21,"58864-0190-12 ")
 ;;5542
 ;;21,"58864-0190-20 ")
 ;;5543
 ;;21,"58864-0190-28 ")
 ;;5544
 ;;21,"58864-0190-30 ")
 ;;5545
 ;;21,"58864-0195-40 ")
 ;;5546
 ;;21,"58864-0379-40 ")
 ;;5547
 ;;21,"58864-0478-06 ")
 ;;5548
 ;;21,"58864-0478-10 ")
 ;;5549
 ;;21,"58864-0478-14 ")
 ;;5550
 ;;21,"58864-0478-20 ")
 ;;5551
 ;;21,"58864-0478-30 ")
 ;;5552
 ;;21,"58864-0607-40 ")
 ;;5553
 ;;21,"58864-0607-60 ")
 ;;5554
 ;;21,"58864-0612-28 ")
 ;;5555
 ;;21,"58864-0615-30 ")
 ;;5556
 ;;21,"58864-0621-05 ")
 ;;5557
 ;;21,"58864-0621-10 ")
 ;;5558
 ;;21,"58864-0621-30 ")
 ;;5559
 ;;21,"58864-0632-40 ")
 ;;5560
 ;;21,"58864-0637-14 ")
 ;;5561
 ;;21,"58864-0637-20 ")
 ;;5562
 ;;21,"58864-0637-30 ")
 ;;5563
 ;;21,"58864-0655-04 ")
 ;;5564
 ;;21,"58864-0655-06 ")
 ;;5565
 ;;21,"58864-0655-14 ")
 ;;5566
 ;;21,"58864-0655-30 ")
 ;;5567
 ;;21,"58864-0675-30 ")
 ;;5568
 ;;21,"58864-0675-40 ")
 ;;5569
 ;;21,"58864-0690-20 ")
 ;;5570
 ;;21,"58864-0697-20 ")
 ;;5571
 ;;21,"58864-0740-30 ")
 ;;5572
 ;;21,"58864-0767-20 ")
 ;;5573
 ;;21,"58864-0767-21 ")
 ;;5574
 ;;21,"58864-0767-30 ")
 ;;5575
 ;;21,"58864-0775-20 ")
 ;;5576
 ;;21,"58864-0777-30 ")
 ;;5577
 ;;21,"58864-0791-06 ")
 ;;5578
 ;;21,"58864-0806-06 ")
 ;;5579
 ;;21,"58864-0806-14 ")
 ;;5580
 ;;21,"58864-0806-20 ")
 ;;5581
 ;;21,"58864-0833-10 ")
 ;;5582
 ;;21,"58864-0833-20 ")
 ;;5583
 ;;21,"58864-0837-20 ")
 ;;5584
 ;;21,"58864-0845-30 ")
 ;;5585
 ;;21,"58864-0845-40 ")
 ;;5586
 ;;21,"58864-0848-30 ")
 ;;5587
 ;;21,"59366-7338-01 ")
 ;;5588
 ;;21,"59366-7339-01 ")
 ;;5589
 ;;21,"59366-7340-05 ")
 ;;5590
 ;;21,"59630-0115-05 ")
 ;;5591
 ;;21,"59630-0821-12 ")
 ;;5592
 ;;21,"59630-0821-60 ")
 ;;5593
 ;;21,"59630-0821-90 ")
 ;;5594
 ;;21,"59762-0016-01 ")
 ;;5595
 ;;21,"59762-0278-02 ")
 ;;5596
 ;;21,"59762-0279-02 ")
 ;;5597
 ;;21,"59762-0280-03 ")
 ;;5598
 ;;21,"59762-1020-01 ")
 ;;5599
 ;;21,"59762-1020-03 ")
 ;;5600
 ;;21,"59762-1021-01 ")
 ;;5601
 ;;21,"59762-1021-07 ")
 ;;5602
 ;;21,"59762-1022-02 ")
 ;;5603
 ;;21,"59762-1022-04 ")
 ;;5604
 ;;21,"59762-1022-07 ")
 ;;5605
 ;;21,"59762-1023-04 ")
 ;;5606
 ;;21,"59762-1023-05 ")
 ;;5607
 ;;21,"59762-1023-06 ")
 ;;5608
 ;;21,"59762-1050-02 ")
 ;;5609
 ;;21,"59762-1050-05 ")
 ;;5610
 ;;21,"59762-1050-59 ")
 ;;5611
 ;;21,"59762-1081-01 ")
 ;;5612
 ;;21,"59762-1081-02 ")
 ;;5613
 ;;21,"59762-1083-01 ")
 ;;5614
 ;;21,"59762-1083-02 ")
 ;;5615
 ;;21,"59762-1534-01 ")
 ;;5616
 ;;21,"59762-1534-02 ")
 ;;5617
 ;;21,"59762-1537-01 ")
 ;;5618
 ;;21,"59762-1537-02 ")
 ;;5619
 ;;21,"59762-1537-03 ")
 ;;5620
 ;;21,"59762-2000-01 ")
 ;;5621
 ;;21,"59762-2000-04 ")
 ;;5622
 ;;21,"59762-2180-01 ")
 ;;5623
 ;;21,"59762-2220-02 ")
 ;;5624
 ;;21,"59762-2221-01 ")
 ;;5625
 ;;21,"59762-2221-02 ")
 ;;5626
 ;;21,"59762-3020-01 ")
 ;;5627
 ;;21,"59762-3020-02 ")
 ;;5628
 ;;21,"59762-3021-01 ")
 ;;5629
 ;;21,"59762-3021-02 ")
 ;;5630
 ;;21,"59762-3051-01 ")
 ;;5631
 ;;21,"59762-3051-02 ")
 ;;5632
 ;;21,"59762-3060-01 ")
 ;;5633
 ;;21,"59762-3060-02 ")
 ;;5634
 ;;21,"59762-3060-03 ")
 ;;5635
 ;;21,"59762-3070-01 ")
 ;;5636
 ;;21,"59762-3070-02 ")
 ;;5637
 ;;21,"59762-3080-01 ")
 ;;5638
 ;;21,"59762-3110-01 ")
 ;;5639
 ;;21,"59762-3120-01 ")
 ;;5640
 ;;21,"59762-3130-01 ")
 ;;5641
 ;;21,"59762-3140-01 ")
 ;;5642
 ;;21,"59762-3328-01 ")
 ;;5643
 ;;21,"59762-4080-01 ")
 ;;5644
 ;;21,"59762-4080-02 ")
 ;;5645
 ;;21,"59762-4080-05 ")
 ;;5646
 ;;21,"59762-4081-01 ")
 ;;5647
 ;;21,"59762-4081-02 ")
 ;;5648
 ;;21,"59762-5010-01 ")
 ;;5649
 ;;21,"59762-5010-02 ")
 ;;5650
 ;;21,"59772-0174-20 ")
 ;;5651
 ;;21,"59772-0802-02 ")
 ;;5652
 ;;21,"60346-0082-44 ")
 ;;5653
 ;;21,"60346-0364-03 ")
 ;;5654
 ;;21,"60346-0364-09 ")
 ;;5655
 ;;21,"60346-0364-15 ")
 ;;5656
 ;;21,"60346-0364-21 ")
 ;;5657
 ;;21,"60346-0364-44 ")
 ;;5658
 ;;21,"60346-0433-06 ")
 ;;5659
 ;;21,"60346-0433-10 ")
 ;;5660
 ;;21,"60346-0433-14 ")
 ;;5661
 ;;21,"60346-0433-15 ")
 ;;5662
 ;;21,"60346-0433-20 ")
 ;;5663
 ;;21,"60346-0433-44 ")
 ;;5664
 ;;21,"60346-0433-99 ")
 ;;5665
 ;;21,"60346-0649-08 ")
 ;;5666
 ;;21,"60346-0655-06 ")
 ;;5667
 ;;21,"60346-0655-10 ")
 ;;5668
 ;;21,"60346-0655-15 ")
 ;;5669
 ;;21,"60429-0021-01 ")
 ;;5670
 ;;21,"60429-0021-05 ")
 ;;5671
 ;;21,"60429-0022-01 ")
 ;;5672
 ;;21,"60429-0022-05 ")
 ;;5673
 ;;21,"60429-0023-01 ")
 ;;5674
 ;;21,"60429-0023-05 ")
 ;;5675
 ;;21,"60429-0024-01 ")
 ;;5676
 ;;21,"60429-0024-05 ")
 ;;5677
 ;;21,"60429-0036-40 ")
 ;;5678
 ;;21,"60429-0037-40 ")
 ;;5679
 ;;21,"60429-0069-92 ")
 ;;5680
 ;;21,"60429-0070-40 ")
 ;;5681
 ;;21,"60429-0147-01 ")
 ;;5682
 ;;21,"60429-0147-10 ")
 ;;5683
 ;;21,"60429-0148-01 ")
 ;;5684
 ;;21,"60429-0148-05 ")
 ;;5685
 ;;21,"60429-0742-01 ")
 ;;5686
 ;;21,"60429-0743-01 ")
 ;;5687
 ;;21,"60429-0743-05 ")
 ;;5688
 ;;21,"60429-0743-20 ")
 ;;5689
 ;;21,"60429-0744-01 ")
 ;;5690
 ;;21,"60432-0065-00 ")
 ;;5691
 ;;21,"60432-0065-47 ")
 ;;5692
 ;;21,"60432-0065-75 ")
 ;;5693
 ;;21,"60505-0679-05 ")
 ;;5694
 ;;21,"60505-0679-08 ")
 ;;5695
 ;;21,"60505-0679-09 ")
 ;;5696
 ;;21,"60505-0748-04 ")
 ;;5697
 ;;21,"60505-0748-05 ")
 ;;5698
 ;;21,"60505-0749-04 ")
 ;;5699
 ;;21,"60505-0749-05 ")
 ;;5700
 ;;21,"60505-0750-00 ")
 ;;5701
 ;;21,"60505-0750-04 ")
 ;;5702
 ;;21,"60505-0751-00 ")
 ;;5703
 ;;21,"60505-0751-04 ")
 ;;5704
 ;;21,"60505-0752-00 ")
 ;;5705
 ;;21,"60505-0752-04 ")
 ;;5706
 ;;21,"60505-0753-00 ")
 ;;5707
 ;;21,"60505-0753-04 ")
 ;;5708
 ;;21,"60505-0769-00 ")
 ;;5709
 ;;21,"60505-1308-01 ")
 ;;5710
 ;;21,"60505-1309-01 ")
 ;;5711
 ;;21,"60505-1310-01 ")
 ;;5712
 ;;21,"60505-1310-04 ")
 ;;5713
 ;;21,"60505-2532-01 ")
 ;;5714
 ;;21,"60505-2533-01 ")
 ;;5715
 ;;21,"60505-2533-05 ")
 ;;5716
 ;;21,"60505-2539-03 ")
 ;;5717
 ;;21,"60505-2540-02 ")
 ;;5718
 ;;21,"60505-2541-02 ")
 ;;5719
 ;;21,"60505-2573-02 ")
 ;;5720
 ;;21,"60505-2573-05 ")
 ;;5721
 ;;21,"60505-2573-07 ")
 ;;5722
 ;;21,"60505-2574-02 ")
 ;;5723
 ;;21,"60505-2574-05 ")
 ;;5724
 ;;21,"60505-2574-07 ")
 ;;5725
 ;;21,"60505-2581-00 ")
 ;;5726
 ;;21,"60505-2581-03 ")
 ;;5727
 ;;21,"60505-2582-00 ")
 ;;5728
 ;;21,"60505-2582-03 ")
 ;;5729
 ;;21,"60505-2583-03 ")
 ;;5730
 ;;21,"60505-2615-06 ")
 ;;5731
 ;;21,"60505-2616-06 ")
 ;;5732
 ;;21,"60505-2681-02 ")
 ;;5733
 ;;21,"60505-2681-06 ")
 ;;5734
 ;;21,"60505-2682-02 ")
 ;;5735
 ;;21,"60505-2682-06 ")
 ;;5736
 ;;21,"60505-6076-04 ")
 ;;5737
 ;;21,"60505-6093-05 ")
 ;;5738
 ;;21,"60505-6094-00 ")
 ;;5739
 ;;21,"60760-0069-20 ")
 ;;5740
 ;;21,"60760-0261-20 ")
 ;;5741
 ;;21,"60760-0337-08 ")
 ;;5742
 ;;21,"60760-0337-28 ")
 ;;5743
 ;;21,"60760-0337-60 ")
 ;;5744
 ;;21,"60760-0513-10 ")
 ;;5745
 ;;21,"60760-0562-20 ")
 ;;5746
 ;;21,"60760-0693-05 ")
 ;;5747
 ;;21,"60760-0815-10 ")
 ;;5748
 ;;21,"61392-0113-30 ")
 ;;5749
 ;;21,"61392-0113-31 ")
 ;;5750
 ;;21,"61392-0113-32 ")
 ;;5751
 ;;21,"61392-0113-39 ")
 ;;5752
 ;;21,"61392-0113-45 ")
 ;;5753
 ;;21,"61392-0113-51 ")
 ;;5754
 ;;21,"61392-0113-54 ")
 ;;5755
 ;;21,"61392-0113-60 ")
 ;;5756
 ;;21,"61392-0113-90 ")
 ;;5757
 ;;21,"61392-0113-91 ")
 ;;5758
 ;;21,"61392-0714-32 ")
 ;;5759
 ;;21,"61392-0714-45 ")
 ;;5760
 ;;21,"61392-0714-54 ")
 ;;5761
 ;;21,"61392-0714-91 ")
 ;;5762
 ;;21,"61392-0731-30 ")
 ;;5763
 ;;21,"61392-0731-31 ")
 ;;5764
 ;;21,"61392-0731-32 ")
 ;;5765
 ;;21,"61392-0731-39 ")
 ;;5766
 ;;21,"61392-0731-45 ")
 ;;5767
 ;;21,"61392-0731-51 ")
 ;;5768
 ;;21,"61392-0731-54 ")
 ;;5769
 ;;21,"61392-0731-60 ")
 ;;5770
 ;;21,"61392-0731-90 ")
 ;;5771
 ;;21,"61392-0731-91 ")
 ;;5772
 ;;21,"61392-0732-30 ")
 ;;5773
 ;;21,"61392-0732-31 ")
 ;;5774
 ;;21,"61392-0732-32 ")
 ;;5775
 ;;21,"61392-0732-39 ")
 ;;5776
 ;;21,"61392-0732-45 ")
 ;;5777
 ;;21,"61392-0732-51 ")
 ;;5778
 ;;21,"61392-0732-54 ")
 ;;5779
 ;;21,"61392-0732-60 ")
 ;;5780
 ;;21,"61392-0732-90 ")
 ;;5781
 ;;21,"61392-0732-91 ")
 ;;5782
 ;;21,"61392-0782-30 ")
 ;;5783
 ;;21,"61392-0782-31 ")
 ;;5784
 ;;21,"61392-0782-32 ")
 ;;5785
 ;;21,"61392-0782-39 ")
 ;;5786
 ;;21,"61392-0782-45 ")
 ;;5787
 ;;21,"61392-0782-51 ")
 ;;5788
 ;;21,"61392-0782-54 ")
 ;;5789
 ;;21,"61392-0782-60 ")
 ;;5790
 ;;21,"61392-0782-90 ")
 ;;5791
 ;;21,"61392-0782-91 ")
 ;;5792
 ;;21,"61392-0783-30 ")
 ;;5793
 ;;21,"61392-0783-31 ")
 ;;5794
 ;;21,"61392-0783-32 ")
 ;;5795
 ;;21,"61392-0783-39 ")
 ;;5796
 ;;21,"61392-0783-45 ")
 ;;5797
 ;;21,"61392-0783-51 ")
 ;;5798
 ;;21,"61392-0783-54 ")
 ;;5799
 ;;21,"61392-0783-60 ")
 ;;5800
 ;;21,"61392-0783-90 ")
 ;;5801
 ;;21,"61392-0783-91 ")
 ;;5802
 ;;21,"61442-0161-01 ")
 ;;5803
 ;;21,"61442-0161-05 ")
 ;;5804
 ;;21,"61442-0162-01 ")
 ;;5805
 ;;21,"61442-0162-05 ")
 ;;5806
 ;;21,"61442-0171-30 ")
 ;;5807
 ;;21,"61442-0172-30 ")
 ;;5808
 ;;21,"61442-0222-01 ")
 ;;5809
 ;;21,"61442-0223-01 ")
 ;;5810
 ;;21,"61442-0223-05 ")
 ;;5811
 ;;21,"61553-0012-72 ")
 ;;5812