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

BGPM5AQB.m

Go to the documentation of this file.
  1. BGPM5AQB ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"58016089282 ")
  1. ;;2763
  1. ;;21,"58016089283 ")
  1. ;;2764
  1. ;;21,"58016089284 ")
  1. ;;2765
  1. ;;21,"58016089287 ")
  1. ;;2766
  1. ;;21,"58016089289 ")
  1. ;;2767
  1. ;;21,"58016089290 ")
  1. ;;2768
  1. ;;21,"58016089291 ")
  1. ;;2769
  1. ;;21,"58016089292 ")
  1. ;;2770
  1. ;;21,"58016089293 ")
  1. ;;2771
  1. ;;21,"58016089296 ")
  1. ;;2772
  1. ;;21,"58016089297 ")
  1. ;;2773
  1. ;;21,"58016089298 ")
  1. ;;2774
  1. ;;21,"58016089299 ")
  1. ;;2775
  1. ;;21,"58016091430 ")
  1. ;;2776
  1. ;;21,"58016091700 ")
  1. ;;2777
  1. ;;21,"58016091701 ")
  1. ;;2778
  1. ;;21,"58016091702 ")
  1. ;;2779
  1. ;;21,"58016091703 ")
  1. ;;2780
  1. ;;21,"58016091704 ")
  1. ;;2781
  1. ;;21,"58016091705 ")
  1. ;;2782
  1. ;;21,"58016091706 ")
  1. ;;2783
  1. ;;21,"58016091708 ")
  1. ;;2784
  1. ;;21,"58016091709 ")
  1. ;;2785
  1. ;;21,"58016091710 ")
  1. ;;2786
  1. ;;21,"58016091712 ")
  1. ;;2787
  1. ;;21,"58016091714 ")
  1. ;;2788
  1. ;;21,"58016091715 ")
  1. ;;2789
  1. ;;21,"58016091716 ")
  1. ;;2790
  1. ;;21,"58016091718 ")
  1. ;;2791
  1. ;;21,"58016091720 ")
  1. ;;2792
  1. ;;21,"58016091721 ")
  1. ;;2793
  1. ;;21,"58016091724 ")
  1. ;;2794
  1. ;;21,"58016091725 ")
  1. ;;2795
  1. ;;21,"58016091726 ")
  1. ;;2796
  1. ;;21,"58016091727 ")
  1. ;;2797
  1. ;;21,"58016091728 ")
  1. ;;2798
  1. ;;21,"58016091730 ")
  1. ;;2799
  1. ;;21,"58016091732 ")
  1. ;;2800
  1. ;;21,"58016091735 ")
  1. ;;2801
  1. ;;21,"58016091736 ")
  1. ;;2802
  1. ;;21,"58016091740 ")
  1. ;;2803
  1. ;;21,"58016091742 ")
  1. ;;2804
  1. ;;21,"58016091744 ")
  1. ;;2805
  1. ;;21,"58016091745 ")
  1. ;;2806
  1. ;;21,"58016091748 ")
  1. ;;2807
  1. ;;21,"58016091750 ")
  1. ;;2808
  1. ;;21,"58016091756 ")
  1. ;;2809
  1. ;;21,"58016091760 ")
  1. ;;2810
  1. ;;21,"58016091767 ")
  1. ;;2811
  1. ;;21,"58016091769 ")
  1. ;;2812
  1. ;;21,"58016091770 ")
  1. ;;2813
  1. ;;21,"58016091771 ")
  1. ;;2814
  1. ;;21,"58016091772 ")
  1. ;;2815
  1. ;;21,"58016091773 ")
  1. ;;2816
  1. ;;21,"58016091775 ")
  1. ;;2817
  1. ;;21,"58016091776 ")
  1. ;;2818
  1. ;;21,"58016091777 ")
  1. ;;2819
  1. ;;21,"58016091779 ")
  1. ;;2820
  1. ;;21,"58016091780 ")
  1. ;;2821
  1. ;;21,"58016091781 ")
  1. ;;2822
  1. ;;21,"58016091782 ")
  1. ;;2823
  1. ;;21,"58016091783 ")
  1. ;;2824
  1. ;;21,"58016091784 ")
  1. ;;2825
  1. ;;21,"58016091787 ")
  1. ;;2826
  1. ;;21,"58016091789 ")
  1. ;;2827
  1. ;;21,"58016091790 ")
  1. ;;2828
  1. ;;21,"58016091791 ")
  1. ;;2829
  1. ;;21,"58016091792 ")
  1. ;;2830
  1. ;;21,"58016091793 ")
  1. ;;2831
  1. ;;21,"58016091796 ")
  1. ;;2832
  1. ;;21,"58016091797 ")
  1. ;;2833
  1. ;;21,"58016091798 ")
  1. ;;2834
  1. ;;21,"58016091799 ")
  1. ;;2835
  1. ;;21,"58016093500 ")
  1. ;;2836
  1. ;;21,"58016093501 ")
  1. ;;2837
  1. ;;21,"58016093502 ")
  1. ;;2838
  1. ;;21,"58016093503 ")
  1. ;;2839
  1. ;;21,"58016093504 ")
  1. ;;2840
  1. ;;21,"58016093505 ")
  1. ;;2841
  1. ;;21,"58016093506 ")
  1. ;;2842
  1. ;;21,"58016093507 ")
  1. ;;2843
  1. ;;21,"58016093508 ")
  1. ;;2844
  1. ;;21,"58016093509 ")
  1. ;;2845
  1. ;;21,"58016093510 ")
  1. ;;2846
  1. ;;21,"58016093512 ")
  1. ;;2847
  1. ;;21,"58016093514 ")
  1. ;;2848
  1. ;;21,"58016093515 ")
  1. ;;2849
  1. ;;21,"58016093516 ")
  1. ;;2850
  1. ;;21,"58016093518 ")
  1. ;;2851
  1. ;;21,"58016093520 ")
  1. ;;2852
  1. ;;21,"58016093521 ")
  1. ;;2853
  1. ;;21,"58016093524 ")
  1. ;;2854
  1. ;;21,"58016093525 ")
  1. ;;2855
  1. ;;21,"58016093526 ")
  1. ;;2856
  1. ;;21,"58016093527 ")
  1. ;;2857
  1. ;;21,"58016093530 ")
  1. ;;2858
  1. ;;21,"58016093532 ")
  1. ;;2859
  1. ;;21,"58016093535 ")
  1. ;;2860
  1. ;;21,"58016093536 ")
  1. ;;2861
  1. ;;21,"58016093540 ")
  1. ;;2862
  1. ;;21,"58016093542 ")
  1. ;;2863
  1. ;;21,"58016093544 ")
  1. ;;2864
  1. ;;21,"58016093545 ")
  1. ;;2865
  1. ;;21,"58016093548 ")
  1. ;;2866
  1. ;;21,"58016093550 ")
  1. ;;2867
  1. ;;21,"58016093556 ")
  1. ;;2868
  1. ;;21,"58016093560 ")
  1. ;;2869
  1. ;;21,"58016093567 ")
  1. ;;2870
  1. ;;21,"58016093569 ")
  1. ;;2871
  1. ;;21,"58016093570 ")
  1. ;;2872
  1. ;;21,"58016093571 ")
  1. ;;2873
  1. ;;21,"58016093572 ")
  1. ;;2874
  1. ;;21,"58016093573 ")
  1. ;;2875
  1. ;;21,"58016093575 ")
  1. ;;2876
  1. ;;21,"58016093576 ")
  1. ;;2877
  1. ;;21,"58016093577 ")
  1. ;;2878
  1. ;;21,"58016093579 ")
  1. ;;2879
  1. ;;21,"58016093580 ")
  1. ;;2880
  1. ;;21,"58016093581 ")
  1. ;;2881
  1. ;;21,"58016093582 ")
  1. ;;2882
  1. ;;21,"58016093583 ")
  1. ;;2883
  1. ;;21,"58016093584 ")
  1. ;;2884
  1. ;;21,"58016093587 ")
  1. ;;2885
  1. ;;21,"58016093589 ")
  1. ;;2886
  1. ;;21,"58016093590 ")
  1. ;;2887
  1. ;;21,"58016093591 ")
  1. ;;2888
  1. ;;21,"58016093592 ")
  1. ;;2889
  1. ;;21,"58016093593 ")
  1. ;;2890
  1. ;;21,"58016093596 ")
  1. ;;2891
  1. ;;21,"58016093597 ")
  1. ;;2892
  1. ;;21,"58016093598 ")
  1. ;;2893
  1. ;;21,"58016093599 ")
  1. ;;2894
  1. ;;21,"58016095600 ")
  1. ;;2895
  1. ;;21,"58016095630 ")
  1. ;;2896
  1. ;;21,"58016095660 ")
  1. ;;2897
  1. ;;21,"58016095690 ")
  1. ;;2898
  1. ;;21,"58016096300 ")
  1. ;;2899
  1. ;;21,"58016096301 ")
  1. ;;2900
  1. ;;21,"58016096302 ")
  1. ;;2901
  1. ;;21,"58016096303 ")
  1. ;;2902
  1. ;;21,"58016096304 ")
  1. ;;2903
  1. ;;21,"58016096305 ")
  1. ;;2904
  1. ;;21,"58016096306 ")
  1. ;;2905
  1. ;;21,"58016096307 ")
  1. ;;2906
  1. ;;21,"58016096308 ")
  1. ;;2907
  1. ;;21,"58016096309 ")
  1. ;;2908
  1. ;;21,"58016096310 ")
  1. ;;2909
  1. ;;21,"58016096312 ")
  1. ;;2910
  1. ;;21,"58016096314 ")
  1. ;;2911
  1. ;;21,"58016096315 ")
  1. ;;2912
  1. ;;21,"58016096316 ")
  1. ;;2913
  1. ;;21,"58016096318 ")
  1. ;;2914
  1. ;;21,"58016096320 ")
  1. ;;2915
  1. ;;21,"58016096321 ")
  1. ;;2916
  1. ;;21,"58016096324 ")
  1. ;;2917
  1. ;;21,"58016096325 ")
  1. ;;2918
  1. ;;21,"58016096326 ")
  1. ;;2919
  1. ;;21,"58016096327 ")
  1. ;;2920
  1. ;;21,"58016096328 ")
  1. ;;2921
  1. ;;21,"58016096330 ")
  1. ;;2922
  1. ;;21,"58016096332 ")
  1. ;;2923
  1. ;;21,"58016096335 ")
  1. ;;2924
  1. ;;21,"58016096336 ")
  1. ;;2925
  1. ;;21,"58016096340 ")
  1. ;;2926
  1. ;;21,"58016096342 ")
  1. ;;2927
  1. ;;21,"58016096344 ")
  1. ;;2928
  1. ;;21,"58016096345 ")
  1. ;;2929
  1. ;;21,"58016096348 ")
  1. ;;2930
  1. ;;21,"58016096350 ")
  1. ;;2931
  1. ;;21,"58016096356 ")
  1. ;;2932
  1. ;;21,"58016096360 ")
  1. ;;2933
  1. ;;21,"58016096367 ")
  1. ;;2934
  1. ;;21,"58016096369 ")
  1. ;;2935
  1. ;;21,"58016096370 ")
  1. ;;2936
  1. ;;21,"58016096371 ")
  1. ;;2937
  1. ;;21,"58016096372 ")
  1. ;;2938
  1. ;;21,"58016096373 ")
  1. ;;2939
  1. ;;21,"58016096375 ")
  1. ;;2940
  1. ;;21,"58016096376 ")
  1. ;;2941
  1. ;;21,"58016096377 ")
  1. ;;2942
  1. ;;21,"58016096379 ")
  1. ;;2943
  1. ;;21,"58016096380 ")
  1. ;;2944
  1. ;;21,"58016096381 ")
  1. ;;2945
  1. ;;21,"58016096382 ")
  1. ;;2946
  1. ;;21,"58016096383 ")
  1. ;;2947
  1. ;;21,"58016096384 ")
  1. ;;2948
  1. ;;21,"58016096387 ")
  1. ;;2949
  1. ;;21,"58016096389 ")
  1. ;;2950
  1. ;;21,"58016096390 ")
  1. ;;2951
  1. ;;21,"58016096391 ")
  1. ;;2952
  1. ;;21,"58016096392 ")
  1. ;;2953
  1. ;;21,"58016096393 ")
  1. ;;2954
  1. ;;21,"58016096396 ")
  1. ;;2955
  1. ;;21,"58016096397 ")
  1. ;;2956
  1. ;;21,"58016096398 ")
  1. ;;2957
  1. ;;21,"58016096399 ")
  1. ;;2958
  1. ;;21,"58016099200 ")
  1. ;;2959
  1. ;;21,"58016099201 ")
  1. ;;2960
  1. ;;21,"58016099202 ")
  1. ;;2961
  1. ;;21,"58016099203 ")
  1. ;;2962
  1. ;;21,"58016099204 ")
  1. ;;2963
  1. ;;21,"58016099205 ")
  1. ;;2964
  1. ;;21,"58016099206 ")
  1. ;;2965
  1. ;;21,"58016099207 ")
  1. ;;2966
  1. ;;21,"58016099208 ")
  1. ;;2967
  1. ;;21,"58016099209 ")
  1. ;;2968
  1. ;;21,"58016099210 ")
  1. ;;2969
  1. ;;21,"58016099212 ")
  1. ;;2970
  1. ;;21,"58016099214 ")
  1. ;;2971
  1. ;;21,"58016099215 ")
  1. ;;2972
  1. ;;21,"58016099216 ")
  1. ;;2973
  1. ;;21,"58016099218 ")
  1. ;;2974
  1. ;;21,"58016099220 ")
  1. ;;2975
  1. ;;21,"58016099221 ")
  1. ;;2976
  1. ;;21,"58016099224 ")
  1. ;;2977
  1. ;;21,"58016099225 ")
  1. ;;2978
  1. ;;21,"58016099226 ")
  1. ;;2979
  1. ;;21,"58016099227 ")
  1. ;;2980
  1. ;;21,"58016099228 ")
  1. ;;2981
  1. ;;21,"58016099230 ")
  1. ;;2982
  1. ;;21,"58016099232 ")
  1. ;;2983
  1. ;;21,"58016099235 ")
  1. ;;2984
  1. ;;21,"58016099236 ")
  1. ;;2985
  1. ;;21,"58016099242 ")
  1. ;;2986
  1. ;;21,"58016099244 ")
  1. ;;2987
  1. ;;21,"58016099245 ")
  1. ;;2988
  1. ;;21,"58016099248 ")
  1. ;;2989
  1. ;;21,"58016099250 ")
  1. ;;2990
  1. ;;21,"58016099256 ")
  1. ;;2991
  1. ;;21,"58016099260 ")
  1. ;;2992
  1. ;;21,"58016099267 ")
  1. ;;2993
  1. ;;21,"58016099269 ")
  1. ;;2994
  1. ;;21,"58016099270 ")
  1. ;;2995
  1. ;;21,"58016099271 ")
  1. ;;2996
  1. ;;21,"58016099272 ")
  1. ;;2997
  1. ;;21,"58016099273 ")
  1. ;;2998
  1. ;;21,"58016099275 ")
  1. ;;2999
  1. ;;21,"58016099276 ")
  1. ;;3000
  1. ;;21,"58016099277 ")
  1. ;;3001
  1. ;;21,"58016099279 ")
  1. ;;3002
  1. ;;21,"58016099280 ")
  1. ;;3003
  1. ;;21,"58016099281 ")
  1. ;;3004
  1. ;;21,"58016099282 ")
  1. ;;3005
  1. ;;21,"58016099283 ")
  1. ;;3006
  1. ;;21,"58016099284 ")
  1. ;;3007
  1. ;;21,"58016099287 ")
  1. ;;3008
  1. ;;21,"58016099289 ")
  1. ;;3009
  1. ;;21,"58016099290 ")
  1. ;;3010
  1. ;;21,"58016099291 ")
  1. ;;3011
  1. ;;21,"58016099292 ")
  1. ;;3012
  1. ;;21,"58016099293 ")
  1. ;;3013
  1. ;;21,"58016099296 ")
  1. ;;3014
  1. ;;21,"58016099297 ")
  1. ;;3015
  1. ;;21,"58016099298 ")
  1. ;;3016
  1. ;;21,"58016099299 ")
  1. ;;3017
  1. ;;21,"58016099800 ")
  1. ;;3018
  1. ;;21,"58016099801 ")
  1. ;;3019
  1. ;;21,"58016099802 ")
  1. ;;3020
  1. ;;21,"58016099803 ")
  1. ;;3021
  1. ;;21,"58016099804 ")
  1. ;;3022
  1. ;;21,"58016099805 ")
  1. ;;3023
  1. ;;21,"58016099806 ")
  1. ;;3024
  1. ;;21,"58016099807 ")
  1. ;;3025
  1. ;;21,"58016099808 ")
  1. ;;3026
  1. ;;21,"58016099809 ")
  1. ;;3027
  1. ;;21,"58016099810 ")
  1. ;;3028
  1. ;;21,"58016099812 ")
  1. ;;3029
  1. ;;21,"58016099814 ")
  1. ;;3030
  1. ;;21,"58016099815 ")
  1. ;;3031
  1. ;;21,"58016099816 ")
  1. ;;3032
  1. ;;21,"58016099818 ")
  1. ;;3033
  1. ;;21,"58016099820 ")
  1. ;;3034
  1. ;;21,"58016099821 ")
  1. ;;3035
  1. ;;21,"58016099824 ")
  1. ;;3036
  1. ;;21,"58016099825 ")
  1. ;;3037
  1. ;;21,"58016099826 ")
  1. ;;3038
  1. ;;21,"58016099827 ")
  1. ;;3039
  1. ;;21,"58016099828 ")
  1. ;;3040
  1. ;;21,"58016099830 ")
  1. ;;3041
  1. ;;21,"58016099832 ")
  1. ;;3042
  1. ;;21,"58016099835 ")
  1. ;;3043
  1. ;;21,"58016099836 ")
  1. ;;3044
  1. ;;21,"58016099840 ")
  1. ;;3045
  1. ;;21,"58016099842 ")
  1. ;;3046
  1. ;;21,"58016099844 ")
  1. ;;3047
  1. ;;21,"58016099845 ")
  1. ;;3048
  1. ;;21,"58016099848 ")
  1. ;;3049
  1. ;;21,"58016099850 ")
  1. ;;3050
  1. ;;21,"58016099856 ")
  1. ;;3051
  1. ;;21,"58016099860 ")
  1. ;;3052
  1. ;;21,"58016099867 ")
  1. ;;3053
  1. ;;21,"58016099869 ")
  1. ;;3054
  1. ;;21,"58016099870 ")
  1. ;;3055
  1. ;;21,"58016099871 ")
  1. ;;3056
  1. ;;21,"58016099872 ")
  1. ;;3057
  1. ;;21,"58016099873 ")
  1. ;;3058
  1. ;;21,"58016099875 ")
  1. ;;3059
  1. ;;21,"58016099876 ")
  1. ;;3060
  1. ;;21,"58016099877 ")
  1. ;;3061
  1. ;;21,"58016099879 ")
  1. ;;3062
  1. ;;21,"58016099880 ")
  1. ;;3063
  1. ;;21,"58016099881 ")
  1. ;;3064
  1. ;;21,"58016099882 ")
  1. ;;3065
  1. ;;21,"58016099883 ")
  1. ;;3066
  1. ;;21,"58016099884 ")
  1. ;;3067
  1. ;;21,"58016099887 ")
  1. ;;3068
  1. ;;21,"58016099889 ")
  1. ;;3069
  1. ;;21,"58016099890 ")
  1. ;;3070
  1. ;;21,"58016099891 ")
  1. ;;3071
  1. ;;21,"58016099892 ")
  1. ;;3072
  1. ;;21,"58016099893 ")
  1. ;;3073
  1. ;;21,"58016099896 ")
  1. ;;3074
  1. ;;21,"58016099897 ")
  1. ;;3075
  1. ;;21,"58016099898 ")
  1. ;;3076
  1. ;;21,"58016099899 ")
  1. ;;3077
  1. ;;21,"58016463101 ")
  1. ;;3078
  1. ;;21,"58087007630 ")
  1. ;;3079
  1. ;;21,"58087007730 ")
  1. ;;3080
  1. ;;21,"58864000630 ")
  1. ;;3081
  1. ;;21,"58864006628 ")
  1. ;;3082
  1. ;;21,"58864010430 ")
  1. ;;3083
  1. ;;21,"58864051015 ")
  1. ;;3084
  1. ;;21,"58864060315 ")
  1. ;;3085
  1. ;;21,"58864060330 ")
  1. ;;3086
  1. ;;21,"58864060390 ")
  1. ;;3087
  1. ;;21,"58864060515 ")
  1. ;;3088
  1. ;;21,"58864060530 ")
  1. ;;3089
  1. ;;21,"58864061815 ")
  1. ;;3090
  1. ;;21,"58864061830 ")
  1. ;;3091
  1. ;;21,"58864065430 ")
  1. ;;3092
  1. ;;21,"58864066130 ")
  1. ;;3093
  1. ;;21,"58864066730 ")
  1. ;;3094
  1. ;;21,"58864067430 ")
  1. ;;3095
  1. ;;21,"58864068130 ")
  1. ;;3096
  1. ;;21,"58864072615 ")
  1. ;;3097
  1. ;;21,"58864072630 ")
  1. ;;3098
  1. ;;21,"58864075030 ")
  1. ;;3099
  1. ;;21,"58864075330 ")
  1. ;;3100
  1. ;;21,"58864075390 ")
  1. ;;3101
  1. ;;21,"58864075430 ")
  1. ;;3102
  1. ;;21,"58864075530 ")
  1. ;;3103
  1. ;;21,"58864076230 ")
  1. ;;3104
  1. ;;21,"58864077115 ")
  1. ;;3105
  1. ;;21,"58864077430 ")
  1. ;;3106
  1. ;;21,"58864077490 ")
  1. ;;3107
  1. ;;21,"58864078730 ")
  1. ;;3108
  1. ;;21,"58864083830 ")
  1. ;;3109
  1. ;;21,"58864084730 ")
  1. ;;3110
  1. ;;21,"58864085930 ")
  1. ;;3111
  1. ;;21,"58864086330 ")
  1. ;;3112
  1. ;;21,"58864086930 ")
  1. ;;3113
  1. ;;21,"59564012820 ")
  1. ;;3114