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

BGP13X8.m

Go to the documentation of this file.
BGP13X8 ; 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,"58016-0579-60 ")
 ;;1605
 ;;21,"58016-0580-00 ")
 ;;1247
 ;;21,"58016-0580-20 ")
 ;;1248
 ;;21,"58016-0580-30 ")
 ;;1249
 ;;21,"58016-0580-60 ")
 ;;1250
 ;;21,"58016-0581-00 ")
 ;;1465
 ;;21,"58016-0581-20 ")
 ;;1466
 ;;21,"58016-0581-30 ")
 ;;1467
 ;;21,"58016-0581-60 ")
 ;;1468
 ;;21,"58016-0646-00 ")
 ;;2503
 ;;21,"58016-0646-30 ")
 ;;2504
 ;;21,"58016-0646-60 ")
 ;;2505
 ;;21,"58016-0646-90 ")
 ;;2506
 ;;21,"58016-0685-00 ")
 ;;707
 ;;21,"58016-0685-10 ")
 ;;708
 ;;21,"58016-0685-30 ")
 ;;709
 ;;21,"58016-0685-60 ")
 ;;710
 ;;21,"58016-0685-90 ")
 ;;711
 ;;21,"58016-0686-00 ")
 ;;779
 ;;21,"58016-0686-10 ")
 ;;780
 ;;21,"58016-0686-30 ")
 ;;781
 ;;21,"58016-0686-60 ")
 ;;782
 ;;21,"58016-0686-90 ")
 ;;783
 ;;21,"58016-0760-00 ")
 ;;2263
 ;;21,"58016-0760-30 ")
 ;;2264
 ;;21,"58016-0760-60 ")
 ;;2265
 ;;21,"58016-0760-90 ")
 ;;2266
 ;;21,"58016-0917-00 ")
 ;;2677
 ;;21,"58016-0917-30 ")
 ;;2678
 ;;21,"58016-0917-60 ")
 ;;2679
 ;;21,"58016-0917-90 ")
 ;;2680
 ;;21,"58016-0956-00 ")
 ;;2681
 ;;21,"58016-0956-30 ")
 ;;2682
 ;;21,"58016-0956-60 ")
 ;;2683
 ;;21,"58016-0956-90 ")
 ;;2684
 ;;21,"58016-0963-00 ")
 ;;1965
 ;;21,"58016-0963-30 ")
 ;;1966
 ;;21,"58016-0963-60 ")
 ;;1967
 ;;21,"58016-0963-90 ")
 ;;1968
 ;;21,"58016-0998-00 ")
 ;;2267
 ;;21,"58016-0998-30 ")
 ;;2268
 ;;21,"58016-0998-60 ")
 ;;2269
 ;;21,"58016-0998-90 ")
 ;;2270
 ;;21,"58016-2638-14 ")
 ;;2685
 ;;21,"58016-2638-21 ")
 ;;2686
 ;;21,"58016-2638-30 ")
 ;;2687
 ;;21,"58016-2638-60 ")
 ;;2688
 ;;21,"58016-2638-90 ")
 ;;2689
 ;;21,"58016-4631-01 ")
 ;;3402
 ;;21,"58177-0341-04 ")
 ;;828
 ;;21,"58177-0342-04 ")
 ;;639
 ;;21,"58177-0342-08 ")
 ;;640
 ;;21,"58177-0343-04 ")
 ;;712
 ;;21,"58177-0343-08 ")
 ;;713
 ;;21,"58177-0344-04 ")
 ;;784
 ;;21,"58177-0344-08 ")
 ;;785
 ;;21,"58864-0000-63 ")
 ;;2271
 ;;21,"58864-0006-30 ")
 ;;2272
 ;;21,"58864-0066-28 ")
 ;;1014
 ;;21,"58864-0104-30 ")
 ;;1681
 ;;21,"58864-0510-15 ")
 ;;1806
 ;;21,"58864-0603-15 ")
 ;;1969
 ;;21,"58864-0603-30 ")
 ;;1970
 ;;21,"58864-0603-90 ")
 ;;1971
 ;;21,"58864-0605-30 ")
 ;;3847
 ;;21,"58864-0618-15 ")
 ;;2507
 ;;21,"58864-0618-30 ")
 ;;2508
 ;;21,"58864-0654-30 ")
 ;;1972
 ;;21,"58864-0659-30 ")
 ;;3284
 ;;21,"58864-0661-30 ")
 ;;548
 ;;21,"58864-0662-30 ")
 ;;3711
 ;;21,"58864-0667-30 ")
 ;;1731
 ;;21,"58864-0674-30 ")
 ;;3065
 ;;21,"58864-0681-30 ")
 ;;3900
 ;;21,"58864-0726-15 ")
 ;;3556
 ;;21,"58864-0726-30 ")
 ;;3557
 ;;21,"58864-0750-30 ")
 ;;2392
 ;;21,"58864-0753-30 ")
 ;;2690
 ;;21,"58864-0753-90 ")
 ;;2691
 ;;21,"58864-0754-30 ")
 ;;1606
 ;;21,"58864-0755-30 ")
 ;;1251
 ;;21,"58864-0762-30 ")
 ;;1469
 ;;21,"58864-0771-15 ")
 ;;3581
 ;;21,"58864-0774-30 ")
 ;;1682
 ;;21,"58864-0774-90 ")
 ;;1683
 ;;21,"58864-0787-30 ")
 ;;441
 ;;21,"58864-0807-30 ")
 ;;3663
 ;;21,"58864-0817-90 ")
 ;;3558
 ;;21,"58864-0838-30 ")
 ;;560
 ;;21,"58864-0847-30 ")
 ;;2971
 ;;21,"58864-0859-30 ")
 ;;2830
 ;;21,"58864-0863-30 ")
 ;;2888
 ;;21,"58864-0869-30 ")
 ;;2861
 ;;21,"59762-0011-01 ")
 ;;3351
 ;;21,"59762-0011-02 ")
 ;;3352
 ;;21,"59762-0012-01 ")
 ;;3264
 ;;21,"59762-0012-02 ")
 ;;3265
 ;;21,"59762-0015-01 ")
 ;;3304
 ;;21,"59762-0015-02 ")
 ;;3305
 ;;21,"59762-0070-01 ")
 ;;3682
 ;;21,"59762-0071-01 ")
 ;;3744
 ;;21,"59762-0071-02 ")
 ;;3745
 ;;21,"59762-0072-01 ")
 ;;3629
 ;;21,"59762-0072-02 ")
 ;;3630
 ;;21,"59762-0220-01 ")
 ;;583
 ;;21,"59762-0222-01 ")
 ;;575
 ;;21,"59762-0223-01 ")
 ;;592
 ;;21,"59762-2140-01 ")
 ;;3104
 ;;21,"59762-2140-06 ")
 ;;3105
 ;;21,"59762-2141-01 ")
 ;;3122
 ;;21,"59762-2141-06 ")
 ;;3123
 ;;21,"59762-2142-01 ")
 ;;3144
 ;;21,"59762-2142-06 ")
 ;;3145
 ;;21,"59762-2270-01 ")
 ;;2107
 ;;21,"59762-2270-03 ")
 ;;2108
 ;;21,"59762-2270-07 ")
 ;;2109
 ;;21,"59762-2271-01 ")
 ;;2692
 ;;21,"59762-2271-03 ")
 ;;2693
 ;;21,"59762-2271-07 ")
 ;;2694
 ;;21,"59762-2272-01 ")
 ;;1973
 ;;21,"59762-2272-03 ")
 ;;1974
 ;;21,"59762-2272-07 ")
 ;;1975
 ;;21,"59762-2273-01 ")
 ;;2273
 ;;21,"59762-2273-03 ")
 ;;2274
 ;;21,"59762-2273-07 ")
 ;;2275
 ;;21,"59762-2274-01 ")
 ;;2393
 ;;21,"59762-2274-03 ")
 ;;2394
 ;;21,"59762-2274-07 ")
 ;;2395
 ;;21,"59762-2275-01 ")
 ;;2571
 ;;21,"59762-2275-03 ")
 ;;2572
 ;;21,"59762-2275-07 ")
 ;;2573
 ;;21,"59762-3146-01 ")
 ;;661
 ;;21,"59762-3146-02 ")
 ;;662
 ;;21,"59762-3147-01 ")
 ;;736
 ;;21,"59762-3147-02 ")
 ;;737
 ;;21,"59762-3148-01 ")
 ;;801
 ;;21,"59762-3148-02 ")
 ;;802
 ;;21,"59762-3293-01 ")
 ;;378
 ;;21,"59762-3293-02 ")
 ;;379
 ;;21,"59762-3293-03 ")
 ;;380
 ;;21,"59762-3293-04 ")
 ;;381
 ;;21,"59762-3294-01 ")
 ;;465
 ;;21,"59762-3294-02 ")
 ;;466
 ;;21,"59762-3294-03 ")
 ;;467
 ;;21,"59762-3294-04 ")
 ;;468
 ;;21,"59762-3295-01 ")
 ;;535
 ;;21,"59762-3295-02 ")
 ;;536
 ;;21,"59762-3295-03 ")
 ;;537
 ;;21,"59762-3295-04 ")
 ;;538
 ;;21,"59762-5019-01 ")
 ;;2914
 ;;21,"59762-5020-01 ")
 ;;2831
 ;;21,"59762-5021-01 ")
 ;;2862
 ;;21,"59762-5022-01 ")
 ;;2889
 ;;21,"59762-5250-01 ")
 ;;303
 ;;21,"59762-5250-04 ")
 ;;304
 ;;21,"59762-5251-01 ")
 ;;312
 ;;21,"59762-5251-04 ")
 ;;313
 ;;21,"59772-5160-05 ")
 ;;225
 ;;21,"59772-5161-05 ")
 ;;232
 ;;21,"59772-5162-05 ")
 ;;238
 ;;21,"59772-5163-05 ")
 ;;248
 ;;21,"59772-7045-01 ")
 ;;922
 ;;21,"59772-7045-03 ")
 ;;923
 ;;21,"59772-7046-01 ")
 ;;1015
 ;;21,"59772-7046-03 ")
 ;;1016
 ;;21,"59772-7047-01 ")
 ;;1123
 ;;21,"59772-7047-03 ")
 ;;1124
 ;;21,"59772-7048-01 ")
 ;;862
 ;;21,"59930-1655-01 ")
 ;;924
 ;;21,"59930-1655-02 ")
 ;;925
 ;;21,"59930-1655-03 ")
 ;;926
 ;;21,"59930-1656-01 ")
 ;;1017
 ;;21,"59930-1656-02 ")
 ;;1018
 ;;21,"59930-1656-03 ")
 ;;1019
 ;;21,"59930-1657-01 ")
 ;;1125
 ;;21,"59930-1657-02 ")
 ;;1126
 ;;21,"59930-1657-03 ")
 ;;1127
 ;;21,"59930-1658-01 ")
 ;;863
 ;;21,"60346-0534-30 ")
 ;;1470
 ;;21,"60346-0595-30 ")
 ;;2509
 ;;21,"60346-0612-30 ")
 ;;1607
 ;;21,"60346-0612-90 ")
 ;;1608
 ;;21,"60346-0618-30 ")
 ;;3066
 ;;21,"60346-0778-30 ")
 ;;1020
 ;;21,"60346-0778-90 ")
 ;;1021
 ;;21,"60346-0868-30 ")
 ;;1128
 ;;21,"60346-0871-03 ")
 ;;1976
 ;;21,"60346-0871-30 ")
 ;;1977
 ;;21,"60346-0901-30 ")
 ;;1252
 ;;21,"60346-0972-08 ")
 ;;1978
 ;;21,"60346-0972-30 ")
 ;;1979
 ;;21,"60346-0984-30 ")
 ;;3015
 ;;21,"60346-0984-60 ")
 ;;3016
 ;;21,"60429-0029-90 ")
 ;;927
 ;;21,"60429-0030-12 ")
 ;;1022
 ;;21,"60429-0030-27 ")
 ;;1023
 ;;21,"60429-0030-60 ")
 ;;1024
 ;;21,"60429-0030-90 ")
 ;;1025
 ;;21,"60429-0031-12 ")
 ;;1129
 ;;21,"60429-0031-27 ")
 ;;1130
 ;;21,"60429-0031-30 ")
 ;;1131
 ;;21,"60429-0031-60 ")
 ;;1132
 ;;21,"60429-0031-90 ")
 ;;1133
 ;;21,"60429-0038-01 ")
 ;;2939
 ;;21,"60429-0039-01 ")
 ;;3032
 ;;21,"60429-0039-10 ")
 ;;3033
 ;;21,"60429-0040-01 ")
 ;;3084
 ;;21,"60429-0040-10 ")
 ;;3085
 ;;21,"60429-0041-01 ")
 ;;2988
 ;;21,"60429-0041-10 ")
 ;;2989
 ;;21,"60429-0071-01 ")
 ;;1380
 ;;21,"60429-0071-05 ")
 ;;1381
 ;;21,"60429-0071-10 ")
 ;;1382
 ;;21,"60429-0071-27 ")
 ;;1383
 ;;21,"60429-0071-30 ")
 ;;1384
 ;;21,"60429-0071-60 ")
 ;;1385
 ;;21,"60429-0071-90 ")
 ;;1386
 ;;21,"60429-0072-01 ")
 ;;1646
 ;;21,"60429-0072-05 ")
 ;;1647
 ;;21,"60429-0072-10 ")
 ;;1648
 ;;21,"60429-0072-27 ")
 ;;1649
 ;;21,"60429-0072-30 ")
 ;;1650
 ;;21,"60429-0072-60 ")
 ;;1651
 ;;21,"60429-0072-90 ")
 ;;1652
 ;;21,"60429-0073-01 ")
 ;;1295
 ;;21,"60429-0073-05 ")
 ;;1296
 ;;21,"60429-0073-10 ")
 ;;1297
 ;;21,"60429-0073-27 ")
 ;;1298
 ;;21,"60429-0073-30 ")
 ;;1299
 ;;21,"60429-0073-60 ")
 ;;1300
 ;;21,"60429-0073-90 ")
 ;;1301
 ;;21,"60429-0074-01 ")
 ;;1506
 ;;21,"60429-0074-05 ")
 ;;1507
 ;;21,"60429-0074-10 ")
 ;;1508
 ;;21,"60429-0074-27 ")
 ;;1509
 ;;21,"60429-0074-30 ")
 ;;1510
 ;;21,"60429-0074-60 ")
 ;;1511
 ;;21,"60429-0074-90 ")
 ;;1512
 ;;21,"60429-0728-01 ")
 ;;2110
 ;;21,"60429-0728-10 ")
 ;;2111
 ;;21,"60429-0728-30 ")
 ;;2112
 ;;21,"60429-0728-90 ")
 ;;2113
 ;;21,"60429-0729-01 ")
 ;;2695
 ;;21,"60429-0729-10 ")
 ;;2696
 ;;21,"60429-0729-30 ")
 ;;2697
 ;;21,"60429-0729-45 ")
 ;;2698
 ;;21,"60429-0729-90 ")
 ;;2699
 ;;21,"60429-0730-01 ")
 ;;1980
 ;;21,"60429-0730-10 ")
 ;;1981
 ;;21,"60429-0730-30 ")
 ;;1982
 ;;21,"60429-0730-45 ")
 ;;1983
 ;;21,"60429-0730-90 ")
 ;;1984
 ;;21,"60429-0731-01 ")
 ;;2276
 ;;21,"60429-0731-10 ")
 ;;2277
 ;;21,"60429-0731-30 ")
 ;;2278
 ;;21,"60429-0731-45 ")
 ;;2279
 ;;21,"60429-0731-90 ")
 ;;2280
 ;;21,"60429-0732-10 ")
 ;;2396
 ;;21,"60429-0732-30 ")
 ;;2397
 ;;21,"60429-0732-90 ")
 ;;2398
 ;;21,"60429-0733-01 ")
 ;;2510
 ;;21,"60429-0733-10 ")
 ;;2511
 ;;21,"60429-0733-30 ")
 ;;2512
 ;;21,"60429-0733-45 ")
 ;;2513
 ;;21,"60429-0733-90 ")
 ;;2514
 ;;21,"60429-0755-10 ")
 ;;1684
 ;;21,"60429-0755-45 ")
 ;;1685
 ;;21,"60429-0755-90 ")
 ;;1686
 ;;21,"60429-0756-10 ")
 ;;1732
 ;;21,"60429-0756-18 ")
 ;;1733
 ;;21,"60429-0756-45 ")
 ;;1734
 ;;21,"60429-0756-90 ")
 ;;1735
 ;;21,"60429-0757-10 ")
 ;;1807
 ;;21,"60429-0757-18 ")
 ;;1808
 ;;21,"60429-0757-45 ")
 ;;1809
 ;;21,"60429-0757-90 ")
 ;;1810
 ;;21,"60505-0003-06 ")
 ;;928
 ;;21,"60505-0003-09 ")
 ;;929
 ;;21,"60505-0004-06 ")
 ;;1026
 ;;21,"60505-0004-09 ")
 ;;1027
 ;;21,"60505-0005-06 ")
 ;;1134
 ;;21,"60505-0005-09 ")
 ;;1135
 ;;21,"60505-0006-06 ")
 ;;864
 ;;21,"60505-0006-09 ")
 ;;865
 ;;21,"60505-0049-07 ")
 ;;1359
 ;;21,"60505-0049-09 ")
 ;;1360
 ;;21,"60505-0050-07 ")
 ;;1609
 ;;21,"60505-0050-09 ")
 ;;1610
 ;;21,"60505-0051-07 ")
 ;;1253
 ;;21,"60505-0051-09 ")
 ;;1254
 ;;21,"60505-0052-07 ")
 ;;1471
 ;;21,"60505-0052-09 ")
 ;;1472
 ;;21,"60505-0172-00 ")
 ;;2915
 ;;21,"60505-0172-01 ")
 ;;2916
 ;;21,"60505-0173-00 ")
 ;;2832
 ;;21,"60505-0173-01 ")
 ;;2833
 ;;21,"60505-0174-00 ")
 ;;2863
 ;;21,"60505-0174-01 ")
 ;;2864
 ;;21,"60505-0175-00 ")
 ;;2890
 ;;21,"60505-0175-01 ")
 ;;2891
 ;;21,"60505-0184-00 ")
 ;;2114
 ;;21,"60505-0184-01 ")
 ;;2115
 ;;21,"60505-0185-00 ")
 ;;2700
 ;;21,"60505-0185-01 ")
 ;;2701
 ;;21,"60505-0185-07 ")
 ;;2702
 ;;21,"60505-0185-09 ")
 ;;2703
 ;;21,"60505-0186-00 ")
 ;;1985
 ;;21,"60505-0186-01 ")
 ;;1986
 ;;21,"60505-0186-07 ")
 ;;1987
 ;;21,"60505-0186-09 ")
 ;;1988
 ;;21,"60505-0187-00 ")
 ;;2281
 ;;21,"60505-0187-01 ")
 ;;2282
 ;;21,"60505-0187-07 ")
 ;;2283
 ;;21,"60505-0187-09 ")
 ;;2284
 ;;21,"60505-0188-00 ")
 ;;2399
 ;;21,"60505-0188-01 ")
 ;;2400
 ;;21,"60505-0189-00 ")
 ;;2515
 ;;21,"60505-0189-01 ")
 ;;2516
 ;;21,"60505-0189-08 ")
 ;;2517
 ;;21,"60505-0189-09 ")
 ;;2518
 ;;21,"60505-0205-03 ")
 ;;358
 ;;21,"60505-0205-07 ")
 ;;359
 ;;21,"60505-0206-03 ")
 ;;442
 ;;21,"60505-0206-07 ")
 ;;443
 ;;21,"60505-0207-03 ")
 ;;515
 ;;21,"60505-0207-07 ")
 ;;516
 ;;21,"60505-0208-01 ")
 ;;294
 ;;21,"60505-0209-01 ")
 ;;273
 ;;21,"60505-0265-01 ")
 ;;829
 ;;21,"60505-0266-01 ")
 ;;641
 ;;21,"60505-0266-05 ")
 ;;642
 ;;21,"60505-0267-01 ")
 ;;714
 ;;21,"60505-0267-05 ")
 ;;715
 ;;21,"60505-0268-01 ")
 ;;786
 ;;21,"60505-0268-05 ")
 ;;787
 ;;21,"60505-0271-01 ")
 ;;2790
 ;;21,"60505-0272-01 ")
 ;;2778
 ;;21,"60505-2510-02 ")
 ;;1687
 ;;21,"60505-2510-04 ")
 ;;1688
 ;;21,"60505-2511-02 ")
 ;;1736
 ;;21,"60505-2511-04 ")
 ;;1737
 ;;21,"60505-2512-02 ")
 ;;1811
 ;;21,"60505-2512-08 ")
 ;;1812
 ;;21,"60505-2683-01 ")
 ;;2116
 ;;21,"60505-2684-01 ")
 ;;2704
 ;;21,"60505-2684-08 ")
 ;;2705
 ;;21,"60505-2684-09 ")
 ;;2706
 ;;21,"60505-2685-01 ")
 ;;1989
 ;;21,"60505-2685-08 ")
 ;;1990
 ;;21,"60505-2685-09 ")
 ;;1991
 ;;21,"60505-2686-01 ")
 ;;2285
 ;;21,"60505-2686-08 ")
 ;;2286
 ;;21,"60505-2686-09 ")
 ;;2287
 ;;21,"60505-2688-01 ")
 ;;2519
 ;;21,"60505-2688-08 ")
 ;;2520
 ;;21,"60505-2688-09 ")
 ;;2521
 ;;21,"60505-2689-01 ")
 ;;360
 ;;21,"60505-2690-01 ")
 ;;444
 ;;21,"60505-2691-01 ")
 ;;517
 ;;21,"60505-2875-01 ")
 ;;2932
 ;;21,"60505-2876-00 ")
 ;;3017
 ;;21,"60505-2876-01 ")
 ;;3018