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

BGP47X2.m

Go to the documentation of this file.
BGP47X2 ;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,"00440-7681-60 ")
 ;;2736
 ;;21,"00440-7784-45 ")
 ;;1676
 ;;21,"00440-7784-90 ")
 ;;1677
 ;;21,"00440-7785-06 ")
 ;;1950
 ;;21,"00440-7785-20 ")
 ;;1951
 ;;21,"00440-7785-28 ")
 ;;1952
 ;;21,"00440-7785-30 ")
 ;;1953
 ;;21,"00440-7785-45 ")
 ;;1954
 ;;21,"00440-7785-60 ")
 ;;1955
 ;;21,"00440-7785-90 ")
 ;;1956
 ;;21,"00440-7785-92 ")
 ;;1957
 ;;21,"00440-7785-94 ")
 ;;1958
 ;;21,"00440-7786-06 ")
 ;;2048
 ;;21,"00440-7786-30 ")
 ;;2049
 ;;21,"00440-7786-60 ")
 ;;2050
 ;;21,"00440-7786-92 ")
 ;;2051
 ;;21,"00440-7786-94 ")
 ;;2052
 ;;21,"00440-8230-60 ")
 ;;171
 ;;21,"00440-8230-90 ")
 ;;172
 ;;21,"00440-8230-91 ")
 ;;173
 ;;21,"00440-8230-92 ")
 ;;174
 ;;21,"00440-8230-94 ")
 ;;175
 ;;21,"00440-8230-99 ")
 ;;176
 ;;21,"00440-8231-60 ")
 ;;255
 ;;21,"00440-8231-90 ")
 ;;256
 ;;21,"00440-8231-92 ")
 ;;257
 ;;21,"00440-8231-94 ")
 ;;258
 ;;21,"00440-8232-30 ")
 ;;356
 ;;21,"00440-8232-90 ")
 ;;357
 ;;21,"00440-8232-94 ")
 ;;358
 ;;21,"00440-8233-90 ")
 ;;405
 ;;21,"00440-8233-94 ")
 ;;406
 ;;21,"00440-8234-90 ")
 ;;443
 ;;21,"00440-8234-94 ")
 ;;444
 ;;21,"00456-1402-01 ")
 ;;2136
 ;;21,"00456-1402-11 ")
 ;;2133
 ;;21,"00456-1402-30 ")
 ;;2134
 ;;21,"00456-1402-63 ")
 ;;2135
 ;;21,"00456-1405-01 ")
 ;;2142
 ;;21,"00456-1405-11 ")
 ;;2139
 ;;21,"00456-1405-30 ")
 ;;2140
 ;;21,"00456-1405-63 ")
 ;;2141
 ;;21,"00456-1410-01 ")
 ;;2151
 ;;21,"00456-1410-11 ")
 ;;2148
 ;;21,"00456-1410-30 ")
 ;;2149
 ;;21,"00456-1410-63 ")
 ;;2150
 ;;21,"00456-1420-01 ")
 ;;2160
 ;;21,"00456-1420-30 ")
 ;;2161
 ;;21,"00490-0053-00 ")
 ;;2896
 ;;21,"00490-0053-30 ")
 ;;2897
 ;;21,"00490-0053-60 ")
 ;;2898
 ;;21,"00490-0053-90 ")
 ;;2899
 ;;21,"00591-0437-01 ")
 ;;633
 ;;21,"00591-0438-01 ")
 ;;646
 ;;21,"00591-0462-01 ")
 ;;1959
 ;;21,"00591-0462-10 ")
 ;;1960
 ;;21,"00591-0463-01 ")
 ;;2046
 ;;21,"00591-0463-10 ")
 ;;2047
 ;;21,"00591-0605-01 ")
 ;;2666
 ;;21,"00591-0605-05 ")
 ;;2698
 ;;21,"00591-0606-01 ")
 ;;2769
 ;;21,"00591-0606-05 ")
 ;;2770
 ;;21,"00591-0607-01 ")
 ;;2808
 ;;21,"00591-0841-01 ")
 ;;2900
 ;;21,"00591-0841-05 ")
 ;;2901
 ;;21,"00591-0842-01 ")
 ;;2948
 ;;21,"00591-0842-05 ")
 ;;2949
 ;;21,"00591-0843-01 ")
 ;;2990
 ;;21,"00591-0843-30 ")
 ;;2991
 ;;21,"00591-5554-01 ")
 ;;191
 ;;21,"00591-5554-10 ")
 ;;192
 ;;21,"00591-5555-01 ")
 ;;236
 ;;21,"00591-5555-10 ")
 ;;237
 ;;21,"00591-5556-01 ")
 ;;378
 ;;21,"00591-5556-10 ")
 ;;379
 ;;21,"00591-5557-01 ")
 ;;454
 ;;21,"00591-5557-05 ")
 ;;455
 ;;21,"00591-5777-01 ")
 ;;1038
 ;;21,"00591-5777-10 ")
 ;;1039
 ;;21,"00591-5778-01 ")
 ;;1196
 ;;21,"00591-5782-01 ")
 ;;2855
 ;;21,"00591-5783-01 ")
 ;;2885
 ;;21,"00603-2374-21 ")
 ;;2843
 ;;21,"00603-2375-21 ")
 ;;2878
 ;;21,"00603-4627-21 ")
 ;;1866
 ;;21,"00603-4627-32 ")
 ;;1867
 ;;21,"00603-4628-21 ")
 ;;2087
 ;;21,"00603-4628-32 ")
 ;;2088
 ;;21,"00603-5221-21 ")
 ;;107
 ;;21,"00603-5482-21 ")
 ;;149
 ;;21,"00603-5482-32 ")
 ;;150
 ;;21,"00603-5483-02 ")
 ;;302
 ;;21,"00603-5483-21 ")
 ;;303
 ;;21,"00603-5483-32 ")
 ;;304
 ;;21,"00603-5484-21 ")
 ;;341
 ;;21,"00603-5484-32 ")
 ;;342
 ;;21,"00603-5485-21 ")
 ;;411
 ;;21,"00603-5486-21 ")
 ;;437
 ;;21,"00603-5486-28 ")
 ;;438
 ;;21,"00603-5492-21 ")
 ;;412
 ;;21,"00615-2561-53 ")
 ;;177
 ;;21,"00615-2561-63 ")
 ;;178
 ;;21,"00615-2562-53 ")
 ;;251
 ;;21,"00615-2562-63 ")
 ;;252
 ;;21,"00615-2563-53 ")
 ;;359
 ;;21,"00615-2563-63 ")
 ;;360
 ;;21,"00615-3532-53 ")
 ;;988
 ;;21,"00615-3532-63 ")
 ;;989
 ;;21,"00615-3544-53 ")
 ;;688
 ;;21,"00615-3544-63 ")
 ;;689
 ;;21,"00615-3552-53 ")
 ;;1818
 ;;21,"00615-3552-63 ")
 ;;1819
 ;;21,"00615-3553-53 ")
 ;;2131
 ;;21,"00615-3553-63 ")
 ;;2132
 ;;21,"00641-4030-86 ")
 ;;616
 ;;21,"00641-4032-86 ")
 ;;622
 ;;21,"00677-1457-01 ")
 ;;105
 ;;21,"00677-1458-01 ")
 ;;108
 ;;21,"00677-1478-01 ")
 ;;861
 ;;21,"00677-1478-10 ")
 ;;862
 ;;21,"00677-1479-01 ")
 ;;1091
 ;;21,"00677-1479-10 ")
 ;;1092
 ;;21,"00677-1480-01 ")
 ;;2856
 ;;21,"00677-1481-01 ")
 ;;2884
 ;;21,"00677-1482-01 ")
 ;;1930
 ;;21,"00677-1482-10 ")
 ;;1931
 ;;21,"00677-1483-01 ")
 ;;2031
 ;;21,"00677-1483-10 ")
 ;;2032
 ;;21,"00677-1633-01 ")
 ;;774
 ;;21,"00677-1701-01 ")
 ;;2663
 ;;21,"00677-1701-05 ")
 ;;2664
 ;;21,"00677-1702-01 ")
 ;;2728
 ;;21,"00677-1702-05 ")
 ;;2729
 ;;21,"00677-1703-01 ")
 ;;2789
 ;;21,"00781-1078-01 ")
 ;;668
 ;;21,"00781-1078-10 ")
 ;;669
 ;;21,"00781-1181-01 ")
 ;;6
 ;;21,"00781-1181-10 ")
 ;;7
 ;;21,"00781-1181-92 ")
 ;;8
 ;;21,"00781-1182-01 ")
 ;;34
 ;;21,"00781-1182-10 ")
 ;;35
 ;;21,"00781-1182-92 ")
 ;;36
 ;;21,"00781-1183-01 ")
 ;;68
 ;;21,"00781-1183-10 ")
 ;;69
 ;;21,"00781-1183-92 ")
 ;;70
 ;;21,"00781-1223-01 ")
 ;;1878
 ;;21,"00781-1223-10 ")
 ;;1879
 ;;21,"00781-1228-01 ")
 ;;2053
 ;;21,"00781-1228-10 ")
 ;;2054
 ;;21,"00781-1506-01 ")
 ;;878
 ;;21,"00781-1506-10 ")
 ;;879
 ;;21,"00781-1507-01 ")
 ;;1128
 ;;21,"00781-1507-10 ")
 ;;1129
 ;;21,"00781-1824-01 ")
 ;;2963
 ;;21,"00781-1824-05 ")
 ;;2964
 ;;21,"00781-1833-01 ")
 ;;2979
 ;;21,"00781-1833-05 ")
 ;;2980
 ;;21,"00781-1841-01 ")
 ;;2892
 ;;21,"00781-1841-05 ")
 ;;2893
 ;;21,"00781-5221-01 ")
 ;;2176
 ;;21,"00781-5222-01 ")
 ;;2282
 ;;21,"00781-5223-01 ")
 ;;2471
 ;;21,"00781-5224-01 ")
 ;;2597
 ;;21,"00781-5630-01 ")
 ;;3028
 ;;21,"00781-5631-01 ")
 ;;3036
 ;;21,"00904-0411-61 ")
 ;;179
 ;;21,"00904-0411-80 ")
 ;;180
 ;;21,"00904-0412-60 ")
 ;;245
 ;;21,"00904-0412-61 ")
 ;;246
 ;;21,"00904-0412-80 ")
 ;;247
 ;;21,"00904-0414-60 ")
 ;;368
 ;;21,"00904-0414-61 ")
 ;;369
 ;;21,"00904-0414-80 ")
 ;;370
 ;;21,"00904-0418-60 ")
 ;;445
 ;;21,"00904-5070-60 ")
 ;;62
 ;;21,"00904-5138-60 ")
 ;;625
 ;;21,"00904-5392-60 ")
 ;;662
 ;;21,"00904-5392-61 ")
 ;;663
 ;;21,"00904-5392-80 ")
 ;;664
 ;;21,"00904-5870-61 ")
 ;;2188
 ;;21,"00904-5871-61 ")
 ;;2257
 ;;21,"00904-5872-61 ")
 ;;2446
 ;;21,"00904-5873-61 ")
 ;;2564
 ;;21,"00904-5890-61 ")
 ;;1616
 ;;21,"00904-5928-61 ")
 ;;2673
 ;;21,"00904-5929-61 ")
 ;;2742
 ;;21,"00904-5930-61 ")
 ;;2794
 ;;21,"00904-5947-61 ")
 ;;484
 ;;21,"00904-5948-61 ")
 ;;510
 ;;21,"00904-5949-61 ")
 ;;554
 ;;21,"00904-5950-61 ")
 ;;588
 ;;21,"00904-6033-60 ")
 ;;1727
 ;;21,"00904-6033-61 ")
 ;;1728
 ;;21,"00904-6033-80 ")
 ;;1729
 ;;21,"00904-6034-60 ")
 ;;2000
 ;;21,"00904-6034-61 ")
 ;;2001
 ;;21,"00904-6034-80 ")
 ;;2002
 ;;21,"00904-6096-61 ")
 ;;2447
 ;;21,"00904-6097-61 ")
 ;;2569
 ;;21,"00904-6098-61 ")
 ;;2183
 ;;21,"00904-6099-61 ")
 ;;2262
 ;;21,"00904-6162-61 ")
 ;;1611
 ;;21,"00904-6169-61 ")
 ;;1336
 ;;21,"00904-6170-61 ")
 ;;1437
 ;;21,"00904-6171-61 ")
 ;;1524
 ;;21,"00904-6173-60 ")
 ;;623
 ;;21,"00904-6200-60 ")
 ;;2832
 ;;21,"00904-6300-61 ")
 ;;2209
 ;;21,"00904-6301-61 ")
 ;;2316
 ;;21,"00904-6302-61 ")
 ;;2393
 ;;21,"00904-6303-61 ")
 ;;2513
 ;;21,"00904-6322-61 ")
 ;;1337
 ;;21,"00904-6323-61 ")
 ;;1436
 ;;21,"00904-6324-61 ")
 ;;1525
 ;;21,"00904-7772-61 ")
 ;;1863
 ;;21,"00904-7773-61 ")
 ;;2091
 ;;21,"00904-7817-60 ")
 ;;45
 ;;21,"00904-7818-60 ")
 ;;73
 ;;21,"00904-7881-60 ")
 ;;2833
 ;;21,"00904-7882-60 ")
 ;;2863
 ;;21,"00904-7946-60 ")
 ;;1864
 ;;21,"00904-7946-80 ")
 ;;1865
 ;;21,"00904-7947-60 ")
 ;;2089
 ;;21,"00904-7947-80 ")
 ;;2090
 ;;21,"10544-0031-30 ")
 ;;957
 ;;21,"10544-0127-30 ")
 ;;958
 ;;21,"10544-0263-30 ")
 ;;1773
 ;;21,"10702-0013-01 ")
 ;;1207
 ;;21,"10702-0014-01 ")
 ;;1218
 ;;21,"12280-0049-00 ")
 ;;1559
 ;;21,"12280-0050-00 ")
 ;;1460
 ;;21,"12280-0050-15 ")
 ;;1461
 ;;21,"12280-0050-30 ")
 ;;1462
 ;;21,"12280-0145-00 ")
 ;;1869
 ;;21,"12280-0172-00 ")
 ;;1539
 ;;21,"12280-0172-30 ")
 ;;1540
 ;;21,"12280-0200-00 ")
 ;;410
 ;;21,"12280-0303-15 ")
 ;;2750
 ;;21,"12280-0303-30 ")
 ;;2751
 ;;21,"12280-0376-00 ")
 ;;2247
 ;;21,"12280-0376-30 ")
 ;;2248
 ;;21,"12280-0377-00 ")
 ;;2485
 ;;21,"12280-0377-30 ")
 ;;2486
 ;;21,"12280-0403-30 ")
 ;;2639
 ;;21,"12280-0404-30 ")
 ;;2640
 ;;21,"12280-0405-30 ")
 ;;2652
 ;;21,"12280-0406-30 ")
 ;;2653
 ;;21,"13107-0142-01 ")
 ;;2218
 ;;21,"13107-0142-05 ")
 ;;2219
 ;;21,"13107-0143-01 ")
 ;;2331
 ;;21,"13107-0143-05 ")
 ;;2332
 ;;21,"13107-0144-01 ")
 ;;2415
 ;;21,"13107-0144-05 ")
 ;;2416
 ;;21,"13107-0145-01 ")
 ;;2531
 ;;21,"13107-0145-05 ")
 ;;2532
 ;;21,"13411-0169-01 ")
 ;;983
 ;;21,"13411-0169-03 ")
 ;;984
 ;;21,"13411-0169-06 ")
 ;;985
 ;;21,"13411-0169-09 ")
 ;;986
 ;;21,"13411-0169-10 ")
 ;;987
 ;;21,"13411-0176-01 ")
 ;;1180
 ;;21,"13411-0176-03 ")
 ;;1181
 ;;21,"13411-0176-06 ")
 ;;1182
 ;;21,"13411-0176-09 ")
 ;;1183
 ;;21,"13411-0176-10 ")
 ;;1184
 ;;21,"15330-0025-01 ")
 ;;760
 ;;21,"15330-0025-10 ")
 ;;761
 ;;21,"15330-0028-01 ")
 ;;873
 ;;21,"15330-0028-10 ")
 ;;874
 ;;21,"15330-0029-01 ")
 ;;1133
 ;;21,"15330-0029-10 ")
 ;;1134
 ;;21,"16571-0430-11 ")
 ;;693
 ;;21,"16571-0431-11 ")
 ;;976
 ;;21,"16571-0441-11 ")
 ;;1160
 ;;21,"16590-0132-30 ")
 ;;596
 ;;21,"16590-0132-60 ")
 ;;597
 ;;21,"16590-0133-30 ")
 ;;608
 ;;21,"16590-0133-60 ")
 ;;609
 ;;21,"16590-0256-30 ")
 ;;775
 ;;21,"16590-0256-60 ")
 ;;776
 ;;21,"16590-0256-90 ")
 ;;690
 ;;21,"16590-0257-30 ")
 ;;979
 ;;21,"16590-0257-60 ")
 ;;980
 ;;21,"16590-0257-71 ")
 ;;981
 ;;21,"16590-0257-90 ")
 ;;982
 ;;21,"16590-0317-15 ")
 ;;1772
 ;;21,"16590-0317-30 ")
 ;;1820
 ;;21,"16590-0317-60 ")
 ;;1821
 ;;21,"16590-0317-72 ")
 ;;1822
 ;;21,"16590-0317-90 ")
 ;;1823
 ;;21,"16590-0328-30 ")
 ;;547
 ;;21,"16590-0428-30 ")
 ;;2105
 ;;21,"16590-0428-60 ")
 ;;2106
 ;;21,"16590-0428-72 ")
 ;;2107
 ;;21,"16590-0428-90 ")
 ;;2108
 ;;21,"16590-0462-30 ")
 ;;453
 ;;21,"16590-0533-30 ")
 ;;2589
 ;;21,"16590-0533-60 ")
 ;;2590
 ;;21,"16590-0533-72 ")
 ;;2591
 ;;21,"16590-0533-90 ")
 ;;2592
 ;;21,"16590-0808-45 ")
 ;;152
 ;;21,"16590-0808-60 ")
 ;;153
 ;;21,"16590-0808-90 ")
 ;;154
 ;;21,"16590-0851-28 ")
 ;;1155
 ;;21,"16590-0900-30 ")
 ;;1382
 ;;21,"16590-0900-60 ")
 ;;1383
 ;;21,"16590-0917-30 ")
 ;;473
 ;;21,"16590-0917-60 ")
 ;;474
 ;;21,"16714-0021-04 ")
 ;;145
 ;;21,"16714-0021-06 ")
 ;;146
 ;;21,"16714-0021-10 ")
 ;;147
 ;;21,"16714-0021-12 ")
 ;;148
 ;;21,"16714-0022-04 ")
 ;;218
 ;;21,"16714-0022-06 ")
 ;;219
 ;;21,"16714-0022-10 ")
 ;;220
 ;;21,"16714-0022-12 ")
 ;;221
 ;;21,"16714-0023-04 ")
 ;;337
 ;;21,"16714-0023-06 ")
 ;;338
 ;;21,"16714-0023-10 ")
 ;;339
 ;;21,"16714-0023-12 ")
 ;;340
 ;;21,"16714-0024-04 ")
 ;;396
 ;;21,"16714-0024-10 ")
 ;;397
 ;;21,"16714-0025-04 ")
 ;;428
 ;;21,"16714-0025-05 ")
 ;;429
 ;;21,"16714-0025-10 ")
 ;;430
 ;;21,"16714-0025-11 ")
 ;;431
 ;;21,"16714-0031-04 ")
 ;;801
 ;;21,"16714-0031-06 ")
 ;;802
 ;;21,"16714-0032-04 ")
 ;;817
 ;;21,"16714-0032-06 ")
 ;;818
 ;;21,"16714-0033-04 ")
 ;;1066
 ;;21,"16714-0033-06 ")
 ;;1067
 ;;21,"17236-0686-30 ")
 ;;860
 ;;21,"21695-0291-30 ")
 ;;1456
 ;;21,"21695-0298-30 ")
 ;;1949
 ;;21,"21695-0298-60 ")
 ;;1706
 ;;21,"21695-0298-78 ")
 ;;1707
 ;;21,"21695-0298-90 ")
 ;;1708
 ;;21,"21695-0299-00 ")
 ;;2041
 ;;21,"21695-0299-30 ")
 ;;2042
 ;;21,"21695-0299-60 ")
 ;;2010
 ;;21,"21695-0299-78 ")
 ;;2011
 ;;21,"21695-0299-90 ")
 ;;2012
 ;;21,"21695-0322-30 ")
 ;;799
 ;;21,"21695-0322-90 ")
 ;;800
 ;;21,"21695-0323-30 ")
 ;;819
 ;;21,"21695-0323-60 ")
 ;;820
 ;;21,"21695-0323-90 ")
 ;;821
 ;;21,"21695-0324-00 ")
 ;;1063
 ;;21,"21695-0324-30 ")
 ;;1064
 ;;21,"21695-0494-30 ")
 ;;1634
 ;;21,"21695-0494-60 ")
 ;;1635
 ;;21,"21695-0494-78 ")
 ;;1636
 ;;21,"21695-0494-90 ")
 ;;1637
 ;;21,"21695-0592-00 ")
 ;;2695
 ;;21,"21695-0592-30 ")
 ;;2696
 ;;21,"21695-0592-60 ")
 ;;2697
 ;;21,"21695-0645-00 ")
 ;;2222
 ;;21,"21695-0645-60 ")
 ;;2223
 ;;21,"21695-0645-78 ")
 ;;2224
 ;;21,"21695-0646-30 ")
 ;;2361
 ;;21,"21695-0646-60 ")
 ;;2362
 ;;21,"21695-0646-78 ")
 ;;2363
 ;;21,"21695-0646-90 ")
 ;;2364
 ;;21,"21695-0647-30 ")
 ;;2421
 ;;21,"21695-0647-60 ")
 ;;2563
 ;;21,"21695-0647-78 ")
 ;;2422
 ;;21,"21695-0647-90 ")
 ;;2423
 ;;21,"21695-0648-30 ")
 ;;2562
 ;;21,"21695-0648-60 ")
 ;;2424
 ;;21,"21695-0648-78 ")
 ;;2561
 ;;21,"21695-0667-30 ")
 ;;1239
 ;;21,"21695-0667-90 ")
 ;;1240
 ;;21,"21695-0668-30 ")
 ;;248
 ;;21,"21695-0668-60 ")
 ;;249
 ;;21,"21695-0668-78 ")
 ;;250
 ;;21,"21695-0669-30 ")
 ;;363
 ;;21,"21695-0669-60 ")
 ;;364
 ;;21,"21695-0670-30 ")
 ;;1266
 ;;21,"21695-0670-90 ")
 ;;1267
 ;;21,"21695-0743-30 ")
 ;;2849
 ;;21,"21695-0744-30 ")
 ;;2875
 ;;21,"21695-0799-30 ")
 ;;51
 ;;21,"21695-0800-30 ")
 ;;80
 ;;21,"21695-0802-30 ")
 ;;19
 ;;21,"21695-0808-30 ")
 ;;2967
 ;;21,"21695-0809-30 ")
 ;;2983
 ;;21,"21695-0950-30 ")
 ;;1415
 ;;21,"21695-0950-60 ")
 ;;1416
 ;;21,"21695-0950-90 ")
 ;;1417