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

BGP13T9.m

Go to the documentation of this file.
BGP13T9 ; 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,"55045-1721-08 ")
 ;;2735
 ;;21,"55045-1722-01 ")
 ;;2736
 ;;21,"55045-1722-08 ")
 ;;2737
 ;;21,"55045-1724-00 ")
 ;;4799
 ;;21,"55045-1724-01 ")
 ;;4800
 ;;21,"55045-1724-06 ")
 ;;4801
 ;;21,"55045-1724-08 ")
 ;;4802
 ;;21,"55045-1724-09 ")
 ;;4803
 ;;21,"55045-1741-00 ")
 ;;288
 ;;21,"55045-1741-01 ")
 ;;289
 ;;21,"55045-1741-02 ")
 ;;290
 ;;21,"55045-1741-03 ")
 ;;291
 ;;21,"55045-1741-05 ")
 ;;292
 ;;21,"55045-1741-06 ")
 ;;293
 ;;21,"55045-1741-08 ")
 ;;294
 ;;21,"55045-1741-09 ")
 ;;295
 ;;21,"55045-1794-08 ")
 ;;2738
 ;;21,"55045-1837-01 ")
 ;;1728
 ;;21,"55045-1837-02 ")
 ;;1729
 ;;21,"55045-1837-06 ")
 ;;1730
 ;;21,"55045-1837-08 ")
 ;;1731
 ;;21,"55045-1837-09 ")
 ;;1732
 ;;21,"55045-1884-01 ")
 ;;1733
 ;;21,"55045-1884-02 ")
 ;;1734
 ;;21,"55045-1884-06 ")
 ;;1735
 ;;21,"55045-1884-08 ")
 ;;1736
 ;;21,"55045-1884-09 ")
 ;;1737
 ;;21,"55045-1920-01 ")
 ;;3425
 ;;21,"55045-1920-02 ")
 ;;3426
 ;;21,"55045-1920-04 ")
 ;;3427
 ;;21,"55045-1920-06 ")
 ;;3428
 ;;21,"55045-1920-08 ")
 ;;3429
 ;;21,"55045-1920-09 ")
 ;;3430
 ;;21,"55045-1956-01 ")
 ;;3431
 ;;21,"55045-1956-02 ")
 ;;3432
 ;;21,"55045-1956-04 ")
 ;;3433
 ;;21,"55045-1956-06 ")
 ;;3434
 ;;21,"55045-1956-08 ")
 ;;3435
 ;;21,"55045-1956-09 ")
 ;;3436
 ;;21,"55045-1982-02 ")
 ;;3437
 ;;21,"55045-1982-08 ")
 ;;3438
 ;;21,"55045-1982-09 ")
 ;;3439
 ;;21,"55045-2084-01 ")
 ;;1738
 ;;21,"55045-2084-03 ")
 ;;1739
 ;;21,"55045-2084-06 ")
 ;;1740
 ;;21,"55045-2153-01 ")
 ;;296
 ;;21,"55045-2153-08 ")
 ;;297
 ;;21,"55045-2208-01 ")
 ;;5322
 ;;21,"55045-2208-03 ")
 ;;5323
 ;;21,"55045-2208-07 ")
 ;;5324
 ;;21,"55045-2208-08 ")
 ;;5325
 ;;21,"55045-2224-00 ")
 ;;5326
 ;;21,"55045-2224-02 ")
 ;;5327
 ;;21,"55045-2224-07 ")
 ;;5328
 ;;21,"55045-2224-08 ")
 ;;5329
 ;;21,"55045-2509-00 ")
 ;;4804
 ;;21,"55045-2509-01 ")
 ;;4805
 ;;21,"55045-2509-06 ")
 ;;4806
 ;;21,"55045-2509-08 ")
 ;;4807
 ;;21,"55045-2509-09 ")
 ;;4808
 ;;21,"55045-2546-08 ")
 ;;4007
 ;;21,"55045-2631-08 ")
 ;;5146
 ;;21,"55045-2705-00 ")
 ;;934
 ;;21,"55045-2706-09 ")
 ;;935
 ;;21,"55045-2808-00 ")
 ;;2424
 ;;21,"55045-2808-02 ")
 ;;2425
 ;;21,"55045-2808-08 ")
 ;;2426
 ;;21,"55045-2808-09 ")
 ;;2427
 ;;21,"55045-2907-00 ")
 ;;2428
 ;;21,"55045-2907-02 ")
 ;;2429
 ;;21,"55045-2907-06 ")
 ;;2430
 ;;21,"55045-2907-08 ")
 ;;2431
 ;;21,"55045-2907-09 ")
 ;;2432
 ;;21,"55045-2908-00 ")
 ;;2433
 ;;21,"55045-2908-02 ")
 ;;2434
 ;;21,"55045-2908-06 ")
 ;;2435
 ;;21,"55045-2908-08 ")
 ;;2436
 ;;21,"55045-2908-09 ")
 ;;2437
 ;;21,"55045-2934-00 ")
 ;;2879
 ;;21,"55045-2934-08 ")
 ;;2880
 ;;21,"55045-2985-00 ")
 ;;2881
 ;;21,"55045-2985-08 ")
 ;;2882
 ;;21,"55045-3088-08 ")
 ;;1947
 ;;21,"55045-3137-08 ")
 ;;2438
 ;;21,"55045-3171-08 ")
 ;;3778
 ;;21,"55045-3172-08 ")
 ;;3779
 ;;21,"55045-3172-09 ")
 ;;3780
 ;;21,"55045-3195-06 ")
 ;;665
 ;;21,"55045-3195-08 ")
 ;;666
 ;;21,"55045-3196-06 ")
 ;;2109
 ;;21,"55045-3196-08 ")
 ;;2110
 ;;21,"55045-3196-09 ")
 ;;2111
 ;;21,"55045-3197-06 ")
 ;;820
 ;;21,"55045-3198-06 ")
 ;;2112
 ;;21,"55045-3220-09 ")
 ;;1948
 ;;21,"55045-3276-02 ")
 ;;667
 ;;21,"55045-3341-06 ")
 ;;1146
 ;;21,"55045-3341-08 ")
 ;;1147
 ;;21,"55045-3368-08 ")
 ;;2113
 ;;21,"55045-3386-08 ")
 ;;5330
 ;;21,"55045-3387-08 ")
 ;;1949
 ;;21,"55045-3423-01 ")
 ;;1148
 ;;21,"55045-3423-02 ")
 ;;1149
 ;;21,"55045-3424-00 ")
 ;;1150
 ;;21,"55045-3424-08 ")
 ;;1151
 ;;21,"55045-3562-01 ")
 ;;4488
 ;;21,"55045-3566-01 ")
 ;;4489
 ;;21,"55045-3697-03 ")
 ;;1384
 ;;21,"55045-3757-08 ")
 ;;4809
 ;;21,"55045-3766-08 ")
 ;;2439
 ;;21,"55045-3799-01 ")
 ;;2739
 ;;21,"55111-0138-60 ")
 ;;3246
 ;;21,"55111-0139-60 ")
 ;;3247
 ;;21,"55111-0140-60 ")
 ;;3248
 ;;21,"55111-0141-60 ")
 ;;3249
 ;;21,"55111-0142-60 ")
 ;;3250
 ;;21,"55111-0147-01 ")
 ;;2440
 ;;21,"55111-0148-01 ")
 ;;2441
 ;;21,"55111-0148-10 ")
 ;;2442
 ;;21,"55111-0149-01 ")
 ;;2443
 ;;21,"55111-0149-30 ")
 ;;2444
 ;;21,"55111-0284-48 ")
 ;;2620
 ;;21,"55111-0342-01 ")
 ;;1152
 ;;21,"55111-0342-05 ")
 ;;1153
 ;;21,"55111-0342-30 ")
 ;;1154
 ;;21,"55111-0343-01 ")
 ;;1155
 ;;21,"55111-0343-05 ")
 ;;1156
 ;;21,"55111-0343-30 ")
 ;;1157
 ;;21,"55111-0344-01 ")
 ;;1158
 ;;21,"55111-0344-05 ")
 ;;1159
 ;;21,"55111-0344-30 ")
 ;;1160
 ;;21,"55111-0545-90 ")
 ;;5092
 ;;21,"55111-0546-05 ")
 ;;5093
 ;;21,"55111-0546-90 ")
 ;;5094
 ;;21,"55111-0547-90 ")
 ;;5095
 ;;21,"55111-0548-05 ")
 ;;5096
 ;;21,"55111-0548-90 ")
 ;;5097
 ;;21,"55111-0549-90 ")
 ;;5098
 ;;21,"55289-0016-30 ")
 ;;298
 ;;21,"55289-0016-60 ")
 ;;299
 ;;21,"55289-0018-01 ")
 ;;1741
 ;;21,"55289-0018-30 ")
 ;;1742
 ;;21,"55289-0028-21 ")
 ;;1385
 ;;21,"55289-0028-30 ")
 ;;1386
 ;;21,"55289-0036-21 ")
 ;;1387
 ;;21,"55289-0036-30 ")
 ;;1388
 ;;21,"55289-0037-90 ")
 ;;3781
 ;;21,"55289-0053-45 ")
 ;;3782
 ;;21,"55289-0053-90 ")
 ;;3783
 ;;21,"55289-0060-14 ")
 ;;4810
 ;;21,"55289-0064-07 ")
 ;;4811
 ;;21,"55289-0064-14 ")
 ;;4812
 ;;21,"55289-0064-30 ")
 ;;4813
 ;;21,"55289-0099-30 ")
 ;;3440
 ;;21,"55289-0099-50 ")
 ;;3441
 ;;21,"55289-0124-12 ")
 ;;300
 ;;21,"55289-0124-30 ")
 ;;301
 ;;21,"55289-0144-14 ")
 ;;2740
 ;;21,"55289-0144-30 ")
 ;;2741
 ;;21,"55289-0144-90 ")
 ;;2742
 ;;21,"55289-0149-30 ")
 ;;2743
 ;;21,"55289-0149-60 ")
 ;;2744
 ;;21,"55289-0215-22 ")
 ;;4211
 ;;21,"55289-0215-30 ")
 ;;4212
 ;;21,"55289-0216-30 ")
 ;;4008
 ;;21,"55289-0223-30 ")
 ;;4814
 ;;21,"55289-0258-30 ")
 ;;1743
 ;;21,"55289-0277-30 ")
 ;;2114
 ;;21,"55289-0291-14 ")
 ;;4490
 ;;21,"55289-0291-30 ")
 ;;4491
 ;;21,"55289-0308-07 ")
 ;;4238
 ;;21,"55289-0308-14 ")
 ;;4239
 ;;21,"55289-0308-30 ")
 ;;4240
 ;;21,"55289-0370-30 ")
 ;;1744
 ;;21,"55289-0378-30 ")
 ;;4492
 ;;21,"55289-0381-30 ")
 ;;4493
 ;;21,"55289-0381-60 ")
 ;;4494
 ;;21,"55289-0409-30 ")
 ;;5331
 ;;21,"55289-0409-60 ")
 ;;5332
 ;;21,"55289-0489-30 ")
 ;;1589
 ;;21,"55289-0508-14 ")
 ;;2917
 ;;21,"55289-0550-15 ")
 ;;5333
 ;;21,"55289-0550-30 ")
 ;;5334
 ;;21,"55289-0586-30 ")
 ;;3442
 ;;21,"55289-0610-14 ")
 ;;2445
 ;;21,"55289-0610-28 ")
 ;;2446
 ;;21,"55289-0610-30 ")
 ;;2447
 ;;21,"55289-0610-60 ")
 ;;2448
 ;;21,"55289-0610-90 ")
 ;;2449
 ;;21,"55289-0613-14 ")
 ;;2450
 ;;21,"55289-0613-30 ")
 ;;2451
 ;;21,"55289-0613-60 ")
 ;;2452
 ;;21,"55289-0730-01 ")
 ;;302
 ;;21,"55289-0730-12 ")
 ;;303
 ;;21,"55289-0730-25 ")
 ;;304
 ;;21,"55289-0730-30 ")
 ;;305
 ;;21,"55289-0730-60 ")
 ;;306
 ;;21,"55289-0730-90 ")
 ;;307
 ;;21,"55289-0733-30 ")
 ;;668
 ;;21,"55289-0733-60 ")
 ;;669
 ;;21,"55289-0768-30 ")
 ;;2883
 ;;21,"55289-0827-30 ")
 ;;936
 ;;21,"55289-0828-30 ")
 ;;2884
 ;;21,"55289-0830-30 ")
 ;;1950
 ;;21,"55289-0839-30 ")
 ;;2745
 ;;21,"55289-0869-30 ")
 ;;2115
 ;;21,"55289-0883-14 ")
 ;;1161
 ;;21,"55289-0883-30 ")
 ;;1162
 ;;21,"55289-0883-90 ")
 ;;1163
 ;;21,"55289-0897-30 ")
 ;;2116
 ;;21,"55289-0900-15 ")
 ;;5200
 ;;21,"55289-0900-30 ")
 ;;5201
 ;;21,"55289-0905-30 ")
 ;;5147
 ;;21,"55289-0922-15 ")
 ;;5202
 ;;21,"55289-0922-30 ")
 ;;5203
 ;;21,"55289-0972-60 ")
 ;;3784
 ;;21,"55289-0972-90 ")
 ;;3785
 ;;21,"55587-0283-30 ")
 ;;5204
 ;;21,"55587-0283-60 ")
 ;;5205
 ;;21,"55587-0283-90 ")
 ;;5206
 ;;21,"55587-0284-30 ")
 ;;5207
 ;;21,"55587-0284-60 ")
 ;;5208
 ;;21,"55587-0284-90 ")
 ;;5209
 ;;21,"55864-0708-30 ")
 ;;4815
 ;;21,"55887-0075-30 ")
 ;;2453
 ;;21,"55887-0095-30 ")
 ;;1745
 ;;21,"55887-0095-60 ")
 ;;1746
 ;;21,"55887-0095-90 ")
 ;;1747
 ;;21,"55887-0101-30 ")
 ;;1748
 ;;21,"55887-0101-60 ")
 ;;1749
 ;;21,"55887-0101-90 ")
 ;;1750
 ;;21,"55887-0125-30 ")
 ;;5099
 ;;21,"55887-0125-60 ")
 ;;5100
 ;;21,"55887-0143-30 ")
 ;;1523
 ;;21,"55887-0143-60 ")
 ;;1524
 ;;21,"55887-0143-82 ")
 ;;1525
 ;;21,"55887-0143-90 ")
 ;;1526
 ;;21,"55887-0143-92 ")
 ;;1527
 ;;21,"55887-0144-30 ")
 ;;1528
 ;;21,"55887-0144-60 ")
 ;;1529
 ;;21,"55887-0144-82 ")
 ;;1530
 ;;21,"55887-0144-90 ")
 ;;1531
 ;;21,"55887-0144-92 ")
 ;;1532
 ;;21,"55887-0151-01 ")
 ;;670
 ;;21,"55887-0151-20 ")
 ;;671
 ;;21,"55887-0151-30 ")
 ;;672
 ;;21,"55887-0151-60 ")
 ;;673
 ;;21,"55887-0151-82 ")
 ;;674
 ;;21,"55887-0151-90 ")
 ;;675
 ;;21,"55887-0160-15 ")
 ;;4495
 ;;21,"55887-0160-30 ")
 ;;4496
 ;;21,"55887-0160-60 ")
 ;;4497
 ;;21,"55887-0160-90 ")
 ;;4498
 ;;21,"55887-0168-30 ")
 ;;4499
 ;;21,"55887-0168-60 ")
 ;;4500
 ;;21,"55887-0168-90 ")
 ;;4501
 ;;21,"55887-0193-30 ")
 ;;2117
 ;;21,"55887-0193-60 ")
 ;;2118
 ;;21,"55887-0193-90 ")
 ;;2119
 ;;21,"55887-0213-30 ")
 ;;4076
 ;;21,"55887-0214-30 ")
 ;;4077
 ;;21,"55887-0237-30 ")
 ;;1164
 ;;21,"55887-0237-60 ")
 ;;1165
 ;;21,"55887-0237-86 ")
 ;;1166
 ;;21,"55887-0237-90 ")
 ;;1167
 ;;21,"55887-0256-20 ")
 ;;4816
 ;;21,"55887-0256-30 ")
 ;;4817
 ;;21,"55887-0256-60 ")
 ;;4818
 ;;21,"55887-0256-90 ")
 ;;4819
 ;;21,"55887-0260-30 ")
 ;;1168
 ;;21,"55887-0260-90 ")
 ;;1169
 ;;21,"55887-0261-01 ")
 ;;1170
 ;;21,"55887-0261-07 ")
 ;;1171
 ;;21,"55887-0261-30 ")
 ;;1172
 ;;21,"55887-0261-90 ")
 ;;1173
 ;;21,"55887-0270-15 ")
 ;;1389
 ;;21,"55887-0270-30 ")
 ;;1390
 ;;21,"55887-0271-15 ")
 ;;1391
 ;;21,"55887-0271-30 ")
 ;;1392
 ;;21,"55887-0271-60 ")
 ;;1393
 ;;21,"55887-0288-30 ")
 ;;2746
 ;;21,"55887-0289-30 ")
 ;;1751
 ;;21,"55887-0289-60 ")
 ;;1752
 ;;21,"55887-0346-30 ")
 ;;3786
 ;;21,"55887-0356-30 ")
 ;;1753
 ;;21,"55887-0356-60 ")
 ;;1754
 ;;21,"55887-0394-30 ")
 ;;3787
 ;;21,"55887-0394-60 ")
 ;;3788
 ;;21,"55887-0394-90 ")
 ;;3789
 ;;21,"55887-0398-30 ")
 ;;308
 ;;21,"55887-0398-60 ")
 ;;309
 ;;21,"55887-0433-30 ")
 ;;3790
 ;;21,"55887-0439-30 ")
 ;;3443
 ;;21,"55887-0439-60 ")
 ;;3444
 ;;21,"55887-0439-92 ")
 ;;3445
 ;;21,"55887-0458-30 ")
 ;;2454
 ;;21,"55887-0458-40 ")
 ;;2455
 ;;21,"55887-0458-60 ")
 ;;2456
 ;;21,"55887-0458-90 ")
 ;;2457
 ;;21,"55887-0486-30 ")
 ;;2885
 ;;21,"55887-0486-60 ")
 ;;2886
 ;;21,"55887-0487-30 ")
 ;;5335
 ;;21,"55887-0487-60 ")
 ;;5336
 ;;21,"55887-0490-30 ")
 ;;4078
 ;;21,"55887-0490-60 ")
 ;;4079
 ;;21,"55887-0490-82 ")
 ;;4080
 ;;21,"55887-0490-90 ")
 ;;4081
 ;;21,"55887-0496-30 ")
 ;;821
 ;;21,"55887-0496-60 ")
 ;;822
 ;;21,"55887-0496-90 ")
 ;;823
 ;;21,"55887-0498-30 ")
 ;;3446
 ;;21,"55887-0498-60 ")
 ;;3447
 ;;21,"55887-0502-30 ")
 ;;937
 ;;21,"55887-0502-60 ")
 ;;938
 ;;21,"55887-0511-20 ")
 ;;4082
 ;;21,"55887-0511-30 ")
 ;;4083
 ;;21,"55887-0511-60 ")
 ;;4084
 ;;21,"55887-0511-82 ")
 ;;4085
 ;;21,"55887-0511-90 ")
 ;;4086
 ;;21,"55887-0518-15 ")
 ;;3448
 ;;21,"55887-0518-30 ")
 ;;3449
 ;;21,"55887-0518-60 ")
 ;;3450
 ;;21,"55887-0518-90 ")
 ;;3451
 ;;21,"55887-0519-30 ")
 ;;5337
 ;;21,"55887-0519-60 ")
 ;;5338
 ;;21,"55887-0524-30 ")
 ;;4820
 ;;21,"55887-0524-60 ")
 ;;4821
 ;;21,"55887-0524-82 ")
 ;;4822
 ;;21,"55887-0524-90 ")
 ;;4823
 ;;21,"55887-0541-30 ")
 ;;3053
 ;;21,"55887-0548-30 ")
 ;;3054
 ;;21,"55887-0549-30 ")
 ;;4009
 ;;21,"55887-0549-60 ")
 ;;4010
 ;;21,"55887-0549-90 ")
 ;;4011
 ;;21,"55887-0550-30 ")
 ;;939
 ;;21,"55887-0552-30 ")
 ;;310
 ;;21,"55887-0552-60 ")
 ;;311
 ;;21,"55887-0552-90 ")
 ;;312
 ;;21,"55887-0570-20 ")
 ;;313
 ;;21,"55887-0570-30 ")
 ;;314
 ;;21,"55887-0570-40 ")
 ;;315
 ;;21,"55887-0570-60 ")
 ;;316
 ;;21,"55887-0570-90 ")
 ;;317
 ;;21,"55887-0570-92 ")
 ;;318
 ;;21,"55887-0572-14 ")
 ;;319
 ;;21,"55887-0572-30 ")
 ;;320
 ;;21,"55887-0572-50 ")
 ;;321
 ;;21,"55887-0572-60 ")
 ;;322
 ;;21,"55887-0572-90 ")
 ;;323
 ;;21,"55887-0650-30 ")
 ;;676
 ;;21,"55887-0650-60 ")
 ;;677
 ;;21,"55887-0650-90 ")
 ;;678
 ;;21,"55887-0650-92 ")
 ;;679
 ;;21,"55887-0660-30 ")
 ;;1951
 ;;21,"55887-0660-60 ")
 ;;1952
 ;;21,"55887-0661-01 ")
 ;;2458
 ;;21,"55887-0661-30 ")
 ;;2459
 ;;21,"55887-0661-60 ")
 ;;2460
 ;;21,"55887-0661-90 ")
 ;;2461
 ;;21,"55887-0662-30 ")
 ;;2120
 ;;21,"55887-0662-60 ")
 ;;2121