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

BGP0ZD27.m

Go to the documentation of this file.
  1. BGP0ZD27 ;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,"976,55887-0410-82 ",.02)
  1. ;;55887-0410-82
  1. ;;9002226.02101,"976,55887-0410-90 ",.01)
  1. ;;55887-0410-90
  1. ;;9002226.02101,"976,55887-0410-90 ",.02)
  1. ;;55887-0410-90
  1. ;;9002226.02101,"976,55887-0412-20 ",.01)
  1. ;;55887-0412-20
  1. ;;9002226.02101,"976,55887-0412-20 ",.02)
  1. ;;55887-0412-20
  1. ;;9002226.02101,"976,55887-0412-30 ",.01)
  1. ;;55887-0412-30
  1. ;;9002226.02101,"976,55887-0412-30 ",.02)
  1. ;;55887-0412-30
  1. ;;9002226.02101,"976,55887-0412-60 ",.01)
  1. ;;55887-0412-60
  1. ;;9002226.02101,"976,55887-0412-60 ",.02)
  1. ;;55887-0412-60
  1. ;;9002226.02101,"976,55887-0412-82 ",.01)
  1. ;;55887-0412-82
  1. ;;9002226.02101,"976,55887-0412-82 ",.02)
  1. ;;55887-0412-82
  1. ;;9002226.02101,"976,55887-0412-90 ",.01)
  1. ;;55887-0412-90
  1. ;;9002226.02101,"976,55887-0412-90 ",.02)
  1. ;;55887-0412-90
  1. ;;9002226.02101,"976,55887-0431-30 ",.01)
  1. ;;55887-0431-30
  1. ;;9002226.02101,"976,55887-0431-30 ",.02)
  1. ;;55887-0431-30
  1. ;;9002226.02101,"976,55887-0431-60 ",.01)
  1. ;;55887-0431-60
  1. ;;9002226.02101,"976,55887-0431-60 ",.02)
  1. ;;55887-0431-60
  1. ;;9002226.02101,"976,55887-0431-82 ",.01)
  1. ;;55887-0431-82
  1. ;;9002226.02101,"976,55887-0431-82 ",.02)
  1. ;;55887-0431-82
  1. ;;9002226.02101,"976,55887-0431-90 ",.01)
  1. ;;55887-0431-90
  1. ;;9002226.02101,"976,55887-0431-90 ",.02)
  1. ;;55887-0431-90
  1. ;;9002226.02101,"976,55887-0440-20 ",.01)
  1. ;;55887-0440-20
  1. ;;9002226.02101,"976,55887-0440-20 ",.02)
  1. ;;55887-0440-20
  1. ;;9002226.02101,"976,55887-0440-30 ",.01)
  1. ;;55887-0440-30
  1. ;;9002226.02101,"976,55887-0440-30 ",.02)
  1. ;;55887-0440-30
  1. ;;9002226.02101,"976,55887-0440-60 ",.01)
  1. ;;55887-0440-60
  1. ;;9002226.02101,"976,55887-0440-60 ",.02)
  1. ;;55887-0440-60
  1. ;;9002226.02101,"976,55887-0440-90 ",.01)
  1. ;;55887-0440-90
  1. ;;9002226.02101,"976,55887-0440-90 ",.02)
  1. ;;55887-0440-90
  1. ;;9002226.02101,"976,55887-0454-20 ",.01)
  1. ;;55887-0454-20
  1. ;;9002226.02101,"976,55887-0454-20 ",.02)
  1. ;;55887-0454-20
  1. ;;9002226.02101,"976,55887-0454-30 ",.01)
  1. ;;55887-0454-30
  1. ;;9002226.02101,"976,55887-0454-30 ",.02)
  1. ;;55887-0454-30
  1. ;;9002226.02101,"976,55887-0454-60 ",.01)
  1. ;;55887-0454-60
  1. ;;9002226.02101,"976,55887-0454-60 ",.02)
  1. ;;55887-0454-60
  1. ;;9002226.02101,"976,55887-0454-82 ",.01)
  1. ;;55887-0454-82
  1. ;;9002226.02101,"976,55887-0454-82 ",.02)
  1. ;;55887-0454-82
  1. ;;9002226.02101,"976,55887-0454-90 ",.01)
  1. ;;55887-0454-90
  1. ;;9002226.02101,"976,55887-0454-90 ",.02)
  1. ;;55887-0454-90
  1. ;;9002226.02101,"976,55887-0455-20 ",.01)
  1. ;;55887-0455-20
  1. ;;9002226.02101,"976,55887-0455-20 ",.02)
  1. ;;55887-0455-20
  1. ;;9002226.02101,"976,55887-0455-30 ",.01)
  1. ;;55887-0455-30
  1. ;;9002226.02101,"976,55887-0455-30 ",.02)
  1. ;;55887-0455-30
  1. ;;9002226.02101,"976,55887-0455-60 ",.01)
  1. ;;55887-0455-60
  1. ;;9002226.02101,"976,55887-0455-60 ",.02)
  1. ;;55887-0455-60
  1. ;;9002226.02101,"976,55887-0455-82 ",.01)
  1. ;;55887-0455-82
  1. ;;9002226.02101,"976,55887-0455-82 ",.02)
  1. ;;55887-0455-82
  1. ;;9002226.02101,"976,55887-0455-90 ",.01)
  1. ;;55887-0455-90
  1. ;;9002226.02101,"976,55887-0455-90 ",.02)
  1. ;;55887-0455-90
  1. ;;9002226.02101,"976,55887-0542-14 ",.01)
  1. ;;55887-0542-14
  1. ;;9002226.02101,"976,55887-0542-14 ",.02)
  1. ;;55887-0542-14
  1. ;;9002226.02101,"976,55887-0542-30 ",.01)
  1. ;;55887-0542-30
  1. ;;9002226.02101,"976,55887-0542-30 ",.02)
  1. ;;55887-0542-30
  1. ;;9002226.02101,"976,55887-0542-60 ",.01)
  1. ;;55887-0542-60
  1. ;;9002226.02101,"976,55887-0542-60 ",.02)
  1. ;;55887-0542-60
  1. ;;9002226.02101,"976,55887-0542-90 ",.01)
  1. ;;55887-0542-90
  1. ;;9002226.02101,"976,55887-0542-90 ",.02)
  1. ;;55887-0542-90
  1. ;;9002226.02101,"976,55887-0543-30 ",.01)
  1. ;;55887-0543-30
  1. ;;9002226.02101,"976,55887-0543-30 ",.02)
  1. ;;55887-0543-30
  1. ;;9002226.02101,"976,55887-0543-60 ",.01)
  1. ;;55887-0543-60
  1. ;;9002226.02101,"976,55887-0543-60 ",.02)
  1. ;;55887-0543-60
  1. ;;9002226.02101,"976,55887-0543-82 ",.01)
  1. ;;55887-0543-82
  1. ;;9002226.02101,"976,55887-0543-82 ",.02)
  1. ;;55887-0543-82
  1. ;;9002226.02101,"976,55887-0543-90 ",.01)
  1. ;;55887-0543-90
  1. ;;9002226.02101,"976,55887-0543-90 ",.02)
  1. ;;55887-0543-90
  1. ;;9002226.02101,"976,55887-0553-20 ",.01)
  1. ;;55887-0553-20
  1. ;;9002226.02101,"976,55887-0553-20 ",.02)
  1. ;;55887-0553-20
  1. ;;9002226.02101,"976,55887-0553-30 ",.01)
  1. ;;55887-0553-30
  1. ;;9002226.02101,"976,55887-0553-30 ",.02)
  1. ;;55887-0553-30
  1. ;;9002226.02101,"976,55887-0553-60 ",.01)
  1. ;;55887-0553-60
  1. ;;9002226.02101,"976,55887-0553-60 ",.02)
  1. ;;55887-0553-60
  1. ;;9002226.02101,"976,55887-0553-82 ",.01)
  1. ;;55887-0553-82
  1. ;;9002226.02101,"976,55887-0553-82 ",.02)
  1. ;;55887-0553-82
  1. ;;9002226.02101,"976,55887-0553-90 ",.01)
  1. ;;55887-0553-90
  1. ;;9002226.02101,"976,55887-0553-90 ",.02)
  1. ;;55887-0553-90
  1. ;;9002226.02101,"976,55887-0683-28 ",.01)
  1. ;;55887-0683-28
  1. ;;9002226.02101,"976,55887-0683-28 ",.02)
  1. ;;55887-0683-28
  1. ;;9002226.02101,"976,55887-0683-30 ",.01)
  1. ;;55887-0683-30
  1. ;;9002226.02101,"976,55887-0683-30 ",.02)
  1. ;;55887-0683-30
  1. ;;9002226.02101,"976,55887-0683-60 ",.01)
  1. ;;55887-0683-60
  1. ;;9002226.02101,"976,55887-0683-60 ",.02)
  1. ;;55887-0683-60
  1. ;;9002226.02101,"976,55887-0683-90 ",.01)
  1. ;;55887-0683-90
  1. ;;9002226.02101,"976,55887-0683-90 ",.02)
  1. ;;55887-0683-90
  1. ;;9002226.02101,"976,55887-0688-20 ",.01)
  1. ;;55887-0688-20
  1. ;;9002226.02101,"976,55887-0688-20 ",.02)
  1. ;;55887-0688-20
  1. ;;9002226.02101,"976,55887-0688-30 ",.01)
  1. ;;55887-0688-30
  1. ;;9002226.02101,"976,55887-0688-30 ",.02)
  1. ;;55887-0688-30
  1. ;;9002226.02101,"976,55887-0688-60 ",.01)
  1. ;;55887-0688-60
  1. ;;9002226.02101,"976,55887-0688-60 ",.02)
  1. ;;55887-0688-60
  1. ;;9002226.02101,"976,55887-0698-10 ",.01)
  1. ;;55887-0698-10
  1. ;;9002226.02101,"976,55887-0698-10 ",.02)
  1. ;;55887-0698-10
  1. ;;9002226.02101,"976,55887-0698-14 ",.01)
  1. ;;55887-0698-14
  1. ;;9002226.02101,"976,55887-0698-14 ",.02)
  1. ;;55887-0698-14
  1. ;;9002226.02101,"976,55887-0698-20 ",.01)
  1. ;;55887-0698-20
  1. ;;9002226.02101,"976,55887-0698-20 ",.02)
  1. ;;55887-0698-20
  1. ;;9002226.02101,"976,55887-0698-28 ",.01)
  1. ;;55887-0698-28
  1. ;;9002226.02101,"976,55887-0698-28 ",.02)
  1. ;;55887-0698-28
  1. ;;9002226.02101,"976,55887-0698-30 ",.01)
  1. ;;55887-0698-30
  1. ;;9002226.02101,"976,55887-0698-30 ",.02)
  1. ;;55887-0698-30
  1. ;;9002226.02101,"976,55887-0701-20 ",.01)
  1. ;;55887-0701-20
  1. ;;9002226.02101,"976,55887-0701-20 ",.02)
  1. ;;55887-0701-20
  1. ;;9002226.02101,"976,55887-0701-30 ",.01)
  1. ;;55887-0701-30
  1. ;;9002226.02101,"976,55887-0701-30 ",.02)
  1. ;;55887-0701-30
  1. ;;9002226.02101,"976,55887-0701-40 ",.01)
  1. ;;55887-0701-40
  1. ;;9002226.02101,"976,55887-0701-40 ",.02)
  1. ;;55887-0701-40
  1. ;;9002226.02101,"976,55887-0701-60 ",.01)
  1. ;;55887-0701-60
  1. ;;9002226.02101,"976,55887-0701-60 ",.02)
  1. ;;55887-0701-60
  1. ;;9002226.02101,"976,55887-0705-10 ",.01)
  1. ;;55887-0705-10
  1. ;;9002226.02101,"976,55887-0705-10 ",.02)
  1. ;;55887-0705-10
  1. ;;9002226.02101,"976,55887-0705-20 ",.01)
  1. ;;55887-0705-20
  1. ;;9002226.02101,"976,55887-0705-20 ",.02)
  1. ;;55887-0705-20
  1. ;;9002226.02101,"976,55887-0705-24 ",.01)
  1. ;;55887-0705-24
  1. ;;9002226.02101,"976,55887-0705-24 ",.02)
  1. ;;55887-0705-24
  1. ;;9002226.02101,"976,55887-0705-30 ",.01)
  1. ;;55887-0705-30
  1. ;;9002226.02101,"976,55887-0705-30 ",.02)
  1. ;;55887-0705-30
  1. ;;9002226.02101,"976,55887-0736-10 ",.01)
  1. ;;55887-0736-10
  1. ;;9002226.02101,"976,55887-0736-10 ",.02)
  1. ;;55887-0736-10
  1. ;;9002226.02101,"976,55887-0736-14 ",.01)
  1. ;;55887-0736-14
  1. ;;9002226.02101,"976,55887-0736-14 ",.02)
  1. ;;55887-0736-14
  1. ;;9002226.02101,"976,55887-0736-15 ",.01)
  1. ;;55887-0736-15
  1. ;;9002226.02101,"976,55887-0736-15 ",.02)
  1. ;;55887-0736-15
  1. ;;9002226.02101,"976,55887-0736-20 ",.01)
  1. ;;55887-0736-20
  1. ;;9002226.02101,"976,55887-0736-20 ",.02)
  1. ;;55887-0736-20
  1. ;;9002226.02101,"976,55887-0736-21 ",.01)
  1. ;;55887-0736-21
  1. ;;9002226.02101,"976,55887-0736-21 ",.02)
  1. ;;55887-0736-21
  1. ;;9002226.02101,"976,55887-0736-28 ",.01)
  1. ;;55887-0736-28
  1. ;;9002226.02101,"976,55887-0736-28 ",.02)
  1. ;;55887-0736-28
  1. ;;9002226.02101,"976,55887-0736-30 ",.01)
  1. ;;55887-0736-30
  1. ;;9002226.02101,"976,55887-0736-30 ",.02)
  1. ;;55887-0736-30
  1. ;;9002226.02101,"976,55887-0736-40 ",.01)
  1. ;;55887-0736-40
  1. ;;9002226.02101,"976,55887-0736-40 ",.02)
  1. ;;55887-0736-40
  1. ;;9002226.02101,"976,55887-0736-60 ",.01)
  1. ;;55887-0736-60
  1. ;;9002226.02101,"976,55887-0736-60 ",.02)
  1. ;;55887-0736-60
  1. ;;9002226.02101,"976,55887-0736-82 ",.01)
  1. ;;55887-0736-82
  1. ;;9002226.02101,"976,55887-0736-82 ",.02)
  1. ;;55887-0736-82
  1. ;;9002226.02101,"976,55887-0736-90 ",.01)
  1. ;;55887-0736-90
  1. ;;9002226.02101,"976,55887-0736-90 ",.02)
  1. ;;55887-0736-90
  1. ;;9002226.02101,"976,55887-0744-14 ",.01)
  1. ;;55887-0744-14
  1. ;;9002226.02101,"976,55887-0744-14 ",.02)
  1. ;;55887-0744-14
  1. ;;9002226.02101,"976,55887-0744-20 ",.01)
  1. ;;55887-0744-20
  1. ;;9002226.02101,"976,55887-0744-20 ",.02)
  1. ;;55887-0744-20
  1. ;;9002226.02101,"976,55887-0744-28 ",.01)
  1. ;;55887-0744-28
  1. ;;9002226.02101,"976,55887-0744-28 ",.02)
  1. ;;55887-0744-28
  1. ;;9002226.02101,"976,55887-0784-20 ",.01)
  1. ;;55887-0784-20
  1. ;;9002226.02101,"976,55887-0784-20 ",.02)
  1. ;;55887-0784-20
  1. ;;9002226.02101,"976,55887-0784-30 ",.01)
  1. ;;55887-0784-30
  1. ;;9002226.02101,"976,55887-0784-30 ",.02)
  1. ;;55887-0784-30
  1. ;;9002226.02101,"976,55887-0784-60 ",.01)
  1. ;;55887-0784-60
  1. ;;9002226.02101,"976,55887-0784-60 ",.02)
  1. ;;55887-0784-60
  1. ;;9002226.02101,"976,55887-0784-82 ",.01)
  1. ;;55887-0784-82
  1. ;;9002226.02101,"976,55887-0784-82 ",.02)
  1. ;;55887-0784-82
  1. ;;9002226.02101,"976,55887-0784-90 ",.01)
  1. ;;55887-0784-90
  1. ;;9002226.02101,"976,55887-0784-90 ",.02)
  1. ;;55887-0784-90
  1. ;;9002226.02101,"976,55887-0803-20 ",.01)
  1. ;;55887-0803-20
  1. ;;9002226.02101,"976,55887-0803-20 ",.02)
  1. ;;55887-0803-20
  1. ;;9002226.02101,"976,55887-0803-28 ",.01)
  1. ;;55887-0803-28
  1. ;;9002226.02101,"976,55887-0803-28 ",.02)
  1. ;;55887-0803-28
  1. ;;9002226.02101,"976,55887-0803-30 ",.01)
  1. ;;55887-0803-30
  1. ;;9002226.02101,"976,55887-0803-30 ",.02)
  1. ;;55887-0803-30
  1. ;;9002226.02101,"976,55887-0803-40 ",.01)
  1. ;;55887-0803-40
  1. ;;9002226.02101,"976,55887-0803-40 ",.02)
  1. ;;55887-0803-40
  1. ;;9002226.02101,"976,55887-0808-15 ",.01)
  1. ;;55887-0808-15
  1. ;;9002226.02101,"976,55887-0808-15 ",.02)
  1. ;;55887-0808-15
  1. ;;9002226.02101,"976,55887-0808-20 ",.01)
  1. ;;55887-0808-20
  1. ;;9002226.02101,"976,55887-0808-20 ",.02)
  1. ;;55887-0808-20
  1. ;;9002226.02101,"976,55887-0808-30 ",.01)
  1. ;;55887-0808-30
  1. ;;9002226.02101,"976,55887-0808-30 ",.02)
  1. ;;55887-0808-30
  1. ;;9002226.02101,"976,55887-0808-42 ",.01)
  1. ;;55887-0808-42
  1. ;;9002226.02101,"976,55887-0808-42 ",.02)
  1. ;;55887-0808-42
  1. ;;9002226.02101,"976,55887-0808-60 ",.01)
  1. ;;55887-0808-60
  1. ;;9002226.02101,"976,55887-0808-60 ",.02)
  1. ;;55887-0808-60
  1. ;;9002226.02101,"976,55887-0808-82 ",.01)
  1. ;;55887-0808-82
  1. ;;9002226.02101,"976,55887-0808-82 ",.02)
  1. ;;55887-0808-82
  1. ;;9002226.02101,"976,55887-0808-90 ",.01)
  1. ;;55887-0808-90
  1. ;;9002226.02101,"976,55887-0808-90 ",.02)
  1. ;;55887-0808-90
  1. ;;9002226.02101,"976,55887-0862-10 ",.01)
  1. ;;55887-0862-10
  1. ;;9002226.02101,"976,55887-0862-10 ",.02)
  1. ;;55887-0862-10
  1. ;;9002226.02101,"976,55887-0862-14 ",.01)
  1. ;;55887-0862-14
  1. ;;9002226.02101,"976,55887-0862-14 ",.02)
  1. ;;55887-0862-14
  1. ;;9002226.02101,"976,55887-0862-20 ",.01)
  1. ;;55887-0862-20
  1. ;;9002226.02101,"976,55887-0862-20 ",.02)
  1. ;;55887-0862-20
  1. ;;9002226.02101,"976,55887-0862-30 ",.01)
  1. ;;55887-0862-30
  1. ;;9002226.02101,"976,55887-0862-30 ",.02)
  1. ;;55887-0862-30
  1. ;;9002226.02101,"976,55887-0880-10 ",.01)
  1. ;;55887-0880-10
  1. ;;9002226.02101,"976,55887-0880-10 ",.02)
  1. ;;55887-0880-10
  1. ;;9002226.02101,"976,55887-0880-20 ",.01)
  1. ;;55887-0880-20
  1. ;;9002226.02101,"976,55887-0880-20 ",.02)
  1. ;;55887-0880-20
  1. ;;9002226.02101,"976,55887-0894-10 ",.01)
  1. ;;55887-0894-10
  1. ;;9002226.02101,"976,55887-0894-10 ",.02)
  1. ;;55887-0894-10
  1. ;;9002226.02101,"976,55887-0894-14 ",.01)
  1. ;;55887-0894-14
  1. ;;9002226.02101,"976,55887-0894-14 ",.02)
  1. ;;55887-0894-14
  1. ;;9002226.02101,"976,55887-0894-28 ",.01)
  1. ;;55887-0894-28
  1. ;;9002226.02101,"976,55887-0894-28 ",.02)
  1. ;;55887-0894-28
  1. ;;9002226.02101,"976,55887-0894-30 ",.01)
  1. ;;55887-0894-30
  1. ;;9002226.02101,"976,55887-0894-30 ",.02)
  1. ;;55887-0894-30
  1. ;;9002226.02101,"976,55887-0896-30 ",.01)
  1. ;;55887-0896-30
  1. ;;9002226.02101,"976,55887-0896-30 ",.02)
  1. ;;55887-0896-30
  1. ;;9002226.02101,"976,55887-0912-12 ",.01)
  1. ;;55887-0912-12
  1. ;;9002226.02101,"976,55887-0912-12 ",.02)
  1. ;;55887-0912-12
  1. ;;9002226.02101,"976,55887-0912-21 ",.01)
  1. ;;55887-0912-21
  1. ;;9002226.02101,"976,55887-0912-21 ",.02)
  1. ;;55887-0912-21
  1. ;;9002226.02101,"976,55887-0912-30 ",.01)
  1. ;;55887-0912-30
  1. ;;9002226.02101,"976,55887-0912-30 ",.02)
  1. ;;55887-0912-30
  1. ;;9002226.02101,"976,55887-0915-20 ",.01)
  1. ;;55887-0915-20
  1. ;;9002226.02101,"976,55887-0915-20 ",.02)
  1. ;;55887-0915-20
  1. ;;9002226.02101,"976,55887-0917-20 ",.01)
  1. ;;55887-0917-20
  1. ;;9002226.02101,"976,55887-0917-20 ",.02)
  1. ;;55887-0917-20
  1. ;;9002226.02101,"976,55887-0917-21 ",.01)
  1. ;;55887-0917-21
  1. ;;9002226.02101,"976,55887-0917-21 ",.02)
  1. ;;55887-0917-21
  1. ;;9002226.02101,"976,55887-0917-30 ",.01)
  1. ;;55887-0917-30
  1. ;;9002226.02101,"976,55887-0917-30 ",.02)
  1. ;;55887-0917-30
  1. ;;9002226.02101,"976,55887-0923-10 ",.01)
  1. ;;55887-0923-10
  1. ;;9002226.02101,"976,55887-0923-10 ",.02)
  1. ;;55887-0923-10
  1. ;;9002226.02101,"976,55887-0923-14 ",.01)
  1. ;;55887-0923-14
  1. ;;9002226.02101,"976,55887-0923-14 ",.02)
  1. ;;55887-0923-14
  1. ;;9002226.02101,"976,55887-0923-20 ",.01)
  1. ;;55887-0923-20
  1. ;;9002226.02101,"976,55887-0923-20 ",.02)
  1. ;;55887-0923-20
  1. ;;9002226.02101,"976,55887-0923-21 ",.01)
  1. ;;55887-0923-21
  1. ;;9002226.02101,"976,55887-0923-21 ",.02)
  1. ;;55887-0923-21
  1. ;;9002226.02101,"976,55887-0923-30 ",.01)
  1. ;;55887-0923-30
  1. ;;9002226.02101,"976,55887-0923-30 ",.02)
  1. ;;55887-0923-30
  1. ;;9002226.02101,"976,55887-0928-20 ",.01)
  1. ;;55887-0928-20