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

BGP51O2.m

Go to the documentation of this file.
BGP51O2 ;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,"21695-0078-30 ")
 ;;1800
 ;;21,"21695-0078-40 ")
 ;;1801
 ;;21,"21695-0078-60 ")
 ;;1802
 ;;21,"21695-0078-90 ")
 ;;1803
 ;;21,"21695-0079-00 ")
 ;;1945
 ;;21,"21695-0079-07 ")
 ;;1946
 ;;21,"21695-0079-12 ")
 ;;1947
 ;;21,"21695-0079-20 ")
 ;;1948
 ;;21,"21695-0079-28 ")
 ;;1949
 ;;21,"21695-0079-30 ")
 ;;1950
 ;;21,"21695-0079-40 ")
 ;;1951
 ;;21,"21695-0079-60 ")
 ;;1952
 ;;21,"21695-0079-90 ")
 ;;1953
 ;;21,"21695-0099-14 ")
 ;;2264
 ;;21,"21695-0099-20 ")
 ;;2265
 ;;21,"21695-0099-28 ")
 ;;2266
 ;;21,"21695-0099-30 ")
 ;;2267
 ;;21,"21695-0099-56 ")
 ;;2268
 ;;21,"21695-0099-60 ")
 ;;2269
 ;;21,"21695-0099-90 ")
 ;;2270
 ;;21,"21695-0123-15 ")
 ;;1583
 ;;21,"21695-0123-30 ")
 ;;1584
 ;;21,"21695-0123-60 ")
 ;;1585
 ;;21,"21695-0123-90 ")
 ;;1586
 ;;21,"21695-0569-07 ")
 ;;617
 ;;21,"21695-0569-10 ")
 ;;618
 ;;21,"21695-0569-14 ")
 ;;619
 ;;21,"21695-0569-20 ")
 ;;620
 ;;21,"21695-0569-30 ")
 ;;621
 ;;21,"21695-0569-60 ")
 ;;622
 ;;21,"21695-0569-90 ")
 ;;623
 ;;21,"21695-0570-30 ")
 ;;502
 ;;21,"21695-0570-60 ")
 ;;503
 ;;21,"21695-0585-10 ")
 ;;1487
 ;;21,"21695-0585-30 ")
 ;;1488
 ;;21,"21695-0585-60 ")
 ;;1489
 ;;21,"21695-0585-90 ")
 ;;1490
 ;;21,"21695-0606-30 ")
 ;;12
 ;;21,"21695-0723-14 ")
 ;;1406
 ;;21,"21695-0723-28 ")
 ;;1407
 ;;21,"21695-0723-60 ")
 ;;1408
 ;;21,"21695-0726-30 ")
 ;;2367
 ;;21,"21695-0726-45 ")
 ;;2368
 ;;21,"21695-0830-30 ")
 ;;928
 ;;21,"21695-0830-60 ")
 ;;929
 ;;21,"21695-0830-72 ")
 ;;930
 ;;21,"21695-0830-90 ")
 ;;931
 ;;21,"21695-0953-30 ")
 ;;1413
 ;;21,"21695-0953-60 ")
 ;;1414
 ;;21,"23155-0145-01 ")
 ;;504
 ;;21,"23490-5212-00 ")
 ;;395
 ;;21,"23490-5212-01 ")
 ;;396
 ;;21,"23490-5212-02 ")
 ;;397
 ;;21,"23490-5212-03 ")
 ;;398
 ;;21,"23490-5212-04 ")
 ;;399
 ;;21,"23490-5212-05 ")
 ;;400
 ;;21,"23490-5212-06 ")
 ;;401
 ;;21,"23490-5212-07 ")
 ;;402
 ;;21,"23490-5212-08 ")
 ;;403
 ;;21,"23490-5212-09 ")
 ;;404
 ;;21,"23490-5310-01 ")
 ;;698
 ;;21,"23490-5310-02 ")
 ;;699
 ;;21,"23490-5310-03 ")
 ;;700
 ;;21,"23490-5310-04 ")
 ;;701
 ;;21,"23490-5377-00 ")
 ;;1125
 ;;21,"23490-5377-01 ")
 ;;1126
 ;;21,"23490-5377-02 ")
 ;;1127
 ;;21,"23490-5377-03 ")
 ;;1128
 ;;21,"23490-5377-04 ")
 ;;1129
 ;;21,"23490-5377-05 ")
 ;;1130
 ;;21,"23490-5377-06 ")
 ;;1131
 ;;21,"23490-5377-07 ")
 ;;1132
 ;;21,"23490-5377-08 ")
 ;;1133
 ;;21,"23490-5377-09 ")
 ;;1134
 ;;21,"23490-5882-01 ")
 ;;1845
 ;;21,"23490-5882-02 ")
 ;;1846
 ;;21,"23490-5882-03 ")
 ;;1847
 ;;21,"23490-5882-04 ")
 ;;1848
 ;;21,"23490-5882-05 ")
 ;;1849
 ;;21,"23490-5882-06 ")
 ;;1850
 ;;21,"23490-5883-01 ")
 ;;2034
 ;;21,"23490-5883-02 ")
 ;;2035
 ;;21,"23490-5883-03 ")
 ;;2036
 ;;21,"23490-5883-04 ")
 ;;2037
 ;;21,"23490-5883-05 ")
 ;;2038
 ;;21,"23490-5883-06 ")
 ;;2039
 ;;21,"23490-5884-03 ")
 ;;1509
 ;;21,"23490-6039-01 ")
 ;;2226
 ;;21,"23490-6039-02 ")
 ;;2227
 ;;21,"23490-6039-03 ")
 ;;2228
 ;;21,"23490-6039-04 ")
 ;;2229
 ;;21,"23490-6039-09 ")
 ;;2230
 ;;21,"23490-7641-01 ")
 ;;1550
 ;;21,"23490-7641-02 ")
 ;;1551
 ;;21,"23490-7673-00 ")
 ;;803
 ;;21,"23490-7673-01 ")
 ;;804
 ;;21,"23490-7673-03 ")
 ;;805
 ;;21,"23490-7673-04 ")
 ;;806
 ;;21,"23490-7673-05 ")
 ;;807
 ;;21,"23490-7673-06 ")
 ;;808
 ;;21,"23490-7917-00 ")
 ;;405
 ;;21,"23490-7917-04 ")
 ;;406
 ;;21,"23490-7917-05 ")
 ;;407
 ;;21,"23490-7917-07 ")
 ;;408
 ;;21,"23490-7917-08 ")
 ;;409
 ;;21,"23490-7940-01 ")
 ;;1108
 ;;21,"23490-7940-02 ")
 ;;1109
 ;;21,"25021-0651-02 ")
 ;;2204
 ;;21,"29336-0540-06 ")
 ;;2203
 ;;21,"31722-0282-01 ")
 ;;809
 ;;21,"31722-0283-01 ")
 ;;1106
 ;;21,"31722-0283-10 ")
 ;;1107
 ;;21,"31722-0533-01 ")
 ;;1851
 ;;21,"31722-0533-05 ")
 ;;1852
 ;;21,"31722-0534-01 ")
 ;;2020
 ;;21,"31722-0534-05 ")
 ;;2021
 ;;21,"33261-0016-00 ")
 ;;410
 ;;21,"33261-0016-02 ")
 ;;411
 ;;21,"33261-0016-03 ")
 ;;412
 ;;21,"33261-0016-07 ")
 ;;413
 ;;21,"33261-0016-12 ")
 ;;414
 ;;21,"33261-0016-14 ")
 ;;415
 ;;21,"33261-0016-20 ")
 ;;416
 ;;21,"33261-0016-21 ")
 ;;417
 ;;21,"33261-0016-24 ")
 ;;418
 ;;21,"33261-0016-25 ")
 ;;419
 ;;21,"33261-0016-28 ")
 ;;420
 ;;21,"33261-0016-30 ")
 ;;421
 ;;21,"33261-0016-36 ")
 ;;422
 ;;21,"33261-0016-40 ")
 ;;423
 ;;21,"33261-0016-50 ")
 ;;424
 ;;21,"33261-0016-60 ")
 ;;425
 ;;21,"33261-0016-90 ")
 ;;426
 ;;21,"33261-0021-07 ")
 ;;690
 ;;21,"33261-0021-14 ")
 ;;691
 ;;21,"33261-0021-20 ")
 ;;692
 ;;21,"33261-0021-21 ")
 ;;693
 ;;21,"33261-0021-28 ")
 ;;694
 ;;21,"33261-0021-30 ")
 ;;695
 ;;21,"33261-0021-60 ")
 ;;696
 ;;21,"33261-0021-90 ")
 ;;697
 ;;21,"33261-0033-00 ")
 ;;1110
 ;;21,"33261-0033-02 ")
 ;;1111
 ;;21,"33261-0033-07 ")
 ;;1112
 ;;21,"33261-0033-10 ")
 ;;1113
 ;;21,"33261-0033-14 ")
 ;;1114
 ;;21,"33261-0033-20 ")
 ;;1115
 ;;21,"33261-0033-21 ")
 ;;1116
 ;;21,"33261-0033-25 ")
 ;;1117
 ;;21,"33261-0033-28 ")
 ;;1118
 ;;21,"33261-0033-30 ")
 ;;1119
 ;;21,"33261-0033-40 ")
 ;;1120
 ;;21,"33261-0033-45 ")
 ;;1121
 ;;21,"33261-0033-50 ")
 ;;1122
 ;;21,"33261-0033-60 ")
 ;;1123
 ;;21,"33261-0033-90 ")
 ;;1124
 ;;21,"33261-0072-00 ")
 ;;2022
 ;;21,"33261-0072-02 ")
 ;;2023
 ;;21,"33261-0072-03 ")
 ;;2024
 ;;21,"33261-0072-14 ")
 ;;2025
 ;;21,"33261-0072-20 ")
 ;;2026
 ;;21,"33261-0072-21 ")
 ;;2027
 ;;21,"33261-0072-28 ")
 ;;2028
 ;;21,"33261-0072-30 ")
 ;;2029
 ;;21,"33261-0072-40 ")
 ;;2030
 ;;21,"33261-0072-50 ")
 ;;2031
 ;;21,"33261-0072-60 ")
 ;;2032
 ;;21,"33261-0072-90 ")
 ;;2033
 ;;21,"33261-0088-02 ")
 ;;2237
 ;;21,"33261-0088-10 ")
 ;;2238
 ;;21,"33261-0088-14 ")
 ;;2239
 ;;21,"33261-0088-20 ")
 ;;2240
 ;;21,"33261-0088-21 ")
 ;;2241
 ;;21,"33261-0088-28 ")
 ;;2242
 ;;21,"33261-0088-30 ")
 ;;2243
 ;;21,"33261-0088-40 ")
 ;;2244
 ;;21,"33261-0088-60 ")
 ;;2245
 ;;21,"33261-0088-84 ")
 ;;2246
 ;;21,"33261-0088-90 ")
 ;;2247
 ;;21,"33261-0130-00 ")
 ;;1853
 ;;21,"33261-0130-02 ")
 ;;1854
 ;;21,"33261-0130-03 ")
 ;;1855
 ;;21,"33261-0130-14 ")
 ;;1856
 ;;21,"33261-0130-20 ")
 ;;1857
 ;;21,"33261-0130-21 ")
 ;;1858
 ;;21,"33261-0130-28 ")
 ;;1859
 ;;21,"33261-0130-30 ")
 ;;1860
 ;;21,"33261-0130-40 ")
 ;;1861
 ;;21,"33261-0130-50 ")
 ;;1862
 ;;21,"33261-0130-60 ")
 ;;1863
 ;;21,"33261-0130-90 ")
 ;;1864
 ;;21,"33261-0377-02 ")
 ;;789
 ;;21,"33261-0377-07 ")
 ;;790
 ;;21,"33261-0377-10 ")
 ;;791
 ;;21,"33261-0377-12 ")
 ;;792
 ;;21,"33261-0377-14 ")
 ;;793
 ;;21,"33261-0377-20 ")
 ;;794
 ;;21,"33261-0377-21 ")
 ;;795
 ;;21,"33261-0377-25 ")
 ;;796
 ;;21,"33261-0377-28 ")
 ;;797
 ;;21,"33261-0377-30 ")
 ;;798
 ;;21,"33261-0377-40 ")
 ;;799
 ;;21,"33261-0377-50 ")
 ;;800
 ;;21,"33261-0377-60 ")
 ;;801
 ;;21,"33261-0377-90 ")
 ;;802
 ;;21,"33261-0387-00 ")
 ;;378
 ;;21,"33261-0387-02 ")
 ;;379
 ;;21,"33261-0387-03 ")
 ;;380
 ;;21,"33261-0387-07 ")
 ;;381
 ;;21,"33261-0387-12 ")
 ;;382
 ;;21,"33261-0387-14 ")
 ;;383
 ;;21,"33261-0387-20 ")
 ;;384
 ;;21,"33261-0387-21 ")
 ;;385
 ;;21,"33261-0387-24 ")
 ;;386
 ;;21,"33261-0387-25 ")
 ;;387
 ;;21,"33261-0387-28 ")
 ;;388
 ;;21,"33261-0387-30 ")
 ;;389
 ;;21,"33261-0387-36 ")
 ;;390
 ;;21,"33261-0387-40 ")
 ;;391
 ;;21,"33261-0387-50 ")
 ;;392
 ;;21,"33261-0387-60 ")
 ;;393
 ;;21,"33261-0387-90 ")
 ;;394
 ;;21,"33261-0531-14 ")
 ;;1552
 ;;21,"33261-0531-30 ")
 ;;1553
 ;;21,"33261-0531-60 ")
 ;;1554
 ;;21,"33261-0531-90 ")
 ;;1555
 ;;21,"33261-0724-00 ")
 ;;1505
 ;;21,"33261-0724-15 ")
 ;;1506
 ;;21,"33261-0724-30 ")
 ;;1507
 ;;21,"33261-0724-60 ")
 ;;1508
 ;;21,"33261-0859-00 ")
 ;;905
 ;;21,"33261-0859-15 ")
 ;;906
 ;;21,"33261-0859-30 ")
 ;;907
 ;;21,"33261-0859-60 ")
 ;;908
 ;;21,"33261-0859-90 ")
 ;;909
 ;;21,"33358-0064-00 ")
 ;;370
 ;;21,"33358-0064-01 ")
 ;;371
 ;;21,"33358-0064-15 ")
 ;;372
 ;;21,"33358-0064-20 ")
 ;;373
 ;;21,"33358-0064-30 ")
 ;;374
 ;;21,"33358-0064-50 ")
 ;;375
 ;;21,"33358-0064-60 ")
 ;;376
 ;;21,"33358-0064-90 ")
 ;;377
 ;;21,"33358-0073-20 ")
 ;;702
 ;;21,"33358-0073-30 ")
 ;;703
 ;;21,"33358-0073-60 ")
 ;;704
 ;;21,"33358-0073-90 ")
 ;;705
 ;;21,"33358-0097-00 ")
 ;;1098
 ;;21,"33358-0097-01 ")
 ;;1099
 ;;21,"33358-0097-15 ")
 ;;1100
 ;;21,"33358-0097-20 ")
 ;;1101
 ;;21,"33358-0097-28 ")
 ;;1102
 ;;21,"33358-0097-30 ")
 ;;1103
 ;;21,"33358-0097-60 ")
 ;;1104
 ;;21,"33358-0097-90 ")
 ;;1105
 ;;21,"33358-0239-14 ")
 ;;1840
 ;;21,"33358-0239-20 ")
 ;;1841
 ;;21,"33358-0239-30 ")
 ;;1842
 ;;21,"33358-0239-60 ")
 ;;1843
 ;;21,"33358-0239-90 ")
 ;;1844
 ;;21,"33358-0240-01 ")
 ;;2040
 ;;21,"33358-0240-20 ")
 ;;2041
 ;;21,"33358-0240-30 ")
 ;;2042
 ;;21,"33358-0240-40 ")
 ;;2043
 ;;21,"33358-0240-60 ")
 ;;2044
 ;;21,"33358-0240-90 ")
 ;;2045
 ;;21,"33358-0274-20 ")
 ;;2248
 ;;21,"33358-0274-30 ")
 ;;2249
 ;;21,"33358-0274-60 ")
 ;;2250
 ;;21,"33358-0325-01 ")
 ;;1556
 ;;21,"33358-0325-30 ")
 ;;1557
 ;;21,"33358-0325-45 ")
 ;;1558
 ;;21,"33358-0325-60 ")
 ;;1559
 ;;21,"33358-0325-90 ")
 ;;1560
 ;;21,"35356-0262-10 ")
 ;;1395
 ;;21,"35356-0262-30 ")
 ;;1396
 ;;21,"35356-0262-60 ")
 ;;1397
 ;;21,"35356-0262-90 ")
 ;;1398
 ;;21,"35356-0263-01 ")
 ;;1417
 ;;21,"35356-0263-30 ")
 ;;1418
 ;;21,"35356-0265-15 ")
 ;;1373
 ;;21,"35356-0265-20 ")
 ;;1374
 ;;21,"35356-0501-30 ")
 ;;4
 ;;21,"35356-0501-60 ")
 ;;5
 ;;21,"35356-0570-15 ")
 ;;1500
 ;;21,"35356-0570-20 ")
 ;;1501
 ;;21,"35356-0570-30 ")
 ;;1502
 ;;21,"35356-0570-60 ")
 ;;1503
 ;;21,"35356-0570-90 ")
 ;;1504
 ;;21,"35356-0617-90 ")
 ;;927
 ;;21,"35356-0653-01 ")
 ;;1076
 ;;21,"35356-0653-07 ")
 ;;1077
 ;;21,"35356-0653-12 ")
 ;;1078
 ;;21,"35356-0653-15 ")
 ;;1079
 ;;21,"35356-0653-20 ")
 ;;1080
 ;;21,"35356-0653-21 ")
 ;;1081
 ;;21,"35356-0653-30 ")
 ;;1082
 ;;21,"35356-0653-60 ")
 ;;1083
 ;;21,"35356-0653-90 ")
 ;;1084
 ;;21,"35356-0689-01 ")
 ;;2000
 ;;21,"35356-0689-20 ")
 ;;2001
 ;;21,"35356-0689-30 ")
 ;;2002
 ;;21,"35356-0689-40 ")
 ;;2003
 ;;21,"35356-0689-60 ")
 ;;2004
 ;;21,"35356-0689-90 ")
 ;;2005
 ;;21,"35356-0690-01 ")
 ;;1868
 ;;21,"35356-0690-20 ")
 ;;1869
 ;;21,"35356-0690-30 ")
 ;;1870
 ;;21,"35356-0690-40 ")
 ;;1871
 ;;21,"35356-0690-60 ")
 ;;1872
 ;;21,"35356-0690-90 ")
 ;;1873
 ;;21,"35356-0717-15 ")
 ;;1085
 ;;21,"35356-0717-30 ")
 ;;1086
 ;;21,"35356-0721-01 ")
 ;;433
 ;;21,"35356-0721-20 ")
 ;;434
 ;;21,"35356-0721-30 ")
 ;;435
 ;;21,"35356-0721-40 ")
 ;;436
 ;;21,"35356-0721-60 ")
 ;;437
 ;;21,"35356-0721-90 ")
 ;;438
 ;;21,"35356-0734-01 ")
 ;;439
 ;;21,"35356-0734-20 ")
 ;;440
 ;;21,"35356-0734-30 ")
 ;;441
 ;;21,"35356-0734-40 ")
 ;;442
 ;;21,"35356-0734-60 ")
 ;;443
 ;;21,"35356-0734-90 ")
 ;;444
 ;;21,"35356-0765-01 ")
 ;;890
 ;;21,"35356-0765-30 ")
 ;;891
 ;;21,"35356-0765-60 ")
 ;;892
 ;;21,"35356-0765-90 ")
 ;;893
 ;;21,"35356-0805-01 ")
 ;;445
 ;;21,"35356-0805-14 ")
 ;;446
 ;;21,"35356-0805-15 ")
 ;;447
 ;;21,"35356-0805-20 ")
 ;;448
 ;;21,"35356-0805-30 ")
 ;;449
 ;;21,"35356-0805-60 ")
 ;;450
 ;;21,"35356-0805-90 ")
 ;;451
 ;;21,"35356-0813-01 ")
 ;;2006
 ;;21,"35356-0813-15 ")
 ;;2007
 ;;21,"35356-0813-20 ")
 ;;2008
 ;;21,"35356-0813-30 ")
 ;;2009
 ;;21,"35356-0813-40 ")
 ;;2010
 ;;21,"35356-0813-60 ")
 ;;2011
 ;;21,"35356-0813-90 ")
 ;;2012
 ;;21,"35356-0847-00 ")
 ;;821
 ;;21,"35356-0847-21 ")
 ;;822
 ;;21,"35356-0847-30 ")
 ;;823
 ;;21,"35356-0887-30 ")
 ;;1874
 ;;21,"35356-0887-60 ")
 ;;1875
 ;;21,"35356-0987-14 ")
 ;;2233
 ;;21,"35356-0987-20 ")
 ;;2234
 ;;21,"35356-0987-30 ")
 ;;2235
 ;;21,"35356-0987-60 ")
 ;;2236
 ;;21,"42254-0035-07 ")
 ;;2063
 ;;21,"42254-0035-15 ")
 ;;2064
 ;;21,"42254-0035-28 ")
 ;;2065
 ;;21,"42254-0035-30 ")
 ;;2066
 ;;21,"42254-0035-40 ")
 ;;2067
 ;;21,"42254-0035-60 ")
 ;;2068
 ;;21,"42254-0035-90 ")
 ;;2069
 ;;21,"42254-0038-07 ")
 ;;1755
 ;;21,"42254-0038-20 ")
 ;;1756
 ;;21,"42254-0038-30 ")
 ;;1757
 ;;21,"42254-0038-40 ")
 ;;1758
 ;;21,"42254-0038-60 ")
 ;;1759
 ;;21,"42254-0038-90 ")
 ;;1760
 ;;21,"42254-0040-10 ")
 ;;1448
 ;;21,"42254-0040-16 ")
 ;;1449
 ;;21,"42254-0040-30 ")
 ;;1450
 ;;21,"42254-0040-60 ")
 ;;1451
 ;;21,"42254-0040-90 ")
 ;;1452
 ;;21,"42254-0068-15 ")
 ;;181
 ;;21,"42254-0068-20 ")
 ;;182
 ;;21,"42254-0068-30 ")
 ;;183
 ;;21,"42254-0068-40 ")
 ;;184
 ;;21,"42254-0068-42 ")
 ;;185
 ;;21,"42254-0068-45 ")
 ;;186
 ;;21,"42254-0068-60 ")
 ;;187
 ;;21,"42254-0068-72 ")
 ;;188
 ;;21,"42254-0068-90 ")
 ;;189
 ;;21,"42254-0076-07 ")
 ;;560
 ;;21,"42254-0076-20 ")
 ;;561
 ;;21,"42254-0076-30 ")
 ;;562
 ;;21,"42254-0076-40 ")
 ;;563
 ;;21,"42254-0076-60 ")
 ;;564
 ;;21,"42254-0076-90 ")
 ;;565
 ;;21,"42254-0239-30 ")
 ;;916
 ;;21,"42254-0239-60 ")
 ;;917
 ;;21,"42254-0239-72 ")
 ;;918
 ;;21,"42254-0239-90 ")
 ;;919
 ;;21,"42254-0404-90 ")
 ;;923