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

BGP8ZH10.m

Go to the documentation of this file.
  1. BGP8ZH10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 22, 2018;
  1. ;;18.0;IHS CLINICAL REPORTING;**1**;NOV 21, 2017;Build 62
  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,"53489-0146-05 ")
  1. ;;3022
  1. ;;21,"53489-0647-01 ")
  1. ;;3023
  1. ;;21,"53746-0271-01 ")
  1. ;;3024
  1. ;;21,"53746-0271-05 ")
  1. ;;3025
  1. ;;21,"53746-0272-01 ")
  1. ;;3026
  1. ;;21,"53746-0272-05 ")
  1. ;;3027
  1. ;;21,"54348-0575-02 ")
  1. ;;3028
  1. ;;21,"54348-0854-04 ")
  1. ;;3029
  1. ;;21,"54531-0100-01 ")
  1. ;;3030
  1. ;;21,"54569-0075-00 ")
  1. ;;3031
  1. ;;21,"54569-0075-01 ")
  1. ;;3032
  1. ;;21,"54569-0075-02 ")
  1. ;;3033
  1. ;;21,"54569-0075-03 ")
  1. ;;3034
  1. ;;21,"54569-0075-05 ")
  1. ;;3035
  1. ;;21,"54569-0075-07 ")
  1. ;;3036
  1. ;;21,"54569-0075-09 ")
  1. ;;3037
  1. ;;21,"54569-0118-00 ")
  1. ;;3038
  1. ;;21,"54569-0118-01 ")
  1. ;;3039
  1. ;;21,"54569-0118-02 ")
  1. ;;3040
  1. ;;21,"54569-0118-03 ")
  1. ;;3041
  1. ;;21,"54569-0118-05 ")
  1. ;;3042
  1. ;;21,"54569-0118-06 ")
  1. ;;3043
  1. ;;21,"54569-0118-08 ")
  1. ;;3044
  1. ;;21,"54569-0118-09 ")
  1. ;;3045
  1. ;;21,"54569-0126-00 ")
  1. ;;3046
  1. ;;21,"54569-0127-03 ")
  1. ;;3047
  1. ;;21,"54569-0132-00 ")
  1. ;;3048
  1. ;;21,"54569-0147-02 ")
  1. ;;3049
  1. ;;21,"54569-0304-02 ")
  1. ;;3050
  1. ;;21,"54569-0304-03 ")
  1. ;;3051
  1. ;;21,"54569-0304-04 ")
  1. ;;3052
  1. ;;21,"54569-0304-05 ")
  1. ;;3053
  1. ;;21,"54569-0304-08 ")
  1. ;;3054
  1. ;;21,"54569-0305-00 ")
  1. ;;3055
  1. ;;21,"54569-0305-01 ")
  1. ;;3056
  1. ;;21,"54569-0305-02 ")
  1. ;;3057
  1. ;;21,"54569-0305-03 ")
  1. ;;3058
  1. ;;21,"54569-0305-05 ")
  1. ;;3059
  1. ;;21,"54569-0305-06 ")
  1. ;;3060
  1. ;;21,"54569-0305-07 ")
  1. ;;3061
  1. ;;21,"54569-0305-08 ")
  1. ;;3062
  1. ;;21,"54569-0384-00 ")
  1. ;;3063
  1. ;;21,"54569-0384-01 ")
  1. ;;3064
  1. ;;21,"54569-0384-04 ")
  1. ;;3065
  1. ;;21,"54569-1023-00 ")
  1. ;;3066
  1. ;;21,"54569-1024-00 ")
  1. ;;3067
  1. ;;21,"54569-1025-00 ")
  1. ;;3068
  1. ;;21,"54569-1026-00 ")
  1. ;;3069
  1. ;;21,"54569-1377-00 ")
  1. ;;3070
  1. ;;21,"54569-1648-05 ")
  1. ;;3071
  1. ;;21,"54569-1648-07 ")
  1. ;;3072
  1. ;;21,"54569-1719-00 ")
  1. ;;3073
  1. ;;21,"54569-1719-02 ")
  1. ;;3074
  1. ;;21,"54569-1723-00 ")
  1. ;;3075
  1. ;;21,"54569-1723-01 ")
  1. ;;3076
  1. ;;21,"54569-1723-02 ")
  1. ;;3077
  1. ;;21,"54569-1723-05 ")
  1. ;;3078
  1. ;;21,"54569-1802-01 ")
  1. ;;3079
  1. ;;21,"54569-1840-00 ")
  1. ;;3080
  1. ;;21,"54569-1840-01 ")
  1. ;;3081
  1. ;;21,"54569-1889-00 ")
  1. ;;3082
  1. ;;21,"54569-1889-01 ")
  1. ;;3083
  1. ;;21,"54569-1889-04 ")
  1. ;;3084
  1. ;;21,"54569-2000-00 ")
  1. ;;3085
  1. ;;21,"54569-2187-00 ")
  1. ;;3086
  1. ;;21,"54569-2199-00 ")
  1. ;;3087
  1. ;;21,"54569-2199-01 ")
  1. ;;3088
  1. ;;21,"54569-2199-03 ")
  1. ;;3089
  1. ;;21,"54569-2279-03 ")
  1. ;;3090
  1. ;;21,"54569-2279-07 ")
  1. ;;3091
  1. ;;21,"54569-2281-00 ")
  1. ;;3092
  1. ;;21,"54569-2281-01 ")
  1. ;;3093
  1. ;;21,"54569-2433-00 ")
  1. ;;3094
  1. ;;21,"54569-2488-01 ")
  1. ;;3095
  1. ;;21,"54569-2502-00 ")
  1. ;;3096
  1. ;;21,"54569-2502-03 ")
  1. ;;3097
  1. ;;21,"54569-2508-00 ")
  1. ;;3098
  1. ;;21,"54569-2508-01 ")
  1. ;;3099
  1. ;;21,"54569-2508-03 ")
  1. ;;3100
  1. ;;21,"54569-2821-00 ")
  1. ;;3101
  1. ;;21,"54569-2928-00 ")
  1. ;;3102
  1. ;;21,"54569-2930-00 ")
  1. ;;3103
  1. ;;21,"54569-2931-00 ")
  1. ;;3104
  1. ;;21,"54569-2933-00 ")
  1. ;;3105
  1. ;;21,"54569-2935-00 ")
  1. ;;3106
  1. ;;21,"54569-2954-00 ")
  1. ;;3107
  1. ;;21,"54569-3057-00 ")
  1. ;;3108
  1. ;;21,"54569-3074-06 ")
  1. ;;3109
  1. ;;21,"54569-3074-08 ")
  1. ;;3110
  1. ;;21,"54569-3315-00 ")
  1. ;;3111
  1. ;;21,"54569-3324-03 ")
  1. ;;3112
  1. ;;21,"54569-3439-00 ")
  1. ;;3113
  1. ;;21,"54569-3439-01 ")
  1. ;;3114
  1. ;;21,"54569-3439-03 ")
  1. ;;3115
  1. ;;21,"54569-3439-04 ")
  1. ;;3116
  1. ;;21,"54569-3456-00 ")
  1. ;;3117
  1. ;;21,"54569-3456-01 ")
  1. ;;3118
  1. ;;21,"54569-3456-03 ")
  1. ;;3119
  1. ;;21,"54569-3456-04 ")
  1. ;;3120
  1. ;;21,"54569-3456-06 ")
  1. ;;3121
  1. ;;21,"54569-3477-00 ")
  1. ;;3122
  1. ;;21,"54569-3563-04 ")
  1. ;;3123
  1. ;;21,"54569-3563-05 ")
  1. ;;3124
  1. ;;21,"54569-3689-00 ")
  1. ;;3125
  1. ;;21,"54569-3689-01 ")
  1. ;;3126
  1. ;;21,"54569-3689-05 ")
  1. ;;3127
  1. ;;21,"54569-3896-00 ")
  1. ;;3128
  1. ;;21,"54569-3897-00 ")
  1. ;;3129
  1. ;;21,"54569-4003-00 ")
  1. ;;3130
  1. ;;21,"54569-4230-00 ")
  1. ;;3131
  1. ;;21,"54569-4231-00 ")
  1. ;;3132
  1. ;;21,"54569-4232-00 ")
  1. ;;3133
  1. ;;21,"54569-4270-00 ")
  1. ;;3134
  1. ;;21,"54569-4391-00 ")
  1. ;;3135
  1. ;;21,"54569-4391-01 ")
  1. ;;3136
  1. ;;21,"54569-4391-02 ")
  1. ;;3137
  1. ;;21,"54569-4391-04 ")
  1. ;;3138
  1. ;;21,"54569-4489-00 ")
  1. ;;3139
  1. ;;21,"54569-4489-02 ")
  1. ;;3140
  1. ;;21,"54569-4489-03 ")
  1. ;;3141
  1. ;;21,"54569-4497-00 ")
  1. ;;3142
  1. ;;21,"54569-4522-00 ")
  1. ;;3143
  1. ;;21,"54569-4522-01 ")
  1. ;;3144
  1. ;;21,"54569-4522-02 ")
  1. ;;3145
  1. ;;21,"54569-4567-00 ")
  1. ;;3146
  1. ;;21,"54569-4712-00 ")
  1. ;;3147
  1. ;;21,"54569-4713-00 ")
  1. ;;3148
  1. ;;21,"54569-4713-02 ")
  1. ;;3149
  1. ;;21,"54569-4737-00 ")
  1. ;;3150
  1. ;;21,"54569-4915-00 ")
  1. ;;3151
  1. ;;21,"54569-4915-01 ")
  1. ;;3152
  1. ;;21,"54569-4922-00 ")
  1. ;;3153
  1. ;;21,"54569-4922-01 ")
  1. ;;3154
  1. ;;21,"54569-4922-02 ")
  1. ;;3155
  1. ;;21,"54569-4953-00 ")
  1. ;;3156
  1. ;;21,"54569-5149-00 ")
  1. ;;3157
  1. ;;21,"54569-5182-00 ")
  1. ;;3158
  1. ;;21,"54569-5193-00 ")
  1. ;;3159
  1. ;;21,"54569-5214-00 ")
  1. ;;3160
  1. ;;21,"54569-5214-01 ")
  1. ;;3161
  1. ;;21,"54569-5386-00 ")
  1. ;;3162
  1. ;;21,"54569-5386-02 ")
  1. ;;3163
  1. ;;21,"54569-5386-03 ")
  1. ;;3164
  1. ;;21,"54569-5418-00 ")
  1. ;;3165
  1. ;;21,"54569-5448-00 ")
  1. ;;3166
  1. ;;21,"54569-5470-00 ")
  1. ;;3167
  1. ;;21,"54569-5470-01 ")
  1. ;;3168
  1. ;;21,"54569-5470-02 ")
  1. ;;3169
  1. ;;21,"54569-5470-03 ")
  1. ;;3170
  1. ;;21,"54569-5471-00 ")
  1. ;;3171
  1. ;;21,"54569-5471-01 ")
  1. ;;3172
  1. ;;21,"54569-5471-02 ")
  1. ;;3173
  1. ;;21,"54569-5471-03 ")
  1. ;;3174
  1. ;;21,"54569-5471-04 ")
  1. ;;3175
  1. ;;21,"54569-5487-00 ")
  1. ;;3176
  1. ;;21,"54569-5488-00 ")
  1. ;;3177
  1. ;;21,"54569-5553-00 ")
  1. ;;3178
  1. ;;21,"54569-5574-00 ")
  1. ;;3179
  1. ;;21,"54569-5574-01 ")
  1. ;;3180
  1. ;;21,"54569-5574-02 ")
  1. ;;3181
  1. ;;21,"54569-5574-03 ")
  1. ;;3182
  1. ;;21,"54569-5574-04 ")
  1. ;;3183
  1. ;;21,"54569-5574-05 ")
  1. ;;3184
  1. ;;21,"54569-5574-06 ")
  1. ;;3185
  1. ;;21,"54569-5584-00 ")
  1. ;;3186
  1. ;;21,"54569-5584-01 ")
  1. ;;3187
  1. ;;21,"54569-5584-02 ")
  1. ;;3188
  1. ;;21,"54569-5638-00 ")
  1. ;;3189
  1. ;;21,"54569-5638-01 ")
  1. ;;3190
  1. ;;21,"54569-5649-00 ")
  1. ;;3191
  1. ;;21,"54569-5650-00 ")
  1. ;;3192
  1. ;;21,"54569-5688-00 ")
  1. ;;3193
  1. ;;21,"54569-5689-00 ")
  1. ;;3194
  1. ;;21,"54569-5690-00 ")
  1. ;;3195
  1. ;;21,"54569-5698-00 ")
  1. ;;3196
  1. ;;21,"54569-5698-01 ")
  1. ;;3197
  1. ;;21,"54569-5698-02 ")
  1. ;;3198
  1. ;;21,"54569-5720-00 ")
  1. ;;3199
  1. ;;21,"54569-5721-00 ")
  1. ;;3200
  1. ;;21,"54569-5723-00 ")
  1. ;;3201
  1. ;;21,"54569-5724-00 ")
  1. ;;3202
  1. ;;21,"54569-5725-00 ")
  1. ;;3203
  1. ;;21,"54569-5727-00 ")
  1. ;;3204
  1. ;;21,"54569-5754-00 ")
  1. ;;3205
  1. ;;21,"54569-5755-00 ")
  1. ;;3206
  1. ;;21,"54569-5756-00 ")
  1. ;;3207
  1. ;;21,"54569-5774-00 ")
  1. ;;3208
  1. ;;21,"54569-5774-01 ")
  1. ;;3209
  1. ;;21,"54569-5774-02 ")
  1. ;;3210
  1. ;;21,"54569-5774-03 ")
  1. ;;3211
  1. ;;21,"54569-5784-00 ")
  1. ;;3212
  1. ;;21,"54569-5785-00 ")
  1. ;;3213
  1. ;;21,"54569-5804-00 ")
  1. ;;3214
  1. ;;21,"54569-5806-00 ")
  1. ;;3215
  1. ;;21,"54569-5807-00 ")
  1. ;;3216
  1. ;;21,"54569-5808-00 ")
  1. ;;3217
  1. ;;21,"54569-5809-00 ")
  1. ;;3218
  1. ;;21,"54569-5810-00 ")
  1. ;;3219
  1. ;;21,"54569-5813-00 ")
  1. ;;3220
  1. ;;21,"54569-5829-00 ")
  1. ;;3221
  1. ;;21,"54569-5831-00 ")
  1. ;;3222
  1. ;;21,"54569-5899-00 ")
  1. ;;3223
  1. ;;21,"54569-5917-00 ")
  1. ;;3224
  1. ;;21,"54569-5918-00 ")
  1. ;;3225
  1. ;;21,"54569-5921-01 ")
  1. ;;3226
  1. ;;21,"54569-5921-02 ")
  1. ;;3227
  1. ;;21,"54569-5921-03 ")
  1. ;;3228
  1. ;;21,"54569-6037-00 ")
  1. ;;3229
  1. ;;21,"54569-6043-00 ")
  1. ;;3230
  1. ;;21,"54569-6083-00 ")
  1. ;;3231
  1. ;;21,"54569-6084-00 ")
  1. ;;3232
  1. ;;21,"54569-6195-00 ")
  1. ;;3233
  1. ;;21,"54569-6204-00 ")
  1. ;;3234
  1. ;;21,"54569-6237-00 ")
  1. ;;3235
  1. ;;21,"54569-6237-01 ")
  1. ;;3236
  1. ;;21,"54569-6237-02 ")
  1. ;;3237
  1. ;;21,"54569-6237-03 ")
  1. ;;3238
  1. ;;21,"54569-6238-00 ")
  1. ;;3239
  1. ;;21,"54569-6238-01 ")
  1. ;;3240
  1. ;;21,"54569-6241-00 ")
  1. ;;3241
  1. ;;21,"54569-6241-01 ")
  1. ;;3242
  1. ;;21,"54569-8021-00 ")
  1. ;;3243
  1. ;;21,"54799-0533-60 ")
  1. ;;3244
  1. ;;21,"54799-0534-66 ")
  1. ;;3245
  1. ;;21,"54799-0535-60 ")
  1. ;;3246
  1. ;;21,"54807-0251-20 ")
  1. ;;3247
  1. ;;21,"54868-0018-05 ")
  1. ;;3248
  1. ;;21,"54868-0021-00 ")
  1. ;;3249
  1. ;;21,"54868-0021-01 ")
  1. ;;3250
  1. ;;21,"54868-0021-02 ")
  1. ;;3251
  1. ;;21,"54868-0021-04 ")
  1. ;;3252
  1. ;;21,"54868-0021-05 ")
  1. ;;3253
  1. ;;21,"54868-0021-06 ")
  1. ;;3254
  1. ;;21,"54868-0021-07 ")
  1. ;;3255
  1. ;;21,"54868-0021-09 ")
  1. ;;3256
  1. ;;21,"54868-0023-01 ")
  1. ;;3257
  1. ;;21,"54868-0023-02 ")
  1. ;;3258
  1. ;;21,"54868-0023-03 ")
  1. ;;3259
  1. ;;21,"54868-0023-05 ")
  1. ;;3260
  1. ;;21,"54868-0023-06 ")
  1. ;;3261
  1. ;;21,"54868-0023-08 ")
  1. ;;3262
  1. ;;21,"54868-0023-09 ")
  1. ;;3263
  1. ;;21,"54868-0023-14 ")
  1. ;;3264
  1. ;;21,"54868-0153-01 ")
  1. ;;3265
  1. ;;21,"54868-0153-03 ")
  1. ;;3266
  1. ;;21,"54868-0153-05 ")
  1. ;;3267
  1. ;;21,"54868-0153-09 ")
  1. ;;3268
  1. ;;21,"54868-0154-00 ")
  1. ;;3269
  1. ;;21,"54868-0154-01 ")
  1. ;;3270
  1. ;;21,"54868-0154-02 ")
  1. ;;3271
  1. ;;21,"54868-0154-03 ")
  1. ;;3272
  1. ;;21,"54868-0154-04 ")
  1. ;;3273
  1. ;;21,"54868-0154-06 ")
  1. ;;3274
  1. ;;21,"54868-0154-07 ")
  1. ;;3275
  1. ;;21,"54868-0154-08 ")
  1. ;;3276
  1. ;;21,"54868-0154-09 ")
  1. ;;3277
  1. ;;21,"54868-0191-01 ")
  1. ;;3278
  1. ;;21,"54868-0191-02 ")
  1. ;;3279
  1. ;;21,"54868-0191-04 ")
  1. ;;3280
  1. ;;21,"54868-0191-05 ")
  1. ;;3281
  1. ;;21,"54868-0191-06 ")
  1. ;;3282
  1. ;;21,"54868-0286-00 ")
  1. ;;3283
  1. ;;21,"54868-0337-00 ")
  1. ;;3284
  1. ;;21,"54868-0337-01 ")
  1. ;;3285
  1. ;;21,"54868-0337-03 ")
  1. ;;3286
  1. ;;21,"54868-0425-00 ")
  1. ;;3287
  1. ;;21,"54868-0538-01 ")
  1. ;;3288
  1. ;;21,"54868-0538-02 ")
  1. ;;3289
  1. ;;21,"54868-0559-00 ")
  1. ;;3290
  1. ;;21,"54868-0654-00 ")
  1. ;;3291
  1. ;;21,"54868-0737-01 ")
  1. ;;3292
  1. ;;21,"54868-0840-00 ")
  1. ;;3293
  1. ;;21,"54868-0840-01 ")
  1. ;;3294
  1. ;;21,"54868-0840-02 ")
  1. ;;3295
  1. ;;21,"54868-0840-03 ")
  1. ;;3296
  1. ;;21,"54868-0840-04 ")
  1. ;;3297
  1. ;;21,"54868-0937-00 ")
  1. ;;3298
  1. ;;21,"54868-0937-01 ")
  1. ;;3299
  1. ;;21,"54868-0937-02 ")
  1. ;;3300
  1. ;;21,"54868-0971-00 ")
  1. ;;3301
  1. ;;21,"54868-0971-01 ")
  1. ;;3302
  1. ;;21,"54868-1171-00 ")
  1. ;;3303
  1. ;;21,"54868-1171-01 ")
  1. ;;3304
  1. ;;21,"54868-1171-02 ")
  1. ;;3305
  1. ;;21,"54868-1171-03 ")
  1. ;;3306
  1. ;;21,"54868-1173-00 ")
  1. ;;3307
  1. ;;21,"54868-1173-01 ")
  1. ;;3308
  1. ;;21,"54868-1173-02 ")
  1. ;;3309
  1. ;;21,"54868-1173-05 ")
  1. ;;3310
  1. ;;21,"54868-1380-00 ")
  1. ;;3311
  1. ;;21,"54868-1380-01 ")
  1. ;;3312
  1. ;;21,"54868-1380-02 ")
  1. ;;3313
  1. ;;21,"54868-1380-03 ")
  1. ;;3314
  1. ;;21,"54868-1385-01 ")
  1. ;;3315
  1. ;;21,"54868-1385-02 ")
  1. ;;3316
  1. ;;21,"54868-1386-01 ")
  1. ;;3317
  1. ;;21,"54868-1386-03 ")
  1. ;;3318
  1. ;;21,"54868-1386-04 ")
  1. ;;3319
  1. ;;21,"54868-1386-05 ")
  1. ;;3320
  1. ;;21,"54868-1387-00 ")
  1. ;;3321
  1. ;;21,"54868-1387-01 ")
  1. ;;3322
  1. ;;21,"54868-1387-02 ")
  1. ;;3323
  1. ;;21,"54868-1392-00 ")
  1. ;;3324
  1. ;;21,"54868-1616-02 ")
  1. ;;3325
  1. ;;21,"54868-1780-01 ")
  1. ;;3326
  1. ;;21,"54868-1780-02 ")
  1. ;;3327
  1. ;;21,"54868-1857-00 ")
  1. ;;3328
  1. ;;21,"54868-1857-01 ")
  1. ;;3329
  1. ;;21,"54868-1857-02 ")
  1. ;;3330
  1. ;;21,"54868-1857-05 ")
  1. ;;3331
  1. ;;21,"54868-1857-06 ")
  1. ;;3332
  1. ;;21,"54868-1857-07 ")
  1. ;;3333
  1. ;;21,"54868-2390-00 ")
  1. ;;3334
  1. ;;21,"54868-2390-01 ")
  1. ;;3335
  1. ;;21,"54868-2391-00 ")
  1. ;;3336
  1. ;;21,"54868-2391-01 ")
  1. ;;3337
  1. ;;21,"54868-2391-02 ")
  1. ;;3338
  1. ;;21,"54868-2391-03 ")
  1. ;;3339
  1. ;;21,"54868-2391-04 ")
  1. ;;3340
  1. ;;21,"54868-2488-01 ")
  1. ;;3341
  1. ;;21,"54868-2840-00 ")
  1. ;;3342
  1. ;;21,"54868-2840-01 ")
  1. ;;3343
  1. ;;21,"54868-2910-00 ")
  1. ;;3344
  1. ;;21,"54868-3105-00 ")
  1. ;;3345
  1. ;;21,"54868-3105-02 ")
  1. ;;3346
  1. ;;21,"54868-3105-03 ")
  1. ;;3347
  1. ;;21,"54868-3107-01 ")
  1. ;;3348
  1. ;;21,"54868-3107-02 ")
  1. ;;3349
  1. ;;21,"54868-3107-03 ")
  1. ;;3350
  1. ;;21,"54868-3107-06 ")
  1. ;;3351
  1. ;;21,"54868-3107-07 ")
  1. ;;3352
  1. ;;21,"54868-3107-09 ")
  1. ;;3353
  1. ;;21,"54868-3109-00 ")
  1. ;;3354