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

BGP47Y8.m

Go to the documentation of this file.
BGP47Y8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 17, 2014;
 ;;14.1;IHS CLINICAL REPORTING;;MAY 29, 2014;Build 114
 ;
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-5685-01 ")
 ;;4079
 ;;21,"54569-5709-00 ")
 ;;2639
 ;;21,"54569-5710-00 ")
 ;;2676
 ;;21,"54569-5711-00 ")
 ;;2717
 ;;21,"54569-5728-00 ")
 ;;2323
 ;;21,"54569-5801-00 ")
 ;;4632
 ;;21,"54569-5867-00 ")
 ;;3085
 ;;21,"54569-5878-00 ")
 ;;3942
 ;;21,"54569-5880-01 ")
 ;;4881
 ;;21,"54569-5903-00 ")
 ;;4972
 ;;21,"54569-5916-00 ")
 ;;2556
 ;;21,"54569-5936-00 ")
 ;;2885
 ;;21,"54569-5937-00 ")
 ;;3774
 ;;21,"54569-5938-00 ")
 ;;3829
 ;;21,"54569-5998-00 ")
 ;;4956
 ;;21,"54569-5999-00 ")
 ;;4816
 ;;21,"54569-6091-00 ")
 ;;4279
 ;;21,"54569-6091-01 ")
 ;;4280
 ;;21,"54569-6092-00 ")
 ;;4303
 ;;21,"54569-6092-01 ")
 ;;4304
 ;;21,"54569-6098-00 ")
 ;;1388
 ;;21,"54569-6110-01 ")
 ;;5155
 ;;21,"54569-6111-00 ")
 ;;2870
 ;;21,"54569-6111-01 ")
 ;;2871
 ;;21,"54569-6112-00 ")
 ;;2935
 ;;21,"54569-6112-01 ")
 ;;2936
 ;;21,"54569-6173-00 ")
 ;;3428
 ;;21,"54569-6173-01 ")
 ;;3429
 ;;21,"54569-6180-00 ")
 ;;4943
 ;;21,"54569-6180-01 ")
 ;;4944
 ;;21,"54569-6182-00 ")
 ;;4870
 ;;21,"54569-6182-01 ")
 ;;4871
 ;;21,"54569-6223-00 ")
 ;;4795
 ;;21,"54569-6223-01 ")
 ;;4796
 ;;21,"54569-6228-00 ")
 ;;4465
 ;;21,"54569-6228-01 ")
 ;;4466
 ;;21,"54569-6228-02 ")
 ;;4467
 ;;21,"54569-6273-00 ")
 ;;3717
 ;;21,"54569-6274-00 ")
 ;;3718
 ;;21,"54569-6294-00 ")
 ;;3317
 ;;21,"54569-6294-01 ")
 ;;3318
 ;;21,"54569-6297-00 ")
 ;;3533
 ;;21,"54569-6297-01 ")
 ;;3534
 ;;21,"54569-6309-00 ")
 ;;3171
 ;;21,"54569-6416-00 ")
 ;;2788
 ;;21,"54868-0009-00 ")
 ;;4659
 ;;21,"54868-0009-01 ")
 ;;4660
 ;;21,"54868-0620-02 ")
 ;;1089
 ;;21,"54868-0669-01 ")
 ;;416
 ;;21,"54868-0669-02 ")
 ;;417
 ;;21,"54868-0669-03 ")
 ;;418
 ;;21,"54868-1415-01 ")
 ;;533
 ;;21,"54868-1501-00 ")
 ;;2532
 ;;21,"54868-1501-01 ")
 ;;2533
 ;;21,"54868-1502-00 ")
 ;;2254
 ;;21,"54868-1775-01 ")
 ;;334
 ;;21,"54868-1775-04 ")
 ;;335
 ;;21,"54868-1802-00 ")
 ;;4547
 ;;21,"54868-1960-00 ")
 ;;1729
 ;;21,"54868-1970-01 ")
 ;;1966
 ;;21,"54868-1970-02 ")
 ;;1967
 ;;21,"54868-1970-03 ")
 ;;1968
 ;;21,"54868-2335-00 ")
 ;;3443
 ;;21,"54868-2335-01 ")
 ;;3444
 ;;21,"54868-2350-00 ")
 ;;121
 ;;21,"54868-2350-01 ")
 ;;122
 ;;21,"54868-2350-02 ")
 ;;123
 ;;21,"54868-2350-03 ")
 ;;124
 ;;21,"54868-2350-04 ")
 ;;125
 ;;21,"54868-2351-00 ")
 ;;223
 ;;21,"54868-2351-01 ")
 ;;224
 ;;21,"54868-2351-02 ")
 ;;225
 ;;21,"54868-2351-03 ")
 ;;226
 ;;21,"54868-2352-00 ")
 ;;311
 ;;21,"54868-2352-01 ")
 ;;312
 ;;21,"54868-2368-00 ")
 ;;1291
 ;;21,"54868-2368-01 ")
 ;;1292
 ;;21,"54868-2368-02 ")
 ;;1293
 ;;21,"54868-2644-00 ")
 ;;2746
 ;;21,"54868-2644-01 ")
 ;;2747
 ;;21,"54868-2644-02 ")
 ;;2748
 ;;21,"54868-2645-00 ")
 ;;2808
 ;;21,"54868-2645-01 ")
 ;;2809
 ;;21,"54868-2645-02 ")
 ;;2810
 ;;21,"54868-2645-03 ")
 ;;2811
 ;;21,"54868-2665-00 ")
 ;;2607
 ;;21,"54868-2665-01 ")
 ;;2608
 ;;21,"54868-2666-01 ")
 ;;2644
 ;;21,"54868-2666-02 ")
 ;;2645
 ;;21,"54868-2666-03 ")
 ;;2646
 ;;21,"54868-2666-04 ")
 ;;2647
 ;;21,"54868-2847-00 ")
 ;;4572
 ;;21,"54868-3279-00 ")
 ;;1364
 ;;21,"54868-3279-02 ")
 ;;1365
 ;;21,"54868-3279-03 ")
 ;;1366
 ;;21,"54868-3307-00 ")
 ;;2583
 ;;21,"54868-3307-01 ")
 ;;2584
 ;;21,"54868-3443-00 ")
 ;;4531
 ;;21,"54868-3443-01 ")
 ;;4532
 ;;21,"54868-3445-00 ")
 ;;2680
 ;;21,"54868-3445-01 ")
 ;;2681
 ;;21,"54868-3690-01 ")
 ;;42
 ;;21,"54868-3723-01 ")
 ;;392
 ;;21,"54868-3723-02 ")
 ;;393
 ;;21,"54868-3723-03 ")
 ;;394
 ;;21,"54868-3723-04 ")
 ;;395
 ;;21,"54868-3723-05 ")
 ;;396
 ;;21,"54868-3724-01 ")
 ;;527
 ;;21,"54868-3724-02 ")
 ;;528
 ;;21,"54868-3724-03 ")
 ;;529
 ;;21,"54868-3724-04 ")
 ;;530
 ;;21,"54868-3725-01 ")
 ;;619
 ;;21,"54868-3725-02 ")
 ;;620
 ;;21,"54868-3725-03 ")
 ;;621
 ;;21,"54868-3725-04 ")
 ;;622
 ;;21,"54868-3726-00 ")
 ;;3338
 ;;21,"54868-3726-01 ")
 ;;3339
 ;;21,"54868-3726-02 ")
 ;;3340
 ;;21,"54868-3769-00 ")
 ;;4093
 ;;21,"54868-3846-00 ")
 ;;2876
 ;;21,"54868-3846-01 ")
 ;;2877
 ;;21,"54868-3846-02 ")
 ;;2878
 ;;21,"54868-3846-03 ")
 ;;2879
 ;;21,"54868-3866-00 ")
 ;;4754
 ;;21,"54868-3866-01 ")
 ;;4755
 ;;21,"54868-3891-00 ")
 ;;4114
 ;;21,"54868-3906-00 ")
 ;;4048
 ;;21,"54868-3906-01 ")
 ;;4049
 ;;21,"54868-3906-02 ")
 ;;4050
 ;;21,"54868-4003-00 ")
 ;;4409
 ;;21,"54868-4062-00 ")
 ;;4121
 ;;21,"54868-4062-01 ")
 ;;4122
 ;;21,"54868-4066-00 ")
 ;;3747
 ;;21,"54868-4066-01 ")
 ;;3748
 ;;21,"54868-4073-00 ")
 ;;3800
 ;;21,"54868-4073-01 ")
 ;;3801
 ;;21,"54868-4073-02 ")
 ;;3802
 ;;21,"54868-4073-03 ")
 ;;3803
 ;;21,"54868-4074-00 ")
 ;;3860
 ;;21,"54868-4074-01 ")
 ;;3861
 ;;21,"54868-4074-02 ")
 ;;3862
 ;;21,"54868-4074-03 ")
 ;;3863
 ;;21,"54868-4074-04 ")
 ;;3864
 ;;21,"54868-4178-00 ")
 ;;3610
 ;;21,"54868-4199-00 ")
 ;;3120
 ;;21,"54868-4199-01 ")
 ;;3121
 ;;21,"54868-4199-02 ")
 ;;3122
 ;;21,"54868-4209-00 ")
 ;;1444
 ;;21,"54868-4331-00 ")
 ;;1124
 ;;21,"54868-4331-01 ")
 ;;1125
 ;;21,"54868-4331-02 ")
 ;;1126
 ;;21,"54868-4331-03 ")
 ;;1127
 ;;21,"54868-4332-00 ")
 ;;697
 ;;21,"54868-4332-01 ")
 ;;698
 ;;21,"54868-4332-02 ")
 ;;699
 ;;21,"54868-4341-00 ")
 ;;4874
 ;;21,"54868-4341-01 ")
 ;;4875
 ;;21,"54868-4357-00 ")
 ;;796
 ;;21,"54868-4357-01 ")
 ;;855
 ;;21,"54868-4357-02 ")
 ;;856
 ;;21,"54868-4357-03 ")
 ;;857
 ;;21,"54868-4358-00 ")
 ;;999
 ;;21,"54868-4358-01 ")
 ;;1000
 ;;21,"54868-4358-02 ")
 ;;1001
 ;;21,"54868-4358-03 ")
 ;;1002
 ;;21,"54868-4406-00 ")
 ;;3611
 ;;21,"54868-4413-00 ")
 ;;3042
 ;;21,"54868-4414-00 ")
 ;;3204
 ;;21,"54868-4414-01 ")
 ;;3205
 ;;21,"54868-4425-00 ")
 ;;5011
 ;;21,"54868-4425-03 ")
 ;;5012
 ;;21,"54868-4428-00 ")
 ;;5068
 ;;21,"54868-4428-01 ")
 ;;5069
 ;;21,"54868-4428-02 ")
 ;;5070
 ;;21,"54868-4428-03 ")
 ;;5071
 ;;21,"54868-4479-00 ")
 ;;4536
 ;;21,"54868-4479-01 ")
 ;;4537
 ;;21,"54868-4479-02 ")
 ;;4538
 ;;21,"54868-4494-00 ")
 ;;4669
 ;;21,"54868-4526-00 ")
 ;;4710
 ;;21,"54868-4526-01 ")
 ;;4711
 ;;21,"54868-4539-00 ")
 ;;3599
 ;;21,"54868-4539-01 ")
 ;;3600
 ;;21,"54868-4540-00 ")
 ;;4983
 ;;21,"54868-4540-01 ")
 ;;4984
 ;;21,"54868-4540-02 ")
 ;;4985
 ;;21,"54868-4605-00 ")
 ;;3605
 ;;21,"54868-4605-01 ")
 ;;3606
 ;;21,"54868-4605-02 ")
 ;;3607
 ;;21,"54868-4612-00 ")
 ;;3051
 ;;21,"54868-4637-00 ")
 ;;4384
 ;;21,"54868-4637-01 ")
 ;;4385
 ;;21,"54868-4637-02 ")
 ;;4386
 ;;21,"54868-4637-03 ")
 ;;4387
 ;;21,"54868-4637-04 ")
 ;;4388
 ;;21,"54868-4645-00 ")
 ;;3674
 ;;21,"54868-4645-01 ")
 ;;3675
 ;;21,"54868-4645-02 ")
 ;;3676
 ;;21,"54868-4645-03 ")
 ;;3677
 ;;21,"54868-4646-00 ")
 ;;2440
 ;;21,"54868-4646-02 ")
 ;;2441
 ;;21,"54868-4646-03 ")
 ;;2442
 ;;21,"54868-4646-04 ")
 ;;2443
 ;;21,"54868-4646-05 ")
 ;;2444
 ;;21,"54868-4652-00 ")
 ;;3637
 ;;21,"54868-4652-01 ")
 ;;3638
 ;;21,"54868-4652-02 ")
 ;;3639
 ;;21,"54868-4652-03 ")
 ;;3640
 ;;21,"54868-4652-04 ")
 ;;3641
 ;;21,"54868-4652-05 ")
 ;;3642
 ;;21,"54868-4656-00 ")
 ;;1492
 ;;21,"54868-4656-01 ")
 ;;1493
 ;;21,"54868-4656-02 ")
 ;;1494
 ;;21,"54868-4656-03 ")
 ;;1495
 ;;21,"54868-4657-00 ")
 ;;1832
 ;;21,"54868-4657-01 ")
 ;;1833
 ;;21,"54868-4657-02 ")
 ;;1834
 ;;21,"54868-4657-03 ")
 ;;1835
 ;;21,"54868-4657-04 ")
 ;;1883
 ;;21,"54868-4657-05 ")
 ;;1884
 ;;21,"54868-4657-06 ")
 ;;1885
 ;;21,"54868-4657-08 ")
 ;;1748
 ;;21,"54868-4658-00 ")
 ;;2014
 ;;21,"54868-4658-01 ")
 ;;2015
 ;;21,"54868-4658-02 ")
 ;;2016
 ;;21,"54868-4658-03 ")
 ;;2017
 ;;21,"54868-4658-04 ")
 ;;2018
 ;;21,"54868-4678-00 ")
 ;;1535
 ;;21,"54868-4678-01 ")
 ;;1536
 ;;21,"54868-4678-02 ")
 ;;1537
 ;;21,"54868-4678-03 ")
 ;;1538
 ;;21,"54868-4678-04 ")
 ;;1534
 ;;21,"54868-4720-00 ")
 ;;3066
 ;;21,"54868-4720-01 ")
 ;;3067
 ;;21,"54868-4720-02 ")
 ;;3068
 ;;21,"54868-4720-03 ")
 ;;3069
 ;;21,"54868-4729-00 ")
 ;;4626
 ;;21,"54868-4780-00 ")
 ;;2275
 ;;21,"54868-4780-01 ")
 ;;2276
 ;;21,"54868-4780-02 ")
 ;;2274
 ;;21,"54868-4785-00 ")
 ;;4504
 ;;21,"54868-4785-01 ")
 ;;4505
 ;;21,"54868-4785-02 ")
 ;;4455
 ;;21,"54868-4785-03 ")
 ;;4456
 ;;21,"54868-4869-00 ")
 ;;4637
 ;;21,"54868-4870-00 ")
 ;;3939
 ;;21,"54868-4870-01 ")
 ;;3940
 ;;21,"54868-4870-02 ")
 ;;3941
 ;;21,"54868-4883-00 ")
 ;;2557
 ;;21,"54868-4883-01 ")
 ;;2558
 ;;21,"54868-4883-02 ")
 ;;2559
 ;;21,"54868-4885-00 ")
 ;;3572
 ;;21,"54868-4885-01 ")
 ;;3573
 ;;21,"54868-4904-00 ")
 ;;4063
 ;;21,"54868-4904-01 ")
 ;;4064
 ;;21,"54868-4977-00 ")
 ;;4276
 ;;21,"54868-4977-01 ")
 ;;4277
 ;;21,"54868-4977-02 ")
 ;;4278
 ;;21,"54868-4986-00 ")
 ;;3552
 ;;21,"54868-4986-01 ")
 ;;3553
 ;;21,"54868-4986-02 ")
 ;;3554
 ;;21,"54868-5001-00 ")
 ;;48
 ;;21,"54868-5001-01 ")
 ;;49
 ;;21,"54868-5001-02 ")
 ;;47
 ;;21,"54868-5055-00 ")
 ;;1341
 ;;21,"54868-5064-00 ")
 ;;1240
 ;;21,"54868-5064-01 ")
 ;;1241
 ;;21,"54868-5075-00 ")
 ;;4962
 ;;21,"54868-5075-01 ")
 ;;4963
 ;;21,"54868-5077-00 ")
 ;;3252
 ;;21,"54868-5078-00 ")
 ;;4965
 ;;21,"54868-5078-01 ")
 ;;4966
 ;;21,"54868-5079-00 ")
 ;;137
 ;;21,"54868-5079-01 ")
 ;;138
 ;;21,"54868-5079-02 ")
 ;;166
 ;;21,"54868-5082-00 ")
 ;;3696
 ;;21,"54868-5082-01 ")
 ;;3697
 ;;21,"54868-5082-02 ")
 ;;3698
 ;;21,"54868-5082-03 ")
 ;;3699
 ;;21,"54868-5099-00 ")
 ;;2996
 ;;21,"54868-5099-01 ")
 ;;2997
 ;;21,"54868-5100-00 ")
 ;;4149
 ;;21,"54868-5100-01 ")
 ;;4150
 ;;21,"54868-5100-02 ")
 ;;4151
 ;;21,"54868-5170-00 ")
 ;;4946
 ;;21,"54868-5170-01 ")
 ;;4947
 ;;21,"54868-5182-00 ")
 ;;1390
 ;;21,"54868-5182-01 ")
 ;;1391
 ;;21,"54868-5182-02 ")
 ;;1392
 ;;21,"54868-5196-00 ")
 ;;668
 ;;21,"54868-5196-01 ")
 ;;669
 ;;21,"54868-5196-02 ")
 ;;670
 ;;21,"54868-5204-00 ")
 ;;259
 ;;21,"54868-5204-01 ")
 ;;260
 ;;21,"54868-5204-02 ")
 ;;261
 ;;21,"54868-5204-03 ")
 ;;262
 ;;21,"54868-5241-00 ")
 ;;2670
 ;;21,"54868-5241-01 ")
 ;;2671
 ;;21,"54868-5241-02 ")
 ;;2672
 ;;21,"54868-5245-00 ")
 ;;2632
 ;;21,"54868-5245-01 ")
 ;;2633
 ;;21,"54868-5245-02 ")
 ;;2634
 ;;21,"54868-5246-00 ")
 ;;2712
 ;;21,"54868-5246-01 ")
 ;;2713
 ;;21,"54868-5246-02 ")
 ;;2714
 ;;21,"54868-5256-00 ")
 ;;4025
 ;;21,"54868-5279-00 ")
 ;;2586
 ;;21,"54868-5281-00 ")
 ;;4656
 ;;21,"54868-5281-01 ")
 ;;4657
 ;;21,"54868-5296-00 ")
 ;;4080
 ;;21,"54868-5297-00 ")
 ;;4994
 ;;21,"54868-5311-00 ")
 ;;3989
 ;;21,"54868-5311-01 ")
 ;;3990
 ;;21,"54868-5313-00 ")
 ;;4087
 ;;21,"54868-5313-01 ")
 ;;4088
 ;;21,"54868-5320-00 ")
 ;;3996
 ;;21,"54868-5320-01 ")
 ;;3997
 ;;21,"54868-5320-03 ")
 ;;3998
 ;;21,"54868-5320-04 ")
 ;;3999
 ;;21,"54868-5323-00 ")
 ;;5102
 ;;21,"54868-5323-01 ")
 ;;5125
 ;;21,"54868-5346-00 ")
 ;;4179
 ;;21,"54868-5346-01 ")
 ;;4180
 ;;21,"54868-5392-00 ")
 ;;22
 ;;21,"54868-5418-00 ")
 ;;4976
 ;;21,"54868-5465-00 ")
 ;;4738
 ;;21,"54868-5465-01 ")
 ;;4739
 ;;21,"54868-5466-00 ")
 ;;3074
 ;;21,"54868-5466-01 ")
 ;;3075
 ;;21,"54868-5469-00 ")
 ;;4193
 ;;21,"54868-5469-01 ")
 ;;4194
 ;;21,"54868-5475-00 ")
 ;;4576
 ;;21,"54868-5489-00 ")
 ;;3028
 ;;21,"54868-5503-00 ")
 ;;4127
 ;;21,"54868-5503-01 ")
 ;;4128
 ;;21,"54868-5548-02 ")
 ;;3982
 ;;21,"54868-5591-00 ")
 ;;3023
 ;;21,"54868-5607-00 ")
 ;;5176
 ;;21,"54868-5607-01 ")
 ;;5177
 ;;21,"54868-5690-00 ")
 ;;3967
 ;;21,"54868-5690-01 ")
 ;;3968
 ;;21,"54868-5690-02 ")
 ;;3969
 ;;21,"54868-5690-03 ")
 ;;3970
 ;;21,"54868-5705-00 ")
 ;;4817
 ;;21,"54868-5747-00 ")
 ;;2720
 ;;21,"54868-5747-01 ")
 ;;2721
 ;;21,"54868-5772-00 ")
 ;;3715
 ;;21,"54868-5780-00 ")
 ;;5147
 ;;21,"54868-5780-01 ")
 ;;5148
 ;;21,"54868-5781-00 ")
 ;;3893
 ;;21,"54868-5781-01 ")
 ;;3894
 ;;21,"54868-5781-02 ")
 ;;3895
 ;;21,"54868-5781-03 ")
 ;;3896
 ;;21,"54868-5782-00 ")
 ;;3830
 ;;21,"54868-5782-01 ")
 ;;3831
 ;;21,"54868-5782-02 ")
 ;;3832
 ;;21,"54868-5782-03 ")
 ;;3833
 ;;21,"54868-5782-04 ")
 ;;3834
 ;;21,"54868-5783-00 ")
 ;;3887
 ;;21,"54868-5783-01 ")
 ;;3888
 ;;21,"54868-5787-00 ")
 ;;4102
 ;;21,"54868-5792-00 ")
 ;;3771
 ;;21,"54868-5792-01 ")
 ;;3772
 ;;21,"54868-5792-02 ")
 ;;3773
 ;;21,"54868-5793-00 ")
 ;;3732
 ;;21,"54868-5793-01 ")
 ;;3733
 ;;21,"54868-5804-00 ")
 ;;4612
 ;;21,"54868-5842-00 ")
 ;;2831
 ;;21,"54868-5842-01 ")
 ;;2832
 ;;21,"54868-5842-02 ")
 ;;2833
 ;;21,"54868-5842-03 ")
 ;;2834
 ;;21,"54868-5843-00 ")
 ;;2904
 ;;21,"54868-5843-01 ")
 ;;2905
 ;;21,"54868-5843-02 ")
 ;;2906
 ;;21,"54868-5843-03 ")
 ;;2907
 ;;21,"54868-5856-00 ")
 ;;2765
 ;;21,"54868-5856-01 ")
 ;;2766
 ;;21,"54868-5896-00 ")
 ;;2738
 ;;21,"54868-5928-00 ")
 ;;2540
 ;;21,"54868-5977-00 ")
 ;;3621
 ;;21,"54868-5983-00 ")
 ;;4614
 ;;21,"54868-5983-01 ")
 ;;4615
 ;;21,"54868-5996-00 ")
 ;;4609
 ;;21,"54868-5996-01 ")
 ;;4610
 ;;21,"54868-5997-00 ")
 ;;4603
 ;;21,"54868-5997-01 ")
 ;;4604
 ;;21,"54868-6036-00 ")
 ;;4588