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

BGP0ZD16.m

Go to the documentation of this file.
  1. BGP0ZD16 ;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,52555-0205-10 ",.02)
  1. ;;52555-0205-10
  1. ;;9002226.02101,"976,52555-0972-01 ",.01)
  1. ;;52555-0972-01
  1. ;;9002226.02101,"976,52555-0972-01 ",.02)
  1. ;;52555-0972-01
  1. ;;9002226.02101,"976,52555-0973-01 ",.01)
  1. ;;52555-0973-01
  1. ;;9002226.02101,"976,52555-0973-01 ",.02)
  1. ;;52555-0973-01
  1. ;;9002226.02101,"976,52555-0973-05 ",.01)
  1. ;;52555-0973-05
  1. ;;9002226.02101,"976,52555-0973-05 ",.02)
  1. ;;52555-0973-05
  1. ;;9002226.02101,"976,52595-0196-10 ",.01)
  1. ;;52595-0196-10
  1. ;;9002226.02101,"976,52595-0196-10 ",.02)
  1. ;;52595-0196-10
  1. ;;9002226.02101,"976,52959-0015-30 ",.01)
  1. ;;52959-0015-30
  1. ;;9002226.02101,"976,52959-0015-30 ",.02)
  1. ;;52959-0015-30
  1. ;;9002226.02101,"976,52959-0016-20 ",.01)
  1. ;;52959-0016-20
  1. ;;9002226.02101,"976,52959-0016-20 ",.02)
  1. ;;52959-0016-20
  1. ;;9002226.02101,"976,52959-0016-30 ",.01)
  1. ;;52959-0016-30
  1. ;;9002226.02101,"976,52959-0016-30 ",.02)
  1. ;;52959-0016-30
  1. ;;9002226.02101,"976,52959-0066-00 ",.01)
  1. ;;52959-0066-00
  1. ;;9002226.02101,"976,52959-0066-00 ",.02)
  1. ;;52959-0066-00
  1. ;;9002226.02101,"976,52959-0066-07 ",.01)
  1. ;;52959-0066-07
  1. ;;9002226.02101,"976,52959-0066-07 ",.02)
  1. ;;52959-0066-07
  1. ;;9002226.02101,"976,52959-0066-10 ",.01)
  1. ;;52959-0066-10
  1. ;;9002226.02101,"976,52959-0066-10 ",.02)
  1. ;;52959-0066-10
  1. ;;9002226.02101,"976,52959-0066-18 ",.01)
  1. ;;52959-0066-18
  1. ;;9002226.02101,"976,52959-0066-18 ",.02)
  1. ;;52959-0066-18
  1. ;;9002226.02101,"976,52959-0066-20 ",.01)
  1. ;;52959-0066-20
  1. ;;9002226.02101,"976,52959-0066-20 ",.02)
  1. ;;52959-0066-20
  1. ;;9002226.02101,"976,52959-0066-30 ",.01)
  1. ;;52959-0066-30
  1. ;;9002226.02101,"976,52959-0066-30 ",.02)
  1. ;;52959-0066-30
  1. ;;9002226.02101,"976,52959-0067-20 ",.01)
  1. ;;52959-0067-20
  1. ;;9002226.02101,"976,52959-0067-20 ",.02)
  1. ;;52959-0067-20
  1. ;;9002226.02101,"976,52959-0067-30 ",.01)
  1. ;;52959-0067-30
  1. ;;9002226.02101,"976,52959-0067-30 ",.02)
  1. ;;52959-0067-30
  1. ;;9002226.02101,"976,52959-0075-00 ",.01)
  1. ;;52959-0075-00
  1. ;;9002226.02101,"976,52959-0075-00 ",.02)
  1. ;;52959-0075-00
  1. ;;9002226.02101,"976,52959-0075-02 ",.01)
  1. ;;52959-0075-02
  1. ;;9002226.02101,"976,52959-0075-02 ",.02)
  1. ;;52959-0075-02
  1. ;;9002226.02101,"976,52959-0075-10 ",.01)
  1. ;;52959-0075-10
  1. ;;9002226.02101,"976,52959-0075-10 ",.02)
  1. ;;52959-0075-10
  1. ;;9002226.02101,"976,52959-0075-12 ",.01)
  1. ;;52959-0075-12
  1. ;;9002226.02101,"976,52959-0075-12 ",.02)
  1. ;;52959-0075-12
  1. ;;9002226.02101,"976,52959-0075-15 ",.01)
  1. ;;52959-0075-15
  1. ;;9002226.02101,"976,52959-0075-15 ",.02)
  1. ;;52959-0075-15
  1. ;;9002226.02101,"976,52959-0075-16 ",.01)
  1. ;;52959-0075-16
  1. ;;9002226.02101,"976,52959-0075-16 ",.02)
  1. ;;52959-0075-16
  1. ;;9002226.02101,"976,52959-0075-20 ",.01)
  1. ;;52959-0075-20
  1. ;;9002226.02101,"976,52959-0075-20 ",.02)
  1. ;;52959-0075-20
  1. ;;9002226.02101,"976,52959-0075-21 ",.01)
  1. ;;52959-0075-21
  1. ;;9002226.02101,"976,52959-0075-21 ",.02)
  1. ;;52959-0075-21
  1. ;;9002226.02101,"976,52959-0075-30 ",.01)
  1. ;;52959-0075-30
  1. ;;9002226.02101,"976,52959-0075-30 ",.02)
  1. ;;52959-0075-30
  1. ;;9002226.02101,"976,52959-0075-40 ",.01)
  1. ;;52959-0075-40
  1. ;;9002226.02101,"976,52959-0075-40 ",.02)
  1. ;;52959-0075-40
  1. ;;9002226.02101,"976,52959-0075-60 ",.01)
  1. ;;52959-0075-60
  1. ;;9002226.02101,"976,52959-0075-60 ",.02)
  1. ;;52959-0075-60
  1. ;;9002226.02101,"976,52959-0075-90 ",.01)
  1. ;;52959-0075-90
  1. ;;9002226.02101,"976,52959-0075-90 ",.02)
  1. ;;52959-0075-90
  1. ;;9002226.02101,"976,52959-0076-00 ",.01)
  1. ;;52959-0076-00
  1. ;;9002226.02101,"976,52959-0076-00 ",.02)
  1. ;;52959-0076-00
  1. ;;9002226.02101,"976,52959-0076-02 ",.01)
  1. ;;52959-0076-02
  1. ;;9002226.02101,"976,52959-0076-02 ",.02)
  1. ;;52959-0076-02
  1. ;;9002226.02101,"976,52959-0076-04 ",.01)
  1. ;;52959-0076-04
  1. ;;9002226.02101,"976,52959-0076-04 ",.02)
  1. ;;52959-0076-04
  1. ;;9002226.02101,"976,52959-0076-20 ",.01)
  1. ;;52959-0076-20
  1. ;;9002226.02101,"976,52959-0076-20 ",.02)
  1. ;;52959-0076-20
  1. ;;9002226.02101,"976,52959-0076-21 ",.01)
  1. ;;52959-0076-21
  1. ;;9002226.02101,"976,52959-0076-21 ",.02)
  1. ;;52959-0076-21
  1. ;;9002226.02101,"976,52959-0076-24 ",.01)
  1. ;;52959-0076-24
  1. ;;9002226.02101,"976,52959-0076-24 ",.02)
  1. ;;52959-0076-24
  1. ;;9002226.02101,"976,52959-0076-25 ",.01)
  1. ;;52959-0076-25
  1. ;;9002226.02101,"976,52959-0076-25 ",.02)
  1. ;;52959-0076-25
  1. ;;9002226.02101,"976,52959-0076-30 ",.01)
  1. ;;52959-0076-30
  1. ;;9002226.02101,"976,52959-0076-30 ",.02)
  1. ;;52959-0076-30
  1. ;;9002226.02101,"976,52959-0076-40 ",.01)
  1. ;;52959-0076-40
  1. ;;9002226.02101,"976,52959-0076-40 ",.02)
  1. ;;52959-0076-40
  1. ;;9002226.02101,"976,52959-0076-45 ",.01)
  1. ;;52959-0076-45
  1. ;;9002226.02101,"976,52959-0076-45 ",.02)
  1. ;;52959-0076-45
  1. ;;9002226.02101,"976,52959-0076-50 ",.01)
  1. ;;52959-0076-50
  1. ;;9002226.02101,"976,52959-0076-50 ",.02)
  1. ;;52959-0076-50
  1. ;;9002226.02101,"976,52959-0076-60 ",.01)
  1. ;;52959-0076-60
  1. ;;9002226.02101,"976,52959-0076-60 ",.02)
  1. ;;52959-0076-60
  1. ;;9002226.02101,"976,52959-0076-90 ",.01)
  1. ;;52959-0076-90
  1. ;;9002226.02101,"976,52959-0076-90 ",.02)
  1. ;;52959-0076-90
  1. ;;9002226.02101,"976,52959-0077-00 ",.01)
  1. ;;52959-0077-00
  1. ;;9002226.02101,"976,52959-0077-00 ",.02)
  1. ;;52959-0077-00
  1. ;;9002226.02101,"976,52959-0077-02 ",.01)
  1. ;;52959-0077-02
  1. ;;9002226.02101,"976,52959-0077-02 ",.02)
  1. ;;52959-0077-02
  1. ;;9002226.02101,"976,52959-0077-04 ",.01)
  1. ;;52959-0077-04
  1. ;;9002226.02101,"976,52959-0077-04 ",.02)
  1. ;;52959-0077-04
  1. ;;9002226.02101,"976,52959-0077-10 ",.01)
  1. ;;52959-0077-10
  1. ;;9002226.02101,"976,52959-0077-10 ",.02)
  1. ;;52959-0077-10
  1. ;;9002226.02101,"976,52959-0077-12 ",.01)
  1. ;;52959-0077-12
  1. ;;9002226.02101,"976,52959-0077-12 ",.02)
  1. ;;52959-0077-12
  1. ;;9002226.02101,"976,52959-0077-14 ",.01)
  1. ;;52959-0077-14
  1. ;;9002226.02101,"976,52959-0077-14 ",.02)
  1. ;;52959-0077-14
  1. ;;9002226.02101,"976,52959-0077-15 ",.01)
  1. ;;52959-0077-15
  1. ;;9002226.02101,"976,52959-0077-15 ",.02)
  1. ;;52959-0077-15
  1. ;;9002226.02101,"976,52959-0077-16 ",.01)
  1. ;;52959-0077-16
  1. ;;9002226.02101,"976,52959-0077-16 ",.02)
  1. ;;52959-0077-16
  1. ;;9002226.02101,"976,52959-0077-18 ",.01)
  1. ;;52959-0077-18
  1. ;;9002226.02101,"976,52959-0077-18 ",.02)
  1. ;;52959-0077-18
  1. ;;9002226.02101,"976,52959-0077-20 ",.01)
  1. ;;52959-0077-20
  1. ;;9002226.02101,"976,52959-0077-20 ",.02)
  1. ;;52959-0077-20
  1. ;;9002226.02101,"976,52959-0077-21 ",.01)
  1. ;;52959-0077-21
  1. ;;9002226.02101,"976,52959-0077-21 ",.02)
  1. ;;52959-0077-21
  1. ;;9002226.02101,"976,52959-0077-24 ",.01)
  1. ;;52959-0077-24
  1. ;;9002226.02101,"976,52959-0077-24 ",.02)
  1. ;;52959-0077-24
  1. ;;9002226.02101,"976,52959-0077-25 ",.01)
  1. ;;52959-0077-25
  1. ;;9002226.02101,"976,52959-0077-25 ",.02)
  1. ;;52959-0077-25
  1. ;;9002226.02101,"976,52959-0077-28 ",.01)
  1. ;;52959-0077-28
  1. ;;9002226.02101,"976,52959-0077-28 ",.02)
  1. ;;52959-0077-28
  1. ;;9002226.02101,"976,52959-0077-30 ",.01)
  1. ;;52959-0077-30
  1. ;;9002226.02101,"976,52959-0077-30 ",.02)
  1. ;;52959-0077-30
  1. ;;9002226.02101,"976,52959-0077-40 ",.01)
  1. ;;52959-0077-40
  1. ;;9002226.02101,"976,52959-0077-40 ",.02)
  1. ;;52959-0077-40
  1. ;;9002226.02101,"976,52959-0077-42 ",.01)
  1. ;;52959-0077-42
  1. ;;9002226.02101,"976,52959-0077-42 ",.02)
  1. ;;52959-0077-42
  1. ;;9002226.02101,"976,52959-0077-45 ",.01)
  1. ;;52959-0077-45
  1. ;;9002226.02101,"976,52959-0077-45 ",.02)
  1. ;;52959-0077-45
  1. ;;9002226.02101,"976,52959-0077-50 ",.01)
  1. ;;52959-0077-50
  1. ;;9002226.02101,"976,52959-0077-50 ",.02)
  1. ;;52959-0077-50
  1. ;;9002226.02101,"976,52959-0077-60 ",.01)
  1. ;;52959-0077-60
  1. ;;9002226.02101,"976,52959-0077-60 ",.02)
  1. ;;52959-0077-60
  1. ;;9002226.02101,"976,52959-0077-90 ",.01)
  1. ;;52959-0077-90
  1. ;;9002226.02101,"976,52959-0077-90 ",.02)
  1. ;;52959-0077-90
  1. ;;9002226.02101,"976,52959-0080-20 ",.01)
  1. ;;52959-0080-20
  1. ;;9002226.02101,"976,52959-0080-20 ",.02)
  1. ;;52959-0080-20
  1. ;;9002226.02101,"976,52959-0080-21 ",.01)
  1. ;;52959-0080-21
  1. ;;9002226.02101,"976,52959-0080-21 ",.02)
  1. ;;52959-0080-21
  1. ;;9002226.02101,"976,52959-0080-30 ",.01)
  1. ;;52959-0080-30
  1. ;;9002226.02101,"976,52959-0080-30 ",.02)
  1. ;;52959-0080-30
  1. ;;9002226.02101,"976,52959-0080-40 ",.01)
  1. ;;52959-0080-40
  1. ;;9002226.02101,"976,52959-0080-40 ",.02)
  1. ;;52959-0080-40
  1. ;;9002226.02101,"976,52959-0081-00 ",.01)
  1. ;;52959-0081-00
  1. ;;9002226.02101,"976,52959-0081-00 ",.02)
  1. ;;52959-0081-00
  1. ;;9002226.02101,"976,52959-0081-20 ",.01)
  1. ;;52959-0081-20
  1. ;;9002226.02101,"976,52959-0081-20 ",.02)
  1. ;;52959-0081-20
  1. ;;9002226.02101,"976,52959-0081-21 ",.01)
  1. ;;52959-0081-21
  1. ;;9002226.02101,"976,52959-0081-21 ",.02)
  1. ;;52959-0081-21
  1. ;;9002226.02101,"976,52959-0081-30 ",.01)
  1. ;;52959-0081-30
  1. ;;9002226.02101,"976,52959-0081-30 ",.02)
  1. ;;52959-0081-30
  1. ;;9002226.02101,"976,52959-0081-40 ",.01)
  1. ;;52959-0081-40
  1. ;;9002226.02101,"976,52959-0081-40 ",.02)
  1. ;;52959-0081-40
  1. ;;9002226.02101,"976,52959-0082-07 ",.01)
  1. ;;52959-0082-07
  1. ;;9002226.02101,"976,52959-0082-07 ",.02)
  1. ;;52959-0082-07
  1. ;;9002226.02101,"976,52959-0082-14 ",.01)
  1. ;;52959-0082-14
  1. ;;9002226.02101,"976,52959-0082-14 ",.02)
  1. ;;52959-0082-14
  1. ;;9002226.02101,"976,52959-0082-15 ",.01)
  1. ;;52959-0082-15
  1. ;;9002226.02101,"976,52959-0082-15 ",.02)
  1. ;;52959-0082-15
  1. ;;9002226.02101,"976,52959-0082-20 ",.01)
  1. ;;52959-0082-20
  1. ;;9002226.02101,"976,52959-0082-20 ",.02)
  1. ;;52959-0082-20
  1. ;;9002226.02101,"976,52959-0082-21 ",.01)
  1. ;;52959-0082-21
  1. ;;9002226.02101,"976,52959-0082-21 ",.02)
  1. ;;52959-0082-21
  1. ;;9002226.02101,"976,52959-0082-30 ",.01)
  1. ;;52959-0082-30
  1. ;;9002226.02101,"976,52959-0082-30 ",.02)
  1. ;;52959-0082-30
  1. ;;9002226.02101,"976,52959-0082-60 ",.01)
  1. ;;52959-0082-60
  1. ;;9002226.02101,"976,52959-0082-60 ",.02)
  1. ;;52959-0082-60
  1. ;;9002226.02101,"976,52959-0095-28 ",.01)
  1. ;;52959-0095-28
  1. ;;9002226.02101,"976,52959-0095-28 ",.02)
  1. ;;52959-0095-28
  1. ;;9002226.02101,"976,52959-0095-30 ",.01)
  1. ;;52959-0095-30
  1. ;;9002226.02101,"976,52959-0095-30 ",.02)
  1. ;;52959-0095-30
  1. ;;9002226.02101,"976,52959-0110-20 ",.01)
  1. ;;52959-0110-20
  1. ;;9002226.02101,"976,52959-0110-20 ",.02)
  1. ;;52959-0110-20
  1. ;;9002226.02101,"976,52959-0110-30 ",.01)
  1. ;;52959-0110-30
  1. ;;9002226.02101,"976,52959-0110-30 ",.02)
  1. ;;52959-0110-30
  1. ;;9002226.02101,"976,52959-0111-14 ",.01)
  1. ;;52959-0111-14
  1. ;;9002226.02101,"976,52959-0111-14 ",.02)
  1. ;;52959-0111-14
  1. ;;9002226.02101,"976,52959-0111-20 ",.01)
  1. ;;52959-0111-20
  1. ;;9002226.02101,"976,52959-0111-20 ",.02)
  1. ;;52959-0111-20
  1. ;;9002226.02101,"976,52959-0111-28 ",.01)
  1. ;;52959-0111-28
  1. ;;9002226.02101,"976,52959-0111-28 ",.02)
  1. ;;52959-0111-28
  1. ;;9002226.02101,"976,52959-0111-30 ",.01)
  1. ;;52959-0111-30
  1. ;;9002226.02101,"976,52959-0111-30 ",.02)
  1. ;;52959-0111-30
  1. ;;9002226.02101,"976,52959-0111-40 ",.01)
  1. ;;52959-0111-40
  1. ;;9002226.02101,"976,52959-0111-40 ",.02)
  1. ;;52959-0111-40
  1. ;;9002226.02101,"976,52959-0111-60 ",.01)
  1. ;;52959-0111-60
  1. ;;9002226.02101,"976,52959-0111-60 ",.02)
  1. ;;52959-0111-60
  1. ;;9002226.02101,"976,52959-0161-30 ",.01)
  1. ;;52959-0161-30
  1. ;;9002226.02101,"976,52959-0161-30 ",.02)
  1. ;;52959-0161-30
  1. ;;9002226.02101,"976,52959-0161-42 ",.01)
  1. ;;52959-0161-42
  1. ;;9002226.02101,"976,52959-0161-42 ",.02)
  1. ;;52959-0161-42
  1. ;;9002226.02101,"976,52959-0190-20 ",.01)
  1. ;;52959-0190-20
  1. ;;9002226.02101,"976,52959-0190-20 ",.02)
  1. ;;52959-0190-20
  1. ;;9002226.02101,"976,52959-0190-28 ",.01)
  1. ;;52959-0190-28
  1. ;;9002226.02101,"976,52959-0190-28 ",.02)
  1. ;;52959-0190-28
  1. ;;9002226.02101,"976,52959-0190-30 ",.01)
  1. ;;52959-0190-30
  1. ;;9002226.02101,"976,52959-0190-30 ",.02)
  1. ;;52959-0190-30
  1. ;;9002226.02101,"976,52959-0190-40 ",.01)
  1. ;;52959-0190-40
  1. ;;9002226.02101,"976,52959-0190-40 ",.02)
  1. ;;52959-0190-40
  1. ;;9002226.02101,"976,52959-0190-60 ",.01)
  1. ;;52959-0190-60
  1. ;;9002226.02101,"976,52959-0190-60 ",.02)
  1. ;;52959-0190-60
  1. ;;9002226.02101,"976,52959-0191-00 ",.01)
  1. ;;52959-0191-00
  1. ;;9002226.02101,"976,52959-0191-00 ",.02)
  1. ;;52959-0191-00
  1. ;;9002226.02101,"976,52959-0191-02 ",.01)
  1. ;;52959-0191-02
  1. ;;9002226.02101,"976,52959-0191-02 ",.02)
  1. ;;52959-0191-02
  1. ;;9002226.02101,"976,52959-0191-10 ",.01)
  1. ;;52959-0191-10
  1. ;;9002226.02101,"976,52959-0191-10 ",.02)
  1. ;;52959-0191-10
  1. ;;9002226.02101,"976,52959-0191-14 ",.01)
  1. ;;52959-0191-14
  1. ;;9002226.02101,"976,52959-0191-14 ",.02)
  1. ;;52959-0191-14
  1. ;;9002226.02101,"976,52959-0191-15 ",.01)
  1. ;;52959-0191-15
  1. ;;9002226.02101,"976,52959-0191-15 ",.02)
  1. ;;52959-0191-15
  1. ;;9002226.02101,"976,52959-0191-20 ",.01)
  1. ;;52959-0191-20
  1. ;;9002226.02101,"976,52959-0191-20 ",.02)
  1. ;;52959-0191-20
  1. ;;9002226.02101,"976,52959-0191-28 ",.01)
  1. ;;52959-0191-28
  1. ;;9002226.02101,"976,52959-0191-28 ",.02)
  1. ;;52959-0191-28
  1. ;;9002226.02101,"976,52959-0191-30 ",.01)
  1. ;;52959-0191-30
  1. ;;9002226.02101,"976,52959-0191-30 ",.02)
  1. ;;52959-0191-30
  1. ;;9002226.02101,"976,52959-0191-40 ",.01)
  1. ;;52959-0191-40
  1. ;;9002226.02101,"976,52959-0191-40 ",.02)
  1. ;;52959-0191-40
  1. ;;9002226.02101,"976,52959-0191-42 ",.01)
  1. ;;52959-0191-42
  1. ;;9002226.02101,"976,52959-0191-42 ",.02)
  1. ;;52959-0191-42
  1. ;;9002226.02101,"976,52959-0191-60 ",.01)
  1. ;;52959-0191-60
  1. ;;9002226.02101,"976,52959-0191-60 ",.02)
  1. ;;52959-0191-60
  1. ;;9002226.02101,"976,52959-0192-00 ",.01)
  1. ;;52959-0192-00
  1. ;;9002226.02101,"976,52959-0192-00 ",.02)
  1. ;;52959-0192-00
  1. ;;9002226.02101,"976,52959-0192-10 ",.01)
  1. ;;52959-0192-10
  1. ;;9002226.02101,"976,52959-0192-10 ",.02)
  1. ;;52959-0192-10
  1. ;;9002226.02101,"976,52959-0192-14 ",.01)
  1. ;;52959-0192-14
  1. ;;9002226.02101,"976,52959-0192-14 ",.02)
  1. ;;52959-0192-14
  1. ;;9002226.02101,"976,52959-0192-15 ",.01)
  1. ;;52959-0192-15
  1. ;;9002226.02101,"976,52959-0192-15 ",.02)
  1. ;;52959-0192-15
  1. ;;9002226.02101,"976,52959-0192-20 ",.01)
  1. ;;52959-0192-20
  1. ;;9002226.02101,"976,52959-0192-20 ",.02)
  1. ;;52959-0192-20
  1. ;;9002226.02101,"976,52959-0192-28 ",.01)
  1. ;;52959-0192-28