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

BGP2VF8.m

Go to the documentation of this file.
BGP2VF8 ;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,"54868-5639-00 ")
 ;;4263
 ;;21,"54868-5639-01 ")
 ;;4264
 ;;21,"54868-5639-02 ")
 ;;4265
 ;;21,"54868-5639-03 ")
 ;;4266
 ;;21,"54868-5658-00 ")
 ;;4133
 ;;21,"54868-5663-00 ")
 ;;2086
 ;;21,"54868-5663-01 ")
 ;;2087
 ;;21,"54868-5663-02 ")
 ;;2088
 ;;21,"54868-5736-00 ")
 ;;896
 ;;21,"54868-5736-01 ")
 ;;897
 ;;21,"54868-5754-00 ")
 ;;5132
 ;;21,"54868-5754-01 ")
 ;;5133
 ;;21,"54868-5754-02 ")
 ;;5134
 ;;21,"54868-5812-00 ")
 ;;2982
 ;;21,"54868-5927-00 ")
 ;;830
 ;;21,"54868-5951-00 ")
 ;;2003
 ;;21,"55045-1463-00 ")
 ;;276
 ;;21,"55045-1463-01 ")
 ;;277
 ;;21,"55045-1463-02 ")
 ;;278
 ;;21,"55045-1463-03 ")
 ;;279
 ;;21,"55045-1463-04 ")
 ;;280
 ;;21,"55045-1463-06 ")
 ;;281
 ;;21,"55045-1463-07 ")
 ;;282
 ;;21,"55045-1463-08 ")
 ;;283
 ;;21,"55045-1463-09 ")
 ;;284
 ;;21,"55045-1592-00 ")
 ;;150
 ;;21,"55045-1592-01 ")
 ;;151
 ;;21,"55045-1592-05 ")
 ;;152
 ;;21,"55045-1592-06 ")
 ;;153
 ;;21,"55045-1592-08 ")
 ;;154
 ;;21,"55045-1592-09 ")
 ;;155
 ;;21,"55045-1682-00 ")
 ;;56
 ;;21,"55045-1682-01 ")
 ;;57
 ;;21,"55045-1682-02 ")
 ;;58
 ;;21,"55045-1682-03 ")
 ;;59
 ;;21,"55045-1682-04 ")
 ;;60
 ;;21,"55045-1682-05 ")
 ;;61
 ;;21,"55045-1682-06 ")
 ;;62
 ;;21,"55045-1682-08 ")
 ;;63
 ;;21,"55045-1682-09 ")
 ;;64
 ;;21,"55045-1715-00 ")
 ;;4631
 ;;21,"55045-1715-01 ")
 ;;4632
 ;;21,"55045-1715-02 ")
 ;;4633
 ;;21,"55045-1715-03 ")
 ;;4634
 ;;21,"55045-1715-07 ")
 ;;4635
 ;;21,"55045-1715-08 ")
 ;;4636
 ;;21,"55045-1715-09 ")
 ;;4637
 ;;21,"55045-1718-00 ")
 ;;1474
 ;;21,"55045-1718-02 ")
 ;;1475
 ;;21,"55045-1718-06 ")
 ;;1476
 ;;21,"55045-1718-08 ")
 ;;1477
 ;;21,"55045-1718-09 ")
 ;;1478
 ;;21,"55045-1721-00 ")
 ;;2640
 ;;21,"55045-1721-08 ")
 ;;2641
 ;;21,"55045-1722-01 ")
 ;;2684
 ;;21,"55045-1722-08 ")
 ;;2685
 ;;21,"55045-1724-00 ")
 ;;4393
 ;;21,"55045-1724-01 ")
 ;;4394
 ;;21,"55045-1724-06 ")
 ;;4395
 ;;21,"55045-1724-08 ")
 ;;4396
 ;;21,"55045-1724-09 ")
 ;;4397
 ;;21,"55045-1741-00 ")
 ;;408
 ;;21,"55045-1741-01 ")
 ;;409
 ;;21,"55045-1741-02 ")
 ;;410
 ;;21,"55045-1741-03 ")
 ;;411
 ;;21,"55045-1741-05 ")
 ;;412
 ;;21,"55045-1741-06 ")
 ;;413
 ;;21,"55045-1741-08 ")
 ;;414
 ;;21,"55045-1741-09 ")
 ;;415
 ;;21,"55045-1794-08 ")
 ;;2599
 ;;21,"55045-1837-01 ")
 ;;1587
 ;;21,"55045-1837-02 ")
 ;;1588
 ;;21,"55045-1837-06 ")
 ;;1589
 ;;21,"55045-1837-08 ")
 ;;1590
 ;;21,"55045-1837-09 ")
 ;;1591
 ;;21,"55045-1884-01 ")
 ;;1679
 ;;21,"55045-1884-02 ")
 ;;1680
 ;;21,"55045-1884-06 ")
 ;;1681
 ;;21,"55045-1884-08 ")
 ;;1682
 ;;21,"55045-1884-09 ")
 ;;1683
 ;;21,"55045-1920-01 ")
 ;;3139
 ;;21,"55045-1920-02 ")
 ;;3140
 ;;21,"55045-1920-06 ")
 ;;3141
 ;;21,"55045-1920-08 ")
 ;;3142
 ;;21,"55045-1920-09 ")
 ;;3143
 ;;21,"55045-1956-01 ")
 ;;3240
 ;;21,"55045-1956-02 ")
 ;;3241
 ;;21,"55045-1956-04 ")
 ;;3242
 ;;21,"55045-1956-06 ")
 ;;3243
 ;;21,"55045-1956-08 ")
 ;;3244
 ;;21,"55045-1956-09 ")
 ;;3245
 ;;21,"55045-1982-02 ")
 ;;3321
 ;;21,"55045-1982-08 ")
 ;;3322
 ;;21,"55045-1982-09 ")
 ;;3323
 ;;21,"55045-2084-01 ")
 ;;1759
 ;;21,"55045-2084-03 ")
 ;;1760
 ;;21,"55045-2084-06 ")
 ;;1761
 ;;21,"55045-2153-01 ")
 ;;485
 ;;21,"55045-2153-08 ")
 ;;486
 ;;21,"55045-2208-01 ")
 ;;4001
 ;;21,"55045-2208-03 ")
 ;;4002
 ;;21,"55045-2208-07 ")
 ;;4003
 ;;21,"55045-2208-08 ")
 ;;4004
 ;;21,"55045-2224-00 ")
 ;;4267
 ;;21,"55045-2224-02 ")
 ;;4268
 ;;21,"55045-2224-07 ")
 ;;4269
 ;;21,"55045-2224-08 ")
 ;;4270
 ;;21,"55045-2509-00 ")
 ;;4497
 ;;21,"55045-2509-01 ")
 ;;4498
 ;;21,"55045-2509-06 ")
 ;;4499
 ;;21,"55045-2509-08 ")
 ;;4500
 ;;21,"55045-2509-09 ")
 ;;4501
 ;;21,"55045-2546-08 ")
 ;;3574
 ;;21,"55045-2631-08 ")
 ;;756
 ;;21,"55045-2705-00 ")
 ;;1311
 ;;21,"55045-2706-09 ")
 ;;1161
 ;;21,"55045-2808-00 ")
 ;;2309
 ;;21,"55045-2808-02 ")
 ;;2310
 ;;21,"55045-2808-09 ")
 ;;2311
 ;;21,"55045-2907-00 ")
 ;;2089
 ;;21,"55045-2907-02 ")
 ;;2090
 ;;21,"55045-2907-06 ")
 ;;2091
 ;;21,"55045-2907-08 ")
 ;;2092
 ;;21,"55045-2907-09 ")
 ;;2093
 ;;21,"55045-2908-00 ")
 ;;2312
 ;;21,"55045-2908-02 ")
 ;;2313
 ;;21,"55045-2908-06 ")
 ;;2314
 ;;21,"55045-2908-08 ")
 ;;2315
 ;;21,"55045-2908-09 ")
 ;;2316
 ;;21,"55045-2934-00 ")
 ;;1949
 ;;21,"55045-2934-08 ")
 ;;1950
 ;;21,"55045-2985-00 ")
 ;;1992
 ;;21,"55045-2985-08 ")
 ;;1993
 ;;21,"55045-3088-08 ")
 ;;4829
 ;;21,"55045-3137-08 ")
 ;;2489
 ;;21,"55045-3171-08 ")
 ;;3410
 ;;21,"55045-3172-08 ")
 ;;3575
 ;;21,"55045-3172-09 ")
 ;;3576
 ;;21,"55045-3195-06 ")
 ;;594
 ;;21,"55045-3195-08 ")
 ;;595
 ;;21,"55045-3196-06 ")
 ;;5046
 ;;21,"55045-3196-08 ")
 ;;5047
 ;;21,"55045-3196-09 ")
 ;;5048
 ;;21,"55045-3197-06 ")
 ;;757
 ;;21,"55045-3220-09 ")
 ;;4940
 ;;21,"55045-3276-02 ")
 ;;946
 ;;21,"55045-3341-06 ")
 ;;1162
 ;;21,"55045-3341-08 ")
 ;;1163
 ;;21,"55045-3368-08 ")
 ;;4775
 ;;21,"55045-3386-08 ")
 ;;4134
 ;;21,"55045-3387-08 ")
 ;;5135
 ;;21,"55045-3423-01 ")
 ;;1034
 ;;21,"55045-3423-02 ")
 ;;1035
 ;;21,"55045-3424-00 ")
 ;;1312
 ;;21,"55045-3424-08 ")
 ;;1313
 ;;21,"55045-3562-01 ")
 ;;4005
 ;;21,"55045-3566-01 ")
 ;;4271
 ;;21,"55045-3697-03 ")
 ;;1908
 ;;21,"55045-3757-08 ")
 ;;4638
 ;;21,"55045-3766-08 ")
 ;;2094
 ;;21,"55045-3799-01 ")
 ;;2600
 ;;21,"55111-0142-60 ")
 ;;3089
 ;;21,"55111-0147-01 ")
 ;;2095
 ;;21,"55111-0148-01 ")
 ;;2317
 ;;21,"55111-0148-10 ")
 ;;2318
 ;;21,"55111-0149-01 ")
 ;;2490
 ;;21,"55111-0149-30 ")
 ;;2491
 ;;21,"55111-0284-48 ")
 ;;2519
 ;;21,"55111-0342-01 ")
 ;;1036
 ;;21,"55111-0342-05 ")
 ;;1037
 ;;21,"55111-0342-30 ")
 ;;1038
 ;;21,"55111-0343-01 ")
 ;;1164
 ;;21,"55111-0343-05 ")
 ;;1165
 ;;21,"55111-0343-30 ")
 ;;1166
 ;;21,"55111-0344-01 ")
 ;;1314
 ;;21,"55111-0344-05 ")
 ;;1315
 ;;21,"55111-0344-30 ")
 ;;1316
 ;;21,"55111-0453-05 ")
 ;;4877
 ;;21,"55111-0453-30 ")
 ;;4878
 ;;21,"55111-0453-90 ")
 ;;4879
 ;;21,"55111-0454-05 ")
 ;;5049
 ;;21,"55111-0454-30 ")
 ;;5050
 ;;21,"55111-0454-90 ")
 ;;5051
 ;;21,"55111-0455-05 ")
 ;;4776
 ;;21,"55111-0455-30 ")
 ;;4777
 ;;21,"55111-0455-90 ")
 ;;4778
 ;;21,"55111-0545-90 ")
 ;;4830
 ;;21,"55111-0546-05 ")
 ;;4941
 ;;21,"55111-0546-90 ")
 ;;4942
 ;;21,"55111-0547-90 ")
 ;;4988
 ;;21,"55111-0548-05 ")
 ;;5136
 ;;21,"55111-0548-90 ")
 ;;5137
 ;;21,"55111-0549-90 ")
 ;;4732
 ;;21,"55289-0016-30 ")
 ;;416
 ;;21,"55289-0016-60 ")
 ;;417
 ;;21,"55289-0018-01 ")
 ;;1762
 ;;21,"55289-0018-30 ")
 ;;1763
 ;;21,"55289-0028-21 ")
 ;;1909
 ;;21,"55289-0028-30 ")
 ;;1910
 ;;21,"55289-0036-21 ")
 ;;1864
 ;;21,"55289-0036-30 ")
 ;;1865
 ;;21,"55289-0037-90 ")
 ;;3411
 ;;21,"55289-0053-45 ")
 ;;3807
 ;;21,"55289-0053-90 ")
 ;;3808
 ;;21,"55289-0060-14 ")
 ;;4502
 ;;21,"55289-0064-07 ")
 ;;4639
 ;;21,"55289-0064-14 ")
 ;;4640
 ;;21,"55289-0064-30 ")
 ;;4641
 ;;21,"55289-0099-30 ")
 ;;3246
 ;;21,"55289-0099-50 ")
 ;;3247
 ;;21,"55289-0124-12 ")
 ;;65
 ;;21,"55289-0124-30 ")
 ;;66
 ;;21,"55289-0144-14 ")
 ;;2642
 ;;21,"55289-0144-30 ")
 ;;2643
 ;;21,"55289-0144-90 ")
 ;;2644
 ;;21,"55289-0149-30 ")
 ;;2601
 ;;21,"55289-0149-60 ")
 ;;2602
 ;;21,"55289-0215-22 ")
 ;;2319
 ;;21,"55289-0215-30 ")
 ;;2320
 ;;21,"55289-0216-30 ")
 ;;3577
 ;;21,"55289-0223-30 ")
 ;;4398
 ;;21,"55289-0258-30 ")
 ;;1817
 ;;21,"55289-0277-30 ")
 ;;5052
 ;;21,"55289-0291-14 ")
 ;;4272
 ;;21,"55289-0291-30 ")
 ;;4273
 ;;21,"55289-0291-60 ")
 ;;4274
 ;;21,"55289-0308-07 ")
 ;;2096
 ;;21,"55289-0308-14 ")
 ;;2097
 ;;21,"55289-0308-30 ")
 ;;2098
 ;;21,"55289-0370-30 ")
 ;;1684
 ;;21,"55289-0378-30 ")
 ;;4135
 ;;21,"55289-0381-30 ")
 ;;4006
 ;;21,"55289-0381-45 ")
 ;;4007
 ;;21,"55289-0381-60 ")
 ;;4008
 ;;21,"55289-0381-90 ")
 ;;4009
 ;;21,"55289-0409-30 ")
 ;;4275
 ;;21,"55289-0409-60 ")
 ;;4276
 ;;21,"55289-0550-15 ")
 ;;4010
 ;;21,"55289-0550-30 ")
 ;;4011
 ;;21,"55289-0586-30 ")
 ;;3144
 ;;21,"55289-0610-14 ")
 ;;2321
 ;;21,"55289-0610-28 ")
 ;;2322
 ;;21,"55289-0610-30 ")
 ;;2323
 ;;21,"55289-0610-60 ")
 ;;2324
 ;;21,"55289-0610-90 ")
 ;;2325
 ;;21,"55289-0613-14 ")
 ;;2099
 ;;21,"55289-0613-30 ")
 ;;2100
 ;;21,"55289-0613-60 ")
 ;;2101
 ;;21,"55289-0730-01 ")
 ;;285
 ;;21,"55289-0730-12 ")
 ;;286
 ;;21,"55289-0730-25 ")
 ;;287
 ;;21,"55289-0730-30 ")
 ;;288
 ;;21,"55289-0730-60 ")
 ;;289
 ;;21,"55289-0730-90 ")
 ;;290
 ;;21,"55289-0733-30 ")
 ;;596
 ;;21,"55289-0733-60 ")
 ;;597
 ;;21,"55289-0768-30 ")
 ;;1951
 ;;21,"55289-0827-30 ")
 ;;1167
 ;;21,"55289-0828-30 ")
 ;;1994
 ;;21,"55289-0830-30 ")
 ;;5138
 ;;21,"55289-0839-30 ")
 ;;2686
 ;;21,"55289-0869-30 ")
 ;;4880
 ;;21,"55289-0883-14 ")
 ;;1168
 ;;21,"55289-0883-30 ")
 ;;1169
 ;;21,"55289-0883-90 ")
 ;;1170
 ;;21,"55289-0897-30 ")
 ;;4779
 ;;21,"55289-0900-15 ")
 ;;898
 ;;21,"55289-0900-30 ")
 ;;899
 ;;21,"55289-0905-30 ")
 ;;758
 ;;21,"55289-0922-15 ")
 ;;831
 ;;21,"55289-0922-30 ")
 ;;832
 ;;21,"55289-0972-60 ")
 ;;3578
 ;;21,"55289-0972-90 ")
 ;;3579
 ;;21,"55587-0283-30 ")
 ;;900
 ;;21,"55587-0283-60 ")
 ;;901
 ;;21,"55587-0283-90 ")
 ;;902
 ;;21,"55587-0284-30 ")
 ;;833
 ;;21,"55587-0284-60 ")
 ;;834
 ;;21,"55587-0284-90 ")
 ;;835
 ;;21,"55864-0708-30 ")
 ;;4503
 ;;21,"55887-0075-30 ")
 ;;2492
 ;;21,"55887-0095-30 ")
 ;;1629
 ;;21,"55887-0095-60 ")
 ;;1630
 ;;21,"55887-0095-90 ")
 ;;1631
 ;;21,"55887-0101-30 ")
 ;;1592
 ;;21,"55887-0101-60 ")
 ;;1593
 ;;21,"55887-0101-90 ")
 ;;1594
 ;;21,"55887-0125-30 ")
 ;;5139
 ;;21,"55887-0125-60 ")
 ;;5140
 ;;21,"55887-0143-30 ")
 ;;1479
 ;;21,"55887-0143-60 ")
 ;;1480
 ;;21,"55887-0143-82 ")
 ;;1481
 ;;21,"55887-0143-90 ")
 ;;1482
 ;;21,"55887-0143-92 ")
 ;;1483
 ;;21,"55887-0144-30 ")
 ;;1423
 ;;21,"55887-0144-60 ")
 ;;1424
 ;;21,"55887-0144-82 ")
 ;;1425
 ;;21,"55887-0144-90 ")
 ;;1426
 ;;21,"55887-0144-92 ")
 ;;1427
 ;;21,"55887-0151-01 ")
 ;;598
 ;;21,"55887-0151-20 ")
 ;;599
 ;;21,"55887-0151-30 ")
 ;;600
 ;;21,"55887-0151-60 ")
 ;;601
 ;;21,"55887-0151-82 ")
 ;;602
 ;;21,"55887-0151-90 ")
 ;;603
 ;;21,"55887-0160-15 ")
 ;;4136
 ;;21,"55887-0160-30 ")
 ;;4137
 ;;21,"55887-0160-60 ")
 ;;4138
 ;;21,"55887-0160-90 ")
 ;;4139
 ;;21,"55887-0168-30 ")
 ;;4277
 ;;21,"55887-0168-60 ")
 ;;4278
 ;;21,"55887-0168-90 ")
 ;;4279
 ;;21,"55887-0193-30 ")
 ;;4780
 ;;21,"55887-0193-60 ")
 ;;4781
 ;;21,"55887-0193-90 ")
 ;;4782
 ;;21,"55887-0213-30 ")
 ;;3477
 ;;21,"55887-0214-30 ")
 ;;3674
 ;;21,"55887-0237-30 ")
 ;;1317
 ;;21,"55887-0237-60 ")
 ;;1318
 ;;21,"55887-0237-86 ")
 ;;1319
 ;;21,"55887-0237-90 ")
 ;;1320
 ;;21,"55887-0256-20 ")
 ;;4399
 ;;21,"55887-0256-30 ")
 ;;4400
 ;;21,"55887-0256-60 ")
 ;;4401
 ;;21,"55887-0256-90 ")
 ;;4402
 ;;21,"55887-0260-30 ")
 ;;1039
 ;;21,"55887-0260-90 ")
 ;;1040
 ;;21,"55887-0261-01 ")
 ;;1171
 ;;21,"55887-0261-07 ")
 ;;1172
 ;;21,"55887-0261-30 ")
 ;;1173
 ;;21,"55887-0261-90 ")
 ;;1174
 ;;21,"55887-0270-15 ")
 ;;1911
 ;;21,"55887-0270-30 ")
 ;;1912
 ;;21,"55887-0271-15 ")
 ;;1866
 ;;21,"55887-0271-30 ")
 ;;1867
 ;;21,"55887-0271-60 ")
 ;;1868
 ;;21,"55887-0283-30 ")
 ;;903
 ;;21,"55887-0283-60 ")
 ;;904
 ;;21,"55887-0283-90 ")
 ;;905
 ;;21,"55887-0284-30 ")
 ;;836
 ;;21,"55887-0284-60 ")
 ;;837
 ;;21,"55887-0284-90 ")
 ;;838
 ;;21,"55887-0288-30 ")
 ;;2687
 ;;21,"55887-0289-30 ")
 ;;1764
 ;;21,"55887-0289-60 ")
 ;;1765
 ;;21,"55887-0346-30 ")
 ;;3809
 ;;21,"55887-0356-30 ")
 ;;1685
 ;;21,"55887-0356-60 ")
 ;;1686
 ;;21,"55887-0394-30 ")
 ;;3580
 ;;21,"55887-0394-60 ")
 ;;3581
 ;;21,"55887-0394-90 ")
 ;;3582
 ;;21,"55887-0398-30 ")
 ;;487
 ;;21,"55887-0398-60 ")
 ;;488
 ;;21,"55887-0433-30 ")
 ;;3412
 ;;21,"55887-0439-30 ")
 ;;3145
 ;;21,"55887-0439-60 ")
 ;;3146
 ;;21,"55887-0439-92 ")
 ;;3147
 ;;21,"55887-0458-30 ")
 ;;2102
 ;;21,"55887-0458-40 ")
 ;;2103
 ;;21,"55887-0458-60 ")
 ;;2104
 ;;21,"55887-0458-90 ")
 ;;2105
 ;;21,"55887-0486-30 ")
 ;;1952
 ;;21,"55887-0487-30 ")
 ;;4280
 ;;21,"55887-0487-60 ")
 ;;4281
 ;;21,"55887-0490-30 ")
 ;;3478
 ;;21,"55887-0490-60 ")
 ;;3479
 ;;21,"55887-0490-82 ")
 ;;3480
 ;;21,"55887-0490-90 ")
 ;;3481
 ;;21,"55887-0496-30 ")
 ;;759
 ;;21,"55887-0496-60 ")
 ;;760
 ;;21,"55887-0496-90 ")
 ;;761
 ;;21,"55887-0498-30 ")
 ;;3324
 ;;21,"55887-0498-60 ")
 ;;3325
 ;;21,"55887-0502-30 ")
 ;;1041
 ;;21,"55887-0502-60 ")
 ;;1042
 ;;21,"55887-0511-20 ")
 ;;3675
 ;;21,"55887-0511-30 ")
 ;;3676
 ;;21,"55887-0511-60 ")
 ;;3677
 ;;21,"55887-0511-82 ")
 ;;3678
 ;;21,"55887-0511-90 ")
 ;;3679
 ;;21,"55887-0518-15 ")
 ;;3248
 ;;21,"55887-0518-30 ")
 ;;3249
 ;;21,"55887-0518-60 ")
 ;;3250
 ;;21,"55887-0518-90 ")
 ;;3251
 ;;21,"55887-0519-30 ")
 ;;4140
 ;;21,"55887-0519-60 ")
 ;;4141
 ;;21,"55887-0524-30 ")
 ;;4642
 ;;21,"55887-0524-60 ")
 ;;4643