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

BGPM5AOM.m

Go to the documentation of this file.
BGPM5AOM ;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,804.09 ",.02)
 ;;804.09
 ;;9002226.02101,"993,804.1 ",.01)
 ;;804.1
 ;;9002226.02101,"993,804.1 ",.02)
 ;;804.1
 ;;9002226.02101,"993,804.10 ",.01)
 ;;804.10
 ;;9002226.02101,"993,804.10 ",.02)
 ;;804.10
 ;;9002226.02101,"993,804.11 ",.01)
 ;;804.11
 ;;9002226.02101,"993,804.11 ",.02)
 ;;804.11
 ;;9002226.02101,"993,804.12 ",.01)
 ;;804.12
 ;;9002226.02101,"993,804.12 ",.02)
 ;;804.12
 ;;9002226.02101,"993,804.13 ",.01)
 ;;804.13
 ;;9002226.02101,"993,804.13 ",.02)
 ;;804.13
 ;;9002226.02101,"993,804.14 ",.01)
 ;;804.14
 ;;9002226.02101,"993,804.14 ",.02)
 ;;804.14
 ;;9002226.02101,"993,804.15 ",.01)
 ;;804.15
 ;;9002226.02101,"993,804.15 ",.02)
 ;;804.15
 ;;9002226.02101,"993,804.16 ",.01)
 ;;804.16
 ;;9002226.02101,"993,804.16 ",.02)
 ;;804.16
 ;;9002226.02101,"993,804.19 ",.01)
 ;;804.19
 ;;9002226.02101,"993,804.19 ",.02)
 ;;804.19
 ;;9002226.02101,"993,804.2 ",.01)
 ;;804.2
 ;;9002226.02101,"993,804.2 ",.02)
 ;;804.2
 ;;9002226.02101,"993,804.20 ",.01)
 ;;804.20
 ;;9002226.02101,"993,804.20 ",.02)
 ;;804.20
 ;;9002226.02101,"993,804.21 ",.01)
 ;;804.21
 ;;9002226.02101,"993,804.21 ",.02)
 ;;804.21
 ;;9002226.02101,"993,804.22 ",.01)
 ;;804.22
 ;;9002226.02101,"993,804.22 ",.02)
 ;;804.22
 ;;9002226.02101,"993,804.23 ",.01)
 ;;804.23
 ;;9002226.02101,"993,804.23 ",.02)
 ;;804.23
 ;;9002226.02101,"993,804.24 ",.01)
 ;;804.24
 ;;9002226.02101,"993,804.24 ",.02)
 ;;804.24
 ;;9002226.02101,"993,804.25 ",.01)
 ;;804.25
 ;;9002226.02101,"993,804.25 ",.02)
 ;;804.25
 ;;9002226.02101,"993,804.26 ",.01)
 ;;804.26
 ;;9002226.02101,"993,804.26 ",.02)
 ;;804.26
 ;;9002226.02101,"993,804.29 ",.01)
 ;;804.29
 ;;9002226.02101,"993,804.29 ",.02)
 ;;804.29
 ;;9002226.02101,"993,804.3 ",.01)
 ;;804.3
 ;;9002226.02101,"993,804.3 ",.02)
 ;;804.3
 ;;9002226.02101,"993,804.30 ",.01)
 ;;804.30
 ;;9002226.02101,"993,804.30 ",.02)
 ;;804.30
 ;;9002226.02101,"993,804.31 ",.01)
 ;;804.31
 ;;9002226.02101,"993,804.31 ",.02)
 ;;804.31
 ;;9002226.02101,"993,804.32 ",.01)
 ;;804.32
 ;;9002226.02101,"993,804.32 ",.02)
 ;;804.32
 ;;9002226.02101,"993,804.33 ",.01)
 ;;804.33
 ;;9002226.02101,"993,804.33 ",.02)
 ;;804.33
 ;;9002226.02101,"993,804.34 ",.01)
 ;;804.34
 ;;9002226.02101,"993,804.34 ",.02)
 ;;804.34
 ;;9002226.02101,"993,804.35 ",.01)
 ;;804.35
 ;;9002226.02101,"993,804.35 ",.02)
 ;;804.35
 ;;9002226.02101,"993,804.36 ",.01)
 ;;804.36
 ;;9002226.02101,"993,804.36 ",.02)
 ;;804.36
 ;;9002226.02101,"993,804.39 ",.01)
 ;;804.39
 ;;9002226.02101,"993,804.39 ",.02)
 ;;804.39
 ;;9002226.02101,"993,804.4 ",.01)
 ;;804.4
 ;;9002226.02101,"993,804.4 ",.02)
 ;;804.4
 ;;9002226.02101,"993,804.40 ",.01)
 ;;804.40
 ;;9002226.02101,"993,804.40 ",.02)
 ;;804.40
 ;;9002226.02101,"993,804.41 ",.01)
 ;;804.41
 ;;9002226.02101,"993,804.41 ",.02)
 ;;804.41
 ;;9002226.02101,"993,804.42 ",.01)
 ;;804.42
 ;;9002226.02101,"993,804.42 ",.02)
 ;;804.42
 ;;9002226.02101,"993,804.43 ",.01)
 ;;804.43
 ;;9002226.02101,"993,804.43 ",.02)
 ;;804.43
 ;;9002226.02101,"993,804.44 ",.01)
 ;;804.44
 ;;9002226.02101,"993,804.44 ",.02)
 ;;804.44
 ;;9002226.02101,"993,804.45 ",.01)
 ;;804.45
 ;;9002226.02101,"993,804.45 ",.02)
 ;;804.45
 ;;9002226.02101,"993,804.46 ",.01)
 ;;804.46
 ;;9002226.02101,"993,804.46 ",.02)
 ;;804.46
 ;;9002226.02101,"993,804.49 ",.01)
 ;;804.49
 ;;9002226.02101,"993,804.49 ",.02)
 ;;804.49
 ;;9002226.02101,"993,804.5 ",.01)
 ;;804.5
 ;;9002226.02101,"993,804.5 ",.02)
 ;;804.5
 ;;9002226.02101,"993,804.50 ",.01)
 ;;804.50
 ;;9002226.02101,"993,804.50 ",.02)
 ;;804.50
 ;;9002226.02101,"993,804.51 ",.01)
 ;;804.51
 ;;9002226.02101,"993,804.51 ",.02)
 ;;804.51
 ;;9002226.02101,"993,804.52 ",.01)
 ;;804.52
 ;;9002226.02101,"993,804.52 ",.02)
 ;;804.52
 ;;9002226.02101,"993,804.53 ",.01)
 ;;804.53
 ;;9002226.02101,"993,804.53 ",.02)
 ;;804.53
 ;;9002226.02101,"993,804.54 ",.01)
 ;;804.54
 ;;9002226.02101,"993,804.54 ",.02)
 ;;804.54
 ;;9002226.02101,"993,804.55 ",.01)
 ;;804.55
 ;;9002226.02101,"993,804.55 ",.02)
 ;;804.55
 ;;9002226.02101,"993,804.56 ",.01)
 ;;804.56
 ;;9002226.02101,"993,804.56 ",.02)
 ;;804.56
 ;;9002226.02101,"993,804.59 ",.01)
 ;;804.59
 ;;9002226.02101,"993,804.59 ",.02)
 ;;804.59
 ;;9002226.02101,"993,804.6 ",.01)
 ;;804.6
 ;;9002226.02101,"993,804.6 ",.02)
 ;;804.6
 ;;9002226.02101,"993,804.60 ",.01)
 ;;804.60
 ;;9002226.02101,"993,804.60 ",.02)
 ;;804.60
 ;;9002226.02101,"993,804.61 ",.01)
 ;;804.61
 ;;9002226.02101,"993,804.61 ",.02)
 ;;804.61
 ;;9002226.02101,"993,804.62 ",.01)
 ;;804.62
 ;;9002226.02101,"993,804.62 ",.02)
 ;;804.62
 ;;9002226.02101,"993,804.63 ",.01)
 ;;804.63
 ;;9002226.02101,"993,804.63 ",.02)
 ;;804.63
 ;;9002226.02101,"993,804.64 ",.01)
 ;;804.64
 ;;9002226.02101,"993,804.64 ",.02)
 ;;804.64
 ;;9002226.02101,"993,804.65 ",.01)
 ;;804.65
 ;;9002226.02101,"993,804.65 ",.02)
 ;;804.65
 ;;9002226.02101,"993,804.66 ",.01)
 ;;804.66
 ;;9002226.02101,"993,804.66 ",.02)
 ;;804.66
 ;;9002226.02101,"993,804.69 ",.01)
 ;;804.69
 ;;9002226.02101,"993,804.69 ",.02)
 ;;804.69
 ;;9002226.02101,"993,804.7 ",.01)
 ;;804.7
 ;;9002226.02101,"993,804.7 ",.02)
 ;;804.7
 ;;9002226.02101,"993,804.70 ",.01)
 ;;804.70
 ;;9002226.02101,"993,804.70 ",.02)
 ;;804.70
 ;;9002226.02101,"993,804.71 ",.01)
 ;;804.71
 ;;9002226.02101,"993,804.71 ",.02)
 ;;804.71
 ;;9002226.02101,"993,804.72 ",.01)
 ;;804.72
 ;;9002226.02101,"993,804.72 ",.02)
 ;;804.72
 ;;9002226.02101,"993,804.73 ",.01)
 ;;804.73
 ;;9002226.02101,"993,804.73 ",.02)
 ;;804.73
 ;;9002226.02101,"993,804.74 ",.01)
 ;;804.74
 ;;9002226.02101,"993,804.74 ",.02)
 ;;804.74
 ;;9002226.02101,"993,804.75 ",.01)
 ;;804.75
 ;;9002226.02101,"993,804.75 ",.02)
 ;;804.75
 ;;9002226.02101,"993,804.76 ",.01)
 ;;804.76
 ;;9002226.02101,"993,804.76 ",.02)
 ;;804.76
 ;;9002226.02101,"993,804.79 ",.01)
 ;;804.79
 ;;9002226.02101,"993,804.79 ",.02)
 ;;804.79
 ;;9002226.02101,"993,804.8 ",.01)
 ;;804.8
 ;;9002226.02101,"993,804.8 ",.02)
 ;;804.8
 ;;9002226.02101,"993,804.80 ",.01)
 ;;804.80
 ;;9002226.02101,"993,804.80 ",.02)
 ;;804.80
 ;;9002226.02101,"993,804.81 ",.01)
 ;;804.81
 ;;9002226.02101,"993,804.81 ",.02)
 ;;804.81
 ;;9002226.02101,"993,804.82 ",.01)
 ;;804.82
 ;;9002226.02101,"993,804.82 ",.02)
 ;;804.82
 ;;9002226.02101,"993,804.83 ",.01)
 ;;804.83
 ;;9002226.02101,"993,804.83 ",.02)
 ;;804.83
 ;;9002226.02101,"993,804.84 ",.01)
 ;;804.84
 ;;9002226.02101,"993,804.84 ",.02)
 ;;804.84
 ;;9002226.02101,"993,804.85 ",.01)
 ;;804.85
 ;;9002226.02101,"993,804.85 ",.02)
 ;;804.85
 ;;9002226.02101,"993,804.86 ",.01)
 ;;804.86
 ;;9002226.02101,"993,804.86 ",.02)
 ;;804.86
 ;;9002226.02101,"993,804.89 ",.01)
 ;;804.89
 ;;9002226.02101,"993,804.89 ",.02)
 ;;804.89
 ;;9002226.02101,"993,804.9 ",.01)
 ;;804.9
 ;;9002226.02101,"993,804.9 ",.02)
 ;;804.9
 ;;9002226.02101,"993,804.90 ",.01)
 ;;804.90
 ;;9002226.02101,"993,804.90 ",.02)
 ;;804.90
 ;;9002226.02101,"993,804.91 ",.01)
 ;;804.91
 ;;9002226.02101,"993,804.91 ",.02)
 ;;804.91
 ;;9002226.02101,"993,804.92 ",.01)
 ;;804.92
 ;;9002226.02101,"993,804.92 ",.02)
 ;;804.92
 ;;9002226.02101,"993,804.93 ",.01)
 ;;804.93
 ;;9002226.02101,"993,804.93 ",.02)
 ;;804.93
 ;;9002226.02101,"993,804.94 ",.01)
 ;;804.94
 ;;9002226.02101,"993,804.94 ",.02)
 ;;804.94
 ;;9002226.02101,"993,804.95 ",.01)
 ;;804.95
 ;;9002226.02101,"993,804.95 ",.02)
 ;;804.95
 ;;9002226.02101,"993,804.96 ",.01)
 ;;804.96
 ;;9002226.02101,"993,804.96 ",.02)
 ;;804.96
 ;;9002226.02101,"993,804.99 ",.01)
 ;;804.99
 ;;9002226.02101,"993,804.99 ",.02)
 ;;804.99
 ;;9002226.02101,"993,805 ",.01)
 ;;805
 ;;9002226.02101,"993,805 ",.02)
 ;;805
 ;;9002226.02101,"993,805.0 ",.01)
 ;;805.0
 ;;9002226.02101,"993,805.0 ",.02)
 ;;805.0
 ;;9002226.02101,"993,805.00 ",.01)
 ;;805.00
 ;;9002226.02101,"993,805.00 ",.02)
 ;;805.00
 ;;9002226.02101,"993,805.01 ",.01)
 ;;805.01
 ;;9002226.02101,"993,805.01 ",.02)
 ;;805.01
 ;;9002226.02101,"993,805.02 ",.01)
 ;;805.02
 ;;9002226.02101,"993,805.02 ",.02)
 ;;805.02
 ;;9002226.02101,"993,805.03 ",.01)
 ;;805.03
 ;;9002226.02101,"993,805.03 ",.02)
 ;;805.03
 ;;9002226.02101,"993,805.04 ",.01)
 ;;805.04
 ;;9002226.02101,"993,805.04 ",.02)
 ;;805.04
 ;;9002226.02101,"993,805.05 ",.01)
 ;;805.05
 ;;9002226.02101,"993,805.05 ",.02)
 ;;805.05
 ;;9002226.02101,"993,805.06 ",.01)
 ;;805.06
 ;;9002226.02101,"993,805.06 ",.02)
 ;;805.06
 ;;9002226.02101,"993,805.07 ",.01)
 ;;805.07
 ;;9002226.02101,"993,805.07 ",.02)
 ;;805.07
 ;;9002226.02101,"993,805.08 ",.01)
 ;;805.08
 ;;9002226.02101,"993,805.08 ",.02)
 ;;805.08
 ;;9002226.02101,"993,805.1 ",.01)
 ;;805.1
 ;;9002226.02101,"993,805.1 ",.02)
 ;;805.1
 ;;9002226.02101,"993,805.10 ",.01)
 ;;805.10
 ;;9002226.02101,"993,805.10 ",.02)
 ;;805.10
 ;;9002226.02101,"993,805.11 ",.01)
 ;;805.11
 ;;9002226.02101,"993,805.11 ",.02)
 ;;805.11
 ;;9002226.02101,"993,805.12 ",.01)
 ;;805.12
 ;;9002226.02101,"993,805.12 ",.02)
 ;;805.12
 ;;9002226.02101,"993,805.13 ",.01)
 ;;805.13
 ;;9002226.02101,"993,805.13 ",.02)
 ;;805.13
 ;;9002226.02101,"993,805.14 ",.01)
 ;;805.14
 ;;9002226.02101,"993,805.14 ",.02)
 ;;805.14
 ;;9002226.02101,"993,805.15 ",.01)
 ;;805.15
 ;;9002226.02101,"993,805.15 ",.02)
 ;;805.15
 ;;9002226.02101,"993,805.16 ",.01)
 ;;805.16
 ;;9002226.02101,"993,805.16 ",.02)
 ;;805.16
 ;;9002226.02101,"993,805.17 ",.01)
 ;;805.17
 ;;9002226.02101,"993,805.17 ",.02)
 ;;805.17
 ;;9002226.02101,"993,805.18 ",.01)
 ;;805.18
 ;;9002226.02101,"993,805.18 ",.02)
 ;;805.18
 ;;9002226.02101,"993,805.2 ",.01)
 ;;805.2
 ;;9002226.02101,"993,805.2 ",.02)
 ;;805.2
 ;;9002226.02101,"993,805.3 ",.01)
 ;;805.3
 ;;9002226.02101,"993,805.3 ",.02)
 ;;805.3
 ;;9002226.02101,"993,805.4 ",.01)
 ;;805.4
 ;;9002226.02101,"993,805.4 ",.02)
 ;;805.4
 ;;9002226.02101,"993,805.5 ",.01)
 ;;805.5
 ;;9002226.02101,"993,805.5 ",.02)
 ;;805.5
 ;;9002226.02101,"993,805.6 ",.01)
 ;;805.6
 ;;9002226.02101,"993,805.6 ",.02)
 ;;805.6
 ;;9002226.02101,"993,805.7 ",.01)
 ;;805.7
 ;;9002226.02101,"993,805.7 ",.02)
 ;;805.7
 ;;9002226.02101,"993,805.8 ",.01)
 ;;805.8
 ;;9002226.02101,"993,805.8 ",.02)
 ;;805.8
 ;;9002226.02101,"993,805.9 ",.01)
 ;;805.9
 ;;9002226.02101,"993,805.9 ",.02)
 ;;805.9
 ;;9002226.02101,"993,806 ",.01)
 ;;806
 ;;9002226.02101,"993,806 ",.02)
 ;;806
 ;;9002226.02101,"993,806.0 ",.01)
 ;;806.0
 ;;9002226.02101,"993,806.0 ",.02)
 ;;806.0
 ;;9002226.02101,"993,806.00 ",.01)
 ;;806.00
 ;;9002226.02101,"993,806.00 ",.02)
 ;;806.00
 ;;9002226.02101,"993,806.01 ",.01)
 ;;806.01
 ;;9002226.02101,"993,806.01 ",.02)
 ;;806.01
 ;;9002226.02101,"993,806.02 ",.01)
 ;;806.02
 ;;9002226.02101,"993,806.02 ",.02)
 ;;806.02
 ;;9002226.02101,"993,806.03 ",.01)
 ;;806.03
 ;;9002226.02101,"993,806.03 ",.02)
 ;;806.03
 ;;9002226.02101,"993,806.04 ",.01)
 ;;806.04
 ;;9002226.02101,"993,806.04 ",.02)
 ;;806.04
 ;;9002226.02101,"993,806.05 ",.01)
 ;;806.05
 ;;9002226.02101,"993,806.05 ",.02)
 ;;806.05
 ;;9002226.02101,"993,806.06 ",.01)
 ;;806.06
 ;;9002226.02101,"993,806.06 ",.02)
 ;;806.06
 ;;9002226.02101,"993,806.07 ",.01)
 ;;806.07
 ;;9002226.02101,"993,806.07 ",.02)
 ;;806.07
 ;;9002226.02101,"993,806.08 ",.01)
 ;;806.08
 ;;9002226.02101,"993,806.08 ",.02)
 ;;806.08
 ;;9002226.02101,"993,806.09 ",.01)
 ;;806.09
 ;;9002226.02101,"993,806.09 ",.02)
 ;;806.09
 ;;9002226.02101,"993,806.1 ",.01)
 ;;806.1