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

BGP2VF3.m

Go to the documentation of this file.
BGP2VF3 ;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,"00406-2001-05 ")
 ;;3779
 ;;21,"00406-2001-90 ")
 ;;3780
 ;;21,"00406-2097-03 ")
 ;;3381
 ;;21,"00406-2097-05 ")
 ;;3382
 ;;21,"00406-2097-90 ")
 ;;3383
 ;;21,"00406-2098-01 ")
 ;;3508
 ;;21,"00406-2098-03 ")
 ;;3509
 ;;21,"00406-2098-05 ")
 ;;3510
 ;;21,"00406-2098-90 ")
 ;;3511
 ;;21,"00406-2099-03 ")
 ;;3696
 ;;21,"00406-2099-05 ")
 ;;3697
 ;;21,"00406-2099-90 ")
 ;;3698
 ;;21,"00406-9906-01 ")
 ;;1380
 ;;21,"00406-9906-03 ")
 ;;1381
 ;;21,"00406-9906-62 ")
 ;;1382
 ;;21,"00406-9907-01 ")
 ;;1391
 ;;21,"00406-9907-03 ")
 ;;1392
 ;;21,"00406-9907-62 ")
 ;;1393
 ;;21,"00406-9908-01 ")
 ;;1402
 ;;21,"00406-9908-03 ")
 ;;1403
 ;;21,"00406-9910-01 ")
 ;;3103
 ;;21,"00406-9910-03 ")
 ;;3104
 ;;21,"00406-9911-01 ")
 ;;3196
 ;;21,"00406-9911-03 ")
 ;;3197
 ;;21,"00406-9912-01 ")
 ;;3303
 ;;21,"00406-9912-03 ")
 ;;3304
 ;;21,"00406-9913-01 ")
 ;;3346
 ;;21,"00406-9913-03 ")
 ;;3347
 ;;21,"00406-9918-16 ")
 ;;3186
 ;;21,"00406-9920-01 ")
 ;;2587
 ;;21,"00406-9920-03 ")
 ;;2588
 ;;21,"00406-9921-01 ")
 ;;2618
 ;;21,"00406-9921-03 ")
 ;;2619
 ;;21,"00406-9922-01 ")
 ;;2665
 ;;21,"00406-9922-03 ")
 ;;2666
 ;;21,"00406-9923-01 ")
 ;;2721
 ;;21,"00406-9923-03 ")
 ;;2722
 ;;21,"00406-9924-01 ")
 ;;2706
 ;;21,"00406-9924-03 ")
 ;;2707
 ;;21,"00406-9925-01 ")
 ;;2711
 ;;21,"00406-9925-03 ")
 ;;2712
 ;;21,"00406-9926-01 ")
 ;;2716
 ;;21,"00406-9926-03 ")
 ;;2717
 ;;21,"00406-9931-03 ")
 ;;2723
 ;;21,"00406-9932-03 ")
 ;;2708
 ;;21,"00406-9933-03 ")
 ;;2713
 ;;21,"00406-9934-03 ")
 ;;2718
 ;;21,"00430-0210-14 ")
 ;;2157
 ;;21,"00430-0215-14 ")
 ;;2178
 ;;21,"00430-0220-14 ")
 ;;2414
 ;;21,"00430-0435-14 ")
 ;;2042
 ;;21,"00430-0436-14 ")
 ;;2216
 ;;21,"00440-7090-30 ")
 ;;8
 ;;21,"00440-7091-30 ")
 ;;211
 ;;21,"00440-7092-30 ")
 ;;366
 ;;21,"00440-7477-30 ")
 ;;1734
 ;;21,"00440-7478-30 ")
 ;;1805
 ;;21,"00440-7521-30 ")
 ;;2217
 ;;21,"00440-8575-20 ")
 ;;4574
 ;;21,"00440-8576-30 ")
 ;;4341
 ;;21,"00456-1110-30 ")
 ;;5181
 ;;21,"00456-1120-30 ")
 ;;5182
 ;;21,"00456-1140-30 ")
 ;;5183
 ;;21,"00456-2005-01 ")
 ;;2001
 ;;21,"00456-2010-01 ")
 ;;1925
 ;;21,"00456-2010-11 ")
 ;;1926
 ;;21,"00456-2010-63 ")
 ;;1927
 ;;21,"00456-2020-01 ")
 ;;1969
 ;;21,"00456-2020-11 ")
 ;;1970
 ;;21,"00456-2020-63 ")
 ;;1971
 ;;21,"00456-2101-08 ")
 ;;2008
 ;;21,"00456-4010-01 ")
 ;;999
 ;;21,"00456-4020-01 ")
 ;;1110
 ;;21,"00456-4020-63 ")
 ;;1111
 ;;21,"00456-4040-01 ")
 ;;1270
 ;;21,"00456-4040-63 ")
 ;;1271
 ;;21,"00456-4130-08 ")
 ;;1079
 ;;21,"00490-0034-00 ")
 ;;4983
 ;;21,"00490-0034-30 ")
 ;;4984
 ;;21,"00490-0034-60 ")
 ;;4985
 ;;21,"00490-0034-90 ")
 ;;4986
 ;;21,"00490-0114-00 ")
 ;;5099
 ;;21,"00490-0114-30 ")
 ;;5100
 ;;21,"00490-0114-60 ")
 ;;5101
 ;;21,"00490-0114-90 ")
 ;;5102
 ;;21,"00490-0163-00 ")
 ;;868
 ;;21,"00490-0163-30 ")
 ;;869
 ;;21,"00490-0163-60 ")
 ;;870
 ;;21,"00490-0163-90 ")
 ;;871
 ;;21,"00555-0201-01 ")
 ;;2158
 ;;21,"00555-0241-71 ")
 ;;2839
 ;;21,"00555-0242-71 ")
 ;;2947
 ;;21,"00555-0489-02 ")
 ;;4575
 ;;21,"00555-0489-04 ")
 ;;4576
 ;;21,"00555-0490-02 ")
 ;;4342
 ;;21,"00555-0490-04 ")
 ;;4343
 ;;21,"00555-0594-02 ")
 ;;3874
 ;;21,"00555-0595-02 ")
 ;;3881
 ;;21,"00555-0732-02 ")
 ;;4472
 ;;21,"00555-0732-04 ")
 ;;4473
 ;;21,"00555-0733-02 ")
 ;;4549
 ;;21,"00555-0871-54 ")
 ;;2515
 ;;21,"00555-0871-88 ")
 ;;2516
 ;;21,"00555-0876-02 ")
 ;;2043
 ;;21,"00555-0877-02 ")
 ;;2218
 ;;21,"00555-0877-04 ")
 ;;2219
 ;;21,"00555-0877-05 ")
 ;;2220
 ;;21,"00555-0877-07 ")
 ;;2221
 ;;21,"00555-0967-02 ")
 ;;2562
 ;;21,"00555-0968-02 ")
 ;;2574
 ;;21,"00555-0969-02 ")
 ;;2544
 ;;21,"00555-7243-71 ")
 ;;3017
 ;;21,"00591-0764-60 ")
 ;;3033
 ;;21,"00591-0767-60 ")
 ;;3084
 ;;21,"00591-0809-01 ")
 ;;1515
 ;;21,"00591-0809-05 ")
 ;;1516
 ;;21,"00591-0839-25 ")
 ;;722
 ;;21,"00591-0839-60 ")
 ;;723
 ;;21,"00591-0858-60 ")
 ;;663
 ;;21,"00591-1117-10 ")
 ;;2762
 ;;21,"00591-1117-30 ")
 ;;2763
 ;;21,"00591-1118-10 ")
 ;;2866
 ;;21,"00591-1118-30 ")
 ;;2867
 ;;21,"00591-1119-30 ")
 ;;2968
 ;;21,"00591-2114-01 ")
 ;;1654
 ;;21,"00591-2230-15 ")
 ;;2840
 ;;21,"00591-2231-15 ")
 ;;2948
 ;;21,"00591-3176-01 ")
 ;;1000
 ;;21,"00591-3176-05 ")
 ;;1001
 ;;21,"00591-3177-01 ")
 ;;1112
 ;;21,"00591-3177-05 ")
 ;;1113
 ;;21,"00591-3178-01 ")
 ;;1272
 ;;21,"00591-3178-05 ")
 ;;1273
 ;;21,"00591-3238-19 ")
 ;;4091
 ;;21,"00591-3238-30 ")
 ;;4092
 ;;21,"00591-3239-10 ")
 ;;4193
 ;;21,"00591-3239-19 ")
 ;;4194
 ;;21,"00591-3239-30 ")
 ;;4195
 ;;21,"00591-3240-10 ")
 ;;3925
 ;;21,"00591-3240-19 ")
 ;;3926
 ;;21,"00591-3240-30 ")
 ;;3927
 ;;21,"00591-3331-05 ")
 ;;809
 ;;21,"00591-3331-19 ")
 ;;810
 ;;21,"00591-3331-30 ")
 ;;811
 ;;21,"00591-3332-05 ")
 ;;872
 ;;21,"00591-3332-30 ")
 ;;873
 ;;21,"00591-3385-60 ")
 ;;856
 ;;21,"00591-3540-60 ")
 ;;664
 ;;21,"00591-3541-25 ")
 ;;724
 ;;21,"00591-3541-60 ")
 ;;725
 ;;21,"00591-3542-60 ")
 ;;857
 ;;21,"00591-3543-60 ")
 ;;726
 ;;21,"00591-3543-76 ")
 ;;727
 ;;21,"00591-5599-01 ")
 ;;4344
 ;;21,"00591-5599-10 ")
 ;;4345
 ;;21,"00591-5600-01 ")
 ;;4577
 ;;21,"00591-5600-10 ")
 ;;4578
 ;;21,"00591-5629-01 ")
 ;;1566
 ;;21,"00591-5630-01 ")
 ;;1655
 ;;21,"00591-5630-10 ")
 ;;1656
 ;;21,"00591-5631-01 ")
 ;;1735
 ;;21,"00591-5631-10 ")
 ;;1736
 ;;21,"00591-5632-01 ")
 ;;1806
 ;;21,"00591-5633-01 ")
 ;;1619
 ;;21,"00591-5713-01 ")
 ;;556
 ;;21,"00591-5714-01 ")
 ;;557
 ;;21,"00591-5715-01 ")
 ;;553
 ;;21,"00591-5716-30 ")
 ;;555
 ;;21,"00591-5786-01 ")
 ;;3105
 ;;21,"00591-5786-05 ")
 ;;3106
 ;;21,"00591-5787-01 ")
 ;;3198
 ;;21,"00591-5787-05 ")
 ;;3199
 ;;21,"00591-5787-10 ")
 ;;3200
 ;;21,"00591-5788-01 ")
 ;;3305
 ;;21,"00591-5788-05 ")
 ;;3306
 ;;21,"00591-5789-01 ")
 ;;3348
 ;;21,"00603-2212-02 ")
 ;;9
 ;;21,"00603-2212-16 ")
 ;;10
 ;;21,"00603-2212-21 ")
 ;;11
 ;;21,"00603-2212-32 ")
 ;;12
 ;;21,"00603-2213-21 ")
 ;;212
 ;;21,"00603-2213-30 ")
 ;;213
 ;;21,"00603-2213-32 ")
 ;;214
 ;;21,"00603-2214-21 ")
 ;;367
 ;;21,"00603-2214-32 ")
 ;;368
 ;;21,"00603-2215-21 ")
 ;;464
 ;;21,"00603-2216-21 ")
 ;;129
 ;;21,"00603-2217-21 ")
 ;;183
 ;;21,"00603-6147-21 ")
 ;;4579
 ;;21,"00603-6147-32 ")
 ;;4580
 ;;21,"00603-6148-21 ")
 ;;4346
 ;;21,"00603-6148-32 ")
 ;;4347
 ;;21,"00603-6149-21 ")
 ;;4987
 ;;21,"00603-6150-16 ")
 ;;5103
 ;;21,"00603-6150-21 ")
 ;;5104
 ;;21,"00603-6150-25 ")
 ;;5105
 ;;21,"00603-6151-21 ")
 ;;4729
 ;;21,"00603-6151-25 ")
 ;;4730
 ;;21,"00603-6156-21 ")
 ;;4827
 ;;21,"00603-6157-21 ")
 ;;4918
 ;;21,"00603-6157-25 ")
 ;;4919
 ;;21,"00603-6160-21 ")
 ;;4581
 ;;21,"00603-6160-28 ")
 ;;4582
 ;;21,"00603-6160-32 ")
 ;;4583
 ;;21,"00603-6161-21 ")
 ;;4348
 ;;21,"00603-6161-28 ")
 ;;4349
 ;;21,"00603-6161-32 ")
 ;;4350
 ;;21,"00615-0395-13 ")
 ;;1567
 ;;21,"00615-0828-63 ")
 ;;13
 ;;21,"00615-0829-63 ")
 ;;215
 ;;21,"00615-0831-13 ")
 ;;465
 ;;21,"00615-1306-63 ")
 ;;3107
 ;;21,"00615-1307-43 ")
 ;;3201
 ;;21,"00615-1307-63 ")
 ;;3202
 ;;21,"00615-2578-63 ")
 ;;4584
 ;;21,"00615-2579-63 ")
 ;;4351
 ;;21,"00615-3526-13 ")
 ;;1544
 ;;21,"00677-1133-01 ")
 ;;4585
 ;;21,"00677-1134-01 ")
 ;;4352
 ;;21,"00677-1766-10 ")
 ;;2044
 ;;21,"00677-1767-10 ")
 ;;2222
 ;;21,"00777-3104-02 ")
 ;;2045
 ;;21,"00777-3105-02 ")
 ;;2223
 ;;21,"00777-3105-07 ")
 ;;2224
 ;;21,"00777-3105-30 ")
 ;;2225
 ;;21,"00777-3105-33 ")
 ;;2226
 ;;21,"00777-3107-30 ")
 ;;2461
 ;;21,"00777-5120-58 ")
 ;;2443
 ;;21,"00781-1053-01 ")
 ;;927
 ;;21,"00781-1053-10 ")
 ;;928
 ;;21,"00781-1064-01 ")
 ;;569
 ;;21,"00781-1064-10 ")
 ;;570
 ;;21,"00781-1486-01 ")
 ;;14
 ;;21,"00781-1486-10 ")
 ;;15
 ;;21,"00781-1487-01 ")
 ;;216
 ;;21,"00781-1487-10 ")
 ;;217
 ;;21,"00781-1488-01 ")
 ;;369
 ;;21,"00781-1488-10 ")
 ;;370
 ;;21,"00781-1489-01 ")
 ;;466
 ;;21,"00781-1490-01 ")
 ;;130
 ;;21,"00781-1491-01 ")
 ;;184
 ;;21,"00781-1529-60 ")
 ;;728
 ;;21,"00781-1762-01 ")
 ;;2589
 ;;21,"00781-1764-01 ")
 ;;2620
 ;;21,"00781-1764-10 ")
 ;;2621
 ;;21,"00781-1764-13 ")
 ;;2622
 ;;21,"00781-1766-01 ")
 ;;2667
 ;;21,"00781-1766-10 ")
 ;;2668
 ;;21,"00781-1766-13 ")
 ;;2669
 ;;21,"00781-1971-01 ")
 ;;1416
 ;;21,"00781-1972-01 ")
 ;;1456
 ;;21,"00781-1973-01 ")
 ;;1517
 ;;21,"00781-1974-01 ")
 ;;1545
 ;;21,"00781-1975-01 ")
 ;;1435
 ;;21,"00781-1976-50 ")
 ;;1443
 ;;21,"00781-2027-01 ")
 ;;1383
 ;;21,"00781-2037-01 ")
 ;;1394
 ;;21,"00781-2047-01 ")
 ;;1404
 ;;21,"00781-2822-01 ")
 ;;2227
 ;;21,"00781-2822-10 ")
 ;;2228
 ;;21,"00781-2823-01 ")
 ;;2046
 ;;21,"00781-2823-10 ")
 ;;2047
 ;;21,"00781-2824-01 ")
 ;;2462
 ;;21,"00781-2824-10 ")
 ;;2463
 ;;21,"00781-2824-31 ")
 ;;2464
 ;;21,"00781-2827-08 ")
 ;;2048
 ;;21,"00781-2828-08 ")
 ;;2229
 ;;21,"00781-5157-01 ")
 ;;1002
 ;;21,"00904-0200-60 ")
 ;;16
 ;;21,"00904-0201-61 ")
 ;;218
 ;;21,"00904-0201-80 ")
 ;;219
 ;;21,"00904-0202-60 ")
 ;;371
 ;;21,"00904-0202-61 ")
 ;;372
 ;;21,"00904-0202-80 ")
 ;;373
 ;;21,"00904-0203-61 ")
 ;;467
 ;;21,"00904-0205-60 ")
 ;;185
 ;;21,"00904-0925-70 ")
 ;;2590
 ;;21,"00904-0925-80 ")
 ;;2591
 ;;21,"00904-0927-70 ")
 ;;2623
 ;;21,"00904-0927-80 ")
 ;;2624
 ;;21,"00904-0929-70 ")
 ;;2670
 ;;21,"00904-0929-80 ")
 ;;2671
 ;;21,"00904-1260-60 ")
 ;;1568
 ;;21,"00904-1260-61 ")
 ;;1569
 ;;21,"00904-1260-80 ")
 ;;1570
 ;;21,"00904-1261-60 ")
 ;;1657
 ;;21,"00904-1261-61 ")
 ;;1658
 ;;21,"00904-1261-80 ")
 ;;1659
 ;;21,"00904-1262-60 ")
 ;;1737
 ;;21,"00904-1262-61 ")
 ;;1738
 ;;21,"00904-1262-80 ")
 ;;1739
 ;;21,"00904-1263-60 ")
 ;;1807
 ;;21,"00904-1263-61 ")
 ;;1808
 ;;21,"00904-1264-60 ")
 ;;1620
 ;;21,"00904-1265-60 ")
 ;;1643
 ;;21,"00904-1570-40 ")
 ;;1457
 ;;21,"00904-1570-60 ")
 ;;1458
 ;;21,"00904-1570-80 ")
 ;;1459
 ;;21,"00904-1571-40 ")
 ;;1518
 ;;21,"00904-1571-60 ")
 ;;1519
 ;;21,"00904-1571-80 ")
 ;;1520
 ;;21,"00904-1572-60 ")
 ;;1546
 ;;21,"00904-1573-60 ")
 ;;1436
 ;;21,"00904-1582-60 ")
 ;;1521
 ;;21,"00904-1582-61 ")
 ;;1522
 ;;21,"00904-1582-80 ")
 ;;1523
 ;;21,"00904-1583-60 ")
 ;;1547
 ;;21,"00904-1700-40 ")
 ;;507
 ;;21,"00904-1700-60 ")
 ;;508
 ;;21,"00904-1701-40 ")
 ;;516
 ;;21,"00904-3392-70 ")
 ;;4474
 ;;21,"00904-3991-61 ")
 ;;4353
 ;;21,"00904-3992-60 ")
 ;;4475
 ;;21,"00904-3992-70 ")
 ;;4476
 ;;21,"00904-5219-40 ")
 ;;4586
 ;;21,"00904-5219-60 ")
 ;;4587
 ;;21,"00904-5219-80 ")
 ;;4588
 ;;21,"00904-5220-40 ")
 ;;4354
 ;;21,"00904-5220-60 ")
 ;;4355
 ;;21,"00904-5676-61 ")
 ;;3384
 ;;21,"00904-5677-61 ")
 ;;3512
 ;;21,"00904-5678-61 ")
 ;;3699
 ;;21,"00904-5679-61 ")
 ;;3781
 ;;21,"00904-5784-61 ")
 ;;2049
 ;;21,"00904-5785-61 ")
 ;;2230
 ;;21,"00904-5866-61 ")
 ;;4093
 ;;21,"00904-5867-61 ")
 ;;4196
 ;;21,"00904-5868-61 ")
 ;;3928
 ;;21,"00904-5913-61 ")
 ;;571
 ;;21,"00904-5914-61 ")
 ;;929
 ;;21,"00904-6084-61 ")
 ;;1003
 ;;21,"00904-6085-61 ")
 ;;1114
 ;;21,"00904-6086-61 ")
 ;;1274
 ;;21,"00904-6087-61 ")
 ;;4094
 ;;21,"00904-6088-61 ")
 ;;4197
 ;;21,"00904-6089-61 ")
 ;;3929
 ;;21,"00904-6093-61 ")
 ;;930
 ;;21,"00904-6109-61 ")
 ;;3385
 ;;21,"00904-6110-61 ")
 ;;3513
 ;;21,"00904-6111-61 ")
 ;;3700
 ;;21,"00904-6112-61 ")
 ;;3782
 ;;21,"00904-6129-61 ")
 ;;572
 ;;21,"00904-6246-61 ")
 ;;4859
 ;;21,"00904-6247-61 ")
 ;;5018
 ;;21,"00904-6248-61 ")
 ;;4749
 ;;21,"00904-7742-60 ")
 ;;3349
 ;;21,"00904-7787-60 ")
 ;;3108
 ;;21,"00904-7788-60 ")
 ;;3203
 ;;21,"00904-7790-60 ")
 ;;3350
 ;;21,"00904-7795-60 ")
 ;;3109
 ;;21,"00904-7798-60 ")
 ;;3351
 ;;21,"00904-7939-60 ")
 ;;3110
 ;;21,"00904-7940-60 ")
 ;;3204
 ;;21,"00904-7941-60 ")
 ;;3307
 ;;21,"00904-7942-60 ")
 ;;3352
 ;;21,"10370-0101-03 ")
 ;;812
 ;;21,"10370-0101-50 ")
 ;;813
 ;;21,"10370-0102-00 ")
 ;;874
 ;;21,"10370-0102-03 ")
 ;;875
 ;;21,"10370-0102-50 ")
 ;;876
 ;;21,"10544-0329-30 ")
 ;;220
 ;;21,"10544-0336-30 ")
 ;;2231
 ;;21,"10544-0346-30 ")
 ;;4589
 ;;21,"10544-0346-60 ")
 ;;4590
 ;;21,"10544-0405-30 ")
 ;;468
 ;;21,"10544-0413-30 ")
 ;;17
 ;;21,"10768-7060-03 ")
 ;;1004
 ;;21,"10768-7191-03 ")
 ;;1115
 ;;21,"10768-7616-03 ")
 ;;1275
 ;;21,"12280-0011-00 ")
 ;;5106
 ;;21,"12280-0011-60 ")
 ;;5107
 ;;21,"12280-0016-15 ")
 ;;3467
 ;;21,"12280-0017-15 ")
 ;;3667
 ;;21,"12280-0018-15 ")
 ;;3762
 ;;21,"12280-0023-15 ")
 ;;877
 ;;21,"12280-0032-00 ")
 ;;1972
 ;;21,"12280-0065-00 ")
 ;;1005
 ;;21,"12280-0074-00 ")
 ;;469
 ;;21,"12280-0163-15 ")
 ;;1846
 ;;21,"12280-0163-30 ")
 ;;1847
 ;;21,"12280-0169-00 ")
 ;;1276
 ;;21,"12280-0169-30 ")
 ;;1277
 ;;21,"12280-0170-60 ")
 ;;1832
 ;;21,"12280-0171-15 ")
 ;;1887
 ;;21,"12280-0171-30 ")
 ;;1888
 ;;21,"12280-0171-60 ")
 ;;1889
 ;;21,"12280-0211-00 ")
 ;;1116
 ;;21,"13107-0003-05 ")
 ;;2868