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

BGP13T2.m

Go to the documentation of this file.
BGP13T2 ; 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,"00172-5674-10 ")
 ;;4335
 ;;21,"00172-5675-10 ")
 ;;2955
 ;;21,"00172-5675-46 ")
 ;;2956
 ;;21,"00172-5675-70 ")
 ;;2957
 ;;21,"00172-5676-10 ")
 ;;2958
 ;;21,"00172-5676-46 ")
 ;;2959
 ;;21,"00172-5676-70 ")
 ;;2960
 ;;21,"00172-5695-10 ")
 ;;2961
 ;;21,"00172-5695-46 ")
 ;;2962
 ;;21,"00172-5695-70 ")
 ;;2963
 ;;21,"00173-0135-55 ")
 ;;5129
 ;;21,"00173-0177-55 ")
 ;;5121
 ;;21,"00173-0178-55 ")
 ;;5122
 ;;21,"00173-0722-00 ")
 ;;5130
 ;;21,"00173-0730-01 ")
 ;;5174
 ;;21,"00173-0730-02 ")
 ;;5175
 ;;21,"00173-0731-01 ")
 ;;5176
 ;;21,"00173-0947-55 ")
 ;;5131
 ;;21,"00182-1190-01 ")
 ;;3292
 ;;21,"00182-1191-01 ")
 ;;3293
 ;;21,"00182-1192-01 ")
 ;;3294
 ;;21,"00182-1193-01 ")
 ;;3295
 ;;21,"00182-1259-00 ")
 ;;4628
 ;;21,"00182-1259-89 ")
 ;;4629
 ;;21,"00182-1260-00 ")
 ;;4630
 ;;21,"00182-1260-89 ")
 ;;4631
 ;;21,"00182-1325-01 ")
 ;;1591
 ;;21,"00182-1326-01 ")
 ;;1592
 ;;21,"00182-1327-01 ")
 ;;1593
 ;;21,"00182-1328-01 ")
 ;;1594
 ;;21,"00182-1329-01 ")
 ;;1595
 ;;21,"00182-1329-89 ")
 ;;1596
 ;;21,"00182-1332-89 ")
 ;;1420
 ;;21,"00182-1333-10 ")
 ;;1421
 ;;21,"00182-1333-89 ")
 ;;1422
 ;;21,"00182-1878-01 ")
 ;;1597
 ;;21,"00182-2643-01 ")
 ;;4154
 ;;21,"00182-2644-01 ")
 ;;4155
 ;;21,"00182-2652-01 ")
 ;;1423
 ;;21,"00182-6043-71 ")
 ;;1598
 ;;21,"00185-0016-60 ")
 ;;3209
 ;;21,"00185-0017-01 ")
 ;;2627
 ;;21,"00185-0019-01 ")
 ;;1424
 ;;21,"00185-0019-10 ")
 ;;1425
 ;;21,"00185-0020-10 ")
 ;;2964
 ;;21,"00185-0020-30 ")
 ;;2965
 ;;21,"00185-0027-01 ")
 ;;2628
 ;;21,"00185-0027-05 ")
 ;;2629
 ;;21,"00185-0029-01 ")
 ;;1426
 ;;21,"00185-0038-60 ")
 ;;3210
 ;;21,"00185-0057-30 ")
 ;;4336
 ;;21,"00185-0080-01 ")
 ;;2224
 ;;21,"00185-0080-10 ")
 ;;2225
 ;;21,"00185-0081-60 ")
 ;;3211
 ;;21,"00185-0085-01 ")
 ;;2226
 ;;21,"00185-0085-10 ")
 ;;2227
 ;;21,"00185-0126-60 ")
 ;;3212
 ;;21,"00185-0153-01 ")
 ;;4337
 ;;21,"00185-0153-30 ")
 ;;4338
 ;;21,"00185-0157-01 ")
 ;;2630
 ;;21,"00185-0157-05 ")
 ;;2631
 ;;21,"00185-0212-10 ")
 ;;2966
 ;;21,"00185-0212-30 ")
 ;;2967
 ;;21,"00185-0222-10 ")
 ;;2968
 ;;21,"00185-0222-30 ")
 ;;2969
 ;;21,"00185-0265-30 ")
 ;;4339
 ;;21,"00185-0371-01 ")
 ;;991
 ;;21,"00185-0371-10 ")
 ;;992
 ;;21,"00185-0372-01 ")
 ;;993
 ;;21,"00185-0372-10 ")
 ;;994
 ;;21,"00185-0373-01 ")
 ;;995
 ;;21,"00185-0373-05 ")
 ;;996
 ;;21,"00185-0373-10 ")
 ;;997
 ;;21,"00185-0410-01 ")
 ;;762
 ;;21,"00185-0410-05 ")
 ;;763
 ;;21,"00185-0410-60 ")
 ;;764
 ;;21,"00185-0415-01 ")
 ;;765
 ;;21,"00185-0415-05 ")
 ;;766
 ;;21,"00185-0415-52 ")
 ;;767
 ;;21,"00185-0415-60 ")
 ;;768
 ;;21,"00185-0721-01 ")
 ;;1427
 ;;21,"00185-0721-10 ")
 ;;1428
 ;;21,"00185-0722-01 ")
 ;;1429
 ;;21,"00185-0722-05 ")
 ;;1430
 ;;21,"00185-0736-01 ")
 ;;1431
 ;;21,"00185-0736-05 ")
 ;;1432
 ;;21,"00185-0760-53 ")
 ;;1433
 ;;21,"00185-1111-60 ")
 ;;769
 ;;21,"00187-3805-10 ")
 ;;2914
 ;;21,"00187-3806-10 ")
 ;;2918
 ;;21,"00223-0195-01 ")
 ;;1
 ;;21,"00223-0195-02 ")
 ;;2
 ;;21,"00223-0196-01 ")
 ;;3
 ;;21,"00223-0196-02 ")
 ;;4
 ;;21,"00223-0197-01 ")
 ;;5
 ;;21,"00223-0197-02 ")
 ;;6
 ;;21,"00223-0198-01 ")
 ;;7
 ;;21,"00223-0198-02 ")
 ;;8
 ;;21,"00223-0199-01 ")
 ;;9
 ;;21,"00223-0200-01 ")
 ;;10
 ;;21,"00223-0201-01 ")
 ;;11
 ;;21,"00223-1102-01 ")
 ;;2674
 ;;21,"00223-1102-02 ")
 ;;2675
 ;;21,"00223-1103-01 ")
 ;;2676
 ;;21,"00223-1103-02 ")
 ;;2677
 ;;21,"00223-1104-01 ")
 ;;2678
 ;;21,"00223-1104-02 ")
 ;;2679
 ;;21,"00228-2131-10 ")
 ;;12
 ;;21,"00228-2131-96 ")
 ;;13
 ;;21,"00228-2132-10 ")
 ;;14
 ;;21,"00228-2132-96 ")
 ;;15
 ;;21,"00228-2133-10 ")
 ;;16
 ;;21,"00228-2133-96 ")
 ;;17
 ;;21,"00228-2134-10 ")
 ;;18
 ;;21,"00228-2135-10 ")
 ;;19
 ;;21,"00228-2439-10 ")
 ;;4632
 ;;21,"00228-2439-50 ")
 ;;4633
 ;;21,"00228-2441-10 ")
 ;;4634
 ;;21,"00228-2655-11 ")
 ;;2632
 ;;21,"00228-2655-50 ")
 ;;2633
 ;;21,"00228-2656-11 ")
 ;;2634
 ;;21,"00228-2656-50 ")
 ;;2635
 ;;21,"00228-2702-11 ")
 ;;2228
 ;;21,"00228-2703-11 ")
 ;;2229
 ;;21,"00228-2704-11 ")
 ;;2636
 ;;21,"00228-2704-50 ")
 ;;2637
 ;;21,"00228-2721-03 ")
 ;;4340
 ;;21,"00228-2721-09 ")
 ;;4341
 ;;21,"00228-2721-50 ")
 ;;4342
 ;;21,"00228-2722-03 ")
 ;;4343
 ;;21,"00228-2722-09 ")
 ;;4344
 ;;21,"00228-2722-90 ")
 ;;4345
 ;;21,"00228-2723-03 ")
 ;;4346
 ;;21,"00228-2723-09 ")
 ;;4347
 ;;21,"00228-2723-96 ")
 ;;4348
 ;;21,"00228-2755-11 ")
 ;;998
 ;;21,"00228-2756-11 ")
 ;;999
 ;;21,"00228-2756-50 ")
 ;;1000
 ;;21,"00228-2757-11 ")
 ;;1001
 ;;21,"00228-2757-50 ")
 ;;1002
 ;;21,"00247-0038-07 ")
 ;;1434
 ;;21,"00247-0038-14 ")
 ;;1435
 ;;21,"00247-0038-15 ")
 ;;1436
 ;;21,"00247-0038-20 ")
 ;;1437
 ;;21,"00247-0038-25 ")
 ;;1438
 ;;21,"00247-0038-30 ")
 ;;1439
 ;;21,"00247-0038-40 ")
 ;;1440
 ;;21,"00247-0038-60 ")
 ;;1441
 ;;21,"00247-0038-90 ")
 ;;1442
 ;;21,"00247-0370-30 ")
 ;;3296
 ;;21,"00247-0371-03 ")
 ;;5236
 ;;21,"00247-0371-06 ")
 ;;5237
 ;;21,"00247-0371-07 ")
 ;;5238
 ;;21,"00247-0371-10 ")
 ;;5239
 ;;21,"00247-0371-14 ")
 ;;5240
 ;;21,"00247-0371-28 ")
 ;;5241
 ;;21,"00247-0371-30 ")
 ;;5242
 ;;21,"00247-0371-45 ")
 ;;5243
 ;;21,"00247-0371-50 ")
 ;;5244
 ;;21,"00247-0371-60 ")
 ;;5245
 ;;21,"00247-0372-00 ")
 ;;4164
 ;;21,"00247-0372-03 ")
 ;;4165
 ;;21,"00247-0372-04 ")
 ;;4166
 ;;21,"00247-0372-07 ")
 ;;4167
 ;;21,"00247-0372-10 ")
 ;;4168
 ;;21,"00247-0372-14 ")
 ;;4169
 ;;21,"00247-0372-15 ")
 ;;4170
 ;;21,"00247-0372-28 ")
 ;;4171
 ;;21,"00247-0372-30 ")
 ;;4172
 ;;21,"00247-0372-52 ")
 ;;4173
 ;;21,"00247-0372-60 ")
 ;;4174
 ;;21,"00247-0614-20 ")
 ;;20
 ;;21,"00247-0614-30 ")
 ;;21
 ;;21,"00247-0614-50 ")
 ;;22
 ;;21,"00247-0614-60 ")
 ;;23
 ;;21,"00247-0614-90 ")
 ;;24
 ;;21,"00247-0615-00 ")
 ;;25
 ;;21,"00247-0615-04 ")
 ;;26
 ;;21,"00247-0615-07 ")
 ;;27
 ;;21,"00247-0615-10 ")
 ;;28
 ;;21,"00247-0615-12 ")
 ;;29
 ;;21,"00247-0615-15 ")
 ;;30
 ;;21,"00247-0615-30 ")
 ;;31
 ;;21,"00247-0615-50 ")
 ;;32
 ;;21,"00247-0615-52 ")
 ;;33
 ;;21,"00247-0615-60 ")
 ;;34
 ;;21,"00247-0615-90 ")
 ;;35
 ;;21,"00247-0616-10 ")
 ;;3297
 ;;21,"00247-0616-15 ")
 ;;3298
 ;;21,"00247-0616-30 ")
 ;;3299
 ;;21,"00247-0644-00 ")
 ;;4175
 ;;21,"00247-0644-03 ")
 ;;4176
 ;;21,"00247-0644-07 ")
 ;;4177
 ;;21,"00247-0644-10 ")
 ;;4178
 ;;21,"00247-0644-14 ")
 ;;4179
 ;;21,"00247-0644-28 ")
 ;;4180
 ;;21,"00247-0644-30 ")
 ;;4181
 ;;21,"00247-0644-60 ")
 ;;4182
 ;;21,"00247-0673-00 ")
 ;;4635
 ;;21,"00247-0673-07 ")
 ;;4636
 ;;21,"00247-0673-10 ")
 ;;4637
 ;;21,"00247-0673-14 ")
 ;;4638
 ;;21,"00247-0673-30 ")
 ;;4639
 ;;21,"00247-0673-60 ")
 ;;4640
 ;;21,"00247-0673-90 ")
 ;;4641
 ;;21,"00247-0675-03 ")
 ;;5246
 ;;21,"00247-0675-07 ")
 ;;5247
 ;;21,"00247-0675-08 ")
 ;;5248
 ;;21,"00247-0675-14 ")
 ;;5249
 ;;21,"00247-0675-30 ")
 ;;5250
 ;;21,"00247-0675-33 ")
 ;;5251
 ;;21,"00247-0675-90 ")
 ;;5252
 ;;21,"00247-0677-07 ")
 ;;5123
 ;;21,"00247-0773-00 ")
 ;;1599
 ;;21,"00247-0773-30 ")
 ;;1600
 ;;21,"00247-0773-90 ")
 ;;1601
 ;;21,"00247-0787-07 ")
 ;;3975
 ;;21,"00247-0787-10 ")
 ;;3976
 ;;21,"00247-0787-14 ")
 ;;3977
 ;;21,"00247-0787-15 ")
 ;;3978
 ;;21,"00247-0787-28 ")
 ;;3979
 ;;21,"00247-0787-30 ")
 ;;3980
 ;;21,"00247-0787-50 ")
 ;;3981
 ;;21,"00247-0787-60 ")
 ;;3982
 ;;21,"00247-0789-07 ")
 ;;2680
 ;;21,"00247-0789-14 ")
 ;;2681
 ;;21,"00247-0789-30 ")
 ;;2682
 ;;21,"00247-0808-07 ")
 ;;2921
 ;;21,"00247-0808-14 ")
 ;;2922
 ;;21,"00247-0808-30 ")
 ;;2923
 ;;21,"00247-0809-07 ")
 ;;2924
 ;;21,"00247-0809-14 ")
 ;;2925
 ;;21,"00247-0809-30 ")
 ;;2926
 ;;21,"00247-0810-07 ")
 ;;2927
 ;;21,"00247-0810-14 ")
 ;;2928
 ;;21,"00247-0810-30 ")
 ;;2929
 ;;21,"00247-0815-00 ")
 ;;1443
 ;;21,"00247-0815-30 ")
 ;;1444
 ;;21,"00247-0853-04 ")
 ;;1904
 ;;21,"00247-0853-06 ")
 ;;1905
 ;;21,"00247-0853-08 ")
 ;;1906
 ;;21,"00247-0853-30 ")
 ;;1907
 ;;21,"00247-0853-60 ")
 ;;1908
 ;;21,"00247-0853-90 ")
 ;;1909
 ;;21,"00247-1035-30 ")
 ;;1910
 ;;21,"00247-1035-60 ")
 ;;1911
 ;;21,"00247-1035-90 ")
 ;;1912
 ;;21,"00247-1041-03 ")
 ;;4642
 ;;21,"00247-1041-07 ")
 ;;4643
 ;;21,"00247-1041-30 ")
 ;;4644
 ;;21,"00247-1042-30 ")
 ;;4645
 ;;21,"00247-1056-60 ")
 ;;3610
 ;;21,"00247-1057-15 ")
 ;;3611
 ;;21,"00247-1057-60 ")
 ;;3612
 ;;21,"00247-1058-60 ")
 ;;3613
 ;;21,"00247-1075-10 ")
 ;;3300
 ;;21,"00247-1075-30 ")
 ;;3301
 ;;21,"00247-1075-60 ")
 ;;3302
 ;;21,"00247-1177-07 ")
 ;;1602
 ;;21,"00247-1177-30 ")
 ;;1603
 ;;21,"00247-1201-00 ")
 ;;36
 ;;21,"00247-1201-30 ")
 ;;37
 ;;21,"00247-1214-03 ")
 ;;3983
 ;;21,"00247-1214-07 ")
 ;;3984
 ;;21,"00247-1214-30 ")
 ;;3985
 ;;21,"00247-1232-30 ")
 ;;1604
 ;;21,"00247-1233-30 ")
 ;;1605
 ;;21,"00247-1242-30 ")
 ;;38
 ;;21,"00247-1243-30 ")
 ;;39
 ;;21,"00247-1521-30 ")
 ;;1913
 ;;21,"00247-1521-60 ")
 ;;1914
 ;;21,"00247-1522-30 ")
 ;;1915
 ;;21,"00247-1522-60 ")
 ;;1916
 ;;21,"00247-1523-30 ")
 ;;1917
 ;;21,"00247-1523-60 ")
 ;;1918
 ;;21,"00247-1677-10 ")
 ;;5132
 ;;21,"00247-1677-60 ")
 ;;5133
 ;;21,"00247-1679-10 ")
 ;;3303
 ;;21,"00247-1679-60 ")
 ;;3304
 ;;21,"00247-1680-10 ")
 ;;2683
 ;;21,"00247-1731-30 ")
 ;;1606
 ;;21,"00247-1731-60 ")
 ;;1607
 ;;21,"00247-1731-90 ")
 ;;1608
 ;;21,"00247-1813-04 ")
 ;;4646
 ;;21,"00247-1813-08 ")
 ;;4647
 ;;21,"00247-1813-30 ")
 ;;4648
 ;;21,"00247-1814-08 ")
 ;;3986
 ;;21,"00247-1814-14 ")
 ;;3987
 ;;21,"00247-1814-30 ")
 ;;3988
 ;;21,"00247-1843-03 ")
 ;;4258
 ;;21,"00247-1843-07 ")
 ;;4259
 ;;21,"00247-1843-08 ")
 ;;4260
 ;;21,"00247-1843-14 ")
 ;;4261
 ;;21,"00247-1845-07 ")
 ;;1586
 ;;21,"00247-1850-04 ")
 ;;2046
 ;;21,"00247-1850-08 ")
 ;;2047
 ;;21,"00247-1850-30 ")
 ;;2048
 ;;21,"00247-1893-00 ")
 ;;899
 ;;21,"00247-1893-07 ")
 ;;900
 ;;21,"00247-1893-30 ")
 ;;901
 ;;21,"00247-1893-60 ")
 ;;902
 ;;21,"00247-1893-77 ")
 ;;903
 ;;21,"00247-1893-90 ")
 ;;904
 ;;21,"00247-1894-07 ")
 ;;905
 ;;21,"00247-1894-30 ")
 ;;906
 ;;21,"00247-1894-60 ")
 ;;907
 ;;21,"00247-1894-77 ")
 ;;908
 ;;21,"00247-1894-90 ")
 ;;909
 ;;21,"00247-1915-03 ")
 ;;2230
 ;;21,"00247-1915-07 ")
 ;;2231
 ;;21,"00247-1915-30 ")
 ;;2232
 ;;21,"00247-1915-90 ")
 ;;2233
 ;;21,"00247-1918-15 ")
 ;;4262
 ;;21,"00247-1918-30 ")
 ;;4263
 ;;21,"00247-1961-00 ")
 ;;620
 ;;21,"00247-1961-14 ")
 ;;621
 ;;21,"00247-1961-30 ")
 ;;622
 ;;21,"00247-1961-60 ")
 ;;623
 ;;21,"00247-1964-30 ")
 ;;2234
 ;;21,"00247-1964-90 ")
 ;;2235
 ;;21,"00247-1965-00 ")
 ;;2236
 ;;21,"00247-1965-03 ")
 ;;2237
 ;;21,"00247-1965-14 ")
 ;;2238
 ;;21,"00247-1965-30 ")
 ;;2239
 ;;21,"00247-1965-60 ")
 ;;2240
 ;;21,"00247-1965-90 ")
 ;;2241
 ;;21,"00247-1965-99 ")
 ;;2242
 ;;21,"00247-2052-00 ")
 ;;3635
 ;;21,"00247-2052-07 ")
 ;;3636
 ;;21,"00247-2052-30 ")
 ;;3637
 ;;21,"00247-2052-90 ")
 ;;3638
 ;;21,"00247-2077-30 ")
 ;;770
 ;;21,"00247-2077-60 ")
 ;;771
 ;;21,"00247-2083-30 ")
 ;;2970
 ;;21,"00247-2083-60 ")
 ;;2971
 ;;21,"00247-2083-90 ")
 ;;2972
 ;;21,"00247-2084-30 ")
 ;;2973
 ;;21,"00247-2084-60 ")
 ;;2974
 ;;21,"00247-2085-30 ")
 ;;3639
 ;;21,"00247-2094-30 ")
 ;;3640
 ;;21,"00247-2094-90 ")
 ;;3641
 ;;21,"00247-2117-30 ")
 ;;2826
 ;;21,"00247-2132-00 ")
 ;;1003
 ;;21,"00247-2132-07 ")
 ;;1004
 ;;21,"00247-2132-30 ")
 ;;1005
 ;;21,"00247-2132-60 ")
 ;;1006
 ;;21,"00247-2132-90 ")
 ;;1007
 ;;21,"00247-2133-00 ")
 ;;1008
 ;;21,"00247-2133-07 ")
 ;;1009
 ;;21,"00247-2133-30 ")
 ;;1010
 ;;21,"00247-2133-60 ")
 ;;1011
 ;;21,"00247-2133-90 ")
 ;;1012
 ;;21,"00247-2134-00 ")
 ;;1013
 ;;21,"00247-2134-07 ")
 ;;1014
 ;;21,"00247-2134-30 ")
 ;;1015
 ;;21,"00247-2134-60 ")
 ;;1016
 ;;21,"00247-2134-90 ")
 ;;1017
 ;;21,"00247-2262-30 ")
 ;;2827
 ;;21,"00247-2265-30 ")
 ;;3642
 ;;21,"00247-2265-60 ")
 ;;3643
 ;;21,"00247-2265-90 ")
 ;;3644
 ;;21,"00247-2271-30 ")
 ;;4349
 ;;21,"00247-2272-00 ")
 ;;4350