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

BGP73G51.m

Go to the documentation of this file.
  1. BGP73G51 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON JAN 05, 2017;
  1. ;;17.1;IHS CLINICAL REPORTING;;MAY 10, 2017;Build 29
  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,58016-0806-60 ",.02)
  1. ;;58016-0806-60
  1. ;;9002226.02101,"869,58016-0806-90 ",.01)
  1. ;;58016-0806-90
  1. ;;9002226.02101,"869,58016-0806-90 ",.02)
  1. ;;58016-0806-90
  1. ;;9002226.02101,"869,58016-0808-00 ",.01)
  1. ;;58016-0808-00
  1. ;;9002226.02101,"869,58016-0808-00 ",.02)
  1. ;;58016-0808-00
  1. ;;9002226.02101,"869,58016-0808-30 ",.01)
  1. ;;58016-0808-30
  1. ;;9002226.02101,"869,58016-0808-30 ",.02)
  1. ;;58016-0808-30
  1. ;;9002226.02101,"869,58016-0808-60 ",.01)
  1. ;;58016-0808-60
  1. ;;9002226.02101,"869,58016-0808-60 ",.02)
  1. ;;58016-0808-60
  1. ;;9002226.02101,"869,58016-0808-90 ",.01)
  1. ;;58016-0808-90
  1. ;;9002226.02101,"869,58016-0808-90 ",.02)
  1. ;;58016-0808-90
  1. ;;9002226.02101,"869,58016-0813-00 ",.01)
  1. ;;58016-0813-00
  1. ;;9002226.02101,"869,58016-0813-00 ",.02)
  1. ;;58016-0813-00
  1. ;;9002226.02101,"869,58016-0813-02 ",.01)
  1. ;;58016-0813-02
  1. ;;9002226.02101,"869,58016-0813-02 ",.02)
  1. ;;58016-0813-02
  1. ;;9002226.02101,"869,58016-0813-03 ",.01)
  1. ;;58016-0813-03
  1. ;;9002226.02101,"869,58016-0813-03 ",.02)
  1. ;;58016-0813-03
  1. ;;9002226.02101,"869,58016-0813-10 ",.01)
  1. ;;58016-0813-10
  1. ;;9002226.02101,"869,58016-0813-10 ",.02)
  1. ;;58016-0813-10
  1. ;;9002226.02101,"869,58016-0813-12 ",.01)
  1. ;;58016-0813-12
  1. ;;9002226.02101,"869,58016-0813-12 ",.02)
  1. ;;58016-0813-12
  1. ;;9002226.02101,"869,58016-0813-15 ",.01)
  1. ;;58016-0813-15
  1. ;;9002226.02101,"869,58016-0813-15 ",.02)
  1. ;;58016-0813-15
  1. ;;9002226.02101,"869,58016-0813-20 ",.01)
  1. ;;58016-0813-20
  1. ;;9002226.02101,"869,58016-0813-20 ",.02)
  1. ;;58016-0813-20
  1. ;;9002226.02101,"869,58016-0813-24 ",.01)
  1. ;;58016-0813-24
  1. ;;9002226.02101,"869,58016-0813-24 ",.02)
  1. ;;58016-0813-24
  1. ;;9002226.02101,"869,58016-0813-30 ",.01)
  1. ;;58016-0813-30
  1. ;;9002226.02101,"869,58016-0813-30 ",.02)
  1. ;;58016-0813-30
  1. ;;9002226.02101,"869,58016-0813-50 ",.01)
  1. ;;58016-0813-50
  1. ;;9002226.02101,"869,58016-0813-50 ",.02)
  1. ;;58016-0813-50
  1. ;;9002226.02101,"869,58016-0813-60 ",.01)
  1. ;;58016-0813-60
  1. ;;9002226.02101,"869,58016-0813-60 ",.02)
  1. ;;58016-0813-60
  1. ;;9002226.02101,"869,58016-0813-73 ",.01)
  1. ;;58016-0813-73
  1. ;;9002226.02101,"869,58016-0813-73 ",.02)
  1. ;;58016-0813-73
  1. ;;9002226.02101,"869,58016-0813-89 ",.01)
  1. ;;58016-0813-89
  1. ;;9002226.02101,"869,58016-0813-89 ",.02)
  1. ;;58016-0813-89
  1. ;;9002226.02101,"869,58016-0813-90 ",.01)
  1. ;;58016-0813-90
  1. ;;9002226.02101,"869,58016-0813-90 ",.02)
  1. ;;58016-0813-90
  1. ;;9002226.02101,"869,58016-0813-99 ",.01)
  1. ;;58016-0813-99
  1. ;;9002226.02101,"869,58016-0813-99 ",.02)
  1. ;;58016-0813-99
  1. ;;9002226.02101,"869,58016-0814-00 ",.01)
  1. ;;58016-0814-00
  1. ;;9002226.02101,"869,58016-0814-00 ",.02)
  1. ;;58016-0814-00
  1. ;;9002226.02101,"869,58016-0814-02 ",.01)
  1. ;;58016-0814-02
  1. ;;9002226.02101,"869,58016-0814-02 ",.02)
  1. ;;58016-0814-02
  1. ;;9002226.02101,"869,58016-0814-15 ",.01)
  1. ;;58016-0814-15
  1. ;;9002226.02101,"869,58016-0814-15 ",.02)
  1. ;;58016-0814-15
  1. ;;9002226.02101,"869,58016-0814-20 ",.01)
  1. ;;58016-0814-20
  1. ;;9002226.02101,"869,58016-0814-20 ",.02)
  1. ;;58016-0814-20
  1. ;;9002226.02101,"869,58016-0814-25 ",.01)
  1. ;;58016-0814-25
  1. ;;9002226.02101,"869,58016-0814-25 ",.02)
  1. ;;58016-0814-25
  1. ;;9002226.02101,"869,58016-0814-30 ",.01)
  1. ;;58016-0814-30
  1. ;;9002226.02101,"869,58016-0814-30 ",.02)
  1. ;;58016-0814-30
  1. ;;9002226.02101,"869,58016-0814-40 ",.01)
  1. ;;58016-0814-40
  1. ;;9002226.02101,"869,58016-0814-40 ",.02)
  1. ;;58016-0814-40
  1. ;;9002226.02101,"869,58016-0814-45 ",.01)
  1. ;;58016-0814-45
  1. ;;9002226.02101,"869,58016-0814-45 ",.02)
  1. ;;58016-0814-45
  1. ;;9002226.02101,"869,58016-0814-50 ",.01)
  1. ;;58016-0814-50
  1. ;;9002226.02101,"869,58016-0814-50 ",.02)
  1. ;;58016-0814-50
  1. ;;9002226.02101,"869,58016-0814-60 ",.01)
  1. ;;58016-0814-60
  1. ;;9002226.02101,"869,58016-0814-60 ",.02)
  1. ;;58016-0814-60
  1. ;;9002226.02101,"869,58016-0814-89 ",.01)
  1. ;;58016-0814-89
  1. ;;9002226.02101,"869,58016-0814-89 ",.02)
  1. ;;58016-0814-89
  1. ;;9002226.02101,"869,58016-0814-90 ",.01)
  1. ;;58016-0814-90
  1. ;;9002226.02101,"869,58016-0814-90 ",.02)
  1. ;;58016-0814-90
  1. ;;9002226.02101,"869,58016-0814-99 ",.01)
  1. ;;58016-0814-99
  1. ;;9002226.02101,"869,58016-0814-99 ",.02)
  1. ;;58016-0814-99
  1. ;;9002226.02101,"869,58016-0815-00 ",.01)
  1. ;;58016-0815-00
  1. ;;9002226.02101,"869,58016-0815-00 ",.02)
  1. ;;58016-0815-00
  1. ;;9002226.02101,"869,58016-0815-15 ",.01)
  1. ;;58016-0815-15
  1. ;;9002226.02101,"869,58016-0815-15 ",.02)
  1. ;;58016-0815-15
  1. ;;9002226.02101,"869,58016-0815-20 ",.01)
  1. ;;58016-0815-20
  1. ;;9002226.02101,"869,58016-0815-20 ",.02)
  1. ;;58016-0815-20
  1. ;;9002226.02101,"869,58016-0815-21 ",.01)
  1. ;;58016-0815-21
  1. ;;9002226.02101,"869,58016-0815-21 ",.02)
  1. ;;58016-0815-21
  1. ;;9002226.02101,"869,58016-0815-28 ",.01)
  1. ;;58016-0815-28
  1. ;;9002226.02101,"869,58016-0815-28 ",.02)
  1. ;;58016-0815-28
  1. ;;9002226.02101,"869,58016-0815-30 ",.01)
  1. ;;58016-0815-30
  1. ;;9002226.02101,"869,58016-0815-30 ",.02)
  1. ;;58016-0815-30
  1. ;;9002226.02101,"869,58016-0815-60 ",.01)
  1. ;;58016-0815-60
  1. ;;9002226.02101,"869,58016-0815-60 ",.02)
  1. ;;58016-0815-60
  1. ;;9002226.02101,"869,58016-0815-90 ",.01)
  1. ;;58016-0815-90
  1. ;;9002226.02101,"869,58016-0815-90 ",.02)
  1. ;;58016-0815-90
  1. ;;9002226.02101,"869,58016-0815-99 ",.01)
  1. ;;58016-0815-99
  1. ;;9002226.02101,"869,58016-0815-99 ",.02)
  1. ;;58016-0815-99
  1. ;;9002226.02101,"869,58016-0817-00 ",.01)
  1. ;;58016-0817-00
  1. ;;9002226.02101,"869,58016-0817-00 ",.02)
  1. ;;58016-0817-00
  1. ;;9002226.02101,"869,58016-0817-02 ",.01)
  1. ;;58016-0817-02
  1. ;;9002226.02101,"869,58016-0817-02 ",.02)
  1. ;;58016-0817-02
  1. ;;9002226.02101,"869,58016-0817-03 ",.01)
  1. ;;58016-0817-03
  1. ;;9002226.02101,"869,58016-0817-03 ",.02)
  1. ;;58016-0817-03
  1. ;;9002226.02101,"869,58016-0817-30 ",.01)
  1. ;;58016-0817-30
  1. ;;9002226.02101,"869,58016-0817-30 ",.02)
  1. ;;58016-0817-30
  1. ;;9002226.02101,"869,58016-0817-60 ",.01)
  1. ;;58016-0817-60
  1. ;;9002226.02101,"869,58016-0817-60 ",.02)
  1. ;;58016-0817-60
  1. ;;9002226.02101,"869,58016-0817-90 ",.01)
  1. ;;58016-0817-90
  1. ;;9002226.02101,"869,58016-0817-90 ",.02)
  1. ;;58016-0817-90
  1. ;;9002226.02101,"869,58016-0818-00 ",.01)
  1. ;;58016-0818-00
  1. ;;9002226.02101,"869,58016-0818-00 ",.02)
  1. ;;58016-0818-00
  1. ;;9002226.02101,"869,58016-0818-02 ",.01)
  1. ;;58016-0818-02
  1. ;;9002226.02101,"869,58016-0818-02 ",.02)
  1. ;;58016-0818-02
  1. ;;9002226.02101,"869,58016-0818-03 ",.01)
  1. ;;58016-0818-03
  1. ;;9002226.02101,"869,58016-0818-03 ",.02)
  1. ;;58016-0818-03
  1. ;;9002226.02101,"869,58016-0818-30 ",.01)
  1. ;;58016-0818-30
  1. ;;9002226.02101,"869,58016-0818-30 ",.02)
  1. ;;58016-0818-30
  1. ;;9002226.02101,"869,58016-0818-60 ",.01)
  1. ;;58016-0818-60
  1. ;;9002226.02101,"869,58016-0818-60 ",.02)
  1. ;;58016-0818-60
  1. ;;9002226.02101,"869,58016-0818-90 ",.01)
  1. ;;58016-0818-90
  1. ;;9002226.02101,"869,58016-0818-90 ",.02)
  1. ;;58016-0818-90
  1. ;;9002226.02101,"869,58016-0818-99 ",.01)
  1. ;;58016-0818-99
  1. ;;9002226.02101,"869,58016-0818-99 ",.02)
  1. ;;58016-0818-99
  1. ;;9002226.02101,"869,58016-0828-10 ",.01)
  1. ;;58016-0828-10
  1. ;;9002226.02101,"869,58016-0828-10 ",.02)
  1. ;;58016-0828-10
  1. ;;9002226.02101,"869,58016-0828-20 ",.01)
  1. ;;58016-0828-20
  1. ;;9002226.02101,"869,58016-0828-20 ",.02)
  1. ;;58016-0828-20
  1. ;;9002226.02101,"869,58016-0828-30 ",.01)
  1. ;;58016-0828-30
  1. ;;9002226.02101,"869,58016-0828-30 ",.02)
  1. ;;58016-0828-30
  1. ;;9002226.02101,"869,58016-0828-40 ",.01)
  1. ;;58016-0828-40
  1. ;;9002226.02101,"869,58016-0828-40 ",.02)
  1. ;;58016-0828-40
  1. ;;9002226.02101,"869,58016-0828-60 ",.01)
  1. ;;58016-0828-60
  1. ;;9002226.02101,"869,58016-0828-60 ",.02)
  1. ;;58016-0828-60
  1. ;;9002226.02101,"869,58016-0828-90 ",.01)
  1. ;;58016-0828-90
  1. ;;9002226.02101,"869,58016-0828-90 ",.02)
  1. ;;58016-0828-90
  1. ;;9002226.02101,"869,58016-0833-00 ",.01)
  1. ;;58016-0833-00
  1. ;;9002226.02101,"869,58016-0833-00 ",.02)
  1. ;;58016-0833-00
  1. ;;9002226.02101,"869,58016-0833-10 ",.01)
  1. ;;58016-0833-10
  1. ;;9002226.02101,"869,58016-0833-10 ",.02)
  1. ;;58016-0833-10
  1. ;;9002226.02101,"869,58016-0833-12 ",.01)
  1. ;;58016-0833-12
  1. ;;9002226.02101,"869,58016-0833-12 ",.02)
  1. ;;58016-0833-12
  1. ;;9002226.02101,"869,58016-0833-14 ",.01)
  1. ;;58016-0833-14
  1. ;;9002226.02101,"869,58016-0833-14 ",.02)
  1. ;;58016-0833-14
  1. ;;9002226.02101,"869,58016-0833-15 ",.01)
  1. ;;58016-0833-15
  1. ;;9002226.02101,"869,58016-0833-15 ",.02)
  1. ;;58016-0833-15
  1. ;;9002226.02101,"869,58016-0833-20 ",.01)
  1. ;;58016-0833-20
  1. ;;9002226.02101,"869,58016-0833-20 ",.02)
  1. ;;58016-0833-20
  1. ;;9002226.02101,"869,58016-0833-21 ",.01)
  1. ;;58016-0833-21
  1. ;;9002226.02101,"869,58016-0833-21 ",.02)
  1. ;;58016-0833-21
  1. ;;9002226.02101,"869,58016-0833-30 ",.01)
  1. ;;58016-0833-30
  1. ;;9002226.02101,"869,58016-0833-30 ",.02)
  1. ;;58016-0833-30
  1. ;;9002226.02101,"869,58016-0833-40 ",.01)
  1. ;;58016-0833-40
  1. ;;9002226.02101,"869,58016-0833-40 ",.02)
  1. ;;58016-0833-40
  1. ;;9002226.02101,"869,58016-0833-50 ",.01)
  1. ;;58016-0833-50
  1. ;;9002226.02101,"869,58016-0833-50 ",.02)
  1. ;;58016-0833-50
  1. ;;9002226.02101,"869,58016-0833-60 ",.01)
  1. ;;58016-0833-60
  1. ;;9002226.02101,"869,58016-0833-60 ",.02)
  1. ;;58016-0833-60
  1. ;;9002226.02101,"869,58016-0833-90 ",.01)
  1. ;;58016-0833-90
  1. ;;9002226.02101,"869,58016-0833-90 ",.02)
  1. ;;58016-0833-90
  1. ;;9002226.02101,"869,58016-0834-00 ",.01)
  1. ;;58016-0834-00
  1. ;;9002226.02101,"869,58016-0834-00 ",.02)
  1. ;;58016-0834-00
  1. ;;9002226.02101,"869,58016-0834-10 ",.01)
  1. ;;58016-0834-10
  1. ;;9002226.02101,"869,58016-0834-10 ",.02)
  1. ;;58016-0834-10
  1. ;;9002226.02101,"869,58016-0834-14 ",.01)
  1. ;;58016-0834-14
  1. ;;9002226.02101,"869,58016-0834-14 ",.02)
  1. ;;58016-0834-14
  1. ;;9002226.02101,"869,58016-0834-15 ",.01)
  1. ;;58016-0834-15
  1. ;;9002226.02101,"869,58016-0834-15 ",.02)
  1. ;;58016-0834-15
  1. ;;9002226.02101,"869,58016-0834-20 ",.01)
  1. ;;58016-0834-20
  1. ;;9002226.02101,"869,58016-0834-20 ",.02)
  1. ;;58016-0834-20
  1. ;;9002226.02101,"869,58016-0834-21 ",.01)
  1. ;;58016-0834-21
  1. ;;9002226.02101,"869,58016-0834-21 ",.02)
  1. ;;58016-0834-21
  1. ;;9002226.02101,"869,58016-0834-30 ",.01)
  1. ;;58016-0834-30
  1. ;;9002226.02101,"869,58016-0834-30 ",.02)
  1. ;;58016-0834-30
  1. ;;9002226.02101,"869,58016-0834-40 ",.01)
  1. ;;58016-0834-40
  1. ;;9002226.02101,"869,58016-0834-40 ",.02)
  1. ;;58016-0834-40
  1. ;;9002226.02101,"869,58016-0834-50 ",.01)
  1. ;;58016-0834-50
  1. ;;9002226.02101,"869,58016-0834-50 ",.02)
  1. ;;58016-0834-50
  1. ;;9002226.02101,"869,58016-0834-60 ",.01)
  1. ;;58016-0834-60
  1. ;;9002226.02101,"869,58016-0834-60 ",.02)
  1. ;;58016-0834-60
  1. ;;9002226.02101,"869,58016-0834-90 ",.01)
  1. ;;58016-0834-90
  1. ;;9002226.02101,"869,58016-0834-90 ",.02)
  1. ;;58016-0834-90
  1. ;;9002226.02101,"869,58016-0839-00 ",.01)
  1. ;;58016-0839-00
  1. ;;9002226.02101,"869,58016-0839-00 ",.02)
  1. ;;58016-0839-00
  1. ;;9002226.02101,"869,58016-0839-02 ",.01)
  1. ;;58016-0839-02
  1. ;;9002226.02101,"869,58016-0839-02 ",.02)
  1. ;;58016-0839-02
  1. ;;9002226.02101,"869,58016-0839-12 ",.01)
  1. ;;58016-0839-12
  1. ;;9002226.02101,"869,58016-0839-12 ",.02)
  1. ;;58016-0839-12
  1. ;;9002226.02101,"869,58016-0839-15 ",.01)
  1. ;;58016-0839-15
  1. ;;9002226.02101,"869,58016-0839-15 ",.02)
  1. ;;58016-0839-15
  1. ;;9002226.02101,"869,58016-0839-20 ",.01)
  1. ;;58016-0839-20
  1. ;;9002226.02101,"869,58016-0839-20 ",.02)
  1. ;;58016-0839-20
  1. ;;9002226.02101,"869,58016-0839-30 ",.01)
  1. ;;58016-0839-30
  1. ;;9002226.02101,"869,58016-0839-30 ",.02)
  1. ;;58016-0839-30
  1. ;;9002226.02101,"869,58016-0839-60 ",.01)
  1. ;;58016-0839-60
  1. ;;9002226.02101,"869,58016-0839-60 ",.02)
  1. ;;58016-0839-60
  1. ;;9002226.02101,"869,58016-0839-90 ",.01)
  1. ;;58016-0839-90
  1. ;;9002226.02101,"869,58016-0839-90 ",.02)
  1. ;;58016-0839-90
  1. ;;9002226.02101,"869,58016-0841-00 ",.01)
  1. ;;58016-0841-00
  1. ;;9002226.02101,"869,58016-0841-00 ",.02)
  1. ;;58016-0841-00
  1. ;;9002226.02101,"869,58016-0841-02 ",.01)
  1. ;;58016-0841-02
  1. ;;9002226.02101,"869,58016-0841-02 ",.02)
  1. ;;58016-0841-02
  1. ;;9002226.02101,"869,58016-0841-12 ",.01)
  1. ;;58016-0841-12
  1. ;;9002226.02101,"869,58016-0841-12 ",.02)
  1. ;;58016-0841-12
  1. ;;9002226.02101,"869,58016-0841-15 ",.01)
  1. ;;58016-0841-15