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

BGP44I6.m

Go to the documentation of this file.
BGP44I6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 06, 2013;
 ;;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,"65162-0219-11 ")
 ;;1297
 ;;21,"65162-0219-50 ")
 ;;1298
 ;;21,"65162-0220-10 ")
 ;;1470
 ;;21,"65162-0220-11 ")
 ;;1471
 ;;21,"65162-0220-50 ")
 ;;1472
 ;;21,"65243-0176-09 ")
 ;;794
 ;;21,"65243-0176-12 ")
 ;;795
 ;;21,"65243-0176-18 ")
 ;;796
 ;;21,"65243-0176-27 ")
 ;;797
 ;;21,"65243-0176-36 ")
 ;;798
 ;;21,"65243-0183-18 ")
 ;;376
 ;;21,"65243-0185-36 ")
 ;;799
 ;;21,"65243-0195-09 ")
 ;;2046
 ;;21,"65243-0195-12 ")
 ;;2047
 ;;21,"65243-0196-09 ")
 ;;2067
 ;;21,"65243-0239-09 ")
 ;;1311
 ;;21,"65243-0239-18 ")
 ;;1312
 ;;21,"65243-0239-27 ")
 ;;1313
 ;;21,"65243-0288-06 ")
 ;;1096
 ;;21,"65243-0288-09 ")
 ;;1097
 ;;21,"65243-0288-12 ")
 ;;1098
 ;;21,"65243-0288-18 ")
 ;;1099
 ;;21,"65243-0289-06 ")
 ;;1590
 ;;21,"65243-0289-09 ")
 ;;1591
 ;;21,"65243-0289-12 ")
 ;;1592
 ;;21,"65243-0289-18 ")
 ;;1593
 ;;21,"65243-0325-09 ")
 ;;622
 ;;21,"65243-0325-18 ")
 ;;623
 ;;21,"65243-0343-09 ")
 ;;703
 ;;21,"65243-0343-36 ")
 ;;704
 ;;21,"65243-0346-09 ")
 ;;263
 ;;21,"65243-0371-06 ")
 ;;1408
 ;;21,"65243-0371-09 ")
 ;;1409
 ;;21,"65243-0372-06 ")
 ;;939
 ;;21,"65243-0372-09 ")
 ;;940
 ;;21,"65243-0372-18 ")
 ;;941
 ;;21,"65243-0373-09 ")
 ;;1223
 ;;21,"65243-0375-09 ")
 ;;624
 ;;21,"65243-0378-09 ")
 ;;264
 ;;21,"65862-0008-01 ")
 ;;1199
 ;;21,"65862-0008-05 ")
 ;;1200
 ;;21,"65862-0008-90 ")
 ;;1201
 ;;21,"65862-0008-99 ")
 ;;1202
 ;;21,"65862-0009-01 ")
 ;;1373
 ;;21,"65862-0009-05 ")
 ;;1374
 ;;21,"65862-0009-90 ")
 ;;1375
 ;;21,"65862-0010-01 ")
 ;;1514
 ;;21,"65862-0010-05 ")
 ;;1515
 ;;21,"65862-0010-46 ")
 ;;1516
 ;;21,"65862-0010-90 ")
 ;;1517
 ;;21,"65862-0010-99 ")
 ;;1518
 ;;21,"65862-0028-01 ")
 ;;583
 ;;21,"65862-0029-01 ")
 ;;648
 ;;21,"65862-0029-05 ")
 ;;649
 ;;21,"65862-0030-01 ")
 ;;771
 ;;21,"65862-0030-99 ")
 ;;772
 ;;21,"65862-0080-01 ")
 ;;2170
 ;;21,"65862-0080-05 ")
 ;;2171
 ;;21,"65862-0081-01 ")
 ;;2219
 ;;21,"65862-0081-05 ")
 ;;2220
 ;;21,"65862-0082-01 ")
 ;;2249
 ;;21,"65862-0082-05 ")
 ;;2250
 ;;21,"65862-0291-01 ")
 ;;1703
 ;;21,"65862-0291-05 ")
 ;;1704
 ;;21,"65862-0292-01 ")
 ;;1733
 ;;21,"65862-0512-30 ")
 ;;1885
 ;;21,"65862-0513-30 ")
 ;;1951
 ;;21,"65862-0514-30 ")
 ;;2013
 ;;21,"65862-0525-18 ")
 ;;2336
 ;;21,"65862-0525-60 ")
 ;;2337
 ;;21,"65862-0526-18 ")
 ;;2350
 ;;21,"65862-0526-60 ")
 ;;2351
 ;;21,"66105-0145-01 ")
 ;;2022
 ;;21,"66105-0145-03 ")
 ;;2023
 ;;21,"66105-0145-06 ")
 ;;2024
 ;;21,"66105-0145-09 ")
 ;;2025
 ;;21,"66105-0145-15 ")
 ;;2026
 ;;21,"66105-0154-01 ")
 ;;1896
 ;;21,"66105-0154-03 ")
 ;;1897
 ;;21,"66105-0154-06 ")
 ;;1898
 ;;21,"66105-0154-09 ")
 ;;1919
 ;;21,"66105-0154-15 ")
 ;;1920
 ;;21,"66105-0156-01 ")
 ;;1849
 ;;21,"66105-0156-03 ")
 ;;1850
 ;;21,"66105-0156-06 ")
 ;;1851
 ;;21,"66105-0156-09 ")
 ;;1852
 ;;21,"66105-0156-15 ")
 ;;1853
 ;;21,"66105-0159-01 ")
 ;;2038
 ;;21,"66105-0159-03 ")
 ;;2039
 ;;21,"66105-0159-06 ")
 ;;2040
 ;;21,"66105-0159-09 ")
 ;;2041
 ;;21,"66105-0159-15 ")
 ;;2042
 ;;21,"66105-0652-03 ")
 ;;1814
 ;;21,"66105-0984-03 ")
 ;;586
 ;;21,"66105-0984-06 ")
 ;;564
 ;;21,"66105-0984-10 ")
 ;;565
 ;;21,"66105-0984-11 ")
 ;;566
 ;;21,"66105-0984-50 ")
 ;;567
 ;;21,"66105-0985-03 ")
 ;;595
 ;;21,"66105-0985-06 ")
 ;;596
 ;;21,"66105-0985-10 ")
 ;;597
 ;;21,"66105-0985-11 ")
 ;;598
 ;;21,"66105-0985-50 ")
 ;;599
 ;;21,"66105-0986-03 ")
 ;;662
 ;;21,"66105-0986-06 ")
 ;;663
 ;;21,"66105-0986-10 ")
 ;;664
 ;;21,"66105-0986-11 ")
 ;;665
 ;;21,"66105-0986-50 ")
 ;;666
 ;;21,"66116-0233-30 ")
 ;;2197
 ;;21,"66116-0282-60 ")
 ;;1058
 ;;21,"66116-0293-30 ")
 ;;1468
 ;;21,"66116-0454-30 ")
 ;;1059
 ;;21,"66116-0695-60 ")
 ;;1094
 ;;21,"66267-0100-30 ")
 ;;265
 ;;21,"66267-0100-60 ")
 ;;266
 ;;21,"66267-0100-90 ")
 ;;267
 ;;21,"66267-0100-91 ")
 ;;268
 ;;21,"66267-0100-92 ")
 ;;269
 ;;21,"66267-0103-30 ")
 ;;708
 ;;21,"66267-0493-14 ")
 ;;1160
 ;;21,"66267-0493-30 ")
 ;;1161
 ;;21,"66267-0493-60 ")
 ;;1162
 ;;21,"66267-0493-90 ")
 ;;1163
 ;;21,"66267-0493-91 ")
 ;;1164
 ;;21,"66267-0493-92 ")
 ;;1165
 ;;21,"66267-0493-93 ")
 ;;1166
 ;;21,"66336-0028-30 ")
 ;;651
 ;;21,"66336-0028-90 ")
 ;;652
 ;;21,"66336-0269-30 ")
 ;;546
 ;;21,"66336-0269-90 ")
 ;;547
 ;;21,"66336-0270-30 ")
 ;;1700
 ;;21,"66336-0270-60 ")
 ;;1701
 ;;21,"66336-0270-90 ")
 ;;1702
 ;;21,"66336-0270-94 ")
 ;;1707
 ;;21,"66336-0292-60 ")
 ;;1602
 ;;21,"66336-0319-30 ")
 ;;2244
 ;;21,"66336-0358-30 ")
 ;;1489
 ;;21,"66336-0358-60 ")
 ;;1490
 ;;21,"66336-0358-62 ")
 ;;1491
 ;;21,"66336-0358-90 ")
 ;;1492
 ;;21,"66336-0360-30 ")
 ;;1828
 ;;21,"66336-0361-30 ")
 ;;1962
 ;;21,"66336-0500-30 ")
 ;;1742
 ;;21,"66336-0500-90 ")
 ;;1743
 ;;21,"66336-0534-30 ")
 ;;51
 ;;21,"66336-0534-90 ")
 ;;52
 ;;21,"66336-0535-30 ")
 ;;83
 ;;21,"66336-0535-60 ")
 ;;84
 ;;21,"66336-0535-90 ")
 ;;85
 ;;21,"66336-0573-30 ")
 ;;162
 ;;21,"66336-0573-60 ")
 ;;163
 ;;21,"66336-0573-90 ")
 ;;164
 ;;21,"66336-0662-30 ")
 ;;372
 ;;21,"66336-0662-60 ")
 ;;373
 ;;21,"66336-0662-90 ")
 ;;374
 ;;21,"66336-0662-94 ")
 ;;375
 ;;21,"66336-0712-90 ")
 ;;861
 ;;21,"66336-0730-14 ")
 ;;185
 ;;21,"66336-0730-30 ")
 ;;186
 ;;21,"66336-0730-60 ")
 ;;187
 ;;21,"66336-0730-90 ")
 ;;188
 ;;21,"66336-0784-30 ")
 ;;2293
 ;;21,"66336-0784-60 ")
 ;;2259
 ;;21,"66336-0784-90 ")
 ;;2260
 ;;21,"66336-0850-30 ")
 ;;2208
 ;;21,"66336-0850-60 ")
 ;;2209
 ;;21,"66336-0850-90 ")
 ;;2210
 ;;21,"66336-0857-30 ")
 ;;1877
 ;;21,"66336-0857-90 ")
 ;;1878
 ;;21,"66336-0858-30 ")
 ;;1943
 ;;21,"66336-0858-90 ")
 ;;1944
 ;;21,"66336-0859-30 ")
 ;;2002
 ;;21,"66336-0859-90 ")
 ;;2003
 ;;21,"66336-0883-30 ")
 ;;1299
 ;;21,"66336-0883-60 ")
 ;;1300
 ;;21,"66336-0883-90 ")
 ;;1301
 ;;21,"66336-0884-14 ")
 ;;1052
 ;;21,"66336-0884-28 ")
 ;;1053
 ;;21,"66336-0884-30 ")
 ;;1054
 ;;21,"66336-0884-60 ")
 ;;1055
 ;;21,"66336-0884-62 ")
 ;;1056
 ;;21,"66336-0884-90 ")
 ;;1057
 ;;21,"66336-0938-30 ")
 ;;667
 ;;21,"66336-0938-60 ")
 ;;668
 ;;21,"66336-0938-90 ")
 ;;669
 ;;21,"66780-0210-07 ")
 ;;5
 ;;21,"66780-0212-01 ")
 ;;3
 ;;21,"66780-0219-04 ")
 ;;1
 ;;21,"66780-0226-01 ")
 ;;2
 ;;21,"66993-0162-02 ")
 ;;45
 ;;21,"66993-0163-02 ")
 ;;95
 ;;21,"66993-0164-02 ")
 ;;147
 ;;21,"67253-0460-10 ")
 ;;833
 ;;21,"67253-0461-10 ")
 ;;846
 ;;21,"67253-0461-11 ")
 ;;847
 ;;21,"67253-0461-50 ")
 ;;848
 ;;21,"67253-0462-10 ")
 ;;868
 ;;21,"67253-0462-11 ")
 ;;869
 ;;21,"67253-0462-50 ")
 ;;870
 ;;21,"67544-0047-30 ")
 ;;1191
 ;;21,"67544-0047-53 ")
 ;;1192
 ;;21,"67544-0047-60 ")
 ;;1193
 ;;21,"67544-0047-70 ")
 ;;1194
 ;;21,"67544-0047-75 ")
 ;;1195
 ;;21,"67544-0047-80 ")
 ;;1196
 ;;21,"67544-0047-90 ")
 ;;1197
 ;;21,"67544-0047-92 ")
 ;;945
 ;;21,"67544-0047-94 ")
 ;;946
 ;;21,"67544-0047-96 ")
 ;;947
 ;;21,"67544-0065-30 ")
 ;;1832
 ;;21,"67544-0065-53 ")
 ;;1833
 ;;21,"67544-0065-60 ")
 ;;1834
 ;;21,"67544-0066-30 ")
 ;;1903
 ;;21,"67544-0066-45 ")
 ;;1904
 ;;21,"67544-0066-60 ")
 ;;1905
 ;;21,"67544-0097-53 ")
 ;;444
 ;;21,"67544-0097-60 ")
 ;;406
 ;;21,"67544-0097-70 ")
 ;;407
 ;;21,"67544-0097-80 ")
 ;;408
 ;;21,"67544-0097-92 ")
 ;;409
 ;;21,"67544-0097-94 ")
 ;;410
 ;;21,"67544-0107-53 ")
 ;;1254
 ;;21,"67544-0107-60 ")
 ;;1255
 ;;21,"67544-0107-80 ")
 ;;1256
 ;;21,"67544-0107-92 ")
 ;;1257
 ;;21,"67544-0113-60 ")
 ;;2054
 ;;21,"67544-0113-70 ")
 ;;2055
 ;;21,"67544-0113-80 ")
 ;;2056
 ;;21,"67544-0114-15 ")
 ;;2060
 ;;21,"67544-0114-45 ")
 ;;2061
 ;;21,"67544-0114-60 ")
 ;;2062
 ;;21,"67544-0114-82 ")
 ;;2063
 ;;21,"67544-0129-53 ")
 ;;399
 ;;21,"67544-0129-70 ")
 ;;400
 ;;21,"67544-0129-80 ")
 ;;401
 ;;21,"67544-0129-94 ")
 ;;402
 ;;21,"67544-0163-30 ")
 ;;1559
 ;;21,"67544-0163-45 ")
 ;;1560
 ;;21,"67544-0163-53 ")
 ;;1561
 ;;21,"67544-0163-60 ")
 ;;1562
 ;;21,"67544-0163-80 ")
 ;;1563
 ;;21,"67544-0199-80 ")
 ;;550
 ;;21,"67544-0254-53 ")
 ;;2031
 ;;21,"67544-0296-70 ")
 ;;2245
 ;;21,"67544-0302-45 ")
 ;;308
 ;;21,"67544-0302-60 ")
 ;;309
 ;;21,"67544-0302-73 ")
 ;;310
 ;;21,"67544-0302-80 ")
 ;;311
 ;;21,"67544-0302-92 ")
 ;;312
 ;;21,"67544-0302-98 ")
 ;;313
 ;;21,"67544-0364-70 ")
 ;;2294
 ;;21,"67544-0417-70 ")
 ;;2295
 ;;21,"67544-0421-60 ")
 ;;1378
 ;;21,"67544-0421-80 ")
 ;;1379
 ;;21,"67544-0421-92 ")
 ;;1380
 ;;21,"67544-0422-30 ")
 ;;1620
 ;;21,"67544-0422-53 ")
 ;;1621
 ;;21,"67544-0422-60 ")
 ;;1622
 ;;21,"67544-0422-70 ")
 ;;1623
 ;;21,"67544-0422-75 ")
 ;;1624
 ;;21,"67544-0422-80 ")
 ;;1625
 ;;21,"67544-0422-90 ")
 ;;1626
 ;;21,"67544-0422-92 ")
 ;;1627
 ;;21,"67544-0422-94 ")
 ;;1628
 ;;21,"67544-0422-96 ")
 ;;1629
 ;;21,"67544-0424-30 ")
 ;;1167
 ;;21,"67544-0424-53 ")
 ;;1168
 ;;21,"67544-0424-60 ")
 ;;1169
 ;;21,"67544-0424-70 ")
 ;;1170
 ;;21,"67544-0424-75 ")
 ;;1171
 ;;21,"67544-0424-80 ")
 ;;1172
 ;;21,"67544-0424-90 ")
 ;;1173
 ;;21,"67544-0424-92 ")
 ;;1174
 ;;21,"67544-0424-94 ")
 ;;1175
 ;;21,"67544-0424-96 ")
 ;;1176
 ;;21,"67544-0428-45 ")
 ;;1503
 ;;21,"67544-0428-53 ")
 ;;1504
 ;;21,"67544-0428-60 ")
 ;;1505
 ;;21,"67544-0428-73 ")
 ;;1506
 ;;21,"67544-0428-80 ")
 ;;1507
 ;;21,"67544-0486-53 ")
 ;;1198
 ;;21,"67544-0511-70 ")
 ;;2310
 ;;21,"67544-0511-94 ")
 ;;2251
 ;;21,"67544-0566-53 ")
 ;;773
 ;;21,"67544-0566-60 ")
 ;;774
 ;;21,"67544-0566-70 ")
 ;;775
 ;;21,"67544-0566-80 ")
 ;;776
 ;;21,"67544-0566-90 ")
 ;;777
 ;;21,"67544-0566-92 ")
 ;;778
 ;;21,"67544-0566-94 ")
 ;;779
 ;;21,"67544-0596-53 ")
 ;;949
 ;;21,"67544-0596-60 ")
 ;;950
 ;;21,"67544-0596-80 ")
 ;;951
 ;;21,"67544-0596-96 ")
 ;;952
 ;;21,"67544-0613-53 ")
 ;;719
 ;;21,"67544-0613-60 ")
 ;;720
 ;;21,"67544-0613-70 ")
 ;;721
 ;;21,"67544-0613-80 ")
 ;;722
 ;;21,"67544-0613-90 ")
 ;;723
 ;;21,"67544-0613-92 ")
 ;;724
 ;;21,"67544-0613-94 ")
 ;;725
 ;;21,"67544-0643-80 ")
 ;;726
 ;;21,"67544-0643-94 ")
 ;;727
 ;;21,"67544-0653-53 ")
 ;;728
 ;;21,"67544-0653-60 ")
 ;;729
 ;;21,"67544-0653-70 ")
 ;;730
 ;;21,"67544-0653-80 ")
 ;;731
 ;;21,"67544-0653-90 ")
 ;;732
 ;;21,"67544-0653-92 ")
 ;;733
 ;;21,"67544-0653-94 ")
 ;;734
 ;;21,"67544-0661-41 ")
 ;;578
 ;;21,"67544-0661-81 ")
 ;;579
 ;;21,"67544-0751-60 ")
 ;;403
 ;;21,"67544-0751-80 ")
 ;;404
 ;;21,"67544-0756-60 ")
 ;;300
 ;;21,"67544-0756-80 ")
 ;;301
 ;;21,"67544-0808-60 ")
 ;;530
 ;;21,"67544-0875-60 ")
 ;;602
 ;;21,"67544-0875-80 ")
 ;;603
 ;;21,"67544-0927-60 ")
 ;;604
 ;;21,"67544-1081-80 ")
 ;;1643
 ;;21,"67544-1081-94 ")
 ;;1644
 ;;21,"67544-1129-70 ")
 ;;2299
 ;;21,"67544-1198-53 ")
 ;;1587
 ;;21,"67544-1198-60 ")
 ;;1588
 ;;21,"67544-1198-80 ")
 ;;1589
 ;;21,"67544-1216-53 ")
 ;;1316
 ;;21,"67544-1216-60 ")
 ;;1317
 ;;21,"67544-1216-80 ")
 ;;1318
 ;;21,"67544-1216-92 ")
 ;;1319
 ;;21,"67544-1379-80 ")
 ;;1095
 ;;21,"67544-1383-60 ")
 ;;1314
 ;;21,"67544-1383-80 ")
 ;;1315
 ;;21,"67877-0159-01 ")
 ;;1715
 ;;21,"67877-0159-05 ")
 ;;1716
 ;;21,"67877-0159-10 ")
 ;;1717
 ;;21,"67877-0217-01 ")
 ;;1063
 ;;21,"67877-0217-05 ")
 ;;1064
 ;;21,"67877-0217-10 ")
 ;;1065
 ;;21,"67877-0218-01 ")
 ;;1293
 ;;21,"67877-0218-05 ")
 ;;1294
 ;;21,"67877-0218-10 ")
 ;;1295
 ;;21,"67877-0221-01 ")
 ;;1473
 ;;21,"67877-0221-05 ")
 ;;1474
 ;;21,"67877-0221-10 ")
 ;;1475
 ;;21,"68012-0002-13 ")
 ;;1766
 ;;21,"68012-0003-16 ")
 ;;1767
 ;;21,"68071-0028-30 ")
 ;;2261
 ;;21,"68071-0028-60 ")
 ;;2262
 ;;21,"68071-0405-15 ")
 ;;1836
 ;;21,"68071-0406-15 ")
 ;;1907
 ;;21,"68071-0407-15 ")
 ;;1969
 ;;21,"68084-0072-01 ")
 ;;1651
 ;;21,"68084-0072-11 ")
 ;;1608
 ;;21,"68084-0111-01 ")
 ;;489
 ;;21,"68084-0111-11 ")
 ;;490
 ;;21,"68084-0112-01 ")
 ;;509
 ;;21,"68084-0112-11 ")
 ;;510
 ;;21,"68084-0136-01 ")
 ;;2188
 ;;21,"68084-0136-11 ")
 ;;2189
 ;;21,"68084-0137-01 ")
 ;;2232
 ;;21,"68084-0137-11 ")
 ;;2233
 ;;21,"68084-0138-01 ")
 ;;2311
 ;;21,"68084-0138-11 ")
 ;;2312
 ;;21,"68084-0295-11 ")
 ;;452
 ;;21,"68084-0295-21 ")
 ;;453
 ;;21,"68084-0326-01 ")
 ;;96
 ;;21,"68084-0326-11 ")
 ;;97
 ;;21,"68084-0327-01 ")
 ;;145
 ;;21,"68084-0327-11 ")
 ;;146
 ;;21,"68084-0458-11 ")
 ;;1771
 ;;21,"68084-0458-21 ")
 ;;1772
 ;;21,"68084-0459-11 ")
 ;;1773
 ;;21,"68084-0459-21 ")
 ;;1774
 ;;21,"68084-0556-11 ")
 ;;883
 ;;21,"68084-0556-21 ")
 ;;884
 ;;21,"68084-0629-01 ")
 ;;1892
 ;;21,"68084-0629-11 ")
 ;;1893
 ;;21,"68084-0630-01 ")
 ;;1958
 ;;21,"68084-0630-11 ")
 ;;1959
 ;;21,"68084-0631-01 ")
 ;;2017
 ;;21,"68084-0631-11 ")
 ;;2018
 ;;21,"68180-0336-07 ")
 ;;1758
 ;;21,"68180-0337-07 ")
 ;;1762
 ;;21,"68258-3034-03 ")
 ;;1915
 ;;21,"68258-5230-03 ")
 ;;1838
 ;;21,"68258-5990-03 ")
 ;;1816
 ;;21,"68258-5990-09 ")
 ;;1817
 ;;21,"68258-5991-03 ")
 ;;1978
 ;;21,"68258-6007-03 ")
 ;;2045