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

BGP53J43.m

Go to the documentation of this file.
BGP53J43 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON FEB 23, 2015;
 ;;15.1;IHS CLINICAL REPORTING;;MAY 06, 2015;Build 143
 ;
START ;
 K:'$G(ATXPGMC) ^TMP("ATX",$J)
 S ATXPGMC=$G(ATXPGMC)+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
 Q
 ;
TMP ;;TAXONOMY (WITH BULLETIN)
 ;;9002226.02101,"798,58016-0661-90 ",.01)
 ;;58016-0661-90
 ;;9002226.02101,"798,58016-0661-90 ",.02)
 ;;58016-0661-90
 ;;9002226.02101,"798,58016-0663-00 ",.01)
 ;;58016-0663-00
 ;;9002226.02101,"798,58016-0663-00 ",.02)
 ;;58016-0663-00
 ;;9002226.02101,"798,58016-0663-30 ",.01)
 ;;58016-0663-30
 ;;9002226.02101,"798,58016-0663-30 ",.02)
 ;;58016-0663-30
 ;;9002226.02101,"798,58016-0663-60 ",.01)
 ;;58016-0663-60
 ;;9002226.02101,"798,58016-0663-60 ",.02)
 ;;58016-0663-60
 ;;9002226.02101,"798,58016-0663-90 ",.01)
 ;;58016-0663-90
 ;;9002226.02101,"798,58016-0663-90 ",.02)
 ;;58016-0663-90
 ;;9002226.02101,"798,58016-0664-00 ",.01)
 ;;58016-0664-00
 ;;9002226.02101,"798,58016-0664-00 ",.02)
 ;;58016-0664-00
 ;;9002226.02101,"798,58016-0664-30 ",.01)
 ;;58016-0664-30
 ;;9002226.02101,"798,58016-0664-30 ",.02)
 ;;58016-0664-30
 ;;9002226.02101,"798,58016-0664-60 ",.01)
 ;;58016-0664-60
 ;;9002226.02101,"798,58016-0664-60 ",.02)
 ;;58016-0664-60
 ;;9002226.02101,"798,58016-0664-90 ",.01)
 ;;58016-0664-90
 ;;9002226.02101,"798,58016-0664-90 ",.02)
 ;;58016-0664-90
 ;;9002226.02101,"798,58016-0668-00 ",.01)
 ;;58016-0668-00
 ;;9002226.02101,"798,58016-0668-00 ",.02)
 ;;58016-0668-00
 ;;9002226.02101,"798,58016-0668-30 ",.01)
 ;;58016-0668-30
 ;;9002226.02101,"798,58016-0668-30 ",.02)
 ;;58016-0668-30
 ;;9002226.02101,"798,58016-0668-60 ",.01)
 ;;58016-0668-60
 ;;9002226.02101,"798,58016-0668-60 ",.02)
 ;;58016-0668-60
 ;;9002226.02101,"798,58016-0668-90 ",.01)
 ;;58016-0668-90
 ;;9002226.02101,"798,58016-0668-90 ",.02)
 ;;58016-0668-90
 ;;9002226.02101,"798,58016-0671-00 ",.01)
 ;;58016-0671-00
 ;;9002226.02101,"798,58016-0671-00 ",.02)
 ;;58016-0671-00
 ;;9002226.02101,"798,58016-0671-02 ",.01)
 ;;58016-0671-02
 ;;9002226.02101,"798,58016-0671-02 ",.02)
 ;;58016-0671-02
 ;;9002226.02101,"798,58016-0671-03 ",.01)
 ;;58016-0671-03
 ;;9002226.02101,"798,58016-0671-03 ",.02)
 ;;58016-0671-03
 ;;9002226.02101,"798,58016-0671-30 ",.01)
 ;;58016-0671-30
 ;;9002226.02101,"798,58016-0671-30 ",.02)
 ;;58016-0671-30
 ;;9002226.02101,"798,58016-0671-60 ",.01)
 ;;58016-0671-60
 ;;9002226.02101,"798,58016-0671-60 ",.02)
 ;;58016-0671-60
 ;;9002226.02101,"798,58016-0671-90 ",.01)
 ;;58016-0671-90
 ;;9002226.02101,"798,58016-0671-90 ",.02)
 ;;58016-0671-90
 ;;9002226.02101,"798,58016-0701-00 ",.01)
 ;;58016-0701-00
 ;;9002226.02101,"798,58016-0701-00 ",.02)
 ;;58016-0701-00
 ;;9002226.02101,"798,58016-0701-12 ",.01)
 ;;58016-0701-12
 ;;9002226.02101,"798,58016-0701-12 ",.02)
 ;;58016-0701-12
 ;;9002226.02101,"798,58016-0701-15 ",.01)
 ;;58016-0701-15
 ;;9002226.02101,"798,58016-0701-15 ",.02)
 ;;58016-0701-15
 ;;9002226.02101,"798,58016-0701-20 ",.01)
 ;;58016-0701-20
 ;;9002226.02101,"798,58016-0701-20 ",.02)
 ;;58016-0701-20
 ;;9002226.02101,"798,58016-0701-30 ",.01)
 ;;58016-0701-30
 ;;9002226.02101,"798,58016-0701-30 ",.02)
 ;;58016-0701-30
 ;;9002226.02101,"798,58016-0701-50 ",.01)
 ;;58016-0701-50
 ;;9002226.02101,"798,58016-0701-50 ",.02)
 ;;58016-0701-50
 ;;9002226.02101,"798,58016-0701-60 ",.01)
 ;;58016-0701-60
 ;;9002226.02101,"798,58016-0701-60 ",.02)
 ;;58016-0701-60
 ;;9002226.02101,"798,58016-0701-90 ",.01)
 ;;58016-0701-90
 ;;9002226.02101,"798,58016-0701-90 ",.02)
 ;;58016-0701-90
 ;;9002226.02101,"798,58016-0704-00 ",.01)
 ;;58016-0704-00
 ;;9002226.02101,"798,58016-0704-00 ",.02)
 ;;58016-0704-00
 ;;9002226.02101,"798,58016-0704-02 ",.01)
 ;;58016-0704-02
 ;;9002226.02101,"798,58016-0704-02 ",.02)
 ;;58016-0704-02
 ;;9002226.02101,"798,58016-0704-03 ",.01)
 ;;58016-0704-03
 ;;9002226.02101,"798,58016-0704-03 ",.02)
 ;;58016-0704-03
 ;;9002226.02101,"798,58016-0704-30 ",.01)
 ;;58016-0704-30
 ;;9002226.02101,"798,58016-0704-30 ",.02)
 ;;58016-0704-30
 ;;9002226.02101,"798,58016-0704-60 ",.01)
 ;;58016-0704-60
 ;;9002226.02101,"798,58016-0704-60 ",.02)
 ;;58016-0704-60
 ;;9002226.02101,"798,58016-0704-73 ",.01)
 ;;58016-0704-73
 ;;9002226.02101,"798,58016-0704-73 ",.02)
 ;;58016-0704-73
 ;;9002226.02101,"798,58016-0704-89 ",.01)
 ;;58016-0704-89
 ;;9002226.02101,"798,58016-0704-89 ",.02)
 ;;58016-0704-89
 ;;9002226.02101,"798,58016-0704-90 ",.01)
 ;;58016-0704-90
 ;;9002226.02101,"798,58016-0704-90 ",.02)
 ;;58016-0704-90
 ;;9002226.02101,"798,58016-0710-00 ",.01)
 ;;58016-0710-00
 ;;9002226.02101,"798,58016-0710-00 ",.02)
 ;;58016-0710-00
 ;;9002226.02101,"798,58016-0710-30 ",.01)
 ;;58016-0710-30
 ;;9002226.02101,"798,58016-0710-30 ",.02)
 ;;58016-0710-30
 ;;9002226.02101,"798,58016-0710-60 ",.01)
 ;;58016-0710-60
 ;;9002226.02101,"798,58016-0710-60 ",.02)
 ;;58016-0710-60
 ;;9002226.02101,"798,58016-0710-90 ",.01)
 ;;58016-0710-90
 ;;9002226.02101,"798,58016-0710-90 ",.02)
 ;;58016-0710-90
 ;;9002226.02101,"798,58016-0710-99 ",.01)
 ;;58016-0710-99
 ;;9002226.02101,"798,58016-0710-99 ",.02)
 ;;58016-0710-99
 ;;9002226.02101,"798,58016-0722-00 ",.01)
 ;;58016-0722-00
 ;;9002226.02101,"798,58016-0722-00 ",.02)
 ;;58016-0722-00
 ;;9002226.02101,"798,58016-0722-02 ",.01)
 ;;58016-0722-02
 ;;9002226.02101,"798,58016-0722-02 ",.02)
 ;;58016-0722-02
 ;;9002226.02101,"798,58016-0722-03 ",.01)
 ;;58016-0722-03
 ;;9002226.02101,"798,58016-0722-03 ",.02)
 ;;58016-0722-03
 ;;9002226.02101,"798,58016-0722-20 ",.01)
 ;;58016-0722-20
 ;;9002226.02101,"798,58016-0722-20 ",.02)
 ;;58016-0722-20
 ;;9002226.02101,"798,58016-0722-30 ",.01)
 ;;58016-0722-30
 ;;9002226.02101,"798,58016-0722-30 ",.02)
 ;;58016-0722-30
 ;;9002226.02101,"798,58016-0722-40 ",.01)
 ;;58016-0722-40
 ;;9002226.02101,"798,58016-0722-40 ",.02)
 ;;58016-0722-40
 ;;9002226.02101,"798,58016-0722-50 ",.01)
 ;;58016-0722-50
 ;;9002226.02101,"798,58016-0722-50 ",.02)
 ;;58016-0722-50
 ;;9002226.02101,"798,58016-0722-60 ",.01)
 ;;58016-0722-60
 ;;9002226.02101,"798,58016-0722-60 ",.02)
 ;;58016-0722-60
 ;;9002226.02101,"798,58016-0722-70 ",.01)
 ;;58016-0722-70
 ;;9002226.02101,"798,58016-0722-70 ",.02)
 ;;58016-0722-70
 ;;9002226.02101,"798,58016-0722-73 ",.01)
 ;;58016-0722-73
 ;;9002226.02101,"798,58016-0722-73 ",.02)
 ;;58016-0722-73
 ;;9002226.02101,"798,58016-0722-80 ",.01)
 ;;58016-0722-80
 ;;9002226.02101,"798,58016-0722-80 ",.02)
 ;;58016-0722-80
 ;;9002226.02101,"798,58016-0722-89 ",.01)
 ;;58016-0722-89
 ;;9002226.02101,"798,58016-0722-89 ",.02)
 ;;58016-0722-89
 ;;9002226.02101,"798,58016-0722-90 ",.01)
 ;;58016-0722-90
 ;;9002226.02101,"798,58016-0722-90 ",.02)
 ;;58016-0722-90
 ;;9002226.02101,"798,58016-0723-00 ",.01)
 ;;58016-0723-00
 ;;9002226.02101,"798,58016-0723-00 ",.02)
 ;;58016-0723-00
 ;;9002226.02101,"798,58016-0723-30 ",.01)
 ;;58016-0723-30
 ;;9002226.02101,"798,58016-0723-30 ",.02)
 ;;58016-0723-30
 ;;9002226.02101,"798,58016-0723-60 ",.01)
 ;;58016-0723-60
 ;;9002226.02101,"798,58016-0723-60 ",.02)
 ;;58016-0723-60
 ;;9002226.02101,"798,58016-0723-90 ",.01)
 ;;58016-0723-90
 ;;9002226.02101,"798,58016-0723-90 ",.02)
 ;;58016-0723-90
 ;;9002226.02101,"798,58016-0731-00 ",.01)
 ;;58016-0731-00
 ;;9002226.02101,"798,58016-0731-00 ",.02)
 ;;58016-0731-00
 ;;9002226.02101,"798,58016-0731-30 ",.01)
 ;;58016-0731-30
 ;;9002226.02101,"798,58016-0731-30 ",.02)
 ;;58016-0731-30
 ;;9002226.02101,"798,58016-0731-60 ",.01)
 ;;58016-0731-60
 ;;9002226.02101,"798,58016-0731-60 ",.02)
 ;;58016-0731-60
 ;;9002226.02101,"798,58016-0731-90 ",.01)
 ;;58016-0731-90
 ;;9002226.02101,"798,58016-0731-90 ",.02)
 ;;58016-0731-90
 ;;9002226.02101,"798,58016-0732-00 ",.01)
 ;;58016-0732-00
 ;;9002226.02101,"798,58016-0732-00 ",.02)
 ;;58016-0732-00
 ;;9002226.02101,"798,58016-0732-30 ",.01)
 ;;58016-0732-30
 ;;9002226.02101,"798,58016-0732-30 ",.02)
 ;;58016-0732-30
 ;;9002226.02101,"798,58016-0732-60 ",.01)
 ;;58016-0732-60
 ;;9002226.02101,"798,58016-0732-60 ",.02)
 ;;58016-0732-60
 ;;9002226.02101,"798,58016-0732-90 ",.01)
 ;;58016-0732-90
 ;;9002226.02101,"798,58016-0732-90 ",.02)
 ;;58016-0732-90
 ;;9002226.02101,"798,58016-0735-00 ",.01)
 ;;58016-0735-00
 ;;9002226.02101,"798,58016-0735-00 ",.02)
 ;;58016-0735-00
 ;;9002226.02101,"798,58016-0735-30 ",.01)
 ;;58016-0735-30
 ;;9002226.02101,"798,58016-0735-30 ",.02)
 ;;58016-0735-30
 ;;9002226.02101,"798,58016-0735-60 ",.01)
 ;;58016-0735-60
 ;;9002226.02101,"798,58016-0735-60 ",.02)
 ;;58016-0735-60
 ;;9002226.02101,"798,58016-0735-90 ",.01)
 ;;58016-0735-90
 ;;9002226.02101,"798,58016-0735-90 ",.02)
 ;;58016-0735-90
 ;;9002226.02101,"798,58016-0742-00 ",.01)
 ;;58016-0742-00
 ;;9002226.02101,"798,58016-0742-00 ",.02)
 ;;58016-0742-00
 ;;9002226.02101,"798,58016-0742-30 ",.01)
 ;;58016-0742-30
 ;;9002226.02101,"798,58016-0742-30 ",.02)
 ;;58016-0742-30
 ;;9002226.02101,"798,58016-0742-60 ",.01)
 ;;58016-0742-60
 ;;9002226.02101,"798,58016-0742-60 ",.02)
 ;;58016-0742-60
 ;;9002226.02101,"798,58016-0742-90 ",.01)
 ;;58016-0742-90
 ;;9002226.02101,"798,58016-0742-90 ",.02)
 ;;58016-0742-90
 ;;9002226.02101,"798,58016-0749-00 ",.01)
 ;;58016-0749-00
 ;;9002226.02101,"798,58016-0749-00 ",.02)
 ;;58016-0749-00
 ;;9002226.02101,"798,58016-0749-02 ",.01)
 ;;58016-0749-02
 ;;9002226.02101,"798,58016-0749-02 ",.02)
 ;;58016-0749-02
 ;;9002226.02101,"798,58016-0749-30 ",.01)
 ;;58016-0749-30
 ;;9002226.02101,"798,58016-0749-30 ",.02)
 ;;58016-0749-30
 ;;9002226.02101,"798,58016-0749-60 ",.01)
 ;;58016-0749-60
 ;;9002226.02101,"798,58016-0749-60 ",.02)
 ;;58016-0749-60
 ;;9002226.02101,"798,58016-0749-90 ",.01)
 ;;58016-0749-90
 ;;9002226.02101,"798,58016-0749-90 ",.02)
 ;;58016-0749-90
 ;;9002226.02101,"798,58016-0761-00 ",.01)
 ;;58016-0761-00
 ;;9002226.02101,"798,58016-0761-00 ",.02)
 ;;58016-0761-00
 ;;9002226.02101,"798,58016-0761-30 ",.01)
 ;;58016-0761-30
 ;;9002226.02101,"798,58016-0761-30 ",.02)
 ;;58016-0761-30
 ;;9002226.02101,"798,58016-0761-60 ",.01)
 ;;58016-0761-60
 ;;9002226.02101,"798,58016-0761-60 ",.02)
 ;;58016-0761-60
 ;;9002226.02101,"798,58016-0761-90 ",.01)
 ;;58016-0761-90
 ;;9002226.02101,"798,58016-0761-90 ",.02)
 ;;58016-0761-90
 ;;9002226.02101,"798,58016-0765-00 ",.01)
 ;;58016-0765-00
 ;;9002226.02101,"798,58016-0765-00 ",.02)
 ;;58016-0765-00
 ;;9002226.02101,"798,58016-0765-30 ",.01)
 ;;58016-0765-30
 ;;9002226.02101,"798,58016-0765-30 ",.02)
 ;;58016-0765-30
 ;;9002226.02101,"798,58016-0765-60 ",.01)
 ;;58016-0765-60
 ;;9002226.02101,"798,58016-0765-60 ",.02)
 ;;58016-0765-60
 ;;9002226.02101,"798,58016-0765-90 ",.01)
 ;;58016-0765-90
 ;;9002226.02101,"798,58016-0765-90 ",.02)
 ;;58016-0765-90
 ;;9002226.02101,"798,58016-0797-00 ",.01)
 ;;58016-0797-00
 ;;9002226.02101,"798,58016-0797-00 ",.02)
 ;;58016-0797-00
 ;;9002226.02101,"798,58016-0797-30 ",.01)
 ;;58016-0797-30
 ;;9002226.02101,"798,58016-0797-30 ",.02)
 ;;58016-0797-30
 ;;9002226.02101,"798,58016-0797-60 ",.01)
 ;;58016-0797-60
 ;;9002226.02101,"798,58016-0797-60 ",.02)
 ;;58016-0797-60
 ;;9002226.02101,"798,58016-0797-90 ",.01)
 ;;58016-0797-90
 ;;9002226.02101,"798,58016-0797-90 ",.02)
 ;;58016-0797-90
 ;;9002226.02101,"798,58016-0806-00 ",.01)
 ;;58016-0806-00
 ;;9002226.02101,"798,58016-0806-00 ",.02)
 ;;58016-0806-00
 ;;9002226.02101,"798,58016-0806-30 ",.01)
 ;;58016-0806-30
 ;;9002226.02101,"798,58016-0806-30 ",.02)
 ;;58016-0806-30
 ;;9002226.02101,"798,58016-0806-60 ",.01)
 ;;58016-0806-60
 ;;9002226.02101,"798,58016-0806-60 ",.02)
 ;;58016-0806-60
 ;;9002226.02101,"798,58016-0806-90 ",.01)
 ;;58016-0806-90
 ;;9002226.02101,"798,58016-0806-90 ",.02)
 ;;58016-0806-90
 ;;9002226.02101,"798,58016-0808-00 ",.01)
 ;;58016-0808-00
 ;;9002226.02101,"798,58016-0808-00 ",.02)
 ;;58016-0808-00
 ;;9002226.02101,"798,58016-0808-30 ",.01)
 ;;58016-0808-30
 ;;9002226.02101,"798,58016-0808-30 ",.02)
 ;;58016-0808-30
 ;;9002226.02101,"798,58016-0808-60 ",.01)
 ;;58016-0808-60
 ;;9002226.02101,"798,58016-0808-60 ",.02)
 ;;58016-0808-60
 ;;9002226.02101,"798,58016-0808-90 ",.01)
 ;;58016-0808-90
 ;;9002226.02101,"798,58016-0808-90 ",.02)
 ;;58016-0808-90
 ;;9002226.02101,"798,58016-0813-00 ",.01)
 ;;58016-0813-00
 ;;9002226.02101,"798,58016-0813-00 ",.02)
 ;;58016-0813-00
 ;;9002226.02101,"798,58016-0813-02 ",.01)
 ;;58016-0813-02
 ;;9002226.02101,"798,58016-0813-02 ",.02)
 ;;58016-0813-02
 ;;9002226.02101,"798,58016-0813-03 ",.01)
 ;;58016-0813-03
 ;;9002226.02101,"798,58016-0813-03 ",.02)
 ;;58016-0813-03
 ;;9002226.02101,"798,58016-0813-10 ",.01)
 ;;58016-0813-10
 ;;9002226.02101,"798,58016-0813-10 ",.02)
 ;;58016-0813-10
 ;;9002226.02101,"798,58016-0813-12 ",.01)
 ;;58016-0813-12
 ;;9002226.02101,"798,58016-0813-12 ",.02)
 ;;58016-0813-12
 ;;9002226.02101,"798,58016-0813-15 ",.01)
 ;;58016-0813-15
 ;;9002226.02101,"798,58016-0813-15 ",.02)
 ;;58016-0813-15
 ;;9002226.02101,"798,58016-0813-20 ",.01)
 ;;58016-0813-20
 ;;9002226.02101,"798,58016-0813-20 ",.02)
 ;;58016-0813-20
 ;;9002226.02101,"798,58016-0813-24 ",.01)
 ;;58016-0813-24
 ;;9002226.02101,"798,58016-0813-24 ",.02)
 ;;58016-0813-24
 ;;9002226.02101,"798,58016-0813-30 ",.01)
 ;;58016-0813-30
 ;;9002226.02101,"798,58016-0813-30 ",.02)
 ;;58016-0813-30
 ;;9002226.02101,"798,58016-0813-50 ",.01)
 ;;58016-0813-50
 ;;9002226.02101,"798,58016-0813-50 ",.02)
 ;;58016-0813-50
 ;;9002226.02101,"798,58016-0813-60 ",.01)
 ;;58016-0813-60
 ;;9002226.02101,"798,58016-0813-60 ",.02)
 ;;58016-0813-60
 ;;9002226.02101,"798,58016-0813-73 ",.01)
 ;;58016-0813-73
 ;;9002226.02101,"798,58016-0813-73 ",.02)
 ;;58016-0813-73
 ;;9002226.02101,"798,58016-0813-89 ",.01)
 ;;58016-0813-89
 ;;9002226.02101,"798,58016-0813-89 ",.02)
 ;;58016-0813-89