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.
  1. BGP2VN20 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAR 08, 2012;
  1. ;;12.1;IHS CLINICAL REPORTING;;MAY 17, 2012;Build 66
  1. ;
  1. START ;
  1. K:'$G(ATXPGMC) ^TMP("ATX",$J)
  1. S ATXPGMC=$G(ATXPGMC)+1
  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
  1. Q
  1. ;
  1. TMP ;;TAXONOMY (WITH BULLETIN)
  1. ;;9002226.02101,"800,65224-0545-01 ",.02)
  1. ;;65224-0545-01
  1. ;;9002226.02101,"800,66267-0080-15 ",.01)
  1. ;;66267-0080-15
  1. ;;9002226.02101,"800,66267-0080-15 ",.02)
  1. ;;66267-0080-15
  1. ;;9002226.02101,"800,66267-0080-20 ",.01)
  1. ;;66267-0080-20
  1. ;;9002226.02101,"800,66267-0080-20 ",.02)
  1. ;;66267-0080-20
  1. ;;9002226.02101,"800,66267-0080-30 ",.01)
  1. ;;66267-0080-30
  1. ;;9002226.02101,"800,66267-0080-30 ",.02)
  1. ;;66267-0080-30
  1. ;;9002226.02101,"800,66267-0080-60 ",.01)
  1. ;;66267-0080-60
  1. ;;9002226.02101,"800,66267-0080-60 ",.02)
  1. ;;66267-0080-60
  1. ;;9002226.02101,"800,66267-0081-15 ",.01)
  1. ;;66267-0081-15
  1. ;;9002226.02101,"800,66267-0081-15 ",.02)
  1. ;;66267-0081-15
  1. ;;9002226.02101,"800,66267-0081-20 ",.01)
  1. ;;66267-0081-20
  1. ;;9002226.02101,"800,66267-0081-20 ",.02)
  1. ;;66267-0081-20
  1. ;;9002226.02101,"800,66267-0081-30 ",.01)
  1. ;;66267-0081-30
  1. ;;9002226.02101,"800,66267-0081-30 ",.02)
  1. ;;66267-0081-30
  1. ;;9002226.02101,"800,66267-0081-60 ",.01)
  1. ;;66267-0081-60
  1. ;;9002226.02101,"800,66267-0081-60 ",.02)
  1. ;;66267-0081-60
  1. ;;9002226.02101,"800,66267-0112-15 ",.01)
  1. ;;66267-0112-15
  1. ;;9002226.02101,"800,66267-0112-15 ",.02)
  1. ;;66267-0112-15
  1. ;;9002226.02101,"800,66267-0112-30 ",.01)
  1. ;;66267-0112-30
  1. ;;9002226.02101,"800,66267-0112-30 ",.02)
  1. ;;66267-0112-30
  1. ;;9002226.02101,"800,66267-0112-60 ",.01)
  1. ;;66267-0112-60
  1. ;;9002226.02101,"800,66267-0112-60 ",.02)
  1. ;;66267-0112-60
  1. ;;9002226.02101,"800,66267-0177-30 ",.01)
  1. ;;66267-0177-30
  1. ;;9002226.02101,"800,66267-0177-30 ",.02)
  1. ;;66267-0177-30
  1. ;;9002226.02101,"800,66267-0813-04 ",.01)
  1. ;;66267-0813-04
  1. ;;9002226.02101,"800,66267-0813-04 ",.02)
  1. ;;66267-0813-04
  1. ;;9002226.02101,"800,66267-0977-04 ",.01)
  1. ;;66267-0977-04
  1. ;;9002226.02101,"800,66267-0977-04 ",.02)
  1. ;;66267-0977-04
  1. ;;9002226.02101,"800,66336-0045-06 ",.01)
  1. ;;66336-0045-06
  1. ;;9002226.02101,"800,66336-0045-06 ",.02)
  1. ;;66336-0045-06
  1. ;;9002226.02101,"800,66336-0045-15 ",.01)
  1. ;;66336-0045-15
  1. ;;9002226.02101,"800,66336-0045-15 ",.02)
  1. ;;66336-0045-15
  1. ;;9002226.02101,"800,66336-0045-30 ",.01)
  1. ;;66336-0045-30
  1. ;;9002226.02101,"800,66336-0045-30 ",.02)
  1. ;;66336-0045-30
  1. ;;9002226.02101,"800,66336-0045-60 ",.01)
  1. ;;66336-0045-60
  1. ;;9002226.02101,"800,66336-0045-60 ",.02)
  1. ;;66336-0045-60
  1. ;;9002226.02101,"800,66336-0085-10 ",.01)
  1. ;;66336-0085-10
  1. ;;9002226.02101,"800,66336-0085-10 ",.02)
  1. ;;66336-0085-10
  1. ;;9002226.02101,"800,66336-0085-12 ",.01)
  1. ;;66336-0085-12
  1. ;;9002226.02101,"800,66336-0085-12 ",.02)
  1. ;;66336-0085-12
  1. ;;9002226.02101,"800,66336-0085-30 ",.01)
  1. ;;66336-0085-30
  1. ;;9002226.02101,"800,66336-0085-30 ",.02)
  1. ;;66336-0085-30
  1. ;;9002226.02101,"800,66336-0086-15 ",.01)
  1. ;;66336-0086-15
  1. ;;9002226.02101,"800,66336-0086-15 ",.02)
  1. ;;66336-0086-15
  1. ;;9002226.02101,"800,66336-0086-20 ",.01)
  1. ;;66336-0086-20
  1. ;;9002226.02101,"800,66336-0086-20 ",.02)
  1. ;;66336-0086-20
  1. ;;9002226.02101,"800,66336-0086-30 ",.01)
  1. ;;66336-0086-30
  1. ;;9002226.02101,"800,66336-0086-30 ",.02)
  1. ;;66336-0086-30
  1. ;;9002226.02101,"800,66336-0208-20 ",.01)
  1. ;;66336-0208-20
  1. ;;9002226.02101,"800,66336-0208-20 ",.02)
  1. ;;66336-0208-20
  1. ;;9002226.02101,"800,66336-0208-30 ",.01)
  1. ;;66336-0208-30
  1. ;;9002226.02101,"800,66336-0208-30 ",.02)
  1. ;;66336-0208-30
  1. ;;9002226.02101,"800,66336-0589-15 ",.01)
  1. ;;66336-0589-15
  1. ;;9002226.02101,"800,66336-0589-15 ",.02)
  1. ;;66336-0589-15
  1. ;;9002226.02101,"800,66336-0589-20 ",.01)
  1. ;;66336-0589-20
  1. ;;9002226.02101,"800,66336-0589-20 ",.02)
  1. ;;66336-0589-20
  1. ;;9002226.02101,"800,66336-0589-30 ",.01)
  1. ;;66336-0589-30
  1. ;;9002226.02101,"800,66336-0589-30 ",.02)
  1. ;;66336-0589-30
  1. ;;9002226.02101,"800,66336-0589-60 ",.01)
  1. ;;66336-0589-60
  1. ;;9002226.02101,"800,66336-0589-60 ",.02)
  1. ;;66336-0589-60
  1. ;;9002226.02101,"800,66336-0795-15 ",.01)
  1. ;;66336-0795-15
  1. ;;9002226.02101,"800,66336-0795-15 ",.02)
  1. ;;66336-0795-15
  1. ;;9002226.02101,"800,66336-0796-30 ",.01)
  1. ;;66336-0796-30
  1. ;;9002226.02101,"800,66336-0796-30 ",.02)
  1. ;;66336-0796-30
  1. ;;9002226.02101,"800,66336-0797-60 ",.01)
  1. ;;66336-0797-60
  1. ;;9002226.02101,"800,66336-0797-60 ",.02)
  1. ;;66336-0797-60
  1. ;;9002226.02101,"800,66346-0121-65 ",.01)
  1. ;;66346-0121-65
  1. ;;9002226.02101,"800,66346-0121-65 ",.02)
  1. ;;66346-0121-65
  1. ;;9002226.02101,"800,66346-0191-65 ",.01)
  1. ;;66346-0191-65
  1. ;;9002226.02101,"800,66346-0191-65 ",.02)
  1. ;;66346-0191-65
  1. ;;9002226.02101,"800,66375-0107-02 ",.01)
  1. ;;66375-0107-02
  1. ;;9002226.02101,"800,66375-0107-02 ",.02)
  1. ;;66375-0107-02
  1. ;;9002226.02101,"800,66375-0108-02 ",.01)
  1. ;;66375-0108-02
  1. ;;9002226.02101,"800,66375-0108-02 ",.02)
  1. ;;66375-0108-02
  1. ;;9002226.02101,"800,66424-0020-01 ",.01)
  1. ;;66424-0020-01
  1. ;;9002226.02101,"800,66424-0020-01 ",.02)
  1. ;;66424-0020-01
  1. ;;9002226.02101,"800,66424-0020-10 ",.01)
  1. ;;66424-0020-10
  1. ;;9002226.02101,"800,66424-0020-10 ",.02)
  1. ;;66424-0020-10
  1. ;;9002226.02101,"800,66424-0021-01 ",.01)
  1. ;;66424-0021-01
  1. ;;9002226.02101,"800,66424-0021-01 ",.02)
  1. ;;66424-0021-01
  1. ;;9002226.02101,"800,66424-0021-10 ",.01)
  1. ;;66424-0021-10
  1. ;;9002226.02101,"800,66424-0021-10 ",.02)
  1. ;;66424-0021-10
  1. ;;9002226.02101,"800,66553-0010-01 ",.01)
  1. ;;66553-0010-01
  1. ;;9002226.02101,"800,66553-0010-01 ",.02)
  1. ;;66553-0010-01
  1. ;;9002226.02101,"800,66869-0107-10 ",.01)
  1. ;;66869-0107-10
  1. ;;9002226.02101,"800,66869-0107-10 ",.02)
  1. ;;66869-0107-10
  1. ;;9002226.02101,"800,66869-0154-10 ",.01)
  1. ;;66869-0154-10
  1. ;;9002226.02101,"800,66869-0154-10 ",.02)
  1. ;;66869-0154-10
  1. ;;9002226.02101,"800,66869-0407-10 ",.01)
  1. ;;66869-0407-10
  1. ;;9002226.02101,"800,66869-0407-10 ",.02)
  1. ;;66869-0407-10
  1. ;;9002226.02101,"800,66869-0426-10 ",.01)
  1. ;;66869-0426-10
  1. ;;9002226.02101,"800,66869-0426-10 ",.02)
  1. ;;66869-0426-10
  1. ;;9002226.02101,"800,67405-0575-10 ",.01)
  1. ;;67405-0575-10
  1. ;;9002226.02101,"800,67405-0575-10 ",.02)
  1. ;;67405-0575-10
  1. ;;9002226.02101,"800,67405-0575-50 ",.01)
  1. ;;67405-0575-50
  1. ;;9002226.02101,"800,67405-0575-50 ",.02)
  1. ;;67405-0575-50
  1. ;;9002226.02101,"800,67405-0575-96 ",.01)
  1. ;;67405-0575-96
  1. ;;9002226.02101,"800,67405-0575-96 ",.02)
  1. ;;67405-0575-96
  1. ;;9002226.02101,"800,67405-0577-10 ",.01)
  1. ;;67405-0577-10
  1. ;;9002226.02101,"800,67405-0577-10 ",.02)
  1. ;;67405-0577-10
  1. ;;9002226.02101,"800,67405-0577-50 ",.01)
  1. ;;67405-0577-50
  1. ;;9002226.02101,"800,67405-0577-50 ",.02)
  1. ;;67405-0577-50
  1. ;;9002226.02101,"800,67405-0671-10 ",.01)
  1. ;;67405-0671-10
  1. ;;9002226.02101,"800,67405-0671-10 ",.02)
  1. ;;67405-0671-10
  1. ;;9002226.02101,"800,67405-0671-50 ",.01)
  1. ;;67405-0671-50
  1. ;;9002226.02101,"800,67405-0671-50 ",.02)
  1. ;;67405-0671-50
  1. ;;9002226.02101,"800,67405-0671-96 ",.01)
  1. ;;67405-0671-96
  1. ;;9002226.02101,"800,67405-0671-96 ",.02)
  1. ;;67405-0671-96
  1. ;;9002226.02101,"800,67544-0791-30 ",.01)
  1. ;;67544-0791-30
  1. ;;9002226.02101,"800,67544-0791-30 ",.02)
  1. ;;67544-0791-30
  1. ;;9002226.02101,"800,68025-0032-16 ",.01)
  1. ;;68025-0032-16
  1. ;;9002226.02101,"800,68025-0032-16 ",.02)
  1. ;;68025-0032-16
  1. ;;9002226.02101,"800,68032-0189-60 ",.01)
  1. ;;68032-0189-60
  1. ;;9002226.02101,"800,68032-0189-60 ",.02)
  1. ;;68032-0189-60
  1. ;;9002226.02101,"800,68032-0205-60 ",.01)
  1. ;;68032-0205-60
  1. ;;9002226.02101,"800,68032-0205-60 ",.02)
  1. ;;68032-0205-60
  1. ;;9002226.02101,"800,68047-0136-16 ",.01)
  1. ;;68047-0136-16
  1. ;;9002226.02101,"800,68047-0136-16 ",.02)
  1. ;;68047-0136-16
  1. ;;9002226.02101,"800,68047-0271-01 ",.01)
  1. ;;68047-0271-01
  1. ;;9002226.02101,"800,68047-0271-01 ",.02)
  1. ;;68047-0271-01
  1. ;;9002226.02101,"800,68084-0154-01 ",.01)
  1. ;;68084-0154-01
  1. ;;9002226.02101,"800,68084-0154-01 ",.02)
  1. ;;68084-0154-01
  1. ;;9002226.02101,"800,68084-0154-11 ",.01)
  1. ;;68084-0154-11
  1. ;;9002226.02101,"800,68084-0154-11 ",.02)
  1. ;;68084-0154-11
  1. ;;9002226.02101,"800,68084-0155-01 ",.01)
  1. ;;68084-0155-01
  1. ;;9002226.02101,"800,68084-0155-01 ",.02)
  1. ;;68084-0155-01
  1. ;;9002226.02101,"800,68084-0155-11 ",.01)
  1. ;;68084-0155-11
  1. ;;9002226.02101,"800,68084-0155-11 ",.02)
  1. ;;68084-0155-11
  1. ;;9002226.02101,"800,68084-0156-01 ",.01)
  1. ;;68084-0156-01
  1. ;;9002226.02101,"800,68084-0156-01 ",.02)
  1. ;;68084-0156-01
  1. ;;9002226.02101,"800,68084-0253-01 ",.01)
  1. ;;68084-0253-01
  1. ;;9002226.02101,"800,68084-0253-01 ",.02)
  1. ;;68084-0253-01
  1. ;;9002226.02101,"800,68084-0253-11 ",.01)
  1. ;;68084-0253-11
  1. ;;9002226.02101,"800,68084-0253-11 ",.02)
  1. ;;68084-0253-11
  1. ;;9002226.02101,"800,68084-0254-01 ",.01)
  1. ;;68084-0254-01
  1. ;;9002226.02101,"800,68084-0254-01 ",.02)
  1. ;;68084-0254-01
  1. ;;9002226.02101,"800,68084-0254-11 ",.01)
  1. ;;68084-0254-11
  1. ;;9002226.02101,"800,68084-0254-11 ",.02)
  1. ;;68084-0254-11
  1. ;;9002226.02101,"800,68084-0255-01 ",.01)
  1. ;;68084-0255-01
  1. ;;9002226.02101,"800,68084-0255-01 ",.02)
  1. ;;68084-0255-01
  1. ;;9002226.02101,"800,68084-0255-11 ",.01)
  1. ;;68084-0255-11
  1. ;;9002226.02101,"800,68084-0255-11 ",.02)
  1. ;;68084-0255-11
  1. ;;9002226.02101,"800,68115-0116-00 ",.01)
  1. ;;68115-0116-00
  1. ;;9002226.02101,"800,68115-0116-00 ",.02)
  1. ;;68115-0116-00
  1. ;;9002226.02101,"800,68115-0116-10 ",.01)
  1. ;;68115-0116-10
  1. ;;9002226.02101,"800,68115-0116-10 ",.02)
  1. ;;68115-0116-10
  1. ;;9002226.02101,"800,68115-0116-12 ",.01)
  1. ;;68115-0116-12
  1. ;;9002226.02101,"800,68115-0116-12 ",.02)
  1. ;;68115-0116-12
  1. ;;9002226.02101,"800,68115-0116-15 ",.01)
  1. ;;68115-0116-15
  1. ;;9002226.02101,"800,68115-0116-15 ",.02)
  1. ;;68115-0116-15
  1. ;;9002226.02101,"800,68115-0116-20 ",.01)
  1. ;;68115-0116-20
  1. ;;9002226.02101,"800,68115-0116-20 ",.02)
  1. ;;68115-0116-20
  1. ;;9002226.02101,"800,68115-0116-24 ",.01)
  1. ;;68115-0116-24
  1. ;;9002226.02101,"800,68115-0116-24 ",.02)
  1. ;;68115-0116-24
  1. ;;9002226.02101,"800,68115-0116-30 ",.01)
  1. ;;68115-0116-30
  1. ;;9002226.02101,"800,68115-0116-30 ",.02)
  1. ;;68115-0116-30
  1. ;;9002226.02101,"800,68115-0116-60 ",.01)
  1. ;;68115-0116-60
  1. ;;9002226.02101,"800,68115-0116-60 ",.02)
  1. ;;68115-0116-60
  1. ;;9002226.02101,"800,68115-0117-06 ",.01)
  1. ;;68115-0117-06
  1. ;;9002226.02101,"800,68115-0117-06 ",.02)
  1. ;;68115-0117-06
  1. ;;9002226.02101,"800,68115-0117-15 ",.01)
  1. ;;68115-0117-15
  1. ;;9002226.02101,"800,68115-0117-15 ",.02)
  1. ;;68115-0117-15
  1. ;;9002226.02101,"800,68115-0117-20 ",.01)
  1. ;;68115-0117-20
  1. ;;9002226.02101,"800,68115-0117-20 ",.02)
  1. ;;68115-0117-20
  1. ;;9002226.02101,"800,68115-0117-30 ",.01)
  1. ;;68115-0117-30
  1. ;;9002226.02101,"800,68115-0117-30 ",.02)
  1. ;;68115-0117-30
  1. ;;9002226.02101,"800,68115-0174-00 ",.01)
  1. ;;68115-0174-00
  1. ;;9002226.02101,"800,68115-0174-00 ",.02)
  1. ;;68115-0174-00
  1. ;;9002226.02101,"800,68115-0174-15 ",.01)
  1. ;;68115-0174-15
  1. ;;9002226.02101,"800,68115-0174-15 ",.02)
  1. ;;68115-0174-15
  1. ;;9002226.02101,"800,68115-0174-30 ",.01)
  1. ;;68115-0174-30
  1. ;;9002226.02101,"800,68115-0174-30 ",.02)
  1. ;;68115-0174-30
  1. ;;9002226.02101,"800,68115-0175-12 ",.01)
  1. ;;68115-0175-12
  1. ;;9002226.02101,"800,68115-0175-12 ",.02)
  1. ;;68115-0175-12
  1. ;;9002226.02101,"800,68115-0175-15 ",.01)
  1. ;;68115-0175-15
  1. ;;9002226.02101,"800,68115-0175-15 ",.02)
  1. ;;68115-0175-15
  1. ;;9002226.02101,"800,68115-0175-20 ",.01)
  1. ;;68115-0175-20
  1. ;;9002226.02101,"800,68115-0175-20 ",.02)
  1. ;;68115-0175-20
  1. ;;9002226.02101,"800,68115-0175-30 ",.01)
  1. ;;68115-0175-30
  1. ;;9002226.02101,"800,68115-0175-30 ",.02)
  1. ;;68115-0175-30
  1. ;;9002226.02101,"800,68115-0175-60 ",.01)
  1. ;;68115-0175-60
  1. ;;9002226.02101,"800,68115-0175-60 ",.02)
  1. ;;68115-0175-60
  1. ;;9002226.02101,"800,68115-0176-00 ",.01)
  1. ;;68115-0176-00
  1. ;;9002226.02101,"800,68115-0176-00 ",.02)
  1. ;;68115-0176-00
  1. ;;9002226.02101,"800,68115-0176-30 ",.01)
  1. ;;68115-0176-30
  1. ;;9002226.02101,"800,68115-0176-30 ",.02)
  1. ;;68115-0176-30
  1. ;;9002226.02101,"800,68115-0177-00 ",.01)
  1. ;;68115-0177-00
  1. ;;9002226.02101,"800,68115-0177-00 ",.02)
  1. ;;68115-0177-00
  1. ;;9002226.02101,"800,68115-0177-30 ",.01)
  1. ;;68115-0177-30
  1. ;;9002226.02101,"800,68115-0177-30 ",.02)
  1. ;;68115-0177-30
  1. ;;9002226.02101,"800,68115-0177-60 ",.01)
  1. ;;68115-0177-60
  1. ;;9002226.02101,"800,68115-0177-60 ",.02)
  1. ;;68115-0177-60
  1. ;;9002226.02101,"800,68115-0178-20 ",.01)
  1. ;;68115-0178-20
  1. ;;9002226.02101,"800,68115-0178-20 ",.02)
  1. ;;68115-0178-20
  1. ;;9002226.02101,"800,68115-0178-60 ",.01)
  1. ;;68115-0178-60
  1. ;;9002226.02101,"800,68115-0178-60 ",.02)
  1. ;;68115-0178-60
  1. ;;9002226.02101,"800,68115-0302-00 ",.01)
  1. ;;68115-0302-00
  1. ;;9002226.02101,"800,68115-0302-00 ",.02)
  1. ;;68115-0302-00
  1. ;;9002226.02101,"800,68115-0302-04 ",.01)
  1. ;;68115-0302-04
  1. ;;9002226.02101,"800,68115-0302-04 ",.02)
  1. ;;68115-0302-04
  1. ;;9002226.02101,"800,68115-0302-20 ",.01)
  1. ;;68115-0302-20
  1. ;;9002226.02101,"800,68115-0302-20 ",.02)
  1. ;;68115-0302-20
  1. ;;9002226.02101,"800,68115-0302-30 ",.01)
  1. ;;68115-0302-30
  1. ;;9002226.02101,"800,68115-0302-30 ",.02)
  1. ;;68115-0302-30
  1. ;;9002226.02101,"800,68115-0302-90 ",.01)
  1. ;;68115-0302-90
  1. ;;9002226.02101,"800,68115-0302-90 ",.02)
  1. ;;68115-0302-90
  1. ;;9002226.02101,"800,68115-0900-04 ",.01)
  1. ;;68115-0900-04
  1. ;;9002226.02101,"800,68115-0900-04 ",.02)
  1. ;;68115-0900-04
  1. ;;9002226.02101,"800,68115-0915-04 ",.01)
  1. ;;68115-0915-04
  1. ;;9002226.02101,"800,68115-0915-04 ",.02)
  1. ;;68115-0915-04
  1. ;;9002226.02101,"800,68115-0976-04 ",.01)
  1. ;;68115-0976-04
  1. ;;9002226.02101,"800,68115-0976-04 ",.02)
  1. ;;68115-0976-04
  1. ;;9002226.02101,"800,68308-0122-04 ",.01)
  1. ;;68308-0122-04
  1. ;;9002226.02101,"800,68308-0122-04 ",.02)
  1. ;;68308-0122-04
  1. ;;9002226.02101,"800,68308-0126-04 ",.01)
  1. ;;68308-0126-04
  1. ;;9002226.02101,"800,68308-0126-04 ",.02)
  1. ;;68308-0126-04
  1. ;;9002226.02101,"800,68308-0130-04 ",.01)
  1. ;;68308-0130-04
  1. ;;9002226.02101,"800,68308-0130-04 ",.02)
  1. ;;68308-0130-04
  1. ;;9002226.02101,"800,68308-0134-04 ",.01)
  1. ;;68308-0134-04
  1. ;;9002226.02101,"800,68308-0134-04 ",.02)
  1. ;;68308-0134-04
  1. ;;9002226.02101,"800,68308-0140-04 ",.01)
  1. ;;68308-0140-04