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

BGP13Y2.m

Go to the documentation of this file.
BGP13Y2 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"00378-5220-01 ")
 ;;641
 ;;21,"00378-5220-05 ")
 ;;642
 ;;21,"00378-5280-01 ")
 ;;660
 ;;21,"00378-5280-05 ")
 ;;661
 ;;21,"00378-5340-01 ")
 ;;686
 ;;21,"00378-5340-05 ")
 ;;687
 ;;21,"00378-6060-01 ")
 ;;623
 ;;21,"00378-6090-01 ")
 ;;632
 ;;21,"00378-6120-01 ")
 ;;613
 ;;21,"00378-6201-01 ")
 ;;1652
 ;;21,"00378-6201-05 ")
 ;;1653
 ;;21,"00378-6202-01 ")
 ;;1674
 ;;21,"00378-6202-05 ")
 ;;1675
 ;;21,"00378-6203-01 ")
 ;;1690
 ;;21,"00378-6203-05 ")
 ;;1691
 ;;21,"00378-6320-01 ")
 ;;1659
 ;;21,"00378-6320-93 ")
 ;;1660
 ;;21,"00378-6380-01 ")
 ;;1668
 ;;21,"00378-6380-93 ")
 ;;1669
 ;;21,"00378-6440-01 ")
 ;;1682
 ;;21,"00378-6440-93 ")
 ;;1683
 ;;21,"00440-7096-30 ")
 ;;379
 ;;21,"00440-7096-90 ")
 ;;380
 ;;21,"00440-7097-30 ")
 ;;459
 ;;21,"00440-7097-90 ")
 ;;460
 ;;21,"00440-7098-30 ")
 ;;231
 ;;21,"00440-7098-90 ")
 ;;232
 ;;21,"00440-7140-30 ")
 ;;38
 ;;21,"00440-7140-90 ")
 ;;39
 ;;21,"00440-7141-30 ")
 ;;52
 ;;21,"00440-7141-90 ")
 ;;53
 ;;21,"00440-7142-30 ")
 ;;83
 ;;21,"00440-7142-90 ")
 ;;84
 ;;21,"00440-7143-30 ")
 ;;3
 ;;21,"00440-7143-90 ")
 ;;4
 ;;21,"00440-7228-90 ")
 ;;767
 ;;21,"00440-7229-90 ")
 ;;811
 ;;21,"00440-7400-90 ")
 ;;643
 ;;21,"00440-7401-90 ")
 ;;662
 ;;21,"00440-7402-90 ")
 ;;688
 ;;21,"00440-7410-90 ")
 ;;1057
 ;;21,"00440-7410-94 ")
 ;;1058
 ;;21,"00440-7411-90 ")
 ;;1121
 ;;21,"00440-7411-91 ")
 ;;1122
 ;;21,"00440-7411-94 ")
 ;;1123
 ;;21,"00440-7412-90 ")
 ;;1172
 ;;21,"00440-7412-94 ")
 ;;1173
 ;;21,"00440-7413-90 ")
 ;;1044
 ;;21,"00440-7419-90 ")
 ;;720
 ;;21,"00440-7420-90 ")
 ;;768
 ;;21,"00440-7421-90 ")
 ;;812
 ;;21,"00440-7422-90 ")
 ;;859
 ;;21,"00440-7522-90 ")
 ;;1239
 ;;21,"00440-7523-90 ")
 ;;1260
 ;;21,"00440-7524-90 ")
 ;;1196
 ;;21,"00440-7524-99 ")
 ;;1197
 ;;21,"00440-8604-30 ")
 ;;1772
 ;;21,"00440-8604-90 ")
 ;;1773
 ;;21,"00440-8604-94 ")
 ;;1774
 ;;21,"00440-8605-30 ")
 ;;1789
 ;;21,"00440-8605-90 ")
 ;;1790
 ;;21,"00440-8605-94 ")
 ;;1791
 ;;21,"00440-8606-30 ")
 ;;1709
 ;;21,"00440-8606-60 ")
 ;;1710
 ;;21,"00440-8606-90 ")
 ;;1711
 ;;21,"00440-8606-91 ")
 ;;1712
 ;;21,"00440-8606-92 ")
 ;;1713
 ;;21,"00440-8606-94 ")
 ;;1714
 ;;21,"00440-8608-30 ")
 ;;1850
 ;;21,"00440-8608-60 ")
 ;;1851
 ;;21,"00440-8608-90 ")
 ;;1852
 ;;21,"00440-8609-30 ")
 ;;1899
 ;;21,"00440-8609-60 ")
 ;;1900
 ;;21,"00440-8609-90 ")
 ;;1901
 ;;21,"00440-8609-94 ")
 ;;1902
 ;;21,"00440-8610-10 ")
 ;;1960
 ;;21,"00440-8610-30 ")
 ;;1961
 ;;21,"00440-8610-60 ")
 ;;1962
 ;;21,"00440-8610-90 ")
 ;;1963
 ;;21,"00440-8610-94 ")
 ;;1964
 ;;21,"00456-2612-00 ")
 ;;936
 ;;21,"00456-2612-30 ")
 ;;937
 ;;21,"00456-2612-63 ")
 ;;938
 ;;21,"00456-2612-90 ")
 ;;939
 ;;21,"00456-2613-00 ")
 ;;955
 ;;21,"00456-2613-30 ")
 ;;956
 ;;21,"00456-2613-63 ")
 ;;957
 ;;21,"00456-2613-90 ")
 ;;958
 ;;21,"00456-2614-00 ")
 ;;976
 ;;21,"00456-2614-30 ")
 ;;977
 ;;21,"00456-2614-63 ")
 ;;978
 ;;21,"00456-2614-90 ")
 ;;979
 ;;21,"00456-2615-00 ")
 ;;995
 ;;21,"00456-2615-30 ")
 ;;996
 ;;21,"00456-2615-63 ")
 ;;997
 ;;21,"00456-2615-90 ")
 ;;998
 ;;21,"00456-2616-00 ")
 ;;1012
 ;;21,"00456-2616-30 ")
 ;;1013
 ;;21,"00456-2616-63 ")
 ;;1014
 ;;21,"00456-2616-90 ")
 ;;1015
 ;;21,"00456-2617-00 ")
 ;;1034
 ;;21,"00456-2617-30 ")
 ;;1035
 ;;21,"00456-2617-90 ")
 ;;1036
 ;;21,"00490-0126-00 ")
 ;;461
 ;;21,"00490-0126-30 ")
 ;;462
 ;;21,"00490-0126-60 ")
 ;;463
 ;;21,"00490-0126-90 ")
 ;;464
 ;;21,"00555-1069-02 ")
 ;;1328
 ;;21,"00555-1070-02 ")
 ;;1342
 ;;21,"00591-0343-01 ")
 ;;1792
 ;;21,"00591-0343-05 ")
 ;;1793
 ;;21,"00591-0343-10 ")
 ;;1794
 ;;21,"00591-0344-01 ")
 ;;1795
 ;;21,"00591-0344-05 ")
 ;;1796
 ;;21,"00591-0344-10 ")
 ;;1797
 ;;21,"00591-0345-01 ")
 ;;1715
 ;;21,"00591-0345-05 ")
 ;;1716
 ;;21,"00591-0345-10 ")
 ;;1717
 ;;21,"00591-0346-01 ")
 ;;1718
 ;;21,"00591-0346-05 ")
 ;;1719
 ;;21,"00591-0346-10 ")
 ;;1720
 ;;21,"00591-0404-01 ")
 ;;1775
 ;;21,"00591-0660-01 ")
 ;;1377
 ;;21,"00591-0661-01 ")
 ;;1428
 ;;21,"00591-0775-01 ")
 ;;1059
 ;;21,"00591-0776-01 ")
 ;;1124
 ;;21,"00591-0776-05 ")
 ;;1125
 ;;21,"00591-0777-01 ")
 ;;1174
 ;;21,"00591-0778-01 ")
 ;;1045
 ;;21,"00591-2880-01 ")
 ;;1661
 ;;21,"00591-2882-01 ")
 ;;1670
 ;;21,"00591-2884-01 ")
 ;;1684
 ;;21,"00591-2886-01 ")
 ;;1698
 ;;21,"00591-3193-01 ")
 ;;1378
 ;;21,"00591-3193-05 ")
 ;;1379
 ;;21,"00591-3194-01 ")
 ;;1429
 ;;21,"00591-3194-05 ")
 ;;1430
 ;;21,"00591-3757-01 ")
 ;;45
 ;;21,"00591-3758-01 ")
 ;;70
 ;;21,"00591-3758-05 ")
 ;;71
 ;;21,"00591-3759-01 ")
 ;;104
 ;;21,"00591-3759-05 ")
 ;;105
 ;;21,"00591-3760-01 ")
 ;;19
 ;;21,"00591-3760-05 ")
 ;;20
 ;;21,"00597-0124-37 ")
 ;;186
 ;;21,"00597-0125-37 ")
 ;;185
 ;;21,"00597-0126-37 ")
 ;;188
 ;;21,"00597-0127-37 ")
 ;;187
 ;;21,"00603-2108-02 ")
 ;;441
 ;;21,"00603-2108-25 ")
 ;;442
 ;;21,"00603-2108-28 ")
 ;;443
 ;;21,"00603-2108-32 ")
 ;;444
 ;;21,"00603-2109-02 ")
 ;;587
 ;;21,"00603-2109-25 ")
 ;;588
 ;;21,"00603-2109-28 ")
 ;;589
 ;;21,"00603-2109-32 ")
 ;;590
 ;;21,"00603-2109-34 ")
 ;;591
 ;;21,"00603-2110-02 ")
 ;;372
 ;;21,"00603-2110-16 ")
 ;;373
 ;;21,"00603-2110-28 ")
 ;;358
 ;;21,"00603-2110-32 ")
 ;;359
 ;;21,"00603-2110-33 ")
 ;;360
 ;;21,"00603-2110-60 ")
 ;;361
 ;;21,"00615-1341-53 ")
 ;;769
 ;;21,"00615-1341-63 ")
 ;;770
 ;;21,"00615-1342-53 ")
 ;;813
 ;;21,"00615-1342-63 ")
 ;;814
 ;;21,"00615-3548-53 ")
 ;;1060
 ;;21,"00615-3548-63 ")
 ;;1061
 ;;21,"00615-3549-53 ")
 ;;1126
 ;;21,"00615-3549-63 ")
 ;;1127
 ;;21,"00677-1768-01 ")
 ;;1240
 ;;21,"00677-1769-01 ")
 ;;1261
 ;;21,"00677-1770-01 ")
 ;;1198
 ;;21,"00677-1978-01 ")
 ;;1650
 ;;21,"00677-1979-01 ")
 ;;1620
 ;;21,"00677-1980-01 ")
 ;;1633
 ;;21,"00677-1981-01 ")
 ;;1640
 ;;21,"00781-1014-01 ")
 ;;1776
 ;;21,"00781-2271-01 ")
 ;;40
 ;;21,"00781-2271-64 ")
 ;;46
 ;;21,"00781-2272-01 ")
 ;;54
 ;;21,"00781-2272-10 ")
 ;;55
 ;;21,"00781-2272-64 ")
 ;;72
 ;;21,"00781-2273-01 ")
 ;;85
 ;;21,"00781-2273-10 ")
 ;;86
 ;;21,"00781-2273-64 ")
 ;;106
 ;;21,"00781-2274-01 ")
 ;;5
 ;;21,"00781-2274-10 ")
 ;;6
 ;;21,"00781-2274-64 ")
 ;;21
 ;;21,"00832-0042-09 ")
 ;;381
 ;;21,"00832-0042-10 ")
 ;;382
 ;;21,"00832-0043-09 ")
 ;;465
 ;;21,"00832-0043-10 ")
 ;;466
 ;;21,"00832-0044-09 ")
 ;;233
 ;;21,"00832-0044-10 ")
 ;;234
 ;;21,"00904-2920-40 ")
 ;;1798
 ;;21,"00904-2920-60 ")
 ;;1799
 ;;21,"00904-2920-61 ")
 ;;1800
 ;;21,"00904-2920-80 ")
 ;;1801
 ;;21,"00904-2924-40 ")
 ;;1721
 ;;21,"00904-2924-60 ")
 ;;1722
 ;;21,"00904-2924-61 ")
 ;;1723
 ;;21,"00904-5382-60 ")
 ;;689
 ;;21,"00904-5382-61 ")
 ;;690
 ;;21,"00904-5991-61 ")
 ;;383
 ;;21,"00904-5992-61 ")
 ;;467
 ;;21,"00904-5993-61 ")
 ;;235
 ;;21,"00904-6149-61 ")
 ;;844
 ;;21,"00904-6174-89 ")
 ;;592
 ;;21,"00904-6175-89 ")
 ;;362
 ;;21,"00904-6188-89 ")
 ;;445
 ;;21,"00904-7799-60 ")
 ;;1777
 ;;21,"00904-7931-60 ")
 ;;1903
 ;;21,"10135-0524-03 ")
 ;;384
 ;;21,"10135-0524-05 ")
 ;;385
 ;;21,"10135-0524-10 ")
 ;;386
 ;;21,"10135-0524-90 ")
 ;;387
 ;;21,"10135-0525-03 ")
 ;;468
 ;;21,"10135-0525-05 ")
 ;;469
 ;;21,"10135-0525-10 ")
 ;;470
 ;;21,"10135-0525-90 ")
 ;;471
 ;;21,"10135-0526-01 ")
 ;;236
 ;;21,"10135-0526-03 ")
 ;;237
 ;;21,"10135-0526-05 ")
 ;;238
 ;;21,"10135-0526-10 ")
 ;;239
 ;;21,"10135-0526-90 ")
 ;;240
 ;;21,"10631-0488-01 ")
 ;;1853
 ;;21,"10631-0489-01 ")
 ;;1904
 ;;21,"10631-0490-01 ")
 ;;1965
 ;;21,"10631-0490-05 ")
 ;;1966
 ;;21,"12280-0036-00 ")
 ;;1199
 ;;21,"12280-0037-00 ")
 ;;1262
 ;;21,"12280-0140-90 ")
 ;;815
 ;;21,"12280-0215-30 ")
 ;;771
 ;;21,"12280-0300-15 ")
 ;;1062
 ;;21,"12280-0300-30 ")
 ;;1063
 ;;21,"12280-0304-15 ")
 ;;917
 ;;21,"12280-0304-30 ")
 ;;918
 ;;21,"12280-0305-15 ")
 ;;1016
 ;;21,"12280-0305-30 ")
 ;;1017
 ;;21,"12280-0311-30 ")
 ;;1470
 ;;21,"12280-0397-30 ")
 ;;190
 ;;21,"12280-0398-30 ")
 ;;194
 ;;21,"12280-0399-30 ")
 ;;211
 ;;21,"13411-0148-01 ")
 ;;472
 ;;21,"13411-0148-03 ")
 ;;473
 ;;21,"13411-0148-06 ")
 ;;474
 ;;21,"13411-0148-09 ")
 ;;475
 ;;21,"13411-0148-10 ")
 ;;476
 ;;21,"13411-0157-01 ")
 ;;388
 ;;21,"13411-0157-03 ")
 ;;389
 ;;21,"13411-0157-06 ")
 ;;390
 ;;21,"13411-0157-09 ")
 ;;391
 ;;21,"13411-0157-10 ")
 ;;392
 ;;21,"13411-0158-01 ")
 ;;241
 ;;21,"13411-0158-03 ")
 ;;242
 ;;21,"13411-0158-06 ")
 ;;243
 ;;21,"13411-0158-09 ")
 ;;244
 ;;21,"13411-0158-10 ")
 ;;245
 ;;21,"13551-0201-01 ")
 ;;1854
 ;;21,"13551-0301-01 ")
 ;;1905
 ;;21,"13551-0401-01 ")
 ;;1967
 ;;21,"13551-0401-05 ")
 ;;1968
 ;;21,"13668-0022-03 ")
 ;;393
 ;;21,"13668-0022-05 ")
 ;;394
 ;;21,"13668-0023-03 ")
 ;;477
 ;;21,"13668-0023-05 ")
 ;;478
 ;;21,"13668-0024-05 ")
 ;;246
 ;;21,"13668-0024-10 ")
 ;;247
 ;;21,"15330-0041-01 ")
 ;;1329
 ;;21,"15330-0041-05 ")
 ;;1330
 ;;21,"15330-0042-01 ")
 ;;1343
 ;;21,"15330-0042-05 ")
 ;;1344
 ;;21,"16252-0539-01 ")
 ;;1299
 ;;21,"16252-0540-01 ")
 ;;1306
 ;;21,"16252-0544-90 ")
 ;;395
 ;;21,"16252-0545-50 ")
 ;;479
 ;;21,"16252-0545-90 ")
 ;;480
 ;;21,"16252-0546-50 ")
 ;;248
 ;;21,"16252-0546-90 ")
 ;;249
 ;;21,"16590-0295-30 ")
 ;;481
 ;;21,"16590-0460-60 ")
 ;;250
 ;;21,"21695-0151-15 ")
 ;;482
 ;;21,"21695-0403-30 ")
 ;;721
 ;;21,"21695-0404-30 ")
 ;;772
 ;;21,"21695-0408-30 ")
 ;;1128
 ;;21,"21695-0408-60 ")
 ;;1129
 ;;21,"21695-0410-30 ")
 ;;1046
 ;;21,"21695-0511-30 ")
 ;;1838
 ;;21,"21695-0512-30 ")
 ;;1769
 ;;21,"21695-0512-90 ")
 ;;1770
 ;;21,"21695-0541-60 ")
 ;;396
 ;;21,"21695-0542-30 ")
 ;;483
 ;;21,"21695-0542-90 ")
 ;;484
 ;;21,"21695-0543-30 ")
 ;;251
 ;;21,"21695-0543-90 ")
 ;;252
 ;;21,"21695-0776-30 ")
 ;;1494
 ;;21,"21695-0803-30 ")
 ;;845
 ;;21,"21695-0908-30 ")
 ;;1380
 ;;21,"21695-0909-30 ")
 ;;1431
 ;;21,"23490-5056-01 ")
 ;;253
 ;;21,"23490-5057-03 ")
 ;;485
 ;;21,"23490-5057-09 ")
 ;;486
 ;;21,"23490-5450-03 ")
 ;;816
 ;;21,"23490-5991-01 ")
 ;;1381
 ;;21,"23490-5992-01 ")
 ;;1432
 ;;21,"23490-6462-01 ")
 ;;1724
 ;;21,"23490-6463-01 ")
 ;;1855
 ;;21,"23490-6464-01 ")
 ;;1906
 ;;21,"23490-6464-09 ")
 ;;1907
 ;;21,"23490-6466-01 ")
 ;;1969
 ;;21,"23490-6466-06 ")
 ;;1970
 ;;21,"23490-6466-09 ")
 ;;1971
 ;;21,"24658-0190-10 ")
 ;;397
 ;;21,"24658-0190-90 ")
 ;;398
 ;;21,"24658-0191-10 ")
 ;;487
 ;;21,"24658-0191-90 ")
 ;;488
 ;;21,"24658-0192-10 ")
 ;;254
 ;;21,"24658-0192-90 ")
 ;;255
 ;;21,"31722-0237-10 ")
 ;;399
 ;;21,"31722-0237-90 ")
 ;;400
 ;;21,"31722-0238-10 ")
 ;;489
 ;;21,"31722-0238-90 ")
 ;;490
 ;;21,"31722-0239-10 ")
 ;;256
 ;;21,"31722-0239-90 ")
 ;;257
 ;;21,"33261-0437-02 ")
 ;;593
 ;;21,"33261-0437-30 ")
 ;;594
 ;;21,"33261-0437-60 ")
 ;;595
 ;;21,"33261-0437-90 ")
 ;;596
 ;;21,"33261-0535-02 ")
 ;;363
 ;;21,"33261-0535-30 ")
 ;;364
 ;;21,"33261-0535-60 ")
 ;;365
 ;;21,"33261-0535-90 ")
 ;;366
 ;;21,"33261-0675-02 ")
 ;;1874
 ;;21,"33261-0675-07 ")
 ;;1875
 ;;21,"33261-0675-14 ")
 ;;1876
 ;;21,"33261-0675-20 ")
 ;;1877
 ;;21,"33261-0675-21 ")
 ;;1878
 ;;21,"33261-0675-28 ")
 ;;1879
 ;;21,"33261-0675-30 ")
 ;;1880
 ;;21,"33261-0675-60 ")
 ;;1881
 ;;21,"33261-0675-90 ")
 ;;1882
 ;;21,"33358-0109-30 ")
 ;;644
 ;;21,"33358-0222-00 ")
 ;;87
 ;;21,"33358-0262-00 ")
 ;;1495
 ;;21,"33358-0262-30 ")
 ;;1496
 ;;21,"35356-0002-10 ")
 ;;258
 ;;21,"35356-0026-00 ")
 ;;1130
 ;;21,"35356-0027-00 ")
 ;;1175
 ;;21,"35356-0040-14 ")
 ;;1612
 ;;21,"35356-0059-10 ")
 ;;491
 ;;21,"35356-0059-30 ")
 ;;597
 ;;21,"35356-0059-60 ")
 ;;598
 ;;21,"35356-0059-90 ")
 ;;599
 ;;21,"35356-0268-30 ")
 ;;127
 ;;21,"35356-0510-30 ")
 ;;722
 ;;21,"35356-0511-30 ")
 ;;723
 ;;21,"42806-0501-01 ")
 ;;1334
 ;;21,"42806-0501-05 ")
 ;;1335
 ;;21,"42806-0501-09 ")
 ;;1336
 ;;21,"42806-0502-01 ")
 ;;1348
 ;;21,"42806-0502-05 ")
 ;;1349
 ;;21,"42806-0502-09 ")
 ;;1350
 ;;21,"43063-0011-01 ")
 ;;1972