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

BGP47Y5.m

Go to the documentation of this file.
BGP47Y5 ;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,"21695-0734-30 ")
 ;;4323
 ;;21,"21695-0734-60 ")
 ;;4324
 ;;21,"21695-0734-90 ")
 ;;4325
 ;;21,"21695-0735-30 ")
 ;;4492
 ;;21,"21695-0735-60 ")
 ;;4493
 ;;21,"21695-0735-90 ")
 ;;4494
 ;;21,"21695-0780-30 ")
 ;;4152
 ;;21,"21695-0788-90 ")
 ;;4876
 ;;21,"21695-0821-30 ")
 ;;2798
 ;;21,"21695-0821-90 ")
 ;;2799
 ;;21,"21695-0822-30 ")
 ;;2872
 ;;21,"21695-0822-60 ")
 ;;2873
 ;;21,"21695-0822-78 ")
 ;;2874
 ;;21,"21695-0822-90 ")
 ;;2875
 ;;21,"21695-0823-30 ")
 ;;2933
 ;;21,"21695-0823-60 ")
 ;;2934
 ;;21,"21695-0831-30 ")
 ;;4939
 ;;21,"21695-0831-90 ")
 ;;4940
 ;;21,"21695-0866-90 ")
 ;;3767
 ;;21,"21695-0877-30 ")
 ;;295
 ;;21,"21695-0877-90 ")
 ;;296
 ;;21,"21695-0916-30 ")
 ;;3912
 ;;21,"21695-0916-90 ")
 ;;3913
 ;;21,"21695-0917-90 ")
 ;;3655
 ;;21,"21695-0918-90 ")
 ;;3659
 ;;21,"21695-0919-90 ")
 ;;3708
 ;;21,"21695-0966-30 ")
 ;;4837
 ;;21,"21695-0989-30 ")
 ;;3282
 ;;21,"23155-0060-01 ")
 ;;4185
 ;;21,"23155-0061-01 ")
 ;;4190
 ;;21,"23490-0107-03 ")
 ;;3080
 ;;21,"23490-0108-03 ")
 ;;3128
 ;;21,"23490-0109-09 ")
 ;;3194
 ;;21,"23490-5118-01 ")
 ;;53
 ;;21,"23490-5119-01 ")
 ;;139
 ;;21,"23490-5119-02 ")
 ;;140
 ;;21,"23490-5120-03 ")
 ;;282
 ;;21,"23490-5120-09 ")
 ;;283
 ;;21,"23490-5121-01 ")
 ;;32
 ;;21,"23490-5191-01 ")
 ;;671
 ;;21,"23490-5192-01 ")
 ;;339
 ;;21,"23490-5193-01 ")
 ;;421
 ;;21,"23490-5193-02 ")
 ;;422
 ;;21,"23490-5193-03 ")
 ;;423
 ;;21,"23490-5194-00 ")
 ;;640
 ;;21,"23490-5194-01 ")
 ;;641
 ;;21,"23490-5194-02 ")
 ;;642
 ;;21,"23490-5491-01 ")
 ;;955
 ;;21,"23490-5491-02 ")
 ;;956
 ;;21,"23490-5491-08 ")
 ;;957
 ;;21,"23490-5491-09 ")
 ;;958
 ;;21,"23490-5492-01 ")
 ;;1119
 ;;21,"23490-5492-02 ")
 ;;1090
 ;;21,"23490-5494-01 ")
 ;;770
 ;;21,"23490-5494-02 ")
 ;;771
 ;;21,"23490-5815-00 ")
 ;;1840
 ;;21,"23490-5815-01 ")
 ;;1841
 ;;21,"23490-5815-06 ")
 ;;1842
 ;;21,"23490-5815-09 ")
 ;;1882
 ;;21,"23490-5816-01 ")
 ;;2197
 ;;21,"23490-5816-02 ")
 ;;2198
 ;;21,"23490-5816-06 ")
 ;;2199
 ;;21,"23490-5817-02 ")
 ;;1479
 ;;21,"23490-5818-02 ")
 ;;2426
 ;;21,"23490-5818-09 ")
 ;;2427
 ;;21,"23490-5819-02 ")
 ;;1687
 ;;21,"23490-5819-09 ")
 ;;1688
 ;;21,"23490-5820-01 ")
 ;;4240
 ;;21,"23490-5820-03 ")
 ;;4241
 ;;21,"23490-5820-04 ")
 ;;4242
 ;;21,"23490-5821-01 ")
 ;;4391
 ;;21,"23490-5821-09 ")
 ;;4392
 ;;21,"23490-5822-01 ")
 ;;4458
 ;;21,"23490-7060-01 ")
 ;;3797
 ;;21,"23490-7062-01 ")
 ;;3946
 ;;21,"23490-7590-01 ")
 ;;3627
 ;;21,"23490-7591-01 ")
 ;;3688
 ;;21,"23490-7594-01 ")
 ;;5050
 ;;21,"23490-9364-03 ")
 ;;2711
 ;;21,"23490-9409-03 ")
 ;;3557
 ;;21,"23490-9409-09 ")
 ;;3558
 ;;21,"23490-9410-03 ")
 ;;3575
 ;;21,"23490-9410-09 ")
 ;;3576
 ;;21,"23490-9411-03 ")
 ;;3612
 ;;21,"23490-9411-09 ")
 ;;3613
 ;;21,"23490-9412-03 ")
 ;;3653
 ;;21,"23490-9412-09 ")
 ;;3654
 ;;21,"23490-9462-01 ")
 ;;3283
 ;;21,"23490-9463-01 ")
 ;;3393
 ;;21,"23490-9464-09 ")
 ;;3499
 ;;21,"23490-9466-03 ")
 ;;4838
 ;;21,"23490-9467-01 ")
 ;;4904
 ;;21,"23490-9600-03 ")
 ;;2767
 ;;21,"23490-9600-09 ")
 ;;2768
 ;;21,"23490-9602-03 ")
 ;;2835
 ;;21,"23490-9602-04 ")
 ;;2836
 ;;21,"23490-9604-03 ")
 ;;2908
 ;;21,"23629-0007-10 ")
 ;;4
 ;;21,"23629-0021-10 ")
 ;;1282
 ;;21,"24658-0100-10 ")
 ;;1243
 ;;21,"24658-0100-90 ")
 ;;1244
 ;;21,"24658-0101-10 ")
 ;;1362
 ;;21,"24658-0101-90 ")
 ;;1363
 ;;21,"24658-0102-10 ")
 ;;1401
 ;;21,"24658-0102-90 ")
 ;;1402
 ;;21,"24658-0200-01 ")
 ;;2741
 ;;21,"24658-0200-05 ")
 ;;2742
 ;;21,"24658-0201-01 ")
 ;;2789
 ;;21,"24658-0201-05 ")
 ;;2790
 ;;21,"24658-0202-01 ")
 ;;2866
 ;;21,"24658-0202-05 ")
 ;;2867
 ;;21,"24658-0203-01 ")
 ;;2939
 ;;21,"24658-0203-05 ")
 ;;2940
 ;;21,"24658-0240-10 ")
 ;;1454
 ;;21,"24658-0240-90 ")
 ;;1455
 ;;21,"24658-0241-10 ")
 ;;1601
 ;;21,"24658-0241-30 ")
 ;;1602
 ;;21,"24658-0241-45 ")
 ;;1603
 ;;21,"24658-0241-90 ")
 ;;1604
 ;;21,"24658-0242-10 ")
 ;;1938
 ;;21,"24658-0242-15 ")
 ;;1939
 ;;21,"24658-0242-18 ")
 ;;1940
 ;;21,"24658-0242-30 ")
 ;;1941
 ;;21,"24658-0242-45 ")
 ;;1942
 ;;21,"24658-0242-90 ")
 ;;1943
 ;;21,"24658-0243-10 ")
 ;;2072
 ;;21,"24658-0243-15 ")
 ;;2073
 ;;21,"24658-0243-18 ")
 ;;2074
 ;;21,"24658-0243-30 ")
 ;;2075
 ;;21,"24658-0243-45 ")
 ;;2076
 ;;21,"24658-0243-90 ")
 ;;2077
 ;;21,"24658-0244-01 ")
 ;;2288
 ;;21,"24658-0244-10 ")
 ;;2289
 ;;21,"24658-0245-10 ")
 ;;2481
 ;;21,"24658-0245-15 ")
 ;;2482
 ;;21,"24658-0245-18 ")
 ;;2483
 ;;21,"24658-0245-30 ")
 ;;2484
 ;;21,"24658-0245-45 ")
 ;;2485
 ;;21,"24658-0245-60 ")
 ;;2486
 ;;21,"24658-0245-90 ")
 ;;2487
 ;;21,"30698-0449-01 ")
 ;;218
 ;;21,"30698-0450-01 ")
 ;;319
 ;;21,"31722-0200-10 ")
 ;;1258
 ;;21,"31722-0200-90 ")
 ;;1259
 ;;21,"31722-0201-10 ")
 ;;1300
 ;;21,"31722-0201-90 ")
 ;;1301
 ;;21,"31722-0202-10 ")
 ;;1404
 ;;21,"31722-0202-90 ")
 ;;1405
 ;;21,"31722-0267-90 ")
 ;;2602
 ;;21,"31722-0268-90 ")
 ;;2638
 ;;21,"31722-0269-90 ")
 ;;2677
 ;;21,"31722-0270-90 ")
 ;;2715
 ;;21,"31722-0271-01 ")
 ;;2726
 ;;21,"31722-0272-01 ")
 ;;2762
 ;;21,"31722-0272-05 ")
 ;;2763
 ;;21,"31722-0272-10 ")
 ;;2764
 ;;21,"31722-0273-01 ")
 ;;2822
 ;;21,"31722-0273-05 ")
 ;;2823
 ;;21,"31722-0273-10 ")
 ;;2824
 ;;21,"31722-0274-01 ")
 ;;2901
 ;;21,"31722-0274-05 ")
 ;;2902
 ;;21,"31722-0274-10 ")
 ;;2903
 ;;21,"31722-0374-90 ")
 ;;4550
 ;;21,"31722-0375-90 ")
 ;;4564
 ;;21,"31722-0376-90 ")
 ;;4584
 ;;21,"31722-0729-30 ")
 ;;3109
 ;;21,"31722-0729-90 ")
 ;;3110
 ;;21,"31722-0730-30 ")
 ;;3183
 ;;21,"31722-0730-90 ")
 ;;3184
 ;;21,"31722-0731-30 ")
 ;;3244
 ;;21,"31722-0731-90 ")
 ;;3245
 ;;21,"33261-0109-30 ")
 ;;2476
 ;;21,"33261-0109-60 ")
 ;;2477
 ;;21,"33261-0109-90 ")
 ;;2478
 ;;21,"33261-0110-07 ")
 ;;2058
 ;;21,"33261-0110-14 ")
 ;;2059
 ;;21,"33261-0110-20 ")
 ;;2060
 ;;21,"33261-0110-21 ")
 ;;2061
 ;;21,"33261-0110-28 ")
 ;;2062
 ;;21,"33261-0110-30 ")
 ;;2063
 ;;21,"33261-0110-60 ")
 ;;2064
 ;;21,"33261-0110-90 ")
 ;;2065
 ;;21,"33261-0180-02 ")
 ;;163
 ;;21,"33261-0180-30 ")
 ;;164
 ;;21,"33261-0180-60 ")
 ;;195
 ;;21,"33261-0180-90 ")
 ;;196
 ;;21,"33261-0182-00 ")
 ;;601
 ;;21,"33261-0182-30 ")
 ;;602
 ;;21,"33261-0182-60 ")
 ;;603
 ;;21,"33261-0182-90 ")
 ;;604
 ;;21,"33261-0373-00 ")
 ;;1653
 ;;21,"33261-0373-30 ")
 ;;1654
 ;;21,"33261-0373-60 ")
 ;;1655
 ;;21,"33261-0373-90 ")
 ;;1656
 ;;21,"33261-0416-30 ")
 ;;4318
 ;;21,"33261-0416-60 ")
 ;;4319
 ;;21,"33261-0416-90 ")
 ;;4320
 ;;21,"33261-0453-30 ")
 ;;4029
 ;;21,"33261-0453-60 ")
 ;;4030
 ;;21,"33261-0453-90 ")
 ;;4031
 ;;21,"33261-0632-00 ")
 ;;1065
 ;;21,"33261-0632-30 ")
 ;;1066
 ;;21,"33261-0632-60 ")
 ;;1067
 ;;21,"33261-0632-90 ")
 ;;1068
 ;;21,"33261-0668-00 ")
 ;;1204
 ;;21,"33261-0668-30 ")
 ;;1205
 ;;21,"33261-0668-60 ")
 ;;1206
 ;;21,"33261-0668-90 ")
 ;;1207
 ;;21,"33261-0728-00 ")
 ;;4495
 ;;21,"33261-0728-30 ")
 ;;4496
 ;;21,"33261-0728-60 ")
 ;;4497
 ;;21,"33261-0728-90 ")
 ;;4498
 ;;21,"33261-0819-00 ")
 ;;3529
 ;;21,"33261-0819-30 ")
 ;;3530
 ;;21,"33261-0819-60 ")
 ;;3531
 ;;21,"33261-0819-90 ")
 ;;3532
 ;;21,"33261-0824-00 ")
 ;;3757
 ;;21,"33261-0824-30 ")
 ;;3758
 ;;21,"33261-0824-60 ")
 ;;3759
 ;;21,"33261-0824-90 ")
 ;;3760
 ;;21,"33261-0825-00 ")
 ;;3921
 ;;21,"33261-0825-30 ")
 ;;3922
 ;;21,"33261-0825-60 ")
 ;;3923
 ;;21,"33261-0825-90 ")
 ;;3924
 ;;21,"33261-0828-30 ")
 ;;4269
 ;;21,"33261-0828-60 ")
 ;;4270
 ;;21,"33261-0828-90 ")
 ;;4271
 ;;21,"33261-0838-00 ")
 ;;4799
 ;;21,"33261-0838-30 ")
 ;;4800
 ;;21,"33261-0838-60 ")
 ;;4801
 ;;21,"33261-0838-90 ")
 ;;4802
 ;;21,"33261-0846-00 ")
 ;;284
 ;;21,"33261-0846-30 ")
 ;;285
 ;;21,"33261-0846-60 ")
 ;;286
 ;;21,"33261-0846-90 ")
 ;;287
 ;;21,"33261-0903-00 ")
 ;;2827
 ;;21,"33261-0903-30 ")
 ;;2828
 ;;21,"33261-0903-60 ")
 ;;2829
 ;;21,"33261-0903-90 ")
 ;;2830
 ;;21,"33261-0904-00 ")
 ;;4915
 ;;21,"33261-0904-30 ")
 ;;4916
 ;;21,"33261-0904-60 ")
 ;;4917
 ;;21,"33261-0904-90 ")
 ;;4918
 ;;21,"33261-0950-00 ")
 ;;4846
 ;;21,"33261-0950-30 ")
 ;;4847
 ;;21,"33261-0950-60 ")
 ;;4848
 ;;21,"33261-0950-90 ")
 ;;4849
 ;;21,"33261-0974-00 ")
 ;;471
 ;;21,"33261-0974-30 ")
 ;;472
 ;;21,"33261-0974-60 ")
 ;;473
 ;;21,"33261-0974-90 ")
 ;;474
 ;;21,"33261-0977-00 ")
 ;;741
 ;;21,"33261-0977-30 ")
 ;;742
 ;;21,"33261-0977-60 ")
 ;;743
 ;;21,"33261-0977-90 ")
 ;;744
 ;;21,"33261-0982-00 ")
 ;;3823
 ;;21,"33261-0982-30 ")
 ;;3824
 ;;21,"33261-0982-60 ")
 ;;3825
 ;;21,"33261-0982-90 ")
 ;;3826
 ;;21,"33342-0047-07 ")
 ;;3089
 ;;21,"33342-0047-10 ")
 ;;3102
 ;;21,"33342-0048-07 ")
 ;;3172
 ;;21,"33342-0048-10 ")
 ;;3173
 ;;21,"33342-0049-07 ")
 ;;3234
 ;;21,"33342-0049-10 ")
 ;;3235
 ;;21,"33342-0057-07 ")
 ;;4700
 ;;21,"33342-0057-10 ")
 ;;4701
 ;;21,"33342-0058-07 ")
 ;;4730
 ;;21,"33342-0058-10 ")
 ;;4731
 ;;21,"33358-0047-30 ")
 ;;4024
 ;;21,"33358-0048-30 ")
 ;;96
 ;;21,"33358-0049-30 ")
 ;;198
 ;;21,"33358-0050-30 ")
 ;;4077
 ;;21,"33358-0126-30 ")
 ;;792
 ;;21,"33358-0127-30 ")
 ;;948
 ;;21,"33358-0127-60 ")
 ;;949
 ;;21,"33358-0128-30 ")
 ;;1128
 ;;21,"33358-0128-60 ")
 ;;1129
 ;;21,"33358-0211-30 ")
 ;;1541
 ;;21,"33358-0212-30 ")
 ;;1890
 ;;21,"33358-0213-30 ")
 ;;2019
 ;;21,"33358-0214-30 ")
 ;;4257
 ;;21,"33358-0214-60 ")
 ;;4258
 ;;21,"33358-0222-00 ")
 ;;3868
 ;;21,"35356-0060-30 ")
 ;;5117
 ;;21,"35356-0101-90 ")
 ;;3701
 ;;21,"35356-0131-30 ")
 ;;3206
 ;;21,"35356-0133-30 ")
 ;;3716
 ;;21,"35356-0216-30 ")
 ;;3570
 ;;21,"35356-0216-90 ")
 ;;3571
 ;;21,"35356-0256-30 ")
 ;;4952
 ;;21,"35356-0256-90 ")
 ;;4953
 ;;21,"35356-0257-30 ")
 ;;4954
 ;;21,"35356-0257-90 ")
 ;;4955
 ;;21,"35356-0258-30 ")
 ;;4973
 ;;21,"35356-0258-90 ")
 ;;4974
 ;;21,"35356-0268-30 ")
 ;;3983
 ;;21,"35356-0287-20 ")
 ;;3541
 ;;21,"35356-0287-30 ")
 ;;3542
 ;;21,"35356-0288-40 ")
 ;;4960
 ;;21,"35356-0289-40 ")
 ;;4968
 ;;21,"35356-0293-90 ")
 ;;5156
 ;;21,"35356-0294-90 ")
 ;;5184
 ;;21,"35356-0295-30 ")
 ;;3585
 ;;21,"35356-0296-30 ")
 ;;3598
 ;;21,"35356-0297-30 ")
 ;;4980
 ;;21,"35356-0298-30 ")
 ;;3603
 ;;21,"35356-0299-30 ")
 ;;4982
 ;;21,"35356-0300-30 ")
 ;;4995
 ;;21,"35356-0373-90 ")
 ;;3255
 ;;21,"35356-0374-15 ")
 ;;4677
 ;;21,"35356-0374-30 ")
 ;;4678
 ;;21,"35356-0406-30 ")
 ;;4713
 ;;21,"35356-0407-30 ")
 ;;4740
 ;;21,"35356-0416-10 ")
 ;;4741
 ;;21,"35356-0416-20 ")
 ;;4742
 ;;21,"35356-0416-30 ")
 ;;4743
 ;;21,"35356-0427-30 ")
 ;;3029
 ;;21,"35356-0428-30 ")
 ;;3111
 ;;21,"35356-0432-30 ")
 ;;305
 ;;21,"35356-0432-60 ")
 ;;306
 ;;21,"35356-0432-90 ")
 ;;307
 ;;21,"35356-0541-30 ")
 ;;693
 ;;21,"35356-0587-30 ")
 ;;29
 ;;21,"35356-0587-60 ")
 ;;30
 ;;21,"35356-0587-90 ")
 ;;31
 ;;21,"35356-0601-30 ")
 ;;2572
 ;;21,"35356-0695-30 ")
 ;;1944
 ;;21,"35356-0773-30 ")
 ;;3503
 ;;21,"35356-0777-30 ")
 ;;4235
 ;;21,"35356-0778-30 ")
 ;;4416
 ;;21,"35356-0779-30 ")
 ;;3396
 ;;21,"35356-0780-30 ")
 ;;4843
 ;;21,"35356-0854-30 ")
 ;;3129
 ;;21,"35356-0861-30 ")
 ;;199
 ;;21,"35356-0869-30 ")
 ;;1028
 ;;21,"35356-0869-60 ")
 ;;1029
 ;;21,"35356-0869-90 ")
 ;;1030
 ;;21,"35356-0871-30 ")
 ;;1177
 ;;21,"35356-0879-30 ")
 ;;1675
 ;;21,"35356-0879-60 ")
 ;;1676
 ;;21,"35356-0879-90 ")
 ;;1677
 ;;21,"35356-0883-30 ")
 ;;3502
 ;;21,"35356-0884-30 ")
 ;;3398
 ;;21,"35356-0884-90 ")
 ;;3399
 ;;21,"35356-0893-30 ")
 ;;2925
 ;;21,"35356-0893-60 ")
 ;;2926
 ;;21,"35356-0910-30 ")
 ;;110
 ;;21,"35356-0913-30 ")
 ;;2716
 ;;21,"35356-0917-30 ")
 ;;3768
 ;;21,"35356-0945-30 ")
 ;;899
 ;;21,"35356-0945-60 ")
 ;;900
 ;;21,"35356-0945-90 ")
 ;;901
 ;;21,"35356-0948-30 ")
 ;;2449
 ;;21,"35356-0948-60 ")
 ;;2450
 ;;21,"35356-0948-90 ")
 ;;2451
 ;;21,"35356-0949-30 ")
 ;;3271
 ;;21,"35356-0960-30 ")
 ;;3820
 ;;21,"35356-0960-60 ")
 ;;3821
 ;;21,"35356-0960-90 ")
 ;;3822
 ;;21,"35356-0961-30 ")
 ;;1302
 ;;21,"35356-0961-60 ")
 ;;1303
 ;;21,"35356-0961-90 ")
 ;;1304
 ;;21,"35356-0965-30 ")
 ;;3875
 ;;21,"35356-0965-60 ")
 ;;3876
 ;;21,"35356-0965-90 ")
 ;;3877
 ;;21,"35356-0973-30 ")
 ;;1488
 ;;21,"35356-0973-60 ")
 ;;1489
 ;;21,"35356-0973-90 ")
 ;;1490
 ;;21,"35356-0976-30 ")
 ;;5078
 ;;21,"35356-0976-60 ")
 ;;5079
 ;;21,"35356-0979-30 ")
 ;;5145
 ;;21,"35356-0979-60 ")
 ;;5146
 ;;21,"35356-0998-30 ")
 ;;4566
 ;;21,"35356-0998-60 ")
 ;;4567
 ;;21,"42254-0072-30 ")
 ;;3835
 ;;21,"42254-0073-30 ")
 ;;3879
 ;;21,"42254-0074-30 ")
 ;;3959
 ;;21,"42254-0156-30 ")
 ;;141
 ;;21,"42254-0156-90 ")
 ;;142
 ;;21,"42254-0192-90 ")
 ;;33
 ;;21,"42254-0255-90 ")
 ;;288
 ;;21,"42254-0328-90 ")
 ;;52
 ;;21,"42254-0335-78 ")
 ;;424
 ;;21,"42254-0353-90 ")
 ;;639
 ;;21,"42254-0385-30 ")
 ;;4868
 ;;21,"42254-0385-90 ")
 ;;4869
 ;;21,"42254-0409-30 ")
 ;;4797