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

BGP13X2.m

Go to the documentation of this file.
BGP13X2 ; 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,"00093-7327-01 ")
 ;;3131
 ;;21,"00093-7364-10 ")
 ;;3666
 ;;21,"00093-7364-98 ")
 ;;3667
 ;;21,"00093-7365-10 ")
 ;;3719
 ;;21,"00093-7365-56 ")
 ;;3720
 ;;21,"00093-7365-98 ")
 ;;3721
 ;;21,"00093-7366-10 ")
 ;;3605
 ;;21,"00093-7366-56 ")
 ;;3606
 ;;21,"00093-7366-98 ")
 ;;3607
 ;;21,"00093-7367-10 ")
 ;;3333
 ;;21,"00093-7367-56 ")
 ;;3334
 ;;21,"00093-7367-98 ")
 ;;3335
 ;;21,"00093-7368-10 ")
 ;;3288
 ;;21,"00093-7368-56 ")
 ;;3289
 ;;21,"00093-7368-98 ")
 ;;3290
 ;;21,"00093-7369-10 ")
 ;;3249
 ;;21,"00093-7369-56 ")
 ;;3250
 ;;21,"00093-7369-98 ")
 ;;3251
 ;;21,"00093-7370-01 ")
 ;;37
 ;;21,"00093-7371-01 ")
 ;;51
 ;;21,"00093-7371-10 ")
 ;;69
 ;;21,"00093-7372-01 ")
 ;;82
 ;;21,"00093-7373-01 ")
 ;;2
 ;;21,"00093-7373-10 ")
 ;;18
 ;;21,"00093-7436-01 ")
 ;;2995
 ;;21,"00093-7437-01 ")
 ;;3037
 ;;21,"00093-7438-01 ")
 ;;2942
 ;;21,"00093-8132-01 ")
 ;;881
 ;;21,"00093-8132-10 ")
 ;;882
 ;;21,"00093-8133-01 ")
 ;;949
 ;;21,"00093-8133-10 ")
 ;;950
 ;;21,"00093-8134-01 ")
 ;;1064
 ;;21,"00093-8134-10 ")
 ;;1065
 ;;21,"00093-8135-01 ")
 ;;848
 ;;21,"00143-1171-01 ")
 ;;883
 ;;21,"00143-1171-10 ")
 ;;884
 ;;21,"00143-1171-25 ")
 ;;885
 ;;21,"00143-1172-01 ")
 ;;951
 ;;21,"00143-1172-10 ")
 ;;952
 ;;21,"00143-1172-25 ")
 ;;953
 ;;21,"00143-1173-01 ")
 ;;1066
 ;;21,"00143-1173-10 ")
 ;;1067
 ;;21,"00143-1173-25 ")
 ;;1068
 ;;21,"00143-1174-01 ")
 ;;849
 ;;21,"00143-1174-25 ")
 ;;850
 ;;21,"00143-1262-01 ")
 ;;317
 ;;21,"00143-1262-10 ")
 ;;318
 ;;21,"00143-1263-01 ")
 ;;389
 ;;21,"00143-1263-10 ")
 ;;390
 ;;21,"00143-1264-01 ")
 ;;475
 ;;21,"00143-1264-10 ")
 ;;476
 ;;21,"00143-1265-01 ")
 ;;2069
 ;;21,"00143-1265-09 ")
 ;;2070
 ;;21,"00143-1265-10 ")
 ;;2071
 ;;21,"00143-1266-01 ")
 ;;2590
 ;;21,"00143-1266-09 ")
 ;;2591
 ;;21,"00143-1266-10 ")
 ;;2592
 ;;21,"00143-1266-30 ")
 ;;2593
 ;;21,"00143-1266-45 ")
 ;;2594
 ;;21,"00143-1267-01 ")
 ;;1851
 ;;21,"00143-1267-09 ")
 ;;1852
 ;;21,"00143-1267-10 ")
 ;;1853
 ;;21,"00143-1267-18 ")
 ;;1854
 ;;21,"00143-1267-30 ")
 ;;1855
 ;;21,"00143-1267-45 ")
 ;;1856
 ;;21,"00143-1268-01 ")
 ;;2151
 ;;21,"00143-1268-09 ")
 ;;2152
 ;;21,"00143-1268-10 ")
 ;;2153
 ;;21,"00143-1268-18 ")
 ;;2154
 ;;21,"00143-1268-30 ")
 ;;2155
 ;;21,"00143-1268-45 ")
 ;;2156
 ;;21,"00143-1270-01 ")
 ;;2417
 ;;21,"00143-1270-09 ")
 ;;2418
 ;;21,"00143-1270-10 ")
 ;;2419
 ;;21,"00143-1270-18 ")
 ;;2420
 ;;21,"00143-1270-30 ")
 ;;2421
 ;;21,"00143-1270-45 ")
 ;;2422
 ;;21,"00143-1280-01 ")
 ;;2364
 ;;21,"00143-1280-10 ")
 ;;2365
 ;;21,"00143-9125-01 ")
 ;;3096
 ;;21,"00143-9126-01 ")
 ;;3114
 ;;21,"00143-9127-01 ")
 ;;3132
 ;;21,"00172-2515-60 ")
 ;;221
 ;;21,"00172-3757-00 ")
 ;;2072
 ;;21,"00172-3757-10 ")
 ;;2073
 ;;21,"00172-3757-60 ")
 ;;2074
 ;;21,"00172-3757-70 ")
 ;;2075
 ;;21,"00172-3758-00 ")
 ;;2595
 ;;21,"00172-3758-10 ")
 ;;2596
 ;;21,"00172-3758-60 ")
 ;;2597
 ;;21,"00172-3758-70 ")
 ;;2598
 ;;21,"00172-3758-80 ")
 ;;2599
 ;;21,"00172-3759-00 ")
 ;;1857
 ;;21,"00172-3759-10 ")
 ;;1858
 ;;21,"00172-3759-60 ")
 ;;1859
 ;;21,"00172-3759-70 ")
 ;;1860
 ;;21,"00172-3759-80 ")
 ;;1861
 ;;21,"00172-3759-85 ")
 ;;1862
 ;;21,"00172-3760-00 ")
 ;;2157
 ;;21,"00172-3760-10 ")
 ;;2158
 ;;21,"00172-3760-60 ")
 ;;2159
 ;;21,"00172-3760-70 ")
 ;;2160
 ;;21,"00172-3760-80 ")
 ;;2161
 ;;21,"00172-3760-85 ")
 ;;2162
 ;;21,"00172-3761-00 ")
 ;;2423
 ;;21,"00172-3761-10 ")
 ;;2424
 ;;21,"00172-3761-60 ")
 ;;2425
 ;;21,"00172-3761-70 ")
 ;;2426
 ;;21,"00172-3761-80 ")
 ;;2427
 ;;21,"00172-3762-00 ")
 ;;2366
 ;;21,"00172-3762-10 ")
 ;;2367
 ;;21,"00172-3762-60 ")
 ;;2368
 ;;21,"00172-3762-70 ")
 ;;2369
 ;;21,"00172-4195-10 ")
 ;;1314
 ;;21,"00172-4195-60 ")
 ;;1315
 ;;21,"00172-4195-64 ")
 ;;1316
 ;;21,"00172-4195-80 ")
 ;;1317
 ;;21,"00172-4195-93 ")
 ;;1318
 ;;21,"00172-4196-10 ")
 ;;1525
 ;;21,"00172-4196-60 ")
 ;;1526
 ;;21,"00172-4196-64 ")
 ;;1527
 ;;21,"00172-4196-80 ")
 ;;1528
 ;;21,"00172-4196-93 ")
 ;;1529
 ;;21,"00172-4197-10 ")
 ;;1167
 ;;21,"00172-4197-60 ")
 ;;1168
 ;;21,"00172-4197-80 ")
 ;;1169
 ;;21,"00172-4197-93 ")
 ;;1170
 ;;21,"00172-4198-10 ")
 ;;1395
 ;;21,"00172-4198-60 ")
 ;;1396
 ;;21,"00172-4198-64 ")
 ;;1397
 ;;21,"00172-4198-80 ")
 ;;1398
 ;;21,"00172-4198-93 ")
 ;;1399
 ;;21,"00172-5025-60 ")
 ;;242
 ;;21,"00172-5032-00 ")
 ;;477
 ;;21,"00172-5032-10 ")
 ;;478
 ;;21,"00172-5032-60 ")
 ;;479
 ;;21,"00172-5032-70 ")
 ;;480
 ;;21,"00172-5032-80 ")
 ;;481
 ;;21,"00172-5033-00 ")
 ;;319
 ;;21,"00172-5033-10 ")
 ;;320
 ;;21,"00172-5033-60 ")
 ;;321
 ;;21,"00172-5033-70 ")
 ;;322
 ;;21,"00172-5033-80 ")
 ;;323
 ;;21,"00172-5034-00 ")
 ;;391
 ;;21,"00172-5034-10 ")
 ;;392
 ;;21,"00172-5034-60 ")
 ;;393
 ;;21,"00172-5034-70 ")
 ;;394
 ;;21,"00172-5034-80 ")
 ;;395
 ;;21,"00172-5350-60 ")
 ;;814
 ;;21,"00172-5350-70 ")
 ;;815
 ;;21,"00172-5351-10 ")
 ;;600
 ;;21,"00172-5351-60 ")
 ;;601
 ;;21,"00172-5351-70 ")
 ;;602
 ;;21,"00172-5351-80 ")
 ;;603
 ;;21,"00172-5352-10 ")
 ;;673
 ;;21,"00172-5352-60 ")
 ;;674
 ;;21,"00172-5352-70 ")
 ;;675
 ;;21,"00172-5352-80 ")
 ;;676
 ;;21,"00172-5353-10 ")
 ;;748
 ;;21,"00172-5353-60 ")
 ;;749
 ;;21,"00172-5353-70 ")
 ;;750
 ;;21,"00172-5353-80 ")
 ;;751
 ;;21,"00172-5360-60 ")
 ;;212
 ;;21,"00172-5361-60 ")
 ;;149
 ;;21,"00172-5361-70 ")
 ;;150
 ;;21,"00172-5362-60 ")
 ;;169
 ;;21,"00172-5362-70 ")
 ;;170
 ;;21,"00172-5363-60 ")
 ;;192
 ;;21,"00172-5363-70 ")
 ;;193
 ;;21,"00182-2623-89 ")
 ;;954
 ;;21,"00185-0025-01 ")
 ;;2076
 ;;21,"00185-0025-10 ")
 ;;2077
 ;;21,"00185-0041-09 ")
 ;;1664
 ;;21,"00185-0041-10 ")
 ;;1665
 ;;21,"00185-0042-09 ")
 ;;1717
 ;;21,"00185-0042-10 ")
 ;;1718
 ;;21,"00185-0047-09 ")
 ;;1791
 ;;21,"00185-0047-10 ")
 ;;1792
 ;;21,"00185-0048-01 ")
 ;;752
 ;;21,"00185-0048-05 ")
 ;;753
 ;;21,"00185-0053-01 ")
 ;;604
 ;;21,"00185-0053-05 ")
 ;;605
 ;;21,"00185-0101-01 ")
 ;;1863
 ;;21,"00185-0101-10 ")
 ;;1864
 ;;21,"00185-0101-33 ")
 ;;1865
 ;;21,"00185-0102-01 ")
 ;;2163
 ;;21,"00185-0102-10 ")
 ;;2164
 ;;21,"00185-0102-33 ")
 ;;2165
 ;;21,"00185-0103-01 ")
 ;;2370
 ;;21,"00185-0103-10 ")
 ;;2371
 ;;21,"00185-0104-01 ")
 ;;2428
 ;;21,"00185-0104-10 ")
 ;;2429
 ;;21,"00185-0114-01 ")
 ;;1319
 ;;21,"00185-0114-10 ")
 ;;1320
 ;;21,"00185-0114-50 ")
 ;;1321
 ;;21,"00185-0124-01 ")
 ;;213
 ;;21,"00185-0127-01 ")
 ;;1530
 ;;21,"00185-0127-10 ")
 ;;1531
 ;;21,"00185-0127-50 ")
 ;;1532
 ;;21,"00185-0147-01 ")
 ;;1171
 ;;21,"00185-0147-10 ")
 ;;1172
 ;;21,"00185-0147-50 ")
 ;;1173
 ;;21,"00185-0151-01 ")
 ;;278
 ;;21,"00185-0152-01 ")
 ;;396
 ;;21,"00185-0152-10 ")
 ;;397
 ;;21,"00185-0172-01 ")
 ;;253
 ;;21,"00185-0172-10 ")
 ;;254
 ;;21,"00185-0173-01 ")
 ;;482
 ;;21,"00185-0173-10 ")
 ;;483
 ;;21,"00185-0204-01 ")
 ;;151
 ;;21,"00185-0211-01 ")
 ;;171
 ;;21,"00185-0214-01 ")
 ;;1400
 ;;21,"00185-0214-10 ")
 ;;1401
 ;;21,"00185-0214-50 ")
 ;;1402
 ;;21,"00185-0277-01 ")
 ;;194
 ;;21,"00185-0341-01 ")
 ;;297
 ;;21,"00185-0342-01 ")
 ;;306
 ;;21,"00185-0505-01 ")
 ;;816
 ;;21,"00185-0505-05 ")
 ;;817
 ;;21,"00185-0820-01 ")
 ;;677
 ;;21,"00185-0820-05 ")
 ;;678
 ;;21,"00185-5400-01 ")
 ;;2600
 ;;21,"00185-5400-10 ")
 ;;2601
 ;;21,"00185-5400-33 ")
 ;;2602
 ;;21,"00185-7100-01 ")
 ;;324
 ;;21,"00185-7100-10 ")
 ;;325
 ;;21,"00186-0001-31 ")
 ;;120
 ;;21,"00186-0001-68 ")
 ;;121
 ;;21,"00186-0002-31 ")
 ;;119
 ;;21,"00186-0004-31 ")
 ;;3517
 ;;21,"00186-0008-31 ")
 ;;3519
 ;;21,"00186-0016-28 ")
 ;;3498
 ;;21,"00186-0016-31 ")
 ;;3499
 ;;21,"00186-0016-54 ")
 ;;3500
 ;;21,"00186-0032-28 ")
 ;;3510
 ;;21,"00186-0032-31 ")
 ;;3511
 ;;21,"00186-0032-54 ")
 ;;3512
 ;;21,"00186-0162-28 ")
 ;;3196
 ;;21,"00186-0162-54 ")
 ;;3197
 ;;21,"00186-0322-28 ")
 ;;3199
 ;;21,"00186-0322-54 ")
 ;;3200
 ;;21,"00186-0324-54 ")
 ;;3497
 ;;21,"00228-2658-11 ")
 ;;1322
 ;;21,"00228-2658-96 ")
 ;;1323
 ;;21,"00228-2659-11 ")
 ;;1533
 ;;21,"00228-2659-96 ")
 ;;1534
 ;;21,"00228-2660-11 ")
 ;;1174
 ;;21,"00228-2660-96 ")
 ;;1175
 ;;21,"00228-2661-11 ")
 ;;1403
 ;;21,"00228-2661-96 ")
 ;;1404
 ;;21,"00228-2695-11 ")
 ;;2996
 ;;21,"00228-2695-50 ")
 ;;2997
 ;;21,"00228-2696-11 ")
 ;;3038
 ;;21,"00228-2696-50 ")
 ;;3039
 ;;21,"00228-2697-11 ")
 ;;2943
 ;;21,"00228-2697-50 ")
 ;;2944
 ;;21,"00228-2706-03 ")
 ;;326
 ;;21,"00228-2706-11 ")
 ;;327
 ;;21,"00228-2707-03 ")
 ;;398
 ;;21,"00228-2707-11 ")
 ;;399
 ;;21,"00228-2708-03 ")
 ;;484
 ;;21,"00228-2708-11 ")
 ;;485
 ;;21,"00245-0193-01 ")
 ;;3668
 ;;21,"00245-0193-10 ")
 ;;3669
 ;;21,"00245-0193-30 ")
 ;;3670
 ;;21,"00245-0193-90 ")
 ;;3671
 ;;21,"00245-0194-01 ")
 ;;3722
 ;;21,"00245-0194-10 ")
 ;;3723
 ;;21,"00245-0194-30 ")
 ;;3724
 ;;21,"00245-0194-90 ")
 ;;3725
 ;;21,"00245-0195-01 ")
 ;;3608
 ;;21,"00245-0195-10 ")
 ;;3609
 ;;21,"00245-0195-30 ")
 ;;3610
 ;;21,"00245-0195-90 ")
 ;;3611
 ;;21,"00247-1023-00 ")
 ;;2166
 ;;21,"00247-1023-30 ")
 ;;2167
 ;;21,"00247-1023-60 ")
 ;;2168
 ;;21,"00247-1090-30 ")
 ;;2945
 ;;21,"00247-1090-60 ")
 ;;2946
 ;;21,"00247-1091-30 ")
 ;;3040
 ;;21,"00247-1091-60 ")
 ;;3041
 ;;21,"00247-1147-10 ")
 ;;1866
 ;;21,"00247-1147-30 ")
 ;;1867
 ;;21,"00247-1147-60 ")
 ;;1868
 ;;21,"00247-1149-30 ")
 ;;400
 ;;21,"00247-1149-60 ")
 ;;401
 ;;21,"00247-1150-30 ")
 ;;486
 ;;21,"00247-1150-60 ")
 ;;487
 ;;21,"00247-1222-00 ")
 ;;1069
 ;;21,"00247-1396-30 ")
 ;;2078
 ;;21,"00310-0130-10 ")
 ;;2603
 ;;21,"00310-0130-11 ")
 ;;2604
 ;;21,"00310-0130-34 ")
 ;;2605
 ;;21,"00310-0130-39 ")
 ;;2606
 ;;21,"00310-0131-10 ")
 ;;1869
 ;;21,"00310-0131-11 ")
 ;;1870
 ;;21,"00310-0131-34 ")
 ;;1871
 ;;21,"00310-0131-39 ")
 ;;1872
 ;;21,"00310-0131-73 ")
 ;;1873
 ;;21,"00310-0132-10 ")
 ;;2169
 ;;21,"00310-0132-11 ")
 ;;2170
 ;;21,"00310-0132-34 ")
 ;;2171
 ;;21,"00310-0132-39 ")
 ;;2172
 ;;21,"00310-0132-73 ")
 ;;2173
 ;;21,"00310-0133-10 ")
 ;;2372
 ;;21,"00310-0133-11 ")
 ;;2412
 ;;21,"00310-0134-10 ")
 ;;2430
 ;;21,"00310-0134-11 ")
 ;;2560
 ;;21,"00310-0135-10 ")
 ;;2079
 ;;21,"00310-0141-10 ")
 ;;328
 ;;21,"00310-0141-11 ")
 ;;373
 ;;21,"00310-0142-10 ")
 ;;402
 ;;21,"00310-0145-10 ")
 ;;488
 ;;21,"00310-0145-11 ")
 ;;527
 ;;21,"00378-0081-01 ")
 ;;222
 ;;21,"00378-0083-01 ")
 ;;229
 ;;21,"00378-0084-01 ")
 ;;236
 ;;21,"00378-0086-01 ")
 ;;243
 ;;21,"00378-0226-77 ")
 ;;2814
 ;;21,"00378-0254-77 ")
 ;;2845
 ;;21,"00378-0272-77 ")
 ;;2874
 ;;21,"00378-0441-01 ")
 ;;818
 ;;21,"00378-0443-01 ")
 ;;606
 ;;21,"00378-0444-01 ")
 ;;679
 ;;21,"00378-0447-01 ")
 ;;754
 ;;21,"00378-0542-77 ")
 ;;571
 ;;21,"00378-0543-77 ")
 ;;579
 ;;21,"00378-0544-77 ")
 ;;588
 ;;21,"00378-0712-01 ")
 ;;279
 ;;21,"00378-0723-01 ")
 ;;255
 ;;21,"00378-1012-01 ")
 ;;329
 ;;21,"00378-1051-01 ")
 ;;1324
 ;;21,"00378-1051-05 ")
 ;;1325
 ;;21,"00378-1052-01 ")
 ;;1535
 ;;21,"00378-1052-10 ")
 ;;1536
 ;;21,"00378-1053-01 ")
 ;;1176
 ;;21,"00378-1053-10 ")
 ;;1177
 ;;21,"00378-1054-01 ")
 ;;1405
 ;;21,"00378-1054-05 ")
 ;;1406
 ;;21,"00378-1117-77 ")
 ;;2905
 ;;21,"00378-1419-10 ")
 ;;3252
 ;;21,"00378-1419-77 ")
 ;;3253
 ;;21,"00378-2012-01 ")
 ;;403
 ;;21,"00378-2025-01 ")
 ;;489
 ;;21,"00378-2072-01 ")
 ;;2080
 ;;21,"00378-2073-01 ")
 ;;2607
 ;;21,"00378-2073-10 ")
 ;;2608
 ;;21,"00378-2074-01 ")
 ;;1874
 ;;21,"00378-2074-10 ")
 ;;1875
 ;;21,"00378-2075-01 ")
 ;;2174
 ;;21,"00378-2075-10 ")
 ;;2175
 ;;21,"00378-2076-01 ")
 ;;2431
 ;;21,"00378-2076-05 ")
 ;;2432
 ;;21,"00378-2077-01 ")
 ;;2373
 ;;21,"00378-3007-01 ")
 ;;886
 ;;21,"00378-3007-10 ")
 ;;887
 ;;21,"00378-3012-01 ")
 ;;955
 ;;21,"00378-3012-10 ")
 ;;956
 ;;21,"00378-3017-01 ")
 ;;1070
 ;;21,"00378-3017-10 ")
 ;;1071
 ;;21,"00378-3022-01 ")
 ;;851
 ;;21,"00378-3241-01 ")
 ;;3097
 ;;21,"00378-3242-01 ")
 ;;3115