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

BGPMBTXR.m

Go to the documentation of this file.
BGPMBTXR ;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,654.53 ",.01)
 ;;654.53
 ;;9002226.02101,"773,654.53 ",.02)
 ;;654.53
 ;;9002226.02101,"773,654.54 ",.01)
 ;;654.54
 ;;9002226.02101,"773,654.54 ",.02)
 ;;654.54
 ;;9002226.02101,"773,654.6 ",.01)
 ;;654.6
 ;;9002226.02101,"773,654.6 ",.02)
 ;;654.6
 ;;9002226.02101,"773,654.60 ",.01)
 ;;654.60
 ;;9002226.02101,"773,654.60 ",.02)
 ;;654.60
 ;;9002226.02101,"773,654.61 ",.01)
 ;;654.61
 ;;9002226.02101,"773,654.61 ",.02)
 ;;654.61
 ;;9002226.02101,"773,654.62 ",.01)
 ;;654.62
 ;;9002226.02101,"773,654.62 ",.02)
 ;;654.62
 ;;9002226.02101,"773,654.63 ",.01)
 ;;654.63
 ;;9002226.02101,"773,654.63 ",.02)
 ;;654.63
 ;;9002226.02101,"773,654.64 ",.01)
 ;;654.64
 ;;9002226.02101,"773,654.64 ",.02)
 ;;654.64
 ;;9002226.02101,"773,654.7 ",.01)
 ;;654.7
 ;;9002226.02101,"773,654.7 ",.02)
 ;;654.7
 ;;9002226.02101,"773,654.70 ",.01)
 ;;654.70
 ;;9002226.02101,"773,654.70 ",.02)
 ;;654.70
 ;;9002226.02101,"773,654.71 ",.01)
 ;;654.71
 ;;9002226.02101,"773,654.71 ",.02)
 ;;654.71
 ;;9002226.02101,"773,654.72 ",.01)
 ;;654.72
 ;;9002226.02101,"773,654.72 ",.02)
 ;;654.72
 ;;9002226.02101,"773,654.73 ",.01)
 ;;654.73
 ;;9002226.02101,"773,654.73 ",.02)
 ;;654.73
 ;;9002226.02101,"773,654.74 ",.01)
 ;;654.74
 ;;9002226.02101,"773,654.74 ",.02)
 ;;654.74
 ;;9002226.02101,"773,654.8 ",.01)
 ;;654.8
 ;;9002226.02101,"773,654.8 ",.02)
 ;;654.8
 ;;9002226.02101,"773,654.80 ",.01)
 ;;654.80
 ;;9002226.02101,"773,654.80 ",.02)
 ;;654.80
 ;;9002226.02101,"773,654.81 ",.01)
 ;;654.81
 ;;9002226.02101,"773,654.81 ",.02)
 ;;654.81
 ;;9002226.02101,"773,654.82 ",.01)
 ;;654.82
 ;;9002226.02101,"773,654.82 ",.02)
 ;;654.82
 ;;9002226.02101,"773,654.83 ",.01)
 ;;654.83
 ;;9002226.02101,"773,654.83 ",.02)
 ;;654.83
 ;;9002226.02101,"773,654.84 ",.01)
 ;;654.84
 ;;9002226.02101,"773,654.84 ",.02)
 ;;654.84
 ;;9002226.02101,"773,654.9 ",.01)
 ;;654.9
 ;;9002226.02101,"773,654.9 ",.02)
 ;;654.9
 ;;9002226.02101,"773,654.90 ",.01)
 ;;654.90
 ;;9002226.02101,"773,654.90 ",.02)
 ;;654.90
 ;;9002226.02101,"773,654.91 ",.01)
 ;;654.91
 ;;9002226.02101,"773,654.91 ",.02)
 ;;654.91
 ;;9002226.02101,"773,654.92 ",.01)
 ;;654.92
 ;;9002226.02101,"773,654.92 ",.02)
 ;;654.92
 ;;9002226.02101,"773,654.93 ",.01)
 ;;654.93
 ;;9002226.02101,"773,654.93 ",.02)
 ;;654.93
 ;;9002226.02101,"773,654.94 ",.01)
 ;;654.94
 ;;9002226.02101,"773,654.94 ",.02)
 ;;654.94
 ;;9002226.02101,"773,655 ",.01)
 ;;655
 ;;9002226.02101,"773,655 ",.02)
 ;;655
 ;;9002226.02101,"773,655.0 ",.01)
 ;;655.0
 ;;9002226.02101,"773,655.0 ",.02)
 ;;655.0
 ;;9002226.02101,"773,655.00 ",.01)
 ;;655.00
 ;;9002226.02101,"773,655.00 ",.02)
 ;;655.00
 ;;9002226.02101,"773,655.01 ",.01)
 ;;655.01
 ;;9002226.02101,"773,655.01 ",.02)
 ;;655.01
 ;;9002226.02101,"773,655.03 ",.01)
 ;;655.03
 ;;9002226.02101,"773,655.03 ",.02)
 ;;655.03
 ;;9002226.02101,"773,655.1 ",.01)
 ;;655.1
 ;;9002226.02101,"773,655.1 ",.02)
 ;;655.1
 ;;9002226.02101,"773,655.10 ",.01)
 ;;655.10
 ;;9002226.02101,"773,655.10 ",.02)
 ;;655.10
 ;;9002226.02101,"773,655.11 ",.01)
 ;;655.11
 ;;9002226.02101,"773,655.11 ",.02)
 ;;655.11
 ;;9002226.02101,"773,655.13 ",.01)
 ;;655.13
 ;;9002226.02101,"773,655.13 ",.02)
 ;;655.13
 ;;9002226.02101,"773,655.2 ",.01)
 ;;655.2
 ;;9002226.02101,"773,655.2 ",.02)
 ;;655.2
 ;;9002226.02101,"773,655.20 ",.01)
 ;;655.20
 ;;9002226.02101,"773,655.20 ",.02)
 ;;655.20
 ;;9002226.02101,"773,655.21 ",.01)
 ;;655.21
 ;;9002226.02101,"773,655.21 ",.02)
 ;;655.21
 ;;9002226.02101,"773,655.23 ",.01)
 ;;655.23
 ;;9002226.02101,"773,655.23 ",.02)
 ;;655.23
 ;;9002226.02101,"773,655.3 ",.01)
 ;;655.3
 ;;9002226.02101,"773,655.3 ",.02)
 ;;655.3
 ;;9002226.02101,"773,655.30 ",.01)
 ;;655.30
 ;;9002226.02101,"773,655.30 ",.02)
 ;;655.30
 ;;9002226.02101,"773,655.31 ",.01)
 ;;655.31
 ;;9002226.02101,"773,655.31 ",.02)
 ;;655.31
 ;;9002226.02101,"773,655.33 ",.01)
 ;;655.33
 ;;9002226.02101,"773,655.33 ",.02)
 ;;655.33
 ;;9002226.02101,"773,655.4 ",.01)
 ;;655.4
 ;;9002226.02101,"773,655.4 ",.02)
 ;;655.4
 ;;9002226.02101,"773,655.40 ",.01)
 ;;655.40
 ;;9002226.02101,"773,655.40 ",.02)
 ;;655.40
 ;;9002226.02101,"773,655.41 ",.01)
 ;;655.41
 ;;9002226.02101,"773,655.41 ",.02)
 ;;655.41
 ;;9002226.02101,"773,655.43 ",.01)
 ;;655.43
 ;;9002226.02101,"773,655.43 ",.02)
 ;;655.43
 ;;9002226.02101,"773,655.5 ",.01)
 ;;655.5
 ;;9002226.02101,"773,655.5 ",.02)
 ;;655.5
 ;;9002226.02101,"773,655.50 ",.01)
 ;;655.50
 ;;9002226.02101,"773,655.50 ",.02)
 ;;655.50
 ;;9002226.02101,"773,655.51 ",.01)
 ;;655.51
 ;;9002226.02101,"773,655.51 ",.02)
 ;;655.51
 ;;9002226.02101,"773,655.53 ",.01)
 ;;655.53
 ;;9002226.02101,"773,655.53 ",.02)
 ;;655.53
 ;;9002226.02101,"773,655.6 ",.01)
 ;;655.6
 ;;9002226.02101,"773,655.6 ",.02)
 ;;655.6
 ;;9002226.02101,"773,655.60 ",.01)
 ;;655.60
 ;;9002226.02101,"773,655.60 ",.02)
 ;;655.60
 ;;9002226.02101,"773,655.61 ",.01)
 ;;655.61
 ;;9002226.02101,"773,655.61 ",.02)
 ;;655.61
 ;;9002226.02101,"773,655.63 ",.01)
 ;;655.63
 ;;9002226.02101,"773,655.63 ",.02)
 ;;655.63
 ;;9002226.02101,"773,655.7 ",.01)
 ;;655.7
 ;;9002226.02101,"773,655.7 ",.02)
 ;;655.7
 ;;9002226.02101,"773,655.70 ",.01)
 ;;655.70
 ;;9002226.02101,"773,655.70 ",.02)
 ;;655.70
 ;;9002226.02101,"773,655.71 ",.01)
 ;;655.71
 ;;9002226.02101,"773,655.71 ",.02)
 ;;655.71
 ;;9002226.02101,"773,655.73 ",.01)
 ;;655.73
 ;;9002226.02101,"773,655.73 ",.02)
 ;;655.73
 ;;9002226.02101,"773,655.8 ",.01)
 ;;655.8
 ;;9002226.02101,"773,655.8 ",.02)
 ;;655.8
 ;;9002226.02101,"773,655.80 ",.01)
 ;;655.80
 ;;9002226.02101,"773,655.80 ",.02)
 ;;655.80
 ;;9002226.02101,"773,655.81 ",.01)
 ;;655.81
 ;;9002226.02101,"773,655.81 ",.02)
 ;;655.81
 ;;9002226.02101,"773,655.83 ",.01)
 ;;655.83
 ;;9002226.02101,"773,655.83 ",.02)
 ;;655.83
 ;;9002226.02101,"773,655.9 ",.01)
 ;;655.9
 ;;9002226.02101,"773,655.9 ",.02)
 ;;655.9
 ;;9002226.02101,"773,655.90 ",.01)
 ;;655.90
 ;;9002226.02101,"773,655.90 ",.02)
 ;;655.90
 ;;9002226.02101,"773,655.91 ",.01)
 ;;655.91
 ;;9002226.02101,"773,655.91 ",.02)
 ;;655.91
 ;;9002226.02101,"773,655.93 ",.01)
 ;;655.93
 ;;9002226.02101,"773,655.93 ",.02)
 ;;655.93
 ;;9002226.02101,"773,656 ",.01)
 ;;656
 ;;9002226.02101,"773,656 ",.02)
 ;;656
 ;;9002226.02101,"773,656.0 ",.01)
 ;;656.0
 ;;9002226.02101,"773,656.0 ",.02)
 ;;656.0
 ;;9002226.02101,"773,656.00 ",.01)
 ;;656.00
 ;;9002226.02101,"773,656.00 ",.02)
 ;;656.00
 ;;9002226.02101,"773,656.01 ",.01)
 ;;656.01
 ;;9002226.02101,"773,656.01 ",.02)
 ;;656.01
 ;;9002226.02101,"773,656.03 ",.01)
 ;;656.03
 ;;9002226.02101,"773,656.03 ",.02)
 ;;656.03
 ;;9002226.02101,"773,656.1 ",.01)
 ;;656.1
 ;;9002226.02101,"773,656.1 ",.02)
 ;;656.1
 ;;9002226.02101,"773,656.10 ",.01)
 ;;656.10
 ;;9002226.02101,"773,656.10 ",.02)
 ;;656.10
 ;;9002226.02101,"773,656.11 ",.01)
 ;;656.11
 ;;9002226.02101,"773,656.11 ",.02)
 ;;656.11
 ;;9002226.02101,"773,656.13 ",.01)
 ;;656.13
 ;;9002226.02101,"773,656.13 ",.02)
 ;;656.13
 ;;9002226.02101,"773,656.2 ",.01)
 ;;656.2
 ;;9002226.02101,"773,656.2 ",.02)
 ;;656.2
 ;;9002226.02101,"773,656.20 ",.01)
 ;;656.20
 ;;9002226.02101,"773,656.20 ",.02)
 ;;656.20
 ;;9002226.02101,"773,656.21 ",.01)
 ;;656.21
 ;;9002226.02101,"773,656.21 ",.02)
 ;;656.21
 ;;9002226.02101,"773,656.23 ",.01)
 ;;656.23
 ;;9002226.02101,"773,656.23 ",.02)
 ;;656.23
 ;;9002226.02101,"773,656.3 ",.01)
 ;;656.3
 ;;9002226.02101,"773,656.3 ",.02)
 ;;656.3
 ;;9002226.02101,"773,656.30 ",.01)
 ;;656.30
 ;;9002226.02101,"773,656.30 ",.02)
 ;;656.30
 ;;9002226.02101,"773,656.31 ",.01)
 ;;656.31
 ;;9002226.02101,"773,656.31 ",.02)
 ;;656.31
 ;;9002226.02101,"773,656.33 ",.01)
 ;;656.33
 ;;9002226.02101,"773,656.33 ",.02)
 ;;656.33
 ;;9002226.02101,"773,656.4 ",.01)
 ;;656.4
 ;;9002226.02101,"773,656.4 ",.02)
 ;;656.4
 ;;9002226.02101,"773,656.40 ",.01)
 ;;656.40
 ;;9002226.02101,"773,656.40 ",.02)
 ;;656.40
 ;;9002226.02101,"773,656.41 ",.01)
 ;;656.41
 ;;9002226.02101,"773,656.41 ",.02)
 ;;656.41
 ;;9002226.02101,"773,656.43 ",.01)
 ;;656.43
 ;;9002226.02101,"773,656.43 ",.02)
 ;;656.43
 ;;9002226.02101,"773,656.5 ",.01)
 ;;656.5
 ;;9002226.02101,"773,656.5 ",.02)
 ;;656.5
 ;;9002226.02101,"773,656.50 ",.01)
 ;;656.50
 ;;9002226.02101,"773,656.50 ",.02)
 ;;656.50
 ;;9002226.02101,"773,656.51 ",.01)
 ;;656.51
 ;;9002226.02101,"773,656.51 ",.02)
 ;;656.51
 ;;9002226.02101,"773,656.53 ",.01)
 ;;656.53
 ;;9002226.02101,"773,656.53 ",.02)
 ;;656.53
 ;;9002226.02101,"773,656.6 ",.01)
 ;;656.6
 ;;9002226.02101,"773,656.6 ",.02)
 ;;656.6
 ;;9002226.02101,"773,656.60 ",.01)
 ;;656.60
 ;;9002226.02101,"773,656.60 ",.02)
 ;;656.60
 ;;9002226.02101,"773,656.61 ",.01)
 ;;656.61
 ;;9002226.02101,"773,656.61 ",.02)
 ;;656.61
 ;;9002226.02101,"773,656.63 ",.01)
 ;;656.63
 ;;9002226.02101,"773,656.63 ",.02)
 ;;656.63
 ;;9002226.02101,"773,656.7 ",.01)
 ;;656.7
 ;;9002226.02101,"773,656.7 ",.02)
 ;;656.7
 ;;9002226.02101,"773,656.70 ",.01)
 ;;656.70
 ;;9002226.02101,"773,656.70 ",.02)
 ;;656.70
 ;;9002226.02101,"773,656.71 ",.01)
 ;;656.71
 ;;9002226.02101,"773,656.71 ",.02)
 ;;656.71
 ;;9002226.02101,"773,656.73 ",.01)
 ;;656.73
 ;;9002226.02101,"773,656.73 ",.02)
 ;;656.73
 ;;9002226.02101,"773,656.8 ",.01)
 ;;656.8
 ;;9002226.02101,"773,656.8 ",.02)
 ;;656.8
 ;;9002226.02101,"773,656.80 ",.01)
 ;;656.80
 ;;9002226.02101,"773,656.80 ",.02)
 ;;656.80
 ;;9002226.02101,"773,656.81 ",.01)
 ;;656.81
 ;;9002226.02101,"773,656.81 ",.02)
 ;;656.81
 ;;9002226.02101,"773,656.83 ",.01)
 ;;656.83
 ;;9002226.02101,"773,656.83 ",.02)
 ;;656.83
 ;;9002226.02101,"773,656.9 ",.01)
 ;;656.9
 ;;9002226.02101,"773,656.9 ",.02)
 ;;656.9
 ;;9002226.02101,"773,656.90 ",.01)
 ;;656.90
 ;;9002226.02101,"773,656.90 ",.02)
 ;;656.90
 ;;9002226.02101,"773,656.91 ",.01)
 ;;656.91
 ;;9002226.02101,"773,656.91 ",.02)
 ;;656.91
 ;;9002226.02101,"773,656.93 ",.01)
 ;;656.93
 ;;9002226.02101,"773,656.93 ",.02)
 ;;656.93
 ;;9002226.02101,"773,657 ",.01)
 ;;657
 ;;9002226.02101,"773,657 ",.02)
 ;;657
 ;;9002226.02101,"773,657.0 ",.01)
 ;;657.0
 ;;9002226.02101,"773,657.0 ",.02)
 ;;657.0
 ;;9002226.02101,"773,657.00 ",.01)
 ;;657.00
 ;;9002226.02101,"773,657.00 ",.02)
 ;;657.00
 ;;9002226.02101,"773,657.01 ",.01)
 ;;657.01
 ;;9002226.02101,"773,657.01 ",.02)
 ;;657.01
 ;;9002226.02101,"773,657.03 ",.01)
 ;;657.03
 ;;9002226.02101,"773,657.03 ",.02)
 ;;657.03
 ;;9002226.02101,"773,658 ",.01)
 ;;658
 ;;9002226.02101,"773,658 ",.02)
 ;;658
 ;;9002226.02101,"773,658.0 ",.01)
 ;;658.0
 ;;9002226.02101,"773,658.0 ",.02)
 ;;658.0
 ;;9002226.02101,"773,658.00 ",.01)
 ;;658.00
 ;;9002226.02101,"773,658.00 ",.02)
 ;;658.00
 ;;9002226.02101,"773,658.01 ",.01)
 ;;658.01
 ;;9002226.02101,"773,658.01 ",.02)
 ;;658.01
 ;;9002226.02101,"773,658.03 ",.01)
 ;;658.03
 ;;9002226.02101,"773,658.03 ",.02)
 ;;658.03
 ;;9002226.02101,"773,658.1 ",.01)
 ;;658.1
 ;;9002226.02101,"773,658.1 ",.02)
 ;;658.1
 ;;9002226.02101,"773,658.10 ",.01)
 ;;658.10
 ;;9002226.02101,"773,658.10 ",.02)
 ;;658.10
 ;;9002226.02101,"773,658.11 ",.01)
 ;;658.11
 ;;9002226.02101,"773,658.11 ",.02)
 ;;658.11
 ;;9002226.02101,"773,658.13 ",.01)
 ;;658.13
 ;;9002226.02101,"773,658.13 ",.02)
 ;;658.13
 ;;9002226.02101,"773,658.2 ",.01)
 ;;658.2
 ;;9002226.02101,"773,658.2 ",.02)
 ;;658.2
 ;;9002226.02101,"773,658.20 ",.01)
 ;;658.20
 ;;9002226.02101,"773,658.20 ",.02)
 ;;658.20
 ;;9002226.02101,"773,658.21 ",.01)
 ;;658.21
 ;;9002226.02101,"773,658.21 ",.02)
 ;;658.21
 ;;9002226.02101,"773,658.23 ",.01)
 ;;658.23
 ;;9002226.02101,"773,658.23 ",.02)
 ;;658.23
 ;;9002226.02101,"773,658.3 ",.01)
 ;;658.3
 ;;9002226.02101,"773,658.3 ",.02)
 ;;658.3
 ;;9002226.02101,"773,658.30 ",.01)
 ;;658.30
 ;;9002226.02101,"773,658.30 ",.02)
 ;;658.30
 ;;9002226.02101,"773,658.31 ",.01)
 ;;658.31
 ;;9002226.02101,"773,658.31 ",.02)
 ;;658.31
 ;;9002226.02101,"773,658.33 ",.01)
 ;;658.33
 ;;9002226.02101,"773,658.33 ",.02)
 ;;658.33
 ;;9002226.02101,"773,658.4 ",.01)
 ;;658.4
 ;;9002226.02101,"773,658.4 ",.02)
 ;;658.4
 ;;9002226.02101,"773,658.40 ",.01)
 ;;658.40
 ;;9002226.02101,"773,658.40 ",.02)
 ;;658.40
 ;;9002226.02101,"773,658.41 ",.01)
 ;;658.41
 ;;9002226.02101,"773,658.41 ",.02)
 ;;658.41
 ;;9002226.02101,"773,658.43 ",.01)
 ;;658.43
 ;;9002226.02101,"773,658.43 ",.02)
 ;;658.43
 ;;9002226.02101,"773,658.8 ",.01)
 ;;658.8
 ;;9002226.02101,"773,658.8 ",.02)
 ;;658.8
 ;;9002226.02101,"773,658.80 ",.01)
 ;;658.80
 ;;9002226.02101,"773,658.80 ",.02)
 ;;658.80
 ;;9002226.02101,"773,658.81 ",.01)
 ;;658.81
 ;;9002226.02101,"773,658.81 ",.02)
 ;;658.81
 ;;9002226.02101,"773,658.83 ",.01)
 ;;658.83
 ;;9002226.02101,"773,658.83 ",.02)
 ;;658.83
 ;;9002226.02101,"773,658.9 ",.01)
 ;;658.9
 ;;9002226.02101,"773,658.9 ",.02)
 ;;658.9
 ;;9002226.02101,"773,658.90 ",.01)
 ;;658.90
 ;;9002226.02101,"773,658.90 ",.02)
 ;;658.90
 ;;9002226.02101,"773,658.91 ",.01)
 ;;658.91
 ;;9002226.02101,"773,658.91 ",.02)
 ;;658.91
 ;;9002226.02101,"773,658.93 ",.01)
 ;;658.93
 ;;9002226.02101,"773,658.93 ",.02)
 ;;658.93
 ;;9002226.02101,"773,659 ",.01)
 ;;659
 ;;9002226.02101,"773,659 ",.02)
 ;;659