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

BGP2VN2.m

Go to the documentation of this file.
BGP2VN2 ;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,"00615-0368-01 ")
 ;;652
 ;;21,"00615-0368-10 ")
 ;;653
 ;;21,"00615-0368-32 ")
 ;;654
 ;;21,"00615-0369-01 ")
 ;;655
 ;;21,"00615-0369-10 ")
 ;;656
 ;;21,"00615-0369-32 ")
 ;;657
 ;;21,"00615-1525-13 ")
 ;;943
 ;;21,"00615-1526-63 ")
 ;;1073
 ;;21,"00615-1536-13 ")
 ;;220
 ;;21,"00677-1914-41 ")
 ;;908
 ;;21,"00781-1830-01 ")
 ;;1549
 ;;21,"00781-1830-10 ")
 ;;1550
 ;;21,"00781-1832-01 ")
 ;;1711
 ;;21,"00904-0123-09 ")
 ;;365
 ;;21,"00904-0123-16 ")
 ;;366
 ;;21,"00904-0357-40 ")
 ;;944
 ;;21,"00904-0357-60 ")
 ;;945
 ;;21,"00904-0357-80 ")
 ;;946
 ;;21,"00904-0358-40 ")
 ;;1074
 ;;21,"00904-0358-60 ")
 ;;1075
 ;;21,"00904-0358-80 ")
 ;;1076
 ;;21,"00904-0359-40 ")
 ;;1235
 ;;21,"00904-0359-60 ")
 ;;1236
 ;;21,"00904-1145-61 ")
 ;;221
 ;;21,"00904-1145-70 ")
 ;;222
 ;;21,"00904-1146-16 ")
 ;;205
 ;;21,"00904-1146-28 ")
 ;;206
 ;;21,"00904-1228-00 ")
 ;;367
 ;;21,"00904-1228-20 ")
 ;;368
 ;;21,"00904-1508-00 ")
 ;;1734
 ;;21,"00904-1508-16 ")
 ;;1735
 ;;21,"00904-1508-20 ")
 ;;1736
 ;;21,"00904-1508-28 ")
 ;;1737
 ;;21,"00904-1516-00 ")
 ;;295
 ;;21,"00904-1516-16 ")
 ;;296
 ;;21,"00904-1516-28 ")
 ;;297
 ;;21,"00904-2035-24 ")
 ;;471
 ;;21,"00904-2035-59 ")
 ;;472
 ;;21,"00904-2056-61 ")
 ;;744
 ;;21,"00904-2329-60 ")
 ;;1551
 ;;21,"00904-2329-80 ")
 ;;1552
 ;;21,"00904-2330-60 ")
 ;;1712
 ;;21,"00904-5174-16 ")
 ;;369
 ;;21,"00904-5306-60 ")
 ;;473
 ;;21,"00904-5306-61 ")
 ;;474
 ;;21,"00904-5306-80 ")
 ;;475
 ;;21,"00904-5307-60 ")
 ;;745
 ;;21,"00904-5307-80 ")
 ;;746
 ;;21,"00904-5551-24 ")
 ;;658
 ;;21,"00904-5551-59 ")
 ;;659
 ;;21,"00904-5840-61 ")
 ;;1553
 ;;21,"00904-6252-80 ")
 ;;1554
 ;;21,"00904-7616-51 ")
 ;;53
 ;;21,"00904-7651-51 ")
 ;;54
 ;;21,"00927-0221-24 ")
 ;;660
 ;;21,"00927-0616-34 ")
 ;;873
 ;;21,"01981-0003-23 ")
 ;;111
 ;;21,"01981-0003-25 ")
 ;;112
 ;;21,"01981-0003-26 ")
 ;;113
 ;;21,"01981-0076-34 ")
 ;;114
 ;;21,"01981-0076-43 ")
 ;;115
 ;;21,"10135-0149-01 ")
 ;;476
 ;;21,"10135-0149-10 ")
 ;;477
 ;;21,"10135-0149-24 ")
 ;;478
 ;;21,"10135-0149-61 ")
 ;;479
 ;;21,"10135-0151-01 ")
 ;;661
 ;;21,"10135-0151-10 ")
 ;;662
 ;;21,"10135-0151-13 ")
 ;;663
 ;;21,"10135-0151-24 ")
 ;;664
 ;;21,"10135-0151-50 ")
 ;;665
 ;;21,"10135-0151-52 ")
 ;;666
 ;;21,"10135-0151-57 ")
 ;;667
 ;;21,"10135-0156-01 ")
 ;;747
 ;;21,"10135-0156-10 ")
 ;;748
 ;;21,"10135-0156-13 ")
 ;;749
 ;;21,"10135-0166-13 ")
 ;;480
 ;;21,"10135-0352-01 ")
 ;;55
 ;;21,"10135-0352-13 ")
 ;;56
 ;;21,"10135-0352-50 ")
 ;;57
 ;;21,"10135-0352-55 ")
 ;;58
 ;;21,"10135-0352-57 ")
 ;;59
 ;;21,"10135-0410-55 ")
 ;;60
 ;;21,"10135-0418-29 ")
 ;;427
 ;;21,"10135-0495-01 ")
 ;;1555
 ;;21,"10135-0495-10 ")
 ;;1556
 ;;21,"10135-0496-01 ")
 ;;1713
 ;;21,"10135-0514-01 ")
 ;;1502
 ;;21,"10158-0043-02 ")
 ;;668
 ;;21,"10158-0043-04 ")
 ;;669
 ;;21,"10158-0043-06 ")
 ;;670
 ;;21,"10267-0835-01 ")
 ;;481
 ;;21,"10267-0835-04 ")
 ;;482
 ;;21,"10267-0836-01 ")
 ;;750
 ;;21,"10267-0836-04 ")
 ;;751
 ;;21,"10544-0328-30 ")
 ;;1328
 ;;21,"10544-0343-30 ")
 ;;1557
 ;;21,"10702-0002-01 ")
 ;;1503
 ;;21,"10702-0003-01 ")
 ;;1558
 ;;21,"10702-0003-10 ")
 ;;1559
 ;;21,"10702-0004-01 ")
 ;;1714
 ;;21,"10702-0010-01 ")
 ;;947
 ;;21,"10702-0010-10 ")
 ;;948
 ;;21,"10702-0010-50 ")
 ;;949
 ;;21,"10702-0011-01 ")
 ;;1077
 ;;21,"10702-0011-10 ")
 ;;1078
 ;;21,"10702-0011-50 ")
 ;;1079
 ;;21,"10702-0012-01 ")
 ;;1237
 ;;21,"10702-0012-10 ")
 ;;1238
 ;;21,"10702-0012-50 ")
 ;;1239
 ;;21,"10702-0052-16 ")
 ;;1032
 ;;21,"10892-0112-65 ")
 ;;370
 ;;21,"10914-0931-06 ")
 ;;137
 ;;21,"10939-0564-01 ")
 ;;671
 ;;21,"10956-0601-24 ")
 ;;752
 ;;21,"10956-0601-48 ")
 ;;753
 ;;21,"10956-0607-24 ")
 ;;874
 ;;21,"10956-0607-48 ")
 ;;875
 ;;21,"10956-0610-24 ")
 ;;876
 ;;21,"10956-0610-48 ")
 ;;877
 ;;21,"10956-0623-04 ")
 ;;371
 ;;21,"10956-0750-24 ")
 ;;878
 ;;21,"10956-0750-48 ")
 ;;879
 ;;21,"12280-0068-24 ")
 ;;483
 ;;21,"12280-0068-30 ")
 ;;484
 ;;21,"12280-0114-04 ")
 ;;1482
 ;;21,"12280-0185-00 ")
 ;;754
 ;;21,"12547-0170-21 ")
 ;;672
 ;;21,"12547-0170-31 ")
 ;;673
 ;;21,"12547-0170-33 ")
 ;;674
 ;;21,"12547-0170-50 ")
 ;;21
 ;;21,"12547-0170-55 ")
 ;;372
 ;;21,"12547-0171-36 ")
 ;;675
 ;;21,"12547-0171-37 ")
 ;;373
 ;;21,"12547-0172-38 ")
 ;;324
 ;;21,"12547-0175-85 ")
 ;;5
 ;;21,"12547-0175-86 ")
 ;;6
 ;;21,"12547-0175-88 ")
 ;;7
 ;;21,"12547-0227-33 ")
 ;;8
 ;;21,"12547-0227-34 ")
 ;;9
 ;;21,"12843-0165-21 ")
 ;;61
 ;;21,"13811-0073-16 ")
 ;;906
 ;;21,"16590-0078-20 ")
 ;;485
 ;;21,"16590-0079-20 ")
 ;;755
 ;;21,"16590-0122-20 ")
 ;;1080
 ;;21,"16590-0122-30 ")
 ;;1081
 ;;21,"16590-0122-40 ")
 ;;1082
 ;;21,"16590-0122-60 ")
 ;;1083
 ;;21,"16590-0122-90 ")
 ;;1084
 ;;21,"16590-0191-10 ")
 ;;1560
 ;;21,"16590-0191-15 ")
 ;;1561
 ;;21,"16590-0191-20 ")
 ;;1562
 ;;21,"16590-0191-30 ")
 ;;1563
 ;;21,"16590-0191-60 ")
 ;;1564
 ;;21,"16590-0191-90 ")
 ;;1565
 ;;21,"16590-0192-04 ")
 ;;173
 ;;21,"16590-0357-09 ")
 ;;1329
 ;;21,"16590-0357-12 ")
 ;;1330
 ;;21,"16590-0357-20 ")
 ;;1331
 ;;21,"16590-0357-30 ")
 ;;1332
 ;;21,"16714-0081-04 ")
 ;;950
 ;;21,"16714-0081-05 ")
 ;;951
 ;;21,"16714-0082-04 ")
 ;;1085
 ;;21,"16714-0082-05 ")
 ;;1086
 ;;21,"16714-0082-06 ")
 ;;1087
 ;;21,"16714-0083-04 ")
 ;;1240
 ;;21,"16714-0083-05 ")
 ;;1241
 ;;21,"17714-0020-01 ")
 ;;486
 ;;21,"17714-0020-10 ")
 ;;487
 ;;21,"17714-0021-01 ")
 ;;756
 ;;21,"17714-0021-10 ")
 ;;757
 ;;21,"17714-0042-01 ")
 ;;676
 ;;21,"17856-0823-10 ")
 ;;374
 ;;21,"18837-0043-30 ")
 ;;758
 ;;21,"18837-0070-30 ")
 ;;952
 ;;21,"18837-0127-10 ")
 ;;1566
 ;;21,"18837-0127-30 ")
 ;;1567
 ;;21,"18837-0127-60 ")
 ;;1568
 ;;21,"18837-0127-90 ")
 ;;1569
 ;;21,"19810-0001-56 ")
 ;;116
 ;;21,"19810-0001-82 ")
 ;;117
 ;;21,"19810-0001-83 ")
 ;;118
 ;;21,"19810-0002-40 ")
 ;;119
 ;;21,"19810-0003-22 ")
 ;;120
 ;;21,"19810-0003-23 ")
 ;;121
 ;;21,"19810-0003-26 ")
 ;;122
 ;;21,"19810-0018-01 ")
 ;;123
 ;;21,"19810-0018-02 ")
 ;;124
 ;;21,"19810-0018-03 ")
 ;;125
 ;;21,"19810-0018-04 ")
 ;;126
 ;;21,"19810-0032-02 ")
 ;;127
 ;;21,"19810-0032-03 ")
 ;;128
 ;;21,"19810-0032-06 ")
 ;;129
 ;;21,"19810-0070-67 ")
 ;;130
 ;;21,"19810-0070-68 ")
 ;;131
 ;;21,"20254-0207-06 ")
 ;;677
 ;;21,"20254-0207-10 ")
 ;;678
 ;;21,"20254-0208-06 ")
 ;;880
 ;;21,"20254-0208-10 ")
 ;;881
 ;;21,"21406-0490-50 ")
 ;;133
 ;;21,"21406-0491-30 ")
 ;;134
 ;;21,"21695-0208-20 ")
 ;;1088
 ;;21,"21695-0208-30 ")
 ;;1089
 ;;21,"21695-0208-60 ")
 ;;1090
 ;;21,"21695-0208-90 ")
 ;;1091
 ;;21,"21695-0304-30 ")
 ;;488
 ;;21,"21695-0304-90 ")
 ;;489
 ;;21,"21695-0336-04 ")
 ;;174
 ;;21,"21695-0356-60 ")
 ;;1242
 ;;21,"21695-0453-10 ")
 ;;1570
 ;;21,"21695-0453-15 ")
 ;;1571
 ;;21,"21695-0453-20 ")
 ;;1572
 ;;21,"21695-0453-25 ")
 ;;1573
 ;;21,"21695-0573-20 ")
 ;;1333
 ;;21,"21695-0698-04 ")
 ;;298
 ;;21,"21695-0885-10 ")
 ;;1715
 ;;21,"23155-0105-01 ")
 ;;953
 ;;21,"23155-0105-10 ")
 ;;954
 ;;21,"23155-0106-01 ")
 ;;1092
 ;;21,"23155-0106-10 ")
 ;;1093
 ;;21,"23155-0107-01 ")
 ;;1243
 ;;21,"23155-0107-10 ")
 ;;1244
 ;;21,"23490-5455-01 ")
 ;;375
 ;;21,"23490-5457-00 ")
 ;;490
 ;;21,"23490-5457-01 ")
 ;;491
 ;;21,"23490-5457-02 ")
 ;;492
 ;;21,"23490-5457-03 ")
 ;;493
 ;;21,"23490-5457-04 ")
 ;;494
 ;;21,"23490-5457-05 ")
 ;;495
 ;;21,"23490-5459-01 ")
 ;;759
 ;;21,"23490-5459-02 ")
 ;;760
 ;;21,"23490-5459-03 ")
 ;;761
 ;;21,"23490-5459-04 ")
 ;;762
 ;;21,"23490-5727-01 ")
 ;;955
 ;;21,"23490-5727-02 ")
 ;;956
 ;;21,"23490-5728-01 ")
 ;;1033
 ;;21,"23490-5729-01 ")
 ;;1094
 ;;21,"23490-5729-02 ")
 ;;1095
 ;;21,"23490-5729-03 ")
 ;;1096
 ;;21,"23490-5729-04 ")
 ;;1097
 ;;21,"23490-5729-05 ")
 ;;1098
 ;;21,"23490-5729-06 ")
 ;;1099
 ;;21,"23490-5731-00 ")
 ;;1245
 ;;21,"23490-5731-01 ")
 ;;1246
 ;;21,"23490-5733-01 ")
 ;;1334
 ;;21,"23490-5733-02 ")
 ;;1335
 ;;21,"23490-6178-01 ")
 ;;299
 ;;21,"23490-6178-02 ")
 ;;300
 ;;21,"23490-6183-01 ")
 ;;1574
 ;;21,"23490-6183-02 ")
 ;;1575
 ;;21,"23490-6183-03 ")
 ;;1576
 ;;21,"23490-6183-04 ")
 ;;1577
 ;;21,"23490-6183-06 ")
 ;;1578
 ;;21,"23490-6183-07 ")
 ;;1579
 ;;21,"23490-6183-08 ")
 ;;1580
 ;;21,"23490-6187-01 ")
 ;;1738
 ;;21,"23490-6188-01 ")
 ;;175
 ;;21,"23629-0029-01 ")
 ;;957
 ;;21,"23629-0030-01 ")
 ;;1100
 ;;21,"23629-0031-01 ")
 ;;1247
 ;;21,"23629-0032-01 ")
 ;;1336
 ;;21,"23629-0033-01 ")
 ;;1433
 ;;21,"24385-0379-26 ")
 ;;376
 ;;21,"24385-0437-71 ")
 ;;62
 ;;21,"24385-0462-62 ")
 ;;496
 ;;21,"24385-0462-78 ")
 ;;497
 ;;21,"24385-0479-62 ")
 ;;679
 ;;21,"24385-0479-78 ")
 ;;680
 ;;21,"33358-0110-30 ")
 ;;498
 ;;21,"33358-0111-20 ")
 ;;763
 ;;21,"33358-0111-30 ")
 ;;764
 ;;21,"33358-0179-30 ")
 ;;958
 ;;21,"33358-0180-01 ")
 ;;1034
 ;;21,"33358-0181-20 ")
 ;;1101
 ;;21,"33358-0181-30 ")
 ;;1102
 ;;21,"33358-0182-20 ")
 ;;1337
 ;;21,"33358-0182-30 ")
 ;;1338
 ;;21,"33358-0302-08 ")
 ;;1581
 ;;21,"33358-0302-10 ")
 ;;1582
 ;;21,"33358-0302-30 ")
 ;;1583
 ;;21,"33358-0302-60 ")
 ;;1584
 ;;21,"35356-0123-60 ")
 ;;959
 ;;21,"37205-0060-71 ")
 ;;63
 ;;21,"37205-0565-26 ")
 ;;377
 ;;21,"41157-0006-11 ")
 ;;765
 ;;21,"41167-0001-40 ")
 ;;712
 ;;21,"41167-0006-10 ")
 ;;766
 ;;21,"41167-0006-13 ")
 ;;767
 ;;21,"42291-0225-10 ")
 ;;223
 ;;21,"43063-0049-02 ")
 ;;1585
 ;;21,"43063-0049-06 ")
 ;;1586
 ;;21,"43063-0095-06 ")
 ;;1103
 ;;21,"43063-0179-06 ")
 ;;768
 ;;21,"43292-0556-31 ")
 ;;681
 ;;21,"43292-0557-65 ")
 ;;882
 ;;21,"45985-0652-16 ")
 ;;275
 ;;21,"47682-0182-32 ")
 ;;499
 ;;21,"47682-0182-47 ")
 ;;500
 ;;21,"47682-0182-64 ")
 ;;501
 ;;21,"47682-0847-87 ")
 ;;502
 ;;21,"47682-0858-87 ")
 ;;503
 ;;21,"49348-0044-04 ")
 ;;504
 ;;21,"49348-0044-10 ")
 ;;505
 ;;21,"49348-0045-34 ")
 ;;378
 ;;21,"49348-0045-37 ")
 ;;379
 ;;21,"49348-0072-09 ")
 ;;132
 ;;21,"49348-0073-09 ")
 ;;64
 ;;21,"49348-0074-03 ")
 ;;769
 ;;21,"49348-0074-06 ")
 ;;770
 ;;21,"49348-0205-37 ")
 ;;380
 ;;21,"49348-0206-04 ")
 ;;18
 ;;21,"49348-0282-08 ")
 ;;506
 ;;21,"49348-0292-09 ")
 ;;65
 ;;21,"49348-0348-54 ")
 ;;66
 ;;21,"49348-0349-09 ")
 ;;67
 ;;21,"49348-0349-10 ")
 ;;68
 ;;21,"49348-0349-54 ")
 ;;69
 ;;21,"49348-0375-08 ")
 ;;682
 ;;21,"49348-0375-10 ")
 ;;683
 ;;21,"49348-0471-04 ")
 ;;684
 ;;21,"49348-0564-04 ")
 ;;685
 ;;21,"49348-0564-07 ")
 ;;686
 ;;21,"49348-0611-09 ")
 ;;70
 ;;21,"49348-0779-04 ")
 ;;32
 ;;21,"49348-0904-70 ")
 ;;15
 ;;21,"49348-0918-09 ")
 ;;71
 ;;21,"49348-0918-10 ")
 ;;72
 ;;21,"49884-0043-01 ")
 ;;224
 ;;21,"49884-0043-10 ")
 ;;225
 ;;21,"49999-0003-00 ")
 ;;507
 ;;21,"49999-0003-06 ")
 ;;508
 ;;21,"49999-0003-15 ")
 ;;509
 ;;21,"49999-0003-20 ")
 ;;510
 ;;21,"49999-0003-21 ")
 ;;511
 ;;21,"49999-0003-24 ")
 ;;512
 ;;21,"49999-0003-30 ")
 ;;513
 ;;21,"49999-0003-40 ")
 ;;514
 ;;21,"49999-0003-60 ")
 ;;515
 ;;21,"49999-0024-00 ")
 ;;1104
 ;;21,"49999-0024-12 ")
 ;;1105
 ;;21,"49999-0024-24 ")
 ;;1106
 ;;21,"49999-0024-30 ")
 ;;1107
 ;;21,"49999-0024-60 ")
 ;;1108
 ;;21,"49999-0035-24 ")
 ;;1248
 ;;21,"49999-0035-30 ")
 ;;1249
 ;;21,"49999-0035-60 ")
 ;;1250
 ;;21,"49999-0036-12 ")
 ;;1305
 ;;21,"49999-0036-60 ")
 ;;1306
 ;;21,"49999-0090-05 ")
 ;;1587
 ;;21,"49999-0090-10 ")
 ;;1588
 ;;21,"49999-0090-12 ")
 ;;1589
 ;;21,"49999-0090-15 ")
 ;;1590
 ;;21,"49999-0090-20 ")
 ;;1591
 ;;21,"49999-0090-30 ")
 ;;1592
 ;;21,"49999-0090-60 ")
 ;;1593
 ;;21,"49999-0091-04 ")
 ;;771
 ;;21,"49999-0091-15 ")
 ;;772
 ;;21,"49999-0091-20 ")
 ;;773
 ;;21,"49999-0091-30 ")
 ;;774
 ;;21,"49999-0091-60 ")
 ;;775
 ;;21,"49999-0152-04 ")
 ;;176
 ;;21,"49999-0247-04 ")
 ;;381
 ;;21,"49999-0262-04 ")
 ;;1739
 ;;21,"49999-0314-04 ")
 ;;301
 ;;21,"49999-0326-04 ")
 ;;148
 ;;21,"49999-0493-18 ")
 ;;226
 ;;21,"49999-0657-04 ")
 ;;1483
 ;;21,"49999-0902-20 ")
 ;;1504
 ;;21,"50111-0307-01 ")
 ;;960
 ;;21,"50111-0307-02 ")
 ;;961
 ;;21,"50111-0307-03 ")
 ;;962
 ;;21,"50111-0308-01 ")
 ;;1109
 ;;21,"50111-0308-02 ")
 ;;1110
 ;;21,"50111-0308-03 ")
 ;;1111
 ;;21,"50111-0309-01 ")
 ;;1251
 ;;21,"50111-0309-02 ")
 ;;1252
 ;;21,"50111-0309-03 ")
 ;;1253
 ;;21,"50111-0314-01 ")
 ;;227
 ;;21,"50111-0314-03 ")
 ;;228
 ;;21,"50383-0578-04 ")
 ;;382
 ;;21,"50383-0578-16 ")
 ;;383
 ;;21,"50383-0579-04 ")
 ;;384
 ;;21,"50383-0579-08 ")
 ;;385
 ;;21,"50383-0579-16 ")
 ;;386
 ;;21,"50383-0579-28 ")
 ;;387
 ;;21,"50383-0581-04 ")
 ;;388
 ;;21,"50383-0581-16 ")
 ;;389
 ;;21,"50383-0796-16 ")
 ;;1035
 ;;21,"50383-0801-16 ")
 ;;1740
 ;;21,"50383-0803-16 ")
 ;;302
 ;;21,"50383-0804-16 ")
 ;;177
 ;;21,"50383-0866-04 ")
 ;;264
 ;;21,"50383-0866-16 ")
 ;;265
 ;;21,"50383-0880-16 ")
 ;;258