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

BGPMBTXS.m

Go to the documentation of this file.
BGPMBTXS ;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,659.0 ",.01)
 ;;659.0
 ;;9002226.02101,"773,659.0 ",.02)
 ;;659.0
 ;;9002226.02101,"773,659.00 ",.01)
 ;;659.00
 ;;9002226.02101,"773,659.00 ",.02)
 ;;659.00
 ;;9002226.02101,"773,659.01 ",.01)
 ;;659.01
 ;;9002226.02101,"773,659.01 ",.02)
 ;;659.01
 ;;9002226.02101,"773,659.03 ",.01)
 ;;659.03
 ;;9002226.02101,"773,659.03 ",.02)
 ;;659.03
 ;;9002226.02101,"773,659.1 ",.01)
 ;;659.1
 ;;9002226.02101,"773,659.1 ",.02)
 ;;659.1
 ;;9002226.02101,"773,659.10 ",.01)
 ;;659.10
 ;;9002226.02101,"773,659.10 ",.02)
 ;;659.10
 ;;9002226.02101,"773,659.11 ",.01)
 ;;659.11
 ;;9002226.02101,"773,659.11 ",.02)
 ;;659.11
 ;;9002226.02101,"773,659.13 ",.01)
 ;;659.13
 ;;9002226.02101,"773,659.13 ",.02)
 ;;659.13
 ;;9002226.02101,"773,659.2 ",.01)
 ;;659.2
 ;;9002226.02101,"773,659.2 ",.02)
 ;;659.2
 ;;9002226.02101,"773,659.20 ",.01)
 ;;659.20
 ;;9002226.02101,"773,659.20 ",.02)
 ;;659.20
 ;;9002226.02101,"773,659.21 ",.01)
 ;;659.21
 ;;9002226.02101,"773,659.21 ",.02)
 ;;659.21
 ;;9002226.02101,"773,659.23 ",.01)
 ;;659.23
 ;;9002226.02101,"773,659.23 ",.02)
 ;;659.23
 ;;9002226.02101,"773,659.3 ",.01)
 ;;659.3
 ;;9002226.02101,"773,659.3 ",.02)
 ;;659.3
 ;;9002226.02101,"773,659.30 ",.01)
 ;;659.30
 ;;9002226.02101,"773,659.30 ",.02)
 ;;659.30
 ;;9002226.02101,"773,659.31 ",.01)
 ;;659.31
 ;;9002226.02101,"773,659.31 ",.02)
 ;;659.31
 ;;9002226.02101,"773,659.33 ",.01)
 ;;659.33
 ;;9002226.02101,"773,659.33 ",.02)
 ;;659.33
 ;;9002226.02101,"773,659.4 ",.01)
 ;;659.4
 ;;9002226.02101,"773,659.4 ",.02)
 ;;659.4
 ;;9002226.02101,"773,659.40 ",.01)
 ;;659.40
 ;;9002226.02101,"773,659.40 ",.02)
 ;;659.40
 ;;9002226.02101,"773,659.41 ",.01)
 ;;659.41
 ;;9002226.02101,"773,659.41 ",.02)
 ;;659.41
 ;;9002226.02101,"773,659.43 ",.01)
 ;;659.43
 ;;9002226.02101,"773,659.43 ",.02)
 ;;659.43
 ;;9002226.02101,"773,659.5 ",.01)
 ;;659.5
 ;;9002226.02101,"773,659.5 ",.02)
 ;;659.5
 ;;9002226.02101,"773,659.50 ",.01)
 ;;659.50
 ;;9002226.02101,"773,659.50 ",.02)
 ;;659.50
 ;;9002226.02101,"773,659.51 ",.01)
 ;;659.51
 ;;9002226.02101,"773,659.51 ",.02)
 ;;659.51
 ;;9002226.02101,"773,659.53 ",.01)
 ;;659.53
 ;;9002226.02101,"773,659.53 ",.02)
 ;;659.53
 ;;9002226.02101,"773,659.6 ",.01)
 ;;659.6
 ;;9002226.02101,"773,659.6 ",.02)
 ;;659.6
 ;;9002226.02101,"773,659.60 ",.01)
 ;;659.60
 ;;9002226.02101,"773,659.60 ",.02)
 ;;659.60
 ;;9002226.02101,"773,659.61 ",.01)
 ;;659.61
 ;;9002226.02101,"773,659.61 ",.02)
 ;;659.61
 ;;9002226.02101,"773,659.63 ",.01)
 ;;659.63
 ;;9002226.02101,"773,659.63 ",.02)
 ;;659.63
 ;;9002226.02101,"773,659.7 ",.01)
 ;;659.7
 ;;9002226.02101,"773,659.7 ",.02)
 ;;659.7
 ;;9002226.02101,"773,659.70 ",.01)
 ;;659.70
 ;;9002226.02101,"773,659.70 ",.02)
 ;;659.70
 ;;9002226.02101,"773,659.71 ",.01)
 ;;659.71
 ;;9002226.02101,"773,659.71 ",.02)
 ;;659.71
 ;;9002226.02101,"773,659.73 ",.01)
 ;;659.73
 ;;9002226.02101,"773,659.73 ",.02)
 ;;659.73
 ;;9002226.02101,"773,659.8 ",.01)
 ;;659.8
 ;;9002226.02101,"773,659.8 ",.02)
 ;;659.8
 ;;9002226.02101,"773,659.80 ",.01)
 ;;659.80
 ;;9002226.02101,"773,659.80 ",.02)
 ;;659.80
 ;;9002226.02101,"773,659.81 ",.01)
 ;;659.81
 ;;9002226.02101,"773,659.81 ",.02)
 ;;659.81
 ;;9002226.02101,"773,659.83 ",.01)
 ;;659.83
 ;;9002226.02101,"773,659.83 ",.02)
 ;;659.83
 ;;9002226.02101,"773,659.9 ",.01)
 ;;659.9
 ;;9002226.02101,"773,659.9 ",.02)
 ;;659.9
 ;;9002226.02101,"773,659.90 ",.01)
 ;;659.90
 ;;9002226.02101,"773,659.90 ",.02)
 ;;659.90
 ;;9002226.02101,"773,659.91 ",.01)
 ;;659.91
 ;;9002226.02101,"773,659.91 ",.02)
 ;;659.91
 ;;9002226.02101,"773,659.93 ",.01)
 ;;659.93
 ;;9002226.02101,"773,659.93 ",.02)
 ;;659.93
 ;;9002226.02101,"773,660 ",.01)
 ;;660
 ;;9002226.02101,"773,660 ",.02)
 ;;660
 ;;9002226.02101,"773,660.0 ",.01)
 ;;660.0
 ;;9002226.02101,"773,660.0 ",.02)
 ;;660.0
 ;;9002226.02101,"773,660.00 ",.01)
 ;;660.00
 ;;9002226.02101,"773,660.00 ",.02)
 ;;660.00
 ;;9002226.02101,"773,660.01 ",.01)
 ;;660.01
 ;;9002226.02101,"773,660.01 ",.02)
 ;;660.01
 ;;9002226.02101,"773,660.03 ",.01)
 ;;660.03
 ;;9002226.02101,"773,660.03 ",.02)
 ;;660.03
 ;;9002226.02101,"773,660.1 ",.01)
 ;;660.1
 ;;9002226.02101,"773,660.1 ",.02)
 ;;660.1
 ;;9002226.02101,"773,660.10 ",.01)
 ;;660.10
 ;;9002226.02101,"773,660.10 ",.02)
 ;;660.10
 ;;9002226.02101,"773,660.11 ",.01)
 ;;660.11
 ;;9002226.02101,"773,660.11 ",.02)
 ;;660.11
 ;;9002226.02101,"773,660.13 ",.01)
 ;;660.13
 ;;9002226.02101,"773,660.13 ",.02)
 ;;660.13
 ;;9002226.02101,"773,660.2 ",.01)
 ;;660.2
 ;;9002226.02101,"773,660.2 ",.02)
 ;;660.2
 ;;9002226.02101,"773,660.20 ",.01)
 ;;660.20
 ;;9002226.02101,"773,660.20 ",.02)
 ;;660.20
 ;;9002226.02101,"773,660.21 ",.01)
 ;;660.21
 ;;9002226.02101,"773,660.21 ",.02)
 ;;660.21
 ;;9002226.02101,"773,660.23 ",.01)
 ;;660.23
 ;;9002226.02101,"773,660.23 ",.02)
 ;;660.23
 ;;9002226.02101,"773,660.3 ",.01)
 ;;660.3
 ;;9002226.02101,"773,660.3 ",.02)
 ;;660.3
 ;;9002226.02101,"773,660.30 ",.01)
 ;;660.30
 ;;9002226.02101,"773,660.30 ",.02)
 ;;660.30
 ;;9002226.02101,"773,660.31 ",.01)
 ;;660.31
 ;;9002226.02101,"773,660.31 ",.02)
 ;;660.31
 ;;9002226.02101,"773,660.33 ",.01)
 ;;660.33
 ;;9002226.02101,"773,660.33 ",.02)
 ;;660.33
 ;;9002226.02101,"773,660.4 ",.01)
 ;;660.4
 ;;9002226.02101,"773,660.4 ",.02)
 ;;660.4
 ;;9002226.02101,"773,660.40 ",.01)
 ;;660.40
 ;;9002226.02101,"773,660.40 ",.02)
 ;;660.40
 ;;9002226.02101,"773,660.41 ",.01)
 ;;660.41
 ;;9002226.02101,"773,660.41 ",.02)
 ;;660.41
 ;;9002226.02101,"773,660.43 ",.01)
 ;;660.43
 ;;9002226.02101,"773,660.43 ",.02)
 ;;660.43
 ;;9002226.02101,"773,660.5 ",.01)
 ;;660.5
 ;;9002226.02101,"773,660.5 ",.02)
 ;;660.5
 ;;9002226.02101,"773,660.50 ",.01)
 ;;660.50
 ;;9002226.02101,"773,660.50 ",.02)
 ;;660.50
 ;;9002226.02101,"773,660.51 ",.01)
 ;;660.51
 ;;9002226.02101,"773,660.51 ",.02)
 ;;660.51
 ;;9002226.02101,"773,660.53 ",.01)
 ;;660.53
 ;;9002226.02101,"773,660.53 ",.02)
 ;;660.53
 ;;9002226.02101,"773,660.6 ",.01)
 ;;660.6
 ;;9002226.02101,"773,660.6 ",.02)
 ;;660.6
 ;;9002226.02101,"773,660.60 ",.01)
 ;;660.60
 ;;9002226.02101,"773,660.60 ",.02)
 ;;660.60
 ;;9002226.02101,"773,660.61 ",.01)
 ;;660.61
 ;;9002226.02101,"773,660.61 ",.02)
 ;;660.61
 ;;9002226.02101,"773,660.63 ",.01)
 ;;660.63
 ;;9002226.02101,"773,660.63 ",.02)
 ;;660.63
 ;;9002226.02101,"773,660.7 ",.01)
 ;;660.7
 ;;9002226.02101,"773,660.7 ",.02)
 ;;660.7
 ;;9002226.02101,"773,660.70 ",.01)
 ;;660.70
 ;;9002226.02101,"773,660.70 ",.02)
 ;;660.70
 ;;9002226.02101,"773,660.71 ",.01)
 ;;660.71
 ;;9002226.02101,"773,660.71 ",.02)
 ;;660.71
 ;;9002226.02101,"773,660.73 ",.01)
 ;;660.73
 ;;9002226.02101,"773,660.73 ",.02)
 ;;660.73
 ;;9002226.02101,"773,660.8 ",.01)
 ;;660.8
 ;;9002226.02101,"773,660.8 ",.02)
 ;;660.8
 ;;9002226.02101,"773,660.80 ",.01)
 ;;660.80
 ;;9002226.02101,"773,660.80 ",.02)
 ;;660.80
 ;;9002226.02101,"773,660.81 ",.01)
 ;;660.81
 ;;9002226.02101,"773,660.81 ",.02)
 ;;660.81
 ;;9002226.02101,"773,660.83 ",.01)
 ;;660.83
 ;;9002226.02101,"773,660.83 ",.02)
 ;;660.83
 ;;9002226.02101,"773,660.9 ",.01)
 ;;660.9
 ;;9002226.02101,"773,660.9 ",.02)
 ;;660.9
 ;;9002226.02101,"773,660.90 ",.01)
 ;;660.90
 ;;9002226.02101,"773,660.90 ",.02)
 ;;660.90
 ;;9002226.02101,"773,660.91 ",.01)
 ;;660.91
 ;;9002226.02101,"773,660.91 ",.02)
 ;;660.91
 ;;9002226.02101,"773,660.93 ",.01)
 ;;660.93
 ;;9002226.02101,"773,660.93 ",.02)
 ;;660.93
 ;;9002226.02101,"773,661 ",.01)
 ;;661
 ;;9002226.02101,"773,661 ",.02)
 ;;661
 ;;9002226.02101,"773,661.0 ",.01)
 ;;661.0
 ;;9002226.02101,"773,661.0 ",.02)
 ;;661.0
 ;;9002226.02101,"773,661.00 ",.01)
 ;;661.00
 ;;9002226.02101,"773,661.00 ",.02)
 ;;661.00
 ;;9002226.02101,"773,661.01 ",.01)
 ;;661.01
 ;;9002226.02101,"773,661.01 ",.02)
 ;;661.01
 ;;9002226.02101,"773,661.03 ",.01)
 ;;661.03
 ;;9002226.02101,"773,661.03 ",.02)
 ;;661.03
 ;;9002226.02101,"773,661.1 ",.01)
 ;;661.1
 ;;9002226.02101,"773,661.1 ",.02)
 ;;661.1
 ;;9002226.02101,"773,661.10 ",.01)
 ;;661.10
 ;;9002226.02101,"773,661.10 ",.02)
 ;;661.10
 ;;9002226.02101,"773,661.11 ",.01)
 ;;661.11
 ;;9002226.02101,"773,661.11 ",.02)
 ;;661.11
 ;;9002226.02101,"773,661.13 ",.01)
 ;;661.13
 ;;9002226.02101,"773,661.13 ",.02)
 ;;661.13
 ;;9002226.02101,"773,661.2 ",.01)
 ;;661.2
 ;;9002226.02101,"773,661.2 ",.02)
 ;;661.2
 ;;9002226.02101,"773,661.20 ",.01)
 ;;661.20
 ;;9002226.02101,"773,661.20 ",.02)
 ;;661.20
 ;;9002226.02101,"773,661.21 ",.01)
 ;;661.21
 ;;9002226.02101,"773,661.21 ",.02)
 ;;661.21
 ;;9002226.02101,"773,661.23 ",.01)
 ;;661.23
 ;;9002226.02101,"773,661.23 ",.02)
 ;;661.23
 ;;9002226.02101,"773,661.3 ",.01)
 ;;661.3
 ;;9002226.02101,"773,661.3 ",.02)
 ;;661.3
 ;;9002226.02101,"773,661.30 ",.01)
 ;;661.30
 ;;9002226.02101,"773,661.30 ",.02)
 ;;661.30
 ;;9002226.02101,"773,661.31 ",.01)
 ;;661.31
 ;;9002226.02101,"773,661.31 ",.02)
 ;;661.31
 ;;9002226.02101,"773,661.33 ",.01)
 ;;661.33
 ;;9002226.02101,"773,661.33 ",.02)
 ;;661.33
 ;;9002226.02101,"773,661.4 ",.01)
 ;;661.4
 ;;9002226.02101,"773,661.4 ",.02)
 ;;661.4
 ;;9002226.02101,"773,661.40 ",.01)
 ;;661.40
 ;;9002226.02101,"773,661.40 ",.02)
 ;;661.40
 ;;9002226.02101,"773,661.41 ",.01)
 ;;661.41
 ;;9002226.02101,"773,661.41 ",.02)
 ;;661.41
 ;;9002226.02101,"773,661.43 ",.01)
 ;;661.43
 ;;9002226.02101,"773,661.43 ",.02)
 ;;661.43
 ;;9002226.02101,"773,661.9 ",.01)
 ;;661.9
 ;;9002226.02101,"773,661.9 ",.02)
 ;;661.9
 ;;9002226.02101,"773,661.90 ",.01)
 ;;661.90
 ;;9002226.02101,"773,661.90 ",.02)
 ;;661.90
 ;;9002226.02101,"773,661.91 ",.01)
 ;;661.91
 ;;9002226.02101,"773,661.91 ",.02)
 ;;661.91
 ;;9002226.02101,"773,661.93 ",.01)
 ;;661.93
 ;;9002226.02101,"773,661.93 ",.02)
 ;;661.93
 ;;9002226.02101,"773,662 ",.01)
 ;;662
 ;;9002226.02101,"773,662 ",.02)
 ;;662
 ;;9002226.02101,"773,662.0 ",.01)
 ;;662.0
 ;;9002226.02101,"773,662.0 ",.02)
 ;;662.0
 ;;9002226.02101,"773,662.00 ",.01)
 ;;662.00
 ;;9002226.02101,"773,662.00 ",.02)
 ;;662.00
 ;;9002226.02101,"773,662.01 ",.01)
 ;;662.01
 ;;9002226.02101,"773,662.01 ",.02)
 ;;662.01
 ;;9002226.02101,"773,662.03 ",.01)
 ;;662.03
 ;;9002226.02101,"773,662.03 ",.02)
 ;;662.03
 ;;9002226.02101,"773,662.1 ",.01)
 ;;662.1
 ;;9002226.02101,"773,662.1 ",.02)
 ;;662.1
 ;;9002226.02101,"773,662.10 ",.01)
 ;;662.10
 ;;9002226.02101,"773,662.10 ",.02)
 ;;662.10
 ;;9002226.02101,"773,662.11 ",.01)
 ;;662.11
 ;;9002226.02101,"773,662.11 ",.02)
 ;;662.11
 ;;9002226.02101,"773,662.13 ",.01)
 ;;662.13
 ;;9002226.02101,"773,662.13 ",.02)
 ;;662.13
 ;;9002226.02101,"773,662.2 ",.01)
 ;;662.2
 ;;9002226.02101,"773,662.2 ",.02)
 ;;662.2
 ;;9002226.02101,"773,662.20 ",.01)
 ;;662.20
 ;;9002226.02101,"773,662.20 ",.02)
 ;;662.20
 ;;9002226.02101,"773,662.21 ",.01)
 ;;662.21
 ;;9002226.02101,"773,662.21 ",.02)
 ;;662.21
 ;;9002226.02101,"773,662.23 ",.01)
 ;;662.23
 ;;9002226.02101,"773,662.23 ",.02)
 ;;662.23
 ;;9002226.02101,"773,662.3 ",.01)
 ;;662.3
 ;;9002226.02101,"773,662.3 ",.02)
 ;;662.3
 ;;9002226.02101,"773,662.30 ",.01)
 ;;662.30
 ;;9002226.02101,"773,662.30 ",.02)
 ;;662.30
 ;;9002226.02101,"773,662.31 ",.01)
 ;;662.31
 ;;9002226.02101,"773,662.31 ",.02)
 ;;662.31
 ;;9002226.02101,"773,662.33 ",.01)
 ;;662.33
 ;;9002226.02101,"773,662.33 ",.02)
 ;;662.33
 ;;9002226.02101,"773,663 ",.01)
 ;;663
 ;;9002226.02101,"773,663 ",.02)
 ;;663
 ;;9002226.02101,"773,663.0 ",.01)
 ;;663.0
 ;;9002226.02101,"773,663.0 ",.02)
 ;;663.0
 ;;9002226.02101,"773,663.00 ",.01)
 ;;663.00
 ;;9002226.02101,"773,663.00 ",.02)
 ;;663.00
 ;;9002226.02101,"773,663.01 ",.01)
 ;;663.01
 ;;9002226.02101,"773,663.01 ",.02)
 ;;663.01
 ;;9002226.02101,"773,663.03 ",.01)
 ;;663.03
 ;;9002226.02101,"773,663.03 ",.02)
 ;;663.03
 ;;9002226.02101,"773,663.1 ",.01)
 ;;663.1
 ;;9002226.02101,"773,663.1 ",.02)
 ;;663.1
 ;;9002226.02101,"773,663.10 ",.01)
 ;;663.10
 ;;9002226.02101,"773,663.10 ",.02)
 ;;663.10
 ;;9002226.02101,"773,663.11 ",.01)
 ;;663.11
 ;;9002226.02101,"773,663.11 ",.02)
 ;;663.11
 ;;9002226.02101,"773,663.13 ",.01)
 ;;663.13
 ;;9002226.02101,"773,663.13 ",.02)
 ;;663.13
 ;;9002226.02101,"773,663.2 ",.01)
 ;;663.2
 ;;9002226.02101,"773,663.2 ",.02)
 ;;663.2
 ;;9002226.02101,"773,663.20 ",.01)
 ;;663.20
 ;;9002226.02101,"773,663.20 ",.02)
 ;;663.20
 ;;9002226.02101,"773,663.21 ",.01)
 ;;663.21
 ;;9002226.02101,"773,663.21 ",.02)
 ;;663.21
 ;;9002226.02101,"773,663.23 ",.01)
 ;;663.23
 ;;9002226.02101,"773,663.23 ",.02)
 ;;663.23
 ;;9002226.02101,"773,663.3 ",.01)
 ;;663.3
 ;;9002226.02101,"773,663.3 ",.02)
 ;;663.3
 ;;9002226.02101,"773,663.30 ",.01)
 ;;663.30
 ;;9002226.02101,"773,663.30 ",.02)
 ;;663.30
 ;;9002226.02101,"773,663.31 ",.01)
 ;;663.31
 ;;9002226.02101,"773,663.31 ",.02)
 ;;663.31
 ;;9002226.02101,"773,663.33 ",.01)
 ;;663.33
 ;;9002226.02101,"773,663.33 ",.02)
 ;;663.33
 ;;9002226.02101,"773,663.4 ",.01)
 ;;663.4
 ;;9002226.02101,"773,663.4 ",.02)
 ;;663.4
 ;;9002226.02101,"773,663.40 ",.01)
 ;;663.40
 ;;9002226.02101,"773,663.40 ",.02)
 ;;663.40
 ;;9002226.02101,"773,663.41 ",.01)
 ;;663.41
 ;;9002226.02101,"773,663.41 ",.02)
 ;;663.41