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

BGP82Z32.m

Go to the documentation of this file.
BGP82Z32 ; 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,"619,27808-0086-02 ",.02)
 ;;27808-0086-02
 ;;9002226.02101,"619,27808-0087-01 ",.01)
 ;;27808-0087-01
 ;;9002226.02101,"619,27808-0087-01 ",.02)
 ;;27808-0087-01
 ;;9002226.02101,"619,27808-0114-01 ",.01)
 ;;27808-0114-01
 ;;9002226.02101,"619,27808-0114-01 ",.02)
 ;;27808-0114-01
 ;;9002226.02101,"619,27808-0114-02 ",.01)
 ;;27808-0114-02
 ;;9002226.02101,"619,27808-0114-02 ",.02)
 ;;27808-0114-02
 ;;9002226.02101,"619,27808-0115-01 ",.01)
 ;;27808-0115-01
 ;;9002226.02101,"619,27808-0115-01 ",.02)
 ;;27808-0115-01
 ;;9002226.02101,"619,27808-0115-02 ",.01)
 ;;27808-0115-02
 ;;9002226.02101,"619,27808-0115-02 ",.02)
 ;;27808-0115-02
 ;;9002226.02101,"619,27808-0116-01 ",.01)
 ;;27808-0116-01
 ;;9002226.02101,"619,27808-0116-01 ",.02)
 ;;27808-0116-01
 ;;9002226.02101,"619,27808-0116-02 ",.01)
 ;;27808-0116-02
 ;;9002226.02101,"619,27808-0116-02 ",.02)
 ;;27808-0116-02
 ;;9002226.02101,"619,28595-0250-16 ",.01)
 ;;28595-0250-16
 ;;9002226.02101,"619,28595-0250-16 ",.02)
 ;;28595-0250-16
 ;;9002226.02101,"619,30698-0337-01 ",.01)
 ;;30698-0337-01
 ;;9002226.02101,"619,30698-0337-01 ",.02)
 ;;30698-0337-01
 ;;9002226.02101,"619,31722-0191-01 ",.01)
 ;;31722-0191-01
 ;;9002226.02101,"619,31722-0191-01 ",.02)
 ;;31722-0191-01
 ;;9002226.02101,"619,31722-0192-01 ",.01)
 ;;31722-0192-01
 ;;9002226.02101,"619,31722-0192-01 ",.02)
 ;;31722-0192-01
 ;;9002226.02101,"619,31722-0192-05 ",.01)
 ;;31722-0192-05
 ;;9002226.02101,"619,31722-0192-05 ",.02)
 ;;31722-0192-05
 ;;9002226.02101,"619,31722-0193-01 ",.01)
 ;;31722-0193-01
 ;;9002226.02101,"619,31722-0193-01 ",.02)
 ;;31722-0193-01
 ;;9002226.02101,"619,31722-0193-05 ",.01)
 ;;31722-0193-05
 ;;9002226.02101,"619,31722-0193-05 ",.02)
 ;;31722-0193-05
 ;;9002226.02101,"619,31722-0194-01 ",.01)
 ;;31722-0194-01
 ;;9002226.02101,"619,31722-0194-01 ",.02)
 ;;31722-0194-01
 ;;9002226.02101,"619,31722-0194-05 ",.01)
 ;;31722-0194-05
 ;;9002226.02101,"619,31722-0194-05 ",.02)
 ;;31722-0194-05
 ;;9002226.02101,"619,33261-0001-02 ",.01)
 ;;33261-0001-02
 ;;9002226.02101,"619,33261-0001-02 ",.02)
 ;;33261-0001-02
 ;;9002226.02101,"619,33261-0001-03 ",.01)
 ;;33261-0001-03
 ;;9002226.02101,"619,33261-0001-03 ",.02)
 ;;33261-0001-03
 ;;9002226.02101,"619,33261-0001-04 ",.01)
 ;;33261-0001-04
 ;;9002226.02101,"619,33261-0001-04 ",.02)
 ;;33261-0001-04
 ;;9002226.02101,"619,33261-0001-07 ",.01)
 ;;33261-0001-07
 ;;9002226.02101,"619,33261-0001-07 ",.02)
 ;;33261-0001-07
 ;;9002226.02101,"619,33261-0001-10 ",.01)
 ;;33261-0001-10
 ;;9002226.02101,"619,33261-0001-10 ",.02)
 ;;33261-0001-10
 ;;9002226.02101,"619,33261-0001-12 ",.01)
 ;;33261-0001-12
 ;;9002226.02101,"619,33261-0001-12 ",.02)
 ;;33261-0001-12
 ;;9002226.02101,"619,33261-0001-14 ",.01)
 ;;33261-0001-14
 ;;9002226.02101,"619,33261-0001-14 ",.02)
 ;;33261-0001-14
 ;;9002226.02101,"619,33261-0001-15 ",.01)
 ;;33261-0001-15
 ;;9002226.02101,"619,33261-0001-15 ",.02)
 ;;33261-0001-15
 ;;9002226.02101,"619,33261-0001-18 ",.01)
 ;;33261-0001-18
 ;;9002226.02101,"619,33261-0001-18 ",.02)
 ;;33261-0001-18
 ;;9002226.02101,"619,33261-0001-20 ",.01)
 ;;33261-0001-20
 ;;9002226.02101,"619,33261-0001-20 ",.02)
 ;;33261-0001-20
 ;;9002226.02101,"619,33261-0001-21 ",.01)
 ;;33261-0001-21
 ;;9002226.02101,"619,33261-0001-21 ",.02)
 ;;33261-0001-21
 ;;9002226.02101,"619,33261-0001-24 ",.01)
 ;;33261-0001-24
 ;;9002226.02101,"619,33261-0001-24 ",.02)
 ;;33261-0001-24
 ;;9002226.02101,"619,33261-0001-25 ",.01)
 ;;33261-0001-25
 ;;9002226.02101,"619,33261-0001-25 ",.02)
 ;;33261-0001-25
 ;;9002226.02101,"619,33261-0001-28 ",.01)
 ;;33261-0001-28
 ;;9002226.02101,"619,33261-0001-28 ",.02)
 ;;33261-0001-28
 ;;9002226.02101,"619,33261-0001-30 ",.01)
 ;;33261-0001-30
 ;;9002226.02101,"619,33261-0001-30 ",.02)
 ;;33261-0001-30
 ;;9002226.02101,"619,33261-0001-40 ",.01)
 ;;33261-0001-40
 ;;9002226.02101,"619,33261-0001-40 ",.02)
 ;;33261-0001-40
 ;;9002226.02101,"619,33261-0001-42 ",.01)
 ;;33261-0001-42
 ;;9002226.02101,"619,33261-0001-42 ",.02)
 ;;33261-0001-42
 ;;9002226.02101,"619,33261-0001-48 ",.01)
 ;;33261-0001-48
 ;;9002226.02101,"619,33261-0001-48 ",.02)
 ;;33261-0001-48
 ;;9002226.02101,"619,33261-0001-50 ",.01)
 ;;33261-0001-50
 ;;9002226.02101,"619,33261-0001-50 ",.02)
 ;;33261-0001-50
 ;;9002226.02101,"619,33261-0001-60 ",.01)
 ;;33261-0001-60
 ;;9002226.02101,"619,33261-0001-60 ",.02)
 ;;33261-0001-60
 ;;9002226.02101,"619,33261-0001-64 ",.01)
 ;;33261-0001-64
 ;;9002226.02101,"619,33261-0001-64 ",.02)
 ;;33261-0001-64
 ;;9002226.02101,"619,33261-0001-72 ",.01)
 ;;33261-0001-72
 ;;9002226.02101,"619,33261-0001-72 ",.02)
 ;;33261-0001-72
 ;;9002226.02101,"619,33261-0001-84 ",.01)
 ;;33261-0001-84
 ;;9002226.02101,"619,33261-0001-84 ",.02)
 ;;33261-0001-84
 ;;9002226.02101,"619,33261-0001-90 ",.01)
 ;;33261-0001-90
 ;;9002226.02101,"619,33261-0001-90 ",.02)
 ;;33261-0001-90
 ;;9002226.02101,"619,33261-0002-02 ",.01)
 ;;33261-0002-02
 ;;9002226.02101,"619,33261-0002-02 ",.02)
 ;;33261-0002-02
 ;;9002226.02101,"619,33261-0002-08 ",.01)
 ;;33261-0002-08
 ;;9002226.02101,"619,33261-0002-08 ",.02)
 ;;33261-0002-08
 ;;9002226.02101,"619,33261-0002-10 ",.01)
 ;;33261-0002-10
 ;;9002226.02101,"619,33261-0002-10 ",.02)
 ;;33261-0002-10
 ;;9002226.02101,"619,33261-0002-12 ",.01)
 ;;33261-0002-12
 ;;9002226.02101,"619,33261-0002-12 ",.02)
 ;;33261-0002-12
 ;;9002226.02101,"619,33261-0002-14 ",.01)
 ;;33261-0002-14
 ;;9002226.02101,"619,33261-0002-14 ",.02)
 ;;33261-0002-14
 ;;9002226.02101,"619,33261-0002-20 ",.01)
 ;;33261-0002-20
 ;;9002226.02101,"619,33261-0002-20 ",.02)
 ;;33261-0002-20
 ;;9002226.02101,"619,33261-0002-21 ",.01)
 ;;33261-0002-21
 ;;9002226.02101,"619,33261-0002-21 ",.02)
 ;;33261-0002-21
 ;;9002226.02101,"619,33261-0002-28 ",.01)
 ;;33261-0002-28
 ;;9002226.02101,"619,33261-0002-28 ",.02)
 ;;33261-0002-28
 ;;9002226.02101,"619,33261-0002-30 ",.01)
 ;;33261-0002-30
 ;;9002226.02101,"619,33261-0002-30 ",.02)
 ;;33261-0002-30
 ;;9002226.02101,"619,33261-0002-40 ",.01)
 ;;33261-0002-40
 ;;9002226.02101,"619,33261-0002-40 ",.02)
 ;;33261-0002-40
 ;;9002226.02101,"619,33261-0002-42 ",.01)
 ;;33261-0002-42
 ;;9002226.02101,"619,33261-0002-42 ",.02)
 ;;33261-0002-42
 ;;9002226.02101,"619,33261-0002-48 ",.01)
 ;;33261-0002-48
 ;;9002226.02101,"619,33261-0002-48 ",.02)
 ;;33261-0002-48
 ;;9002226.02101,"619,33261-0002-56 ",.01)
 ;;33261-0002-56
 ;;9002226.02101,"619,33261-0002-56 ",.02)
 ;;33261-0002-56
 ;;9002226.02101,"619,33261-0002-60 ",.01)
 ;;33261-0002-60
 ;;9002226.02101,"619,33261-0002-60 ",.02)
 ;;33261-0002-60
 ;;9002226.02101,"619,33261-0002-90 ",.01)
 ;;33261-0002-90
 ;;9002226.02101,"619,33261-0002-90 ",.02)
 ;;33261-0002-90
 ;;9002226.02101,"619,33261-0053-00 ",.01)
 ;;33261-0053-00
 ;;9002226.02101,"619,33261-0053-00 ",.02)
 ;;33261-0053-00
 ;;9002226.02101,"619,33261-0053-02 ",.01)
 ;;33261-0053-02
 ;;9002226.02101,"619,33261-0053-02 ",.02)
 ;;33261-0053-02
 ;;9002226.02101,"619,33261-0053-07 ",.01)
 ;;33261-0053-07
 ;;9002226.02101,"619,33261-0053-07 ",.02)
 ;;33261-0053-07
 ;;9002226.02101,"619,33261-0053-10 ",.01)
 ;;33261-0053-10
 ;;9002226.02101,"619,33261-0053-10 ",.02)
 ;;33261-0053-10
 ;;9002226.02101,"619,33261-0053-12 ",.01)
 ;;33261-0053-12
 ;;9002226.02101,"619,33261-0053-12 ",.02)
 ;;33261-0053-12
 ;;9002226.02101,"619,33261-0053-14 ",.01)
 ;;33261-0053-14
 ;;9002226.02101,"619,33261-0053-14 ",.02)
 ;;33261-0053-14
 ;;9002226.02101,"619,33261-0053-15 ",.01)
 ;;33261-0053-15
 ;;9002226.02101,"619,33261-0053-15 ",.02)
 ;;33261-0053-15
 ;;9002226.02101,"619,33261-0053-16 ",.01)
 ;;33261-0053-16
 ;;9002226.02101,"619,33261-0053-16 ",.02)
 ;;33261-0053-16
 ;;9002226.02101,"619,33261-0053-18 ",.01)
 ;;33261-0053-18
 ;;9002226.02101,"619,33261-0053-18 ",.02)
 ;;33261-0053-18
 ;;9002226.02101,"619,33261-0053-20 ",.01)
 ;;33261-0053-20
 ;;9002226.02101,"619,33261-0053-20 ",.02)
 ;;33261-0053-20
 ;;9002226.02101,"619,33261-0053-21 ",.01)
 ;;33261-0053-21
 ;;9002226.02101,"619,33261-0053-21 ",.02)
 ;;33261-0053-21
 ;;9002226.02101,"619,33261-0053-24 ",.01)
 ;;33261-0053-24
 ;;9002226.02101,"619,33261-0053-24 ",.02)
 ;;33261-0053-24
 ;;9002226.02101,"619,33261-0053-28 ",.01)
 ;;33261-0053-28
 ;;9002226.02101,"619,33261-0053-28 ",.02)
 ;;33261-0053-28
 ;;9002226.02101,"619,33261-0053-30 ",.01)
 ;;33261-0053-30
 ;;9002226.02101,"619,33261-0053-30 ",.02)
 ;;33261-0053-30
 ;;9002226.02101,"619,33261-0053-40 ",.01)
 ;;33261-0053-40
 ;;9002226.02101,"619,33261-0053-40 ",.02)
 ;;33261-0053-40
 ;;9002226.02101,"619,33261-0053-60 ",.01)
 ;;33261-0053-60
 ;;9002226.02101,"619,33261-0053-60 ",.02)
 ;;33261-0053-60
 ;;9002226.02101,"619,33261-0053-90 ",.01)
 ;;33261-0053-90
 ;;9002226.02101,"619,33261-0053-90 ",.02)
 ;;33261-0053-90
 ;;9002226.02101,"619,33261-0055-00 ",.01)
 ;;33261-0055-00
 ;;9002226.02101,"619,33261-0055-00 ",.02)
 ;;33261-0055-00
 ;;9002226.02101,"619,33261-0055-02 ",.01)
 ;;33261-0055-02
 ;;9002226.02101,"619,33261-0055-02 ",.02)
 ;;33261-0055-02
 ;;9002226.02101,"619,33261-0055-07 ",.01)
 ;;33261-0055-07
 ;;9002226.02101,"619,33261-0055-07 ",.02)
 ;;33261-0055-07
 ;;9002226.02101,"619,33261-0055-10 ",.01)
 ;;33261-0055-10
 ;;9002226.02101,"619,33261-0055-10 ",.02)
 ;;33261-0055-10
 ;;9002226.02101,"619,33261-0055-12 ",.01)
 ;;33261-0055-12
 ;;9002226.02101,"619,33261-0055-12 ",.02)
 ;;33261-0055-12
 ;;9002226.02101,"619,33261-0055-14 ",.01)
 ;;33261-0055-14
 ;;9002226.02101,"619,33261-0055-14 ",.02)
 ;;33261-0055-14
 ;;9002226.02101,"619,33261-0055-15 ",.01)
 ;;33261-0055-15
 ;;9002226.02101,"619,33261-0055-15 ",.02)
 ;;33261-0055-15
 ;;9002226.02101,"619,33261-0055-18 ",.01)
 ;;33261-0055-18
 ;;9002226.02101,"619,33261-0055-18 ",.02)
 ;;33261-0055-18
 ;;9002226.02101,"619,33261-0055-20 ",.01)
 ;;33261-0055-20
 ;;9002226.02101,"619,33261-0055-20 ",.02)
 ;;33261-0055-20
 ;;9002226.02101,"619,33261-0055-21 ",.01)
 ;;33261-0055-21
 ;;9002226.02101,"619,33261-0055-21 ",.02)
 ;;33261-0055-21
 ;;9002226.02101,"619,33261-0055-28 ",.01)
 ;;33261-0055-28
 ;;9002226.02101,"619,33261-0055-28 ",.02)
 ;;33261-0055-28
 ;;9002226.02101,"619,33261-0055-30 ",.01)
 ;;33261-0055-30
 ;;9002226.02101,"619,33261-0055-30 ",.02)
 ;;33261-0055-30
 ;;9002226.02101,"619,33261-0055-40 ",.01)
 ;;33261-0055-40
 ;;9002226.02101,"619,33261-0055-40 ",.02)
 ;;33261-0055-40
 ;;9002226.02101,"619,33261-0055-45 ",.01)
 ;;33261-0055-45
 ;;9002226.02101,"619,33261-0055-45 ",.02)
 ;;33261-0055-45
 ;;9002226.02101,"619,33261-0055-60 ",.01)
 ;;33261-0055-60
 ;;9002226.02101,"619,33261-0055-60 ",.02)
 ;;33261-0055-60
 ;;9002226.02101,"619,33261-0055-84 ",.01)
 ;;33261-0055-84
 ;;9002226.02101,"619,33261-0055-84 ",.02)
 ;;33261-0055-84
 ;;9002226.02101,"619,33261-0055-90 ",.01)
 ;;33261-0055-90
 ;;9002226.02101,"619,33261-0055-90 ",.02)
 ;;33261-0055-90
 ;;9002226.02101,"619,33261-0055-97 ",.01)
 ;;33261-0055-97
 ;;9002226.02101,"619,33261-0055-97 ",.02)
 ;;33261-0055-97
 ;;9002226.02101,"619,33261-0058-00 ",.01)
 ;;33261-0058-00
 ;;9002226.02101,"619,33261-0058-00 ",.02)
 ;;33261-0058-00
 ;;9002226.02101,"619,33261-0058-02 ",.01)
 ;;33261-0058-02
 ;;9002226.02101,"619,33261-0058-02 ",.02)
 ;;33261-0058-02
 ;;9002226.02101,"619,33261-0058-03 ",.01)
 ;;33261-0058-03
 ;;9002226.02101,"619,33261-0058-03 ",.02)
 ;;33261-0058-03
 ;;9002226.02101,"619,33261-0058-07 ",.01)
 ;;33261-0058-07
 ;;9002226.02101,"619,33261-0058-07 ",.02)
 ;;33261-0058-07
 ;;9002226.02101,"619,33261-0058-10 ",.01)
 ;;33261-0058-10
 ;;9002226.02101,"619,33261-0058-10 ",.02)
 ;;33261-0058-10
 ;;9002226.02101,"619,33261-0058-12 ",.01)
 ;;33261-0058-12