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

BGP13X3.m

Go to the documentation of this file.
BGP13X3 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON APR 14, 2011 ;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;;JUN 27, 2011;Build 33
 ;
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,"00378-3243-01 ")
 ;;3133
 ;;21,"00378-4725-01 ")
 ;;214
 ;;21,"00378-4735-01 ")
 ;;152
 ;;21,"00378-4745-01 ")
 ;;172
 ;;21,"00378-4775-01 ")
 ;;195
 ;;21,"00440-7140-30 ")
 ;;38
 ;;21,"00440-7140-90 ")
 ;;39
 ;;21,"00440-7141-30 ")
 ;;52
 ;;21,"00440-7141-90 ")
 ;;53
 ;;21,"00440-7142-30 ")
 ;;83
 ;;21,"00440-7142-90 ")
 ;;84
 ;;21,"00440-7143-30 ")
 ;;3
 ;;21,"00440-7143-90 ")
 ;;4
 ;;21,"00440-7190-30 ")
 ;;607
 ;;21,"00440-7190-90 ")
 ;;608
 ;;21,"00440-7192-30 ")
 ;;680
 ;;21,"00440-7192-90 ")
 ;;681
 ;;21,"00440-7193-30 ")
 ;;755
 ;;21,"00440-7193-90 ")
 ;;756
 ;;21,"00440-7230-60 ")
 ;;888
 ;;21,"00440-7230-90 ")
 ;;889
 ;;21,"00440-7230-92 ")
 ;;890
 ;;21,"00440-7230-94 ")
 ;;891
 ;;21,"00440-7231-30 ")
 ;;957
 ;;21,"00440-7231-60 ")
 ;;958
 ;;21,"00440-7231-90 ")
 ;;959
 ;;21,"00440-7231-91 ")
 ;;960
 ;;21,"00440-7231-92 ")
 ;;961
 ;;21,"00440-7231-94 ")
 ;;962
 ;;21,"00440-7232-30 ")
 ;;1072
 ;;21,"00440-7232-60 ")
 ;;1073
 ;;21,"00440-7232-90 ")
 ;;1074
 ;;21,"00440-7232-91 ")
 ;;1075
 ;;21,"00440-7232-92 ")
 ;;1076
 ;;21,"00440-7232-94 ")
 ;;1077
 ;;21,"00440-7345-99 ")
 ;;3702
 ;;21,"00440-7485-90 ")
 ;;1326
 ;;21,"00440-7486-10 ")
 ;;1537
 ;;21,"00440-7486-30 ")
 ;;1538
 ;;21,"00440-7486-60 ")
 ;;1539
 ;;21,"00440-7486-90 ")
 ;;1540
 ;;21,"00440-7486-91 ")
 ;;1541
 ;;21,"00440-7487-30 ")
 ;;1178
 ;;21,"00440-7487-90 ")
 ;;1179
 ;;21,"00440-7488-90 ")
 ;;1407
 ;;21,"00440-7550-45 ")
 ;;1666
 ;;21,"00440-7550-90 ")
 ;;1667
 ;;21,"00440-7551-45 ")
 ;;1719
 ;;21,"00440-7551-90 ")
 ;;1720
 ;;21,"00440-7552-45 ")
 ;;1793
 ;;21,"00440-7552-90 ")
 ;;1794
 ;;21,"00440-7552-92 ")
 ;;1795
 ;;21,"00440-7674-90 ")
 ;;2609
 ;;21,"00440-7675-30 ")
 ;;1876
 ;;21,"00440-7675-90 ")
 ;;1877
 ;;21,"00440-7675-99 ")
 ;;1878
 ;;21,"00440-7676-14 ")
 ;;2176
 ;;21,"00440-7676-30 ")
 ;;2177
 ;;21,"00440-7676-45 ")
 ;;2178
 ;;21,"00440-7676-90 ")
 ;;2179
 ;;21,"00440-7677-90 ")
 ;;2433
 ;;21,"00440-7682-30 ")
 ;;330
 ;;21,"00440-7683-30 ")
 ;;404
 ;;21,"00440-7683-60 ")
 ;;405
 ;;21,"00440-7684-30 ")
 ;;490
 ;;21,"00440-8072-06 ")
 ;;2875
 ;;21,"00440-8270-06 ")
 ;;2846
 ;;21,"00440-8272-06 ")
 ;;2876
 ;;21,"00440-8567-30 ")
 ;;3098
 ;;21,"00440-8567-60 ")
 ;;3099
 ;;21,"00440-8567-90 ")
 ;;3100
 ;;21,"00440-8568-30 ")
 ;;3116
 ;;21,"00440-8568-60 ")
 ;;3117
 ;;21,"00440-8568-90 ")
 ;;3118
 ;;21,"00440-8569-30 ")
 ;;3134
 ;;21,"00440-8569-60 ")
 ;;3135
 ;;21,"00440-8569-90 ")
 ;;3136
 ;;21,"00490-0067-00 ")
 ;;256
 ;;21,"00490-0067-30 ")
 ;;257
 ;;21,"00490-0067-60 ")
 ;;258
 ;;21,"00490-0067-90 ")
 ;;259
 ;;21,"00490-7030-00 ")
 ;;280
 ;;21,"00490-7030-30 ")
 ;;281
 ;;21,"00490-7030-60 ")
 ;;282
 ;;21,"00490-7030-90 ")
 ;;283
 ;;21,"00574-0110-01 ")
 ;;2784
 ;;21,"00574-0112-15 ")
 ;;2768
 ;;21,"00574-0133-01 ")
 ;;565
 ;;21,"00574-0134-01 ")
 ;;546
 ;;21,"00574-0135-01 ")
 ;;553
 ;;21,"00591-0405-01 ")
 ;;2081
 ;;21,"00591-0405-05 ")
 ;;2082
 ;;21,"00591-0406-01 ")
 ;;2610
 ;;21,"00591-0406-10 ")
 ;;2611
 ;;21,"00591-0407-01 ")
 ;;1879
 ;;21,"00591-0407-10 ")
 ;;1880
 ;;21,"00591-0408-01 ")
 ;;2180
 ;;21,"00591-0408-10 ")
 ;;2181
 ;;21,"00591-0409-01 ")
 ;;2434
 ;;21,"00591-0409-05 ")
 ;;2435
 ;;21,"00591-0409-75 ")
 ;;2436
 ;;21,"00591-0668-01 ")
 ;;1327
 ;;21,"00591-0668-05 ")
 ;;1328
 ;;21,"00591-0669-01 ")
 ;;1542
 ;;21,"00591-0669-05 ")
 ;;1543
 ;;21,"00591-0670-01 ")
 ;;1180
 ;;21,"00591-0670-05 ")
 ;;1181
 ;;21,"00591-0671-01 ")
 ;;1408
 ;;21,"00591-0671-05 ")
 ;;1409
 ;;21,"00591-0860-01 ")
 ;;331
 ;;21,"00591-0860-05 ")
 ;;332
 ;;21,"00591-0861-01 ")
 ;;406
 ;;21,"00591-0861-05 ")
 ;;407
 ;;21,"00591-0862-01 ")
 ;;491
 ;;21,"00591-0862-05 ")
 ;;492
 ;;21,"00591-0885-01 ")
 ;;2374
 ;;21,"00591-3757-01 ")
 ;;45
 ;;21,"00591-3758-01 ")
 ;;70
 ;;21,"00591-3758-05 ")
 ;;71
 ;;21,"00591-3759-01 ")
 ;;104
 ;;21,"00591-3759-05 ")
 ;;105
 ;;21,"00591-3760-01 ")
 ;;19
 ;;21,"00591-3760-05 ")
 ;;20
 ;;21,"00597-0039-28 ")
 ;;3803
 ;;21,"00597-0039-37 ")
 ;;3804
 ;;21,"00597-0040-28 ")
 ;;3806
 ;;21,"00597-0040-37 ")
 ;;3807
 ;;21,"00597-0041-28 ")
 ;;3816
 ;;21,"00597-0041-37 ")
 ;;3817
 ;;21,"00597-0042-28 ")
 ;;3403
 ;;21,"00597-0042-37 ")
 ;;3404
 ;;21,"00597-0043-28 ")
 ;;3389
 ;;21,"00597-0043-37 ")
 ;;3390
 ;;21,"00597-0044-28 ")
 ;;3394
 ;;21,"00597-0044-37 ")
 ;;3395
 ;;21,"00597-0124-37 ")
 ;;3191
 ;;21,"00597-0125-37 ")
 ;;3190
 ;;21,"00597-0126-37 ")
 ;;3193
 ;;21,"00597-0127-37 ")
 ;;3192
 ;;21,"00603-4209-21 ")
 ;;2135
 ;;21,"00603-4209-28 ")
 ;;2136
 ;;21,"00603-4210-02 ")
 ;;2755
 ;;21,"00603-4210-16 ")
 ;;2756
 ;;21,"00603-4210-21 ")
 ;;2757
 ;;21,"00603-4210-28 ")
 ;;2758
 ;;21,"00603-4210-32 ")
 ;;2759
 ;;21,"00603-4210-60 ")
 ;;2760
 ;;21,"00603-4211-02 ")
 ;;2047
 ;;21,"00603-4211-21 ")
 ;;2048
 ;;21,"00603-4211-28 ")
 ;;2049
 ;;21,"00603-4211-32 ")
 ;;2050
 ;;21,"00603-4211-34 ")
 ;;2051
 ;;21,"00603-4211-60 ")
 ;;2052
 ;;21,"00603-4212-02 ")
 ;;2340
 ;;21,"00603-4212-21 ")
 ;;2341
 ;;21,"00603-4212-28 ")
 ;;2342
 ;;21,"00603-4212-32 ")
 ;;2343
 ;;21,"00603-4212-34 ")
 ;;2344
 ;;21,"00603-4212-60 ")
 ;;2345
 ;;21,"00603-4214-02 ")
 ;;2561
 ;;21,"00603-4214-21 ")
 ;;2562
 ;;21,"00603-4214-28 ")
 ;;2563
 ;;21,"00603-4214-30 ")
 ;;2564
 ;;21,"00603-4214-32 ")
 ;;2565
 ;;21,"00603-4214-60 ")
 ;;2566
 ;;21,"00615-4519-53 ")
 ;;892
 ;;21,"00615-4519-63 ")
 ;;893
 ;;21,"00615-4520-53 ")
 ;;963
 ;;21,"00615-4520-63 ")
 ;;964
 ;;21,"00615-4521-53 ")
 ;;1078
 ;;21,"00615-4521-63 ")
 ;;1079
 ;;21,"00615-4590-53 ")
 ;;1544
 ;;21,"00615-4590-63 ")
 ;;1545
 ;;21,"00615-4591-53 ")
 ;;1182
 ;;21,"00615-4591-63 ")
 ;;1183
 ;;21,"00781-1176-01 ")
 ;;408
 ;;21,"00781-1178-01 ")
 ;;493
 ;;21,"00781-1229-01 ")
 ;;1329
 ;;21,"00781-1229-10 ")
 ;;1330
 ;;21,"00781-1229-13 ")
 ;;1331
 ;;21,"00781-1231-01 ")
 ;;1546
 ;;21,"00781-1231-10 ")
 ;;1547
 ;;21,"00781-1231-13 ")
 ;;1548
 ;;21,"00781-1232-01 ")
 ;;1184
 ;;21,"00781-1232-10 ")
 ;;1185
 ;;21,"00781-1232-13 ")
 ;;1186
 ;;21,"00781-1233-01 ")
 ;;1410
 ;;21,"00781-1233-10 ")
 ;;1411
 ;;21,"00781-1665-01 ")
 ;;2612
 ;;21,"00781-1665-92 ")
 ;;2761
 ;;21,"00781-1666-01 ")
 ;;1881
 ;;21,"00781-1666-92 ")
 ;;2053
 ;;21,"00781-1667-01 ")
 ;;2182
 ;;21,"00781-1667-92 ")
 ;;2346
 ;;21,"00781-1668-01 ")
 ;;2437
 ;;21,"00781-1668-92 ")
 ;;2567
 ;;21,"00781-1669-01 ")
 ;;2083
 ;;21,"00781-1673-01 ")
 ;;2375
 ;;21,"00781-1828-01 ")
 ;;894
 ;;21,"00781-1828-10 ")
 ;;895
 ;;21,"00781-1829-01 ")
 ;;965
 ;;21,"00781-1829-10 ")
 ;;966
 ;;21,"00781-1838-01 ")
 ;;1080
 ;;21,"00781-1838-10 ")
 ;;1081
 ;;21,"00781-1839-01 ")
 ;;852
 ;;21,"00781-1848-01 ")
 ;;333
 ;;21,"00781-1891-01 ")
 ;;819
 ;;21,"00781-1892-01 ")
 ;;609
 ;;21,"00781-1893-01 ")
 ;;682
 ;;21,"00781-1894-01 ")
 ;;757
 ;;21,"00781-2126-01 ")
 ;;2923
 ;;21,"00781-2127-01 ")
 ;;2998
 ;;21,"00781-2127-05 ")
 ;;2999
 ;;21,"00781-2128-01 ")
 ;;3042
 ;;21,"00781-2128-05 ")
 ;;3043
 ;;21,"00781-2129-01 ")
 ;;2947
 ;;21,"00781-2129-05 ")
 ;;2948
 ;;21,"00781-2271-01 ")
 ;;40
 ;;21,"00781-2271-64 ")
 ;;46
 ;;21,"00781-2272-01 ")
 ;;54
 ;;21,"00781-2272-10 ")
 ;;55
 ;;21,"00781-2272-64 ")
 ;;72
 ;;21,"00781-2273-01 ")
 ;;85
 ;;21,"00781-2273-10 ")
 ;;86
 ;;21,"00781-2273-64 ")
 ;;106
 ;;21,"00781-2274-01 ")
 ;;5
 ;;21,"00781-2274-10 ")
 ;;6
 ;;21,"00781-2274-64 ")
 ;;21
 ;;21,"00781-5083-10 ")
 ;;1668
 ;;21,"00781-5083-92 ")
 ;;1669
 ;;21,"00781-5084-10 ")
 ;;1721
 ;;21,"00781-5084-92 ")
 ;;1722
 ;;21,"00781-5085-92 ")
 ;;1796
 ;;21,"00781-5131-01 ")
 ;;215
 ;;21,"00781-5132-01 ")
 ;;153
 ;;21,"00781-5133-01 ")
 ;;173
 ;;21,"00781-5134-01 ")
 ;;196
 ;;21,"00781-5206-31 ")
 ;;3336
 ;;21,"00781-5207-31 ")
 ;;3291
 ;;21,"00781-5320-01 ")
 ;;3101
 ;;21,"00781-5321-01 ")
 ;;3119
 ;;21,"00781-5322-01 ")
 ;;3137
 ;;21,"00781-5441-01 ")
 ;;1332
 ;;21,"00781-5441-10 ")
 ;;1333
 ;;21,"00781-5442-01 ")
 ;;1549
 ;;21,"00781-5442-10 ")
 ;;1550
 ;;21,"00781-5443-01 ")
 ;;1187
 ;;21,"00781-5443-10 ")
 ;;1188
 ;;21,"00781-5444-01 ")
 ;;1412
 ;;21,"00781-5444-10 ")
 ;;1413
 ;;21,"00781-5701-31 ")
 ;;3726
 ;;21,"00781-5701-92 ")
 ;;3727
 ;;21,"00781-5702-31 ")
 ;;3612
 ;;21,"00781-5702-92 ")
 ;;3613
 ;;21,"00781-5805-10 ")
 ;;3672
 ;;21,"00781-5805-92 ")
 ;;3673
 ;;21,"00781-5806-10 ")
 ;;3728
 ;;21,"00781-5806-31 ")
 ;;3729
 ;;21,"00781-5806-92 ")
 ;;3730
 ;;21,"00781-5807-10 ")
 ;;3614
 ;;21,"00781-5807-31 ")
 ;;3615
 ;;21,"00781-5807-92 ")
 ;;3616
 ;;21,"00781-5816-10 ")
 ;;3337
 ;;21,"00781-5816-31 ")
 ;;3338
 ;;21,"00781-5816-92 ")
 ;;3339
 ;;21,"00781-5817-10 ")
 ;;3254
 ;;21,"00781-5817-31 ")
 ;;3255
 ;;21,"00781-5817-92 ")
 ;;3256
 ;;21,"00781-5818-10 ")
 ;;3292
 ;;21,"00781-5818-31 ")
 ;;3293
 ;;21,"00781-5818-92 ")
 ;;3294
 ;;21,"00904-5045-60 ")
 ;;896
 ;;21,"00904-5045-61 ")
 ;;897
 ;;21,"00904-5045-80 ")
 ;;898
 ;;21,"00904-5046-60 ")
 ;;967
 ;;21,"00904-5046-61 ")
 ;;968
 ;;21,"00904-5046-80 ")
 ;;969
 ;;21,"00904-5047-60 ")
 ;;1082
 ;;21,"00904-5047-61 ")
 ;;1083
 ;;21,"00904-5047-80 ")
 ;;1084
 ;;21,"00904-5048-60 ")
 ;;853
 ;;21,"00904-5501-60 ")
 ;;1334
 ;;21,"00904-5502-60 ")
 ;;1551
 ;;21,"00904-5502-61 ")
 ;;1552
 ;;21,"00904-5502-80 ")
 ;;1553
 ;;21,"00904-5503-60 ")
 ;;1189
 ;;21,"00904-5503-80 ")
 ;;1190
 ;;21,"00904-5504-60 ")
 ;;1414
 ;;21,"00904-5504-80 ")
 ;;1415
 ;;21,"00904-5609-60 ")
 ;;1335
 ;;21,"00904-5609-61 ")
 ;;1336
 ;;21,"00904-5610-60 ")
 ;;1191
 ;;21,"00904-5610-61 ")
 ;;1192
 ;;21,"00904-5610-80 ")
 ;;1193
 ;;21,"00904-5611-60 ")
 ;;1416
 ;;21,"00904-5611-61 ")
 ;;1417
 ;;21,"00904-5611-80 ")
 ;;1418
 ;;21,"00904-5637-61 ")
 ;;2084
 ;;21,"00904-5638-43 ")
 ;;2613
 ;;21,"00904-5638-46 ")
 ;;2614
 ;;21,"00904-5638-61 ")
 ;;2615
 ;;21,"00904-5638-89 ")
 ;;2616
 ;;21,"00904-5639-43 ")
 ;;1882
 ;;21,"00904-5639-46 ")
 ;;1883
 ;;21,"00904-5639-48 ")
 ;;1884
 ;;21,"00904-5639-61 ")
 ;;1885
 ;;21,"00904-5639-89 ")
 ;;1886
 ;;21,"00904-5639-93 ")
 ;;1887
 ;;21,"00904-5640-43 ")
 ;;2183
 ;;21,"00904-5640-46 ")
 ;;2184
 ;;21,"00904-5640-48 ")
 ;;2185
 ;;21,"00904-5640-61 ")
 ;;2186
 ;;21,"00904-5640-89 ")
 ;;2187
 ;;21,"00904-5640-93 ")
 ;;2188
 ;;21,"00904-5641-61 ")
 ;;2376
 ;;21,"00904-5642-43 ")
 ;;2438
 ;;21,"00904-5642-46 ")
 ;;2439
 ;;21,"00904-5642-48 ")
 ;;2440
 ;;21,"00904-5642-52 ")
 ;;2441
 ;;21,"00904-5642-61 ")
 ;;2442
 ;;21,"00904-5642-89 ")
 ;;2443
 ;;21,"00904-5642-93 ")
 ;;2444
 ;;21,"00904-5701-61 ")
 ;;1554
 ;;21,"00904-5757-89 ")
 ;;409
 ;;21,"00904-5778-89 ")
 ;;2085
 ;;21,"00904-5808-43 ")
 ;;1888
 ;;21,"00904-5808-46 ")
 ;;1889
 ;;21,"00904-5808-48 ")
 ;;1890
 ;;21,"00904-5808-61 ")
 ;;1891
 ;;21,"00904-5808-80 ")
 ;;1892
 ;;21,"00904-5808-89 ")
 ;;1893
 ;;21,"00904-5808-93 ")
 ;;1894
 ;;21,"00904-5809-43 ")
 ;;2189
 ;;21,"00904-5809-46 ")
 ;;2190
 ;;21,"00904-5809-48 ")
 ;;2191
 ;;21,"00904-5809-61 ")
 ;;2192
 ;;21,"00904-5809-80 ")
 ;;2193
 ;;21,"00904-5809-89 ")
 ;;2194
 ;;21,"00904-5809-93 ")
 ;;2195
 ;;21,"00904-5810-43 ")
 ;;2445
 ;;21,"00904-5810-46 ")
 ;;2446
 ;;21,"00904-5810-48 ")
 ;;2447
 ;;21,"00904-5810-52 ")
 ;;2448
 ;;21,"00904-5810-61 ")
 ;;2449
 ;;21,"00904-5810-80 ")
 ;;2450
 ;;21,"00904-5810-89 ")
 ;;2451
 ;;21,"00904-5810-93 ")
 ;;2452
 ;;21,"00904-5811-43 ")
 ;;2617
 ;;21,"00904-5811-46 ")
 ;;2618
 ;;21,"00904-5811-61 ")
 ;;2619
 ;;21,"00904-5811-80 ")
 ;;2620
 ;;21,"00904-5811-89 ")
 ;;2621
 ;;21,"00904-5812-40 ")
 ;;2086
 ;;21,"00904-5812-89 ")
 ;;2087
 ;;21,"00904-6190-40 ")
 ;;659
 ;;21,"00904-6191-40 ")
 ;;735
 ;;21,"00904-6192-40 ")
 ;;800
 ;;21,"12280-0005-90 ")
 ;;3654
 ;;21,"12280-0008-00 ")
 ;;3828
 ;;21,"12280-0008-90 ")
 ;;3829
 ;;21,"12280-0009-90 ")
 ;;3442
 ;;21,"12280-0033-00 ")
 ;;758
 ;;21,"12280-0059-90 ")
 ;;2815