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

BGPM5AIX.m

Go to the documentation of this file.
BGPM5AIX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON JUL 15, 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,"66336061290 ")
 ;;3087
 ;;21,"66336071930 ")
 ;;3088
 ;;21,"66336071960 ")
 ;;3089
 ;;21,"66336071990 ")
 ;;3090
 ;;21,"66336081130 ")
 ;;3091
 ;;21,"66336081160 ")
 ;;3092
 ;;21,"66336081190 ")
 ;;3093
 ;;21,"66336091430 ")
 ;;3094
 ;;21,"66336091460 ")
 ;;3095
 ;;21,"66336091490 ")
 ;;3096
 ;;21,"66467333001 ")
 ;;3097
 ;;21,"66484042000 ")
 ;;3098
 ;;21,"66484042001 ")
 ;;3099
 ;;21,"66484042100 ")
 ;;3100
 ;;21,"66484042101 ")
 ;;3101
 ;;21,"66484042200 ")
 ;;3102
 ;;21,"66484042201 ")
 ;;3103
 ;;21,"66860009002 ")
 ;;3104
 ;;21,"67046003030 ")
 ;;3105
 ;;21,"67046003130 ")
 ;;3106
 ;;21,"67046047430 ")
 ;;3107
 ;;21,"67046047530 ")
 ;;3108
 ;;21,"67046047630 ")
 ;;3109
 ;;21,"67046047730 ")
 ;;3110
 ;;21,"67209039110 ")
 ;;3111
 ;;21,"67209039150 ")
 ;;3112
 ;;21,"67209039210 ")
 ;;3113
 ;;21,"67209039250 ")
 ;;3114
 ;;21,"67209039310 ")
 ;;3115
 ;;21,"67209039350 ")
 ;;3116
 ;;21,"67228001603 ")
 ;;3117
 ;;21,"67228001606 ")
 ;;3118
 ;;21,"67228007403 ")
 ;;3119
 ;;21,"67228007406 ")
 ;;3120
 ;;21,"67228007503 ")
 ;;3121
 ;;21,"67228007506 ")
 ;;3122
 ;;21,"67228009503 ")
 ;;3123
 ;;21,"67228009506 ")
 ;;3124
 ;;21,"67228028303 ")
 ;;3125
 ;;21,"67228028306 ")
 ;;3126
 ;;21,"67228028403 ")
 ;;3127
 ;;21,"67228028406 ")
 ;;3128
 ;;21,"67228028503 ")
 ;;3129
 ;;21,"67228028506 ")
 ;;3130
 ;;21,"67228028903 ")
 ;;3131
 ;;21,"67228028906 ")
 ;;3132
 ;;21,"67228031103 ")
 ;;3133
 ;;21,"67228031106 ")
 ;;3134
 ;;21,"67228034403 ")
 ;;3135
 ;;21,"67228034406 ")
 ;;3136
 ;;21,"67228036603 ")
 ;;3137
 ;;21,"67228036606 ")
 ;;3138
 ;;21,"67228037503 ")
 ;;3139
 ;;21,"67228037506 ")
 ;;3140
 ;;21,"67228041403 ")
 ;;3141
 ;;21,"67228041406 ")
 ;;3142
 ;;21,"67228042103 ")
 ;;3143
 ;;21,"67228042106 ")
 ;;3144
 ;;21,"67228043603 ")
 ;;3145
 ;;21,"67228043606 ")
 ;;3146
 ;;21,"67253042009 ")
 ;;3147
 ;;21,"67253042010 ")
 ;;3148
 ;;21,"67253042011 ")
 ;;3149
 ;;21,"67253042109 ")
 ;;3150
 ;;21,"67253042110 ")
 ;;3151
 ;;21,"67253042111 ")
 ;;3152
 ;;21,"67253042209 ")
 ;;3153
 ;;21,"67253042210 ")
 ;;3154
 ;;21,"67253042211 ")
 ;;3155
 ;;21,"67263039901 ")
 ;;3156
 ;;21,"67296012101 ")
 ;;3157
 ;;21,"67296022901 ")
 ;;3158
 ;;21,"67296025901 ")
 ;;3159
 ;;21,"67544004330 ")
 ;;3160
 ;;21,"67544004332 ")
 ;;3161
 ;;21,"67544004353 ")
 ;;3162
 ;;21,"67544004360 ")
 ;;3163
 ;;21,"67544004380 ")
 ;;3164
 ;;21,"67544007630 ")
 ;;3165
 ;;21,"67544007631 ")
 ;;3166
 ;;21,"67544007632 ")
 ;;3167
 ;;21,"67544007645 ")
 ;;3168
 ;;21,"67544007653 ")
 ;;3169
 ;;21,"67544007660 ")
 ;;3170
 ;;21,"67544007670 ")
 ;;3171
 ;;21,"67544007673 ")
 ;;3172
 ;;21,"67544007680 ")
 ;;3173
 ;;21,"67544007686 ")
 ;;3174
 ;;21,"67544007692 ")
 ;;3175
 ;;21,"67544007694 ")
 ;;3176
 ;;21,"67544008730 ")
 ;;3177
 ;;21,"67544008731 ")
 ;;3178
 ;;21,"67544008732 ")
 ;;3179
 ;;21,"67544008745 ")
 ;;3180
 ;;21,"67544008753 ")
 ;;3181
 ;;21,"67544008760 ")
 ;;3182
 ;;21,"67544008770 ")
 ;;3183
 ;;21,"67544008773 ")
 ;;3184
 ;;21,"67544008780 ")
 ;;3185
 ;;21,"67544008792 ")
 ;;3186
 ;;21,"67544012230 ")
 ;;3187
 ;;21,"67544012231 ")
 ;;3188
 ;;21,"67544012232 ")
 ;;3189
 ;;21,"67544012245 ")
 ;;3190
 ;;21,"67544012253 ")
 ;;3191
 ;;21,"67544012260 ")
 ;;3192
 ;;21,"67544012270 ")
 ;;3193
 ;;21,"67544012273 ")
 ;;3194
 ;;21,"67544012280 ")
 ;;3195
 ;;21,"67544012286 ")
 ;;3196
 ;;21,"67544012292 ")
 ;;3197
 ;;21,"67544013030 ")
 ;;3198
 ;;21,"67544013045 ")
 ;;3199
 ;;21,"67544013053 ")
 ;;3200
 ;;21,"67544013060 ")
 ;;3201
 ;;21,"67544013070 ")
 ;;3202
 ;;21,"67544013080 ")
 ;;3203
 ;;21,"67544014330 ")
 ;;3204
 ;;21,"67544014331 ")
 ;;3205
 ;;21,"67544014353 ")
 ;;3206
 ;;21,"67544014360 ")
 ;;3207
 ;;21,"67544014370 ")
 ;;3208
 ;;21,"67544014380 ")
 ;;3209
 ;;21,"67544016130 ")
 ;;3210
 ;;21,"67544016131 ")
 ;;3211
 ;;21,"67544016132 ")
 ;;3212
 ;;21,"67544016145 ")
 ;;3213
 ;;21,"67544016160 ")
 ;;3214
 ;;21,"67544016180 ")
 ;;3215
 ;;21,"67544020830 ")
 ;;3216
 ;;21,"67544020831 ")
 ;;3217
 ;;21,"67544020853 ")
 ;;3218
 ;;21,"67544020860 ")
 ;;3219
 ;;21,"67544020880 ")
 ;;3220
 ;;21,"67544020882 ")
 ;;3221
 ;;21,"67544020887 ")
 ;;3222
 ;;21,"67544024030 ")
 ;;3223
 ;;21,"67544024031 ")
 ;;3224
 ;;21,"67544024032 ")
 ;;3225
 ;;21,"67544024045 ")
 ;;3226
 ;;21,"67544024060 ")
 ;;3227
 ;;21,"67544024080 ")
 ;;3228
 ;;21,"67544027230 ")
 ;;3229
 ;;21,"67544027231 ")
 ;;3230
 ;;21,"67544027232 ")
 ;;3231
 ;;21,"67544027245 ")
 ;;3232
 ;;21,"67544027253 ")
 ;;3233
 ;;21,"67544027260 ")
 ;;3234
 ;;21,"67544027270 ")
 ;;3235
 ;;21,"67544027273 ")
 ;;3236
 ;;21,"67544027280 ")
 ;;3237
 ;;21,"67544027286 ")
 ;;3238
 ;;21,"67544027292 ")
 ;;3239
 ;;21,"67544027294 ")
 ;;3240
 ;;21,"67544028230 ")
 ;;3241
 ;;21,"67544028245 ")
 ;;3242
 ;;21,"67544028299 ")
 ;;3243
 ;;21,"67544030530 ")
 ;;3244
 ;;21,"67544030553 ")
 ;;3245
 ;;21,"67544030560 ")
 ;;3246
 ;;21,"67544032615 ")
 ;;3247
 ;;21,"67544032630 ")
 ;;3248
 ;;21,"67544032645 ")
 ;;3249
 ;;21,"67544032660 ")
 ;;3250
 ;;21,"67544032670 ")
 ;;3251
 ;;21,"67544032673 ")
 ;;3252
 ;;21,"67544032680 ")
 ;;3253
 ;;21,"67544033260 ")
 ;;3254
 ;;21,"67544037530 ")
 ;;3255
 ;;21,"67544037545 ")
 ;;3256
 ;;21,"67544037560 ")
 ;;3257
 ;;21,"67544037565 ")
 ;;3258
 ;;21,"67544037580 ")
 ;;3259
 ;;21,"67544037630 ")
 ;;3260
 ;;21,"67544037645 ")
 ;;3261
 ;;21,"67544037660 ")
 ;;3262
 ;;21,"67544037670 ")
 ;;3263
 ;;21,"67544037673 ")
 ;;3264
 ;;21,"67544037680 ")
 ;;3265
 ;;21,"67544037860 ")
 ;;3266
 ;;21,"67544038730 ")
 ;;3267
 ;;21,"67544038731 ")
 ;;3268
 ;;21,"67544038732 ")
 ;;3269
 ;;21,"67544038753 ")
 ;;3270
 ;;21,"67544038760 ")
 ;;3271
 ;;21,"67544038780 ")
 ;;3272
 ;;21,"67544049145 ")
 ;;3273
 ;;21,"67544049153 ")
 ;;3274
 ;;21,"67544049160 ")
 ;;3275
 ;;21,"67544049180 ")
 ;;3276
 ;;21,"67544049182 ")
 ;;3277
 ;;21,"67544049199 ")
 ;;3278
 ;;21,"67544056531 ")
 ;;3279
 ;;21,"67544056560 ")
 ;;3280
 ;;21,"67544056730 ")
 ;;3281
 ;;21,"67544056731 ")
 ;;3282
 ;;21,"67544056732 ")
 ;;3283
 ;;21,"67544056753 ")
 ;;3284
 ;;21,"67544056760 ")
 ;;3285
 ;;21,"67544056780 ")
 ;;3286
 ;;21,"67544057382 ")
 ;;3287
 ;;21,"67544057399 ")
 ;;3288
 ;;21,"67544062731 ")
 ;;3289
 ;;21,"67544062753 ")
 ;;3290
 ;;21,"67544062760 ")
 ;;3291
 ;;21,"67544062780 ")
 ;;3292
 ;;21,"67544077360 ")
 ;;3293
 ;;21,"67544078632 ")
 ;;3294
 ;;21,"67544080231 ")
 ;;3295
 ;;21,"67544080232 ")
 ;;3296
 ;;21,"67544091108 ")
 ;;3297
 ;;21,"67544091130 ")
 ;;3298
 ;;21,"67544091145 ")
 ;;3299
 ;;21,"67544091153 ")
 ;;3300
 ;;21,"67544091160 ")
 ;;3301
 ;;21,"67544091170 ")
 ;;3302
 ;;21,"67544091173 ")
 ;;3303
 ;;21,"67544091180 ")
 ;;3304
 ;;21,"67544091192 ")
 ;;3305
 ;;21,"67544091194 ")
 ;;3306
 ;;21,"67544091198 ")
 ;;3307
 ;;21,"67544092932 ")
 ;;3308
 ;;21,"67651000101 ")
 ;;3309
 ;;21,"67651000103 ")
 ;;3310
 ;;21,"67651000105 ")
 ;;3311
 ;;21,"67651000201 ")
 ;;3312
 ;;21,"67651000203 ")
 ;;3313
 ;;21,"67651000205 ")
 ;;3314
 ;;21,"67651000301 ")
 ;;3315
 ;;21,"67651000303 ")
 ;;3316
 ;;21,"67801030430 ")
 ;;3317
 ;;21,"67801030435 ")
 ;;3318
 ;;21,"67801031503 ")
 ;;3319
 ;;21,"67801031530 ")
 ;;3320
 ;;21,"67801031603 ")
 ;;3321
 ;;21,"67801031635 ")
 ;;3322
 ;;21,"67801040409 ")
 ;;3323
 ;;21,"67801041503 ")
 ;;3324
 ;;21,"68071002430 ")
 ;;3325
 ;;21,"68071002460 ")
 ;;3326
 ;;21,"68071004404 ")
 ;;3327
 ;;21,"68071007830 ")
 ;;3328
 ;;21,"68071012930 ")
 ;;3329
 ;;21,"68071013230 ")
 ;;3330
 ;;21,"68071013730 ")
 ;;3331
 ;;21,"68071025090 ")
 ;;3332
 ;;21,"68071025130 ")
 ;;3333
 ;;21,"68071025190 ")
 ;;3334
 ;;21,"68071028890 ")
 ;;3335
 ;;21,"68071036860 ")
 ;;3336
 ;;21,"68071046960 ")
 ;;3337
 ;;21,"68071071992 ")
 ;;3338
 ;;21,"68084020901 ")
 ;;3339
 ;;21,"68084020910 ")
 ;;3340
 ;;21,"68084020911 ")
 ;;3341
 ;;21,"68084021001 ")
 ;;3342
 ;;21,"68084021010 ")
 ;;3343
 ;;21,"68084021011 ")
 ;;3344
 ;;21,"68084021101 ")
 ;;3345
 ;;21,"68084021110 ")
 ;;3346
 ;;21,"68084021111 ")
 ;;3347
 ;;21,"68084021201 ")
 ;;3348
 ;;21,"68084021210 ")
 ;;3349
 ;;21,"68084021211 ")
 ;;3350
 ;;21,"68084045601 ")
 ;;3351
 ;;21,"68084045611 ")
 ;;3352
 ;;21,"68084045701 ")
 ;;3353
 ;;21,"68084045711 ")
 ;;3354
 ;;21,"68115004015 ")
 ;;3355
 ;;21,"68115023890 ")
 ;;3356
 ;;21,"68115023990 ")
 ;;3357
 ;;21,"68115031030 ")
 ;;3358
 ;;21,"68115072730 ")
 ;;3359
 ;;21,"68382002201 ")
 ;;3360
 ;;21,"68382002210 ")
 ;;3361
 ;;21,"68382002216 ")
 ;;3362
 ;;21,"68382002224 ")
 ;;3363
 ;;21,"68382002240 ")
 ;;3364
 ;;21,"68382002301 ")
 ;;3365
 ;;21,"68382002302 ")
 ;;3366
 ;;21,"68382002310 ")
 ;;3367
 ;;21,"68382002316 ")
 ;;3368
 ;;21,"68382002324 ")
 ;;3369
 ;;21,"68382002340 ")
 ;;3370
 ;;21,"68382002401 ")
 ;;3371
 ;;21,"68382002410 ")
 ;;3372
 ;;21,"68382002416 ")
 ;;3373
 ;;21,"68382002440 ")
 ;;3374
 ;;21,"68387053830 ")
 ;;3375
 ;;21,"68387053930 ")
 ;;3376
 ;;21,"68645019059 ")
 ;;3377
 ;;21,"68645019159 ")
 ;;3378
 ;;21,"68788016603 ")
 ;;3379
 ;;21,"68788016606 ")
 ;;3380
 ;;21,"68788016609 ")
 ;;3381
 ;;21,"68788035603 ")
 ;;3382
 ;;21,"68788035606 ")
 ;;3383
 ;;21,"68788035609 ")
 ;;3384
 ;;21,"68788042103 ")
 ;;3385
 ;;21,"68788042106 ")
 ;;3386
 ;;21,"68788042109 ")
 ;;3387
 ;;21,"68788045603 ")
 ;;3388
 ;;21,"68788045606 ")
 ;;3389
 ;;21,"68788045609 ")
 ;;3390
 ;;21,"68788047703 ")
 ;;3391
 ;;21,"68788047706 ")
 ;;3392
 ;;21,"68788047709 ")
 ;;3393
 ;;21,"68788052903 ")
 ;;3394
 ;;21,"68788053003 ")
 ;;3395
 ;;21,"68788053603 ")
 ;;3396
 ;;21,"68788053606 ")
 ;;3397
 ;;21,"68788053609 ")
 ;;3398
 ;;21,"68788057403 ")
 ;;3399
 ;;21,"68788057406 ")
 ;;3400
 ;;21,"68788057409 ")
 ;;3401
 ;;21,"68788076603 ")
 ;;3402
 ;;21,"68788076606 ")
 ;;3403
 ;;21,"68788076609 ")
 ;;3404
 ;;21,"68788080103 ")
 ;;3405
 ;;21,"68788080106 ")
 ;;3406
 ;;21,"68788080109 ")
 ;;3407
 ;;21,"68788094403 ")
 ;;3408
 ;;21,"68788094406 ")
 ;;3409
 ;;21,"68788094409 ")
 ;;3410
 ;;21,"68788107803 ")
 ;;3411
 ;;21,"68788150603 ")
 ;;3412
 ;;21,"68788150606 ")
 ;;3413
 ;;21,"68788150609 ")
 ;;3414
 ;;21,"68788150703 ")
 ;;3415
 ;;21,"68788150706 ")
 ;;3416
 ;;21,"68788150709 ")
 ;;3417
 ;;21,"68788904101 ")
 ;;3418
 ;;21,"68788904103 ")
 ;;3419
 ;;21,"68788904106 ")
 ;;3420
 ;;21,"68788904108 ")
 ;;3421
 ;;21,"68788904109 ")
 ;;3422
 ;;21,"68788904201 ")
 ;;3423
 ;;21,"68788904203 ")
 ;;3424
 ;;21,"68788904206 ")
 ;;3425
 ;;21,"68788904208 ")
 ;;3426
 ;;21,"68788904209 ")
 ;;3427
 ;;21,"68788904703 ")
 ;;3428
 ;;21,"68788904706 ")
 ;;3429
 ;;21,"68788904708 ")
 ;;3430
 ;;21,"68788904709 ")
 ;;3431
 ;;21,"68788904803 ")
 ;;3432
 ;;21,"68788904806 ")
 ;;3433
 ;;21,"68788904808 ")
 ;;3434
 ;;21,"68788904809 ")
 ;;3435
 ;;21,"68788904903 ")
 ;;3436
 ;;21,"68788904906 ")
 ;;3437
 ;;21,"68788904908 ")
 ;;3438