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