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

BGP2VF7.m

Go to the documentation of this file.
BGP2VF7 ;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,"52959-0869-30 ")
 ;;893
 ;;21,"52959-0872-30 ")
 ;;4124
 ;;21,"52959-0872-60 ")
 ;;4125
 ;;21,"52959-0875-30 ")
 ;;4243
 ;;21,"52959-0875-60 ")
 ;;4244
 ;;21,"52959-0875-90 ")
 ;;4245
 ;;21,"52959-0876-30 ")
 ;;3980
 ;;21,"52959-0876-60 ")
 ;;3981
 ;;21,"52959-0890-30 ")
 ;;5123
 ;;21,"52959-0890-60 ")
 ;;5124
 ;;21,"52959-0890-90 ")
 ;;5125
 ;;21,"52959-0892-30 ")
 ;;1904
 ;;21,"52959-0892-60 ")
 ;;1905
 ;;21,"52959-0894-30 ")
 ;;4488
 ;;21,"52959-0894-60 ")
 ;;4489
 ;;21,"52959-0898-60 ")
 ;;943
 ;;21,"52959-0900-30 ")
 ;;2724
 ;;21,"52959-0901-30 ")
 ;;2786
 ;;21,"52959-0986-30 ")
 ;;1301
 ;;21,"52959-0991-30 ")
 ;;2167
 ;;21,"53489-0104-01 ")
 ;;45
 ;;21,"53489-0105-01 ")
 ;;259
 ;;21,"53489-0106-01 ")
 ;;397
 ;;21,"53489-0107-01 ")
 ;;479
 ;;21,"53489-0108-01 ")
 ;;145
 ;;21,"53489-0109-01 ")
 ;;188
 ;;21,"53489-0330-01 ")
 ;;2594
 ;;21,"53489-0331-01 ")
 ;;2632
 ;;21,"53489-0332-01 ")
 ;;2675
 ;;21,"53489-0373-06 ")
 ;;2076
 ;;21,"53489-0373-07 ")
 ;;2077
 ;;21,"53489-0374-06 ")
 ;;2287
 ;;21,"53489-0374-07 ")
 ;;2288
 ;;21,"53489-0510-01 ")
 ;;4622
 ;;21,"53489-0511-01 ")
 ;;4385
 ;;21,"53489-0517-01 ")
 ;;4490
 ;;21,"54348-0511-30 ")
 ;;398
 ;;21,"54458-0944-10 ")
 ;;4246
 ;;21,"54458-0945-10 ")
 ;;3982
 ;;21,"54458-0947-10 ")
 ;;4126
 ;;21,"54458-0960-10 ")
 ;;4386
 ;;21,"54458-0961-10 ")
 ;;4623
 ;;21,"54458-0980-10 ")
 ;;1150
 ;;21,"54458-0981-10 ")
 ;;1029
 ;;21,"54458-0988-10 ")
 ;;3715
 ;;21,"54458-0989-10 ")
 ;;3562
 ;;21,"54458-0990-10 ")
 ;;3406
 ;;21,"54569-0172-00 ")
 ;;46
 ;;21,"54569-0172-01 ")
 ;;47
 ;;21,"54569-0172-02 ")
 ;;48
 ;;21,"54569-0172-04 ")
 ;;49
 ;;21,"54569-0173-00 ")
 ;;510
 ;;21,"54569-0175-00 ")
 ;;260
 ;;21,"54569-0175-01 ")
 ;;261
 ;;21,"54569-0175-02 ")
 ;;262
 ;;21,"54569-0175-03 ")
 ;;263
 ;;21,"54569-0175-04 ")
 ;;264
 ;;21,"54569-0175-05 ")
 ;;265
 ;;21,"54569-0175-06 ")
 ;;266
 ;;21,"54569-0175-08 ")
 ;;267
 ;;21,"54569-0194-00 ")
 ;;2633
 ;;21,"54569-0194-02 ")
 ;;2634
 ;;21,"54569-0196-03 ")
 ;;2676
 ;;21,"54569-0196-04 ")
 ;;2677
 ;;21,"54569-0225-00 ")
 ;;3131
 ;;21,"54569-0404-00 ")
 ;;1472
 ;;21,"54569-0404-01 ")
 ;;1473
 ;;21,"54569-1470-00 ")
 ;;4624
 ;;21,"54569-1470-01 ")
 ;;4625
 ;;21,"54569-1470-06 ")
 ;;4626
 ;;21,"54569-1470-08 ")
 ;;4627
 ;;21,"54569-1470-09 ")
 ;;4628
 ;;21,"54569-1519-00 ")
 ;;399
 ;;21,"54569-1519-01 ")
 ;;400
 ;;21,"54569-1519-02 ")
 ;;401
 ;;21,"54569-1519-03 ")
 ;;402
 ;;21,"54569-1696-00 ")
 ;;1754
 ;;21,"54569-1696-01 ")
 ;;1755
 ;;21,"54569-1701-02 ")
 ;;1539
 ;;21,"54569-1732-00 ")
 ;;2289
 ;;21,"54569-1732-02 ")
 ;;2290
 ;;21,"54569-1732-03 ")
 ;;2291
 ;;21,"54569-1732-04 ")
 ;;2292
 ;;21,"54569-1732-05 ")
 ;;2293
 ;;21,"54569-1732-06 ")
 ;;2294
 ;;21,"54569-1864-01 ")
 ;;480
 ;;21,"54569-1864-02 ")
 ;;481
 ;;21,"54569-1999-00 ")
 ;;4387
 ;;21,"54569-1999-01 ")
 ;;4388
 ;;21,"54569-1999-02 ")
 ;;4389
 ;;21,"54569-1999-03 ")
 ;;4390
 ;;21,"54569-2006-00 ")
 ;;1421
 ;;21,"54569-2146-00 ")
 ;;146
 ;;21,"54569-2146-01 ")
 ;;147
 ;;21,"54569-2179-00 ")
 ;;1673
 ;;21,"54569-2179-01 ")
 ;;1674
 ;;21,"54569-2179-03 ")
 ;;1675
 ;;21,"54569-2462-00 ")
 ;;1582
 ;;21,"54569-2462-01 ")
 ;;1583
 ;;21,"54569-2726-00 ")
 ;;2595
 ;;21,"54569-3575-00 ")
 ;;3983
 ;;21,"54569-3575-01 ")
 ;;3984
 ;;21,"54569-3575-02 ")
 ;;3985
 ;;21,"54569-3575-03 ")
 ;;3986
 ;;21,"54569-3724-00 ")
 ;;4247
 ;;21,"54569-3724-01 ")
 ;;4248
 ;;21,"54569-3724-02 ")
 ;;4249
 ;;21,"54569-3724-03 ")
 ;;4250
 ;;21,"54569-3724-04 ")
 ;;4251
 ;;21,"54569-3724-05 ")
 ;;4252
 ;;21,"54569-3732-01 ")
 ;;4491
 ;;21,"54569-3732-02 ")
 ;;4492
 ;;21,"54569-3732-03 ")
 ;;4493
 ;;21,"54569-3810-00 ")
 ;;3563
 ;;21,"54569-3849-00 ")
 ;;3233
 ;;21,"54569-3849-01 ")
 ;;3234
 ;;21,"54569-3894-00 ")
 ;;3235
 ;;21,"54569-4129-00 ")
 ;;2078
 ;;21,"54569-4131-01 ")
 ;;4932
 ;;21,"54569-4132-01 ")
 ;;5126
 ;;21,"54569-4146-00 ")
 ;;3132
 ;;21,"54569-4146-01 ")
 ;;3133
 ;;21,"54569-4521-01 ")
 ;;749
 ;;21,"54569-4529-00 ")
 ;;4127
 ;;21,"54569-4529-01 ")
 ;;4128
 ;;21,"54569-4529-02 ")
 ;;4129
 ;;21,"54569-4659-00 ")
 ;;5041
 ;;21,"54569-4703-00 ")
 ;;1151
 ;;21,"54569-4703-01 ")
 ;;1152
 ;;21,"54569-4787-00 ")
 ;;3407
 ;;21,"54569-4879-00 ")
 ;;1302
 ;;21,"54569-4901-00 ")
 ;;3802
 ;;21,"54569-5231-00 ")
 ;;4769
 ;;21,"54569-5239-00 ")
 ;;2518
 ;;21,"54569-5265-00 ")
 ;;4874
 ;;21,"54569-5291-00 ")
 ;;2295
 ;;21,"54569-5291-01 ")
 ;;2296
 ;;21,"54569-5291-03 ")
 ;;2297
 ;;21,"54569-5319-00 ")
 ;;2079
 ;;21,"54569-5319-01 ")
 ;;2080
 ;;21,"54569-5320-00 ")
 ;;2486
 ;;21,"54569-5340-00 ")
 ;;676
 ;;21,"54569-5483-00 ")
 ;;1941
 ;;21,"54569-5484-00 ")
 ;;1987
 ;;21,"54569-5541-00 ")
 ;;3564
 ;;21,"54569-5541-01 ")
 ;;3565
 ;;21,"54569-5568-00 ")
 ;;677
 ;;21,"54569-5569-00 ")
 ;;750
 ;;21,"54569-5598-00 ")
 ;;3672
 ;;21,"54569-5599-00 ")
 ;;894
 ;;21,"54569-5626-00 ")
 ;;1153
 ;;21,"54569-5627-00 ")
 ;;1303
 ;;21,"54569-5678-00 ")
 ;;1906
 ;;21,"54569-5682-00 ")
 ;;3803
 ;;21,"54569-5818-00 ")
 ;;4253
 ;;21,"54569-5819-00 ")
 ;;3987
 ;;21,"54569-5872-00 ")
 ;;5127
 ;;21,"54569-5895-00 ")
 ;;2787
 ;;21,"54569-5968-00 ")
 ;;2885
 ;;21,"54569-5968-01 ")
 ;;2886
 ;;21,"54569-5968-02 ")
 ;;2887
 ;;21,"54569-8013-00 ")
 ;;2298
 ;;21,"54569-8522-00 ")
 ;;2299
 ;;21,"54569-8522-01 ")
 ;;2300
 ;;21,"54569-8579-00 ")
 ;;4254
 ;;21,"54569-8609-00 ")
 ;;3566
 ;;21,"54738-0912-01 ")
 ;;2596
 ;;21,"54738-0913-01 ")
 ;;2635
 ;;21,"54738-0914-01 ")
 ;;2678
 ;;21,"54838-0512-40 ")
 ;;1610
 ;;21,"54838-0523-40 ")
 ;;2445
 ;;21,"54838-0540-70 ")
 ;;1081
 ;;21,"54868-0062-00 ")
 ;;1676
 ;;21,"54868-0062-02 ")
 ;;1677
 ;;21,"54868-0062-04 ")
 ;;1678
 ;;21,"54868-0064-02 ")
 ;;50
 ;;21,"54868-0064-03 ")
 ;;51
 ;;21,"54868-0064-04 ")
 ;;52
 ;;21,"54868-0064-05 ")
 ;;53
 ;;21,"54868-0064-06 ")
 ;;54
 ;;21,"54868-0064-07 ")
 ;;55
 ;;21,"54868-0065-00 ")
 ;;268
 ;;21,"54868-0065-02 ")
 ;;269
 ;;21,"54868-0065-03 ")
 ;;270
 ;;21,"54868-0065-04 ")
 ;;271
 ;;21,"54868-0065-05 ")
 ;;272
 ;;21,"54868-0065-07 ")
 ;;273
 ;;21,"54868-0065-08 ")
 ;;274
 ;;21,"54868-0065-09 ")
 ;;275
 ;;21,"54868-0066-00 ")
 ;;403
 ;;21,"54868-0066-02 ")
 ;;404
 ;;21,"54868-0066-03 ")
 ;;405
 ;;21,"54868-0066-05 ")
 ;;406
 ;;21,"54868-0066-06 ")
 ;;407
 ;;21,"54868-0122-00 ")
 ;;4629
 ;;21,"54868-0122-02 ")
 ;;4630
 ;;21,"54868-0426-00 ")
 ;;518
 ;;21,"54868-0501-00 ")
 ;;511
 ;;21,"54868-0511-00 ")
 ;;2301
 ;;21,"54868-0511-01 ")
 ;;2302
 ;;21,"54868-0511-02 ")
 ;;2303
 ;;21,"54868-0511-05 ")
 ;;2304
 ;;21,"54868-1223-00 ")
 ;;4391
 ;;21,"54868-1223-01 ")
 ;;4392
 ;;21,"54868-1239-00 ")
 ;;1304
 ;;21,"54868-1239-01 ")
 ;;1305
 ;;21,"54868-1239-02 ")
 ;;1306
 ;;21,"54868-1239-03 ")
 ;;1307
 ;;21,"54868-1239-04 ")
 ;;1308
 ;;21,"54868-1344-00 ")
 ;;2636
 ;;21,"54868-1344-02 ")
 ;;2637
 ;;21,"54868-1344-03 ")
 ;;2638
 ;;21,"54868-1344-04 ")
 ;;2639
 ;;21,"54868-1447-00 ")
 ;;1398
 ;;21,"54868-1449-00 ")
 ;;944
 ;;21,"54868-1450-00 ")
 ;;590
 ;;21,"54868-1534-00 ")
 ;;519
 ;;21,"54868-1959-01 ")
 ;;4494
 ;;21,"54868-1959-02 ")
 ;;4495
 ;;21,"54868-1959-04 ")
 ;;4496
 ;;21,"54868-1964-00 ")
 ;;1756
 ;;21,"54868-1964-02 ")
 ;;1757
 ;;21,"54868-1964-03 ")
 ;;1758
 ;;21,"54868-2192-00 ")
 ;;4255
 ;;21,"54868-2192-01 ")
 ;;4256
 ;;21,"54868-2192-03 ")
 ;;4257
 ;;21,"54868-2192-04 ")
 ;;4258
 ;;21,"54868-2192-05 ")
 ;;4259
 ;;21,"54868-2192-06 ")
 ;;4260
 ;;21,"54868-2192-07 ")
 ;;4261
 ;;21,"54868-2192-08 ")
 ;;4262
 ;;21,"54868-2206-01 ")
 ;;512
 ;;21,"54868-2221-00 ")
 ;;2679
 ;;21,"54868-2221-01 ")
 ;;2680
 ;;21,"54868-2221-03 ")
 ;;2681
 ;;21,"54868-2221-04 ")
 ;;2682
 ;;21,"54868-2221-05 ")
 ;;2683
 ;;21,"54868-2284-02 ")
 ;;1627
 ;;21,"54868-2284-06 ")
 ;;1628
 ;;21,"54868-2317-02 ")
 ;;1584
 ;;21,"54868-2317-03 ")
 ;;1585
 ;;21,"54868-2317-04 ")
 ;;1586
 ;;21,"54868-2357-00 ")
 ;;482
 ;;21,"54868-2357-02 ")
 ;;483
 ;;21,"54868-2357-03 ")
 ;;484
 ;;21,"54868-2433-00 ")
 ;;148
 ;;21,"54868-2433-02 ")
 ;;149
 ;;21,"54868-2434-00 ")
 ;;189
 ;;21,"54868-2434-02 ")
 ;;190
 ;;21,"54868-2480-00 ")
 ;;3236
 ;;21,"54868-2480-01 ")
 ;;3237
 ;;21,"54868-2480-02 ")
 ;;3238
 ;;21,"54868-2480-04 ")
 ;;3239
 ;;21,"54868-2481-01 ")
 ;;3318
 ;;21,"54868-2481-02 ")
 ;;3319
 ;;21,"54868-2481-03 ")
 ;;3320
 ;;21,"54868-2482-00 ")
 ;;3360
 ;;21,"54868-2546-00 ")
 ;;1422
 ;;21,"54868-2552-00 ")
 ;;1815
 ;;21,"54868-2552-02 ")
 ;;1816
 ;;21,"54868-2571-00 ")
 ;;2597
 ;;21,"54868-2571-01 ")
 ;;2598
 ;;21,"54868-2637-00 ")
 ;;3988
 ;;21,"54868-2637-01 ")
 ;;3989
 ;;21,"54868-2637-03 ")
 ;;3990
 ;;21,"54868-2637-04 ")
 ;;3991
 ;;21,"54868-2637-05 ")
 ;;3992
 ;;21,"54868-2637-06 ")
 ;;3993
 ;;21,"54868-2637-07 ")
 ;;3994
 ;;21,"54868-2637-08 ")
 ;;3995
 ;;21,"54868-2833-00 ")
 ;;3134
 ;;21,"54868-2833-01 ")
 ;;3135
 ;;21,"54868-2835-01 ")
 ;;3136
 ;;21,"54868-2835-02 ")
 ;;3137
 ;;21,"54868-2835-03 ")
 ;;3138
 ;;21,"54868-2976-00 ")
 ;;3567
 ;;21,"54868-2976-02 ")
 ;;3568
 ;;21,"54868-2976-03 ")
 ;;3569
 ;;21,"54868-3033-00 ")
 ;;2081
 ;;21,"54868-3033-02 ")
 ;;2082
 ;;21,"54868-3414-00 ")
 ;;4933
 ;;21,"54868-3414-01 ")
 ;;4934
 ;;21,"54868-3414-02 ")
 ;;4935
 ;;21,"54868-3414-03 ")
 ;;4936
 ;;21,"54868-3414-05 ")
 ;;4937
 ;;21,"54868-3523-00 ")
 ;;5128
 ;;21,"54868-3523-01 ")
 ;;5129
 ;;21,"54868-3523-02 ")
 ;;5130
 ;;21,"54868-3523-03 ")
 ;;5131
 ;;21,"54868-3526-00 ")
 ;;3716
 ;;21,"54868-3533-00 ")
 ;;1647
 ;;21,"54868-3533-01 ")
 ;;1648
 ;;21,"54868-3962-00 ")
 ;;3804
 ;;21,"54868-3984-00 ")
 ;;751
 ;;21,"54868-3984-01 ")
 ;;752
 ;;21,"54868-4023-00 ")
 ;;1399
 ;;21,"54868-4055-00 ")
 ;;4938
 ;;21,"54868-4055-01 ")
 ;;4939
 ;;21,"54868-4065-00 ")
 ;;3408
 ;;21,"54868-4134-00 ")
 ;;945
 ;;21,"54868-4159-00 ")
 ;;1154
 ;;21,"54868-4159-02 ")
 ;;1155
 ;;21,"54868-4159-03 ")
 ;;1156
 ;;21,"54868-4159-04 ")
 ;;1157
 ;;21,"54868-4226-00 ")
 ;;1309
 ;;21,"54868-4226-01 ")
 ;;1310
 ;;21,"54868-4227-00 ")
 ;;2844
 ;;21,"54868-4252-00 ")
 ;;4770
 ;;21,"54868-4252-01 ")
 ;;4771
 ;;21,"54868-4252-02 ")
 ;;4772
 ;;21,"54868-4252-03 ")
 ;;4773
 ;;21,"54868-4252-04 ")
 ;;4774
 ;;21,"54868-4253-00 ")
 ;;5042
 ;;21,"54868-4253-01 ")
 ;;5043
 ;;21,"54868-4253-02 ")
 ;;5044
 ;;21,"54868-4253-03 ")
 ;;5045
 ;;21,"54868-4372-00 ")
 ;;4130
 ;;21,"54868-4372-01 ")
 ;;4131
 ;;21,"54868-4372-02 ")
 ;;4132
 ;;21,"54868-4394-00 ")
 ;;2487
 ;;21,"54868-4498-00 ")
 ;;2888
 ;;21,"54868-4504-00 ")
 ;;4875
 ;;21,"54868-4504-01 ")
 ;;4876
 ;;21,"54868-4505-00 ")
 ;;678
 ;;21,"54868-4505-01 ")
 ;;679
 ;;21,"54868-4537-00 ")
 ;;2305
 ;;21,"54868-4537-01 ")
 ;;2306
 ;;21,"54868-4537-02 ")
 ;;2307
 ;;21,"54868-4537-03 ")
 ;;2308
 ;;21,"54868-4550-00 ")
 ;;591
 ;;21,"54868-4550-01 ")
 ;;592
 ;;21,"54868-4550-02 ")
 ;;593
 ;;21,"54868-4560-00 ")
 ;;2083
 ;;21,"54868-4560-01 ")
 ;;2084
 ;;21,"54868-4562-00 ")
 ;;2488
 ;;21,"54868-4570-00 ")
 ;;2085
 ;;21,"54868-4700-00 ")
 ;;1942
 ;;21,"54868-4700-01 ")
 ;;1943
 ;;21,"54868-4700-02 ")
 ;;1944
 ;;21,"54868-4700-03 ")
 ;;1945
 ;;21,"54868-4700-04 ")
 ;;1946
 ;;21,"54868-4700-05 ")
 ;;1947
 ;;21,"54868-4700-06 ")
 ;;1948
 ;;21,"54868-4763-00 ")
 ;;860
 ;;21,"54868-4775-00 ")
 ;;1988
 ;;21,"54868-4775-01 ")
 ;;1989
 ;;21,"54868-4775-02 ")
 ;;1990
 ;;21,"54868-4775-03 ")
 ;;1991
 ;;21,"54868-4791-00 ")
 ;;3673
 ;;21,"54868-4817-00 ")
 ;;3805
 ;;21,"54868-4817-01 ")
 ;;3806
 ;;21,"54868-4848-00 ")
 ;;2788
 ;;21,"54868-4889-00 ")
 ;;2950
 ;;21,"54868-4892-00 ")
 ;;753
 ;;21,"54868-4892-01 ")
 ;;754
 ;;21,"54868-4924-00 ")
 ;;3074
 ;;21,"54868-4935-00 ")
 ;;895
 ;;21,"54868-4937-00 ")
 ;;3570
 ;;21,"54868-4937-01 ")
 ;;3571
 ;;21,"54868-4937-02 ")
 ;;3572
 ;;21,"54868-4937-03 ")
 ;;3573
 ;;21,"54868-4938-00 ")
 ;;3717
 ;;21,"54868-4985-00 ")
 ;;1030
 ;;21,"54868-4985-01 ")
 ;;1031
 ;;21,"54868-5010-00 ")
 ;;829
 ;;21,"54868-5010-01 ")
 ;;755
 ;;21,"54868-5080-00 ")
 ;;3409
 ;;21,"54868-5178-00 ")
 ;;1158
 ;;21,"54868-5178-01 ")
 ;;1159
 ;;21,"54868-5178-03 ")
 ;;1160
 ;;21,"54868-5192-00 ")
 ;;1907
 ;;21,"54868-5215-00 ")
 ;;1835
 ;;21,"54868-5215-01 ")
 ;;1836
 ;;21,"54868-5215-02 ")
 ;;1837
 ;;21,"54868-5275-00 ")
 ;;1032
 ;;21,"54868-5275-02 ")
 ;;1033
 ;;21,"54868-5315-00 ")
 ;;1863
 ;;21,"54868-5347-00 ")
 ;;3476
 ;;21,"54868-5365-00 ")
 ;;3763
 ;;21,"54868-5377-00 ")
 ;;680
 ;;21,"54868-5448-00 ")
 ;;2889
 ;;21,"54868-5562-00 ")
 ;;3055
 ;;21,"54868-5635-00 ")
 ;;2579
 ;;21,"54868-5638-00 ")
 ;;3996
 ;;21,"54868-5638-01 ")
 ;;3997
 ;;21,"54868-5638-02 ")
 ;;3998
 ;;21,"54868-5638-03 ")
 ;;3999
 ;;21,"54868-5638-04 ")
 ;;4000