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

BGPM5AOT.m

Go to the documentation of this file.
BGPM5AOT ;IHS/MSC/MMT-CREATED BY ^ATXSTX ON AUG 09, 2011;
 ;;11.1;IHS CLINICAL REPORTING SYSTEM;**1**;JUN 27, 2011;Build 106
 ;
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,"993,861.02 ",.01)
 ;;861.02
 ;;9002226.02101,"993,861.02 ",.02)
 ;;861.02
 ;;9002226.02101,"993,861.03 ",.01)
 ;;861.03
 ;;9002226.02101,"993,861.03 ",.02)
 ;;861.03
 ;;9002226.02101,"993,861.1 ",.01)
 ;;861.1
 ;;9002226.02101,"993,861.1 ",.02)
 ;;861.1
 ;;9002226.02101,"993,861.10 ",.01)
 ;;861.10
 ;;9002226.02101,"993,861.10 ",.02)
 ;;861.10
 ;;9002226.02101,"993,861.11 ",.01)
 ;;861.11
 ;;9002226.02101,"993,861.11 ",.02)
 ;;861.11
 ;;9002226.02101,"993,861.12 ",.01)
 ;;861.12
 ;;9002226.02101,"993,861.12 ",.02)
 ;;861.12
 ;;9002226.02101,"993,861.13 ",.01)
 ;;861.13
 ;;9002226.02101,"993,861.13 ",.02)
 ;;861.13
 ;;9002226.02101,"993,861.2 ",.01)
 ;;861.2
 ;;9002226.02101,"993,861.2 ",.02)
 ;;861.2
 ;;9002226.02101,"993,861.20 ",.01)
 ;;861.20
 ;;9002226.02101,"993,861.20 ",.02)
 ;;861.20
 ;;9002226.02101,"993,861.21 ",.01)
 ;;861.21
 ;;9002226.02101,"993,861.21 ",.02)
 ;;861.21
 ;;9002226.02101,"993,861.22 ",.01)
 ;;861.22
 ;;9002226.02101,"993,861.22 ",.02)
 ;;861.22
 ;;9002226.02101,"993,861.3 ",.01)
 ;;861.3
 ;;9002226.02101,"993,861.3 ",.02)
 ;;861.3
 ;;9002226.02101,"993,861.30 ",.01)
 ;;861.30
 ;;9002226.02101,"993,861.30 ",.02)
 ;;861.30
 ;;9002226.02101,"993,861.31 ",.01)
 ;;861.31
 ;;9002226.02101,"993,861.31 ",.02)
 ;;861.31
 ;;9002226.02101,"993,861.32 ",.01)
 ;;861.32
 ;;9002226.02101,"993,861.32 ",.02)
 ;;861.32
 ;;9002226.02101,"993,862 ",.01)
 ;;862
 ;;9002226.02101,"993,862 ",.02)
 ;;862
 ;;9002226.02101,"993,862.0 ",.01)
 ;;862.0
 ;;9002226.02101,"993,862.0 ",.02)
 ;;862.0
 ;;9002226.02101,"993,862.1 ",.01)
 ;;862.1
 ;;9002226.02101,"993,862.1 ",.02)
 ;;862.1
 ;;9002226.02101,"993,862.2 ",.01)
 ;;862.2
 ;;9002226.02101,"993,862.2 ",.02)
 ;;862.2
 ;;9002226.02101,"993,862.21 ",.01)
 ;;862.21
 ;;9002226.02101,"993,862.21 ",.02)
 ;;862.21
 ;;9002226.02101,"993,862.22 ",.01)
 ;;862.22
 ;;9002226.02101,"993,862.22 ",.02)
 ;;862.22
 ;;9002226.02101,"993,862.29 ",.01)
 ;;862.29
 ;;9002226.02101,"993,862.29 ",.02)
 ;;862.29
 ;;9002226.02101,"993,862.3 ",.01)
 ;;862.3
 ;;9002226.02101,"993,862.3 ",.02)
 ;;862.3
 ;;9002226.02101,"993,862.31 ",.01)
 ;;862.31
 ;;9002226.02101,"993,862.31 ",.02)
 ;;862.31
 ;;9002226.02101,"993,862.32 ",.01)
 ;;862.32
 ;;9002226.02101,"993,862.32 ",.02)
 ;;862.32
 ;;9002226.02101,"993,862.39 ",.01)
 ;;862.39
 ;;9002226.02101,"993,862.39 ",.02)
 ;;862.39
 ;;9002226.02101,"993,862.8 ",.01)
 ;;862.8
 ;;9002226.02101,"993,862.8 ",.02)
 ;;862.8
 ;;9002226.02101,"993,862.9 ",.01)
 ;;862.9
 ;;9002226.02101,"993,862.9 ",.02)
 ;;862.9
 ;;9002226.02101,"993,863 ",.01)
 ;;863
 ;;9002226.02101,"993,863 ",.02)
 ;;863
 ;;9002226.02101,"993,863.0 ",.01)
 ;;863.0
 ;;9002226.02101,"993,863.0 ",.02)
 ;;863.0
 ;;9002226.02101,"993,863.1 ",.01)
 ;;863.1
 ;;9002226.02101,"993,863.1 ",.02)
 ;;863.1
 ;;9002226.02101,"993,863.2 ",.01)
 ;;863.2
 ;;9002226.02101,"993,863.2 ",.02)
 ;;863.2
 ;;9002226.02101,"993,863.20 ",.01)
 ;;863.20
 ;;9002226.02101,"993,863.20 ",.02)
 ;;863.20
 ;;9002226.02101,"993,863.21 ",.01)
 ;;863.21
 ;;9002226.02101,"993,863.21 ",.02)
 ;;863.21
 ;;9002226.02101,"993,863.29 ",.01)
 ;;863.29
 ;;9002226.02101,"993,863.29 ",.02)
 ;;863.29
 ;;9002226.02101,"993,863.3 ",.01)
 ;;863.3
 ;;9002226.02101,"993,863.3 ",.02)
 ;;863.3
 ;;9002226.02101,"993,863.30 ",.01)
 ;;863.30
 ;;9002226.02101,"993,863.30 ",.02)
 ;;863.30
 ;;9002226.02101,"993,863.31 ",.01)
 ;;863.31
 ;;9002226.02101,"993,863.31 ",.02)
 ;;863.31
 ;;9002226.02101,"993,863.39 ",.01)
 ;;863.39
 ;;9002226.02101,"993,863.39 ",.02)
 ;;863.39
 ;;9002226.02101,"993,863.4 ",.01)
 ;;863.4
 ;;9002226.02101,"993,863.4 ",.02)
 ;;863.4
 ;;9002226.02101,"993,863.40 ",.01)
 ;;863.40
 ;;9002226.02101,"993,863.40 ",.02)
 ;;863.40
 ;;9002226.02101,"993,863.41 ",.01)
 ;;863.41
 ;;9002226.02101,"993,863.41 ",.02)
 ;;863.41
 ;;9002226.02101,"993,863.42 ",.01)
 ;;863.42
 ;;9002226.02101,"993,863.42 ",.02)
 ;;863.42
 ;;9002226.02101,"993,863.43 ",.01)
 ;;863.43
 ;;9002226.02101,"993,863.43 ",.02)
 ;;863.43
 ;;9002226.02101,"993,863.44 ",.01)
 ;;863.44
 ;;9002226.02101,"993,863.44 ",.02)
 ;;863.44
 ;;9002226.02101,"993,863.45 ",.01)
 ;;863.45
 ;;9002226.02101,"993,863.45 ",.02)
 ;;863.45
 ;;9002226.02101,"993,863.46 ",.01)
 ;;863.46
 ;;9002226.02101,"993,863.46 ",.02)
 ;;863.46
 ;;9002226.02101,"993,863.49 ",.01)
 ;;863.49
 ;;9002226.02101,"993,863.49 ",.02)
 ;;863.49
 ;;9002226.02101,"993,863.5 ",.01)
 ;;863.5
 ;;9002226.02101,"993,863.5 ",.02)
 ;;863.5
 ;;9002226.02101,"993,863.50 ",.01)
 ;;863.50
 ;;9002226.02101,"993,863.50 ",.02)
 ;;863.50
 ;;9002226.02101,"993,863.51 ",.01)
 ;;863.51
 ;;9002226.02101,"993,863.51 ",.02)
 ;;863.51
 ;;9002226.02101,"993,863.52 ",.01)
 ;;863.52
 ;;9002226.02101,"993,863.52 ",.02)
 ;;863.52
 ;;9002226.02101,"993,863.53 ",.01)
 ;;863.53
 ;;9002226.02101,"993,863.53 ",.02)
 ;;863.53
 ;;9002226.02101,"993,863.54 ",.01)
 ;;863.54
 ;;9002226.02101,"993,863.54 ",.02)
 ;;863.54
 ;;9002226.02101,"993,863.55 ",.01)
 ;;863.55
 ;;9002226.02101,"993,863.55 ",.02)
 ;;863.55
 ;;9002226.02101,"993,863.56 ",.01)
 ;;863.56
 ;;9002226.02101,"993,863.56 ",.02)
 ;;863.56
 ;;9002226.02101,"993,863.59 ",.01)
 ;;863.59
 ;;9002226.02101,"993,863.59 ",.02)
 ;;863.59
 ;;9002226.02101,"993,863.8 ",.01)
 ;;863.8
 ;;9002226.02101,"993,863.8 ",.02)
 ;;863.8
 ;;9002226.02101,"993,863.80 ",.01)
 ;;863.80
 ;;9002226.02101,"993,863.80 ",.02)
 ;;863.80
 ;;9002226.02101,"993,863.81 ",.01)
 ;;863.81
 ;;9002226.02101,"993,863.81 ",.02)
 ;;863.81
 ;;9002226.02101,"993,863.82 ",.01)
 ;;863.82
 ;;9002226.02101,"993,863.82 ",.02)
 ;;863.82
 ;;9002226.02101,"993,863.83 ",.01)
 ;;863.83
 ;;9002226.02101,"993,863.83 ",.02)
 ;;863.83
 ;;9002226.02101,"993,863.84 ",.01)
 ;;863.84
 ;;9002226.02101,"993,863.84 ",.02)
 ;;863.84
 ;;9002226.02101,"993,863.85 ",.01)
 ;;863.85
 ;;9002226.02101,"993,863.85 ",.02)
 ;;863.85
 ;;9002226.02101,"993,863.89 ",.01)
 ;;863.89
 ;;9002226.02101,"993,863.89 ",.02)
 ;;863.89
 ;;9002226.02101,"993,863.9 ",.01)
 ;;863.9
 ;;9002226.02101,"993,863.9 ",.02)
 ;;863.9
 ;;9002226.02101,"993,863.90 ",.01)
 ;;863.90
 ;;9002226.02101,"993,863.90 ",.02)
 ;;863.90
 ;;9002226.02101,"993,863.91 ",.01)
 ;;863.91
 ;;9002226.02101,"993,863.91 ",.02)
 ;;863.91
 ;;9002226.02101,"993,863.92 ",.01)
 ;;863.92
 ;;9002226.02101,"993,863.92 ",.02)
 ;;863.92
 ;;9002226.02101,"993,863.93 ",.01)
 ;;863.93
 ;;9002226.02101,"993,863.93 ",.02)
 ;;863.93
 ;;9002226.02101,"993,863.94 ",.01)
 ;;863.94
 ;;9002226.02101,"993,863.94 ",.02)
 ;;863.94
 ;;9002226.02101,"993,863.95 ",.01)
 ;;863.95
 ;;9002226.02101,"993,863.95 ",.02)
 ;;863.95
 ;;9002226.02101,"993,863.99 ",.01)
 ;;863.99
 ;;9002226.02101,"993,863.99 ",.02)
 ;;863.99
 ;;9002226.02101,"993,864 ",.01)
 ;;864
 ;;9002226.02101,"993,864 ",.02)
 ;;864
 ;;9002226.02101,"993,864.0 ",.01)
 ;;864.0
 ;;9002226.02101,"993,864.0 ",.02)
 ;;864.0
 ;;9002226.02101,"993,864.00 ",.01)
 ;;864.00
 ;;9002226.02101,"993,864.00 ",.02)
 ;;864.00
 ;;9002226.02101,"993,864.01 ",.01)
 ;;864.01
 ;;9002226.02101,"993,864.01 ",.02)
 ;;864.01
 ;;9002226.02101,"993,864.02 ",.01)
 ;;864.02
 ;;9002226.02101,"993,864.02 ",.02)
 ;;864.02
 ;;9002226.02101,"993,864.03 ",.01)
 ;;864.03
 ;;9002226.02101,"993,864.03 ",.02)
 ;;864.03
 ;;9002226.02101,"993,864.04 ",.01)
 ;;864.04
 ;;9002226.02101,"993,864.04 ",.02)
 ;;864.04
 ;;9002226.02101,"993,864.05 ",.01)
 ;;864.05
 ;;9002226.02101,"993,864.05 ",.02)
 ;;864.05
 ;;9002226.02101,"993,864.09 ",.01)
 ;;864.09
 ;;9002226.02101,"993,864.09 ",.02)
 ;;864.09
 ;;9002226.02101,"993,864.1 ",.01)
 ;;864.1
 ;;9002226.02101,"993,864.1 ",.02)
 ;;864.1
 ;;9002226.02101,"993,864.10 ",.01)
 ;;864.10
 ;;9002226.02101,"993,864.10 ",.02)
 ;;864.10
 ;;9002226.02101,"993,864.11 ",.01)
 ;;864.11
 ;;9002226.02101,"993,864.11 ",.02)
 ;;864.11
 ;;9002226.02101,"993,864.12 ",.01)
 ;;864.12
 ;;9002226.02101,"993,864.12 ",.02)
 ;;864.12
 ;;9002226.02101,"993,864.13 ",.01)
 ;;864.13
 ;;9002226.02101,"993,864.13 ",.02)
 ;;864.13
 ;;9002226.02101,"993,864.14 ",.01)
 ;;864.14
 ;;9002226.02101,"993,864.14 ",.02)
 ;;864.14
 ;;9002226.02101,"993,864.15 ",.01)
 ;;864.15
 ;;9002226.02101,"993,864.15 ",.02)
 ;;864.15
 ;;9002226.02101,"993,864.19 ",.01)
 ;;864.19
 ;;9002226.02101,"993,864.19 ",.02)
 ;;864.19
 ;;9002226.02101,"993,865 ",.01)
 ;;865
 ;;9002226.02101,"993,865 ",.02)
 ;;865
 ;;9002226.02101,"993,865.0 ",.01)
 ;;865.0
 ;;9002226.02101,"993,865.0 ",.02)
 ;;865.0
 ;;9002226.02101,"993,865.00 ",.01)
 ;;865.00
 ;;9002226.02101,"993,865.00 ",.02)
 ;;865.00
 ;;9002226.02101,"993,865.01 ",.01)
 ;;865.01
 ;;9002226.02101,"993,865.01 ",.02)
 ;;865.01
 ;;9002226.02101,"993,865.02 ",.01)
 ;;865.02
 ;;9002226.02101,"993,865.02 ",.02)
 ;;865.02
 ;;9002226.02101,"993,865.03 ",.01)
 ;;865.03
 ;;9002226.02101,"993,865.03 ",.02)
 ;;865.03
 ;;9002226.02101,"993,865.04 ",.01)
 ;;865.04
 ;;9002226.02101,"993,865.04 ",.02)
 ;;865.04
 ;;9002226.02101,"993,865.09 ",.01)
 ;;865.09
 ;;9002226.02101,"993,865.09 ",.02)
 ;;865.09
 ;;9002226.02101,"993,865.1 ",.01)
 ;;865.1
 ;;9002226.02101,"993,865.1 ",.02)
 ;;865.1
 ;;9002226.02101,"993,865.10 ",.01)
 ;;865.10
 ;;9002226.02101,"993,865.10 ",.02)
 ;;865.10
 ;;9002226.02101,"993,865.11 ",.01)
 ;;865.11
 ;;9002226.02101,"993,865.11 ",.02)
 ;;865.11
 ;;9002226.02101,"993,865.12 ",.01)
 ;;865.12
 ;;9002226.02101,"993,865.12 ",.02)
 ;;865.12
 ;;9002226.02101,"993,865.13 ",.01)
 ;;865.13
 ;;9002226.02101,"993,865.13 ",.02)
 ;;865.13
 ;;9002226.02101,"993,865.14 ",.01)
 ;;865.14
 ;;9002226.02101,"993,865.14 ",.02)
 ;;865.14
 ;;9002226.02101,"993,865.19 ",.01)
 ;;865.19
 ;;9002226.02101,"993,865.19 ",.02)
 ;;865.19
 ;;9002226.02101,"993,866 ",.01)
 ;;866
 ;;9002226.02101,"993,866 ",.02)
 ;;866
 ;;9002226.02101,"993,866.0 ",.01)
 ;;866.0
 ;;9002226.02101,"993,866.0 ",.02)
 ;;866.0
 ;;9002226.02101,"993,866.00 ",.01)
 ;;866.00
 ;;9002226.02101,"993,866.00 ",.02)
 ;;866.00
 ;;9002226.02101,"993,866.01 ",.01)
 ;;866.01
 ;;9002226.02101,"993,866.01 ",.02)
 ;;866.01
 ;;9002226.02101,"993,866.02 ",.01)
 ;;866.02
 ;;9002226.02101,"993,866.02 ",.02)
 ;;866.02
 ;;9002226.02101,"993,866.03 ",.01)
 ;;866.03
 ;;9002226.02101,"993,866.03 ",.02)
 ;;866.03
 ;;9002226.02101,"993,866.1 ",.01)
 ;;866.1
 ;;9002226.02101,"993,866.1 ",.02)
 ;;866.1
 ;;9002226.02101,"993,866.10 ",.01)
 ;;866.10
 ;;9002226.02101,"993,866.10 ",.02)
 ;;866.10
 ;;9002226.02101,"993,866.11 ",.01)
 ;;866.11
 ;;9002226.02101,"993,866.11 ",.02)
 ;;866.11
 ;;9002226.02101,"993,866.12 ",.01)
 ;;866.12
 ;;9002226.02101,"993,866.12 ",.02)
 ;;866.12
 ;;9002226.02101,"993,866.13 ",.01)
 ;;866.13
 ;;9002226.02101,"993,866.13 ",.02)
 ;;866.13
 ;;9002226.02101,"993,867 ",.01)
 ;;867
 ;;9002226.02101,"993,867 ",.02)
 ;;867
 ;;9002226.02101,"993,867.0 ",.01)
 ;;867.0
 ;;9002226.02101,"993,867.0 ",.02)
 ;;867.0
 ;;9002226.02101,"993,867.1 ",.01)
 ;;867.1
 ;;9002226.02101,"993,867.1 ",.02)
 ;;867.1
 ;;9002226.02101,"993,867.2 ",.01)
 ;;867.2
 ;;9002226.02101,"993,867.2 ",.02)
 ;;867.2
 ;;9002226.02101,"993,867.3 ",.01)
 ;;867.3
 ;;9002226.02101,"993,867.3 ",.02)
 ;;867.3
 ;;9002226.02101,"993,867.4 ",.01)
 ;;867.4
 ;;9002226.02101,"993,867.4 ",.02)
 ;;867.4
 ;;9002226.02101,"993,867.5 ",.01)
 ;;867.5
 ;;9002226.02101,"993,867.5 ",.02)
 ;;867.5
 ;;9002226.02101,"993,867.6 ",.01)
 ;;867.6