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

BGPMBTXO.m

Go to the documentation of this file.
BGPMBTXO ;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,642.60 ",.02)
 ;;642.60
 ;;9002226.02101,"773,642.61 ",.01)
 ;;642.61
 ;;9002226.02101,"773,642.61 ",.02)
 ;;642.61
 ;;9002226.02101,"773,642.62 ",.01)
 ;;642.62
 ;;9002226.02101,"773,642.62 ",.02)
 ;;642.62
 ;;9002226.02101,"773,642.63 ",.01)
 ;;642.63
 ;;9002226.02101,"773,642.63 ",.02)
 ;;642.63
 ;;9002226.02101,"773,642.64 ",.01)
 ;;642.64
 ;;9002226.02101,"773,642.64 ",.02)
 ;;642.64
 ;;9002226.02101,"773,642.7 ",.01)
 ;;642.7
 ;;9002226.02101,"773,642.7 ",.02)
 ;;642.7
 ;;9002226.02101,"773,642.70 ",.01)
 ;;642.70
 ;;9002226.02101,"773,642.70 ",.02)
 ;;642.70
 ;;9002226.02101,"773,642.71 ",.01)
 ;;642.71
 ;;9002226.02101,"773,642.71 ",.02)
 ;;642.71
 ;;9002226.02101,"773,642.72 ",.01)
 ;;642.72
 ;;9002226.02101,"773,642.72 ",.02)
 ;;642.72
 ;;9002226.02101,"773,642.73 ",.01)
 ;;642.73
 ;;9002226.02101,"773,642.73 ",.02)
 ;;642.73
 ;;9002226.02101,"773,642.74 ",.01)
 ;;642.74
 ;;9002226.02101,"773,642.74 ",.02)
 ;;642.74
 ;;9002226.02101,"773,642.9 ",.01)
 ;;642.9
 ;;9002226.02101,"773,642.9 ",.02)
 ;;642.9
 ;;9002226.02101,"773,642.90 ",.01)
 ;;642.90
 ;;9002226.02101,"773,642.90 ",.02)
 ;;642.90
 ;;9002226.02101,"773,642.91 ",.01)
 ;;642.91
 ;;9002226.02101,"773,642.91 ",.02)
 ;;642.91
 ;;9002226.02101,"773,642.92 ",.01)
 ;;642.92
 ;;9002226.02101,"773,642.92 ",.02)
 ;;642.92
 ;;9002226.02101,"773,642.93 ",.01)
 ;;642.93
 ;;9002226.02101,"773,642.93 ",.02)
 ;;642.93
 ;;9002226.02101,"773,642.94 ",.01)
 ;;642.94
 ;;9002226.02101,"773,642.94 ",.02)
 ;;642.94
 ;;9002226.02101,"773,643 ",.01)
 ;;643
 ;;9002226.02101,"773,643 ",.02)
 ;;643
 ;;9002226.02101,"773,643.0 ",.01)
 ;;643.0
 ;;9002226.02101,"773,643.0 ",.02)
 ;;643.0
 ;;9002226.02101,"773,643.00 ",.01)
 ;;643.00
 ;;9002226.02101,"773,643.00 ",.02)
 ;;643.00
 ;;9002226.02101,"773,643.01 ",.01)
 ;;643.01
 ;;9002226.02101,"773,643.01 ",.02)
 ;;643.01
 ;;9002226.02101,"773,643.03 ",.01)
 ;;643.03
 ;;9002226.02101,"773,643.03 ",.02)
 ;;643.03
 ;;9002226.02101,"773,643.1 ",.01)
 ;;643.1
 ;;9002226.02101,"773,643.1 ",.02)
 ;;643.1
 ;;9002226.02101,"773,643.10 ",.01)
 ;;643.10
 ;;9002226.02101,"773,643.10 ",.02)
 ;;643.10
 ;;9002226.02101,"773,643.11 ",.01)
 ;;643.11
 ;;9002226.02101,"773,643.11 ",.02)
 ;;643.11
 ;;9002226.02101,"773,643.13 ",.01)
 ;;643.13
 ;;9002226.02101,"773,643.13 ",.02)
 ;;643.13
 ;;9002226.02101,"773,643.2 ",.01)
 ;;643.2
 ;;9002226.02101,"773,643.2 ",.02)
 ;;643.2
 ;;9002226.02101,"773,643.20 ",.01)
 ;;643.20
 ;;9002226.02101,"773,643.20 ",.02)
 ;;643.20
 ;;9002226.02101,"773,643.21 ",.01)
 ;;643.21
 ;;9002226.02101,"773,643.21 ",.02)
 ;;643.21
 ;;9002226.02101,"773,643.23 ",.01)
 ;;643.23
 ;;9002226.02101,"773,643.23 ",.02)
 ;;643.23
 ;;9002226.02101,"773,643.8 ",.01)
 ;;643.8
 ;;9002226.02101,"773,643.8 ",.02)
 ;;643.8
 ;;9002226.02101,"773,643.80 ",.01)
 ;;643.80
 ;;9002226.02101,"773,643.80 ",.02)
 ;;643.80
 ;;9002226.02101,"773,643.81 ",.01)
 ;;643.81
 ;;9002226.02101,"773,643.81 ",.02)
 ;;643.81
 ;;9002226.02101,"773,643.83 ",.01)
 ;;643.83
 ;;9002226.02101,"773,643.83 ",.02)
 ;;643.83
 ;;9002226.02101,"773,643.9 ",.01)
 ;;643.9
 ;;9002226.02101,"773,643.9 ",.02)
 ;;643.9
 ;;9002226.02101,"773,643.90 ",.01)
 ;;643.90
 ;;9002226.02101,"773,643.90 ",.02)
 ;;643.90
 ;;9002226.02101,"773,643.91 ",.01)
 ;;643.91
 ;;9002226.02101,"773,643.91 ",.02)
 ;;643.91
 ;;9002226.02101,"773,643.93 ",.01)
 ;;643.93
 ;;9002226.02101,"773,643.93 ",.02)
 ;;643.93
 ;;9002226.02101,"773,644 ",.01)
 ;;644
 ;;9002226.02101,"773,644 ",.02)
 ;;644
 ;;9002226.02101,"773,644.0 ",.01)
 ;;644.0
 ;;9002226.02101,"773,644.0 ",.02)
 ;;644.0
 ;;9002226.02101,"773,644.00 ",.01)
 ;;644.00
 ;;9002226.02101,"773,644.00 ",.02)
 ;;644.00
 ;;9002226.02101,"773,644.03 ",.01)
 ;;644.03
 ;;9002226.02101,"773,644.03 ",.02)
 ;;644.03
 ;;9002226.02101,"773,644.1 ",.01)
 ;;644.1
 ;;9002226.02101,"773,644.1 ",.02)
 ;;644.1
 ;;9002226.02101,"773,644.10 ",.01)
 ;;644.10
 ;;9002226.02101,"773,644.10 ",.02)
 ;;644.10
 ;;9002226.02101,"773,644.13 ",.01)
 ;;644.13
 ;;9002226.02101,"773,644.13 ",.02)
 ;;644.13
 ;;9002226.02101,"773,644.2 ",.01)
 ;;644.2
 ;;9002226.02101,"773,644.2 ",.02)
 ;;644.2
 ;;9002226.02101,"773,644.20 ",.01)
 ;;644.20
 ;;9002226.02101,"773,644.20 ",.02)
 ;;644.20
 ;;9002226.02101,"773,644.21 ",.01)
 ;;644.21
 ;;9002226.02101,"773,644.21 ",.02)
 ;;644.21
 ;;9002226.02101,"773,645 ",.01)
 ;;645
 ;;9002226.02101,"773,645 ",.02)
 ;;645
 ;;9002226.02101,"773,645.1 ",.01)
 ;;645.1
 ;;9002226.02101,"773,645.1 ",.02)
 ;;645.1
 ;;9002226.02101,"773,645.10 ",.01)
 ;;645.10
 ;;9002226.02101,"773,645.10 ",.02)
 ;;645.10
 ;;9002226.02101,"773,645.11 ",.01)
 ;;645.11
 ;;9002226.02101,"773,645.11 ",.02)
 ;;645.11
 ;;9002226.02101,"773,645.13 ",.01)
 ;;645.13
 ;;9002226.02101,"773,645.13 ",.02)
 ;;645.13
 ;;9002226.02101,"773,645.2 ",.01)
 ;;645.2
 ;;9002226.02101,"773,645.2 ",.02)
 ;;645.2
 ;;9002226.02101,"773,645.20 ",.01)
 ;;645.20
 ;;9002226.02101,"773,645.20 ",.02)
 ;;645.20
 ;;9002226.02101,"773,645.21 ",.01)
 ;;645.21
 ;;9002226.02101,"773,645.21 ",.02)
 ;;645.21
 ;;9002226.02101,"773,645.23 ",.01)
 ;;645.23
 ;;9002226.02101,"773,645.23 ",.02)
 ;;645.23
 ;;9002226.02101,"773,646 ",.01)
 ;;646
 ;;9002226.02101,"773,646 ",.02)
 ;;646
 ;;9002226.02101,"773,646.0 ",.01)
 ;;646.0
 ;;9002226.02101,"773,646.0 ",.02)
 ;;646.0
 ;;9002226.02101,"773,646.00 ",.01)
 ;;646.00
 ;;9002226.02101,"773,646.00 ",.02)
 ;;646.00
 ;;9002226.02101,"773,646.01 ",.01)
 ;;646.01
 ;;9002226.02101,"773,646.01 ",.02)
 ;;646.01
 ;;9002226.02101,"773,646.03 ",.01)
 ;;646.03
 ;;9002226.02101,"773,646.03 ",.02)
 ;;646.03
 ;;9002226.02101,"773,646.1 ",.01)
 ;;646.1
 ;;9002226.02101,"773,646.1 ",.02)
 ;;646.1
 ;;9002226.02101,"773,646.10 ",.01)
 ;;646.10
 ;;9002226.02101,"773,646.10 ",.02)
 ;;646.10
 ;;9002226.02101,"773,646.11 ",.01)
 ;;646.11
 ;;9002226.02101,"773,646.11 ",.02)
 ;;646.11
 ;;9002226.02101,"773,646.12 ",.01)
 ;;646.12
 ;;9002226.02101,"773,646.12 ",.02)
 ;;646.12
 ;;9002226.02101,"773,646.13 ",.01)
 ;;646.13
 ;;9002226.02101,"773,646.13 ",.02)
 ;;646.13
 ;;9002226.02101,"773,646.14 ",.01)
 ;;646.14
 ;;9002226.02101,"773,646.14 ",.02)
 ;;646.14
 ;;9002226.02101,"773,646.2 ",.01)
 ;;646.2
 ;;9002226.02101,"773,646.2 ",.02)
 ;;646.2
 ;;9002226.02101,"773,646.20 ",.01)
 ;;646.20
 ;;9002226.02101,"773,646.20 ",.02)
 ;;646.20
 ;;9002226.02101,"773,646.21 ",.01)
 ;;646.21
 ;;9002226.02101,"773,646.21 ",.02)
 ;;646.21
 ;;9002226.02101,"773,646.22 ",.01)
 ;;646.22
 ;;9002226.02101,"773,646.22 ",.02)
 ;;646.22
 ;;9002226.02101,"773,646.23 ",.01)
 ;;646.23
 ;;9002226.02101,"773,646.23 ",.02)
 ;;646.23
 ;;9002226.02101,"773,646.24 ",.01)
 ;;646.24
 ;;9002226.02101,"773,646.24 ",.02)
 ;;646.24
 ;;9002226.02101,"773,646.3 ",.01)
 ;;646.3
 ;;9002226.02101,"773,646.3 ",.02)
 ;;646.3
 ;;9002226.02101,"773,646.30 ",.01)
 ;;646.30
 ;;9002226.02101,"773,646.30 ",.02)
 ;;646.30
 ;;9002226.02101,"773,646.31 ",.01)
 ;;646.31
 ;;9002226.02101,"773,646.31 ",.02)
 ;;646.31
 ;;9002226.02101,"773,646.33 ",.01)
 ;;646.33
 ;;9002226.02101,"773,646.33 ",.02)
 ;;646.33
 ;;9002226.02101,"773,646.4 ",.01)
 ;;646.4
 ;;9002226.02101,"773,646.4 ",.02)
 ;;646.4
 ;;9002226.02101,"773,646.40 ",.01)
 ;;646.40
 ;;9002226.02101,"773,646.40 ",.02)
 ;;646.40
 ;;9002226.02101,"773,646.41 ",.01)
 ;;646.41
 ;;9002226.02101,"773,646.41 ",.02)
 ;;646.41
 ;;9002226.02101,"773,646.42 ",.01)
 ;;646.42
 ;;9002226.02101,"773,646.42 ",.02)
 ;;646.42
 ;;9002226.02101,"773,646.43 ",.01)
 ;;646.43
 ;;9002226.02101,"773,646.43 ",.02)
 ;;646.43
 ;;9002226.02101,"773,646.44 ",.01)
 ;;646.44
 ;;9002226.02101,"773,646.44 ",.02)
 ;;646.44
 ;;9002226.02101,"773,646.5 ",.01)
 ;;646.5
 ;;9002226.02101,"773,646.5 ",.02)
 ;;646.5
 ;;9002226.02101,"773,646.50 ",.01)
 ;;646.50
 ;;9002226.02101,"773,646.50 ",.02)
 ;;646.50
 ;;9002226.02101,"773,646.51 ",.01)
 ;;646.51
 ;;9002226.02101,"773,646.51 ",.02)
 ;;646.51
 ;;9002226.02101,"773,646.52 ",.01)
 ;;646.52
 ;;9002226.02101,"773,646.52 ",.02)
 ;;646.52
 ;;9002226.02101,"773,646.53 ",.01)
 ;;646.53
 ;;9002226.02101,"773,646.53 ",.02)
 ;;646.53
 ;;9002226.02101,"773,646.54 ",.01)
 ;;646.54
 ;;9002226.02101,"773,646.54 ",.02)
 ;;646.54
 ;;9002226.02101,"773,646.6 ",.01)
 ;;646.6
 ;;9002226.02101,"773,646.6 ",.02)
 ;;646.6
 ;;9002226.02101,"773,646.60 ",.01)
 ;;646.60
 ;;9002226.02101,"773,646.60 ",.02)
 ;;646.60
 ;;9002226.02101,"773,646.61 ",.01)
 ;;646.61
 ;;9002226.02101,"773,646.61 ",.02)
 ;;646.61
 ;;9002226.02101,"773,646.62 ",.01)
 ;;646.62
 ;;9002226.02101,"773,646.62 ",.02)
 ;;646.62
 ;;9002226.02101,"773,646.63 ",.01)
 ;;646.63
 ;;9002226.02101,"773,646.63 ",.02)
 ;;646.63
 ;;9002226.02101,"773,646.64 ",.01)
 ;;646.64
 ;;9002226.02101,"773,646.64 ",.02)
 ;;646.64
 ;;9002226.02101,"773,646.7 ",.01)
 ;;646.7
 ;;9002226.02101,"773,646.7 ",.02)
 ;;646.7
 ;;9002226.02101,"773,646.70 ",.01)
 ;;646.70
 ;;9002226.02101,"773,646.70 ",.02)
 ;;646.70
 ;;9002226.02101,"773,646.71 ",.01)
 ;;646.71
 ;;9002226.02101,"773,646.71 ",.02)
 ;;646.71
 ;;9002226.02101,"773,646.73 ",.01)
 ;;646.73
 ;;9002226.02101,"773,646.73 ",.02)
 ;;646.73
 ;;9002226.02101,"773,646.8 ",.01)
 ;;646.8
 ;;9002226.02101,"773,646.8 ",.02)
 ;;646.8
 ;;9002226.02101,"773,646.80 ",.01)
 ;;646.80
 ;;9002226.02101,"773,646.80 ",.02)
 ;;646.80
 ;;9002226.02101,"773,646.81 ",.01)
 ;;646.81
 ;;9002226.02101,"773,646.81 ",.02)
 ;;646.81
 ;;9002226.02101,"773,646.82 ",.01)
 ;;646.82
 ;;9002226.02101,"773,646.82 ",.02)
 ;;646.82
 ;;9002226.02101,"773,646.83 ",.01)
 ;;646.83
 ;;9002226.02101,"773,646.83 ",.02)
 ;;646.83
 ;;9002226.02101,"773,646.84 ",.01)
 ;;646.84
 ;;9002226.02101,"773,646.84 ",.02)
 ;;646.84
 ;;9002226.02101,"773,646.9 ",.01)
 ;;646.9
 ;;9002226.02101,"773,646.9 ",.02)
 ;;646.9
 ;;9002226.02101,"773,646.90 ",.01)
 ;;646.90
 ;;9002226.02101,"773,646.90 ",.02)
 ;;646.90
 ;;9002226.02101,"773,646.91 ",.01)
 ;;646.91
 ;;9002226.02101,"773,646.91 ",.02)
 ;;646.91
 ;;9002226.02101,"773,646.93 ",.01)
 ;;646.93
 ;;9002226.02101,"773,646.93 ",.02)
 ;;646.93
 ;;9002226.02101,"773,647 ",.01)
 ;;647
 ;;9002226.02101,"773,647 ",.02)
 ;;647
 ;;9002226.02101,"773,647.0 ",.01)
 ;;647.0
 ;;9002226.02101,"773,647.0 ",.02)
 ;;647.0
 ;;9002226.02101,"773,647.00 ",.01)
 ;;647.00
 ;;9002226.02101,"773,647.00 ",.02)
 ;;647.00
 ;;9002226.02101,"773,647.01 ",.01)
 ;;647.01
 ;;9002226.02101,"773,647.01 ",.02)
 ;;647.01
 ;;9002226.02101,"773,647.02 ",.01)
 ;;647.02
 ;;9002226.02101,"773,647.02 ",.02)
 ;;647.02
 ;;9002226.02101,"773,647.03 ",.01)
 ;;647.03
 ;;9002226.02101,"773,647.03 ",.02)
 ;;647.03
 ;;9002226.02101,"773,647.04 ",.01)
 ;;647.04
 ;;9002226.02101,"773,647.04 ",.02)
 ;;647.04
 ;;9002226.02101,"773,647.1 ",.01)
 ;;647.1
 ;;9002226.02101,"773,647.1 ",.02)
 ;;647.1
 ;;9002226.02101,"773,647.10 ",.01)
 ;;647.10
 ;;9002226.02101,"773,647.10 ",.02)
 ;;647.10
 ;;9002226.02101,"773,647.11 ",.01)
 ;;647.11
 ;;9002226.02101,"773,647.11 ",.02)
 ;;647.11
 ;;9002226.02101,"773,647.12 ",.01)
 ;;647.12
 ;;9002226.02101,"773,647.12 ",.02)
 ;;647.12
 ;;9002226.02101,"773,647.13 ",.01)
 ;;647.13
 ;;9002226.02101,"773,647.13 ",.02)
 ;;647.13
 ;;9002226.02101,"773,647.14 ",.01)
 ;;647.14
 ;;9002226.02101,"773,647.14 ",.02)
 ;;647.14
 ;;9002226.02101,"773,647.2 ",.01)
 ;;647.2
 ;;9002226.02101,"773,647.2 ",.02)
 ;;647.2
 ;;9002226.02101,"773,647.20 ",.01)
 ;;647.20
 ;;9002226.02101,"773,647.20 ",.02)
 ;;647.20
 ;;9002226.02101,"773,647.21 ",.01)
 ;;647.21
 ;;9002226.02101,"773,647.21 ",.02)
 ;;647.21
 ;;9002226.02101,"773,647.22 ",.01)
 ;;647.22
 ;;9002226.02101,"773,647.22 ",.02)
 ;;647.22
 ;;9002226.02101,"773,647.23 ",.01)
 ;;647.23
 ;;9002226.02101,"773,647.23 ",.02)
 ;;647.23
 ;;9002226.02101,"773,647.24 ",.01)
 ;;647.24
 ;;9002226.02101,"773,647.24 ",.02)
 ;;647.24
 ;;9002226.02101,"773,647.3 ",.01)
 ;;647.3
 ;;9002226.02101,"773,647.3 ",.02)
 ;;647.3
 ;;9002226.02101,"773,647.30 ",.01)
 ;;647.30
 ;;9002226.02101,"773,647.30 ",.02)
 ;;647.30
 ;;9002226.02101,"773,647.31 ",.01)
 ;;647.31
 ;;9002226.02101,"773,647.31 ",.02)
 ;;647.31
 ;;9002226.02101,"773,647.32 ",.01)
 ;;647.32
 ;;9002226.02101,"773,647.32 ",.02)
 ;;647.32
 ;;9002226.02101,"773,647.33 ",.01)
 ;;647.33
 ;;9002226.02101,"773,647.33 ",.02)
 ;;647.33
 ;;9002226.02101,"773,647.34 ",.01)
 ;;647.34
 ;;9002226.02101,"773,647.34 ",.02)
 ;;647.34
 ;;9002226.02101,"773,647.4 ",.01)
 ;;647.4
 ;;9002226.02101,"773,647.4 ",.02)
 ;;647.4
 ;;9002226.02101,"773,647.40 ",.01)
 ;;647.40
 ;;9002226.02101,"773,647.40 ",.02)
 ;;647.40
 ;;9002226.02101,"773,647.41 ",.01)
 ;;647.41
 ;;9002226.02101,"773,647.41 ",.02)
 ;;647.41
 ;;9002226.02101,"773,647.42 ",.01)
 ;;647.42
 ;;9002226.02101,"773,647.42 ",.02)
 ;;647.42
 ;;9002226.02101,"773,647.43 ",.01)
 ;;647.43
 ;;9002226.02101,"773,647.43 ",.02)
 ;;647.43
 ;;9002226.02101,"773,647.44 ",.01)
 ;;647.44
 ;;9002226.02101,"773,647.44 ",.02)
 ;;647.44
 ;;9002226.02101,"773,647.5 ",.01)
 ;;647.5
 ;;9002226.02101,"773,647.5 ",.02)
 ;;647.5
 ;;9002226.02101,"773,647.50 ",.01)
 ;;647.50
 ;;9002226.02101,"773,647.50 ",.02)
 ;;647.50