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

BGP22B8.m

Go to the documentation of this file.
BGP22B8 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON NOV 21, 2011;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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-0686-30 ")
 ;;848
 ;;21,"58016-0686-60 ")
 ;;849
 ;;21,"58016-0686-90 ")
 ;;850
 ;;21,"58016-0760-00 ")
 ;;2386
 ;;21,"58016-0760-30 ")
 ;;2387
 ;;21,"58016-0760-60 ")
 ;;2388
 ;;21,"58016-0760-90 ")
 ;;2389
 ;;21,"58016-0917-00 ")
 ;;2807
 ;;21,"58016-0917-30 ")
 ;;2808
 ;;21,"58016-0917-60 ")
 ;;2809
 ;;21,"58016-0917-90 ")
 ;;2810
 ;;21,"58016-0956-00 ")
 ;;2811
 ;;21,"58016-0956-30 ")
 ;;2812
 ;;21,"58016-0956-60 ")
 ;;2813
 ;;21,"58016-0956-90 ")
 ;;2814
 ;;21,"58016-0963-00 ")
 ;;2072
 ;;21,"58016-0963-30 ")
 ;;2073
 ;;21,"58016-0963-60 ")
 ;;2074
 ;;21,"58016-0963-90 ")
 ;;2075
 ;;21,"58016-0998-00 ")
 ;;2390
 ;;21,"58016-0998-30 ")
 ;;2391
 ;;21,"58016-0998-60 ")
 ;;2392
 ;;21,"58016-0998-90 ")
 ;;2393
 ;;21,"58016-2638-14 ")
 ;;2815
 ;;21,"58016-2638-21 ")
 ;;2816
 ;;21,"58016-2638-30 ")
 ;;2817
 ;;21,"58016-2638-60 ")
 ;;2818
 ;;21,"58016-2638-90 ")
 ;;2819
 ;;21,"58016-4631-01 ")
 ;;3567
 ;;21,"58177-0341-04 ")
 ;;879
 ;;21,"58177-0342-04 ")
 ;;656
 ;;21,"58177-0342-08 ")
 ;;657
 ;;21,"58177-0343-04 ")
 ;;733
 ;;21,"58177-0343-08 ")
 ;;734
 ;;21,"58177-0344-04 ")
 ;;816
 ;;21,"58177-0344-08 ")
 ;;817
 ;;21,"58864-0000-63 ")
 ;;2394
 ;;21,"58864-0006-30 ")
 ;;2395
 ;;21,"58864-0066-28 ")
 ;;1098
 ;;21,"58864-0104-30 ")
 ;;1745
 ;;21,"58864-0510-15 ")
 ;;1866
 ;;21,"58864-0603-15 ")
 ;;2076
 ;;21,"58864-0603-30 ")
 ;;2077
 ;;21,"58864-0603-90 ")
 ;;2078
 ;;21,"58864-0605-30 ")
 ;;4048
 ;;21,"58864-0618-15 ")
 ;;2633
 ;;21,"58864-0618-30 ")
 ;;2634
 ;;21,"58864-0654-30 ")
 ;;2079
 ;;21,"58864-0659-30 ")
 ;;3458
 ;;21,"58864-0661-30 ")
 ;;594
 ;;21,"58864-0662-30 ")
 ;;3933
 ;;21,"58864-0667-30 ")
 ;;1797
 ;;21,"58864-0674-30 ")
 ;;3203
 ;;21,"58864-0681-30 ")
 ;;4107
 ;;21,"58864-0726-15 ")
 ;;3726
 ;;21,"58864-0726-30 ")
 ;;3727
 ;;21,"58864-0750-30 ")
 ;;2492
 ;;21,"58864-0753-30 ")
 ;;2820
 ;;21,"58864-0753-90 ")
 ;;2821
 ;;21,"58864-0754-30 ")
 ;;1688
 ;;21,"58864-0755-30 ")
 ;;1331
 ;;21,"58864-0762-30 ")
 ;;1550
 ;;21,"58864-0771-15 ")
 ;;3752
 ;;21,"58864-0774-30 ")
 ;;1734
 ;;21,"58864-0774-90 ")
 ;;1764
 ;;21,"58864-0787-30 ")
 ;;484
 ;;21,"58864-0807-30 ")
 ;;3865
 ;;21,"58864-0817-90 ")
 ;;3708
 ;;21,"58864-0838-30 ")
 ;;606
 ;;21,"58864-0847-30 ")
 ;;3097
 ;;21,"58864-0859-30 ")
 ;;2946
 ;;21,"58864-0863-30 ")
 ;;3004
 ;;21,"58864-0869-30 ")
 ;;2978
 ;;21,"59762-0011-01 ")
 ;;3512
 ;;21,"59762-0011-02 ")
 ;;3513
 ;;21,"59762-0012-01 ")
 ;;3414
 ;;21,"59762-0012-02 ")
 ;;3415
 ;;21,"59762-0015-01 ")
 ;;3459
 ;;21,"59762-0015-02 ")
 ;;3460
 ;;21,"59762-0070-01 ")
 ;;3866
 ;;21,"59762-0071-01 ")
 ;;3934
 ;;21,"59762-0071-02 ")
 ;;3935
 ;;21,"59762-0072-01 ")
 ;;3808
 ;;21,"59762-0072-02 ")
 ;;3809
 ;;21,"59762-0220-01 ")
 ;;628
 ;;21,"59762-0222-01 ")
 ;;620
 ;;21,"59762-0223-01 ")
 ;;637
 ;;21,"59762-2140-01 ")
 ;;3239
 ;;21,"59762-2140-06 ")
 ;;3240
 ;;21,"59762-2141-01 ")
 ;;3257
 ;;21,"59762-2141-06 ")
 ;;3258
 ;;21,"59762-2142-01 ")
 ;;3280
 ;;21,"59762-2142-06 ")
 ;;3281
 ;;21,"59762-2270-01 ")
 ;;2196
 ;;21,"59762-2270-03 ")
 ;;2197
 ;;21,"59762-2270-07 ")
 ;;2198
 ;;21,"59762-2271-01 ")
 ;;2822
 ;;21,"59762-2271-03 ")
 ;;2823
 ;;21,"59762-2271-07 ")
 ;;2824
 ;;21,"59762-2272-01 ")
 ;;2080
 ;;21,"59762-2272-03 ")
 ;;2081
 ;;21,"59762-2272-07 ")
 ;;2082
 ;;21,"59762-2273-01 ")
 ;;2396
 ;;21,"59762-2273-03 ")
 ;;2397
 ;;21,"59762-2273-07 ")
 ;;2398
 ;;21,"59762-2274-01 ")
 ;;2493
 ;;21,"59762-2274-03 ")
 ;;2494
 ;;21,"59762-2274-07 ")
 ;;2495
 ;;21,"59762-2275-01 ")
 ;;2635
 ;;21,"59762-2275-03 ")
 ;;2636
 ;;21,"59762-2275-07 ")
 ;;2637
 ;;21,"59762-3146-01 ")
 ;;698
 ;;21,"59762-3146-02 ")
 ;;699
 ;;21,"59762-3147-01 ")
 ;;778
 ;;21,"59762-3147-02 ")
 ;;779
 ;;21,"59762-3148-01 ")
 ;;851
 ;;21,"59762-3148-02 ")
 ;;852
 ;;21,"59762-3293-01 ")
 ;;395
 ;;21,"59762-3293-02 ")
 ;;396
 ;;21,"59762-3293-03 ")
 ;;397
 ;;21,"59762-3293-04 ")
 ;;398
 ;;21,"59762-3294-01 ")
 ;;485
 ;;21,"59762-3294-02 ")
 ;;486
 ;;21,"59762-3294-03 ")
 ;;487
 ;;21,"59762-3294-04 ")
 ;;488
 ;;21,"59762-3295-01 ")
 ;;567
 ;;21,"59762-3295-02 ")
 ;;568
 ;;21,"59762-3295-03 ")
 ;;569
 ;;21,"59762-3295-04 ")
 ;;570
 ;;21,"59762-5019-01 ")
 ;;3031
 ;;21,"59762-5020-01 ")
 ;;2947
 ;;21,"59762-5021-01 ")
 ;;2979
 ;;21,"59762-5022-01 ")
 ;;3005
 ;;21,"59762-5250-01 ")
 ;;329
 ;;21,"59762-5250-04 ")
 ;;330
 ;;21,"59762-5251-01 ")
 ;;338
 ;;21,"59762-5251-04 ")
 ;;339
 ;;21,"59772-5160-05 ")
 ;;251
 ;;21,"59772-5161-05 ")
 ;;257
 ;;21,"59772-5162-05 ")
 ;;263
 ;;21,"59772-5163-05 ")
 ;;271
 ;;21,"59772-7045-01 ")
 ;;961
 ;;21,"59772-7045-03 ")
 ;;959
 ;;21,"59772-7046-01 ")
 ;;1028
 ;;21,"59772-7046-03 ")
 ;;1029
 ;;21,"59772-7047-01 ")
 ;;1144
 ;;21,"59772-7047-03 ")
 ;;1145
 ;;21,"59772-7048-01 ")
 ;;913
 ;;21,"59930-1655-01 ")
 ;;951
 ;;21,"59930-1655-02 ")
 ;;952
 ;;21,"59930-1655-03 ")
 ;;953
 ;;21,"59930-1656-01 ")
 ;;1021
 ;;21,"59930-1656-02 ")
 ;;1022
 ;;21,"59930-1656-03 ")
 ;;1023
 ;;21,"59930-1657-01 ")
 ;;1137
 ;;21,"59930-1657-02 ")
 ;;1138
 ;;21,"59930-1657-03 ")
 ;;1139
 ;;21,"59930-1658-01 ")
 ;;911
 ;;21,"60346-0534-30 ")
 ;;1464
 ;;21,"60346-0595-30 ")
 ;;2513
 ;;21,"60346-0612-30 ")
 ;;1594
 ;;21,"60346-0612-90 ")
 ;;1595
 ;;21,"60346-0618-30 ")
 ;;3164
 ;;21,"60346-0778-30 ")
 ;;1011
 ;;21,"60346-0778-90 ")
 ;;1012
 ;;21,"60346-0868-30 ")
 ;;1127
 ;;21,"60346-0871-03 ")
 ;;1917
 ;;21,"60346-0871-30 ")
 ;;1918
 ;;21,"60346-0901-30 ")
 ;;1233
 ;;21,"60346-0972-08 ")
 ;;1919
 ;;21,"60346-0972-30 ")
 ;;1920
 ;;21,"60346-0984-30 ")
 ;;3116
 ;;21,"60346-0984-60 ")
 ;;3117
 ;;21,"60429-0029-01 ")
 ;;994
 ;;21,"60429-0029-10 ")
 ;;995
 ;;21,"60429-0029-90 ")
 ;;996
 ;;21,"60429-0030-01 ")
 ;;1099
 ;;21,"60429-0030-10 ")
 ;;1100
 ;;21,"60429-0030-12 ")
 ;;1101
 ;;21,"60429-0030-27 ")
 ;;1102
 ;;21,"60429-0030-60 ")
 ;;1103
 ;;21,"60429-0030-90 ")
 ;;1104
 ;;21,"60429-0031-01 ")
 ;;1201
 ;;21,"60429-0031-10 ")
 ;;1202
 ;;21,"60429-0031-12 ")
 ;;1203
 ;;21,"60429-0031-27 ")
 ;;1204
 ;;21,"60429-0031-30 ")
 ;;1205
 ;;21,"60429-0031-60 ")
 ;;1206
 ;;21,"60429-0031-90 ")
 ;;1207
 ;;21,"60429-0038-01 ")
 ;;3048
 ;;21,"60429-0039-01 ")
 ;;3148
 ;;21,"60429-0039-10 ")
 ;;3149
 ;;21,"60429-0040-01 ")
 ;;3204
 ;;21,"60429-0040-10 ")
 ;;3205
 ;;21,"60429-0041-01 ")
 ;;3098
 ;;21,"60429-0041-10 ")
 ;;3099
 ;;21,"60429-0044-01 ")
 ;;399
 ;;21,"60429-0044-10 ")
 ;;400
 ;;21,"60429-0045-01 ")
 ;;489
 ;;21,"60429-0045-10 ")
 ;;490
 ;;21,"60429-0046-01 ")
 ;;571
 ;;21,"60429-0046-10 ")
 ;;572
 ;;21,"60429-0071-01 ")
 ;;1436
 ;;21,"60429-0071-05 ")
 ;;1437
 ;;21,"60429-0071-10 ")
 ;;1438
 ;;21,"60429-0071-27 ")
 ;;1439
 ;;21,"60429-0071-30 ")
 ;;1440
 ;;21,"60429-0071-60 ")
 ;;1441
 ;;21,"60429-0071-90 ")
 ;;1442
 ;;21,"60429-0072-01 ")
 ;;1689
 ;;21,"60429-0072-05 ")
 ;;1690
 ;;21,"60429-0072-10 ")
 ;;1691
 ;;21,"60429-0072-27 ")
 ;;1692
 ;;21,"60429-0072-30 ")
 ;;1693
 ;;21,"60429-0072-60 ")
 ;;1694
 ;;21,"60429-0072-90 ")
 ;;1695
 ;;21,"60429-0073-01 ")
 ;;1332
 ;;21,"60429-0073-05 ")
 ;;1333
 ;;21,"60429-0073-10 ")
 ;;1334
 ;;21,"60429-0073-27 ")
 ;;1335
 ;;21,"60429-0073-30 ")
 ;;1336
 ;;21,"60429-0073-60 ")
 ;;1337
 ;;21,"60429-0073-90 ")
 ;;1338
 ;;21,"60429-0074-01 ")
 ;;1551
 ;;21,"60429-0074-05 ")
 ;;1552
 ;;21,"60429-0074-10 ")
 ;;1553
 ;;21,"60429-0074-27 ")
 ;;1554
 ;;21,"60429-0074-30 ")
 ;;1555
 ;;21,"60429-0074-60 ")
 ;;1556
 ;;21,"60429-0074-90 ")
 ;;1557
 ;;21,"60429-0257-01 ")
 ;;926
 ;;21,"60429-0728-01 ")
 ;;2199
 ;;21,"60429-0728-10 ")
 ;;2200
 ;;21,"60429-0728-30 ")
 ;;2201
 ;;21,"60429-0728-90 ")
 ;;2202
 ;;21,"60429-0729-01 ")
 ;;2825
 ;;21,"60429-0729-10 ")
 ;;2826
 ;;21,"60429-0729-30 ")
 ;;2827
 ;;21,"60429-0729-45 ")
 ;;2828
 ;;21,"60429-0729-90 ")
 ;;2829
 ;;21,"60429-0730-01 ")
 ;;2083
 ;;21,"60429-0730-10 ")
 ;;2084
 ;;21,"60429-0730-30 ")
 ;;2085
 ;;21,"60429-0730-45 ")
 ;;2086
 ;;21,"60429-0730-90 ")
 ;;2087
 ;;21,"60429-0731-01 ")
 ;;2399
 ;;21,"60429-0731-10 ")
 ;;2400
 ;;21,"60429-0731-30 ")
 ;;2401
 ;;21,"60429-0731-45 ")
 ;;2402
 ;;21,"60429-0731-90 ")
 ;;2403
 ;;21,"60429-0732-10 ")
 ;;2496
 ;;21,"60429-0732-30 ")
 ;;2497
 ;;21,"60429-0732-90 ")
 ;;2498
 ;;21,"60429-0733-01 ")
 ;;2638
 ;;21,"60429-0733-10 ")
 ;;2639
 ;;21,"60429-0733-30 ")
 ;;2640
 ;;21,"60429-0733-45 ")
 ;;2641
 ;;21,"60429-0733-90 ")
 ;;2642
 ;;21,"60429-0755-10 ")
 ;;1765
 ;;21,"60429-0755-45 ")
 ;;1766
 ;;21,"60429-0755-90 ")
 ;;1767
 ;;21,"60429-0756-10 ")
 ;;1819
 ;;21,"60429-0756-18 ")
 ;;1820
 ;;21,"60429-0756-45 ")
 ;;1821
 ;;21,"60429-0756-90 ")
 ;;1822
 ;;21,"60429-0757-10 ")
 ;;1885
 ;;21,"60429-0757-18 ")
 ;;1886
 ;;21,"60429-0757-45 ")
 ;;1887
 ;;21,"60429-0757-90 ")
 ;;1888
 ;;21,"60505-0003-06 ")
 ;;997
 ;;21,"60505-0003-09 ")
 ;;998
 ;;21,"60505-0004-06 ")
 ;;1105
 ;;21,"60505-0004-09 ")
 ;;1106
 ;;21,"60505-0005-06 ")
 ;;1208
 ;;21,"60505-0005-09 ")
 ;;1209
 ;;21,"60505-0006-06 ")
 ;;927
 ;;21,"60505-0006-09 ")
 ;;928
 ;;21,"60505-0049-07 ")
 ;;1443
 ;;21,"60505-0049-09 ")
 ;;1444
 ;;21,"60505-0050-07 ")
 ;;1696
 ;;21,"60505-0050-09 ")
 ;;1697
 ;;21,"60505-0051-07 ")
 ;;1339
 ;;21,"60505-0051-09 ")
 ;;1340
 ;;21,"60505-0052-07 ")
 ;;1558
 ;;21,"60505-0052-09 ")
 ;;1559
 ;;21,"60505-0172-00 ")
 ;;3032
 ;;21,"60505-0172-01 ")
 ;;3018
 ;;21,"60505-0173-00 ")
 ;;2948
 ;;21,"60505-0173-01 ")
 ;;2949
 ;;21,"60505-0174-00 ")
 ;;2980
 ;;21,"60505-0174-01 ")
 ;;2981
 ;;21,"60505-0175-00 ")
 ;;3006
 ;;21,"60505-0175-01 ")
 ;;3007
 ;;21,"60505-0184-00 ")
 ;;2203
 ;;21,"60505-0184-01 ")
 ;;2150
 ;;21,"60505-0185-00 ")
 ;;2830
 ;;21,"60505-0185-01 ")
 ;;2831
 ;;21,"60505-0185-07 ")
 ;;2832
 ;;21,"60505-0185-09 ")
 ;;2833
 ;;21,"60505-0186-00 ")
 ;;2088
 ;;21,"60505-0186-01 ")
 ;;2089
 ;;21,"60505-0186-07 ")
 ;;2090
 ;;21,"60505-0186-09 ")
 ;;2091
 ;;21,"60505-0187-00 ")
 ;;2404
 ;;21,"60505-0187-01 ")
 ;;2405
 ;;21,"60505-0187-07 ")
 ;;2406
 ;;21,"60505-0187-09 ")
 ;;2407
 ;;21,"60505-0188-00 ")
 ;;2499
 ;;21,"60505-0188-01 ")
 ;;2500
 ;;21,"60505-0189-00 ")
 ;;2643
 ;;21,"60505-0189-01 ")
 ;;2644
 ;;21,"60505-0189-08 ")
 ;;2645
 ;;21,"60505-0189-09 ")
 ;;2646
 ;;21,"60505-0205-03 ")
 ;;401
 ;;21,"60505-0205-07 ")
 ;;402
 ;;21,"60505-0206-03 ")
 ;;491
 ;;21,"60505-0206-07 ")
 ;;492
 ;;21,"60505-0207-03 ")
 ;;573
 ;;21,"60505-0207-07 ")
 ;;574
 ;;21,"60505-0208-01 ")
 ;;323
 ;;21,"60505-0209-01 ")
 ;;301
 ;;21,"60505-0265-01 ")
 ;;898
 ;;21,"60505-0266-01 ")
 ;;700
 ;;21,"60505-0266-05 ")
 ;;701
 ;;21,"60505-0267-01 ")
 ;;780
 ;;21,"60505-0267-05 ")
 ;;781
 ;;21,"60505-0268-01 ")
 ;;853
 ;;21,"60505-0268-05 ")
 ;;854
 ;;21,"60505-0271-01 ")
 ;;2905
 ;;21,"60505-0272-01 ")
 ;;2893
 ;;21,"60505-2510-02 ")
 ;;1768
 ;;21,"60505-2510-04 ")
 ;;1769
 ;;21,"60505-2511-02 ")
 ;;1823
 ;;21,"60505-2511-04 ")
 ;;1824
 ;;21,"60505-2512-02 ")
 ;;1889
 ;;21,"60505-2512-08 ")
 ;;1890
 ;;21,"60505-2683-01 ")
 ;;2155
 ;;21,"60505-2684-01 ")
 ;;2707
 ;;21,"60505-2684-08 ")
 ;;2834
 ;;21,"60505-2684-09 ")
 ;;2835
 ;;21,"60505-2685-01 ")
 ;;2092
 ;;21,"60505-2685-08 ")
 ;;1942
 ;;21,"60505-2685-09 ")
 ;;2093
 ;;21,"60505-2686-01 ")
 ;;2243
 ;;21,"60505-2686-08 ")
 ;;2242
 ;;21,"60505-2686-09 ")
 ;;2408
 ;;21,"60505-2688-01 ")
 ;;2529
 ;;21,"60505-2688-08 ")
 ;;2647
 ;;21,"60505-2688-09 ")
 ;;2648
 ;;21,"60505-2689-01 ")
 ;;347
 ;;21,"60505-2690-01 ")
 ;;424
 ;;21,"60505-2691-01 ")
 ;;515
 ;;21,"60505-2875-01 ")
 ;;3049
 ;;21,"60505-2876-00 ")
 ;;3150
 ;;21,"60505-2876-01 ")
 ;;3151
 ;;21,"60505-2876-05 ")
 ;;3152
 ;;21,"60505-2877-00 ")
 ;;3206
 ;;21,"60505-2877-01 ")
 ;;3207
 ;;21,"60505-2877-05 ")
 ;;3208
 ;;21,"60505-2878-00 ")
 ;;3100
 ;;21,"60505-2878-01 ")
 ;;3101
 ;;21,"60505-2878-05 ")
 ;;3102
 ;;21,"60505-2915-03 ")
 ;;3514
 ;;21,"60505-2915-09 ")
 ;;3515
 ;;21,"60505-2916-03 ")
 ;;3416
 ;;21,"60505-2916-09 ")
 ;;3417
 ;;21,"60505-2917-03 ")
 ;;3461
 ;;21,"60505-2917-09 ")
 ;;3462
 ;;21,"60505-3160-09 ")
 ;;3867
 ;;21,"60505-3161-03 ")
 ;;3936
 ;;21,"60505-3161-09 ")
 ;;3937
 ;;21,"60505-3162-03 ")
 ;;3810
 ;;21,"60505-3162-09 ")
 ;;3811
 ;;21,"60598-0080-01 ")
 ;;3349
 ;;21,"60598-0081-01 ")
 ;;3354
 ;;21,"60598-0100-01 ")
 ;;3695
 ;;21,"60598-0101-01 ")
 ;;3704
 ;;21,"60793-0500-01 ")
 ;;3222
 ;;21,"60793-0501-01 ")
 ;;3224
 ;;21,"60793-0502-01 ")
 ;;3225
 ;;21,"60793-0503-01 ")
 ;;3223
 ;;21,"60951-0731-70 ")
 ;;268
 ;;21,"60951-0733-70 ")
 ;;247
 ;;21,"60951-0739-70 ")
 ;;261
 ;;21,"60951-0741-70 ")
 ;;255
 ;;21,"61570-0110-01 ")
 ;;3050
 ;;21,"61570-0110-56 ")
 ;;3037
 ;;21,"61570-0111-01 ")
 ;;3153