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

BGP2VK3.m

Go to the documentation of this file.
BGP2VK3 ;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,"55289-0791-30 ")
 ;;743
 ;;21,"55289-0791-60 ")
 ;;744
 ;;21,"55289-0794-01 ")
 ;;255
 ;;21,"55289-0794-07 ")
 ;;256
 ;;21,"55289-0794-14 ")
 ;;257
 ;;21,"55289-0794-21 ")
 ;;258
 ;;21,"55289-0794-28 ")
 ;;259
 ;;21,"55289-0794-30 ")
 ;;260
 ;;21,"55289-0794-56 ")
 ;;261
 ;;21,"55289-0794-93 ")
 ;;262
 ;;21,"55289-0819-30 ")
 ;;523
 ;;21,"55289-0819-60 ")
 ;;524
 ;;21,"55289-0819-90 ")
 ;;525
 ;;21,"55289-0829-30 ")
 ;;356
 ;;21,"55289-0829-60 ")
 ;;357
 ;;21,"55289-0829-90 ")
 ;;358
 ;;21,"55289-0834-07 ")
 ;;650
 ;;21,"55289-0834-14 ")
 ;;651
 ;;21,"55289-0834-21 ")
 ;;652
 ;;21,"55289-0834-28 ")
 ;;653
 ;;21,"55289-0834-30 ")
 ;;654
 ;;21,"55289-0834-56 ")
 ;;655
 ;;21,"55289-0834-60 ")
 ;;656
 ;;21,"55289-0834-84 ")
 ;;657
 ;;21,"55289-0834-86 ")
 ;;658
 ;;21,"55289-0834-88 ")
 ;;659
 ;;21,"55289-0834-89 ")
 ;;660
 ;;21,"55289-0834-90 ")
 ;;661
 ;;21,"55289-0834-93 ")
 ;;662
 ;;21,"55289-0834-98 ")
 ;;663
 ;;21,"55289-0834-99 ")
 ;;664
 ;;21,"55289-0835-30 ")
 ;;395
 ;;21,"55289-0835-90 ")
 ;;396
 ;;21,"55289-0854-30 ")
 ;;541
 ;;21,"55289-0854-90 ")
 ;;542
 ;;21,"55289-0859-30 ")
 ;;489
 ;;21,"55289-0859-90 ")
 ;;490
 ;;21,"55289-0975-90 ")
 ;;468
 ;;21,"55499-1082-01 ")
 ;;575
 ;;21,"55887-0080-07 ")
 ;;933
 ;;21,"55887-0080-30 ")
 ;;934
 ;;21,"55887-0080-60 ")
 ;;935
 ;;21,"55887-0224-15 ")
 ;;576
 ;;21,"55887-0224-30 ")
 ;;577
 ;;21,"55887-0225-14 ")
 ;;665
 ;;21,"55887-0225-15 ")
 ;;666
 ;;21,"55887-0225-21 ")
 ;;667
 ;;21,"55887-0225-28 ")
 ;;668
 ;;21,"55887-0225-30 ")
 ;;669
 ;;21,"55887-0225-42 ")
 ;;670
 ;;21,"55887-0225-60 ")
 ;;671
 ;;21,"55887-0225-90 ")
 ;;672
 ;;21,"55887-0654-07 ")
 ;;311
 ;;21,"55887-0654-14 ")
 ;;312
 ;;21,"55887-0654-15 ")
 ;;313
 ;;21,"55887-0654-30 ")
 ;;314
 ;;21,"55887-0654-60 ")
 ;;315
 ;;21,"55887-0669-15 ")
 ;;263
 ;;21,"55887-0669-21 ")
 ;;264
 ;;21,"55887-0669-30 ")
 ;;265
 ;;21,"55887-0669-60 ")
 ;;266
 ;;21,"55887-0669-90 ")
 ;;267
 ;;21,"55887-0712-14 ")
 ;;877
 ;;21,"55887-0712-30 ")
 ;;878
 ;;21,"55887-0712-60 ")
 ;;879
 ;;21,"55887-0762-07 ")
 ;;745
 ;;21,"55887-0762-14 ")
 ;;746
 ;;21,"55887-0762-15 ")
 ;;747
 ;;21,"55887-0762-30 ")
 ;;748
 ;;21,"55887-0762-60 ")
 ;;749
 ;;21,"55887-0840-01 ")
 ;;1018
 ;;21,"55887-0840-07 ")
 ;;1019
 ;;21,"55887-0840-14 ")
 ;;1020
 ;;21,"55887-0840-15 ")
 ;;1021
 ;;21,"55887-0840-20 ")
 ;;1022
 ;;21,"55887-0840-23 ")
 ;;1023
 ;;21,"55887-0840-30 ")
 ;;1024
 ;;21,"55887-0840-45 ")
 ;;1025
 ;;21,"55887-0840-60 ")
 ;;1026
 ;;21,"55887-0840-90 ")
 ;;1027
 ;;21,"55887-0891-01 ")
 ;;880
 ;;21,"55887-0891-14 ")
 ;;881
 ;;21,"55887-0891-15 ")
 ;;882
 ;;21,"55887-0891-30 ")
 ;;883
 ;;21,"55887-0891-60 ")
 ;;884
 ;;21,"57664-0504-18 ")
 ;;1028
 ;;21,"57664-0504-88 ")
 ;;1029
 ;;21,"57844-0009-01 ")
 ;;1030
 ;;21,"57844-0019-01 ")
 ;;936
 ;;21,"58016-0043-00 ")
 ;;1031
 ;;21,"58016-0043-30 ")
 ;;1032
 ;;21,"58016-0043-60 ")
 ;;1033
 ;;21,"58016-0043-90 ")
 ;;1034
 ;;21,"58016-0310-00 ")
 ;;1035
 ;;21,"58016-0310-30 ")
 ;;1036
 ;;21,"58016-0310-60 ")
 ;;1037
 ;;21,"58016-0310-90 ")
 ;;1038
 ;;21,"58016-0836-07 ")
 ;;316
 ;;21,"58016-0836-14 ")
 ;;317
 ;;21,"58016-0836-15 ")
 ;;318
 ;;21,"58016-0836-30 ")
 ;;319
 ;;21,"58016-0856-00 ")
 ;;268
 ;;21,"58016-0856-15 ")
 ;;269
 ;;21,"58016-0856-21 ")
 ;;270
 ;;21,"58016-0856-42 ")
 ;;271
 ;;21,"58177-0311-04 ")
 ;;219
 ;;21,"58177-0312-04 ")
 ;;196
 ;;21,"58521-0333-05 ")
 ;;885
 ;;21,"59630-0750-50 ")
 ;;531
 ;;21,"59630-0755-50 ")
 ;;371
 ;;21,"59630-0760-10 ")
 ;;397
 ;;21,"59630-0761-10 ")
 ;;528
 ;;21,"59630-0762-10 ")
 ;;361
 ;;21,"60429-0536-01 ")
 ;;526
 ;;21,"60429-0536-10 ")
 ;;527
 ;;21,"60429-0537-01 ")
 ;;359
 ;;21,"60429-0537-10 ")
 ;;360
 ;;21,"60429-0538-01 ")
 ;;425
 ;;21,"60429-0538-10 ")
 ;;426
 ;;21,"60429-0539-01 ")
 ;;378
 ;;21,"60429-0540-01 ")
 ;;456
 ;;21,"63304-0908-01 ")
 ;;118
 ;;21,"63304-0909-01 ")
 ;;28
 ;;21,"63304-0910-01 ")
 ;;69
 ;;21,"63304-0911-01 ")
 ;;96
 ;;21,"63629-1584-01 ")
 ;;1039
 ;;21,"63629-1584-02 ")
 ;;1040
 ;;21,"63629-1584-03 ")
 ;;1041
 ;;21,"63629-1584-04 ")
 ;;1042
 ;;21,"63629-1584-05 ")
 ;;1043
 ;;21,"63629-1604-01 ")
 ;;673
 ;;21,"63629-1604-02 ")
 ;;674
 ;;21,"63629-1604-03 ")
 ;;675
 ;;21,"63629-1604-04 ")
 ;;676
 ;;21,"63629-2949-01 ")
 ;;886
 ;;21,"63629-2949-02 ")
 ;;887
 ;;21,"63629-2949-03 ")
 ;;888
 ;;21,"63629-2949-04 ")
 ;;889
 ;;21,"63629-2950-01 ")
 ;;750
 ;;21,"63629-2950-02 ")
 ;;751
 ;;21,"63629-2950-03 ")
 ;;752
 ;;21,"63629-2950-04 ")
 ;;753
 ;;21,"63629-3051-01 ")
 ;;578
 ;;21,"63629-3065-01 ")
 ;;457
 ;;21,"63629-3166-01 ")
 ;;427
 ;;21,"63629-3166-02 ")
 ;;428
 ;;21,"63629-3768-01 ")
 ;;29
 ;;21,"63629-3769-01 ")
 ;;70
 ;;21,"63874-0260-01 ")
 ;;890
 ;;21,"63874-0260-02 ")
 ;;891
 ;;21,"63874-0260-07 ")
 ;;892
 ;;21,"63874-0260-14 ")
 ;;893
 ;;21,"63874-0260-20 ")
 ;;894
 ;;21,"63874-0260-30 ")
 ;;895
 ;;21,"63874-0260-50 ")
 ;;896
 ;;21,"63874-0265-01 ")
 ;;320
 ;;21,"63874-0265-20 ")
 ;;321
 ;;21,"63874-0269-01 ")
 ;;677
 ;;21,"63874-0269-02 ")
 ;;678
 ;;21,"63874-0269-03 ")
 ;;679
 ;;21,"63874-0269-07 ")
 ;;680
 ;;21,"63874-0269-10 ")
 ;;681
 ;;21,"63874-0269-12 ")
 ;;682
 ;;21,"63874-0269-14 ")
 ;;683
 ;;21,"63874-0269-15 ")
 ;;684
 ;;21,"63874-0269-20 ")
 ;;685
 ;;21,"63874-0269-21 ")
 ;;686
 ;;21,"63874-0269-24 ")
 ;;687
 ;;21,"63874-0269-30 ")
 ;;688
 ;;21,"63874-0269-40 ")
 ;;689
 ;;21,"63874-0269-60 ")
 ;;690
 ;;21,"63874-0270-01 ")
 ;;937
 ;;21,"63874-0270-07 ")
 ;;938
 ;;21,"63874-0270-30 ")
 ;;939
 ;;21,"63874-0271-01 ")
 ;;754
 ;;21,"63874-0271-07 ")
 ;;755
 ;;21,"63874-0271-14 ")
 ;;756
 ;;21,"63874-0271-15 ")
 ;;757
 ;;21,"63874-0271-30 ")
 ;;758
 ;;21,"63874-0282-01 ")
 ;;1044
 ;;21,"63874-0282-02 ")
 ;;1045
 ;;21,"63874-0282-10 ")
 ;;1046
 ;;21,"63874-0282-14 ")
 ;;1047
 ;;21,"63874-0282-15 ")
 ;;1048
 ;;21,"63874-0282-30 ")
 ;;1049
 ;;21,"64376-0650-01 ")
 ;;153
 ;;21,"64376-0650-05 ")
 ;;154
 ;;21,"64376-0650-31 ")
 ;;155
 ;;21,"64376-0650-90 ")
 ;;156
 ;;21,"64720-0130-10 ")
 ;;119
 ;;21,"64720-0132-10 ")
 ;;30
 ;;21,"64720-0135-10 ")
 ;;71
 ;;21,"64720-0136-10 ")
 ;;97
 ;;21,"64720-0194-01 ")
 ;;157
 ;;21,"64720-0194-10 ")
 ;;158
 ;;21,"64720-0194-50 ")
 ;;159
 ;;21,"64720-0208-10 ")
 ;;272
 ;;21,"64720-0327-09 ")
 ;;213
 ;;21,"64720-0328-09 ")
 ;;192
 ;;21,"64720-0329-09 ")
 ;;205
 ;;21,"64980-0145-01 ")
 ;;160
 ;;21,"66267-0166-07 ")
 ;;1050
 ;;21,"66267-0166-30 ")
 ;;1051
 ;;21,"66267-0166-45 ")
 ;;1052
 ;;21,"66267-0166-60 ")
 ;;1053
 ;;21,"66267-0166-90 ")
 ;;1054
 ;;21,"66336-0133-07 ")
 ;;759
 ;;21,"66336-0133-14 ")
 ;;760
 ;;21,"66336-0133-28 ")
 ;;761
 ;;21,"66336-0133-30 ")
 ;;762
 ;;21,"66336-0185-07 ")
 ;;897
 ;;21,"66336-0185-14 ")
 ;;898
 ;;21,"66336-0185-28 ")
 ;;899
 ;;21,"66336-0185-30 ")
 ;;900
 ;;21,"66336-0185-42 ")
 ;;901
 ;;21,"66336-0191-21 ")
 ;;691
 ;;21,"66336-0191-28 ")
 ;;692
 ;;21,"66336-0191-30 ")
 ;;693
 ;;21,"66336-0191-42 ")
 ;;694
 ;;21,"66336-0191-56 ")
 ;;695
 ;;21,"66336-0191-84 ")
 ;;696
 ;;21,"66336-0344-07 ")
 ;;1055
 ;;21,"66336-0344-14 ")
 ;;1056
 ;;21,"66336-0344-28 ")
 ;;1057
 ;;21,"66336-0344-30 ")
 ;;1058
 ;;21,"66336-0344-56 ")
 ;;1059
 ;;21,"66336-0344-84 ")
 ;;1060
 ;;21,"66336-0426-30 ")
 ;;940
 ;;21,"66336-0562-07 ")
 ;;579
 ;;21,"66336-0678-21 ")
 ;;161
 ;;21,"66336-0689-07 ")
 ;;322
 ;;21,"66336-0689-14 ")
 ;;323
 ;;21,"66336-0689-28 ")
 ;;324
 ;;21,"66336-0689-30 ")
 ;;325
 ;;21,"66336-0763-07 ")
 ;;902
 ;;21,"66336-0763-14 ")
 ;;903
 ;;21,"66336-0763-28 ")
 ;;904
 ;;21,"66336-0763-30 ")
 ;;905
 ;;21,"66336-0779-07 ")
 ;;580
 ;;21,"66336-0779-14 ")
 ;;581
 ;;21,"66336-0779-28 ")
 ;;582
 ;;21,"66336-0864-14 ")
 ;;273
 ;;21,"66336-0864-28 ")
 ;;274
 ;;21,"66336-0864-30 ")
 ;;275
 ;;21,"66336-0864-42 ")
 ;;276
 ;;21,"66336-0864-60 ")
 ;;277
 ;;21,"66336-0864-84 ")
 ;;278
 ;;21,"66336-0992-30 ")
 ;;162
 ;;21,"67386-0102-01 ")
 ;;329
 ;;21,"67767-0103-01 ")
 ;;31
 ;;21,"67767-0106-01 ")
 ;;72
 ;;21,"68115-0050-07 ")
 ;;697
 ;;21,"68115-0050-14 ")
 ;;698
 ;;21,"68115-0050-28 ")
 ;;699
 ;;21,"68115-0050-90 ")
 ;;583
 ;;21,"68115-0051-14 ")
 ;;584
 ;;21,"68115-0051-21 ")
 ;;585
 ;;21,"68115-0051-30 ")
 ;;586
 ;;21,"68115-0108-21 ")
 ;;163
 ;;21,"68115-0108-30 ")
 ;;164
 ;;21,"68115-0109-14 ")
 ;;279
 ;;21,"68115-0109-21 ")
 ;;280
 ;;21,"68115-0109-30 ")
 ;;281
 ;;21,"68115-0110-28 ")
 ;;326
 ;;21,"68115-0273-14 ")
 ;;700
 ;;21,"68115-0273-21 ")
 ;;701
 ;;21,"68115-0273-60 ")
 ;;702
 ;;21,"68115-0277-14 ")
 ;;763
 ;;21,"68115-0277-30 ")
 ;;764
 ;;21,"68115-0278-14 ")
 ;;906
 ;;21,"68115-0278-30 ")
 ;;907
 ;;21,"68115-0279-00 ")
 ;;908
 ;;21,"68115-0279-30 ")
 ;;909
 ;;21,"68188-0132-01 ")
 ;;398
 ;;21,"68188-0135-01 ")
 ;;529
 ;;21,"68188-0137-01 ")
 ;;362
 ;;21,"68188-0881-50 ")
 ;;532
 ;;21,"68188-0882-50 ")
 ;;372
 ;;21,"68387-0690-30 ")
 ;;1061
 ;;21,"68968-5552-03 ")
 ;;381
 ;;21,"68968-5552-30 ")
 ;;382
 ;;21,"68968-5553-03 ")
 ;;385
 ;;21,"68968-5554-03 ")
 ;;460
 ;;21,"68968-5555-03 ")
 ;;479
 ;;9002226,723,.01)
 ;;BGP HEDIS AMPHETAMINE NDC
 ;;9002226,723,.02)
 ;;@
 ;;9002226,723,.04)
 ;;n
 ;;9002226,723,.06)
 ;;@
 ;;9002226,723,.08)
 ;;@
 ;;9002226,723,.09)
 ;;@
 ;;9002226,723,.11)
 ;;@
 ;;9002226,723,.12)
 ;;@
 ;;9002226,723,.13)
 ;;1
 ;;9002226,723,.14)
 ;;@
 ;;9002226,723,.15)
 ;;@
 ;;9002226,723,.16)
 ;;@
 ;;9002226,723,.17)
 ;;@
 ;;9002226,723,3101)
 ;;@
 ;;9002226.02101,"723,00007-3512-20 ",.01)
 ;;00007-3512-20
 ;;9002226.02101,"723,00007-3512-20 ",.02)
 ;;00007-3512-20
 ;;9002226.02101,"723,00007-3512-59 ",.01)
 ;;00007-3512-59
 ;;9002226.02101,"723,00007-3512-59 ",.02)
 ;;00007-3512-59
 ;;9002226.02101,"723,00007-3513-59 ",.01)
 ;;00007-3513-59
 ;;9002226.02101,"723,00007-3513-59 ",.02)
 ;;00007-3513-59
 ;;9002226.02101,"723,00007-3514-59 ",.01)
 ;;00007-3514-59
 ;;9002226.02101,"723,00007-3514-59 ",.02)
 ;;00007-3514-59
 ;;9002226.02101,"723,00007-3519-20 ",.01)
 ;;00007-3519-20
 ;;9002226.02101,"723,00007-3519-20 ",.02)
 ;;00007-3519-20
 ;;9002226.02101,"723,00009-0024-01 ",.01)
 ;;00009-0024-01
 ;;9002226.02101,"723,00009-0024-01 ",.02)
 ;;00009-0024-01
 ;;9002226.02101,"723,00009-0024-02 ",.01)
 ;;00009-0024-02
 ;;9002226.02101,"723,00009-0024-02 ",.02)
 ;;00009-0024-02
 ;;9002226.02101,"723,00068-0697-61 ",.01)
 ;;00068-0697-61
 ;;9002226.02101,"723,00068-0697-61 ",.02)
 ;;00068-0697-61
 ;;9002226.02101,"723,00068-0698-61 ",.01)
 ;;00068-0698-61
 ;;9002226.02101,"723,00068-0698-61 ",.02)
 ;;00068-0698-61
 ;;9002226.02101,"723,00068-0698-62 ",.01)
 ;;00068-0698-62
 ;;9002226.02101,"723,00068-0698-62 ",.02)
 ;;00068-0698-62
 ;;9002226.02101,"723,00078-0370-05 ",.01)
 ;;00078-0370-05
 ;;9002226.02101,"723,00078-0370-05 ",.02)
 ;;00078-0370-05
 ;;9002226.02101,"723,00078-0371-05 ",.01)
 ;;00078-0371-05
 ;;9002226.02101,"723,00078-0371-05 ",.02)
 ;;00078-0371-05
 ;;9002226.02101,"723,00078-0372-05 ",.01)
 ;;00078-0372-05
 ;;9002226.02101,"723,00078-0372-05 ",.02)
 ;;00078-0372-05
 ;;9002226.02101,"723,00078-0380-05 ",.01)
 ;;00078-0380-05
 ;;9002226.02101,"723,00078-0380-05 ",.02)
 ;;00078-0380-05
 ;;9002226.02101,"723,00078-0381-05 ",.01)
 ;;00078-0381-05
 ;;9002226.02101,"723,00078-0381-05 ",.02)
 ;;00078-0381-05
 ;;9002226.02101,"723,00078-0382-05 ",.01)
 ;;00078-0382-05
 ;;9002226.02101,"723,00078-0382-05 ",.02)
 ;;00078-0382-05
 ;;9002226.02101,"723,00078-0424-05 ",.01)
 ;;00078-0424-05
 ;;9002226.02101,"723,00078-0424-05 ",.02)
 ;;00078-0424-05
 ;;9002226.02101,"723,00078-0430-05 ",.01)
 ;;00078-0430-05
 ;;9002226.02101,"723,00078-0430-05 ",.02)
 ;;00078-0430-05
 ;;9002226.02101,"723,00078-0431-05 ",.01)
 ;;00078-0431-05
 ;;9002226.02101,"723,00078-0431-05 ",.02)
 ;;00078-0431-05
 ;;9002226.02101,"723,00078-0432-05 ",.01)
 ;;00078-0432-05
 ;;9002226.02101,"723,00078-0432-05 ",.02)
 ;;00078-0432-05
 ;;9002226.02101,"723,00078-0433-05 ",.01)
 ;;00078-0433-05
 ;;9002226.02101,"723,00078-0433-05 ",.02)
 ;;00078-0433-05
 ;;9002226.02101,"723,00078-0434-05 ",.01)
 ;;00078-0434-05
 ;;9002226.02101,"723,00078-0434-05 ",.02)
 ;;00078-0434-05
 ;;9002226.02101,"723,00078-0439-05 ",.01)
 ;;00078-0439-05
 ;;9002226.02101,"723,00078-0439-05 ",.02)
 ;;00078-0439-05
 ;;9002226.02101,"723,00078-0440-05 ",.01)
 ;;00078-0440-05
 ;;9002226.02101,"723,00078-0440-05 ",.02)
 ;;00078-0440-05
 ;;9002226.02101,"723,00078-0441-05 ",.01)
 ;;00078-0441-05
 ;;9002226.02101,"723,00078-0441-05 ",.02)
 ;;00078-0441-05
 ;;9002226.02101,"723,00078-0442-05 ",.01)
 ;;00078-0442-05
 ;;9002226.02101,"723,00078-0442-05 ",.02)
 ;;00078-0442-05
 ;;9002226.02101,"723,00078-0493-05 ",.01)
 ;;00078-0493-05
 ;;9002226.02101,"723,00078-0493-05 ",.02)
 ;;00078-0493-05
 ;;9002226.02101,"723,00078-0608-05 ",.01)
 ;;00078-0608-05
 ;;9002226.02101,"723,00078-0608-05 ",.02)
 ;;00078-0608-05