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

BGP47Y11.m

Go to the documentation of this file.
BGP47Y11 ;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,"60505-0186-00 ")
 ;;1959
 ;;21,"60505-0186-01 ")
 ;;1960
 ;;21,"60505-0186-07 ")
 ;;1961
 ;;21,"60505-0186-09 ")
 ;;1962
 ;;21,"60505-0187-00 ")
 ;;2067
 ;;21,"60505-0187-01 ")
 ;;2068
 ;;21,"60505-0187-07 ")
 ;;2069
 ;;21,"60505-0187-09 ")
 ;;2070
 ;;21,"60505-0188-00 ")
 ;;2291
 ;;21,"60505-0188-01 ")
 ;;2292
 ;;21,"60505-0189-00 ")
 ;;2460
 ;;21,"60505-0189-01 ")
 ;;2461
 ;;21,"60505-0189-08 ")
 ;;2462
 ;;21,"60505-0189-09 ")
 ;;2463
 ;;21,"60505-0205-03 ")
 ;;4248
 ;;21,"60505-0205-07 ")
 ;;4249
 ;;21,"60505-0206-03 ")
 ;;4380
 ;;21,"60505-0206-07 ")
 ;;4381
 ;;21,"60505-0207-03 ")
 ;;4463
 ;;21,"60505-0207-07 ")
 ;;4464
 ;;21,"60505-0208-01 ")
 ;;4142
 ;;21,"60505-0209-01 ")
 ;;4164
 ;;21,"60505-0265-01 ")
 ;;17
 ;;21,"60505-0266-01 ")
 ;;114
 ;;21,"60505-0266-05 ")
 ;;115
 ;;21,"60505-0267-01 ")
 ;;205
 ;;21,"60505-0267-05 ")
 ;;206
 ;;21,"60505-0268-01 ")
 ;;265
 ;;21,"60505-0268-05 ")
 ;;266
 ;;21,"60505-0271-01 ")
 ;;2545
 ;;21,"60505-0272-01 ")
 ;;2555
 ;;21,"60505-2510-02 ")
 ;;1260
 ;;21,"60505-2510-04 ")
 ;;1261
 ;;21,"60505-2511-02 ")
 ;;1315
 ;;21,"60505-2511-04 ")
 ;;1316
 ;;21,"60505-2512-02 ")
 ;;1406
 ;;21,"60505-2512-08 ")
 ;;1407
 ;;21,"60505-2683-01 ")
 ;;1464
 ;;21,"60505-2684-01 ")
 ;;1542
 ;;21,"60505-2684-08 ")
 ;;1543
 ;;21,"60505-2684-09 ")
 ;;1544
 ;;21,"60505-2685-01 ")
 ;;1891
 ;;21,"60505-2685-08 ")
 ;;1892
 ;;21,"60505-2685-09 ")
 ;;1893
 ;;21,"60505-2686-01 ")
 ;;2026
 ;;21,"60505-2686-08 ")
 ;;2027
 ;;21,"60505-2686-09 ")
 ;;2028
 ;;21,"60505-2688-01 ")
 ;;2521
 ;;21,"60505-2688-08 ")
 ;;2522
 ;;21,"60505-2688-09 ")
 ;;2523
 ;;21,"60505-2689-01 ")
 ;;4259
 ;;21,"60505-2690-01 ")
 ;;4317
 ;;21,"60505-2691-01 ")
 ;;4506
 ;;21,"60505-2875-01 ")
 ;;2739
 ;;21,"60505-2876-00 ")
 ;;2792
 ;;21,"60505-2876-01 ")
 ;;2793
 ;;21,"60505-2876-05 ")
 ;;2794
 ;;21,"60505-2877-00 ")
 ;;2859
 ;;21,"60505-2877-01 ")
 ;;2860
 ;;21,"60505-2877-05 ")
 ;;2861
 ;;21,"60505-2878-00 ")
 ;;2945
 ;;21,"60505-2878-01 ")
 ;;2946
 ;;21,"60505-2878-05 ")
 ;;2947
 ;;21,"60505-2915-03 ")
 ;;4809
 ;;21,"60505-2915-09 ")
 ;;4810
 ;;21,"60505-2916-03 ")
 ;;4861
 ;;21,"60505-2916-09 ")
 ;;4862
 ;;21,"60505-2917-03 ")
 ;;4934
 ;;21,"60505-2917-09 ")
 ;;4935
 ;;21,"60505-3160-09 ")
 ;;3316
 ;;21,"60505-3161-03 ")
 ;;3411
 ;;21,"60505-3161-09 ")
 ;;3412
 ;;21,"60505-3162-03 ")
 ;;3527
 ;;21,"60505-3162-09 ")
 ;;3528
 ;;21,"60505-3409-05 ")
 ;;4548
 ;;21,"60505-3409-09 ")
 ;;4542
 ;;21,"60505-3410-05 ")
 ;;4557
 ;;21,"60505-3410-09 ")
 ;;4558
 ;;21,"60505-3411-05 ")
 ;;4577
 ;;21,"60505-3411-09 ")
 ;;4578
 ;;21,"60505-3547-03 ")
 ;;3103
 ;;21,"60505-3547-09 ")
 ;;3104
 ;;21,"60505-3548-03 ")
 ;;3174
 ;;21,"60505-3548-05 ")
 ;;3175
 ;;21,"60505-3548-09 ")
 ;;3176
 ;;21,"60505-3549-03 ")
 ;;3236
 ;;21,"60505-3549-05 ")
 ;;3237
 ;;21,"60505-3549-09 ")
 ;;3238
 ;;21,"60505-3603-03 ")
 ;;4698
 ;;21,"60505-3603-09 ")
 ;;4699
 ;;21,"60505-3604-03 ")
 ;;4732
 ;;21,"60505-3604-09 ")
 ;;4733
 ;;21,"60505-3758-05 ")
 ;;4629
 ;;21,"60505-3758-09 ")
 ;;4630
 ;;21,"60505-3759-05 ")
 ;;4645
 ;;21,"60505-3759-09 ")
 ;;4646
 ;;21,"60505-3760-09 ")
 ;;4651
 ;;21,"60505-3806-09 ")
 ;;5033
 ;;21,"60505-3807-09 ")
 ;;5091
 ;;21,"60505-3808-09 ")
 ;;5133
 ;;21,"60505-3809-09 ")
 ;;5162
 ;;21,"60505-3810-09 ")
 ;;5192
 ;;21,"60598-0080-01 ")
 ;;4653
 ;;21,"60598-0081-01 ")
 ;;4662
 ;;21,"60598-0100-01 ")
 ;;3064
 ;;21,"60598-0101-01 ")
 ;;3076
 ;;21,"60760-0063-30 ")
 ;;4281
 ;;21,"60760-0063-90 ")
 ;;4282
 ;;21,"60760-0064-30 ")
 ;;4307
 ;;21,"60760-0064-90 ")
 ;;4308
 ;;21,"60760-0065-30 ")
 ;;4471
 ;;21,"60760-0065-90 ")
 ;;4472
 ;;21,"60760-0082-90 ")
 ;;145
 ;;21,"60760-0128-30 ")
 ;;2099
 ;;21,"60760-0128-90 ")
 ;;2100
 ;;21,"60760-0129-90 ")
 ;;3430
 ;;21,"60760-0130-90 ")
 ;;3535
 ;;21,"60760-0266-30 ")
 ;;1696
 ;;21,"60760-0266-90 ")
 ;;1697
 ;;21,"60760-0267-30 ")
 ;;1870
 ;;21,"60760-0267-90 ")
 ;;1871
 ;;21,"60760-0270-30 ")
 ;;2437
 ;;21,"60760-0270-90 ")
 ;;2438
 ;;21,"60793-0500-01 ")
 ;;2950
 ;;21,"60793-0501-01 ")
 ;;2951
 ;;21,"60793-0502-01 ")
 ;;2952
 ;;21,"60793-0503-01 ")
 ;;2953
 ;;21,"60951-0185-92 ")
 ;;3307
 ;;21,"60951-0186-30 ")
 ;;3407
 ;;21,"60951-0186-92 ")
 ;;3408
 ;;21,"60951-0187-30 ")
 ;;3509
 ;;21,"60951-0187-92 ")
 ;;3510
 ;;21,"60951-0731-70 ")
 ;;4120
 ;;21,"60951-0733-70 ")
 ;;4099
 ;;21,"60951-0739-70 ")
 ;;4112
 ;;21,"60951-0741-70 ")
 ;;4106
 ;;21,"61570-0110-01 ")
 ;;2718
 ;;21,"61570-0110-56 ")
 ;;2719
 ;;21,"61570-0111-01 ")
 ;;2752
 ;;21,"61570-0111-05 ")
 ;;2753
 ;;21,"61570-0111-56 ")
 ;;2754
 ;;21,"61570-0112-01 ")
 ;;2813
 ;;21,"61570-0112-05 ")
 ;;2814
 ;;21,"61570-0112-56 ")
 ;;2815
 ;;21,"61570-0120-01 ")
 ;;2889
 ;;21,"61570-0120-05 ")
 ;;2890
 ;;21,"61570-0120-80 ")
 ;;2891
 ;;21,"62037-0516-01 ")
 ;;38
 ;;21,"62037-0517-01 ")
 ;;54
 ;;21,"62037-0518-01 ")
 ;;165
 ;;21,"62037-0519-01 ")
 ;;289
 ;;21,"62037-0531-90 ")
 ;;2593
 ;;21,"62037-0532-90 ")
 ;;2622
 ;;21,"62037-0533-90 ")
 ;;2662
 ;;21,"62037-0534-90 ")
 ;;2701
 ;;21,"62037-0756-01 ")
 ;;4009
 ;;21,"62037-0757-01 ")
 ;;4021
 ;;21,"62037-0758-01 ")
 ;;4046
 ;;21,"62037-0759-01 ")
 ;;4072
 ;;21,"62037-0935-90 ")
 ;;1281
 ;;21,"62037-0936-90 ")
 ;;1327
 ;;21,"62037-0937-90 ")
 ;;1430
 ;;21,"62175-0171-37 ")
 ;;2543
 ;;21,"62175-0177-37 ")
 ;;2552
 ;;21,"62175-0712-37 ")
 ;;4518
 ;;21,"62175-0720-37 ")
 ;;4524
 ;;21,"62175-0725-37 ")
 ;;4533
 ;;21,"62584-0164-06 ")
 ;;682
 ;;21,"62584-0165-06 ")
 ;;772
 ;;21,"62584-0166-06 ")
 ;;924
 ;;21,"62584-0167-06 ")
 ;;1091
 ;;21,"62682-6014-06 ")
 ;;238
 ;;21,"63304-0155-01 ")
 ;;4033
 ;;21,"63304-0156-01 ")
 ;;4060
 ;;21,"63304-0157-01 ")
 ;;4085
 ;;21,"63304-0337-01 ")
 ;;16
 ;;21,"63304-0338-01 ")
 ;;101
 ;;21,"63304-0338-05 ")
 ;;102
 ;;21,"63304-0339-01 ")
 ;;211
 ;;21,"63304-0339-05 ")
 ;;212
 ;;21,"63304-0340-01 ")
 ;;274
 ;;21,"63304-0340-05 ")
 ;;275
 ;;21,"63304-0403-01 ")
 ;;4187
 ;;21,"63304-0404-01 ")
 ;;4196
 ;;21,"63304-0522-01 ")
 ;;750
 ;;21,"63304-0522-10 ")
 ;;751
 ;;21,"63304-0523-01 ")
 ;;888
 ;;21,"63304-0523-10 ")
 ;;889
 ;;21,"63304-0524-01 ")
 ;;1058
 ;;21,"63304-0524-10 ")
 ;;1059
 ;;21,"63304-0525-01 ")
 ;;1213
 ;;21,"63304-0525-10 ")
 ;;1214
 ;;21,"63304-0531-01 ")
 ;;1476
 ;;21,"63304-0532-01 ")
 ;;1698
 ;;21,"63304-0532-10 ")
 ;;1699
 ;;21,"63304-0533-01 ")
 ;;1856
 ;;21,"63304-0533-10 ")
 ;;1857
 ;;21,"63304-0534-01 ")
 ;;2047
 ;;21,"63304-0534-10 ")
 ;;2048
 ;;21,"63304-0535-01 ")
 ;;2511
 ;;21,"63304-0535-10 ")
 ;;2512
 ;;21,"63304-0536-01 ")
 ;;4252
 ;;21,"63304-0536-05 ")
 ;;4253
 ;;21,"63304-0537-01 ")
 ;;4326
 ;;21,"63304-0537-05 ")
 ;;4327
 ;;21,"63304-0538-01 ")
 ;;4490
 ;;21,"63304-0538-05 ")
 ;;4491
 ;;21,"63304-0548-90 ")
 ;;2588
 ;;21,"63304-0549-90 ")
 ;;2616
 ;;21,"63304-0550-90 ")
 ;;2656
 ;;21,"63304-0551-90 ")
 ;;2691
 ;;21,"63304-0599-01 ")
 ;;2282
 ;;21,"63304-0736-01 ")
 ;;23
 ;;21,"63304-0736-05 ")
 ;;24
 ;;21,"63304-0736-90 ")
 ;;25
 ;;21,"63304-0737-01 ")
 ;;70
 ;;21,"63304-0737-05 ")
 ;;71
 ;;21,"63304-0737-90 ")
 ;;72
 ;;21,"63304-0738-01 ")
 ;;176
 ;;21,"63304-0738-05 ")
 ;;177
 ;;21,"63304-0738-90 ")
 ;;178
 ;;21,"63304-0739-01 ")
 ;;308
 ;;21,"63304-0739-05 ")
 ;;309
 ;;21,"63304-0739-90 ")
 ;;310
 ;;21,"63304-0775-10 ")
 ;;1251
 ;;21,"63304-0775-90 ")
 ;;1252
 ;;21,"63304-0776-10 ")
 ;;1346
 ;;21,"63304-0776-90 ")
 ;;1347
 ;;21,"63304-0777-10 ")
 ;;1397
 ;;21,"63304-0777-90 ")
 ;;1398
 ;;21,"63304-0834-01 ")
 ;;747
 ;;21,"63304-0834-10 ")
 ;;748
 ;;21,"63304-0835-01 ")
 ;;890
 ;;21,"63304-0835-10 ")
 ;;891
 ;;21,"63304-0836-01 ")
 ;;1050
 ;;21,"63304-0836-10 ")
 ;;1051
 ;;21,"63304-0837-01 ")
 ;;1193
 ;;21,"63304-0837-10 ")
 ;;1194
 ;;21,"63629-1241-01 ")
 ;;2675
 ;;21,"63629-1242-01 ")
 ;;2678
 ;;21,"63629-1253-01 ")
 ;;2893
 ;;21,"63629-1253-02 ")
 ;;2894
 ;;21,"63629-1254-01 ")
 ;;2820
 ;;21,"63629-1254-02 ")
 ;;2821
 ;;21,"63629-1337-01 ")
 ;;3327
 ;;21,"63629-1337-02 ")
 ;;3328
 ;;21,"63629-1337-03 ")
 ;;3329
 ;;21,"63629-1338-01 ")
 ;;431
 ;;21,"63629-1338-02 ")
 ;;432
 ;;21,"63629-1338-03 ")
 ;;433
 ;;21,"63629-1454-01 ")
 ;;3847
 ;;21,"63629-1522-01 ")
 ;;860
 ;;21,"63629-1522-02 ")
 ;;861
 ;;21,"63629-1522-03 ")
 ;;862
 ;;21,"63629-1522-04 ")
 ;;863
 ;;21,"63629-1525-01 ")
 ;;1166
 ;;21,"63629-1525-02 ")
 ;;1167
 ;;21,"63629-1525-03 ")
 ;;1168
 ;;21,"63629-1526-01 ")
 ;;1013
 ;;21,"63629-1526-02 ")
 ;;1014
 ;;21,"63629-1526-03 ")
 ;;1020
 ;;21,"63629-1679-01 ")
 ;;4224
 ;;21,"63629-1679-02 ")
 ;;4225
 ;;21,"63629-1679-03 ")
 ;;4226
 ;;21,"63629-1679-04 ")
 ;;4227
 ;;21,"63629-1706-01 ")
 ;;665
 ;;21,"63629-1706-02 ")
 ;;675
 ;;21,"63629-1706-03 ")
 ;;676
 ;;21,"63629-1728-01 ")
 ;;146
 ;;21,"63629-1728-02 ")
 ;;147
 ;;21,"63629-1728-03 ")
 ;;148
 ;;21,"63629-1761-01 ")
 ;;1590
 ;;21,"63629-1809-01 ")
 ;;4034
 ;;21,"63629-1809-02 ")
 ;;4035
 ;;21,"63629-2541-01 ")
 ;;632
 ;;21,"63629-2541-02 ")
 ;;633
 ;;21,"63629-2541-03 ")
 ;;634
 ;;21,"63629-2541-04 ")
 ;;635
 ;;21,"63629-2672-01 ")
 ;;63
 ;;21,"63629-2672-02 ")
 ;;64
 ;;21,"63629-2672-03 ")
 ;;65
 ;;21,"63629-2679-01 ")
 ;;28
 ;;21,"63629-2680-01 ")
 ;;4057
 ;;21,"63629-2680-02 ")
 ;;4058
 ;;21,"63629-2680-03 ")
 ;;4059
 ;;21,"63629-2688-01 ")
 ;;1905
 ;;21,"63629-2688-02 ")
 ;;1906
 ;;21,"63629-2688-03 ")
 ;;1907
 ;;21,"63629-2735-01 ")
 ;;4083
 ;;21,"63629-2896-01 ")
 ;;355
 ;;21,"63629-2908-01 ")
 ;;2031
 ;;21,"63629-2908-02 ")
 ;;2032
 ;;21,"63629-2908-03 ")
 ;;2033
 ;;21,"63629-2908-04 ")
 ;;2034
 ;;21,"63629-2912-01 ")
 ;;3439
 ;;21,"63629-2912-02 ")
 ;;3440
 ;;21,"63629-2912-03 ")
 ;;3441
 ;;21,"63629-2912-04 ")
 ;;3442
 ;;21,"63629-2923-01 ")
 ;;303
 ;;21,"63629-2923-02 ")
 ;;304
 ;;21,"63629-2935-01 ")
 ;;2524
 ;;21,"63629-2935-02 ")
 ;;2525
 ;;21,"63629-2935-03 ")
 ;;2526
 ;;21,"63629-2935-04 ")
 ;;2527
 ;;21,"63629-3217-01 ")
 ;;4146
 ;;21,"63629-3344-01 ")
 ;;4924
 ;;21,"63629-3344-02 ")
 ;;4925
 ;;21,"63629-3371-01 ")
 ;;3681
 ;;21,"63629-3371-02 ")
 ;;3682
 ;;21,"63629-3371-03 ")
 ;;3683
 ;;21,"63629-3371-04 ")
 ;;3684
 ;;21,"63629-3373-01 ")
 ;;3139
 ;;21,"63629-3373-02 ")
 ;;3140
 ;;21,"63629-3373-03 ")
 ;;3141
 ;;21,"63629-3373-04 ")
 ;;3142
 ;;21,"63629-3374-01 ")
 ;;4672
 ;;21,"63629-3374-02 ")
 ;;4673
 ;;21,"63629-3374-03 ")
 ;;4674
 ;;21,"63629-3374-04 ")
 ;;4675
 ;;21,"63629-3376-01 ")
 ;;3035
 ;;21,"63629-3376-02 ")
 ;;3036
 ;;21,"63629-3376-03 ")
 ;;3037
 ;;21,"63629-3376-04 ")
 ;;3038
 ;;21,"63629-3377-01 ")
 ;;4633
 ;;21,"63629-3377-02 ")
 ;;4634
 ;;21,"63629-3377-03 ")
 ;;4635
 ;;21,"63629-3377-04 ")
 ;;4636
 ;;21,"63629-3390-01 ")
 ;;3548
 ;;21,"63629-3390-02 ")
 ;;3549
 ;;21,"63629-3390-03 ")
 ;;3550
 ;;21,"63629-3390-04 ")
 ;;3551
 ;;21,"63629-3739-01 ")
 ;;4483
 ;;21,"63629-3739-02 ")
 ;;4484
 ;;21,"63739-0042-01 ")
 ;;402
 ;;21,"63739-0042-02 ")
 ;;403
 ;;21,"63739-0042-03 ")
 ;;404
 ;;21,"63739-0042-10 ")
 ;;405
 ;;21,"63739-0042-15 ")
 ;;406
 ;;21,"63739-0043-01 ")
 ;;515
 ;;21,"63739-0043-02 ")
 ;;516
 ;;21,"63739-0043-03 ")
 ;;517
 ;;21,"63739-0043-10 ")
 ;;518
 ;;21,"63739-0043-15 ")
 ;;519
 ;;21,"63739-0302-10 ")
 ;;959
 ;;21,"63739-0302-15 ")
 ;;960
 ;;21,"63739-0322-10 ")
 ;;686
 ;;21,"63739-0322-15 ")
 ;;687
 ;;21,"63739-0323-10 ")
 ;;805
 ;;21,"63739-0323-15 ")
 ;;806
 ;;21,"63739-0348-10 ")
 ;;1588
 ;;21,"63739-0348-15 ")
 ;;1589
 ;;21,"63739-0349-10 ")
 ;;1931
 ;;21,"63739-0349-15 ")
 ;;1932
 ;;21,"63739-0350-10 ")
 ;;2094
 ;;21,"63739-0350-15 ")
 ;;2095
 ;;21,"63739-0513-10 ")
 ;;3304
 ;;21,"63739-0514-10 ")
 ;;3402
 ;;21,"63739-0515-10 ")
 ;;3513
 ;;21,"63739-0527-10 ")
 ;;4813
 ;;21,"63739-0528-10 ")
 ;;4867
 ;;21,"63739-0529-10 ")
 ;;4938
 ;;21,"63874-0058-10 ")
 ;;2685
 ;;21,"63874-0058-15 ")
 ;;2686
 ;;21,"63874-0058-30 ")
 ;;2687
 ;;21,"63874-0058-90 ")
 ;;2688
 ;;21,"63874-0347-01 ")
 ;;506
 ;;21,"63874-0347-02 ")
 ;;507
 ;;21,"63874-0347-05 ")
 ;;508
 ;;21,"63874-0347-20 ")
 ;;509
 ;;21,"63874-0347-30 ")
 ;;510
 ;;21,"63874-0347-40 ")
 ;;511
 ;;21,"63874-0347-42 ")
 ;;512
 ;;21,"63874-0347-45 ")
 ;;513
 ;;21,"63874-0347-90 ")
 ;;514
 ;;21,"63874-0348-01 ")
 ;;605
 ;;21,"63874-0348-10 ")
 ;;606
 ;;21,"63874-0348-14 ")
 ;;607
 ;;21,"63874-0348-20 ")
 ;;608
 ;;21,"63874-0348-30 ")
 ;;628
 ;;21,"63874-0348-60 ")
 ;;629
 ;;21,"63874-0348-90 ")
 ;;630
 ;;21,"63874-0349-01 ")
 ;;662
 ;;21,"63874-0349-10 ")
 ;;663
 ;;21,"63874-0349-30 ")
 ;;664
 ;;21,"63874-0379-10 ")
 ;;2579
 ;;21,"63874-0379-30 ")
 ;;2580
 ;;21,"63874-0423-01 ")
 ;;807
 ;;21,"63874-0423-07 ")
 ;;808
 ;;21,"63874-0423-10 ")
 ;;809