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

BGP73G10.m

Go to the documentation of this file.
  1. BGP73G10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"57664-0422-13 ")
  1. ;;3022
  1. ;;21,"57664-0422-18 ")
  1. ;;3023
  1. ;;21,"57664-0422-83 ")
  1. ;;3024
  1. ;;21,"57664-0422-99 ")
  1. ;;3025
  1. ;;21,"57664-0424-13 ")
  1. ;;3026
  1. ;;21,"57664-0424-83 ")
  1. ;;3027
  1. ;;21,"57664-0424-99 ")
  1. ;;3028
  1. ;;21,"57664-0425-13 ")
  1. ;;3029
  1. ;;21,"57664-0425-83 ")
  1. ;;3030
  1. ;;21,"57664-0425-99 ")
  1. ;;3031
  1. ;;21,"57664-0499-18 ")
  1. ;;3032
  1. ;;21,"57664-0499-83 ")
  1. ;;3033
  1. ;;21,"57664-0500-18 ")
  1. ;;3034
  1. ;;21,"57664-0500-83 ")
  1. ;;3035
  1. ;;21,"57664-0501-18 ")
  1. ;;3036
  1. ;;21,"57664-0501-83 ")
  1. ;;3037
  1. ;;21,"57664-0507-13 ")
  1. ;;3038
  1. ;;21,"57664-0507-88 ")
  1. ;;3039
  1. ;;21,"57664-0508-13 ")
  1. ;;3040
  1. ;;21,"57664-0508-18 ")
  1. ;;3041
  1. ;;21,"57664-0508-88 ")
  1. ;;3042
  1. ;;21,"57664-0509-13 ")
  1. ;;3043
  1. ;;21,"57664-0509-18 ")
  1. ;;3044
  1. ;;21,"57664-0509-88 ")
  1. ;;3045
  1. ;;21,"57664-0510-18 ")
  1. ;;3046
  1. ;;21,"57664-0510-83 ")
  1. ;;3047
  1. ;;21,"57866-0920-01 ")
  1. ;;3048
  1. ;;21,"57866-0920-02 ")
  1. ;;3049
  1. ;;21,"57866-0920-03 ")
  1. ;;3050
  1. ;;21,"57866-0922-01 ")
  1. ;;3051
  1. ;;21,"57866-0922-02 ")
  1. ;;3052
  1. ;;21,"57866-0922-03 ")
  1. ;;3053
  1. ;;21,"57866-3061-02 ")
  1. ;;3054
  1. ;;21,"57866-3071-01 ")
  1. ;;3055
  1. ;;21,"57866-3072-01 ")
  1. ;;3056
  1. ;;21,"57866-3072-02 ")
  1. ;;3057
  1. ;;21,"57866-3072-03 ")
  1. ;;3058
  1. ;;21,"57866-3073-01 ")
  1. ;;3059
  1. ;;21,"57866-3073-02 ")
  1. ;;3060
  1. ;;21,"57866-3073-03 ")
  1. ;;3061
  1. ;;21,"57866-3906-01 ")
  1. ;;3062
  1. ;;21,"57866-3907-01 ")
  1. ;;3063
  1. ;;21,"57866-3930-01 ")
  1. ;;3064
  1. ;;21,"57866-3931-01 ")
  1. ;;3065
  1. ;;21,"57866-4688-01 ")
  1. ;;3066
  1. ;;21,"57866-4688-02 ")
  1. ;;3067
  1. ;;21,"57866-4688-03 ")
  1. ;;3068
  1. ;;21,"57866-4688-04 ")
  1. ;;3069
  1. ;;21,"57866-4715-01 ")
  1. ;;3070
  1. ;;21,"57866-4715-02 ")
  1. ;;3071
  1. ;;21,"57866-4715-03 ")
  1. ;;3072
  1. ;;21,"57866-4715-04 ")
  1. ;;3073
  1. ;;21,"57866-6650-01 ")
  1. ;;3074
  1. ;;21,"57866-6650-02 ")
  1. ;;3075
  1. ;;21,"57866-6650-03 ")
  1. ;;3076
  1. ;;21,"58016-0004-00 ")
  1. ;;3077
  1. ;;21,"58016-0004-30 ")
  1. ;;3078
  1. ;;21,"58016-0004-60 ")
  1. ;;3079
  1. ;;21,"58016-0004-90 ")
  1. ;;3080
  1. ;;21,"58016-0009-00 ")
  1. ;;3081
  1. ;;21,"58016-0009-30 ")
  1. ;;3082
  1. ;;21,"58016-0009-60 ")
  1. ;;3083
  1. ;;21,"58016-0009-90 ")
  1. ;;3084
  1. ;;21,"58016-0010-00 ")
  1. ;;3085
  1. ;;21,"58016-0010-30 ")
  1. ;;3086
  1. ;;21,"58016-0010-60 ")
  1. ;;3087
  1. ;;21,"58016-0010-90 ")
  1. ;;3088
  1. ;;21,"58016-0011-00 ")
  1. ;;3089
  1. ;;21,"58016-0011-30 ")
  1. ;;3090
  1. ;;21,"58016-0011-60 ")
  1. ;;3091
  1. ;;21,"58016-0011-90 ")
  1. ;;3092
  1. ;;21,"58016-0024-00 ")
  1. ;;3093
  1. ;;21,"58016-0024-30 ")
  1. ;;3094
  1. ;;21,"58016-0024-60 ")
  1. ;;3095
  1. ;;21,"58016-0024-90 ")
  1. ;;3096
  1. ;;21,"58016-0027-00 ")
  1. ;;3097
  1. ;;21,"58016-0027-30 ")
  1. ;;3098
  1. ;;21,"58016-0027-60 ")
  1. ;;3099
  1. ;;21,"58016-0027-90 ")
  1. ;;3100
  1. ;;21,"58016-0030-00 ")
  1. ;;3101
  1. ;;21,"58016-0030-30 ")
  1. ;;3102
  1. ;;21,"58016-0030-60 ")
  1. ;;3103
  1. ;;21,"58016-0030-90 ")
  1. ;;3104
  1. ;;21,"58016-0031-00 ")
  1. ;;3105
  1. ;;21,"58016-0031-30 ")
  1. ;;3106
  1. ;;21,"58016-0031-60 ")
  1. ;;3107
  1. ;;21,"58016-0031-90 ")
  1. ;;3108
  1. ;;21,"58016-0100-30 ")
  1. ;;3109
  1. ;;21,"58016-0100-60 ")
  1. ;;3110
  1. ;;21,"58016-0100-90 ")
  1. ;;3111
  1. ;;21,"58016-0178-00 ")
  1. ;;3112
  1. ;;21,"58016-0178-02 ")
  1. ;;3113
  1. ;;21,"58016-0178-04 ")
  1. ;;3114
  1. ;;21,"58016-0178-05 ")
  1. ;;3115
  1. ;;21,"58016-0178-10 ")
  1. ;;3116
  1. ;;21,"58016-0178-12 ")
  1. ;;3117
  1. ;;21,"58016-0178-14 ")
  1. ;;3118
  1. ;;21,"58016-0178-15 ")
  1. ;;3119
  1. ;;21,"58016-0178-20 ")
  1. ;;3120
  1. ;;21,"58016-0178-30 ")
  1. ;;3121
  1. ;;21,"58016-0178-40 ")
  1. ;;3122
  1. ;;21,"58016-0178-50 ")
  1. ;;3123
  1. ;;21,"58016-0178-60 ")
  1. ;;3124
  1. ;;21,"58016-0178-89 ")
  1. ;;3125
  1. ;;21,"58016-0178-90 ")
  1. ;;3126
  1. ;;21,"58016-0178-99 ")
  1. ;;3127
  1. ;;21,"58016-0224-00 ")
  1. ;;3128
  1. ;;21,"58016-0224-02 ")
  1. ;;3129
  1. ;;21,"58016-0224-04 ")
  1. ;;3130
  1. ;;21,"58016-0224-05 ")
  1. ;;3131
  1. ;;21,"58016-0224-10 ")
  1. ;;3132
  1. ;;21,"58016-0224-12 ")
  1. ;;3133
  1. ;;21,"58016-0224-14 ")
  1. ;;3134
  1. ;;21,"58016-0224-15 ")
  1. ;;3135
  1. ;;21,"58016-0224-20 ")
  1. ;;3136
  1. ;;21,"58016-0224-30 ")
  1. ;;3137
  1. ;;21,"58016-0224-40 ")
  1. ;;3138
  1. ;;21,"58016-0224-50 ")
  1. ;;3139
  1. ;;21,"58016-0224-60 ")
  1. ;;3140
  1. ;;21,"58016-0224-89 ")
  1. ;;3141
  1. ;;21,"58016-0224-90 ")
  1. ;;3142
  1. ;;21,"58016-0224-99 ")
  1. ;;3143
  1. ;;21,"58016-0240-00 ")
  1. ;;3144
  1. ;;21,"58016-0240-02 ")
  1. ;;3145
  1. ;;21,"58016-0240-03 ")
  1. ;;3146
  1. ;;21,"58016-0240-30 ")
  1. ;;3147
  1. ;;21,"58016-0240-60 ")
  1. ;;3148
  1. ;;21,"58016-0240-90 ")
  1. ;;3149
  1. ;;21,"58016-0263-00 ")
  1. ;;3150
  1. ;;21,"58016-0263-02 ")
  1. ;;3151
  1. ;;21,"58016-0263-03 ")
  1. ;;3152
  1. ;;21,"58016-0263-10 ")
  1. ;;3153
  1. ;;21,"58016-0263-12 ")
  1. ;;3154
  1. ;;21,"58016-0263-15 ")
  1. ;;3155
  1. ;;21,"58016-0263-20 ")
  1. ;;3156
  1. ;;21,"58016-0263-28 ")
  1. ;;3157
  1. ;;21,"58016-0263-30 ")
  1. ;;3158
  1. ;;21,"58016-0263-60 ")
  1. ;;3159
  1. ;;21,"58016-0263-73 ")
  1. ;;3160
  1. ;;21,"58016-0263-89 ")
  1. ;;3161
  1. ;;21,"58016-0263-90 ")
  1. ;;3162
  1. ;;21,"58016-0282-00 ")
  1. ;;3163
  1. ;;21,"58016-0282-30 ")
  1. ;;3164
  1. ;;21,"58016-0282-60 ")
  1. ;;3165
  1. ;;21,"58016-0282-90 ")
  1. ;;3166
  1. ;;21,"58016-0336-00 ")
  1. ;;3167
  1. ;;21,"58016-0336-30 ")
  1. ;;3168
  1. ;;21,"58016-0336-60 ")
  1. ;;3169
  1. ;;21,"58016-0336-90 ")
  1. ;;3170
  1. ;;21,"58016-0366-00 ")
  1. ;;3171
  1. ;;21,"58016-0366-30 ")
  1. ;;3172
  1. ;;21,"58016-0366-60 ")
  1. ;;3173
  1. ;;21,"58016-0366-90 ")
  1. ;;3174
  1. ;;21,"58016-0485-00 ")
  1. ;;3175
  1. ;;21,"58016-0485-02 ")
  1. ;;3176
  1. ;;21,"58016-0485-10 ")
  1. ;;3177
  1. ;;21,"58016-0485-12 ")
  1. ;;3178
  1. ;;21,"58016-0485-15 ")
  1. ;;3179
  1. ;;21,"58016-0485-20 ")
  1. ;;3180
  1. ;;21,"58016-0485-25 ")
  1. ;;3181
  1. ;;21,"58016-0485-30 ")
  1. ;;3182
  1. ;;21,"58016-0485-40 ")
  1. ;;3183
  1. ;;21,"58016-0485-50 ")
  1. ;;3184
  1. ;;21,"58016-0485-60 ")
  1. ;;3185
  1. ;;21,"58016-0485-70 ")
  1. ;;3186
  1. ;;21,"58016-0485-80 ")
  1. ;;3187
  1. ;;21,"58016-0485-90 ")
  1. ;;3188
  1. ;;21,"58016-0491-00 ")
  1. ;;3189
  1. ;;21,"58016-0491-02 ")
  1. ;;3190
  1. ;;21,"58016-0491-15 ")
  1. ;;3191
  1. ;;21,"58016-0491-20 ")
  1. ;;3192
  1. ;;21,"58016-0491-25 ")
  1. ;;3193
  1. ;;21,"58016-0491-30 ")
  1. ;;3194
  1. ;;21,"58016-0491-40 ")
  1. ;;3195
  1. ;;21,"58016-0491-50 ")
  1. ;;3196
  1. ;;21,"58016-0491-60 ")
  1. ;;3197
  1. ;;21,"58016-0491-70 ")
  1. ;;3198
  1. ;;21,"58016-0491-80 ")
  1. ;;3199
  1. ;;21,"58016-0491-90 ")
  1. ;;3200
  1. ;;21,"58016-0502-00 ")
  1. ;;3201
  1. ;;21,"58016-0502-15 ")
  1. ;;3202
  1. ;;21,"58016-0502-28 ")
  1. ;;3203
  1. ;;21,"58016-0502-30 ")
  1. ;;3204
  1. ;;21,"58016-0502-50 ")
  1. ;;3205
  1. ;;21,"58016-0502-60 ")
  1. ;;3206
  1. ;;21,"58016-0508-00 ")
  1. ;;3207
  1. ;;21,"58016-0508-15 ")
  1. ;;3208
  1. ;;21,"58016-0508-30 ")
  1. ;;3209
  1. ;;21,"58016-0508-60 ")
  1. ;;3210
  1. ;;21,"58016-0519-00 ")
  1. ;;3211
  1. ;;21,"58016-0519-02 ")
  1. ;;3212
  1. ;;21,"58016-0519-12 ")
  1. ;;3213
  1. ;;21,"58016-0519-15 ")
  1. ;;3214
  1. ;;21,"58016-0519-20 ")
  1. ;;3215
  1. ;;21,"58016-0519-30 ")
  1. ;;3216
  1. ;;21,"58016-0519-40 ")
  1. ;;3217
  1. ;;21,"58016-0519-50 ")
  1. ;;3218
  1. ;;21,"58016-0519-60 ")
  1. ;;3219
  1. ;;21,"58016-0519-70 ")
  1. ;;3220
  1. ;;21,"58016-0519-80 ")
  1. ;;3221
  1. ;;21,"58016-0519-90 ")
  1. ;;3222
  1. ;;21,"58016-0519-99 ")
  1. ;;3223
  1. ;;21,"58016-0546-00 ")
  1. ;;3224
  1. ;;21,"58016-0546-30 ")
  1. ;;3225
  1. ;;21,"58016-0546-60 ")
  1. ;;3226
  1. ;;21,"58016-0546-90 ")
  1. ;;3227
  1. ;;21,"58016-0584-00 ")
  1. ;;3228
  1. ;;21,"58016-0584-02 ")
  1. ;;3229
  1. ;;21,"58016-0584-03 ")
  1. ;;3230
  1. ;;21,"58016-0584-10 ")
  1. ;;3231
  1. ;;21,"58016-0584-12 ")
  1. ;;3232
  1. ;;21,"58016-0584-15 ")
  1. ;;3233
  1. ;;21,"58016-0584-20 ")
  1. ;;3234
  1. ;;21,"58016-0584-25 ")
  1. ;;3235
  1. ;;21,"58016-0584-30 ")
  1. ;;3236
  1. ;;21,"58016-0584-40 ")
  1. ;;3237
  1. ;;21,"58016-0584-50 ")
  1. ;;3238
  1. ;;21,"58016-0584-60 ")
  1. ;;3239
  1. ;;21,"58016-0584-70 ")
  1. ;;3240
  1. ;;21,"58016-0584-73 ")
  1. ;;3241
  1. ;;21,"58016-0584-80 ")
  1. ;;3242
  1. ;;21,"58016-0584-89 ")
  1. ;;3243
  1. ;;21,"58016-0584-90 ")
  1. ;;3244
  1. ;;21,"58016-0593-00 ")
  1. ;;3245
  1. ;;21,"58016-0593-30 ")
  1. ;;3246
  1. ;;21,"58016-0593-60 ")
  1. ;;3247
  1. ;;21,"58016-0593-90 ")
  1. ;;3248
  1. ;;21,"58016-0598-00 ")
  1. ;;3249
  1. ;;21,"58016-0598-30 ")
  1. ;;3250
  1. ;;21,"58016-0598-60 ")
  1. ;;3251
  1. ;;21,"58016-0598-90 ")
  1. ;;3252
  1. ;;21,"58016-0599-00 ")
  1. ;;3253
  1. ;;21,"58016-0599-30 ")
  1. ;;3254
  1. ;;21,"58016-0599-60 ")
  1. ;;3255
  1. ;;21,"58016-0599-90 ")
  1. ;;3256
  1. ;;21,"58016-0600-00 ")
  1. ;;3257
  1. ;;21,"58016-0600-30 ")
  1. ;;3258
  1. ;;21,"58016-0600-60 ")
  1. ;;3259
  1. ;;21,"58016-0600-90 ")
  1. ;;3260
  1. ;;21,"58016-0615-00 ")
  1. ;;3261
  1. ;;21,"58016-0615-30 ")
  1. ;;3262
  1. ;;21,"58016-0615-60 ")
  1. ;;3263
  1. ;;21,"58016-0615-90 ")
  1. ;;3264
  1. ;;21,"58016-0616-00 ")
  1. ;;3265
  1. ;;21,"58016-0616-30 ")
  1. ;;3266
  1. ;;21,"58016-0616-60 ")
  1. ;;3267
  1. ;;21,"58016-0616-90 ")
  1. ;;3268
  1. ;;21,"58016-0624-00 ")
  1. ;;3269
  1. ;;21,"58016-0624-30 ")
  1. ;;3270
  1. ;;21,"58016-0624-60 ")
  1. ;;3271
  1. ;;21,"58016-0624-90 ")
  1. ;;3272
  1. ;;21,"58016-0661-00 ")
  1. ;;3273
  1. ;;21,"58016-0661-30 ")
  1. ;;3274
  1. ;;21,"58016-0661-60 ")
  1. ;;3275
  1. ;;21,"58016-0661-90 ")
  1. ;;3276
  1. ;;21,"58016-0663-00 ")
  1. ;;3277
  1. ;;21,"58016-0663-30 ")
  1. ;;3278
  1. ;;21,"58016-0663-60 ")
  1. ;;3279
  1. ;;21,"58016-0663-90 ")
  1. ;;3280
  1. ;;21,"58016-0664-00 ")
  1. ;;3281
  1. ;;21,"58016-0664-30 ")
  1. ;;3282
  1. ;;21,"58016-0664-60 ")
  1. ;;3283
  1. ;;21,"58016-0664-90 ")
  1. ;;3284
  1. ;;21,"58016-0668-00 ")
  1. ;;3285
  1. ;;21,"58016-0668-30 ")
  1. ;;3286
  1. ;;21,"58016-0668-60 ")
  1. ;;3287
  1. ;;21,"58016-0668-90 ")
  1. ;;3288
  1. ;;21,"58016-0671-00 ")
  1. ;;3289
  1. ;;21,"58016-0671-02 ")
  1. ;;3290
  1. ;;21,"58016-0671-03 ")
  1. ;;3291
  1. ;;21,"58016-0671-30 ")
  1. ;;3292
  1. ;;21,"58016-0671-60 ")
  1. ;;3293
  1. ;;21,"58016-0671-90 ")
  1. ;;3294
  1. ;;21,"58016-0701-00 ")
  1. ;;3295
  1. ;;21,"58016-0701-12 ")
  1. ;;3296
  1. ;;21,"58016-0701-15 ")
  1. ;;3297
  1. ;;21,"58016-0701-20 ")
  1. ;;3298
  1. ;;21,"58016-0701-30 ")
  1. ;;3299
  1. ;;21,"58016-0701-50 ")
  1. ;;3300
  1. ;;21,"58016-0701-60 ")
  1. ;;3301
  1. ;;21,"58016-0701-90 ")
  1. ;;3302
  1. ;;21,"58016-0704-00 ")
  1. ;;3303
  1. ;;21,"58016-0704-02 ")
  1. ;;3304
  1. ;;21,"58016-0704-03 ")
  1. ;;3305
  1. ;;21,"58016-0704-30 ")
  1. ;;3306
  1. ;;21,"58016-0704-60 ")
  1. ;;3307
  1. ;;21,"58016-0704-73 ")
  1. ;;3308
  1. ;;21,"58016-0704-89 ")
  1. ;;3309
  1. ;;21,"58016-0704-90 ")
  1. ;;3310
  1. ;;21,"58016-0710-00 ")
  1. ;;3311
  1. ;;21,"58016-0710-30 ")
  1. ;;3312
  1. ;;21,"58016-0710-60 ")
  1. ;;3313
  1. ;;21,"58016-0710-90 ")
  1. ;;3314
  1. ;;21,"58016-0710-99 ")
  1. ;;3315
  1. ;;21,"58016-0722-00 ")
  1. ;;3316
  1. ;;21,"58016-0722-02 ")
  1. ;;3317
  1. ;;21,"58016-0722-03 ")
  1. ;;3318
  1. ;;21,"58016-0722-20 ")
  1. ;;3319
  1. ;;21,"58016-0722-30 ")
  1. ;;3320
  1. ;;21,"58016-0722-40 ")
  1. ;;3321
  1. ;;21,"58016-0722-50 ")
  1. ;;3322
  1. ;;21,"58016-0722-60 ")
  1. ;;3323
  1. ;;21,"58016-0722-70 ")
  1. ;;3324
  1. ;;21,"58016-0722-73 ")
  1. ;;3325
  1. ;;21,"58016-0722-80 ")
  1. ;;3326
  1. ;;21,"58016-0722-89 ")
  1. ;;3327
  1. ;;21,"58016-0722-90 ")
  1. ;;3328
  1. ;;21,"58016-0723-00 ")
  1. ;;3329
  1. ;;21,"58016-0723-30 ")
  1. ;;3330
  1. ;;21,"58016-0723-60 ")
  1. ;;3331
  1. ;;21,"58016-0723-90 ")
  1. ;;3332
  1. ;;21,"58016-0731-00 ")
  1. ;;3333
  1. ;;21,"58016-0731-30 ")
  1. ;;3334
  1. ;;21,"58016-0731-60 ")
  1. ;;3335
  1. ;;21,"58016-0731-90 ")
  1. ;;3336
  1. ;;21,"58016-0732-00 ")
  1. ;;3337
  1. ;;21,"58016-0732-30 ")
  1. ;;3338
  1. ;;21,"58016-0732-60 ")
  1. ;;3339
  1. ;;21,"58016-0732-90 ")
  1. ;;3340
  1. ;;21,"58016-0735-00 ")
  1. ;;3341
  1. ;;21,"58016-0735-30 ")
  1. ;;3342
  1. ;;21,"58016-0735-60 ")
  1. ;;3343
  1. ;;21,"58016-0735-90 ")
  1. ;;3344
  1. ;;21,"58016-0742-00 ")
  1. ;;3345
  1. ;;21,"58016-0742-30 ")
  1. ;;3346
  1. ;;21,"58016-0742-60 ")
  1. ;;3347
  1. ;;21,"58016-0742-90 ")
  1. ;;3348
  1. ;;21,"58016-0749-00 ")
  1. ;;3349
  1. ;;21,"58016-0749-02 ")
  1. ;;3350
  1. ;;21,"58016-0749-30 ")
  1. ;;3351
  1. ;;21,"58016-0749-60 ")
  1. ;;3352
  1. ;;21,"58016-0749-90 ")
  1. ;;3353
  1. ;;21,"58016-0761-00 ")
  1. ;;3354