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

BGP51O6.m

Go to the documentation of this file.
BGP51O6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"63629-4707-02 ")
 ;;271
 ;;21,"63629-4707-03 ")
 ;;272
 ;;21,"63629-4707-04 ")
 ;;273
 ;;21,"63739-0049-10 ")
 ;;269
 ;;21,"63739-0066-10 ")
 ;;990
 ;;21,"63739-0166-10 ")
 ;;1825
 ;;21,"63739-0167-10 ")
 ;;1928
 ;;21,"63739-0531-10 ")
 ;;1018
 ;;21,"63874-0315-01 ")
 ;;991
 ;;21,"63874-0315-02 ")
 ;;992
 ;;21,"63874-0315-04 ")
 ;;993
 ;;21,"63874-0315-05 ")
 ;;994
 ;;21,"63874-0315-07 ")
 ;;995
 ;;21,"63874-0315-10 ")
 ;;996
 ;;21,"63874-0315-12 ")
 ;;997
 ;;21,"63874-0315-14 ")
 ;;998
 ;;21,"63874-0315-15 ")
 ;;999
 ;;21,"63874-0315-18 ")
 ;;1000
 ;;21,"63874-0315-20 ")
 ;;1001
 ;;21,"63874-0315-21 ")
 ;;1002
 ;;21,"63874-0315-24 ")
 ;;1003
 ;;21,"63874-0315-25 ")
 ;;1004
 ;;21,"63874-0315-28 ")
 ;;1005
 ;;21,"63874-0315-30 ")
 ;;1006
 ;;21,"63874-0315-35 ")
 ;;1007
 ;;21,"63874-0315-40 ")
 ;;1008
 ;;21,"63874-0315-42 ")
 ;;1009
 ;;21,"63874-0315-45 ")
 ;;1010
 ;;21,"63874-0315-50 ")
 ;;1011
 ;;21,"63874-0315-56 ")
 ;;1012
 ;;21,"63874-0315-60 ")
 ;;1013
 ;;21,"63874-0315-75 ")
 ;;1014
 ;;21,"63874-0315-76 ")
 ;;1015
 ;;21,"63874-0315-80 ")
 ;;1016
 ;;21,"63874-0315-90 ")
 ;;1017
 ;;21,"63874-0330-01 ")
 ;;274
 ;;21,"63874-0330-02 ")
 ;;275
 ;;21,"63874-0330-03 ")
 ;;276
 ;;21,"63874-0330-04 ")
 ;;277
 ;;21,"63874-0330-05 ")
 ;;278
 ;;21,"63874-0330-07 ")
 ;;279
 ;;21,"63874-0330-10 ")
 ;;280
 ;;21,"63874-0330-11 ")
 ;;281
 ;;21,"63874-0330-12 ")
 ;;282
 ;;21,"63874-0330-14 ")
 ;;283
 ;;21,"63874-0330-15 ")
 ;;284
 ;;21,"63874-0330-16 ")
 ;;285
 ;;21,"63874-0330-18 ")
 ;;286
 ;;21,"63874-0330-20 ")
 ;;287
 ;;21,"63874-0330-21 ")
 ;;288
 ;;21,"63874-0330-24 ")
 ;;289
 ;;21,"63874-0330-25 ")
 ;;290
 ;;21,"63874-0330-28 ")
 ;;291
 ;;21,"63874-0330-30 ")
 ;;292
 ;;21,"63874-0330-40 ")
 ;;293
 ;;21,"63874-0330-42 ")
 ;;294
 ;;21,"63874-0330-45 ")
 ;;295
 ;;21,"63874-0330-50 ")
 ;;296
 ;;21,"63874-0330-56 ")
 ;;297
 ;;21,"63874-0330-60 ")
 ;;298
 ;;21,"63874-0330-72 ")
 ;;299
 ;;21,"63874-0330-74 ")
 ;;300
 ;;21,"63874-0330-75 ")
 ;;301
 ;;21,"63874-0330-77 ")
 ;;302
 ;;21,"63874-0330-80 ")
 ;;303
 ;;21,"63874-0330-84 ")
 ;;304
 ;;21,"63874-0330-90 ")
 ;;305
 ;;21,"63874-0371-01 ")
 ;;1826
 ;;21,"63874-0371-03 ")
 ;;1827
 ;;21,"63874-0371-04 ")
 ;;1828
 ;;21,"63874-0371-12 ")
 ;;1829
 ;;21,"63874-0371-14 ")
 ;;1830
 ;;21,"63874-0371-15 ")
 ;;1831
 ;;21,"63874-0371-20 ")
 ;;1832
 ;;21,"63874-0371-24 ")
 ;;1833
 ;;21,"63874-0371-30 ")
 ;;1834
 ;;21,"63874-0371-40 ")
 ;;1835
 ;;21,"63874-0371-50 ")
 ;;1836
 ;;21,"63874-0371-60 ")
 ;;1837
 ;;21,"63874-0371-73 ")
 ;;1838
 ;;21,"63874-0371-84 ")
 ;;1839
 ;;21,"63874-0372-01 ")
 ;;1909
 ;;21,"63874-0372-03 ")
 ;;1910
 ;;21,"63874-0372-04 ")
 ;;1911
 ;;21,"63874-0372-08 ")
 ;;1912
 ;;21,"63874-0372-10 ")
 ;;1913
 ;;21,"63874-0372-12 ")
 ;;1914
 ;;21,"63874-0372-14 ")
 ;;1915
 ;;21,"63874-0372-15 ")
 ;;1916
 ;;21,"63874-0372-20 ")
 ;;1917
 ;;21,"63874-0372-21 ")
 ;;1918
 ;;21,"63874-0372-24 ")
 ;;1919
 ;;21,"63874-0372-28 ")
 ;;1920
 ;;21,"63874-0372-30 ")
 ;;1921
 ;;21,"63874-0372-40 ")
 ;;1922
 ;;21,"63874-0372-42 ")
 ;;1923
 ;;21,"63874-0372-50 ")
 ;;1924
 ;;21,"63874-0372-56 ")
 ;;1925
 ;;21,"63874-0372-60 ")
 ;;1926
 ;;21,"63874-0372-90 ")
 ;;1927
 ;;21,"63874-0419-01 ")
 ;;633
 ;;21,"63874-0419-04 ")
 ;;634
 ;;21,"63874-0419-08 ")
 ;;635
 ;;21,"63874-0419-10 ")
 ;;636
 ;;21,"63874-0419-12 ")
 ;;637
 ;;21,"63874-0419-14 ")
 ;;638
 ;;21,"63874-0419-15 ")
 ;;639
 ;;21,"63874-0419-16 ")
 ;;640
 ;;21,"63874-0419-20 ")
 ;;641
 ;;21,"63874-0419-21 ")
 ;;642
 ;;21,"63874-0419-24 ")
 ;;643
 ;;21,"63874-0419-28 ")
 ;;644
 ;;21,"63874-0419-30 ")
 ;;645
 ;;21,"63874-0419-40 ")
 ;;646
 ;;21,"63874-0419-42 ")
 ;;647
 ;;21,"63874-0419-50 ")
 ;;648
 ;;21,"63874-0419-56 ")
 ;;649
 ;;21,"63874-0419-60 ")
 ;;650
 ;;21,"63874-0419-72 ")
 ;;651
 ;;21,"63874-0419-74 ")
 ;;652
 ;;21,"63874-0419-77 ")
 ;;653
 ;;21,"63874-0419-90 ")
 ;;654
 ;;21,"63874-0531-10 ")
 ;;2281
 ;;21,"63874-0531-14 ")
 ;;2282
 ;;21,"63874-0531-30 ")
 ;;2283
 ;;21,"63874-0531-40 ")
 ;;2284
 ;;21,"63874-1101-03 ")
 ;;1561
 ;;21,"63874-1101-06 ")
 ;;1562
 ;;21,"63874-1101-09 ")
 ;;1563
 ;;21,"63874-1186-06 ")
 ;;745
 ;;21,"63874-1186-09 ")
 ;;746
 ;;21,"64720-0103-10 ")
 ;;334
 ;;21,"64720-0103-11 ")
 ;;335
 ;;21,"64720-0103-50 ")
 ;;336
 ;;21,"64720-0321-10 ")
 ;;1499
 ;;21,"64980-0174-01 ")
 ;;231
 ;;21,"64980-0174-05 ")
 ;;232
 ;;21,"64980-0174-10 ")
 ;;233
 ;;21,"64980-0175-01 ")
 ;;497
 ;;21,"64980-0176-01 ")
 ;;522
 ;;21,"65162-0541-10 ")
 ;;1225
 ;;21,"65162-0541-11 ")
 ;;1226
 ;;21,"65162-0541-50 ")
 ;;1227
 ;;21,"65162-0553-10 ")
 ;;1435
 ;;21,"65243-0290-09 ")
 ;;2120
 ;;21,"65243-0290-12 ")
 ;;2121
 ;;21,"65243-0345-03 ")
 ;;1228
 ;;21,"65243-0345-06 ")
 ;;1229
 ;;21,"65243-0345-09 ")
 ;;1230
 ;;21,"65862-0158-01 ")
 ;;228
 ;;21,"65862-0158-05 ")
 ;;229
 ;;21,"65862-0158-99 ")
 ;;230
 ;;21,"65862-0190-01 ")
 ;;830
 ;;21,"65862-0191-01 ")
 ;;1251
 ;;21,"65862-0191-05 ")
 ;;1252
 ;;21,"65862-0191-99 ")
 ;;1253
 ;;21,"66116-0141-30 ")
 ;;1254
 ;;21,"66116-0224-30 ")
 ;;225
 ;;21,"66116-0607-20 ")
 ;;527
 ;;21,"66116-0613-20 ")
 ;;226
 ;;21,"66116-0624-20 ")
 ;;2211
 ;;21,"66116-0626-30 ")
 ;;2130
 ;;21,"66116-0627-30 ")
 ;;227
 ;;21,"66116-0628-15 ")
 ;;1255
 ;;21,"66116-0629-30 ")
 ;;1256
 ;;21,"66116-0631-30 ")
 ;;526
 ;;21,"66267-0043-12 ")
 ;;214
 ;;21,"66267-0043-15 ")
 ;;215
 ;;21,"66267-0043-20 ")
 ;;216
 ;;21,"66267-0043-30 ")
 ;;217
 ;;21,"66267-0043-40 ")
 ;;218
 ;;21,"66267-0043-45 ")
 ;;219
 ;;21,"66267-0043-56 ")
 ;;220
 ;;21,"66267-0043-60 ")
 ;;221
 ;;21,"66267-0043-84 ")
 ;;222
 ;;21,"66267-0043-90 ")
 ;;223
 ;;21,"66267-0043-91 ")
 ;;224
 ;;21,"66267-0055-00 ")
 ;;528
 ;;21,"66267-0055-20 ")
 ;;529
 ;;21,"66267-0055-30 ")
 ;;530
 ;;21,"66267-0055-40 ")
 ;;531
 ;;21,"66267-0055-60 ")
 ;;532
 ;;21,"66267-0055-91 ")
 ;;533
 ;;21,"66267-0064-10 ")
 ;;1257
 ;;21,"66267-0064-15 ")
 ;;1258
 ;;21,"66267-0064-20 ")
 ;;1259
 ;;21,"66267-0064-30 ")
 ;;1260
 ;;21,"66267-0064-40 ")
 ;;1261
 ;;21,"66267-0064-45 ")
 ;;1262
 ;;21,"66267-0064-56 ")
 ;;1263
 ;;21,"66267-0064-60 ")
 ;;1264
 ;;21,"66267-0064-90 ")
 ;;1265
 ;;21,"66267-0064-91 ")
 ;;1266
 ;;21,"66267-0145-20 ")
 ;;1698
 ;;21,"66267-0145-30 ")
 ;;1699
 ;;21,"66267-0145-40 ")
 ;;1700
 ;;21,"66267-0145-60 ")
 ;;1701
 ;;21,"66267-0145-90 ")
 ;;1702
 ;;21,"66267-0146-12 ")
 ;;2122
 ;;21,"66267-0146-20 ")
 ;;2123
 ;;21,"66267-0146-30 ")
 ;;2124
 ;;21,"66267-0146-40 ")
 ;;2125
 ;;21,"66267-0146-60 ")
 ;;2126
 ;;21,"66267-0146-84 ")
 ;;2127
 ;;21,"66267-0146-90 ")
 ;;2128
 ;;21,"66267-0146-91 ")
 ;;2129
 ;;21,"66267-0158-14 ")
 ;;2212
 ;;21,"66267-0158-15 ")
 ;;2213
 ;;21,"66267-0158-20 ")
 ;;2214
 ;;21,"66267-0158-30 ")
 ;;2215
 ;;21,"66267-0158-60 ")
 ;;2216
 ;;21,"66267-0158-90 ")
 ;;2217
 ;;21,"66267-0611-00 ")
 ;;1632
 ;;21,"66267-0611-08 ")
 ;;1633
 ;;21,"66267-0611-15 ")
 ;;1634
 ;;21,"66267-0611-20 ")
 ;;1635
 ;;21,"66267-0611-21 ")
 ;;1636
 ;;21,"66267-0611-30 ")
 ;;1637
 ;;21,"66267-0611-42 ")
 ;;1638
 ;;21,"66267-0611-45 ")
 ;;1639
 ;;21,"66267-0611-60 ")
 ;;1640
 ;;21,"66267-0611-78 ")
 ;;1641
 ;;21,"66267-0611-90 ")
 ;;1642
 ;;21,"66267-0611-91 ")
 ;;1643
 ;;21,"66267-0775-03 ")
 ;;1279
 ;;21,"66267-0775-04 ")
 ;;1280
 ;;21,"66267-1007-00 ")
 ;;213
 ;;21,"66336-0063-20 ")
 ;;2131
 ;;21,"66336-0063-28 ")
 ;;2132
 ;;21,"66336-0063-30 ")
 ;;2133
 ;;21,"66336-0063-40 ")
 ;;2134
 ;;21,"66336-0063-60 ")
 ;;2135
 ;;21,"66336-0063-90 ")
 ;;2136
 ;;21,"66336-0063-94 ")
 ;;2137
 ;;21,"66336-0080-18 ")
 ;;1692
 ;;21,"66336-0080-20 ")
 ;;1693
 ;;21,"66336-0080-30 ")
 ;;1694
 ;;21,"66336-0080-40 ")
 ;;1695
 ;;21,"66336-0080-60 ")
 ;;1696
 ;;21,"66336-0080-90 ")
 ;;1697
 ;;21,"66336-0554-20 ")
 ;;2334
 ;;21,"66336-0554-30 ")
 ;;2335
 ;;21,"66336-0554-60 ")
 ;;2336
 ;;21,"66336-0554-90 ")
 ;;2337
 ;;21,"66336-0581-07 ")
 ;;1267
 ;;21,"66336-0581-09 ")
 ;;1268
 ;;21,"66336-0581-10 ")
 ;;1269
 ;;21,"66336-0581-12 ")
 ;;1270
 ;;21,"66336-0581-15 ")
 ;;1271
 ;;21,"66336-0581-20 ")
 ;;1272
 ;;21,"66336-0581-21 ")
 ;;1273
 ;;21,"66336-0581-30 ")
 ;;1274
 ;;21,"66336-0581-45 ")
 ;;1275
 ;;21,"66336-0581-60 ")
 ;;1276
 ;;21,"66336-0581-90 ")
 ;;1277
 ;;21,"66336-0581-94 ")
 ;;1278
 ;;21,"66336-0635-15 ")
 ;;204
 ;;21,"66336-0635-20 ")
 ;;205
 ;;21,"66336-0635-30 ")
 ;;206
 ;;21,"66336-0635-40 ")
 ;;207
 ;;21,"66336-0635-56 ")
 ;;208
 ;;21,"66336-0635-60 ")
 ;;209
 ;;21,"66336-0635-87 ")
 ;;210
 ;;21,"66336-0635-90 ")
 ;;211
 ;;21,"66336-0635-94 ")
 ;;212
 ;;21,"66336-0663-15 ")
 ;;534
 ;;21,"66336-0663-20 ")
 ;;535
 ;;21,"66336-0663-28 ")
 ;;536
 ;;21,"66336-0663-30 ")
 ;;537
 ;;21,"66336-0663-60 ")
 ;;538
 ;;21,"66336-0663-90 ")
 ;;539
 ;;21,"66336-0709-15 ")
 ;;1644
 ;;21,"66336-0709-16 ")
 ;;1645
 ;;21,"66336-0709-20 ")
 ;;1646
 ;;21,"66336-0709-30 ")
 ;;1647
 ;;21,"66336-0709-60 ")
 ;;1648
 ;;21,"66336-0709-90 ")
 ;;1649
 ;;21,"67544-0012-30 ")
 ;;251
 ;;21,"67544-0012-53 ")
 ;;252
 ;;21,"67544-0012-60 ")
 ;;253
 ;;21,"67544-0012-70 ")
 ;;254
 ;;21,"67544-0180-30 ")
 ;;1213
 ;;21,"67544-0180-45 ")
 ;;1214
 ;;21,"67544-0180-53 ")
 ;;1215
 ;;21,"67544-0180-60 ")
 ;;1216
 ;;21,"67544-0180-70 ")
 ;;1217
 ;;21,"67544-0180-80 ")
 ;;1218
 ;;21,"67544-0180-92 ")
 ;;1219
 ;;21,"67544-0251-15 ")
 ;;1205
 ;;21,"67544-0251-30 ")
 ;;1206
 ;;21,"67544-0251-45 ")
 ;;1207
 ;;21,"67544-0251-53 ")
 ;;1208
 ;;21,"67544-0251-60 ")
 ;;1209
 ;;21,"67544-0251-70 ")
 ;;1210
 ;;21,"67544-0251-80 ")
 ;;1211
 ;;21,"67544-0251-92 ")
 ;;1212
 ;;21,"67544-0283-30 ")
 ;;239
 ;;21,"67544-0283-53 ")
 ;;240
 ;;21,"67544-0283-60 ")
 ;;241
 ;;21,"67544-0283-70 ")
 ;;242
 ;;21,"67544-0291-30 ")
 ;;243
 ;;21,"67544-0291-53 ")
 ;;244
 ;;21,"67544-0291-60 ")
 ;;245
 ;;21,"67544-0291-70 ")
 ;;246
 ;;21,"67544-0473-30 ")
 ;;247
 ;;21,"67544-0473-53 ")
 ;;248
 ;;21,"67544-0473-60 ")
 ;;249
 ;;21,"67544-0473-70 ")
 ;;250
 ;;21,"67544-0508-30 ")
 ;;1204
 ;;21,"67544-0589-30 ")
 ;;2344
 ;;21,"67544-0662-53 ")
 ;;2089
 ;;21,"67544-0662-60 ")
 ;;2090
 ;;21,"67544-0662-70 ")
 ;;2091
 ;;21,"67544-0662-80 ")
 ;;2092
 ;;21,"67544-0747-30 ")
 ;;1731
 ;;21,"67544-0747-53 ")
 ;;1732
 ;;21,"67544-0747-60 ")
 ;;1733
 ;;21,"67544-0747-70 ")
 ;;1734
 ;;21,"67544-0747-80 ")
 ;;1735
 ;;21,"67544-0747-90 ")
 ;;1736
 ;;21,"67544-0747-92 ")
 ;;1737
 ;;21,"68001-0004-00 ")
 ;;1432
 ;;21,"68001-0004-01 ")
 ;;1433
 ;;21,"68025-0046-10 ")
 ;;525
 ;;21,"68025-0047-10 ")
 ;;710
 ;;21,"68071-0462-14 ")
 ;;836
 ;;21,"68071-0462-30 ")
 ;;837
 ;;21,"68071-0462-60 ")
 ;;838
 ;;21,"68071-0462-90 ")
 ;;839
 ;;21,"68071-0610-40 ")
 ;;491
 ;;21,"68071-0827-30 ")
 ;;1430
 ;;21,"68071-0827-60 ")
 ;;1431
 ;;21,"68071-0885-30 ")
 ;;920
 ;;21,"68071-0885-60 ")
 ;;921
 ;;21,"68071-0885-90 ")
 ;;922
 ;;21,"68071-1352-00 ")
 ;;1428
 ;;21,"68071-2004-06 ")
 ;;236
 ;;21,"68084-0056-01 ")
 ;;1738
 ;;21,"68084-0056-11 ")
 ;;1739
 ;;21,"68084-0057-01 ")
 ;;2087
 ;;21,"68084-0057-11 ")
 ;;2088
 ;;21,"68084-0135-11 ")
 ;;1425
 ;;21,"68084-0135-21 ")
 ;;1429
 ;;21,"68084-0380-01 ")
 ;;237
 ;;21,"68084-0380-11 ")
 ;;238
 ;;21,"68084-0397-01 ")
 ;;1202
 ;;21,"68084-0397-11 ")
 ;;1203
 ;;21,"68084-0585-01 ")
 ;;1876
 ;;21,"68084-0585-11 ")
 ;;1877
 ;;21,"68084-0586-01 ")
 ;;1998
 ;;21,"68084-0586-11 ")
 ;;1999
 ;;21,"68084-0753-11 ")
 ;;824
 ;;21,"68084-0753-21 ")
 ;;825
 ;;21,"68258-7013-01 ")
 ;;810
 ;;21,"68258-7013-02 ")
 ;;811
 ;;21,"68258-7013-03 ")
 ;;812
 ;;21,"68258-7013-06 ")
 ;;813
 ;;21,"68258-7013-08 ")
 ;;814
 ;;21,"68258-7013-09 ")
 ;;815
 ;;21,"68258-7019-09 ")
 ;;816
 ;;21,"68258-7061-05 ")
 ;;1394
 ;;21,"68258-7100-01 ")
 ;;1510
 ;;21,"68258-7100-02 ")
 ;;1511
 ;;21,"68258-7100-03 ")
 ;;1512
 ;;21,"68258-7100-06 ")
 ;;1513
 ;;21,"68258-7100-09 ")
 ;;1514
 ;;21,"68258-7150-03 ")
 ;;894
 ;;21,"68258-7150-06 ")
 ;;895
 ;;21,"68258-7150-09 ")
 ;;896
 ;;21,"68387-0108-30 ")
 ;;1515
 ;;21,"68387-0108-60 ")
 ;;1516
 ;;21,"68387-0108-90 ")
 ;;1517
 ;;21,"68387-0340-24 ")
 ;;2015
 ;;21,"68387-0340-30 ")
 ;;2016
 ;;21,"68387-0340-45 ")
 ;;2017
 ;;21,"68387-0340-60 ")
 ;;2018
 ;;21,"68387-0340-90 ")
 ;;2019
 ;;21,"68387-0342-60 ")
 ;;1867
 ;;21,"68387-0375-30 ")
 ;;688
 ;;21,"68387-0375-90 ")
 ;;689
 ;;21,"68387-0500-10 ")
 ;;1091
 ;;21,"68387-0500-12 ")
 ;;1092
 ;;21,"68387-0500-15 ")
 ;;1093
 ;;21,"68387-0500-30 ")
 ;;1094
 ;;21,"68387-0500-45 ")
 ;;1095
 ;;21,"68387-0500-60 ")
 ;;1096
 ;;21,"68387-0500-90 ")
 ;;1097
 ;;21,"68387-0502-90 ")
 ;;817
 ;;21,"68387-0575-14 ")
 ;;2231
 ;;21,"68387-0575-60 ")
 ;;2232