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

BGP51P2.m

Go to the documentation of this file.
BGP51P2 ;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,"13411-0176-10 ")
 ;;793
 ;;21,"16571-0430-11 ")
 ;;547
 ;;21,"16571-0431-11 ")
 ;;646
 ;;21,"16571-0441-11 ")
 ;;811
 ;;21,"16590-0132-30 ")
 ;;396
 ;;21,"16590-0132-60 ")
 ;;397
 ;;21,"16590-0133-30 ")
 ;;404
 ;;21,"16590-0133-60 ")
 ;;405
 ;;21,"16590-0256-30 ")
 ;;525
 ;;21,"16590-0256-60 ")
 ;;526
 ;;21,"16590-0256-90 ")
 ;;527
 ;;21,"16590-0257-30 ")
 ;;629
 ;;21,"16590-0257-60 ")
 ;;630
 ;;21,"16590-0257-71 ")
 ;;631
 ;;21,"16590-0257-90 ")
 ;;632
 ;;21,"16590-0317-15 ")
 ;;1513
 ;;21,"16590-0317-30 ")
 ;;1514
 ;;21,"16590-0317-60 ")
 ;;1515
 ;;21,"16590-0317-72 ")
 ;;1516
 ;;21,"16590-0317-90 ")
 ;;1517
 ;;21,"16590-0328-30 ")
 ;;351
 ;;21,"16590-0428-30 ")
 ;;1649
 ;;21,"16590-0428-60 ")
 ;;1650
 ;;21,"16590-0428-72 ")
 ;;1651
 ;;21,"16590-0428-90 ")
 ;;1652
 ;;21,"16590-0462-30 ")
 ;;267
 ;;21,"16590-0533-30 ")
 ;;2120
 ;;21,"16590-0533-60 ")
 ;;2121
 ;;21,"16590-0533-72 ")
 ;;2122
 ;;21,"16590-0533-90 ")
 ;;2123
 ;;21,"16590-0808-45 ")
 ;;97
 ;;21,"16590-0808-60 ")
 ;;98
 ;;21,"16590-0808-90 ")
 ;;99
 ;;21,"16590-0851-28 ")
 ;;812
 ;;21,"16590-0900-30 ")
 ;;1053
 ;;21,"16590-0900-60 ")
 ;;1054
 ;;21,"16590-0917-30 ")
 ;;284
 ;;21,"16590-0917-60 ")
 ;;285
 ;;21,"16714-0021-04 ")
 ;;93
 ;;21,"16714-0021-06 ")
 ;;94
 ;;21,"16714-0021-10 ")
 ;;95
 ;;21,"16714-0021-12 ")
 ;;96
 ;;21,"16714-0022-04 ")
 ;;135
 ;;21,"16714-0022-06 ")
 ;;136
 ;;21,"16714-0022-10 ")
 ;;137
 ;;21,"16714-0022-12 ")
 ;;138
 ;;21,"16714-0023-04 ")
 ;;215
 ;;21,"16714-0023-06 ")
 ;;216
 ;;21,"16714-0023-10 ")
 ;;217
 ;;21,"16714-0023-12 ")
 ;;218
 ;;21,"16714-0024-04 ")
 ;;234
 ;;21,"16714-0024-10 ")
 ;;235
 ;;21,"16714-0025-04 ")
 ;;270
 ;;21,"16714-0025-05 ")
 ;;271
 ;;21,"16714-0025-10 ")
 ;;272
 ;;21,"16714-0025-11 ")
 ;;273
 ;;21,"16714-0031-04 ")
 ;;550
 ;;21,"16714-0031-06 ")
 ;;551
 ;;21,"16714-0032-04 ")
 ;;641
 ;;21,"16714-0032-06 ")
 ;;642
 ;;21,"16714-0033-04 ")
 ;;815
 ;;21,"16714-0033-06 ")
 ;;816
 ;;21,"21695-0298-30 ")
 ;;1488
 ;;21,"21695-0298-60 ")
 ;;1489
 ;;21,"21695-0298-78 ")
 ;;1490
 ;;21,"21695-0298-90 ")
 ;;1491
 ;;21,"21695-0299-00 ")
 ;;1669
 ;;21,"21695-0299-30 ")
 ;;1670
 ;;21,"21695-0299-60 ")
 ;;1671
 ;;21,"21695-0299-78 ")
 ;;1672
 ;;21,"21695-0299-90 ")
 ;;1673
 ;;21,"21695-0322-30 ")
 ;;548
 ;;21,"21695-0322-90 ")
 ;;549
 ;;21,"21695-0323-30 ")
 ;;643
 ;;21,"21695-0323-60 ")
 ;;644
 ;;21,"21695-0323-90 ")
 ;;645
 ;;21,"21695-0324-00 ")
 ;;813
 ;;21,"21695-0324-30 ")
 ;;814
 ;;21,"21695-0494-30 ")
 ;;1272
 ;;21,"21695-0494-60 ")
 ;;1273
 ;;21,"21695-0494-78 ")
 ;;1274
 ;;21,"21695-0494-90 ")
 ;;1275
 ;;21,"21695-0592-00 ")
 ;;2206
 ;;21,"21695-0592-30 ")
 ;;2207
 ;;21,"21695-0592-60 ")
 ;;2208
 ;;21,"21695-0645-00 ")
 ;;1717
 ;;21,"21695-0645-60 ")
 ;;1718
 ;;21,"21695-0645-78 ")
 ;;1719
 ;;21,"21695-0646-30 ")
 ;;1866
 ;;21,"21695-0646-60 ")
 ;;1867
 ;;21,"21695-0646-78 ")
 ;;1868
 ;;21,"21695-0646-90 ")
 ;;1869
 ;;21,"21695-0647-30 ")
 ;;1958
 ;;21,"21695-0647-60 ")
 ;;1959
 ;;21,"21695-0647-78 ")
 ;;1960
 ;;21,"21695-0647-90 ")
 ;;1961
 ;;21,"21695-0648-30 ")
 ;;2109
 ;;21,"21695-0648-60 ")
 ;;2110
 ;;21,"21695-0648-78 ")
 ;;2111
 ;;21,"21695-0667-30 ")
 ;;888
 ;;21,"21695-0667-90 ")
 ;;889
 ;;21,"21695-0668-30 ")
 ;;132
 ;;21,"21695-0668-60 ")
 ;;133
 ;;21,"21695-0668-78 ")
 ;;134
 ;;21,"21695-0669-30 ")
 ;;219
 ;;21,"21695-0669-60 ")
 ;;220
 ;;21,"21695-0670-30 ")
 ;;911
 ;;21,"21695-0670-90 ")
 ;;912
 ;;21,"21695-0743-30 ")
 ;;2291
 ;;21,"21695-0744-30 ")
 ;;2318
 ;;21,"21695-0799-30 ")
 ;;27
 ;;21,"21695-0800-30 ")
 ;;51
 ;;21,"21695-0802-30 ")
 ;;10
 ;;21,"21695-0808-30 ")
 ;;2388
 ;;21,"21695-0809-30 ")
 ;;2407
 ;;21,"21695-0950-30 ")
 ;;1050
 ;;21,"21695-0950-60 ")
 ;;1051
 ;;21,"21695-0950-90 ")
 ;;1052
 ;;21,"21695-0972-30 ")
 ;;1143
 ;;21,"21695-0988-30 ")
 ;;2276
 ;;21,"21695-0994-00 ")
 ;;2257
 ;;21,"23155-0110-01 ")
 ;;91
 ;;21,"23155-0110-10 ")
 ;;92
 ;;21,"23155-0111-01 ")
 ;;139
 ;;21,"23155-0111-10 ")
 ;;140
 ;;21,"23155-0112-01 ")
 ;;210
 ;;21,"23155-0112-10 ")
 ;;211
 ;;21,"23155-0113-01 ")
 ;;236
 ;;21,"23155-0114-01 ")
 ;;268
 ;;21,"23155-0114-05 ")
 ;;269
 ;;21,"23490-1977-01 ")
 ;;1269
 ;;21,"23490-1977-03 ")
 ;;1270
 ;;21,"23490-5096-01 ")
 ;;808
 ;;21,"23490-5096-02 ")
 ;;809
 ;;21,"23490-5096-03 ")
 ;;810
 ;;21,"23490-5097-01 ")
 ;;543
 ;;21,"23490-5097-02 ")
 ;;544
 ;;21,"23490-5097-03 ")
 ;;545
 ;;21,"23490-5097-09 ")
 ;;546
 ;;21,"23490-5098-01 ")
 ;;647
 ;;21,"23490-5098-02 ")
 ;;648
 ;;21,"23490-5098-09 ")
 ;;649
 ;;21,"23490-5300-03 ")
 ;;2319
 ;;21,"23490-5300-09 ")
 ;;2320
 ;;21,"23490-5915-00 ")
 ;;1144
 ;;21,"23490-5917-01 ")
 ;;943
 ;;21,"23490-5920-00 ")
 ;;1666
 ;;21,"23490-5920-01 ")
 ;;1667
 ;;21,"23490-5920-06 ")
 ;;1668
 ;;21,"23490-5921-01 ")
 ;;1492
 ;;21,"23490-5921-02 ")
 ;;1493
 ;;21,"23490-5921-03 ")
 ;;1494
 ;;21,"23490-5927-03 ")
 ;;1048
 ;;21,"23490-5927-09 ")
 ;;1049
 ;;21,"23490-6203-03 ")
 ;;212
 ;;21,"23490-6203-06 ")
 ;;213
 ;;21,"23490-6203-09 ")
 ;;214
 ;;21,"23490-6503-03 ")
 ;;2411
 ;;21,"23490-6504-03 ")
 ;;2382
 ;;21,"23490-6504-06 ")
 ;;2383
 ;;21,"23490-6504-09 ")
 ;;2384
 ;;21,"23490-7861-03 ")
 ;;2342
 ;;21,"23490-9369-03 ")
 ;;1720
 ;;21,"23490-9369-06 ")
 ;;1721
 ;;21,"23490-9370-03 ")
 ;;1864
 ;;21,"23490-9370-06 ")
 ;;1865
 ;;21,"23490-9371-03 ")
 ;;1962
 ;;21,"23490-9371-06 ")
 ;;1963
 ;;21,"23490-9372-03 ")
 ;;2107
 ;;21,"23490-9372-06 ")
 ;;2108
 ;;21,"24090-0450-85 ")
 ;;398
 ;;21,"24090-0451-85 ")
 ;;403
 ;;21,"24090-0470-88 ")
 ;;283
 ;;21,"24090-0471-88 ")
 ;;318
 ;;21,"24090-0473-88 ")
 ;;346
 ;;21,"24090-0479-88 ")
 ;;374
 ;;21,"29300-0126-01 ")
 ;;886
 ;;21,"29300-0126-13 ")
 ;;887
 ;;21,"29300-0127-01 ")
 ;;909
 ;;21,"29300-0127-13 ")
 ;;910
 ;;21,"29300-0187-01 ")
 ;;2339
 ;;21,"29300-0187-05 ")
 ;;2340
 ;;21,"29300-0187-13 ")
 ;;2341
 ;;21,"29300-0188-01 ")
 ;;2385
 ;;21,"29300-0188-05 ")
 ;;2386
 ;;21,"29300-0188-13 ")
 ;;2387
 ;;21,"29300-0189-01 ")
 ;;2408
 ;;21,"29300-0189-05 ")
 ;;2409
 ;;21,"29300-0189-13 ")
 ;;2410
 ;;21,"30698-0460-01 ")
 ;;2420
 ;;21,"33261-0221-30 ")
 ;;2201
 ;;21,"33261-0221-60 ")
 ;;2202
 ;;21,"33261-0221-90 ")
 ;;2203
 ;;21,"33261-0334-00 ")
 ;;1265
 ;;21,"33261-0334-30 ")
 ;;1266
 ;;21,"33261-0334-60 ")
 ;;1267
 ;;21,"33261-0334-90 ")
 ;;1268
 ;;21,"33261-0349-30 ")
 ;;653
 ;;21,"33261-0349-60 ")
 ;;654
 ;;21,"33261-0349-90 ")
 ;;655
 ;;21,"33261-0517-00 ")
 ;;802
 ;;21,"33261-0517-30 ")
 ;;803
 ;;21,"33261-0517-60 ")
 ;;804
 ;;21,"33261-0517-90 ")
 ;;805
 ;;21,"33261-0537-00 ")
 ;;2103
 ;;21,"33261-0537-30 ")
 ;;2104
 ;;21,"33261-0537-60 ")
 ;;2105
 ;;21,"33261-0537-90 ")
 ;;2106
 ;;21,"33261-0544-00 ")
 ;;1500
 ;;21,"33261-0544-30 ")
 ;;1501
 ;;21,"33261-0544-60 ")
 ;;1502
 ;;21,"33261-0544-90 ")
 ;;1503
 ;;21,"33261-0545-00 ")
 ;;1660
 ;;21,"33261-0545-30 ")
 ;;1661
 ;;21,"33261-0545-60 ")
 ;;1662
 ;;21,"33261-0545-90 ")
 ;;1663
 ;;21,"33261-0642-30 ")
 ;;129
 ;;21,"33261-0642-60 ")
 ;;130
 ;;21,"33261-0642-90 ")
 ;;131
 ;;21,"33261-0643-30 ")
 ;;221
 ;;21,"33261-0643-60 ")
 ;;222
 ;;21,"33261-0643-90 ")
 ;;223
 ;;21,"33261-0848-00 ")
 ;;1860
 ;;21,"33261-0848-30 ")
 ;;1861
 ;;21,"33261-0848-60 ")
 ;;1862
 ;;21,"33261-0848-90 ")
 ;;1863
 ;;21,"33261-0855-00 ")
 ;;1044
 ;;21,"33261-0855-30 ")
 ;;1045
 ;;21,"33261-0855-60 ")
 ;;1046
 ;;21,"33261-0855-90 ")
 ;;1047
 ;;21,"33261-0898-00 ")
 ;;944
 ;;21,"33261-0898-30 ")
 ;;945
 ;;21,"33261-0898-60 ")
 ;;946
 ;;21,"33261-0898-90 ")
 ;;947
 ;;21,"33261-0942-00 ")
 ;;2292
 ;;21,"33261-0942-30 ")
 ;;2293
 ;;21,"33261-0942-60 ")
 ;;2294
 ;;21,"33261-0942-90 ")
 ;;2295
 ;;21,"33358-0037-00 ")
 ;;540
 ;;21,"33358-0037-30 ")
 ;;541
 ;;21,"33358-0037-60 ")
 ;;542
 ;;21,"33358-0038-00 ")
 ;;650
 ;;21,"33358-0038-30 ")
 ;;651
 ;;21,"33358-0038-60 ")
 ;;652
 ;;21,"33358-0039-00 ")
 ;;806
 ;;21,"33358-0039-30 ")
 ;;807
 ;;21,"33358-0192-30 ")
 ;;100
 ;;21,"33358-0193-30 ")
 ;;128
 ;;21,"33358-0194-30 ")
 ;;286
 ;;21,"33358-0242-00 ")
 ;;1495
 ;;21,"33358-0242-01 ")
 ;;1496
 ;;21,"33358-0242-30 ")
 ;;1497
 ;;21,"33358-0242-60 ")
 ;;1498
 ;;21,"33358-0242-90 ")
 ;;1499
 ;;21,"33358-0243-00 ")
 ;;1664
 ;;21,"33358-0243-30 ")
 ;;1665
 ;;21,"35356-0362-30 ")
 ;;2204
 ;;21,"35356-0362-60 ")
 ;;2205
 ;;21,"35356-0415-30 ")
 ;;1507
 ;;21,"35356-0490-30 ")
 ;;2182
 ;;21,"35356-0512-18 ")
 ;;1857
 ;;21,"35356-0512-30 ")
 ;;1858
 ;;21,"35356-0512-60 ")
 ;;1859
 ;;21,"35356-0513-30 ")
 ;;1722
 ;;21,"35356-0513-60 ")
 ;;1723
 ;;21,"35356-0518-30 ")
 ;;2173
 ;;21,"35356-0526-00 ")
 ;;2099
 ;;21,"35356-0526-30 ")
 ;;2100
 ;;21,"35356-0526-60 ")
 ;;2101
 ;;21,"35356-0526-90 ")
 ;;2102
 ;;21,"35356-0737-30 ")
 ;;656
 ;;21,"35356-0738-00 ")
 ;;657
 ;;21,"35356-0782-30 ")
 ;;1657
 ;;21,"35356-0782-60 ")
 ;;1658
 ;;21,"35356-0782-90 ")
 ;;1659
 ;;21,"35356-0859-30 ")
 ;;2317
 ;;21,"35356-0888-30 ")
 ;;1145
 ;;21,"35356-0888-60 ")
 ;;1146
 ;;21,"35356-0888-90 ")
 ;;1147
 ;;21,"35356-0889-30 ")
 ;;1504
 ;;21,"35356-0889-60 ")
 ;;1505
 ;;21,"35356-0889-90 ")
 ;;1506
 ;;21,"35356-0898-30 ")
 ;;1041
 ;;21,"35356-0898-60 ")
 ;;1042
 ;;21,"35356-0898-90 ")
 ;;1043
 ;;21,"35356-0908-30 ")
 ;;1964
 ;;21,"35356-0908-60 ")
 ;;1965
 ;;21,"35356-0930-30 ")
 ;;537
 ;;21,"35356-0930-60 ")
 ;;538
 ;;21,"35356-0930-90 ")
 ;;539
 ;;21,"35356-0934-30 ")
 ;;948
 ;;21,"35356-0934-60 ")
 ;;949
 ;;21,"35356-0934-90 ")
 ;;950
 ;;21,"35356-0946-30 ")
 ;;1724
 ;;21,"35356-0946-60 ")
 ;;1725
 ;;21,"42254-0005-30 ")
 ;;240
 ;;21,"42254-0046-30 ")
 ;;818
 ;;21,"42254-0046-90 ")
 ;;819
 ;;21,"42254-0094-30 ")
 ;;11
 ;;21,"42254-0107-30 ")
 ;;662
 ;;21,"42254-0107-60 ")
 ;;663
 ;;21,"42254-0107-90 ")
 ;;664
 ;;21,"42254-0162-00 ")
 ;;1730
 ;;21,"42254-0218-30 ")
 ;;26
 ;;21,"42254-0273-30 ")
 ;;951
 ;;21,"42254-0273-90 ")
 ;;952
 ;;21,"42254-0279-30 ")
 ;;101
 ;;21,"42291-0101-90 ")
 ;;414
 ;;21,"42291-0102-90 ")
 ;;425
 ;;21,"42291-0140-10 ")
 ;;533
 ;;21,"42291-0140-18 ")
 ;;534
 ;;21,"42291-0140-45 ")
 ;;535
 ;;21,"42291-0140-90 ")
 ;;536
 ;;21,"42291-0141-10 ")
 ;;658
 ;;21,"42291-0141-18 ")
 ;;659
 ;;21,"42291-0141-45 ")
 ;;660
 ;;21,"42291-0141-90 ")
 ;;661
 ;;21,"42291-0142-18 ")
 ;;798
 ;;21,"42291-0142-45 ")
 ;;799
 ;;21,"42291-0142-50 ")
 ;;800
 ;;21,"42291-0142-90 ")
 ;;801
 ;;21,"42291-0196-10 ")
 ;;1726
 ;;21,"42291-0197-10 ")
 ;;1855
 ;;21,"42291-0197-90 ")
 ;;1856
 ;;21,"42291-0198-10 ")
 ;;1966
 ;;21,"42291-0199-10 ")
 ;;2097
 ;;21,"42291-0199-90 ")
 ;;2098
 ;;21,"42291-0201-50 ")
 ;;1727
 ;;21,"42291-0201-60 ")
 ;;1728
 ;;21,"42291-0201-90 ")
 ;;1729
 ;;21,"42291-0202-18 ")
 ;;1851
 ;;21,"42291-0202-50 ")
 ;;1852
 ;;21,"42291-0202-60 ")
 ;;1853
 ;;21,"42291-0202-90 ")
 ;;1854
 ;;21,"42291-0203-30 ")
 ;;1967
 ;;21,"42291-0203-50 ")
 ;;1968
 ;;21,"42291-0203-60 ")
 ;;1969
 ;;21,"42291-0203-90 ")
 ;;1970
 ;;21,"42291-0204-18 ")
 ;;2092
 ;;21,"42291-0204-30 ")
 ;;2093
 ;;21,"42291-0204-50 ")
 ;;2094
 ;;21,"42291-0204-60 ")
 ;;2095
 ;;21,"42291-0204-90 ")
 ;;2096
 ;;21,"42291-0221-50 ")
 ;;1731
 ;;21,"42291-0221-60 ")
 ;;1732
 ;;21,"42291-0221-90 ")
 ;;1733
 ;;21,"42291-0222-18 ")
 ;;1847
 ;;21,"42291-0222-50 ")
 ;;1848
 ;;21,"42291-0222-60 ")
 ;;1849
 ;;21,"42291-0222-90 ")
 ;;1850
 ;;21,"42291-0223-30 ")
 ;;1971
 ;;21,"42291-0223-50 ")
 ;;1972
 ;;21,"42291-0223-60 ")
 ;;1973
 ;;21,"42291-0223-90 ")
 ;;1974
 ;;21,"42291-0224-18 ")
 ;;2085
 ;;21,"42291-0224-30 ")
 ;;2086
 ;;21,"42291-0224-50 ")
 ;;2087
 ;;21,"42291-0224-60 ")
 ;;2088
 ;;21,"42291-0224-90 ")
 ;;2089
 ;;21,"42806-0038-01 ")
 ;;867
 ;;21,"42806-0039-01 ")
 ;;873
 ;;21,"43063-0006-01 ")
 ;;1675
 ;;21,"43063-0006-90 ")
 ;;1676
 ;;21,"43063-0006-93 ")
 ;;1677
 ;;21,"43063-0062-06 ")
 ;;665
 ;;21,"43063-0062-30 ")
 ;;666
 ;;21,"43063-0062-90 ")
 ;;667
 ;;21,"43063-0064-06 ")
 ;;1313
 ;;21,"43063-0125-93 ")
 ;;1975
 ;;21,"43063-0126-93 ")
 ;;1734
 ;;21,"43063-0127-93 ")
 ;;1846
 ;;21,"43063-0129-30 ")
 ;;2082
 ;;21,"43063-0129-60 ")
 ;;2083
 ;;21,"43063-0129-93 ")
 ;;2084
 ;;21,"43063-0134-30 ")
 ;;2412
 ;;21,"43063-0134-90 ")
 ;;2413
 ;;21,"43063-0135-90 ")
 ;;2343
 ;;21,"43063-0210-30 ")
 ;;953
 ;;21,"43063-0210-90 ")
 ;;954
 ;;21,"43063-0211-30 ")
 ;;1029
 ;;21,"43063-0211-90 ")
 ;;1030
 ;;21,"43063-0297-30 ")
 ;;557
 ;;21,"43063-0297-90 ")
 ;;558
 ;;21,"43063-0316-30 ")
 ;;820
 ;;21,"43063-0316-90 ")
 ;;821
 ;;21,"43063-0398-30 ")
 ;;1469
 ;;21,"43063-0398-90 ")
 ;;1470
 ;;21,"43063-0398-93 ")
 ;;1471
 ;;21,"43063-0398-94 ")
 ;;1472
 ;;21,"43063-0440-90 ")
 ;;1473
 ;;21,"43353-0104-30 ")
 ;;1979