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

BGP0ZD37.m

Go to the documentation of this file.
  1. BGP0ZD37 ;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,63874-0323-16 ",.02)
  1. ;;63874-0323-16
  1. ;;9002226.02101,"976,63874-0323-20 ",.01)
  1. ;;63874-0323-20
  1. ;;9002226.02101,"976,63874-0323-20 ",.02)
  1. ;;63874-0323-20
  1. ;;9002226.02101,"976,63874-0323-21 ",.01)
  1. ;;63874-0323-21
  1. ;;9002226.02101,"976,63874-0323-21 ",.02)
  1. ;;63874-0323-21
  1. ;;9002226.02101,"976,63874-0323-24 ",.01)
  1. ;;63874-0323-24
  1. ;;9002226.02101,"976,63874-0323-24 ",.02)
  1. ;;63874-0323-24
  1. ;;9002226.02101,"976,63874-0323-25 ",.01)
  1. ;;63874-0323-25
  1. ;;9002226.02101,"976,63874-0323-25 ",.02)
  1. ;;63874-0323-25
  1. ;;9002226.02101,"976,63874-0323-28 ",.01)
  1. ;;63874-0323-28
  1. ;;9002226.02101,"976,63874-0323-28 ",.02)
  1. ;;63874-0323-28
  1. ;;9002226.02101,"976,63874-0323-30 ",.01)
  1. ;;63874-0323-30
  1. ;;9002226.02101,"976,63874-0323-30 ",.02)
  1. ;;63874-0323-30
  1. ;;9002226.02101,"976,63874-0323-40 ",.01)
  1. ;;63874-0323-40
  1. ;;9002226.02101,"976,63874-0323-40 ",.02)
  1. ;;63874-0323-40
  1. ;;9002226.02101,"976,63874-0323-42 ",.01)
  1. ;;63874-0323-42
  1. ;;9002226.02101,"976,63874-0323-42 ",.02)
  1. ;;63874-0323-42
  1. ;;9002226.02101,"976,63874-0323-45 ",.01)
  1. ;;63874-0323-45
  1. ;;9002226.02101,"976,63874-0323-45 ",.02)
  1. ;;63874-0323-45
  1. ;;9002226.02101,"976,63874-0323-50 ",.01)
  1. ;;63874-0323-50
  1. ;;9002226.02101,"976,63874-0323-50 ",.02)
  1. ;;63874-0323-50
  1. ;;9002226.02101,"976,63874-0323-56 ",.01)
  1. ;;63874-0323-56
  1. ;;9002226.02101,"976,63874-0323-56 ",.02)
  1. ;;63874-0323-56
  1. ;;9002226.02101,"976,63874-0323-60 ",.01)
  1. ;;63874-0323-60
  1. ;;9002226.02101,"976,63874-0323-60 ",.02)
  1. ;;63874-0323-60
  1. ;;9002226.02101,"976,63874-0323-80 ",.01)
  1. ;;63874-0323-80
  1. ;;9002226.02101,"976,63874-0323-80 ",.02)
  1. ;;63874-0323-80
  1. ;;9002226.02101,"976,63874-0323-84 ",.01)
  1. ;;63874-0323-84
  1. ;;9002226.02101,"976,63874-0323-84 ",.02)
  1. ;;63874-0323-84
  1. ;;9002226.02101,"976,63874-0323-90 ",.01)
  1. ;;63874-0323-90
  1. ;;9002226.02101,"976,63874-0323-90 ",.02)
  1. ;;63874-0323-90
  1. ;;9002226.02101,"976,63874-0324-01 ",.01)
  1. ;;63874-0324-01
  1. ;;9002226.02101,"976,63874-0324-01 ",.02)
  1. ;;63874-0324-01
  1. ;;9002226.02101,"976,63874-0324-03 ",.01)
  1. ;;63874-0324-03
  1. ;;9002226.02101,"976,63874-0324-03 ",.02)
  1. ;;63874-0324-03
  1. ;;9002226.02101,"976,63874-0324-04 ",.01)
  1. ;;63874-0324-04
  1. ;;9002226.02101,"976,63874-0324-04 ",.02)
  1. ;;63874-0324-04
  1. ;;9002226.02101,"976,63874-0324-06 ",.01)
  1. ;;63874-0324-06
  1. ;;9002226.02101,"976,63874-0324-06 ",.02)
  1. ;;63874-0324-06
  1. ;;9002226.02101,"976,63874-0324-08 ",.01)
  1. ;;63874-0324-08
  1. ;;9002226.02101,"976,63874-0324-08 ",.02)
  1. ;;63874-0324-08
  1. ;;9002226.02101,"976,63874-0324-10 ",.01)
  1. ;;63874-0324-10
  1. ;;9002226.02101,"976,63874-0324-10 ",.02)
  1. ;;63874-0324-10
  1. ;;9002226.02101,"976,63874-0324-12 ",.01)
  1. ;;63874-0324-12
  1. ;;9002226.02101,"976,63874-0324-12 ",.02)
  1. ;;63874-0324-12
  1. ;;9002226.02101,"976,63874-0324-14 ",.01)
  1. ;;63874-0324-14
  1. ;;9002226.02101,"976,63874-0324-14 ",.02)
  1. ;;63874-0324-14
  1. ;;9002226.02101,"976,63874-0324-15 ",.01)
  1. ;;63874-0324-15
  1. ;;9002226.02101,"976,63874-0324-15 ",.02)
  1. ;;63874-0324-15
  1. ;;9002226.02101,"976,63874-0324-16 ",.01)
  1. ;;63874-0324-16
  1. ;;9002226.02101,"976,63874-0324-16 ",.02)
  1. ;;63874-0324-16
  1. ;;9002226.02101,"976,63874-0324-20 ",.01)
  1. ;;63874-0324-20
  1. ;;9002226.02101,"976,63874-0324-20 ",.02)
  1. ;;63874-0324-20
  1. ;;9002226.02101,"976,63874-0324-21 ",.01)
  1. ;;63874-0324-21
  1. ;;9002226.02101,"976,63874-0324-21 ",.02)
  1. ;;63874-0324-21
  1. ;;9002226.02101,"976,63874-0324-24 ",.01)
  1. ;;63874-0324-24
  1. ;;9002226.02101,"976,63874-0324-24 ",.02)
  1. ;;63874-0324-24
  1. ;;9002226.02101,"976,63874-0324-25 ",.01)
  1. ;;63874-0324-25
  1. ;;9002226.02101,"976,63874-0324-25 ",.02)
  1. ;;63874-0324-25
  1. ;;9002226.02101,"976,63874-0324-28 ",.01)
  1. ;;63874-0324-28
  1. ;;9002226.02101,"976,63874-0324-28 ",.02)
  1. ;;63874-0324-28
  1. ;;9002226.02101,"976,63874-0324-30 ",.01)
  1. ;;63874-0324-30
  1. ;;9002226.02101,"976,63874-0324-30 ",.02)
  1. ;;63874-0324-30
  1. ;;9002226.02101,"976,63874-0324-40 ",.01)
  1. ;;63874-0324-40
  1. ;;9002226.02101,"976,63874-0324-40 ",.02)
  1. ;;63874-0324-40
  1. ;;9002226.02101,"976,63874-0324-45 ",.01)
  1. ;;63874-0324-45
  1. ;;9002226.02101,"976,63874-0324-45 ",.02)
  1. ;;63874-0324-45
  1. ;;9002226.02101,"976,63874-0324-50 ",.01)
  1. ;;63874-0324-50
  1. ;;9002226.02101,"976,63874-0324-50 ",.02)
  1. ;;63874-0324-50
  1. ;;9002226.02101,"976,63874-0324-60 ",.01)
  1. ;;63874-0324-60
  1. ;;9002226.02101,"976,63874-0324-60 ",.02)
  1. ;;63874-0324-60
  1. ;;9002226.02101,"976,63874-0324-80 ",.01)
  1. ;;63874-0324-80
  1. ;;9002226.02101,"976,63874-0324-80 ",.02)
  1. ;;63874-0324-80
  1. ;;9002226.02101,"976,63874-0324-90 ",.01)
  1. ;;63874-0324-90
  1. ;;9002226.02101,"976,63874-0324-90 ",.02)
  1. ;;63874-0324-90
  1. ;;9002226.02101,"976,63874-0325-01 ",.01)
  1. ;;63874-0325-01
  1. ;;9002226.02101,"976,63874-0325-01 ",.02)
  1. ;;63874-0325-01
  1. ;;9002226.02101,"976,63874-0325-02 ",.01)
  1. ;;63874-0325-02
  1. ;;9002226.02101,"976,63874-0325-02 ",.02)
  1. ;;63874-0325-02
  1. ;;9002226.02101,"976,63874-0325-03 ",.01)
  1. ;;63874-0325-03
  1. ;;9002226.02101,"976,63874-0325-03 ",.02)
  1. ;;63874-0325-03
  1. ;;9002226.02101,"976,63874-0325-04 ",.01)
  1. ;;63874-0325-04
  1. ;;9002226.02101,"976,63874-0325-04 ",.02)
  1. ;;63874-0325-04
  1. ;;9002226.02101,"976,63874-0325-10 ",.01)
  1. ;;63874-0325-10
  1. ;;9002226.02101,"976,63874-0325-10 ",.02)
  1. ;;63874-0325-10
  1. ;;9002226.02101,"976,63874-0325-14 ",.01)
  1. ;;63874-0325-14
  1. ;;9002226.02101,"976,63874-0325-14 ",.02)
  1. ;;63874-0325-14
  1. ;;9002226.02101,"976,63874-0325-15 ",.01)
  1. ;;63874-0325-15
  1. ;;9002226.02101,"976,63874-0325-15 ",.02)
  1. ;;63874-0325-15
  1. ;;9002226.02101,"976,63874-0325-20 ",.01)
  1. ;;63874-0325-20
  1. ;;9002226.02101,"976,63874-0325-20 ",.02)
  1. ;;63874-0325-20
  1. ;;9002226.02101,"976,63874-0325-21 ",.01)
  1. ;;63874-0325-21
  1. ;;9002226.02101,"976,63874-0325-21 ",.02)
  1. ;;63874-0325-21
  1. ;;9002226.02101,"976,63874-0325-28 ",.01)
  1. ;;63874-0325-28
  1. ;;9002226.02101,"976,63874-0325-28 ",.02)
  1. ;;63874-0325-28
  1. ;;9002226.02101,"976,63874-0325-30 ",.01)
  1. ;;63874-0325-30
  1. ;;9002226.02101,"976,63874-0325-30 ",.02)
  1. ;;63874-0325-30
  1. ;;9002226.02101,"976,63874-0325-40 ",.01)
  1. ;;63874-0325-40
  1. ;;9002226.02101,"976,63874-0325-40 ",.02)
  1. ;;63874-0325-40
  1. ;;9002226.02101,"976,63874-0325-45 ",.01)
  1. ;;63874-0325-45
  1. ;;9002226.02101,"976,63874-0325-45 ",.02)
  1. ;;63874-0325-45
  1. ;;9002226.02101,"976,63874-0325-60 ",.01)
  1. ;;63874-0325-60
  1. ;;9002226.02101,"976,63874-0325-60 ",.02)
  1. ;;63874-0325-60
  1. ;;9002226.02101,"976,63874-0325-90 ",.01)
  1. ;;63874-0325-90
  1. ;;9002226.02101,"976,63874-0325-90 ",.02)
  1. ;;63874-0325-90
  1. ;;9002226.02101,"976,63874-0326-01 ",.01)
  1. ;;63874-0326-01
  1. ;;9002226.02101,"976,63874-0326-01 ",.02)
  1. ;;63874-0326-01
  1. ;;9002226.02101,"976,63874-0326-03 ",.01)
  1. ;;63874-0326-03
  1. ;;9002226.02101,"976,63874-0326-03 ",.02)
  1. ;;63874-0326-03
  1. ;;9002226.02101,"976,63874-0326-04 ",.01)
  1. ;;63874-0326-04
  1. ;;9002226.02101,"976,63874-0326-04 ",.02)
  1. ;;63874-0326-04
  1. ;;9002226.02101,"976,63874-0326-10 ",.01)
  1. ;;63874-0326-10
  1. ;;9002226.02101,"976,63874-0326-10 ",.02)
  1. ;;63874-0326-10
  1. ;;9002226.02101,"976,63874-0326-14 ",.01)
  1. ;;63874-0326-14
  1. ;;9002226.02101,"976,63874-0326-14 ",.02)
  1. ;;63874-0326-14
  1. ;;9002226.02101,"976,63874-0326-15 ",.01)
  1. ;;63874-0326-15
  1. ;;9002226.02101,"976,63874-0326-15 ",.02)
  1. ;;63874-0326-15
  1. ;;9002226.02101,"976,63874-0326-20 ",.01)
  1. ;;63874-0326-20
  1. ;;9002226.02101,"976,63874-0326-20 ",.02)
  1. ;;63874-0326-20
  1. ;;9002226.02101,"976,63874-0326-21 ",.01)
  1. ;;63874-0326-21
  1. ;;9002226.02101,"976,63874-0326-21 ",.02)
  1. ;;63874-0326-21
  1. ;;9002226.02101,"976,63874-0326-25 ",.01)
  1. ;;63874-0326-25
  1. ;;9002226.02101,"976,63874-0326-25 ",.02)
  1. ;;63874-0326-25
  1. ;;9002226.02101,"976,63874-0326-28 ",.01)
  1. ;;63874-0326-28
  1. ;;9002226.02101,"976,63874-0326-28 ",.02)
  1. ;;63874-0326-28
  1. ;;9002226.02101,"976,63874-0326-30 ",.01)
  1. ;;63874-0326-30
  1. ;;9002226.02101,"976,63874-0326-30 ",.02)
  1. ;;63874-0326-30
  1. ;;9002226.02101,"976,63874-0326-40 ",.01)
  1. ;;63874-0326-40
  1. ;;9002226.02101,"976,63874-0326-40 ",.02)
  1. ;;63874-0326-40
  1. ;;9002226.02101,"976,63874-0326-42 ",.01)
  1. ;;63874-0326-42
  1. ;;9002226.02101,"976,63874-0326-42 ",.02)
  1. ;;63874-0326-42
  1. ;;9002226.02101,"976,63874-0326-45 ",.01)
  1. ;;63874-0326-45
  1. ;;9002226.02101,"976,63874-0326-45 ",.02)
  1. ;;63874-0326-45
  1. ;;9002226.02101,"976,63874-0326-50 ",.01)
  1. ;;63874-0326-50
  1. ;;9002226.02101,"976,63874-0326-50 ",.02)
  1. ;;63874-0326-50
  1. ;;9002226.02101,"976,63874-0326-56 ",.01)
  1. ;;63874-0326-56
  1. ;;9002226.02101,"976,63874-0326-56 ",.02)
  1. ;;63874-0326-56
  1. ;;9002226.02101,"976,63874-0326-60 ",.01)
  1. ;;63874-0326-60
  1. ;;9002226.02101,"976,63874-0326-60 ",.02)
  1. ;;63874-0326-60
  1. ;;9002226.02101,"976,63874-0326-90 ",.01)
  1. ;;63874-0326-90
  1. ;;9002226.02101,"976,63874-0326-90 ",.02)
  1. ;;63874-0326-90
  1. ;;9002226.02101,"976,63874-0334-01 ",.01)
  1. ;;63874-0334-01
  1. ;;9002226.02101,"976,63874-0334-01 ",.02)
  1. ;;63874-0334-01
  1. ;;9002226.02101,"976,63874-0334-04 ",.01)
  1. ;;63874-0334-04
  1. ;;9002226.02101,"976,63874-0334-04 ",.02)
  1. ;;63874-0334-04
  1. ;;9002226.02101,"976,63874-0334-10 ",.01)
  1. ;;63874-0334-10
  1. ;;9002226.02101,"976,63874-0334-10 ",.02)
  1. ;;63874-0334-10
  1. ;;9002226.02101,"976,63874-0334-12 ",.01)
  1. ;;63874-0334-12
  1. ;;9002226.02101,"976,63874-0334-12 ",.02)
  1. ;;63874-0334-12
  1. ;;9002226.02101,"976,63874-0334-14 ",.01)
  1. ;;63874-0334-14
  1. ;;9002226.02101,"976,63874-0334-14 ",.02)
  1. ;;63874-0334-14
  1. ;;9002226.02101,"976,63874-0334-15 ",.01)
  1. ;;63874-0334-15
  1. ;;9002226.02101,"976,63874-0334-15 ",.02)
  1. ;;63874-0334-15
  1. ;;9002226.02101,"976,63874-0334-20 ",.01)
  1. ;;63874-0334-20
  1. ;;9002226.02101,"976,63874-0334-20 ",.02)
  1. ;;63874-0334-20
  1. ;;9002226.02101,"976,63874-0334-24 ",.01)
  1. ;;63874-0334-24
  1. ;;9002226.02101,"976,63874-0334-24 ",.02)
  1. ;;63874-0334-24
  1. ;;9002226.02101,"976,63874-0334-28 ",.01)
  1. ;;63874-0334-28
  1. ;;9002226.02101,"976,63874-0334-28 ",.02)
  1. ;;63874-0334-28
  1. ;;9002226.02101,"976,63874-0334-30 ",.01)
  1. ;;63874-0334-30
  1. ;;9002226.02101,"976,63874-0334-30 ",.02)
  1. ;;63874-0334-30
  1. ;;9002226.02101,"976,63874-0334-40 ",.01)
  1. ;;63874-0334-40
  1. ;;9002226.02101,"976,63874-0334-40 ",.02)
  1. ;;63874-0334-40
  1. ;;9002226.02101,"976,63874-0334-50 ",.01)
  1. ;;63874-0334-50
  1. ;;9002226.02101,"976,63874-0334-50 ",.02)
  1. ;;63874-0334-50
  1. ;;9002226.02101,"976,63874-0334-60 ",.01)
  1. ;;63874-0334-60
  1. ;;9002226.02101,"976,63874-0334-60 ",.02)
  1. ;;63874-0334-60
  1. ;;9002226.02101,"976,63874-0334-72 ",.01)
  1. ;;63874-0334-72
  1. ;;9002226.02101,"976,63874-0334-72 ",.02)
  1. ;;63874-0334-72
  1. ;;9002226.02101,"976,63874-0334-74 ",.01)
  1. ;;63874-0334-74
  1. ;;9002226.02101,"976,63874-0334-74 ",.02)
  1. ;;63874-0334-74
  1. ;;9002226.02101,"976,63874-0334-77 ",.01)
  1. ;;63874-0334-77
  1. ;;9002226.02101,"976,63874-0334-77 ",.02)
  1. ;;63874-0334-77
  1. ;;9002226.02101,"976,63874-0334-80 ",.01)
  1. ;;63874-0334-80
  1. ;;9002226.02101,"976,63874-0334-80 ",.02)
  1. ;;63874-0334-80
  1. ;;9002226.02101,"976,63874-0334-90 ",.01)
  1. ;;63874-0334-90
  1. ;;9002226.02101,"976,63874-0334-90 ",.02)
  1. ;;63874-0334-90
  1. ;;9002226.02101,"976,63874-0339-01 ",.01)
  1. ;;63874-0339-01
  1. ;;9002226.02101,"976,63874-0339-01 ",.02)
  1. ;;63874-0339-01
  1. ;;9002226.02101,"976,63874-0339-10 ",.01)
  1. ;;63874-0339-10
  1. ;;9002226.02101,"976,63874-0339-10 ",.02)
  1. ;;63874-0339-10
  1. ;;9002226.02101,"976,63874-0339-12 ",.01)
  1. ;;63874-0339-12
  1. ;;9002226.02101,"976,63874-0339-12 ",.02)
  1. ;;63874-0339-12
  1. ;;9002226.02101,"976,63874-0339-14 ",.01)
  1. ;;63874-0339-14
  1. ;;9002226.02101,"976,63874-0339-14 ",.02)
  1. ;;63874-0339-14
  1. ;;9002226.02101,"976,63874-0339-15 ",.01)
  1. ;;63874-0339-15
  1. ;;9002226.02101,"976,63874-0339-15 ",.02)
  1. ;;63874-0339-15
  1. ;;9002226.02101,"976,63874-0339-20 ",.01)
  1. ;;63874-0339-20
  1. ;;9002226.02101,"976,63874-0339-20 ",.02)
  1. ;;63874-0339-20
  1. ;;9002226.02101,"976,63874-0339-21 ",.01)
  1. ;;63874-0339-21
  1. ;;9002226.02101,"976,63874-0339-21 ",.02)
  1. ;;63874-0339-21
  1. ;;9002226.02101,"976,63874-0339-24 ",.01)
  1. ;;63874-0339-24
  1. ;;9002226.02101,"976,63874-0339-24 ",.02)
  1. ;;63874-0339-24
  1. ;;9002226.02101,"976,63874-0339-26 ",.01)
  1. ;;63874-0339-26
  1. ;;9002226.02101,"976,63874-0339-26 ",.02)
  1. ;;63874-0339-26
  1. ;;9002226.02101,"976,63874-0339-28 ",.01)
  1. ;;63874-0339-28
  1. ;;9002226.02101,"976,63874-0339-28 ",.02)
  1. ;;63874-0339-28
  1. ;;9002226.02101,"976,63874-0339-30 ",.01)
  1. ;;63874-0339-30
  1. ;;9002226.02101,"976,63874-0339-30 ",.02)
  1. ;;63874-0339-30
  1. ;;9002226.02101,"976,63874-0339-40 ",.01)
  1. ;;63874-0339-40
  1. ;;9002226.02101,"976,63874-0339-40 ",.02)
  1. ;;63874-0339-40
  1. ;;9002226.02101,"976,63874-0339-42 ",.01)
  1. ;;63874-0339-42
  1. ;;9002226.02101,"976,63874-0339-42 ",.02)
  1. ;;63874-0339-42
  1. ;;9002226.02101,"976,63874-0339-50 ",.01)
  1. ;;63874-0339-50
  1. ;;9002226.02101,"976,63874-0339-50 ",.02)
  1. ;;63874-0339-50
  1. ;;9002226.02101,"976,63874-0339-56 ",.01)
  1. ;;63874-0339-56
  1. ;;9002226.02101,"976,63874-0339-56 ",.02)
  1. ;;63874-0339-56
  1. ;;9002226.02101,"976,63874-0339-60 ",.01)
  1. ;;63874-0339-60
  1. ;;9002226.02101,"976,63874-0339-60 ",.02)
  1. ;;63874-0339-60
  1. ;;9002226.02101,"976,63874-0339-90 ",.01)
  1. ;;63874-0339-90
  1. ;;9002226.02101,"976,63874-0339-90 ",.02)
  1. ;;63874-0339-90
  1. ;;9002226.02101,"976,63874-0340-20 ",.01)
  1. ;;63874-0340-20
  1. ;;9002226.02101,"976,63874-0340-20 ",.02)
  1. ;;63874-0340-20
  1. ;;9002226.02101,"976,63874-0340-30 ",.01)
  1. ;;63874-0340-30
  1. ;;9002226.02101,"976,63874-0340-30 ",.02)
  1. ;;63874-0340-30
  1. ;;9002226.02101,"976,63874-0340-50 ",.01)
  1. ;;63874-0340-50
  1. ;;9002226.02101,"976,63874-0340-50 ",.02)
  1. ;;63874-0340-50
  1. ;;9002226.02101,"976,63874-0350-01 ",.01)
  1. ;;63874-0350-01
  1. ;;9002226.02101,"976,63874-0350-01 ",.02)
  1. ;;63874-0350-01
  1. ;;9002226.02101,"976,63874-0350-03 ",.01)
  1. ;;63874-0350-03
  1. ;;9002226.02101,"976,63874-0350-03 ",.02)
  1. ;;63874-0350-03
  1. ;;9002226.02101,"976,63874-0350-10 ",.01)
  1. ;;63874-0350-10