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

BGP50M3.m

Go to the documentation of this file.
BGP50M3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 06, 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,"43353-0858-45 ")
 ;;1730
 ;;21,"43353-0858-60 ")
 ;;1731
 ;;21,"43353-0858-98 ")
 ;;1732
 ;;21,"43353-0860-30 ")
 ;;1256
 ;;21,"43353-0860-45 ")
 ;;1257
 ;;21,"43353-0860-60 ")
 ;;1258
 ;;21,"43353-0860-88 ")
 ;;1259
 ;;21,"43353-0861-15 ")
 ;;1412
 ;;21,"43353-0861-30 ")
 ;;1413
 ;;21,"43353-0861-45 ")
 ;;1414
 ;;21,"43353-0861-60 ")
 ;;1415
 ;;21,"43353-0861-88 ")
 ;;1416
 ;;21,"43353-0871-45 ")
 ;;1255
 ;;21,"43353-0873-15 ")
 ;;254
 ;;21,"43353-0873-30 ")
 ;;255
 ;;21,"43353-0873-45 ")
 ;;256
 ;;21,"43353-0875-30 ")
 ;;1109
 ;;21,"43353-0875-60 ")
 ;;1110
 ;;21,"43353-0875-88 ")
 ;;1111
 ;;21,"43598-0313-30 ")
 ;;2001
 ;;21,"43598-0314-30 ")
 ;;1953
 ;;21,"43598-0315-30 ")
 ;;1989
 ;;21,"43598-0315-90 ")
 ;;1990
 ;;21,"43598-0316-30 ")
 ;;1947
 ;;21,"43598-0316-90 ")
 ;;1948
 ;;21,"43598-0317-30 ")
 ;;1911
 ;;21,"43598-0318-30 ")
 ;;1972
 ;;21,"43598-0318-90 ")
 ;;1973
 ;;21,"43598-0319-30 ")
 ;;1931
 ;;21,"43598-0319-90 ")
 ;;1932
 ;;21,"43598-0320-30 ")
 ;;1902
 ;;21,"43598-0321-30 ")
 ;;1964
 ;;21,"43598-0321-90 ")
 ;;1965
 ;;21,"43598-0322-30 ")
 ;;1917
 ;;21,"43598-0322-90 ")
 ;;1918
 ;;21,"43598-0323-30 ")
 ;;1896
 ;;21,"43683-0152-30 ")
 ;;1609
 ;;21,"45963-0633-01 ")
 ;;427
 ;;21,"45963-0633-04 ")
 ;;428
 ;;21,"45963-0634-01 ")
 ;;563
 ;;21,"45963-0634-04 ")
 ;;564
 ;;21,"45963-0635-01 ")
 ;;658
 ;;21,"45963-0635-04 ")
 ;;659
 ;;21,"47463-0031-30 ")
 ;;68
 ;;21,"47463-0032-30 ")
 ;;163
 ;;21,"47463-0033-30 ")
 ;;261
 ;;21,"47463-0033-90 ")
 ;;262
 ;;21,"47463-0034-30 ")
 ;;357
 ;;21,"47463-0095-30 ")
 ;;716
 ;;21,"47463-0096-30 ")
 ;;721
 ;;21,"47463-0097-30 ")
 ;;776
 ;;21,"47463-0394-30 ")
 ;;660
 ;;21,"47463-0394-90 ")
 ;;661
 ;;21,"47463-0395-30 ")
 ;;562
 ;;21,"47463-0596-30 ")
 ;;1042
 ;;21,"47463-0597-30 ")
 ;;941
 ;;21,"47463-0598-30 ")
 ;;1070
 ;;21,"47463-0774-30 ")
 ;;1607
 ;;21,"47463-0774-90 ")
 ;;1608
 ;;21,"47463-0775-30 ")
 ;;1462
 ;;21,"47463-0775-90 ")
 ;;1463
 ;;21,"47463-0776-30 ")
 ;;1769
 ;;21,"47463-0776-90 ")
 ;;1770
 ;;21,"47463-0821-30 ")
 ;;1861
 ;;21,"47463-0822-30 ")
 ;;1867
 ;;21,"47463-0823-30 ")
 ;;1892
 ;;21,"49999-0293-30 ")
 ;;429
 ;;21,"49999-0293-60 ")
 ;;430
 ;;21,"49999-0293-90 ")
 ;;431
 ;;21,"49999-0306-30 ")
 ;;1464
 ;;21,"49999-0392-30 ")
 ;;69
 ;;21,"49999-0392-90 ")
 ;;70
 ;;21,"49999-0467-30 ")
 ;;161
 ;;21,"49999-0467-90 ")
 ;;162
 ;;21,"49999-0468-30 ")
 ;;263
 ;;21,"49999-0468-90 ")
 ;;264
 ;;21,"49999-0470-30 ")
 ;;559
 ;;21,"49999-0470-60 ")
 ;;560
 ;;21,"49999-0470-90 ")
 ;;561
 ;;21,"49999-0471-00 ")
 ;;662
 ;;21,"49999-0471-30 ")
 ;;663
 ;;21,"49999-0471-60 ")
 ;;664
 ;;21,"49999-0471-90 ")
 ;;665
 ;;21,"49999-0488-30 ")
 ;;1641
 ;;21,"49999-0873-30 ")
 ;;722
 ;;21,"49999-0873-90 ")
 ;;723
 ;;21,"49999-0882-30 ")
 ;;355
 ;;21,"49999-0882-90 ")
 ;;356
 ;;21,"49999-0889-30 ")
 ;;1458
 ;;21,"49999-0889-60 ")
 ;;1459
 ;;21,"49999-0889-90 ")
 ;;1460
 ;;21,"49999-0900-90 ")
 ;;1125
 ;;21,"49999-0903-15 ")
 ;;1613
 ;;21,"49999-0903-30 ")
 ;;1614
 ;;21,"49999-0903-90 ")
 ;;1615
 ;;21,"49999-0957-30 ")
 ;;1860
 ;;21,"49999-0958-30 ")
 ;;1868
 ;;21,"49999-0989-30 ")
 ;;1923
 ;;21,"49999-0992-30 ")
 ;;774
 ;;21,"49999-0992-90 ")
 ;;775
 ;;21,"50111-0761-17 ")
 ;;848
 ;;21,"50111-0762-03 ")
 ;;939
 ;;21,"50111-0762-17 ")
 ;;940
 ;;21,"50111-0764-03 ")
 ;;1040
 ;;21,"50111-0764-17 ")
 ;;1041
 ;;21,"50436-0122-02 ")
 ;;1461
 ;;21,"50436-9989-01 ")
 ;;258
 ;;21,"50742-0137-10 ")
 ;;1260
 ;;21,"50742-0138-10 ")
 ;;1455
 ;;21,"50742-0139-10 ")
 ;;1612
 ;;21,"50742-0140-10 ")
 ;;1771
 ;;21,"51079-0208-01 ")
 ;;64
 ;;21,"51079-0208-20 ")
 ;;65
 ;;21,"51079-0209-20 ")
 ;;160
 ;;21,"51079-0210-20 ")
 ;;257
 ;;21,"51079-0211-03 ")
 ;;354
 ;;21,"51079-0393-01 ")
 ;;1456
 ;;21,"51079-0393-20 ")
 ;;1457
 ;;21,"51079-0398-01 ")
 ;;1610
 ;;21,"51079-0398-20 ")
 ;;1611
 ;;21,"51079-0409-01 ")
 ;;66
 ;;21,"51079-0409-20 ")
 ;;67
 ;;21,"51079-0410-01 ")
 ;;158
 ;;21,"51079-0410-20 ")
 ;;159
 ;;21,"51079-0411-01 ")
 ;;259
 ;;21,"51079-0411-20 ")
 ;;260
 ;;21,"51079-0412-01 ")
 ;;352
 ;;21,"51079-0412-03 ")
 ;;353
 ;;21,"51079-0454-01 ")
 ;;1263
 ;;21,"51079-0454-20 ")
 ;;1264
 ;;21,"51079-0455-01 ")
 ;;1453
 ;;21,"51079-0455-20 ")
 ;;1454
 ;;21,"51079-0456-01 ")
 ;;1616
 ;;21,"51079-0456-20 ")
 ;;1617
 ;;21,"51079-0458-01 ")
 ;;942
 ;;21,"51079-0458-20 ")
 ;;943
 ;;21,"51079-0686-01 ")
 ;;1261
 ;;21,"51079-0686-20 ")
 ;;1262
 ;;21,"51079-0782-01 ")
 ;;1038
 ;;21,"51079-0782-20 ")
 ;;1039
 ;;21,"51079-0974-01 ")
 ;;414
 ;;21,"51079-0974-20 ")
 ;;415
 ;;21,"51079-0975-01 ")
 ;;565
 ;;21,"51079-0975-20 ")
 ;;521
 ;;21,"51079-0975-56 ")
 ;;522
 ;;21,"51079-0976-01 ")
 ;;591
 ;;21,"51079-0976-20 ")
 ;;592
 ;;21,"51079-0976-56 ")
 ;;610
 ;;21,"51138-0110-30 ")
 ;;1132
 ;;21,"51138-0111-30 ")
 ;;1191
 ;;21,"51138-0112-30 ")
 ;;1360
 ;;21,"51138-0113-30 ")
 ;;1515
 ;;21,"51138-0114-30 ")
 ;;1683
 ;;21,"51138-0220-10 ")
 ;;87
 ;;21,"51138-0220-30 ")
 ;;88
 ;;21,"51138-0220-45 ")
 ;;89
 ;;21,"51138-0220-60 ")
 ;;90
 ;;21,"51138-0221-15 ")
 ;;181
 ;;21,"51138-0221-30 ")
 ;;182
 ;;21,"51138-0221-45 ")
 ;;183
 ;;21,"51138-0221-60 ")
 ;;184
 ;;21,"51138-0222-15 ")
 ;;279
 ;;21,"51138-0222-30 ")
 ;;280
 ;;21,"51138-0222-45 ")
 ;;281
 ;;21,"51138-0223-30 ")
 ;;369
 ;;21,"51138-0227-30 ")
 ;;826
 ;;21,"51138-0228-30 ")
 ;;902
 ;;21,"51138-0229-30 ")
 ;;1000
 ;;21,"51138-0230-30 ")
 ;;1060
 ;;21,"51138-0242-30 ")
 ;;827
 ;;21,"51138-0243-30 ")
 ;;901
 ;;21,"51138-0244-30 ")
 ;;1001
 ;;21,"51138-0245-30 ")
 ;;1059
 ;;21,"51138-0247-30 ")
 ;;452
 ;;21,"51138-0248-30 ")
 ;;520
 ;;21,"51138-0249-30 ")
 ;;611
 ;;21,"51138-0257-30 ")
 ;;712
 ;;21,"51138-0258-15 ")
 ;;732
 ;;21,"51138-0258-30 ")
 ;;733
 ;;21,"51138-0259-30 ")
 ;;765
 ;;21,"51138-0260-30 ")
 ;;1131
 ;;21,"51138-0261-30 ")
 ;;1192
 ;;21,"51138-0262-30 ")
 ;;1359
 ;;21,"51138-0263-30 ")
 ;;1516
 ;;21,"51138-0264-30 ")
 ;;1682
 ;;21,"51138-0274-30 ")
 ;;455
 ;;21,"51138-0275-30 ")
 ;;519
 ;;21,"51138-0276-30 ")
 ;;612
 ;;21,"51138-0363-30 ")
 ;;1846
 ;;21,"51138-0364-30 ")
 ;;1847
 ;;21,"51138-0365-30 ")
 ;;1880
 ;;21,"51138-0366-30 ")
 ;;1881
 ;;21,"52343-0021-30 ")
 ;;1133
 ;;21,"52343-0021-90 ")
 ;;1134
 ;;21,"52343-0021-99 ")
 ;;1135
 ;;21,"52343-0022-30 ")
 ;;1186
 ;;21,"52343-0022-45 ")
 ;;1187
 ;;21,"52343-0022-90 ")
 ;;1188
 ;;21,"52343-0022-99 ")
 ;;1189
 ;;21,"52343-0023-30 ")
 ;;1362
 ;;21,"52343-0023-45 ")
 ;;1363
 ;;21,"52343-0023-90 ")
 ;;1364
 ;;21,"52343-0023-99 ")
 ;;1365
 ;;21,"52343-0024-30 ")
 ;;1510
 ;;21,"52343-0024-45 ")
 ;;1511
 ;;21,"52343-0024-90 ")
 ;;1512
 ;;21,"52343-0024-99 ")
 ;;1513
 ;;21,"52343-0025-30 ")
 ;;1678
 ;;21,"52343-0025-45 ")
 ;;1679
 ;;21,"52343-0025-90 ")
 ;;1680
 ;;21,"52343-0025-99 ")
 ;;1681
 ;;21,"52959-0046-30 ")
 ;;282
 ;;21,"52959-0112-30 ")
 ;;1652
 ;;21,"52959-0720-30 ")
 ;;512
 ;;21,"52959-0759-90 ")
 ;;91
 ;;21,"52959-0760-90 ")
 ;;180
 ;;21,"52959-0944-30 ")
 ;;1514
 ;;21,"52959-0974-00 ")
 ;;453
 ;;21,"52959-0974-30 ")
 ;;454
 ;;21,"52959-0988-30 ")
 ;;1190
 ;;21,"52959-0989-30 ")
 ;;1361
 ;;21,"53002-0570-00 ")
 ;;510
 ;;21,"53002-0570-30 ")
 ;;511
 ;;21,"53002-1177-00 ")
 ;;619
 ;;21,"53002-1177-03 ")
 ;;620
 ;;21,"53002-1385-00 ")
 ;;459
 ;;21,"53002-1385-03 ")
 ;;460
 ;;21,"53002-1527-00 ")
 ;;1194
 ;;21,"53002-1527-03 ")
 ;;1195
 ;;21,"53002-1528-00 ")
 ;;1355
 ;;21,"53002-1528-03 ")
 ;;1356
 ;;21,"53002-1569-00 ")
 ;;1518
 ;;21,"53002-1569-03 ")
 ;;1519
 ;;21,"53489-0607-01 ")
 ;;461
 ;;21,"53489-0607-06 ")
 ;;462
 ;;21,"53489-0608-01 ")
 ;;513
 ;;21,"53489-0608-06 ")
 ;;514
 ;;21,"53489-0608-10 ")
 ;;515
 ;;21,"53489-0609-01 ")
 ;;616
 ;;21,"53489-0609-06 ")
 ;;617
 ;;21,"53489-0609-10 ")
 ;;618
 ;;21,"54458-0894-10 ")
 ;;1520
 ;;21,"54458-0899-10 ")
 ;;1357
 ;;21,"54458-0900-10 ")
 ;;1193
 ;;21,"54458-0908-02 ")
 ;;904
 ;;21,"54458-0914-10 ")
 ;;621
 ;;21,"54458-0915-10 ")
 ;;509
 ;;21,"54458-0916-10 ")
 ;;463
 ;;21,"54458-0925-10 ")
 ;;999
 ;;21,"54458-0926-10 ")
 ;;903
 ;;21,"54458-0927-10 ")
 ;;825
 ;;21,"54458-0932-10 ")
 ;;1517
 ;;21,"54458-0933-10 ")
 ;;1358
 ;;21,"54458-0934-10 ")
 ;;1196
 ;;21,"54458-0936-10 ")
 ;;613
 ;;21,"54458-0937-10 ")
 ;;518
 ;;21,"54458-0938-10 ")
 ;;456
 ;;21,"54569-3821-00 ")
 ;;396
 ;;21,"54569-4466-00 ")
 ;;92
 ;;21,"54569-4466-01 ")
 ;;93
 ;;21,"54569-4466-02 ")
 ;;94
 ;;21,"54569-4467-00 ")
 ;;178
 ;;21,"54569-4467-01 ")
 ;;179
 ;;21,"54569-4587-00 ")
 ;;283
 ;;21,"54569-4587-01 ")
 ;;284
 ;;21,"54569-5345-00 ")
 ;;457
 ;;21,"54569-5345-01 ")
 ;;458
 ;;21,"54569-5346-00 ")
 ;;516
 ;;21,"54569-5346-02 ")
 ;;517
 ;;21,"54569-5347-00 ")
 ;;614
 ;;21,"54569-5347-02 ")
 ;;615
 ;;21,"54569-5382-00 ")
 ;;368
 ;;21,"54569-5600-00 ")
 ;;734
 ;;21,"54569-5600-01 ")
 ;;735
 ;;21,"54569-5648-00 ")
 ;;1879
 ;;21,"54569-5672-00 ")
 ;;763
 ;;21,"54569-5672-02 ")
 ;;764
 ;;21,"54569-5704-00 ")
 ;;1926
 ;;21,"54569-5746-00 ")
 ;;711
 ;;21,"54569-5766-00 ")
 ;;1848
 ;;21,"54569-5793-00 ")
 ;;905
 ;;21,"54569-5793-01 ")
 ;;906
 ;;21,"54569-5794-00 ")
 ;;997
 ;;21,"54569-5794-01 ")
 ;;998
 ;;21,"54569-5833-01 ")
 ;;1352
 ;;21,"54569-5833-02 ")
 ;;1353
 ;;21,"54569-5833-03 ")
 ;;1354
 ;;21,"54569-5834-01 ")
 ;;1521
 ;;21,"54569-5834-02 ")
 ;;1522
 ;;21,"54569-5834-03 ")
 ;;1523
 ;;21,"54569-5834-04 ")
 ;;1524
 ;;21,"54569-5881-00 ")
 ;;1967
 ;;21,"54569-5951-00 ")
 ;;1978
 ;;21,"54569-6054-01 ")
 ;;791
 ;;21,"54569-6099-00 ")
 ;;1993
 ;;21,"54569-6113-00 ")
 ;;1684
 ;;21,"54569-6113-01 ")
 ;;1685
 ;;21,"54569-6282-00 ")
 ;;26
 ;;21,"54569-6282-01 ")
 ;;27
 ;;21,"54569-6283-00 ")
 ;;117
 ;;21,"54569-6283-01 ")
 ;;118
 ;;21,"54569-6284-00 ")
 ;;206
 ;;21,"54569-6284-01 ")
 ;;207
 ;;21,"54569-6285-00 ")
 ;;305
 ;;21,"54569-6285-01 ")
 ;;306
 ;;21,"54569-6302-00 ")
 ;;1184
 ;;21,"54569-6302-01 ")
 ;;1185
 ;;21,"54569-6428-00 ")
 ;;821
 ;;21,"54569-6428-01 ")
 ;;822
 ;;21,"54569-6450-00 ")
 ;;1136
 ;;21,"54569-6510-00 ")
 ;;1058
 ;;21,"54868-0686-01 ")
 ;;586
 ;;21,"54868-0686-02 ")
 ;;587
 ;;21,"54868-0686-03 ")
 ;;588
 ;;21,"54868-0686-04 ")
 ;;589
 ;;21,"54868-1087-00 ")
 ;;695
 ;;21,"54868-1087-01 ")
 ;;696
 ;;21,"54868-1207-00 ")
 ;;1938
 ;;21,"54868-1207-01 ")
 ;;1939
 ;;21,"54868-1890-00 ")
 ;;792
 ;;21,"54868-1890-01 ")
 ;;793
 ;;21,"54868-2288-00 ")
 ;;855
 ;;21,"54868-2288-01 ")
 ;;856
 ;;21,"54868-2288-02 ")
 ;;857
 ;;21,"54868-2639-00 ")
 ;;1296
 ;;21,"54868-2639-01 ")
 ;;1297
 ;;21,"54868-3104-00 ")
 ;;1470
 ;;21,"54868-3104-01 ")
 ;;1471
 ;;21,"54868-3270-00 ")
 ;;950
 ;;21,"54868-3270-01 ")
 ;;951
 ;;21,"54868-3270-02 ")
 ;;952
 ;;21,"54868-3287-00 ")
 ;;1924
 ;;21,"54868-3287-01 ")
 ;;1925
 ;;21,"54868-3329-00 ")
 ;;397
 ;;21,"54868-3934-00 ")
 ;;82
 ;;21,"54868-3934-01 ")
 ;;83
 ;;21,"54868-3934-02 ")
 ;;84
 ;;21,"54868-3934-03 ")
 ;;85
 ;;21,"54868-3934-04 ")
 ;;86
 ;;21,"54868-3946-00 ")
 ;;173
 ;;21,"54868-3946-01 ")
 ;;174
 ;;21,"54868-3946-02 ")
 ;;175
 ;;21,"54868-3946-03 ")
 ;;176
 ;;21,"54868-3946-04 ")
 ;;177
 ;;21,"54868-4157-00 ")
 ;;1653
 ;;21,"54868-4157-01 ")
 ;;1654
 ;;21,"54868-4157-02 ")
 ;;1655
 ;;21,"54868-4181-00 ")
 ;;1803
 ;;21,"54868-4181-01 ")
 ;;1804
 ;;21,"54868-4224-00 ")
 ;;404
 ;;21,"54868-4224-01 ")
 ;;405
 ;;21,"54868-4229-00 ")
 ;;275
 ;;21,"54868-4229-01 ")
 ;;276
 ;;21,"54868-4229-02 ")
 ;;277
 ;;21,"54868-4229-03 ")
 ;;278
 ;;21,"54868-4585-00 ")
 ;;523
 ;;21,"54868-4585-01 ")
 ;;524
 ;;21,"54868-4585-02 ")
 ;;525
 ;;21,"54868-4585-03 ")
 ;;526
 ;;21,"54868-4593-00 ")
 ;;449
 ;;21,"54868-4593-01 ")
 ;;450
 ;;21,"54868-4593-02 ")
 ;;451
 ;;21,"54868-4601-00 ")
 ;;412
 ;;21,"54868-4634-00 ")
 ;;1043
 ;;21,"54868-4774-00 ")
 ;;622
 ;;21,"54868-4774-01 ")
 ;;623
 ;;21,"54868-4774-02 ")
 ;;624
 ;;21,"54868-4774-03 ")
 ;;625
 ;;21,"54868-4807-00 ")
 ;;1805
 ;;21,"54868-4807-01 ")
 ;;1806
 ;;21,"54868-4807-02 ")
 ;;1807
 ;;21,"54868-4934-00 ")
 ;;364
 ;;21,"54868-4934-01 ")
 ;;365
 ;;21,"54868-4934-02 ")
 ;;366
 ;;21,"54868-4934-03 ")
 ;;367
 ;;21,"54868-4963-00 ")
 ;;737
 ;;21,"54868-4963-01 ")
 ;;738
 ;;21,"54868-4963-02 ")
 ;;739
 ;;21,"54868-4963-03 ")
 ;;740
 ;;21,"54868-5085-00 ")
 ;;757
 ;;21,"54868-5085-01 ")
 ;;758
 ;;21,"54868-5085-02 ")
 ;;759
 ;;21,"54868-5085-03 ")
 ;;760
 ;;21,"54868-5085-04 ")
 ;;761
 ;;21,"54868-5087-00 ")
 ;;1811
 ;;21,"54868-5179-00 ")
 ;;1949
 ;;21,"54868-5187-00 ")
 ;;1849
 ;;21,"54868-5187-01 ")
 ;;1850
 ;;21,"54868-5187-02 ")
 ;;1851
 ;;21,"54868-5189-00 ")
 ;;1877
 ;;21,"54868-5189-01 ")
 ;;1878
 ;;21,"54868-5200-00 ")
 ;;1991