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

BGP47Y7.m

Go to the documentation of this file.
BGP47Y7 ;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,"51079-0981-40 ")
 ;;1563
 ;;21,"51079-0981-56 ")
 ;;1564
 ;;21,"51079-0981-57 ")
 ;;1565
 ;;21,"51079-0981-60 ")
 ;;1566
 ;;21,"51079-0982-01 ")
 ;;1908
 ;;21,"51079-0982-17 ")
 ;;1909
 ;;21,"51079-0982-19 ")
 ;;1910
 ;;21,"51079-0982-20 ")
 ;;1911
 ;;21,"51079-0982-30 ")
 ;;1912
 ;;21,"51079-0982-40 ")
 ;;1757
 ;;21,"51079-0982-56 ")
 ;;1758
 ;;21,"51079-0982-57 ")
 ;;1759
 ;;21,"51079-0982-60 ")
 ;;1760
 ;;21,"51079-0983-01 ")
 ;;2180
 ;;21,"51079-0983-17 ")
 ;;2181
 ;;21,"51079-0983-19 ")
 ;;2182
 ;;21,"51079-0983-20 ")
 ;;2183
 ;;21,"51079-0983-30 ")
 ;;2184
 ;;21,"51079-0983-40 ")
 ;;2185
 ;;21,"51079-0983-56 ")
 ;;2186
 ;;21,"51079-0983-57 ")
 ;;2187
 ;;21,"51079-0983-60 ")
 ;;2188
 ;;21,"51079-0984-01 ")
 ;;2391
 ;;21,"51079-0984-20 ")
 ;;2392
 ;;21,"51079-0984-40 ")
 ;;2393
 ;;21,"51079-0984-50 ")
 ;;2394
 ;;21,"51138-0013-30 ")
 ;;383
 ;;21,"51138-0014-30 ")
 ;;498
 ;;21,"51138-0015-30 ")
 ;;600
 ;;21,"51138-0016-30 ")
 ;;657
 ;;21,"51138-0033-30 ")
 ;;713
 ;;21,"51138-0034-30 ")
 ;;851
 ;;21,"51138-0035-30 ")
 ;;998
 ;;21,"51138-0036-30 ")
 ;;1164
 ;;21,"51138-0063-30 ")
 ;;1478
 ;;21,"51138-0064-30 ")
 ;;1691
 ;;21,"51138-0065-30 ")
 ;;1873
 ;;21,"51138-0066-30 ")
 ;;2207
 ;;21,"51138-0067-30 ")
 ;;2333
 ;;21,"51138-0068-30 ")
 ;;2421
 ;;21,"51138-0134-30 ")
 ;;1477
 ;;21,"51138-0135-30 ")
 ;;1692
 ;;21,"51138-0136-30 ")
 ;;1872
 ;;21,"51138-0137-30 ")
 ;;2208
 ;;21,"51138-0138-30 ")
 ;;2332
 ;;21,"51138-0139-30 ")
 ;;2432
 ;;21,"51138-0211-30 ")
 ;;3539
 ;;21,"51138-0212-30 ")
 ;;3547
 ;;21,"51138-0213-30 ")
 ;;3579
 ;;21,"51138-0217-30 ")
 ;;3078
 ;;21,"51138-0217-60 ")
 ;;3079
 ;;21,"51138-0218-30 ")
 ;;3117
 ;;21,"51138-0218-60 ")
 ;;3118
 ;;21,"51138-0219-30 ")
 ;;3191
 ;;21,"51138-0219-60 ")
 ;;3192
 ;;21,"51138-0224-30 ")
 ;;4945
 ;;21,"51138-0225-30 ")
 ;;4961
 ;;21,"51138-0226-30 ")
 ;;4967
 ;;21,"51138-0231-30 ")
 ;;4676
 ;;21,"51138-0232-30 ")
 ;;4712
 ;;21,"51138-0306-10 ")
 ;;4999
 ;;21,"51138-0306-30 ")
 ;;5000
 ;;21,"51138-0307-10 ")
 ;;5043
 ;;21,"51138-0307-30 ")
 ;;5044
 ;;21,"51138-0308-30 ")
 ;;5126
 ;;21,"51138-0309-30 ")
 ;;5154
 ;;21,"51138-0310-30 ")
 ;;5183
 ;;21,"51138-0327-30 ")
 ;;4124
 ;;21,"51138-0328-30 ")
 ;;4148
 ;;21,"51138-0329-30 ")
 ;;2589
 ;;21,"51138-0330-30 ")
 ;;2626
 ;;21,"51138-0331-30 ")
 ;;2658
 ;;21,"51138-0332-30 ")
 ;;2697
 ;;21,"51138-0333-30 ")
 ;;696
 ;;21,"51138-0334-30 ")
 ;;797
 ;;21,"51138-0335-30 ")
 ;;954
 ;;21,"51138-0336-30 ")
 ;;1120
 ;;21,"51138-0348-30 ")
 ;;2590
 ;;21,"51138-0349-30 ")
 ;;2625
 ;;21,"51138-0350-30 ")
 ;;2659
 ;;21,"51138-0351-30 ")
 ;;2696
 ;;21,"51138-0357-30 ")
 ;;4546
 ;;21,"51138-0358-10 ")
 ;;4568
 ;;21,"51138-0358-30 ")
 ;;4569
 ;;21,"51138-0359-30 ")
 ;;4582
 ;;21,"51138-0379-30 ")
 ;;34
 ;;21,"51138-0380-30 ")
 ;;51
 ;;21,"51138-0381-30 ")
 ;;143
 ;;21,"51138-0382-30 ")
 ;;281
 ;;21,"51138-0392-30 ")
 ;;4012
 ;;21,"51138-0393-30 ")
 ;;4032
 ;;21,"51138-0394-30 ")
 ;;4061
 ;;21,"51138-0395-30 ")
 ;;4084
 ;;21,"51138-0396-30 ")
 ;;35
 ;;21,"51138-0397-30 ")
 ;;50
 ;;21,"51138-0398-30 ")
 ;;144
 ;;21,"51138-0399-30 ")
 ;;280
 ;;21,"51138-0418-30 ")
 ;;3736
 ;;21,"51138-0419-30 ")
 ;;3752
 ;;21,"51138-0420-30 ")
 ;;3808
 ;;21,"51138-0422-30 ")
 ;;3929
 ;;21,"51138-0424-30 ")
 ;;2740
 ;;21,"51138-0425-30 ")
 ;;2791
 ;;21,"51138-0426-10 ")
 ;;2864
 ;;21,"51138-0426-30 ")
 ;;2865
 ;;21,"51138-0427-10 ")
 ;;2941
 ;;21,"51138-0427-30 ")
 ;;2942
 ;;21,"51138-0432-30 ")
 ;;3735
 ;;21,"51138-0433-30 ")
 ;;3753
 ;;21,"51138-0434-30 ")
 ;;3807
 ;;21,"51138-0435-30 ")
 ;;3930
 ;;21,"51138-0443-30 ")
 ;;4125
 ;;21,"51138-0444-30 ")
 ;;4145
 ;;21,"51138-0476-30 ")
 ;;4746
 ;;21,"51138-0477-30 ")
 ;;4815
 ;;21,"51138-0478-30 ")
 ;;4879
 ;;21,"51138-0493-30 ")
 ;;3034
 ;;21,"51138-0494-30 ")
 ;;3050
 ;;21,"51138-0505-15 ")
 ;;359
 ;;21,"51138-0505-30 ")
 ;;360
 ;;21,"51138-0506-30 ")
 ;;463
 ;;21,"51138-0507-30 ")
 ;;563
 ;;21,"51138-0508-20 ")
 ;;647
 ;;21,"51138-0508-45 ")
 ;;648
 ;;21,"51138-0515-30 ")
 ;;3265
 ;;21,"51138-0516-30 ")
 ;;3347
 ;;21,"51138-0517-30 ")
 ;;3453
 ;;21,"51138-0520-30 ")
 ;;1256
 ;;21,"51138-0521-30 ")
 ;;1299
 ;;21,"51138-0522-30 ")
 ;;1403
 ;;21,"51138-0523-30 ")
 ;;1234
 ;;21,"51138-0524-30 ")
 ;;1298
 ;;21,"51138-0525-30 ")
 ;;1383
 ;;21,"51138-0531-10 ")
 ;;3745
 ;;21,"51138-0531-30 ")
 ;;3746
 ;;21,"51138-0532-10 ")
 ;;3793
 ;;21,"51138-0532-30 ")
 ;;3794
 ;;21,"51138-0533-10 ")
 ;;3855
 ;;21,"51138-0533-30 ")
 ;;3856
 ;;21,"51138-0534-10 ")
 ;;3889
 ;;21,"51138-0534-30 ")
 ;;3890
 ;;21,"51138-0535-10 ")
 ;;3943
 ;;21,"51138-0535-30 ")
 ;;3944
 ;;21,"51138-0536-10 ")
 ;;3971
 ;;21,"51138-0536-30 ")
 ;;3972
 ;;21,"51138-0551-30 ")
 ;;4237
 ;;21,"51138-0552-30 ")
 ;;4338
 ;;21,"51138-0553-30 ")
 ;;4414
 ;;21,"51138-0554-30 ")
 ;;4236
 ;;21,"51138-0555-30 ")
 ;;4337
 ;;21,"51138-0556-30 ")
 ;;4415
 ;;21,"51138-0573-30 ")
 ;;2968
 ;;21,"51138-0574-30 ")
 ;;2986
 ;;21,"51138-0575-10 ")
 ;;3011
 ;;21,"51138-0575-30 ")
 ;;3012
 ;;21,"51138-0576-30 ")
 ;;3978
 ;;21,"51138-0577-20 ")
 ;;3985
 ;;21,"51138-0577-30 ")
 ;;3986
 ;;21,"51138-0578-10 ")
 ;;3991
 ;;21,"51138-0578-30 ")
 ;;3992
 ;;21,"51138-0579-10 ")
 ;;4001
 ;;21,"51138-0579-20 ")
 ;;4002
 ;;21,"51138-0579-30 ")
 ;;4003
 ;;21,"51655-0278-25 ")
 ;;534
 ;;21,"51655-0279-24 ")
 ;;643
 ;;21,"51655-0286-24 ")
 ;;905
 ;;21,"51655-0287-24 ")
 ;;1072
 ;;21,"51655-0311-25 ")
 ;;409
 ;;21,"51655-0975-24 ")
 ;;328
 ;;21,"51672-4037-01 ")
 ;;753
 ;;21,"51672-4037-03 ")
 ;;754
 ;;21,"51672-4038-01 ")
 ;;883
 ;;21,"51672-4038-03 ")
 ;;884
 ;;21,"51672-4039-01 ")
 ;;1062
 ;;21,"51672-4039-03 ")
 ;;1063
 ;;21,"51672-4040-01 ")
 ;;1211
 ;;21,"51672-4040-03 ")
 ;;1212
 ;;21,"51672-4045-01 ")
 ;;4137
 ;;21,"51672-4046-01 ")
 ;;4173
 ;;21,"52152-0238-08 ")
 ;;4552
 ;;21,"52152-0238-30 ")
 ;;4553
 ;;21,"52152-0239-08 ")
 ;;4570
 ;;21,"52152-0239-30 ")
 ;;4571
 ;;21,"52152-0240-08 ")
 ;;4586
 ;;21,"52152-0240-30 ")
 ;;4587
 ;;21,"52544-0668-01 ")
 ;;694
 ;;21,"52544-0668-05 ")
 ;;695
 ;;21,"52544-0669-01 ")
 ;;798
 ;;21,"52544-0669-05 ")
 ;;799
 ;;21,"52544-0670-01 ")
 ;;952
 ;;21,"52544-0670-05 ")
 ;;953
 ;;21,"52544-0671-01 ")
 ;;1121
 ;;21,"52652-1001-01 ")
 ;;1233
 ;;21,"52959-0137-15 ")
 ;;4262
 ;;21,"52959-0180-30 ")
 ;;950
 ;;21,"52959-0180-60 ")
 ;;951
 ;;21,"52959-0498-00 ")
 ;;4291
 ;;21,"52959-0728-15 ")
 ;;1913
 ;;21,"52959-0728-20 ")
 ;;1914
 ;;21,"52959-0728-30 ")
 ;;1915
 ;;21,"52959-0728-90 ")
 ;;1916
 ;;21,"52959-0729-30 ")
 ;;2049
 ;;21,"52959-0729-60 ")
 ;;2050
 ;;21,"52959-0729-90 ")
 ;;2051
 ;;21,"52959-0753-00 ")
 ;;2513
 ;;21,"52959-0753-30 ")
 ;;2514
 ;;21,"52959-0753-60 ")
 ;;2515
 ;;21,"52959-0756-30 ")
 ;;3624
 ;;21,"52959-0831-30 ")
 ;;157
 ;;21,"52959-0835-30 ")
 ;;297
 ;;21,"52959-0835-60 ")
 ;;298
 ;;21,"52959-0841-30 ")
 ;;61
 ;;21,"52959-0841-60 ")
 ;;62
 ;;21,"52959-0854-20 ")
 ;;1571
 ;;21,"52959-0854-30 ")
 ;;1572
 ;;21,"52959-0907-30 ")
 ;;4075
 ;;21,"52959-0942-30 ")
 ;;1163
 ;;21,"52959-0973-30 ")
 ;;1516
 ;;21,"52959-0975-30 ")
 ;;1657
 ;;21,"52959-0997-30 ")
 ;;4438
 ;;21,"53002-0431-00 ")
 ;;466
 ;;21,"53002-0431-30 ")
 ;;467
 ;;21,"53002-0431-60 ")
 ;;468
 ;;21,"53002-1086-00 ")
 ;;544
 ;;21,"53002-1086-03 ")
 ;;545
 ;;21,"53002-1086-06 ")
 ;;546
 ;;21,"53002-1123-00 ")
 ;;1874
 ;;21,"53002-1123-03 ")
 ;;1875
 ;;21,"53002-1123-06 ")
 ;;1876
 ;;21,"53002-1178-00 ")
 ;;2204
 ;;21,"53002-1178-03 ")
 ;;2205
 ;;21,"53002-1178-06 ")
 ;;2206
 ;;21,"53002-1225-00 ")
 ;;1693
 ;;21,"53002-1225-03 ")
 ;;1694
 ;;21,"53002-1225-06 ")
 ;;1695
 ;;21,"53002-1463-00 ")
 ;;2516
 ;;21,"53002-1463-03 ")
 ;;2517
 ;;21,"53217-0003-00 ")
 ;;340
 ;;21,"53217-0003-30 ")
 ;;341
 ;;21,"53217-0003-60 ")
 ;;342
 ;;21,"53217-0003-90 ")
 ;;343
 ;;21,"54348-0099-30 ")
 ;;21
 ;;21,"54348-0100-30 ")
 ;;73
 ;;21,"54458-0893-10 ")
 ;;242
 ;;21,"54458-0905-02 ")
 ;;2395
 ;;21,"54458-0906-02 ")
 ;;1658
 ;;21,"54458-0907-02 ")
 ;;4217
 ;;21,"54458-0910-02 ")
 ;;4437
 ;;21,"54458-0956-10 ")
 ;;241
 ;;21,"54458-0957-10 ")
 ;;197
 ;;21,"54458-0958-10 ")
 ;;87
 ;;21,"54458-0959-10 ")
 ;;5
 ;;21,"54458-0991-10 ")
 ;;4460
 ;;21,"54458-0992-10 ")
 ;;4383
 ;;21,"54458-0993-09 ")
 ;;4245
 ;;21,"54458-0994-10 ")
 ;;2445
 ;;21,"54458-0995-10 ")
 ;;2322
 ;;21,"54458-0996-10 ")
 ;;2196
 ;;21,"54458-0997-10 ")
 ;;1831
 ;;21,"54458-0998-09 ")
 ;;1680
 ;;21,"54458-0999-09 ")
 ;;1491
 ;;21,"54569-0522-00 ")
 ;;336
 ;;21,"54569-0522-01 ")
 ;;337
 ;;21,"54569-0522-03 ")
 ;;338
 ;;21,"54569-0523-00 ")
 ;;419
 ;;21,"54569-0523-02 ")
 ;;420
 ;;21,"54569-0606-00 ")
 ;;913
 ;;21,"54569-0606-01 ")
 ;;914
 ;;21,"54569-0607-00 ")
 ;;1082
 ;;21,"54569-0607-01 ")
 ;;1083
 ;;21,"54569-0612-00 ")
 ;;1227
 ;;21,"54569-1752-03 ")
 ;;1974
 ;;21,"54569-1944-00 ")
 ;;1997
 ;;21,"54569-1944-01 ")
 ;;1998
 ;;21,"54569-1944-02 ")
 ;;1999
 ;;21,"54569-1944-03 ")
 ;;2000
 ;;21,"54569-2051-01 ")
 ;;2253
 ;;21,"54569-2665-01 ")
 ;;2257
 ;;21,"54569-2665-02 ")
 ;;2258
 ;;21,"54569-3258-01 ")
 ;;769
 ;;21,"54569-3300-00 ")
 ;;1730
 ;;21,"54569-3300-01 ")
 ;;1731
 ;;21,"54569-3359-00 ")
 ;;235
 ;;21,"54569-3359-01 ")
 ;;236
 ;;21,"54569-3359-02 ")
 ;;237
 ;;21,"54569-3423-00 ")
 ;;127
 ;;21,"54569-3423-01 ")
 ;;128
 ;;21,"54569-3423-04 ")
 ;;129
 ;;21,"54569-3713-00 ")
 ;;2749
 ;;21,"54569-3714-00 ")
 ;;2812
 ;;21,"54569-3733-02 ")
 ;;40
 ;;21,"54569-3771-00 ")
 ;;1746
 ;;21,"54569-3808-00 ")
 ;;1290
 ;;21,"54569-3809-00 ")
 ;;1382
 ;;21,"54569-3984-00 ")
 ;;2604
 ;;21,"54569-3984-01 ")
 ;;2605
 ;;21,"54569-3985-00 ")
 ;;2641
 ;;21,"54569-4246-00 ")
 ;;444
 ;;21,"54569-4246-01 ")
 ;;445
 ;;21,"54569-4246-03 ")
 ;;446
 ;;21,"54569-4246-04 ")
 ;;447
 ;;21,"54569-4246-05 ")
 ;;448
 ;;21,"54569-4246-07 ")
 ;;449
 ;;21,"54569-4247-00 ")
 ;;547
 ;;21,"54569-4247-02 ")
 ;;548
 ;;21,"54569-4247-03 ")
 ;;549
 ;;21,"54569-4247-04 ")
 ;;550
 ;;21,"54569-4276-00 ")
 ;;2560
 ;;21,"54569-4437-00 ")
 ;;3251
 ;;21,"54569-4438-00 ")
 ;;3331
 ;;21,"54569-4438-01 ")
 ;;3332
 ;;21,"54569-4454-00 ")
 ;;2684
 ;;21,"54569-4572-00 ")
 ;;3119
 ;;21,"54569-4593-00 ")
 ;;351
 ;;21,"54569-4593-01 ")
 ;;352
 ;;21,"54569-4593-03 ")
 ;;353
 ;;21,"54569-4596-00 ")
 ;;2539
 ;;21,"54569-4696-00 ")
 ;;3795
 ;;21,"54569-4696-01 ")
 ;;3796
 ;;21,"54569-4714-00 ")
 ;;3043
 ;;21,"54569-4719-00 ")
 ;;3030
 ;;21,"54569-4719-01 ")
 ;;3031
 ;;21,"54569-4721-00 ")
 ;;1529
 ;;21,"54569-4722-00 ")
 ;;4747
 ;;21,"54569-4722-01 ")
 ;;4748
 ;;21,"54569-4766-00 ")
 ;;5001
 ;;21,"54569-4766-01 ")
 ;;5002
 ;;21,"54569-4766-03 ")
 ;;5003
 ;;21,"54569-4767-00 ")
 ;;5047
 ;;21,"54569-4767-01 ")
 ;;5048
 ;;21,"54569-4767-03 ")
 ;;5049
 ;;21,"54569-4788-00 ")
 ;;320
 ;;21,"54569-4788-01 ")
 ;;321
 ;;21,"54569-4829-00 ")
 ;;4290
 ;;21,"54569-4895-00 ")
 ;;3195
 ;;21,"54569-4948-00 ")
 ;;1441
 ;;21,"54569-4990-00 ")
 ;;2547
 ;;21,"54569-5132-00 ")
 ;;707
 ;;21,"54569-5133-00 ")
 ;;870
 ;;21,"54569-5133-01 ")
 ;;871
 ;;21,"54569-5134-00 ")
 ;;1031
 ;;21,"54569-5134-01 ")
 ;;1032
 ;;21,"54569-5134-02 ")
 ;;1033
 ;;21,"54569-5134-04 ")
 ;;1034
 ;;21,"54569-5135-00 ")
 ;;1175
 ;;21,"54569-5135-01 ")
 ;;1176
 ;;21,"54569-5232-00 ")
 ;;3866
 ;;21,"54569-5232-01 ")
 ;;3867
 ;;21,"54569-5282-00 ")
 ;;3749
 ;;21,"54569-5283-00 ")
 ;;4013
 ;;21,"54569-5284-00 ")
 ;;4036
 ;;21,"54569-5284-01 ")
 ;;4037
 ;;21,"54569-5285-00 ")
 ;;4062
 ;;21,"54569-5286-00 ")
 ;;4089
 ;;21,"54569-5361-00 ")
 ;;3625
 ;;21,"54569-5362-00 ")
 ;;3692
 ;;21,"54569-5379-00 ")
 ;;1530
 ;;21,"54569-5420-00 ")
 ;;2954
 ;;21,"54569-5421-00 ")
 ;;2974
 ;;21,"54569-5422-00 ")
 ;;2995
 ;;21,"54569-5434-00 ")
 ;;1886
 ;;21,"54569-5434-03 ")
 ;;1887
 ;;21,"54569-5434-04 ")
 ;;1888
 ;;21,"54569-5434-05 ")
 ;;1889
 ;;21,"54569-5435-00 ")
 ;;2010
 ;;21,"54569-5435-03 ")
 ;;2011
 ;;21,"54569-5435-04 ")
 ;;2012
 ;;21,"54569-5435-05 ")
 ;;2013
 ;;21,"54569-5437-00 ")
 ;;1462
 ;;21,"54569-5437-02 ")
 ;;1463
 ;;21,"54569-5438-00 ")
 ;;1539
 ;;21,"54569-5438-03 ")
 ;;1540
 ;;21,"54569-5472-00 ")
 ;;2396
 ;;21,"54569-5472-02 ")
 ;;2397
 ;;21,"54569-5601-00 ")
 ;;4990
 ;;21,"54569-5606-00 ")
 ;;3559
 ;;21,"54569-5621-00 ")
 ;;1257
 ;;21,"54569-5665-00 ")
 ;;4991
 ;;21,"54569-5666-00 ")
 ;;3703
 ;;21,"54569-5667-00 ")
 ;;5107
 ;;21,"54569-5667-01 ")
 ;;5108
 ;;21,"54569-5668-00 ")
 ;;107
 ;;21,"54569-5668-01 ")
 ;;108
 ;;21,"54569-5668-02 ")
 ;;109
 ;;21,"54569-5669-00 ")
 ;;208
 ;;21,"54569-5669-01 ")
 ;;209
 ;;21,"54569-5670-00 ")
 ;;263
 ;;21,"54569-5670-01 ")
 ;;264
 ;;21,"54569-5685-00 ")
 ;;4078