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

BGP33J10.m

Go to the documentation of this file.
BGP33J10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 23, 2013;
 ;;13.0;IHS CLINICAL REPORTING;**1**;NOV 20, 2012;Build 7
 ;
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,"54569-1723-04 ")
 ;;3497
 ;;21,"54569-1723-05 ")
 ;;3498
 ;;21,"54569-1723-08 ")
 ;;3499
 ;;21,"54569-1723-09 ")
 ;;3500
 ;;21,"54569-1792-03 ")
 ;;3501
 ;;21,"54569-1802-01 ")
 ;;3502
 ;;21,"54569-1840-00 ")
 ;;3503
 ;;21,"54569-1840-01 ")
 ;;3504
 ;;21,"54569-1840-03 ")
 ;;3505
 ;;21,"54569-1840-04 ")
 ;;3506
 ;;21,"54569-1840-07 ")
 ;;3507
 ;;21,"54569-1889-00 ")
 ;;3508
 ;;21,"54569-1889-01 ")
 ;;3509
 ;;21,"54569-1889-04 ")
 ;;3510
 ;;21,"54569-1959-00 ")
 ;;3511
 ;;21,"54569-1959-01 ")
 ;;3512
 ;;21,"54569-1959-03 ")
 ;;3513
 ;;21,"54569-1959-04 ")
 ;;3514
 ;;21,"54569-1959-05 ")
 ;;3515
 ;;21,"54569-1959-06 ")
 ;;3516
 ;;21,"54569-1959-08 ")
 ;;3517
 ;;21,"54569-1962-00 ")
 ;;3518
 ;;21,"54569-1962-01 ")
 ;;3519
 ;;21,"54569-1962-02 ")
 ;;3520
 ;;21,"54569-1962-03 ")
 ;;3521
 ;;21,"54569-2000-00 ")
 ;;3522
 ;;21,"54569-2001-00 ")
 ;;3523
 ;;21,"54569-2002-00 ")
 ;;3524
 ;;21,"54569-2187-00 ")
 ;;3525
 ;;21,"54569-2199-00 ")
 ;;3526
 ;;21,"54569-2199-01 ")
 ;;3527
 ;;21,"54569-2199-03 ")
 ;;3528
 ;;21,"54569-2279-03 ")
 ;;3529
 ;;21,"54569-2279-07 ")
 ;;3530
 ;;21,"54569-2281-00 ")
 ;;3531
 ;;21,"54569-2281-01 ")
 ;;3532
 ;;21,"54569-2281-02 ")
 ;;3533
 ;;21,"54569-2281-03 ")
 ;;3534
 ;;21,"54569-2281-04 ")
 ;;3535
 ;;21,"54569-2433-00 ")
 ;;3536
 ;;21,"54569-2433-02 ")
 ;;3537
 ;;21,"54569-2488-00 ")
 ;;3538
 ;;21,"54569-2488-01 ")
 ;;3539
 ;;21,"54569-2488-03 ")
 ;;3540
 ;;21,"54569-2502-00 ")
 ;;3541
 ;;21,"54569-2502-01 ")
 ;;3542
 ;;21,"54569-2502-03 ")
 ;;3543
 ;;21,"54569-2502-05 ")
 ;;3544
 ;;21,"54569-2502-06 ")
 ;;3545
 ;;21,"54569-2508-00 ")
 ;;3546
 ;;21,"54569-2508-01 ")
 ;;3547
 ;;21,"54569-2508-02 ")
 ;;3548
 ;;21,"54569-2508-03 ")
 ;;3549
 ;;21,"54569-2508-04 ")
 ;;3550
 ;;21,"54569-2702-08 ")
 ;;3551
 ;;21,"54569-2719-00 ")
 ;;3552
 ;;21,"54569-2821-00 ")
 ;;3553
 ;;21,"54569-2928-00 ")
 ;;3554
 ;;21,"54569-2929-00 ")
 ;;3555
 ;;21,"54569-2930-00 ")
 ;;3556
 ;;21,"54569-2931-00 ")
 ;;3557
 ;;21,"54569-2933-00 ")
 ;;3558
 ;;21,"54569-2935-00 ")
 ;;3559
 ;;21,"54569-2952-01 ")
 ;;3560
 ;;21,"54569-2953-00 ")
 ;;3561
 ;;21,"54569-2954-00 ")
 ;;3562
 ;;21,"54569-2986-00 ")
 ;;3563
 ;;21,"54569-2986-04 ")
 ;;3564
 ;;21,"54569-2986-05 ")
 ;;3565
 ;;21,"54569-3057-00 ")
 ;;3566
 ;;21,"54569-3074-00 ")
 ;;3567
 ;;21,"54569-3074-01 ")
 ;;3568
 ;;21,"54569-3074-02 ")
 ;;3569
 ;;21,"54569-3074-05 ")
 ;;3570
 ;;21,"54569-3074-06 ")
 ;;3571
 ;;21,"54569-3074-07 ")
 ;;3572
 ;;21,"54569-3074-08 ")
 ;;3573
 ;;21,"54569-3153-00 ")
 ;;3574
 ;;21,"54569-3153-02 ")
 ;;3575
 ;;21,"54569-3153-03 ")
 ;;3576
 ;;21,"54569-3162-00 ")
 ;;3577
 ;;21,"54569-3207-00 ")
 ;;3578
 ;;21,"54569-3315-00 ")
 ;;3579
 ;;21,"54569-3324-03 ")
 ;;3580
 ;;21,"54569-3347-00 ")
 ;;3581
 ;;21,"54569-3347-01 ")
 ;;3582
 ;;21,"54569-3347-02 ")
 ;;3583
 ;;21,"54569-3439-00 ")
 ;;3584
 ;;21,"54569-3439-01 ")
 ;;3585
 ;;21,"54569-3439-03 ")
 ;;3586
 ;;21,"54569-3439-04 ")
 ;;3587
 ;;21,"54569-3456-00 ")
 ;;3588
 ;;21,"54569-3456-01 ")
 ;;3589
 ;;21,"54569-3456-02 ")
 ;;3590
 ;;21,"54569-3456-03 ")
 ;;3591
 ;;21,"54569-3456-04 ")
 ;;3592
 ;;21,"54569-3456-06 ")
 ;;3593
 ;;21,"54569-3477-00 ")
 ;;3594
 ;;21,"54569-3478-00 ")
 ;;3595
 ;;21,"54569-3479-00 ")
 ;;3596
 ;;21,"54569-3503-01 ")
 ;;3597
 ;;21,"54569-3531-02 ")
 ;;3598
 ;;21,"54569-3556-01 ")
 ;;3599
 ;;21,"54569-3563-00 ")
 ;;3600
 ;;21,"54569-3563-01 ")
 ;;3601
 ;;21,"54569-3563-02 ")
 ;;3602
 ;;21,"54569-3563-03 ")
 ;;3603
 ;;21,"54569-3563-04 ")
 ;;3604
 ;;21,"54569-3563-05 ")
 ;;3605
 ;;21,"54569-3630-00 ")
 ;;3606
 ;;21,"54569-3652-00 ")
 ;;3607
 ;;21,"54569-3653-00 ")
 ;;3608
 ;;21,"54569-3689-00 ")
 ;;3609
 ;;21,"54569-3689-01 ")
 ;;3610
 ;;21,"54569-3689-02 ")
 ;;3611
 ;;21,"54569-3689-03 ")
 ;;3612
 ;;21,"54569-3689-04 ")
 ;;3613
 ;;21,"54569-3689-05 ")
 ;;3614
 ;;21,"54569-3689-06 ")
 ;;3615
 ;;21,"54569-3743-00 ")
 ;;3616
 ;;21,"54569-3872-00 ")
 ;;3617
 ;;21,"54569-3876-00 ")
 ;;3618
 ;;21,"54569-3896-00 ")
 ;;3619
 ;;21,"54569-3897-00 ")
 ;;3620
 ;;21,"54569-3904-00 ")
 ;;3621
 ;;21,"54569-3986-01 ")
 ;;3622
 ;;21,"54569-4003-00 ")
 ;;3623
 ;;21,"54569-4003-01 ")
 ;;3624
 ;;21,"54569-4003-02 ")
 ;;3625
 ;;21,"54569-4005-00 ")
 ;;3626
 ;;21,"54569-4005-01 ")
 ;;3627
 ;;21,"54569-4013-00 ")
 ;;3628
 ;;21,"54569-4058-01 ")
 ;;3629
 ;;21,"54569-4230-00 ")
 ;;3630
 ;;21,"54569-4231-00 ")
 ;;3631
 ;;21,"54569-4232-00 ")
 ;;3632
 ;;21,"54569-4270-00 ")
 ;;3633
 ;;21,"54569-4271-00 ")
 ;;3634
 ;;21,"54569-4294-00 ")
 ;;3635
 ;;21,"54569-4311-00 ")
 ;;3636
 ;;21,"54569-4325-00 ")
 ;;3637
 ;;21,"54569-4353-00 ")
 ;;3638
 ;;21,"54569-4391-00 ")
 ;;3639
 ;;21,"54569-4391-01 ")
 ;;3640
 ;;21,"54569-4391-02 ")
 ;;3641
 ;;21,"54569-4391-03 ")
 ;;3642
 ;;21,"54569-4391-04 ")
 ;;3643
 ;;21,"54569-4417-00 ")
 ;;3644
 ;;21,"54569-4458-00 ")
 ;;3645
 ;;21,"54569-4458-01 ")
 ;;3646
 ;;21,"54569-4458-02 ")
 ;;3647
 ;;21,"54569-4489-00 ")
 ;;3648
 ;;21,"54569-4489-01 ")
 ;;3649
 ;;21,"54569-4489-02 ")
 ;;3650
 ;;21,"54569-4489-03 ")
 ;;3651
 ;;21,"54569-4489-04 ")
 ;;3652
 ;;21,"54569-4497-00 ")
 ;;3653
 ;;21,"54569-4522-00 ")
 ;;3654
 ;;21,"54569-4522-01 ")
 ;;3655
 ;;21,"54569-4522-02 ")
 ;;3656
 ;;21,"54569-4551-01 ")
 ;;3657
 ;;21,"54569-4567-00 ")
 ;;3658
 ;;21,"54569-4647-00 ")
 ;;3659
 ;;21,"54569-4689-00 ")
 ;;3660
 ;;21,"54569-4712-00 ")
 ;;3661
 ;;21,"54569-4713-00 ")
 ;;3662
 ;;21,"54569-4713-02 ")
 ;;3663
 ;;21,"54569-4737-00 ")
 ;;3664
 ;;21,"54569-4783-00 ")
 ;;3665
 ;;21,"54569-4790-00 ")
 ;;3666
 ;;21,"54569-4791-00 ")
 ;;3667
 ;;21,"54569-4791-01 ")
 ;;3668
 ;;21,"54569-4797-00 ")
 ;;3669
 ;;21,"54569-4820-00 ")
 ;;3670
 ;;21,"54569-4877-00 ")
 ;;3671
 ;;21,"54569-4889-00 ")
 ;;3672
 ;;21,"54569-4892-00 ")
 ;;3673
 ;;21,"54569-4915-00 ")
 ;;3674
 ;;21,"54569-4915-01 ")
 ;;3675
 ;;21,"54569-4915-02 ")
 ;;3676
 ;;21,"54569-4922-00 ")
 ;;3677
 ;;21,"54569-4922-01 ")
 ;;3678
 ;;21,"54569-4922-02 ")
 ;;3679
 ;;21,"54569-4953-00 ")
 ;;3680
 ;;21,"54569-4972-00 ")
 ;;3681
 ;;21,"54569-5149-00 ")
 ;;3682
 ;;21,"54569-5154-00 ")
 ;;3683
 ;;21,"54569-5182-00 ")
 ;;3684
 ;;21,"54569-5193-00 ")
 ;;3685
 ;;21,"54569-5214-00 ")
 ;;3686
 ;;21,"54569-5214-01 ")
 ;;3687
 ;;21,"54569-5215-00 ")
 ;;3688
 ;;21,"54569-5314-00 ")
 ;;3689
 ;;21,"54569-5344-00 ")
 ;;3690
 ;;21,"54569-5375-00 ")
 ;;3691
 ;;21,"54569-5386-00 ")
 ;;3692
 ;;21,"54569-5386-01 ")
 ;;3693
 ;;21,"54569-5386-02 ")
 ;;3694
 ;;21,"54569-5386-03 ")
 ;;3695
 ;;21,"54569-5418-00 ")
 ;;3696
 ;;21,"54569-5448-00 ")
 ;;3697
 ;;21,"54569-5470-00 ")
 ;;3698
 ;;21,"54569-5470-01 ")
 ;;3699
 ;;21,"54569-5470-02 ")
 ;;3700
 ;;21,"54569-5470-03 ")
 ;;3701
 ;;21,"54569-5471-00 ")
 ;;3702
 ;;21,"54569-5471-01 ")
 ;;3703
 ;;21,"54569-5471-02 ")
 ;;3704
 ;;21,"54569-5471-03 ")
 ;;3705
 ;;21,"54569-5471-04 ")
 ;;3706
 ;;21,"54569-5487-00 ")
 ;;3707
 ;;21,"54569-5488-00 ")
 ;;3708
 ;;21,"54569-5499-00 ")
 ;;3709
 ;;21,"54569-5510-00 ")
 ;;3710
 ;;21,"54569-5522-00 ")
 ;;3711
 ;;21,"54569-5553-00 ")
 ;;3712
 ;;21,"54569-5557-01 ")
 ;;3713
 ;;21,"54569-5574-00 ")
 ;;3714
 ;;21,"54569-5574-01 ")
 ;;3715
 ;;21,"54569-5574-02 ")
 ;;3716
 ;;21,"54569-5574-03 ")
 ;;3717
 ;;21,"54569-5574-04 ")
 ;;3718
 ;;21,"54569-5574-05 ")
 ;;3719
 ;;21,"54569-5574-06 ")
 ;;3720
 ;;21,"54569-5583-01 ")
 ;;3721
 ;;21,"54569-5584-00 ")
 ;;3722
 ;;21,"54569-5584-01 ")
 ;;3723
 ;;21,"54569-5584-02 ")
 ;;3724
 ;;21,"54569-5622-00 ")
 ;;3725
 ;;21,"54569-5638-00 ")
 ;;3726
 ;;21,"54569-5638-01 ")
 ;;3727
 ;;21,"54569-5649-00 ")
 ;;3728
 ;;21,"54569-5650-00 ")
 ;;3729
 ;;21,"54569-5688-00 ")
 ;;3730
 ;;21,"54569-5689-00 ")
 ;;3731
 ;;21,"54569-5690-00 ")
 ;;3732
 ;;21,"54569-5698-00 ")
 ;;3733
 ;;21,"54569-5698-01 ")
 ;;3734
 ;;21,"54569-5698-02 ")
 ;;3735
 ;;21,"54569-5720-00 ")
 ;;3736
 ;;21,"54569-5721-00 ")
 ;;3737
 ;;21,"54569-5722-00 ")
 ;;3738
 ;;21,"54569-5723-00 ")
 ;;3739
 ;;21,"54569-5724-00 ")
 ;;3740
 ;;21,"54569-5725-00 ")
 ;;3741
 ;;21,"54569-5727-00 ")
 ;;3742
 ;;21,"54569-5754-00 ")
 ;;3743
 ;;21,"54569-5755-00 ")
 ;;3744
 ;;21,"54569-5756-00 ")
 ;;3745
 ;;21,"54569-5774-00 ")
 ;;3746
 ;;21,"54569-5774-01 ")
 ;;3747
 ;;21,"54569-5774-02 ")
 ;;3748
 ;;21,"54569-5774-03 ")
 ;;3749
 ;;21,"54569-5784-00 ")
 ;;3750
 ;;21,"54569-5785-00 ")
 ;;3751
 ;;21,"54569-5804-00 ")
 ;;3752
 ;;21,"54569-5806-00 ")
 ;;3753
 ;;21,"54569-5807-00 ")
 ;;3754
 ;;21,"54569-5808-00 ")
 ;;3755
 ;;21,"54569-5809-00 ")
 ;;3756
 ;;21,"54569-5810-00 ")
 ;;3757
 ;;21,"54569-5813-00 ")
 ;;3758
 ;;21,"54569-5824-00 ")
 ;;3759
 ;;21,"54569-5829-00 ")
 ;;3760
 ;;21,"54569-5831-00 ")
 ;;3761
 ;;21,"54569-5899-00 ")
 ;;3762
 ;;21,"54569-5917-00 ")
 ;;3763
 ;;21,"54569-5918-00 ")
 ;;3764
 ;;21,"54569-5919-00 ")
 ;;3765
 ;;21,"54569-5920-00 ")
 ;;3766
 ;;21,"54569-5921-00 ")
 ;;3767
 ;;21,"54569-5921-01 ")
 ;;3768
 ;;21,"54569-5921-02 ")
 ;;3769
 ;;21,"54569-5921-03 ")
 ;;3770
 ;;21,"54569-6037-00 ")
 ;;3771
 ;;21,"54569-6043-00 ")
 ;;3772
 ;;21,"54569-6083-00 ")
 ;;3773
 ;;21,"54569-6084-00 ")
 ;;3774
 ;;21,"54569-6195-00 ")
 ;;3775
 ;;21,"54569-6204-00 ")
 ;;3776
 ;;21,"54569-6237-00 ")
 ;;3777
 ;;21,"54569-6237-01 ")
 ;;3778
 ;;21,"54569-6237-02 ")
 ;;3779
 ;;21,"54569-6237-03 ")
 ;;3780
 ;;21,"54569-6238-00 ")
 ;;3781
 ;;21,"54569-6238-01 ")
 ;;3782
 ;;21,"54569-6241-00 ")
 ;;3783
 ;;21,"54569-6241-01 ")
 ;;3784
 ;;21,"54569-6448-00 ")
 ;;3785
 ;;21,"54569-8004-00 ")
 ;;3786
 ;;21,"54569-8021-00 ")
 ;;3787
 ;;21,"54799-0533-60 ")
 ;;3788
 ;;21,"54799-0534-66 ")
 ;;3789
 ;;21,"54799-0535-60 ")
 ;;3790
 ;;21,"54807-0251-20 ")
 ;;3791
 ;;21,"54868-0018-05 ")
 ;;3792
 ;;21,"54868-0021-00 ")
 ;;3793
 ;;21,"54868-0021-01 ")
 ;;3794
 ;;21,"54868-0021-02 ")
 ;;3795
 ;;21,"54868-0021-04 ")
 ;;3796
 ;;21,"54868-0021-05 ")
 ;;3797
 ;;21,"54868-0021-06 ")
 ;;3798
 ;;21,"54868-0021-07 ")
 ;;3799
 ;;21,"54868-0021-09 ")
 ;;3800
 ;;21,"54868-0023-00 ")
 ;;3801
 ;;21,"54868-0023-01 ")
 ;;3802
 ;;21,"54868-0023-02 ")
 ;;3803
 ;;21,"54868-0023-03 ")
 ;;3804
 ;;21,"54868-0023-05 ")
 ;;3805
 ;;21,"54868-0023-06 ")
 ;;3806
 ;;21,"54868-0023-08 ")
 ;;3807
 ;;21,"54868-0023-09 ")
 ;;3808
 ;;21,"54868-0023-14 ")
 ;;3809
 ;;21,"54868-0153-00 ")
 ;;3810
 ;;21,"54868-0153-01 ")
 ;;3811
 ;;21,"54868-0153-03 ")
 ;;3812
 ;;21,"54868-0153-05 ")
 ;;3813
 ;;21,"54868-0153-08 ")
 ;;3814
 ;;21,"54868-0153-09 ")
 ;;3815
 ;;21,"54868-0154-00 ")
 ;;3816
 ;;21,"54868-0154-01 ")
 ;;3817
 ;;21,"54868-0154-02 ")
 ;;3818
 ;;21,"54868-0154-03 ")
 ;;3819
 ;;21,"54868-0154-04 ")
 ;;3820
 ;;21,"54868-0154-06 ")
 ;;3821
 ;;21,"54868-0154-07 ")
 ;;3822
 ;;21,"54868-0154-08 ")
 ;;3823
 ;;21,"54868-0154-09 ")
 ;;3824
 ;;21,"54868-0155-01 ")
 ;;3825
 ;;21,"54868-0191-01 ")
 ;;3826
 ;;21,"54868-0191-02 ")
 ;;3827
 ;;21,"54868-0191-04 ")
 ;;3828
 ;;21,"54868-0191-05 ")
 ;;3829
 ;;21,"54868-0191-06 ")
 ;;3830
 ;;21,"54868-0196-01 ")
 ;;3831
 ;;21,"54868-0196-02 ")
 ;;3832
 ;;21,"54868-0199-00 ")
 ;;3833
 ;;21,"54868-0199-02 ")
 ;;3834
 ;;21,"54868-0199-03 ")
 ;;3835
 ;;21,"54868-0200-00 ")
 ;;3836
 ;;21,"54868-0200-01 ")
 ;;3837
 ;;21,"54868-0224-01 ")
 ;;3838
 ;;21,"54868-0224-03 ")
 ;;3839
 ;;21,"54868-0224-04 ")
 ;;3840
 ;;21,"54868-0224-06 ")
 ;;3841
 ;;21,"54868-0276-00 ")
 ;;3842
 ;;21,"54868-0286-00 ")
 ;;3843
 ;;21,"54868-0302-01 ")
 ;;3844
 ;;21,"54868-0302-02 ")
 ;;3845
 ;;21,"54868-0333-01 ")
 ;;3846
 ;;21,"54868-0333-02 ")
 ;;3847
 ;;21,"54868-0333-04 ")
 ;;3848
 ;;21,"54868-0333-06 ")
 ;;3849
 ;;21,"54868-0333-07 ")
 ;;3850
 ;;21,"54868-0337-00 ")
 ;;3851
 ;;21,"54868-0337-01 ")
 ;;3852
 ;;21,"54868-0337-03 ")
 ;;3853
 ;;21,"54868-0387-00 ")
 ;;3854
 ;;21,"54868-0387-01 ")
 ;;3855
 ;;21,"54868-0387-02 ")
 ;;3856
 ;;21,"54868-0387-03 ")
 ;;3857
 ;;21,"54868-0388-00 ")
 ;;3858
 ;;21,"54868-0388-01 ")
 ;;3859
 ;;21,"54868-0388-02 ")
 ;;3860
 ;;21,"54868-0388-04 ")
 ;;3861
 ;;21,"54868-0388-05 ")
 ;;3862
 ;;21,"54868-0425-00 ")
 ;;3863
 ;;21,"54868-0425-01 ")
 ;;3864
 ;;21,"54868-0538-01 ")
 ;;3865
 ;;21,"54868-0538-02 ")
 ;;3866
 ;;21,"54868-0559-00 ")
 ;;3867
 ;;21,"54868-0654-00 ")
 ;;3868
 ;;21,"54868-0737-00 ")
 ;;3869
 ;;21,"54868-0737-01 ")
 ;;3870
 ;;21,"54868-0840-00 ")
 ;;3871
 ;;21,"54868-0840-01 ")
 ;;3872
 ;;21,"54868-0840-02 ")
 ;;3873
 ;;21,"54868-0840-03 ")
 ;;3874
 ;;21,"54868-0840-04 ")
 ;;3875
 ;;21,"54868-0934-00 ")
 ;;3876
 ;;21,"54868-0934-01 ")
 ;;3877
 ;;21,"54868-0937-00 ")
 ;;3878
 ;;21,"54868-0937-01 ")
 ;;3879
 ;;21,"54868-0937-02 ")
 ;;3880
 ;;21,"54868-0939-00 ")
 ;;3881
 ;;21,"54868-0939-01 ")
 ;;3882