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

BGP2VN3.m

Go to the documentation of this file.
BGP2VN3 ;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,"50428-4770-66 ")
 ;;687
 ;;21,"50428-4770-68 ")
 ;;688
 ;;21,"50428-4770-69 ")
 ;;689
 ;;21,"50428-4770-70 ")
 ;;516
 ;;21,"50428-4770-71 ")
 ;;517
 ;;21,"50428-4770-72 ")
 ;;390
 ;;21,"50428-4770-73 ")
 ;;391
 ;;21,"50428-4770-84 ")
 ;;918
 ;;21,"50486-0616-16 ")
 ;;776
 ;;21,"50486-0616-32 ")
 ;;777
 ;;21,"50486-0621-16 ")
 ;;778
 ;;21,"50580-0176-04 ")
 ;;73
 ;;21,"50580-0176-08 ")
 ;;74
 ;;21,"50580-0176-10 ")
 ;;75
 ;;21,"50580-0176-14 ")
 ;;76
 ;;21,"50580-0176-15 ")
 ;;77
 ;;21,"50580-0176-24 ")
 ;;78
 ;;21,"50580-0176-50 ")
 ;;79
 ;;21,"50580-0176-70 ")
 ;;80
 ;;21,"50580-0176-74 ")
 ;;81
 ;;21,"50580-0182-20 ")
 ;;82
 ;;21,"50580-0182-40 ")
 ;;83
 ;;21,"50580-0182-52 ")
 ;;84
 ;;21,"50580-0233-24 ")
 ;;33
 ;;21,"50580-0233-48 ")
 ;;34
 ;;21,"50580-0234-24 ")
 ;;85
 ;;21,"50580-0244-20 ")
 ;;86
 ;;21,"50580-0252-08 ")
 ;;23
 ;;21,"50580-0347-18 ")
 ;;325
 ;;21,"50580-0348-18 ")
 ;;326
 ;;21,"50580-0426-10 ")
 ;;87
 ;;21,"50580-0426-23 ")
 ;;88
 ;;21,"50580-0426-24 ")
 ;;89
 ;;21,"50580-0427-08 ")
 ;;24
 ;;21,"50580-0482-10 ")
 ;;90
 ;;21,"50580-0482-15 ")
 ;;91
 ;;21,"50580-0482-24 ")
 ;;92
 ;;21,"50580-0482-26 ")
 ;;93
 ;;21,"50580-0482-35 ")
 ;;94
 ;;21,"50580-0482-45 ")
 ;;95
 ;;21,"50580-0482-50 ")
 ;;96
 ;;21,"50580-0482-70 ")
 ;;97
 ;;21,"50580-0534-04 ")
 ;;392
 ;;21,"50580-0552-04 ")
 ;;898
 ;;21,"50580-0664-12 ")
 ;;10
 ;;21,"50580-0664-24 ")
 ;;11
 ;;21,"50580-0777-04 ")
 ;;393
 ;;21,"50580-0781-04 ")
 ;;899
 ;;21,"50580-0814-08 ")
 ;;25
 ;;21,"50580-0843-10 ")
 ;;690
 ;;21,"50580-0843-13 ")
 ;;691
 ;;21,"50580-0843-24 ")
 ;;692
 ;;21,"50580-0843-25 ")
 ;;693
 ;;21,"50580-0843-48 ")
 ;;694
 ;;21,"50580-0843-72 ")
 ;;695
 ;;21,"50991-0607-16 ")
 ;;907
 ;;21,"51079-0066-01 ")
 ;;779
 ;;21,"51079-0066-19 ")
 ;;780
 ;;21,"51079-0066-20 ")
 ;;781
 ;;21,"51079-0077-20 ")
 ;;1339
 ;;21,"51079-0078-01 ")
 ;;1434
 ;;21,"51079-0078-20 ")
 ;;1435
 ;;21,"51079-0413-01 ")
 ;;963
 ;;21,"51079-0413-20 ")
 ;;964
 ;;21,"51079-0530-01 ")
 ;;965
 ;;21,"51079-0530-20 ")
 ;;966
 ;;21,"51079-0531-01 ")
 ;;1112
 ;;21,"51079-0531-20 ")
 ;;1113
 ;;21,"51079-0532-01 ")
 ;;1254
 ;;21,"51079-0532-20 ")
 ;;1255
 ;;21,"51079-0796-01 ")
 ;;967
 ;;21,"51079-0796-20 ")
 ;;968
 ;;21,"51079-0806-01 ")
 ;;1114
 ;;21,"51079-0806-20 ")
 ;;1115
 ;;21,"51079-0816-01 ")
 ;;1256
 ;;21,"51079-0816-20 ")
 ;;1257
 ;;21,"51079-0895-01 ")
 ;;1594
 ;;21,"51079-0895-20 ")
 ;;1595
 ;;21,"51079-0967-01 ")
 ;;696
 ;;21,"51079-0967-19 ")
 ;;697
 ;;21,"51079-0967-20 ")
 ;;698
 ;;21,"51641-0030-46 ")
 ;;394
 ;;21,"51641-0030-64 ")
 ;;395
 ;;21,"51641-0030-76 ")
 ;;396
 ;;21,"51641-0030-94 ")
 ;;397
 ;;21,"51645-0709-05 ")
 ;;98
 ;;21,"51655-0078-54 ")
 ;;969
 ;;21,"51655-0079-80 ")
 ;;1116
 ;;21,"51655-0084-53 ")
 ;;1596
 ;;21,"51655-0113-24 ")
 ;;699
 ;;21,"51655-0113-54 ")
 ;;518
 ;;21,"51655-0113-80 ")
 ;;700
 ;;21,"51655-0276-52 ")
 ;;229
 ;;21,"51655-0533-52 ")
 ;;1340
 ;;21,"51991-0189-04 ")
 ;;283
 ;;21,"51991-0189-16 ")
 ;;284
 ;;21,"51991-0298-16 ")
 ;;887
 ;;21,"51991-0583-01 ")
 ;;279
 ;;21,"52152-0014-02 ")
 ;;255
 ;;21,"52152-0015-02 ")
 ;;257
 ;;21,"52152-0311-02 ")
 ;;970
 ;;21,"52152-0311-05 ")
 ;;971
 ;;21,"52152-0312-02 ")
 ;;1117
 ;;21,"52152-0312-05 ")
 ;;1118
 ;;21,"52152-0313-02 ")
 ;;1258
 ;;21,"52152-0313-05 ")
 ;;1259
 ;;21,"52183-0389-04 ")
 ;;900
 ;;21,"52183-0399-04 ")
 ;;398
 ;;21,"52389-0610-60 ")
 ;;701
 ;;21,"52959-0043-00 ")
 ;;519
 ;;21,"52959-0043-04 ")
 ;;520
 ;;21,"52959-0043-10 ")
 ;;521
 ;;21,"52959-0043-15 ")
 ;;522
 ;;21,"52959-0043-20 ")
 ;;523
 ;;21,"52959-0043-24 ")
 ;;524
 ;;21,"52959-0043-30 ")
 ;;525
 ;;21,"52959-0043-50 ")
 ;;526
 ;;21,"52959-0043-60 ")
 ;;527
 ;;21,"52959-0053-06 ")
 ;;782
 ;;21,"52959-0053-10 ")
 ;;783
 ;;21,"52959-0053-12 ")
 ;;784
 ;;21,"52959-0053-15 ")
 ;;785
 ;;21,"52959-0053-20 ")
 ;;786
 ;;21,"52959-0053-30 ")
 ;;787
 ;;21,"52959-0053-52 ")
 ;;788
 ;;21,"52959-0074-12 ")
 ;;1119
 ;;21,"52959-0074-13 ")
 ;;1120
 ;;21,"52959-0074-15 ")
 ;;1121
 ;;21,"52959-0074-16 ")
 ;;1122
 ;;21,"52959-0074-20 ")
 ;;1123
 ;;21,"52959-0074-21 ")
 ;;1124
 ;;21,"52959-0074-24 ")
 ;;1125
 ;;21,"52959-0074-30 ")
 ;;1126
 ;;21,"52959-0074-40 ")
 ;;1127
 ;;21,"52959-0074-50 ")
 ;;1128
 ;;21,"52959-0074-60 ")
 ;;1129
 ;;21,"52959-0074-90 ")
 ;;1130
 ;;21,"52959-0118-03 ")
 ;;178
 ;;21,"52959-0118-05 ")
 ;;179
 ;;21,"52959-0118-06 ")
 ;;180
 ;;21,"52959-0118-08 ")
 ;;181
 ;;21,"52959-0123-03 ")
 ;;399
 ;;21,"52959-0123-06 ")
 ;;400
 ;;21,"52959-0134-04 ")
 ;;1741
 ;;21,"52959-0134-08 ")
 ;;1742
 ;;21,"52959-0229-04 ")
 ;;149
 ;;21,"52959-0433-10 ")
 ;;1341
 ;;21,"52959-0433-15 ")
 ;;1342
 ;;21,"52959-0433-20 ")
 ;;1343
 ;;21,"52959-0433-30 ")
 ;;1344
 ;;21,"52959-0433-40 ")
 ;;1345
 ;;21,"52959-0433-50 ")
 ;;1346
 ;;21,"52959-0433-60 ")
 ;;1347
 ;;21,"52959-0481-10 ")
 ;;972
 ;;21,"52959-0481-12 ")
 ;;973
 ;;21,"52959-0481-20 ")
 ;;974
 ;;21,"52959-0481-30 ")
 ;;975
 ;;21,"52959-0534-01 ")
 ;;1597
 ;;21,"52959-0534-02 ")
 ;;1598
 ;;21,"52959-0534-10 ")
 ;;1599
 ;;21,"52959-0534-12 ")
 ;;1600
 ;;21,"52959-0534-15 ")
 ;;1601
 ;;21,"52959-0534-20 ")
 ;;1602
 ;;21,"52959-0534-28 ")
 ;;1603
 ;;21,"52959-0534-30 ")
 ;;1604
 ;;21,"52959-0534-45 ")
 ;;1605
 ;;21,"52959-0534-60 ")
 ;;1606
 ;;21,"52959-0534-90 ")
 ;;1607
 ;;21,"52959-0568-04 ")
 ;;1484
 ;;21,"52959-0582-03 ")
 ;;1036
 ;;21,"52959-0700-04 ")
 ;;303
 ;;21,"52959-0700-06 ")
 ;;304
 ;;21,"52959-0700-08 ")
 ;;305
 ;;21,"52959-0804-04 ")
 ;;1743
 ;;21,"52959-0804-08 ")
 ;;1744
 ;;21,"52959-0833-06 ")
 ;;1436
 ;;21,"52959-0833-20 ")
 ;;1437
 ;;21,"52959-0882-30 ")
 ;;1260
 ;;21,"52959-0914-30 ")
 ;;1505
 ;;21,"53100-0128-22 ")
 ;;702
 ;;21,"53100-0128-32 ")
 ;;703
 ;;21,"53100-0128-75 ")
 ;;883
 ;;21,"53489-0127-01 ")
 ;;1131
 ;;21,"53489-0127-05 ")
 ;;1132
 ;;21,"53489-0127-10 ")
 ;;1133
 ;;21,"53489-0128-01 ")
 ;;1261
 ;;21,"53489-0128-05 ")
 ;;1262
 ;;21,"53489-0128-10 ")
 ;;1263
 ;;21,"53746-0064-10 ")
 ;;704
 ;;21,"54569-0239-00 ")
 ;;528
 ;;21,"54569-0239-01 ")
 ;;529
 ;;21,"54569-0239-02 ")
 ;;530
 ;;21,"54569-0239-03 ")
 ;;531
 ;;21,"54569-0239-08 ")
 ;;532
 ;;21,"54569-0241-00 ")
 ;;789
 ;;21,"54569-0241-02 ")
 ;;790
 ;;21,"54569-0241-03 ")
 ;;791
 ;;21,"54569-0241-04 ")
 ;;792
 ;;21,"54569-0241-05 ")
 ;;793
 ;;21,"54569-0406-00 ")
 ;;976
 ;;21,"54569-0406-01 ")
 ;;977
 ;;21,"54569-0406-03 ")
 ;;978
 ;;21,"54569-0406-05 ")
 ;;979
 ;;21,"54569-0409-01 ")
 ;;1264
 ;;21,"54569-0409-03 ")
 ;;1265
 ;;21,"54569-0409-04 ")
 ;;1266
 ;;21,"54569-0411-01 ")
 ;;230
 ;;21,"54569-0413-00 ")
 ;;1134
 ;;21,"54569-0413-01 ")
 ;;1135
 ;;21,"54569-0413-04 ")
 ;;1136
 ;;21,"54569-0413-05 ")
 ;;1137
 ;;21,"54569-0413-06 ")
 ;;1138
 ;;21,"54569-0413-08 ")
 ;;1139
 ;;21,"54569-0413-09 ")
 ;;1140
 ;;21,"54569-1046-00 ")
 ;;1745
 ;;21,"54569-1055-00 ")
 ;;306
 ;;21,"54569-1056-00 ")
 ;;182
 ;;21,"54569-1640-01 ")
 ;;1037
 ;;21,"54569-1754-00 ")
 ;;1608
 ;;21,"54569-1754-01 ")
 ;;1609
 ;;21,"54569-1754-09 ")
 ;;1610
 ;;21,"54569-2353-02 ")
 ;;1348
 ;;21,"54569-2353-03 ")
 ;;1349
 ;;21,"54569-2353-05 ")
 ;;1350
 ;;21,"54569-2571-01 ")
 ;;1438
 ;;21,"54569-2984-00 ")
 ;;207
 ;;21,"54569-2984-01 ")
 ;;208
 ;;21,"54569-3044-02 ")
 ;;150
 ;;21,"54569-3200-00 ")
 ;;401
 ;;21,"54569-3504-00 ")
 ;;533
 ;;21,"54569-3504-01 ")
 ;;534
 ;;21,"54569-3540-02 ")
 ;;183
 ;;21,"54569-4168-00 ")
 ;;1611
 ;;21,"54569-4197-00 ")
 ;;402
 ;;21,"54569-4825-00 ")
 ;;1141
 ;;21,"54569-4825-01 ")
 ;;1142
 ;;21,"54569-5736-00 ")
 ;;1485
 ;;21,"54738-0115-01 ")
 ;;535
 ;;21,"54738-0115-03 ")
 ;;536
 ;;21,"54738-0115-13 ")
 ;;537
 ;;21,"54738-0116-01 ")
 ;;794
 ;;21,"54738-0116-03 ")
 ;;795
 ;;21,"54738-0116-13 ")
 ;;796
 ;;21,"54738-0308-03 ")
 ;;1143
 ;;21,"54738-0309-01 ")
 ;;1267
 ;;21,"54838-0103-00 ")
 ;;403
 ;;21,"54838-0103-40 ")
 ;;404
 ;;21,"54838-0103-80 ")
 ;;405
 ;;21,"54838-0135-40 ")
 ;;406
 ;;21,"54838-0135-70 ")
 ;;407
 ;;21,"54838-0135-80 ")
 ;;408
 ;;21,"54838-0154-40 ")
 ;;409
 ;;21,"54838-0154-70 ")
 ;;410
 ;;21,"54838-0154-80 ")
 ;;411
 ;;21,"54868-0026-00 ")
 ;;538
 ;;21,"54868-0026-01 ")
 ;;539
 ;;21,"54868-0026-04 ")
 ;;540
 ;;21,"54868-0026-05 ")
 ;;541
 ;;21,"54868-0026-06 ")
 ;;542
 ;;21,"54868-0026-07 ")
 ;;543
 ;;21,"54868-0063-00 ")
 ;;1144
 ;;21,"54868-0063-01 ")
 ;;1145
 ;;21,"54868-0063-02 ")
 ;;1146
 ;;21,"54868-0063-03 ")
 ;;1147
 ;;21,"54868-0063-05 ")
 ;;1148
 ;;21,"54868-0063-06 ")
 ;;1149
 ;;21,"54868-0063-07 ")
 ;;1150
 ;;21,"54868-0063-09 ")
 ;;1151
 ;;21,"54868-0169-01 ")
 ;;1351
 ;;21,"54868-0229-01 ")
 ;;980
 ;;21,"54868-0229-02 ")
 ;;981
 ;;21,"54868-0229-03 ")
 ;;982
 ;;21,"54868-0229-04 ")
 ;;983
 ;;21,"54868-0263-00 ")
 ;;151
 ;;21,"54868-0263-01 ")
 ;;152
 ;;21,"54868-1029-00 ")
 ;;184
 ;;21,"54868-1029-01 ")
 ;;185
 ;;21,"54868-1029-02 ")
 ;;186
 ;;21,"54868-1050-00 ")
 ;;797
 ;;21,"54868-1050-01 ")
 ;;798
 ;;21,"54868-1050-03 ")
 ;;799
 ;;21,"54868-1050-04 ")
 ;;800
 ;;21,"54868-1050-05 ")
 ;;801
 ;;21,"54868-1227-00 ")
 ;;412
 ;;21,"54868-1227-02 ")
 ;;413
 ;;21,"54868-1323-00 ")
 ;;1612
 ;;21,"54868-1323-01 ")
 ;;1613
 ;;21,"54868-1323-02 ")
 ;;1614
 ;;21,"54868-1323-04 ")
 ;;1615
 ;;21,"54868-1323-05 ")
 ;;1616
 ;;21,"54868-1323-06 ")
 ;;1617
 ;;21,"54868-1332-01 ")
 ;;231
 ;;21,"54868-1332-02 ")
 ;;232
 ;;21,"54868-1332-03 ")
 ;;233
 ;;21,"54868-1332-04 ")
 ;;234
 ;;21,"54868-1332-05 ")
 ;;235
 ;;21,"54868-1332-06 ")
 ;;236
 ;;21,"54868-1332-07 ")
 ;;237
 ;;21,"54868-1804-00 ")
 ;;1268
 ;;21,"54868-1804-02 ")
 ;;1269
 ;;21,"54868-1804-04 ")
 ;;1270
 ;;21,"54868-1854-00 ")
 ;;1439
 ;;21,"54868-1854-01 ")
 ;;1440
 ;;21,"54868-1854-03 ")
 ;;1441
 ;;21,"54868-1854-04 ")
 ;;1442
 ;;21,"54868-1867-00 ")
 ;;1746
 ;;21,"54868-1990-00 ")
 ;;307
 ;;21,"54868-1990-01 ")
 ;;308
 ;;21,"54868-2032-00 ")
 ;;1038
 ;;21,"54868-2844-00 ")
 ;;1716
 ;;21,"54868-2892-00 ")
 ;;1352
 ;;21,"54868-2892-02 ")
 ;;1353
 ;;21,"54868-2892-03 ")
 ;;1354
 ;;21,"54868-2892-04 ")
 ;;1355
 ;;21,"54868-3935-00 ")
 ;;1486
 ;;21,"54868-3935-01 ")
 ;;1487
 ;;21,"54868-4108-00 ")
 ;;1307
 ;;21,"54868-4109-00 ")
 ;;1308
 ;;21,"54868-4336-00 ")
 ;;1039
 ;;21,"54868-4338-00 ")
 ;;209
 ;;21,"54868-5121-00 ")
 ;;1506
 ;;21,"55045-1124-00 ")
 ;;802
 ;;21,"55045-1124-01 ")
 ;;803
 ;;21,"55045-1124-02 ")
 ;;804
 ;;21,"55045-1124-03 ")
 ;;805
 ;;21,"55045-1124-04 ")
 ;;806
 ;;21,"55045-1124-05 ")
 ;;807
 ;;21,"55045-1124-06 ")
 ;;808
 ;;21,"55045-1124-07 ")
 ;;809
 ;;21,"55045-1124-08 ")
 ;;810
 ;;21,"55045-1124-09 ")
 ;;811
 ;;21,"55045-1125-00 ")
 ;;544
 ;;21,"55045-1125-01 ")
 ;;545
 ;;21,"55045-1125-02 ")
 ;;546
 ;;21,"55045-1125-03 ")
 ;;547
 ;;21,"55045-1125-04 ")
 ;;548
 ;;21,"55045-1125-05 ")
 ;;549
 ;;21,"55045-1125-06 ")
 ;;550
 ;;21,"55045-1125-08 ")
 ;;551
 ;;21,"55045-1125-09 ")
 ;;552
 ;;21,"55045-1252-02 ")
 ;;414
 ;;21,"55045-1266-08 ")
 ;;153
 ;;21,"55045-1446-05 ")
 ;;1152
 ;;21,"55045-1446-07 ")
 ;;1153
 ;;21,"55045-1446-08 ")
 ;;1154
 ;;21,"55045-1596-00 ")
 ;;1618
 ;;21,"55045-1596-01 ")
 ;;1619
 ;;21,"55045-1596-02 ")
 ;;1620
 ;;21,"55045-1596-03 ")
 ;;1621
 ;;21,"55045-1596-04 ")
 ;;1622
 ;;21,"55045-1596-05 ")
 ;;1623
 ;;21,"55045-1596-06 ")
 ;;1624
 ;;21,"55045-1596-08 ")
 ;;1625
 ;;21,"55045-1596-09 ")
 ;;1626
 ;;21,"55045-1643-09 ")
 ;;1747
 ;;21,"55045-1661-00 ")
 ;;1443
 ;;21,"55045-1661-01 ")
 ;;1444
 ;;21,"55045-1661-02 ")
 ;;1445
 ;;21,"55045-1661-03 ")
 ;;1446
 ;;21,"55045-1661-06 ")
 ;;1447
 ;;21,"55045-1661-08 ")
 ;;1448
 ;;21,"55045-1687-02 ")
 ;;187
 ;;21,"55045-1699-02 ")
 ;;1488
 ;;21,"55045-1805-08 ")
 ;;984
 ;;21,"55045-2195-02 ")
 ;;1356
 ;;21,"55045-2195-04 ")
 ;;1357
 ;;21,"55045-2195-05 ")
 ;;1358
 ;;21,"55045-2195-06 ")
 ;;1359
 ;;21,"55045-2195-07 ")
 ;;1360
 ;;21,"55045-2195-08 ")
 ;;1361
 ;;21,"55045-2195-09 ")
 ;;1362
 ;;21,"55289-0089-20 ")
 ;;238
 ;;21,"55289-0089-30 ")
 ;;239
 ;;21,"55289-0100-01 ")
 ;;812
 ;;21,"55289-0100-10 ")
 ;;813
 ;;21,"55289-0100-15 ")
 ;;814
 ;;21,"55289-0100-20 ")
 ;;815
 ;;21,"55289-0100-30 ")
 ;;816
 ;;21,"55289-0100-40 ")
 ;;817
 ;;21,"55289-0138-01 ")
 ;;1271
 ;;21,"55289-0138-12 ")
 ;;1272
 ;;21,"55289-0138-17 ")
 ;;1273
 ;;21,"55289-0138-20 ")
 ;;1274
 ;;21,"55289-0138-25 ")
 ;;1275
 ;;21,"55289-0138-30 ")
 ;;1276
 ;;21,"55289-0139-01 ")
 ;;1155
 ;;21,"55289-0139-06 ")
 ;;1156
 ;;21,"55289-0139-10 ")
 ;;1157
 ;;21,"55289-0139-12 ")
 ;;1158
 ;;21,"55289-0139-20 ")
 ;;1159
 ;;21,"55289-0139-30 ")
 ;;1160
 ;;21,"55289-0139-40 ")
 ;;1161
 ;;21,"55289-0139-60 ")
 ;;1162