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

BGPMBTXQ.m

Go to the documentation of this file.
BGPMBTXQ ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON FEB 11, 2011;
 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
 ;
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,"773,651.3 ",.02)
 ;;651.3
 ;;9002226.02101,"773,651.30 ",.01)
 ;;651.30
 ;;9002226.02101,"773,651.30 ",.02)
 ;;651.30
 ;;9002226.02101,"773,651.31 ",.01)
 ;;651.31
 ;;9002226.02101,"773,651.31 ",.02)
 ;;651.31
 ;;9002226.02101,"773,651.33 ",.01)
 ;;651.33
 ;;9002226.02101,"773,651.33 ",.02)
 ;;651.33
 ;;9002226.02101,"773,651.4 ",.01)
 ;;651.4
 ;;9002226.02101,"773,651.4 ",.02)
 ;;651.4
 ;;9002226.02101,"773,651.40 ",.01)
 ;;651.40
 ;;9002226.02101,"773,651.40 ",.02)
 ;;651.40
 ;;9002226.02101,"773,651.41 ",.01)
 ;;651.41
 ;;9002226.02101,"773,651.41 ",.02)
 ;;651.41
 ;;9002226.02101,"773,651.43 ",.01)
 ;;651.43
 ;;9002226.02101,"773,651.43 ",.02)
 ;;651.43
 ;;9002226.02101,"773,651.5 ",.01)
 ;;651.5
 ;;9002226.02101,"773,651.5 ",.02)
 ;;651.5
 ;;9002226.02101,"773,651.50 ",.01)
 ;;651.50
 ;;9002226.02101,"773,651.50 ",.02)
 ;;651.50
 ;;9002226.02101,"773,651.51 ",.01)
 ;;651.51
 ;;9002226.02101,"773,651.51 ",.02)
 ;;651.51
 ;;9002226.02101,"773,651.53 ",.01)
 ;;651.53
 ;;9002226.02101,"773,651.53 ",.02)
 ;;651.53
 ;;9002226.02101,"773,651.6 ",.01)
 ;;651.6
 ;;9002226.02101,"773,651.6 ",.02)
 ;;651.6
 ;;9002226.02101,"773,651.60 ",.01)
 ;;651.60
 ;;9002226.02101,"773,651.60 ",.02)
 ;;651.60
 ;;9002226.02101,"773,651.61 ",.01)
 ;;651.61
 ;;9002226.02101,"773,651.61 ",.02)
 ;;651.61
 ;;9002226.02101,"773,651.63 ",.01)
 ;;651.63
 ;;9002226.02101,"773,651.63 ",.02)
 ;;651.63
 ;;9002226.02101,"773,651.7 ",.01)
 ;;651.7
 ;;9002226.02101,"773,651.7 ",.02)
 ;;651.7
 ;;9002226.02101,"773,651.70 ",.01)
 ;;651.70
 ;;9002226.02101,"773,651.70 ",.02)
 ;;651.70
 ;;9002226.02101,"773,651.71 ",.01)
 ;;651.71
 ;;9002226.02101,"773,651.71 ",.02)
 ;;651.71
 ;;9002226.02101,"773,651.73 ",.01)
 ;;651.73
 ;;9002226.02101,"773,651.73 ",.02)
 ;;651.73
 ;;9002226.02101,"773,651.8 ",.01)
 ;;651.8
 ;;9002226.02101,"773,651.8 ",.02)
 ;;651.8
 ;;9002226.02101,"773,651.80 ",.01)
 ;;651.80
 ;;9002226.02101,"773,651.80 ",.02)
 ;;651.80
 ;;9002226.02101,"773,651.81 ",.01)
 ;;651.81
 ;;9002226.02101,"773,651.81 ",.02)
 ;;651.81
 ;;9002226.02101,"773,651.83 ",.01)
 ;;651.83
 ;;9002226.02101,"773,651.83 ",.02)
 ;;651.83
 ;;9002226.02101,"773,651.9 ",.01)
 ;;651.9
 ;;9002226.02101,"773,651.9 ",.02)
 ;;651.9
 ;;9002226.02101,"773,651.90 ",.01)
 ;;651.90
 ;;9002226.02101,"773,651.90 ",.02)
 ;;651.90
 ;;9002226.02101,"773,651.91 ",.01)
 ;;651.91
 ;;9002226.02101,"773,651.91 ",.02)
 ;;651.91
 ;;9002226.02101,"773,651.93 ",.01)
 ;;651.93
 ;;9002226.02101,"773,651.93 ",.02)
 ;;651.93
 ;;9002226.02101,"773,652 ",.01)
 ;;652
 ;;9002226.02101,"773,652 ",.02)
 ;;652
 ;;9002226.02101,"773,652.0 ",.01)
 ;;652.0
 ;;9002226.02101,"773,652.0 ",.02)
 ;;652.0
 ;;9002226.02101,"773,652.00 ",.01)
 ;;652.00
 ;;9002226.02101,"773,652.00 ",.02)
 ;;652.00
 ;;9002226.02101,"773,652.01 ",.01)
 ;;652.01
 ;;9002226.02101,"773,652.01 ",.02)
 ;;652.01
 ;;9002226.02101,"773,652.03 ",.01)
 ;;652.03
 ;;9002226.02101,"773,652.03 ",.02)
 ;;652.03
 ;;9002226.02101,"773,652.1 ",.01)
 ;;652.1
 ;;9002226.02101,"773,652.1 ",.02)
 ;;652.1
 ;;9002226.02101,"773,652.10 ",.01)
 ;;652.10
 ;;9002226.02101,"773,652.10 ",.02)
 ;;652.10
 ;;9002226.02101,"773,652.11 ",.01)
 ;;652.11
 ;;9002226.02101,"773,652.11 ",.02)
 ;;652.11
 ;;9002226.02101,"773,652.13 ",.01)
 ;;652.13
 ;;9002226.02101,"773,652.13 ",.02)
 ;;652.13
 ;;9002226.02101,"773,652.2 ",.01)
 ;;652.2
 ;;9002226.02101,"773,652.2 ",.02)
 ;;652.2
 ;;9002226.02101,"773,652.20 ",.01)
 ;;652.20
 ;;9002226.02101,"773,652.20 ",.02)
 ;;652.20
 ;;9002226.02101,"773,652.21 ",.01)
 ;;652.21
 ;;9002226.02101,"773,652.21 ",.02)
 ;;652.21
 ;;9002226.02101,"773,652.23 ",.01)
 ;;652.23
 ;;9002226.02101,"773,652.23 ",.02)
 ;;652.23
 ;;9002226.02101,"773,652.3 ",.01)
 ;;652.3
 ;;9002226.02101,"773,652.3 ",.02)
 ;;652.3
 ;;9002226.02101,"773,652.30 ",.01)
 ;;652.30
 ;;9002226.02101,"773,652.30 ",.02)
 ;;652.30
 ;;9002226.02101,"773,652.31 ",.01)
 ;;652.31
 ;;9002226.02101,"773,652.31 ",.02)
 ;;652.31
 ;;9002226.02101,"773,652.33 ",.01)
 ;;652.33
 ;;9002226.02101,"773,652.33 ",.02)
 ;;652.33
 ;;9002226.02101,"773,652.4 ",.01)
 ;;652.4
 ;;9002226.02101,"773,652.4 ",.02)
 ;;652.4
 ;;9002226.02101,"773,652.40 ",.01)
 ;;652.40
 ;;9002226.02101,"773,652.40 ",.02)
 ;;652.40
 ;;9002226.02101,"773,652.41 ",.01)
 ;;652.41
 ;;9002226.02101,"773,652.41 ",.02)
 ;;652.41
 ;;9002226.02101,"773,652.43 ",.01)
 ;;652.43
 ;;9002226.02101,"773,652.43 ",.02)
 ;;652.43
 ;;9002226.02101,"773,652.5 ",.01)
 ;;652.5
 ;;9002226.02101,"773,652.5 ",.02)
 ;;652.5
 ;;9002226.02101,"773,652.50 ",.01)
 ;;652.50
 ;;9002226.02101,"773,652.50 ",.02)
 ;;652.50
 ;;9002226.02101,"773,652.51 ",.01)
 ;;652.51
 ;;9002226.02101,"773,652.51 ",.02)
 ;;652.51
 ;;9002226.02101,"773,652.53 ",.01)
 ;;652.53
 ;;9002226.02101,"773,652.53 ",.02)
 ;;652.53
 ;;9002226.02101,"773,652.6 ",.01)
 ;;652.6
 ;;9002226.02101,"773,652.6 ",.02)
 ;;652.6
 ;;9002226.02101,"773,652.60 ",.01)
 ;;652.60
 ;;9002226.02101,"773,652.60 ",.02)
 ;;652.60
 ;;9002226.02101,"773,652.61 ",.01)
 ;;652.61
 ;;9002226.02101,"773,652.61 ",.02)
 ;;652.61
 ;;9002226.02101,"773,652.63 ",.01)
 ;;652.63
 ;;9002226.02101,"773,652.63 ",.02)
 ;;652.63
 ;;9002226.02101,"773,652.7 ",.01)
 ;;652.7
 ;;9002226.02101,"773,652.7 ",.02)
 ;;652.7
 ;;9002226.02101,"773,652.70 ",.01)
 ;;652.70
 ;;9002226.02101,"773,652.70 ",.02)
 ;;652.70
 ;;9002226.02101,"773,652.71 ",.01)
 ;;652.71
 ;;9002226.02101,"773,652.71 ",.02)
 ;;652.71
 ;;9002226.02101,"773,652.73 ",.01)
 ;;652.73
 ;;9002226.02101,"773,652.73 ",.02)
 ;;652.73
 ;;9002226.02101,"773,652.8 ",.01)
 ;;652.8
 ;;9002226.02101,"773,652.8 ",.02)
 ;;652.8
 ;;9002226.02101,"773,652.80 ",.01)
 ;;652.80
 ;;9002226.02101,"773,652.80 ",.02)
 ;;652.80
 ;;9002226.02101,"773,652.81 ",.01)
 ;;652.81
 ;;9002226.02101,"773,652.81 ",.02)
 ;;652.81
 ;;9002226.02101,"773,652.83 ",.01)
 ;;652.83
 ;;9002226.02101,"773,652.83 ",.02)
 ;;652.83
 ;;9002226.02101,"773,652.9 ",.01)
 ;;652.9
 ;;9002226.02101,"773,652.9 ",.02)
 ;;652.9
 ;;9002226.02101,"773,652.90 ",.01)
 ;;652.90
 ;;9002226.02101,"773,652.90 ",.02)
 ;;652.90
 ;;9002226.02101,"773,652.91 ",.01)
 ;;652.91
 ;;9002226.02101,"773,652.91 ",.02)
 ;;652.91
 ;;9002226.02101,"773,652.93 ",.01)
 ;;652.93
 ;;9002226.02101,"773,652.93 ",.02)
 ;;652.93
 ;;9002226.02101,"773,653 ",.01)
 ;;653
 ;;9002226.02101,"773,653 ",.02)
 ;;653
 ;;9002226.02101,"773,653.0 ",.01)
 ;;653.0
 ;;9002226.02101,"773,653.0 ",.02)
 ;;653.0
 ;;9002226.02101,"773,653.00 ",.01)
 ;;653.00
 ;;9002226.02101,"773,653.00 ",.02)
 ;;653.00
 ;;9002226.02101,"773,653.01 ",.01)
 ;;653.01
 ;;9002226.02101,"773,653.01 ",.02)
 ;;653.01
 ;;9002226.02101,"773,653.03 ",.01)
 ;;653.03
 ;;9002226.02101,"773,653.03 ",.02)
 ;;653.03
 ;;9002226.02101,"773,653.1 ",.01)
 ;;653.1
 ;;9002226.02101,"773,653.1 ",.02)
 ;;653.1
 ;;9002226.02101,"773,653.10 ",.01)
 ;;653.10
 ;;9002226.02101,"773,653.10 ",.02)
 ;;653.10
 ;;9002226.02101,"773,653.11 ",.01)
 ;;653.11
 ;;9002226.02101,"773,653.11 ",.02)
 ;;653.11
 ;;9002226.02101,"773,653.13 ",.01)
 ;;653.13
 ;;9002226.02101,"773,653.13 ",.02)
 ;;653.13
 ;;9002226.02101,"773,653.2 ",.01)
 ;;653.2
 ;;9002226.02101,"773,653.2 ",.02)
 ;;653.2
 ;;9002226.02101,"773,653.20 ",.01)
 ;;653.20
 ;;9002226.02101,"773,653.20 ",.02)
 ;;653.20
 ;;9002226.02101,"773,653.21 ",.01)
 ;;653.21
 ;;9002226.02101,"773,653.21 ",.02)
 ;;653.21
 ;;9002226.02101,"773,653.23 ",.01)
 ;;653.23
 ;;9002226.02101,"773,653.23 ",.02)
 ;;653.23
 ;;9002226.02101,"773,653.3 ",.01)
 ;;653.3
 ;;9002226.02101,"773,653.3 ",.02)
 ;;653.3
 ;;9002226.02101,"773,653.30 ",.01)
 ;;653.30
 ;;9002226.02101,"773,653.30 ",.02)
 ;;653.30
 ;;9002226.02101,"773,653.31 ",.01)
 ;;653.31
 ;;9002226.02101,"773,653.31 ",.02)
 ;;653.31
 ;;9002226.02101,"773,653.33 ",.01)
 ;;653.33
 ;;9002226.02101,"773,653.33 ",.02)
 ;;653.33
 ;;9002226.02101,"773,653.4 ",.01)
 ;;653.4
 ;;9002226.02101,"773,653.4 ",.02)
 ;;653.4
 ;;9002226.02101,"773,653.40 ",.01)
 ;;653.40
 ;;9002226.02101,"773,653.40 ",.02)
 ;;653.40
 ;;9002226.02101,"773,653.41 ",.01)
 ;;653.41
 ;;9002226.02101,"773,653.41 ",.02)
 ;;653.41
 ;;9002226.02101,"773,653.43 ",.01)
 ;;653.43
 ;;9002226.02101,"773,653.43 ",.02)
 ;;653.43
 ;;9002226.02101,"773,653.5 ",.01)
 ;;653.5
 ;;9002226.02101,"773,653.5 ",.02)
 ;;653.5
 ;;9002226.02101,"773,653.50 ",.01)
 ;;653.50
 ;;9002226.02101,"773,653.50 ",.02)
 ;;653.50
 ;;9002226.02101,"773,653.51 ",.01)
 ;;653.51
 ;;9002226.02101,"773,653.51 ",.02)
 ;;653.51
 ;;9002226.02101,"773,653.53 ",.01)
 ;;653.53
 ;;9002226.02101,"773,653.53 ",.02)
 ;;653.53
 ;;9002226.02101,"773,653.6 ",.01)
 ;;653.6
 ;;9002226.02101,"773,653.6 ",.02)
 ;;653.6
 ;;9002226.02101,"773,653.60 ",.01)
 ;;653.60
 ;;9002226.02101,"773,653.60 ",.02)
 ;;653.60
 ;;9002226.02101,"773,653.61 ",.01)
 ;;653.61
 ;;9002226.02101,"773,653.61 ",.02)
 ;;653.61
 ;;9002226.02101,"773,653.63 ",.01)
 ;;653.63
 ;;9002226.02101,"773,653.63 ",.02)
 ;;653.63
 ;;9002226.02101,"773,653.7 ",.01)
 ;;653.7
 ;;9002226.02101,"773,653.7 ",.02)
 ;;653.7
 ;;9002226.02101,"773,653.70 ",.01)
 ;;653.70
 ;;9002226.02101,"773,653.70 ",.02)
 ;;653.70
 ;;9002226.02101,"773,653.71 ",.01)
 ;;653.71
 ;;9002226.02101,"773,653.71 ",.02)
 ;;653.71
 ;;9002226.02101,"773,653.73 ",.01)
 ;;653.73
 ;;9002226.02101,"773,653.73 ",.02)
 ;;653.73
 ;;9002226.02101,"773,653.8 ",.01)
 ;;653.8
 ;;9002226.02101,"773,653.8 ",.02)
 ;;653.8
 ;;9002226.02101,"773,653.80 ",.01)
 ;;653.80
 ;;9002226.02101,"773,653.80 ",.02)
 ;;653.80
 ;;9002226.02101,"773,653.81 ",.01)
 ;;653.81
 ;;9002226.02101,"773,653.81 ",.02)
 ;;653.81
 ;;9002226.02101,"773,653.83 ",.01)
 ;;653.83
 ;;9002226.02101,"773,653.83 ",.02)
 ;;653.83
 ;;9002226.02101,"773,653.9 ",.01)
 ;;653.9
 ;;9002226.02101,"773,653.9 ",.02)
 ;;653.9
 ;;9002226.02101,"773,653.90 ",.01)
 ;;653.90
 ;;9002226.02101,"773,653.90 ",.02)
 ;;653.90
 ;;9002226.02101,"773,653.91 ",.01)
 ;;653.91
 ;;9002226.02101,"773,653.91 ",.02)
 ;;653.91
 ;;9002226.02101,"773,653.93 ",.01)
 ;;653.93
 ;;9002226.02101,"773,653.93 ",.02)
 ;;653.93
 ;;9002226.02101,"773,654 ",.01)
 ;;654
 ;;9002226.02101,"773,654 ",.02)
 ;;654
 ;;9002226.02101,"773,654.0 ",.01)
 ;;654.0
 ;;9002226.02101,"773,654.0 ",.02)
 ;;654.0
 ;;9002226.02101,"773,654.00 ",.01)
 ;;654.00
 ;;9002226.02101,"773,654.00 ",.02)
 ;;654.00
 ;;9002226.02101,"773,654.01 ",.01)
 ;;654.01
 ;;9002226.02101,"773,654.01 ",.02)
 ;;654.01
 ;;9002226.02101,"773,654.02 ",.01)
 ;;654.02
 ;;9002226.02101,"773,654.02 ",.02)
 ;;654.02
 ;;9002226.02101,"773,654.03 ",.01)
 ;;654.03
 ;;9002226.02101,"773,654.03 ",.02)
 ;;654.03
 ;;9002226.02101,"773,654.04 ",.01)
 ;;654.04
 ;;9002226.02101,"773,654.04 ",.02)
 ;;654.04
 ;;9002226.02101,"773,654.1 ",.01)
 ;;654.1
 ;;9002226.02101,"773,654.1 ",.02)
 ;;654.1
 ;;9002226.02101,"773,654.10 ",.01)
 ;;654.10
 ;;9002226.02101,"773,654.10 ",.02)
 ;;654.10
 ;;9002226.02101,"773,654.11 ",.01)
 ;;654.11
 ;;9002226.02101,"773,654.11 ",.02)
 ;;654.11
 ;;9002226.02101,"773,654.12 ",.01)
 ;;654.12
 ;;9002226.02101,"773,654.12 ",.02)
 ;;654.12
 ;;9002226.02101,"773,654.13 ",.01)
 ;;654.13
 ;;9002226.02101,"773,654.13 ",.02)
 ;;654.13
 ;;9002226.02101,"773,654.14 ",.01)
 ;;654.14
 ;;9002226.02101,"773,654.14 ",.02)
 ;;654.14
 ;;9002226.02101,"773,654.2 ",.01)
 ;;654.2
 ;;9002226.02101,"773,654.2 ",.02)
 ;;654.2
 ;;9002226.02101,"773,654.20 ",.01)
 ;;654.20
 ;;9002226.02101,"773,654.20 ",.02)
 ;;654.20
 ;;9002226.02101,"773,654.21 ",.01)
 ;;654.21
 ;;9002226.02101,"773,654.21 ",.02)
 ;;654.21
 ;;9002226.02101,"773,654.23 ",.01)
 ;;654.23
 ;;9002226.02101,"773,654.23 ",.02)
 ;;654.23
 ;;9002226.02101,"773,654.3 ",.01)
 ;;654.3
 ;;9002226.02101,"773,654.3 ",.02)
 ;;654.3
 ;;9002226.02101,"773,654.30 ",.01)
 ;;654.30
 ;;9002226.02101,"773,654.30 ",.02)
 ;;654.30
 ;;9002226.02101,"773,654.31 ",.01)
 ;;654.31
 ;;9002226.02101,"773,654.31 ",.02)
 ;;654.31
 ;;9002226.02101,"773,654.32 ",.01)
 ;;654.32
 ;;9002226.02101,"773,654.32 ",.02)
 ;;654.32
 ;;9002226.02101,"773,654.33 ",.01)
 ;;654.33
 ;;9002226.02101,"773,654.33 ",.02)
 ;;654.33
 ;;9002226.02101,"773,654.34 ",.01)
 ;;654.34
 ;;9002226.02101,"773,654.34 ",.02)
 ;;654.34
 ;;9002226.02101,"773,654.4 ",.01)
 ;;654.4
 ;;9002226.02101,"773,654.4 ",.02)
 ;;654.4
 ;;9002226.02101,"773,654.40 ",.01)
 ;;654.40
 ;;9002226.02101,"773,654.40 ",.02)
 ;;654.40
 ;;9002226.02101,"773,654.41 ",.01)
 ;;654.41
 ;;9002226.02101,"773,654.41 ",.02)
 ;;654.41
 ;;9002226.02101,"773,654.42 ",.01)
 ;;654.42
 ;;9002226.02101,"773,654.42 ",.02)
 ;;654.42
 ;;9002226.02101,"773,654.43 ",.01)
 ;;654.43
 ;;9002226.02101,"773,654.43 ",.02)
 ;;654.43
 ;;9002226.02101,"773,654.44 ",.01)
 ;;654.44
 ;;9002226.02101,"773,654.44 ",.02)
 ;;654.44
 ;;9002226.02101,"773,654.5 ",.01)
 ;;654.5
 ;;9002226.02101,"773,654.5 ",.02)
 ;;654.5
 ;;9002226.02101,"773,654.50 ",.01)
 ;;654.50
 ;;9002226.02101,"773,654.50 ",.02)
 ;;654.50
 ;;9002226.02101,"773,654.51 ",.01)
 ;;654.51
 ;;9002226.02101,"773,654.51 ",.02)
 ;;654.51
 ;;9002226.02101,"773,654.52 ",.01)
 ;;654.52
 ;;9002226.02101,"773,654.52 ",.02)
 ;;654.52