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

BGP44P4.m

Go to the documentation of this file.
BGP44P4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON SEP 11, 2013;
 ;;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,"54868-4868-00 ")
 ;;826
 ;;21,"54868-4868-01 ")
 ;;827
 ;;21,"54868-4868-02 ")
 ;;828
 ;;21,"54868-4870-00 ")
 ;;1743
 ;;21,"54868-4870-01 ")
 ;;1744
 ;;21,"54868-4870-02 ")
 ;;1745
 ;;21,"54868-4875-00 ")
 ;;1253
 ;;21,"54868-4875-01 ")
 ;;1254
 ;;21,"54868-4875-02 ")
 ;;1255
 ;;21,"54868-4875-03 ")
 ;;1256
 ;;21,"54868-4970-00 ")
 ;;702
 ;;21,"54868-4970-01 ")
 ;;703
 ;;21,"54868-4970-02 ")
 ;;704
 ;;21,"54868-4992-00 ")
 ;;852
 ;;21,"54868-4992-01 ")
 ;;853
 ;;21,"54868-5081-00 ")
 ;;765
 ;;21,"54868-5179-00 ")
 ;;1873
 ;;21,"54868-5197-00 ")
 ;;928
 ;;21,"54868-5197-01 ")
 ;;929
 ;;21,"54868-5197-02 ")
 ;;930
 ;;21,"54868-5200-00 ")
 ;;1901
 ;;21,"54868-5200-01 ")
 ;;1902
 ;;21,"54868-5208-00 ")
 ;;659
 ;;21,"54868-5208-01 ")
 ;;660
 ;;21,"54868-5209-00 ")
 ;;1892
 ;;21,"54868-5209-01 ")
 ;;1893
 ;;21,"54868-5311-00 ")
 ;;1777
 ;;21,"54868-5311-01 ")
 ;;1778
 ;;21,"54868-5320-00 ")
 ;;1779
 ;;21,"54868-5320-01 ")
 ;;1780
 ;;21,"54868-5320-03 ")
 ;;1781
 ;;21,"54868-5320-04 ")
 ;;1782
 ;;21,"54868-5420-00 ")
 ;;1878
 ;;21,"54868-5476-00 ")
 ;;989
 ;;21,"54868-5523-00 ")
 ;;1907
 ;;21,"54868-5523-01 ")
 ;;1908
 ;;21,"54868-5548-02 ")
 ;;1774
 ;;21,"54868-5561-00 ")
 ;;987
 ;;21,"54868-5561-01 ")
 ;;988
 ;;21,"54868-5567-00 ")
 ;;1884
 ;;21,"54868-5672-00 ")
 ;;1847
 ;;21,"54868-5690-00 ")
 ;;1766
 ;;21,"54868-5690-01 ")
 ;;1767
 ;;21,"54868-5690-02 ")
 ;;1768
 ;;21,"54868-5690-03 ")
 ;;1769
 ;;21,"54868-5699-00 ")
 ;;1851
 ;;21,"54868-5761-00 ")
 ;;129
 ;;21,"54868-5761-01 ")
 ;;130
 ;;21,"54868-5761-02 ")
 ;;131
 ;;21,"54868-5762-00 ")
 ;;296
 ;;21,"54868-5762-01 ")
 ;;297
 ;;21,"54868-5762-02 ")
 ;;298
 ;;21,"54868-5764-00 ")
 ;;22
 ;;21,"54868-5764-01 ")
 ;;23
 ;;21,"54868-5781-00 ")
 ;;1710
 ;;21,"54868-5781-01 ")
 ;;1711
 ;;21,"54868-5781-02 ")
 ;;1712
 ;;21,"54868-5781-03 ")
 ;;1713
 ;;21,"54868-5782-00 ")
 ;;1663
 ;;21,"54868-5782-01 ")
 ;;1664
 ;;21,"54868-5782-02 ")
 ;;1665
 ;;21,"54868-5782-03 ")
 ;;1666
 ;;21,"54868-5782-04 ")
 ;;1667
 ;;21,"54868-5783-00 ")
 ;;1701
 ;;21,"54868-5783-01 ")
 ;;1702
 ;;21,"54868-5792-00 ")
 ;;1600
 ;;21,"54868-5792-01 ")
 ;;1601
 ;;21,"54868-5792-02 ")
 ;;1602
 ;;21,"54868-5793-00 ")
 ;;1568
 ;;21,"54868-5793-01 ")
 ;;1569
 ;;21,"54868-5804-00 ")
 ;;1803
 ;;21,"54868-5841-00 ")
 ;;1553
 ;;21,"54868-5841-01 ")
 ;;1554
 ;;21,"54868-5841-02 ")
 ;;1555
 ;;21,"54868-5931-00 ")
 ;;1281
 ;;21,"54868-5931-01 ")
 ;;1282
 ;;21,"54868-5983-00 ")
 ;;1806
 ;;21,"54868-5983-01 ")
 ;;1807
 ;;21,"54868-5984-00 ")
 ;;1558
 ;;21,"54868-5984-01 ")
 ;;1559
 ;;21,"54868-5984-02 ")
 ;;1560
 ;;21,"54868-5996-00 ")
 ;;1801
 ;;21,"54868-5996-01 ")
 ;;1802
 ;;21,"54868-5997-00 ")
 ;;1796
 ;;21,"54868-5997-01 ")
 ;;1797
 ;;21,"54868-6036-00 ")
 ;;1784
 ;;21,"54868-6123-00 ")
 ;;1819
 ;;21,"54868-6124-00 ")
 ;;1540
 ;;21,"54868-6124-01 ")
 ;;1541
 ;;21,"54868-6250-00 ")
 ;;1792
 ;;21,"54868-6297-00 ")
 ;;1756
 ;;21,"54868-6335-00 ")
 ;;1905
 ;;21,"55045-2321-08 ")
 ;;1459
 ;;21,"55045-2321-09 ")
 ;;1460
 ;;21,"55045-2357-08 ")
 ;;481
 ;;21,"55045-2846-08 ")
 ;;554
 ;;21,"55045-3017-06 ")
 ;;1345
 ;;21,"55045-3043-09 ")
 ;;1398
 ;;21,"55045-3344-01 ")
 ;;254
 ;;21,"55045-3499-01 ")
 ;;420
 ;;21,"55045-3791-01 ")
 ;;442
 ;;21,"55045-3792-01 ")
 ;;503
 ;;21,"55045-3794-09 ")
 ;;102
 ;;21,"55045-3795-09 ")
 ;;10
 ;;21,"55045-3796-09 ")
 ;;281
 ;;21,"55048-0018-30 ")
 ;;282
 ;;21,"55048-0018-90 ")
 ;;283
 ;;21,"55048-0019-30 ")
 ;;100
 ;;21,"55048-0019-90 ")
 ;;101
 ;;21,"55048-0020-30 ")
 ;;1611
 ;;21,"55048-0021-30 ")
 ;;1705
 ;;21,"55048-0022-30 ")
 ;;1655
 ;;21,"55048-0023-30 ")
 ;;1809
 ;;21,"55048-0024-30 ")
 ;;1799
 ;;21,"55048-0111-30 ")
 ;;11
 ;;21,"55048-0121-30 ")
 ;;197
 ;;21,"55048-0122-30 ")
 ;;359
 ;;21,"55048-0123-30 ")
 ;;1640
 ;;21,"55048-0124-30 ")
 ;;1730
 ;;21,"55048-0125-30 ")
 ;;1760
 ;;21,"55048-0210-30 ")
 ;;716
 ;;21,"55048-0211-30 ")
 ;;773
 ;;21,"55048-0212-30 ")
 ;;825
 ;;21,"55048-0213-30 ")
 ;;865
 ;;21,"55048-0542-30 ")
 ;;1045
 ;;21,"55048-0543-30 ")
 ;;1123
 ;;21,"55048-0544-30 ")
 ;;1245
 ;;21,"55048-0819-30 ")
 ;;1318
 ;;21,"55048-0820-30 ")
 ;;1292
 ;;21,"55111-0269-90 ")
 ;;43
 ;;21,"55111-0270-05 ")
 ;;176
 ;;21,"55111-0270-90 ")
 ;;177
 ;;21,"55111-0271-05 ")
 ;;343
 ;;21,"55111-0271-90 ")
 ;;344
 ;;21,"55111-0338-01 ")
 ;;1578
 ;;21,"55111-0339-01 ")
 ;;1591
 ;;21,"55111-0339-05 ")
 ;;1592
 ;;21,"55111-0340-01 ")
 ;;1637
 ;;21,"55111-0340-05 ")
 ;;1638
 ;;21,"55111-0341-01 ")
 ;;1725
 ;;21,"55111-0341-05 ")
 ;;1726
 ;;21,"55111-0586-01 ")
 ;;1754
 ;;21,"55111-0587-01 ")
 ;;1690
 ;;21,"55289-0039-30 ")
 ;;1682
 ;;21,"55289-0078-30 ")
 ;;1449
 ;;21,"55289-0096-30 ")
 ;;1622
 ;;21,"55289-0103-30 ")
 ;;260
 ;;21,"55289-0103-60 ")
 ;;261
 ;;21,"55289-0270-30 ")
 ;;195
 ;;21,"55289-0270-90 ")
 ;;196
 ;;21,"55289-0289-90 ")
 ;;966
 ;;21,"55289-0299-30 ")
 ;;381
 ;;21,"55289-0299-90 ")
 ;;382
 ;;21,"55289-0306-30 ")
 ;;939
 ;;21,"55289-0306-90 ")
 ;;940
 ;;21,"55289-0323-01 ")
 ;;1181
 ;;21,"55289-0323-30 ")
 ;;1182
 ;;21,"55289-0329-01 ")
 ;;463
 ;;21,"55289-0335-01 ")
 ;;437
 ;;21,"55289-0335-10 ")
 ;;438
 ;;21,"55289-0335-50 ")
 ;;439
 ;;21,"55289-0357-01 ")
 ;;1223
 ;;21,"55289-0357-30 ")
 ;;1224
 ;;21,"55289-0448-30 ")
 ;;70
 ;;21,"55289-0481-30 ")
 ;;1316
 ;;21,"55289-0481-60 ")
 ;;1317
 ;;21,"55289-0543-30 ")
 ;;1074
 ;;21,"55289-0545-30 ")
 ;;1137
 ;;21,"55289-0549-30 ")
 ;;410
 ;;21,"55289-0549-60 ")
 ;;411
 ;;21,"55289-0602-30 ")
 ;;83
 ;;21,"55289-0607-30 ")
 ;;1399
 ;;21,"55289-0723-30 ")
 ;;1514
 ;;21,"55289-0723-90 ")
 ;;1515
 ;;21,"55289-0723-93 ")
 ;;1516
 ;;21,"55289-0770-14 ")
 ;;755
 ;;21,"55289-0774-14 ")
 ;;802
 ;;21,"55289-0798-07 ")
 ;;1154
 ;;21,"55289-0798-30 ")
 ;;1155
 ;;21,"55289-0853-30 ")
 ;;701
 ;;21,"55289-0893-30 ")
 ;;513
 ;;21,"55289-0896-08 ")
 ;;1290
 ;;21,"55289-0896-30 ")
 ;;1291
 ;;21,"55289-0981-30 ")
 ;;1746
 ;;21,"57664-0055-13 ")
 ;;54
 ;;21,"57664-0055-18 ")
 ;;55
 ;;21,"57664-0055-99 ")
 ;;56
 ;;21,"57664-0056-13 ")
 ;;192
 ;;21,"57664-0056-18 ")
 ;;193
 ;;21,"57664-0056-99 ")
 ;;194
 ;;21,"57664-0057-13 ")
 ;;361
 ;;21,"57664-0057-18 ")
 ;;362
 ;;21,"57664-0057-99 ")
 ;;363
 ;;21,"57664-0116-88 ")
 ;;1381
 ;;21,"57664-0117-13 ")
 ;;1400
 ;;21,"57664-0117-88 ")
 ;;1401
 ;;21,"57664-0118-13 ")
 ;;1492
 ;;21,"57664-0118-88 ")
 ;;1493
 ;;21,"57664-0568-13 ")
 ;;34
 ;;21,"57664-0568-18 ")
 ;;35
 ;;21,"57664-0568-99 ")
 ;;36
 ;;21,"57664-0569-13 ")
 ;;148
 ;;21,"57664-0569-18 ")
 ;;149
 ;;21,"57664-0569-99 ")
 ;;150
 ;;21,"57664-0570-13 ")
 ;;318
 ;;21,"57664-0570-18 ")
 ;;319
 ;;21,"57664-0570-99 ")
 ;;320
 ;;21,"58016-0504-00 ")
 ;;735
 ;;21,"58016-0504-20 ")
 ;;736
 ;;21,"58016-0504-30 ")
 ;;737
 ;;21,"58016-0504-60 ")
 ;;738
 ;;21,"58016-0509-00 ")
 ;;1348
 ;;21,"58016-0509-02 ")
 ;;1319
 ;;21,"58016-0509-12 ")
 ;;1320
 ;;21,"58016-0509-15 ")
 ;;1321
 ;;21,"58016-0509-20 ")
 ;;1322
 ;;21,"58016-0509-30 ")
 ;;1323
 ;;21,"58016-0509-60 ")
 ;;1324
 ;;21,"58016-0511-00 ")
 ;;1293
 ;;21,"58016-0511-08 ")
 ;;1294
 ;;21,"58016-0511-30 ")
 ;;1295
 ;;21,"58016-0606-00 ")
 ;;446
 ;;21,"58016-0606-12 ")
 ;;447
 ;;21,"58016-0606-15 ")
 ;;448
 ;;21,"58016-0606-20 ")
 ;;449
 ;;21,"58016-0606-30 ")
 ;;450
 ;;21,"58016-0607-00 ")
 ;;488
 ;;21,"58016-0607-12 ")
 ;;489
 ;;21,"58016-0607-15 ")
 ;;490
 ;;21,"58016-0607-20 ")
 ;;491
 ;;21,"58016-0607-30 ")
 ;;492
 ;;21,"58016-0607-90 ")
 ;;493
 ;;21,"58016-0608-00 ")
 ;;504
 ;;21,"58016-0608-12 ")
 ;;505
 ;;21,"58016-0608-15 ")
 ;;506
 ;;21,"58016-0608-20 ")
 ;;507
 ;;21,"58016-0608-30 ")
 ;;508
 ;;21,"58016-0608-90 ")
 ;;509
 ;;21,"58016-0721-00 ")
 ;;1356
 ;;21,"58016-0721-30 ")
 ;;1357
 ;;21,"58016-0721-60 ")
 ;;1358
 ;;21,"58016-0721-90 ")
 ;;1359
 ;;21,"58016-0860-00 ")
 ;;1509
 ;;21,"58016-0860-12 ")
 ;;1510
 ;;21,"58016-0860-15 ")
 ;;1511
 ;;21,"58016-0860-20 ")
 ;;1512
 ;;21,"58016-0860-30 ")
 ;;1513
 ;;21,"58864-0101-20 ")
 ;;453
 ;;21,"58864-0101-30 ")
 ;;454
 ;;21,"58864-0530-30 ")
 ;;1333
 ;;21,"58864-0530-60 ")
 ;;1334
 ;;21,"58864-0606-30 ")
 ;;545
 ;;21,"58864-0619-30 ")
 ;;575
 ;;21,"58864-0620-14 ")
 ;;255
 ;;21,"58864-0620-30 ")
 ;;256
 ;;21,"58864-0635-14 ")
 ;;616
 ;;21,"58864-0649-14 ")
 ;;1473
 ;;21,"58864-0649-30 ")
 ;;1474
 ;;21,"58864-0649-60 ")
 ;;1475
 ;;21,"58864-0657-30 ")
 ;;419
 ;;21,"58864-0669-14 ")
 ;;1014
 ;;21,"58864-0677-30 ")
 ;;1523
 ;;21,"58864-0706-14 ")
 ;;1404
 ;;21,"58864-0706-60 ")
 ;;1405
 ;;21,"58864-0714-30 ")
 ;;632
 ;;21,"58864-0720-30 ")
 ;;1305
 ;;21,"58864-0720-60 ")
 ;;1306
 ;;21,"58864-0724-30 ")
 ;;591
 ;;21,"58864-0824-01 ")
 ;;1040
 ;;21,"58864-0824-14 ")
 ;;1041
 ;;21,"58864-0873-14 ")
 ;;552
 ;;21,"58864-0873-30 ")
 ;;553
 ;;21,"58864-0966-01 ")
 ;;1065
 ;;21,"59630-0500-10 ")
 ;;1268
 ;;21,"59630-0501-10 ")
 ;;1271
 ;;21,"59630-0503-10 ")
 ;;1279
 ;;21,"59762-1520-01 ")
 ;;12
 ;;21,"59762-1520-02 ")
 ;;13
 ;;21,"59762-1530-01 ")
 ;;117
 ;;21,"59762-1530-02 ")
 ;;118
 ;;21,"59762-1530-03 ")
 ;;119
 ;;21,"59762-1530-04 ")
 ;;120
 ;;21,"59762-1530-05 ")
 ;;121
 ;;21,"59762-1530-06 ")
 ;;122
 ;;21,"59762-1540-01 ")
 ;;286
 ;;21,"59762-1540-02 ")
 ;;311
 ;;21,"59762-1540-03 ")
 ;;312
 ;;21,"59762-1540-04 ")
 ;;313
 ;;21,"59762-1540-05 ")
 ;;314
 ;;21,"59762-6690-03 ")
 ;;1159
 ;;21,"59762-6690-05 ")
 ;;1160
 ;;21,"59762-6690-08 ")
 ;;1161
 ;;21,"59762-6691-03 ")
 ;;1219
 ;;21,"59762-6691-05 ")
 ;;1220
 ;;21,"59762-6691-08 ")
 ;;1221
 ;;21,"59762-6692-03 ")
 ;;1246
 ;;21,"59762-6692-08 ")
 ;;1247
 ;;21,"60429-0143-05 ")
 ;;67
 ;;21,"60429-0143-30 ")
 ;;68
 ;;21,"60429-0143-90 ")
 ;;69
 ;;21,"60429-0144-05 ")
 ;;229
 ;;21,"60429-0144-30 ")
 ;;230
 ;;21,"60429-0144-90 ")
 ;;231
 ;;21,"60429-0145-05 ")
 ;;395
 ;;21,"60429-0145-30 ")
 ;;396
 ;;21,"60429-0145-90 ")
 ;;397
 ;;21,"60505-0007-04 ")
 ;;699
 ;;21,"60505-0007-08 ")
 ;;700
 ;;21,"60505-0008-04 ")
 ;;752
 ;;21,"60505-0008-08 ")
 ;;753
 ;;21,"60505-0009-04 ")
 ;;800
 ;;21,"60505-0009-08 ")
 ;;801
 ;;21,"60505-0010-04 ")
 ;;850
 ;;21,"60505-0010-08 ")
 ;;851
 ;;21,"60505-0014-06 ")
 ;;542
 ;;21,"60505-0014-08 ")
 ;;543
 ;;21,"60505-0015-06 ")
 ;;547
 ;;21,"60505-0015-08 ")
 ;;548
 ;;21,"60505-0016-06 ")
 ;;572
 ;;21,"60505-0016-08 ")
 ;;573
 ;;21,"60505-0193-02 ")
 ;;37
 ;;21,"60505-0193-03 ")
 ;;38
 ;;21,"60505-0194-02 ")
 ;;146
 ;;21,"60505-0194-03 ")
 ;;147
 ;;21,"60505-0195-02 ")
 ;;321
 ;;21,"60505-0195-03 ")
 ;;322
 ;;21,"60505-0210-03 ")
 ;;587
 ;;21,"60505-0210-09 ")
 ;;588
 ;;21,"60505-0211-03 ")
 ;;607
 ;;21,"60505-0211-09 ")
 ;;608
 ;;21,"60505-0212-03 ")
 ;;628
 ;;21,"60505-0212-09 ")
 ;;629
 ;;21,"60505-0213-03 ")
 ;;648
 ;;21,"60505-0213-09 ")
 ;;649
 ;;21,"60505-0214-03 ")
 ;;670
 ;;21,"60505-0214-09 ")
 ;;671
 ;;21,"60505-2740-01 ")
 ;;1380
 ;;21,"60505-2741-01 ")
 ;;1402
 ;;21,"60505-2741-05 ")
 ;;1403
 ;;21,"60505-2742-01 ")
 ;;1490
 ;;21,"60505-2742-05 ")
 ;;1491
 ;;21,"60598-0121-60 ")
 ;;883
 ;;21,"60760-0182-30 ")
 ;;1180
 ;;21,"60760-0183-30 ")
 ;;1206
 ;;21,"60760-0238-30 ")
 ;;204
 ;;21,"60760-0239-30 ")
 ;;383
 ;;21,"60760-0984-30 ")
 ;;1484
 ;;21,"62037-0597-05 ")
 ;;697
 ;;21,"62037-0597-90 ")
 ;;698
 ;;21,"62037-0598-05 ")
 ;;749
 ;;21,"62037-0598-90 ")
 ;;750
 ;;21,"62037-0599-05 ")
 ;;797
 ;;21,"62037-0599-90 ")
 ;;798
 ;;21,"62037-0600-05 ")
 ;;848
 ;;21,"62037-0600-90 ")
 ;;849
 ;;21,"62037-0696-30 ")
 ;;589
 ;;21,"62037-0696-90 ")
 ;;590
 ;;21,"62037-0697-30 ")
 ;;609
 ;;21,"62037-0697-90 ")
 ;;610
 ;;21,"62037-0698-30 ")
 ;;630
 ;;21,"62037-0698-90 ")
 ;;631
 ;;21,"62037-0699-30 ")
 ;;650
 ;;21,"62037-0699-90 ")
 ;;651
 ;;21,"62037-0700-30 ")
 ;;672
 ;;21,"62037-0700-90 ")
 ;;673
 ;;21,"62175-0260-37 ")
 ;;1162
 ;;21,"62175-0260-43 ")
 ;;1163
 ;;21,"62175-0260-46 ")
 ;;1164
 ;;21,"62175-0260-55 ")
 ;;1165
 ;;21,"62175-0261-37 ")
 ;;1215
 ;;21,"62175-0261-43 ")
 ;;1216
 ;;21,"62175-0261-46 ")
 ;;1217
 ;;21,"62175-0261-55 ")
 ;;1218
 ;;21,"62175-0262-32 ")
 ;;1248
 ;;21,"62175-0262-37 ")
 ;;1249
 ;;21,"62175-0262-46 ")
 ;;1250
 ;;21,"62175-0485-37 ")
 ;;1521
 ;;21,"62175-0486-37 ")
 ;;1539
 ;;21,"62175-0487-37 ")
 ;;1552
 ;;21,"62451-0733-19 ")
 ;;557
 ;;21,"62451-0734-19 ")
 ;;564
 ;;21,"62451-8841-54 ")
 ;;1032
 ;;21,"62451-8841-72 ")
 ;;1033
 ;;21,"62451-8851-54 ")
 ;;1091
 ;;21,"62451-8851-72 ")
 ;;1092
 ;;21,"62584-0974-01 ")
 ;;707
 ;;21,"62584-0974-11 ")
 ;;708
 ;;21,"62584-0974-30 ")
 ;;709
 ;;21,"62584-0974-90 ")
 ;;710
 ;;21,"62584-0975-01 ")
 ;;757
 ;;21,"62584-0975-11 ")
 ;;758
 ;;21,"62584-0975-30 ")
 ;;759