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

BGP47X7.m

Go to the documentation of this file.
BGP47X7 ;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,"60346-0914-60 ")
 ;;1084
 ;;21,"60346-0914-90 ")
 ;;1085
 ;;21,"60346-0914-94 ")
 ;;1086
 ;;21,"60346-0967-30 ")
 ;;434
 ;;21,"60346-0967-60 ")
 ;;435
 ;;21,"60346-0967-90 ")
 ;;436
 ;;21,"60429-0025-30 ")
 ;;829
 ;;21,"60429-0025-90 ")
 ;;830
 ;;21,"60429-0026-30 ")
 ;;1074
 ;;21,"60429-0126-30 ")
 ;;1853
 ;;21,"60429-0126-60 ")
 ;;1854
 ;;21,"60429-0127-30 ")
 ;;2081
 ;;21,"60429-0139-01 ")
 ;;1327
 ;;21,"60429-0139-10 ")
 ;;1328
 ;;21,"60429-0140-01 ")
 ;;1440
 ;;21,"60429-0140-10 ")
 ;;1441
 ;;21,"60429-0141-01 ")
 ;;1532
 ;;21,"60429-0141-10 ")
 ;;1533
 ;;21,"60429-0141-45 ")
 ;;1534
 ;;21,"60429-0142-01 ")
 ;;1589
 ;;21,"60429-0142-05 ")
 ;;1590
 ;;21,"60429-0142-10 ")
 ;;1591
 ;;21,"60429-0142-45 ")
 ;;1592
 ;;21,"60429-0211-90 ")
 ;;744
 ;;21,"60429-0277-01 ")
 ;;2681
 ;;21,"60429-0277-05 ")
 ;;2682
 ;;21,"60429-0278-01 ")
 ;;2748
 ;;21,"60429-0278-05 ")
 ;;2749
 ;;21,"60429-0279-01 ")
 ;;2799
 ;;21,"60429-0753-01 ")
 ;;1206
 ;;21,"60429-0754-01 ")
 ;;1219
 ;;21,"60429-0830-10 ")
 ;;1321
 ;;21,"60429-0831-10 ")
 ;;1423
 ;;21,"60505-2606-01 ")
 ;;2229
 ;;21,"60505-2606-08 ")
 ;;2230
 ;;21,"60505-2607-01 ")
 ;;2351
 ;;21,"60505-2607-08 ")
 ;;2352
 ;;21,"60505-2608-01 ")
 ;;2429
 ;;21,"60505-2608-08 ")
 ;;2430
 ;;21,"60505-2609-01 ")
 ;;2555
 ;;21,"60505-2609-08 ")
 ;;2556
 ;;21,"60760-0059-30 ")
 ;;839
 ;;21,"60760-0059-90 ")
 ;;840
 ;;21,"60760-0060-30 ")
 ;;794
 ;;21,"60760-0060-90 ")
 ;;795
 ;;21,"60760-0061-90 ")
 ;;1108
 ;;21,"60760-0142-60 ")
 ;;2174
 ;;21,"60760-0142-98 ")
 ;;2175
 ;;21,"60760-0143-60 ")
 ;;2283
 ;;21,"60760-0143-98 ")
 ;;2284
 ;;21,"60760-0144-60 ")
 ;;2483
 ;;21,"60760-0144-98 ")
 ;;2484
 ;;21,"60760-0145-60 ")
 ;;2601
 ;;21,"60760-0145-98 ")
 ;;2602
 ;;21,"60760-0251-60 ")
 ;;1770
 ;;21,"60760-0251-98 ")
 ;;1771
 ;;21,"60760-0252-60 ")
 ;;1982
 ;;21,"60760-0976-30 ")
 ;;1517
 ;;21,"60760-0976-90 ")
 ;;1518
 ;;21,"60760-0977-30 ")
 ;;1356
 ;;21,"60760-0977-90 ")
 ;;1357
 ;;21,"60760-0978-30 ")
 ;;1284
 ;;21,"60760-0978-90 ")
 ;;1285
 ;;21,"60793-0283-01 ")
 ;;3048
 ;;21,"60793-0284-01 ")
 ;;3052
 ;;21,"60793-0800-01 ")
 ;;4
 ;;21,"60793-0801-01 ")
 ;;28
 ;;21,"60793-0802-01 ")
 ;;65
 ;;21,"60951-0782-70 ")
 ;;614
 ;;21,"60976-0346-43 ")
 ;;2715
 ;;21,"60976-0346-44 ")
 ;;2716
 ;;21,"60976-0346-47 ")
 ;;2717
 ;;21,"61570-0175-01 ")
 ;;3049
 ;;21,"61570-0176-01 ")
 ;;3053
 ;;21,"61570-0200-01 ")
 ;;5
 ;;21,"61570-0201-01 ")
 ;;31
 ;;21,"61570-0201-10 ")
 ;;32
 ;;21,"61570-0202-01 ")
 ;;66
 ;;21,"61570-0202-10 ")
 ;;67
 ;;21,"61570-0203-01 ")
 ;;88
 ;;21,"61570-0204-01 ")
 ;;93
 ;;21,"62037-0830-01 ")
 ;;1329
 ;;21,"62037-0830-10 ")
 ;;1330
 ;;21,"62037-0831-01 ")
 ;;1438
 ;;21,"62037-0831-10 ")
 ;;1439
 ;;21,"62037-0832-01 ")
 ;;1535
 ;;21,"62037-0832-10 ")
 ;;1536
 ;;21,"62037-0833-01 ")
 ;;1587
 ;;21,"62037-0833-10 ")
 ;;1588
 ;;21,"62584-0265-01 ")
 ;;1685
 ;;21,"62584-0265-11 ")
 ;;1686
 ;;21,"62584-0266-01 ")
 ;;1913
 ;;21,"62584-0266-11 ")
 ;;1914
 ;;21,"62584-0267-01 ")
 ;;2074
 ;;21,"62584-0267-11 ")
 ;;2075
 ;;21,"62584-0467-01 ")
 ;;888
 ;;21,"62584-0467-11 ")
 ;;889
 ;;21,"62584-0467-80 ")
 ;;890
 ;;21,"62584-0467-85 ")
 ;;891
 ;;21,"62584-0620-01 ")
 ;;1007
 ;;21,"62584-0715-01 ")
 ;;1187
 ;;21,"62584-0715-11 ")
 ;;1188
 ;;21,"62584-0788-01 ")
 ;;1783
 ;;21,"62584-0788-33 ")
 ;;1784
 ;;21,"62584-0842-01 ")
 ;;181
 ;;21,"62584-0842-33 ")
 ;;182
 ;;21,"62584-0842-80 ")
 ;;183
 ;;21,"62584-0842-85 ")
 ;;184
 ;;21,"62584-0843-01 ")
 ;;240
 ;;21,"62584-0843-33 ")
 ;;241
 ;;21,"62584-0843-80 ")
 ;;242
 ;;21,"62584-0843-85 ")
 ;;243
 ;;21,"62584-0844-01 ")
 ;;371
 ;;21,"62584-0845-01 ")
 ;;450
 ;;21,"62756-0368-88 ")
 ;;3037
 ;;21,"62756-0369-88 ")
 ;;3042
 ;;21,"62756-0370-88 ")
 ;;3025
 ;;21,"63304-0579-01 ")
 ;;1622
 ;;21,"63304-0579-10 ")
 ;;1623
 ;;21,"63304-0580-01 ")
 ;;1750
 ;;21,"63304-0580-10 ")
 ;;1751
 ;;21,"63304-0581-01 ")
 ;;2005
 ;;21,"63304-0581-10 ")
 ;;2006
 ;;21,"63304-0621-01 ")
 ;;745
 ;;21,"63304-0621-10 ")
 ;;746
 ;;21,"63304-0622-01 ")
 ;;886
 ;;21,"63304-0622-10 ")
 ;;887
 ;;21,"63304-0623-01 ")
 ;;1123
 ;;21,"63304-0623-10 ")
 ;;1124
 ;;21,"63629-1423-01 ")
 ;;121
 ;;21,"63629-1423-02 ")
 ;;122
 ;;21,"63629-1462-01 ")
 ;;1997
 ;;21,"63629-1462-02 ")
 ;;1998
 ;;21,"63629-1462-03 ")
 ;;1999
 ;;21,"63629-1463-01 ")
 ;;1730
 ;;21,"63629-1463-02 ")
 ;;1731
 ;;21,"63629-1463-03 ")
 ;;1732
 ;;21,"63629-1463-04 ")
 ;;1733
 ;;21,"63629-1463-05 ")
 ;;1734
 ;;21,"63629-1674-01 ")
 ;;2916
 ;;21,"63629-1740-01 ")
 ;;836
 ;;21,"63629-1740-02 ")
 ;;837
 ;;21,"63629-1740-03 ")
 ;;838
 ;;21,"63629-1785-01 ")
 ;;796
 ;;21,"63629-1785-02 ")
 ;;797
 ;;21,"63629-1785-03 ")
 ;;798
 ;;21,"63629-1842-01 ")
 ;;479
 ;;21,"63629-2570-01 ")
 ;;223
 ;;21,"63629-2570-02 ")
 ;;224
 ;;21,"63629-2570-03 ")
 ;;225
 ;;21,"63629-2570-04 ")
 ;;267
 ;;21,"63629-2626-01 ")
 ;;1141
 ;;21,"63629-2626-02 ")
 ;;1142
 ;;21,"63629-2626-03 ")
 ;;1143
 ;;21,"63629-2626-04 ")
 ;;1144
 ;;21,"63629-2909-01 ")
 ;;2825
 ;;21,"63629-2909-02 ")
 ;;2826
 ;;21,"63629-2909-03 ")
 ;;2827
 ;;21,"63629-2909-04 ")
 ;;2828
 ;;21,"63629-3587-01 ")
 ;;417
 ;;21,"63629-3587-02 ")
 ;;418
 ;;21,"63629-3636-01 ")
 ;;1473
 ;;21,"63629-3636-02 ")
 ;;1474
 ;;21,"63629-3668-01 ")
 ;;2270
 ;;21,"63629-3668-02 ")
 ;;2271
 ;;21,"63629-3668-03 ")
 ;;2272
 ;;21,"63629-3669-01 ")
 ;;2458
 ;;21,"63629-3669-02 ")
 ;;2459
 ;;21,"63629-3669-03 ")
 ;;2460
 ;;21,"63629-3738-01 ")
 ;;2877
 ;;21,"63629-3871-01 ")
 ;;627
 ;;21,"63629-4060-01 ")
 ;;2240
 ;;21,"63629-4060-02 ")
 ;;2241
 ;;21,"63629-4070-01 ")
 ;;2544
 ;;21,"63629-4070-02 ")
 ;;2545
 ;;21,"63629-4072-01 ")
 ;;2942
 ;;21,"63629-4075-01 ")
 ;;3000
 ;;21,"63629-4096-01 ")
 ;;1293
 ;;21,"63629-4241-01 ")
 ;;1418
 ;;21,"63629-4241-02 ")
 ;;1419
 ;;21,"63629-4241-03 ")
 ;;1420
 ;;21,"63629-4241-04 ")
 ;;1421
 ;;21,"63629-4241-05 ")
 ;;1422
 ;;21,"63629-4605-01 ")
 ;;1641
 ;;21,"63739-0027-01 ")
 ;;703
 ;;21,"63739-0027-02 ")
 ;;704
 ;;21,"63739-0027-03 ")
 ;;705
 ;;21,"63739-0027-10 ")
 ;;706
 ;;21,"63739-0027-15 ")
 ;;707
 ;;21,"63739-0028-01 ")
 ;;969
 ;;21,"63739-0028-02 ")
 ;;970
 ;;21,"63739-0028-03 ")
 ;;971
 ;;21,"63739-0028-10 ")
 ;;972
 ;;21,"63739-0028-15 ")
 ;;973
 ;;21,"63739-0173-01 ")
 ;;1908
 ;;21,"63739-0173-02 ")
 ;;1909
 ;;21,"63739-0173-03 ")
 ;;1910
 ;;21,"63739-0173-10 ")
 ;;1911
 ;;21,"63739-0173-15 ")
 ;;1912
 ;;21,"63739-0216-01 ")
 ;;118
 ;;21,"63739-0216-02 ")
 ;;119
 ;;21,"63739-0216-03 ")
 ;;120
 ;;21,"63739-0217-01 ")
 ;;203
 ;;21,"63739-0217-02 ")
 ;;204
 ;;21,"63739-0217-03 ")
 ;;205
 ;;21,"63739-0366-10 ")
 ;;2771
 ;;21,"63739-0405-10 ")
 ;;1665
 ;;21,"63739-0428-10 ")
 ;;1790
 ;;21,"63739-0454-10 ")
 ;;1522
 ;;21,"63874-0332-01 ")
 ;;929
 ;;21,"63874-0332-02 ")
 ;;930
 ;;21,"63874-0332-07 ")
 ;;931
 ;;21,"63874-0332-10 ")
 ;;932
 ;;21,"63874-0332-14 ")
 ;;933
 ;;21,"63874-0332-15 ")
 ;;934
 ;;21,"63874-0332-20 ")
 ;;935
 ;;21,"63874-0332-30 ")
 ;;936
 ;;21,"63874-0332-60 ")
 ;;937
 ;;21,"63874-0332-90 ")
 ;;938
 ;;21,"63874-0368-01 ")
 ;;287
 ;;21,"63874-0368-02 ")
 ;;288
 ;;21,"63874-0368-15 ")
 ;;289
 ;;21,"63874-0368-20 ")
 ;;290
 ;;21,"63874-0368-28 ")
 ;;291
 ;;21,"63874-0368-30 ")
 ;;292
 ;;21,"63874-0368-60 ")
 ;;293
 ;;21,"63874-0388-01 ")
 ;;1165
 ;;21,"63874-0388-07 ")
 ;;1166
 ;;21,"63874-0388-10 ")
 ;;1167
 ;;21,"63874-0388-12 ")
 ;;1168
 ;;21,"63874-0388-15 ")
 ;;1169
 ;;21,"63874-0388-20 ")
 ;;1170
 ;;21,"63874-0388-30 ")
 ;;1171
 ;;21,"63874-0406-01 ")
 ;;1915
 ;;21,"63874-0406-10 ")
 ;;1916
 ;;21,"63874-0406-14 ")
 ;;1917
 ;;21,"63874-0406-15 ")
 ;;1918
 ;;21,"63874-0406-20 ")
 ;;1919
 ;;21,"63874-0406-28 ")
 ;;1920
 ;;21,"63874-0406-30 ")
 ;;1921
 ;;21,"63874-0406-60 ")
 ;;1922
 ;;21,"63874-0407-01 ")
 ;;2067
 ;;21,"63874-0407-10 ")
 ;;2068
 ;;21,"63874-0407-15 ")
 ;;2069
 ;;21,"63874-0407-20 ")
 ;;2070
 ;;21,"63874-0407-30 ")
 ;;2071
 ;;21,"63874-0407-60 ")
 ;;2072
 ;;21,"63874-0407-90 ")
 ;;2073
 ;;21,"63874-0454-01 ")
 ;;138
 ;;21,"63874-0454-02 ")
 ;;139
 ;;21,"63874-0454-04 ")
 ;;140
 ;;21,"63874-0454-15 ")
 ;;141
 ;;21,"63874-0454-20 ")
 ;;142
 ;;21,"63874-0454-30 ")
 ;;143
 ;;21,"63874-0454-60 ")
 ;;144
 ;;21,"63874-0468-01 ")
 ;;786
 ;;21,"63874-0468-10 ")
 ;;787
 ;;21,"63874-0468-14 ")
 ;;788
 ;;21,"63874-0468-15 ")
 ;;789
 ;;21,"63874-0468-20 ")
 ;;790
 ;;21,"63874-0468-30 ")
 ;;791
 ;;21,"63874-0468-60 ")
 ;;792
 ;;21,"63874-0468-90 ")
 ;;793
 ;;21,"63874-0486-01 ")
 ;;329
 ;;21,"63874-0486-02 ")
 ;;330
 ;;21,"63874-0486-15 ")
 ;;331
 ;;21,"63874-0486-30 ")
 ;;332
 ;;21,"63874-0486-40 ")
 ;;333
 ;;21,"63874-0486-60 ")
 ;;334
 ;;21,"64376-0502-01 ")
 ;;1841
 ;;21,"64376-0502-10 ")
 ;;1842
 ;;21,"64376-0503-01 ")
 ;;2096
 ;;21,"64376-0503-10 ")
 ;;2097
 ;;21,"64679-0734-02 ")
 ;;1280
 ;;21,"64679-0734-03 ")
 ;;1281
 ;;21,"64679-0734-08 ")
 ;;1282
 ;;21,"64679-0734-09 ")
 ;;1283
 ;;21,"64679-0735-02 ")
 ;;1363
 ;;21,"64679-0735-03 ")
 ;;1364
 ;;21,"64679-0735-08 ")
 ;;1365
 ;;21,"64679-0735-09 ")
 ;;1366
 ;;21,"64679-0736-02 ")
 ;;1480
 ;;21,"64679-0736-03 ")
 ;;1481
 ;;21,"64679-0736-08 ")
 ;;1482
 ;;21,"64679-0736-09 ")
 ;;1483
 ;;21,"64679-0737-02 ")
 ;;1563
 ;;21,"64679-0737-03 ")
 ;;1564
 ;;21,"64679-0737-08 ")
 ;;1565
 ;;21,"65162-0669-10 ")
 ;;630
 ;;21,"65162-0670-10 ")
 ;;645
 ;;21,"65243-0014-03 ")
 ;;1003
 ;;21,"65243-0014-09 ")
 ;;1004
 ;;21,"65243-0014-18 ")
 ;;1005
 ;;21,"65243-0014-45 ")
 ;;1006
 ;;21,"65243-0232-03 ")
 ;;1785
 ;;21,"65243-0232-06 ")
 ;;1786
 ;;21,"65243-0232-09 ")
 ;;1787
 ;;21,"65243-0232-12 ")
 ;;1788
 ;;21,"65243-0232-18 ")
 ;;1789
 ;;21,"65243-0265-03 ")
 ;;2110
 ;;21,"65243-0265-06 ")
 ;;2111
 ;;21,"65243-0265-09 ")
 ;;2112
 ;;21,"65243-0265-18 ")
 ;;2113
 ;;21,"65243-0265-45 ")
 ;;2114
 ;;21,"65243-0308-03 ")
 ;;965
 ;;21,"65243-0308-09 ")
 ;;966
 ;;21,"65243-0308-18 ")
 ;;967
 ;;21,"65243-0329-03 ")
 ;;1850
 ;;21,"65243-0329-09 ")
 ;;1851
 ;;21,"65243-0329-18 ")
 ;;1852
 ;;21,"65243-0347-09 ")
 ;;708
 ;;21,"65243-0379-09 ")
 ;;2082
 ;;21,"65243-0379-18 ")
 ;;1993
 ;;21,"65243-0382-09 ")
 ;;1761
 ;;21,"65243-0382-18 ")
 ;;1762
 ;;21,"65483-0391-10 ")
 ;;2720
 ;;21,"65483-0391-11 ")
 ;;2721
 ;;21,"65483-0391-50 ")
 ;;2722
 ;;21,"65483-0392-10 ")
 ;;2782
 ;;21,"65483-0392-22 ")
 ;;2783
 ;;21,"65483-0392-50 ")
 ;;2784
 ;;21,"65483-0393-10 ")
 ;;2814
 ;;21,"65483-0393-33 ")
 ;;2815
 ;;21,"65483-0393-50 ")
 ;;2816
 ;;21,"65726-0250-10 ")
 ;;594
 ;;21,"65726-0250-25 ")
 ;;595
 ;;21,"65726-0251-10 ")
 ;;610
 ;;21,"65726-0251-25 ")
 ;;611
 ;;21,"65862-0062-01 ")
 ;;1666
 ;;21,"65862-0062-99 ")
 ;;1640
 ;;21,"65862-0063-01 ")
 ;;1829
 ;;21,"65862-0063-99 ")
 ;;1830
 ;;21,"65862-0064-01 ")
 ;;2101
 ;;21,"65862-0064-99 ")
 ;;2102
 ;;21,"65862-0086-01 ")
 ;;1237
 ;;21,"65862-0086-30 ")
 ;;1238
 ;;21,"65862-0087-01 ")
 ;;1268
 ;;21,"65862-0087-30 ")
 ;;1269
 ;;21,"65862-0142-01 ")
 ;;2235
 ;;21,"65862-0142-05 ")
 ;;2236
 ;;21,"65862-0143-01 ")
 ;;2338
 ;;21,"65862-0143-05 ")
 ;;2339
 ;;21,"65862-0144-01 ")
 ;;2439
 ;;21,"65862-0144-05 ")
 ;;2440
 ;;21,"65862-0145-01 ")
 ;;2542
 ;;21,"65862-0145-05 ")
 ;;2543
 ;;21,"65862-0168-01 ")
 ;;676
 ;;21,"65862-0168-99 ")
 ;;677
 ;;21,"65862-0169-01 ")
 ;;1019
 ;;21,"65862-0169-99 ")
 ;;1020
 ;;21,"65862-0170-01 ")
 ;;1200
 ;;21,"65862-0170-99 ")
 ;;1201
 ;;21,"66105-0994-03 ")
 ;;1801
 ;;21,"66105-0994-06 ")
 ;;1802
 ;;21,"66105-0994-10 ")
 ;;1803
 ;;21,"66105-0994-11 ")
 ;;1804
 ;;21,"66105-0994-15 ")
 ;;1805
 ;;21,"66105-0996-03 ")
 ;;2116
 ;;21,"66105-0996-06 ")
 ;;2117
 ;;21,"66105-0996-10 ")
 ;;2118
 ;;21,"66105-0996-11 ")
 ;;2119
 ;;21,"66105-0996-15 ")
 ;;2120
 ;;21,"66116-0239-30 ")
 ;;968
 ;;21,"66116-0421-30 ")
 ;;1172
 ;;21,"66116-0455-30 ")
 ;;2080
 ;;21,"66116-0456-30 ")
 ;;1849
 ;;21,"66267-0029-30 ")
 ;;1075
 ;;21,"66267-0029-60 ")
 ;;1076
 ;;21,"66267-0029-90 ")
 ;;1077
 ;;21,"66267-0029-91 ")
 ;;1078
 ;;21,"66267-0029-92 ")
 ;;1079
 ;;21,"66267-0030-30 ")
 ;;808
 ;;21,"66267-0030-60 ")
 ;;809
 ;;21,"66267-0031-30 ")
 ;;827
 ;;21,"66267-0031-60 ")
 ;;828
 ;;21,"66267-0240-30 ")
 ;;1720
 ;;21,"66267-0346-30 ")
 ;;2023
 ;;21,"66267-0346-60 ")
 ;;2024
 ;;21,"66267-0346-90 ")
 ;;2025
 ;;21,"66267-0346-91 ")
 ;;2026
 ;;21,"66267-0346-92 ")
 ;;2027
 ;;21,"66267-0346-93 ")
 ;;2028
 ;;21,"66336-0125-60 ")
 ;;2253
 ;;21,"66336-0126-60 ")
 ;;2374
 ;;21,"66336-0514-30 ")
 ;;2078
 ;;21,"66336-0514-60 ")
 ;;2079
 ;;21,"66336-0514-62 ")
 ;;1994
 ;;21,"66336-0514-90 ")
 ;;2077
 ;;21,"66336-0523-30 ")
 ;;1856