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

BGP2VF12.m

Go to the documentation of this file.
BGP2VF12 ;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,"63739-0189-10 ")
 ;;3167
 ;;21,"63739-0189-15 ")
 ;;3168
 ;;21,"63739-0190-10 ")
 ;;3275
 ;;21,"63739-0190-15 ")
 ;;3276
 ;;21,"63739-0245-01 ")
 ;;4685
 ;;21,"63739-0245-03 ")
 ;;4686
 ;;21,"63739-0245-10 ")
 ;;4687
 ;;21,"63739-0245-15 ")
 ;;4688
 ;;21,"63739-0246-01 ")
 ;;4437
 ;;21,"63739-0246-03 ")
 ;;4438
 ;;21,"63739-0246-10 ")
 ;;4439
 ;;21,"63739-0246-15 ")
 ;;4440
 ;;21,"63739-0295-10 ")
 ;;2129
 ;;21,"63739-0295-15 ")
 ;;2130
 ;;21,"63739-0296-10 ")
 ;;2375
 ;;21,"63739-0296-15 ")
 ;;2376
 ;;21,"63739-0317-10 ")
 ;;971
 ;;21,"63739-0317-15 ")
 ;;972
 ;;21,"63739-0318-10 ")
 ;;629
 ;;21,"63739-0318-15 ")
 ;;630
 ;;21,"63739-0355-04 ")
 ;;2814
 ;;21,"63739-0355-10 ")
 ;;2815
 ;;21,"63739-0355-15 ")
 ;;2816
 ;;21,"63739-0356-10 ")
 ;;2916
 ;;21,"63739-0356-15 ")
 ;;2917
 ;;21,"63739-0407-10 ")
 ;;3438
 ;;21,"63739-0408-10 ")
 ;;3833
 ;;21,"63739-0449-10 ")
 ;;843
 ;;21,"63739-0450-10 ")
 ;;912
 ;;21,"63874-0296-01 ")
 ;;495
 ;;21,"63874-0296-04 ")
 ;;496
 ;;21,"63874-0296-15 ")
 ;;497
 ;;21,"63874-0296-20 ")
 ;;498
 ;;21,"63874-0296-30 ")
 ;;499
 ;;21,"63874-0296-40 ")
 ;;500
 ;;21,"63874-0296-60 ")
 ;;501
 ;;21,"63874-0296-90 ")
 ;;502
 ;;21,"63874-0311-01 ")
 ;;95
 ;;21,"63874-0311-02 ")
 ;;96
 ;;21,"63874-0311-04 ")
 ;;97
 ;;21,"63874-0311-10 ")
 ;;98
 ;;21,"63874-0311-12 ")
 ;;99
 ;;21,"63874-0311-15 ")
 ;;100
 ;;21,"63874-0311-20 ")
 ;;101
 ;;21,"63874-0311-24 ")
 ;;102
 ;;21,"63874-0311-30 ")
 ;;103
 ;;21,"63874-0311-40 ")
 ;;104
 ;;21,"63874-0311-50 ")
 ;;105
 ;;21,"63874-0311-60 ")
 ;;106
 ;;21,"63874-0311-72 ")
 ;;107
 ;;21,"63874-0311-74 ")
 ;;108
 ;;21,"63874-0311-77 ")
 ;;109
 ;;21,"63874-0311-82 ")
 ;;110
 ;;21,"63874-0311-90 ")
 ;;111
 ;;21,"63874-0359-01 ")
 ;;440
 ;;21,"63874-0359-02 ")
 ;;441
 ;;21,"63874-0359-14 ")
 ;;442
 ;;21,"63874-0359-15 ")
 ;;443
 ;;21,"63874-0359-20 ")
 ;;444
 ;;21,"63874-0359-28 ")
 ;;445
 ;;21,"63874-0359-30 ")
 ;;446
 ;;21,"63874-0359-40 ")
 ;;447
 ;;21,"63874-0359-50 ")
 ;;448
 ;;21,"63874-0359-60 ")
 ;;449
 ;;21,"63874-0359-90 ")
 ;;450
 ;;21,"63874-0430-01 ")
 ;;328
 ;;21,"63874-0430-02 ")
 ;;329
 ;;21,"63874-0430-04 ")
 ;;330
 ;;21,"63874-0430-14 ")
 ;;331
 ;;21,"63874-0430-15 ")
 ;;332
 ;;21,"63874-0430-20 ")
 ;;333
 ;;21,"63874-0430-25 ")
 ;;334
 ;;21,"63874-0430-28 ")
 ;;335
 ;;21,"63874-0430-30 ")
 ;;336
 ;;21,"63874-0430-40 ")
 ;;337
 ;;21,"63874-0430-50 ")
 ;;338
 ;;21,"63874-0430-60 ")
 ;;339
 ;;21,"63874-0430-90 ")
 ;;340
 ;;21,"63874-0537-01 ")
 ;;4441
 ;;21,"63874-0537-04 ")
 ;;4442
 ;;21,"63874-0537-10 ")
 ;;4443
 ;;21,"63874-0537-12 ")
 ;;4444
 ;;21,"63874-0537-14 ")
 ;;4445
 ;;21,"63874-0537-15 ")
 ;;4446
 ;;21,"63874-0537-20 ")
 ;;4447
 ;;21,"63874-0537-30 ")
 ;;4448
 ;;21,"63874-0537-40 ")
 ;;4449
 ;;21,"63874-0537-60 ")
 ;;4450
 ;;21,"63874-0537-90 ")
 ;;4451
 ;;21,"63874-0538-01 ")
 ;;3630
 ;;21,"63874-0538-10 ")
 ;;3631
 ;;21,"63874-0538-14 ")
 ;;3632
 ;;21,"63874-0538-15 ")
 ;;3633
 ;;21,"63874-0538-20 ")
 ;;3634
 ;;21,"63874-0538-30 ")
 ;;3635
 ;;21,"63874-0538-60 ")
 ;;3636
 ;;21,"63874-0540-20 ")
 ;;3060
 ;;21,"63874-0540-30 ")
 ;;3061
 ;;21,"63874-0540-60 ")
 ;;3062
 ;;21,"63874-0542-14 ")
 ;;3045
 ;;21,"63874-0542-20 ")
 ;;3046
 ;;21,"63874-0542-30 ")
 ;;3047
 ;;21,"63874-0542-60 ")
 ;;3048
 ;;21,"63874-0555-01 ")
 ;;4302
 ;;21,"63874-0555-10 ")
 ;;4303
 ;;21,"63874-0555-14 ")
 ;;4304
 ;;21,"63874-0555-15 ")
 ;;4305
 ;;21,"63874-0555-20 ")
 ;;4306
 ;;21,"63874-0555-30 ")
 ;;4307
 ;;21,"63874-0555-60 ")
 ;;4308
 ;;21,"63874-0560-01 ")
 ;;4689
 ;;21,"63874-0560-04 ")
 ;;4690
 ;;21,"63874-0560-10 ")
 ;;4691
 ;;21,"63874-0560-12 ")
 ;;4692
 ;;21,"63874-0560-14 ")
 ;;4693
 ;;21,"63874-0560-15 ")
 ;;4694
 ;;21,"63874-0560-20 ")
 ;;4695
 ;;21,"63874-0560-28 ")
 ;;4696
 ;;21,"63874-0560-30 ")
 ;;4697
 ;;21,"63874-0560-40 ")
 ;;4698
 ;;21,"63874-0560-60 ")
 ;;4699
 ;;21,"63874-0560-90 ")
 ;;4700
 ;;21,"63874-0567-30 ")
 ;;973
 ;;21,"63874-0567-60 ")
 ;;974
 ;;21,"63874-0573-01 ")
 ;;2377
 ;;21,"63874-0573-04 ")
 ;;2378
 ;;21,"63874-0573-10 ")
 ;;2379
 ;;21,"63874-0573-14 ")
 ;;2380
 ;;21,"63874-0573-15 ")
 ;;2381
 ;;21,"63874-0573-20 ")
 ;;2382
 ;;21,"63874-0573-21 ")
 ;;2383
 ;;21,"63874-0573-28 ")
 ;;2384
 ;;21,"63874-0573-30 ")
 ;;2385
 ;;21,"63874-0573-60 ")
 ;;2386
 ;;21,"63874-0573-72 ")
 ;;2387
 ;;21,"63874-0573-74 ")
 ;;2388
 ;;21,"63874-0573-77 ")
 ;;2389
 ;;21,"63874-0573-90 ")
 ;;2390
 ;;21,"63874-0574-01 ")
 ;;2131
 ;;21,"63874-0574-04 ")
 ;;2132
 ;;21,"63874-0574-10 ")
 ;;2133
 ;;21,"63874-0574-14 ")
 ;;2134
 ;;21,"63874-0574-20 ")
 ;;2135
 ;;21,"63874-0574-21 ")
 ;;2136
 ;;21,"63874-0574-28 ")
 ;;2137
 ;;21,"63874-0574-30 ")
 ;;2138
 ;;21,"63874-0574-60 ")
 ;;2139
 ;;21,"63874-0574-72 ")
 ;;2140
 ;;21,"63874-0574-74 ")
 ;;2141
 ;;21,"63874-0574-77 ")
 ;;2142
 ;;21,"63874-0574-90 ")
 ;;2143
 ;;21,"63874-0579-01 ")
 ;;1708
 ;;21,"63874-0579-04 ")
 ;;1709
 ;;21,"63874-0579-10 ")
 ;;1710
 ;;21,"63874-0579-12 ")
 ;;1711
 ;;21,"63874-0579-14 ")
 ;;1712
 ;;21,"63874-0579-15 ")
 ;;1713
 ;;21,"63874-0579-20 ")
 ;;1714
 ;;21,"63874-0579-28 ")
 ;;1715
 ;;21,"63874-0579-30 ")
 ;;1716
 ;;21,"63874-0579-32 ")
 ;;1717
 ;;21,"63874-0579-40 ")
 ;;1718
 ;;21,"63874-0579-50 ")
 ;;1719
 ;;21,"63874-0579-60 ")
 ;;1720
 ;;21,"63874-0579-90 ")
 ;;1721
 ;;21,"63874-0580-01 ")
 ;;3277
 ;;21,"63874-0580-14 ")
 ;;3278
 ;;21,"63874-0580-15 ")
 ;;3279
 ;;21,"63874-0580-20 ")
 ;;3280
 ;;21,"63874-0580-30 ")
 ;;3281
 ;;21,"63874-0580-60 ")
 ;;3282
 ;;21,"63874-0580-90 ")
 ;;3283
 ;;21,"63874-0596-01 ")
 ;;4039
 ;;21,"63874-0596-10 ")
 ;;4040
 ;;21,"63874-0596-14 ")
 ;;4041
 ;;21,"63874-0596-15 ")
 ;;4042
 ;;21,"63874-0596-20 ")
 ;;4043
 ;;21,"63874-0596-30 ")
 ;;4044
 ;;21,"63874-0596-60 ")
 ;;4045
 ;;21,"63874-0599-01 ")
 ;;5156
 ;;21,"63874-0599-10 ")
 ;;5157
 ;;21,"63874-0599-14 ")
 ;;5158
 ;;21,"63874-0599-15 ")
 ;;5159
 ;;21,"63874-0599-20 ")
 ;;5160
 ;;21,"63874-0599-21 ")
 ;;5161
 ;;21,"63874-0599-28 ")
 ;;5162
 ;;21,"63874-0599-30 ")
 ;;5163
 ;;21,"63874-0599-40 ")
 ;;5164
 ;;21,"63874-0599-50 ")
 ;;5165
 ;;21,"63874-0599-60 ")
 ;;5166
 ;;21,"63874-0599-90 ")
 ;;5167
 ;;21,"63874-0609-01 ")
 ;;1213
 ;;21,"63874-0609-10 ")
 ;;1214
 ;;21,"63874-0609-20 ")
 ;;1215
 ;;21,"63874-0609-30 ")
 ;;1216
 ;;21,"63874-0609-60 ")
 ;;1217
 ;;21,"63874-0609-90 ")
 ;;1218
 ;;21,"63874-0616-01 ")
 ;;631
 ;;21,"63874-0616-04 ")
 ;;632
 ;;21,"63874-0616-10 ")
 ;;633
 ;;21,"63874-0616-12 ")
 ;;634
 ;;21,"63874-0616-15 ")
 ;;635
 ;;21,"63874-0616-20 ")
 ;;636
 ;;21,"63874-0616-25 ")
 ;;637
 ;;21,"63874-0616-28 ")
 ;;638
 ;;21,"63874-0616-30 ")
 ;;639
 ;;21,"63874-0616-40 ")
 ;;640
 ;;21,"63874-0616-50 ")
 ;;641
 ;;21,"63874-0616-60 ")
 ;;642
 ;;21,"63874-0616-70 ")
 ;;643
 ;;21,"63874-0616-72 ")
 ;;644
 ;;21,"63874-0616-74 ")
 ;;645
 ;;21,"63874-0616-77 ")
 ;;646
 ;;21,"63874-0616-80 ")
 ;;647
 ;;21,"63874-0616-90 ")
 ;;648
 ;;21,"63874-0638-01 ")
 ;;1783
 ;;21,"63874-0638-04 ")
 ;;1784
 ;;21,"63874-0638-10 ")
 ;;1785
 ;;21,"63874-0638-14 ")
 ;;1786
 ;;21,"63874-0638-15 ")
 ;;1787
 ;;21,"63874-0638-20 ")
 ;;1788
 ;;21,"63874-0638-21 ")
 ;;1789
 ;;21,"63874-0638-28 ")
 ;;1790
 ;;21,"63874-0638-30 ")
 ;;1791
 ;;21,"63874-0638-40 ")
 ;;1792
 ;;21,"63874-0638-50 ")
 ;;1793
 ;;21,"63874-0638-60 ")
 ;;1794
 ;;21,"63874-0638-90 ")
 ;;1795
 ;;21,"63874-0670-10 ")
 ;;3834
 ;;21,"63874-0670-15 ")
 ;;3835
 ;;21,"63874-0670-20 ")
 ;;3836
 ;;21,"63874-0670-30 ")
 ;;3837
 ;;21,"63874-0766-30 ")
 ;;1540
 ;;21,"63874-0766-60 ")
 ;;1541
 ;;21,"63874-0767-10 ")
 ;;3439
 ;;21,"63874-0767-14 ")
 ;;3440
 ;;21,"63874-0767-30 ")
 ;;3441
 ;;21,"63874-0775-01 ")
 ;;4535
 ;;21,"63874-0775-12 ")
 ;;4536
 ;;21,"63874-0775-15 ")
 ;;4537
 ;;21,"63874-0775-20 ")
 ;;4538
 ;;21,"63874-0775-30 ")
 ;;4539
 ;;21,"63874-0780-20 ")
 ;;782
 ;;21,"63874-0828-01 ")
 ;;2430
 ;;21,"63874-0828-04 ")
 ;;2431
 ;;21,"63874-0828-14 ")
 ;;2432
 ;;21,"63874-0828-20 ")
 ;;2433
 ;;21,"63874-0828-21 ")
 ;;2434
 ;;21,"63874-0828-28 ")
 ;;2435
 ;;21,"63874-0828-30 ")
 ;;2436
 ;;21,"63874-0828-60 ")
 ;;2437
 ;;21,"63874-0828-90 ")
 ;;2438
 ;;21,"63874-0829-01 ")
 ;;1497
 ;;21,"63874-0829-10 ")
 ;;1498
 ;;21,"63874-0829-14 ")
 ;;1499
 ;;21,"63874-0829-15 ")
 ;;1500
 ;;21,"63874-0829-20 ")
 ;;1501
 ;;21,"63874-0829-28 ")
 ;;1502
 ;;21,"63874-0829-30 ")
 ;;1503
 ;;21,"63874-0829-42 ")
 ;;1504
 ;;21,"63874-0829-50 ")
 ;;1505
 ;;21,"63874-0829-60 ")
 ;;1506
 ;;21,"63874-0926-01 ")
 ;;689
 ;;21,"63874-0926-04 ")
 ;;690
 ;;21,"63874-0926-10 ")
 ;;691
 ;;21,"63874-0926-28 ")
 ;;692
 ;;21,"63874-0926-30 ")
 ;;693
 ;;21,"63874-0926-60 ")
 ;;694
 ;;21,"63874-0926-90 ")
 ;;695
 ;;21,"63874-1003-03 ")
 ;;3741
 ;;21,"63874-1009-01 ")
 ;;1958
 ;;21,"63874-1009-03 ")
 ;;1959
 ;;21,"63874-1009-06 ")
 ;;1960
 ;;21,"63874-1009-09 ")
 ;;1961
 ;;21,"63874-1020-03 ")
 ;;2918
 ;;21,"63874-1033-01 ")
 ;;3169
 ;;21,"63874-1033-03 ")
 ;;3170
 ;;21,"63874-1033-04 ")
 ;;3171
 ;;21,"63874-1033-06 ")
 ;;3172
 ;;21,"63874-1053-01 ")
 ;;2170
 ;;21,"63874-1053-02 ")
 ;;2171
 ;;21,"63874-1053-03 ")
 ;;2172
 ;;21,"63874-1053-04 ")
 ;;2173
 ;;21,"63874-1053-05 ")
 ;;2174
 ;;21,"63874-1053-06 ")
 ;;2175
 ;;21,"63874-1053-08 ")
 ;;2176
 ;;21,"63874-1053-09 ")
 ;;2177
 ;;21,"63874-1079-06 ")
 ;;3333
 ;;21,"63874-1080-03 ")
 ;;2504
 ;;21,"63874-1080-06 ")
 ;;2505
 ;;21,"63874-1081-01 ")
 ;;3371
 ;;21,"63874-1097-03 ")
 ;;2919
 ;;21,"63874-1098-03 ")
 ;;2817
 ;;21,"63874-1113-03 ")
 ;;1219
 ;;21,"63874-1113-06 ")
 ;;1220
 ;;21,"63874-1125-06 ")
 ;;3442
 ;;21,"63874-1130-06 ")
 ;;4960
 ;;21,"63874-1146-06 ")
 ;;1067
 ;;21,"63874-1151-03 ")
 ;;3742
 ;;21,"63874-1155-03 ")
 ;;3001
 ;;21,"63874-1157-03 ")
 ;;1355
 ;;21,"63874-1158-03 ")
 ;;173
 ;;21,"63874-1253-03 ")
 ;;1918
 ;;21,"64455-0730-30 ")
 ;;844
 ;;21,"64455-0730-90 ")
 ;;845
 ;;21,"64455-0731-30 ")
 ;;913
 ;;21,"64679-0559-01 ")
 ;;2818
 ;;21,"64679-0560-01 ")
 ;;2920
 ;;21,"64679-0561-01 ")
 ;;3002
 ;;21,"64679-0717-01 ")
 ;;5068
 ;;21,"64679-0752-01 ")
 ;;4309
 ;;21,"64679-0752-04 ")
 ;;4310
 ;;21,"64679-0752-07 ")
 ;;4311
 ;;21,"64679-0753-01 ")
 ;;4046
 ;;21,"64679-0753-04 ")
 ;;4047
 ;;21,"64679-0753-07 ")
 ;;4048
 ;;21,"64679-0969-14 ")
 ;;1068
 ;;21,"64679-0970-11 ")
 ;;1221
 ;;21,"64679-0970-14 ")
 ;;1222
 ;;21,"64679-0971-14 ")
 ;;1356
 ;;21,"64720-0170-03 ")
 ;;1069
 ;;21,"64720-0170-10 ")
 ;;1070
 ;;21,"64720-0171-03 ")
 ;;1223
 ;;21,"64720-0171-10 ")
 ;;1224
 ;;21,"64720-0171-11 ")
 ;;1225
 ;;21,"64720-0172-03 ")
 ;;1357
 ;;21,"64720-0172-10 ")
 ;;1358
 ;;21,"64720-0172-11 ")
 ;;1359
 ;;21,"64803-0032-01 ")
 ;;2728
 ;;21,"64980-0158-01 ")
 ;;3884
 ;;21,"64980-0159-01 ")
 ;;3877
 ;;21,"65084-0414-13 ")
 ;;783
 ;;21,"65162-0052-10 ")
 ;;1071
 ;;21,"65162-0052-50 ")
 ;;1072
 ;;21,"65162-0053-10 ")
 ;;1226
 ;;21,"65162-0053-50 ")
 ;;1227
 ;;21,"65162-0054-03 ")
 ;;1360
 ;;21,"65162-0054-10 ")
 ;;1361
 ;;21,"65162-0054-50 ")
 ;;1362
 ;;21,"65162-0300-09 ")
 ;;4844
 ;;21,"65162-0302-09 ")
 ;;4961
 ;;21,"65162-0305-09 ")
 ;;4738
 ;;21,"65162-0306-09 ")
 ;;5002
 ;;21,"65162-0307-09 ")
 ;;5168
 ;;21,"65243-0006-03 ")
 ;;341
 ;;21,"65243-0063-03 ")
 ;;4049
 ;;21,"65243-0310-03 ")
 ;;1363
 ;;21,"65243-0319-03 ")
 ;;1364
 ;;21,"65243-0327-03 ")
 ;;4452
 ;;21,"65473-0701-01 ")
 ;;3885
 ;;21,"65473-0702-01 ")
 ;;3878
 ;;21,"65473-0718-01 ")
 ;;4717
 ;;21,"65473-0719-01 ")
 ;;4721
 ;;21,"65473-0720-01 ")
 ;;4713
 ;;21,"65580-0301-03 ")
 ;;4974
 ;;21,"65580-0301-09 ")
 ;;4975
 ;;21,"65580-0302-03 ")
 ;;5179
 ;;21,"65580-0302-09 ")
 ;;5180
 ;;21,"65580-0303-03 ")
 ;;4814
 ;;21,"65580-0303-09 ")
 ;;4815
 ;;21,"65580-0304-03 ")
 ;;4818
 ;;21,"65580-0304-09 ")
 ;;4819
 ;;21,"65862-0001-01 ")
 ;;3028
 ;;21,"65862-0001-05 ")
 ;;3029
 ;;21,"65862-0001-30 ")
 ;;3030
 ;;21,"65862-0003-01 ")
 ;;2921
 ;;21,"65862-0003-03 ")
 ;;2922
 ;;21,"65862-0003-05 ")
 ;;2923
 ;;21,"65862-0003-30 ")
 ;;2924
 ;;21,"65862-0003-90 ")
 ;;2925
 ;;21,"65862-0005-01 ")
 ;;1073
 ;;21,"65862-0005-05 ")
 ;;1074
 ;;21,"65862-0005-30 ")
 ;;1075
 ;;21,"65862-0006-01 ")
 ;;1228
 ;;21,"65862-0006-05 ")
 ;;1229
 ;;21,"65862-0006-30 ")
 ;;1230
 ;;21,"65862-0007-01 ")
 ;;1365
 ;;21,"65862-0007-05 ")
 ;;1366
 ;;21,"65862-0007-30 ")
 ;;1367
 ;;21,"65862-0011-01 ")
 ;;4155
 ;;21,"65862-0011-05 ")
 ;;4156
 ;;21,"65862-0011-30 ")
 ;;4157
 ;;21,"65862-0011-90 ")
 ;;4158
 ;;21,"65862-0012-01 ")
 ;;4312
 ;;21,"65862-0012-05 ")
 ;;4313
 ;;21,"65862-0012-30 ")
 ;;4314
 ;;21,"65862-0012-90 ")
 ;;4315
 ;;21,"65862-0013-01 ")
 ;;4050