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

BGP47X6.m

Go to the documentation of this file.
BGP47X6 ;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,"55048-0519-60 ")
 ;;1381
 ;;21,"55048-0520-30 ")
 ;;1495
 ;;21,"55048-0521-30 ")
 ;;1292
 ;;21,"55048-0522-30 ")
 ;;2013
 ;;21,"55048-0523-30 ")
 ;;1629
 ;;21,"55048-0524-30 ")
 ;;1709
 ;;21,"55048-0524-60 ")
 ;;1710
 ;;21,"55048-0524-74 ")
 ;;1711
 ;;21,"55111-0252-01 ")
 ;;2225
 ;;21,"55111-0252-05 ")
 ;;2226
 ;;21,"55111-0253-01 ")
 ;;2355
 ;;21,"55111-0253-05 ")
 ;;2356
 ;;21,"55111-0254-01 ")
 ;;2425
 ;;21,"55111-0254-05 ")
 ;;2426
 ;;21,"55111-0255-01 ")
 ;;2559
 ;;21,"55111-0255-05 ")
 ;;2560
 ;;21,"55111-0466-01 ")
 ;;1314
 ;;21,"55111-0466-05 ")
 ;;1315
 ;;21,"55111-0467-01 ")
 ;;1391
 ;;21,"55111-0467-05 ")
 ;;1392
 ;;21,"55111-0468-01 ")
 ;;1505
 ;;21,"55111-0468-05 ")
 ;;1506
 ;;21,"55111-0469-01 ")
 ;;1569
 ;;21,"55111-0469-05 ")
 ;;1570
 ;;21,"55289-0093-30 ")
 ;;2095
 ;;21,"55289-0093-60 ")
 ;;1988
 ;;21,"55289-0093-90 ")
 ;;2092
 ;;21,"55289-0093-93 ")
 ;;2093
 ;;21,"55289-0093-97 ")
 ;;2094
 ;;21,"55289-0096-50 ")
 ;;10
 ;;21,"55289-0131-97 ")
 ;;196
 ;;21,"55289-0171-30 ")
 ;;1969
 ;;21,"55289-0227-01 ")
 ;;720
 ;;21,"55289-0227-30 ")
 ;;721
 ;;21,"55289-0227-90 ")
 ;;722
 ;;21,"55289-0227-97 ")
 ;;723
 ;;21,"55289-0228-01 ")
 ;;910
 ;;21,"55289-0228-03 ")
 ;;911
 ;;21,"55289-0228-06 ")
 ;;912
 ;;21,"55289-0228-14 ")
 ;;913
 ;;21,"55289-0228-30 ")
 ;;914
 ;;21,"55289-0228-60 ")
 ;;915
 ;;21,"55289-0228-90 ")
 ;;916
 ;;21,"55289-0228-97 ")
 ;;917
 ;;21,"55289-0233-01 ")
 ;;270
 ;;21,"55289-0233-10 ")
 ;;271
 ;;21,"55289-0233-12 ")
 ;;272
 ;;21,"55289-0233-60 ")
 ;;273
 ;;21,"55289-0233-90 ")
 ;;274
 ;;21,"55289-0233-97 ")
 ;;275
 ;;21,"55289-0234-01 ")
 ;;347
 ;;21,"55289-0234-30 ")
 ;;348
 ;;21,"55289-0234-60 ")
 ;;349
 ;;21,"55289-0234-90 ")
 ;;350
 ;;21,"55289-0254-30 ")
 ;;1054
 ;;21,"55289-0382-30 ")
 ;;1679
 ;;21,"55289-0382-93 ")
 ;;1617
 ;;21,"55289-0413-01 ")
 ;;1893
 ;;21,"55289-0413-28 ")
 ;;1894
 ;;21,"55289-0413-30 ")
 ;;1895
 ;;21,"55289-0413-60 ")
 ;;1896
 ;;21,"55289-0413-90 ")
 ;;1897
 ;;21,"55289-0413-93 ")
 ;;1898
 ;;21,"55289-0413-94 ")
 ;;1747
 ;;21,"55289-0413-97 ")
 ;;1892
 ;;21,"55289-0587-30 ")
 ;;1203
 ;;21,"55289-0627-30 ")
 ;;1695
 ;;21,"55289-0630-30 ")
 ;;2928
 ;;21,"55289-0630-90 ")
 ;;2929
 ;;21,"55289-0653-30 ")
 ;;1163
 ;;21,"55289-0653-90 ")
 ;;1164
 ;;21,"55289-0855-30 ")
 ;;1453
 ;;21,"55289-0902-30 ")
 ;;1350
 ;;21,"55289-0986-30 ")
 ;;2370
 ;;21,"55289-0988-30 ")
 ;;2861
 ;;21,"55289-0993-30 ")
 ;;2822
 ;;21,"55289-0993-60 ")
 ;;2823
 ;;21,"55289-0993-90 ")
 ;;2824
 ;;21,"55887-0180-01 ")
 ;;2704
 ;;21,"55887-0191-30 ")
 ;;602
 ;;21,"55887-0191-60 ")
 ;;603
 ;;21,"55887-0191-90 ")
 ;;604
 ;;21,"55887-0192-60 ")
 ;;601
 ;;21,"55887-0259-30 ")
 ;;2760
 ;;21,"55887-0259-60 ")
 ;;2761
 ;;21,"55887-0259-82 ")
 ;;2762
 ;;21,"55887-0259-90 ")
 ;;2763
 ;;21,"55887-0267-30 ")
 ;;2908
 ;;21,"55887-0267-60 ")
 ;;2909
 ;;21,"55887-0267-82 ")
 ;;2910
 ;;21,"55887-0267-90 ")
 ;;2911
 ;;21,"55887-0274-30 ")
 ;;2099
 ;;21,"55887-0274-90 ")
 ;;2100
 ;;21,"55887-0348-30 ")
 ;;48
 ;;21,"55887-0348-60 ")
 ;;49
 ;;21,"55887-0348-90 ")
 ;;50
 ;;21,"55887-0349-30 ")
 ;;14
 ;;21,"55887-0349-60 ")
 ;;15
 ;;21,"55887-0349-90 ")
 ;;16
 ;;21,"55887-0401-30 ")
 ;;618
 ;;21,"55887-0453-30 ")
 ;;383
 ;;21,"55887-0453-60 ")
 ;;384
 ;;21,"55887-0453-82 ")
 ;;385
 ;;21,"55887-0453-90 ")
 ;;386
 ;;21,"55887-0474-30 ")
 ;;1873
 ;;21,"55887-0474-60 ")
 ;;1874
 ;;21,"55887-0474-90 ")
 ;;1875
 ;;21,"55887-0474-92 ")
 ;;1876
 ;;21,"55887-0559-30 ")
 ;;294
 ;;21,"55887-0559-60 ")
 ;;295
 ;;21,"55887-0559-82 ")
 ;;296
 ;;21,"55887-0559-90 ")
 ;;297
 ;;21,"55887-0585-30 ")
 ;;2850
 ;;21,"55887-0585-60 ")
 ;;2851
 ;;21,"55887-0585-82 ")
 ;;2852
 ;;21,"55887-0585-90 ")
 ;;2853
 ;;21,"55887-0599-30 ")
 ;;803
 ;;21,"55887-0599-60 ")
 ;;804
 ;;21,"55887-0599-82 ")
 ;;805
 ;;21,"55887-0599-90 ")
 ;;806
 ;;21,"55887-0613-30 ")
 ;;2869
 ;;21,"55887-0613-60 ")
 ;;2870
 ;;21,"55887-0613-82 ")
 ;;2871
 ;;21,"55887-0613-90 ")
 ;;2872
 ;;21,"55887-0625-30 ")
 ;;2984
 ;;21,"55887-0625-60 ")
 ;;2985
 ;;21,"55887-0625-90 ")
 ;;2986
 ;;21,"55887-0838-01 ")
 ;;918
 ;;21,"55887-0838-30 ")
 ;;919
 ;;21,"55887-0838-60 ")
 ;;920
 ;;21,"55887-0838-82 ")
 ;;921
 ;;21,"55887-0838-90 ")
 ;;922
 ;;21,"55887-0998-30 ")
 ;;1119
 ;;21,"55887-0998-60 ")
 ;;1120
 ;;21,"55887-0998-82 ")
 ;;1121
 ;;21,"55887-0998-90 ")
 ;;1122
 ;;21,"57664-0166-08 ")
 ;;1924
 ;;21,"57664-0166-18 ")
 ;;1925
 ;;21,"57664-0166-52 ")
 ;;1735
 ;;21,"57664-0166-58 ")
 ;;1736
 ;;21,"57664-0167-08 ")
 ;;2065
 ;;21,"57664-0167-18 ")
 ;;2066
 ;;21,"57664-0167-52 ")
 ;;1995
 ;;21,"57664-0167-58 ")
 ;;1996
 ;;21,"57664-0242-13 ")
 ;;2191
 ;;21,"57664-0242-18 ")
 ;;2192
 ;;21,"57664-0242-88 ")
 ;;2193
 ;;21,"57664-0244-13 ")
 ;;2265
 ;;21,"57664-0244-18 ")
 ;;2340
 ;;21,"57664-0244-88 ")
 ;;2341
 ;;21,"57664-0245-13 ")
 ;;2436
 ;;21,"57664-0245-18 ")
 ;;2437
 ;;21,"57664-0245-88 ")
 ;;2438
 ;;21,"57664-0247-13 ")
 ;;2546
 ;;21,"57664-0247-18 ")
 ;;2547
 ;;21,"57664-0247-88 ")
 ;;2548
 ;;21,"57664-0264-18 ")
 ;;660
 ;;21,"57664-0264-88 ")
 ;;661
 ;;21,"57664-0265-18 ")
 ;;1040
 ;;21,"57664-0265-88 ")
 ;;1041
 ;;21,"57664-0266-18 ")
 ;;1190
 ;;21,"57664-0266-88 ")
 ;;1191
 ;;21,"57664-0477-08 ")
 ;;1890
 ;;21,"57664-0477-18 ")
 ;;1891
 ;;21,"57664-0477-52 ")
 ;;1748
 ;;21,"57664-0477-58 ")
 ;;1749
 ;;21,"57664-0506-08 ")
 ;;1680
 ;;21,"57664-0506-18 ")
 ;;1681
 ;;21,"57664-0506-52 ")
 ;;1620
 ;;21,"57664-0506-58 ")
 ;;1621
 ;;21,"57866-0219-01 ")
 ;;883
 ;;21,"57866-0251-01 ")
 ;;1877
 ;;21,"57866-2607-02 ")
 ;;2317
 ;;21,"57866-2608-02 ")
 ;;2406
 ;;21,"57866-3155-01 ")
 ;;1673
 ;;21,"57866-3330-01 ")
 ;;850
 ;;21,"57866-3330-03 ")
 ;;851
 ;;21,"57866-3330-05 ")
 ;;852
 ;;21,"57866-3331-01 ")
 ;;1101
 ;;21,"57866-3331-02 ")
 ;;1102
 ;;21,"57866-3331-03 ")
 ;;1103
 ;;21,"57866-3332-01 ")
 ;;779
 ;;21,"57866-3332-03 ")
 ;;780
 ;;21,"57866-4309-01 ")
 ;;159
 ;;21,"57866-4313-01 ")
 ;;268
 ;;21,"57866-4313-04 ")
 ;;269
 ;;21,"57866-4314-01 ")
 ;;351
 ;;21,"57866-4315-01 ")
 ;;407
 ;;21,"57866-4316-01 ")
 ;;440
 ;;21,"57866-4655-01 ")
 ;;1262
 ;;21,"57866-4655-02 ")
 ;;1263
 ;;21,"57866-4911-01 ")
 ;;466
 ;;21,"57866-4912-01 ")
 ;;500
 ;;21,"57866-4913-01 ")
 ;;541
 ;;21,"57866-4914-01 ")
 ;;569
 ;;21,"57866-6337-01 ")
 ;;38
 ;;21,"57866-6338-01 ")
 ;;72
 ;;21,"57866-6339-01 ")
 ;;9
 ;;21,"57866-6578-01 ")
 ;;1782
 ;;21,"57866-6578-02 ")
 ;;1779
 ;;21,"57866-6578-03 ")
 ;;1780
 ;;21,"57866-6578-05 ")
 ;;1781
 ;;21,"57866-6579-01 ")
 ;;2109
 ;;21,"57866-6579-03 ")
 ;;1980
 ;;21,"57866-6622-01 ")
 ;;2672
 ;;21,"57866-6623-01 ")
 ;;2730
 ;;21,"57866-7067-01 ")
 ;;2599
 ;;21,"57866-7067-02 ")
 ;;2600
 ;;21,"57866-7068-01 ")
 ;;1235
 ;;21,"57866-7068-02 ")
 ;;1236
 ;;21,"57866-9803-02 ")
 ;;893
 ;;21,"58016-0001-00 ")
 ;;388
 ;;21,"58016-0001-30 ")
 ;;389
 ;;21,"58016-0001-60 ")
 ;;390
 ;;21,"58016-0001-90 ")
 ;;391
 ;;21,"58016-0045-00 ")
 ;;1595
 ;;21,"58016-0045-30 ")
 ;;1596
 ;;21,"58016-0045-60 ")
 ;;1597
 ;;21,"58016-0045-90 ")
 ;;1598
 ;;21,"58016-0136-30 ")
 ;;534
 ;;21,"58016-0286-00 ")
 ;;2953
 ;;21,"58016-0286-02 ")
 ;;2954
 ;;21,"58016-0286-30 ")
 ;;2955
 ;;21,"58016-0286-60 ")
 ;;2956
 ;;21,"58016-0286-90 ")
 ;;2957
 ;;21,"58016-0300-00 ")
 ;;635
 ;;21,"58016-0300-30 ")
 ;;636
 ;;21,"58016-0300-60 ")
 ;;637
 ;;21,"58016-0300-90 ")
 ;;638
 ;;21,"58016-0331-00 ")
 ;;2879
 ;;21,"58016-0331-30 ")
 ;;2880
 ;;21,"58016-0331-60 ")
 ;;2881
 ;;21,"58016-0331-90 ")
 ;;2882
 ;;21,"58016-0333-00 ")
 ;;831
 ;;21,"58016-0333-15 ")
 ;;832
 ;;21,"58016-0333-30 ")
 ;;833
 ;;21,"58016-0333-60 ")
 ;;834
 ;;21,"58016-0373-00 ")
 ;;1448
 ;;21,"58016-0373-02 ")
 ;;1449
 ;;21,"58016-0373-30 ")
 ;;1450
 ;;21,"58016-0373-60 ")
 ;;1451
 ;;21,"58016-0373-90 ")
 ;;1452
 ;;21,"58016-0442-00 ")
 ;;1843
 ;;21,"58016-0442-02 ")
 ;;1844
 ;;21,"58016-0442-30 ")
 ;;1845
 ;;21,"58016-0442-60 ")
 ;;1846
 ;;21,"58016-0442-90 ")
 ;;1847
 ;;21,"58016-0442-99 ")
 ;;1848
 ;;21,"58016-0526-00 ")
 ;;2844
 ;;21,"58016-0526-02 ")
 ;;2845
 ;;21,"58016-0526-30 ")
 ;;2846
 ;;21,"58016-0526-60 ")
 ;;2847
 ;;21,"58016-0526-90 ")
 ;;2848
 ;;21,"58016-0528-00 ")
 ;;115
 ;;21,"58016-0528-30 ")
 ;;116
 ;;21,"58016-0528-60 ")
 ;;117
 ;;21,"58016-0529-00 ")
 ;;199
 ;;21,"58016-0529-10 ")
 ;;200
 ;;21,"58016-0529-30 ")
 ;;201
 ;;21,"58016-0529-50 ")
 ;;202
 ;;21,"58016-0531-00 ")
 ;;309
 ;;21,"58016-0531-30 ")
 ;;310
 ;;21,"58016-0532-00 ")
 ;;414
 ;;21,"58016-0532-02 ")
 ;;415
 ;;21,"58016-0532-60 ")
 ;;416
 ;;21,"58016-0582-00 ")
 ;;749
 ;;21,"58016-0582-15 ")
 ;;750
 ;;21,"58016-0582-20 ")
 ;;751
 ;;21,"58016-0582-30 ")
 ;;752
 ;;21,"58016-0582-60 ")
 ;;753
 ;;21,"58016-0604-00 ")
 ;;506
 ;;21,"58016-0640-00 ")
 ;;1943
 ;;21,"58016-0640-15 ")
 ;;1944
 ;;21,"58016-0640-20 ")
 ;;1945
 ;;21,"58016-0640-30 ")
 ;;1946
 ;;21,"58016-0771-00 ")
 ;;1068
 ;;21,"58016-0771-12 ")
 ;;1069
 ;;21,"58016-0771-15 ")
 ;;1070
 ;;21,"58016-0771-20 ")
 ;;1071
 ;;21,"58016-0771-30 ")
 ;;1072
 ;;21,"58016-0771-60 ")
 ;;1073
 ;;21,"58016-0859-00 ")
 ;;501
 ;;21,"58016-0859-30 ")
 ;;502
 ;;21,"58016-0859-60 ")
 ;;503
 ;;21,"58016-0859-90 ")
 ;;504
 ;;21,"58016-0974-00 ")
 ;;1343
 ;;21,"58016-0974-30 ")
 ;;1344
 ;;21,"58016-0974-60 ")
 ;;1345
 ;;21,"58016-0974-90 ")
 ;;1346
 ;;21,"58118-0110-03 ")
 ;;156
 ;;21,"58118-0110-09 ")
 ;;157
 ;;21,"58118-0163-03 ")
 ;;2318
 ;;21,"58118-0163-09 ")
 ;;2319
 ;;21,"58118-0164-03 ")
 ;;2404
 ;;21,"58118-0164-09 ")
 ;;2405
 ;;21,"58118-0165-03 ")
 ;;2527
 ;;21,"58118-0165-09 ")
 ;;2528
 ;;21,"58118-0405-03 ")
 ;;1379
 ;;21,"58118-0621-03 ")
 ;;781
 ;;21,"58118-0621-09 ")
 ;;782
 ;;21,"58118-0622-03 ")
 ;;848
 ;;21,"58118-0622-09 ")
 ;;849
 ;;21,"58118-0623-09 ")
 ;;1104
 ;;21,"58118-0734-03 ")
 ;;1290
 ;;21,"58118-0736-03 ")
 ;;1492
 ;;21,"58177-0293-04 ")
 ;;1316
 ;;21,"58177-0293-09 ")
 ;;1317
 ;;21,"58177-0293-11 ")
 ;;1318
 ;;21,"58177-0358-04 ")
 ;;1576
 ;;21,"58177-0358-09 ")
 ;;1577
 ;;21,"58177-0368-04 ")
 ;;1509
 ;;21,"58177-0368-09 ")
 ;;1510
 ;;21,"58177-0368-11 ")
 ;;1511
 ;;21,"58177-0369-04 ")
 ;;1410
 ;;21,"58177-0369-09 ")
 ;;1411
 ;;21,"58177-0369-11 ")
 ;;1412
 ;;21,"58517-0320-30 ")
 ;;1630
 ;;21,"58864-0016-01 ")
 ;;1831
 ;;21,"58864-0016-28 ")
 ;;1832
 ;;21,"58864-0016-30 ")
 ;;1833
 ;;21,"58864-0016-60 ")
 ;;1834
 ;;21,"58864-0065-01 ")
 ;;1050
 ;;21,"58864-0065-30 ")
 ;;1051
 ;;21,"58864-0363-30 ")
 ;;216
 ;;21,"58864-0367-01 ")
 ;;2710
 ;;21,"58864-0368-01 ")
 ;;2778
 ;;21,"58864-0431-60 ")
 ;;312
 ;;21,"58864-0645-56 ")
 ;;123
 ;;21,"58864-0680-30 ")
 ;;392
 ;;21,"58864-0695-30 ")
 ;;2098
 ;;21,"58864-0717-30 ")
 ;;1140
 ;;21,"58864-0727-30 ")
 ;;2632
 ;;21,"58864-0737-30 ")
 ;;2365
 ;;21,"58864-0749-30 ")
 ;;717
 ;;21,"58864-0749-90 ")
 ;;718
 ;;21,"58864-0759-30 ")
 ;;1543
 ;;21,"58864-0765-30 ")
 ;;1447
 ;;21,"58864-0784-30 ")
 ;;2937
 ;;21,"59762-1258-01 ")
 ;;1226
 ;;21,"59762-1258-02 ")
 ;;1227
 ;;21,"59762-1261-01 ")
 ;;1255
 ;;21,"59762-1261-02 ")
 ;;1256
 ;;21,"59762-1300-01 ")
 ;;1632
 ;;21,"59762-1300-03 ")
 ;;1633
 ;;21,"59762-1301-01 ")
 ;;1712
 ;;21,"59762-1301-03 ")
 ;;1713
 ;;21,"59762-1302-01 ")
 ;;2017
 ;;21,"59762-1302-03 ")
 ;;2018
 ;;21,"59772-2461-01 ")
 ;;25
 ;;21,"59772-2462-01 ")
 ;;57
 ;;21,"59772-2462-03 ")
 ;;58
 ;;21,"59772-2463-01 ")
 ;;85
 ;;21,"59772-2463-03 ")
 ;;86
 ;;21,"59772-2464-01 ")
 ;;91
 ;;21,"59772-2465-01 ")
 ;;96
 ;;21,"59911-5842-01 ")
 ;;634
 ;;21,"59911-7060-01 ")
 ;;1230
 ;;21,"59911-7061-01 ")
 ;;1270
 ;;21,"59930-1602-01 ")
 ;;2707
 ;;21,"59930-1602-02 ")
 ;;2708
 ;;21,"59930-1602-03 ")
 ;;2709
 ;;21,"59930-1636-01 ")
 ;;2756
 ;;21,"59930-1636-04 ")
 ;;2757
 ;;21,"59930-1653-01 ")
 ;;2806
 ;;21,"59930-1653-03 ")
 ;;2807
 ;;21,"60346-0431-60 ")
 ;;387
 ;;21,"60346-0523-25 ")
 ;;1838
 ;;21,"60346-0523-30 ")
 ;;1839
 ;;21,"60346-0523-60 ")
 ;;1840
 ;;21,"60346-0570-30 ")
 ;;160
 ;;21,"60346-0570-40 ")
 ;;161
 ;;21,"60346-0570-90 ")
 ;;162
 ;;21,"60346-0570-94 ")
 ;;163
 ;;21,"60346-0587-60 ")
 ;;719
 ;;21,"60346-0598-15 ")
 ;;263
 ;;21,"60346-0598-25 ")
 ;;264
 ;;21,"60346-0598-30 ")
 ;;265
 ;;21,"60346-0598-60 ")
 ;;266
 ;;21,"60346-0598-90 ")
 ;;244
 ;;21,"60346-0719-30 ")
 ;;853
 ;;21,"60346-0719-60 ")
 ;;854
 ;;21,"60346-0719-62 ")
 ;;855
 ;;21,"60346-0719-90 ")
 ;;856
 ;;21,"60346-0719-94 ")
 ;;857
 ;;21,"60346-0775-30 ")
 ;;1100
 ;;21,"60346-0806-30 ")
 ;;313
 ;;21,"60346-0806-60 ")
 ;;314
 ;;21,"60346-0806-90 ")
 ;;315
 ;;21,"60346-0836-30 ")
 ;;3063
 ;;21,"60346-0914-30 ")
 ;;1083