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

BGPMBTXP.m

Go to the documentation of this file.
BGPMBTXP ;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,647.51 ",.01)
 ;;647.51
 ;;9002226.02101,"773,647.51 ",.02)
 ;;647.51
 ;;9002226.02101,"773,647.52 ",.01)
 ;;647.52
 ;;9002226.02101,"773,647.52 ",.02)
 ;;647.52
 ;;9002226.02101,"773,647.53 ",.01)
 ;;647.53
 ;;9002226.02101,"773,647.53 ",.02)
 ;;647.53
 ;;9002226.02101,"773,647.54 ",.01)
 ;;647.54
 ;;9002226.02101,"773,647.54 ",.02)
 ;;647.54
 ;;9002226.02101,"773,647.6 ",.01)
 ;;647.6
 ;;9002226.02101,"773,647.6 ",.02)
 ;;647.6
 ;;9002226.02101,"773,647.60 ",.01)
 ;;647.60
 ;;9002226.02101,"773,647.60 ",.02)
 ;;647.60
 ;;9002226.02101,"773,647.61 ",.01)
 ;;647.61
 ;;9002226.02101,"773,647.61 ",.02)
 ;;647.61
 ;;9002226.02101,"773,647.62 ",.01)
 ;;647.62
 ;;9002226.02101,"773,647.62 ",.02)
 ;;647.62
 ;;9002226.02101,"773,647.63 ",.01)
 ;;647.63
 ;;9002226.02101,"773,647.63 ",.02)
 ;;647.63
 ;;9002226.02101,"773,647.64 ",.01)
 ;;647.64
 ;;9002226.02101,"773,647.64 ",.02)
 ;;647.64
 ;;9002226.02101,"773,647.8 ",.01)
 ;;647.8
 ;;9002226.02101,"773,647.8 ",.02)
 ;;647.8
 ;;9002226.02101,"773,647.80 ",.01)
 ;;647.80
 ;;9002226.02101,"773,647.80 ",.02)
 ;;647.80
 ;;9002226.02101,"773,647.81 ",.01)
 ;;647.81
 ;;9002226.02101,"773,647.81 ",.02)
 ;;647.81
 ;;9002226.02101,"773,647.82 ",.01)
 ;;647.82
 ;;9002226.02101,"773,647.82 ",.02)
 ;;647.82
 ;;9002226.02101,"773,647.83 ",.01)
 ;;647.83
 ;;9002226.02101,"773,647.83 ",.02)
 ;;647.83
 ;;9002226.02101,"773,647.84 ",.01)
 ;;647.84
 ;;9002226.02101,"773,647.84 ",.02)
 ;;647.84
 ;;9002226.02101,"773,647.9 ",.01)
 ;;647.9
 ;;9002226.02101,"773,647.9 ",.02)
 ;;647.9
 ;;9002226.02101,"773,647.90 ",.01)
 ;;647.90
 ;;9002226.02101,"773,647.90 ",.02)
 ;;647.90
 ;;9002226.02101,"773,647.91 ",.01)
 ;;647.91
 ;;9002226.02101,"773,647.91 ",.02)
 ;;647.91
 ;;9002226.02101,"773,647.92 ",.01)
 ;;647.92
 ;;9002226.02101,"773,647.92 ",.02)
 ;;647.92
 ;;9002226.02101,"773,647.93 ",.01)
 ;;647.93
 ;;9002226.02101,"773,647.93 ",.02)
 ;;647.93
 ;;9002226.02101,"773,647.94 ",.01)
 ;;647.94
 ;;9002226.02101,"773,647.94 ",.02)
 ;;647.94
 ;;9002226.02101,"773,648 ",.01)
 ;;648
 ;;9002226.02101,"773,648 ",.02)
 ;;648
 ;;9002226.02101,"773,648.0 ",.01)
 ;;648.0
 ;;9002226.02101,"773,648.0 ",.02)
 ;;648.0
 ;;9002226.02101,"773,648.00 ",.01)
 ;;648.00
 ;;9002226.02101,"773,648.00 ",.02)
 ;;648.00
 ;;9002226.02101,"773,648.01 ",.01)
 ;;648.01
 ;;9002226.02101,"773,648.01 ",.02)
 ;;648.01
 ;;9002226.02101,"773,648.02 ",.01)
 ;;648.02
 ;;9002226.02101,"773,648.02 ",.02)
 ;;648.02
 ;;9002226.02101,"773,648.03 ",.01)
 ;;648.03
 ;;9002226.02101,"773,648.03 ",.02)
 ;;648.03
 ;;9002226.02101,"773,648.04 ",.01)
 ;;648.04
 ;;9002226.02101,"773,648.04 ",.02)
 ;;648.04
 ;;9002226.02101,"773,648.1 ",.01)
 ;;648.1
 ;;9002226.02101,"773,648.1 ",.02)
 ;;648.1
 ;;9002226.02101,"773,648.10 ",.01)
 ;;648.10
 ;;9002226.02101,"773,648.10 ",.02)
 ;;648.10
 ;;9002226.02101,"773,648.11 ",.01)
 ;;648.11
 ;;9002226.02101,"773,648.11 ",.02)
 ;;648.11
 ;;9002226.02101,"773,648.12 ",.01)
 ;;648.12
 ;;9002226.02101,"773,648.12 ",.02)
 ;;648.12
 ;;9002226.02101,"773,648.13 ",.01)
 ;;648.13
 ;;9002226.02101,"773,648.13 ",.02)
 ;;648.13
 ;;9002226.02101,"773,648.14 ",.01)
 ;;648.14
 ;;9002226.02101,"773,648.14 ",.02)
 ;;648.14
 ;;9002226.02101,"773,648.2 ",.01)
 ;;648.2
 ;;9002226.02101,"773,648.2 ",.02)
 ;;648.2
 ;;9002226.02101,"773,648.20 ",.01)
 ;;648.20
 ;;9002226.02101,"773,648.20 ",.02)
 ;;648.20
 ;;9002226.02101,"773,648.21 ",.01)
 ;;648.21
 ;;9002226.02101,"773,648.21 ",.02)
 ;;648.21
 ;;9002226.02101,"773,648.22 ",.01)
 ;;648.22
 ;;9002226.02101,"773,648.22 ",.02)
 ;;648.22
 ;;9002226.02101,"773,648.23 ",.01)
 ;;648.23
 ;;9002226.02101,"773,648.23 ",.02)
 ;;648.23
 ;;9002226.02101,"773,648.24 ",.01)
 ;;648.24
 ;;9002226.02101,"773,648.24 ",.02)
 ;;648.24
 ;;9002226.02101,"773,648.3 ",.01)
 ;;648.3
 ;;9002226.02101,"773,648.3 ",.02)
 ;;648.3
 ;;9002226.02101,"773,648.30 ",.01)
 ;;648.30
 ;;9002226.02101,"773,648.30 ",.02)
 ;;648.30
 ;;9002226.02101,"773,648.31 ",.01)
 ;;648.31
 ;;9002226.02101,"773,648.31 ",.02)
 ;;648.31
 ;;9002226.02101,"773,648.32 ",.01)
 ;;648.32
 ;;9002226.02101,"773,648.32 ",.02)
 ;;648.32
 ;;9002226.02101,"773,648.33 ",.01)
 ;;648.33
 ;;9002226.02101,"773,648.33 ",.02)
 ;;648.33
 ;;9002226.02101,"773,648.34 ",.01)
 ;;648.34
 ;;9002226.02101,"773,648.34 ",.02)
 ;;648.34
 ;;9002226.02101,"773,648.4 ",.01)
 ;;648.4
 ;;9002226.02101,"773,648.4 ",.02)
 ;;648.4
 ;;9002226.02101,"773,648.40 ",.01)
 ;;648.40
 ;;9002226.02101,"773,648.40 ",.02)
 ;;648.40
 ;;9002226.02101,"773,648.41 ",.01)
 ;;648.41
 ;;9002226.02101,"773,648.41 ",.02)
 ;;648.41
 ;;9002226.02101,"773,648.42 ",.01)
 ;;648.42
 ;;9002226.02101,"773,648.42 ",.02)
 ;;648.42
 ;;9002226.02101,"773,648.43 ",.01)
 ;;648.43
 ;;9002226.02101,"773,648.43 ",.02)
 ;;648.43
 ;;9002226.02101,"773,648.44 ",.01)
 ;;648.44
 ;;9002226.02101,"773,648.44 ",.02)
 ;;648.44
 ;;9002226.02101,"773,648.5 ",.01)
 ;;648.5
 ;;9002226.02101,"773,648.5 ",.02)
 ;;648.5
 ;;9002226.02101,"773,648.50 ",.01)
 ;;648.50
 ;;9002226.02101,"773,648.50 ",.02)
 ;;648.50
 ;;9002226.02101,"773,648.51 ",.01)
 ;;648.51
 ;;9002226.02101,"773,648.51 ",.02)
 ;;648.51
 ;;9002226.02101,"773,648.52 ",.01)
 ;;648.52
 ;;9002226.02101,"773,648.52 ",.02)
 ;;648.52
 ;;9002226.02101,"773,648.53 ",.01)
 ;;648.53
 ;;9002226.02101,"773,648.53 ",.02)
 ;;648.53
 ;;9002226.02101,"773,648.54 ",.01)
 ;;648.54
 ;;9002226.02101,"773,648.54 ",.02)
 ;;648.54
 ;;9002226.02101,"773,648.6 ",.01)
 ;;648.6
 ;;9002226.02101,"773,648.6 ",.02)
 ;;648.6
 ;;9002226.02101,"773,648.60 ",.01)
 ;;648.60
 ;;9002226.02101,"773,648.60 ",.02)
 ;;648.60
 ;;9002226.02101,"773,648.61 ",.01)
 ;;648.61
 ;;9002226.02101,"773,648.61 ",.02)
 ;;648.61
 ;;9002226.02101,"773,648.62 ",.01)
 ;;648.62
 ;;9002226.02101,"773,648.62 ",.02)
 ;;648.62
 ;;9002226.02101,"773,648.63 ",.01)
 ;;648.63
 ;;9002226.02101,"773,648.63 ",.02)
 ;;648.63
 ;;9002226.02101,"773,648.64 ",.01)
 ;;648.64
 ;;9002226.02101,"773,648.64 ",.02)
 ;;648.64
 ;;9002226.02101,"773,648.7 ",.01)
 ;;648.7
 ;;9002226.02101,"773,648.7 ",.02)
 ;;648.7
 ;;9002226.02101,"773,648.70 ",.01)
 ;;648.70
 ;;9002226.02101,"773,648.70 ",.02)
 ;;648.70
 ;;9002226.02101,"773,648.71 ",.01)
 ;;648.71
 ;;9002226.02101,"773,648.71 ",.02)
 ;;648.71
 ;;9002226.02101,"773,648.72 ",.01)
 ;;648.72
 ;;9002226.02101,"773,648.72 ",.02)
 ;;648.72
 ;;9002226.02101,"773,648.73 ",.01)
 ;;648.73
 ;;9002226.02101,"773,648.73 ",.02)
 ;;648.73
 ;;9002226.02101,"773,648.74 ",.01)
 ;;648.74
 ;;9002226.02101,"773,648.74 ",.02)
 ;;648.74
 ;;9002226.02101,"773,648.8 ",.01)
 ;;648.8
 ;;9002226.02101,"773,648.8 ",.02)
 ;;648.8
 ;;9002226.02101,"773,648.80 ",.01)
 ;;648.80
 ;;9002226.02101,"773,648.80 ",.02)
 ;;648.80
 ;;9002226.02101,"773,648.81 ",.01)
 ;;648.81
 ;;9002226.02101,"773,648.81 ",.02)
 ;;648.81
 ;;9002226.02101,"773,648.82 ",.01)
 ;;648.82
 ;;9002226.02101,"773,648.82 ",.02)
 ;;648.82
 ;;9002226.02101,"773,648.83 ",.01)
 ;;648.83
 ;;9002226.02101,"773,648.83 ",.02)
 ;;648.83
 ;;9002226.02101,"773,648.84 ",.01)
 ;;648.84
 ;;9002226.02101,"773,648.84 ",.02)
 ;;648.84
 ;;9002226.02101,"773,648.9 ",.01)
 ;;648.9
 ;;9002226.02101,"773,648.9 ",.02)
 ;;648.9
 ;;9002226.02101,"773,648.90 ",.01)
 ;;648.90
 ;;9002226.02101,"773,648.90 ",.02)
 ;;648.90
 ;;9002226.02101,"773,648.91 ",.01)
 ;;648.91
 ;;9002226.02101,"773,648.91 ",.02)
 ;;648.91
 ;;9002226.02101,"773,648.92 ",.01)
 ;;648.92
 ;;9002226.02101,"773,648.92 ",.02)
 ;;648.92
 ;;9002226.02101,"773,648.93 ",.01)
 ;;648.93
 ;;9002226.02101,"773,648.93 ",.02)
 ;;648.93
 ;;9002226.02101,"773,648.94 ",.01)
 ;;648.94
 ;;9002226.02101,"773,648.94 ",.02)
 ;;648.94
 ;;9002226.02101,"773,649 ",.01)
 ;;649
 ;;9002226.02101,"773,649 ",.02)
 ;;649
 ;;9002226.02101,"773,649.0 ",.01)
 ;;649.0
 ;;9002226.02101,"773,649.0 ",.02)
 ;;649.0
 ;;9002226.02101,"773,649.00 ",.01)
 ;;649.00
 ;;9002226.02101,"773,649.00 ",.02)
 ;;649.00
 ;;9002226.02101,"773,649.01 ",.01)
 ;;649.01
 ;;9002226.02101,"773,649.01 ",.02)
 ;;649.01
 ;;9002226.02101,"773,649.02 ",.01)
 ;;649.02
 ;;9002226.02101,"773,649.02 ",.02)
 ;;649.02
 ;;9002226.02101,"773,649.03 ",.01)
 ;;649.03
 ;;9002226.02101,"773,649.03 ",.02)
 ;;649.03
 ;;9002226.02101,"773,649.04 ",.01)
 ;;649.04
 ;;9002226.02101,"773,649.04 ",.02)
 ;;649.04
 ;;9002226.02101,"773,649.1 ",.01)
 ;;649.1
 ;;9002226.02101,"773,649.1 ",.02)
 ;;649.1
 ;;9002226.02101,"773,649.10 ",.01)
 ;;649.10
 ;;9002226.02101,"773,649.10 ",.02)
 ;;649.10
 ;;9002226.02101,"773,649.11 ",.01)
 ;;649.11
 ;;9002226.02101,"773,649.11 ",.02)
 ;;649.11
 ;;9002226.02101,"773,649.12 ",.01)
 ;;649.12
 ;;9002226.02101,"773,649.12 ",.02)
 ;;649.12
 ;;9002226.02101,"773,649.13 ",.01)
 ;;649.13
 ;;9002226.02101,"773,649.13 ",.02)
 ;;649.13
 ;;9002226.02101,"773,649.14 ",.01)
 ;;649.14
 ;;9002226.02101,"773,649.14 ",.02)
 ;;649.14
 ;;9002226.02101,"773,649.2 ",.01)
 ;;649.2
 ;;9002226.02101,"773,649.2 ",.02)
 ;;649.2
 ;;9002226.02101,"773,649.20 ",.01)
 ;;649.20
 ;;9002226.02101,"773,649.20 ",.02)
 ;;649.20
 ;;9002226.02101,"773,649.21 ",.01)
 ;;649.21
 ;;9002226.02101,"773,649.21 ",.02)
 ;;649.21
 ;;9002226.02101,"773,649.22 ",.01)
 ;;649.22
 ;;9002226.02101,"773,649.22 ",.02)
 ;;649.22
 ;;9002226.02101,"773,649.23 ",.01)
 ;;649.23
 ;;9002226.02101,"773,649.23 ",.02)
 ;;649.23
 ;;9002226.02101,"773,649.24 ",.01)
 ;;649.24
 ;;9002226.02101,"773,649.24 ",.02)
 ;;649.24
 ;;9002226.02101,"773,649.3 ",.01)
 ;;649.3
 ;;9002226.02101,"773,649.3 ",.02)
 ;;649.3
 ;;9002226.02101,"773,649.30 ",.01)
 ;;649.30
 ;;9002226.02101,"773,649.30 ",.02)
 ;;649.30
 ;;9002226.02101,"773,649.31 ",.01)
 ;;649.31
 ;;9002226.02101,"773,649.31 ",.02)
 ;;649.31
 ;;9002226.02101,"773,649.32 ",.01)
 ;;649.32
 ;;9002226.02101,"773,649.32 ",.02)
 ;;649.32
 ;;9002226.02101,"773,649.33 ",.01)
 ;;649.33
 ;;9002226.02101,"773,649.33 ",.02)
 ;;649.33
 ;;9002226.02101,"773,649.34 ",.01)
 ;;649.34
 ;;9002226.02101,"773,649.34 ",.02)
 ;;649.34
 ;;9002226.02101,"773,649.4 ",.01)
 ;;649.4
 ;;9002226.02101,"773,649.4 ",.02)
 ;;649.4
 ;;9002226.02101,"773,649.40 ",.01)
 ;;649.40
 ;;9002226.02101,"773,649.40 ",.02)
 ;;649.40
 ;;9002226.02101,"773,649.41 ",.01)
 ;;649.41
 ;;9002226.02101,"773,649.41 ",.02)
 ;;649.41
 ;;9002226.02101,"773,649.42 ",.01)
 ;;649.42
 ;;9002226.02101,"773,649.42 ",.02)
 ;;649.42
 ;;9002226.02101,"773,649.43 ",.01)
 ;;649.43
 ;;9002226.02101,"773,649.43 ",.02)
 ;;649.43
 ;;9002226.02101,"773,649.44 ",.01)
 ;;649.44
 ;;9002226.02101,"773,649.44 ",.02)
 ;;649.44
 ;;9002226.02101,"773,649.5 ",.01)
 ;;649.5
 ;;9002226.02101,"773,649.5 ",.02)
 ;;649.5
 ;;9002226.02101,"773,649.50 ",.01)
 ;;649.50
 ;;9002226.02101,"773,649.50 ",.02)
 ;;649.50
 ;;9002226.02101,"773,649.51 ",.01)
 ;;649.51
 ;;9002226.02101,"773,649.51 ",.02)
 ;;649.51
 ;;9002226.02101,"773,649.53 ",.01)
 ;;649.53
 ;;9002226.02101,"773,649.53 ",.02)
 ;;649.53
 ;;9002226.02101,"773,649.6 ",.01)
 ;;649.6
 ;;9002226.02101,"773,649.6 ",.02)
 ;;649.6
 ;;9002226.02101,"773,649.60 ",.01)
 ;;649.60
 ;;9002226.02101,"773,649.60 ",.02)
 ;;649.60
 ;;9002226.02101,"773,649.61 ",.01)
 ;;649.61
 ;;9002226.02101,"773,649.61 ",.02)
 ;;649.61
 ;;9002226.02101,"773,649.62 ",.01)
 ;;649.62
 ;;9002226.02101,"773,649.62 ",.02)
 ;;649.62
 ;;9002226.02101,"773,649.63 ",.01)
 ;;649.63
 ;;9002226.02101,"773,649.63 ",.02)
 ;;649.63
 ;;9002226.02101,"773,649.64 ",.01)
 ;;649.64
 ;;9002226.02101,"773,649.64 ",.02)
 ;;649.64
 ;;9002226.02101,"773,649.7 ",.01)
 ;;649.7
 ;;9002226.02101,"773,649.7 ",.02)
 ;;649.7
 ;;9002226.02101,"773,649.70 ",.01)
 ;;649.70
 ;;9002226.02101,"773,649.70 ",.02)
 ;;649.70
 ;;9002226.02101,"773,649.71 ",.01)
 ;;649.71
 ;;9002226.02101,"773,649.71 ",.02)
 ;;649.71
 ;;9002226.02101,"773,649.73 ",.01)
 ;;649.73
 ;;9002226.02101,"773,649.73 ",.02)
 ;;649.73
 ;;9002226.02101,"773,650 ",.01)
 ;;650
 ;;9002226.02101,"773,650 ",.02)
 ;;650
 ;;9002226.02101,"773,651 ",.01)
 ;;651
 ;;9002226.02101,"773,651 ",.02)
 ;;651
 ;;9002226.02101,"773,651.0 ",.01)
 ;;651.0
 ;;9002226.02101,"773,651.0 ",.02)
 ;;651.0
 ;;9002226.02101,"773,651.00 ",.01)
 ;;651.00
 ;;9002226.02101,"773,651.00 ",.02)
 ;;651.00
 ;;9002226.02101,"773,651.01 ",.01)
 ;;651.01
 ;;9002226.02101,"773,651.01 ",.02)
 ;;651.01
 ;;9002226.02101,"773,651.03 ",.01)
 ;;651.03
 ;;9002226.02101,"773,651.03 ",.02)
 ;;651.03
 ;;9002226.02101,"773,651.1 ",.01)
 ;;651.1
 ;;9002226.02101,"773,651.1 ",.02)
 ;;651.1
 ;;9002226.02101,"773,651.10 ",.01)
 ;;651.10
 ;;9002226.02101,"773,651.10 ",.02)
 ;;651.10
 ;;9002226.02101,"773,651.11 ",.01)
 ;;651.11
 ;;9002226.02101,"773,651.11 ",.02)
 ;;651.11
 ;;9002226.02101,"773,651.13 ",.01)
 ;;651.13
 ;;9002226.02101,"773,651.13 ",.02)
 ;;651.13
 ;;9002226.02101,"773,651.2 ",.01)
 ;;651.2
 ;;9002226.02101,"773,651.2 ",.02)
 ;;651.2
 ;;9002226.02101,"773,651.20 ",.01)
 ;;651.20
 ;;9002226.02101,"773,651.20 ",.02)
 ;;651.20
 ;;9002226.02101,"773,651.21 ",.01)
 ;;651.21
 ;;9002226.02101,"773,651.21 ",.02)
 ;;651.21
 ;;9002226.02101,"773,651.23 ",.01)
 ;;651.23
 ;;9002226.02101,"773,651.23 ",.02)
 ;;651.23
 ;;9002226.02101,"773,651.3 ",.01)
 ;;651.3