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