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

BGP47T6.m

Go to the documentation of this file.
BGP47T6 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 16, 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,"63874-0347-40 ")
 ;;495
 ;;21,"63874-0347-42 ")
 ;;453
 ;;21,"63874-0347-45 ")
 ;;452
 ;;21,"63874-0347-90 ")
 ;;451
 ;;21,"63874-0348-01 ")
 ;;544
 ;;21,"63874-0348-10 ")
 ;;517
 ;;21,"63874-0348-14 ")
 ;;543
 ;;21,"63874-0348-20 ")
 ;;542
 ;;21,"63874-0348-30 ")
 ;;541
 ;;21,"63874-0348-60 ")
 ;;540
 ;;21,"63874-0348-90 ")
 ;;534
 ;;21,"63874-0379-10 ")
 ;;2152
 ;;21,"63874-0379-30 ")
 ;;2167
 ;;21,"63874-0423-01 ")
 ;;857
 ;;21,"63874-0423-07 ")
 ;;885
 ;;21,"63874-0423-10 ")
 ;;842
 ;;21,"63874-0423-14 ")
 ;;894
 ;;21,"63874-0423-20 ")
 ;;841
 ;;21,"63874-0423-30 ")
 ;;840
 ;;21,"63874-0423-60 ")
 ;;901
 ;;21,"63874-0514-01 ")
 ;;1578
 ;;21,"63874-0514-10 ")
 ;;1579
 ;;21,"63874-0514-14 ")
 ;;1663
 ;;21,"63874-0514-15 ")
 ;;1664
 ;;21,"63874-0514-16 ")
 ;;1665
 ;;21,"63874-0514-20 ")
 ;;1580
 ;;21,"63874-0514-28 ")
 ;;1593
 ;;21,"63874-0514-30 ")
 ;;1582
 ;;21,"63874-0514-60 ")
 ;;1666
 ;;21,"63874-0514-90 ")
 ;;1667
 ;;21,"63874-0522-01 ")
 ;;1360
 ;;21,"63874-0522-15 ")
 ;;1453
 ;;21,"63874-0522-30 ")
 ;;1445
 ;;21,"63874-0522-60 ")
 ;;1446
 ;;21,"63874-0558-01 ")
 ;;1992
 ;;21,"63874-0558-10 ")
 ;;1980
 ;;21,"63874-0558-14 ")
 ;;1909
 ;;21,"63874-0558-16 ")
 ;;1975
 ;;21,"63874-0558-28 ")
 ;;1910
 ;;21,"63874-0558-30 ")
 ;;1911
 ;;21,"63874-0558-60 ")
 ;;1912
 ;;21,"63874-0558-90 ")
 ;;1919
 ;;21,"63874-0581-10 ")
 ;;2078
 ;;21,"63874-0581-30 ")
 ;;2059
 ;;21,"63874-0581-90 ")
 ;;2063
 ;;21,"63874-0655-01 ")
 ;;606
 ;;21,"63874-0655-10 ")
 ;;593
 ;;21,"63874-0655-20 ")
 ;;645
 ;;21,"63874-0655-30 ")
 ;;591
 ;;21,"63874-0655-60 ")
 ;;644
 ;;21,"63874-0987-01 ")
 ;;791
 ;;21,"63874-0987-10 ")
 ;;747
 ;;21,"63874-0987-14 ")
 ;;790
 ;;21,"63874-0987-20 ")
 ;;781
 ;;21,"63874-0987-30 ")
 ;;734
 ;;21,"63874-0987-60 ")
 ;;788
 ;;21,"63874-1114-09 ")
 ;;1722
 ;;21,"64455-0140-30 ")
 ;;678
 ;;21,"64455-0140-90 ")
 ;;699
 ;;21,"64455-0141-10 ")
 ;;892
 ;;21,"64455-0141-30 ")
 ;;891
 ;;21,"64455-0141-90 ")
 ;;839
 ;;21,"64455-0142-10 ")
 ;;561
 ;;21,"64455-0142-30 ")
 ;;643
 ;;21,"64455-0142-90 ")
 ;;642
 ;;21,"64455-0143-10 ")
 ;;744
 ;;21,"64455-0143-30 ")
 ;;795
 ;;21,"64455-0143-90 ")
 ;;745
 ;;21,"64455-0145-01 ")
 ;;940
 ;;21,"64455-0146-01 ")
 ;;924
 ;;21,"64679-0902-01 ")
 ;;430
 ;;21,"64679-0902-02 ")
 ;;431
 ;;21,"64679-0902-05 ")
 ;;412
 ;;21,"64679-0903-01 ")
 ;;488
 ;;21,"64679-0903-02 ")
 ;;487
 ;;21,"64679-0903-05 ")
 ;;450
 ;;21,"64679-0904-01 ")
 ;;538
 ;;21,"64679-0904-02 ")
 ;;508
 ;;21,"64679-0904-05 ")
 ;;518
 ;;21,"64679-0905-01 ")
 ;;388
 ;;21,"64679-0905-04 ")
 ;;387
 ;;21,"64679-0923-02 ")
 ;;679
 ;;21,"64679-0923-03 ")
 ;;680
 ;;21,"64679-0923-09 ")
 ;;687
 ;;21,"64679-0923-10 ")
 ;;684
 ;;21,"64679-0924-02 ")
 ;;838
 ;;21,"64679-0924-03 ")
 ;;837
 ;;21,"64679-0924-09 ")
 ;;836
 ;;21,"64679-0924-10 ")
 ;;843
 ;;21,"64679-0925-02 ")
 ;;633
 ;;21,"64679-0925-03 ")
 ;;641
 ;;21,"64679-0925-09 ")
 ;;589
 ;;21,"64679-0925-10 ")
 ;;588
 ;;21,"64679-0926-02 ")
 ;;787
 ;;21,"64679-0926-03 ")
 ;;732
 ;;21,"64679-0926-09 ")
 ;;757
 ;;21,"64679-0926-10 ")
 ;;743
 ;;21,"64679-0927-01 ")
 ;;1514
 ;;21,"64679-0927-02 ")
 ;;1520
 ;;21,"64679-0927-05 ")
 ;;1521
 ;;21,"64679-0927-09 ")
 ;;1490
 ;;21,"64679-0928-01 ")
 ;;1976
 ;;21,"64679-0928-05 ")
 ;;1922
 ;;21,"64679-0928-06 ")
 ;;1914
 ;;21,"64679-0928-10 ")
 ;;1964
 ;;21,"64679-0929-01 ")
 ;;1351
 ;;21,"64679-0929-05 ")
 ;;1447
 ;;21,"64679-0929-06 ")
 ;;1448
 ;;21,"64679-0929-10 ")
 ;;1362
 ;;21,"64679-0941-01 ")
 ;;1572
 ;;21,"64679-0941-05 ")
 ;;1668
 ;;21,"64679-0941-06 ")
 ;;1592
 ;;21,"64679-0941-10 ")
 ;;1669
 ;;21,"64679-0942-01 ")
 ;;1865
 ;;21,"64679-0942-02 ")
 ;;1866
 ;;21,"64679-0942-05 ")
 ;;1867
 ;;21,"64679-0942-09 ")
 ;;1790
 ;;21,"64679-0953-01 ")
 ;;1752
 ;;21,"64679-0953-02 ")
 ;;1723
 ;;21,"64679-0953-05 ")
 ;;1729
 ;;21,"64679-0953-09 ")
 ;;1724
 ;;21,"65162-0751-10 ")
 ;;339
 ;;21,"65162-0751-50 ")
 ;;323
 ;;21,"65162-0752-10 ")
 ;;185
 ;;21,"65162-0752-50 ")
 ;;189
 ;;21,"65162-0753-10 ")
 ;;219
 ;;21,"65162-0753-50 ")
 ;;221
 ;;21,"65162-0754-10 ")
 ;;306
 ;;21,"65162-0754-50 ")
 ;;284
 ;;21,"65243-0303-03 ")
 ;;1906
 ;;21,"65243-0314-03 ")
 ;;1868
 ;;21,"65862-0037-01 ")
 ;;1491
 ;;21,"65862-0037-05 ")
 ;;1492
 ;;21,"65862-0037-99 ")
 ;;1517
 ;;21,"65862-0038-01 ")
 ;;1977
 ;;21,"65862-0038-05 ")
 ;;1916
 ;;21,"65862-0038-99 ")
 ;;1978
 ;;21,"65862-0039-01 ")
 ;;1363
 ;;21,"65862-0039-05 ")
 ;;1449
 ;;21,"65862-0039-99 ")
 ;;1364
 ;;21,"65862-0040-01 ")
 ;;1584
 ;;21,"65862-0040-05 ")
 ;;1640
 ;;21,"65862-0040-99 ")
 ;;1670
 ;;21,"65862-0041-01 ")
 ;;1714
 ;;21,"65862-0041-05 ")
 ;;1751
 ;;21,"65862-0041-99 ")
 ;;1725
 ;;21,"65862-0042-01 ")
 ;;1789
 ;;21,"65862-0042-05 ")
 ;;1869
 ;;21,"65862-0042-99 ")
 ;;1870
 ;;21,"65862-0043-01 ")
 ;;1137
 ;;21,"65862-0043-05 ")
 ;;1111
 ;;21,"65862-0044-01 ")
 ;;1195
 ;;21,"65862-0044-05 ")
 ;;1193
 ;;21,"65862-0045-01 ")
 ;;1227
 ;;21,"65862-0045-05 ")
 ;;1236
 ;;21,"65862-0116-01 ")
 ;;158
 ;;21,"65862-0117-01 ")
 ;;233
 ;;21,"65862-0118-01 ")
 ;;263
 ;;21,"65862-0161-90 ")
 ;;1286
 ;;21,"65862-0162-30 ")
 ;;1294
 ;;21,"65862-0162-90 ")
 ;;1297
 ;;21,"65862-0163-90 ")
 ;;1304
 ;;21,"65862-0164-01 ")
 ;;2341
 ;;21,"65862-0165-01 ")
 ;;2355
 ;;21,"65862-0166-01 ")
 ;;2373
 ;;21,"65862-0286-01 ")
 ;;2033
 ;;21,"65862-0287-01 ")
 ;;2038
 ;;21,"65862-0288-01 ")
 ;;2044
 ;;21,"65862-0308-01 ")
 ;;1071
 ;;21,"65862-0309-01 ")
 ;;1078
 ;;21,"65862-0471-90 ")
 ;;988
 ;;21,"65862-0472-90 ")
 ;;1003
 ;;21,"65862-0473-90 ")
 ;;1059
 ;;21,"65862-0474-01 ")
 ;;2179
 ;;21,"65862-0474-30 ")
 ;;2190
 ;;21,"65862-0475-01 ")
 ;;2257
 ;;21,"65862-0475-05 ")
 ;;2282
 ;;21,"65862-0476-01 ")
 ;;2320
 ;;21,"65862-0476-05 ")
 ;;2302
 ;;21,"65862-0477-01 ")
 ;;2217
 ;;21,"65862-0477-05 ")
 ;;2213
 ;;21,"65862-0582-01 ")
 ;;45
 ;;21,"65862-0582-05 ")
 ;;51
 ;;21,"65862-0583-01 ")
 ;;86
 ;;21,"65862-0583-05 ")
 ;;62
 ;;21,"65862-0584-01 ")
 ;;111
 ;;21,"65862-0584-05 ")
 ;;94
 ;;21,"65862-0585-01 ")
 ;;129
 ;;21,"65862-0585-05 ")
 ;;140
 ;;21,"65862-0586-01 ")
 ;;20
 ;;21,"65862-0586-05 ")
 ;;3
 ;;21,"65862-0587-01 ")
 ;;40
 ;;21,"65862-0587-05 ")
 ;;39
 ;;21,"65862-0617-90 ")
 ;;2168
 ;;21,"65862-0618-90 ")
 ;;2066
 ;;21,"65862-0619-90 ")
 ;;2082
 ;;21,"65862-0620-90 ")
 ;;2113
 ;;21,"66105-0101-09 ")
 ;;2060
 ;;21,"66105-0102-09 ")
 ;;2083
 ;;21,"66105-0103-09 ")
 ;;2125
 ;;21,"66105-0524-09 ")
 ;;2169
 ;;21,"66105-0546-09 ")
 ;;967
 ;;21,"66105-0548-03 ")
 ;;1585
 ;;21,"66105-0555-10 ")
 ;;1979
 ;;21,"66267-0323-30 ")
 ;;587
 ;;21,"66267-0323-60 ")
 ;;648
 ;;21,"66267-0323-90 ")
 ;;640
 ;;21,"66267-0323-91 ")
 ;;586
 ;;21,"66267-0380-30 ")
 ;;742
 ;;21,"66267-0380-60 ")
 ;;741
 ;;21,"66267-0380-90 ")
 ;;786
 ;;21,"66267-0380-91 ")
 ;;785
 ;;21,"66267-0413-30 ")
 ;;890
 ;;21,"66267-0413-60 ")
 ;;889
 ;;21,"66267-0413-90 ")
 ;;888
 ;;21,"66267-0413-92 ")
 ;;887
 ;;21,"66336-0124-30 ")
 ;;289
 ;;21,"66336-0232-30 ")
 ;;315
 ;;21,"66336-0366-30 ")
 ;;156
 ;;21,"66336-0389-30 ")
 ;;585
 ;;21,"66336-0389-60 ")
 ;;584
 ;;21,"66336-0391-30 ")
 ;;834
 ;;21,"66336-0391-60 ")
 ;;886
 ;;21,"66336-0393-30 ")
 ;;740
 ;;21,"66336-0393-60 ")
 ;;784
 ;;21,"66336-0572-30 ")
 ;;1110
 ;;21,"66336-0618-60 ")
 ;;407
 ;;21,"66336-0691-30 ")
 ;;217
 ;;21,"66336-0741-30 ")
 ;;1586
 ;;21,"66336-0750-60 ")
 ;;545
 ;;21,"66336-0750-90 ")
 ;;536
 ;;21,"66336-0773-30 ")
 ;;188
 ;;21,"66336-0794-60 ")
 ;;392
 ;;21,"66336-0805-30 ")
 ;;1194
 ;;21,"66336-0867-30 ")
 ;;1788
 ;;21,"66336-0946-30 ")
 ;;486
 ;;21,"66336-0946-60 ")
 ;;449
 ;;21,"66336-0946-90 ")
 ;;485
 ;;21,"66336-0972-30 ")
 ;;1365
 ;;21,"66636-0691-30 ")
 ;;218
 ;;21,"66685-0301-00 ")
 ;;681
 ;;21,"66685-0301-02 ")
 ;;682
 ;;21,"66685-0302-00 ")
 ;;862
 ;;21,"66685-0302-02 ")
 ;;835
 ;;21,"66685-0303-00 ")
 ;;639
 ;;21,"66685-0303-02 ")
 ;;638
 ;;21,"66685-0304-00 ")
 ;;789
 ;;21,"66685-0304-02 ")
 ;;739
 ;;21,"66685-0701-01 ")
 ;;1518
 ;;21,"66685-0701-02 ")
 ;;1515
 ;;21,"66685-0702-01 ")
 ;;1989
 ;;21,"66685-0702-02 ")
 ;;1981
 ;;21,"66685-0702-03 ")
 ;;1907
 ;;21,"66685-0703-01 ")
 ;;1450
 ;;21,"66685-0703-02 ")
 ;;1412
 ;;21,"66685-0703-03 ")
 ;;1369
 ;;21,"66685-0704-01 ")
 ;;1673
 ;;21,"66685-0704-02 ")
 ;;1587
 ;;21,"66685-0704-03 ")
 ;;1672
 ;;21,"66685-0705-01 ")
 ;;1750
 ;;21,"66685-0705-02 ")
 ;;1749
 ;;21,"66685-0706-01 ")
 ;;1871
 ;;21,"66685-0706-03 ")
 ;;1861
 ;;21,"66685-0706-04 ")
 ;;1856
 ;;21,"67253-0106-10 ")
 ;;2340
 ;;21,"67253-0107-10 ")
 ;;2350
 ;;21,"67253-0671-10 ")
 ;;2191
 ;;21,"67253-0672-10 ")
 ;;2283
 ;;21,"67253-0672-11 ")
 ;;2262
 ;;21,"67253-0673-10 ")
 ;;2303
 ;;21,"67253-0673-11 ")
 ;;2304
 ;;21,"67253-0674-10 ")
 ;;2236
 ;;21,"67253-0674-11 ")
 ;;2235
 ;;21,"67544-0042-15 ")
 ;;999
 ;;21,"67544-0062-30 ")
 ;;1493
 ;;21,"67544-0128-15 ")
 ;;1918
 ;;21,"67544-0134-15 ")
 ;;1588
 ;;21,"67544-0148-15 ")
 ;;1855
 ;;21,"67544-0159-15 ")
 ;;1331
 ;;21,"67544-0173-30 ")
 ;;1974
 ;;21,"67544-0174-30 ")
 ;;1589
 ;;21,"67544-0219-15 ")
 ;;1332
 ;;21,"67544-0306-30 ")
 ;;1044
 ;;21,"67544-0311-30 ")
 ;;1045
 ;;21,"67544-0322-15 ")
 ;;1007
 ;;21,"67544-0350-80 ")
 ;;669
 ;;21,"67544-0377-60 ")
 ;;1162
 ;;21,"67544-0380-30 ")
 ;;989
 ;;21,"67544-0418-60 ")
 ;;1187
 ;;21,"67544-0431-15 ")
 ;;1002
 ;;21,"67544-0454-15 ")
 ;;1050
 ;;21,"67544-0489-15 ")
 ;;974
 ;;21,"67544-0997-30 ")
 ;;1787
 ;;21,"67544-0999-60 ")
 ;;1590
 ;;21,"67801-0340-03 ")
 ;;52
 ;;21,"67801-0342-03 ")
 ;;95
 ;;21,"67801-0343-03 ")
 ;;2
 ;;21,"67801-0441-03 ")
 ;;61
 ;;21,"68084-0058-01 ")
 ;;1498
 ;;21,"68084-0060-01 ")
 ;;1890
 ;;21,"68084-0060-11 ")
 ;;1920
 ;;21,"68084-0061-01 ")
 ;;1333
 ;;21,"68084-0061-11 ")
 ;;1334
 ;;21,"68084-0062-01 ")
 ;;1687
 ;;21,"68084-0062-11 ")
 ;;1674
 ;;21,"68084-0064-01 ")
 ;;1786
 ;;21,"68084-0064-11 ")
 ;;1785
 ;;21,"68084-0266-01 ")
 ;;2263
 ;;21,"68084-0266-11 ")
 ;;2276
 ;;21,"68084-0267-01 ")
 ;;2305
 ;;21,"68084-0267-11 ")
 ;;2306
 ;;21,"68084-0268-01 ")
 ;;2231
 ;;21,"68084-0268-11 ")
 ;;2232
 ;;21,"68084-0294-11 ")
 ;;2180
 ;;21,"68084-0294-21 ")
 ;;2192
 ;;21,"68084-0349-11 ")
 ;;60
 ;;21,"68084-0349-21 ")
 ;;85
 ;;21,"68084-0350-01 ")
 ;;96
 ;;21,"68084-0350-11 ")
 ;;120
 ;;21,"68084-0351-11 ")
 ;;21
 ;;21,"68084-0351-21 ")
 ;;22
 ;;21,"68084-0390-01 ")
 ;;829
 ;;21,"68084-0390-11 ")
 ;;832
 ;;21,"68084-0391-01 ")
 ;;583
 ;;21,"68084-0391-11 ")
 ;;637
 ;;21,"68084-0392-01 ")
 ;;738
 ;;21,"68084-0392-11 ")
 ;;779
 ;;21,"68115-0127-15 ")
 ;;635
 ;;21,"68115-0128-60 ")
 ;;737
 ;;21,"68115-0128-90 ")
 ;;736
 ;;21,"68115-0217-30 ")
 ;;286
 ;;21,"68115-0362-60 ")
 ;;1675
 ;;21,"68115-0363-30 ")
 ;;1983
 ;;21,"68115-0573-30 ")
 ;;97
 ;;21,"68115-0615-00 ")
 ;;157
 ;;21,"68115-0673-30 ")
 ;;100
 ;;21,"68180-0235-01 ")
 ;;2030
 ;;21,"68180-0236-01 ")
 ;;2036
 ;;21,"68180-0237-01 ")
 ;;2043
 ;;21,"68180-0512-01 ")
 ;;1494
 ;;21,"68180-0512-02 ")
 ;;1482
 ;;21,"68180-0512-09 ")
 ;;1495
 ;;21,"68180-0513-01 ")
 ;;1921
 ;;21,"68180-0513-03 ")
 ;;1984
 ;;21,"68180-0514-01 ")
 ;;1366
 ;;21,"68180-0514-03 ")
 ;;1335
 ;;21,"68180-0515-01 ")
 ;;1676
 ;;21,"68180-0515-03 ")
 ;;1677
 ;;21,"68180-0515-09 ")
 ;;1678
 ;;21,"68180-0516-01 ")
 ;;1748
 ;;21,"68180-0516-02 ")
 ;;1726
 ;;21,"68180-0517-01 ")
 ;;1854
 ;;21,"68180-0517-03 ")
 ;;1783
 ;;21,"68180-0518-01 ")
 ;;1136
 ;;21,"68180-0518-02 ")
 ;;1135
 ;;21,"68180-0519-01 ")
 ;;1164
 ;;21,"68180-0519-02 ")
 ;;1160
 ;;21,"68180-0520-01 ")
 ;;1228
 ;;21,"68180-0520-02 ")
 ;;1231
 ;;21,"68180-0556-09 ")
 ;;2156
 ;;21,"68180-0557-09 ")
 ;;2048
 ;;21,"68180-0558-09 ")
 ;;2084
 ;;21,"68180-0559-09 ")
 ;;2127
 ;;21,"68180-0566-01 ")
 ;;2343
 ;;21,"68180-0567-01 ")
 ;;2349
 ;;21,"68180-0568-01 ")
 ;;2363
 ;;21,"68180-0588-01 ")
 ;;2193
 ;;21,"68180-0589-01 ")
 ;;2286
 ;;21,"68180-0589-02 ")
 ;;2266
 ;;21,"68180-0590-01 ")
 ;;2331
 ;;21,"68180-0590-02 ")
 ;;2330
 ;;21,"68180-0590-09 ")
 ;;2329
 ;;21,"68180-0591-01 ")
 ;;2234
 ;;21,"68180-0591-02 ")
 ;;2215
 ;;21,"68180-0755-01 ")
 ;;46
 ;;21,"68180-0756-01 ")
 ;;59
 ;;21,"68180-0757-01 ")
 ;;98
 ;;21,"68180-0758-01 ")
 ;;23
 ;;21,"68180-0759-01 ")
 ;;137
 ;;21,"68180-0760-01 ")
 ;;42
 ;;21,"68382-0144-01 ")
 ;;2183
 ;;21,"68382-0144-05 ")
 ;;2173
 ;;21,"68382-0144-06 ")
 ;;2194
 ;;21,"68382-0145-01 ")
 ;;2285
 ;;21,"68382-0145-05 ")
 ;;2258
 ;;21,"68382-0145-06 ")
 ;;2250
 ;;21,"68382-0146-01 ")
 ;;2311
 ;;21,"68382-0146-05 ")
 ;;2308
 ;;21,"68382-0146-06 ")
 ;;2296
 ;;21,"68382-0147-01 ")
 ;;2216
 ;;21,"68382-0147-05 ")
 ;;2220