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

BGP2VQ2.m

Go to the documentation of this file.
BGP2VQ2 ;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-0277-60 ")
 ;;266
 ;;21,"63874-0309-01 ")
 ;;75
 ;;21,"63874-0309-02 ")
 ;;76
 ;;21,"63874-0309-04 ")
 ;;77
 ;;21,"63874-0309-15 ")
 ;;78
 ;;21,"63874-0309-20 ")
 ;;79
 ;;21,"63874-0309-30 ")
 ;;80
 ;;21,"63874-0309-40 ")
 ;;81
 ;;21,"63874-0309-42 ")
 ;;82
 ;;21,"63874-0309-50 ")
 ;;83
 ;;21,"63874-0309-60 ")
 ;;84
 ;;21,"63874-0309-72 ")
 ;;85
 ;;21,"63874-0309-74 ")
 ;;86
 ;;21,"63874-0309-77 ")
 ;;87
 ;;21,"63874-0724-12 ")
 ;;127
 ;;21,"64125-0102-01 ")
 ;;279
 ;;21,"64125-0128-10 ")
 ;;88
 ;;21,"64543-0111-01 ")
 ;;370
 ;;21,"64543-0112-01 ")
 ;;434
 ;;21,"64543-0114-01 ")
 ;;349
 ;;21,"64543-0118-90 ")
 ;;396
 ;;21,"65162-0301-10 ")
 ;;251
 ;;21,"65162-0301-11 ")
 ;;252
 ;;21,"65234-0074-05 ")
 ;;138
 ;;21,"65234-0074-10 ")
 ;;139
 ;;21,"66213-0421-10 ")
 ;;12
 ;;21,"66213-0421-50 ")
 ;;13
 ;;21,"66213-0422-04 ")
 ;;128
 ;;21,"66213-0422-16 ")
 ;;129
 ;;21,"66213-0423-04 ")
 ;;130
 ;;21,"66213-0423-16 ")
 ;;131
 ;;21,"66213-0425-10 ")
 ;;89
 ;;21,"66213-0425-11 ")
 ;;90
 ;;21,"66336-0042-15 ")
 ;;91
 ;;21,"66336-0042-20 ")
 ;;92
 ;;21,"66336-0042-30 ")
 ;;93
 ;;21,"66663-0219-01 ")
 ;;446
 ;;21,"66663-0702-01 ")
 ;;288
 ;;21,"66934-0200-30 ")
 ;;390
 ;;21,"66993-0402-02 ")
 ;;394
 ;;21,"67544-0021-30 ")
 ;;253
 ;;21,"67544-0411-30 ")
 ;;254
 ;;21,"67544-0577-30 ")
 ;;255
 ;;21,"68013-0005-01 ")
 ;;350
 ;;21,"68013-0011-01 ")
 ;;335
 ;;21,"68013-0018-01 ")
 ;;371
 ;;21,"68013-0018-90 ")
 ;;372
 ;;21,"68032-0251-90 ")
 ;;397
 ;;21,"68032-0256-10 ")
 ;;14
 ;;21,"68032-0281-90 ")
 ;;447
 ;;21,"68032-0287-10 ")
 ;;459
 ;;21,"68032-0293-10 ")
 ;;445
 ;;21,"68032-0334-10 ")
 ;;460
 ;;21,"68032-0395-16 ")
 ;;133
 ;;21,"68115-0041-20 ")
 ;;94
 ;;21,"68115-0041-30 ")
 ;;95
 ;;21,"68115-0118-15 ")
 ;;256
 ;;21,"68115-0118-20 ")
 ;;257
 ;;21,"68115-0118-30 ")
 ;;258
 ;;21,"68115-0678-00 ")
 ;;336
 ;;21,"68115-0897-04 ")
 ;;132
 ;;21,"68220-0112-10 ")
 ;;337
 ;;21,"68220-0112-50 ")
 ;;338
 ;;21,"68220-0113-10 ")
 ;;373
 ;;21,"68220-0113-50 ")
 ;;374
 ;;21,"68220-0115-10 ")
 ;;435
 ;;21,"68220-0118-10 ")
 ;;339
 ;;21,"68387-0544-12 ")
 ;;259
 ;;9002226,733,.01)
 ;;BGP HEDIS BELLADONNA ALKA NDC
 ;;9002226,733,.02)
 ;;@
 ;;9002226,733,.04)
 ;;n
 ;;9002226,733,.06)
 ;;@
 ;;9002226,733,.08)
 ;;@
 ;;9002226,733,.09)
 ;;3120312
 ;;9002226,733,.11)
 ;;@
 ;;9002226,733,.12)
 ;;@
 ;;9002226,733,.13)
 ;;1
 ;;9002226,733,.14)
 ;;@
 ;;9002226,733,.15)
 ;;@
 ;;9002226,733,.16)
 ;;@
 ;;9002226,733,.17)
 ;;@
 ;;9002226,733,3101)
 ;;@
 ;;9002226.02101,"733,00025-0061-31 ",.01)
 ;;00025-0061-31
 ;;9002226.02101,"733,00025-0061-31 ",.02)
 ;;00025-0061-31
 ;;9002226.02101,"733,00025-0061-51 ",.01)
 ;;00025-0061-51
 ;;9002226.02101,"733,00025-0061-51 ",.02)
 ;;00025-0061-51
 ;;9002226.02101,"733,00025-0061-52 ",.01)
 ;;00025-0061-52
 ;;9002226.02101,"733,00025-0061-52 ",.02)
 ;;00025-0061-52
 ;;9002226.02101,"733,00025-0061-55 ",.01)
 ;;00025-0061-55
 ;;9002226.02101,"733,00025-0061-55 ",.02)
 ;;00025-0061-55
 ;;9002226.02101,"733,00025-0066-02 ",.01)
 ;;00025-0066-02
 ;;9002226.02101,"733,00025-0066-02 ",.02)
 ;;00025-0066-02
 ;;9002226.02101,"733,00054-3194-46 ",.01)
 ;;00054-3194-46
 ;;9002226.02101,"733,00054-3194-46 ",.02)
 ;;00054-3194-46
 ;;9002226.02101,"733,00076-0111-01 ",.01)
 ;;00076-0111-01
 ;;9002226.02101,"733,00076-0111-01 ",.02)
 ;;00076-0111-01
 ;;9002226.02101,"733,00076-0901-01 ",.01)
 ;;00076-0901-01
 ;;9002226.02101,"733,00076-0901-01 ",.02)
 ;;00076-0901-01
 ;;9002226.02101,"733,00076-0902-01 ",.01)
 ;;00076-0902-01
 ;;9002226.02101,"733,00076-0902-01 ",.02)
 ;;00076-0902-01
 ;;9002226.02101,"733,00076-0903-01 ",.01)
 ;;00076-0903-01
 ;;9002226.02101,"733,00076-0903-01 ",.02)
 ;;00076-0903-01
 ;;9002226.02101,"733,00091-3111-01 ",.01)
 ;;00091-3111-01
 ;;9002226.02101,"733,00091-3111-01 ",.02)
 ;;00091-3111-01
 ;;9002226.02101,"733,00091-3531-01 ",.01)
 ;;00091-3531-01
 ;;9002226.02101,"733,00091-3531-01 ",.02)
 ;;00091-3531-01
 ;;9002226.02101,"733,00091-3531-05 ",.01)
 ;;00091-3531-05
 ;;9002226.02101,"733,00091-3531-05 ",.02)
 ;;00091-3531-05
 ;;9002226.02101,"733,00091-3532-01 ",.01)
 ;;00091-3532-01
 ;;9002226.02101,"733,00091-3532-01 ",.02)
 ;;00091-3532-01
 ;;9002226.02101,"733,00091-3532-05 ",.01)
 ;;00091-3532-05
 ;;9002226.02101,"733,00091-3532-05 ",.02)
 ;;00091-3532-05
 ;;9002226.02101,"733,00091-3537-01 ",.01)
 ;;00091-3537-01
 ;;9002226.02101,"733,00091-3537-01 ",.02)
 ;;00091-3537-01
 ;;9002226.02101,"733,00091-3537-05 ",.01)
 ;;00091-3537-05
 ;;9002226.02101,"733,00091-3537-05 ",.02)
 ;;00091-3537-05
 ;;9002226.02101,"733,00091-3538-01 ",.01)
 ;;00091-3538-01
 ;;9002226.02101,"733,00091-3538-01 ",.02)
 ;;00091-3538-01
 ;;9002226.02101,"733,00091-3538-05 ",.01)
 ;;00091-3538-05
 ;;9002226.02101,"733,00091-3538-05 ",.02)
 ;;00091-3538-05
 ;;9002226.02101,"733,00091-4532-16 ",.01)
 ;;00091-4532-16
 ;;9002226.02101,"733,00091-4532-16 ",.02)
 ;;00091-4532-16
 ;;9002226.02101,"733,00091-4538-15 ",.01)
 ;;00091-4538-15
 ;;9002226.02101,"733,00091-4538-15 ",.02)
 ;;00091-4538-15
 ;;9002226.02101,"733,00115-4652-01 ",.01)
 ;;00115-4652-01
 ;;9002226.02101,"733,00115-4652-01 ",.02)
 ;;00115-4652-01
 ;;9002226.02101,"733,00115-4652-03 ",.01)
 ;;00115-4652-03
 ;;9002226.02101,"733,00115-4652-03 ",.02)
 ;;00115-4652-03
 ;;9002226.02101,"733,00143-1140-10 ",.01)
 ;;00143-1140-10
 ;;9002226.02101,"733,00143-1140-10 ",.02)
 ;;00143-1140-10
 ;;9002226.02101,"733,00143-1140-51 ",.01)
 ;;00143-1140-51
 ;;9002226.02101,"733,00143-1140-51 ",.02)
 ;;00143-1140-51
 ;;9002226.02101,"733,00182-6136-40 ",.01)
 ;;00182-6136-40
 ;;9002226.02101,"733,00182-6136-40 ",.02)
 ;;00182-6136-40
 ;;9002226.02101,"733,00185-0024-01 ",.01)
 ;;00185-0024-01
 ;;9002226.02101,"733,00185-0024-01 ",.02)
 ;;00185-0024-01
 ;;9002226.02101,"733,00185-0024-05 ",.01)
 ;;00185-0024-05
 ;;9002226.02101,"733,00185-0024-05 ",.02)
 ;;00185-0024-05
 ;;9002226.02101,"733,00185-0024-10 ",.01)
 ;;00185-0024-10
 ;;9002226.02101,"733,00185-0024-10 ",.02)
 ;;00185-0024-10
 ;;9002226.02101,"733,00187-0500-01 ",.01)
 ;;00187-0500-01
 ;;9002226.02101,"733,00187-0500-01 ",.02)
 ;;00187-0500-01
 ;;9002226.02101,"733,00187-0500-02 ",.01)
 ;;00187-0500-02
 ;;9002226.02101,"733,00187-0500-02 ",.02)
 ;;00187-0500-02
 ;;9002226.02101,"733,00225-0295-15 ",.01)
 ;;00225-0295-15
 ;;9002226.02101,"733,00225-0295-15 ",.02)
 ;;00225-0295-15
 ;;9002226.02101,"733,00225-0295-20 ",.01)
 ;;00225-0295-20
 ;;9002226.02101,"733,00225-0295-20 ",.02)
 ;;00225-0295-20
 ;;9002226.02101,"733,00247-0095-00 ",.01)
 ;;00247-0095-00
 ;;9002226.02101,"733,00247-0095-00 ",.02)
 ;;00247-0095-00
 ;;9002226.02101,"733,00247-0095-03 ",.01)
 ;;00247-0095-03
 ;;9002226.02101,"733,00247-0095-03 ",.02)
 ;;00247-0095-03
 ;;9002226.02101,"733,00247-0095-04 ",.01)
 ;;00247-0095-04
 ;;9002226.02101,"733,00247-0095-04 ",.02)
 ;;00247-0095-04
 ;;9002226.02101,"733,00247-0095-06 ",.01)
 ;;00247-0095-06
 ;;9002226.02101,"733,00247-0095-06 ",.02)
 ;;00247-0095-06
 ;;9002226.02101,"733,00247-0095-08 ",.01)
 ;;00247-0095-08
 ;;9002226.02101,"733,00247-0095-08 ",.02)
 ;;00247-0095-08
 ;;9002226.02101,"733,00247-0095-10 ",.01)
 ;;00247-0095-10
 ;;9002226.02101,"733,00247-0095-10 ",.02)
 ;;00247-0095-10
 ;;9002226.02101,"733,00247-0095-12 ",.01)
 ;;00247-0095-12
 ;;9002226.02101,"733,00247-0095-12 ",.02)
 ;;00247-0095-12
 ;;9002226.02101,"733,00247-0095-15 ",.01)
 ;;00247-0095-15
 ;;9002226.02101,"733,00247-0095-15 ",.02)
 ;;00247-0095-15
 ;;9002226.02101,"733,00247-0095-16 ",.01)
 ;;00247-0095-16
 ;;9002226.02101,"733,00247-0095-16 ",.02)
 ;;00247-0095-16
 ;;9002226.02101,"733,00247-0095-18 ",.01)
 ;;00247-0095-18
 ;;9002226.02101,"733,00247-0095-18 ",.02)
 ;;00247-0095-18
 ;;9002226.02101,"733,00247-0095-20 ",.01)
 ;;00247-0095-20
 ;;9002226.02101,"733,00247-0095-20 ",.02)
 ;;00247-0095-20
 ;;9002226.02101,"733,00247-0095-30 ",.01)
 ;;00247-0095-30
 ;;9002226.02101,"733,00247-0095-30 ",.02)
 ;;00247-0095-30
 ;;9002226.02101,"733,00247-0095-40 ",.01)
 ;;00247-0095-40
 ;;9002226.02101,"733,00247-0095-40 ",.02)
 ;;00247-0095-40
 ;;9002226.02101,"733,00247-0095-50 ",.01)
 ;;00247-0095-50
 ;;9002226.02101,"733,00247-0095-50 ",.02)
 ;;00247-0095-50
 ;;9002226.02101,"733,00247-0138-00 ",.01)
 ;;00247-0138-00
 ;;9002226.02101,"733,00247-0138-00 ",.02)
 ;;00247-0138-00
 ;;9002226.02101,"733,00247-0138-03 ",.01)
 ;;00247-0138-03
 ;;9002226.02101,"733,00247-0138-03 ",.02)
 ;;00247-0138-03
 ;;9002226.02101,"733,00247-0138-04 ",.01)
 ;;00247-0138-04
 ;;9002226.02101,"733,00247-0138-04 ",.02)
 ;;00247-0138-04
 ;;9002226.02101,"733,00247-0138-06 ",.01)
 ;;00247-0138-06
 ;;9002226.02101,"733,00247-0138-06 ",.02)
 ;;00247-0138-06
 ;;9002226.02101,"733,00247-0138-08 ",.01)
 ;;00247-0138-08
 ;;9002226.02101,"733,00247-0138-08 ",.02)
 ;;00247-0138-08
 ;;9002226.02101,"733,00247-0138-10 ",.01)
 ;;00247-0138-10
 ;;9002226.02101,"733,00247-0138-10 ",.02)
 ;;00247-0138-10
 ;;9002226.02101,"733,00247-0138-12 ",.01)
 ;;00247-0138-12
 ;;9002226.02101,"733,00247-0138-12 ",.02)
 ;;00247-0138-12
 ;;9002226.02101,"733,00247-0138-15 ",.01)
 ;;00247-0138-15
 ;;9002226.02101,"733,00247-0138-15 ",.02)
 ;;00247-0138-15
 ;;9002226.02101,"733,00247-0138-16 ",.01)
 ;;00247-0138-16
 ;;9002226.02101,"733,00247-0138-16 ",.02)
 ;;00247-0138-16
 ;;9002226.02101,"733,00247-0138-20 ",.01)
 ;;00247-0138-20
 ;;9002226.02101,"733,00247-0138-20 ",.02)
 ;;00247-0138-20
 ;;9002226.02101,"733,00247-0138-24 ",.01)
 ;;00247-0138-24
 ;;9002226.02101,"733,00247-0138-24 ",.02)
 ;;00247-0138-24
 ;;9002226.02101,"733,00247-0138-28 ",.01)
 ;;00247-0138-28
 ;;9002226.02101,"733,00247-0138-28 ",.02)
 ;;00247-0138-28
 ;;9002226.02101,"733,00247-0138-30 ",.01)
 ;;00247-0138-30
 ;;9002226.02101,"733,00247-0138-30 ",.02)
 ;;00247-0138-30
 ;;9002226.02101,"733,00247-0138-40 ",.01)
 ;;00247-0138-40
 ;;9002226.02101,"733,00247-0138-40 ",.02)
 ;;00247-0138-40
 ;;9002226.02101,"733,00247-0507-04 ",.01)
 ;;00247-0507-04
 ;;9002226.02101,"733,00247-0507-04 ",.02)
 ;;00247-0507-04
 ;;9002226.02101,"733,00247-0507-05 ",.01)
 ;;00247-0507-05
 ;;9002226.02101,"733,00247-0507-05 ",.02)
 ;;00247-0507-05
 ;;9002226.02101,"733,00247-0507-10 ",.01)
 ;;00247-0507-10
 ;;9002226.02101,"733,00247-0507-10 ",.02)
 ;;00247-0507-10
 ;;9002226.02101,"733,00247-0507-30 ",.01)
 ;;00247-0507-30
 ;;9002226.02101,"733,00247-0507-30 ",.02)
 ;;00247-0507-30
 ;;9002226.02101,"733,00247-0507-52 ",.01)
 ;;00247-0507-52
 ;;9002226.02101,"733,00247-0507-52 ",.02)
 ;;00247-0507-52
 ;;9002226.02101,"733,00247-0507-60 ",.01)
 ;;00247-0507-60
 ;;9002226.02101,"733,00247-0507-60 ",.02)
 ;;00247-0507-60
 ;;9002226.02101,"733,00247-0507-77 ",.01)
 ;;00247-0507-77
 ;;9002226.02101,"733,00247-0507-77 ",.02)
 ;;00247-0507-77
 ;;9002226.02101,"733,00247-0509-03 ",.01)
 ;;00247-0509-03
 ;;9002226.02101,"733,00247-0509-03 ",.02)
 ;;00247-0509-03
 ;;9002226.02101,"733,00247-0509-04 ",.01)
 ;;00247-0509-04
 ;;9002226.02101,"733,00247-0509-04 ",.02)
 ;;00247-0509-04
 ;;9002226.02101,"733,00247-0509-08 ",.01)
 ;;00247-0509-08
 ;;9002226.02101,"733,00247-0509-08 ",.02)
 ;;00247-0509-08
 ;;9002226.02101,"733,00247-0509-10 ",.01)
 ;;00247-0509-10
 ;;9002226.02101,"733,00247-0509-10 ",.02)
 ;;00247-0509-10
 ;;9002226.02101,"733,00247-0509-20 ",.01)
 ;;00247-0509-20
 ;;9002226.02101,"733,00247-0509-20 ",.02)
 ;;00247-0509-20
 ;;9002226.02101,"733,00247-0509-30 ",.01)
 ;;00247-0509-30
 ;;9002226.02101,"733,00247-0509-30 ",.02)
 ;;00247-0509-30
 ;;9002226.02101,"733,00247-0679-06 ",.01)
 ;;00247-0679-06
 ;;9002226.02101,"733,00247-0679-06 ",.02)
 ;;00247-0679-06
 ;;9002226.02101,"733,00247-0679-10 ",.01)
 ;;00247-0679-10
 ;;9002226.02101,"733,00247-0679-10 ",.02)
 ;;00247-0679-10
 ;;9002226.02101,"733,00247-0679-12 ",.01)
 ;;00247-0679-12
 ;;9002226.02101,"733,00247-0679-12 ",.02)
 ;;00247-0679-12
 ;;9002226.02101,"733,00247-0679-20 ",.01)
 ;;00247-0679-20
 ;;9002226.02101,"733,00247-0679-20 ",.02)
 ;;00247-0679-20
 ;;9002226.02101,"733,00247-0679-30 ",.01)
 ;;00247-0679-30
 ;;9002226.02101,"733,00247-0679-30 ",.02)
 ;;00247-0679-30
 ;;9002226.02101,"733,00247-0679-60 ",.01)
 ;;00247-0679-60
 ;;9002226.02101,"733,00247-0679-60 ",.02)
 ;;00247-0679-60
 ;;9002226.02101,"733,00247-0860-52 ",.01)
 ;;00247-0860-52
 ;;9002226.02101,"733,00247-0860-52 ",.02)
 ;;00247-0860-52
 ;;9002226.02101,"733,00247-0861-05 ",.01)
 ;;00247-0861-05
 ;;9002226.02101,"733,00247-0861-05 ",.02)
 ;;00247-0861-05
 ;;9002226.02101,"733,00247-0861-12 ",.01)
 ;;00247-0861-12
 ;;9002226.02101,"733,00247-0861-12 ",.02)
 ;;00247-0861-12
 ;;9002226.02101,"733,00247-0861-21 ",.01)
 ;;00247-0861-21
 ;;9002226.02101,"733,00247-0861-21 ",.02)
 ;;00247-0861-21
 ;;9002226.02101,"733,00247-0861-30 ",.01)
 ;;00247-0861-30
 ;;9002226.02101,"733,00247-0861-30 ",.02)
 ;;00247-0861-30
 ;;9002226.02101,"733,00247-1401-60 ",.01)
 ;;00247-1401-60
 ;;9002226.02101,"733,00247-1401-60 ",.02)
 ;;00247-1401-60
 ;;9002226.02101,"733,00247-1772-06 ",.01)
 ;;00247-1772-06
 ;;9002226.02101,"733,00247-1772-06 ",.02)
 ;;00247-1772-06
 ;;9002226.02101,"733,00247-1772-10 ",.01)
 ;;00247-1772-10
 ;;9002226.02101,"733,00247-1772-10 ",.02)
 ;;00247-1772-10
 ;;9002226.02101,"733,00254-9035-58 ",.01)
 ;;00254-9035-58