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

BGP47Z4.m

Go to the documentation of this file.
BGP47Z4 ;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,"51079-0682-20 ")
 ;;1868
 ;;21,"51079-0683-01 ")
 ;;1952
 ;;21,"51079-0683-20 ")
 ;;1953
 ;;21,"51079-0745-01 ")
 ;;575
 ;;21,"51079-0745-17 ")
 ;;576
 ;;21,"51079-0745-19 ")
 ;;577
 ;;21,"51079-0745-20 ")
 ;;578
 ;;21,"51079-0745-23 ")
 ;;579
 ;;21,"51079-0745-24 ")
 ;;580
 ;;21,"51079-0746-01 ")
 ;;625
 ;;21,"51079-0746-17 ")
 ;;626
 ;;21,"51079-0746-19 ")
 ;;627
 ;;21,"51079-0746-20 ")
 ;;628
 ;;21,"51079-0746-23 ")
 ;;629
 ;;21,"51079-0746-24 ")
 ;;630
 ;;21,"51079-0747-01 ")
 ;;667
 ;;21,"51079-0747-20 ")
 ;;668
 ;;21,"51079-0869-01 ")
 ;;2136
 ;;21,"51079-0869-17 ")
 ;;2137
 ;;21,"51079-0869-19 ")
 ;;2138
 ;;21,"51079-0869-20 ")
 ;;2139
 ;;21,"51079-0869-30 ")
 ;;2140
 ;;21,"51079-0869-56 ")
 ;;2141
 ;;21,"51079-0894-01 ")
 ;;1982
 ;;21,"51079-0894-20 ")
 ;;1983
 ;;21,"51079-0896-01 ")
 ;;1719
 ;;21,"51079-0896-20 ")
 ;;1720
 ;;21,"51079-0897-01 ")
 ;;1764
 ;;21,"51079-0897-08 ")
 ;;1765
 ;;21,"51079-0899-01 ")
 ;;2074
 ;;21,"51079-0899-20 ")
 ;;2075
 ;;21,"51079-0899-30 ")
 ;;2076
 ;;21,"51079-0899-56 ")
 ;;2077
 ;;21,"51079-0917-01 ")
 ;;2218
 ;;21,"51079-0917-20 ")
 ;;2219
 ;;21,"51079-0918-01 ")
 ;;2229
 ;;21,"51079-0918-20 ")
 ;;2230
 ;;21,"51079-0919-01 ")
 ;;2245
 ;;21,"51079-0919-08 ")
 ;;2246
 ;;21,"51079-0924-01 ")
 ;;683
 ;;21,"51079-0924-20 ")
 ;;684
 ;;21,"51079-0925-01 ")
 ;;691
 ;;21,"51079-0925-20 ")
 ;;692
 ;;21,"51079-0926-01 ")
 ;;700
 ;;21,"51079-0926-20 ")
 ;;701
 ;;21,"51079-0940-01 ")
 ;;1652
 ;;21,"51079-0940-20 ")
 ;;1653
 ;;21,"51079-0947-01 ")
 ;;722
 ;;21,"51079-0947-08 ")
 ;;723
 ;;21,"51079-0948-01 ")
 ;;743
 ;;21,"51079-0948-08 ")
 ;;744
 ;;21,"51079-0949-01 ")
 ;;766
 ;;21,"51079-0949-08 ")
 ;;767
 ;;21,"51079-0968-01 ")
 ;;1729
 ;;21,"51079-0968-20 ")
 ;;1730
 ;;21,"51079-0969-01 ")
 ;;1773
 ;;21,"51079-0969-20 ")
 ;;1774
 ;;21,"51138-0086-30 ")
 ;;50
 ;;21,"51138-0087-30 ")
 ;;181
 ;;21,"51138-0088-30 ")
 ;;325
 ;;21,"51138-0151-30 ")
 ;;51
 ;;21,"51138-0152-30 ")
 ;;180
 ;;21,"51138-0153-30 ")
 ;;326
 ;;21,"51138-0279-30 ")
 ;;2000
 ;;21,"51138-0280-30 ")
 ;;2083
 ;;21,"51138-0281-30 ")
 ;;2152
 ;;21,"51138-0287-30 ")
 ;;2220
 ;;21,"51138-0288-30 ")
 ;;2231
 ;;21,"51138-0289-30 ")
 ;;2247
 ;;21,"51138-0292-30 ")
 ;;969
 ;;21,"51138-0293-30 ")
 ;;1028
 ;;21,"51138-0294-30 ")
 ;;1095
 ;;21,"51138-0295-30 ")
 ;;1160
 ;;21,"51138-0296-10 ")
 ;;786
 ;;21,"51138-0296-30 ")
 ;;787
 ;;21,"51138-0297-30 ")
 ;;817
 ;;21,"51138-0298-20 ")
 ;;844
 ;;21,"51138-0298-30 ")
 ;;845
 ;;21,"51138-0299-30 ")
 ;;872
 ;;21,"51138-0300-30 ")
 ;;898
 ;;21,"51138-0301-30 ")
 ;;917
 ;;21,"51138-0302-10 ")
 ;;991
 ;;21,"51138-0302-30 ")
 ;;992
 ;;21,"51138-0303-30 ")
 ;;1048
 ;;21,"51138-0304-20 ")
 ;;1123
 ;;21,"51138-0304-30 ")
 ;;1124
 ;;21,"51138-0305-30 ")
 ;;1172
 ;;21,"51138-0360-10 ")
 ;;1675
 ;;21,"51138-0360-30 ")
 ;;1676
 ;;21,"51138-0361-10 ")
 ;;1743
 ;;21,"51138-0361-30 ")
 ;;1744
 ;;21,"51138-0362-10 ")
 ;;1801
 ;;21,"51138-0362-30 ")
 ;;1802
 ;;21,"51138-0387-10 ")
 ;;1257
 ;;21,"51138-0387-30 ")
 ;;1258
 ;;21,"51138-0388-10 ")
 ;;1289
 ;;21,"51138-0388-30 ")
 ;;1290
 ;;21,"51138-0389-10 ")
 ;;1348
 ;;21,"51138-0389-30 ")
 ;;1349
 ;;21,"51138-0390-10 ")
 ;;1521
 ;;21,"51138-0390-30 ")
 ;;1522
 ;;21,"51138-0391-10 ")
 ;;1597
 ;;21,"51138-0391-30 ")
 ;;1598
 ;;21,"51138-0404-30 ")
 ;;1249
 ;;21,"51138-0405-10 ")
 ;;1283
 ;;21,"51138-0405-30 ")
 ;;1284
 ;;21,"51138-0406-10 ")
 ;;1341
 ;;21,"51138-0406-30 ")
 ;;1342
 ;;21,"51138-0418-30 ")
 ;;2291
 ;;21,"51138-0419-30 ")
 ;;2303
 ;;21,"51138-0420-30 ")
 ;;2359
 ;;21,"51138-0422-30 ")
 ;;2454
 ;;21,"51138-0432-30 ")
 ;;2290
 ;;21,"51138-0433-30 ")
 ;;2304
 ;;21,"51138-0434-30 ")
 ;;2358
 ;;21,"51138-0435-30 ")
 ;;2453
 ;;21,"51138-0531-10 ")
 ;;2298
 ;;21,"51138-0531-30 ")
 ;;2299
 ;;21,"51138-0532-10 ")
 ;;2346
 ;;21,"51138-0532-30 ")
 ;;2347
 ;;21,"51138-0533-10 ")
 ;;2413
 ;;21,"51138-0533-30 ")
 ;;2414
 ;;21,"51138-0534-10 ")
 ;;2441
 ;;21,"51138-0534-30 ")
 ;;2442
 ;;21,"51138-0535-10 ")
 ;;2498
 ;;21,"51138-0535-30 ")
 ;;2499
 ;;21,"51138-0536-10 ")
 ;;2523
 ;;21,"51138-0536-30 ")
 ;;2524
 ;;21,"51138-0544-30 ")
 ;;937
 ;;21,"51138-0545-30 ")
 ;;1000
 ;;21,"51138-0546-30 ")
 ;;1061
 ;;21,"51138-0547-30 ")
 ;;1136
 ;;21,"51138-0548-30 ")
 ;;1180
 ;;21,"51138-0557-30 ")
 ;;1563
 ;;21,"51138-0558-30 ")
 ;;99
 ;;21,"51138-0559-30 ")
 ;;286
 ;;21,"51138-0560-30 ")
 ;;494
 ;;21,"51138-0576-30 ")
 ;;2530
 ;;21,"51138-0577-20 ")
 ;;2536
 ;;21,"51138-0577-30 ")
 ;;2537
 ;;21,"51138-0578-10 ")
 ;;2543
 ;;21,"51138-0578-30 ")
 ;;2544
 ;;21,"51138-0579-10 ")
 ;;2552
 ;;21,"51138-0579-20 ")
 ;;2553
 ;;21,"51138-0579-30 ")
 ;;2554
 ;;21,"51655-0556-92 ")
 ;;1856
 ;;21,"51655-0586-82 ")
 ;;1929
 ;;21,"51991-0667-90 ")
 ;;223
 ;;21,"51991-0668-90 ")
 ;;364
 ;;21,"52152-0263-01 ")
 ;;1402
 ;;21,"52152-0264-01 ")
 ;;1407
 ;;21,"52152-0507-08 ")
 ;;9
 ;;21,"52152-0508-08 ")
 ;;113
 ;;21,"52152-0509-08 ")
 ;;442
 ;;21,"52544-0343-01 ")
 ;;1885
 ;;21,"52544-0343-05 ")
 ;;1886
 ;;21,"52544-0343-10 ")
 ;;1887
 ;;21,"52544-0344-01 ")
 ;;1888
 ;;21,"52544-0344-05 ")
 ;;1889
 ;;21,"52544-0344-10 ")
 ;;1859
 ;;21,"52544-0345-01 ")
 ;;1961
 ;;21,"52544-0345-05 ")
 ;;1962
 ;;21,"52544-0345-10 ")
 ;;1963
 ;;21,"52544-0346-01 ")
 ;;1964
 ;;21,"52544-0346-05 ")
 ;;1965
 ;;21,"52544-0346-10 ")
 ;;1966
 ;;21,"52544-0482-01 ")
 ;;707
 ;;21,"52544-0482-05 ")
 ;;708
 ;;21,"52544-0483-01 ")
 ;;726
 ;;21,"52544-0483-05 ")
 ;;727
 ;;21,"52544-0484-01 ")
 ;;754
 ;;21,"52544-0484-05 ")
 ;;755
 ;;21,"52544-0691-19 ")
 ;;1202
 ;;21,"52544-0691-30 ")
 ;;1203
 ;;21,"52544-0692-19 ")
 ;;1213
 ;;21,"52544-0692-30 ")
 ;;1214
 ;;21,"52544-0693-19 ")
 ;;1223
 ;;21,"52544-0693-30 ")
 ;;1224
 ;;21,"52544-0694-19 ")
 ;;1236
 ;;21,"52544-0694-30 ")
 ;;1237
 ;;21,"52544-0695-19 ")
 ;;1247
 ;;21,"52544-0695-30 ")
 ;;1248
 ;;21,"52544-0775-01 ")
 ;;573
 ;;21,"52544-0775-05 ")
 ;;574
 ;;21,"52544-0776-01 ")
 ;;631
 ;;21,"52544-0776-05 ")
 ;;632
 ;;21,"52544-0777-01 ")
 ;;666
 ;;21,"52544-0778-01 ")
 ;;680
 ;;21,"52544-0865-10 ")
 ;;1049
 ;;21,"52959-0050-30 ")
 ;;2142
 ;;21,"52959-0072-01 ")
 ;;750
 ;;21,"52959-0209-90 ")
 ;;327
 ;;21,"52959-0910-90 ")
 ;;52
 ;;21,"52959-0911-30 ")
 ;;177
 ;;21,"52959-0911-90 ")
 ;;178
 ;;21,"52959-0982-60 ")
 ;;1584
 ;;21,"52959-0996-60 ")
 ;;1508
 ;;21,"53002-1129-00 ")
 ;;2174
 ;;21,"53002-1129-03 ")
 ;;2175
 ;;21,"53002-1205-00 ")
 ;;2042
 ;;21,"53002-1205-03 ")
 ;;2043
 ;;21,"53002-1467-00 ")
 ;;2016
 ;;21,"53002-1467-03 ")
 ;;2017
 ;;21,"53489-0368-01 ")
 ;;1251
 ;;21,"53489-0369-01 ")
 ;;1288
 ;;21,"53489-0370-01 ")
 ;;1346
 ;;21,"53746-0006-01 ")
 ;;23
 ;;21,"53746-0006-05 ")
 ;;24
 ;;21,"53746-0007-01 ")
 ;;172
 ;;21,"53746-0007-05 ")
 ;;173
 ;;21,"53746-0008-01 ")
 ;;466
 ;;21,"53746-0008-05 ")
 ;;467
 ;;21,"54458-0895-02 ")
 ;;328
 ;;21,"54458-0903-02 ")
 ;;329
 ;;21,"54458-0904-02 ")
 ;;179
 ;;21,"54458-0948-08 ")
 ;;1736
 ;;21,"54458-0950-10 ")
 ;;1660
 ;;21,"54569-0639-00 ")
 ;;1882
 ;;21,"54569-0639-01 ")
 ;;1883
 ;;21,"54569-0639-02 ")
 ;;1884
 ;;21,"54569-0646-00 ")
 ;;1933
 ;;21,"54569-0646-01 ")
 ;;1912
 ;;21,"54569-0646-02 ")
 ;;1913
 ;;21,"54569-2780-00 ")
 ;;1692
 ;;21,"54569-2780-01 ")
 ;;1693
 ;;21,"54569-2780-02 ")
 ;;1694
 ;;21,"54569-2780-03 ")
 ;;1695
 ;;21,"54569-2781-00 ")
 ;;1753
 ;;21,"54569-2781-01 ")
 ;;1754
 ;;21,"54569-2912-02 ")
 ;;687
 ;;21,"54569-3055-00 ")
 ;;1810
 ;;21,"54569-3055-02 ")
 ;;1811
 ;;21,"54569-3665-00 ")
 ;;539
 ;;21,"54569-3665-01 ")
 ;;540
 ;;21,"54569-3667-00 ")
 ;;638
 ;;21,"54569-3667-01 ")
 ;;639
 ;;21,"54569-3667-02 ")
 ;;640
 ;;21,"54569-3691-00 ")
 ;;2122
 ;;21,"54569-3691-04 ")
 ;;2123
 ;;21,"54569-3718-00 ")
 ;;1333
 ;;21,"54569-3718-03 ")
 ;;1334
 ;;21,"54569-3719-00 ")
 ;;1392
 ;;21,"54569-3784-00 ")
 ;;686
 ;;21,"54569-3785-00 ")
 ;;693
 ;;21,"54569-3785-02 ")
 ;;694
 ;;21,"54569-3786-00 ")
 ;;705
 ;;21,"54569-3786-01 ")
 ;;706
 ;;21,"54569-3802-00 ")
 ;;2100
 ;;21,"54569-3803-00 ")
 ;;997
 ;;21,"54569-3804-00 ")
 ;;1074
 ;;21,"54569-3866-00 ")
 ;;290
 ;;21,"54569-3866-01 ")
 ;;291
 ;;21,"54569-3866-02 ")
 ;;292
 ;;21,"54569-3891-00 ")
 ;;1477
 ;;21,"54569-3891-01 ")
 ;;1478
 ;;21,"54569-3892-00 ")
 ;;1552
 ;;21,"54569-3893-00 ")
 ;;1622
 ;;21,"54569-4183-00 ")
 ;;1282
 ;;21,"54569-4211-00 ")
 ;;728
 ;;21,"54569-4447-00 ")
 ;;2078
 ;;21,"54569-4447-01 ")
 ;;2079
 ;;21,"54569-4447-04 ")
 ;;2080
 ;;21,"54569-4455-00 ")
 ;;938
 ;;21,"54569-4472-00 ")
 ;;492
 ;;21,"54569-4472-01 ")
 ;;493
 ;;21,"54569-4498-00 ")
 ;;2271
 ;;21,"54569-4499-00 ")
 ;;2272
 ;;21,"54569-4696-00 ")
 ;;2348
 ;;21,"54569-4696-01 ")
 ;;2349
 ;;21,"54569-4715-00 ")
 ;;802
 ;;21,"54569-4716-00 ")
 ;;830
 ;;21,"54569-4717-00 ")
 ;;857
 ;;21,"54569-4913-00 ")
 ;;1050
 ;;21,"54569-4914-00 ")
 ;;1115
 ;;21,"54569-4914-01 ")
 ;;1116
 ;;21,"54569-4924-00 ")
 ;;1171
 ;;21,"54569-5155-00 ")
 ;;1671
 ;;21,"54569-5155-01 ")
 ;;1672
 ;;21,"54569-5156-00 ")
 ;;1745
 ;;21,"54569-5156-01 ")
 ;;1746
 ;;21,"54569-5157-00 ")
 ;;1799
 ;;21,"54569-5157-01 ")
 ;;1800
 ;;21,"54569-5232-00 ")
 ;;2409
 ;;21,"54569-5232-01 ")
 ;;2410
 ;;21,"54569-5282-00 ")
 ;;2297
 ;;21,"54569-5370-00 ")
 ;;108
 ;;21,"54569-5431-00 ")
 ;;947
 ;;21,"54569-5431-01 ")
 ;;990
 ;;21,"54569-5704-00 ")
 ;;2635
 ;;21,"54569-5878-00 ")
 ;;2495
 ;;21,"54569-5881-00 ")
 ;;2664
 ;;21,"54569-5901-00 ")
 ;;124
 ;;21,"54569-5901-01 ")
 ;;125
 ;;21,"54569-5902-00 ")
 ;;428
 ;;21,"54569-5902-01 ")
 ;;429
 ;;21,"54569-5937-00 ")
 ;;2302
 ;;21,"54569-5938-00 ")
 ;;2357
 ;;21,"54569-5951-00 ")
 ;;2673
 ;;21,"54569-6099-00 ")
 ;;2678
 ;;21,"54569-6117-00 ")
 ;;1347
 ;;21,"54569-6464-00 ")
 ;;1993
 ;;21,"54569-6467-00 ")
 ;;93
 ;;21,"54738-0904-01 ")
 ;;1252
 ;;21,"54738-0904-03 ")
 ;;1253
 ;;21,"54738-0904-90 ")
 ;;1254
 ;;21,"54738-0905-01 ")
 ;;1297
 ;;21,"54738-0905-03 ")
 ;;1298
 ;;21,"54738-0905-90 ")
 ;;1299
 ;;21,"54738-0906-01 ")
 ;;1356
 ;;21,"54738-0906-03 ")
 ;;1357
 ;;21,"54738-0906-90 ")
 ;;1358
 ;;21,"54868-0120-00 ")
 ;;1872
 ;;21,"54868-0120-01 ")
 ;;1873
 ;;21,"54868-0120-02 ")
 ;;1874
 ;;21,"54868-0120-03 ")
 ;;1875
 ;;21,"54868-0120-04 ")
 ;;1876
 ;;21,"54868-0121-00 ")
 ;;1940
 ;;21,"54868-0121-01 ")
 ;;1941
 ;;21,"54868-0121-02 ")
 ;;1942
 ;;21,"54868-0121-05 ")
 ;;1943
 ;;21,"54868-0121-06 ")
 ;;1944
 ;;21,"54868-0671-00 ")
 ;;581
 ;;21,"54868-0823-00 ")
 ;;1269
 ;;21,"54868-0826-00 ")
 ;;1374
 ;;21,"54868-0826-01 ")
 ;;1375
 ;;21,"54868-0826-02 ")
 ;;1376
 ;;21,"54868-0933-00 ")
 ;;1891
 ;;21,"54868-1005-00 ")
 ;;697
 ;;21,"54868-1006-02 ")
 ;;1690
 ;;21,"54868-1006-03 ")
 ;;1691
 ;;21,"54868-1008-00 ")
 ;;1748
 ;;21,"54868-1008-01 ")
 ;;1749
 ;;21,"54868-1008-02 ")
 ;;1750
 ;;21,"54868-1207-00 ")
 ;;2644
 ;;21,"54868-1207-01 ")
 ;;2645
 ;;21,"54868-1283-00 ")
 ;;2116
 ;;21,"54868-1283-01 ")
 ;;2117
 ;;21,"54868-1443-03 ")
 ;;1807
 ;;21,"54868-1550-03 ")
 ;;2031
 ;;21,"54868-2147-02 ")
 ;;1970
 ;;21,"54868-2148-03 ")
 ;;998
 ;;21,"54868-2149-00 ")
 ;;1072
 ;;21,"54868-2149-02 ")
 ;;1073
 ;;21,"54868-2150-01 ")
 ;;1147
 ;;21,"54868-2167-00 ")
 ;;1329
 ;;21,"54868-2167-02 ")
 ;;1330
 ;;21,"54868-2168-02 ")
 ;;1390
 ;;21,"54868-2168-03 ")
 ;;1391
 ;;21,"54868-2200-00 ")
 ;;2252
 ;;21,"54868-2200-02 ")
 ;;2253
 ;;21,"54868-2207-00 ")
 ;;2163
 ;;21,"54868-2207-01 ")
 ;;2164
 ;;21,"54868-2207-02 ")
 ;;2165
 ;;21,"54868-2207-03 ")
 ;;2166
 ;;21,"54868-2207-04 ")
 ;;2167
 ;;21,"54868-2207-05 ")
 ;;2168
 ;;21,"54868-2207-06 ")
 ;;2169
 ;;21,"54868-2207-07 ")
 ;;2170
 ;;21,"54868-2211-00 ")
 ;;2208
 ;;21,"54868-2276-01 ")
 ;;633
 ;;21,"54868-2276-02 ")
 ;;634
 ;;21,"54868-2277-00 ")
 ;;665
 ;;21,"54868-2290-00 ")
 ;;550
 ;;21,"54868-2290-01 ")
 ;;551
 ;;21,"54868-2290-02 ")
 ;;552
 ;;21,"54868-2290-03 ")
 ;;553
 ;;21,"54868-2290-04 ")
 ;;554
 ;;21,"54868-2322-01 ")
 ;;729
 ;;21,"54868-2322-02 ")
 ;;730
 ;;21,"54868-2322-03 ")
 ;;731
 ;;21,"54868-2323-00 ")
 ;;677
 ;;21,"54868-2469-00 ")
 ;;1398
 ;;21,"54868-2469-01 ")
 ;;1399
 ;;21,"54868-2868-00 ")
 ;;1480
 ;;21,"54868-2868-01 ")
 ;;1481
 ;;21,"54868-2868-02 ")
 ;;1482
 ;;21,"54868-2868-05 ")
 ;;1483
 ;;21,"54868-2885-00 ")
 ;;1825
 ;;21,"54868-2975-02 ")
 ;;752
 ;;21,"54868-2975-03 ")
 ;;753
 ;;21,"54868-3103-00 ")
 ;;716
 ;;21,"54868-3103-02 ")
 ;;717
 ;;21,"54868-3103-03 ")
 ;;718
 ;;21,"54868-3103-04 ")
 ;;719
 ;;21,"54868-3103-05 ")
 ;;720
 ;;21,"54868-3287-00 ")
 ;;2636
 ;;21,"54868-3287-01 ")
 ;;2637
 ;;21,"54868-3300-00 ")
 ;;2084
 ;;21,"54868-3300-01 ")
 ;;2085