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

BGPM5AOS.m

Go to the documentation of this file.
BGPM5AOS ;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,851.79 ",.01)
 ;;851.79
 ;;9002226.02101,"993,851.79 ",.02)
 ;;851.79
 ;;9002226.02101,"993,851.8 ",.01)
 ;;851.8
 ;;9002226.02101,"993,851.8 ",.02)
 ;;851.8
 ;;9002226.02101,"993,851.80 ",.01)
 ;;851.80
 ;;9002226.02101,"993,851.80 ",.02)
 ;;851.80
 ;;9002226.02101,"993,851.81 ",.01)
 ;;851.81
 ;;9002226.02101,"993,851.81 ",.02)
 ;;851.81
 ;;9002226.02101,"993,851.82 ",.01)
 ;;851.82
 ;;9002226.02101,"993,851.82 ",.02)
 ;;851.82
 ;;9002226.02101,"993,851.83 ",.01)
 ;;851.83
 ;;9002226.02101,"993,851.83 ",.02)
 ;;851.83
 ;;9002226.02101,"993,851.84 ",.01)
 ;;851.84
 ;;9002226.02101,"993,851.84 ",.02)
 ;;851.84
 ;;9002226.02101,"993,851.85 ",.01)
 ;;851.85
 ;;9002226.02101,"993,851.85 ",.02)
 ;;851.85
 ;;9002226.02101,"993,851.86 ",.01)
 ;;851.86
 ;;9002226.02101,"993,851.86 ",.02)
 ;;851.86
 ;;9002226.02101,"993,851.89 ",.01)
 ;;851.89
 ;;9002226.02101,"993,851.89 ",.02)
 ;;851.89
 ;;9002226.02101,"993,851.9 ",.01)
 ;;851.9
 ;;9002226.02101,"993,851.9 ",.02)
 ;;851.9
 ;;9002226.02101,"993,851.90 ",.01)
 ;;851.90
 ;;9002226.02101,"993,851.90 ",.02)
 ;;851.90
 ;;9002226.02101,"993,851.91 ",.01)
 ;;851.91
 ;;9002226.02101,"993,851.91 ",.02)
 ;;851.91
 ;;9002226.02101,"993,851.92 ",.01)
 ;;851.92
 ;;9002226.02101,"993,851.92 ",.02)
 ;;851.92
 ;;9002226.02101,"993,851.93 ",.01)
 ;;851.93
 ;;9002226.02101,"993,851.93 ",.02)
 ;;851.93
 ;;9002226.02101,"993,851.94 ",.01)
 ;;851.94
 ;;9002226.02101,"993,851.94 ",.02)
 ;;851.94
 ;;9002226.02101,"993,851.95 ",.01)
 ;;851.95
 ;;9002226.02101,"993,851.95 ",.02)
 ;;851.95
 ;;9002226.02101,"993,851.96 ",.01)
 ;;851.96
 ;;9002226.02101,"993,851.96 ",.02)
 ;;851.96
 ;;9002226.02101,"993,851.99 ",.01)
 ;;851.99
 ;;9002226.02101,"993,851.99 ",.02)
 ;;851.99
 ;;9002226.02101,"993,852 ",.01)
 ;;852
 ;;9002226.02101,"993,852 ",.02)
 ;;852
 ;;9002226.02101,"993,852.0 ",.01)
 ;;852.0
 ;;9002226.02101,"993,852.0 ",.02)
 ;;852.0
 ;;9002226.02101,"993,852.00 ",.01)
 ;;852.00
 ;;9002226.02101,"993,852.00 ",.02)
 ;;852.00
 ;;9002226.02101,"993,852.01 ",.01)
 ;;852.01
 ;;9002226.02101,"993,852.01 ",.02)
 ;;852.01
 ;;9002226.02101,"993,852.02 ",.01)
 ;;852.02
 ;;9002226.02101,"993,852.02 ",.02)
 ;;852.02
 ;;9002226.02101,"993,852.03 ",.01)
 ;;852.03
 ;;9002226.02101,"993,852.03 ",.02)
 ;;852.03
 ;;9002226.02101,"993,852.04 ",.01)
 ;;852.04
 ;;9002226.02101,"993,852.04 ",.02)
 ;;852.04
 ;;9002226.02101,"993,852.05 ",.01)
 ;;852.05
 ;;9002226.02101,"993,852.05 ",.02)
 ;;852.05
 ;;9002226.02101,"993,852.06 ",.01)
 ;;852.06
 ;;9002226.02101,"993,852.06 ",.02)
 ;;852.06
 ;;9002226.02101,"993,852.09 ",.01)
 ;;852.09
 ;;9002226.02101,"993,852.09 ",.02)
 ;;852.09
 ;;9002226.02101,"993,852.1 ",.01)
 ;;852.1
 ;;9002226.02101,"993,852.1 ",.02)
 ;;852.1
 ;;9002226.02101,"993,852.10 ",.01)
 ;;852.10
 ;;9002226.02101,"993,852.10 ",.02)
 ;;852.10
 ;;9002226.02101,"993,852.11 ",.01)
 ;;852.11
 ;;9002226.02101,"993,852.11 ",.02)
 ;;852.11
 ;;9002226.02101,"993,852.12 ",.01)
 ;;852.12
 ;;9002226.02101,"993,852.12 ",.02)
 ;;852.12
 ;;9002226.02101,"993,852.13 ",.01)
 ;;852.13
 ;;9002226.02101,"993,852.13 ",.02)
 ;;852.13
 ;;9002226.02101,"993,852.14 ",.01)
 ;;852.14
 ;;9002226.02101,"993,852.14 ",.02)
 ;;852.14
 ;;9002226.02101,"993,852.15 ",.01)
 ;;852.15
 ;;9002226.02101,"993,852.15 ",.02)
 ;;852.15
 ;;9002226.02101,"993,852.16 ",.01)
 ;;852.16
 ;;9002226.02101,"993,852.16 ",.02)
 ;;852.16
 ;;9002226.02101,"993,852.19 ",.01)
 ;;852.19
 ;;9002226.02101,"993,852.19 ",.02)
 ;;852.19
 ;;9002226.02101,"993,852.2 ",.01)
 ;;852.2
 ;;9002226.02101,"993,852.2 ",.02)
 ;;852.2
 ;;9002226.02101,"993,852.20 ",.01)
 ;;852.20
 ;;9002226.02101,"993,852.20 ",.02)
 ;;852.20
 ;;9002226.02101,"993,852.21 ",.01)
 ;;852.21
 ;;9002226.02101,"993,852.21 ",.02)
 ;;852.21
 ;;9002226.02101,"993,852.22 ",.01)
 ;;852.22
 ;;9002226.02101,"993,852.22 ",.02)
 ;;852.22
 ;;9002226.02101,"993,852.23 ",.01)
 ;;852.23
 ;;9002226.02101,"993,852.23 ",.02)
 ;;852.23
 ;;9002226.02101,"993,852.24 ",.01)
 ;;852.24
 ;;9002226.02101,"993,852.24 ",.02)
 ;;852.24
 ;;9002226.02101,"993,852.25 ",.01)
 ;;852.25
 ;;9002226.02101,"993,852.25 ",.02)
 ;;852.25
 ;;9002226.02101,"993,852.26 ",.01)
 ;;852.26
 ;;9002226.02101,"993,852.26 ",.02)
 ;;852.26
 ;;9002226.02101,"993,852.29 ",.01)
 ;;852.29
 ;;9002226.02101,"993,852.29 ",.02)
 ;;852.29
 ;;9002226.02101,"993,852.3 ",.01)
 ;;852.3
 ;;9002226.02101,"993,852.3 ",.02)
 ;;852.3
 ;;9002226.02101,"993,852.30 ",.01)
 ;;852.30
 ;;9002226.02101,"993,852.30 ",.02)
 ;;852.30
 ;;9002226.02101,"993,852.31 ",.01)
 ;;852.31
 ;;9002226.02101,"993,852.31 ",.02)
 ;;852.31
 ;;9002226.02101,"993,852.32 ",.01)
 ;;852.32
 ;;9002226.02101,"993,852.32 ",.02)
 ;;852.32
 ;;9002226.02101,"993,852.33 ",.01)
 ;;852.33
 ;;9002226.02101,"993,852.33 ",.02)
 ;;852.33
 ;;9002226.02101,"993,852.34 ",.01)
 ;;852.34
 ;;9002226.02101,"993,852.34 ",.02)
 ;;852.34
 ;;9002226.02101,"993,852.35 ",.01)
 ;;852.35
 ;;9002226.02101,"993,852.35 ",.02)
 ;;852.35
 ;;9002226.02101,"993,852.36 ",.01)
 ;;852.36
 ;;9002226.02101,"993,852.36 ",.02)
 ;;852.36
 ;;9002226.02101,"993,852.39 ",.01)
 ;;852.39
 ;;9002226.02101,"993,852.39 ",.02)
 ;;852.39
 ;;9002226.02101,"993,852.4 ",.01)
 ;;852.4
 ;;9002226.02101,"993,852.4 ",.02)
 ;;852.4
 ;;9002226.02101,"993,852.40 ",.01)
 ;;852.40
 ;;9002226.02101,"993,852.40 ",.02)
 ;;852.40
 ;;9002226.02101,"993,852.41 ",.01)
 ;;852.41
 ;;9002226.02101,"993,852.41 ",.02)
 ;;852.41
 ;;9002226.02101,"993,852.42 ",.01)
 ;;852.42
 ;;9002226.02101,"993,852.42 ",.02)
 ;;852.42
 ;;9002226.02101,"993,852.43 ",.01)
 ;;852.43
 ;;9002226.02101,"993,852.43 ",.02)
 ;;852.43
 ;;9002226.02101,"993,852.44 ",.01)
 ;;852.44
 ;;9002226.02101,"993,852.44 ",.02)
 ;;852.44
 ;;9002226.02101,"993,852.45 ",.01)
 ;;852.45
 ;;9002226.02101,"993,852.45 ",.02)
 ;;852.45
 ;;9002226.02101,"993,852.46 ",.01)
 ;;852.46
 ;;9002226.02101,"993,852.46 ",.02)
 ;;852.46
 ;;9002226.02101,"993,852.49 ",.01)
 ;;852.49
 ;;9002226.02101,"993,852.49 ",.02)
 ;;852.49
 ;;9002226.02101,"993,852.5 ",.01)
 ;;852.5
 ;;9002226.02101,"993,852.5 ",.02)
 ;;852.5
 ;;9002226.02101,"993,852.50 ",.01)
 ;;852.50
 ;;9002226.02101,"993,852.50 ",.02)
 ;;852.50
 ;;9002226.02101,"993,852.51 ",.01)
 ;;852.51
 ;;9002226.02101,"993,852.51 ",.02)
 ;;852.51
 ;;9002226.02101,"993,852.52 ",.01)
 ;;852.52
 ;;9002226.02101,"993,852.52 ",.02)
 ;;852.52
 ;;9002226.02101,"993,852.53 ",.01)
 ;;852.53
 ;;9002226.02101,"993,852.53 ",.02)
 ;;852.53
 ;;9002226.02101,"993,852.54 ",.01)
 ;;852.54
 ;;9002226.02101,"993,852.54 ",.02)
 ;;852.54
 ;;9002226.02101,"993,852.55 ",.01)
 ;;852.55
 ;;9002226.02101,"993,852.55 ",.02)
 ;;852.55
 ;;9002226.02101,"993,852.56 ",.01)
 ;;852.56
 ;;9002226.02101,"993,852.56 ",.02)
 ;;852.56
 ;;9002226.02101,"993,852.59 ",.01)
 ;;852.59
 ;;9002226.02101,"993,852.59 ",.02)
 ;;852.59
 ;;9002226.02101,"993,853 ",.01)
 ;;853
 ;;9002226.02101,"993,853 ",.02)
 ;;853
 ;;9002226.02101,"993,853.0 ",.01)
 ;;853.0
 ;;9002226.02101,"993,853.0 ",.02)
 ;;853.0
 ;;9002226.02101,"993,853.00 ",.01)
 ;;853.00
 ;;9002226.02101,"993,853.00 ",.02)
 ;;853.00
 ;;9002226.02101,"993,853.01 ",.01)
 ;;853.01
 ;;9002226.02101,"993,853.01 ",.02)
 ;;853.01
 ;;9002226.02101,"993,853.02 ",.01)
 ;;853.02
 ;;9002226.02101,"993,853.02 ",.02)
 ;;853.02
 ;;9002226.02101,"993,853.03 ",.01)
 ;;853.03
 ;;9002226.02101,"993,853.03 ",.02)
 ;;853.03
 ;;9002226.02101,"993,853.04 ",.01)
 ;;853.04
 ;;9002226.02101,"993,853.04 ",.02)
 ;;853.04
 ;;9002226.02101,"993,853.05 ",.01)
 ;;853.05
 ;;9002226.02101,"993,853.05 ",.02)
 ;;853.05
 ;;9002226.02101,"993,853.06 ",.01)
 ;;853.06
 ;;9002226.02101,"993,853.06 ",.02)
 ;;853.06
 ;;9002226.02101,"993,853.09 ",.01)
 ;;853.09
 ;;9002226.02101,"993,853.09 ",.02)
 ;;853.09
 ;;9002226.02101,"993,853.1 ",.01)
 ;;853.1
 ;;9002226.02101,"993,853.1 ",.02)
 ;;853.1
 ;;9002226.02101,"993,853.10 ",.01)
 ;;853.10
 ;;9002226.02101,"993,853.10 ",.02)
 ;;853.10
 ;;9002226.02101,"993,853.11 ",.01)
 ;;853.11
 ;;9002226.02101,"993,853.11 ",.02)
 ;;853.11
 ;;9002226.02101,"993,853.12 ",.01)
 ;;853.12
 ;;9002226.02101,"993,853.12 ",.02)
 ;;853.12
 ;;9002226.02101,"993,853.13 ",.01)
 ;;853.13
 ;;9002226.02101,"993,853.13 ",.02)
 ;;853.13
 ;;9002226.02101,"993,853.14 ",.01)
 ;;853.14
 ;;9002226.02101,"993,853.14 ",.02)
 ;;853.14
 ;;9002226.02101,"993,853.15 ",.01)
 ;;853.15
 ;;9002226.02101,"993,853.15 ",.02)
 ;;853.15
 ;;9002226.02101,"993,853.16 ",.01)
 ;;853.16
 ;;9002226.02101,"993,853.16 ",.02)
 ;;853.16
 ;;9002226.02101,"993,853.19 ",.01)
 ;;853.19
 ;;9002226.02101,"993,853.19 ",.02)
 ;;853.19
 ;;9002226.02101,"993,854 ",.01)
 ;;854
 ;;9002226.02101,"993,854 ",.02)
 ;;854
 ;;9002226.02101,"993,854.0 ",.01)
 ;;854.0
 ;;9002226.02101,"993,854.0 ",.02)
 ;;854.0
 ;;9002226.02101,"993,854.00 ",.01)
 ;;854.00
 ;;9002226.02101,"993,854.00 ",.02)
 ;;854.00
 ;;9002226.02101,"993,854.01 ",.01)
 ;;854.01
 ;;9002226.02101,"993,854.01 ",.02)
 ;;854.01
 ;;9002226.02101,"993,854.02 ",.01)
 ;;854.02
 ;;9002226.02101,"993,854.02 ",.02)
 ;;854.02
 ;;9002226.02101,"993,854.03 ",.01)
 ;;854.03
 ;;9002226.02101,"993,854.03 ",.02)
 ;;854.03
 ;;9002226.02101,"993,854.04 ",.01)
 ;;854.04
 ;;9002226.02101,"993,854.04 ",.02)
 ;;854.04
 ;;9002226.02101,"993,854.05 ",.01)
 ;;854.05
 ;;9002226.02101,"993,854.05 ",.02)
 ;;854.05
 ;;9002226.02101,"993,854.06 ",.01)
 ;;854.06
 ;;9002226.02101,"993,854.06 ",.02)
 ;;854.06
 ;;9002226.02101,"993,854.09 ",.01)
 ;;854.09
 ;;9002226.02101,"993,854.09 ",.02)
 ;;854.09
 ;;9002226.02101,"993,854.1 ",.01)
 ;;854.1
 ;;9002226.02101,"993,854.1 ",.02)
 ;;854.1
 ;;9002226.02101,"993,854.10 ",.01)
 ;;854.10
 ;;9002226.02101,"993,854.10 ",.02)
 ;;854.10
 ;;9002226.02101,"993,854.11 ",.01)
 ;;854.11
 ;;9002226.02101,"993,854.11 ",.02)
 ;;854.11
 ;;9002226.02101,"993,854.12 ",.01)
 ;;854.12
 ;;9002226.02101,"993,854.12 ",.02)
 ;;854.12
 ;;9002226.02101,"993,854.13 ",.01)
 ;;854.13
 ;;9002226.02101,"993,854.13 ",.02)
 ;;854.13
 ;;9002226.02101,"993,854.14 ",.01)
 ;;854.14
 ;;9002226.02101,"993,854.14 ",.02)
 ;;854.14
 ;;9002226.02101,"993,854.15 ",.01)
 ;;854.15
 ;;9002226.02101,"993,854.15 ",.02)
 ;;854.15
 ;;9002226.02101,"993,854.16 ",.01)
 ;;854.16
 ;;9002226.02101,"993,854.16 ",.02)
 ;;854.16
 ;;9002226.02101,"993,854.19 ",.01)
 ;;854.19
 ;;9002226.02101,"993,854.19 ",.02)
 ;;854.19
 ;;9002226.02101,"993,860 ",.01)
 ;;860
 ;;9002226.02101,"993,860 ",.02)
 ;;860
 ;;9002226.02101,"993,860.0 ",.01)
 ;;860.0
 ;;9002226.02101,"993,860.0 ",.02)
 ;;860.0
 ;;9002226.02101,"993,860.1 ",.01)
 ;;860.1
 ;;9002226.02101,"993,860.1 ",.02)
 ;;860.1
 ;;9002226.02101,"993,860.2 ",.01)
 ;;860.2
 ;;9002226.02101,"993,860.2 ",.02)
 ;;860.2
 ;;9002226.02101,"993,860.3 ",.01)
 ;;860.3
 ;;9002226.02101,"993,860.3 ",.02)
 ;;860.3
 ;;9002226.02101,"993,860.4 ",.01)
 ;;860.4
 ;;9002226.02101,"993,860.4 ",.02)
 ;;860.4
 ;;9002226.02101,"993,860.5 ",.01)
 ;;860.5
 ;;9002226.02101,"993,860.5 ",.02)
 ;;860.5
 ;;9002226.02101,"993,861 ",.01)
 ;;861
 ;;9002226.02101,"993,861 ",.02)
 ;;861
 ;;9002226.02101,"993,861.0 ",.01)
 ;;861.0
 ;;9002226.02101,"993,861.0 ",.02)
 ;;861.0
 ;;9002226.02101,"993,861.00 ",.01)
 ;;861.00
 ;;9002226.02101,"993,861.00 ",.02)
 ;;861.00
 ;;9002226.02101,"993,861.01 ",.01)
 ;;861.01
 ;;9002226.02101,"993,861.01 ",.02)
 ;;861.01