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

BGPM5ADW.m

Go to the documentation of this file.
  1. BGPM5ADW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"63304044269 ")
  1. ;;2698
  1. ;;21,"63304052201 ")
  1. ;;2699
  1. ;;21,"63304052210 ")
  1. ;;2700
  1. ;;21,"63304052301 ")
  1. ;;2701
  1. ;;21,"63304052310 ")
  1. ;;2702
  1. ;;21,"63304052401 ")
  1. ;;2703
  1. ;;21,"63304052410 ")
  1. ;;2704
  1. ;;21,"63304052501 ")
  1. ;;2705
  1. ;;21,"63304052510 ")
  1. ;;2706
  1. ;;21,"63304053101 ")
  1. ;;2707
  1. ;;21,"63304053111 ")
  1. ;;2708
  1. ;;21,"63304053177 ")
  1. ;;2709
  1. ;;21,"63304053201 ")
  1. ;;2710
  1. ;;21,"63304053210 ")
  1. ;;2711
  1. ;;21,"63304053211 ")
  1. ;;2712
  1. ;;21,"63304053277 ")
  1. ;;2713
  1. ;;21,"63304053301 ")
  1. ;;2714
  1. ;;21,"63304053310 ")
  1. ;;2715
  1. ;;21,"63304053311 ")
  1. ;;2716
  1. ;;21,"63304053377 ")
  1. ;;2717
  1. ;;21,"63304053401 ")
  1. ;;2718
  1. ;;21,"63304053410 ")
  1. ;;2719
  1. ;;21,"63304053411 ")
  1. ;;2720
  1. ;;21,"63304053477 ")
  1. ;;2721
  1. ;;21,"63304053501 ")
  1. ;;2722
  1. ;;21,"63304053510 ")
  1. ;;2723
  1. ;;21,"63304053511 ")
  1. ;;2724
  1. ;;21,"63304053577 ")
  1. ;;2725
  1. ;;21,"63304053601 ")
  1. ;;2726
  1. ;;21,"63304053605 ")
  1. ;;2727
  1. ;;21,"63304053701 ")
  1. ;;2728
  1. ;;21,"63304053705 ")
  1. ;;2729
  1. ;;21,"63304053801 ")
  1. ;;2730
  1. ;;21,"63304053805 ")
  1. ;;2731
  1. ;;21,"63304054890 ")
  1. ;;2732
  1. ;;21,"63304054990 ")
  1. ;;2733
  1. ;;21,"63304055090 ")
  1. ;;2734
  1. ;;21,"63304055190 ")
  1. ;;2735
  1. ;;21,"63304059901 ")
  1. ;;2736
  1. ;;21,"63304059910 ")
  1. ;;2737
  1. ;;21,"63304077501 ")
  1. ;;2738
  1. ;;21,"63304077505 ")
  1. ;;2739
  1. ;;21,"63304077510 ")
  1. ;;2740
  1. ;;21,"63304077530 ")
  1. ;;2741
  1. ;;21,"63304077590 ")
  1. ;;2742
  1. ;;21,"63304077601 ")
  1. ;;2743
  1. ;;21,"63304077605 ")
  1. ;;2744
  1. ;;21,"63304077610 ")
  1. ;;2745
  1. ;;21,"63304077630 ")
  1. ;;2746
  1. ;;21,"63304077690 ")
  1. ;;2747
  1. ;;21,"63304077701 ")
  1. ;;2748
  1. ;;21,"63304077705 ")
  1. ;;2749
  1. ;;21,"63304077710 ")
  1. ;;2750
  1. ;;21,"63304077730 ")
  1. ;;2751
  1. ;;21,"63304077790 ")
  1. ;;2752
  1. ;;21,"63304083401 ")
  1. ;;2753
  1. ;;21,"63304083410 ")
  1. ;;2754
  1. ;;21,"63304083501 ")
  1. ;;2755
  1. ;;21,"63304083510 ")
  1. ;;2756
  1. ;;21,"63304083601 ")
  1. ;;2757
  1. ;;21,"63304083610 ")
  1. ;;2758
  1. ;;21,"63304083701 ")
  1. ;;2759
  1. ;;21,"63304083710 ")
  1. ;;2760
  1. ;;21,"63629125301 ")
  1. ;;2761
  1. ;;21,"63629125302 ")
  1. ;;2762
  1. ;;21,"63629125401 ")
  1. ;;2763
  1. ;;21,"63629125402 ")
  1. ;;2764
  1. ;;21,"63629133801 ")
  1. ;;2765
  1. ;;21,"63629133802 ")
  1. ;;2766
  1. ;;21,"63629133803 ")
  1. ;;2767
  1. ;;21,"63629152201 ")
  1. ;;2768
  1. ;;21,"63629152202 ")
  1. ;;2769
  1. ;;21,"63629152203 ")
  1. ;;2770
  1. ;;21,"63629152204 ")
  1. ;;2771
  1. ;;21,"63629152205 ")
  1. ;;2772
  1. ;;21,"63629152501 ")
  1. ;;2773
  1. ;;21,"63629152502 ")
  1. ;;2774
  1. ;;21,"63629152503 ")
  1. ;;2775
  1. ;;21,"63629152601 ")
  1. ;;2776
  1. ;;21,"63629152602 ")
  1. ;;2777
  1. ;;21,"63629152603 ")
  1. ;;2778
  1. ;;21,"63629152604 ")
  1. ;;2779
  1. ;;21,"63629167901 ")
  1. ;;2780
  1. ;;21,"63629167902 ")
  1. ;;2781
  1. ;;21,"63629167903 ")
  1. ;;2782
  1. ;;21,"63629167904 ")
  1. ;;2783
  1. ;;21,"63629170601 ")
  1. ;;2784
  1. ;;21,"63629170602 ")
  1. ;;2785
  1. ;;21,"63629170603 ")
  1. ;;2786
  1. ;;21,"63629176101 ")
  1. ;;2787
  1. ;;21,"63629176102 ")
  1. ;;2788
  1. ;;21,"63629176103 ")
  1. ;;2789
  1. ;;21,"63629254101 ")
  1. ;;2790
  1. ;;21,"63629254102 ")
  1. ;;2791
  1. ;;21,"63629254103 ")
  1. ;;2792
  1. ;;21,"63629254104 ")
  1. ;;2793
  1. ;;21,"63629268801 ")
  1. ;;2794
  1. ;;21,"63629268802 ")
  1. ;;2795
  1. ;;21,"63629268803 ")
  1. ;;2796
  1. ;;21,"63629268804 ")
  1. ;;2797
  1. ;;21,"63629268805 ")
  1. ;;2798
  1. ;;21,"63629289601 ")
  1. ;;2799
  1. ;;21,"63629290801 ")
  1. ;;2800
  1. ;;21,"63629290802 ")
  1. ;;2801
  1. ;;21,"63629290803 ")
  1. ;;2802
  1. ;;21,"63629290804 ")
  1. ;;2803
  1. ;;21,"63629293501 ")
  1. ;;2804
  1. ;;21,"63629293502 ")
  1. ;;2805
  1. ;;21,"63629293503 ")
  1. ;;2806
  1. ;;21,"63629293504 ")
  1. ;;2807
  1. ;;21,"63629321701 ")
  1. ;;2808
  1. ;;21,"63629373901 ")
  1. ;;2809
  1. ;;21,"63629373902 ")
  1. ;;2810
  1. ;;21,"63629373903 ")
  1. ;;2811
  1. ;;21,"63629447001 ")
  1. ;;2812
  1. ;;21,"63629447002 ")
  1. ;;2813
  1. ;;21,"63739004201 ")
  1. ;;2814
  1. ;;21,"63739004301 ")
  1. ;;2815
  1. ;;21,"63739030210 ")
  1. ;;2816
  1. ;;21,"63739032205 ")
  1. ;;2817
  1. ;;21,"63739034810 ")
  1. ;;2818
  1. ;;21,"63739034910 ")
  1. ;;2819
  1. ;;21,"63739035010 ")
  1. ;;2820
  1. ;;21,"63874034701 ")
  1. ;;2821
  1. ;;21,"63874034702 ")
  1. ;;2822
  1. ;;21,"63874034705 ")
  1. ;;2823
  1. ;;21,"63874034720 ")
  1. ;;2824
  1. ;;21,"63874034730 ")
  1. ;;2825
  1. ;;21,"63874034740 ")
  1. ;;2826
  1. ;;21,"63874034742 ")
  1. ;;2827
  1. ;;21,"63874034745 ")
  1. ;;2828
  1. ;;21,"63874034790 ")
  1. ;;2829
  1. ;;21,"63874034801 ")
  1. ;;2830
  1. ;;21,"63874034810 ")
  1. ;;2831
  1. ;;21,"63874034814 ")
  1. ;;2832
  1. ;;21,"63874034820 ")
  1. ;;2833
  1. ;;21,"63874034830 ")
  1. ;;2834
  1. ;;21,"63874034860 ")
  1. ;;2835
  1. ;;21,"63874034890 ")
  1. ;;2836
  1. ;;21,"63874042301 ")
  1. ;;2837
  1. ;;21,"63874042307 ")
  1. ;;2838
  1. ;;21,"63874042310 ")
  1. ;;2839
  1. ;;21,"63874042314 ")
  1. ;;2840
  1. ;;21,"63874042320 ")
  1. ;;2841
  1. ;;21,"63874042330 ")
  1. ;;2842
  1. ;;21,"63874042360 ")
  1. ;;2843
  1. ;;21,"63874051401 ")
  1. ;;2844
  1. ;;21,"63874051410 ")
  1. ;;2845
  1. ;;21,"63874051414 ")
  1. ;;2846
  1. ;;21,"63874051415 ")
  1. ;;2847
  1. ;;21,"63874051416 ")
  1. ;;2848
  1. ;;21,"63874051420 ")
  1. ;;2849
  1. ;;21,"63874051428 ")
  1. ;;2850
  1. ;;21,"63874051430 ")
  1. ;;2851
  1. ;;21,"63874051460 ")
  1. ;;2852
  1. ;;21,"63874051490 ")
  1. ;;2853
  1. ;;21,"63874052201 ")
  1. ;;2854
  1. ;;21,"63874052215 ")
  1. ;;2855
  1. ;;21,"63874052230 ")
  1. ;;2856
  1. ;;21,"63874052260 ")
  1. ;;2857
  1. ;;21,"63874055801 ")
  1. ;;2858
  1. ;;21,"63874055810 ")
  1. ;;2859
  1. ;;21,"63874055814 ")
  1. ;;2860
  1. ;;21,"63874055816 ")
  1. ;;2861
  1. ;;21,"63874055828 ")
  1. ;;2862
  1. ;;21,"63874055830 ")
  1. ;;2863
  1. ;;21,"63874055860 ")
  1. ;;2864
  1. ;;21,"63874055890 ")
  1. ;;2865
  1. ;;21,"63874065501 ")
  1. ;;2866
  1. ;;21,"63874065510 ")
  1. ;;2867
  1. ;;21,"63874065520 ")
  1. ;;2868
  1. ;;21,"63874065530 ")
  1. ;;2869
  1. ;;21,"63874065560 ")
  1. ;;2870
  1. ;;21,"63874098701 ")
  1. ;;2871
  1. ;;21,"63874098710 ")
  1. ;;2872
  1. ;;21,"63874098714 ")
  1. ;;2873
  1. ;;21,"63874098720 ")
  1. ;;2874
  1. ;;21,"63874098730 ")
  1. ;;2875
  1. ;;21,"63874098760 ")
  1. ;;2876
  1. ;;21,"63874111409 ")
  1. ;;2877
  1. ;;21,"64579001300 ")
  1. ;;2878
  1. ;;21,"64579001301 ")
  1. ;;2879
  1. ;;21,"64579001400 ")
  1. ;;2880
  1. ;;21,"64579001420 ")
  1. ;;2881
  1. ;;21,"64579001500 ")
  1. ;;2882
  1. ;;21,"64579001501 ")
  1. ;;2883
  1. ;;21,"64679090201 ")
  1. ;;2884
  1. ;;21,"64679090202 ")
  1. ;;2885
  1. ;;21,"64679090301 ")
  1. ;;2886
  1. ;;21,"64679090302 ")
  1. ;;2887
  1. ;;21,"64679090401 ")
  1. ;;2888
  1. ;;21,"64679090402 ")
  1. ;;2889
  1. ;;21,"64679090501 ")
  1. ;;2890
  1. ;;21,"64679090502 ")
  1. ;;2891
  1. ;;21,"64679092301 ")
  1. ;;2892
  1. ;;21,"64679092302 ")
  1. ;;2893
  1. ;;21,"64679092303 ")
  1. ;;2894
  1. ;;21,"64679092307 ")
  1. ;;2895
  1. ;;21,"64679092309 ")
  1. ;;2896
  1. ;;21,"64679092310 ")
  1. ;;2897
  1. ;;21,"64679092401 ")
  1. ;;2898
  1. ;;21,"64679092402 ")
  1. ;;2899
  1. ;;21,"64679092403 ")
  1. ;;2900
  1. ;;21,"64679092407 ")
  1. ;;2901
  1. ;;21,"64679092409 ")
  1. ;;2902
  1. ;;21,"64679092410 ")
  1. ;;2903
  1. ;;21,"64679092501 ")
  1. ;;2904
  1. ;;21,"64679092502 ")
  1. ;;2905
  1. ;;21,"64679092503 ")
  1. ;;2906
  1. ;;21,"64679092507 ")
  1. ;;2907
  1. ;;21,"64679092509 ")
  1. ;;2908
  1. ;;21,"64679092510 ")
  1. ;;2909
  1. ;;21,"64679092601 ")
  1. ;;2910
  1. ;;21,"64679092602 ")
  1. ;;2911
  1. ;;21,"64679092603 ")
  1. ;;2912
  1. ;;21,"64679092607 ")
  1. ;;2913
  1. ;;21,"64679092609 ")
  1. ;;2914
  1. ;;21,"64679092610 ")
  1. ;;2915
  1. ;;21,"64679092701 ")
  1. ;;2916
  1. ;;21,"64679092702 ")
  1. ;;2917
  1. ;;21,"64679092705 ")
  1. ;;2918
  1. ;;21,"64679092709 ")
  1. ;;2919
  1. ;;21,"64679092801 ")
  1. ;;2920
  1. ;;21,"64679092802 ")
  1. ;;2921
  1. ;;21,"64679092805 ")
  1. ;;2922
  1. ;;21,"64679092806 ")
  1. ;;2923
  1. ;;21,"64679092810 ")
  1. ;;2924
  1. ;;21,"64679092901 ")
  1. ;;2925
  1. ;;21,"64679092902 ")
  1. ;;2926
  1. ;;21,"64679092905 ")
  1. ;;2927
  1. ;;21,"64679092906 ")
  1. ;;2928
  1. ;;21,"64679092910 ")
  1. ;;2929
  1. ;;21,"64679094101 ")
  1. ;;2930
  1. ;;21,"64679094102 ")
  1. ;;2931
  1. ;;21,"64679094105 ")
  1. ;;2932
  1. ;;21,"64679094106 ")
  1. ;;2933
  1. ;;21,"64679094110 ")
  1. ;;2934
  1. ;;21,"64679094201 ")
  1. ;;2935
  1. ;;21,"64679094202 ")
  1. ;;2936
  1. ;;21,"64679094205 ")
  1. ;;2937
  1. ;;21,"64679094209 ")
  1. ;;2938
  1. ;;21,"64679095301 ")
  1. ;;2939
  1. ;;21,"64679095302 ")
  1. ;;2940
  1. ;;21,"64679095305 ")
  1. ;;2941
  1. ;;21,"64679095309 ")
  1. ;;2942
  1. ;;21,"64720016110 ")
  1. ;;2943
  1. ;;21,"64720016111 ")
  1. ;;2944
  1. ;;21,"64720016210 ")
  1. ;;2945
  1. ;;21,"64720016211 ")
  1. ;;2946
  1. ;;21,"64725005003 ")
  1. ;;2947
  1. ;;21,"64725005203 ")
  1. ;;2948
  1. ;;21,"64725005303 ")
  1. ;;2949
  1. ;;21,"64725012303 ")
  1. ;;2950
  1. ;;21,"64725012503 ")
  1. ;;2951
  1. ;;21,"64725012603 ")
  1. ;;2952
  1. ;;21,"64725019803 ")
  1. ;;2953
  1. ;;21,"64725019903 ")
  1. ;;2954
  1. ;;21,"64725039403 ")
  1. ;;2955
  1. ;;21,"65243030303 ")
  1. ;;2956
  1. ;;21,"65243030306 ")
  1. ;;2957
  1. ;;21,"65243030309 ")
  1. ;;2958
  1. ;;21,"65243030312 ")
  1. ;;2959
  1. ;;21,"65243030318 ")
  1. ;;2960
  1. ;;21,"65243031403 ")
  1. ;;2961
  1. ;;21,"65243031406 ")
  1. ;;2962
  1. ;;21,"65243031409 ")
  1. ;;2963
  1. ;;21,"65243031412 ")
  1. ;;2964
  1. ;;21,"65243031445 ")
  1. ;;2965
  1. ;;21,"65243034103 ")
  1. ;;2966
  1. ;;21,"65243034106 ")
  1. ;;2967
  1. ;;21,"65243034109 ")
  1. ;;2968
  1. ;;21,"65243034112 ")
  1. ;;2969
  1. ;;21,"65243034145 ")
  1. ;;2970
  1. ;;21,"65427001901 ")
  1. ;;2971
  1. ;;21,"65427002001 ")
  1. ;;2972
  1. ;;21,"65427002101 ")
  1. ;;2973
  1. ;;21,"65427002201 ")
  1. ;;2974
  1. ;;21,"65841065501 ")
  1. ;;2975
  1. ;;21,"65841065505 ")
  1. ;;2976
  1. ;;21,"65841065506 ")
  1. ;;2977
  1. ;;21,"65841065516 ")
  1. ;;2978
  1. ;;21,"65841065530 ")
  1. ;;2979
  1. ;;21,"65841065601 ")
  1. ;;2980
  1. ;;21,"65841065605 ")
  1. ;;2981
  1. ;;21,"65841065606 ")
  1. ;;2982
  1. ;;21,"65841065616 ")
  1. ;;2983
  1. ;;21,"65841065630 ")
  1. ;;2984
  1. ;;21,"65841065701 ")
  1. ;;2985
  1. ;;21,"65841065705 ")
  1. ;;2986
  1. ;;21,"65841065706 ")
  1. ;;2987
  1. ;;21,"65841065716 ")
  1. ;;2988
  1. ;;21,"65841065730 ")
  1. ;;2989
  1. ;;21,"65841065801 ")
  1. ;;2990
  1. ;;21,"65841065805 ")
  1. ;;2991
  1. ;;21,"65841065806 ")
  1. ;;2992
  1. ;;21,"65841065816 ")
  1. ;;2993
  1. ;;21,"65841065830 ")
  1. ;;2994
  1. ;;21,"65862003700 ")
  1. ;;2995
  1. ;;21,"65862003701 ")
  1. ;;2996
  1. ;;21,"65862003705 ")
  1. ;;2997
  1. ;;21,"65862003713 ")
  1. ;;2998
  1. ;;21,"65862003730 ")
  1. ;;2999
  1. ;;21,"65862003800 ")
  1. ;;3000
  1. ;;21,"65862003801 ")
  1. ;;3001
  1. ;;21,"65862003805 ")
  1. ;;3002
  1. ;;21,"65862003813 ")
  1. ;;3003
  1. ;;21,"65862003830 ")
  1. ;;3004
  1. ;;21,"65862003900 ")
  1. ;;3005
  1. ;;21,"65862003901 ")
  1. ;;3006
  1. ;;21,"65862003905 ")
  1. ;;3007
  1. ;;21,"65862003913 ")
  1. ;;3008
  1. ;;21,"65862003930 ")
  1. ;;3009
  1. ;;21,"65862004000 ")
  1. ;;3010
  1. ;;21,"65862004001 ")
  1. ;;3011
  1. ;;21,"65862004005 ")
  1. ;;3012
  1. ;;21,"65862004030 ")
  1. ;;3013
  1. ;;21,"65862004065 ")
  1. ;;3014
  1. ;;21,"65862004100 ")
  1. ;;3015
  1. ;;21,"65862004101 ")
  1. ;;3016
  1. ;;21,"65862004105 ")
  1. ;;3017
  1. ;;21,"65862004130 ")
  1. ;;3018
  1. ;;21,"65862004159 ")
  1. ;;3019
  1. ;;21,"65862004200 ")
  1. ;;3020
  1. ;;21,"65862004201 ")
  1. ;;3021
  1. ;;21,"65862004205 ")
  1. ;;3022
  1. ;;21,"65862004230 ")
  1. ;;3023
  1. ;;21,"65862004249 ")
  1. ;;3024
  1. ;;21,"65862004300 ")
  1. ;;3025
  1. ;;21,"65862004301 ")
  1. ;;3026
  1. ;;21,"65862004305 ")
  1. ;;3027
  1. ;;21,"65862004319 ")
  1. ;;3028
  1. ;;21,"65862004330 ")
  1. ;;3029
  1. ;;21,"65862004399 ")
  1. ;;3030
  1. ;;21,"65862004400 ")
  1. ;;3031
  1. ;;21,"65862004401 ")
  1. ;;3032
  1. ;;21,"65862004405 ")
  1. ;;3033
  1. ;;21,"65862004430 ")
  1. ;;3034
  1. ;;21,"65862004459 ")
  1. ;;3035
  1. ;;21,"65862004499 ")
  1. ;;3036
  1. ;;21,"65862004500 ")
  1. ;;3037
  1. ;;21,"65862004501 ")
  1. ;;3038
  1. ;;21,"65862004505 ")
  1. ;;3039
  1. ;;21,"65862004530 ")
  1. ;;3040
  1. ;;21,"65862004559 ")
  1. ;;3041
  1. ;;21,"65862004599 ")
  1. ;;3042
  1. ;;21,"65862016171 ")
  1. ;;3043
  1. ;;21,"65862016190 ")
  1. ;;3044
  1. ;;21,"65862016230 ")
  1. ;;3045
  1. ;;21,"65862016259 ")
  1. ;;3046
  1. ;;21,"65862016290 ")
  1. ;;3047
  1. ;;21,"65862016359 ")
  1. ;;3048
  1. ;;21,"65862016390 ")
  1. ;;3049