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

BGP31P33.m

Go to the documentation of this file.
BGP31P33 ;IHS/CMI/LAB-CREATED BY ^ATXSTX ON AUG 29, 2012;
 ;;13.0;IHS CLINICAL REPORTING;;NOV 20, 2012;Build 81
 ;
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,"730,58016-0089-00 ",.02)
 ;;58016-0089-00
 ;;9002226.02101,"730,58016-0089-30 ",.01)
 ;;58016-0089-30
 ;;9002226.02101,"730,58016-0089-30 ",.02)
 ;;58016-0089-30
 ;;9002226.02101,"730,58016-0089-60 ",.01)
 ;;58016-0089-60
 ;;9002226.02101,"730,58016-0089-60 ",.02)
 ;;58016-0089-60
 ;;9002226.02101,"730,58016-0089-90 ",.01)
 ;;58016-0089-90
 ;;9002226.02101,"730,58016-0089-90 ",.02)
 ;;58016-0089-90
 ;;9002226.02101,"730,58016-0091-00 ",.01)
 ;;58016-0091-00
 ;;9002226.02101,"730,58016-0091-00 ",.02)
 ;;58016-0091-00
 ;;9002226.02101,"730,58016-0091-30 ",.01)
 ;;58016-0091-30
 ;;9002226.02101,"730,58016-0091-30 ",.02)
 ;;58016-0091-30
 ;;9002226.02101,"730,58016-0091-60 ",.01)
 ;;58016-0091-60
 ;;9002226.02101,"730,58016-0091-60 ",.02)
 ;;58016-0091-60
 ;;9002226.02101,"730,58016-0091-90 ",.01)
 ;;58016-0091-90
 ;;9002226.02101,"730,58016-0091-90 ",.02)
 ;;58016-0091-90
 ;;9002226.02101,"730,58016-0092-00 ",.01)
 ;;58016-0092-00
 ;;9002226.02101,"730,58016-0092-00 ",.02)
 ;;58016-0092-00
 ;;9002226.02101,"730,58016-0092-30 ",.01)
 ;;58016-0092-30
 ;;9002226.02101,"730,58016-0092-30 ",.02)
 ;;58016-0092-30
 ;;9002226.02101,"730,58016-0092-60 ",.01)
 ;;58016-0092-60
 ;;9002226.02101,"730,58016-0092-60 ",.02)
 ;;58016-0092-60
 ;;9002226.02101,"730,58016-0092-90 ",.01)
 ;;58016-0092-90
 ;;9002226.02101,"730,58016-0092-90 ",.02)
 ;;58016-0092-90
 ;;9002226.02101,"730,58016-0093-00 ",.01)
 ;;58016-0093-00
 ;;9002226.02101,"730,58016-0093-00 ",.02)
 ;;58016-0093-00
 ;;9002226.02101,"730,58016-0093-30 ",.01)
 ;;58016-0093-30
 ;;9002226.02101,"730,58016-0093-30 ",.02)
 ;;58016-0093-30
 ;;9002226.02101,"730,58016-0093-60 ",.01)
 ;;58016-0093-60
 ;;9002226.02101,"730,58016-0093-60 ",.02)
 ;;58016-0093-60
 ;;9002226.02101,"730,58016-0093-90 ",.01)
 ;;58016-0093-90
 ;;9002226.02101,"730,58016-0093-90 ",.02)
 ;;58016-0093-90
 ;;9002226.02101,"730,58016-0231-00 ",.01)
 ;;58016-0231-00
 ;;9002226.02101,"730,58016-0231-00 ",.02)
 ;;58016-0231-00
 ;;9002226.02101,"730,58016-0233-00 ",.01)
 ;;58016-0233-00
 ;;9002226.02101,"730,58016-0233-00 ",.02)
 ;;58016-0233-00
 ;;9002226.02101,"730,58016-0233-02 ",.01)
 ;;58016-0233-02
 ;;9002226.02101,"730,58016-0233-02 ",.02)
 ;;58016-0233-02
 ;;9002226.02101,"730,58016-0233-10 ",.01)
 ;;58016-0233-10
 ;;9002226.02101,"730,58016-0233-10 ",.02)
 ;;58016-0233-10
 ;;9002226.02101,"730,58016-0233-12 ",.01)
 ;;58016-0233-12
 ;;9002226.02101,"730,58016-0233-12 ",.02)
 ;;58016-0233-12
 ;;9002226.02101,"730,58016-0233-14 ",.01)
 ;;58016-0233-14
 ;;9002226.02101,"730,58016-0233-14 ",.02)
 ;;58016-0233-14
 ;;9002226.02101,"730,58016-0233-15 ",.01)
 ;;58016-0233-15
 ;;9002226.02101,"730,58016-0233-15 ",.02)
 ;;58016-0233-15
 ;;9002226.02101,"730,58016-0233-20 ",.01)
 ;;58016-0233-20
 ;;9002226.02101,"730,58016-0233-20 ",.02)
 ;;58016-0233-20
 ;;9002226.02101,"730,58016-0233-21 ",.01)
 ;;58016-0233-21
 ;;9002226.02101,"730,58016-0233-21 ",.02)
 ;;58016-0233-21
 ;;9002226.02101,"730,58016-0233-24 ",.01)
 ;;58016-0233-24
 ;;9002226.02101,"730,58016-0233-24 ",.02)
 ;;58016-0233-24
 ;;9002226.02101,"730,58016-0233-25 ",.01)
 ;;58016-0233-25
 ;;9002226.02101,"730,58016-0233-25 ",.02)
 ;;58016-0233-25
 ;;9002226.02101,"730,58016-0233-28 ",.01)
 ;;58016-0233-28
 ;;9002226.02101,"730,58016-0233-28 ",.02)
 ;;58016-0233-28
 ;;9002226.02101,"730,58016-0233-30 ",.01)
 ;;58016-0233-30
 ;;9002226.02101,"730,58016-0233-30 ",.02)
 ;;58016-0233-30
 ;;9002226.02101,"730,58016-0233-40 ",.01)
 ;;58016-0233-40
 ;;9002226.02101,"730,58016-0233-40 ",.02)
 ;;58016-0233-40
 ;;9002226.02101,"730,58016-0233-50 ",.01)
 ;;58016-0233-50
 ;;9002226.02101,"730,58016-0233-50 ",.02)
 ;;58016-0233-50
 ;;9002226.02101,"730,58016-0233-60 ",.01)
 ;;58016-0233-60
 ;;9002226.02101,"730,58016-0233-60 ",.02)
 ;;58016-0233-60
 ;;9002226.02101,"730,58016-0233-90 ",.01)
 ;;58016-0233-90
 ;;9002226.02101,"730,58016-0233-90 ",.02)
 ;;58016-0233-90
 ;;9002226.02101,"730,58016-0292-00 ",.01)
 ;;58016-0292-00
 ;;9002226.02101,"730,58016-0292-00 ",.02)
 ;;58016-0292-00
 ;;9002226.02101,"730,58016-0292-30 ",.01)
 ;;58016-0292-30
 ;;9002226.02101,"730,58016-0292-30 ",.02)
 ;;58016-0292-30
 ;;9002226.02101,"730,58016-0292-60 ",.01)
 ;;58016-0292-60
 ;;9002226.02101,"730,58016-0292-60 ",.02)
 ;;58016-0292-60
 ;;9002226.02101,"730,58016-0292-90 ",.01)
 ;;58016-0292-90
 ;;9002226.02101,"730,58016-0292-90 ",.02)
 ;;58016-0292-90
 ;;9002226.02101,"730,58016-0322-00 ",.01)
 ;;58016-0322-00
 ;;9002226.02101,"730,58016-0322-00 ",.02)
 ;;58016-0322-00
 ;;9002226.02101,"730,58016-0322-02 ",.01)
 ;;58016-0322-02
 ;;9002226.02101,"730,58016-0322-02 ",.02)
 ;;58016-0322-02
 ;;9002226.02101,"730,58016-0322-30 ",.01)
 ;;58016-0322-30
 ;;9002226.02101,"730,58016-0322-30 ",.02)
 ;;58016-0322-30
 ;;9002226.02101,"730,58016-0322-60 ",.01)
 ;;58016-0322-60
 ;;9002226.02101,"730,58016-0322-60 ",.02)
 ;;58016-0322-60
 ;;9002226.02101,"730,58016-0322-90 ",.01)
 ;;58016-0322-90
 ;;9002226.02101,"730,58016-0322-90 ",.02)
 ;;58016-0322-90
 ;;9002226.02101,"730,58016-0341-00 ",.01)
 ;;58016-0341-00
 ;;9002226.02101,"730,58016-0341-00 ",.02)
 ;;58016-0341-00
 ;;9002226.02101,"730,58016-0341-10 ",.01)
 ;;58016-0341-10
 ;;9002226.02101,"730,58016-0341-10 ",.02)
 ;;58016-0341-10
 ;;9002226.02101,"730,58016-0341-20 ",.01)
 ;;58016-0341-20
 ;;9002226.02101,"730,58016-0341-20 ",.02)
 ;;58016-0341-20
 ;;9002226.02101,"730,58016-0341-30 ",.01)
 ;;58016-0341-30
 ;;9002226.02101,"730,58016-0341-30 ",.02)
 ;;58016-0341-30
 ;;9002226.02101,"730,58016-0341-40 ",.01)
 ;;58016-0341-40
 ;;9002226.02101,"730,58016-0341-40 ",.02)
 ;;58016-0341-40
 ;;9002226.02101,"730,58016-0341-60 ",.01)
 ;;58016-0341-60
 ;;9002226.02101,"730,58016-0341-60 ",.02)
 ;;58016-0341-60
 ;;9002226.02101,"730,58016-0341-90 ",.01)
 ;;58016-0341-90
 ;;9002226.02101,"730,58016-0341-90 ",.02)
 ;;58016-0341-90
 ;;9002226.02101,"730,58016-0342-00 ",.01)
 ;;58016-0342-00
 ;;9002226.02101,"730,58016-0342-00 ",.02)
 ;;58016-0342-00
 ;;9002226.02101,"730,58016-0342-10 ",.01)
 ;;58016-0342-10
 ;;9002226.02101,"730,58016-0342-10 ",.02)
 ;;58016-0342-10
 ;;9002226.02101,"730,58016-0342-20 ",.01)
 ;;58016-0342-20
 ;;9002226.02101,"730,58016-0342-20 ",.02)
 ;;58016-0342-20
 ;;9002226.02101,"730,58016-0342-30 ",.01)
 ;;58016-0342-30
 ;;9002226.02101,"730,58016-0342-30 ",.02)
 ;;58016-0342-30
 ;;9002226.02101,"730,58016-0342-40 ",.01)
 ;;58016-0342-40
 ;;9002226.02101,"730,58016-0342-40 ",.02)
 ;;58016-0342-40
 ;;9002226.02101,"730,58016-0342-60 ",.01)
 ;;58016-0342-60
 ;;9002226.02101,"730,58016-0342-60 ",.02)
 ;;58016-0342-60
 ;;9002226.02101,"730,58016-0342-90 ",.01)
 ;;58016-0342-90
 ;;9002226.02101,"730,58016-0342-90 ",.02)
 ;;58016-0342-90
 ;;9002226.02101,"730,58016-0493-00 ",.01)
 ;;58016-0493-00
 ;;9002226.02101,"730,58016-0493-00 ",.02)
 ;;58016-0493-00
 ;;9002226.02101,"730,58016-0493-02 ",.01)
 ;;58016-0493-02
 ;;9002226.02101,"730,58016-0493-02 ",.02)
 ;;58016-0493-02
 ;;9002226.02101,"730,58016-0493-30 ",.01)
 ;;58016-0493-30
 ;;9002226.02101,"730,58016-0493-30 ",.02)
 ;;58016-0493-30
 ;;9002226.02101,"730,58016-0493-60 ",.01)
 ;;58016-0493-60
 ;;9002226.02101,"730,58016-0493-60 ",.02)
 ;;58016-0493-60
 ;;9002226.02101,"730,58016-0493-90 ",.01)
 ;;58016-0493-90
 ;;9002226.02101,"730,58016-0493-90 ",.02)
 ;;58016-0493-90
 ;;9002226.02101,"730,58016-0596-00 ",.01)
 ;;58016-0596-00
 ;;9002226.02101,"730,58016-0596-00 ",.02)
 ;;58016-0596-00
 ;;9002226.02101,"730,58016-0596-30 ",.01)
 ;;58016-0596-30
 ;;9002226.02101,"730,58016-0596-30 ",.02)
 ;;58016-0596-30
 ;;9002226.02101,"730,58016-0596-60 ",.01)
 ;;58016-0596-60
 ;;9002226.02101,"730,58016-0596-60 ",.02)
 ;;58016-0596-60
 ;;9002226.02101,"730,58016-0596-90 ",.01)
 ;;58016-0596-90
 ;;9002226.02101,"730,58016-0596-90 ",.02)
 ;;58016-0596-90
 ;;9002226.02101,"730,58016-0663-00 ",.01)
 ;;58016-0663-00
 ;;9002226.02101,"730,58016-0663-00 ",.02)
 ;;58016-0663-00
 ;;9002226.02101,"730,58016-0663-30 ",.01)
 ;;58016-0663-30
 ;;9002226.02101,"730,58016-0663-30 ",.02)
 ;;58016-0663-30
 ;;9002226.02101,"730,58016-0663-60 ",.01)
 ;;58016-0663-60
 ;;9002226.02101,"730,58016-0663-60 ",.02)
 ;;58016-0663-60
 ;;9002226.02101,"730,58016-0663-90 ",.01)
 ;;58016-0663-90
 ;;9002226.02101,"730,58016-0663-90 ",.02)
 ;;58016-0663-90
 ;;9002226.02101,"730,58016-0700-24 ",.01)
 ;;58016-0700-24
 ;;9002226.02101,"730,58016-0700-24 ",.02)
 ;;58016-0700-24
 ;;9002226.02101,"730,58016-0709-00 ",.01)
 ;;58016-0709-00
 ;;9002226.02101,"730,58016-0709-00 ",.02)
 ;;58016-0709-00
 ;;9002226.02101,"730,58016-0709-02 ",.01)
 ;;58016-0709-02
 ;;9002226.02101,"730,58016-0709-02 ",.02)
 ;;58016-0709-02
 ;;9002226.02101,"730,58016-0709-03 ",.01)
 ;;58016-0709-03
 ;;9002226.02101,"730,58016-0709-03 ",.02)
 ;;58016-0709-03
 ;;9002226.02101,"730,58016-0709-20 ",.01)
 ;;58016-0709-20
 ;;9002226.02101,"730,58016-0709-20 ",.02)
 ;;58016-0709-20
 ;;9002226.02101,"730,58016-0709-30 ",.01)
 ;;58016-0709-30
 ;;9002226.02101,"730,58016-0709-30 ",.02)
 ;;58016-0709-30
 ;;9002226.02101,"730,58016-0709-40 ",.01)
 ;;58016-0709-40
 ;;9002226.02101,"730,58016-0709-40 ",.02)
 ;;58016-0709-40
 ;;9002226.02101,"730,58016-0709-42 ",.01)
 ;;58016-0709-42
 ;;9002226.02101,"730,58016-0709-42 ",.02)
 ;;58016-0709-42
 ;;9002226.02101,"730,58016-0709-50 ",.01)
 ;;58016-0709-50
 ;;9002226.02101,"730,58016-0709-50 ",.02)
 ;;58016-0709-50
 ;;9002226.02101,"730,58016-0709-73 ",.01)
 ;;58016-0709-73
 ;;9002226.02101,"730,58016-0709-73 ",.02)
 ;;58016-0709-73
 ;;9002226.02101,"730,58016-0709-89 ",.01)
 ;;58016-0709-89
 ;;9002226.02101,"730,58016-0709-89 ",.02)
 ;;58016-0709-89
 ;;9002226.02101,"730,58016-0710-00 ",.01)
 ;;58016-0710-00
 ;;9002226.02101,"730,58016-0710-00 ",.02)
 ;;58016-0710-00
 ;;9002226.02101,"730,58016-0710-30 ",.01)
 ;;58016-0710-30
 ;;9002226.02101,"730,58016-0710-30 ",.02)
 ;;58016-0710-30
 ;;9002226.02101,"730,58016-0710-60 ",.01)
 ;;58016-0710-60
 ;;9002226.02101,"730,58016-0710-60 ",.02)
 ;;58016-0710-60
 ;;9002226.02101,"730,58016-0710-90 ",.01)
 ;;58016-0710-90
 ;;9002226.02101,"730,58016-0710-90 ",.02)
 ;;58016-0710-90
 ;;9002226.02101,"730,58016-0710-99 ",.01)
 ;;58016-0710-99
 ;;9002226.02101,"730,58016-0710-99 ",.02)
 ;;58016-0710-99
 ;;9002226.02101,"730,58016-0797-00 ",.01)
 ;;58016-0797-00
 ;;9002226.02101,"730,58016-0797-00 ",.02)
 ;;58016-0797-00
 ;;9002226.02101,"730,58016-0797-30 ",.01)
 ;;58016-0797-30
 ;;9002226.02101,"730,58016-0797-30 ",.02)
 ;;58016-0797-30
 ;;9002226.02101,"730,58016-0797-60 ",.01)
 ;;58016-0797-60
 ;;9002226.02101,"730,58016-0797-60 ",.02)
 ;;58016-0797-60
 ;;9002226.02101,"730,58016-0797-90 ",.01)
 ;;58016-0797-90
 ;;9002226.02101,"730,58016-0797-90 ",.02)
 ;;58016-0797-90
 ;;9002226.02101,"730,58016-0808-00 ",.01)
 ;;58016-0808-00
 ;;9002226.02101,"730,58016-0808-00 ",.02)
 ;;58016-0808-00
 ;;9002226.02101,"730,58016-0808-30 ",.01)
 ;;58016-0808-30
 ;;9002226.02101,"730,58016-0808-30 ",.02)
 ;;58016-0808-30
 ;;9002226.02101,"730,58016-0808-60 ",.01)
 ;;58016-0808-60
 ;;9002226.02101,"730,58016-0808-60 ",.02)
 ;;58016-0808-60
 ;;9002226.02101,"730,58016-0808-90 ",.01)
 ;;58016-0808-90
 ;;9002226.02101,"730,58016-0808-90 ",.02)
 ;;58016-0808-90
 ;;9002226.02101,"730,58016-0813-00 ",.01)
 ;;58016-0813-00
 ;;9002226.02101,"730,58016-0813-00 ",.02)
 ;;58016-0813-00
 ;;9002226.02101,"730,58016-0813-02 ",.01)
 ;;58016-0813-02
 ;;9002226.02101,"730,58016-0813-02 ",.02)
 ;;58016-0813-02
 ;;9002226.02101,"730,58016-0813-03 ",.01)
 ;;58016-0813-03
 ;;9002226.02101,"730,58016-0813-03 ",.02)
 ;;58016-0813-03
 ;;9002226.02101,"730,58016-0813-10 ",.01)
 ;;58016-0813-10
 ;;9002226.02101,"730,58016-0813-10 ",.02)
 ;;58016-0813-10
 ;;9002226.02101,"730,58016-0813-12 ",.01)
 ;;58016-0813-12
 ;;9002226.02101,"730,58016-0813-12 ",.02)
 ;;58016-0813-12
 ;;9002226.02101,"730,58016-0813-15 ",.01)
 ;;58016-0813-15
 ;;9002226.02101,"730,58016-0813-15 ",.02)
 ;;58016-0813-15
 ;;9002226.02101,"730,58016-0813-20 ",.01)
 ;;58016-0813-20
 ;;9002226.02101,"730,58016-0813-20 ",.02)
 ;;58016-0813-20
 ;;9002226.02101,"730,58016-0813-24 ",.01)
 ;;58016-0813-24
 ;;9002226.02101,"730,58016-0813-24 ",.02)
 ;;58016-0813-24
 ;;9002226.02101,"730,58016-0813-30 ",.01)
 ;;58016-0813-30
 ;;9002226.02101,"730,58016-0813-30 ",.02)
 ;;58016-0813-30
 ;;9002226.02101,"730,58016-0813-50 ",.01)
 ;;58016-0813-50
 ;;9002226.02101,"730,58016-0813-50 ",.02)
 ;;58016-0813-50
 ;;9002226.02101,"730,58016-0813-60 ",.01)
 ;;58016-0813-60
 ;;9002226.02101,"730,58016-0813-60 ",.02)
 ;;58016-0813-60
 ;;9002226.02101,"730,58016-0813-73 ",.01)
 ;;58016-0813-73
 ;;9002226.02101,"730,58016-0813-73 ",.02)
 ;;58016-0813-73
 ;;9002226.02101,"730,58016-0813-89 ",.01)
 ;;58016-0813-89
 ;;9002226.02101,"730,58016-0813-89 ",.02)
 ;;58016-0813-89
 ;;9002226.02101,"730,58016-0813-90 ",.01)
 ;;58016-0813-90
 ;;9002226.02101,"730,58016-0813-90 ",.02)
 ;;58016-0813-90
 ;;9002226.02101,"730,58016-0813-99 ",.01)
 ;;58016-0813-99
 ;;9002226.02101,"730,58016-0813-99 ",.02)
 ;;58016-0813-99
 ;;9002226.02101,"730,58016-0814-00 ",.01)
 ;;58016-0814-00
 ;;9002226.02101,"730,58016-0814-00 ",.02)
 ;;58016-0814-00
 ;;9002226.02101,"730,58016-0814-02 ",.01)
 ;;58016-0814-02
 ;;9002226.02101,"730,58016-0814-02 ",.02)
 ;;58016-0814-02
 ;;9002226.02101,"730,58016-0814-15 ",.01)
 ;;58016-0814-15
 ;;9002226.02101,"730,58016-0814-15 ",.02)
 ;;58016-0814-15
 ;;9002226.02101,"730,58016-0814-20 ",.01)
 ;;58016-0814-20