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