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

BGP2VU3.m

Go to the documentation of this file.
BGP2VU3 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 12, 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,"63874-0228-60 ")
 ;;358
 ;;21,"63874-0228-72 ")
 ;;359
 ;;21,"63874-0228-74 ")
 ;;360
 ;;21,"63874-0228-77 ")
 ;;361
 ;;21,"63874-0228-90 ")
 ;;362
 ;;21,"63874-0256-01 ")
 ;;56
 ;;21,"63874-0256-08 ")
 ;;57
 ;;21,"63874-0256-10 ")
 ;;58
 ;;21,"63874-0256-12 ")
 ;;59
 ;;21,"63874-0256-14 ")
 ;;60
 ;;21,"63874-0256-15 ")
 ;;61
 ;;21,"63874-0256-20 ")
 ;;62
 ;;21,"63874-0256-21 ")
 ;;63
 ;;21,"63874-0256-24 ")
 ;;64
 ;;21,"63874-0256-25 ")
 ;;65
 ;;21,"63874-0256-28 ")
 ;;66
 ;;21,"63874-0256-30 ")
 ;;67
 ;;21,"63874-0256-40 ")
 ;;68
 ;;21,"63874-0256-60 ")
 ;;69
 ;;21,"63874-0274-10 ")
 ;;107
 ;;21,"63874-0274-12 ")
 ;;108
 ;;21,"63874-0274-30 ")
 ;;109
 ;;21,"63874-0356-01 ")
 ;;170
 ;;21,"63874-0356-15 ")
 ;;171
 ;;21,"63874-0356-20 ")
 ;;172
 ;;21,"63874-0356-30 ")
 ;;173
 ;;21,"64125-0132-01 ")
 ;;174
 ;;21,"64125-0132-10 ")
 ;;175
 ;;21,"64376-0808-01 ")
 ;;176
 ;;21,"66267-0068-02 ")
 ;;363
 ;;21,"66267-0068-15 ")
 ;;364
 ;;21,"66267-0068-30 ")
 ;;365
 ;;21,"66267-0068-45 ")
 ;;366
 ;;21,"66267-0068-90 ")
 ;;367
 ;;21,"66267-0068-91 ")
 ;;368
 ;;21,"66267-0069-03 ")
 ;;698
 ;;21,"66267-0069-60 ")
 ;;699
 ;;21,"66267-0069-90 ")
 ;;700
 ;;21,"66267-0069-91 ")
 ;;701
 ;;21,"66267-0331-15 ")
 ;;892
 ;;21,"66267-0331-30 ")
 ;;893
 ;;21,"66267-0331-45 ")
 ;;894
 ;;21,"66267-0550-30 ")
 ;;451
 ;;21,"66336-0033-10 ")
 ;;369
 ;;21,"66336-0033-30 ")
 ;;370
 ;;21,"66336-0033-44 ")
 ;;371
 ;;21,"66336-0033-60 ")
 ;;372
 ;;21,"66336-0478-02 ")
 ;;702
 ;;21,"66336-0478-06 ")
 ;;703
 ;;21,"66336-0478-10 ")
 ;;704
 ;;21,"66336-0478-15 ")
 ;;705
 ;;21,"66336-0478-30 ")
 ;;706
 ;;21,"66336-0742-30 ")
 ;;70
 ;;21,"66336-0780-28 ")
 ;;177
 ;;21,"66336-0780-56 ")
 ;;178
 ;;21,"67544-0013-30 ")
 ;;71
 ;;21,"67544-0019-15 ")
 ;;707
 ;;21,"67544-0020-15 ")
 ;;373
 ;;21,"67544-0020-30 ")
 ;;374
 ;;21,"67544-0115-30 ")
 ;;110
 ;;21,"67544-0274-30 ")
 ;;111
 ;;21,"67544-0340-15 ")
 ;;708
 ;;21,"67544-0368-15 ")
 ;;709
 ;;21,"67544-0395-30 ")
 ;;375
 ;;21,"67544-0433-15 ")
 ;;710
 ;;21,"67544-0580-30 ")
 ;;72
 ;;21,"67544-0720-60 ")
 ;;376
 ;;21,"67544-0752-30 ")
 ;;797
 ;;21,"67544-0785-30 ")
 ;;895
 ;;21,"67877-0186-01 ")
 ;;179
 ;;21,"68032-0369-10 ")
 ;;180
 ;;21,"68071-0220-20 ")
 ;;896
 ;;21,"68071-0220-30 ")
 ;;798
 ;;21,"68071-0734-60 ")
 ;;73
 ;;21,"68084-0359-01 ")
 ;;711
 ;;21,"68084-0359-11 ")
 ;;712
 ;;21,"68115-0074-30 ")
 ;;112
 ;;21,"68115-0098-00 ")
 ;;377
 ;;21,"68115-0098-01 ")
 ;;378
 ;;21,"68115-0098-02 ")
 ;;379
 ;;21,"68115-0098-10 ")
 ;;380
 ;;21,"68115-0098-15 ")
 ;;381
 ;;21,"68115-0098-30 ")
 ;;382
 ;;21,"68115-0098-60 ")
 ;;383
 ;;21,"68115-0098-90 ")
 ;;384
 ;;21,"68115-0098-96 ")
 ;;385
 ;;21,"68115-0098-99 ")
 ;;386
 ;;21,"68115-0099-15 ")
 ;;452
 ;;21,"68115-0099-30 ")
 ;;453
 ;;21,"68115-0100-01 ")
 ;;713
 ;;21,"68115-0100-02 ")
 ;;714
 ;;21,"68115-0100-06 ")
 ;;715
 ;;21,"68115-0100-10 ")
 ;;716
 ;;21,"68115-0100-15 ")
 ;;717
 ;;21,"68115-0100-20 ")
 ;;718
 ;;21,"68115-0100-30 ")
 ;;719
 ;;21,"68115-0100-60 ")
 ;;720
 ;;21,"68115-0100-90 ")
 ;;721
 ;;21,"68115-0146-00 ")
 ;;897
 ;;21,"68115-0146-14 ")
 ;;898
 ;;21,"68115-0146-30 ")
 ;;899
 ;;21,"68115-0146-48 ")
 ;;900
 ;;21,"68115-0146-60 ")
 ;;901
 ;;21,"68115-0401-00 ")
 ;;799
 ;;21,"68115-0401-20 ")
 ;;800
 ;;21,"68115-0401-30 ")
 ;;801
 ;;21,"68115-0401-60 ")
 ;;802
 ;;21,"68115-0744-00 ")
 ;;181
 ;;21,"68387-0474-30 ")
 ;;722
 ;;21,"68387-0475-30 ")
 ;;387
 ;;21,"68387-0475-90 ")
 ;;388
 ;;21,"68387-0610-15 ")
 ;;902
 ;;21,"68387-0610-30 ")
 ;;903
 ;;21,"68682-0409-10 ")
 ;;182
 ;;9002226,729,.01)
 ;;BGP HEDIS BENZODIAZEPINE NDC
 ;;9002226,729,.02)
 ;;@
 ;;9002226,729,.04)
 ;;n
 ;;9002226,729,.06)
 ;;@
 ;;9002226,729,.08)
 ;;@
 ;;9002226,729,.09)
 ;;3120312
 ;;9002226,729,.11)
 ;;@
 ;;9002226,729,.12)
 ;;@
 ;;9002226,729,.13)
 ;;1
 ;;9002226,729,.14)
 ;;@
 ;;9002226,729,.15)
 ;;@
 ;;9002226,729,.16)
 ;;@
 ;;9002226,729,.17)
 ;;@
 ;;9002226,729,3101)
 ;;@
 ;;9002226.02101,"729,00054-3185-44 ",.01)
 ;;00054-3185-44
 ;;9002226.02101,"729,00054-3185-44 ",.02)
 ;;00054-3185-44
 ;;9002226.02101,"729,00054-3188-63 ",.01)
 ;;00054-3188-63
 ;;9002226.02101,"729,00054-3188-63 ",.02)
 ;;00054-3188-63
 ;;9002226.02101,"729,00054-8207-16 ",.01)
 ;;00054-8207-16
 ;;9002226.02101,"729,00054-8207-16 ",.02)
 ;;00054-8207-16
 ;;9002226.02101,"729,00140-0004-01 ",.01)
 ;;00140-0004-01
 ;;9002226.02101,"729,00140-0004-01 ",.02)
 ;;00140-0004-01
 ;;9002226.02101,"729,00140-0004-32 ",.01)
 ;;00140-0004-32
 ;;9002226.02101,"729,00140-0004-32 ",.02)
 ;;00140-0004-32
 ;;9002226.02101,"729,00140-0005-01 ",.01)
 ;;00140-0005-01
 ;;9002226.02101,"729,00140-0005-01 ",.02)
 ;;00140-0005-01
 ;;9002226.02101,"729,00140-0005-14 ",.01)
 ;;00140-0005-14
 ;;9002226.02101,"729,00140-0005-14 ",.02)
 ;;00140-0005-14
 ;;9002226.02101,"729,00140-0005-35 ",.01)
 ;;00140-0005-35
 ;;9002226.02101,"729,00140-0005-35 ",.02)
 ;;00140-0005-35
 ;;9002226.02101,"729,00140-0006-01 ",.01)
 ;;00140-0006-01
 ;;9002226.02101,"729,00140-0006-01 ",.02)
 ;;00140-0006-01
 ;;9002226.02101,"729,00140-0006-14 ",.01)
 ;;00140-0006-14
 ;;9002226.02101,"729,00140-0006-14 ",.02)
 ;;00140-0006-14
 ;;9002226.02101,"729,00140-0006-35 ",.01)
 ;;00140-0006-35
 ;;9002226.02101,"729,00140-0006-35 ",.02)
 ;;00140-0006-35
 ;;9002226.02101,"729,00143-3367-01 ",.01)
 ;;00143-3367-01
 ;;9002226.02101,"729,00143-3367-01 ",.02)
 ;;00143-3367-01
 ;;9002226.02101,"729,00143-3367-05 ",.01)
 ;;00143-3367-05
 ;;9002226.02101,"729,00143-3367-05 ",.02)
 ;;00143-3367-05
 ;;9002226.02101,"729,00143-3370-01 ",.01)
 ;;00143-3370-01
 ;;9002226.02101,"729,00143-3370-01 ",.02)
 ;;00143-3370-01
 ;;9002226.02101,"729,00143-3370-05 ",.01)
 ;;00143-3370-05
 ;;9002226.02101,"729,00143-3370-05 ",.02)
 ;;00143-3370-05
 ;;9002226.02101,"729,00172-3925-60 ",.01)
 ;;00172-3925-60
 ;;9002226.02101,"729,00172-3925-60 ",.02)
 ;;00172-3925-60
 ;;9002226.02101,"729,00172-3925-70 ",.01)
 ;;00172-3925-70
 ;;9002226.02101,"729,00172-3925-70 ",.02)
 ;;00172-3925-70
 ;;9002226.02101,"729,00172-3926-60 ",.01)
 ;;00172-3926-60
 ;;9002226.02101,"729,00172-3926-60 ",.02)
 ;;00172-3926-60
 ;;9002226.02101,"729,00172-3926-70 ",.01)
 ;;00172-3926-70
 ;;9002226.02101,"729,00172-3926-70 ",.02)
 ;;00172-3926-70
 ;;9002226.02101,"729,00172-3926-80 ",.01)
 ;;00172-3926-80
 ;;9002226.02101,"729,00172-3926-80 ",.02)
 ;;00172-3926-80
 ;;9002226.02101,"729,00172-3927-60 ",.01)
 ;;00172-3927-60
 ;;9002226.02101,"729,00172-3927-60 ",.02)
 ;;00172-3927-60
 ;;9002226.02101,"729,00172-3927-70 ",.01)
 ;;00172-3927-70
 ;;9002226.02101,"729,00172-3927-70 ",.02)
 ;;00172-3927-70
 ;;9002226.02101,"729,00172-3927-80 ",.01)
 ;;00172-3927-80
 ;;9002226.02101,"729,00172-3927-80 ",.02)
 ;;00172-3927-80
 ;;9002226.02101,"729,00182-1757-01 ",.01)
 ;;00182-1757-01
 ;;9002226.02101,"729,00182-1757-01 ",.02)
 ;;00182-1757-01
 ;;9002226.02101,"729,00182-1757-05 ",.01)
 ;;00182-1757-05
 ;;9002226.02101,"729,00182-1757-05 ",.02)
 ;;00182-1757-05
 ;;9002226.02101,"729,00182-1757-10 ",.01)
 ;;00182-1757-10
 ;;9002226.02101,"729,00182-1757-10 ",.02)
 ;;00182-1757-10
 ;;9002226.02101,"729,00182-1757-89 ",.01)
 ;;00182-1757-89
 ;;9002226.02101,"729,00182-1757-89 ",.02)
 ;;00182-1757-89
 ;;9002226.02101,"729,00182-1818-01 ",.01)
 ;;00182-1818-01
 ;;9002226.02101,"729,00182-1818-01 ",.02)
 ;;00182-1818-01
 ;;9002226.02101,"729,00182-1818-05 ",.01)
 ;;00182-1818-05
 ;;9002226.02101,"729,00182-1818-05 ",.02)
 ;;00182-1818-05
 ;;9002226.02101,"729,00187-3750-10 ",.01)
 ;;00187-3750-10
 ;;9002226.02101,"729,00187-3750-10 ",.02)
 ;;00187-3750-10
 ;;9002226.02101,"729,00187-3751-10 ",.01)
 ;;00187-3751-10
 ;;9002226.02101,"729,00187-3751-10 ",.02)
 ;;00187-3751-10
 ;;9002226.02101,"729,00187-3758-10 ",.01)
 ;;00187-3758-10
 ;;9002226.02101,"729,00187-3758-10 ",.02)
 ;;00187-3758-10
 ;;9002226.02101,"729,00187-3805-10 ",.01)
 ;;00187-3805-10
 ;;9002226.02101,"729,00187-3805-10 ",.02)
 ;;00187-3805-10
 ;;9002226.02101,"729,00187-3806-10 ",.01)
 ;;00187-3806-10
 ;;9002226.02101,"729,00187-3806-10 ",.02)
 ;;00187-3806-10
 ;;9002226.02101,"729,00187-4051-10 ",.01)
 ;;00187-4051-10
 ;;9002226.02101,"729,00187-4051-10 ",.02)
 ;;00187-4051-10
 ;;9002226.02101,"729,00187-4052-10 ",.01)
 ;;00187-4052-10
 ;;9002226.02101,"729,00187-4052-10 ",.02)
 ;;00187-4052-10
 ;;9002226.02101,"729,00187-4100-10 ",.01)
 ;;00187-4100-10
 ;;9002226.02101,"729,00187-4100-10 ",.02)
 ;;00187-4100-10
 ;;9002226.02101,"729,00247-0186-15 ",.01)
 ;;00247-0186-15
 ;;9002226.02101,"729,00247-0186-15 ",.02)
 ;;00247-0186-15
 ;;9002226.02101,"729,00247-0186-16 ",.01)
 ;;00247-0186-16
 ;;9002226.02101,"729,00247-0186-16 ",.02)
 ;;00247-0186-16
 ;;9002226.02101,"729,00247-0186-20 ",.01)
 ;;00247-0186-20
 ;;9002226.02101,"729,00247-0186-20 ",.02)
 ;;00247-0186-20
 ;;9002226.02101,"729,00247-0186-24 ",.01)
 ;;00247-0186-24
 ;;9002226.02101,"729,00247-0186-24 ",.02)
 ;;00247-0186-24
 ;;9002226.02101,"729,00247-0186-30 ",.01)
 ;;00247-0186-30
 ;;9002226.02101,"729,00247-0186-30 ",.02)
 ;;00247-0186-30
 ;;9002226.02101,"729,00247-0187-00 ",.01)
 ;;00247-0187-00
 ;;9002226.02101,"729,00247-0187-00 ",.02)
 ;;00247-0187-00
 ;;9002226.02101,"729,00247-0187-01 ",.01)
 ;;00247-0187-01
 ;;9002226.02101,"729,00247-0187-01 ",.02)
 ;;00247-0187-01
 ;;9002226.02101,"729,00247-0187-02 ",.01)
 ;;00247-0187-02
 ;;9002226.02101,"729,00247-0187-02 ",.02)
 ;;00247-0187-02
 ;;9002226.02101,"729,00247-0187-03 ",.01)
 ;;00247-0187-03
 ;;9002226.02101,"729,00247-0187-03 ",.02)
 ;;00247-0187-03
 ;;9002226.02101,"729,00247-0187-04 ",.01)
 ;;00247-0187-04
 ;;9002226.02101,"729,00247-0187-04 ",.02)
 ;;00247-0187-04
 ;;9002226.02101,"729,00247-0187-05 ",.01)
 ;;00247-0187-05
 ;;9002226.02101,"729,00247-0187-05 ",.02)
 ;;00247-0187-05
 ;;9002226.02101,"729,00247-0187-06 ",.01)
 ;;00247-0187-06
 ;;9002226.02101,"729,00247-0187-06 ",.02)
 ;;00247-0187-06
 ;;9002226.02101,"729,00247-0187-07 ",.01)
 ;;00247-0187-07
 ;;9002226.02101,"729,00247-0187-07 ",.02)
 ;;00247-0187-07
 ;;9002226.02101,"729,00247-0187-10 ",.01)
 ;;00247-0187-10
 ;;9002226.02101,"729,00247-0187-10 ",.02)
 ;;00247-0187-10
 ;;9002226.02101,"729,00247-0187-12 ",.01)
 ;;00247-0187-12
 ;;9002226.02101,"729,00247-0187-12 ",.02)
 ;;00247-0187-12
 ;;9002226.02101,"729,00247-0187-14 ",.01)
 ;;00247-0187-14
 ;;9002226.02101,"729,00247-0187-14 ",.02)
 ;;00247-0187-14
 ;;9002226.02101,"729,00247-0187-15 ",.01)
 ;;00247-0187-15
 ;;9002226.02101,"729,00247-0187-15 ",.02)
 ;;00247-0187-15
 ;;9002226.02101,"729,00247-0187-20 ",.01)
 ;;00247-0187-20
 ;;9002226.02101,"729,00247-0187-20 ",.02)
 ;;00247-0187-20
 ;;9002226.02101,"729,00247-0187-21 ",.01)
 ;;00247-0187-21
 ;;9002226.02101,"729,00247-0187-21 ",.02)
 ;;00247-0187-21
 ;;9002226.02101,"729,00247-0187-28 ",.01)
 ;;00247-0187-28
 ;;9002226.02101,"729,00247-0187-28 ",.02)
 ;;00247-0187-28
 ;;9002226.02101,"729,00247-0187-30 ",.01)
 ;;00247-0187-30
 ;;9002226.02101,"729,00247-0187-30 ",.02)
 ;;00247-0187-30
 ;;9002226.02101,"729,00247-0187-50 ",.01)
 ;;00247-0187-50
 ;;9002226.02101,"729,00247-0187-50 ",.02)
 ;;00247-0187-50
 ;;9002226.02101,"729,00247-0187-60 ",.01)
 ;;00247-0187-60
 ;;9002226.02101,"729,00247-0187-60 ",.02)
 ;;00247-0187-60
 ;;9002226.02101,"729,00247-0187-77 ",.01)
 ;;00247-0187-77
 ;;9002226.02101,"729,00247-0187-77 ",.02)
 ;;00247-0187-77
 ;;9002226.02101,"729,00247-0187-90 ",.01)
 ;;00247-0187-90
 ;;9002226.02101,"729,00247-0187-90 ",.02)
 ;;00247-0187-90
 ;;9002226.02101,"729,00247-0187-98 ",.01)
 ;;00247-0187-98
 ;;9002226.02101,"729,00247-0187-98 ",.02)
 ;;00247-0187-98
 ;;9002226.02101,"729,00247-0345-00 ",.01)
 ;;00247-0345-00
 ;;9002226.02101,"729,00247-0345-00 ",.02)
 ;;00247-0345-00
 ;;9002226.02101,"729,00247-0345-02 ",.01)
 ;;00247-0345-02
 ;;9002226.02101,"729,00247-0345-02 ",.02)
 ;;00247-0345-02
 ;;9002226.02101,"729,00247-0345-03 ",.01)
 ;;00247-0345-03
 ;;9002226.02101,"729,00247-0345-03 ",.02)
 ;;00247-0345-03
 ;;9002226.02101,"729,00247-0345-07 ",.01)
 ;;00247-0345-07
 ;;9002226.02101,"729,00247-0345-07 ",.02)
 ;;00247-0345-07
 ;;9002226.02101,"729,00247-0345-10 ",.01)
 ;;00247-0345-10
 ;;9002226.02101,"729,00247-0345-10 ",.02)
 ;;00247-0345-10
 ;;9002226.02101,"729,00247-0345-15 ",.01)
 ;;00247-0345-15
 ;;9002226.02101,"729,00247-0345-15 ",.02)
 ;;00247-0345-15
 ;;9002226.02101,"729,00247-0345-20 ",.01)
 ;;00247-0345-20
 ;;9002226.02101,"729,00247-0345-20 ",.02)
 ;;00247-0345-20
 ;;9002226.02101,"729,00247-0345-30 ",.01)
 ;;00247-0345-30
 ;;9002226.02101,"729,00247-0345-30 ",.02)
 ;;00247-0345-30
 ;;9002226.02101,"729,00247-0345-98 ",.01)
 ;;00247-0345-98
 ;;9002226.02101,"729,00247-0345-98 ",.02)
 ;;00247-0345-98
 ;;9002226.02101,"729,00247-0430-00 ",.01)
 ;;00247-0430-00
 ;;9002226.02101,"729,00247-0430-00 ",.02)
 ;;00247-0430-00
 ;;9002226.02101,"729,00247-0430-02 ",.01)
 ;;00247-0430-02
 ;;9002226.02101,"729,00247-0430-02 ",.02)
 ;;00247-0430-02
 ;;9002226.02101,"729,00247-0430-03 ",.01)
 ;;00247-0430-03
 ;;9002226.02101,"729,00247-0430-03 ",.02)
 ;;00247-0430-03
 ;;9002226.02101,"729,00247-0430-04 ",.01)
 ;;00247-0430-04
 ;;9002226.02101,"729,00247-0430-04 ",.02)
 ;;00247-0430-04