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

BGP2VF2.m

Go to the documentation of this file.
BGP2VF2 ;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,"00185-0410-05 ")
 ;;660
 ;;21,"00185-0410-60 ")
 ;;661
 ;;21,"00185-0415-01 ")
 ;;711
 ;;21,"00185-0415-05 ")
 ;;712
 ;;21,"00185-0415-52 ")
 ;;713
 ;;21,"00185-0415-60 ")
 ;;714
 ;;21,"00185-1111-60 ")
 ;;855
 ;;21,"00187-3805-10 ")
 ;;504
 ;;21,"00187-3806-10 ")
 ;;513
 ;;21,"00228-2439-10 ")
 ;;4564
 ;;21,"00228-2439-50 ")
 ;;4565
 ;;21,"00228-2441-10 ")
 ;;4335
 ;;21,"00228-2721-03 ")
 ;;4085
 ;;21,"00228-2721-09 ")
 ;;4086
 ;;21,"00228-2721-50 ")
 ;;4087
 ;;21,"00228-2722-03 ")
 ;;4179
 ;;21,"00228-2722-09 ")
 ;;4180
 ;;21,"00228-2722-90 ")
 ;;4181
 ;;21,"00228-2723-03 ")
 ;;3905
 ;;21,"00228-2723-09 ")
 ;;3906
 ;;21,"00228-2723-96 ")
 ;;3907
 ;;21,"00228-2755-11 ")
 ;;988
 ;;21,"00228-2756-11 ")
 ;;1091
 ;;21,"00228-2756-50 ")
 ;;1092
 ;;21,"00228-2757-11 ")
 ;;1252
 ;;21,"00228-2757-50 ")
 ;;1253
 ;;21,"00247-0038-07 ")
 ;;1447
 ;;21,"00247-0038-14 ")
 ;;1448
 ;;21,"00247-0038-15 ")
 ;;1449
 ;;21,"00247-0038-20 ")
 ;;1450
 ;;21,"00247-0038-25 ")
 ;;1451
 ;;21,"00247-0038-30 ")
 ;;1452
 ;;21,"00247-0038-40 ")
 ;;1453
 ;;21,"00247-0038-60 ")
 ;;1454
 ;;21,"00247-0038-90 ")
 ;;1455
 ;;21,"00247-0370-30 ")
 ;;3343
 ;;21,"00247-0371-03 ")
 ;;3908
 ;;21,"00247-0371-06 ")
 ;;3909
 ;;21,"00247-0371-07 ")
 ;;3910
 ;;21,"00247-0371-10 ")
 ;;3911
 ;;21,"00247-0371-14 ")
 ;;3912
 ;;21,"00247-0371-28 ")
 ;;3913
 ;;21,"00247-0371-30 ")
 ;;3914
 ;;21,"00247-0371-45 ")
 ;;3915
 ;;21,"00247-0371-50 ")
 ;;3916
 ;;21,"00247-0371-60 ")
 ;;3917
 ;;21,"00247-0372-00 ")
 ;;2194
 ;;21,"00247-0372-03 ")
 ;;2195
 ;;21,"00247-0372-04 ")
 ;;2196
 ;;21,"00247-0372-07 ")
 ;;2197
 ;;21,"00247-0372-10 ")
 ;;2198
 ;;21,"00247-0372-14 ")
 ;;2199
 ;;21,"00247-0372-15 ")
 ;;2200
 ;;21,"00247-0372-28 ")
 ;;2201
 ;;21,"00247-0372-30 ")
 ;;2202
 ;;21,"00247-0372-52 ")
 ;;2203
 ;;21,"00247-0372-60 ")
 ;;2204
 ;;21,"00247-0614-20 ")
 ;;1
 ;;21,"00247-0614-30 ")
 ;;2
 ;;21,"00247-0614-50 ")
 ;;3
 ;;21,"00247-0614-60 ")
 ;;4
 ;;21,"00247-0614-90 ")
 ;;5
 ;;21,"00247-0615-00 ")
 ;;198
 ;;21,"00247-0615-04 ")
 ;;199
 ;;21,"00247-0615-07 ")
 ;;200
 ;;21,"00247-0615-10 ")
 ;;201
 ;;21,"00247-0615-12 ")
 ;;202
 ;;21,"00247-0615-15 ")
 ;;203
 ;;21,"00247-0615-30 ")
 ;;204
 ;;21,"00247-0615-50 ")
 ;;205
 ;;21,"00247-0615-52 ")
 ;;206
 ;;21,"00247-0615-60 ")
 ;;207
 ;;21,"00247-0615-90 ")
 ;;208
 ;;21,"00247-0616-10 ")
 ;;3098
 ;;21,"00247-0616-15 ")
 ;;3099
 ;;21,"00247-0616-30 ")
 ;;3100
 ;;21,"00247-0644-00 ")
 ;;2022
 ;;21,"00247-0644-03 ")
 ;;2023
 ;;21,"00247-0644-07 ")
 ;;2024
 ;;21,"00247-0644-10 ")
 ;;2025
 ;;21,"00247-0644-14 ")
 ;;2026
 ;;21,"00247-0644-28 ")
 ;;2027
 ;;21,"00247-0644-30 ")
 ;;2028
 ;;21,"00247-0644-60 ")
 ;;2029
 ;;21,"00247-0673-00 ")
 ;;4566
 ;;21,"00247-0673-07 ")
 ;;4567
 ;;21,"00247-0673-10 ")
 ;;4568
 ;;21,"00247-0673-14 ")
 ;;4569
 ;;21,"00247-0673-30 ")
 ;;4570
 ;;21,"00247-0673-60 ")
 ;;4571
 ;;21,"00247-0673-90 ")
 ;;4572
 ;;21,"00247-0675-03 ")
 ;;4182
 ;;21,"00247-0675-07 ")
 ;;4183
 ;;21,"00247-0675-08 ")
 ;;4184
 ;;21,"00247-0675-14 ")
 ;;4185
 ;;21,"00247-0675-30 ")
 ;;4186
 ;;21,"00247-0675-33 ")
 ;;4187
 ;;21,"00247-0675-90 ")
 ;;4188
 ;;21,"00247-0677-07 ")
 ;;563
 ;;21,"00247-0773-00 ")
 ;;1614
 ;;21,"00247-0773-30 ")
 ;;1615
 ;;21,"00247-0773-90 ")
 ;;1616
 ;;21,"00247-0787-07 ")
 ;;3494
 ;;21,"00247-0787-10 ")
 ;;3495
 ;;21,"00247-0787-14 ")
 ;;3496
 ;;21,"00247-0787-15 ")
 ;;3497
 ;;21,"00247-0787-28 ")
 ;;3498
 ;;21,"00247-0787-30 ")
 ;;3499
 ;;21,"00247-0787-50 ")
 ;;3500
 ;;21,"00247-0787-60 ")
 ;;3501
 ;;21,"00247-0789-07 ")
 ;;2662
 ;;21,"00247-0789-14 ")
 ;;2663
 ;;21,"00247-0789-30 ")
 ;;2664
 ;;21,"00247-0808-07 ")
 ;;2729
 ;;21,"00247-0808-14 ")
 ;;2730
 ;;21,"00247-0808-30 ")
 ;;2731
 ;;21,"00247-0809-07 ")
 ;;2733
 ;;21,"00247-0809-14 ")
 ;;2734
 ;;21,"00247-0809-30 ")
 ;;2735
 ;;21,"00247-0810-07 ")
 ;;2737
 ;;21,"00247-0810-14 ")
 ;;2738
 ;;21,"00247-0810-30 ")
 ;;2739
 ;;21,"00247-0815-00 ")
 ;;1513
 ;;21,"00247-0815-30 ")
 ;;1514
 ;;21,"00247-0853-04 ")
 ;;4911
 ;;21,"00247-0853-06 ")
 ;;4912
 ;;21,"00247-0853-08 ")
 ;;4913
 ;;21,"00247-0853-30 ")
 ;;4914
 ;;21,"00247-0853-60 ")
 ;;4915
 ;;21,"00247-0853-90 ")
 ;;4916
 ;;21,"00247-1035-30 ")
 ;;5093
 ;;21,"00247-1035-60 ")
 ;;5094
 ;;21,"00247-1035-90 ")
 ;;5095
 ;;21,"00247-1041-03 ")
 ;;4466
 ;;21,"00247-1041-07 ")
 ;;4467
 ;;21,"00247-1041-30 ")
 ;;4468
 ;;21,"00247-1042-30 ")
 ;;4548
 ;;21,"00247-1056-60 ")
 ;;3101
 ;;21,"00247-1057-15 ")
 ;;3190
 ;;21,"00247-1057-60 ")
 ;;3191
 ;;21,"00247-1058-60 ")
 ;;3344
 ;;21,"00247-1075-10 ")
 ;;3192
 ;;21,"00247-1075-30 ")
 ;;3193
 ;;21,"00247-1075-60 ")
 ;;3194
 ;;21,"00247-1177-07 ")
 ;;1730
 ;;21,"00247-1177-30 ")
 ;;1731
 ;;21,"00247-1201-00 ")
 ;;362
 ;;21,"00247-1201-30 ")
 ;;363
 ;;21,"00247-1214-03 ")
 ;;3689
 ;;21,"00247-1214-07 ")
 ;;3690
 ;;21,"00247-1214-30 ")
 ;;3691
 ;;21,"00247-1232-30 ")
 ;;1651
 ;;21,"00247-1233-30 ")
 ;;1802
 ;;21,"00247-1242-30 ")
 ;;461
 ;;21,"00247-1243-30 ")
 ;;126
 ;;21,"00247-1521-30 ")
 ;;4980
 ;;21,"00247-1521-60 ")
 ;;4981
 ;;21,"00247-1522-30 ")
 ;;4824
 ;;21,"00247-1522-60 ")
 ;;4825
 ;;21,"00247-1523-30 ")
 ;;4726
 ;;21,"00247-1523-60 ")
 ;;4727
 ;;21,"00247-1677-10 ")
 ;;715
 ;;21,"00247-1677-60 ")
 ;;716
 ;;21,"00247-1679-10 ")
 ;;3300
 ;;21,"00247-1679-60 ")
 ;;3301
 ;;21,"00247-1680-10 ")
 ;;2617
 ;;21,"00247-1731-30 ")
 ;;1561
 ;;21,"00247-1731-60 ")
 ;;1562
 ;;21,"00247-1731-90 ")
 ;;1563
 ;;21,"00247-1813-04 ")
 ;;4336
 ;;21,"00247-1813-08 ")
 ;;4337
 ;;21,"00247-1813-30 ")
 ;;4338
 ;;21,"00247-1814-08 ")
 ;;3375
 ;;21,"00247-1814-14 ")
 ;;3376
 ;;21,"00247-1814-30 ")
 ;;3377
 ;;21,"00247-1843-03 ")
 ;;2753
 ;;21,"00247-1843-07 ")
 ;;2754
 ;;21,"00247-1843-08 ")
 ;;2755
 ;;21,"00247-1843-14 ")
 ;;2756
 ;;21,"00247-1845-07 ")
 ;;4469
 ;;21,"00247-1850-04 ")
 ;;4856
 ;;21,"00247-1850-08 ")
 ;;4857
 ;;21,"00247-1850-30 ")
 ;;4858
 ;;21,"00247-1893-00 ")
 ;;1093
 ;;21,"00247-1893-07 ")
 ;;1094
 ;;21,"00247-1893-30 ")
 ;;1095
 ;;21,"00247-1893-60 ")
 ;;1096
 ;;21,"00247-1893-77 ")
 ;;1097
 ;;21,"00247-1893-90 ")
 ;;1098
 ;;21,"00247-1894-07 ")
 ;;1254
 ;;21,"00247-1894-30 ")
 ;;1255
 ;;21,"00247-1894-60 ")
 ;;1256
 ;;21,"00247-1894-77 ")
 ;;1257
 ;;21,"00247-1894-90 ")
 ;;1258
 ;;21,"00247-1915-03 ")
 ;;2205
 ;;21,"00247-1915-07 ")
 ;;2206
 ;;21,"00247-1915-30 ")
 ;;2207
 ;;21,"00247-1915-90 ")
 ;;2208
 ;;21,"00247-1918-15 ")
 ;;2860
 ;;21,"00247-1918-30 ")
 ;;2861
 ;;21,"00247-1961-00 ")
 ;;564
 ;;21,"00247-1961-14 ")
 ;;565
 ;;21,"00247-1961-30 ")
 ;;566
 ;;21,"00247-1961-60 ")
 ;;567
 ;;21,"00247-1964-30 ")
 ;;2458
 ;;21,"00247-1964-90 ")
 ;;2459
 ;;21,"00247-1965-00 ")
 ;;2030
 ;;21,"00247-1965-03 ")
 ;;2031
 ;;21,"00247-1965-14 ")
 ;;2032
 ;;21,"00247-1965-30 ")
 ;;2033
 ;;21,"00247-1965-60 ")
 ;;2034
 ;;21,"00247-1965-90 ")
 ;;2035
 ;;21,"00247-1965-99 ")
 ;;2036
 ;;21,"00247-2052-00 ")
 ;;3502
 ;;21,"00247-2052-07 ")
 ;;3503
 ;;21,"00247-2052-30 ")
 ;;3504
 ;;21,"00247-2052-90 ")
 ;;3505
 ;;21,"00247-2077-30 ")
 ;;717
 ;;21,"00247-2077-60 ")
 ;;718
 ;;21,"00247-2083-30 ")
 ;;2757
 ;;21,"00247-2083-60 ")
 ;;2758
 ;;21,"00247-2083-90 ")
 ;;2759
 ;;21,"00247-2084-30 ")
 ;;2862
 ;;21,"00247-2084-60 ")
 ;;2863
 ;;21,"00247-2085-30 ")
 ;;3378
 ;;21,"00247-2094-30 ")
 ;;3692
 ;;21,"00247-2094-90 ")
 ;;3693
 ;;21,"00247-2117-30 ")
 ;;1924
 ;;21,"00247-2132-00 ")
 ;;989
 ;;21,"00247-2132-07 ")
 ;;990
 ;;21,"00247-2132-30 ")
 ;;991
 ;;21,"00247-2132-60 ")
 ;;992
 ;;21,"00247-2132-90 ")
 ;;993
 ;;21,"00247-2133-00 ")
 ;;1099
 ;;21,"00247-2133-07 ")
 ;;1100
 ;;21,"00247-2133-30 ")
 ;;1101
 ;;21,"00247-2133-60 ")
 ;;1102
 ;;21,"00247-2133-90 ")
 ;;1103
 ;;21,"00247-2134-00 ")
 ;;1259
 ;;21,"00247-2134-07 ")
 ;;1260
 ;;21,"00247-2134-30 ")
 ;;1261
 ;;21,"00247-2134-60 ")
 ;;1262
 ;;21,"00247-2134-90 ")
 ;;1263
 ;;21,"00247-2262-30 ")
 ;;1968
 ;;21,"00247-2265-30 ")
 ;;3773
 ;;21,"00247-2265-60 ")
 ;;3774
 ;;21,"00247-2265-90 ")
 ;;3775
 ;;21,"00247-2271-30 ")
 ;;4189
 ;;21,"00247-2272-00 ")
 ;;3918
 ;;21,"00247-2272-30 ")
 ;;3919
 ;;21,"00247-2272-60 ")
 ;;3920
 ;;21,"00247-2272-90 ")
 ;;3921
 ;;21,"00247-2299-00 ")
 ;;5096
 ;;21,"00247-2299-90 ")
 ;;5097
 ;;21,"00247-2314-00 ")
 ;;1411
 ;;21,"00247-2314-30 ")
 ;;1412
 ;;21,"00247-2314-60 ")
 ;;1413
 ;;21,"00247-2314-77 ")
 ;;1414
 ;;21,"00247-2314-90 ")
 ;;1415
 ;;21,"00247-2337-30 ")
 ;;5015
 ;;21,"00247-2337-60 ")
 ;;5016
 ;;21,"00247-2337-90 ")
 ;;5017
 ;;21,"00247-2356-00 ")
 ;;866
 ;;21,"00247-2356-30 ")
 ;;867
 ;;21,"00258-3695-01 ")
 ;;994
 ;;21,"00258-3695-05 ")
 ;;995
 ;;21,"00258-3696-01 ")
 ;;1104
 ;;21,"00258-3696-10 ")
 ;;1105
 ;;21,"00258-3697-01 ")
 ;;1264
 ;;21,"00258-3697-10 ")
 ;;1265
 ;;21,"00378-0042-01 ")
 ;;532
 ;;21,"00378-0060-01 ")
 ;;2732
 ;;21,"00378-0073-01 ")
 ;;552
 ;;21,"00378-0087-01 ")
 ;;2736
 ;;21,"00378-0092-01 ")
 ;;2740
 ;;21,"00378-0211-01 ")
 ;;505
 ;;21,"00378-0211-05 ")
 ;;506
 ;;21,"00378-0277-01 ")
 ;;514
 ;;21,"00378-0277-05 ")
 ;;515
 ;;21,"00378-0330-01 ")
 ;;520
 ;;21,"00378-0330-05 ")
 ;;521
 ;;21,"00378-0407-01 ")
 ;;2561
 ;;21,"00378-0412-01 ")
 ;;2573
 ;;21,"00378-0414-01 ")
 ;;2543
 ;;21,"00378-0433-01 ")
 ;;926
 ;;21,"00378-0435-01 ")
 ;;568
 ;;21,"00378-0442-01 ")
 ;;533
 ;;21,"00378-0442-05 ")
 ;;534
 ;;21,"00378-0574-01 ")
 ;;550
 ;;21,"00378-0574-05 ")
 ;;551
 ;;21,"00378-1049-01 ")
 ;;1564
 ;;21,"00378-1049-10 ")
 ;;1565
 ;;21,"00378-1410-01 ")
 ;;3102
 ;;21,"00378-1921-01 ")
 ;;996
 ;;21,"00378-1922-01 ")
 ;;1106
 ;;21,"00378-1922-05 ")
 ;;1107
 ;;21,"00378-1924-01 ")
 ;;1266
 ;;21,"00378-1924-05 ")
 ;;1267
 ;;21,"00378-2003-05 ")
 ;;3465
 ;;21,"00378-2003-93 ")
 ;;3466
 ;;21,"00378-2004-05 ")
 ;;3665
 ;;21,"00378-2004-93 ")
 ;;3666
 ;;21,"00378-2005-93 ")
 ;;3760
 ;;21,"00378-2006-93 ")
 ;;3761
 ;;21,"00378-2325-01 ")
 ;;3195
 ;;21,"00378-2610-01 ")
 ;;6
 ;;21,"00378-2610-10 ")
 ;;7
 ;;21,"00378-2625-01 ")
 ;;209
 ;;21,"00378-2625-10 ")
 ;;210
 ;;21,"00378-2650-01 ")
 ;;364
 ;;21,"00378-2650-10 ")
 ;;365
 ;;21,"00378-2675-01 ")
 ;;462
 ;;21,"00378-2675-93 ")
 ;;463
 ;;21,"00378-2685-01 ")
 ;;127
 ;;21,"00378-2685-93 ")
 ;;128
 ;;21,"00378-2695-01 ")
 ;;181
 ;;21,"00378-2695-93 ")
 ;;182
 ;;21,"00378-3025-01 ")
 ;;1379
 ;;21,"00378-3050-01 ")
 ;;1390
 ;;21,"00378-3075-01 ")
 ;;1401
 ;;21,"00378-3125-01 ")
 ;;1652
 ;;21,"00378-3125-10 ")
 ;;1653
 ;;21,"00378-3250-01 ")
 ;;3302
 ;;21,"00378-3411-01 ")
 ;;662
 ;;21,"00378-3412-01 ")
 ;;719
 ;;21,"00378-3412-05 ")
 ;;720
 ;;21,"00378-3471-01 ")
 ;;4573
 ;;21,"00378-3472-01 ")
 ;;4339
 ;;21,"00378-3472-10 ")
 ;;4340
 ;;21,"00378-3473-01 ")
 ;;4470
 ;;21,"00378-3473-10 ")
 ;;4471
 ;;21,"00378-3515-10 ")
 ;;2760
 ;;21,"00378-3515-93 ")
 ;;2761
 ;;21,"00378-3530-05 ")
 ;;2864
 ;;21,"00378-3530-93 ")
 ;;2865
 ;;21,"00378-3545-05 ")
 ;;2966
 ;;21,"00378-3545-93 ")
 ;;2967
 ;;21,"00378-4175-01 ")
 ;;3345
 ;;21,"00378-4186-01 ")
 ;;4088
 ;;21,"00378-4186-05 ")
 ;;4089
 ;;21,"00378-4186-93 ")
 ;;4090
 ;;21,"00378-4187-01 ")
 ;;4190
 ;;21,"00378-4187-05 ")
 ;;4191
 ;;21,"00378-4187-93 ")
 ;;4192
 ;;21,"00378-4188-01 ")
 ;;3922
 ;;21,"00378-4188-05 ")
 ;;3923
 ;;21,"00378-4188-93 ")
 ;;3924
 ;;21,"00378-4210-01 ")
 ;;2037
 ;;21,"00378-4220-01 ")
 ;;2209
 ;;21,"00378-4250-01 ")
 ;;1732
 ;;21,"00378-4250-10 ")
 ;;1733
 ;;21,"00378-4350-93 ")
 ;;2460
 ;;21,"00378-4881-01 ")
 ;;4826
 ;;21,"00378-4882-01 ")
 ;;4917
 ;;21,"00378-4883-01 ")
 ;;4982
 ;;21,"00378-4884-01 ")
 ;;5098
 ;;21,"00378-4885-01 ")
 ;;4728
 ;;21,"00378-5375-01 ")
 ;;1803
 ;;21,"00378-5375-10 ")
 ;;1804
 ;;21,"00378-5410-28 ")
 ;;2038
 ;;21,"00378-5420-28 ")
 ;;2210
 ;;21,"00378-5521-01 ")
 ;;721
 ;;21,"00378-6231-01 ")
 ;;997
 ;;21,"00378-6231-05 ")
 ;;998
 ;;21,"00378-6232-01 ")
 ;;1108
 ;;21,"00378-6232-05 ")
 ;;1109
 ;;21,"00378-6233-01 ")
 ;;1268
 ;;21,"00378-6233-05 ")
 ;;1269
 ;;21,"00378-6410-01 ")
 ;;1617
 ;;21,"00378-6410-10 ")
 ;;1618
 ;;21,"00378-7001-10 ")
 ;;3379
 ;;21,"00378-7001-93 ")
 ;;3380
 ;;21,"00378-7002-10 ")
 ;;3506
 ;;21,"00378-7002-93 ")
 ;;3507
 ;;21,"00378-7003-10 ")
 ;;3694
 ;;21,"00378-7003-93 ")
 ;;3695
 ;;21,"00378-7004-10 ")
 ;;3776
 ;;21,"00378-7004-93 ")
 ;;3777
 ;;21,"00406-0661-01 ")
 ;;2039
 ;;21,"00406-0661-05 ")
 ;;2040
 ;;21,"00406-0661-91 ")
 ;;2041
 ;;21,"00406-0663-01 ")
 ;;2211
 ;;21,"00406-0663-03 ")
 ;;2212
 ;;21,"00406-0663-05 ")
 ;;2213
 ;;21,"00406-0663-62 ")
 ;;2214
 ;;21,"00406-0663-91 ")
 ;;2215
 ;;21,"00406-0667-01 ")
 ;;2442
 ;;21,"00406-2001-03 ")
 ;;3778