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

BGP82U7.m

Go to the documentation of this file.
BGP82U7 ; 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,"1905,00955-1015-10 ",.01)
 ;;00955-1015-10
 ;;9002226.02101,"1905,00955-1015-10 ",.02)
 ;;00955-1015-10
 ;;9002226.02101,"1905,00955-1016-01 ",.01)
 ;;00955-1016-01
 ;;9002226.02101,"1905,00955-1016-01 ",.02)
 ;;00955-1016-01
 ;;9002226.02101,"1905,16590-0340-30 ",.01)
 ;;16590-0340-30
 ;;9002226.02101,"1905,16590-0340-30 ",.02)
 ;;16590-0340-30
 ;;9002226.02101,"1905,16590-0341-30 ",.01)
 ;;16590-0341-30
 ;;9002226.02101,"1905,16590-0341-30 ",.02)
 ;;16590-0341-30
 ;;9002226.02101,"1905,21695-0672-30 ",.01)
 ;;21695-0672-30
 ;;9002226.02101,"1905,21695-0672-30 ",.02)
 ;;21695-0672-30
 ;;9002226.02101,"1905,21695-0673-30 ",.01)
 ;;21695-0673-30
 ;;9002226.02101,"1905,21695-0673-30 ",.02)
 ;;21695-0673-30
 ;;9002226.02101,"1905,21695-0673-60 ",.01)
 ;;21695-0673-60
 ;;9002226.02101,"1905,21695-0673-60 ",.02)
 ;;21695-0673-60
 ;;9002226.02101,"1905,21695-0674-30 ",.01)
 ;;21695-0674-30
 ;;9002226.02101,"1905,21695-0674-30 ",.02)
 ;;21695-0674-30
 ;;9002226.02101,"1905,21695-0675-30 ",.01)
 ;;21695-0675-30
 ;;9002226.02101,"1905,21695-0675-30 ",.02)
 ;;21695-0675-30
 ;;9002226.02101,"1905,21695-0677-30 ",.01)
 ;;21695-0677-30
 ;;9002226.02101,"1905,21695-0677-30 ",.02)
 ;;21695-0677-30
 ;;9002226.02101,"1905,21695-0801-30 ",.01)
 ;;21695-0801-30
 ;;9002226.02101,"1905,21695-0801-30 ",.02)
 ;;21695-0801-30
 ;;9002226.02101,"1905,21695-0939-30 ",.01)
 ;;21695-0939-30
 ;;9002226.02101,"1905,21695-0939-30 ",.02)
 ;;21695-0939-30
 ;;9002226.02101,"1905,21695-0940-30 ",.01)
 ;;21695-0940-30
 ;;9002226.02101,"1905,21695-0940-30 ",.02)
 ;;21695-0940-30
 ;;9002226.02101,"1905,25021-0400-01 ",.01)
 ;;25021-0400-01
 ;;9002226.02101,"1905,25021-0400-01 ",.02)
 ;;25021-0400-01
 ;;9002226.02101,"1905,25021-0400-10 ",.01)
 ;;25021-0400-10
 ;;9002226.02101,"1905,25021-0400-10 ",.02)
 ;;25021-0400-10
 ;;9002226.02101,"1905,25021-0400-30 ",.01)
 ;;25021-0400-30
 ;;9002226.02101,"1905,25021-0400-30 ",.02)
 ;;25021-0400-30
 ;;9002226.02101,"1905,25021-0400-66 ",.01)
 ;;25021-0400-66
 ;;9002226.02101,"1905,25021-0400-66 ",.02)
 ;;25021-0400-66
 ;;9002226.02101,"1905,25021-0400-67 ",.01)
 ;;25021-0400-67
 ;;9002226.02101,"1905,25021-0400-67 ",.02)
 ;;25021-0400-67
 ;;9002226.02101,"1905,25021-0401-02 ",.01)
 ;;25021-0401-02
 ;;9002226.02101,"1905,25021-0401-02 ",.02)
 ;;25021-0401-02
 ;;9002226.02101,"1905,25021-0402-01 ",.01)
 ;;25021-0402-01
 ;;9002226.02101,"1905,25021-0402-01 ",.02)
 ;;25021-0402-01
 ;;9002226.02101,"1905,25021-0402-10 ",.01)
 ;;25021-0402-10
 ;;9002226.02101,"1905,25021-0402-10 ",.02)
 ;;25021-0402-10
 ;;9002226.02101,"1905,25021-0402-66 ",.01)
 ;;25021-0402-66
 ;;9002226.02101,"1905,25021-0402-66 ",.02)
 ;;25021-0402-66
 ;;9002226.02101,"1905,25021-0403-01 ",.01)
 ;;25021-0403-01
 ;;9002226.02101,"1905,25021-0403-01 ",.02)
 ;;25021-0403-01
 ;;9002226.02101,"1905,25021-0403-04 ",.01)
 ;;25021-0403-04
 ;;9002226.02101,"1905,25021-0403-04 ",.02)
 ;;25021-0403-04
 ;;9002226.02101,"1905,25021-0403-66 ",.01)
 ;;25021-0403-66
 ;;9002226.02101,"1905,25021-0403-66 ",.02)
 ;;25021-0403-66
 ;;9002226.02101,"1905,25021-0404-01 ",.01)
 ;;25021-0404-01
 ;;9002226.02101,"1905,25021-0404-01 ",.02)
 ;;25021-0404-01
 ;;9002226.02101,"1905,31722-0327-01 ",.01)
 ;;31722-0327-01
 ;;9002226.02101,"1905,31722-0327-01 ",.02)
 ;;31722-0327-01
 ;;9002226.02101,"1905,31722-0327-10 ",.01)
 ;;31722-0327-10
 ;;9002226.02101,"1905,31722-0327-10 ",.02)
 ;;31722-0327-10
 ;;9002226.02101,"1905,31722-0328-01 ",.01)
 ;;31722-0328-01
 ;;9002226.02101,"1905,31722-0328-01 ",.02)
 ;;31722-0328-01
 ;;9002226.02101,"1905,31722-0328-10 ",.01)
 ;;31722-0328-10
 ;;9002226.02101,"1905,31722-0328-10 ",.02)
 ;;31722-0328-10
 ;;9002226.02101,"1905,31722-0329-01 ",.01)
 ;;31722-0329-01
 ;;9002226.02101,"1905,31722-0329-01 ",.02)
 ;;31722-0329-01
 ;;9002226.02101,"1905,31722-0329-10 ",.01)
 ;;31722-0329-10
 ;;9002226.02101,"1905,31722-0329-10 ",.02)
 ;;31722-0329-10
 ;;9002226.02101,"1905,31722-0330-01 ",.01)
 ;;31722-0330-01
 ;;9002226.02101,"1905,31722-0330-01 ",.02)
 ;;31722-0330-01
 ;;9002226.02101,"1905,31722-0330-10 ",.01)
 ;;31722-0330-10
 ;;9002226.02101,"1905,31722-0330-10 ",.02)
 ;;31722-0330-10
 ;;9002226.02101,"1905,31722-0331-01 ",.01)
 ;;31722-0331-01
 ;;9002226.02101,"1905,31722-0331-01 ",.02)
 ;;31722-0331-01
 ;;9002226.02101,"1905,31722-0331-10 ",.01)
 ;;31722-0331-10
 ;;9002226.02101,"1905,31722-0331-10 ",.02)
 ;;31722-0331-10
 ;;9002226.02101,"1905,31722-0332-01 ",.01)
 ;;31722-0332-01
 ;;9002226.02101,"1905,31722-0332-01 ",.02)
 ;;31722-0332-01
 ;;9002226.02101,"1905,31722-0332-10 ",.01)
 ;;31722-0332-10
 ;;9002226.02101,"1905,31722-0332-10 ",.02)
 ;;31722-0332-10
 ;;9002226.02101,"1905,31722-0333-01 ",.01)
 ;;31722-0333-01
 ;;9002226.02101,"1905,31722-0333-01 ",.02)
 ;;31722-0333-01
 ;;9002226.02101,"1905,31722-0334-01 ",.01)
 ;;31722-0334-01
 ;;9002226.02101,"1905,31722-0334-01 ",.02)
 ;;31722-0334-01
 ;;9002226.02101,"1905,31722-0335-01 ",.01)
 ;;31722-0335-01
 ;;9002226.02101,"1905,31722-0335-01 ",.02)
 ;;31722-0335-01
 ;;9002226.02101,"1905,33261-0357-07 ",.01)
 ;;33261-0357-07
 ;;9002226.02101,"1905,33261-0357-07 ",.02)
 ;;33261-0357-07
 ;;9002226.02101,"1905,33261-0357-14 ",.01)
 ;;33261-0357-14
 ;;9002226.02101,"1905,33261-0357-14 ",.02)
 ;;33261-0357-14
 ;;9002226.02101,"1905,33261-0357-20 ",.01)
 ;;33261-0357-20
 ;;9002226.02101,"1905,33261-0357-20 ",.02)
 ;;33261-0357-20
 ;;9002226.02101,"1905,33261-0357-21 ",.01)
 ;;33261-0357-21
 ;;9002226.02101,"1905,33261-0357-21 ",.02)
 ;;33261-0357-21
 ;;9002226.02101,"1905,33261-0357-28 ",.01)
 ;;33261-0357-28
 ;;9002226.02101,"1905,33261-0357-28 ",.02)
 ;;33261-0357-28
 ;;9002226.02101,"1905,33261-0357-30 ",.01)
 ;;33261-0357-30
 ;;9002226.02101,"1905,33261-0357-30 ",.02)
 ;;33261-0357-30
 ;;9002226.02101,"1905,33261-0357-60 ",.01)
 ;;33261-0357-60
 ;;9002226.02101,"1905,33261-0357-60 ",.02)
 ;;33261-0357-60
 ;;9002226.02101,"1905,33261-0357-90 ",.01)
 ;;33261-0357-90
 ;;9002226.02101,"1905,33261-0357-90 ",.02)
 ;;33261-0357-90
 ;;9002226.02101,"1905,33261-0613-10 ",.01)
 ;;33261-0613-10
 ;;9002226.02101,"1905,33261-0613-10 ",.02)
 ;;33261-0613-10
 ;;9002226.02101,"1905,33261-0990-00 ",.01)
 ;;33261-0990-00
 ;;9002226.02101,"1905,33261-0990-00 ",.02)
 ;;33261-0990-00
 ;;9002226.02101,"1905,33261-0990-30 ",.01)
 ;;33261-0990-30
 ;;9002226.02101,"1905,33261-0990-30 ",.02)
 ;;33261-0990-30
 ;;9002226.02101,"1905,33261-0990-60 ",.01)
 ;;33261-0990-60
 ;;9002226.02101,"1905,33261-0990-60 ",.02)
 ;;33261-0990-60
 ;;9002226.02101,"1905,33261-0990-90 ",.01)
 ;;33261-0990-90
 ;;9002226.02101,"1905,33261-0990-90 ",.02)
 ;;33261-0990-90
 ;;9002226.02101,"1905,33261-0997-30 ",.01)
 ;;33261-0997-30
 ;;9002226.02101,"1905,33261-0997-30 ",.02)
 ;;33261-0997-30
 ;;9002226.02101,"1905,33261-0997-60 ",.01)
 ;;33261-0997-60
 ;;9002226.02101,"1905,33261-0997-60 ",.02)
 ;;33261-0997-60
 ;;9002226.02101,"1905,33261-0997-90 ",.01)
 ;;33261-0997-90
 ;;9002226.02101,"1905,33261-0997-90 ",.02)
 ;;33261-0997-90
 ;;9002226.02101,"1905,33261-0998-30 ",.01)
 ;;33261-0998-30
 ;;9002226.02101,"1905,33261-0998-30 ",.02)
 ;;33261-0998-30
 ;;9002226.02101,"1905,33261-0998-60 ",.01)
 ;;33261-0998-60
 ;;9002226.02101,"1905,33261-0998-60 ",.02)
 ;;33261-0998-60
 ;;9002226.02101,"1905,33261-0998-90 ",.01)
 ;;33261-0998-90
 ;;9002226.02101,"1905,33261-0998-90 ",.02)
 ;;33261-0998-90
 ;;9002226.02101,"1905,33261-0999-30 ",.01)
 ;;33261-0999-30
 ;;9002226.02101,"1905,33261-0999-30 ",.02)
 ;;33261-0999-30
 ;;9002226.02101,"1905,33358-0360-00 ",.01)
 ;;33358-0360-00
 ;;9002226.02101,"1905,33358-0360-00 ",.02)
 ;;33358-0360-00
 ;;9002226.02101,"1905,33358-0361-30 ",.01)
 ;;33358-0361-30
 ;;9002226.02101,"1905,33358-0361-30 ",.02)
 ;;33358-0361-30
 ;;9002226.02101,"1905,35356-0019-10 ",.01)
 ;;35356-0019-10
 ;;9002226.02101,"1905,35356-0019-10 ",.02)
 ;;35356-0019-10
 ;;9002226.02101,"1905,35356-0020-10 ",.01)
 ;;35356-0020-10
 ;;9002226.02101,"1905,35356-0020-10 ",.02)
 ;;35356-0020-10
 ;;9002226.02101,"1905,35356-0078-10 ",.01)
 ;;35356-0078-10
 ;;9002226.02101,"1905,35356-0078-10 ",.02)
 ;;35356-0078-10
 ;;9002226.02101,"1905,35356-0079-02 ",.01)
 ;;35356-0079-02
 ;;9002226.02101,"1905,35356-0079-02 ",.02)
 ;;35356-0079-02
 ;;9002226.02101,"1905,35356-0079-10 ",.01)
 ;;35356-0079-10
 ;;9002226.02101,"1905,35356-0079-10 ",.02)
 ;;35356-0079-10
 ;;9002226.02101,"1905,35356-0080-02 ",.01)
 ;;35356-0080-02
 ;;9002226.02101,"1905,35356-0080-02 ",.02)
 ;;35356-0080-02
 ;;9002226.02101,"1905,35356-0080-10 ",.01)
 ;;35356-0080-10
 ;;9002226.02101,"1905,35356-0080-10 ",.02)
 ;;35356-0080-10
 ;;9002226.02101,"1905,35356-0081-02 ",.01)
 ;;35356-0081-02
 ;;9002226.02101,"1905,35356-0081-02 ",.02)
 ;;35356-0081-02
 ;;9002226.02101,"1905,35356-0081-10 ",.01)
 ;;35356-0081-10
 ;;9002226.02101,"1905,35356-0081-10 ",.02)
 ;;35356-0081-10
 ;;9002226.02101,"1905,35356-0397-30 ",.01)
 ;;35356-0397-30
 ;;9002226.02101,"1905,35356-0397-30 ",.02)
 ;;35356-0397-30
 ;;9002226.02101,"1905,35356-0397-60 ",.01)
 ;;35356-0397-60
 ;;9002226.02101,"1905,35356-0397-60 ",.02)
 ;;35356-0397-60
 ;;9002226.02101,"1905,35356-0397-90 ",.01)
 ;;35356-0397-90
 ;;9002226.02101,"1905,35356-0397-90 ",.02)
 ;;35356-0397-90
 ;;9002226.02101,"1905,35356-0481-10 ",.01)
 ;;35356-0481-10
 ;;9002226.02101,"1905,35356-0481-10 ",.02)
 ;;35356-0481-10
 ;;9002226.02101,"1905,35356-0540-90 ",.01)
 ;;35356-0540-90
 ;;9002226.02101,"1905,35356-0540-90 ",.02)
 ;;35356-0540-90
 ;;9002226.02101,"1905,35356-0571-30 ",.01)
 ;;35356-0571-30
 ;;9002226.02101,"1905,35356-0571-30 ",.02)
 ;;35356-0571-30
 ;;9002226.02101,"1905,35356-0571-60 ",.01)
 ;;35356-0571-60
 ;;9002226.02101,"1905,35356-0571-60 ",.02)
 ;;35356-0571-60
 ;;9002226.02101,"1905,35356-0571-90 ",.01)
 ;;35356-0571-90
 ;;9002226.02101,"1905,35356-0571-90 ",.02)
 ;;35356-0571-90
 ;;9002226.02101,"1905,35356-0582-30 ",.01)
 ;;35356-0582-30
 ;;9002226.02101,"1905,35356-0582-30 ",.02)
 ;;35356-0582-30
 ;;9002226.02101,"1905,35356-0582-60 ",.01)
 ;;35356-0582-60
 ;;9002226.02101,"1905,35356-0582-60 ",.02)
 ;;35356-0582-60
 ;;9002226.02101,"1905,35356-0582-90 ",.01)
 ;;35356-0582-90
 ;;9002226.02101,"1905,35356-0582-90 ",.02)
 ;;35356-0582-90
 ;;9002226.02101,"1905,35356-0906-30 ",.01)
 ;;35356-0906-30
 ;;9002226.02101,"1905,35356-0906-30 ",.02)
 ;;35356-0906-30
 ;;9002226.02101,"1905,35356-0906-90 ",.01)
 ;;35356-0906-90
 ;;9002226.02101,"1905,35356-0906-90 ",.02)
 ;;35356-0906-90
 ;;9002226.02101,"1905,42549-0496-30 ",.01)
 ;;42549-0496-30
 ;;9002226.02101,"1905,42549-0496-30 ",.02)
 ;;42549-0496-30
 ;;9002226.02101,"1905,42549-0497-30 ",.01)
 ;;42549-0497-30
 ;;9002226.02101,"1905,42549-0497-30 ",.02)
 ;;42549-0497-30
 ;;9002226.02101,"1905,42852-0747-50 ",.01)
 ;;42852-0747-50
 ;;9002226.02101,"1905,42852-0747-50 ",.02)
 ;;42852-0747-50
 ;;9002226.02101,"1905,43063-0176-14 ",.01)
 ;;43063-0176-14
 ;;9002226.02101,"1905,43063-0176-14 ",.02)
 ;;43063-0176-14
 ;;9002226.02101,"1905,43063-0218-30 ",.01)
 ;;43063-0218-30
 ;;9002226.02101,"1905,43063-0218-30 ",.02)
 ;;43063-0218-30
 ;;9002226.02101,"1905,43063-0471-30 ",.01)
 ;;43063-0471-30
 ;;9002226.02101,"1905,43063-0471-30 ",.02)
 ;;43063-0471-30
 ;;9002226.02101,"1905,43063-0655-30 ",.01)
 ;;43063-0655-30
 ;;9002226.02101,"1905,43063-0655-30 ",.02)
 ;;43063-0655-30
 ;;9002226.02101,"1905,43353-0021-30 ",.01)
 ;;43353-0021-30
 ;;9002226.02101,"1905,43353-0021-30 ",.02)
 ;;43353-0021-30
 ;;9002226.02101,"1905,43353-0021-35 ",.01)
 ;;43353-0021-35
 ;;9002226.02101,"1905,43353-0021-35 ",.02)
 ;;43353-0021-35
 ;;9002226.02101,"1905,43353-0021-40 ",.01)
 ;;43353-0021-40