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

BGP2VN9.m

Go to the documentation of this file.
  1. BGP2VN9 ;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,00615-0332-63 ",.02)
  1. ;;00615-0332-63
  1. ;;9002226.02101,"800,00615-0368-01 ",.01)
  1. ;;00615-0368-01
  1. ;;9002226.02101,"800,00615-0368-01 ",.02)
  1. ;;00615-0368-01
  1. ;;9002226.02101,"800,00615-0368-10 ",.01)
  1. ;;00615-0368-10
  1. ;;9002226.02101,"800,00615-0368-10 ",.02)
  1. ;;00615-0368-10
  1. ;;9002226.02101,"800,00615-0368-32 ",.01)
  1. ;;00615-0368-32
  1. ;;9002226.02101,"800,00615-0368-32 ",.02)
  1. ;;00615-0368-32
  1. ;;9002226.02101,"800,00615-0369-01 ",.01)
  1. ;;00615-0369-01
  1. ;;9002226.02101,"800,00615-0369-01 ",.02)
  1. ;;00615-0369-01
  1. ;;9002226.02101,"800,00615-0369-10 ",.01)
  1. ;;00615-0369-10
  1. ;;9002226.02101,"800,00615-0369-10 ",.02)
  1. ;;00615-0369-10
  1. ;;9002226.02101,"800,00615-0369-32 ",.01)
  1. ;;00615-0369-32
  1. ;;9002226.02101,"800,00615-0369-32 ",.02)
  1. ;;00615-0369-32
  1. ;;9002226.02101,"800,00615-1525-13 ",.01)
  1. ;;00615-1525-13
  1. ;;9002226.02101,"800,00615-1525-13 ",.02)
  1. ;;00615-1525-13
  1. ;;9002226.02101,"800,00615-1526-63 ",.01)
  1. ;;00615-1526-63
  1. ;;9002226.02101,"800,00615-1526-63 ",.02)
  1. ;;00615-1526-63
  1. ;;9002226.02101,"800,00615-1536-13 ",.01)
  1. ;;00615-1536-13
  1. ;;9002226.02101,"800,00615-1536-13 ",.02)
  1. ;;00615-1536-13
  1. ;;9002226.02101,"800,00677-1914-41 ",.01)
  1. ;;00677-1914-41
  1. ;;9002226.02101,"800,00677-1914-41 ",.02)
  1. ;;00677-1914-41
  1. ;;9002226.02101,"800,00781-1830-01 ",.01)
  1. ;;00781-1830-01
  1. ;;9002226.02101,"800,00781-1830-01 ",.02)
  1. ;;00781-1830-01
  1. ;;9002226.02101,"800,00781-1830-10 ",.01)
  1. ;;00781-1830-10
  1. ;;9002226.02101,"800,00781-1830-10 ",.02)
  1. ;;00781-1830-10
  1. ;;9002226.02101,"800,00781-1832-01 ",.01)
  1. ;;00781-1832-01
  1. ;;9002226.02101,"800,00781-1832-01 ",.02)
  1. ;;00781-1832-01
  1. ;;9002226.02101,"800,00904-0123-09 ",.01)
  1. ;;00904-0123-09
  1. ;;9002226.02101,"800,00904-0123-09 ",.02)
  1. ;;00904-0123-09
  1. ;;9002226.02101,"800,00904-0123-16 ",.01)
  1. ;;00904-0123-16
  1. ;;9002226.02101,"800,00904-0123-16 ",.02)
  1. ;;00904-0123-16
  1. ;;9002226.02101,"800,00904-0357-40 ",.01)
  1. ;;00904-0357-40
  1. ;;9002226.02101,"800,00904-0357-40 ",.02)
  1. ;;00904-0357-40
  1. ;;9002226.02101,"800,00904-0357-60 ",.01)
  1. ;;00904-0357-60
  1. ;;9002226.02101,"800,00904-0357-60 ",.02)
  1. ;;00904-0357-60
  1. ;;9002226.02101,"800,00904-0357-80 ",.01)
  1. ;;00904-0357-80
  1. ;;9002226.02101,"800,00904-0357-80 ",.02)
  1. ;;00904-0357-80
  1. ;;9002226.02101,"800,00904-0358-40 ",.01)
  1. ;;00904-0358-40
  1. ;;9002226.02101,"800,00904-0358-40 ",.02)
  1. ;;00904-0358-40
  1. ;;9002226.02101,"800,00904-0358-60 ",.01)
  1. ;;00904-0358-60
  1. ;;9002226.02101,"800,00904-0358-60 ",.02)
  1. ;;00904-0358-60
  1. ;;9002226.02101,"800,00904-0358-80 ",.01)
  1. ;;00904-0358-80
  1. ;;9002226.02101,"800,00904-0358-80 ",.02)
  1. ;;00904-0358-80
  1. ;;9002226.02101,"800,00904-0359-40 ",.01)
  1. ;;00904-0359-40
  1. ;;9002226.02101,"800,00904-0359-40 ",.02)
  1. ;;00904-0359-40
  1. ;;9002226.02101,"800,00904-0359-60 ",.01)
  1. ;;00904-0359-60
  1. ;;9002226.02101,"800,00904-0359-60 ",.02)
  1. ;;00904-0359-60
  1. ;;9002226.02101,"800,00904-1145-61 ",.01)
  1. ;;00904-1145-61
  1. ;;9002226.02101,"800,00904-1145-61 ",.02)
  1. ;;00904-1145-61
  1. ;;9002226.02101,"800,00904-1145-70 ",.01)
  1. ;;00904-1145-70
  1. ;;9002226.02101,"800,00904-1145-70 ",.02)
  1. ;;00904-1145-70
  1. ;;9002226.02101,"800,00904-1146-16 ",.01)
  1. ;;00904-1146-16
  1. ;;9002226.02101,"800,00904-1146-16 ",.02)
  1. ;;00904-1146-16
  1. ;;9002226.02101,"800,00904-1146-28 ",.01)
  1. ;;00904-1146-28
  1. ;;9002226.02101,"800,00904-1146-28 ",.02)
  1. ;;00904-1146-28
  1. ;;9002226.02101,"800,00904-1228-00 ",.01)
  1. ;;00904-1228-00
  1. ;;9002226.02101,"800,00904-1228-00 ",.02)
  1. ;;00904-1228-00
  1. ;;9002226.02101,"800,00904-1228-20 ",.01)
  1. ;;00904-1228-20
  1. ;;9002226.02101,"800,00904-1228-20 ",.02)
  1. ;;00904-1228-20
  1. ;;9002226.02101,"800,00904-1508-00 ",.01)
  1. ;;00904-1508-00
  1. ;;9002226.02101,"800,00904-1508-00 ",.02)
  1. ;;00904-1508-00
  1. ;;9002226.02101,"800,00904-1508-16 ",.01)
  1. ;;00904-1508-16
  1. ;;9002226.02101,"800,00904-1508-16 ",.02)
  1. ;;00904-1508-16
  1. ;;9002226.02101,"800,00904-1508-20 ",.01)
  1. ;;00904-1508-20
  1. ;;9002226.02101,"800,00904-1508-20 ",.02)
  1. ;;00904-1508-20
  1. ;;9002226.02101,"800,00904-1508-28 ",.01)
  1. ;;00904-1508-28
  1. ;;9002226.02101,"800,00904-1508-28 ",.02)
  1. ;;00904-1508-28
  1. ;;9002226.02101,"800,00904-1516-00 ",.01)
  1. ;;00904-1516-00
  1. ;;9002226.02101,"800,00904-1516-00 ",.02)
  1. ;;00904-1516-00
  1. ;;9002226.02101,"800,00904-1516-16 ",.01)
  1. ;;00904-1516-16
  1. ;;9002226.02101,"800,00904-1516-16 ",.02)
  1. ;;00904-1516-16
  1. ;;9002226.02101,"800,00904-1516-28 ",.01)
  1. ;;00904-1516-28
  1. ;;9002226.02101,"800,00904-1516-28 ",.02)
  1. ;;00904-1516-28
  1. ;;9002226.02101,"800,00904-2035-24 ",.01)
  1. ;;00904-2035-24
  1. ;;9002226.02101,"800,00904-2035-24 ",.02)
  1. ;;00904-2035-24
  1. ;;9002226.02101,"800,00904-2035-59 ",.01)
  1. ;;00904-2035-59
  1. ;;9002226.02101,"800,00904-2035-59 ",.02)
  1. ;;00904-2035-59
  1. ;;9002226.02101,"800,00904-2056-61 ",.01)
  1. ;;00904-2056-61
  1. ;;9002226.02101,"800,00904-2056-61 ",.02)
  1. ;;00904-2056-61
  1. ;;9002226.02101,"800,00904-2329-60 ",.01)
  1. ;;00904-2329-60
  1. ;;9002226.02101,"800,00904-2329-60 ",.02)
  1. ;;00904-2329-60
  1. ;;9002226.02101,"800,00904-2329-80 ",.01)
  1. ;;00904-2329-80
  1. ;;9002226.02101,"800,00904-2329-80 ",.02)
  1. ;;00904-2329-80
  1. ;;9002226.02101,"800,00904-2330-60 ",.01)
  1. ;;00904-2330-60
  1. ;;9002226.02101,"800,00904-2330-60 ",.02)
  1. ;;00904-2330-60
  1. ;;9002226.02101,"800,00904-5174-16 ",.01)
  1. ;;00904-5174-16
  1. ;;9002226.02101,"800,00904-5174-16 ",.02)
  1. ;;00904-5174-16
  1. ;;9002226.02101,"800,00904-5306-60 ",.01)
  1. ;;00904-5306-60
  1. ;;9002226.02101,"800,00904-5306-60 ",.02)
  1. ;;00904-5306-60
  1. ;;9002226.02101,"800,00904-5306-61 ",.01)
  1. ;;00904-5306-61
  1. ;;9002226.02101,"800,00904-5306-61 ",.02)
  1. ;;00904-5306-61
  1. ;;9002226.02101,"800,00904-5306-80 ",.01)
  1. ;;00904-5306-80
  1. ;;9002226.02101,"800,00904-5306-80 ",.02)
  1. ;;00904-5306-80
  1. ;;9002226.02101,"800,00904-5307-60 ",.01)
  1. ;;00904-5307-60
  1. ;;9002226.02101,"800,00904-5307-60 ",.02)
  1. ;;00904-5307-60
  1. ;;9002226.02101,"800,00904-5307-80 ",.01)
  1. ;;00904-5307-80
  1. ;;9002226.02101,"800,00904-5307-80 ",.02)
  1. ;;00904-5307-80
  1. ;;9002226.02101,"800,00904-5551-24 ",.01)
  1. ;;00904-5551-24
  1. ;;9002226.02101,"800,00904-5551-24 ",.02)
  1. ;;00904-5551-24
  1. ;;9002226.02101,"800,00904-5551-59 ",.01)
  1. ;;00904-5551-59
  1. ;;9002226.02101,"800,00904-5551-59 ",.02)
  1. ;;00904-5551-59
  1. ;;9002226.02101,"800,00904-5840-61 ",.01)
  1. ;;00904-5840-61
  1. ;;9002226.02101,"800,00904-5840-61 ",.02)
  1. ;;00904-5840-61
  1. ;;9002226.02101,"800,00904-6252-80 ",.01)
  1. ;;00904-6252-80
  1. ;;9002226.02101,"800,00904-6252-80 ",.02)
  1. ;;00904-6252-80
  1. ;;9002226.02101,"800,00904-7616-51 ",.01)
  1. ;;00904-7616-51
  1. ;;9002226.02101,"800,00904-7616-51 ",.02)
  1. ;;00904-7616-51
  1. ;;9002226.02101,"800,00904-7651-51 ",.01)
  1. ;;00904-7651-51
  1. ;;9002226.02101,"800,00904-7651-51 ",.02)
  1. ;;00904-7651-51
  1. ;;9002226.02101,"800,00927-0221-24 ",.01)
  1. ;;00927-0221-24
  1. ;;9002226.02101,"800,00927-0221-24 ",.02)
  1. ;;00927-0221-24
  1. ;;9002226.02101,"800,00927-0616-34 ",.01)
  1. ;;00927-0616-34
  1. ;;9002226.02101,"800,00927-0616-34 ",.02)
  1. ;;00927-0616-34
  1. ;;9002226.02101,"800,01981-0003-23 ",.01)
  1. ;;01981-0003-23
  1. ;;9002226.02101,"800,01981-0003-23 ",.02)
  1. ;;01981-0003-23
  1. ;;9002226.02101,"800,01981-0003-25 ",.01)
  1. ;;01981-0003-25
  1. ;;9002226.02101,"800,01981-0003-25 ",.02)
  1. ;;01981-0003-25
  1. ;;9002226.02101,"800,01981-0003-26 ",.01)
  1. ;;01981-0003-26
  1. ;;9002226.02101,"800,01981-0003-26 ",.02)
  1. ;;01981-0003-26
  1. ;;9002226.02101,"800,01981-0076-34 ",.01)
  1. ;;01981-0076-34
  1. ;;9002226.02101,"800,01981-0076-34 ",.02)
  1. ;;01981-0076-34
  1. ;;9002226.02101,"800,01981-0076-43 ",.01)
  1. ;;01981-0076-43
  1. ;;9002226.02101,"800,01981-0076-43 ",.02)
  1. ;;01981-0076-43
  1. ;;9002226.02101,"800,10135-0149-01 ",.01)
  1. ;;10135-0149-01
  1. ;;9002226.02101,"800,10135-0149-01 ",.02)
  1. ;;10135-0149-01
  1. ;;9002226.02101,"800,10135-0149-10 ",.01)
  1. ;;10135-0149-10
  1. ;;9002226.02101,"800,10135-0149-10 ",.02)
  1. ;;10135-0149-10
  1. ;;9002226.02101,"800,10135-0149-24 ",.01)
  1. ;;10135-0149-24
  1. ;;9002226.02101,"800,10135-0149-24 ",.02)
  1. ;;10135-0149-24
  1. ;;9002226.02101,"800,10135-0149-61 ",.01)
  1. ;;10135-0149-61
  1. ;;9002226.02101,"800,10135-0149-61 ",.02)
  1. ;;10135-0149-61
  1. ;;9002226.02101,"800,10135-0151-01 ",.01)
  1. ;;10135-0151-01
  1. ;;9002226.02101,"800,10135-0151-01 ",.02)
  1. ;;10135-0151-01
  1. ;;9002226.02101,"800,10135-0151-10 ",.01)
  1. ;;10135-0151-10
  1. ;;9002226.02101,"800,10135-0151-10 ",.02)
  1. ;;10135-0151-10
  1. ;;9002226.02101,"800,10135-0151-13 ",.01)
  1. ;;10135-0151-13
  1. ;;9002226.02101,"800,10135-0151-13 ",.02)
  1. ;;10135-0151-13
  1. ;;9002226.02101,"800,10135-0151-24 ",.01)
  1. ;;10135-0151-24
  1. ;;9002226.02101,"800,10135-0151-24 ",.02)
  1. ;;10135-0151-24
  1. ;;9002226.02101,"800,10135-0151-50 ",.01)
  1. ;;10135-0151-50
  1. ;;9002226.02101,"800,10135-0151-50 ",.02)
  1. ;;10135-0151-50
  1. ;;9002226.02101,"800,10135-0151-52 ",.01)
  1. ;;10135-0151-52
  1. ;;9002226.02101,"800,10135-0151-52 ",.02)
  1. ;;10135-0151-52
  1. ;;9002226.02101,"800,10135-0151-57 ",.01)
  1. ;;10135-0151-57
  1. ;;9002226.02101,"800,10135-0151-57 ",.02)
  1. ;;10135-0151-57
  1. ;;9002226.02101,"800,10135-0156-01 ",.01)
  1. ;;10135-0156-01
  1. ;;9002226.02101,"800,10135-0156-01 ",.02)
  1. ;;10135-0156-01
  1. ;;9002226.02101,"800,10135-0156-10 ",.01)
  1. ;;10135-0156-10
  1. ;;9002226.02101,"800,10135-0156-10 ",.02)
  1. ;;10135-0156-10
  1. ;;9002226.02101,"800,10135-0156-13 ",.01)
  1. ;;10135-0156-13
  1. ;;9002226.02101,"800,10135-0156-13 ",.02)
  1. ;;10135-0156-13
  1. ;;9002226.02101,"800,10135-0166-13 ",.01)
  1. ;;10135-0166-13
  1. ;;9002226.02101,"800,10135-0166-13 ",.02)
  1. ;;10135-0166-13
  1. ;;9002226.02101,"800,10135-0352-01 ",.01)
  1. ;;10135-0352-01
  1. ;;9002226.02101,"800,10135-0352-01 ",.02)
  1. ;;10135-0352-01
  1. ;;9002226.02101,"800,10135-0352-13 ",.01)
  1. ;;10135-0352-13
  1. ;;9002226.02101,"800,10135-0352-13 ",.02)
  1. ;;10135-0352-13
  1. ;;9002226.02101,"800,10135-0352-50 ",.01)
  1. ;;10135-0352-50
  1. ;;9002226.02101,"800,10135-0352-50 ",.02)
  1. ;;10135-0352-50
  1. ;;9002226.02101,"800,10135-0352-55 ",.01)
  1. ;;10135-0352-55
  1. ;;9002226.02101,"800,10135-0352-55 ",.02)
  1. ;;10135-0352-55
  1. ;;9002226.02101,"800,10135-0352-57 ",.01)
  1. ;;10135-0352-57
  1. ;;9002226.02101,"800,10135-0352-57 ",.02)
  1. ;;10135-0352-57
  1. ;;9002226.02101,"800,10135-0410-55 ",.01)
  1. ;;10135-0410-55
  1. ;;9002226.02101,"800,10135-0410-55 ",.02)
  1. ;;10135-0410-55
  1. ;;9002226.02101,"800,10135-0418-29 ",.01)
  1. ;;10135-0418-29
  1. ;;9002226.02101,"800,10135-0418-29 ",.02)
  1. ;;10135-0418-29
  1. ;;9002226.02101,"800,10135-0495-01 ",.01)
  1. ;;10135-0495-01
  1. ;;9002226.02101,"800,10135-0495-01 ",.02)
  1. ;;10135-0495-01
  1. ;;9002226.02101,"800,10135-0495-10 ",.01)
  1. ;;10135-0495-10
  1. ;;9002226.02101,"800,10135-0495-10 ",.02)
  1. ;;10135-0495-10
  1. ;;9002226.02101,"800,10135-0496-01 ",.01)
  1. ;;10135-0496-01
  1. ;;9002226.02101,"800,10135-0496-01 ",.02)
  1. ;;10135-0496-01
  1. ;;9002226.02101,"800,10135-0514-01 ",.01)
  1. ;;10135-0514-01
  1. ;;9002226.02101,"800,10135-0514-01 ",.02)
  1. ;;10135-0514-01
  1. ;;9002226.02101,"800,10158-0043-02 ",.01)
  1. ;;10158-0043-02
  1. ;;9002226.02101,"800,10158-0043-02 ",.02)
  1. ;;10158-0043-02
  1. ;;9002226.02101,"800,10158-0043-04 ",.01)
  1. ;;10158-0043-04
  1. ;;9002226.02101,"800,10158-0043-04 ",.02)
  1. ;;10158-0043-04
  1. ;;9002226.02101,"800,10158-0043-06 ",.01)
  1. ;;10158-0043-06
  1. ;;9002226.02101,"800,10158-0043-06 ",.02)
  1. ;;10158-0043-06
  1. ;;9002226.02101,"800,10267-0835-01 ",.01)
  1. ;;10267-0835-01
  1. ;;9002226.02101,"800,10267-0835-01 ",.02)
  1. ;;10267-0835-01
  1. ;;9002226.02101,"800,10267-0835-04 ",.01)
  1. ;;10267-0835-04
  1. ;;9002226.02101,"800,10267-0835-04 ",.02)
  1. ;;10267-0835-04
  1. ;;9002226.02101,"800,10267-0836-01 ",.01)
  1. ;;10267-0836-01
  1. ;;9002226.02101,"800,10267-0836-01 ",.02)
  1. ;;10267-0836-01
  1. ;;9002226.02101,"800,10267-0836-04 ",.01)
  1. ;;10267-0836-04
  1. ;;9002226.02101,"800,10267-0836-04 ",.02)
  1. ;;10267-0836-04
  1. ;;9002226.02101,"800,10544-0328-30 ",.01)
  1. ;;10544-0328-30
  1. ;;9002226.02101,"800,10544-0328-30 ",.02)
  1. ;;10544-0328-30
  1. ;;9002226.02101,"800,10544-0343-30 ",.01)
  1. ;;10544-0343-30
  1. ;;9002226.02101,"800,10544-0343-30 ",.02)
  1. ;;10544-0343-30
  1. ;;9002226.02101,"800,10702-0002-01 ",.01)
  1. ;;10702-0002-01
  1. ;;9002226.02101,"800,10702-0002-01 ",.02)
  1. ;;10702-0002-01
  1. ;;9002226.02101,"800,10702-0003-01 ",.01)
  1. ;;10702-0003-01
  1. ;;9002226.02101,"800,10702-0003-01 ",.02)
  1. ;;10702-0003-01
  1. ;;9002226.02101,"800,10702-0003-10 ",.01)
  1. ;;10702-0003-10
  1. ;;9002226.02101,"800,10702-0003-10 ",.02)
  1. ;;10702-0003-10
  1. ;;9002226.02101,"800,10702-0004-01 ",.01)
  1. ;;10702-0004-01
  1. ;;9002226.02101,"800,10702-0004-01 ",.02)
  1. ;;10702-0004-01
  1. ;;9002226.02101,"800,10702-0010-01 ",.01)
  1. ;;10702-0010-01
  1. ;;9002226.02101,"800,10702-0010-01 ",.02)
  1. ;;10702-0010-01
  1. ;;9002226.02101,"800,10702-0010-10 ",.01)
  1. ;;10702-0010-10
  1. ;;9002226.02101,"800,10702-0010-10 ",.02)
  1. ;;10702-0010-10
  1. ;;9002226.02101,"800,10702-0010-50 ",.01)
  1. ;;10702-0010-50
  1. ;;9002226.02101,"800,10702-0010-50 ",.02)
  1. ;;10702-0010-50
  1. ;;9002226.02101,"800,10702-0011-01 ",.01)
  1. ;;10702-0011-01
  1. ;;9002226.02101,"800,10702-0011-01 ",.02)
  1. ;;10702-0011-01
  1. ;;9002226.02101,"800,10702-0011-10 ",.01)
  1. ;;10702-0011-10
  1. ;;9002226.02101,"800,10702-0011-10 ",.02)
  1. ;;10702-0011-10
  1. ;;9002226.02101,"800,10702-0011-50 ",.01)
  1. ;;10702-0011-50
  1. ;;9002226.02101,"800,10702-0011-50 ",.02)
  1. ;;10702-0011-50
  1. ;;9002226.02101,"800,10702-0012-01 ",.01)
  1. ;;10702-0012-01
  1. ;;9002226.02101,"800,10702-0012-01 ",.02)
  1. ;;10702-0012-01
  1. ;;9002226.02101,"800,10702-0012-10 ",.01)
  1. ;;10702-0012-10
  1. ;;9002226.02101,"800,10702-0012-10 ",.02)
  1. ;;10702-0012-10
  1. ;;9002226.02101,"800,10702-0012-50 ",.01)
  1. ;;10702-0012-50
  1. ;;9002226.02101,"800,10702-0012-50 ",.02)
  1. ;;10702-0012-50
  1. ;;9002226.02101,"800,10702-0052-16 ",.01)
  1. ;;10702-0052-16
  1. ;;9002226.02101,"800,10702-0052-16 ",.02)
  1. ;;10702-0052-16
  1. ;;9002226.02101,"800,10892-0112-65 ",.01)
  1. ;;10892-0112-65