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

BGPM5AQC.m

Go to the documentation of this file.
BGPM5AQC ;IHS/MSC/SAT-CREATED BY ^ATXSTX ON AUG 16, 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,"59762227001 ")
 ;;3115
 ;;21,"59762227003 ")
 ;;3116
 ;;21,"59762227007 ")
 ;;3117
 ;;21,"59762227101 ")
 ;;3118
 ;;21,"59762227103 ")
 ;;3119
 ;;21,"59762227107 ")
 ;;3120
 ;;21,"59762227201 ")
 ;;3121
 ;;21,"59762227203 ")
 ;;3122
 ;;21,"59762227207 ")
 ;;3123
 ;;21,"59762227301 ")
 ;;3124
 ;;21,"59762227303 ")
 ;;3125
 ;;21,"59762227307 ")
 ;;3126
 ;;21,"59762227401 ")
 ;;3127
 ;;21,"59762227403 ")
 ;;3128
 ;;21,"59762227407 ")
 ;;3129
 ;;21,"59762227501 ")
 ;;3130
 ;;21,"59762227503 ")
 ;;3131
 ;;21,"59762227507 ")
 ;;3132
 ;;21,"59762329301 ")
 ;;3133
 ;;21,"59762329302 ")
 ;;3134
 ;;21,"59762329303 ")
 ;;3135
 ;;21,"59762329304 ")
 ;;3136
 ;;21,"59762329401 ")
 ;;3137
 ;;21,"59762329402 ")
 ;;3138
 ;;21,"59762329403 ")
 ;;3139
 ;;21,"59762329404 ")
 ;;3140
 ;;21,"59762329501 ")
 ;;3141
 ;;21,"59762329502 ")
 ;;3142
 ;;21,"59762329503 ")
 ;;3143
 ;;21,"59762329504 ")
 ;;3144
 ;;21,"59762501901 ")
 ;;3145
 ;;21,"59762502001 ")
 ;;3146
 ;;21,"59762502101 ")
 ;;3147
 ;;21,"59762502201 ")
 ;;3148
 ;;21,"59762525001 ")
 ;;3149
 ;;21,"59762525004 ")
 ;;3150
 ;;21,"59762525101 ")
 ;;3151
 ;;21,"59762525104 ")
 ;;3152
 ;;21,"59772704501 ")
 ;;3153
 ;;21,"59772704503 ")
 ;;3154
 ;;21,"59772704504 ")
 ;;3155
 ;;21,"59772704505 ")
 ;;3156
 ;;21,"59772704601 ")
 ;;3157
 ;;21,"59772704602 ")
 ;;3158
 ;;21,"59772704603 ")
 ;;3159
 ;;21,"59772704604 ")
 ;;3160
 ;;21,"59772704701 ")
 ;;3161
 ;;21,"59772704703 ")
 ;;3162
 ;;21,"59772704704 ")
 ;;3163
 ;;21,"59772704801 ")
 ;;3164
 ;;21,"60312001430 ")
 ;;3165
 ;;21,"60312001490 ")
 ;;3166
 ;;21,"60312001954 ")
 ;;3167
 ;;21,"60312010654 ")
 ;;3168
 ;;21,"60312011000 ")
 ;;3169
 ;;21,"60312011100 ")
 ;;3170
 ;;21,"60312011200 ")
 ;;3171
 ;;21,"60312014058 ")
 ;;3172
 ;;21,"60312014558 ")
 ;;3173
 ;;21,"60312020754 ")
 ;;3174
 ;;21,"60312071210 ")
 ;;3175
 ;;21,"60312071230 ")
 ;;3176
 ;;21,"60312071290 ")
 ;;3177
 ;;21,"60312071310 ")
 ;;3178
 ;;21,"60312071330 ")
 ;;3179
 ;;21,"60312071390 ")
 ;;3180
 ;;21,"60312071410 ")
 ;;3181
 ;;21,"60312071430 ")
 ;;3182
 ;;21,"60312071490 ")
 ;;3183
 ;;21,"60312072001 ")
 ;;3184
 ;;21,"60312090700 ")
 ;;3185
 ;;21,"60346059530 ")
 ;;3186
 ;;21,"60346061230 ")
 ;;3187
 ;;21,"60346061290 ")
 ;;3188
 ;;21,"60346087103 ")
 ;;3189
 ;;21,"60346087130 ")
 ;;3190
 ;;21,"60429002901 ")
 ;;3191
 ;;21,"60429002910 ")
 ;;3192
 ;;21,"60429003001 ")
 ;;3193
 ;;21,"60429003010 ")
 ;;3194
 ;;21,"60429003101 ")
 ;;3195
 ;;21,"60429003110 ")
 ;;3196
 ;;21,"60429004401 ")
 ;;3197
 ;;21,"60429004410 ")
 ;;3198
 ;;21,"60429004501 ")
 ;;3199
 ;;21,"60429004510 ")
 ;;3200
 ;;21,"60429004601 ")
 ;;3201
 ;;21,"60429004610 ")
 ;;3202
 ;;21,"60429007101 ")
 ;;3203
 ;;21,"60429007105 ")
 ;;3204
 ;;21,"60429007110 ")
 ;;3205
 ;;21,"60429007127 ")
 ;;3206
 ;;21,"60429007130 ")
 ;;3207
 ;;21,"60429007160 ")
 ;;3208
 ;;21,"60429007190 ")
 ;;3209
 ;;21,"60429007201 ")
 ;;3210
 ;;21,"60429007205 ")
 ;;3211
 ;;21,"60429007210 ")
 ;;3212
 ;;21,"60429007227 ")
 ;;3213
 ;;21,"60429007230 ")
 ;;3214
 ;;21,"60429007260 ")
 ;;3215
 ;;21,"60429007290 ")
 ;;3216
 ;;21,"60429007301 ")
 ;;3217
 ;;21,"60429007305 ")
 ;;3218
 ;;21,"60429007310 ")
 ;;3219
 ;;21,"60429007327 ")
 ;;3220
 ;;21,"60429007330 ")
 ;;3221
 ;;21,"60429007360 ")
 ;;3222
 ;;21,"60429007390 ")
 ;;3223
 ;;21,"60429007401 ")
 ;;3224
 ;;21,"60429007405 ")
 ;;3225
 ;;21,"60429007410 ")
 ;;3226
 ;;21,"60429007427 ")
 ;;3227
 ;;21,"60429007430 ")
 ;;3228
 ;;21,"60429007460 ")
 ;;3229
 ;;21,"60429007490 ")
 ;;3230
 ;;21,"60429025701 ")
 ;;3231
 ;;21,"60429072801 ")
 ;;3232
 ;;21,"60429072810 ")
 ;;3233
 ;;21,"60429072830 ")
 ;;3234
 ;;21,"60429072890 ")
 ;;3235
 ;;21,"60429072901 ")
 ;;3236
 ;;21,"60429072910 ")
 ;;3237
 ;;21,"60429072930 ")
 ;;3238
 ;;21,"60429072945 ")
 ;;3239
 ;;21,"60429072990 ")
 ;;3240
 ;;21,"60429073001 ")
 ;;3241
 ;;21,"60429073010 ")
 ;;3242
 ;;21,"60429073030 ")
 ;;3243
 ;;21,"60429073045 ")
 ;;3244
 ;;21,"60429073090 ")
 ;;3245
 ;;21,"60429073101 ")
 ;;3246
 ;;21,"60429073110 ")
 ;;3247
 ;;21,"60429073130 ")
 ;;3248
 ;;21,"60429073145 ")
 ;;3249
 ;;21,"60429073190 ")
 ;;3250
 ;;21,"60429073210 ")
 ;;3251
 ;;21,"60429073230 ")
 ;;3252
 ;;21,"60429073290 ")
 ;;3253
 ;;21,"60429073301 ")
 ;;3254
 ;;21,"60429073310 ")
 ;;3255
 ;;21,"60429073330 ")
 ;;3256
 ;;21,"60429073345 ")
 ;;3257
 ;;21,"60429073390 ")
 ;;3258
 ;;21,"60429075510 ")
 ;;3259
 ;;21,"60429075545 ")
 ;;3260
 ;;21,"60429075590 ")
 ;;3261
 ;;21,"60429075610 ")
 ;;3262
 ;;21,"60429075618 ")
 ;;3263
 ;;21,"60429075645 ")
 ;;3264
 ;;21,"60429075690 ")
 ;;3265
 ;;21,"60429075710 ")
 ;;3266
 ;;21,"60429075718 ")
 ;;3267
 ;;21,"60429075745 ")
 ;;3268
 ;;21,"60429075790 ")
 ;;3269
 ;;21,"60440013000 ")
 ;;3270
 ;;21,"60440013001 ")
 ;;3271
 ;;21,"60440013002 ")
 ;;3272
 ;;21,"60440013100 ")
 ;;3273
 ;;21,"60440013101 ")
 ;;3274
 ;;21,"60440013102 ")
 ;;3275
 ;;21,"60440013200 ")
 ;;3276
 ;;21,"60440013201 ")
 ;;3277
 ;;21,"60440013202 ")
 ;;3278
 ;;21,"60440013301 ")
 ;;3279
 ;;21,"60440013501 ")
 ;;3280
 ;;21,"60440014101 ")
 ;;3281
 ;;21,"60440014201 ")
 ;;3282
 ;;21,"60440014501 ")
 ;;3283
 ;;21,"60440914100 ")
 ;;3284
 ;;21,"60440914102 ")
 ;;3285
 ;;21,"60440914200 ")
 ;;3286
 ;;21,"60440914500 ")
 ;;3287
 ;;21,"60491000130 ")
 ;;3288
 ;;21,"60491000134 ")
 ;;3289
 ;;21,"60491000330 ")
 ;;3290
 ;;21,"60491000334 ")
 ;;3291
 ;;21,"60491000430 ")
 ;;3292
 ;;21,"60491000434 ")
 ;;3293
 ;;21,"60491002730 ")
 ;;3294
 ;;21,"60491002734 ")
 ;;3295
 ;;21,"60491002830 ")
 ;;3296
 ;;21,"60491002834 ")
 ;;3297
 ;;21,"60491002930 ")
 ;;3298
 ;;21,"60491002934 ")
 ;;3299
 ;;21,"60491003030 ")
 ;;3300
 ;;21,"60491003034 ")
 ;;3301
 ;;21,"60491010160 ")
 ;;3302
 ;;21,"60491010168 ")
 ;;3303
 ;;21,"60491010180 ")
 ;;3304
 ;;21,"60491010260 ")
 ;;3305
 ;;21,"60491010268 ")
 ;;3306
 ;;21,"60491010280 ")
 ;;3307
 ;;21,"60491010301 ")
 ;;3308
 ;;21,"60491010360 ")
 ;;3309
 ;;21,"60491010368 ")
 ;;3310
 ;;21,"60491010530 ")
 ;;3311
 ;;21,"60491010534 ")
 ;;3312
 ;;21,"60491010630 ")
 ;;3313
 ;;21,"60491010634 ")
 ;;3314
 ;;21,"60491010730 ")
 ;;3315
 ;;21,"60491010734 ")
 ;;3316
 ;;21,"60491010830 ")
 ;;3317
 ;;21,"60491010834 ")
 ;;3318
 ;;21,"60491051930 ")
 ;;3319
 ;;21,"60491051934 ")
 ;;3320
 ;;21,"60491052030 ")
 ;;3321
 ;;21,"60491052034 ")
 ;;3322
 ;;21,"60491052130 ")
 ;;3323
 ;;21,"60491052134 ")
 ;;3324
 ;;21,"60491052330 ")
 ;;3325
 ;;21,"60491052334 ")
 ;;3326
 ;;21,"60491052430 ")
 ;;3327
 ;;21,"60491052434 ")
 ;;3328
 ;;21,"60491052530 ")
 ;;3329
 ;;21,"60491052534 ")
 ;;3330
 ;;21,"60491052630 ")
 ;;3331
 ;;21,"60491052634 ")
 ;;3332
 ;;21,"60491068330 ")
 ;;3333
 ;;21,"60491068334 ")
 ;;3334
 ;;21,"60491068630 ")
 ;;3335
 ;;21,"60491068660 ")
 ;;3336
 ;;21,"60491068668 ")
 ;;3337
 ;;21,"60491068730 ")
 ;;3338
 ;;21,"60491068734 ")
 ;;3339
 ;;21,"60491068830 ")
 ;;3340
 ;;21,"60491068834 ")
 ;;3341
 ;;21,"60491068860 ")
 ;;3342
 ;;21,"60491068930 ")
 ;;3343
 ;;21,"60491068934 ")
 ;;3344
 ;;21,"60491071101 ")
 ;;3345
 ;;21,"60491071130 ")
 ;;3346
 ;;21,"60491071134 ")
 ;;3347
 ;;21,"60491071201 ")
 ;;3348
 ;;21,"60491071220 ")
 ;;3349
 ;;21,"60491071230 ")
 ;;3350
 ;;21,"60491071234 ")
 ;;3351
 ;;21,"60491071301 ")
 ;;3352
 ;;21,"60491071320 ")
 ;;3353
 ;;21,"60491071330 ")
 ;;3354
 ;;21,"60491071334 ")
 ;;3355
 ;;21,"60491071730 ")
 ;;3356
 ;;21,"60491071734 ")
 ;;3357
 ;;21,"60505000306 ")
 ;;3358
 ;;21,"60505000309 ")
 ;;3359
 ;;21,"60505000406 ")
 ;;3360
 ;;21,"60505000409 ")
 ;;3361
 ;;21,"60505000506 ")
 ;;3362
 ;;21,"60505000509 ")
 ;;3363
 ;;21,"60505000606 ")
 ;;3364
 ;;21,"60505000609 ")
 ;;3365
 ;;21,"60505004906 ")
 ;;3366
 ;;21,"60505004907 ")
 ;;3367
 ;;21,"60505004909 ")
 ;;3368
 ;;21,"60505005006 ")
 ;;3369
 ;;21,"60505005007 ")
 ;;3370
 ;;21,"60505005009 ")
 ;;3371
 ;;21,"60505005106 ")
 ;;3372
 ;;21,"60505005107 ")
 ;;3373
 ;;21,"60505005109 ")
 ;;3374
 ;;21,"60505005206 ")
 ;;3375
 ;;21,"60505005207 ")
 ;;3376
 ;;21,"60505005209 ")
 ;;3377
 ;;21,"60505017200 ")
 ;;3378
 ;;21,"60505017201 ")
 ;;3379
 ;;21,"60505017202 ")
 ;;3380
 ;;21,"60505017205 ")
 ;;3381
 ;;21,"60505017300 ")
 ;;3382
 ;;21,"60505017301 ")
 ;;3383
 ;;21,"60505017302 ")
 ;;3384
 ;;21,"60505017305 ")
 ;;3385
 ;;21,"60505017400 ")
 ;;3386
 ;;21,"60505017401 ")
 ;;3387
 ;;21,"60505017402 ")
 ;;3388
 ;;21,"60505017405 ")
 ;;3389
 ;;21,"60505017500 ")
 ;;3390
 ;;21,"60505017501 ")
 ;;3391
 ;;21,"60505017502 ")
 ;;3392
 ;;21,"60505017505 ")
 ;;3393
 ;;21,"60505018400 ")
 ;;3394
 ;;21,"60505018401 ")
 ;;3395
 ;;21,"60505018500 ")
 ;;3396
 ;;21,"60505018501 ")
 ;;3397
 ;;21,"60505018507 ")
 ;;3398
 ;;21,"60505018509 ")
 ;;3399
 ;;21,"60505018600 ")
 ;;3400
 ;;21,"60505018601 ")
 ;;3401
 ;;21,"60505018607 ")
 ;;3402
 ;;21,"60505018609 ")
 ;;3403
 ;;21,"60505018700 ")
 ;;3404
 ;;21,"60505018701 ")
 ;;3405
 ;;21,"60505018707 ")
 ;;3406
 ;;21,"60505018709 ")
 ;;3407
 ;;21,"60505018800 ")
 ;;3408
 ;;21,"60505018801 ")
 ;;3409
 ;;21,"60505018809 ")
 ;;3410
 ;;21,"60505018900 ")
 ;;3411
 ;;21,"60505018901 ")
 ;;3412
 ;;21,"60505018908 ")
 ;;3413
 ;;21,"60505018909 ")
 ;;3414
 ;;21,"60505020501 ")
 ;;3415
 ;;21,"60505020502 ")
 ;;3416
 ;;21,"60505020503 ")
 ;;3417
 ;;21,"60505020505 ")
 ;;3418
 ;;21,"60505020507 ")
 ;;3419
 ;;21,"60505020601 ")
 ;;3420
 ;;21,"60505020602 ")
 ;;3421
 ;;21,"60505020603 ")
 ;;3422
 ;;21,"60505020605 ")
 ;;3423
 ;;21,"60505020607 ")
 ;;3424
 ;;21,"60505020701 ")
 ;;3425
 ;;21,"60505020702 ")
 ;;3426
 ;;21,"60505020703 ")
 ;;3427
 ;;21,"60505020705 ")
 ;;3428
 ;;21,"60505020707 ")
 ;;3429
 ;;21,"60505020801 ")
 ;;3430
 ;;21,"60505020802 ")
 ;;3431
 ;;21,"60505020901 ")
 ;;3432
 ;;21,"60505020902 ")
 ;;3433
 ;;21,"60505027101 ")
 ;;3434
 ;;21,"60505027103 ")
 ;;3435
 ;;21,"60505027105 ")
 ;;3436
 ;;21,"60505027108 ")
 ;;3437
 ;;21,"60505027201 ")
 ;;3438
 ;;21,"60505027203 ")
 ;;3439
 ;;21,"60505027205 ")
 ;;3440
 ;;21,"60505027208 ")
 ;;3441
 ;;21,"60505251002 ")
 ;;3442
 ;;21,"60505251003 ")
 ;;3443
 ;;21,"60505251004 ")
 ;;3444
 ;;21,"60505251102 ")
 ;;3445
 ;;21,"60505251103 ")
 ;;3446
 ;;21,"60505251104 ")
 ;;3447
 ;;21,"60505251202 ")
 ;;3448
 ;;21,"60505251203 ")
 ;;3449
 ;;21,"60505251204 ")
 ;;3450
 ;;21,"60505251208 ")
 ;;3451
 ;;21,"60505268301 ")
 ;;3452
 ;;21,"60505268401 ")
 ;;3453
 ;;21,"60505268408 ")
 ;;3454
 ;;21,"60505268409 ")
 ;;3455
 ;;21,"60505268501 ")
 ;;3456
 ;;21,"60505268508 ")
 ;;3457
 ;;21,"60505268509 ")
 ;;3458
 ;;21,"60505268601 ")
 ;;3459
 ;;21,"60505268608 ")
 ;;3460
 ;;21,"60505268609 ")
 ;;3461
 ;;21,"60505268801 ")
 ;;3462
 ;;21,"60505268808 ")
 ;;3463
 ;;21,"60505268809 ")
 ;;3464
 ;;21,"60505268901 ")
 ;;3465
 ;;21,"60505269001 ")
 ;;3466