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

BGPMBTXV.m

Go to the documentation of this file.
BGPMBTXV ;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,673.34 ",.02)
 ;;673.34
 ;;9002226.02101,"773,673.8 ",.01)
 ;;673.8
 ;;9002226.02101,"773,673.8 ",.02)
 ;;673.8
 ;;9002226.02101,"773,673.80 ",.01)
 ;;673.80
 ;;9002226.02101,"773,673.80 ",.02)
 ;;673.80
 ;;9002226.02101,"773,673.81 ",.01)
 ;;673.81
 ;;9002226.02101,"773,673.81 ",.02)
 ;;673.81
 ;;9002226.02101,"773,673.82 ",.01)
 ;;673.82
 ;;9002226.02101,"773,673.82 ",.02)
 ;;673.82
 ;;9002226.02101,"773,673.83 ",.01)
 ;;673.83
 ;;9002226.02101,"773,673.83 ",.02)
 ;;673.83
 ;;9002226.02101,"773,673.84 ",.01)
 ;;673.84
 ;;9002226.02101,"773,673.84 ",.02)
 ;;673.84
 ;;9002226.02101,"773,674 ",.01)
 ;;674
 ;;9002226.02101,"773,674 ",.02)
 ;;674
 ;;9002226.02101,"773,674.0 ",.01)
 ;;674.0
 ;;9002226.02101,"773,674.0 ",.02)
 ;;674.0
 ;;9002226.02101,"773,674.00 ",.01)
 ;;674.00
 ;;9002226.02101,"773,674.00 ",.02)
 ;;674.00
 ;;9002226.02101,"773,674.01 ",.01)
 ;;674.01
 ;;9002226.02101,"773,674.01 ",.02)
 ;;674.01
 ;;9002226.02101,"773,674.02 ",.01)
 ;;674.02
 ;;9002226.02101,"773,674.02 ",.02)
 ;;674.02
 ;;9002226.02101,"773,674.03 ",.01)
 ;;674.03
 ;;9002226.02101,"773,674.03 ",.02)
 ;;674.03
 ;;9002226.02101,"773,674.04 ",.01)
 ;;674.04
 ;;9002226.02101,"773,674.04 ",.02)
 ;;674.04
 ;;9002226.02101,"773,674.1 ",.01)
 ;;674.1
 ;;9002226.02101,"773,674.1 ",.02)
 ;;674.1
 ;;9002226.02101,"773,674.10 ",.01)
 ;;674.10
 ;;9002226.02101,"773,674.10 ",.02)
 ;;674.10
 ;;9002226.02101,"773,674.12 ",.01)
 ;;674.12
 ;;9002226.02101,"773,674.12 ",.02)
 ;;674.12
 ;;9002226.02101,"773,674.14 ",.01)
 ;;674.14
 ;;9002226.02101,"773,674.14 ",.02)
 ;;674.14
 ;;9002226.02101,"773,674.2 ",.01)
 ;;674.2
 ;;9002226.02101,"773,674.2 ",.02)
 ;;674.2
 ;;9002226.02101,"773,674.20 ",.01)
 ;;674.20
 ;;9002226.02101,"773,674.20 ",.02)
 ;;674.20
 ;;9002226.02101,"773,674.22 ",.01)
 ;;674.22
 ;;9002226.02101,"773,674.22 ",.02)
 ;;674.22
 ;;9002226.02101,"773,674.24 ",.01)
 ;;674.24
 ;;9002226.02101,"773,674.24 ",.02)
 ;;674.24
 ;;9002226.02101,"773,674.3 ",.01)
 ;;674.3
 ;;9002226.02101,"773,674.3 ",.02)
 ;;674.3
 ;;9002226.02101,"773,674.30 ",.01)
 ;;674.30
 ;;9002226.02101,"773,674.30 ",.02)
 ;;674.30
 ;;9002226.02101,"773,674.32 ",.01)
 ;;674.32
 ;;9002226.02101,"773,674.32 ",.02)
 ;;674.32
 ;;9002226.02101,"773,674.34 ",.01)
 ;;674.34
 ;;9002226.02101,"773,674.34 ",.02)
 ;;674.34
 ;;9002226.02101,"773,674.4 ",.01)
 ;;674.4
 ;;9002226.02101,"773,674.4 ",.02)
 ;;674.4
 ;;9002226.02101,"773,674.40 ",.01)
 ;;674.40
 ;;9002226.02101,"773,674.40 ",.02)
 ;;674.40
 ;;9002226.02101,"773,674.42 ",.01)
 ;;674.42
 ;;9002226.02101,"773,674.42 ",.02)
 ;;674.42
 ;;9002226.02101,"773,674.44 ",.01)
 ;;674.44
 ;;9002226.02101,"773,674.44 ",.02)
 ;;674.44
 ;;9002226.02101,"773,674.5 ",.01)
 ;;674.5
 ;;9002226.02101,"773,674.5 ",.02)
 ;;674.5
 ;;9002226.02101,"773,674.50 ",.01)
 ;;674.50
 ;;9002226.02101,"773,674.50 ",.02)
 ;;674.50
 ;;9002226.02101,"773,674.51 ",.01)
 ;;674.51
 ;;9002226.02101,"773,674.51 ",.02)
 ;;674.51
 ;;9002226.02101,"773,674.52 ",.01)
 ;;674.52
 ;;9002226.02101,"773,674.52 ",.02)
 ;;674.52
 ;;9002226.02101,"773,674.53 ",.01)
 ;;674.53
 ;;9002226.02101,"773,674.53 ",.02)
 ;;674.53
 ;;9002226.02101,"773,674.54 ",.01)
 ;;674.54
 ;;9002226.02101,"773,674.54 ",.02)
 ;;674.54
 ;;9002226.02101,"773,674.8 ",.01)
 ;;674.8
 ;;9002226.02101,"773,674.8 ",.02)
 ;;674.8
 ;;9002226.02101,"773,674.80 ",.01)
 ;;674.80
 ;;9002226.02101,"773,674.80 ",.02)
 ;;674.80
 ;;9002226.02101,"773,674.82 ",.01)
 ;;674.82
 ;;9002226.02101,"773,674.82 ",.02)
 ;;674.82
 ;;9002226.02101,"773,674.84 ",.01)
 ;;674.84
 ;;9002226.02101,"773,674.84 ",.02)
 ;;674.84
 ;;9002226.02101,"773,674.9 ",.01)
 ;;674.9
 ;;9002226.02101,"773,674.9 ",.02)
 ;;674.9
 ;;9002226.02101,"773,674.90 ",.01)
 ;;674.90
 ;;9002226.02101,"773,674.90 ",.02)
 ;;674.90
 ;;9002226.02101,"773,674.92 ",.01)
 ;;674.92
 ;;9002226.02101,"773,674.92 ",.02)
 ;;674.92
 ;;9002226.02101,"773,674.94 ",.01)
 ;;674.94
 ;;9002226.02101,"773,674.94 ",.02)
 ;;674.94
 ;;9002226.02101,"773,675 ",.01)
 ;;675
 ;;9002226.02101,"773,675 ",.02)
 ;;675
 ;;9002226.02101,"773,675.0 ",.01)
 ;;675.0
 ;;9002226.02101,"773,675.0 ",.02)
 ;;675.0
 ;;9002226.02101,"773,675.00 ",.01)
 ;;675.00
 ;;9002226.02101,"773,675.00 ",.02)
 ;;675.00
 ;;9002226.02101,"773,675.01 ",.01)
 ;;675.01
 ;;9002226.02101,"773,675.01 ",.02)
 ;;675.01
 ;;9002226.02101,"773,675.02 ",.01)
 ;;675.02
 ;;9002226.02101,"773,675.02 ",.02)
 ;;675.02
 ;;9002226.02101,"773,675.03 ",.01)
 ;;675.03
 ;;9002226.02101,"773,675.03 ",.02)
 ;;675.03
 ;;9002226.02101,"773,675.04 ",.01)
 ;;675.04
 ;;9002226.02101,"773,675.04 ",.02)
 ;;675.04
 ;;9002226.02101,"773,675.1 ",.01)
 ;;675.1
 ;;9002226.02101,"773,675.1 ",.02)
 ;;675.1
 ;;9002226.02101,"773,675.10 ",.01)
 ;;675.10
 ;;9002226.02101,"773,675.10 ",.02)
 ;;675.10
 ;;9002226.02101,"773,675.11 ",.01)
 ;;675.11
 ;;9002226.02101,"773,675.11 ",.02)
 ;;675.11
 ;;9002226.02101,"773,675.12 ",.01)
 ;;675.12
 ;;9002226.02101,"773,675.12 ",.02)
 ;;675.12
 ;;9002226.02101,"773,675.13 ",.01)
 ;;675.13
 ;;9002226.02101,"773,675.13 ",.02)
 ;;675.13
 ;;9002226.02101,"773,675.14 ",.01)
 ;;675.14
 ;;9002226.02101,"773,675.14 ",.02)
 ;;675.14
 ;;9002226.02101,"773,675.2 ",.01)
 ;;675.2
 ;;9002226.02101,"773,675.2 ",.02)
 ;;675.2
 ;;9002226.02101,"773,675.20 ",.01)
 ;;675.20
 ;;9002226.02101,"773,675.20 ",.02)
 ;;675.20
 ;;9002226.02101,"773,675.21 ",.01)
 ;;675.21
 ;;9002226.02101,"773,675.21 ",.02)
 ;;675.21
 ;;9002226.02101,"773,675.22 ",.01)
 ;;675.22
 ;;9002226.02101,"773,675.22 ",.02)
 ;;675.22
 ;;9002226.02101,"773,675.23 ",.01)
 ;;675.23
 ;;9002226.02101,"773,675.23 ",.02)
 ;;675.23
 ;;9002226.02101,"773,675.24 ",.01)
 ;;675.24
 ;;9002226.02101,"773,675.24 ",.02)
 ;;675.24
 ;;9002226.02101,"773,675.8 ",.01)
 ;;675.8
 ;;9002226.02101,"773,675.8 ",.02)
 ;;675.8
 ;;9002226.02101,"773,675.80 ",.01)
 ;;675.80
 ;;9002226.02101,"773,675.80 ",.02)
 ;;675.80
 ;;9002226.02101,"773,675.81 ",.01)
 ;;675.81
 ;;9002226.02101,"773,675.81 ",.02)
 ;;675.81
 ;;9002226.02101,"773,675.82 ",.01)
 ;;675.82
 ;;9002226.02101,"773,675.82 ",.02)
 ;;675.82
 ;;9002226.02101,"773,675.83 ",.01)
 ;;675.83
 ;;9002226.02101,"773,675.83 ",.02)
 ;;675.83
 ;;9002226.02101,"773,675.84 ",.01)
 ;;675.84
 ;;9002226.02101,"773,675.84 ",.02)
 ;;675.84
 ;;9002226.02101,"773,675.9 ",.01)
 ;;675.9
 ;;9002226.02101,"773,675.9 ",.02)
 ;;675.9
 ;;9002226.02101,"773,675.90 ",.01)
 ;;675.90
 ;;9002226.02101,"773,675.90 ",.02)
 ;;675.90
 ;;9002226.02101,"773,675.91 ",.01)
 ;;675.91
 ;;9002226.02101,"773,675.91 ",.02)
 ;;675.91
 ;;9002226.02101,"773,675.92 ",.01)
 ;;675.92
 ;;9002226.02101,"773,675.92 ",.02)
 ;;675.92
 ;;9002226.02101,"773,675.93 ",.01)
 ;;675.93
 ;;9002226.02101,"773,675.93 ",.02)
 ;;675.93
 ;;9002226.02101,"773,675.94 ",.01)
 ;;675.94
 ;;9002226.02101,"773,675.94 ",.02)
 ;;675.94
 ;;9002226.02101,"773,676 ",.01)
 ;;676
 ;;9002226.02101,"773,676 ",.02)
 ;;676
 ;;9002226.02101,"773,676.0 ",.01)
 ;;676.0
 ;;9002226.02101,"773,676.0 ",.02)
 ;;676.0
 ;;9002226.02101,"773,676.00 ",.01)
 ;;676.00
 ;;9002226.02101,"773,676.00 ",.02)
 ;;676.00
 ;;9002226.02101,"773,676.01 ",.01)
 ;;676.01
 ;;9002226.02101,"773,676.01 ",.02)
 ;;676.01
 ;;9002226.02101,"773,676.02 ",.01)
 ;;676.02
 ;;9002226.02101,"773,676.02 ",.02)
 ;;676.02
 ;;9002226.02101,"773,676.03 ",.01)
 ;;676.03
 ;;9002226.02101,"773,676.03 ",.02)
 ;;676.03
 ;;9002226.02101,"773,676.04 ",.01)
 ;;676.04
 ;;9002226.02101,"773,676.04 ",.02)
 ;;676.04
 ;;9002226.02101,"773,676.1 ",.01)
 ;;676.1
 ;;9002226.02101,"773,676.1 ",.02)
 ;;676.1
 ;;9002226.02101,"773,676.10 ",.01)
 ;;676.10
 ;;9002226.02101,"773,676.10 ",.02)
 ;;676.10
 ;;9002226.02101,"773,676.11 ",.01)
 ;;676.11
 ;;9002226.02101,"773,676.11 ",.02)
 ;;676.11
 ;;9002226.02101,"773,676.12 ",.01)
 ;;676.12
 ;;9002226.02101,"773,676.12 ",.02)
 ;;676.12
 ;;9002226.02101,"773,676.13 ",.01)
 ;;676.13
 ;;9002226.02101,"773,676.13 ",.02)
 ;;676.13
 ;;9002226.02101,"773,676.14 ",.01)
 ;;676.14
 ;;9002226.02101,"773,676.14 ",.02)
 ;;676.14
 ;;9002226.02101,"773,676.2 ",.01)
 ;;676.2
 ;;9002226.02101,"773,676.2 ",.02)
 ;;676.2
 ;;9002226.02101,"773,676.20 ",.01)
 ;;676.20
 ;;9002226.02101,"773,676.20 ",.02)
 ;;676.20
 ;;9002226.02101,"773,676.21 ",.01)
 ;;676.21
 ;;9002226.02101,"773,676.21 ",.02)
 ;;676.21
 ;;9002226.02101,"773,676.22 ",.01)
 ;;676.22
 ;;9002226.02101,"773,676.22 ",.02)
 ;;676.22
 ;;9002226.02101,"773,676.23 ",.01)
 ;;676.23
 ;;9002226.02101,"773,676.23 ",.02)
 ;;676.23
 ;;9002226.02101,"773,676.24 ",.01)
 ;;676.24
 ;;9002226.02101,"773,676.24 ",.02)
 ;;676.24
 ;;9002226.02101,"773,676.3 ",.01)
 ;;676.3
 ;;9002226.02101,"773,676.3 ",.02)
 ;;676.3
 ;;9002226.02101,"773,676.30 ",.01)
 ;;676.30
 ;;9002226.02101,"773,676.30 ",.02)
 ;;676.30
 ;;9002226.02101,"773,676.31 ",.01)
 ;;676.31
 ;;9002226.02101,"773,676.31 ",.02)
 ;;676.31
 ;;9002226.02101,"773,676.32 ",.01)
 ;;676.32
 ;;9002226.02101,"773,676.32 ",.02)
 ;;676.32
 ;;9002226.02101,"773,676.33 ",.01)
 ;;676.33
 ;;9002226.02101,"773,676.33 ",.02)
 ;;676.33
 ;;9002226.02101,"773,676.34 ",.01)
 ;;676.34
 ;;9002226.02101,"773,676.34 ",.02)
 ;;676.34
 ;;9002226.02101,"773,676.4 ",.01)
 ;;676.4
 ;;9002226.02101,"773,676.4 ",.02)
 ;;676.4
 ;;9002226.02101,"773,676.40 ",.01)
 ;;676.40
 ;;9002226.02101,"773,676.40 ",.02)
 ;;676.40
 ;;9002226.02101,"773,676.41 ",.01)
 ;;676.41
 ;;9002226.02101,"773,676.41 ",.02)
 ;;676.41
 ;;9002226.02101,"773,676.42 ",.01)
 ;;676.42
 ;;9002226.02101,"773,676.42 ",.02)
 ;;676.42
 ;;9002226.02101,"773,676.43 ",.01)
 ;;676.43
 ;;9002226.02101,"773,676.43 ",.02)
 ;;676.43
 ;;9002226.02101,"773,676.44 ",.01)
 ;;676.44
 ;;9002226.02101,"773,676.44 ",.02)
 ;;676.44
 ;;9002226.02101,"773,676.5 ",.01)
 ;;676.5
 ;;9002226.02101,"773,676.5 ",.02)
 ;;676.5
 ;;9002226.02101,"773,676.50 ",.01)
 ;;676.50
 ;;9002226.02101,"773,676.50 ",.02)
 ;;676.50
 ;;9002226.02101,"773,676.51 ",.01)
 ;;676.51
 ;;9002226.02101,"773,676.51 ",.02)
 ;;676.51
 ;;9002226.02101,"773,676.52 ",.01)
 ;;676.52
 ;;9002226.02101,"773,676.52 ",.02)
 ;;676.52
 ;;9002226.02101,"773,676.53 ",.01)
 ;;676.53
 ;;9002226.02101,"773,676.53 ",.02)
 ;;676.53
 ;;9002226.02101,"773,676.54 ",.01)
 ;;676.54
 ;;9002226.02101,"773,676.54 ",.02)
 ;;676.54
 ;;9002226.02101,"773,676.6 ",.01)
 ;;676.6
 ;;9002226.02101,"773,676.6 ",.02)
 ;;676.6
 ;;9002226.02101,"773,676.60 ",.01)
 ;;676.60
 ;;9002226.02101,"773,676.60 ",.02)
 ;;676.60
 ;;9002226.02101,"773,676.61 ",.01)
 ;;676.61
 ;;9002226.02101,"773,676.61 ",.02)
 ;;676.61
 ;;9002226.02101,"773,676.62 ",.01)
 ;;676.62
 ;;9002226.02101,"773,676.62 ",.02)
 ;;676.62
 ;;9002226.02101,"773,676.63 ",.01)
 ;;676.63
 ;;9002226.02101,"773,676.63 ",.02)
 ;;676.63
 ;;9002226.02101,"773,676.64 ",.01)
 ;;676.64
 ;;9002226.02101,"773,676.64 ",.02)
 ;;676.64
 ;;9002226.02101,"773,676.8 ",.01)
 ;;676.8
 ;;9002226.02101,"773,676.8 ",.02)
 ;;676.8
 ;;9002226.02101,"773,676.80 ",.01)
 ;;676.80
 ;;9002226.02101,"773,676.80 ",.02)
 ;;676.80
 ;;9002226.02101,"773,676.81 ",.01)
 ;;676.81
 ;;9002226.02101,"773,676.81 ",.02)
 ;;676.81
 ;;9002226.02101,"773,676.82 ",.01)
 ;;676.82
 ;;9002226.02101,"773,676.82 ",.02)
 ;;676.82
 ;;9002226.02101,"773,676.83 ",.01)
 ;;676.83
 ;;9002226.02101,"773,676.83 ",.02)
 ;;676.83
 ;;9002226.02101,"773,676.84 ",.01)
 ;;676.84
 ;;9002226.02101,"773,676.84 ",.02)
 ;;676.84
 ;;9002226.02101,"773,676.9 ",.01)
 ;;676.9
 ;;9002226.02101,"773,676.9 ",.02)
 ;;676.9
 ;;9002226.02101,"773,676.90 ",.01)
 ;;676.90
 ;;9002226.02101,"773,676.90 ",.02)
 ;;676.90
 ;;9002226.02101,"773,676.91 ",.01)
 ;;676.91
 ;;9002226.02101,"773,676.91 ",.02)
 ;;676.91
 ;;9002226.02101,"773,676.92 ",.01)
 ;;676.92
 ;;9002226.02101,"773,676.92 ",.02)
 ;;676.92
 ;;9002226.02101,"773,676.93 ",.01)
 ;;676.93
 ;;9002226.02101,"773,676.93 ",.02)
 ;;676.93
 ;;9002226.02101,"773,676.94 ",.01)
 ;;676.94
 ;;9002226.02101,"773,676.94 ",.02)
 ;;676.94
 ;;9002226.02101,"773,677 ",.01)
 ;;677
 ;;9002226.02101,"773,677 ",.02)
 ;;677
 ;;9002226.02101,"773,678 ",.01)
 ;;678
 ;;9002226.02101,"773,678 ",.02)
 ;;678
 ;;9002226.02101,"773,678.0 ",.01)
 ;;678.0
 ;;9002226.02101,"773,678.0 ",.02)
 ;;678.0
 ;;9002226.02101,"773,678.00 ",.01)
 ;;678.00
 ;;9002226.02101,"773,678.00 ",.02)
 ;;678.00
 ;;9002226.02101,"773,678.01 ",.01)
 ;;678.01
 ;;9002226.02101,"773,678.01 ",.02)
 ;;678.01
 ;;9002226.02101,"773,678.03 ",.01)
 ;;678.03
 ;;9002226.02101,"773,678.03 ",.02)
 ;;678.03
 ;;9002226.02101,"773,678.1 ",.01)
 ;;678.1
 ;;9002226.02101,"773,678.1 ",.02)
 ;;678.1
 ;;9002226.02101,"773,678.10 ",.01)
 ;;678.10
 ;;9002226.02101,"773,678.10 ",.02)
 ;;678.10
 ;;9002226.02101,"773,678.11 ",.01)
 ;;678.11
 ;;9002226.02101,"773,678.11 ",.02)
 ;;678.11
 ;;9002226.02101,"773,678.13 ",.01)
 ;;678.13
 ;;9002226.02101,"773,678.13 ",.02)
 ;;678.13
 ;;9002226.02101,"773,679 ",.01)
 ;;679
 ;;9002226.02101,"773,679 ",.02)
 ;;679
 ;;9002226.02101,"773,679.0 ",.01)
 ;;679.0
 ;;9002226.02101,"773,679.0 ",.02)
 ;;679.0
 ;;9002226.02101,"773,679.00 ",.01)
 ;;679.00
 ;;9002226.02101,"773,679.00 ",.02)
 ;;679.00