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

BGP06B30.m

Go to the documentation of this file.
  1. BGP06B30 ;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-0661-60 ",.01)
  1. ;;58016-0661-60
  1. ;;9002226.02101,"975,58016-0661-60 ",.02)
  1. ;;58016-0661-60
  1. ;;9002226.02101,"975,58016-0661-90 ",.01)
  1. ;;58016-0661-90
  1. ;;9002226.02101,"975,58016-0661-90 ",.02)
  1. ;;58016-0661-90
  1. ;;9002226.02101,"975,58016-0663-00 ",.01)
  1. ;;58016-0663-00
  1. ;;9002226.02101,"975,58016-0663-00 ",.02)
  1. ;;58016-0663-00
  1. ;;9002226.02101,"975,58016-0663-30 ",.01)
  1. ;;58016-0663-30
  1. ;;9002226.02101,"975,58016-0663-30 ",.02)
  1. ;;58016-0663-30
  1. ;;9002226.02101,"975,58016-0663-60 ",.01)
  1. ;;58016-0663-60
  1. ;;9002226.02101,"975,58016-0663-60 ",.02)
  1. ;;58016-0663-60
  1. ;;9002226.02101,"975,58016-0663-90 ",.01)
  1. ;;58016-0663-90
  1. ;;9002226.02101,"975,58016-0663-90 ",.02)
  1. ;;58016-0663-90
  1. ;;9002226.02101,"975,58016-0664-00 ",.01)
  1. ;;58016-0664-00
  1. ;;9002226.02101,"975,58016-0664-00 ",.02)
  1. ;;58016-0664-00
  1. ;;9002226.02101,"975,58016-0664-30 ",.01)
  1. ;;58016-0664-30
  1. ;;9002226.02101,"975,58016-0664-30 ",.02)
  1. ;;58016-0664-30
  1. ;;9002226.02101,"975,58016-0664-60 ",.01)
  1. ;;58016-0664-60
  1. ;;9002226.02101,"975,58016-0664-60 ",.02)
  1. ;;58016-0664-60
  1. ;;9002226.02101,"975,58016-0664-90 ",.01)
  1. ;;58016-0664-90
  1. ;;9002226.02101,"975,58016-0664-90 ",.02)
  1. ;;58016-0664-90
  1. ;;9002226.02101,"975,58016-0668-00 ",.01)
  1. ;;58016-0668-00
  1. ;;9002226.02101,"975,58016-0668-00 ",.02)
  1. ;;58016-0668-00
  1. ;;9002226.02101,"975,58016-0668-30 ",.01)
  1. ;;58016-0668-30
  1. ;;9002226.02101,"975,58016-0668-30 ",.02)
  1. ;;58016-0668-30
  1. ;;9002226.02101,"975,58016-0668-60 ",.01)
  1. ;;58016-0668-60
  1. ;;9002226.02101,"975,58016-0668-60 ",.02)
  1. ;;58016-0668-60
  1. ;;9002226.02101,"975,58016-0668-90 ",.01)
  1. ;;58016-0668-90
  1. ;;9002226.02101,"975,58016-0668-90 ",.02)
  1. ;;58016-0668-90
  1. ;;9002226.02101,"975,58016-0671-00 ",.01)
  1. ;;58016-0671-00
  1. ;;9002226.02101,"975,58016-0671-00 ",.02)
  1. ;;58016-0671-00
  1. ;;9002226.02101,"975,58016-0671-02 ",.01)
  1. ;;58016-0671-02
  1. ;;9002226.02101,"975,58016-0671-02 ",.02)
  1. ;;58016-0671-02
  1. ;;9002226.02101,"975,58016-0671-03 ",.01)
  1. ;;58016-0671-03
  1. ;;9002226.02101,"975,58016-0671-03 ",.02)
  1. ;;58016-0671-03
  1. ;;9002226.02101,"975,58016-0671-30 ",.01)
  1. ;;58016-0671-30
  1. ;;9002226.02101,"975,58016-0671-30 ",.02)
  1. ;;58016-0671-30
  1. ;;9002226.02101,"975,58016-0671-60 ",.01)
  1. ;;58016-0671-60
  1. ;;9002226.02101,"975,58016-0671-60 ",.02)
  1. ;;58016-0671-60
  1. ;;9002226.02101,"975,58016-0671-90 ",.01)
  1. ;;58016-0671-90
  1. ;;9002226.02101,"975,58016-0671-90 ",.02)
  1. ;;58016-0671-90
  1. ;;9002226.02101,"975,58016-0693-00 ",.01)
  1. ;;58016-0693-00
  1. ;;9002226.02101,"975,58016-0693-00 ",.02)
  1. ;;58016-0693-00
  1. ;;9002226.02101,"975,58016-0693-15 ",.01)
  1. ;;58016-0693-15
  1. ;;9002226.02101,"975,58016-0693-15 ",.02)
  1. ;;58016-0693-15
  1. ;;9002226.02101,"975,58016-0693-20 ",.01)
  1. ;;58016-0693-20
  1. ;;9002226.02101,"975,58016-0693-20 ",.02)
  1. ;;58016-0693-20
  1. ;;9002226.02101,"975,58016-0693-30 ",.01)
  1. ;;58016-0693-30
  1. ;;9002226.02101,"975,58016-0693-30 ",.02)
  1. ;;58016-0693-30
  1. ;;9002226.02101,"975,58016-0701-00 ",.01)
  1. ;;58016-0701-00
  1. ;;9002226.02101,"975,58016-0701-00 ",.02)
  1. ;;58016-0701-00
  1. ;;9002226.02101,"975,58016-0701-12 ",.01)
  1. ;;58016-0701-12
  1. ;;9002226.02101,"975,58016-0701-12 ",.02)
  1. ;;58016-0701-12
  1. ;;9002226.02101,"975,58016-0701-15 ",.01)
  1. ;;58016-0701-15
  1. ;;9002226.02101,"975,58016-0701-15 ",.02)
  1. ;;58016-0701-15
  1. ;;9002226.02101,"975,58016-0701-20 ",.01)
  1. ;;58016-0701-20
  1. ;;9002226.02101,"975,58016-0701-20 ",.02)
  1. ;;58016-0701-20
  1. ;;9002226.02101,"975,58016-0701-30 ",.01)
  1. ;;58016-0701-30
  1. ;;9002226.02101,"975,58016-0701-30 ",.02)
  1. ;;58016-0701-30
  1. ;;9002226.02101,"975,58016-0701-50 ",.01)
  1. ;;58016-0701-50
  1. ;;9002226.02101,"975,58016-0701-50 ",.02)
  1. ;;58016-0701-50
  1. ;;9002226.02101,"975,58016-0701-60 ",.01)
  1. ;;58016-0701-60
  1. ;;9002226.02101,"975,58016-0701-60 ",.02)
  1. ;;58016-0701-60
  1. ;;9002226.02101,"975,58016-0701-90 ",.01)
  1. ;;58016-0701-90
  1. ;;9002226.02101,"975,58016-0701-90 ",.02)
  1. ;;58016-0701-90
  1. ;;9002226.02101,"975,58016-0704-00 ",.01)
  1. ;;58016-0704-00
  1. ;;9002226.02101,"975,58016-0704-00 ",.02)
  1. ;;58016-0704-00
  1. ;;9002226.02101,"975,58016-0704-02 ",.01)
  1. ;;58016-0704-02
  1. ;;9002226.02101,"975,58016-0704-02 ",.02)
  1. ;;58016-0704-02
  1. ;;9002226.02101,"975,58016-0704-03 ",.01)
  1. ;;58016-0704-03
  1. ;;9002226.02101,"975,58016-0704-03 ",.02)
  1. ;;58016-0704-03
  1. ;;9002226.02101,"975,58016-0704-30 ",.01)
  1. ;;58016-0704-30
  1. ;;9002226.02101,"975,58016-0704-30 ",.02)
  1. ;;58016-0704-30
  1. ;;9002226.02101,"975,58016-0704-60 ",.01)
  1. ;;58016-0704-60
  1. ;;9002226.02101,"975,58016-0704-60 ",.02)
  1. ;;58016-0704-60
  1. ;;9002226.02101,"975,58016-0704-73 ",.01)
  1. ;;58016-0704-73
  1. ;;9002226.02101,"975,58016-0704-73 ",.02)
  1. ;;58016-0704-73
  1. ;;9002226.02101,"975,58016-0704-89 ",.01)
  1. ;;58016-0704-89
  1. ;;9002226.02101,"975,58016-0704-89 ",.02)
  1. ;;58016-0704-89
  1. ;;9002226.02101,"975,58016-0704-90 ",.01)
  1. ;;58016-0704-90
  1. ;;9002226.02101,"975,58016-0704-90 ",.02)
  1. ;;58016-0704-90
  1. ;;9002226.02101,"975,58016-0710-00 ",.01)
  1. ;;58016-0710-00
  1. ;;9002226.02101,"975,58016-0710-00 ",.02)
  1. ;;58016-0710-00
  1. ;;9002226.02101,"975,58016-0710-30 ",.01)
  1. ;;58016-0710-30
  1. ;;9002226.02101,"975,58016-0710-30 ",.02)
  1. ;;58016-0710-30
  1. ;;9002226.02101,"975,58016-0710-60 ",.01)
  1. ;;58016-0710-60
  1. ;;9002226.02101,"975,58016-0710-60 ",.02)
  1. ;;58016-0710-60
  1. ;;9002226.02101,"975,58016-0710-90 ",.01)
  1. ;;58016-0710-90
  1. ;;9002226.02101,"975,58016-0710-90 ",.02)
  1. ;;58016-0710-90
  1. ;;9002226.02101,"975,58016-0710-99 ",.01)
  1. ;;58016-0710-99
  1. ;;9002226.02101,"975,58016-0710-99 ",.02)
  1. ;;58016-0710-99
  1. ;;9002226.02101,"975,58016-0722-00 ",.01)
  1. ;;58016-0722-00
  1. ;;9002226.02101,"975,58016-0722-00 ",.02)
  1. ;;58016-0722-00
  1. ;;9002226.02101,"975,58016-0722-02 ",.01)
  1. ;;58016-0722-02
  1. ;;9002226.02101,"975,58016-0722-02 ",.02)
  1. ;;58016-0722-02
  1. ;;9002226.02101,"975,58016-0722-03 ",.01)
  1. ;;58016-0722-03
  1. ;;9002226.02101,"975,58016-0722-03 ",.02)
  1. ;;58016-0722-03
  1. ;;9002226.02101,"975,58016-0722-20 ",.01)
  1. ;;58016-0722-20
  1. ;;9002226.02101,"975,58016-0722-20 ",.02)
  1. ;;58016-0722-20
  1. ;;9002226.02101,"975,58016-0722-30 ",.01)
  1. ;;58016-0722-30
  1. ;;9002226.02101,"975,58016-0722-30 ",.02)
  1. ;;58016-0722-30
  1. ;;9002226.02101,"975,58016-0722-40 ",.01)
  1. ;;58016-0722-40
  1. ;;9002226.02101,"975,58016-0722-40 ",.02)
  1. ;;58016-0722-40
  1. ;;9002226.02101,"975,58016-0722-50 ",.01)
  1. ;;58016-0722-50
  1. ;;9002226.02101,"975,58016-0722-50 ",.02)
  1. ;;58016-0722-50
  1. ;;9002226.02101,"975,58016-0722-60 ",.01)
  1. ;;58016-0722-60
  1. ;;9002226.02101,"975,58016-0722-60 ",.02)
  1. ;;58016-0722-60
  1. ;;9002226.02101,"975,58016-0722-70 ",.01)
  1. ;;58016-0722-70
  1. ;;9002226.02101,"975,58016-0722-70 ",.02)
  1. ;;58016-0722-70
  1. ;;9002226.02101,"975,58016-0722-73 ",.01)
  1. ;;58016-0722-73
  1. ;;9002226.02101,"975,58016-0722-73 ",.02)
  1. ;;58016-0722-73
  1. ;;9002226.02101,"975,58016-0722-80 ",.01)
  1. ;;58016-0722-80
  1. ;;9002226.02101,"975,58016-0722-80 ",.02)
  1. ;;58016-0722-80
  1. ;;9002226.02101,"975,58016-0722-89 ",.01)
  1. ;;58016-0722-89
  1. ;;9002226.02101,"975,58016-0722-89 ",.02)
  1. ;;58016-0722-89
  1. ;;9002226.02101,"975,58016-0722-90 ",.01)
  1. ;;58016-0722-90
  1. ;;9002226.02101,"975,58016-0722-90 ",.02)
  1. ;;58016-0722-90
  1. ;;9002226.02101,"975,58016-0723-00 ",.01)
  1. ;;58016-0723-00
  1. ;;9002226.02101,"975,58016-0723-00 ",.02)
  1. ;;58016-0723-00
  1. ;;9002226.02101,"975,58016-0723-30 ",.01)
  1. ;;58016-0723-30
  1. ;;9002226.02101,"975,58016-0723-30 ",.02)
  1. ;;58016-0723-30
  1. ;;9002226.02101,"975,58016-0723-60 ",.01)
  1. ;;58016-0723-60
  1. ;;9002226.02101,"975,58016-0723-60 ",.02)
  1. ;;58016-0723-60
  1. ;;9002226.02101,"975,58016-0723-90 ",.01)
  1. ;;58016-0723-90
  1. ;;9002226.02101,"975,58016-0723-90 ",.02)
  1. ;;58016-0723-90
  1. ;;9002226.02101,"975,58016-0731-00 ",.01)
  1. ;;58016-0731-00
  1. ;;9002226.02101,"975,58016-0731-00 ",.02)
  1. ;;58016-0731-00
  1. ;;9002226.02101,"975,58016-0731-30 ",.01)
  1. ;;58016-0731-30
  1. ;;9002226.02101,"975,58016-0731-30 ",.02)
  1. ;;58016-0731-30
  1. ;;9002226.02101,"975,58016-0731-60 ",.01)
  1. ;;58016-0731-60
  1. ;;9002226.02101,"975,58016-0731-60 ",.02)
  1. ;;58016-0731-60
  1. ;;9002226.02101,"975,58016-0731-90 ",.01)
  1. ;;58016-0731-90
  1. ;;9002226.02101,"975,58016-0731-90 ",.02)
  1. ;;58016-0731-90
  1. ;;9002226.02101,"975,58016-0732-00 ",.01)
  1. ;;58016-0732-00
  1. ;;9002226.02101,"975,58016-0732-00 ",.02)
  1. ;;58016-0732-00
  1. ;;9002226.02101,"975,58016-0732-30 ",.01)
  1. ;;58016-0732-30
  1. ;;9002226.02101,"975,58016-0732-30 ",.02)
  1. ;;58016-0732-30
  1. ;;9002226.02101,"975,58016-0732-60 ",.01)
  1. ;;58016-0732-60
  1. ;;9002226.02101,"975,58016-0732-60 ",.02)
  1. ;;58016-0732-60
  1. ;;9002226.02101,"975,58016-0732-90 ",.01)
  1. ;;58016-0732-90
  1. ;;9002226.02101,"975,58016-0732-90 ",.02)
  1. ;;58016-0732-90
  1. ;;9002226.02101,"975,58016-0742-00 ",.01)
  1. ;;58016-0742-00
  1. ;;9002226.02101,"975,58016-0742-00 ",.02)
  1. ;;58016-0742-00
  1. ;;9002226.02101,"975,58016-0742-30 ",.01)
  1. ;;58016-0742-30
  1. ;;9002226.02101,"975,58016-0742-30 ",.02)
  1. ;;58016-0742-30
  1. ;;9002226.02101,"975,58016-0742-60 ",.01)
  1. ;;58016-0742-60
  1. ;;9002226.02101,"975,58016-0742-60 ",.02)
  1. ;;58016-0742-60
  1. ;;9002226.02101,"975,58016-0742-90 ",.01)
  1. ;;58016-0742-90
  1. ;;9002226.02101,"975,58016-0742-90 ",.02)
  1. ;;58016-0742-90
  1. ;;9002226.02101,"975,58016-0761-00 ",.01)
  1. ;;58016-0761-00
  1. ;;9002226.02101,"975,58016-0761-00 ",.02)
  1. ;;58016-0761-00
  1. ;;9002226.02101,"975,58016-0761-30 ",.01)
  1. ;;58016-0761-30
  1. ;;9002226.02101,"975,58016-0761-30 ",.02)
  1. ;;58016-0761-30
  1. ;;9002226.02101,"975,58016-0761-60 ",.01)
  1. ;;58016-0761-60
  1. ;;9002226.02101,"975,58016-0761-60 ",.02)
  1. ;;58016-0761-60
  1. ;;9002226.02101,"975,58016-0761-90 ",.01)
  1. ;;58016-0761-90
  1. ;;9002226.02101,"975,58016-0761-90 ",.02)
  1. ;;58016-0761-90
  1. ;;9002226.02101,"975,58016-0765-00 ",.01)
  1. ;;58016-0765-00
  1. ;;9002226.02101,"975,58016-0765-00 ",.02)
  1. ;;58016-0765-00
  1. ;;9002226.02101,"975,58016-0765-30 ",.01)
  1. ;;58016-0765-30
  1. ;;9002226.02101,"975,58016-0765-30 ",.02)
  1. ;;58016-0765-30
  1. ;;9002226.02101,"975,58016-0765-60 ",.01)
  1. ;;58016-0765-60
  1. ;;9002226.02101,"975,58016-0765-60 ",.02)
  1. ;;58016-0765-60
  1. ;;9002226.02101,"975,58016-0765-90 ",.01)
  1. ;;58016-0765-90
  1. ;;9002226.02101,"975,58016-0765-90 ",.02)
  1. ;;58016-0765-90
  1. ;;9002226.02101,"975,58016-0806-00 ",.01)
  1. ;;58016-0806-00
  1. ;;9002226.02101,"975,58016-0806-00 ",.02)
  1. ;;58016-0806-00
  1. ;;9002226.02101,"975,58016-0806-30 ",.01)
  1. ;;58016-0806-30
  1. ;;9002226.02101,"975,58016-0806-30 ",.02)
  1. ;;58016-0806-30
  1. ;;9002226.02101,"975,58016-0806-60 ",.01)
  1. ;;58016-0806-60
  1. ;;9002226.02101,"975,58016-0806-60 ",.02)
  1. ;;58016-0806-60
  1. ;;9002226.02101,"975,58016-0806-90 ",.01)
  1. ;;58016-0806-90
  1. ;;9002226.02101,"975,58016-0806-90 ",.02)
  1. ;;58016-0806-90
  1. ;;9002226.02101,"975,58016-0808-00 ",.01)
  1. ;;58016-0808-00
  1. ;;9002226.02101,"975,58016-0808-00 ",.02)
  1. ;;58016-0808-00
  1. ;;9002226.02101,"975,58016-0808-30 ",.01)
  1. ;;58016-0808-30
  1. ;;9002226.02101,"975,58016-0808-30 ",.02)
  1. ;;58016-0808-30
  1. ;;9002226.02101,"975,58016-0808-60 ",.01)
  1. ;;58016-0808-60
  1. ;;9002226.02101,"975,58016-0808-60 ",.02)
  1. ;;58016-0808-60
  1. ;;9002226.02101,"975,58016-0808-90 ",.01)
  1. ;;58016-0808-90
  1. ;;9002226.02101,"975,58016-0808-90 ",.02)
  1. ;;58016-0808-90
  1. ;;9002226.02101,"975,58016-0813-00 ",.01)
  1. ;;58016-0813-00
  1. ;;9002226.02101,"975,58016-0813-00 ",.02)
  1. ;;58016-0813-00
  1. ;;9002226.02101,"975,58016-0813-02 ",.01)
  1. ;;58016-0813-02
  1. ;;9002226.02101,"975,58016-0813-02 ",.02)
  1. ;;58016-0813-02
  1. ;;9002226.02101,"975,58016-0813-03 ",.01)
  1. ;;58016-0813-03
  1. ;;9002226.02101,"975,58016-0813-03 ",.02)
  1. ;;58016-0813-03
  1. ;;9002226.02101,"975,58016-0813-10 ",.01)
  1. ;;58016-0813-10
  1. ;;9002226.02101,"975,58016-0813-10 ",.02)
  1. ;;58016-0813-10
  1. ;;9002226.02101,"975,58016-0813-12 ",.01)
  1. ;;58016-0813-12
  1. ;;9002226.02101,"975,58016-0813-12 ",.02)
  1. ;;58016-0813-12
  1. ;;9002226.02101,"975,58016-0813-15 ",.01)
  1. ;;58016-0813-15
  1. ;;9002226.02101,"975,58016-0813-15 ",.02)
  1. ;;58016-0813-15
  1. ;;9002226.02101,"975,58016-0813-20 ",.01)
  1. ;;58016-0813-20
  1. ;;9002226.02101,"975,58016-0813-20 ",.02)
  1. ;;58016-0813-20
  1. ;;9002226.02101,"975,58016-0813-24 ",.01)
  1. ;;58016-0813-24
  1. ;;9002226.02101,"975,58016-0813-24 ",.02)
  1. ;;58016-0813-24
  1. ;;9002226.02101,"975,58016-0813-30 ",.01)
  1. ;;58016-0813-30
  1. ;;9002226.02101,"975,58016-0813-30 ",.02)
  1. ;;58016-0813-30
  1. ;;9002226.02101,"975,58016-0813-50 ",.01)
  1. ;;58016-0813-50
  1. ;;9002226.02101,"975,58016-0813-50 ",.02)
  1. ;;58016-0813-50
  1. ;;9002226.02101,"975,58016-0813-60 ",.01)
  1. ;;58016-0813-60
  1. ;;9002226.02101,"975,58016-0813-60 ",.02)
  1. ;;58016-0813-60
  1. ;;9002226.02101,"975,58016-0813-73 ",.01)
  1. ;;58016-0813-73
  1. ;;9002226.02101,"975,58016-0813-73 ",.02)
  1. ;;58016-0813-73
  1. ;;9002226.02101,"975,58016-0813-89 ",.01)
  1. ;;58016-0813-89
  1. ;;9002226.02101,"975,58016-0813-89 ",.02)
  1. ;;58016-0813-89
  1. ;;9002226.02101,"975,58016-0813-90 ",.01)
  1. ;;58016-0813-90
  1. ;;9002226.02101,"975,58016-0813-90 ",.02)
  1. ;;58016-0813-90
  1. ;;9002226.02101,"975,58016-0813-99 ",.01)
  1. ;;58016-0813-99
  1. ;;9002226.02101,"975,58016-0813-99 ",.02)
  1. ;;58016-0813-99
  1. ;;9002226.02101,"975,58016-0814-00 ",.01)
  1. ;;58016-0814-00
  1. ;;9002226.02101,"975,58016-0814-00 ",.02)
  1. ;;58016-0814-00
  1. ;;9002226.02101,"975,58016-0814-02 ",.01)
  1. ;;58016-0814-02
  1. ;;9002226.02101,"975,58016-0814-02 ",.02)
  1. ;;58016-0814-02
  1. ;;9002226.02101,"975,58016-0814-15 ",.01)
  1. ;;58016-0814-15
  1. ;;9002226.02101,"975,58016-0814-15 ",.02)
  1. ;;58016-0814-15
  1. ;;9002226.02101,"975,58016-0814-20 ",.01)
  1. ;;58016-0814-20
  1. ;;9002226.02101,"975,58016-0814-20 ",.02)
  1. ;;58016-0814-20
  1. ;;9002226.02101,"975,58016-0814-25 ",.01)
  1. ;;58016-0814-25
  1. ;;9002226.02101,"975,58016-0814-25 ",.02)
  1. ;;58016-0814-25
  1. ;;9002226.02101,"975,58016-0814-30 ",.01)
  1. ;;58016-0814-30
  1. ;;9002226.02101,"975,58016-0814-30 ",.02)
  1. ;;58016-0814-30