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

BGP06B31.m

Go to the documentation of this file.
  1. BGP06B31 ;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,"975,58016-0814-40 ",.01)
  1. ;;58016-0814-40
  1. ;;9002226.02101,"975,58016-0814-40 ",.02)
  1. ;;58016-0814-40
  1. ;;9002226.02101,"975,58016-0814-45 ",.01)
  1. ;;58016-0814-45
  1. ;;9002226.02101,"975,58016-0814-45 ",.02)
  1. ;;58016-0814-45
  1. ;;9002226.02101,"975,58016-0814-50 ",.01)
  1. ;;58016-0814-50
  1. ;;9002226.02101,"975,58016-0814-50 ",.02)
  1. ;;58016-0814-50
  1. ;;9002226.02101,"975,58016-0814-60 ",.01)
  1. ;;58016-0814-60
  1. ;;9002226.02101,"975,58016-0814-60 ",.02)
  1. ;;58016-0814-60
  1. ;;9002226.02101,"975,58016-0814-90 ",.01)
  1. ;;58016-0814-90
  1. ;;9002226.02101,"975,58016-0814-90 ",.02)
  1. ;;58016-0814-90
  1. ;;9002226.02101,"975,58016-0814-99 ",.01)
  1. ;;58016-0814-99
  1. ;;9002226.02101,"975,58016-0814-99 ",.02)
  1. ;;58016-0814-99
  1. ;;9002226.02101,"975,58016-0815-00 ",.01)
  1. ;;58016-0815-00
  1. ;;9002226.02101,"975,58016-0815-00 ",.02)
  1. ;;58016-0815-00
  1. ;;9002226.02101,"975,58016-0815-15 ",.01)
  1. ;;58016-0815-15
  1. ;;9002226.02101,"975,58016-0815-15 ",.02)
  1. ;;58016-0815-15
  1. ;;9002226.02101,"975,58016-0815-20 ",.01)
  1. ;;58016-0815-20
  1. ;;9002226.02101,"975,58016-0815-20 ",.02)
  1. ;;58016-0815-20
  1. ;;9002226.02101,"975,58016-0815-21 ",.01)
  1. ;;58016-0815-21
  1. ;;9002226.02101,"975,58016-0815-21 ",.02)
  1. ;;58016-0815-21
  1. ;;9002226.02101,"975,58016-0815-28 ",.01)
  1. ;;58016-0815-28
  1. ;;9002226.02101,"975,58016-0815-28 ",.02)
  1. ;;58016-0815-28
  1. ;;9002226.02101,"975,58016-0815-30 ",.01)
  1. ;;58016-0815-30
  1. ;;9002226.02101,"975,58016-0815-30 ",.02)
  1. ;;58016-0815-30
  1. ;;9002226.02101,"975,58016-0815-60 ",.01)
  1. ;;58016-0815-60
  1. ;;9002226.02101,"975,58016-0815-60 ",.02)
  1. ;;58016-0815-60
  1. ;;9002226.02101,"975,58016-0815-90 ",.01)
  1. ;;58016-0815-90
  1. ;;9002226.02101,"975,58016-0815-90 ",.02)
  1. ;;58016-0815-90
  1. ;;9002226.02101,"975,58016-0815-99 ",.01)
  1. ;;58016-0815-99
  1. ;;9002226.02101,"975,58016-0815-99 ",.02)
  1. ;;58016-0815-99
  1. ;;9002226.02101,"975,58016-0817-00 ",.01)
  1. ;;58016-0817-00
  1. ;;9002226.02101,"975,58016-0817-00 ",.02)
  1. ;;58016-0817-00
  1. ;;9002226.02101,"975,58016-0817-02 ",.01)
  1. ;;58016-0817-02
  1. ;;9002226.02101,"975,58016-0817-02 ",.02)
  1. ;;58016-0817-02
  1. ;;9002226.02101,"975,58016-0817-03 ",.01)
  1. ;;58016-0817-03
  1. ;;9002226.02101,"975,58016-0817-03 ",.02)
  1. ;;58016-0817-03
  1. ;;9002226.02101,"975,58016-0817-30 ",.01)
  1. ;;58016-0817-30
  1. ;;9002226.02101,"975,58016-0817-30 ",.02)
  1. ;;58016-0817-30
  1. ;;9002226.02101,"975,58016-0817-60 ",.01)
  1. ;;58016-0817-60
  1. ;;9002226.02101,"975,58016-0817-60 ",.02)
  1. ;;58016-0817-60
  1. ;;9002226.02101,"975,58016-0817-90 ",.01)
  1. ;;58016-0817-90
  1. ;;9002226.02101,"975,58016-0817-90 ",.02)
  1. ;;58016-0817-90
  1. ;;9002226.02101,"975,58016-0818-00 ",.01)
  1. ;;58016-0818-00
  1. ;;9002226.02101,"975,58016-0818-00 ",.02)
  1. ;;58016-0818-00
  1. ;;9002226.02101,"975,58016-0818-02 ",.01)
  1. ;;58016-0818-02
  1. ;;9002226.02101,"975,58016-0818-02 ",.02)
  1. ;;58016-0818-02
  1. ;;9002226.02101,"975,58016-0818-03 ",.01)
  1. ;;58016-0818-03
  1. ;;9002226.02101,"975,58016-0818-03 ",.02)
  1. ;;58016-0818-03
  1. ;;9002226.02101,"975,58016-0818-30 ",.01)
  1. ;;58016-0818-30
  1. ;;9002226.02101,"975,58016-0818-30 ",.02)
  1. ;;58016-0818-30
  1. ;;9002226.02101,"975,58016-0818-60 ",.01)
  1. ;;58016-0818-60
  1. ;;9002226.02101,"975,58016-0818-60 ",.02)
  1. ;;58016-0818-60
  1. ;;9002226.02101,"975,58016-0818-90 ",.01)
  1. ;;58016-0818-90
  1. ;;9002226.02101,"975,58016-0818-90 ",.02)
  1. ;;58016-0818-90
  1. ;;9002226.02101,"975,58016-0818-99 ",.01)
  1. ;;58016-0818-99
  1. ;;9002226.02101,"975,58016-0818-99 ",.02)
  1. ;;58016-0818-99
  1. ;;9002226.02101,"975,58016-0828-10 ",.01)
  1. ;;58016-0828-10
  1. ;;9002226.02101,"975,58016-0828-10 ",.02)
  1. ;;58016-0828-10
  1. ;;9002226.02101,"975,58016-0828-20 ",.01)
  1. ;;58016-0828-20
  1. ;;9002226.02101,"975,58016-0828-20 ",.02)
  1. ;;58016-0828-20
  1. ;;9002226.02101,"975,58016-0828-30 ",.01)
  1. ;;58016-0828-30
  1. ;;9002226.02101,"975,58016-0828-30 ",.02)
  1. ;;58016-0828-30
  1. ;;9002226.02101,"975,58016-0828-40 ",.01)
  1. ;;58016-0828-40
  1. ;;9002226.02101,"975,58016-0828-40 ",.02)
  1. ;;58016-0828-40
  1. ;;9002226.02101,"975,58016-0828-60 ",.01)
  1. ;;58016-0828-60
  1. ;;9002226.02101,"975,58016-0828-60 ",.02)
  1. ;;58016-0828-60
  1. ;;9002226.02101,"975,58016-0828-90 ",.01)
  1. ;;58016-0828-90
  1. ;;9002226.02101,"975,58016-0828-90 ",.02)
  1. ;;58016-0828-90
  1. ;;9002226.02101,"975,58016-0833-00 ",.01)
  1. ;;58016-0833-00
  1. ;;9002226.02101,"975,58016-0833-00 ",.02)
  1. ;;58016-0833-00
  1. ;;9002226.02101,"975,58016-0833-10 ",.01)
  1. ;;58016-0833-10
  1. ;;9002226.02101,"975,58016-0833-10 ",.02)
  1. ;;58016-0833-10
  1. ;;9002226.02101,"975,58016-0833-12 ",.01)
  1. ;;58016-0833-12
  1. ;;9002226.02101,"975,58016-0833-12 ",.02)
  1. ;;58016-0833-12
  1. ;;9002226.02101,"975,58016-0833-14 ",.01)
  1. ;;58016-0833-14
  1. ;;9002226.02101,"975,58016-0833-14 ",.02)
  1. ;;58016-0833-14
  1. ;;9002226.02101,"975,58016-0833-15 ",.01)
  1. ;;58016-0833-15
  1. ;;9002226.02101,"975,58016-0833-15 ",.02)
  1. ;;58016-0833-15
  1. ;;9002226.02101,"975,58016-0833-20 ",.01)
  1. ;;58016-0833-20
  1. ;;9002226.02101,"975,58016-0833-20 ",.02)
  1. ;;58016-0833-20
  1. ;;9002226.02101,"975,58016-0833-21 ",.01)
  1. ;;58016-0833-21
  1. ;;9002226.02101,"975,58016-0833-21 ",.02)
  1. ;;58016-0833-21
  1. ;;9002226.02101,"975,58016-0833-30 ",.01)
  1. ;;58016-0833-30
  1. ;;9002226.02101,"975,58016-0833-30 ",.02)
  1. ;;58016-0833-30
  1. ;;9002226.02101,"975,58016-0833-40 ",.01)
  1. ;;58016-0833-40
  1. ;;9002226.02101,"975,58016-0833-40 ",.02)
  1. ;;58016-0833-40
  1. ;;9002226.02101,"975,58016-0833-50 ",.01)
  1. ;;58016-0833-50
  1. ;;9002226.02101,"975,58016-0833-50 ",.02)
  1. ;;58016-0833-50
  1. ;;9002226.02101,"975,58016-0833-60 ",.01)
  1. ;;58016-0833-60
  1. ;;9002226.02101,"975,58016-0833-60 ",.02)
  1. ;;58016-0833-60
  1. ;;9002226.02101,"975,58016-0833-90 ",.01)
  1. ;;58016-0833-90
  1. ;;9002226.02101,"975,58016-0833-90 ",.02)
  1. ;;58016-0833-90
  1. ;;9002226.02101,"975,58016-0834-00 ",.01)
  1. ;;58016-0834-00
  1. ;;9002226.02101,"975,58016-0834-00 ",.02)
  1. ;;58016-0834-00
  1. ;;9002226.02101,"975,58016-0834-10 ",.01)
  1. ;;58016-0834-10
  1. ;;9002226.02101,"975,58016-0834-10 ",.02)
  1. ;;58016-0834-10
  1. ;;9002226.02101,"975,58016-0834-14 ",.01)
  1. ;;58016-0834-14
  1. ;;9002226.02101,"975,58016-0834-14 ",.02)
  1. ;;58016-0834-14
  1. ;;9002226.02101,"975,58016-0834-15 ",.01)
  1. ;;58016-0834-15
  1. ;;9002226.02101,"975,58016-0834-15 ",.02)
  1. ;;58016-0834-15
  1. ;;9002226.02101,"975,58016-0834-20 ",.01)
  1. ;;58016-0834-20
  1. ;;9002226.02101,"975,58016-0834-20 ",.02)
  1. ;;58016-0834-20
  1. ;;9002226.02101,"975,58016-0834-21 ",.01)
  1. ;;58016-0834-21
  1. ;;9002226.02101,"975,58016-0834-21 ",.02)
  1. ;;58016-0834-21
  1. ;;9002226.02101,"975,58016-0834-30 ",.01)
  1. ;;58016-0834-30
  1. ;;9002226.02101,"975,58016-0834-30 ",.02)
  1. ;;58016-0834-30
  1. ;;9002226.02101,"975,58016-0834-40 ",.01)
  1. ;;58016-0834-40
  1. ;;9002226.02101,"975,58016-0834-40 ",.02)
  1. ;;58016-0834-40
  1. ;;9002226.02101,"975,58016-0834-50 ",.01)
  1. ;;58016-0834-50
  1. ;;9002226.02101,"975,58016-0834-50 ",.02)
  1. ;;58016-0834-50
  1. ;;9002226.02101,"975,58016-0834-60 ",.01)
  1. ;;58016-0834-60
  1. ;;9002226.02101,"975,58016-0834-60 ",.02)
  1. ;;58016-0834-60
  1. ;;9002226.02101,"975,58016-0834-90 ",.01)
  1. ;;58016-0834-90
  1. ;;9002226.02101,"975,58016-0834-90 ",.02)
  1. ;;58016-0834-90
  1. ;;9002226.02101,"975,58016-0839-00 ",.01)
  1. ;;58016-0839-00
  1. ;;9002226.02101,"975,58016-0839-00 ",.02)
  1. ;;58016-0839-00
  1. ;;9002226.02101,"975,58016-0839-02 ",.01)
  1. ;;58016-0839-02
  1. ;;9002226.02101,"975,58016-0839-02 ",.02)
  1. ;;58016-0839-02
  1. ;;9002226.02101,"975,58016-0839-12 ",.01)
  1. ;;58016-0839-12
  1. ;;9002226.02101,"975,58016-0839-12 ",.02)
  1. ;;58016-0839-12
  1. ;;9002226.02101,"975,58016-0839-15 ",.01)
  1. ;;58016-0839-15
  1. ;;9002226.02101,"975,58016-0839-15 ",.02)
  1. ;;58016-0839-15
  1. ;;9002226.02101,"975,58016-0839-20 ",.01)
  1. ;;58016-0839-20
  1. ;;9002226.02101,"975,58016-0839-20 ",.02)
  1. ;;58016-0839-20
  1. ;;9002226.02101,"975,58016-0839-30 ",.01)
  1. ;;58016-0839-30
  1. ;;9002226.02101,"975,58016-0839-30 ",.02)
  1. ;;58016-0839-30
  1. ;;9002226.02101,"975,58016-0839-60 ",.01)
  1. ;;58016-0839-60
  1. ;;9002226.02101,"975,58016-0839-60 ",.02)
  1. ;;58016-0839-60
  1. ;;9002226.02101,"975,58016-0839-90 ",.01)
  1. ;;58016-0839-90
  1. ;;9002226.02101,"975,58016-0839-90 ",.02)
  1. ;;58016-0839-90
  1. ;;9002226.02101,"975,58016-0841-00 ",.01)
  1. ;;58016-0841-00
  1. ;;9002226.02101,"975,58016-0841-00 ",.02)
  1. ;;58016-0841-00
  1. ;;9002226.02101,"975,58016-0841-02 ",.01)
  1. ;;58016-0841-02
  1. ;;9002226.02101,"975,58016-0841-02 ",.02)
  1. ;;58016-0841-02
  1. ;;9002226.02101,"975,58016-0841-12 ",.01)
  1. ;;58016-0841-12
  1. ;;9002226.02101,"975,58016-0841-12 ",.02)
  1. ;;58016-0841-12
  1. ;;9002226.02101,"975,58016-0841-15 ",.01)
  1. ;;58016-0841-15
  1. ;;9002226.02101,"975,58016-0841-15 ",.02)
  1. ;;58016-0841-15
  1. ;;9002226.02101,"975,58016-0841-20 ",.01)
  1. ;;58016-0841-20
  1. ;;9002226.02101,"975,58016-0841-20 ",.02)
  1. ;;58016-0841-20
  1. ;;9002226.02101,"975,58016-0841-30 ",.01)
  1. ;;58016-0841-30
  1. ;;9002226.02101,"975,58016-0841-30 ",.02)
  1. ;;58016-0841-30
  1. ;;9002226.02101,"975,58016-0841-60 ",.01)
  1. ;;58016-0841-60
  1. ;;9002226.02101,"975,58016-0841-60 ",.02)
  1. ;;58016-0841-60
  1. ;;9002226.02101,"975,58016-0841-90 ",.01)
  1. ;;58016-0841-90
  1. ;;9002226.02101,"975,58016-0841-90 ",.02)
  1. ;;58016-0841-90
  1. ;;9002226.02101,"975,58016-0853-00 ",.01)
  1. ;;58016-0853-00
  1. ;;9002226.02101,"975,58016-0853-00 ",.02)
  1. ;;58016-0853-00
  1. ;;9002226.02101,"975,58016-0853-02 ",.01)
  1. ;;58016-0853-02
  1. ;;9002226.02101,"975,58016-0853-02 ",.02)
  1. ;;58016-0853-02
  1. ;;9002226.02101,"975,58016-0853-03 ",.01)
  1. ;;58016-0853-03
  1. ;;9002226.02101,"975,58016-0853-03 ",.02)
  1. ;;58016-0853-03
  1. ;;9002226.02101,"975,58016-0853-14 ",.01)
  1. ;;58016-0853-14
  1. ;;9002226.02101,"975,58016-0853-14 ",.02)
  1. ;;58016-0853-14
  1. ;;9002226.02101,"975,58016-0853-15 ",.01)
  1. ;;58016-0853-15
  1. ;;9002226.02101,"975,58016-0853-15 ",.02)
  1. ;;58016-0853-15
  1. ;;9002226.02101,"975,58016-0853-20 ",.01)
  1. ;;58016-0853-20
  1. ;;9002226.02101,"975,58016-0853-20 ",.02)
  1. ;;58016-0853-20
  1. ;;9002226.02101,"975,58016-0853-28 ",.01)
  1. ;;58016-0853-28
  1. ;;9002226.02101,"975,58016-0853-28 ",.02)
  1. ;;58016-0853-28
  1. ;;9002226.02101,"975,58016-0853-30 ",.01)
  1. ;;58016-0853-30
  1. ;;9002226.02101,"975,58016-0853-30 ",.02)
  1. ;;58016-0853-30
  1. ;;9002226.02101,"975,58016-0853-50 ",.01)
  1. ;;58016-0853-50
  1. ;;9002226.02101,"975,58016-0853-50 ",.02)
  1. ;;58016-0853-50
  1. ;;9002226.02101,"975,58016-0853-60 ",.01)
  1. ;;58016-0853-60
  1. ;;9002226.02101,"975,58016-0853-60 ",.02)
  1. ;;58016-0853-60
  1. ;;9002226.02101,"975,58016-0853-73 ",.01)
  1. ;;58016-0853-73
  1. ;;9002226.02101,"975,58016-0853-73 ",.02)
  1. ;;58016-0853-73
  1. ;;9002226.02101,"975,58016-0853-89 ",.01)
  1. ;;58016-0853-89
  1. ;;9002226.02101,"975,58016-0853-89 ",.02)
  1. ;;58016-0853-89
  1. ;;9002226.02101,"975,58016-0853-90 ",.01)
  1. ;;58016-0853-90
  1. ;;9002226.02101,"975,58016-0853-90 ",.02)
  1. ;;58016-0853-90
  1. ;;9002226.02101,"975,58016-0858-00 ",.01)
  1. ;;58016-0858-00
  1. ;;9002226.02101,"975,58016-0858-00 ",.02)
  1. ;;58016-0858-00
  1. ;;9002226.02101,"975,58016-0858-14 ",.01)
  1. ;;58016-0858-14
  1. ;;9002226.02101,"975,58016-0858-14 ",.02)
  1. ;;58016-0858-14
  1. ;;9002226.02101,"975,58016-0858-21 ",.01)
  1. ;;58016-0858-21
  1. ;;9002226.02101,"975,58016-0858-21 ",.02)
  1. ;;58016-0858-21
  1. ;;9002226.02101,"975,58016-0858-28 ",.01)
  1. ;;58016-0858-28
  1. ;;9002226.02101,"975,58016-0858-28 ",.02)
  1. ;;58016-0858-28
  1. ;;9002226.02101,"975,58016-0858-30 ",.01)
  1. ;;58016-0858-30
  1. ;;9002226.02101,"975,58016-0858-30 ",.02)
  1. ;;58016-0858-30
  1. ;;9002226.02101,"975,58016-0858-40 ",.01)
  1. ;;58016-0858-40
  1. ;;9002226.02101,"975,58016-0858-40 ",.02)
  1. ;;58016-0858-40
  1. ;;9002226.02101,"975,58016-0858-50 ",.01)
  1. ;;58016-0858-50
  1. ;;9002226.02101,"975,58016-0858-50 ",.02)
  1. ;;58016-0858-50
  1. ;;9002226.02101,"975,58016-0858-60 ",.01)
  1. ;;58016-0858-60
  1. ;;9002226.02101,"975,58016-0858-60 ",.02)
  1. ;;58016-0858-60
  1. ;;9002226.02101,"975,58016-0858-99 ",.01)
  1. ;;58016-0858-99
  1. ;;9002226.02101,"975,58016-0858-99 ",.02)
  1. ;;58016-0858-99
  1. ;;9002226.02101,"975,58016-0862-00 ",.01)
  1. ;;58016-0862-00
  1. ;;9002226.02101,"975,58016-0862-00 ",.02)
  1. ;;58016-0862-00
  1. ;;9002226.02101,"975,58016-0862-02 ",.01)
  1. ;;58016-0862-02
  1. ;;9002226.02101,"975,58016-0862-02 ",.02)
  1. ;;58016-0862-02
  1. ;;9002226.02101,"975,58016-0862-03 ",.01)
  1. ;;58016-0862-03
  1. ;;9002226.02101,"975,58016-0862-03 ",.02)
  1. ;;58016-0862-03
  1. ;;9002226.02101,"975,58016-0862-12 ",.01)
  1. ;;58016-0862-12
  1. ;;9002226.02101,"975,58016-0862-12 ",.02)
  1. ;;58016-0862-12
  1. ;;9002226.02101,"975,58016-0862-15 ",.01)
  1. ;;58016-0862-15
  1. ;;9002226.02101,"975,58016-0862-15 ",.02)
  1. ;;58016-0862-15
  1. ;;9002226.02101,"975,58016-0862-20 ",.01)
  1. ;;58016-0862-20
  1. ;;9002226.02101,"975,58016-0862-20 ",.02)
  1. ;;58016-0862-20
  1. ;;9002226.02101,"975,58016-0862-30 ",.01)
  1. ;;58016-0862-30
  1. ;;9002226.02101,"975,58016-0862-30 ",.02)
  1. ;;58016-0862-30
  1. ;;9002226.02101,"975,58016-0862-50 ",.01)
  1. ;;58016-0862-50
  1. ;;9002226.02101,"975,58016-0862-50 ",.02)
  1. ;;58016-0862-50
  1. ;;9002226.02101,"975,58016-0862-60 ",.01)
  1. ;;58016-0862-60
  1. ;;9002226.02101,"975,58016-0862-60 ",.02)
  1. ;;58016-0862-60
  1. ;;9002226.02101,"975,58016-0862-73 ",.01)
  1. ;;58016-0862-73
  1. ;;9002226.02101,"975,58016-0862-73 ",.02)
  1. ;;58016-0862-73
  1. ;;9002226.02101,"975,58016-0862-89 ",.01)
  1. ;;58016-0862-89
  1. ;;9002226.02101,"975,58016-0862-89 ",.02)
  1. ;;58016-0862-89
  1. ;;9002226.02101,"975,58016-0862-90 ",.01)
  1. ;;58016-0862-90
  1. ;;9002226.02101,"975,58016-0862-90 ",.02)
  1. ;;58016-0862-90
  1. ;;9002226.02101,"975,58016-0866-00 ",.01)
  1. ;;58016-0866-00
  1. ;;9002226.02101,"975,58016-0866-00 ",.02)
  1. ;;58016-0866-00
  1. ;;9002226.02101,"975,58016-0866-02 ",.01)
  1. ;;58016-0866-02
  1. ;;9002226.02101,"975,58016-0866-02 ",.02)
  1. ;;58016-0866-02
  1. ;;9002226.02101,"975,58016-0866-12 ",.01)
  1. ;;58016-0866-12
  1. ;;9002226.02101,"975,58016-0866-12 ",.02)
  1. ;;58016-0866-12
  1. ;;9002226.02101,"975,58016-0866-15 ",.01)
  1. ;;58016-0866-15
  1. ;;9002226.02101,"975,58016-0866-15 ",.02)
  1. ;;58016-0866-15