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

BGPM5BAX.m

Go to the documentation of this file.
  1. BGPM5BAX ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON SEP 12, 2011;
  1. ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
  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,"55045356601 ")
  1. ;;2651
  1. ;;21,"55045356801 ")
  1. ;;2652
  1. ;;21,"55045375708 ")
  1. ;;2653
  1. ;;21,"55045376608 ")
  1. ;;2654
  1. ;;21,"55045379901 ")
  1. ;;2655
  1. ;;21,"55111014701 ")
  1. ;;2656
  1. ;;21,"55111014730 ")
  1. ;;2657
  1. ;;21,"55111014790 ")
  1. ;;2658
  1. ;;21,"55111014801 ")
  1. ;;2659
  1. ;;21,"55111014810 ")
  1. ;;2660
  1. ;;21,"55111014830 ")
  1. ;;2661
  1. ;;21,"55111014890 ")
  1. ;;2662
  1. ;;21,"55111014901 ")
  1. ;;2663
  1. ;;21,"55111014910 ")
  1. ;;2664
  1. ;;21,"55111014930 ")
  1. ;;2665
  1. ;;21,"55111014990 ")
  1. ;;2666
  1. ;;21,"55111015001 ")
  1. ;;2667
  1. ;;21,"55111015005 ")
  1. ;;2668
  1. ;;21,"55111015010 ")
  1. ;;2669
  1. ;;21,"55111015030 ")
  1. ;;2670
  1. ;;21,"55111015078 ")
  1. ;;2671
  1. ;;21,"55111015079 ")
  1. ;;2672
  1. ;;21,"55111017301 ")
  1. ;;2673
  1. ;;21,"55111017305 ")
  1. ;;2674
  1. ;;21,"55111017330 ")
  1. ;;2675
  1. ;;21,"55111017360 ")
  1. ;;2676
  1. ;;21,"55111017390 ")
  1. ;;2677
  1. ;;21,"55111017401 ")
  1. ;;2678
  1. ;;21,"55111017405 ")
  1. ;;2679
  1. ;;21,"55111017430 ")
  1. ;;2680
  1. ;;21,"55111017460 ")
  1. ;;2681
  1. ;;21,"55111017490 ")
  1. ;;2682
  1. ;;21,"55111017501 ")
  1. ;;2683
  1. ;;21,"55111017505 ")
  1. ;;2684
  1. ;;21,"55111017530 ")
  1. ;;2685
  1. ;;21,"55111017560 ")
  1. ;;2686
  1. ;;21,"55111017590 ")
  1. ;;2687
  1. ;;21,"55111028448 ")
  1. ;;2688
  1. ;;21,"55111034201 ")
  1. ;;2689
  1. ;;21,"55111034205 ")
  1. ;;2690
  1. ;;21,"55111034230 ")
  1. ;;2691
  1. ;;21,"55111034260 ")
  1. ;;2692
  1. ;;21,"55111034278 ")
  1. ;;2693
  1. ;;21,"55111034288 ")
  1. ;;2694
  1. ;;21,"55111034290 ")
  1. ;;2695
  1. ;;21,"55111034299 ")
  1. ;;2696
  1. ;;21,"55111034301 ")
  1. ;;2697
  1. ;;21,"55111034305 ")
  1. ;;2698
  1. ;;21,"55111034330 ")
  1. ;;2699
  1. ;;21,"55111034360 ")
  1. ;;2700
  1. ;;21,"55111034378 ")
  1. ;;2701
  1. ;;21,"55111034390 ")
  1. ;;2702
  1. ;;21,"55111034396 ")
  1. ;;2703
  1. ;;21,"55111034398 ")
  1. ;;2704
  1. ;;21,"55111034401 ")
  1. ;;2705
  1. ;;21,"55111034405 ")
  1. ;;2706
  1. ;;21,"55111034430 ")
  1. ;;2707
  1. ;;21,"55111034460 ")
  1. ;;2708
  1. ;;21,"55111034478 ")
  1. ;;2709
  1. ;;21,"55111034486 ")
  1. ;;2710
  1. ;;21,"55111034490 ")
  1. ;;2711
  1. ;;21,"55111034497 ")
  1. ;;2712
  1. ;;21,"55111045301 ")
  1. ;;2713
  1. ;;21,"55111045305 ")
  1. ;;2714
  1. ;;21,"55111045330 ")
  1. ;;2715
  1. ;;21,"55111045360 ")
  1. ;;2716
  1. ;;21,"55111045378 ")
  1. ;;2717
  1. ;;21,"55111045379 ")
  1. ;;2718
  1. ;;21,"55111045390 ")
  1. ;;2719
  1. ;;21,"55111045401 ")
  1. ;;2720
  1. ;;21,"55111045405 ")
  1. ;;2721
  1. ;;21,"55111045430 ")
  1. ;;2722
  1. ;;21,"55111045460 ")
  1. ;;2723
  1. ;;21,"55111045478 ")
  1. ;;2724
  1. ;;21,"55111045479 ")
  1. ;;2725
  1. ;;21,"55111045490 ")
  1. ;;2726
  1. ;;21,"55111045501 ")
  1. ;;2727
  1. ;;21,"55111045505 ")
  1. ;;2728
  1. ;;21,"55111045530 ")
  1. ;;2729
  1. ;;21,"55111045560 ")
  1. ;;2730
  1. ;;21,"55111045578 ")
  1. ;;2731
  1. ;;21,"55111045579 ")
  1. ;;2732
  1. ;;21,"55111045590 ")
  1. ;;2733
  1. ;;21,"55111054501 ")
  1. ;;2734
  1. ;;21,"55111054505 ")
  1. ;;2735
  1. ;;21,"55111054530 ")
  1. ;;2736
  1. ;;21,"55111054560 ")
  1. ;;2737
  1. ;;21,"55111054579 ")
  1. ;;2738
  1. ;;21,"55111054590 ")
  1. ;;2739
  1. ;;21,"55111054601 ")
  1. ;;2740
  1. ;;21,"55111054605 ")
  1. ;;2741
  1. ;;21,"55111054630 ")
  1. ;;2742
  1. ;;21,"55111054660 ")
  1. ;;2743
  1. ;;21,"55111054679 ")
  1. ;;2744
  1. ;;21,"55111054690 ")
  1. ;;2745
  1. ;;21,"55111054701 ")
  1. ;;2746
  1. ;;21,"55111054705 ")
  1. ;;2747
  1. ;;21,"55111054730 ")
  1. ;;2748
  1. ;;21,"55111054760 ")
  1. ;;2749
  1. ;;21,"55111054779 ")
  1. ;;2750
  1. ;;21,"55111054790 ")
  1. ;;2751
  1. ;;21,"55111054801 ")
  1. ;;2752
  1. ;;21,"55111054805 ")
  1. ;;2753
  1. ;;21,"55111054830 ")
  1. ;;2754
  1. ;;21,"55111054860 ")
  1. ;;2755
  1. ;;21,"55111054879 ")
  1. ;;2756
  1. ;;21,"55111054890 ")
  1. ;;2757
  1. ;;21,"55111054901 ")
  1. ;;2758
  1. ;;21,"55111054905 ")
  1. ;;2759
  1. ;;21,"55111054930 ")
  1. ;;2760
  1. ;;21,"55111054960 ")
  1. ;;2761
  1. ;;21,"55111054979 ")
  1. ;;2762
  1. ;;21,"55111054990 ")
  1. ;;2763
  1. ;;21,"55154052700 ")
  1. ;;2764
  1. ;;21,"55154053003 ")
  1. ;;2765
  1. ;;21,"55154053103 ")
  1. ;;2766
  1. ;;21,"55154053200 ")
  1. ;;2767
  1. ;;21,"55154065900 ")
  1. ;;2768
  1. ;;21,"55154065907 ")
  1. ;;2769
  1. ;;21,"55154067300 ")
  1. ;;2770
  1. ;;21,"55154068800 ")
  1. ;;2771
  1. ;;21,"55154073600 ")
  1. ;;2772
  1. ;;21,"55154102509 ")
  1. ;;2773
  1. ;;21,"55154102609 ")
  1. ;;2774
  1. ;;21,"55154102709 ")
  1. ;;2775
  1. ;;21,"55154139000 ")
  1. ;;2776
  1. ;;21,"55154139100 ")
  1. ;;2777
  1. ;;21,"55154140607 ")
  1. ;;2778
  1. ;;21,"55154455209 ")
  1. ;;2779
  1. ;;21,"55154455909 ")
  1. ;;2780
  1. ;;21,"55154506600 ")
  1. ;;2781
  1. ;;21,"55154508700 ")
  1. ;;2782
  1. ;;21,"55154535300 ")
  1. ;;2783
  1. ;;21,"55154535500 ")
  1. ;;2784
  1. ;;21,"55154545900 ")
  1. ;;2785
  1. ;;21,"55154546700 ")
  1. ;;2786
  1. ;;21,"55154549500 ")
  1. ;;2787
  1. ;;21,"55154566500 ")
  1. ;;2788
  1. ;;21,"55154568000 ")
  1. ;;2789
  1. ;;21,"55154575409 ")
  1. ;;2790
  1. ;;21,"55154576109 ")
  1. ;;2791
  1. ;;21,"55154576204 ")
  1. ;;2792
  1. ;;21,"55154576206 ")
  1. ;;2793
  1. ;;21,"55154576309 ")
  1. ;;2794
  1. ;;21,"55154580907 ")
  1. ;;2795
  1. ;;21,"55154581407 ")
  1. ;;2796
  1. ;;21,"55154583900 ")
  1. ;;2797
  1. ;;21,"55154602709 ")
  1. ;;2798
  1. ;;21,"55154616500 ")
  1. ;;2799
  1. ;;21,"55154616700 ")
  1. ;;2800
  1. ;;21,"55154617500 ")
  1. ;;2801
  1. ;;21,"55154619900 ")
  1. ;;2802
  1. ;;21,"55154622003 ")
  1. ;;2803
  1. ;;21,"55154622103 ")
  1. ;;2804
  1. ;;21,"55154624009 ")
  1. ;;2805
  1. ;;21,"55154624109 ")
  1. ;;2806
  1. ;;21,"55154632500 ")
  1. ;;2807
  1. ;;21,"55154634609 ")
  1. ;;2808
  1. ;;21,"55154666000 ")
  1. ;;2809
  1. ;;21,"55154666100 ")
  1. ;;2810
  1. ;;21,"55154725100 ")
  1. ;;2811
  1. ;;21,"55154725107 ")
  1. ;;2812
  1. ;;21,"55154825600 ")
  1. ;;2813
  1. ;;21,"55154825604 ")
  1. ;;2814
  1. ;;21,"55154825606 ")
  1. ;;2815
  1. ;;21,"55154826209 ")
  1. ;;2816
  1. ;;21,"55154826309 ")
  1. ;;2817
  1. ;;21,"55154826509 ")
  1. ;;2818
  1. ;;21,"55154826600 ")
  1. ;;2819
  1. ;;21,"55154826609 ")
  1. ;;2820
  1. ;;21,"55154826700 ")
  1. ;;2821
  1. ;;21,"55154826709 ")
  1. ;;2822
  1. ;;21,"55154826809 ")
  1. ;;2823
  1. ;;21,"55154826900 ")
  1. ;;2824
  1. ;;21,"55154826909 ")
  1. ;;2825
  1. ;;21,"55154827109 ")
  1. ;;2826
  1. ;;21,"55160011401 ")
  1. ;;2827
  1. ;;21,"55160011501 ")
  1. ;;2828
  1. ;;21,"55160011601 ")
  1. ;;2829
  1. ;;21,"55160011701 ")
  1. ;;2830
  1. ;;21,"55289001630 ")
  1. ;;2831
  1. ;;21,"55289001660 ")
  1. ;;2832
  1. ;;21,"55289003745 ")
  1. ;;2833
  1. ;;21,"55289003790 ")
  1. ;;2834
  1. ;;21,"55289005345 ")
  1. ;;2835
  1. ;;21,"55289005390 ")
  1. ;;2836
  1. ;;21,"55289006014 ")
  1. ;;2837
  1. ;;21,"55289006407 ")
  1. ;;2838
  1. ;;21,"55289006414 ")
  1. ;;2839
  1. ;;21,"55289006430 ")
  1. ;;2840
  1. ;;21,"55289006460 ")
  1. ;;2841
  1. ;;21,"55289006490 ")
  1. ;;2842
  1. ;;21,"55289009930 ")
  1. ;;2843
  1. ;;21,"55289009950 ")
  1. ;;2844
  1. ;;21,"55289012412 ")
  1. ;;2845
  1. ;;21,"55289012430 ")
  1. ;;2846
  1. ;;21,"55289014414 ")
  1. ;;2847
  1. ;;21,"55289014430 ")
  1. ;;2848
  1. ;;21,"55289014490 ")
  1. ;;2849
  1. ;;21,"55289014930 ")
  1. ;;2850
  1. ;;21,"55289014960 ")
  1. ;;2851
  1. ;;21,"55289018517 ")
  1. ;;2852
  1. ;;21,"55289022330 ")
  1. ;;2853
  1. ;;21,"55289022360 ")
  1. ;;2854
  1. ;;21,"55289022390 ")
  1. ;;2855
  1. ;;21,"55289029114 ")
  1. ;;2856
  1. ;;21,"55289029130 ")
  1. ;;2857
  1. ;;21,"55289029160 ")
  1. ;;2858
  1. ;;21,"55289037830 ")
  1. ;;2859
  1. ;;21,"55289038130 ")
  1. ;;2860
  1. ;;21,"55289038145 ")
  1. ;;2861
  1. ;;21,"55289038160 ")
  1. ;;2862
  1. ;;21,"55289038190 ")
  1. ;;2863
  1. ;;21,"55289058630 ")
  1. ;;2864
  1. ;;21,"55289061014 ")
  1. ;;2865
  1. ;;21,"55289061028 ")
  1. ;;2866
  1. ;;21,"55289061030 ")
  1. ;;2867
  1. ;;21,"55289061060 ")
  1. ;;2868
  1. ;;21,"55289061090 ")
  1. ;;2869
  1. ;;21,"55289061314 ")
  1. ;;2870
  1. ;;21,"55289061330 ")
  1. ;;2871
  1. ;;21,"55289061360 ")
  1. ;;2872
  1. ;;21,"55289073001 ")
  1. ;;2873
  1. ;;21,"55289073012 ")
  1. ;;2874
  1. ;;21,"55289073025 ")
  1. ;;2875
  1. ;;21,"55289073030 ")
  1. ;;2876
  1. ;;21,"55289073060 ")
  1. ;;2877
  1. ;;21,"55289073090 ")
  1. ;;2878
  1. ;;21,"55289083930 ")
  1. ;;2879
  1. ;;21,"55289088314 ")
  1. ;;2880
  1. ;;21,"55289088330 ")
  1. ;;2881
  1. ;;21,"55289088360 ")
  1. ;;2882
  1. ;;21,"55289088390 ")
  1. ;;2883
  1. ;;21,"55289097230 ")
  1. ;;2884
  1. ;;21,"55289097260 ")
  1. ;;2885
  1. ;;21,"55289097290 ")
  1. ;;2886
  1. ;;21,"55567011206 ")
  1. ;;2887
  1. ;;21,"55567011215 ")
  1. ;;2888
  1. ;;21,"55567011225 ")
  1. ;;2889
  1. ;;21,"55567011306 ")
  1. ;;2890
  1. ;;21,"55567011315 ")
  1. ;;2891
  1. ;;21,"55567017013 ")
  1. ;;2892
  1. ;;21,"55567017035 ")
  1. ;;2893
  1. ;;21,"55567017037 ")
  1. ;;2894
  1. ;;21,"55567017113 ")
  1. ;;2895
  1. ;;21,"55567017135 ")
  1. ;;2896
  1. ;;21,"55567017136 ")
  1. ;;2897
  1. ;;21,"55567017213 ")
  1. ;;2898
  1. ;;21,"55567017234 ")
  1. ;;2899
  1. ;;21,"55567017235 ")
  1. ;;2900
  1. ;;21,"55567021413 ")
  1. ;;2901
  1. ;;21,"55567021435 ")
  1. ;;2902
  1. ;;21,"55567021513 ")
  1. ;;2903
  1. ;;21,"55567021518 ")
  1. ;;2904
  1. ;;21,"55567021526 ")
  1. ;;2905
  1. ;;21,"55567021613 ")
  1. ;;2906
  1. ;;21,"55567021635 ")
  1. ;;2907
  1. ;;21,"55567021713 ")
  1. ;;2908
  1. ;;21,"55567021735 ")
  1. ;;2909
  1. ;;21,"55648071601 ")
  1. ;;2910
  1. ;;21,"55648071602 ")
  1. ;;2911
  1. ;;21,"55648071603 ")
  1. ;;2912
  1. ;;21,"55648071604 ")
  1. ;;2913
  1. ;;21,"55648071605 ")
  1. ;;2914
  1. ;;21,"55648071701 ")
  1. ;;2915
  1. ;;21,"55648071702 ")
  1. ;;2916
  1. ;;21,"55648071703 ")
  1. ;;2917
  1. ;;21,"55648071704 ")
  1. ;;2918
  1. ;;21,"55648071705 ")
  1. ;;2919
  1. ;;21,"55648071801 ")
  1. ;;2920
  1. ;;21,"55648071802 ")
  1. ;;2921
  1. ;;21,"55648071803 ")
  1. ;;2922
  1. ;;21,"55648071804 ")
  1. ;;2923
  1. ;;21,"55648071805 ")
  1. ;;2924
  1. ;;21,"55648075101 ")
  1. ;;2925
  1. ;;21,"55648075201 ")
  1. ;;2926
  1. ;;21,"55648075202 ")
  1. ;;2927
  1. ;;21,"55648075203 ")
  1. ;;2928
  1. ;;21,"55648075204 ")
  1. ;;2929
  1. ;;21,"55648075207 ")
  1. ;;2930
  1. ;;21,"55648075301 ")
  1. ;;2931
  1. ;;21,"55648075302 ")
  1. ;;2932
  1. ;;21,"55648075303 ")
  1. ;;2933
  1. ;;21,"55648075304 ")
  1. ;;2934
  1. ;;21,"55648075307 ")
  1. ;;2935
  1. ;;21,"55864070830 ")
  1. ;;2936
  1. ;;21,"55887007530 ")
  1. ;;2937
  1. ;;21,"55887012530 ")
  1. ;;2938
  1. ;;21,"55887012560 ")
  1. ;;2939
  1. ;;21,"55887016015 ")
  1. ;;2940
  1. ;;21,"55887016030 ")
  1. ;;2941
  1. ;;21,"55887016060 ")
  1. ;;2942
  1. ;;21,"55887016090 ")
  1. ;;2943
  1. ;;21,"55887016830 ")
  1. ;;2944
  1. ;;21,"55887016860 ")
  1. ;;2945
  1. ;;21,"55887016890 ")
  1. ;;2946
  1. ;;21,"55887023730 ")
  1. ;;2947
  1. ;;21,"55887023760 ")
  1. ;;2948
  1. ;;21,"55887023786 ")
  1. ;;2949
  1. ;;21,"55887023790 ")
  1. ;;2950
  1. ;;21,"55887025620 ")
  1. ;;2951
  1. ;;21,"55887025630 ")
  1. ;;2952
  1. ;;21,"55887026030 ")
  1. ;;2953
  1. ;;21,"55887026090 ")
  1. ;;2954
  1. ;;21,"55887026101 ")
  1. ;;2955
  1. ;;21,"55887026130 ")
  1. ;;2956
  1. ;;21,"55887026190 ")
  1. ;;2957
  1. ;;21,"55887028830 ")
  1. ;;2958
  1. ;;21,"55887034630 ")
  1. ;;2959
  1. ;;21,"55887039430 ")
  1. ;;2960
  1. ;;21,"55887039490 ")
  1. ;;2961
  1. ;;21,"55887039860 ")
  1. ;;2962
  1. ;;21,"55887043310 ")
  1. ;;2963
  1. ;;21,"55887043330 ")
  1. ;;2964
  1. ;;21,"55887043930 ")
  1. ;;2965
  1. ;;21,"55887043960 ")
  1. ;;2966
  1. ;;21,"55887043992 ")
  1. ;;2967
  1. ;;21,"55887045830 ")
  1. ;;2968
  1. ;;21,"55887045860 ")
  1. ;;2969
  1. ;;21,"55887045890 ")
  1. ;;2970
  1. ;;21,"55887049830 ")
  1. ;;2971
  1. ;;21,"55887049860 ")
  1. ;;2972
  1. ;;21,"55887049890 ")
  1. ;;2973
  1. ;;21,"55887051815 ")
  1. ;;2974
  1. ;;21,"55887051830 ")
  1. ;;2975
  1. ;;21,"55887051860 ")
  1. ;;2976
  1. ;;21,"55887051890 ")
  1. ;;2977
  1. ;;21,"55887052420 ")
  1. ;;2978
  1. ;;21,"55887052430 ")
  1. ;;2979
  1. ;;21,"55887052460 ")
  1. ;;2980
  1. ;;21,"55887052490 ")
  1. ;;2981
  1. ;;21,"55887052492 ")
  1. ;;2982
  1. ;;21,"55887054130 ")
  1. ;;2983
  1. ;;21,"55887054830 ")
  1. ;;2984
  1. ;;21,"55887055230 ")
  1. ;;2985
  1. ;;21,"55887055260 ")
  1. ;;2986
  1. ;;21,"55887055290 ")
  1. ;;2987
  1. ;;21,"55887057030 ")
  1. ;;2988
  1. ;;21,"55887057040 ")
  1. ;;2989
  1. ;;21,"55887057060 ")
  1. ;;2990
  1. ;;21,"55887057090 ")
  1. ;;2991
  1. ;;21,"55887057092 ")
  1. ;;2992
  1. ;;21,"55887057214 ")
  1. ;;2993
  1. ;;21,"55887057290 ")
  1. ;;2994
  1. ;;21,"55887066105 ")
  1. ;;2995
  1. ;;21,"55887066130 ")
  1. ;;2996
  1. ;;21,"55887066160 ")
  1. ;;2997
  1. ;;21,"55887066190 ")
  1. ;;2998
  1. ;;21,"55887066430 ")
  1. ;;2999
  1. ;;21,"55887066490 ")
  1. ;;3000
  1. ;;21,"55887074550 ")
  1. ;;3001
  1. ;;21,"55887087130 ")
  1. ;;3002