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

BGP2VN6.m

Go to the documentation of this file.
  1. BGP2VN6 ;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,00093-2929-93 ",.02)
  1. ;;00093-2929-93
  1. ;;9002226.02101,"800,00113-0355-71 ",.01)
  1. ;;00113-0355-71
  1. ;;9002226.02101,"800,00113-0355-71 ",.02)
  1. ;;00113-0355-71
  1. ;;9002226.02101,"800,00113-0379-26 ",.01)
  1. ;;00113-0379-26
  1. ;;9002226.02101,"800,00113-0379-26 ",.02)
  1. ;;00113-0379-26
  1. ;;9002226.02101,"800,00113-0406-73 ",.01)
  1. ;;00113-0406-73
  1. ;;9002226.02101,"800,00113-0406-73 ",.02)
  1. ;;00113-0406-73
  1. ;;9002226.02101,"800,00113-0462-62 ",.01)
  1. ;;00113-0462-62
  1. ;;9002226.02101,"800,00113-0462-62 ",.02)
  1. ;;00113-0462-62
  1. ;;9002226.02101,"800,00113-0479-62 ",.01)
  1. ;;00113-0479-62
  1. ;;9002226.02101,"800,00113-0479-62 ",.02)
  1. ;;00113-0479-62
  1. ;;9002226.02101,"800,00115-1040-01 ",.01)
  1. ;;00115-1040-01
  1. ;;9002226.02101,"800,00115-1040-01 ",.02)
  1. ;;00115-1040-01
  1. ;;9002226.02101,"800,00115-1041-01 ",.01)
  1. ;;00115-1041-01
  1. ;;9002226.02101,"800,00115-1041-01 ",.02)
  1. ;;00115-1041-01
  1. ;;9002226.02101,"800,00115-1041-03 ",.01)
  1. ;;00115-1041-03
  1. ;;9002226.02101,"800,00115-1041-03 ",.02)
  1. ;;00115-1041-03
  1. ;;9002226.02101,"800,00115-1042-01 ",.01)
  1. ;;00115-1042-01
  1. ;;9002226.02101,"800,00115-1042-01 ",.02)
  1. ;;00115-1042-01
  1. ;;9002226.02101,"800,00121-0489-05 ",.01)
  1. ;;00121-0489-05
  1. ;;9002226.02101,"800,00121-0489-05 ",.02)
  1. ;;00121-0489-05
  1. ;;9002226.02101,"800,00121-0489-10 ",.01)
  1. ;;00121-0489-10
  1. ;;9002226.02101,"800,00121-0489-10 ",.02)
  1. ;;00121-0489-10
  1. ;;9002226.02101,"800,00121-0489-20 ",.01)
  1. ;;00121-0489-20
  1. ;;9002226.02101,"800,00121-0489-20 ",.02)
  1. ;;00121-0489-20
  1. ;;9002226.02101,"800,00121-0547-05 ",.01)
  1. ;;00121-0547-05
  1. ;;9002226.02101,"800,00121-0547-05 ",.02)
  1. ;;00121-0547-05
  1. ;;9002226.02101,"800,00122-0815-66 ",.01)
  1. ;;00122-0815-66
  1. ;;9002226.02101,"800,00122-0815-66 ",.02)
  1. ;;00122-0815-66
  1. ;;9002226.02101,"800,00122-0816-66 ",.01)
  1. ;;00122-0816-66
  1. ;;9002226.02101,"800,00122-0816-66 ",.02)
  1. ;;00122-0816-66
  1. ;;9002226.02101,"800,00122-0878-66 ",.01)
  1. ;;00122-0878-66
  1. ;;9002226.02101,"800,00122-0878-66 ",.02)
  1. ;;00122-0878-66
  1. ;;9002226.02101,"800,00135-0009-45 ",.01)
  1. ;;00135-0009-45
  1. ;;9002226.02101,"800,00135-0009-45 ",.02)
  1. ;;00135-0009-45
  1. ;;9002226.02101,"800,00147-0236-05 ",.01)
  1. ;;00147-0236-05
  1. ;;9002226.02101,"800,00147-0236-05 ",.02)
  1. ;;00147-0236-05
  1. ;;9002226.02101,"800,00172-2929-60 ",.01)
  1. ;;00172-2929-60
  1. ;;9002226.02101,"800,00172-2929-60 ",.02)
  1. ;;00172-2929-60
  1. ;;9002226.02101,"800,00172-2929-80 ",.01)
  1. ;;00172-2929-80
  1. ;;9002226.02101,"800,00172-2929-80 ",.02)
  1. ;;00172-2929-80
  1. ;;9002226.02101,"800,00182-0135-10 ",.01)
  1. ;;00182-0135-10
  1. ;;9002226.02101,"800,00182-0135-10 ",.02)
  1. ;;00182-0135-10
  1. ;;9002226.02101,"800,00182-0492-10 ",.01)
  1. ;;00182-0492-10
  1. ;;9002226.02101,"800,00182-0492-10 ",.02)
  1. ;;00182-0492-10
  1. ;;9002226.02101,"800,00182-1015-01 ",.01)
  1. ;;00182-1015-01
  1. ;;9002226.02101,"800,00182-1015-01 ",.02)
  1. ;;00182-1015-01
  1. ;;9002226.02101,"800,00182-1131-93 ",.01)
  1. ;;00182-1131-93
  1. ;;9002226.02101,"800,00182-1131-93 ",.02)
  1. ;;00182-1131-93
  1. ;;9002226.02101,"800,00182-1132-00 ",.01)
  1. ;;00182-1132-00
  1. ;;9002226.02101,"800,00182-1132-00 ",.02)
  1. ;;00182-1132-00
  1. ;;9002226.02101,"800,00182-1132-89 ",.01)
  1. ;;00182-1132-89
  1. ;;9002226.02101,"800,00182-1132-89 ",.02)
  1. ;;00182-1132-89
  1. ;;9002226.02101,"800,00182-1355-40 ",.01)
  1. ;;00182-1355-40
  1. ;;9002226.02101,"800,00182-1355-40 ",.02)
  1. ;;00182-1355-40
  1. ;;9002226.02101,"800,00182-1376-40 ",.01)
  1. ;;00182-1376-40
  1. ;;9002226.02101,"800,00182-1376-40 ",.02)
  1. ;;00182-1376-40
  1. ;;9002226.02101,"800,00182-1492-05 ",.01)
  1. ;;00182-1492-05
  1. ;;9002226.02101,"800,00182-1492-05 ",.02)
  1. ;;00182-1492-05
  1. ;;9002226.02101,"800,00182-1492-10 ",.01)
  1. ;;00182-1492-10
  1. ;;9002226.02101,"800,00182-1492-10 ",.02)
  1. ;;00182-1492-10
  1. ;;9002226.02101,"800,00182-1493-01 ",.01)
  1. ;;00182-1493-01
  1. ;;9002226.02101,"800,00182-1493-01 ",.02)
  1. ;;00182-1493-01
  1. ;;9002226.02101,"800,00182-1494-05 ",.01)
  1. ;;00182-1494-05
  1. ;;9002226.02101,"800,00182-1494-05 ",.02)
  1. ;;00182-1494-05
  1. ;;9002226.02101,"800,00182-1737-41 ",.01)
  1. ;;00182-1737-41
  1. ;;9002226.02101,"800,00182-1737-41 ",.02)
  1. ;;00182-1737-41
  1. ;;9002226.02101,"800,00182-2001-37 ",.01)
  1. ;;00182-2001-37
  1. ;;9002226.02101,"800,00182-2001-37 ",.02)
  1. ;;00182-2001-37
  1. ;;9002226.02101,"800,00182-2091-16 ",.01)
  1. ;;00182-2091-16
  1. ;;9002226.02101,"800,00182-2091-16 ",.02)
  1. ;;00182-2091-16
  1. ;;9002226.02101,"800,00182-2092-01 ",.01)
  1. ;;00182-2092-01
  1. ;;9002226.02101,"800,00182-2092-01 ",.02)
  1. ;;00182-2092-01
  1. ;;9002226.02101,"800,00182-2092-16 ",.01)
  1. ;;00182-2092-16
  1. ;;9002226.02101,"800,00182-2092-16 ",.02)
  1. ;;00182-2092-16
  1. ;;9002226.02101,"800,00182-2095-37 ",.01)
  1. ;;00182-2095-37
  1. ;;9002226.02101,"800,00182-2095-37 ",.02)
  1. ;;00182-2095-37
  1. ;;9002226.02101,"800,00182-6061-37 ",.01)
  1. ;;00182-6061-37
  1. ;;9002226.02101,"800,00182-6061-37 ",.02)
  1. ;;00182-6061-37
  1. ;;9002226.02101,"800,00182-6168-37 ",.01)
  1. ;;00182-6168-37
  1. ;;9002226.02101,"800,00182-6168-37 ",.02)
  1. ;;00182-6168-37
  1. ;;9002226.02101,"800,00182-6168-40 ",.01)
  1. ;;00182-6168-40
  1. ;;9002226.02101,"800,00182-6168-40 ",.02)
  1. ;;00182-6168-40
  1. ;;9002226.02101,"800,00182-8222-00 ",.01)
  1. ;;00182-8222-00
  1. ;;9002226.02101,"800,00182-8222-00 ",.02)
  1. ;;00182-8222-00
  1. ;;9002226.02101,"800,00182-8222-89 ",.01)
  1. ;;00182-8222-89
  1. ;;9002226.02101,"800,00182-8222-89 ",.02)
  1. ;;00182-8222-89
  1. ;;9002226.02101,"800,00185-0613-01 ",.01)
  1. ;;00185-0613-01
  1. ;;9002226.02101,"800,00185-0613-01 ",.02)
  1. ;;00185-0613-01
  1. ;;9002226.02101,"800,00185-0613-05 ",.01)
  1. ;;00185-0613-05
  1. ;;9002226.02101,"800,00185-0613-05 ",.02)
  1. ;;00185-0613-05
  1. ;;9002226.02101,"800,00185-0615-01 ",.01)
  1. ;;00185-0615-01
  1. ;;9002226.02101,"800,00185-0615-01 ",.02)
  1. ;;00185-0615-01
  1. ;;9002226.02101,"800,00185-0615-05 ",.01)
  1. ;;00185-0615-05
  1. ;;9002226.02101,"800,00185-0615-05 ",.02)
  1. ;;00185-0615-05
  1. ;;9002226.02101,"800,00185-0648-01 ",.01)
  1. ;;00185-0648-01
  1. ;;9002226.02101,"800,00185-0648-01 ",.02)
  1. ;;00185-0648-01
  1. ;;9002226.02101,"800,00185-0648-10 ",.01)
  1. ;;00185-0648-10
  1. ;;9002226.02101,"800,00185-0648-10 ",.02)
  1. ;;00185-0648-10
  1. ;;9002226.02101,"800,00185-0649-01 ",.01)
  1. ;;00185-0649-01
  1. ;;9002226.02101,"800,00185-0649-01 ",.02)
  1. ;;00185-0649-01
  1. ;;9002226.02101,"800,00185-0649-10 ",.01)
  1. ;;00185-0649-10
  1. ;;9002226.02101,"800,00185-0649-10 ",.02)
  1. ;;00185-0649-10
  1. ;;9002226.02101,"800,00247-0073-00 ",.01)
  1. ;;00247-0073-00
  1. ;;9002226.02101,"800,00247-0073-00 ",.02)
  1. ;;00247-0073-00
  1. ;;9002226.02101,"800,00247-0073-01 ",.01)
  1. ;;00247-0073-01
  1. ;;9002226.02101,"800,00247-0073-01 ",.02)
  1. ;;00247-0073-01
  1. ;;9002226.02101,"800,00247-0073-02 ",.01)
  1. ;;00247-0073-02
  1. ;;9002226.02101,"800,00247-0073-02 ",.02)
  1. ;;00247-0073-02
  1. ;;9002226.02101,"800,00247-0073-03 ",.01)
  1. ;;00247-0073-03
  1. ;;9002226.02101,"800,00247-0073-03 ",.02)
  1. ;;00247-0073-03
  1. ;;9002226.02101,"800,00247-0073-04 ",.01)
  1. ;;00247-0073-04
  1. ;;9002226.02101,"800,00247-0073-04 ",.02)
  1. ;;00247-0073-04
  1. ;;9002226.02101,"800,00247-0073-05 ",.01)
  1. ;;00247-0073-05
  1. ;;9002226.02101,"800,00247-0073-05 ",.02)
  1. ;;00247-0073-05
  1. ;;9002226.02101,"800,00247-0073-06 ",.01)
  1. ;;00247-0073-06
  1. ;;9002226.02101,"800,00247-0073-06 ",.02)
  1. ;;00247-0073-06
  1. ;;9002226.02101,"800,00247-0073-07 ",.01)
  1. ;;00247-0073-07
  1. ;;9002226.02101,"800,00247-0073-07 ",.02)
  1. ;;00247-0073-07
  1. ;;9002226.02101,"800,00247-0073-08 ",.01)
  1. ;;00247-0073-08
  1. ;;9002226.02101,"800,00247-0073-08 ",.02)
  1. ;;00247-0073-08
  1. ;;9002226.02101,"800,00247-0073-10 ",.01)
  1. ;;00247-0073-10
  1. ;;9002226.02101,"800,00247-0073-10 ",.02)
  1. ;;00247-0073-10
  1. ;;9002226.02101,"800,00247-0073-12 ",.01)
  1. ;;00247-0073-12
  1. ;;9002226.02101,"800,00247-0073-12 ",.02)
  1. ;;00247-0073-12
  1. ;;9002226.02101,"800,00247-0073-14 ",.01)
  1. ;;00247-0073-14
  1. ;;9002226.02101,"800,00247-0073-14 ",.02)
  1. ;;00247-0073-14
  1. ;;9002226.02101,"800,00247-0073-15 ",.01)
  1. ;;00247-0073-15
  1. ;;9002226.02101,"800,00247-0073-15 ",.02)
  1. ;;00247-0073-15
  1. ;;9002226.02101,"800,00247-0073-16 ",.01)
  1. ;;00247-0073-16
  1. ;;9002226.02101,"800,00247-0073-16 ",.02)
  1. ;;00247-0073-16
  1. ;;9002226.02101,"800,00247-0073-18 ",.01)
  1. ;;00247-0073-18
  1. ;;9002226.02101,"800,00247-0073-18 ",.02)
  1. ;;00247-0073-18
  1. ;;9002226.02101,"800,00247-0073-20 ",.01)
  1. ;;00247-0073-20
  1. ;;9002226.02101,"800,00247-0073-20 ",.02)
  1. ;;00247-0073-20
  1. ;;9002226.02101,"800,00247-0073-21 ",.01)
  1. ;;00247-0073-21
  1. ;;9002226.02101,"800,00247-0073-21 ",.02)
  1. ;;00247-0073-21
  1. ;;9002226.02101,"800,00247-0073-24 ",.01)
  1. ;;00247-0073-24
  1. ;;9002226.02101,"800,00247-0073-24 ",.02)
  1. ;;00247-0073-24
  1. ;;9002226.02101,"800,00247-0073-25 ",.01)
  1. ;;00247-0073-25
  1. ;;9002226.02101,"800,00247-0073-25 ",.02)
  1. ;;00247-0073-25
  1. ;;9002226.02101,"800,00247-0073-30 ",.01)
  1. ;;00247-0073-30
  1. ;;9002226.02101,"800,00247-0073-30 ",.02)
  1. ;;00247-0073-30
  1. ;;9002226.02101,"800,00247-0073-40 ",.01)
  1. ;;00247-0073-40
  1. ;;9002226.02101,"800,00247-0073-40 ",.02)
  1. ;;00247-0073-40
  1. ;;9002226.02101,"800,00247-0073-60 ",.01)
  1. ;;00247-0073-60
  1. ;;9002226.02101,"800,00247-0073-60 ",.02)
  1. ;;00247-0073-60
  1. ;;9002226.02101,"800,00247-0073-90 ",.01)
  1. ;;00247-0073-90
  1. ;;9002226.02101,"800,00247-0073-90 ",.02)
  1. ;;00247-0073-90
  1. ;;9002226.02101,"800,00247-0073-99 ",.01)
  1. ;;00247-0073-99
  1. ;;9002226.02101,"800,00247-0073-99 ",.02)
  1. ;;00247-0073-99
  1. ;;9002226.02101,"800,00247-0081-04 ",.01)
  1. ;;00247-0081-04
  1. ;;9002226.02101,"800,00247-0081-04 ",.02)
  1. ;;00247-0081-04
  1. ;;9002226.02101,"800,00247-0081-10 ",.01)
  1. ;;00247-0081-10
  1. ;;9002226.02101,"800,00247-0081-10 ",.02)
  1. ;;00247-0081-10
  1. ;;9002226.02101,"800,00247-0081-20 ",.01)
  1. ;;00247-0081-20
  1. ;;9002226.02101,"800,00247-0081-20 ",.02)
  1. ;;00247-0081-20
  1. ;;9002226.02101,"800,00247-0081-30 ",.01)
  1. ;;00247-0081-30
  1. ;;9002226.02101,"800,00247-0081-30 ",.02)
  1. ;;00247-0081-30
  1. ;;9002226.02101,"800,00247-0081-38 ",.01)
  1. ;;00247-0081-38
  1. ;;9002226.02101,"800,00247-0081-38 ",.02)
  1. ;;00247-0081-38
  1. ;;9002226.02101,"800,00247-0081-52 ",.01)
  1. ;;00247-0081-52
  1. ;;9002226.02101,"800,00247-0081-52 ",.02)
  1. ;;00247-0081-52
  1. ;;9002226.02101,"800,00247-0081-59 ",.01)
  1. ;;00247-0081-59
  1. ;;9002226.02101,"800,00247-0081-59 ",.02)
  1. ;;00247-0081-59
  1. ;;9002226.02101,"800,00247-0081-60 ",.01)
  1. ;;00247-0081-60
  1. ;;9002226.02101,"800,00247-0081-60 ",.02)
  1. ;;00247-0081-60
  1. ;;9002226.02101,"800,00247-0081-77 ",.01)
  1. ;;00247-0081-77
  1. ;;9002226.02101,"800,00247-0081-77 ",.02)
  1. ;;00247-0081-77
  1. ;;9002226.02101,"800,00247-0081-89 ",.01)
  1. ;;00247-0081-89
  1. ;;9002226.02101,"800,00247-0081-89 ",.02)
  1. ;;00247-0081-89
  1. ;;9002226.02101,"800,00247-0105-00 ",.01)
  1. ;;00247-0105-00
  1. ;;9002226.02101,"800,00247-0105-00 ",.02)
  1. ;;00247-0105-00
  1. ;;9002226.02101,"800,00247-0105-01 ",.01)
  1. ;;00247-0105-01
  1. ;;9002226.02101,"800,00247-0105-01 ",.02)
  1. ;;00247-0105-01
  1. ;;9002226.02101,"800,00247-0105-02 ",.01)
  1. ;;00247-0105-02
  1. ;;9002226.02101,"800,00247-0105-02 ",.02)
  1. ;;00247-0105-02
  1. ;;9002226.02101,"800,00247-0105-03 ",.01)
  1. ;;00247-0105-03
  1. ;;9002226.02101,"800,00247-0105-03 ",.02)
  1. ;;00247-0105-03
  1. ;;9002226.02101,"800,00247-0105-04 ",.01)
  1. ;;00247-0105-04
  1. ;;9002226.02101,"800,00247-0105-04 ",.02)
  1. ;;00247-0105-04
  1. ;;9002226.02101,"800,00247-0105-05 ",.01)
  1. ;;00247-0105-05
  1. ;;9002226.02101,"800,00247-0105-05 ",.02)
  1. ;;00247-0105-05
  1. ;;9002226.02101,"800,00247-0105-06 ",.01)
  1. ;;00247-0105-06
  1. ;;9002226.02101,"800,00247-0105-06 ",.02)
  1. ;;00247-0105-06
  1. ;;9002226.02101,"800,00247-0105-07 ",.01)
  1. ;;00247-0105-07
  1. ;;9002226.02101,"800,00247-0105-07 ",.02)
  1. ;;00247-0105-07
  1. ;;9002226.02101,"800,00247-0105-08 ",.01)
  1. ;;00247-0105-08
  1. ;;9002226.02101,"800,00247-0105-08 ",.02)
  1. ;;00247-0105-08
  1. ;;9002226.02101,"800,00247-0105-10 ",.01)
  1. ;;00247-0105-10
  1. ;;9002226.02101,"800,00247-0105-10 ",.02)
  1. ;;00247-0105-10
  1. ;;9002226.02101,"800,00247-0105-12 ",.01)
  1. ;;00247-0105-12
  1. ;;9002226.02101,"800,00247-0105-12 ",.02)
  1. ;;00247-0105-12
  1. ;;9002226.02101,"800,00247-0105-14 ",.01)
  1. ;;00247-0105-14
  1. ;;9002226.02101,"800,00247-0105-14 ",.02)
  1. ;;00247-0105-14
  1. ;;9002226.02101,"800,00247-0105-15 ",.01)
  1. ;;00247-0105-15
  1. ;;9002226.02101,"800,00247-0105-15 ",.02)
  1. ;;00247-0105-15
  1. ;;9002226.02101,"800,00247-0105-20 ",.01)
  1. ;;00247-0105-20
  1. ;;9002226.02101,"800,00247-0105-20 ",.02)
  1. ;;00247-0105-20
  1. ;;9002226.02101,"800,00247-0105-21 ",.01)
  1. ;;00247-0105-21
  1. ;;9002226.02101,"800,00247-0105-21 ",.02)
  1. ;;00247-0105-21
  1. ;;9002226.02101,"800,00247-0105-24 ",.01)
  1. ;;00247-0105-24
  1. ;;9002226.02101,"800,00247-0105-24 ",.02)
  1. ;;00247-0105-24
  1. ;;9002226.02101,"800,00247-0105-30 ",.01)
  1. ;;00247-0105-30
  1. ;;9002226.02101,"800,00247-0105-30 ",.02)
  1. ;;00247-0105-30
  1. ;;9002226.02101,"800,00247-0105-35 ",.01)
  1. ;;00247-0105-35
  1. ;;9002226.02101,"800,00247-0105-35 ",.02)
  1. ;;00247-0105-35
  1. ;;9002226.02101,"800,00247-0120-00 ",.01)
  1. ;;00247-0120-00
  1. ;;9002226.02101,"800,00247-0120-00 ",.02)
  1. ;;00247-0120-00
  1. ;;9002226.02101,"800,00247-0120-01 ",.01)
  1. ;;00247-0120-01
  1. ;;9002226.02101,"800,00247-0120-01 ",.02)
  1. ;;00247-0120-01
  1. ;;9002226.02101,"800,00247-0120-02 ",.01)
  1. ;;00247-0120-02
  1. ;;9002226.02101,"800,00247-0120-02 ",.02)
  1. ;;00247-0120-02
  1. ;;9002226.02101,"800,00247-0120-03 ",.01)
  1. ;;00247-0120-03
  1. ;;9002226.02101,"800,00247-0120-03 ",.02)
  1. ;;00247-0120-03
  1. ;;9002226.02101,"800,00247-0120-04 ",.01)
  1. ;;00247-0120-04
  1. ;;9002226.02101,"800,00247-0120-04 ",.02)
  1. ;;00247-0120-04
  1. ;;9002226.02101,"800,00247-0120-05 ",.01)
  1. ;;00247-0120-05
  1. ;;9002226.02101,"800,00247-0120-05 ",.02)
  1. ;;00247-0120-05
  1. ;;9002226.02101,"800,00247-0120-06 ",.01)
  1. ;;00247-0120-06
  1. ;;9002226.02101,"800,00247-0120-06 ",.02)
  1. ;;00247-0120-06
  1. ;;9002226.02101,"800,00247-0120-07 ",.01)
  1. ;;00247-0120-07