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

BGPM5ATX.m

Go to the documentation of this file.
  1. BGPM5ATX ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 29, 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,"58016095769 ")
  1. ;;3269
  1. ;;21,"58016095770 ")
  1. ;;3270
  1. ;;21,"58016095771 ")
  1. ;;3271
  1. ;;21,"58016095772 ")
  1. ;;3272
  1. ;;21,"58016095773 ")
  1. ;;3273
  1. ;;21,"58016095775 ")
  1. ;;3274
  1. ;;21,"58016095776 ")
  1. ;;3275
  1. ;;21,"58016095777 ")
  1. ;;3276
  1. ;;21,"58016095779 ")
  1. ;;3277
  1. ;;21,"58016095780 ")
  1. ;;3278
  1. ;;21,"58016095781 ")
  1. ;;3279
  1. ;;21,"58016095782 ")
  1. ;;3280
  1. ;;21,"58016095783 ")
  1. ;;3281
  1. ;;21,"58016095784 ")
  1. ;;3282
  1. ;;21,"58016095787 ")
  1. ;;3283
  1. ;;21,"58016095789 ")
  1. ;;3284
  1. ;;21,"58016095790 ")
  1. ;;3285
  1. ;;21,"58016095791 ")
  1. ;;3286
  1. ;;21,"58016095792 ")
  1. ;;3287
  1. ;;21,"58016095793 ")
  1. ;;3288
  1. ;;21,"58016095796 ")
  1. ;;3289
  1. ;;21,"58016095798 ")
  1. ;;3290
  1. ;;21,"58016095799 ")
  1. ;;3291
  1. ;;21,"58016096400 ")
  1. ;;3292
  1. ;;21,"58016096401 ")
  1. ;;3293
  1. ;;21,"58016096402 ")
  1. ;;3294
  1. ;;21,"58016096403 ")
  1. ;;3295
  1. ;;21,"58016096404 ")
  1. ;;3296
  1. ;;21,"58016096405 ")
  1. ;;3297
  1. ;;21,"58016096406 ")
  1. ;;3298
  1. ;;21,"58016096407 ")
  1. ;;3299
  1. ;;21,"58016096408 ")
  1. ;;3300
  1. ;;21,"58016096409 ")
  1. ;;3301
  1. ;;21,"58016096410 ")
  1. ;;3302
  1. ;;21,"58016096412 ")
  1. ;;3303
  1. ;;21,"58016096414 ")
  1. ;;3304
  1. ;;21,"58016096415 ")
  1. ;;3305
  1. ;;21,"58016096416 ")
  1. ;;3306
  1. ;;21,"58016096418 ")
  1. ;;3307
  1. ;;21,"58016096420 ")
  1. ;;3308
  1. ;;21,"58016096421 ")
  1. ;;3309
  1. ;;21,"58016096424 ")
  1. ;;3310
  1. ;;21,"58016096425 ")
  1. ;;3311
  1. ;;21,"58016096426 ")
  1. ;;3312
  1. ;;21,"58016096427 ")
  1. ;;3313
  1. ;;21,"58016096428 ")
  1. ;;3314
  1. ;;21,"58016096430 ")
  1. ;;3315
  1. ;;21,"58016096432 ")
  1. ;;3316
  1. ;;21,"58016096435 ")
  1. ;;3317
  1. ;;21,"58016096436 ")
  1. ;;3318
  1. ;;21,"58016096440 ")
  1. ;;3319
  1. ;;21,"58016096442 ")
  1. ;;3320
  1. ;;21,"58016096444 ")
  1. ;;3321
  1. ;;21,"58016096445 ")
  1. ;;3322
  1. ;;21,"58016096448 ")
  1. ;;3323
  1. ;;21,"58016096450 ")
  1. ;;3324
  1. ;;21,"58016096456 ")
  1. ;;3325
  1. ;;21,"58016096460 ")
  1. ;;3326
  1. ;;21,"58016096467 ")
  1. ;;3327
  1. ;;21,"58016096469 ")
  1. ;;3328
  1. ;;21,"58016096470 ")
  1. ;;3329
  1. ;;21,"58016096471 ")
  1. ;;3330
  1. ;;21,"58016096472 ")
  1. ;;3331
  1. ;;21,"58016096473 ")
  1. ;;3332
  1. ;;21,"58016096475 ")
  1. ;;3333
  1. ;;21,"58016096476 ")
  1. ;;3334
  1. ;;21,"58016096477 ")
  1. ;;3335
  1. ;;21,"58016096479 ")
  1. ;;3336
  1. ;;21,"58016096480 ")
  1. ;;3337
  1. ;;21,"58016096481 ")
  1. ;;3338
  1. ;;21,"58016096482 ")
  1. ;;3339
  1. ;;21,"58016096483 ")
  1. ;;3340
  1. ;;21,"58016096484 ")
  1. ;;3341
  1. ;;21,"58016096487 ")
  1. ;;3342
  1. ;;21,"58016096489 ")
  1. ;;3343
  1. ;;21,"58016096490 ")
  1. ;;3344
  1. ;;21,"58016096491 ")
  1. ;;3345
  1. ;;21,"58016096492 ")
  1. ;;3346
  1. ;;21,"58016096493 ")
  1. ;;3347
  1. ;;21,"58016096496 ")
  1. ;;3348
  1. ;;21,"58016096497 ")
  1. ;;3349
  1. ;;21,"58016096498 ")
  1. ;;3350
  1. ;;21,"58016096499 ")
  1. ;;3351
  1. ;;21,"58016100001 ")
  1. ;;3352
  1. ;;21,"58016100201 ")
  1. ;;3353
  1. ;;21,"58016100401 ")
  1. ;;3354
  1. ;;21,"58016100501 ")
  1. ;;3355
  1. ;;21,"58016100601 ")
  1. ;;3356
  1. ;;21,"58016100701 ")
  1. ;;3357
  1. ;;21,"58016101901 ")
  1. ;;3358
  1. ;;21,"58016102101 ")
  1. ;;3359
  1. ;;21,"58016102301 ")
  1. ;;3360
  1. ;;21,"58016102401 ")
  1. ;;3361
  1. ;;21,"58016102501 ")
  1. ;;3362
  1. ;;21,"58016102601 ")
  1. ;;3363
  1. ;;21,"58016102701 ")
  1. ;;3364
  1. ;;21,"58016102801 ")
  1. ;;3365
  1. ;;21,"58016102901 ")
  1. ;;3366
  1. ;;21,"58016103101 ")
  1. ;;3367
  1. ;;21,"58016103201 ")
  1. ;;3368
  1. ;;21,"58016103301 ")
  1. ;;3369
  1. ;;21,"58016103401 ")
  1. ;;3370
  1. ;;21,"58016103501 ")
  1. ;;3371
  1. ;;21,"58016104501 ")
  1. ;;3372
  1. ;;21,"58016104601 ")
  1. ;;3373
  1. ;;21,"58016419201 ")
  1. ;;3374
  1. ;;21,"58016419301 ")
  1. ;;3375
  1. ;;21,"58016478601 ")
  1. ;;3376
  1. ;;21,"58016479001 ")
  1. ;;3377
  1. ;;21,"58016483401 ")
  1. ;;3378
  1. ;;21,"58016484201 ")
  1. ;;3379
  1. ;;21,"58016486901 ")
  1. ;;3380
  1. ;;21,"58016487301 ")
  1. ;;3381
  1. ;;21,"58016499001 ")
  1. ;;3382
  1. ;;21,"58016556101 ")
  1. ;;3383
  1. ;;21,"58087008060 ")
  1. ;;3384
  1. ;;21,"58087008140 ")
  1. ;;3385
  1. ;;21,"58087008206 ")
  1. ;;3386
  1. ;;21,"58087008220 ")
  1. ;;3387
  1. ;;21,"58864002801 ")
  1. ;;3388
  1. ;;21,"58864002830 ")
  1. ;;3389
  1. ;;21,"58864002840 ")
  1. ;;3390
  1. ;;21,"58864002850 ")
  1. ;;3391
  1. ;;21,"58864002921 ")
  1. ;;3392
  1. ;;21,"58864002930 ")
  1. ;;3393
  1. ;;21,"58864002940 ")
  1. ;;3394
  1. ;;21,"58864003328 ")
  1. ;;3395
  1. ;;21,"58864003340 ")
  1. ;;3396
  1. ;;21,"58864007201 ")
  1. ;;3397
  1. ;;21,"58864007230 ")
  1. ;;3398
  1. ;;21,"58864007240 ")
  1. ;;3399
  1. ;;21,"58864007301 ")
  1. ;;3400
  1. ;;21,"58864007320 ")
  1. ;;3401
  1. ;;21,"58864007328 ")
  1. ;;3402
  1. ;;21,"58864007330 ")
  1. ;;3403
  1. ;;21,"58864007340 ")
  1. ;;3404
  1. ;;21,"58864007356 ")
  1. ;;3405
  1. ;;21,"58864007440 ")
  1. ;;3406
  1. ;;21,"58864014928 ")
  1. ;;3407
  1. ;;21,"58864014940 ")
  1. ;;3408
  1. ;;21,"58864015030 ")
  1. ;;3409
  1. ;;21,"58864018910 ")
  1. ;;3410
  1. ;;21,"58864018912 ")
  1. ;;3411
  1. ;;21,"58864018914 ")
  1. ;;3412
  1. ;;21,"58864018920 ")
  1. ;;3413
  1. ;;21,"58864018928 ")
  1. ;;3414
  1. ;;21,"58864018930 ")
  1. ;;3415
  1. ;;21,"58864019012 ")
  1. ;;3416
  1. ;;21,"58864019014 ")
  1. ;;3417
  1. ;;21,"58864019020 ")
  1. ;;3418
  1. ;;21,"58864019028 ")
  1. ;;3419
  1. ;;21,"58864019030 ")
  1. ;;3420
  1. ;;21,"58864019528 ")
  1. ;;3421
  1. ;;21,"58864019540 ")
  1. ;;3422
  1. ;;21,"58864037940 ")
  1. ;;3423
  1. ;;21,"58864047806 ")
  1. ;;3424
  1. ;;21,"58864047810 ")
  1. ;;3425
  1. ;;21,"58864047814 ")
  1. ;;3426
  1. ;;21,"58864047817 ")
  1. ;;3427
  1. ;;21,"58864047820 ")
  1. ;;3428
  1. ;;21,"58864047830 ")
  1. ;;3429
  1. ;;21,"58864049340 ")
  1. ;;3430
  1. ;;21,"58864049398 ")
  1. ;;3431
  1. ;;21,"58864060740 ")
  1. ;;3432
  1. ;;21,"58864060760 ")
  1. ;;3433
  1. ;;21,"58864061228 ")
  1. ;;3434
  1. ;;21,"58864061230 ")
  1. ;;3435
  1. ;;21,"58864061240 ")
  1. ;;3436
  1. ;;21,"58864061740 ")
  1. ;;3437
  1. ;;21,"58864067530 ")
  1. ;;3438
  1. ;;21,"58864067540 ")
  1. ;;3439
  1. ;;21,"58864068840 ")
  1. ;;3440
  1. ;;21,"58864076720 ")
  1. ;;3441
  1. ;;21,"58864076721 ")
  1. ;;3442
  1. ;;21,"58864076730 ")
  1. ;;3443
  1. ;;21,"58864077730 ")
  1. ;;3444
  1. ;;21,"58864079106 ")
  1. ;;3445
  1. ;;21,"58864080606 ")
  1. ;;3446
  1. ;;21,"58864080614 ")
  1. ;;3447
  1. ;;21,"58864080620 ")
  1. ;;3448
  1. ;;21,"58864083310 ")
  1. ;;3449
  1. ;;21,"58864083320 ")
  1. ;;3450
  1. ;;21,"58864083720 ")
  1. ;;3451
  1. ;;21,"58864084830 ")
  1. ;;3452
  1. ;;21,"59115002301 ")
  1. ;;3453
  1. ;;21,"59115002350 ")
  1. ;;3454
  1. ;;21,"59115002375 ")
  1. ;;3455
  1. ;;21,"59115002401 ")
  1. ;;3456
  1. ;;21,"59115002450 ")
  1. ;;3457
  1. ;;21,"59115002475 ")
  1. ;;3458
  1. ;;21,"59115002801 ")
  1. ;;3459
  1. ;;21,"59115002850 ")
  1. ;;3460
  1. ;;21,"59115002899 ")
  1. ;;3461
  1. ;;21,"59115002901 ")
  1. ;;3462
  1. ;;21,"59115002933 ")
  1. ;;3463
  1. ;;21,"59115002955 ")
  1. ;;3464
  1. ;;21,"59115002999 ")
  1. ;;3465
  1. ;;21,"59115003001 ")
  1. ;;3466
  1. ;;21,"59115003033 ")
  1. ;;3467
  1. ;;21,"59115003055 ")
  1. ;;3468
  1. ;;21,"59115003099 ")
  1. ;;3469
  1. ;;21,"59115003301 ")
  1. ;;3470
  1. ;;21,"59115003355 ")
  1. ;;3471
  1. ;;21,"59115004001 ")
  1. ;;3472
  1. ;;21,"59115004022 ")
  1. ;;3473
  1. ;;21,"59115004101 ")
  1. ;;3474
  1. ;;21,"59115004122 ")
  1. ;;3475
  1. ;;21,"59115004155 ")
  1. ;;3476
  1. ;;21,"59115004201 ")
  1. ;;3477
  1. ;;21,"59115004233 ")
  1. ;;3478
  1. ;;21,"59115004255 ")
  1. ;;3479
  1. ;;21,"59115004301 ")
  1. ;;3480
  1. ;;21,"59115004350 ")
  1. ;;3481
  1. ;;21,"59115004375 ")
  1. ;;3482
  1. ;;21,"59115004401 ")
  1. ;;3483
  1. ;;21,"59115004405 ")
  1. ;;3484
  1. ;;21,"59115004480 ")
  1. ;;3485
  1. ;;21,"59115004501 ")
  1. ;;3486
  1. ;;21,"59115004550 ")
  1. ;;3487
  1. ;;21,"59115004575 ")
  1. ;;3488
  1. ;;21,"59115004601 ")
  1. ;;3489
  1. ;;21,"59115004605 ")
  1. ;;3490
  1. ;;21,"59115004680 ")
  1. ;;3491
  1. ;;21,"59115005101 ")
  1. ;;3492
  1. ;;21,"59115005122 ")
  1. ;;3493
  1. ;;21,"59115005150 ")
  1. ;;3494
  1. ;;21,"59115005201 ")
  1. ;;3495
  1. ;;21,"59115005250 ")
  1. ;;3496
  1. ;;21,"59115006120 ")
  1. ;;3497
  1. ;;21,"59115006125 ")
  1. ;;3498
  1. ;;21,"59115006175 ")
  1. ;;3499
  1. ;;21,"59115012205 ")
  1. ;;3500
  1. ;;21,"59115012214 ")
  1. ;;3501
  1. ;;21,"59115012220 ")
  1. ;;3502
  1. ;;21,"59115012250 ")
  1. ;;3503
  1. ;;21,"59115012299 ")
  1. ;;3504
  1. ;;21,"59115012305 ")
  1. ;;3505
  1. ;;21,"59115012350 ")
  1. ;;3506
  1. ;;21,"59214010606 ")
  1. ;;3507
  1. ;;21,"59214083901 ")
  1. ;;3508
  1. ;;21,"59214252201 ")
  1. ;;3509
  1. ;;21,"59366271306 ")
  1. ;;3510
  1. ;;21,"59366285206 ")
  1. ;;3511
  1. ;;21,"59453009201 ")
  1. ;;3512
  1. ;;21,"59453013001 ")
  1. ;;3513
  1. ;;21,"59564019905 ")
  1. ;;3514
  1. ;;21,"59564019910 ")
  1. ;;3515
  1. ;;21,"59564019911 ")
  1. ;;3516
  1. ;;21,"59564019914 ")
  1. ;;3517
  1. ;;21,"59564019928 ")
  1. ;;3518
  1. ;;21,"59762001601 ")
  1. ;;3519
  1. ;;21,"59762028003 ")
  1. ;;3520
  1. ;;21,"59762040902 ")
  1. ;;3521
  1. ;;21,"59762040904 ")
  1. ;;3522
  1. ;;21,"59762040907 ")
  1. ;;3523
  1. ;;21,"59762102001 ")
  1. ;;3524
  1. ;;21,"59762102003 ")
  1. ;;3525
  1. ;;21,"59762102101 ")
  1. ;;3526
  1. ;;21,"59762102107 ")
  1. ;;3527
  1. ;;21,"59762102202 ")
  1. ;;3528
  1. ;;21,"59762102204 ")
  1. ;;3529
  1. ;;21,"59762102207 ")
  1. ;;3530
  1. ;;21,"59762102304 ")
  1. ;;3531
  1. ;;21,"59762102305 ")
  1. ;;3532
  1. ;;21,"59762102306 ")
  1. ;;3533
  1. ;;21,"59762105002 ")
  1. ;;3534
  1. ;;21,"59762105005 ")
  1. ;;3535
  1. ;;21,"59762108101 ")
  1. ;;3536
  1. ;;21,"59762108102 ")
  1. ;;3537
  1. ;;21,"59762108301 ")
  1. ;;3538
  1. ;;21,"59762108302 ")
  1. ;;3539
  1. ;;21,"59762153401 ")
  1. ;;3540
  1. ;;21,"59762153402 ")
  1. ;;3541
  1. ;;21,"59762153701 ")
  1. ;;3542
  1. ;;21,"59762153702 ")
  1. ;;3543
  1. ;;21,"59762153703 ")
  1. ;;3544
  1. ;;21,"59762200001 ")
  1. ;;3545
  1. ;;21,"59762200004 ")
  1. ;;3546
  1. ;;21,"59762218001 ")
  1. ;;3547
  1. ;;21,"59762222002 ")
  1. ;;3548
  1. ;;21,"59762222101 ")
  1. ;;3549
  1. ;;21,"59762222102 ")
  1. ;;3550
  1. ;;21,"59762302001 ")
  1. ;;3551
  1. ;;21,"59762302002 ")
  1. ;;3552
  1. ;;21,"59762302101 ")
  1. ;;3553
  1. ;;21,"59762302102 ")
  1. ;;3554
  1. ;;21,"59762305101 ")
  1. ;;3555
  1. ;;21,"59762305102 ")
  1. ;;3556
  1. ;;21,"59762306002 ")
  1. ;;3557
  1. ;;21,"59762306003 ")
  1. ;;3558
  1. ;;21,"59762311001 ")
  1. ;;3559
  1. ;;21,"59762312001 ")
  1. ;;3560
  1. ;;21,"59762313001 ")
  1. ;;3561
  1. ;;21,"59762314001 ")
  1. ;;3562
  1. ;;21,"59762332801 ")
  1. ;;3563
  1. ;;21,"59762372801 ")
  1. ;;3564
  1. ;;21,"59762372802 ")
  1. ;;3565
  1. ;;21,"59762372803 ")
  1. ;;3566
  1. ;;21,"59762374301 ")
  1. ;;3567
  1. ;;21,"59762374302 ")
  1. ;;3568
  1. ;;21,"59762374401 ")
  1. ;;3569
  1. ;;21,"59762408001 ")
  1. ;;3570
  1. ;;21,"59762408002 ")
  1. ;;3571
  1. ;;21,"59762408101 ")
  1. ;;3572
  1. ;;21,"59762408102 ")
  1. ;;3573
  1. ;;21,"59762500901 ")
  1. ;;3574
  1. ;;21,"59762501001 ")
  1. ;;3575
  1. ;;21,"59762501002 ")
  1. ;;3576
  1. ;;21,"59772013901 ")
  1. ;;3577
  1. ;;21,"59772013902 ")
  1. ;;3578
  1. ;;21,"59772017001 ")
  1. ;;3579
  1. ;;21,"59772017401 ")
  1. ;;3580
  1. ;;21,"59772017402 ")
  1. ;;3581
  1. ;;21,"59772017420 ")
  1. ;;3582
  1. ;;21,"59772080202 ")
  1. ;;3583
  1. ;;21,"59772080301 ")
  1. ;;3584
  1. ;;21,"59772080302 ")
  1. ;;3585
  1. ;;21,"59772080801 ")
  1. ;;3586
  1. ;;21,"59772094001 ")
  1. ;;3587
  1. ;;21,"59772094002 ")
  1. ;;3588
  1. ;;21,"59772604801 ")
  1. ;;3589
  1. ;;21,"59772605801 ")
  1. ;;3590
  1. ;;21,"59772727103 ")
  1. ;;3591
  1. ;;21,"59772727104 ")
  1. ;;3592
  1. ;;21,"59772727107 ")
  1. ;;3593
  1. ;;21,"59772749002 ")
  1. ;;3594
  1. ;;21,"59772749004 ")
  1. ;;3595
  1. ;;21,"59772749104 ")
  1. ;;3596
  1. ;;21,"59772749202 ")
  1. ;;3597
  1. ;;21,"59772749204 ")
  1. ;;3598
  1. ;;21,"59772749301 ")
  1. ;;3599
  1. ;;21,"59772749303 ")
  1. ;;3600
  1. ;;21,"59772749404 ")
  1. ;;3601
  1. ;;21,"59772749701 ")
  1. ;;3602
  1. ;;21,"59772749703 ")
  1. ;;3603
  1. ;;21,"59987010124 ")
  1. ;;3604
  1. ;;21,"60238001001 ")
  1. ;;3605
  1. ;;21,"60238001009 ")
  1. ;;3606
  1. ;;21,"60238003201 ")
  1. ;;3607
  1. ;;21,"60238003403 ")
  1. ;;3608
  1. ;;21,"60238003504 ")
  1. ;;3609
  1. ;;21,"60238003705 ")
  1. ;;3610
  1. ;;21,"60346065506 ")
  1. ;;3611
  1. ;;21,"60346065510 ")
  1. ;;3612
  1. ;;21,"60346065515 ")
  1. ;;3613
  1. ;;21,"60429002101 ")
  1. ;;3614
  1. ;;21,"60429002105 ")
  1. ;;3615
  1. ;;21,"60429002130 ")
  1. ;;3616
  1. ;;21,"60429002201 ")
  1. ;;3617
  1. ;;21,"60429002205 ")
  1. ;;3618
  1. ;;21,"60429002230 ")
  1. ;;3619
  1. ;;21,"60429002301 ")
  1. ;;3620