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

BGP61F8.m

Go to the documentation of this file.
BGP61F8 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 18, 2015 ;
 ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
 ;
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,"54868-4657-02 ")
 ;;2539
 ;;21,"54868-4657-03 ")
 ;;2540
 ;;21,"54868-4657-04 ")
 ;;2541
 ;;21,"54868-4657-06 ")
 ;;2542
 ;;21,"54868-4657-08 ")
 ;;2543
 ;;21,"54868-4658-00 ")
 ;;2544
 ;;21,"54868-4658-01 ")
 ;;2545
 ;;21,"54868-4658-02 ")
 ;;2546
 ;;21,"54868-4658-03 ")
 ;;2547
 ;;21,"54868-4658-04 ")
 ;;2548
 ;;21,"54868-4678-00 ")
 ;;2549
 ;;21,"54868-4678-01 ")
 ;;2550
 ;;21,"54868-4678-02 ")
 ;;2551
 ;;21,"54868-4678-03 ")
 ;;2552
 ;;21,"54868-4678-04 ")
 ;;2553
 ;;21,"54868-4729-00 ")
 ;;2554
 ;;21,"54868-4780-00 ")
 ;;2555
 ;;21,"54868-4780-01 ")
 ;;2556
 ;;21,"54868-4780-02 ")
 ;;2557
 ;;21,"54868-4785-00 ")
 ;;2558
 ;;21,"54868-4785-01 ")
 ;;2559
 ;;21,"54868-4785-02 ")
 ;;2560
 ;;21,"54868-4785-03 ")
 ;;2561
 ;;21,"54868-4869-00 ")
 ;;2562
 ;;21,"54868-4870-00 ")
 ;;2563
 ;;21,"54868-4870-01 ")
 ;;2564
 ;;21,"54868-4870-02 ")
 ;;2565
 ;;21,"54868-4885-00 ")
 ;;2566
 ;;21,"54868-4885-01 ")
 ;;2567
 ;;21,"54868-4904-00 ")
 ;;2568
 ;;21,"54868-4904-01 ")
 ;;2569
 ;;21,"54868-4977-00 ")
 ;;2570
 ;;21,"54868-4977-01 ")
 ;;2571
 ;;21,"54868-4977-02 ")
 ;;2572
 ;;21,"54868-4986-00 ")
 ;;2573
 ;;21,"54868-4986-01 ")
 ;;2574
 ;;21,"54868-4986-02 ")
 ;;2575
 ;;21,"54868-5001-00 ")
 ;;2576
 ;;21,"54868-5001-01 ")
 ;;2577
 ;;21,"54868-5001-02 ")
 ;;2578
 ;;21,"54868-5055-00 ")
 ;;2579
 ;;21,"54868-5064-00 ")
 ;;2580
 ;;21,"54868-5064-01 ")
 ;;2581
 ;;21,"54868-5075-00 ")
 ;;2582
 ;;21,"54868-5075-01 ")
 ;;2583
 ;;21,"54868-5077-00 ")
 ;;2584
 ;;21,"54868-5078-00 ")
 ;;2585
 ;;21,"54868-5078-01 ")
 ;;2586
 ;;21,"54868-5079-00 ")
 ;;2587
 ;;21,"54868-5079-01 ")
 ;;2588
 ;;21,"54868-5079-02 ")
 ;;2589
 ;;21,"54868-5082-00 ")
 ;;2590
 ;;21,"54868-5082-01 ")
 ;;2591
 ;;21,"54868-5082-02 ")
 ;;2592
 ;;21,"54868-5082-03 ")
 ;;2593
 ;;21,"54868-5099-00 ")
 ;;2594
 ;;21,"54868-5099-01 ")
 ;;2595
 ;;21,"54868-5100-00 ")
 ;;2596
 ;;21,"54868-5100-01 ")
 ;;2597
 ;;21,"54868-5100-02 ")
 ;;2598
 ;;21,"54868-5170-00 ")
 ;;2599
 ;;21,"54868-5170-01 ")
 ;;2600
 ;;21,"54868-5182-00 ")
 ;;2601
 ;;21,"54868-5182-01 ")
 ;;2602
 ;;21,"54868-5182-02 ")
 ;;2603
 ;;21,"54868-5196-00 ")
 ;;2604
 ;;21,"54868-5196-01 ")
 ;;2605
 ;;21,"54868-5196-02 ")
 ;;2606
 ;;21,"54868-5204-00 ")
 ;;2607
 ;;21,"54868-5204-01 ")
 ;;2608
 ;;21,"54868-5204-02 ")
 ;;2609
 ;;21,"54868-5204-03 ")
 ;;2610
 ;;21,"54868-5241-00 ")
 ;;2611
 ;;21,"54868-5241-01 ")
 ;;2612
 ;;21,"54868-5241-02 ")
 ;;2613
 ;;21,"54868-5245-00 ")
 ;;2614
 ;;21,"54868-5245-01 ")
 ;;2615
 ;;21,"54868-5245-02 ")
 ;;2616
 ;;21,"54868-5246-00 ")
 ;;2617
 ;;21,"54868-5246-01 ")
 ;;2618
 ;;21,"54868-5246-02 ")
 ;;2619
 ;;21,"54868-5256-00 ")
 ;;2620
 ;;21,"54868-5279-00 ")
 ;;2621
 ;;21,"54868-5281-01 ")
 ;;2622
 ;;21,"54868-5296-00 ")
 ;;2623
 ;;21,"54868-5297-00 ")
 ;;2624
 ;;21,"54868-5311-00 ")
 ;;2625
 ;;21,"54868-5311-01 ")
 ;;2626
 ;;21,"54868-5313-00 ")
 ;;2627
 ;;21,"54868-5313-01 ")
 ;;2628
 ;;21,"54868-5320-00 ")
 ;;2629
 ;;21,"54868-5320-01 ")
 ;;2630
 ;;21,"54868-5320-03 ")
 ;;2631
 ;;21,"54868-5320-04 ")
 ;;2632
 ;;21,"54868-5323-00 ")
 ;;2633
 ;;21,"54868-5323-01 ")
 ;;2634
 ;;21,"54868-5346-00 ")
 ;;2635
 ;;21,"54868-5346-01 ")
 ;;2636
 ;;21,"54868-5392-00 ")
 ;;2637
 ;;21,"54868-5418-00 ")
 ;;2638
 ;;21,"54868-5465-00 ")
 ;;2639
 ;;21,"54868-5465-01 ")
 ;;2640
 ;;21,"54868-5469-00 ")
 ;;2641
 ;;21,"54868-5469-01 ")
 ;;2642
 ;;21,"54868-5475-00 ")
 ;;2643
 ;;21,"54868-5489-00 ")
 ;;2644
 ;;21,"54868-5503-00 ")
 ;;2645
 ;;21,"54868-5503-01 ")
 ;;2646
 ;;21,"54868-5548-02 ")
 ;;2647
 ;;21,"54868-5591-00 ")
 ;;2648
 ;;21,"54868-5607-00 ")
 ;;2649
 ;;21,"54868-5607-01 ")
 ;;2650
 ;;21,"54868-5690-00 ")
 ;;2651
 ;;21,"54868-5690-01 ")
 ;;2652
 ;;21,"54868-5690-02 ")
 ;;2653
 ;;21,"54868-5690-03 ")
 ;;2654
 ;;21,"54868-5705-00 ")
 ;;2655
 ;;21,"54868-5747-00 ")
 ;;2656
 ;;21,"54868-5747-01 ")
 ;;2657
 ;;21,"54868-5772-00 ")
 ;;2658
 ;;21,"54868-5780-00 ")
 ;;2659
 ;;21,"54868-5780-01 ")
 ;;2660
 ;;21,"54868-5781-00 ")
 ;;2661
 ;;21,"54868-5781-01 ")
 ;;2662
 ;;21,"54868-5781-02 ")
 ;;2663
 ;;21,"54868-5781-03 ")
 ;;2664
 ;;21,"54868-5782-00 ")
 ;;2665
 ;;21,"54868-5782-01 ")
 ;;2666
 ;;21,"54868-5782-02 ")
 ;;2667
 ;;21,"54868-5782-03 ")
 ;;2668
 ;;21,"54868-5782-04 ")
 ;;2669
 ;;21,"54868-5783-00 ")
 ;;2670
 ;;21,"54868-5783-01 ")
 ;;2671
 ;;21,"54868-5787-00 ")
 ;;2672
 ;;21,"54868-5792-00 ")
 ;;2673
 ;;21,"54868-5792-01 ")
 ;;2674
 ;;21,"54868-5792-02 ")
 ;;2675
 ;;21,"54868-5793-00 ")
 ;;2676
 ;;21,"54868-5793-01 ")
 ;;2677
 ;;21,"54868-5804-00 ")
 ;;2678
 ;;21,"54868-5842-00 ")
 ;;2679
 ;;21,"54868-5842-01 ")
 ;;2680
 ;;21,"54868-5842-02 ")
 ;;2681
 ;;21,"54868-5842-03 ")
 ;;2682
 ;;21,"54868-5843-00 ")
 ;;2683
 ;;21,"54868-5843-01 ")
 ;;2684
 ;;21,"54868-5843-02 ")
 ;;2685
 ;;21,"54868-5843-03 ")
 ;;2686
 ;;21,"54868-5856-00 ")
 ;;2687
 ;;21,"54868-5856-01 ")
 ;;2688
 ;;21,"54868-5896-00 ")
 ;;2689
 ;;21,"54868-5928-00 ")
 ;;2690
 ;;21,"54868-5977-00 ")
 ;;2691
 ;;21,"54868-5983-00 ")
 ;;2692
 ;;21,"54868-5983-01 ")
 ;;2693
 ;;21,"54868-5996-00 ")
 ;;2694
 ;;21,"54868-5996-01 ")
 ;;2695
 ;;21,"54868-5997-00 ")
 ;;2696
 ;;21,"54868-5997-01 ")
 ;;2697
 ;;21,"54868-6036-00 ")
 ;;2698
 ;;21,"54868-6041-00 ")
 ;;2699
 ;;21,"54868-6042-00 ")
 ;;2700
 ;;21,"54868-6061-00 ")
 ;;2701
 ;;21,"54868-6061-01 ")
 ;;2702
 ;;21,"54868-6103-00 ")
 ;;2703
 ;;21,"54868-6104-00 ")
 ;;2704
 ;;21,"54868-6104-01 ")
 ;;2705
 ;;21,"54868-6107-00 ")
 ;;2706
 ;;21,"54868-6107-01 ")
 ;;2707
 ;;21,"54868-6108-00 ")
 ;;2708
 ;;21,"54868-6108-01 ")
 ;;2709
 ;;21,"54868-6109-00 ")
 ;;2710
 ;;21,"54868-6109-01 ")
 ;;2711
 ;;21,"54868-6110-00 ")
 ;;2712
 ;;21,"54868-6110-01 ")
 ;;2713
 ;;21,"54868-6117-00 ")
 ;;2714
 ;;21,"54868-6117-01 ")
 ;;2715
 ;;21,"54868-6117-02 ")
 ;;2716
 ;;21,"54868-6123-00 ")
 ;;2717
 ;;21,"54868-6193-00 ")
 ;;2718
 ;;21,"54868-6194-00 ")
 ;;2719
 ;;21,"54868-6250-00 ")
 ;;2720
 ;;21,"54868-6297-00 ")
 ;;2721
 ;;21,"55045-2201-01 ")
 ;;2722
 ;;21,"55045-2376-00 ")
 ;;2723
 ;;21,"55045-2376-08 ")
 ;;2724
 ;;21,"55045-2376-09 ")
 ;;2725
 ;;21,"55045-2424-00 ")
 ;;2726
 ;;21,"55045-2424-06 ")
 ;;2727
 ;;21,"55045-2799-00 ")
 ;;2728
 ;;21,"55045-2827-00 ")
 ;;2729
 ;;21,"55045-2827-08 ")
 ;;2730
 ;;21,"55045-2832-00 ")
 ;;2731
 ;;21,"55045-2832-08 ")
 ;;2732
 ;;21,"55045-2929-06 ")
 ;;2733
 ;;21,"55045-2929-08 ")
 ;;2734
 ;;21,"55045-2936-00 ")
 ;;2735
 ;;21,"55045-2937-00 ")
 ;;2736
 ;;21,"55045-2938-00 ")
 ;;2737
 ;;21,"55045-2938-08 ")
 ;;2738
 ;;21,"55045-2975-00 ")
 ;;2739
 ;;21,"55045-2975-06 ")
 ;;2740
 ;;21,"55045-2975-08 ")
 ;;2741
 ;;21,"55045-3000-00 ")
 ;;2742
 ;;21,"55045-3059-00 ")
 ;;2743
 ;;21,"55045-3059-08 ")
 ;;2744
 ;;21,"55045-3159-00 ")
 ;;2745
 ;;21,"55045-3225-06 ")
 ;;2746
 ;;21,"55045-3373-08 ")
 ;;2747
 ;;21,"55045-3401-08 ")
 ;;2748
 ;;21,"55045-3409-09 ")
 ;;2749
 ;;21,"55045-3642-09 ")
 ;;2750
 ;;21,"55045-3643-09 ")
 ;;2751
 ;;21,"55045-3644-09 ")
 ;;2752
 ;;21,"55045-3772-08 ")
 ;;2753
 ;;21,"55048-0020-30 ")
 ;;2754
 ;;21,"55048-0021-30 ")
 ;;2755
 ;;21,"55048-0022-30 ")
 ;;2756
 ;;21,"55048-0023-30 ")
 ;;2757
 ;;21,"55048-0024-30 ")
 ;;2758
 ;;21,"55048-0039-30 ")
 ;;2759
 ;;21,"55048-0040-30 ")
 ;;2760
 ;;21,"55048-0043-30 ")
 ;;2761
 ;;21,"55048-0123-30 ")
 ;;2762
 ;;21,"55048-0124-30 ")
 ;;2763
 ;;21,"55048-0125-30 ")
 ;;2764
 ;;21,"55048-0220-30 ")
 ;;2765
 ;;21,"55048-0221-30 ")
 ;;2766
 ;;21,"55048-0222-30 ")
 ;;2767
 ;;21,"55048-0223-30 ")
 ;;2768
 ;;21,"55048-0250-30 ")
 ;;2769
 ;;21,"55048-0251-30 ")
 ;;2770
 ;;21,"55048-0252-30 ")
 ;;2771
 ;;21,"55048-0253-30 ")
 ;;2772
 ;;21,"55048-0277-30 ")
 ;;2773
 ;;21,"55048-0278-30 ")
 ;;2774
 ;;21,"55048-0283-30 ")
 ;;2775
 ;;21,"55048-0291-30 ")
 ;;2776
 ;;21,"55048-0375-30 ")
 ;;2777
 ;;21,"55048-0376-30 ")
 ;;2778
 ;;21,"55048-0387-30 ")
 ;;2779
 ;;21,"55048-0387-60 ")
 ;;2780
 ;;21,"55048-0387-90 ")
 ;;2781
 ;;21,"55048-0388-30 ")
 ;;2782
 ;;21,"55048-0388-60 ")
 ;;2783
 ;;21,"55048-0388-90 ")
 ;;2784
 ;;21,"55048-0389-30 ")
 ;;2785
 ;;21,"55048-0390-30 ")
 ;;2786
 ;;21,"55048-0390-60 ")
 ;;2787
 ;;21,"55048-0409-30 ")
 ;;2788
 ;;21,"55048-0410-30 ")
 ;;2789
 ;;21,"55048-0410-90 ")
 ;;2790
 ;;21,"55048-0429-30 ")
 ;;2791
 ;;21,"55048-0444-30 ")
 ;;2792
 ;;21,"55048-0445-30 ")
 ;;2793
 ;;21,"55048-0446-30 ")
 ;;2794
 ;;21,"55048-0447-30 ")
 ;;2795
 ;;21,"55048-0448-30 ")
 ;;2796
 ;;21,"55048-0463-30 ")
 ;;2797
 ;;21,"55048-0464-30 ")
 ;;2798
 ;;21,"55048-0465-30 ")
 ;;2799
 ;;21,"55048-0466-30 ")
 ;;2800
 ;;21,"55048-0471-30 ")
 ;;2801
 ;;21,"55048-0473-90 ")
 ;;2802
 ;;21,"55048-0619-30 ")
 ;;2803
 ;;21,"55048-0620-30 ")
 ;;2804
 ;;21,"55048-0621-30 ")
 ;;2805
 ;;21,"55111-0133-01 ")
 ;;2806
 ;;21,"55111-0134-01 ")
 ;;2807
 ;;21,"55111-0338-01 ")
 ;;2808
 ;;21,"55111-0339-01 ")
 ;;2809
 ;;21,"55111-0339-05 ")
 ;;2810
 ;;21,"55111-0340-01 ")
 ;;2811
 ;;21,"55111-0340-05 ")
 ;;2812
 ;;21,"55111-0341-01 ")
 ;;2813
 ;;21,"55111-0341-05 ")
 ;;2814
 ;;21,"55111-0438-90 ")
 ;;2815
 ;;21,"55111-0439-05 ")
 ;;2816
 ;;21,"55111-0439-90 ")
 ;;2817
 ;;21,"55111-0440-05 ")
 ;;2818
 ;;21,"55111-0440-90 ")
 ;;2819
 ;;21,"55111-0441-05 ")
 ;;2820
 ;;21,"55111-0441-90 ")
 ;;2821
 ;;21,"55111-0586-01 ")
 ;;2822
 ;;21,"55111-0587-01 ")
 ;;2823
 ;;21,"55111-0621-90 ")
 ;;2824
 ;;21,"55111-0622-90 ")
 ;;2825
 ;;21,"55111-0623-90 ")
 ;;2826
 ;;21,"55111-0624-90 ")
 ;;2827
 ;;21,"55289-0039-30 ")
 ;;2828
 ;;21,"55289-0086-30 ")
 ;;2829
 ;;21,"55289-0096-30 ")
 ;;2830
 ;;21,"55289-0106-30 ")
 ;;2831
 ;;21,"55289-0212-30 ")
 ;;2832
 ;;21,"55289-0212-90 ")
 ;;2833
 ;;21,"55289-0238-30 ")
 ;;2834
 ;;21,"55289-0344-30 ")
 ;;2835
 ;;21,"55289-0344-90 ")
 ;;2836
 ;;21,"55289-0436-30 ")
 ;;2837
 ;;21,"55289-0443-30 ")
 ;;2838
 ;;21,"55289-0483-30 ")
 ;;2839
 ;;21,"55289-0484-30 ")
 ;;2840
 ;;21,"55289-0509-30 ")
 ;;2841
 ;;21,"55289-0522-30 ")
 ;;2842
 ;;21,"55289-0552-30 ")
 ;;2843
 ;;21,"55289-0553-30 ")
 ;;2844
 ;;21,"55289-0554-30 ")
 ;;2845
 ;;21,"55289-0555-30 ")
 ;;2846
 ;;21,"55289-0591-30 ")
 ;;2847
 ;;21,"55289-0591-90 ")
 ;;2848
 ;;21,"55289-0622-03 ")
 ;;2849
 ;;21,"55289-0622-30 ")
 ;;2850
 ;;21,"55289-0638-01 ")
 ;;2851
 ;;21,"55289-0638-12 ")
 ;;2852
 ;;21,"55289-0638-14 ")
 ;;2853
 ;;21,"55289-0638-30 ")
 ;;2854
 ;;21,"55289-0638-60 ")
 ;;2855
 ;;21,"55289-0638-90 ")
 ;;2856
 ;;21,"55289-0638-98 ")
 ;;2857
 ;;21,"55289-0694-10 ")
 ;;2858
 ;;21,"55289-0694-30 ")
 ;;2859
 ;;21,"55289-0694-90 ")
 ;;2860
 ;;21,"55289-0696-14 ")
 ;;2861
 ;;21,"55289-0696-30 ")
 ;;2862
 ;;21,"55289-0696-60 ")
 ;;2863
 ;;21,"55289-0696-90 ")
 ;;2864
 ;;21,"55289-0696-98 ")
 ;;2865
 ;;21,"55289-0815-30 ")
 ;;2866
 ;;21,"55289-0817-30 ")
 ;;2867
 ;;21,"55289-0820-30 ")
 ;;2868
 ;;21,"55289-0825-30 ")
 ;;2869
 ;;21,"55289-0838-30 ")
 ;;2870
 ;;21,"55289-0867-30 ")
 ;;2871
 ;;21,"55289-0876-30 ")
 ;;2872
 ;;21,"55289-0878-30 ")
 ;;2873
 ;;21,"55289-0884-30 ")
 ;;2874
 ;;21,"55289-0884-90 ")
 ;;2875
 ;;21,"55289-0917-30 ")
 ;;2876
 ;;21,"55289-0917-90 ")
 ;;2877
 ;;21,"55289-0929-08 ")
 ;;2878
 ;;21,"55289-0929-30 ")
 ;;2879
 ;;21,"55289-0963-30 ")
 ;;2880
 ;;21,"55289-0981-30 ")
 ;;2881
 ;;21,"55289-0984-30 ")
 ;;2882
 ;;21,"55289-0984-90 ")
 ;;2883
 ;;21,"55700-0011-30 ")
 ;;2884
 ;;21,"55700-0011-60 ")
 ;;2885
 ;;21,"55700-0011-90 ")
 ;;2886
 ;;21,"55700-0012-30 ")
 ;;2887
 ;;21,"55700-0012-60 ")
 ;;2888
 ;;21,"55700-0012-90 ")
 ;;2889
 ;;21,"55700-0014-30 ")
 ;;2890
 ;;21,"55700-0014-60 ")
 ;;2891
 ;;21,"55700-0023-30 ")
 ;;2892
 ;;21,"55700-0023-60 ")
 ;;2893
 ;;21,"55700-0032-30 ")
 ;;2894
 ;;21,"55700-0032-60 ")
 ;;2895
 ;;21,"55700-0032-90 ")
 ;;2896
 ;;21,"55700-0037-30 ")
 ;;2897