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

BGP2VN4.m

Go to the documentation of this file.
BGP2VN4 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
 ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
 ;
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,"55289-0139-97 ")
 ;;1163
 ;;21,"55289-0195-10 ")
 ;;1449
 ;;21,"55289-0226-10 ")
 ;;1363
 ;;21,"55289-0226-15 ")
 ;;1364
 ;;21,"55289-0226-30 ")
 ;;1365
 ;;21,"55289-0354-10 ")
 ;;1450
 ;;21,"55289-0464-02 ")
 ;;1627
 ;;21,"55289-0464-10 ")
 ;;1628
 ;;21,"55289-0464-12 ")
 ;;1629
 ;;21,"55289-0464-15 ")
 ;;1630
 ;;21,"55289-0464-20 ")
 ;;1631
 ;;21,"55289-0464-25 ")
 ;;1632
 ;;21,"55289-0464-30 ")
 ;;1633
 ;;21,"55289-0464-79 ")
 ;;1634
 ;;21,"55289-0479-01 ")
 ;;553
 ;;21,"55289-0479-10 ")
 ;;554
 ;;21,"55289-0479-12 ")
 ;;555
 ;;21,"55289-0479-15 ")
 ;;556
 ;;21,"55289-0479-20 ")
 ;;557
 ;;21,"55289-0479-24 ")
 ;;558
 ;;21,"55289-0479-30 ")
 ;;559
 ;;21,"55289-0479-97 ")
 ;;560
 ;;21,"55289-0531-04 ")
 ;;1717
 ;;21,"55289-0912-01 ")
 ;;985
 ;;21,"55289-0912-10 ")
 ;;986
 ;;21,"55289-0912-30 ")
 ;;987
 ;;21,"55289-0912-60 ")
 ;;988
 ;;21,"55289-0948-02 ")
 ;;1507
 ;;21,"55297-0923-78 ")
 ;;561
 ;;21,"55887-0232-01 ")
 ;;989
 ;;21,"55887-0232-15 ")
 ;;990
 ;;21,"55887-0232-20 ")
 ;;991
 ;;21,"55887-0232-60 ")
 ;;992
 ;;21,"55887-0232-90 ")
 ;;993
 ;;21,"55887-0247-04 ")
 ;;309
 ;;21,"55887-0422-10 ")
 ;;1366
 ;;21,"55887-0422-30 ")
 ;;1367
 ;;21,"55887-0422-60 ")
 ;;1368
 ;;21,"55887-0422-90 ")
 ;;1369
 ;;21,"55887-0562-04 ")
 ;;415
 ;;21,"55887-0675-04 ")
 ;;1748
 ;;21,"55887-0766-04 ")
 ;;188
 ;;21,"55887-0885-15 ")
 ;;562
 ;;21,"55887-0885-30 ")
 ;;563
 ;;21,"55887-0936-05 ")
 ;;1635
 ;;21,"55887-0936-06 ")
 ;;1636
 ;;21,"55887-0936-08 ")
 ;;1637
 ;;21,"55887-0936-10 ")
 ;;1638
 ;;21,"55887-0936-12 ")
 ;;1639
 ;;21,"55887-0936-15 ")
 ;;1640
 ;;21,"55887-0936-20 ")
 ;;1641
 ;;21,"55887-0936-21 ")
 ;;1642
 ;;21,"55887-0936-25 ")
 ;;1643
 ;;21,"55887-0936-30 ")
 ;;1644
 ;;21,"55887-0936-50 ")
 ;;1645
 ;;21,"55887-0936-60 ")
 ;;1646
 ;;21,"55887-0936-90 ")
 ;;1647
 ;;21,"55887-0942-15 ")
 ;;1277
 ;;21,"55887-0973-01 ")
 ;;564
 ;;21,"55887-0973-20 ")
 ;;565
 ;;21,"55887-0973-28 ")
 ;;566
 ;;21,"55887-0973-30 ")
 ;;567
 ;;21,"55887-0973-90 ")
 ;;568
 ;;21,"55887-0985-10 ")
 ;;1164
 ;;21,"55887-0985-15 ")
 ;;1165
 ;;21,"55887-0985-21 ")
 ;;1166
 ;;21,"55887-0985-30 ")
 ;;1167
 ;;21,"55887-0985-90 ")
 ;;1168
 ;;21,"57664-0107-88 ")
 ;;1508
 ;;21,"57664-0108-88 ")
 ;;1648
 ;;21,"57664-0109-88 ")
 ;;1718
 ;;21,"57664-0114-08 ")
 ;;1278
 ;;21,"57664-0114-18 ")
 ;;1279
 ;;21,"57664-0146-31 ")
 ;;1749
 ;;21,"57664-0146-34 ")
 ;;1750
 ;;21,"57664-0185-31 ")
 ;;189
 ;;21,"57664-0185-34 ")
 ;;190
 ;;21,"57866-0215-01 ")
 ;;1649
 ;;21,"57866-3594-01 ")
 ;;569
 ;;21,"57866-3594-02 ")
 ;;570
 ;;21,"57866-3594-05 ")
 ;;571
 ;;21,"57866-3594-06 ")
 ;;572
 ;;21,"57866-3762-01 ")
 ;;818
 ;;21,"57866-3762-02 ")
 ;;819
 ;;21,"57866-3762-04 ")
 ;;820
 ;;21,"57866-3762-05 ")
 ;;821
 ;;21,"57866-3874-01 ")
 ;;1169
 ;;21,"57866-3874-03 ")
 ;;1170
 ;;21,"57866-3874-04 ")
 ;;1171
 ;;21,"57866-3874-06 ")
 ;;1172
 ;;21,"57866-3875-01 ")
 ;;994
 ;;21,"57866-3875-04 ")
 ;;995
 ;;21,"57866-3876-02 ")
 ;;1280
 ;;21,"57866-3876-03 ")
 ;;1281
 ;;21,"57866-3876-04 ")
 ;;1282
 ;;21,"57866-3893-01 ")
 ;;1370
 ;;21,"57866-3893-02 ")
 ;;1371
 ;;21,"57866-3893-03 ")
 ;;1372
 ;;21,"57866-3894-01 ")
 ;;1451
 ;;21,"57866-3894-02 ")
 ;;1452
 ;;21,"57866-3894-03 ")
 ;;1453
 ;;21,"57866-4379-01 ")
 ;;1650
 ;;21,"57866-4379-02 ")
 ;;1651
 ;;21,"57866-4379-04 ")
 ;;1652
 ;;21,"57866-4379-06 ")
 ;;1653
 ;;21,"57866-4379-07 ")
 ;;1654
 ;;21,"57866-4379-08 ")
 ;;1655
 ;;21,"57896-0224-01 ")
 ;;99
 ;;21,"57896-0224-05 ")
 ;;100
 ;;21,"58016-0041-00 ")
 ;;240
 ;;21,"58016-0041-30 ")
 ;;241
 ;;21,"58016-0041-60 ")
 ;;242
 ;;21,"58016-0041-90 ")
 ;;243
 ;;21,"58016-0259-00 ")
 ;;1373
 ;;21,"58016-0259-02 ")
 ;;1374
 ;;21,"58016-0259-10 ")
 ;;1375
 ;;21,"58016-0259-20 ")
 ;;1376
 ;;21,"58016-0259-30 ")
 ;;1377
 ;;21,"58016-0259-50 ")
 ;;1378
 ;;21,"58016-0259-60 ")
 ;;1379
 ;;21,"58016-0259-90 ")
 ;;1380
 ;;21,"58016-0390-01 ")
 ;;191
 ;;21,"58016-0405-00 ")
 ;;996
 ;;21,"58016-0405-06 ")
 ;;997
 ;;21,"58016-0405-15 ")
 ;;998
 ;;21,"58016-0405-20 ")
 ;;999
 ;;21,"58016-0405-30 ")
 ;;1000
 ;;21,"58016-0406-00 ")
 ;;1173
 ;;21,"58016-0406-12 ")
 ;;1174
 ;;21,"58016-0406-15 ")
 ;;1175
 ;;21,"58016-0406-20 ")
 ;;1176
 ;;21,"58016-0406-30 ")
 ;;1177
 ;;21,"58016-0406-40 ")
 ;;1178
 ;;21,"58016-0406-60 ")
 ;;1179
 ;;21,"58016-0408-00 ")
 ;;573
 ;;21,"58016-0408-06 ")
 ;;574
 ;;21,"58016-0408-09 ")
 ;;575
 ;;21,"58016-0408-10 ")
 ;;576
 ;;21,"58016-0408-12 ")
 ;;577
 ;;21,"58016-0408-14 ")
 ;;578
 ;;21,"58016-0408-15 ")
 ;;579
 ;;21,"58016-0408-20 ")
 ;;580
 ;;21,"58016-0408-21 ")
 ;;581
 ;;21,"58016-0408-24 ")
 ;;582
 ;;21,"58016-0408-25 ")
 ;;583
 ;;21,"58016-0408-28 ")
 ;;584
 ;;21,"58016-0408-30 ")
 ;;585
 ;;21,"58016-0408-40 ")
 ;;586
 ;;21,"58016-0408-60 ")
 ;;587
 ;;21,"58016-0409-00 ")
 ;;822
 ;;21,"58016-0409-10 ")
 ;;823
 ;;21,"58016-0409-12 ")
 ;;824
 ;;21,"58016-0409-15 ")
 ;;825
 ;;21,"58016-0409-20 ")
 ;;826
 ;;21,"58016-0409-24 ")
 ;;827
 ;;21,"58016-0409-30 ")
 ;;828
 ;;21,"58016-0409-40 ")
 ;;829
 ;;21,"58016-0409-60 ")
 ;;830
 ;;21,"58016-0409-90 ")
 ;;831
 ;;21,"58016-0424-00 ")
 ;;1656
 ;;21,"58016-0424-02 ")
 ;;1657
 ;;21,"58016-0424-03 ")
 ;;1658
 ;;21,"58016-0424-10 ")
 ;;1659
 ;;21,"58016-0424-12 ")
 ;;1660
 ;;21,"58016-0424-15 ")
 ;;1661
 ;;21,"58016-0424-20 ")
 ;;1662
 ;;21,"58016-0424-30 ")
 ;;1663
 ;;21,"58016-0424-50 ")
 ;;1664
 ;;21,"58016-0424-60 ")
 ;;1665
 ;;21,"58016-0424-73 ")
 ;;1666
 ;;21,"58016-0424-89 ")
 ;;1667
 ;;21,"58016-0424-90 ")
 ;;1668
 ;;21,"58016-0452-00 ")
 ;;1283
 ;;21,"58016-0452-20 ")
 ;;1284
 ;;21,"58016-0452-30 ")
 ;;1285
 ;;21,"58016-0464-10 ")
 ;;1454
 ;;21,"58016-0464-15 ")
 ;;1455
 ;;21,"58016-0464-20 ")
 ;;1456
 ;;21,"58016-0464-30 ")
 ;;1457
 ;;21,"58016-4016-01 ")
 ;;416
 ;;21,"58016-4845-01 ")
 ;;1040
 ;;21,"58864-0045-20 ")
 ;;1180
 ;;21,"58864-0045-30 ")
 ;;1181
 ;;21,"58864-0045-42 ")
 ;;1182
 ;;21,"58864-0045-60 ")
 ;;1183
 ;;21,"58864-0162-30 ")
 ;;588
 ;;21,"58864-0162-56 ")
 ;;589
 ;;21,"58864-0162-60 ")
 ;;590
 ;;21,"58864-0761-10 ")
 ;;1669
 ;;21,"59390-0065-35 ")
 ;;417
 ;;21,"59390-0065-46 ")
 ;;418
 ;;21,"59390-0065-47 ")
 ;;419
 ;;21,"59630-0465-04 ")
 ;;285
 ;;21,"59630-0465-16 ")
 ;;286
 ;;21,"59630-0470-04 ")
 ;;266
 ;;21,"59630-0470-16 ")
 ;;267
 ;;21,"60242-0202-01 ")
 ;;832
 ;;21,"60242-0202-10 ")
 ;;833
 ;;21,"60258-0401-16 ")
 ;;259
 ;;21,"60258-0410-16 ")
 ;;261
 ;;21,"60258-0480-16 ")
 ;;287
 ;;21,"60258-0683-16 ")
 ;;276
 ;;21,"60258-0709-16 ")
 ;;888
 ;;21,"60258-0711-16 ")
 ;;890
 ;;21,"60258-0850-01 ")
 ;;244
 ;;21,"60258-0850-10 ")
 ;;245
 ;;21,"60429-0149-01 ")
 ;;1509
 ;;21,"60429-0150-01 ")
 ;;1670
 ;;21,"60429-0150-10 ")
 ;;1671
 ;;21,"60429-0150-12 ")
 ;;1672
 ;;21,"60429-0150-30 ")
 ;;1673
 ;;21,"60429-0150-60 ")
 ;;1674
 ;;21,"60429-0150-90 ")
 ;;1675
 ;;21,"60429-0151-01 ")
 ;;1719
 ;;21,"60432-0033-04 ")
 ;;420
 ;;21,"60432-0033-08 ")
 ;;421
 ;;21,"60432-0033-16 ")
 ;;422
 ;;21,"60432-0150-04 ")
 ;;1041
 ;;21,"60432-0150-16 ")
 ;;1042
 ;;21,"60432-0198-04 ")
 ;;268
 ;;21,"60432-0198-16 ")
 ;;269
 ;;21,"60432-0539-16 ")
 ;;253
 ;;21,"60432-0604-04 ")
 ;;310
 ;;21,"60432-0604-16 ")
 ;;311
 ;;21,"60432-0606-16 ")
 ;;192
 ;;21,"60432-0608-04 ")
 ;;1751
 ;;21,"60432-0608-16 ")
 ;;1752
 ;;21,"60432-0634-08 ")
 ;;423
 ;;21,"60569-0471-04 ")
 ;;1
 ;;21,"60760-0307-20 ")
 ;;1001
 ;;21,"60760-0330-30 ")
 ;;591
 ;;21,"60760-0971-30 ")
 ;;1184
 ;;21,"60814-0104-30 ")
 ;;705
 ;;21,"61392-0010-15 ")
 ;;1458
 ;;21,"61392-0010-45 ")
 ;;1459
 ;;21,"61392-0010-56 ")
 ;;1460
 ;;21,"61392-0010-91 ")
 ;;1461
 ;;21,"61392-0012-34 ")
 ;;1002
 ;;21,"61392-0012-45 ")
 ;;1003
 ;;21,"61392-0012-56 ")
 ;;1004
 ;;21,"61392-0012-91 ")
 ;;1005
 ;;21,"61392-0013-15 ")
 ;;1185
 ;;21,"61392-0013-45 ")
 ;;1186
 ;;21,"61392-0013-56 ")
 ;;1187
 ;;21,"61392-0013-91 ")
 ;;1188
 ;;21,"61392-0122-45 ")
 ;;1286
 ;;21,"61392-0122-51 ")
 ;;1287
 ;;21,"61392-0122-54 ")
 ;;1288
 ;;21,"61392-0122-91 ")
 ;;1289
 ;;21,"61392-0123-30 ")
 ;;1381
 ;;21,"61392-0123-31 ")
 ;;1382
 ;;21,"61392-0123-32 ")
 ;;1383
 ;;21,"61392-0123-39 ")
 ;;1384
 ;;21,"61392-0123-45 ")
 ;;1385
 ;;21,"61392-0123-51 ")
 ;;1386
 ;;21,"61392-0123-54 ")
 ;;1387
 ;;21,"61392-0123-60 ")
 ;;1388
 ;;21,"61392-0123-90 ")
 ;;1389
 ;;21,"61392-0123-91 ")
 ;;1390
 ;;21,"61392-0209-56 ")
 ;;246
 ;;21,"61392-0209-91 ")
 ;;247
 ;;21,"61392-0220-15 ")
 ;;592
 ;;21,"61392-0220-45 ")
 ;;593
 ;;21,"61392-0220-56 ")
 ;;594
 ;;21,"61392-0220-91 ")
 ;;595
 ;;21,"61392-0223-45 ")
 ;;834
 ;;21,"61392-0223-54 ")
 ;;835
 ;;21,"61392-0223-56 ")
 ;;836
 ;;21,"61392-0223-91 ")
 ;;837
 ;;21,"61787-0471-04 ")
 ;;2
 ;;21,"61787-0866-04 ")
 ;;270
 ;;21,"61787-0866-16 ")
 ;;271
 ;;21,"62584-0739-01 ")
 ;;1391
 ;;21,"62584-0739-11 ")
 ;;1392
 ;;21,"62584-0741-01 ")
 ;;1462
 ;;21,"62584-0741-11 ")
 ;;1463
 ;;21,"63029-0050-04 ")
 ;;26
 ;;21,"63629-1343-01 ")
 ;;596
 ;;21,"63629-1343-02 ")
 ;;597
 ;;21,"63629-1343-03 ")
 ;;598
 ;;21,"63629-1343-04 ")
 ;;599
 ;;21,"63629-1349-01 ")
 ;;838
 ;;21,"63629-1349-02 ")
 ;;839
 ;;21,"63629-1349-03 ")
 ;;840
 ;;21,"63629-1533-01 ")
 ;;1393
 ;;21,"63629-1533-02 ")
 ;;1394
 ;;21,"63629-1588-01 ")
 ;;312
 ;;21,"63629-1588-02 ")
 ;;313
 ;;21,"63629-1588-03 ")
 ;;314
 ;;21,"63629-1591-01 ")
 ;;1510
 ;;21,"63629-1591-02 ")
 ;;1511
 ;;21,"63629-1591-03 ")
 ;;1512
 ;;21,"63629-1591-04 ")
 ;;1513
 ;;21,"63629-1607-01 ")
 ;;193
 ;;21,"63629-1607-02 ")
 ;;194
 ;;21,"63629-1607-03 ")
 ;;195
 ;;21,"63629-1742-01 ")
 ;;1676
 ;;21,"63629-1742-02 ")
 ;;1677
 ;;21,"63629-1742-03 ")
 ;;1678
 ;;21,"63629-1742-04 ")
 ;;1679
 ;;21,"63629-1742-05 ")
 ;;1680
 ;;21,"63629-1742-06 ")
 ;;1681
 ;;21,"63629-1751-01 ")
 ;;1006
 ;;21,"63629-1751-02 ")
 ;;1007
 ;;21,"63629-1855-01 ")
 ;;1043
 ;;21,"63629-1855-02 ")
 ;;1044
 ;;21,"63629-1868-01 ")
 ;;1489
 ;;21,"63629-1868-02 ")
 ;;1490
 ;;21,"63629-1870-01 ")
 ;;1753
 ;;21,"63629-1870-02 ")
 ;;1754
 ;;21,"63629-2959-01 ")
 ;;154
 ;;21,"63629-2982-01 ")
 ;;248
 ;;21,"63629-2982-02 ")
 ;;249
 ;;21,"63717-0570-04 ")
 ;;713
 ;;21,"63717-0571-06 ")
 ;;710
 ;;21,"63717-0576-04 ")
 ;;909
 ;;21,"63717-0577-06 ")
 ;;903
 ;;21,"63717-0580-04 ")
 ;;142
 ;;21,"63717-0581-06 ")
 ;;138
 ;;21,"63717-0585-04 ")
 ;;140
 ;;21,"63717-0710-04 ")
 ;;892
 ;;21,"63739-0213-10 ")
 ;;1682
 ;;21,"63739-0213-15 ")
 ;;1683
 ;;21,"63739-0389-10 ")
 ;;1720
 ;;21,"63739-0483-10 ")
 ;;1008
 ;;21,"63739-0486-10 ")
 ;;1189
 ;;21,"63824-0184-64 ")
 ;;901
 ;;21,"63824-0187-64 ")
 ;;902
 ;;21,"63874-0005-01 ")
 ;;600
 ;;21,"63874-0005-02 ")
 ;;601
 ;;21,"63874-0005-06 ")
 ;;602
 ;;21,"63874-0005-09 ")
 ;;603
 ;;21,"63874-0005-10 ")
 ;;604
 ;;21,"63874-0005-12 ")
 ;;605
 ;;21,"63874-0005-14 ")
 ;;606
 ;;21,"63874-0005-15 ")
 ;;607
 ;;21,"63874-0005-20 ")
 ;;608
 ;;21,"63874-0005-21 ")
 ;;609
 ;;21,"63874-0005-24 ")
 ;;610
 ;;21,"63874-0005-25 ")
 ;;611
 ;;21,"63874-0005-28 ")
 ;;612
 ;;21,"63874-0005-30 ")
 ;;613
 ;;21,"63874-0005-40 ")
 ;;614
 ;;21,"63874-0005-45 ")
 ;;615
 ;;21,"63874-0005-60 ")
 ;;616
 ;;21,"63874-0005-90 ")
 ;;617
 ;;21,"63874-0006-01 ")
 ;;841
 ;;21,"63874-0006-02 ")
 ;;842
 ;;21,"63874-0006-07 ")
 ;;843
 ;;21,"63874-0006-10 ")
 ;;844
 ;;21,"63874-0006-12 ")
 ;;845
 ;;21,"63874-0006-14 ")
 ;;846
 ;;21,"63874-0006-15 ")
 ;;847
 ;;21,"63874-0006-20 ")
 ;;848
 ;;21,"63874-0006-25 ")
 ;;849
 ;;21,"63874-0006-28 ")
 ;;850
 ;;21,"63874-0006-30 ")
 ;;851
 ;;21,"63874-0006-60 ")
 ;;852
 ;;21,"63874-0077-30 ")
 ;;1290
 ;;21,"63874-0077-50 ")
 ;;1291
 ;;21,"63874-0204-12 ")
 ;;196
 ;;21,"63874-0204-18 ")
 ;;197
 ;;21,"63874-0204-24 ")
 ;;198
 ;;21,"63874-0204-38 ")
 ;;199
 ;;21,"63874-0204-48 ")
 ;;200
 ;;21,"63874-0209-12 ")
 ;;155
 ;;21,"63874-0209-18 ")
 ;;156
 ;;21,"63874-0209-24 ")
 ;;157
 ;;21,"63874-0303-20 ")
 ;;1190
 ;;21,"63874-0303-30 ")
 ;;1009
 ;;21,"63874-0304-01 ")
 ;;1191
 ;;21,"63874-0304-02 ")
 ;;1192
 ;;21,"63874-0304-09 ")
 ;;1193
 ;;21,"63874-0304-10 ")
 ;;1194
 ;;21,"63874-0304-12 ")
 ;;1195
 ;;21,"63874-0304-14 ")
 ;;1196
 ;;21,"63874-0304-15 ")
 ;;1197
 ;;21,"63874-0304-20 ")
 ;;1198
 ;;21,"63874-0304-25 ")
 ;;1199
 ;;21,"63874-0304-28 ")
 ;;1200
 ;;21,"63874-0304-30 ")
 ;;1201
 ;;21,"63874-0304-40 ")
 ;;1202
 ;;21,"63874-0304-45 ")
 ;;1203
 ;;21,"63874-0304-60 ")
 ;;1204
 ;;21,"63874-0304-90 ")
 ;;1205
 ;;21,"63874-0370-12 ")
 ;;1684
 ;;21,"63874-0370-20 ")
 ;;1685
 ;;21,"63874-0370-30 ")
 ;;1686
 ;;21,"63874-0442-02 ")
 ;;1395
 ;;21,"63874-0442-03 ")
 ;;1396
 ;;21,"63874-0442-04 ")
 ;;1397