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

BGPMBTXU.m

Go to the documentation of this file.
BGPMBTXU ;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,668.24 ",.01)
 ;;668.24
 ;;9002226.02101,"773,668.24 ",.02)
 ;;668.24
 ;;9002226.02101,"773,668.8 ",.01)
 ;;668.8
 ;;9002226.02101,"773,668.8 ",.02)
 ;;668.8
 ;;9002226.02101,"773,668.80 ",.01)
 ;;668.80
 ;;9002226.02101,"773,668.80 ",.02)
 ;;668.80
 ;;9002226.02101,"773,668.81 ",.01)
 ;;668.81
 ;;9002226.02101,"773,668.81 ",.02)
 ;;668.81
 ;;9002226.02101,"773,668.82 ",.01)
 ;;668.82
 ;;9002226.02101,"773,668.82 ",.02)
 ;;668.82
 ;;9002226.02101,"773,668.83 ",.01)
 ;;668.83
 ;;9002226.02101,"773,668.83 ",.02)
 ;;668.83
 ;;9002226.02101,"773,668.84 ",.01)
 ;;668.84
 ;;9002226.02101,"773,668.84 ",.02)
 ;;668.84
 ;;9002226.02101,"773,668.9 ",.01)
 ;;668.9
 ;;9002226.02101,"773,668.9 ",.02)
 ;;668.9
 ;;9002226.02101,"773,668.90 ",.01)
 ;;668.90
 ;;9002226.02101,"773,668.90 ",.02)
 ;;668.90
 ;;9002226.02101,"773,668.91 ",.01)
 ;;668.91
 ;;9002226.02101,"773,668.91 ",.02)
 ;;668.91
 ;;9002226.02101,"773,668.92 ",.01)
 ;;668.92
 ;;9002226.02101,"773,668.92 ",.02)
 ;;668.92
 ;;9002226.02101,"773,668.93 ",.01)
 ;;668.93
 ;;9002226.02101,"773,668.93 ",.02)
 ;;668.93
 ;;9002226.02101,"773,668.94 ",.01)
 ;;668.94
 ;;9002226.02101,"773,668.94 ",.02)
 ;;668.94
 ;;9002226.02101,"773,669 ",.01)
 ;;669
 ;;9002226.02101,"773,669 ",.02)
 ;;669
 ;;9002226.02101,"773,669.0 ",.01)
 ;;669.0
 ;;9002226.02101,"773,669.0 ",.02)
 ;;669.0
 ;;9002226.02101,"773,669.00 ",.01)
 ;;669.00
 ;;9002226.02101,"773,669.00 ",.02)
 ;;669.00
 ;;9002226.02101,"773,669.01 ",.01)
 ;;669.01
 ;;9002226.02101,"773,669.01 ",.02)
 ;;669.01
 ;;9002226.02101,"773,669.02 ",.01)
 ;;669.02
 ;;9002226.02101,"773,669.02 ",.02)
 ;;669.02
 ;;9002226.02101,"773,669.03 ",.01)
 ;;669.03
 ;;9002226.02101,"773,669.03 ",.02)
 ;;669.03
 ;;9002226.02101,"773,669.04 ",.01)
 ;;669.04
 ;;9002226.02101,"773,669.04 ",.02)
 ;;669.04
 ;;9002226.02101,"773,669.1 ",.01)
 ;;669.1
 ;;9002226.02101,"773,669.1 ",.02)
 ;;669.1
 ;;9002226.02101,"773,669.10 ",.01)
 ;;669.10
 ;;9002226.02101,"773,669.10 ",.02)
 ;;669.10
 ;;9002226.02101,"773,669.11 ",.01)
 ;;669.11
 ;;9002226.02101,"773,669.11 ",.02)
 ;;669.11
 ;;9002226.02101,"773,669.12 ",.01)
 ;;669.12
 ;;9002226.02101,"773,669.12 ",.02)
 ;;669.12
 ;;9002226.02101,"773,669.13 ",.01)
 ;;669.13
 ;;9002226.02101,"773,669.13 ",.02)
 ;;669.13
 ;;9002226.02101,"773,669.14 ",.01)
 ;;669.14
 ;;9002226.02101,"773,669.14 ",.02)
 ;;669.14
 ;;9002226.02101,"773,669.2 ",.01)
 ;;669.2
 ;;9002226.02101,"773,669.2 ",.02)
 ;;669.2
 ;;9002226.02101,"773,669.20 ",.01)
 ;;669.20
 ;;9002226.02101,"773,669.20 ",.02)
 ;;669.20
 ;;9002226.02101,"773,669.21 ",.01)
 ;;669.21
 ;;9002226.02101,"773,669.21 ",.02)
 ;;669.21
 ;;9002226.02101,"773,669.22 ",.01)
 ;;669.22
 ;;9002226.02101,"773,669.22 ",.02)
 ;;669.22
 ;;9002226.02101,"773,669.23 ",.01)
 ;;669.23
 ;;9002226.02101,"773,669.23 ",.02)
 ;;669.23
 ;;9002226.02101,"773,669.24 ",.01)
 ;;669.24
 ;;9002226.02101,"773,669.24 ",.02)
 ;;669.24
 ;;9002226.02101,"773,669.3 ",.01)
 ;;669.3
 ;;9002226.02101,"773,669.3 ",.02)
 ;;669.3
 ;;9002226.02101,"773,669.30 ",.01)
 ;;669.30
 ;;9002226.02101,"773,669.30 ",.02)
 ;;669.30
 ;;9002226.02101,"773,669.32 ",.01)
 ;;669.32
 ;;9002226.02101,"773,669.32 ",.02)
 ;;669.32
 ;;9002226.02101,"773,669.34 ",.01)
 ;;669.34
 ;;9002226.02101,"773,669.34 ",.02)
 ;;669.34
 ;;9002226.02101,"773,669.4 ",.01)
 ;;669.4
 ;;9002226.02101,"773,669.4 ",.02)
 ;;669.4
 ;;9002226.02101,"773,669.40 ",.01)
 ;;669.40
 ;;9002226.02101,"773,669.40 ",.02)
 ;;669.40
 ;;9002226.02101,"773,669.41 ",.01)
 ;;669.41
 ;;9002226.02101,"773,669.41 ",.02)
 ;;669.41
 ;;9002226.02101,"773,669.42 ",.01)
 ;;669.42
 ;;9002226.02101,"773,669.42 ",.02)
 ;;669.42
 ;;9002226.02101,"773,669.43 ",.01)
 ;;669.43
 ;;9002226.02101,"773,669.43 ",.02)
 ;;669.43
 ;;9002226.02101,"773,669.44 ",.01)
 ;;669.44
 ;;9002226.02101,"773,669.44 ",.02)
 ;;669.44
 ;;9002226.02101,"773,669.5 ",.01)
 ;;669.5
 ;;9002226.02101,"773,669.5 ",.02)
 ;;669.5
 ;;9002226.02101,"773,669.50 ",.01)
 ;;669.50
 ;;9002226.02101,"773,669.50 ",.02)
 ;;669.50
 ;;9002226.02101,"773,669.51 ",.01)
 ;;669.51
 ;;9002226.02101,"773,669.51 ",.02)
 ;;669.51
 ;;9002226.02101,"773,669.6 ",.01)
 ;;669.6
 ;;9002226.02101,"773,669.6 ",.02)
 ;;669.6
 ;;9002226.02101,"773,669.60 ",.01)
 ;;669.60
 ;;9002226.02101,"773,669.60 ",.02)
 ;;669.60
 ;;9002226.02101,"773,669.61 ",.01)
 ;;669.61
 ;;9002226.02101,"773,669.61 ",.02)
 ;;669.61
 ;;9002226.02101,"773,669.7 ",.01)
 ;;669.7
 ;;9002226.02101,"773,669.7 ",.02)
 ;;669.7
 ;;9002226.02101,"773,669.70 ",.01)
 ;;669.70
 ;;9002226.02101,"773,669.70 ",.02)
 ;;669.70
 ;;9002226.02101,"773,669.71 ",.01)
 ;;669.71
 ;;9002226.02101,"773,669.71 ",.02)
 ;;669.71
 ;;9002226.02101,"773,669.8 ",.01)
 ;;669.8
 ;;9002226.02101,"773,669.8 ",.02)
 ;;669.8
 ;;9002226.02101,"773,669.80 ",.01)
 ;;669.80
 ;;9002226.02101,"773,669.80 ",.02)
 ;;669.80
 ;;9002226.02101,"773,669.81 ",.01)
 ;;669.81
 ;;9002226.02101,"773,669.81 ",.02)
 ;;669.81
 ;;9002226.02101,"773,669.82 ",.01)
 ;;669.82
 ;;9002226.02101,"773,669.82 ",.02)
 ;;669.82
 ;;9002226.02101,"773,669.83 ",.01)
 ;;669.83
 ;;9002226.02101,"773,669.83 ",.02)
 ;;669.83
 ;;9002226.02101,"773,669.84 ",.01)
 ;;669.84
 ;;9002226.02101,"773,669.84 ",.02)
 ;;669.84
 ;;9002226.02101,"773,669.9 ",.01)
 ;;669.9
 ;;9002226.02101,"773,669.9 ",.02)
 ;;669.9
 ;;9002226.02101,"773,669.90 ",.01)
 ;;669.90
 ;;9002226.02101,"773,669.90 ",.02)
 ;;669.90
 ;;9002226.02101,"773,669.91 ",.01)
 ;;669.91
 ;;9002226.02101,"773,669.91 ",.02)
 ;;669.91
 ;;9002226.02101,"773,669.92 ",.01)
 ;;669.92
 ;;9002226.02101,"773,669.92 ",.02)
 ;;669.92
 ;;9002226.02101,"773,669.93 ",.01)
 ;;669.93
 ;;9002226.02101,"773,669.93 ",.02)
 ;;669.93
 ;;9002226.02101,"773,669.94 ",.01)
 ;;669.94
 ;;9002226.02101,"773,669.94 ",.02)
 ;;669.94
 ;;9002226.02101,"773,670 ",.01)
 ;;670
 ;;9002226.02101,"773,670 ",.02)
 ;;670
 ;;9002226.02101,"773,670.0 ",.01)
 ;;670.0
 ;;9002226.02101,"773,670.0 ",.02)
 ;;670.0
 ;;9002226.02101,"773,670.00 ",.01)
 ;;670.00
 ;;9002226.02101,"773,670.00 ",.02)
 ;;670.00
 ;;9002226.02101,"773,670.02 ",.01)
 ;;670.02
 ;;9002226.02101,"773,670.02 ",.02)
 ;;670.02
 ;;9002226.02101,"773,670.04 ",.01)
 ;;670.04
 ;;9002226.02101,"773,670.04 ",.02)
 ;;670.04
 ;;9002226.02101,"773,671 ",.01)
 ;;671
 ;;9002226.02101,"773,671 ",.02)
 ;;671
 ;;9002226.02101,"773,671.0 ",.01)
 ;;671.0
 ;;9002226.02101,"773,671.0 ",.02)
 ;;671.0
 ;;9002226.02101,"773,671.00 ",.01)
 ;;671.00
 ;;9002226.02101,"773,671.00 ",.02)
 ;;671.00
 ;;9002226.02101,"773,671.01 ",.01)
 ;;671.01
 ;;9002226.02101,"773,671.01 ",.02)
 ;;671.01
 ;;9002226.02101,"773,671.02 ",.01)
 ;;671.02
 ;;9002226.02101,"773,671.02 ",.02)
 ;;671.02
 ;;9002226.02101,"773,671.03 ",.01)
 ;;671.03
 ;;9002226.02101,"773,671.03 ",.02)
 ;;671.03
 ;;9002226.02101,"773,671.04 ",.01)
 ;;671.04
 ;;9002226.02101,"773,671.04 ",.02)
 ;;671.04
 ;;9002226.02101,"773,671.1 ",.01)
 ;;671.1
 ;;9002226.02101,"773,671.1 ",.02)
 ;;671.1
 ;;9002226.02101,"773,671.10 ",.01)
 ;;671.10
 ;;9002226.02101,"773,671.10 ",.02)
 ;;671.10
 ;;9002226.02101,"773,671.11 ",.01)
 ;;671.11
 ;;9002226.02101,"773,671.11 ",.02)
 ;;671.11
 ;;9002226.02101,"773,671.12 ",.01)
 ;;671.12
 ;;9002226.02101,"773,671.12 ",.02)
 ;;671.12
 ;;9002226.02101,"773,671.13 ",.01)
 ;;671.13
 ;;9002226.02101,"773,671.13 ",.02)
 ;;671.13
 ;;9002226.02101,"773,671.14 ",.01)
 ;;671.14
 ;;9002226.02101,"773,671.14 ",.02)
 ;;671.14
 ;;9002226.02101,"773,671.2 ",.01)
 ;;671.2
 ;;9002226.02101,"773,671.2 ",.02)
 ;;671.2
 ;;9002226.02101,"773,671.20 ",.01)
 ;;671.20
 ;;9002226.02101,"773,671.20 ",.02)
 ;;671.20
 ;;9002226.02101,"773,671.21 ",.01)
 ;;671.21
 ;;9002226.02101,"773,671.21 ",.02)
 ;;671.21
 ;;9002226.02101,"773,671.22 ",.01)
 ;;671.22
 ;;9002226.02101,"773,671.22 ",.02)
 ;;671.22
 ;;9002226.02101,"773,671.23 ",.01)
 ;;671.23
 ;;9002226.02101,"773,671.23 ",.02)
 ;;671.23
 ;;9002226.02101,"773,671.24 ",.01)
 ;;671.24
 ;;9002226.02101,"773,671.24 ",.02)
 ;;671.24
 ;;9002226.02101,"773,671.3 ",.01)
 ;;671.3
 ;;9002226.02101,"773,671.3 ",.02)
 ;;671.3
 ;;9002226.02101,"773,671.30 ",.01)
 ;;671.30
 ;;9002226.02101,"773,671.30 ",.02)
 ;;671.30
 ;;9002226.02101,"773,671.31 ",.01)
 ;;671.31
 ;;9002226.02101,"773,671.31 ",.02)
 ;;671.31
 ;;9002226.02101,"773,671.33 ",.01)
 ;;671.33
 ;;9002226.02101,"773,671.33 ",.02)
 ;;671.33
 ;;9002226.02101,"773,671.4 ",.01)
 ;;671.4
 ;;9002226.02101,"773,671.4 ",.02)
 ;;671.4
 ;;9002226.02101,"773,671.40 ",.01)
 ;;671.40
 ;;9002226.02101,"773,671.40 ",.02)
 ;;671.40
 ;;9002226.02101,"773,671.42 ",.01)
 ;;671.42
 ;;9002226.02101,"773,671.42 ",.02)
 ;;671.42
 ;;9002226.02101,"773,671.44 ",.01)
 ;;671.44
 ;;9002226.02101,"773,671.44 ",.02)
 ;;671.44
 ;;9002226.02101,"773,671.5 ",.01)
 ;;671.5
 ;;9002226.02101,"773,671.5 ",.02)
 ;;671.5
 ;;9002226.02101,"773,671.50 ",.01)
 ;;671.50
 ;;9002226.02101,"773,671.50 ",.02)
 ;;671.50
 ;;9002226.02101,"773,671.51 ",.01)
 ;;671.51
 ;;9002226.02101,"773,671.51 ",.02)
 ;;671.51
 ;;9002226.02101,"773,671.52 ",.01)
 ;;671.52
 ;;9002226.02101,"773,671.52 ",.02)
 ;;671.52
 ;;9002226.02101,"773,671.53 ",.01)
 ;;671.53
 ;;9002226.02101,"773,671.53 ",.02)
 ;;671.53
 ;;9002226.02101,"773,671.54 ",.01)
 ;;671.54
 ;;9002226.02101,"773,671.54 ",.02)
 ;;671.54
 ;;9002226.02101,"773,671.8 ",.01)
 ;;671.8
 ;;9002226.02101,"773,671.8 ",.02)
 ;;671.8
 ;;9002226.02101,"773,671.80 ",.01)
 ;;671.80
 ;;9002226.02101,"773,671.80 ",.02)
 ;;671.80
 ;;9002226.02101,"773,671.81 ",.01)
 ;;671.81
 ;;9002226.02101,"773,671.81 ",.02)
 ;;671.81
 ;;9002226.02101,"773,671.82 ",.01)
 ;;671.82
 ;;9002226.02101,"773,671.82 ",.02)
 ;;671.82
 ;;9002226.02101,"773,671.83 ",.01)
 ;;671.83
 ;;9002226.02101,"773,671.83 ",.02)
 ;;671.83
 ;;9002226.02101,"773,671.84 ",.01)
 ;;671.84
 ;;9002226.02101,"773,671.84 ",.02)
 ;;671.84
 ;;9002226.02101,"773,671.9 ",.01)
 ;;671.9
 ;;9002226.02101,"773,671.9 ",.02)
 ;;671.9
 ;;9002226.02101,"773,671.90 ",.01)
 ;;671.90
 ;;9002226.02101,"773,671.90 ",.02)
 ;;671.90
 ;;9002226.02101,"773,671.91 ",.01)
 ;;671.91
 ;;9002226.02101,"773,671.91 ",.02)
 ;;671.91
 ;;9002226.02101,"773,671.92 ",.01)
 ;;671.92
 ;;9002226.02101,"773,671.92 ",.02)
 ;;671.92
 ;;9002226.02101,"773,671.93 ",.01)
 ;;671.93
 ;;9002226.02101,"773,671.93 ",.02)
 ;;671.93
 ;;9002226.02101,"773,671.94 ",.01)
 ;;671.94
 ;;9002226.02101,"773,671.94 ",.02)
 ;;671.94
 ;;9002226.02101,"773,672 ",.01)
 ;;672
 ;;9002226.02101,"773,672 ",.02)
 ;;672
 ;;9002226.02101,"773,672.0 ",.01)
 ;;672.0
 ;;9002226.02101,"773,672.0 ",.02)
 ;;672.0
 ;;9002226.02101,"773,672.00 ",.01)
 ;;672.00
 ;;9002226.02101,"773,672.00 ",.02)
 ;;672.00
 ;;9002226.02101,"773,672.02 ",.01)
 ;;672.02
 ;;9002226.02101,"773,672.02 ",.02)
 ;;672.02
 ;;9002226.02101,"773,672.04 ",.01)
 ;;672.04
 ;;9002226.02101,"773,672.04 ",.02)
 ;;672.04
 ;;9002226.02101,"773,673 ",.01)
 ;;673
 ;;9002226.02101,"773,673 ",.02)
 ;;673
 ;;9002226.02101,"773,673.0 ",.01)
 ;;673.0
 ;;9002226.02101,"773,673.0 ",.02)
 ;;673.0
 ;;9002226.02101,"773,673.00 ",.01)
 ;;673.00
 ;;9002226.02101,"773,673.00 ",.02)
 ;;673.00
 ;;9002226.02101,"773,673.01 ",.01)
 ;;673.01
 ;;9002226.02101,"773,673.01 ",.02)
 ;;673.01
 ;;9002226.02101,"773,673.02 ",.01)
 ;;673.02
 ;;9002226.02101,"773,673.02 ",.02)
 ;;673.02
 ;;9002226.02101,"773,673.03 ",.01)
 ;;673.03
 ;;9002226.02101,"773,673.03 ",.02)
 ;;673.03
 ;;9002226.02101,"773,673.04 ",.01)
 ;;673.04
 ;;9002226.02101,"773,673.04 ",.02)
 ;;673.04
 ;;9002226.02101,"773,673.1 ",.01)
 ;;673.1
 ;;9002226.02101,"773,673.1 ",.02)
 ;;673.1
 ;;9002226.02101,"773,673.10 ",.01)
 ;;673.10
 ;;9002226.02101,"773,673.10 ",.02)
 ;;673.10
 ;;9002226.02101,"773,673.11 ",.01)
 ;;673.11
 ;;9002226.02101,"773,673.11 ",.02)
 ;;673.11
 ;;9002226.02101,"773,673.12 ",.01)
 ;;673.12
 ;;9002226.02101,"773,673.12 ",.02)
 ;;673.12
 ;;9002226.02101,"773,673.13 ",.01)
 ;;673.13
 ;;9002226.02101,"773,673.13 ",.02)
 ;;673.13
 ;;9002226.02101,"773,673.14 ",.01)
 ;;673.14
 ;;9002226.02101,"773,673.14 ",.02)
 ;;673.14
 ;;9002226.02101,"773,673.2 ",.01)
 ;;673.2
 ;;9002226.02101,"773,673.2 ",.02)
 ;;673.2
 ;;9002226.02101,"773,673.20 ",.01)
 ;;673.20
 ;;9002226.02101,"773,673.20 ",.02)
 ;;673.20
 ;;9002226.02101,"773,673.21 ",.01)
 ;;673.21
 ;;9002226.02101,"773,673.21 ",.02)
 ;;673.21
 ;;9002226.02101,"773,673.22 ",.01)
 ;;673.22
 ;;9002226.02101,"773,673.22 ",.02)
 ;;673.22
 ;;9002226.02101,"773,673.23 ",.01)
 ;;673.23
 ;;9002226.02101,"773,673.23 ",.02)
 ;;673.23
 ;;9002226.02101,"773,673.24 ",.01)
 ;;673.24
 ;;9002226.02101,"773,673.24 ",.02)
 ;;673.24
 ;;9002226.02101,"773,673.3 ",.01)
 ;;673.3
 ;;9002226.02101,"773,673.3 ",.02)
 ;;673.3
 ;;9002226.02101,"773,673.30 ",.01)
 ;;673.30
 ;;9002226.02101,"773,673.30 ",.02)
 ;;673.30
 ;;9002226.02101,"773,673.31 ",.01)
 ;;673.31
 ;;9002226.02101,"773,673.31 ",.02)
 ;;673.31
 ;;9002226.02101,"773,673.32 ",.01)
 ;;673.32
 ;;9002226.02101,"773,673.32 ",.02)
 ;;673.32
 ;;9002226.02101,"773,673.33 ",.01)
 ;;673.33
 ;;9002226.02101,"773,673.33 ",.02)
 ;;673.33
 ;;9002226.02101,"773,673.34 ",.01)
 ;;673.34