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

BGP62Z23.m

Go to the documentation of this file.
  1. BGP62Z23 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 11, 2016;
  1. ;;16.1;IHS CLINICAL REPORTING;;MAR 22, 2016;Build 170
  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,"869,00378-5375-01 ",.01)
  1. ;;00378-5375-01
  1. ;;9002226.02101,"869,00378-5375-01 ",.02)
  1. ;;00378-5375-01
  1. ;;9002226.02101,"869,00378-5375-10 ",.01)
  1. ;;00378-5375-10
  1. ;;9002226.02101,"869,00378-5375-10 ",.02)
  1. ;;00378-5375-10
  1. ;;9002226.02101,"869,00378-5410-28 ",.01)
  1. ;;00378-5410-28
  1. ;;9002226.02101,"869,00378-5410-28 ",.02)
  1. ;;00378-5410-28
  1. ;;9002226.02101,"869,00378-5420-28 ",.01)
  1. ;;00378-5420-28
  1. ;;9002226.02101,"869,00378-5420-28 ",.02)
  1. ;;00378-5420-28
  1. ;;9002226.02101,"869,00378-5521-01 ",.01)
  1. ;;00378-5521-01
  1. ;;9002226.02101,"869,00378-5521-01 ",.02)
  1. ;;00378-5521-01
  1. ;;9002226.02101,"869,00378-6231-01 ",.01)
  1. ;;00378-6231-01
  1. ;;9002226.02101,"869,00378-6231-01 ",.02)
  1. ;;00378-6231-01
  1. ;;9002226.02101,"869,00378-6231-05 ",.01)
  1. ;;00378-6231-05
  1. ;;9002226.02101,"869,00378-6231-05 ",.02)
  1. ;;00378-6231-05
  1. ;;9002226.02101,"869,00378-6232-01 ",.01)
  1. ;;00378-6232-01
  1. ;;9002226.02101,"869,00378-6232-01 ",.02)
  1. ;;00378-6232-01
  1. ;;9002226.02101,"869,00378-6232-05 ",.01)
  1. ;;00378-6232-05
  1. ;;9002226.02101,"869,00378-6232-05 ",.02)
  1. ;;00378-6232-05
  1. ;;9002226.02101,"869,00378-6233-01 ",.01)
  1. ;;00378-6233-01
  1. ;;9002226.02101,"869,00378-6233-01 ",.02)
  1. ;;00378-6233-01
  1. ;;9002226.02101,"869,00378-6233-05 ",.01)
  1. ;;00378-6233-05
  1. ;;9002226.02101,"869,00378-6233-05 ",.02)
  1. ;;00378-6233-05
  1. ;;9002226.02101,"869,00378-6410-01 ",.01)
  1. ;;00378-6410-01
  1. ;;9002226.02101,"869,00378-6410-01 ",.02)
  1. ;;00378-6410-01
  1. ;;9002226.02101,"869,00378-6410-10 ",.01)
  1. ;;00378-6410-10
  1. ;;9002226.02101,"869,00378-6410-10 ",.02)
  1. ;;00378-6410-10
  1. ;;9002226.02101,"869,00378-7001-10 ",.01)
  1. ;;00378-7001-10
  1. ;;9002226.02101,"869,00378-7001-10 ",.02)
  1. ;;00378-7001-10
  1. ;;9002226.02101,"869,00378-7001-93 ",.01)
  1. ;;00378-7001-93
  1. ;;9002226.02101,"869,00378-7001-93 ",.02)
  1. ;;00378-7001-93
  1. ;;9002226.02101,"869,00378-7002-10 ",.01)
  1. ;;00378-7002-10
  1. ;;9002226.02101,"869,00378-7002-10 ",.02)
  1. ;;00378-7002-10
  1. ;;9002226.02101,"869,00378-7002-93 ",.01)
  1. ;;00378-7002-93
  1. ;;9002226.02101,"869,00378-7002-93 ",.02)
  1. ;;00378-7002-93
  1. ;;9002226.02101,"869,00378-7003-10 ",.01)
  1. ;;00378-7003-10
  1. ;;9002226.02101,"869,00378-7003-10 ",.02)
  1. ;;00378-7003-10
  1. ;;9002226.02101,"869,00378-7003-93 ",.01)
  1. ;;00378-7003-93
  1. ;;9002226.02101,"869,00378-7003-93 ",.02)
  1. ;;00378-7003-93
  1. ;;9002226.02101,"869,00378-7004-10 ",.01)
  1. ;;00378-7004-10
  1. ;;9002226.02101,"869,00378-7004-10 ",.02)
  1. ;;00378-7004-10
  1. ;;9002226.02101,"869,00378-7004-93 ",.01)
  1. ;;00378-7004-93
  1. ;;9002226.02101,"869,00378-7004-93 ",.02)
  1. ;;00378-7004-93
  1. ;;9002226.02101,"869,00378-8011-01 ",.01)
  1. ;;00378-8011-01
  1. ;;9002226.02101,"869,00378-8011-01 ",.02)
  1. ;;00378-8011-01
  1. ;;9002226.02101,"869,00378-8011-05 ",.01)
  1. ;;00378-8011-05
  1. ;;9002226.02101,"869,00378-8011-05 ",.02)
  1. ;;00378-8011-05
  1. ;;9002226.02101,"869,00378-8121-01 ",.01)
  1. ;;00378-8121-01
  1. ;;9002226.02101,"869,00378-8121-01 ",.02)
  1. ;;00378-8121-01
  1. ;;9002226.02101,"869,00378-8121-05 ",.01)
  1. ;;00378-8121-05
  1. ;;9002226.02101,"869,00378-8121-05 ",.02)
  1. ;;00378-8121-05
  1. ;;9002226.02101,"869,00378-8127-01 ",.01)
  1. ;;00378-8127-01
  1. ;;9002226.02101,"869,00378-8127-01 ",.02)
  1. ;;00378-8127-01
  1. ;;9002226.02101,"869,00378-8127-05 ",.01)
  1. ;;00378-8127-05
  1. ;;9002226.02101,"869,00378-8127-05 ",.02)
  1. ;;00378-8127-05
  1. ;;9002226.02101,"869,00406-0661-01 ",.01)
  1. ;;00406-0661-01
  1. ;;9002226.02101,"869,00406-0661-01 ",.02)
  1. ;;00406-0661-01
  1. ;;9002226.02101,"869,00406-0661-05 ",.01)
  1. ;;00406-0661-05
  1. ;;9002226.02101,"869,00406-0661-05 ",.02)
  1. ;;00406-0661-05
  1. ;;9002226.02101,"869,00406-0661-91 ",.01)
  1. ;;00406-0661-91
  1. ;;9002226.02101,"869,00406-0661-91 ",.02)
  1. ;;00406-0661-91
  1. ;;9002226.02101,"869,00406-0663-01 ",.01)
  1. ;;00406-0663-01
  1. ;;9002226.02101,"869,00406-0663-01 ",.02)
  1. ;;00406-0663-01
  1. ;;9002226.02101,"869,00406-0663-03 ",.01)
  1. ;;00406-0663-03
  1. ;;9002226.02101,"869,00406-0663-03 ",.02)
  1. ;;00406-0663-03
  1. ;;9002226.02101,"869,00406-0663-05 ",.01)
  1. ;;00406-0663-05
  1. ;;9002226.02101,"869,00406-0663-05 ",.02)
  1. ;;00406-0663-05
  1. ;;9002226.02101,"869,00406-0663-62 ",.01)
  1. ;;00406-0663-62
  1. ;;9002226.02101,"869,00406-0663-62 ",.02)
  1. ;;00406-0663-62
  1. ;;9002226.02101,"869,00406-0663-91 ",.01)
  1. ;;00406-0663-91
  1. ;;9002226.02101,"869,00406-0663-91 ",.02)
  1. ;;00406-0663-91
  1. ;;9002226.02101,"869,00406-0667-01 ",.01)
  1. ;;00406-0667-01
  1. ;;9002226.02101,"869,00406-0667-01 ",.02)
  1. ;;00406-0667-01
  1. ;;9002226.02101,"869,00406-2001-03 ",.01)
  1. ;;00406-2001-03
  1. ;;9002226.02101,"869,00406-2001-03 ",.02)
  1. ;;00406-2001-03
  1. ;;9002226.02101,"869,00406-2001-05 ",.01)
  1. ;;00406-2001-05
  1. ;;9002226.02101,"869,00406-2001-05 ",.02)
  1. ;;00406-2001-05
  1. ;;9002226.02101,"869,00406-2001-90 ",.01)
  1. ;;00406-2001-90
  1. ;;9002226.02101,"869,00406-2001-90 ",.02)
  1. ;;00406-2001-90
  1. ;;9002226.02101,"869,00406-2097-03 ",.01)
  1. ;;00406-2097-03
  1. ;;9002226.02101,"869,00406-2097-03 ",.02)
  1. ;;00406-2097-03
  1. ;;9002226.02101,"869,00406-2097-05 ",.01)
  1. ;;00406-2097-05
  1. ;;9002226.02101,"869,00406-2097-05 ",.02)
  1. ;;00406-2097-05
  1. ;;9002226.02101,"869,00406-2097-90 ",.01)
  1. ;;00406-2097-90
  1. ;;9002226.02101,"869,00406-2097-90 ",.02)
  1. ;;00406-2097-90
  1. ;;9002226.02101,"869,00406-2098-01 ",.01)
  1. ;;00406-2098-01
  1. ;;9002226.02101,"869,00406-2098-01 ",.02)
  1. ;;00406-2098-01
  1. ;;9002226.02101,"869,00406-2098-03 ",.01)
  1. ;;00406-2098-03
  1. ;;9002226.02101,"869,00406-2098-03 ",.02)
  1. ;;00406-2098-03
  1. ;;9002226.02101,"869,00406-2098-05 ",.01)
  1. ;;00406-2098-05
  1. ;;9002226.02101,"869,00406-2098-05 ",.02)
  1. ;;00406-2098-05
  1. ;;9002226.02101,"869,00406-2098-90 ",.01)
  1. ;;00406-2098-90
  1. ;;9002226.02101,"869,00406-2098-90 ",.02)
  1. ;;00406-2098-90
  1. ;;9002226.02101,"869,00406-2099-03 ",.01)
  1. ;;00406-2099-03
  1. ;;9002226.02101,"869,00406-2099-03 ",.02)
  1. ;;00406-2099-03
  1. ;;9002226.02101,"869,00406-2099-05 ",.01)
  1. ;;00406-2099-05
  1. ;;9002226.02101,"869,00406-2099-05 ",.02)
  1. ;;00406-2099-05
  1. ;;9002226.02101,"869,00406-2099-90 ",.01)
  1. ;;00406-2099-90
  1. ;;9002226.02101,"869,00406-2099-90 ",.02)
  1. ;;00406-2099-90
  1. ;;9002226.02101,"869,00406-9906-01 ",.01)
  1. ;;00406-9906-01
  1. ;;9002226.02101,"869,00406-9906-01 ",.02)
  1. ;;00406-9906-01
  1. ;;9002226.02101,"869,00406-9906-03 ",.01)
  1. ;;00406-9906-03
  1. ;;9002226.02101,"869,00406-9906-03 ",.02)
  1. ;;00406-9906-03
  1. ;;9002226.02101,"869,00406-9906-62 ",.01)
  1. ;;00406-9906-62
  1. ;;9002226.02101,"869,00406-9906-62 ",.02)
  1. ;;00406-9906-62
  1. ;;9002226.02101,"869,00406-9907-01 ",.01)
  1. ;;00406-9907-01
  1. ;;9002226.02101,"869,00406-9907-01 ",.02)
  1. ;;00406-9907-01
  1. ;;9002226.02101,"869,00406-9907-03 ",.01)
  1. ;;00406-9907-03
  1. ;;9002226.02101,"869,00406-9907-03 ",.02)
  1. ;;00406-9907-03
  1. ;;9002226.02101,"869,00406-9907-62 ",.01)
  1. ;;00406-9907-62
  1. ;;9002226.02101,"869,00406-9907-62 ",.02)
  1. ;;00406-9907-62
  1. ;;9002226.02101,"869,00406-9908-01 ",.01)
  1. ;;00406-9908-01
  1. ;;9002226.02101,"869,00406-9908-01 ",.02)
  1. ;;00406-9908-01
  1. ;;9002226.02101,"869,00406-9908-03 ",.01)
  1. ;;00406-9908-03
  1. ;;9002226.02101,"869,00406-9908-03 ",.02)
  1. ;;00406-9908-03
  1. ;;9002226.02101,"869,00406-9910-01 ",.01)
  1. ;;00406-9910-01
  1. ;;9002226.02101,"869,00406-9910-01 ",.02)
  1. ;;00406-9910-01
  1. ;;9002226.02101,"869,00406-9910-03 ",.01)
  1. ;;00406-9910-03
  1. ;;9002226.02101,"869,00406-9910-03 ",.02)
  1. ;;00406-9910-03
  1. ;;9002226.02101,"869,00406-9911-01 ",.01)
  1. ;;00406-9911-01
  1. ;;9002226.02101,"869,00406-9911-01 ",.02)
  1. ;;00406-9911-01
  1. ;;9002226.02101,"869,00406-9911-03 ",.01)
  1. ;;00406-9911-03
  1. ;;9002226.02101,"869,00406-9911-03 ",.02)
  1. ;;00406-9911-03
  1. ;;9002226.02101,"869,00406-9912-01 ",.01)
  1. ;;00406-9912-01
  1. ;;9002226.02101,"869,00406-9912-01 ",.02)
  1. ;;00406-9912-01
  1. ;;9002226.02101,"869,00406-9912-03 ",.01)
  1. ;;00406-9912-03
  1. ;;9002226.02101,"869,00406-9912-03 ",.02)
  1. ;;00406-9912-03
  1. ;;9002226.02101,"869,00406-9913-03 ",.01)
  1. ;;00406-9913-03
  1. ;;9002226.02101,"869,00406-9913-03 ",.02)
  1. ;;00406-9913-03
  1. ;;9002226.02101,"869,00406-9920-03 ",.01)
  1. ;;00406-9920-03
  1. ;;9002226.02101,"869,00406-9920-03 ",.02)
  1. ;;00406-9920-03
  1. ;;9002226.02101,"869,00406-9921-03 ",.01)
  1. ;;00406-9921-03
  1. ;;9002226.02101,"869,00406-9921-03 ",.02)
  1. ;;00406-9921-03
  1. ;;9002226.02101,"869,00406-9922-01 ",.01)
  1. ;;00406-9922-01
  1. ;;9002226.02101,"869,00406-9922-01 ",.02)
  1. ;;00406-9922-01
  1. ;;9002226.02101,"869,00406-9922-03 ",.01)
  1. ;;00406-9922-03
  1. ;;9002226.02101,"869,00406-9922-03 ",.02)
  1. ;;00406-9922-03
  1. ;;9002226.02101,"869,00406-9923-01 ",.01)
  1. ;;00406-9923-01
  1. ;;9002226.02101,"869,00406-9923-01 ",.02)
  1. ;;00406-9923-01
  1. ;;9002226.02101,"869,00406-9923-03 ",.01)
  1. ;;00406-9923-03
  1. ;;9002226.02101,"869,00406-9923-03 ",.02)
  1. ;;00406-9923-03
  1. ;;9002226.02101,"869,00406-9924-01 ",.01)
  1. ;;00406-9924-01
  1. ;;9002226.02101,"869,00406-9924-01 ",.02)
  1. ;;00406-9924-01
  1. ;;9002226.02101,"869,00406-9924-03 ",.01)
  1. ;;00406-9924-03
  1. ;;9002226.02101,"869,00406-9924-03 ",.02)
  1. ;;00406-9924-03
  1. ;;9002226.02101,"869,00406-9925-01 ",.01)
  1. ;;00406-9925-01
  1. ;;9002226.02101,"869,00406-9925-01 ",.02)
  1. ;;00406-9925-01
  1. ;;9002226.02101,"869,00406-9925-03 ",.01)
  1. ;;00406-9925-03
  1. ;;9002226.02101,"869,00406-9925-03 ",.02)
  1. ;;00406-9925-03
  1. ;;9002226.02101,"869,00406-9926-01 ",.01)
  1. ;;00406-9926-01
  1. ;;9002226.02101,"869,00406-9926-01 ",.02)
  1. ;;00406-9926-01
  1. ;;9002226.02101,"869,00406-9926-03 ",.01)
  1. ;;00406-9926-03
  1. ;;9002226.02101,"869,00406-9926-03 ",.02)
  1. ;;00406-9926-03
  1. ;;9002226.02101,"869,00406-9931-03 ",.01)
  1. ;;00406-9931-03
  1. ;;9002226.02101,"869,00406-9931-03 ",.02)
  1. ;;00406-9931-03
  1. ;;9002226.02101,"869,00406-9932-03 ",.01)
  1. ;;00406-9932-03
  1. ;;9002226.02101,"869,00406-9932-03 ",.02)
  1. ;;00406-9932-03
  1. ;;9002226.02101,"869,00406-9933-03 ",.01)
  1. ;;00406-9933-03
  1. ;;9002226.02101,"869,00406-9933-03 ",.02)
  1. ;;00406-9933-03
  1. ;;9002226.02101,"869,00406-9934-03 ",.01)
  1. ;;00406-9934-03
  1. ;;9002226.02101,"869,00406-9934-03 ",.02)
  1. ;;00406-9934-03
  1. ;;9002226.02101,"869,00430-0210-14 ",.01)
  1. ;;00430-0210-14
  1. ;;9002226.02101,"869,00430-0210-14 ",.02)
  1. ;;00430-0210-14
  1. ;;9002226.02101,"869,00430-0220-14 ",.01)
  1. ;;00430-0220-14
  1. ;;9002226.02101,"869,00430-0220-14 ",.02)
  1. ;;00430-0220-14
  1. ;;9002226.02101,"869,00440-7090-30 ",.01)
  1. ;;00440-7090-30
  1. ;;9002226.02101,"869,00440-7090-30 ",.02)
  1. ;;00440-7090-30
  1. ;;9002226.02101,"869,00440-7091-30 ",.01)
  1. ;;00440-7091-30
  1. ;;9002226.02101,"869,00440-7091-30 ",.02)
  1. ;;00440-7091-30
  1. ;;9002226.02101,"869,00440-7092-30 ",.01)
  1. ;;00440-7092-30
  1. ;;9002226.02101,"869,00440-7092-30 ",.02)
  1. ;;00440-7092-30
  1. ;;9002226.02101,"869,00440-7478-30 ",.01)
  1. ;;00440-7478-30
  1. ;;9002226.02101,"869,00440-7478-30 ",.02)
  1. ;;00440-7478-30
  1. ;;9002226.02101,"869,00440-8575-20 ",.01)
  1. ;;00440-8575-20
  1. ;;9002226.02101,"869,00440-8575-20 ",.02)
  1. ;;00440-8575-20
  1. ;;9002226.02101,"869,00440-8576-30 ",.01)
  1. ;;00440-8576-30
  1. ;;9002226.02101,"869,00440-8576-30 ",.02)
  1. ;;00440-8576-30
  1. ;;9002226.02101,"869,00456-1100-31 ",.01)
  1. ;;00456-1100-31
  1. ;;9002226.02101,"869,00456-1100-31 ",.02)
  1. ;;00456-1100-31
  1. ;;9002226.02101,"869,00456-1110-30 ",.01)
  1. ;;00456-1110-30
  1. ;;9002226.02101,"869,00456-1110-30 ",.02)
  1. ;;00456-1110-30
  1. ;;9002226.02101,"869,00456-1120-30 ",.01)
  1. ;;00456-1120-30
  1. ;;9002226.02101,"869,00456-1120-30 ",.02)
  1. ;;00456-1120-30
  1. ;;9002226.02101,"869,00456-1140-30 ",.01)
  1. ;;00456-1140-30
  1. ;;9002226.02101,"869,00456-1140-30 ",.02)
  1. ;;00456-1140-30
  1. ;;9002226.02101,"869,00456-2005-01 ",.01)
  1. ;;00456-2005-01
  1. ;;9002226.02101,"869,00456-2005-01 ",.02)
  1. ;;00456-2005-01
  1. ;;9002226.02101,"869,00456-2010-01 ",.01)
  1. ;;00456-2010-01
  1. ;;9002226.02101,"869,00456-2010-01 ",.02)
  1. ;;00456-2010-01
  1. ;;9002226.02101,"869,00456-2010-11 ",.01)
  1. ;;00456-2010-11
  1. ;;9002226.02101,"869,00456-2010-11 ",.02)
  1. ;;00456-2010-11
  1. ;;9002226.02101,"869,00456-2010-63 ",.01)
  1. ;;00456-2010-63
  1. ;;9002226.02101,"869,00456-2010-63 ",.02)
  1. ;;00456-2010-63