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

BGP51J4.m

Go to the documentation of this file.
BGP51J4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 19, 2014;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
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,"51293-0606-01 ")
 ;;1543
 ;;21,"51672-4011-01 ")
 ;;1101
 ;;21,"51672-4011-05 ")
 ;;1102
 ;;21,"51672-4011-06 ")
 ;;1103
 ;;21,"51672-4012-01 ")
 ;;1116
 ;;21,"51672-4012-05 ")
 ;;1117
 ;;21,"51672-4012-06 ")
 ;;1118
 ;;21,"51672-4013-01 ")
 ;;1125
 ;;21,"51672-4013-05 ")
 ;;1126
 ;;21,"51672-4013-06 ")
 ;;1127
 ;;21,"51862-0179-01 ")
 ;;642
 ;;21,"51991-0073-01 ")
 ;;1024
 ;;21,"51991-0074-01 ")
 ;;1058
 ;;21,"51991-0074-05 ")
 ;;1059
 ;;21,"51991-0080-51 ")
 ;;1092
 ;;21,"51991-0080-52 ")
 ;;1093
 ;;21,"52544-0080-01 ")
 ;;641
 ;;21,"52544-0082-01 ")
 ;;1023
 ;;21,"52544-0955-01 ")
 ;;943
 ;;21,"52544-0956-01 ")
 ;;1085
 ;;21,"52544-0957-01 ")
 ;;844
 ;;21,"52544-0957-05 ")
 ;;845
 ;;21,"52544-0958-01 ")
 ;;1057
 ;;21,"52959-0008-02 ")
 ;;64
 ;;21,"52959-0008-15 ")
 ;;65
 ;;21,"52959-0008-20 ")
 ;;66
 ;;21,"52959-0008-30 ")
 ;;67
 ;;21,"52959-0008-40 ")
 ;;68
 ;;21,"52959-0008-50 ")
 ;;69
 ;;21,"52959-0008-60 ")
 ;;70
 ;;21,"52959-0008-90 ")
 ;;71
 ;;21,"52959-0023-06 ")
 ;;1575
 ;;21,"52959-0023-20 ")
 ;;1576
 ;;21,"52959-0023-30 ")
 ;;1577
 ;;21,"52959-0023-50 ")
 ;;1578
 ;;21,"52959-0023-60 ")
 ;;1579
 ;;21,"52959-0274-03 ")
 ;;1604
 ;;21,"52959-0274-06 ")
 ;;1605
 ;;21,"52959-0274-30 ")
 ;;1606
 ;;21,"52959-0284-00 ")
 ;;456
 ;;21,"52959-0284-30 ")
 ;;457
 ;;21,"52959-0284-60 ")
 ;;458
 ;;21,"52959-0348-00 ")
 ;;183
 ;;21,"52959-0348-02 ")
 ;;184
 ;;21,"52959-0348-10 ")
 ;;185
 ;;21,"52959-0348-12 ")
 ;;186
 ;;21,"52959-0348-14 ")
 ;;187
 ;;21,"52959-0348-15 ")
 ;;188
 ;;21,"52959-0348-20 ")
 ;;189
 ;;21,"52959-0348-30 ")
 ;;190
 ;;21,"52959-0348-50 ")
 ;;191
 ;;21,"52959-0348-60 ")
 ;;192
 ;;21,"52959-0348-90 ")
 ;;193
 ;;21,"52959-0362-10 ")
 ;;1881
 ;;21,"52959-0362-15 ")
 ;;1882
 ;;21,"52959-0362-20 ")
 ;;1883
 ;;21,"52959-0362-30 ")
 ;;1884
 ;;21,"52959-0362-60 ")
 ;;1885
 ;;21,"52959-0363-10 ")
 ;;2115
 ;;21,"52959-0363-15 ")
 ;;2116
 ;;21,"52959-0363-20 ")
 ;;2117
 ;;21,"52959-0363-21 ")
 ;;2118
 ;;21,"52959-0363-25 ")
 ;;2119
 ;;21,"52959-0363-30 ")
 ;;2120
 ;;21,"52959-0363-60 ")
 ;;2121
 ;;21,"52959-0370-00 ")
 ;;726
 ;;21,"52959-0370-02 ")
 ;;727
 ;;21,"52959-0370-12 ")
 ;;728
 ;;21,"52959-0370-20 ")
 ;;729
 ;;21,"52959-0370-25 ")
 ;;730
 ;;21,"52959-0370-30 ")
 ;;731
 ;;21,"52959-0370-50 ")
 ;;732
 ;;21,"52959-0370-60 ")
 ;;733
 ;;21,"52959-0370-90 ")
 ;;734
 ;;21,"52959-0399-00 ")
 ;;1012
 ;;21,"52959-0399-02 ")
 ;;944
 ;;21,"52959-0399-30 ")
 ;;1017
 ;;21,"52959-0399-50 ")
 ;;1018
 ;;21,"52959-0399-90 ")
 ;;1019
 ;;21,"52959-0514-00 ")
 ;;391
 ;;21,"52959-0514-01 ")
 ;;392
 ;;21,"52959-0514-10 ")
 ;;393
 ;;21,"52959-0514-20 ")
 ;;394
 ;;21,"52959-0514-21 ")
 ;;395
 ;;21,"52959-0514-30 ")
 ;;396
 ;;21,"52959-0514-60 ")
 ;;397
 ;;21,"52959-0514-90 ")
 ;;398
 ;;21,"52959-0537-30 ")
 ;;1131
 ;;21,"52959-0537-90 ")
 ;;1132
 ;;21,"52959-0541-10 ")
 ;;1200
 ;;21,"52959-0541-20 ")
 ;;1201
 ;;21,"52959-0541-30 ")
 ;;1202
 ;;21,"52959-0541-60 ")
 ;;1203
 ;;21,"52959-0542-14 ")
 ;;533
 ;;21,"52959-0542-15 ")
 ;;534
 ;;21,"52959-0542-21 ")
 ;;535
 ;;21,"52959-0542-28 ")
 ;;536
 ;;21,"52959-0542-30 ")
 ;;537
 ;;21,"52959-0542-40 ")
 ;;538
 ;;21,"52959-0542-42 ")
 ;;539
 ;;21,"52959-0662-30 ")
 ;;1211
 ;;21,"52959-0727-00 ")
 ;;1797
 ;;21,"52959-0727-10 ")
 ;;1798
 ;;21,"52959-0727-30 ")
 ;;1799
 ;;21,"52959-0767-30 ")
 ;;911
 ;;21,"52959-0767-60 ")
 ;;912
 ;;21,"52959-0791-30 ")
 ;;1471
 ;;21,"52959-0852-00 ")
 ;;1419
 ;;21,"52959-0852-10 ")
 ;;1420
 ;;21,"52959-0852-12 ")
 ;;1421
 ;;21,"52959-0852-30 ")
 ;;1422
 ;;21,"52959-0852-60 ")
 ;;1423
 ;;21,"52959-0865-00 ")
 ;;1068
 ;;21,"52959-0865-30 ")
 ;;1069
 ;;21,"52959-0870-30 ")
 ;;2532
 ;;21,"52959-0879-02 ")
 ;;2036
 ;;21,"52959-0879-10 ")
 ;;2037
 ;;21,"52959-0879-14 ")
 ;;2038
 ;;21,"52959-0879-15 ")
 ;;2039
 ;;21,"52959-0879-20 ")
 ;;2040
 ;;21,"52959-0879-28 ")
 ;;2041
 ;;21,"52959-0879-30 ")
 ;;2042
 ;;21,"52959-0879-42 ")
 ;;1856
 ;;21,"52959-0879-60 ")
 ;;2034
 ;;21,"52959-0879-90 ")
 ;;2035
 ;;21,"52959-0880-00 ")
 ;;2466
 ;;21,"52959-0880-02 ")
 ;;2467
 ;;21,"52959-0880-10 ")
 ;;2468
 ;;21,"52959-0880-14 ")
 ;;2469
 ;;21,"52959-0880-15 ")
 ;;2470
 ;;21,"52959-0880-20 ")
 ;;2471
 ;;21,"52959-0880-28 ")
 ;;2472
 ;;21,"52959-0880-30 ")
 ;;2473
 ;;21,"52959-0880-45 ")
 ;;2114
 ;;21,"52959-0880-60 ")
 ;;2464
 ;;21,"52959-0880-90 ")
 ;;2465
 ;;21,"52959-0881-30 ")
 ;;1741
 ;;21,"52959-0900-30 ")
 ;;1527
 ;;21,"52959-0912-60 ")
 ;;1025
 ;;21,"52959-0913-02 ")
 ;;860
 ;;21,"52959-0913-30 ")
 ;;861
 ;;21,"52959-0913-90 ")
 ;;879
 ;;21,"52959-0919-00 ")
 ;;1363
 ;;21,"52959-0919-30 ")
 ;;1364
 ;;21,"52959-0919-60 ")
 ;;1365
 ;;21,"52959-0957-30 ")
 ;;1834
 ;;21,"52959-0971-30 ")
 ;;1765
 ;;21,"53002-0339-00 ")
 ;;203
 ;;21,"53002-0339-30 ")
 ;;204
 ;;21,"53002-0339-60 ")
 ;;205
 ;;21,"53002-0491-00 ")
 ;;54
 ;;21,"53002-0491-30 ")
 ;;55
 ;;21,"53002-0491-60 ")
 ;;56
 ;;21,"53002-0502-05 ")
 ;;2474
 ;;21,"53002-0502-10 ")
 ;;2475
 ;;21,"53002-0502-20 ")
 ;;2476
 ;;21,"53002-0502-30 ")
 ;;2477
 ;;21,"53002-1292-01 ")
 ;;2043
 ;;21,"53002-1292-02 ")
 ;;2044
 ;;21,"53002-1292-03 ")
 ;;2045
 ;;21,"53002-1594-01 ")
 ;;1835
 ;;21,"53217-0070-20 ")
 ;;1133
 ;;21,"53217-0070-30 ")
 ;;1134
 ;;21,"53217-0070-60 ")
 ;;1135
 ;;21,"53217-0075-30 ")
 ;;1506
 ;;21,"53217-0075-60 ")
 ;;1507
 ;;21,"53217-0125-02 ")
 ;;768
 ;;21,"53217-0125-28 ")
 ;;769
 ;;21,"53217-0125-30 ")
 ;;770
 ;;21,"53217-0125-40 ")
 ;;771
 ;;21,"53217-0125-56 ")
 ;;772
 ;;21,"53217-0125-60 ")
 ;;773
 ;;21,"53217-0125-84 ")
 ;;774
 ;;21,"53217-0125-90 ")
 ;;775
 ;;21,"53489-0148-01 ")
 ;;1702
 ;;21,"53489-0148-10 ")
 ;;1703
 ;;21,"53489-0149-01 ")
 ;;1704
 ;;21,"53489-0149-10 ")
 ;;1705
 ;;21,"53489-0150-01 ")
 ;;1718
 ;;21,"53489-0150-10 ")
 ;;1719
 ;;21,"53489-0281-01 ")
 ;;1303
 ;;21,"53489-0281-05 ")
 ;;1304
 ;;21,"53489-0281-10 ")
 ;;1305
 ;;21,"53489-0330-01 ")
 ;;1431
 ;;21,"53489-0331-01 ")
 ;;1453
 ;;21,"53489-0332-01 ")
 ;;1505
 ;;21,"53489-0500-01 ")
 ;;1720
 ;;21,"54348-0507-30 ")
 ;;228
 ;;21,"54348-0987-16 ")
 ;;776
 ;;21,"54569-0172-00 ")
 ;;122
 ;;21,"54569-0172-01 ")
 ;;123
 ;;21,"54569-0172-04 ")
 ;;124
 ;;21,"54569-0172-06 ")
 ;;125
 ;;21,"54569-0172-07 ")
 ;;126
 ;;21,"54569-0172-08 ")
 ;;127
 ;;21,"54569-0175-00 ")
 ;;223
 ;;21,"54569-0175-01 ")
 ;;224
 ;;21,"54569-0175-02 ")
 ;;225
 ;;21,"54569-0175-04 ")
 ;;226
 ;;21,"54569-0175-08 ")
 ;;227
 ;;21,"54569-0194-00 ")
 ;;1454
 ;;21,"54569-0339-04 ")
 ;;993
 ;;21,"54569-1519-00 ")
 ;;359
 ;;21,"54569-1519-01 ")
 ;;360
 ;;21,"54569-1519-02 ")
 ;;361
 ;;21,"54569-1519-05 ")
 ;;362
 ;;21,"54569-1696-01 ")
 ;;1267
 ;;21,"54569-2146-01 ")
 ;;518
 ;;21,"54569-2146-02 ")
 ;;519
 ;;21,"54569-2538-00 ")
 ;;777
 ;;21,"54569-2538-03 ")
 ;;778
 ;;21,"54569-2538-05 ")
 ;;779
 ;;21,"54569-3441-00 ")
 ;;862
 ;;21,"54569-3827-03 ")
 ;;1896
 ;;21,"54569-3828-01 ")
 ;;2165
 ;;21,"54569-4837-00 ")
 ;;1795
 ;;21,"54569-4935-00 ")
 ;;863
 ;;21,"54569-5684-00 ")
 ;;1388
 ;;21,"54569-5696-00 ")
 ;;1344
 ;;21,"54569-5760-00 ")
 ;;2572
 ;;21,"54569-5760-01 ")
 ;;2573
 ;;21,"54569-5906-00 ")
 ;;2000
 ;;21,"54569-5906-01 ")
 ;;2001
 ;;21,"54569-5906-02 ")
 ;;2002
 ;;21,"54569-5906-03 ")
 ;;2003
 ;;21,"54569-5906-04 ")
 ;;2004
 ;;21,"54569-5907-00 ")
 ;;2334
 ;;21,"54569-5907-01 ")
 ;;2335
 ;;21,"54569-6118-00 ")
 ;;1850
 ;;21,"54569-6118-01 ")
 ;;1851
 ;;21,"54569-6231-00 ")
 ;;2579
 ;;21,"54569-6231-01 ")
 ;;2580
 ;;21,"54569-6378-00 ")
 ;;2501
 ;;21,"54738-0912-01 ")
 ;;1430
 ;;21,"54738-0913-01 ")
 ;;1455
 ;;21,"54738-0914-01 ")
 ;;1504
 ;;21,"54838-0512-40 ")
 ;;1294
 ;;21,"54868-0031-00 ")
 ;;1560
 ;;21,"54868-0031-01 ")
 ;;1597
 ;;21,"54868-0031-02 ")
 ;;1561
 ;;21,"54868-0031-03 ")
 ;;1562
 ;;21,"54868-0031-04 ")
 ;;1563
 ;;21,"54868-0062-00 ")
 ;;1154
 ;;21,"54868-0062-02 ")
 ;;1155
 ;;21,"54868-0062-04 ")
 ;;1156
 ;;21,"54868-0064-02 ")
 ;;118
 ;;21,"54868-0064-05 ")
 ;;119
 ;;21,"54868-0064-06 ")
 ;;120
 ;;21,"54868-0064-07 ")
 ;;121
 ;;21,"54868-0065-00 ")
 ;;229
 ;;21,"54868-0065-02 ")
 ;;230
 ;;21,"54868-0065-03 ")
 ;;231
 ;;21,"54868-0065-04 ")
 ;;232
 ;;21,"54868-0065-05 ")
 ;;233
 ;;21,"54868-0065-08 ")
 ;;234
 ;;21,"54868-0066-02 ")
 ;;355
 ;;21,"54868-0066-05 ")
 ;;356
 ;;21,"54868-0066-06 ")
 ;;357
 ;;21,"54868-0066-07 ")
 ;;358
 ;;21,"54868-0845-00 ")
 ;;2005
 ;;21,"54868-0845-01 ")
 ;;2006
 ;;21,"54868-0845-02 ")
 ;;2007
 ;;21,"54868-0845-03 ")
 ;;2008
 ;;21,"54868-0846-00 ")
 ;;2336
 ;;21,"54868-0846-01 ")
 ;;2337
 ;;21,"54868-0846-02 ")
 ;;2338
 ;;21,"54868-0846-03 ")
 ;;2339
 ;;21,"54868-0846-04 ")
 ;;2340
 ;;21,"54868-0846-05 ")
 ;;2341
 ;;21,"54868-0846-06 ")
 ;;2342
 ;;21,"54868-0899-00 ")
 ;;1306
 ;;21,"54868-0899-01 ")
 ;;1307
 ;;21,"54868-1036-00 ")
 ;;759
 ;;21,"54868-1036-01 ")
 ;;760
 ;;21,"54868-1036-02 ")
 ;;761
 ;;21,"54868-1036-03 ")
 ;;762
 ;;21,"54868-1036-04 ")
 ;;763
 ;;21,"54868-1036-05 ")
 ;;764
 ;;21,"54868-1036-06 ")
 ;;765
 ;;21,"54868-1036-07 ")
 ;;766
 ;;21,"54868-1036-08 ")
 ;;767
 ;;21,"54868-1037-01 ")
 ;;1081
 ;;21,"54868-1037-03 ")
 ;;1082
 ;;21,"54868-1037-04 ")
 ;;1083
 ;;21,"54868-1037-05 ")
 ;;1084
 ;;21,"54868-1053-00 ")
 ;;851
 ;;21,"54868-1053-01 ")
 ;;852
 ;;21,"54868-1053-02 ")
 ;;853
 ;;21,"54868-1053-04 ")
 ;;854
 ;;21,"54868-1053-05 ")
 ;;855
 ;;21,"54868-1075-00 ")
 ;;994
 ;;21,"54868-1075-01 ")
 ;;995
 ;;21,"54868-1075-02 ")
 ;;1014
 ;;21,"54868-1075-03 ")
 ;;1015
 ;;21,"54868-1075-04 ")
 ;;1016
 ;;21,"54868-1109-00 ")
 ;;606
 ;;21,"54868-1219-01 ")
 ;;1673
 ;;21,"54868-1219-02 ")
 ;;1674
 ;;21,"54868-1219-03 ")
 ;;1675
 ;;21,"54868-1219-04 ")
 ;;1676
 ;;21,"54868-1237-01 ")
 ;;1583
 ;;21,"54868-1254-00 ")
 ;;1672
 ;;21,"54868-1344-00 ")
 ;;1456
 ;;21,"54868-1344-02 ")
 ;;1457
 ;;21,"54868-1344-03 ")
 ;;1458
 ;;21,"54868-1344-04 ")
 ;;1459
 ;;21,"54868-1447-00 ")
 ;;1105
 ;;21,"54868-1698-02 ")
 ;;1635
 ;;21,"54868-1698-03 ")
 ;;1636
 ;;21,"54868-1964-02 ")
 ;;1265
 ;;21,"54868-1964-03 ")
 ;;1266
 ;;21,"54868-2087-00 ")
 ;;1620
 ;;21,"54868-2221-00 ")
 ;;1499
 ;;21,"54868-2221-01 ")
 ;;1500
 ;;21,"54868-2221-03 ")
 ;;1501
 ;;21,"54868-2221-04 ")
 ;;1502
 ;;21,"54868-2221-05 ")
 ;;1503
 ;;21,"54868-2284-02 ")
 ;;1285
 ;;21,"54868-2284-06 ")
 ;;1286
 ;;21,"54868-2317-00 ")
 ;;1150
 ;;21,"54868-2317-02 ")
 ;;1151
 ;;21,"54868-2317-03 ")
 ;;1152
 ;;21,"54868-2317-04 ")
 ;;1153
 ;;21,"54868-2357-00 ")
 ;;474
 ;;21,"54868-2357-02 ")
 ;;475
 ;;21,"54868-2357-03 ")
 ;;476
 ;;21,"54868-2433-00 ")
 ;;516
 ;;21,"54868-2433-02 ")
 ;;517
 ;;21,"54868-2434-00 ")
 ;;569
 ;;21,"54868-2434-02 ")
 ;;570
 ;;21,"54868-2552-00 ")
 ;;1268
 ;;21,"54868-2571-00 ")
 ;;1432
 ;;21,"54868-2571-01 ")
 ;;1433
 ;;21,"54868-2642-00 ")
 ;;1897
 ;;21,"54868-2642-01 ")
 ;;1898
 ;;21,"54868-2642-02 ")
 ;;1899
 ;;21,"54868-2642-03 ")
 ;;1900
 ;;21,"54868-2642-04 ")
 ;;1901
 ;;21,"54868-2643-00 ")
 ;;2166
 ;;21,"54868-2643-01 ")
 ;;2167
 ;;21,"54868-2643-02 ")
 ;;2168
 ;;21,"54868-2643-04 ")
 ;;2169
 ;;21,"54868-2643-05 ")
 ;;2170
 ;;21,"54868-2643-06 ")
 ;;2171
 ;;21,"54868-2643-07 ")
 ;;2172
 ;;21,"54868-2643-08 ")
 ;;2173
 ;;21,"54868-2778-00 ")
 ;;901
 ;;21,"54868-2778-01 ")
 ;;902
 ;;21,"54868-2778-02 ")
 ;;903
 ;;21,"54868-2778-03 ")
 ;;904
 ;;21,"54868-3317-00 ")
 ;;1052
 ;;21,"54868-3381-00 ")
 ;;1689
 ;;21,"54868-3533-00 ")
 ;;1287
 ;;21,"54868-3533-01 ")
 ;;1288
 ;;21,"54868-3927-00 ")
 ;;599
 ;;21,"54868-4023-00 ")
 ;;1109
 ;;21,"54868-4023-01 ")
 ;;1110
 ;;21,"54868-4431-00 ")
 ;;1791
 ;;21,"54868-4431-01 ")
 ;;1792
 ;;21,"54868-4431-02 ")
 ;;1793
 ;;21,"54868-4431-03 ")
 ;;1794
 ;;21,"54868-5139-00 ")
 ;;1738
 ;;21,"54868-5139-01 ")
 ;;1739
 ;;21,"54868-5162-00 ")
 ;;1048
 ;;21,"54868-5162-01 ")
 ;;1049
 ;;21,"54868-5162-02 ")
 ;;1050
 ;;21,"54868-5162-03 ")
 ;;1051
 ;;21,"54868-5273-00 ")
 ;;1341
 ;;21,"54868-5273-01 ")
 ;;1342
 ;;21,"54868-5273-02 ")
 ;;1343
 ;;21,"54868-5394-00 ")
 ;;1389
 ;;21,"54868-5394-01 ")
 ;;1390
 ;;21,"54868-5394-02 ")
 ;;1391
 ;;21,"54868-5394-03 ")
 ;;1392
 ;;21,"54868-5426-00 ")
 ;;2574
 ;;21,"54868-5426-01 ")
 ;;2575
 ;;21,"54868-5426-02 ")
 ;;2576
 ;;21,"54868-5426-03 ")
 ;;2577
 ;;21,"54868-5426-04 ")
 ;;2578
 ;;21,"54868-5439-00 ")
 ;;1318
 ;;21,"54868-5439-01 ")
 ;;1319
 ;;21,"54868-5461-00 ")
 ;;2498
 ;;21,"54868-5461-01 ")
 ;;2499
 ;;21,"54868-5461-02 ")
 ;;2500
 ;;21,"54868-5766-00 ")
 ;;619
 ;;21,"54868-5908-00 ")
 ;;1809
 ;;21,"54868-5908-01 ")
 ;;1810
 ;;21,"54868-5909-00 ")
 ;;1746
 ;;21,"54868-5909-01 ")
 ;;1747
 ;;21,"54868-5943-00 ")
 ;;889