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

BGP13W4.m

Go to the documentation of this file.
BGP13W4 ; 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,"54569-0563-00 ")
 ;;2000
 ;;21,"54569-0564-00 ")
 ;;1927
 ;;21,"54569-0590-00 ")
 ;;1147
 ;;21,"54569-0596-00 ")
 ;;33
 ;;21,"54569-1634-00 ")
 ;;1974
 ;;21,"54569-2499-00 ")
 ;;2318
 ;;21,"54569-2499-01 ")
 ;;2319
 ;;21,"54569-3097-00 ")
 ;;2001
 ;;21,"54569-3432-00 ")
 ;;571
 ;;21,"54569-3432-01 ")
 ;;572
 ;;21,"54569-3432-02 ")
 ;;573
 ;;21,"54569-3432-03 ")
 ;;574
 ;;21,"54569-3432-04 ")
 ;;575
 ;;21,"54569-3432-05 ")
 ;;576
 ;;21,"54569-3432-07 ")
 ;;577
 ;;21,"54569-3654-00 ")
 ;;289
 ;;21,"54569-3654-03 ")
 ;;290
 ;;21,"54569-3654-04 ")
 ;;291
 ;;21,"54569-3787-00 ")
 ;;1629
 ;;21,"54569-3787-01 ")
 ;;1630
 ;;21,"54569-3787-02 ")
 ;;1631
 ;;21,"54569-3788-00 ")
 ;;1427
 ;;21,"54569-3788-01 ")
 ;;1428
 ;;21,"54569-3790-00 ")
 ;;1841
 ;;21,"54569-3885-00 ")
 ;;421
 ;;21,"54569-3885-02 ")
 ;;422
 ;;21,"54569-3885-04 ")
 ;;423
 ;;21,"54569-4441-00 ")
 ;;1328
 ;;21,"54569-4442-00 ")
 ;;1206
 ;;21,"54569-4707-00 ")
 ;;116
 ;;21,"54569-4708-00 ")
 ;;151
 ;;21,"54569-4718-00 ")
 ;;1244
 ;;21,"54569-5368-00 ")
 ;;80
 ;;21,"54569-5384-00 ")
 ;;812
 ;;21,"54569-5385-00 ")
 ;;963
 ;;21,"54569-5404-00 ")
 ;;152
 ;;21,"54569-5404-01 ")
 ;;153
 ;;21,"54569-5417-00 ")
 ;;117
 ;;21,"54569-5417-01 ")
 ;;118
 ;;21,"54569-5419-00 ")
 ;;81
 ;;21,"54569-5419-01 ")
 ;;82
 ;;21,"54569-5701-01 ")
 ;;889
 ;;21,"54569-5870-00 ")
 ;;1276
 ;;21,"54569-5954-00 ")
 ;;1329
 ;;21,"54569-5960-01 ")
 ;;1027
 ;;21,"54569-5961-00 ")
 ;;1207
 ;;21,"54569-5974-00 ")
 ;;964
 ;;21,"54569-5975-00 ")
 ;;1028
 ;;21,"54569-5976-00 ")
 ;;813
 ;;21,"54569-5977-00 ")
 ;;890
 ;;21,"54569-6119-00 ")
 ;;1898
 ;;21,"54569-6169-00 ")
 ;;1121
 ;;21,"54738-0133-03 ")
 ;;424
 ;;21,"54738-0134-03 ")
 ;;578
 ;;21,"54738-0467-01 ")
 ;;2088
 ;;21,"54738-0467-03 ")
 ;;2089
 ;;21,"54738-0468-01 ")
 ;;2156
 ;;21,"54738-0468-03 ")
 ;;2157
 ;;21,"54738-0469-01 ")
 ;;2246
 ;;21,"54738-0469-03 ")
 ;;2247
 ;;21,"54738-0470-01 ")
 ;;2284
 ;;21,"54738-0471-01 ")
 ;;2320
 ;;21,"54738-0471-02 ")
 ;;2321
 ;;21,"54868-0052-00 ")
 ;;2090
 ;;21,"54868-0052-01 ")
 ;;2091
 ;;21,"54868-0052-02 ")
 ;;2092
 ;;21,"54868-0053-02 ")
 ;;2248
 ;;21,"54868-0053-03 ")
 ;;2249
 ;;21,"54868-0053-07 ")
 ;;2250
 ;;21,"54868-0106-00 ")
 ;;773
 ;;21,"54868-0106-01 ")
 ;;774
 ;;21,"54868-0293-00 ")
 ;;2158
 ;;21,"54868-0293-01 ")
 ;;2159
 ;;21,"54868-0293-05 ")
 ;;2160
 ;;21,"54868-0293-06 ")
 ;;2161
 ;;21,"54868-0321-00 ")
 ;;34
 ;;21,"54868-0674-00 ")
 ;;1842
 ;;21,"54868-0674-01 ")
 ;;1843
 ;;21,"54868-0680-00 ")
 ;;2002
 ;;21,"54868-0680-01 ")
 ;;2003
 ;;21,"54868-0685-01 ")
 ;;1632
 ;;21,"54868-0696-01 ")
 ;;2322
 ;;21,"54868-0696-02 ")
 ;;2323
 ;;21,"54868-0701-00 ")
 ;;579
 ;;21,"54868-0854-00 ")
 ;;1952
 ;;21,"54868-0854-01 ")
 ;;1953
 ;;21,"54868-1004-01 ")
 ;;1148
 ;;21,"54868-1063-00 ")
 ;;1429
 ;;21,"54868-1063-01 ")
 ;;1430
 ;;21,"54868-1063-02 ")
 ;;1431
 ;;21,"54868-1078-01 ")
 ;;2004
 ;;21,"54868-1078-03 ")
 ;;2005
 ;;21,"54868-1078-05 ")
 ;;2006
 ;;21,"54868-1441-00 ")
 ;;1975
 ;;21,"54868-1441-01 ")
 ;;1976
 ;;21,"54868-1442-00 ")
 ;;1928
 ;;21,"54868-1442-01 ")
 ;;1929
 ;;21,"54868-1442-02 ")
 ;;1930
 ;;21,"54868-1517-00 ")
 ;;1977
 ;;21,"54868-1517-01 ")
 ;;1978
 ;;21,"54868-1517-02 ")
 ;;1979
 ;;21,"54868-1517-03 ")
 ;;1980
 ;;21,"54868-1518-00 ")
 ;;1931
 ;;21,"54868-1518-01 ")
 ;;1932
 ;;21,"54868-1518-02 ")
 ;;1933
 ;;21,"54868-1518-03 ")
 ;;1934
 ;;21,"54868-1871-00 ")
 ;;580
 ;;21,"54868-1871-01 ")
 ;;581
 ;;21,"54868-1871-02 ")
 ;;582
 ;;21,"54868-1871-04 ")
 ;;583
 ;;21,"54868-1971-00 ")
 ;;292
 ;;21,"54868-1971-01 ")
 ;;293
 ;;21,"54868-1971-03 ")
 ;;294
 ;;21,"54868-1971-04 ")
 ;;295
 ;;21,"54868-1980-00 ")
 ;;965
 ;;21,"54868-1980-01 ")
 ;;966
 ;;21,"54868-2349-01 ")
 ;;425
 ;;21,"54868-2349-02 ")
 ;;426
 ;;21,"54868-2349-03 ")
 ;;427
 ;;21,"54868-2349-04 ")
 ;;428
 ;;21,"54868-2349-05 ")
 ;;429
 ;;21,"54868-2572-00 ")
 ;;1954
 ;;21,"54868-2572-01 ")
 ;;1955
 ;;21,"54868-2572-02 ")
 ;;1956
 ;;21,"54868-2677-00 ")
 ;;1957
 ;;21,"54868-2683-00 ")
 ;;35
 ;;21,"54868-2683-01 ")
 ;;36
 ;;21,"54868-2683-02 ")
 ;;37
 ;;21,"54868-2864-00 ")
 ;;1102
 ;;21,"54868-2864-01 ")
 ;;1103
 ;;21,"54868-2989-00 ")
 ;;1633
 ;;21,"54868-2989-02 ")
 ;;1634
 ;;21,"54868-2989-03 ")
 ;;1635
 ;;21,"54868-2989-04 ")
 ;;1636
 ;;21,"54868-2989-05 ")
 ;;1637
 ;;21,"54868-2989-06 ")
 ;;1638
 ;;21,"54868-2990-00 ")
 ;;1432
 ;;21,"54868-2990-02 ")
 ;;1433
 ;;21,"54868-2990-03 ")
 ;;1434
 ;;21,"54868-2990-04 ")
 ;;1435
 ;;21,"54868-3062-00 ")
 ;;1029
 ;;21,"54868-3062-01 ")
 ;;1030
 ;;21,"54868-3062-02 ")
 ;;1031
 ;;21,"54868-3064-00 ")
 ;;9
 ;;21,"54868-3064-01 ")
 ;;10
 ;;21,"54868-3257-01 ")
 ;;1844
 ;;21,"54868-3257-02 ")
 ;;1845
 ;;21,"54868-3257-03 ")
 ;;1846
 ;;21,"54868-3257-04 ")
 ;;1847
 ;;21,"54868-3257-05 ")
 ;;1848
 ;;21,"54868-3257-06 ")
 ;;1860
 ;;21,"54868-3587-00 ")
 ;;1330
 ;;21,"54868-3587-01 ")
 ;;1331
 ;;21,"54868-3587-02 ")
 ;;1332
 ;;21,"54868-3587-03 ")
 ;;1333
 ;;21,"54868-3587-04 ")
 ;;1334
 ;;21,"54868-3587-05 ")
 ;;1335
 ;;21,"54868-3602-00 ")
 ;;1913
 ;;21,"54868-3721-01 ")
 ;;1876
 ;;21,"54868-3721-02 ")
 ;;1877
 ;;21,"54868-4173-00 ")
 ;;154
 ;;21,"54868-4179-00 ")
 ;;83
 ;;21,"54868-4223-00 ")
 ;;1208
 ;;21,"54868-4223-01 ")
 ;;1209
 ;;21,"54868-4223-02 ")
 ;;1210
 ;;21,"54868-4223-03 ")
 ;;1211
 ;;21,"54868-4223-04 ")
 ;;1212
 ;;21,"54868-4395-00 ")
 ;;891
 ;;21,"54868-4395-01 ")
 ;;892
 ;;21,"54868-4395-02 ")
 ;;893
 ;;21,"54868-4395-03 ")
 ;;894
 ;;21,"54868-4396-00 ")
 ;;814
 ;;21,"54868-4396-01 ")
 ;;815
 ;;21,"54868-4396-02 ")
 ;;816
 ;;21,"54868-4396-03 ")
 ;;817
 ;;21,"54868-4421-00 ")
 ;;967
 ;;21,"54868-4421-01 ")
 ;;968
 ;;21,"54868-4421-02 ")
 ;;969
 ;;21,"54868-4424-00 ")
 ;;1032
 ;;21,"54868-4424-01 ")
 ;;1033
 ;;21,"54868-4424-02 ")
 ;;1034
 ;;21,"54868-4424-03 ")
 ;;1035
 ;;21,"54868-4576-00 ")
 ;;155
 ;;21,"54868-4576-01 ")
 ;;156
 ;;21,"54868-4576-03 ")
 ;;157
 ;;21,"54868-4577-00 ")
 ;;119
 ;;21,"54868-4577-01 ")
 ;;120
 ;;21,"54868-4577-03 ")
 ;;121
 ;;21,"54868-4578-00 ")
 ;;84
 ;;21,"54868-4578-01 ")
 ;;85
 ;;21,"54868-4578-02 ")
 ;;86
 ;;21,"54868-4578-03 ")
 ;;87
 ;;21,"54868-4621-00 ")
 ;;748
 ;;21,"54868-4661-00 ")
 ;;1277
 ;;21,"54868-4661-01 ")
 ;;1278
 ;;21,"54868-4661-02 ")
 ;;1279
 ;;21,"54868-4661-03 ")
 ;;1280
 ;;21,"54868-4844-00 ")
 ;;1149
 ;;21,"54868-4844-01 ")
 ;;1150
 ;;21,"54868-4844-02 ")
 ;;1151
 ;;21,"54868-4844-03 ")
 ;;1152
 ;;21,"54868-4903-00 ")
 ;;1182
 ;;21,"54868-4903-01 ")
 ;;1183
 ;;21,"54868-4903-02 ")
 ;;1184
 ;;21,"54868-4921-00 ")
 ;;1104
 ;;21,"54868-4921-01 ")
 ;;1105
 ;;21,"54868-4921-02 ")
 ;;1106
 ;;21,"54868-4932-00 ")
 ;;703
 ;;21,"54868-4932-01 ")
 ;;704
 ;;21,"54868-5013-00 ")
 ;;726
 ;;21,"54868-5021-00 ")
 ;;1528
 ;;21,"54868-5021-01 ")
 ;;1529
 ;;21,"54868-5021-02 ")
 ;;1530
 ;;21,"54868-5021-03 ")
 ;;1557
 ;;21,"54868-5068-00 ")
 ;;1245
 ;;21,"54868-5068-01 ")
 ;;1246
 ;;21,"54868-5068-02 ")
 ;;1247
 ;;21,"54868-5068-03 ")
 ;;1248
 ;;21,"54868-5095-00 ")
 ;;749
 ;;21,"54868-5095-01 ")
 ;;750
 ;;21,"54868-5095-02 ")
 ;;751
 ;;21,"54868-5095-03 ")
 ;;752
 ;;21,"54868-5295-00 ")
 ;;1814
 ;;21,"54868-5295-01 ")
 ;;1815
 ;;21,"54868-5344-00 ")
 ;;197
 ;;21,"54868-5344-01 ")
 ;;198
 ;;21,"54868-5344-02 ")
 ;;199
 ;;21,"54868-5395-00 ")
 ;;2024
 ;;21,"54868-5400-00 ")
 ;;188
 ;;21,"54868-5400-01 ")
 ;;189
 ;;21,"54868-5520-00 ")
 ;;223
 ;;21,"54868-5524-00 ")
 ;;175
 ;;21,"54868-5524-01 ")
 ;;176
 ;;21,"54868-5564-00 ")
 ;;2285
 ;;21,"54868-5564-01 ")
 ;;2286
 ;;21,"54868-5588-00 ")
 ;;1800
 ;;21,"54868-5729-00 ")
 ;;1281
 ;;21,"54868-5729-01 ")
 ;;1282
 ;;21,"54868-5729-02 ")
 ;;1283
 ;;21,"54868-5729-03 ")
 ;;1284
 ;;21,"54868-5729-04 ")
 ;;1285
 ;;21,"54868-5730-00 ")
 ;;1336
 ;;21,"54868-5730-01 ")
 ;;1337
 ;;21,"54868-5730-02 ")
 ;;1338
 ;;21,"54868-5730-03 ")
 ;;1339
 ;;21,"54868-5730-04 ")
 ;;1340
 ;;21,"54868-5730-05 ")
 ;;1341
 ;;21,"54868-5731-00 ")
 ;;1213
 ;;21,"54868-5731-01 ")
 ;;1214
 ;;21,"54868-5731-02 ")
 ;;1215
 ;;21,"54868-5731-03 ")
 ;;1216
 ;;21,"54868-5731-04 ")
 ;;1229
 ;;21,"54868-5732-00 ")
 ;;1249
 ;;21,"54868-5732-01 ")
 ;;1250
 ;;21,"54868-5755-00 ")
 ;;2007
 ;;21,"54868-5755-01 ")
 ;;2008
 ;;21,"54868-5771-00 ")
 ;;784
 ;;21,"54868-5771-01 ")
 ;;785
 ;;21,"54868-5773-00 ")
 ;;818
 ;;21,"54868-5773-01 ")
 ;;819
 ;;21,"54868-5773-02 ")
 ;;820
 ;;21,"54868-5773-03 ")
 ;;821
 ;;21,"54868-5817-00 ")
 ;;895
 ;;21,"54868-5817-01 ")
 ;;896
 ;;21,"54868-5817-02 ")
 ;;936
 ;;21,"54868-5869-00 ")
 ;;778
 ;;21,"54868-5869-01 ")
 ;;779
 ;;21,"54868-5944-00 ")
 ;;1899
 ;;21,"54868-5944-01 ")
 ;;1900
 ;;21,"54868-6018-00 ")
 ;;1888
 ;;21,"54868-6018-01 ")
 ;;1889
 ;;21,"54868-6019-00 ")
 ;;767
 ;;21,"54868-6019-01 ")
 ;;768
 ;;21,"55045-1236-08 ")
 ;;2162
 ;;21,"55045-1859-01 ")
 ;;1914
 ;;21,"55045-1860-01 ")
 ;;584
 ;;21,"55045-1860-02 ")
 ;;585
 ;;21,"55045-1860-08 ")
 ;;695
 ;;21,"55045-1860-09 ")
 ;;586
 ;;21,"55045-1939-09 ")
 ;;1436
 ;;21,"55045-2078-01 ")
 ;;2093
 ;;21,"55045-2217-08 ")
 ;;1504
 ;;21,"55045-2269-01 ")
 ;;296
 ;;21,"55045-2269-06 ")
 ;;297
 ;;21,"55045-2269-08 ")
 ;;298
 ;;21,"55045-2269-09 ")
 ;;299
 ;;21,"55045-2282-00 ")
 ;;1639
 ;;21,"55045-2282-06 ")
 ;;1640
 ;;21,"55045-2498-08 ")
 ;;430
 ;;21,"55045-2754-00 ")
 ;;22
 ;;21,"55045-2755-00 ")
 ;;54
 ;;21,"55045-3361-01 ")
 ;;1286
 ;;21,"55045-3762-08 ")
 ;;1641
 ;;21,"55045-3798-01 ")
 ;;1287
 ;;21,"55045-3867-01 ")
 ;;996
 ;;21,"55111-0252-01 ")
 ;;970
 ;;21,"55111-0252-05 ")
 ;;971
 ;;21,"55111-0253-01 ")
 ;;1036
 ;;21,"55111-0253-05 ")
 ;;1037
 ;;21,"55111-0254-01 ")
 ;;822
 ;;21,"55111-0254-05 ")
 ;;823
 ;;21,"55111-0255-01 ")
 ;;897
 ;;21,"55111-0255-05 ")
 ;;898
 ;;21,"55289-0093-30 ")
 ;;1437
 ;;21,"55289-0093-60 ")
 ;;1505
 ;;21,"55289-0093-90 ")
 ;;1438
 ;;21,"55289-0093-93 ")
 ;;1439
 ;;21,"55289-0093-97 ")
 ;;1440
 ;;21,"55289-0096-50 ")
 ;;1816
 ;;21,"55289-0097-30 ")
 ;;1849
 ;;21,"55289-0131-97 ")
 ;;2163
 ;;21,"55289-0171-30 ")
 ;;1441
 ;;21,"55289-0227-01 ")
 ;;497
 ;;21,"55289-0227-30 ")
 ;;431
 ;;21,"55289-0227-90 ")
 ;;432
 ;;21,"55289-0227-97 ")
 ;;433
 ;;21,"55289-0228-01 ")
 ;;587
 ;;21,"55289-0228-03 ")
 ;;588
 ;;21,"55289-0228-06 ")
 ;;589
 ;;21,"55289-0228-14 ")
 ;;590
 ;;21,"55289-0228-30 ")
 ;;591
 ;;21,"55289-0228-60 ")
 ;;592
 ;;21,"55289-0228-90 ")
 ;;593
 ;;21,"55289-0228-97 ")
 ;;594
 ;;21,"55289-0233-01 ")
 ;;2164
 ;;21,"55289-0233-10 ")
 ;;2165
 ;;21,"55289-0233-12 ")
 ;;2166
 ;;21,"55289-0233-60 ")
 ;;2167
 ;;21,"55289-0233-90 ")
 ;;2168
 ;;21,"55289-0233-97 ")
 ;;2169
 ;;21,"55289-0234-01 ")
 ;;2251
 ;;21,"55289-0234-30 ")
 ;;2252
 ;;21,"55289-0234-60 ")
 ;;2253
 ;;21,"55289-0234-90 ")
 ;;2254
 ;;21,"55289-0254-30 ")
 ;;595
 ;;21,"55289-0382-30 ")
 ;;1531
 ;;21,"55289-0382-93 ")
 ;;1532
 ;;21,"55289-0413-01 ")
 ;;1642
 ;;21,"55289-0413-28 ")
 ;;1643
 ;;21,"55289-0413-30 ")
 ;;1644
 ;;21,"55289-0413-60 ")
 ;;1645
 ;;21,"55289-0413-90 ")
 ;;1646
 ;;21,"55289-0413-93 ")
 ;;1647
 ;;21,"55289-0413-94 ")
 ;;1648
 ;;21,"55289-0413-97 ")
 ;;1649
 ;;21,"55289-0587-30 ")
 ;;300
 ;;21,"55289-0627-30 ")
 ;;1650
 ;;21,"55289-0630-30 ")
 ;;158
 ;;21,"55289-0630-90 ")
 ;;159
 ;;21,"55289-0653-30 ")
 ;;301
 ;;21,"55289-0653-90 ")
 ;;302
 ;;21,"55289-0855-30 ")
 ;;1342
 ;;21,"55289-0902-30 ")
 ;;1288
 ;;21,"55289-0986-30 ")
 ;;1038
 ;;21,"55289-0988-30 ")
 ;;11
 ;;21,"55289-0993-30 ")
 ;;38
 ;;21,"55289-0993-60 ")
 ;;39
 ;;21,"55289-0993-90 ")
 ;;40
 ;;21,"55887-0180-01 ")
 ;;1107
 ;;21,"55887-0191-30 ")
 ;;2025
 ;;21,"55887-0191-60 ")
 ;;2026
 ;;21,"55887-0191-90 ")
 ;;2027
 ;;21,"55887-0192-30 ")
 ;;2034
 ;;21,"55887-0192-60 ")
 ;;2035