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

BGP73G11.m

Go to the documentation of this file.
  1. BGP73G11 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,"58016-0761-30 ")
  1. ;;3355
  1. ;;21,"58016-0761-60 ")
  1. ;;3356
  1. ;;21,"58016-0761-90 ")
  1. ;;3357
  1. ;;21,"58016-0765-00 ")
  1. ;;3358
  1. ;;21,"58016-0765-30 ")
  1. ;;3359
  1. ;;21,"58016-0765-60 ")
  1. ;;3360
  1. ;;21,"58016-0765-90 ")
  1. ;;3361
  1. ;;21,"58016-0797-00 ")
  1. ;;3362
  1. ;;21,"58016-0797-30 ")
  1. ;;3363
  1. ;;21,"58016-0797-60 ")
  1. ;;3364
  1. ;;21,"58016-0797-90 ")
  1. ;;3365
  1. ;;21,"58016-0806-00 ")
  1. ;;3366
  1. ;;21,"58016-0806-30 ")
  1. ;;3367
  1. ;;21,"58016-0806-60 ")
  1. ;;3368
  1. ;;21,"58016-0806-90 ")
  1. ;;3369
  1. ;;21,"58016-0808-00 ")
  1. ;;3370
  1. ;;21,"58016-0808-30 ")
  1. ;;3371
  1. ;;21,"58016-0808-60 ")
  1. ;;3372
  1. ;;21,"58016-0808-90 ")
  1. ;;3373
  1. ;;21,"58016-0813-00 ")
  1. ;;3374
  1. ;;21,"58016-0813-02 ")
  1. ;;3375
  1. ;;21,"58016-0813-03 ")
  1. ;;3376
  1. ;;21,"58016-0813-10 ")
  1. ;;3377
  1. ;;21,"58016-0813-12 ")
  1. ;;3378
  1. ;;21,"58016-0813-15 ")
  1. ;;3379
  1. ;;21,"58016-0813-20 ")
  1. ;;3380
  1. ;;21,"58016-0813-24 ")
  1. ;;3381
  1. ;;21,"58016-0813-30 ")
  1. ;;3382
  1. ;;21,"58016-0813-50 ")
  1. ;;3383
  1. ;;21,"58016-0813-60 ")
  1. ;;3384
  1. ;;21,"58016-0813-73 ")
  1. ;;3385
  1. ;;21,"58016-0813-89 ")
  1. ;;3386
  1. ;;21,"58016-0813-90 ")
  1. ;;3387
  1. ;;21,"58016-0813-99 ")
  1. ;;3388
  1. ;;21,"58016-0814-00 ")
  1. ;;3389
  1. ;;21,"58016-0814-02 ")
  1. ;;3390
  1. ;;21,"58016-0814-15 ")
  1. ;;3391
  1. ;;21,"58016-0814-20 ")
  1. ;;3392
  1. ;;21,"58016-0814-25 ")
  1. ;;3393
  1. ;;21,"58016-0814-30 ")
  1. ;;3394
  1. ;;21,"58016-0814-40 ")
  1. ;;3395
  1. ;;21,"58016-0814-45 ")
  1. ;;3396
  1. ;;21,"58016-0814-50 ")
  1. ;;3397
  1. ;;21,"58016-0814-60 ")
  1. ;;3398
  1. ;;21,"58016-0814-89 ")
  1. ;;3399
  1. ;;21,"58016-0814-90 ")
  1. ;;3400
  1. ;;21,"58016-0814-99 ")
  1. ;;3401
  1. ;;21,"58016-0815-00 ")
  1. ;;3402
  1. ;;21,"58016-0815-15 ")
  1. ;;3403
  1. ;;21,"58016-0815-20 ")
  1. ;;3404
  1. ;;21,"58016-0815-21 ")
  1. ;;3405
  1. ;;21,"58016-0815-28 ")
  1. ;;3406
  1. ;;21,"58016-0815-30 ")
  1. ;;3407
  1. ;;21,"58016-0815-60 ")
  1. ;;3408
  1. ;;21,"58016-0815-90 ")
  1. ;;3409
  1. ;;21,"58016-0815-99 ")
  1. ;;3410
  1. ;;21,"58016-0817-00 ")
  1. ;;3411
  1. ;;21,"58016-0817-02 ")
  1. ;;3412
  1. ;;21,"58016-0817-03 ")
  1. ;;3413
  1. ;;21,"58016-0817-30 ")
  1. ;;3414
  1. ;;21,"58016-0817-60 ")
  1. ;;3415
  1. ;;21,"58016-0817-90 ")
  1. ;;3416
  1. ;;21,"58016-0818-00 ")
  1. ;;3417
  1. ;;21,"58016-0818-02 ")
  1. ;;3418
  1. ;;21,"58016-0818-03 ")
  1. ;;3419
  1. ;;21,"58016-0818-30 ")
  1. ;;3420
  1. ;;21,"58016-0818-60 ")
  1. ;;3421
  1. ;;21,"58016-0818-90 ")
  1. ;;3422
  1. ;;21,"58016-0818-99 ")
  1. ;;3423
  1. ;;21,"58016-0828-10 ")
  1. ;;3424
  1. ;;21,"58016-0828-20 ")
  1. ;;3425
  1. ;;21,"58016-0828-30 ")
  1. ;;3426
  1. ;;21,"58016-0828-40 ")
  1. ;;3427
  1. ;;21,"58016-0828-60 ")
  1. ;;3428
  1. ;;21,"58016-0828-90 ")
  1. ;;3429
  1. ;;21,"58016-0833-00 ")
  1. ;;3430
  1. ;;21,"58016-0833-10 ")
  1. ;;3431
  1. ;;21,"58016-0833-12 ")
  1. ;;3432
  1. ;;21,"58016-0833-14 ")
  1. ;;3433
  1. ;;21,"58016-0833-15 ")
  1. ;;3434
  1. ;;21,"58016-0833-20 ")
  1. ;;3435
  1. ;;21,"58016-0833-21 ")
  1. ;;3436
  1. ;;21,"58016-0833-30 ")
  1. ;;3437
  1. ;;21,"58016-0833-40 ")
  1. ;;3438
  1. ;;21,"58016-0833-50 ")
  1. ;;3439
  1. ;;21,"58016-0833-60 ")
  1. ;;3440
  1. ;;21,"58016-0833-90 ")
  1. ;;3441
  1. ;;21,"58016-0834-00 ")
  1. ;;3442
  1. ;;21,"58016-0834-10 ")
  1. ;;3443
  1. ;;21,"58016-0834-14 ")
  1. ;;3444
  1. ;;21,"58016-0834-15 ")
  1. ;;3445
  1. ;;21,"58016-0834-20 ")
  1. ;;3446
  1. ;;21,"58016-0834-21 ")
  1. ;;3447
  1. ;;21,"58016-0834-30 ")
  1. ;;3448
  1. ;;21,"58016-0834-40 ")
  1. ;;3449
  1. ;;21,"58016-0834-50 ")
  1. ;;3450
  1. ;;21,"58016-0834-60 ")
  1. ;;3451
  1. ;;21,"58016-0834-90 ")
  1. ;;3452
  1. ;;21,"58016-0839-00 ")
  1. ;;3453
  1. ;;21,"58016-0839-02 ")
  1. ;;3454
  1. ;;21,"58016-0839-12 ")
  1. ;;3455
  1. ;;21,"58016-0839-15 ")
  1. ;;3456
  1. ;;21,"58016-0839-20 ")
  1. ;;3457
  1. ;;21,"58016-0839-30 ")
  1. ;;3458
  1. ;;21,"58016-0839-60 ")
  1. ;;3459
  1. ;;21,"58016-0839-90 ")
  1. ;;3460
  1. ;;21,"58016-0841-00 ")
  1. ;;3461
  1. ;;21,"58016-0841-02 ")
  1. ;;3462
  1. ;;21,"58016-0841-12 ")
  1. ;;3463
  1. ;;21,"58016-0841-15 ")
  1. ;;3464
  1. ;;21,"58016-0841-20 ")
  1. ;;3465
  1. ;;21,"58016-0841-30 ")
  1. ;;3466
  1. ;;21,"58016-0841-60 ")
  1. ;;3467
  1. ;;21,"58016-0841-90 ")
  1. ;;3468
  1. ;;21,"58016-0853-00 ")
  1. ;;3469
  1. ;;21,"58016-0853-02 ")
  1. ;;3470
  1. ;;21,"58016-0853-03 ")
  1. ;;3471
  1. ;;21,"58016-0853-14 ")
  1. ;;3472
  1. ;;21,"58016-0853-15 ")
  1. ;;3473
  1. ;;21,"58016-0853-20 ")
  1. ;;3474
  1. ;;21,"58016-0853-28 ")
  1. ;;3475
  1. ;;21,"58016-0853-30 ")
  1. ;;3476
  1. ;;21,"58016-0853-50 ")
  1. ;;3477
  1. ;;21,"58016-0853-60 ")
  1. ;;3478
  1. ;;21,"58016-0853-73 ")
  1. ;;3479
  1. ;;21,"58016-0853-89 ")
  1. ;;3480
  1. ;;21,"58016-0853-90 ")
  1. ;;3481
  1. ;;21,"58016-0858-00 ")
  1. ;;3482
  1. ;;21,"58016-0858-14 ")
  1. ;;3483
  1. ;;21,"58016-0858-21 ")
  1. ;;3484
  1. ;;21,"58016-0858-28 ")
  1. ;;3485
  1. ;;21,"58016-0858-30 ")
  1. ;;3486
  1. ;;21,"58016-0858-40 ")
  1. ;;3487
  1. ;;21,"58016-0858-50 ")
  1. ;;3488
  1. ;;21,"58016-0858-60 ")
  1. ;;3489
  1. ;;21,"58016-0858-99 ")
  1. ;;3490
  1. ;;21,"58016-0862-00 ")
  1. ;;3491
  1. ;;21,"58016-0862-02 ")
  1. ;;3492
  1. ;;21,"58016-0862-03 ")
  1. ;;3493
  1. ;;21,"58016-0862-12 ")
  1. ;;3494
  1. ;;21,"58016-0862-15 ")
  1. ;;3495
  1. ;;21,"58016-0862-20 ")
  1. ;;3496
  1. ;;21,"58016-0862-30 ")
  1. ;;3497
  1. ;;21,"58016-0862-50 ")
  1. ;;3498
  1. ;;21,"58016-0862-60 ")
  1. ;;3499
  1. ;;21,"58016-0862-73 ")
  1. ;;3500
  1. ;;21,"58016-0862-89 ")
  1. ;;3501
  1. ;;21,"58016-0862-90 ")
  1. ;;3502
  1. ;;21,"58016-0866-00 ")
  1. ;;3503
  1. ;;21,"58016-0866-02 ")
  1. ;;3504
  1. ;;21,"58016-0866-12 ")
  1. ;;3505
  1. ;;21,"58016-0866-15 ")
  1. ;;3506
  1. ;;21,"58016-0866-20 ")
  1. ;;3507
  1. ;;21,"58016-0866-30 ")
  1. ;;3508
  1. ;;21,"58016-0866-60 ")
  1. ;;3509
  1. ;;21,"58016-0866-90 ")
  1. ;;3510
  1. ;;21,"58016-0875-00 ")
  1. ;;3511
  1. ;;21,"58016-0875-12 ")
  1. ;;3512
  1. ;;21,"58016-0875-15 ")
  1. ;;3513
  1. ;;21,"58016-0875-20 ")
  1. ;;3514
  1. ;;21,"58016-0875-30 ")
  1. ;;3515
  1. ;;21,"58016-0875-60 ")
  1. ;;3516
  1. ;;21,"58016-0880-00 ")
  1. ;;3517
  1. ;;21,"58016-0880-12 ")
  1. ;;3518
  1. ;;21,"58016-0880-15 ")
  1. ;;3519
  1. ;;21,"58016-0880-20 ")
  1. ;;3520
  1. ;;21,"58016-0880-30 ")
  1. ;;3521
  1. ;;21,"58016-0881-00 ")
  1. ;;3522
  1. ;;21,"58016-0881-02 ")
  1. ;;3523
  1. ;;21,"58016-0881-03 ")
  1. ;;3524
  1. ;;21,"58016-0881-30 ")
  1. ;;3525
  1. ;;21,"58016-0881-60 ")
  1. ;;3526
  1. ;;21,"58016-0881-90 ")
  1. ;;3527
  1. ;;21,"58016-0894-00 ")
  1. ;;3528
  1. ;;21,"58016-0894-02 ")
  1. ;;3529
  1. ;;21,"58016-0894-03 ")
  1. ;;3530
  1. ;;21,"58016-0894-30 ")
  1. ;;3531
  1. ;;21,"58016-0894-60 ")
  1. ;;3532
  1. ;;21,"58016-0894-90 ")
  1. ;;3533
  1. ;;21,"58016-0894-99 ")
  1. ;;3534
  1. ;;21,"58016-0897-00 ")
  1. ;;3535
  1. ;;21,"58016-0897-30 ")
  1. ;;3536
  1. ;;21,"58016-0897-60 ")
  1. ;;3537
  1. ;;21,"58016-0897-90 ")
  1. ;;3538
  1. ;;21,"58016-0905-00 ")
  1. ;;3539
  1. ;;21,"58016-0905-02 ")
  1. ;;3540
  1. ;;21,"58016-0905-03 ")
  1. ;;3541
  1. ;;21,"58016-0905-10 ")
  1. ;;3542
  1. ;;21,"58016-0905-20 ")
  1. ;;3543
  1. ;;21,"58016-0905-30 ")
  1. ;;3544
  1. ;;21,"58016-0905-60 ")
  1. ;;3545
  1. ;;21,"58016-0905-73 ")
  1. ;;3546
  1. ;;21,"58016-0905-89 ")
  1. ;;3547
  1. ;;21,"58016-0907-00 ")
  1. ;;3548
  1. ;;21,"58016-0907-30 ")
  1. ;;3549
  1. ;;21,"58016-0907-60 ")
  1. ;;3550
  1. ;;21,"58016-0907-90 ")
  1. ;;3551
  1. ;;21,"58016-0977-00 ")
  1. ;;3552
  1. ;;21,"58016-0977-02 ")
  1. ;;3553
  1. ;;21,"58016-0977-30 ")
  1. ;;3554
  1. ;;21,"58016-0977-60 ")
  1. ;;3555
  1. ;;21,"58016-0977-90 ")
  1. ;;3556
  1. ;;21,"58016-0986-00 ")
  1. ;;3557
  1. ;;21,"58016-0986-02 ")
  1. ;;3558
  1. ;;21,"58016-0986-03 ")
  1. ;;3559
  1. ;;21,"58016-0986-30 ")
  1. ;;3560
  1. ;;21,"58016-0986-60 ")
  1. ;;3561
  1. ;;21,"58016-0986-90 ")
  1. ;;3562
  1. ;;21,"58016-4825-01 ")
  1. ;;3563
  1. ;;21,"58016-4826-01 ")
  1. ;;3564
  1. ;;21,"58809-0717-01 ")
  1. ;;3565
  1. ;;21,"58864-0022-15 ")
  1. ;;3566
  1. ;;21,"58864-0022-30 ")
  1. ;;3567
  1. ;;21,"58864-0023-30 ")
  1. ;;3568
  1. ;;21,"58864-0024-30 ")
  1. ;;3569
  1. ;;21,"58864-0025-01 ")
  1. ;;3570
  1. ;;21,"58864-0025-14 ")
  1. ;;3571
  1. ;;21,"58864-0025-30 ")
  1. ;;3572
  1. ;;21,"58864-0025-60 ")
  1. ;;3573
  1. ;;21,"58864-0103-15 ")
  1. ;;3574
  1. ;;21,"58864-0103-30 ")
  1. ;;3575
  1. ;;21,"58864-0103-60 ")
  1. ;;3576
  1. ;;21,"58864-0372-30 ")
  1. ;;3577
  1. ;;21,"58864-0616-15 ")
  1. ;;3578
  1. ;;21,"58864-0616-30 ")
  1. ;;3579
  1. ;;21,"58864-0625-30 ")
  1. ;;3580
  1. ;;21,"58864-0625-60 ")
  1. ;;3581
  1. ;;21,"58864-0627-15 ")
  1. ;;3582
  1. ;;21,"58864-0627-30 ")
  1. ;;3583
  1. ;;21,"58864-0628-15 ")
  1. ;;3584
  1. ;;21,"58864-0629-30 ")
  1. ;;3585
  1. ;;21,"58864-0696-30 ")
  1. ;;3586
  1. ;;21,"58864-0707-30 ")
  1. ;;3587
  1. ;;21,"58864-0715-30 ")
  1. ;;3588
  1. ;;21,"58864-0716-30 ")
  1. ;;3589
  1. ;;21,"58864-0741-15 ")
  1. ;;3590
  1. ;;21,"58864-0741-30 ")
  1. ;;3591
  1. ;;21,"58864-0756-30 ")
  1. ;;3592
  1. ;;21,"58864-0757-30 ")
  1. ;;3593
  1. ;;21,"58864-0783-30 ")
  1. ;;3594
  1. ;;21,"58864-0794-30 ")
  1. ;;3595
  1. ;;21,"58864-0808-90 ")
  1. ;;3596
  1. ;;21,"58864-0812-15 ")
  1. ;;3597
  1. ;;21,"58864-0823-15 ")
  1. ;;3598
  1. ;;21,"58864-0823-30 ")
  1. ;;3599
  1. ;;21,"58864-0840-30 ")
  1. ;;3600
  1. ;;21,"58864-0840-60 ")
  1. ;;3601
  1. ;;21,"58864-0849-30 ")
  1. ;;3602
  1. ;;21,"58864-0852-30 ")
  1. ;;3603
  1. ;;21,"58864-0917-30 ")
  1. ;;3604
  1. ;;21,"59212-0447-10 ")
  1. ;;3605
  1. ;;21,"59746-0279-01 ")
  1. ;;3606
  1. ;;21,"59746-0280-01 ")
  1. ;;3607
  1. ;;21,"59746-0281-01 ")
  1. ;;3608
  1. ;;21,"59746-0315-01 ")
  1. ;;3609
  1. ;;21,"59746-0316-01 ")
  1. ;;3610
  1. ;;21,"59746-0316-60 ")
  1. ;;3611
  1. ;;21,"59762-0119-01 ")
  1. ;;3612
  1. ;;21,"59762-0180-01 ")
  1. ;;3613
  1. ;;21,"59762-0180-02 ")
  1. ;;3614
  1. ;;21,"59762-0180-03 ")
  1. ;;3615
  1. ;;21,"59762-0180-04 ")
  1. ;;3616
  1. ;;21,"59762-0181-01 ")
  1. ;;3617
  1. ;;21,"59762-0181-02 ")
  1. ;;3618
  1. ;;21,"59762-0181-03 ")
  1. ;;3619
  1. ;;21,"59762-0181-04 ")
  1. ;;3620
  1. ;;21,"59762-0182-01 ")
  1. ;;3621
  1. ;;21,"59762-0182-02 ")
  1. ;;3622
  1. ;;21,"59762-0182-03 ")
  1. ;;3623
  1. ;;21,"59762-0182-04 ")
  1. ;;3624
  1. ;;21,"59762-1410-07 ")
  1. ;;3625
  1. ;;21,"59762-1412-07 ")
  1. ;;3626
  1. ;;21,"59762-1414-07 ")
  1. ;;3627
  1. ;;21,"59762-1415-03 ")
  1. ;;3628
  1. ;;21,"59762-1415-05 ")
  1. ;;3629
  1. ;;21,"59762-1415-06 ")
  1. ;;3630
  1. ;;21,"59762-1415-09 ")
  1. ;;3631
  1. ;;21,"59762-1416-03 ")
  1. ;;3632
  1. ;;21,"59762-1416-05 ")
  1. ;;3633
  1. ;;21,"59762-1416-06 ")
  1. ;;3634
  1. ;;21,"59762-1416-09 ")
  1. ;;3635
  1. ;;21,"59762-1417-03 ")
  1. ;;3636
  1. ;;21,"59762-1417-05 ")
  1. ;;3637
  1. ;;21,"59762-1417-06 ")
  1. ;;3638
  1. ;;21,"59762-1417-09 ")
  1. ;;3639
  1. ;;21,"59762-1418-03 ")
  1. ;;3640
  1. ;;21,"59762-1418-05 ")
  1. ;;3641
  1. ;;21,"59762-1418-06 ")
  1. ;;3642
  1. ;;21,"59762-1418-09 ")
  1. ;;3643
  1. ;;21,"59762-1808-01 ")
  1. ;;3644
  1. ;;21,"59762-1808-02 ")
  1. ;;3645
  1. ;;21,"59762-1808-03 ")
  1. ;;3646
  1. ;;21,"59762-1810-01 ")
  1. ;;3647
  1. ;;21,"59762-1810-02 ")
  1. ;;3648
  1. ;;21,"59762-1810-03 ")
  1. ;;3649
  1. ;;21,"59762-1810-04 ")
  1. ;;3650
  1. ;;21,"59762-1812-01 ")
  1. ;;3651
  1. ;;21,"59762-1812-02 ")
  1. ;;3652
  1. ;;21,"59762-1812-03 ")
  1. ;;3653
  1. ;;21,"59762-1815-01 ")
  1. ;;3654
  1. ;;21,"59762-1815-02 ")
  1. ;;3655
  1. ;;21,"59762-1815-03 ")
  1. ;;3656
  1. ;;21,"59762-3480-03 ")
  1. ;;3657
  1. ;;21,"59762-3481-02 ")
  1. ;;3658
  1. ;;21,"59762-3482-02 ")
  1. ;;3659
  1. ;;21,"59762-3483-02 ")
  1. ;;3660
  1. ;;21,"59762-3484-02 ")
  1. ;;3661
  1. ;;21,"59762-4800-01 ")
  1. ;;3662
  1. ;;21,"59762-4800-03 ")
  1. ;;3663
  1. ;;21,"59762-4800-05 ")
  1. ;;3664
  1. ;;21,"59762-4800-06 ")
  1. ;;3665
  1. ;;21,"59762-4801-01 ")
  1. ;;3666
  1. ;;21,"59762-4801-03 ")
  1. ;;3667
  1. ;;21,"59762-4801-05 ")
  1. ;;3668
  1. ;;21,"59762-4801-06 ")
  1. ;;3669
  1. ;;21,"59762-4802-01 ")
  1. ;;3670
  1. ;;21,"59762-4802-03 ")
  1. ;;3671
  1. ;;21,"59762-4802-05 ")
  1. ;;3672
  1. ;;21,"59762-4802-06 ")
  1. ;;3673
  1. ;;21,"59762-4900-01 ")
  1. ;;3674
  1. ;;21,"59762-4900-02 ")
  1. ;;3675
  1. ;;21,"59762-4900-03 ")
  1. ;;3676
  1. ;;21,"59762-4900-04 ")
  1. ;;3677
  1. ;;21,"59762-4900-05 ")
  1. ;;3678
  1. ;;21,"59762-4910-01 ")
  1. ;;3679
  1. ;;21,"59762-4910-02 ")
  1. ;;3680
  1. ;;21,"59762-4910-03 ")
  1. ;;3681
  1. ;;21,"59762-4910-04 ")
  1. ;;3682
  1. ;;21,"59762-4910-05 ")
  1. ;;3683
  1. ;;21,"59762-4940-01 ")
  1. ;;3684
  1. ;;21,"59762-4960-01 ")
  1. ;;3685
  1. ;;21,"59772-0908-10 ")
  1. ;;3686
  1. ;;21,"59772-0908-20 ")
  1. ;;3687