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

BGP13X9.m

Go to the documentation of this file.
BGP13X9 ; 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,"60505-2876-05 ")
 ;;3019
 ;;21,"60505-2877-00 ")
 ;;3067
 ;;21,"60505-2877-01 ")
 ;;3068
 ;;21,"60505-2877-05 ")
 ;;3069
 ;;21,"60505-2878-00 ")
 ;;2972
 ;;21,"60505-2878-01 ")
 ;;2973
 ;;21,"60505-2878-05 ")
 ;;2974
 ;;21,"60505-2915-03 ")
 ;;3353
 ;;21,"60505-2915-09 ")
 ;;3354
 ;;21,"60505-2916-03 ")
 ;;3266
 ;;21,"60505-2916-09 ")
 ;;3267
 ;;21,"60505-2917-03 ")
 ;;3306
 ;;21,"60505-2917-09 ")
 ;;3307
 ;;21,"60505-3160-09 ")
 ;;3683
 ;;21,"60505-3161-03 ")
 ;;3746
 ;;21,"60505-3161-09 ")
 ;;3747
 ;;21,"60505-3162-03 ")
 ;;3631
 ;;21,"60505-3162-09 ")
 ;;3632
 ;;21,"60598-0080-01 ")
 ;;3212
 ;;21,"60598-0081-01 ")
 ;;3217
 ;;21,"60598-0100-01 ")
 ;;3531
 ;;21,"60598-0101-01 ")
 ;;3538
 ;;21,"60793-0500-01 ")
 ;;3087
 ;;21,"60793-0501-01 ")
 ;;3089
 ;;21,"60793-0502-01 ")
 ;;3090
 ;;21,"60793-0503-01 ")
 ;;3088
 ;;21,"60951-0731-70 ")
 ;;249
 ;;21,"60951-0733-70 ")
 ;;226
 ;;21,"60951-0739-70 ")
 ;;239
 ;;21,"60951-0741-70 ")
 ;;233
 ;;21,"61570-0110-01 ")
 ;;2933
 ;;21,"61570-0110-56 ")
 ;;2934
 ;;21,"61570-0111-01 ")
 ;;3020
 ;;21,"61570-0111-05 ")
 ;;3021
 ;;21,"61570-0111-56 ")
 ;;3022
 ;;21,"61570-0112-01 ")
 ;;3070
 ;;21,"61570-0112-05 ")
 ;;3071
 ;;21,"61570-0112-56 ")
 ;;3072
 ;;21,"61570-0120-01 ")
 ;;2975
 ;;21,"61570-0120-05 ")
 ;;2976
 ;;21,"61570-0120-80 ")
 ;;2977
 ;;21,"62037-0516-01 ")
 ;;830
 ;;21,"62037-0517-01 ")
 ;;643
 ;;21,"62037-0518-01 ")
 ;;716
 ;;21,"62037-0519-01 ")
 ;;788
 ;;21,"62037-0531-90 ")
 ;;2917
 ;;21,"62037-0532-90 ")
 ;;2834
 ;;21,"62037-0533-90 ")
 ;;2865
 ;;21,"62037-0534-90 ")
 ;;2892
 ;;21,"62037-0756-01 ")
 ;;218
 ;;21,"62037-0757-01 ")
 ;;163
 ;;21,"62037-0758-01 ")
 ;;185
 ;;21,"62037-0759-01 ")
 ;;207
 ;;21,"62037-0935-90 ")
 ;;1689
 ;;21,"62037-0936-90 ")
 ;;1738
 ;;21,"62037-0937-90 ")
 ;;1813
 ;;21,"62175-0171-37 ")
 ;;2791
 ;;21,"62175-0177-37 ")
 ;;2779
 ;;21,"62175-0712-37 ")
 ;;567
 ;;21,"62175-0720-37 ")
 ;;549
 ;;21,"62175-0725-37 ")
 ;;561
 ;;21,"62584-0164-06 ")
 ;;1361
 ;;21,"62584-0165-06 ")
 ;;1611
 ;;21,"62584-0166-06 ")
 ;;1255
 ;;21,"62584-0167-06 ")
 ;;1473
 ;;21,"62682-6014-06 ")
 ;;717
 ;;21,"63304-0155-01 ")
 ;;164
 ;;21,"63304-0156-01 ")
 ;;186
 ;;21,"63304-0157-01 ")
 ;;208
 ;;21,"63304-0337-01 ")
 ;;844
 ;;21,"63304-0338-01 ")
 ;;663
 ;;21,"63304-0338-05 ")
 ;;664
 ;;21,"63304-0339-01 ")
 ;;738
 ;;21,"63304-0339-05 ")
 ;;739
 ;;21,"63304-0340-01 ")
 ;;803
 ;;21,"63304-0340-05 ")
 ;;804
 ;;21,"63304-0403-01 ")
 ;;300
 ;;21,"63304-0404-01 ")
 ;;309
 ;;21,"63304-0522-01 ")
 ;;1362
 ;;21,"63304-0522-10 ")
 ;;1363
 ;;21,"63304-0523-01 ")
 ;;1612
 ;;21,"63304-0523-10 ")
 ;;1613
 ;;21,"63304-0524-01 ")
 ;;1256
 ;;21,"63304-0524-10 ")
 ;;1257
 ;;21,"63304-0525-01 ")
 ;;1474
 ;;21,"63304-0525-10 ")
 ;;1475
 ;;21,"63304-0531-01 ")
 ;;2117
 ;;21,"63304-0532-01 ")
 ;;2707
 ;;21,"63304-0532-10 ")
 ;;2708
 ;;21,"63304-0533-01 ")
 ;;1992
 ;;21,"63304-0533-10 ")
 ;;1993
 ;;21,"63304-0534-01 ")
 ;;2288
 ;;21,"63304-0534-10 ")
 ;;2289
 ;;21,"63304-0535-01 ")
 ;;2522
 ;;21,"63304-0535-10 ")
 ;;2523
 ;;21,"63304-0536-01 ")
 ;;361
 ;;21,"63304-0536-05 ")
 ;;362
 ;;21,"63304-0537-01 ")
 ;;445
 ;;21,"63304-0537-05 ")
 ;;446
 ;;21,"63304-0538-01 ")
 ;;518
 ;;21,"63304-0538-05 ")
 ;;519
 ;;21,"63304-0548-90 ")
 ;;2918
 ;;21,"63304-0549-90 ")
 ;;2835
 ;;21,"63304-0550-90 ")
 ;;2866
 ;;21,"63304-0551-90 ")
 ;;2893
 ;;21,"63304-0599-01 ")
 ;;2401
 ;;21,"63304-0736-01 ")
 ;;831
 ;;21,"63304-0736-05 ")
 ;;832
 ;;21,"63304-0736-90 ")
 ;;833
 ;;21,"63304-0737-01 ")
 ;;644
 ;;21,"63304-0737-05 ")
 ;;645
 ;;21,"63304-0737-90 ")
 ;;646
 ;;21,"63304-0738-01 ")
 ;;718
 ;;21,"63304-0738-05 ")
 ;;719
 ;;21,"63304-0738-90 ")
 ;;720
 ;;21,"63304-0739-01 ")
 ;;789
 ;;21,"63304-0739-05 ")
 ;;790
 ;;21,"63304-0739-90 ")
 ;;791
 ;;21,"63304-0775-10 ")
 ;;1690
 ;;21,"63304-0775-90 ")
 ;;1691
 ;;21,"63304-0776-10 ")
 ;;1739
 ;;21,"63304-0776-90 ")
 ;;1740
 ;;21,"63304-0777-10 ")
 ;;1814
 ;;21,"63304-0777-90 ")
 ;;1815
 ;;21,"63304-0834-01 ")
 ;;1364
 ;;21,"63304-0834-10 ")
 ;;1365
 ;;21,"63304-0835-01 ")
 ;;1614
 ;;21,"63304-0835-10 ")
 ;;1615
 ;;21,"63304-0836-01 ")
 ;;1258
 ;;21,"63304-0836-10 ")
 ;;1259
 ;;21,"63304-0837-01 ")
 ;;1476
 ;;21,"63304-0837-10 ")
 ;;1477
 ;;21,"63629-1241-01 ")
 ;;2867
 ;;21,"63629-1242-01 ")
 ;;2899
 ;;21,"63629-1253-01 ")
 ;;2990
 ;;21,"63629-1253-02 ")
 ;;2991
 ;;21,"63629-1254-01 ")
 ;;3086
 ;;21,"63629-1254-02 ")
 ;;3073
 ;;21,"63629-1337-01 ")
 ;;3748
 ;;21,"63629-1337-02 ")
 ;;3749
 ;;21,"63629-1337-03 ")
 ;;3750
 ;;21,"63629-1338-01 ")
 ;;1028
 ;;21,"63629-1338-02 ")
 ;;1029
 ;;21,"63629-1338-03 ")
 ;;1030
 ;;21,"63629-1454-01 ")
 ;;111
 ;;21,"63629-1522-01 ")
 ;;1653
 ;;21,"63629-1522-02 ")
 ;;1654
 ;;21,"63629-1522-03 ")
 ;;1616
 ;;21,"63629-1522-04 ")
 ;;1655
 ;;21,"63629-1525-01 ")
 ;;1478
 ;;21,"63629-1525-02 ")
 ;;1479
 ;;21,"63629-1525-03 ")
 ;;1480
 ;;21,"63629-1526-01 ")
 ;;1260
 ;;21,"63629-1526-02 ")
 ;;1261
 ;;21,"63629-1526-03 ")
 ;;1302
 ;;21,"63629-1679-01 ")
 ;;363
 ;;21,"63629-1679-02 ")
 ;;364
 ;;21,"63629-1679-03 ")
 ;;365
 ;;21,"63629-1679-04 ")
 ;;382
 ;;21,"63629-1706-01 ")
 ;;866
 ;;21,"63629-1706-02 ")
 ;;867
 ;;21,"63629-1706-03 ")
 ;;868
 ;;21,"63629-1728-01 ")
 ;;721
 ;;21,"63629-1728-02 ")
 ;;722
 ;;21,"63629-1728-03 ")
 ;;723
 ;;21,"63629-1761-01 ")
 ;;2764
 ;;21,"63629-1809-01 ")
 ;;165
 ;;21,"63629-1809-02 ")
 ;;166
 ;;21,"63629-2541-01 ")
 ;;1136
 ;;21,"63629-2541-02 ")
 ;;1137
 ;;21,"63629-2541-03 ")
 ;;1156
 ;;21,"63629-2541-04 ")
 ;;1157
 ;;21,"63629-2672-01 ")
 ;;647
 ;;21,"63629-2672-02 ")
 ;;648
 ;;21,"63629-2672-03 ")
 ;;665
 ;;21,"63629-2679-01 ")
 ;;845
 ;;21,"63629-2680-01 ")
 ;;187
 ;;21,"63629-2680-02 ")
 ;;188
 ;;21,"63629-2680-03 ")
 ;;189
 ;;21,"63629-2688-01 ")
 ;;1994
 ;;21,"63629-2688-02 ")
 ;;2059
 ;;21,"63629-2688-03 ")
 ;;2060
 ;;21,"63629-2735-01 ")
 ;;209
 ;;21,"63629-2896-01 ")
 ;;930
 ;;21,"63629-2908-01 ")
 ;;2290
 ;;21,"63629-2908-02 ")
 ;;2355
 ;;21,"63629-2908-03 ")
 ;;2356
 ;;21,"63629-2908-04 ")
 ;;2357
 ;;21,"63629-2912-01 ")
 ;;3633
 ;;21,"63629-2912-02 ")
 ;;3634
 ;;21,"63629-2912-03 ")
 ;;3635
 ;;21,"63629-2912-04 ")
 ;;3636
 ;;21,"63629-2923-01 ")
 ;;792
 ;;21,"63629-2923-02 ")
 ;;805
 ;;21,"63629-2935-01 ")
 ;;2574
 ;;21,"63629-2935-02 ")
 ;;2575
 ;;21,"63629-2935-03 ")
 ;;2576
 ;;21,"63629-2935-04 ")
 ;;2577
 ;;21,"63629-3217-01 ")
 ;;275
 ;;21,"63629-3371-01 ")
 ;;3851
 ;;21,"63629-3371-02 ")
 ;;3852
 ;;21,"63629-3371-03 ")
 ;;3853
 ;;21,"63629-3371-04 ")
 ;;3854
 ;;21,"63629-3373-01 ")
 ;;3564
 ;;21,"63629-3373-02 ")
 ;;3565
 ;;21,"63629-3373-03 ")
 ;;3566
 ;;21,"63629-3373-04 ")
 ;;3567
 ;;21,"63629-3374-01 ")
 ;;3226
 ;;21,"63629-3374-02 ")
 ;;3227
 ;;21,"63629-3374-03 ")
 ;;3228
 ;;21,"63629-3374-04 ")
 ;;3229
 ;;21,"63629-3376-01 ")
 ;;3506
 ;;21,"63629-3376-02 ")
 ;;3507
 ;;21,"63629-3376-03 ")
 ;;3508
 ;;21,"63629-3376-04 ")
 ;;3509
 ;;21,"63629-3377-01 ")
 ;;3205
 ;;21,"63629-3377-02 ")
 ;;3206
 ;;21,"63629-3377-03 ")
 ;;3207
 ;;21,"63629-3377-04 ")
 ;;3208
 ;;21,"63629-3390-01 ")
 ;;3780
 ;;21,"63629-3390-02 ")
 ;;3781
 ;;21,"63629-3390-03 ")
 ;;3782
 ;;21,"63629-3390-04 ")
 ;;3783
 ;;21,"63629-3739-01 ")
 ;;539
 ;;21,"63629-3739-02 ")
 ;;540
 ;;21,"63739-0042-01 ")
 ;;931
 ;;21,"63739-0042-02 ")
 ;;932
 ;;21,"63739-0042-03 ")
 ;;933
 ;;21,"63739-0042-10 ")
 ;;934
 ;;21,"63739-0042-15 ")
 ;;935
 ;;21,"63739-0043-01 ")
 ;;1031
 ;;21,"63739-0043-02 ")
 ;;1032
 ;;21,"63739-0043-03 ")
 ;;1033
 ;;21,"63739-0043-10 ")
 ;;1034
 ;;21,"63739-0043-15 ")
 ;;1035
 ;;21,"63739-0302-10 ")
 ;;1262
 ;;21,"63739-0302-15 ")
 ;;1263
 ;;21,"63739-0322-10 ")
 ;;1366
 ;;21,"63739-0322-15 ")
 ;;1367
 ;;21,"63739-0323-10 ")
 ;;1617
 ;;21,"63739-0323-15 ")
 ;;1618
 ;;21,"63739-0348-10 ")
 ;;2709
 ;;21,"63739-0348-15 ")
 ;;2710
 ;;21,"63739-0349-10 ")
 ;;1995
 ;;21,"63739-0349-15 ")
 ;;1996
 ;;21,"63739-0350-10 ")
 ;;2291
 ;;21,"63739-0350-15 ")
 ;;2292
 ;;21,"63874-0058-10 ")
 ;;2894
 ;;21,"63874-0058-15 ")
 ;;2895
 ;;21,"63874-0058-30 ")
 ;;2896
 ;;21,"63874-0058-90 ")
 ;;2897
 ;;21,"63874-0347-01 ")
 ;;1036
 ;;21,"63874-0347-02 ")
 ;;1037
 ;;21,"63874-0347-05 ")
 ;;1038
 ;;21,"63874-0347-20 ")
 ;;1039
 ;;21,"63874-0347-30 ")
 ;;1040
 ;;21,"63874-0347-40 ")
 ;;1041
 ;;21,"63874-0347-42 ")
 ;;1042
 ;;21,"63874-0347-45 ")
 ;;1043
 ;;21,"63874-0347-90 ")
 ;;1044
 ;;21,"63874-0348-01 ")
 ;;1138
 ;;21,"63874-0348-10 ")
 ;;1139
 ;;21,"63874-0348-14 ")
 ;;1140
 ;;21,"63874-0348-20 ")
 ;;1141
 ;;21,"63874-0348-30 ")
 ;;1142
 ;;21,"63874-0348-60 ")
 ;;1143
 ;;21,"63874-0348-90 ")
 ;;1144
 ;;21,"63874-0349-01 ")
 ;;869
 ;;21,"63874-0349-10 ")
 ;;870
 ;;21,"63874-0349-30 ")
 ;;871
 ;;21,"63874-0379-10 ")
 ;;2919
 ;;21,"63874-0379-30 ")
 ;;2920
 ;;21,"63874-0423-01 ")
 ;;1619
 ;;21,"63874-0423-07 ")
 ;;1620
 ;;21,"63874-0423-10 ")
 ;;1621
 ;;21,"63874-0423-14 ")
 ;;1622
 ;;21,"63874-0423-20 ")
 ;;1623
 ;;21,"63874-0423-30 ")
 ;;1624
 ;;21,"63874-0423-60 ")
 ;;1625
 ;;21,"63874-0514-01 ")
 ;;2293
 ;;21,"63874-0514-10 ")
 ;;2294
 ;;21,"63874-0514-14 ")
 ;;2295
 ;;21,"63874-0514-15 ")
 ;;2296
 ;;21,"63874-0514-16 ")
 ;;2297
 ;;21,"63874-0514-20 ")
 ;;2298
 ;;21,"63874-0514-28 ")
 ;;2299
 ;;21,"63874-0514-30 ")
 ;;2300
 ;;21,"63874-0514-60 ")
 ;;2301
 ;;21,"63874-0514-90 ")
 ;;2302
 ;;21,"63874-0522-01 ")
 ;;1997
 ;;21,"63874-0522-08 ")
 ;;1998
 ;;21,"63874-0522-10 ")
 ;;1999
 ;;21,"63874-0522-14 ")
 ;;2000
 ;;21,"63874-0522-15 ")
 ;;2001
 ;;21,"63874-0522-20 ")
 ;;2002
 ;;21,"63874-0522-21 ")
 ;;2003
 ;;21,"63874-0522-28 ")
 ;;2004
 ;;21,"63874-0522-30 ")
 ;;2005
 ;;21,"63874-0522-60 ")
 ;;2006
 ;;21,"63874-0522-90 ")
 ;;2007
 ;;21,"63874-0558-01 ")
 ;;2711
 ;;21,"63874-0558-10 ")
 ;;2712
 ;;21,"63874-0558-14 ")
 ;;2713
 ;;21,"63874-0558-16 ")
 ;;2714
 ;;21,"63874-0558-28 ")
 ;;2715
 ;;21,"63874-0558-30 ")
 ;;2716
 ;;21,"63874-0558-60 ")
 ;;2717
 ;;21,"63874-0558-90 ")
 ;;2718
 ;;21,"63874-0581-10 ")
 ;;2836
 ;;21,"63874-0581-30 ")
 ;;2837
 ;;21,"63874-0581-90 ")
 ;;2838
 ;;21,"63874-0618-10 ")
 ;;2524
 ;;21,"63874-0618-15 ")
 ;;2525
 ;;21,"63874-0618-30 ")
 ;;2526
 ;;21,"63874-0618-40 ")
 ;;2527
 ;;21,"63874-0618-60 ")
 ;;2528
 ;;21,"63874-0655-01 ")
 ;;1264
 ;;21,"63874-0655-10 ")
 ;;1265
 ;;21,"63874-0655-14 ")
 ;;1266
 ;;21,"63874-0655-20 ")
 ;;1267
 ;;21,"63874-0655-30 ")
 ;;1268
 ;;21,"63874-0655-60 ")
 ;;1269
 ;;21,"63874-0987-01 ")
 ;;1481
 ;;21,"63874-0987-10 ")
 ;;1482
 ;;21,"63874-0987-14 ")
 ;;1483
 ;;21,"63874-0987-20 ")
 ;;1484
 ;;21,"63874-0987-30 ")
 ;;1485
 ;;21,"63874-0987-60 ")
 ;;1486
 ;;21,"63874-1114-09 ")
 ;;2402
 ;;21,"63874-1123-01 ")
 ;;724
 ;;21,"63874-1123-03 ")
 ;;725
 ;;21,"64455-0130-01 ")
 ;;3532
 ;;21,"64455-0131-01 ")
 ;;3539
 ;;21,"64455-0132-01 ")
 ;;3213
 ;;21,"64455-0133-01 ")
 ;;3218
 ;;21,"64455-0140-10 ")
 ;;1368
 ;;21,"64455-0140-11 ")
 ;;1369
 ;;21,"64455-0140-30 ")
 ;;1370
 ;;21,"64455-0140-90 ")
 ;;1371
 ;;21,"64455-0141-10 ")
 ;;1626
 ;;21,"64455-0141-11 ")
 ;;1627
 ;;21,"64455-0141-30 ")
 ;;1628
 ;;21,"64455-0141-90 ")
 ;;1629
 ;;21,"64455-0142-10 ")
 ;;1270
 ;;21,"64455-0142-11 ")
 ;;1271
 ;;21,"64455-0142-30 ")
 ;;1272
 ;;21,"64455-0142-90 ")
 ;;1273
 ;;21,"64455-0143-10 ")
 ;;1487
 ;;21,"64455-0143-11 ")
 ;;1488
 ;;21,"64455-0143-30 ")
 ;;1489
 ;;21,"64455-0143-90 ")
 ;;1490
 ;;21,"64455-0145-01 ")
 ;;295
 ;;21,"64455-0146-01 ")
 ;;274
 ;;21,"64679-0902-01 ")
 ;;936
 ;;21,"64679-0902-02 ")
 ;;937
 ;;21,"64679-0903-01 ")
 ;;1045
 ;;21,"64679-0903-02 ")
 ;;1046
 ;;21,"64679-0904-01 ")
 ;;1145
 ;;21,"64679-0904-02 ")
 ;;1146
 ;;21,"64679-0905-01 ")
 ;;872
 ;;21,"64679-0923-02 ")
 ;;1372
 ;;21,"64679-0923-03 ")
 ;;1373