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

BGPM5BEL.m

Go to the documentation of this file.
  1. BGPM5BEL ;IHS/MSC/MMT-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,"57866646301 ")
  1. ;;2840
  1. ;;21,"57866646302 ")
  1. ;;2841
  1. ;;21,"57866707301 ")
  1. ;;2842
  1. ;;21,"57866707302 ")
  1. ;;2843
  1. ;;21,"57866707401 ")
  1. ;;2844
  1. ;;21,"57866707402 ")
  1. ;;2845
  1. ;;21,"57866905401 ")
  1. ;;963
  1. ;;21,"57866905402 ")
  1. ;;964
  1. ;;21,"57866905403 ")
  1. ;;965
  1. ;;21,"57866905404 ")
  1. ;;966
  1. ;;21,"57866905501 ")
  1. ;;967
  1. ;;21,"57866905502 ")
  1. ;;968
  1. ;;21,"57866905503 ")
  1. ;;969
  1. ;;21,"57866905504 ")
  1. ;;970
  1. ;;21,"57866905505 ")
  1. ;;971
  1. ;;21,"57866905601 ")
  1. ;;972
  1. ;;21,"57866905602 ")
  1. ;;973
  1. ;;21,"57866905603 ")
  1. ;;974
  1. ;;21,"57866905604 ")
  1. ;;975
  1. ;;21,"57866905606 ")
  1. ;;976
  1. ;;21,"58016000500 ")
  1. ;;2846
  1. ;;21,"58016000501 ")
  1. ;;2847
  1. ;;21,"58016000502 ")
  1. ;;2848
  1. ;;21,"58016000503 ")
  1. ;;2849
  1. ;;21,"58016000504 ")
  1. ;;2850
  1. ;;21,"58016000505 ")
  1. ;;2851
  1. ;;21,"58016000530 ")
  1. ;;2852
  1. ;;21,"58016000560 ")
  1. ;;2853
  1. ;;21,"58016000590 ")
  1. ;;2854
  1. ;;21,"58016005800 ")
  1. ;;95
  1. ;;21,"58016005801 ")
  1. ;;96
  1. ;;21,"58016005802 ")
  1. ;;97
  1. ;;21,"58016005803 ")
  1. ;;98
  1. ;;21,"58016005804 ")
  1. ;;99
  1. ;;21,"58016005805 ")
  1. ;;100
  1. ;;21,"58016005830 ")
  1. ;;101
  1. ;;21,"58016005860 ")
  1. ;;102
  1. ;;21,"58016005890 ")
  1. ;;103
  1. ;;21,"58016033400 ")
  1. ;;2864
  1. ;;21,"58016033401 ")
  1. ;;2865
  1. ;;21,"58016033402 ")
  1. ;;2866
  1. ;;21,"58016033403 ")
  1. ;;2867
  1. ;;21,"58016033404 ")
  1. ;;2868
  1. ;;21,"58016033405 ")
  1. ;;2869
  1. ;;21,"58016033406 ")
  1. ;;2870
  1. ;;21,"58016033407 ")
  1. ;;2871
  1. ;;21,"58016033408 ")
  1. ;;2872
  1. ;;21,"58016033409 ")
  1. ;;2873
  1. ;;21,"58016033410 ")
  1. ;;2874
  1. ;;21,"58016033412 ")
  1. ;;2875
  1. ;;21,"58016033414 ")
  1. ;;2876
  1. ;;21,"58016033415 ")
  1. ;;2877
  1. ;;21,"58016033416 ")
  1. ;;2878
  1. ;;21,"58016033418 ")
  1. ;;2879
  1. ;;21,"58016033420 ")
  1. ;;2880
  1. ;;21,"58016033421 ")
  1. ;;2881
  1. ;;21,"58016033424 ")
  1. ;;2882
  1. ;;21,"58016033425 ")
  1. ;;2883
  1. ;;21,"58016033426 ")
  1. ;;2884
  1. ;;21,"58016033427 ")
  1. ;;2885
  1. ;;21,"58016033428 ")
  1. ;;2886
  1. ;;21,"58016033430 ")
  1. ;;2887
  1. ;;21,"58016033432 ")
  1. ;;2888
  1. ;;21,"58016033435 ")
  1. ;;2889
  1. ;;21,"58016033436 ")
  1. ;;2890
  1. ;;21,"58016033440 ")
  1. ;;2891
  1. ;;21,"58016033442 ")
  1. ;;2892
  1. ;;21,"58016033444 ")
  1. ;;2893
  1. ;;21,"58016033445 ")
  1. ;;2894
  1. ;;21,"58016033448 ")
  1. ;;2895
  1. ;;21,"58016033450 ")
  1. ;;2896
  1. ;;21,"58016033456 ")
  1. ;;2897
  1. ;;21,"58016033460 ")
  1. ;;2898
  1. ;;21,"58016033467 ")
  1. ;;2899
  1. ;;21,"58016033469 ")
  1. ;;2900
  1. ;;21,"58016033470 ")
  1. ;;2901
  1. ;;21,"58016033471 ")
  1. ;;2902
  1. ;;21,"58016033472 ")
  1. ;;2903
  1. ;;21,"58016033473 ")
  1. ;;2904
  1. ;;21,"58016033475 ")
  1. ;;2905
  1. ;;21,"58016033476 ")
  1. ;;2906
  1. ;;21,"58016033477 ")
  1. ;;2907
  1. ;;21,"58016033479 ")
  1. ;;2908
  1. ;;21,"58016033480 ")
  1. ;;2909
  1. ;;21,"58016033481 ")
  1. ;;2910
  1. ;;21,"58016033482 ")
  1. ;;2911
  1. ;;21,"58016033483 ")
  1. ;;2912
  1. ;;21,"58016033484 ")
  1. ;;2913
  1. ;;21,"58016033487 ")
  1. ;;2914
  1. ;;21,"58016033489 ")
  1. ;;2915
  1. ;;21,"58016033490 ")
  1. ;;2916
  1. ;;21,"58016033491 ")
  1. ;;2917
  1. ;;21,"58016033492 ")
  1. ;;2918
  1. ;;21,"58016033493 ")
  1. ;;2919
  1. ;;21,"58016033496 ")
  1. ;;2920
  1. ;;21,"58016033497 ")
  1. ;;2921
  1. ;;21,"58016033498 ")
  1. ;;2922
  1. ;;21,"58016033499 ")
  1. ;;2923
  1. ;;21,"58016037030 ")
  1. ;;2924
  1. ;;21,"58016037600 ")
  1. ;;2925
  1. ;;21,"58016037601 ")
  1. ;;2926
  1. ;;21,"58016037602 ")
  1. ;;2927
  1. ;;21,"58016037603 ")
  1. ;;2928
  1. ;;21,"58016037604 ")
  1. ;;2929
  1. ;;21,"58016037605 ")
  1. ;;2930
  1. ;;21,"58016037606 ")
  1. ;;2931
  1. ;;21,"58016037607 ")
  1. ;;2932
  1. ;;21,"58016037608 ")
  1. ;;2933
  1. ;;21,"58016037609 ")
  1. ;;2934
  1. ;;21,"58016037610 ")
  1. ;;2935
  1. ;;21,"58016037612 ")
  1. ;;2936
  1. ;;21,"58016037614 ")
  1. ;;2937
  1. ;;21,"58016037615 ")
  1. ;;2938
  1. ;;21,"58016037616 ")
  1. ;;2939
  1. ;;21,"58016037618 ")
  1. ;;2940
  1. ;;21,"58016037620 ")
  1. ;;2941
  1. ;;21,"58016037621 ")
  1. ;;2942
  1. ;;21,"58016037624 ")
  1. ;;2943
  1. ;;21,"58016037625 ")
  1. ;;2944
  1. ;;21,"58016037626 ")
  1. ;;2945
  1. ;;21,"58016037627 ")
  1. ;;2946
  1. ;;21,"58016037628 ")
  1. ;;2947
  1. ;;21,"58016037630 ")
  1. ;;2948
  1. ;;21,"58016037632 ")
  1. ;;2949
  1. ;;21,"58016037635 ")
  1. ;;2950
  1. ;;21,"58016037636 ")
  1. ;;2951
  1. ;;21,"58016037640 ")
  1. ;;2952
  1. ;;21,"58016037642 ")
  1. ;;2953
  1. ;;21,"58016037644 ")
  1. ;;2954
  1. ;;21,"58016037645 ")
  1. ;;2955
  1. ;;21,"58016037648 ")
  1. ;;2956
  1. ;;21,"58016037650 ")
  1. ;;2957
  1. ;;21,"58016037656 ")
  1. ;;2958
  1. ;;21,"58016037660 ")
  1. ;;2959
  1. ;;21,"58016037667 ")
  1. ;;2960
  1. ;;21,"58016037669 ")
  1. ;;2961
  1. ;;21,"58016037670 ")
  1. ;;2962
  1. ;;21,"58016037671 ")
  1. ;;2963
  1. ;;21,"58016037672 ")
  1. ;;2964
  1. ;;21,"58016037673 ")
  1. ;;2965
  1. ;;21,"58016037675 ")
  1. ;;2966
  1. ;;21,"58016037676 ")
  1. ;;2967
  1. ;;21,"58016037677 ")
  1. ;;2968
  1. ;;21,"58016037679 ")
  1. ;;2969
  1. ;;21,"58016037680 ")
  1. ;;2970
  1. ;;21,"58016037681 ")
  1. ;;2971
  1. ;;21,"58016037682 ")
  1. ;;2972
  1. ;;21,"58016037683 ")
  1. ;;2973
  1. ;;21,"58016037684 ")
  1. ;;2974
  1. ;;21,"58016037687 ")
  1. ;;2975
  1. ;;21,"58016037689 ")
  1. ;;2976
  1. ;;21,"58016037690 ")
  1. ;;2977
  1. ;;21,"58016037691 ")
  1. ;;2978
  1. ;;21,"58016037692 ")
  1. ;;2979
  1. ;;21,"58016037693 ")
  1. ;;2980
  1. ;;21,"58016037696 ")
  1. ;;2981
  1. ;;21,"58016037697 ")
  1. ;;2982
  1. ;;21,"58016037698 ")
  1. ;;2983
  1. ;;21,"58016037699 ")
  1. ;;2984
  1. ;;21,"58016037800 ")
  1. ;;2985
  1. ;;21,"58016037801 ")
  1. ;;2986
  1. ;;21,"58016037802 ")
  1. ;;2987
  1. ;;21,"58016037803 ")
  1. ;;2988
  1. ;;21,"58016037804 ")
  1. ;;2989
  1. ;;21,"58016037805 ")
  1. ;;2990
  1. ;;21,"58016037806 ")
  1. ;;2991
  1. ;;21,"58016037807 ")
  1. ;;2992
  1. ;;21,"58016037808 ")
  1. ;;2993
  1. ;;21,"58016037809 ")
  1. ;;2994
  1. ;;21,"58016037810 ")
  1. ;;2995
  1. ;;21,"58016037812 ")
  1. ;;2996
  1. ;;21,"58016037814 ")
  1. ;;2997
  1. ;;21,"58016037815 ")
  1. ;;2998
  1. ;;21,"58016037816 ")
  1. ;;2999
  1. ;;21,"58016037818 ")
  1. ;;3000
  1. ;;21,"58016037820 ")
  1. ;;3001
  1. ;;21,"58016037821 ")
  1. ;;3002
  1. ;;21,"58016037824 ")
  1. ;;3003
  1. ;;21,"58016037825 ")
  1. ;;3004
  1. ;;21,"58016037826 ")
  1. ;;3005
  1. ;;21,"58016037827 ")
  1. ;;3006
  1. ;;21,"58016037828 ")
  1. ;;3007
  1. ;;21,"58016037830 ")
  1. ;;3008
  1. ;;21,"58016037832 ")
  1. ;;3009
  1. ;;21,"58016037835 ")
  1. ;;3010
  1. ;;21,"58016037836 ")
  1. ;;3011
  1. ;;21,"58016037840 ")
  1. ;;3012
  1. ;;21,"58016037842 ")
  1. ;;3013
  1. ;;21,"58016037844 ")
  1. ;;3014
  1. ;;21,"58016037845 ")
  1. ;;3015
  1. ;;21,"58016037848 ")
  1. ;;3016
  1. ;;21,"58016037850 ")
  1. ;;3017
  1. ;;21,"58016037856 ")
  1. ;;3018
  1. ;;21,"58016037860 ")
  1. ;;3019
  1. ;;21,"58016037867 ")
  1. ;;3020
  1. ;;21,"58016037869 ")
  1. ;;3021
  1. ;;21,"58016037870 ")
  1. ;;3022
  1. ;;21,"58016037871 ")
  1. ;;3023
  1. ;;21,"58016037872 ")
  1. ;;3024
  1. ;;21,"58016037873 ")
  1. ;;3025
  1. ;;21,"58016037875 ")
  1. ;;3026
  1. ;;21,"58016037876 ")
  1. ;;3027
  1. ;;21,"58016037877 ")
  1. ;;3028
  1. ;;21,"58016037879 ")
  1. ;;3029
  1. ;;21,"58016037880 ")
  1. ;;3030
  1. ;;21,"58016037881 ")
  1. ;;3031
  1. ;;21,"58016037882 ")
  1. ;;3032
  1. ;;21,"58016037883 ")
  1. ;;3033
  1. ;;21,"58016037884 ")
  1. ;;3034
  1. ;;21,"58016037887 ")
  1. ;;3035
  1. ;;21,"58016037889 ")
  1. ;;3036
  1. ;;21,"58016037890 ")
  1. ;;3037
  1. ;;21,"58016037891 ")
  1. ;;3038
  1. ;;21,"58016037892 ")
  1. ;;3039
  1. ;;21,"58016037893 ")
  1. ;;3040
  1. ;;21,"58016037896 ")
  1. ;;3041
  1. ;;21,"58016037897 ")
  1. ;;3042
  1. ;;21,"58016037898 ")
  1. ;;3043
  1. ;;21,"58016037899 ")
  1. ;;3044
  1. ;;21,"58016038300 ")
  1. ;;3045
  1. ;;21,"58016038301 ")
  1. ;;3046
  1. ;;21,"58016038302 ")
  1. ;;3047
  1. ;;21,"58016038303 ")
  1. ;;3048
  1. ;;21,"58016038304 ")
  1. ;;3049
  1. ;;21,"58016038305 ")
  1. ;;3050
  1. ;;21,"58016038306 ")
  1. ;;3051
  1. ;;21,"58016038307 ")
  1. ;;3052
  1. ;;21,"58016038308 ")
  1. ;;3053
  1. ;;21,"58016038309 ")
  1. ;;3054
  1. ;;21,"58016038310 ")
  1. ;;3055
  1. ;;21,"58016038312 ")
  1. ;;3056
  1. ;;21,"58016038314 ")
  1. ;;3057
  1. ;;21,"58016038315 ")
  1. ;;3058
  1. ;;21,"58016038316 ")
  1. ;;3059
  1. ;;21,"58016038318 ")
  1. ;;3060
  1. ;;21,"58016038320 ")
  1. ;;3061
  1. ;;21,"58016038321 ")
  1. ;;3062
  1. ;;21,"58016038324 ")
  1. ;;3063
  1. ;;21,"58016038325 ")
  1. ;;3064
  1. ;;21,"58016038326 ")
  1. ;;3065
  1. ;;21,"58016038327 ")
  1. ;;3066
  1. ;;21,"58016038328 ")
  1. ;;3067
  1. ;;21,"58016038330 ")
  1. ;;3068
  1. ;;21,"58016038332 ")
  1. ;;3069
  1. ;;21,"58016038335 ")
  1. ;;3070
  1. ;;21,"58016038336 ")
  1. ;;3071
  1. ;;21,"58016038340 ")
  1. ;;3072
  1. ;;21,"58016038342 ")
  1. ;;3073
  1. ;;21,"58016038344 ")
  1. ;;3074
  1. ;;21,"58016038345 ")
  1. ;;3075
  1. ;;21,"58016038348 ")
  1. ;;3076
  1. ;;21,"58016038350 ")
  1. ;;3077
  1. ;;21,"58016038356 ")
  1. ;;3078
  1. ;;21,"58016038360 ")
  1. ;;3079
  1. ;;21,"58016038367 ")
  1. ;;3080
  1. ;;21,"58016038369 ")
  1. ;;3081
  1. ;;21,"58016038370 ")
  1. ;;3082
  1. ;;21,"58016038371 ")
  1. ;;3083
  1. ;;21,"58016038372 ")
  1. ;;3084
  1. ;;21,"58016038373 ")
  1. ;;3085
  1. ;;21,"58016038375 ")
  1. ;;3086
  1. ;;21,"58016038376 ")
  1. ;;3087
  1. ;;21,"58016038377 ")
  1. ;;3088
  1. ;;21,"58016038379 ")
  1. ;;3089
  1. ;;21,"58016038380 ")
  1. ;;3090
  1. ;;21,"58016038381 ")
  1. ;;3091
  1. ;;21,"58016038382 ")
  1. ;;3092
  1. ;;21,"58016038383 ")
  1. ;;3093
  1. ;;21,"58016038384 ")
  1. ;;3094
  1. ;;21,"58016038387 ")
  1. ;;3095
  1. ;;21,"58016038389 ")
  1. ;;3096
  1. ;;21,"58016038390 ")
  1. ;;3097
  1. ;;21,"58016038391 ")
  1. ;;3098
  1. ;;21,"58016038392 ")
  1. ;;3099
  1. ;;21,"58016038393 ")
  1. ;;3100
  1. ;;21,"58016038396 ")
  1. ;;3101
  1. ;;21,"58016038397 ")
  1. ;;3102
  1. ;;21,"58016038398 ")
  1. ;;3103
  1. ;;21,"58016038399 ")
  1. ;;3104
  1. ;;21,"58016038600 ")
  1. ;;3105
  1. ;;21,"58016038601 ")
  1. ;;3106
  1. ;;21,"58016038602 ")
  1. ;;3107
  1. ;;21,"58016038603 ")
  1. ;;3108
  1. ;;21,"58016038604 ")
  1. ;;3109
  1. ;;21,"58016038605 ")
  1. ;;3110
  1. ;;21,"58016038606 ")
  1. ;;3111
  1. ;;21,"58016038607 ")
  1. ;;3112
  1. ;;21,"58016038608 ")
  1. ;;3113
  1. ;;21,"58016038609 ")
  1. ;;3114
  1. ;;21,"58016038610 ")
  1. ;;3115
  1. ;;21,"58016038612 ")
  1. ;;3116
  1. ;;21,"58016038614 ")
  1. ;;3117
  1. ;;21,"58016038615 ")
  1. ;;3118
  1. ;;21,"58016038616 ")
  1. ;;3119
  1. ;;21,"58016038618 ")
  1. ;;3120
  1. ;;21,"58016038620 ")
  1. ;;3121
  1. ;;21,"58016038621 ")
  1. ;;3122
  1. ;;21,"58016038624 ")
  1. ;;3123
  1. ;;21,"58016038625 ")
  1. ;;3124
  1. ;;21,"58016038626 ")
  1. ;;3125
  1. ;;21,"58016038627 ")
  1. ;;3126
  1. ;;21,"58016038628 ")
  1. ;;3127
  1. ;;21,"58016038630 ")
  1. ;;3128
  1. ;;21,"58016038632 ")
  1. ;;3129
  1. ;;21,"58016038635 ")
  1. ;;3130
  1. ;;21,"58016038636 ")
  1. ;;3131
  1. ;;21,"58016038640 ")
  1. ;;3132
  1. ;;21,"58016038642 ")
  1. ;;3133
  1. ;;21,"58016038644 ")
  1. ;;3134
  1. ;;21,"58016038645 ")
  1. ;;3135
  1. ;;21,"58016038648 ")
  1. ;;3136
  1. ;;21,"58016038650 ")
  1. ;;3137
  1. ;;21,"58016038656 ")
  1. ;;3138
  1. ;;21,"58016038660 ")
  1. ;;3139
  1. ;;21,"58016038667 ")
  1. ;;3140
  1. ;;21,"58016038669 ")
  1. ;;3141
  1. ;;21,"58016038670 ")
  1. ;;3142
  1. ;;21,"58016038671 ")
  1. ;;3143
  1. ;;21,"58016038672 ")
  1. ;;3144
  1. ;;21,"58016038673 ")
  1. ;;3145
  1. ;;21,"58016038675 ")
  1. ;;3146
  1. ;;21,"58016038676 ")
  1. ;;3147
  1. ;;21,"58016038677 ")
  1. ;;3148
  1. ;;21,"58016038679 ")
  1. ;;3149
  1. ;;21,"58016038680 ")
  1. ;;3150
  1. ;;21,"58016038681 ")
  1. ;;3151
  1. ;;21,"58016038682 ")
  1. ;;3152
  1. ;;21,"58016038683 ")
  1. ;;3153
  1. ;;21,"58016038684 ")
  1. ;;3154
  1. ;;21,"58016038687 ")
  1. ;;3155
  1. ;;21,"58016038689 ")
  1. ;;3156
  1. ;;21,"58016038690 ")
  1. ;;3157
  1. ;;21,"58016038691 ")
  1. ;;3158
  1. ;;21,"58016038692 ")
  1. ;;3159
  1. ;;21,"58016038693 ")
  1. ;;3160
  1. ;;21,"58016038696 ")
  1. ;;3161
  1. ;;21,"58016038697 ")
  1. ;;3162
  1. ;;21,"58016038698 ")
  1. ;;3163
  1. ;;21,"58016038699 ")
  1. ;;3164
  1. ;;21,"58016041100 ")
  1. ;;104
  1. ;;21,"58016041102 ")
  1. ;;105
  1. ;;21,"58016041130 ")
  1. ;;106
  1. ;;21,"58016041160 ")
  1. ;;107
  1. ;;21,"58016041190 ")
  1. ;;108
  1. ;;21,"58016046600 ")
  1. ;;991
  1. ;;21,"58016046601 ")
  1. ;;992
  1. ;;21,"58016046602 ")
  1. ;;993
  1. ;;21,"58016046603 ")
  1. ;;994
  1. ;;21,"58016046604 ")
  1. ;;995
  1. ;;21,"58016046605 ")
  1. ;;996
  1. ;;21,"58016046606 ")
  1. ;;997
  1. ;;21,"58016046607 ")
  1. ;;998
  1. ;;21,"58016046608 ")
  1. ;;999