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

BGP47X5.m

Go to the documentation of this file.
BGP47X5 ;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,"53489-0555-07 ")
 ;;1229
 ;;21,"53489-0556-01 ")
 ;;1253
 ;;21,"53489-0556-07 ")
 ;;1254
 ;;21,"54348-0142-30 ")
 ;;1042
 ;;21,"54458-0300-30 ")
 ;;1305
 ;;21,"54458-0300-31 ")
 ;;1306
 ;;21,"54458-0301-30 ")
 ;;1388
 ;;21,"54458-0301-31 ")
 ;;1389
 ;;21,"54458-0302-30 ")
 ;;1499
 ;;21,"54458-0302-31 ")
 ;;1500
 ;;21,"54458-0931-05 ")
 ;;1002
 ;;21,"54569-0442-00 ")
 ;;393
 ;;21,"54569-0557-00 ")
 ;;129
 ;;21,"54569-0557-01 ")
 ;;130
 ;;21,"54569-0557-03 ")
 ;;131
 ;;21,"54569-0559-00 ")
 ;;209
 ;;21,"54569-0559-01 ")
 ;;210
 ;;21,"54569-0559-03 ")
 ;;211
 ;;21,"54569-0559-06 ")
 ;;212
 ;;21,"54569-0561-01 ")
 ;;319
 ;;21,"54569-0561-02 ")
 ;;320
 ;;21,"54569-0561-03 ")
 ;;321
 ;;21,"54569-0561-06 ")
 ;;322
 ;;21,"54569-0563-00 ")
 ;;497
 ;;21,"54569-0564-00 ")
 ;;536
 ;;21,"54569-0590-00 ")
 ;;2777
 ;;21,"54569-0596-00 ")
 ;;2859
 ;;21,"54569-1634-00 ")
 ;;462
 ;;21,"54569-2499-00 ")
 ;;432
 ;;21,"54569-2499-01 ")
 ;;433
 ;;21,"54569-3097-00 ")
 ;;521
 ;;21,"54569-3432-00 ")
 ;;940
 ;;21,"54569-3432-01 ")
 ;;941
 ;;21,"54569-3432-02 ")
 ;;942
 ;;21,"54569-3432-03 ")
 ;;943
 ;;21,"54569-3432-04 ")
 ;;944
 ;;21,"54569-3432-05 ")
 ;;945
 ;;21,"54569-3432-07 ")
 ;;946
 ;;21,"54569-3432-08 ")
 ;;947
 ;;21,"54569-3654-00 ")
 ;;1150
 ;;21,"54569-3654-03 ")
 ;;1151
 ;;21,"54569-3654-04 ")
 ;;1152
 ;;21,"54569-3654-05 ")
 ;;1153
 ;;21,"54569-3787-00 ")
 ;;1813
 ;;21,"54569-3787-01 ")
 ;;1814
 ;;21,"54569-3787-02 ")
 ;;1815
 ;;21,"54569-3787-04 ")
 ;;1774
 ;;21,"54569-3787-05 ")
 ;;1775
 ;;21,"54569-3788-00 ")
 ;;2129
 ;;21,"54569-3788-01 ")
 ;;2130
 ;;21,"54569-3788-03 ")
 ;;1974
 ;;21,"54569-3788-04 ")
 ;;1975
 ;;21,"54569-3790-00 ")
 ;;37
 ;;21,"54569-3885-00 ")
 ;;697
 ;;21,"54569-3885-02 ")
 ;;698
 ;;21,"54569-3885-04 ")
 ;;699
 ;;21,"54569-3885-05 ")
 ;;700
 ;;21,"54569-3885-06 ")
 ;;701
 ;;21,"54569-4441-00 ")
 ;;1468
 ;;21,"54569-4442-00 ")
 ;;1560
 ;;21,"54569-4707-00 ")
 ;;2926
 ;;21,"54569-4708-00 ")
 ;;2973
 ;;21,"54569-4718-00 ")
 ;;1607
 ;;21,"54569-5368-00 ")
 ;;3012
 ;;21,"54569-5384-00 ")
 ;;2493
 ;;21,"54569-5385-00 ")
 ;;2243
 ;;21,"54569-5404-00 ")
 ;;2935
 ;;21,"54569-5404-01 ")
 ;;2936
 ;;21,"54569-5417-00 ")
 ;;2917
 ;;21,"54569-5417-01 ")
 ;;2918
 ;;21,"54569-5419-00 ")
 ;;3001
 ;;21,"54569-5419-01 ")
 ;;3002
 ;;21,"54569-5701-01 ")
 ;;2633
 ;;21,"54569-5870-00 ")
 ;;1286
 ;;21,"54569-5870-01 ")
 ;;1287
 ;;21,"54569-5870-02 ")
 ;;1288
 ;;21,"54569-5954-00 ")
 ;;1358
 ;;21,"54569-5954-01 ")
 ;;1359
 ;;21,"54569-5960-01 ")
 ;;2373
 ;;21,"54569-5961-00 ")
 ;;1485
 ;;21,"54569-5961-01 ")
 ;;1486
 ;;21,"54569-5961-02 ")
 ;;1487
 ;;21,"54569-5974-00 ")
 ;;2196
 ;;21,"54569-5974-01 ")
 ;;2197
 ;;21,"54569-5974-02 ")
 ;;2198
 ;;21,"54569-5975-00 ")
 ;;2277
 ;;21,"54569-5975-01 ")
 ;;2278
 ;;21,"54569-5975-02 ")
 ;;2279
 ;;21,"54569-5975-03 ")
 ;;2280
 ;;21,"54569-5975-04 ")
 ;;2281
 ;;21,"54569-5976-00 ")
 ;;2465
 ;;21,"54569-5976-01 ")
 ;;2466
 ;;21,"54569-5976-02 ")
 ;;2467
 ;;21,"54569-5976-03 ")
 ;;2468
 ;;21,"54569-5976-04 ")
 ;;2469
 ;;21,"54569-5977-00 ")
 ;;2584
 ;;21,"54569-5977-01 ")
 ;;2585
 ;;21,"54569-5977-02 ")
 ;;2586
 ;;21,"54569-5977-03 ")
 ;;2587
 ;;21,"54569-5977-04 ")
 ;;2588
 ;;21,"54569-6119-00 ")
 ;;2146
 ;;21,"54569-6169-00 ")
 ;;2675
 ;;21,"54569-6298-00 ")
 ;;1612
 ;;21,"54569-6298-01 ")
 ;;1613
 ;;21,"54569-6298-02 ")
 ;;1614
 ;;21,"54569-6298-03 ")
 ;;1615
 ;;21,"54569-6314-00 ")
 ;;2737
 ;;21,"54569-6315-00 ")
 ;;2790
 ;;21,"54569-6342-00 ")
 ;;2153
 ;;21,"54569-6342-01 ")
 ;;2154
 ;;21,"54738-0133-03 ")
 ;;807
 ;;21,"54738-0134-03 ")
 ;;835
 ;;21,"54738-0467-01 ")
 ;;132
 ;;21,"54738-0467-03 ")
 ;;133
 ;;21,"54738-0468-01 ")
 ;;231
 ;;21,"54738-0468-03 ")
 ;;232
 ;;21,"54738-0469-01 ")
 ;;323
 ;;21,"54738-0469-03 ")
 ;;324
 ;;21,"54738-0470-01 ")
 ;;401
 ;;21,"54738-0471-01 ")
 ;;422
 ;;21,"54738-0471-02 ")
 ;;423
 ;;21,"54868-0052-00 ")
 ;;185
 ;;21,"54868-0052-01 ")
 ;;186
 ;;21,"54868-0052-02 ")
 ;;187
 ;;21,"54868-0052-03 ")
 ;;188
 ;;21,"54868-0053-02 ")
 ;;374
 ;;21,"54868-0053-03 ")
 ;;375
 ;;21,"54868-0053-04 ")
 ;;376
 ;;21,"54868-0053-07 ")
 ;;377
 ;;21,"54868-0106-00 ")
 ;;2645
 ;;21,"54868-0106-01 ")
 ;;2646
 ;;21,"54868-0293-00 ")
 ;;276
 ;;21,"54868-0293-01 ")
 ;;277
 ;;21,"54868-0293-02 ")
 ;;278
 ;;21,"54868-0293-05 ")
 ;;279
 ;;21,"54868-0293-06 ")
 ;;280
 ;;21,"54868-0321-00 ")
 ;;2860
 ;;21,"54868-0674-00 ")
 ;;29
 ;;21,"54868-0674-01 ")
 ;;30
 ;;21,"54868-0680-00 ")
 ;;498
 ;;21,"54868-0680-01 ")
 ;;499
 ;;21,"54868-0685-01 ")
 ;;1690
 ;;21,"54868-0696-00 ")
 ;;446
 ;;21,"54868-0696-01 ")
 ;;447
 ;;21,"54868-0696-02 ")
 ;;448
 ;;21,"54868-0696-03 ")
 ;;449
 ;;21,"54868-0701-00 ")
 ;;1052
 ;;21,"54868-0854-00 ")
 ;;581
 ;;21,"54868-0854-01 ")
 ;;582
 ;;21,"54868-1004-01 ")
 ;;2772
 ;;21,"54868-1063-00 ")
 ;;1966
 ;;21,"54868-1063-01 ")
 ;;1967
 ;;21,"54868-1063-02 ")
 ;;1968
 ;;21,"54868-1078-01 ")
 ;;507
 ;;21,"54868-1078-03 ")
 ;;508
 ;;21,"54868-1078-05 ")
 ;;509
 ;;21,"54868-1441-00 ")
 ;;463
 ;;21,"54868-1441-01 ")
 ;;464
 ;;21,"54868-1442-00 ")
 ;;537
 ;;21,"54868-1442-01 ")
 ;;538
 ;;21,"54868-1442-02 ")
 ;;539
 ;;21,"54868-1517-00 ")
 ;;470
 ;;21,"54868-1517-02 ")
 ;;471
 ;;21,"54868-1517-03 ")
 ;;472
 ;;21,"54868-1518-00 ")
 ;;562
 ;;21,"54868-1518-01 ")
 ;;563
 ;;21,"54868-1518-02 ")
 ;;564
 ;;21,"54868-1518-03 ")
 ;;565
 ;;21,"54868-1871-00 ")
 ;;822
 ;;21,"54868-1871-01 ")
 ;;823
 ;;21,"54868-1871-02 ")
 ;;824
 ;;21,"54868-1871-03 ")
 ;;825
 ;;21,"54868-1871-04 ")
 ;;826
 ;;21,"54868-1971-00 ")
 ;;1095
 ;;21,"54868-1971-01 ")
 ;;1096
 ;;21,"54868-1971-02 ")
 ;;1097
 ;;21,"54868-1971-03 ")
 ;;1098
 ;;21,"54868-1971-04 ")
 ;;1099
 ;;21,"54868-1980-00 ")
 ;;2168
 ;;21,"54868-1980-01 ")
 ;;2169
 ;;21,"54868-2349-00 ")
 ;;654
 ;;21,"54868-2349-01 ")
 ;;655
 ;;21,"54868-2349-02 ")
 ;;656
 ;;21,"54868-2349-03 ")
 ;;657
 ;;21,"54868-2349-04 ")
 ;;658
 ;;21,"54868-2349-05 ")
 ;;659
 ;;21,"54868-2572-00 ")
 ;;571
 ;;21,"54868-2572-01 ")
 ;;572
 ;;21,"54868-2572-02 ")
 ;;573
 ;;21,"54868-2677-00 ")
 ;;585
 ;;21,"54868-2683-00 ")
 ;;2829
 ;;21,"54868-2683-01 ")
 ;;2830
 ;;21,"54868-2683-02 ")
 ;;2831
 ;;21,"54868-2864-00 ")
 ;;2718
 ;;21,"54868-2864-01 ")
 ;;2719
 ;;21,"54868-2989-00 ")
 ;;1816
 ;;21,"54868-2989-01 ")
 ;;1776
 ;;21,"54868-2989-02 ")
 ;;1808
 ;;21,"54868-2989-03 ")
 ;;1809
 ;;21,"54868-2989-04 ")
 ;;1810
 ;;21,"54868-2989-05 ")
 ;;1811
 ;;21,"54868-2989-06 ")
 ;;1812
 ;;21,"54868-2989-07 ")
 ;;1689
 ;;21,"54868-2990-00 ")
 ;;2128
 ;;21,"54868-2990-01 ")
 ;;1976
 ;;21,"54868-2990-02 ")
 ;;2125
 ;;21,"54868-2990-03 ")
 ;;2126
 ;;21,"54868-2990-04 ")
 ;;2127
 ;;21,"54868-2990-05 ")
 ;;1977
 ;;21,"54868-3062-00 ")
 ;;2357
 ;;21,"54868-3062-01 ")
 ;;2358
 ;;21,"54868-3062-02 ")
 ;;2359
 ;;21,"54868-3062-03 ")
 ;;2360
 ;;21,"54868-3064-00 ")
 ;;2873
 ;;21,"54868-3064-01 ")
 ;;2874
 ;;21,"54868-3257-01 ")
 ;;39
 ;;21,"54868-3257-02 ")
 ;;40
 ;;21,"54868-3257-03 ")
 ;;41
 ;;21,"54868-3257-04 ")
 ;;42
 ;;21,"54868-3257-05 ")
 ;;43
 ;;21,"54868-3257-06 ")
 ;;44
 ;;21,"54868-3587-00 ")
 ;;1463
 ;;21,"54868-3587-01 ")
 ;;1464
 ;;21,"54868-3587-02 ")
 ;;1465
 ;;21,"54868-3587-03 ")
 ;;1466
 ;;21,"54868-3587-04 ")
 ;;1467
 ;;21,"54868-3602-00 ")
 ;;102
 ;;21,"54868-3721-01 ")
 ;;74
 ;;21,"54868-3721-02 ")
 ;;75
 ;;21,"54868-4173-00 ")
 ;;2974
 ;;21,"54868-4179-00 ")
 ;;3016
 ;;21,"54868-4223-00 ")
 ;;1553
 ;;21,"54868-4223-01 ")
 ;;1554
 ;;21,"54868-4223-02 ")
 ;;1555
 ;;21,"54868-4223-03 ")
 ;;1556
 ;;21,"54868-4395-00 ")
 ;;2628
 ;;21,"54868-4395-01 ")
 ;;2629
 ;;21,"54868-4395-02 ")
 ;;2630
 ;;21,"54868-4395-03 ")
 ;;2631
 ;;21,"54868-4396-00 ")
 ;;2494
 ;;21,"54868-4396-01 ")
 ;;2495
 ;;21,"54868-4396-02 ")
 ;;2496
 ;;21,"54868-4396-03 ")
 ;;2497
 ;;21,"54868-4421-00 ")
 ;;2244
 ;;21,"54868-4421-01 ")
 ;;2245
 ;;21,"54868-4421-02 ")
 ;;2246
 ;;21,"54868-4424-00 ")
 ;;2366
 ;;21,"54868-4424-01 ")
 ;;2367
 ;;21,"54868-4424-02 ")
 ;;2368
 ;;21,"54868-4424-03 ")
 ;;2369
 ;;21,"54868-4576-00 ")
 ;;2938
 ;;21,"54868-4576-01 ")
 ;;2939
 ;;21,"54868-4576-02 ")
 ;;2940
 ;;21,"54868-4576-03 ")
 ;;2941
 ;;21,"54868-4577-00 ")
 ;;2912
 ;;21,"54868-4577-01 ")
 ;;2913
 ;;21,"54868-4577-03 ")
 ;;2914
 ;;21,"54868-4578-00 ")
 ;;3008
 ;;21,"54868-4578-01 ")
 ;;3009
 ;;21,"54868-4578-02 ")
 ;;3010
 ;;21,"54868-4578-03 ")
 ;;3011
 ;;21,"54868-4621-00 ")
 ;;1248
 ;;21,"54868-4661-00 ")
 ;;1347
 ;;21,"54868-4661-01 ")
 ;;1348
 ;;21,"54868-4844-00 ")
 ;;2743
 ;;21,"54868-4844-01 ")
 ;;2744
 ;;21,"54868-4844-02 ")
 ;;2745
 ;;21,"54868-4844-03 ")
 ;;2746
 ;;21,"54868-4903-00 ")
 ;;2796
 ;;21,"54868-4903-01 ")
 ;;2797
 ;;21,"54868-4903-02 ")
 ;;2798
 ;;21,"54868-4921-00 ")
 ;;2676
 ;;21,"54868-4921-01 ")
 ;;2677
 ;;21,"54868-4921-02 ")
 ;;2678
 ;;21,"54868-4921-03 ")
 ;;2679
 ;;21,"54868-4921-04 ")
 ;;2680
 ;;21,"54868-4932-00 ")
 ;;1210
 ;;21,"54868-4932-01 ")
 ;;1211
 ;;21,"54868-5013-00 ")
 ;;1252
 ;;21,"54868-5021-00 ")
 ;;1682
 ;;21,"54868-5021-01 ")
 ;;1683
 ;;21,"54868-5021-02 ")
 ;;1684
 ;;21,"54868-5021-03 ")
 ;;1618
 ;;21,"54868-5021-04 ")
 ;;1619
 ;;21,"54868-5068-00 ")
 ;;1600
 ;;21,"54868-5068-01 ")
 ;;1601
 ;;21,"54868-5068-03 ")
 ;;1602
 ;;21,"54868-5095-00 ")
 ;;1231
 ;;21,"54868-5095-01 ")
 ;;1232
 ;;21,"54868-5095-02 ")
 ;;1233
 ;;21,"54868-5095-03 ")
 ;;1234
 ;;21,"54868-5295-00 ")
 ;;12
 ;;21,"54868-5295-01 ")
 ;;13
 ;;21,"54868-5344-00 ")
 ;;3054
 ;;21,"54868-5344-01 ")
 ;;3055
 ;;21,"54868-5344-02 ")
 ;;3056
 ;;21,"54868-5395-00 ")
 ;;612
 ;;21,"54868-5400-00 ")
 ;;3022
 ;;21,"54868-5400-01 ")
 ;;3023
 ;;21,"54868-5520-00 ")
 ;;626
 ;;21,"54868-5524-00 ")
 ;;3033
 ;;21,"54868-5524-01 ")
 ;;3034
 ;;21,"54868-5564-00 ")
 ;;403
 ;;21,"54868-5564-01 ")
 ;;404
 ;;21,"54868-5588-00 ")
 ;;94
 ;;21,"54868-5729-00 ")
 ;;1307
 ;;21,"54868-5729-01 ")
 ;;1308
 ;;21,"54868-5729-02 ")
 ;;1309
 ;;21,"54868-5729-03 ")
 ;;1310
 ;;21,"54868-5729-04 ")
 ;;1311
 ;;21,"54868-5729-05 ")
 ;;1312
 ;;21,"54868-5729-06 ")
 ;;1313
 ;;21,"54868-5730-00 ")
 ;;1393
 ;;21,"54868-5730-01 ")
 ;;1394
 ;;21,"54868-5730-02 ")
 ;;1395
 ;;21,"54868-5730-03 ")
 ;;1396
 ;;21,"54868-5730-04 ")
 ;;1397
 ;;21,"54868-5730-05 ")
 ;;1398
 ;;21,"54868-5731-00 ")
 ;;1501
 ;;21,"54868-5731-01 ")
 ;;1502
 ;;21,"54868-5731-02 ")
 ;;1503
 ;;21,"54868-5731-03 ")
 ;;1504
 ;;21,"54868-5731-04 ")
 ;;1530
 ;;21,"54868-5731-05 ")
 ;;1531
 ;;21,"54868-5732-00 ")
 ;;1580
 ;;21,"54868-5732-01 ")
 ;;1581
 ;;21,"54868-5732-02 ")
 ;;1582
 ;;21,"54868-5755-00 ")
 ;;529
 ;;21,"54868-5755-01 ")
 ;;530
 ;;21,"54868-5771-00 ")
 ;;2658
 ;;21,"54868-5771-01 ")
 ;;2659
 ;;21,"54868-5773-00 ")
 ;;2407
 ;;21,"54868-5773-01 ")
 ;;2408
 ;;21,"54868-5773-02 ")
 ;;2409
 ;;21,"54868-5773-03 ")
 ;;2410
 ;;21,"54868-5817-00 ")
 ;;2523
 ;;21,"54868-5817-01 ")
 ;;2524
 ;;21,"54868-5817-02 ")
 ;;2525
 ;;21,"54868-5817-03 ")
 ;;2526
 ;;21,"54868-5869-00 ")
 ;;2650
 ;;21,"54868-5869-01 ")
 ;;2651
 ;;21,"54868-5944-00 ")
 ;;2144
 ;;21,"54868-5944-01 ")
 ;;2145
 ;;21,"54868-6018-00 ")
 ;;2155
 ;;21,"54868-6018-01 ")
 ;;2156
 ;;21,"54868-6019-00 ")
 ;;2637
 ;;21,"54868-6019-01 ")
 ;;2638
 ;;21,"55045-1236-08 ")
 ;;217
 ;;21,"55045-1859-01 ")
 ;;106
 ;;21,"55045-1860-01 ")
 ;;923
 ;;21,"55045-1860-02 ")
 ;;924
 ;;21,"55045-1860-08 ")
 ;;925
 ;;21,"55045-1860-09 ")
 ;;926
 ;;21,"55045-1939-09 ")
 ;;1970
 ;;21,"55045-2078-01 ")
 ;;190
 ;;21,"55045-2217-08 ")
 ;;1981
 ;;21,"55045-2269-01 ")
 ;;1192
 ;;21,"55045-2269-06 ")
 ;;1193
 ;;21,"55045-2269-08 ")
 ;;1194
 ;;21,"55045-2269-09 ")
 ;;1195
 ;;21,"55045-2282-00 ")
 ;;1835
 ;;21,"55045-2282-06 ")
 ;;1817
 ;;21,"55045-2498-08 ")
 ;;680
 ;;21,"55045-2754-00 ")
 ;;2868
 ;;21,"55045-2755-00 ")
 ;;2841
 ;;21,"55045-3361-01 ")
 ;;1342
 ;;21,"55045-3762-08 ")
 ;;1872
 ;;21,"55045-3798-01 ")
 ;;1331
 ;;21,"55045-3867-01 ")
 ;;2208
 ;;21,"55048-0028-30 ")
 ;;754
 ;;21,"55048-0029-30 ")
 ;;881
 ;;21,"55048-0029-90 ")
 ;;882
 ;;21,"55048-0030-30 ")
 ;;1127
 ;;21,"55048-0056-30 ")
 ;;2461
 ;;21,"55048-0056-60 ")
 ;;2462
 ;;21,"55048-0057-30 ")
 ;;2274
 ;;21,"55048-0057-60 ")
 ;;2275
 ;;21,"55048-0058-30 ")
 ;;2581
 ;;21,"55048-0058-60 ")
 ;;2582
 ;;21,"55048-0059-30 ")
 ;;2200
 ;;21,"55048-0059-60 ")
 ;;2201
 ;;21,"55048-0127-30 ")
 ;;755
 ;;21,"55048-0128-30 ")
 ;;880
 ;;21,"55048-0134-60 ")
 ;;2273
 ;;21,"55048-0135-60 ")
 ;;2463
 ;;21,"55048-0137-60 ")
 ;;2464
 ;;21,"55048-0138-60 ")
 ;;2579
 ;;21,"55048-0144-60 ")
 ;;2580
 ;;21,"55048-0519-30 ")
 ;;1380