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

BGP06D10.m

Go to the documentation of this file.
  1. BGP06D10 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON MAY 23, 2010;
  1. ;;10.0;IHS CLINICAL REPORTING;;JUN 18, 2010
  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,"978,00603-0241-18 ",.01)
  1. ;;00603-0241-18
  1. ;;9002226.02101,"978,00603-0241-18 ",.02)
  1. ;;00603-0241-18
  1. ;;9002226.02101,"978,00603-0822-54 ",.01)
  1. ;;00603-0822-54
  1. ;;9002226.02101,"978,00603-0822-54 ",.02)
  1. ;;00603-0822-54
  1. ;;9002226.02101,"978,00603-0823-54 ",.01)
  1. ;;00603-0823-54
  1. ;;9002226.02101,"978,00603-0823-54 ",.02)
  1. ;;00603-0823-54
  1. ;;9002226.02101,"978,00603-0823-58 ",.01)
  1. ;;00603-0823-58
  1. ;;9002226.02101,"978,00603-0823-58 ",.02)
  1. ;;00603-0823-58
  1. ;;9002226.02101,"978,00603-0823-81 ",.01)
  1. ;;00603-0823-81
  1. ;;9002226.02101,"978,00603-0823-81 ",.02)
  1. ;;00603-0823-81
  1. ;;9002226.02101,"978,00603-0823-94 ",.01)
  1. ;;00603-0823-94
  1. ;;9002226.02101,"978,00603-0823-94 ",.02)
  1. ;;00603-0823-94
  1. ;;9002226.02101,"978,00603-0860-54 ",.01)
  1. ;;00603-0860-54
  1. ;;9002226.02101,"978,00603-0860-54 ",.02)
  1. ;;00603-0860-54
  1. ;;9002226.02101,"978,00603-1117-58 ",.01)
  1. ;;00603-1117-58
  1. ;;9002226.02101,"978,00603-1117-58 ",.02)
  1. ;;00603-1117-58
  1. ;;9002226.02101,"978,00603-1175-58 ",.01)
  1. ;;00603-1175-58
  1. ;;9002226.02101,"978,00603-1175-58 ",.02)
  1. ;;00603-1175-58
  1. ;;9002226.02101,"978,00603-1310-58 ",.01)
  1. ;;00603-1310-58
  1. ;;9002226.02101,"978,00603-1310-58 ",.02)
  1. ;;00603-1310-58
  1. ;;9002226.02101,"978,00603-1584-54 ",.01)
  1. ;;00603-1584-54
  1. ;;9002226.02101,"978,00603-1584-54 ",.02)
  1. ;;00603-1584-54
  1. ;;9002226.02101,"978,00603-1584-58 ",.01)
  1. ;;00603-1584-58
  1. ;;9002226.02101,"978,00603-1584-58 ",.02)
  1. ;;00603-1584-58
  1. ;;9002226.02101,"978,00603-1585-54 ",.01)
  1. ;;00603-1585-54
  1. ;;9002226.02101,"978,00603-1585-54 ",.02)
  1. ;;00603-1585-54
  1. ;;9002226.02101,"978,00603-1585-58 ",.01)
  1. ;;00603-1585-58
  1. ;;9002226.02101,"978,00603-1585-58 ",.02)
  1. ;;00603-1585-58
  1. ;;9002226.02101,"978,00603-1586-54 ",.01)
  1. ;;00603-1586-54
  1. ;;9002226.02101,"978,00603-1586-54 ",.02)
  1. ;;00603-1586-54
  1. ;;9002226.02101,"978,00603-1586-58 ",.01)
  1. ;;00603-1586-58
  1. ;;9002226.02101,"978,00603-1586-58 ",.02)
  1. ;;00603-1586-58
  1. ;;9002226.02101,"978,00603-1587-54 ",.01)
  1. ;;00603-1587-54
  1. ;;9002226.02101,"978,00603-1587-54 ",.02)
  1. ;;00603-1587-54
  1. ;;9002226.02101,"978,00603-1587-58 ",.01)
  1. ;;00603-1587-58
  1. ;;9002226.02101,"978,00603-1587-58 ",.02)
  1. ;;00603-1587-58
  1. ;;9002226.02101,"978,00603-1588-54 ",.01)
  1. ;;00603-1588-54
  1. ;;9002226.02101,"978,00603-1588-54 ",.02)
  1. ;;00603-1588-54
  1. ;;9002226.02101,"978,00603-1588-58 ",.01)
  1. ;;00603-1588-58
  1. ;;9002226.02101,"978,00603-1588-58 ",.02)
  1. ;;00603-1588-58
  1. ;;9002226.02101,"978,00603-3198-21 ",.01)
  1. ;;00603-3198-21
  1. ;;9002226.02101,"978,00603-3198-21 ",.02)
  1. ;;00603-3198-21
  1. ;;9002226.02101,"978,00603-3199-21 ",.01)
  1. ;;00603-3199-21
  1. ;;9002226.02101,"978,00603-3199-21 ",.02)
  1. ;;00603-3199-21
  1. ;;9002226.02101,"978,00603-3337-21 ",.01)
  1. ;;00603-3337-21
  1. ;;9002226.02101,"978,00603-3337-21 ",.02)
  1. ;;00603-3337-21
  1. ;;9002226.02101,"978,00603-3337-32 ",.01)
  1. ;;00603-3337-32
  1. ;;9002226.02101,"978,00603-3337-32 ",.02)
  1. ;;00603-3337-32
  1. ;;9002226.02101,"978,00603-3338-21 ",.01)
  1. ;;00603-3338-21
  1. ;;9002226.02101,"978,00603-3338-21 ",.02)
  1. ;;00603-3338-21
  1. ;;9002226.02101,"978,00603-3338-32 ",.01)
  1. ;;00603-3338-32
  1. ;;9002226.02101,"978,00603-3338-32 ",.02)
  1. ;;00603-3338-32
  1. ;;9002226.02101,"978,00603-3339-21 ",.01)
  1. ;;00603-3339-21
  1. ;;9002226.02101,"978,00603-3339-21 ",.02)
  1. ;;00603-3339-21
  1. ;;9002226.02101,"978,00603-3339-32 ",.01)
  1. ;;00603-3339-32
  1. ;;9002226.02101,"978,00603-3339-32 ",.02)
  1. ;;00603-3339-32
  1. ;;9002226.02101,"978,00603-3340-21 ",.01)
  1. ;;00603-3340-21
  1. ;;9002226.02101,"978,00603-3340-21 ",.02)
  1. ;;00603-3340-21
  1. ;;9002226.02101,"978,00603-3340-32 ",.01)
  1. ;;00603-3340-32
  1. ;;9002226.02101,"978,00603-3340-32 ",.02)
  1. ;;00603-3340-32
  1. ;;9002226.02101,"978,00603-3967-21 ",.01)
  1. ;;00603-3967-21
  1. ;;9002226.02101,"978,00603-3967-21 ",.02)
  1. ;;00603-3967-21
  1. ;;9002226.02101,"978,00603-3967-28 ",.01)
  1. ;;00603-3967-28
  1. ;;9002226.02101,"978,00603-3967-28 ",.02)
  1. ;;00603-3967-28
  1. ;;9002226.02101,"978,00603-3967-32 ",.01)
  1. ;;00603-3967-32
  1. ;;9002226.02101,"978,00603-3967-32 ",.02)
  1. ;;00603-3967-32
  1. ;;9002226.02101,"978,00603-3968-21 ",.01)
  1. ;;00603-3968-21
  1. ;;9002226.02101,"978,00603-3968-21 ",.02)
  1. ;;00603-3968-21
  1. ;;9002226.02101,"978,00603-3968-28 ",.01)
  1. ;;00603-3968-28
  1. ;;9002226.02101,"978,00603-3968-28 ",.02)
  1. ;;00603-3968-28
  1. ;;9002226.02101,"978,00603-3968-32 ",.01)
  1. ;;00603-3968-32
  1. ;;9002226.02101,"978,00603-3968-32 ",.02)
  1. ;;00603-3968-32
  1. ;;9002226.02101,"978,00603-3969-21 ",.01)
  1. ;;00603-3969-21
  1. ;;9002226.02101,"978,00603-3969-21 ",.02)
  1. ;;00603-3969-21
  1. ;;9002226.02101,"978,00603-3969-28 ",.01)
  1. ;;00603-3969-28
  1. ;;9002226.02101,"978,00603-3969-28 ",.02)
  1. ;;00603-3969-28
  1. ;;9002226.02101,"978,00603-3994-21 ",.01)
  1. ;;00603-3994-21
  1. ;;9002226.02101,"978,00603-3994-21 ",.02)
  1. ;;00603-3994-21
  1. ;;9002226.02101,"978,00603-3994-28 ",.01)
  1. ;;00603-3994-28
  1. ;;9002226.02101,"978,00603-3994-28 ",.02)
  1. ;;00603-3994-28
  1. ;;9002226.02101,"978,00603-3995-21 ",.01)
  1. ;;00603-3995-21
  1. ;;9002226.02101,"978,00603-3995-21 ",.02)
  1. ;;00603-3995-21
  1. ;;9002226.02101,"978,00603-5437-21 ",.01)
  1. ;;00603-5437-21
  1. ;;9002226.02101,"978,00603-5437-21 ",.02)
  1. ;;00603-5437-21
  1. ;;9002226.02101,"978,00603-5438-21 ",.01)
  1. ;;00603-5438-21
  1. ;;9002226.02101,"978,00603-5438-21 ",.02)
  1. ;;00603-5438-21
  1. ;;9002226.02101,"978,00603-5438-32 ",.01)
  1. ;;00603-5438-32
  1. ;;9002226.02101,"978,00603-5438-32 ",.02)
  1. ;;00603-5438-32
  1. ;;9002226.02101,"978,00603-5439-21 ",.01)
  1. ;;00603-5439-21
  1. ;;9002226.02101,"978,00603-5439-21 ",.02)
  1. ;;00603-5439-21
  1. ;;9002226.02101,"978,00615-0331-53 ",.01)
  1. ;;00615-0331-53
  1. ;;9002226.02101,"978,00615-0331-53 ",.02)
  1. ;;00615-0331-53
  1. ;;9002226.02101,"978,00615-0331-63 ",.01)
  1. ;;00615-0331-63
  1. ;;9002226.02101,"978,00615-0331-63 ",.02)
  1. ;;00615-0331-63
  1. ;;9002226.02101,"978,00615-0332-13 ",.01)
  1. ;;00615-0332-13
  1. ;;9002226.02101,"978,00615-0332-13 ",.02)
  1. ;;00615-0332-13
  1. ;;9002226.02101,"978,00615-0332-63 ",.01)
  1. ;;00615-0332-63
  1. ;;9002226.02101,"978,00615-0332-63 ",.02)
  1. ;;00615-0332-63
  1. ;;9002226.02101,"978,00615-0368-01 ",.01)
  1. ;;00615-0368-01
  1. ;;9002226.02101,"978,00615-0368-01 ",.02)
  1. ;;00615-0368-01
  1. ;;9002226.02101,"978,00615-0368-10 ",.01)
  1. ;;00615-0368-10
  1. ;;9002226.02101,"978,00615-0368-10 ",.02)
  1. ;;00615-0368-10
  1. ;;9002226.02101,"978,00615-0368-32 ",.01)
  1. ;;00615-0368-32
  1. ;;9002226.02101,"978,00615-0368-32 ",.02)
  1. ;;00615-0368-32
  1. ;;9002226.02101,"978,00615-0369-01 ",.01)
  1. ;;00615-0369-01
  1. ;;9002226.02101,"978,00615-0369-01 ",.02)
  1. ;;00615-0369-01
  1. ;;9002226.02101,"978,00615-0369-10 ",.01)
  1. ;;00615-0369-10
  1. ;;9002226.02101,"978,00615-0369-10 ",.02)
  1. ;;00615-0369-10
  1. ;;9002226.02101,"978,00615-0369-32 ",.01)
  1. ;;00615-0369-32
  1. ;;9002226.02101,"978,00615-0369-32 ",.02)
  1. ;;00615-0369-32
  1. ;;9002226.02101,"978,00615-0369-53 ",.01)
  1. ;;00615-0369-53
  1. ;;9002226.02101,"978,00615-0369-53 ",.02)
  1. ;;00615-0369-53
  1. ;;9002226.02101,"978,00615-0369-63 ",.01)
  1. ;;00615-0369-63
  1. ;;9002226.02101,"978,00615-0369-63 ",.02)
  1. ;;00615-0369-63
  1. ;;9002226.02101,"978,00615-1525-13 ",.01)
  1. ;;00615-1525-13
  1. ;;9002226.02101,"978,00615-1525-13 ",.02)
  1. ;;00615-1525-13
  1. ;;9002226.02101,"978,00615-1526-43 ",.01)
  1. ;;00615-1526-43
  1. ;;9002226.02101,"978,00615-1526-43 ",.02)
  1. ;;00615-1526-43
  1. ;;9002226.02101,"978,00615-1526-53 ",.01)
  1. ;;00615-1526-53
  1. ;;9002226.02101,"978,00615-1526-53 ",.02)
  1. ;;00615-1526-53
  1. ;;9002226.02101,"978,00615-1526-63 ",.01)
  1. ;;00615-1526-63
  1. ;;9002226.02101,"978,00615-1526-63 ",.02)
  1. ;;00615-1526-63
  1. ;;9002226.02101,"978,00615-1536-13 ",.01)
  1. ;;00615-1536-13
  1. ;;9002226.02101,"978,00615-1536-13 ",.02)
  1. ;;00615-1536-13
  1. ;;9002226.02101,"978,00677-0597-01 ",.01)
  1. ;;00677-0597-01
  1. ;;9002226.02101,"978,00677-0597-01 ",.02)
  1. ;;00677-0597-01
  1. ;;9002226.02101,"978,00677-0604-01 ",.01)
  1. ;;00677-0604-01
  1. ;;9002226.02101,"978,00677-0604-01 ",.02)
  1. ;;00677-0604-01
  1. ;;9002226.02101,"978,00677-0604-05 ",.01)
  1. ;;00677-0604-05
  1. ;;9002226.02101,"978,00677-0604-05 ",.02)
  1. ;;00677-0604-05
  1. ;;9002226.02101,"978,00677-0604-10 ",.01)
  1. ;;00677-0604-10
  1. ;;9002226.02101,"978,00677-0604-10 ",.02)
  1. ;;00677-0604-10
  1. ;;9002226.02101,"978,00677-0605-01 ",.01)
  1. ;;00677-0605-01
  1. ;;9002226.02101,"978,00677-0605-01 ",.02)
  1. ;;00677-0605-01
  1. ;;9002226.02101,"978,00677-0605-05 ",.01)
  1. ;;00677-0605-05
  1. ;;9002226.02101,"978,00677-0605-05 ",.02)
  1. ;;00677-0605-05
  1. ;;9002226.02101,"978,00677-0605-10 ",.01)
  1. ;;00677-0605-10
  1. ;;9002226.02101,"978,00677-0605-10 ",.02)
  1. ;;00677-0605-10
  1. ;;9002226.02101,"978,00677-0606-01 ",.01)
  1. ;;00677-0606-01
  1. ;;9002226.02101,"978,00677-0606-01 ",.02)
  1. ;;00677-0606-01
  1. ;;9002226.02101,"978,00677-0606-05 ",.01)
  1. ;;00677-0606-05
  1. ;;9002226.02101,"978,00677-0606-05 ",.02)
  1. ;;00677-0606-05
  1. ;;9002226.02101,"978,00677-0606-10 ",.01)
  1. ;;00677-0606-10
  1. ;;9002226.02101,"978,00677-0606-10 ",.02)
  1. ;;00677-0606-10
  1. ;;9002226.02101,"978,00677-1827-33 ",.01)
  1. ;;00677-1827-33
  1. ;;9002226.02101,"978,00677-1827-33 ",.02)
  1. ;;00677-1827-33
  1. ;;9002226.02101,"978,00677-1828-33 ",.01)
  1. ;;00677-1828-33
  1. ;;9002226.02101,"978,00677-1828-33 ",.02)
  1. ;;00677-1828-33
  1. ;;9002226.02101,"978,00677-1856-01 ",.01)
  1. ;;00677-1856-01
  1. ;;9002226.02101,"978,00677-1856-01 ",.02)
  1. ;;00677-1856-01
  1. ;;9002226.02101,"978,00677-1856-10 ",.01)
  1. ;;00677-1856-10
  1. ;;9002226.02101,"978,00677-1856-10 ",.02)
  1. ;;00677-1856-10
  1. ;;9002226.02101,"978,00677-1857-01 ",.01)
  1. ;;00677-1857-01
  1. ;;9002226.02101,"978,00677-1857-01 ",.02)
  1. ;;00677-1857-01
  1. ;;9002226.02101,"978,00677-1857-10 ",.01)
  1. ;;00677-1857-10
  1. ;;9002226.02101,"978,00677-1857-10 ",.02)
  1. ;;00677-1857-10
  1. ;;9002226.02101,"978,00677-1914-41 ",.01)
  1. ;;00677-1914-41
  1. ;;9002226.02101,"978,00677-1914-41 ",.02)
  1. ;;00677-1914-41
  1. ;;9002226.02101,"978,00677-1956-41 ",.01)
  1. ;;00677-1956-41
  1. ;;9002226.02101,"978,00677-1956-41 ",.02)
  1. ;;00677-1956-41
  1. ;;9002226.02101,"978,00677-1957-06 ",.01)
  1. ;;00677-1957-06
  1. ;;9002226.02101,"978,00677-1957-06 ",.02)
  1. ;;00677-1957-06
  1. ;;9002226.02101,"978,00677-1958-06 ",.01)
  1. ;;00677-1958-06
  1. ;;9002226.02101,"978,00677-1958-06 ",.02)
  1. ;;00677-1958-06
  1. ;;9002226.02101,"978,00677-1959-41 ",.01)
  1. ;;00677-1959-41
  1. ;;9002226.02101,"978,00677-1959-41 ",.02)
  1. ;;00677-1959-41
  1. ;;9002226.02101,"978,00677-1960-41 ",.01)
  1. ;;00677-1960-41
  1. ;;9002226.02101,"978,00677-1960-41 ",.02)
  1. ;;00677-1960-41
  1. ;;9002226.02101,"978,00677-1961-06 ",.01)
  1. ;;00677-1961-06
  1. ;;9002226.02101,"978,00677-1961-06 ",.02)
  1. ;;00677-1961-06
  1. ;;9002226.02101,"978,00781-1125-01 ",.01)
  1. ;;00781-1125-01
  1. ;;9002226.02101,"978,00781-1125-01 ",.02)
  1. ;;00781-1125-01
  1. ;;9002226.02101,"978,00781-1830-01 ",.01)
  1. ;;00781-1830-01
  1. ;;9002226.02101,"978,00781-1830-01 ",.02)
  1. ;;00781-1830-01
  1. ;;9002226.02101,"978,00781-1832-01 ",.01)
  1. ;;00781-1832-01
  1. ;;9002226.02101,"978,00781-1832-01 ",.02)
  1. ;;00781-1832-01
  1. ;;9002226.02101,"978,00781-2256-01 ",.01)
  1. ;;00781-2256-01
  1. ;;9002226.02101,"978,00781-2256-01 ",.02)
  1. ;;00781-2256-01
  1. ;;9002226.02101,"978,00781-2458-13 ",.01)
  1. ;;00781-2458-13
  1. ;;9002226.02101,"978,00781-2458-13 ",.02)
  1. ;;00781-2458-13
  1. ;;9002226.02101,"978,00781-2498-13 ",.01)
  1. ;;00781-2498-13
  1. ;;9002226.02101,"978,00781-2498-13 ",.02)
  1. ;;00781-2498-13
  1. ;;9002226.02101,"978,00781-6575-04 ",.01)
  1. ;;00781-6575-04
  1. ;;9002226.02101,"978,00781-6575-04 ",.02)
  1. ;;00781-6575-04
  1. ;;9002226.02101,"978,00781-6575-16 ",.01)
  1. ;;00781-6575-16
  1. ;;9002226.02101,"978,00781-6575-16 ",.02)
  1. ;;00781-6575-16
  1. ;;9002226.02101,"978,00781-6575-28 ",.01)
  1. ;;00781-6575-28
  1. ;;9002226.02101,"978,00781-6575-28 ",.02)
  1. ;;00781-6575-28
  1. ;;9002226.02101,"978,00904-0123-09 ",.01)
  1. ;;00904-0123-09
  1. ;;9002226.02101,"978,00904-0123-09 ",.02)
  1. ;;00904-0123-09
  1. ;;9002226.02101,"978,00904-0123-16 ",.01)
  1. ;;00904-0123-16
  1. ;;9002226.02101,"978,00904-0123-16 ",.02)
  1. ;;00904-0123-16
  1. ;;9002226.02101,"978,00904-0357-40 ",.01)
  1. ;;00904-0357-40
  1. ;;9002226.02101,"978,00904-0357-40 ",.02)
  1. ;;00904-0357-40
  1. ;;9002226.02101,"978,00904-0357-60 ",.01)
  1. ;;00904-0357-60
  1. ;;9002226.02101,"978,00904-0357-60 ",.02)
  1. ;;00904-0357-60
  1. ;;9002226.02101,"978,00904-0358-40 ",.01)
  1. ;;00904-0358-40
  1. ;;9002226.02101,"978,00904-0358-40 ",.02)
  1. ;;00904-0358-40
  1. ;;9002226.02101,"978,00904-0358-60 ",.01)
  1. ;;00904-0358-60
  1. ;;9002226.02101,"978,00904-0358-60 ",.02)
  1. ;;00904-0358-60
  1. ;;9002226.02101,"978,00904-0359-40 ",.01)
  1. ;;00904-0359-40
  1. ;;9002226.02101,"978,00904-0359-40 ",.02)
  1. ;;00904-0359-40
  1. ;;9002226.02101,"978,00904-0359-60 ",.01)
  1. ;;00904-0359-60
  1. ;;9002226.02101,"978,00904-0359-60 ",.02)
  1. ;;00904-0359-60
  1. ;;9002226.02101,"978,00904-0624-16 ",.01)
  1. ;;00904-0624-16
  1. ;;9002226.02101,"978,00904-0624-16 ",.02)
  1. ;;00904-0624-16
  1. ;;9002226.02101,"978,00904-0624-28 ",.01)
  1. ;;00904-0624-28
  1. ;;9002226.02101,"978,00904-0624-28 ",.02)
  1. ;;00904-0624-28
  1. ;;9002226.02101,"978,00904-1145-61 ",.01)
  1. ;;00904-1145-61
  1. ;;9002226.02101,"978,00904-1145-61 ",.02)
  1. ;;00904-1145-61
  1. ;;9002226.02101,"978,00904-1145-70 ",.01)
  1. ;;00904-1145-70
  1. ;;9002226.02101,"978,00904-1145-70 ",.02)
  1. ;;00904-1145-70
  1. ;;9002226.02101,"978,00904-1146-16 ",.01)
  1. ;;00904-1146-16
  1. ;;9002226.02101,"978,00904-1146-16 ",.02)
  1. ;;00904-1146-16
  1. ;;9002226.02101,"978,00904-1146-28 ",.01)
  1. ;;00904-1146-28
  1. ;;9002226.02101,"978,00904-1146-28 ",.02)
  1. ;;00904-1146-28
  1. ;;9002226.02101,"978,00904-1228-00 ",.01)
  1. ;;00904-1228-00
  1. ;;9002226.02101,"978,00904-1228-00 ",.02)
  1. ;;00904-1228-00
  1. ;;9002226.02101,"978,00904-1228-20 ",.01)
  1. ;;00904-1228-20
  1. ;;9002226.02101,"978,00904-1228-20 ",.02)
  1. ;;00904-1228-20
  1. ;;9002226.02101,"978,00904-1508-00 ",.01)
  1. ;;00904-1508-00
  1. ;;9002226.02101,"978,00904-1508-00 ",.02)
  1. ;;00904-1508-00