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