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

BGP2VN20.m

Go to the documentation of this file.
BGP2VN20 ;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)
 ;;9002226.02101,"800,65224-0545-01 ",.02)
 ;;65224-0545-01
 ;;9002226.02101,"800,66267-0080-15 ",.01)
 ;;66267-0080-15
 ;;9002226.02101,"800,66267-0080-15 ",.02)
 ;;66267-0080-15
 ;;9002226.02101,"800,66267-0080-20 ",.01)
 ;;66267-0080-20
 ;;9002226.02101,"800,66267-0080-20 ",.02)
 ;;66267-0080-20
 ;;9002226.02101,"800,66267-0080-30 ",.01)
 ;;66267-0080-30
 ;;9002226.02101,"800,66267-0080-30 ",.02)
 ;;66267-0080-30
 ;;9002226.02101,"800,66267-0080-60 ",.01)
 ;;66267-0080-60
 ;;9002226.02101,"800,66267-0080-60 ",.02)
 ;;66267-0080-60
 ;;9002226.02101,"800,66267-0081-15 ",.01)
 ;;66267-0081-15
 ;;9002226.02101,"800,66267-0081-15 ",.02)
 ;;66267-0081-15
 ;;9002226.02101,"800,66267-0081-20 ",.01)
 ;;66267-0081-20
 ;;9002226.02101,"800,66267-0081-20 ",.02)
 ;;66267-0081-20
 ;;9002226.02101,"800,66267-0081-30 ",.01)
 ;;66267-0081-30
 ;;9002226.02101,"800,66267-0081-30 ",.02)
 ;;66267-0081-30
 ;;9002226.02101,"800,66267-0081-60 ",.01)
 ;;66267-0081-60
 ;;9002226.02101,"800,66267-0081-60 ",.02)
 ;;66267-0081-60
 ;;9002226.02101,"800,66267-0112-15 ",.01)
 ;;66267-0112-15
 ;;9002226.02101,"800,66267-0112-15 ",.02)
 ;;66267-0112-15
 ;;9002226.02101,"800,66267-0112-30 ",.01)
 ;;66267-0112-30
 ;;9002226.02101,"800,66267-0112-30 ",.02)
 ;;66267-0112-30
 ;;9002226.02101,"800,66267-0112-60 ",.01)
 ;;66267-0112-60
 ;;9002226.02101,"800,66267-0112-60 ",.02)
 ;;66267-0112-60
 ;;9002226.02101,"800,66267-0177-30 ",.01)
 ;;66267-0177-30
 ;;9002226.02101,"800,66267-0177-30 ",.02)
 ;;66267-0177-30
 ;;9002226.02101,"800,66267-0813-04 ",.01)
 ;;66267-0813-04
 ;;9002226.02101,"800,66267-0813-04 ",.02)
 ;;66267-0813-04
 ;;9002226.02101,"800,66267-0977-04 ",.01)
 ;;66267-0977-04
 ;;9002226.02101,"800,66267-0977-04 ",.02)
 ;;66267-0977-04
 ;;9002226.02101,"800,66336-0045-06 ",.01)
 ;;66336-0045-06
 ;;9002226.02101,"800,66336-0045-06 ",.02)
 ;;66336-0045-06
 ;;9002226.02101,"800,66336-0045-15 ",.01)
 ;;66336-0045-15
 ;;9002226.02101,"800,66336-0045-15 ",.02)
 ;;66336-0045-15
 ;;9002226.02101,"800,66336-0045-30 ",.01)
 ;;66336-0045-30
 ;;9002226.02101,"800,66336-0045-30 ",.02)
 ;;66336-0045-30
 ;;9002226.02101,"800,66336-0045-60 ",.01)
 ;;66336-0045-60
 ;;9002226.02101,"800,66336-0045-60 ",.02)
 ;;66336-0045-60
 ;;9002226.02101,"800,66336-0085-10 ",.01)
 ;;66336-0085-10
 ;;9002226.02101,"800,66336-0085-10 ",.02)
 ;;66336-0085-10
 ;;9002226.02101,"800,66336-0085-12 ",.01)
 ;;66336-0085-12
 ;;9002226.02101,"800,66336-0085-12 ",.02)
 ;;66336-0085-12
 ;;9002226.02101,"800,66336-0085-30 ",.01)
 ;;66336-0085-30
 ;;9002226.02101,"800,66336-0085-30 ",.02)
 ;;66336-0085-30
 ;;9002226.02101,"800,66336-0086-15 ",.01)
 ;;66336-0086-15
 ;;9002226.02101,"800,66336-0086-15 ",.02)
 ;;66336-0086-15
 ;;9002226.02101,"800,66336-0086-20 ",.01)
 ;;66336-0086-20
 ;;9002226.02101,"800,66336-0086-20 ",.02)
 ;;66336-0086-20
 ;;9002226.02101,"800,66336-0086-30 ",.01)
 ;;66336-0086-30
 ;;9002226.02101,"800,66336-0086-30 ",.02)
 ;;66336-0086-30
 ;;9002226.02101,"800,66336-0208-20 ",.01)
 ;;66336-0208-20
 ;;9002226.02101,"800,66336-0208-20 ",.02)
 ;;66336-0208-20
 ;;9002226.02101,"800,66336-0208-30 ",.01)
 ;;66336-0208-30
 ;;9002226.02101,"800,66336-0208-30 ",.02)
 ;;66336-0208-30
 ;;9002226.02101,"800,66336-0589-15 ",.01)
 ;;66336-0589-15
 ;;9002226.02101,"800,66336-0589-15 ",.02)
 ;;66336-0589-15
 ;;9002226.02101,"800,66336-0589-20 ",.01)
 ;;66336-0589-20
 ;;9002226.02101,"800,66336-0589-20 ",.02)
 ;;66336-0589-20
 ;;9002226.02101,"800,66336-0589-30 ",.01)
 ;;66336-0589-30
 ;;9002226.02101,"800,66336-0589-30 ",.02)
 ;;66336-0589-30
 ;;9002226.02101,"800,66336-0589-60 ",.01)
 ;;66336-0589-60
 ;;9002226.02101,"800,66336-0589-60 ",.02)
 ;;66336-0589-60
 ;;9002226.02101,"800,66336-0795-15 ",.01)
 ;;66336-0795-15
 ;;9002226.02101,"800,66336-0795-15 ",.02)
 ;;66336-0795-15
 ;;9002226.02101,"800,66336-0796-30 ",.01)
 ;;66336-0796-30
 ;;9002226.02101,"800,66336-0796-30 ",.02)
 ;;66336-0796-30
 ;;9002226.02101,"800,66336-0797-60 ",.01)
 ;;66336-0797-60
 ;;9002226.02101,"800,66336-0797-60 ",.02)
 ;;66336-0797-60
 ;;9002226.02101,"800,66346-0121-65 ",.01)
 ;;66346-0121-65
 ;;9002226.02101,"800,66346-0121-65 ",.02)
 ;;66346-0121-65
 ;;9002226.02101,"800,66346-0191-65 ",.01)
 ;;66346-0191-65
 ;;9002226.02101,"800,66346-0191-65 ",.02)
 ;;66346-0191-65
 ;;9002226.02101,"800,66375-0107-02 ",.01)
 ;;66375-0107-02
 ;;9002226.02101,"800,66375-0107-02 ",.02)
 ;;66375-0107-02
 ;;9002226.02101,"800,66375-0108-02 ",.01)
 ;;66375-0108-02
 ;;9002226.02101,"800,66375-0108-02 ",.02)
 ;;66375-0108-02
 ;;9002226.02101,"800,66424-0020-01 ",.01)
 ;;66424-0020-01
 ;;9002226.02101,"800,66424-0020-01 ",.02)
 ;;66424-0020-01
 ;;9002226.02101,"800,66424-0020-10 ",.01)
 ;;66424-0020-10
 ;;9002226.02101,"800,66424-0020-10 ",.02)
 ;;66424-0020-10
 ;;9002226.02101,"800,66424-0021-01 ",.01)
 ;;66424-0021-01
 ;;9002226.02101,"800,66424-0021-01 ",.02)
 ;;66424-0021-01
 ;;9002226.02101,"800,66424-0021-10 ",.01)
 ;;66424-0021-10
 ;;9002226.02101,"800,66424-0021-10 ",.02)
 ;;66424-0021-10
 ;;9002226.02101,"800,66553-0010-01 ",.01)
 ;;66553-0010-01
 ;;9002226.02101,"800,66553-0010-01 ",.02)
 ;;66553-0010-01
 ;;9002226.02101,"800,66869-0107-10 ",.01)
 ;;66869-0107-10
 ;;9002226.02101,"800,66869-0107-10 ",.02)
 ;;66869-0107-10
 ;;9002226.02101,"800,66869-0154-10 ",.01)
 ;;66869-0154-10
 ;;9002226.02101,"800,66869-0154-10 ",.02)
 ;;66869-0154-10
 ;;9002226.02101,"800,66869-0407-10 ",.01)
 ;;66869-0407-10
 ;;9002226.02101,"800,66869-0407-10 ",.02)
 ;;66869-0407-10
 ;;9002226.02101,"800,66869-0426-10 ",.01)
 ;;66869-0426-10
 ;;9002226.02101,"800,66869-0426-10 ",.02)
 ;;66869-0426-10
 ;;9002226.02101,"800,67405-0575-10 ",.01)
 ;;67405-0575-10
 ;;9002226.02101,"800,67405-0575-10 ",.02)
 ;;67405-0575-10
 ;;9002226.02101,"800,67405-0575-50 ",.01)
 ;;67405-0575-50
 ;;9002226.02101,"800,67405-0575-50 ",.02)
 ;;67405-0575-50
 ;;9002226.02101,"800,67405-0575-96 ",.01)
 ;;67405-0575-96
 ;;9002226.02101,"800,67405-0575-96 ",.02)
 ;;67405-0575-96
 ;;9002226.02101,"800,67405-0577-10 ",.01)
 ;;67405-0577-10
 ;;9002226.02101,"800,67405-0577-10 ",.02)
 ;;67405-0577-10
 ;;9002226.02101,"800,67405-0577-50 ",.01)
 ;;67405-0577-50
 ;;9002226.02101,"800,67405-0577-50 ",.02)
 ;;67405-0577-50
 ;;9002226.02101,"800,67405-0671-10 ",.01)
 ;;67405-0671-10
 ;;9002226.02101,"800,67405-0671-10 ",.02)
 ;;67405-0671-10
 ;;9002226.02101,"800,67405-0671-50 ",.01)
 ;;67405-0671-50
 ;;9002226.02101,"800,67405-0671-50 ",.02)
 ;;67405-0671-50
 ;;9002226.02101,"800,67405-0671-96 ",.01)
 ;;67405-0671-96
 ;;9002226.02101,"800,67405-0671-96 ",.02)
 ;;67405-0671-96
 ;;9002226.02101,"800,67544-0791-30 ",.01)
 ;;67544-0791-30
 ;;9002226.02101,"800,67544-0791-30 ",.02)
 ;;67544-0791-30
 ;;9002226.02101,"800,68025-0032-16 ",.01)
 ;;68025-0032-16
 ;;9002226.02101,"800,68025-0032-16 ",.02)
 ;;68025-0032-16
 ;;9002226.02101,"800,68032-0189-60 ",.01)
 ;;68032-0189-60
 ;;9002226.02101,"800,68032-0189-60 ",.02)
 ;;68032-0189-60
 ;;9002226.02101,"800,68032-0205-60 ",.01)
 ;;68032-0205-60
 ;;9002226.02101,"800,68032-0205-60 ",.02)
 ;;68032-0205-60
 ;;9002226.02101,"800,68047-0136-16 ",.01)
 ;;68047-0136-16
 ;;9002226.02101,"800,68047-0136-16 ",.02)
 ;;68047-0136-16
 ;;9002226.02101,"800,68047-0271-01 ",.01)
 ;;68047-0271-01
 ;;9002226.02101,"800,68047-0271-01 ",.02)
 ;;68047-0271-01
 ;;9002226.02101,"800,68084-0154-01 ",.01)
 ;;68084-0154-01
 ;;9002226.02101,"800,68084-0154-01 ",.02)
 ;;68084-0154-01
 ;;9002226.02101,"800,68084-0154-11 ",.01)
 ;;68084-0154-11
 ;;9002226.02101,"800,68084-0154-11 ",.02)
 ;;68084-0154-11
 ;;9002226.02101,"800,68084-0155-01 ",.01)
 ;;68084-0155-01
 ;;9002226.02101,"800,68084-0155-01 ",.02)
 ;;68084-0155-01
 ;;9002226.02101,"800,68084-0155-11 ",.01)
 ;;68084-0155-11
 ;;9002226.02101,"800,68084-0155-11 ",.02)
 ;;68084-0155-11
 ;;9002226.02101,"800,68084-0156-01 ",.01)
 ;;68084-0156-01
 ;;9002226.02101,"800,68084-0156-01 ",.02)
 ;;68084-0156-01
 ;;9002226.02101,"800,68084-0253-01 ",.01)
 ;;68084-0253-01
 ;;9002226.02101,"800,68084-0253-01 ",.02)
 ;;68084-0253-01
 ;;9002226.02101,"800,68084-0253-11 ",.01)
 ;;68084-0253-11
 ;;9002226.02101,"800,68084-0253-11 ",.02)
 ;;68084-0253-11
 ;;9002226.02101,"800,68084-0254-01 ",.01)
 ;;68084-0254-01
 ;;9002226.02101,"800,68084-0254-01 ",.02)
 ;;68084-0254-01
 ;;9002226.02101,"800,68084-0254-11 ",.01)
 ;;68084-0254-11
 ;;9002226.02101,"800,68084-0254-11 ",.02)
 ;;68084-0254-11
 ;;9002226.02101,"800,68084-0255-01 ",.01)
 ;;68084-0255-01
 ;;9002226.02101,"800,68084-0255-01 ",.02)
 ;;68084-0255-01
 ;;9002226.02101,"800,68084-0255-11 ",.01)
 ;;68084-0255-11
 ;;9002226.02101,"800,68084-0255-11 ",.02)
 ;;68084-0255-11
 ;;9002226.02101,"800,68115-0116-00 ",.01)
 ;;68115-0116-00
 ;;9002226.02101,"800,68115-0116-00 ",.02)
 ;;68115-0116-00
 ;;9002226.02101,"800,68115-0116-10 ",.01)
 ;;68115-0116-10
 ;;9002226.02101,"800,68115-0116-10 ",.02)
 ;;68115-0116-10
 ;;9002226.02101,"800,68115-0116-12 ",.01)
 ;;68115-0116-12
 ;;9002226.02101,"800,68115-0116-12 ",.02)
 ;;68115-0116-12
 ;;9002226.02101,"800,68115-0116-15 ",.01)
 ;;68115-0116-15
 ;;9002226.02101,"800,68115-0116-15 ",.02)
 ;;68115-0116-15
 ;;9002226.02101,"800,68115-0116-20 ",.01)
 ;;68115-0116-20
 ;;9002226.02101,"800,68115-0116-20 ",.02)
 ;;68115-0116-20
 ;;9002226.02101,"800,68115-0116-24 ",.01)
 ;;68115-0116-24
 ;;9002226.02101,"800,68115-0116-24 ",.02)
 ;;68115-0116-24
 ;;9002226.02101,"800,68115-0116-30 ",.01)
 ;;68115-0116-30
 ;;9002226.02101,"800,68115-0116-30 ",.02)
 ;;68115-0116-30
 ;;9002226.02101,"800,68115-0116-60 ",.01)
 ;;68115-0116-60
 ;;9002226.02101,"800,68115-0116-60 ",.02)
 ;;68115-0116-60
 ;;9002226.02101,"800,68115-0117-06 ",.01)
 ;;68115-0117-06
 ;;9002226.02101,"800,68115-0117-06 ",.02)
 ;;68115-0117-06
 ;;9002226.02101,"800,68115-0117-15 ",.01)
 ;;68115-0117-15
 ;;9002226.02101,"800,68115-0117-15 ",.02)
 ;;68115-0117-15
 ;;9002226.02101,"800,68115-0117-20 ",.01)
 ;;68115-0117-20
 ;;9002226.02101,"800,68115-0117-20 ",.02)
 ;;68115-0117-20
 ;;9002226.02101,"800,68115-0117-30 ",.01)
 ;;68115-0117-30
 ;;9002226.02101,"800,68115-0117-30 ",.02)
 ;;68115-0117-30
 ;;9002226.02101,"800,68115-0174-00 ",.01)
 ;;68115-0174-00
 ;;9002226.02101,"800,68115-0174-00 ",.02)
 ;;68115-0174-00
 ;;9002226.02101,"800,68115-0174-15 ",.01)
 ;;68115-0174-15
 ;;9002226.02101,"800,68115-0174-15 ",.02)
 ;;68115-0174-15
 ;;9002226.02101,"800,68115-0174-30 ",.01)
 ;;68115-0174-30
 ;;9002226.02101,"800,68115-0174-30 ",.02)
 ;;68115-0174-30
 ;;9002226.02101,"800,68115-0175-12 ",.01)
 ;;68115-0175-12
 ;;9002226.02101,"800,68115-0175-12 ",.02)
 ;;68115-0175-12
 ;;9002226.02101,"800,68115-0175-15 ",.01)
 ;;68115-0175-15
 ;;9002226.02101,"800,68115-0175-15 ",.02)
 ;;68115-0175-15
 ;;9002226.02101,"800,68115-0175-20 ",.01)
 ;;68115-0175-20
 ;;9002226.02101,"800,68115-0175-20 ",.02)
 ;;68115-0175-20
 ;;9002226.02101,"800,68115-0175-30 ",.01)
 ;;68115-0175-30
 ;;9002226.02101,"800,68115-0175-30 ",.02)
 ;;68115-0175-30
 ;;9002226.02101,"800,68115-0175-60 ",.01)
 ;;68115-0175-60
 ;;9002226.02101,"800,68115-0175-60 ",.02)
 ;;68115-0175-60
 ;;9002226.02101,"800,68115-0176-00 ",.01)
 ;;68115-0176-00
 ;;9002226.02101,"800,68115-0176-00 ",.02)
 ;;68115-0176-00
 ;;9002226.02101,"800,68115-0176-30 ",.01)
 ;;68115-0176-30
 ;;9002226.02101,"800,68115-0176-30 ",.02)
 ;;68115-0176-30
 ;;9002226.02101,"800,68115-0177-00 ",.01)
 ;;68115-0177-00
 ;;9002226.02101,"800,68115-0177-00 ",.02)
 ;;68115-0177-00
 ;;9002226.02101,"800,68115-0177-30 ",.01)
 ;;68115-0177-30
 ;;9002226.02101,"800,68115-0177-30 ",.02)
 ;;68115-0177-30
 ;;9002226.02101,"800,68115-0177-60 ",.01)
 ;;68115-0177-60
 ;;9002226.02101,"800,68115-0177-60 ",.02)
 ;;68115-0177-60
 ;;9002226.02101,"800,68115-0178-20 ",.01)
 ;;68115-0178-20
 ;;9002226.02101,"800,68115-0178-20 ",.02)
 ;;68115-0178-20
 ;;9002226.02101,"800,68115-0178-60 ",.01)
 ;;68115-0178-60
 ;;9002226.02101,"800,68115-0178-60 ",.02)
 ;;68115-0178-60
 ;;9002226.02101,"800,68115-0302-00 ",.01)
 ;;68115-0302-00
 ;;9002226.02101,"800,68115-0302-00 ",.02)
 ;;68115-0302-00
 ;;9002226.02101,"800,68115-0302-04 ",.01)
 ;;68115-0302-04
 ;;9002226.02101,"800,68115-0302-04 ",.02)
 ;;68115-0302-04
 ;;9002226.02101,"800,68115-0302-20 ",.01)
 ;;68115-0302-20
 ;;9002226.02101,"800,68115-0302-20 ",.02)
 ;;68115-0302-20
 ;;9002226.02101,"800,68115-0302-30 ",.01)
 ;;68115-0302-30
 ;;9002226.02101,"800,68115-0302-30 ",.02)
 ;;68115-0302-30
 ;;9002226.02101,"800,68115-0302-90 ",.01)
 ;;68115-0302-90
 ;;9002226.02101,"800,68115-0302-90 ",.02)
 ;;68115-0302-90
 ;;9002226.02101,"800,68115-0900-04 ",.01)
 ;;68115-0900-04
 ;;9002226.02101,"800,68115-0900-04 ",.02)
 ;;68115-0900-04
 ;;9002226.02101,"800,68115-0915-04 ",.01)
 ;;68115-0915-04
 ;;9002226.02101,"800,68115-0915-04 ",.02)
 ;;68115-0915-04
 ;;9002226.02101,"800,68115-0976-04 ",.01)
 ;;68115-0976-04
 ;;9002226.02101,"800,68115-0976-04 ",.02)
 ;;68115-0976-04
 ;;9002226.02101,"800,68308-0122-04 ",.01)
 ;;68308-0122-04
 ;;9002226.02101,"800,68308-0122-04 ",.02)
 ;;68308-0122-04
 ;;9002226.02101,"800,68308-0126-04 ",.01)
 ;;68308-0126-04
 ;;9002226.02101,"800,68308-0126-04 ",.02)
 ;;68308-0126-04
 ;;9002226.02101,"800,68308-0130-04 ",.01)
 ;;68308-0130-04
 ;;9002226.02101,"800,68308-0130-04 ",.02)
 ;;68308-0130-04
 ;;9002226.02101,"800,68308-0134-04 ",.01)
 ;;68308-0134-04
 ;;9002226.02101,"800,68308-0134-04 ",.02)
 ;;68308-0134-04
 ;;9002226.02101,"800,68308-0140-04 ",.01)
 ;;68308-0140-04