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

BGP83A26.m

Go to the documentation of this file.
BGP83A26 ; IHS/CMI/LAB -CREATED BY ^ATXSTX ON AUG 09, 2017 ;
 ;;18.0;IHS CLINICAL REPORTING;;NOV 21, 2017;Build 51
 ;
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,"1828,52959-0236-15 ",.01)
 ;;52959-0236-15
 ;;9002226.02101,"1828,52959-0236-15 ",.02)
 ;;52959-0236-15
 ;;9002226.02101,"1828,52959-0236-20 ",.01)
 ;;52959-0236-20
 ;;9002226.02101,"1828,52959-0236-20 ",.02)
 ;;52959-0236-20
 ;;9002226.02101,"1828,52959-0236-30 ",.01)
 ;;52959-0236-30
 ;;9002226.02101,"1828,52959-0236-30 ",.02)
 ;;52959-0236-30
 ;;9002226.02101,"1828,52959-0236-60 ",.01)
 ;;52959-0236-60
 ;;9002226.02101,"1828,52959-0236-60 ",.02)
 ;;52959-0236-60
 ;;9002226.02101,"1828,52959-0259-10 ",.01)
 ;;52959-0259-10
 ;;9002226.02101,"1828,52959-0259-10 ",.02)
 ;;52959-0259-10
 ;;9002226.02101,"1828,52959-0259-15 ",.01)
 ;;52959-0259-15
 ;;9002226.02101,"1828,52959-0259-15 ",.02)
 ;;52959-0259-15
 ;;9002226.02101,"1828,52959-0295-02 ",.01)
 ;;52959-0295-02
 ;;9002226.02101,"1828,52959-0295-02 ",.02)
 ;;52959-0295-02
 ;;9002226.02101,"1828,52959-0295-10 ",.01)
 ;;52959-0295-10
 ;;9002226.02101,"1828,52959-0295-10 ",.02)
 ;;52959-0295-10
 ;;9002226.02101,"1828,52959-0295-15 ",.01)
 ;;52959-0295-15
 ;;9002226.02101,"1828,52959-0295-15 ",.02)
 ;;52959-0295-15
 ;;9002226.02101,"1828,52959-0295-30 ",.01)
 ;;52959-0295-30
 ;;9002226.02101,"1828,52959-0295-30 ",.02)
 ;;52959-0295-30
 ;;9002226.02101,"1828,52959-0295-50 ",.01)
 ;;52959-0295-50
 ;;9002226.02101,"1828,52959-0295-50 ",.02)
 ;;52959-0295-50
 ;;9002226.02101,"1828,52959-0306-00 ",.01)
 ;;52959-0306-00
 ;;9002226.02101,"1828,52959-0306-00 ",.02)
 ;;52959-0306-00
 ;;9002226.02101,"1828,52959-0306-02 ",.01)
 ;;52959-0306-02
 ;;9002226.02101,"1828,52959-0306-02 ",.02)
 ;;52959-0306-02
 ;;9002226.02101,"1828,52959-0306-06 ",.01)
 ;;52959-0306-06
 ;;9002226.02101,"1828,52959-0306-06 ",.02)
 ;;52959-0306-06
 ;;9002226.02101,"1828,52959-0306-10 ",.01)
 ;;52959-0306-10
 ;;9002226.02101,"1828,52959-0306-10 ",.02)
 ;;52959-0306-10
 ;;9002226.02101,"1828,52959-0306-15 ",.01)
 ;;52959-0306-15
 ;;9002226.02101,"1828,52959-0306-15 ",.02)
 ;;52959-0306-15
 ;;9002226.02101,"1828,52959-0306-20 ",.01)
 ;;52959-0306-20
 ;;9002226.02101,"1828,52959-0306-20 ",.02)
 ;;52959-0306-20
 ;;9002226.02101,"1828,52959-0306-28 ",.01)
 ;;52959-0306-28
 ;;9002226.02101,"1828,52959-0306-28 ",.02)
 ;;52959-0306-28
 ;;9002226.02101,"1828,52959-0306-30 ",.01)
 ;;52959-0306-30
 ;;9002226.02101,"1828,52959-0306-30 ",.02)
 ;;52959-0306-30
 ;;9002226.02101,"1828,52959-0306-45 ",.01)
 ;;52959-0306-45
 ;;9002226.02101,"1828,52959-0306-45 ",.02)
 ;;52959-0306-45
 ;;9002226.02101,"1828,52959-0306-60 ",.01)
 ;;52959-0306-60
 ;;9002226.02101,"1828,52959-0306-60 ",.02)
 ;;52959-0306-60
 ;;9002226.02101,"1828,52959-0306-90 ",.01)
 ;;52959-0306-90
 ;;9002226.02101,"1828,52959-0306-90 ",.02)
 ;;52959-0306-90
 ;;9002226.02101,"1828,52959-0321-00 ",.01)
 ;;52959-0321-00
 ;;9002226.02101,"1828,52959-0321-00 ",.02)
 ;;52959-0321-00
 ;;9002226.02101,"1828,52959-0321-02 ",.01)
 ;;52959-0321-02
 ;;9002226.02101,"1828,52959-0321-02 ",.02)
 ;;52959-0321-02
 ;;9002226.02101,"1828,52959-0321-10 ",.01)
 ;;52959-0321-10
 ;;9002226.02101,"1828,52959-0321-10 ",.02)
 ;;52959-0321-10
 ;;9002226.02101,"1828,52959-0321-14 ",.01)
 ;;52959-0321-14
 ;;9002226.02101,"1828,52959-0321-14 ",.02)
 ;;52959-0321-14
 ;;9002226.02101,"1828,52959-0321-20 ",.01)
 ;;52959-0321-20
 ;;9002226.02101,"1828,52959-0321-20 ",.02)
 ;;52959-0321-20
 ;;9002226.02101,"1828,52959-0321-30 ",.01)
 ;;52959-0321-30
 ;;9002226.02101,"1828,52959-0321-30 ",.02)
 ;;52959-0321-30
 ;;9002226.02101,"1828,52959-0321-60 ",.01)
 ;;52959-0321-60
 ;;9002226.02101,"1828,52959-0321-60 ",.02)
 ;;52959-0321-60
 ;;9002226.02101,"1828,52959-0321-90 ",.01)
 ;;52959-0321-90
 ;;9002226.02101,"1828,52959-0321-90 ",.02)
 ;;52959-0321-90
 ;;9002226.02101,"1828,52959-0322-30 ",.01)
 ;;52959-0322-30
 ;;9002226.02101,"1828,52959-0322-30 ",.02)
 ;;52959-0322-30
 ;;9002226.02101,"1828,52959-0331-00 ",.01)
 ;;52959-0331-00
 ;;9002226.02101,"1828,52959-0331-00 ",.02)
 ;;52959-0331-00
 ;;9002226.02101,"1828,52959-0331-04 ",.01)
 ;;52959-0331-04
 ;;9002226.02101,"1828,52959-0331-04 ",.02)
 ;;52959-0331-04
 ;;9002226.02101,"1828,52959-0331-05 ",.01)
 ;;52959-0331-05
 ;;9002226.02101,"1828,52959-0331-05 ",.02)
 ;;52959-0331-05
 ;;9002226.02101,"1828,52959-0331-10 ",.01)
 ;;52959-0331-10
 ;;9002226.02101,"1828,52959-0331-10 ",.02)
 ;;52959-0331-10
 ;;9002226.02101,"1828,52959-0331-14 ",.01)
 ;;52959-0331-14
 ;;9002226.02101,"1828,52959-0331-14 ",.02)
 ;;52959-0331-14
 ;;9002226.02101,"1828,52959-0331-15 ",.01)
 ;;52959-0331-15
 ;;9002226.02101,"1828,52959-0331-15 ",.02)
 ;;52959-0331-15
 ;;9002226.02101,"1828,52959-0331-20 ",.01)
 ;;52959-0331-20
 ;;9002226.02101,"1828,52959-0331-20 ",.02)
 ;;52959-0331-20
 ;;9002226.02101,"1828,52959-0331-21 ",.01)
 ;;52959-0331-21
 ;;9002226.02101,"1828,52959-0331-21 ",.02)
 ;;52959-0331-21
 ;;9002226.02101,"1828,52959-0331-30 ",.01)
 ;;52959-0331-30
 ;;9002226.02101,"1828,52959-0331-30 ",.02)
 ;;52959-0331-30
 ;;9002226.02101,"1828,52959-0331-40 ",.01)
 ;;52959-0331-40
 ;;9002226.02101,"1828,52959-0331-40 ",.02)
 ;;52959-0331-40
 ;;9002226.02101,"1828,52959-0331-45 ",.01)
 ;;52959-0331-45
 ;;9002226.02101,"1828,52959-0331-45 ",.02)
 ;;52959-0331-45
 ;;9002226.02101,"1828,52959-0331-60 ",.01)
 ;;52959-0331-60
 ;;9002226.02101,"1828,52959-0331-60 ",.02)
 ;;52959-0331-60
 ;;9002226.02101,"1828,52959-0331-90 ",.01)
 ;;52959-0331-90
 ;;9002226.02101,"1828,52959-0331-90 ",.02)
 ;;52959-0331-90
 ;;9002226.02101,"1828,52959-0365-01 ",.01)
 ;;52959-0365-01
 ;;9002226.02101,"1828,52959-0365-01 ",.02)
 ;;52959-0365-01
 ;;9002226.02101,"1828,52959-0365-05 ",.01)
 ;;52959-0365-05
 ;;9002226.02101,"1828,52959-0365-05 ",.02)
 ;;52959-0365-05
 ;;9002226.02101,"1828,52959-0365-15 ",.01)
 ;;52959-0365-15
 ;;9002226.02101,"1828,52959-0365-15 ",.02)
 ;;52959-0365-15
 ;;9002226.02101,"1828,52959-0365-30 ",.01)
 ;;52959-0365-30
 ;;9002226.02101,"1828,52959-0365-30 ",.02)
 ;;52959-0365-30
 ;;9002226.02101,"1828,52959-0365-60 ",.01)
 ;;52959-0365-60
 ;;9002226.02101,"1828,52959-0365-60 ",.02)
 ;;52959-0365-60
 ;;9002226.02101,"1828,52959-0365-90 ",.01)
 ;;52959-0365-90
 ;;9002226.02101,"1828,52959-0365-90 ",.02)
 ;;52959-0365-90
 ;;9002226.02101,"1828,52959-0369-00 ",.01)
 ;;52959-0369-00
 ;;9002226.02101,"1828,52959-0369-00 ",.02)
 ;;52959-0369-00
 ;;9002226.02101,"1828,52959-0369-06 ",.01)
 ;;52959-0369-06
 ;;9002226.02101,"1828,52959-0369-06 ",.02)
 ;;52959-0369-06
 ;;9002226.02101,"1828,52959-0369-30 ",.01)
 ;;52959-0369-30
 ;;9002226.02101,"1828,52959-0369-30 ",.02)
 ;;52959-0369-30
 ;;9002226.02101,"1828,52959-0369-40 ",.01)
 ;;52959-0369-40
 ;;9002226.02101,"1828,52959-0369-40 ",.02)
 ;;52959-0369-40
 ;;9002226.02101,"1828,52959-0369-60 ",.01)
 ;;52959-0369-60
 ;;9002226.02101,"1828,52959-0369-60 ",.02)
 ;;52959-0369-60
 ;;9002226.02101,"1828,52959-0402-01 ",.01)
 ;;52959-0402-01
 ;;9002226.02101,"1828,52959-0402-01 ",.02)
 ;;52959-0402-01
 ;;9002226.02101,"1828,52959-0402-10 ",.01)
 ;;52959-0402-10
 ;;9002226.02101,"1828,52959-0402-10 ",.02)
 ;;52959-0402-10
 ;;9002226.02101,"1828,52959-0402-30 ",.01)
 ;;52959-0402-30
 ;;9002226.02101,"1828,52959-0402-30 ",.02)
 ;;52959-0402-30
 ;;9002226.02101,"1828,52959-0402-50 ",.01)
 ;;52959-0402-50
 ;;9002226.02101,"1828,52959-0402-50 ",.02)
 ;;52959-0402-50
 ;;9002226.02101,"1828,52959-0402-60 ",.01)
 ;;52959-0402-60
 ;;9002226.02101,"1828,52959-0402-60 ",.02)
 ;;52959-0402-60
 ;;9002226.02101,"1828,52959-0457-00 ",.01)
 ;;52959-0457-00
 ;;9002226.02101,"1828,52959-0457-00 ",.02)
 ;;52959-0457-00
 ;;9002226.02101,"1828,52959-0457-02 ",.01)
 ;;52959-0457-02
 ;;9002226.02101,"1828,52959-0457-02 ",.02)
 ;;52959-0457-02
 ;;9002226.02101,"1828,52959-0457-15 ",.01)
 ;;52959-0457-15
 ;;9002226.02101,"1828,52959-0457-15 ",.02)
 ;;52959-0457-15
 ;;9002226.02101,"1828,52959-0457-20 ",.01)
 ;;52959-0457-20
 ;;9002226.02101,"1828,52959-0457-20 ",.02)
 ;;52959-0457-20
 ;;9002226.02101,"1828,52959-0457-28 ",.01)
 ;;52959-0457-28
 ;;9002226.02101,"1828,52959-0457-28 ",.02)
 ;;52959-0457-28
 ;;9002226.02101,"1828,52959-0457-30 ",.01)
 ;;52959-0457-30
 ;;9002226.02101,"1828,52959-0457-30 ",.02)
 ;;52959-0457-30
 ;;9002226.02101,"1828,52959-0457-42 ",.01)
 ;;52959-0457-42
 ;;9002226.02101,"1828,52959-0457-42 ",.02)
 ;;52959-0457-42
 ;;9002226.02101,"1828,52959-0457-45 ",.01)
 ;;52959-0457-45
 ;;9002226.02101,"1828,52959-0457-45 ",.02)
 ;;52959-0457-45
 ;;9002226.02101,"1828,52959-0457-60 ",.01)
 ;;52959-0457-60
 ;;9002226.02101,"1828,52959-0457-60 ",.02)
 ;;52959-0457-60
 ;;9002226.02101,"1828,52959-0457-90 ",.01)
 ;;52959-0457-90
 ;;9002226.02101,"1828,52959-0457-90 ",.02)
 ;;52959-0457-90
 ;;9002226.02101,"1828,52959-0459-00 ",.01)
 ;;52959-0459-00
 ;;9002226.02101,"1828,52959-0459-00 ",.02)
 ;;52959-0459-00
 ;;9002226.02101,"1828,52959-0459-10 ",.01)
 ;;52959-0459-10
 ;;9002226.02101,"1828,52959-0459-10 ",.02)
 ;;52959-0459-10
 ;;9002226.02101,"1828,52959-0459-12 ",.01)
 ;;52959-0459-12
 ;;9002226.02101,"1828,52959-0459-12 ",.02)
 ;;52959-0459-12
 ;;9002226.02101,"1828,52959-0459-15 ",.01)
 ;;52959-0459-15
 ;;9002226.02101,"1828,52959-0459-15 ",.02)
 ;;52959-0459-15
 ;;9002226.02101,"1828,52959-0459-20 ",.01)
 ;;52959-0459-20
 ;;9002226.02101,"1828,52959-0459-20 ",.02)
 ;;52959-0459-20
 ;;9002226.02101,"1828,52959-0459-30 ",.01)
 ;;52959-0459-30
 ;;9002226.02101,"1828,52959-0459-30 ",.02)
 ;;52959-0459-30
 ;;9002226.02101,"1828,52959-0459-60 ",.01)
 ;;52959-0459-60
 ;;9002226.02101,"1828,52959-0459-60 ",.02)
 ;;52959-0459-60
 ;;9002226.02101,"1828,52959-0524-00 ",.01)
 ;;52959-0524-00
 ;;9002226.02101,"1828,52959-0524-00 ",.02)
 ;;52959-0524-00
 ;;9002226.02101,"1828,52959-0524-02 ",.01)
 ;;52959-0524-02
 ;;9002226.02101,"1828,52959-0524-02 ",.02)
 ;;52959-0524-02
 ;;9002226.02101,"1828,52959-0524-06 ",.01)
 ;;52959-0524-06
 ;;9002226.02101,"1828,52959-0524-06 ",.02)
 ;;52959-0524-06
 ;;9002226.02101,"1828,52959-0524-10 ",.01)
 ;;52959-0524-10
 ;;9002226.02101,"1828,52959-0524-10 ",.02)
 ;;52959-0524-10
 ;;9002226.02101,"1828,52959-0524-14 ",.01)
 ;;52959-0524-14
 ;;9002226.02101,"1828,52959-0524-14 ",.02)
 ;;52959-0524-14
 ;;9002226.02101,"1828,52959-0524-28 ",.01)
 ;;52959-0524-28
 ;;9002226.02101,"1828,52959-0524-28 ",.02)
 ;;52959-0524-28
 ;;9002226.02101,"1828,52959-0524-30 ",.01)
 ;;52959-0524-30
 ;;9002226.02101,"1828,52959-0524-30 ",.02)
 ;;52959-0524-30
 ;;9002226.02101,"1828,52959-0524-60 ",.01)
 ;;52959-0524-60
 ;;9002226.02101,"1828,52959-0524-60 ",.02)
 ;;52959-0524-60
 ;;9002226.02101,"1828,52959-0524-90 ",.01)
 ;;52959-0524-90
 ;;9002226.02101,"1828,52959-0524-90 ",.02)
 ;;52959-0524-90
 ;;9002226.02101,"1828,52959-0535-10 ",.01)
 ;;52959-0535-10
 ;;9002226.02101,"1828,52959-0535-10 ",.02)
 ;;52959-0535-10
 ;;9002226.02101,"1828,52959-0535-12 ",.01)
 ;;52959-0535-12
 ;;9002226.02101,"1828,52959-0535-12 ",.02)
 ;;52959-0535-12
 ;;9002226.02101,"1828,52959-0535-15 ",.01)
 ;;52959-0535-15
 ;;9002226.02101,"1828,52959-0535-15 ",.02)
 ;;52959-0535-15
 ;;9002226.02101,"1828,52959-0535-28 ",.01)
 ;;52959-0535-28
 ;;9002226.02101,"1828,52959-0535-28 ",.02)
 ;;52959-0535-28
 ;;9002226.02101,"1828,52959-0535-30 ",.01)
 ;;52959-0535-30
 ;;9002226.02101,"1828,52959-0535-30 ",.02)
 ;;52959-0535-30
 ;;9002226.02101,"1828,52959-0535-40 ",.01)
 ;;52959-0535-40
 ;;9002226.02101,"1828,52959-0535-40 ",.02)
 ;;52959-0535-40
 ;;9002226.02101,"1828,52959-0535-60 ",.01)
 ;;52959-0535-60
 ;;9002226.02101,"1828,52959-0535-60 ",.02)
 ;;52959-0535-60
 ;;9002226.02101,"1828,52959-0538-00 ",.01)
 ;;52959-0538-00
 ;;9002226.02101,"1828,52959-0538-00 ",.02)
 ;;52959-0538-00
 ;;9002226.02101,"1828,52959-0538-10 ",.01)
 ;;52959-0538-10