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

BGPM5ATW.m

Go to the documentation of this file.
BGPM5ATW ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"58016045383 ")
 ;;2917
 ;;21,"58016045384 ")
 ;;2918
 ;;21,"58016045387 ")
 ;;2919
 ;;21,"58016045389 ")
 ;;2920
 ;;21,"58016045390 ")
 ;;2921
 ;;21,"58016045391 ")
 ;;2922
 ;;21,"58016045392 ")
 ;;2923
 ;;21,"58016045393 ")
 ;;2924
 ;;21,"58016045396 ")
 ;;2925
 ;;21,"58016045397 ")
 ;;2926
 ;;21,"58016045398 ")
 ;;2927
 ;;21,"58016045399 ")
 ;;2928
 ;;21,"58016055430 ")
 ;;2929
 ;;21,"58016063400 ")
 ;;2930
 ;;21,"58016063401 ")
 ;;2931
 ;;21,"58016063402 ")
 ;;2932
 ;;21,"58016063403 ")
 ;;2933
 ;;21,"58016063404 ")
 ;;2934
 ;;21,"58016063405 ")
 ;;2935
 ;;21,"58016063406 ")
 ;;2936
 ;;21,"58016063407 ")
 ;;2937
 ;;21,"58016063408 ")
 ;;2938
 ;;21,"58016063409 ")
 ;;2939
 ;;21,"58016063410 ")
 ;;2940
 ;;21,"58016063412 ")
 ;;2941
 ;;21,"58016063414 ")
 ;;2942
 ;;21,"58016063415 ")
 ;;2943
 ;;21,"58016063416 ")
 ;;2944
 ;;21,"58016063418 ")
 ;;2945
 ;;21,"58016063420 ")
 ;;2946
 ;;21,"58016063421 ")
 ;;2947
 ;;21,"58016063424 ")
 ;;2948
 ;;21,"58016063425 ")
 ;;2949
 ;;21,"58016063426 ")
 ;;2950
 ;;21,"58016063427 ")
 ;;2951
 ;;21,"58016063428 ")
 ;;2952
 ;;21,"58016063430 ")
 ;;2953
 ;;21,"58016063432 ")
 ;;2954
 ;;21,"58016063435 ")
 ;;2955
 ;;21,"58016063436 ")
 ;;2956
 ;;21,"58016063440 ")
 ;;2957
 ;;21,"58016063442 ")
 ;;2958
 ;;21,"58016063444 ")
 ;;2959
 ;;21,"58016063445 ")
 ;;2960
 ;;21,"58016063448 ")
 ;;2961
 ;;21,"58016063450 ")
 ;;2962
 ;;21,"58016063456 ")
 ;;2963
 ;;21,"58016063460 ")
 ;;2964
 ;;21,"58016063467 ")
 ;;2965
 ;;21,"58016063469 ")
 ;;2966
 ;;21,"58016063470 ")
 ;;2967
 ;;21,"58016063471 ")
 ;;2968
 ;;21,"58016063472 ")
 ;;2969
 ;;21,"58016063473 ")
 ;;2970
 ;;21,"58016063475 ")
 ;;2971
 ;;21,"58016063476 ")
 ;;2972
 ;;21,"58016063477 ")
 ;;2973
 ;;21,"58016063479 ")
 ;;2974
 ;;21,"58016063480 ")
 ;;2975
 ;;21,"58016063481 ")
 ;;2976
 ;;21,"58016063482 ")
 ;;2977
 ;;21,"58016063483 ")
 ;;2978
 ;;21,"58016063484 ")
 ;;2979
 ;;21,"58016063487 ")
 ;;2980
 ;;21,"58016063489 ")
 ;;2981
 ;;21,"58016063490 ")
 ;;2982
 ;;21,"58016063491 ")
 ;;2983
 ;;21,"58016063492 ")
 ;;2984
 ;;21,"58016063493 ")
 ;;2985
 ;;21,"58016063496 ")
 ;;2986
 ;;21,"58016063497 ")
 ;;2987
 ;;21,"58016063498 ")
 ;;2988
 ;;21,"58016063499 ")
 ;;2989
 ;;21,"58016064300 ")
 ;;2990
 ;;21,"58016064301 ")
 ;;2991
 ;;21,"58016064302 ")
 ;;2992
 ;;21,"58016064303 ")
 ;;2993
 ;;21,"58016064304 ")
 ;;2994
 ;;21,"58016064305 ")
 ;;2995
 ;;21,"58016064306 ")
 ;;2996
 ;;21,"58016064307 ")
 ;;2997
 ;;21,"58016064308 ")
 ;;2998
 ;;21,"58016064309 ")
 ;;2999
 ;;21,"58016064310 ")
 ;;3000
 ;;21,"58016064312 ")
 ;;3001
 ;;21,"58016064314 ")
 ;;3002
 ;;21,"58016064315 ")
 ;;3003
 ;;21,"58016064316 ")
 ;;3004
 ;;21,"58016064318 ")
 ;;3005
 ;;21,"58016064320 ")
 ;;3006
 ;;21,"58016064321 ")
 ;;3007
 ;;21,"58016064324 ")
 ;;3008
 ;;21,"58016064325 ")
 ;;3009
 ;;21,"58016064326 ")
 ;;3010
 ;;21,"58016064327 ")
 ;;3011
 ;;21,"58016064328 ")
 ;;3012
 ;;21,"58016064330 ")
 ;;3013
 ;;21,"58016064332 ")
 ;;3014
 ;;21,"58016064335 ")
 ;;3015
 ;;21,"58016064336 ")
 ;;3016
 ;;21,"58016064340 ")
 ;;3017
 ;;21,"58016064342 ")
 ;;3018
 ;;21,"58016064344 ")
 ;;3019
 ;;21,"58016064345 ")
 ;;3020
 ;;21,"58016064348 ")
 ;;3021
 ;;21,"58016064350 ")
 ;;3022
 ;;21,"58016064356 ")
 ;;3023
 ;;21,"58016064360 ")
 ;;3024
 ;;21,"58016064367 ")
 ;;3025
 ;;21,"58016064369 ")
 ;;3026
 ;;21,"58016064370 ")
 ;;3027
 ;;21,"58016064371 ")
 ;;3028
 ;;21,"58016064372 ")
 ;;3029
 ;;21,"58016064373 ")
 ;;3030
 ;;21,"58016064375 ")
 ;;3031
 ;;21,"58016064376 ")
 ;;3032
 ;;21,"58016064377 ")
 ;;3033
 ;;21,"58016064379 ")
 ;;3034
 ;;21,"58016064380 ")
 ;;3035
 ;;21,"58016064381 ")
 ;;3036
 ;;21,"58016064382 ")
 ;;3037
 ;;21,"58016064383 ")
 ;;3038
 ;;21,"58016064384 ")
 ;;3039
 ;;21,"58016064387 ")
 ;;3040
 ;;21,"58016064389 ")
 ;;3041
 ;;21,"58016064390 ")
 ;;3042
 ;;21,"58016064391 ")
 ;;3043
 ;;21,"58016064392 ")
 ;;3044
 ;;21,"58016064393 ")
 ;;3045
 ;;21,"58016064396 ")
 ;;3046
 ;;21,"58016064397 ")
 ;;3047
 ;;21,"58016064398 ")
 ;;3048
 ;;21,"58016064399 ")
 ;;3049
 ;;21,"58016087200 ")
 ;;3050
 ;;21,"58016087201 ")
 ;;3051
 ;;21,"58016087202 ")
 ;;3052
 ;;21,"58016087203 ")
 ;;3053
 ;;21,"58016087204 ")
 ;;3054
 ;;21,"58016087205 ")
 ;;3055
 ;;21,"58016087206 ")
 ;;3056
 ;;21,"58016087207 ")
 ;;3057
 ;;21,"58016087208 ")
 ;;3058
 ;;21,"58016087209 ")
 ;;3059
 ;;21,"58016087210 ")
 ;;3060
 ;;21,"58016087212 ")
 ;;3061
 ;;21,"58016087214 ")
 ;;3062
 ;;21,"58016087215 ")
 ;;3063
 ;;21,"58016087216 ")
 ;;3064
 ;;21,"58016087218 ")
 ;;3065
 ;;21,"58016087220 ")
 ;;3066
 ;;21,"58016087221 ")
 ;;3067
 ;;21,"58016087224 ")
 ;;3068
 ;;21,"58016087225 ")
 ;;3069
 ;;21,"58016087226 ")
 ;;3070
 ;;21,"58016087227 ")
 ;;3071
 ;;21,"58016087228 ")
 ;;3072
 ;;21,"58016087230 ")
 ;;3073
 ;;21,"58016087232 ")
 ;;3074
 ;;21,"58016087235 ")
 ;;3075
 ;;21,"58016087236 ")
 ;;3076
 ;;21,"58016087240 ")
 ;;3077
 ;;21,"58016087242 ")
 ;;3078
 ;;21,"58016087244 ")
 ;;3079
 ;;21,"58016087245 ")
 ;;3080
 ;;21,"58016087248 ")
 ;;3081
 ;;21,"58016087250 ")
 ;;3082
 ;;21,"58016087256 ")
 ;;3083
 ;;21,"58016087260 ")
 ;;3084
 ;;21,"58016087267 ")
 ;;3085
 ;;21,"58016087269 ")
 ;;3086
 ;;21,"58016087270 ")
 ;;3087
 ;;21,"58016087271 ")
 ;;3088
 ;;21,"58016087272 ")
 ;;3089
 ;;21,"58016087273 ")
 ;;3090
 ;;21,"58016087275 ")
 ;;3091
 ;;21,"58016087276 ")
 ;;3092
 ;;21,"58016087277 ")
 ;;3093
 ;;21,"58016087279 ")
 ;;3094
 ;;21,"58016087280 ")
 ;;3095
 ;;21,"58016087281 ")
 ;;3096
 ;;21,"58016087282 ")
 ;;3097
 ;;21,"58016087283 ")
 ;;3098
 ;;21,"58016087284 ")
 ;;3099
 ;;21,"58016087287 ")
 ;;3100
 ;;21,"58016087289 ")
 ;;3101
 ;;21,"58016087290 ")
 ;;3102
 ;;21,"58016087291 ")
 ;;3103
 ;;21,"58016087292 ")
 ;;3104
 ;;21,"58016087293 ")
 ;;3105
 ;;21,"58016087296 ")
 ;;3106
 ;;21,"58016087297 ")
 ;;3107
 ;;21,"58016087298 ")
 ;;3108
 ;;21,"58016087299 ")
 ;;3109
 ;;21,"58016087300 ")
 ;;3110
 ;;21,"58016087315 ")
 ;;3111
 ;;21,"58016087320 ")
 ;;3112
 ;;21,"58016087330 ")
 ;;3113
 ;;21,"58016088400 ")
 ;;3114
 ;;21,"58016088401 ")
 ;;3115
 ;;21,"58016088402 ")
 ;;3116
 ;;21,"58016088403 ")
 ;;3117
 ;;21,"58016088404 ")
 ;;3118
 ;;21,"58016088405 ")
 ;;3119
 ;;21,"58016088406 ")
 ;;3120
 ;;21,"58016088407 ")
 ;;3121
 ;;21,"58016088408 ")
 ;;3122
 ;;21,"58016088409 ")
 ;;3123
 ;;21,"58016088410 ")
 ;;3124
 ;;21,"58016088412 ")
 ;;3125
 ;;21,"58016088414 ")
 ;;3126
 ;;21,"58016088415 ")
 ;;3127
 ;;21,"58016088416 ")
 ;;3128
 ;;21,"58016088418 ")
 ;;3129
 ;;21,"58016088420 ")
 ;;3130
 ;;21,"58016088421 ")
 ;;3131
 ;;21,"58016088424 ")
 ;;3132
 ;;21,"58016088425 ")
 ;;3133
 ;;21,"58016088426 ")
 ;;3134
 ;;21,"58016088427 ")
 ;;3135
 ;;21,"58016088428 ")
 ;;3136
 ;;21,"58016088430 ")
 ;;3137
 ;;21,"58016088432 ")
 ;;3138
 ;;21,"58016088435 ")
 ;;3139
 ;;21,"58016088436 ")
 ;;3140
 ;;21,"58016088440 ")
 ;;3141
 ;;21,"58016088442 ")
 ;;3142
 ;;21,"58016088444 ")
 ;;3143
 ;;21,"58016088445 ")
 ;;3144
 ;;21,"58016088448 ")
 ;;3145
 ;;21,"58016088450 ")
 ;;3146
 ;;21,"58016088456 ")
 ;;3147
 ;;21,"58016088460 ")
 ;;3148
 ;;21,"58016088467 ")
 ;;3149
 ;;21,"58016088469 ")
 ;;3150
 ;;21,"58016088470 ")
 ;;3151
 ;;21,"58016088471 ")
 ;;3152
 ;;21,"58016088472 ")
 ;;3153
 ;;21,"58016088473 ")
 ;;3154
 ;;21,"58016088475 ")
 ;;3155
 ;;21,"58016088476 ")
 ;;3156
 ;;21,"58016088479 ")
 ;;3157
 ;;21,"58016088480 ")
 ;;3158
 ;;21,"58016088481 ")
 ;;3159
 ;;21,"58016088482 ")
 ;;3160
 ;;21,"58016088483 ")
 ;;3161
 ;;21,"58016088484 ")
 ;;3162
 ;;21,"58016088487 ")
 ;;3163
 ;;21,"58016088489 ")
 ;;3164
 ;;21,"58016088490 ")
 ;;3165
 ;;21,"58016088491 ")
 ;;3166
 ;;21,"58016088492 ")
 ;;3167
 ;;21,"58016088493 ")
 ;;3168
 ;;21,"58016088496 ")
 ;;3169
 ;;21,"58016088497 ")
 ;;3170
 ;;21,"58016088498 ")
 ;;3171
 ;;21,"58016088499 ")
 ;;3172
 ;;21,"58016095300 ")
 ;;3173
 ;;21,"58016095301 ")
 ;;3174
 ;;21,"58016095302 ")
 ;;3175
 ;;21,"58016095303 ")
 ;;3176
 ;;21,"58016095304 ")
 ;;3177
 ;;21,"58016095305 ")
 ;;3178
 ;;21,"58016095306 ")
 ;;3179
 ;;21,"58016095307 ")
 ;;3180
 ;;21,"58016095308 ")
 ;;3181
 ;;21,"58016095309 ")
 ;;3182
 ;;21,"58016095310 ")
 ;;3183
 ;;21,"58016095312 ")
 ;;3184
 ;;21,"58016095314 ")
 ;;3185
 ;;21,"58016095315 ")
 ;;3186
 ;;21,"58016095316 ")
 ;;3187
 ;;21,"58016095318 ")
 ;;3188
 ;;21,"58016095320 ")
 ;;3189
 ;;21,"58016095321 ")
 ;;3190
 ;;21,"58016095324 ")
 ;;3191
 ;;21,"58016095325 ")
 ;;3192
 ;;21,"58016095326 ")
 ;;3193
 ;;21,"58016095327 ")
 ;;3194
 ;;21,"58016095328 ")
 ;;3195
 ;;21,"58016095330 ")
 ;;3196
 ;;21,"58016095332 ")
 ;;3197
 ;;21,"58016095335 ")
 ;;3198
 ;;21,"58016095336 ")
 ;;3199
 ;;21,"58016095340 ")
 ;;3200
 ;;21,"58016095342 ")
 ;;3201
 ;;21,"58016095344 ")
 ;;3202
 ;;21,"58016095345 ")
 ;;3203
 ;;21,"58016095348 ")
 ;;3204
 ;;21,"58016095350 ")
 ;;3205
 ;;21,"58016095356 ")
 ;;3206
 ;;21,"58016095360 ")
 ;;3207
 ;;21,"58016095367 ")
 ;;3208
 ;;21,"58016095369 ")
 ;;3209
 ;;21,"58016095370 ")
 ;;3210
 ;;21,"58016095371 ")
 ;;3211
 ;;21,"58016095372 ")
 ;;3212
 ;;21,"58016095373 ")
 ;;3213
 ;;21,"58016095375 ")
 ;;3214
 ;;21,"58016095376 ")
 ;;3215
 ;;21,"58016095377 ")
 ;;3216
 ;;21,"58016095379 ")
 ;;3217
 ;;21,"58016095380 ")
 ;;3218
 ;;21,"58016095381 ")
 ;;3219
 ;;21,"58016095382 ")
 ;;3220
 ;;21,"58016095383 ")
 ;;3221
 ;;21,"58016095384 ")
 ;;3222
 ;;21,"58016095387 ")
 ;;3223
 ;;21,"58016095389 ")
 ;;3224
 ;;21,"58016095390 ")
 ;;3225
 ;;21,"58016095391 ")
 ;;3226
 ;;21,"58016095392 ")
 ;;3227
 ;;21,"58016095393 ")
 ;;3228
 ;;21,"58016095396 ")
 ;;3229
 ;;21,"58016095397 ")
 ;;3230
 ;;21,"58016095398 ")
 ;;3231
 ;;21,"58016095399 ")
 ;;3232
 ;;21,"58016095700 ")
 ;;3233
 ;;21,"58016095701 ")
 ;;3234
 ;;21,"58016095702 ")
 ;;3235
 ;;21,"58016095703 ")
 ;;3236
 ;;21,"58016095704 ")
 ;;3237
 ;;21,"58016095705 ")
 ;;3238
 ;;21,"58016095706 ")
 ;;3239
 ;;21,"58016095707 ")
 ;;3240
 ;;21,"58016095708 ")
 ;;3241
 ;;21,"58016095709 ")
 ;;3242
 ;;21,"58016095710 ")
 ;;3243
 ;;21,"58016095712 ")
 ;;3244
 ;;21,"58016095714 ")
 ;;3245
 ;;21,"58016095715 ")
 ;;3246
 ;;21,"58016095716 ")
 ;;3247
 ;;21,"58016095718 ")
 ;;3248
 ;;21,"58016095720 ")
 ;;3249
 ;;21,"58016095721 ")
 ;;3250
 ;;21,"58016095724 ")
 ;;3251
 ;;21,"58016095725 ")
 ;;3252
 ;;21,"58016095726 ")
 ;;3253
 ;;21,"58016095727 ")
 ;;3254
 ;;21,"58016095728 ")
 ;;3255
 ;;21,"58016095730 ")
 ;;3256
 ;;21,"58016095732 ")
 ;;3257
 ;;21,"58016095735 ")
 ;;3258
 ;;21,"58016095736 ")
 ;;3259
 ;;21,"58016095740 ")
 ;;3260
 ;;21,"58016095742 ")
 ;;3261
 ;;21,"58016095744 ")
 ;;3262
 ;;21,"58016095745 ")
 ;;3263
 ;;21,"58016095748 ")
 ;;3264
 ;;21,"58016095750 ")
 ;;3265
 ;;21,"58016095756 ")
 ;;3266
 ;;21,"58016095760 ")
 ;;3267
 ;;21,"58016095767 ")
 ;;3268