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

BGP82Z23.m

Go to the documentation of this file.
BGP82Z23 ; 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,00440-7026-04 ",.02)
 ;;00440-7026-04
 ;;9002226.02101,"619,00440-7026-06 ",.01)
 ;;00440-7026-06
 ;;9002226.02101,"619,00440-7026-06 ",.02)
 ;;00440-7026-06
 ;;9002226.02101,"619,00440-7026-10 ",.01)
 ;;00440-7026-10
 ;;9002226.02101,"619,00440-7026-10 ",.02)
 ;;00440-7026-10
 ;;9002226.02101,"619,00440-7026-12 ",.01)
 ;;00440-7026-12
 ;;9002226.02101,"619,00440-7026-12 ",.02)
 ;;00440-7026-12
 ;;9002226.02101,"619,00440-7026-15 ",.01)
 ;;00440-7026-15
 ;;9002226.02101,"619,00440-7026-15 ",.02)
 ;;00440-7026-15
 ;;9002226.02101,"619,00440-7026-20 ",.01)
 ;;00440-7026-20
 ;;9002226.02101,"619,00440-7026-20 ",.02)
 ;;00440-7026-20
 ;;9002226.02101,"619,00440-7026-30 ",.01)
 ;;00440-7026-30
 ;;9002226.02101,"619,00440-7026-30 ",.02)
 ;;00440-7026-30
 ;;9002226.02101,"619,00440-7026-40 ",.01)
 ;;00440-7026-40
 ;;9002226.02101,"619,00440-7026-40 ",.02)
 ;;00440-7026-40
 ;;9002226.02101,"619,00440-7026-50 ",.01)
 ;;00440-7026-50
 ;;9002226.02101,"619,00440-7026-50 ",.02)
 ;;00440-7026-50
 ;;9002226.02101,"619,00440-7026-60 ",.01)
 ;;00440-7026-60
 ;;9002226.02101,"619,00440-7026-60 ",.02)
 ;;00440-7026-60
 ;;9002226.02101,"619,00440-7026-81 ",.01)
 ;;00440-7026-81
 ;;9002226.02101,"619,00440-7026-81 ",.02)
 ;;00440-7026-81
 ;;9002226.02101,"619,00440-7026-85 ",.01)
 ;;00440-7026-85
 ;;9002226.02101,"619,00440-7026-85 ",.02)
 ;;00440-7026-85
 ;;9002226.02101,"619,00440-7026-90 ",.01)
 ;;00440-7026-90
 ;;9002226.02101,"619,00440-7026-90 ",.02)
 ;;00440-7026-90
 ;;9002226.02101,"619,00440-7026-91 ",.01)
 ;;00440-7026-91
 ;;9002226.02101,"619,00440-7026-91 ",.02)
 ;;00440-7026-91
 ;;9002226.02101,"619,00440-7211-30 ",.01)
 ;;00440-7211-30
 ;;9002226.02101,"619,00440-7211-30 ",.02)
 ;;00440-7211-30
 ;;9002226.02101,"619,00440-7605-10 ",.01)
 ;;00440-7605-10
 ;;9002226.02101,"619,00440-7605-10 ",.02)
 ;;00440-7605-10
 ;;9002226.02101,"619,00440-7605-20 ",.01)
 ;;00440-7605-20
 ;;9002226.02101,"619,00440-7605-20 ",.02)
 ;;00440-7605-20
 ;;9002226.02101,"619,00440-7605-30 ",.01)
 ;;00440-7605-30
 ;;9002226.02101,"619,00440-7605-30 ",.02)
 ;;00440-7605-30
 ;;9002226.02101,"619,00440-7607-10 ",.01)
 ;;00440-7607-10
 ;;9002226.02101,"619,00440-7607-10 ",.02)
 ;;00440-7607-10
 ;;9002226.02101,"619,00440-7610-10 ",.01)
 ;;00440-7610-10
 ;;9002226.02101,"619,00440-7610-10 ",.02)
 ;;00440-7610-10
 ;;9002226.02101,"619,00440-7611-20 ",.01)
 ;;00440-7611-20
 ;;9002226.02101,"619,00440-7611-20 ",.02)
 ;;00440-7611-20
 ;;9002226.02101,"619,00440-7650-15 ",.01)
 ;;00440-7650-15
 ;;9002226.02101,"619,00440-7650-15 ",.02)
 ;;00440-7650-15
 ;;9002226.02101,"619,00440-8002-04 ",.01)
 ;;00440-8002-04
 ;;9002226.02101,"619,00440-8002-04 ",.02)
 ;;00440-8002-04
 ;;9002226.02101,"619,00440-8002-06 ",.01)
 ;;00440-8002-06
 ;;9002226.02101,"619,00440-8002-06 ",.02)
 ;;00440-8002-06
 ;;9002226.02101,"619,00440-8002-10 ",.01)
 ;;00440-8002-10
 ;;9002226.02101,"619,00440-8002-10 ",.02)
 ;;00440-8002-10
 ;;9002226.02101,"619,00440-8002-12 ",.01)
 ;;00440-8002-12
 ;;9002226.02101,"619,00440-8002-12 ",.02)
 ;;00440-8002-12
 ;;9002226.02101,"619,00440-8002-15 ",.01)
 ;;00440-8002-15
 ;;9002226.02101,"619,00440-8002-15 ",.02)
 ;;00440-8002-15
 ;;9002226.02101,"619,00440-8002-20 ",.01)
 ;;00440-8002-20
 ;;9002226.02101,"619,00440-8002-20 ",.02)
 ;;00440-8002-20
 ;;9002226.02101,"619,00440-8002-30 ",.01)
 ;;00440-8002-30
 ;;9002226.02101,"619,00440-8002-30 ",.02)
 ;;00440-8002-30
 ;;9002226.02101,"619,00440-8002-91 ",.01)
 ;;00440-8002-91
 ;;9002226.02101,"619,00440-8002-91 ",.02)
 ;;00440-8002-91
 ;;9002226.02101,"619,00440-8002-93 ",.01)
 ;;00440-8002-93
 ;;9002226.02101,"619,00440-8002-93 ",.02)
 ;;00440-8002-93
 ;;9002226.02101,"619,00440-8002-94 ",.01)
 ;;00440-8002-94
 ;;9002226.02101,"619,00440-8002-94 ",.02)
 ;;00440-8002-94
 ;;9002226.02101,"619,00440-8570-06 ",.01)
 ;;00440-8570-06
 ;;9002226.02101,"619,00440-8570-06 ",.02)
 ;;00440-8570-06
 ;;9002226.02101,"619,00440-8570-18 ",.01)
 ;;00440-8570-18
 ;;9002226.02101,"619,00440-8570-18 ",.02)
 ;;00440-8570-18
 ;;9002226.02101,"619,00440-8570-20 ",.01)
 ;;00440-8570-20
 ;;9002226.02101,"619,00440-8570-20 ",.02)
 ;;00440-8570-20
 ;;9002226.02101,"619,00440-8570-30 ",.01)
 ;;00440-8570-30
 ;;9002226.02101,"619,00440-8570-30 ",.02)
 ;;00440-8570-30
 ;;9002226.02101,"619,00440-8570-40 ",.01)
 ;;00440-8570-40
 ;;9002226.02101,"619,00440-8570-40 ",.02)
 ;;00440-8570-40
 ;;9002226.02101,"619,00440-8570-60 ",.01)
 ;;00440-8570-60
 ;;9002226.02101,"619,00440-8570-60 ",.02)
 ;;00440-8570-60
 ;;9002226.02101,"619,00440-8570-90 ",.01)
 ;;00440-8570-90
 ;;9002226.02101,"619,00440-8570-90 ",.02)
 ;;00440-8570-90
 ;;9002226.02101,"619,00440-8570-91 ",.01)
 ;;00440-8570-91
 ;;9002226.02101,"619,00440-8570-91 ",.02)
 ;;00440-8570-91
 ;;9002226.02101,"619,00440-8570-92 ",.01)
 ;;00440-8570-92
 ;;9002226.02101,"619,00440-8570-92 ",.02)
 ;;00440-8570-92
 ;;9002226.02101,"619,00440-8570-94 ",.01)
 ;;00440-8570-94
 ;;9002226.02101,"619,00440-8570-94 ",.02)
 ;;00440-8570-94
 ;;9002226.02101,"619,00440-8571-00 ",.01)
 ;;00440-8571-00
 ;;9002226.02101,"619,00440-8571-00 ",.02)
 ;;00440-8571-00
 ;;9002226.02101,"619,00440-8571-05 ",.01)
 ;;00440-8571-05
 ;;9002226.02101,"619,00440-8571-05 ",.02)
 ;;00440-8571-05
 ;;9002226.02101,"619,00440-8571-18 ",.01)
 ;;00440-8571-18
 ;;9002226.02101,"619,00440-8571-18 ",.02)
 ;;00440-8571-18
 ;;9002226.02101,"619,00440-8571-20 ",.01)
 ;;00440-8571-20
 ;;9002226.02101,"619,00440-8571-20 ",.02)
 ;;00440-8571-20
 ;;9002226.02101,"619,00440-8571-30 ",.01)
 ;;00440-8571-30
 ;;9002226.02101,"619,00440-8571-30 ",.02)
 ;;00440-8571-30
 ;;9002226.02101,"619,00440-8571-40 ",.01)
 ;;00440-8571-40
 ;;9002226.02101,"619,00440-8571-40 ",.02)
 ;;00440-8571-40
 ;;9002226.02101,"619,00440-8571-60 ",.01)
 ;;00440-8571-60
 ;;9002226.02101,"619,00440-8571-60 ",.02)
 ;;00440-8571-60
 ;;9002226.02101,"619,00440-8571-81 ",.01)
 ;;00440-8571-81
 ;;9002226.02101,"619,00440-8571-81 ",.02)
 ;;00440-8571-81
 ;;9002226.02101,"619,00440-8571-85 ",.01)
 ;;00440-8571-85
 ;;9002226.02101,"619,00440-8571-85 ",.02)
 ;;00440-8571-85
 ;;9002226.02101,"619,00440-8571-90 ",.01)
 ;;00440-8571-90
 ;;9002226.02101,"619,00440-8571-90 ",.02)
 ;;00440-8571-90
 ;;9002226.02101,"619,00440-8571-91 ",.01)
 ;;00440-8571-91
 ;;9002226.02101,"619,00440-8571-91 ",.02)
 ;;00440-8571-91
 ;;9002226.02101,"619,00440-8572-06 ",.01)
 ;;00440-8572-06
 ;;9002226.02101,"619,00440-8572-06 ",.02)
 ;;00440-8572-06
 ;;9002226.02101,"619,00440-8572-15 ",.01)
 ;;00440-8572-15
 ;;9002226.02101,"619,00440-8572-15 ",.02)
 ;;00440-8572-15
 ;;9002226.02101,"619,00472-1030-16 ",.01)
 ;;00472-1030-16
 ;;9002226.02101,"619,00472-1030-16 ",.02)
 ;;00472-1030-16
 ;;9002226.02101,"619,00472-1627-04 ",.01)
 ;;00472-1627-04
 ;;9002226.02101,"619,00472-1627-04 ",.02)
 ;;00472-1627-04
 ;;9002226.02101,"619,00472-1627-08 ",.01)
 ;;00472-1627-08
 ;;9002226.02101,"619,00472-1627-08 ",.02)
 ;;00472-1627-08
 ;;9002226.02101,"619,00472-1627-16 ",.01)
 ;;00472-1627-16
 ;;9002226.02101,"619,00472-1627-16 ",.02)
 ;;00472-1627-16
 ;;9002226.02101,"619,00486-0771-16 ",.01)
 ;;00486-0771-16
 ;;9002226.02101,"619,00486-0771-16 ",.02)
 ;;00486-0771-16
 ;;9002226.02101,"619,00527-1312-01 ",.01)
 ;;00527-1312-01
 ;;9002226.02101,"619,00527-1312-01 ",.02)
 ;;00527-1312-01
 ;;9002226.02101,"619,00527-1353-01 ",.01)
 ;;00527-1353-01
 ;;9002226.02101,"619,00527-1353-01 ",.02)
 ;;00527-1353-01
 ;;9002226.02101,"619,00527-1354-01 ",.01)
 ;;00527-1354-01
 ;;9002226.02101,"619,00527-1354-01 ",.02)
 ;;00527-1354-01
 ;;9002226.02101,"619,00527-1355-01 ",.01)
 ;;00527-1355-01
 ;;9002226.02101,"619,00527-1355-01 ",.02)
 ;;00527-1355-01
 ;;9002226.02101,"619,00527-1425-35 ",.01)
 ;;00527-1425-35
 ;;9002226.02101,"619,00527-1425-35 ",.02)
 ;;00527-1425-35
 ;;9002226.02101,"619,00527-1425-36 ",.01)
 ;;00527-1425-36
 ;;9002226.02101,"619,00527-1425-36 ",.02)
 ;;00527-1425-36
 ;;9002226.02101,"619,00527-1425-62 ",.01)
 ;;00527-1425-62
 ;;9002226.02101,"619,00527-1425-62 ",.02)
 ;;00527-1425-62
 ;;9002226.02101,"619,00527-1425-63 ",.01)
 ;;00527-1425-63
 ;;9002226.02101,"619,00527-1425-63 ",.02)
 ;;00527-1425-63
 ;;9002226.02101,"619,00527-1426-35 ",.01)
 ;;00527-1426-35
 ;;9002226.02101,"619,00527-1426-35 ",.02)
 ;;00527-1426-35
 ;;9002226.02101,"619,00527-1426-36 ",.01)
 ;;00527-1426-36
 ;;9002226.02101,"619,00527-1426-36 ",.02)
 ;;00527-1426-36
 ;;9002226.02101,"619,00527-1698-01 ",.01)
 ;;00527-1698-01
 ;;9002226.02101,"619,00527-1698-01 ",.02)
 ;;00527-1698-01
 ;;9002226.02101,"619,00527-1698-91 ",.01)
 ;;00527-1698-91
 ;;9002226.02101,"619,00527-1698-91 ",.02)
 ;;00527-1698-91
 ;;9002226.02101,"619,00527-1699-01 ",.01)
 ;;00527-1699-01
 ;;9002226.02101,"619,00527-1699-01 ",.02)
 ;;00527-1699-01
 ;;9002226.02101,"619,00527-1727-91 ",.01)
 ;;00527-1727-91
 ;;9002226.02101,"619,00527-1727-91 ",.02)
 ;;00527-1727-91
 ;;9002226.02101,"619,00527-1774-01 ",.01)
 ;;00527-1774-01
 ;;9002226.02101,"619,00527-1774-01 ",.02)
 ;;00527-1774-01
 ;;9002226.02101,"619,00527-1906-35 ",.01)
 ;;00527-1906-35
 ;;9002226.02101,"619,00527-1906-35 ",.02)
 ;;00527-1906-35
 ;;9002226.02101,"619,00527-1906-36 ",.01)
 ;;00527-1906-36
 ;;9002226.02101,"619,00527-1906-36 ",.02)
 ;;00527-1906-36
 ;;9002226.02101,"619,00527-1906-62 ",.01)
 ;;00527-1906-62
 ;;9002226.02101,"619,00527-1906-62 ",.02)
 ;;00527-1906-62
 ;;9002226.02101,"619,00527-1906-63 ",.01)
 ;;00527-1906-63
 ;;9002226.02101,"619,00527-1906-63 ",.02)
 ;;00527-1906-63
 ;;9002226.02101,"619,00555-0381-02 ",.01)
 ;;00555-0381-02
 ;;9002226.02101,"619,00555-0381-02 ",.02)
 ;;00555-0381-02
 ;;9002226.02101,"619,00555-0382-02 ",.01)
 ;;00555-0382-02
 ;;9002226.02101,"619,00555-0382-02 ",.02)
 ;;00555-0382-02
 ;;9002226.02101,"619,00555-0392-02 ",.01)
 ;;00555-0392-02
 ;;9002226.02101,"619,00555-0392-02 ",.02)
 ;;00555-0392-02
 ;;9002226.02101,"619,00555-0658-02 ",.01)
 ;;00555-0658-02
 ;;9002226.02101,"619,00555-0658-02 ",.02)
 ;;00555-0658-02
 ;;9002226.02101,"619,00555-0778-02 ",.01)
 ;;00555-0778-02
 ;;9002226.02101,"619,00555-0778-02 ",.02)
 ;;00555-0778-02
 ;;9002226.02101,"619,00574-0153-12 ",.01)
 ;;00574-0153-12
 ;;9002226.02101,"619,00574-0153-12 ",.02)
 ;;00574-0153-12
 ;;9002226.02101,"619,00574-0153-30 ",.01)
 ;;00574-0153-30
 ;;9002226.02101,"619,00574-0153-30 ",.02)
 ;;00574-0153-30
 ;;9002226.02101,"619,00574-0293-01 ",.01)
 ;;00574-0293-01
 ;;9002226.02101,"619,00574-0293-01 ",.02)
 ;;00574-0293-01
 ;;9002226.02101,"619,00574-0294-01 ",.01)
 ;;00574-0294-01
 ;;9002226.02101,"619,00574-0294-01 ",.02)
 ;;00574-0294-01
 ;;9002226.02101,"619,00574-0295-01 ",.01)
 ;;00574-0295-01
 ;;9002226.02101,"619,00574-0295-01 ",.02)
 ;;00574-0295-01
 ;;9002226.02101,"619,00574-1103-16 ",.01)
 ;;00574-1103-16
 ;;9002226.02101,"619,00574-1103-16 ",.02)
 ;;00574-1103-16
 ;;9002226.02101,"619,00574-7040-12 ",.01)
 ;;00574-7040-12
 ;;9002226.02101,"619,00574-7040-12 ",.02)
 ;;00574-7040-12
 ;;9002226.02101,"619,00574-7045-12 ",.01)
 ;;00574-7045-12
 ;;9002226.02101,"619,00574-7045-12 ",.02)
 ;;00574-7045-12
 ;;9002226.02101,"619,00574-7110-12 ",.01)
 ;;00574-7110-12
 ;;9002226.02101,"619,00574-7110-12 ",.02)
 ;;00574-7110-12
 ;;9002226.02101,"619,00574-7112-12 ",.01)
 ;;00574-7112-12
 ;;9002226.02101,"619,00574-7112-12 ",.02)
 ;;00574-7112-12
 ;;9002226.02101,"619,00574-7114-12 ",.01)
 ;;00574-7114-12
 ;;9002226.02101,"619,00574-7114-12 ",.02)
 ;;00574-7114-12
 ;;9002226.02101,"619,00574-7116-12 ",.01)
 ;;00574-7116-12
 ;;9002226.02101,"619,00574-7116-12 ",.02)
 ;;00574-7116-12
 ;;9002226.02101,"619,00574-7224-06 ",.01)
 ;;00574-7224-06